← Back to branch summary

~maddevelopers/mg5amcnlo/new_clustering

« 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: 2021-09-09 15:51:40 UTC
  • mfrom: (78.75.502 3.2.1)
  • Revision ID: frederix@physik.uzh.ch-20210909155140-rg6umfq68h6h47cf
merge with 3.2.1

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
700
700
 
701
701
      VALIDH=-1
702
702
      DO H=1,NCOMB
703
 
        IF ((HELPICKED.EQ.H).OR.((HELPICKED.EQ.-1).AND.(CHECKPHASE.OR.(
704
 
     $.NOT.HELDOUBLECHECKED).OR.GOODHEL(H)))) THEN
 
703
        IF ((HELPICKED.EQ.H).OR.((HELPICKED.EQ.-1)
 
704
     $   .AND.(CHECKPHASE.OR.(.NOT.HELDOUBLECHECKED).OR.GOODHEL(H))))
 
705
     $    THEN
705
706
 
706
707
C         Handle the possible requirement of specific polarizations
707
 
          IF ((.NOT.CHECKPHASE).AND.HELDOUBLECHECKED.AND.POLARIZATIONS(
708
 
     $0,0).EQ.0.AND.(.NOT.ML5_0_IS_HEL_SELECTED(H))) THEN
 
708
          IF ((.NOT.CHECKPHASE)
 
709
     $     .AND.HELDOUBLECHECKED.AND.POLARIZATIONS(0,0)
 
710
     $     .EQ.0.AND.(.NOT.ML5_0_IS_HEL_SELECTED(H))) THEN
709
711
            CYCLE
710
712
          ENDIF
711
713
 
736
738
          CALL OXXXXX(P(0,4),MDL_MT,NHEL(4),+1*IC(4),W(1,4,H))
737
739
          CALL IXXXXX(P(0,5),MDL_MB,NHEL(5),-1*IC(5),W(1,5,H))
738
740
          CALL VVV1P0_1(W(1,1,H),W(1,2,H),GC_4,ZERO,ZERO,W(1,6,H))
739
 
          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))
740
742
C         Amplitude(s) for born diagram with ID 1
741
743
          CALL FFV1_0(W(1,5,H),W(1,7,H),W(1,6,H),GC_5,AMP(1,H))
742
 
          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))
743
745
C         Amplitude(s) for born diagram with ID 2
744
746
          CALL FFV1_0(W(1,8,H),W(1,4,H),W(1,6,H),GC_5,AMP(2,H))
745
747
          CALL FFV1_1(W(1,4,H),W(1,1,H),GC_5,MDL_MT,MDL_WT,W(1,9,H))
746
748
          CALL FFV1_2(W(1,5,H),W(1,2,H),GC_5,MDL_MB,ZERO,W(1,10,H))
747
749
C         Amplitude(s) for born diagram with ID 3
748
 
          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))
749
751
C         Amplitude(s) for born diagram with ID 4
750
752
          CALL FFV1_0(W(1,8,H),W(1,9,H),W(1,2,H),GC_5,AMP(4,H))
751
753
          CALL FFV1_2(W(1,5,H),W(1,1,H),GC_5,MDL_MB,ZERO,W(1,11,H))
752
754
          CALL FFV1_1(W(1,4,H),W(1,2,H),GC_5,MDL_MT,MDL_WT,W(1,12,H))
753
755
C         Amplitude(s) for born diagram with ID 5
754
 
          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))
755
757
C         Amplitude(s) for born diagram with ID 6
756
758
          CALL FFV1_0(W(1,11,H),W(1,7,H),W(1,2,H),GC_5,AMP(6,H))
757
759
C         Amplitude(s) for born diagram with ID 7
758
760
          CALL FFV1_0(W(1,8,H),W(1,12,H),W(1,1,H),GC_5,AMP(7,H))
759
761
C         Amplitude(s) for born diagram with ID 8
760
762
          CALL FFV1_0(W(1,10,H),W(1,7,H),W(1,1,H),GC_5,AMP(8,H))
761
 
          CALL FFV1P0_3(W(1,5,H),W(1,7,H),GC_5,ZERO,ZERO,W(1,13,H))
 
763
          CALL FFV1_2(W(1,5,H),W(1,6,H),GC_5,MDL_MB,ZERO,W(1,13,H))
762
764
C         Counter-term amplitude(s) for loop diagram number 9
763
 
          CALL R2_GG_1_0(W(1,6,H),W(1,13,H),R2_GGQ,AMPL(1,1))
764
 
          CALL R2_GG_1_0(W(1,6,H),W(1,13,H),R2_GGQ,AMPL(1,2))
765
 
          CALL R2_GG_1_0(W(1,6,H),W(1,13,H),R2_GGQ,AMPL(1,3))
766
 
          CALL R2_GG_1_0(W(1,6,H),W(1,13,H),R2_GGQ,AMPL(1,4))
767
 
          CALL FFV1P0_3(W(1,8,H),W(1,4,H),GC_5,ZERO,ZERO,W(1,14,H))
 
765
          CALL R2_QQ_1_R2_QQ_2_0(W(1,13,H),W(1,7,H),R2_QQQ,R2_QQB
 
766
     $     ,AMPL(1,1))
 
767
          CALL R2_QQ_2_0(W(1,13,H),W(1,7,H),UV_BMASS_1EPS,AMPL(2,2))
 
768
          CALL R2_QQ_2_0(W(1,13,H),W(1,7,H),UV_BMASS,AMPL(1,3))
 
769
          CALL FFV1P0_3(W(1,5,H),W(1,7,H),GC_5,ZERO,ZERO,W(1,14,H))
768
770
C         Counter-term amplitude(s) for loop diagram number 10
769
 
          CALL R2_GG_1_0(W(1,6,H),W(1,14,H),R2_GGQ,AMPL(1,5))
770
 
          CALL R2_GG_1_0(W(1,6,H),W(1,14,H),R2_GGQ,AMPL(1,6))
771
 
          CALL R2_GG_1_0(W(1,6,H),W(1,14,H),R2_GGQ,AMPL(1,7))
772
 
          CALL R2_GG_1_0(W(1,6,H),W(1,14,H),R2_GGQ,AMPL(1,8))
 
771
          CALL R2_GG_1_R2_GG_2_0(W(1,6,H),W(1,14,H),R2_GGG_1,R2_GGG_2
 
772
     $     ,AMPL(1,4))
773
773
C         Counter-term amplitude(s) for loop diagram number 11
774
 
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,13,H),UV_3GB_1EPS,AMPL(2,9)
775
 
     $     )
776
 
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,13,H),UV_3GB_1EPS,AMPL(2
 
774
          CALL FFV1_0(W(1,5,H),W(1,7,H),W(1,6,H),R2_GQQ,AMPL(1,5))
 
775
          CALL FFV1_0(W(1,5,H),W(1,7,H),W(1,6,H),UV_GQQB_1EPS,AMPL(2,6)
 
776
     $     )
 
777
          CALL FFV1_0(W(1,5,H),W(1,7,H),W(1,6,H),UV_GQQB_1EPS,AMPL(2,7)
 
778
     $     )
 
779
          CALL FFV1_0(W(1,5,H),W(1,7,H),W(1,6,H),UV_GQQB_1EPS,AMPL(2,8)
 
780
     $     )
 
781
          CALL FFV1_0(W(1,5,H),W(1,7,H),W(1,6,H),UV_GQQB_1EPS,AMPL(2,9)
 
782
     $     )
 
783
          CALL FFV1_0(W(1,5,H),W(1,7,H),W(1,6,H),UV_GQQB_1EPS,AMPL(2
777
784
     $     ,10))
778
 
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,13,H),UV_3GB_1EPS,AMPL(2
 
785
          CALL FFV1_0(W(1,5,H),W(1,7,H),W(1,6,H),UV_GQQB_1EPS,AMPL(2
779
786
     $     ,11))
780
 
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,13,H),UV_3GB_1EPS,AMPL(2
 
787
          CALL FFV1_0(W(1,5,H),W(1,7,H),W(1,6,H),UV_GQQG_1EPS,AMPL(2
781
788
     $     ,12))
782
 
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,13,H),UV_3GB,AMPL(1,13))
783
 
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,13,H),UV_3GB_1EPS,AMPL(2
784
 
     $     ,14))
785
 
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,13,H),UV_3GT,AMPL(1,15))
786
 
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,13,H),UV_3GB_1EPS,AMPL(2
787
 
     $     ,16))
788
 
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,13,H),UV_3GG_1EPS,AMPL(2
789
 
     $     ,17))
790
 
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,13,H),R2_3GQ,AMPL(1,18))
791
 
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,13,H),R2_3GQ,AMPL(1,19))
792
 
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,13,H),R2_3GQ,AMPL(1,20))
793
 
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,13,H),R2_3GQ,AMPL(1,21))
794
 
C         Counter-term amplitude(s) for loop diagram number 12
795
 
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,14,H),UV_3GB_1EPS,AMPL(2
 
789
          CALL FFV1_0(W(1,5,H),W(1,7,H),W(1,6,H),UV_GQQB,AMPL(1,13))
 
790
          CALL FFV1_0(W(1,5,H),W(1,7,H),W(1,6,H),UV_GQQT,AMPL(1,14))
 
791
          CALL FFV1_1(W(1,4,H),W(1,6,H),GC_5,MDL_MT,MDL_WT,W(1,15,H))
 
792
C         Counter-term amplitude(s) for loop diagram number 13
 
793
          CALL R2_QQ_1_R2_QQ_2_0(W(1,8,H),W(1,15,H),R2_QQQ,R2_QQT
 
794
     $     ,AMPL(1,15))
 
795
          CALL R2_QQ_2_0(W(1,8,H),W(1,15,H),UV_TMASS_1EPS,AMPL(2,16))
 
796
          CALL R2_QQ_2_0(W(1,8,H),W(1,15,H),UV_TMASS,AMPL(1,17))
 
797
          CALL FFV1P0_3(W(1,8,H),W(1,4,H),GC_5,ZERO,ZERO,W(1,16,H))
 
798
C         Counter-term amplitude(s) for loop diagram number 14
 
799
          CALL R2_GG_1_R2_GG_2_0(W(1,6,H),W(1,16,H),R2_GGG_1,R2_GGG_2
 
800
     $     ,AMPL(1,18))
 
801
C         Counter-term amplitude(s) for loop diagram number 15
 
802
          CALL FFV1_0(W(1,8,H),W(1,4,H),W(1,6,H),R2_GQQ,AMPL(1,19))
 
803
          CALL FFV1_0(W(1,8,H),W(1,4,H),W(1,6,H),UV_GQQB_1EPS,AMPL(2
 
804
     $     ,20))
 
805
          CALL FFV1_0(W(1,8,H),W(1,4,H),W(1,6,H),UV_GQQB_1EPS,AMPL(2
 
806
     $     ,21))
 
807
          CALL FFV1_0(W(1,8,H),W(1,4,H),W(1,6,H),UV_GQQB_1EPS,AMPL(2
796
808
     $     ,22))
797
 
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,14,H),UV_3GB_1EPS,AMPL(2
 
809
          CALL FFV1_0(W(1,8,H),W(1,4,H),W(1,6,H),UV_GQQB_1EPS,AMPL(2
798
810
     $     ,23))
799
 
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,14,H),UV_3GB_1EPS,AMPL(2
 
811
          CALL FFV1_0(W(1,8,H),W(1,4,H),W(1,6,H),UV_GQQB_1EPS,AMPL(2
800
812
     $     ,24))
801
 
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,14,H),UV_3GB_1EPS,AMPL(2
 
813
          CALL FFV1_0(W(1,8,H),W(1,4,H),W(1,6,H),UV_GQQB_1EPS,AMPL(2
802
814
     $     ,25))
803
 
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,14,H),UV_3GB,AMPL(1,26))
804
 
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,14,H),UV_3GB_1EPS,AMPL(2
805
 
     $     ,27))
806
 
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,14,H),UV_3GT,AMPL(1,28))
807
 
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,14,H),UV_3GB_1EPS,AMPL(2
808
 
     $     ,29))
809
 
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,14,H),UV_3GG_1EPS,AMPL(2
810
 
     $     ,30))
811
 
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,14,H),R2_3GQ,AMPL(1,31))
812
 
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,14,H),R2_3GQ,AMPL(1,32))
813
 
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,14,H),R2_3GQ,AMPL(1,33))
814
 
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,14,H),R2_3GQ,AMPL(1,34))
815
 
          CALL FFV1_2(W(1,5,H),W(1,6,H),GC_5,MDL_MB,ZERO,W(1,15,H))
816
 
C         Counter-term amplitude(s) for loop diagram number 15
817
 
          CALL R2_QQ_1_R2_QQ_2_0(W(1,15,H),W(1,7,H),R2_QQQ,R2_QQB
818
 
     $     ,AMPL(1,35))
819
 
          CALL R2_QQ_2_0(W(1,15,H),W(1,7,H),UV_BMASS,AMPL(1,36))
820
 
          CALL R2_QQ_2_0(W(1,15,H),W(1,7,H),UV_BMASS_1EPS,AMPL(2,37))
821
 
C         Counter-term amplitude(s) for loop diagram number 16
822
 
          CALL R2_GG_1_R2_GG_3_0(W(1,6,H),W(1,13,H),R2_GGQ,R2_GGB
823
 
     $     ,AMPL(1,38))
 
815
          CALL FFV1_0(W(1,8,H),W(1,4,H),W(1,6,H),UV_GQQG_1EPS,AMPL(2
 
816
     $     ,26))
 
817
          CALL FFV1_0(W(1,8,H),W(1,4,H),W(1,6,H),UV_GQQB,AMPL(1,27))
 
818
          CALL FFV1_0(W(1,8,H),W(1,4,H),W(1,6,H),UV_GQQT,AMPL(1,28))
