extern void pgslct_c(fint *);