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