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