extern void pglen_c(fint *,fchar,float *,float *);