824
819
C         Counter-term amplitude(s) for loop diagram number 17
825
 
          CALL FFV1_0(W(1,5,H),W(1,7,H),W(1,6,H),UV_GQQQ_1EPS,AMPL(2
 
820
          CALL FFV2_0(W(1,13,H),W(1,4,H),W(1,3,H),R2_BXTW,AMPL(1,29))
 
821
C         Counter-term amplitude(s) for loop diagram number 21
 
822
          CALL FFV2_0(W(1,5,H),W(1,15,H),W(1,3,H),R2_BXTW,AMPL(1,30))
 
823
          CALL FFV2_1(W(1,9,H),W(1,3,H),GC_11,MDL_MB,ZERO,W(1,17,H))
 
824
C         Counter-term amplitude(s) for loop diagram number 22
 
825
          CALL R2_QQ_1_R2_QQ_2_0(W(1,10,H),W(1,17,H),R2_QQQ,R2_QQB
 
826
     $     ,AMPL(1,31))
 
827
          CALL R2_QQ_2_0(W(1,10,H),W(1,17,H),UV_BMASS_1EPS,AMPL(2,32))
 
828
          CALL R2_QQ_2_0(W(1,10,H),W(1,17,H),UV_BMASS,AMPL(1,33))
 
829
          CALL FFV2_2(W(1,10,H),W(1,3,H),GC_11,MDL_MT,MDL_WT,W(1,18,H))
 
830
C         Counter-term amplitude(s) for loop diagram number 23
 
831
          CALL R2_QQ_1_R2_QQ_2_0(W(1,18,H),W(1,9,H),R2_QQQ,R2_QQT
 
832
     $     ,AMPL(1,34))
 
833
          CALL R2_QQ_2_0(W(1,18,H),W(1,9,H),UV_TMASS_1EPS,AMPL(2,35))
 
834
          CALL R2_QQ_2_0(W(1,18,H),W(1,9,H),UV_TMASS,AMPL(1,36))
 
835
C         Counter-term amplitude(s) for loop diagram number 24
 
836
          CALL FFV2_0(W(1,10,H),W(1,9,H),W(1,3,H),R2_BXTW,AMPL(1,37))
 
837
C         Counter-term amplitude(s) for loop diagram number 25
 
838
          CALL FFV1_0(W(1,5,H),W(1,17,H),W(1,2,H),R2_GQQ,AMPL(1,38))
 
839
          CALL FFV1_0(W(1,5,H),W(1,17,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
826
840
     $     ,39))
827
 
          CALL FFV1_0(W(1,5,H),W(1,7,H),W(1,6,H),UV_GQQQ_1EPS,AMPL(2
 
841
          CALL FFV1_0(W(1,5,H),W(1,17,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
828
842
     $     ,40))
829
 
          CALL FFV1_0(W(1,5,H),W(1,7,H),W(1,6,H),UV_GQQQ_1EPS,AMPL(2
 
843
          CALL FFV1_0(W(1,5,H),W(1,17,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
830
844
     $     ,41))
831
 
          CALL FFV1_0(W(1,5,H),W(1,7,H),W(1,6,H),UV_GQQQ_1EPS,AMPL(2
 
845
          CALL FFV1_0(W(1,5,H),W(1,17,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
832
846
     $     ,42))
833
 
          CALL FFV1_0(W(1,5,H),W(1,7,H),W(1,6,H),UV_GQQB,AMPL(1,43))
834
 
          CALL FFV1_0(W(1,5,H),W(1,7,H),W(1,6,H),UV_GQQQ_1EPS,AMPL(2
 
847
          CALL FFV1_0(W(1,5,H),W(1,17,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
 
848
     $     ,43))
 
849
          CALL FFV1_0(W(1,5,H),W(1,17,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
835
850
     $     ,44))
836
 
          CALL FFV1_0(W(1,5,H),W(1,7,H),W(1,6,H),UV_GQQT,AMPL(1,45))
837
 
          CALL FFV1_0(W(1,5,H),W(1,7,H),W(1,6,H),UV_GQQQ_1EPS,AMPL(2
838
 
     $     ,46))
839
 
          CALL FFV1_0(W(1,5,H),W(1,7,H),W(1,6,H),UV_GQQG_1EPS,AMPL(2
840
 
     $     ,47))
841
 
          CALL FFV1_0(W(1,5,H),W(1,7,H),W(1,6,H),R2_GQQ,AMPL(1,48))
842
 
C         Counter-term amplitude(s) for loop diagram number 19
843
 
          CALL R2_GG_1_R2_GG_3_0(W(1,6,H),W(1,14,H),R2_GGQ,R2_GGB
844
 
     $     ,AMPL(1,49))
845
 
C         Counter-term amplitude(s) for loop diagram number 20
846
 
          CALL FFV2_0(W(1,15,H),W(1,4,H),W(1,3,H),R2_SXCW,AMPL(1,50))
847
 
          CALL FFV1_1(W(1,4,H),W(1,6,H),GC_5,MDL_MT,MDL_WT,W(1,16,H))
848
 
C         Counter-term amplitude(s) for loop diagram number 23
849
 
          CALL FFV2_0(W(1,5,H),W(1,16,H),W(1,3,H),R2_SXCW,AMPL(1,51))
850
 
          CALL FFV2_1(W(1,9,H),W(1,3,H),GC_47,MDL_MB,ZERO,W(1,17,H))
851
 
C         Counter-term amplitude(s) for loop diagram number 25
852
 
          CALL R2_QQ_1_R2_QQ_2_0(W(1,10,H),W(1,17,H),R2_QQQ,R2_QQB
853
 
     $     ,AMPL(1,52))
854
 
          CALL R2_QQ_2_0(W(1,10,H),W(1,17,H),UV_BMASS,AMPL(1,53))
855
 
          CALL R2_QQ_2_0(W(1,10,H),W(1,17,H),UV_BMASS_1EPS,AMPL(2,54))
856
 
C         Counter-term amplitude(s) for loop diagram number 26
857
 
          CALL FFV2_0(W(1,10,H),W(1,9,H),W(1,3,H),R2_SXCW,AMPL(1,55))
 
851
          CALL FFV1_0(W(1,5,H),W(1,17,H),W(1,2,H),UV_GQQG_1EPS,AMPL(2
 
852
     $     ,45))
 
853
          CALL FFV1_0(W(1,5,H),W(1,17,H),W(1,2,H),UV_GQQB,AMPL(1,46))
 
854
          CALL FFV1_0(W(1,5,H),W(1,17,H),W(1,2,H),UV_GQQT,AMPL(1,47))
858
855
C         Counter-term amplitude(s) for loop diagram number 27
859
 
          CALL FFV1_0(W(1,5,H),W(1,17,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
860
 
     $     ,56))
861
 
          CALL FFV1_0(W(1,5,H),W(1,17,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
862
 
     $     ,57))
863
 
          CALL FFV1_0(W(1,5,H),W(1,17,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
864
 
     $     ,58))
865
 
          CALL FFV1_0(W(1,5,H),W(1,17,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
866
 
     $     ,59))
867
 
          CALL FFV1_0(W(1,5,H),W(1,17,H),W(1,2,H),UV_GQQB,AMPL(1,60))
868
 
          CALL FFV1_0(W(1,5,H),W(1,17,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
869
 
     $     ,61))
870
 
          CALL FFV1_0(W(1,5,H),W(1,17,H),W(1,2,H),UV_GQQT,AMPL(1,62))
871
 
          CALL FFV1_0(W(1,5,H),W(1,17,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
872
 
     $     ,63))
873
 
          CALL FFV1_0(W(1,5,H),W(1,17,H),W(1,2,H),UV_GQQG_1EPS,AMPL(2
874
 
     $     ,64))
875
 
          CALL FFV1_0(W(1,5,H),W(1,17,H),W(1,2,H),R2_GQQ,AMPL(1,65))
876
 
          CALL FFV1_1(W(1,9,H),W(1,2,H),GC_5,MDL_MT,MDL_WT,W(1,18,H))
 
856
          CALL FFV1_0(W(1,8,H),W(1,9,H),W(1,2,H),R2_GQQ,AMPL(1,48))
 
857
          CALL FFV1_0(W(1,8,H),W(1,9,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
 
858
     $     ,49))
 
859
          CALL FFV1_0(W(1,8,H),W(1,9,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
 
860
     $     ,50))
 
861
          CALL FFV1_0(W(1,8,H),W(1,9,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
 
862
     $     ,51))
 
863
          CALL FFV1_0(W(1,8,H),W(1,9,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
 
864
     $     ,52))
 
865
          CALL FFV1_0(W(1,8,H),W(1,9,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
 
866
     $     ,53))
 
867
          CALL FFV1_0(W(1,8,H),W(1,9,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
 
868
     $     ,54))
 
869
          CALL FFV1_0(W(1,8,H),W(1,9,H),W(1,2,H),UV_GQQG_1EPS,AMPL(2
 
870
     $     ,55))
 
871
          CALL FFV1_0(W(1,8,H),W(1,9,H),W(1,2,H),UV_GQQB,AMPL(1,56))
 
872
          CALL FFV1_0(W(1,8,H),W(1,9,H),W(1,2,H),UV_GQQT,AMPL(1,57))
 
873
          CALL FFV1_1(W(1,9,H),W(1,2,H),GC_5,MDL_MT,MDL_WT,W(1,19,H))
 
874
C         Counter-term amplitude(s) for loop diagram number 28
 
875
          CALL R2_QQ_1_R2_QQ_2_0(W(1,8,H),W(1,19,H),R2_QQQ,R2_QQT
 
876
     $     ,AMPL(1,58))
 
877
          CALL R2_QQ_2_0(W(1,8,H),W(1,19,H),UV_TMASS_1EPS,AMPL(2,59))
 
878
          CALL R2_QQ_2_0(W(1,8,H),W(1,19,H),UV_TMASS,AMPL(1,60))
 
879
          CALL FFV1_2(W(1,8,H),W(1,2,H),GC_5,MDL_MT,MDL_WT,W(1,20,H))
877
880
C         Counter-term amplitude(s) for loop diagram number 29
878
 
          CALL FFV2_0(W(1,5,H),W(1,18,H),W(1,3,H),R2_SXCW,AMPL(1,66))
879
 
          CALL FFV2_1(W(1,12,H),W(1,3,H),GC_47,MDL_MB,ZERO,W(1,19,H))
880
 
C         Counter-term amplitude(s) for loop diagram number 33
881
 
          CALL R2_QQ_1_R2_QQ_2_0(W(1,11,H),W(1,19,H),R2_QQQ,R2_QQB
882
 
     $     ,AMPL(1,67))
883
 
          CALL R2_QQ_2_0(W(1,11,H),W(1,19,H),UV_BMASS,AMPL(1,68))
884
 
          CALL R2_QQ_2_0(W(1,11,H),W(1,19,H),UV_BMASS_1EPS,AMPL(2,69))
885
 
C         Counter-term amplitude(s) for loop diagram number 34
886
 
          CALL FFV2_0(W(1,11,H),W(1,12,H),W(1,3,H),R2_SXCW,AMPL(1,70))
 
881
          CALL R2_QQ_1_R2_QQ_2_0(W(1,20,H),W(1,9,H),R2_QQQ,R2_QQT
 
882
     $     ,AMPL(1,61))
 
883
          CALL R2_QQ_2_0(W(1,20,H),W(1,9,H),UV_TMASS_1EPS,AMPL(2,62))
 
884
          CALL R2_QQ_2_0(W(1,20,H),W(1,9,H),UV_TMASS,AMPL(1,63))
 
885
C         Counter-term amplitude(s) for loop diagram number 31
 
886
          CALL FFV2_0(W(1,5,H),W(1,19,H),W(1,3,H),R2_BXTW,AMPL(1,64))
 
887
          CALL FFV2_2(W(1,11,H),W(1,3,H),GC_11,MDL_MT,MDL_WT,W(1,21,H))
887
888
C         Counter-term amplitude(s) for loop diagram number 35
888
 
          CALL FFV1_0(W(1,11,H),W(1,7,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
889
 
     $     ,71))
890
 
          CALL FFV1_0(W(1,11,H),W(1,7,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
891
 
     $     ,72))
892
 
          CALL FFV1_0(W(1,11,H),W(1,7,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
 
889
          CALL R2_QQ_1_R2_QQ_2_0(W(1,21,H),W(1,12,H),R2_QQQ,R2_QQT
 
890
     $     ,AMPL(1,65))
 
891
          CALL R2_QQ_2_0(W(1,21,H),W(1,12,H),UV_TMASS_1EPS,AMPL(2,66))
 
892
          CALL R2_QQ_2_0(W(1,21,H),W(1,12,H),UV_TMASS,AMPL(1,67))
 
893
          CALL FFV2_1(W(1,12,H),W(1,3,H),GC_11,MDL_MB,ZERO,W(1,22,H))
 
894
C         Counter-term amplitude(s) for loop diagram number 36
 
895
          CALL R2_QQ_1_R2_QQ_2_0(W(1,11,H),W(1,22,H),R2_QQQ,R2_QQB
 
896
     $     ,AMPL(1,68))
 
897
          CALL R2_QQ_2_0(W(1,11,H),W(1,22,H),UV_BMASS_1EPS,AMPL(2,69))
 
898
          CALL R2_QQ_2_0(W(1,11,H),W(1,22,H),UV_BMASS,AMPL(1,70))
 
899
C         Counter-term amplitude(s) for loop diagram number 37
 
900
          CALL FFV2_0(W(1,11,H),W(1,12,H),W(1,3,H),R2_BXTW,AMPL(1,71))
 
901
C         Counter-term amplitude(s) for loop diagram number 38
 
902
          CALL FFV1_0(W(1,21,H),W(1,4,H),W(1,2,H),R2_GQQ,AMPL(1,72))
 
903
          CALL FFV1_0(W(1,21,H),W(1,4,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
893
904
     $     ,73))
894
 
          CALL FFV1_0(W(1,11,H),W(1,7,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
 
905
          CALL FFV1_0(W(1,21,H),W(1,4,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
895
906
     $     ,74))
896
 
          CALL FFV1_0(W(1,11,H),W(1,7,H),W(1,2,H),UV_GQQB,AMPL(1,75))
897
 
          CALL FFV1_0(W(1,11,H),W(1,7,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
 
907
          CALL FFV1_0(W(1,21,H),W(1,4,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
 
908
     $     ,75))
 
909
          CALL FFV1_0(W(1,21,H),W(1,4,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
898
910
     $     ,76))
899
 
          CALL FFV1_0(W(1,11,H),W(1,7,H),W(1,2,H),UV_GQQT,AMPL(1,77))
900
 
          CALL FFV1_0(W(1,11,H),W(1,7,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
 
911
          CALL FFV1_0(W(1,21,H),W(1,4,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
 
912
     $     ,77))
 
913
          CALL FFV1_0(W(1,21,H),W(1,4,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
901
914
     $     ,78))
902
 
          CALL FFV1_0(W(1,11,H),W(1,7,H),W(1,2,H),UV_GQQG_1EPS,AMPL(2
 
915
          CALL FFV1_0(W(1,21,H),W(1,4,H),W(1,2,H),UV_GQQG_1EPS,AMPL(2
903
916
     $     ,79))
904
 
          CALL FFV1_0(W(1,11,H),W(1,7,H),W(1,2,H),R2_GQQ,AMPL(1,80))
905
 
          CALL FFV1_2(W(1,11,H),W(1,2,H),GC_5,MDL_MB,ZERO,W(1,20,H))
906
 
C         Counter-term amplitude(s) for loop diagram number 37
907
 
          CALL R2_QQ_1_R2_QQ_2_0(W(1,20,H),W(1,7,H),R2_QQQ,R2_QQB
908
 
     $     ,AMPL(1,81))
909
 
          CALL R2_QQ_2_0(W(1,20,H),W(1,7,H),UV_BMASS,AMPL(1,82))
910
 
          CALL R2_QQ_2_0(W(1,20,H),W(1,7,H),UV_BMASS_1EPS,AMPL(2,83))
911
 
          CALL FFV1_1(W(1,7,H),W(1,2,H),GC_5,MDL_MB,ZERO,W(1,21,H))
912
 
C         Counter-term amplitude(s) for loop diagram number 38
913
 
          CALL R2_QQ_1_R2_QQ_2_0(W(1,11,H),W(1,21,H),R2_QQQ,R2_QQB
914
 
     $     ,AMPL(1,84))
915
 
          CALL R2_QQ_2_0(W(1,11,H),W(1,21,H),UV_BMASS,AMPL(1,85))
916
 
          CALL R2_QQ_2_0(W(1,11,H),W(1,21,H),UV_BMASS_1EPS,AMPL(2,86))
 
917
          CALL FFV1_0(W(1,21,H),W(1,4,H),W(1,2,H),UV_GQQB,AMPL(1,80))
 
918
          CALL FFV1_0(W(1,21,H),W(1,4,H),W(1,2,H),UV_GQQT,AMPL(1,81))
917
919
C         Counter-term amplitude(s) for loop diagram number 40
918
 
          CALL FFV2_0(W(1,20,H),W(1,4,H),W(1,3,H),R2_SXCW,AMPL(1,87))
919
 
C         Counter-term amplitude(s) for loop diagram number 43
920
 
          CALL FFV1_0(W(1,5,H),W(1,19,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
 
920
          CALL FFV1_0(W(1,11,H),W(1,7,H),W(1,2,H),R2_GQQ,AMPL(1,82))
 
921
          CALL FFV1_0(W(1,11,H),W(1,7,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
 
922
     $     ,83))
 
923
          CALL FFV1_0(W(1,11,H),W(1,7,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
 
924
     $     ,84))
 
925
          CALL FFV1_0(W(1,11,H),W(1,7,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
 
926
     $     ,85))
 
927
          CALL FFV1_0(W(1,11,H),W(1,7,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
 
928
     $     ,86))
 
929
          CALL FFV1_0(W(1,11,H),W(1,7,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
 
930
     $     ,87))
 
931
          CALL FFV1_0(W(1,11,H),W(1,7,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
921
932
     $     ,88))
922
 
          CALL FFV1_0(W(1,5,H),W(1,19,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
 
933
          CALL FFV1_0(W(1,11,H),W(1,7,H),W(1,2,H),UV_GQQG_1EPS,AMPL(2
923
934
     $     ,89))
924
 
          CALL FFV1_0(W(1,5,H),W(1,19,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
925
 
     $     ,90))
926
 
          CALL FFV1_0(W(1,5,H),W(1,19,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
927
 
     $     ,91))
928
 
          CALL FFV1_0(W(1,5,H),W(1,19,H),W(1,1,H),UV_GQQB,AMPL(1,92))
929
 
          CALL FFV1_0(W(1,5,H),W(1,19,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
930
 
     $     ,93))
931
 
          CALL FFV1_0(W(1,5,H),W(1,19,H),W(1,1,H),UV_GQQT,AMPL(1,94))
932
 
          CALL FFV1_0(W(1,5,H),W(1,19,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
933
 
     $     ,95))
934
 
          CALL FFV1_0(W(1,5,H),W(1,19,H),W(1,1,H),UV_GQQG_1EPS,AMPL(2
935
 
     $     ,96))
936
 
          CALL FFV1_0(W(1,5,H),W(1,19,H),W(1,1,H),R2_GQQ,AMPL(1,97))
937
 
C         Counter-term amplitude(s) for loop diagram number 45
938
 
          CALL FFV1_0(W(1,10,H),W(1,7,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
939
 
     $     ,98))
940
 
          CALL FFV1_0(W(1,10,H),W(1,7,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
941
 
     $     ,99))
942
 
          CALL FFV1_0(W(1,10,H),W(1,7,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
 
935
          CALL FFV1_0(W(1,11,H),W(1,7,H),W(1,2,H),UV_GQQB,AMPL(1,90))
 
936
          CALL FFV1_0(W(1,11,H),W(1,7,H),W(1,2,H),UV_GQQT,AMPL(1,91))
 
937
          CALL FFV1_2(W(1,11,H),W(1,2,H),GC_5,MDL_MB,ZERO,W(1,23,H))
 
938
C         Counter-term amplitude(s) for loop diagram number 41
 
939
          CALL R2_QQ_1_R2_QQ_2_0(W(1,23,H),W(1,7,H),R2_QQQ,R2_QQB
 
940
     $     ,AMPL(1,92))
 
941
          CALL R2_QQ_2_0(W(1,23,H),W(1,7,H),UV_BMASS_1EPS,AMPL(2,93))
 
942
          CALL R2_QQ_2_0(W(1,23,H),W(1,7,H),UV_BMASS,AMPL(1,94))
 
943
          CALL FFV1_1(W(1,7,H),W(1,2,H),GC_5,MDL_MB,ZERO,W(1,24,H))
 
944
C         Counter-term amplitude(s) for loop diagram number 42
 
945
          CALL R2_QQ_1_R2_QQ_2_0(W(1,11,H),W(1,24,H),R2_QQQ,R2_QQB
 
946
     $     ,AMPL(1,95))
 
947
          CALL R2_QQ_2_0(W(1,11,H),W(1,24,H),UV_BMASS_1EPS,AMPL(2,96))
 
948
          CALL R2_QQ_2_0(W(1,11,H),W(1,24,H),UV_BMASS,AMPL(1,97))
 
949
C         Counter-term amplitude(s) for loop diagram number 44
 
950
          CALL FFV2_0(W(1,23,H),W(1,4,H),W(1,3,H),R2_BXTW,AMPL(1,98))
 
951
C         Counter-term amplitude(s) for loop diagram number 48
 
952
          CALL FFV1_0(W(1,5,H),W(1,22,H),W(1,1,H),R2_GQQ,AMPL(1,99))
 
953
          CALL FFV1_0(W(1,5,H),W(1,22,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
943
954
     $     ,100))
944
 
          CALL FFV1_0(W(1,10,H),W(1,7,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
 
955
          CALL FFV1_0(W(1,5,H),W(1,22,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
945
956
     $     ,101))
946
 
          CALL FFV1_0(W(1,10,H),W(1,7,H),W(1,1,H),UV_GQQB,AMPL(1,102))
947
 
          CALL FFV1_0(W(1,10,H),W(1,7,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
 
957
          CALL FFV1_0(W(1,5,H),W(1,22,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
 
958
     $     ,102))
 
959
          CALL FFV1_0(W(1,5,H),W(1,22,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
948
960
     $     ,103))
949
 
          CALL FFV1_0(W(1,10,H),W(1,7,H),W(1,1,H),UV_GQQT,AMPL(1,104))
950
 
          CALL FFV1_0(W(1,10,H),W(1,7,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
 
961
          CALL FFV1_0(W(1,5,H),W(1,22,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
 
962
     $     ,104))
 
963
          CALL FFV1_0(W(1,5,H),W(1,22,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
951
964
     $     ,105))
952
 
          CALL FFV1_0(W(1,10,H),W(1,7,H),W(1,1,H),UV_GQQG_1EPS,AMPL(2
 
965
          CALL FFV1_0(W(1,5,H),W(1,22,H),W(1,1,H),UV_GQQG_1EPS,AMPL(2
953
966
     $     ,106))
954
 
          CALL FFV1_0(W(1,10,H),W(1,7,H),W(1,1,H),R2_GQQ,AMPL(1,107))
955
 
C         Counter-term amplitude(s) for loop diagram number 48
956
 
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,13,H),R2_3GQ,AMPL(1,108))
 
967
          CALL FFV1_0(W(1,5,H),W(1,22,H),W(1,1,H),UV_GQQB,AMPL(1,107))
 
968
          CALL FFV1_0(W(1,5,H),W(1,22,H),W(1,1,H),UV_GQQT,AMPL(1,108))
957
969
C         Counter-term amplitude(s) for loop diagram number 50
958
 
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,14,H),R2_3GQ,AMPL(1,109))
959
 
C         Counter-term amplitude(s) for loop diagram number 53
960
 
          CALL FFV1_0(W(1,5,H),W(1,21,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
 
970
          CALL FFV1_0(W(1,8,H),W(1,12,H),W(1,1,H),R2_GQQ,AMPL(1,109))
 
971
          CALL FFV1_0(W(1,8,H),W(1,12,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
961
972
     $     ,110))
962
 
          CALL FFV1_0(W(1,5,H),W(1,21,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
 
973
          CALL FFV1_0(W(1,8,H),W(1,12,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
963
974
     $     ,111))
964
 
          CALL FFV1_0(W(1,5,H),W(1,21,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
 
975
          CALL FFV1_0(W(1,8,H),W(1,12,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
965
976
     $     ,112))
966
 
          CALL FFV1_0(W(1,5,H),W(1,21,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
 
977
          CALL FFV1_0(W(1,8,H),W(1,12,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
967
978
     $     ,113))
968
 
          CALL FFV1_0(W(1,5,H),W(1,21,H),W(1,1,H),UV_GQQB,AMPL(1,114))
969
 
          CALL FFV1_0(W(1,5,H),W(1,21,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
 
979
          CALL FFV1_0(W(1,8,H),W(1,12,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
 
980
     $     ,114))
 
981
          CALL FFV1_0(W(1,8,H),W(1,12,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
970
982
     $     ,115))
971
 
          CALL FFV1_0(W(1,5,H),W(1,21,H),W(1,1,H),UV_GQQT,AMPL(1,116))
972
 
          CALL FFV1_0(W(1,5,H),W(1,21,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
973
 
     $     ,117))
974
 
          CALL FFV1_0(W(1,5,H),W(1,21,H),W(1,1,H),UV_GQQG_1EPS,AMPL(2
975
 
     $     ,118))
976
 
          CALL FFV1_0(W(1,5,H),W(1,21,H),W(1,1,H),R2_GQQ,AMPL(1,119))
977
 
          CALL FFV1_1(W(1,12,H),W(1,1,H),GC_5,MDL_MT,MDL_WT,W(1,22,H))
978
 
C         Counter-term amplitude(s) for loop diagram number 59
979
 
          CALL FFV2_0(W(1,5,H),W(1,22,H),W(1,3,H),R2_SXCW,AMPL(1,120))
980
 
          CALL FFV1_2(W(1,10,H),W(1,1,H),GC_5,MDL_MB,ZERO,W(1,23,H))
981
 
C         Counter-term amplitude(s) for loop diagram number 63
982
 
          CALL R2_QQ_1_R2_QQ_2_0(W(1,23,H),W(1,7,H),R2_QQQ,R2_QQB
983
 
     $     ,AMPL(1,121))
984
 
          CALL R2_QQ_2_0(W(1,23,H),W(1,7,H),UV_BMASS,AMPL(1,122))
985
 
          CALL R2_QQ_2_0(W(1,23,H),W(1,7,H),UV_BMASS_1EPS,AMPL(2,123))
986
 
          CALL FFV1_1(W(1,7,H),W(1,1,H),GC_5,MDL_MB,ZERO,W(1,24,H))
987
 
C         Counter-term amplitude(s) for loop diagram number 64
988
 
          CALL R2_QQ_1_R2_QQ_2_0(W(1,10,H),W(1,24,H),R2_QQQ,R2_QQB
989
 
     $     ,AMPL(1,124))
990
 
          CALL R2_QQ_2_0(W(1,10,H),W(1,24,H),UV_BMASS,AMPL(1,125))
991
 
          CALL R2_QQ_2_0(W(1,10,H),W(1,24,H),UV_BMASS_1EPS,AMPL(2,126))
992
 
C         Counter-term amplitude(s) for loop diagram number 66
993
 
          CALL FFV2_0(W(1,23,H),W(1,4,H),W(1,3,H),R2_SXCW,AMPL(1,127))
994
 
C         Counter-term amplitude(s) for loop diagram number 69
995
 
          CALL FFV1_0(W(1,5,H),W(1,24,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
996
 
     $     ,128))
997
 
          CALL FFV1_0(W(1,5,H),W(1,24,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
998
 
     $     ,129))
999
 
          CALL FFV1_0(W(1,5,H),W(1,24,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
 
983
          CALL FFV1_0(W(1,8,H),W(1,12,H),W(1,1,H),UV_GQQG_1EPS,AMPL(2
 
984
     $     ,116))
 
985
          CALL FFV1_0(W(1,8,H),W(1,12,H),W(1,1,H),UV_GQQB,AMPL(1,117))
 
986
          CALL FFV1_0(W(1,8,H),W(1,12,H),W(1,1,H),UV_GQQT,AMPL(1,118))
 
987
C         Counter-term amplitude(s) for loop diagram number 51
 
988
          CALL FFV1_0(W(1,18,H),W(1,4,H),W(1,1,H),R2_GQQ,AMPL(1,119))
 
989
          CALL FFV1_0(W(1,18,H),W(1,4,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
 
990
     $     ,120))
 
991
          CALL FFV1_0(W(1,18,H),W(1,4,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
 
992
     $     ,121))
 
993
          CALL FFV1_0(W(1,18,H),W(1,4,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
 
994
     $     ,122))
 
995
          CALL FFV1_0(W(1,18,H),W(1,4,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
 
996
     $     ,123))
 
997
          CALL FFV1_0(W(1,18,H),W(1,4,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
 
998
     $     ,124))
 
999
          CALL FFV1_0(W(1,18,H),W(1,4,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
 
1000
     $     ,125))
 
1001
          CALL FFV1_0(W(1,18,H),W(1,4,H),W(1,1,H),UV_GQQG_1EPS,AMPL(2
 
1002
     $     ,126))
 
1003
          CALL FFV1_0(W(1,18,H),W(1,4,H),W(1,1,H),UV_GQQB,AMPL(1,127))
 
1004
          CALL FFV1_0(W(1,18,H),W(1,4,H),W(1,1,H),UV_GQQT,AMPL(1,128))
 
1005
C         Counter-term amplitude(s) for loop diagram number 53
 
1006
          CALL FFV1_0(W(1,10,H),W(1,7,H),W(1,1,H),R2_GQQ,AMPL(1,129))
 
1007
          CALL FFV1_0(W(1,10,H),W(1,7,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
1000
1008
     $     ,130))
1001
 
          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,10,H),W(1,7,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
1002
1010
     $     ,131))
1003
 
          CALL FFV1_0(W(1,5,H),W(1,24,H),W(1,2,H),UV_GQQB,AMPL(1,132))
1004
 
          CALL FFV1_0(W(1,5,H),W(1,24,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
 
1011
          CALL FFV1_0(W(1,10,H),W(1,7,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
 
1012
     $     ,132))
 
1013
          CALL FFV1_0(W(1,10,H),W(1,7,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
1005
1014
     $     ,133))
1006
 
          CALL FFV1_0(W(1,5,H),W(1,24,H),W(1,2,H),UV_GQQT,AMPL(1,134))
1007
 
          CALL FFV1_0(W(1,5,H),W(1,24,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
 
1015
          CALL FFV1_0(W(1,10,H),W(1,7,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
 
1016
     $     ,134))
 
1017
          CALL FFV1_0(W(1,10,H),W(1,7,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
1008
1018
     $     ,135))
1009
 
          CALL FFV1_0(W(1,5,H),W(1,24,H),W(1,2,H),UV_GQQG_1EPS,AMPL(2
 
1019
          CALL FFV1_0(W(1,10,H),W(1,7,H),W(1,1,H),UV_GQQG_1EPS,AMPL(2
1010
1020
     $     ,136))
1011
 
          CALL FFV1_0(W(1,5,H),W(1,24,H),W(1,2,H),R2_GQQ,AMPL(1,137))
1012
 
C         Counter-term amplitude(s) for loop diagram number 85
1013
 
          CALL R2_GG_1_R2_GG_3_0(W(1,6,H),W(1,13,H),R2_GGQ,R2_GGT
1014
 
     $     ,AMPL(1,138))
1015
 
C         Counter-term amplitude(s) for loop diagram number 86
1016
 
          CALL R2_QQ_1_R2_QQ_2_0(W(1,8,H),W(1,16,H),R2_QQQ,R2_QQT
1017
 
     $     ,AMPL(1,139))
1018
 
          CALL R2_QQ_2_0(W(1,8,H),W(1,16,H),UV_TMASS,AMPL(1,140))
1019
 
          CALL R2_QQ_2_0(W(1,8,H),W(1,16,H),UV_TMASS_1EPS,AMPL(2,141))
1020
 
C         Counter-term amplitude(s) for loop diagram number 87
1021
 
          CALL R2_GG_1_R2_GG_3_0(W(1,6,H),W(1,14,H),R2_GGQ,R2_GGT
1022
 
     $     ,AMPL(1,142))
1023
 
C         Counter-term amplitude(s) for loop diagram number 88
1024
 
          CALL FFV1_0(W(1,8,H),W(1,4,H),W(1,6,H),UV_GQQQ_1EPS,AMPL(2
 
1021
          CALL FFV1_0(W(1,10,H),W(1,7,H),W(1,1,H),UV_GQQB,AMPL(1,137))
 
1022
          CALL FFV1_0(W(1,10,H),W(1,7,H),W(1,1,H),UV_GQQT,AMPL(1,138))
 
1023
C         Counter-term amplitude(s) for loop diagram number 56
 
1024
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,14,H),R2_3GG,AMPL(1,139))
 
1025
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,14,H),UV_3GB_1EPS,AMPL(2
 
1026
     $     ,140))
 
1027
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,14,H),UV_3GB_1EPS,AMPL(2
 
1028
     $     ,141))
 
1029
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,14,H),UV_3GB_1EPS,AMPL(2
 
1030
     $     ,142))
 
1031
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,14,H),UV_3GB_1EPS,AMPL(2
1025
1032
     $     ,143))
1026
 
          CALL FFV1_0(W(1,8,H),W(1,4,H),W(1,6,H),UV_GQQQ_1EPS,AMPL(2
 
1033
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,14,H),UV_3GB_1EPS,AMPL(2
1027
1034
     $     ,144))
1028
 
          CALL FFV1_0(W(1,8,H),W(1,4,H),W(1,6,H),UV_GQQQ_1EPS,AMPL(2
 
1035
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,14,H),UV_3GB_1EPS,AMPL(2
1029
1036
     $     ,145))
1030
 
          CALL FFV1_0(W(1,8,H),W(1,4,H),W(1,6,H),UV_GQQQ_1EPS,AMPL(2
 
1037
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,14,H),UV_3GG_1EPS,AMPL(2
1031
1038
     $     ,146))
1032
 
          CALL FFV1_0(W(1,8,H),W(1,4,H),W(1,6,H),UV_GQQB,AMPL(1,147))
1033
 
          CALL FFV1_0(W(1,8,H),W(1,4,H),W(1,6,H),UV_GQQQ_1EPS,AMPL(2
1034
 
     $     ,148))
1035
 
          CALL FFV1_0(W(1,8,H),W(1,4,H),W(1,6,H),UV_GQQT,AMPL(1,149))
1036
 
          CALL FFV1_0(W(1,8,H),W(1,4,H),W(1,6,H),UV_GQQQ_1EPS,AMPL(2
 
1039
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,14,H),UV_3GB,AMPL(1,147))
 
1040
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,14,H),UV_3GT,AMPL(1,148))
 
1041
C         Counter-term amplitude(s) for loop diagram number 59
 
1042
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,16,H),R2_3GG,AMPL(1,149))
 
1043
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,16,H),UV_3GB_1EPS,AMPL(2
1037
1044
     $     ,150))
1038
 
          CALL FFV1_0(W(1,8,H),W(1,4,H),W(1,6,H),UV_GQQG_1EPS,AMPL(2
 
1045
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,16,H),UV_3GB_1EPS,AMPL(2
1039
1046
     $     ,151))
1040
 
          CALL FFV1_0(W(1,8,H),W(1,4,H),W(1,6,H),R2_GQQ,AMPL(1,152))
1041
 
          CALL FFV2_2(W(1,10,H),W(1,3,H),GC_47,MDL_MT,MDL_WT,W(1,25,H))
1042
 
C         Counter-term amplitude(s) for loop diagram number 90
1043
 
          CALL R2_QQ_1_R2_QQ_2_0(W(1,25,H),W(1,9,H),R2_QQQ,R2_QQT
1044
 
     $     ,AMPL(1,153))
1045
 
          CALL R2_QQ_2_0(W(1,25,H),W(1,9,H),UV_TMASS,AMPL(1,154))
1046
 
          CALL R2_QQ_2_0(W(1,25,H),W(1,9,H),UV_TMASS_1EPS,AMPL(2,155))
1047
 
C         Counter-term amplitude(s) for loop diagram number 91
1048
 
          CALL FFV1_0(W(1,8,H),W(1,9,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
 
1047
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,16,H),UV_3GB_1EPS,AMPL(2
 
1048
     $     ,152))
 
1049
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,16,H),UV_3GB_1EPS,AMPL(2
 
1050
     $     ,153))
 
1051
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,16,H),UV_3GB_1EPS,AMPL(2
 
1052
     $     ,154))
 
1053
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,16,H),UV_3GB_1EPS,AMPL(2
 
1054
     $     ,155))
 
1055
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,16,H),UV_3GG_1EPS,AMPL(2
1049
1056
     $     ,156))
1050
 
          CALL FFV1_0(W(1,8,H),W(1,9,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
1051
 
     $     ,157))
1052
 
          CALL FFV1_0(W(1,8,H),W(1,9,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
1053
 
     $     ,158))
1054
 
          CALL FFV1_0(W(1,8,H),W(1,9,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
1055
 
     $     ,159))
1056
 
          CALL FFV1_0(W(1,8,H),W(1,9,H),W(1,2,H),UV_GQQB,AMPL(1,160))
1057
 
          CALL FFV1_0(W(1,8,H),W(1,9,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
 
1057
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,16,H),UV_3GB,AMPL(1,157))
 
1058
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,16,H),UV_3GT,AMPL(1,158))
 
1059
C         Counter-term amplitude(s) for loop diagram number 62
 
1060
          CALL FFV1_0(W(1,5,H),W(1,24,H),W(1,1,H),R2_GQQ,AMPL(1,159))
 
1061
          CALL FFV1_0(W(1,5,H),W(1,24,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
 
1062
     $     ,160))
 
1063
          CALL FFV1_0(W(1,5,H),W(1,24,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
1058
1064
     $     ,161))
1059
 
          CALL FFV1_0(W(1,8,H),W(1,9,H),W(1,2,H),UV_GQQT,AMPL(1,162))
1060
 
          CALL FFV1_0(W(1,8,H),W(1,9,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
 
1065
          CALL FFV1_0(W(1,5,H),W(1,24,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
 
1066
     $     ,162))
 
1067
          CALL FFV1_0(W(1,5,H),W(1,24,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
1061
1068
     $     ,163))
1062
 
          CALL FFV1_0(W(1,8,H),W(1,9,H),W(1,2,H),UV_GQQG_1EPS,AMPL(2
 
1069
          CALL FFV1_0(W(1,5,H),W(1,24,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
1063
1070
     $     ,164))
1064
 
          CALL FFV1_0(W(1,8,H),W(1,9,H),W(1,2,H),R2_GQQ,AMPL(1,165))
1065
 
C         Counter-term amplitude(s) for loop diagram number 92
1066
 
          CALL R2_QQ_1_R2_QQ_2_0(W(1,8,H),W(1,18,H),R2_QQQ,R2_QQT
1067
 
     $     ,AMPL(1,166))
1068
 
          CALL R2_QQ_2_0(W(1,8,H),W(1,18,H),UV_TMASS,AMPL(1,167))
1069
 
          CALL R2_QQ_2_0(W(1,8,H),W(1,18,H),UV_TMASS_1EPS,AMPL(2,168))
1070
 
          CALL FFV1_2(W(1,8,H),W(1,2,H),GC_5,MDL_MT,MDL_WT,W(1,26,H))
1071
 
C         Counter-term amplitude(s) for loop diagram number 93
1072
 
          CALL R2_QQ_1_R2_QQ_2_0(W(1,26,H),W(1,9,H),R2_QQQ,R2_QQT
1073
 
     $     ,AMPL(1,169))
1074
 
          CALL R2_QQ_2_0(W(1,26,H),W(1,9,H),UV_TMASS,AMPL(1,170))
1075
 
          CALL R2_QQ_2_0(W(1,26,H),W(1,9,H),UV_TMASS_1EPS,AMPL(2,171))
1076
 
          CALL FFV2_2(W(1,11,H),W(1,3,H),GC_47,MDL_MT,MDL_WT,W(1,27,H))
1077
 
C         Counter-term amplitude(s) for loop diagram number 95
1078
 
          CALL R2_QQ_1_R2_QQ_2_0(W(1,27,H),W(1,12,H),R2_QQQ,R2_QQT
1079
 
     $     ,AMPL(1,172))
1080
 
          CALL R2_QQ_2_0(W(1,27,H),W(1,12,H),UV_TMASS,AMPL(1,173))
1081
 
          CALL R2_QQ_2_0(W(1,27,H),W(1,12,H),UV_TMASS_1EPS,AMPL(2,174))
1082
 
C         Counter-term amplitude(s) for loop diagram number 96
1083
 
          CALL FFV1_0(W(1,27,H),W(1,4,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
 
1071
          CALL FFV1_0(W(1,5,H),W(1,24,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
 
1072
     $     ,165))
 
1073
          CALL FFV1_0(W(1,5,H),W(1,24,H),W(1,1,H),UV_GQQG_1EPS,AMPL(2
 
1074
     $     ,166))
 
1075
          CALL FFV1_0(W(1,5,H),W(1,24,H),W(1,1,H),UV_GQQB,AMPL(1,167))
 
1076
          CALL FFV1_0(W(1,5,H),W(1,24,H),W(1,1,H),UV_GQQT,AMPL(1,168))
 
1077
C         Counter-term amplitude(s) for loop diagram number 65
 
1078
          CALL FFV1_0(W(1,20,H),W(1,4,H),W(1,1,H),R2_GQQ,AMPL(1,169))
 
1079
          CALL FFV1_0(W(1,20,H),W(1,4,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
 
1080
     $     ,170))
 
1081
          CALL FFV1_0(W(1,20,H),W(1,4,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
 
1082
     $     ,171))
 
1083
          CALL FFV1_0(W(1,20,H),W(1,4,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
 
1084
     $     ,172))
 
1085
          CALL FFV1_0(W(1,20,H),W(1,4,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
 
1086
     $     ,173))
 
1087
          CALL FFV1_0(W(1,20,H),W(1,4,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
 
1088
     $     ,174))
 
1089
          CALL FFV1_0(W(1,20,H),W(1,4,H),W(1,1,H),UV_GQQB_1EPS,AMPL(2
1084
1090
     $     ,175))
1085
 
          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,20,H),W(1,4,H),W(1,1,H),UV_GQQG_1EPS,AMPL(2
1086
1092
     $     ,176))
1087
 
          CALL FFV1_0(W(1,27,H),W(1,4,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
1088
 
     $     ,177))
1089
 
          CALL FFV1_0(W(1,27,H),W(1,4,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
1090
 
     $     ,178))
1091
 
          CALL FFV1_0(W(1,27,H),W(1,4,H),W(1,2,H),UV_GQQB,AMPL(1,179))
1092
 
          CALL FFV1_0(W(1,27,H),W(1,4,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
1093
 
     $     ,180))
1094
 
          CALL FFV1_0(W(1,27,H),W(1,4,H),W(1,2,H),UV_GQQT,AMPL(1,181))
1095
 
          CALL FFV1_0(W(1,27,H),W(1,4,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
1096
 
     $     ,182))
1097
 
          CALL FFV1_0(W(1,27,H),W(1,4,H),W(1,2,H),UV_GQQG_1EPS,AMPL(2
1098
 
     $     ,183))
1099
 
          CALL FFV1_0(W(1,27,H),W(1,4,H),W(1,2,H),R2_GQQ,AMPL(1,184))
1100
 
C         Counter-term amplitude(s) for loop diagram number 98
1101
 
          CALL FFV1_0(W(1,8,H),W(1,12,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
1102
 
     $     ,185))
1103
 
          CALL FFV1_0(W(1,8,H),W(1,12,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
1104
 
     $     ,186))
1105
 
          CALL FFV1_0(W(1,8,H),W(1,12,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
1106
 
     $     ,187))
1107
 
          CALL FFV1_0(W(1,8,H),W(1,12,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
1108
 
     $     ,188))
1109
 
          CALL FFV1_0(W(1,8,H),W(1,12,H),W(1,1,H),UV_GQQB,AMPL(1,189))
1110
 
          CALL FFV1_0(W(1,8,H),W(1,12,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
1111
 
     $     ,190))
1112
 
          CALL FFV1_0(W(1,8,H),W(1,12,H),W(1,1,H),UV_GQQT,AMPL(1,191))
1113
 
          CALL FFV1_0(W(1,8,H),W(1,12,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
1114
 
     $     ,192))
1115
 
          CALL FFV1_0(W(1,8,H),W(1,12,H),W(1,1,H),UV_GQQG_1EPS,AMPL(2
1116
 
     $     ,193))
1117
 
          CALL FFV1_0(W(1,8,H),W(1,12,H),W(1,1,H),R2_GQQ,AMPL(1,194))
1118
 
C         Counter-term amplitude(s) for loop diagram number 99
1119
 
          CALL FFV1_0(W(1,25,H),W(1,4,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
 
1093
          CALL FFV1_0(W(1,20,H),W(1,4,H),W(1,1,H),UV_GQQB,AMPL(1,177))
 
1094
          CALL FFV1_0(W(1,20,H),W(1,4,H),W(1,1,H),UV_GQQT,AMPL(1,178))
 
1095
          CALL FFV1_1(W(1,12,H),W(1,1,H),GC_5,MDL_MT,MDL_WT,W(1,25,H))
 
1096
C         Counter-term amplitude(s) for loop diagram number 70
 
1097
          CALL R2_QQ_1_R2_QQ_2_0(W(1,8,H),W(1,25,H),R2_QQQ,R2_QQT
 
1098
     $     ,AMPL(1,179))
 
1099
          CALL R2_QQ_2_0(W(1,8,H),W(1,25,H),UV_TMASS_1EPS,AMPL(2,180))
 
1100
          CALL R2_QQ_2_0(W(1,8,H),W(1,25,H),UV_TMASS,AMPL(1,181))
 
1101
          CALL FFV1_2(W(1,8,H),W(1,1,H),GC_5,MDL_MT,MDL_WT,W(1,26,H))
 
1102
C         Counter-term amplitude(s) for loop diagram number 71
 
1103
          CALL R2_QQ_1_R2_QQ_2_0(W(1,26,H),W(1,12,H),R2_QQQ,R2_QQT
 
1104
     $     ,AMPL(1,182))
 
1105
          CALL R2_QQ_2_0(W(1,26,H),W(1,12,H),UV_TMASS_1EPS,AMPL(2,183))
 
1106
          CALL R2_QQ_2_0(W(1,26,H),W(1,12,H),UV_TMASS,AMPL(1,184))
 
1107
C         Counter-term amplitude(s) for loop diagram number 73
 
1108
          CALL FFV2_0(W(1,5,H),W(1,25,H),W(1,3,H),R2_BXTW,AMPL(1,185))
 
1109
          CALL FFV1_2(W(1,10,H),W(1,1,H),GC_5,MDL_MB,ZERO,W(1,27,H))
 
1110
C         Counter-term amplitude(s) for loop diagram number 77
 
1111
          CALL R2_QQ_1_R2_QQ_2_0(W(1,27,H),W(1,7,H),R2_QQQ,R2_QQB
 
1112
     $     ,AMPL(1,186))
 
1113
          CALL R2_QQ_2_0(W(1,27,H),W(1,7,H),UV_BMASS_1EPS,AMPL(2,187))
 
1114
          CALL R2_QQ_2_0(W(1,27,H),W(1,7,H),UV_BMASS,AMPL(1,188))
 
1115
          CALL FFV1_1(W(1,7,H),W(1,1,H),GC_5,MDL_MB,ZERO,W(1,28,H))
 
1116
C         Counter-term amplitude(s) for loop diagram number 78
 
1117
          CALL R2_QQ_1_R2_QQ_2_0(W(1,10,H),W(1,28,H),R2_QQQ,R2_QQB
 
1118
     $     ,AMPL(1,189))
 
1119
          CALL R2_QQ_2_0(W(1,10,H),W(1,28,H),UV_BMASS_1EPS,AMPL(2,190))
 
1120
          CALL R2_QQ_2_0(W(1,10,H),W(1,28,H),UV_BMASS,AMPL(1,191))
 
1121
C         Counter-term amplitude(s) for loop diagram number 80
 
1122
          CALL FFV2_0(W(1,27,H),W(1,4,H),W(1,3,H),R2_BXTW,AMPL(1,192))
 
1123
C         Counter-term amplitude(s) for loop diagram number 84
 
1124
          CALL FFV1_0(W(1,5,H),W(1,28,H),W(1,2,H),R2_GQQ,AMPL(1,193))
 
1125
          CALL FFV1_0(W(1,5,H),W(1,28,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
 
1126
     $     ,194))
 
1127
          CALL FFV1_0(W(1,5,H),W(1,28,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
1120
1128
     $     ,195))
1121
 
          CALL FFV1_0(W(1,25,H),W(1,4,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
 
1129
          CALL FFV1_0(W(1,5,H),W(1,28,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
1122
1130
     $     ,196))
1123
 
          CALL FFV1_0(W(1,25,H),W(1,4,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
 
1131
          CALL FFV1_0(W(1,5,H),W(1,28,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
1124
1132
     $     ,197))
1125
 
          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,5,H),W(1,28,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
1126
1134
     $     ,198))
1127
 
          CALL FFV1_0(W(1,25,H),W(1,4,H),W(1,1,H),UV_GQQB,AMPL(1,199))
1128
 
          CALL FFV1_0(W(1,25,H),W(1,4,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
 
1135
          CALL FFV1_0(W(1,5,H),W(1,28,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
 
1136
     $     ,199))
 
1137
          CALL FFV1_0(W(1,5,H),W(1,28,H),W(1,2,H),UV_GQQG_1EPS,AMPL(2
1129
1138
     $     ,200))
1130
 
          CALL FFV1_0(W(1,25,H),W(1,4,H),W(1,1,H),UV_GQQT,AMPL(1,201))
1131
 
          CALL FFV1_0(W(1,25,H),W(1,4,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
1132
 
     $     ,202))
1133
 
          CALL FFV1_0(W(1,25,H),W(1,4,H),W(1,1,H),UV_GQQG_1EPS,AMPL(2
1134
 
     $     ,203))
1135
 
          CALL FFV1_0(W(1,25,H),W(1,4,H),W(1,1,H),R2_GQQ,AMPL(1,204))
1136
 
C         Counter-term amplitude(s) for loop diagram number 100
1137
 
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,13,H),R2_3GQ,AMPL(1,205))
1138
 
C         Counter-term amplitude(s) for loop diagram number 101
1139
 
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,14,H),R2_3GQ,AMPL(1,206))
1140
 
C         Counter-term amplitude(s) for loop diagram number 107
1141
 
          CALL FFV1_0(W(1,26,H),W(1,4,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
 
1139
          CALL FFV1_0(W(1,5,H),W(1,28,H),W(1,2,H),UV_GQQB,AMPL(1,201))
 
1140
          CALL FFV1_0(W(1,5,H),W(1,28,H),W(1,2,H),UV_GQQT,AMPL(1,202))
 
1141
C         Counter-term amplitude(s) for loop diagram number 87
 
1142
          CALL FFV1_0(W(1,26,H),W(1,4,H),W(1,2,H),R2_GQQ,AMPL(1,203))
 
1143
          CALL FFV1_0(W(1,26,H),W(1,4,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
 
1144
     $     ,204))
 
1145
          CALL FFV1_0(W(1,26,H),W(1,4,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
 
1146
     $     ,205))
 
1147
          CALL FFV1_0(W(1,26,H),W(1,4,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
 
1148
     $     ,206))
 
1149
          CALL FFV1_0(W(1,26,H),W(1,4,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
1142
1150
     $     ,207))
1143
 
          CALL FFV1_0(W(1,26,H),W(1,4,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
 
1151
          CALL FFV1_0(W(1,26,H),W(1,4,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
1144
1152
     $     ,208))
1145
 
          CALL FFV1_0(W(1,26,H),W(1,4,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
 
1153
          CALL FFV1_0(W(1,26,H),W(1,4,H),W(1,2,H),UV_GQQB_1EPS,AMPL(2
1146
1154
     $     ,209))
1147
 
          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,2,H),UV_GQQG_1EPS,AMPL(2
1148
1156
     $     ,210))
1149
 
          CALL FFV1_0(W(1,26,H),W(1,4,H),W(1,1,H),UV_GQQB,AMPL(1,211))
1150
 
          CALL FFV1_0(W(1,26,H),W(1,4,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
1151
 
     $     ,212))
1152
 
          CALL FFV1_0(W(1,26,H),W(1,4,H),W(1,1,H),UV_GQQT,AMPL(1,213))
1153
 
          CALL FFV1_0(W(1,26,H),W(1,4,H),W(1,1,H),UV_GQQQ_1EPS,AMPL(2
1154
 
     $     ,214))
1155
 
          CALL FFV1_0(W(1,26,H),W(1,4,H),W(1,1,H),UV_GQQG_1EPS,AMPL(2
1156
 
     $     ,215))
1157
 
          CALL FFV1_0(W(1,26,H),W(1,4,H),W(1,1,H),R2_GQQ,AMPL(1,216))
1158
 
C         Counter-term amplitude(s) for loop diagram number 108
1159
 
          CALL R2_QQ_1_R2_QQ_2_0(W(1,8,H),W(1,22,H),R2_QQQ,R2_QQT
1160
 
     $     ,AMPL(1,217))
1161
 
          CALL R2_QQ_2_0(W(1,8,H),W(1,22,H),UV_TMASS,AMPL(1,218))
1162
 
          CALL R2_QQ_2_0(W(1,8,H),W(1,22,H),UV_TMASS_1EPS,AMPL(2,219))
1163
 
          CALL FFV1_2(W(1,8,H),W(1,1,H),GC_5,MDL_MT,MDL_WT,W(1,28,H))
1164
 
C         Counter-term amplitude(s) for loop diagram number 109
1165
 
          CALL R2_QQ_1_R2_QQ_2_0(W(1,28,H),W(1,12,H),R2_QQQ,R2_QQT
1166
 
     $     ,AMPL(1,220))
1167
 
          CALL R2_QQ_2_0(W(1,28,H),W(1,12,H),UV_TMASS,AMPL(1,221))
1168
 
          CALL R2_QQ_2_0(W(1,28,H),W(1,12,H),UV_TMASS_1EPS,AMPL(2,222))
1169
 
C         Counter-term amplitude(s) for loop diagram number 112
1170
 
          CALL FFV1_0(W(1,28,H),W(1,4,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
1171
 
     $     ,223))
1172
 
          CALL FFV1_0(W(1,28,H),W(1,4,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
1173
 
     $     ,224))
1174
 
          CALL FFV1_0(W(1,28,H),W(1,4,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
1175
 
     $     ,225))
1176
 
          CALL FFV1_0(W(1,28,H),W(1,4,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
1177
 
     $     ,226))
1178
 
          CALL FFV1_0(W(1,28,H),W(1,4,H),W(1,2,H),UV_GQQB,AMPL(1,227))
1179
 
          CALL FFV1_0(W(1,28,H),W(1,4,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
1180
 
     $     ,228))
1181
 
          CALL FFV1_0(W(1,28,H),W(1,4,H),W(1,2,H),UV_GQQT,AMPL(1,229))
1182
 
          CALL FFV1_0(W(1,28,H),W(1,4,H),W(1,2,H),UV_GQQQ_1EPS,AMPL(2
1183
 
     $     ,230))
1184
 
          CALL FFV1_0(W(1,28,H),W(1,4,H),W(1,2,H),UV_GQQG_1EPS,AMPL(2
1185
 
     $     ,231))
1186
 
          CALL FFV1_0(W(1,28,H),W(1,4,H),W(1,2,H),R2_GQQ,AMPL(1,232))
 
1157
          CALL FFV1_0(W(1,26,H),W(1,4,H),W(1,2,H),UV_GQQB,AMPL(1,211))
 
1158
          CALL FFV1_0(W(1,26,H),W(1,4,H),W(1,2,H),UV_GQQT,AMPL(1,212))
 
1159
C         Counter-term amplitude(s) for loop diagram number 117
 
1160
          CALL R2_GG_1_0(W(1,6,H),W(1,14,H),R2_GGQ,AMPL(1,213))
 
1161
          CALL R2_GG_1_0(W(1,6,H),W(1,14,H),R2_GGQ,AMPL(1,214))
 
1162
          CALL R2_GG_1_0(W(1,6,H),W(1,14,H),R2_GGQ,AMPL(1,215))
 
1163
          CALL R2_GG_1_0(W(1,6,H),W(1,14,H),R2_GGQ,AMPL(1,216))
 
1164
C         Counter-term amplitude(s) for loop diagram number 118
 
1165
          CALL R2_GG_1_0(W(1,6,H),W(1,16,H),R2_GGQ,AMPL(1,217))
 
1166
          CALL R2_GG_1_0(W(1,6,H),W(1,16,H),R2_GGQ,AMPL(1,218))
 
1167
          CALL R2_GG_1_0(W(1,6,H),W(1,16,H),R2_GGQ,AMPL(1,219))
 
1168
          CALL R2_GG_1_0(W(1,6,H),W(1,16,H),R2_GGQ,AMPL(1,220))
1187
1169
C         Counter-term amplitude(s) for loop diagram number 119
1188
 
          CALL R2_GG_1_R2_GG_2_0(W(1,6,H),W(1,13,H),R2_GGG_1,R2_GGG_2
 
1170
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,14,H),R2_3GQ,AMPL(1,221))
 
1171
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,14,H),R2_3GQ,AMPL(1,222))
 
1172
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,14,H),R2_3GQ,AMPL(1,223))
 
1173
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,14,H),R2_3GQ,AMPL(1,224))
 
1174
C         Counter-term amplitude(s) for loop diagram number 120
 
1175
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,16,H),R2_3GQ,AMPL(1,225))
 
1176
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,16,H),R2_3GQ,AMPL(1,226))
 
1177
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,16,H),R2_3GQ,AMPL(1,227))
 
1178
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,16,H),R2_3GQ,AMPL(1,228))
 
1179
C         Counter-term amplitude(s) for loop diagram number 123
 
1180
          CALL R2_GG_1_R2_GG_3_0(W(1,6,H),W(1,14,H),R2_GGQ,R2_GGB
 
1181
     $     ,AMPL(1,229))
 
1182
C         Counter-term amplitude(s) for loop diagram number 124
 
1183
          CALL R2_GG_1_R2_GG_3_0(W(1,6,H),W(1,16,H),R2_GGQ,R2_GGB
 
1184
     $     ,AMPL(1,230))
 
1185
C         Counter-term amplitude(s) for loop diagram number 125
 
1186
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,14,H),R2_3GQ,AMPL(1,231))
 
1187
C         Counter-term amplitude(s) for loop diagram number 126
 
1188
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,16,H),R2_3GQ,AMPL(1,232))
 
1189
C         Counter-term amplitude(s) for loop diagram number 129
 
1190
          CALL R2_GG_1_R2_GG_3_0(W(1,6,H),W(1,14,H),R2_GGQ,R2_GGT
1189
1191
     $     ,AMPL(1,233))
1190
 
C         Counter-term amplitude(s) for loop diagram number 120
1191
 
          CALL R2_GG_1_R2_GG_2_0(W(1,6,H),W(1,14,H),R2_GGG_1,R2_GGG_2
 
1192
C         Counter-term amplitude(s) for loop diagram number 130
 
1193
          CALL R2_GG_1_R2_GG_3_0(W(1,6,H),W(1,16,H),R2_GGQ,R2_GGT
1192
1194
     $     ,AMPL(1,234))
1193
 
C         Counter-term amplitude(s) for loop diagram number 121
1194
 
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,13,H),R2_3GG,AMPL(1,235))
1195
 
C         Counter-term amplitude(s) for loop diagram number 122
1196
 
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,14,H),R2_3GG,AMPL(1,236))
 
1195
C         Counter-term amplitude(s) for loop diagram number 131
 
1196
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,14,H),R2_3GQ,AMPL(1,235))
 
1197
C         Counter-term amplitude(s) for loop diagram number 132
 
1198
          CALL VVV1_0(W(1,1,H),W(1,2,H),W(1,16,H),R2_3GQ,AMPL(1,236))
1197
1199
C         Amplitude(s) for UVCT diagram with ID 135
1198
 
          CALL FFV1_0(W(1,5,H),W(1,7,H),W(1,6,H),GC_5,AMPL(1,237))
1199
 
          AMPL(1,237)=AMPL(1,237)*(2.0D0*UVWFCT_G_2+2.0D0*UVWFCT_G_1
1200
 
     $     +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)
1201
1203
C         Amplitude(s) for UVCT diagram with ID 136
1202
 
          CALL FFV1_0(W(1,5,H),W(1,7,H),W(1,6,H),GC_5,AMPL(2,238))
1203
 
          AMPL(2,238)=AMPL(2,238)*(2.0D0*UVWFCT_B_0_1EPS+4.0D0
1204
 
     $     *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_T_0+2.0D0*UVWFCT_G_2
 
1206
     $     +2.0D0*UVWFCT_G_1+1.0D0*UVWFCT_B_0)
1205
1207
C         Amplitude(s) for UVCT diagram with ID 137
1206
 
          CALL FFV1_0(W(1,8,H),W(1,4,H),W(1,6,H),GC_5,AMPL(1,239))
1207
 
          AMPL(1,239)=AMPL(1,239)*(2.0D0*UVWFCT_G_2+2.0D0*UVWFCT_G_1
1208
 
     $     +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)
1209
1211
C         Amplitude(s) for UVCT diagram with ID 138
1210
 
          CALL FFV1_0(W(1,8,H),W(1,4,H),W(1,6,H),GC_5,AMPL(2,240))
1211
 
          AMPL(2,240)=AMPL(2,240)*(2.0D0*UVWFCT_B_0_1EPS+4.0D0
1212
 
     $     *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_T_0+2.0D0*UVWFCT_G_2
 
1214
     $     +2.0D0*UVWFCT_G_1+1.0D0*UVWFCT_B_0)
1213
1215
C         Amplitude(s) for UVCT diagram with ID 139
1214
 
          CALL FFV2_0(W(1,10,H),W(1,9,H),W(1,3,H),GC_47,AMPL(1,241))
1215
 
          AMPL(1,241)=AMPL(1,241)*(2.0D0*UVWFCT_G_2+2.0D0*UVWFCT_G_1
1216
 
     $     +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)
1217
1219
C         Amplitude(s) for UVCT diagram with ID 140
1218
 
          CALL FFV2_0(W(1,10,H),W(1,9,H),W(1,3,H),GC_47,AMPL(2,242))
1219
 
          AMPL(2,242)=AMPL(2,242)*(2.0D0*UVWFCT_B_0_1EPS+4.0D0
1220
 
     $     *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_T_0+2.0D0*UVWFCT_G_2
 
1222
     $     +2.0D0*UVWFCT_G_1+1.0D0*UVWFCT_B_0)
1221
1223
C         Amplitude(s) for UVCT diagram with ID 141
1222
 
          CALL FFV1_0(W(1,8,H),W(1,9,H),W(1,2,H),GC_5,AMPL(1,243))
1223
 
          AMPL(1,243)=AMPL(1,243)*(2.0D0*UVWFCT_G_2+2.0D0*UVWFCT_G_1
1224
 
     $     +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)
1225
1227
C         Amplitude(s) for UVCT diagram with ID 142
1226
 
          CALL FFV1_0(W(1,8,H),W(1,9,H),W(1,2,H),GC_5,AMPL(2,244))
1227
 
          AMPL(2,244)=AMPL(2,244)*(2.0D0*UVWFCT_B_0_1EPS+4.0D0
1228
 
     $     *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_T_0+2.0D0*UVWFCT_G_2
 
1230
     $     +2.0D0*UVWFCT_G_1+1.0D0*UVWFCT_B_0)
1229
1231
C         Amplitude(s) for UVCT diagram with ID 143
1230
 
          CALL FFV2_0(W(1,11,H),W(1,12,H),W(1,3,H),GC_47,AMPL(1,245))
1231
 
          AMPL(1,245)=AMPL(1,245)*(2.0D0*UVWFCT_G_2+2.0D0*UVWFCT_G_1
1232
 
     $     +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)
1233
1235
C         Amplitude(s) for UVCT diagram with ID 144
1234
 
          CALL FFV2_0(W(1,11,H),W(1,12,H),W(1,3,H),GC_47,AMPL(2,246))
1235
 
          AMPL(2,246)=AMPL(2,246)*(2.0D0*UVWFCT_B_0_1EPS+4.0D0
1236
 
     $     *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_T_0+2.0D0*UVWFCT_G_2
 
1238
     $     +2.0D0*UVWFCT_G_1+1.0D0*UVWFCT_B_0)
1237
1239
C         Amplitude(s) for UVCT diagram with ID 145
1238
 
          CALL FFV1_0(W(1,11,H),W(1,7,H),W(1,2,H),GC_5,AMPL(1,247))
1239
 
          AMPL(1,247)=AMPL(1,247)*(2.0D0*UVWFCT_G_2+2.0D0*UVWFCT_G_1
1240
 
     $     +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)
1241
1243
C         Amplitude(s) for UVCT diagram with ID 146
1242
 
          CALL FFV1_0(W(1,11,H),W(1,7,H),W(1,2,H),GC_5,AMPL(2,248))
1243
 
          AMPL(2,248)=AMPL(2,248)*(2.0D0*UVWFCT_B_0_1EPS+4.0D0
1244
 
     $     *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_T_0+2.0D0*UVWFCT_G_2
 
1246
     $     +2.0D0*UVWFCT_G_1+1.0D0*UVWFCT_B_0)
1245
1247
C         Amplitude(s) for UVCT diagram with ID 147
1246
 
          CALL FFV1_0(W(1,8,H),W(1,12,H),W(1,1,H),GC_5,AMPL(1,249))
1247
 
          AMPL(1,249)=AMPL(1,249)*(2.0D0*UVWFCT_G_2+2.0D0*UVWFCT_G_1
1248
 
     $     +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)
1249
1251
C         Amplitude(s) for UVCT diagram with ID 148
1250
 
          CALL FFV1_0(W(1,8,H),W(1,12,H),W(1,1,H),GC_5,AMPL(2,250))
1251
 
          AMPL(2,250)=AMPL(2,250)*(2.0D0*UVWFCT_B_0_1EPS+4.0D0
1252
 
     $     *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_T_0+2.0D0*UVWFCT_G_2
 
1254
     $     +2.0D0*UVWFCT_G_1+1.0D0*UVWFCT_B_0)
1253
1255
C         Amplitude(s) for UVCT diagram with ID 149
1254
 
          CALL FFV1_0(W(1,10,H),W(1,7,H),W(1,1,H),GC_5,AMPL(1,251))
1255
 
          AMPL(1,251)=AMPL(1,251)*(2.0D0*UVWFCT_G_2+2.0D0*UVWFCT_G_1
1256
 
     $     +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)
1257
1259
C         Amplitude(s) for UVCT diagram with ID 150
1258
 
          CALL FFV1_0(W(1,10,H),W(1,7,H),W(1,1,H),GC_5,AMPL(2,252))
1259
 
          AMPL(2,252)=AMPL(2,252)*(2.0D0*UVWFCT_B_0_1EPS+4.0D0
1260
 
     $     *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_T_0+2.0D0*UVWFCT_G_2
 
1262
     $     +2.0D0*UVWFCT_G_1+1.0D0*UVWFCT_B_0)
1261
1263
 300      CONTINUE
1262
1264
 
1263
1265
 
1286
1288
      ENDIF
1287
1289
 
1288
1290
C     Loop amplitude for loop diagram with ID 9
1289
 
      CALL ML5_0_LOOP_2_2(1,6,13,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
1290
 
     $ ,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),GC_5,MP__GC_5,GC_5
1291
 
     $ ,MP__GC_5,2,1,4,253,AMPL(1,253),S(253))
 
1291
      CALL ML5_0_LOOP_2_2(1,7,13,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
 
1292
     $ ,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),GC_5,MP__GC_5,GC_5
 
1293
     $ ,MP__GC_5,1,1,1,253,AMPL(1,253),S(253))
1292
1294
C     Loop amplitude for loop diagram with ID 10
1293
 
      CALL ML5_0_LOOP_2_2(1,6,14,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
1294
 
     $ ,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),GC_5,MP__GC_5,GC_5
1295
 
     $ ,MP__GC_5,2,1,4,254,AMPL(1,254),S(254))
 
1295
      CALL ML5_0_LOOP_2_2(2,6,14,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
 
1296
     $ ,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_4
 
1297
     $ ,MP__GC_4,2,2,1,254,AMPL(1,254),S(254))
1296
1298
C     Loop amplitude for loop diagram with ID 11
1297
 
      CALL ML5_0_LOOP_3_3(2,1,2,13,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
1298
 
     $ ,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(ZERO)
1299
 
     $ ,CMPLX(MP__ZERO,KIND=16),GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5
1300
 
     $ ,MP__GC_5,3,1,4,255,AMPL(1,255),S(255))
 
1299
      CALL ML5_0_LOOP_3_3(3,5,6,7,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
 
1300
     $ ,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB)
 
1301
     $ ,CMPLX(MP__MDL_MB,KIND=16),GC_5,MP__GC_5,GC_4,MP__GC_4,GC_5
 
1302
     $ ,MP__GC_5,2,1,1,255,AMPL(1,255),S(255))
1301
1303
C     Loop amplitude for loop diagram with ID 12
1302
 
      CALL ML5_0_LOOP_3_3(2,1,2,14,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
1303
 
     $ ,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(ZERO)
 
1304
      CALL ML5_0_LOOP_3_3(4,5,6,7,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
 
1305
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),DCMPLX(ZERO)
1304
1306
     $ ,CMPLX(MP__ZERO,KIND=16),GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5
1305
 
     $ ,MP__GC_5,3,1,4,256,AMPL(1,256),S(256))
 
1307
     $ ,MP__GC_5,2,1,1,256,AMPL(1,256),S(256))
1306
1308
C     Loop amplitude for loop diagram with ID 13
1307
 
      CALL ML5_0_LOOP_3_3(3,1,2,13,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
1308
 
     $ ,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(ZERO)
1309
 
     $ ,CMPLX(MP__ZERO,KIND=16),GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5
1310
 
     $ ,MP__GC_5,3,1,4,257,AMPL(1,257),S(257))
 
1309
      CALL ML5_0_LOOP_2_2(5,8,15,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
 
1310
     $ ,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),GC_5,MP__GC_5,GC_5
 
1311
     $ ,MP__GC_5,1,1,1,257,AMPL(1,257),S(257))
1311
1312
C     Loop amplitude for loop diagram with ID 14
1312
 
      CALL ML5_0_LOOP_3_3(3,1,2,14,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
1313
 
     $ ,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(ZERO)
1314
 
     $ ,CMPLX(MP__ZERO,KIND=16),GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5
1315
 
     $ ,MP__GC_5,3,1,4,258,AMPL(1,258),S(258))
 
1313
      CALL ML5_0_LOOP_2_2(2,6,16,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
 
1314
     $ ,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_4
 
1315
     $ ,MP__GC_4,2,2,1,258,AMPL(1,258),S(258))
1316
1316
C     Loop amplitude for loop diagram with ID 15
1317
 
      CALL ML5_0_LOOP_2_2(4,7,15,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
1318
 
     $ ,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),GC_5,MP__GC_5,GC_5
1319
 
     $ ,MP__GC_5,1,1,1,259,AMPL(1,259),S(259))
 
1317
      CALL ML5_0_LOOP_3_3(6,4,6,8,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
 
1318
     $ ,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MT)
 
1319
     $ ,CMPLX(MP__MDL_MT,KIND=16),GC_5,MP__GC_5,GC_4,MP__GC_4,GC_5
 
1320
     $ ,MP__GC_5,2,1,1,259,AMPL(1,259),S(259))
