Changeset 38d77eb for main_p.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:

• main_p.f (modified) (7 diffs)

main_p.f

@@ -151 +151 @@
          call mpi_group_range_incl(group_world, 1, proc_range, group(i)
      &                              ,error)
-         write (*,*) "Assigning rank ", j, proc_range,
+         write (logString, *) "Assigning rank ", j, proc_range,
      &               "to group", group(i)
          call flush(6)
@@ -162 +162 @@
              my_mpi_comm = comm(i)
              rep_id = i - 1
-             write (*,*) rep_id, "has comm", my_mpi_comm
+             write (logString, *) rep_id, "has comm", my_mpi_comm
              call flush(6)
          endif
@@ -168 +168 @@
 
 !     Setup the communicator used for parallel tempering
-      write (*,*) "PTGroup=", ranks(:num_replica)
+      write (logString, *) "PTGroup=", ranks(:num_replica)
       call flush(6)
       call mpi_group_incl(group_world, num_replica, ranks, group_partem,
@@ -176 +176 @@
 
       if (partem_comm.ne.MPI_COMM_NULL) then
-         write (*,*) partem_comm,myrank, "is master for ", rep_id, "."
+         write (logString, *) partem_comm,myrank, "is master for ", 
+     &      rep_id, "."
       endif
 
@@ -182 +183 @@
       call mpi_comm_size(my_mpi_comm,no,ierr)
 
-      write (*,*) "My new rank is ", myrank, "of", no
+      write (logString, *) "My new rank is ", myrank, "of", no
       call flush(6)
 ! = Done setting up communicators =====================================
@@ -220 +221 @@
 
 !     ========================================  start of parallel tempering run
-      write (*,*) "There are ", no,
+      write (logString, *) "There are ", no,
      &            " processors available for ",rep_id
       call flush(6)
@@ -234 +235 @@
 
       if(my_pt_rank.eq.0) then
-         write(*,*) "time for simulation using ", num_proc,
+         write (logString, *) "time for simulation using ", num_proc,
      &        " processors =",  endwtime - startwtime, " seconds"
          call flush(6)