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