## Scan numbers of initial observations

      ! HISTORY: Scan numbers of initial observations.
      integer(kind=4), parameter :: class_sec_his_id=-6
      integer(kind=4), parameter :: mseq=100
      integer(kind=4), parameter :: class_sec_his_len=2*mseq+1
      type history
         sequence
         integer(kind=4) :: nseq        ! Number of sequences
         integer(kind=4) :: start(mseq) ! Start can number of seq.
         integer(kind=4) :: end(mseq)   ! End scan number of seq.
      end type history