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