1320
1321
C     Loop amplitude for loop diagram with ID 16
1321
 
      CALL ML5_0_LOOP_2_2(1,6,13,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1322
 
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),GC_5
1323
 
     $ ,MP__GC_5,GC_5,MP__GC_5,2,1,1,260,AMPL(1,260),S(260))
 
1322
      CALL ML5_0_LOOP_3_3(7,4,6,8,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
 
1323
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO)
 
1324
     $ ,CMPLX(MP__ZERO,KIND=16),GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5
 
1325
     $ ,MP__GC_5,2,1,1,260,AMPL(1,260),S(260))
1324
1326
C     Loop amplitude for loop diagram with ID 17
1325
 
      CALL ML5_0_LOOP_3_3(5,5,6,7,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1326
 
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),DCMPLX(ZERO)
1327
 
     $ ,CMPLX(MP__ZERO,KIND=16),GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5
 
1327
      CALL ML5_0_LOOP_3_3(8,3,4,13,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
 
1328
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB)
 
1329
     $ ,CMPLX(MP__MDL_MB,KIND=16),GC_11,MP__GC_11,GC_5,MP__GC_5,GC_5
1328
1330
     $ ,MP__GC_5,2,1,1,261,AMPL(1,261),S(261))
1329
1331
C     Loop amplitude for loop diagram with ID 18
1330
 
      CALL ML5_0_LOOP_3_3(6,5,6,7,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
1331
 
     $ ,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB)
