program preppes
      character*80 fn
      logical*4 lex
c
      write(6,*)'Vibrations from ensemble of gaussian outputs'
      write(6,*)'PES.TXT ... list of files'
      inquire(file='PES.TXT',exist=lex)
      if(.not.lex)then
       write(6,*)'PES.TXT does not exist'
       stop
      endif
      n=0
      open(45,file='PES.TXT')
      open(35,file='gopes')
      write(35,101)
101   format('echo AUTO > AUTO')
1     read(45,4500,end=999,err=999)fn
4500  format(a80)
      n=n+1
c
c     leading and terminal spaces
      l0=len(fn)
      do 2 n1=1,l0
2     if(fn(n1:n1).ne.' ')goto 3
3     do 4 n2=l0,n1,-1
4     if(fn(n2:n2).ne.' ')goto 5
5     write(35,*)'cp '//fn(n1:n2)//' FRE.OUT'
      write(35,*)'cp '//fn(n1:n2)//' G98.OUT'
      write(35,*)'gg'
      write(35,*)'gar'
      write(35,*)'new1'
      write(35,*)'new2'
      write(35,*)'new4'
      write(35,*)'new5'
      write(35,*)'new6'
      write(35,*)'cp DOG.TAB '//fn(n1:n2-4)//'.tab'
      write(35,*)'cp ROA.TAB '//fn(n1:n2-4)//'ram.tab'
      goto 1
999   close(45)
      write(35,*)'boltzman'
      close(35)
      write(6,*)n,' points found'
      stop
      end