[cig-commits] [commit] devel: Remove duplicate create_name_database file. (50e16a2)

[cig_noreply at geodynamics.org]

Repository : ssh://geoshell/specfem3d

On branch  : devel
Link       : https://github.com/geodynamics/specfem3d/compare/cb32c88d6155d7974561a6f72fc17aea596e2c4d...50aa953c1db3f565d76415f5305410a529996b75

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

commit 50e16a24c669a05a2406805059d40bc01796dd27
Author: Elliott Sales de Andrade <esalesde at physics.utoronto.ca>
Date:   Tue Apr 29 19:23:05 2014 -0400

    Remove duplicate create_name_database file.


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

50e16a24c669a05a2406805059d40bc01796dd27
 src/meshfem3D/create_name_database.f90 | 46 ----------------------------------
 src/meshfem3D/rules.mk                 |  2 +-
 2 files changed, 1 insertion(+), 47 deletions(-)

diff --git a/src/meshfem3D/create_name_database.f90 b/src/meshfem3D/create_name_database.f90
deleted file mode 100644
index 0e5744a..0000000
--- a/src/meshfem3D/create_name_database.f90
+++ /dev/null
@@ -1,46 +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.
-!
-!=====================================================================
-
-  subroutine create_name_database(prname,iproc,LOCAL_PATH)
-
-! create the name of the database for the mesher and the solver
-
-  implicit none
-
-  integer iproc
-
-! name of the database file
-  character(len=256) prname,procname,LOCAL_PATH
-
-! create the name for the database of the current slide and region
-  write(procname,"('/proc',i6.6,'_')") iproc
-
-! create full name with path
-  prname = LOCAL_PATH(1:len_trim(LOCAL_PATH)) // procname
-
-  end subroutine create_name_database
-
diff --git a/src/meshfem3D/rules.mk b/src/meshfem3D/rules.mk
index 0c3a126..aac49f0 100644
--- a/src/meshfem3D/rules.mk
+++ b/src/meshfem3D/rules.mk
@@ -43,7 +43,6 @@ meshfem3D_TARGETS = \
 meshfem3D_OBJECTS = \
 	$O/check_mesh_quality.mesh.o \
 	$O/compute_parameters.mesh.o \
-	$O/create_name_database.mesh.o \
 	$O/create_regions_mesh.mesh.o \
 	$O/create_visual_files.mesh.o \
 	$O/define_subregions.mesh.o \
@@ -67,6 +66,7 @@ meshfem3D_MODULES = \
 	$(EMPTY_MACRO)
 
 meshfem3D_SHARED_OBJECTS = \
+	$O/create_name_database.shared.o \
 	$O/exit_mpi.shared.o \
 	$O/get_global.shared.o \
 	$O/hex_nodes.shared.o \