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