extern fint allpar_c(fint *,fchar);