extern fint irds_rd_detoff_c(fchar,fint *,fint *,fint *,fint *,double *,double *,fint *,fint *,double *,double *,double *,fint *,fint *);