extern fint irlrs_xgain_c(fint *,float *,float *,fint *,float *);