extern void pgsclp_c(fint *);