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

• mincjg.f (modified) (5 diffs)

mincjg.f

@@ -57 +57 @@
      &          d(mxn),xa(mxn),ga(mxn),dt(mxn),yt(mxn),gt(mxn)
 
-
+      character(255) logString
+      
       ier = 0
       iter = 0
@@ -93 +94 @@
 
       if ( gdit .ge. 0.d0 ) then
-        write(*,*) ' mincjg>  search direction is uphill'
+        write (logString, *) ' mincjg>  search direction is uphill'
         ier = 3
         goto 6
@@ -162 +163 @@
 
           ier=2
-          write(*,*) ' mincjg>  too small step in search direction'
+          write (logString, *) 
+     &       ' mincjg>  too small step in search direction'
         endif
 
@@ -230 +232 @@
       if ( iter .ge. (iterfm + MXFCON) ) then
         ier = 4
-        write(*,*) ' mincjg>  line search failed to reduce function'
+        write (logString, *) 
+     &    ' mincjg>  line search failed to reduce function'
         return
       endif
@@ -304 +307 @@
       call move(nfun,n,f,x,g)
 
-      write(*,*) ' mincjg> ier = ',ier
+      write (logString, *) ' mincjg> ier = ',ier
 
       return