Changeset 38d77eb for nursvr.f


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed

  • nursvr.f

    r32289cd r38d77eb  
    3333      enddo
    3434
    35       write (*,'(a,i5)') ' nursvr > Cannot find variable # ',ivr
     35      write (logString, '(a,i5)') ' nursvr > Cannot find variable # '
     36     &   ,ivr
    3637      stop
    3738
    … …  
    7071      enddo
    7172
    72       write (*,'(a,i5)') ' nursat > Cannot find atom # ',iat
     73      write (logString, '(a,i5)') ' nursat > Cannot find atom # ',iat
    7374      stop
    7475
Note: See TracChangeset for help on using the changeset viewer.