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