extern void gdsd_rdble_c(fchar,fchar,fint *,double *,fint *);