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

• esolan.f (modified) (1 diff)

esolan.f

@@ -130 +130 @@
      &   +(zold(j)-zold(i))**2! Distance between atom i and j
        if(ddp.lt.1e-10) then
-         write(*,*)'ERROR in data: centres of two atoms coincide!'
-         write(*,*)i,j,xold(i),yold(i),zold(i),rvdw(i),
+         write (logString, *)
+     &      'ERROR in data: centres of two atoms coincide!'
+         write (logString, *)i,j,xold(i),yold(i),zold(i),rvdw(i),
      &                   xold(j),yold(j),zold(j),rvdw(j)
          stop 'Centres of atoms coincide!'