Comment out too detailed time calculation calls

hirokemono · hirokemono · commit 35cc68333272 · 2014-03-20T14:06:29.000-07:00
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
@@ -50,21 +50,21 @@ subroutine leg_bwd_trans_vector_spin(ncomp, nvector)
       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 @@ subroutine leg_fwd_trans_vector_spin(ncomp, nvector)
       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
 !

Original file line number	Diff line number	Diff line change
`@@ -50,21 +50,21 @@ subroutine leg_bwd_trans_vector_spin(ncomp, nvector)`
`50`	`50`	`integer(kind = kint), intent(in) :: ncomp, nvector`
`51`	`51`	`!`
`52`	`52`	`!`
`53`		`- call start_eleps_time(25)`
	`53`	`+! call start_eleps_time(25)`
`54`	`54`	`call order_b_trans_vector_spin(ncomp, nvector, sp_rlm_spin(1,1))`
`55`		`- call end_eleps_time(25)`
`56`		`- call start_eleps_time(26)`
	`55`	`+! call end_eleps_time(25)`
	`56`	`+! call start_eleps_time(26)`
`57`	`57`	`call clear_b_trans_spin(ione, 3*nvector)`
`58`		`- call end_eleps_time(26)`
	`58`	`+! call end_eleps_time(26)`
`59`	`59`	`!`
`60`		`- call start_eleps_time(27)`
	`60`	`+! call start_eleps_time(27)`
`61`	`61`	`call legendre_b_trans_vector_spin(ncomp, nvector, &`
`62`	`62`	`& sp_rlm_spin(1,1), vr_rtm_spin(1,1))`
`63`		`- call end_eleps_time(27)`
	`63`	`+! call end_eleps_time(27)`
`64`	`64`	`!`
`65`		`- call start_eleps_time(28)`
	`65`	`+! call start_eleps_time(28)`
`66`	`66`	`call back_b_trans_vector_spin(ncomp, nvector, vr_rtm_spin(1,1))`
`67`		`- call end_eleps_time(28)`
	`67`	`+! call end_eleps_time(28)`
`68`	`68`	`!`
`69`	`69`	`end subroutine leg_bwd_trans_vector_spin`
`70`	`70`	`!`
`@@ -101,21 +101,21 @@ subroutine leg_fwd_trans_vector_spin(ncomp, nvector)`
`101`	`101`	`integer(kind = kint), intent(in) :: ncomp, nvector`
`102`	`102`	`!`
`103`	`103`	`!`
`104`		`- call start_eleps_time(29)`
	`104`	`+! call start_eleps_time(29)`
`105`	`105`	`call order_f_trans_vector_spin(ncomp, nvector, vr_rtm_spin(1,1))`
`106`		`- call end_eleps_time(29)`
`107`		`- call start_eleps_time(30)`
	`106`	`+! call end_eleps_time(29)`
	`107`	`+! call start_eleps_time(30)`
`108`	`108`	`call clear_f_trans_spin(ione, 3*nvector)`
`109`		`- call end_eleps_time(30)`
	`109`	`+! call end_eleps_time(30)`
`110`	`110`	`!`
`111`		`- call start_eleps_time(31)`
	`111`	`+! call start_eleps_time(31)`
`112`	`112`	`call legendre_f_trans_vector_spin(ncomp, nvector, &`
`113`	`113`	`& vr_rtm_spin(1,1), sp_rlm_spin(1,1))`
`114`		`- call end_eleps_time(31)`
	`114`	`+! call end_eleps_time(31)`
`115`	`115`	`!`
`116`		`- call start_eleps_time(32)`
	`116`	`+! call start_eleps_time(32)`
`117`	`117`	`call back_f_trans_vector_spin(ncomp, nvector, sp_rlm_spin(1,1))`
`118`		`- call end_eleps_time(32)`
	`118`	`+! call end_eleps_time(32)`
`119`	`119`	`!`
`120`	`120`	`end subroutine leg_fwd_trans_vector_spin`
`121`	`121`	`!`