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