extern void pgbeam_c(float *,float *,float *,float *,float *,float *,float *,fint *);