Diff of /MITgcm_contrib/PAPI/papi_events.F

Parent Directory | Revision Log | Revision Graph | Patch

--- MITgcm_contrib/PAPI/papi_events.F	2005/12/22 19:28:03	1.1
+++ MITgcm_contrib/PAPI/papi_events.F	2006/05/09 16:10:24	1.2
@@ -1,8 +1,6 @@
       PROGRAM TESTPAPIEVENTS
 #include <fpapi.h>
-      INTEGER PAPIF_num_counters
-      EXTERNAL PAPIF_num_counters
-      CHARACTER(13) EventName
+      CHARACTER*13 EventName
       INTEGER nmaxevents
       PARAMETER (nmaxevents = 18)
       INTEGER EventCode(nmaxevents)
@@ -25,7 +23,7 @@
          WRITE(*,*) "PAPI Library Version is out of Date"
          CALL ABORT
       endif
-      neventsmax = PAPIF_num_counters(check)
+      call PAPIF_num_counters(neventsmax)
       if (neventsmax .GT. nmaxevents) then
          WRITE(*,*) "Fix the nmaxevents in the code to ", neventsmax
          CALL ABORT