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

vorlaeufige Standalone-Version fuer Linux-Cluster

File:
1 edited

Legend:

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

    r4 r82  
    44! Actual revisions:
    55! -----------------
    6 !
     6! Preprocessor strings for different linux clusters changed to "lc",
     7! preprocessor directives for old systems removed
    78!
    89! Former revisions:
     
    3031
    3132    REAL ::  remaining_time
    32 !#if defined( __vpp )
    33 !    REAL ::  cpu_time_used, rdum
    34 !#endif
    3533#if defined( __ibm )
    3634    INTEGER(8) ::  IRTC
    3735    REAL       ::  actual_wallclock_time
    38 #elif defined( __lctit )
     36#elif defined( __lc )
    3937    INTEGER    ::  count, count_rate
    4038    REAL       ::  actual_wallclock_time
    4139#endif
    4240
    43 #if defined( __t3eh ) || defined( __t3eb ) || defined( __t3ej2 ) || defined( __t3ej5 )
     41#if defined( __ibm )
    4442
    45     CALL MPP_TREMAIN( remaining_time )
    46 
    47 !#elif defined( __vpp )
    48 !
    49 !    CALL CLOCKV( rdum, cpu_time_used, 0, 2 )
    50 !    remaining_time = maximum_cpu_time_allowed - cpu_time_used
    51 
    52 #elif defined( __ibm )
    53 
    54 !    CALL SYSTEM_CLOCK( count, count_rate )
    55 !    actual_wallclock_time = REAL( count ) / REAL( count_rate )
    5643    actual_wallclock_time = IRTC( ) * 1E-9
    5744    remaining_time = maximum_cpu_time_allowed - &
    5845                     ( actual_wallclock_time - initial_wallclock_time )
    5946
    60 #elif defined( __lctit )
     47#elif defined( __lc )
    6148
    6249    CALL SYSTEM_CLOCK( count, count_rate )
Note: See TracChangeset for help on using the changeset viewer.