Ignore:
Timestamp:
Apr 16, 2007 3:40:52 PM (15 years ago)
Author:
raasch
Message:

vorlaeufige Standalone-Version fuer Linux-Cluster

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/local_getenv.f90

    r4 r82  
    44! Actual revisions:
    55! -----------------
    6 !
     6! Preprocessor directives for old systems removed
    77!
    88! Former revisions:
     
    2929    CHARACTER (LEN=*) ::  var, value
    3030    INTEGER           ::  ivalue, ivar
    31 #if defined( __t3eb ) || defined( __t3eh ) || defined( __t3ej2 ) || defined( __t3ej5 )
    32     INTEGER           ::  dummy
    33 #endif
    3431#if defined( __lcmuk )
    3532    INTEGER            ::  i, ia(20)
    3633#endif
    3734
    38 #if defined( __t3eb ) || defined( __t3eh ) || defined( __t3ej2 ) || defined( __t3ej5 )
    39     CALL PXFGETENV( var(1:ivar), ivar, value, ivalue, dummy )
    40     IF ( ivalue == 0 )  value = ''
    41 #else
    4235    CALL GETENV( var(1:ivar), value )
    4336    ivalue = LEN_TRIM( value )
    44 #endif
    4537
    4638#if defined( __lcmuk )  &&  defined( __parallel )
Note: See TracChangeset for help on using the changeset viewer.