extern fint mtname_c(fint *,fchar);