[cig-commits] [commit] devel: Adds CUSTOM_REAL to arguments to pass double precision test (8b76757)

[cig_noreply at geodynamics.org]

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

On branch  : devel
Link       : https://github.com/geodynamics/specfem3d/compare/9473eea83e6cad4b6bd8adbaee3e9c074ce3b975...95b31791a026eedc69a0970b245c691394cfbc71

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

commit 8b767571e0a84dbb858acf291d9a34893afcf1a9
Author: Matthieu Lefebvre <ml15 at princeton.edu>
Date:   Thu Oct 2 16:26:44 2014 -0400

    Adds CUSTOM_REAL to arguments to pass double precision test


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

8b767571e0a84dbb858acf291d9a34893afcf1a9
 src/generate_databases/model_sep.f90 | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/generate_databases/model_sep.f90 b/src/generate_databases/model_sep.f90
index 5d91413..65e9103 100644
--- a/src/generate_databases/model_sep.f90
+++ b/src/generate_databases/model_sep.f90
@@ -201,12 +201,13 @@ end subroutine read_sep_binary_mpiio
 subroutine interpolate_sep_on_mesh(sep_var, xmin, ymin, ni, nj, NZ, &
                                    DX, DY, DZ, var)
   use generate_databases_par, only: NGLLX, NGLLY, NGLLZ, NSPEC=>NSPEC_AB, &
-                                    ibool, xstore, ystore, zstore
+                                    ibool, xstore, ystore, zstore, &
+                                    CUSTOM_REAL
   !--- Parameters
   real(kind=4), dimension(:,:,:), intent(in) :: sep_var 
   real, intent(in) :: xmin, ymin, DX, DY, DZ
   integer, intent(in) :: ni, nj, NZ
-  real, dimension(:,:,:,:) :: var
+  real(kind=CUSTOM_REAL), dimension(:,:,:,:) :: var
   !--- Variables
   integer :: iglob, i_target, j_target, k_target
   integer :: ispec, i, j, k