[cig-commits] r16119 - in seismo/3D/SPECFEM3D_SESAME/tags/v1.4.4_last_BASIN/DATA: la_3D_block_harvard/la_3D_high_res la_3D_block_harvard/la_3D_medium_res moho_map

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2009-12-29 14:38:08 -0800 (Tue, 29 Dec 2009)
New Revision: 16119

Modified:
   seismo/3D/SPECFEM3D_SESAME/tags/v1.4.4_last_BASIN/DATA/la_3D_block_harvard/la_3D_high_res/read_gocad_block_extract_HR.f90
   seismo/3D/SPECFEM3D_SESAME/tags/v1.4.4_last_BASIN/DATA/la_3D_block_harvard/la_3D_medium_res/check_block_openDX_MR.f90
   seismo/3D/SPECFEM3D_SESAME/tags/v1.4.4_last_BASIN/DATA/la_3D_block_harvard/la_3D_medium_res/read_gocad_block_extract_MR.f90
   seismo/3D/SPECFEM3D_SESAME/tags/v1.4.4_last_BASIN/DATA/moho_map/plot_moho_map_openDX.f90
Log:
changed i6 to i7 everywhere


Modified: seismo/3D/SPECFEM3D_SESAME/tags/v1.4.4_last_BASIN/DATA/la_3D_block_harvard/la_3D_high_res/read_gocad_block_extract_HR.f90
===================================================================
--- seismo/3D/SPECFEM3D_SESAME/tags/v1.4.4_last_BASIN/DATA/la_3D_block_harvard/la_3D_high_res/read_gocad_block_extract_HR.f90	2009-12-29 19:26:49 UTC (rev 16118)
+++ seismo/3D/SPECFEM3D_SESAME/tags/v1.4.4_last_BASIN/DATA/la_3D_block_harvard/la_3D_high_res/read_gocad_block_extract_HR.f90	2009-12-29 22:38:08 UTC (rev 16119)
@@ -340,7 +340,7 @@
     enddo
   enddo
 
- 200 format(i6,1x,i2,' hex ',i6,1x,i6,1x,i6,1x,i6,1x,i6,1x,i6,1x,i6,1x,i6)
+ 200 format(i7,1x,i2,' hex ',i7,1x,i7,1x,i7,1x,i7,1x,i7,1x,i7,1x,i7,1x,i7)
 
 ! output AVS header for data
   write(11,*) '1 1'

Modified: seismo/3D/SPECFEM3D_SESAME/tags/v1.4.4_last_BASIN/DATA/la_3D_block_harvard/la_3D_medium_res/check_block_openDX_MR.f90
===================================================================
--- seismo/3D/SPECFEM3D_SESAME/tags/v1.4.4_last_BASIN/DATA/la_3D_block_harvard/la_3D_medium_res/check_block_openDX_MR.f90	2009-12-29 19:26:49 UTC (rev 16118)
+++ seismo/3D/SPECFEM3D_SESAME/tags/v1.4.4_last_BASIN/DATA/la_3D_block_harvard/la_3D_medium_res/check_block_openDX_MR.f90	2009-12-29 22:38:08 UTC (rev 16119)
@@ -182,7 +182,7 @@
     enddo
   enddo
 
- 200 format(i6,1x,i6,1x,i6,1x,i6,1x,i6,1x,i6,1x,i6,1x,i6)
+ 200 format(i7,1x,i7,1x,i7,1x,i7,1x,i7,1x,i7,1x,i7,1x,i7)
 
 ! output DX header for data
   write(11,*) 'attribute "element type" string "cubes"'

Modified: seismo/3D/SPECFEM3D_SESAME/tags/v1.4.4_last_BASIN/DATA/la_3D_block_harvard/la_3D_medium_res/read_gocad_block_extract_MR.f90
===================================================================
--- seismo/3D/SPECFEM3D_SESAME/tags/v1.4.4_last_BASIN/DATA/la_3D_block_harvard/la_3D_medium_res/read_gocad_block_extract_MR.f90	2009-12-29 19:26:49 UTC (rev 16118)
+++ seismo/3D/SPECFEM3D_SESAME/tags/v1.4.4_last_BASIN/DATA/la_3D_block_harvard/la_3D_medium_res/read_gocad_block_extract_MR.f90	2009-12-29 22:38:08 UTC (rev 16119)
@@ -325,7 +325,7 @@
     enddo
   enddo
 
- 200 format(i6,1x,i2,' hex ',i6,1x,i6,1x,i6,1x,i6,1x,i6,1x,i6,1x,i6,1x,i6)
+ 200 format(i7,1x,i2,' hex ',i7,1x,i7,1x,i7,1x,i7,1x,i7,1x,i7,1x,i7,1x,i7)
 
 ! output AVS header for data
   write(11,*) '1 1'

Modified: seismo/3D/SPECFEM3D_SESAME/tags/v1.4.4_last_BASIN/DATA/moho_map/plot_moho_map_openDX.f90
===================================================================
--- seismo/3D/SPECFEM3D_SESAME/tags/v1.4.4_last_BASIN/DATA/moho_map/plot_moho_map_openDX.f90	2009-12-29 19:26:49 UTC (rev 16118)
+++ seismo/3D/SPECFEM3D_SESAME/tags/v1.4.4_last_BASIN/DATA/moho_map/plot_moho_map_openDX.f90	2009-12-29 22:38:08 UTC (rev 16119)
@@ -75,7 +75,7 @@
   write(3,*) 'component "data" value 3'
   write(3,*) 'end'
 
-210 format(i6,1x,i6,1x,i6,1x,i6)
+210 format(i7,1x,i7,1x,i7,1x,i7)
 
   close(3)