program test

 use precision_def
 implicit none

  type range_struct
   real(rp) range(0:10)
  end type

  type button_gain_struct
   type (range_struct) button(0:3)
  end type

  type (button_gain_struct) table0_bpm_data(0:100), table1_bpm_data(0:100)

  character*100 file, string

  call read_cbpmii_button_gain(file, table0_bpm_data, table1_bpm_data)

  end