extern void pgnumb_c(fint *,fint *,fint *,fchar,fint *);