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