IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Ignore:
Timestamp:
Oct 26, 2004, 11:57:42 AM (22 years ago)
Author:
gusciora
Message:

Change the case of a few function names.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/psLib/test/astronomy/tst_psCoord.c

    r2108 r2199  
    66*  @author GLG, MHPCC
    77*
    8 *  @version $Revision: 1.3 $ $Name: not supported by cvs2svn $
    9 *  @date $Date: 2004-10-14 01:53:44 $
     8*  @version $Revision: 1.4 $ $Name: not supported by cvs2svn $
     9*  @date $Date: 2004-10-26 21:57:32 $
    1010*
    1111*  Copyright 2004 Maui High Performance Computing Center, University of Hawaii
     
    3333                              {test3, 0000, "psPlaneDistortApply()", 0, false},
    3434                              {test4, 0000, "psPSphereTransformApply()", 0, false},
    35                               {test5, 0000, "psSphereTransformICRStoEcliptic()", 0, false},
    36                               {test6, 0000, "psSphereTransformEcliptictoICRS()", 0, false},
    37                               {test7, 0000, "psSphereTransformICRStoGalatic()", 0, false},
    38                               {test8, 0000, "psSphereTransformGalatictoICRS()", 0, false},
     35                              {test5, 0000, "psSphereTransformICRSToEcliptic()", 0, false},
     36                              {test6, 0000, "psSphereTransformEclipticToICRS()", 0, false},
     37                              {test7, 0000, "psSphereTransformICRSToGalatic()", 0, false},
     38                              {test8, 0000, "psSphereTransformGalaticToICRS()", 0, false},
    3939                              {test20, 0000, "psProject()", 0, false},
    4040                              {test21, 0000, "psDeProject()", 0, false},
     
    7676              float y)
    7777{
    78     if (y!= 0.0) {
    79         return(atan(y/x));
    80     } else {
    81         return(0.5 * M_PI);
    82     }
    83     return (0.0);
     78    return((float) atan2((double) x, (double) y));
    8479}
    8580
     
    251246    double T = year / 100.0;
    252247    double phi = -23.452294 + 0.013013 * T + 0.000001639 * T * T - 0.000000503 * T * T * T;
    253     psSphereTransform *myST = psSphereTransformICRStoEcliptic(*now);
     248    psSphereTransform *myST = psSphereTransformICRSToEcliptic(*now);
    254249
    255250    if (FLT_EPSILON < fabs(sin(phi) - myST->sinPhi)) {
     
    290285    double T = year / 100.0;
    291286    double phi = +23.452294 - 0.013013 * T - 0.000001639 * T * T + 0.000000503 * T * T * T;
    292     psSphereTransform *myST = psSphereTransformEcliptictoICRS(*now);
     287    psSphereTransform *myST = psSphereTransformEclipticToICRS(*now);
    293288
    294289    if (FLT_EPSILON < fabs(sin(phi) - myST->sinPhi)) {
     
    326321    double Xo = 282.25;
    327322    double xo = 33.0;
    328     psSphereTransform *myST = psSphereTransformICRStoGalatic();
     323    psSphereTransform *myST = psSphereTransformICRSToGalatic();
    329324
    330325    if (FLT_EPSILON < fabs(sin(phi) - myST->sinPhi)) {
     
    359354    double Xo = 33.0;
    360355    double xo = 282.25;
    361     psSphereTransform *myST = psSphereTransformGalatictoICRS();
     356    psSphereTransform *myST = psSphereTransformGalaticToICRS();
    362357
    363358    if (FLT_EPSILON < fabs(sin(phi) - myST->sinPhi)) {
Note: See TracChangeset for help on using the changeset viewer.