extern fint mtreadc_c(fint *,fchar);