extern void pgsci_c(fint *);