1332
 
     $ ,CMPLX(MP__MDL_MB,KIND=16),GC_5,MP__GC_5,GC_4,MP__GC_4,GC_5
1333
 
     $ ,MP__GC_5,2,1,1,262,AMPL(1,262),S(262))
 
1332
      CALL ML5_0_LOOP_4_4(9,3,4,6,5,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
 
1333
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(ZERO)
 
1334
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
 
1335
     $ ,KIND=16),GC_11,MP__GC_11,GC_5,MP__GC_5,GC_4,MP__GC_4,GC_5
 
1336
     $ ,MP__GC_5,3,1,1,262,AMPL(1,262),S(262))
1334
1337
C     Loop amplitude for loop diagram with ID 19
1335
 
      CALL ML5_0_LOOP_2_2(1,6,14,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1336
 
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),GC_5
1337
 
     $ ,MP__GC_5,GC_5,MP__GC_5,2,1,1,263,AMPL(1,263),S(263))
 
1338
      CALL ML5_0_LOOP_4_4(10,3,5,4,6,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
 
1339
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MT)
 
1340
     $ ,CMPLX(MP__MDL_MT,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
 
1341
     $ ,KIND=16),GC_11,MP__GC_11,GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5
 
1342
     $ ,MP__GC_5,3,1,1,263,AMPL(1,263),S(263))
1338
1343
C     Loop amplitude for loop diagram with ID 20
1339
 
      CALL ML5_0_LOOP_3_3(7,3,4,15,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
 
1344
      CALL ML5_0_LOOP_4_4(11,3,4,5,6,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1340
1345
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB)
1341
 
     $ ,CMPLX(MP__MDL_MB,KIND=16),GC_47,MP__GC_47,GC_5,MP__GC_5,GC_5
1342
 
     $ ,MP__GC_5,2,1,1,264,AMPL(1,264),S(264))
 
1346
     $ ,CMPLX(MP__MDL_MB,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
 
1347
     $ ,KIND=16),GC_11,MP__GC_11,GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5
 
1348
     $ ,MP__GC_5,3,1,1,264,AMPL(1,264),S(264))
1343
1349
C     Loop amplitude for loop diagram with ID 21
1344
 
      CALL ML5_0_LOOP_4_4(8,3,4,5,6,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1345
 
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB)
1346
 
     $ ,CMPLX(MP__MDL_MB,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1347
 
     $ ,KIND=16),GC_47,MP__GC_47,GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5
1348
 
     $ ,MP__GC_5,3,1,1,265,AMPL(1,265),S(265))
 
1350
      CALL ML5_0_LOOP_3_3(12,3,5,15,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
 
1351
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MT)
 
1352
     $ ,CMPLX(MP__MDL_MT,KIND=16),GC_11,MP__GC_11,GC_5,MP__GC_5,GC_5
 
1353
     $ ,MP__GC_5,2,1,1,265,AMPL(1,265),S(265))
1349
1354
C     Loop amplitude for loop diagram with ID 22
1350
 
      CALL ML5_0_LOOP_4_4(9,3,5,4,6,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1351
 
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MT)
1352
 
     $ ,CMPLX(MP__MDL_MT,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1353
 
     $ ,KIND=16),GC_47,MP__GC_47,GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5
1354
 
     $ ,MP__GC_5,3,1,1,266,AMPL(1,266),S(266))
 
1355
      CALL ML5_0_LOOP_2_2(5,10,17,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
 
1356
     $ ,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),GC_5,MP__GC_5,GC_5
 
1357
     $ ,MP__GC_5,1,1,1,266,AMPL(1,266),S(266))
1355
1358
C     Loop amplitude for loop diagram with ID 23
1356
 
      CALL ML5_0_LOOP_3_3(10,3,5,16,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1357
 
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MT)
1358
 
     $ ,CMPLX(MP__MDL_MT,KIND=16),GC_47,MP__GC_47,GC_5,MP__GC_5,GC_5
1359
 
     $ ,MP__GC_5,2,1,1,267,AMPL(1,267),S(267))
 
1359
      CALL ML5_0_LOOP_2_2(1,9,18,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
 
1360
     $ ,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),GC_5,MP__GC_5,GC_5
 
1361
     $ ,MP__GC_5,1,1,1,267,AMPL(1,267),S(267))
1360
1362
C     Loop amplitude for loop diagram with ID 24
1361
 
      CALL ML5_0_LOOP_4_4(11,3,4,6,5,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1362
 
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(ZERO)
1363
 
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1364
 
     $ ,KIND=16),GC_47,MP__GC_47,GC_5,MP__GC_5,GC_4,MP__GC_4,GC_5
1365
 
     $ ,MP__GC_5,3,1,1,268,AMPL(1,268),S(268))
 
1363
      CALL ML5_0_LOOP_3_3(8,3,9,10,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
 
1364
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB)
 
1365
     $ ,CMPLX(MP__MDL_MB,KIND=16),GC_11,MP__GC_11,GC_5,MP__GC_5,GC_5
 
1366
     $ ,MP__GC_5,2,1,1,268,AMPL(1,268),S(268))
1366
1367
C     Loop amplitude for loop diagram with ID 25
1367
 
      CALL ML5_0_LOOP_2_2(12,10,17,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
1368
 
     $ ,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),GC_5,MP__GC_5,GC_5
1369
 
     $ ,MP__GC_5,1,1,1,269,AMPL(1,269),S(269))
 
1368
      CALL ML5_0_LOOP_3_3(13,2,5,17,DCMPLX(ZERO),CMPLX(MP__ZERO
 
1369
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),DCMPLX(ZERO)
 
1370
     $ ,CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_5,MP__GC_5,GC_5
 
1371
     $ ,MP__GC_5,2,1,1,269,AMPL(1,269),S(269))
1370
1372
C     Loop amplitude for loop diagram with ID 26
1371
 
      CALL ML5_0_LOOP_3_3(7,3,9,10,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1372
 
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB)
1373
 
     $ ,CMPLX(MP__MDL_MB,KIND=16),GC_47,MP__GC_47,GC_5,MP__GC_5,GC_5
1374
 
     $ ,MP__GC_5,2,1,1,270,AMPL(1,270),S(270))
 
1373
      CALL ML5_0_LOOP_4_4(14,2,5,3,9,DCMPLX(ZERO),CMPLX(MP__ZERO
 
1374
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16)
 
1375
     $ ,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO)
 
1376
     $ ,CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_5,MP__GC_5,GC_11
 
1377
     $ ,MP__GC_11,GC_5,MP__GC_5,3,1,1,270,AMPL(1,270),S(270))
1375
1378
C     Loop amplitude for loop diagram with ID 27
1376
 
      CALL ML5_0_LOOP_3_3(13,2,5,17,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1377
 
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB)
1378
 
     $ ,CMPLX(MP__MDL_MB,KIND=16),GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5
 
