program red2
      implicit none
      integer*4 iz,i,ie
      character*180 s80
      logical znak
      open(9,file='Gt.OUT')
      open(91,file='FRE.OUT')
      iz=0
1     read(9,90)s80
90    format(a180)
      if(znak('#',s80))iz=iz+1
      if(iz.eq.7.or.iz.eq.8)then
       do 2 ie=len(s80),1,-1
2      if(s80(ie:ie).ne.' ')goto 3
3      do 4 i=1,ie
4      write(91,900)s80(i:i)
900    format(a1,$)
       write(91,*)
       if(s80(1:14).eq.' Job cpu time:')then
        close(9)
        close(91)
        stop
       endif
      endif
      goto 1
      end

      function znak(z,s)
      implicit none
      integer i
      logical znak
      character*1 z
      character*(*) s
      do 2 i=1,len(s)
      if(s(i:i).eq.'#')then
       znak=.true.
       return
      endif
2     continue
      znak=.false.
      return
      end