extern void pgscir_c(fint *,fint *);