1379
      CALL ML5_0_LOOP_3_3(15,2,9,8,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
 
1380
     $ ,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO)
 
1381
     $ ,CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_5,MP__GC_5,GC_5
1379
1382
     $ ,MP__GC_5,2,1,1,271,AMPL(1,271),S(271))
1380
1383
C     Loop amplitude for loop diagram with ID 28
1381
 
      CALL ML5_0_LOOP_4_4(14,2,3,9,5,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1382
 
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO)
1383
 
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1384
 
     $ ,KIND=16),GC_5,MP__GC_5,GC_47,MP__GC_47,GC_5,MP__GC_5,GC_5
1385
 
     $ ,MP__GC_5,3,1,1,272,AMPL(1,272),S(272))
 
1384
      CALL ML5_0_LOOP_2_2(5,8,19,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
 
1385
     $ ,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),GC_5,MP__GC_5,GC_5
 
1386
     $ ,MP__GC_5,1,1,1,272,AMPL(1,272),S(272))
1386
1387
C     Loop amplitude for loop diagram with ID 29
1387
 
      CALL ML5_0_LOOP_3_3(10,3,5,18,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1388
 
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MT)
1389
 
     $ ,CMPLX(MP__MDL_MT,KIND=16),GC_47,MP__GC_47,GC_5,MP__GC_5,GC_5
1390
 
     $ ,MP__GC_5,2,1,1,273,AMPL(1,273),S(273))
 
1388
      CALL ML5_0_LOOP_2_2(1,9,20,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
 
1389
     $ ,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),GC_5,MP__GC_5,GC_5
 
1390
     $ ,MP__GC_5,1,1,1,273,AMPL(1,273),S(273))
1391
1391
C     Loop amplitude for loop diagram with ID 30
1392
 
      CALL ML5_0_LOOP_4_4(15,2,5,3,9,DCMPLX(ZERO),CMPLX(MP__ZERO
1393
 
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16)
1394
 
     $ ,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO)
1395
 
     $ ,CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_5,MP__GC_5,GC_47
1396
 
     $ ,MP__GC_47,GC_5,MP__GC_5,3,1,1,274,AMPL(1,274),S(274))
 
1392
      CALL ML5_0_LOOP_3_3(16,2,9,8,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
 
1393
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MT)
 
1394
     $ ,CMPLX(MP__MDL_MT,KIND=16),GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5
 
1395
     $ ,MP__GC_5,2,1,1,274,AMPL(1,274),S(274))
1397
1396
C     Loop amplitude for loop diagram with ID 31
1398
 
      CALL ML5_0_LOOP_4_4(16,2,3,5,9,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1399
 
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),DCMPLX(ZERO)
1400
 
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1401
 
     $ ,KIND=16),GC_5,MP__GC_5,GC_47,MP__GC_47,GC_5,MP__GC_5,GC_5
1402
 
     $ ,MP__GC_5,3,1,1,275,AMPL(1,275),S(275))
 
1397
      CALL ML5_0_LOOP_3_3(12,3,5,19,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
 
1398
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MT)
 
1399
     $ ,CMPLX(MP__MDL_MT,KIND=16),GC_11,MP__GC_11,GC_5,MP__GC_5,GC_5
 
1400
     $ ,MP__GC_5,2,1,1,275,AMPL(1,275),S(275))
1403
1401
C     Loop amplitude for loop diagram with ID 32
1404
 
      CALL ML5_0_LOOP_3_3(17,2,5,17,DCMPLX(ZERO),CMPLX(MP__ZERO
1405
 
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),DCMPLX(ZERO)
1406
 
     $ ,CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_5,MP__GC_5,GC_5
 
1402
      CALL ML5_0_LOOP_3_3(17,2,5,17,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
 
1403
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB)
 
1404
     $ ,CMPLX(MP__MDL_MB,KIND=16),GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5
1407
1405
     $ ,MP__GC_5,2,1,1,276,AMPL(1,276),S(276))
1408
1406
C     Loop amplitude for loop diagram with ID 33
1409
 
      CALL ML5_0_LOOP_2_2(12,11,19,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
1410
 
     $ ,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),GC_5,MP__GC_5,GC_5
1411
 
     $ ,MP__GC_5,1,1,1,277,AMPL(1,277),S(277))
 
1407
      CALL ML5_0_LOOP_4_4(18,2,3,9,5,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
 
1408
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO)
 
1409
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
 
1410
     $ ,KIND=16),GC_5,MP__GC_5,GC_11,MP__GC_11,GC_5,MP__GC_5,GC_5
 
1411
     $ ,MP__GC_5,3,1,1,277,AMPL(1,277),S(277))
1412
1412
C     Loop amplitude for loop diagram with ID 34
1413
 
      CALL ML5_0_LOOP_3_3(7,3,12,11,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1414
 
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB)
1415
 
     $ ,CMPLX(MP__MDL_MB,KIND=16),GC_47,MP__GC_47,GC_5,MP__GC_5,GC_5
1416
 
     $ ,MP__GC_5,2,1,1,278,AMPL(1,278),S(278))
 
1413
      CALL ML5_0_LOOP_4_4(19,2,3,5,9,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
 
1414
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),DCMPLX(ZERO)
 
1415
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
 
1416
     $ ,KIND=16),GC_5,MP__GC_5,GC_11,MP__GC_11,GC_5,MP__GC_5,GC_5
 
1417
     $ ,MP__GC_5,3,1,1,278,AMPL(1,278),S(278))
1417
1418
C     Loop amplitude for loop diagram with ID 35
1418
 
      CALL ML5_0_LOOP_3_3(18,2,7,11,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1419
 
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB)
1420
 
     $ ,CMPLX(MP__MDL_MB,KIND=16),GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5
1421
 
     $ ,MP__GC_5,2,1,1,279,AMPL(1,279),S(279))
 
1419
      CALL ML5_0_LOOP_2_2(1,12,21,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
 
1420
     $ ,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),GC_5,MP__GC_5,GC_5
 
1421
     $ ,MP__GC_5,1,1,1,279,AMPL(1,279),S(279))
1422
1422
C     Loop amplitude for loop diagram with ID 36
1423
 
      CALL ML5_0_LOOP_4_4(14,2,3,4,11,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1424
 
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO)
1425
 
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1426
 
     $ ,KIND=16),GC_5,MP__GC_5,GC_47,MP__GC_47,GC_5,MP__GC_5,GC_5
1427
 
     $ ,MP__GC_5,3,1,1,280,AMPL(1,280),S(280))
 
1423
      CALL ML5_0_LOOP_2_2(5,11,22,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
 
1424
     $ ,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),GC_5,MP__GC_5,GC_5
 
1425
     $ ,MP__GC_5,1,1,1,280,AMPL(1,280),S(280))
1428
1426
C     Loop amplitude for loop diagram with ID 37
1429
 
      CALL ML5_0_LOOP_2_2(4,7,20,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
1430
 
     $ ,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),GC_5,MP__GC_5,GC_5
1431
 
     $ ,MP__GC_5,1,1,1,281,AMPL(1,281),S(281))
 
1427
      CALL ML5_0_LOOP_3_3(8,3,12,11,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
 
1428
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB)
 
1429
     $ ,CMPLX(MP__MDL_MB,KIND=16),GC_11,MP__GC_11,GC_5,MP__GC_5,GC_5
 
1430
     $ ,MP__GC_5,2,1,1,281,AMPL(1,281),S(281))
1432
1431
C     Loop amplitude for loop diagram with ID 38
1433
 
      CALL ML5_0_LOOP_2_2(12,11,21,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
1434
 
     $ ,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),GC_5,MP__GC_5,GC_5
1435
 
     $ ,MP__GC_5,1,1,1,282,AMPL(1,282),S(282))
 
1432
      CALL ML5_0_LOOP_3_3(15,2,4,21,DCMPLX(ZERO),CMPLX(MP__ZERO
 
1433
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO)
 
1434
     $ ,CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_5,MP__GC_5,GC_5
 
1435
     $ ,MP__GC_5,2,1,1,282,AMPL(1,282),S(282))
1436
1436
C     Loop amplitude for loop diagram with ID 39
1437
 
      CALL ML5_0_LOOP_3_3(19,2,7,11,DCMPLX(ZERO),CMPLX(MP__ZERO
1438
 
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),DCMPLX(ZERO)
1439
 
     $ ,CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_5,MP__GC_5,GC_5
1440
 
     $ ,MP__GC_5,2,1,1,283,AMPL(1,283),S(283))
 
1437
      CALL ML5_0_LOOP_4_4(20,2,4,3,11,DCMPLX(ZERO),CMPLX(MP__ZERO
 
1438
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16)
 
1439
     $ ,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),DCMPLX(ZERO)
 
1440
     $ ,CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_5,MP__GC_5,GC_11
 
1441
     $ ,MP__GC_11,GC_5,MP__GC_5,3,1,1,283,AMPL(1,283),S(283))
1441
1442
C     Loop amplitude for loop diagram with ID 40
1442
 
      CALL ML5_0_LOOP_3_3(7,3,4,20,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1443
 
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB)
1444
 
     $ ,CMPLX(MP__MDL_MB,KIND=16),GC_47,MP__GC_47,GC_5,MP__GC_5,GC_5
 
1443
      CALL ML5_0_LOOP_3_3(15,2,7,11,DCMPLX(ZERO),CMPLX(MP__ZERO
 
1444
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),DCMPLX(ZERO)
 
1445
     $ ,CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_5,MP__GC_5,GC_5
1445
1446
     $ ,MP__GC_5,2,1,1,284,AMPL(1,284),S(284))
1446
1447
C     Loop amplitude for loop diagram with ID 41
1447
 
      CALL ML5_0_LOOP_4_4(16,2,3,11,4,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1448
 
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),DCMPLX(ZERO)
1449
 
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1450
 
     $ ,KIND=16),GC_5,MP__GC_5,GC_47,MP__GC_47,GC_5,MP__GC_5,GC_5
1451
 
     $ ,MP__GC_5,3,1,1,285,AMPL(1,285),S(285))
 
1448
      CALL ML5_0_LOOP_2_2(1,7,23,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
 
1449
     $ ,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),GC_5,MP__GC_5,GC_5
 
1450
     $ ,MP__GC_5,1,1,1,285,AMPL(1,285),S(285))
1452
1451
C     Loop amplitude for loop diagram with ID 42
1453
 
      CALL ML5_0_LOOP_4_4(20,2,4,3,11,DCMPLX(ZERO),CMPLX(MP__ZERO
1454
 
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16)
1455
 
     $ ,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),DCMPLX(ZERO)
1456
 
     $ ,CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_5,MP__GC_5,GC_47
1457
 
     $ ,MP__GC_47,GC_5,MP__GC_5,3,1,1,286,AMPL(1,286),S(286))
 
1452
      CALL ML5_0_LOOP_2_2(5,11,24,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
 
1453
     $ ,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),GC_5,MP__GC_5,GC_5
 
1454
     $ ,MP__GC_5,1,1,1,286,AMPL(1,286),S(286))
1458
1455
C     Loop amplitude for loop diagram with ID 43
1459
 
      CALL ML5_0_LOOP_3_3(13,1,5,19,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
 
1456
      CALL ML5_0_LOOP_3_3(16,2,7,11,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1460
1457
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB)
1461
1458
     $ ,CMPLX(MP__MDL_MB,KIND=16),GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5
1462
1459
     $ ,MP__GC_5,2,1,1,287,AMPL(1,287),S(287))
1463
1460
C     Loop amplitude for loop diagram with ID 44
1464
 
      CALL ML5_0_LOOP_4_4(14,1,3,12,5,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1465
 
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO)
1466
 
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1467
 
     $ ,KIND=16),GC_5,MP__GC_5,GC_47,MP__GC_47,GC_5,MP__GC_5,GC_5
1468
 
     $ ,MP__GC_5,3,1,1,288,AMPL(1,288),S(288))
 
1461
      CALL ML5_0_LOOP_3_3(8,3,4,23,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
 
1462
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB)
 
1463
     $ ,CMPLX(MP__MDL_MB,KIND=16),GC_11,MP__GC_11,GC_5,MP__GC_5,GC_5
 
1464
     $ ,MP__GC_5,2,1,1,288,AMPL(1,288),S(288))
1469
1465
C     Loop amplitude for loop diagram with ID 45
1470
 
      CALL ML5_0_LOOP_3_3(18,1,7,10,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1471
 
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB)
1472
 
     $ ,CMPLX(MP__MDL_MB,KIND=16),GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5
 
1466
      CALL ML5_0_LOOP_3_3(16,2,4,21,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
 
1467
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MT)
 
1468
     $ ,CMPLX(MP__MDL_MT,KIND=16),GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5
1473
1469
     $ ,MP__GC_5,2,1,1,289,AMPL(1,289),S(289))
1474
1470
C     Loop amplitude for loop diagram with ID 46
1475
 
      CALL ML5_0_LOOP_4_4(14,1,3,4,10,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1476
 
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO)
1477
 
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1478
 
     $ ,KIND=16),GC_5,MP__GC_5,GC_47,MP__GC_47,GC_5,MP__GC_5,GC_5
 
1471
      CALL ML5_0_LOOP_4_4(19,2,3,11,4,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
 
1472
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),DCMPLX(ZERO)
 
1473
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
 
1474
     $ ,KIND=16),GC_5,MP__GC_5,GC_11,MP__GC_11,GC_5,MP__GC_5,GC_5
1479
1475
     $ ,MP__GC_5,3,1,1,290,AMPL(1,290),S(290))
1480
1476
C     Loop amplitude for loop diagram with ID 47
1481
 
      CALL ML5_0_LOOP_5_5(21,1,2,3,4,5,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1482
 
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16)
1483
 
     $ ,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO)
 
1477
      CALL ML5_0_LOOP_4_4(18,2,3,4,11,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
 
1478
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO)
1484
1479
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1485
 
     $ ,KIND=16),GC_5,MP__GC_5,GC_5,MP__GC_5,GC_47,MP__GC_47,GC_5
1486
 
     $ ,MP__GC_5,GC_5,MP__GC_5,4,1,1,291,AMPL(1,291),S(291))
 
1480
     $ ,KIND=16),GC_5,MP__GC_5,GC_11,MP__GC_11,GC_5,MP__GC_5,GC_5
 
1481
     $ ,MP__GC_5,3,1,1,291,AMPL(1,291),S(291))
1487
1482
C     Loop amplitude for loop diagram with ID 48
1488
 
      CALL ML5_0_LOOP_3_3(2,1,2,13,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1489
 
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16)
1490
 
     $ ,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),GC_5,MP__GC_5,GC_5
1491
 
     $ ,MP__GC_5,GC_5,MP__GC_5,3,1,1,292,AMPL(1,292),S(292))
 
1483
      CALL ML5_0_LOOP_3_3(13,1,5,22,DCMPLX(ZERO),CMPLX(MP__ZERO
 
1484
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),DCMPLX(ZERO)
 
1485
     $ ,CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_5,MP__GC_5,GC_5
 
1486
     $ ,MP__GC_5,2,1,1,292,AMPL(1,292),S(292))
1492
1487
C     Loop amplitude for loop diagram with ID 49
1493
 
      CALL ML5_0_LOOP_4_4(22,1,2,7,5,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1494
 
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),DCMPLX(ZERO)
1495
 
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1496
 
     $ ,KIND=16),GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5
1497
 
     $ ,MP__GC_5,3,1,1,293,AMPL(1,293),S(293))
 
1488
      CALL ML5_0_LOOP_4_4(14,1,5,3,12,DCMPLX(ZERO),CMPLX(MP__ZERO
 
1489
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16)
 
1490
     $ ,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO)
 
1491
     $ ,CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_5,MP__GC_5,GC_11
 
1492
     $ ,MP__GC_11,GC_5,MP__GC_5,3,1,1,293,AMPL(1,293),S(293))
1498
1493
C     Loop amplitude for loop diagram with ID 50
1499
 
      CALL ML5_0_LOOP_3_3(2,1,2,14,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1500
 
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16)
1501
 
     $ ,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),GC_5,MP__GC_5,GC_5
1502
 
     $ ,MP__GC_5,GC_5,MP__GC_5,3,1,1,294,AMPL(1,294),S(294))
 
1494
      CALL ML5_0_LOOP_3_3(15,1,12,8,DCMPLX(ZERO),CMPLX(MP__ZERO
 
1495
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO)
 
1496
     $ ,CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_5,MP__GC_5,GC_5
 
1497
     $ ,MP__GC_5,2,1,1,294,AMPL(1,294),S(294))
1503
1498
C     Loop amplitude for loop diagram with ID 51
1504
 
      CALL ML5_0_LOOP_3_3(3,1,2,13,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1505
 
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16)
1506
 
     $ ,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),GC_5,MP__GC_5,GC_5
1507
 
     $ ,MP__GC_5,GC_5,MP__GC_5,3,1,1,295,AMPL(1,295),S(295))
 
1499
      CALL ML5_0_LOOP_3_3(15,1,4,18,DCMPLX(ZERO),CMPLX(MP__ZERO
 
1500
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO)
 
1501
     $ ,CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_5,MP__GC_5,GC_5
 
1502
     $ ,MP__GC_5,2,1,1,295,AMPL(1,295),S(295))
1508
1503
C     Loop amplitude for loop diagram with ID 52
1509
 
      CALL ML5_0_LOOP_4_4(23,1,2,5,7,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1510
 
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),DCMPLX(ZERO)
1511
 
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1512
 
     $ ,KIND=16),GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5
1513
 
     $ ,MP__GC_5,3,1,1,296,AMPL(1,296),S(296))
 
1504
      CALL ML5_0_LOOP_4_4(20,1,4,3,10,DCMPLX(ZERO),CMPLX(MP__ZERO
 
1505
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16)
 
1506
     $ ,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),DCMPLX(ZERO)
 
1507
     $ ,CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_5,MP__GC_5,GC_11
 
1508
     $ ,MP__GC_11,GC_5,MP__GC_5,3,1,1,296,AMPL(1,296),S(296))
1514
1509
C     Loop amplitude for loop diagram with ID 53
1515
 
      CALL ML5_0_LOOP_3_3(13,1,5,21,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1516
 
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB)
1517
 
     $ ,CMPLX(MP__MDL_MB,KIND=16),GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5
 
1510
      CALL ML5_0_LOOP_3_3(15,1,7,10,DCMPLX(ZERO),CMPLX(MP__ZERO
 
1511
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),DCMPLX(ZERO)
 
1512
     $ ,CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_5,MP__GC_5,GC_5
1518
1513
     $ ,MP__GC_5,2,1,1,297,AMPL(1,297),S(297))
1519
1514
C     Loop amplitude for loop diagram with ID 54
1520
 
      CALL ML5_0_LOOP_4_4(24,1,5,2,7,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1521
 
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(ZERO)
1522
 
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1523
 
     $ ,KIND=16),GC_5,MP__GC_5,GC_5,MP__GC_5,GC_4,MP__GC_4,GC_5
1524
 
     $ ,MP__GC_5,3,1,1,298,AMPL(1,298),S(298))
 
1515
      CALL ML5_0_LOOP_5_5(21,1,2,5,3,4,DCMPLX(ZERO),CMPLX(MP__ZERO
 
1516
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB)
 
1517
     $ ,CMPLX(MP__MDL_MB,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
 
1518
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4
 
1519
     $ ,GC_4,MP__GC_4,GC_5,MP__GC_5,GC_11,MP__GC_11,GC_5,MP__GC_5,4,1
 
1520
     $ ,1,298,AMPL(1,298),S(298))
1525
1521
C     Loop amplitude for loop diagram with ID 55
1526
 
      CALL ML5_0_LOOP_3_3(3,1,2,14,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1527
 
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16)
1528
 
     $ ,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),GC_5,MP__GC_5,GC_5
1529
 
     $ ,MP__GC_5,GC_5,MP__GC_5,3,1,1,299,AMPL(1,299),S(299))
 
1522
      CALL ML5_0_LOOP_5_5(22,1,2,4,3,5,DCMPLX(ZERO),CMPLX(MP__ZERO
 
1523
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MT)
 
1524
     $ ,CMPLX(MP__MDL_MT,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
 
1525
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4
 
1526
     $ ,GC_4,MP__GC_4,GC_5,MP__GC_5,GC_11,MP__GC_11,GC_5,MP__GC_5,4,1
 
1527
     $ ,1,299,AMPL(1,299),S(299))
1530
1528
C     Loop amplitude for loop diagram with ID 56
1531
 
      CALL ML5_0_LOOP_5_5(25,1,2,5,4,3,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1532
 
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),DCMPLX(ZERO)
1533
 
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1534
 
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),GC_5
1535
 
     $ ,MP__GC_5,GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5,MP__GC_5,GC_47
1536
 
     $ ,MP__GC_47,4,1,1,300,AMPL(1,300),S(300))
 
1529
      CALL ML5_0_LOOP_3_3(23,1,2,14,DCMPLX(ZERO),CMPLX(MP__ZERO
 
1530
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(ZERO)
 
1531
     $ ,CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_4,MP__GC_4,GC_4
 
1532
     $ ,MP__GC_4,3,1,1,300,AMPL(1,300),S(300))
1537
1533
C     Loop amplitude for loop diagram with ID 57
1538
 
      CALL ML5_0_LOOP_5_5(26,1,3,2,4,5,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1539
 
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16)
1540
 
     $ ,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO)
1541
 
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1542
 
     $ ,KIND=16),GC_5,MP__GC_5,GC_47,MP__GC_47,GC_5,MP__GC_5,GC_5
1543
 
     $ ,MP__GC_5,GC_5,MP__GC_5,4,1,1,301,AMPL(1,301),S(301))
 
1534
      CALL ML5_0_LOOP_4_4(24,1,2,5,7,DCMPLX(ZERO),CMPLX(MP__ZERO
 
1535
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB)
 
1536
     $ ,CMPLX(MP__MDL_MB,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
 
1537
     $ ,GC_4,MP__GC_4,GC_4,MP__GC_4,GC_5,MP__GC_5,GC_5,MP__GC_5,3,1,1
 
1538
     $ ,301,AMPL(1,301),S(301))
1544
1539
C     Loop amplitude for loop diagram with ID 58
1545
 
      CALL ML5_0_LOOP_5_5(27,1,3,4,2,5,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1546
 
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO)
1547
 
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
1548
 
     $ ,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),GC_5,MP__GC_5,GC_47
1549
 
     $ ,MP__GC_47,GC_5,MP__GC_5,GC_4,MP__GC_4,GC_5,MP__GC_5,4,1,1,302
1550
 
     $ ,AMPL(1,302),S(302))
 
1540
      CALL ML5_0_LOOP_4_4(25,1,2,7,5,DCMPLX(ZERO),CMPLX(MP__ZERO
 
1541
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB)
 
1542
     $ ,CMPLX(MP__MDL_MB,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
 
1543
     $ ,GC_4,MP__GC_4,GC_4,MP__GC_4,GC_5,MP__GC_5,GC_5,MP__GC_5,3,1,1
 
1544
     $ ,302,AMPL(1,302),S(302))
1551
1545
C     Loop amplitude for loop diagram with ID 59
1552
 
      CALL ML5_0_LOOP_3_3(10,3,5,22,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1553
 
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MT)
1554
 
     $ ,CMPLX(MP__MDL_MT,KIND=16),GC_47,MP__GC_47,GC_5,MP__GC_5,GC_5
1555
 
     $ ,MP__GC_5,2,1,1,303,AMPL(1,303),S(303))
 
