1 |
C $Header$ |
2222222222C $Header$ |
2 |
C $Name$ |
C $Name$ |
3 |
|
|
4 |
#include "PACKAGES_CONFIG.h" |
#include "PACKAGES_CONFIG.h" |
75 |
#else |
#else |
76 |
call PAPIF_flops(real_time, proc_time, flpops, mflops, check) |
call PAPIF_flops(real_time, proc_time, flpops, mflops, check) |
77 |
#endif |
#endif |
78 |
WRITE(msgBuf,'(A34,F10.6,A,F10.6)') |
WRITE(msgBuf,'(A34,F12.6,A,F12.6)') |
79 |
$ 'Mflop/s during this timestep:', mflops, ' ', mflops |
$ 'Mflop/s during this timestep:', mflops, ' ', mflops |
80 |
$ *proc_time/(real_time + 1E-36) |
$ *proc_time/(real_time + 1E-36) |
81 |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
82 |
#ifdef PAPI_VERSION |
#ifdef PAPI_VERSION |
83 |
call PAPIF_ipc(real_time, proc_time, instr, ipc, check) |
call PAPIF_ipc(real_time, proc_time, instr, ipc, check) |
84 |
WRITE(msgBuf,'(A34,F10.6,A,F10.6)') |
WRITE(msgBuf,'(A34,F12.6,A,F12.6)') |
85 |
$ 'IPC during this timestep:', ipc, ' ', ipc*proc_time |
$ 'IPC during this timestep:', ipc, ' ', ipc*proc_time |
86 |
$ /(real_time + 1E-36) |
$ /(real_time + 1E-36) |
87 |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
93 |
_BEGIN_MASTER( myThid ) |
_BEGIN_MASTER( myThid ) |
94 |
PCLstop(descr, i_result, fp_result, nevents) |
PCLstop(descr, i_result, fp_result, nevents) |
95 |
do ipcl = 1, nevents |
do ipcl = 1, nevents |
96 |
WRITE(msgBuf,'(A22,A26,F10.6)'), |
WRITE(msgBuf,'(A22,A26,F12.6)'), |
97 |
$ pcl_counter_name(pcl_counter_list(ipcl)), |
$ pcl_counter_name(pcl_counter_list(ipcl)), |
98 |
$ 'during this timestep:', fp_results(ipcl) |
$ 'during this timestep:', fp_results(ipcl) |
99 |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |