extern float pribeam_c(fchar,fint *,fint *,float *,float *,fint *,fchar);