Changeset 1808 for palm/trunk/SOURCE/cpulog.f90

Timestamp:

Apr 5, 2016 7:44:00 PM (8 years ago)

Author:

raasch

Message:

preprocessor directives using machine dependent flags (lc, ibm, etc.) mostly removed from the code

File:

• palm/trunk/SOURCE/cpulog.f90 (modified) (3 diffs)

palm/trunk/SOURCE/cpulog.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! cpu measurements are done with standard FORTRAN routine on every machine
 ! 
 ! Former revisions:
@@ -182 +182 @@
        TYPE(logpoint)    ::  log_event          !< 
 
-#if defined( __lc ) || defined( __decalpha )
        INTEGER(idp)     ::  count        !< 
        INTEGER(idp)     ::  count_rate   !< 
-#elif defined( __nec )
-       INTEGER(iwp)      ::  count       !< 
-       INTEGER(iwp)      ::  count_rate  !< 
-#elif defined( __ibm )
-       INTEGER(idp)     ::  IRTC         !< 
-#endif
 
 
@@ -224 +217 @@
 !
 !--    Take current time
-#if defined( __lc ) || defined( __decalpha ) || defined( __nec )
        CALL SYSTEM_CLOCK( count, count_rate )
        mtime = REAL( count, KIND=wp ) / REAL( count_rate, KIND=wp )
-#elif defined( __ibm )
-       mtime = IRTC( ) * 1E-9_wp
-#else
-       message_string = 'no time measurement defined on this host'
-       CALL message( 'cpu_log', 'PA0175', 1, 2, 0, 6, 0 )
-#endif
 
 !