extern void pgqimi_c(fint *);