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