14 |
C-- Routines marked "M" contain specific machine dependent code. |
C-- Routines marked "M" contain specific machine dependent code. |
15 |
C-- Routines marked "U" contain UNIX OS calls. |
C-- Routines marked "U" contain UNIX OS calls. |
16 |
|
|
17 |
|
CGG Modified following A. Biastoch for use with SP3. Is backwards |
18 |
|
CGG compatible. G. Gebbie, gebbie@mit.edu, 20 Oct 2001, Scripps. |
19 |
|
|
20 |
CBOP |
CBOP |
21 |
C !ROUTINE: TIMER_INDEX |
C !ROUTINE: TIMER_INDEX |
22 |
|
|
468 |
|
|
469 |
C !USES: |
C !USES: |
470 |
#ifndef TARGET_T3E |
#ifndef TARGET_T3E |
471 |
#ifndef TARGET_CRAY_VECTOR |
# ifndef TARGET_CRAY_VECTOR |
472 |
|
# ifdef TARGET_PWR3 |
473 |
|
Real*8 system_time, user_time, timenow |
474 |
|
# else |
475 |
Real*4 ETIME |
Real*4 ETIME |
476 |
EXTERNAL ETIME |
EXTERNAL ETIME |
477 |
#endif |
# endif |
478 |
|
# endif |
479 |
#endif |
#endif |
480 |
|
|
481 |
C !LOCAL VARIABLES: |
C !LOCAL VARIABLES: |
488 |
C Real*8 MPI_Wtime |
C Real*8 MPI_Wtime |
489 |
C EXTERNAL MPI_Wtime |
C EXTERNAL MPI_Wtime |
490 |
|
|
491 |
#if (defined (TARGET_T3E) || defined (TARGET_CRAY_VECTOR)) |
#if (defined (TARGET_PWR3)) |
492 |
userTime = 0. |
userTime = user_time() |
493 |
systemTime = 0. |
systemTime = system_time() |
494 |
|
wallClockTime = timenow() |
495 |
|
#elif (defined (TARGET_T3E) || defined (TARGET_CRAY_VECTOR)) |
496 |
|
userTime = 0. |
497 |
|
systemTime = 0. |
498 |
|
wallClockTime = 0. |
499 |
#else |
#else |
500 |
ACTUAL = ETIME(TARRAY) |
ACTUAL = ETIME(TARRAY) |
501 |
userTime = TARRAY(1) |
userTime = TARRAY(1) |
502 |
systemTime = TARRAY(2) |
systemTime = TARRAY(2) |
|
#endif |
|
|
|
|
|
#if (defined (TARGET_T3E) || defined (TARGET_CRAY_VECTOR)) |
|
|
wallClockTime = 0. |
|
|
#else |
|
503 |
CALL CLOC(wTime) |
CALL CLOC(wTime) |
504 |
wallClockTime = wtime |
wallClockTime = wtime |
505 |
#endif |
#endif |