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

• init_energy.f (modified) (3 diffs)

init_energy.f

@@ -66 +66 @@
 
 !----Initialize solvation part if necessary
-      write (*,*) 'init_energy: itysol = ',itysol
-      write(*,*) 'init_energy: esol_scaling = ',isolscl
+      write (logString, *) 'init_energy: itysol = ',itysol
+      write (logString, *) 'init_energy: esol_scaling = ',isolscl
 
       its = iabs(itysol)
@@ -82 +82 @@
 
         if (itysol.ne.0) then
-          write(*,'(a)') ' init_energy>  undefined solvent type !'
+          write (logString, '(a)') 
+     &      ' init_energy>  undefined solvent type !'
           stop
         endif
@@ -96 +97 @@
       return
 
- 10   write (*, '(a)') 'Cannot open the file with surface points'
+ 10   write (logString,  '(a)') 
+     &   'Cannot open the file with surface points'
       stop