extern fint prntract_c(fint *,fchar,fint *);