Changeset 1931 for palm/trunk/SOURCE/cpulog_mod.f90

Timestamp:

Jun 10, 2016 12:06:59 PM (8 years ago)

Author:

suehring

Message:

Rename multigrid into multigrid_noopt and multigrid_fast into multigrid, subroutines poismg is renamed into poismg_noopt and poismg_fast_mod into poismg_mod

File:

• palm/trunk/SOURCE/cpulog_mod.f90 (modified) (4 diffs)

palm/trunk/SOURCE/cpulog_mod.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! Adjustment in character length and format statement
 ! 
 ! Former revisions:
@@ -155 +155 @@
        REAL(wp)           ::  vector     !< 
        INTEGER(iwp)       ::  counts     !< 
-       CHARACTER (LEN=20) ::  place      !< 
+       CHARACTER (LEN=25) ::  place      !< 
     END TYPE logpoint
 
@@ -550 +550 @@
    101 FORMAT (/'special measures:'/ &
                &'-----------------------------------------------------------', &
-               &'--------------------')
-
-   102 FORMAT (A20,2X,F9.3,2X,F7.2,1X,I7,3(1X,F9.3))
+               &'------------------------')
+
+   102 FORMAT (A25,2X,F9.3,2X,F7.2,1X,I7,3(1X,F9.3))
    103 FORMAT (/'Barriers are set in front of collective operations')
    104 FORMAT (/'No barriers are set in front of collective operations')
@@ -560 +560 @@
    108 FORMAT ('Accelerator boards per node: ',14X,I2)
    109 FORMAT ('Accelerator boards: ',23X,I2)
-   110 FORMAT ('----------------------------------------------------------',   &
-               &'------------'//&
-               &'place:                        mean        counts      min  ', &
+   110 FORMAT ('-------------------------------------------------------------',     &
+               &'---------'//&
+               &'place:                              mean        counts      min  ',&
                &'     max       rms'/ &
-               &'                           sec.      %                sec. ', &
+               &'                                sec.      %                sec. ', &
                &'     sec.      sec.'/  &
-               &'-----------------------------------------------------------', &
-               &'-------------------')
+               &'-----------------------------------------------------------',      &
+               &'------------------------')
    111 FORMAT (/'Barriers are set at beginning (start/continue) of measurements')