Symbol Description Uses
ipcl 11


File Line number Procedure Code
./pkg/showflops/SHOWFLOPS.h 25 NO PROCEDURE 
      INTEGER pcl_counter_list(5), flags, nevents, res, ipcl
./pkg/showflops/SHOWFLOPS_INIT.h 25 NO PROCEDURE 
      INTEGER pcl_counter_list(5), flags, nevents, res, ipcl
./pkg/showflops/showflops_init.F 79 SHOWFLOPS_INIT 
      do ipcl = 1, nevents
./pkg/showflops/showflops_init.F 81 SHOWFLOPS_INIT 
     $        pcl_counter_name(pcl_counter_list(ipcl)),
./pkg/showflops/showflops_init.F 82 SHOWFLOPS_INIT 
     $        'before timestepping:', fp_result(ipcl)
./pkg/showflops/showflops_inloop.F 97 SHOWFLOPS_INLOOP 
      do ipcl = 1, nevents
./pkg/showflops/showflops_inloop.F 98 SHOWFLOPS_INLOOP 
         WRITE(msgBuf,'(F12.6,A2,A22,A17,I8)'), fp_result(ipcl),
./pkg/showflops/showflops_inloop.F 99 SHOWFLOPS_INLOOP 
     $        ' ', pcl_counter_name(pcl_counter_list(ipcl)),
./pkg/showflops/showflops_insolve.F 94 SHOWFLOPS_INSOLVE 
      do ipcl = 1, nevents
./pkg/showflops/showflops_insolve.F 96 SHOWFLOPS_INSOLVE 
     $        pcl_counter_name(pcl_counter_list(ipcl)),
./pkg/showflops/showflops_insolve.F 97 SHOWFLOPS_INSOLVE 
     $        'during this timestep:', fp_results(ipcl)