[cig-commits] [commit] master: increase accuracy of .ned files. (d0d8529)

[cig_noreply at geodynamics.org]

Repository : https://github.com/geodynamics/relax

On branch  : master
Link       : https://github.com/geodynamics/relax/compare/196ac0b9d49f79f91757c5f5d312afe75c3f17e7...293b281689facd77a00ce8ffa744eb7e8e21339e

>---------------------------------------------------------------

commit d0d8529ff864665823f296023e3496a9193d9425
Author: Sylvain Barbot <sbarbot at ntu.edu.sg>
Date:   Fri Jan 23 16:45:10 2015 +0800

    increase accuracy of .ned files.


>---------------------------------------------------------------

d0d8529ff864665823f296023e3496a9193d9425
 src/export.f90 | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/export.f90 b/src/export.f90
index 22b1a21..cdf3210 100644
--- a/src/export.f90
+++ b/src/export.f90
@@ -471,11 +471,11 @@ CONTAINS
     n=SIZE(ptsname)
 
     DO k=1,n
-       file1=wdir(1:i-1) // "/" // ptsname(k) // ".txt"
+       file1=wdir(1:i-1) // "/" // ptsname(k) // ".ned"
        IF (isnew) THEN
           OPEN (UNIT=15,FILE=file1,IOSTAT=iostatus,FORM="FORMATTED")
-          WRITE (15,'("#         t         u1         u2         u3        ", &
-                    & "s11        s12        s13        s22        s23        s33")')
+          WRITE (15,'("#          t          u1          u2          u3         ", &
+                    & "s11         s12         s13         s22         s23         s33")')
        ELSE
           OPEN (UNIT=15,FILE=file1,POSITION="APPEND",&
                IOSTAT=iostatus,FORM="FORMATTED")
@@ -508,7 +508,7 @@ CONTAINS
        x1=x1+x0
        x2=x2+y0
 
-       WRITE (15,'(13ES11.3E2)') time,v1,v2,v3, &
+       WRITE (15,'(14ES11.4E2)') time,v1,v2,v3, &
                                  lsig%s11,lsig%s12,lsig%s13, &
                                  lsig%s22,lsig%s23,lsig%s33
        CLOSE(15)