extern fint ftsd_rreal_c(fchar,fchar,float *);