extern void pgslw_c(fint *);