Differences

This shows you the differences between two versions of the page.

--- doku:papi_hl_fortran [2016/07/06 10:15] – created ir
+++ doku:papi_hl_fortran [2016/07/06 10:17] (current) – ir
@@ Line 5: / Line 5: @@
       real real_time, cpu_timee, mflops
       integer*8 fp_ins
-      integer ierr, res, i, j
+      integer ierr, res
 C Call PAPIF_flops to get things started.  This will initialize PAPI
@@ Line 17: / Line 17: @@
 C Do some computation
-      res=0
+      res=3+4
-C
-      do j=1,123456
-C
-      do  i=0,20000
-      res=res+i
-      end  do
-C
-      do  i=0,20000
-      res=res-i
-      end  do
-C
-      end do
 C Read the values in the counters and print them out.  Any call to