IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Ignore:
Timestamp:
Aug 17, 2005, 9:36:55 AM (21 years ago)
Author:
eugene
Message:

renamed hms_to_deg hstgsc_hms_to_deg everywhere, moved into libohana

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Ohana/src/opihi/lib.data/convert.c

    r4805 r4810  
    6969}
    7070
    71 /***** extract RA - RA, DEC - DEC from HST GSC entry *****/
    72 int hstgsc_hms_to_deg (double *h0, double *h1, double *d0, double *d1, char *string) {
    73  
    74   int flag_d0, flag_d1, flag_h0, flag_h1;
    75   double tmp;
    76  
    77   *d0 = *h0 = *d1 = *h1 = 0;
    78 
    79   flag_h0 = dparse (h0, 1, string);
    80   flag_h1 = dparse (h1, 4, string);
    81   flag_d0 = dparse (d0, 7, string);
    82   flag_d1 = dparse (d1, 9, string);
    83   *h0 *= flag_h0;
    84   *h1 *= flag_h1;
    85   *d0 *= flag_d0;
    86   *d1 *= flag_d1;
    87 
    88   dparse (&tmp, 2, string);
    89   *h0 += tmp/60.0;
    90   dparse (&tmp, 3, string);
    91   *h0 += tmp/3600.0;
    92  
    93   dparse (&tmp, 5, string);
    94   *h1 += tmp/60.0;
    95   dparse (&tmp, 6, string);
    96   *h1 += tmp/3600.0;
    97  
    98   dparse (&tmp, 8, string);
    99   *d0 += tmp/60.0;
    100 
    101   dparse (&tmp, 10, string);
    102   *d1 += tmp/60.0;
    103 
    104   *h0 *= 15*flag_h0;
    105   *h1 *= 15*flag_h1;
    106   *d0 *= flag_d0;
    107   *d1 *= flag_d1;
    108 
    109   return (TRUE);
    110 }
    111 
    11271/***** convert 00:00:00 or 00:00 to 0 - 86400 ****/
    11372int hms_to_sec (char *string, time_t *second) {
Note: See TracChangeset for help on using the changeset viewer.