/[MITgcm]/MITgcm_contrib/PAPI/papi_events.F
ViewVC logotype

Diff of /MITgcm_contrib/PAPI/papi_events.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by ce107, Thu Dec 22 19:28:03 2005 UTC revision 1.2 by ce107, Tue May 9 16:10:24 2006 UTC
# Line 1  Line 1 
1        PROGRAM TESTPAPIEVENTS        PROGRAM TESTPAPIEVENTS
2  #include <fpapi.h>  #include <fpapi.h>
3        INTEGER PAPIF_num_counters        CHARACTER*13 EventName
       EXTERNAL PAPIF_num_counters  
       CHARACTER(13) EventName  
4        INTEGER nmaxevents        INTEGER nmaxevents
5        PARAMETER (nmaxevents = 18)        PARAMETER (nmaxevents = 18)
6        INTEGER EventCode(nmaxevents)        INTEGER EventCode(nmaxevents)
# Line 25  Line 23 
23           WRITE(*,*) "PAPI Library Version is out of Date"           WRITE(*,*) "PAPI Library Version is out of Date"
24           CALL ABORT           CALL ABORT
25        endif        endif
26        neventsmax = PAPIF_num_counters(check)        call PAPIF_num_counters(neventsmax)
27        if (neventsmax .GT. nmaxevents) then        if (neventsmax .GT. nmaxevents) then
28           WRITE(*,*) "Fix the nmaxevents in the code to ", neventsmax           WRITE(*,*) "Fix the nmaxevents in the code to ", neventsmax
29           CALL ABORT           CALL ABORT
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22