[cig-commits] r22404 - in seismo/3D/SPECFEM3D/trunk: src/meshfem3D src/shared utils/Visualization/Paraview

[danielpeter at geodynamics.org]

Author: danielpeter
Date: 2013-06-24 05:18:21 -0700 (Mon, 24 Jun 2013)
New Revision: 22404

Modified:
   seismo/3D/SPECFEM3D/trunk/src/meshfem3D/check_mesh_quality.f90
   seismo/3D/SPECFEM3D/trunk/src/meshfem3D/create_regions_mesh.f90
   seismo/3D/SPECFEM3D/trunk/src/meshfem3D/create_visual_files.f90
   seismo/3D/SPECFEM3D/trunk/src/shared/combine_vol_data.f90
   seismo/3D/SPECFEM3D/trunk/src/shared/write_VTK_data.f90
   seismo/3D/SPECFEM3D/trunk/utils/Visualization/Paraview/create_slice_VTK.f90
Log:
adds formatted write statements for CELL_TYPES to VTK routines

Modified: seismo/3D/SPECFEM3D/trunk/src/meshfem3D/check_mesh_quality.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/meshfem3D/check_mesh_quality.f90	2013-06-24 12:09:01 UTC (rev 22403)
+++ seismo/3D/SPECFEM3D/trunk/src/meshfem3D/check_mesh_quality.f90	2013-06-24 12:18:21 UTC (rev 22404)
@@ -392,7 +392,7 @@
 
     ! type: hexahedra
     write(66,'(a,i12)') "CELL_TYPES ",nspec
-    write(66,*) (12,ispec=1,nspec)
+    write(66,'(6i12)') (12,ispec=1,nspec)
     write(66,*) ""
 
     write(66,'(a,i12)') "CELL_DATA ",nspec

Modified: seismo/3D/SPECFEM3D/trunk/src/meshfem3D/create_regions_mesh.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/meshfem3D/create_regions_mesh.f90	2013-06-24 12:09:01 UTC (rev 22403)
+++ seismo/3D/SPECFEM3D/trunk/src/meshfem3D/create_regions_mesh.f90	2013-06-24 12:18:21 UTC (rev 22404)
@@ -425,7 +425,7 @@
       write(66,*)
       ! type: hexahedrons
       write(66,'(a,i12)') "CELL_TYPES ",nspec
-      write(66,*) (12,ispec=1,nspec)
+      write(66,'(6i12)') (12,ispec=1,nspec)
       write(66,*)
       write(66,'(a,i12)') "CELL_DATA ",nspec
       write(66,'(a)') "SCALARS elem_val float"

Modified: seismo/3D/SPECFEM3D/trunk/src/meshfem3D/create_visual_files.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/meshfem3D/create_visual_files.f90	2013-06-24 12:09:01 UTC (rev 22403)
+++ seismo/3D/SPECFEM3D/trunk/src/meshfem3D/create_visual_files.f90	2013-06-24 12:18:21 UTC (rev 22404)
@@ -150,7 +150,7 @@
 
     ! type: hexahedrons
     write(66,'(a,i12)') "CELL_TYPES ",nspec
-    write(66,*) (12,ispec=1,nspec)
+    write(66,'(6i12)') (12,ispec=1,nspec)
     write(66,*) ""
 
     write(66,'(a,i12)') "CELL_DATA ",nspec

Modified: seismo/3D/SPECFEM3D/trunk/src/shared/combine_vol_data.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/combine_vol_data.f90	2013-06-24 12:09:01 UTC (rev 22403)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/combine_vol_data.f90	2013-06-24 12:18:21 UTC (rev 22404)
@@ -350,7 +350,7 @@
   if( USE_VTK_OUTPUT) then
     ! type: hexahedrons
     write(IOVTK,'(a,i12)') "CELL_TYPES ",nee
-    write(IOVTK,*) (12,it=1,nee)
+    write(IOVTK,'(6i12)') (12,it=1,nee)
     write(IOVTK,*) ""
 
     write(IOVTK,'(a,i12)') "POINT_DATA ",npp

Modified: seismo/3D/SPECFEM3D/trunk/src/shared/write_VTK_data.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/shared/write_VTK_data.f90	2013-06-24 12:09:01 UTC (rev 22403)
+++ seismo/3D/SPECFEM3D/trunk/src/shared/write_VTK_data.f90	2013-06-24 12:18:21 UTC (rev 22404)
@@ -78,7 +78,7 @@
 
   ! type: hexahedrons
   write(IOVTK,'(a,i12)') "CELL_TYPES ",nspec
-  write(IOVTK,*) (12,ispec=1,nspec)
+  write(IOVTK,'(6i12)') (12,ispec=1,nspec)
   write(IOVTK,*) ""
 
   write(IOVTK,'(a,i12)') "CELL_DATA ",nspec
@@ -151,7 +151,7 @@
 
   ! type: hexahedrons
   write(IOVTK,'(a,i12)') "CELL_TYPES ",nspec
-  write(IOVTK,*) (12,ispec=1,nspec)
+  write(IOVTK,'(6i12)') (12,ispec=1,nspec)
   write(IOVTK,*) ""
 
   write(IOVTK,'(a,i12)') "CELL_DATA ",nspec
@@ -227,7 +227,7 @@
 
   ! type: hexahedrons
   write(IOVTK,'(a,i12)') "CELL_TYPES ",nspec
-  write(IOVTK,*) (12,ispec=1,nspec)
+  write(IOVTK,'(6i12)') (12,ispec=1,nspec)
   write(IOVTK,*) ""
 
   ! iflag field on global nodeset
@@ -318,7 +318,7 @@
 
   ! type: hexahedrons
   write(IOVTK,'(a,i12)') "CELL_TYPES ",nspec
-  write(IOVTK,*) (12,ispec=1,nspec)
+  write(IOVTK,'(6i12)') (12,ispec=1,nspec)
   write(IOVTK,*) ""
 
   ! iflag field on global nodeset
@@ -462,7 +462,7 @@
 
   ! type: hexahedrons
   write(IOVTK,'(a,i12)') "CELL_TYPES ",nspec
-  write(IOVTK,*) (12,ispec=1,nspec)
+  write(IOVTK,'(6i12)') (12,ispec=1,nspec)
   write(IOVTK,*) ""
 
   ! vector data for each cell
@@ -531,7 +531,7 @@
 
   ! type: hexahedrons
   write(IOVTK,'(a,i12)') "CELL_TYPES ",nspec
-  write(IOVTK,*) (12,ispec=1,nspec)
+  write(IOVTK,'(6i12)') (12,ispec=1,nspec)
   write(IOVTK,*) ""
 
   write(IOVTK,'(a,i12)') "CELL_DATA ",nspec

Modified: seismo/3D/SPECFEM3D/trunk/utils/Visualization/Paraview/create_slice_VTK.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/utils/Visualization/Paraview/create_slice_VTK.f90	2013-06-24 12:09:01 UTC (rev 22403)
+++ seismo/3D/SPECFEM3D/trunk/utils/Visualization/Paraview/create_slice_VTK.f90	2013-06-24 12:18:21 UTC (rev 22404)
@@ -257,7 +257,7 @@
 
   ! type: hexahedrons
   write(IOVTK,'(a,i12)') "CELL_TYPES ",nspec
-  write(IOVTK,*) (12,ispec=1,nspec)
+  write(IOVTK,'(6i12)') (12,ispec=1,nspec)
   write(IOVTK,*) ""
 
   ! writes out gll-data (velocity) for each element point