extern void pgsimi_c(fint *);