IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Changeset 1523


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

made single underscore for fortran functions the default.

Location:
trunk/psLib/src
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/psLib/src/Makefile.Globals

    r1521 r1523  
    55##  Assumptions:    Variable "prefix" already defined
    66##
    7 ##  $Revision: 1.15 $  $Name: not supported by cvs2svn $
    8 ##  $Date: 2004-08-13 00:12:00 $
     7##  $Revision: 1.16 $  $Name: not supported by cvs2svn $
     8##  $Date: 2004-08-13 00:46:18 $
    99##
    1010##  Copyright 2004 Maui High Performance Computing Center, University of Hawaii
    … …  
    4242# Set initial value for CFLAGS which will include all OS common flags for GCC
    4343
    44 CFLAGS := -O0 -g2 -Wall -Werror -std=c99 -D_GNU_SOURCE -DFORTRAN_UNDERLINE_SUFFIX -pipe
     44CFLAGS := -O0 -g2 -Wall -Werror -std=c99 -D_GNU_SOURCE -pipe
    4545
    4646ifdef NO_TRACE

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

    r1522 r1523  
    77*  @author Robert DeSonia, MHPCC
    88*
    9 *  @version $Revision: 1.3 $ $Name: not supported by cvs2svn $
    10 *  @date $Date: 2004-08-13 00:16:03 $
     9*  @version $Revision: 1.4 $ $Name: not supported by cvs2svn $
     10*  @date $Date: 2004-08-13 00:46:18 $
    1111*
    1212*  Copyright 2004 Maui High Performance Computing Center, University of Hawaii
    … …  
    1616#define SLALIB_H
    1717
    18 #ifdef FORTRAN_UNDERLINE_SUFFIX
     18#ifdef FORTRAN_DOUBLE_UNDERSCORE_SUFFIX
     19#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#elseif FORTRAN_NO_UNDERSCORE_SUFFIX
     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
     37#endif
     38#else
    1939#ifdef FORTRAN_UPPERCASE
    2040#define slaAoppa SLA_AOPPA_
    … …  
    2545#define slaAopqk sla_aopqk_
    2646#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
    3747#endif
    3848#endif
Note: See TracChangeset for help on using the changeset viewer.