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:	1442
Committed:	Mon May 10 17:28:26 2010 UTC (15 years, 2 months ago) by gezelter
Original Path:	*trunk/src/profiling/timing.F90*
File size:	361 byte(s)
Log Message:	Adding property set to svn entries
#	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