Changeset 38d77eb for INCP.H

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:

• INCP.H (modified) (1 diff)

INCP.H

@@ -44 +44 @@
 !      ir=0
 !      do i=1,nchp
-!        write(*,*) ' ===== chain |',chnp(i),'|'
+!        write (logString, *) ' ===== chain |',chnp(i),'|'
 !        do j=1,nchrsp(i)
 !          ir=ir+1
-!          write(*,*) ' ----- ',rsidp(ir),' ',rsnmp(ir),' ',nrsatp(ir)
+!          write (logString, *) ' ----- ',rsidp(ir),' ',rsnmp(ir),' ',nrsatp(ir)
 !          k1=irsatp(ir)
 !          k2=k1+nrsatp(ir)-1
 !          do k=k1,k2
-!            write(*,*) ' ',noatp(k),' ',atnmp(k),' ',(xyzp(l,k),l=1,3)
+!            write (logString, *) ' ',noatp(k),' ',atnmp(k),' ',(xyzp(l,k),l=1,3)
 !          enddo
 !        enddo