extern void dms_c(double *,fchar,double *,fint *,fint *);