1546
      CALL ML5_0_LOOP_3_3(23,1,2,16,DCMPLX(ZERO),CMPLX(MP__ZERO
 
1547
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(ZERO)
 
1548
     $ ,CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_4,MP__GC_4,GC_4
 
1549
     $ ,MP__GC_4,3,1,1,303,AMPL(1,303),S(303))
1556
1550
C     Loop amplitude for loop diagram with ID 60
1557
 
      CALL ML5_0_LOOP_4_4(16,1,3,5,12,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1558
 
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),DCMPLX(ZERO)
1559
 
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1560
 
     $ ,KIND=16),GC_5,MP__GC_5,GC_47,MP__GC_47,GC_5,MP__GC_5,GC_5
1561
 
     $ ,MP__GC_5,3,1,1,304,AMPL(1,304),S(304))
 
1551
      CALL ML5_0_LOOP_4_4(25,1,2,4,8,DCMPLX(ZERO),CMPLX(MP__ZERO
 
1552
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MT)
 
1553
     $ ,CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
 
1554
     $ ,GC_4,MP__GC_4,GC_4,MP__GC_4,GC_5,MP__GC_5,GC_5,MP__GC_5,3,1,1
 
1555
     $ ,304,AMPL(1,304),S(304))
1562
1556
C     Loop amplitude for loop diagram with ID 61
1563
 
      CALL ML5_0_LOOP_4_4(15,1,5,3,12,DCMPLX(ZERO),CMPLX(MP__ZERO
1564
 
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16)
1565
 
     $ ,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO)
1566
 
     $ ,CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_5,MP__GC_5,GC_47
1567
 
     $ ,MP__GC_47,GC_5,MP__GC_5,3,1,1,305,AMPL(1,305),S(305))
 
1557
      CALL ML5_0_LOOP_4_4(24,1,2,8,4,DCMPLX(ZERO),CMPLX(MP__ZERO
 
1558
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MT)
 
1559
     $ ,CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
 
1560
     $ ,GC_4,MP__GC_4,GC_4,MP__GC_4,GC_5,MP__GC_5,GC_5,MP__GC_5,3,1,1
 
1561
     $ ,305,AMPL(1,305),S(305))
1568
1562
C     Loop amplitude for loop diagram with ID 62
1569
 
      CALL ML5_0_LOOP_3_3(17,1,5,19,DCMPLX(ZERO),CMPLX(MP__ZERO
 
1563
      CALL ML5_0_LOOP_3_3(13,1,5,24,DCMPLX(ZERO),CMPLX(MP__ZERO
1570
1564
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),DCMPLX(ZERO)
1571
1565
     $ ,CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_5,MP__GC_5,GC_5
1572
1566
     $ ,MP__GC_5,2,1,1,306,AMPL(1,306),S(306))
1573
1567
C     Loop amplitude for loop diagram with ID 63
1574
 
      CALL ML5_0_LOOP_2_2(4,7,23,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
1575
 
     $ ,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),GC_5,MP__GC_5,GC_5
1576
 
     $ ,MP__GC_5,1,1,1,307,AMPL(1,307),S(307))
 
1568
      CALL ML5_0_LOOP_4_4(26,1,5,2,7,DCMPLX(ZERO),CMPLX(MP__ZERO
 
1569
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16)
 
1570
     $ ,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),DCMPLX(ZERO)
 
1571
     $ ,CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_5,MP__GC_5,GC_5
 
1572
     $ ,MP__GC_5,GC_5,MP__GC_5,3,1,1,307,AMPL(1,307),S(307))
1577
1573
C     Loop amplitude for loop diagram with ID 64
1578
 
      CALL ML5_0_LOOP_2_2(12,10,24,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
1579
 
     $ ,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),GC_5,MP__GC_5,GC_5
1580
 
     $ ,MP__GC_5,1,1,1,308,AMPL(1,308),S(308))
 
1574
      CALL ML5_0_LOOP_2_3_2(27,1,2,1,14,2,DCMPLX(ZERO),CMPLX(MP__ZERO
 
1575
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4
 
1576
     $ ,GC_6,MP__GC_6,1,2,1,308,AMPL(1,308),S(308))
 
1577
      CALL ML5_0_LOOP_2_3_2(28,1,2,1,14,2,DCMPLX(ZERO),CMPLX(MP__ZERO
 
1578
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4
 
1579
     $ ,GC_6,MP__GC_6,1,2,1,309,AMPL(1,309),S(309))
 
1580
      CALL ML5_0_LOOP_2_3_2(29,1,2,1,14,2,DCMPLX(ZERO),CMPLX(MP__ZERO
 
1581
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4
 
1582
     $ ,GC_6,MP__GC_6,1,2,1,310,AMPL(1,310),S(310))
1581
1583
C     Loop amplitude for loop diagram with ID 65
1582
 
      CALL ML5_0_LOOP_3_3(19,1,7,10,DCMPLX(ZERO),CMPLX(MP__ZERO
1583
 
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),DCMPLX(ZERO)
 
1584
      CALL ML5_0_LOOP_3_3(15,1,4,20,DCMPLX(ZERO),CMPLX(MP__ZERO
 
1585
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO)
1584
1586
     $ ,CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_5,MP__GC_5,GC_5
1585
 
     $ ,MP__GC_5,2,1,1,309,AMPL(1,309),S(309))
 
1587
     $ ,MP__GC_5,2,1,1,311,AMPL(1,311),S(311))
1586
1588
C     Loop amplitude for loop diagram with ID 66
1587
 
      CALL ML5_0_LOOP_3_3(7,3,4,23,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1588
 
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB)
1589
 
     $ ,CMPLX(MP__MDL_MB,KIND=16),GC_47,MP__GC_47,GC_5,MP__GC_5,GC_5
1590
 
     $ ,MP__GC_5,2,1,1,310,AMPL(1,310),S(310))
 
1589
      CALL ML5_0_LOOP_4_4(30,1,4,2,8,DCMPLX(ZERO),CMPLX(MP__ZERO
 
1590
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16)
 
1591
     $ ,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO)
 
1592
     $ ,CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_5,MP__GC_5,GC_5
 
1593
     $ ,MP__GC_5,GC_5,MP__GC_5,3,1,1,312,AMPL(1,312),S(312))
1591
1594
C     Loop amplitude for loop diagram with ID 67
1592
 
      CALL ML5_0_LOOP_4_4(16,1,3,10,4,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1593
 
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),DCMPLX(ZERO)
1594
 
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1595
 
     $ ,KIND=16),GC_5,MP__GC_5,GC_47,MP__GC_47,GC_5,MP__GC_5,GC_5
1596
 
     $ ,MP__GC_5,3,1,1,311,AMPL(1,311),S(311))
 
1595
      CALL ML5_0_LOOP_2_3_2(27,1,2,1,16,2,DCMPLX(ZERO),CMPLX(MP__ZERO
 
1596
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4
 
1597
     $ ,GC_6,MP__GC_6,1,2,1,313,AMPL(1,313),S(313))
 
1598
      CALL ML5_0_LOOP_2_3_2(28,1,2,1,16,2,DCMPLX(ZERO),CMPLX(MP__ZERO
 
1599
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4
 
1600
     $ ,GC_6,MP__GC_6,1,2,1,314,AMPL(1,314),S(314))
 
1601
      CALL ML5_0_LOOP_2_3_2(29,1,2,1,16,2,DCMPLX(ZERO),CMPLX(MP__ZERO
 
1602
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4
 
1603
     $ ,GC_6,MP__GC_6,1,2,1,315,AMPL(1,315),S(315))
1597
1604
C     Loop amplitude for loop diagram with ID 68
1598
 
      CALL ML5_0_LOOP_4_4(20,1,4,3,10,DCMPLX(ZERO),CMPLX(MP__ZERO
 
1605
      CALL ML5_0_LOOP_5_5(31,1,4,2,3,5,DCMPLX(ZERO),CMPLX(MP__ZERO
1599
1606
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16)
1600
 
     $ ,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),DCMPLX(ZERO)
1601
 
     $ ,CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_5,MP__GC_5,GC_47
1602
 
     $ ,MP__GC_47,GC_5,MP__GC_5,3,1,1,312,AMPL(1,312),S(312))
 
1607
     $ ,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),DCMPLX(MDL_MB)
 
1608
     $ ,CMPLX(MP__MDL_MB,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
 
1609
     $ ,GC_4,MP__GC_4,GC_5,MP__GC_5,GC_5,MP__GC_5,GC_11,MP__GC_11,GC_5
 
1610
     $ ,MP__GC_5,4,1,1,316,AMPL(1,316),S(316))
1603
1611
C     Loop amplitude for loop diagram with ID 69
1604
 
      CALL ML5_0_LOOP_3_3(13,2,5,24,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1605
 
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB)
1606
 
     $ ,CMPLX(MP__MDL_MB,KIND=16),GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5
1607
 
     $ ,MP__GC_5,2,1,1,313,AMPL(1,313),S(313))
 
1612
      CALL ML5_0_LOOP_5_5(32,1,4,3,2,5,DCMPLX(ZERO),CMPLX(MP__ZERO
 
1613
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16)
 
1614
     $ ,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),DCMPLX(MDL_MB)
 
1615
     $ ,CMPLX(MP__MDL_MB,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
 
1616
     $ ,GC_4,MP__GC_4,GC_5,MP__GC_5,GC_11,MP__GC_11,GC_5,MP__GC_5,GC_5
 
1617
     $ ,MP__GC_5,4,1,1,317,AMPL(1,317),S(317))
1608
1618
C     Loop amplitude for loop diagram with ID 70
1609
 
      CALL ML5_0_LOOP_4_4(28,1,5,2,7,DCMPLX(ZERO),CMPLX(MP__ZERO
1610
 
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16)
1611
 
     $ ,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),DCMPLX(ZERO)
1612
 
     $ ,CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_5,MP__GC_5,GC_5
1613
 
     $ ,MP__GC_5,GC_5,MP__GC_5,3,1,1,314,AMPL(1,314),S(314))
 
1619
      CALL ML5_0_LOOP_2_2(5,8,25,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
 
1620
     $ ,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),GC_5,MP__GC_5,GC_5
 
1621
     $ ,MP__GC_5,1,1,1,318,AMPL(1,318),S(318))
1614
1622
C     Loop amplitude for loop diagram with ID 71
1615
 
      CALL ML5_0_LOOP_5_5(29,1,3,2,5,4,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1616
 
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16)
1617
 
     $ ,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),DCMPLX(ZERO)
1618
 
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1619
 
     $ ,KIND=16),GC_5,MP__GC_5,GC_47,MP__GC_47,GC_5,MP__GC_5,GC_5
1620
 
     $ ,MP__GC_5,GC_5,MP__GC_5,4,1,1,315,AMPL(1,315),S(315))
 
1623
      CALL ML5_0_LOOP_2_2(1,12,26,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
 
1624
     $ ,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),GC_5,MP__GC_5,GC_5
 
1625
     $ ,MP__GC_5,1,1,1,319,AMPL(1,319),S(319))
1621
1626
C     Loop amplitude for loop diagram with ID 72
1622
 
      CALL ML5_0_LOOP_5_5(30,1,4,3,2,5,DCMPLX(ZERO),CMPLX(MP__ZERO
1623
 
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16)
1624
 
     $ ,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),DCMPLX(MDL_MB)
1625
 
     $ ,CMPLX(MP__MDL_MB,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
1626
 
     $ ,GC_4,MP__GC_4,GC_5,MP__GC_5,GC_47,MP__GC_47,GC_5,MP__GC_5,GC_5
1627
 
     $ ,MP__GC_5,4,1,1,316,AMPL(1,316),S(316))
 
1627
      CALL ML5_0_LOOP_3_3(16,1,12,8,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
 
1628
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MT)
 
1629
     $ ,CMPLX(MP__MDL_MT,KIND=16),GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5
 
1630
     $ ,MP__GC_5,2,1,1,320,AMPL(1,320),S(320))
1628
1631
C     Loop amplitude for loop diagram with ID 73
1629
 
      CALL ML5_0_LOOP_3_3(17,2,5,24,DCMPLX(ZERO),CMPLX(MP__ZERO
1630
 
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),DCMPLX(ZERO)
1631
 
     $ ,CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_5,MP__GC_5,GC_5
1632
 
     $ ,MP__GC_5,2,1,1,317,AMPL(1,317),S(317))
 
1632
      CALL ML5_0_LOOP_3_3(12,3,5,25,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
 
1633
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MT)
 
1634
     $ ,CMPLX(MP__MDL_MT,KIND=16),GC_11,MP__GC_11,GC_5,MP__GC_5,GC_5
 
1635
     $ ,MP__GC_5,2,1,1,321,AMPL(1,321),S(321))
1633
1636
C     Loop amplitude for loop diagram with ID 74
1634
 
      CALL ML5_0_LOOP_3_3(17,1,5,21,DCMPLX(ZERO),CMPLX(MP__ZERO
1635
 
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),DCMPLX(ZERO)
1636
 
     $ ,CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_5,MP__GC_5,GC_5
1637
 
     $ ,MP__GC_5,2,1,1,318,AMPL(1,318),S(318))
 
1637
      CALL ML5_0_LOOP_3_3(17,1,5,22,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
 
1638
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB)
 
1639
     $ ,CMPLX(MP__MDL_MB,KIND=16),GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5
 
1640
     $ ,MP__GC_5,2,1,1,322,AMPL(1,322),S(322))
1638
1641
C     Loop amplitude for loop diagram with ID 75
1639
 
      CALL ML5_0_LOOP_4_4(31,1,2,7,5,DCMPLX(ZERO),CMPLX(MP__ZERO
1640
 
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB)
1641
 
     $ ,CMPLX(MP__MDL_MB,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
1642
 
     $ ,GC_4,MP__GC_4,GC_4,MP__GC_4,GC_5,MP__GC_5,GC_5,MP__GC_5,3,1,1
1643
 
     $ ,319,AMPL(1,319),S(319))
 
1642
      CALL ML5_0_LOOP_4_4(18,1,3,12,5,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
 
1643
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO)
 
1644
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
 
1645
     $ ,KIND=16),GC_5,MP__GC_5,GC_11,MP__GC_11,GC_5,MP__GC_5,GC_5
 
1646
     $ ,MP__GC_5,3,1,1,323,AMPL(1,323),S(323))
1644
1647
C     Loop amplitude for loop diagram with ID 76
1645
 
      CALL ML5_0_LOOP_4_4(32,1,2,5,7,DCMPLX(ZERO),CMPLX(MP__ZERO
1646
 
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB)
1647
 
     $ ,CMPLX(MP__MDL_MB,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
1648
 
     $ ,GC_4,MP__GC_4,GC_4,MP__GC_4,GC_5,MP__GC_5,GC_5,MP__GC_5,3,1,1
1649
 
     $ ,320,AMPL(1,320),S(320))
 
1648
      CALL ML5_0_LOOP_4_4(19,1,3,5,12,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
 
1649
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),DCMPLX(ZERO)
 
1650
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
 
1651
     $ ,KIND=16),GC_5,MP__GC_5,GC_11,MP__GC_11,GC_5,MP__GC_5,GC_5
 
1652
     $ ,MP__GC_5,3,1,1,324,AMPL(1,324),S(324))
1650
1653
C     Loop amplitude for loop diagram with ID 77
1651
 
      CALL ML5_0_LOOP_3_4_3(33,1,2,1,5,1,2,7,DCMPLX(ZERO)
1652
 
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
1653
 
     $ ,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),GC_5,MP__GC_5,GC_6
1654
 
     $ ,MP__GC_6,GC_5,MP__GC_5,1,1,1,321,AMPL(1,321),S(321))
1655
 
      CALL ML5_0_LOOP_3_4_3(34,1,2,1,5,1,2,7,DCMPLX(ZERO)
1656
 
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
1657
 
     $ ,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),GC_5,MP__GC_5,GC_6
1658
 
     $ ,MP__GC_6,GC_5,MP__GC_5,1,1,1,322,AMPL(1,322),S(322))
1659
 
      CALL ML5_0_LOOP_3_4_3(35,1,2,1,5,1,2,7,DCMPLX(ZERO)
1660
 
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
1661
 
     $ ,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),GC_5,MP__GC_5,GC_6
1662
 
     $ ,MP__GC_6,GC_5,MP__GC_5,1,1,1,323,AMPL(1,323),S(323))
 
1654
      CALL ML5_0_LOOP_2_2(1,7,27,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
 
1655
     $ ,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),GC_5,MP__GC_5,GC_5
 
1656
     $ ,MP__GC_5,1,1,1,325,AMPL(1,325),S(325))
1663
1657
C     Loop amplitude for loop diagram with ID 78
1664
 
      CALL ML5_0_LOOP_5_5(36,1,3,5,2,4,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1665
 
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),DCMPLX(ZERO)
1666
 
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
1667
 
     $ ,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),GC_5,MP__GC_5,GC_47
1668
 
     $ ,MP__GC_47,GC_5,MP__GC_5,GC_4,MP__GC_4,GC_5,MP__GC_5,4,1,1,324
1669
 
     $ ,AMPL(1,324),S(324))
 
1658
      CALL ML5_0_LOOP_2_2(5,10,28,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
 
1659
     $ ,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),GC_5,MP__GC_5,GC_5
 
1660
     $ ,MP__GC_5,1,1,1,326,AMPL(1,326),S(326))
1670
1661
C     Loop amplitude for loop diagram with ID 79
1671
 
      CALL ML5_0_LOOP_5_5(37,1,2,4,5,3,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1672
 
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO)
1673
 
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1674
 
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),GC_5
1675
 
     $ ,MP__GC_5,GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5,MP__GC_5,GC_47
1676
 
     $ ,MP__GC_47,4,1,1,325,AMPL(1,325),S(325))
 
1662
      CALL ML5_0_LOOP_3_3(16,1,7,10,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
 
1663
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB)
 
1664
     $ ,CMPLX(MP__MDL_MB,KIND=16),GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5
 
1665
     $ ,MP__GC_5,2,1,1,327,AMPL(1,327),S(327))
1677
1666
C     Loop amplitude for loop diagram with ID 80
1678
 
      CALL ML5_0_LOOP_5_5(38,1,4,2,3,5,DCMPLX(ZERO),CMPLX(MP__ZERO
1679
 
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16)
1680
 
     $ ,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),DCMPLX(MDL_MB)
1681
 
     $ ,CMPLX(MP__MDL_MB,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
1682
 
     $ ,GC_4,MP__GC_4,GC_5,MP__GC_5,GC_5,MP__GC_5,GC_47,MP__GC_47,GC_5
1683
 
     $ ,MP__GC_5,4,1,1,326,AMPL(1,326),S(326))
 
1667
      CALL ML5_0_LOOP_3_3(8,3,4,27,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
 
1668
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB)
 
1669
     $ ,CMPLX(MP__MDL_MB,KIND=16),GC_11,MP__GC_11,GC_5,MP__GC_5,GC_5
 
1670
     $ ,MP__GC_5,2,1,1,328,AMPL(1,328),S(328))
1684
1671
C     Loop amplitude for loop diagram with ID 81
1685
 
      CALL ML5_0_LOOP_5_5(39,1,2,4,3,5,DCMPLX(ZERO),CMPLX(MP__ZERO
 
1672
      CALL ML5_0_LOOP_3_3(16,1,4,18,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1686
1673
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MT)
1687
 
     $ ,CMPLX(MP__MDL_MT,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
1688
 
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4
1689
 
     $ ,GC_4,MP__GC_4,GC_5,MP__GC_5,GC_47,MP__GC_47,GC_5,MP__GC_5,4,1
1690
 
     $ ,1,327,AMPL(1,327),S(327))
 
1674
     $ ,CMPLX(MP__MDL_MT,KIND=16),GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5
 
1675
     $ ,MP__GC_5,2,1,1,329,AMPL(1,329),S(329))
1691
1676
C     Loop amplitude for loop diagram with ID 82
1692
 
      CALL ML5_0_LOOP_5_5(40,1,2,3,5,4,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1693
 
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16)
1694
 
     $ ,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),DCMPLX(ZERO)
 
1677
      CALL ML5_0_LOOP_4_4(19,1,3,10,4,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
 
1678
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),DCMPLX(ZERO)
1695
1679
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1696
 
     $ ,KIND=16),GC_5,MP__GC_5,GC_5,MP__GC_5,GC_47,MP__GC_47,GC_5
1697
 
     $ ,MP__GC_5,GC_5,MP__GC_5,4,1,1,328,AMPL(1,328),S(328))
 
1680
     $ ,KIND=16),GC_5,MP__GC_5,GC_11,MP__GC_11,GC_5,MP__GC_5,GC_5
 
1681
     $ ,MP__GC_5,3,1,1,330,AMPL(1,330),S(330))
1698
1682
C     Loop amplitude for loop diagram with ID 83
1699
 
      CALL ML5_0_LOOP_5_5(41,1,2,5,3,4,DCMPLX(ZERO),CMPLX(MP__ZERO
1700
 
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB)
1701
 
     $ ,CMPLX(MP__MDL_MB,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1702
 
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4
1703
 
     $ ,GC_4,MP__GC_4,GC_5,MP__GC_5,GC_47,MP__GC_47,GC_5,MP__GC_5,4,1
1704
 
     $ ,1,329,AMPL(1,329),S(329))
 
1683
      CALL ML5_0_LOOP_4_4(18,1,3,4,10,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
 
1684
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO)
 
1685
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
 
1686
     $ ,KIND=16),GC_5,MP__GC_5,GC_11,MP__GC_11,GC_5,MP__GC_5,GC_5
 
1687
     $ ,MP__GC_5,3,1,1,331,AMPL(1,331),S(331))
1705
1688
C     Loop amplitude for loop diagram with ID 84
1706
 
      CALL ML5_0_LOOP_4_5_4(42,1,1,2,1,3,4,1,2,5,DCMPLX(MDL_MT)
1707
 
     $ ,CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
1708
 
     $ ,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB)
1709
 
     $ ,CMPLX(MP__MDL_MB,KIND=16),GC_47,MP__GC_47,GC_5,MP__GC_5,GC_6
1710
 
     $ ,MP__GC_6,GC_5,MP__GC_5,2,1,1,330,AMPL(1,330),S(330))
1711
 
      CALL ML5_0_LOOP_4_5_4(43,1,1,2,1,3,4,1,2,5,DCMPLX(MDL_MT)
1712
 
     $ ,CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
1713
 
     $ ,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB)
1714
 
     $ ,CMPLX(MP__MDL_MB,KIND=16),GC_47,MP__GC_47,GC_5,MP__GC_5,GC_6
1715
 
     $ ,MP__GC_6,GC_5,MP__GC_5,2,1,1,331,AMPL(1,331),S(331))
1716
 
      CALL ML5_0_LOOP_4_5_4(44,1,1,2,1,3,4,1,2,5,DCMPLX(MDL_MT)
1717
 
     $ ,CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
1718
 
     $ ,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB)
1719
 
     $ ,CMPLX(MP__MDL_MB,KIND=16),GC_47,MP__GC_47,GC_5,MP__GC_5,GC_6
1720
 
     $ ,MP__GC_6,GC_5,MP__GC_5,2,1,1,332,AMPL(1,332),S(332))
 
1689
      CALL ML5_0_LOOP_3_3(13,2,5,28,DCMPLX(ZERO),CMPLX(MP__ZERO
 
1690
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),DCMPLX(ZERO)
 
1691
     $ ,CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_5,MP__GC_5,GC_5
 
1692
     $ ,MP__GC_5,2,1,1,332,AMPL(1,332),S(332))
