      double complex function A41HAQggmppp(j1,j2,j3,j4,za,zb)
      implicit none
      include 'constants.f'
      include 'zprods_decl.f'
      double complex A41phiAQggmppp,A41phiAQggmpmm
      integer j1,j2,j3,j4

      A41HAQggmppp=
     .   A41phiAQggmppp(j1,j2,j3,j4,za,zb)
     .  -A41phiAQggmpmm(j2,j1,j4,j3,zb,za)

      return
      end

      double complex function A41HAQggmpmm(j1,j2,j3,j4,za,zb)
      implicit none
      include 'constants.f'
      include 'zprods_decl.f'
      double complex A41phiAQggmpmm,A41phiAQggmppp
      integer j1,j2,j3,j4

      A41HAQggmpmm=
     .    A41phiAQggmpmm(j1,j2,j3,j4,za,zb)
     .   -A41phiAQggmppp(j2,j1,j4,j3,zb,za)

      return
      end

      double complex function A41HAQggmpmp(j1,j2,j3,j4,za,zb)
      implicit none
      include 'constants.f'
      include 'zprods_decl.f'
      double complex A41phiAQggmpmp
      integer j1,j2,j3,j4

      A41HAQggmpmp=
     .    A41phiAQggmpmp(j1,j2,j3,j4,za,zb)
     .   -A41phiAQggmpmp(j2,j1,j4,j3,zb,za)

      return
      end

      double complex function A41HAQggmppm(j1,j2,j3,j4,za,zb)
      implicit none
      include 'constants.f'
      include 'zprods_decl.f'
      double complex A41phiAQggmppm
      integer j1,j2,j3,j4

      A41HAQggmppm=
     .    A41phiAQggmppm(j1,j2,j3,j4,za,zb)
     .   -A41phiAQggmppm(j2,j1,j4,j3,zb,za)

      return
      end

