extern fint pgexist_c(fint *);