1721
1693
C     Loop amplitude for loop diagram with ID 85
1722
 
      CALL ML5_0_LOOP_2_2(1,6,13,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1723
 
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),GC_5
1724
 
     $ ,MP__GC_5,GC_5,MP__GC_5,2,1,1,333,AMPL(1,333),S(333))
 
1694
      CALL ML5_0_LOOP_4_4(33,1,5,2,7,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
 
1695
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(ZERO)
 
1696
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
 
1697
     $ ,KIND=16),GC_5,MP__GC_5,GC_5,MP__GC_5,GC_4,MP__GC_4,GC_5
 
1698
     $ ,MP__GC_5,3,1,1,333,AMPL(1,333),S(333))
1725
1699
C     Loop amplitude for loop diagram with ID 86
1726
 
      CALL ML5_0_LOOP_2_2(12,8,16,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
1727
 
     $ ,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),GC_5,MP__GC_5,GC_5
1728
 
     $ ,MP__GC_5,1,1,1,334,AMPL(1,334),S(334))
 
1700
      CALL ML5_0_LOOP_2_3_2(27,1,2,2,14,1,DCMPLX(ZERO),CMPLX(MP__ZERO
 
1701
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4
 
1702
     $ ,GC_6,MP__GC_6,1,2,1,334,AMPL(1,334),S(334))
 
1703
      CALL ML5_0_LOOP_2_3_2(28,1,2,2,14,1,DCMPLX(ZERO),CMPLX(MP__ZERO
 
1704
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4
 
1705
     $ ,GC_6,MP__GC_6,1,2,1,335,AMPL(1,335),S(335))
 
1706
      CALL ML5_0_LOOP_2_3_2(29,1,2,2,14,1,DCMPLX(ZERO),CMPLX(MP__ZERO
 
1707
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4
 
1708
     $ ,GC_6,MP__GC_6,1,2,1,336,AMPL(1,336),S(336))
1729
1709
C     Loop amplitude for loop diagram with ID 87
1730
 
      CALL ML5_0_LOOP_2_2(1,6,14,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1731
 
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),GC_5
1732
 
     $ ,MP__GC_5,GC_5,MP__GC_5,2,1,1,335,AMPL(1,335),S(335))
 
1710
      CALL ML5_0_LOOP_3_3(15,2,4,26,DCMPLX(ZERO),CMPLX(MP__ZERO
 
1711
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO)
 
1712
     $ ,CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_5,MP__GC_5,GC_5
 
1713
     $ ,MP__GC_5,2,1,1,337,AMPL(1,337),S(337))
1733
1714
C     Loop amplitude for loop diagram with ID 88
1734
 
      CALL ML5_0_LOOP_3_3(45,4,6,8,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1735
 
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO)
1736
 
     $ ,CMPLX(MP__ZERO,KIND=16),GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5
1737
 
     $ ,MP__GC_5,2,1,1,336,AMPL(1,336),S(336))
 
1715
      CALL ML5_0_LOOP_4_4(34,1,4,2,8,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
 
1716
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(ZERO)
 
1717
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
 
1718
     $ ,KIND=16),GC_5,MP__GC_5,GC_5,MP__GC_5,GC_4,MP__GC_4,GC_5
 
1719
     $ ,MP__GC_5,3,1,1,338,AMPL(1,338),S(338))
1738
1720
C     Loop amplitude for loop diagram with ID 89
1739
 
      CALL ML5_0_LOOP_3_3(46,4,6,8,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
1740
 
     $ ,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MT)
1741
 
     $ ,CMPLX(MP__MDL_MT,KIND=16),GC_5,MP__GC_5,GC_4,MP__GC_4,GC_5
1742
 
     $ ,MP__GC_5,2,1,1,337,AMPL(1,337),S(337))
 
1721
      CALL ML5_0_LOOP_2_3_2(27,1,2,2,16,1,DCMPLX(ZERO),CMPLX(MP__ZERO
 
1722
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4
 
1723
     $ ,GC_6,MP__GC_6,1,2,1,339,AMPL(1,339),S(339))
 
1724
      CALL ML5_0_LOOP_2_3_2(28,1,2,2,16,1,DCMPLX(ZERO),CMPLX(MP__ZERO
 
1725
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4
 
1726
     $ ,GC_6,MP__GC_6,1,2,1,340,AMPL(1,340),S(340))
 
1727
      CALL ML5_0_LOOP_2_3_2(29,1,2,2,16,1,DCMPLX(ZERO),CMPLX(MP__ZERO
 
1728
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4
 
1729
     $ ,GC_6,MP__GC_6,1,2,1,341,AMPL(1,341),S(341))
1743
1730
C     Loop amplitude for loop diagram with ID 90
1744
 
      CALL ML5_0_LOOP_2_2(4,9,25,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
1745
 
     $ ,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),GC_5,MP__GC_5,GC_5
1746
 
     $ ,MP__GC_5,1,1,1,338,AMPL(1,338),S(338))
 
1731
      CALL ML5_0_LOOP_5_5(35,1,3,5,2,4,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
 
1732
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),DCMPLX(ZERO)
 
1733
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
 
1734
     $ ,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),GC_5,MP__GC_5,GC_11
 
1735
     $ ,MP__GC_11,GC_5,MP__GC_5,GC_4,MP__GC_4,GC_5,MP__GC_5,4,1,1,342
 
1736
     $ ,AMPL(1,342),S(342))
1747
1737
C     Loop amplitude for loop diagram with ID 91
1748
 
      CALL ML5_0_LOOP_3_3(18,2,9,8,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1749
 
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MT)
1750
 
     $ ,CMPLX(MP__MDL_MT,KIND=16),GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5
1751
 
     $ ,MP__GC_5,2,1,1,339,AMPL(1,339),S(339))
 
1738
      CALL ML5_0_LOOP_5_5(36,1,3,4,2,5,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
 
1739
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO)
 
1740
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
 
1741
     $ ,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),GC_5,MP__GC_5,GC_11
 
1742
     $ ,MP__GC_11,GC_5,MP__GC_5,GC_4,MP__GC_4,GC_5,MP__GC_5,4,1,1,343
 
1743
     $ ,AMPL(1,343),S(343))
1752
1744
C     Loop amplitude for loop diagram with ID 92
1753
 
      CALL ML5_0_LOOP_2_2(12,8,18,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
1754
 
     $ ,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),GC_5,MP__GC_5,GC_5
1755
 
     $ ,MP__GC_5,1,1,1,340,AMPL(1,340),S(340))
 
1745
      CALL ML5_0_LOOP_3_3(17,2,5,28,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
 
1746
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB)
 
1747
     $ ,CMPLX(MP__MDL_MB,KIND=16),GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5
 
1748
     $ ,MP__GC_5,2,1,1,344,AMPL(1,344),S(344))
1756
1749
C     Loop amplitude for loop diagram with ID 93
1757
 
      CALL ML5_0_LOOP_2_2(4,9,26,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
1758
 
     $ ,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),GC_5,MP__GC_5,GC_5
1759
 
     $ ,MP__GC_5,1,1,1,341,AMPL(1,341),S(341))
 
1750
      CALL ML5_0_LOOP_3_3(17,1,5,24,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
 
1751
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB)
 
1752
     $ ,CMPLX(MP__MDL_MB,KIND=16),GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5
 
1753
     $ ,MP__GC_5,2,1,1,345,AMPL(1,345),S(345))
1760
1754
C     Loop amplitude for loop diagram with ID 94
1761
 
      CALL ML5_0_LOOP_3_3(19,2,9,8,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
1762
 
     $ ,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO)
1763
 
     $ ,CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_5,MP__GC_5,GC_5
1764
 
     $ ,MP__GC_5,2,1,1,342,AMPL(1,342),S(342))
 
1755
      CALL ML5_0_LOOP_4_4(37,1,2,7,5,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
 
1756
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),DCMPLX(ZERO)
 
1757
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
 
1758
     $ ,KIND=16),GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5
 
1759
     $ ,MP__GC_5,3,1,1,346,AMPL(1,346),S(346))
1765
1760
C     Loop amplitude for loop diagram with ID 95
1766
 
      CALL ML5_0_LOOP_2_2(4,12,27,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
1767
 
     $ ,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),GC_5,MP__GC_5,GC_5
1768
 
     $ ,MP__GC_5,1,1,1,343,AMPL(1,343),S(343))
 
1761
      CALL ML5_0_LOOP_4_4(38,1,2,5,7,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
 
1762
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),DCMPLX(ZERO)
 
1763
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
 
1764
     $ ,KIND=16),GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5
 
1765
     $ ,MP__GC_5,3,1,1,347,AMPL(1,347),S(347))
1769
1766
C     Loop amplitude for loop diagram with ID 96
1770
 
      CALL ML5_0_LOOP_3_3(18,2,4,27,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
 
1767
      CALL ML5_0_LOOP_3_3(16,2,4,26,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1771
1768
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MT)
1772
1769
     $ ,CMPLX(MP__MDL_MT,KIND=16),GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5
1773
 
     $ ,MP__GC_5,2,1,1,344,AMPL(1,344),S(344))
 
1770
     $ ,MP__GC_5,2,1,1,348,AMPL(1,348),S(348))
1774
1771
C     Loop amplitude for loop diagram with ID 97
1775
 
      CALL ML5_0_LOOP_3_3(19,2,4,27,DCMPLX(ZERO),CMPLX(MP__ZERO
1776
 
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO)
1777
 
     $ ,CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_5,MP__GC_5,GC_5
1778
 
     $ ,MP__GC_5,2,1,1,345,AMPL(1,345),S(345))
 
1772
      CALL ML5_0_LOOP_3_3(16,1,4,20,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
 
1773
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MT)
 
1774
     $ ,CMPLX(MP__MDL_MT,KIND=16),GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5
 
1775
     $ ,MP__GC_5,2,1,1,349,AMPL(1,349),S(349))
1779
1776
C     Loop amplitude for loop diagram with ID 98
1780
 
      CALL ML5_0_LOOP_3_3(18,1,12,8,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1781
 
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MT)
1782
 
     $ ,CMPLX(MP__MDL_MT,KIND=16),GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5
1783
 
     $ ,MP__GC_5,2,1,1,346,AMPL(1,346),S(346))
 
1777
      CALL ML5_0_LOOP_4_4(38,1,2,8,4,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
 
1778
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO)
 
1779
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
 
1780
     $ ,KIND=16),GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5
 
1781
     $ ,MP__GC_5,3,1,1,350,AMPL(1,350),S(350))
1784
1782
C     Loop amplitude for loop diagram with ID 99
1785
 
      CALL ML5_0_LOOP_3_3(18,1,4,25,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1786
 
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MT)
1787
 
     $ ,CMPLX(MP__MDL_MT,KIND=16),GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5
1788
 
     $ ,MP__GC_5,2,1,1,347,AMPL(1,347),S(347))
 
1783
      CALL ML5_0_LOOP_4_4(37,1,2,4,8,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
 
1784
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO)
 
1785
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
 
1786
     $ ,KIND=16),GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5
 
1787
     $ ,MP__GC_5,3,1,1,351,AMPL(1,351),S(351))
1789
1788
C     Loop amplitude for loop diagram with ID 100
1790
 
      CALL ML5_0_LOOP_3_3(2,1,2,13,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1791
 
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16)
1792
 
     $ ,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),GC_5,MP__GC_5,GC_5
1793
 
     $ ,MP__GC_5,GC_5,MP__GC_5,3,1,1,348,AMPL(1,348),S(348))
 
1789
      CALL ML5_0_LOOP_5_5(39,1,3,2,5,4,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
 
1790
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16)
 
1791
     $ ,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),DCMPLX(ZERO)
 
1792
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
 
1793
     $ ,KIND=16),GC_5,MP__GC_5,GC_11,MP__GC_11,GC_5,MP__GC_5,GC_5
 
1794
     $ ,MP__GC_5,GC_5,MP__GC_5,4,1,1,352,AMPL(1,352),S(352))
1794
1795
C     Loop amplitude for loop diagram with ID 101
1795
 
      CALL ML5_0_LOOP_3_3(2,1,2,14,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
 
1796
      CALL ML5_0_LOOP_5_5(40,1,2,3,5,4,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1796
1797
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16)
1797
 
     $ ,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),GC_5,MP__GC_5,GC_5
1798
 
     $ ,MP__GC_5,GC_5,MP__GC_5,3,1,1,349,AMPL(1,349),S(349))
 
1798
     $ ,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),DCMPLX(ZERO)
 
1799
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
 
1800
     $ ,KIND=16),GC_5,MP__GC_5,GC_5,MP__GC_5,GC_11,MP__GC_11,GC_5
 
1801
     $ ,MP__GC_5,GC_5,MP__GC_5,4,1,1,353,AMPL(1,353),S(353))
1799
1802
C     Loop amplitude for loop diagram with ID 102
1800
 
      CALL ML5_0_LOOP_4_4(22,1,2,4,8,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1801
 
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO)
1802
 
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1803
 
     $ ,KIND=16),GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5
1804
 
     $ ,MP__GC_5,3,1,1,350,AMPL(1,350),S(350))
 
1803
      CALL ML5_0_LOOP_5_5(41,1,3,2,4,5,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
 
1804
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16)
 
1805
     $ ,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO)
 
1806
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
 
1807
     $ ,KIND=16),GC_5,MP__GC_5,GC_11,MP__GC_11,GC_5,MP__GC_5,GC_5
 
1808
     $ ,MP__GC_5,GC_5,MP__GC_5,4,1,1,354,AMPL(1,354),S(354))
1805
1809
C     Loop amplitude for loop diagram with ID 103
1806
 
      CALL ML5_0_LOOP_3_3(3,1,2,13,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1807
 
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16)
1808
 
     $ ,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),GC_5,MP__GC_5,GC_5
1809
 
     $ ,MP__GC_5,GC_5,MP__GC_5,3,1,1,351,AMPL(1,351),S(351))
 
1810
      CALL ML5_0_LOOP_5_5(42,1,2,3,4,5,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
 
1811
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16)
 
1812
     $ ,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO)
 
1813
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
 
1814
     $ ,KIND=16),GC_5,MP__GC_5,GC_5,MP__GC_5,GC_11,MP__GC_11,GC_5
 
1815
     $ ,MP__GC_5,GC_5,MP__GC_5,4,1,1,355,AMPL(1,355),S(355))
1810
1816
C     Loop amplitude for loop diagram with ID 104
1811
 
      CALL ML5_0_LOOP_3_3(3,1,2,14,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1812
 
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16)
1813
 
     $ ,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),GC_5,MP__GC_5,GC_5
1814
 
     $ ,MP__GC_5,GC_5,MP__GC_5,3,1,1,352,AMPL(1,352),S(352))
 
1817
      CALL ML5_0_LOOP_5_5(43,1,2,4,5,3,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
 
1818
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO)
 
1819
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
 
1820
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),GC_5
 
1821
     $ ,MP__GC_5,GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5,MP__GC_5,GC_11
 
1822
     $ ,MP__GC_11,4,1,1,356,AMPL(1,356),S(356))
1815
1823
C     Loop amplitude for loop diagram with ID 105
1816
 
      CALL ML5_0_LOOP_4_4(23,1,2,8,4,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1817
 
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO)
 
1824
      CALL ML5_0_LOOP_5_5(44,1,2,5,4,3,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
 
1825
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),DCMPLX(ZERO)
1818
1826
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1819
 
     $ ,KIND=16),GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5
1820
 
     $ ,MP__GC_5,3,1,1,353,AMPL(1,353),S(353))
 
1827
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),GC_5
 
1828
     $ ,MP__GC_5,GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5,MP__GC_5,GC_11
 
1829
     $ ,MP__GC_11,4,1,1,357,AMPL(1,357),S(357))
1821
1830
C     Loop amplitude for loop diagram with ID 106
1822
 
      CALL ML5_0_LOOP_4_4(47,1,4,2,8,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1823
 
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(ZERO)
1824
 
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1825
 
     $ ,KIND=16),GC_5,MP__GC_5,GC_5,MP__GC_5,GC_4,MP__GC_4,GC_5
1826
 
     $ ,MP__GC_5,3,1,1,354,AMPL(1,354),S(354))
 
1831
      CALL ML5_0_LOOP_3_4_3(45,1,2,1,5,2,1,7,DCMPLX(ZERO)
 
1832
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
 
1833
     $ ,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),GC_5,MP__GC_5,GC_6
 
1834
     $ ,MP__GC_6,GC_5,MP__GC_5,1,1,1,358,AMPL(1,358),S(358))
 
1835
      CALL ML5_0_LOOP_3_4_3(46,1,2,1,5,2,1,7,DCMPLX(ZERO)
 
1836
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
 
1837
     $ ,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),GC_5,MP__GC_5,GC_6
 
1838
     $ ,MP__GC_6,GC_5,MP__GC_5,1,1,1,359,AMPL(1,359),S(359))
 
1839
      CALL ML5_0_LOOP_3_4_3(47,1,2,1,5,2,1,7,DCMPLX(ZERO)
 
1840
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
 
1841
     $ ,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),GC_5,MP__GC_5,GC_6
 
1842
     $ ,MP__GC_6,GC_5,MP__GC_5,1,1,1,360,AMPL(1,360),S(360))
1827
1843
C     Loop amplitude for loop diagram with ID 107
1828
 
      CALL ML5_0_LOOP_3_3(18,1,4,26,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1829
 
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MT)
1830
 
     $ ,CMPLX(MP__MDL_MT,KIND=16),GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5
1831
 
     $ ,MP__GC_5,2,1,1,355,AMPL(1,355),S(355))
 
1844
      CALL ML5_0_LOOP_2_3_2(48,2,1,2,1,14,DCMPLX(ZERO),CMPLX(MP__ZERO
 
1845
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),GC_6,MP__GC_6
 
1846
     $ ,GC_4,MP__GC_4,1,2,1,361,AMPL(1,361),S(361))
 
1847
      CALL ML5_0_LOOP_2_3_2(49,2,1,2,1,14,DCMPLX(ZERO),CMPLX(MP__ZERO
 
1848
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),GC_6,MP__GC_6
 
1849
     $ ,GC_4,MP__GC_4,1,2,1,362,AMPL(1,362),S(362))
 
1850
      CALL ML5_0_LOOP_2_3_2(50,2,1,2,1,14,DCMPLX(ZERO),CMPLX(MP__ZERO
 
1851
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),GC_6,MP__GC_6
 
1852
     $ ,GC_4,MP__GC_4,1,2,1,363,AMPL(1,363),S(363))
1832
1853
C     Loop amplitude for loop diagram with ID 108
1833
 
      CALL ML5_0_LOOP_2_2(12,8,22,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
1834
 
     $ ,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),GC_5,MP__GC_5,GC_5
1835
 
     $ ,MP__GC_5,1,1,1,356,AMPL(1,356),S(356))
 
1854
      CALL ML5_0_LOOP_3_4_3(51,1,2,1,4,2,1,8,DCMPLX(ZERO)
 
1855
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
 
1856
     $ ,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),GC_5,MP__GC_5,GC_6
 
1857
     $ ,MP__GC_6,GC_5,MP__GC_5,1,1,1,364,AMPL(1,364),S(364))
 
1858
      CALL ML5_0_LOOP_3_4_3(52,1,2,1,4,2,1,8,DCMPLX(ZERO)
 
1859
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
 
1860
     $ ,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),GC_5,MP__GC_5,GC_6
 
1861
     $ ,MP__GC_6,GC_5,MP__GC_5,1,1,1,365,AMPL(1,365),S(365))
 
1862
      CALL ML5_0_LOOP_3_4_3(53,1,2,1,4,2,1,8,DCMPLX(ZERO)
 
1863
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
 
1864
     $ ,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),GC_5,MP__GC_5,GC_6
 
1865
     $ ,MP__GC_6,GC_5,MP__GC_5,1,1,1,366,AMPL(1,366),S(366))
1836
1866
C     Loop amplitude for loop diagram with ID 109
1837
 
      CALL ML5_0_LOOP_2_2(4,12,28,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
1838
 
     $ ,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),GC_5,MP__GC_5,GC_5
1839
 
     $ ,MP__GC_5,1,1,1,357,AMPL(1,357),S(357))
 
1867
      CALL ML5_0_LOOP_2_3_2(48,2,1,2,1,16,DCMPLX(ZERO),CMPLX(MP__ZERO
 
1868
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),GC_6,MP__GC_6
 
1869
     $ ,GC_4,MP__GC_4,1,2,1,367,AMPL(1,367),S(367))
 
1870
      CALL ML5_0_LOOP_2_3_2(49,2,1,2,1,16,DCMPLX(ZERO),CMPLX(MP__ZERO
 
1871
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),GC_6,MP__GC_6
 
1872
     $ ,GC_4,MP__GC_4,1,2,1,368,AMPL(1,368),S(368))
 
1873
      CALL ML5_0_LOOP_2_3_2(50,2,1,2,1,16,DCMPLX(ZERO),CMPLX(MP__ZERO
 
1874
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),GC_6,MP__GC_6
 
1875
     $ ,GC_4,MP__GC_4,1,2,1,369,AMPL(1,369),S(369))
1840
1876
C     Loop amplitude for loop diagram with ID 110
1841
 
      CALL ML5_0_LOOP_3_3(19,1,12,8,DCMPLX(ZERO),CMPLX(MP__ZERO
1842
 
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO)
1843
 
     $ ,CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_5,MP__GC_5,GC_5
1844
 
     $ ,MP__GC_5,2,1,1,358,AMPL(1,358),S(358))
 
1877
      CALL ML5_0_LOOP_4_5_4(54,1,1,2,1,3,4,2,1,5,DCMPLX(MDL_MT)
 
1878
     $ ,CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
 
1879
     $ ,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB)
 
1880
     $ ,CMPLX(MP__MDL_MB,KIND=16),GC_11,MP__GC_11,GC_5,MP__GC_5,GC_6
 
1881
     $ ,MP__GC_6,GC_5,MP__GC_5,2,1,1,370,AMPL(1,370),S(370))
 
1882
      CALL ML5_0_LOOP_4_5_4(55,1,1,2,1,3,4,2,1,5,DCMPLX(MDL_MT)
 
1883
     $ ,CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
 
1884
     $ ,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB)
 
1885
     $ ,CMPLX(MP__MDL_MB,KIND=16),GC_11,MP__GC_11,GC_5,MP__GC_5,GC_6
 
1886
     $ ,MP__GC_6,GC_5,MP__GC_5,2,1,1,371,AMPL(1,371),S(371))
 
1887
      CALL ML5_0_LOOP_4_5_4(56,1,1,2,1,3,4,2,1,5,DCMPLX(MDL_MT)
 
1888
     $ ,CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
 
1889
     $ ,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MB)
 
1890
     $ ,CMPLX(MP__MDL_MB,KIND=16),GC_11,MP__GC_11,GC_5,MP__GC_5,GC_6
 
1891
     $ ,MP__GC_6,GC_5,MP__GC_5,2,1,1,372,AMPL(1,372),S(372))
1845
1892
C     Loop amplitude for loop diagram with ID 111
1846
 
      CALL ML5_0_LOOP_3_3(19,1,4,25,DCMPLX(ZERO),CMPLX(MP__ZERO
1847
 
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO)
1848
 
     $ ,CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_5,MP__GC_5,GC_5
1849
 
     $ ,MP__GC_5,2,1,1,359,AMPL(1,359),S(359))
 
