Revision: | 1683 |
Committed: | Thu Oct 28 22:34:02 2004 UTC (19 years, 9 months ago) |
File size: | 407 byte(s) |
Log Message: | This commit was manufactured by cvs2svn to create branch 'new_design'. |
# | Content |
---|---|
1 | subroutine getTimes(forceTime,commTime) |
2 | use doForces |
3 | use definitions, ONLY: dp |
4 | #ifdef IS_MPI |
5 | use mpiSimulation |
6 | #endif |
7 | implicit none |
8 | |
9 | real(kind=dp) :: forceTime |
10 | real(kind=dp) :: commTime |
11 | |
12 | forceTime = 0.0 |
13 | commTime = 0.0 |
14 | #ifdef PROFILE |
15 | forceTime = getForceTime() |
16 | |
17 | #ifdef IS_MPI |
18 | commTime = getCommTime() |
19 | #endif |
20 | #endif |
21 | |
22 | end subroutine getTimes |