[cig-commits] commit: fixes the coulomb stress output

[Mercurial]

changeset:   24:68b82ddfeb53
user:        Sylvain Barbot <sylbar.vainbot at gmail.com>
date:        Wed Aug 10 15:07:11 2011 -0700
files:       relax.f90
description:
fixes the coulomb stress output


diff -r fe7d81d9f162 -r 68b82ddfeb53 relax.f90
--- a/relax.f90	Wed Aug 10 14:28:29 2011 -0700
+++ b/relax.f90	Wed Aug 10 15:07:11 2011 -0700
@@ -412,8 +412,8 @@ PROGRAM relax
         END IF
 #endif
 #ifdef VTK
+        WRITE (digit4,'(I4.4)') oi-1
         IF (in%isoutputvtk) THEN
-           WRITE (digit4,'(I4.4)') oi-1
            filename=trim(in%wdir)//"/sigma-"//digit4//".vtk"
            title="stress tensor field"
            name="stress"