program cctopt
      character*180 s80
      write(6,*)'Reads X.LST, *.ov and CCT.TXT, and makes CCT.INP'

      n=0
      open(10,file='X.LST',status='old')
1     read(10,*,end=99,err=99)
      n=n+1
      goto 1
99    close(10)

      open(11,file='CCT.INP')

      open(10,file='CCT.TXT',status='old')
2     read(10,80,end=88,err=88)s80
80    format(a80)
      write(11,81)(s80(k:k),k=1,isl(s80))
81    format(180a1)
      goto 2
88    close(10)

      write(11,*)n

      open(10,file='X.LST',status='old')
      do 3 i=1,n
      read(10,80)s80
      write(11,*)i
      write(11,81)(s80(k:k),k=1,isl(s80))
      do 4 is=1,len(s80)
4     if(s80(is:is).eq.'.')goto 44
44    open(12,file=s80(1:is-1)//'.ov')
      m=0
5     read(12,*,end=55,err=55)
      m=m+1
      goto 5
55    rewind(12)
      do 6 j=1,m
      read(12,80)s80
6     write(11,81)(s80(k:k),k=1,isl(s80))
3     close(12)
      close(11)
      end

      function isl(s)
      character*(*) s
      do 1 i=len(s),1,-1
1     if(s(i:i).ne.' ')goto 2
2     isl=i
      return
      end