src/profiling/timing.F90

subroutine getTimes(forceTime,commTime)
  use doForces
  use definitions, ONLY: dp
#ifdef IS_MPI
  use mpiSimulation
#endif
  implicit none

  real(kind=dp) :: forceTime
  real(kind=dp) :: commTime

  forceTime = 0.0
  commTime  = 0.0
#ifdef PROFILE
  forceTime = getForceTime()

#ifdef IS_MPI
  commTime  = getCommTime()
#endif
#endif

end subroutine getTimes
Revision:	507
Committed:	Fri Apr 15 22:04:00 2005 UTC (20 years, 6 months ago) by gezelter
File size:	361 byte(s)
Log Message:	xemacs has been drafted to perform our indentation services
#	User	Rev	Content
1	gezelter	2	subroutine getTimes(forceTime,commTime)
2	gezelter	507	use doForces
3			use definitions, ONLY: dp
4	gezelter	2	#ifdef IS_MPI
5	gezelter	507	use mpiSimulation
6	gezelter	2	#endif
7	gezelter	507	implicit none
8	gezelter	2
9	gezelter	507	real(kind=dp) :: forceTime
10			real(kind=dp) :: commTime
11
12			forceTime = 0.0
13			commTime = 0.0
14	gezelter	2	#ifdef PROFILE
15	gezelter	507	forceTime = getForceTime()
16	gezelter	2
17			#ifdef IS_MPI
18	gezelter	507	commTime = getCommTime()
19	gezelter	2	#endif
20			#endif
21
22			end subroutine getTimes