extern fint mtrew_c(fint *);