subroutine ggZZparsecheck(helstring,h1,h2,resarr,string)
      implicit none
      logical found
      integer h1,h2,h3,h4,j3,j4
      character*(*) string
      character*160 line
      character*2 helstring
      character*21 filename
      double precision xr,xc,xabs,ratio
      double complex resarr(2,2)

      do h3=-1,1,2
      do h4=-1,1,2     
      
      found=.false. 

      write(filename,91) h1,h2,h3,h4,helstring
   91 format(SP,'out.KC_',i2,'_',i2,'_',i2,'_',i2,'_',a2)
   
      open(unit=21,file=filename,status='unknown')
   
   77 continue   
      read(21,'(a160)',end=99) line
      if (index(line,trim(string)) .eq. 0) goto 77
      close(unit=21)
      found=.true.
      
      if (index(line,'xe') .eq. 0) then
        read(line,71) xr,xc,xabs 
   71   format(60x,3f24.15)   
      else
        read(line,72) xr,xc,xabs 
   72   format(18x,3f24.15)   
      endif
      
      j3=1+(h3+1)/2
      j4=1+(h4+1)/2
      ratio=dble(resarr(j3,j4)/dcmplx(xr,xc))
   99 continue  
      if (found .eqv. .false.) then
        if (abs(resarr(j3,j4)) .lt. 1d-12) then
          ratio=1d0
        else
          ratio=-77d0 ! signals zero in KC but non-zero here
        endif 
      endif
      write(6,*) string,': ',helstring,h1,h2,h3,h4,ratio
      
      enddo
      enddo
      
      return
      end