| ! Copyright (C) 2021-2025 Free Software Foundation, Inc. | 
 | ! Contributed by Oracle. | 
 | ! | 
 | ! This file is part of GNU Binutils. | 
 | ! | 
 | ! This program is free software; you can redistribute it and/or modify | 
 | ! it under the terms of the GNU General Public License as published by | 
 | ! the Free Software Foundation; either version 3, or (at your option) | 
 | ! any later version. | 
 | ! | 
 | ! This program is distributed in the hope that it will be useful, | 
 | ! but WITHOUT ANY WARRANTY; without even the implied warranty of | 
 | ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the | 
 | ! GNU General Public License for more details. | 
 | ! | 
 | ! You should have received a copy of the GNU General Public License | 
 | ! along with this program; if not, write to the Free Software | 
 | ! Foundation, 51 Franklin Street - Fifth Floor, Boston, | 
 | ! MA 02110-1301, USA. | 
 | ! | 
 | ! Developer Sampling Collector interface include file | 
 |  | 
 |         interface | 
 |  | 
 |         ! Routine to record a sample in the experiment. | 
 |         subroutine collector_sample(name) | 
 |         character(len=*), intent(in) :: name | 
 |         end subroutine | 
 |  | 
 |         ! Routine to suspend data collection during an experiment. | 
 |         subroutine collector_pause() | 
 |         end subroutine | 
 |  | 
 |         ! Routine to resume data collection during an experiment. | 
 |         subroutine collector_resume() | 
 |         end subroutine | 
 |  | 
 |         ! Routine to stop all data collection and close the experiment. | 
 |         subroutine collector_terminate_expt() | 
 |         end subroutine | 
 |  | 
 |         end interface |