extern void pgrnge_c(float *,float *,float *,float *);