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