Scan numbers of initial observations

  ! Section -6
  ! HISTORY: Scan numbers of initial observations.
  integer mseq
  integer morig
  parameter (mseq=100,morig=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