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

• enysol_p.f (modified) (5 diffs)

enysol_p.f

@@ -159 +159 @@
         numbox(j)=nboxj
         if (nboxj.gt.mxbox) then
-         write(*,'(a)') 'enysol> bad mxboxe-2'
-         write(*,*) 'diagnostics ...'
-         write(*,*) 'atom ',j
-         write(*,*) 'position ',xat(j),yat(j),zat(j)
-         write(*,*) 'box indices ',mx,my,mz
-         write(*,*) 'resulting boxindex and limit ',nboxj,mxbox
+         write (logString, '(a)') 'enysol> bad mxboxe-2'
+         write (logString, *) 'diagnostics ...'
+         write (logString, *) 'atom ',j
+         write (logString, *) 'position ',xat(j),yat(j),zat(j)
+         write (logString, *) 'box indices ',mx,my,mz
+         write (logString, *) 'resulting boxindex and limit ',nboxj,
+     &      mxbox
 
          stop
@@ -195 +196 @@
       if (myrank.eq.(no - 1)) iboxmax = ncbox
       if (myrank.eq.-1) then
-         write (*,*) 'enysol> Summary:', enysolct, ncbox, boxpp,
-     &               ndx, ndy, ndz
+         write (logString, *) 'enysol> Summary:', enysolct, ncbox, 
+     &               boxpp, ndx, ndy, ndz
       endif
       do ibox = iboxmin + 1, iboxmax + 1
@@ -333 +334 @@
       call MPI_ALLREDUCE(eysl, eyslsum, 1, MPI_DOUBLE_PRECISION,
      &      MPI_SUM,my_mpi_comm, ierror)
-!       write(*,*) 'enysol>', myrank, eysl, eyslsum
+!       write (logString, *) 'enysol>', myrank, eysl, eyslsum
       tsurfres = surfres
       call MPI_ALLREDUCE(tsurfres, surfres, mxrs, MPI_DOUBLE_PRECISION,
@@ -341 +342 @@
       endwtime = MPI_Wtime()
       if (myrank.le.-1) then
-         write (*,*) 'enysol>',myrank,enysolct,
+         write (logString, *) 'enysol>',myrank,enysolct,
      &               iboxmin + 1, iboxmax + 1,
      &               endwtime - startwtime, "s"
@@ -376 +377 @@
 
       read(lin(1:5),'(i5)') npnt
-!        write(*,'(a,i5)') 'the number of points---->',npnt
+!        write (logString, '(a,i5)') 'the number of points---->',npnt
 
 !    Read the surface points