← Back to branch summary

~maddevelopers/mg5amcnlo/PY8meetsMG5aMC_release

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/long_ML_SMQCD_default/gg_wmtbx/loop_matrix.f

  • Committer: Rikkert Frederix
  • Date: 2022-07-04 09:45:36 UTC
  • mfrom: (272.33.16 version2)
  • Revision ID: frederix@physik.uzh.ch-20220704094536-mpl1zqi3herw0enw
merge with 2.9.10

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/input_files/IOTestsComparison/long_ML_SMQCD_default/gg_wmtbx/loop_matrix.f
738
738
          CALL OXXXXX(P(0,4),MDL_MT,NHEL(4),+1*IC(4),W(1,4,H))
739
739
          CALL IXXXXX(P(0,5),MDL_MB,NHEL(5),-1*IC(5),W(1,5,H))
740
740
          CALL VVV1P0_1(W(1,1,H),W(1,2,H),GC_4,ZERO,ZERO,W(1,6,H))
741
 
          CALL FFV2_1(W(1,4,H),W(1,3,H),GC_47,MDL_MB,ZERO,W(1,7,H))
 
741
          CALL FFV2_1(W(1,4,H),W(1,3,H),GC_11,MDL_MB,ZERO,W(1,7,H))
742
742
C         Amplitude(s) for born diagram with ID 1
743
743
          CALL FFV1_0(W(1,5,H),W(1,7,H),W(1,6,H),GC_5,AMP(1,H))
744
 
          CALL FFV2_2(W(1,5,H),W(1,3,H),GC_47,MDL_MT,MDL_WT,W(1,8,H))
 
744
          CALL FFV2_2(W(1,5,H),W(1,3,H),GC_11,MDL_MT,MDL_WT,W(1,8,H))
745
745
C         Amplitude(s) for born diagram with ID 2
746
746
          CALL FFV1_0(W(1,8,H),W(1,4,H),W(1,6,H),GC_5,AMP(2,H))
747
747
          CALL FFV1_1(W(1,4,H),W(1,1,H),GC_5,MDL_MT,MDL_WT,W(1,9,H))
748
748
          CALL FFV1_2(W(1,5,H),W(1,2,H),GC_5,MDL_MB,ZERO,W(1,10,H))
749
749
C         Amplitude(s) for born diagram with ID 3
750
 
          CALL FFV2_0(W(1,10,H),W(1,9,H),W(1,3,H),GC_47,AMP(3,H))
 
750
          CALL FFV2_0(W(1,10,H),W(1,9,H),W(1,3,H),GC_11,AMP(3,H))
751
751
C         Amplitude(s) for born diagram with ID 4
752
752
          CALL FFV1_0(W(1,8,H),W(1,9,H),W(1,2,H),GC_5,AMP(4,H))
753
753
          CALL FFV1_2(W(1,5,H),W(1,1,H),GC_5,MDL_MB,ZERO,W(1,11,H))
754
754
          CALL FFV1_1(W(1,4,H),W(1,2,H),GC_5,MDL_MT,MDL_WT,W(1,12,H))
755
755
C         Amplitude(s) for born diagram with ID 5
756
 
          CALL FFV2_0(W(1,11,H),W(1,12,H),W(1,3,H),GC_47,AMP(5,H))
 
756
          CALL FFV2_0(W(1,11,H),W(1,12,H),W(1,3,H),GC_11,AMP(5,H))
757
757
C         Amplitude(s) for born diagram with ID 6
758
758
          CALL FFV1_0(W(1,11,H),W(1,7,H),W(1,2,H),GC_5,AMP(6,H))
759
759
C         Amplitude(s) for born diagram with ID 7
824
824
          CALL R2_GG_1_R2_GG_3_0(W(1,6,H),W(1,13,H),R2_GGQ,R2_GGB
825
825
     $     ,AMPL(1,38))
