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

• dihedr.f (modified) (2 diffs)

dihedr.f

@@ -57 +57 @@
         return
       else
-        write (*,'(a,4i5)')' dihedr> Error in coordinates of atoms #: '
+        write (logString, '(a,4i5)')
+     &     ' dihedr> Error in coordinates of atoms #: '
      &                     ,i1,i2,i3,i4
 
-        write (*,*) 'stored coordinates are xvals :',
+        write (logString, *) 'stored coordinates are xvals :',
      &       xat(i1),xat(i2),xat(i3),xat(i4) 
-        write (*,*) 'yvals:', yat(i1),yat(i2),yat(i3),yat(i4) 
-        write (*,*) 'zvals:', zat(i1),zat(i2),zat(i3),zat(i4) 
+        write (logString, *) 'yvals:', yat(i1),yat(i2),yat(i3),yat(i4) 
+        write (logString, *) 'zvals:', zat(i1),zat(i2),zat(i3),zat(i4) 
         call outvar(0,'crash.var')        
         stop
@@ -110 +111 @@
 
       else
-        write (*,'(a,3i5)')' valang> Error in coordinates of atoms #: '
+        write (logString, '(a,3i5)')
+     &   ' valang> Error in coordinates of atoms #: '
      &                     ,i1,i2,i3
-        write (*,*) 'stored coordinates are xvals :',
+        write (logString, *) 'stored coordinates are xvals :',
      &       xat(i1),xat(i2),xat(i3) 
-        write (*,*) 'yvals:', yat(i1),yat(i2),yat(i3) 
-        write (*,*) 'zvals:', zat(i1),zat(i2),zat(i3) 
+        write (logString, *) 'yvals:', yat(i1),yat(i2),yat(i3) 
+        write (logString, *) 'zvals:', zat(i1),zat(i2),zat(i3) 
         call outvar(0,'crash.var') 
         stop