[cig-commits] [commit] devel, master: renamed my new gatherv_all_cr_single_prec() to gatherv_all_r() to be consistent with Daniel Peter's notations (413d5c6)

[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 413d5c61101003f9255a0f848699469265c257c3
Author: Dimitri Komatitsch <komatitsch at lma.cnrs-mrs.fr>
Date:   Thu May 1 10:16:46 2014 +0200

    renamed my new gatherv_all_cr_single_prec() to gatherv_all_r() to be consistent with Daniel Peter's notations


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

413d5c61101003f9255a0f848699469265c257c3
 setup/constants.h.in              |  2 +-
 src/shared/parallel.f90           |  4 ++--
 src/specfem3D/iterate_time.F90    |  4 ++--
 src/specfem3D/prepare_timerun.f90 | 24 ++++++++++++------------
 4 files changed, 17 insertions(+), 17 deletions(-)

diff --git a/setup/constants.h.in b/setup/constants.h.in
index 9309125..d7a0bad 100644
--- a/setup/constants.h.in
+++ b/setup/constants.h.in
@@ -453,7 +453,7 @@
 ! normalized radius of free surface
   double precision, parameter :: R_UNIT_SPHERE = ONE
 
-! same radius in km
+! radius of the Earth in km
   double precision, parameter :: R_EARTH_KM = R_EARTH / 1000.d0
 
 ! fixed thickness of 3 km for PREM oceans
diff --git a/src/shared/parallel.f90 b/src/shared/parallel.f90
index f35d5e9..85754c9 100644
--- a/src/shared/parallel.f90
+++ b/src/shared/parallel.f90
@@ -1066,7 +1066,7 @@
 !-------------------------------------------------------------------------------------------------
 !
 
-  subroutine gatherv_all_cr_single_prec(sendbuf, sendcnt, recvbuf, recvcount, recvoffset,recvcounttot, NPROC)
+  subroutine gatherv_all_r(sendbuf, sendcnt, recvbuf, recvcount, recvoffset,recvcounttot, NPROC)
 
   use constants
   use mpi
@@ -1084,7 +1084,7 @@
                   recvbuf,recvcount,recvoffset,MPI_REAL, &
                   0,MPI_COMM_WORLD,ier)
 
-  end subroutine gatherv_all_cr_single_prec
+  end subroutine gatherv_all_r
 
 !
 !-------------------------------------------------------------------------------------------------
diff --git a/src/specfem3D/iterate_time.F90 b/src/specfem3D/iterate_time.F90
index adad2ef..0356c81 100644
--- a/src/specfem3D/iterate_time.F90
+++ b/src/specfem3D/iterate_time.F90
@@ -303,14 +303,14 @@
       data_size = size(vtkdata)
       if( myrank == 0 ) then
         ! gather data
-        call gatherv_all_cr_single_prec(vtkdata,data_size,&
+        call gatherv_all_r(vtkdata,data_size,&
                             vtkdata_all,vtkdata_points_all,vtkdata_offset_all, &
                             vtkdata_numpoints_all,NPROCTOT_VAL)
         ! updates VTK window
         call visualize_vtkdata(it,currenttime,vtkdata_all)
       else
         ! all other process just send data
-        call gatherv_all_cr_single_prec(vtkdata,data_size,&
+        call gatherv_all_r(vtkdata,data_size,&
                             dummy,vtkdata_points_all,vtkdata_offset_all, &
                             1,NPROCTOT_VAL)
       endif
diff --git a/src/specfem3D/prepare_timerun.f90 b/src/specfem3D/prepare_timerun.f90
index 6cbba01..8009720 100644
--- a/src/specfem3D/prepare_timerun.f90
+++ b/src/specfem3D/prepare_timerun.f90
@@ -2480,13 +2480,13 @@
       if( myrank == 0 ) then
         ! locations
         !if( myrank == 0 ) print*,"    locations..."
-        call gatherv_all_cr_single_prec(free_x,free_np, &
+        call gatherv_all_r(free_x,free_np, &
                             free_x_all,free_points_all,free_offset_all, &
                             free_np_all,NPROC)
-        call gatherv_all_cr_single_prec(free_y,free_np, &
+        call gatherv_all_r(free_y,free_np, &
                             free_y_all,free_points_all,free_offset_all, &
                             free_np_all,NPROC)
-        call gatherv_all_cr_single_prec(free_z,free_np, &
+        call gatherv_all_r(free_z,free_np, &
                             free_z_all,free_points_all,free_offset_all, &
                             free_np_all,NPROC)
 
@@ -2514,13 +2514,13 @@
 
       else
         ! all other process just send data locations
-        call gatherv_all_cr_single_prec(free_x,free_np, &
+        call gatherv_all_r(free_x,free_np, &
                             dummy,free_points_all,free_offset_all, &
                             1,NPROC)
-        call gatherv_all_cr_single_prec(free_y,free_np, &
+        call gatherv_all_r(free_y,free_np, &
                             dummy,free_points_all,free_offset_all, &
                             1,NPROC)
-        call gatherv_all_cr_single_prec(free_z,free_np, &
+        call gatherv_all_r(free_z,free_np, &
                             dummy,free_points_all,free_offset_all, &
                             1,NPROC)
         ! connectivity
@@ -2755,13 +2755,13 @@
       if( myrank == 0 ) then
         ! locations
         !if( myrank == 0 ) print*,"    locations..."
-        call gatherv_all_cr_single_prec(vol_x,vol_np, &
+        call gatherv_all_r(vol_x,vol_np, &
                             vol_x_all,vtkdata_points_all,vtkdata_offset_all, &
                             vtkdata_numpoints_all,NPROC)
-        call gatherv_all_cr_single_prec(vol_y,vol_np, &
+        call gatherv_all_r(vol_y,vol_np, &
                             vol_y_all,vtkdata_points_all,vtkdata_offset_all, &
                             vtkdata_numpoints_all,NPROC)
-        call gatherv_all_cr_single_prec(vol_z,vol_np, &
+        call gatherv_all_r(vol_z,vol_np, &
                             vol_z_all,vtkdata_points_all,vtkdata_offset_all, &
                             vtkdata_numpoints_all,NPROC)
 
@@ -2790,13 +2790,13 @@
       else
         ! all other process just send data
         ! locations
-        call gatherv_all_cr_single_prec(vol_x,vol_np, &
+        call gatherv_all_r(vol_x,vol_np, &
                             dummy,vtkdata_points_all,vtkdata_offset_all, &
                             1,NPROC)
-        call gatherv_all_cr_single_prec(vol_y,vol_np, &
+        call gatherv_all_r(vol_y,vol_np, &
                             dummy,vtkdata_points_all,vtkdata_offset_all, &
                             1,NPROC)
-        call gatherv_all_cr_single_prec(vol_z,vol_np, &
+        call gatherv_all_r(vol_z,vol_np, &
                             dummy,vtkdata_points_all,vtkdata_offset_all, &
                             1,NPROC)
         ! connectivity