[cig-commits] r17195 - seismo/3D/SPECFEM3D/trunk

[pieyre at geodynamics.org]

Author: pieyre
Date: 2010-09-15 05:43:49 -0700 (Wed, 15 Sep 2010)
New Revision: 17195

Modified:
   seismo/3D/SPECFEM3D/trunk/combine_vol_data.f90
Log:
minor fix to be able to compile combine_vol_data.f90 with gfortran


Modified: seismo/3D/SPECFEM3D/trunk/combine_vol_data.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/combine_vol_data.f90	2010-09-15 10:40:50 UTC (rev 17194)
+++ seismo/3D/SPECFEM3D/trunk/combine_vol_data.f90	2010-09-15 12:43:49 UTC (rev 17195)
@@ -40,7 +40,7 @@
   include 'constants.h'
 
   ! data must be of dimension: (NGLLX,NGLLY,NGLLZ,NSPEC_AB)
-  real(kind=CUSTOM_REAL),dimension(:,:,:,:),allocatable :: data
+  double precision,dimension(:,:,:,:),allocatable :: data
   ! real array for data
   real,dimension(:,:,:,:),allocatable :: dat
   
@@ -208,7 +208,7 @@
     if( ios /= 0 ) stop 'error allocating dat array'
     
     ! uses conversion to real values
-    if( CUSTOM_REAL == 8 ) then
+    if( CUSTOM_REAL == SIZE_DOUBLE ) then
       allocate(data(NGLLX,NGLLY,NGLLZ,NSPEC_AB),stat=ios)    
       if( ios /= 0 ) stop 'error allocating data array'
       read(28) data