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