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