Revision: | 883 |
Committed: | Thu Dec 18 20:46:45 2003 UTC (20 years, 6 months ago) by chuckv |
File size: | 313 byte(s) |
Log Message: | Added functions for simple profiling in fortran. |
# | Content |
---|---|
1 | subroutine getTimes(forceTime,commTime) |
2 | use do_Forces |
3 | use mpiSimulation |
4 | implicit none |
5 | |
6 | real :: forceTime |
7 | real :: commTime |
8 | #ifdef PROFILE |
9 | forceTime = getForceTime() |
10 | commTime = getCommTime() |
11 | #else |
12 | forceTime = 0.0 |
13 | commTime = 0.0 |
14 | #endif |
15 | |
16 | end subroutine getTimes |