program red1
      implicit none
      integer*4 iz,ig,ie,i
      character*180 s80
      logical znak
      open(9,file='Gt.OUT')
      open(91,file='G.OUT')
      iz=0
      ig=0
1     read(9,90)s80
90    format(a180)
      if(znak('#',s80))iz=iz+1
      if(iz.eq.7)then
       if(s80(1:65).eq.' Ground to excited state transition electric dip
     1ole moments (Au):')ig=ig+1
       if(ig.eq.2)then
        close(9)
        close(91)
        stop
       endif
       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,*)
      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