program jointab
      parameter (io0=2000)
      character*80 fn
      character*160 a,aa(io0)
c
      write(6,*)'Joins several .tab files listed in TAB.LST'
      open(45,file='TAB.LST')
      open(46,file='ROA.TAB')
      write(46,101)
101   format(' PES ',/,/,'---------------')
      n=0
      nf=0
      ne=0
1     read(45,4500,end=999,err=999)fn
4500  format(a80)
      n=n+1
c
      open(48,file=fn)
      read(48,*)
      read(48,*)
      read(48,*)
      io=0
3     read(48,480,end=900,err=900)a
480   format(a160)
      if(a(1:1).eq.'-')goto 900
      io=io+1
      nf=nf+1
      if(io.gt.io0)then
       write(6,*)fn
       write(6,*)io,io0
       write(6,*)'too many vibrations'
       goto 900
      endif
      aa(io)=a
      goto 3
900   close(48)
c
      do 4 ii=1,io
      ne=ne+1
4     write(46,480)aa(ii)
c
      goto 1
999   close(45)
      write(46,104)
104   format('-----------------------------------')
      close(46)
      write(6,*)n,' tabs, ',nf,' frequencies, ',ne,' in ROA.TAB'
      stop
      end