extern void irds_create_c(fchar,fchar,fint *,double *,double *,fchar,float *,fchar,fchar,fint *);