double complex function A1Hggggmmpp(j1,j2,j3,j4,za,zb)
      implicit none
      include 'constants.f'
      include 'zprods_decl.f'
      integer j1,j2,j3,j4
      double complex A1phiggggmmpp
c--- 0704.3914v3 Eqs. (2.4) and (2.6)
c--- Note: c.c. is equivalent to interchanging za and zb
      A1Hggggmmpp=A1phiggggmmpp(j1,j2,j3,j4,za,zb)
     .           +A1phiggggmmpp(j3,j4,j1,j2,zb,za)
      return
      end