Changeset 38d77eb for main.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.f (modified) (2 diffs)

main.f

@@ -81 +81 @@
 
       ntlml = 0
-      write (*,*) 'Solvent: ', itysol
+      write (logString, *) 'Solvent: ', itysol
 !     Initialize random number generator.
       call sgrnd(31433)
@@ -118 +118 @@
        lrand = .true.
        E = energy()
-       write(*,*) E, eyel,eyvw,eyhb,eyvr
+       write (logString, *) E, eyel,eyvw,eyhb,eyvr
        call outpdb(1, "polyA.pdb")
 !      Canonical Monte Carlo
-!        call canon(nequi, nsweep, nmes, temp, lrand)
+       call canon(nequi, nsweep, nmes, temp, lrand)
 
 !      For simulated annealing uncomment the lines below