Revision: | 883 |
Committed: | Thu Dec 18 20:46:45 2003 UTC (20 years, 9 months ago) by chuckv |
File size: | 313 byte(s) |
Log Message: | Added functions for simple profiling in fortran. |
# | User | Rev | Content |
---|---|---|---|
1 | chuckv | 883 | 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 |