pkg/showflops/SHOWFLOPS_INIT.h

5c2ca1df79 Patr*0001 #if defined(TIME_PER_TIMESTEP) || defined(USE_PAPI_FLOPS) || defined(USE_PCL_FLOPS)
                0002       CHARACTER*(MAX_LEN_MBUF) msgBuf
                0003 #ifdef TIME_PER_TIMESTEP
                0004 CCE107 common block for per timestep timing
                0005 C     !TIMING VARIABLES
                0006 C     == Timing variables ==
                0007       REAL*8 utnew, utold, stnew, stold, wtnew, wtold
                0008       DATA utnew, utold, stnew, stold, wtnew, wtold /6*0.0D0/
                0009 #endif
                0010 #ifdef USE_PAPI_FLOPS
                0011 CCE107 common block for PAPI summary performance
                0012 #include <fpapi.h>
                0013       INTEGER*8 flpops, instr
                0014       DATA flpops, instr /2*0/
                0015       INTEGER check
                0016       REAL*4 real_time, proc_time, mflops, ipc
                0017       DATA real_time, proc_time, mflops, ipc /4*0.0E0/
                0018 #else
                0019 #ifdef USE_PCL_FLOPS
                0020 CCE107 common block for PCL summary performance
                0021 #include <pclh.f>
                0022       INTEGER pcl_counter_list(5), flags, nevents, res, ipcl
                0023       INTEGER*8 i_result(5), descr
                0024       REAL*8 fp_result(5)
                0025       COMMON /pclvars/ i_result, descr, fp_result, pcl_counter_list,
7c7521a1da Jean*0026      $     flags, nevents
5c2ca1df79 Patr*0027       INTEGER nmaxevents
                0028       PARAMETER (nmaxevents = 61)
                0029       CHARACTER*22 pcl_counter_name(0:nmaxevents-1)
                0030       COMMON /pclnames/ pcl_counter_name
                0031 #endif
                0032 #endif
                0033 #endif