program gluecct
      parameter (nat0=2000)
      integer*4 o(nat0),i,ii,n1,n2,nf,il
      character*80 gn,tn
c
      write(6,*)'Number of fragments:'
      read(5,*)nf
      write(6,*)'Generic name:'
      read(5,500)gn
500   format(a80)
      open(4,file='OUT')
      do 2 n1=1,len(gn)
2     if(gn(n1:n1).ne.' ')goto 3
3     do 4 n2=len(gn),1,-1
4     if(gn(n2:n2).ne.' ')goto 5
5     do 6 i=1,nf
      write(4,4002)i
4002  format(i5)
      il=int(log(dble(i))/log(10.0d0))+1
      ir=i
      do 8 ii=1,il
      jj=ir/10**(il-ii)
      gn(n2+ii:n2+ii)=char(48+jj)
8     ir=ir-jj*10**(il-ii)
      do 91 jj=1,80
91    tn(jj:jj)=' '
      do 9 jj=n1,n2+il
9     tn(jj-n1+1:jj-n1+1)=gn(jj:jj)
      write(4,500)tn
      write(6,*)gn(n1:n2+il)//'.cct'
      open(10,file=gn(n1:n2+il)//'.cct')
      read(10,*)nat
      if(i.eq.1)nat1=nat
      read(10,*)nc
      if(nc.ne.i)then
       write(6,*)'Number of the fragment does not agree.'
       stop
      endif
      if(nat.ne.nat1)then
       write(6,*)'Number of the atoms does not agree.'
       stop
      endif
      read(10,100)(id,ii=1,nat)
100   format(20i3)
      write(4,100)(ii,ii=1,nat)
      read(10,100)(o(ii),ii=1,nat)
6     write(4,100)(o(ii),ii=1,nat)
      close(10)
      close(4)
      write(6,*)' Overlaps written into OUT.'
      stop
      end