Changeset 38d77eb for utilities.f

Timestamp:

11/19/09 11:29:48 (14 years ago)

Author:

baerbaer <baerbaer@…>

Branches:

master

Children:

7137e5d

Parents:

32289cd

Message:

Redirected standard out to logString.

SMMP produced a lot of log messages. This became an issue when run in massively
parallel environments. I replaced all writes to standard out to a write to logString.
The next step is to pass this string to a function that writes the messages to a log
file according to their importance and the chosen log level.

git-svn-id: ​svn+ssh://svn.berlios.de/svnroot/repos/smmp/trunk@34 26dc1dd8-5c4e-0410-9ffe-d298b4865968

File:

• utilities.f (modified) (3 diffs)

utilities.f

@@ -66 +66 @@
       end do
       ipps = isum / num_ppr
-      write (*,*) "Total number of interactions:", isum
-      write (*,*) "Average # of interactions per processor", ipps
+      write (logString, *) "Total number of interactions:", isum
+      write (logString, *) "Average # of interactions per processor", 
+     &   ipps
 
       totalct = 0
@@ -101 +102 @@
      &            .lt.abs(totalct + isum - itarget))) then
                workPerProcessor(nml, irank) = io + 1
-!                write (*,*) io + 1, totalct, itarget
+!                write (logString, *) io + 1, totalct, itarget
             else
                workPerProcessor(nml, irank) = io
-!                write (*,*) io, totalct + isum, itarget
+!                write (logString, *) io, totalct + isum, itarget
             end if
             irank = irank + 1
@@ -127 +128 @@
 !     rank = 11
 !     fileName = fileNameMP('base_0000.dat', 6, 9, rank)
-!     write (*,*), fileName
+!     write (logString, *), fileName
 !     \endcode
 !     will output base_0011.dat.