IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Changeset 1522


Ignore:
Timestamp:
Aug 12, 2004, 2:16:03 PM (22 years ago)
Author:
desonia
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/psLib/src/astronomy/slalib.h

    r1521 r1522  
    77*  @author Robert DeSonia, MHPCC
    88*
    9 *  @version $Revision: 1.2 $ $Name: not supported by cvs2svn $
    10 *  @date $Date: 2004-08-13 00:12:01 $
     9*  @version $Revision: 1.3 $ $Name: not supported by cvs2svn $
     10*  @date $Date: 2004-08-13 00:16:03 $
    1111*
    1212*  Copyright 2004 Maui High Performance Computing Center, University of Hawaii
    … …  
    1818#ifdef FORTRAN_UNDERLINE_SUFFIX
    1919#ifdef FORTRAN_UPPERCASE
    20 #define slaAoppa SLA_AOPPA__
    21 #define slaAopqk SLA_AOPQK__
    22 #define slaOapqk SLA_OAPQK__
    23 #else
    24 #define slaAoppa sla_aoppa__
    25 #define slaAopqk sla_aopqk__
    26 #define slaOapqk sla_oapqk__
    27 #endif
    28 #else
    29 #ifdef FORTRAN_UPPERCASE
    3020#define slaAoppa SLA_AOPPA_
    3121#define slaAopqk SLA_AOPQK_
    … …  
    3525#define slaAopqk sla_aopqk_
    3626#define slaOapqk sla_oapqk_
     27#endif
     28#else
     29#ifdef FORTRAN_UPPERCASE
     30#define slaAoppa SLA_AOPPA
     31#define slaAopqk SLA_AOPQK
     32#define slaOapqk SLA_OAPQK
     33#else
     34#define slaAoppa sla_aoppa
     35#define slaAopqk sla_aopqk
     36#define slaOapqk sla_oapqk
    3737#endif
    3838#endif
Note: See TracChangeset for help on using the changeset viewer.