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

[cig_noreply at geodynamics.org]

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

On branch  : devel
Link       : https://github.com/geodynamics/specfem3d/compare/858a86e5e8e4c076696d24c8c9942e93d3d663cb...7ef78c5b45b052afca446255945d0c62788f8e93

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

commit d04b5f02e6304aecc548eed3b8fabc5be11c4cc7
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


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

d04b5f02e6304aecc548eed3b8fabc5be11c4cc7
 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