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

• minqsn.f (modified) (3 diffs)

minqsn.f

@@ -66 +66 @@
       integer ir
 
-
+      character(255) logString
+      
       parameter ( eps1=0.1d0,
      &            eps2=0.7d0,
@@ -142 +143 @@
 
     3 if (nfun.ge.maxfun) then
-!c        write (*,*) ' minfor> exceeded max. number of function calls'
+!c        write (logString, *) ' minfor> exceeded max. number of function calls'
         return
       endif
@@ -224 +225 @@
             goto 2
           else               ! rank of new matrix is deficient
-            write (*,*) ' minfor> rank of hessian < number of variables'
+            write (logString, *) 
+     &       ' minfor> rank of hessian < number of variables'
             return
           endif