Parent Directory
| 
Revision Log
| 
Revision Graph
| 
Patch
| revision 1.5 by adcroft, Mon May 24 15:15:11 1999 UTC | revision 1.6 by adcroft, Tue Mar 14 20:28:12 2000 UTC | |
|---|---|---|
| # | Line 415 C \================================= | Line 415 C \================================= |
| 415 | Real*8 wallClockTime | Real*8 wallClockTime |
| 416 | CEndOfInterface | CEndOfInterface |
| 417 | Real*4 ETIME, ACTUAL, TARRAY(2) | Real*4 ETIME, ACTUAL, TARRAY(2) |
| 418 | #ifndef TARGET_T3E | |
| 419 | EXTERNAL ETIME | EXTERNAL ETIME |
| 420 | #endif | |
| 421 | Real*8 wtime | Real*8 wtime |
| 422 | C Real*8 MPI_Wtime | C Real*8 MPI_Wtime |
| 423 | C EXTERNAL MPI_Wtime | C EXTERNAL MPI_Wtime |
| 424 | ||
| 425 | #ifdef TARGET_T3E | |
| 426 | userTime = 0. | |
| 427 | systemTime = 0. | |
| 428 | #else | |
| 429 | ACTUAL = ETIME(TARRAY) | ACTUAL = ETIME(TARRAY) |
| 430 | userTime = TARRAY(1) | userTime = TARRAY(1) |
| 431 | systemTime = TARRAY(2) | systemTime = TARRAY(2) |
| 432 | #endif | |
| 433 | ||
| 434 | #ifdef TARGET_T3E | |
| 435 | wallClockTime = 0. | |
| 436 | #else | |
| 437 | CALL CLOC(wTime) | CALL CLOC(wTime) |
| 438 | wallClockTime = wtime | wallClockTime = wtime |
| 439 | #endif | |
| 440 | ||
| 441 | #ifdef ALLOW_USE_MPI | #ifdef ALLOW_USE_MPI |
| 442 | C wtime = MPI_Wtime() | C wtime = MPI_Wtime() |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.22 |