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

• hbond.f (modified) (5 diffs)

hbond.f

@@ -59 +59 @@
         ntlvr=nvrml(nml)
         if (ntlvr.eq.0) then
-          write (*,'(a,i4)')
+          write (logString, '(a,i4)')
      &           ' hbond> No variables defined in molecule #',nml
           return
@@ -108 +108 @@
                     ixtyhb(ntyhb)=ixhb
                   else
-                    write(*,*) ' hbond> increase parameter MXTYHB'
+                    write (logString, *) 
+     &                    ' hbond> increase parameter MXTYHB'
                     stop
                   endif
@@ -139 +140 @@
                   ixtyhb(ntyhb)=ixhb
                 else
-                  write(*,*) ' hbond> increase parameter MXTYHB'
+                  write (logString, *) 
+     &               ' hbond> increase parameter MXTYHB'
                   stop
                 endif
@@ -158 +160 @@
 !     enddo
 
-      if (ipr.gt.0) write(*,'(1x,a,/)') ' hbond>  Hydrogen Bonds:'
+      if (ipr.gt.0) write (logString, '(1x,a,/)') 
+     &   ' hbond>  Hydrogen Bonds:'
 
       if (ntyhb.gt.0) then
@@ -287 +290 @@
       adab=valang(id,ia,ib)*crd
 
-      write(*,*) '  '
-      write(*,*) ' Dah: ',dah,' Dad: ',dad
-      write(*,*) ' Adha: ',adha,' Ahab: ',adha,' Adab: ',adab
-      write(*,*) '  '
+      write (logString, *) '  '
+      write (logString, *) ' Dah: ',dah,' Dad: ',dad
+      write (logString, *) ' Adha: ',adha,' Ahab: ',adha,' Adab: ',adab
+      write (logString, *) '  '
 
       return