1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
! (C) Copyright 2024- ECMWF.
!
! This software is licensed under the terms of the Apache Licence Version 2.0
! which can be obtained at http://www.apache.org/licenses/LICENSE-2.0.
!
! In applying this licence, ECMWF does not waive the privileges and immunities
! granted to it by virtue of its status as an intergovernmental organisation
! nor does it submit to any jurisdiction.
program drhook_papi_user_counters
use yomhook, only : jphook, dr_hook
implicit none
real(jphook) :: zhook_handle
integer :: a
call dr_hook('drhook_papi_user_counters', 0, zhook_handle)
a = 1
a = a + a
call dr_hook('drhook_papi_user_counters', 1, zhook_handle)
end program drhook_papi_user_counters
|
