extern void pgsls_c(fint *);