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

• redstr.f (modified) (3 diffs)

redstr.f

@@ -30 +30 @@
 
       character spr,blnk,str*(*),strn*(*)
+      character*255 logString
       
       data blnk/' '/
@@ -36 +37 @@
 
       if (spr.eq.blnk) then
-        write (*,*) ' extstr> Separator should not be blank'
+        write (logString, *) ' extstr> Separator should not be blank'
         stop
       endif
@@ -79 +80 @@
       return
 ! ______________________________________________________________ Error
-    1 write (*,'(a)') ' extstr> Substring to be extracted is too long !'
+    1 write (logString, '(a)') 
+     &   ' extstr> Substring to be extracted is too long !'
       stop