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