Changeset 82 for palm/trunk/SOURCE/local_tremain.f90
- Timestamp:
- Apr 16, 2007 3:40:52 PM (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/local_tremain.f90
r4 r82 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! 6 ! Preprocessor strings for different linux clusters changed to "lc", 7 ! preprocessor directives for old systems removed 7 8 ! 8 9 ! Former revisions: … … 30 31 31 32 REAL :: remaining_time 32 !#if defined( __vpp )33 ! REAL :: cpu_time_used, rdum34 !#endif35 33 #if defined( __ibm ) 36 34 INTEGER(8) :: IRTC 37 35 REAL :: actual_wallclock_time 38 #elif defined( __lc tit)36 #elif defined( __lc ) 39 37 INTEGER :: count, count_rate 40 38 REAL :: actual_wallclock_time 41 39 #endif 42 40 43 #if defined( __ t3eh ) || defined( __t3eb ) || defined( __t3ej2 ) || defined( __t3ej5)41 #if defined( __ibm ) 44 42 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_used51 52 #elif defined( __ibm )53 54 ! CALL SYSTEM_CLOCK( count, count_rate )55 ! actual_wallclock_time = REAL( count ) / REAL( count_rate )56 43 actual_wallclock_time = IRTC( ) * 1E-9 57 44 remaining_time = maximum_cpu_time_allowed - & 58 45 ( actual_wallclock_time - initial_wallclock_time ) 59 46 60 #elif defined( __lc tit)47 #elif defined( __lc ) 61 48 62 49 CALL SYSTEM_CLOCK( count, count_rate )
Note: See TracChangeset
for help on using the changeset viewer.