extern fint mtstat_c(fint *);