812
880
C Helas calls for the born amplitudes and counterterms
813
881
C associated to given loops
814
CALL IXXXXX(P(0,1),MDL_MU,NHEL(1),+1*IC(1),W(1,1))
815
CALL OXXXXX(P(0,2),MDL_MU,NHEL(2),-1*IC(2),W(1,2))
816
CALL OXXXXX(P(0,3),MDL_MD,NHEL(3),+1*IC(3),W(1,3))
817
CALL IXXXXX(P(0,4),MDL_MD,NHEL(4),-1*IC(4),W(1,4))
818
CALL FFV1P0_3(W(1,1),W(1,2),GC_11,ZERO,ZERO,W(1,5))
819
C Amplitude(s) for born diagram with ID 1
820
CALL FFV1_0(W(1,4),W(1,3),W(1,5),GC_11,AMP(1))
821
CALL FFV1P0_3(W(1,4),W(1,3),GC_11,ZERO,ZERO,W(1,6))
822
C Counter-term amplitude(s) for loop diagram number 2
823
CALL R2_GG_1_R2_GG_2_0(W(1,5),W(1,6),R2_GGG_1,R2_GGG_2
825
C Counter-term amplitude(s) for loop diagram number 3
826
CALL FFV1_0(W(1,4),W(1,3),W(1,5),UV_GQQQ_1EPS,AMPL(2,2))
827
CALL FFV1_0(W(1,4),W(1,3),W(1,5),UV_GQQQ_1EPS,AMPL(2,3))
828
CALL FFV1_0(W(1,4),W(1,3),W(1,5),UV_GQQQ_1EPS,AMPL(2,4))
829
CALL FFV1_0(W(1,4),W(1,3),W(1,5),UV_GQQQ_1EPS,AMPL(2,5))
830
CALL FFV1_0(W(1,4),W(1,3),W(1,5),UV_GQQB,AMPL(1,6))
831
CALL FFV1_0(W(1,4),W(1,3),W(1,5),UV_GQQB_1EPS,AMPL(2,7))
832
CALL FFV1_0(W(1,4),W(1,3),W(1,5),UV_GQQT,AMPL(1,8))
833
CALL FFV1_0(W(1,4),W(1,3),W(1,5),UV_GQQT_1EPS,AMPL(2,9))
834
CALL FFV1_0(W(1,4),W(1,3),W(1,5),UV_GQQG_1EPS,AMPL(2,10))
835
CALL FFV1_0(W(1,4),W(1,3),W(1,5),R2_GQQ,AMPL(1,11))
836
C Counter-term amplitude(s) for loop diagram number 5
837
CALL FFV1_0(W(1,1),W(1,2),W(1,6),UV_GQQQ_1EPS,AMPL(2,12))
838
CALL FFV1_0(W(1,1),W(1,2),W(1,6),UV_GQQQ_1EPS,AMPL(2,13))
839
CALL FFV1_0(W(1,1),W(1,2),W(1,6),UV_GQQQ_1EPS,AMPL(2,14))
840
CALL FFV1_0(W(1,1),W(1,2),W(1,6),UV_GQQQ_1EPS,AMPL(2,15))
841
CALL FFV1_0(W(1,1),W(1,2),W(1,6),UV_GQQB,AMPL(1,16))
842
CALL FFV1_0(W(1,1),W(1,2),W(1,6),UV_GQQB_1EPS,AMPL(2,17))
843
CALL FFV1_0(W(1,1),W(1,2),W(1,6),UV_GQQT,AMPL(1,18))
844
CALL FFV1_0(W(1,1),W(1,2),W(1,6),UV_GQQT_1EPS,AMPL(2,19))
845
CALL FFV1_0(W(1,1),W(1,2),W(1,6),UV_GQQG_1EPS,AMPL(2,20))
846
CALL FFV1_0(W(1,1),W(1,2),W(1,6),R2_GQQ,AMPL(1,21))
847
C Counter-term amplitude(s) for loop diagram number 10
848
CALL R2_GG_1_0(W(1,5),W(1,6),R2_GGQ,AMPL(1,22))
849
C Counter-term amplitude(s) for loop diagram number 11
850
CALL R2_GG_1_0(W(1,5),W(1,6),R2_GGQ,AMPL(1,23))
851
C Counter-term amplitude(s) for loop diagram number 12
852
CALL R2_GG_1_R2_GG_3_0(W(1,5),W(1,6),R2_GGQ,R2_GGT,AMPL(1
854
C Counter-term amplitude(s) for loop diagram number 13
855
CALL R2_GG_1_0(W(1,5),W(1,6),R2_GGQ,AMPL(1,25))
856
C Counter-term amplitude(s) for loop diagram number 14
857
CALL R2_GG_1_0(W(1,5),W(1,6),R2_GGQ,AMPL(1,26))
858
C Counter-term amplitude(s) for loop diagram number 15
859
CALL R2_GG_1_R2_GG_3_0(W(1,5),W(1,6),R2_GGQ,R2_GGB,AMPL(1
861
C At this point, all CT amps needed for (QCD=6 QED=0), i.e. of
862
C split order ID=1, are computed.
863
IF(FILTER_SO.AND.SQSO_TARGET.EQ.1) GOTO 2000
882
CALL ML5_0_HELAS_CALLS_AMPB_1(P,NHEL,H,IC)
865
884
CT_REQ_SO_DONE=.TRUE.
894
C Coefficient construction for loop diagram with ID 2
895
CALL VVV1L2P0_1(PL(0,0),W(1,5),GC_10,ZERO,ZERO,PL(0,1),COEFS)
896
CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,1))
897
CALL VVV1L2P0_1(PL(0,1),W(1,6),GC_10,ZERO,ZERO,PL(0,2),COEFS)
898
CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,1),4,COEFS,4,4,WL(1,0,1,2))
899
CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,2),2,4,1,2,1,28,H)
900
C Coefficient construction for loop diagram with ID 3
901
CALL FFV1L3_1(PL(0,0),W(1,3),GC_11,MDL_MD,ZERO,PL(0,3),COEFS)
902
CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,3))
903
CALL FFV1L2P0_3(PL(0,3),W(1,4),GC_11,ZERO,ZERO,PL(0,4),COEFS)
904
CALL ML5_0_UPDATE_WL_1_0(WL(1,0,1,3),4,COEFS,4,4,WL(1,0,1,4))
905
CALL VVV1L2P0_1(PL(0,4),W(1,5),GC_10,ZERO,ZERO,PL(0,5),COEFS)
906
CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,4),4,COEFS,4,4,WL(1,0,1,5))
907
CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,5),2,4,2,1,1,29,H)
908
C Coefficient construction for loop diagram with ID 4
909
CALL FFV1L1P0_3(PL(0,0),W(1,3),GC_11,ZERO,ZERO,PL(0,6),COEFS)
910
CALL ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,6))
911
CALL FFV1L3_2(PL(0,6),W(1,4),GC_11,MDL_MD,ZERO,PL(0,7),COEFS)
912
CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,6),4,COEFS,4,4,WL(1,0,1,7))
913
CALL FFV1L1_2(PL(0,7),W(1,5),GC_11,MDL_MD,ZERO,PL(0,8),COEFS)
914
CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,7),4,COEFS,4,4,WL(1,0,1,8))
915
CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,8),2,4,3,1,1,30,H)
916
C Coefficient construction for loop diagram with ID 5
917
CALL FFV1L2P0_3(PL(0,0),W(1,1),GC_11,ZERO,ZERO,PL(0,9),COEFS)
918
CALL ML5_0_UPDATE_WL_0_0(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1,9))
919
CALL FFV1L3_1(PL(0,9),W(1,2),GC_11,MDL_MU,ZERO,PL(0,10)
921
CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,9),4,COEFS,4,4,WL(1,0,1
923
CALL FFV1L2_1(PL(0,10),W(1,6),GC_11,MDL_MU,ZERO,PL(0,11)
925
CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,10),4,COEFS,4,4,WL(1,0,1
927
CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,11),2,4,4,1,1,31,H)
928
C Coefficient construction for loop diagram with ID 6
929
CALL FFV1L3_2(PL(0,0),W(1,1),GC_11,MDL_MU,ZERO,PL(0,12)
931
CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1
933
CALL FFV1L1P0_3(PL(0,12),W(1,2),GC_11,ZERO,ZERO,PL(0,13)
935
CALL ML5_0_UPDATE_WL_1_0(WL(1,0,1,12),4,COEFS,4,4,WL(1,0,1
937
CALL VVV1L2P0_1(PL(0,13),W(1,6),GC_10,ZERO,ZERO,PL(0,14)
939
CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,13),4,COEFS,4,4,WL(1,0,1
941
CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,14),2,4,5,1,1,32,H)
942
C Coefficient construction for loop diagram with ID 7
943
CALL FFV1L3_2(PL(0,13),W(1,4),GC_11,MDL_MD,ZERO,PL(0,15)
945
CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,13),4,COEFS,4,4,WL(1,0,1
947
CALL FFV1L1P0_3(PL(0,15),W(1,3),GC_11,ZERO,ZERO,PL(0,16)
949
CALL ML5_0_UPDATE_WL_2_0(WL(1,0,1,15),4,COEFS,4,4,WL(1,0,1
951
CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,16),2,4,6,1,1,33,H)
952
C Coefficient construction for loop diagram with ID 8
953
CALL FFV1L3_1(PL(0,13),W(1,3),GC_11,MDL_MD,ZERO,PL(0,17)
955
CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,13),4,COEFS,4,4,WL(1,0,1
957
CALL FFV1L2P0_3(PL(0,17),W(1,4),GC_11,ZERO,ZERO,PL(0,18)
959
CALL ML5_0_UPDATE_WL_2_0(WL(1,0,1,17),4,COEFS,4,4,WL(1,0,1
961
CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,18),2,4,7,1,1,34,H)
962
C Coefficient construction for loop diagram with ID 9
963
CALL UUV1L1_2(PL(0,0),W(1,5),GC_10,ZERO,ZERO,PL(0,19),COEFS)
964
CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),1,COEFS,1,1,WL(1,0,1
966
CALL UUV1L1_2(PL(0,19),W(1,6),GC_10,ZERO,ZERO,PL(0,20),COEFS)
967
CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,19),1,COEFS,1,1,WL(1,0,1
969
CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,20),2,1,1,1,1,35,H)
970
C Coefficient construction for loop diagram with ID 10
971
CALL FFV1L2_1(PL(0,0),W(1,5),GC_11,MDL_MU,ZERO,PL(0,21)
973
CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1
975
CALL FFV1L2_1(PL(0,21),W(1,6),GC_11,MDL_MU,ZERO,PL(0,22)
977
CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,21),4,COEFS,4,4,WL(1,0,1
979
CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,22),2,4,8,1,1,36,H)
980
C Coefficient construction for loop diagram with ID 11
981
CALL FFV1L2_1(PL(0,0),W(1,5),GC_11,MDL_MC,ZERO,PL(0,23)
983
CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1
985
CALL FFV1L2_1(PL(0,23),W(1,6),GC_11,MDL_MC,ZERO,PL(0,24)
987
CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,23),4,COEFS,4,4,WL(1,0,1
989
CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,24),2,4,9,1,1,37,H)
990
C Coefficient construction for loop diagram with ID 12
991
CALL FFV1L2_1(PL(0,0),W(1,5),GC_11,MDL_MT,MDL_WT,PL(0,25)
993
CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1
995
CALL FFV1L2_1(PL(0,25),W(1,6),GC_11,MDL_MT,MDL_WT,PL(0,26)
997
CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,25),4,COEFS,4,4,WL(1,0,1
999
CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,26),2,4,10,1,1,38,H)
1000
C Coefficient construction for loop diagram with ID 13
1001
CALL FFV1L2_1(PL(0,0),W(1,5),GC_11,MDL_MD,ZERO,PL(0,27)
1003
CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1
1005
CALL FFV1L2_1(PL(0,27),W(1,6),GC_11,MDL_MD,ZERO,PL(0,28)
1007
CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,27),4,COEFS,4,4,WL(1,0,1
1009
CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,28),2,4,11,1,1,39,H)
1010
C Coefficient construction for loop diagram with ID 14
1011
CALL FFV1L2_1(PL(0,0),W(1,5),GC_11,MDL_MS,ZERO,PL(0,29)
1013
CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1
1015
CALL FFV1L2_1(PL(0,29),W(1,6),GC_11,MDL_MS,ZERO,PL(0,30)
1017
CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,29),4,COEFS,4,4,WL(1,0,1
1019
CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,30),2,4,12,1,1,40,H)
1020
C Coefficient construction for loop diagram with ID 15
1021
CALL FFV1L2_1(PL(0,0),W(1,5),GC_11,MDL_MB,ZERO,PL(0,31)
1023
CALL ML5_0_UPDATE_WL_0_1(WL(1,0,1,0),4,COEFS,4,4,WL(1,0,1
1025
CALL FFV1L2_1(PL(0,31),W(1,6),GC_11,MDL_MB,ZERO,PL(0,32)
1027
CALL ML5_0_UPDATE_WL_1_1(WL(1,0,1,31),4,COEFS,4,4,WL(1,0,1
1029
CALL ML5_0_CREATE_LOOP_COEFS(WL(1,0,1,32),2,4,13,1,1,41,H)
1030
C At this point, all loop coefficients needed for (QCD=6
1031
C QED=0), i.e. of split order ID=1, are computed.
1032
IF(FILTER_SO.AND.SQSO_TARGET.EQ.1) GOTO 4000
913
CALL ML5_0_COEF_CONSTRUCTION_1(P,NHEL,H,IC)
1034
915
LOOP_REQ_SO_DONE=.TRUE.