826
826
C         Counter-term amplitude(s) for loop diagram number 17
827
 
          CALL FFV1_0(W(1,5,H),W(1,7,H),W(1,6,H),UV_GQQQ_1EPS,AMPL(2
 
827
          CALL FFV1_0(W(1,5,H),W(1,7,H),W(1,6,H),UV_GQQB_1EPS,AMPL(2
828
828
     $     ,39))
829
 
          CALL FFV1_0(W(1,5,H),W(1,7,H),W(1,6,H),UV_GQQQ_1EPS,AMPL(2
 
829
          CALL FFV1_0(W(1,5,H),W(1,7,H),W(1,6,H),UV_GQQB_1EPS,AMPL(2
830
830
     $     ,40))
831
 
          CALL FFV1_0(W(1,5,H),W(1,7,H),W(1,6,H),UV_GQQQ_1EPS,AMPL(2
 
831
          CALL FFV1_0(W(1,5,H),W(1,7,H),W(1,6,H),UV_GQQB_1EPS,AMPL(2
832
832
     $     ,41))
833
 
          CALL FFV1_0(W(1,5,H),W(1,7,H),W(1,6,H),UV_GQQQ_1EPS,AMPL(2
 
833
          CALL FFV1_0(W(1,5,H),W(1,7,H),W(1,6,H),UV_GQQB_1EPS,AMPL(2
834
834
     $     ,42))
835
835
          CALL FFV1_0(W(1,5,H),W(1,7,H),W(1,6,H),UV_GQQB,AMPL(1,43))
836
 
          CALL FFV1_0(W(1,5,H),W(1,7,H),W(1,6,H),UV_GQQQ_1EPS,AMPL(2
 
836
          CALL FFV1_0(W(1,5,H),W(1,7,H),W(1,6,H),UV_GQQB_1EPS,AMPL(2
837
837
     $     ,44))
838
838
          CALL FFV1_0(W(1,5,H),W(1,7,H),W(1,6,H),UV_GQQT,AMPL(1,45))
839
 
          CALL FFV1_0(W(1,5,H),W(1,7,H),W(1,6,H),UV_GQQQ_1EPS,AMPL(2
 
839
          CALL FFV1_0(W(1,5,H),W(1,7,H),W(1,6,H),UV_GQQB_1EPS,AMPL(2
840
840
     $     ,46))
841
841
          CALL FFV1_0(W(1,5,H),W(1,7,H),W(1,6,H),UV_GQQG_1EPS,AMPL(2
842
842
     $     ,47))
845
845
          CALL R2_GG_1_R2_GG_3_0(W(1,6,H),W(1,14,H),R2_GGQ,R2_GGB
846
846
     $     ,AMPL(1,49))
847
847
C         Counter-term amplitude(s) for loop diagram number 20
848
 
          CALL FFV2_0(W(1,15,H),W(1,4,H),W(1,3,H),R2_SXCW,AMPL(1,50))
 
848
          CALL FFV2_0(W(1,15,H),W(1,4,H),W(1,3,H),R2_BXTW,AMPL(1,50))
849
849
          CALL FFV1_1(W(1,4,H),W(1,6,H),GC_5,MDL_MT,MDL_WT,W(1,16,H))
850
850
C         Counter-term amplitude(s) for loop diagram number 23
851
 
          CALL FFV2_0(W(1,5,H),W(1,16,H),W(1,3,H),R2_SXCW,AMPL(1,51))
852
 
          CALL FFV2_1(W(1,9,H),W(1,3,H),GC_47,MDL_MB,ZERO,W(1,17,H))
 
851
          CALL FFV2_0(W(1,5,H),W(1,16,H),W(1,3,H),R2_BXTW,AMPL(1,51))
 
852
          CALL FFV2_1(W(1,9,H),W(1,3,H),GC_11,MDL_MB,ZERO,W(1,17,H))
853
853
C         Counter-term amplitude(s) for loop diagram number 25
854
854
          CALL R2_QQ_1_R2_QQ_2_0(W(1,10,H),W(1,17,H),R2_QQQ,R2_QQB
855
855
     $     ,AMPL(1,52))
856
856
          CALL R2_QQ_2_0(W(1,10,H),W(1,17,H),UV_BMASS,AMPL(1,53))
857
857
          CALL R2_QQ_2_0(W(1,10,H),W(1,17,H),UV_BMASS_1EPS,AMPL(2,54))
858
858
C         Counter-term amplitude(s) for loop diagram number 26
859
 
          CALL FFV2_0(W(1,10,H),W(1,9,H),W(1,3,H),R2_SXCW,AMPL(1,55))
 
859
          CALL FFV2_0(W(1,10,H),W(1,9,H),W(1,3,H),R2_BXTW,AMPL(1,55))
860
860
C         Counter-term amplitude(s) for loop diagram number 27
861
 
          CALL FFV1_0(W(1,5,H),W(1,17,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
 
861
          CALL FFV1_0(W(1,5,H),W(1,17,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
862
862
     $     ,56))
863
 
          CALL FFV1_0(W(1,5,H),W(1,17,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
 
863
          CALL FFV1_0(W(1,5,H),W(1,17,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
864
864
     $     ,57))
865
 
          CALL FFV1_0(W(1,5,H),W(1,17,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
 
865
          CALL FFV1_0(W(1,5,H),W(1,17,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
866
866
     $     ,58))
867
 
          CALL FFV1_0(W(1,5,H),W(1,17,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
 
867
          CALL FFV1_0(W(1,5,H),W(1,17,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
868
868
     $     ,59))
869
869
          CALL FFV1_0(W(1,5,H),W(1,17,H),W(1,2,H),UV_GQQB,AMPL(1,60))
870
 
          CALL FFV1_0(W(1,5,H),W(1,17,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
 
870
          CALL FFV1_0(W(1,5,H),W(1,17,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
871
871
     $     ,61))
872
872
          CALL FFV1_0(W(1,5,H),W(1,17,H),W(1,2,H),UV_GQQT,AMPL(1,62))
873
 
          CALL FFV1_0(W(1,5,H),W(1,17,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
 
873
          CALL FFV1_0(W(1,5,H),W(1,17,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
874
874
     $     ,63))
875
875
          CALL FFV1_0(W(1,5,H),W(1,17,H),W(1,2,H),UV_GQQG_1EPS,AMPL(2
876
876
     $     ,64))
877
877
          CALL FFV1_0(W(1,5,H),W(1,17,H),W(1,2,H),R2_GQQ,AMPL(1,65))
878
878
          CALL FFV1_1(W(1,9,H),W(1,2,H),GC_5,MDL_MT,MDL_WT,W(1,18,H))
879
879
C         Counter-term amplitude(s) for loop diagram number 29
880
 
          CALL FFV2_0(W(1,5,H),W(1,18,H),W(1,3,H),R2_SXCW,AMPL(1,66))
881
 
          CALL FFV2_1(W(1,12,H),W(1,3,H),GC_47,MDL_MB,ZERO,W(1,19,H))
 
880
          CALL FFV2_0(W(1,5,H),W(1,18,H),W(1,3,H),R2_BXTW,AMPL(1,66))
 
881
          CALL FFV2_1(W(1,12,H),W(1,3,H),GC_11,MDL_MB,ZERO,W(1,19,H))
882
882
C         Counter-term amplitude(s) for loop diagram number 33
883
883
          CALL R2_QQ_1_R2_QQ_2_0(W(1,11,H),W(1,19,H),R2_QQQ,R2_QQB
884
884
     $     ,AMPL(1,67))
885
885
          CALL R2_QQ_2_0(W(1,11,H),W(1,19,H),UV_BMASS,AMPL(1,68))
886
886
          CALL R2_QQ_2_0(W(1,11,H),W(1,19,H),UV_BMASS_1EPS,AMPL(2,69))
887
887
C         Counter-term amplitude(s) for loop diagram number 34
888
 
          CALL FFV2_0(W(1,11,H),W(1,12,H),W(1,3,H),R2_SXCW,AMPL(1,70))
 
888
          CALL FFV2_0(W(1,11,H),W(1,12,H),W(1,3,H),R2_BXTW,AMPL(1,70))
889
889
C         Counter-term amplitude(s) for loop diagram number 35
890
 
          CALL FFV1_0(W(1,11,H),W(1,7,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
 
890
          CALL FFV1_0(W(1,11,H),W(1,7,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
891
891
     $     ,71))
892
 
          CALL FFV1_0(W(1,11,H),W(1,7,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
 
892
          CALL FFV1_0(W(1,11,H),W(1,7,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
893
893
     $     ,72))
894
 
          CALL FFV1_0(W(1,11,H),W(1,7,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
 
894
          CALL FFV1_0(W(1,11,H),W(1,7,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
895
895
     $     ,73))
896
 
          CALL FFV1_0(W(1,11,H),W(1,7,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
 
896
          CALL FFV1_0(W(1,11,H),W(1,7,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
897
897
     $     ,74))
898
898
          CALL FFV1_0(W(1,11,H),W(1,7,H),W(1,2,H),UV_GQQB,AMPL(1,75))
899
 
          CALL FFV1_0(W(1,11,H),W(1,7,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
 
899
          CALL FFV1_0(W(1,11,H),W(1,7,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
900
900
     $     ,76))
901
901
          CALL FFV1_0(W(1,11,H),W(1,7,H),W(1,2,H),UV_GQQT,AMPL(1,77))
902
 
          CALL FFV1_0(W(1,11,H),W(1,7,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
 
902
          CALL FFV1_0(W(1,11,H),W(1,7,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
903
903
     $     ,78))
904
904
          CALL FFV1_0(W(1,11,H),W(1,7,H),W(1,2,H),UV_GQQG_1EPS,AMPL(2
905
905
     $     ,79))
917
917
          CALL R2_QQ_2_0(W(1,11,H),W(1,21,H),UV_BMASS,AMPL(1,85))
918
918
          CALL R2_QQ_2_0(W(1,11,H),W(1,21,H),UV_BMASS_1EPS,AMPL(2,86))
919
919
C         Counter-term amplitude(s) for loop diagram number 40
920
 
          CALL FFV2_0(W(1,20,H),W(1,4,H),W(1,3,H),R2_SXCW,AMPL(1,87))
 
920
          CALL FFV2_0(W(1,20,H),W(1,4,H),W(1,3,H),R2_BXTW,AMPL(1,87))
921
921
C         Counter-term amplitude(s) for loop diagram number 43
922
 
          CALL FFV1_0(W(1,5,H),W(1,19,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
 
922
          CALL FFV1_0(W(1,5,H),W(1,19,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
923
923
     $     ,88))
924
 
          CALL FFV1_0(W(1,5,H),W(1,19,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
 
924
          CALL FFV1_0(W(1,5,H),W(1,19,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
925
925
     $     ,89))
926
 
          CALL FFV1_0(W(1,5,H),W(1,19,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
 
926
          CALL FFV1_0(W(1,5,H),W(1,19,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
927
927
     $     ,90))
928
 
          CALL FFV1_0(W(1,5,H),W(1,19,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
 
928
          CALL FFV1_0(W(1,5,H),W(1,19,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
929
929
     $     ,91))
930
930
          CALL FFV1_0(W(1,5,H),W(1,19,H),W(1,1,H),UV_GQQB,AMPL(1,92))
931
 
          CALL FFV1_0(W(1,5,H),W(1,19,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
 
931
          CALL FFV1_0(W(1,5,H),W(1,19,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
932
932
     $     ,93))
933
933
          CALL FFV1_0(W(1,5,H),W(1,19,H),W(1,1,H),UV_GQQT,AMPL(1,94))
934
 
          CALL FFV1_0(W(1,5,H),W(1,19,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
 
934
          CALL FFV1_0(W(1,5,H),W(1,19,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
935
935
     $     ,95))
936
936
          CALL FFV1_0(W(1,5,H),W(1,19,H),W(1,1,H),UV_GQQG_1EPS,AMPL(2
937
937
     $     ,96))
938
938
          CALL FFV1_0(W(1,5,H),W(1,19,H),W(1,1,H),R2_GQQ,AMPL(1,97))
939
939
C         Counter-term amplitude(s) for loop diagram number 45
940
 
          CALL FFV1_0(W(1,10,H),W(1,7,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
 
940
          CALL FFV1_0(W(1,10,H),W(1,7,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
941
941
     $     ,98))
942
 
          CALL FFV1_0(W(1,10,H),W(1,7,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
 
942
          CALL FFV1_0(W(1,10,H),W(1,7,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
943
943
     $     ,99))
944
 
          CALL FFV1_0(W(1,10,H),W(1,7,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
 
944
          CALL FFV1_0(W(1,10,H),W(1,7,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
945
945
     $     ,100))
946
 
          CALL FFV1_0(W(1,10,H),W(1,7,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
 
946
          CALL FFV1_0(W(1,10,H),W(1,7,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
947
947
     $     ,101))
948
948
          CALL FFV1_0(W(1,10,H),W(1,7,H),W(1,1,H),UV_GQQB,AMPL(1,102))
949
 
          CALL FFV1_0(W(1,10,H),W(1,7,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
 
949
          CALL FFV1_0(W(1,10,H),W(1,7,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
950
950
     $     ,103))
951
951
          CALL FFV1_0(W(1,10,H),W(1,7,H),W(1,1,H),UV_GQQT,AMPL(1,104))
952
 
          CALL FFV1_0(W(1,10,H),W(1,7,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
 
952
          CALL FFV1_0(W(1,10,H),W(1,7,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
953
953
     $     ,105))
954
954
          CALL FFV1_0(W(1,10,H),W(1,7,H),W(1,1,H),UV_GQQG_1EPS,AMPL(2
955
955
     $     ,106))
959
959
C         Counter-term amplitude(s) for loop diagram number 50
960
960
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,14,H),R2_3GQ,AMPL(1,109))
961
961
C         Counter-term amplitude(s) for loop diagram number 53
962
 
          CALL FFV1_0(W(1,5,H),W(1,21,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
 
962
          CALL FFV1_0(W(1,5,H),W(1,21,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
963
963
     $     ,110))
964
 
          CALL FFV1_0(W(1,5,H),W(1,21,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
 
964
          CALL FFV1_0(W(1,5,H),W(1,21,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
965
965
     $     ,111))
966
 
          CALL FFV1_0(W(1,5,H),W(1,21,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
 
966
          CALL FFV1_0(W(1,5,H),W(1,21,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
967
967
     $     ,112))
968
 
          CALL FFV1_0(W(1,5,H),W(1,21,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
 
968
          CALL FFV1_0(W(1,5,H),W(1,21,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
969
969
     $     ,113))
970
970
          CALL FFV1_0(W(1,5,H),W(1,21,H),W(1,1,H),UV_GQQB,AMPL(1,114))
971
 
          CALL FFV1_0(W(1,5,H),W(1,21,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
 
971
          CALL FFV1_0(W(1,5,H),W(1,21,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
972
972
     $     ,115))
973
973
          CALL FFV1_0(W(1,5,H),W(1,21,H),W(1,1,H),UV_GQQT,AMPL(1,116))
974
 
          CALL FFV1_0(W(1,5,H),W(1,21,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
 
974
          CALL FFV1_0(W(1,5,H),W(1,21,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
975
975
     $     ,117))
976
976
          CALL FFV1_0(W(1,5,H),W(1,21,H),W(1,1,H),UV_GQQG_1EPS,AMPL(2
977
977
     $     ,118))
978
978
          CALL FFV1_0(W(1,5,H),W(1,21,H),W(1,1,H),R2_GQQ,AMPL(1,119))
979
979
          CALL FFV1_1(W(1,12,H),W(1,1,H),GC_5,MDL_MT,MDL_WT,W(1,22,H))
980
980
C         Counter-term amplitude(s) for loop diagram number 59
981
 
          CALL FFV2_0(W(1,5,H),W(1,22,H),W(1,3,H),R2_SXCW,AMPL(1,120))
 
981
          CALL FFV2_0(W(1,5,H),W(1,22,H),W(1,3,H),R2_BXTW,AMPL(1,120))
982
982
          CALL FFV1_2(W(1,10,H),W(1,1,H),GC_5,MDL_MB,ZERO,W(1,23,H))
983
983
C         Counter-term amplitude(s) for loop diagram number 63
984
984
          CALL R2_QQ_1_R2_QQ_2_0(W(1,23,H),W(1,7,H),R2_QQQ,R2_QQB
992
992
          CALL R2_QQ_2_0(W(1,10,H),W(1,24,H),UV_BMASS,AMPL(1,125))
993
993
          CALL R2_QQ_2_0(W(1,10,H),W(1,24,H),UV_BMASS_1EPS,AMPL(2,126))
994
994
C         Counter-term amplitude(s) for loop diagram number 66
995
 
          CALL FFV2_0(W(1,23,H),W(1,4,H),W(1,3,H),R2_SXCW,AMPL(1,127))
 
995
          CALL FFV2_0(W(1,23,H),W(1,4,H),W(1,3,H),R2_BXTW,AMPL(1,127))
996
996
C         Counter-term amplitude(s) for loop diagram number 69
997
 
          CALL FFV1_0(W(1,5,H),W(1,24,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
 
997
          CALL FFV1_0(W(1,5,H),W(1,24,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
998
998
     $     ,128))
999
 
          CALL FFV1_0(W(1,5,H),W(1,24,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
 
999
          CALL FFV1_0(W(1,5,H),W(1,24,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
1000
1000
     $     ,129))
1001
 
          CALL FFV1_0(W(1,5,H),W(1,24,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
 
1001
          CALL FFV1_0(W(1,5,H),W(1,24,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
1002
1002
     $     ,130))
1003
 
          CALL FFV1_0(W(1,5,H),W(1,24,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
 
1003
          CALL FFV1_0(W(1,5,H),W(1,24,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
1004
1004
     $     ,131))
1005
1005
          CALL FFV1_0(W(1,5,H),W(1,24,H),W(1,2,H),UV_GQQB,AMPL(1,132))
1006
 
          CALL FFV1_0(W(1,5,H),W(1,24,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
 
1006
          CALL FFV1_0(W(1,5,H),W(1,24,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
1007
1007
     $     ,133))
1008
1008
          CALL FFV1_0(W(1,5,H),W(1,24,H),W(1,2,H),UV_GQQT,AMPL(1,134))
1009
 
          CALL FFV1_0(W(1,5,H),W(1,24,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
 
1009
          CALL FFV1_0(W(1,5,H),W(1,24,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
1010
1010
     $     ,135))
1011
1011
          CALL FFV1_0(W(1,5,H),W(1,24,H),W(1,2,H),UV_GQQG_1EPS,AMPL(2
1012
1012
     $     ,136))
1023
1023
          CALL R2_GG_1_R2_GG_3_0(W(1,6,H),W(1,14,H),R2_GGQ,R2_GGT
1024
1024
     $     ,AMPL(1,142))
1025
1025
C         Counter-term amplitude(s) for loop diagram number 88
1026
 
          CALL FFV1_0(W(1,8,H),W(1,4,H),W(1,6,H),UV_GQQQ_1EPS,AMPL(2
 
1026
          CALL FFV1_0(W(1,8,H),W(1,4,H),W(1,6,H),UV_GQQB_1EPS,AMPL(2
1027
1027
     $     ,143))
1028
 
          CALL FFV1_0(W(1,8,H),W(1,4,H),W(1,6,H),UV_GQQQ_1EPS,AMPL(2
 
1028
          CALL FFV1_0(W(1,8,H),W(1,4,H),W(1,6,H),UV_GQQB_1EPS,AMPL(2
1029
1029
     $     ,144))
1030
 
          CALL FFV1_0(W(1,8,H),W(1,4,H),W(1,6,H),UV_GQQQ_1EPS,AMPL(2
 
1030
          CALL FFV1_0(W(1,8,H),W(1,4,H),W(1,6,H),UV_GQQB_1EPS,AMPL(2
1031
1031
     $     ,145))
1032
 
          CALL FFV1_0(W(1,8,H),W(1,4,H),W(1,6,H),UV_GQQQ_1EPS,AMPL(2
 
1032
          CALL FFV1_0(W(1,8,H),W(1,4,H),W(1,6,H),UV_GQQB_1EPS,AMPL(2
1033
1033
     $     ,146))
1034
1034
          CALL FFV1_0(W(1,8,H),W(1,4,H),W(1,6,H),UV_GQQB,AMPL(1,147))
1035
 
          CALL FFV1_0(W(1,8,H),W(1,4,H),W(1,6,H),UV_GQQQ_1EPS,AMPL(2
 
1035
          CALL FFV1_0(W(1,8,H),W(1,4,H),W(1,6,H),UV_GQQB_1EPS,AMPL(2
1036
1036
     $     ,148))
1037
1037
          CALL FFV1_0(W(1,8,H),W(1,4,H),W(1,6,H),UV_GQQT,AMPL(1,149))
1038
 
          CALL FFV1_0(W(1,8,H),W(1,4,H),W(1,6,H),UV_GQQQ_1EPS,AMPL(2
 
1038
          CALL FFV1_0(W(1,8,H),W(1,4,H),W(1,6,H),UV_GQQB_1EPS,AMPL(2
1039
1039
     $     ,150))
1040
1040
          CALL FFV1_0(W(1,8,H),W(1,4,H),W(1,6,H),UV_GQQG_1EPS,AMPL(2
1041
1041
     $     ,151))
1042
1042
          CALL FFV1_0(W(1,8,H),W(1,4,H),W(1,6,H),R2_GQQ,AMPL(1,152))
1043
 
          CALL FFV2_2(W(1,10,H),W(1,3,H),GC_47,MDL_MT,MDL_WT,W(1,25,H))
 
1043
          CALL FFV2_2(W(1,10,H),W(1,3,H),GC_11,MDL_MT,MDL_WT,W(1,25,H))
1044
1044
C         Counter-term amplitude(s) for loop diagram number 90
1045
1045
          CALL R2_QQ_1_R2_QQ_2_0(W(1,25,H),W(1,9,H),R2_QQQ,R2_QQT
1046
1046
     $     ,AMPL(1,153))
1047
1047
          CALL R2_QQ_2_0(W(1,25,H),W(1,9,H),UV_TMASS,AMPL(1,154))
1048
1048
          CALL R2_QQ_2_0(W(1,25,H),W(1,9,H),UV_TMASS_1EPS,AMPL(2,155))
1049
1049
C         Counter-term amplitude(s) for loop diagram number 91
1050
 
          CALL FFV1_0(W(1,8,H),W(1,9,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
 
1050
          CALL FFV1_0(W(1,8,H),W(1,9,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
1051
1051
     $     ,156))
1052
 
          CALL FFV1_0(W(1,8,H),W(1,9,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
 
1052
          CALL FFV1_0(W(1,8,H),W(1,9,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
1053
1053
     $     ,157))
1054
 
          CALL FFV1_0(W(1,8,H),W(1,9,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
 
1054
          CALL FFV1_0(W(1,8,H),W(1,9,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
1055
1055
     $     ,158))
1056
 
          CALL FFV1_0(W(1,8,H),W(1,9,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
 
1056
          CALL FFV1_0(W(1,8,H),W(1,9,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
1057
1057
     $     ,159))
1058
1058
          CALL FFV1_0(W(1,8,H),W(1,9,H),W(1,2,H),UV_GQQB,AMPL(1,160))
1059
 
          CALL FFV1_0(W(1,8,H),W(1,9,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
 
1059
          CALL FFV1_0(W(1,8,H),W(1,9,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
1060
1060
     $     ,161))
1061
1061
          CALL FFV1_0(W(1,8,H),W(1,9,H),W(1,2,H),UV_GQQT,AMPL(1,162))
1062
 
          CALL FFV1_0(W(1,8,H),W(1,9,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
 
1062
          CALL FFV1_0(W(1,8,H),W(1,9,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
1063
1063
     $     ,163))
1064
1064
          CALL FFV1_0(W(1,8,H),W(1,9,H),W(1,2,H),UV_GQQG_1EPS,AMPL(2
1065
1065
     $     ,164))
1075
1075
     $     ,AMPL(1,169))
1076
1076
          CALL R2_QQ_2_0(W(1,26,H),W(1,9,H),UV_TMASS,AMPL(1,170))
1077
1077
          CALL R2_QQ_2_0(W(1,26,H),W(1,9,H),UV_TMASS_1EPS,AMPL(2,171))
1078
 
          CALL FFV2_2(W(1,11,H),W(1,3,H),GC_47,MDL_MT,MDL_WT,W(1,27,H))
 
1078
          CALL FFV2_2(W(1,11,H),W(1,3,H),GC_11,MDL_MT,MDL_WT,W(1,27,H))
1079
1079
C         Counter-term amplitude(s) for loop diagram number 95
1080
1080
          CALL R2_QQ_1_R2_QQ_2_0(W(1,27,H),W(1,12,H),R2_QQQ,R2_QQT
1081
1081
     $     ,AMPL(1,172))
1082
1082
          CALL R2_QQ_2_0(W(1,27,H),W(1,12,H),UV_TMASS,AMPL(1,173))
1083
1083
          CALL R2_QQ_2_0(W(1,27,H),W(1,12,H),UV_TMASS_1EPS,AMPL(2,174))
1084
1084
C         Counter-term amplitude(s) for loop diagram number 96
1085
 
          CALL FFV1_0(W(1,27,H),W(1,4,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
 
1085
          CALL FFV1_0(W(1,27,H),W(1,4,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
1086
1086
     $     ,175))
1087
 
          CALL FFV1_0(W(1,27,H),W(1,4,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
 
1087
          CALL FFV1_0(W(1,27,H),W(1,4,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
1088
1088
     $     ,176))
1089
 
          CALL FFV1_0(W(1,27,H),W(1,4,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
 
1089
          CALL FFV1_0(W(1,27,H),W(1,4,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
1090
1090
     $     ,177))
1091
 
          CALL FFV1_0(W(1,27,H),W(1,4,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
 
1091
          CALL FFV1_0(W(1,27,H),W(1,4,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
1092
1092
     $     ,178))
1093
1093
          CALL FFV1_0(W(1,27,H),W(1,4,H),W(1,2,H),UV_GQQB,AMPL(1,179))
1094
 
          CALL FFV1_0(W(1,27,H),W(1,4,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
 
1094
          CALL FFV1_0(W(1,27,H),W(1,4,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
1095
1095
     $     ,180))
1096
1096
          CALL FFV1_0(W(1,27,H),W(1,4,H),W(1,2,H),UV_GQQT,AMPL(1,181))
1097
 
          CALL FFV1_0(W(1,27,H),W(1,4,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
 
1097
          CALL FFV1_0(W(1,27,H),W(1,4,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
1098
1098
     $     ,182))
1099
1099
          CALL FFV1_0(W(1,27,H),W(1,4,H),W(1,2,H),UV_GQQG_1EPS,AMPL(2
1100
1100
     $     ,183))
1101
1101
          CALL FFV1_0(W(1,27,H),W(1,4,H),W(1,2,H),R2_GQQ,AMPL(1,184))
1102
1102
C         Counter-term amplitude(s) for loop diagram number 98
1103
 
          CALL FFV1_0(W(1,8,H),W(1,12,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
 
1103
          CALL FFV1_0(W(1,8,H),W(1,12,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
1104
1104
     $     ,185))
1105
 
          CALL FFV1_0(W(1,8,H),W(1,12,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
 
1105
          CALL FFV1_0(W(1,8,H),W(1,12,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
1106
1106
     $     ,186))
1107
 
          CALL FFV1_0(W(1,8,H),W(1,12,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
 
1107
          CALL FFV1_0(W(1,8,H),W(1,12,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
1108
1108
     $     ,187))
1109
 
          CALL FFV1_0(W(1,8,H),W(1,12,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
 
1109
          CALL FFV1_0(W(1,8,H),W(1,12,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
1110
1110
     $     ,188))
1111
1111
          CALL FFV1_0(W(1,8,H),W(1,12,H),W(1,1,H),UV_GQQB,AMPL(1,189))
1112
 
          CALL FFV1_0(W(1,8,H),W(1,12,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
 
1112
          CALL FFV1_0(W(1,8,H),W(1,12,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
1113
1113
     $     ,190))
1114
1114
          CALL FFV1_0(W(1,8,H),W(1,12,H),W(1,1,H),UV_GQQT,AMPL(1,191))
1115
 
          CALL FFV1_0(W(1,8,H),W(1,12,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
 
1115
          CALL FFV1_0(W(1,8,H),W(1,12,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
1116
1116
     $     ,192))
1117
1117
          CALL FFV1_0(W(1,8,H),W(1,12,H),W(1,1,H),UV_GQQG_1EPS,AMPL(2
1118
1118
     $     ,193))
1119
1119
          CALL FFV1_0(W(1,8,H),W(1,12,H),W(1,1,H),R2_GQQ,AMPL(1,194))
1120
1120
C         Counter-term amplitude(s) for loop diagram number 99
1121
 
          CALL FFV1_0(W(1,25,H),W(1,4,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
 
1121
          CALL FFV1_0(W(1,25,H),W(1,4,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
1122
1122
     $     ,195))
1123
 
          CALL FFV1_0(W(1,25,H),W(1,4,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
 
1123
          CALL FFV1_0(W(1,25,H),W(1,4,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
1124
1124
     $     ,196))
1125
 
          CALL FFV1_0(W(1,25,H),W(1,4,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
 
1125
          CALL FFV1_0(W(1,25,H),W(1,4,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
1126
1126
     $     ,197))
1127
 
          CALL FFV1_0(W(1,25,H),W(1,4,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
 
1127
          CALL FFV1_0(W(1,25,H),W(1,4,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
1128
1128
     $     ,198))
1129
1129
          CALL FFV1_0(W(1,25,H),W(1,4,H),W(1,1,H),UV_GQQB,AMPL(1,199))
1130
 
          CALL FFV1_0(W(1,25,H),W(1,4,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
 
1130
          CALL FFV1_0(W(1,25,H),W(1,4,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
1131
1131
     $     ,200))
1132
1132
          CALL FFV1_0(W(1,25,H),W(1,4,H),W(1,1,H),UV_GQQT,AMPL(1,201))
1133
 
          CALL FFV1_0(W(1,25,H),W(1,4,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
 
1133
          CALL FFV1_0(W(1,25,H),W(1,4,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
1134
1134
     $     ,202))
1135
1135
          CALL FFV1_0(W(1,25,H),W(1,4,H),W(1,1,H),UV_GQQG_1EPS,AMPL(2
1136
1136
     $     ,203))
1140
1140
C         Counter-term amplitude(s) for loop diagram number 101
1141
1141
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,14,H),R2_3GQ,AMPL(1,206))
1142
1142
C         Counter-term amplitude(s) for loop diagram number 107
1143
 
          CALL FFV1_0(W(1,26,H),W(1,4,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
 
1143
          CALL FFV1_0(W(1,26,H),W(1,4,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
1144
1144
     $     ,207))
1145
 
          CALL FFV1_0(W(1,26,H),W(1,4,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
 
1145
          CALL FFV1_0(W(1,26,H),W(1,4,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
1146
1146
     $     ,208))
1147
 
          CALL FFV1_0(W(1,26,H),W(1,4,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
 
1147
          CALL FFV1_0(W(1,26,H),W(1,4,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
1148
1148
     $     ,209))
1149
 
          CALL FFV1_0(W(1,26,H),W(1,4,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
 
1149
          CALL FFV1_0(W(1,26,H),W(1,4,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
1150
1150
     $     ,210))
1151
1151
          CALL FFV1_0(W(1,26,H),W(1,4,H),W(1,1,H),UV_GQQB,AMPL(1,211))
1152
 
          CALL FFV1_0(W(1,26,H),W(1,4,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
 
1152
          CALL FFV1_0(W(1,26,H),W(1,4,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
1153
1153
     $     ,212))
1154
1154
          CALL FFV1_0(W(1,26,H),W(1,4,H),W(1,1,H),UV_GQQT,AMPL(1,213))
1155
 
          CALL FFV1_0(W(1,26,H),W(1,4,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
 
1155
          CALL FFV1_0(W(1,26,H),W(1,4,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
1156
1156
     $     ,214))
1157
1157
          CALL FFV1_0(W(1,26,H),W(1,4,H),W(1,1,H),UV_GQQG_1EPS,AMPL(2
1158
1158
     $     ,215))
1169
1169
          CALL R2_QQ_2_0(W(1,28,H),W(1,12,H),UV_TMASS,AMPL(1,221))
1170
1170
          CALL R2_QQ_2_0(W(1,28,H),W(1,12,H),UV_TMASS_1EPS,AMPL(2,222))
1171
1171
C         Counter-term amplitude(s) for loop diagram number 112
1172
 
          CALL FFV1_0(W(1,28,H),W(1,4,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
 
1172
          CALL FFV1_0(W(1,28,H),W(1,4,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
1173
1173
     $     ,223))
1174
 
          CALL FFV1_0(W(1,28,H),W(1,4,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
 
1174
          CALL FFV1_0(W(1,28,H),W(1,4,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
1175
1175
     $     ,224))
1176
 
          CALL FFV1_0(W(1,28,H),W(1,4,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
 
1176
          CALL FFV1_0(W(1,28,H),W(1,4,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
1177
1177
     $     ,225))
1178
 
          CALL FFV1_0(W(1,28,H),W(1,4,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
 
1178
          CALL FFV1_0(W(1,28,H),W(1,4,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
1179
1179
     $     ,226))
1180
1180
          CALL FFV1_0(W(1,28,H),W(1,4,H),W(1,2,H),UV_GQQB,AMPL(1,227))
1181
 
          CALL FFV1_0(W(1,28,H),W(1,4,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
 
1181
          CALL FFV1_0(W(1,28,H),W(1,4,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
1182
1182
     $     ,228))
1183
1183
          CALL FFV1_0(W(1,28,H),W(1,4,H),W(1,2,H),UV_GQQT,AMPL(1,229))
1184
 
          CALL FFV1_0(W(1,28,H),W(1,4,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
 
1184
          CALL FFV1_0(W(1,28,H),W(1,4,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
1185
1185
     $     ,230))
1186
1186
          CALL FFV1_0(W(1,28,H),W(1,4,H),W(1,2,H),UV_GQQG_1EPS,AMPL(2
1187
1187
     $     ,231))
1197
1197
C         Counter-term amplitude(s) for loop diagram number 122
1198
1198
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,14,H),R2_3GG,AMPL(1,236))
1199
1199
C         Amplitude(s) for UVCT diagram with ID 135
1200
 
          CALL FFV1_0(W(1,5,H),W(1,7,H),W(1,6,H),GC_5,AMPL(1,237))
1201
 
          AMPL(1,237)=AMPL(1,237)*(2.0D0*UVWFCT_G_2+2.0D0*UVWFCT_G_1
1202
 
     $     +1.0D0*UVWFCT_T_0+1.0D0*UVWFCT_B_0)
 
1200
          CALL FFV1_0(W(1,5,H),W(1,7,H),W(1,6,H),GC_5,AMPL(2,237))
 
1201
          AMPL(2,237)=AMPL(2,237)*(4.0D0*UVWFCT_G_1_1EPS+2.0D0
 
1202
     $     *UVWFCT_B_0_1EPS)
1203
1203
C         Amplitude(s) for UVCT diagram with ID 136
1204
 
          CALL FFV1_0(W(1,5,H),W(1,7,H),W(1,6,H),GC_5,AMPL(2,238))
1205
 
          AMPL(2,238)=AMPL(2,238)*(2.0D0*UVWFCT_B_0_1EPS+4.0D0
1206
 
     $     *UVWFCT_G_2_1EPS)
 
1204
          CALL FFV1_0(W(1,5,H),W(1,7,H),W(1,6,H),GC_5,AMPL(1,238))
 
1205
          AMPL(1,238)=AMPL(1,238)*(1.0D0*UVWFCT_B_0+2.0D0*UVWFCT_G_1
 
1206
     $     +1.0D0*UVWFCT_T_0+2.0D0*UVWFCT_G_2)
1207
1207
C         Amplitude(s) for UVCT diagram with ID 137
1208
 
          CALL FFV1_0(W(1,8,H),W(1,4,H),W(1,6,H),GC_5,AMPL(1,239))
1209
 
          AMPL(1,239)=AMPL(1,239)*(2.0D0*UVWFCT_G_2+2.0D0*UVWFCT_G_1
1210
 
     $     +1.0D0*UVWFCT_T_0+1.0D0*UVWFCT_B_0)
 
1208
          CALL FFV1_0(W(1,8,H),W(1,4,H),W(1,6,H),GC_5,AMPL(2,239))
 
1209
          AMPL(2,239)=AMPL(2,239)*(4.0D0*UVWFCT_G_1_1EPS+2.0D0
 
1210
     $     *UVWFCT_B_0_1EPS)
1211
1211
C         Amplitude(s) for UVCT diagram with ID 138
1212
 
          CALL FFV1_0(W(1,8,H),W(1,4,H),W(1,6,H),GC_5,AMPL(2,240))
1213
 
          AMPL(2,240)=AMPL(2,240)*(2.0D0*UVWFCT_B_0_1EPS+4.0D0
1214
 
     $     *UVWFCT_G_2_1EPS)
 
1212
          CALL FFV1_0(W(1,8,H),W(1,4,H),W(1,6,H),GC_5,AMPL(1,240))
 
1213
          AMPL(1,240)=AMPL(1,240)*(1.0D0*UVWFCT_B_0+2.0D0*UVWFCT_G_1
 
1214
     $     +1.0D0*UVWFCT_T_0+2.0D0*UVWFCT_G_2)
1215
1215
C         Amplitude(s) for UVCT diagram with ID 139
1216
 
          CALL FFV2_0(W(1,10,H),W(1,9,H),W(1,3,H),GC_47,AMPL(1,241))
1217
 
          AMPL(1,241)=AMPL(1,241)*(2.0D0*UVWFCT_G_2+2.0D0*UVWFCT_G_1
1218
 
     $     +1.0D0*UVWFCT_T_0+1.0D0*UVWFCT_B_0)
 
1216
          CALL FFV2_0(W(1,10,H),W(1,9,H),W(1,3,H),GC_11,AMPL(2,241))
 
1217
          AMPL(2,241)=AMPL(2,241)*(4.0D0*UVWFCT_G_1_1EPS+2.0D0
 
1218
     $     *UVWFCT_B_0_1EPS)
1219
1219
C         Amplitude(s) for UVCT diagram with ID 140
1220
 
          CALL FFV2_0(W(1,10,H),W(1,9,H),W(1,3,H),GC_47,AMPL(2,242))
1221
 
          AMPL(2,242)=AMPL(2,242)*(2.0D0*UVWFCT_B_0_1EPS+4.0D0
1222
 
     $     *UVWFCT_G_2_1EPS)
 
1220
          CALL FFV2_0(W(1,10,H),W(1,9,H),W(1,3,H),GC_11,AMPL(1,242))
 
1221
          AMPL(1,242)=AMPL(1,242)*(1.0D0*UVWFCT_B_0+2.0D0*UVWFCT_G_1
 
1222
     $     +1.0D0*UVWFCT_T_0+2.0D0*UVWFCT_G_2)
1223
1223
C         Amplitude(s) for UVCT diagram with ID 141
1224
 
          CALL FFV1_0(W(1,8,H),W(1,9,H),W(1,2,H),GC_5,AMPL(1,243))
1225
 
          AMPL(1,243)=AMPL(1,243)*(2.0D0*UVWFCT_G_2+2.0D0*UVWFCT_G_1
1226
 
     $     +1.0D0*UVWFCT_T_0+1.0D0*UVWFCT_B_0)
 
1224
          CALL FFV1_0(W(1,8,H),W(1,9,H),W(1,2,H),GC_5,AMPL(2,243))
 
1225
          AMPL(2,243)=AMPL(2,243)*(4.0D0*UVWFCT_G_1_1EPS+2.0D0
 
1226
     $     *UVWFCT_B_0_1EPS)
1227
1227
C         Amplitude(s) for UVCT diagram with ID 142
1228
 
          CALL FFV1_0(W(1,8,H),W(1,9,H),W(1,2,H),GC_5,AMPL(2,244))
1229
 
          AMPL(2,244)=AMPL(2,244)*(2.0D0*UVWFCT_B_0_1EPS+4.0D0
1230
 
     $     *UVWFCT_G_2_1EPS)
 
1228
          CALL FFV1_0(W(1,8,H),W(1,9,H),W(1,2,H),GC_5,AMPL(1,244))
 
1229
          AMPL(1,244)=AMPL(1,244)*(1.0D0*UVWFCT_B_0+2.0D0*UVWFCT_G_1
 
1230
     $     +1.0D0*UVWFCT_T_0+2.0D0*UVWFCT_G_2)
1231
1231
C         Amplitude(s) for UVCT diagram with ID 143
1232
 
          CALL FFV2_0(W(1,11,H),W(1,12,H),W(1,3,H),GC_47,AMPL(1,245))
1233
 
          AMPL(1,245)=AMPL(1,245)*(2.0D0*UVWFCT_G_2+2.0D0*UVWFCT_G_1
1234
 
     $     +1.0D0*UVWFCT_T_0+1.0D0*UVWFCT_B_0)
 
1232
          CALL FFV2_0(W(1,11,H),W(1,12,H),W(1,3,H),GC_11,AMPL(2,245))
 
1233
          AMPL(2,245)=AMPL(2,245)*(4.0D0*UVWFCT_G_1_1EPS+2.0D0
 
1234
     $     *UVWFCT_B_0_1EPS)
1235
1235
C         Amplitude(s) for UVCT diagram with ID 144
1236
 
          CALL FFV2_0(W(1,11,H),W(1,12,H),W(1,3,H),GC_47,AMPL(2,246))
1237
 
          AMPL(2,246)=AMPL(2,246)*(2.0D0*UVWFCT_B_0_1EPS+4.0D0
1238
 
     $     *UVWFCT_G_2_1EPS)
 
1236
          CALL FFV2_0(W(1,11,H),W(1,12,H),W(1,3,H),GC_11,AMPL(1,246))
 
1237
          AMPL(1,246)=AMPL(1,246)*(1.0D0*UVWFCT_B_0+2.0D0*UVWFCT_G_1
 
1238
     $     +1.0D0*UVWFCT_T_0+2.0D0*UVWFCT_G_2)
1239
1239
C         Amplitude(s) for UVCT diagram with ID 145
1240
 
          CALL FFV1_0(W(1,11,H),W(1,7,H),W(1,2,H),GC_5,AMPL(1,247))
1241
 
          AMPL(1,247)=AMPL(1,247)*(2.0D0*UVWFCT_G_2+2.0D0*UVWFCT_G_1
1242
 
     $     +1.0D0*UVWFCT_T_0+1.0D0*UVWFCT_B_0)
 
1240
          CALL FFV1_0(W(1,11,H),W(1,7,H),W(1,2,H),GC_5,AMPL(2,247))
 
1241
          AMPL(2,247)=AMPL(2,247)*(4.0D0*UVWFCT_G_1_1EPS+2.0D0
 
1242
     $     *UVWFCT_B_0_1EPS)
1243
1243
C         Amplitude(s) for UVCT diagram with ID 146
1244
 
          CALL FFV1_0(W(1,11,H),W(1,7,H),W(1,2,H),GC_5,AMPL(2,248))
1245
 
          AMPL(2,248)=AMPL(2,248)*(2.0D0*UVWFCT_B_0_1EPS+4.0D0
1246
 
     $     *UVWFCT_G_2_1EPS)
 
1244
          CALL FFV1_0(W(1,11,H),W(1,7,H),W(1,2,H),GC_5,AMPL(1,248))
 
1245
          AMPL(1,248)=AMPL(1,248)*(1.0D0*UVWFCT_B_0+2.0D0*UVWFCT_G_1
 
1246
     $     +1.0D0*UVWFCT_T_0+2.0D0*UVWFCT_G_2)
1247
1247
C         Amplitude(s) for UVCT diagram with ID 147
1248
 
          CALL FFV1_0(W(1,8,H),W(1,12,H),W(1,1,H),GC_5,AMPL(1,249))
1249
 
          AMPL(1,249)=AMPL(1,249)*(2.0D0*UVWFCT_G_2+2.0D0*UVWFCT_G_1
1250
 
     $     +1.0D0*UVWFCT_T_0+1.0D0*UVWFCT_B_0)
 
1248
          CALL FFV1_0(W(1,8,H),W(1,12,H),W(1,1,H),GC_5,AMPL(2,249))
 
1249
          AMPL(2,249)=AMPL(2,249)*(4.0D0*UVWFCT_G_1_1EPS+2.0D0
 
1250
     $     *UVWFCT_B_0_1EPS)
1251
1251
C         Amplitude(s) for UVCT diagram with ID 148
1252
 
          CALL FFV1_0(W(1,8,H),W(1,12,H),W(1,1,H),GC_5,AMPL(2,250))
1253
 
          AMPL(2,250)=AMPL(2,250)*(2.0D0*UVWFCT_B_0_1EPS+4.0D0
1254
 
     $     *UVWFCT_G_2_1EPS)
 
1252
          CALL FFV1_0(W(1,8,H),W(1,12,H),W(1,1,H),GC_5,AMPL(1,250))
 
1253
          AMPL(1,250)=AMPL(1,250)*(1.0D0*UVWFCT_B_0+2.0D0*UVWFCT_G_1
 
1254
     $     +1.0D0*UVWFCT_T_0+2.0D0*UVWFCT_G_2)
1255
1255
C         Amplitude(s) for UVCT diagram with ID 149
1256
 
          CALL FFV1_0(W(1,10,H),W(1,7,H),W(1,1,H),GC_5,AMPL(1,251))
1257
 
          AMPL(1,251)=AMPL(1,251)*(2.0D0*UVWFCT_G_2+2.0D0*UVWFCT_G_1
1258
 
     $     +1.0D0*UVWFCT_T_0+1.0D0*UVWFCT_B_0)
 
1256
          CALL FFV1_0(W(1,10,H),W(1,7,H),W(1,1,H),GC_5,AMPL(2,251))
 
1257
          AMPL(2,251)=AMPL(2,251)*(4.0D0*UVWFCT_G_1_1EPS+2.0D0
 
1258
     $     *UVWFCT_B_0_1EPS)
1259
1259
C         Amplitude(s) for UVCT diagram with ID 150
1260
 
          CALL FFV1_0(W(1,10,H),W(1,7,H),W(1,1,H),GC_5,AMPL(2,252))
1261
 
          AMPL(2,252)=AMPL(2,252)*(2.0D0*UVWFCT_B_0_1EPS+4.0D0
1262
 
     $     *UVWFCT_G_2_1EPS)
 
1260
          CALL FFV1_0(W(1,10,H),W(1,7,H),W(1,1,H),GC_5,AMPL(1,252))
 
1261
          AMPL(1,252)=AMPL(1,252)*(1.0D0*UVWFCT_B_0+2.0D0*UVWFCT_G_1
 
1262
     $     +1.0D0*UVWFCT_T_0+2.0D0*UVWFCT_G_2)
1263
1263
 300      CONTINUE
1264
1264
 
1265
1265
 
1340
1340
C     Loop amplitude for loop diagram with ID 20
1341
1341
      CALL ML5_0_LOOP_3_3(7,3,4,15,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1342
1342
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB)
1343
 
     $ ,CMPLX(MP__MDL_MB,KIND=16),GC_47,MP__GC_47,GC_5,MP__GC_5,GC_5
 
1343
     $ ,CMPLX(MP__MDL_MB,KIND=16),GC_11,MP__GC_11,GC_5,MP__GC_5,GC_5
1344
1344
     $ ,MP__GC_5,2,1,1,264,AMPL(1,264),S(264))
1345
1345
C     Loop amplitude for loop diagram with ID 21
1346
1346
      CALL ML5_0_LOOP_4_4(8,3,4,5,6,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1347
1347
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB)
1348
1348
     $ ,CMPLX(MP__MDL_MB,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1349
 
     $ ,KIND=16),GC_47,MP__GC_47,GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5
 
1349
     $ ,KIND=16),GC_11,MP__GC_11,GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5
1350
1350
     $ ,MP__GC_5,3,1,1,265,AMPL(1,265),S(265))
1351
1351
C     Loop amplitude for loop diagram with ID 22
1352
1352
      CALL ML5_0_LOOP_4_4(9,3,5,4,6,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1353
1353
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MT)
1354
1354
     $ ,CMPLX(MP__MDL_MT,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1355
 
     $ ,KIND=16),GC_47,MP__GC_47,GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5
 
1355
     $ ,KIND=16),GC_11,MP__GC_11,GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5
1356
1356
     $ ,MP__GC_5,3,1,1,266,AMPL(1,266),S(266))
1357
1357
C     Loop amplitude for loop diagram with ID 23
1358
1358
      CALL ML5_0_LOOP_3_3(10,3,5,16,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1359
1359
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MT)
1360
 
     $ ,CMPLX(MP__MDL_MT,KIND=16),GC_47,MP__GC_47,GC_5,MP__GC_5,GC_5
 
1360
     $ ,CMPLX(MP__MDL_MT,KIND=16),GC_11,MP__GC_11,GC_5,MP__GC_5,GC_5
1361
1361
     $ ,MP__GC_5,2,1,1,267,AMPL(1,267),S(267))
1362
1362
C     Loop amplitude for loop diagram with ID 24
1363
1363
      CALL ML5_0_LOOP_4_4(11,3,4,6,5,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1364
1364
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(ZERO)
1365
1365
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1366
 
     $ ,KIND=16),GC_47,MP__GC_47,GC_5,MP__GC_5,GC_4,MP__GC_4,GC_5
 
1366
     $ ,KIND=16),GC_11,MP__GC_11,GC_5,MP__GC_5,GC_4,MP__GC_4,GC_5
1367
1367
     $ ,MP__GC_5,3,1,1,268,AMPL(1,268),S(268))
1368
1368
C     Loop amplitude for loop diagram with ID 25
1369
1369
      CALL ML5_0_LOOP_2_2(12,10,17,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
1372
1372
C     Loop amplitude for loop diagram with ID 26
1373
1373
      CALL ML5_0_LOOP_3_3(7,3,9,10,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1374
1374
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB)
1375
 
     $ ,CMPLX(MP__MDL_MB,KIND=16),GC_47,MP__GC_47,GC_5,MP__GC_5,GC_5
 
1375
     $ ,CMPLX(MP__MDL_MB,KIND=16),GC_11,MP__GC_11,GC_5,MP__GC_5,GC_5
1376
1376
     $ ,MP__GC_5,2,1,1,270,AMPL(1,270),S(270))
1377
1377
C     Loop amplitude for loop diagram with ID 27
1378
1378
      CALL ML5_0_LOOP_3_3(13,2,5,17,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1383
1383
      CALL ML5_0_LOOP_4_4(14,2,3,9,5,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1384
1384
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO)
1385
1385
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1386
 
     $ ,KIND=16),GC_5,MP__GC_5,GC_47,MP__GC_47,GC_5,MP__GC_5,GC_5
 
1386
     $ ,KIND=16),GC_5,MP__GC_5,GC_11,MP__GC_11,GC_5,MP__GC_5,GC_5
1387
1387
     $ ,MP__GC_5,3,1,1,272,AMPL(1,272),S(272))
1388
1388
C     Loop amplitude for loop diagram with ID 29
1389
1389
      CALL ML5_0_LOOP_3_3(10,3,5,18,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1390
1390
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MT)
1391
 
     $ ,CMPLX(MP__MDL_MT,KIND=16),GC_47,MP__GC_47,GC_5,MP__GC_5,GC_5
 
1391
     $ ,CMPLX(MP__MDL_MT,KIND=16),GC_11,MP__GC_11,GC_5,MP__GC_5,GC_5
1392
1392
     $ ,MP__GC_5,2,1,1,273,AMPL(1,273),S(273))
1393
1393
C     Loop amplitude for loop diagram with ID 30
1394
1394
      CALL ML5_0_LOOP_4_4(15,2,5,3,9,DCMPLX(ZERO),CMPLX(MP__ZERO
1395
1395
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16)
1396
1396
     $ ,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO)
1397
 
     $ ,CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_5,MP__GC_5,GC_47
1398
 
     $ ,MP__GC_47,GC_5,MP__GC_5,3,1,1,274,AMPL(1,274),S(274))
 
1397
     $ ,CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_5,MP__GC_5,GC_11
 
1398
     $ ,MP__GC_11,GC_5,MP__GC_5,3,1,1,274,AMPL(1,274),S(274))
1399
1399
C     Loop amplitude for loop diagram with ID 31
1400
1400
      CALL ML5_0_LOOP_4_4(16,2,3,5,9,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1401
1401
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),DCMPLX(ZERO)
1402
1402
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1403
 
     $ ,KIND=16),GC_5,MP__GC_5,GC_47,MP__GC_47,GC_5,MP__GC_5,GC_5
 
1403
     $ ,KIND=16),GC_5,MP__GC_5,GC_11,MP__GC_11,GC_5,MP__GC_5,GC_5
1404
1404
     $ ,MP__GC_5,3,1,1,275,AMPL(1,275),S(275))
1405
1405
C     Loop amplitude for loop diagram with ID 32
1406
1406
      CALL ML5_0_LOOP_3_3(17,2,5,17,DCMPLX(ZERO),CMPLX(MP__ZERO
1414
1414
C     Loop amplitude for loop diagram with ID 34
1415
1415
      CALL ML5_0_LOOP_3_3(7,3,12,11,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1416
1416
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB)
1417
 
     $ ,CMPLX(MP__MDL_MB,KIND=16),GC_47,MP__GC_47,GC_5,MP__GC_5,GC_5
 
1417
     $ ,CMPLX(MP__MDL_MB,KIND=16),GC_11,MP__GC_11,GC_5,MP__GC_5,GC_5
1418
1418
     $ ,MP__GC_5,2,1,1,278,AMPL(1,278),S(278))
1419
1419
C     Loop amplitude for loop diagram with ID 35
1420
1420
      CALL ML5_0_LOOP_3_3(18,2,7,11,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1425
1425
      CALL ML5_0_LOOP_4_4(14,2,3,4,11,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1426
1426
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO)
1427
1427
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1428
 
     $ ,KIND=16),GC_5,MP__GC_5,GC_47,MP__GC_47,GC_5,MP__GC_5,GC_5
 
1428
     $ ,KIND=16),GC_5,MP__GC_5,GC_11,MP__GC_11,GC_5,MP__GC_5,GC_5
1429
1429
     $ ,MP__GC_5,3,1,1,280,AMPL(1,280),S(280))
1430
1430
C     Loop amplitude for loop diagram with ID 37
1431
1431
      CALL ML5_0_LOOP_2_2(4,7,20,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
1443
1443
C     Loop amplitude for loop diagram with ID 40
1444
1444
      CALL ML5_0_LOOP_3_3(7,3,4,20,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1445
1445
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB)
1446
 
     $ ,CMPLX(MP__MDL_MB,KIND=16),GC_47,MP__GC_47,GC_5,MP__GC_5,GC_5
 
1446
     $ ,CMPLX(MP__MDL_MB,KIND=16),GC_11,MP__GC_11,GC_5,MP__GC_5,GC_5
1447
1447
     $ ,MP__GC_5,2,1,1,284,AMPL(1,284),S(284))
1448
1448
C     Loop amplitude for loop diagram with ID 41
1449
1449
      CALL ML5_0_LOOP_4_4(16,2,3,11,4,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1450
1450
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),DCMPLX(ZERO)
1451
1451
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1452
 
     $ ,KIND=16),GC_5,MP__GC_5,GC_47,MP__GC_47,GC_5,MP__GC_5,GC_5
 
1452
     $ ,KIND=16),GC_5,MP__GC_5,GC_11,MP__GC_11,GC_5,MP__GC_5,GC_5
1453
1453
     $ ,MP__GC_5,3,1,1,285,AMPL(1,285),S(285))
1454
1454
C     Loop amplitude for loop diagram with ID 42
1455
1455
      CALL ML5_0_LOOP_4_4(20,2,4,3,11,DCMPLX(ZERO),CMPLX(MP__ZERO
1456
1456
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16)
1457
1457
     $ ,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),DCMPLX(ZERO)
1458
 
     $ ,CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_5,MP__GC_5,GC_47
1459
 
     $ ,MP__GC_47,GC_5,MP__GC_5,3,1,1,286,AMPL(1,286),S(286))
 
1458
     $ ,CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_5,MP__GC_5,GC_11
 
1459
     $ ,MP__GC_11,GC_5,MP__GC_5,3,1,1,286,AMPL(1,286),S(286))
1460
1460
C     Loop amplitude for loop diagram with ID 43
1461
1461
      CALL ML5_0_LOOP_3_3(13,1,5,19,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1462
1462
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB)
1466
1466
      CALL ML5_0_LOOP_4_4(14,1,3,12,5,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1467
1467
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO)
1468
1468
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1469
 
     $ ,KIND=16),GC_5,MP__GC_5,GC_47,MP__GC_47,GC_5,MP__GC_5,GC_5
 
1469
     $ ,KIND=16),GC_5,MP__GC_5,GC_11,MP__GC_11,GC_5,MP__GC_5,GC_5
1470
1470
     $ ,MP__GC_5,3,1,1,288,AMPL(1,288),S(288))
1471
1471
C     Loop amplitude for loop diagram with ID 45
1472
1472
      CALL ML5_0_LOOP_3_3(18,1,7,10,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1477
1477
      CALL ML5_0_LOOP_4_4(14,1,3,4,10,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1478
1478
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO)
1479
1479
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1480
 
     $ ,KIND=16),GC_5,MP__GC_5,GC_47,MP__GC_47,GC_5,MP__GC_5,GC_5
 
1480
     $ ,KIND=16),GC_5,MP__GC_5,GC_11,MP__GC_11,GC_5,MP__GC_5,GC_5
1481
1481
     $ ,MP__GC_5,3,1,1,290,AMPL(1,290),S(290))
1482
1482
C     Loop amplitude for loop diagram with ID 47
1483
1483
      CALL ML5_0_LOOP_5_5(21,1,2,3,4,5,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1484
1484
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16)
1485
1485
     $ ,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO)
1486
1486
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1487
 
     $ ,KIND=16),GC_5,MP__GC_5,GC_5,MP__GC_5,GC_47,MP__GC_47,GC_5
 
1487
     $ ,KIND=16),GC_5,MP__GC_5,GC_5,MP__GC_5,GC_11,MP__GC_11,GC_5
1488
1488
     $ ,MP__GC_5,GC_5,MP__GC_5,4,1,1,291,AMPL(1,291),S(291))
1489
1489
C     Loop amplitude for loop diagram with ID 48
1490
1490
      CALL ML5_0_LOOP_3_3(2,1,2,13,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1534
1534
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),DCMPLX(ZERO)
1535
1535
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1536
1536
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),GC_5
1537
 
     $ ,MP__GC_5,GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5,MP__GC_5,GC_47
1538
 
     $ ,MP__GC_47,4,1,1,300,AMPL(1,300),S(300))
 
1537
     $ ,MP__GC_5,GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5,MP__GC_5,GC_11
 
1538
     $ ,MP__GC_11,4,1,1,300,AMPL(1,300),S(300))
1539
1539
C     Loop amplitude for loop diagram with ID 57
1540
1540
      CALL ML5_0_LOOP_5_5(26,1,3,2,4,5,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1541
1541
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16)
1542
1542
     $ ,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO)
1543
1543
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1544
 
     $ ,KIND=16),GC_5,MP__GC_5,GC_47,MP__GC_47,GC_5,MP__GC_5,GC_5
 
1544
     $ ,KIND=16),GC_5,MP__GC_5,GC_11,MP__GC_11,GC_5,MP__GC_5,GC_5
1545
1545
     $ ,MP__GC_5,GC_5,MP__GC_5,4,1,1,301,AMPL(1,301),S(301))
1546
1546
C     Loop amplitude for loop diagram with ID 58
1547
1547
      CALL ML5_0_LOOP_5_5(27,1,3,4,2,5,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1548
1548
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO)
1549
1549
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
1550
 
     $ ,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),GC_5,MP__GC_5,GC_47
1551
 
     $ ,MP__GC_47,GC_5,MP__GC_5,GC_4,MP__GC_4,GC_5,MP__GC_5,4,1,1,302
 
1550
     $ ,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),GC_5,MP__GC_5,GC_11
 
1551
     $ ,MP__GC_11,GC_5,MP__GC_5,GC_4,MP__GC_4,GC_5,MP__GC_5,4,1,1,302
1552
1552
     $ ,AMPL(1,302),S(302))
1553
1553
C     Loop amplitude for loop diagram with ID 59
1554
1554
      CALL ML5_0_LOOP_3_3(10,3,5,22,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1555
1555
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MT)
1556
 
     $ ,CMPLX(MP__MDL_MT,KIND=16),GC_47,MP__GC_47,GC_5,MP__GC_5,GC_5
 
1556
     $ ,CMPLX(MP__MDL_MT,KIND=16),GC_11,MP__GC_11,GC_5,MP__GC_5,GC_5
1557
1557
     $ ,MP__GC_5,2,1,1,303,AMPL(1,303),S(303))
1558
1558
C     Loop amplitude for loop diagram with ID 60
1559
1559
      CALL ML5_0_LOOP_4_4(16,1,3,5,12,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1560
1560
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),DCMPLX(ZERO)
1561
1561
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1562
 
     $ ,KIND=16),GC_5,MP__GC_5,GC_47,MP__GC_47,GC_5,MP__GC_5,GC_5
 
1562
     $ ,KIND=16),GC_5,MP__GC_5,GC_11,MP__GC_11,GC_5,MP__GC_5,GC_5
1563
1563
     $ ,MP__GC_5,3,1,1,304,AMPL(1,304),S(304))
1564
1564
C     Loop amplitude for loop diagram with ID 61
1565
1565
      CALL ML5_0_LOOP_4_4(15,1,5,3,12,DCMPLX(ZERO),CMPLX(MP__ZERO
1566
1566
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16)
1567
1567
     $ ,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO)
1568
 
     $ ,CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_5,MP__GC_5,GC_47
1569
 
     $ ,MP__GC_47,GC_5,MP__GC_5,3,1,1,305,AMPL(1,305),S(305))
 
1568
     $ ,CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_5,MP__GC_5,GC_11
 
1569
     $ ,MP__GC_11,GC_5,MP__GC_5,3,1,1,305,AMPL(1,305),S(305))
1570
1570
C     Loop amplitude for loop diagram with ID 62
1571
1571
      CALL ML5_0_LOOP_3_3(17,1,5,19,DCMPLX(ZERO),CMPLX(MP__ZERO
1572
1572
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),DCMPLX(ZERO)
1588
1588
C     Loop amplitude for loop diagram with ID 66
1589
1589
      CALL ML5_0_LOOP_3_3(7,3,4,23,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1590
1590
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB)
1591
 
     $ ,CMPLX(MP__MDL_MB,KIND=16),GC_47,MP__GC_47,GC_5,MP__GC_5,GC_5
 
1591
     $ ,CMPLX(MP__MDL_MB,KIND=16),GC_11,MP__GC_11,GC_5,MP__GC_5,GC_5
1592
1592
     $ ,MP__GC_5,2,1,1,310,AMPL(1,310),S(310))
1593
1593
C     Loop amplitude for loop diagram with ID 67
1594
1594
      CALL ML5_0_LOOP_4_4(16,1,3,10,4,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1595
1595
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),DCMPLX(ZERO)
1596
1596
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1597
 
     $ ,KIND=16),GC_5,MP__GC_5,GC_47,MP__GC_47,GC_5,MP__GC_5,GC_5
 
1597
     $ ,KIND=16),GC_5,MP__GC_5,GC_11,MP__GC_11,GC_5,MP__GC_5,GC_5
1598
1598
     $ ,MP__GC_5,3,1,1,311,AMPL(1,311),S(311))
1599
1599
C     Loop amplitude for loop diagram with ID 68
1600
1600
      CALL ML5_0_LOOP_4_4(20,1,4,3,10,DCMPLX(ZERO),CMPLX(MP__ZERO
1601
1601
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16)
1602
1602
     $ ,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),DCMPLX(ZERO)
1603
 
     $ ,CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_5,MP__GC_5,GC_47
1604
 
     $ ,MP__GC_47,GC_5,MP__GC_5,3,1,1,312,AMPL(1,312),S(312))
 
1603
     $ ,CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_5,MP__GC_5,GC_11
 
1604
     $ ,MP__GC_11,GC_5,MP__GC_5,3,1,1,312,AMPL(1,312),S(312))
1605
1605
C     Loop amplitude for loop diagram with ID 69
1606
1606
      CALL ML5_0_LOOP_3_3(13,2,5,24,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1607
1607
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB)
1618
1618
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16)
1619
1619
     $ ,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),DCMPLX(ZERO)
1620
1620
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1621
 
     $ ,KIND=16),GC_5,MP__GC_5,GC_47,MP__GC_47,GC_5,MP__GC_5,GC_5
 
1621
     $ ,KIND=16),GC_5,MP__GC_5,GC_11,MP__GC_11,GC_5,MP__GC_5,GC_5
1622
1622
     $ ,MP__GC_5,GC_5,MP__GC_5,4,1,1,315,AMPL(1,315),S(315))
1623
1623
C     Loop amplitude for loop diagram with ID 72
1624
1624
      CALL ML5_0_LOOP_5_5(30,1,4,3,2,5,DCMPLX(ZERO),CMPLX(MP__ZERO
1625
1625
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16)
1626
1626
     $ ,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),DCMPLX(MDL_MB)
1627
1627
     $ ,CMPLX(MP__MDL_MB,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
1628
 
     $ ,GC_4,MP__GC_4,GC_5,MP__GC_5,GC_47,MP__GC_47,GC_5,MP__GC_5,GC_5
 
1628
     $ ,GC_4,MP__GC_4,GC_5,MP__GC_5,GC_11,MP__GC_11,GC_5,MP__GC_5,GC_5
1629
1629
     $ ,MP__GC_5,4,1,1,316,AMPL(1,316),S(316))
1630
1630
C     Loop amplitude for loop diagram with ID 73
1631
1631
      CALL ML5_0_LOOP_3_3(17,2,5,24,DCMPLX(ZERO),CMPLX(MP__ZERO
1666
1666
      CALL ML5_0_LOOP_5_5(36,1,3,5,2,4,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1667
1667
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),DCMPLX(ZERO)
1668
1668
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
1669
 
     $ ,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),GC_5,MP__GC_5,GC_47
1670
 
     $ ,MP__GC_47,GC_5,MP__GC_5,GC_4,MP__GC_4,GC_5,MP__GC_5,4,1,1,324
 
1669
     $ ,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),GC_5,MP__GC_5,GC_11
 
1670
     $ ,MP__GC_11,GC_5,MP__GC_5,GC_4,MP__GC_4,GC_5,MP__GC_5,4,1,1,324
1671
1671
     $ ,AMPL(1,324),S(324))
1672
1672
C     Loop amplitude for loop diagram with ID 79
1673
1673
      CALL ML5_0_LOOP_5_5(37,1,2,4,5,3,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1674
1674
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO)
1675
1675
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1676
1676
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),GC_5
1677
 
     $ ,MP__GC_5,GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5,MP__GC_5,GC_47
1678
 
     $ ,MP__GC_47,4,1,1,325,AMPL(1,325),S(325))
 
1677
     $ ,MP__GC_5,GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5,MP__GC_5,GC_11
 
1678
     $ ,MP__GC_11,4,1,1,325,AMPL(1,325),S(325))
1679
1679
C     Loop amplitude for loop diagram with ID 80
1680
1680
      CALL ML5_0_LOOP_5_5(38,1,4,2,3,5,DCMPLX(ZERO),CMPLX(MP__ZERO
1681
1681
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16)
1682
1682
     $ ,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),DCMPLX(MDL_MB)
1683
1683
     $ ,CMPLX(MP__MDL_MB,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
1684
 
     $ ,GC_4,MP__GC_4,GC_5,MP__GC_5,GC_5,MP__GC_5,GC_47,MP__GC_47,GC_5
 
1684
     $ ,GC_4,MP__GC_4,GC_5,MP__GC_5,GC_5,MP__GC_5,GC_11,MP__GC_11,GC_5
1685
1685
     $ ,MP__GC_5,4,1,1,326,AMPL(1,326),S(326))
1686
1686
C     Loop amplitude for loop diagram with ID 81
1687
1687
      CALL ML5_0_LOOP_5_5(39,1,2,4,3,5,DCMPLX(ZERO),CMPLX(MP__ZERO
1688
1688
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MT)
1689
1689
     $ ,CMPLX(MP__MDL_MT,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1690
1690
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4
1691
 
     $ ,GC_4,MP__GC_4,GC_5,MP__GC_5,GC_47,MP__GC_47,GC_5,MP__GC_5,4,1
 
1691
     $ ,GC_4,MP__GC_4,GC_5,MP__GC_5,GC_11,MP__GC_11,GC_5,MP__GC_5,4,1
1692
1692
     $ ,1,327,AMPL(1,327),S(327))
1693
1693
C     Loop amplitude for loop diagram with ID 82
1694
1694
      CALL ML5_0_LOOP_5_5(40,1,2,3,5,4,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1695
1695
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16)
1696
1696
     $ ,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),DCMPLX(ZERO)
1697
1697
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1698
 
     $ ,KIND=16),GC_5,MP__GC_5,GC_5,MP__GC_5,GC_47,MP__GC_47,GC_5
 
1698
     $ ,KIND=16),GC_5,MP__GC_5,GC_5,MP__GC_5,GC_11,MP__GC_11,GC_5
1699
1699
     $ ,MP__GC_5,GC_5,MP__GC_5,4,1,1,328,AMPL(1,328),S(328))
1700
1700
C     Loop amplitude for loop diagram with ID 83
1701
1701
      CALL ML5_0_LOOP_5_5(41,1,2,5,3,4,DCMPLX(ZERO),CMPLX(MP__ZERO
1702
1702
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB)
1703
1703
     $ ,CMPLX(MP__MDL_MB,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1704
1704
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4
1705
 
     $ ,GC_4,MP__GC_4,GC_5,MP__GC_5,GC_47,MP__GC_47,GC_5,MP__GC_5,4,1
 
1705
     $ ,GC_4,MP__GC_4,GC_5,MP__GC_5,GC_11,MP__GC_11,GC_5,MP__GC_5,4,1
1706
1706
     $ ,1,329,AMPL(1,329),S(329))
1707
1707
C     Loop amplitude for loop diagram with ID 84
1708
1708
      CALL ML5_0_LOOP_4_5_4(42,1,1,2,1,3,4,1,2,5,DCMPLX(MDL_MT)
1709
1709
     $ ,CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
1710
1710
     $ ,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB)
1711
 
     $ ,CMPLX(MP__MDL_MB,KIND=16),GC_47,MP__GC_47,GC_5,MP__GC_5,GC_6
 
1711
     $ ,CMPLX(MP__MDL_MB,KIND=16),GC_11,MP__GC_11,GC_5,MP__GC_5,GC_6
1712
1712
     $ ,MP__GC_6,GC_5,MP__GC_5,2,1,1,330,AMPL(1,330),S(330))
1713
1713
      CALL ML5_0_LOOP_4_5_4(43,1,1,2,1,3,4,1,2,5,DCMPLX(MDL_MT)
1714
1714
     $ ,CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
1715
1715
     $ ,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB)
1716
 
     $ ,CMPLX(MP__MDL_MB,KIND=16),GC_47,MP__GC_47,GC_5,MP__GC_5,GC_6
 
1716
     $ ,CMPLX(MP__MDL_MB,KIND=16),GC_11,MP__GC_11,GC_5,MP__GC_5,GC_6
1717
1717
     $ ,MP__GC_6,GC_5,MP__GC_5,2,1,1,331,AMPL(1,331),S(331))
1718
1718
      CALL ML5_0_LOOP_4_5_4(44,1,1,2,1,3,4,1,2,5,DCMPLX(MDL_MT)
1719
1719
     $ ,CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
1720
1720
     $ ,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB)
1721
 
     $ ,CMPLX(MP__MDL_MB,KIND=16),GC_47,MP__GC_47,GC_5,MP__GC_5,GC_6
 
1721
     $ ,CMPLX(MP__MDL_MB,KIND=16),GC_11,MP__GC_11,GC_5,MP__GC_5,GC_6
1722
1722
     $ ,MP__GC_6,GC_5,MP__GC_5,2,1,1,332,AMPL(1,332),S(332))
1723
1723
C     Loop amplitude for loop diagram with ID 85
1724
1724
      CALL ML5_0_LOOP_2_2(1,6,13,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT