extern void pgolin_c(fint *,fint *,float *,float *,fint *);