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:	2204
Committed:	Fri Apr 15 22:04:00 2005 UTC (19 years, 2 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	1490	subroutine getTimes(forceTime,commTime)
2	gezelter	2204	use doForces
3			use definitions, ONLY: dp
4	gezelter	1490	#ifdef IS_MPI
5	gezelter	2204	use mpiSimulation
6	gezelter	1490	#endif
7	gezelter	2204	implicit none
8	gezelter	1490
9	gezelter	2204	real(kind=dp) :: forceTime
10			real(kind=dp) :: commTime
11
12			forceTime = 0.0
13			commTime = 0.0
14	gezelter	1490	#ifdef PROFILE
15	gezelter	2204	forceTime = getForceTime()
16	gezelter	1490
17			#ifdef IS_MPI
18	gezelter	2204	commTime = getCommTime()
19	gezelter	1490	#endif
20			#endif
21
22			end subroutine getTimes