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

• opereg.f (modified) (3 diffs)

opereg.f

@@ -54 +54 @@
       ntlvr=nvrml(nml)
       if (ntlvr.eq.0) then
-        write (*,'(a,i4)')
+        write (logString, '(a,i4)')
      &           ' opereg> No variables defined in molecule #',nml
         return
@@ -330 +330 @@
         gdn = ( enyreg(nml) - eyrg ) / del
 
-        write (*,*) ' Gb. var #',(ii+i),': ',gdeygb(ii+i),gdn,
+        write (logString, *) ' Gb. var #',(ii+i),': ',gdeygb(ii+i),gdn,
      &                                   abs(gdn-gdeygb(ii+i))
 ! ----------------------------- restore
@@ -382 +382 @@
       gda=gdeyrg(iv)         ! analytical der.
 
-      write (*,'(1x,2a,2(e12.6,a))') nmvr(iv),': ',gda,' (',
+      write (logString, '(1x,2a,2(e12.6,a))') nmvr(iv),': ',gda,' (',
      &       abs(gda-gdn),')'