IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Ignore:
Timestamp:
Feb 4, 2005, 10:33:20 PM (21 years ago)
Author:
desonia
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r2061 r3139  
    77*  @author Robert DeSonia, MHPCC
    88*
    9 *  @version $Revision: 1.9 $ $Name: not supported by cvs2svn $
    10 *  @date $Date: 2004-10-12 21:10:41 $
     9*  @version $Revision: 1.10 $ $Name: not supported by cvs2svn $
     10*  @date $Date: 2005-02-05 08:33:20 $
    1111*
    1212*  Copyright 2004 Maui High Performance Computing Center, University of Hawaii
    … …  
    1616#define SLALIB_H
    1717
    18 #ifdef FORTRAN_UNDERSCORE_PREFIX
    19 #ifdef FORTRAN_DOUBLE_UNDERSCORE_SUFFIX
    20 #ifdef FORTRAN_UPPERCASE
    21 #define fslaAoppa _SLA_AOPPA__
    22 #define fslaAopqk _SLA_AOPQK__
    23 #define fslaOapqk _SLA_OAPQK__
    24 #define fslaAirmas _SLA_AIRMAS__
    25 #else
    26 #define fslaAoppa _sla_aoppa__
    27 #define fslaAopqk _sla_aopqk__
    28 #define fslaOapqk _sla_oapqk__
    29 #define fslaAirmas _sla_airmas__
    30 #endif
    31 #elif FORTRAN_NO_UNDERSCORE_SUFFIX
    32 #ifdef FORTRAN_UPPERCASE
    33 #define fslaAoppa _SLA_AOPPA
    34 #define fslaAopqk _SLA_AOPQK
    35 #define fslaOapqk _SLA_OAPQK
    36 #define fslaAirmas _SLA_AIRMAS
    37 #else
    38 #define fslaAoppa _sla_aoppa
    39 #define fslaAopqk _sla_aopqk
    40 #define fslaOapqk _sla_oapqk
    41 #define fslaAirmas _sla_airmas
    42 #endif
    43 #else
    44 #ifdef FORTRAN_UPPERCASE
    45 #define fslaAoppa _SLA_AOPPA_
    46 #define fslaAopqk _SLA_AOPQK_
    47 #define fslaOapqk _SLA_OAPQK_
    48 #define fslaAirmas _SLA_AIRMAS_
    49 #else
    50 #define fslaAoppa _sla_aoppa_
    51 #define fslaAopqk _sla_aopqk_
    52 #define fslaOapqk _sla_oapqk_
    53 #define fslaAirmas _sla_airmas_
    54 #endif
    55 #endif
    56 #else
    57 #ifdef FORTRAN_DOUBLE_UNDERSCORE_SUFFIX
    58 #ifdef FORTRAN_UPPERCASE
    59 #define fslaAoppa SLA_AOPPA__
    60 #define fslaAopqk SLA_AOPQK__
    61 #define fslaOapqk SLA_OAPQK__
    62 #define fslaAirmas SLA_AIRMAS__
    63 #else
    64 #define fslaAoppa sla_aoppa__
    65 #define fslaAopqk sla_aopqk__
    66 #define fslaOapqk sla_oapqk__
    67 #define fslaAirmas sla_airmas__
    68 #endif
    69 #elif FORTRAN_NO_UNDERSCORE_SUFFIX
    70 #ifdef FORTRAN_UPPERCASE
    71 #define fslaAoppa SLA_AOPPA
    72 #define fslaAopqk SLA_AOPQK
    73 #define fslaOapqk SLA_OAPQK
    74 #define fslaAirmas SLA_AIRMAS
    75 #else
    76 #define fslaAoppa sla_aoppa
    77 #define fslaAopqk sla_aopqk
    78 #define fslaOapqk sla_oapqk
    79 #define fslaAirmas sla_airmas
    80 #endif
    81 #else
    82 #ifdef FORTRAN_UPPERCASE
    83 #define fslaAoppa SLA_AOPPA_
    84 #define fslaAopqk SLA_AOPQK_
    85 #define fslaOapqk SLA_OAPQK_
    86 #define fslaAirmas SLA_AIRMAS_
    87 #else
    88 #define fslaAoppa sla_aoppa_
    89 #define fslaAopqk sla_aopqk_
    90 #define fslaOapqk sla_oapqk_
    91 #define fslaAirmas sla_airmas_
    92 #endif
    93 #endif
    94 #endif
    9518
     19#define fslaAoppa F77_FUNC(sla_aoppa,SLA_AOPPA)
    9620extern void fslaAoppa(
    9721        const double* date,
    … …  
    11034    );
    11135
     36#define fslaAopqk F77_FUNC(sla_aopqk,SLA_AOPQK)
    11237extern void fslaAopqk(
    11338        const double* RAP,
    … …  
    12146    );
    12247
     48#define fslaOapqk F77_FUNC(sla_oapqk,SLA_OAPQK)
    12349extern void fslaOapqk(
    12450        char* TYPE,
    … …  
    13056    );
    13157
     58#define fslaAirmas F77_FUNC(sla_airmas,SLA_AIRMAS)
    13259extern double fslaAirmas(
    13360        const double* zenithDistance
Note: See TracChangeset for help on using the changeset viewer.