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