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/cpu_log.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:
     
    3435    TYPE(logpoint)              ::  log_event
    3536
    36 #if defined( __lcmuk ) || defined( __lctit ) || defined( __hpmuk ) || defined( __decalpha ) || defined( __nec )
     37#if defined( __lc ) || defined( __decalpha ) || defined( __nec )
    3738    INTEGER                     ::  count, count_rate
    3839#elif defined( __ibm )
    3940    INTEGER(8)                  ::  IRTC
    40 #elif defined( __t3eb )
    41     REAL                        ::  TIMEF
    4241#endif
    4342
     
    5756!
    5857!-- Take current time
    59 #if defined( __lcmuk ) || defined( __lctit ) || defined( __hpmuk ) || defined( __decalpha ) || defined( __nec )
     58#if defined( __lc ) || defined( __decalpha ) || defined( __nec )
    6059    CALL SYSTEM_CLOCK( count, count_rate )
    6160    mtime = REAL( count ) / REAL( count_rate )
    6261#elif defined( __ibm )
    6362    mtime = IRTC( ) * 1E-9
    64 !#elif defined( __vpp )
    65 !    CALL CLOCKV ( mtimevec, mtime, 0, 2 )
    66 #elif defined( __t3eb ) || defined( __t3eh ) || defined( __t3ej2 ) || defined( __t3ej5 )
    67 #if defined( __parallel )
    68     IF ( .NOT. PRESENT( barrierwait ) )  THEN
    69        CALL MPI_BARRIER( comm2d, ierr )
    70        CONTINUE
    71     ENDIF
    72 #endif
    73     mtime = TIMEF( )
    74     mtime = mtime * 0.001
    7563#else
    7664    IF ( myid == 0 )  THEN
Note: See TracChangeset for help on using the changeset viewer.