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