extern fint prntrcom_c(fint *,fchar);