extern void pgptxt_c(float *,float *,float *,float *,fchar);