character*80 buffer
      character*8 word
      buffer ='plot       res'
      i=4
      word=buffer(1:max(i,1))
      write(6,'(3a)') ' "',word,'"'
      end