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