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/fixcat/src/aregion.c

    r2490 r4810  
    8787    strncpy (temp, &buffer[i*48], 48);
    8888    temp[49] = 0;
    89     hms_to_deg (&RA0, &RA1, &DEC0, &DEC1, &temp[7]);
     89    hstgsc_hms_to_deg (&RA0, &RA1, &DEC0, &DEC1, &temp[7]);
    9090    if (RA1 < RA0) RA1 += 360.0;
    9191# ifdef DEBUG
     
    117117  return;
    118118}
    119 
    120 
    121 /**********/
    122 int hms_to_deg (h0, h1, d0, d1, string)
    123      char *string;
    124      double *h0, *h1, *d0, *d1;
    125 {
    126  
    127   int flag_d0, flag_d1, flag_h0, flag_h1;
    128   double tmp;
    129  
    130   *d0 = *h0 = *d1 = *h1 = 0;
    131 
    132   flag_h0 = dparse (h0, 1, string);
    133   flag_h1 = dparse (h1, 4, string);
    134   flag_d0 = dparse (d0, 7, string);
    135   flag_d1 = dparse (d1, 9, string);
    136   *h0 *= flag_h0;
    137   *h1 *= flag_h1;
    138   *d0 *= flag_d0;
    139   *d1 *= flag_d1;
    140 
    141   dparse (&tmp, 2, string);
    142   *h0 += tmp/60.0;
    143   dparse (&tmp, 3, string);
    144   *h0 += tmp/3600.0;
    145  
    146   dparse (&tmp, 5, string);
    147   *h1 += tmp/60.0;
    148   dparse (&tmp, 6, string);
    149   *h1 += tmp/3600.0;
    150  
    151   dparse (&tmp, 8, string);
    152   *d0 += tmp/60.0;
    153 
    154   dparse (&tmp, 10, string);
    155   *d1 += tmp/60.0;
    156 
    157   *h0 *= 15*flag_h0;
    158   *h1 *= 15*flag_h1;
    159   *d0 *= flag_d0;
    160   *d1 *= flag_d1;
    161 
    162   return (TRUE);
    163 }
    164 
    165 
    166 /*
    167       if (buffer[i*48 + 19] == ' ') continue;
    168       strncpy (temp, &buffer[i*48 + 19], 20);       temp[20] = 0;
    169       hms_to_deg (&RA,  &DEC, temp, ' ', 3);
    170 
    171 
    172   dBigRA = 360.0 / (int)(0.5 + 48*cos(3.1415927*0.5*(BigDecBounds[NBigDec] + BigDecBounds[NBigDec + 1])/180.0));
    173 
    174   NBigRA = ra / dBigRA;
    175 
    176   NBig = NBigRA;
    177   for (i = 0; (i < 12) && (i < NBigDec); i++) {
    178     NBig += NBigRASections[i];
    179   }
    180   for (i = 13; (i < 24) && (i < NBigDec); i++) {
    181     NBig += NBigRASections[i];
    182   }
    183 
    184 
    185   fprintf (stderr, "%d %d %d %d %f %f -> %f %f %f\n", NBigDec, NBigRA, NBigRASections[NBigDec], NBig, ra, dec, BigDecBounds[NBigDec], BigDecBounds[NBigDec + 1], dBigRA);
    186 */
Note: See TracChangeset for help on using the changeset viewer.