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

• redseq.f (modified) (9 diffs)

redseq.f

@@ -36 +36 @@
 
       if (iopfil(lunseq,seqfil,'old','formatted').le.izero) then
-        write (*,'(a,/,a,i3,2a)') 
+        write (logString, '(a,/,a,i3,2a)') 
      &    ' redseq> ERROR opening sequence file:',
      &      ' LUN=',lunseq,' FILE=',seqfil(1:iendst(seqfil))
@@ -67 +67 @@
 
             if ((nrs-irsml1(ntlml)+1).eq.0) then
-              write(*,'(2a)') ' redseq> IGNORE molecule: ',
+              write (logString, '(2a)') ' redseq> IGNORE molecule: ',
      &                        nmml(ntlml)(1:iendst(nmml(ntlml)))
               ntlml=ntlml-1
@@ -74 +74 @@
           ntlml=ntlml+1
           if (ntlml.gt.mxml) then
-            write(*,'(a,i4,2a)')' redseq> NUMBER of molecules > '
+            write (logString, '(a,i4,2a)') 
+     &                          ' redseq> NUMBER of molecules > '
      &                          ,mxml,' in ',seqfil(1:iendst(seqfil))
             close(lunseq)
@@ -124 +125 @@
 
           if (id.gt.4) then
-            write (*,'(4a)') ' redseq> INVALID residue NAME >',
+            write (logString, '(4a)') ' redseq> INVALID residue NAME >',
      &                       line(ib:ii),'< in ',
      &      seqfil(1:iendst(seqfil))
@@ -133 +134 @@
             nrs=nrs+1
             if (nrs.gt.mxrs) then
-              write(*,'(a,i4,2a)') ' redseq> NUMBER of residues > '
+              write (logString, '(a,i4,2a)') 
+     &                       ' redseq> NUMBER of residues > '
      &                       ,mxrs,' in ',seqfil(1:iendst(seqfil))
               close(lunseq)
@@ -162 +164 @@
 
       if (nrs.eq.0) then
-        write (*,'(2a)') ' redseq> no residues found in ',
+        write (logString, '(2a)') ' redseq> no residues found in ',
      &                   seqfil(1:iendst(seqfil))
         stop
@@ -179 +181 @@
           if (i.eq.ntlml) then   ! Check last molecule
             if ((nrs-ifirs+1).eq.0) then
-              write(*,'(2a)') ' redseq> IGNORE molecule '
+              write (logString, '(2a)') ' redseq> IGNORE molecule '
      &                        ,nmml(ntlml)(1:iendst(nmml(ntlml)))
               ntlml=ntlml-1
               if (ntlml.eq.0) then
-                write (*,'(2a)') ' redseq> no residues found in ',
-     &          seqfil(1:iendst(seqfil))
+                write (logString, '(2a)') 
+     &             ' redseq> no residues found in ',
+     &             seqfil(1:iendst(seqfil))
                 stop
               endif
@@ -192 +195 @@
           endif
 
-!          write (*,'(/,a,i4,2a)') ' redseq> ',irsml2(i)-irsml1(i)+1,
+!          write (logString, '(/,a,i4,2a)') ' redseq> ',irsml2(i)-irsml1(i)+1,
 !     &           ' residue(s) in molecule: ',
 !     &           nmml(i)(1:iendst(nmml(i)))
-!          write (*,'(15(1x,a))') (seq(j),j=irsml1(i),irsml2(i))
+!          write (logString, '(15(1x,a))') (seq(j),j=irsml1(i),irsml2(i))
 
         enddo
@@ -203 +206 @@
 ! _______________________________________________ error
 
-    4 write (*,'(a,i4,2a)') ' redseq> ERROR reading line No. ',nln,
+    4 write (logString, '(a,i4,2a)') ' redseq> ERROR reading line No. ',nln,
      & ' in ',seqfil(1:iendst(seqfil))
       close(lunseq)