[cig-commits] [commit] devel: Remove dimitrize_args subroutine. (68e4d79)
cig_noreply at geodynamics.org
cig_noreply at geodynamics.org
Mon May 26 05:40:30 PDT 2014
Repository : https://github.com/geodynamics/specfem3d
On branch : devel
Link : https://github.com/geodynamics/specfem3d/compare/2696d80a7675a7c5a89fec3acdc11ca82439a18f...1a2f0a3f482f155db8320c64b4eae070bba090a2
>---------------------------------------------------------------
commit 68e4d79757b1663d152bb1685f4bf33ddc824a49
Author: Elliott Sales de Andrade <esalesde at physics.utoronto.ca>
Date: Sat May 24 00:46:38 2014 -0400
Remove dimitrize_args subroutine.
It unfortunately does not work with ifort and -gen-interfaces.
>---------------------------------------------------------------
68e4d79757b1663d152bb1685f4bf33ddc824a49
src/auxiliaries/bypass_implicit_interface.f90 | 32 ------------------------
src/auxiliaries/combine_vol_data_adios_stubs.f90 | 15 -----------
src/auxiliaries/rules.mk | 3 +--
3 files changed, 1 insertion(+), 49 deletions(-)
diff --git a/src/auxiliaries/bypass_implicit_interface.f90 b/src/auxiliaries/bypass_implicit_interface.f90
deleted file mode 100644
index afbc672..0000000
--- a/src/auxiliaries/bypass_implicit_interface.f90
+++ /dev/null
@@ -1,32 +0,0 @@
-!=====================================================================
-!
-! S p e c f e m 3 D V e r s i o n 2 . 1
-! ---------------------------------------
-!
-! Main historical authors: Dimitri Komatitsch and Jeroen Tromp
-! Princeton University, USA
-! and CNRS / University of Marseille, France
-! (there are currently many more authors!)
-! (c) Princeton University and CNRS / University of Marseille, July 2012
-!
-! This program is free software; you can redistribute it and/or modify
-! it under the terms of the GNU General Public License as published by
-! the Free Software Foundation; either version 2 of the License, or
-! (at your option) any later version.
-!
-! This program is distributed in the hope that it will be useful,
-! but WITHOUT ANY WARRANTY; without even the implied warranty of
-! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-! GNU General Public License for more details.
-!
-! You should have received a copy of the GNU General Public License along
-! with this program; if not, write to the Free Software Foundation, Inc.,
-! 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
-!
-!=====================================================================
-
-!=============================================================================
-!> Shut down warnings, for unused arguments due to the implicit interface
-subroutine dimitrize_args()
-end subroutine
-
diff --git a/src/auxiliaries/combine_vol_data_adios_stubs.f90 b/src/auxiliaries/combine_vol_data_adios_stubs.f90
index c3b428b..5050a93 100644
--- a/src/auxiliaries/combine_vol_data_adios_stubs.f90
+++ b/src/auxiliaries/combine_vol_data_adios_stubs.f90
@@ -46,9 +46,6 @@ subroutine read_args_adios(arg, MAX_NUM_NODES, node_list, num_node, &
character(len=*) :: var_name, value_file_name, mesh_file_name, &
outdir
- call dimitrize_args(arg, MAX_NUM_NODES, node_list, num_node, &
- var_name, value_file_name, mesh_file_name, &
- outdir, ires)
call no_adios_err()
end subroutine read_args_adios
@@ -59,8 +56,6 @@ subroutine init_adios(value_file_name, mesh_file_name, &
character(len=*) :: value_file_name, mesh_file_name
integer(kind=8) :: value_handle, mesh_handle
- call dimitrize_args(value_file_name, mesh_file_name, &
- value_handle, mesh_handle)
call no_adios_err()
end subroutine init_adios
@@ -69,7 +64,6 @@ subroutine clean_adios(value_handle, mesh_handle)
! Parameters
integer(kind=8) :: value_handle, mesh_handle
- call dimitrize_args(value_handle, mesh_handle)
call no_adios_err()
end subroutine clean_adios
@@ -81,8 +75,6 @@ subroutine read_scalars_adios_mesh(mesh_handle, iproc, NGLOB_AB, NSPEC_AB, &
integer :: iproc
integer :: NGLOB_AB, NSPEC_AB, ibool_offset, x_global_offset
- call dimitrize_args(mesh_handle, iproc, NGLOB_AB, NSPEC_AB, &
- ibool_offset, x_global_offset)
call no_adios_err()
end subroutine read_scalars_adios_mesh
@@ -94,8 +86,6 @@ subroutine read_ibool_adios_mesh(mesh_handle, ibool_offset, &
integer :: ibool_offset, NGLLX, NGLLY, NGLLZ, NSPEC_AB
integer, dimension(:,:,:,:) :: ibool
- call dimitrize_args(mesh_handle, ibool_offset, &
- NGLLX, NGLLY, NGLLZ, NSPEC_AB, ibool)
call no_adios_err()
end subroutine read_ibool_adios_mesh
@@ -108,8 +98,6 @@ subroutine read_coordinates_adios_mesh(mesh_handle, x_global_offset, &
integer :: x_global_offset, NGLOB_AB
real(kind=CUSTOM_REAL),dimension(:) :: xstore, ystore, zstore
- call dimitrize_args(mesh_handle, x_global_offset, &
- NGLOB_AB, xstore, ystore, zstore)
call no_adios_err()
end subroutine read_coordinates_adios_mesh
@@ -122,7 +110,6 @@ subroutine read_double_values_adios(value_handle, var_name, ibool_offset, &
integer :: ibool_offset, NSPEC_AB
double precision, dimension(:,:,:,:) :: dat
- call dimitrize_args(value_handle, var_name, ibool_offset, NSPEC_AB, dat)
call no_adios_err()
end subroutine read_double_values_adios
@@ -135,8 +122,6 @@ subroutine read_float_values_adios(value_handle, var_name, ibool_offset, &
integer :: ibool_offset, NSPEC_AB
real, dimension(:,:,:,:) :: dat
- call dimitrize_args(value_handle, var_name, ibool_offset, &
- NSPEC_AB, dat)
call no_adios_err()
end subroutine read_float_values_adios
diff --git a/src/auxiliaries/rules.mk b/src/auxiliaries/rules.mk
index febb142..f24d808 100644
--- a/src/auxiliaries/rules.mk
+++ b/src/auxiliaries/rules.mk
@@ -204,7 +204,6 @@ combine_vol_data_auxiliaries_OBJECTS += \
$O/combine_vol_data_adios_impl.aux_adios.o
else
combine_vol_data_auxiliaries_OBJECTS += \
- $O/bypass_implicit_interface.aux_noadios.o \
$O/combine_vol_data_adios_stubs.aux_noadios.o
combine_vol_data_auxiliaries_SHARED_OBJECTS += \
$O/adios_manager_stubs.shared_noadios.o
@@ -299,7 +298,7 @@ $O/adios_helpers.shared_adios.o: \
$O/adios_helpers_definitions.shared_adios_module.o \
$O/adios_helpers_writers.shared_adios_module.o
else
-$O/combine_vol_data.aux.o: $O/combine_vol_data_impl.aux.o $O/combine_vol_data_adios_stubs.aux_noadios.o $O/bypass_implicit_interface.aux_noadios.o
+$O/combine_vol_data.aux.o: $O/combine_vol_data_impl.aux.o $O/combine_vol_data_adios_stubs.aux_noadios.o
endif
More information about the CIG-COMMITS
mailing list