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