! File generated automatically by O'Mega 2.8.2 release Oct 24 2019 ! ! /sw/ilc/gcc730/whizard/2.8.2-mpi/bin/omega_SM_CKM.opt -o P6f_llxyyx_i1.f90 -target:whizard -target:parameter_module parameters_SM_CKM -target:module opr_P6f_llxyyx_i1 -target:md5sum D8A1FDE17094C86ED2E7116FD04D6066 -fusion:progress -scatter "e- e+ -> mu- mu+ u:c dbar:sbar:bbar d:s:b ubar:cbar" ! ! with all scattering amplitudes for the process(es) ! ! flavor combinations: ! ! 1: e- e+ -> mu- mu+ u bbar d cbar ! 2: e- e+ -> mu- mu+ u bbar d ubar ! 3: e- e+ -> mu- mu+ u bbar s cbar ! 4: e- e+ -> mu- mu+ u bbar s ubar ! 5: e- e+ -> mu- mu+ u bbar b cbar ! 6: e- e+ -> mu- mu+ u bbar b ubar ! 7: e- e+ -> mu- mu+ u sbar d cbar ! 8: e- e+ -> mu- mu+ u sbar d ubar ! 9: e- e+ -> mu- mu+ u sbar s cbar ! 10: e- e+ -> mu- mu+ u sbar s ubar ! 11: e- e+ -> mu- mu+ u sbar b cbar ! 12: e- e+ -> mu- mu+ u sbar b ubar ! 13: e- e+ -> mu- mu+ u dbar d cbar ! 14: e- e+ -> mu- mu+ u dbar d ubar ! 15: e- e+ -> mu- mu+ u dbar s cbar ! 16: e- e+ -> mu- mu+ u dbar s ubar ! 17: e- e+ -> mu- mu+ u dbar b cbar ! 18: e- e+ -> mu- mu+ u dbar b ubar ! 19: e- e+ -> mu- mu+ c bbar d cbar ! 20: e- e+ -> mu- mu+ c bbar d ubar ! 21: e- e+ -> mu- mu+ c bbar s cbar ! 22: e- e+ -> mu- mu+ c bbar s ubar ! 23: e- e+ -> mu- mu+ c bbar b cbar ! 24: e- e+ -> mu- mu+ c bbar b ubar ! 25: e- e+ -> mu- mu+ c sbar d cbar ! 26: e- e+ -> mu- mu+ c sbar d ubar ! 27: e- e+ -> mu- mu+ c sbar s cbar ! 28: e- e+ -> mu- mu+ c sbar s ubar ! 29: e- e+ -> mu- mu+ c sbar b cbar ! 30: e- e+ -> mu- mu+ c sbar b ubar ! 31: e- e+ -> mu- mu+ c dbar d cbar ! 32: e- e+ -> mu- mu+ c dbar d ubar ! 33: e- e+ -> mu- mu+ c dbar s cbar ! 34: e- e+ -> mu- mu+ c dbar s ubar ! 35: e- e+ -> mu- mu+ c dbar b cbar ! 36: e- e+ -> mu- mu+ c dbar b ubar ! ! color flows: ! ! 1: ( 0, 0) ( 0, 0) -> ( 0, 0) ( 0, 0) ( 1, 0) ( 0, -2) ( 2, 0) ( 0, -1) ! 2: ( 0, 0) ( 0, 0) -> ( 0, 0) ( 0, 0) ( 1, 0) ( 0, -1) ( 2, 0) ( 0, -2) ! ! NB: i.g. not all color flows contribute to all flavor ! combinations. Consult the array FLV_COL_IS_ALLOWED ! below for the allowed combinations. ! ! Color Factors: ! ! ( 1, 1): + N^2 ! ( 2, 1): + N ! ( 2, 2): + N^2 ! ! vanishing or redundant flavor combinations: ! ! ! module opr_P6f_llxyyx_i1 use kinds use omega95 use omega_color, OCF => omega_color_factor use parameters_SM_CKM implicit none private public :: number_particles_in, number_particles_out, number_color_indices, & reset_helicity_selection, new_event, is_allowed, get_amplitude, & color_sum, openmp_supported, number_spin_states, spin_states, & number_flavor_states, flavor_states, number_color_flows, color_flows, & number_color_factors, color_factors, init, final, update_alpha_s, md5sum ! DON'T EVEN THINK of removing the following! ! If the compiler complains about undeclared ! or undefined variables, you are compiling ! against an incompatible omega95 module! integer, dimension(7), parameter, private :: require = & (/ omega_spinors_2010_01_A, omega_spinor_cpls_2010_01_A, & omega_vectors_2010_01_A, omega_polarizations_2010_01_A, & omega_couplings_2010_01_A, omega_color_2010_01_A, & omega_utils_2010_01_A /) integer, parameter :: n_prt = 8 integer, parameter :: n_in = 2 integer, parameter :: n_out = 6 integer, parameter :: n_cflow = 2 integer, parameter :: n_cindex = 2 integer, parameter :: n_flv = 36 integer, parameter :: n_hel = 256 ! NB: you MUST NOT change the value of N_ here!!! ! It is defined here for convenience only and must be ! compatible with hardcoded values in the amplitude! real(kind=default), parameter :: N_ = 3 logical, parameter :: F = .false. logical, parameter :: T = .true. integer, dimension(n_prt,n_hel), save, protected :: table_spin_states data table_spin_states(:, 1) / -1, -1, -1, -1, -1, -1, -1, -1 / data table_spin_states(:, 2) / -1, -1, -1, -1, -1, -1, -1, 1 / data table_spin_states(:, 3) / -1, -1, -1, -1, -1, -1, 1, -1 / data table_spin_states(:, 4) / -1, -1, -1, -1, -1, -1, 1, 1 / data table_spin_states(:, 5) / -1, -1, -1, -1, -1, 1, -1, -1 / data table_spin_states(:, 6) / -1, -1, -1, -1, -1, 1, -1, 1 / data table_spin_states(:, 7) / -1, -1, -1, -1, -1, 1, 1, -1 / data table_spin_states(:, 8) / -1, -1, -1, -1, -1, 1, 1, 1 / data table_spin_states(:, 9) / -1, -1, -1, -1, 1, -1, -1, -1 / data table_spin_states(:, 10) / -1, -1, -1, -1, 1, -1, -1, 1 / data table_spin_states(:, 11) / -1, -1, -1, -1, 1, -1, 1, -1 / data table_spin_states(:, 12) / -1, -1, -1, -1, 1, -1, 1, 1 / data table_spin_states(:, 13) / -1, -1, -1, -1, 1, 1, -1, -1 / data table_spin_states(:, 14) / -1, -1, -1, -1, 1, 1, -1, 1 / data table_spin_states(:, 15) / -1, -1, -1, -1, 1, 1, 1, -1 / data table_spin_states(:, 16) / -1, -1, -1, -1, 1, 1, 1, 1 / data table_spin_states(:, 17) / -1, -1, -1, 1, -1, -1, -1, -1 / data table_spin_states(:, 18) / -1, -1, -1, 1, -1, -1, -1, 1 / data table_spin_states(:, 19) / -1, -1, -1, 1, -1, -1, 1, -1 / data table_spin_states(:, 20) / -1, -1, -1, 1, -1, -1, 1, 1 / data table_spin_states(:, 21) / -1, -1, -1, 1, -1, 1, -1, -1 / data table_spin_states(:, 22) / -1, -1, -1, 1, -1, 1, -1, 1 / data table_spin_states(:, 23) / -1, -1, -1, 1, -1, 1, 1, -1 / data table_spin_states(:, 24) / -1, -1, -1, 1, -1, 1, 1, 1 / data table_spin_states(:, 25) / -1, -1, -1, 1, 1, -1, -1, -1 / data table_spin_states(:, 26) / -1, -1, -1, 1, 1, -1, -1, 1 / data table_spin_states(:, 27) / -1, -1, -1, 1, 1, -1, 1, -1 / data table_spin_states(:, 28) / -1, -1, -1, 1, 1, -1, 1, 1 / data table_spin_states(:, 29) / -1, -1, -1, 1, 1, 1, -1, -1 / data table_spin_states(:, 30) / -1, -1, -1, 1, 1, 1, -1, 1 / data table_spin_states(:, 31) / -1, -1, -1, 1, 1, 1, 1, -1 / data table_spin_states(:, 32) / -1, -1, -1, 1, 1, 1, 1, 1 / data table_spin_states(:, 33) / -1, -1, 1, -1, -1, -1, -1, -1 / data table_spin_states(:, 34) / -1, -1, 1, -1, -1, -1, -1, 1 / data table_spin_states(:, 35) / -1, -1, 1, -1, -1, -1, 1, -1 / data table_spin_states(:, 36) / -1, -1, 1, -1, -1, -1, 1, 1 / data table_spin_states(:, 37) / -1, -1, 1, -1, -1, 1, -1, -1 / data table_spin_states(:, 38) / -1, -1, 1, -1, -1, 1, -1, 1 / data table_spin_states(:, 39) / -1, -1, 1, -1, -1, 1, 1, -1 / data table_spin_states(:, 40) / -1, -1, 1, -1, -1, 1, 1, 1 / data table_spin_states(:, 41) / -1, -1, 1, -1, 1, -1, -1, -1 / data table_spin_states(:, 42) / -1, -1, 1, -1, 1, -1, -1, 1 / data table_spin_states(:, 43) / -1, -1, 1, -1, 1, -1, 1, -1 / data table_spin_states(:, 44) / -1, -1, 1, -1, 1, -1, 1, 1 / data table_spin_states(:, 45) / -1, -1, 1, -1, 1, 1, -1, -1 / data table_spin_states(:, 46) / -1, -1, 1, -1, 1, 1, -1, 1 / data table_spin_states(:, 47) / -1, -1, 1, -1, 1, 1, 1, -1 / data table_spin_states(:, 48) / -1, -1, 1, -1, 1, 1, 1, 1 / data table_spin_states(:, 49) / -1, -1, 1, 1, -1, -1, -1, -1 / data table_spin_states(:, 50) / -1, -1, 1, 1, -1, -1, -1, 1 / data table_spin_states(:, 51) / -1, -1, 1, 1, -1, -1, 1, -1 / data table_spin_states(:, 52) / -1, -1, 1, 1, -1, -1, 1, 1 / data table_spin_states(:, 53) / -1, -1, 1, 1, -1, 1, -1, -1 / data table_spin_states(:, 54) / -1, -1, 1, 1, -1, 1, -1, 1 / data table_spin_states(:, 55) / -1, -1, 1, 1, -1, 1, 1, -1 / data table_spin_states(:, 56) / -1, -1, 1, 1, -1, 1, 1, 1 / data table_spin_states(:, 57) / -1, -1, 1, 1, 1, -1, -1, -1 / data table_spin_states(:, 58) / -1, -1, 1, 1, 1, -1, -1, 1 / data table_spin_states(:, 59) / -1, -1, 1, 1, 1, -1, 1, -1 / data table_spin_states(:, 60) / -1, -1, 1, 1, 1, -1, 1, 1 / data table_spin_states(:, 61) / -1, -1, 1, 1, 1, 1, -1, -1 / data table_spin_states(:, 62) / -1, -1, 1, 1, 1, 1, -1, 1 / data table_spin_states(:, 63) / -1, -1, 1, 1, 1, 1, 1, -1 / data table_spin_states(:, 64) / -1, -1, 1, 1, 1, 1, 1, 1 / data table_spin_states(:, 65) / -1, 1, -1, -1, -1, -1, -1, -1 / data table_spin_states(:, 66) / -1, 1, -1, -1, -1, -1, -1, 1 / data table_spin_states(:, 67) / -1, 1, -1, -1, -1, -1, 1, -1 / data table_spin_states(:, 68) / -1, 1, -1, -1, -1, -1, 1, 1 / data table_spin_states(:, 69) / -1, 1, -1, -1, -1, 1, -1, -1 / data table_spin_states(:, 70) / -1, 1, -1, -1, -1, 1, -1, 1 / data table_spin_states(:, 71) / -1, 1, -1, -1, -1, 1, 1, -1 / data table_spin_states(:, 72) / -1, 1, -1, -1, -1, 1, 1, 1 / data table_spin_states(:, 73) / -1, 1, -1, -1, 1, -1, -1, -1 / data table_spin_states(:, 74) / -1, 1, -1, -1, 1, -1, -1, 1 / data table_spin_states(:, 75) / -1, 1, -1, -1, 1, -1, 1, -1 / data table_spin_states(:, 76) / -1, 1, -1, -1, 1, -1, 1, 1 / data table_spin_states(:, 77) / -1, 1, -1, -1, 1, 1, -1, -1 / data table_spin_states(:, 78) / -1, 1, -1, -1, 1, 1, -1, 1 / data table_spin_states(:, 79) / -1, 1, -1, -1, 1, 1, 1, -1 / data table_spin_states(:, 80) / -1, 1, -1, -1, 1, 1, 1, 1 / data table_spin_states(:, 81) / -1, 1, -1, 1, -1, -1, -1, -1 / data table_spin_states(:, 82) / -1, 1, -1, 1, -1, -1, -1, 1 / data table_spin_states(:, 83) / -1, 1, -1, 1, -1, -1, 1, -1 / data table_spin_states(:, 84) / -1, 1, -1, 1, -1, -1, 1, 1 / data table_spin_states(:, 85) / -1, 1, -1, 1, -1, 1, -1, -1 / data table_spin_states(:, 86) / -1, 1, -1, 1, -1, 1, -1, 1 / data table_spin_states(:, 87) / -1, 1, -1, 1, -1, 1, 1, -1 / data table_spin_states(:, 88) / -1, 1, -1, 1, -1, 1, 1, 1 / data table_spin_states(:, 89) / -1, 1, -1, 1, 1, -1, -1, -1 / data table_spin_states(:, 90) / -1, 1, -1, 1, 1, -1, -1, 1 / data table_spin_states(:, 91) / -1, 1, -1, 1, 1, -1, 1, -1 / data table_spin_states(:, 92) / -1, 1, -1, 1, 1, -1, 1, 1 / data table_spin_states(:, 93) / -1, 1, -1, 1, 1, 1, -1, -1 / data table_spin_states(:, 94) / -1, 1, -1, 1, 1, 1, -1, 1 / data table_spin_states(:, 95) / -1, 1, -1, 1, 1, 1, 1, -1 / data table_spin_states(:, 96) / -1, 1, -1, 1, 1, 1, 1, 1 / data table_spin_states(:, 97) / -1, 1, 1, -1, -1, -1, -1, -1 / data table_spin_states(:, 98) / -1, 1, 1, -1, -1, -1, -1, 1 / data table_spin_states(:, 99) / -1, 1, 1, -1, -1, -1, 1, -1 / data table_spin_states(:, 100) / -1, 1, 1, -1, -1, -1, 1, 1 / data table_spin_states(:, 101) / -1, 1, 1, -1, -1, 1, -1, -1 / data table_spin_states(:, 102) / -1, 1, 1, -1, -1, 1, -1, 1 / data table_spin_states(:, 103) / -1, 1, 1, -1, -1, 1, 1, -1 / data table_spin_states(:, 104) / -1, 1, 1, -1, -1, 1, 1, 1 / data table_spin_states(:, 105) / -1, 1, 1, -1, 1, -1, -1, -1 / data table_spin_states(:, 106) / -1, 1, 1, -1, 1, -1, -1, 1 / data table_spin_states(:, 107) / -1, 1, 1, -1, 1, -1, 1, -1 / data table_spin_states(:, 108) / -1, 1, 1, -1, 1, -1, 1, 1 / data table_spin_states(:, 109) / -1, 1, 1, -1, 1, 1, -1, -1 / data table_spin_states(:, 110) / -1, 1, 1, -1, 1, 1, -1, 1 / data table_spin_states(:, 111) / -1, 1, 1, -1, 1, 1, 1, -1 / data table_spin_states(:, 112) / -1, 1, 1, -1, 1, 1, 1, 1 / data table_spin_states(:, 113) / -1, 1, 1, 1, -1, -1, -1, -1 / data table_spin_states(:, 114) / -1, 1, 1, 1, -1, -1, -1, 1 / data table_spin_states(:, 115) / -1, 1, 1, 1, -1, -1, 1, -1 / data table_spin_states(:, 116) / -1, 1, 1, 1, -1, -1, 1, 1 / data table_spin_states(:, 117) / -1, 1, 1, 1, -1, 1, -1, -1 / data table_spin_states(:, 118) / -1, 1, 1, 1, -1, 1, -1, 1 / data table_spin_states(:, 119) / -1, 1, 1, 1, -1, 1, 1, -1 / data table_spin_states(:, 120) / -1, 1, 1, 1, -1, 1, 1, 1 / data table_spin_states(:, 121) / -1, 1, 1, 1, 1, -1, -1, -1 / data table_spin_states(:, 122) / -1, 1, 1, 1, 1, -1, -1, 1 / data table_spin_states(:, 123) / -1, 1, 1, 1, 1, -1, 1, -1 / data table_spin_states(:, 124) / -1, 1, 1, 1, 1, -1, 1, 1 / data table_spin_states(:, 125) / -1, 1, 1, 1, 1, 1, -1, -1 / data table_spin_states(:, 126) / -1, 1, 1, 1, 1, 1, -1, 1 / data table_spin_states(:, 127) / -1, 1, 1, 1, 1, 1, 1, -1 / data table_spin_states(:, 128) / -1, 1, 1, 1, 1, 1, 1, 1 / data table_spin_states(:, 129) / 1, -1, -1, -1, -1, -1, -1, -1 / data table_spin_states(:, 130) / 1, -1, -1, -1, -1, -1, -1, 1 / data table_spin_states(:, 131) / 1, -1, -1, -1, -1, -1, 1, -1 / data table_spin_states(:, 132) / 1, -1, -1, -1, -1, -1, 1, 1 / data table_spin_states(:, 133) / 1, -1, -1, -1, -1, 1, -1, -1 / data table_spin_states(:, 134) / 1, -1, -1, -1, -1, 1, -1, 1 / data table_spin_states(:, 135) / 1, -1, -1, -1, -1, 1, 1, -1 / data table_spin_states(:, 136) / 1, -1, -1, -1, -1, 1, 1, 1 / data table_spin_states(:, 137) / 1, -1, -1, -1, 1, -1, -1, -1 / data table_spin_states(:, 138) / 1, -1, -1, -1, 1, -1, -1, 1 / data table_spin_states(:, 139) / 1, -1, -1, -1, 1, -1, 1, -1 / data table_spin_states(:, 140) / 1, -1, -1, -1, 1, -1, 1, 1 / data table_spin_states(:, 141) / 1, -1, -1, -1, 1, 1, -1, -1 / data table_spin_states(:, 142) / 1, -1, -1, -1, 1, 1, -1, 1 / data table_spin_states(:, 143) / 1, -1, -1, -1, 1, 1, 1, -1 / data table_spin_states(:, 144) / 1, -1, -1, -1, 1, 1, 1, 1 / data table_spin_states(:, 145) / 1, -1, -1, 1, -1, -1, -1, -1 / data table_spin_states(:, 146) / 1, -1, -1, 1, -1, -1, -1, 1 / data table_spin_states(:, 147) / 1, -1, -1, 1, -1, -1, 1, -1 / data table_spin_states(:, 148) / 1, -1, -1, 1, -1, -1, 1, 1 / data table_spin_states(:, 149) / 1, -1, -1, 1, -1, 1, -1, -1 / data table_spin_states(:, 150) / 1, -1, -1, 1, -1, 1, -1, 1 / data table_spin_states(:, 151) / 1, -1, -1, 1, -1, 1, 1, -1 / data table_spin_states(:, 152) / 1, -1, -1, 1, -1, 1, 1, 1 / data table_spin_states(:, 153) / 1, -1, -1, 1, 1, -1, -1, -1 / data table_spin_states(:, 154) / 1, -1, -1, 1, 1, -1, -1, 1 / data table_spin_states(:, 155) / 1, -1, -1, 1, 1, -1, 1, -1 / data table_spin_states(:, 156) / 1, -1, -1, 1, 1, -1, 1, 1 / data table_spin_states(:, 157) / 1, -1, -1, 1, 1, 1, -1, -1 / data table_spin_states(:, 158) / 1, -1, -1, 1, 1, 1, -1, 1 / data table_spin_states(:, 159) / 1, -1, -1, 1, 1, 1, 1, -1 / data table_spin_states(:, 160) / 1, -1, -1, 1, 1, 1, 1, 1 / data table_spin_states(:, 161) / 1, -1, 1, -1, -1, -1, -1, -1 / data table_spin_states(:, 162) / 1, -1, 1, -1, -1, -1, -1, 1 / data table_spin_states(:, 163) / 1, -1, 1, -1, -1, -1, 1, -1 / data table_spin_states(:, 164) / 1, -1, 1, -1, -1, -1, 1, 1 / data table_spin_states(:, 165) / 1, -1, 1, -1, -1, 1, -1, -1 / data table_spin_states(:, 166) / 1, -1, 1, -1, -1, 1, -1, 1 / data table_spin_states(:, 167) / 1, -1, 1, -1, -1, 1, 1, -1 / data table_spin_states(:, 168) / 1, -1, 1, -1, -1, 1, 1, 1 / data table_spin_states(:, 169) / 1, -1, 1, -1, 1, -1, -1, -1 / data table_spin_states(:, 170) / 1, -1, 1, -1, 1, -1, -1, 1 / data table_spin_states(:, 171) / 1, -1, 1, -1, 1, -1, 1, -1 / data table_spin_states(:, 172) / 1, -1, 1, -1, 1, -1, 1, 1 / data table_spin_states(:, 173) / 1, -1, 1, -1, 1, 1, -1, -1 / data table_spin_states(:, 174) / 1, -1, 1, -1, 1, 1, -1, 1 / data table_spin_states(:, 175) / 1, -1, 1, -1, 1, 1, 1, -1 / data table_spin_states(:, 176) / 1, -1, 1, -1, 1, 1, 1, 1 / data table_spin_states(:, 177) / 1, -1, 1, 1, -1, -1, -1, -1 / data table_spin_states(:, 178) / 1, -1, 1, 1, -1, -1, -1, 1 / data table_spin_states(:, 179) / 1, -1, 1, 1, -1, -1, 1, -1 / data table_spin_states(:, 180) / 1, -1, 1, 1, -1, -1, 1, 1 / data table_spin_states(:, 181) / 1, -1, 1, 1, -1, 1, -1, -1 / data table_spin_states(:, 182) / 1, -1, 1, 1, -1, 1, -1, 1 / data table_spin_states(:, 183) / 1, -1, 1, 1, -1, 1, 1, -1 / data table_spin_states(:, 184) / 1, -1, 1, 1, -1, 1, 1, 1 / data table_spin_states(:, 185) / 1, -1, 1, 1, 1, -1, -1, -1 / data table_spin_states(:, 186) / 1, -1, 1, 1, 1, -1, -1, 1 / data table_spin_states(:, 187) / 1, -1, 1, 1, 1, -1, 1, -1 / data table_spin_states(:, 188) / 1, -1, 1, 1, 1, -1, 1, 1 / data table_spin_states(:, 189) / 1, -1, 1, 1, 1, 1, -1, -1 / data table_spin_states(:, 190) / 1, -1, 1, 1, 1, 1, -1, 1 / data table_spin_states(:, 191) / 1, -1, 1, 1, 1, 1, 1, -1 / data table_spin_states(:, 192) / 1, -1, 1, 1, 1, 1, 1, 1 / data table_spin_states(:, 193) / 1, 1, -1, -1, -1, -1, -1, -1 / data table_spin_states(:, 194) / 1, 1, -1, -1, -1, -1, -1, 1 / data table_spin_states(:, 195) / 1, 1, -1, -1, -1, -1, 1, -1 / data table_spin_states(:, 196) / 1, 1, -1, -1, -1, -1, 1, 1 / data table_spin_states(:, 197) / 1, 1, -1, -1, -1, 1, -1, -1 / data table_spin_states(:, 198) / 1, 1, -1, -1, -1, 1, -1, 1 / data table_spin_states(:, 199) / 1, 1, -1, -1, -1, 1, 1, -1 / data table_spin_states(:, 200) / 1, 1, -1, -1, -1, 1, 1, 1 / data table_spin_states(:, 201) / 1, 1, -1, -1, 1, -1, -1, -1 / data table_spin_states(:, 202) / 1, 1, -1, -1, 1, -1, -1, 1 / data table_spin_states(:, 203) / 1, 1, -1, -1, 1, -1, 1, -1 / data table_spin_states(:, 204) / 1, 1, -1, -1, 1, -1, 1, 1 / data table_spin_states(:, 205) / 1, 1, -1, -1, 1, 1, -1, -1 / data table_spin_states(:, 206) / 1, 1, -1, -1, 1, 1, -1, 1 / data table_spin_states(:, 207) / 1, 1, -1, -1, 1, 1, 1, -1 / data table_spin_states(:, 208) / 1, 1, -1, -1, 1, 1, 1, 1 / data table_spin_states(:, 209) / 1, 1, -1, 1, -1, -1, -1, -1 / data table_spin_states(:, 210) / 1, 1, -1, 1, -1, -1, -1, 1 / data table_spin_states(:, 211) / 1, 1, -1, 1, -1, -1, 1, -1 / data table_spin_states(:, 212) / 1, 1, -1, 1, -1, -1, 1, 1 / data table_spin_states(:, 213) / 1, 1, -1, 1, -1, 1, -1, -1 / data table_spin_states(:, 214) / 1, 1, -1, 1, -1, 1, -1, 1 / data table_spin_states(:, 215) / 1, 1, -1, 1, -1, 1, 1, -1 / data table_spin_states(:, 216) / 1, 1, -1, 1, -1, 1, 1, 1 / data table_spin_states(:, 217) / 1, 1, -1, 1, 1, -1, -1, -1 / data table_spin_states(:, 218) / 1, 1, -1, 1, 1, -1, -1, 1 / data table_spin_states(:, 219) / 1, 1, -1, 1, 1, -1, 1, -1 / data table_spin_states(:, 220) / 1, 1, -1, 1, 1, -1, 1, 1 / data table_spin_states(:, 221) / 1, 1, -1, 1, 1, 1, -1, -1 / data table_spin_states(:, 222) / 1, 1, -1, 1, 1, 1, -1, 1 / data table_spin_states(:, 223) / 1, 1, -1, 1, 1, 1, 1, -1 / data table_spin_states(:, 224) / 1, 1, -1, 1, 1, 1, 1, 1 / data table_spin_states(:, 225) / 1, 1, 1, -1, -1, -1, -1, -1 / data table_spin_states(:, 226) / 1, 1, 1, -1, -1, -1, -1, 1 / data table_spin_states(:, 227) / 1, 1, 1, -1, -1, -1, 1, -1 / data table_spin_states(:, 228) / 1, 1, 1, -1, -1, -1, 1, 1 / data table_spin_states(:, 229) / 1, 1, 1, -1, -1, 1, -1, -1 / data table_spin_states(:, 230) / 1, 1, 1, -1, -1, 1, -1, 1 / data table_spin_states(:, 231) / 1, 1, 1, -1, -1, 1, 1, -1 / data table_spin_states(:, 232) / 1, 1, 1, -1, -1, 1, 1, 1 / data table_spin_states(:, 233) / 1, 1, 1, -1, 1, -1, -1, -1 / data table_spin_states(:, 234) / 1, 1, 1, -1, 1, -1, -1, 1 / data table_spin_states(:, 235) / 1, 1, 1, -1, 1, -1, 1, -1 / data table_spin_states(:, 236) / 1, 1, 1, -1, 1, -1, 1, 1 / data table_spin_states(:, 237) / 1, 1, 1, -1, 1, 1, -1, -1 / data table_spin_states(:, 238) / 1, 1, 1, -1, 1, 1, -1, 1 / data table_spin_states(:, 239) / 1, 1, 1, -1, 1, 1, 1, -1 / data table_spin_states(:, 240) / 1, 1, 1, -1, 1, 1, 1, 1 / data table_spin_states(:, 241) / 1, 1, 1, 1, -1, -1, -1, -1 / data table_spin_states(:, 242) / 1, 1, 1, 1, -1, -1, -1, 1 / data table_spin_states(:, 243) / 1, 1, 1, 1, -1, -1, 1, -1 / data table_spin_states(:, 244) / 1, 1, 1, 1, -1, -1, 1, 1 / data table_spin_states(:, 245) / 1, 1, 1, 1, -1, 1, -1, -1 / data table_spin_states(:, 246) / 1, 1, 1, 1, -1, 1, -1, 1 / data table_spin_states(:, 247) / 1, 1, 1, 1, -1, 1, 1, -1 / data table_spin_states(:, 248) / 1, 1, 1, 1, -1, 1, 1, 1 / data table_spin_states(:, 249) / 1, 1, 1, 1, 1, -1, -1, -1 / data table_spin_states(:, 250) / 1, 1, 1, 1, 1, -1, -1, 1 / data table_spin_states(:, 251) / 1, 1, 1, 1, 1, -1, 1, -1 / data table_spin_states(:, 252) / 1, 1, 1, 1, 1, -1, 1, 1 / data table_spin_states(:, 253) / 1, 1, 1, 1, 1, 1, -1, -1 / data table_spin_states(:, 254) / 1, 1, 1, 1, 1, 1, -1, 1 / data table_spin_states(:, 255) / 1, 1, 1, 1, 1, 1, 1, -1 / data table_spin_states(:, 256) / 1, 1, 1, 1, 1, 1, 1, 1 / integer, dimension(n_prt,n_flv), save, protected :: table_flavor_states data table_flavor_states(:, 1) / 11, -11, 13, -13, 2, -5, 1, -4 / ! e- e+ mu- mu+ u bbar d cbar data table_flavor_states(:, 2) / 11, -11, 13, -13, 2, -5, 1, -2 / ! e- e+ mu- mu+ u bbar d ubar data table_flavor_states(:, 3) / 11, -11, 13, -13, 2, -5, 3, -4 / ! e- e+ mu- mu+ u bbar s cbar data table_flavor_states(:, 4) / 11, -11, 13, -13, 2, -5, 3, -2 / ! e- e+ mu- mu+ u bbar s ubar data table_flavor_states(:, 5) / 11, -11, 13, -13, 2, -5, 5, -4 / ! e- e+ mu- mu+ u bbar b cbar data table_flavor_states(:, 6) / 11, -11, 13, -13, 2, -5, 5, -2 / ! e- e+ mu- mu+ u bbar b ubar data table_flavor_states(:, 7) / 11, -11, 13, -13, 2, -3, 1, -4 / ! e- e+ mu- mu+ u sbar d cbar data table_flavor_states(:, 8) / 11, -11, 13, -13, 2, -3, 1, -2 / ! e- e+ mu- mu+ u sbar d ubar data table_flavor_states(:, 9) / 11, -11, 13, -13, 2, -3, 3, -4 / ! e- e+ mu- mu+ u sbar s cbar data table_flavor_states(:, 10) / 11, -11, 13, -13, 2, -3, 3, -2 / ! e- e+ mu- mu+ u sbar s ubar data table_flavor_states(:, 11) / 11, -11, 13, -13, 2, -3, 5, -4 / ! e- e+ mu- mu+ u sbar b cbar data table_flavor_states(:, 12) / 11, -11, 13, -13, 2, -3, 5, -2 / ! e- e+ mu- mu+ u sbar b ubar data table_flavor_states(:, 13) / 11, -11, 13, -13, 2, -1, 1, -4 / ! e- e+ mu- mu+ u dbar d cbar data table_flavor_states(:, 14) / 11, -11, 13, -13, 2, -1, 1, -2 / ! e- e+ mu- mu+ u dbar d ubar data table_flavor_states(:, 15) / 11, -11, 13, -13, 2, -1, 3, -4 / ! e- e+ mu- mu+ u dbar s cbar data table_flavor_states(:, 16) / 11, -11, 13, -13, 2, -1, 3, -2 / ! e- e+ mu- mu+ u dbar s ubar data table_flavor_states(:, 17) / 11, -11, 13, -13, 2, -1, 5, -4 / ! e- e+ mu- mu+ u dbar b cbar data table_flavor_states(:, 18) / 11, -11, 13, -13, 2, -1, 5, -2 / ! e- e+ mu- mu+ u dbar b ubar data table_flavor_states(:, 19) / 11, -11, 13, -13, 4, -5, 1, -4 / ! e- e+ mu- mu+ c bbar d cbar data table_flavor_states(:, 20) / 11, -11, 13, -13, 4, -5, 1, -2 / ! e- e+ mu- mu+ c bbar d ubar data table_flavor_states(:, 21) / 11, -11, 13, -13, 4, -5, 3, -4 / ! e- e+ mu- mu+ c bbar s cbar data table_flavor_states(:, 22) / 11, -11, 13, -13, 4, -5, 3, -2 / ! e- e+ mu- mu+ c bbar s ubar data table_flavor_states(:, 23) / 11, -11, 13, -13, 4, -5, 5, -4 / ! e- e+ mu- mu+ c bbar b cbar data table_flavor_states(:, 24) / 11, -11, 13, -13, 4, -5, 5, -2 / ! e- e+ mu- mu+ c bbar b ubar data table_flavor_states(:, 25) / 11, -11, 13, -13, 4, -3, 1, -4 / ! e- e+ mu- mu+ c sbar d cbar data table_flavor_states(:, 26) / 11, -11, 13, -13, 4, -3, 1, -2 / ! e- e+ mu- mu+ c sbar d ubar data table_flavor_states(:, 27) / 11, -11, 13, -13, 4, -3, 3, -4 / ! e- e+ mu- mu+ c sbar s cbar data table_flavor_states(:, 28) / 11, -11, 13, -13, 4, -3, 3, -2 / ! e- e+ mu- mu+ c sbar s ubar data table_flavor_states(:, 29) / 11, -11, 13, -13, 4, -3, 5, -4 / ! e- e+ mu- mu+ c sbar b cbar data table_flavor_states(:, 30) / 11, -11, 13, -13, 4, -3, 5, -2 / ! e- e+ mu- mu+ c sbar b ubar data table_flavor_states(:, 31) / 11, -11, 13, -13, 4, -1, 1, -4 / ! e- e+ mu- mu+ c dbar d cbar data table_flavor_states(:, 32) / 11, -11, 13, -13, 4, -1, 1, -2 / ! e- e+ mu- mu+ c dbar d ubar data table_flavor_states(:, 33) / 11, -11, 13, -13, 4, -1, 3, -4 / ! e- e+ mu- mu+ c dbar s cbar data table_flavor_states(:, 34) / 11, -11, 13, -13, 4, -1, 3, -2 / ! e- e+ mu- mu+ c dbar s ubar data table_flavor_states(:, 35) / 11, -11, 13, -13, 4, -1, 5, -4 / ! e- e+ mu- mu+ c dbar b cbar data table_flavor_states(:, 36) / 11, -11, 13, -13, 4, -1, 5, -2 / ! e- e+ mu- mu+ c dbar b ubar integer, dimension(n_cindex,n_prt,n_cflow), save, protected :: table_color_flows data table_color_flows(:,:, 1) / 0,0, 0,0, 0,0, 0,0, 1,0, 0,-2, & 2,0, 0,-1 / data table_color_flows(:,:, 2) / 0,0, 0,0, 0,0, 0,0, 1,0, 0,-1, & 2,0, 0,-2 / logical, dimension(n_prt,n_cflow), save, protected :: table_ghost_flags data table_ghost_flags(:, 1) / F, F, F, F, F, F, F, F / data table_ghost_flags(:, 2) / F, F, F, F, F, F, F, F / integer, parameter :: n_cfactors = 4 type(OCF), dimension(n_cfactors), save, protected :: table_color_factors real(kind=default), parameter, private :: color_factor_000001 = +N_**2 data table_color_factors( 1) / OCF(1,1,color_factor_000001) / real(kind=default), parameter, private :: color_factor_000002 = +N_ data table_color_factors( 2) / OCF(1,2,color_factor_000002) / real(kind=default), parameter, private :: color_factor_000003 = +N_ data table_color_factors( 3) / OCF(2,1,color_factor_000003) / real(kind=default), parameter, private :: color_factor_000004 = +N_**2 data table_color_factors( 4) / OCF(2,2,color_factor_000004) / logical, dimension(n_flv, n_cflow), save, protected :: flv_col_is_allowed data flv_col_is_allowed(:, 1) / F, F, F, F, F, T, F, F, F, T, F, F, F, T, & F, F, F, F, F, F, F, F, T, F, F, F, T, F, F, F, T, F, F, F, F, F / data flv_col_is_allowed(:, 2) / T, T, T, T, T, T, T, T, T, T, T, T, T, T, & T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T / complex(kind=default), dimension(n_flv, n_cflow, n_hel), save :: amp logical, dimension(n_hel), save :: hel_is_allowed = T real(kind=default), dimension(n_hel), save :: hel_max_abs = 0 real(kind=default), save :: hel_sum_abs = 0, hel_threshold = 1E10 integer, save :: hel_count = 0, hel_cutoff = 100 integer :: i integer, save, dimension(n_hel) :: hel_map = (/(i, i = 1, n_hel)/) integer, save :: hel_finite = n_hel type(momentum) :: p1, p2, p3, p4, p5, p6, p7, p8 type(momentum) :: p12, p123, p1234, p124, p125, p1256, p1258, p126, & p1267, p127, p1278, p128, p134, p158, p167, p178, p234, p256, p258, & p267, p34, p345, p346, p347, p348, p356, p358, p367, p458, p467, p478, & p56, p567, p568, p578, p58, p67, p678, p78 type(spinor) :: owf_d3_2__6, owf_d3_1__6, owf_d2_2__6, owf_d2_1__6, & owf_d1_2__6, owf_d1_1__6, owf_u2_2__8, owf_u2_1__8, owf_u1_2__8, & owf_u1_1__8, owf_l2_4, owf_l1_1 type(conjspinor) :: owf_d1b__2_7, owf_d2b__2_7, owf_d3b__2_7, & owf_u1b__1_5, owf_u2b__1_5, owf_l1b_2, owf_l2b_3 complex(kind=default) :: owf_h_1258_X1, owf_h_1258_X2, owf_h_1267_X1, & owf_h_1267_X2, owf_h_1267_X3, owf_h_1234, owf_h_58, owf_h_67 type(spinor) :: owf_d3_2__568_X1, owf_d3_2__568_X2, owf_d3_2__568_X3, & owf_d3_2__568_X4, owf_d3_2__568_X5, owf_d3_2__568_X6, owf_d3_2__568_X7, & owf_d3_2__568_X8, owf_d3_2__568_X9, owf_d3_2__568_X10, & owf_d3_2__568_X11, owf_d3_2__568_X12, owf_d3_2__568_X13, & owf_d3_2__568_X14, owf_d3_2__346, owf_d3_2__126, owf_d3_1__346, & owf_d3_1__126, owf_d2_2__568_X1, owf_d2_2__568_X2, owf_d2_2__568_X3, & owf_d2_2__568_X4, owf_d2_2__568_X5, owf_d2_2__568_X6, owf_d2_2__568_X7, & owf_d2_2__568_X8, owf_d2_2__568_X9, owf_d2_2__568_X10, & owf_d2_2__568_X11, owf_d2_2__568_X12, owf_d2_2__568_X13, & owf_d2_2__568_X14, owf_d2_2__346, owf_d2_2__126, owf_d2_1__346, & owf_d2_1__126, owf_d1_2__568_X1, owf_d1_2__568_X2, owf_d1_2__568_X3, & owf_d1_2__568_X4, owf_d1_2__568_X5, owf_d1_2__568_X6, owf_d1_2__568_X7, & owf_d1_2__568_X8, owf_d1_2__568_X9, owf_d1_2__568_X10, & owf_d1_2__568_X11, owf_d1_2__568_X12, owf_d1_2__568_X13, & owf_d1_2__568_X14, owf_d1_2__346, owf_d1_2__126, owf_d1_1__346, & owf_d1_1__126, owf_u2_2__348, owf_u2_2__128, owf_u2_1__678_X1, & owf_u2_1__678_X2, owf_u2_1__678_X3, owf_u2_1__678_X4, owf_u2_1__678_X5, & owf_u2_1__678_X6, owf_u2_1__678_X7, owf_u2_1__678_X8, owf_u2_1__678_X9, & owf_u2_1__678_X10, owf_u2_1__678_X11, owf_u2_1__678_X12, & owf_u2_1__678_X13, owf_u2_1__678_X14, owf_u2_1__678_X15, & owf_u2_1__678_X16, owf_u2_1__678_X17, owf_u2_1__678_X18, & owf_u2_1__678_X19, owf_u2_1__678_X20, owf_u2_1__678_X21, owf_u2_1__348, & owf_u2_1__128, owf_u1_2__348, owf_u1_2__128, owf_u1_1__678_X1, & owf_u1_1__678_X2, owf_u1_1__678_X3, owf_u1_1__678_X4, owf_u1_1__678_X5, & owf_u1_1__678_X6, owf_u1_1__678_X7, owf_u1_1__678_X8, owf_u1_1__678_X9, & owf_u1_1__678_X10, owf_u1_1__678_X11, owf_u1_1__678_X12, & owf_u1_1__678_X13, owf_u1_1__678_X14, owf_u1_1__678_X15, & owf_u1_1__678_X16, owf_u1_1__678_X17, owf_u1_1__678_X18, & owf_u1_1__678_X19, owf_u1_1__678_X20, owf_u1_1__678_X21, owf_u1_1__348, & owf_u1_1__128, owf_n2_478_X1, owf_n2_478_X2, owf_n2_478_X3, & owf_n2_478_X4, owf_n2_478_X5, owf_n2_478_X6, owf_n1_178_X1, & owf_n1_178_X2, owf_n1_178_X3, owf_n1_178_X4, owf_n1_178_X5, & owf_n1_178_X6, owf_l2_458_X1, owf_l2_458_X2, owf_l2_467_X1, & owf_l2_467_X2, owf_l2_467_X3, owf_l2_124, owf_l1_158_X1, owf_l1_158_X2, & owf_l1_167_X1, owf_l1_167_X2, owf_l1_167_X3, owf_l1_134 type(conjspinor) :: owf_d1b__2_578_X1, owf_d1b__2_578_X2, owf_d1b__2_347, & owf_d1b__2_127, owf_d1b__1_578_X1, owf_d1b__1_578_X2, & owf_d1b__1_578_X3, owf_d1b__1_578_X4, owf_d1b__1_578_X5, & owf_d1b__1_578_X6, owf_d1b__1_578_X7, owf_d1b__1_578_X8, & owf_d1b__1_578_X9, owf_d1b__1_578_X10, owf_d1b__1_578_X11, & owf_d1b__1_578_X12, owf_d2b__2_578_X1, owf_d2b__2_578_X2, & owf_d2b__2_347, owf_d2b__2_127, owf_d2b__1_578_X1, owf_d2b__1_578_X2, & owf_d2b__1_578_X3, owf_d2b__1_578_X4, owf_d2b__1_578_X5, & owf_d2b__1_578_X6, owf_d2b__1_578_X7, owf_d2b__1_578_X8, & owf_d2b__1_578_X9, owf_d2b__1_578_X10, owf_d2b__1_578_X11, & owf_d2b__1_578_X12, owf_d3b__2_578_X1, owf_d3b__2_578_X2, & owf_d3b__2_347, owf_d3b__2_127, owf_d3b__1_578_X1, owf_d3b__1_578_X2, & owf_d3b__1_578_X3, owf_d3b__1_578_X4, owf_d3b__1_578_X5, & owf_d3b__1_578_X6, owf_d3b__1_578_X7, owf_d3b__1_578_X8, & owf_d3b__1_578_X9, owf_d3b__1_578_X10, owf_d3b__1_578_X11, & owf_d3b__1_578_X12, owf_u1b__2_567_X1, owf_u1b__2_567_X2, & owf_u1b__2_567_X3, owf_u1b__2_567_X4, owf_u1b__2_567_X5, & owf_u1b__2_567_X6, owf_u1b__2_567_X7, owf_u1b__2_567_X8, & owf_u1b__2_567_X9, owf_u1b__2_567_X10, owf_u1b__2_567_X11, & owf_u1b__2_567_X12, owf_u1b__2_567_X13, owf_u1b__2_567_X14, & owf_u1b__2_567_X15, owf_u1b__2_567_X16, owf_u1b__2_567_X17, & owf_u1b__2_567_X18, owf_u1b__1_567_X1, owf_u1b__1_567_X2, & owf_u1b__1_567_X3, owf_u1b__1_345, owf_u1b__1_125, owf_u2b__2_567_X1, & owf_u2b__2_567_X2, owf_u2b__2_567_X3, owf_u2b__2_567_X4, & owf_u2b__2_567_X5, owf_u2b__2_567_X6, owf_u2b__2_567_X7, & owf_u2b__2_567_X8, owf_u2b__2_567_X9, owf_u2b__2_567_X10, & owf_u2b__2_567_X11, owf_u2b__2_567_X12, owf_u2b__2_567_X13, & owf_u2b__2_567_X14, owf_u2b__2_567_X15, owf_u2b__2_567_X16, & owf_u2b__2_567_X17, owf_u2b__2_567_X18, owf_u2b__1_567_X1, & owf_u2b__1_567_X2, owf_u2b__1_567_X3, owf_u2b__1_345, owf_u2b__1_125, & owf_n1b_256_X1, owf_n1b_256_X2, owf_n1b_256_X3, owf_n1b_256_X4, & owf_n1b_256_X5, owf_n1b_256_X6, owf_n2b_356_X1, owf_n2b_356_X2, & owf_n2b_356_X3, owf_n2b_356_X4, owf_n2b_356_X5, owf_n2b_356_X6, & owf_l1b_258_X1, owf_l1b_258_X2, owf_l1b_267_X1, owf_l1b_267_X2, & owf_l1b_267_X3, owf_l1b_234, owf_l2b_358_X1, owf_l2b_358_X2, & owf_l2b_367_X1, owf_l2b_367_X2, owf_l2b_367_X3, owf_l2b_123 type(vector) :: owf_gl___1258_X1, owf_gl___1258_X2, owf_gl___1267_X1, & owf_gl___1267_X2, owf_gl___1267_X3, owf_gl___58_X1, owf_gl___58_X2, & owf_gl___67_X1, owf_gl___67_X2, owf_gl___67_X3, owf_gl_2_1_1258_X1, & owf_gl_2_1_1258_X2, owf_gl_2_1_58_X1, owf_gl_2_1_58_X2, & owf_gl_1_2_1267_X1, owf_gl_1_2_1267_X2, owf_gl_1_2_1267_X3, & owf_gl_1_2_67_X1, owf_gl_1_2_67_X2, owf_gl_1_2_67_X3, owf_a_1258_X1, & owf_a_1258_X2, owf_a_1267_X1, owf_a_1267_X2, owf_a_1267_X3, owf_a_1234, & owf_a_58_X1, owf_a_58_X2, owf_a_67_X1, owf_a_67_X2, owf_a_67_X3, & owf_a_34, owf_a_12, owf_z_1258_X1, owf_z_1258_X2, owf_z_1267_X1, & owf_z_1267_X2, owf_z_1267_X3, owf_z_1234, owf_z_58_X1, owf_z_58_X2, & owf_z_67_X1, owf_z_67_X2, owf_z_67_X3, owf_z_34, owf_z_12, & owf_wm_1256_X1, owf_wm_1256_X2, owf_wm_1256_X3, owf_wm_1256_X4, & owf_wm_1256_X5, owf_wm_1256_X6, owf_wm_56_X1, owf_wm_56_X2, & owf_wm_56_X3, owf_wm_56_X4, owf_wm_56_X5, owf_wm_56_X6, owf_wp_1278_X1, & owf_wp_1278_X2, owf_wp_1278_X3, owf_wp_1278_X4, owf_wp_1278_X5, & owf_wp_1278_X6, owf_wp_78_X1, owf_wp_78_X2, owf_wp_78_X3, owf_wp_78_X4, & owf_wp_78_X5, owf_wp_78_X6 complex(kind=default) :: oks_l1l1bl2l2bu1_1_d3b__1d1_2_u2b__2, & oks_l1l1bl2l2bu1_1_d3b__1d1_2_u1b__2, & oks_l1l1bl2l2bu1_1_d3b__1d2_2_u2b__2, & oks_l1l1bl2l2bu1_1_d3b__1d2_2_u1b__2, & oks_l1l1bl2l2bu1_1_d3b__1d3_2_u2b__2, & oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1, & oks_l1l1bl2l2bu1_1_d3b__1d3_2_u1b__2, & oks_l1l1bl2l2bu1_1_d2b__1d1_2_u2b__2, & oks_l1l1bl2l2bu1_1_d2b__1d1_2_u1b__2, & oks_l1l1bl2l2bu1_1_d2b__1d2_2_u2b__2, & oks_l1l1bl2l2bu1_1_d2b__2d2_2_u1b__1, & oks_l1l1bl2l2bu1_1_d2b__1d2_2_u1b__2, & oks_l1l1bl2l2bu1_1_d2b__1d3_2_u2b__2, & oks_l1l1bl2l2bu1_1_d2b__1d3_2_u1b__2, & oks_l1l1bl2l2bu1_1_d1b__1d1_2_u2b__2, & oks_l1l1bl2l2bu1_1_d1b__2d1_2_u1b__1, & oks_l1l1bl2l2bu1_1_d1b__1d1_2_u1b__2, & oks_l1l1bl2l2bu1_1_d1b__1d2_2_u2b__2, & oks_l1l1bl2l2bu1_1_d1b__1d2_2_u1b__2, & oks_l1l1bl2l2bu1_1_d1b__1d3_2_u2b__2, & oks_l1l1bl2l2bu1_1_d1b__1d3_2_u1b__2, & oks_l1l1bl2l2bu2_1_d3b__1d1_2_u2b__2, & oks_l1l1bl2l2bu2_1_d3b__1d1_2_u1b__2, & oks_l1l1bl2l2bu2_1_d3b__1d2_2_u2b__2, & oks_l1l1bl2l2bu2_1_d3b__1d2_2_u1b__2, & oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1, & oks_l1l1bl2l2bu2_1_d3b__1d3_2_u2b__2, & oks_l1l1bl2l2bu2_1_d3b__1d3_2_u1b__2, & oks_l1l1bl2l2bu2_1_d2b__1d1_2_u2b__2, & oks_l1l1bl2l2bu2_1_d2b__1d1_2_u1b__2, & oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1, & oks_l1l1bl2l2bu2_1_d2b__1d2_2_u2b__2, & oks_l1l1bl2l2bu2_1_d2b__1d2_2_u1b__2, & oks_l1l1bl2l2bu2_1_d2b__1d3_2_u2b__2, & oks_l1l1bl2l2bu2_1_d2b__1d3_2_u1b__2, & oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1, & oks_l1l1bl2l2bu2_1_d1b__1d1_2_u2b__2, & oks_l1l1bl2l2bu2_1_d1b__1d1_2_u1b__2, & oks_l1l1bl2l2bu2_1_d1b__1d2_2_u2b__2, & oks_l1l1bl2l2bu2_1_d1b__1d2_2_u1b__2, & oks_l1l1bl2l2bu2_1_d1b__1d3_2_u2b__2, & oks_l1l1bl2l2bu2_1_d1b__1d3_2_u1b__2 contains pure function md5sum () character(len=32) :: md5sum ! DON'T EVEN THINK of modifying the following line! md5sum = "D8A1FDE17094C86ED2E7116FD04D6066" end function md5sum subroutine init (par, scheme) real(kind=default), dimension(*), intent(in) :: par integer, intent(in) :: scheme call import_from_whizard (par, scheme) end subroutine init subroutine final () end subroutine final subroutine update_alpha_s (alpha_s) real(kind=default), intent(in) :: alpha_s call model_update_alpha_s (alpha_s) end subroutine update_alpha_s pure function number_particles_in () result (n) integer :: n n = n_in end function number_particles_in pure function number_particles_out () result (n) integer :: n n = n_out end function number_particles_out pure function number_spin_states () result (n) integer :: n n = size (table_spin_states, dim=2) end function number_spin_states pure subroutine spin_states (a) integer, dimension(:,:), intent(out) :: a a = table_spin_states end subroutine spin_states pure function number_flavor_states () result (n) integer :: n n = size (table_flavor_states, dim=2) end function number_flavor_states pure subroutine flavor_states (a) integer, dimension(:,:), intent(out) :: a a = table_flavor_states end subroutine flavor_states pure function openmp_supported () result (status) logical :: status status = .false. end function openmp_supported pure function number_color_indices () result (n) integer :: n n = size (table_color_flows, dim=1) end function number_color_indices pure function number_color_flows () result (n) integer :: n n = size (table_color_flows, dim=3) end function number_color_flows pure subroutine color_flows (a, g) integer, dimension(:,:,:), intent(out) :: a logical, dimension(:,:), intent(out) :: g a = table_color_flows g = table_ghost_flags end subroutine color_flows pure function number_color_factors () result (n) integer :: n n = size (table_color_factors) end function number_color_factors pure subroutine color_factors (cf) type(OCF), dimension(:), intent(out) :: cf cf = table_color_factors end subroutine color_factors function color_sum (flv, hel) result (amp2) integer, intent(in) :: flv, hel real(kind=default) :: amp2 amp2 = real (omega_color_sum (flv, hel, amp, table_color_factors)) end function color_sum subroutine new_event (p) real(kind=default), dimension(0:3,*), intent(in) :: p logical :: mask_dirty integer :: hel call calculate_amplitudes (amp, p, hel_is_allowed) if ((hel_threshold .gt. 0) .and. (hel_count .le. hel_cutoff)) then call omega_update_helicity_selection (hel_count, amp, hel_max_abs, & hel_sum_abs, hel_is_allowed, hel_threshold, hel_cutoff, & mask_dirty) if (mask_dirty) then hel_finite = 0 do hel = 1, n_hel if (hel_is_allowed(hel)) then hel_finite = hel_finite + 1 hel_map(hel_finite) = hel end if end do end if end if end subroutine new_event subroutine reset_helicity_selection (threshold, cutoff) real(kind=default), intent(in) :: threshold integer, intent(in) :: cutoff integer :: i hel_is_allowed = T hel_max_abs = 0 hel_sum_abs = 0 hel_count = 0 hel_threshold = threshold hel_cutoff = cutoff hel_map = (/(i, i = 1, n_hel)/) hel_finite = n_hel end subroutine reset_helicity_selection pure function is_allowed (flv, hel, col) result (yorn) logical :: yorn integer, intent(in) :: flv, hel, col yorn = hel_is_allowed(hel) .and. flv_col_is_allowed(flv,col) end function is_allowed pure function get_amplitude (flv, hel, col) result (amp_result) complex(kind=default) :: amp_result integer, intent(in) :: flv, hel, col amp_result = amp(flv, col, hel) end function get_amplitude subroutine calculate_amplitudes (amp, k, mask) complex(kind=default), dimension(:,:,:), intent(out) :: amp real(kind=default), dimension(0:3,*), intent(in) :: k logical, dimension(:), intent(in) :: mask integer, dimension(n_prt) :: s integer :: h, hi p1 = - k(:,1) ! incoming p2 = - k(:,2) ! incoming p3 = k(:,3) ! outgoing p4 = k(:,4) ! outgoing p5 = k(:,5) ! outgoing p6 = k(:,6) ! outgoing p7 = k(:,7) ! outgoing p8 = k(:,8) ! outgoing p12 = p1 + p2 p34 = p3 + p4 p56 = p5 + p6 p78 = p7 + p8 p123 = p3 + p12 p124 = p4 + p12 p134 = p1 + p34 p234 = p2 + p34 p125 = p5 + p12 p345 = p5 + p34 p126 = p6 + p12 p346 = p6 + p34 p256 = p2 + p56 p356 = p3 + p56 p127 = p7 + p12 p347 = p7 + p34 p567 = p7 + p56 p128 = p8 + p12 p348 = p8 + p34 p568 = p8 + p56 p178 = p1 + p78 p478 = p4 + p78 p578 = p5 + p78 p678 = p6 + p78 p1234 = p12 + p34 p1256 = p1 + p256 p1278 = p2 + p178 p67 = p6 + p7 p58 = p5 + p8 p167 = p1 + p67 p267 = p2 + p67 p367 = p3 + p67 p467 = p4 + p67 p158 = p1 + p58 p258 = p2 + p58 p358 = p3 + p58 p458 = p4 + p58 p1267 = p6 + p127 p1258 = p12 + p58 amp = 0 if (hel_finite == 0) return do hi = 1, hel_finite h = hel_map(hi) s = table_spin_states(:,h) owf_l1_1 = u (mass(11), - p1, s(1)) owf_l1b_2 = vbar (mass(11), - p2, s(2)) owf_l2b_3 = ubar (mass(13), p3, s(3)) owf_l2_4 = v (mass(13), p4, s(4)) owf_u1b__1_5 = ubar (mass(2), p5, s(5)) owf_d3_1__6 = v (mass(5), p6, s(6)) owf_d1b__2_7 = ubar (mass(1), p7, s(7)) owf_u2_2__8 = v (mass(4), p8, s(8)) owf_u1_2__8 = v (mass(2), p8, s(8)) owf_d2b__2_7 = ubar (mass(3), p7, s(7)) owf_d3b__2_7 = ubar (mass(5), p7, s(7)) owf_d3_2__6 = v (mass(5), p6, s(6)) owf_u1_1__8 = v (mass(2), p8, s(8)) owf_d2_1__6 = v (mass(3), p6, s(6)) owf_d2_2__6 = v (mass(3), p6, s(6)) owf_d1_1__6 = v (mass(1), p6, s(6)) owf_d1_2__6 = v (mass(1), p6, s(6)) owf_u2b__1_5 = ubar (mass(4), p5, s(5)) owf_u2_1__8 = v (mass(4), p8, s(8)) call compute_fusions_0001 () call compute_fusions_0002 () call compute_fusions_0003 () call compute_fusions_0004 () call compute_fusions_0005 () call compute_fusions_0006 () call compute_fusions_0007 () call compute_fusions_0008 () call compute_fusions_0009 () call compute_fusions_0010 () call compute_fusions_0011 () call compute_fusions_0012 () call compute_fusions_0013 () call compute_fusions_0014 () call compute_fusions_0015 () call compute_fusions_0016 () call compute_fusions_0017 () call compute_fusions_0018 () call compute_fusions_0019 () call compute_fusions_0020 () call compute_fusions_0021 () call compute_fusions_0022 () call compute_fusions_0023 () call compute_fusions_0024 () call compute_fusions_0025 () call compute_fusions_0026 () call compute_fusions_0027 () call compute_fusions_0028 () call compute_fusions_0029 () call compute_fusions_0030 () call compute_fusions_0031 () call compute_fusions_0032 () call compute_fusions_0033 () call compute_brakets_0001 () call compute_brakets_0002 () call compute_brakets_0003 () call compute_brakets_0004 () call compute_brakets_0005 () call compute_brakets_0006 () call compute_brakets_0007 () call compute_brakets_0008 () call compute_brakets_0009 () call compute_brakets_0010 () call compute_brakets_0011 () call compute_brakets_0012 () call compute_brakets_0013 () call compute_brakets_0014 () call compute_brakets_0015 () call compute_brakets_0016 () call compute_brakets_0017 () call compute_brakets_0018 () call compute_brakets_0019 () call compute_brakets_0020 () call compute_brakets_0021 () call compute_brakets_0022 () call compute_brakets_0023 () call compute_brakets_0024 () call compute_brakets_0025 () call compute_brakets_0026 () call compute_brakets_0027 () call compute_brakets_0028 () call compute_brakets_0029 () call compute_brakets_0030 () call compute_brakets_0031 () call compute_brakets_0032 () call compute_brakets_0033 () call compute_brakets_0034 () call compute_brakets_0035 () call compute_brakets_0036 () call compute_brakets_0037 () call compute_brakets_0038 () call compute_brakets_0039 () call compute_brakets_0040 () call compute_brakets_0041 () call compute_brakets_0042 () amp(6,1,h) = oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 amp(10,1,h) = oks_l1l1bl2l2bu1_1_d2b__2d2_2_u1b__1 amp(14,1,h) = oks_l1l1bl2l2bu1_1_d1b__2d1_2_u1b__1 amp(23,1,h) = oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 amp(27,1,h) = oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 amp(31,1,h) = oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 amp(1,2,h) = oks_l1l1bl2l2bu1_1_d3b__1d1_2_u2b__2 amp(2,2,h) = oks_l1l1bl2l2bu1_1_d3b__1d1_2_u1b__2 amp(3,2,h) = oks_l1l1bl2l2bu1_1_d3b__1d2_2_u2b__2 amp(4,2,h) = oks_l1l1bl2l2bu1_1_d3b__1d2_2_u1b__2 amp(5,2,h) = oks_l1l1bl2l2bu1_1_d3b__1d3_2_u2b__2 amp(6,2,h) = oks_l1l1bl2l2bu1_1_d3b__1d3_2_u1b__2 amp(7,2,h) = oks_l1l1bl2l2bu1_1_d2b__1d1_2_u2b__2 amp(8,2,h) = oks_l1l1bl2l2bu1_1_d2b__1d1_2_u1b__2 amp(9,2,h) = oks_l1l1bl2l2bu1_1_d2b__1d2_2_u2b__2 amp(10,2,h) = oks_l1l1bl2l2bu1_1_d2b__1d2_2_u1b__2 amp(11,2,h) = oks_l1l1bl2l2bu1_1_d2b__1d3_2_u2b__2 amp(12,2,h) = oks_l1l1bl2l2bu1_1_d2b__1d3_2_u1b__2 amp(13,2,h) = oks_l1l1bl2l2bu1_1_d1b__1d1_2_u2b__2 amp(14,2,h) = oks_l1l1bl2l2bu1_1_d1b__1d1_2_u1b__2 amp(15,2,h) = oks_l1l1bl2l2bu1_1_d1b__1d2_2_u2b__2 amp(16,2,h) = oks_l1l1bl2l2bu1_1_d1b__1d2_2_u1b__2 amp(17,2,h) = oks_l1l1bl2l2bu1_1_d1b__1d3_2_u2b__2 amp(18,2,h) = oks_l1l1bl2l2bu1_1_d1b__1d3_2_u1b__2 amp(19,2,h) = oks_l1l1bl2l2bu2_1_d3b__1d1_2_u2b__2 amp(20,2,h) = oks_l1l1bl2l2bu2_1_d3b__1d1_2_u1b__2 amp(21,2,h) = oks_l1l1bl2l2bu2_1_d3b__1d2_2_u2b__2 amp(22,2,h) = oks_l1l1bl2l2bu2_1_d3b__1d2_2_u1b__2 amp(23,2,h) = oks_l1l1bl2l2bu2_1_d3b__1d3_2_u2b__2 amp(24,2,h) = oks_l1l1bl2l2bu2_1_d3b__1d3_2_u1b__2 amp(25,2,h) = oks_l1l1bl2l2bu2_1_d2b__1d1_2_u2b__2 amp(26,2,h) = oks_l1l1bl2l2bu2_1_d2b__1d1_2_u1b__2 amp(27,2,h) = oks_l1l1bl2l2bu2_1_d2b__1d2_2_u2b__2 amp(28,2,h) = oks_l1l1bl2l2bu2_1_d2b__1d2_2_u1b__2 amp(29,2,h) = oks_l1l1bl2l2bu2_1_d2b__1d3_2_u2b__2 amp(30,2,h) = oks_l1l1bl2l2bu2_1_d2b__1d3_2_u1b__2 amp(31,2,h) = oks_l1l1bl2l2bu2_1_d1b__1d1_2_u2b__2 amp(32,2,h) = oks_l1l1bl2l2bu2_1_d1b__1d1_2_u1b__2 amp(33,2,h) = oks_l1l1bl2l2bu2_1_d1b__1d2_2_u2b__2 amp(34,2,h) = oks_l1l1bl2l2bu2_1_d1b__1d2_2_u1b__2 amp(35,2,h) = oks_l1l1bl2l2bu2_1_d1b__1d3_2_u2b__2 amp(36,2,h) = oks_l1l1bl2l2bu2_1_d1b__1d3_2_u1b__2 end do end subroutine calculate_amplitudes subroutine compute_fusions_0001 () owf_a_12 = pr_feynman(p12, + v_ff(qlep,owf_l1b_2,owf_l1_1)) owf_z_12 = pr_unitarity(p12,mass(23),wd_tl(p12,width(23)),.false., & + va_ff(gnclep(1),gnclep(2),owf_l1b_2,owf_l1_1)) owf_a_34 = pr_feynman(p34, + v_ff(qlep,owf_l2b_3,owf_l2_4)) owf_z_34 = pr_unitarity(p34,mass(23),wd_tl(p34,width(23)),.false., & + va_ff(gnclep(1),gnclep(2),owf_l2b_3,owf_l2_4)) owf_wm_56_X3 = pr_unitarity(p56,mass(24),wd_tl(p56,width(24)),.false., & + vl_ff(gccq13,owf_u1b__1_5,owf_d3_1__6)) owf_wp_78_X4 = pr_unitarity(p78,mass(24),wd_tl(p78,width(24)),.false., & + vl_ff(gccq21,owf_d1b__2_7,owf_u2_2__8)) owf_l2b_123 = pr_psibar(p123,mass(13),wd_tl(p123,width(13)),.false., & - f_fv(qlep,owf_l2b_3,owf_a_12) & - f_fva(gnclep(1),gnclep(2),owf_l2b_3,owf_z_12)) owf_l2_124 = pr_psi(p124,mass(13),wd_tl(p124,width(13)),.false., & - f_vf(qlep,owf_a_12,owf_l2_4) & - f_vaf(gnclep(1),gnclep(2),owf_z_12,owf_l2_4)) owf_l1_134 = pr_psi(p134,mass(11),wd_tl(p134,width(11)),.false., & + f_vf(qlep,owf_a_34,owf_l1_1) & + f_vaf(gnclep(1),gnclep(2),owf_z_34,owf_l1_1)) owf_l1b_234 = pr_psibar(p234,mass(11),wd_tl(p234,width(11)),.false., & + f_fv(qlep,owf_l1b_2,owf_a_34) & + f_fva(gnclep(1),gnclep(2),owf_l1b_2,owf_z_34)) end subroutine compute_fusions_0001 subroutine compute_fusions_0002 () owf_u1b__1_125 = pr_psibar(p125,mass(2),wd_tl(p125,width(2)),.false., & - f_fv(qup,owf_u1b__1_5,owf_a_12) & - f_fva(gncup(1),gncup(2),owf_u1b__1_5,owf_z_12)) owf_u1b__1_345 = pr_psibar(p345,mass(2),wd_tl(p345,width(2)),.false., & - f_fv(qup,owf_u1b__1_5,owf_a_34) & - f_fva(gncup(1),gncup(2),owf_u1b__1_5,owf_z_34)) owf_d3_1__126 = pr_psi(p126,mass(5),wd_tl(p126,width(5)),.false., & - f_vf(qdwn,owf_a_12,owf_d3_1__6) & - f_vaf(gncdwn(1),gncdwn(2),owf_z_12,owf_d3_1__6)) owf_d3_1__346 = pr_psi(p346,mass(5),wd_tl(p346,width(5)),.false., & - f_vf(qdwn,owf_a_34,owf_d3_1__6) & - f_vaf(gncdwn(1),gncdwn(2),owf_z_34,owf_d3_1__6)) owf_n1b_256_X3 = pr_psibar(p256,mass(12),wd_tl(p256,width(12)),.false., & + f_fvl(gcc,owf_l1b_2,owf_wm_56_X3)) owf_n2b_356_X3 = pr_psibar(p356,mass(14),wd_tl(p356,width(14)),.false., & + f_fvl(gcc,owf_l2b_3,owf_wm_56_X3)) owf_d1b__2_127 = pr_psibar(p127,mass(1),wd_tl(p127,width(1)),.false., & - f_fv(qdwn,owf_d1b__2_7,owf_a_12) & - f_fva(gncdwn(1),gncdwn(2),owf_d1b__2_7,owf_z_12)) owf_d1b__2_347 = pr_psibar(p347,mass(1),wd_tl(p347,width(1)),.false., & - f_fv(qdwn,owf_d1b__2_7,owf_a_34) & - f_fva(gncdwn(1),gncdwn(2),owf_d1b__2_7,owf_z_34)) owf_u2b__2_567_X3 = & pr_psibar(p567,mass(4),wd_tl(p567,width(4)),.false., & - f_fvl(gccq21,owf_d1b__2_7,owf_wm_56_X3)) owf_u2_2__128 = pr_psi(p128,mass(4),wd_tl(p128,width(4)),.false., & - f_vf(qup,owf_a_12,owf_u2_2__8) & - f_vaf(gncup(1),gncup(2),owf_z_12,owf_u2_2__8)) end subroutine compute_fusions_0002 subroutine compute_fusions_0003 () owf_u2_2__348 = pr_psi(p348,mass(4),wd_tl(p348,width(4)),.false., & - f_vf(qup,owf_a_34,owf_u2_2__8) & - f_vaf(gncup(1),gncup(2),owf_z_34,owf_u2_2__8)) owf_d1_2__568_X9 = pr_psi(p568,mass(1),wd_tl(p568,width(1)),.false., & - f_vlf(gccq21,owf_wm_56_X3,owf_u2_2__8)) owf_n1_178_X4 = pr_psi(p178,mass(12),wd_tl(p178,width(12)),.false., & + f_vlf(gcc,owf_wp_78_X4,owf_l1_1)) owf_n2_478_X4 = pr_psi(p478,mass(14),wd_tl(p478,width(14)),.false., & + f_vlf(gcc,owf_wp_78_X4,owf_l2_4)) owf_d3b__1_578_X5 = & pr_psibar(p578,mass(5),wd_tl(p578,width(5)),.false., & + f_fvl(gccq13,owf_u1b__1_5,owf_wp_78_X4)) owf_u1_1__678_X19 = pr_psi(p678,mass(2),wd_tl(p678,width(2)),.false., & + f_vlf(gccq13,owf_wp_78_X4,owf_d3_1__6)) owf_h_1234 = pr_phi(p1234,mass(25),wd_tl(p1234,width(25)), & + ghzz*(owf_z_12*owf_z_34)) owf_a_1234 = pr_feynman(p1234, + v_ff(qlep,owf_l1b_234,owf_l1_1) & + v_ff(qlep,owf_l1b_2,owf_l1_134) - v_ff(qlep,owf_l2b_3,owf_l2_124) & - v_ff(qlep,owf_l2b_123,owf_l2_4)) owf_z_1234 = & pr_unitarity(p1234,mass(23),wd_tl(p1234,width(23)),.false., & + va_ff(gnclep(1),gnclep(2),owf_l1b_234,owf_l1_1) & + va_ff(gnclep(1),gnclep(2),owf_l1b_2,owf_l1_134) & - va_ff(gnclep(1),gnclep(2),owf_l2b_3,owf_l2_124) & - va_ff(gnclep(1),gnclep(2),owf_l2b_123,owf_l2_4)) owf_wm_1256_X3 = & pr_unitarity(p1256,mass(24),wd_tl(p1256,width(24)),.false., & + vl_ff(gcc,owf_n1b_256_X3,owf_l1_1) & - vl_ff(gccq13,owf_u1b__1_5,owf_d3_1__126) & - vl_ff(gccq13,owf_u1b__1_125,owf_d3_1__6) & + g_gg(iqw,owf_a_12,p12,owf_wm_56_X3,p56) & + g_gg(igzww,owf_z_12,p12,owf_wm_56_X3,p56)) end subroutine compute_fusions_0003 subroutine compute_fusions_0004 () owf_wp_1278_X4 = & pr_unitarity(p1278,mass(24),wd_tl(p1278,width(24)),.false., & + vl_ff(gcc,owf_l1b_2,owf_n1_178_X4) & - vl_ff(gccq21,owf_d1b__2_7,owf_u2_2__128) & - vl_ff(gccq21,owf_d1b__2_127,owf_u2_2__8) & + g_gg(iqw,owf_wp_78_X4,p78,owf_a_12,p12) & + g_gg(igzww,owf_wp_78_X4,p78,owf_z_12,p12)) owf_wp_78_X1 = pr_unitarity(p78,mass(24),wd_tl(p78,width(24)),.false., & + vl_ff(gccq11,owf_d1b__2_7,owf_u1_2__8)) owf_u1b__2_567_X3 = & pr_psibar(p567,mass(2),wd_tl(p567,width(2)),.false., & - f_fvl(gccq11,owf_d1b__2_7,owf_wm_56_X3)) owf_u1_2__128 = pr_psi(p128,mass(2),wd_tl(p128,width(2)),.false., & - f_vf(qup,owf_a_12,owf_u1_2__8) & - f_vaf(gncup(1),gncup(2),owf_z_12,owf_u1_2__8)) owf_u1_2__348 = pr_psi(p348,mass(2),wd_tl(p348,width(2)),.false., & - f_vf(qup,owf_a_34,owf_u1_2__8) & - f_vaf(gncup(1),gncup(2),owf_z_34,owf_u1_2__8)) owf_d1_2__568_X3 = pr_psi(p568,mass(1),wd_tl(p568,width(1)),.false., & - f_vlf(gccq11,owf_wm_56_X3,owf_u1_2__8)) owf_n1_178_X1 = pr_psi(p178,mass(12),wd_tl(p178,width(12)),.false., & + f_vlf(gcc,owf_wp_78_X1,owf_l1_1)) owf_n2_478_X1 = pr_psi(p478,mass(14),wd_tl(p478,width(14)),.false., & + f_vlf(gcc,owf_wp_78_X1,owf_l2_4)) owf_d3b__1_578_X3 = & pr_psibar(p578,mass(5),wd_tl(p578,width(5)),.false., & + f_fvl(gccq13,owf_u1b__1_5,owf_wp_78_X1)) owf_u1_1__678_X17 = pr_psi(p678,mass(2),wd_tl(p678,width(2)),.false., & + f_vlf(gccq13,owf_wp_78_X1,owf_d3_1__6)) end subroutine compute_fusions_0004 subroutine compute_fusions_0005 () owf_wp_1278_X1 = & pr_unitarity(p1278,mass(24),wd_tl(p1278,width(24)),.false., & + vl_ff(gcc,owf_l1b_2,owf_n1_178_X1) & - vl_ff(gccq11,owf_d1b__2_7,owf_u1_2__128) & - vl_ff(gccq11,owf_d1b__2_127,owf_u1_2__8) & + g_gg(iqw,owf_wp_78_X1,p78,owf_a_12,p12) & + g_gg(igzww,owf_wp_78_X1,p78,owf_z_12,p12)) owf_wp_78_X5 = pr_unitarity(p78,mass(24),wd_tl(p78,width(24)),.false., & + vl_ff(gccq22,owf_d2b__2_7,owf_u2_2__8)) owf_d2b__2_127 = pr_psibar(p127,mass(3),wd_tl(p127,width(3)),.false., & - f_fv(qdwn,owf_d2b__2_7,owf_a_12) & - f_fva(gncdwn(1),gncdwn(2),owf_d2b__2_7,owf_z_12)) owf_d2b__2_347 = pr_psibar(p347,mass(3),wd_tl(p347,width(3)),.false., & - f_fv(qdwn,owf_d2b__2_7,owf_a_34) & - f_fva(gncdwn(1),gncdwn(2),owf_d2b__2_7,owf_z_34)) owf_u2b__2_567_X9 = & pr_psibar(p567,mass(4),wd_tl(p567,width(4)),.false., & - f_fvl(gccq22,owf_d2b__2_7,owf_wm_56_X3)) owf_d2_2__568_X9 = pr_psi(p568,mass(3),wd_tl(p568,width(3)),.false., & - f_vlf(gccq22,owf_wm_56_X3,owf_u2_2__8)) owf_n1_178_X5 = pr_psi(p178,mass(12),wd_tl(p178,width(12)),.false., & + f_vlf(gcc,owf_wp_78_X5,owf_l1_1)) owf_n2_478_X5 = pr_psi(p478,mass(14),wd_tl(p478,width(14)),.false., & + f_vlf(gcc,owf_wp_78_X5,owf_l2_4)) owf_d3b__1_578_X6 = & pr_psibar(p578,mass(5),wd_tl(p578,width(5)),.false., & + f_fvl(gccq13,owf_u1b__1_5,owf_wp_78_X5)) owf_u1_1__678_X20 = pr_psi(p678,mass(2),wd_tl(p678,width(2)),.false., & + f_vlf(gccq13,owf_wp_78_X5,owf_d3_1__6)) end subroutine compute_fusions_0005 subroutine compute_fusions_0006 () owf_wp_1278_X5 = & pr_unitarity(p1278,mass(24),wd_tl(p1278,width(24)),.false., & + vl_ff(gcc,owf_l1b_2,owf_n1_178_X5) & - vl_ff(gccq22,owf_d2b__2_7,owf_u2_2__128) & - vl_ff(gccq22,owf_d2b__2_127,owf_u2_2__8) & + g_gg(iqw,owf_wp_78_X5,p78,owf_a_12,p12) & + g_gg(igzww,owf_wp_78_X5,p78,owf_z_12,p12)) owf_wp_78_X2 = pr_unitarity(p78,mass(24),wd_tl(p78,width(24)),.false., & + vl_ff(gccq12,owf_d2b__2_7,owf_u1_2__8)) owf_u1b__2_567_X9 = & pr_psibar(p567,mass(2),wd_tl(p567,width(2)),.false., & - f_fvl(gccq12,owf_d2b__2_7,owf_wm_56_X3)) owf_d2_2__568_X3 = pr_psi(p568,mass(3),wd_tl(p568,width(3)),.false., & - f_vlf(gccq12,owf_wm_56_X3,owf_u1_2__8)) owf_n1_178_X2 = pr_psi(p178,mass(12),wd_tl(p178,width(12)),.false., & + f_vlf(gcc,owf_wp_78_X2,owf_l1_1)) owf_n2_478_X2 = pr_psi(p478,mass(14),wd_tl(p478,width(14)),.false., & + f_vlf(gcc,owf_wp_78_X2,owf_l2_4)) owf_d3b__1_578_X4 = & pr_psibar(p578,mass(5),wd_tl(p578,width(5)),.false., & + f_fvl(gccq13,owf_u1b__1_5,owf_wp_78_X2)) owf_u1_1__678_X18 = pr_psi(p678,mass(2),wd_tl(p678,width(2)),.false., & + f_vlf(gccq13,owf_wp_78_X2,owf_d3_1__6)) owf_wp_1278_X2 = & pr_unitarity(p1278,mass(24),wd_tl(p1278,width(24)),.false., & + vl_ff(gcc,owf_l1b_2,owf_n1_178_X2) & - vl_ff(gccq12,owf_d2b__2_7,owf_u1_2__128) & - vl_ff(gccq12,owf_d2b__2_127,owf_u1_2__8) & + g_gg(iqw,owf_wp_78_X2,p78,owf_a_12,p12) & + g_gg(igzww,owf_wp_78_X2,p78,owf_z_12,p12)) owf_wp_78_X6 = pr_unitarity(p78,mass(24),wd_tl(p78,width(24)),.false., & + vl_ff(gccq23,owf_d3b__2_7,owf_u2_2__8)) end subroutine compute_fusions_0006 subroutine compute_fusions_0007 () owf_d3b__2_127 = pr_psibar(p127,mass(5),wd_tl(p127,width(5)),.false., & - f_fv(qdwn,owf_d3b__2_7,owf_a_12) & - f_fva(gncdwn(1),gncdwn(2),owf_d3b__2_7,owf_z_12)) owf_d3b__2_347 = pr_psibar(p347,mass(5),wd_tl(p347,width(5)),.false., & - f_fv(qdwn,owf_d3b__2_7,owf_a_34) & - f_fva(gncdwn(1),gncdwn(2),owf_d3b__2_7,owf_z_34)) owf_u2b__2_567_X15 = & pr_psibar(p567,mass(4),wd_tl(p567,width(4)),.false., & - f_fvl(gccq23,owf_d3b__2_7,owf_wm_56_X3)) owf_d3_2__568_X9 = pr_psi(p568,mass(5),wd_tl(p568,width(5)),.false., & - f_vlf(gccq23,owf_wm_56_X3,owf_u2_2__8)) owf_n1_178_X6 = pr_psi(p178,mass(12),wd_tl(p178,width(12)),.false., & + f_vlf(gcc,owf_wp_78_X6,owf_l1_1)) owf_n2_478_X6 = pr_psi(p478,mass(14),wd_tl(p478,width(14)),.false., & + f_vlf(gcc,owf_wp_78_X6,owf_l2_4)) owf_d3b__1_578_X7 = & pr_psibar(p578,mass(5),wd_tl(p578,width(5)),.false., & + f_fvl(gccq13,owf_u1b__1_5,owf_wp_78_X6)) owf_u1_1__678_X21 = pr_psi(p678,mass(2),wd_tl(p678,width(2)),.false., & + f_vlf(gccq13,owf_wp_78_X6,owf_d3_1__6)) owf_wp_1278_X6 = & pr_unitarity(p1278,mass(24),wd_tl(p1278,width(24)),.false., & + vl_ff(gcc,owf_l1b_2,owf_n1_178_X6) & - vl_ff(gccq23,owf_d3b__2_7,owf_u2_2__128) & - vl_ff(gccq23,owf_d3b__2_127,owf_u2_2__8) & + g_gg(iqw,owf_wp_78_X6,p78,owf_a_12,p12) & + g_gg(igzww,owf_wp_78_X6,p78,owf_z_12,p12)) owf_h_67 = pr_phi(p67,mass(25),wd_tl(p67,width(25)), & + s_ff(ghbb,owf_d3b__2_7,owf_d3_2__6)) end subroutine compute_fusions_0007 subroutine compute_fusions_0008 () owf_a_67_X3 = pr_feynman(p67, + v_ff(qdwn,owf_d3b__2_7,owf_d3_2__6)) owf_gl___67_X3 = (-1.0_default/3.0_default) * pr_feynman(p67, & + v_ff((-gs),owf_d3b__2_7,owf_d3_2__6)) owf_z_67_X3 = pr_unitarity(p67,mass(23),wd_tl(p67,width(23)),.false., & + va_ff(gncdwn(1),gncdwn(2),owf_d3b__2_7,owf_d3_2__6)) owf_a_58_X1 = pr_feynman(p58, + v_ff(qup,owf_u1b__1_5,owf_u1_1__8)) owf_gl___58_X1 = (-1.0_default/3.0_default) * pr_feynman(p58, & + v_ff((-gs),owf_u1b__1_5,owf_u1_1__8)) owf_z_58_X1 = pr_unitarity(p58,mass(23),wd_tl(p58,width(23)),.false., & + va_ff(gncup(1),gncup(2),owf_u1b__1_5,owf_u1_1__8)) owf_d3_2__126 = pr_psi(p126,mass(5),wd_tl(p126,width(5)),.false., & - f_vf(qdwn,owf_a_12,owf_d3_2__6) & - f_vaf(gncdwn(1),gncdwn(2),owf_z_12,owf_d3_2__6)) owf_d3_2__346 = pr_psi(p346,mass(5),wd_tl(p346,width(5)),.false., & - f_vf(qdwn,owf_a_34,owf_d3_2__6) & - f_vaf(gncdwn(1),gncdwn(2),owf_z_34,owf_d3_2__6)) owf_l1_167_X3 = pr_psi(p167,mass(11),wd_tl(p167,width(11)),.false., & + f_vf(qlep,owf_a_67_X3,owf_l1_1) & + f_vaf(gnclep(1),gnclep(2),owf_z_67_X3,owf_l1_1)) owf_l1b_267_X3 = pr_psibar(p267,mass(11),wd_tl(p267,width(11)),.false., & + f_fv(qlep,owf_l1b_2,owf_a_67_X3) & + f_fva(gnclep(1),gnclep(2),owf_l1b_2,owf_z_67_X3)) end subroutine compute_fusions_0008 subroutine compute_fusions_0009 () owf_l2b_367_X3 = pr_psibar(p367,mass(13),wd_tl(p367,width(13)),.false., & + f_fv(qlep,owf_l2b_3,owf_a_67_X3) & + f_fva(gnclep(1),gnclep(2),owf_l2b_3,owf_z_67_X3)) owf_l2_467_X3 = pr_psi(p467,mass(13),wd_tl(p467,width(13)),.false., & + f_vf(qlep,owf_a_67_X3,owf_l2_4) & + f_vaf(gnclep(1),gnclep(2),owf_z_67_X3,owf_l2_4)) owf_u1b__1_567_X3 = & pr_psibar(p567,mass(2),wd_tl(p567,width(2)),.false., & + f_fv(qup,owf_u1b__1_5,owf_a_67_X3) & + f_fv((-gs),owf_u1b__1_5,owf_gl___67_X3) & + f_fva(gncup(1),gncup(2),owf_u1b__1_5,owf_z_67_X3)) owf_u1_1__128 = pr_psi(p128,mass(2),wd_tl(p128,width(2)),.false., & - f_vf(qup,owf_a_12,owf_u1_1__8) & - f_vaf(gncup(1),gncup(2),owf_z_12,owf_u1_1__8)) owf_u1_1__348 = pr_psi(p348,mass(2),wd_tl(p348,width(2)),.false., & - f_vf(qup,owf_a_34,owf_u1_1__8) & - f_vaf(gncup(1),gncup(2),owf_z_34,owf_u1_1__8)) owf_l1_158_X1 = pr_psi(p158,mass(11),wd_tl(p158,width(11)),.false., & + f_vf(qlep,owf_a_58_X1,owf_l1_1) & + f_vaf(gnclep(1),gnclep(2),owf_z_58_X1,owf_l1_1)) owf_l1b_258_X1 = pr_psibar(p258,mass(11),wd_tl(p258,width(11)),.false., & + f_fv(qlep,owf_l1b_2,owf_a_58_X1) & + f_fva(gnclep(1),gnclep(2),owf_l1b_2,owf_z_58_X1)) owf_l2b_358_X1 = pr_psibar(p358,mass(13),wd_tl(p358,width(13)),.false., & + f_fv(qlep,owf_l2b_3,owf_a_58_X1) & + f_fva(gnclep(1),gnclep(2),owf_l2b_3,owf_z_58_X1)) owf_l2_458_X1 = pr_psi(p458,mass(13),wd_tl(p458,width(13)),.false., & + f_vf(qlep,owf_a_58_X1,owf_l2_4) & + f_vaf(gnclep(1),gnclep(2),owf_z_58_X1,owf_l2_4)) owf_d3_2__568_X13 = pr_psi(p568,mass(5),wd_tl(p568,width(5)),.false., & + f_vf(qdwn,owf_a_58_X1,owf_d3_2__6) & + f_vf((-gs),owf_gl___58_X1,owf_d3_2__6) & + f_vaf(gncdwn(1),gncdwn(2),owf_z_58_X1,owf_d3_2__6)) end subroutine compute_fusions_0009 subroutine compute_fusions_0010 () owf_d3b__2_578_X1 = & pr_psibar(p578,mass(5),wd_tl(p578,width(5)),.false., & - f_fv(qdwn,owf_d3b__2_7,owf_a_58_X1) & - f_fv((-gs),owf_d3b__2_7,owf_gl___58_X1) & - f_fva(gncdwn(1),gncdwn(2),owf_d3b__2_7,owf_z_58_X1)) owf_u1_1__678_X6 = pr_psi(p678,mass(2),wd_tl(p678,width(2)),.false., & - f_vf(qup,owf_a_67_X3,owf_u1_1__8) & - f_vf((-gs),owf_gl___67_X3,owf_u1_1__8) & - f_vaf(gncup(1),gncup(2),owf_z_67_X3,owf_u1_1__8)) owf_h_1267_X1 = pr_phi(p1267,mass(25),wd_tl(p1267,width(25)), & - s_ff(ghbb,owf_d3b__2_127,owf_d3_2__6) & - s_ff(ghbb,owf_d3b__2_7,owf_d3_2__126) & + ghzz*(owf_z_12*owf_z_67_X3)) owf_a_1267_X1 = pr_feynman(p1267, + v_ff(qlep,owf_l1b_267_X3,owf_l1_1) & + v_ff(qlep,owf_l1b_2,owf_l1_167_X3) & - v_ff(qdwn,owf_d3b__2_127,owf_d3_2__6) & - v_ff(qdwn,owf_d3b__2_7,owf_d3_2__126)) owf_gl___1267_X1 = (-1.0_default/3.0_default) * pr_feynman(p1267, & - v_ff((-gs),owf_d3b__2_127,owf_d3_2__6) & - v_ff((-gs),owf_d3b__2_7,owf_d3_2__126)) owf_z_1267_X1 = & pr_unitarity(p1267,mass(23),wd_tl(p1267,width(23)),.false., & + va_ff(gnclep(1),gnclep(2),owf_l1b_267_X3,owf_l1_1) & + va_ff(gnclep(1),gnclep(2),owf_l1b_2,owf_l1_167_X3) & - va_ff(gncdwn(1),gncdwn(2),owf_d3b__2_127,owf_d3_2__6) & - va_ff(gncdwn(1),gncdwn(2),owf_d3b__2_7,owf_d3_2__126) & + (ghzz*owf_h_67)*owf_z_12) owf_h_1258_X2 = pr_phi(p1258,mass(25),wd_tl(p1258,width(25)), & + ghzz*(owf_z_12*owf_z_58_X1)) owf_a_1258_X2 = pr_feynman(p1258, + v_ff(qlep,owf_l1b_258_X1,owf_l1_1) & + v_ff(qlep,owf_l1b_2,owf_l1_158_X1) & - v_ff(qup,owf_u1b__1_5,owf_u1_1__128) & - v_ff(qup,owf_u1b__1_125,owf_u1_1__8)) owf_gl___1258_X2 = (-1.0_default/3.0_default) * pr_feynman(p1258, & - v_ff((-gs),owf_u1b__1_5,owf_u1_1__128) & - v_ff((-gs),owf_u1b__1_125,owf_u1_1__8)) owf_z_1258_X2 = & pr_unitarity(p1258,mass(23),wd_tl(p1258,width(23)),.false., & + va_ff(gnclep(1),gnclep(2),owf_l1b_258_X1,owf_l1_1) & + va_ff(gnclep(1),gnclep(2),owf_l1b_2,owf_l1_158_X1) & - va_ff(gncup(1),gncup(2),owf_u1b__1_5,owf_u1_1__128) & - va_ff(gncup(1),gncup(2),owf_u1b__1_125,owf_u1_1__8)) end subroutine compute_fusions_0010 subroutine compute_fusions_0011 () owf_gl_1_2_67_X3 = pr_feynman(p67, & + v_ff((-gs),owf_d3b__2_7,owf_d3_1__6)) owf_gl_2_1_58_X1 = pr_feynman(p58, & + v_ff((-gs),owf_u1b__1_5,owf_u1_2__8)) owf_wp_78_X3 = pr_unitarity(p78,mass(24),wd_tl(p78,width(24)),.false., & + vl_ff(gccq13,owf_d3b__2_7,owf_u1_2__8)) owf_u1b__2_567_X15 = & pr_psibar(p567,mass(2),wd_tl(p567,width(2)),.false., & + f_fv((-gs),owf_u1b__1_5,owf_gl_1_2_67_X3) & - f_fvl(gccq13,owf_d3b__2_7,owf_wm_56_X3)) owf_d3_2__568_X3 = pr_psi(p568,mass(5),wd_tl(p568,width(5)),.false., & + f_vf((-gs),owf_gl_2_1_58_X1,owf_d3_1__6) & - f_vlf(gccq13,owf_wm_56_X3,owf_u1_2__8)) owf_n1_178_X3 = pr_psi(p178,mass(12),wd_tl(p178,width(12)),.false., & + f_vlf(gcc,owf_wp_78_X3,owf_l1_1)) owf_n2_478_X3 = pr_psi(p478,mass(14),wd_tl(p478,width(14)),.false., & + f_vlf(gcc,owf_wp_78_X3,owf_l2_4)) owf_d3b__1_578_X1 = & pr_psibar(p578,mass(5),wd_tl(p578,width(5)),.false., & + f_fvl(gccq13,owf_u1b__1_5,owf_wp_78_X3) & - f_fv((-gs),owf_d3b__2_7,owf_gl_2_1_58_X1)) owf_u1_1__678_X3 = pr_psi(p678,mass(2),wd_tl(p678,width(2)),.false., & + f_vlf(gccq13,owf_wp_78_X3,owf_d3_1__6) & - f_vf((-gs),owf_gl_1_2_67_X3,owf_u1_2__8)) owf_gl_1_2_1267_X1 = pr_feynman(p1267, & - v_ff((-gs),owf_d3b__2_127,owf_d3_1__6) & - v_ff((-gs),owf_d3b__2_7,owf_d3_1__126)) end subroutine compute_fusions_0011 subroutine compute_fusions_0012 () owf_gl_2_1_1258_X2 = pr_feynman(p1258, & - v_ff((-gs),owf_u1b__1_5,owf_u1_2__128) & - v_ff((-gs),owf_u1b__1_125,owf_u1_2__8)) owf_wp_1278_X3 = & pr_unitarity(p1278,mass(24),wd_tl(p1278,width(24)),.false., & + vl_ff(gcc,owf_l1b_2,owf_n1_178_X3) & - vl_ff(gccq13,owf_d3b__2_7,owf_u1_2__128) & - vl_ff(gccq13,owf_d3b__2_127,owf_u1_2__8) & + g_gg(iqw,owf_wp_78_X3,p78,owf_a_12,p12) & + g_gg(igzww,owf_wp_78_X3,p78,owf_z_12,p12)) owf_wm_56_X2 = pr_unitarity(p56,mass(24),wd_tl(p56,width(24)),.false., & + vl_ff(gccq12,owf_u1b__1_5,owf_d2_1__6)) owf_d2_1__126 = pr_psi(p126,mass(3),wd_tl(p126,width(3)),.false., & - f_vf(qdwn,owf_a_12,owf_d2_1__6) & - f_vaf(gncdwn(1),gncdwn(2),owf_z_12,owf_d2_1__6)) owf_d2_1__346 = pr_psi(p346,mass(3),wd_tl(p346,width(3)),.false., & - f_vf(qdwn,owf_a_34,owf_d2_1__6) & - f_vaf(gncdwn(1),gncdwn(2),owf_z_34,owf_d2_1__6)) owf_n1b_256_X2 = pr_psibar(p256,mass(12),wd_tl(p256,width(12)),.false., & + f_fvl(gcc,owf_l1b_2,owf_wm_56_X2)) owf_n2b_356_X2 = pr_psibar(p356,mass(14),wd_tl(p356,width(14)),.false., & + f_fvl(gcc,owf_l2b_3,owf_wm_56_X2)) owf_u2b__2_567_X2 = & pr_psibar(p567,mass(4),wd_tl(p567,width(4)),.false., & - f_fvl(gccq21,owf_d1b__2_7,owf_wm_56_X2)) owf_d1_2__568_X8 = pr_psi(p568,mass(1),wd_tl(p568,width(1)),.false., & - f_vlf(gccq21,owf_wm_56_X2,owf_u2_2__8)) owf_d2b__1_578_X5 = & pr_psibar(p578,mass(3),wd_tl(p578,width(3)),.false., & + f_fvl(gccq12,owf_u1b__1_5,owf_wp_78_X4)) end subroutine compute_fusions_0012 subroutine compute_fusions_0013 () owf_u1_1__678_X14 = pr_psi(p678,mass(2),wd_tl(p678,width(2)),.false., & + f_vlf(gccq12,owf_wp_78_X4,owf_d2_1__6)) owf_wm_1256_X2 = & pr_unitarity(p1256,mass(24),wd_tl(p1256,width(24)),.false., & + vl_ff(gcc,owf_n1b_256_X2,owf_l1_1) & - vl_ff(gccq12,owf_u1b__1_5,owf_d2_1__126) & - vl_ff(gccq12,owf_u1b__1_125,owf_d2_1__6) & + g_gg(iqw,owf_a_12,p12,owf_wm_56_X2,p56) & + g_gg(igzww,owf_z_12,p12,owf_wm_56_X2,p56)) owf_u1b__2_567_X2 = & pr_psibar(p567,mass(2),wd_tl(p567,width(2)),.false., & - f_fvl(gccq11,owf_d1b__2_7,owf_wm_56_X2)) owf_d1_2__568_X2 = pr_psi(p568,mass(1),wd_tl(p568,width(1)),.false., & - f_vlf(gccq11,owf_wm_56_X2,owf_u1_2__8)) owf_d2b__1_578_X3 = & pr_psibar(p578,mass(3),wd_tl(p578,width(3)),.false., & + f_fvl(gccq12,owf_u1b__1_5,owf_wp_78_X1)) owf_u1_1__678_X12 = pr_psi(p678,mass(2),wd_tl(p678,width(2)),.false., & + f_vlf(gccq12,owf_wp_78_X1,owf_d2_1__6)) owf_u2b__2_567_X8 = & pr_psibar(p567,mass(4),wd_tl(p567,width(4)),.false., & - f_fvl(gccq22,owf_d2b__2_7,owf_wm_56_X2)) owf_d2_2__568_X8 = pr_psi(p568,mass(3),wd_tl(p568,width(3)),.false., & - f_vlf(gccq22,owf_wm_56_X2,owf_u2_2__8)) owf_d2b__1_578_X6 = & pr_psibar(p578,mass(3),wd_tl(p578,width(3)),.false., & + f_fvl(gccq12,owf_u1b__1_5,owf_wp_78_X5)) owf_u1_1__678_X15 = pr_psi(p678,mass(2),wd_tl(p678,width(2)),.false., & + f_vlf(gccq12,owf_wp_78_X5,owf_d2_1__6)) end subroutine compute_fusions_0013 subroutine compute_fusions_0014 () owf_a_67_X2 = pr_feynman(p67, + v_ff(qdwn,owf_d2b__2_7,owf_d2_2__6)) owf_gl___67_X2 = (-1.0_default/3.0_default) * pr_feynman(p67, & + v_ff((-gs),owf_d2b__2_7,owf_d2_2__6)) owf_z_67_X2 = pr_unitarity(p67,mass(23),wd_tl(p67,width(23)),.false., & + va_ff(gncdwn(1),gncdwn(2),owf_d2b__2_7,owf_d2_2__6)) owf_d2_2__126 = pr_psi(p126,mass(3),wd_tl(p126,width(3)),.false., & - f_vf(qdwn,owf_a_12,owf_d2_2__6) & - f_vaf(gncdwn(1),gncdwn(2),owf_z_12,owf_d2_2__6)) owf_d2_2__346 = pr_psi(p346,mass(3),wd_tl(p346,width(3)),.false., & - f_vf(qdwn,owf_a_34,owf_d2_2__6) & - f_vaf(gncdwn(1),gncdwn(2),owf_z_34,owf_d2_2__6)) owf_l1_167_X2 = pr_psi(p167,mass(11),wd_tl(p167,width(11)),.false., & + f_vf(qlep,owf_a_67_X2,owf_l1_1) & + f_vaf(gnclep(1),gnclep(2),owf_z_67_X2,owf_l1_1)) owf_l1b_267_X2 = pr_psibar(p267,mass(11),wd_tl(p267,width(11)),.false., & + f_fv(qlep,owf_l1b_2,owf_a_67_X2) & + f_fva(gnclep(1),gnclep(2),owf_l1b_2,owf_z_67_X2)) owf_l2b_367_X2 = pr_psibar(p367,mass(13),wd_tl(p367,width(13)),.false., & + f_fv(qlep,owf_l2b_3,owf_a_67_X2) & + f_fva(gnclep(1),gnclep(2),owf_l2b_3,owf_z_67_X2)) owf_l2_467_X2 = pr_psi(p467,mass(13),wd_tl(p467,width(13)),.false., & + f_vf(qlep,owf_a_67_X2,owf_l2_4) & + f_vaf(gnclep(1),gnclep(2),owf_z_67_X2,owf_l2_4)) owf_u1b__1_567_X2 = & pr_psibar(p567,mass(2),wd_tl(p567,width(2)),.false., & + f_fv(qup,owf_u1b__1_5,owf_a_67_X2) & + f_fv((-gs),owf_u1b__1_5,owf_gl___67_X2) & + f_fva(gncup(1),gncup(2),owf_u1b__1_5,owf_z_67_X2)) end subroutine compute_fusions_0014 subroutine compute_fusions_0015 () owf_d2_2__568_X13 = pr_psi(p568,mass(3),wd_tl(p568,width(3)),.false., & + f_vf(qdwn,owf_a_58_X1,owf_d2_2__6) & + f_vf((-gs),owf_gl___58_X1,owf_d2_2__6) & + f_vaf(gncdwn(1),gncdwn(2),owf_z_58_X1,owf_d2_2__6)) owf_d2b__2_578_X1 = & pr_psibar(p578,mass(3),wd_tl(p578,width(3)),.false., & - f_fv(qdwn,owf_d2b__2_7,owf_a_58_X1) & - f_fv((-gs),owf_d2b__2_7,owf_gl___58_X1) & - f_fva(gncdwn(1),gncdwn(2),owf_d2b__2_7,owf_z_58_X1)) owf_u1_1__678_X5 = pr_psi(p678,mass(2),wd_tl(p678,width(2)),.false., & - f_vf(qup,owf_a_67_X2,owf_u1_1__8) & - f_vf((-gs),owf_gl___67_X2,owf_u1_1__8) & - f_vaf(gncup(1),gncup(2),owf_z_67_X2,owf_u1_1__8)) owf_h_1267_X3 = pr_phi(p1267,mass(25),wd_tl(p1267,width(25)), & + ghzz*(owf_z_12*owf_z_67_X2)) owf_a_1267_X2 = pr_feynman(p1267, + v_ff(qlep,owf_l1b_267_X2,owf_l1_1) & + v_ff(qlep,owf_l1b_2,owf_l1_167_X2) & - v_ff(qdwn,owf_d2b__2_127,owf_d2_2__6) & - v_ff(qdwn,owf_d2b__2_7,owf_d2_2__126)) owf_gl___1267_X2 = (-1.0_default/3.0_default) * pr_feynman(p1267, & - v_ff((-gs),owf_d2b__2_127,owf_d2_2__6) & - v_ff((-gs),owf_d2b__2_7,owf_d2_2__126)) owf_z_1267_X2 = & pr_unitarity(p1267,mass(23),wd_tl(p1267,width(23)),.false., & + va_ff(gnclep(1),gnclep(2),owf_l1b_267_X2,owf_l1_1) & + va_ff(gnclep(1),gnclep(2),owf_l1b_2,owf_l1_167_X2) & - va_ff(gncdwn(1),gncdwn(2),owf_d2b__2_127,owf_d2_2__6) & - va_ff(gncdwn(1),gncdwn(2),owf_d2b__2_7,owf_d2_2__126)) owf_gl_1_2_67_X2 = pr_feynman(p67, & + v_ff((-gs),owf_d2b__2_7,owf_d2_1__6)) owf_u1b__2_567_X8 = & pr_psibar(p567,mass(2),wd_tl(p567,width(2)),.false., & + f_fv((-gs),owf_u1b__1_5,owf_gl_1_2_67_X2) & - f_fvl(gccq12,owf_d2b__2_7,owf_wm_56_X2)) owf_d2_2__568_X2 = pr_psi(p568,mass(3),wd_tl(p568,width(3)),.false., & + f_vf((-gs),owf_gl_2_1_58_X1,owf_d2_1__6) & - f_vlf(gccq12,owf_wm_56_X2,owf_u1_2__8)) end subroutine compute_fusions_0015 subroutine compute_fusions_0016 () owf_d2b__1_578_X1 = & pr_psibar(p578,mass(3),wd_tl(p578,width(3)),.false., & + f_fvl(gccq12,owf_u1b__1_5,owf_wp_78_X2) & - f_fv((-gs),owf_d2b__2_7,owf_gl_2_1_58_X1)) owf_u1_1__678_X2 = pr_psi(p678,mass(2),wd_tl(p678,width(2)),.false., & + f_vlf(gccq12,owf_wp_78_X2,owf_d2_1__6) & - f_vf((-gs),owf_gl_1_2_67_X2,owf_u1_2__8)) owf_gl_1_2_1267_X2 = pr_feynman(p1267, & - v_ff((-gs),owf_d2b__2_127,owf_d2_1__6) & - v_ff((-gs),owf_d2b__2_7,owf_d2_1__126)) owf_u2b__2_567_X14 = & pr_psibar(p567,mass(4),wd_tl(p567,width(4)),.false., & - f_fvl(gccq23,owf_d3b__2_7,owf_wm_56_X2)) owf_d3_2__568_X8 = pr_psi(p568,mass(5),wd_tl(p568,width(5)),.false., & - f_vlf(gccq23,owf_wm_56_X2,owf_u2_2__8)) owf_d2b__1_578_X7 = & pr_psibar(p578,mass(3),wd_tl(p578,width(3)),.false., & + f_fvl(gccq12,owf_u1b__1_5,owf_wp_78_X6)) owf_u1_1__678_X16 = pr_psi(p678,mass(2),wd_tl(p678,width(2)),.false., & + f_vlf(gccq12,owf_wp_78_X6,owf_d2_1__6)) owf_u1b__2_567_X14 = & pr_psibar(p567,mass(2),wd_tl(p567,width(2)),.false., & - f_fvl(gccq13,owf_d3b__2_7,owf_wm_56_X2)) owf_d3_2__568_X2 = pr_psi(p568,mass(5),wd_tl(p568,width(5)),.false., & - f_vlf(gccq13,owf_wm_56_X2,owf_u1_2__8)) owf_d2b__1_578_X4 = & pr_psibar(p578,mass(3),wd_tl(p578,width(3)),.false., & + f_fvl(gccq12,owf_u1b__1_5,owf_wp_78_X3)) end subroutine compute_fusions_0016 subroutine compute_fusions_0017 () owf_u1_1__678_X13 = pr_psi(p678,mass(2),wd_tl(p678,width(2)),.false., & + f_vlf(gccq12,owf_wp_78_X3,owf_d2_1__6)) owf_wm_56_X1 = pr_unitarity(p56,mass(24),wd_tl(p56,width(24)),.false., & + vl_ff(gccq11,owf_u1b__1_5,owf_d1_1__6)) owf_d1_1__126 = pr_psi(p126,mass(1),wd_tl(p126,width(1)),.false., & - f_vf(qdwn,owf_a_12,owf_d1_1__6) & - f_vaf(gncdwn(1),gncdwn(2),owf_z_12,owf_d1_1__6)) owf_d1_1__346 = pr_psi(p346,mass(1),wd_tl(p346,width(1)),.false., & - f_vf(qdwn,owf_a_34,owf_d1_1__6) & - f_vaf(gncdwn(1),gncdwn(2),owf_z_34,owf_d1_1__6)) owf_n1b_256_X1 = pr_psibar(p256,mass(12),wd_tl(p256,width(12)),.false., & + f_fvl(gcc,owf_l1b_2,owf_wm_56_X1)) owf_n2b_356_X1 = pr_psibar(p356,mass(14),wd_tl(p356,width(14)),.false., & + f_fvl(gcc,owf_l2b_3,owf_wm_56_X1)) owf_u2b__2_567_X1 = & pr_psibar(p567,mass(4),wd_tl(p567,width(4)),.false., & - f_fvl(gccq21,owf_d1b__2_7,owf_wm_56_X1)) owf_d1_2__568_X7 = pr_psi(p568,mass(1),wd_tl(p568,width(1)),.false., & - f_vlf(gccq21,owf_wm_56_X1,owf_u2_2__8)) owf_d1b__1_578_X5 = & pr_psibar(p578,mass(1),wd_tl(p578,width(1)),.false., & + f_fvl(gccq11,owf_u1b__1_5,owf_wp_78_X4)) owf_u1_1__678_X9 = pr_psi(p678,mass(2),wd_tl(p678,width(2)),.false., & + f_vlf(gccq11,owf_wp_78_X4,owf_d1_1__6)) end subroutine compute_fusions_0017 subroutine compute_fusions_0018 () owf_wm_1256_X1 = & pr_unitarity(p1256,mass(24),wd_tl(p1256,width(24)),.false., & + vl_ff(gcc,owf_n1b_256_X1,owf_l1_1) & - vl_ff(gccq11,owf_u1b__1_5,owf_d1_1__126) & - vl_ff(gccq11,owf_u1b__1_125,owf_d1_1__6) & + g_gg(iqw,owf_a_12,p12,owf_wm_56_X1,p56) & + g_gg(igzww,owf_z_12,p12,owf_wm_56_X1,p56)) owf_a_67_X1 = pr_feynman(p67, + v_ff(qdwn,owf_d1b__2_7,owf_d1_2__6)) owf_gl___67_X1 = (-1.0_default/3.0_default) * pr_feynman(p67, & + v_ff((-gs),owf_d1b__2_7,owf_d1_2__6)) owf_z_67_X1 = pr_unitarity(p67,mass(23),wd_tl(p67,width(23)),.false., & + va_ff(gncdwn(1),gncdwn(2),owf_d1b__2_7,owf_d1_2__6)) owf_d1_2__126 = pr_psi(p126,mass(1),wd_tl(p126,width(1)),.false., & - f_vf(qdwn,owf_a_12,owf_d1_2__6) & - f_vaf(gncdwn(1),gncdwn(2),owf_z_12,owf_d1_2__6)) owf_d1_2__346 = pr_psi(p346,mass(1),wd_tl(p346,width(1)),.false., & - f_vf(qdwn,owf_a_34,owf_d1_2__6) & - f_vaf(gncdwn(1),gncdwn(2),owf_z_34,owf_d1_2__6)) owf_l1_167_X1 = pr_psi(p167,mass(11),wd_tl(p167,width(11)),.false., & + f_vf(qlep,owf_a_67_X1,owf_l1_1) & + f_vaf(gnclep(1),gnclep(2),owf_z_67_X1,owf_l1_1)) owf_l1b_267_X1 = pr_psibar(p267,mass(11),wd_tl(p267,width(11)),.false., & + f_fv(qlep,owf_l1b_2,owf_a_67_X1) & + f_fva(gnclep(1),gnclep(2),owf_l1b_2,owf_z_67_X1)) owf_l2b_367_X1 = pr_psibar(p367,mass(13),wd_tl(p367,width(13)),.false., & + f_fv(qlep,owf_l2b_3,owf_a_67_X1) & + f_fva(gnclep(1),gnclep(2),owf_l2b_3,owf_z_67_X1)) owf_l2_467_X1 = pr_psi(p467,mass(13),wd_tl(p467,width(13)),.false., & + f_vf(qlep,owf_a_67_X1,owf_l2_4) & + f_vaf(gnclep(1),gnclep(2),owf_z_67_X1,owf_l2_4)) end subroutine compute_fusions_0018 subroutine compute_fusions_0019 () owf_u1b__1_567_X1 = & pr_psibar(p567,mass(2),wd_tl(p567,width(2)),.false., & + f_fv(qup,owf_u1b__1_5,owf_a_67_X1) & + f_fv((-gs),owf_u1b__1_5,owf_gl___67_X1) & + f_fva(gncup(1),gncup(2),owf_u1b__1_5,owf_z_67_X1)) owf_d1_2__568_X13 = pr_psi(p568,mass(1),wd_tl(p568,width(1)),.false., & + f_vf(qdwn,owf_a_58_X1,owf_d1_2__6) & + f_vf((-gs),owf_gl___58_X1,owf_d1_2__6) & + f_vaf(gncdwn(1),gncdwn(2),owf_z_58_X1,owf_d1_2__6)) owf_d1b__2_578_X1 = & pr_psibar(p578,mass(1),wd_tl(p578,width(1)),.false., & - f_fv(qdwn,owf_d1b__2_7,owf_a_58_X1) & - f_fv((-gs),owf_d1b__2_7,owf_gl___58_X1) & - f_fva(gncdwn(1),gncdwn(2),owf_d1b__2_7,owf_z_58_X1)) owf_u1_1__678_X4 = pr_psi(p678,mass(2),wd_tl(p678,width(2)),.false., & - f_vf(qup,owf_a_67_X1,owf_u1_1__8) & - f_vf((-gs),owf_gl___67_X1,owf_u1_1__8) & - f_vaf(gncup(1),gncup(2),owf_z_67_X1,owf_u1_1__8)) owf_h_1267_X2 = pr_phi(p1267,mass(25),wd_tl(p1267,width(25)), & + ghzz*(owf_z_12*owf_z_67_X1)) owf_a_1267_X3 = pr_feynman(p1267, + v_ff(qlep,owf_l1b_267_X1,owf_l1_1) & + v_ff(qlep,owf_l1b_2,owf_l1_167_X1) & - v_ff(qdwn,owf_d1b__2_127,owf_d1_2__6) & - v_ff(qdwn,owf_d1b__2_7,owf_d1_2__126)) owf_gl___1267_X3 = (-1.0_default/3.0_default) * pr_feynman(p1267, & - v_ff((-gs),owf_d1b__2_127,owf_d1_2__6) & - v_ff((-gs),owf_d1b__2_7,owf_d1_2__126)) owf_z_1267_X3 = & pr_unitarity(p1267,mass(23),wd_tl(p1267,width(23)),.false., & + va_ff(gnclep(1),gnclep(2),owf_l1b_267_X1,owf_l1_1) & + va_ff(gnclep(1),gnclep(2),owf_l1b_2,owf_l1_167_X1) & - va_ff(gncdwn(1),gncdwn(2),owf_d1b__2_127,owf_d1_2__6) & - va_ff(gncdwn(1),gncdwn(2),owf_d1b__2_7,owf_d1_2__126)) owf_gl_1_2_67_X1 = pr_feynman(p67, & + v_ff((-gs),owf_d1b__2_7,owf_d1_1__6)) owf_u1b__2_567_X1 = & pr_psibar(p567,mass(2),wd_tl(p567,width(2)),.false., & + f_fv((-gs),owf_u1b__1_5,owf_gl_1_2_67_X1) & - f_fvl(gccq11,owf_d1b__2_7,owf_wm_56_X1)) end subroutine compute_fusions_0019 subroutine compute_fusions_0020 () owf_d1_2__568_X1 = pr_psi(p568,mass(1),wd_tl(p568,width(1)),.false., & + f_vf((-gs),owf_gl_2_1_58_X1,owf_d1_1__6) & - f_vlf(gccq11,owf_wm_56_X1,owf_u1_2__8)) owf_d1b__1_578_X1 = & pr_psibar(p578,mass(1),wd_tl(p578,width(1)),.false., & + f_fvl(gccq11,owf_u1b__1_5,owf_wp_78_X1) & - f_fv((-gs),owf_d1b__2_7,owf_gl_2_1_58_X1)) owf_u1_1__678_X1 = pr_psi(p678,mass(2),wd_tl(p678,width(2)),.false., & + f_vlf(gccq11,owf_wp_78_X1,owf_d1_1__6) & - f_vf((-gs),owf_gl_1_2_67_X1,owf_u1_2__8)) owf_gl_1_2_1267_X3 = pr_feynman(p1267, & - v_ff((-gs),owf_d1b__2_127,owf_d1_1__6) & - v_ff((-gs),owf_d1b__2_7,owf_d1_1__126)) owf_u2b__2_567_X7 = & pr_psibar(p567,mass(4),wd_tl(p567,width(4)),.false., & - f_fvl(gccq22,owf_d2b__2_7,owf_wm_56_X1)) owf_d2_2__568_X7 = pr_psi(p568,mass(3),wd_tl(p568,width(3)),.false., & - f_vlf(gccq22,owf_wm_56_X1,owf_u2_2__8)) owf_d1b__1_578_X6 = & pr_psibar(p578,mass(1),wd_tl(p578,width(1)),.false., & + f_fvl(gccq11,owf_u1b__1_5,owf_wp_78_X5)) owf_u1_1__678_X10 = pr_psi(p678,mass(2),wd_tl(p678,width(2)),.false., & + f_vlf(gccq11,owf_wp_78_X5,owf_d1_1__6)) owf_u1b__2_567_X7 = & pr_psibar(p567,mass(2),wd_tl(p567,width(2)),.false., & - f_fvl(gccq12,owf_d2b__2_7,owf_wm_56_X1)) owf_d2_2__568_X1 = pr_psi(p568,mass(3),wd_tl(p568,width(3)),.false., & - f_vlf(gccq12,owf_wm_56_X1,owf_u1_2__8)) end subroutine compute_fusions_0020 subroutine compute_fusions_0021 () owf_d1b__1_578_X3 = & pr_psibar(p578,mass(1),wd_tl(p578,width(1)),.false., & + f_fvl(gccq11,owf_u1b__1_5,owf_wp_78_X2)) owf_u1_1__678_X7 = pr_psi(p678,mass(2),wd_tl(p678,width(2)),.false., & + f_vlf(gccq11,owf_wp_78_X2,owf_d1_1__6)) owf_u2b__2_567_X13 = & pr_psibar(p567,mass(4),wd_tl(p567,width(4)),.false., & - f_fvl(gccq23,owf_d3b__2_7,owf_wm_56_X1)) owf_d3_2__568_X7 = pr_psi(p568,mass(5),wd_tl(p568,width(5)),.false., & - f_vlf(gccq23,owf_wm_56_X1,owf_u2_2__8)) owf_d1b__1_578_X7 = & pr_psibar(p578,mass(1),wd_tl(p578,width(1)),.false., & + f_fvl(gccq11,owf_u1b__1_5,owf_wp_78_X6)) owf_u1_1__678_X11 = pr_psi(p678,mass(2),wd_tl(p678,width(2)),.false., & + f_vlf(gccq11,owf_wp_78_X6,owf_d1_1__6)) owf_u1b__2_567_X13 = & pr_psibar(p567,mass(2),wd_tl(p567,width(2)),.false., & - f_fvl(gccq13,owf_d3b__2_7,owf_wm_56_X1)) owf_d3_2__568_X1 = pr_psi(p568,mass(5),wd_tl(p568,width(5)),.false., & - f_vlf(gccq13,owf_wm_56_X1,owf_u1_2__8)) owf_d1b__1_578_X4 = & pr_psibar(p578,mass(1),wd_tl(p578,width(1)),.false., & + f_fvl(gccq11,owf_u1b__1_5,owf_wp_78_X3)) owf_u1_1__678_X8 = pr_psi(p678,mass(2),wd_tl(p678,width(2)),.false., & + f_vlf(gccq11,owf_wp_78_X3,owf_d1_1__6)) end subroutine compute_fusions_0021 subroutine compute_fusions_0022 () owf_wm_56_X6 = pr_unitarity(p56,mass(24),wd_tl(p56,width(24)),.false., & + vl_ff(gccq23,owf_u2b__1_5,owf_d3_1__6)) owf_u2b__1_125 = pr_psibar(p125,mass(4),wd_tl(p125,width(4)),.false., & - f_fv(qup,owf_u2b__1_5,owf_a_12) & - f_fva(gncup(1),gncup(2),owf_u2b__1_5,owf_z_12)) owf_u2b__1_345 = pr_psibar(p345,mass(4),wd_tl(p345,width(4)),.false., & - f_fv(qup,owf_u2b__1_5,owf_a_34) & - f_fva(gncup(1),gncup(2),owf_u2b__1_5,owf_z_34)) owf_n1b_256_X6 = pr_psibar(p256,mass(12),wd_tl(p256,width(12)),.false., & + f_fvl(gcc,owf_l1b_2,owf_wm_56_X6)) owf_n2b_356_X6 = pr_psibar(p356,mass(14),wd_tl(p356,width(14)),.false., & + f_fvl(gcc,owf_l2b_3,owf_wm_56_X6)) owf_u2b__2_567_X6 = & pr_psibar(p567,mass(4),wd_tl(p567,width(4)),.false., & - f_fvl(gccq21,owf_d1b__2_7,owf_wm_56_X6)) owf_d1_2__568_X12 = pr_psi(p568,mass(1),wd_tl(p568,width(1)),.false., & - f_vlf(gccq21,owf_wm_56_X6,owf_u2_2__8)) owf_d3b__1_578_X11 = & pr_psibar(p578,mass(5),wd_tl(p578,width(5)),.false., & + f_fvl(gccq23,owf_u2b__1_5,owf_wp_78_X4)) owf_u2_1__678_X20 = pr_psi(p678,mass(4),wd_tl(p678,width(4)),.false., & + f_vlf(gccq23,owf_wp_78_X4,owf_d3_1__6)) owf_wm_1256_X6 = & pr_unitarity(p1256,mass(24),wd_tl(p1256,width(24)),.false., & + vl_ff(gcc,owf_n1b_256_X6,owf_l1_1) & - vl_ff(gccq23,owf_u2b__1_5,owf_d3_1__126) & - vl_ff(gccq23,owf_u2b__1_125,owf_d3_1__6) & + g_gg(iqw,owf_a_12,p12,owf_wm_56_X6,p56) & + g_gg(igzww,owf_z_12,p12,owf_wm_56_X6,p56)) end subroutine compute_fusions_0022 subroutine compute_fusions_0023 () owf_u1b__2_567_X6 = & pr_psibar(p567,mass(2),wd_tl(p567,width(2)),.false., & - f_fvl(gccq11,owf_d1b__2_7,owf_wm_56_X6)) owf_d1_2__568_X6 = pr_psi(p568,mass(1),wd_tl(p568,width(1)),.false., & - f_vlf(gccq11,owf_wm_56_X6,owf_u1_2__8)) owf_d3b__1_578_X8 = & pr_psibar(p578,mass(5),wd_tl(p578,width(5)),.false., & + f_fvl(gccq23,owf_u2b__1_5,owf_wp_78_X1)) owf_u2_1__678_X17 = pr_psi(p678,mass(4),wd_tl(p678,width(4)),.false., & + f_vlf(gccq23,owf_wp_78_X1,owf_d3_1__6)) owf_u2b__2_567_X12 = & pr_psibar(p567,mass(4),wd_tl(p567,width(4)),.false., & - f_fvl(gccq22,owf_d2b__2_7,owf_wm_56_X6)) owf_d2_2__568_X12 = pr_psi(p568,mass(3),wd_tl(p568,width(3)),.false., & - f_vlf(gccq22,owf_wm_56_X6,owf_u2_2__8)) owf_d3b__1_578_X12 = & pr_psibar(p578,mass(5),wd_tl(p578,width(5)),.false., & + f_fvl(gccq23,owf_u2b__1_5,owf_wp_78_X5)) owf_u2_1__678_X21 = pr_psi(p678,mass(4),wd_tl(p678,width(4)),.false., & + f_vlf(gccq23,owf_wp_78_X5,owf_d3_1__6)) owf_u1b__2_567_X12 = & pr_psibar(p567,mass(2),wd_tl(p567,width(2)),.false., & - f_fvl(gccq12,owf_d2b__2_7,owf_wm_56_X6)) owf_d2_2__568_X6 = pr_psi(p568,mass(3),wd_tl(p568,width(3)),.false., & - f_vlf(gccq12,owf_wm_56_X6,owf_u1_2__8)) end subroutine compute_fusions_0023 subroutine compute_fusions_0024 () owf_d3b__1_578_X9 = & pr_psibar(p578,mass(5),wd_tl(p578,width(5)),.false., & + f_fvl(gccq23,owf_u2b__1_5,owf_wp_78_X2)) owf_u2_1__678_X18 = pr_psi(p678,mass(4),wd_tl(p678,width(4)),.false., & + f_vlf(gccq23,owf_wp_78_X2,owf_d3_1__6)) owf_h_58 = pr_phi(p58,mass(25),wd_tl(p58,width(25)), & + s_ff(ghcc,owf_u2b__1_5,owf_u2_1__8)) owf_a_58_X2 = pr_feynman(p58, + v_ff(qup,owf_u2b__1_5,owf_u2_1__8)) owf_gl___58_X2 = (-1.0_default/3.0_default) * pr_feynman(p58, & + v_ff((-gs),owf_u2b__1_5,owf_u2_1__8)) owf_z_58_X2 = pr_unitarity(p58,mass(23),wd_tl(p58,width(23)),.false., & + va_ff(gncup(1),gncup(2),owf_u2b__1_5,owf_u2_1__8)) owf_u2b__1_567_X3 = & pr_psibar(p567,mass(4),wd_tl(p567,width(4)),.false., & + f_fs(ghcc,owf_u2b__1_5,owf_h_67) & + f_fv(qup,owf_u2b__1_5,owf_a_67_X3) & + f_fv((-gs),owf_u2b__1_5,owf_gl___67_X3) & + f_fva(gncup(1),gncup(2),owf_u2b__1_5,owf_z_67_X3)) owf_u2_1__128 = pr_psi(p128,mass(4),wd_tl(p128,width(4)),.false., & - f_vf(qup,owf_a_12,owf_u2_1__8) & - f_vaf(gncup(1),gncup(2),owf_z_12,owf_u2_1__8)) owf_u2_1__348 = pr_psi(p348,mass(4),wd_tl(p348,width(4)),.false., & - f_vf(qup,owf_a_34,owf_u2_1__8) & - f_vaf(gncup(1),gncup(2),owf_z_34,owf_u2_1__8)) owf_l1_158_X2 = pr_psi(p158,mass(11),wd_tl(p158,width(11)),.false., & + f_vf(qlep,owf_a_58_X2,owf_l1_1) & + f_vaf(gnclep(1),gnclep(2),owf_z_58_X2,owf_l1_1)) end subroutine compute_fusions_0024 subroutine compute_fusions_0025 () owf_l1b_258_X2 = pr_psibar(p258,mass(11),wd_tl(p258,width(11)),.false., & + f_fv(qlep,owf_l1b_2,owf_a_58_X2) & + f_fva(gnclep(1),gnclep(2),owf_l1b_2,owf_z_58_X2)) owf_l2b_358_X2 = pr_psibar(p358,mass(13),wd_tl(p358,width(13)),.false., & + f_fv(qlep,owf_l2b_3,owf_a_58_X2) & + f_fva(gnclep(1),gnclep(2),owf_l2b_3,owf_z_58_X2)) owf_l2_458_X2 = pr_psi(p458,mass(13),wd_tl(p458,width(13)),.false., & + f_vf(qlep,owf_a_58_X2,owf_l2_4) & + f_vaf(gnclep(1),gnclep(2),owf_z_58_X2,owf_l2_4)) owf_d3_2__568_X14 = pr_psi(p568,mass(5),wd_tl(p568,width(5)),.false., & + f_sf(ghbb,owf_h_58,owf_d3_2__6) & + f_vf(qdwn,owf_a_58_X2,owf_d3_2__6) & + f_vf((-gs),owf_gl___58_X2,owf_d3_2__6) & + f_vaf(gncdwn(1),gncdwn(2),owf_z_58_X2,owf_d3_2__6)) owf_d3b__2_578_X2 = & pr_psibar(p578,mass(5),wd_tl(p578,width(5)),.false., & - f_fs(ghbb,owf_d3b__2_7,owf_h_58) & - f_fv(qdwn,owf_d3b__2_7,owf_a_58_X2) & - f_fv((-gs),owf_d3b__2_7,owf_gl___58_X2) & - f_fva(gncdwn(1),gncdwn(2),owf_d3b__2_7,owf_z_58_X2)) owf_u2_1__678_X6 = pr_psi(p678,mass(4),wd_tl(p678,width(4)),.false., & - f_sf(ghcc,owf_h_67,owf_u2_1__8) & - f_vf(qup,owf_a_67_X3,owf_u2_1__8) & - f_vf((-gs),owf_gl___67_X3,owf_u2_1__8) & - f_vaf(gncup(1),gncup(2),owf_z_67_X3,owf_u2_1__8)) owf_h_1258_X1 = pr_phi(p1258,mass(25),wd_tl(p1258,width(25)), & - s_ff(ghcc,owf_u2b__1_5,owf_u2_1__128) & - s_ff(ghcc,owf_u2b__1_125,owf_u2_1__8) & + ghzz*(owf_z_12*owf_z_58_X2)) owf_a_1258_X1 = pr_feynman(p1258, + v_ff(qlep,owf_l1b_258_X2,owf_l1_1) & + v_ff(qlep,owf_l1b_2,owf_l1_158_X2) & - v_ff(qup,owf_u2b__1_5,owf_u2_1__128) & - v_ff(qup,owf_u2b__1_125,owf_u2_1__8)) owf_gl___1258_X1 = (-1.0_default/3.0_default) * pr_feynman(p1258, & - v_ff((-gs),owf_u2b__1_5,owf_u2_1__128) & - v_ff((-gs),owf_u2b__1_125,owf_u2_1__8)) owf_z_1258_X1 = & pr_unitarity(p1258,mass(23),wd_tl(p1258,width(23)),.false., & + va_ff(gnclep(1),gnclep(2),owf_l1b_258_X2,owf_l1_1) & + va_ff(gnclep(1),gnclep(2),owf_l1b_2,owf_l1_158_X2) & - va_ff(gncup(1),gncup(2),owf_u2b__1_5,owf_u2_1__128) & - va_ff(gncup(1),gncup(2),owf_u2b__1_125,owf_u2_1__8) & + (ghzz*owf_h_58)*owf_z_12) end subroutine compute_fusions_0025 subroutine compute_fusions_0026 () owf_gl_2_1_58_X2 = pr_feynman(p58, & + v_ff((-gs),owf_u2b__1_5,owf_u2_2__8)) owf_u2b__2_567_X18 = & pr_psibar(p567,mass(4),wd_tl(p567,width(4)),.false., & + f_fv((-gs),owf_u2b__1_5,owf_gl_1_2_67_X3) & - f_fvl(gccq23,owf_d3b__2_7,owf_wm_56_X6)) owf_d3_2__568_X12 = pr_psi(p568,mass(5),wd_tl(p568,width(5)),.false., & + f_vf((-gs),owf_gl_2_1_58_X2,owf_d3_1__6) & - f_vlf(gccq23,owf_wm_56_X6,owf_u2_2__8)) owf_d3b__1_578_X2 = & pr_psibar(p578,mass(5),wd_tl(p578,width(5)),.false., & + f_fvl(gccq23,owf_u2b__1_5,owf_wp_78_X6) & - f_fv((-gs),owf_d3b__2_7,owf_gl_2_1_58_X2)) owf_u2_1__678_X3 = pr_psi(p678,mass(4),wd_tl(p678,width(4)),.false., & + f_vlf(gccq23,owf_wp_78_X6,owf_d3_1__6) & - f_vf((-gs),owf_gl_1_2_67_X3,owf_u2_2__8)) owf_gl_2_1_1258_X1 = pr_feynman(p1258, & - v_ff((-gs),owf_u2b__1_5,owf_u2_2__128) & - v_ff((-gs),owf_u2b__1_125,owf_u2_2__8)) owf_u1b__2_567_X18 = & pr_psibar(p567,mass(2),wd_tl(p567,width(2)),.false., & - f_fvl(gccq13,owf_d3b__2_7,owf_wm_56_X6)) owf_d3_2__568_X6 = pr_psi(p568,mass(5),wd_tl(p568,width(5)),.false., & - f_vlf(gccq13,owf_wm_56_X6,owf_u1_2__8)) owf_d3b__1_578_X10 = & pr_psibar(p578,mass(5),wd_tl(p578,width(5)),.false., & + f_fvl(gccq23,owf_u2b__1_5,owf_wp_78_X3)) owf_u2_1__678_X19 = pr_psi(p678,mass(4),wd_tl(p678,width(4)),.false., & + f_vlf(gccq23,owf_wp_78_X3,owf_d3_1__6)) end subroutine compute_fusions_0026 subroutine compute_fusions_0027 () owf_wm_56_X5 = pr_unitarity(p56,mass(24),wd_tl(p56,width(24)),.false., & + vl_ff(gccq22,owf_u2b__1_5,owf_d2_1__6)) owf_n1b_256_X5 = pr_psibar(p256,mass(12),wd_tl(p256,width(12)),.false., & + f_fvl(gcc,owf_l1b_2,owf_wm_56_X5)) owf_n2b_356_X5 = pr_psibar(p356,mass(14),wd_tl(p356,width(14)),.false., & + f_fvl(gcc,owf_l2b_3,owf_wm_56_X5)) owf_u2b__2_567_X5 = & pr_psibar(p567,mass(4),wd_tl(p567,width(4)),.false., & - f_fvl(gccq21,owf_d1b__2_7,owf_wm_56_X5)) owf_d1_2__568_X11 = pr_psi(p568,mass(1),wd_tl(p568,width(1)),.false., & - f_vlf(gccq21,owf_wm_56_X5,owf_u2_2__8)) owf_d2b__1_578_X11 = & pr_psibar(p578,mass(3),wd_tl(p578,width(3)),.false., & + f_fvl(gccq22,owf_u2b__1_5,owf_wp_78_X4)) owf_u2_1__678_X15 = pr_psi(p678,mass(4),wd_tl(p678,width(4)),.false., & + f_vlf(gccq22,owf_wp_78_X4,owf_d2_1__6)) owf_wm_1256_X5 = & pr_unitarity(p1256,mass(24),wd_tl(p1256,width(24)),.false., & + vl_ff(gcc,owf_n1b_256_X5,owf_l1_1) & - vl_ff(gccq22,owf_u2b__1_5,owf_d2_1__126) & - vl_ff(gccq22,owf_u2b__1_125,owf_d2_1__6) & + g_gg(iqw,owf_a_12,p12,owf_wm_56_X5,p56) & + g_gg(igzww,owf_z_12,p12,owf_wm_56_X5,p56)) owf_u1b__2_567_X5 = & pr_psibar(p567,mass(2),wd_tl(p567,width(2)),.false., & - f_fvl(gccq11,owf_d1b__2_7,owf_wm_56_X5)) owf_d1_2__568_X5 = pr_psi(p568,mass(1),wd_tl(p568,width(1)),.false., & - f_vlf(gccq11,owf_wm_56_X5,owf_u1_2__8)) end subroutine compute_fusions_0027 subroutine compute_fusions_0028 () owf_d2b__1_578_X8 = & pr_psibar(p578,mass(3),wd_tl(p578,width(3)),.false., & + f_fvl(gccq22,owf_u2b__1_5,owf_wp_78_X1)) owf_u2_1__678_X12 = pr_psi(p678,mass(4),wd_tl(p678,width(4)),.false., & + f_vlf(gccq22,owf_wp_78_X1,owf_d2_1__6)) owf_u2b__1_567_X2 = & pr_psibar(p567,mass(4),wd_tl(p567,width(4)),.false., & + f_fv(qup,owf_u2b__1_5,owf_a_67_X2) & + f_fv((-gs),owf_u2b__1_5,owf_gl___67_X2) & + f_fva(gncup(1),gncup(2),owf_u2b__1_5,owf_z_67_X2)) owf_d2_2__568_X14 = pr_psi(p568,mass(3),wd_tl(p568,width(3)),.false., & + f_vf(qdwn,owf_a_58_X2,owf_d2_2__6) & + f_vf((-gs),owf_gl___58_X2,owf_d2_2__6) & + f_vaf(gncdwn(1),gncdwn(2),owf_z_58_X2,owf_d2_2__6)) owf_d2b__2_578_X2 = & pr_psibar(p578,mass(3),wd_tl(p578,width(3)),.false., & - f_fv(qdwn,owf_d2b__2_7,owf_a_58_X2) & - f_fv((-gs),owf_d2b__2_7,owf_gl___58_X2) & - f_fva(gncdwn(1),gncdwn(2),owf_d2b__2_7,owf_z_58_X2)) owf_u2_1__678_X5 = pr_psi(p678,mass(4),wd_tl(p678,width(4)),.false., & - f_vf(qup,owf_a_67_X2,owf_u2_1__8) & - f_vf((-gs),owf_gl___67_X2,owf_u2_1__8) & - f_vaf(gncup(1),gncup(2),owf_z_67_X2,owf_u2_1__8)) owf_u2b__2_567_X11 = & pr_psibar(p567,mass(4),wd_tl(p567,width(4)),.false., & + f_fv((-gs),owf_u2b__1_5,owf_gl_1_2_67_X2) & - f_fvl(gccq22,owf_d2b__2_7,owf_wm_56_X5)) owf_d2_2__568_X11 = pr_psi(p568,mass(3),wd_tl(p568,width(3)),.false., & + f_vf((-gs),owf_gl_2_1_58_X2,owf_d2_1__6) & - f_vlf(gccq22,owf_wm_56_X5,owf_u2_2__8)) owf_d2b__1_578_X2 = & pr_psibar(p578,mass(3),wd_tl(p578,width(3)),.false., & + f_fvl(gccq22,owf_u2b__1_5,owf_wp_78_X5) & - f_fv((-gs),owf_d2b__2_7,owf_gl_2_1_58_X2)) owf_u2_1__678_X2 = pr_psi(p678,mass(4),wd_tl(p678,width(4)),.false., & + f_vlf(gccq22,owf_wp_78_X5,owf_d2_1__6) & - f_vf((-gs),owf_gl_1_2_67_X2,owf_u2_2__8)) end subroutine compute_fusions_0028 subroutine compute_fusions_0029 () owf_u1b__2_567_X11 = & pr_psibar(p567,mass(2),wd_tl(p567,width(2)),.false., & - f_fvl(gccq12,owf_d2b__2_7,owf_wm_56_X5)) owf_d2_2__568_X5 = pr_psi(p568,mass(3),wd_tl(p568,width(3)),.false., & - f_vlf(gccq12,owf_wm_56_X5,owf_u1_2__8)) owf_d2b__1_578_X9 = & pr_psibar(p578,mass(3),wd_tl(p578,width(3)),.false., & + f_fvl(gccq22,owf_u2b__1_5,owf_wp_78_X2)) owf_u2_1__678_X13 = pr_psi(p678,mass(4),wd_tl(p678,width(4)),.false., & + f_vlf(gccq22,owf_wp_78_X2,owf_d2_1__6)) owf_u2b__2_567_X17 = & pr_psibar(p567,mass(4),wd_tl(p567,width(4)),.false., & - f_fvl(gccq23,owf_d3b__2_7,owf_wm_56_X5)) owf_d3_2__568_X11 = pr_psi(p568,mass(5),wd_tl(p568,width(5)),.false., & - f_vlf(gccq23,owf_wm_56_X5,owf_u2_2__8)) owf_d2b__1_578_X12 = & pr_psibar(p578,mass(3),wd_tl(p578,width(3)),.false., & + f_fvl(gccq22,owf_u2b__1_5,owf_wp_78_X6)) owf_u2_1__678_X16 = pr_psi(p678,mass(4),wd_tl(p678,width(4)),.false., & + f_vlf(gccq22,owf_wp_78_X6,owf_d2_1__6)) owf_u1b__2_567_X17 = & pr_psibar(p567,mass(2),wd_tl(p567,width(2)),.false., & - f_fvl(gccq13,owf_d3b__2_7,owf_wm_56_X5)) owf_d3_2__568_X5 = pr_psi(p568,mass(5),wd_tl(p568,width(5)),.false., & - f_vlf(gccq13,owf_wm_56_X5,owf_u1_2__8)) end subroutine compute_fusions_0029 subroutine compute_fusions_0030 () owf_d2b__1_578_X10 = & pr_psibar(p578,mass(3),wd_tl(p578,width(3)),.false., & + f_fvl(gccq22,owf_u2b__1_5,owf_wp_78_X3)) owf_u2_1__678_X14 = pr_psi(p678,mass(4),wd_tl(p678,width(4)),.false., & + f_vlf(gccq22,owf_wp_78_X3,owf_d2_1__6)) owf_u2b__1_567_X1 = & pr_psibar(p567,mass(4),wd_tl(p567,width(4)),.false., & + f_fv(qup,owf_u2b__1_5,owf_a_67_X1) & + f_fv((-gs),owf_u2b__1_5,owf_gl___67_X1) & + f_fva(gncup(1),gncup(2),owf_u2b__1_5,owf_z_67_X1)) owf_d1_2__568_X14 = pr_psi(p568,mass(1),wd_tl(p568,width(1)),.false., & + f_vf(qdwn,owf_a_58_X2,owf_d1_2__6) & + f_vf((-gs),owf_gl___58_X2,owf_d1_2__6) & + f_vaf(gncdwn(1),gncdwn(2),owf_z_58_X2,owf_d1_2__6)) owf_d1b__2_578_X2 = & pr_psibar(p578,mass(1),wd_tl(p578,width(1)),.false., & - f_fv(qdwn,owf_d1b__2_7,owf_a_58_X2) & - f_fv((-gs),owf_d1b__2_7,owf_gl___58_X2) & - f_fva(gncdwn(1),gncdwn(2),owf_d1b__2_7,owf_z_58_X2)) owf_u2_1__678_X4 = pr_psi(p678,mass(4),wd_tl(p678,width(4)),.false., & - f_vf(qup,owf_a_67_X1,owf_u2_1__8) & - f_vf((-gs),owf_gl___67_X1,owf_u2_1__8) & - f_vaf(gncup(1),gncup(2),owf_z_67_X1,owf_u2_1__8)) owf_wm_56_X4 = pr_unitarity(p56,mass(24),wd_tl(p56,width(24)),.false., & + vl_ff(gccq21,owf_u2b__1_5,owf_d1_1__6)) owf_n1b_256_X4 = pr_psibar(p256,mass(12),wd_tl(p256,width(12)),.false., & + f_fvl(gcc,owf_l1b_2,owf_wm_56_X4)) owf_n2b_356_X4 = pr_psibar(p356,mass(14),wd_tl(p356,width(14)),.false., & + f_fvl(gcc,owf_l2b_3,owf_wm_56_X4)) owf_u2b__2_567_X4 = & pr_psibar(p567,mass(4),wd_tl(p567,width(4)),.false., & + f_fv((-gs),owf_u2b__1_5,owf_gl_1_2_67_X1) & - f_fvl(gccq21,owf_d1b__2_7,owf_wm_56_X4)) end subroutine compute_fusions_0030 subroutine compute_fusions_0031 () owf_d1_2__568_X10 = pr_psi(p568,mass(1),wd_tl(p568,width(1)),.false., & + f_vf((-gs),owf_gl_2_1_58_X2,owf_d1_1__6) & - f_vlf(gccq21,owf_wm_56_X4,owf_u2_2__8)) owf_d1b__1_578_X2 = & pr_psibar(p578,mass(1),wd_tl(p578,width(1)),.false., & + f_fvl(gccq21,owf_u2b__1_5,owf_wp_78_X4) & - f_fv((-gs),owf_d1b__2_7,owf_gl_2_1_58_X2)) owf_u2_1__678_X1 = pr_psi(p678,mass(4),wd_tl(p678,width(4)),.false., & + f_vlf(gccq21,owf_wp_78_X4,owf_d1_1__6) & - f_vf((-gs),owf_gl_1_2_67_X1,owf_u2_2__8)) owf_wm_1256_X4 = & pr_unitarity(p1256,mass(24),wd_tl(p1256,width(24)),.false., & + vl_ff(gcc,owf_n1b_256_X4,owf_l1_1) & - vl_ff(gccq21,owf_u2b__1_5,owf_d1_1__126) & - vl_ff(gccq21,owf_u2b__1_125,owf_d1_1__6) & + g_gg(iqw,owf_a_12,p12,owf_wm_56_X4,p56) & + g_gg(igzww,owf_z_12,p12,owf_wm_56_X4,p56)) owf_u1b__2_567_X4 = & pr_psibar(p567,mass(2),wd_tl(p567,width(2)),.false., & - f_fvl(gccq11,owf_d1b__2_7,owf_wm_56_X4)) owf_d1_2__568_X4 = pr_psi(p568,mass(1),wd_tl(p568,width(1)),.false., & - f_vlf(gccq11,owf_wm_56_X4,owf_u1_2__8)) owf_d1b__1_578_X8 = & pr_psibar(p578,mass(1),wd_tl(p578,width(1)),.false., & + f_fvl(gccq21,owf_u2b__1_5,owf_wp_78_X1)) owf_u2_1__678_X7 = pr_psi(p678,mass(4),wd_tl(p678,width(4)),.false., & + f_vlf(gccq21,owf_wp_78_X1,owf_d1_1__6)) owf_u2b__2_567_X10 = & pr_psibar(p567,mass(4),wd_tl(p567,width(4)),.false., & - f_fvl(gccq22,owf_d2b__2_7,owf_wm_56_X4)) owf_d2_2__568_X10 = pr_psi(p568,mass(3),wd_tl(p568,width(3)),.false., & - f_vlf(gccq22,owf_wm_56_X4,owf_u2_2__8)) end subroutine compute_fusions_0031 subroutine compute_fusions_0032 () owf_d1b__1_578_X11 = & pr_psibar(p578,mass(1),wd_tl(p578,width(1)),.false., & + f_fvl(gccq21,owf_u2b__1_5,owf_wp_78_X5)) owf_u2_1__678_X10 = pr_psi(p678,mass(4),wd_tl(p678,width(4)),.false., & + f_vlf(gccq21,owf_wp_78_X5,owf_d1_1__6)) owf_u1b__2_567_X10 = & pr_psibar(p567,mass(2),wd_tl(p567,width(2)),.false., & - f_fvl(gccq12,owf_d2b__2_7,owf_wm_56_X4)) owf_d2_2__568_X4 = pr_psi(p568,mass(3),wd_tl(p568,width(3)),.false., & - f_vlf(gccq12,owf_wm_56_X4,owf_u1_2__8)) owf_d1b__1_578_X9 = & pr_psibar(p578,mass(1),wd_tl(p578,width(1)),.false., & + f_fvl(gccq21,owf_u2b__1_5,owf_wp_78_X2)) owf_u2_1__678_X8 = pr_psi(p678,mass(4),wd_tl(p678,width(4)),.false., & + f_vlf(gccq21,owf_wp_78_X2,owf_d1_1__6)) owf_u2b__2_567_X16 = & pr_psibar(p567,mass(4),wd_tl(p567,width(4)),.false., & - f_fvl(gccq23,owf_d3b__2_7,owf_wm_56_X4)) owf_d3_2__568_X10 = pr_psi(p568,mass(5),wd_tl(p568,width(5)),.false., & - f_vlf(gccq23,owf_wm_56_X4,owf_u2_2__8)) owf_d1b__1_578_X12 = & pr_psibar(p578,mass(1),wd_tl(p578,width(1)),.false., & + f_fvl(gccq21,owf_u2b__1_5,owf_wp_78_X6)) owf_u2_1__678_X11 = pr_psi(p678,mass(4),wd_tl(p678,width(4)),.false., & + f_vlf(gccq21,owf_wp_78_X6,owf_d1_1__6)) end subroutine compute_fusions_0032 subroutine compute_fusions_0033 () owf_u1b__2_567_X16 = & pr_psibar(p567,mass(2),wd_tl(p567,width(2)),.false., & - f_fvl(gccq13,owf_d3b__2_7,owf_wm_56_X4)) owf_d3_2__568_X4 = pr_psi(p568,mass(5),wd_tl(p568,width(5)),.false., & - f_vlf(gccq13,owf_wm_56_X4,owf_u1_2__8)) owf_d1b__1_578_X10 = & pr_psibar(p578,mass(1),wd_tl(p578,width(1)),.false., & + f_fvl(gccq21,owf_u2b__1_5,owf_wp_78_X3)) owf_u2_1__678_X9 = pr_psi(p678,mass(4),wd_tl(p678,width(4)),.false., & + f_vlf(gccq21,owf_wp_78_X3,owf_d1_1__6)) end subroutine compute_fusions_0033 subroutine compute_brakets_0001 () oks_l1l1bl2l2bu1_1_d3b__1d1_2_u2b__2 = 0 oks_l1l1bl2l2bu1_1_d3b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d1_2_u2b__2 & + owf_l2b_123*( - f_vlf(gcc,owf_wm_56_X3,owf_n2_478_X4)) oks_l1l1bl2l2bu1_1_d3b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d1_2_u2b__2 & + ( + f_fvl(gcc,owf_n1b_256_X3,owf_wp_78_X4))*owf_l1_134 oks_l1l1bl2l2bu1_1_d3b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d1_2_u2b__2 & + ( - f_fvl(gcc,owf_n2b_356_X3,owf_wp_78_X4))*owf_l2_124 oks_l1l1bl2l2bu1_1_d3b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d1_2_u2b__2 & + owf_n2b_356_X3*( & + f_vaf(gncneu(1),gncneu(2),owf_z_12,owf_n2_478_X4)) oks_l1l1bl2l2bu1_1_d3b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d1_2_u2b__2 & + ( + f_fva(gncneu(1),gncneu(2),owf_n1b_256_X3,owf_z_34) & + f_fvl(gcc,owf_l1b_234,owf_wm_56_X3))*owf_n1_178_X4 oks_l1l1bl2l2bu1_1_d3b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d1_2_u2b__2 & + owf_u1b__1_125*( & - f_vaf(gncup(1),gncup(2),owf_z_34,owf_u1_1__678_X19) & - f_vf(qup,owf_a_34,owf_u1_1__678_X19) & + f_vlf(gccq13,owf_wp_78_X4,owf_d3_1__346)) oks_l1l1bl2l2bu1_1_d3b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d1_2_u2b__2 & + owf_u1b__1_345*( & - f_vaf(gncup(1),gncup(2),owf_z_12,owf_u1_1__678_X19) & - f_vf(qup,owf_a_12,owf_u1_1__678_X19)) oks_l1l1bl2l2bu1_1_d3b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d1_2_u2b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u2b__2_567_X3,owf_z_34) & + f_fv(qup,owf_u2b__2_567_X3,owf_a_34) & + f_fvl(gccq21,owf_d1b__2_347,owf_wm_56_X3))*owf_u2_2__128 oks_l1l1bl2l2bu1_1_d3b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d1_2_u2b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u2b__2_567_X3,owf_z_12) & + f_fv(qup,owf_u2b__2_567_X3,owf_a_12))*owf_u2_2__348 oks_l1l1bl2l2bu1_1_d3b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d1_2_u2b__2 & + owf_d1b__2_127*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_34,owf_d1_2__568_X9) & + f_vf(qdwn,owf_a_34,owf_d1_2__568_X9) & + f_vlf(gccq21,owf_wm_56_X3,owf_u2_2__348)) oks_l1l1bl2l2bu1_1_d3b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d1_2_u2b__2 & + owf_d1b__2_347*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_12,owf_d1_2__568_X9) & + f_vf(qdwn,owf_a_12,owf_d1_2__568_X9)) oks_l1l1bl2l2bu1_1_d3b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d1_2_u2b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d3b__1_578_X5,owf_z_34) & - f_fv(qdwn,owf_d3b__1_578_X5,owf_a_34) & + f_fvl(gccq13,owf_u1b__1_345,owf_wp_78_X4))*owf_d3_1__126 oks_l1l1bl2l2bu1_1_d3b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d1_2_u2b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d3b__1_578_X5,owf_z_12) & - f_fv(qdwn,owf_d3b__1_578_X5,owf_a_12))*owf_d3_1__346 oks_l1l1bl2l2bu1_1_d3b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d1_2_u2b__2 & + owf_a_12*( - ((((-2)*gazww)*(owf_wm_56_X3*owf_wp_78_X4))*owf_z_34 & + ((gazww)*(owf_z_34*owf_wm_56_X3))*owf_wp_78_X4 & + ((gazww)*(owf_z_34*owf_wp_78_X4))*owf_wm_56_X3) & - ((((-2)*gaaww)*(owf_wm_56_X3*owf_wp_78_X4))*owf_a_34 & + ((gaaww)*(owf_a_34*owf_wm_56_X3))*owf_wp_78_X4 & + ((gaaww)*(owf_a_34*owf_wp_78_X4))*owf_wm_56_X3)) oks_l1l1bl2l2bu1_1_d3b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d1_2_u2b__2 & + owf_a_1234*( - v_ff(qup,owf_u2b__2_567_X3,owf_u2_2__8) & - v_ff(qdwn,owf_d1b__2_7,owf_d1_2__568_X9) & + v_ff(qdwn,owf_d3b__1_578_X5,owf_d3_1__6) & + v_ff(qup,owf_u1b__1_5,owf_u1_1__678_X19)) oks_l1l1bl2l2bu1_1_d3b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d1_2_u2b__2 & + owf_a_1234*( + g_gg(iqw,owf_wm_56_X3,p56,owf_wp_78_X4,p78)) oks_l1l1bl2l2bu1_1_d3b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d1_2_u2b__2 & + owf_wp_1278_X4*( - vl_ff(gccq13,owf_u1b__1_345,owf_d3_1__6) & - vl_ff(gccq13,owf_u1b__1_5,owf_d3_1__346) & + vl_ff(gcc,owf_n2b_356_X3,owf_l2_4)) oks_l1l1bl2l2bu1_1_d3b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d1_2_u2b__2 & + owf_wp_1278_X4*( + g_gg(iqw,owf_a_34,p34,owf_wm_56_X3,p56) & + g_gg(igzww,owf_z_34,p34,owf_wm_56_X3,p56)) oks_l1l1bl2l2bu1_1_d3b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d1_2_u2b__2 & + owf_wm_1256_X3*( - vl_ff(gccq21,owf_d1b__2_347,owf_u2_2__8) & - vl_ff(gccq21,owf_d1b__2_7,owf_u2_2__348) & + vl_ff(gcc,owf_l2b_3,owf_n2_478_X4)) oks_l1l1bl2l2bu1_1_d3b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d1_2_u2b__2 & + owf_wm_1256_X3*( + g_gg(iqw,owf_wp_78_X4,p78,owf_a_34,p34) & + g_gg(igzww,owf_wp_78_X4,p78,owf_z_34,p34)) oks_l1l1bl2l2bu1_1_d3b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d1_2_u2b__2 & + owf_z_12*( - ((((-2)*gzzww)*(owf_wm_56_X3*owf_wp_78_X4))*owf_z_34 & + ((gzzww)*(owf_z_34*owf_wm_56_X3))*owf_wp_78_X4 & + ((gzzww)*(owf_z_34*owf_wp_78_X4))*owf_wm_56_X3) & - ((((-2)*gazww)*(owf_wm_56_X3*owf_wp_78_X4))*owf_a_34 & + ((gazww)*(owf_a_34*owf_wp_78_X4))*owf_wm_56_X3 & + ((gazww)*(owf_a_34*owf_wm_56_X3))*owf_wp_78_X4)) oks_l1l1bl2l2bu1_1_d3b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d1_2_u2b__2 & + owf_z_1234*( & - va_ff(gncup(1),gncup(2),owf_u2b__2_567_X3,owf_u2_2__8) & - va_ff(gncdwn(1),gncdwn(2),owf_d1b__2_7,owf_d1_2__568_X9) & + va_ff(gncdwn(1),gncdwn(2),owf_d3b__1_578_X5,owf_d3_1__6) & + va_ff(gncup(1),gncup(2),owf_u1b__1_5,owf_u1_1__678_X19)) oks_l1l1bl2l2bu1_1_d3b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d1_2_u2b__2 & + owf_z_1234*( + g_gg(igzww,owf_wm_56_X3,p56,owf_wp_78_X4,p78)) oks_l1l1bl2l2bu1_1_d3b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d1_2_u2b__2 & + owf_h_1234*( - s_ff(ghcc,owf_u2b__2_567_X3,owf_u2_2__8) & + s_ff(ghbb,owf_d3b__1_578_X5,owf_d3_1__6)) oks_l1l1bl2l2bu1_1_d3b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d1_2_u2b__2 & + owf_h_1234*( + ghww*(owf_wm_56_X3*owf_wp_78_X4)) oks_l1l1bl2l2bu1_1_d3b__1d1_2_u2b__2 = & - oks_l1l1bl2l2bu1_1_d3b__1d1_2_u2b__2 ! 6 vertices, 5 propagators ! unit symmetry factor end subroutine compute_brakets_0001 subroutine compute_brakets_0002 () oks_l1l1bl2l2bu1_1_d3b__1d1_2_u1b__2 = 0 oks_l1l1bl2l2bu1_1_d3b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d1_2_u1b__2 & + owf_l2b_123*( - f_vlf(gcc,owf_wm_56_X3,owf_n2_478_X1)) oks_l1l1bl2l2bu1_1_d3b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d1_2_u1b__2 & + ( + f_fvl(gcc,owf_n1b_256_X3,owf_wp_78_X1))*owf_l1_134 oks_l1l1bl2l2bu1_1_d3b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d1_2_u1b__2 & + ( - f_fvl(gcc,owf_n2b_356_X3,owf_wp_78_X1))*owf_l2_124 oks_l1l1bl2l2bu1_1_d3b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d1_2_u1b__2 & + owf_n2b_356_X3*( & + f_vaf(gncneu(1),gncneu(2),owf_z_12,owf_n2_478_X1)) oks_l1l1bl2l2bu1_1_d3b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d1_2_u1b__2 & + ( + f_fva(gncneu(1),gncneu(2),owf_n1b_256_X3,owf_z_34) & + f_fvl(gcc,owf_l1b_234,owf_wm_56_X3))*owf_n1_178_X1 oks_l1l1bl2l2bu1_1_d3b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d1_2_u1b__2 & + owf_u1b__1_125*( & - f_vaf(gncup(1),gncup(2),owf_z_34,owf_u1_1__678_X17) & - f_vf(qup,owf_a_34,owf_u1_1__678_X17) & + f_vlf(gccq13,owf_wp_78_X1,owf_d3_1__346)) oks_l1l1bl2l2bu1_1_d3b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d1_2_u1b__2 & + owf_u1b__1_345*( & - f_vaf(gncup(1),gncup(2),owf_z_12,owf_u1_1__678_X17) & - f_vf(qup,owf_a_12,owf_u1_1__678_X17)) oks_l1l1bl2l2bu1_1_d3b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d1_2_u1b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u1b__2_567_X3,owf_z_34) & + f_fv(qup,owf_u1b__2_567_X3,owf_a_34) & + f_fvl(gccq11,owf_d1b__2_347,owf_wm_56_X3))*owf_u1_2__128 oks_l1l1bl2l2bu1_1_d3b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d1_2_u1b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u1b__2_567_X3,owf_z_12) & + f_fv(qup,owf_u1b__2_567_X3,owf_a_12))*owf_u1_2__348 oks_l1l1bl2l2bu1_1_d3b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d1_2_u1b__2 & + owf_d1b__2_127*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_34,owf_d1_2__568_X3) & + f_vf(qdwn,owf_a_34,owf_d1_2__568_X3) & + f_vlf(gccq11,owf_wm_56_X3,owf_u1_2__348)) oks_l1l1bl2l2bu1_1_d3b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d1_2_u1b__2 & + owf_d1b__2_347*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_12,owf_d1_2__568_X3) & + f_vf(qdwn,owf_a_12,owf_d1_2__568_X3)) oks_l1l1bl2l2bu1_1_d3b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d1_2_u1b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d3b__1_578_X3,owf_z_34) & - f_fv(qdwn,owf_d3b__1_578_X3,owf_a_34) & + f_fvl(gccq13,owf_u1b__1_345,owf_wp_78_X1))*owf_d3_1__126 oks_l1l1bl2l2bu1_1_d3b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d1_2_u1b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d3b__1_578_X3,owf_z_12) & - f_fv(qdwn,owf_d3b__1_578_X3,owf_a_12))*owf_d3_1__346 oks_l1l1bl2l2bu1_1_d3b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d1_2_u1b__2 & + owf_a_12*( - ((((-2)*gazww)*(owf_wm_56_X3*owf_wp_78_X1))*owf_z_34 & + ((gazww)*(owf_z_34*owf_wm_56_X3))*owf_wp_78_X1 & + ((gazww)*(owf_z_34*owf_wp_78_X1))*owf_wm_56_X3) & - ((((-2)*gaaww)*(owf_wm_56_X3*owf_wp_78_X1))*owf_a_34 & + ((gaaww)*(owf_a_34*owf_wm_56_X3))*owf_wp_78_X1 & + ((gaaww)*(owf_a_34*owf_wp_78_X1))*owf_wm_56_X3)) oks_l1l1bl2l2bu1_1_d3b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d1_2_u1b__2 & + owf_a_1234*( - v_ff(qup,owf_u1b__2_567_X3,owf_u1_2__8) & - v_ff(qdwn,owf_d1b__2_7,owf_d1_2__568_X3) & + v_ff(qdwn,owf_d3b__1_578_X3,owf_d3_1__6) & + v_ff(qup,owf_u1b__1_5,owf_u1_1__678_X17)) oks_l1l1bl2l2bu1_1_d3b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d1_2_u1b__2 & + owf_a_1234*( + g_gg(iqw,owf_wm_56_X3,p56,owf_wp_78_X1,p78)) oks_l1l1bl2l2bu1_1_d3b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d1_2_u1b__2 & + owf_wp_1278_X1*( - vl_ff(gccq13,owf_u1b__1_345,owf_d3_1__6) & - vl_ff(gccq13,owf_u1b__1_5,owf_d3_1__346) & + vl_ff(gcc,owf_n2b_356_X3,owf_l2_4)) oks_l1l1bl2l2bu1_1_d3b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d1_2_u1b__2 & + owf_wp_1278_X1*( + g_gg(iqw,owf_a_34,p34,owf_wm_56_X3,p56) & + g_gg(igzww,owf_z_34,p34,owf_wm_56_X3,p56)) oks_l1l1bl2l2bu1_1_d3b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d1_2_u1b__2 & + owf_wm_1256_X3*( - vl_ff(gccq11,owf_d1b__2_347,owf_u1_2__8) & - vl_ff(gccq11,owf_d1b__2_7,owf_u1_2__348) & + vl_ff(gcc,owf_l2b_3,owf_n2_478_X1)) oks_l1l1bl2l2bu1_1_d3b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d1_2_u1b__2 & + owf_wm_1256_X3*( + g_gg(iqw,owf_wp_78_X1,p78,owf_a_34,p34) & + g_gg(igzww,owf_wp_78_X1,p78,owf_z_34,p34)) oks_l1l1bl2l2bu1_1_d3b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d1_2_u1b__2 & + owf_z_12*( - ((((-2)*gzzww)*(owf_wm_56_X3*owf_wp_78_X1))*owf_z_34 & + ((gzzww)*(owf_z_34*owf_wm_56_X3))*owf_wp_78_X1 & + ((gzzww)*(owf_z_34*owf_wp_78_X1))*owf_wm_56_X3) & - ((((-2)*gazww)*(owf_wm_56_X3*owf_wp_78_X1))*owf_a_34 & + ((gazww)*(owf_a_34*owf_wp_78_X1))*owf_wm_56_X3 & + ((gazww)*(owf_a_34*owf_wm_56_X3))*owf_wp_78_X1)) oks_l1l1bl2l2bu1_1_d3b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d1_2_u1b__2 & + owf_z_1234*( & - va_ff(gncup(1),gncup(2),owf_u1b__2_567_X3,owf_u1_2__8) & - va_ff(gncdwn(1),gncdwn(2),owf_d1b__2_7,owf_d1_2__568_X3) & + va_ff(gncdwn(1),gncdwn(2),owf_d3b__1_578_X3,owf_d3_1__6) & + va_ff(gncup(1),gncup(2),owf_u1b__1_5,owf_u1_1__678_X17)) oks_l1l1bl2l2bu1_1_d3b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d1_2_u1b__2 & + owf_z_1234*( + g_gg(igzww,owf_wm_56_X3,p56,owf_wp_78_X1,p78)) oks_l1l1bl2l2bu1_1_d3b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d1_2_u1b__2 & + owf_h_1234*( + s_ff(ghbb,owf_d3b__1_578_X3,owf_d3_1__6)) oks_l1l1bl2l2bu1_1_d3b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d1_2_u1b__2 & + owf_h_1234*( + ghww*(owf_wm_56_X3*owf_wp_78_X1)) oks_l1l1bl2l2bu1_1_d3b__1d1_2_u1b__2 = & - oks_l1l1bl2l2bu1_1_d3b__1d1_2_u1b__2 ! 6 vertices, 5 propagators ! unit symmetry factor end subroutine compute_brakets_0002 subroutine compute_brakets_0003 () oks_l1l1bl2l2bu1_1_d3b__1d2_2_u2b__2 = 0 oks_l1l1bl2l2bu1_1_d3b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d2_2_u2b__2 & + owf_l2b_123*( - f_vlf(gcc,owf_wm_56_X3,owf_n2_478_X5)) oks_l1l1bl2l2bu1_1_d3b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d2_2_u2b__2 & + ( + f_fvl(gcc,owf_n1b_256_X3,owf_wp_78_X5))*owf_l1_134 oks_l1l1bl2l2bu1_1_d3b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d2_2_u2b__2 & + ( - f_fvl(gcc,owf_n2b_356_X3,owf_wp_78_X5))*owf_l2_124 oks_l1l1bl2l2bu1_1_d3b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d2_2_u2b__2 & + owf_n2b_356_X3*( & + f_vaf(gncneu(1),gncneu(2),owf_z_12,owf_n2_478_X5)) oks_l1l1bl2l2bu1_1_d3b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d2_2_u2b__2 & + ( + f_fva(gncneu(1),gncneu(2),owf_n1b_256_X3,owf_z_34) & + f_fvl(gcc,owf_l1b_234,owf_wm_56_X3))*owf_n1_178_X5 oks_l1l1bl2l2bu1_1_d3b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d2_2_u2b__2 & + owf_u1b__1_125*( & - f_vaf(gncup(1),gncup(2),owf_z_34,owf_u1_1__678_X20) & - f_vf(qup,owf_a_34,owf_u1_1__678_X20) & + f_vlf(gccq13,owf_wp_78_X5,owf_d3_1__346)) oks_l1l1bl2l2bu1_1_d3b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d2_2_u2b__2 & + owf_u1b__1_345*( & - f_vaf(gncup(1),gncup(2),owf_z_12,owf_u1_1__678_X20) & - f_vf(qup,owf_a_12,owf_u1_1__678_X20)) oks_l1l1bl2l2bu1_1_d3b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d2_2_u2b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u2b__2_567_X9,owf_z_34) & + f_fv(qup,owf_u2b__2_567_X9,owf_a_34) & + f_fvl(gccq22,owf_d2b__2_347,owf_wm_56_X3))*owf_u2_2__128 oks_l1l1bl2l2bu1_1_d3b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d2_2_u2b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u2b__2_567_X9,owf_z_12) & + f_fv(qup,owf_u2b__2_567_X9,owf_a_12))*owf_u2_2__348 oks_l1l1bl2l2bu1_1_d3b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d2_2_u2b__2 & + owf_d2b__2_127*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_34,owf_d2_2__568_X9) & + f_vf(qdwn,owf_a_34,owf_d2_2__568_X9) & + f_vlf(gccq22,owf_wm_56_X3,owf_u2_2__348)) oks_l1l1bl2l2bu1_1_d3b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d2_2_u2b__2 & + owf_d2b__2_347*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_12,owf_d2_2__568_X9) & + f_vf(qdwn,owf_a_12,owf_d2_2__568_X9)) oks_l1l1bl2l2bu1_1_d3b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d2_2_u2b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d3b__1_578_X6,owf_z_34) & - f_fv(qdwn,owf_d3b__1_578_X6,owf_a_34) & + f_fvl(gccq13,owf_u1b__1_345,owf_wp_78_X5))*owf_d3_1__126 oks_l1l1bl2l2bu1_1_d3b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d2_2_u2b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d3b__1_578_X6,owf_z_12) & - f_fv(qdwn,owf_d3b__1_578_X6,owf_a_12))*owf_d3_1__346 oks_l1l1bl2l2bu1_1_d3b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d2_2_u2b__2 & + owf_a_12*( - ((((-2)*gazww)*(owf_wm_56_X3*owf_wp_78_X5))*owf_z_34 & + ((gazww)*(owf_z_34*owf_wm_56_X3))*owf_wp_78_X5 & + ((gazww)*(owf_z_34*owf_wp_78_X5))*owf_wm_56_X3) & - ((((-2)*gaaww)*(owf_wm_56_X3*owf_wp_78_X5))*owf_a_34 & + ((gaaww)*(owf_a_34*owf_wm_56_X3))*owf_wp_78_X5 & + ((gaaww)*(owf_a_34*owf_wp_78_X5))*owf_wm_56_X3)) oks_l1l1bl2l2bu1_1_d3b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d2_2_u2b__2 & + owf_a_1234*( - v_ff(qup,owf_u2b__2_567_X9,owf_u2_2__8) & - v_ff(qdwn,owf_d2b__2_7,owf_d2_2__568_X9) & + v_ff(qdwn,owf_d3b__1_578_X6,owf_d3_1__6) & + v_ff(qup,owf_u1b__1_5,owf_u1_1__678_X20)) oks_l1l1bl2l2bu1_1_d3b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d2_2_u2b__2 & + owf_a_1234*( + g_gg(iqw,owf_wm_56_X3,p56,owf_wp_78_X5,p78)) oks_l1l1bl2l2bu1_1_d3b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d2_2_u2b__2 & + owf_wp_1278_X5*( - vl_ff(gccq13,owf_u1b__1_345,owf_d3_1__6) & - vl_ff(gccq13,owf_u1b__1_5,owf_d3_1__346) & + vl_ff(gcc,owf_n2b_356_X3,owf_l2_4)) oks_l1l1bl2l2bu1_1_d3b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d2_2_u2b__2 & + owf_wp_1278_X5*( + g_gg(iqw,owf_a_34,p34,owf_wm_56_X3,p56) & + g_gg(igzww,owf_z_34,p34,owf_wm_56_X3,p56)) oks_l1l1bl2l2bu1_1_d3b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d2_2_u2b__2 & + owf_wm_1256_X3*( - vl_ff(gccq22,owf_d2b__2_347,owf_u2_2__8) & - vl_ff(gccq22,owf_d2b__2_7,owf_u2_2__348) & + vl_ff(gcc,owf_l2b_3,owf_n2_478_X5)) oks_l1l1bl2l2bu1_1_d3b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d2_2_u2b__2 & + owf_wm_1256_X3*( + g_gg(iqw,owf_wp_78_X5,p78,owf_a_34,p34) & + g_gg(igzww,owf_wp_78_X5,p78,owf_z_34,p34)) oks_l1l1bl2l2bu1_1_d3b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d2_2_u2b__2 & + owf_z_12*( - ((((-2)*gzzww)*(owf_wm_56_X3*owf_wp_78_X5))*owf_z_34 & + ((gzzww)*(owf_z_34*owf_wm_56_X3))*owf_wp_78_X5 & + ((gzzww)*(owf_z_34*owf_wp_78_X5))*owf_wm_56_X3) & - ((((-2)*gazww)*(owf_wm_56_X3*owf_wp_78_X5))*owf_a_34 & + ((gazww)*(owf_a_34*owf_wp_78_X5))*owf_wm_56_X3 & + ((gazww)*(owf_a_34*owf_wm_56_X3))*owf_wp_78_X5)) oks_l1l1bl2l2bu1_1_d3b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d2_2_u2b__2 & + owf_z_1234*( & - va_ff(gncup(1),gncup(2),owf_u2b__2_567_X9,owf_u2_2__8) & - va_ff(gncdwn(1),gncdwn(2),owf_d2b__2_7,owf_d2_2__568_X9) & + va_ff(gncdwn(1),gncdwn(2),owf_d3b__1_578_X6,owf_d3_1__6) & + va_ff(gncup(1),gncup(2),owf_u1b__1_5,owf_u1_1__678_X20)) oks_l1l1bl2l2bu1_1_d3b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d2_2_u2b__2 & + owf_z_1234*( + g_gg(igzww,owf_wm_56_X3,p56,owf_wp_78_X5,p78)) oks_l1l1bl2l2bu1_1_d3b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d2_2_u2b__2 & + owf_h_1234*( - s_ff(ghcc,owf_u2b__2_567_X9,owf_u2_2__8) & + s_ff(ghbb,owf_d3b__1_578_X6,owf_d3_1__6)) oks_l1l1bl2l2bu1_1_d3b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d2_2_u2b__2 & + owf_h_1234*( + ghww*(owf_wm_56_X3*owf_wp_78_X5)) oks_l1l1bl2l2bu1_1_d3b__1d2_2_u2b__2 = & - oks_l1l1bl2l2bu1_1_d3b__1d2_2_u2b__2 ! 6 vertices, 5 propagators ! unit symmetry factor end subroutine compute_brakets_0003 subroutine compute_brakets_0004 () oks_l1l1bl2l2bu1_1_d3b__1d2_2_u1b__2 = 0 oks_l1l1bl2l2bu1_1_d3b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d2_2_u1b__2 & + owf_l2b_123*( - f_vlf(gcc,owf_wm_56_X3,owf_n2_478_X2)) oks_l1l1bl2l2bu1_1_d3b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d2_2_u1b__2 & + ( + f_fvl(gcc,owf_n1b_256_X3,owf_wp_78_X2))*owf_l1_134 oks_l1l1bl2l2bu1_1_d3b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d2_2_u1b__2 & + ( - f_fvl(gcc,owf_n2b_356_X3,owf_wp_78_X2))*owf_l2_124 oks_l1l1bl2l2bu1_1_d3b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d2_2_u1b__2 & + owf_n2b_356_X3*( & + f_vaf(gncneu(1),gncneu(2),owf_z_12,owf_n2_478_X2)) oks_l1l1bl2l2bu1_1_d3b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d2_2_u1b__2 & + ( + f_fva(gncneu(1),gncneu(2),owf_n1b_256_X3,owf_z_34) & + f_fvl(gcc,owf_l1b_234,owf_wm_56_X3))*owf_n1_178_X2 oks_l1l1bl2l2bu1_1_d3b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d2_2_u1b__2 & + owf_u1b__1_125*( & - f_vaf(gncup(1),gncup(2),owf_z_34,owf_u1_1__678_X18) & - f_vf(qup,owf_a_34,owf_u1_1__678_X18) & + f_vlf(gccq13,owf_wp_78_X2,owf_d3_1__346)) oks_l1l1bl2l2bu1_1_d3b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d2_2_u1b__2 & + owf_u1b__1_345*( & - f_vaf(gncup(1),gncup(2),owf_z_12,owf_u1_1__678_X18) & - f_vf(qup,owf_a_12,owf_u1_1__678_X18)) oks_l1l1bl2l2bu1_1_d3b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d2_2_u1b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u1b__2_567_X9,owf_z_34) & + f_fv(qup,owf_u1b__2_567_X9,owf_a_34) & + f_fvl(gccq12,owf_d2b__2_347,owf_wm_56_X3))*owf_u1_2__128 oks_l1l1bl2l2bu1_1_d3b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d2_2_u1b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u1b__2_567_X9,owf_z_12) & + f_fv(qup,owf_u1b__2_567_X9,owf_a_12))*owf_u1_2__348 oks_l1l1bl2l2bu1_1_d3b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d2_2_u1b__2 & + owf_d2b__2_127*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_34,owf_d2_2__568_X3) & + f_vf(qdwn,owf_a_34,owf_d2_2__568_X3) & + f_vlf(gccq12,owf_wm_56_X3,owf_u1_2__348)) oks_l1l1bl2l2bu1_1_d3b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d2_2_u1b__2 & + owf_d2b__2_347*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_12,owf_d2_2__568_X3) & + f_vf(qdwn,owf_a_12,owf_d2_2__568_X3)) oks_l1l1bl2l2bu1_1_d3b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d2_2_u1b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d3b__1_578_X4,owf_z_34) & - f_fv(qdwn,owf_d3b__1_578_X4,owf_a_34) & + f_fvl(gccq13,owf_u1b__1_345,owf_wp_78_X2))*owf_d3_1__126 oks_l1l1bl2l2bu1_1_d3b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d2_2_u1b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d3b__1_578_X4,owf_z_12) & - f_fv(qdwn,owf_d3b__1_578_X4,owf_a_12))*owf_d3_1__346 oks_l1l1bl2l2bu1_1_d3b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d2_2_u1b__2 & + owf_a_12*( - ((((-2)*gazww)*(owf_wm_56_X3*owf_wp_78_X2))*owf_z_34 & + ((gazww)*(owf_z_34*owf_wm_56_X3))*owf_wp_78_X2 & + ((gazww)*(owf_z_34*owf_wp_78_X2))*owf_wm_56_X3) & - ((((-2)*gaaww)*(owf_wm_56_X3*owf_wp_78_X2))*owf_a_34 & + ((gaaww)*(owf_a_34*owf_wm_56_X3))*owf_wp_78_X2 & + ((gaaww)*(owf_a_34*owf_wp_78_X2))*owf_wm_56_X3)) oks_l1l1bl2l2bu1_1_d3b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d2_2_u1b__2 & + owf_a_1234*( - v_ff(qup,owf_u1b__2_567_X9,owf_u1_2__8) & - v_ff(qdwn,owf_d2b__2_7,owf_d2_2__568_X3) & + v_ff(qdwn,owf_d3b__1_578_X4,owf_d3_1__6) & + v_ff(qup,owf_u1b__1_5,owf_u1_1__678_X18)) oks_l1l1bl2l2bu1_1_d3b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d2_2_u1b__2 & + owf_a_1234*( + g_gg(iqw,owf_wm_56_X3,p56,owf_wp_78_X2,p78)) oks_l1l1bl2l2bu1_1_d3b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d2_2_u1b__2 & + owf_wp_1278_X2*( - vl_ff(gccq13,owf_u1b__1_345,owf_d3_1__6) & - vl_ff(gccq13,owf_u1b__1_5,owf_d3_1__346) & + vl_ff(gcc,owf_n2b_356_X3,owf_l2_4)) oks_l1l1bl2l2bu1_1_d3b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d2_2_u1b__2 & + owf_wp_1278_X2*( + g_gg(iqw,owf_a_34,p34,owf_wm_56_X3,p56) & + g_gg(igzww,owf_z_34,p34,owf_wm_56_X3,p56)) oks_l1l1bl2l2bu1_1_d3b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d2_2_u1b__2 & + owf_wm_1256_X3*( - vl_ff(gccq12,owf_d2b__2_347,owf_u1_2__8) & - vl_ff(gccq12,owf_d2b__2_7,owf_u1_2__348) & + vl_ff(gcc,owf_l2b_3,owf_n2_478_X2)) oks_l1l1bl2l2bu1_1_d3b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d2_2_u1b__2 & + owf_wm_1256_X3*( + g_gg(iqw,owf_wp_78_X2,p78,owf_a_34,p34) & + g_gg(igzww,owf_wp_78_X2,p78,owf_z_34,p34)) oks_l1l1bl2l2bu1_1_d3b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d2_2_u1b__2 & + owf_z_12*( - ((((-2)*gzzww)*(owf_wm_56_X3*owf_wp_78_X2))*owf_z_34 & + ((gzzww)*(owf_z_34*owf_wm_56_X3))*owf_wp_78_X2 & + ((gzzww)*(owf_z_34*owf_wp_78_X2))*owf_wm_56_X3) & - ((((-2)*gazww)*(owf_wm_56_X3*owf_wp_78_X2))*owf_a_34 & + ((gazww)*(owf_a_34*owf_wp_78_X2))*owf_wm_56_X3 & + ((gazww)*(owf_a_34*owf_wm_56_X3))*owf_wp_78_X2)) oks_l1l1bl2l2bu1_1_d3b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d2_2_u1b__2 & + owf_z_1234*( & - va_ff(gncup(1),gncup(2),owf_u1b__2_567_X9,owf_u1_2__8) & - va_ff(gncdwn(1),gncdwn(2),owf_d2b__2_7,owf_d2_2__568_X3) & + va_ff(gncdwn(1),gncdwn(2),owf_d3b__1_578_X4,owf_d3_1__6) & + va_ff(gncup(1),gncup(2),owf_u1b__1_5,owf_u1_1__678_X18)) oks_l1l1bl2l2bu1_1_d3b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d2_2_u1b__2 & + owf_z_1234*( + g_gg(igzww,owf_wm_56_X3,p56,owf_wp_78_X2,p78)) oks_l1l1bl2l2bu1_1_d3b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d2_2_u1b__2 & + owf_h_1234*( + s_ff(ghbb,owf_d3b__1_578_X4,owf_d3_1__6)) oks_l1l1bl2l2bu1_1_d3b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d2_2_u1b__2 & + owf_h_1234*( + ghww*(owf_wm_56_X3*owf_wp_78_X2)) oks_l1l1bl2l2bu1_1_d3b__1d2_2_u1b__2 = & - oks_l1l1bl2l2bu1_1_d3b__1d2_2_u1b__2 ! 6 vertices, 5 propagators ! unit symmetry factor end subroutine compute_brakets_0004 subroutine compute_brakets_0005 () oks_l1l1bl2l2bu1_1_d3b__1d3_2_u2b__2 = 0 oks_l1l1bl2l2bu1_1_d3b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d3_2_u2b__2 & + owf_l2b_123*( - f_vlf(gcc,owf_wm_56_X3,owf_n2_478_X6)) oks_l1l1bl2l2bu1_1_d3b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d3_2_u2b__2 & + ( + f_fvl(gcc,owf_n1b_256_X3,owf_wp_78_X6))*owf_l1_134 oks_l1l1bl2l2bu1_1_d3b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d3_2_u2b__2 & + ( - f_fvl(gcc,owf_n2b_356_X3,owf_wp_78_X6))*owf_l2_124 oks_l1l1bl2l2bu1_1_d3b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d3_2_u2b__2 & + owf_n2b_356_X3*( & + f_vaf(gncneu(1),gncneu(2),owf_z_12,owf_n2_478_X6)) oks_l1l1bl2l2bu1_1_d3b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d3_2_u2b__2 & + ( + f_fva(gncneu(1),gncneu(2),owf_n1b_256_X3,owf_z_34) & + f_fvl(gcc,owf_l1b_234,owf_wm_56_X3))*owf_n1_178_X6 oks_l1l1bl2l2bu1_1_d3b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d3_2_u2b__2 & + owf_u1b__1_125*( & - f_vaf(gncup(1),gncup(2),owf_z_34,owf_u1_1__678_X21) & - f_vf(qup,owf_a_34,owf_u1_1__678_X21) & + f_vlf(gccq13,owf_wp_78_X6,owf_d3_1__346)) oks_l1l1bl2l2bu1_1_d3b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d3_2_u2b__2 & + owf_u1b__1_345*( & - f_vaf(gncup(1),gncup(2),owf_z_12,owf_u1_1__678_X21) & - f_vf(qup,owf_a_12,owf_u1_1__678_X21)) oks_l1l1bl2l2bu1_1_d3b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d3_2_u2b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u2b__2_567_X15,owf_z_34) & + f_fv(qup,owf_u2b__2_567_X15,owf_a_34) & + f_fvl(gccq23,owf_d3b__2_347,owf_wm_56_X3))*owf_u2_2__128 oks_l1l1bl2l2bu1_1_d3b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d3_2_u2b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u2b__2_567_X15,owf_z_12) & + f_fv(qup,owf_u2b__2_567_X15,owf_a_12))*owf_u2_2__348 oks_l1l1bl2l2bu1_1_d3b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d3_2_u2b__2 & + owf_d3b__2_127*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_34,owf_d3_2__568_X9) & + f_vf(qdwn,owf_a_34,owf_d3_2__568_X9) & + f_vlf(gccq23,owf_wm_56_X3,owf_u2_2__348)) oks_l1l1bl2l2bu1_1_d3b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d3_2_u2b__2 & + owf_d3b__2_347*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_12,owf_d3_2__568_X9) & + f_vf(qdwn,owf_a_12,owf_d3_2__568_X9)) oks_l1l1bl2l2bu1_1_d3b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d3_2_u2b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d3b__1_578_X7,owf_z_34) & - f_fv(qdwn,owf_d3b__1_578_X7,owf_a_34) & + f_fvl(gccq13,owf_u1b__1_345,owf_wp_78_X6))*owf_d3_1__126 oks_l1l1bl2l2bu1_1_d3b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d3_2_u2b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d3b__1_578_X7,owf_z_12) & - f_fv(qdwn,owf_d3b__1_578_X7,owf_a_12))*owf_d3_1__346 oks_l1l1bl2l2bu1_1_d3b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d3_2_u2b__2 & + owf_a_12*( - ((((-2)*gazww)*(owf_wm_56_X3*owf_wp_78_X6))*owf_z_34 & + ((gazww)*(owf_z_34*owf_wm_56_X3))*owf_wp_78_X6 & + ((gazww)*(owf_z_34*owf_wp_78_X6))*owf_wm_56_X3) & - ((((-2)*gaaww)*(owf_wm_56_X3*owf_wp_78_X6))*owf_a_34 & + ((gaaww)*(owf_a_34*owf_wm_56_X3))*owf_wp_78_X6 & + ((gaaww)*(owf_a_34*owf_wp_78_X6))*owf_wm_56_X3)) oks_l1l1bl2l2bu1_1_d3b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d3_2_u2b__2 & + owf_a_1234*( - v_ff(qup,owf_u2b__2_567_X15,owf_u2_2__8) & - v_ff(qdwn,owf_d3b__2_7,owf_d3_2__568_X9) & + v_ff(qdwn,owf_d3b__1_578_X7,owf_d3_1__6) & + v_ff(qup,owf_u1b__1_5,owf_u1_1__678_X21)) oks_l1l1bl2l2bu1_1_d3b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d3_2_u2b__2 & + owf_a_1234*( + g_gg(iqw,owf_wm_56_X3,p56,owf_wp_78_X6,p78)) oks_l1l1bl2l2bu1_1_d3b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d3_2_u2b__2 & + owf_wp_1278_X6*( - vl_ff(gccq13,owf_u1b__1_345,owf_d3_1__6) & - vl_ff(gccq13,owf_u1b__1_5,owf_d3_1__346) & + vl_ff(gcc,owf_n2b_356_X3,owf_l2_4)) oks_l1l1bl2l2bu1_1_d3b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d3_2_u2b__2 & + owf_wp_1278_X6*( + g_gg(iqw,owf_a_34,p34,owf_wm_56_X3,p56) & + g_gg(igzww,owf_z_34,p34,owf_wm_56_X3,p56)) oks_l1l1bl2l2bu1_1_d3b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d3_2_u2b__2 & + owf_wm_1256_X3*( - vl_ff(gccq23,owf_d3b__2_347,owf_u2_2__8) & - vl_ff(gccq23,owf_d3b__2_7,owf_u2_2__348) & + vl_ff(gcc,owf_l2b_3,owf_n2_478_X6)) oks_l1l1bl2l2bu1_1_d3b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d3_2_u2b__2 & + owf_wm_1256_X3*( + g_gg(iqw,owf_wp_78_X6,p78,owf_a_34,p34) & + g_gg(igzww,owf_wp_78_X6,p78,owf_z_34,p34)) oks_l1l1bl2l2bu1_1_d3b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d3_2_u2b__2 & + owf_z_12*( - ((((-2)*gzzww)*(owf_wm_56_X3*owf_wp_78_X6))*owf_z_34 & + ((gzzww)*(owf_z_34*owf_wm_56_X3))*owf_wp_78_X6 & + ((gzzww)*(owf_z_34*owf_wp_78_X6))*owf_wm_56_X3) & - ((((-2)*gazww)*(owf_wm_56_X3*owf_wp_78_X6))*owf_a_34 & + ((gazww)*(owf_a_34*owf_wp_78_X6))*owf_wm_56_X3 & + ((gazww)*(owf_a_34*owf_wm_56_X3))*owf_wp_78_X6)) oks_l1l1bl2l2bu1_1_d3b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d3_2_u2b__2 & + owf_z_1234*( & - va_ff(gncup(1),gncup(2),owf_u2b__2_567_X15,owf_u2_2__8) & - va_ff(gncdwn(1),gncdwn(2),owf_d3b__2_7,owf_d3_2__568_X9) & + va_ff(gncdwn(1),gncdwn(2),owf_d3b__1_578_X7,owf_d3_1__6) & + va_ff(gncup(1),gncup(2),owf_u1b__1_5,owf_u1_1__678_X21)) oks_l1l1bl2l2bu1_1_d3b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d3_2_u2b__2 & + owf_z_1234*( + g_gg(igzww,owf_wm_56_X3,p56,owf_wp_78_X6,p78)) oks_l1l1bl2l2bu1_1_d3b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d3_2_u2b__2 & + owf_h_1234*( - s_ff(ghcc,owf_u2b__2_567_X15,owf_u2_2__8) & - s_ff(ghbb,owf_d3b__2_7,owf_d3_2__568_X9) & + s_ff(ghbb,owf_d3b__1_578_X7,owf_d3_1__6)) oks_l1l1bl2l2bu1_1_d3b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d3b__1d3_2_u2b__2 & + owf_h_1234*( + ghww*(owf_wm_56_X3*owf_wp_78_X6)) oks_l1l1bl2l2bu1_1_d3b__1d3_2_u2b__2 = & - oks_l1l1bl2l2bu1_1_d3b__1d3_2_u2b__2 ! 6 vertices, 5 propagators ! unit symmetry factor end subroutine compute_brakets_0005 subroutine compute_brakets_0006 () oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 = 0 oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 = oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 & + owf_l2b_123*( & + f_vaf(gnclep(1),gnclep(2),owf_z_58_X1,owf_l2_467_X3) & + f_vaf(gnclep(1),gnclep(2),owf_z_67_X3,owf_l2_458_X1) & + f_vf(qlep,owf_a_58_X1,owf_l2_467_X3) & + f_vf(qlep,owf_a_67_X3,owf_l2_458_X1)) oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 = oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 & + owf_l2b_358_X1*( & - f_vaf(gnclep(1),gnclep(2),owf_z_12,owf_l2_467_X3) & - f_vf(qlep,owf_a_12,owf_l2_467_X3)) oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 = oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 & + owf_l2b_367_X3*( & - f_vaf(gnclep(1),gnclep(2),owf_z_12,owf_l2_458_X1) & - f_vf(qlep,owf_a_12,owf_l2_458_X1)) oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 = oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 & + ( - f_fva(gnclep(1),gnclep(2),owf_l1b_267_X3,owf_z_58_X1) & - f_fva(gnclep(1),gnclep(2),owf_l1b_258_X1,owf_z_67_X3) & - f_fv(qlep,owf_l1b_267_X3,owf_a_58_X1) & - f_fv(qlep,owf_l1b_258_X1,owf_a_67_X3))*owf_l1_134 oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 = oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 & + ( - f_fva(gnclep(1),gnclep(2),owf_l1b_234,owf_z_67_X3) & - f_fva(gnclep(1),gnclep(2),owf_l1b_267_X3,owf_z_34) & - f_fv(qlep,owf_l1b_234,owf_a_67_X3) & - f_fv(qlep,owf_l1b_267_X3,owf_a_34))*owf_l1_158_X1 oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 = oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 & + ( - f_fva(gnclep(1),gnclep(2),owf_l1b_234,owf_z_58_X1) & - f_fva(gnclep(1),gnclep(2),owf_l1b_258_X1,owf_z_34) & - f_fv(qlep,owf_l1b_234,owf_a_58_X1) & - f_fv(qlep,owf_l1b_258_X1,owf_a_34))*owf_l1_167_X3 oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 = oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 & + ( + f_fva(gnclep(1),gnclep(2),owf_l2b_367_X3,owf_z_58_X1) & + f_fva(gnclep(1),gnclep(2),owf_l2b_358_X1,owf_z_67_X3) & + f_fv(qlep,owf_l2b_367_X3,owf_a_58_X1) & + f_fv(qlep,owf_l2b_358_X1,owf_a_67_X3))*owf_l2_124 oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 = oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 & + owf_u1b__1_125*( - f_vf((-gs),owf_gl___67_X3,owf_u1_1__348) & - f_vaf(gncup(1),gncup(2),owf_z_67_X3,owf_u1_1__348) & - f_vaf(gncup(1),gncup(2),owf_z_34,owf_u1_1__678_X6) & - f_vf(qup,owf_a_67_X3,owf_u1_1__348) & - f_vf(qup,owf_a_34,owf_u1_1__678_X6)) oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 = oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 & + owf_u1b__1_345*( & - f_vaf(gncup(1),gncup(2),owf_z_12,owf_u1_1__678_X6) & - f_vf(qup,owf_a_12,owf_u1_1__678_X6)) oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 = oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 & + ( - f_fv((-gs),owf_u1b__1_345,owf_gl___67_X3) & - f_fva(gncup(1),gncup(2),owf_u1b__1_345,owf_z_67_X3) & - f_fv(qup,owf_u1b__1_345,owf_a_67_X3) & + f_fva(gncup(1),gncup(2),owf_u1b__1_567_X3,owf_z_34) & + f_fv(qup,owf_u1b__1_567_X3,owf_a_34))*owf_u1_1__128 oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 = oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 & + ( + f_fva(gncup(1),gncup(2),owf_u1b__1_567_X3,owf_z_12) & + f_fv(qup,owf_u1b__1_567_X3,owf_a_12))*owf_u1_1__348 oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 = oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 & + owf_d3b__2_127*( - f_vf((-gs),owf_gl___58_X1,owf_d3_2__346) & - f_vaf(gncdwn(1),gncdwn(2),owf_z_58_X1,owf_d3_2__346) & - f_vf(qdwn,owf_a_58_X1,owf_d3_2__346) & + f_vaf(gncdwn(1),gncdwn(2),owf_z_34,owf_d3_2__568_X13) & + f_vf(qdwn,owf_a_34,owf_d3_2__568_X13)) oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 = oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 & + owf_d3b__2_347*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_12,owf_d3_2__568_X13) & + f_vf(qdwn,owf_a_12,owf_d3_2__568_X13)) oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 = oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 & + ( - f_fv((-gs),owf_d3b__2_347,owf_gl___58_X1) & - f_fva(gncdwn(1),gncdwn(2),owf_d3b__2_347,owf_z_58_X1) & - f_fva(gncdwn(1),gncdwn(2),owf_d3b__2_578_X1,owf_z_34) & - f_fv(qdwn,owf_d3b__2_347,owf_a_58_X1) & - f_fv(qdwn,owf_d3b__2_578_X1,owf_a_34))*owf_d3_2__126 oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 = oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d3b__2_578_X1,owf_z_12) & - f_fv(qdwn,owf_d3b__2_578_X1,owf_a_12))*owf_d3_2__346 oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 = oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 & + owf_a_1267_X1*( - v_ff(qlep,owf_l2b_358_X1,owf_l2_4) & - v_ff(qlep,owf_l2b_3,owf_l2_458_X1) & + v_ff(qup,owf_u1b__1_345,owf_u1_1__8) & + v_ff(qup,owf_u1b__1_5,owf_u1_1__348)) oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 = oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 & + owf_a_1258_X2*( - v_ff(qlep,owf_l2b_367_X3,owf_l2_4) & - v_ff(qlep,owf_l2b_3,owf_l2_467_X3) & + v_ff(qdwn,owf_d3b__2_347,owf_d3_2__6) & + v_ff(qdwn,owf_d3b__2_7,owf_d3_2__346)) oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 = oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 & + owf_a_1234*( - v_ff(qup,owf_u1b__1_567_X3,owf_u1_1__8) & - v_ff(qdwn,owf_d3b__2_7,owf_d3_2__568_X13) & + v_ff(qdwn,owf_d3b__2_578_X1,owf_d3_2__6) & + v_ff(qup,owf_u1b__1_5,owf_u1_1__678_X6)) oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 = oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 & + owf_z_1267_X1*( & - va_ff(gnclep(1),gnclep(2),owf_l2b_358_X1,owf_l2_4) & - va_ff(gnclep(1),gnclep(2),owf_l2b_3,owf_l2_458_X1) & + va_ff(gncup(1),gncup(2),owf_u1b__1_345,owf_u1_1__8) & + va_ff(gncup(1),gncup(2),owf_u1b__1_5,owf_u1_1__348)) oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 = oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 & + owf_z_1258_X2*( & - va_ff(gnclep(1),gnclep(2),owf_l2b_367_X3,owf_l2_4) & - va_ff(gnclep(1),gnclep(2),owf_l2b_3,owf_l2_467_X3) & + va_ff(gncdwn(1),gncdwn(2),owf_d3b__2_347,owf_d3_2__6) & + va_ff(gncdwn(1),gncdwn(2),owf_d3b__2_7,owf_d3_2__346)) oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 = oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 & + owf_z_1234*( & - va_ff(gncup(1),gncup(2),owf_u1b__1_567_X3,owf_u1_1__8) & - va_ff(gncdwn(1),gncdwn(2),owf_d3b__2_7,owf_d3_2__568_X13) & + va_ff(gncdwn(1),gncdwn(2),owf_d3b__2_578_X1,owf_d3_2__6) & + va_ff(gncup(1),gncup(2),owf_u1b__1_5,owf_u1_1__678_X6)) oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 = oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 & + owf_z_1234*( - (ghzz*owf_h_67)*owf_z_58_X1) oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 = oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 & + owf_z_1258_X2*( - (ghzz*owf_h_67)*owf_z_34) oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 = oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 & + owf_gl___1267_X1*( + v_ff((-gs),owf_u1b__1_345,owf_u1_1__8) & + v_ff((-gs),owf_u1b__1_5,owf_u1_1__348)) oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 = oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 & + owf_gl___1258_X2*( + v_ff((-gs),owf_d3b__2_347,owf_d3_2__6) & + v_ff((-gs),owf_d3b__2_7,owf_d3_2__346)) oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 = oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 & + owf_h_1258_X2*( + s_ff(ghbb,owf_d3b__2_347,owf_d3_2__6) & + s_ff(ghbb,owf_d3b__2_7,owf_d3_2__346)) oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 = oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 & + owf_h_1234*( - s_ff(ghbb,owf_d3b__2_7,owf_d3_2__568_X13) & + s_ff(ghbb,owf_d3b__2_578_X1,owf_d3_2__6)) oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 = oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 & + owf_h_1234*( - ghzz*(owf_z_58_X1*owf_z_67_X3)) oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 = oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 & + owf_h_1258_X2*( - ghzz*(owf_z_34*owf_z_67_X3)) oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 = oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 & + owf_h_1267_X1*( - ghzz*(owf_z_34*owf_z_58_X1)) oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 = & - oks_l1l1bl2l2bu1_1_d3b__2d3_2_u1b__1 ! 6 vertices, 5 propagators ! unit symmetry factor end subroutine compute_brakets_0006 subroutine compute_brakets_0007 () oks_l1l1bl2l2bu1_1_d3b__1d3_2_u1b__2 = 0 oks_l1l1bl2l2bu1_1_d3b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d3_2_u1b__2 & + owf_l2b_123*( - f_vlf(gcc,owf_wm_56_X3,owf_n2_478_X3)) oks_l1l1bl2l2bu1_1_d3b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d3_2_u1b__2 & + ( + f_fvl(gcc,owf_n1b_256_X3,owf_wp_78_X3))*owf_l1_134 oks_l1l1bl2l2bu1_1_d3b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d3_2_u1b__2 & + ( - f_fvl(gcc,owf_n2b_356_X3,owf_wp_78_X3))*owf_l2_124 oks_l1l1bl2l2bu1_1_d3b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d3_2_u1b__2 & + owf_n2b_356_X3*( & + f_vaf(gncneu(1),gncneu(2),owf_z_12,owf_n2_478_X3)) oks_l1l1bl2l2bu1_1_d3b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d3_2_u1b__2 & + ( + f_fva(gncneu(1),gncneu(2),owf_n1b_256_X3,owf_z_34) & + f_fvl(gcc,owf_l1b_234,owf_wm_56_X3))*owf_n1_178_X3 oks_l1l1bl2l2bu1_1_d3b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d3_2_u1b__2 & + owf_u1b__1_125*( - f_vf((-gs),owf_gl_1_2_67_X3,owf_u1_2__348) & - f_vaf(gncup(1),gncup(2),owf_z_34,owf_u1_1__678_X3) & - f_vf(qup,owf_a_34,owf_u1_1__678_X3) & + f_vlf(gccq13,owf_wp_78_X3,owf_d3_1__346)) oks_l1l1bl2l2bu1_1_d3b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d3_2_u1b__2 & + owf_u1b__1_345*( & - f_vaf(gncup(1),gncup(2),owf_z_12,owf_u1_1__678_X3) & - f_vf(qup,owf_a_12,owf_u1_1__678_X3)) oks_l1l1bl2l2bu1_1_d3b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d3_2_u1b__2 & + ( - f_fv((-gs),owf_u1b__1_345,owf_gl_1_2_67_X3) & + f_fva(gncup(1),gncup(2),owf_u1b__2_567_X15,owf_z_34) & + f_fv(qup,owf_u1b__2_567_X15,owf_a_34) & + f_fvl(gccq13,owf_d3b__2_347,owf_wm_56_X3))*owf_u1_2__128 oks_l1l1bl2l2bu1_1_d3b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d3_2_u1b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u1b__2_567_X15,owf_z_12) & + f_fv(qup,owf_u1b__2_567_X15,owf_a_12))*owf_u1_2__348 oks_l1l1bl2l2bu1_1_d3b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d3_2_u1b__2 & + owf_d3b__2_127*( - f_vf((-gs),owf_gl_2_1_58_X1,owf_d3_1__346) & + f_vaf(gncdwn(1),gncdwn(2),owf_z_34,owf_d3_2__568_X3) & + f_vf(qdwn,owf_a_34,owf_d3_2__568_X3) & + f_vlf(gccq13,owf_wm_56_X3,owf_u1_2__348)) oks_l1l1bl2l2bu1_1_d3b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d3_2_u1b__2 & + owf_d3b__2_347*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_12,owf_d3_2__568_X3) & + f_vf(qdwn,owf_a_12,owf_d3_2__568_X3)) oks_l1l1bl2l2bu1_1_d3b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d3_2_u1b__2 & + ( - f_fv((-gs),owf_d3b__2_347,owf_gl_2_1_58_X1) & - f_fva(gncdwn(1),gncdwn(2),owf_d3b__1_578_X1,owf_z_34) & - f_fv(qdwn,owf_d3b__1_578_X1,owf_a_34) & + f_fvl(gccq13,owf_u1b__1_345,owf_wp_78_X3))*owf_d3_1__126 oks_l1l1bl2l2bu1_1_d3b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d3_2_u1b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d3b__1_578_X1,owf_z_12) & - f_fv(qdwn,owf_d3b__1_578_X1,owf_a_12))*owf_d3_1__346 oks_l1l1bl2l2bu1_1_d3b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d3_2_u1b__2 & + owf_a_12*( - ((((-2)*gazww)*(owf_wm_56_X3*owf_wp_78_X3))*owf_z_34 & + ((gazww)*(owf_z_34*owf_wm_56_X3))*owf_wp_78_X3 & + ((gazww)*(owf_z_34*owf_wp_78_X3))*owf_wm_56_X3) & - ((((-2)*gaaww)*(owf_wm_56_X3*owf_wp_78_X3))*owf_a_34 & + ((gaaww)*(owf_a_34*owf_wm_56_X3))*owf_wp_78_X3 & + ((gaaww)*(owf_a_34*owf_wp_78_X3))*owf_wm_56_X3)) oks_l1l1bl2l2bu1_1_d3b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d3_2_u1b__2 & + owf_a_1234*( - v_ff(qup,owf_u1b__2_567_X15,owf_u1_2__8) & - v_ff(qdwn,owf_d3b__2_7,owf_d3_2__568_X3) & + v_ff(qdwn,owf_d3b__1_578_X1,owf_d3_1__6) & + v_ff(qup,owf_u1b__1_5,owf_u1_1__678_X3)) oks_l1l1bl2l2bu1_1_d3b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d3_2_u1b__2 & + owf_a_1234*( + g_gg(iqw,owf_wm_56_X3,p56,owf_wp_78_X3,p78)) oks_l1l1bl2l2bu1_1_d3b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d3_2_u1b__2 & + owf_wp_1278_X3*( - vl_ff(gccq13,owf_u1b__1_345,owf_d3_1__6) & - vl_ff(gccq13,owf_u1b__1_5,owf_d3_1__346) & + vl_ff(gcc,owf_n2b_356_X3,owf_l2_4)) oks_l1l1bl2l2bu1_1_d3b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d3_2_u1b__2 & + owf_wp_1278_X3*( + g_gg(iqw,owf_a_34,p34,owf_wm_56_X3,p56) & + g_gg(igzww,owf_z_34,p34,owf_wm_56_X3,p56)) oks_l1l1bl2l2bu1_1_d3b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d3_2_u1b__2 & + owf_wm_1256_X3*( - vl_ff(gccq13,owf_d3b__2_347,owf_u1_2__8) & - vl_ff(gccq13,owf_d3b__2_7,owf_u1_2__348) & + vl_ff(gcc,owf_l2b_3,owf_n2_478_X3)) oks_l1l1bl2l2bu1_1_d3b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d3_2_u1b__2 & + owf_wm_1256_X3*( + g_gg(iqw,owf_wp_78_X3,p78,owf_a_34,p34) & + g_gg(igzww,owf_wp_78_X3,p78,owf_z_34,p34)) oks_l1l1bl2l2bu1_1_d3b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d3_2_u1b__2 & + owf_z_12*( - ((((-2)*gzzww)*(owf_wm_56_X3*owf_wp_78_X3))*owf_z_34 & + ((gzzww)*(owf_z_34*owf_wm_56_X3))*owf_wp_78_X3 & + ((gzzww)*(owf_z_34*owf_wp_78_X3))*owf_wm_56_X3) & - ((((-2)*gazww)*(owf_wm_56_X3*owf_wp_78_X3))*owf_a_34 & + ((gazww)*(owf_a_34*owf_wp_78_X3))*owf_wm_56_X3 & + ((gazww)*(owf_a_34*owf_wm_56_X3))*owf_wp_78_X3)) oks_l1l1bl2l2bu1_1_d3b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d3_2_u1b__2 & + owf_z_1234*( & - va_ff(gncup(1),gncup(2),owf_u1b__2_567_X15,owf_u1_2__8) & - va_ff(gncdwn(1),gncdwn(2),owf_d3b__2_7,owf_d3_2__568_X3) & + va_ff(gncdwn(1),gncdwn(2),owf_d3b__1_578_X1,owf_d3_1__6) & + va_ff(gncup(1),gncup(2),owf_u1b__1_5,owf_u1_1__678_X3)) oks_l1l1bl2l2bu1_1_d3b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d3_2_u1b__2 & + owf_z_1234*( + g_gg(igzww,owf_wm_56_X3,p56,owf_wp_78_X3,p78)) oks_l1l1bl2l2bu1_1_d3b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d3_2_u1b__2 & + owf_gl_1_2_1267_X1*( + v_ff((-gs),owf_u1b__1_345,owf_u1_2__8) & + v_ff((-gs),owf_u1b__1_5,owf_u1_2__348)) oks_l1l1bl2l2bu1_1_d3b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d3_2_u1b__2 & + owf_gl_2_1_1258_X2*( + v_ff((-gs),owf_d3b__2_347,owf_d3_1__6) & + v_ff((-gs),owf_d3b__2_7,owf_d3_1__346)) oks_l1l1bl2l2bu1_1_d3b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d3_2_u1b__2 & + owf_h_1234*( - s_ff(ghbb,owf_d3b__2_7,owf_d3_2__568_X3) & + s_ff(ghbb,owf_d3b__1_578_X1,owf_d3_1__6)) oks_l1l1bl2l2bu1_1_d3b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d3b__1d3_2_u1b__2 & + owf_h_1234*( + ghww*(owf_wm_56_X3*owf_wp_78_X3)) oks_l1l1bl2l2bu1_1_d3b__1d3_2_u1b__2 = & - oks_l1l1bl2l2bu1_1_d3b__1d3_2_u1b__2 ! 6 vertices, 5 propagators ! unit symmetry factor end subroutine compute_brakets_0007 subroutine compute_brakets_0008 () oks_l1l1bl2l2bu1_1_d2b__1d1_2_u2b__2 = 0 oks_l1l1bl2l2bu1_1_d2b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d1_2_u2b__2 & + owf_l2b_123*( - f_vlf(gcc,owf_wm_56_X2,owf_n2_478_X4)) oks_l1l1bl2l2bu1_1_d2b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d1_2_u2b__2 & + ( + f_fvl(gcc,owf_n1b_256_X2,owf_wp_78_X4))*owf_l1_134 oks_l1l1bl2l2bu1_1_d2b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d1_2_u2b__2 & + ( - f_fvl(gcc,owf_n2b_356_X2,owf_wp_78_X4))*owf_l2_124 oks_l1l1bl2l2bu1_1_d2b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d1_2_u2b__2 & + owf_n2b_356_X2*( & + f_vaf(gncneu(1),gncneu(2),owf_z_12,owf_n2_478_X4)) oks_l1l1bl2l2bu1_1_d2b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d1_2_u2b__2 & + ( + f_fva(gncneu(1),gncneu(2),owf_n1b_256_X2,owf_z_34) & + f_fvl(gcc,owf_l1b_234,owf_wm_56_X2))*owf_n1_178_X4 oks_l1l1bl2l2bu1_1_d2b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d1_2_u2b__2 & + owf_u1b__1_125*( & - f_vaf(gncup(1),gncup(2),owf_z_34,owf_u1_1__678_X14) & - f_vf(qup,owf_a_34,owf_u1_1__678_X14) & + f_vlf(gccq12,owf_wp_78_X4,owf_d2_1__346)) oks_l1l1bl2l2bu1_1_d2b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d1_2_u2b__2 & + owf_u1b__1_345*( & - f_vaf(gncup(1),gncup(2),owf_z_12,owf_u1_1__678_X14) & - f_vf(qup,owf_a_12,owf_u1_1__678_X14)) oks_l1l1bl2l2bu1_1_d2b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d1_2_u2b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u2b__2_567_X2,owf_z_34) & + f_fv(qup,owf_u2b__2_567_X2,owf_a_34) & + f_fvl(gccq21,owf_d1b__2_347,owf_wm_56_X2))*owf_u2_2__128 oks_l1l1bl2l2bu1_1_d2b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d1_2_u2b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u2b__2_567_X2,owf_z_12) & + f_fv(qup,owf_u2b__2_567_X2,owf_a_12))*owf_u2_2__348 oks_l1l1bl2l2bu1_1_d2b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d1_2_u2b__2 & + owf_d1b__2_127*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_34,owf_d1_2__568_X8) & + f_vf(qdwn,owf_a_34,owf_d1_2__568_X8) & + f_vlf(gccq21,owf_wm_56_X2,owf_u2_2__348)) oks_l1l1bl2l2bu1_1_d2b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d1_2_u2b__2 & + owf_d1b__2_347*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_12,owf_d1_2__568_X8) & + f_vf(qdwn,owf_a_12,owf_d1_2__568_X8)) oks_l1l1bl2l2bu1_1_d2b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d1_2_u2b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d2b__1_578_X5,owf_z_34) & - f_fv(qdwn,owf_d2b__1_578_X5,owf_a_34) & + f_fvl(gccq12,owf_u1b__1_345,owf_wp_78_X4))*owf_d2_1__126 oks_l1l1bl2l2bu1_1_d2b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d1_2_u2b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d2b__1_578_X5,owf_z_12) & - f_fv(qdwn,owf_d2b__1_578_X5,owf_a_12))*owf_d2_1__346 oks_l1l1bl2l2bu1_1_d2b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d1_2_u2b__2 & + owf_a_12*( - ((((-2)*gazww)*(owf_wm_56_X2*owf_wp_78_X4))*owf_z_34 & + ((gazww)*(owf_z_34*owf_wm_56_X2))*owf_wp_78_X4 & + ((gazww)*(owf_z_34*owf_wp_78_X4))*owf_wm_56_X2) & - ((((-2)*gaaww)*(owf_wm_56_X2*owf_wp_78_X4))*owf_a_34 & + ((gaaww)*(owf_a_34*owf_wm_56_X2))*owf_wp_78_X4 & + ((gaaww)*(owf_a_34*owf_wp_78_X4))*owf_wm_56_X2)) oks_l1l1bl2l2bu1_1_d2b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d1_2_u2b__2 & + owf_a_1234*( - v_ff(qup,owf_u2b__2_567_X2,owf_u2_2__8) & - v_ff(qdwn,owf_d1b__2_7,owf_d1_2__568_X8) & + v_ff(qdwn,owf_d2b__1_578_X5,owf_d2_1__6) & + v_ff(qup,owf_u1b__1_5,owf_u1_1__678_X14)) oks_l1l1bl2l2bu1_1_d2b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d1_2_u2b__2 & + owf_a_1234*( + g_gg(iqw,owf_wm_56_X2,p56,owf_wp_78_X4,p78)) oks_l1l1bl2l2bu1_1_d2b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d1_2_u2b__2 & + owf_wp_1278_X4*( - vl_ff(gccq12,owf_u1b__1_345,owf_d2_1__6) & - vl_ff(gccq12,owf_u1b__1_5,owf_d2_1__346) & + vl_ff(gcc,owf_n2b_356_X2,owf_l2_4)) oks_l1l1bl2l2bu1_1_d2b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d1_2_u2b__2 & + owf_wp_1278_X4*( + g_gg(iqw,owf_a_34,p34,owf_wm_56_X2,p56) & + g_gg(igzww,owf_z_34,p34,owf_wm_56_X2,p56)) oks_l1l1bl2l2bu1_1_d2b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d1_2_u2b__2 & + owf_wm_1256_X2*( - vl_ff(gccq21,owf_d1b__2_347,owf_u2_2__8) & - vl_ff(gccq21,owf_d1b__2_7,owf_u2_2__348) & + vl_ff(gcc,owf_l2b_3,owf_n2_478_X4)) oks_l1l1bl2l2bu1_1_d2b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d1_2_u2b__2 & + owf_wm_1256_X2*( + g_gg(iqw,owf_wp_78_X4,p78,owf_a_34,p34) & + g_gg(igzww,owf_wp_78_X4,p78,owf_z_34,p34)) oks_l1l1bl2l2bu1_1_d2b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d1_2_u2b__2 & + owf_z_12*( - ((((-2)*gzzww)*(owf_wm_56_X2*owf_wp_78_X4))*owf_z_34 & + ((gzzww)*(owf_z_34*owf_wm_56_X2))*owf_wp_78_X4 & + ((gzzww)*(owf_z_34*owf_wp_78_X4))*owf_wm_56_X2) & - ((((-2)*gazww)*(owf_wm_56_X2*owf_wp_78_X4))*owf_a_34 & + ((gazww)*(owf_a_34*owf_wp_78_X4))*owf_wm_56_X2 & + ((gazww)*(owf_a_34*owf_wm_56_X2))*owf_wp_78_X4)) oks_l1l1bl2l2bu1_1_d2b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d1_2_u2b__2 & + owf_z_1234*( & - va_ff(gncup(1),gncup(2),owf_u2b__2_567_X2,owf_u2_2__8) & - va_ff(gncdwn(1),gncdwn(2),owf_d1b__2_7,owf_d1_2__568_X8) & + va_ff(gncdwn(1),gncdwn(2),owf_d2b__1_578_X5,owf_d2_1__6) & + va_ff(gncup(1),gncup(2),owf_u1b__1_5,owf_u1_1__678_X14)) oks_l1l1bl2l2bu1_1_d2b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d1_2_u2b__2 & + owf_z_1234*( + g_gg(igzww,owf_wm_56_X2,p56,owf_wp_78_X4,p78)) oks_l1l1bl2l2bu1_1_d2b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d1_2_u2b__2 & + owf_h_1234*( - s_ff(ghcc,owf_u2b__2_567_X2,owf_u2_2__8)) oks_l1l1bl2l2bu1_1_d2b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d1_2_u2b__2 & + owf_h_1234*( + ghww*(owf_wm_56_X2*owf_wp_78_X4)) oks_l1l1bl2l2bu1_1_d2b__1d1_2_u2b__2 = & - oks_l1l1bl2l2bu1_1_d2b__1d1_2_u2b__2 ! 6 vertices, 5 propagators ! unit symmetry factor end subroutine compute_brakets_0008 subroutine compute_brakets_0009 () oks_l1l1bl2l2bu1_1_d2b__1d1_2_u1b__2 = 0 oks_l1l1bl2l2bu1_1_d2b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d1_2_u1b__2 & + owf_l2b_123*( - f_vlf(gcc,owf_wm_56_X2,owf_n2_478_X1)) oks_l1l1bl2l2bu1_1_d2b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d1_2_u1b__2 & + ( + f_fvl(gcc,owf_n1b_256_X2,owf_wp_78_X1))*owf_l1_134 oks_l1l1bl2l2bu1_1_d2b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d1_2_u1b__2 & + ( - f_fvl(gcc,owf_n2b_356_X2,owf_wp_78_X1))*owf_l2_124 oks_l1l1bl2l2bu1_1_d2b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d1_2_u1b__2 & + owf_n2b_356_X2*( & + f_vaf(gncneu(1),gncneu(2),owf_z_12,owf_n2_478_X1)) oks_l1l1bl2l2bu1_1_d2b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d1_2_u1b__2 & + ( + f_fva(gncneu(1),gncneu(2),owf_n1b_256_X2,owf_z_34) & + f_fvl(gcc,owf_l1b_234,owf_wm_56_X2))*owf_n1_178_X1 oks_l1l1bl2l2bu1_1_d2b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d1_2_u1b__2 & + owf_u1b__1_125*( & - f_vaf(gncup(1),gncup(2),owf_z_34,owf_u1_1__678_X12) & - f_vf(qup,owf_a_34,owf_u1_1__678_X12) & + f_vlf(gccq12,owf_wp_78_X1,owf_d2_1__346)) oks_l1l1bl2l2bu1_1_d2b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d1_2_u1b__2 & + owf_u1b__1_345*( & - f_vaf(gncup(1),gncup(2),owf_z_12,owf_u1_1__678_X12) & - f_vf(qup,owf_a_12,owf_u1_1__678_X12)) oks_l1l1bl2l2bu1_1_d2b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d1_2_u1b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u1b__2_567_X2,owf_z_34) & + f_fv(qup,owf_u1b__2_567_X2,owf_a_34) & + f_fvl(gccq11,owf_d1b__2_347,owf_wm_56_X2))*owf_u1_2__128 oks_l1l1bl2l2bu1_1_d2b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d1_2_u1b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u1b__2_567_X2,owf_z_12) & + f_fv(qup,owf_u1b__2_567_X2,owf_a_12))*owf_u1_2__348 oks_l1l1bl2l2bu1_1_d2b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d1_2_u1b__2 & + owf_d1b__2_127*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_34,owf_d1_2__568_X2) & + f_vf(qdwn,owf_a_34,owf_d1_2__568_X2) & + f_vlf(gccq11,owf_wm_56_X2,owf_u1_2__348)) oks_l1l1bl2l2bu1_1_d2b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d1_2_u1b__2 & + owf_d1b__2_347*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_12,owf_d1_2__568_X2) & + f_vf(qdwn,owf_a_12,owf_d1_2__568_X2)) oks_l1l1bl2l2bu1_1_d2b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d1_2_u1b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d2b__1_578_X3,owf_z_34) & - f_fv(qdwn,owf_d2b__1_578_X3,owf_a_34) & + f_fvl(gccq12,owf_u1b__1_345,owf_wp_78_X1))*owf_d2_1__126 oks_l1l1bl2l2bu1_1_d2b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d1_2_u1b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d2b__1_578_X3,owf_z_12) & - f_fv(qdwn,owf_d2b__1_578_X3,owf_a_12))*owf_d2_1__346 oks_l1l1bl2l2bu1_1_d2b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d1_2_u1b__2 & + owf_a_12*( - ((((-2)*gazww)*(owf_wm_56_X2*owf_wp_78_X1))*owf_z_34 & + ((gazww)*(owf_z_34*owf_wm_56_X2))*owf_wp_78_X1 & + ((gazww)*(owf_z_34*owf_wp_78_X1))*owf_wm_56_X2) & - ((((-2)*gaaww)*(owf_wm_56_X2*owf_wp_78_X1))*owf_a_34 & + ((gaaww)*(owf_a_34*owf_wm_56_X2))*owf_wp_78_X1 & + ((gaaww)*(owf_a_34*owf_wp_78_X1))*owf_wm_56_X2)) oks_l1l1bl2l2bu1_1_d2b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d1_2_u1b__2 & + owf_a_1234*( - v_ff(qup,owf_u1b__2_567_X2,owf_u1_2__8) & - v_ff(qdwn,owf_d1b__2_7,owf_d1_2__568_X2) & + v_ff(qdwn,owf_d2b__1_578_X3,owf_d2_1__6) & + v_ff(qup,owf_u1b__1_5,owf_u1_1__678_X12)) oks_l1l1bl2l2bu1_1_d2b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d1_2_u1b__2 & + owf_a_1234*( + g_gg(iqw,owf_wm_56_X2,p56,owf_wp_78_X1,p78)) oks_l1l1bl2l2bu1_1_d2b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d1_2_u1b__2 & + owf_wp_1278_X1*( - vl_ff(gccq12,owf_u1b__1_345,owf_d2_1__6) & - vl_ff(gccq12,owf_u1b__1_5,owf_d2_1__346) & + vl_ff(gcc,owf_n2b_356_X2,owf_l2_4)) oks_l1l1bl2l2bu1_1_d2b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d1_2_u1b__2 & + owf_wp_1278_X1*( + g_gg(iqw,owf_a_34,p34,owf_wm_56_X2,p56) & + g_gg(igzww,owf_z_34,p34,owf_wm_56_X2,p56)) oks_l1l1bl2l2bu1_1_d2b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d1_2_u1b__2 & + owf_wm_1256_X2*( - vl_ff(gccq11,owf_d1b__2_347,owf_u1_2__8) & - vl_ff(gccq11,owf_d1b__2_7,owf_u1_2__348) & + vl_ff(gcc,owf_l2b_3,owf_n2_478_X1)) oks_l1l1bl2l2bu1_1_d2b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d1_2_u1b__2 & + owf_wm_1256_X2*( + g_gg(iqw,owf_wp_78_X1,p78,owf_a_34,p34) & + g_gg(igzww,owf_wp_78_X1,p78,owf_z_34,p34)) oks_l1l1bl2l2bu1_1_d2b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d1_2_u1b__2 & + owf_z_12*( - ((((-2)*gzzww)*(owf_wm_56_X2*owf_wp_78_X1))*owf_z_34 & + ((gzzww)*(owf_z_34*owf_wm_56_X2))*owf_wp_78_X1 & + ((gzzww)*(owf_z_34*owf_wp_78_X1))*owf_wm_56_X2) & - ((((-2)*gazww)*(owf_wm_56_X2*owf_wp_78_X1))*owf_a_34 & + ((gazww)*(owf_a_34*owf_wp_78_X1))*owf_wm_56_X2 & + ((gazww)*(owf_a_34*owf_wm_56_X2))*owf_wp_78_X1)) oks_l1l1bl2l2bu1_1_d2b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d1_2_u1b__2 & + owf_z_1234*( & - va_ff(gncup(1),gncup(2),owf_u1b__2_567_X2,owf_u1_2__8) & - va_ff(gncdwn(1),gncdwn(2),owf_d1b__2_7,owf_d1_2__568_X2) & + va_ff(gncdwn(1),gncdwn(2),owf_d2b__1_578_X3,owf_d2_1__6) & + va_ff(gncup(1),gncup(2),owf_u1b__1_5,owf_u1_1__678_X12)) oks_l1l1bl2l2bu1_1_d2b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d1_2_u1b__2 & + owf_z_1234*( + g_gg(igzww,owf_wm_56_X2,p56,owf_wp_78_X1,p78)) oks_l1l1bl2l2bu1_1_d2b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d1_2_u1b__2 & + owf_h_1234*( + ghww*(owf_wm_56_X2*owf_wp_78_X1)) oks_l1l1bl2l2bu1_1_d2b__1d1_2_u1b__2 = & - oks_l1l1bl2l2bu1_1_d2b__1d1_2_u1b__2 ! 6 vertices, 5 propagators ! unit symmetry factor end subroutine compute_brakets_0009 subroutine compute_brakets_0010 () oks_l1l1bl2l2bu1_1_d2b__1d2_2_u2b__2 = 0 oks_l1l1bl2l2bu1_1_d2b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d2_2_u2b__2 & + owf_l2b_123*( - f_vlf(gcc,owf_wm_56_X2,owf_n2_478_X5)) oks_l1l1bl2l2bu1_1_d2b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d2_2_u2b__2 & + ( + f_fvl(gcc,owf_n1b_256_X2,owf_wp_78_X5))*owf_l1_134 oks_l1l1bl2l2bu1_1_d2b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d2_2_u2b__2 & + ( - f_fvl(gcc,owf_n2b_356_X2,owf_wp_78_X5))*owf_l2_124 oks_l1l1bl2l2bu1_1_d2b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d2_2_u2b__2 & + owf_n2b_356_X2*( & + f_vaf(gncneu(1),gncneu(2),owf_z_12,owf_n2_478_X5)) oks_l1l1bl2l2bu1_1_d2b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d2_2_u2b__2 & + ( + f_fva(gncneu(1),gncneu(2),owf_n1b_256_X2,owf_z_34) & + f_fvl(gcc,owf_l1b_234,owf_wm_56_X2))*owf_n1_178_X5 oks_l1l1bl2l2bu1_1_d2b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d2_2_u2b__2 & + owf_u1b__1_125*( & - f_vaf(gncup(1),gncup(2),owf_z_34,owf_u1_1__678_X15) & - f_vf(qup,owf_a_34,owf_u1_1__678_X15) & + f_vlf(gccq12,owf_wp_78_X5,owf_d2_1__346)) oks_l1l1bl2l2bu1_1_d2b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d2_2_u2b__2 & + owf_u1b__1_345*( & - f_vaf(gncup(1),gncup(2),owf_z_12,owf_u1_1__678_X15) & - f_vf(qup,owf_a_12,owf_u1_1__678_X15)) oks_l1l1bl2l2bu1_1_d2b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d2_2_u2b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u2b__2_567_X8,owf_z_34) & + f_fv(qup,owf_u2b__2_567_X8,owf_a_34) & + f_fvl(gccq22,owf_d2b__2_347,owf_wm_56_X2))*owf_u2_2__128 oks_l1l1bl2l2bu1_1_d2b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d2_2_u2b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u2b__2_567_X8,owf_z_12) & + f_fv(qup,owf_u2b__2_567_X8,owf_a_12))*owf_u2_2__348 oks_l1l1bl2l2bu1_1_d2b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d2_2_u2b__2 & + owf_d2b__2_127*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_34,owf_d2_2__568_X8) & + f_vf(qdwn,owf_a_34,owf_d2_2__568_X8) & + f_vlf(gccq22,owf_wm_56_X2,owf_u2_2__348)) oks_l1l1bl2l2bu1_1_d2b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d2_2_u2b__2 & + owf_d2b__2_347*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_12,owf_d2_2__568_X8) & + f_vf(qdwn,owf_a_12,owf_d2_2__568_X8)) oks_l1l1bl2l2bu1_1_d2b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d2_2_u2b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d2b__1_578_X6,owf_z_34) & - f_fv(qdwn,owf_d2b__1_578_X6,owf_a_34) & + f_fvl(gccq12,owf_u1b__1_345,owf_wp_78_X5))*owf_d2_1__126 oks_l1l1bl2l2bu1_1_d2b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d2_2_u2b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d2b__1_578_X6,owf_z_12) & - f_fv(qdwn,owf_d2b__1_578_X6,owf_a_12))*owf_d2_1__346 oks_l1l1bl2l2bu1_1_d2b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d2_2_u2b__2 & + owf_a_12*( - ((((-2)*gazww)*(owf_wm_56_X2*owf_wp_78_X5))*owf_z_34 & + ((gazww)*(owf_z_34*owf_wm_56_X2))*owf_wp_78_X5 & + ((gazww)*(owf_z_34*owf_wp_78_X5))*owf_wm_56_X2) & - ((((-2)*gaaww)*(owf_wm_56_X2*owf_wp_78_X5))*owf_a_34 & + ((gaaww)*(owf_a_34*owf_wm_56_X2))*owf_wp_78_X5 & + ((gaaww)*(owf_a_34*owf_wp_78_X5))*owf_wm_56_X2)) oks_l1l1bl2l2bu1_1_d2b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d2_2_u2b__2 & + owf_a_1234*( - v_ff(qup,owf_u2b__2_567_X8,owf_u2_2__8) & - v_ff(qdwn,owf_d2b__2_7,owf_d2_2__568_X8) & + v_ff(qdwn,owf_d2b__1_578_X6,owf_d2_1__6) & + v_ff(qup,owf_u1b__1_5,owf_u1_1__678_X15)) oks_l1l1bl2l2bu1_1_d2b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d2_2_u2b__2 & + owf_a_1234*( + g_gg(iqw,owf_wm_56_X2,p56,owf_wp_78_X5,p78)) oks_l1l1bl2l2bu1_1_d2b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d2_2_u2b__2 & + owf_wp_1278_X5*( - vl_ff(gccq12,owf_u1b__1_345,owf_d2_1__6) & - vl_ff(gccq12,owf_u1b__1_5,owf_d2_1__346) & + vl_ff(gcc,owf_n2b_356_X2,owf_l2_4)) oks_l1l1bl2l2bu1_1_d2b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d2_2_u2b__2 & + owf_wp_1278_X5*( + g_gg(iqw,owf_a_34,p34,owf_wm_56_X2,p56) & + g_gg(igzww,owf_z_34,p34,owf_wm_56_X2,p56)) oks_l1l1bl2l2bu1_1_d2b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d2_2_u2b__2 & + owf_wm_1256_X2*( - vl_ff(gccq22,owf_d2b__2_347,owf_u2_2__8) & - vl_ff(gccq22,owf_d2b__2_7,owf_u2_2__348) & + vl_ff(gcc,owf_l2b_3,owf_n2_478_X5)) oks_l1l1bl2l2bu1_1_d2b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d2_2_u2b__2 & + owf_wm_1256_X2*( + g_gg(iqw,owf_wp_78_X5,p78,owf_a_34,p34) & + g_gg(igzww,owf_wp_78_X5,p78,owf_z_34,p34)) oks_l1l1bl2l2bu1_1_d2b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d2_2_u2b__2 & + owf_z_12*( - ((((-2)*gzzww)*(owf_wm_56_X2*owf_wp_78_X5))*owf_z_34 & + ((gzzww)*(owf_z_34*owf_wm_56_X2))*owf_wp_78_X5 & + ((gzzww)*(owf_z_34*owf_wp_78_X5))*owf_wm_56_X2) & - ((((-2)*gazww)*(owf_wm_56_X2*owf_wp_78_X5))*owf_a_34 & + ((gazww)*(owf_a_34*owf_wp_78_X5))*owf_wm_56_X2 & + ((gazww)*(owf_a_34*owf_wm_56_X2))*owf_wp_78_X5)) oks_l1l1bl2l2bu1_1_d2b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d2_2_u2b__2 & + owf_z_1234*( & - va_ff(gncup(1),gncup(2),owf_u2b__2_567_X8,owf_u2_2__8) & - va_ff(gncdwn(1),gncdwn(2),owf_d2b__2_7,owf_d2_2__568_X8) & + va_ff(gncdwn(1),gncdwn(2),owf_d2b__1_578_X6,owf_d2_1__6) & + va_ff(gncup(1),gncup(2),owf_u1b__1_5,owf_u1_1__678_X15)) oks_l1l1bl2l2bu1_1_d2b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d2_2_u2b__2 & + owf_z_1234*( + g_gg(igzww,owf_wm_56_X2,p56,owf_wp_78_X5,p78)) oks_l1l1bl2l2bu1_1_d2b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d2_2_u2b__2 & + owf_h_1234*( - s_ff(ghcc,owf_u2b__2_567_X8,owf_u2_2__8)) oks_l1l1bl2l2bu1_1_d2b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d2_2_u2b__2 & + owf_h_1234*( + ghww*(owf_wm_56_X2*owf_wp_78_X5)) oks_l1l1bl2l2bu1_1_d2b__1d2_2_u2b__2 = & - oks_l1l1bl2l2bu1_1_d2b__1d2_2_u2b__2 ! 6 vertices, 5 propagators ! unit symmetry factor end subroutine compute_brakets_0010 subroutine compute_brakets_0011 () oks_l1l1bl2l2bu1_1_d2b__2d2_2_u1b__1 = 0 oks_l1l1bl2l2bu1_1_d2b__2d2_2_u1b__1 = oks_l1l1bl2l2bu1_1_d2b__2d2_2_u1b__1 & + owf_l2b_123*( & + f_vaf(gnclep(1),gnclep(2),owf_z_58_X1,owf_l2_467_X2) & + f_vaf(gnclep(1),gnclep(2),owf_z_67_X2,owf_l2_458_X1) & + f_vf(qlep,owf_a_58_X1,owf_l2_467_X2) & + f_vf(qlep,owf_a_67_X2,owf_l2_458_X1)) oks_l1l1bl2l2bu1_1_d2b__2d2_2_u1b__1 = oks_l1l1bl2l2bu1_1_d2b__2d2_2_u1b__1 & + owf_l2b_358_X1*( & - f_vaf(gnclep(1),gnclep(2),owf_z_12,owf_l2_467_X2) & - f_vf(qlep,owf_a_12,owf_l2_467_X2)) oks_l1l1bl2l2bu1_1_d2b__2d2_2_u1b__1 = oks_l1l1bl2l2bu1_1_d2b__2d2_2_u1b__1 & + owf_l2b_367_X2*( & - f_vaf(gnclep(1),gnclep(2),owf_z_12,owf_l2_458_X1) & - f_vf(qlep,owf_a_12,owf_l2_458_X1)) oks_l1l1bl2l2bu1_1_d2b__2d2_2_u1b__1 = oks_l1l1bl2l2bu1_1_d2b__2d2_2_u1b__1 & + ( - f_fva(gnclep(1),gnclep(2),owf_l1b_267_X2,owf_z_58_X1) & - f_fva(gnclep(1),gnclep(2),owf_l1b_258_X1,owf_z_67_X2) & - f_fv(qlep,owf_l1b_267_X2,owf_a_58_X1) & - f_fv(qlep,owf_l1b_258_X1,owf_a_67_X2))*owf_l1_134 oks_l1l1bl2l2bu1_1_d2b__2d2_2_u1b__1 = oks_l1l1bl2l2bu1_1_d2b__2d2_2_u1b__1 & + ( - f_fva(gnclep(1),gnclep(2),owf_l1b_234,owf_z_67_X2) & - f_fva(gnclep(1),gnclep(2),owf_l1b_267_X2,owf_z_34) & - f_fv(qlep,owf_l1b_234,owf_a_67_X2) & - f_fv(qlep,owf_l1b_267_X2,owf_a_34))*owf_l1_158_X1 oks_l1l1bl2l2bu1_1_d2b__2d2_2_u1b__1 = oks_l1l1bl2l2bu1_1_d2b__2d2_2_u1b__1 & + ( - f_fva(gnclep(1),gnclep(2),owf_l1b_234,owf_z_58_X1) & - f_fva(gnclep(1),gnclep(2),owf_l1b_258_X1,owf_z_34) & - f_fv(qlep,owf_l1b_234,owf_a_58_X1) & - f_fv(qlep,owf_l1b_258_X1,owf_a_34))*owf_l1_167_X2 oks_l1l1bl2l2bu1_1_d2b__2d2_2_u1b__1 = oks_l1l1bl2l2bu1_1_d2b__2d2_2_u1b__1 & + ( + f_fva(gnclep(1),gnclep(2),owf_l2b_367_X2,owf_z_58_X1) & + f_fva(gnclep(1),gnclep(2),owf_l2b_358_X1,owf_z_67_X2) & + f_fv(qlep,owf_l2b_367_X2,owf_a_58_X1) & + f_fv(qlep,owf_l2b_358_X1,owf_a_67_X2))*owf_l2_124 oks_l1l1bl2l2bu1_1_d2b__2d2_2_u1b__1 = oks_l1l1bl2l2bu1_1_d2b__2d2_2_u1b__1 & + owf_u1b__1_125*( - f_vf((-gs),owf_gl___67_X2,owf_u1_1__348) & - f_vaf(gncup(1),gncup(2),owf_z_67_X2,owf_u1_1__348) & - f_vaf(gncup(1),gncup(2),owf_z_34,owf_u1_1__678_X5) & - f_vf(qup,owf_a_67_X2,owf_u1_1__348) & - f_vf(qup,owf_a_34,owf_u1_1__678_X5)) oks_l1l1bl2l2bu1_1_d2b__2d2_2_u1b__1 = oks_l1l1bl2l2bu1_1_d2b__2d2_2_u1b__1 & + owf_u1b__1_345*( & - f_vaf(gncup(1),gncup(2),owf_z_12,owf_u1_1__678_X5) & - f_vf(qup,owf_a_12,owf_u1_1__678_X5)) oks_l1l1bl2l2bu1_1_d2b__2d2_2_u1b__1 = oks_l1l1bl2l2bu1_1_d2b__2d2_2_u1b__1 & + ( - f_fv((-gs),owf_u1b__1_345,owf_gl___67_X2) & - f_fva(gncup(1),gncup(2),owf_u1b__1_345,owf_z_67_X2) & - f_fv(qup,owf_u1b__1_345,owf_a_67_X2) & + f_fva(gncup(1),gncup(2),owf_u1b__1_567_X2,owf_z_34) & + f_fv(qup,owf_u1b__1_567_X2,owf_a_34))*owf_u1_1__128 oks_l1l1bl2l2bu1_1_d2b__2d2_2_u1b__1 = oks_l1l1bl2l2bu1_1_d2b__2d2_2_u1b__1 & + ( + f_fva(gncup(1),gncup(2),owf_u1b__1_567_X2,owf_z_12) & + f_fv(qup,owf_u1b__1_567_X2,owf_a_12))*owf_u1_1__348 oks_l1l1bl2l2bu1_1_d2b__2d2_2_u1b__1 = oks_l1l1bl2l2bu1_1_d2b__2d2_2_u1b__1 & + owf_d2b__2_127*( - f_vf((-gs),owf_gl___58_X1,owf_d2_2__346) & - f_vaf(gncdwn(1),gncdwn(2),owf_z_58_X1,owf_d2_2__346) & - f_vf(qdwn,owf_a_58_X1,owf_d2_2__346) & + f_vaf(gncdwn(1),gncdwn(2),owf_z_34,owf_d2_2__568_X13) & + f_vf(qdwn,owf_a_34,owf_d2_2__568_X13)) oks_l1l1bl2l2bu1_1_d2b__2d2_2_u1b__1 = oks_l1l1bl2l2bu1_1_d2b__2d2_2_u1b__1 & + owf_d2b__2_347*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_12,owf_d2_2__568_X13) & + f_vf(qdwn,owf_a_12,owf_d2_2__568_X13)) oks_l1l1bl2l2bu1_1_d2b__2d2_2_u1b__1 = oks_l1l1bl2l2bu1_1_d2b__2d2_2_u1b__1 & + ( - f_fv((-gs),owf_d2b__2_347,owf_gl___58_X1) & - f_fva(gncdwn(1),gncdwn(2),owf_d2b__2_347,owf_z_58_X1) & - f_fva(gncdwn(1),gncdwn(2),owf_d2b__2_578_X1,owf_z_34) & - f_fv(qdwn,owf_d2b__2_347,owf_a_58_X1) & - f_fv(qdwn,owf_d2b__2_578_X1,owf_a_34))*owf_d2_2__126 oks_l1l1bl2l2bu1_1_d2b__2d2_2_u1b__1 = oks_l1l1bl2l2bu1_1_d2b__2d2_2_u1b__1 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d2b__2_578_X1,owf_z_12) & - f_fv(qdwn,owf_d2b__2_578_X1,owf_a_12))*owf_d2_2__346 oks_l1l1bl2l2bu1_1_d2b__2d2_2_u1b__1 = oks_l1l1bl2l2bu1_1_d2b__2d2_2_u1b__1 & + owf_a_1267_X2*( - v_ff(qlep,owf_l2b_358_X1,owf_l2_4) & - v_ff(qlep,owf_l2b_3,owf_l2_458_X1) & + v_ff(qup,owf_u1b__1_345,owf_u1_1__8) & + v_ff(qup,owf_u1b__1_5,owf_u1_1__348)) oks_l1l1bl2l2bu1_1_d2b__2d2_2_u1b__1 = oks_l1l1bl2l2bu1_1_d2b__2d2_2_u1b__1 & + owf_a_1258_X2*( - v_ff(qlep,owf_l2b_367_X2,owf_l2_4) & - v_ff(qlep,owf_l2b_3,owf_l2_467_X2) & + v_ff(qdwn,owf_d2b__2_347,owf_d2_2__6) & + v_ff(qdwn,owf_d2b__2_7,owf_d2_2__346)) oks_l1l1bl2l2bu1_1_d2b__2d2_2_u1b__1 = oks_l1l1bl2l2bu1_1_d2b__2d2_2_u1b__1 & + owf_a_1234*( - v_ff(qup,owf_u1b__1_567_X2,owf_u1_1__8) & - v_ff(qdwn,owf_d2b__2_7,owf_d2_2__568_X13) & + v_ff(qdwn,owf_d2b__2_578_X1,owf_d2_2__6) & + v_ff(qup,owf_u1b__1_5,owf_u1_1__678_X5)) oks_l1l1bl2l2bu1_1_d2b__2d2_2_u1b__1 = oks_l1l1bl2l2bu1_1_d2b__2d2_2_u1b__1 & + owf_z_1267_X2*( & - va_ff(gnclep(1),gnclep(2),owf_l2b_358_X1,owf_l2_4) & - va_ff(gnclep(1),gnclep(2),owf_l2b_3,owf_l2_458_X1) & + va_ff(gncup(1),gncup(2),owf_u1b__1_345,owf_u1_1__8) & + va_ff(gncup(1),gncup(2),owf_u1b__1_5,owf_u1_1__348)) oks_l1l1bl2l2bu1_1_d2b__2d2_2_u1b__1 = oks_l1l1bl2l2bu1_1_d2b__2d2_2_u1b__1 & + owf_z_1258_X2*( & - va_ff(gnclep(1),gnclep(2),owf_l2b_367_X2,owf_l2_4) & - va_ff(gnclep(1),gnclep(2),owf_l2b_3,owf_l2_467_X2) & + va_ff(gncdwn(1),gncdwn(2),owf_d2b__2_347,owf_d2_2__6) & + va_ff(gncdwn(1),gncdwn(2),owf_d2b__2_7,owf_d2_2__346)) oks_l1l1bl2l2bu1_1_d2b__2d2_2_u1b__1 = oks_l1l1bl2l2bu1_1_d2b__2d2_2_u1b__1 & + owf_z_1234*( & - va_ff(gncup(1),gncup(2),owf_u1b__1_567_X2,owf_u1_1__8) & - va_ff(gncdwn(1),gncdwn(2),owf_d2b__2_7,owf_d2_2__568_X13) & + va_ff(gncdwn(1),gncdwn(2),owf_d2b__2_578_X1,owf_d2_2__6) & + va_ff(gncup(1),gncup(2),owf_u1b__1_5,owf_u1_1__678_X5)) oks_l1l1bl2l2bu1_1_d2b__2d2_2_u1b__1 = oks_l1l1bl2l2bu1_1_d2b__2d2_2_u1b__1 & + owf_gl___1267_X2*( + v_ff((-gs),owf_u1b__1_345,owf_u1_1__8) & + v_ff((-gs),owf_u1b__1_5,owf_u1_1__348)) oks_l1l1bl2l2bu1_1_d2b__2d2_2_u1b__1 = oks_l1l1bl2l2bu1_1_d2b__2d2_2_u1b__1 & + owf_gl___1258_X2*( + v_ff((-gs),owf_d2b__2_347,owf_d2_2__6) & + v_ff((-gs),owf_d2b__2_7,owf_d2_2__346)) oks_l1l1bl2l2bu1_1_d2b__2d2_2_u1b__1 = oks_l1l1bl2l2bu1_1_d2b__2d2_2_u1b__1 & + owf_h_1234*( - ghzz*(owf_z_58_X1*owf_z_67_X2)) oks_l1l1bl2l2bu1_1_d2b__2d2_2_u1b__1 = oks_l1l1bl2l2bu1_1_d2b__2d2_2_u1b__1 & + owf_h_1258_X2*( - ghzz*(owf_z_34*owf_z_67_X2)) oks_l1l1bl2l2bu1_1_d2b__2d2_2_u1b__1 = oks_l1l1bl2l2bu1_1_d2b__2d2_2_u1b__1 & + owf_h_1267_X3*( - ghzz*(owf_z_34*owf_z_58_X1)) oks_l1l1bl2l2bu1_1_d2b__2d2_2_u1b__1 = & - oks_l1l1bl2l2bu1_1_d2b__2d2_2_u1b__1 ! 6 vertices, 5 propagators ! unit symmetry factor end subroutine compute_brakets_0011 subroutine compute_brakets_0012 () oks_l1l1bl2l2bu1_1_d2b__1d2_2_u1b__2 = 0 oks_l1l1bl2l2bu1_1_d2b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d2_2_u1b__2 & + owf_l2b_123*( - f_vlf(gcc,owf_wm_56_X2,owf_n2_478_X2)) oks_l1l1bl2l2bu1_1_d2b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d2_2_u1b__2 & + ( + f_fvl(gcc,owf_n1b_256_X2,owf_wp_78_X2))*owf_l1_134 oks_l1l1bl2l2bu1_1_d2b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d2_2_u1b__2 & + ( - f_fvl(gcc,owf_n2b_356_X2,owf_wp_78_X2))*owf_l2_124 oks_l1l1bl2l2bu1_1_d2b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d2_2_u1b__2 & + owf_n2b_356_X2*( & + f_vaf(gncneu(1),gncneu(2),owf_z_12,owf_n2_478_X2)) oks_l1l1bl2l2bu1_1_d2b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d2_2_u1b__2 & + ( + f_fva(gncneu(1),gncneu(2),owf_n1b_256_X2,owf_z_34) & + f_fvl(gcc,owf_l1b_234,owf_wm_56_X2))*owf_n1_178_X2 oks_l1l1bl2l2bu1_1_d2b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d2_2_u1b__2 & + owf_u1b__1_125*( - f_vf((-gs),owf_gl_1_2_67_X2,owf_u1_2__348) & - f_vaf(gncup(1),gncup(2),owf_z_34,owf_u1_1__678_X2) & - f_vf(qup,owf_a_34,owf_u1_1__678_X2) & + f_vlf(gccq12,owf_wp_78_X2,owf_d2_1__346)) oks_l1l1bl2l2bu1_1_d2b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d2_2_u1b__2 & + owf_u1b__1_345*( & - f_vaf(gncup(1),gncup(2),owf_z_12,owf_u1_1__678_X2) & - f_vf(qup,owf_a_12,owf_u1_1__678_X2)) oks_l1l1bl2l2bu1_1_d2b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d2_2_u1b__2 & + ( - f_fv((-gs),owf_u1b__1_345,owf_gl_1_2_67_X2) & + f_fva(gncup(1),gncup(2),owf_u1b__2_567_X8,owf_z_34) & + f_fv(qup,owf_u1b__2_567_X8,owf_a_34) & + f_fvl(gccq12,owf_d2b__2_347,owf_wm_56_X2))*owf_u1_2__128 oks_l1l1bl2l2bu1_1_d2b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d2_2_u1b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u1b__2_567_X8,owf_z_12) & + f_fv(qup,owf_u1b__2_567_X8,owf_a_12))*owf_u1_2__348 oks_l1l1bl2l2bu1_1_d2b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d2_2_u1b__2 & + owf_d2b__2_127*( - f_vf((-gs),owf_gl_2_1_58_X1,owf_d2_1__346) & + f_vaf(gncdwn(1),gncdwn(2),owf_z_34,owf_d2_2__568_X2) & + f_vf(qdwn,owf_a_34,owf_d2_2__568_X2) & + f_vlf(gccq12,owf_wm_56_X2,owf_u1_2__348)) oks_l1l1bl2l2bu1_1_d2b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d2_2_u1b__2 & + owf_d2b__2_347*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_12,owf_d2_2__568_X2) & + f_vf(qdwn,owf_a_12,owf_d2_2__568_X2)) oks_l1l1bl2l2bu1_1_d2b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d2_2_u1b__2 & + ( - f_fv((-gs),owf_d2b__2_347,owf_gl_2_1_58_X1) & - f_fva(gncdwn(1),gncdwn(2),owf_d2b__1_578_X1,owf_z_34) & - f_fv(qdwn,owf_d2b__1_578_X1,owf_a_34) & + f_fvl(gccq12,owf_u1b__1_345,owf_wp_78_X2))*owf_d2_1__126 oks_l1l1bl2l2bu1_1_d2b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d2_2_u1b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d2b__1_578_X1,owf_z_12) & - f_fv(qdwn,owf_d2b__1_578_X1,owf_a_12))*owf_d2_1__346 oks_l1l1bl2l2bu1_1_d2b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d2_2_u1b__2 & + owf_a_12*( - ((((-2)*gazww)*(owf_wm_56_X2*owf_wp_78_X2))*owf_z_34 & + ((gazww)*(owf_z_34*owf_wm_56_X2))*owf_wp_78_X2 & + ((gazww)*(owf_z_34*owf_wp_78_X2))*owf_wm_56_X2) & - ((((-2)*gaaww)*(owf_wm_56_X2*owf_wp_78_X2))*owf_a_34 & + ((gaaww)*(owf_a_34*owf_wm_56_X2))*owf_wp_78_X2 & + ((gaaww)*(owf_a_34*owf_wp_78_X2))*owf_wm_56_X2)) oks_l1l1bl2l2bu1_1_d2b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d2_2_u1b__2 & + owf_a_1234*( - v_ff(qup,owf_u1b__2_567_X8,owf_u1_2__8) & - v_ff(qdwn,owf_d2b__2_7,owf_d2_2__568_X2) & + v_ff(qdwn,owf_d2b__1_578_X1,owf_d2_1__6) & + v_ff(qup,owf_u1b__1_5,owf_u1_1__678_X2)) oks_l1l1bl2l2bu1_1_d2b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d2_2_u1b__2 & + owf_a_1234*( + g_gg(iqw,owf_wm_56_X2,p56,owf_wp_78_X2,p78)) oks_l1l1bl2l2bu1_1_d2b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d2_2_u1b__2 & + owf_wp_1278_X2*( - vl_ff(gccq12,owf_u1b__1_345,owf_d2_1__6) & - vl_ff(gccq12,owf_u1b__1_5,owf_d2_1__346) & + vl_ff(gcc,owf_n2b_356_X2,owf_l2_4)) oks_l1l1bl2l2bu1_1_d2b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d2_2_u1b__2 & + owf_wp_1278_X2*( + g_gg(iqw,owf_a_34,p34,owf_wm_56_X2,p56) & + g_gg(igzww,owf_z_34,p34,owf_wm_56_X2,p56)) oks_l1l1bl2l2bu1_1_d2b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d2_2_u1b__2 & + owf_wm_1256_X2*( - vl_ff(gccq12,owf_d2b__2_347,owf_u1_2__8) & - vl_ff(gccq12,owf_d2b__2_7,owf_u1_2__348) & + vl_ff(gcc,owf_l2b_3,owf_n2_478_X2)) oks_l1l1bl2l2bu1_1_d2b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d2_2_u1b__2 & + owf_wm_1256_X2*( + g_gg(iqw,owf_wp_78_X2,p78,owf_a_34,p34) & + g_gg(igzww,owf_wp_78_X2,p78,owf_z_34,p34)) oks_l1l1bl2l2bu1_1_d2b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d2_2_u1b__2 & + owf_z_12*( - ((((-2)*gzzww)*(owf_wm_56_X2*owf_wp_78_X2))*owf_z_34 & + ((gzzww)*(owf_z_34*owf_wm_56_X2))*owf_wp_78_X2 & + ((gzzww)*(owf_z_34*owf_wp_78_X2))*owf_wm_56_X2) & - ((((-2)*gazww)*(owf_wm_56_X2*owf_wp_78_X2))*owf_a_34 & + ((gazww)*(owf_a_34*owf_wp_78_X2))*owf_wm_56_X2 & + ((gazww)*(owf_a_34*owf_wm_56_X2))*owf_wp_78_X2)) oks_l1l1bl2l2bu1_1_d2b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d2_2_u1b__2 & + owf_z_1234*( & - va_ff(gncup(1),gncup(2),owf_u1b__2_567_X8,owf_u1_2__8) & - va_ff(gncdwn(1),gncdwn(2),owf_d2b__2_7,owf_d2_2__568_X2) & + va_ff(gncdwn(1),gncdwn(2),owf_d2b__1_578_X1,owf_d2_1__6) & + va_ff(gncup(1),gncup(2),owf_u1b__1_5,owf_u1_1__678_X2)) oks_l1l1bl2l2bu1_1_d2b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d2_2_u1b__2 & + owf_z_1234*( + g_gg(igzww,owf_wm_56_X2,p56,owf_wp_78_X2,p78)) oks_l1l1bl2l2bu1_1_d2b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d2_2_u1b__2 & + owf_gl_1_2_1267_X2*( + v_ff((-gs),owf_u1b__1_345,owf_u1_2__8) & + v_ff((-gs),owf_u1b__1_5,owf_u1_2__348)) oks_l1l1bl2l2bu1_1_d2b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d2_2_u1b__2 & + owf_gl_2_1_1258_X2*( + v_ff((-gs),owf_d2b__2_347,owf_d2_1__6) & + v_ff((-gs),owf_d2b__2_7,owf_d2_1__346)) oks_l1l1bl2l2bu1_1_d2b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d2_2_u1b__2 & + owf_h_1234*( + ghww*(owf_wm_56_X2*owf_wp_78_X2)) oks_l1l1bl2l2bu1_1_d2b__1d2_2_u1b__2 = & - oks_l1l1bl2l2bu1_1_d2b__1d2_2_u1b__2 ! 6 vertices, 5 propagators ! unit symmetry factor end subroutine compute_brakets_0012 subroutine compute_brakets_0013 () oks_l1l1bl2l2bu1_1_d2b__1d3_2_u2b__2 = 0 oks_l1l1bl2l2bu1_1_d2b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d3_2_u2b__2 & + owf_l2b_123*( - f_vlf(gcc,owf_wm_56_X2,owf_n2_478_X6)) oks_l1l1bl2l2bu1_1_d2b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d3_2_u2b__2 & + ( + f_fvl(gcc,owf_n1b_256_X2,owf_wp_78_X6))*owf_l1_134 oks_l1l1bl2l2bu1_1_d2b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d3_2_u2b__2 & + ( - f_fvl(gcc,owf_n2b_356_X2,owf_wp_78_X6))*owf_l2_124 oks_l1l1bl2l2bu1_1_d2b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d3_2_u2b__2 & + owf_n2b_356_X2*( & + f_vaf(gncneu(1),gncneu(2),owf_z_12,owf_n2_478_X6)) oks_l1l1bl2l2bu1_1_d2b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d3_2_u2b__2 & + ( + f_fva(gncneu(1),gncneu(2),owf_n1b_256_X2,owf_z_34) & + f_fvl(gcc,owf_l1b_234,owf_wm_56_X2))*owf_n1_178_X6 oks_l1l1bl2l2bu1_1_d2b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d3_2_u2b__2 & + owf_u1b__1_125*( & - f_vaf(gncup(1),gncup(2),owf_z_34,owf_u1_1__678_X16) & - f_vf(qup,owf_a_34,owf_u1_1__678_X16) & + f_vlf(gccq12,owf_wp_78_X6,owf_d2_1__346)) oks_l1l1bl2l2bu1_1_d2b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d3_2_u2b__2 & + owf_u1b__1_345*( & - f_vaf(gncup(1),gncup(2),owf_z_12,owf_u1_1__678_X16) & - f_vf(qup,owf_a_12,owf_u1_1__678_X16)) oks_l1l1bl2l2bu1_1_d2b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d3_2_u2b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u2b__2_567_X14,owf_z_34) & + f_fv(qup,owf_u2b__2_567_X14,owf_a_34) & + f_fvl(gccq23,owf_d3b__2_347,owf_wm_56_X2))*owf_u2_2__128 oks_l1l1bl2l2bu1_1_d2b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d3_2_u2b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u2b__2_567_X14,owf_z_12) & + f_fv(qup,owf_u2b__2_567_X14,owf_a_12))*owf_u2_2__348 oks_l1l1bl2l2bu1_1_d2b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d3_2_u2b__2 & + owf_d3b__2_127*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_34,owf_d3_2__568_X8) & + f_vf(qdwn,owf_a_34,owf_d3_2__568_X8) & + f_vlf(gccq23,owf_wm_56_X2,owf_u2_2__348)) oks_l1l1bl2l2bu1_1_d2b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d3_2_u2b__2 & + owf_d3b__2_347*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_12,owf_d3_2__568_X8) & + f_vf(qdwn,owf_a_12,owf_d3_2__568_X8)) oks_l1l1bl2l2bu1_1_d2b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d3_2_u2b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d2b__1_578_X7,owf_z_34) & - f_fv(qdwn,owf_d2b__1_578_X7,owf_a_34) & + f_fvl(gccq12,owf_u1b__1_345,owf_wp_78_X6))*owf_d2_1__126 oks_l1l1bl2l2bu1_1_d2b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d3_2_u2b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d2b__1_578_X7,owf_z_12) & - f_fv(qdwn,owf_d2b__1_578_X7,owf_a_12))*owf_d2_1__346 oks_l1l1bl2l2bu1_1_d2b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d3_2_u2b__2 & + owf_a_12*( - ((((-2)*gazww)*(owf_wm_56_X2*owf_wp_78_X6))*owf_z_34 & + ((gazww)*(owf_z_34*owf_wm_56_X2))*owf_wp_78_X6 & + ((gazww)*(owf_z_34*owf_wp_78_X6))*owf_wm_56_X2) & - ((((-2)*gaaww)*(owf_wm_56_X2*owf_wp_78_X6))*owf_a_34 & + ((gaaww)*(owf_a_34*owf_wm_56_X2))*owf_wp_78_X6 & + ((gaaww)*(owf_a_34*owf_wp_78_X6))*owf_wm_56_X2)) oks_l1l1bl2l2bu1_1_d2b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d3_2_u2b__2 & + owf_a_1234*( - v_ff(qup,owf_u2b__2_567_X14,owf_u2_2__8) & - v_ff(qdwn,owf_d3b__2_7,owf_d3_2__568_X8) & + v_ff(qdwn,owf_d2b__1_578_X7,owf_d2_1__6) & + v_ff(qup,owf_u1b__1_5,owf_u1_1__678_X16)) oks_l1l1bl2l2bu1_1_d2b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d3_2_u2b__2 & + owf_a_1234*( + g_gg(iqw,owf_wm_56_X2,p56,owf_wp_78_X6,p78)) oks_l1l1bl2l2bu1_1_d2b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d3_2_u2b__2 & + owf_wp_1278_X6*( - vl_ff(gccq12,owf_u1b__1_345,owf_d2_1__6) & - vl_ff(gccq12,owf_u1b__1_5,owf_d2_1__346) & + vl_ff(gcc,owf_n2b_356_X2,owf_l2_4)) oks_l1l1bl2l2bu1_1_d2b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d3_2_u2b__2 & + owf_wp_1278_X6*( + g_gg(iqw,owf_a_34,p34,owf_wm_56_X2,p56) & + g_gg(igzww,owf_z_34,p34,owf_wm_56_X2,p56)) oks_l1l1bl2l2bu1_1_d2b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d3_2_u2b__2 & + owf_wm_1256_X2*( - vl_ff(gccq23,owf_d3b__2_347,owf_u2_2__8) & - vl_ff(gccq23,owf_d3b__2_7,owf_u2_2__348) & + vl_ff(gcc,owf_l2b_3,owf_n2_478_X6)) oks_l1l1bl2l2bu1_1_d2b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d3_2_u2b__2 & + owf_wm_1256_X2*( + g_gg(iqw,owf_wp_78_X6,p78,owf_a_34,p34) & + g_gg(igzww,owf_wp_78_X6,p78,owf_z_34,p34)) oks_l1l1bl2l2bu1_1_d2b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d3_2_u2b__2 & + owf_z_12*( - ((((-2)*gzzww)*(owf_wm_56_X2*owf_wp_78_X6))*owf_z_34 & + ((gzzww)*(owf_z_34*owf_wm_56_X2))*owf_wp_78_X6 & + ((gzzww)*(owf_z_34*owf_wp_78_X6))*owf_wm_56_X2) & - ((((-2)*gazww)*(owf_wm_56_X2*owf_wp_78_X6))*owf_a_34 & + ((gazww)*(owf_a_34*owf_wp_78_X6))*owf_wm_56_X2 & + ((gazww)*(owf_a_34*owf_wm_56_X2))*owf_wp_78_X6)) oks_l1l1bl2l2bu1_1_d2b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d3_2_u2b__2 & + owf_z_1234*( & - va_ff(gncup(1),gncup(2),owf_u2b__2_567_X14,owf_u2_2__8) & - va_ff(gncdwn(1),gncdwn(2),owf_d3b__2_7,owf_d3_2__568_X8) & + va_ff(gncdwn(1),gncdwn(2),owf_d2b__1_578_X7,owf_d2_1__6) & + va_ff(gncup(1),gncup(2),owf_u1b__1_5,owf_u1_1__678_X16)) oks_l1l1bl2l2bu1_1_d2b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d3_2_u2b__2 & + owf_z_1234*( + g_gg(igzww,owf_wm_56_X2,p56,owf_wp_78_X6,p78)) oks_l1l1bl2l2bu1_1_d2b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d3_2_u2b__2 & + owf_h_1234*( - s_ff(ghcc,owf_u2b__2_567_X14,owf_u2_2__8) & - s_ff(ghbb,owf_d3b__2_7,owf_d3_2__568_X8)) oks_l1l1bl2l2bu1_1_d2b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d2b__1d3_2_u2b__2 & + owf_h_1234*( + ghww*(owf_wm_56_X2*owf_wp_78_X6)) oks_l1l1bl2l2bu1_1_d2b__1d3_2_u2b__2 = & - oks_l1l1bl2l2bu1_1_d2b__1d3_2_u2b__2 ! 6 vertices, 5 propagators ! unit symmetry factor end subroutine compute_brakets_0013 subroutine compute_brakets_0014 () oks_l1l1bl2l2bu1_1_d2b__1d3_2_u1b__2 = 0 oks_l1l1bl2l2bu1_1_d2b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d3_2_u1b__2 & + owf_l2b_123*( - f_vlf(gcc,owf_wm_56_X2,owf_n2_478_X3)) oks_l1l1bl2l2bu1_1_d2b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d3_2_u1b__2 & + ( + f_fvl(gcc,owf_n1b_256_X2,owf_wp_78_X3))*owf_l1_134 oks_l1l1bl2l2bu1_1_d2b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d3_2_u1b__2 & + ( - f_fvl(gcc,owf_n2b_356_X2,owf_wp_78_X3))*owf_l2_124 oks_l1l1bl2l2bu1_1_d2b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d3_2_u1b__2 & + owf_n2b_356_X2*( & + f_vaf(gncneu(1),gncneu(2),owf_z_12,owf_n2_478_X3)) oks_l1l1bl2l2bu1_1_d2b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d3_2_u1b__2 & + ( + f_fva(gncneu(1),gncneu(2),owf_n1b_256_X2,owf_z_34) & + f_fvl(gcc,owf_l1b_234,owf_wm_56_X2))*owf_n1_178_X3 oks_l1l1bl2l2bu1_1_d2b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d3_2_u1b__2 & + owf_u1b__1_125*( & - f_vaf(gncup(1),gncup(2),owf_z_34,owf_u1_1__678_X13) & - f_vf(qup,owf_a_34,owf_u1_1__678_X13) & + f_vlf(gccq12,owf_wp_78_X3,owf_d2_1__346)) oks_l1l1bl2l2bu1_1_d2b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d3_2_u1b__2 & + owf_u1b__1_345*( & - f_vaf(gncup(1),gncup(2),owf_z_12,owf_u1_1__678_X13) & - f_vf(qup,owf_a_12,owf_u1_1__678_X13)) oks_l1l1bl2l2bu1_1_d2b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d3_2_u1b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u1b__2_567_X14,owf_z_34) & + f_fv(qup,owf_u1b__2_567_X14,owf_a_34) & + f_fvl(gccq13,owf_d3b__2_347,owf_wm_56_X2))*owf_u1_2__128 oks_l1l1bl2l2bu1_1_d2b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d3_2_u1b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u1b__2_567_X14,owf_z_12) & + f_fv(qup,owf_u1b__2_567_X14,owf_a_12))*owf_u1_2__348 oks_l1l1bl2l2bu1_1_d2b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d3_2_u1b__2 & + owf_d3b__2_127*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_34,owf_d3_2__568_X2) & + f_vf(qdwn,owf_a_34,owf_d3_2__568_X2) & + f_vlf(gccq13,owf_wm_56_X2,owf_u1_2__348)) oks_l1l1bl2l2bu1_1_d2b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d3_2_u1b__2 & + owf_d3b__2_347*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_12,owf_d3_2__568_X2) & + f_vf(qdwn,owf_a_12,owf_d3_2__568_X2)) oks_l1l1bl2l2bu1_1_d2b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d3_2_u1b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d2b__1_578_X4,owf_z_34) & - f_fv(qdwn,owf_d2b__1_578_X4,owf_a_34) & + f_fvl(gccq12,owf_u1b__1_345,owf_wp_78_X3))*owf_d2_1__126 oks_l1l1bl2l2bu1_1_d2b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d3_2_u1b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d2b__1_578_X4,owf_z_12) & - f_fv(qdwn,owf_d2b__1_578_X4,owf_a_12))*owf_d2_1__346 oks_l1l1bl2l2bu1_1_d2b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d3_2_u1b__2 & + owf_a_12*( - ((((-2)*gazww)*(owf_wm_56_X2*owf_wp_78_X3))*owf_z_34 & + ((gazww)*(owf_z_34*owf_wm_56_X2))*owf_wp_78_X3 & + ((gazww)*(owf_z_34*owf_wp_78_X3))*owf_wm_56_X2) & - ((((-2)*gaaww)*(owf_wm_56_X2*owf_wp_78_X3))*owf_a_34 & + ((gaaww)*(owf_a_34*owf_wm_56_X2))*owf_wp_78_X3 & + ((gaaww)*(owf_a_34*owf_wp_78_X3))*owf_wm_56_X2)) oks_l1l1bl2l2bu1_1_d2b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d3_2_u1b__2 & + owf_a_1234*( - v_ff(qup,owf_u1b__2_567_X14,owf_u1_2__8) & - v_ff(qdwn,owf_d3b__2_7,owf_d3_2__568_X2) & + v_ff(qdwn,owf_d2b__1_578_X4,owf_d2_1__6) & + v_ff(qup,owf_u1b__1_5,owf_u1_1__678_X13)) oks_l1l1bl2l2bu1_1_d2b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d3_2_u1b__2 & + owf_a_1234*( + g_gg(iqw,owf_wm_56_X2,p56,owf_wp_78_X3,p78)) oks_l1l1bl2l2bu1_1_d2b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d3_2_u1b__2 & + owf_wp_1278_X3*( - vl_ff(gccq12,owf_u1b__1_345,owf_d2_1__6) & - vl_ff(gccq12,owf_u1b__1_5,owf_d2_1__346) & + vl_ff(gcc,owf_n2b_356_X2,owf_l2_4)) oks_l1l1bl2l2bu1_1_d2b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d3_2_u1b__2 & + owf_wp_1278_X3*( + g_gg(iqw,owf_a_34,p34,owf_wm_56_X2,p56) & + g_gg(igzww,owf_z_34,p34,owf_wm_56_X2,p56)) oks_l1l1bl2l2bu1_1_d2b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d3_2_u1b__2 & + owf_wm_1256_X2*( - vl_ff(gccq13,owf_d3b__2_347,owf_u1_2__8) & - vl_ff(gccq13,owf_d3b__2_7,owf_u1_2__348) & + vl_ff(gcc,owf_l2b_3,owf_n2_478_X3)) oks_l1l1bl2l2bu1_1_d2b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d3_2_u1b__2 & + owf_wm_1256_X2*( + g_gg(iqw,owf_wp_78_X3,p78,owf_a_34,p34) & + g_gg(igzww,owf_wp_78_X3,p78,owf_z_34,p34)) oks_l1l1bl2l2bu1_1_d2b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d3_2_u1b__2 & + owf_z_12*( - ((((-2)*gzzww)*(owf_wm_56_X2*owf_wp_78_X3))*owf_z_34 & + ((gzzww)*(owf_z_34*owf_wm_56_X2))*owf_wp_78_X3 & + ((gzzww)*(owf_z_34*owf_wp_78_X3))*owf_wm_56_X2) & - ((((-2)*gazww)*(owf_wm_56_X2*owf_wp_78_X3))*owf_a_34 & + ((gazww)*(owf_a_34*owf_wp_78_X3))*owf_wm_56_X2 & + ((gazww)*(owf_a_34*owf_wm_56_X2))*owf_wp_78_X3)) oks_l1l1bl2l2bu1_1_d2b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d3_2_u1b__2 & + owf_z_1234*( & - va_ff(gncup(1),gncup(2),owf_u1b__2_567_X14,owf_u1_2__8) & - va_ff(gncdwn(1),gncdwn(2),owf_d3b__2_7,owf_d3_2__568_X2) & + va_ff(gncdwn(1),gncdwn(2),owf_d2b__1_578_X4,owf_d2_1__6) & + va_ff(gncup(1),gncup(2),owf_u1b__1_5,owf_u1_1__678_X13)) oks_l1l1bl2l2bu1_1_d2b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d3_2_u1b__2 & + owf_z_1234*( + g_gg(igzww,owf_wm_56_X2,p56,owf_wp_78_X3,p78)) oks_l1l1bl2l2bu1_1_d2b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d3_2_u1b__2 & + owf_h_1234*( - s_ff(ghbb,owf_d3b__2_7,owf_d3_2__568_X2)) oks_l1l1bl2l2bu1_1_d2b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d2b__1d3_2_u1b__2 & + owf_h_1234*( + ghww*(owf_wm_56_X2*owf_wp_78_X3)) oks_l1l1bl2l2bu1_1_d2b__1d3_2_u1b__2 = & - oks_l1l1bl2l2bu1_1_d2b__1d3_2_u1b__2 ! 6 vertices, 5 propagators ! unit symmetry factor end subroutine compute_brakets_0014 subroutine compute_brakets_0015 () oks_l1l1bl2l2bu1_1_d1b__1d1_2_u2b__2 = 0 oks_l1l1bl2l2bu1_1_d1b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d1_2_u2b__2 & + owf_l2b_123*( - f_vlf(gcc,owf_wm_56_X1,owf_n2_478_X4)) oks_l1l1bl2l2bu1_1_d1b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d1_2_u2b__2 & + ( + f_fvl(gcc,owf_n1b_256_X1,owf_wp_78_X4))*owf_l1_134 oks_l1l1bl2l2bu1_1_d1b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d1_2_u2b__2 & + ( - f_fvl(gcc,owf_n2b_356_X1,owf_wp_78_X4))*owf_l2_124 oks_l1l1bl2l2bu1_1_d1b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d1_2_u2b__2 & + owf_n2b_356_X1*( & + f_vaf(gncneu(1),gncneu(2),owf_z_12,owf_n2_478_X4)) oks_l1l1bl2l2bu1_1_d1b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d1_2_u2b__2 & + ( + f_fva(gncneu(1),gncneu(2),owf_n1b_256_X1,owf_z_34) & + f_fvl(gcc,owf_l1b_234,owf_wm_56_X1))*owf_n1_178_X4 oks_l1l1bl2l2bu1_1_d1b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d1_2_u2b__2 & + owf_u1b__1_125*( & - f_vaf(gncup(1),gncup(2),owf_z_34,owf_u1_1__678_X9) & - f_vf(qup,owf_a_34,owf_u1_1__678_X9) & + f_vlf(gccq11,owf_wp_78_X4,owf_d1_1__346)) oks_l1l1bl2l2bu1_1_d1b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d1_2_u2b__2 & + owf_u1b__1_345*( & - f_vaf(gncup(1),gncup(2),owf_z_12,owf_u1_1__678_X9) & - f_vf(qup,owf_a_12,owf_u1_1__678_X9)) oks_l1l1bl2l2bu1_1_d1b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d1_2_u2b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u2b__2_567_X1,owf_z_34) & + f_fv(qup,owf_u2b__2_567_X1,owf_a_34) & + f_fvl(gccq21,owf_d1b__2_347,owf_wm_56_X1))*owf_u2_2__128 oks_l1l1bl2l2bu1_1_d1b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d1_2_u2b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u2b__2_567_X1,owf_z_12) & + f_fv(qup,owf_u2b__2_567_X1,owf_a_12))*owf_u2_2__348 oks_l1l1bl2l2bu1_1_d1b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d1_2_u2b__2 & + owf_d1b__2_127*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_34,owf_d1_2__568_X7) & + f_vf(qdwn,owf_a_34,owf_d1_2__568_X7) & + f_vlf(gccq21,owf_wm_56_X1,owf_u2_2__348)) oks_l1l1bl2l2bu1_1_d1b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d1_2_u2b__2 & + owf_d1b__2_347*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_12,owf_d1_2__568_X7) & + f_vf(qdwn,owf_a_12,owf_d1_2__568_X7)) oks_l1l1bl2l2bu1_1_d1b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d1_2_u2b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d1b__1_578_X5,owf_z_34) & - f_fv(qdwn,owf_d1b__1_578_X5,owf_a_34) & + f_fvl(gccq11,owf_u1b__1_345,owf_wp_78_X4))*owf_d1_1__126 oks_l1l1bl2l2bu1_1_d1b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d1_2_u2b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d1b__1_578_X5,owf_z_12) & - f_fv(qdwn,owf_d1b__1_578_X5,owf_a_12))*owf_d1_1__346 oks_l1l1bl2l2bu1_1_d1b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d1_2_u2b__2 & + owf_a_12*( - ((((-2)*gazww)*(owf_wm_56_X1*owf_wp_78_X4))*owf_z_34 & + ((gazww)*(owf_z_34*owf_wm_56_X1))*owf_wp_78_X4 & + ((gazww)*(owf_z_34*owf_wp_78_X4))*owf_wm_56_X1) & - ((((-2)*gaaww)*(owf_wm_56_X1*owf_wp_78_X4))*owf_a_34 & + ((gaaww)*(owf_a_34*owf_wm_56_X1))*owf_wp_78_X4 & + ((gaaww)*(owf_a_34*owf_wp_78_X4))*owf_wm_56_X1)) oks_l1l1bl2l2bu1_1_d1b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d1_2_u2b__2 & + owf_a_1234*( - v_ff(qup,owf_u2b__2_567_X1,owf_u2_2__8) & - v_ff(qdwn,owf_d1b__2_7,owf_d1_2__568_X7) & + v_ff(qdwn,owf_d1b__1_578_X5,owf_d1_1__6) & + v_ff(qup,owf_u1b__1_5,owf_u1_1__678_X9)) oks_l1l1bl2l2bu1_1_d1b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d1_2_u2b__2 & + owf_a_1234*( + g_gg(iqw,owf_wm_56_X1,p56,owf_wp_78_X4,p78)) oks_l1l1bl2l2bu1_1_d1b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d1_2_u2b__2 & + owf_wp_1278_X4*( - vl_ff(gccq11,owf_u1b__1_345,owf_d1_1__6) & - vl_ff(gccq11,owf_u1b__1_5,owf_d1_1__346) & + vl_ff(gcc,owf_n2b_356_X1,owf_l2_4)) oks_l1l1bl2l2bu1_1_d1b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d1_2_u2b__2 & + owf_wp_1278_X4*( + g_gg(iqw,owf_a_34,p34,owf_wm_56_X1,p56) & + g_gg(igzww,owf_z_34,p34,owf_wm_56_X1,p56)) oks_l1l1bl2l2bu1_1_d1b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d1_2_u2b__2 & + owf_wm_1256_X1*( - vl_ff(gccq21,owf_d1b__2_347,owf_u2_2__8) & - vl_ff(gccq21,owf_d1b__2_7,owf_u2_2__348) & + vl_ff(gcc,owf_l2b_3,owf_n2_478_X4)) oks_l1l1bl2l2bu1_1_d1b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d1_2_u2b__2 & + owf_wm_1256_X1*( + g_gg(iqw,owf_wp_78_X4,p78,owf_a_34,p34) & + g_gg(igzww,owf_wp_78_X4,p78,owf_z_34,p34)) oks_l1l1bl2l2bu1_1_d1b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d1_2_u2b__2 & + owf_z_12*( - ((((-2)*gzzww)*(owf_wm_56_X1*owf_wp_78_X4))*owf_z_34 & + ((gzzww)*(owf_z_34*owf_wm_56_X1))*owf_wp_78_X4 & + ((gzzww)*(owf_z_34*owf_wp_78_X4))*owf_wm_56_X1) & - ((((-2)*gazww)*(owf_wm_56_X1*owf_wp_78_X4))*owf_a_34 & + ((gazww)*(owf_a_34*owf_wp_78_X4))*owf_wm_56_X1 & + ((gazww)*(owf_a_34*owf_wm_56_X1))*owf_wp_78_X4)) oks_l1l1bl2l2bu1_1_d1b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d1_2_u2b__2 & + owf_z_1234*( & - va_ff(gncup(1),gncup(2),owf_u2b__2_567_X1,owf_u2_2__8) & - va_ff(gncdwn(1),gncdwn(2),owf_d1b__2_7,owf_d1_2__568_X7) & + va_ff(gncdwn(1),gncdwn(2),owf_d1b__1_578_X5,owf_d1_1__6) & + va_ff(gncup(1),gncup(2),owf_u1b__1_5,owf_u1_1__678_X9)) oks_l1l1bl2l2bu1_1_d1b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d1_2_u2b__2 & + owf_z_1234*( + g_gg(igzww,owf_wm_56_X1,p56,owf_wp_78_X4,p78)) oks_l1l1bl2l2bu1_1_d1b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d1_2_u2b__2 & + owf_h_1234*( - s_ff(ghcc,owf_u2b__2_567_X1,owf_u2_2__8)) oks_l1l1bl2l2bu1_1_d1b__1d1_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d1_2_u2b__2 & + owf_h_1234*( + ghww*(owf_wm_56_X1*owf_wp_78_X4)) oks_l1l1bl2l2bu1_1_d1b__1d1_2_u2b__2 = & - oks_l1l1bl2l2bu1_1_d1b__1d1_2_u2b__2 ! 6 vertices, 5 propagators ! unit symmetry factor end subroutine compute_brakets_0015 subroutine compute_brakets_0016 () oks_l1l1bl2l2bu1_1_d1b__2d1_2_u1b__1 = 0 oks_l1l1bl2l2bu1_1_d1b__2d1_2_u1b__1 = oks_l1l1bl2l2bu1_1_d1b__2d1_2_u1b__1 & + owf_l2b_123*( & + f_vaf(gnclep(1),gnclep(2),owf_z_58_X1,owf_l2_467_X1) & + f_vaf(gnclep(1),gnclep(2),owf_z_67_X1,owf_l2_458_X1) & + f_vf(qlep,owf_a_58_X1,owf_l2_467_X1) & + f_vf(qlep,owf_a_67_X1,owf_l2_458_X1)) oks_l1l1bl2l2bu1_1_d1b__2d1_2_u1b__1 = oks_l1l1bl2l2bu1_1_d1b__2d1_2_u1b__1 & + owf_l2b_358_X1*( & - f_vaf(gnclep(1),gnclep(2),owf_z_12,owf_l2_467_X1) & - f_vf(qlep,owf_a_12,owf_l2_467_X1)) oks_l1l1bl2l2bu1_1_d1b__2d1_2_u1b__1 = oks_l1l1bl2l2bu1_1_d1b__2d1_2_u1b__1 & + owf_l2b_367_X1*( & - f_vaf(gnclep(1),gnclep(2),owf_z_12,owf_l2_458_X1) & - f_vf(qlep,owf_a_12,owf_l2_458_X1)) oks_l1l1bl2l2bu1_1_d1b__2d1_2_u1b__1 = oks_l1l1bl2l2bu1_1_d1b__2d1_2_u1b__1 & + ( - f_fva(gnclep(1),gnclep(2),owf_l1b_267_X1,owf_z_58_X1) & - f_fva(gnclep(1),gnclep(2),owf_l1b_258_X1,owf_z_67_X1) & - f_fv(qlep,owf_l1b_267_X1,owf_a_58_X1) & - f_fv(qlep,owf_l1b_258_X1,owf_a_67_X1))*owf_l1_134 oks_l1l1bl2l2bu1_1_d1b__2d1_2_u1b__1 = oks_l1l1bl2l2bu1_1_d1b__2d1_2_u1b__1 & + ( - f_fva(gnclep(1),gnclep(2),owf_l1b_234,owf_z_67_X1) & - f_fva(gnclep(1),gnclep(2),owf_l1b_267_X1,owf_z_34) & - f_fv(qlep,owf_l1b_234,owf_a_67_X1) & - f_fv(qlep,owf_l1b_267_X1,owf_a_34))*owf_l1_158_X1 oks_l1l1bl2l2bu1_1_d1b__2d1_2_u1b__1 = oks_l1l1bl2l2bu1_1_d1b__2d1_2_u1b__1 & + ( - f_fva(gnclep(1),gnclep(2),owf_l1b_234,owf_z_58_X1) & - f_fva(gnclep(1),gnclep(2),owf_l1b_258_X1,owf_z_34) & - f_fv(qlep,owf_l1b_234,owf_a_58_X1) & - f_fv(qlep,owf_l1b_258_X1,owf_a_34))*owf_l1_167_X1 oks_l1l1bl2l2bu1_1_d1b__2d1_2_u1b__1 = oks_l1l1bl2l2bu1_1_d1b__2d1_2_u1b__1 & + ( + f_fva(gnclep(1),gnclep(2),owf_l2b_367_X1,owf_z_58_X1) & + f_fva(gnclep(1),gnclep(2),owf_l2b_358_X1,owf_z_67_X1) & + f_fv(qlep,owf_l2b_367_X1,owf_a_58_X1) & + f_fv(qlep,owf_l2b_358_X1,owf_a_67_X1))*owf_l2_124 oks_l1l1bl2l2bu1_1_d1b__2d1_2_u1b__1 = oks_l1l1bl2l2bu1_1_d1b__2d1_2_u1b__1 & + owf_u1b__1_125*( - f_vf((-gs),owf_gl___67_X1,owf_u1_1__348) & - f_vaf(gncup(1),gncup(2),owf_z_67_X1,owf_u1_1__348) & - f_vaf(gncup(1),gncup(2),owf_z_34,owf_u1_1__678_X4) & - f_vf(qup,owf_a_67_X1,owf_u1_1__348) & - f_vf(qup,owf_a_34,owf_u1_1__678_X4)) oks_l1l1bl2l2bu1_1_d1b__2d1_2_u1b__1 = oks_l1l1bl2l2bu1_1_d1b__2d1_2_u1b__1 & + owf_u1b__1_345*( & - f_vaf(gncup(1),gncup(2),owf_z_12,owf_u1_1__678_X4) & - f_vf(qup,owf_a_12,owf_u1_1__678_X4)) oks_l1l1bl2l2bu1_1_d1b__2d1_2_u1b__1 = oks_l1l1bl2l2bu1_1_d1b__2d1_2_u1b__1 & + ( - f_fv((-gs),owf_u1b__1_345,owf_gl___67_X1) & - f_fva(gncup(1),gncup(2),owf_u1b__1_345,owf_z_67_X1) & - f_fv(qup,owf_u1b__1_345,owf_a_67_X1) & + f_fva(gncup(1),gncup(2),owf_u1b__1_567_X1,owf_z_34) & + f_fv(qup,owf_u1b__1_567_X1,owf_a_34))*owf_u1_1__128 oks_l1l1bl2l2bu1_1_d1b__2d1_2_u1b__1 = oks_l1l1bl2l2bu1_1_d1b__2d1_2_u1b__1 & + ( + f_fva(gncup(1),gncup(2),owf_u1b__1_567_X1,owf_z_12) & + f_fv(qup,owf_u1b__1_567_X1,owf_a_12))*owf_u1_1__348 oks_l1l1bl2l2bu1_1_d1b__2d1_2_u1b__1 = oks_l1l1bl2l2bu1_1_d1b__2d1_2_u1b__1 & + owf_d1b__2_127*( - f_vf((-gs),owf_gl___58_X1,owf_d1_2__346) & - f_vaf(gncdwn(1),gncdwn(2),owf_z_58_X1,owf_d1_2__346) & - f_vf(qdwn,owf_a_58_X1,owf_d1_2__346) & + f_vaf(gncdwn(1),gncdwn(2),owf_z_34,owf_d1_2__568_X13) & + f_vf(qdwn,owf_a_34,owf_d1_2__568_X13)) oks_l1l1bl2l2bu1_1_d1b__2d1_2_u1b__1 = oks_l1l1bl2l2bu1_1_d1b__2d1_2_u1b__1 & + owf_d1b__2_347*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_12,owf_d1_2__568_X13) & + f_vf(qdwn,owf_a_12,owf_d1_2__568_X13)) oks_l1l1bl2l2bu1_1_d1b__2d1_2_u1b__1 = oks_l1l1bl2l2bu1_1_d1b__2d1_2_u1b__1 & + ( - f_fv((-gs),owf_d1b__2_347,owf_gl___58_X1) & - f_fva(gncdwn(1),gncdwn(2),owf_d1b__2_347,owf_z_58_X1) & - f_fva(gncdwn(1),gncdwn(2),owf_d1b__2_578_X1,owf_z_34) & - f_fv(qdwn,owf_d1b__2_347,owf_a_58_X1) & - f_fv(qdwn,owf_d1b__2_578_X1,owf_a_34))*owf_d1_2__126 oks_l1l1bl2l2bu1_1_d1b__2d1_2_u1b__1 = oks_l1l1bl2l2bu1_1_d1b__2d1_2_u1b__1 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d1b__2_578_X1,owf_z_12) & - f_fv(qdwn,owf_d1b__2_578_X1,owf_a_12))*owf_d1_2__346 oks_l1l1bl2l2bu1_1_d1b__2d1_2_u1b__1 = oks_l1l1bl2l2bu1_1_d1b__2d1_2_u1b__1 & + owf_a_1267_X3*( - v_ff(qlep,owf_l2b_358_X1,owf_l2_4) & - v_ff(qlep,owf_l2b_3,owf_l2_458_X1) & + v_ff(qup,owf_u1b__1_345,owf_u1_1__8) & + v_ff(qup,owf_u1b__1_5,owf_u1_1__348)) oks_l1l1bl2l2bu1_1_d1b__2d1_2_u1b__1 = oks_l1l1bl2l2bu1_1_d1b__2d1_2_u1b__1 & + owf_a_1258_X2*( - v_ff(qlep,owf_l2b_367_X1,owf_l2_4) & - v_ff(qlep,owf_l2b_3,owf_l2_467_X1) & + v_ff(qdwn,owf_d1b__2_347,owf_d1_2__6) & + v_ff(qdwn,owf_d1b__2_7,owf_d1_2__346)) oks_l1l1bl2l2bu1_1_d1b__2d1_2_u1b__1 = oks_l1l1bl2l2bu1_1_d1b__2d1_2_u1b__1 & + owf_a_1234*( - v_ff(qup,owf_u1b__1_567_X1,owf_u1_1__8) & - v_ff(qdwn,owf_d1b__2_7,owf_d1_2__568_X13) & + v_ff(qdwn,owf_d1b__2_578_X1,owf_d1_2__6) & + v_ff(qup,owf_u1b__1_5,owf_u1_1__678_X4)) oks_l1l1bl2l2bu1_1_d1b__2d1_2_u1b__1 = oks_l1l1bl2l2bu1_1_d1b__2d1_2_u1b__1 & + owf_z_1267_X3*( & - va_ff(gnclep(1),gnclep(2),owf_l2b_358_X1,owf_l2_4) & - va_ff(gnclep(1),gnclep(2),owf_l2b_3,owf_l2_458_X1) & + va_ff(gncup(1),gncup(2),owf_u1b__1_345,owf_u1_1__8) & + va_ff(gncup(1),gncup(2),owf_u1b__1_5,owf_u1_1__348)) oks_l1l1bl2l2bu1_1_d1b__2d1_2_u1b__1 = oks_l1l1bl2l2bu1_1_d1b__2d1_2_u1b__1 & + owf_z_1258_X2*( & - va_ff(gnclep(1),gnclep(2),owf_l2b_367_X1,owf_l2_4) & - va_ff(gnclep(1),gnclep(2),owf_l2b_3,owf_l2_467_X1) & + va_ff(gncdwn(1),gncdwn(2),owf_d1b__2_347,owf_d1_2__6) & + va_ff(gncdwn(1),gncdwn(2),owf_d1b__2_7,owf_d1_2__346)) oks_l1l1bl2l2bu1_1_d1b__2d1_2_u1b__1 = oks_l1l1bl2l2bu1_1_d1b__2d1_2_u1b__1 & + owf_z_1234*( & - va_ff(gncup(1),gncup(2),owf_u1b__1_567_X1,owf_u1_1__8) & - va_ff(gncdwn(1),gncdwn(2),owf_d1b__2_7,owf_d1_2__568_X13) & + va_ff(gncdwn(1),gncdwn(2),owf_d1b__2_578_X1,owf_d1_2__6) & + va_ff(gncup(1),gncup(2),owf_u1b__1_5,owf_u1_1__678_X4)) oks_l1l1bl2l2bu1_1_d1b__2d1_2_u1b__1 = oks_l1l1bl2l2bu1_1_d1b__2d1_2_u1b__1 & + owf_gl___1267_X3*( + v_ff((-gs),owf_u1b__1_345,owf_u1_1__8) & + v_ff((-gs),owf_u1b__1_5,owf_u1_1__348)) oks_l1l1bl2l2bu1_1_d1b__2d1_2_u1b__1 = oks_l1l1bl2l2bu1_1_d1b__2d1_2_u1b__1 & + owf_gl___1258_X2*( + v_ff((-gs),owf_d1b__2_347,owf_d1_2__6) & + v_ff((-gs),owf_d1b__2_7,owf_d1_2__346)) oks_l1l1bl2l2bu1_1_d1b__2d1_2_u1b__1 = oks_l1l1bl2l2bu1_1_d1b__2d1_2_u1b__1 & + owf_h_1234*( - ghzz*(owf_z_58_X1*owf_z_67_X1)) oks_l1l1bl2l2bu1_1_d1b__2d1_2_u1b__1 = oks_l1l1bl2l2bu1_1_d1b__2d1_2_u1b__1 & + owf_h_1258_X2*( - ghzz*(owf_z_34*owf_z_67_X1)) oks_l1l1bl2l2bu1_1_d1b__2d1_2_u1b__1 = oks_l1l1bl2l2bu1_1_d1b__2d1_2_u1b__1 & + owf_h_1267_X2*( - ghzz*(owf_z_34*owf_z_58_X1)) oks_l1l1bl2l2bu1_1_d1b__2d1_2_u1b__1 = & - oks_l1l1bl2l2bu1_1_d1b__2d1_2_u1b__1 ! 6 vertices, 5 propagators ! unit symmetry factor end subroutine compute_brakets_0016 subroutine compute_brakets_0017 () oks_l1l1bl2l2bu1_1_d1b__1d1_2_u1b__2 = 0 oks_l1l1bl2l2bu1_1_d1b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d1_2_u1b__2 & + owf_l2b_123*( - f_vlf(gcc,owf_wm_56_X1,owf_n2_478_X1)) oks_l1l1bl2l2bu1_1_d1b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d1_2_u1b__2 & + ( + f_fvl(gcc,owf_n1b_256_X1,owf_wp_78_X1))*owf_l1_134 oks_l1l1bl2l2bu1_1_d1b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d1_2_u1b__2 & + ( - f_fvl(gcc,owf_n2b_356_X1,owf_wp_78_X1))*owf_l2_124 oks_l1l1bl2l2bu1_1_d1b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d1_2_u1b__2 & + owf_n2b_356_X1*( & + f_vaf(gncneu(1),gncneu(2),owf_z_12,owf_n2_478_X1)) oks_l1l1bl2l2bu1_1_d1b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d1_2_u1b__2 & + ( + f_fva(gncneu(1),gncneu(2),owf_n1b_256_X1,owf_z_34) & + f_fvl(gcc,owf_l1b_234,owf_wm_56_X1))*owf_n1_178_X1 oks_l1l1bl2l2bu1_1_d1b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d1_2_u1b__2 & + owf_u1b__1_125*( - f_vf((-gs),owf_gl_1_2_67_X1,owf_u1_2__348) & - f_vaf(gncup(1),gncup(2),owf_z_34,owf_u1_1__678_X1) & - f_vf(qup,owf_a_34,owf_u1_1__678_X1) & + f_vlf(gccq11,owf_wp_78_X1,owf_d1_1__346)) oks_l1l1bl2l2bu1_1_d1b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d1_2_u1b__2 & + owf_u1b__1_345*( & - f_vaf(gncup(1),gncup(2),owf_z_12,owf_u1_1__678_X1) & - f_vf(qup,owf_a_12,owf_u1_1__678_X1)) oks_l1l1bl2l2bu1_1_d1b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d1_2_u1b__2 & + ( - f_fv((-gs),owf_u1b__1_345,owf_gl_1_2_67_X1) & + f_fva(gncup(1),gncup(2),owf_u1b__2_567_X1,owf_z_34) & + f_fv(qup,owf_u1b__2_567_X1,owf_a_34) & + f_fvl(gccq11,owf_d1b__2_347,owf_wm_56_X1))*owf_u1_2__128 oks_l1l1bl2l2bu1_1_d1b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d1_2_u1b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u1b__2_567_X1,owf_z_12) & + f_fv(qup,owf_u1b__2_567_X1,owf_a_12))*owf_u1_2__348 oks_l1l1bl2l2bu1_1_d1b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d1_2_u1b__2 & + owf_d1b__2_127*( - f_vf((-gs),owf_gl_2_1_58_X1,owf_d1_1__346) & + f_vaf(gncdwn(1),gncdwn(2),owf_z_34,owf_d1_2__568_X1) & + f_vf(qdwn,owf_a_34,owf_d1_2__568_X1) & + f_vlf(gccq11,owf_wm_56_X1,owf_u1_2__348)) oks_l1l1bl2l2bu1_1_d1b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d1_2_u1b__2 & + owf_d1b__2_347*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_12,owf_d1_2__568_X1) & + f_vf(qdwn,owf_a_12,owf_d1_2__568_X1)) oks_l1l1bl2l2bu1_1_d1b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d1_2_u1b__2 & + ( - f_fv((-gs),owf_d1b__2_347,owf_gl_2_1_58_X1) & - f_fva(gncdwn(1),gncdwn(2),owf_d1b__1_578_X1,owf_z_34) & - f_fv(qdwn,owf_d1b__1_578_X1,owf_a_34) & + f_fvl(gccq11,owf_u1b__1_345,owf_wp_78_X1))*owf_d1_1__126 oks_l1l1bl2l2bu1_1_d1b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d1_2_u1b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d1b__1_578_X1,owf_z_12) & - f_fv(qdwn,owf_d1b__1_578_X1,owf_a_12))*owf_d1_1__346 oks_l1l1bl2l2bu1_1_d1b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d1_2_u1b__2 & + owf_a_12*( - ((((-2)*gazww)*(owf_wm_56_X1*owf_wp_78_X1))*owf_z_34 & + ((gazww)*(owf_z_34*owf_wm_56_X1))*owf_wp_78_X1 & + ((gazww)*(owf_z_34*owf_wp_78_X1))*owf_wm_56_X1) & - ((((-2)*gaaww)*(owf_wm_56_X1*owf_wp_78_X1))*owf_a_34 & + ((gaaww)*(owf_a_34*owf_wm_56_X1))*owf_wp_78_X1 & + ((gaaww)*(owf_a_34*owf_wp_78_X1))*owf_wm_56_X1)) oks_l1l1bl2l2bu1_1_d1b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d1_2_u1b__2 & + owf_a_1234*( - v_ff(qup,owf_u1b__2_567_X1,owf_u1_2__8) & - v_ff(qdwn,owf_d1b__2_7,owf_d1_2__568_X1) & + v_ff(qdwn,owf_d1b__1_578_X1,owf_d1_1__6) & + v_ff(qup,owf_u1b__1_5,owf_u1_1__678_X1)) oks_l1l1bl2l2bu1_1_d1b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d1_2_u1b__2 & + owf_a_1234*( + g_gg(iqw,owf_wm_56_X1,p56,owf_wp_78_X1,p78)) oks_l1l1bl2l2bu1_1_d1b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d1_2_u1b__2 & + owf_wp_1278_X1*( - vl_ff(gccq11,owf_u1b__1_345,owf_d1_1__6) & - vl_ff(gccq11,owf_u1b__1_5,owf_d1_1__346) & + vl_ff(gcc,owf_n2b_356_X1,owf_l2_4)) oks_l1l1bl2l2bu1_1_d1b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d1_2_u1b__2 & + owf_wp_1278_X1*( + g_gg(iqw,owf_a_34,p34,owf_wm_56_X1,p56) & + g_gg(igzww,owf_z_34,p34,owf_wm_56_X1,p56)) oks_l1l1bl2l2bu1_1_d1b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d1_2_u1b__2 & + owf_wm_1256_X1*( - vl_ff(gccq11,owf_d1b__2_347,owf_u1_2__8) & - vl_ff(gccq11,owf_d1b__2_7,owf_u1_2__348) & + vl_ff(gcc,owf_l2b_3,owf_n2_478_X1)) oks_l1l1bl2l2bu1_1_d1b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d1_2_u1b__2 & + owf_wm_1256_X1*( + g_gg(iqw,owf_wp_78_X1,p78,owf_a_34,p34) & + g_gg(igzww,owf_wp_78_X1,p78,owf_z_34,p34)) oks_l1l1bl2l2bu1_1_d1b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d1_2_u1b__2 & + owf_z_12*( - ((((-2)*gzzww)*(owf_wm_56_X1*owf_wp_78_X1))*owf_z_34 & + ((gzzww)*(owf_z_34*owf_wm_56_X1))*owf_wp_78_X1 & + ((gzzww)*(owf_z_34*owf_wp_78_X1))*owf_wm_56_X1) & - ((((-2)*gazww)*(owf_wm_56_X1*owf_wp_78_X1))*owf_a_34 & + ((gazww)*(owf_a_34*owf_wp_78_X1))*owf_wm_56_X1 & + ((gazww)*(owf_a_34*owf_wm_56_X1))*owf_wp_78_X1)) oks_l1l1bl2l2bu1_1_d1b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d1_2_u1b__2 & + owf_z_1234*( & - va_ff(gncup(1),gncup(2),owf_u1b__2_567_X1,owf_u1_2__8) & - va_ff(gncdwn(1),gncdwn(2),owf_d1b__2_7,owf_d1_2__568_X1) & + va_ff(gncdwn(1),gncdwn(2),owf_d1b__1_578_X1,owf_d1_1__6) & + va_ff(gncup(1),gncup(2),owf_u1b__1_5,owf_u1_1__678_X1)) oks_l1l1bl2l2bu1_1_d1b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d1_2_u1b__2 & + owf_z_1234*( + g_gg(igzww,owf_wm_56_X1,p56,owf_wp_78_X1,p78)) oks_l1l1bl2l2bu1_1_d1b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d1_2_u1b__2 & + owf_gl_1_2_1267_X3*( + v_ff((-gs),owf_u1b__1_345,owf_u1_2__8) & + v_ff((-gs),owf_u1b__1_5,owf_u1_2__348)) oks_l1l1bl2l2bu1_1_d1b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d1_2_u1b__2 & + owf_gl_2_1_1258_X2*( + v_ff((-gs),owf_d1b__2_347,owf_d1_1__6) & + v_ff((-gs),owf_d1b__2_7,owf_d1_1__346)) oks_l1l1bl2l2bu1_1_d1b__1d1_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d1_2_u1b__2 & + owf_h_1234*( + ghww*(owf_wm_56_X1*owf_wp_78_X1)) oks_l1l1bl2l2bu1_1_d1b__1d1_2_u1b__2 = & - oks_l1l1bl2l2bu1_1_d1b__1d1_2_u1b__2 ! 6 vertices, 5 propagators ! unit symmetry factor end subroutine compute_brakets_0017 subroutine compute_brakets_0018 () oks_l1l1bl2l2bu1_1_d1b__1d2_2_u2b__2 = 0 oks_l1l1bl2l2bu1_1_d1b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d2_2_u2b__2 & + owf_l2b_123*( - f_vlf(gcc,owf_wm_56_X1,owf_n2_478_X5)) oks_l1l1bl2l2bu1_1_d1b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d2_2_u2b__2 & + ( + f_fvl(gcc,owf_n1b_256_X1,owf_wp_78_X5))*owf_l1_134 oks_l1l1bl2l2bu1_1_d1b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d2_2_u2b__2 & + ( - f_fvl(gcc,owf_n2b_356_X1,owf_wp_78_X5))*owf_l2_124 oks_l1l1bl2l2bu1_1_d1b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d2_2_u2b__2 & + owf_n2b_356_X1*( & + f_vaf(gncneu(1),gncneu(2),owf_z_12,owf_n2_478_X5)) oks_l1l1bl2l2bu1_1_d1b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d2_2_u2b__2 & + ( + f_fva(gncneu(1),gncneu(2),owf_n1b_256_X1,owf_z_34) & + f_fvl(gcc,owf_l1b_234,owf_wm_56_X1))*owf_n1_178_X5 oks_l1l1bl2l2bu1_1_d1b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d2_2_u2b__2 & + owf_u1b__1_125*( & - f_vaf(gncup(1),gncup(2),owf_z_34,owf_u1_1__678_X10) & - f_vf(qup,owf_a_34,owf_u1_1__678_X10) & + f_vlf(gccq11,owf_wp_78_X5,owf_d1_1__346)) oks_l1l1bl2l2bu1_1_d1b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d2_2_u2b__2 & + owf_u1b__1_345*( & - f_vaf(gncup(1),gncup(2),owf_z_12,owf_u1_1__678_X10) & - f_vf(qup,owf_a_12,owf_u1_1__678_X10)) oks_l1l1bl2l2bu1_1_d1b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d2_2_u2b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u2b__2_567_X7,owf_z_34) & + f_fv(qup,owf_u2b__2_567_X7,owf_a_34) & + f_fvl(gccq22,owf_d2b__2_347,owf_wm_56_X1))*owf_u2_2__128 oks_l1l1bl2l2bu1_1_d1b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d2_2_u2b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u2b__2_567_X7,owf_z_12) & + f_fv(qup,owf_u2b__2_567_X7,owf_a_12))*owf_u2_2__348 oks_l1l1bl2l2bu1_1_d1b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d2_2_u2b__2 & + owf_d2b__2_127*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_34,owf_d2_2__568_X7) & + f_vf(qdwn,owf_a_34,owf_d2_2__568_X7) & + f_vlf(gccq22,owf_wm_56_X1,owf_u2_2__348)) oks_l1l1bl2l2bu1_1_d1b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d2_2_u2b__2 & + owf_d2b__2_347*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_12,owf_d2_2__568_X7) & + f_vf(qdwn,owf_a_12,owf_d2_2__568_X7)) oks_l1l1bl2l2bu1_1_d1b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d2_2_u2b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d1b__1_578_X6,owf_z_34) & - f_fv(qdwn,owf_d1b__1_578_X6,owf_a_34) & + f_fvl(gccq11,owf_u1b__1_345,owf_wp_78_X5))*owf_d1_1__126 oks_l1l1bl2l2bu1_1_d1b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d2_2_u2b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d1b__1_578_X6,owf_z_12) & - f_fv(qdwn,owf_d1b__1_578_X6,owf_a_12))*owf_d1_1__346 oks_l1l1bl2l2bu1_1_d1b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d2_2_u2b__2 & + owf_a_12*( - ((((-2)*gazww)*(owf_wm_56_X1*owf_wp_78_X5))*owf_z_34 & + ((gazww)*(owf_z_34*owf_wm_56_X1))*owf_wp_78_X5 & + ((gazww)*(owf_z_34*owf_wp_78_X5))*owf_wm_56_X1) & - ((((-2)*gaaww)*(owf_wm_56_X1*owf_wp_78_X5))*owf_a_34 & + ((gaaww)*(owf_a_34*owf_wm_56_X1))*owf_wp_78_X5 & + ((gaaww)*(owf_a_34*owf_wp_78_X5))*owf_wm_56_X1)) oks_l1l1bl2l2bu1_1_d1b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d2_2_u2b__2 & + owf_a_1234*( - v_ff(qup,owf_u2b__2_567_X7,owf_u2_2__8) & - v_ff(qdwn,owf_d2b__2_7,owf_d2_2__568_X7) & + v_ff(qdwn,owf_d1b__1_578_X6,owf_d1_1__6) & + v_ff(qup,owf_u1b__1_5,owf_u1_1__678_X10)) oks_l1l1bl2l2bu1_1_d1b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d2_2_u2b__2 & + owf_a_1234*( + g_gg(iqw,owf_wm_56_X1,p56,owf_wp_78_X5,p78)) oks_l1l1bl2l2bu1_1_d1b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d2_2_u2b__2 & + owf_wp_1278_X5*( - vl_ff(gccq11,owf_u1b__1_345,owf_d1_1__6) & - vl_ff(gccq11,owf_u1b__1_5,owf_d1_1__346) & + vl_ff(gcc,owf_n2b_356_X1,owf_l2_4)) oks_l1l1bl2l2bu1_1_d1b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d2_2_u2b__2 & + owf_wp_1278_X5*( + g_gg(iqw,owf_a_34,p34,owf_wm_56_X1,p56) & + g_gg(igzww,owf_z_34,p34,owf_wm_56_X1,p56)) oks_l1l1bl2l2bu1_1_d1b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d2_2_u2b__2 & + owf_wm_1256_X1*( - vl_ff(gccq22,owf_d2b__2_347,owf_u2_2__8) & - vl_ff(gccq22,owf_d2b__2_7,owf_u2_2__348) & + vl_ff(gcc,owf_l2b_3,owf_n2_478_X5)) oks_l1l1bl2l2bu1_1_d1b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d2_2_u2b__2 & + owf_wm_1256_X1*( + g_gg(iqw,owf_wp_78_X5,p78,owf_a_34,p34) & + g_gg(igzww,owf_wp_78_X5,p78,owf_z_34,p34)) oks_l1l1bl2l2bu1_1_d1b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d2_2_u2b__2 & + owf_z_12*( - ((((-2)*gzzww)*(owf_wm_56_X1*owf_wp_78_X5))*owf_z_34 & + ((gzzww)*(owf_z_34*owf_wm_56_X1))*owf_wp_78_X5 & + ((gzzww)*(owf_z_34*owf_wp_78_X5))*owf_wm_56_X1) & - ((((-2)*gazww)*(owf_wm_56_X1*owf_wp_78_X5))*owf_a_34 & + ((gazww)*(owf_a_34*owf_wp_78_X5))*owf_wm_56_X1 & + ((gazww)*(owf_a_34*owf_wm_56_X1))*owf_wp_78_X5)) oks_l1l1bl2l2bu1_1_d1b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d2_2_u2b__2 & + owf_z_1234*( & - va_ff(gncup(1),gncup(2),owf_u2b__2_567_X7,owf_u2_2__8) & - va_ff(gncdwn(1),gncdwn(2),owf_d2b__2_7,owf_d2_2__568_X7) & + va_ff(gncdwn(1),gncdwn(2),owf_d1b__1_578_X6,owf_d1_1__6) & + va_ff(gncup(1),gncup(2),owf_u1b__1_5,owf_u1_1__678_X10)) oks_l1l1bl2l2bu1_1_d1b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d2_2_u2b__2 & + owf_z_1234*( + g_gg(igzww,owf_wm_56_X1,p56,owf_wp_78_X5,p78)) oks_l1l1bl2l2bu1_1_d1b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d2_2_u2b__2 & + owf_h_1234*( - s_ff(ghcc,owf_u2b__2_567_X7,owf_u2_2__8)) oks_l1l1bl2l2bu1_1_d1b__1d2_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d2_2_u2b__2 & + owf_h_1234*( + ghww*(owf_wm_56_X1*owf_wp_78_X5)) oks_l1l1bl2l2bu1_1_d1b__1d2_2_u2b__2 = & - oks_l1l1bl2l2bu1_1_d1b__1d2_2_u2b__2 ! 6 vertices, 5 propagators ! unit symmetry factor end subroutine compute_brakets_0018 subroutine compute_brakets_0019 () oks_l1l1bl2l2bu1_1_d1b__1d2_2_u1b__2 = 0 oks_l1l1bl2l2bu1_1_d1b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d2_2_u1b__2 & + owf_l2b_123*( - f_vlf(gcc,owf_wm_56_X1,owf_n2_478_X2)) oks_l1l1bl2l2bu1_1_d1b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d2_2_u1b__2 & + ( + f_fvl(gcc,owf_n1b_256_X1,owf_wp_78_X2))*owf_l1_134 oks_l1l1bl2l2bu1_1_d1b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d2_2_u1b__2 & + ( - f_fvl(gcc,owf_n2b_356_X1,owf_wp_78_X2))*owf_l2_124 oks_l1l1bl2l2bu1_1_d1b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d2_2_u1b__2 & + owf_n2b_356_X1*( & + f_vaf(gncneu(1),gncneu(2),owf_z_12,owf_n2_478_X2)) oks_l1l1bl2l2bu1_1_d1b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d2_2_u1b__2 & + ( + f_fva(gncneu(1),gncneu(2),owf_n1b_256_X1,owf_z_34) & + f_fvl(gcc,owf_l1b_234,owf_wm_56_X1))*owf_n1_178_X2 oks_l1l1bl2l2bu1_1_d1b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d2_2_u1b__2 & + owf_u1b__1_125*( & - f_vaf(gncup(1),gncup(2),owf_z_34,owf_u1_1__678_X7) & - f_vf(qup,owf_a_34,owf_u1_1__678_X7) & + f_vlf(gccq11,owf_wp_78_X2,owf_d1_1__346)) oks_l1l1bl2l2bu1_1_d1b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d2_2_u1b__2 & + owf_u1b__1_345*( & - f_vaf(gncup(1),gncup(2),owf_z_12,owf_u1_1__678_X7) & - f_vf(qup,owf_a_12,owf_u1_1__678_X7)) oks_l1l1bl2l2bu1_1_d1b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d2_2_u1b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u1b__2_567_X7,owf_z_34) & + f_fv(qup,owf_u1b__2_567_X7,owf_a_34) & + f_fvl(gccq12,owf_d2b__2_347,owf_wm_56_X1))*owf_u1_2__128 oks_l1l1bl2l2bu1_1_d1b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d2_2_u1b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u1b__2_567_X7,owf_z_12) & + f_fv(qup,owf_u1b__2_567_X7,owf_a_12))*owf_u1_2__348 oks_l1l1bl2l2bu1_1_d1b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d2_2_u1b__2 & + owf_d2b__2_127*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_34,owf_d2_2__568_X1) & + f_vf(qdwn,owf_a_34,owf_d2_2__568_X1) & + f_vlf(gccq12,owf_wm_56_X1,owf_u1_2__348)) oks_l1l1bl2l2bu1_1_d1b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d2_2_u1b__2 & + owf_d2b__2_347*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_12,owf_d2_2__568_X1) & + f_vf(qdwn,owf_a_12,owf_d2_2__568_X1)) oks_l1l1bl2l2bu1_1_d1b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d2_2_u1b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d1b__1_578_X3,owf_z_34) & - f_fv(qdwn,owf_d1b__1_578_X3,owf_a_34) & + f_fvl(gccq11,owf_u1b__1_345,owf_wp_78_X2))*owf_d1_1__126 oks_l1l1bl2l2bu1_1_d1b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d2_2_u1b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d1b__1_578_X3,owf_z_12) & - f_fv(qdwn,owf_d1b__1_578_X3,owf_a_12))*owf_d1_1__346 oks_l1l1bl2l2bu1_1_d1b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d2_2_u1b__2 & + owf_a_12*( - ((((-2)*gazww)*(owf_wm_56_X1*owf_wp_78_X2))*owf_z_34 & + ((gazww)*(owf_z_34*owf_wm_56_X1))*owf_wp_78_X2 & + ((gazww)*(owf_z_34*owf_wp_78_X2))*owf_wm_56_X1) & - ((((-2)*gaaww)*(owf_wm_56_X1*owf_wp_78_X2))*owf_a_34 & + ((gaaww)*(owf_a_34*owf_wm_56_X1))*owf_wp_78_X2 & + ((gaaww)*(owf_a_34*owf_wp_78_X2))*owf_wm_56_X1)) oks_l1l1bl2l2bu1_1_d1b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d2_2_u1b__2 & + owf_a_1234*( - v_ff(qup,owf_u1b__2_567_X7,owf_u1_2__8) & - v_ff(qdwn,owf_d2b__2_7,owf_d2_2__568_X1) & + v_ff(qdwn,owf_d1b__1_578_X3,owf_d1_1__6) & + v_ff(qup,owf_u1b__1_5,owf_u1_1__678_X7)) oks_l1l1bl2l2bu1_1_d1b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d2_2_u1b__2 & + owf_a_1234*( + g_gg(iqw,owf_wm_56_X1,p56,owf_wp_78_X2,p78)) oks_l1l1bl2l2bu1_1_d1b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d2_2_u1b__2 & + owf_wp_1278_X2*( - vl_ff(gccq11,owf_u1b__1_345,owf_d1_1__6) & - vl_ff(gccq11,owf_u1b__1_5,owf_d1_1__346) & + vl_ff(gcc,owf_n2b_356_X1,owf_l2_4)) oks_l1l1bl2l2bu1_1_d1b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d2_2_u1b__2 & + owf_wp_1278_X2*( + g_gg(iqw,owf_a_34,p34,owf_wm_56_X1,p56) & + g_gg(igzww,owf_z_34,p34,owf_wm_56_X1,p56)) oks_l1l1bl2l2bu1_1_d1b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d2_2_u1b__2 & + owf_wm_1256_X1*( - vl_ff(gccq12,owf_d2b__2_347,owf_u1_2__8) & - vl_ff(gccq12,owf_d2b__2_7,owf_u1_2__348) & + vl_ff(gcc,owf_l2b_3,owf_n2_478_X2)) oks_l1l1bl2l2bu1_1_d1b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d2_2_u1b__2 & + owf_wm_1256_X1*( + g_gg(iqw,owf_wp_78_X2,p78,owf_a_34,p34) & + g_gg(igzww,owf_wp_78_X2,p78,owf_z_34,p34)) oks_l1l1bl2l2bu1_1_d1b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d2_2_u1b__2 & + owf_z_12*( - ((((-2)*gzzww)*(owf_wm_56_X1*owf_wp_78_X2))*owf_z_34 & + ((gzzww)*(owf_z_34*owf_wm_56_X1))*owf_wp_78_X2 & + ((gzzww)*(owf_z_34*owf_wp_78_X2))*owf_wm_56_X1) & - ((((-2)*gazww)*(owf_wm_56_X1*owf_wp_78_X2))*owf_a_34 & + ((gazww)*(owf_a_34*owf_wp_78_X2))*owf_wm_56_X1 & + ((gazww)*(owf_a_34*owf_wm_56_X1))*owf_wp_78_X2)) oks_l1l1bl2l2bu1_1_d1b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d2_2_u1b__2 & + owf_z_1234*( & - va_ff(gncup(1),gncup(2),owf_u1b__2_567_X7,owf_u1_2__8) & - va_ff(gncdwn(1),gncdwn(2),owf_d2b__2_7,owf_d2_2__568_X1) & + va_ff(gncdwn(1),gncdwn(2),owf_d1b__1_578_X3,owf_d1_1__6) & + va_ff(gncup(1),gncup(2),owf_u1b__1_5,owf_u1_1__678_X7)) oks_l1l1bl2l2bu1_1_d1b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d2_2_u1b__2 & + owf_z_1234*( + g_gg(igzww,owf_wm_56_X1,p56,owf_wp_78_X2,p78)) oks_l1l1bl2l2bu1_1_d1b__1d2_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d2_2_u1b__2 & + owf_h_1234*( + ghww*(owf_wm_56_X1*owf_wp_78_X2)) oks_l1l1bl2l2bu1_1_d1b__1d2_2_u1b__2 = & - oks_l1l1bl2l2bu1_1_d1b__1d2_2_u1b__2 ! 6 vertices, 5 propagators ! unit symmetry factor end subroutine compute_brakets_0019 subroutine compute_brakets_0020 () oks_l1l1bl2l2bu1_1_d1b__1d3_2_u2b__2 = 0 oks_l1l1bl2l2bu1_1_d1b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d3_2_u2b__2 & + owf_l2b_123*( - f_vlf(gcc,owf_wm_56_X1,owf_n2_478_X6)) oks_l1l1bl2l2bu1_1_d1b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d3_2_u2b__2 & + ( + f_fvl(gcc,owf_n1b_256_X1,owf_wp_78_X6))*owf_l1_134 oks_l1l1bl2l2bu1_1_d1b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d3_2_u2b__2 & + ( - f_fvl(gcc,owf_n2b_356_X1,owf_wp_78_X6))*owf_l2_124 oks_l1l1bl2l2bu1_1_d1b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d3_2_u2b__2 & + owf_n2b_356_X1*( & + f_vaf(gncneu(1),gncneu(2),owf_z_12,owf_n2_478_X6)) oks_l1l1bl2l2bu1_1_d1b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d3_2_u2b__2 & + ( + f_fva(gncneu(1),gncneu(2),owf_n1b_256_X1,owf_z_34) & + f_fvl(gcc,owf_l1b_234,owf_wm_56_X1))*owf_n1_178_X6 oks_l1l1bl2l2bu1_1_d1b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d3_2_u2b__2 & + owf_u1b__1_125*( & - f_vaf(gncup(1),gncup(2),owf_z_34,owf_u1_1__678_X11) & - f_vf(qup,owf_a_34,owf_u1_1__678_X11) & + f_vlf(gccq11,owf_wp_78_X6,owf_d1_1__346)) oks_l1l1bl2l2bu1_1_d1b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d3_2_u2b__2 & + owf_u1b__1_345*( & - f_vaf(gncup(1),gncup(2),owf_z_12,owf_u1_1__678_X11) & - f_vf(qup,owf_a_12,owf_u1_1__678_X11)) oks_l1l1bl2l2bu1_1_d1b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d3_2_u2b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u2b__2_567_X13,owf_z_34) & + f_fv(qup,owf_u2b__2_567_X13,owf_a_34) & + f_fvl(gccq23,owf_d3b__2_347,owf_wm_56_X1))*owf_u2_2__128 oks_l1l1bl2l2bu1_1_d1b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d3_2_u2b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u2b__2_567_X13,owf_z_12) & + f_fv(qup,owf_u2b__2_567_X13,owf_a_12))*owf_u2_2__348 oks_l1l1bl2l2bu1_1_d1b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d3_2_u2b__2 & + owf_d3b__2_127*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_34,owf_d3_2__568_X7) & + f_vf(qdwn,owf_a_34,owf_d3_2__568_X7) & + f_vlf(gccq23,owf_wm_56_X1,owf_u2_2__348)) oks_l1l1bl2l2bu1_1_d1b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d3_2_u2b__2 & + owf_d3b__2_347*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_12,owf_d3_2__568_X7) & + f_vf(qdwn,owf_a_12,owf_d3_2__568_X7)) oks_l1l1bl2l2bu1_1_d1b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d3_2_u2b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d1b__1_578_X7,owf_z_34) & - f_fv(qdwn,owf_d1b__1_578_X7,owf_a_34) & + f_fvl(gccq11,owf_u1b__1_345,owf_wp_78_X6))*owf_d1_1__126 oks_l1l1bl2l2bu1_1_d1b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d3_2_u2b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d1b__1_578_X7,owf_z_12) & - f_fv(qdwn,owf_d1b__1_578_X7,owf_a_12))*owf_d1_1__346 oks_l1l1bl2l2bu1_1_d1b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d3_2_u2b__2 & + owf_a_12*( - ((((-2)*gazww)*(owf_wm_56_X1*owf_wp_78_X6))*owf_z_34 & + ((gazww)*(owf_z_34*owf_wm_56_X1))*owf_wp_78_X6 & + ((gazww)*(owf_z_34*owf_wp_78_X6))*owf_wm_56_X1) & - ((((-2)*gaaww)*(owf_wm_56_X1*owf_wp_78_X6))*owf_a_34 & + ((gaaww)*(owf_a_34*owf_wm_56_X1))*owf_wp_78_X6 & + ((gaaww)*(owf_a_34*owf_wp_78_X6))*owf_wm_56_X1)) oks_l1l1bl2l2bu1_1_d1b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d3_2_u2b__2 & + owf_a_1234*( - v_ff(qup,owf_u2b__2_567_X13,owf_u2_2__8) & - v_ff(qdwn,owf_d3b__2_7,owf_d3_2__568_X7) & + v_ff(qdwn,owf_d1b__1_578_X7,owf_d1_1__6) & + v_ff(qup,owf_u1b__1_5,owf_u1_1__678_X11)) oks_l1l1bl2l2bu1_1_d1b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d3_2_u2b__2 & + owf_a_1234*( + g_gg(iqw,owf_wm_56_X1,p56,owf_wp_78_X6,p78)) oks_l1l1bl2l2bu1_1_d1b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d3_2_u2b__2 & + owf_wp_1278_X6*( - vl_ff(gccq11,owf_u1b__1_345,owf_d1_1__6) & - vl_ff(gccq11,owf_u1b__1_5,owf_d1_1__346) & + vl_ff(gcc,owf_n2b_356_X1,owf_l2_4)) oks_l1l1bl2l2bu1_1_d1b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d3_2_u2b__2 & + owf_wp_1278_X6*( + g_gg(iqw,owf_a_34,p34,owf_wm_56_X1,p56) & + g_gg(igzww,owf_z_34,p34,owf_wm_56_X1,p56)) oks_l1l1bl2l2bu1_1_d1b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d3_2_u2b__2 & + owf_wm_1256_X1*( - vl_ff(gccq23,owf_d3b__2_347,owf_u2_2__8) & - vl_ff(gccq23,owf_d3b__2_7,owf_u2_2__348) & + vl_ff(gcc,owf_l2b_3,owf_n2_478_X6)) oks_l1l1bl2l2bu1_1_d1b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d3_2_u2b__2 & + owf_wm_1256_X1*( + g_gg(iqw,owf_wp_78_X6,p78,owf_a_34,p34) & + g_gg(igzww,owf_wp_78_X6,p78,owf_z_34,p34)) oks_l1l1bl2l2bu1_1_d1b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d3_2_u2b__2 & + owf_z_12*( - ((((-2)*gzzww)*(owf_wm_56_X1*owf_wp_78_X6))*owf_z_34 & + ((gzzww)*(owf_z_34*owf_wm_56_X1))*owf_wp_78_X6 & + ((gzzww)*(owf_z_34*owf_wp_78_X6))*owf_wm_56_X1) & - ((((-2)*gazww)*(owf_wm_56_X1*owf_wp_78_X6))*owf_a_34 & + ((gazww)*(owf_a_34*owf_wp_78_X6))*owf_wm_56_X1 & + ((gazww)*(owf_a_34*owf_wm_56_X1))*owf_wp_78_X6)) oks_l1l1bl2l2bu1_1_d1b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d3_2_u2b__2 & + owf_z_1234*( & - va_ff(gncup(1),gncup(2),owf_u2b__2_567_X13,owf_u2_2__8) & - va_ff(gncdwn(1),gncdwn(2),owf_d3b__2_7,owf_d3_2__568_X7) & + va_ff(gncdwn(1),gncdwn(2),owf_d1b__1_578_X7,owf_d1_1__6) & + va_ff(gncup(1),gncup(2),owf_u1b__1_5,owf_u1_1__678_X11)) oks_l1l1bl2l2bu1_1_d1b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d3_2_u2b__2 & + owf_z_1234*( + g_gg(igzww,owf_wm_56_X1,p56,owf_wp_78_X6,p78)) oks_l1l1bl2l2bu1_1_d1b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d3_2_u2b__2 & + owf_h_1234*( - s_ff(ghcc,owf_u2b__2_567_X13,owf_u2_2__8) & - s_ff(ghbb,owf_d3b__2_7,owf_d3_2__568_X7)) oks_l1l1bl2l2bu1_1_d1b__1d3_2_u2b__2 = oks_l1l1bl2l2bu1_1_d1b__1d3_2_u2b__2 & + owf_h_1234*( + ghww*(owf_wm_56_X1*owf_wp_78_X6)) oks_l1l1bl2l2bu1_1_d1b__1d3_2_u2b__2 = & - oks_l1l1bl2l2bu1_1_d1b__1d3_2_u2b__2 ! 6 vertices, 5 propagators ! unit symmetry factor end subroutine compute_brakets_0020 subroutine compute_brakets_0021 () oks_l1l1bl2l2bu1_1_d1b__1d3_2_u1b__2 = 0 oks_l1l1bl2l2bu1_1_d1b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d3_2_u1b__2 & + owf_l2b_123*( - f_vlf(gcc,owf_wm_56_X1,owf_n2_478_X3)) oks_l1l1bl2l2bu1_1_d1b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d3_2_u1b__2 & + ( + f_fvl(gcc,owf_n1b_256_X1,owf_wp_78_X3))*owf_l1_134 oks_l1l1bl2l2bu1_1_d1b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d3_2_u1b__2 & + ( - f_fvl(gcc,owf_n2b_356_X1,owf_wp_78_X3))*owf_l2_124 oks_l1l1bl2l2bu1_1_d1b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d3_2_u1b__2 & + owf_n2b_356_X1*( & + f_vaf(gncneu(1),gncneu(2),owf_z_12,owf_n2_478_X3)) oks_l1l1bl2l2bu1_1_d1b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d3_2_u1b__2 & + ( + f_fva(gncneu(1),gncneu(2),owf_n1b_256_X1,owf_z_34) & + f_fvl(gcc,owf_l1b_234,owf_wm_56_X1))*owf_n1_178_X3 oks_l1l1bl2l2bu1_1_d1b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d3_2_u1b__2 & + owf_u1b__1_125*( & - f_vaf(gncup(1),gncup(2),owf_z_34,owf_u1_1__678_X8) & - f_vf(qup,owf_a_34,owf_u1_1__678_X8) & + f_vlf(gccq11,owf_wp_78_X3,owf_d1_1__346)) oks_l1l1bl2l2bu1_1_d1b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d3_2_u1b__2 & + owf_u1b__1_345*( & - f_vaf(gncup(1),gncup(2),owf_z_12,owf_u1_1__678_X8) & - f_vf(qup,owf_a_12,owf_u1_1__678_X8)) oks_l1l1bl2l2bu1_1_d1b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d3_2_u1b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u1b__2_567_X13,owf_z_34) & + f_fv(qup,owf_u1b__2_567_X13,owf_a_34) & + f_fvl(gccq13,owf_d3b__2_347,owf_wm_56_X1))*owf_u1_2__128 oks_l1l1bl2l2bu1_1_d1b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d3_2_u1b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u1b__2_567_X13,owf_z_12) & + f_fv(qup,owf_u1b__2_567_X13,owf_a_12))*owf_u1_2__348 oks_l1l1bl2l2bu1_1_d1b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d3_2_u1b__2 & + owf_d3b__2_127*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_34,owf_d3_2__568_X1) & + f_vf(qdwn,owf_a_34,owf_d3_2__568_X1) & + f_vlf(gccq13,owf_wm_56_X1,owf_u1_2__348)) oks_l1l1bl2l2bu1_1_d1b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d3_2_u1b__2 & + owf_d3b__2_347*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_12,owf_d3_2__568_X1) & + f_vf(qdwn,owf_a_12,owf_d3_2__568_X1)) oks_l1l1bl2l2bu1_1_d1b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d3_2_u1b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d1b__1_578_X4,owf_z_34) & - f_fv(qdwn,owf_d1b__1_578_X4,owf_a_34) & + f_fvl(gccq11,owf_u1b__1_345,owf_wp_78_X3))*owf_d1_1__126 oks_l1l1bl2l2bu1_1_d1b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d3_2_u1b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d1b__1_578_X4,owf_z_12) & - f_fv(qdwn,owf_d1b__1_578_X4,owf_a_12))*owf_d1_1__346 oks_l1l1bl2l2bu1_1_d1b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d3_2_u1b__2 & + owf_a_12*( - ((((-2)*gazww)*(owf_wm_56_X1*owf_wp_78_X3))*owf_z_34 & + ((gazww)*(owf_z_34*owf_wm_56_X1))*owf_wp_78_X3 & + ((gazww)*(owf_z_34*owf_wp_78_X3))*owf_wm_56_X1) & - ((((-2)*gaaww)*(owf_wm_56_X1*owf_wp_78_X3))*owf_a_34 & + ((gaaww)*(owf_a_34*owf_wm_56_X1))*owf_wp_78_X3 & + ((gaaww)*(owf_a_34*owf_wp_78_X3))*owf_wm_56_X1)) oks_l1l1bl2l2bu1_1_d1b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d3_2_u1b__2 & + owf_a_1234*( - v_ff(qup,owf_u1b__2_567_X13,owf_u1_2__8) & - v_ff(qdwn,owf_d3b__2_7,owf_d3_2__568_X1) & + v_ff(qdwn,owf_d1b__1_578_X4,owf_d1_1__6) & + v_ff(qup,owf_u1b__1_5,owf_u1_1__678_X8)) oks_l1l1bl2l2bu1_1_d1b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d3_2_u1b__2 & + owf_a_1234*( + g_gg(iqw,owf_wm_56_X1,p56,owf_wp_78_X3,p78)) oks_l1l1bl2l2bu1_1_d1b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d3_2_u1b__2 & + owf_wp_1278_X3*( - vl_ff(gccq11,owf_u1b__1_345,owf_d1_1__6) & - vl_ff(gccq11,owf_u1b__1_5,owf_d1_1__346) & + vl_ff(gcc,owf_n2b_356_X1,owf_l2_4)) oks_l1l1bl2l2bu1_1_d1b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d3_2_u1b__2 & + owf_wp_1278_X3*( + g_gg(iqw,owf_a_34,p34,owf_wm_56_X1,p56) & + g_gg(igzww,owf_z_34,p34,owf_wm_56_X1,p56)) oks_l1l1bl2l2bu1_1_d1b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d3_2_u1b__2 & + owf_wm_1256_X1*( - vl_ff(gccq13,owf_d3b__2_347,owf_u1_2__8) & - vl_ff(gccq13,owf_d3b__2_7,owf_u1_2__348) & + vl_ff(gcc,owf_l2b_3,owf_n2_478_X3)) oks_l1l1bl2l2bu1_1_d1b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d3_2_u1b__2 & + owf_wm_1256_X1*( + g_gg(iqw,owf_wp_78_X3,p78,owf_a_34,p34) & + g_gg(igzww,owf_wp_78_X3,p78,owf_z_34,p34)) oks_l1l1bl2l2bu1_1_d1b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d3_2_u1b__2 & + owf_z_12*( - ((((-2)*gzzww)*(owf_wm_56_X1*owf_wp_78_X3))*owf_z_34 & + ((gzzww)*(owf_z_34*owf_wm_56_X1))*owf_wp_78_X3 & + ((gzzww)*(owf_z_34*owf_wp_78_X3))*owf_wm_56_X1) & - ((((-2)*gazww)*(owf_wm_56_X1*owf_wp_78_X3))*owf_a_34 & + ((gazww)*(owf_a_34*owf_wp_78_X3))*owf_wm_56_X1 & + ((gazww)*(owf_a_34*owf_wm_56_X1))*owf_wp_78_X3)) oks_l1l1bl2l2bu1_1_d1b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d3_2_u1b__2 & + owf_z_1234*( & - va_ff(gncup(1),gncup(2),owf_u1b__2_567_X13,owf_u1_2__8) & - va_ff(gncdwn(1),gncdwn(2),owf_d3b__2_7,owf_d3_2__568_X1) & + va_ff(gncdwn(1),gncdwn(2),owf_d1b__1_578_X4,owf_d1_1__6) & + va_ff(gncup(1),gncup(2),owf_u1b__1_5,owf_u1_1__678_X8)) oks_l1l1bl2l2bu1_1_d1b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d3_2_u1b__2 & + owf_z_1234*( + g_gg(igzww,owf_wm_56_X1,p56,owf_wp_78_X3,p78)) oks_l1l1bl2l2bu1_1_d1b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d3_2_u1b__2 & + owf_h_1234*( - s_ff(ghbb,owf_d3b__2_7,owf_d3_2__568_X1)) oks_l1l1bl2l2bu1_1_d1b__1d3_2_u1b__2 = oks_l1l1bl2l2bu1_1_d1b__1d3_2_u1b__2 & + owf_h_1234*( + ghww*(owf_wm_56_X1*owf_wp_78_X3)) oks_l1l1bl2l2bu1_1_d1b__1d3_2_u1b__2 = & - oks_l1l1bl2l2bu1_1_d1b__1d3_2_u1b__2 ! 6 vertices, 5 propagators ! unit symmetry factor end subroutine compute_brakets_0021 subroutine compute_brakets_0022 () oks_l1l1bl2l2bu2_1_d3b__1d1_2_u2b__2 = 0 oks_l1l1bl2l2bu2_1_d3b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d1_2_u2b__2 & + owf_l2b_123*( - f_vlf(gcc,owf_wm_56_X6,owf_n2_478_X4)) oks_l1l1bl2l2bu2_1_d3b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d1_2_u2b__2 & + ( + f_fvl(gcc,owf_n1b_256_X6,owf_wp_78_X4))*owf_l1_134 oks_l1l1bl2l2bu2_1_d3b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d1_2_u2b__2 & + ( - f_fvl(gcc,owf_n2b_356_X6,owf_wp_78_X4))*owf_l2_124 oks_l1l1bl2l2bu2_1_d3b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d1_2_u2b__2 & + owf_n2b_356_X6*( & + f_vaf(gncneu(1),gncneu(2),owf_z_12,owf_n2_478_X4)) oks_l1l1bl2l2bu2_1_d3b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d1_2_u2b__2 & + ( + f_fva(gncneu(1),gncneu(2),owf_n1b_256_X6,owf_z_34) & + f_fvl(gcc,owf_l1b_234,owf_wm_56_X6))*owf_n1_178_X4 oks_l1l1bl2l2bu2_1_d3b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d1_2_u2b__2 & + owf_u2b__1_125*( & - f_vaf(gncup(1),gncup(2),owf_z_34,owf_u2_1__678_X20) & - f_vf(qup,owf_a_34,owf_u2_1__678_X20) & + f_vlf(gccq23,owf_wp_78_X4,owf_d3_1__346)) oks_l1l1bl2l2bu2_1_d3b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d1_2_u2b__2 & + owf_u2b__1_345*( & - f_vaf(gncup(1),gncup(2),owf_z_12,owf_u2_1__678_X20) & - f_vf(qup,owf_a_12,owf_u2_1__678_X20)) oks_l1l1bl2l2bu2_1_d3b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d1_2_u2b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u2b__2_567_X6,owf_z_34) & + f_fv(qup,owf_u2b__2_567_X6,owf_a_34) & + f_fvl(gccq21,owf_d1b__2_347,owf_wm_56_X6))*owf_u2_2__128 oks_l1l1bl2l2bu2_1_d3b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d1_2_u2b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u2b__2_567_X6,owf_z_12) & + f_fv(qup,owf_u2b__2_567_X6,owf_a_12))*owf_u2_2__348 oks_l1l1bl2l2bu2_1_d3b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d1_2_u2b__2 & + owf_d1b__2_127*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_34,owf_d1_2__568_X12) & + f_vf(qdwn,owf_a_34,owf_d1_2__568_X12) & + f_vlf(gccq21,owf_wm_56_X6,owf_u2_2__348)) oks_l1l1bl2l2bu2_1_d3b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d1_2_u2b__2 & + owf_d1b__2_347*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_12,owf_d1_2__568_X12) & + f_vf(qdwn,owf_a_12,owf_d1_2__568_X12)) oks_l1l1bl2l2bu2_1_d3b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d1_2_u2b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d3b__1_578_X11,owf_z_34) & - f_fv(qdwn,owf_d3b__1_578_X11,owf_a_34) & + f_fvl(gccq23,owf_u2b__1_345,owf_wp_78_X4))*owf_d3_1__126 oks_l1l1bl2l2bu2_1_d3b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d1_2_u2b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d3b__1_578_X11,owf_z_12) & - f_fv(qdwn,owf_d3b__1_578_X11,owf_a_12))*owf_d3_1__346 oks_l1l1bl2l2bu2_1_d3b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d1_2_u2b__2 & + owf_a_12*( - ((((-2)*gazww)*(owf_wm_56_X6*owf_wp_78_X4))*owf_z_34 & + ((gazww)*(owf_z_34*owf_wm_56_X6))*owf_wp_78_X4 & + ((gazww)*(owf_z_34*owf_wp_78_X4))*owf_wm_56_X6) & - ((((-2)*gaaww)*(owf_wm_56_X6*owf_wp_78_X4))*owf_a_34 & + ((gaaww)*(owf_a_34*owf_wm_56_X6))*owf_wp_78_X4 & + ((gaaww)*(owf_a_34*owf_wp_78_X4))*owf_wm_56_X6)) oks_l1l1bl2l2bu2_1_d3b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d1_2_u2b__2 & + owf_a_1234*( - v_ff(qup,owf_u2b__2_567_X6,owf_u2_2__8) & - v_ff(qdwn,owf_d1b__2_7,owf_d1_2__568_X12) & + v_ff(qdwn,owf_d3b__1_578_X11,owf_d3_1__6) & + v_ff(qup,owf_u2b__1_5,owf_u2_1__678_X20)) oks_l1l1bl2l2bu2_1_d3b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d1_2_u2b__2 & + owf_a_1234*( + g_gg(iqw,owf_wm_56_X6,p56,owf_wp_78_X4,p78)) oks_l1l1bl2l2bu2_1_d3b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d1_2_u2b__2 & + owf_wp_1278_X4*( - vl_ff(gccq23,owf_u2b__1_345,owf_d3_1__6) & - vl_ff(gccq23,owf_u2b__1_5,owf_d3_1__346) & + vl_ff(gcc,owf_n2b_356_X6,owf_l2_4)) oks_l1l1bl2l2bu2_1_d3b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d1_2_u2b__2 & + owf_wp_1278_X4*( + g_gg(iqw,owf_a_34,p34,owf_wm_56_X6,p56) & + g_gg(igzww,owf_z_34,p34,owf_wm_56_X6,p56)) oks_l1l1bl2l2bu2_1_d3b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d1_2_u2b__2 & + owf_wm_1256_X6*( - vl_ff(gccq21,owf_d1b__2_347,owf_u2_2__8) & - vl_ff(gccq21,owf_d1b__2_7,owf_u2_2__348) & + vl_ff(gcc,owf_l2b_3,owf_n2_478_X4)) oks_l1l1bl2l2bu2_1_d3b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d1_2_u2b__2 & + owf_wm_1256_X6*( + g_gg(iqw,owf_wp_78_X4,p78,owf_a_34,p34) & + g_gg(igzww,owf_wp_78_X4,p78,owf_z_34,p34)) oks_l1l1bl2l2bu2_1_d3b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d1_2_u2b__2 & + owf_z_12*( - ((((-2)*gzzww)*(owf_wm_56_X6*owf_wp_78_X4))*owf_z_34 & + ((gzzww)*(owf_z_34*owf_wm_56_X6))*owf_wp_78_X4 & + ((gzzww)*(owf_z_34*owf_wp_78_X4))*owf_wm_56_X6) & - ((((-2)*gazww)*(owf_wm_56_X6*owf_wp_78_X4))*owf_a_34 & + ((gazww)*(owf_a_34*owf_wp_78_X4))*owf_wm_56_X6 & + ((gazww)*(owf_a_34*owf_wm_56_X6))*owf_wp_78_X4)) oks_l1l1bl2l2bu2_1_d3b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d1_2_u2b__2 & + owf_z_1234*( & - va_ff(gncup(1),gncup(2),owf_u2b__2_567_X6,owf_u2_2__8) & - va_ff(gncdwn(1),gncdwn(2),owf_d1b__2_7,owf_d1_2__568_X12) & + va_ff(gncdwn(1),gncdwn(2),owf_d3b__1_578_X11,owf_d3_1__6) & + va_ff(gncup(1),gncup(2),owf_u2b__1_5,owf_u2_1__678_X20)) oks_l1l1bl2l2bu2_1_d3b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d1_2_u2b__2 & + owf_z_1234*( + g_gg(igzww,owf_wm_56_X6,p56,owf_wp_78_X4,p78)) oks_l1l1bl2l2bu2_1_d3b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d1_2_u2b__2 & + owf_h_1234*( - s_ff(ghcc,owf_u2b__2_567_X6,owf_u2_2__8) & + s_ff(ghbb,owf_d3b__1_578_X11,owf_d3_1__6) & + s_ff(ghcc,owf_u2b__1_5,owf_u2_1__678_X20)) oks_l1l1bl2l2bu2_1_d3b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d1_2_u2b__2 & + owf_h_1234*( + ghww*(owf_wm_56_X6*owf_wp_78_X4)) oks_l1l1bl2l2bu2_1_d3b__1d1_2_u2b__2 = & - oks_l1l1bl2l2bu2_1_d3b__1d1_2_u2b__2 ! 6 vertices, 5 propagators ! unit symmetry factor end subroutine compute_brakets_0022 subroutine compute_brakets_0023 () oks_l1l1bl2l2bu2_1_d3b__1d1_2_u1b__2 = 0 oks_l1l1bl2l2bu2_1_d3b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d1_2_u1b__2 & + owf_l2b_123*( - f_vlf(gcc,owf_wm_56_X6,owf_n2_478_X1)) oks_l1l1bl2l2bu2_1_d3b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d1_2_u1b__2 & + ( + f_fvl(gcc,owf_n1b_256_X6,owf_wp_78_X1))*owf_l1_134 oks_l1l1bl2l2bu2_1_d3b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d1_2_u1b__2 & + ( - f_fvl(gcc,owf_n2b_356_X6,owf_wp_78_X1))*owf_l2_124 oks_l1l1bl2l2bu2_1_d3b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d1_2_u1b__2 & + owf_n2b_356_X6*( & + f_vaf(gncneu(1),gncneu(2),owf_z_12,owf_n2_478_X1)) oks_l1l1bl2l2bu2_1_d3b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d1_2_u1b__2 & + ( + f_fva(gncneu(1),gncneu(2),owf_n1b_256_X6,owf_z_34) & + f_fvl(gcc,owf_l1b_234,owf_wm_56_X6))*owf_n1_178_X1 oks_l1l1bl2l2bu2_1_d3b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d1_2_u1b__2 & + owf_u2b__1_125*( & - f_vaf(gncup(1),gncup(2),owf_z_34,owf_u2_1__678_X17) & - f_vf(qup,owf_a_34,owf_u2_1__678_X17) & + f_vlf(gccq23,owf_wp_78_X1,owf_d3_1__346)) oks_l1l1bl2l2bu2_1_d3b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d1_2_u1b__2 & + owf_u2b__1_345*( & - f_vaf(gncup(1),gncup(2),owf_z_12,owf_u2_1__678_X17) & - f_vf(qup,owf_a_12,owf_u2_1__678_X17)) oks_l1l1bl2l2bu2_1_d3b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d1_2_u1b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u1b__2_567_X6,owf_z_34) & + f_fv(qup,owf_u1b__2_567_X6,owf_a_34) & + f_fvl(gccq11,owf_d1b__2_347,owf_wm_56_X6))*owf_u1_2__128 oks_l1l1bl2l2bu2_1_d3b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d1_2_u1b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u1b__2_567_X6,owf_z_12) & + f_fv(qup,owf_u1b__2_567_X6,owf_a_12))*owf_u1_2__348 oks_l1l1bl2l2bu2_1_d3b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d1_2_u1b__2 & + owf_d1b__2_127*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_34,owf_d1_2__568_X6) & + f_vf(qdwn,owf_a_34,owf_d1_2__568_X6) & + f_vlf(gccq11,owf_wm_56_X6,owf_u1_2__348)) oks_l1l1bl2l2bu2_1_d3b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d1_2_u1b__2 & + owf_d1b__2_347*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_12,owf_d1_2__568_X6) & + f_vf(qdwn,owf_a_12,owf_d1_2__568_X6)) oks_l1l1bl2l2bu2_1_d3b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d1_2_u1b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d3b__1_578_X8,owf_z_34) & - f_fv(qdwn,owf_d3b__1_578_X8,owf_a_34) & + f_fvl(gccq23,owf_u2b__1_345,owf_wp_78_X1))*owf_d3_1__126 oks_l1l1bl2l2bu2_1_d3b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d1_2_u1b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d3b__1_578_X8,owf_z_12) & - f_fv(qdwn,owf_d3b__1_578_X8,owf_a_12))*owf_d3_1__346 oks_l1l1bl2l2bu2_1_d3b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d1_2_u1b__2 & + owf_a_12*( - ((((-2)*gazww)*(owf_wm_56_X6*owf_wp_78_X1))*owf_z_34 & + ((gazww)*(owf_z_34*owf_wm_56_X6))*owf_wp_78_X1 & + ((gazww)*(owf_z_34*owf_wp_78_X1))*owf_wm_56_X6) & - ((((-2)*gaaww)*(owf_wm_56_X6*owf_wp_78_X1))*owf_a_34 & + ((gaaww)*(owf_a_34*owf_wm_56_X6))*owf_wp_78_X1 & + ((gaaww)*(owf_a_34*owf_wp_78_X1))*owf_wm_56_X6)) oks_l1l1bl2l2bu2_1_d3b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d1_2_u1b__2 & + owf_a_1234*( - v_ff(qup,owf_u1b__2_567_X6,owf_u1_2__8) & - v_ff(qdwn,owf_d1b__2_7,owf_d1_2__568_X6) & + v_ff(qdwn,owf_d3b__1_578_X8,owf_d3_1__6) & + v_ff(qup,owf_u2b__1_5,owf_u2_1__678_X17)) oks_l1l1bl2l2bu2_1_d3b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d1_2_u1b__2 & + owf_a_1234*( + g_gg(iqw,owf_wm_56_X6,p56,owf_wp_78_X1,p78)) oks_l1l1bl2l2bu2_1_d3b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d1_2_u1b__2 & + owf_wp_1278_X1*( - vl_ff(gccq23,owf_u2b__1_345,owf_d3_1__6) & - vl_ff(gccq23,owf_u2b__1_5,owf_d3_1__346) & + vl_ff(gcc,owf_n2b_356_X6,owf_l2_4)) oks_l1l1bl2l2bu2_1_d3b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d1_2_u1b__2 & + owf_wp_1278_X1*( + g_gg(iqw,owf_a_34,p34,owf_wm_56_X6,p56) & + g_gg(igzww,owf_z_34,p34,owf_wm_56_X6,p56)) oks_l1l1bl2l2bu2_1_d3b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d1_2_u1b__2 & + owf_wm_1256_X6*( - vl_ff(gccq11,owf_d1b__2_347,owf_u1_2__8) & - vl_ff(gccq11,owf_d1b__2_7,owf_u1_2__348) & + vl_ff(gcc,owf_l2b_3,owf_n2_478_X1)) oks_l1l1bl2l2bu2_1_d3b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d1_2_u1b__2 & + owf_wm_1256_X6*( + g_gg(iqw,owf_wp_78_X1,p78,owf_a_34,p34) & + g_gg(igzww,owf_wp_78_X1,p78,owf_z_34,p34)) oks_l1l1bl2l2bu2_1_d3b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d1_2_u1b__2 & + owf_z_12*( - ((((-2)*gzzww)*(owf_wm_56_X6*owf_wp_78_X1))*owf_z_34 & + ((gzzww)*(owf_z_34*owf_wm_56_X6))*owf_wp_78_X1 & + ((gzzww)*(owf_z_34*owf_wp_78_X1))*owf_wm_56_X6) & - ((((-2)*gazww)*(owf_wm_56_X6*owf_wp_78_X1))*owf_a_34 & + ((gazww)*(owf_a_34*owf_wp_78_X1))*owf_wm_56_X6 & + ((gazww)*(owf_a_34*owf_wm_56_X6))*owf_wp_78_X1)) oks_l1l1bl2l2bu2_1_d3b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d1_2_u1b__2 & + owf_z_1234*( & - va_ff(gncup(1),gncup(2),owf_u1b__2_567_X6,owf_u1_2__8) & - va_ff(gncdwn(1),gncdwn(2),owf_d1b__2_7,owf_d1_2__568_X6) & + va_ff(gncdwn(1),gncdwn(2),owf_d3b__1_578_X8,owf_d3_1__6) & + va_ff(gncup(1),gncup(2),owf_u2b__1_5,owf_u2_1__678_X17)) oks_l1l1bl2l2bu2_1_d3b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d1_2_u1b__2 & + owf_z_1234*( + g_gg(igzww,owf_wm_56_X6,p56,owf_wp_78_X1,p78)) oks_l1l1bl2l2bu2_1_d3b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d1_2_u1b__2 & + owf_h_1234*( + s_ff(ghbb,owf_d3b__1_578_X8,owf_d3_1__6) & + s_ff(ghcc,owf_u2b__1_5,owf_u2_1__678_X17)) oks_l1l1bl2l2bu2_1_d3b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d1_2_u1b__2 & + owf_h_1234*( + ghww*(owf_wm_56_X6*owf_wp_78_X1)) oks_l1l1bl2l2bu2_1_d3b__1d1_2_u1b__2 = & - oks_l1l1bl2l2bu2_1_d3b__1d1_2_u1b__2 ! 6 vertices, 5 propagators ! unit symmetry factor end subroutine compute_brakets_0023 subroutine compute_brakets_0024 () oks_l1l1bl2l2bu2_1_d3b__1d2_2_u2b__2 = 0 oks_l1l1bl2l2bu2_1_d3b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d2_2_u2b__2 & + owf_l2b_123*( - f_vlf(gcc,owf_wm_56_X6,owf_n2_478_X5)) oks_l1l1bl2l2bu2_1_d3b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d2_2_u2b__2 & + ( + f_fvl(gcc,owf_n1b_256_X6,owf_wp_78_X5))*owf_l1_134 oks_l1l1bl2l2bu2_1_d3b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d2_2_u2b__2 & + ( - f_fvl(gcc,owf_n2b_356_X6,owf_wp_78_X5))*owf_l2_124 oks_l1l1bl2l2bu2_1_d3b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d2_2_u2b__2 & + owf_n2b_356_X6*( & + f_vaf(gncneu(1),gncneu(2),owf_z_12,owf_n2_478_X5)) oks_l1l1bl2l2bu2_1_d3b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d2_2_u2b__2 & + ( + f_fva(gncneu(1),gncneu(2),owf_n1b_256_X6,owf_z_34) & + f_fvl(gcc,owf_l1b_234,owf_wm_56_X6))*owf_n1_178_X5 oks_l1l1bl2l2bu2_1_d3b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d2_2_u2b__2 & + owf_u2b__1_125*( & - f_vaf(gncup(1),gncup(2),owf_z_34,owf_u2_1__678_X21) & - f_vf(qup,owf_a_34,owf_u2_1__678_X21) & + f_vlf(gccq23,owf_wp_78_X5,owf_d3_1__346)) oks_l1l1bl2l2bu2_1_d3b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d2_2_u2b__2 & + owf_u2b__1_345*( & - f_vaf(gncup(1),gncup(2),owf_z_12,owf_u2_1__678_X21) & - f_vf(qup,owf_a_12,owf_u2_1__678_X21)) oks_l1l1bl2l2bu2_1_d3b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d2_2_u2b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u2b__2_567_X12,owf_z_34) & + f_fv(qup,owf_u2b__2_567_X12,owf_a_34) & + f_fvl(gccq22,owf_d2b__2_347,owf_wm_56_X6))*owf_u2_2__128 oks_l1l1bl2l2bu2_1_d3b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d2_2_u2b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u2b__2_567_X12,owf_z_12) & + f_fv(qup,owf_u2b__2_567_X12,owf_a_12))*owf_u2_2__348 oks_l1l1bl2l2bu2_1_d3b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d2_2_u2b__2 & + owf_d2b__2_127*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_34,owf_d2_2__568_X12) & + f_vf(qdwn,owf_a_34,owf_d2_2__568_X12) & + f_vlf(gccq22,owf_wm_56_X6,owf_u2_2__348)) oks_l1l1bl2l2bu2_1_d3b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d2_2_u2b__2 & + owf_d2b__2_347*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_12,owf_d2_2__568_X12) & + f_vf(qdwn,owf_a_12,owf_d2_2__568_X12)) oks_l1l1bl2l2bu2_1_d3b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d2_2_u2b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d3b__1_578_X12,owf_z_34) & - f_fv(qdwn,owf_d3b__1_578_X12,owf_a_34) & + f_fvl(gccq23,owf_u2b__1_345,owf_wp_78_X5))*owf_d3_1__126 oks_l1l1bl2l2bu2_1_d3b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d2_2_u2b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d3b__1_578_X12,owf_z_12) & - f_fv(qdwn,owf_d3b__1_578_X12,owf_a_12))*owf_d3_1__346 oks_l1l1bl2l2bu2_1_d3b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d2_2_u2b__2 & + owf_a_12*( - ((((-2)*gazww)*(owf_wm_56_X6*owf_wp_78_X5))*owf_z_34 & + ((gazww)*(owf_z_34*owf_wm_56_X6))*owf_wp_78_X5 & + ((gazww)*(owf_z_34*owf_wp_78_X5))*owf_wm_56_X6) & - ((((-2)*gaaww)*(owf_wm_56_X6*owf_wp_78_X5))*owf_a_34 & + ((gaaww)*(owf_a_34*owf_wm_56_X6))*owf_wp_78_X5 & + ((gaaww)*(owf_a_34*owf_wp_78_X5))*owf_wm_56_X6)) oks_l1l1bl2l2bu2_1_d3b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d2_2_u2b__2 & + owf_a_1234*( - v_ff(qup,owf_u2b__2_567_X12,owf_u2_2__8) & - v_ff(qdwn,owf_d2b__2_7,owf_d2_2__568_X12) & + v_ff(qdwn,owf_d3b__1_578_X12,owf_d3_1__6) & + v_ff(qup,owf_u2b__1_5,owf_u2_1__678_X21)) oks_l1l1bl2l2bu2_1_d3b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d2_2_u2b__2 & + owf_a_1234*( + g_gg(iqw,owf_wm_56_X6,p56,owf_wp_78_X5,p78)) oks_l1l1bl2l2bu2_1_d3b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d2_2_u2b__2 & + owf_wp_1278_X5*( - vl_ff(gccq23,owf_u2b__1_345,owf_d3_1__6) & - vl_ff(gccq23,owf_u2b__1_5,owf_d3_1__346) & + vl_ff(gcc,owf_n2b_356_X6,owf_l2_4)) oks_l1l1bl2l2bu2_1_d3b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d2_2_u2b__2 & + owf_wp_1278_X5*( + g_gg(iqw,owf_a_34,p34,owf_wm_56_X6,p56) & + g_gg(igzww,owf_z_34,p34,owf_wm_56_X6,p56)) oks_l1l1bl2l2bu2_1_d3b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d2_2_u2b__2 & + owf_wm_1256_X6*( - vl_ff(gccq22,owf_d2b__2_347,owf_u2_2__8) & - vl_ff(gccq22,owf_d2b__2_7,owf_u2_2__348) & + vl_ff(gcc,owf_l2b_3,owf_n2_478_X5)) oks_l1l1bl2l2bu2_1_d3b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d2_2_u2b__2 & + owf_wm_1256_X6*( + g_gg(iqw,owf_wp_78_X5,p78,owf_a_34,p34) & + g_gg(igzww,owf_wp_78_X5,p78,owf_z_34,p34)) oks_l1l1bl2l2bu2_1_d3b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d2_2_u2b__2 & + owf_z_12*( - ((((-2)*gzzww)*(owf_wm_56_X6*owf_wp_78_X5))*owf_z_34 & + ((gzzww)*(owf_z_34*owf_wm_56_X6))*owf_wp_78_X5 & + ((gzzww)*(owf_z_34*owf_wp_78_X5))*owf_wm_56_X6) & - ((((-2)*gazww)*(owf_wm_56_X6*owf_wp_78_X5))*owf_a_34 & + ((gazww)*(owf_a_34*owf_wp_78_X5))*owf_wm_56_X6 & + ((gazww)*(owf_a_34*owf_wm_56_X6))*owf_wp_78_X5)) oks_l1l1bl2l2bu2_1_d3b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d2_2_u2b__2 & + owf_z_1234*( & - va_ff(gncup(1),gncup(2),owf_u2b__2_567_X12,owf_u2_2__8) & - va_ff(gncdwn(1),gncdwn(2),owf_d2b__2_7,owf_d2_2__568_X12) & + va_ff(gncdwn(1),gncdwn(2),owf_d3b__1_578_X12,owf_d3_1__6) & + va_ff(gncup(1),gncup(2),owf_u2b__1_5,owf_u2_1__678_X21)) oks_l1l1bl2l2bu2_1_d3b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d2_2_u2b__2 & + owf_z_1234*( + g_gg(igzww,owf_wm_56_X6,p56,owf_wp_78_X5,p78)) oks_l1l1bl2l2bu2_1_d3b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d2_2_u2b__2 & + owf_h_1234*( - s_ff(ghcc,owf_u2b__2_567_X12,owf_u2_2__8) & + s_ff(ghbb,owf_d3b__1_578_X12,owf_d3_1__6) & + s_ff(ghcc,owf_u2b__1_5,owf_u2_1__678_X21)) oks_l1l1bl2l2bu2_1_d3b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d2_2_u2b__2 & + owf_h_1234*( + ghww*(owf_wm_56_X6*owf_wp_78_X5)) oks_l1l1bl2l2bu2_1_d3b__1d2_2_u2b__2 = & - oks_l1l1bl2l2bu2_1_d3b__1d2_2_u2b__2 ! 6 vertices, 5 propagators ! unit symmetry factor end subroutine compute_brakets_0024 subroutine compute_brakets_0025 () oks_l1l1bl2l2bu2_1_d3b__1d2_2_u1b__2 = 0 oks_l1l1bl2l2bu2_1_d3b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d2_2_u1b__2 & + owf_l2b_123*( - f_vlf(gcc,owf_wm_56_X6,owf_n2_478_X2)) oks_l1l1bl2l2bu2_1_d3b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d2_2_u1b__2 & + ( + f_fvl(gcc,owf_n1b_256_X6,owf_wp_78_X2))*owf_l1_134 oks_l1l1bl2l2bu2_1_d3b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d2_2_u1b__2 & + ( - f_fvl(gcc,owf_n2b_356_X6,owf_wp_78_X2))*owf_l2_124 oks_l1l1bl2l2bu2_1_d3b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d2_2_u1b__2 & + owf_n2b_356_X6*( & + f_vaf(gncneu(1),gncneu(2),owf_z_12,owf_n2_478_X2)) oks_l1l1bl2l2bu2_1_d3b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d2_2_u1b__2 & + ( + f_fva(gncneu(1),gncneu(2),owf_n1b_256_X6,owf_z_34) & + f_fvl(gcc,owf_l1b_234,owf_wm_56_X6))*owf_n1_178_X2 oks_l1l1bl2l2bu2_1_d3b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d2_2_u1b__2 & + owf_u2b__1_125*( & - f_vaf(gncup(1),gncup(2),owf_z_34,owf_u2_1__678_X18) & - f_vf(qup,owf_a_34,owf_u2_1__678_X18) & + f_vlf(gccq23,owf_wp_78_X2,owf_d3_1__346)) oks_l1l1bl2l2bu2_1_d3b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d2_2_u1b__2 & + owf_u2b__1_345*( & - f_vaf(gncup(1),gncup(2),owf_z_12,owf_u2_1__678_X18) & - f_vf(qup,owf_a_12,owf_u2_1__678_X18)) oks_l1l1bl2l2bu2_1_d3b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d2_2_u1b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u1b__2_567_X12,owf_z_34) & + f_fv(qup,owf_u1b__2_567_X12,owf_a_34) & + f_fvl(gccq12,owf_d2b__2_347,owf_wm_56_X6))*owf_u1_2__128 oks_l1l1bl2l2bu2_1_d3b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d2_2_u1b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u1b__2_567_X12,owf_z_12) & + f_fv(qup,owf_u1b__2_567_X12,owf_a_12))*owf_u1_2__348 oks_l1l1bl2l2bu2_1_d3b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d2_2_u1b__2 & + owf_d2b__2_127*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_34,owf_d2_2__568_X6) & + f_vf(qdwn,owf_a_34,owf_d2_2__568_X6) & + f_vlf(gccq12,owf_wm_56_X6,owf_u1_2__348)) oks_l1l1bl2l2bu2_1_d3b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d2_2_u1b__2 & + owf_d2b__2_347*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_12,owf_d2_2__568_X6) & + f_vf(qdwn,owf_a_12,owf_d2_2__568_X6)) oks_l1l1bl2l2bu2_1_d3b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d2_2_u1b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d3b__1_578_X9,owf_z_34) & - f_fv(qdwn,owf_d3b__1_578_X9,owf_a_34) & + f_fvl(gccq23,owf_u2b__1_345,owf_wp_78_X2))*owf_d3_1__126 oks_l1l1bl2l2bu2_1_d3b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d2_2_u1b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d3b__1_578_X9,owf_z_12) & - f_fv(qdwn,owf_d3b__1_578_X9,owf_a_12))*owf_d3_1__346 oks_l1l1bl2l2bu2_1_d3b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d2_2_u1b__2 & + owf_a_12*( - ((((-2)*gazww)*(owf_wm_56_X6*owf_wp_78_X2))*owf_z_34 & + ((gazww)*(owf_z_34*owf_wm_56_X6))*owf_wp_78_X2 & + ((gazww)*(owf_z_34*owf_wp_78_X2))*owf_wm_56_X6) & - ((((-2)*gaaww)*(owf_wm_56_X6*owf_wp_78_X2))*owf_a_34 & + ((gaaww)*(owf_a_34*owf_wm_56_X6))*owf_wp_78_X2 & + ((gaaww)*(owf_a_34*owf_wp_78_X2))*owf_wm_56_X6)) oks_l1l1bl2l2bu2_1_d3b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d2_2_u1b__2 & + owf_a_1234*( - v_ff(qup,owf_u1b__2_567_X12,owf_u1_2__8) & - v_ff(qdwn,owf_d2b__2_7,owf_d2_2__568_X6) & + v_ff(qdwn,owf_d3b__1_578_X9,owf_d3_1__6) & + v_ff(qup,owf_u2b__1_5,owf_u2_1__678_X18)) oks_l1l1bl2l2bu2_1_d3b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d2_2_u1b__2 & + owf_a_1234*( + g_gg(iqw,owf_wm_56_X6,p56,owf_wp_78_X2,p78)) oks_l1l1bl2l2bu2_1_d3b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d2_2_u1b__2 & + owf_wp_1278_X2*( - vl_ff(gccq23,owf_u2b__1_345,owf_d3_1__6) & - vl_ff(gccq23,owf_u2b__1_5,owf_d3_1__346) & + vl_ff(gcc,owf_n2b_356_X6,owf_l2_4)) oks_l1l1bl2l2bu2_1_d3b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d2_2_u1b__2 & + owf_wp_1278_X2*( + g_gg(iqw,owf_a_34,p34,owf_wm_56_X6,p56) & + g_gg(igzww,owf_z_34,p34,owf_wm_56_X6,p56)) oks_l1l1bl2l2bu2_1_d3b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d2_2_u1b__2 & + owf_wm_1256_X6*( - vl_ff(gccq12,owf_d2b__2_347,owf_u1_2__8) & - vl_ff(gccq12,owf_d2b__2_7,owf_u1_2__348) & + vl_ff(gcc,owf_l2b_3,owf_n2_478_X2)) oks_l1l1bl2l2bu2_1_d3b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d2_2_u1b__2 & + owf_wm_1256_X6*( + g_gg(iqw,owf_wp_78_X2,p78,owf_a_34,p34) & + g_gg(igzww,owf_wp_78_X2,p78,owf_z_34,p34)) oks_l1l1bl2l2bu2_1_d3b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d2_2_u1b__2 & + owf_z_12*( - ((((-2)*gzzww)*(owf_wm_56_X6*owf_wp_78_X2))*owf_z_34 & + ((gzzww)*(owf_z_34*owf_wm_56_X6))*owf_wp_78_X2 & + ((gzzww)*(owf_z_34*owf_wp_78_X2))*owf_wm_56_X6) & - ((((-2)*gazww)*(owf_wm_56_X6*owf_wp_78_X2))*owf_a_34 & + ((gazww)*(owf_a_34*owf_wp_78_X2))*owf_wm_56_X6 & + ((gazww)*(owf_a_34*owf_wm_56_X6))*owf_wp_78_X2)) oks_l1l1bl2l2bu2_1_d3b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d2_2_u1b__2 & + owf_z_1234*( & - va_ff(gncup(1),gncup(2),owf_u1b__2_567_X12,owf_u1_2__8) & - va_ff(gncdwn(1),gncdwn(2),owf_d2b__2_7,owf_d2_2__568_X6) & + va_ff(gncdwn(1),gncdwn(2),owf_d3b__1_578_X9,owf_d3_1__6) & + va_ff(gncup(1),gncup(2),owf_u2b__1_5,owf_u2_1__678_X18)) oks_l1l1bl2l2bu2_1_d3b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d2_2_u1b__2 & + owf_z_1234*( + g_gg(igzww,owf_wm_56_X6,p56,owf_wp_78_X2,p78)) oks_l1l1bl2l2bu2_1_d3b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d2_2_u1b__2 & + owf_h_1234*( + s_ff(ghbb,owf_d3b__1_578_X9,owf_d3_1__6) & + s_ff(ghcc,owf_u2b__1_5,owf_u2_1__678_X18)) oks_l1l1bl2l2bu2_1_d3b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d2_2_u1b__2 & + owf_h_1234*( + ghww*(owf_wm_56_X6*owf_wp_78_X2)) oks_l1l1bl2l2bu2_1_d3b__1d2_2_u1b__2 = & - oks_l1l1bl2l2bu2_1_d3b__1d2_2_u1b__2 ! 6 vertices, 5 propagators ! unit symmetry factor end subroutine compute_brakets_0025 subroutine compute_brakets_0026 () oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 = 0 oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 = oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 & + owf_l2b_123*( & + f_vaf(gnclep(1),gnclep(2),owf_z_58_X2,owf_l2_467_X3) & + f_vaf(gnclep(1),gnclep(2),owf_z_67_X3,owf_l2_458_X2) & + f_vf(qlep,owf_a_58_X2,owf_l2_467_X3) & + f_vf(qlep,owf_a_67_X3,owf_l2_458_X2)) oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 = oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 & + owf_l2b_358_X2*( & - f_vaf(gnclep(1),gnclep(2),owf_z_12,owf_l2_467_X3) & - f_vf(qlep,owf_a_12,owf_l2_467_X3)) oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 = oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 & + owf_l2b_367_X3*( & - f_vaf(gnclep(1),gnclep(2),owf_z_12,owf_l2_458_X2) & - f_vf(qlep,owf_a_12,owf_l2_458_X2)) oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 = oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 & + ( - f_fva(gnclep(1),gnclep(2),owf_l1b_267_X3,owf_z_58_X2) & - f_fva(gnclep(1),gnclep(2),owf_l1b_258_X2,owf_z_67_X3) & - f_fv(qlep,owf_l1b_267_X3,owf_a_58_X2) & - f_fv(qlep,owf_l1b_258_X2,owf_a_67_X3))*owf_l1_134 oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 = oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 & + ( - f_fva(gnclep(1),gnclep(2),owf_l1b_234,owf_z_67_X3) & - f_fva(gnclep(1),gnclep(2),owf_l1b_267_X3,owf_z_34) & - f_fv(qlep,owf_l1b_234,owf_a_67_X3) & - f_fv(qlep,owf_l1b_267_X3,owf_a_34))*owf_l1_158_X2 oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 = oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 & + ( - f_fva(gnclep(1),gnclep(2),owf_l1b_234,owf_z_58_X2) & - f_fva(gnclep(1),gnclep(2),owf_l1b_258_X2,owf_z_34) & - f_fv(qlep,owf_l1b_234,owf_a_58_X2) & - f_fv(qlep,owf_l1b_258_X2,owf_a_34))*owf_l1_167_X3 oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 = oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 & + ( + f_fva(gnclep(1),gnclep(2),owf_l2b_367_X3,owf_z_58_X2) & + f_fva(gnclep(1),gnclep(2),owf_l2b_358_X2,owf_z_67_X3) & + f_fv(qlep,owf_l2b_367_X3,owf_a_58_X2) & + f_fv(qlep,owf_l2b_358_X2,owf_a_67_X3))*owf_l2_124 oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 = oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 & + owf_u2b__1_125*( - f_vf((-gs),owf_gl___67_X3,owf_u2_1__348) & - f_sf(ghcc,owf_h_67,owf_u2_1__348) & - f_vaf(gncup(1),gncup(2),owf_z_67_X3,owf_u2_1__348) & - f_vaf(gncup(1),gncup(2),owf_z_34,owf_u2_1__678_X6) & - f_vf(qup,owf_a_67_X3,owf_u2_1__348) & - f_vf(qup,owf_a_34,owf_u2_1__678_X6)) oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 = oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 & + owf_u2b__1_345*( & - f_vaf(gncup(1),gncup(2),owf_z_12,owf_u2_1__678_X6) & - f_vf(qup,owf_a_12,owf_u2_1__678_X6)) oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 = oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 & + ( - f_fv((-gs),owf_u2b__1_345,owf_gl___67_X3) & - f_fs(ghcc,owf_u2b__1_345,owf_h_67) & - f_fva(gncup(1),gncup(2),owf_u2b__1_345,owf_z_67_X3) & - f_fv(qup,owf_u2b__1_345,owf_a_67_X3) & + f_fva(gncup(1),gncup(2),owf_u2b__1_567_X3,owf_z_34) & + f_fv(qup,owf_u2b__1_567_X3,owf_a_34))*owf_u2_1__128 oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 = oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 & + ( + f_fva(gncup(1),gncup(2),owf_u2b__1_567_X3,owf_z_12) & + f_fv(qup,owf_u2b__1_567_X3,owf_a_12))*owf_u2_1__348 oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 = oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 & + owf_d3b__2_127*( - f_vf((-gs),owf_gl___58_X2,owf_d3_2__346) & - f_sf(ghbb,owf_h_58,owf_d3_2__346) & - f_vaf(gncdwn(1),gncdwn(2),owf_z_58_X2,owf_d3_2__346) & - f_vf(qdwn,owf_a_58_X2,owf_d3_2__346) & + f_vaf(gncdwn(1),gncdwn(2),owf_z_34,owf_d3_2__568_X14) & + f_vf(qdwn,owf_a_34,owf_d3_2__568_X14)) oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 = oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 & + owf_d3b__2_347*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_12,owf_d3_2__568_X14) & + f_vf(qdwn,owf_a_12,owf_d3_2__568_X14)) oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 = oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 & + ( - f_fv((-gs),owf_d3b__2_347,owf_gl___58_X2) & - f_fs(ghbb,owf_d3b__2_347,owf_h_58) & - f_fva(gncdwn(1),gncdwn(2),owf_d3b__2_347,owf_z_58_X2) & - f_fva(gncdwn(1),gncdwn(2),owf_d3b__2_578_X2,owf_z_34) & - f_fv(qdwn,owf_d3b__2_347,owf_a_58_X2) & - f_fv(qdwn,owf_d3b__2_578_X2,owf_a_34))*owf_d3_2__126 oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 = oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d3b__2_578_X2,owf_z_12) & - f_fv(qdwn,owf_d3b__2_578_X2,owf_a_12))*owf_d3_2__346 oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 = oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 & + owf_a_1267_X1*( - v_ff(qlep,owf_l2b_358_X2,owf_l2_4) & - v_ff(qlep,owf_l2b_3,owf_l2_458_X2) & + v_ff(qup,owf_u2b__1_345,owf_u2_1__8) & + v_ff(qup,owf_u2b__1_5,owf_u2_1__348)) oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 = oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 & + owf_a_1258_X1*( - v_ff(qlep,owf_l2b_367_X3,owf_l2_4) & - v_ff(qlep,owf_l2b_3,owf_l2_467_X3) & + v_ff(qdwn,owf_d3b__2_347,owf_d3_2__6) & + v_ff(qdwn,owf_d3b__2_7,owf_d3_2__346)) oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 = oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 & + owf_a_1234*( - v_ff(qup,owf_u2b__1_567_X3,owf_u2_1__8) & - v_ff(qdwn,owf_d3b__2_7,owf_d3_2__568_X14) & + v_ff(qdwn,owf_d3b__2_578_X2,owf_d3_2__6) & + v_ff(qup,owf_u2b__1_5,owf_u2_1__678_X6)) oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 = oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 & + owf_z_12*( + (ghhzz*owf_h_58*owf_h_67)*owf_z_34) oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 = oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 & + owf_z_1267_X1*( & - va_ff(gnclep(1),gnclep(2),owf_l2b_358_X2,owf_l2_4) & - va_ff(gnclep(1),gnclep(2),owf_l2b_3,owf_l2_458_X2) & + va_ff(gncup(1),gncup(2),owf_u2b__1_345,owf_u2_1__8) & + va_ff(gncup(1),gncup(2),owf_u2b__1_5,owf_u2_1__348)) oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 = oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 & + owf_z_1258_X1*( & - va_ff(gnclep(1),gnclep(2),owf_l2b_367_X3,owf_l2_4) & - va_ff(gnclep(1),gnclep(2),owf_l2b_3,owf_l2_467_X3) & + va_ff(gncdwn(1),gncdwn(2),owf_d3b__2_347,owf_d3_2__6) & + va_ff(gncdwn(1),gncdwn(2),owf_d3b__2_7,owf_d3_2__346)) oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 = oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 & + owf_z_1234*( & - va_ff(gncup(1),gncup(2),owf_u2b__1_567_X3,owf_u2_1__8) & - va_ff(gncdwn(1),gncdwn(2),owf_d3b__2_7,owf_d3_2__568_X14) & + va_ff(gncdwn(1),gncdwn(2),owf_d3b__2_578_X2,owf_d3_2__6) & + va_ff(gncup(1),gncup(2),owf_u2b__1_5,owf_u2_1__678_X6)) oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 = oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 & + owf_z_1234*( - (ghzz*owf_h_58)*owf_z_67_X3 & - (ghzz*owf_h_67)*owf_z_58_X2) oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 = oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 & + owf_z_1258_X1*( - (ghzz*owf_h_67)*owf_z_34) oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 = oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 & + owf_z_1267_X1*( - (ghzz*owf_h_58)*owf_z_34) oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 = oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 & + owf_gl___1267_X1*( + v_ff((-gs),owf_u2b__1_345,owf_u2_1__8) & + v_ff((-gs),owf_u2b__1_5,owf_u2_1__348)) oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 = oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 & + owf_gl___1258_X1*( + v_ff((-gs),owf_d3b__2_347,owf_d3_2__6) & + v_ff((-gs),owf_d3b__2_7,owf_d3_2__346)) oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 = oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 & + owf_h_1267_X1*( + s_ff(ghcc,owf_u2b__1_345,owf_u2_1__8) & + s_ff(ghcc,owf_u2b__1_5,owf_u2_1__348)) oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 = oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 & + owf_h_1258_X1*( + s_ff(ghbb,owf_d3b__2_347,owf_d3_2__6) & + s_ff(ghbb,owf_d3b__2_7,owf_d3_2__346)) oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 = oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 & + owf_h_1234*( - s_ff(ghcc,owf_u2b__1_567_X3,owf_u2_1__8) & - s_ff(ghbb,owf_d3b__2_7,owf_d3_2__568_X14) & + s_ff(ghbb,owf_d3b__2_578_X2,owf_d3_2__6) & + s_ff(ghcc,owf_u2b__1_5,owf_u2_1__678_X6)) oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 = oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 & + owf_h_1234*( - ghzz*(owf_z_58_X2*owf_z_67_X3) & - (gh3*owf_h_58*owf_h_67)) oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 = oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 & + owf_h_1258_X1*( - ghzz*(owf_z_34*owf_z_67_X3)) oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 = oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 & + owf_h_1267_X1*( - ghzz*(owf_z_34*owf_z_58_X2)) oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 = & - oks_l1l1bl2l2bu2_1_d3b__2d3_2_u2b__1 ! 6 vertices, 5 propagators ! unit symmetry factor end subroutine compute_brakets_0026 subroutine compute_brakets_0027 () oks_l1l1bl2l2bu2_1_d3b__1d3_2_u2b__2 = 0 oks_l1l1bl2l2bu2_1_d3b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d3_2_u2b__2 & + owf_l2b_123*( - f_vlf(gcc,owf_wm_56_X6,owf_n2_478_X6)) oks_l1l1bl2l2bu2_1_d3b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d3_2_u2b__2 & + ( + f_fvl(gcc,owf_n1b_256_X6,owf_wp_78_X6))*owf_l1_134 oks_l1l1bl2l2bu2_1_d3b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d3_2_u2b__2 & + ( - f_fvl(gcc,owf_n2b_356_X6,owf_wp_78_X6))*owf_l2_124 oks_l1l1bl2l2bu2_1_d3b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d3_2_u2b__2 & + owf_n2b_356_X6*( & + f_vaf(gncneu(1),gncneu(2),owf_z_12,owf_n2_478_X6)) oks_l1l1bl2l2bu2_1_d3b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d3_2_u2b__2 & + ( + f_fva(gncneu(1),gncneu(2),owf_n1b_256_X6,owf_z_34) & + f_fvl(gcc,owf_l1b_234,owf_wm_56_X6))*owf_n1_178_X6 oks_l1l1bl2l2bu2_1_d3b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d3_2_u2b__2 & + owf_u2b__1_125*( - f_vf((-gs),owf_gl_1_2_67_X3,owf_u2_2__348) & - f_vaf(gncup(1),gncup(2),owf_z_34,owf_u2_1__678_X3) & - f_vf(qup,owf_a_34,owf_u2_1__678_X3) & + f_vlf(gccq23,owf_wp_78_X6,owf_d3_1__346)) oks_l1l1bl2l2bu2_1_d3b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d3_2_u2b__2 & + owf_u2b__1_345*( & - f_vaf(gncup(1),gncup(2),owf_z_12,owf_u2_1__678_X3) & - f_vf(qup,owf_a_12,owf_u2_1__678_X3)) oks_l1l1bl2l2bu2_1_d3b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d3_2_u2b__2 & + ( - f_fv((-gs),owf_u2b__1_345,owf_gl_1_2_67_X3) & + f_fva(gncup(1),gncup(2),owf_u2b__2_567_X18,owf_z_34) & + f_fv(qup,owf_u2b__2_567_X18,owf_a_34) & + f_fvl(gccq23,owf_d3b__2_347,owf_wm_56_X6))*owf_u2_2__128 oks_l1l1bl2l2bu2_1_d3b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d3_2_u2b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u2b__2_567_X18,owf_z_12) & + f_fv(qup,owf_u2b__2_567_X18,owf_a_12))*owf_u2_2__348 oks_l1l1bl2l2bu2_1_d3b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d3_2_u2b__2 & + owf_d3b__2_127*( - f_vf((-gs),owf_gl_2_1_58_X2,owf_d3_1__346) & + f_vaf(gncdwn(1),gncdwn(2),owf_z_34,owf_d3_2__568_X12) & + f_vf(qdwn,owf_a_34,owf_d3_2__568_X12) & + f_vlf(gccq23,owf_wm_56_X6,owf_u2_2__348)) oks_l1l1bl2l2bu2_1_d3b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d3_2_u2b__2 & + owf_d3b__2_347*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_12,owf_d3_2__568_X12) & + f_vf(qdwn,owf_a_12,owf_d3_2__568_X12)) oks_l1l1bl2l2bu2_1_d3b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d3_2_u2b__2 & + ( - f_fv((-gs),owf_d3b__2_347,owf_gl_2_1_58_X2) & - f_fva(gncdwn(1),gncdwn(2),owf_d3b__1_578_X2,owf_z_34) & - f_fv(qdwn,owf_d3b__1_578_X2,owf_a_34) & + f_fvl(gccq23,owf_u2b__1_345,owf_wp_78_X6))*owf_d3_1__126 oks_l1l1bl2l2bu2_1_d3b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d3_2_u2b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d3b__1_578_X2,owf_z_12) & - f_fv(qdwn,owf_d3b__1_578_X2,owf_a_12))*owf_d3_1__346 oks_l1l1bl2l2bu2_1_d3b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d3_2_u2b__2 & + owf_a_12*( - ((((-2)*gazww)*(owf_wm_56_X6*owf_wp_78_X6))*owf_z_34 & + ((gazww)*(owf_z_34*owf_wm_56_X6))*owf_wp_78_X6 & + ((gazww)*(owf_z_34*owf_wp_78_X6))*owf_wm_56_X6) & - ((((-2)*gaaww)*(owf_wm_56_X6*owf_wp_78_X6))*owf_a_34 & + ((gaaww)*(owf_a_34*owf_wm_56_X6))*owf_wp_78_X6 & + ((gaaww)*(owf_a_34*owf_wp_78_X6))*owf_wm_56_X6)) oks_l1l1bl2l2bu2_1_d3b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d3_2_u2b__2 & + owf_a_1234*( - v_ff(qup,owf_u2b__2_567_X18,owf_u2_2__8) & - v_ff(qdwn,owf_d3b__2_7,owf_d3_2__568_X12) & + v_ff(qdwn,owf_d3b__1_578_X2,owf_d3_1__6) & + v_ff(qup,owf_u2b__1_5,owf_u2_1__678_X3)) oks_l1l1bl2l2bu2_1_d3b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d3_2_u2b__2 & + owf_a_1234*( + g_gg(iqw,owf_wm_56_X6,p56,owf_wp_78_X6,p78)) oks_l1l1bl2l2bu2_1_d3b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d3_2_u2b__2 & + owf_wp_1278_X6*( - vl_ff(gccq23,owf_u2b__1_345,owf_d3_1__6) & - vl_ff(gccq23,owf_u2b__1_5,owf_d3_1__346) & + vl_ff(gcc,owf_n2b_356_X6,owf_l2_4)) oks_l1l1bl2l2bu2_1_d3b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d3_2_u2b__2 & + owf_wp_1278_X6*( + g_gg(iqw,owf_a_34,p34,owf_wm_56_X6,p56) & + g_gg(igzww,owf_z_34,p34,owf_wm_56_X6,p56)) oks_l1l1bl2l2bu2_1_d3b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d3_2_u2b__2 & + owf_wm_1256_X6*( - vl_ff(gccq23,owf_d3b__2_347,owf_u2_2__8) & - vl_ff(gccq23,owf_d3b__2_7,owf_u2_2__348) & + vl_ff(gcc,owf_l2b_3,owf_n2_478_X6)) oks_l1l1bl2l2bu2_1_d3b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d3_2_u2b__2 & + owf_wm_1256_X6*( + g_gg(iqw,owf_wp_78_X6,p78,owf_a_34,p34) & + g_gg(igzww,owf_wp_78_X6,p78,owf_z_34,p34)) oks_l1l1bl2l2bu2_1_d3b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d3_2_u2b__2 & + owf_z_12*( - ((((-2)*gzzww)*(owf_wm_56_X6*owf_wp_78_X6))*owf_z_34 & + ((gzzww)*(owf_z_34*owf_wm_56_X6))*owf_wp_78_X6 & + ((gzzww)*(owf_z_34*owf_wp_78_X6))*owf_wm_56_X6) & - ((((-2)*gazww)*(owf_wm_56_X6*owf_wp_78_X6))*owf_a_34 & + ((gazww)*(owf_a_34*owf_wp_78_X6))*owf_wm_56_X6 & + ((gazww)*(owf_a_34*owf_wm_56_X6))*owf_wp_78_X6)) oks_l1l1bl2l2bu2_1_d3b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d3_2_u2b__2 & + owf_z_1234*( & - va_ff(gncup(1),gncup(2),owf_u2b__2_567_X18,owf_u2_2__8) & - va_ff(gncdwn(1),gncdwn(2),owf_d3b__2_7,owf_d3_2__568_X12) & + va_ff(gncdwn(1),gncdwn(2),owf_d3b__1_578_X2,owf_d3_1__6) & + va_ff(gncup(1),gncup(2),owf_u2b__1_5,owf_u2_1__678_X3)) oks_l1l1bl2l2bu2_1_d3b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d3_2_u2b__2 & + owf_z_1234*( + g_gg(igzww,owf_wm_56_X6,p56,owf_wp_78_X6,p78)) oks_l1l1bl2l2bu2_1_d3b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d3_2_u2b__2 & + owf_gl_1_2_1267_X1*( + v_ff((-gs),owf_u2b__1_345,owf_u2_2__8) & + v_ff((-gs),owf_u2b__1_5,owf_u2_2__348)) oks_l1l1bl2l2bu2_1_d3b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d3_2_u2b__2 & + owf_gl_2_1_1258_X1*( + v_ff((-gs),owf_d3b__2_347,owf_d3_1__6) & + v_ff((-gs),owf_d3b__2_7,owf_d3_1__346)) oks_l1l1bl2l2bu2_1_d3b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d3_2_u2b__2 & + owf_h_1234*( - s_ff(ghcc,owf_u2b__2_567_X18,owf_u2_2__8) & - s_ff(ghbb,owf_d3b__2_7,owf_d3_2__568_X12) & + s_ff(ghbb,owf_d3b__1_578_X2,owf_d3_1__6) & + s_ff(ghcc,owf_u2b__1_5,owf_u2_1__678_X3)) oks_l1l1bl2l2bu2_1_d3b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d3b__1d3_2_u2b__2 & + owf_h_1234*( + ghww*(owf_wm_56_X6*owf_wp_78_X6)) oks_l1l1bl2l2bu2_1_d3b__1d3_2_u2b__2 = & - oks_l1l1bl2l2bu2_1_d3b__1d3_2_u2b__2 ! 6 vertices, 5 propagators ! unit symmetry factor end subroutine compute_brakets_0027 subroutine compute_brakets_0028 () oks_l1l1bl2l2bu2_1_d3b__1d3_2_u1b__2 = 0 oks_l1l1bl2l2bu2_1_d3b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d3_2_u1b__2 & + owf_l2b_123*( - f_vlf(gcc,owf_wm_56_X6,owf_n2_478_X3)) oks_l1l1bl2l2bu2_1_d3b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d3_2_u1b__2 & + ( + f_fvl(gcc,owf_n1b_256_X6,owf_wp_78_X3))*owf_l1_134 oks_l1l1bl2l2bu2_1_d3b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d3_2_u1b__2 & + ( - f_fvl(gcc,owf_n2b_356_X6,owf_wp_78_X3))*owf_l2_124 oks_l1l1bl2l2bu2_1_d3b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d3_2_u1b__2 & + owf_n2b_356_X6*( & + f_vaf(gncneu(1),gncneu(2),owf_z_12,owf_n2_478_X3)) oks_l1l1bl2l2bu2_1_d3b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d3_2_u1b__2 & + ( + f_fva(gncneu(1),gncneu(2),owf_n1b_256_X6,owf_z_34) & + f_fvl(gcc,owf_l1b_234,owf_wm_56_X6))*owf_n1_178_X3 oks_l1l1bl2l2bu2_1_d3b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d3_2_u1b__2 & + owf_u2b__1_125*( & - f_vaf(gncup(1),gncup(2),owf_z_34,owf_u2_1__678_X19) & - f_vf(qup,owf_a_34,owf_u2_1__678_X19) & + f_vlf(gccq23,owf_wp_78_X3,owf_d3_1__346)) oks_l1l1bl2l2bu2_1_d3b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d3_2_u1b__2 & + owf_u2b__1_345*( & - f_vaf(gncup(1),gncup(2),owf_z_12,owf_u2_1__678_X19) & - f_vf(qup,owf_a_12,owf_u2_1__678_X19)) oks_l1l1bl2l2bu2_1_d3b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d3_2_u1b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u1b__2_567_X18,owf_z_34) & + f_fv(qup,owf_u1b__2_567_X18,owf_a_34) & + f_fvl(gccq13,owf_d3b__2_347,owf_wm_56_X6))*owf_u1_2__128 oks_l1l1bl2l2bu2_1_d3b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d3_2_u1b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u1b__2_567_X18,owf_z_12) & + f_fv(qup,owf_u1b__2_567_X18,owf_a_12))*owf_u1_2__348 oks_l1l1bl2l2bu2_1_d3b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d3_2_u1b__2 & + owf_d3b__2_127*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_34,owf_d3_2__568_X6) & + f_vf(qdwn,owf_a_34,owf_d3_2__568_X6) & + f_vlf(gccq13,owf_wm_56_X6,owf_u1_2__348)) oks_l1l1bl2l2bu2_1_d3b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d3_2_u1b__2 & + owf_d3b__2_347*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_12,owf_d3_2__568_X6) & + f_vf(qdwn,owf_a_12,owf_d3_2__568_X6)) oks_l1l1bl2l2bu2_1_d3b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d3_2_u1b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d3b__1_578_X10,owf_z_34) & - f_fv(qdwn,owf_d3b__1_578_X10,owf_a_34) & + f_fvl(gccq23,owf_u2b__1_345,owf_wp_78_X3))*owf_d3_1__126 oks_l1l1bl2l2bu2_1_d3b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d3_2_u1b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d3b__1_578_X10,owf_z_12) & - f_fv(qdwn,owf_d3b__1_578_X10,owf_a_12))*owf_d3_1__346 oks_l1l1bl2l2bu2_1_d3b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d3_2_u1b__2 & + owf_a_12*( - ((((-2)*gazww)*(owf_wm_56_X6*owf_wp_78_X3))*owf_z_34 & + ((gazww)*(owf_z_34*owf_wm_56_X6))*owf_wp_78_X3 & + ((gazww)*(owf_z_34*owf_wp_78_X3))*owf_wm_56_X6) & - ((((-2)*gaaww)*(owf_wm_56_X6*owf_wp_78_X3))*owf_a_34 & + ((gaaww)*(owf_a_34*owf_wm_56_X6))*owf_wp_78_X3 & + ((gaaww)*(owf_a_34*owf_wp_78_X3))*owf_wm_56_X6)) oks_l1l1bl2l2bu2_1_d3b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d3_2_u1b__2 & + owf_a_1234*( - v_ff(qup,owf_u1b__2_567_X18,owf_u1_2__8) & - v_ff(qdwn,owf_d3b__2_7,owf_d3_2__568_X6) & + v_ff(qdwn,owf_d3b__1_578_X10,owf_d3_1__6) & + v_ff(qup,owf_u2b__1_5,owf_u2_1__678_X19)) oks_l1l1bl2l2bu2_1_d3b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d3_2_u1b__2 & + owf_a_1234*( + g_gg(iqw,owf_wm_56_X6,p56,owf_wp_78_X3,p78)) oks_l1l1bl2l2bu2_1_d3b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d3_2_u1b__2 & + owf_wp_1278_X3*( - vl_ff(gccq23,owf_u2b__1_345,owf_d3_1__6) & - vl_ff(gccq23,owf_u2b__1_5,owf_d3_1__346) & + vl_ff(gcc,owf_n2b_356_X6,owf_l2_4)) oks_l1l1bl2l2bu2_1_d3b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d3_2_u1b__2 & + owf_wp_1278_X3*( + g_gg(iqw,owf_a_34,p34,owf_wm_56_X6,p56) & + g_gg(igzww,owf_z_34,p34,owf_wm_56_X6,p56)) oks_l1l1bl2l2bu2_1_d3b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d3_2_u1b__2 & + owf_wm_1256_X6*( - vl_ff(gccq13,owf_d3b__2_347,owf_u1_2__8) & - vl_ff(gccq13,owf_d3b__2_7,owf_u1_2__348) & + vl_ff(gcc,owf_l2b_3,owf_n2_478_X3)) oks_l1l1bl2l2bu2_1_d3b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d3_2_u1b__2 & + owf_wm_1256_X6*( + g_gg(iqw,owf_wp_78_X3,p78,owf_a_34,p34) & + g_gg(igzww,owf_wp_78_X3,p78,owf_z_34,p34)) oks_l1l1bl2l2bu2_1_d3b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d3_2_u1b__2 & + owf_z_12*( - ((((-2)*gzzww)*(owf_wm_56_X6*owf_wp_78_X3))*owf_z_34 & + ((gzzww)*(owf_z_34*owf_wm_56_X6))*owf_wp_78_X3 & + ((gzzww)*(owf_z_34*owf_wp_78_X3))*owf_wm_56_X6) & - ((((-2)*gazww)*(owf_wm_56_X6*owf_wp_78_X3))*owf_a_34 & + ((gazww)*(owf_a_34*owf_wp_78_X3))*owf_wm_56_X6 & + ((gazww)*(owf_a_34*owf_wm_56_X6))*owf_wp_78_X3)) oks_l1l1bl2l2bu2_1_d3b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d3_2_u1b__2 & + owf_z_1234*( & - va_ff(gncup(1),gncup(2),owf_u1b__2_567_X18,owf_u1_2__8) & - va_ff(gncdwn(1),gncdwn(2),owf_d3b__2_7,owf_d3_2__568_X6) & + va_ff(gncdwn(1),gncdwn(2),owf_d3b__1_578_X10,owf_d3_1__6) & + va_ff(gncup(1),gncup(2),owf_u2b__1_5,owf_u2_1__678_X19)) oks_l1l1bl2l2bu2_1_d3b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d3_2_u1b__2 & + owf_z_1234*( + g_gg(igzww,owf_wm_56_X6,p56,owf_wp_78_X3,p78)) oks_l1l1bl2l2bu2_1_d3b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d3_2_u1b__2 & + owf_h_1234*( - s_ff(ghbb,owf_d3b__2_7,owf_d3_2__568_X6) & + s_ff(ghbb,owf_d3b__1_578_X10,owf_d3_1__6) & + s_ff(ghcc,owf_u2b__1_5,owf_u2_1__678_X19)) oks_l1l1bl2l2bu2_1_d3b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d3b__1d3_2_u1b__2 & + owf_h_1234*( + ghww*(owf_wm_56_X6*owf_wp_78_X3)) oks_l1l1bl2l2bu2_1_d3b__1d3_2_u1b__2 = & - oks_l1l1bl2l2bu2_1_d3b__1d3_2_u1b__2 ! 6 vertices, 5 propagators ! unit symmetry factor end subroutine compute_brakets_0028 subroutine compute_brakets_0029 () oks_l1l1bl2l2bu2_1_d2b__1d1_2_u2b__2 = 0 oks_l1l1bl2l2bu2_1_d2b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d1_2_u2b__2 & + owf_l2b_123*( - f_vlf(gcc,owf_wm_56_X5,owf_n2_478_X4)) oks_l1l1bl2l2bu2_1_d2b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d1_2_u2b__2 & + ( + f_fvl(gcc,owf_n1b_256_X5,owf_wp_78_X4))*owf_l1_134 oks_l1l1bl2l2bu2_1_d2b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d1_2_u2b__2 & + ( - f_fvl(gcc,owf_n2b_356_X5,owf_wp_78_X4))*owf_l2_124 oks_l1l1bl2l2bu2_1_d2b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d1_2_u2b__2 & + owf_n2b_356_X5*( & + f_vaf(gncneu(1),gncneu(2),owf_z_12,owf_n2_478_X4)) oks_l1l1bl2l2bu2_1_d2b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d1_2_u2b__2 & + ( + f_fva(gncneu(1),gncneu(2),owf_n1b_256_X5,owf_z_34) & + f_fvl(gcc,owf_l1b_234,owf_wm_56_X5))*owf_n1_178_X4 oks_l1l1bl2l2bu2_1_d2b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d1_2_u2b__2 & + owf_u2b__1_125*( & - f_vaf(gncup(1),gncup(2),owf_z_34,owf_u2_1__678_X15) & - f_vf(qup,owf_a_34,owf_u2_1__678_X15) & + f_vlf(gccq22,owf_wp_78_X4,owf_d2_1__346)) oks_l1l1bl2l2bu2_1_d2b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d1_2_u2b__2 & + owf_u2b__1_345*( & - f_vaf(gncup(1),gncup(2),owf_z_12,owf_u2_1__678_X15) & - f_vf(qup,owf_a_12,owf_u2_1__678_X15)) oks_l1l1bl2l2bu2_1_d2b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d1_2_u2b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u2b__2_567_X5,owf_z_34) & + f_fv(qup,owf_u2b__2_567_X5,owf_a_34) & + f_fvl(gccq21,owf_d1b__2_347,owf_wm_56_X5))*owf_u2_2__128 oks_l1l1bl2l2bu2_1_d2b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d1_2_u2b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u2b__2_567_X5,owf_z_12) & + f_fv(qup,owf_u2b__2_567_X5,owf_a_12))*owf_u2_2__348 oks_l1l1bl2l2bu2_1_d2b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d1_2_u2b__2 & + owf_d1b__2_127*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_34,owf_d1_2__568_X11) & + f_vf(qdwn,owf_a_34,owf_d1_2__568_X11) & + f_vlf(gccq21,owf_wm_56_X5,owf_u2_2__348)) oks_l1l1bl2l2bu2_1_d2b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d1_2_u2b__2 & + owf_d1b__2_347*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_12,owf_d1_2__568_X11) & + f_vf(qdwn,owf_a_12,owf_d1_2__568_X11)) oks_l1l1bl2l2bu2_1_d2b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d1_2_u2b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d2b__1_578_X11,owf_z_34) & - f_fv(qdwn,owf_d2b__1_578_X11,owf_a_34) & + f_fvl(gccq22,owf_u2b__1_345,owf_wp_78_X4))*owf_d2_1__126 oks_l1l1bl2l2bu2_1_d2b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d1_2_u2b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d2b__1_578_X11,owf_z_12) & - f_fv(qdwn,owf_d2b__1_578_X11,owf_a_12))*owf_d2_1__346 oks_l1l1bl2l2bu2_1_d2b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d1_2_u2b__2 & + owf_a_12*( - ((((-2)*gazww)*(owf_wm_56_X5*owf_wp_78_X4))*owf_z_34 & + ((gazww)*(owf_z_34*owf_wm_56_X5))*owf_wp_78_X4 & + ((gazww)*(owf_z_34*owf_wp_78_X4))*owf_wm_56_X5) & - ((((-2)*gaaww)*(owf_wm_56_X5*owf_wp_78_X4))*owf_a_34 & + ((gaaww)*(owf_a_34*owf_wm_56_X5))*owf_wp_78_X4 & + ((gaaww)*(owf_a_34*owf_wp_78_X4))*owf_wm_56_X5)) oks_l1l1bl2l2bu2_1_d2b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d1_2_u2b__2 & + owf_a_1234*( - v_ff(qup,owf_u2b__2_567_X5,owf_u2_2__8) & - v_ff(qdwn,owf_d1b__2_7,owf_d1_2__568_X11) & + v_ff(qdwn,owf_d2b__1_578_X11,owf_d2_1__6) & + v_ff(qup,owf_u2b__1_5,owf_u2_1__678_X15)) oks_l1l1bl2l2bu2_1_d2b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d1_2_u2b__2 & + owf_a_1234*( + g_gg(iqw,owf_wm_56_X5,p56,owf_wp_78_X4,p78)) oks_l1l1bl2l2bu2_1_d2b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d1_2_u2b__2 & + owf_wp_1278_X4*( - vl_ff(gccq22,owf_u2b__1_345,owf_d2_1__6) & - vl_ff(gccq22,owf_u2b__1_5,owf_d2_1__346) & + vl_ff(gcc,owf_n2b_356_X5,owf_l2_4)) oks_l1l1bl2l2bu2_1_d2b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d1_2_u2b__2 & + owf_wp_1278_X4*( + g_gg(iqw,owf_a_34,p34,owf_wm_56_X5,p56) & + g_gg(igzww,owf_z_34,p34,owf_wm_56_X5,p56)) oks_l1l1bl2l2bu2_1_d2b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d1_2_u2b__2 & + owf_wm_1256_X5*( - vl_ff(gccq21,owf_d1b__2_347,owf_u2_2__8) & - vl_ff(gccq21,owf_d1b__2_7,owf_u2_2__348) & + vl_ff(gcc,owf_l2b_3,owf_n2_478_X4)) oks_l1l1bl2l2bu2_1_d2b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d1_2_u2b__2 & + owf_wm_1256_X5*( + g_gg(iqw,owf_wp_78_X4,p78,owf_a_34,p34) & + g_gg(igzww,owf_wp_78_X4,p78,owf_z_34,p34)) oks_l1l1bl2l2bu2_1_d2b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d1_2_u2b__2 & + owf_z_12*( - ((((-2)*gzzww)*(owf_wm_56_X5*owf_wp_78_X4))*owf_z_34 & + ((gzzww)*(owf_z_34*owf_wm_56_X5))*owf_wp_78_X4 & + ((gzzww)*(owf_z_34*owf_wp_78_X4))*owf_wm_56_X5) & - ((((-2)*gazww)*(owf_wm_56_X5*owf_wp_78_X4))*owf_a_34 & + ((gazww)*(owf_a_34*owf_wp_78_X4))*owf_wm_56_X5 & + ((gazww)*(owf_a_34*owf_wm_56_X5))*owf_wp_78_X4)) oks_l1l1bl2l2bu2_1_d2b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d1_2_u2b__2 & + owf_z_1234*( & - va_ff(gncup(1),gncup(2),owf_u2b__2_567_X5,owf_u2_2__8) & - va_ff(gncdwn(1),gncdwn(2),owf_d1b__2_7,owf_d1_2__568_X11) & + va_ff(gncdwn(1),gncdwn(2),owf_d2b__1_578_X11,owf_d2_1__6) & + va_ff(gncup(1),gncup(2),owf_u2b__1_5,owf_u2_1__678_X15)) oks_l1l1bl2l2bu2_1_d2b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d1_2_u2b__2 & + owf_z_1234*( + g_gg(igzww,owf_wm_56_X5,p56,owf_wp_78_X4,p78)) oks_l1l1bl2l2bu2_1_d2b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d1_2_u2b__2 & + owf_h_1234*( - s_ff(ghcc,owf_u2b__2_567_X5,owf_u2_2__8) & + s_ff(ghcc,owf_u2b__1_5,owf_u2_1__678_X15)) oks_l1l1bl2l2bu2_1_d2b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d1_2_u2b__2 & + owf_h_1234*( + ghww*(owf_wm_56_X5*owf_wp_78_X4)) oks_l1l1bl2l2bu2_1_d2b__1d1_2_u2b__2 = & - oks_l1l1bl2l2bu2_1_d2b__1d1_2_u2b__2 ! 6 vertices, 5 propagators ! unit symmetry factor end subroutine compute_brakets_0029 subroutine compute_brakets_0030 () oks_l1l1bl2l2bu2_1_d2b__1d1_2_u1b__2 = 0 oks_l1l1bl2l2bu2_1_d2b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d1_2_u1b__2 & + owf_l2b_123*( - f_vlf(gcc,owf_wm_56_X5,owf_n2_478_X1)) oks_l1l1bl2l2bu2_1_d2b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d1_2_u1b__2 & + ( + f_fvl(gcc,owf_n1b_256_X5,owf_wp_78_X1))*owf_l1_134 oks_l1l1bl2l2bu2_1_d2b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d1_2_u1b__2 & + ( - f_fvl(gcc,owf_n2b_356_X5,owf_wp_78_X1))*owf_l2_124 oks_l1l1bl2l2bu2_1_d2b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d1_2_u1b__2 & + owf_n2b_356_X5*( & + f_vaf(gncneu(1),gncneu(2),owf_z_12,owf_n2_478_X1)) oks_l1l1bl2l2bu2_1_d2b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d1_2_u1b__2 & + ( + f_fva(gncneu(1),gncneu(2),owf_n1b_256_X5,owf_z_34) & + f_fvl(gcc,owf_l1b_234,owf_wm_56_X5))*owf_n1_178_X1 oks_l1l1bl2l2bu2_1_d2b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d1_2_u1b__2 & + owf_u2b__1_125*( & - f_vaf(gncup(1),gncup(2),owf_z_34,owf_u2_1__678_X12) & - f_vf(qup,owf_a_34,owf_u2_1__678_X12) & + f_vlf(gccq22,owf_wp_78_X1,owf_d2_1__346)) oks_l1l1bl2l2bu2_1_d2b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d1_2_u1b__2 & + owf_u2b__1_345*( & - f_vaf(gncup(1),gncup(2),owf_z_12,owf_u2_1__678_X12) & - f_vf(qup,owf_a_12,owf_u2_1__678_X12)) oks_l1l1bl2l2bu2_1_d2b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d1_2_u1b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u1b__2_567_X5,owf_z_34) & + f_fv(qup,owf_u1b__2_567_X5,owf_a_34) & + f_fvl(gccq11,owf_d1b__2_347,owf_wm_56_X5))*owf_u1_2__128 oks_l1l1bl2l2bu2_1_d2b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d1_2_u1b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u1b__2_567_X5,owf_z_12) & + f_fv(qup,owf_u1b__2_567_X5,owf_a_12))*owf_u1_2__348 oks_l1l1bl2l2bu2_1_d2b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d1_2_u1b__2 & + owf_d1b__2_127*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_34,owf_d1_2__568_X5) & + f_vf(qdwn,owf_a_34,owf_d1_2__568_X5) & + f_vlf(gccq11,owf_wm_56_X5,owf_u1_2__348)) oks_l1l1bl2l2bu2_1_d2b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d1_2_u1b__2 & + owf_d1b__2_347*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_12,owf_d1_2__568_X5) & + f_vf(qdwn,owf_a_12,owf_d1_2__568_X5)) oks_l1l1bl2l2bu2_1_d2b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d1_2_u1b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d2b__1_578_X8,owf_z_34) & - f_fv(qdwn,owf_d2b__1_578_X8,owf_a_34) & + f_fvl(gccq22,owf_u2b__1_345,owf_wp_78_X1))*owf_d2_1__126 oks_l1l1bl2l2bu2_1_d2b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d1_2_u1b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d2b__1_578_X8,owf_z_12) & - f_fv(qdwn,owf_d2b__1_578_X8,owf_a_12))*owf_d2_1__346 oks_l1l1bl2l2bu2_1_d2b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d1_2_u1b__2 & + owf_a_12*( - ((((-2)*gazww)*(owf_wm_56_X5*owf_wp_78_X1))*owf_z_34 & + ((gazww)*(owf_z_34*owf_wm_56_X5))*owf_wp_78_X1 & + ((gazww)*(owf_z_34*owf_wp_78_X1))*owf_wm_56_X5) & - ((((-2)*gaaww)*(owf_wm_56_X5*owf_wp_78_X1))*owf_a_34 & + ((gaaww)*(owf_a_34*owf_wm_56_X5))*owf_wp_78_X1 & + ((gaaww)*(owf_a_34*owf_wp_78_X1))*owf_wm_56_X5)) oks_l1l1bl2l2bu2_1_d2b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d1_2_u1b__2 & + owf_a_1234*( - v_ff(qup,owf_u1b__2_567_X5,owf_u1_2__8) & - v_ff(qdwn,owf_d1b__2_7,owf_d1_2__568_X5) & + v_ff(qdwn,owf_d2b__1_578_X8,owf_d2_1__6) & + v_ff(qup,owf_u2b__1_5,owf_u2_1__678_X12)) oks_l1l1bl2l2bu2_1_d2b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d1_2_u1b__2 & + owf_a_1234*( + g_gg(iqw,owf_wm_56_X5,p56,owf_wp_78_X1,p78)) oks_l1l1bl2l2bu2_1_d2b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d1_2_u1b__2 & + owf_wp_1278_X1*( - vl_ff(gccq22,owf_u2b__1_345,owf_d2_1__6) & - vl_ff(gccq22,owf_u2b__1_5,owf_d2_1__346) & + vl_ff(gcc,owf_n2b_356_X5,owf_l2_4)) oks_l1l1bl2l2bu2_1_d2b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d1_2_u1b__2 & + owf_wp_1278_X1*( + g_gg(iqw,owf_a_34,p34,owf_wm_56_X5,p56) & + g_gg(igzww,owf_z_34,p34,owf_wm_56_X5,p56)) oks_l1l1bl2l2bu2_1_d2b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d1_2_u1b__2 & + owf_wm_1256_X5*( - vl_ff(gccq11,owf_d1b__2_347,owf_u1_2__8) & - vl_ff(gccq11,owf_d1b__2_7,owf_u1_2__348) & + vl_ff(gcc,owf_l2b_3,owf_n2_478_X1)) oks_l1l1bl2l2bu2_1_d2b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d1_2_u1b__2 & + owf_wm_1256_X5*( + g_gg(iqw,owf_wp_78_X1,p78,owf_a_34,p34) & + g_gg(igzww,owf_wp_78_X1,p78,owf_z_34,p34)) oks_l1l1bl2l2bu2_1_d2b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d1_2_u1b__2 & + owf_z_12*( - ((((-2)*gzzww)*(owf_wm_56_X5*owf_wp_78_X1))*owf_z_34 & + ((gzzww)*(owf_z_34*owf_wm_56_X5))*owf_wp_78_X1 & + ((gzzww)*(owf_z_34*owf_wp_78_X1))*owf_wm_56_X5) & - ((((-2)*gazww)*(owf_wm_56_X5*owf_wp_78_X1))*owf_a_34 & + ((gazww)*(owf_a_34*owf_wp_78_X1))*owf_wm_56_X5 & + ((gazww)*(owf_a_34*owf_wm_56_X5))*owf_wp_78_X1)) oks_l1l1bl2l2bu2_1_d2b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d1_2_u1b__2 & + owf_z_1234*( & - va_ff(gncup(1),gncup(2),owf_u1b__2_567_X5,owf_u1_2__8) & - va_ff(gncdwn(1),gncdwn(2),owf_d1b__2_7,owf_d1_2__568_X5) & + va_ff(gncdwn(1),gncdwn(2),owf_d2b__1_578_X8,owf_d2_1__6) & + va_ff(gncup(1),gncup(2),owf_u2b__1_5,owf_u2_1__678_X12)) oks_l1l1bl2l2bu2_1_d2b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d1_2_u1b__2 & + owf_z_1234*( + g_gg(igzww,owf_wm_56_X5,p56,owf_wp_78_X1,p78)) oks_l1l1bl2l2bu2_1_d2b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d1_2_u1b__2 & + owf_h_1234*( + s_ff(ghcc,owf_u2b__1_5,owf_u2_1__678_X12)) oks_l1l1bl2l2bu2_1_d2b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d1_2_u1b__2 & + owf_h_1234*( + ghww*(owf_wm_56_X5*owf_wp_78_X1)) oks_l1l1bl2l2bu2_1_d2b__1d1_2_u1b__2 = & - oks_l1l1bl2l2bu2_1_d2b__1d1_2_u1b__2 ! 6 vertices, 5 propagators ! unit symmetry factor end subroutine compute_brakets_0030 subroutine compute_brakets_0031 () oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 = 0 oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 = oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 & + owf_l2b_123*( & + f_vaf(gnclep(1),gnclep(2),owf_z_58_X2,owf_l2_467_X2) & + f_vaf(gnclep(1),gnclep(2),owf_z_67_X2,owf_l2_458_X2) & + f_vf(qlep,owf_a_58_X2,owf_l2_467_X2) & + f_vf(qlep,owf_a_67_X2,owf_l2_458_X2)) oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 = oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 & + owf_l2b_358_X2*( & - f_vaf(gnclep(1),gnclep(2),owf_z_12,owf_l2_467_X2) & - f_vf(qlep,owf_a_12,owf_l2_467_X2)) oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 = oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 & + owf_l2b_367_X2*( & - f_vaf(gnclep(1),gnclep(2),owf_z_12,owf_l2_458_X2) & - f_vf(qlep,owf_a_12,owf_l2_458_X2)) oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 = oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 & + ( - f_fva(gnclep(1),gnclep(2),owf_l1b_267_X2,owf_z_58_X2) & - f_fva(gnclep(1),gnclep(2),owf_l1b_258_X2,owf_z_67_X2) & - f_fv(qlep,owf_l1b_267_X2,owf_a_58_X2) & - f_fv(qlep,owf_l1b_258_X2,owf_a_67_X2))*owf_l1_134 oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 = oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 & + ( - f_fva(gnclep(1),gnclep(2),owf_l1b_234,owf_z_67_X2) & - f_fva(gnclep(1),gnclep(2),owf_l1b_267_X2,owf_z_34) & - f_fv(qlep,owf_l1b_234,owf_a_67_X2) & - f_fv(qlep,owf_l1b_267_X2,owf_a_34))*owf_l1_158_X2 oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 = oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 & + ( - f_fva(gnclep(1),gnclep(2),owf_l1b_234,owf_z_58_X2) & - f_fva(gnclep(1),gnclep(2),owf_l1b_258_X2,owf_z_34) & - f_fv(qlep,owf_l1b_234,owf_a_58_X2) & - f_fv(qlep,owf_l1b_258_X2,owf_a_34))*owf_l1_167_X2 oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 = oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 & + ( + f_fva(gnclep(1),gnclep(2),owf_l2b_367_X2,owf_z_58_X2) & + f_fva(gnclep(1),gnclep(2),owf_l2b_358_X2,owf_z_67_X2) & + f_fv(qlep,owf_l2b_367_X2,owf_a_58_X2) & + f_fv(qlep,owf_l2b_358_X2,owf_a_67_X2))*owf_l2_124 oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 = oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 & + owf_u2b__1_125*( - f_vf((-gs),owf_gl___67_X2,owf_u2_1__348) & - f_vaf(gncup(1),gncup(2),owf_z_67_X2,owf_u2_1__348) & - f_vaf(gncup(1),gncup(2),owf_z_34,owf_u2_1__678_X5) & - f_vf(qup,owf_a_67_X2,owf_u2_1__348) & - f_vf(qup,owf_a_34,owf_u2_1__678_X5)) oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 = oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 & + owf_u2b__1_345*( & - f_vaf(gncup(1),gncup(2),owf_z_12,owf_u2_1__678_X5) & - f_vf(qup,owf_a_12,owf_u2_1__678_X5)) oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 = oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 & + ( - f_fv((-gs),owf_u2b__1_345,owf_gl___67_X2) & - f_fva(gncup(1),gncup(2),owf_u2b__1_345,owf_z_67_X2) & - f_fv(qup,owf_u2b__1_345,owf_a_67_X2) & + f_fva(gncup(1),gncup(2),owf_u2b__1_567_X2,owf_z_34) & + f_fv(qup,owf_u2b__1_567_X2,owf_a_34))*owf_u2_1__128 oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 = oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 & + ( + f_fva(gncup(1),gncup(2),owf_u2b__1_567_X2,owf_z_12) & + f_fv(qup,owf_u2b__1_567_X2,owf_a_12))*owf_u2_1__348 oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 = oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 & + owf_d2b__2_127*( - f_vf((-gs),owf_gl___58_X2,owf_d2_2__346) & - f_vaf(gncdwn(1),gncdwn(2),owf_z_58_X2,owf_d2_2__346) & - f_vf(qdwn,owf_a_58_X2,owf_d2_2__346) & + f_vaf(gncdwn(1),gncdwn(2),owf_z_34,owf_d2_2__568_X14) & + f_vf(qdwn,owf_a_34,owf_d2_2__568_X14)) oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 = oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 & + owf_d2b__2_347*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_12,owf_d2_2__568_X14) & + f_vf(qdwn,owf_a_12,owf_d2_2__568_X14)) oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 = oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 & + ( - f_fv((-gs),owf_d2b__2_347,owf_gl___58_X2) & - f_fva(gncdwn(1),gncdwn(2),owf_d2b__2_347,owf_z_58_X2) & - f_fva(gncdwn(1),gncdwn(2),owf_d2b__2_578_X2,owf_z_34) & - f_fv(qdwn,owf_d2b__2_347,owf_a_58_X2) & - f_fv(qdwn,owf_d2b__2_578_X2,owf_a_34))*owf_d2_2__126 oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 = oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d2b__2_578_X2,owf_z_12) & - f_fv(qdwn,owf_d2b__2_578_X2,owf_a_12))*owf_d2_2__346 oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 = oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 & + owf_a_1267_X2*( - v_ff(qlep,owf_l2b_358_X2,owf_l2_4) & - v_ff(qlep,owf_l2b_3,owf_l2_458_X2) & + v_ff(qup,owf_u2b__1_345,owf_u2_1__8) & + v_ff(qup,owf_u2b__1_5,owf_u2_1__348)) oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 = oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 & + owf_a_1258_X1*( - v_ff(qlep,owf_l2b_367_X2,owf_l2_4) & - v_ff(qlep,owf_l2b_3,owf_l2_467_X2) & + v_ff(qdwn,owf_d2b__2_347,owf_d2_2__6) & + v_ff(qdwn,owf_d2b__2_7,owf_d2_2__346)) oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 = oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 & + owf_a_1234*( - v_ff(qup,owf_u2b__1_567_X2,owf_u2_1__8) & - v_ff(qdwn,owf_d2b__2_7,owf_d2_2__568_X14) & + v_ff(qdwn,owf_d2b__2_578_X2,owf_d2_2__6) & + v_ff(qup,owf_u2b__1_5,owf_u2_1__678_X5)) oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 = oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 & + owf_z_1267_X2*( & - va_ff(gnclep(1),gnclep(2),owf_l2b_358_X2,owf_l2_4) & - va_ff(gnclep(1),gnclep(2),owf_l2b_3,owf_l2_458_X2) & + va_ff(gncup(1),gncup(2),owf_u2b__1_345,owf_u2_1__8) & + va_ff(gncup(1),gncup(2),owf_u2b__1_5,owf_u2_1__348)) oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 = oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 & + owf_z_1258_X1*( & - va_ff(gnclep(1),gnclep(2),owf_l2b_367_X2,owf_l2_4) & - va_ff(gnclep(1),gnclep(2),owf_l2b_3,owf_l2_467_X2) & + va_ff(gncdwn(1),gncdwn(2),owf_d2b__2_347,owf_d2_2__6) & + va_ff(gncdwn(1),gncdwn(2),owf_d2b__2_7,owf_d2_2__346)) oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 = oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 & + owf_z_1234*( & - va_ff(gncup(1),gncup(2),owf_u2b__1_567_X2,owf_u2_1__8) & - va_ff(gncdwn(1),gncdwn(2),owf_d2b__2_7,owf_d2_2__568_X14) & + va_ff(gncdwn(1),gncdwn(2),owf_d2b__2_578_X2,owf_d2_2__6) & + va_ff(gncup(1),gncup(2),owf_u2b__1_5,owf_u2_1__678_X5)) oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 = oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 & + owf_z_1234*( - (ghzz*owf_h_58)*owf_z_67_X2) oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 = oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 & + owf_z_1267_X2*( - (ghzz*owf_h_58)*owf_z_34) oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 = oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 & + owf_gl___1267_X2*( + v_ff((-gs),owf_u2b__1_345,owf_u2_1__8) & + v_ff((-gs),owf_u2b__1_5,owf_u2_1__348)) oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 = oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 & + owf_gl___1258_X1*( + v_ff((-gs),owf_d2b__2_347,owf_d2_2__6) & + v_ff((-gs),owf_d2b__2_7,owf_d2_2__346)) oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 = oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 & + owf_h_1267_X3*( + s_ff(ghcc,owf_u2b__1_345,owf_u2_1__8) & + s_ff(ghcc,owf_u2b__1_5,owf_u2_1__348)) oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 = oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 & + owf_h_1234*( - s_ff(ghcc,owf_u2b__1_567_X2,owf_u2_1__8) & + s_ff(ghcc,owf_u2b__1_5,owf_u2_1__678_X5)) oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 = oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 & + owf_h_1234*( - ghzz*(owf_z_58_X2*owf_z_67_X2)) oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 = oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 & + owf_h_1258_X1*( - ghzz*(owf_z_34*owf_z_67_X2)) oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 = oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 & + owf_h_1267_X3*( - ghzz*(owf_z_34*owf_z_58_X2)) oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 = & - oks_l1l1bl2l2bu2_1_d2b__2d2_2_u2b__1 ! 6 vertices, 5 propagators ! unit symmetry factor end subroutine compute_brakets_0031 subroutine compute_brakets_0032 () oks_l1l1bl2l2bu2_1_d2b__1d2_2_u2b__2 = 0 oks_l1l1bl2l2bu2_1_d2b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d2_2_u2b__2 & + owf_l2b_123*( - f_vlf(gcc,owf_wm_56_X5,owf_n2_478_X5)) oks_l1l1bl2l2bu2_1_d2b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d2_2_u2b__2 & + ( + f_fvl(gcc,owf_n1b_256_X5,owf_wp_78_X5))*owf_l1_134 oks_l1l1bl2l2bu2_1_d2b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d2_2_u2b__2 & + ( - f_fvl(gcc,owf_n2b_356_X5,owf_wp_78_X5))*owf_l2_124 oks_l1l1bl2l2bu2_1_d2b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d2_2_u2b__2 & + owf_n2b_356_X5*( & + f_vaf(gncneu(1),gncneu(2),owf_z_12,owf_n2_478_X5)) oks_l1l1bl2l2bu2_1_d2b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d2_2_u2b__2 & + ( + f_fva(gncneu(1),gncneu(2),owf_n1b_256_X5,owf_z_34) & + f_fvl(gcc,owf_l1b_234,owf_wm_56_X5))*owf_n1_178_X5 oks_l1l1bl2l2bu2_1_d2b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d2_2_u2b__2 & + owf_u2b__1_125*( - f_vf((-gs),owf_gl_1_2_67_X2,owf_u2_2__348) & - f_vaf(gncup(1),gncup(2),owf_z_34,owf_u2_1__678_X2) & - f_vf(qup,owf_a_34,owf_u2_1__678_X2) & + f_vlf(gccq22,owf_wp_78_X5,owf_d2_1__346)) oks_l1l1bl2l2bu2_1_d2b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d2_2_u2b__2 & + owf_u2b__1_345*( & - f_vaf(gncup(1),gncup(2),owf_z_12,owf_u2_1__678_X2) & - f_vf(qup,owf_a_12,owf_u2_1__678_X2)) oks_l1l1bl2l2bu2_1_d2b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d2_2_u2b__2 & + ( - f_fv((-gs),owf_u2b__1_345,owf_gl_1_2_67_X2) & + f_fva(gncup(1),gncup(2),owf_u2b__2_567_X11,owf_z_34) & + f_fv(qup,owf_u2b__2_567_X11,owf_a_34) & + f_fvl(gccq22,owf_d2b__2_347,owf_wm_56_X5))*owf_u2_2__128 oks_l1l1bl2l2bu2_1_d2b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d2_2_u2b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u2b__2_567_X11,owf_z_12) & + f_fv(qup,owf_u2b__2_567_X11,owf_a_12))*owf_u2_2__348 oks_l1l1bl2l2bu2_1_d2b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d2_2_u2b__2 & + owf_d2b__2_127*( - f_vf((-gs),owf_gl_2_1_58_X2,owf_d2_1__346) & + f_vaf(gncdwn(1),gncdwn(2),owf_z_34,owf_d2_2__568_X11) & + f_vf(qdwn,owf_a_34,owf_d2_2__568_X11) & + f_vlf(gccq22,owf_wm_56_X5,owf_u2_2__348)) oks_l1l1bl2l2bu2_1_d2b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d2_2_u2b__2 & + owf_d2b__2_347*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_12,owf_d2_2__568_X11) & + f_vf(qdwn,owf_a_12,owf_d2_2__568_X11)) oks_l1l1bl2l2bu2_1_d2b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d2_2_u2b__2 & + ( - f_fv((-gs),owf_d2b__2_347,owf_gl_2_1_58_X2) & - f_fva(gncdwn(1),gncdwn(2),owf_d2b__1_578_X2,owf_z_34) & - f_fv(qdwn,owf_d2b__1_578_X2,owf_a_34) & + f_fvl(gccq22,owf_u2b__1_345,owf_wp_78_X5))*owf_d2_1__126 oks_l1l1bl2l2bu2_1_d2b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d2_2_u2b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d2b__1_578_X2,owf_z_12) & - f_fv(qdwn,owf_d2b__1_578_X2,owf_a_12))*owf_d2_1__346 oks_l1l1bl2l2bu2_1_d2b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d2_2_u2b__2 & + owf_a_12*( - ((((-2)*gazww)*(owf_wm_56_X5*owf_wp_78_X5))*owf_z_34 & + ((gazww)*(owf_z_34*owf_wm_56_X5))*owf_wp_78_X5 & + ((gazww)*(owf_z_34*owf_wp_78_X5))*owf_wm_56_X5) & - ((((-2)*gaaww)*(owf_wm_56_X5*owf_wp_78_X5))*owf_a_34 & + ((gaaww)*(owf_a_34*owf_wm_56_X5))*owf_wp_78_X5 & + ((gaaww)*(owf_a_34*owf_wp_78_X5))*owf_wm_56_X5)) oks_l1l1bl2l2bu2_1_d2b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d2_2_u2b__2 & + owf_a_1234*( - v_ff(qup,owf_u2b__2_567_X11,owf_u2_2__8) & - v_ff(qdwn,owf_d2b__2_7,owf_d2_2__568_X11) & + v_ff(qdwn,owf_d2b__1_578_X2,owf_d2_1__6) & + v_ff(qup,owf_u2b__1_5,owf_u2_1__678_X2)) oks_l1l1bl2l2bu2_1_d2b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d2_2_u2b__2 & + owf_a_1234*( + g_gg(iqw,owf_wm_56_X5,p56,owf_wp_78_X5,p78)) oks_l1l1bl2l2bu2_1_d2b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d2_2_u2b__2 & + owf_wp_1278_X5*( - vl_ff(gccq22,owf_u2b__1_345,owf_d2_1__6) & - vl_ff(gccq22,owf_u2b__1_5,owf_d2_1__346) & + vl_ff(gcc,owf_n2b_356_X5,owf_l2_4)) oks_l1l1bl2l2bu2_1_d2b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d2_2_u2b__2 & + owf_wp_1278_X5*( + g_gg(iqw,owf_a_34,p34,owf_wm_56_X5,p56) & + g_gg(igzww,owf_z_34,p34,owf_wm_56_X5,p56)) oks_l1l1bl2l2bu2_1_d2b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d2_2_u2b__2 & + owf_wm_1256_X5*( - vl_ff(gccq22,owf_d2b__2_347,owf_u2_2__8) & - vl_ff(gccq22,owf_d2b__2_7,owf_u2_2__348) & + vl_ff(gcc,owf_l2b_3,owf_n2_478_X5)) oks_l1l1bl2l2bu2_1_d2b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d2_2_u2b__2 & + owf_wm_1256_X5*( + g_gg(iqw,owf_wp_78_X5,p78,owf_a_34,p34) & + g_gg(igzww,owf_wp_78_X5,p78,owf_z_34,p34)) oks_l1l1bl2l2bu2_1_d2b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d2_2_u2b__2 & + owf_z_12*( - ((((-2)*gzzww)*(owf_wm_56_X5*owf_wp_78_X5))*owf_z_34 & + ((gzzww)*(owf_z_34*owf_wm_56_X5))*owf_wp_78_X5 & + ((gzzww)*(owf_z_34*owf_wp_78_X5))*owf_wm_56_X5) & - ((((-2)*gazww)*(owf_wm_56_X5*owf_wp_78_X5))*owf_a_34 & + ((gazww)*(owf_a_34*owf_wp_78_X5))*owf_wm_56_X5 & + ((gazww)*(owf_a_34*owf_wm_56_X5))*owf_wp_78_X5)) oks_l1l1bl2l2bu2_1_d2b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d2_2_u2b__2 & + owf_z_1234*( & - va_ff(gncup(1),gncup(2),owf_u2b__2_567_X11,owf_u2_2__8) & - va_ff(gncdwn(1),gncdwn(2),owf_d2b__2_7,owf_d2_2__568_X11) & + va_ff(gncdwn(1),gncdwn(2),owf_d2b__1_578_X2,owf_d2_1__6) & + va_ff(gncup(1),gncup(2),owf_u2b__1_5,owf_u2_1__678_X2)) oks_l1l1bl2l2bu2_1_d2b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d2_2_u2b__2 & + owf_z_1234*( + g_gg(igzww,owf_wm_56_X5,p56,owf_wp_78_X5,p78)) oks_l1l1bl2l2bu2_1_d2b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d2_2_u2b__2 & + owf_gl_1_2_1267_X2*( + v_ff((-gs),owf_u2b__1_345,owf_u2_2__8) & + v_ff((-gs),owf_u2b__1_5,owf_u2_2__348)) oks_l1l1bl2l2bu2_1_d2b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d2_2_u2b__2 & + owf_gl_2_1_1258_X1*( + v_ff((-gs),owf_d2b__2_347,owf_d2_1__6) & + v_ff((-gs),owf_d2b__2_7,owf_d2_1__346)) oks_l1l1bl2l2bu2_1_d2b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d2_2_u2b__2 & + owf_h_1234*( - s_ff(ghcc,owf_u2b__2_567_X11,owf_u2_2__8) & + s_ff(ghcc,owf_u2b__1_5,owf_u2_1__678_X2)) oks_l1l1bl2l2bu2_1_d2b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d2_2_u2b__2 & + owf_h_1234*( + ghww*(owf_wm_56_X5*owf_wp_78_X5)) oks_l1l1bl2l2bu2_1_d2b__1d2_2_u2b__2 = & - oks_l1l1bl2l2bu2_1_d2b__1d2_2_u2b__2 ! 6 vertices, 5 propagators ! unit symmetry factor end subroutine compute_brakets_0032 subroutine compute_brakets_0033 () oks_l1l1bl2l2bu2_1_d2b__1d2_2_u1b__2 = 0 oks_l1l1bl2l2bu2_1_d2b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d2_2_u1b__2 & + owf_l2b_123*( - f_vlf(gcc,owf_wm_56_X5,owf_n2_478_X2)) oks_l1l1bl2l2bu2_1_d2b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d2_2_u1b__2 & + ( + f_fvl(gcc,owf_n1b_256_X5,owf_wp_78_X2))*owf_l1_134 oks_l1l1bl2l2bu2_1_d2b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d2_2_u1b__2 & + ( - f_fvl(gcc,owf_n2b_356_X5,owf_wp_78_X2))*owf_l2_124 oks_l1l1bl2l2bu2_1_d2b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d2_2_u1b__2 & + owf_n2b_356_X5*( & + f_vaf(gncneu(1),gncneu(2),owf_z_12,owf_n2_478_X2)) oks_l1l1bl2l2bu2_1_d2b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d2_2_u1b__2 & + ( + f_fva(gncneu(1),gncneu(2),owf_n1b_256_X5,owf_z_34) & + f_fvl(gcc,owf_l1b_234,owf_wm_56_X5))*owf_n1_178_X2 oks_l1l1bl2l2bu2_1_d2b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d2_2_u1b__2 & + owf_u2b__1_125*( & - f_vaf(gncup(1),gncup(2),owf_z_34,owf_u2_1__678_X13) & - f_vf(qup,owf_a_34,owf_u2_1__678_X13) & + f_vlf(gccq22,owf_wp_78_X2,owf_d2_1__346)) oks_l1l1bl2l2bu2_1_d2b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d2_2_u1b__2 & + owf_u2b__1_345*( & - f_vaf(gncup(1),gncup(2),owf_z_12,owf_u2_1__678_X13) & - f_vf(qup,owf_a_12,owf_u2_1__678_X13)) oks_l1l1bl2l2bu2_1_d2b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d2_2_u1b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u1b__2_567_X11,owf_z_34) & + f_fv(qup,owf_u1b__2_567_X11,owf_a_34) & + f_fvl(gccq12,owf_d2b__2_347,owf_wm_56_X5))*owf_u1_2__128 oks_l1l1bl2l2bu2_1_d2b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d2_2_u1b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u1b__2_567_X11,owf_z_12) & + f_fv(qup,owf_u1b__2_567_X11,owf_a_12))*owf_u1_2__348 oks_l1l1bl2l2bu2_1_d2b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d2_2_u1b__2 & + owf_d2b__2_127*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_34,owf_d2_2__568_X5) & + f_vf(qdwn,owf_a_34,owf_d2_2__568_X5) & + f_vlf(gccq12,owf_wm_56_X5,owf_u1_2__348)) oks_l1l1bl2l2bu2_1_d2b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d2_2_u1b__2 & + owf_d2b__2_347*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_12,owf_d2_2__568_X5) & + f_vf(qdwn,owf_a_12,owf_d2_2__568_X5)) oks_l1l1bl2l2bu2_1_d2b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d2_2_u1b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d2b__1_578_X9,owf_z_34) & - f_fv(qdwn,owf_d2b__1_578_X9,owf_a_34) & + f_fvl(gccq22,owf_u2b__1_345,owf_wp_78_X2))*owf_d2_1__126 oks_l1l1bl2l2bu2_1_d2b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d2_2_u1b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d2b__1_578_X9,owf_z_12) & - f_fv(qdwn,owf_d2b__1_578_X9,owf_a_12))*owf_d2_1__346 oks_l1l1bl2l2bu2_1_d2b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d2_2_u1b__2 & + owf_a_12*( - ((((-2)*gazww)*(owf_wm_56_X5*owf_wp_78_X2))*owf_z_34 & + ((gazww)*(owf_z_34*owf_wm_56_X5))*owf_wp_78_X2 & + ((gazww)*(owf_z_34*owf_wp_78_X2))*owf_wm_56_X5) & - ((((-2)*gaaww)*(owf_wm_56_X5*owf_wp_78_X2))*owf_a_34 & + ((gaaww)*(owf_a_34*owf_wm_56_X5))*owf_wp_78_X2 & + ((gaaww)*(owf_a_34*owf_wp_78_X2))*owf_wm_56_X5)) oks_l1l1bl2l2bu2_1_d2b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d2_2_u1b__2 & + owf_a_1234*( - v_ff(qup,owf_u1b__2_567_X11,owf_u1_2__8) & - v_ff(qdwn,owf_d2b__2_7,owf_d2_2__568_X5) & + v_ff(qdwn,owf_d2b__1_578_X9,owf_d2_1__6) & + v_ff(qup,owf_u2b__1_5,owf_u2_1__678_X13)) oks_l1l1bl2l2bu2_1_d2b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d2_2_u1b__2 & + owf_a_1234*( + g_gg(iqw,owf_wm_56_X5,p56,owf_wp_78_X2,p78)) oks_l1l1bl2l2bu2_1_d2b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d2_2_u1b__2 & + owf_wp_1278_X2*( - vl_ff(gccq22,owf_u2b__1_345,owf_d2_1__6) & - vl_ff(gccq22,owf_u2b__1_5,owf_d2_1__346) & + vl_ff(gcc,owf_n2b_356_X5,owf_l2_4)) oks_l1l1bl2l2bu2_1_d2b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d2_2_u1b__2 & + owf_wp_1278_X2*( + g_gg(iqw,owf_a_34,p34,owf_wm_56_X5,p56) & + g_gg(igzww,owf_z_34,p34,owf_wm_56_X5,p56)) oks_l1l1bl2l2bu2_1_d2b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d2_2_u1b__2 & + owf_wm_1256_X5*( - vl_ff(gccq12,owf_d2b__2_347,owf_u1_2__8) & - vl_ff(gccq12,owf_d2b__2_7,owf_u1_2__348) & + vl_ff(gcc,owf_l2b_3,owf_n2_478_X2)) oks_l1l1bl2l2bu2_1_d2b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d2_2_u1b__2 & + owf_wm_1256_X5*( + g_gg(iqw,owf_wp_78_X2,p78,owf_a_34,p34) & + g_gg(igzww,owf_wp_78_X2,p78,owf_z_34,p34)) oks_l1l1bl2l2bu2_1_d2b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d2_2_u1b__2 & + owf_z_12*( - ((((-2)*gzzww)*(owf_wm_56_X5*owf_wp_78_X2))*owf_z_34 & + ((gzzww)*(owf_z_34*owf_wm_56_X5))*owf_wp_78_X2 & + ((gzzww)*(owf_z_34*owf_wp_78_X2))*owf_wm_56_X5) & - ((((-2)*gazww)*(owf_wm_56_X5*owf_wp_78_X2))*owf_a_34 & + ((gazww)*(owf_a_34*owf_wp_78_X2))*owf_wm_56_X5 & + ((gazww)*(owf_a_34*owf_wm_56_X5))*owf_wp_78_X2)) oks_l1l1bl2l2bu2_1_d2b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d2_2_u1b__2 & + owf_z_1234*( & - va_ff(gncup(1),gncup(2),owf_u1b__2_567_X11,owf_u1_2__8) & - va_ff(gncdwn(1),gncdwn(2),owf_d2b__2_7,owf_d2_2__568_X5) & + va_ff(gncdwn(1),gncdwn(2),owf_d2b__1_578_X9,owf_d2_1__6) & + va_ff(gncup(1),gncup(2),owf_u2b__1_5,owf_u2_1__678_X13)) oks_l1l1bl2l2bu2_1_d2b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d2_2_u1b__2 & + owf_z_1234*( + g_gg(igzww,owf_wm_56_X5,p56,owf_wp_78_X2,p78)) oks_l1l1bl2l2bu2_1_d2b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d2_2_u1b__2 & + owf_h_1234*( + s_ff(ghcc,owf_u2b__1_5,owf_u2_1__678_X13)) oks_l1l1bl2l2bu2_1_d2b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d2_2_u1b__2 & + owf_h_1234*( + ghww*(owf_wm_56_X5*owf_wp_78_X2)) oks_l1l1bl2l2bu2_1_d2b__1d2_2_u1b__2 = & - oks_l1l1bl2l2bu2_1_d2b__1d2_2_u1b__2 ! 6 vertices, 5 propagators ! unit symmetry factor end subroutine compute_brakets_0033 subroutine compute_brakets_0034 () oks_l1l1bl2l2bu2_1_d2b__1d3_2_u2b__2 = 0 oks_l1l1bl2l2bu2_1_d2b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d3_2_u2b__2 & + owf_l2b_123*( - f_vlf(gcc,owf_wm_56_X5,owf_n2_478_X6)) oks_l1l1bl2l2bu2_1_d2b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d3_2_u2b__2 & + ( + f_fvl(gcc,owf_n1b_256_X5,owf_wp_78_X6))*owf_l1_134 oks_l1l1bl2l2bu2_1_d2b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d3_2_u2b__2 & + ( - f_fvl(gcc,owf_n2b_356_X5,owf_wp_78_X6))*owf_l2_124 oks_l1l1bl2l2bu2_1_d2b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d3_2_u2b__2 & + owf_n2b_356_X5*( & + f_vaf(gncneu(1),gncneu(2),owf_z_12,owf_n2_478_X6)) oks_l1l1bl2l2bu2_1_d2b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d3_2_u2b__2 & + ( + f_fva(gncneu(1),gncneu(2),owf_n1b_256_X5,owf_z_34) & + f_fvl(gcc,owf_l1b_234,owf_wm_56_X5))*owf_n1_178_X6 oks_l1l1bl2l2bu2_1_d2b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d3_2_u2b__2 & + owf_u2b__1_125*( & - f_vaf(gncup(1),gncup(2),owf_z_34,owf_u2_1__678_X16) & - f_vf(qup,owf_a_34,owf_u2_1__678_X16) & + f_vlf(gccq22,owf_wp_78_X6,owf_d2_1__346)) oks_l1l1bl2l2bu2_1_d2b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d3_2_u2b__2 & + owf_u2b__1_345*( & - f_vaf(gncup(1),gncup(2),owf_z_12,owf_u2_1__678_X16) & - f_vf(qup,owf_a_12,owf_u2_1__678_X16)) oks_l1l1bl2l2bu2_1_d2b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d3_2_u2b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u2b__2_567_X17,owf_z_34) & + f_fv(qup,owf_u2b__2_567_X17,owf_a_34) & + f_fvl(gccq23,owf_d3b__2_347,owf_wm_56_X5))*owf_u2_2__128 oks_l1l1bl2l2bu2_1_d2b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d3_2_u2b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u2b__2_567_X17,owf_z_12) & + f_fv(qup,owf_u2b__2_567_X17,owf_a_12))*owf_u2_2__348 oks_l1l1bl2l2bu2_1_d2b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d3_2_u2b__2 & + owf_d3b__2_127*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_34,owf_d3_2__568_X11) & + f_vf(qdwn,owf_a_34,owf_d3_2__568_X11) & + f_vlf(gccq23,owf_wm_56_X5,owf_u2_2__348)) oks_l1l1bl2l2bu2_1_d2b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d3_2_u2b__2 & + owf_d3b__2_347*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_12,owf_d3_2__568_X11) & + f_vf(qdwn,owf_a_12,owf_d3_2__568_X11)) oks_l1l1bl2l2bu2_1_d2b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d3_2_u2b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d2b__1_578_X12,owf_z_34) & - f_fv(qdwn,owf_d2b__1_578_X12,owf_a_34) & + f_fvl(gccq22,owf_u2b__1_345,owf_wp_78_X6))*owf_d2_1__126 oks_l1l1bl2l2bu2_1_d2b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d3_2_u2b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d2b__1_578_X12,owf_z_12) & - f_fv(qdwn,owf_d2b__1_578_X12,owf_a_12))*owf_d2_1__346 oks_l1l1bl2l2bu2_1_d2b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d3_2_u2b__2 & + owf_a_12*( - ((((-2)*gazww)*(owf_wm_56_X5*owf_wp_78_X6))*owf_z_34 & + ((gazww)*(owf_z_34*owf_wm_56_X5))*owf_wp_78_X6 & + ((gazww)*(owf_z_34*owf_wp_78_X6))*owf_wm_56_X5) & - ((((-2)*gaaww)*(owf_wm_56_X5*owf_wp_78_X6))*owf_a_34 & + ((gaaww)*(owf_a_34*owf_wm_56_X5))*owf_wp_78_X6 & + ((gaaww)*(owf_a_34*owf_wp_78_X6))*owf_wm_56_X5)) oks_l1l1bl2l2bu2_1_d2b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d3_2_u2b__2 & + owf_a_1234*( - v_ff(qup,owf_u2b__2_567_X17,owf_u2_2__8) & - v_ff(qdwn,owf_d3b__2_7,owf_d3_2__568_X11) & + v_ff(qdwn,owf_d2b__1_578_X12,owf_d2_1__6) & + v_ff(qup,owf_u2b__1_5,owf_u2_1__678_X16)) oks_l1l1bl2l2bu2_1_d2b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d3_2_u2b__2 & + owf_a_1234*( + g_gg(iqw,owf_wm_56_X5,p56,owf_wp_78_X6,p78)) oks_l1l1bl2l2bu2_1_d2b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d3_2_u2b__2 & + owf_wp_1278_X6*( - vl_ff(gccq22,owf_u2b__1_345,owf_d2_1__6) & - vl_ff(gccq22,owf_u2b__1_5,owf_d2_1__346) & + vl_ff(gcc,owf_n2b_356_X5,owf_l2_4)) oks_l1l1bl2l2bu2_1_d2b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d3_2_u2b__2 & + owf_wp_1278_X6*( + g_gg(iqw,owf_a_34,p34,owf_wm_56_X5,p56) & + g_gg(igzww,owf_z_34,p34,owf_wm_56_X5,p56)) oks_l1l1bl2l2bu2_1_d2b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d3_2_u2b__2 & + owf_wm_1256_X5*( - vl_ff(gccq23,owf_d3b__2_347,owf_u2_2__8) & - vl_ff(gccq23,owf_d3b__2_7,owf_u2_2__348) & + vl_ff(gcc,owf_l2b_3,owf_n2_478_X6)) oks_l1l1bl2l2bu2_1_d2b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d3_2_u2b__2 & + owf_wm_1256_X5*( + g_gg(iqw,owf_wp_78_X6,p78,owf_a_34,p34) & + g_gg(igzww,owf_wp_78_X6,p78,owf_z_34,p34)) oks_l1l1bl2l2bu2_1_d2b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d3_2_u2b__2 & + owf_z_12*( - ((((-2)*gzzww)*(owf_wm_56_X5*owf_wp_78_X6))*owf_z_34 & + ((gzzww)*(owf_z_34*owf_wm_56_X5))*owf_wp_78_X6 & + ((gzzww)*(owf_z_34*owf_wp_78_X6))*owf_wm_56_X5) & - ((((-2)*gazww)*(owf_wm_56_X5*owf_wp_78_X6))*owf_a_34 & + ((gazww)*(owf_a_34*owf_wp_78_X6))*owf_wm_56_X5 & + ((gazww)*(owf_a_34*owf_wm_56_X5))*owf_wp_78_X6)) oks_l1l1bl2l2bu2_1_d2b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d3_2_u2b__2 & + owf_z_1234*( & - va_ff(gncup(1),gncup(2),owf_u2b__2_567_X17,owf_u2_2__8) & - va_ff(gncdwn(1),gncdwn(2),owf_d3b__2_7,owf_d3_2__568_X11) & + va_ff(gncdwn(1),gncdwn(2),owf_d2b__1_578_X12,owf_d2_1__6) & + va_ff(gncup(1),gncup(2),owf_u2b__1_5,owf_u2_1__678_X16)) oks_l1l1bl2l2bu2_1_d2b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d3_2_u2b__2 & + owf_z_1234*( + g_gg(igzww,owf_wm_56_X5,p56,owf_wp_78_X6,p78)) oks_l1l1bl2l2bu2_1_d2b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d3_2_u2b__2 & + owf_h_1234*( - s_ff(ghcc,owf_u2b__2_567_X17,owf_u2_2__8) & - s_ff(ghbb,owf_d3b__2_7,owf_d3_2__568_X11) & + s_ff(ghcc,owf_u2b__1_5,owf_u2_1__678_X16)) oks_l1l1bl2l2bu2_1_d2b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d2b__1d3_2_u2b__2 & + owf_h_1234*( + ghww*(owf_wm_56_X5*owf_wp_78_X6)) oks_l1l1bl2l2bu2_1_d2b__1d3_2_u2b__2 = & - oks_l1l1bl2l2bu2_1_d2b__1d3_2_u2b__2 ! 6 vertices, 5 propagators ! unit symmetry factor end subroutine compute_brakets_0034 subroutine compute_brakets_0035 () oks_l1l1bl2l2bu2_1_d2b__1d3_2_u1b__2 = 0 oks_l1l1bl2l2bu2_1_d2b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d3_2_u1b__2 & + owf_l2b_123*( - f_vlf(gcc,owf_wm_56_X5,owf_n2_478_X3)) oks_l1l1bl2l2bu2_1_d2b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d3_2_u1b__2 & + ( + f_fvl(gcc,owf_n1b_256_X5,owf_wp_78_X3))*owf_l1_134 oks_l1l1bl2l2bu2_1_d2b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d3_2_u1b__2 & + ( - f_fvl(gcc,owf_n2b_356_X5,owf_wp_78_X3))*owf_l2_124 oks_l1l1bl2l2bu2_1_d2b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d3_2_u1b__2 & + owf_n2b_356_X5*( & + f_vaf(gncneu(1),gncneu(2),owf_z_12,owf_n2_478_X3)) oks_l1l1bl2l2bu2_1_d2b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d3_2_u1b__2 & + ( + f_fva(gncneu(1),gncneu(2),owf_n1b_256_X5,owf_z_34) & + f_fvl(gcc,owf_l1b_234,owf_wm_56_X5))*owf_n1_178_X3 oks_l1l1bl2l2bu2_1_d2b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d3_2_u1b__2 & + owf_u2b__1_125*( & - f_vaf(gncup(1),gncup(2),owf_z_34,owf_u2_1__678_X14) & - f_vf(qup,owf_a_34,owf_u2_1__678_X14) & + f_vlf(gccq22,owf_wp_78_X3,owf_d2_1__346)) oks_l1l1bl2l2bu2_1_d2b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d3_2_u1b__2 & + owf_u2b__1_345*( & - f_vaf(gncup(1),gncup(2),owf_z_12,owf_u2_1__678_X14) & - f_vf(qup,owf_a_12,owf_u2_1__678_X14)) oks_l1l1bl2l2bu2_1_d2b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d3_2_u1b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u1b__2_567_X17,owf_z_34) & + f_fv(qup,owf_u1b__2_567_X17,owf_a_34) & + f_fvl(gccq13,owf_d3b__2_347,owf_wm_56_X5))*owf_u1_2__128 oks_l1l1bl2l2bu2_1_d2b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d3_2_u1b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u1b__2_567_X17,owf_z_12) & + f_fv(qup,owf_u1b__2_567_X17,owf_a_12))*owf_u1_2__348 oks_l1l1bl2l2bu2_1_d2b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d3_2_u1b__2 & + owf_d3b__2_127*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_34,owf_d3_2__568_X5) & + f_vf(qdwn,owf_a_34,owf_d3_2__568_X5) & + f_vlf(gccq13,owf_wm_56_X5,owf_u1_2__348)) oks_l1l1bl2l2bu2_1_d2b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d3_2_u1b__2 & + owf_d3b__2_347*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_12,owf_d3_2__568_X5) & + f_vf(qdwn,owf_a_12,owf_d3_2__568_X5)) oks_l1l1bl2l2bu2_1_d2b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d3_2_u1b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d2b__1_578_X10,owf_z_34) & - f_fv(qdwn,owf_d2b__1_578_X10,owf_a_34) & + f_fvl(gccq22,owf_u2b__1_345,owf_wp_78_X3))*owf_d2_1__126 oks_l1l1bl2l2bu2_1_d2b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d3_2_u1b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d2b__1_578_X10,owf_z_12) & - f_fv(qdwn,owf_d2b__1_578_X10,owf_a_12))*owf_d2_1__346 oks_l1l1bl2l2bu2_1_d2b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d3_2_u1b__2 & + owf_a_12*( - ((((-2)*gazww)*(owf_wm_56_X5*owf_wp_78_X3))*owf_z_34 & + ((gazww)*(owf_z_34*owf_wm_56_X5))*owf_wp_78_X3 & + ((gazww)*(owf_z_34*owf_wp_78_X3))*owf_wm_56_X5) & - ((((-2)*gaaww)*(owf_wm_56_X5*owf_wp_78_X3))*owf_a_34 & + ((gaaww)*(owf_a_34*owf_wm_56_X5))*owf_wp_78_X3 & + ((gaaww)*(owf_a_34*owf_wp_78_X3))*owf_wm_56_X5)) oks_l1l1bl2l2bu2_1_d2b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d3_2_u1b__2 & + owf_a_1234*( - v_ff(qup,owf_u1b__2_567_X17,owf_u1_2__8) & - v_ff(qdwn,owf_d3b__2_7,owf_d3_2__568_X5) & + v_ff(qdwn,owf_d2b__1_578_X10,owf_d2_1__6) & + v_ff(qup,owf_u2b__1_5,owf_u2_1__678_X14)) oks_l1l1bl2l2bu2_1_d2b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d3_2_u1b__2 & + owf_a_1234*( + g_gg(iqw,owf_wm_56_X5,p56,owf_wp_78_X3,p78)) oks_l1l1bl2l2bu2_1_d2b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d3_2_u1b__2 & + owf_wp_1278_X3*( - vl_ff(gccq22,owf_u2b__1_345,owf_d2_1__6) & - vl_ff(gccq22,owf_u2b__1_5,owf_d2_1__346) & + vl_ff(gcc,owf_n2b_356_X5,owf_l2_4)) oks_l1l1bl2l2bu2_1_d2b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d3_2_u1b__2 & + owf_wp_1278_X3*( + g_gg(iqw,owf_a_34,p34,owf_wm_56_X5,p56) & + g_gg(igzww,owf_z_34,p34,owf_wm_56_X5,p56)) oks_l1l1bl2l2bu2_1_d2b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d3_2_u1b__2 & + owf_wm_1256_X5*( - vl_ff(gccq13,owf_d3b__2_347,owf_u1_2__8) & - vl_ff(gccq13,owf_d3b__2_7,owf_u1_2__348) & + vl_ff(gcc,owf_l2b_3,owf_n2_478_X3)) oks_l1l1bl2l2bu2_1_d2b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d3_2_u1b__2 & + owf_wm_1256_X5*( + g_gg(iqw,owf_wp_78_X3,p78,owf_a_34,p34) & + g_gg(igzww,owf_wp_78_X3,p78,owf_z_34,p34)) oks_l1l1bl2l2bu2_1_d2b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d3_2_u1b__2 & + owf_z_12*( - ((((-2)*gzzww)*(owf_wm_56_X5*owf_wp_78_X3))*owf_z_34 & + ((gzzww)*(owf_z_34*owf_wm_56_X5))*owf_wp_78_X3 & + ((gzzww)*(owf_z_34*owf_wp_78_X3))*owf_wm_56_X5) & - ((((-2)*gazww)*(owf_wm_56_X5*owf_wp_78_X3))*owf_a_34 & + ((gazww)*(owf_a_34*owf_wp_78_X3))*owf_wm_56_X5 & + ((gazww)*(owf_a_34*owf_wm_56_X5))*owf_wp_78_X3)) oks_l1l1bl2l2bu2_1_d2b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d3_2_u1b__2 & + owf_z_1234*( & - va_ff(gncup(1),gncup(2),owf_u1b__2_567_X17,owf_u1_2__8) & - va_ff(gncdwn(1),gncdwn(2),owf_d3b__2_7,owf_d3_2__568_X5) & + va_ff(gncdwn(1),gncdwn(2),owf_d2b__1_578_X10,owf_d2_1__6) & + va_ff(gncup(1),gncup(2),owf_u2b__1_5,owf_u2_1__678_X14)) oks_l1l1bl2l2bu2_1_d2b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d3_2_u1b__2 & + owf_z_1234*( + g_gg(igzww,owf_wm_56_X5,p56,owf_wp_78_X3,p78)) oks_l1l1bl2l2bu2_1_d2b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d3_2_u1b__2 & + owf_h_1234*( - s_ff(ghbb,owf_d3b__2_7,owf_d3_2__568_X5) & + s_ff(ghcc,owf_u2b__1_5,owf_u2_1__678_X14)) oks_l1l1bl2l2bu2_1_d2b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d2b__1d3_2_u1b__2 & + owf_h_1234*( + ghww*(owf_wm_56_X5*owf_wp_78_X3)) oks_l1l1bl2l2bu2_1_d2b__1d3_2_u1b__2 = & - oks_l1l1bl2l2bu2_1_d2b__1d3_2_u1b__2 ! 6 vertices, 5 propagators ! unit symmetry factor end subroutine compute_brakets_0035 subroutine compute_brakets_0036 () oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 = 0 oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 = oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 & + owf_l2b_123*( & + f_vaf(gnclep(1),gnclep(2),owf_z_58_X2,owf_l2_467_X1) & + f_vaf(gnclep(1),gnclep(2),owf_z_67_X1,owf_l2_458_X2) & + f_vf(qlep,owf_a_58_X2,owf_l2_467_X1) & + f_vf(qlep,owf_a_67_X1,owf_l2_458_X2)) oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 = oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 & + owf_l2b_358_X2*( & - f_vaf(gnclep(1),gnclep(2),owf_z_12,owf_l2_467_X1) & - f_vf(qlep,owf_a_12,owf_l2_467_X1)) oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 = oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 & + owf_l2b_367_X1*( & - f_vaf(gnclep(1),gnclep(2),owf_z_12,owf_l2_458_X2) & - f_vf(qlep,owf_a_12,owf_l2_458_X2)) oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 = oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 & + ( - f_fva(gnclep(1),gnclep(2),owf_l1b_267_X1,owf_z_58_X2) & - f_fva(gnclep(1),gnclep(2),owf_l1b_258_X2,owf_z_67_X1) & - f_fv(qlep,owf_l1b_267_X1,owf_a_58_X2) & - f_fv(qlep,owf_l1b_258_X2,owf_a_67_X1))*owf_l1_134 oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 = oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 & + ( - f_fva(gnclep(1),gnclep(2),owf_l1b_234,owf_z_67_X1) & - f_fva(gnclep(1),gnclep(2),owf_l1b_267_X1,owf_z_34) & - f_fv(qlep,owf_l1b_234,owf_a_67_X1) & - f_fv(qlep,owf_l1b_267_X1,owf_a_34))*owf_l1_158_X2 oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 = oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 & + ( - f_fva(gnclep(1),gnclep(2),owf_l1b_234,owf_z_58_X2) & - f_fva(gnclep(1),gnclep(2),owf_l1b_258_X2,owf_z_34) & - f_fv(qlep,owf_l1b_234,owf_a_58_X2) & - f_fv(qlep,owf_l1b_258_X2,owf_a_34))*owf_l1_167_X1 oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 = oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 & + ( + f_fva(gnclep(1),gnclep(2),owf_l2b_367_X1,owf_z_58_X2) & + f_fva(gnclep(1),gnclep(2),owf_l2b_358_X2,owf_z_67_X1) & + f_fv(qlep,owf_l2b_367_X1,owf_a_58_X2) & + f_fv(qlep,owf_l2b_358_X2,owf_a_67_X1))*owf_l2_124 oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 = oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 & + owf_u2b__1_125*( - f_vf((-gs),owf_gl___67_X1,owf_u2_1__348) & - f_vaf(gncup(1),gncup(2),owf_z_67_X1,owf_u2_1__348) & - f_vaf(gncup(1),gncup(2),owf_z_34,owf_u2_1__678_X4) & - f_vf(qup,owf_a_67_X1,owf_u2_1__348) & - f_vf(qup,owf_a_34,owf_u2_1__678_X4)) oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 = oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 & + owf_u2b__1_345*( & - f_vaf(gncup(1),gncup(2),owf_z_12,owf_u2_1__678_X4) & - f_vf(qup,owf_a_12,owf_u2_1__678_X4)) oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 = oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 & + ( - f_fv((-gs),owf_u2b__1_345,owf_gl___67_X1) & - f_fva(gncup(1),gncup(2),owf_u2b__1_345,owf_z_67_X1) & - f_fv(qup,owf_u2b__1_345,owf_a_67_X1) & + f_fva(gncup(1),gncup(2),owf_u2b__1_567_X1,owf_z_34) & + f_fv(qup,owf_u2b__1_567_X1,owf_a_34))*owf_u2_1__128 oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 = oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 & + ( + f_fva(gncup(1),gncup(2),owf_u2b__1_567_X1,owf_z_12) & + f_fv(qup,owf_u2b__1_567_X1,owf_a_12))*owf_u2_1__348 oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 = oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 & + owf_d1b__2_127*( - f_vf((-gs),owf_gl___58_X2,owf_d1_2__346) & - f_vaf(gncdwn(1),gncdwn(2),owf_z_58_X2,owf_d1_2__346) & - f_vf(qdwn,owf_a_58_X2,owf_d1_2__346) & + f_vaf(gncdwn(1),gncdwn(2),owf_z_34,owf_d1_2__568_X14) & + f_vf(qdwn,owf_a_34,owf_d1_2__568_X14)) oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 = oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 & + owf_d1b__2_347*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_12,owf_d1_2__568_X14) & + f_vf(qdwn,owf_a_12,owf_d1_2__568_X14)) oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 = oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 & + ( - f_fv((-gs),owf_d1b__2_347,owf_gl___58_X2) & - f_fva(gncdwn(1),gncdwn(2),owf_d1b__2_347,owf_z_58_X2) & - f_fva(gncdwn(1),gncdwn(2),owf_d1b__2_578_X2,owf_z_34) & - f_fv(qdwn,owf_d1b__2_347,owf_a_58_X2) & - f_fv(qdwn,owf_d1b__2_578_X2,owf_a_34))*owf_d1_2__126 oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 = oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d1b__2_578_X2,owf_z_12) & - f_fv(qdwn,owf_d1b__2_578_X2,owf_a_12))*owf_d1_2__346 oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 = oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 & + owf_a_1267_X3*( - v_ff(qlep,owf_l2b_358_X2,owf_l2_4) & - v_ff(qlep,owf_l2b_3,owf_l2_458_X2) & + v_ff(qup,owf_u2b__1_345,owf_u2_1__8) & + v_ff(qup,owf_u2b__1_5,owf_u2_1__348)) oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 = oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 & + owf_a_1258_X1*( - v_ff(qlep,owf_l2b_367_X1,owf_l2_4) & - v_ff(qlep,owf_l2b_3,owf_l2_467_X1) & + v_ff(qdwn,owf_d1b__2_347,owf_d1_2__6) & + v_ff(qdwn,owf_d1b__2_7,owf_d1_2__346)) oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 = oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 & + owf_a_1234*( - v_ff(qup,owf_u2b__1_567_X1,owf_u2_1__8) & - v_ff(qdwn,owf_d1b__2_7,owf_d1_2__568_X14) & + v_ff(qdwn,owf_d1b__2_578_X2,owf_d1_2__6) & + v_ff(qup,owf_u2b__1_5,owf_u2_1__678_X4)) oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 = oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 & + owf_z_1267_X3*( & - va_ff(gnclep(1),gnclep(2),owf_l2b_358_X2,owf_l2_4) & - va_ff(gnclep(1),gnclep(2),owf_l2b_3,owf_l2_458_X2) & + va_ff(gncup(1),gncup(2),owf_u2b__1_345,owf_u2_1__8) & + va_ff(gncup(1),gncup(2),owf_u2b__1_5,owf_u2_1__348)) oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 = oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 & + owf_z_1258_X1*( & - va_ff(gnclep(1),gnclep(2),owf_l2b_367_X1,owf_l2_4) & - va_ff(gnclep(1),gnclep(2),owf_l2b_3,owf_l2_467_X1) & + va_ff(gncdwn(1),gncdwn(2),owf_d1b__2_347,owf_d1_2__6) & + va_ff(gncdwn(1),gncdwn(2),owf_d1b__2_7,owf_d1_2__346)) oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 = oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 & + owf_z_1234*( & - va_ff(gncup(1),gncup(2),owf_u2b__1_567_X1,owf_u2_1__8) & - va_ff(gncdwn(1),gncdwn(2),owf_d1b__2_7,owf_d1_2__568_X14) & + va_ff(gncdwn(1),gncdwn(2),owf_d1b__2_578_X2,owf_d1_2__6) & + va_ff(gncup(1),gncup(2),owf_u2b__1_5,owf_u2_1__678_X4)) oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 = oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 & + owf_z_1234*( - (ghzz*owf_h_58)*owf_z_67_X1) oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 = oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 & + owf_z_1267_X3*( - (ghzz*owf_h_58)*owf_z_34) oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 = oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 & + owf_gl___1267_X3*( + v_ff((-gs),owf_u2b__1_345,owf_u2_1__8) & + v_ff((-gs),owf_u2b__1_5,owf_u2_1__348)) oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 = oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 & + owf_gl___1258_X1*( + v_ff((-gs),owf_d1b__2_347,owf_d1_2__6) & + v_ff((-gs),owf_d1b__2_7,owf_d1_2__346)) oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 = oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 & + owf_h_1267_X2*( + s_ff(ghcc,owf_u2b__1_345,owf_u2_1__8) & + s_ff(ghcc,owf_u2b__1_5,owf_u2_1__348)) oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 = oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 & + owf_h_1234*( - s_ff(ghcc,owf_u2b__1_567_X1,owf_u2_1__8) & + s_ff(ghcc,owf_u2b__1_5,owf_u2_1__678_X4)) oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 = oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 & + owf_h_1234*( - ghzz*(owf_z_58_X2*owf_z_67_X1)) oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 = oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 & + owf_h_1258_X1*( - ghzz*(owf_z_34*owf_z_67_X1)) oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 = oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 & + owf_h_1267_X2*( - ghzz*(owf_z_34*owf_z_58_X2)) oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 = & - oks_l1l1bl2l2bu2_1_d1b__2d1_2_u2b__1 ! 6 vertices, 5 propagators ! unit symmetry factor end subroutine compute_brakets_0036 subroutine compute_brakets_0037 () oks_l1l1bl2l2bu2_1_d1b__1d1_2_u2b__2 = 0 oks_l1l1bl2l2bu2_1_d1b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d1_2_u2b__2 & + owf_l2b_123*( - f_vlf(gcc,owf_wm_56_X4,owf_n2_478_X4)) oks_l1l1bl2l2bu2_1_d1b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d1_2_u2b__2 & + ( + f_fvl(gcc,owf_n1b_256_X4,owf_wp_78_X4))*owf_l1_134 oks_l1l1bl2l2bu2_1_d1b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d1_2_u2b__2 & + ( - f_fvl(gcc,owf_n2b_356_X4,owf_wp_78_X4))*owf_l2_124 oks_l1l1bl2l2bu2_1_d1b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d1_2_u2b__2 & + owf_n2b_356_X4*( & + f_vaf(gncneu(1),gncneu(2),owf_z_12,owf_n2_478_X4)) oks_l1l1bl2l2bu2_1_d1b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d1_2_u2b__2 & + ( + f_fva(gncneu(1),gncneu(2),owf_n1b_256_X4,owf_z_34) & + f_fvl(gcc,owf_l1b_234,owf_wm_56_X4))*owf_n1_178_X4 oks_l1l1bl2l2bu2_1_d1b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d1_2_u2b__2 & + owf_u2b__1_125*( - f_vf((-gs),owf_gl_1_2_67_X1,owf_u2_2__348) & - f_vaf(gncup(1),gncup(2),owf_z_34,owf_u2_1__678_X1) & - f_vf(qup,owf_a_34,owf_u2_1__678_X1) & + f_vlf(gccq21,owf_wp_78_X4,owf_d1_1__346)) oks_l1l1bl2l2bu2_1_d1b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d1_2_u2b__2 & + owf_u2b__1_345*( & - f_vaf(gncup(1),gncup(2),owf_z_12,owf_u2_1__678_X1) & - f_vf(qup,owf_a_12,owf_u2_1__678_X1)) oks_l1l1bl2l2bu2_1_d1b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d1_2_u2b__2 & + ( - f_fv((-gs),owf_u2b__1_345,owf_gl_1_2_67_X1) & + f_fva(gncup(1),gncup(2),owf_u2b__2_567_X4,owf_z_34) & + f_fv(qup,owf_u2b__2_567_X4,owf_a_34) & + f_fvl(gccq21,owf_d1b__2_347,owf_wm_56_X4))*owf_u2_2__128 oks_l1l1bl2l2bu2_1_d1b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d1_2_u2b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u2b__2_567_X4,owf_z_12) & + f_fv(qup,owf_u2b__2_567_X4,owf_a_12))*owf_u2_2__348 oks_l1l1bl2l2bu2_1_d1b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d1_2_u2b__2 & + owf_d1b__2_127*( - f_vf((-gs),owf_gl_2_1_58_X2,owf_d1_1__346) & + f_vaf(gncdwn(1),gncdwn(2),owf_z_34,owf_d1_2__568_X10) & + f_vf(qdwn,owf_a_34,owf_d1_2__568_X10) & + f_vlf(gccq21,owf_wm_56_X4,owf_u2_2__348)) oks_l1l1bl2l2bu2_1_d1b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d1_2_u2b__2 & + owf_d1b__2_347*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_12,owf_d1_2__568_X10) & + f_vf(qdwn,owf_a_12,owf_d1_2__568_X10)) oks_l1l1bl2l2bu2_1_d1b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d1_2_u2b__2 & + ( - f_fv((-gs),owf_d1b__2_347,owf_gl_2_1_58_X2) & - f_fva(gncdwn(1),gncdwn(2),owf_d1b__1_578_X2,owf_z_34) & - f_fv(qdwn,owf_d1b__1_578_X2,owf_a_34) & + f_fvl(gccq21,owf_u2b__1_345,owf_wp_78_X4))*owf_d1_1__126 oks_l1l1bl2l2bu2_1_d1b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d1_2_u2b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d1b__1_578_X2,owf_z_12) & - f_fv(qdwn,owf_d1b__1_578_X2,owf_a_12))*owf_d1_1__346 oks_l1l1bl2l2bu2_1_d1b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d1_2_u2b__2 & + owf_a_12*( - ((((-2)*gazww)*(owf_wm_56_X4*owf_wp_78_X4))*owf_z_34 & + ((gazww)*(owf_z_34*owf_wm_56_X4))*owf_wp_78_X4 & + ((gazww)*(owf_z_34*owf_wp_78_X4))*owf_wm_56_X4) & - ((((-2)*gaaww)*(owf_wm_56_X4*owf_wp_78_X4))*owf_a_34 & + ((gaaww)*(owf_a_34*owf_wm_56_X4))*owf_wp_78_X4 & + ((gaaww)*(owf_a_34*owf_wp_78_X4))*owf_wm_56_X4)) oks_l1l1bl2l2bu2_1_d1b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d1_2_u2b__2 & + owf_a_1234*( - v_ff(qup,owf_u2b__2_567_X4,owf_u2_2__8) & - v_ff(qdwn,owf_d1b__2_7,owf_d1_2__568_X10) & + v_ff(qdwn,owf_d1b__1_578_X2,owf_d1_1__6) & + v_ff(qup,owf_u2b__1_5,owf_u2_1__678_X1)) oks_l1l1bl2l2bu2_1_d1b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d1_2_u2b__2 & + owf_a_1234*( + g_gg(iqw,owf_wm_56_X4,p56,owf_wp_78_X4,p78)) oks_l1l1bl2l2bu2_1_d1b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d1_2_u2b__2 & + owf_wp_1278_X4*( - vl_ff(gccq21,owf_u2b__1_345,owf_d1_1__6) & - vl_ff(gccq21,owf_u2b__1_5,owf_d1_1__346) & + vl_ff(gcc,owf_n2b_356_X4,owf_l2_4)) oks_l1l1bl2l2bu2_1_d1b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d1_2_u2b__2 & + owf_wp_1278_X4*( + g_gg(iqw,owf_a_34,p34,owf_wm_56_X4,p56) & + g_gg(igzww,owf_z_34,p34,owf_wm_56_X4,p56)) oks_l1l1bl2l2bu2_1_d1b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d1_2_u2b__2 & + owf_wm_1256_X4*( - vl_ff(gccq21,owf_d1b__2_347,owf_u2_2__8) & - vl_ff(gccq21,owf_d1b__2_7,owf_u2_2__348) & + vl_ff(gcc,owf_l2b_3,owf_n2_478_X4)) oks_l1l1bl2l2bu2_1_d1b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d1_2_u2b__2 & + owf_wm_1256_X4*( + g_gg(iqw,owf_wp_78_X4,p78,owf_a_34,p34) & + g_gg(igzww,owf_wp_78_X4,p78,owf_z_34,p34)) oks_l1l1bl2l2bu2_1_d1b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d1_2_u2b__2 & + owf_z_12*( - ((((-2)*gzzww)*(owf_wm_56_X4*owf_wp_78_X4))*owf_z_34 & + ((gzzww)*(owf_z_34*owf_wm_56_X4))*owf_wp_78_X4 & + ((gzzww)*(owf_z_34*owf_wp_78_X4))*owf_wm_56_X4) & - ((((-2)*gazww)*(owf_wm_56_X4*owf_wp_78_X4))*owf_a_34 & + ((gazww)*(owf_a_34*owf_wp_78_X4))*owf_wm_56_X4 & + ((gazww)*(owf_a_34*owf_wm_56_X4))*owf_wp_78_X4)) oks_l1l1bl2l2bu2_1_d1b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d1_2_u2b__2 & + owf_z_1234*( & - va_ff(gncup(1),gncup(2),owf_u2b__2_567_X4,owf_u2_2__8) & - va_ff(gncdwn(1),gncdwn(2),owf_d1b__2_7,owf_d1_2__568_X10) & + va_ff(gncdwn(1),gncdwn(2),owf_d1b__1_578_X2,owf_d1_1__6) & + va_ff(gncup(1),gncup(2),owf_u2b__1_5,owf_u2_1__678_X1)) oks_l1l1bl2l2bu2_1_d1b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d1_2_u2b__2 & + owf_z_1234*( + g_gg(igzww,owf_wm_56_X4,p56,owf_wp_78_X4,p78)) oks_l1l1bl2l2bu2_1_d1b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d1_2_u2b__2 & + owf_gl_1_2_1267_X3*( + v_ff((-gs),owf_u2b__1_345,owf_u2_2__8) & + v_ff((-gs),owf_u2b__1_5,owf_u2_2__348)) oks_l1l1bl2l2bu2_1_d1b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d1_2_u2b__2 & + owf_gl_2_1_1258_X1*( + v_ff((-gs),owf_d1b__2_347,owf_d1_1__6) & + v_ff((-gs),owf_d1b__2_7,owf_d1_1__346)) oks_l1l1bl2l2bu2_1_d1b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d1_2_u2b__2 & + owf_h_1234*( - s_ff(ghcc,owf_u2b__2_567_X4,owf_u2_2__8) & + s_ff(ghcc,owf_u2b__1_5,owf_u2_1__678_X1)) oks_l1l1bl2l2bu2_1_d1b__1d1_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d1_2_u2b__2 & + owf_h_1234*( + ghww*(owf_wm_56_X4*owf_wp_78_X4)) oks_l1l1bl2l2bu2_1_d1b__1d1_2_u2b__2 = & - oks_l1l1bl2l2bu2_1_d1b__1d1_2_u2b__2 ! 6 vertices, 5 propagators ! unit symmetry factor end subroutine compute_brakets_0037 subroutine compute_brakets_0038 () oks_l1l1bl2l2bu2_1_d1b__1d1_2_u1b__2 = 0 oks_l1l1bl2l2bu2_1_d1b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d1_2_u1b__2 & + owf_l2b_123*( - f_vlf(gcc,owf_wm_56_X4,owf_n2_478_X1)) oks_l1l1bl2l2bu2_1_d1b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d1_2_u1b__2 & + ( + f_fvl(gcc,owf_n1b_256_X4,owf_wp_78_X1))*owf_l1_134 oks_l1l1bl2l2bu2_1_d1b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d1_2_u1b__2 & + ( - f_fvl(gcc,owf_n2b_356_X4,owf_wp_78_X1))*owf_l2_124 oks_l1l1bl2l2bu2_1_d1b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d1_2_u1b__2 & + owf_n2b_356_X4*( & + f_vaf(gncneu(1),gncneu(2),owf_z_12,owf_n2_478_X1)) oks_l1l1bl2l2bu2_1_d1b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d1_2_u1b__2 & + ( + f_fva(gncneu(1),gncneu(2),owf_n1b_256_X4,owf_z_34) & + f_fvl(gcc,owf_l1b_234,owf_wm_56_X4))*owf_n1_178_X1 oks_l1l1bl2l2bu2_1_d1b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d1_2_u1b__2 & + owf_u2b__1_125*( & - f_vaf(gncup(1),gncup(2),owf_z_34,owf_u2_1__678_X7) & - f_vf(qup,owf_a_34,owf_u2_1__678_X7) & + f_vlf(gccq21,owf_wp_78_X1,owf_d1_1__346)) oks_l1l1bl2l2bu2_1_d1b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d1_2_u1b__2 & + owf_u2b__1_345*( & - f_vaf(gncup(1),gncup(2),owf_z_12,owf_u2_1__678_X7) & - f_vf(qup,owf_a_12,owf_u2_1__678_X7)) oks_l1l1bl2l2bu2_1_d1b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d1_2_u1b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u1b__2_567_X4,owf_z_34) & + f_fv(qup,owf_u1b__2_567_X4,owf_a_34) & + f_fvl(gccq11,owf_d1b__2_347,owf_wm_56_X4))*owf_u1_2__128 oks_l1l1bl2l2bu2_1_d1b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d1_2_u1b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u1b__2_567_X4,owf_z_12) & + f_fv(qup,owf_u1b__2_567_X4,owf_a_12))*owf_u1_2__348 oks_l1l1bl2l2bu2_1_d1b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d1_2_u1b__2 & + owf_d1b__2_127*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_34,owf_d1_2__568_X4) & + f_vf(qdwn,owf_a_34,owf_d1_2__568_X4) & + f_vlf(gccq11,owf_wm_56_X4,owf_u1_2__348)) oks_l1l1bl2l2bu2_1_d1b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d1_2_u1b__2 & + owf_d1b__2_347*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_12,owf_d1_2__568_X4) & + f_vf(qdwn,owf_a_12,owf_d1_2__568_X4)) oks_l1l1bl2l2bu2_1_d1b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d1_2_u1b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d1b__1_578_X8,owf_z_34) & - f_fv(qdwn,owf_d1b__1_578_X8,owf_a_34) & + f_fvl(gccq21,owf_u2b__1_345,owf_wp_78_X1))*owf_d1_1__126 oks_l1l1bl2l2bu2_1_d1b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d1_2_u1b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d1b__1_578_X8,owf_z_12) & - f_fv(qdwn,owf_d1b__1_578_X8,owf_a_12))*owf_d1_1__346 oks_l1l1bl2l2bu2_1_d1b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d1_2_u1b__2 & + owf_a_12*( - ((((-2)*gazww)*(owf_wm_56_X4*owf_wp_78_X1))*owf_z_34 & + ((gazww)*(owf_z_34*owf_wm_56_X4))*owf_wp_78_X1 & + ((gazww)*(owf_z_34*owf_wp_78_X1))*owf_wm_56_X4) & - ((((-2)*gaaww)*(owf_wm_56_X4*owf_wp_78_X1))*owf_a_34 & + ((gaaww)*(owf_a_34*owf_wm_56_X4))*owf_wp_78_X1 & + ((gaaww)*(owf_a_34*owf_wp_78_X1))*owf_wm_56_X4)) oks_l1l1bl2l2bu2_1_d1b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d1_2_u1b__2 & + owf_a_1234*( - v_ff(qup,owf_u1b__2_567_X4,owf_u1_2__8) & - v_ff(qdwn,owf_d1b__2_7,owf_d1_2__568_X4) & + v_ff(qdwn,owf_d1b__1_578_X8,owf_d1_1__6) & + v_ff(qup,owf_u2b__1_5,owf_u2_1__678_X7)) oks_l1l1bl2l2bu2_1_d1b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d1_2_u1b__2 & + owf_a_1234*( + g_gg(iqw,owf_wm_56_X4,p56,owf_wp_78_X1,p78)) oks_l1l1bl2l2bu2_1_d1b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d1_2_u1b__2 & + owf_wp_1278_X1*( - vl_ff(gccq21,owf_u2b__1_345,owf_d1_1__6) & - vl_ff(gccq21,owf_u2b__1_5,owf_d1_1__346) & + vl_ff(gcc,owf_n2b_356_X4,owf_l2_4)) oks_l1l1bl2l2bu2_1_d1b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d1_2_u1b__2 & + owf_wp_1278_X1*( + g_gg(iqw,owf_a_34,p34,owf_wm_56_X4,p56) & + g_gg(igzww,owf_z_34,p34,owf_wm_56_X4,p56)) oks_l1l1bl2l2bu2_1_d1b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d1_2_u1b__2 & + owf_wm_1256_X4*( - vl_ff(gccq11,owf_d1b__2_347,owf_u1_2__8) & - vl_ff(gccq11,owf_d1b__2_7,owf_u1_2__348) & + vl_ff(gcc,owf_l2b_3,owf_n2_478_X1)) oks_l1l1bl2l2bu2_1_d1b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d1_2_u1b__2 & + owf_wm_1256_X4*( + g_gg(iqw,owf_wp_78_X1,p78,owf_a_34,p34) & + g_gg(igzww,owf_wp_78_X1,p78,owf_z_34,p34)) oks_l1l1bl2l2bu2_1_d1b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d1_2_u1b__2 & + owf_z_12*( - ((((-2)*gzzww)*(owf_wm_56_X4*owf_wp_78_X1))*owf_z_34 & + ((gzzww)*(owf_z_34*owf_wm_56_X4))*owf_wp_78_X1 & + ((gzzww)*(owf_z_34*owf_wp_78_X1))*owf_wm_56_X4) & - ((((-2)*gazww)*(owf_wm_56_X4*owf_wp_78_X1))*owf_a_34 & + ((gazww)*(owf_a_34*owf_wp_78_X1))*owf_wm_56_X4 & + ((gazww)*(owf_a_34*owf_wm_56_X4))*owf_wp_78_X1)) oks_l1l1bl2l2bu2_1_d1b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d1_2_u1b__2 & + owf_z_1234*( & - va_ff(gncup(1),gncup(2),owf_u1b__2_567_X4,owf_u1_2__8) & - va_ff(gncdwn(1),gncdwn(2),owf_d1b__2_7,owf_d1_2__568_X4) & + va_ff(gncdwn(1),gncdwn(2),owf_d1b__1_578_X8,owf_d1_1__6) & + va_ff(gncup(1),gncup(2),owf_u2b__1_5,owf_u2_1__678_X7)) oks_l1l1bl2l2bu2_1_d1b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d1_2_u1b__2 & + owf_z_1234*( + g_gg(igzww,owf_wm_56_X4,p56,owf_wp_78_X1,p78)) oks_l1l1bl2l2bu2_1_d1b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d1_2_u1b__2 & + owf_h_1234*( + s_ff(ghcc,owf_u2b__1_5,owf_u2_1__678_X7)) oks_l1l1bl2l2bu2_1_d1b__1d1_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d1_2_u1b__2 & + owf_h_1234*( + ghww*(owf_wm_56_X4*owf_wp_78_X1)) oks_l1l1bl2l2bu2_1_d1b__1d1_2_u1b__2 = & - oks_l1l1bl2l2bu2_1_d1b__1d1_2_u1b__2 ! 6 vertices, 5 propagators ! unit symmetry factor end subroutine compute_brakets_0038 subroutine compute_brakets_0039 () oks_l1l1bl2l2bu2_1_d1b__1d2_2_u2b__2 = 0 oks_l1l1bl2l2bu2_1_d1b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d2_2_u2b__2 & + owf_l2b_123*( - f_vlf(gcc,owf_wm_56_X4,owf_n2_478_X5)) oks_l1l1bl2l2bu2_1_d1b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d2_2_u2b__2 & + ( + f_fvl(gcc,owf_n1b_256_X4,owf_wp_78_X5))*owf_l1_134 oks_l1l1bl2l2bu2_1_d1b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d2_2_u2b__2 & + ( - f_fvl(gcc,owf_n2b_356_X4,owf_wp_78_X5))*owf_l2_124 oks_l1l1bl2l2bu2_1_d1b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d2_2_u2b__2 & + owf_n2b_356_X4*( & + f_vaf(gncneu(1),gncneu(2),owf_z_12,owf_n2_478_X5)) oks_l1l1bl2l2bu2_1_d1b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d2_2_u2b__2 & + ( + f_fva(gncneu(1),gncneu(2),owf_n1b_256_X4,owf_z_34) & + f_fvl(gcc,owf_l1b_234,owf_wm_56_X4))*owf_n1_178_X5 oks_l1l1bl2l2bu2_1_d1b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d2_2_u2b__2 & + owf_u2b__1_125*( & - f_vaf(gncup(1),gncup(2),owf_z_34,owf_u2_1__678_X10) & - f_vf(qup,owf_a_34,owf_u2_1__678_X10) & + f_vlf(gccq21,owf_wp_78_X5,owf_d1_1__346)) oks_l1l1bl2l2bu2_1_d1b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d2_2_u2b__2 & + owf_u2b__1_345*( & - f_vaf(gncup(1),gncup(2),owf_z_12,owf_u2_1__678_X10) & - f_vf(qup,owf_a_12,owf_u2_1__678_X10)) oks_l1l1bl2l2bu2_1_d1b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d2_2_u2b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u2b__2_567_X10,owf_z_34) & + f_fv(qup,owf_u2b__2_567_X10,owf_a_34) & + f_fvl(gccq22,owf_d2b__2_347,owf_wm_56_X4))*owf_u2_2__128 oks_l1l1bl2l2bu2_1_d1b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d2_2_u2b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u2b__2_567_X10,owf_z_12) & + f_fv(qup,owf_u2b__2_567_X10,owf_a_12))*owf_u2_2__348 oks_l1l1bl2l2bu2_1_d1b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d2_2_u2b__2 & + owf_d2b__2_127*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_34,owf_d2_2__568_X10) & + f_vf(qdwn,owf_a_34,owf_d2_2__568_X10) & + f_vlf(gccq22,owf_wm_56_X4,owf_u2_2__348)) oks_l1l1bl2l2bu2_1_d1b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d2_2_u2b__2 & + owf_d2b__2_347*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_12,owf_d2_2__568_X10) & + f_vf(qdwn,owf_a_12,owf_d2_2__568_X10)) oks_l1l1bl2l2bu2_1_d1b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d2_2_u2b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d1b__1_578_X11,owf_z_34) & - f_fv(qdwn,owf_d1b__1_578_X11,owf_a_34) & + f_fvl(gccq21,owf_u2b__1_345,owf_wp_78_X5))*owf_d1_1__126 oks_l1l1bl2l2bu2_1_d1b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d2_2_u2b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d1b__1_578_X11,owf_z_12) & - f_fv(qdwn,owf_d1b__1_578_X11,owf_a_12))*owf_d1_1__346 oks_l1l1bl2l2bu2_1_d1b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d2_2_u2b__2 & + owf_a_12*( - ((((-2)*gazww)*(owf_wm_56_X4*owf_wp_78_X5))*owf_z_34 & + ((gazww)*(owf_z_34*owf_wm_56_X4))*owf_wp_78_X5 & + ((gazww)*(owf_z_34*owf_wp_78_X5))*owf_wm_56_X4) & - ((((-2)*gaaww)*(owf_wm_56_X4*owf_wp_78_X5))*owf_a_34 & + ((gaaww)*(owf_a_34*owf_wm_56_X4))*owf_wp_78_X5 & + ((gaaww)*(owf_a_34*owf_wp_78_X5))*owf_wm_56_X4)) oks_l1l1bl2l2bu2_1_d1b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d2_2_u2b__2 & + owf_a_1234*( - v_ff(qup,owf_u2b__2_567_X10,owf_u2_2__8) & - v_ff(qdwn,owf_d2b__2_7,owf_d2_2__568_X10) & + v_ff(qdwn,owf_d1b__1_578_X11,owf_d1_1__6) & + v_ff(qup,owf_u2b__1_5,owf_u2_1__678_X10)) oks_l1l1bl2l2bu2_1_d1b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d2_2_u2b__2 & + owf_a_1234*( + g_gg(iqw,owf_wm_56_X4,p56,owf_wp_78_X5,p78)) oks_l1l1bl2l2bu2_1_d1b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d2_2_u2b__2 & + owf_wp_1278_X5*( - vl_ff(gccq21,owf_u2b__1_345,owf_d1_1__6) & - vl_ff(gccq21,owf_u2b__1_5,owf_d1_1__346) & + vl_ff(gcc,owf_n2b_356_X4,owf_l2_4)) oks_l1l1bl2l2bu2_1_d1b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d2_2_u2b__2 & + owf_wp_1278_X5*( + g_gg(iqw,owf_a_34,p34,owf_wm_56_X4,p56) & + g_gg(igzww,owf_z_34,p34,owf_wm_56_X4,p56)) oks_l1l1bl2l2bu2_1_d1b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d2_2_u2b__2 & + owf_wm_1256_X4*( - vl_ff(gccq22,owf_d2b__2_347,owf_u2_2__8) & - vl_ff(gccq22,owf_d2b__2_7,owf_u2_2__348) & + vl_ff(gcc,owf_l2b_3,owf_n2_478_X5)) oks_l1l1bl2l2bu2_1_d1b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d2_2_u2b__2 & + owf_wm_1256_X4*( + g_gg(iqw,owf_wp_78_X5,p78,owf_a_34,p34) & + g_gg(igzww,owf_wp_78_X5,p78,owf_z_34,p34)) oks_l1l1bl2l2bu2_1_d1b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d2_2_u2b__2 & + owf_z_12*( - ((((-2)*gzzww)*(owf_wm_56_X4*owf_wp_78_X5))*owf_z_34 & + ((gzzww)*(owf_z_34*owf_wm_56_X4))*owf_wp_78_X5 & + ((gzzww)*(owf_z_34*owf_wp_78_X5))*owf_wm_56_X4) & - ((((-2)*gazww)*(owf_wm_56_X4*owf_wp_78_X5))*owf_a_34 & + ((gazww)*(owf_a_34*owf_wp_78_X5))*owf_wm_56_X4 & + ((gazww)*(owf_a_34*owf_wm_56_X4))*owf_wp_78_X5)) oks_l1l1bl2l2bu2_1_d1b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d2_2_u2b__2 & + owf_z_1234*( & - va_ff(gncup(1),gncup(2),owf_u2b__2_567_X10,owf_u2_2__8) & - va_ff(gncdwn(1),gncdwn(2),owf_d2b__2_7,owf_d2_2__568_X10) & + va_ff(gncdwn(1),gncdwn(2),owf_d1b__1_578_X11,owf_d1_1__6) & + va_ff(gncup(1),gncup(2),owf_u2b__1_5,owf_u2_1__678_X10)) oks_l1l1bl2l2bu2_1_d1b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d2_2_u2b__2 & + owf_z_1234*( + g_gg(igzww,owf_wm_56_X4,p56,owf_wp_78_X5,p78)) oks_l1l1bl2l2bu2_1_d1b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d2_2_u2b__2 & + owf_h_1234*( - s_ff(ghcc,owf_u2b__2_567_X10,owf_u2_2__8) & + s_ff(ghcc,owf_u2b__1_5,owf_u2_1__678_X10)) oks_l1l1bl2l2bu2_1_d1b__1d2_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d2_2_u2b__2 & + owf_h_1234*( + ghww*(owf_wm_56_X4*owf_wp_78_X5)) oks_l1l1bl2l2bu2_1_d1b__1d2_2_u2b__2 = & - oks_l1l1bl2l2bu2_1_d1b__1d2_2_u2b__2 ! 6 vertices, 5 propagators ! unit symmetry factor end subroutine compute_brakets_0039 subroutine compute_brakets_0040 () oks_l1l1bl2l2bu2_1_d1b__1d2_2_u1b__2 = 0 oks_l1l1bl2l2bu2_1_d1b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d2_2_u1b__2 & + owf_l2b_123*( - f_vlf(gcc,owf_wm_56_X4,owf_n2_478_X2)) oks_l1l1bl2l2bu2_1_d1b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d2_2_u1b__2 & + ( + f_fvl(gcc,owf_n1b_256_X4,owf_wp_78_X2))*owf_l1_134 oks_l1l1bl2l2bu2_1_d1b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d2_2_u1b__2 & + ( - f_fvl(gcc,owf_n2b_356_X4,owf_wp_78_X2))*owf_l2_124 oks_l1l1bl2l2bu2_1_d1b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d2_2_u1b__2 & + owf_n2b_356_X4*( & + f_vaf(gncneu(1),gncneu(2),owf_z_12,owf_n2_478_X2)) oks_l1l1bl2l2bu2_1_d1b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d2_2_u1b__2 & + ( + f_fva(gncneu(1),gncneu(2),owf_n1b_256_X4,owf_z_34) & + f_fvl(gcc,owf_l1b_234,owf_wm_56_X4))*owf_n1_178_X2 oks_l1l1bl2l2bu2_1_d1b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d2_2_u1b__2 & + owf_u2b__1_125*( & - f_vaf(gncup(1),gncup(2),owf_z_34,owf_u2_1__678_X8) & - f_vf(qup,owf_a_34,owf_u2_1__678_X8) & + f_vlf(gccq21,owf_wp_78_X2,owf_d1_1__346)) oks_l1l1bl2l2bu2_1_d1b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d2_2_u1b__2 & + owf_u2b__1_345*( & - f_vaf(gncup(1),gncup(2),owf_z_12,owf_u2_1__678_X8) & - f_vf(qup,owf_a_12,owf_u2_1__678_X8)) oks_l1l1bl2l2bu2_1_d1b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d2_2_u1b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u1b__2_567_X10,owf_z_34) & + f_fv(qup,owf_u1b__2_567_X10,owf_a_34) & + f_fvl(gccq12,owf_d2b__2_347,owf_wm_56_X4))*owf_u1_2__128 oks_l1l1bl2l2bu2_1_d1b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d2_2_u1b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u1b__2_567_X10,owf_z_12) & + f_fv(qup,owf_u1b__2_567_X10,owf_a_12))*owf_u1_2__348 oks_l1l1bl2l2bu2_1_d1b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d2_2_u1b__2 & + owf_d2b__2_127*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_34,owf_d2_2__568_X4) & + f_vf(qdwn,owf_a_34,owf_d2_2__568_X4) & + f_vlf(gccq12,owf_wm_56_X4,owf_u1_2__348)) oks_l1l1bl2l2bu2_1_d1b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d2_2_u1b__2 & + owf_d2b__2_347*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_12,owf_d2_2__568_X4) & + f_vf(qdwn,owf_a_12,owf_d2_2__568_X4)) oks_l1l1bl2l2bu2_1_d1b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d2_2_u1b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d1b__1_578_X9,owf_z_34) & - f_fv(qdwn,owf_d1b__1_578_X9,owf_a_34) & + f_fvl(gccq21,owf_u2b__1_345,owf_wp_78_X2))*owf_d1_1__126 oks_l1l1bl2l2bu2_1_d1b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d2_2_u1b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d1b__1_578_X9,owf_z_12) & - f_fv(qdwn,owf_d1b__1_578_X9,owf_a_12))*owf_d1_1__346 oks_l1l1bl2l2bu2_1_d1b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d2_2_u1b__2 & + owf_a_12*( - ((((-2)*gazww)*(owf_wm_56_X4*owf_wp_78_X2))*owf_z_34 & + ((gazww)*(owf_z_34*owf_wm_56_X4))*owf_wp_78_X2 & + ((gazww)*(owf_z_34*owf_wp_78_X2))*owf_wm_56_X4) & - ((((-2)*gaaww)*(owf_wm_56_X4*owf_wp_78_X2))*owf_a_34 & + ((gaaww)*(owf_a_34*owf_wm_56_X4))*owf_wp_78_X2 & + ((gaaww)*(owf_a_34*owf_wp_78_X2))*owf_wm_56_X4)) oks_l1l1bl2l2bu2_1_d1b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d2_2_u1b__2 & + owf_a_1234*( - v_ff(qup,owf_u1b__2_567_X10,owf_u1_2__8) & - v_ff(qdwn,owf_d2b__2_7,owf_d2_2__568_X4) & + v_ff(qdwn,owf_d1b__1_578_X9,owf_d1_1__6) & + v_ff(qup,owf_u2b__1_5,owf_u2_1__678_X8)) oks_l1l1bl2l2bu2_1_d1b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d2_2_u1b__2 & + owf_a_1234*( + g_gg(iqw,owf_wm_56_X4,p56,owf_wp_78_X2,p78)) oks_l1l1bl2l2bu2_1_d1b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d2_2_u1b__2 & + owf_wp_1278_X2*( - vl_ff(gccq21,owf_u2b__1_345,owf_d1_1__6) & - vl_ff(gccq21,owf_u2b__1_5,owf_d1_1__346) & + vl_ff(gcc,owf_n2b_356_X4,owf_l2_4)) oks_l1l1bl2l2bu2_1_d1b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d2_2_u1b__2 & + owf_wp_1278_X2*( + g_gg(iqw,owf_a_34,p34,owf_wm_56_X4,p56) & + g_gg(igzww,owf_z_34,p34,owf_wm_56_X4,p56)) oks_l1l1bl2l2bu2_1_d1b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d2_2_u1b__2 & + owf_wm_1256_X4*( - vl_ff(gccq12,owf_d2b__2_347,owf_u1_2__8) & - vl_ff(gccq12,owf_d2b__2_7,owf_u1_2__348) & + vl_ff(gcc,owf_l2b_3,owf_n2_478_X2)) oks_l1l1bl2l2bu2_1_d1b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d2_2_u1b__2 & + owf_wm_1256_X4*( + g_gg(iqw,owf_wp_78_X2,p78,owf_a_34,p34) & + g_gg(igzww,owf_wp_78_X2,p78,owf_z_34,p34)) oks_l1l1bl2l2bu2_1_d1b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d2_2_u1b__2 & + owf_z_12*( - ((((-2)*gzzww)*(owf_wm_56_X4*owf_wp_78_X2))*owf_z_34 & + ((gzzww)*(owf_z_34*owf_wm_56_X4))*owf_wp_78_X2 & + ((gzzww)*(owf_z_34*owf_wp_78_X2))*owf_wm_56_X4) & - ((((-2)*gazww)*(owf_wm_56_X4*owf_wp_78_X2))*owf_a_34 & + ((gazww)*(owf_a_34*owf_wp_78_X2))*owf_wm_56_X4 & + ((gazww)*(owf_a_34*owf_wm_56_X4))*owf_wp_78_X2)) oks_l1l1bl2l2bu2_1_d1b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d2_2_u1b__2 & + owf_z_1234*( & - va_ff(gncup(1),gncup(2),owf_u1b__2_567_X10,owf_u1_2__8) & - va_ff(gncdwn(1),gncdwn(2),owf_d2b__2_7,owf_d2_2__568_X4) & + va_ff(gncdwn(1),gncdwn(2),owf_d1b__1_578_X9,owf_d1_1__6) & + va_ff(gncup(1),gncup(2),owf_u2b__1_5,owf_u2_1__678_X8)) oks_l1l1bl2l2bu2_1_d1b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d2_2_u1b__2 & + owf_z_1234*( + g_gg(igzww,owf_wm_56_X4,p56,owf_wp_78_X2,p78)) oks_l1l1bl2l2bu2_1_d1b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d2_2_u1b__2 & + owf_h_1234*( + s_ff(ghcc,owf_u2b__1_5,owf_u2_1__678_X8)) oks_l1l1bl2l2bu2_1_d1b__1d2_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d2_2_u1b__2 & + owf_h_1234*( + ghww*(owf_wm_56_X4*owf_wp_78_X2)) oks_l1l1bl2l2bu2_1_d1b__1d2_2_u1b__2 = & - oks_l1l1bl2l2bu2_1_d1b__1d2_2_u1b__2 ! 6 vertices, 5 propagators ! unit symmetry factor end subroutine compute_brakets_0040 subroutine compute_brakets_0041 () oks_l1l1bl2l2bu2_1_d1b__1d3_2_u2b__2 = 0 oks_l1l1bl2l2bu2_1_d1b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d3_2_u2b__2 & + owf_l2b_123*( - f_vlf(gcc,owf_wm_56_X4,owf_n2_478_X6)) oks_l1l1bl2l2bu2_1_d1b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d3_2_u2b__2 & + ( + f_fvl(gcc,owf_n1b_256_X4,owf_wp_78_X6))*owf_l1_134 oks_l1l1bl2l2bu2_1_d1b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d3_2_u2b__2 & + ( - f_fvl(gcc,owf_n2b_356_X4,owf_wp_78_X6))*owf_l2_124 oks_l1l1bl2l2bu2_1_d1b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d3_2_u2b__2 & + owf_n2b_356_X4*( & + f_vaf(gncneu(1),gncneu(2),owf_z_12,owf_n2_478_X6)) oks_l1l1bl2l2bu2_1_d1b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d3_2_u2b__2 & + ( + f_fva(gncneu(1),gncneu(2),owf_n1b_256_X4,owf_z_34) & + f_fvl(gcc,owf_l1b_234,owf_wm_56_X4))*owf_n1_178_X6 oks_l1l1bl2l2bu2_1_d1b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d3_2_u2b__2 & + owf_u2b__1_125*( & - f_vaf(gncup(1),gncup(2),owf_z_34,owf_u2_1__678_X11) & - f_vf(qup,owf_a_34,owf_u2_1__678_X11) & + f_vlf(gccq21,owf_wp_78_X6,owf_d1_1__346)) oks_l1l1bl2l2bu2_1_d1b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d3_2_u2b__2 & + owf_u2b__1_345*( & - f_vaf(gncup(1),gncup(2),owf_z_12,owf_u2_1__678_X11) & - f_vf(qup,owf_a_12,owf_u2_1__678_X11)) oks_l1l1bl2l2bu2_1_d1b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d3_2_u2b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u2b__2_567_X16,owf_z_34) & + f_fv(qup,owf_u2b__2_567_X16,owf_a_34) & + f_fvl(gccq23,owf_d3b__2_347,owf_wm_56_X4))*owf_u2_2__128 oks_l1l1bl2l2bu2_1_d1b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d3_2_u2b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u2b__2_567_X16,owf_z_12) & + f_fv(qup,owf_u2b__2_567_X16,owf_a_12))*owf_u2_2__348 oks_l1l1bl2l2bu2_1_d1b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d3_2_u2b__2 & + owf_d3b__2_127*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_34,owf_d3_2__568_X10) & + f_vf(qdwn,owf_a_34,owf_d3_2__568_X10) & + f_vlf(gccq23,owf_wm_56_X4,owf_u2_2__348)) oks_l1l1bl2l2bu2_1_d1b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d3_2_u2b__2 & + owf_d3b__2_347*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_12,owf_d3_2__568_X10) & + f_vf(qdwn,owf_a_12,owf_d3_2__568_X10)) oks_l1l1bl2l2bu2_1_d1b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d3_2_u2b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d1b__1_578_X12,owf_z_34) & - f_fv(qdwn,owf_d1b__1_578_X12,owf_a_34) & + f_fvl(gccq21,owf_u2b__1_345,owf_wp_78_X6))*owf_d1_1__126 oks_l1l1bl2l2bu2_1_d1b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d3_2_u2b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d1b__1_578_X12,owf_z_12) & - f_fv(qdwn,owf_d1b__1_578_X12,owf_a_12))*owf_d1_1__346 oks_l1l1bl2l2bu2_1_d1b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d3_2_u2b__2 & + owf_a_12*( - ((((-2)*gazww)*(owf_wm_56_X4*owf_wp_78_X6))*owf_z_34 & + ((gazww)*(owf_z_34*owf_wm_56_X4))*owf_wp_78_X6 & + ((gazww)*(owf_z_34*owf_wp_78_X6))*owf_wm_56_X4) & - ((((-2)*gaaww)*(owf_wm_56_X4*owf_wp_78_X6))*owf_a_34 & + ((gaaww)*(owf_a_34*owf_wm_56_X4))*owf_wp_78_X6 & + ((gaaww)*(owf_a_34*owf_wp_78_X6))*owf_wm_56_X4)) oks_l1l1bl2l2bu2_1_d1b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d3_2_u2b__2 & + owf_a_1234*( - v_ff(qup,owf_u2b__2_567_X16,owf_u2_2__8) & - v_ff(qdwn,owf_d3b__2_7,owf_d3_2__568_X10) & + v_ff(qdwn,owf_d1b__1_578_X12,owf_d1_1__6) & + v_ff(qup,owf_u2b__1_5,owf_u2_1__678_X11)) oks_l1l1bl2l2bu2_1_d1b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d3_2_u2b__2 & + owf_a_1234*( + g_gg(iqw,owf_wm_56_X4,p56,owf_wp_78_X6,p78)) oks_l1l1bl2l2bu2_1_d1b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d3_2_u2b__2 & + owf_wp_1278_X6*( - vl_ff(gccq21,owf_u2b__1_345,owf_d1_1__6) & - vl_ff(gccq21,owf_u2b__1_5,owf_d1_1__346) & + vl_ff(gcc,owf_n2b_356_X4,owf_l2_4)) oks_l1l1bl2l2bu2_1_d1b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d3_2_u2b__2 & + owf_wp_1278_X6*( + g_gg(iqw,owf_a_34,p34,owf_wm_56_X4,p56) & + g_gg(igzww,owf_z_34,p34,owf_wm_56_X4,p56)) oks_l1l1bl2l2bu2_1_d1b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d3_2_u2b__2 & + owf_wm_1256_X4*( - vl_ff(gccq23,owf_d3b__2_347,owf_u2_2__8) & - vl_ff(gccq23,owf_d3b__2_7,owf_u2_2__348) & + vl_ff(gcc,owf_l2b_3,owf_n2_478_X6)) oks_l1l1bl2l2bu2_1_d1b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d3_2_u2b__2 & + owf_wm_1256_X4*( + g_gg(iqw,owf_wp_78_X6,p78,owf_a_34,p34) & + g_gg(igzww,owf_wp_78_X6,p78,owf_z_34,p34)) oks_l1l1bl2l2bu2_1_d1b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d3_2_u2b__2 & + owf_z_12*( - ((((-2)*gzzww)*(owf_wm_56_X4*owf_wp_78_X6))*owf_z_34 & + ((gzzww)*(owf_z_34*owf_wm_56_X4))*owf_wp_78_X6 & + ((gzzww)*(owf_z_34*owf_wp_78_X6))*owf_wm_56_X4) & - ((((-2)*gazww)*(owf_wm_56_X4*owf_wp_78_X6))*owf_a_34 & + ((gazww)*(owf_a_34*owf_wp_78_X6))*owf_wm_56_X4 & + ((gazww)*(owf_a_34*owf_wm_56_X4))*owf_wp_78_X6)) oks_l1l1bl2l2bu2_1_d1b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d3_2_u2b__2 & + owf_z_1234*( & - va_ff(gncup(1),gncup(2),owf_u2b__2_567_X16,owf_u2_2__8) & - va_ff(gncdwn(1),gncdwn(2),owf_d3b__2_7,owf_d3_2__568_X10) & + va_ff(gncdwn(1),gncdwn(2),owf_d1b__1_578_X12,owf_d1_1__6) & + va_ff(gncup(1),gncup(2),owf_u2b__1_5,owf_u2_1__678_X11)) oks_l1l1bl2l2bu2_1_d1b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d3_2_u2b__2 & + owf_z_1234*( + g_gg(igzww,owf_wm_56_X4,p56,owf_wp_78_X6,p78)) oks_l1l1bl2l2bu2_1_d1b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d3_2_u2b__2 & + owf_h_1234*( - s_ff(ghcc,owf_u2b__2_567_X16,owf_u2_2__8) & - s_ff(ghbb,owf_d3b__2_7,owf_d3_2__568_X10) & + s_ff(ghcc,owf_u2b__1_5,owf_u2_1__678_X11)) oks_l1l1bl2l2bu2_1_d1b__1d3_2_u2b__2 = oks_l1l1bl2l2bu2_1_d1b__1d3_2_u2b__2 & + owf_h_1234*( + ghww*(owf_wm_56_X4*owf_wp_78_X6)) oks_l1l1bl2l2bu2_1_d1b__1d3_2_u2b__2 = & - oks_l1l1bl2l2bu2_1_d1b__1d3_2_u2b__2 ! 6 vertices, 5 propagators ! unit symmetry factor end subroutine compute_brakets_0041 subroutine compute_brakets_0042 () oks_l1l1bl2l2bu2_1_d1b__1d3_2_u1b__2 = 0 oks_l1l1bl2l2bu2_1_d1b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d3_2_u1b__2 & + owf_l2b_123*( - f_vlf(gcc,owf_wm_56_X4,owf_n2_478_X3)) oks_l1l1bl2l2bu2_1_d1b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d3_2_u1b__2 & + ( + f_fvl(gcc,owf_n1b_256_X4,owf_wp_78_X3))*owf_l1_134 oks_l1l1bl2l2bu2_1_d1b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d3_2_u1b__2 & + ( - f_fvl(gcc,owf_n2b_356_X4,owf_wp_78_X3))*owf_l2_124 oks_l1l1bl2l2bu2_1_d1b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d3_2_u1b__2 & + owf_n2b_356_X4*( & + f_vaf(gncneu(1),gncneu(2),owf_z_12,owf_n2_478_X3)) oks_l1l1bl2l2bu2_1_d1b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d3_2_u1b__2 & + ( + f_fva(gncneu(1),gncneu(2),owf_n1b_256_X4,owf_z_34) & + f_fvl(gcc,owf_l1b_234,owf_wm_56_X4))*owf_n1_178_X3 oks_l1l1bl2l2bu2_1_d1b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d3_2_u1b__2 & + owf_u2b__1_125*( & - f_vaf(gncup(1),gncup(2),owf_z_34,owf_u2_1__678_X9) & - f_vf(qup,owf_a_34,owf_u2_1__678_X9) & + f_vlf(gccq21,owf_wp_78_X3,owf_d1_1__346)) oks_l1l1bl2l2bu2_1_d1b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d3_2_u1b__2 & + owf_u2b__1_345*( & - f_vaf(gncup(1),gncup(2),owf_z_12,owf_u2_1__678_X9) & - f_vf(qup,owf_a_12,owf_u2_1__678_X9)) oks_l1l1bl2l2bu2_1_d1b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d3_2_u1b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u1b__2_567_X16,owf_z_34) & + f_fv(qup,owf_u1b__2_567_X16,owf_a_34) & + f_fvl(gccq13,owf_d3b__2_347,owf_wm_56_X4))*owf_u1_2__128 oks_l1l1bl2l2bu2_1_d1b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d3_2_u1b__2 & + ( + f_fva(gncup(1),gncup(2),owf_u1b__2_567_X16,owf_z_12) & + f_fv(qup,owf_u1b__2_567_X16,owf_a_12))*owf_u1_2__348 oks_l1l1bl2l2bu2_1_d1b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d3_2_u1b__2 & + owf_d3b__2_127*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_34,owf_d3_2__568_X4) & + f_vf(qdwn,owf_a_34,owf_d3_2__568_X4) & + f_vlf(gccq13,owf_wm_56_X4,owf_u1_2__348)) oks_l1l1bl2l2bu2_1_d1b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d3_2_u1b__2 & + owf_d3b__2_347*( & + f_vaf(gncdwn(1),gncdwn(2),owf_z_12,owf_d3_2__568_X4) & + f_vf(qdwn,owf_a_12,owf_d3_2__568_X4)) oks_l1l1bl2l2bu2_1_d1b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d3_2_u1b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d1b__1_578_X10,owf_z_34) & - f_fv(qdwn,owf_d1b__1_578_X10,owf_a_34) & + f_fvl(gccq21,owf_u2b__1_345,owf_wp_78_X3))*owf_d1_1__126 oks_l1l1bl2l2bu2_1_d1b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d3_2_u1b__2 & + ( - f_fva(gncdwn(1),gncdwn(2),owf_d1b__1_578_X10,owf_z_12) & - f_fv(qdwn,owf_d1b__1_578_X10,owf_a_12))*owf_d1_1__346 oks_l1l1bl2l2bu2_1_d1b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d3_2_u1b__2 & + owf_a_12*( - ((((-2)*gazww)*(owf_wm_56_X4*owf_wp_78_X3))*owf_z_34 & + ((gazww)*(owf_z_34*owf_wm_56_X4))*owf_wp_78_X3 & + ((gazww)*(owf_z_34*owf_wp_78_X3))*owf_wm_56_X4) & - ((((-2)*gaaww)*(owf_wm_56_X4*owf_wp_78_X3))*owf_a_34 & + ((gaaww)*(owf_a_34*owf_wm_56_X4))*owf_wp_78_X3 & + ((gaaww)*(owf_a_34*owf_wp_78_X3))*owf_wm_56_X4)) oks_l1l1bl2l2bu2_1_d1b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d3_2_u1b__2 & + owf_a_1234*( - v_ff(qup,owf_u1b__2_567_X16,owf_u1_2__8) & - v_ff(qdwn,owf_d3b__2_7,owf_d3_2__568_X4) & + v_ff(qdwn,owf_d1b__1_578_X10,owf_d1_1__6) & + v_ff(qup,owf_u2b__1_5,owf_u2_1__678_X9)) oks_l1l1bl2l2bu2_1_d1b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d3_2_u1b__2 & + owf_a_1234*( + g_gg(iqw,owf_wm_56_X4,p56,owf_wp_78_X3,p78)) oks_l1l1bl2l2bu2_1_d1b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d3_2_u1b__2 & + owf_wp_1278_X3*( - vl_ff(gccq21,owf_u2b__1_345,owf_d1_1__6) & - vl_ff(gccq21,owf_u2b__1_5,owf_d1_1__346) & + vl_ff(gcc,owf_n2b_356_X4,owf_l2_4)) oks_l1l1bl2l2bu2_1_d1b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d3_2_u1b__2 & + owf_wp_1278_X3*( + g_gg(iqw,owf_a_34,p34,owf_wm_56_X4,p56) & + g_gg(igzww,owf_z_34,p34,owf_wm_56_X4,p56)) oks_l1l1bl2l2bu2_1_d1b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d3_2_u1b__2 & + owf_wm_1256_X4*( - vl_ff(gccq13,owf_d3b__2_347,owf_u1_2__8) & - vl_ff(gccq13,owf_d3b__2_7,owf_u1_2__348) & + vl_ff(gcc,owf_l2b_3,owf_n2_478_X3)) oks_l1l1bl2l2bu2_1_d1b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d3_2_u1b__2 & + owf_wm_1256_X4*( + g_gg(iqw,owf_wp_78_X3,p78,owf_a_34,p34) & + g_gg(igzww,owf_wp_78_X3,p78,owf_z_34,p34)) oks_l1l1bl2l2bu2_1_d1b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d3_2_u1b__2 & + owf_z_12*( - ((((-2)*gzzww)*(owf_wm_56_X4*owf_wp_78_X3))*owf_z_34 & + ((gzzww)*(owf_z_34*owf_wm_56_X4))*owf_wp_78_X3 & + ((gzzww)*(owf_z_34*owf_wp_78_X3))*owf_wm_56_X4) & - ((((-2)*gazww)*(owf_wm_56_X4*owf_wp_78_X3))*owf_a_34 & + ((gazww)*(owf_a_34*owf_wp_78_X3))*owf_wm_56_X4 & + ((gazww)*(owf_a_34*owf_wm_56_X4))*owf_wp_78_X3)) oks_l1l1bl2l2bu2_1_d1b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d3_2_u1b__2 & + owf_z_1234*( & - va_ff(gncup(1),gncup(2),owf_u1b__2_567_X16,owf_u1_2__8) & - va_ff(gncdwn(1),gncdwn(2),owf_d3b__2_7,owf_d3_2__568_X4) & + va_ff(gncdwn(1),gncdwn(2),owf_d1b__1_578_X10,owf_d1_1__6) & + va_ff(gncup(1),gncup(2),owf_u2b__1_5,owf_u2_1__678_X9)) oks_l1l1bl2l2bu2_1_d1b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d3_2_u1b__2 & + owf_z_1234*( + g_gg(igzww,owf_wm_56_X4,p56,owf_wp_78_X3,p78)) oks_l1l1bl2l2bu2_1_d1b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d3_2_u1b__2 & + owf_h_1234*( - s_ff(ghbb,owf_d3b__2_7,owf_d3_2__568_X4) & + s_ff(ghcc,owf_u2b__1_5,owf_u2_1__678_X9)) oks_l1l1bl2l2bu2_1_d1b__1d3_2_u1b__2 = oks_l1l1bl2l2bu2_1_d1b__1d3_2_u1b__2 & + owf_h_1234*( + ghww*(owf_wm_56_X4*owf_wp_78_X3)) oks_l1l1bl2l2bu2_1_d1b__1d3_2_u1b__2 = & - oks_l1l1bl2l2bu2_1_d1b__1d3_2_u1b__2 ! 6 vertices, 5 propagators ! unit symmetry factor end subroutine compute_brakets_0042 end module opr_P6f_llxyyx_i1