[cig-commits] commit: Remove unused FORMAT's and explicitly cast to single precision.
Mercurial
hg at geodynamics.org
Thu May 10 13:59:39 PDT 2012
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
More information about the CIG-COMMITS
mailing list