]>
Commit | Line | Data |
---|---|---|
a945c346 | 1 | ! Copyright (C) 2021-2024 Free Software Foundation, Inc. |
24552056 VM |
2 | ! Contributed by Oracle. |
3 | ! | |
4 | ! This file is part of GNU Binutils. | |
5 | ! | |
6 | ! This program is free software; you can redistribute it and/or modify | |
7 | ! it under the terms of the GNU General Public License as published by | |
8 | ! the Free Software Foundation; either version 3, or (at your option) | |
9 | ! any later version. | |
10 | ! | |
11 | ! This program is distributed in the hope that it will be useful, | |
12 | ! but WITHOUT ANY WARRANTY; without even the implied warranty of | |
13 | ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
14 | ! GNU General Public License for more details. | |
15 | ! | |
16 | ! You should have received a copy of the GNU General Public License | |
17 | ! along with this program; if not, write to the Free Software | |
18 | ! Foundation, 51 Franklin Street - Fifth Floor, Boston, | |
19 | ! MA 02110-1301, USA. | |
20 | ! | |
21 | ! Developer Sampling Collector interface include file | |
22 | ||
23 | interface | |
24 | ||
25 | ! Routine to record a sample in the experiment. | |
26 | subroutine collector_sample(name) | |
27 | character(len=*), intent(in) :: name | |
28 | end subroutine | |
29 | ||
30 | ! Routine to suspend data collection during an experiment. | |
31 | subroutine collector_pause() | |
32 | end subroutine | |
33 | ||
34 | ! Routine to resume data collection during an experiment. | |
35 | subroutine collector_resume() | |
36 | end subroutine | |
37 | ||
38 | ! Routine to stop all data collection and close the experiment. | |
39 | subroutine collector_terminate_expt() | |
40 | end subroutine | |
41 | ||
42 | end interface |