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