extern fint prntrnam_c(fint *,fchar);