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