program preppsi
      character*80 ts
      write(6,600)
 600  format(' Prepares driving script (gofften) for calculation'
     1   ,/, ' of FF and TEN from electrostatic potentials',/,
     2       ' and vacuum FF and TEN',/)
      is=0
      open(8,file='NAMES.LST',status='old')
      open(9,file='gofften')
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).ne.' ')goto 4
4     write(9,*)'cp '//ts(i:j)//'.PSI FILE.PSI'
      write(9,*)'$HOME/New/psipep'
      write(9,*)'cp FILE.FC '//ts(i:j)//'.FC'
      write(9,*)'cp FILE.TEN '//ts(i:j)//'.TEN'
      goto 11
999   close(8)
      close(9)
      write(6,*)is,' structures'
      write(6,*)'gofften script made'
      stop
      end