extern void pgscrl_c(float *,float *);