1893
      CALL ML5_0_LOOP_2_2(57,6,14,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
 
1894
     $ ,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_4
 
1895
     $ ,MP__GC_4,2,1,1,373,AMPL(1,373),S(373))
1850
1896
C     Loop amplitude for loop diagram with ID 112
1851
 
      CALL ML5_0_LOOP_3_3(18,2,4,28,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
1852
 
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MT)
1853
 
     $ ,CMPLX(MP__MDL_MT,KIND=16),GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5
1854
 
     $ ,MP__GC_5,2,1,1,360,AMPL(1,360),S(360))
 
1897
      CALL ML5_0_LOOP_2_2(57,6,16,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
 
1898
     $ ,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_4
 
1899
     $ ,MP__GC_4,2,1,1,374,AMPL(1,374),S(374))
1855
1900
C     Loop amplitude for loop diagram with ID 113
1856
 
      CALL ML5_0_LOOP_4_4(48,1,4,2,8,DCMPLX(ZERO),CMPLX(MP__ZERO
1857
 
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16)
1858
 
     $ ,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO)
1859
 
     $ ,CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_5,MP__GC_5,GC_5
1860
 
     $ ,MP__GC_5,GC_5,MP__GC_5,3,1,1,361,AMPL(1,361),S(361))
 
1901
      CALL ML5_0_LOOP_3_3(58,1,2,14,DCMPLX(ZERO),CMPLX(MP__ZERO
 
1902
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(ZERO)
 
1903
     $ ,CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_4,MP__GC_4,GC_4
 
1904
     $ ,MP__GC_4,3,1,1,375,AMPL(1,375),S(375))
1861
1905
C     Loop amplitude for loop diagram with ID 114
1862
 
      CALL ML5_0_LOOP_3_3(19,2,4,28,DCMPLX(ZERO),CMPLX(MP__ZERO
1863
 
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO)
1864
 
     $ ,CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_5,MP__GC_5,GC_5
1865
 
     $ ,MP__GC_5,2,1,1,362,AMPL(1,362),S(362))
 
1906
      CALL ML5_0_LOOP_3_3(58,1,2,16,DCMPLX(ZERO),CMPLX(MP__ZERO
 
1907
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(ZERO)
 
1908
     $ ,CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_4,MP__GC_4,GC_4
 
1909
     $ ,MP__GC_4,3,1,1,376,AMPL(1,376),S(376))
1866
1910
C     Loop amplitude for loop diagram with ID 115
1867
 
      CALL ML5_0_LOOP_3_3(19,1,4,26,DCMPLX(ZERO),CMPLX(MP__ZERO
1868
 
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO)
1869
 
     $ ,CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_5,MP__GC_5,GC_5
1870
 
     $ ,MP__GC_5,2,1,1,363,AMPL(1,363),S(363))
 
1911
      CALL ML5_0_LOOP_3_3(59,1,2,14,DCMPLX(ZERO),CMPLX(MP__ZERO
 
1912
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(ZERO)
 
1913
     $ ,CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_4,MP__GC_4,GC_4
 
1914
     $ ,MP__GC_4,3,1,1,377,AMPL(1,377),S(377))
1871
1915
C     Loop amplitude for loop diagram with ID 116
1872
 
      CALL ML5_0_LOOP_4_4(32,1,2,8,4,DCMPLX(ZERO),CMPLX(MP__ZERO
1873
 
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MT)
1874
 
     $ ,CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
1875
 
     $ ,GC_4,MP__GC_4,GC_4,MP__GC_4,GC_5,MP__GC_5,GC_5,MP__GC_5,3,1,1
1876
 
     $ ,364,AMPL(1,364),S(364))
 
1916
      CALL ML5_0_LOOP_3_3(59,1,2,16,DCMPLX(ZERO),CMPLX(MP__ZERO
 
1917
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(ZERO)
 
1918
     $ ,CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_4,MP__GC_4,GC_4
 
1919
     $ ,MP__GC_4,3,1,1,378,AMPL(1,378),S(378))
1877
1920
C     Loop amplitude for loop diagram with ID 117
1878
 
      CALL ML5_0_LOOP_4_4(31,1,2,4,8,DCMPLX(ZERO),CMPLX(MP__ZERO
1879
 
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(MDL_MT)
1880
 
     $ ,CMPLX(MP__MDL_MT,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
1881
 
     $ ,GC_4,MP__GC_4,GC_4,MP__GC_4,GC_5,MP__GC_5,GC_5,MP__GC_5,3,1,1
1882
 
     $ ,365,AMPL(1,365),S(365))
 
1921
      CALL ML5_0_LOOP_2_2(60,6,14,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
 
1922
     $ ,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),GC_5,MP__GC_5,GC_5
 
1923
     $ ,MP__GC_5,2,1,4,379,AMPL(1,379),S(379))
1883
1924
C     Loop amplitude for loop diagram with ID 118
1884
 
      CALL ML5_0_LOOP_3_4_3(49,1,2,1,4,1,2,8,DCMPLX(ZERO)
1885
 
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
1886
 
     $ ,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),GC_5,MP__GC_5,GC_6
1887
 
     $ ,MP__GC_6,GC_5,MP__GC_5,1,1,1,366,AMPL(1,366),S(366))
1888
 
      CALL ML5_0_LOOP_3_4_3(50,1,2,1,4,1,2,8,DCMPLX(ZERO)
1889
 
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
1890
 
     $ ,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),GC_5,MP__GC_5,GC_6
1891
 
     $ ,MP__GC_6,GC_5,MP__GC_5,1,1,1,367,AMPL(1,367),S(367))
1892
 
      CALL ML5_0_LOOP_3_4_3(51,1,2,1,4,1,2,8,DCMPLX(ZERO)
1893
 
     $ ,CMPLX(MP__ZERO,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
1894
 
     $ ,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),GC_5,MP__GC_5,GC_6
1895
 
     $ ,MP__GC_6,GC_5,MP__GC_5,1,1,1,368,AMPL(1,368),S(368))
 
1925
      CALL ML5_0_LOOP_2_2(60,6,16,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
 
1926
     $ ,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),GC_5,MP__GC_5,GC_5
 
1927
     $ ,MP__GC_5,2,1,4,380,AMPL(1,380),S(380))
1896
1928
C     Loop amplitude for loop diagram with ID 119
1897
 
      CALL ML5_0_LOOP_2_2(52,6,13,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
1898
 
     $ ,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_4
1899
 
     $ ,MP__GC_4,2,2,1,369,AMPL(1,369),S(369))
 
1929
      CALL ML5_0_LOOP_3_3(61,1,2,14,DCMPLX(ZERO),CMPLX(MP__ZERO
 
1930
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(ZERO)
 
1931
     $ ,CMPLX(MP__ZERO,KIND=16),GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5
 
1932
     $ ,MP__GC_5,3,1,4,381,AMPL(1,381),S(381))
1900
1933
C     Loop amplitude for loop diagram with ID 120
1901
 
      CALL ML5_0_LOOP_2_2(52,6,14,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
1902
 
     $ ,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_4
1903
 
     $ ,MP__GC_4,2,2,1,370,AMPL(1,370),S(370))
 
1934
      CALL ML5_0_LOOP_3_3(61,1,2,16,DCMPLX(ZERO),CMPLX(MP__ZERO
 
1935
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(ZERO)
 
1936
     $ ,CMPLX(MP__ZERO,KIND=16),GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5
 
1937
     $ ,MP__GC_5,3,1,4,382,AMPL(1,382),S(382))
1904
1938
C     Loop amplitude for loop diagram with ID 121
1905
 
      CALL ML5_0_LOOP_3_3(53,1,2,13,DCMPLX(ZERO),CMPLX(MP__ZERO
 
1939
      CALL ML5_0_LOOP_3_3(62,1,2,14,DCMPLX(ZERO),CMPLX(MP__ZERO
1906
1940
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(ZERO)
1907
 
     $ ,CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_4,MP__GC_4,GC_4
1908
 
     $ ,MP__GC_4,3,1,1,371,AMPL(1,371),S(371))
 
1941
     $ ,CMPLX(MP__ZERO,KIND=16),GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5
 
1942
     $ ,MP__GC_5,3,1,4,383,AMPL(1,383),S(383))
1909
1943
C     Loop amplitude for loop diagram with ID 122
1910
 
      CALL ML5_0_LOOP_3_3(53,1,2,14,DCMPLX(ZERO),CMPLX(MP__ZERO
 
1944
      CALL ML5_0_LOOP_3_3(62,1,2,16,DCMPLX(ZERO),CMPLX(MP__ZERO
1911
1945
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(ZERO)
1912
 
     $ ,CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_4,MP__GC_4,GC_4
1913
 
     $ ,MP__GC_4,3,1,1,372,AMPL(1,372),S(372))
 
1946
     $ ,CMPLX(MP__ZERO,KIND=16),GC_5,MP__GC_5,GC_5,MP__GC_5,GC_5
 
1947
     $ ,MP__GC_5,3,1,4,384,AMPL(1,384),S(384))
1914
1948
C     Loop amplitude for loop diagram with ID 123
1915
 
      CALL ML5_0_LOOP_2_3_2(54,1,2,1,13,2,DCMPLX(ZERO),CMPLX(MP__ZERO
1916
 
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4
1917
 
     $ ,GC_6,MP__GC_6,1,2,1,373,AMPL(1,373),S(373))
1918
 
      CALL ML5_0_LOOP_2_3_2(55,1,2,1,13,2,DCMPLX(ZERO),CMPLX(MP__ZERO
1919
 
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4
1920
 
     $ ,GC_6,MP__GC_6,1,2,1,374,AMPL(1,374),S(374))
1921
 
      CALL ML5_0_LOOP_2_3_2(56,1,2,1,13,2,DCMPLX(ZERO),CMPLX(MP__ZERO
1922
 
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4
1923
 
     $ ,GC_6,MP__GC_6,1,2,1,375,AMPL(1,375),S(375))
 
1949
      CALL ML5_0_LOOP_2_2(60,6,14,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
 
1950
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),GC_5
 
1951
     $ ,MP__GC_5,GC_5,MP__GC_5,2,1,1,385,AMPL(1,385),S(385))
1924
1952
C     Loop amplitude for loop diagram with ID 124
1925
 
      CALL ML5_0_LOOP_2_3_2(54,1,2,1,14,2,DCMPLX(ZERO),CMPLX(MP__ZERO
1926
 
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4
1927
 
     $ ,GC_6,MP__GC_6,1,2,1,376,AMPL(1,376),S(376))
1928
 
      CALL ML5_0_LOOP_2_3_2(55,1,2,1,14,2,DCMPLX(ZERO),CMPLX(MP__ZERO
1929
 
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4
1930
 
     $ ,GC_6,MP__GC_6,1,2,1,377,AMPL(1,377),S(377))
1931
 
      CALL ML5_0_LOOP_2_3_2(56,1,2,1,14,2,DCMPLX(ZERO),CMPLX(MP__ZERO
1932
 
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4
1933
 
     $ ,GC_6,MP__GC_6,1,2,1,378,AMPL(1,378),S(378))
 
1953
      CALL ML5_0_LOOP_2_2(60,6,16,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
 
1954
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),GC_5
 
1955
     $ ,MP__GC_5,GC_5,MP__GC_5,2,1,1,386,AMPL(1,386),S(386))
1934
1956
C     Loop amplitude for loop diagram with ID 125
1935
 
      CALL ML5_0_LOOP_2_3_2(54,1,2,2,13,1,DCMPLX(ZERO),CMPLX(MP__ZERO
1936
 
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4
1937
 
     $ ,GC_6,MP__GC_6,1,2,1,379,AMPL(1,379),S(379))
1938
 
      CALL ML5_0_LOOP_2_3_2(55,1,2,2,13,1,DCMPLX(ZERO),CMPLX(MP__ZERO
1939
 
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4
1940
 
     $ ,GC_6,MP__GC_6,1,2,1,380,AMPL(1,380),S(380))
1941
 
      CALL ML5_0_LOOP_2_3_2(56,1,2,2,13,1,DCMPLX(ZERO),CMPLX(MP__ZERO
1942
 
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4
1943
 
     $ ,GC_6,MP__GC_6,1,2,1,381,AMPL(1,381),S(381))
 
1957
      CALL ML5_0_LOOP_3_3(61,1,2,14,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
 
1958
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16)
 
1959
     $ ,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),GC_5,MP__GC_5,GC_5
 
1960
     $ ,MP__GC_5,GC_5,MP__GC_5,3,1,1,387,AMPL(1,387),S(387))
1944
1961
C     Loop amplitude for loop diagram with ID 126
1945
 
      CALL ML5_0_LOOP_2_3_2(54,1,2,2,14,1,DCMPLX(ZERO),CMPLX(MP__ZERO
1946
 
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4
1947
 
     $ ,GC_6,MP__GC_6,1,2,1,382,AMPL(1,382),S(382))
1948
 
      CALL ML5_0_LOOP_2_3_2(55,1,2,2,14,1,DCMPLX(ZERO),CMPLX(MP__ZERO
1949
 
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4
1950
 
     $ ,GC_6,MP__GC_6,1,2,1,383,AMPL(1,383),S(383))
1951
 
      CALL ML5_0_LOOP_2_3_2(56,1,2,2,14,1,DCMPLX(ZERO),CMPLX(MP__ZERO
1952
 
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4
1953
 
     $ ,GC_6,MP__GC_6,1,2,1,384,AMPL(1,384),S(384))
 
1962
      CALL ML5_0_LOOP_3_3(61,1,2,16,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
 
1963
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16)
 
1964
     $ ,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),GC_5,MP__GC_5,GC_5
 
1965
     $ ,MP__GC_5,GC_5,MP__GC_5,3,1,1,388,AMPL(1,388),S(388))
1954
1966
C     Loop amplitude for loop diagram with ID 127
1955
 
      CALL ML5_0_LOOP_2_3_2(57,2,1,1,2,13,DCMPLX(ZERO),CMPLX(MP__ZERO
1956
 
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),GC_6,MP__GC_6
1957
 
     $ ,GC_4,MP__GC_4,1,2,1,385,AMPL(1,385),S(385))
1958
 
      CALL ML5_0_LOOP_2_3_2(58,2,1,1,2,13,DCMPLX(ZERO),CMPLX(MP__ZERO
1959
 
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),GC_6,MP__GC_6
1960
 
     $ ,GC_4,MP__GC_4,1,2,1,386,AMPL(1,386),S(386))
1961
 
      CALL ML5_0_LOOP_2_3_2(59,2,1,1,2,13,DCMPLX(ZERO),CMPLX(MP__ZERO
1962
 
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),GC_6,MP__GC_6
1963
 
     $ ,GC_4,MP__GC_4,1,2,1,387,AMPL(1,387),S(387))
 
1967
      CALL ML5_0_LOOP_3_3(62,1,2,14,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
 
1968
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16)
 
1969
     $ ,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),GC_5,MP__GC_5,GC_5
 
1970
     $ ,MP__GC_5,GC_5,MP__GC_5,3,1,1,389,AMPL(1,389),S(389))
1964
1971
C     Loop amplitude for loop diagram with ID 128
1965
 
      CALL ML5_0_LOOP_2_3_2(57,2,1,1,2,14,DCMPLX(ZERO),CMPLX(MP__ZERO
1966
 
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),GC_6,MP__GC_6
1967
 
     $ ,GC_4,MP__GC_4,1,2,1,388,AMPL(1,388),S(388))
1968
 
      CALL ML5_0_LOOP_2_3_2(58,2,1,1,2,14,DCMPLX(ZERO),CMPLX(MP__ZERO
1969
 
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),GC_6,MP__GC_6
1970
 
     $ ,GC_4,MP__GC_4,1,2,1,389,AMPL(1,389),S(389))
1971
 
      CALL ML5_0_LOOP_2_3_2(59,2,1,1,2,14,DCMPLX(ZERO),CMPLX(MP__ZERO
1972
 
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),GC_6,MP__GC_6
1973
 
     $ ,GC_4,MP__GC_4,1,2,1,390,AMPL(1,390),S(390))
 
1972
      CALL ML5_0_LOOP_3_3(62,1,2,16,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB
 
1973
     $ ,KIND=16),DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16)
 
1974
     $ ,DCMPLX(MDL_MB),CMPLX(MP__MDL_MB,KIND=16),GC_5,MP__GC_5,GC_5
 
1975
     $ ,MP__GC_5,GC_5,MP__GC_5,3,1,1,390,AMPL(1,390),S(390))
1974
1976
C     Loop amplitude for loop diagram with ID 129
1975
 
      CALL ML5_0_LOOP_2_2(60,6,13,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
1976
 
     $ ,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_4
1977
 
     $ ,MP__GC_4,2,1,1,391,AMPL(1,391),S(391))
 
1977
      CALL ML5_0_LOOP_2_2(60,6,14,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
 
1978
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),GC_5
 
1979
     $ ,MP__GC_5,GC_5,MP__GC_5,2,1,1,391,AMPL(1,391),S(391))
1978
1980
C     Loop amplitude for loop diagram with ID 130
1979
 
      CALL ML5_0_LOOP_2_2(60,6,14,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16)
1980
 
     $ ,DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_4
1981
 
     $ ,MP__GC_4,2,1,1,392,AMPL(1,392),S(392))
 
1981
      CALL ML5_0_LOOP_2_2(60,6,16,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
 
1982
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),GC_5
 
1983
     $ ,MP__GC_5,GC_5,MP__GC_5,2,1,1,392,AMPL(1,392),S(392))
1982
1984
C     Loop amplitude for loop diagram with ID 131
1983
 
      CALL ML5_0_LOOP_3_3(61,1,2,13,DCMPLX(ZERO),CMPLX(MP__ZERO
1984
 
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(ZERO)
1985
 
     $ ,CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_4,MP__GC_4,GC_4
1986
 
     $ ,MP__GC_4,3,1,1,393,AMPL(1,393),S(393))
 
1985
      CALL ML5_0_LOOP_3_3(61,1,2,14,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
 
1986
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16)
 
1987
     $ ,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),GC_5,MP__GC_5,GC_5
 
1988
     $ ,MP__GC_5,GC_5,MP__GC_5,3,1,1,393,AMPL(1,393),S(393))
1987
1989
C     Loop amplitude for loop diagram with ID 132
1988
 
      CALL ML5_0_LOOP_3_3(61,1,2,14,DCMPLX(ZERO),CMPLX(MP__ZERO
1989
 
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(ZERO)
1990
 
     $ ,CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_4,MP__GC_4,GC_4
1991
 
     $ ,MP__GC_4,3,1,1,394,AMPL(1,394),S(394))
 
1990
      CALL ML5_0_LOOP_3_3(61,1,2,16,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
 
1991
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16)
 
1992
     $ ,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),GC_5,MP__GC_5,GC_5
 
1993
     $ ,MP__GC_5,GC_5,MP__GC_5,3,1,1,394,AMPL(1,394),S(394))
1992
1994
C     Loop amplitude for loop diagram with ID 133
1993
 
      CALL ML5_0_LOOP_3_3(62,1,2,13,DCMPLX(ZERO),CMPLX(MP__ZERO
1994
 
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(ZERO)
1995
 
     $ ,CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_4,MP__GC_4,GC_4
1996
 
     $ ,MP__GC_4,3,1,1,395,AMPL(1,395),S(395))
 
1995
      CALL ML5_0_LOOP_3_3(62,1,2,14,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
 
1996
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16)
 
1997
     $ ,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),GC_5,MP__GC_5,GC_5
 
1998
     $ ,MP__GC_5,GC_5,MP__GC_5,3,1,1,395,AMPL(1,395),S(395))
1997
1999
C     Loop amplitude for loop diagram with ID 134
1998
 
      CALL ML5_0_LOOP_3_3(62,1,2,14,DCMPLX(ZERO),CMPLX(MP__ZERO
1999
 
     $ ,KIND=16),DCMPLX(ZERO),CMPLX(MP__ZERO,KIND=16),DCMPLX(ZERO)
2000
 
     $ ,CMPLX(MP__ZERO,KIND=16),GC_4,MP__GC_4,GC_4,MP__GC_4,GC_4
2001
 
     $ ,MP__GC_4,3,1,1,396,AMPL(1,396),S(396))
 
2000
      CALL ML5_0_LOOP_3_3(62,1,2,16,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT
 
2001
     $ ,KIND=16),DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16)
 
2002
     $ ,DCMPLX(MDL_MT),CMPLX(MP__MDL_MT,KIND=16),GC_5,MP__GC_5,GC_5
 
2003
     $ ,MP__GC_5,GC_5,MP__GC_5,3,1,1,396,AMPL(1,396),S(396))
2002
2004
 
2003
2005
      DO I=NCTAMPS+1,NLOOPAMPS
2004
2006
        ANS(1)=ANS(1)+AMPL(1,I)
2076
2078
            ENDDO
2077
2079
          ENDIF
2078
2080
        ELSEIF (.NOT.HELDOUBLECHECKED)THEN
2079
 
          IF ((.NOT.GOODHEL(HELPICKED)).AND.(.NOT.ML5_0_ISZERO(ABS(ANS(
2080
 
     $1))+ABS(ANS(2))+ABS(ANS(3)),REF/DBLE(NCOMB),-1))) THEN
 
2081
          IF ((.NOT.GOODHEL(HELPICKED))
 
2082
     $     .AND.(.NOT.ML5_0_ISZERO(ABS(ANS(1))+ABS(ANS(2))+ABS(ANS(3))
 
2083
     $     ,REF/DBLE(NCOMB),-1))) THEN
2081
2084
            WRITE(*,*) '##W15 Helicity filter could not be'
2082
2085
     $       //' successfully double checked.'
2083
2086
            WRITE(*,*) '##One reason for this is that you have changed'
2168
2171
 
2169
2172
        CTMODE=BASIC_CT_MODE
2170
2173
 
2171
 
        IF(.NOT.EVAL_DONE(3).AND. ((DOING_QP_EVALS.AND.NROTATIONS_QP.GE
2172
 
     $.1).OR.((.NOT.DOING_QP_EVALS).AND.NROTATIONS_DP.GE.1)) ) THEN
 
2174
        IF(.NOT.EVAL_DONE(3).AND.
 
2175
     $    ((DOING_QP_EVALS.AND.NROTATIONS_QP.GE.1)
 
2176
     $   .OR.((.NOT.DOING_QP_EVALS).AND.NROTATIONS_DP.GE.1)) ) THEN
2173
2177
          EVAL_DONE(3)=.TRUE.
2174
2178
          CALL ML5_0_ROTATE_PS(PS,P,1)
2175
2179
          IF (DOING_QP_EVALS) CALL ML5_0_MP_ROTATE_PS(MP_PS,MP_P,1)
2176
2180
          GOTO 200
2177
2181
        ENDIF
2178
2182
 
2179
 
        IF(.NOT.EVAL_DONE(4).AND. ((DOING_QP_EVALS.AND.NROTATIONS_QP.GE
2180
 
     $.2).OR.((.NOT.DOING_QP_EVALS).AND.NROTATIONS_DP.GE.2)) ) THEN
 
2183
        IF(.NOT.EVAL_DONE(4).AND.
 
2184
     $    ((DOING_QP_EVALS.AND.NROTATIONS_QP.GE.2)
 
2185
     $   .OR.((.NOT.DOING_QP_EVALS).AND.NROTATIONS_DP.GE.2)) ) THEN
2181
2186
          EVAL_DONE(4)=.TRUE.
2182
2187
          CALL ML5_0_ROTATE_PS(PS,P,2)
2183
2188
          IF (DOING_QP_EVALS) CALL ML5_0_MP_ROTATE_PS(MP_PS,MP_P,2)