.TH "PAPIf_hl_region_begin" 3 "Thu Dec 14 2023" "Version 7.1.0.0" "PAPI" \" -*- nroff -*- .ad l .nh .SH NAME PAPIf_hl_region_begin \- Reads and stores hardware events at the beginning of an instrumented code region\&. .SH SYNOPSIS .br .PP .SH "Detailed Description" .PP .PP \fBFortran Prototype:\fP .RS 4 #include 'fpapi\&.h' .br \fBPAPIf_hl_region_begin( C_STRING region, C_INT check )\fP .RE .PP \fBReturn values\fP .RS 4 \fIPAPI_OK\fP .br \fIPAPI_ENOTRUN\fP -- EventSet is currently not running or could not determined\&. .br \fIPAPI_ESYS\fP -- A system or C library call failed inside PAPI, see the errno variable\&. .br \fIPAPI_EMISC\fP -- PAPI has been deactivated due to previous erros\&. .br \fIPAPI_ENOMEM\fP -- Insufficient memory\&. .RE .PP \fBPAPIf_hl_region_begin\fP reads hardware events and stores them internally at the beginning of an instrumented code region\&. If not specified via environment variable PAPI_EVENTS, default events are used\&. The first call sets all counters implicitly to zero and starts counting\&. Note that if PAPI_EVENTS is not set or cannot be interpreted, default hardware events are recorded\&. .PP \fBExample:\fP .RS 4 .RE .PP .PP .nf export PAPI_EVENTS="PAPI_TOT_INS,PAPI_TOT_CYC" .fi .PP .PP .PP .nf integer retval call PAPIf_hl_region_begin("computation", retval) if ( retval \&.NE\&. PAPI_OK ) then write (*,*) "PAPIf_hl_region_begin failed!" end if !do some computation here call PAPIf_hl_region_end("computation", retval) if ( retval \&.NE\&. PAPI_OK ) then write (*,*) "PAPIf_hl_region_end failed!" end if .fi .PP .PP \fBSee also\fP .RS 4 \fBPAPI_hl_region_begin\fP .RE .PP .SH "Author" .PP Generated automatically by Doxygen for PAPI from the source code\&.