1! Copyright (C) 2021-2022 Free Software Foundation, Inc.
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
43