extern void pgsubp_c(fint *,fint *);