[cig-commits] [commit] Hiro_latest: replace parallel_cal_init to calypso_MPI_init (d062385)

[cig_noreply at geodynamics.org]

Repository : ssh://geoshell/calypso

On branch  : Hiro_latest
Link       : https://github.com/geodynamics/calypso/compare/93e9f8f974c7a247c8f02e54ec18de063f86c8fb...3c548304673360ddedd7d68c8095b3fb74a2b9ce

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

commit d062385031b097bba2ac902f400294c4fdb478dc
Author: Hiroaki Matsui <h_kemono at mac.com>
Date:   Sun Sep 29 12:01:14 2013 -0700

    replace parallel_cal_init to calypso_MPI_init


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

d062385031b097bba2ac902f400294c4fdb478dc
 .../PARALLEL_src/COMM_src/m_parallel_var_dof.f90              | 11 -----------
 src/programs/SPH_MHD/main_sph_MHD.f90                         |  3 +--
 .../data_utilities/INITIAL_FIELD/main_sph_initial_fld.f90     |  3 +--
 .../data_utilities/SNAPSHOT_MHD/main_sph_dynamobench.f90      |  3 +--
 .../data_utilities/SNAPSHOT_MHD/main_sph_snapshot_noviz.f90   |  3 +--
 .../data_utilities/SNAPSHOT_MHD/main_sph_zm_snap_noviz.f90    |  3 +--
 src/programs/mesh_utilities/main_test_sph.f90                 |  3 +--
 7 files changed, 6 insertions(+), 23 deletions(-)

diff --git a/src/Fortran_libraries/PARALLEL_src/COMM_src/m_parallel_var_dof.f90 b/src/Fortran_libraries/PARALLEL_src/COMM_src/m_parallel_var_dof.f90
index 6219a3d..d8ffee7 100644
--- a/src/Fortran_libraries/PARALLEL_src/COMM_src/m_parallel_var_dof.f90
+++ b/src/Fortran_libraries/PARALLEL_src/COMM_src/m_parallel_var_dof.f90
@@ -25,15 +25,4 @@
 !
 ! ----------------------------------------------------------------------
 !
-      subroutine parallel_cal_init
-!
-      use m_machine_parameter
-!
-!
-      call calypso_MPI_init
-!
-      end subroutine parallel_cal_init
-!
-!  ---------------------------------------------------------------------
-!
       end module   m_parallel_var_dof
diff --git a/src/programs/SPH_MHD/main_sph_MHD.f90 b/src/programs/SPH_MHD/main_sph_MHD.f90
index 3e07da2..c0f1eb1 100644
--- a/src/programs/SPH_MHD/main_sph_MHD.f90
+++ b/src/programs/SPH_MHD/main_sph_MHD.f90
@@ -13,14 +13,13 @@
 !
       use m_precision
 !
-      use m_parallel_var_dof
       use calypso_mpi
       use analyzer_sph_MHD
 !
       implicit none
 !
 !
-      call parallel_cal_init
+      call calypso_MPI_init
 !
       call initialize_sph_MHD
 !
diff --git a/src/programs/data_utilities/INITIAL_FIELD/main_sph_initial_fld.f90 b/src/programs/data_utilities/INITIAL_FIELD/main_sph_initial_fld.f90
index af6953f..1931b84 100644
--- a/src/programs/data_utilities/INITIAL_FIELD/main_sph_initial_fld.f90
+++ b/src/programs/data_utilities/INITIAL_FIELD/main_sph_initial_fld.f90
@@ -13,14 +13,13 @@
 !
       use m_precision
 !
-      use m_parallel_var_dof
       use calypso_mpi
       use analyzer_sph_initial_fld
 !
       implicit none
 !
 !
-      call parallel_cal_init
+      call calypso_MPI_init
 !
       call initialize_const_sph_initial
 !
diff --git a/src/programs/data_utilities/SNAPSHOT_MHD/main_sph_dynamobench.f90 b/src/programs/data_utilities/SNAPSHOT_MHD/main_sph_dynamobench.f90
index 309d39b..89a8322 100644
--- a/src/programs/data_utilities/SNAPSHOT_MHD/main_sph_dynamobench.f90
+++ b/src/programs/data_utilities/SNAPSHOT_MHD/main_sph_dynamobench.f90
@@ -12,14 +12,13 @@
 !
       use m_precision
 !
-      use m_parallel_var_dof
       use calypso_mpi
       use analyzer_sph_dynamobench
 !
       implicit none
 !
 !
-      call parallel_cal_init
+      call calypso_MPI_init
 !
       call initialize_sph_dynamobench
 !
diff --git a/src/programs/data_utilities/SNAPSHOT_MHD/main_sph_snapshot_noviz.f90 b/src/programs/data_utilities/SNAPSHOT_MHD/main_sph_snapshot_noviz.f90
index 8fee6f5..a10e9b6 100644
--- a/src/programs/data_utilities/SNAPSHOT_MHD/main_sph_snapshot_noviz.f90
+++ b/src/programs/data_utilities/SNAPSHOT_MHD/main_sph_snapshot_noviz.f90
@@ -13,14 +13,13 @@
 !
       use m_precision
 !
-      use m_parallel_var_dof
       use calypso_mpi
       use analyzer_noviz_sph_snap
 !
       implicit none
 !
 !
-      call parallel_cal_init
+      call calypso_MPI_init
 !
       call initialize_noviz_sph_snap
 !
diff --git a/src/programs/data_utilities/SNAPSHOT_MHD/main_sph_zm_snap_noviz.f90 b/src/programs/data_utilities/SNAPSHOT_MHD/main_sph_zm_snap_noviz.f90
index 2e4daf9..56c195e 100644
--- a/src/programs/data_utilities/SNAPSHOT_MHD/main_sph_zm_snap_noviz.f90
+++ b/src/programs/data_utilities/SNAPSHOT_MHD/main_sph_zm_snap_noviz.f90
@@ -14,14 +14,13 @@
 !
       use m_precision
 !
-      use m_parallel_var_dof
       use calypso_mpi
       use analyzer_noviz_sph_zm_snap
 !
       implicit none
 !
 !
-      call parallel_cal_init
+      call calypso_MPI_init
 !
       call initialize_noviz_sph_zm_snap
       call evolution_voviz_sph_zm_snap
diff --git a/src/programs/mesh_utilities/main_test_sph.f90 b/src/programs/mesh_utilities/main_test_sph.f90
index b5b5e77..4c3bf43 100644
--- a/src/programs/mesh_utilities/main_test_sph.f90
+++ b/src/programs/mesh_utilities/main_test_sph.f90
@@ -5,14 +5,13 @@
 !
       use m_precision
 !
-      use m_parallel_var_dof
       use calypso_mpi
       use analyzer_test_sph
 
       implicit none
 !
 !
-      call parallel_cal_init
+      call calypso_MPI_init
 !
       call init_analyzer
       call analyze