Changeset 38d77eb for opeshe.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
  • opeshe.f

    r32289cd r38d77eb  
    5151      ntlvr=nvrml(nml)
    5252      if (ntlvr.eq.0) then
    53         write (*,'(a,i4)')
     53        write (logString, '(a,i4)')
    5454     &           ' opeshe> No variables defined in molecule #',nml
    5555        return
     
    377377      gda=gdeyvr(iv)         ! analytical der.
    378378
    379       write (*,'(1x,2a,2(e12.6,a))') nmvr(iv),': ',gda,' (',
     379      write (logString, '(1x,2a,2(e12.6,a))') nmvr(iv),': ',gda,' (',
    380380     &       abs(gda-gdn),')'
    381381
Note: See TracChangeset for help on using the changeset viewer.