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