extern float pgrnd_c(float *,fint *);