[cig-commits] [commit] master: Comment out too detailed time calculation calls (35cc683)

[cig_noreply at geodynamics.org]

Repository : ssh://geoshell/calypso

On branch  : master
Link       : https://github.com/geodynamics/calypso/compare/bf5dcaf71a4089a4c2f22940f4edea71b9abedd1...9730b061d69d156b271dfe841a55ae371b4e1c03

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

commit 35cc683332720b7576bf148d9d6b65e9a4604f60
Author: Hiroaki Matsui <h_kemono at mac.com>
Date:   Thu Mar 20 14:06:29 2014 -0700

    Comment out too detailed time calculation calls


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

35cc683332720b7576bf148d9d6b65e9a4604f60
 .../SPH_SHELL_src/legendre_transform_spin.f90      | 32 +++++++++++-----------
 1 file changed, 16 insertions(+), 16 deletions(-)

diff --git a/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/legendre_transform_spin.f90 b/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/legendre_transform_spin.f90
index 4a40699..5a90f3e 100644
--- a/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/legendre_transform_spin.f90
+++ b/src/Fortran_libraries/PARALLEL_src/SPH_SHELL_src/legendre_transform_spin.f90
@@ -50,21 +50,21 @@
       integer(kind = kint), intent(in) :: ncomp, nvector
 !
 !
-      call start_eleps_time(25)
+!      call start_eleps_time(25)
       call order_b_trans_vector_spin(ncomp, nvector, sp_rlm_spin(1,1))
-      call end_eleps_time(25)
-      call start_eleps_time(26)
+!      call end_eleps_time(25)
+!      call start_eleps_time(26)
       call clear_b_trans_spin(ione, 3*nvector)
-      call end_eleps_time(26)
+!      call end_eleps_time(26)
 !
-      call start_eleps_time(27)
+!      call start_eleps_time(27)
       call legendre_b_trans_vector_spin(ncomp, nvector,                 &
      &    sp_rlm_spin(1,1), vr_rtm_spin(1,1))
-      call end_eleps_time(27)
+!      call end_eleps_time(27)
 !
-      call start_eleps_time(28)
+!      call start_eleps_time(28)
       call back_b_trans_vector_spin(ncomp, nvector, vr_rtm_spin(1,1))
-      call end_eleps_time(28)
+!      call end_eleps_time(28)
 !
       end subroutine leg_bwd_trans_vector_spin
 !
@@ -101,21 +101,21 @@
       integer(kind = kint), intent(in) :: ncomp, nvector
 !
 !
-      call start_eleps_time(29)
+!      call start_eleps_time(29)
       call order_f_trans_vector_spin(ncomp, nvector, vr_rtm_spin(1,1))
-      call end_eleps_time(29)
-      call start_eleps_time(30)
+!      call end_eleps_time(29)
+!      call start_eleps_time(30)
       call clear_f_trans_spin(ione, 3*nvector)
-      call end_eleps_time(30)
+!      call end_eleps_time(30)
 !
-      call start_eleps_time(31)
+!      call start_eleps_time(31)
       call legendre_f_trans_vector_spin(ncomp, nvector,                 &
      &    vr_rtm_spin(1,1), sp_rlm_spin(1,1))
-      call end_eleps_time(31)
+!      call end_eleps_time(31)
 !
-      call start_eleps_time(32)
+!      call start_eleps_time(32)
       call back_f_trans_vector_spin(ncomp, nvector, sp_rlm_spin(1,1))
-      call end_eleps_time(32)
+!      call end_eleps_time(32)
 !
       end subroutine leg_fwd_trans_vector_spin
 !