extern fint mtbsf_c(fint *,fint *);