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