program prepcaz
      character*80 ts
      character*3 g03
      write(6,600)
 600  format(' Prepares driving script for calculations of Cazimir',/,
     1       ' energies for many gaussian inputs listed in NAMES.LST')

      g03='g03'
      is=0
      open(8,file='NAMES.LST',status='old')
      open(9,file='gocaz')
11    read(8,80,end=999,err=999)ts
80    format(A80)
      is=is+1
      do 1 i=1,LEN(ts)
1     if(ts(i:i).ne.' ')goto 2
2     do 3 j=LEN(ts),1,-1
3     if(ts(j:j).eq.'.')goto 4
4     j=j-1
      write(9,*)g03//' '//ts(i:j)//'.inp '//ts(i:j)//'.out'
      write(9,*)'stripg '//ts(i:j)//'.out t'
      write(9,*)'mv t '//ts(i:j)//'.out'
      write(9,*)'cp '//ts(i:j)//'.out G.OUT'
      write(9,*)'rm *SCR *TEN'
      write(9,*)'roa'
      write(9,*)'mv ROA.OUT '//ts(i:j)//'.o'
      write(9,*)
      goto 11
999   close(8)
      close(9)
      write(6,*)is,' structures'
      write(6,*)'gocaz script made'
      stop
      end