[cig-commits] commit: Remove unused FORMAT's and explicitly cast to single precision.

[Mercurial]

changeset:   93:f91bf92135c0
user:        Walter Landry <wlandry at caltech.edu>
date:        Thu May 10 07:08:47 2012 -0700
files:       src/relax.f90
description:
Remove unused FORMAT's and explicitly cast to single precision.


diff -r 297ad7bbcfa6 -r f91bf92135c0 src/relax.f90
--- a/src/relax.f90	Thu May 10 07:07:30 2012 -0700
+++ b/src/relax.f90	Thu May 10 07:08:47 2012 -0700
@@ -687,9 +687,9 @@ PROGRAM relax
 
 #ifdef VTK
      IF (in%isoutputvtkrelax) THEN
-        u1r=u1r+Dt*v1
-        u2r=u2r+Dt*v2
-        u3r=u3r+Dt*v3 
+        u1r=REAL(u1r+Dt*v1)
+        u2r=REAL(u2r+Dt*v2)
+        u3r=REAL(u3r+Dt*v3) 
      END IF
 #endif
 
@@ -924,10 +924,8 @@ 100 CONTINUE
 #endif
 
 0990 FORMAT (" I  |   Dt   | tm(ve) | tm(pl) | tm(as) |     t/tmax     | power  |  C:E^i | ")
-1000 FORMAT (I3.3,"*",ES9.2E2,"                            ",ES9.2E2,"/",ES7.2E1)
 1100 FORMAT (I3.3," ",ES9.2E2,3ES9.2E2,ES9.2E2,"/",ES7.2E1,2ES9.2E2)
 1101 FORMAT (I3.3,"*",ES9.2E2,3ES9.2E2,ES9.2E2,"/",ES7.2E1,2ES9.2E2)
-1200 FORMAT ("----------------------------------------------------------------------------")
 
 CONTAINS