[cig-commits] commit: fix uninitialized variable iostat in export.f90.

[Mercurial]

changeset:   100:8078eb8cba13
parent:      98:c2f62c1937ee
user:        Sylvain Barbot <sbarbot at caltech.edu>
date:        Thu May 10 17:23:21 2012 -0700
files:       .hgignore src/export.f90
description:
fix uninitialized variable iostat in export.f90.


diff -r c2f62c1937ee -r 8078eb8cba13 .hgignore
--- a/.hgignore	Thu May 10 15:37:43 2012 -0700
+++ b/.hgignore	Thu May 10 17:23:21 2012 -0700
@@ -1,2 +1,55 @@
-.waf
-build/
\ No newline at end of file
+syntax: glob
+
+.waf-1.6.8-*
+*~
+*.o
+*.mod
+.DS_Store
+.gmtdefaults4
+.gmtcommands4
+lib*
+build/
+examples/.gmtcommands4
+examples/.gmtdefaults4
+examples/.DS_Store
+examples/tutorials/output1
+examples/tutorials/output2
+examples/tutorials/output3
+examples/tutorials/output4
+examples/mojave/coulomb
+latex/relax.aux
+latex/relax.blg
+latex/relax.log
+latex/relax.pdf
+latex/relax.synctex.gz
+latex/relax.toc
+makefile*
+examples/tibet/kokoxili/kokoxili_co
+examples/tibet/kokoxili/kokoxili_vs
+examples/tibet/kokoxili/kokoxili_vs3d
+examples/tibet/yushu/faults/fault_corners_yushu.txt
+examples/tibet/yushu/faults/fault_corners_yushu_ds.txt
+examples/tibet/yushu/faults/fault_corners_yushu_ss.txt
+examples/tibet/yushu/faults/readme.txt
+examples/tibet/yushu/faults/yushu.flt
+examples/tibet/yushu/faults/yushu.vtp
+examples/tibet/yutian/faults/fault_corners_yutian.txt
+examples/tibet/yutian/faults/fault_corners_yutian_ds.txt
+examples/tibet/yutian/faults/fault_corners_yutian_ss.txt
+examples/tibet/yutian/faults/readme.txt
+examples/newzealand/faults/fault_corners.txt
+examples/newzealand/faults/fault_corners_ch.txt
+examples/newzealand/faults/fault_corners_ch_ds.txt
+examples/newzealand/faults/fault_corners_ch_ss.txt
+examples/newzealand/faults/fault_corners_ds.txt
+examples/newzealand/faults/fault_corners_ss.txt
+examples/newzealand/faults/christchurch.flt
+examples/newzealand/faults/christchurch.vtp
+examples/newzealand/faults/darfield.flt
+examples/newzealand/faults/darfield.vtp
+examples/parkfield/parkfield_co
+examples/parkfield/parkfield_mx
+examples/parkfield/parkfield_mx_f
+examples/parkfield/parkfield_as
+examples/parkfield/parkfield_as_f
+examples/tibet/qaidam
diff -r c2f62c1937ee -r 8078eb8cba13 src/export.f90
--- a/src/export.f90	Thu May 10 15:37:43 2012 -0700
+++ b/src/export.f90	Thu May 10 17:23:21 2012 -0700
@@ -622,7 +622,7 @@ CONTAINS
 #endif
 !#_indef GRD_EXPORTEIGENSTRAIN
     CHARACTER(256) :: fn11,fn12,fn13,fn22,fn23,fn33
-    INTEGER :: j,iostat,j1,j2
+    INTEGER :: j,j1,j2
     REAL*4, ALLOCATABLE, DIMENSION(:,:) :: temp11,temp12,temp13, &
                                            temp22,temp23,temp33
     REAL*8 :: rland=9998.,rdum=9999.
@@ -671,7 +671,7 @@ CONTAINS
        fn33(j:j)=char(0)
 
        ALLOCATE(temp11(ns1,ns2),temp12(ns1,ns2),temp13(ns1,ns2), &
-                temp22(ns1,ns2),temp23(ns1,ns2),temp33(ns1,ns2),STAT=iostat)
+                temp22(ns1,ns2),temp23(ns1,ns2),temp33(ns1,ns2),STAT=iostatus)
        IF (iostatus>0) STOP "could not allocate temporary array for GRD slip export."
 
        DO j2=1,ns2
@@ -752,7 +752,7 @@ END SUBROUTINE exportplanestress
 #endif
 !#_indef GRD_EXPORTEIGENSTRAIN
     CHARACTER(256) :: outfilegrd
-    INTEGER :: j,iostat,j1,j2
+    INTEGER :: j,j1,j2
     REAL*4, ALLOCATABLE, DIMENSION(:,:) :: temp
     REAL*8 :: rland=9998.,rdum=9999.
     REAL*8 :: xmin,ymin
@@ -800,7 +800,7 @@ END SUBROUTINE exportplanestress
        j=INDEX(outfilegrd," ")
        outfilegrd(j:j)=char(0)
 
-       ALLOCATE(temp(ns1,ns2),STAT=iostat)
+       ALLOCATE(temp(ns1,ns2),STAT=iostatus)
        IF (iostatus>0) STOP "could not allocate temporary array for GRD slip export."
 
        DO j2=1,ns2