Revision: | 2204 |
Committed: | Fri Apr 15 22:04:00 2005 UTC (19 years, 4 months ago) by gezelter |
File size: | 361 byte(s) |
Log Message: | xemacs has been drafted to perform our indentation services |
# | 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 |