! 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