Revision: | 892 |
Committed: | Mon Dec 22 21:27:04 2003 UTC (20 years, 8 months ago) by chuckv |
File size: | 408 byte(s) |
Log Message: | Fixes to profile code. |
# | Content |
---|---|
1 | subroutine getTimes(forceTime,commTime) |
2 | use do_Forces |
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 |