! This programs reads the header for the file FILE_NAME=SPIB.Spectra.S99.W208.SUMSP0.NOCOND.0000.002.700103
program sp_test
      integer, parameter :: acc_nb_max=1015
      integer :: i,j,k
      integer :: version_nb
      integer :: H
      integer :: nb_of_detector
      integer :: t_detector(19)
      integer :: dummy(10)
      integer :: sp_pack_nb
      integer :: rec_num
      integer, dimension(0:16383) :: spectra
      real (kind=8) :: t_acc(2,acc_nb_max)
      character (len=1280) ::   &
        sp_file='SPIB.Spectra.S99.W208.SUMSP0.NOCOND.0000.002.700103'

      rec_num=1
      open(10,FILE=sp_file,status='old',access='direct',recl=65536)
      read(10,rec=1) version_nb,H,nb_of_detector,(t_detector(i), &
        i=1,nb_of_detector),dummy,sp_pack_nb,(t_acc(1,i),t_acc(2,i) , &
        i=1,sp_pack_nb)
      print*,'nb_of_detector=',nb_of_detector,'t_detector=',   &
        t_detector(1:nb_of_detector)
      print*,' nb_of_accu=',sp_pack_nb,' accu beg-end (OBT)=',  &
        (t_acc(1,i),t_acc(2,i),'--',i=1,sp_pack_nb)
      rec_num=H
      do i=1,sp_pack_nb
         do j=1,nb_of_detector
            do k=0,1
               rec_num=rec_num+1
               read(10,rec=rec_num) spectra
               print*,'spectra=',spectra(0:10)
            enddo
         enddo
      enddo

      close(10)
end program sp_test