Revision: | 1611 |
Committed: | Wed Oct 20 04:23:11 2004 UTC (19 years, 10 months ago) by gezelter |
Original Path: | trunk/OOPSE-3.0/src/profiling/timing.F90 |
File size: | 407 byte(s) |
Log Message: | yet more fortran renaming |
# | 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 |