[cig-commits] [commit] devel, master: Use real(.., kind=CUSTOM_REAL) for type conversion. (a9fd39a)

[cig_noreply at geodynamics.org]

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

On branches: devel,master
Link       : https://github.com/geodynamics/specfem3d_globe/compare/bc58e579b3b0838a0968725a076f5904845437ca...be63f20cbb6f462104e949894dbe205d2398cd7f

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

commit a9fd39ab1b7e1c00a720c7a0da1295afa5d66b43
Author: Elliott Sales de Andrade <esalesde at physics.utoronto.ca>
Date:   Sat May 31 02:48:37 2014 -0400

    Use real(..,kind=CUSTOM_REAL) for type conversion.
    
    There are several cases of:
    
        if (CUSTOM_REAL == SIZE_REAL) then
        ! do stuff
        result = sngl(...)
        else
        ! do stuff
        result = ...
        endif
    
    which causes type conversion warnings for the latter half. It is much
    simpler to use the kind argument to the real() intrinsic. This fixes the
    warning and means that the code doesn't need to be written twice.


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

a9fd39ab1b7e1c00a720c7a0da1295afa5d66b43
 src/meshfem3D/assemble_MPI_central_cube_mesh.f90   |  45 +-
 src/meshfem3D/calc_jacobian.f90                    |  45 +-
 src/meshfem3D/create_MPI_interfaces.f90            |  12 +-
 src/meshfem3D/create_mass_matrices.f90             | 187 ++------
 src/meshfem3D/get_MPI_interfaces.f90               |  12 +-
 src/meshfem3D/get_jacobian_boundaries.f90          |  15 +-
 src/meshfem3D/get_model.f90                        | 197 +++-----
 src/meshfem3D/meshfem3D_models.f90                 |  33 +-
 src/meshfem3D/save_arrays_solver.f90               |  18 +-
 src/meshfem3D/save_arrays_solver_adios.F90         |  18 +-
 src/shared/rthetaphi_xyz.f90                       |  52 +--
 src/specfem3D/compute_add_sources.f90              |  12 +-
 src/specfem3D/compute_arrays_source.f90            |  44 +-
 src/specfem3D/compute_element.F90                  | 500 +++++++++------------
 .../compute_forces_acoustic_calling_routine.F90    |  31 +-
 .../compute_forces_crust_mantle_noDev.f90          |  80 +---
 src/specfem3D/compute_forces_inner_core_Dev.F90    |  79 +---
 src/specfem3D/compute_forces_inner_core_noDev.f90  |  80 +---
 src/specfem3D/compute_forces_outer_core_Dev.F90    |  28 +-
 src/specfem3D/compute_forces_outer_core_noDev.f90  |  17 +-
 src/specfem3D/compute_seismograms.f90              |  41 +-
 src/specfem3D/define_derivation_matrices.f90       |  75 +---
 src/specfem3D/get_attenuation.f90                  |  21 +-
 src/specfem3D/initialize_simulation.f90            |   8 +-
 src/specfem3D/prepare_timerun.f90                  |  96 +---
 src/specfem3D/save_kernels.f90                     |   9 +-
 src/specfem3D/write_movie_volume.f90               |   6 +-
 src/specfem3D/write_output_ASCII.f90               |  12 +-
 src/specfem3D/write_output_SAC.f90                 |   6 +-
 src/specfem3D/write_seismograms.f90                |   7 +-
 30 files changed, 541 insertions(+), 1245 deletions(-)

Diff suppressed because of size. To see it, use:

    git diff-tree --root --patch-with-stat --no-color --find-copies-harder --ignore-space-at-eol --cc a9fd39ab1b7e1c00a720c7a0da1295afa5d66b43