extern fint mtfsf_c(fint *,fint *);