File indexing completed on 2023-10-25 09:48:18
0001
0002
0003
0004
0005
0006
0007 subroutine amp10_1p1(cc)
0008 implicit double precision(a-h,o-z)
0009 implicit integer (i-n)
0010 dimension b(32)
0011 #include "inclcon.h"
0012 #include "inclppp.h"
0013 #include "inclamp.h"
0014 do 100 n=1,32
0015 b(n)=0.0d0
0016 100 continue
0017 ccc=cc/((-2*p1p5)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2)*(-fmb2
0018 . +fmc2+hbcm2+2*p3p4))
0019 b(2)=ccc*(w1*(8*(p6p7*p4p8)*(fmb2*hbcm-fmc2*hbcm-hbcm3)-16*hbcm
0020 . *p3p4*p4p8*p6p7)+32*(fb4*hbcm*p2p8*p6p7+fb4*hbcm*p3p7*p6p8+fb4
0021 . *hbcm*p4p7*p6p8))
0022 b(3)=8*ccc*w1*(p5p7*p4p8)*(fmb*hbcm+fmc*hbcm-2*hbcm2)
0023 b(4)=16*ccc*p5p7*(-fb4*fmb*hbcm-fb4*fmc*hbcm)
0024 b(5)=ccc*(w1*(8*(p5p7*p4p8)*(2*fmb*hbcm2-2*fmc*hbcm2-hbcm3)-16*
0025 . hbcm*p3p4*p4p8*p5p7)+32*fb4*hbcm*p4p8*p5p7)
0026 b(6)=w1*ccc*(8*(p5p6*p4p8)*(fmb*hbcm+fmc*hbcm-2*hbcm2)+8*(p4p8*
0027 . p4p6)*(fmb*hbcm+fmc*hbcm-2*hbcm2)+8*(p4p8*p3p6)*(fmb*hbcm+fmc*
0028 . hbcm-2*hbcm2))
0029 b(7)=ccc*(16*p5p6*(-fb4*fmb*hbcm-fb4*fmc*hbcm)+16*p4p6*(-fb4*
0030 . fmb*hbcm-fb4*fmc*hbcm)+16*p3p6*(-fb4*fmb*hbcm-fb4*fmc*hbcm))
0031 b(8)=ccc*(w1*(8*(p5p6*p4p8)*(2*fmb*hbcm2-2*fmc*hbcm2-hbcm3)+8*(
0032 . p4p8*p4p6)*(2*fmb*hbcm2-2*fmc*hbcm2-hbcm3)+8*(p4p8*p3p6)*(2*
0033 . fmb*hbcm2-fmb2*hbcm-2*fmc*hbcm2+fmc2*hbcm)+16*(-hbcm*p3p4*p4p6
0034 . *p4p8-hbcm*p3p4*p4p8*p5p6))+(16*p6p8*(fb4*fmb2*hbcm-fb4*fmc2*
0035 . hbcm-fb4*hbcm3)+32*(-fb4*hbcm*p3p4*p6p8+fb4*hbcm*p3p6*p4p8+fb4
0036 . *hbcm*p4p6*p4p8+fb4*hbcm*p4p8*p5p6)))
0037 b(9)=ccc*(16*p6p7*(-fb4*fmb2*hbcm+fb4*fmc2*hbcm+fb4*hbcm3)+32*(
0038 . -fb4*hbcm*p2p3*p6p7+fb4*hbcm*p3p4*p6p7-fb4*hbcm*p3p6*p3p7-fb4*
0039 . hbcm*p3p6*p4p7))
0040 b(10)=ccc*(w1*(16*(p6p7*p4p8)*(-fmb2*hbcm2+fmc2*hbcm2+hbcm4)+16
0041 . *(p5p6*p4p8*p3p7)*(-fmb*hbcm-fmc*hbcm+2*hbcm2)+16*(p4p8*p4p6*
0042 . p3p7)*(-fmb*hbcm-fmc*hbcm+2*hbcm2)+16*(p4p8*p4p7*p3p6)*(fmb*
0043 . hbcm+fmc*hbcm-2*hbcm2)+32*hbcm2*p3p4*p4p8*p6p7)+(32*(p7p8*p5p6
0044 . )*(fb4*fmb*hbcm+fb4*fmc*hbcm)+32*(p6p8*p4p7)*(-fb4*fmb*hbcm-
0045 . fb4*fmc*hbcm)+32*(p7p8*p4p6)*(fb4*fmb*hbcm+fb4*fmc*hbcm)+32*(
0046 . p6p8*p3p7)*(-fb4*fmb*hbcm-fb4*fmc*hbcm)+32*(p7p8*p3p6)*(fb4*
0047 . fmb*hbcm+fb4*fmc*hbcm)+32*(p6p7*p2p8)*(-fb4*fmb*hbcm-fb4*fmc*
0048 . hbcm)))
0049 b(11)=ccc*(w1*(4*p4p8*(fmb2*hbcm-fmc2*hbcm-hbcm3)-8*hbcm*p3p4*
0050 . p4p8)+16*(-fb4*hbcm*p1p8-fb4*hbcm*p2p8+fb4*hbcm*p4p8+fb4*hbcm*
0051 . p5p8))
0052 b(13)=ccc*(w1*(8*p4p8*(-fmb*hbcm3+fmb2*hbcm2-fmc*hbcm3-fmc2*
0053 . hbcm2+hbcm4)+8*(p4p8*p3p5)*(-fmb*hbcm-fmc*hbcm+2*hbcm2)+8*(
0054 . p4p8*p3p4)*(-fmb*hbcm-fmc*hbcm)+8*(p4p8*p2p3)*(fmb*hbcm+fmc*
0055 . hbcm-2*hbcm2)+8*(p4p8*p1p3)*(fmb*hbcm+fmc*hbcm-2*hbcm2))+(16*
0056 . p5p8*(fb4*fmb*hbcm+fb4*fmc*hbcm)+16*p4p8*(fb4*fmb*hbcm+fb4*fmc
0057 . *hbcm)+16*p2p8*(-fb4*fmb*hbcm-fb4*fmc*hbcm)+16*p1p8*(-fb4*fmb*
0058 . hbcm-fb4*fmc*hbcm)))
0059 b(14)=8*ccc*(-fb4*fmb2*hbcm+fb4*fmc2*hbcm+2*fb4*hbcm*p1p3+2*fb4
0060 . *hbcm*p2p3-2*fb4*hbcm*p3p5-fb4*hbcm3)
0061 b(15)=ccc*(8*w1*(p4p8*p3p6)*(fmb*hbcm+fmc*hbcm-2*hbcm2)+16*p6p8
0062 . *(-fb4*fmb*hbcm-fb4*fmc*hbcm))
0063 b(16)=16*ccc*fb4*hbcm*p6p8
0064 b(17)=ccc*(w1*(4*p4p8*(-2*fmb*hbcm2+2*fmc*hbcm2+hbcm3)+8*hbcm*
0065 . p3p4*p4p8)-16*fb4*hbcm*p4p8)
0066 b(19)=4*ccc*w1*p4p8*(-fmb*hbcm-fmc*hbcm+2*hbcm2)
0067 b(21)=8*ccc*fb4*hbcm
0068 b(22)=8*ccc*(fb4*fmb*hbcm+fb4*fmc*hbcm)
0069 b(24)=-16*ccc*fb4*hbcm*p3p6
0070 b(25)=-16*ccc*fb4*hbcm*p5p7
0071 b(26)=16*ccc*(-fb4*hbcm*p3p6-fb4*hbcm*p4p6-fb4*hbcm*p5p6)
0072 b(27)=16*ccc*p6p7*(fb4*fmb*hbcm+fb4*fmc*hbcm)
0073 b(28)=8*ccc*w1*(p6p7*p4p8)*(fmb*hbcm+fmc*hbcm-2*hbcm2)
0074 b(31)=ccc*(w1*(8*(p6p7*p4p8)*(-2*fmb*hbcm2+2*fmc*hbcm2+hbcm3)+
0075 . 16*hbcm*p3p4*p4p8*p6p7)-32*fb4*hbcm*p4p8*p6p7)
0076 b(32)=16*ccc*fb4*hbcm*p6p7
0077 do 200 n=1,32
0078 c(n,1)=c(n,1)-0.7272727272727273d0*b(n)
0079 c(n,2)=c(n,2)+0.1344727748424798d0*b(n)
0080 c(n,3)=c(n,3)+0.1662127982237257d0*b(n)
0081 200 continue
0082 return
0083 end
0084
0085 subroutine amp18_1p1(cc)
0086 implicit double precision(a-h,o-z)
0087 implicit integer (i-n)
0088 dimension b(32)
0089 #include "inclcon.h"
0090 #include "inclppp.h"
0091 #include "inclamp.h"
0092 do 100 n=1,32
0093 b(n)=0.0d0
0094 100 continue
0095 ccc=cc/((ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2)*(ffmcfmb**2*
0096 . hbcm2-2*ffmcfmb*hbcm2+2*ffmcfmb*p2p3-fmb2+hbcm2-2*p2p3)*(
0097 . ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+2*ffmcfmb*p3p5+fmc2+2*p4p5))
0098 b(1)=ccc*(32*(p5p6*p3p7)*(-fb3*ffmcfmb+fb3)+32*(p4p6*p3p7)*(fb3
0099 . *ffmcfmb-fb3)+4*p6p7*(-4*fb3*ffmcfmb**2*hbcm2+4*fb3*ffmcfmb*
0100 . hbcm2-8*fb3*fmb*fmc-4*fb3*fmb2-8*fb4*ffmcfmb*fmb*hbcm-8*fb4*
0101 . ffmcfmb*fmc*hbcm+4*fb4*fmb*hbcm+8*fb4*fmc*hbcm+2*fmb*hbcm+2*
0102 . fmc*hbcm-hbcm2)+32*(-fb3*ffmcfmb*p2p3*p6p7-2*fb3*p2p4*p6p7+fb3
0103 . *p2p5*p6p7))
0104 ans2=(8*(p6p7*p5p8)*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+
0105 . hbcm)+8*(p6p8*p5p7)*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-
0106 . hbcm)+8*(p6p7*p4p8)*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-
0107 . hbcm)+8*(p6p8*p4p7)*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+
0108 . hbcm)+8*(p7p8*p4p6)*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+
0109 . hbcm)+8*(p6p7*p2p8)*(4*fb3*fmb-8*fb3*fmc-4*fb4*ffmcfmb*hbcm+
0110 . hbcm)+8*(p6p8*p3p7)*(-4*fb3*ffmcfmb*fmb+4*fb3*ffmcfmb*fmc+4*
0111 . fb3*fmb-4*fb3*fmc-ffmcfmb*hbcm+hbcm)+32*(p7p8*p3p6)*(-fb3*
0112 . ffmcfmb*fmb-fb4*ffmcfmb**2*hbcm+fb4*ffmcfmb*hbcm)-8*hbcm*p5p6*
0113 . p7p8)
0114 ans1=w18*(16*(p5p8*p5p6*p3p7)*(ffmcfmb*hbcm-hbcm)+16*(p5p6*p4p8
0115 . *p3p7)*(ffmcfmb*hbcm-hbcm)+8*(p6p7*p5p8)*(ffmcfmb*fmb*hbcm2-
0116 . ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm-fmb*hbcm2+fmb2*hbcm+fmc*hbcm2)+
0117 . 8*(p6p7*p4p8)*(ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-fmb*fmc*
0118 . hbcm-fmb*hbcm2+fmb2*hbcm+fmc*hbcm2)+16*(p5p8*p3p7*p3p6)*(
0119 . ffmcfmb**2*hbcm-ffmcfmb*hbcm)+16*(p4p8*p3p7*p3p6)*(ffmcfmb**2*
0120 . hbcm-ffmcfmb*hbcm)+16*(hbcm*p2p4*p4p8*p6p7+hbcm*p2p4*p5p8*p6p7
0121 . -hbcm*p2p5*p4p8*p6p7-hbcm*p2p5*p5p8*p6p7))+w1*(16*(p5p6*p4p8*
0122 . p3p7)*(ffmcfmb*hbcm-hbcm)+8*(p6p7*p4p8)*(ffmcfmb*fmb*hbcm2-
0123 . ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm-fmb*hbcm2+fmb2*hbcm+fmc*hbcm2)+
0124 . 16*(p4p8*p3p7*p3p6)*(ffmcfmb**2*hbcm-ffmcfmb*hbcm)+16*(hbcm*
0125 . p2p4*p4p8*p6p7-hbcm*p2p5*p4p8*p6p7))+w8*(16*(p5p6*p3p7*p2p8)*(
0126 . ffmcfmb*hbcm-hbcm)+8*(p6p7*p2p8)*(ffmcfmb*fmb*hbcm2-ffmcfmb*
0127 . fmc*hbcm2-fmb*fmc*hbcm-fmb*hbcm2+fmb2*hbcm+fmc*hbcm2)+16*(p3p7
0128 . *p3p6*p2p8)*(ffmcfmb**2*hbcm-ffmcfmb*hbcm)+16*(hbcm*p2p4*p2p8*
0129 . p6p7-hbcm*p2p5*p2p8*p6p7))+ans2
0130 ans=ccc*ans1
0131 b(2)=ans
0132 ans=ccc*(w18*(8*(p5p8*p5p7)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(
0133 . p5p7*p4p8)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(p5p8*p4p7)*(-
0134 . ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(p4p8*p4p7)*(-ffmcfmb*hbcm2-
0135 . fmb*hbcm+hbcm2)+8*(p5p8*p3p7)*(-ffmcfmb*fmb*hbcm-ffmcfmb*fmc*
0136 . hbcm+fmb*hbcm+fmc*hbcm)+8*(p4p8*p3p7)*(-ffmcfmb*fmb*hbcm-
0137 . ffmcfmb*fmc*hbcm+fmb*hbcm+fmc*hbcm))+w1*(8*(p5p7*p4p8)*(
0138 . ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(p4p8*p4p7)*(-ffmcfmb*hbcm2-
0139 . fmb*hbcm+hbcm2)+8*(p4p8*p3p7)*(-ffmcfmb*fmb*hbcm-ffmcfmb*fmc*
0140 . hbcm+fmb*hbcm+fmc*hbcm))+w8*(8*(p5p7*p2p8)*(ffmcfmb*hbcm2+fmb*
0141 . hbcm-hbcm2)+8*(p4p7*p2p8)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(
0142 . p3p7*p2p8)*(-ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm+fmb*hbcm+fmc*
0143 . hbcm))+(32*(p5p8*p3p7)*(-fb3*ffmcfmb+fb3)+32*(p4p8*p3p7)*(fb3*
0144 . ffmcfmb-fb3)+4*p7p8*(-4*fb3*ffmcfmb**2*hbcm2+4*fb3*ffmcfmb*
0145 . hbcm2-4*fb3*fmb*fmc-4*fb4*ffmcfmb*fmb*hbcm-4*fb4*ffmcfmb*fmc*
0146 . hbcm+4*fb4*fmc*hbcm+2*fmb*hbcm+2*fmc*hbcm-hbcm2)+32*(-fb3*
0147 . ffmcfmb*p2p3*p7p8-fb3*ffmcfmb*p2p8*p3p7-fb3*p2p4*p7p8-2*fb3*
0148 . p2p8*p4p7+fb3*p2p8*p5p7)))
0149 b(3)=ans
0150 b(4)=ccc*(32*(p3p7*p3p5)*(fb3*ffmcfmb-fb3)+32*(p3p7*p3p4)*(-fb3
0151 . *ffmcfmb+fb3)+4*p5p7*(-4*fb3*ffmcfmb*hbcm2+4*fb3*hbcm2-4*fb4*
0152 . fmb*hbcm-hbcm2)+4*p4p7*(4*fb3*ffmcfmb*hbcm2-4*fb3*hbcm2+4*fb4*
0153 . fmb*hbcm+hbcm2)+4*p3p7*(4*fb3*ffmcfmb**2*hbcm2-4*fb3*ffmcfmb*
0154 . hbcm2+4*fb3*fmb*fmc+8*fb4*ffmcfmb*fmb*hbcm+8*fb4*ffmcfmb*fmc*
0155 . hbcm-4*fb4*fmb*hbcm-8*fb4*fmc*hbcm-fmb*hbcm-fmc*hbcm+hbcm2)+32
0156 . *(-fb3*p2p3*p4p7+fb3*p2p4*p3p7))
0157 ans2=(32*(p5p8*p3p7)*(fb4*ffmcfmb*hbcm-fb4*hbcm)+8*(p3p7*p2p8)*
0158 . (-4*fb4*ffmcfmb*hbcm+hbcm)+8*(p7p8*p2p3)*(4*fb4*ffmcfmb*hbcm-
0159 . hbcm)+8*(p4p8*p3p7)*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+
0160 . hbcm)+8*(p7p8*p3p4)*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-
0161 . hbcm)+4*p7p8*(4*fb3*ffmcfmb*fmb*hbcm2-4*fb3*ffmcfmb*fmc*hbcm2+
0162 . 4*fb3*fmc*hbcm2+4*fb4*ffmcfmb**2*hbcm3-4*fb4*ffmcfmb*hbcm3-4*
0163 . fb4*fmb*fmc*hbcm+fmb*hbcm2-fmc*hbcm2)+8*(4*fb4*hbcm*p2p4*p7p8-
0164 . 4*fb4*hbcm*p2p8*p4p7+hbcm*p3p5*p7p8))
0165 ans1=w18*(8*(p5p8*p5p7)*(ffmcfmb*hbcm3+fmb*hbcm2-hbcm3)+8*(p5p7
0166 . *p4p8)*(ffmcfmb*hbcm3+fmb*hbcm2-hbcm3)+16*(p5p8*p3p7*p3p5)*(-
0167 . ffmcfmb*hbcm+hbcm)+16*(p4p8*p3p7*p3p5)*(-ffmcfmb*hbcm+hbcm)+8*
0168 . (p5p8*p3p7)*(-ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*
0169 . hbcm2+ffmcfmb*hbcm3+fmb*fmc*hbcm+fmb*hbcm2-fmc*hbcm2)+8*(p4p8*
0170 . p3p7)*(-ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+
0171 . ffmcfmb*hbcm3+fmb*fmc*hbcm+fmb*hbcm2-fmc*hbcm2)+16*(hbcm*p2p3*
0172 . p4p7*p4p8+hbcm*p2p3*p4p7*p5p8-hbcm*p2p4*p3p7*p4p8-hbcm*p2p4*
0173 . p3p7*p5p8))+w1*(8*(p5p7*p4p8)*(ffmcfmb*hbcm3+fmb*hbcm2-hbcm3)+
0174 . 16*(p4p8*p3p7*p3p5)*(-ffmcfmb*hbcm+hbcm)+8*(p4p8*p3p7)*(-
0175 . ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+ffmcfmb*
0176 . hbcm3+fmb*fmc*hbcm+fmb*hbcm2-fmc*hbcm2)+16*(hbcm*p2p3*p4p7*
0177 . p4p8-hbcm*p2p4*p3p7*p4p8))+w8*(8*(p5p7*p2p8)*(ffmcfmb*hbcm3+
0178 . fmb*hbcm2-hbcm3)+16*(p3p7*p3p5*p2p8)*(-ffmcfmb*hbcm+hbcm)+8*(
0179 . p3p7*p2p8)*(-ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*
0180 . hbcm2+ffmcfmb*hbcm3+fmb*fmc*hbcm+fmb*hbcm2-fmc*hbcm2)+16*(hbcm
0181 . *p2p3*p2p8*p4p7-hbcm*p2p4*p2p8*p3p7))+ans2
0182 ans=ccc*ans1
0183 b(5)=ans
0184 b(6)=ccc*(w18*(8*(p5p8*p5p6)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*
0185 . (p5p6*p4p8)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(p5p8*p4p6)*(
0186 . ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(p4p8*p4p6)*(ffmcfmb*hbcm2+fmb
0187 . *hbcm-hbcm2))+w1*(8*(p5p6*p4p8)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2
0188 . )+8*(p4p8*p4p6)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2))+w8*(8*(p5p6*
0189 . p2p8)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(p4p6*p2p8)*(ffmcfmb*
0190 . hbcm2+fmb*hbcm-hbcm2))+(4*p6p8*(-4*fb3*ffmcfmb**2*hbcm2+4*fb3*
0191 . ffmcfmb*hbcm2-8*fb3*fmb*fmc-4*fb3*fmb2-8*fb4*ffmcfmb*fmb*hbcm-
0192 . 8*fb4*ffmcfmb*fmc*hbcm+4*fb4*fmb*hbcm+8*fb4*fmc*hbcm+2*fmb*
0193 . hbcm+2*fmc*hbcm-hbcm2)+32*(-fb3*ffmcfmb*p2p3*p6p8-fb3*ffmcfmb*
0194 . p2p8*p3p6-2*fb3*p2p4*p6p8+fb3*p2p5*p6p8-fb3*p2p8*p4p6)))
0195 b(7)=ccc*(4*p5p6*(4*fb3*ffmcfmb*hbcm2-4*fb3*hbcm2+4*fb4*fmb*
0196 . hbcm+hbcm2)+4*p4p6*(-4*fb3*ffmcfmb*hbcm2+4*fb3*hbcm2-4*fb4*fmb
0197 . *hbcm-hbcm2)+4*p3p6*(4*fb3*ffmcfmb**2*hbcm2-4*fb3*ffmcfmb*
0198 . hbcm2+8*fb3*fmb*fmc+4*fb3*fmb2+8*fb4*ffmcfmb*fmb*hbcm+8*fb4*
0199 . ffmcfmb*fmc*hbcm-4*fb4*fmb*hbcm-8*fb4*fmc*hbcm-2*fmb*hbcm-2*
0200 . fmc*hbcm+hbcm2)+32*(2*fb3*ffmcfmb*p2p3*p3p6+fb3*p2p3*p4p6+2*
0201 . fb3*p2p4*p3p6-fb3*p2p5*p3p6))
0202 ans2=w8*(8*(p5p6*p2p8)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+8*(p3p6
0203 . *p2p8)*(-ffmcfmb**2*hbcm3-2*ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*
0204 . hbcm2+ffmcfmb*hbcm3+fmb*fmc*hbcm+fmb*hbcm2-fmb2*hbcm-fmc*hbcm2
0205 . )+16*(-ffmcfmb*hbcm*p2p3*p2p8*p3p6-hbcm*p2p3*p2p8*p4p6-hbcm*
0206 . p2p4*p2p8*p3p6+hbcm*p2p5*p2p8*p3p6))+(8*(p3p6*p2p8)*(-4*fb3*
0207 . fmc+hbcm)+32*(p6p8*p2p3)*(fb3*fmc+fb4*ffmcfmb*hbcm)+8*(p5p8*
0208 . p3p6)*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm)+8*(p4p8*
0209 . p3p6)*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+hbcm)+8*(p6p8*
0210 . p3p5)*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+hbcm)+8*(p6p8*
0211 . p3p4)*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm)+4*p6p8*(4
0212 . *fb3*ffmcfmb*fmb*hbcm2-4*fb3*ffmcfmb*fmc*hbcm2-4*fb3*fmb*hbcm2
0213 . +4*fb3*fmc*hbcm2-4*fb4*fmb*fmc*hbcm+4*fb4*fmb2*hbcm+ffmcfmb*
0214 . hbcm3+2*fmb*hbcm2-fmc*hbcm2-hbcm3)+32*(fb4*hbcm*p2p4*p6p8-fb4*
0215 . hbcm*p2p5*p6p8+fb4*hbcm*p2p8*p4p6))
0216 ans1=w18*(8*(p5p8*p5p6)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+8*(
0217 . p5p6*p4p8)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+8*(p5p8*p3p6)*(-
0218 . ffmcfmb**2*hbcm3-2*ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+ffmcfmb
0219 . *hbcm3+fmb*fmc*hbcm+fmb*hbcm2-fmb2*hbcm-fmc*hbcm2)+8*(p4p8*
0220 . p3p6)*(-ffmcfmb**2*hbcm3-2*ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2
0221 . +ffmcfmb*hbcm3+fmb*fmc*hbcm+fmb*hbcm2-fmb2*hbcm-fmc*hbcm2)+16*
0222 . (-ffmcfmb*hbcm*p2p3*p3p6*p4p8-ffmcfmb*hbcm*p2p3*p3p6*p5p8-hbcm
0223 . *p2p3*p4p6*p4p8-hbcm*p2p3*p4p6*p5p8-hbcm*p2p4*p3p6*p4p8-hbcm*
0224 . p2p4*p3p6*p5p8+hbcm*p2p5*p3p6*p4p8+hbcm*p2p5*p3p6*p5p8))+w1*(8
0225 . *(p5p6*p4p8)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+8*(p4p8*p3p6)*(-
0226 . ffmcfmb**2*hbcm3-2*ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+ffmcfmb
0227 . *hbcm3+fmb*fmc*hbcm+fmb*hbcm2-fmb2*hbcm-fmc*hbcm2)+16*(-
0228 . ffmcfmb*hbcm*p2p3*p3p6*p4p8-hbcm*p2p3*p4p6*p4p8-hbcm*p2p4*p3p6
0229 . *p4p8+hbcm*p2p5*p3p6*p4p8))+ans2
0230 ans=ccc*ans1
0231 b(8)=ans
0232 b(9)=ccc*(32*(p5p6*p3p7)*(-fb4*ffmcfmb*hbcm+fb4*hbcm)+8*(p4p6*
0233 . p3p7)*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm)+8*(p5p7*
0234 . p3p6)*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+hbcm)+8*(p4p7*
0235 . p3p6)*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm)+8*(p6p7*
0236 . p3p5)*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm)+8*(p6p7*
0237 . p3p4)*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+hbcm)+8*(p6p7*
0238 . p2p3)*(-4*fb3*fmb+8*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+8*(p3p7*
0239 . p3p6)*(8*fb3*ffmcfmb*fmb-4*fb3*ffmcfmb*fmc-4*fb3*fmb+4*fb3*fmc
0240 . -ffmcfmb*hbcm)+4*p6p7*(-4*fb3*ffmcfmb*fmb*hbcm2+4*fb3*ffmcfmb*
0241 . fmc*hbcm2+4*fb3*fmb*hbcm2-4*fb3*fmc*hbcm2+4*fb4*fmb*fmc*hbcm-4
0242 . *fb4*fmb2*hbcm-fmb*hbcm2+fmc*hbcm2)+32*(-fb4*hbcm*p2p4*p6p7+
0243 . fb4*hbcm*p2p5*p6p7))
0244 ans3=(8*(p6p7*p2p8)*(4*fb4*fmb*hbcm+4*fb4*fmc*hbcm-hbcm2)+8*(
0245 . p6p8*p3p7)*(4*fb3*fmb*fmc+4*fb3*fmb2+4*fb4*ffmcfmb*fmb*hbcm+4*
0246 . fb4*ffmcfmb*fmc*hbcm-4*fb4*fmc*hbcm+ffmcfmb*hbcm2-2*fmb*hbcm-
0247 . fmc*hbcm)+64*(p5p8*p3p7*p3p6)*(fb3*ffmcfmb-fb3)+64*(p6p8*p3p7*
0248 . p3p5)*(-fb3*ffmcfmb+fb3)+8*(p6p7*p5p8)*(-4*fb3*ffmcfmb*hbcm2+4
0249 . *fb3*hbcm2-4*fb4*fmb*hbcm-hbcm2)+8*(p6p8*p5p7)*(4*fb3*ffmcfmb*
0250 . hbcm2-4*fb3*hbcm2+4*fb4*fmb*hbcm+hbcm2)+32*(p7p8*p5p6)*(-fb3*
0251 . ffmcfmb*hbcm2+fb3*hbcm2-fb4*fmb*hbcm)+8*(p7p8*p3p6)*(-4*fb3*
0252 . ffmcfmb**2*hbcm2+4*fb3*ffmcfmb*hbcm2-4*fb3*fmb*fmc-4*fb3*fmb2-
0253 . 8*fb4*ffmcfmb*fmb*hbcm-4*fb4*ffmcfmb*fmc*hbcm+4*fb4*fmb*hbcm+4
0254 . *fb4*fmc*hbcm+ffmcfmb*hbcm2+fmb*hbcm+fmc*hbcm-hbcm2)+8*(-8*fb3
0255 . *ffmcfmb*p2p3*p3p6*p7p8+8*fb3*ffmcfmb*p2p3*p3p7*p6p8+16*fb3*
0256 . ffmcfmb*p2p8*p3p6*p3p7-8*fb3*p2p3*p4p6*p7p8+8*fb3*p2p3*p4p7*
0257 . p6p8-8*fb3*p2p3*p4p8*p6p7-8*fb3*p2p4*p3p6*p7p8+8*fb3*p2p4*p3p7
0258 . *p6p8+8*fb3*p2p5*p3p6*p7p8-8*fb3*p2p5*p3p7*p6p8-8*fb3*p2p8*
0259 . p3p4*p6p7+8*fb3*p2p8*p3p5*p6p7+8*fb3*p2p8*p3p6*p4p7-8*fb3*p2p8
0260 . *p3p6*p5p7+16*fb3*p2p8*p3p7*p4p6+hbcm2*p4p6*p7p8))
0261 ans2=w1*(16*(p4p8*p4p6*p3p7)*(-ffmcfmb*hbcm2+hbcm2)+16*(p5p7*
0262 . p4p8*p3p6)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(p6p7*p4p8*p3p5)
0263 . *(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(p6p7*p4p8)*(ffmcfmb**2*
0264 . hbcm4-ffmcfmb*hbcm4+fmb*hbcm3-fmb2*hbcm2)+16*(p4p8*p3p7*p3p6)*
0265 . (-ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm+ffmcfmb*hbcm2-fmb*hbcm)+16
0266 . *(fmb*hbcm*p3p7*p4p8*p5p6+fmc*hbcm*p2p3*p4p8*p6p7+hbcm2*p2p5*
0267 . p4p8*p6p7))+w8*(16*(p4p6*p3p7*p2p8)*(-ffmcfmb*hbcm2+hbcm2)+16*
0268 . (p5p7*p3p6*p2p8)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(p6p7*p3p5
0269 . *p2p8)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(p6p7*p2p8)*(ffmcfmb**
0270 . 2*hbcm4-ffmcfmb*hbcm4+fmb*hbcm3-fmb2*hbcm2)+16*(p3p7*p3p6*p2p8
0271 . )*(-ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm+ffmcfmb*hbcm2-fmb*hbcm)+
0272 . 16*(fmb*hbcm*p2p8*p3p7*p5p6+fmc*hbcm*p2p3*p2p8*p6p7+hbcm2*p2p5
0273 . *p2p8*p6p7))+ans3
0274 ans1=w18*(16*(p5p8*p4p6*p3p7)*(-ffmcfmb*hbcm2+hbcm2)+16*(p4p8*
0275 . p4p6*p3p7)*(-ffmcfmb*hbcm2+hbcm2)+16*(p5p8*p5p7*p3p6)*(-
0276 . ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(p5p7*p4p8*p3p6)*(-ffmcfmb*
0277 . hbcm2-fmb*hbcm+hbcm2)+16*(p6p7*p5p8*p3p5)*(ffmcfmb*hbcm2+fmb*
0278 . hbcm-hbcm2)+16*(p6p7*p4p8*p3p5)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)
0279 . +8*(p6p7*p5p8)*(ffmcfmb**2*hbcm4-ffmcfmb*hbcm4+fmb*hbcm3-fmb2*
0280 . hbcm2)+8*(p6p7*p4p8)*(ffmcfmb**2*hbcm4-ffmcfmb*hbcm4+fmb*hbcm3
0281 . -fmb2*hbcm2)+16*(p5p8*p3p7*p3p6)*(-ffmcfmb**2*hbcm2+ffmcfmb*
0282 . fmb*hbcm+ffmcfmb*hbcm2-fmb*hbcm)+16*(p4p8*p3p7*p3p6)*(-ffmcfmb
0283 . **2*hbcm2+ffmcfmb*fmb*hbcm+ffmcfmb*hbcm2-fmb*hbcm)+16*(fmb*
0284 . hbcm*p3p7*p4p8*p5p6+fmb*hbcm*p3p7*p5p6*p5p8+fmc*hbcm*p2p3*p4p8
0285 . *p6p7+fmc*hbcm*p2p3*p5p8*p6p7+hbcm2*p2p5*p4p8*p6p7+hbcm2*p2p5*
0286 . p5p8*p6p7))+ans2
0287 ans=ccc*ans1
0288 b(10)=ans
0289 ans=ccc*(w18*(4*p5p8*(ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*hbcm2-2*
0290 . ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3-2*fmb*fmc*hbcm-fmb*hbcm2+fmb2*
0291 . hbcm+2*fmc*hbcm2)+4*p4p8*(ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*hbcm2
0292 . -2*ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3-2*fmb*fmc*hbcm-fmb*hbcm2+
0293 . fmb2*hbcm+2*fmc*hbcm2)+8*(ffmcfmb*hbcm*p2p3*p4p8+ffmcfmb*hbcm*
0294 . p2p3*p5p8+2*hbcm*p2p4*p4p8+2*hbcm*p2p4*p5p8-hbcm*p2p5*p4p8-
0295 . hbcm*p2p5*p5p8))+w1*(4*p4p8*(ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*
0296 . hbcm2-2*ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3-2*fmb*fmc*hbcm-fmb*
0297 . hbcm2+fmb2*hbcm+2*fmc*hbcm2)+8*(ffmcfmb*hbcm*p2p3*p4p8+2*hbcm*
0298 . p2p4*p4p8-hbcm*p2p5*p4p8))+w8*(4*p2p8*(ffmcfmb**2*hbcm3+2*
0299 . ffmcfmb*fmb*hbcm2-2*ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3-2*fmb*fmc*
0300 . hbcm-fmb*hbcm2+fmb2*hbcm+2*fmc*hbcm2)+8*(ffmcfmb*hbcm*p2p3*
0301 . p2p8+2*hbcm*p2p4*p2p8-hbcm*p2p5*p2p8))+(8*p2p8*(2*fb3*fmc+2*
0302 . fb4*ffmcfmb*hbcm-hbcm)+4*p5p8*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4
0303 . *fb4*hbcm+hbcm)+8*p4p8*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*
0304 . hbcm-hbcm)))
0305 b(11)=ans
0306 b(12)=2*ccc*(8*fb3*ffmcfmb**2*hbcm2-8*fb3*ffmcfmb*hbcm2+16*fb3*
0307 . ffmcfmb*p2p3+12*fb3*fmb*fmc+4*fb3*fmb2+24*fb3*p2p4-8*fb3*p2p5+
0308 . 12*fb4*ffmcfmb*fmb*hbcm+12*fb4*ffmcfmb*fmc*hbcm-4*fb4*fmb*hbcm
0309 . -12*fb4*fmc*hbcm-3*fmb*hbcm-3*fmc*hbcm+2*hbcm2)
0310 ans2=w8*(8*(p3p5*p2p8)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(p3p4*
0311 . p2p8)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(p2p8*p2p3)*(ffmcfmb*
0312 . hbcm2-fmc*hbcm)+4*p2p8*(ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*hbcm3+
0313 . fmb*fmc*hbcm2-fmb*hbcm3+fmb2*hbcm2-fmc*hbcm3)+8*(hbcm2*p2p4*
0314 . p2p8-hbcm2*p2p5*p2p8))+(4*p5p8*(4*fb3*ffmcfmb*hbcm2-4*fb3*
0315 . hbcm2+4*fb4*fmb*hbcm+hbcm2)+4*p4p8*(-4*fb3*ffmcfmb*hbcm2+4*fb3
0316 . *hbcm2-4*fb4*fmb*hbcm-hbcm2)+4*p2p8*(-4*fb3*ffmcfmb*hbcm2+4*
0317 . fb4*fmc*hbcm-hbcm2)+32*(fb3*p2p3*p4p8-fb3*p2p8*p3p4))
0318 ans1=w18*(8*(p5p8*p3p5)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(p4p8
0319 . *p3p5)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(p5p8*p3p4)*(ffmcfmb*
0320 . hbcm2+fmb*hbcm-hbcm2)+8*(p4p8*p3p4)*(ffmcfmb*hbcm2+fmb*hbcm-
0321 . hbcm2)+8*(p5p8*p2p3)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p4p8*p2p3)*(
0322 . ffmcfmb*hbcm2-fmc*hbcm)+4*p5p8*(ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*
0323 . hbcm3+fmb*fmc*hbcm2-fmb*hbcm3+fmb2*hbcm2-fmc*hbcm3)+4*p4p8*(
0324 . ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*hbcm3+fmb*fmc*hbcm2-fmb*hbcm3+
0325 . fmb2*hbcm2-fmc*hbcm3)+8*(hbcm2*p2p4*p4p8+hbcm2*p2p4*p5p8-hbcm2
0326 . *p2p5*p4p8-hbcm2*p2p5*p5p8))+w1*(8*(p4p8*p3p5)*(-ffmcfmb*hbcm2
0327 . -fmb*hbcm+hbcm2)+8*(p4p8*p3p4)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+
0328 . 8*(p4p8*p2p3)*(ffmcfmb*hbcm2-fmc*hbcm)+4*p4p8*(ffmcfmb*fmb*
0329 . hbcm3+ffmcfmb*fmc*hbcm3+fmb*fmc*hbcm2-fmb*hbcm3+fmb2*hbcm2-fmc
0330 . *hbcm3)+8*(hbcm2*p2p4*p4p8-hbcm2*p2p5*p4p8))+ans2
0331 ans=ccc*ans1
0332 b(13)=ans
0333 b(14)=ccc*(4*p2p3*(-4*fb3*fmc-8*fb4*ffmcfmb*hbcm+hbcm)+4*p3p5*(
0334 . 4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm)+8*p3p4*(-4*fb3*
0335 . fmb-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+hbcm)+2*(-8*fb3*ffmcfmb*fmb*
0336 . hbcm2+8*fb3*ffmcfmb*fmc*hbcm2+4*fb3*fmb*hbcm2-8*fb3*fmc*hbcm2-
0337 . 4*fb4*ffmcfmb**2*hbcm3+4*fb4*ffmcfmb*hbcm3+8*fb4*fmb*fmc*hbcm-
0338 . 4*fb4*fmb2*hbcm-16*fb4*hbcm*p2p4+8*fb4*hbcm*p2p5-2*fmb*hbcm2+2
0339 . *fmc*hbcm2+hbcm3))
0340 b(15)=ccc*(w18*(8*(p5p8*p3p6)*(ffmcfmb*hbcm2-fmb*hbcm-2*fmc*
0341 . hbcm)+8*(p4p8*p3p6)*(ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm)+8*(-
0342 . hbcm2*p4p6*p4p8-hbcm2*p4p6*p5p8+hbcm2*p4p8*p5p6+hbcm2*p5p6*
0343 . p5p8))+w1*(8*(p4p8*p3p6)*(ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm)+8
0344 . *(-hbcm2*p4p6*p4p8+hbcm2*p4p8*p5p6))+w8*(8*(p3p6*p2p8)*(
0345 . ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm)+8*(-hbcm2*p2p8*p4p6+hbcm2*
0346 . p2p8*p5p6))+(4*p6p8*(-4*fb3*ffmcfmb*hbcm2+4*fb4*fmb*hbcm+8*fb4
0347 . *fmc*hbcm-hbcm2)+32*(-2*fb3*p3p4*p6p8+fb3*p3p5*p6p8+2*fb3*p3p6
0348 . *p4p8-fb3*p3p6*p5p8)))
0349 b(16)=ccc*(8*w18*(ffmcfmb*hbcm*p3p6*p4p8+ffmcfmb*hbcm*p3p6*p5p8
0350 . +2*hbcm*p4p6*p4p8+2*hbcm*p4p6*p5p8-hbcm*p4p8*p5p6-hbcm*p5p6*
0351 . p5p8)+8*w1*(ffmcfmb*hbcm*p3p6*p4p8+2*hbcm*p4p6*p4p8-hbcm*p4p8*
0352 . p5p6)+8*w8*(ffmcfmb*hbcm*p2p8*p3p6+2*hbcm*p2p8*p4p6-hbcm*p2p8*
0353 . p5p6)+4*p6p8*(4*fb3*fmb-12*fb3*fmc-8*fb4*ffmcfmb*hbcm+hbcm))
0354 b(17)=ccc*(w18*(4*p5p8*(-ffmcfmb*hbcm3+fmb*hbcm2-2*fmc*hbcm2)+4
0355 . *p4p8*(-ffmcfmb*hbcm3+fmb*hbcm2-2*fmc*hbcm2)+8*(-2*hbcm*p3p4*
0356 . p4p8-2*hbcm*p3p4*p5p8+hbcm*p3p5*p4p8+hbcm*p3p5*p5p8))+w1*(4*
0357 . p4p8*(-ffmcfmb*hbcm3+fmb*hbcm2-2*fmc*hbcm2)+8*(-2*hbcm*p3p4*
0358 . p4p8+hbcm*p3p5*p4p8))+w8*(4*p2p8*(-ffmcfmb*hbcm3+fmb*hbcm2-2*
0359 . fmc*hbcm2)+8*(-2*hbcm*p2p8*p3p4+hbcm*p2p8*p3p5))+16*(2*fb4*
0360 . hbcm*p4p8-fb4*hbcm*p5p8))
0361 b(18)=ccc*(w18*(8*(p5p8*p3p7)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(p4p8
0362 . *p3p7)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(-hbcm2*p4p7*p4p8-hbcm2*
0363 . p4p7*p5p8+hbcm2*p4p8*p5p7+hbcm2*p5p7*p5p8))+w1*(8*(p4p8*p3p7)*
0364 . (-ffmcfmb*hbcm2+fmc*hbcm)+8*(-hbcm2*p4p7*p4p8+hbcm2*p4p8*p5p7)
0365 . )+w8*(8*(p3p7*p2p8)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(-hbcm2*p2p8*
0366 . p4p7+hbcm2*p2p8*p5p7))+(4*p7p8*(4*fb3*ffmcfmb*hbcm2-4*fb4*fmc*
0367 . hbcm+hbcm2)+32*(fb3*p3p4*p7p8-fb3*p3p7*p4p8)))
0368 b(19)=ccc*(w18*(4*p5p8*(-2*ffmcfmb*hbcm2+fmb*hbcm+3*fmc*hbcm)+4
0369 . *p4p8*(-2*ffmcfmb*hbcm2+fmb*hbcm+3*fmc*hbcm))+4*w1*p4p8*(-2*
0370 . ffmcfmb*hbcm2+fmb*hbcm+3*fmc*hbcm)+4*w8*p2p8*(-2*ffmcfmb*hbcm2
0371 . +fmb*hbcm+3*fmc*hbcm)+16*(-3*fb3*p4p8+fb3*p5p8))
0372 b(20)=ccc*(8*w18*(-ffmcfmb*hbcm*p3p7*p4p8-ffmcfmb*hbcm*p3p7*
0373 . p5p8-2*hbcm*p4p7*p4p8-2*hbcm*p4p7*p5p8+hbcm*p4p8*p5p7+hbcm*
0374 . p5p7*p5p8)+8*w1*(-ffmcfmb*hbcm*p3p7*p4p8-2*hbcm*p4p7*p4p8+hbcm
0375 . *p4p8*p5p7)+8*w8*(-ffmcfmb*hbcm*p2p8*p3p7-2*hbcm*p2p8*p4p7+
0376 . hbcm*p2p8*p5p7)+8*p7p8*(-2*fb3*fmc-2*fb4*ffmcfmb*hbcm+hbcm))
0377 b(21)=2*ccc*(4*fb3*fmb-16*fb3*fmc-12*fb4*ffmcfmb*hbcm+3*hbcm)
0378 b(22)=4*ccc*(4*fb3*ffmcfmb*hbcm2+12*fb3*p3p4-4*fb3*p3p5-2*fb4*
0379 . fmb*hbcm-6*fb4*fmc*hbcm+hbcm2)
0380 b(23)=ccc*(4*p3p7*(4*fb3*fmc+8*fb4*ffmcfmb*hbcm-hbcm)+16*(2*fb4
0381 . *hbcm*p4p7-fb4*hbcm*p5p7))
0382 b(24)=ccc*(8*p3p6*(-2*fb3*fmb+6*fb3*fmc+2*fb4*ffmcfmb*hbcm-hbcm
0383 . )+16*(-2*fb4*hbcm*p4p6+fb4*hbcm*p5p6))
0384 b(25)=ccc*(4*p5p7*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm
0385 . )+8*p4p7*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+hbcm)+4*
0386 . p3p7*(-8*fb3*ffmcfmb*fmb+8*fb3*ffmcfmb*fmc+4*fb3*fmb-8*fb3*fmc
0387 . +hbcm))
0388 b(26)=ccc*(4*p5p6*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+
0389 . hbcm)+8*p4p6*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm)+4*
0390 . p3p6*(4*fb3*ffmcfmb*fmb+4*fb4*ffmcfmb**2*hbcm-4*fb4*ffmcfmb*
0391 . hbcm-ffmcfmb*hbcm))
0392 b(27)=ccc*(4*p6p7*(4*fb3*ffmcfmb*hbcm2-4*fb4*fmb*hbcm-8*fb4*fmc
0393 . *hbcm+hbcm2)+32*(-2*fb3*ffmcfmb*p3p6*p3p7+2*fb3*p3p4*p6p7-fb3*
0394 . p3p5*p6p7-2*fb3*p3p6*p4p7+fb3*p3p6*p5p7-fb3*p3p7*p4p6))
0395 b(28)=ccc*(w18*(8*(p6p7*p5p8)*(ffmcfmb*hbcm2-fmb*hbcm-2*fmc*
0396 . hbcm)+8*(p6p7*p4p8)*(ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm))+8*w1*
0397 . (p6p7*p4p8)*(ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm)+8*w8*(p6p7*
0398 . p2p8)*(ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm)+32*(-fb3*ffmcfmb*
0399 . p3p6*p7p8-fb3*ffmcfmb*p3p7*p6p8-fb3*p4p6*p7p8-2*fb3*p4p7*p6p8+
0400 . 2*fb3*p4p8*p6p7+fb3*p5p7*p6p8-fb3*p5p8*p6p7))
0401 b(29)=16*ccc*(-2*fb3*ffmcfmb*p3p6-3*fb3*p4p6+fb3*p5p6)
0402 b(30)=16*ccc*(2*fb3*ffmcfmb*p3p7+3*fb3*p4p7-fb3*p5p7)
0403 ans=ccc*(w18*(8*(p6p7*p5p8)*(fmb*hbcm2-fmc*hbcm2)+8*(p6p7*p4p8)
0404 . *(fmb*hbcm2-fmc*hbcm2)+16*(ffmcfmb*hbcm*p3p6*p3p7*p4p8+ffmcfmb
0405 . *hbcm*p3p6*p3p7*p5p8-hbcm*p3p4*p4p8*p6p7-hbcm*p3p4*p5p8*p6p7+
0406 . hbcm*p3p5*p4p8*p6p7+hbcm*p3p5*p5p8*p6p7+hbcm*p3p6*p4p7*p4p8+
0407 . hbcm*p3p6*p4p7*p5p8-hbcm*p3p6*p4p8*p5p7-hbcm*p3p6*p5p7*p5p8+
0408 . hbcm*p3p7*p4p6*p4p8+hbcm*p3p7*p4p6*p5p8))+w1*(8*(p6p7*p4p8)*(
0409 . fmb*hbcm2-fmc*hbcm2)+16*(ffmcfmb*hbcm*p3p6*p3p7*p4p8-hbcm*p3p4
0410 . *p4p8*p6p7+hbcm*p3p5*p4p8*p6p7+hbcm*p3p6*p4p7*p4p8-hbcm*p3p6*
0411 . p4p8*p5p7+hbcm*p3p7*p4p6*p4p8))+w8*(8*(p6p7*p2p8)*(fmb*hbcm2-
0412 . fmc*hbcm2)+16*(ffmcfmb*hbcm*p2p8*p3p6*p3p7-hbcm*p2p8*p3p4*p6p7
0413 . +hbcm*p2p8*p3p5*p6p7+hbcm*p2p8*p3p6*p4p7-hbcm*p2p8*p3p6*p5p7+
0414 . hbcm*p2p8*p3p7*p4p6))+(32*(p6p8*p3p7)*(-fb3*fmc-fb4*ffmcfmb*
0415 . hbcm)+8*(p7p8*p3p6)*(4*fb3*fmc-hbcm)+32*(-fb4*hbcm*p4p6*p7p8-
0416 . fb4*hbcm*p4p7*p6p8+fb4*hbcm*p4p8*p6p7+fb4*hbcm*p5p7*p6p8-fb4*
0417 . hbcm*p5p8*p6p7)))
0418 b(31)=ans
0419 b(32)=8*ccc*p6p7*(2*fb3*fmb-6*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)
0420 do 200 n=1,32
0421 c(n,1)=c(n,1)-0.09090909090909091d0*b(n)
0422 c(n,2)=c(n,2)-0.1680909685530997d0*b(n)
0423 c(n,3)=c(n,3)-0.2077659977796572d0*b(n)
0424 200 continue
0425 return
0426 end
0427
0428 subroutine amp17_1p1(cc)
0429 implicit double precision(a-h,o-z)
0430 implicit integer (i-n)
0431 dimension b(32)
0432 #include "inclcon.h"
0433 #include "inclppp.h"
0434 #include "inclamp.h"
0435 do 100 n=1,32
0436 b(n)=0.0d0
0437 100 continue
0438 ccc=cc/((ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*p3p5+fmb2+
0439 . hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3-2*ffmcfmb*p2p3-
0440 . fmc2+2*p1p2)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3-fmc2))
0441 b(1)=ccc*(16*p6p7*(-fb3*ffmcfmb**2*hbcm2+fb3*fmc2)+32*(fb3*
0442 . ffmcfmb*p1p3*p6p7+fb3*ffmcfmb*p3p6*p3p7+2*fb3*ffmcfmb*p3p7*
0443 . p4p6+fb3*p1p2*p6p7-fb3*p2p3*p6p7-3*fb3*p2p4*p6p7))
0444 ans=ccc*(w2*(16*(p5p8*p3p7*p3p6)*(-ffmcfmb**2*hbcm+ffmcfmb*hbcm
0445 . )+16*(ffmcfmb*hbcm*p3p7*p4p6*p5p8+hbcm*p1p2*p5p8*p6p7-hbcm*
0446 . p2p3*p5p8*p6p7-2*hbcm*p2p4*p5p8*p6p7))+w17*(16*(p3p7*p3p6*p2p8
0447 . )*(-ffmcfmb**2*hbcm+ffmcfmb*hbcm)+16*(p3p7*p3p6*p1p8)*(-
0448 . ffmcfmb**2*hbcm+ffmcfmb*hbcm)+16*(ffmcfmb*hbcm*p1p8*p3p7*p4p6+
0449 . ffmcfmb*hbcm*p2p8*p3p7*p4p6+hbcm*p1p2*p1p8*p6p7+hbcm*p1p2*p2p8
0450 . *p6p7-hbcm*p1p8*p2p3*p6p7-2*hbcm*p1p8*p2p4*p6p7-hbcm*p2p3*p2p8
0451 . *p6p7-2*hbcm*p2p4*p2p8*p6p7))+w12*(16*(p3p7*p3p6*p1p8)*(-
0452 . ffmcfmb**2*hbcm+ffmcfmb*hbcm)+16*(ffmcfmb*hbcm*p1p8*p3p7*p4p6+
0453 . hbcm*p1p2*p1p8*p6p7-hbcm*p1p8*p2p3*p6p7-2*hbcm*p1p8*p2p4*p6p7)
0454 . )+(8*(p7p8*p3p6)*(-ffmcfmb*hbcm+hbcm)+8*(p6p7*p2p8)*(4*fb3*fmb
0455 . +4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm)+32*(p6p8*p3p7)*(-fb3*
0456 . ffmcfmb*fmb-fb4*ffmcfmb**2*hbcm+fb4*ffmcfmb*hbcm)+8*hbcm*p4p6*
0457 . p7p8))
0458 b(2)=ans
0459 b(3)=ccc*(8*w2*(p5p8*p3p7)*(ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm)+
0460 . w17*(8*(p3p7*p2p8)*(ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm)+8*(p3p7
0461 . *p1p8)*(ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm))+8*w12*(p3p7*p1p8)*
0462 . (ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm)+(4*p7p8*(-4*fb3*ffmcfmb**2
0463 . *hbcm2+4*fb3*fmc2+fmb*hbcm+fmc*hbcm)+32*(fb3*ffmcfmb*p1p3*p7p8
0464 . +fb3*ffmcfmb*p1p8*p3p7-2*fb3*ffmcfmb*p3p7*p5p8-2*fb3*p1p2*p7p8
0465 . +2*fb3*p2p3*p7p8+3*fb3*p2p5*p7p8+fb3*p2p8*p3p7+fb3*p2p8*p5p7))
0466 . )
0467 b(4)=ccc*(16*p3p7*(fb3*ffmcfmb**2*hbcm2+2*fb3*ffmcfmb*hbcm2-fb3
0468 . *fmc2+fb4*ffmcfmb*fmb*hbcm+fb4*ffmcfmb*fmc*hbcm)+32*(-2*fb3*
0469 . ffmcfmb*p1p3*p3p7-2*fb3*ffmcfmb*p2p3*p3p7+2*fb3*ffmcfmb*p3p5*
0470 . p3p7+2*fb3*p1p2*p3p7+3*fb3*p2p3*p5p7-3*fb3*p2p5*p3p7))
0471 ans2=(4*p7p8*(ffmcfmb*hbcm3-fmc*hbcm2+hbcm3)+8*(p3p7*p2p8)*(8*
0472 . fb3*fmb-4*fb3*fmc-hbcm)+32*(p7p8*p2p3)*(-2*fb3*fmb+fb3*fmc-fb4
0473 . *ffmcfmb*hbcm)+8*(-4*fb4*ffmcfmb*hbcm*p1p8*p3p7+4*fb4*ffmcfmb*
0474 . hbcm*p3p7*p5p8+4*fb4*hbcm*p1p2*p7p8-8*fb4*hbcm*p2p5*p7p8+8*fb4
0475 . *hbcm*p2p8*p5p7-hbcm*p1p3*p7p8+hbcm*p3p5*p7p8))
0476 ans1=w2*(8*(p5p8*p3p7)*(ffmcfmb**2*hbcm3-ffmcfmb*fmc*hbcm2+
0477 . ffmcfmb*hbcm3)+16*(-ffmcfmb*hbcm*p1p3*p3p7*p5p8-ffmcfmb*hbcm*
0478 . p2p3*p3p7*p5p8+ffmcfmb*hbcm*p3p5*p3p7*p5p8+hbcm*p1p2*p3p7*p5p8
0479 . +2*hbcm*p2p3*p5p7*p5p8-2*hbcm*p2p5*p3p7*p5p8))+w17*(8*(p3p7*
0480 . p2p8)*(ffmcfmb**2*hbcm3-ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3)+8*(
0481 . p3p7*p1p8)*(ffmcfmb**2*hbcm3-ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3)+
0482 . 16*(-ffmcfmb*hbcm*p1p3*p1p8*p3p7-ffmcfmb*hbcm*p1p3*p2p8*p3p7-
0483 . ffmcfmb*hbcm*p1p8*p2p3*p3p7+ffmcfmb*hbcm*p1p8*p3p5*p3p7-
0484 . ffmcfmb*hbcm*p2p3*p2p8*p3p7+ffmcfmb*hbcm*p2p8*p3p5*p3p7+hbcm*
0485 . p1p2*p1p8*p3p7+hbcm*p1p2*p2p8*p3p7+2*hbcm*p1p8*p2p3*p5p7-2*
0486 . hbcm*p1p8*p2p5*p3p7+2*hbcm*p2p3*p2p8*p5p7-2*hbcm*p2p5*p2p8*
0487 . p3p7))+w12*(8*(p3p7*p1p8)*(ffmcfmb**2*hbcm3-ffmcfmb*fmc*hbcm2+
0488 . ffmcfmb*hbcm3)+16*(-ffmcfmb*hbcm*p1p3*p1p8*p3p7-ffmcfmb*hbcm*
0489 . p1p8*p2p3*p3p7+ffmcfmb*hbcm*p1p8*p3p5*p3p7+hbcm*p1p2*p1p8*p3p7
0490 . +2*hbcm*p1p8*p2p3*p5p7-2*hbcm*p1p8*p2p5*p3p7))+ans2
0491 ans=ccc*ans1
0492 b(5)=ans
0493 b(6)=ccc*(32*(p3p6*p2p8)*(-fb3*ffmcfmb-fb3)+16*p6p8*(-fb3*
0494 . ffmcfmb**2*hbcm2+fb3*fmc2)+32*(fb3*ffmcfmb*p1p3*p6p8-fb3*p2p4*
0495 . p6p8-3*fb3*p2p8*p4p6))
0496 b(7)=ccc*(32*(p3p6*p2p3)*(fb3*ffmcfmb+fb3)+16*p3p6*(fb3*ffmcfmb
0497 . **2*hbcm2-fb3*fmc2)+32*(-fb3*ffmcfmb*p1p3*p3p6+3*fb3*p2p3*p4p6
0498 . +fb3*p2p4*p3p6))
0499 ans=ccc*(w2*(8*(p5p8*p3p6)*(ffmcfmb**2*hbcm3-fmc2*hbcm)+16*(-
0500 . ffmcfmb*hbcm*p1p3*p3p6*p5p8+hbcm*p2p3*p3p6*p5p8+2*hbcm*p2p3*
0501 . p4p6*p5p8+hbcm*p2p4*p3p6*p5p8))+w17*(8*(p3p6*p2p8)*(ffmcfmb**2
0502 . *hbcm3-fmc2*hbcm)+8*(p3p6*p1p8)*(ffmcfmb**2*hbcm3-fmc2*hbcm)+
0503 . 16*(-ffmcfmb*hbcm*p1p3*p1p8*p3p6-ffmcfmb*hbcm*p1p3*p2p8*p3p6+
0504 . hbcm*p1p8*p2p3*p3p6+2*hbcm*p1p8*p2p3*p4p6+hbcm*p1p8*p2p4*p3p6+
0505 . hbcm*p2p3*p2p8*p3p6+2*hbcm*p2p3*p2p8*p4p6+hbcm*p2p4*p2p8*p3p6)
0506 . )+w12*(8*(p3p6*p1p8)*(ffmcfmb**2*hbcm3-fmc2*hbcm)+16*(-ffmcfmb
0507 . *hbcm*p1p3*p1p8*p3p6+hbcm*p1p8*p2p3*p3p6+2*hbcm*p1p8*p2p3*p4p6
0508 . +hbcm*p1p8*p2p4*p3p6))+(16*p6p8*(fb4*ffmcfmb**2*hbcm3-fb4*fmc2
0509 . *hbcm)+8*(p3p6*p2p8)*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-hbcm)+8*(
0510 . p6p8*p2p3)*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+hbcm)+8*(
0511 . -4*fb4*ffmcfmb*hbcm*p1p3*p6p8+4*fb4*hbcm*p2p4*p6p8+8*fb4*hbcm*
0512 . p2p8*p4p6-hbcm*p1p8*p3p6)))
0513 b(8)=ans
0514 b(9)=ccc*(8*(p6p7*p2p3)*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+hbcm)+8*
0515 . (p3p7*p3p6)*(4*fb3*ffmcfmb*fmb-ffmcfmb*hbcm)+32*(fb4*ffmcfmb*
0516 . hbcm*p3p7*p4p6+fb4*hbcm*p1p2*p6p7-2*fb4*hbcm*p2p4*p6p7))
0517 ans2=(8*(p7p8*p3p6)*(ffmcfmb*hbcm2-fmb*hbcm)+64*(p3p7*p3p6*p2p8
0518 . )*(3*fb3*ffmcfmb+fb3)+8*(p6p7*p2p8)*(-4*fb3*ffmcfmb*hbcm2-4*
0519 . fb3*hbcm2+4*fb4*fmb*hbcm+hbcm2)+8*(p6p8*p3p7)*(4*fb3*ffmcfmb**
0520 . 2*hbcm2+4*fb3*ffmcfmb*hbcm2-4*fb4*ffmcfmb*fmb*hbcm+ffmcfmb*
0521 . hbcm2)+8*(-8*fb3*ffmcfmb*p1p3*p3p7*p6p8+8*fb3*ffmcfmb*p1p8*
0522 . p3p6*p3p7-8*fb3*ffmcfmb*p2p3*p3p6*p7p8+8*fb3*ffmcfmb*p3p4*p3p7
0523 . *p6p8-8*fb3*ffmcfmb*p3p6*p3p7*p4p8+8*fb3*p1p3*p2p8*p6p7+8*fb3*
0524 . p1p8*p2p3*p6p7+16*fb3*p2p3*p2p8*p6p7-8*fb3*p2p3*p4p6*p7p8+8*
0525 . fb3*p2p3*p4p7*p6p8-16*fb3*p2p3*p4p8*p6p7-8*fb3*p2p8*p3p4*p6p7+
0526 . 32*fb3*p2p8*p3p7*p4p6+hbcm2*p1p8*p6p7))
0527 ans1=w2*(16*(p6p7*p5p8*p2p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p6p7
0528 . *p5p8)*(-ffmcfmb**2*hbcm4+fmc2*hbcm2)+16*(p5p8*p3p7*p3p6)*(
0529 . ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm)+16*(ffmcfmb*hbcm2*p1p3*p5p8
0530 . *p6p7-hbcm2*p1p2*p5p8*p6p7+hbcm2*p2p4*p5p8*p6p7))+w17*(16*(
0531 . p6p7*p2p8*p2p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p6p7*p2p3*p1p8)
0532 . *(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p6p7*p2p8)*(-ffmcfmb**2*hbcm4+
0533 . fmc2*hbcm2)+8*(p6p7*p1p8)*(-ffmcfmb**2*hbcm4+fmc2*hbcm2)+16*(
0534 . p3p7*p3p6*p2p8)*(ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm)+16*(p3p7*
0535 . p3p6*p1p8)*(ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm)+16*(ffmcfmb*
0536 . hbcm2*p1p3*p1p8*p6p7+ffmcfmb*hbcm2*p1p3*p2p8*p6p7-hbcm2*p1p2*
0537 . p1p8*p6p7-hbcm2*p1p2*p2p8*p6p7+hbcm2*p1p8*p2p4*p6p7+hbcm2*p2p4
0538 . *p2p8*p6p7))+w12*(16*(p6p7*p2p3*p1p8)*(-fmb*hbcm-fmc*hbcm+
0539 . hbcm2)+8*(p6p7*p1p8)*(-ffmcfmb**2*hbcm4+fmc2*hbcm2)+16*(p3p7*
0540 . p3p6*p1p8)*(ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm)+16*(ffmcfmb*
0541 . hbcm2*p1p3*p1p8*p6p7-hbcm2*p1p2*p1p8*p6p7+hbcm2*p1p8*p2p4*p6p7
0542 . ))+ans2
0543 ans=ccc*ans1
0544 b(10)=ans
0545 b(11)=ccc*(w2*(4*p5p8*(-ffmcfmb**2*hbcm3+fmc2*hbcm)+8*(ffmcfmb*
0546 . hbcm*p1p3*p5p8-2*hbcm*p1p2*p5p8+2*hbcm*p2p3*p5p8+3*hbcm*p2p5*
0547 . p5p8))+w17*(4*p2p8*(-ffmcfmb**2*hbcm3+fmc2*hbcm)+4*p1p8*(-
0548 . ffmcfmb**2*hbcm3+fmc2*hbcm)+8*(ffmcfmb*hbcm*p1p3*p1p8+ffmcfmb*
0549 . hbcm*p1p3*p2p8-2*hbcm*p1p2*p1p8-2*hbcm*p1p2*p2p8+2*hbcm*p1p8*
0550 . p2p3+3*hbcm*p1p8*p2p5+2*hbcm*p2p3*p2p8+3*hbcm*p2p5*p2p8))+w12*
0551 . (4*p1p8*(-ffmcfmb**2*hbcm3+fmc2*hbcm)+8*(ffmcfmb*hbcm*p1p3*
0552 . p1p8-2*hbcm*p1p2*p1p8+2*hbcm*p1p8*p2p3+3*hbcm*p1p8*p2p5))+(8*
0553 . p2p8*(-6*fb3*fmb+2*fb3*fmc-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+hbcm)
0554 . +4*hbcm*p1p8))
0555 b(12)=16*ccc*(fb3*ffmcfmb**2*hbcm2-2*fb3*ffmcfmb*p1p3-fb3*fmc2+
0556 . 3*fb3*p1p2-3*fb3*p2p3-4*fb3*p2p5)
0557 b(13)=ccc*(w2*(8*(p5p8*p2p3)*(ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm
0558 . )+8*(-hbcm2*p1p2*p5p8+2*hbcm2*p2p5*p5p8))+w17*(8*(p2p8*p2p3)*(
0559 . ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm)+8*(p2p3*p1p8)*(ffmcfmb*
0560 . hbcm2+2*fmb*hbcm+fmc*hbcm)+8*(-hbcm2*p1p2*p1p8-hbcm2*p1p2*p2p8
0561 . +2*hbcm2*p1p8*p2p5+2*hbcm2*p2p5*p2p8))+w12*(8*(p2p3*p1p8)*(
0562 . ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm)+8*(-hbcm2*p1p2*p1p8+2*hbcm2
0563 . *p1p8*p2p5))+(4*p2p8*(-4*fb3*ffmcfmb*hbcm2+12*fb3*hbcm2+8*fb4*
0564 . fmb*hbcm+4*fb4*fmc*hbcm+hbcm2)+32*(-fb3*p1p3*p2p8+fb3*p1p8*
0565 . p2p3-3*fb3*p2p3*p5p8+3*fb3*p2p8*p3p5)))
0566 b(14)=ccc*(8*p2p3*(6*fb3*fmb-2*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)
0567 . +8*(-fb4*ffmcfmb**2*hbcm3+2*fb4*ffmcfmb*hbcm*p1p3+fb4*fmc2*
0568 . hbcm-4*fb4*hbcm*p1p2+6*fb4*hbcm*p2p5))
0569 b(15)=ccc*(w2*(8*(p5p8*p3p6)*(ffmcfmb*hbcm2+fmb*hbcm)+16*hbcm2*
0570 . p4p6*p5p8)+w17*(8*(p3p6*p2p8)*(ffmcfmb*hbcm2+fmb*hbcm)+8*(p3p6
0571 . *p1p8)*(ffmcfmb*hbcm2+fmb*hbcm)+16*(hbcm2*p1p8*p4p6+hbcm2*p2p8
0572 . *p4p6))+w12*(8*(p3p6*p1p8)*(ffmcfmb*hbcm2+fmb*hbcm)+16*hbcm2*
0573 . p1p8*p4p6)+(4*p6p8*(-4*fb3*ffmcfmb*hbcm2-4*fb3*hbcm2+4*fb4*fmb
0574 . *hbcm+hbcm2)+32*(fb3*p1p3*p6p8-fb3*p1p8*p3p6+fb3*p2p3*p6p8-fb3
0575 . *p2p8*p3p6-fb3*p3p4*p6p8+fb3*p3p6*p4p8)))
0576 b(16)=ccc*(w2*(8*(p5p8*p3p6)*(-ffmcfmb*hbcm-hbcm)-24*hbcm*p4p6*
0577 . p5p8)+w17*(8*(p3p6*p2p8)*(-ffmcfmb*hbcm-hbcm)+8*(p3p6*p1p8)*(-
0578 . ffmcfmb*hbcm-hbcm)+24*(-hbcm*p1p8*p4p6-hbcm*p2p8*p4p6))+w12*(8
0579 . *(p3p6*p1p8)*(-ffmcfmb*hbcm-hbcm)-24*hbcm*p1p8*p4p6)+8*p6p8*(2
0580 . *fb3*fmb+2*fb4*ffmcfmb*hbcm-2*fb4*hbcm-hbcm))
0581 b(17)=ccc*(w2*(4*p5p8*(ffmcfmb*hbcm3-2*fmb*hbcm2+fmc*hbcm2-3*
0582 . hbcm3)+8*(hbcm*p1p3*p5p8+hbcm*p2p3*p5p8-3*hbcm*p3p5*p5p8))+w17
0583 . *(4*p2p8*(ffmcfmb*hbcm3-2*fmb*hbcm2+fmc*hbcm2-3*hbcm3)+4*p1p8*
0584 . (ffmcfmb*hbcm3-2*fmb*hbcm2+fmc*hbcm2-3*hbcm3)+8*(hbcm*p1p3*
0585 . p1p8+hbcm*p1p3*p2p8+hbcm*p1p8*p2p3-3*hbcm*p1p8*p3p5+hbcm*p2p3*
0586 . p2p8-3*hbcm*p2p8*p3p5))+w12*(4*p1p8*(ffmcfmb*hbcm3-2*fmb*hbcm2
0587 . +fmc*hbcm2-3*hbcm3)+8*(hbcm*p1p3*p1p8+hbcm*p1p8*p2p3-3*hbcm*
0588 . p1p8*p3p5))+16*(fb4*hbcm*p1p8+fb4*hbcm*p2p8-3*fb4*hbcm*p5p8))
0589 b(18)=ccc*(w2*(8*(p5p8*p3p7)*(-ffmcfmb*hbcm2-2*fmb*hbcm-fmc*
0590 . hbcm)-16*hbcm2*p5p7*p5p8)+w17*(8*(p3p7*p2p8)*(-ffmcfmb*hbcm2-2
0591 . *fmb*hbcm-fmc*hbcm)+8*(p3p7*p1p8)*(-ffmcfmb*hbcm2-2*fmb*hbcm-
0592 . fmc*hbcm)+16*(-hbcm2*p1p8*p5p7-hbcm2*p2p8*p5p7))+w12*(8*(p3p7*
0593 . p1p8)*(-ffmcfmb*hbcm2-2*fmb*hbcm-fmc*hbcm)-16*hbcm2*p1p8*p5p7)
0594 . +(4*p7p8*(4*fb3*ffmcfmb*hbcm2-12*fb3*hbcm2-8*fb4*fmb*hbcm-4*
0595 . fb4*fmc*hbcm-hbcm2)+32*(fb3*p1p3*p7p8-fb3*p1p8*p3p7+fb3*p2p3*
0596 . p7p8-fb3*p2p8*p3p7-3*fb3*p3p5*p7p8+3*fb3*p3p7*p5p8)))
0597 b(19)=ccc*(4*w2*p5p8*(-2*ffmcfmb*hbcm2-3*fmb*hbcm-fmc*hbcm+2*
0598 . hbcm2)+w17*(4*p2p8*(-2*ffmcfmb*hbcm2-3*fmb*hbcm-fmc*hbcm+2*
0599 . hbcm2)+4*p1p8*(-2*ffmcfmb*hbcm2-3*fmb*hbcm-fmc*hbcm+2*hbcm2))+
0600 . 4*w12*p1p8*(-2*ffmcfmb*hbcm2-3*fmb*hbcm-fmc*hbcm+2*hbcm2)+16*(
0601 . -fb3*p1p8-fb3*p2p8+4*fb3*p5p8))
0602 b(20)=ccc*(w2*(8*(p5p8*p3p7)*(ffmcfmb*hbcm-2*hbcm)-24*hbcm*p5p7
0603 . *p5p8)+w17*(8*(p3p7*p2p8)*(ffmcfmb*hbcm-2*hbcm)+8*(p3p7*p1p8)*
0604 . (ffmcfmb*hbcm-2*hbcm)+24*(-hbcm*p1p8*p5p7-hbcm*p2p8*p5p7))+w12
0605 . *(8*(p3p7*p1p8)*(ffmcfmb*hbcm-2*hbcm)-24*hbcm*p1p8*p5p7)+4*
0606 . p7p8*(12*fb3*fmb-4*fb3*fmc+8*fb4*ffmcfmb*hbcm-8*fb4*hbcm-hbcm)
0607 . )
0608 b(21)=2*ccc*(16*fb3*fmb-4*fb3*fmc+12*fb4*ffmcfmb*hbcm-12*fb4*
0609 . hbcm-3*hbcm)
0610 b(22)=4*ccc*(4*fb3*ffmcfmb*hbcm2-8*fb3*hbcm2+4*fb3*p1p3+4*fb3*
0611 . p2p3-16*fb3*p3p5-6*fb4*fmb*hbcm-2*fb4*fmc*hbcm-hbcm2)
0612 b(23)=ccc*(8*p3p7*(-6*fb3*fmb+2*fb3*fmc-2*fb4*ffmcfmb*hbcm+hbcm
0613 . )-48*fb4*hbcm*p5p7)
0614 b(24)=ccc*(4*p3p6*(-4*fb3*fmb-8*fb4*ffmcfmb*hbcm+hbcm)-48*fb4*
0615 . hbcm*p4p6)
0616 b(25)=4*ccc*p3p7*(-8*fb3*ffmcfmb*fmb+4*fb3*ffmcfmb*fmc-4*fb4*
0617 . ffmcfmb**2*hbcm+4*fb4*ffmcfmb*hbcm+ffmcfmb*hbcm)
0618 b(27)=ccc*(32*(p3p7*p3p6)*(-2*fb3*ffmcfmb-fb3)+4*p6p7*(4*fb3*
0619 . ffmcfmb*hbcm2+12*fb3*hbcm2-8*fb4*fmb*hbcm-4*fb4*fmc*hbcm-hbcm2
0620 . )+32*(-2*fb3*p1p3*p6p7-2*fb3*p2p3*p6p7+3*fb3*p3p4*p6p7-fb3*
0621 . p3p6*p4p7-3*fb3*p3p7*p4p6))
0622 b(28)=ccc*(8*w2*(p6p7*p5p8)*(ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm-
0623 . hbcm2)+w17*(8*(p6p7*p2p8)*(ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm-
0624 . hbcm2)+8*(p6p7*p1p8)*(ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm-hbcm2)
0625 . )+8*w12*(p6p7*p1p8)*(ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm-hbcm2)+
0626 . (32*(p7p8*p3p6)*(-fb3*ffmcfmb-fb3)+32*(-fb3*ffmcfmb*p3p7*p6p8-
0627 . 2*fb3*p1p8*p6p7-2*fb3*p2p8*p6p7-3*fb3*p4p6*p7p8-fb3*p4p7*p6p8+
0628 . 3*fb3*p4p8*p6p7)))
0629 b(29)=ccc*(16*p3p6*(-2*fb3*ffmcfmb-fb3)-64*fb3*p4p6)
0630 b(30)=ccc*(16*p3p7*(2*fb3*ffmcfmb-3*fb3)-64*fb3*p5p7)
0631 ans=ccc*(w2*(8*(p6p7*p5p8)*(-fmb*hbcm2+fmc*hbcm2+2*hbcm3)+16*(
0632 . p5p8*p3p7*p3p6)*(-ffmcfmb*hbcm-hbcm)+16*(-hbcm*p1p3*p5p8*p6p7-
0633 . hbcm*p2p3*p5p8*p6p7+2*hbcm*p3p4*p5p8*p6p7-hbcm*p3p6*p4p7*p5p8-
0634 . 2*hbcm*p3p7*p4p6*p5p8))+w17*(8*(p6p7*p2p8)*(-fmb*hbcm2+fmc*
0635 . hbcm2+2*hbcm3)+8*(p6p7*p1p8)*(-fmb*hbcm2+fmc*hbcm2+2*hbcm3)+16
0636 . *(p3p7*p3p6*p2p8)*(-ffmcfmb*hbcm-hbcm)+16*(p3p7*p3p6*p1p8)*(-
0637 . ffmcfmb*hbcm-hbcm)+16*(-hbcm*p1p3*p1p8*p6p7-hbcm*p1p3*p2p8*
0638 . p6p7-hbcm*p1p8*p2p3*p6p7+2*hbcm*p1p8*p3p4*p6p7-hbcm*p1p8*p3p6*
0639 . p4p7-2*hbcm*p1p8*p3p7*p4p6-hbcm*p2p3*p2p8*p6p7+2*hbcm*p2p8*
0640 . p3p4*p6p7-hbcm*p2p8*p3p6*p4p7-2*hbcm*p2p8*p3p7*p4p6))+w12*(8*(
0641 . p6p7*p1p8)*(-fmb*hbcm2+fmc*hbcm2+2*hbcm3)+16*(p3p7*p3p6*p1p8)*
0642 . (-ffmcfmb*hbcm-hbcm)+16*(-hbcm*p1p3*p1p8*p6p7-hbcm*p1p8*p2p3*
0643 . p6p7+2*hbcm*p1p8*p3p4*p6p7-hbcm*p1p8*p3p6*p4p7-2*hbcm*p1p8*
0644 . p3p7*p4p6))+(8*(p6p8*p3p7)*(4*fb3*fmb-4*fb4*hbcm-hbcm)+32*(
0645 . p7p8*p3p6)*(-fb3*fmb-fb4*ffmcfmb*hbcm)+32*(-fb4*hbcm*p1p8*p6p7
0646 . -fb4*hbcm*p2p8*p6p7-2*fb4*hbcm*p4p6*p7p8-fb4*hbcm*p4p7*p6p8+2*
0647 . fb4*hbcm*p4p8*p6p7)))
0648 b(31)=ans
0649 b(32)=8*ccc*p6p7*(6*fb3*fmb-2*fb3*fmc+4*fb4*ffmcfmb*hbcm-4*fb4*
0650 . hbcm-hbcm)
0651 do 200 n=1,32
0652 c(n,1)=c(n,1)-0.09090909090909091d0*b(n)
0653 c(n,2)=c(n,2)-0.1680909685530997d0*b(n)
0654 c(n,3)=c(n,3)-0.2077659977796572d0*b(n)
0655 200 continue
0656 return
0657 end
0658
0659 subroutine amp16_1p1(cc)
0660 implicit double precision(a-h,o-z)
0661 implicit integer (i-n)
0662 dimension b(32)
0663 #include "inclcon.h"
0664 #include "inclppp.h"
0665 #include "inclamp.h"
0666 do 100 n=1,32
0667 b(n)=0.0d0
0668 100 continue
0669 ccc=cc/((ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*p3p5+fmb2+
0670 . hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3-2*ffmcfmb*p2p3-
0671 . fmc2+2*p1p2)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p2p3-fmc2))
0672 b(1)=ccc*(4*p6p7*(4*fb3*ffmcfmb**2*hbcm2-4*fb3*ffmcfmb*hbcm2+4*
0673 . fb3*fmb*fmc+4*fb4*ffmcfmb*fmb*hbcm+4*fb4*ffmcfmb*fmc*hbcm-4*
0674 . fb4*fmc*hbcm-fmb*hbcm-fmc*hbcm+hbcm2)+32*(-fb3*ffmcfmb*p2p3*
0675 . p6p7+fb3*ffmcfmb*p3p6*p3p7+2*fb3*ffmcfmb*p3p7*p4p6+fb3*p1p2*
0676 . p6p7-fb3*p2p4*p6p7))
0677 ans2=w17*(8*(p6p7*p2p8)*(ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2-
0678 . ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3-fmb*fmc*hbcm+fmc*hbcm2)+8*(
0679 . p6p7*p1p8)*(ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*
0680 . hbcm2-ffmcfmb*hbcm3-fmb*fmc*hbcm+fmc*hbcm2)+16*(p3p7*p3p6*p2p8
0681 . )*(-ffmcfmb**2*hbcm+ffmcfmb*hbcm)+16*(p3p7*p3p6*p1p8)*(-
0682 . ffmcfmb**2*hbcm+ffmcfmb*hbcm)+16*(-ffmcfmb*hbcm*p1p8*p2p3*p6p7
0683 . +ffmcfmb*hbcm*p1p8*p3p7*p4p6-ffmcfmb*hbcm*p2p3*p2p8*p6p7+
0684 . ffmcfmb*hbcm*p2p8*p3p7*p4p6+hbcm*p1p2*p1p8*p6p7+hbcm*p1p2*p2p8
0685 . *p6p7-hbcm*p1p8*p2p4*p6p7-hbcm*p2p4*p2p8*p6p7))+(8*(p6p7*p4p8)
0686 . *(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+8*(p6p8*p4p7)*(4*fb3*fmc
0687 . +4*fb4*ffmcfmb*hbcm-hbcm)+8*(p7p8*p4p6)*(8*fb3*fmc+8*fb4*
0688 . ffmcfmb*hbcm-hbcm)+8*(p7p8*p3p6)*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm
0689 . -ffmcfmb*hbcm)+16*(p6p7*p2p8)*(2*fb3*fmc+2*fb4*ffmcfmb*hbcm-
0690 . hbcm)+8*(p6p7*p1p8)*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+8*(
0691 . p6p8*p3p7)*(-4*fb3*ffmcfmb*fmb+4*fb3*ffmcfmb*fmc+4*fb4*ffmcfmb
0692 . *hbcm-ffmcfmb*hbcm))
0693 ans1=w2*(8*(p6p7*p5p8)*(ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2-
0694 . ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3-fmb*fmc*hbcm+fmc*hbcm2)+16*(
0695 . p5p8*p3p7*p3p6)*(-ffmcfmb**2*hbcm+ffmcfmb*hbcm)+16*(-ffmcfmb*
0696 . hbcm*p2p3*p5p8*p6p7+ffmcfmb*hbcm*p3p7*p4p6*p5p8+hbcm*p1p2*p5p8
0697 . *p6p7-hbcm*p2p4*p5p8*p6p7))+w7*(8*(p6p7*p2p8)*(ffmcfmb**2*
0698 . hbcm3+ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3-fmb*
0699 . fmc*hbcm+fmc*hbcm2)+16*(p3p7*p3p6*p2p8)*(-ffmcfmb**2*hbcm+
0700 . ffmcfmb*hbcm)+16*(-ffmcfmb*hbcm*p2p3*p2p8*p6p7+ffmcfmb*hbcm*
0701 . p2p8*p3p7*p4p6+hbcm*p1p2*p2p8*p6p7-hbcm*p2p4*p2p8*p6p7))+ans2
0702 ans=ccc*ans1
0703 b(2)=ans
0704 ans=ccc*(w2*(16*(p5p8*p5p7)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p5p8*
0705 . p3p7)*(ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-fmc*
0706 . hbcm))+w7*(16*(p5p7*p2p8)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p3p7*
0707 . p2p8)*(ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-fmc*
0708 . hbcm))+w17*(16*(p5p7*p2p8)*(ffmcfmb*hbcm2-fmc*hbcm)+16*(p5p7*
0709 . p1p8)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p3p7*p2p8)*(ffmcfmb*fmb*hbcm
0710 . +ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-fmc*hbcm)+8*(p3p7*p1p8)*(
0711 . ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-fmc*hbcm))+(32
0712 . *(p7p8*p2p3)*(-fb3*ffmcfmb+2*fb3)+4*p7p8*(4*fb3*ffmcfmb**2*
0713 . hbcm2-4*fb3*ffmcfmb*hbcm2+8*fb3*fmb*fmc+4*fb3*fmc2+8*fb4*
0714 . ffmcfmb*fmb*hbcm+8*fb4*ffmcfmb*fmc*hbcm-4*fb4*fmc*hbcm-fmb*
0715 . hbcm-fmc*hbcm+hbcm2)+32*(fb3*ffmcfmb*p1p8*p3p7-2*fb3*ffmcfmb*
0716 . p3p7*p5p8-fb3*p1p2*p7p8+3*fb3*p2p5*p7p8+fb3*p2p8*p3p7+fb3*p2p8
0717 . *p5p7)))
0718 b(3)=ans
0719 b(4)=ccc*(8*p5p7*(-4*fb3*ffmcfmb*hbcm2-4*fb4*fmc*hbcm+hbcm2)+8*
0720 . p3p7*(-2*fb3*ffmcfmb**2*hbcm2+4*fb3*ffmcfmb*hbcm2-4*fb3*fmb*
0721 . fmc-2*fb3*fmc2-2*fb4*ffmcfmb*fmb*hbcm-2*fb4*ffmcfmb*fmc*hbcm+
0722 . fmb*hbcm+fmc*hbcm)+32*(-fb3*ffmcfmb*p1p3*p3p7-fb3*ffmcfmb*p2p3
0723 . *p3p7+2*fb3*ffmcfmb*p3p5*p3p7+fb3*p1p2*p3p7+3*fb3*p2p3*p5p7-3*
0724 . fb3*p2p5*p3p7))
0725 ans3=(16*(p5p8*p3p7)*(-4*fb3*fmc-2*fb4*ffmcfmb*hbcm+hbcm)+8*(
0726 . p7p8*p3p5)*(8*fb3*fmc+8*fb4*ffmcfmb*hbcm-hbcm)+8*(p3p7*p1p8)*(
0727 . 4*fb3*fmc-hbcm)+32*(p7p8*p1p3)*(-fb3*fmc-fb4*ffmcfmb*hbcm)+16*
0728 . (p3p7*p2p8)*(4*fb3*fmb+2*fb4*ffmcfmb*hbcm-hbcm)+8*(p7p8*p2p3)*
0729 . (-8*fb3*fmb-8*fb4*ffmcfmb*hbcm+hbcm)+4*p7p8*(4*fb3*ffmcfmb*fmb
0730 . *hbcm2-4*fb3*ffmcfmb*fmc*hbcm2+8*fb3*fmc*hbcm2+8*fb4*ffmcfmb*
0731 . hbcm3+4*fb4*fmb*fmc*hbcm-4*fb4*fmc2*hbcm-fmb*hbcm2+fmc*hbcm2-
0732 . hbcm3)+32*(fb4*hbcm*p1p2*p7p8-2*fb4*hbcm*p2p5*p7p8+2*fb4*hbcm*
0733 . p2p8*p5p7))
0734 ans2=w17*(8*(p5p7*p2p8)*(-ffmcfmb*hbcm3+fmc*hbcm2)+8*(p5p7*p1p8
0735 . )*(-ffmcfmb*hbcm3+fmc*hbcm2)+8*(p3p7*p2p8)*(-ffmcfmb*fmb*hbcm2
0736 . +ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3+fmb*fmc*hbcm-fmc2*hbcm)+8*(
0737 . p3p7*p1p8)*(-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3
0738 . +fmb*fmc*hbcm-fmc2*hbcm)+16*(-ffmcfmb*hbcm*p1p3*p1p8*p3p7-
0739 . ffmcfmb*hbcm*p1p3*p2p8*p3p7-ffmcfmb*hbcm*p1p8*p2p3*p3p7+
0740 . ffmcfmb*hbcm*p1p8*p3p5*p3p7-ffmcfmb*hbcm*p2p3*p2p8*p3p7+
0741 . ffmcfmb*hbcm*p2p8*p3p5*p3p7+hbcm*p1p2*p1p8*p3p7+hbcm*p1p2*p2p8
0742 . *p3p7+2*hbcm*p1p8*p2p3*p5p7-2*hbcm*p1p8*p2p5*p3p7+2*hbcm*p2p3*
0743 . p2p8*p5p7-2*hbcm*p2p5*p2p8*p3p7))+ans3
0744 ans1=w2*(8*(p5p8*p5p7)*(-ffmcfmb*hbcm3+fmc*hbcm2)+8*(p5p8*p3p7)
0745 . *(-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3+fmb*fmc*
0746 . hbcm-fmc2*hbcm)+16*(-ffmcfmb*hbcm*p1p3*p3p7*p5p8-ffmcfmb*hbcm*
0747 . p2p3*p3p7*p5p8+ffmcfmb*hbcm*p3p5*p3p7*p5p8+hbcm*p1p2*p3p7*p5p8
0748 . +2*hbcm*p2p3*p5p7*p5p8-2*hbcm*p2p5*p3p7*p5p8))+w7*(8*(p5p7*
0749 . p2p8)*(-ffmcfmb*hbcm3+fmc*hbcm2)+8*(p3p7*p2p8)*(-ffmcfmb*fmb*
0750 . hbcm2+ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3+fmb*fmc*hbcm-fmc2*hbcm)+
0751 . 16*(-ffmcfmb*hbcm*p1p3*p2p8*p3p7-ffmcfmb*hbcm*p2p3*p2p8*p3p7+
0752 . ffmcfmb*hbcm*p2p8*p3p5*p3p7+hbcm*p1p2*p2p8*p3p7+2*hbcm*p2p3*
0753 . p2p8*p5p7-2*hbcm*p2p5*p2p8*p3p7))+ans2
0754 ans=ccc*ans1
0755 b(5)=ans
0756 b(6)=ccc*(w2*(16*(p5p8*p4p6)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p5p8*
0757 . p3p6)*(ffmcfmb*hbcm2-fmc*hbcm))+w7*(16*(p4p6*p2p8)*(ffmcfmb*
0758 . hbcm2-fmc*hbcm)+8*(p3p6*p2p8)*(ffmcfmb*hbcm2-fmc*hbcm))+w17*(
0759 . 16*(p4p6*p2p8)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p3p6*p2p8)*(ffmcfmb
0760 . *hbcm2-fmc*hbcm)+16*(p4p6*p1p8)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(
0761 . p3p6*p1p8)*(ffmcfmb*hbcm2-fmc*hbcm))+(32*(p3p6*p2p8)*(-fb3*
0762 . ffmcfmb-fb3)+4*p6p8*(4*fb3*ffmcfmb**2*hbcm2-4*fb3*ffmcfmb*
0763 . hbcm2+4*fb3*fmb*fmc+4*fb4*ffmcfmb*fmb*hbcm+4*fb4*ffmcfmb*fmc*
0764 . hbcm-4*fb4*fmc*hbcm-fmb*hbcm-fmc*hbcm+hbcm2)+32*(-fb3*ffmcfmb*
0765 . p2p3*p6p8+fb3*p1p2*p6p8-fb3*p2p4*p6p8-3*fb3*p2p8*p4p6)))
0766 b(7)=ccc*(32*(p3p6*p2p3)*(2*fb3*ffmcfmb+fb3)+8*p4p6*(-4*fb3*
0767 . ffmcfmb*hbcm2-4*fb4*fmc*hbcm+hbcm2)+4*p3p6*(-4*fb3*ffmcfmb**2*
0768 . hbcm2-4*fb3*fmb*fmc-4*fb4*ffmcfmb*fmb*hbcm-4*fb4*ffmcfmb*fmc*
0769 . hbcm+fmb*hbcm+fmc*hbcm)+32*(-fb3*p1p2*p3p6+3*fb3*p2p3*p4p6+fb3
0770 . *p2p4*p3p6))
0771 ans2=(8*(p4p8*p3p6)*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+8*(p6p8
0772 . *p3p4)*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+8*(p3p6*p1p8)*(-4*
0773 . fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+8*(p6p8*p1p3)*(4*fb3*fmc+4*
0774 . fb4*ffmcfmb*hbcm-hbcm)+8*(p3p6*p2p8)*(4*fb3*fmb-4*fb3*fmc+hbcm
0775 . )+32*(p6p8*p2p3)*(-fb3*fmb+fb3*fmc+fb4*ffmcfmb*hbcm+fb4*hbcm)+
0776 . 4*p6p8*(4*fb3*ffmcfmb*fmb*hbcm2-4*fb3*ffmcfmb*fmc*hbcm2-4*fb3*
0777 . fmc*hbcm2-4*fb4*ffmcfmb**2*hbcm3-4*fb4*ffmcfmb*hbcm3+4*fb4*fmb
0778 . *fmc*hbcm+ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+32*(-fb4*hbcm*p1p2*
0779 . p6p8+fb4*hbcm*p2p4*p6p8+2*fb4*hbcm*p2p8*p4p6))
0780 ans1=w2*(8*(p5p8*p4p6)*(-ffmcfmb*hbcm3+fmc*hbcm2)+16*(p5p8*p3p6
0781 . *p2p3)*(ffmcfmb*hbcm+hbcm)+8*(p5p8*p3p6)*(-ffmcfmb*fmb*hbcm2+
0782 . fmb*fmc*hbcm)+16*(-hbcm*p1p2*p3p6*p5p8+2*hbcm*p2p3*p4p6*p5p8+
0783 . hbcm*p2p4*p3p6*p5p8))+w7*(8*(p4p6*p2p8)*(-ffmcfmb*hbcm3+fmc*
0784 . hbcm2)+16*(p3p6*p2p8*p2p3)*(ffmcfmb*hbcm+hbcm)+8*(p3p6*p2p8)*(
0785 . -ffmcfmb*fmb*hbcm2+fmb*fmc*hbcm)+16*(-hbcm*p1p2*p2p8*p3p6+2*
0786 . hbcm*p2p3*p2p8*p4p6+hbcm*p2p4*p2p8*p3p6))+w17*(8*(p4p6*p2p8)*(
0787 . -ffmcfmb*hbcm3+fmc*hbcm2)+8*(p4p6*p1p8)*(-ffmcfmb*hbcm3+fmc*
0788 . hbcm2)+16*(p3p6*p2p8*p2p3)*(ffmcfmb*hbcm+hbcm)+16*(p3p6*p2p3*
0789 . p1p8)*(ffmcfmb*hbcm+hbcm)+8*(p3p6*p2p8)*(-ffmcfmb*fmb*hbcm2+
0790 . fmb*fmc*hbcm)+8*(p3p6*p1p8)*(-ffmcfmb*fmb*hbcm2+fmb*fmc*hbcm)+
0791 . 16*(-hbcm*p1p2*p1p8*p3p6-hbcm*p1p2*p2p8*p3p6+2*hbcm*p1p8*p2p3*
0792 . p4p6+hbcm*p1p8*p2p4*p3p6+2*hbcm*p2p3*p2p8*p4p6+hbcm*p2p4*p2p8*
0793 . p3p6))+ans2
0794 ans=ccc*ans1
0795 b(8)=ans
0796 b(9)=ccc*(16*(p4p6*p3p7)*(-4*fb3*fmc-2*fb4*ffmcfmb*hbcm+hbcm)+8
0797 . *(p4p7*p3p6)*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+8*(p6p7*p3p4
0798 . )*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+8*(p6p7*p2p3)*(-4*fb3*
0799 . fmc-8*fb4*ffmcfmb*hbcm+hbcm)+8*(p6p7*p1p3)*(-4*fb3*fmc-4*fb4*
0800 . ffmcfmb*hbcm+hbcm)+8*(p3p7*p3p6)*(4*fb3*ffmcfmb*fmb-4*fb3*
0801 . ffmcfmb*fmc-4*fb3*fmc-4*fb4*ffmcfmb**2*hbcm-4*fb4*ffmcfmb*hbcm
0802 . +hbcm)+4*p6p7*(-4*fb3*ffmcfmb*fmb*hbcm2+4*fb3*ffmcfmb*fmc*
0803 . hbcm2+4*fb3*fmc*hbcm2+4*fb4*ffmcfmb**2*hbcm3+4*fb4*ffmcfmb*
0804 . hbcm3-4*fb4*fmb*fmc*hbcm+fmb*hbcm2-fmc*hbcm2-hbcm3)+32*(fb4*
0805 . hbcm*p1p2*p6p7-fb4*hbcm*p2p4*p6p7))
0806 ans3=(64*(p3p7*p3p6*p2p8)*(3*fb3*ffmcfmb+fb3)+8*(p6p7*p4p8)*(4*
0807 . fb3*ffmcfmb*hbcm2+4*fb4*fmc*hbcm-hbcm2)+8*(p6p8*p4p7)*(-4*fb3*
0808 . ffmcfmb*hbcm2-4*fb4*fmc*hbcm+hbcm2)+8*(p7p8*p4p6)*(4*fb3*
0809 . ffmcfmb*hbcm2+4*fb4*fmc*hbcm-hbcm2)+8*(p6p8*p3p7)*(4*fb3*
0810 . ffmcfmb*hbcm2-4*fb4*ffmcfmb*fmb*hbcm-4*fb4*ffmcfmb*fmc*hbcm+
0811 . ffmcfmb*hbcm2+fmc*hbcm)+16*(p6p7*p2p8)*(-2*fb3*ffmcfmb*hbcm2-2
0812 . *fb4*fmc*hbcm+hbcm2)+8*(p6p7*p1p8)*(-4*fb3*ffmcfmb*hbcm2-4*fb4
0813 . *fmc*hbcm+hbcm2)+8*(p7p8*p3p6)*(4*fb3*ffmcfmb**2*hbcm2+4*fb4*
0814 . ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-fmb*hbcm-fmc*hbcm)+64*(-fb3*
0815 . ffmcfmb*p1p3*p3p7*p6p8+fb3*ffmcfmb*p1p8*p3p6*p3p7-fb3*ffmcfmb*
0816 . p2p3*p3p6*p7p8+fb3*ffmcfmb*p3p4*p3p7*p6p8-fb3*ffmcfmb*p3p6*
0817 . p3p7*p4p8+fb3*p1p8*p2p3*p6p7+fb3*p2p3*p2p8*p6p7-fb3*p2p3*p4p6*
0818 . p7p8+fb3*p2p3*p4p7*p6p8-fb3*p2p3*p4p8*p6p7+4*fb3*p2p8*p3p7*
0819 . p4p6))
0820 ans2=w17*(16*(p4p6*p3p7*p2p8)*(-ffmcfmb*hbcm2+fmc*hbcm)+16*(
0821 . p4p7*p3p6*p2p8)*(ffmcfmb*hbcm2-fmc*hbcm)+16*(p6p7*p3p4*p2p8)*(
0822 . -ffmcfmb*hbcm2+fmc*hbcm)+16*(p6p7*p2p8*p2p3)*(ffmcfmb*hbcm2-
0823 . fmb*hbcm-fmc*hbcm+hbcm2)+16*(p4p6*p3p7*p1p8)*(-ffmcfmb*hbcm2+
0824 . fmc*hbcm)+16*(p4p7*p3p6*p1p8)*(ffmcfmb*hbcm2-fmc*hbcm)+16*(
0825 . p6p7*p3p4*p1p8)*(-ffmcfmb*hbcm2+fmc*hbcm)+16*(p6p7*p2p3*p1p8)*
0826 . (ffmcfmb*hbcm2-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p6p7*p2p8*p1p3)*(
0827 . ffmcfmb*hbcm2-fmc*hbcm)+16*(p6p7*p1p8*p1p3)*(ffmcfmb*hbcm2-fmc
0828 . *hbcm)+8*(p6p7*p2p8)*(-ffmcfmb**2*hbcm4+ffmcfmb*fmb*hbcm3+
0829 . ffmcfmb*fmc*hbcm3-ffmcfmb*hbcm4-fmb*fmc*hbcm2+fmc*hbcm3)+8*(
0830 . p6p7*p1p8)*(-ffmcfmb**2*hbcm4+ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*
0831 . hbcm3-ffmcfmb*hbcm4-fmb*fmc*hbcm2+fmc*hbcm3)+16*(p3p7*p3p6*
0832 . p2p8)*(ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm)+16*(p3p7*p3p6*p1p8)*
0833 . (ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm)+16*(-hbcm2*p1p2*p1p8*p6p7-
0834 . hbcm2*p1p2*p2p8*p6p7+hbcm2*p1p8*p2p4*p6p7+hbcm2*p2p4*p2p8*p6p7
0835 . ))+ans3
0836 ans1=w2*(16*(p5p8*p4p6*p3p7)*(-ffmcfmb*hbcm2+fmc*hbcm)+16*(p5p8
0837 . *p4p7*p3p6)*(ffmcfmb*hbcm2-fmc*hbcm)+16*(p6p7*p5p8*p3p4)*(-
0838 . ffmcfmb*hbcm2+fmc*hbcm)+16*(p6p7*p5p8*p2p3)*(ffmcfmb*hbcm2-fmb
0839 . *hbcm-fmc*hbcm+hbcm2)+16*(p6p7*p5p8*p1p3)*(ffmcfmb*hbcm2-fmc*
0840 . hbcm)+8*(p6p7*p5p8)*(-ffmcfmb**2*hbcm4+ffmcfmb*fmb*hbcm3+
0841 . ffmcfmb*fmc*hbcm3-ffmcfmb*hbcm4-fmb*fmc*hbcm2+fmc*hbcm3)+16*(
0842 . p5p8*p3p7*p3p6)*(ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm)+16*(-hbcm2
0843 . *p1p2*p5p8*p6p7+hbcm2*p2p4*p5p8*p6p7))+w7*(16*(p4p6*p3p7*p2p8)
0844 . *(-ffmcfmb*hbcm2+fmc*hbcm)+16*(p4p7*p3p6*p2p8)*(ffmcfmb*hbcm2-
0845 . fmc*hbcm)+16*(p6p7*p3p4*p2p8)*(-ffmcfmb*hbcm2+fmc*hbcm)+16*(
0846 . p6p7*p2p8*p2p3)*(ffmcfmb*hbcm2-fmb*hbcm-fmc*hbcm+hbcm2)+16*(
0847 . p6p7*p2p8*p1p3)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p6p7*p2p8)*(-
0848 . ffmcfmb**2*hbcm4+ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*hbcm3-ffmcfmb*
0849 . hbcm4-fmb*fmc*hbcm2+fmc*hbcm3)+16*(p3p7*p3p6*p2p8)*(ffmcfmb**2
0850 . *hbcm2-ffmcfmb*fmb*hbcm)+16*(-hbcm2*p1p2*p2p8*p6p7+hbcm2*p2p4*
0851 . p2p8*p6p7))+ans2
0852 ans=ccc*ans1
0853 b(10)=ans
0854 ans=ccc*(w2*(8*(p5p8*p2p3)*(-ffmcfmb*hbcm+2*hbcm)+4*p5p8*(
0855 . ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*hbcm2-2*ffmcfmb*fmc*hbcm2-
0856 . ffmcfmb*hbcm3-2*fmb*fmc*hbcm+fmc*hbcm2+fmc2*hbcm)+8*(-hbcm*
0857 . p1p2*p5p8+3*hbcm*p2p5*p5p8))+w7*(8*(p2p8*p2p3)*(-ffmcfmb*hbcm+
0858 . 2*hbcm)+4*p2p8*(ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*hbcm2-2*ffmcfmb
0859 . *fmc*hbcm2-ffmcfmb*hbcm3-2*fmb*fmc*hbcm+fmc*hbcm2+fmc2*hbcm)+8
0860 . *(-hbcm*p1p2*p2p8+3*hbcm*p2p5*p2p8))+w17*(8*(p2p8*p2p3)*(-
0861 . ffmcfmb*hbcm+2*hbcm)+8*(p2p3*p1p8)*(-ffmcfmb*hbcm+2*hbcm)+4*
0862 . p2p8*(ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*hbcm2-2*ffmcfmb*fmc*hbcm2
0863 . -ffmcfmb*hbcm3-2*fmb*fmc*hbcm+fmc*hbcm2+fmc2*hbcm)+4*p1p8*(
0864 . ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*hbcm2-2*ffmcfmb*fmc*hbcm2-
0865 . ffmcfmb*hbcm3-2*fmb*fmc*hbcm+fmc*hbcm2+fmc2*hbcm)+8*(-hbcm*
0866 . p1p2*p1p8-hbcm*p1p2*p2p8+3*hbcm*p1p8*p2p5+3*hbcm*p2p5*p2p8))+(
0867 . 12*p5p8*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+4*p1p8*(-4*fb3*fmc
0868 . -4*fb4*ffmcfmb*hbcm+hbcm)+8*p2p8*(-6*fb3*fmb-6*fb4*ffmcfmb*
0869 . hbcm+4*fb4*hbcm+hbcm)))
0870 b(11)=ans
0871 b(12)=ccc*(16*p2p3*(2*fb3*ffmcfmb-3*fb3)+2*(-8*fb3*ffmcfmb**2*
0872 . hbcm2+8*fb3*ffmcfmb*hbcm2-12*fb3*fmb*fmc-4*fb3*fmc2+8*fb3*p1p2
0873 . -32*fb3*p2p5-12*fb4*ffmcfmb*fmb*hbcm-12*fb4*ffmcfmb*fmc*hbcm+8
0874 . *fb4*fmc*hbcm+3*fmb*hbcm+3*fmc*hbcm-2*hbcm2))
0875 ans2=w17*(16*(p3p5*p2p8)*(-ffmcfmb*hbcm2+fmc*hbcm)+16*(p2p8*
0876 . p2p3)*(ffmcfmb*hbcm2+fmb*hbcm)+16*(p3p5*p1p8)*(-ffmcfmb*hbcm2+
0877 . fmc*hbcm)+16*(p2p3*p1p8)*(ffmcfmb*hbcm2+fmb*hbcm)+8*(p2p8*p1p3
0878 . )*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p1p8*p1p3)*(ffmcfmb*hbcm2-fmc*
0879 . hbcm)+4*p2p8*(-ffmcfmb*fmb*hbcm3-ffmcfmb*fmc*hbcm3-2*ffmcfmb*
0880 . hbcm4+fmb*fmc*hbcm2+2*fmc*hbcm3+fmc2*hbcm2)+4*p1p8*(-ffmcfmb*
0881 . fmb*hbcm3-ffmcfmb*fmc*hbcm3-2*ffmcfmb*hbcm4+fmb*fmc*hbcm2+2*
0882 . fmc*hbcm3+fmc2*hbcm2)+8*(-hbcm2*p1p2*p1p8-hbcm2*p1p2*p2p8+2*
0883 . hbcm2*p1p8*p2p5+2*hbcm2*p2p5*p2p8))+(8*p5p8*(4*fb3*ffmcfmb*
0884 . hbcm2+4*fb4*fmc*hbcm-hbcm2)+8*p2p8*(-4*fb3*ffmcfmb*hbcm2+6*fb3
0885 . *hbcm2+4*fb4*fmb*hbcm+hbcm2)+4*p1p8*(-4*fb3*ffmcfmb*hbcm2-4*
0886 . fb4*fmc*hbcm+hbcm2)+32*(-fb3*p1p3*p2p8+fb3*p1p8*p2p3-3*fb3*
0887 . p2p3*p5p8+3*fb3*p2p8*p3p5))
0888 ans1=w2*(16*(p5p8*p3p5)*(-ffmcfmb*hbcm2+fmc*hbcm)+16*(p5p8*p2p3
0889 . )*(ffmcfmb*hbcm2+fmb*hbcm)+8*(p5p8*p1p3)*(ffmcfmb*hbcm2-fmc*
0890 . hbcm)+4*p5p8*(-ffmcfmb*fmb*hbcm3-ffmcfmb*fmc*hbcm3-2*ffmcfmb*
0891 . hbcm4+fmb*fmc*hbcm2+2*fmc*hbcm3+fmc2*hbcm2)+8*(-hbcm2*p1p2*
0892 . p5p8+2*hbcm2*p2p5*p5p8))+w7*(16*(p3p5*p2p8)*(-ffmcfmb*hbcm2+
0893 . fmc*hbcm)+16*(p2p8*p2p3)*(ffmcfmb*hbcm2+fmb*hbcm)+8*(p2p8*p1p3
0894 . )*(ffmcfmb*hbcm2-fmc*hbcm)+4*p2p8*(-ffmcfmb*fmb*hbcm3-ffmcfmb*
0895 . fmc*hbcm3-2*ffmcfmb*hbcm4+fmb*fmc*hbcm2+2*fmc*hbcm3+fmc2*hbcm2
0896 . )+8*(-hbcm2*p1p2*p2p8+2*hbcm2*p2p5*p2p8))+ans2
0897 ans=ccc*ans1
0898 b(13)=ans
0899 b(14)=ccc*(12*p3p5*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+4*p1p3*
0900 . (4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+4*p2p3*(12*fb3*fmb+8*fb4*
0901 . ffmcfmb*hbcm-3*hbcm)+2*(-8*fb3*ffmcfmb*fmb*hbcm2+8*fb3*ffmcfmb
0902 . *fmc*hbcm2-12*fb3*fmc*hbcm2+4*fb4*ffmcfmb**2*hbcm3-12*fb4*
0903 . ffmcfmb*hbcm3-8*fb4*fmb*fmc*hbcm+4*fb4*fmc2*hbcm-8*fb4*hbcm*
0904 . p1p2+24*fb4*hbcm*p2p5+2*fmb*hbcm2-2*fmc*hbcm2+3*hbcm3))
0905 b(15)=ccc*(w2*(8*(p5p8*p3p6)*(ffmcfmb*hbcm2+fmb*hbcm)+16*hbcm2*
0906 . p4p6*p5p8)+w7*(8*(p3p6*p2p8)*(ffmcfmb*hbcm2+fmb*hbcm)+16*hbcm2
0907 . *p2p8*p4p6)+w17*(8*(p3p6*p2p8)*(ffmcfmb*hbcm2+fmb*hbcm)+8*(
0908 . p3p6*p1p8)*(ffmcfmb*hbcm2+fmb*hbcm)+16*(hbcm2*p1p8*p4p6+hbcm2*
0909 . p2p8*p4p6))+(4*p6p8*(-4*fb3*ffmcfmb*hbcm2-4*fb3*hbcm2+4*fb4*
0910 . fmb*hbcm+hbcm2)+32*(fb3*p1p3*p6p8-fb3*p1p8*p3p6+fb3*p2p3*p6p8-
0911 . fb3*p2p8*p3p6-fb3*p3p4*p6p8+fb3*p3p6*p4p8)))
0912 b(16)=ccc*(w2*(8*(p5p8*p3p6)*(-ffmcfmb*hbcm-hbcm)-24*hbcm*p4p6*
0913 . p5p8)+w7*(8*(p3p6*p2p8)*(-ffmcfmb*hbcm-hbcm)-24*hbcm*p2p8*p4p6
0914 . )+w17*(8*(p3p6*p2p8)*(-ffmcfmb*hbcm-hbcm)+8*(p3p6*p1p8)*(-
0915 . ffmcfmb*hbcm-hbcm)+24*(-hbcm*p1p8*p4p6-hbcm*p2p8*p4p6))+8*p6p8
0916 . *(2*fb3*fmb+2*fb4*ffmcfmb*hbcm-2*fb4*hbcm-hbcm))
0917 b(17)=ccc*(w2*(4*p5p8*(ffmcfmb*hbcm3-2*fmb*hbcm2+fmc*hbcm2-3*
0918 . hbcm3)+8*(hbcm*p1p3*p5p8+hbcm*p2p3*p5p8-3*hbcm*p3p5*p5p8))+w7*
0919 . (4*p2p8*(ffmcfmb*hbcm3-2*fmb*hbcm2+fmc*hbcm2-3*hbcm3)+8*(hbcm*
0920 . p1p3*p2p8+hbcm*p2p3*p2p8-3*hbcm*p2p8*p3p5))+w17*(4*p2p8*(
0921 . ffmcfmb*hbcm3-2*fmb*hbcm2+fmc*hbcm2-3*hbcm3)+4*p1p8*(ffmcfmb*
0922 . hbcm3-2*fmb*hbcm2+fmc*hbcm2-3*hbcm3)+8*(hbcm*p1p3*p1p8+hbcm*
0923 . p1p3*p2p8+hbcm*p1p8*p2p3-3*hbcm*p1p8*p3p5+hbcm*p2p3*p2p8-3*
0924 . hbcm*p2p8*p3p5))+16*(fb4*hbcm*p1p8+fb4*hbcm*p2p8-3*fb4*hbcm*
0925 . p5p8))
0926 b(18)=ccc*(w2*(8*(p5p8*p3p7)*(-ffmcfmb*hbcm2-2*fmb*hbcm-fmc*
0927 . hbcm)-16*hbcm2*p5p7*p5p8)+w7*(8*(p3p7*p2p8)*(-ffmcfmb*hbcm2-2*
0928 . fmb*hbcm-fmc*hbcm)-16*hbcm2*p2p8*p5p7)+w17*(8*(p3p7*p2p8)*(-
0929 . ffmcfmb*hbcm2-2*fmb*hbcm-fmc*hbcm)+8*(p3p7*p1p8)*(-ffmcfmb*
0930 . hbcm2-2*fmb*hbcm-fmc*hbcm)+16*(-hbcm2*p1p8*p5p7-hbcm2*p2p8*
0931 . p5p7))+(4*p7p8*(4*fb3*ffmcfmb*hbcm2-12*fb3*hbcm2-8*fb4*fmb*
0932 . hbcm-4*fb4*fmc*hbcm-hbcm2)+32*(fb3*p1p3*p7p8-fb3*p1p8*p3p7+fb3
0933 . *p2p3*p7p8-fb3*p2p8*p3p7-3*fb3*p3p5*p7p8+3*fb3*p3p7*p5p8)))
0934 b(19)=ccc*(4*w2*p5p8*(-2*ffmcfmb*hbcm2-3*fmb*hbcm-fmc*hbcm+2*
0935 . hbcm2)+4*w7*p2p8*(-2*ffmcfmb*hbcm2-3*fmb*hbcm-fmc*hbcm+2*hbcm2
0936 . )+w17*(4*p2p8*(-2*ffmcfmb*hbcm2-3*fmb*hbcm-fmc*hbcm+2*hbcm2)+4
0937 . *p1p8*(-2*ffmcfmb*hbcm2-3*fmb*hbcm-fmc*hbcm+2*hbcm2))+16*(-fb3
0938 . *p1p8-fb3*p2p8+4*fb3*p5p8))
0939 b(20)=ccc*(w2*(8*(p5p8*p3p7)*(ffmcfmb*hbcm-2*hbcm)-24*hbcm*p5p7
0940 . *p5p8)+w7*(8*(p3p7*p2p8)*(ffmcfmb*hbcm-2*hbcm)-24*hbcm*p2p8*
0941 . p5p7)+w17*(8*(p3p7*p2p8)*(ffmcfmb*hbcm-2*hbcm)+8*(p3p7*p1p8)*(
0942 . ffmcfmb*hbcm-2*hbcm)+24*(-hbcm*p1p8*p5p7-hbcm*p2p8*p5p7))+4*
0943 . p7p8*(12*fb3*fmb-4*fb3*fmc+8*fb4*ffmcfmb*hbcm-8*fb4*hbcm-hbcm)
0944 . )
0945 b(21)=2*ccc*(16*fb3*fmb-4*fb3*fmc+12*fb4*ffmcfmb*hbcm-12*fb4*
0946 . hbcm-3*hbcm)
0947 b(22)=4*ccc*(4*fb3*ffmcfmb*hbcm2-8*fb3*hbcm2+4*fb3*p1p3+4*fb3*
0948 . p2p3-16*fb3*p3p5-6*fb4*fmb*hbcm-2*fb4*fmc*hbcm-hbcm2)
0949 b(23)=ccc*(8*p3p7*(-6*fb3*fmb+2*fb3*fmc-2*fb4*ffmcfmb*hbcm+hbcm
0950 . )-48*fb4*hbcm*p5p7)
0951 b(24)=ccc*(4*p3p6*(-4*fb3*fmb-8*fb4*ffmcfmb*hbcm+hbcm)-48*fb4*
0952 . hbcm*p4p6)
0953 b(25)=ccc*(12*p5p7*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+8*p3p7*
0954 . (-4*fb3*ffmcfmb*fmb+4*fb3*ffmcfmb*fmc-4*fb3*fmc-2*fb4*ffmcfmb*
0955 . hbcm+hbcm))
0956 b(26)=ccc*(12*p4p6*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+4*p3p6*
0957 . (-4*fb3*ffmcfmb*fmc-4*fb3*fmc-4*fb4*ffmcfmb**2*hbcm-4*fb4*
0958 . ffmcfmb*hbcm+ffmcfmb*hbcm+hbcm))
0959 b(27)=ccc*(32*(p3p7*p3p6)*(-2*fb3*ffmcfmb-fb3)+4*p6p7*(4*fb3*
0960 . ffmcfmb*hbcm2+4*fb3*hbcm2-4*fb4*fmb*hbcm-hbcm2)+32*(-fb3*p1p3*
0961 . p6p7-fb3*p2p3*p6p7+fb3*p3p4*p6p7-fb3*p3p6*p4p7-3*fb3*p3p7*p4p6
0962 . ))
0963 b(28)=ccc*(8*w2*(p6p7*p5p8)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*w7
0964 . *(p6p7*p2p8)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+w17*(8*(p6p7*p2p8)
0965 . *(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(p6p7*p1p8)*(ffmcfmb*hbcm2+
0966 . fmb*hbcm-hbcm2))+(32*(p7p8*p3p6)*(-fb3*ffmcfmb-fb3)+32*(-fb3*
0967 . ffmcfmb*p3p7*p6p8-fb3*p1p8*p6p7-fb3*p2p8*p6p7-3*fb3*p4p6*p7p8-
0968 . fb3*p4p7*p6p8+fb3*p4p8*p6p7)))
0969 b(29)=ccc*(16*p3p6*(-2*fb3*ffmcfmb-fb3)-64*fb3*p4p6)
0970 b(30)=ccc*(16*p3p7*(2*fb3*ffmcfmb-3*fb3)-64*fb3*p5p7)
0971 ans=ccc*(w2*(8*(p6p7*p5p8)*(ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+16*(
0972 . p5p8*p3p7*p3p6)*(-ffmcfmb*hbcm-hbcm)+16*(-hbcm*p1p3*p5p8*p6p7-
0973 . hbcm*p2p3*p5p8*p6p7+hbcm*p3p4*p5p8*p6p7-hbcm*p3p6*p4p7*p5p8-2*
0974 . hbcm*p3p7*p4p6*p5p8))+w7*(8*(p6p7*p2p8)*(ffmcfmb*hbcm3-fmb*
0975 . hbcm2+hbcm3)+16*(p3p7*p3p6*p2p8)*(-ffmcfmb*hbcm-hbcm)+16*(-
0976 . hbcm*p1p3*p2p8*p6p7-hbcm*p2p3*p2p8*p6p7+hbcm*p2p8*p3p4*p6p7-
0977 . hbcm*p2p8*p3p6*p4p7-2*hbcm*p2p8*p3p7*p4p6))+w17*(8*(p6p7*p2p8)
0978 . *(ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+8*(p6p7*p1p8)*(ffmcfmb*hbcm3-
0979 . fmb*hbcm2+hbcm3)+16*(p3p7*p3p6*p2p8)*(-ffmcfmb*hbcm-hbcm)+16*(
0980 . p3p7*p3p6*p1p8)*(-ffmcfmb*hbcm-hbcm)+16*(-hbcm*p1p3*p1p8*p6p7-
0981 . hbcm*p1p3*p2p8*p6p7-hbcm*p1p8*p2p3*p6p7+hbcm*p1p8*p3p4*p6p7-
0982 . hbcm*p1p8*p3p6*p4p7-2*hbcm*p1p8*p3p7*p4p6-hbcm*p2p3*p2p8*p6p7+
0983 . hbcm*p2p8*p3p4*p6p7-hbcm*p2p8*p3p6*p4p7-2*hbcm*p2p8*p3p7*p4p6)
0984 . )+(8*(p6p8*p3p7)*(4*fb3*fmb-4*fb4*hbcm-hbcm)+32*(p7p8*p3p6)*(-
0985 . fb3*fmb-fb4*ffmcfmb*hbcm)+32*(-fb4*hbcm*p1p8*p6p7-fb4*hbcm*
0986 . p2p8*p6p7-2*fb4*hbcm*p4p6*p7p8-fb4*hbcm*p4p7*p6p8+fb4*hbcm*
0987 . p4p8*p6p7)))
0988 b(31)=ans
0989 b(32)=4*ccc*p6p7*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm)
0990 do 200 n=1,32
0991 c(n,1)=c(n,1)-0.1818181818181818d0*b(n)
0992 c(n,2)=c(n,2)-0.05883183899358491d0*b(n)
0993 c(n,3)=c(n,3)-0.2077659977796572d0*b(n)
0994 200 continue
0995 return
0996 end
0997
0998 subroutine amp15_1p1(cc)
0999 implicit double precision(a-h,o-z)
1000 implicit integer (i-n)
1001 dimension b(32)
1002 #include "inclcon.h"
1003 #include "inclppp.h"
1004 #include "inclamp.h"
1005 do 100 n=1,32
1006 b(n)=0.0d0
1007 100 continue
1008 ccc=cc/((-2*p2p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2+2*ffmcfmb*
1009 . p2p3-2*ffmcfmb*p3p5+fmb2+hbcm2-2*p2p3-2*p2p5+2*p3p5)*(ffmcfmb
1010 . **2*hbcm2-2*ffmcfmb*p1p3-fmc2))
1011 b(1)=32*ccc*(fb3*p3p6*p5p7+2*fb3*p4p6*p5p7)
1012 b(2)=ccc*(w16*(16*(p5p8*p5p7*p3p6)*(-ffmcfmb*hbcm+hbcm)+16*(
1013 . p5p7*p3p6*p2p8)*(ffmcfmb*hbcm-hbcm)+16*(-hbcm*p2p8*p4p6*p5p7+
1014 . hbcm*p4p6*p5p7*p5p8))+w12*(16*(p5p7*p3p6*p1p8)*(-ffmcfmb*hbcm+
1015 . hbcm)+16*hbcm*p1p8*p4p6*p5p7)+32*(p6p8*p5p7)*(-fb3*fmb-fb4*
1016 . ffmcfmb*hbcm+fb4*hbcm))
1017 b(3)=ccc*(w16*(8*(p5p8*p5p7)*(fmb*hbcm+fmc*hbcm)+8*(p5p7*p2p8)*
1018 . (-fmb*hbcm-fmc*hbcm))+8*w12*(p5p7*p1p8)*(fmb*hbcm+fmc*hbcm)+32
1019 . *(fb3*p1p8*p5p7+2*fb3*p2p8*p5p7-2*fb3*p5p7*p5p8))
1020 b(4)=ccc*(16*p5p7*(2*fb3*hbcm2+fb4*fmb*hbcm+fb4*fmc*hbcm)+32*(-
1021 . fb3*p1p3*p5p7-2*fb3*p2p3*p5p7+2*fb3*p3p5*p5p7))
1022 b(5)=ccc*(w16*(8*(p5p8*p5p7)*(ffmcfmb*hbcm3-fmc*hbcm2+hbcm3)+8*
1023 . (p5p7*p2p8)*(-ffmcfmb*hbcm3+fmc*hbcm2-hbcm3)+16*(hbcm*p1p3*
1024 . p2p8*p5p7-hbcm*p1p3*p5p7*p5p8+hbcm*p2p3*p2p8*p5p7-hbcm*p2p3*
1025 . p5p7*p5p8-hbcm*p2p8*p3p5*p5p7+hbcm*p3p5*p5p7*p5p8))+w12*(8*(
1026 . p5p7*p1p8)*(ffmcfmb*hbcm3-fmc*hbcm2+hbcm3)+16*(-hbcm*p1p3*p1p8
1027 . *p5p7-hbcm*p1p8*p2p3*p5p7+hbcm*p1p8*p3p5*p5p7))+32*(-fb4*hbcm*
1028 . p1p8*p5p7-fb4*hbcm*p2p8*p5p7+fb4*hbcm*p5p7*p5p8))
1029 b(6)=32*ccc*(fb3*p1p2*p6p8-fb3*p2p3*p6p8-fb3*p2p4*p6p8)
1030 b(7)=32*ccc*(-fb3*p1p2*p3p6+fb3*p2p3*p3p6+fb3*p2p4*p3p6)
1031 b(8)=ccc*(16*w16*(hbcm*p1p2*p2p8*p3p6-hbcm*p1p2*p3p6*p5p8-hbcm*
1032 . p2p3*p2p8*p3p6+hbcm*p2p3*p3p6*p5p8-hbcm*p2p4*p2p8*p3p6+hbcm*
1033 . p2p4*p3p6*p5p8)+16*w12*(-hbcm*p1p2*p1p8*p3p6+hbcm*p1p8*p2p3*
1034 . p3p6+hbcm*p1p8*p2p4*p3p6)+32*(-fb4*hbcm*p1p2*p6p8+fb4*hbcm*
1035 . p2p3*p6p8+fb4*hbcm*p2p4*p6p8))
1036 b(9)=ccc*(8*(p5p7*p3p6)*(4*fb3*fmb-hbcm)+32*fb4*hbcm*p4p6*p5p7)
1037 b(10)=ccc*(w16*(16*(p5p8*p5p7*p3p6)*(ffmcfmb*hbcm2-fmb*hbcm)+16
1038 . *(p5p7*p3p6*p2p8)*(-ffmcfmb*hbcm2+fmb*hbcm))+16*w12*(p5p7*p3p6
1039 . *p1p8)*(ffmcfmb*hbcm2-fmb*hbcm)+(8*(p6p8*p5p7)*(4*fb3*ffmcfmb*
1040 . hbcm2+4*fb3*hbcm2-4*fb4*fmb*hbcm+hbcm2)+64*(fb3*p1p2*p3p6*p7p8
1041 . -fb3*p1p2*p3p7*p6p8-fb3*p1p3*p5p7*p6p8+fb3*p1p8*p3p6*p5p7-fb3*
1042 . p2p3*p3p6*p7p8+fb3*p2p3*p3p7*p6p8-fb3*p2p4*p3p6*p7p8+fb3*p2p4*
1043 . p3p7*p6p8+fb3*p2p8*p3p6*p3p7+fb3*p2p8*p3p6*p4p7+fb3*p2p8*p3p6*
1044 . p5p7+fb3*p3p4*p5p7*p6p8-fb3*p3p6*p4p8*p5p7)))
1045 b(11)=ccc*(8*w16*(-hbcm*p2p5*p2p8+hbcm*p2p5*p5p8)+8*hbcm*p1p8*
1046 . p2p5*w12)
1047 b(12)=-32*ccc*fb3*p2p5
1048 b(14)=16*ccc*fb4*hbcm*p2p5
1049 b(15)=ccc*(w16*(8*(p5p8*p3p6)*(-ffmcfmb*hbcm2+fmb*hbcm)+8*(p3p6
1050 . *p2p8)*(ffmcfmb*hbcm2-fmb*hbcm))+8*w12*(p3p6*p1p8)*(-ffmcfmb*
1051 . hbcm2+fmb*hbcm)+(4*p6p8*(-4*fb3*ffmcfmb*hbcm2-4*fb3*hbcm2+4*
1052 . fb4*fmb*hbcm-hbcm2)+32*(fb3*p1p3*p6p8-fb3*p1p8*p3p6-fb3*p3p4*
1053 . p6p8+fb3*p3p6*p4p8)))
1054 b(16)=ccc*(w16*(8*(p5p8*p3p6)*(ffmcfmb*hbcm-hbcm)+8*(p3p6*p2p8)
1055 . *(-ffmcfmb*hbcm+hbcm)+8*(hbcm*p2p8*p4p6-hbcm*p4p6*p5p8))+w12*(
1056 . 8*(p3p6*p1p8)*(ffmcfmb*hbcm-hbcm)-8*hbcm*p1p8*p4p6)+16*p6p8*(
1057 . fb3*fmb+fb4*ffmcfmb*hbcm-fb4*hbcm))
1058 b(17)=ccc*(w16*(4*p5p8*(-ffmcfmb*hbcm3+fmc*hbcm2-hbcm3)+4*p2p8*
1059 . (ffmcfmb*hbcm3-fmc*hbcm2+hbcm3)+8*(-hbcm*p1p3*p2p8+hbcm*p1p3*
1060 . p5p8-hbcm*p2p3*p2p8+hbcm*p2p3*p5p8+hbcm*p2p8*p3p5-hbcm*p3p5*
1061 . p5p8))+w12*(4*p1p8*(-ffmcfmb*hbcm3+fmc*hbcm2-hbcm3)+8*(hbcm*
1062 . p1p3*p1p8+hbcm*p1p8*p2p3-hbcm*p1p8*p3p5))+16*(fb4*hbcm*p1p8+
1063 . fb4*hbcm*p2p8-fb4*hbcm*p5p8))
1064 b(19)=ccc*(w16*(4*p5p8*(-fmb*hbcm-fmc*hbcm)+4*p2p8*(fmb*hbcm+
1065 . fmc*hbcm))+4*w12*p1p8*(-fmb*hbcm-fmc*hbcm)+16*(-fb3*p1p8-2*fb3
1066 . *p2p8+2*fb3*p5p8))
1067 b(21)=2*ccc*(8*fb3*fmb-4*fb3*fmc+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-
1068 . hbcm)
1069 b(22)=8*ccc*(-2*fb3*hbcm2+2*fb3*p1p3+4*fb3*p2p3-4*fb3*p3p5-fb4*
1070 . fmb*hbcm-fb4*fmc*hbcm)
1071 b(24)=ccc*(4*p3p6*(-4*fb3*fmb+hbcm)-16*fb4*hbcm*p4p6)
1072 b(25)=4*ccc*p5p7*(-8*fb3*fmb+4*fb3*fmc-4*fb4*ffmcfmb*hbcm+4*fb4
1073 . *hbcm+hbcm)
1074 b(27)=32*ccc*(-fb3*p3p6*p3p7-fb3*p3p6*p4p7-fb3*p3p6*p5p7)
1075 b(28)=32*ccc*(-fb3*p3p7*p6p8-fb3*p4p7*p6p8-fb3*p5p7*p6p8)
1076 b(29)=16*ccc*(-fb3*p3p6-2*fb3*p4p6)
1077 b(31)=ccc*(16*w16*(hbcm*p2p8*p3p6*p3p7+hbcm*p2p8*p3p6*p4p7+hbcm
1078 . *p2p8*p3p6*p5p7-hbcm*p3p6*p3p7*p5p8-hbcm*p3p6*p4p7*p5p8-hbcm*
1079 . p3p6*p5p7*p5p8)+16*w12*(-hbcm*p1p8*p3p6*p3p7-hbcm*p1p8*p3p6*
1080 . p4p7-hbcm*p1p8*p3p6*p5p7)+32*(-fb4*hbcm*p3p7*p6p8-fb4*hbcm*
1081 . p4p7*p6p8-fb4*hbcm*p5p7*p6p8))
1082 do 200 n=1,32
1083 c(n,2)=c(n,2)+0.09245003270420485d0*b(n)
1084 c(n,3)=c(n,3)-0.02077659977796572d0*b(n)
1085 200 continue
1086 return
1087 end
1088
1089 subroutine amp14_1p1(cc)
1090 implicit double precision(a-h,o-z)
1091 implicit integer (i-n)
1092 dimension b(32)
1093 #include "inclcon.h"
1094 #include "inclppp.h"
1095 #include "inclamp.h"
1096 do 100 n=1,32
1097 b(n)=0.0d0
1098 100 continue
1099 ccc=cc/((-2*p2p5)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2)*(
1100 . ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2+2*ffmcfmb*p1p3-fmb2+hbcm2-2*
1101 . p1p3))
1102 b(1)=32*ccc*(fb3*p3p6*p5p7+2*fb3*p4p6*p5p7)
1103 b(2)=ccc*(w1*(16*(p5p7*p4p8*p3p6)*(ffmcfmb*hbcm-hbcm)-16*hbcm*
1104 . p4p6*p4p8*p5p7)+w13*(16*(p5p7*p3p6*p1p8)*(ffmcfmb*hbcm-hbcm)-
1105 . 16*hbcm*p1p8*p4p6*p5p7)+8*(p6p8*p5p7)*(-4*fb3*fmb+4*fb3*fmc-
1106 . hbcm))
1107 b(3)=ccc*(8*w1*(p5p7*p4p8)*(-fmb*hbcm-fmc*hbcm)+8*w13*(p5p7*
1108 . p1p8)*(-fmb*hbcm-fmc*hbcm)+32*(fb3*p1p8*p5p7+2*fb3*p2p8*p5p7-2
1109 . *fb3*p5p7*p5p8))
1110 b(4)=ccc*(16*p5p7*(2*fb3*hbcm2+fb4*fmb*hbcm+fb4*fmc*hbcm)+32*(-
1111 . fb3*p1p3*p5p7-2*fb3*p2p3*p5p7+2*fb3*p3p5*p5p7))
1112 b(5)=ccc*(w1*(8*(p5p7*p4p8)*(-ffmcfmb*hbcm3-fmb*hbcm2)+16*(hbcm
1113 . *p2p3*p4p8*p5p7-hbcm*p3p5*p4p8*p5p7))+w13*(8*(p5p7*p1p8)*(-
1114 . ffmcfmb*hbcm3-fmb*hbcm2)+16*(hbcm*p1p8*p2p3*p5p7-hbcm*p1p8*
1115 . p3p5*p5p7))+32*(-fb4*hbcm*p2p8*p5p7+fb4*hbcm*p5p7*p5p8))
1116 b(6)=32*ccc*(fb3*p1p2*p6p8-fb3*p2p3*p6p8-fb3*p2p4*p6p8)
1117 b(7)=32*ccc*(-fb3*p1p2*p3p6+fb3*p2p3*p3p6+fb3*p2p4*p3p6)
1118 b(9)=ccc*(32*(p5p7*p3p6)*(fb3*fmb-fb3*fmc-fb4*ffmcfmb*hbcm+fb4*
1119 . hbcm)+32*fb4*hbcm*p4p6*p5p7)
1120 b(10)=ccc*(16*w1*(p5p7*p4p8*p3p6)*(-ffmcfmb*hbcm2+fmb*hbcm+
1121 . hbcm2)+16*w13*(p5p7*p3p6*p1p8)*(-ffmcfmb*hbcm2+fmb*hbcm+hbcm2)
1122 . +(8*(p6p8*p5p7)*(-4*fb3*ffmcfmb*hbcm2+8*fb3*hbcm2-4*fb4*fmb*
1123 . hbcm+hbcm2)+64*(fb3*p1p2*p3p6*p7p8-fb3*p1p2*p3p7*p6p8-fb3*p1p3
1124 . *p5p7*p6p8+fb3*p1p8*p3p6*p5p7-fb3*p2p3*p3p6*p7p8+fb3*p2p3*p3p7
1125 . *p6p8-fb3*p2p4*p3p6*p7p8+fb3*p2p4*p3p7*p6p8+fb3*p2p8*p3p6*p3p7
1126 . +fb3*p2p8*p3p6*p4p7+fb3*p2p8*p3p6*p5p7+fb3*p3p4*p5p7*p6p8-fb3*
1127 . p3p6*p4p8*p5p7)))
1128 b(11)=8*ccc*(-hbcm*p1p8*p2p5*w13-hbcm*p2p5*p4p8*w1)
1129 b(12)=-32*ccc*fb3*p2p5
1130 b(14)=16*ccc*fb4*hbcm*p2p5
1131 b(15)=ccc*(8*w1*(p4p8*p3p6)*(ffmcfmb*hbcm2-fmb*hbcm-hbcm2)+8*
1132 . w13*(p3p6*p1p8)*(ffmcfmb*hbcm2-fmb*hbcm-hbcm2)+(4*p6p8*(4*fb3*
1133 . ffmcfmb*hbcm2-8*fb3*hbcm2+4*fb4*fmb*hbcm-hbcm2)+32*(fb3*p1p3*
1134 . p6p8-fb3*p1p8*p3p6-fb3*p3p4*p6p8+fb3*p3p6*p4p8)))
1135 b(16)=ccc*(w1*(8*(p4p8*p3p6)*(-ffmcfmb*hbcm+hbcm)+8*hbcm*p4p6*
1136 . p4p8)+w13*(8*(p3p6*p1p8)*(-ffmcfmb*hbcm+hbcm)+8*hbcm*p1p8*p4p6
1137 . )+4*p6p8*(4*fb3*fmb-4*fb3*fmc+hbcm))
1138 b(17)=ccc*(w1*(4*p4p8*(ffmcfmb*hbcm3+fmb*hbcm2)+8*(-hbcm*p2p3*
1139 . p4p8+hbcm*p3p5*p4p8))+w13*(4*p1p8*(ffmcfmb*hbcm3+fmb*hbcm2)+8*
1140 . (-hbcm*p1p8*p2p3+hbcm*p1p8*p3p5))+16*(fb4*hbcm*p2p8-fb4*hbcm*
1141 . p5p8))
1142 b(19)=ccc*(4*w1*p4p8*(fmb*hbcm+fmc*hbcm)+4*w13*p1p8*(fmb*hbcm+
1143 . fmc*hbcm)+16*(-fb3*p1p8-2*fb3*p2p8+2*fb3*p5p8))
1144 b(21)=2*ccc*(4*fb3*fmb-8*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)
1145 b(22)=8*ccc*(-2*fb3*hbcm2+2*fb3*p1p3+4*fb3*p2p3-4*fb3*p3p5-fb4*
1146 . fmb*hbcm-fb4*fmc*hbcm)
1147 b(24)=ccc*(16*p3p6*(-fb3*fmb+fb3*fmc+fb4*ffmcfmb*hbcm-fb4*hbcm)
1148 . -16*fb4*hbcm*p4p6)
1149 b(25)=4*ccc*p5p7*(-4*fb3*fmb+8*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)
1150 b(27)=32*ccc*(-fb3*p3p6*p3p7-fb3*p3p6*p4p7-fb3*p3p6*p5p7)
1151 b(28)=32*ccc*(-fb3*p3p7*p6p8-fb3*p4p7*p6p8-fb3*p5p7*p6p8)
1152 b(29)=16*ccc*(-fb3*p3p6-2*fb3*p4p6)
1153 do 200 n=1,32
1154 c(n,2)=c(n,2)+0.09245003270420485d0*b(n)
1155 c(n,3)=c(n,3)-0.02077659977796572d0*b(n)
1156 200 continue
1157 return
1158 end
1159
1160 subroutine amp13_1p1(cc)
1161 implicit double precision(a-h,o-z)
1162 implicit integer (i-n)
1163 dimension b(32)
1164 #include "inclcon.h"
1165 #include "inclppp.h"
1166 #include "inclamp.h"
1167 do 100 n=1,32
1168 b(n)=0.0d0
1169 100 continue
1170 ccc=cc/((-2*p2p5)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2)*(-fmb2
1171 . +fmc2+hbcm2+2*p3p4))
1172 b(2)=-32*ccc*fb4*hbcm*p5p7*p6p8
1173 b(3)=8*ccc*w1*(p5p7*p4p8)*(fmb*hbcm+fmc*hbcm-2*hbcm2)
1174 b(4)=16*ccc*p5p7*(-fb4*fmb*hbcm-fb4*fmc*hbcm)
1175 b(5)=ccc*(w1*(8*(p5p7*p4p8)*(2*fmb*hbcm2-2*fmc*hbcm2-hbcm3)-16*
1176 . hbcm*p3p4*p4p8*p5p7)+32*fb4*hbcm*p4p8*p5p7)
1177 b(9)=32*ccc*fb4*hbcm*p3p6*p5p7
1178 b(10)=ccc*(16*w1*(p5p7*p4p8*p3p6)*(-fmb*hbcm-fmc*hbcm+2*hbcm2)+
1179 . 32*(p6p8*p5p7)*(fb4*fmb*hbcm+fb4*fmc*hbcm))
1180 b(15)=ccc*(8*w1*(p4p8*p3p6)*(fmb*hbcm+fmc*hbcm-2*hbcm2)+16*p6p8
1181 . *(-fb4*fmb*hbcm-fb4*fmc*hbcm))
1182 b(16)=16*ccc*fb4*hbcm*p6p8
1183 b(17)=ccc*(w1*(4*p4p8*(-2*fmb*hbcm2+2*fmc*hbcm2+hbcm3)+8*hbcm*
1184 . p3p4*p4p8)-16*fb4*hbcm*p4p8)
1185 b(19)=4*ccc*w1*p4p8*(-fmb*hbcm-fmc*hbcm+2*hbcm2)
1186 b(21)=8*ccc*fb4*hbcm
1187 b(22)=8*ccc*(fb4*fmb*hbcm+fb4*fmc*hbcm)
1188 b(24)=-16*ccc*fb4*hbcm*p3p6
1189 b(25)=-16*ccc*fb4*hbcm*p5p7
1190 do 200 n=1,32
1191 c(n,2)=c(n,2)-0.7396002616336388d0*b(n)
1192 c(n,3)=c(n,3)+0.1662127982237257d0*b(n)
1193 200 continue
1194 return
1195 end
1196
1197 subroutine amp12_1p1(cc)
1198 implicit double precision(a-h,o-z)
1199 implicit integer (i-n)
1200 dimension b(32)
1201 #include "inclcon.h"
1202 #include "inclppp.h"
1203 #include "inclamp.h"
1204 do 100 n=1,32
1205 b(n)=0.0d0
1206 100 continue
1207 ccc=cc/((-2*p1p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2+2*ffmcfmb*
1208 . p1p3-2*ffmcfmb*p3p5+fmb2+hbcm2-2*p1p3-2*p1p5+2*p3p5)*(ffmcfmb
1209 . **2*hbcm2-2*ffmcfmb*p2p3-fmc2))
1210 b(1)=ccc*(4*p6p7*(4*fb3*fmb*fmc+4*fb3*fmc2+4*fb4*ffmcfmb*fmb*
1211 . hbcm+4*fb4*ffmcfmb*fmc*hbcm-fmb*hbcm-fmc*hbcm)+32*(-fb3*p2p3*
1212 . p6p7-2*fb3*p2p4*p6p7))
1213 ans=ccc*(w7*(8*(p6p7*p2p8)*(ffmcfmb*hbcm3-fmc*hbcm2)+16*(-
1214 . ffmcfmb*hbcm*p2p8*p3p6*p3p7-ffmcfmb*hbcm*p2p8*p3p7*p4p6-
1215 . ffmcfmb*hbcm*p2p8*p3p7*p5p6-hbcm*p2p3*p2p8*p6p7-hbcm*p2p4*p2p8
1216 . *p6p7))+w15*(8*(p6p7*p5p8)*(ffmcfmb*hbcm3-fmc*hbcm2)+8*(p6p7*
1217 . p1p8)*(-ffmcfmb*hbcm3+fmc*hbcm2)+16*(ffmcfmb*hbcm*p1p8*p3p6*
1218 . p3p7+ffmcfmb*hbcm*p1p8*p3p7*p4p6+ffmcfmb*hbcm*p1p8*p3p7*p5p6-
1219 . ffmcfmb*hbcm*p3p6*p3p7*p5p8-ffmcfmb*hbcm*p3p7*p4p6*p5p8-
1220 . ffmcfmb*hbcm*p3p7*p5p6*p5p8+hbcm*p1p8*p2p3*p6p7+hbcm*p1p8*p2p4
1221 . *p6p7-hbcm*p2p3*p5p8*p6p7-hbcm*p2p4*p5p8*p6p7))+(8*(p6p7*p4p8)
1222 . *(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+8*(p6p8*p4p7)*(4*fb3*fmc
1223 . +4*fb4*ffmcfmb*hbcm-hbcm)+8*(p6p8*p3p7)*(4*fb3*fmc-hbcm)+8*(
1224 . p6p7*p2p8)*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm)+8*(-
1225 . hbcm*p3p6*p7p8-hbcm*p4p6*p7p8-hbcm*p5p6*p7p8)))
1226 b(2)=ans
1227 b(3)=ccc*(8*w7*(p3p7*p2p8)*(-ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm+
1228 . ffmcfmb*hbcm2+fmc*hbcm)+w15*(8*(p5p8*p3p7)*(-ffmcfmb*fmb*hbcm-
1229 . ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2+fmc*hbcm)+8*(p3p7*p1p8)*(
1230 . ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2-fmc*hbcm))+(4*
1231 . p7p8*(4*fb3*ffmcfmb*hbcm2+4*fb4*fmc*hbcm-fmb*hbcm-fmc*hbcm+
1232 . hbcm2)+32*(-fb3*p1p2*p7p8+fb3*p2p5*p7p8+fb3*p2p8*p3p7+fb3*p2p8
1233 . *p5p7)))
1234 b(4)=ccc*(16*p3p7*(-fb4*ffmcfmb*fmb*hbcm-fb4*ffmcfmb*fmc*hbcm)+
1235 . 32*(fb3*p1p2*p3p7+fb3*p2p3*p5p7-fb3*p2p5*p3p7))
1236 ans=ccc*(w7*(8*(p5p7*p2p8)*(ffmcfmb*hbcm3-fmc*hbcm2)+8*(p3p7*
1237 . p2p8)*(-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3-fmb*
1238 . fmc*hbcm+fmc2*hbcm)+16*(ffmcfmb*hbcm*p1p3*p2p8*p3p7+ffmcfmb*
1239 . hbcm*p2p3*p2p8*p3p7-ffmcfmb*hbcm*p2p8*p3p5*p3p7))+w15*(8*(p5p8
1240 . *p5p7)*(ffmcfmb*hbcm3-fmc*hbcm2)+8*(p5p7*p1p8)*(-ffmcfmb*hbcm3
1241 . +fmc*hbcm2)+8*(p5p8*p3p7)*(-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*
1242 . hbcm2-ffmcfmb*hbcm3-fmb*fmc*hbcm+fmc2*hbcm)+8*(p3p7*p1p8)*(
1243 . ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3+fmb*fmc*hbcm
1244 . -fmc2*hbcm)+16*(-ffmcfmb*hbcm*p1p3*p1p8*p3p7+ffmcfmb*hbcm*p1p3
1245 . *p3p7*p5p8-ffmcfmb*hbcm*p1p8*p2p3*p3p7+ffmcfmb*hbcm*p1p8*p3p5*
1246 . p3p7+ffmcfmb*hbcm*p2p3*p3p7*p5p8-ffmcfmb*hbcm*p3p5*p3p7*p5p8))
1247 . +(4*p7p8*(-4*fb3*ffmcfmb*fmb*hbcm2+4*fb3*ffmcfmb*fmc*hbcm2-4*
1248 . fb4*fmb*fmc*hbcm+4*fb4*fmc2*hbcm-fmb*hbcm2+fmc*hbcm2-hbcm3)+8*
1249 . (4*fb4*ffmcfmb*hbcm*p1p8*p3p7+4*fb4*ffmcfmb*hbcm*p2p8*p3p7-4*
1250 . fb4*ffmcfmb*hbcm*p3p7*p5p8+hbcm*p1p3*p7p8+hbcm*p2p3*p7p8-hbcm*
1251 . p3p5*p7p8)))
1252 b(5)=ans
1253 b(6)=ccc*(4*p6p8*(4*fb3*fmb*fmc+4*fb3*fmc2+4*fb4*ffmcfmb*fmb*
1254 . hbcm+4*fb4*ffmcfmb*fmc*hbcm-fmb*hbcm-fmc*hbcm)+32*(-fb3*p2p3*
1255 . p6p8-2*fb3*p2p4*p6p8-fb3*p2p8*p3p6-fb3*p2p8*p4p6-fb3*p2p8*p5p6
1256 . ))
1257 b(7)=ccc*(4*p3p6*(-4*fb3*fmb*fmc-4*fb3*fmc2-4*fb4*ffmcfmb*fmb*
1258 . hbcm-4*fb4*ffmcfmb*fmc*hbcm+fmb*hbcm+fmc*hbcm)+32*(2*fb3*p2p3*
1259 . p3p6+fb3*p2p3*p4p6+fb3*p2p3*p5p6+2*fb3*p2p4*p3p6))
1260 b(8)=ccc*(w7*(8*(p5p6*p2p8)*(ffmcfmb*hbcm3-fmc*hbcm2)+8*(p4p6*
1261 . p2p8)*(ffmcfmb*hbcm3-fmc*hbcm2)+16*(hbcm*p2p3*p2p8*p3p6+hbcm*
1262 . p2p4*p2p8*p3p6))+w15*(8*(p5p8*p5p6)*(ffmcfmb*hbcm3-fmc*hbcm2)+
1263 . 8*(p5p8*p4p6)*(ffmcfmb*hbcm3-fmc*hbcm2)+8*(p5p6*p1p8)*(-
1264 . ffmcfmb*hbcm3+fmc*hbcm2)+8*(p4p6*p1p8)*(-ffmcfmb*hbcm3+fmc*
1265 . hbcm2)+16*(-hbcm*p1p8*p2p3*p3p6-hbcm*p1p8*p2p4*p3p6+hbcm*p2p3*
1266 . p3p6*p5p8+hbcm*p2p4*p3p6*p5p8))+(8*(p4p8*p3p6)*(4*fb3*fmc+4*
1267 . fb4*ffmcfmb*hbcm-hbcm)+8*(p6p8*p3p4)*(-4*fb3*fmc-4*fb4*ffmcfmb
1268 . *hbcm+hbcm)+4*p6p8*(-4*fb3*fmc*hbcm2-4*fb4*ffmcfmb*hbcm3+hbcm3
1269 . )+32*(p3p6*p2p8)*(fb3*fmb-fb3*fmc)+32*(p6p8*p2p3)*(-fb3*fmb+
1270 . fb3*fmc+fb4*hbcm)+32*fb4*hbcm*p2p4*p6p8))
1271 b(9)=ccc*(8*(p4p7*p3p6)*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+8*
1272 . (p3p7*p3p6)*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+8*(p6p7*p3p4)
1273 . *(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+4*p6p7*(4*fb3*fmc*hbcm2+4
1274 . *fb4*ffmcfmb*hbcm3-hbcm3)+8*(p6p7*p2p3)*(-4*fb3*fmb-4*fb4*
1275 . ffmcfmb*hbcm+hbcm)+32*(-fb4*ffmcfmb*hbcm*p3p7*p4p6-fb4*ffmcfmb
1276 . *hbcm*p3p7*p5p6-fb4*hbcm*p2p4*p6p7))
1277 ans2=(32*(p6p7*p2p8)*(-fb3*hbcm2+fb4*fmb*hbcm+fb4*fmc*hbcm)+8*(
1278 . p6p8*p3p7)*(-4*fb3*fmb*fmc-4*fb3*fmc2+fmb*hbcm+fmc*hbcm)+32*(
1279 . p7p8*p3p6)*(fb3*fmb*fmc+fb3*fmc2+fb4*ffmcfmb*fmb*hbcm+fb4*
1280 . ffmcfmb*fmc*hbcm)+8*(p7p8*p5p6)*(4*fb3*ffmcfmb*hbcm2+4*fb4*fmc
1281 . *hbcm+hbcm2)+8*(p7p8*p4p6)*(4*fb3*ffmcfmb*hbcm2+4*fb4*fmc*hbcm
1282 . +hbcm2)+64*(fb3*p2p3*p2p8*p6p7-fb3*p2p3*p3p6*p7p8+fb3*p2p3*
1283 . p3p7*p6p8-fb3*p2p3*p4p6*p7p8+fb3*p2p3*p4p7*p6p8-fb3*p2p3*p4p8*
1284 . p6p7-fb3*p2p3*p5p6*p7p8-fb3*p2p4*p3p6*p7p8+fb3*p2p4*p3p7*p6p8-
1285 . fb3*p2p8*p3p4*p6p7+2*fb3*p2p8*p3p6*p3p7+fb3*p2p8*p3p6*p4p7+2*
1286 . fb3*p2p8*p3p7*p4p6+2*fb3*p2p8*p3p7*p5p6))
1287 ans1=w7*(16*(p5p6*p3p7*p2p8)*(ffmcfmb*hbcm2+fmc*hbcm)+16*(p4p6*
1288 . p3p7*p2p8)*(ffmcfmb*hbcm2+fmc*hbcm)+8*(p6p7*p2p8)*(-ffmcfmb*
1289 . fmb*hbcm3-ffmcfmb*fmc*hbcm3+fmb*fmc*hbcm2+fmc2*hbcm2)+16*(p3p7
1290 . *p3p6*p2p8)*(ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm))+w15*(16*(p5p8
1291 . *p5p6*p3p7)*(ffmcfmb*hbcm2+fmc*hbcm)+16*(p5p8*p4p6*p3p7)*(
1292 . ffmcfmb*hbcm2+fmc*hbcm)+16*(p5p6*p3p7*p1p8)*(-ffmcfmb*hbcm2-
1293 . fmc*hbcm)+16*(p4p6*p3p7*p1p8)*(-ffmcfmb*hbcm2-fmc*hbcm)+8*(
1294 . p6p7*p5p8)*(-ffmcfmb*fmb*hbcm3-ffmcfmb*fmc*hbcm3+fmb*fmc*hbcm2
1295 . +fmc2*hbcm2)+8*(p6p7*p1p8)*(ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*
1296 . hbcm3-fmb*fmc*hbcm2-fmc2*hbcm2)+16*(p5p8*p3p7*p3p6)*(ffmcfmb*
1297 . fmb*hbcm+ffmcfmb*fmc*hbcm)+16*(p3p7*p3p6*p1p8)*(-ffmcfmb*fmb*
1298 . hbcm-ffmcfmb*fmc*hbcm))+ans2
1299 ans=ccc*ans1
1300 b(10)=ans
1301 b(11)=ccc*(w7*(4*p2p8*(ffmcfmb*hbcm3-fmc*hbcm2)+8*(-hbcm*p1p2*
1302 . p2p8+hbcm*p2p5*p2p8))+w15*(4*p5p8*(ffmcfmb*hbcm3-fmc*hbcm2)+4*
1303 . p1p8*(-ffmcfmb*hbcm3+fmc*hbcm2)+8*(hbcm*p1p2*p1p8-hbcm*p1p2*
1304 . p5p8-hbcm*p1p8*p2p5+hbcm*p2p5*p5p8))+(4*p5p8*(4*fb3*fmc+4*fb4*
1305 . ffmcfmb*hbcm-hbcm)+4*p1p8*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)
1306 . +4*p2p8*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+hbcm)))
1307 b(12)=2*ccc*(-4*fb3*fmb*fmc-4*fb3*fmc2+16*fb3*p1p2-8*fb3*p2p3-
1308 . 16*fb3*p2p5-4*fb4*ffmcfmb*fmb*hbcm-4*fb4*ffmcfmb*fmc*hbcm+fmb*
1309 . hbcm+fmc*hbcm)
1310 b(13)=ccc*(4*w7*p2p8*(ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*hbcm3-fmb*
1311 . fmc*hbcm2-fmc2*hbcm2)+w15*(4*p5p8*(ffmcfmb*fmb*hbcm3+ffmcfmb*
1312 . fmc*hbcm3-fmb*fmc*hbcm2-fmc2*hbcm2)+4*p1p8*(-ffmcfmb*fmb*hbcm3
1313 . -ffmcfmb*fmc*hbcm3+fmb*fmc*hbcm2+fmc2*hbcm2))+16*(fb3*hbcm2*
1314 . p2p8-2*fb3*p1p3*p2p8+2*fb3*p1p8*p2p3-2*fb3*p2p3*p5p8+2*fb3*
1315 . p2p8*p3p5))
1316 b(14)=ccc*(4*p3p5*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+4*p1p3*(
1317 . 4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+4*p2p3*(4*fb3*fmb+4*fb4*
1318 . ffmcfmb*hbcm-hbcm)+2*(-4*fb3*fmc*hbcm2-4*fb4*ffmcfmb*hbcm3-8*
1319 . fb4*hbcm*p1p2+8*fb4*hbcm*p2p5+hbcm3))
1320 b(15)=ccc*(8*w7*(p3p6*p2p8)*(fmb*hbcm+fmc*hbcm)+w15*(8*(p5p8*
1321 . p3p6)*(fmb*hbcm+fmc*hbcm)+8*(p3p6*p1p8)*(-fmb*hbcm-fmc*hbcm))+
1322 . (16*p6p8*(-2*fb3*hbcm2+fb4*fmb*hbcm+fb4*fmc*hbcm)+32*(fb3*p2p3
1323 . *p6p8-fb3*p2p8*p3p6-2*fb3*p3p4*p6p8+2*fb3*p3p6*p4p8)))
1324 b(16)=ccc*(8*w7*(-hbcm*p2p8*p3p6-hbcm*p2p8*p4p6-hbcm*p2p8*p5p6)
1325 . +8*w15*(hbcm*p1p8*p3p6+hbcm*p1p8*p4p6+hbcm*p1p8*p5p6-hbcm*p3p6
1326 . *p5p8-hbcm*p4p6*p5p8-hbcm*p5p6*p5p8)+4*p6p8*(8*fb3*fmb-4*fb3*
1327 . fmc+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm))
1328 b(17)=ccc*(w7*(4*p2p8*(-ffmcfmb*hbcm3+fmc*hbcm2-hbcm3)+8*(hbcm*
1329 . p1p3*p2p8+hbcm*p2p3*p2p8-hbcm*p2p8*p3p5))+w15*(4*p5p8*(-
1330 . ffmcfmb*hbcm3+fmc*hbcm2-hbcm3)+4*p1p8*(ffmcfmb*hbcm3-fmc*hbcm2
1331 . +hbcm3)+8*(-hbcm*p1p3*p1p8+hbcm*p1p3*p5p8-hbcm*p1p8*p2p3+hbcm*
1332 . p1p8*p3p5+hbcm*p2p3*p5p8-hbcm*p3p5*p5p8))+16*(fb4*hbcm*p1p8+
1333 . fb4*hbcm*p2p8-fb4*hbcm*p5p8))
1334 b(18)=ccc*(8*w7*(p3p7*p2p8)*(-ffmcfmb*hbcm2-fmc*hbcm)+w15*(8*(
1335 . p5p8*p3p7)*(-ffmcfmb*hbcm2-fmc*hbcm)+8*(p3p7*p1p8)*(ffmcfmb*
1336 . hbcm2+fmc*hbcm))+(4*p7p8*(-4*fb3*ffmcfmb*hbcm2-4*fb3*hbcm2-4*
1337 . fb4*fmc*hbcm-hbcm2)+32*(fb3*p1p3*p7p8-fb3*p1p8*p3p7+fb3*p2p3*
1338 . p7p8-fb3*p2p8*p3p7-fb3*p3p5*p7p8+fb3*p3p7*p5p8)))
1339 b(19)=ccc*(4*w7*p2p8*(-fmb*hbcm-fmc*hbcm)+w15*(4*p5p8*(-fmb*
1340 . hbcm-fmc*hbcm)+4*p1p8*(fmb*hbcm+fmc*hbcm))+16*(-2*fb3*p1p8-fb3
1341 . *p2p8+2*fb3*p5p8))
1342 b(20)=ccc*(8*w7*(-ffmcfmb*hbcm*p2p8*p3p7-hbcm*p2p8*p5p7)+8*w15*
1343 . (ffmcfmb*hbcm*p1p8*p3p7-ffmcfmb*hbcm*p3p7*p5p8+hbcm*p1p8*p5p7-
1344 . hbcm*p5p7*p5p8)+4*p7p8*(4*fb3*fmb-4*fb3*fmc-hbcm))
1345 b(21)=2*ccc*(8*fb3*fmb-4*fb3*fmc+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-
1346 . hbcm)
1347 b(22)=8*ccc*(-2*fb3*hbcm2+4*fb3*p1p3+2*fb3*p2p3-4*fb3*p3p5-fb4*
1348 . fmb*hbcm-fb4*fmc*hbcm)
1349 b(23)=ccc*(16*p3p7*(-fb3*fmb+fb3*fmc-fb4*ffmcfmb*hbcm)-16*fb4*
1350 . hbcm*p5p7)
1351 b(24)=ccc*(4*p3p6*(-8*fb3*fmb+4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm
1352 . )+16*(-fb4*hbcm*p4p6-fb4*hbcm*p5p6))
1353 b(25)=ccc*(4*p5p7*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)-16*fb4*
1354 . ffmcfmb*hbcm*p3p7)
1355 b(26)=ccc*(4*p5p6*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+4*p4p6*(
1356 . -4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+4*p3p6*(-4*fb3*fmc-4*fb4*
1357 . ffmcfmb*hbcm+hbcm))
1358 b(27)=ccc*(16*p6p7*(2*fb3*hbcm2-fb4*fmb*hbcm-fb4*fmc*hbcm)+32*(
1359 . -fb3*p2p3*p6p7+2*fb3*p3p4*p6p7-2*fb3*p3p6*p3p7-2*fb3*p3p6*p4p7
1360 . -fb3*p3p7*p4p6-fb3*p3p7*p5p6))
1361 b(28)=ccc*(8*w7*(p6p7*p2p8)*(fmb*hbcm+fmc*hbcm)+w15*(8*(p6p7*
1362 . p5p8)*(fmb*hbcm+fmc*hbcm)+8*(p6p7*p1p8)*(-fmb*hbcm-fmc*hbcm))+
1363 . 32*(-fb3*p2p8*p6p7-fb3*p3p6*p7p8-fb3*p3p7*p6p8-fb3*p4p6*p7p8-2
1364 . *fb3*p4p7*p6p8+2*fb3*p4p8*p6p7-fb3*p5p6*p7p8))
1365 b(29)=32*ccc*(-fb3*p3p6-fb3*p4p6-fb3*p5p6)
1366 b(30)=16*ccc*(-fb3*p3p7-2*fb3*p5p7)
1367 b(31)=ccc*(w7*(8*(p6p7*p2p8)*(-ffmcfmb*hbcm3+fmc*hbcm2+hbcm3)+
1368 . 16*(p3p7*p3p6*p2p8)*(ffmcfmb*hbcm-hbcm)+16*(hbcm*p2p8*p3p4*
1369 . p6p7-hbcm*p2p8*p3p6*p4p7))+w15*(8*(p6p7*p5p8)*(-ffmcfmb*hbcm3+
1370 . fmc*hbcm2+hbcm3)+8*(p6p7*p1p8)*(ffmcfmb*hbcm3-fmc*hbcm2-hbcm3)
1371 . +16*(p5p8*p3p7*p3p6)*(ffmcfmb*hbcm-hbcm)+16*(p3p7*p3p6*p1p8)*(
1372 . -ffmcfmb*hbcm+hbcm)+16*(-hbcm*p1p8*p3p4*p6p7+hbcm*p1p8*p3p6*
1373 . p4p7+hbcm*p3p4*p5p8*p6p7-hbcm*p3p6*p4p7*p5p8))+(32*(p6p8*p3p7)
1374 . *(fb3*fmb-fb3*fmc+fb4*ffmcfmb*hbcm-fb4*hbcm)+8*(p7p8*p3p6)*(-4
1375 . *fb3*fmb+4*fb3*fmc+hbcm)+32*(-fb4*hbcm*p4p7*p6p8+fb4*hbcm*p4p8
1376 . *p6p7)))
1377 b(32)=4*ccc*p6p7*(8*fb3*fmb-4*fb3*fmc+4*fb4*ffmcfmb*hbcm-4*fb4*
1378 . hbcm-hbcm)
1379 do 200 n=1,32
1380 c(n,1)=c(n,1)+0.09090909090909091d0*b(n)
1381 c(n,2)=c(n,2)-0.01680909685530997d0*b(n)
1382 c(n,3)=c(n,3)-0.02077659977796572d0*b(n)
1383 200 continue
1384 return
1385 end
1386
1387 subroutine amp11_1p1(cc)
1388 implicit double precision(a-h,o-z)
1389 implicit integer (i-n)
1390 dimension b(32)
1391 #include "inclcon.h"
1392 #include "inclppp.h"
1393 #include "inclamp.h"
1394 do 100 n=1,32
1395 b(n)=0.0d0
1396 100 continue
1397 ccc=cc/((-2*p1p5)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2)*(
1398 . ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2+2*ffmcfmb*p2p3-fmb2+hbcm2-2*
1399 . p2p3))
1400 b(1)=ccc*(4*p6p7*(-4*fb3*fmb*fmc-4*fb3*fmb2-4*fb4*ffmcfmb*fmb*
1401 . hbcm-4*fb4*ffmcfmb*fmc*hbcm+4*fb4*fmb*hbcm+4*fb4*fmc*hbcm+fmb*
1402 . hbcm+fmc*hbcm)+32*(-fb3*p2p3*p6p7-2*fb3*p2p4*p6p7))
1403 ans=ccc*(w1*(8*(p6p7*p4p8)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+16*
1404 . (p5p6*p4p8*p3p7)*(ffmcfmb*hbcm-hbcm)+16*(p4p8*p4p6*p3p7)*(
1405 . ffmcfmb*hbcm-hbcm)+16*(p4p8*p3p7*p3p6)*(ffmcfmb*hbcm-hbcm)+16*
1406 . hbcm*p2p4*p4p8*p6p7)+w8*(8*(p6p7*p2p8)*(-ffmcfmb*hbcm3-fmb*
1407 . hbcm2+hbcm3)+16*(p5p6*p3p7*p2p8)*(ffmcfmb*hbcm-hbcm)+16*(p4p6*
1408 . p3p7*p2p8)*(ffmcfmb*hbcm-hbcm)+16*(p3p7*p3p6*p2p8)*(ffmcfmb*
1409 . hbcm-hbcm)+16*hbcm*p2p4*p2p8*p6p7)+(32*(p6p8*p3p7)*(-fb4*
1410 . ffmcfmb*hbcm+fb4*hbcm)+8*(p6p7*p2p8)*(-4*fb3*fmc-4*fb4*ffmcfmb
1411 . *hbcm+4*fb4*hbcm+hbcm)+32*(p7p8*p5p6)*(-fb3*fmb-fb4*ffmcfmb*
1412 . hbcm+fb4*hbcm)+8*(p6p7*p4p8)*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*
1413 . fb4*hbcm-hbcm)+8*(p6p8*p4p7)*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*
1414 . fb4*hbcm+hbcm)+32*(p7p8*p4p6)*(-fb3*fmb-fb4*ffmcfmb*hbcm+fb4*
1415 . hbcm)+32*(p7p8*p3p6)*(-fb3*fmb-fb4*ffmcfmb*hbcm+fb4*hbcm)))
1416 b(2)=ans
1417 b(3)=ccc*(8*w1*(p4p8*p3p7)*(ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm-
1418 . ffmcfmb*hbcm2-fmc*hbcm+hbcm2)+8*w8*(p3p7*p2p8)*(ffmcfmb*fmb*
1419 . hbcm+ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2-fmc*hbcm+hbcm2)+(4*p7p8*(-
1420 . 4*fb3*ffmcfmb*hbcm2-4*fb3*fmb*fmc-4*fb3*fmb2+4*fb3*hbcm2-4*fb4
1421 . *ffmcfmb*fmb*hbcm-4*fb4*ffmcfmb*fmc*hbcm+4*fb4*fmc*hbcm+hbcm2)
1422 . +32*(-fb3*p1p2*p7p8+fb3*p2p5*p7p8+fb3*p2p8*p3p7+fb3*p2p8*p5p7)
1423 . ))
1424 b(4)=ccc*(4*p3p7*(4*fb3*fmb*fmc+4*fb3*fmb2-fmb*hbcm-fmc*hbcm)+
1425 . 32*(fb3*p1p2*p3p7+fb3*p2p3*p5p7-fb3*p2p5*p3p7))
1426 ans2=(8*(p5p8*p3p7)*(4*fb3*fmb-hbcm)+32*(p7p8*p3p5)*(-fb3*fmb-
1427 . fb4*ffmcfmb*hbcm+fb4*hbcm)+8*(p3p7*p2p8)*(-4*fb3*fmb+hbcm)+32*
1428 . (p7p8*p2p3)*(fb3*fmb+fb4*ffmcfmb*hbcm-fb4*hbcm)+8*(p3p7*p1p8)*
1429 . (-4*fb3*fmb+hbcm)+32*(p7p8*p1p3)*(fb3*fmb+fb4*ffmcfmb*hbcm-fb4
1430 . *hbcm)+4*p7p8*(4*fb3*ffmcfmb*fmb*hbcm2-4*fb3*ffmcfmb*fmc*hbcm2
1431 . -8*fb3*fmb*hbcm2+4*fb3*fmc*hbcm2-4*fb4*ffmcfmb*hbcm3-4*fb4*fmb
1432 . *fmc*hbcm+4*fb4*fmb2*hbcm+4*fb4*hbcm3-fmb*hbcm2+fmc*hbcm2)+32*
1433 . (fb4*hbcm*p1p2*p7p8-fb4*hbcm*p2p5*p7p8+fb4*hbcm*p2p8*p5p7))
1434 ans1=w1*(8*(p5p7*p4p8)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+16*(
1435 . p4p8*p3p7*p3p5)*(ffmcfmb*hbcm-hbcm)+16*(p4p8*p3p7*p2p3)*(-
1436 . ffmcfmb*hbcm+hbcm)+16*(p4p8*p3p7*p1p3)*(-ffmcfmb*hbcm+hbcm)+8*
1437 . (p4p8*p3p7)*(ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3
1438 . +fmb*fmc*hbcm-fmb*hbcm2-fmb2*hbcm+fmc*hbcm2-hbcm3)+16*(-hbcm*
1439 . p1p2*p3p7*p4p8-hbcm*p2p3*p4p8*p5p7+hbcm*p2p5*p3p7*p4p8))+w8*(8
1440 . *(p5p7*p2p8)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+16*(p3p7*p3p5*
1441 . p2p8)*(ffmcfmb*hbcm-hbcm)+16*(p3p7*p2p8*p2p3)*(-ffmcfmb*hbcm+
1442 . hbcm)+16*(p3p7*p2p8*p1p3)*(-ffmcfmb*hbcm+hbcm)+8*(p3p7*p2p8)*(
1443 . ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3+fmb*fmc*hbcm
1444 . -fmb*hbcm2-fmb2*hbcm+fmc*hbcm2-hbcm3)+16*(-hbcm*p1p2*p2p8*p3p7
1445 . -hbcm*p2p3*p2p8*p5p7+hbcm*p2p5*p2p8*p3p7))+ans2
1446 ans=ccc*ans1
1447 b(5)=ans
1448 b(6)=ccc*(4*p6p8*(-4*fb3*fmb*fmc-4*fb3*fmb2-4*fb4*ffmcfmb*fmb*
1449 . hbcm-4*fb4*ffmcfmb*fmc*hbcm+4*fb4*fmb*hbcm+4*fb4*fmc*hbcm+fmb*
1450 . hbcm+fmc*hbcm)+32*(-fb3*p2p3*p6p8-2*fb3*p2p4*p6p8-fb3*p2p8*
1451 . p3p6-fb3*p2p8*p4p6-fb3*p2p8*p5p6))
1452 b(7)=ccc*(4*p3p6*(4*fb3*fmb*fmc+4*fb3*fmb2+4*fb4*ffmcfmb*fmb*
1453 . hbcm+4*fb4*ffmcfmb*fmc*hbcm-4*fb4*fmb*hbcm-4*fb4*fmc*hbcm-fmb*
1454 . hbcm-fmc*hbcm)+32*(2*fb3*p2p3*p3p6+fb3*p2p3*p4p6+fb3*p2p3*p5p6
1455 . +2*fb3*p2p4*p3p6))
1456 b(8)=ccc*(w1*(8*(p5p6*p4p8)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+8*
1457 . (p4p8*p4p6)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+16*(-hbcm*p2p3*
1458 . p3p6*p4p8-hbcm*p2p3*p4p6*p4p8-hbcm*p2p3*p4p8*p5p6-hbcm*p2p4*
1459 . p3p6*p4p8))+w8*(8*(p5p6*p2p8)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)
1460 . +8*(p4p6*p2p8)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+16*(-hbcm*p2p3
1461 . *p2p8*p3p6-hbcm*p2p3*p2p8*p4p6-hbcm*p2p3*p2p8*p5p6-hbcm*p2p4*
1462 . p2p8*p3p6))+(8*(p4p8*p3p6)*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*
1463 . fb4*hbcm+hbcm)+8*(p6p8*p3p4)*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*
1464 . fb4*hbcm-hbcm)+32*(p3p6*p2p8)*(fb3*fmb-fb3*fmc)+32*(p6p8*p2p3)
1465 . *(-fb3*fmb+fb3*fmc+fb4*hbcm)+4*p6p8*(4*fb3*fmb*hbcm2+4*fb4*
1466 . ffmcfmb*hbcm3-4*fb4*hbcm3-hbcm3)+32*(fb4*hbcm*p2p4*p6p8+fb4*
1467 . hbcm*p2p8*p4p6+fb4*hbcm*p2p8*p5p6)))
1468 b(9)=ccc*(8*(p6p7*p2p3)*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-4*fb4*
1469 . hbcm-hbcm)+8*(p5p6*p3p7)*(4*fb3*fmb-hbcm)+8*(p4p6*p3p7)*(4*fb3
1470 . *fmb-hbcm)+8*(p4p7*p3p6)*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*
1471 . hbcm-hbcm)+8*(p3p7*p3p6)*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*
1472 . hbcm-hbcm)+8*(p6p7*p3p4)*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*
1473 . hbcm+hbcm)+4*p6p7*(-4*fb3*fmb*hbcm2-4*fb4*ffmcfmb*hbcm3+4*fb4*
1474 . hbcm3+hbcm3)-32*fb4*hbcm*p2p4*p6p7)
1475 ans2=(8*(p7p8*p3p6)*(fmb*hbcm+fmc*hbcm)+32*(p6p8*p3p7)*(fb4*
1476 . ffmcfmb*fmb*hbcm+fb4*ffmcfmb*fmc*hbcm-fb4*fmb*hbcm-fb4*fmc*
1477 . hbcm)+8*(p7p8*p5p6)*(-4*fb3*ffmcfmb*hbcm2+4*fb3*hbcm2-4*fb4*
1478 . fmb*hbcm+hbcm2)+8*(p7p8*p4p6)*(-4*fb3*ffmcfmb*hbcm2+4*fb3*
1479 . hbcm2-4*fb4*fmb*hbcm+hbcm2)+32*(-fb3*hbcm2*p2p8*p6p7+2*fb3*
1480 . p2p3*p2p8*p6p7-2*fb3*p2p3*p3p6*p7p8+2*fb3*p2p3*p3p7*p6p8-2*fb3
1481 . *p2p3*p4p6*p7p8+2*fb3*p2p3*p4p7*p6p8-2*fb3*p2p3*p4p8*p6p7-2*
1482 . fb3*p2p3*p5p6*p7p8-2*fb3*p2p4*p3p6*p7p8+2*fb3*p2p4*p3p7*p6p8-2
1483 . *fb3*p2p8*p3p4*p6p7+4*fb3*p2p8*p3p6*p3p7+2*fb3*p2p8*p3p6*p4p7+
1484 . 4*fb3*p2p8*p3p7*p4p6+4*fb3*p2p8*p3p7*p5p6))
1485 ans1=w1*(16*(p6p7*p4p8*p2p3)*(fmb*hbcm+fmc*hbcm)+16*(p5p6*p4p8*
1486 . p3p7)*(-ffmcfmb*hbcm2+fmb*hbcm+hbcm2)+16*(p4p8*p4p6*p3p7)*(-
1487 . ffmcfmb*hbcm2+fmb*hbcm+hbcm2)+8*(p6p7*p4p8)*(ffmcfmb*fmb*hbcm3
1488 . +ffmcfmb*fmc*hbcm3+fmb*fmc*hbcm2-fmb*hbcm3+fmb2*hbcm2-fmc*
1489 . hbcm3)+16*(p4p8*p3p7*p3p6)*(-ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm
1490 . +fmb*hbcm+fmc*hbcm))+w8*(16*(p6p7*p2p8*p2p3)*(fmb*hbcm+fmc*
1491 . hbcm)+16*(p5p6*p3p7*p2p8)*(-ffmcfmb*hbcm2+fmb*hbcm+hbcm2)+16*(
1492 . p4p6*p3p7*p2p8)*(-ffmcfmb*hbcm2+fmb*hbcm+hbcm2)+8*(p6p7*p2p8)*
1493 . (ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*hbcm3+fmb*fmc*hbcm2-fmb*hbcm3+
1494 . fmb2*hbcm2-fmc*hbcm3)+16*(p3p7*p3p6*p2p8)*(-ffmcfmb*fmb*hbcm-
1495 . ffmcfmb*fmc*hbcm+fmb*hbcm+fmc*hbcm))+ans2
1496 ans=ccc*ans1
1497 b(10)=ans
1498 b(11)=ccc*(w1*(4*p4p8*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+8*(hbcm*
1499 . p1p2*p4p8-hbcm*p2p3*p4p8-hbcm*p2p5*p4p8))+w8*(4*p2p8*(-ffmcfmb
1500 . *hbcm3-fmb*hbcm2+hbcm3)+8*(hbcm*p1p2*p2p8-hbcm*p2p3*p2p8-hbcm*
1501 . p2p5*p2p8))+(4*p2p8*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+4*p5p8
1502 . *(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+hbcm)+4*p1p8*(4*fb3
1503 . *fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm)))
1504 b(12)=2*ccc*(4*fb3*fmb*fmc+4*fb3*fmb2+16*fb3*p1p2-8*fb3*p2p3-16
1505 . *fb3*p2p5+4*fb4*ffmcfmb*fmb*hbcm+4*fb4*ffmcfmb*fmc*hbcm-4*fb4*
1506 . fmb*hbcm-4*fb4*fmc*hbcm-fmb*hbcm-fmc*hbcm)
1507 b(13)=ccc*(w1*(8*(p4p8*p2p3)*(-fmb*hbcm-fmc*hbcm)+4*p4p8*(-
1508 . ffmcfmb*fmb*hbcm3-ffmcfmb*fmc*hbcm3-fmb*fmc*hbcm2+fmb*hbcm3-
1509 . fmb2*hbcm2+fmc*hbcm3))+w8*(8*(p2p8*p2p3)*(-fmb*hbcm-fmc*hbcm)+
1510 . 4*p2p8*(-ffmcfmb*fmb*hbcm3-ffmcfmb*fmc*hbcm3-fmb*fmc*hbcm2+fmb
1511 . *hbcm3-fmb2*hbcm2+fmc*hbcm3))+(16*p2p8*(fb3*hbcm2+fb4*fmb*hbcm
1512 . +fb4*fmc*hbcm)+32*(-fb3*p1p3*p2p8+fb3*p1p8*p2p3-fb3*p2p3*p5p8+
1513 . fb3*p2p8*p3p5)))
1514 b(14)=ccc*(4*p2p3*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+
1515 . hbcm)+4*p3p5*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm)+4*
1516 . p1p3*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+hbcm)+2*(4*fb3*
1517 . fmb*hbcm2+4*fb4*ffmcfmb*hbcm3-8*fb4*hbcm*p1p2+8*fb4*hbcm*p2p5-
1518 . 4*fb4*hbcm3-hbcm3))
1519 b(15)=ccc*(8*w1*(p4p8*p3p6)*(-fmb*hbcm-fmc*hbcm)+8*w8*(p3p6*
1520 . p2p8)*(-fmb*hbcm-fmc*hbcm)+(16*p6p8*(-2*fb3*hbcm2+fb4*fmb*hbcm
1521 . +fb4*fmc*hbcm)+32*(fb3*p2p3*p6p8-fb3*p2p8*p3p6-2*fb3*p3p4*p6p8
1522 . +2*fb3*p3p6*p4p8)))
1523 b(16)=ccc*(8*w1*(hbcm*p3p6*p4p8+hbcm*p4p6*p4p8+hbcm*p4p8*p5p6)+
1524 . 8*w8*(hbcm*p2p8*p3p6+hbcm*p2p8*p4p6+hbcm*p2p8*p5p6)+4*p6p8*(4*
1525 . fb3*fmb-8*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm))
1526 b(17)=ccc*(w1*(4*p4p8*(ffmcfmb*hbcm3+fmb*hbcm2)+8*(-hbcm*p1p3*
1527 . p4p8+hbcm*p3p5*p4p8))+w8*(4*p2p8*(ffmcfmb*hbcm3+fmb*hbcm2)+8*(
1528 . -hbcm*p1p3*p2p8+hbcm*p2p8*p3p5))+16*(fb4*hbcm*p1p8-fb4*hbcm*
1529 . p5p8))
1530 b(18)=ccc*(8*w1*(p4p8*p3p7)*(ffmcfmb*hbcm2+fmc*hbcm-hbcm2)+8*w8
1531 . *(p3p7*p2p8)*(ffmcfmb*hbcm2+fmc*hbcm-hbcm2)+(4*p7p8*(4*fb3*
1532 . ffmcfmb*hbcm2-8*fb3*hbcm2-4*fb4*fmc*hbcm-hbcm2)+32*(fb3*p1p3*
1533 . p7p8-fb3*p1p8*p3p7+fb3*p2p3*p7p8-fb3*p2p8*p3p7-fb3*p3p5*p7p8+
1534 . fb3*p3p7*p5p8)))
1535 b(19)=ccc*(4*w1*p4p8*(fmb*hbcm+fmc*hbcm)+4*w8*p2p8*(fmb*hbcm+
1536 . fmc*hbcm)+16*(-2*fb3*p1p8-fb3*p2p8+2*fb3*p5p8))
1537 b(20)=ccc*(8*w1*(ffmcfmb*hbcm*p3p7*p4p8+hbcm*p4p8*p5p7)+8*w8*(
1538 . ffmcfmb*hbcm*p2p8*p3p7+hbcm*p2p8*p5p7)+16*p7p8*(-fb3*fmc-fb4*
1539 . ffmcfmb*hbcm))
1540 b(21)=2*ccc*(4*fb3*fmb-8*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)
1541 b(22)=8*ccc*(-2*fb3*hbcm2+4*fb3*p1p3+2*fb3*p2p3-4*fb3*p3p5-fb4*
1542 . fmb*hbcm-fb4*fmc*hbcm)
1543 b(23)=ccc*(4*p3p7*(4*fb3*fmc-hbcm)-16*fb4*hbcm*p5p7)
1544 b(24)=ccc*(4*p3p6*(-4*fb3*fmb+8*fb3*fmc+4*fb4*ffmcfmb*hbcm-4*
1545 . fb4*hbcm-hbcm)+16*(-fb4*hbcm*p4p6-fb4*hbcm*p5p6))
1546 b(25)=ccc*(4*p5p7*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm
1547 . )+4*p3p7*(4*fb3*fmb-hbcm))
1548 b(26)=ccc*(4*p5p6*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm
1549 . )+4*p4p6*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm)+4*p3p6
1550 . *(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm))
1551 b(27)=ccc*(16*p6p7*(2*fb3*hbcm2-fb4*fmb*hbcm-fb4*fmc*hbcm)+32*(
1552 . -fb3*p2p3*p6p7+2*fb3*p3p4*p6p7-2*fb3*p3p6*p3p7-2*fb3*p3p6*p4p7
1553 . -fb3*p3p7*p4p6-fb3*p3p7*p5p6))
1554 b(28)=ccc*(8*w1*(p6p7*p4p8)*(-fmb*hbcm-fmc*hbcm)+8*w8*(p6p7*
1555 . p2p8)*(-fmb*hbcm-fmc*hbcm)+32*(-fb3*p2p8*p6p7-fb3*p3p6*p7p8-
1556 . fb3*p3p7*p6p8-fb3*p4p6*p7p8-2*fb3*p4p7*p6p8+2*fb3*p4p8*p6p7-
1557 . fb3*p5p6*p7p8))
1558 b(29)=32*ccc*(-fb3*p3p6-fb3*p4p6-fb3*p5p6)
1559 b(30)=16*ccc*(-fb3*p3p7-2*fb3*p5p7)
1560 b(31)=ccc*(w1*(8*(p6p7*p4p8)*(ffmcfmb*hbcm3+fmb*hbcm2-2*hbcm3)+
1561 . 16*(p4p8*p3p7*p3p6)*(-ffmcfmb*hbcm+2*hbcm)+16*(hbcm*p2p3*p4p8*
1562 . p6p7-hbcm*p3p4*p4p8*p6p7+hbcm*p3p6*p4p7*p4p8+hbcm*p3p7*p4p6*
1563 . p4p8+hbcm*p3p7*p4p8*p5p6))+w8*(8*(p6p7*p2p8)*(ffmcfmb*hbcm3+
1564 . fmb*hbcm2-2*hbcm3)+16*(p3p7*p3p6*p2p8)*(-ffmcfmb*hbcm+2*hbcm)+
1565 . 16*(hbcm*p2p3*p2p8*p6p7-hbcm*p2p8*p3p4*p6p7+hbcm*p2p8*p3p6*
1566 . p4p7+hbcm*p2p8*p3p7*p4p6+hbcm*p2p8*p3p7*p5p6))+(8*(p6p8*p3p7)*
1567 . (-4*fb3*fmc-4*fb4*hbcm+hbcm)+32*(p7p8*p3p6)*(fb3*fmc+fb4*
1568 . ffmcfmb*hbcm-fb4*hbcm)+32*(-fb4*hbcm*p2p8*p6p7-fb4*hbcm*p4p6*
1569 . p7p8-fb4*hbcm*p4p7*p6p8+fb4*hbcm*p4p8*p6p7-fb4*hbcm*p5p6*p7p8)
1570 . ))
1571 b(32)=4*ccc*p6p7*(4*fb3*fmb-8*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)
1572 do 200 n=1,32
1573 c(n,1)=c(n,1)+0.09090909090909091d0*b(n)
1574 c(n,2)=c(n,2)-0.01680909685530997d0*b(n)
1575 c(n,3)=c(n,3)-0.02077659977796572d0*b(n)
1576 200 continue
1577 return
1578 end
1579
1580 subroutine amp19_1p1(cc)
1581 implicit double precision(a-h,o-z)
1582 implicit integer (i-n)
1583 dimension b(32)
1584 #include "inclcon.h"
1585 #include "inclppp.h"
1586 #include "inclamp.h"
1587 do 100 n=1,32
1588 b(n)=0.0d0
1589 100 continue
1590 ccc=cc/((ffmcfmb**2*hbcm2-2*ffmcfmb*p2p3+2*ffmcfmb*p3p4+fmc2-2*
1591 . p2p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p2p3-fmc2)*(ffmcfmb**2*hbcm2
1592 . -2*ffmcfmb*hbcm2+2*ffmcfmb*p1p3-fmb2+hbcm2-2*p1p3))
1593 b(1)=ccc*(4*p6p7*(-4*fb3*ffmcfmb**2*hbcm2+4*fb3*fmb*fmc+8*fb3*
1594 . fmc2+4*fb4*ffmcfmb*fmb*hbcm+4*fb4*ffmcfmb*fmc*hbcm-fmb*hbcm-
1595 . fmc*hbcm)+32*(fb3*ffmcfmb*p3p6*p3p7+2*fb3*ffmcfmb*p3p7*p4p6+
1596 . fb3*p1p2*p6p7-fb3*p2p3*p6p7-3*fb3*p2p4*p6p7))
1597 ans2=(16*(p6p7*p4p8)*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+16*(
1598 . p6p8*p4p7)*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+8*(p7p8*p4p6)*(
1599 . 8*fb3*fmc+8*fb4*ffmcfmb*hbcm-hbcm)+8*(p7p8*p3p6)*(4*fb3*fmc+4*
1600 . fb4*ffmcfmb*hbcm-ffmcfmb*hbcm)+8*(p6p7*p2p8)*(4*fb3*fmc+4*fb4*
1601 . ffmcfmb*hbcm-hbcm)+8*(p6p7*p1p8)*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm
1602 . -hbcm)+8*(p6p8*p3p7)*(-4*fb3*ffmcfmb*fmb+4*fb3*ffmcfmb*fmc+4*
1603 . fb3*fmc+4*fb4*ffmcfmb*hbcm-ffmcfmb*hbcm-hbcm))
1604 ans1=w7*(8*(p6p7*p2p8)*(ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-fmb
1605 . *fmc*hbcm+fmc2*hbcm)+16*(p3p7*p3p6*p2p8)*(-ffmcfmb**2*hbcm+
1606 . ffmcfmb*hbcm)+16*(ffmcfmb*hbcm*p2p8*p3p7*p4p6+hbcm*p1p2*p2p8*
1607 . p6p7-hbcm*p2p3*p2p8*p6p7-2*hbcm*p2p4*p2p8*p6p7))+w11*(8*(p6p7*
1608 . p4p8)*(-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm-fmc2*
1609 . hbcm)+8*(p6p7*p2p8)*(ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-fmb*
1610 . fmc*hbcm+fmc2*hbcm)+16*(p4p8*p3p7*p3p6)*(ffmcfmb**2*hbcm-
1611 . ffmcfmb*hbcm)+16*(p3p7*p3p6*p2p8)*(-ffmcfmb**2*hbcm+ffmcfmb*
1612 . hbcm)+16*(ffmcfmb*hbcm*p2p8*p3p7*p4p6-ffmcfmb*hbcm*p3p7*p4p6*
1613 . p4p8+hbcm*p1p2*p2p8*p6p7-hbcm*p1p2*p4p8*p6p7-hbcm*p2p3*p2p8*
1614 . p6p7+hbcm*p2p3*p4p8*p6p7-2*hbcm*p2p4*p2p8*p6p7+2*hbcm*p2p4*
1615 . p4p8*p6p7))+w13*(8*(p6p7*p1p8)*(-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc
1616 . *hbcm2+fmb*fmc*hbcm-fmc2*hbcm)+16*(p3p7*p3p6*p1p8)*(ffmcfmb**2
1617 . *hbcm-ffmcfmb*hbcm)+16*(-ffmcfmb*hbcm*p1p8*p3p7*p4p6-hbcm*p1p2
1618 . *p1p8*p6p7+hbcm*p1p8*p2p3*p6p7+2*hbcm*p1p8*p2p4*p6p7))+ans2
1619 ans=ccc*ans1
1620 b(2)=ans
1621 b(3)=ccc*(w7*(16*(p5p7*p2p8)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p3p7*
1622 . p2p8)*(ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-fmc*
1623 . hbcm))+w11*(16*(p5p7*p4p8)*(-ffmcfmb*hbcm2+fmc*hbcm)+16*(p5p7*
1624 . p2p8)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p4p8*p3p7)*(-ffmcfmb*fmb*
1625 . hbcm-ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2+fmc*hbcm)+8*(p3p7*p2p8)*(
1626 . ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-fmc*hbcm))+w13
1627 . *(16*(p5p7*p1p8)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(p3p7*p1p8)*(-
1628 . ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2+fmc*hbcm))+(16
1629 . *p7p8*(-fb3*ffmcfmb**2*hbcm2+fb3*fmb*fmc+2*fb3*fmc2+fb4*
1630 . ffmcfmb*fmb*hbcm+fb4*ffmcfmb*fmc*hbcm)+32*(fb3*ffmcfmb*p1p8*
1631 . p3p7-2*fb3*ffmcfmb*p3p7*p5p8-2*fb3*p1p2*p7p8+2*fb3*p2p3*p7p8+3
1632 . *fb3*p2p5*p7p8+fb3*p2p8*p3p7+fb3*p2p8*p5p7)))
1633 b(4)=ccc*(8*p5p7*(-4*fb3*ffmcfmb*hbcm2-4*fb4*fmc*hbcm+hbcm2)+4*
1634 . p3p7*(4*fb3*ffmcfmb**2*hbcm2+4*fb3*ffmcfmb*hbcm2-4*fb3*fmb*fmc
1635 . -8*fb3*fmc2-4*fb4*fmc*hbcm+fmb*hbcm+fmc*hbcm+hbcm2)+32*(-fb3*
1636 . ffmcfmb*p1p3*p3p7-2*fb3*ffmcfmb*p2p3*p3p7+2*fb3*ffmcfmb*p3p5*
1637 . p3p7+2*fb3*p1p2*p3p7+3*fb3*p2p3*p5p7-3*fb3*p2p5*p3p7))
1638 ans2=(16*(p5p8*p3p7)*(-4*fb3*fmc-2*fb4*ffmcfmb*hbcm+hbcm)+8*(
1639 . p7p8*p3p5)*(8*fb3*fmc+8*fb4*ffmcfmb*hbcm-hbcm)+8*(p3p7*p1p8)*(
1640 . 4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+8*(p7p8*p1p3)*(-4*fb3*fmc-4
1641 . *fb4*ffmcfmb*hbcm+hbcm)+8*(p3p7*p2p8)*(4*fb3*fmb+4*fb4*hbcm-
1642 . hbcm)+32*(p7p8*p2p3)*(-fb3*fmb-fb4*ffmcfmb*hbcm-fb4*hbcm)+4*
1643 . p7p8*(4*fb3*ffmcfmb*fmb*hbcm2-4*fb3*ffmcfmb*fmc*hbcm2+8*fb3*
1644 . fmc*hbcm2+8*fb4*ffmcfmb*hbcm3+4*fb4*fmb*fmc*hbcm-4*fb4*fmc2*
1645 . hbcm+ffmcfmb*hbcm3+fmc*hbcm2-2*hbcm3)+32*(fb4*hbcm*p1p2*p7p8-2
1646 . *fb4*hbcm*p2p5*p7p8+2*fb4*hbcm*p2p8*p5p7))
1647 ans1=w7*(8*(p5p7*p2p8)*(-ffmcfmb*hbcm3+fmc*hbcm2)+8*(p3p7*p2p8)
1648 . *(ffmcfmb**2*hbcm3+ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm-fmc2*hbcm)+
1649 . 16*(-ffmcfmb*hbcm*p2p3*p2p8*p3p7+ffmcfmb*hbcm*p2p8*p3p5*p3p7+
1650 . hbcm*p1p2*p2p8*p3p7+2*hbcm*p2p3*p2p8*p5p7-2*hbcm*p2p5*p2p8*
1651 . p3p7))+w11*(8*(p5p7*p4p8)*(ffmcfmb*hbcm3-fmc*hbcm2)+8*(p5p7*
1652 . p2p8)*(-ffmcfmb*hbcm3+fmc*hbcm2)+8*(p4p8*p3p7)*(-ffmcfmb**2*
1653 . hbcm3-ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm+fmc2*hbcm)+8*(p3p7*p2p8)*
1654 . (ffmcfmb**2*hbcm3+ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm-fmc2*hbcm)+16
1655 . *(-ffmcfmb*hbcm*p2p3*p2p8*p3p7+ffmcfmb*hbcm*p2p3*p3p7*p4p8+
1656 . ffmcfmb*hbcm*p2p8*p3p5*p3p7-ffmcfmb*hbcm*p3p5*p3p7*p4p8+hbcm*
1657 . p1p2*p2p8*p3p7-hbcm*p1p2*p3p7*p4p8+2*hbcm*p2p3*p2p8*p5p7-2*
1658 . hbcm*p2p3*p4p8*p5p7-2*hbcm*p2p5*p2p8*p3p7+2*hbcm*p2p5*p3p7*
1659 . p4p8))+w13*(8*(p5p7*p1p8)*(ffmcfmb*hbcm3-fmc*hbcm2)+8*(p3p7*
1660 . p1p8)*(-ffmcfmb**2*hbcm3-ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm+fmc2*
1661 . hbcm)+16*(ffmcfmb*hbcm*p1p8*p2p3*p3p7-ffmcfmb*hbcm*p1p8*p3p5*
1662 . p3p7-hbcm*p1p2*p1p8*p3p7-2*hbcm*p1p8*p2p3*p5p7+2*hbcm*p1p8*
1663 . p2p5*p3p7))+ans2
1664 ans=ccc*ans1
1665 b(5)=ans
1666 b(6)=ccc*(w7*(16*(p4p6*p2p8)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p3p6*
1667 . p2p8)*(ffmcfmb*hbcm2-fmc*hbcm))+w11*(16*(p4p8*p4p6)*(-ffmcfmb*
1668 . hbcm2+fmc*hbcm)+8*(p4p8*p3p6)*(-ffmcfmb*hbcm2+fmc*hbcm)+16*(
1669 . p4p6*p2p8)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p3p6*p2p8)*(ffmcfmb*
1670 . hbcm2-fmc*hbcm))+w13*(16*(p4p6*p1p8)*(-ffmcfmb*hbcm2+fmc*hbcm)
1671 . +8*(p3p6*p1p8)*(-ffmcfmb*hbcm2+fmc*hbcm))+(32*(p3p6*p2p8)*(-
1672 . fb3*ffmcfmb-fb3)+4*p6p8*(-4*fb3*ffmcfmb**2*hbcm2+4*fb3*fmb*fmc
1673 . +8*fb3*fmc2+4*fb4*ffmcfmb*fmb*hbcm+4*fb4*ffmcfmb*fmc*hbcm-fmb*
1674 . hbcm-fmc*hbcm)+32*(fb3*p1p2*p6p8-fb3*p2p3*p6p8-3*fb3*p2p4*p6p8
1675 . -3*fb3*p2p8*p4p6)))
1676 b(7)=ccc*(32*(p3p6*p2p3)*(fb3*ffmcfmb+2*fb3)+8*p4p6*(-4*fb3*
1677 . ffmcfmb*hbcm2-4*fb4*fmc*hbcm+hbcm2)+4*p3p6*(4*fb3*ffmcfmb**2*
1678 . hbcm2-4*fb3*ffmcfmb*hbcm2-4*fb3*fmb*fmc-8*fb3*fmc2-4*fb4*
1679 . ffmcfmb*fmb*hbcm-4*fb4*ffmcfmb*fmc*hbcm-4*fb4*fmc*hbcm+fmb*
1680 . hbcm+fmc*hbcm+hbcm2)+32*(-fb3*p1p2*p3p6+3*fb3*p2p3*p4p6+3*fb3*
1681 . p2p4*p3p6))
1682 ans2=(16*(p4p8*p3p6)*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+16*(
1683 . p6p8*p3p4)*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+8*(p3p6*p1p8)*
1684 . (-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+8*(p6p8*p1p3)*(4*fb3*fmc+
1685 . 4*fb4*ffmcfmb*hbcm-hbcm)+8*(p3p6*p2p8)*(4*fb3*fmb-8*fb3*fmc-4*
1686 . fb4*ffmcfmb*hbcm+4*fb4*hbcm+hbcm)+8*(p6p8*p2p3)*(-4*fb3*fmb+8*
1687 . fb3*fmc+4*fb4*ffmcfmb*hbcm+4*fb4*hbcm-hbcm)+4*p6p8*(4*fb3*
1688 . ffmcfmb*fmb*hbcm2-4*fb3*ffmcfmb*fmc*hbcm2-8*fb3*fmc*hbcm2-8*
1689 . fb4*ffmcfmb*hbcm3+4*fb4*fmb*fmc*hbcm-4*fb4*fmc2*hbcm+ffmcfmb*
1690 . hbcm3-fmb*hbcm2+2*hbcm3)+32*(-fb4*hbcm*p1p2*p6p8+2*fb4*hbcm*
1691 . p2p4*p6p8+2*fb4*hbcm*p2p8*p4p6))
1692 ans1=w7*(8*(p4p6*p2p8)*(-ffmcfmb*hbcm3+fmc*hbcm2)+8*(p3p6*p2p8)
1693 . *(ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2-ffmcfmb*hbcm3+fmb*fmc*
1694 . hbcm+fmc*hbcm2-fmc2*hbcm)+16*(-hbcm*p1p2*p2p8*p3p6+2*hbcm*p2p3
1695 . *p2p8*p3p6+2*hbcm*p2p3*p2p8*p4p6+2*hbcm*p2p4*p2p8*p3p6))+w11*(
1696 . 8*(p4p8*p4p6)*(ffmcfmb*hbcm3-fmc*hbcm2)+8*(p4p6*p2p8)*(-
1697 . ffmcfmb*hbcm3+fmc*hbcm2)+8*(p4p8*p3p6)*(-ffmcfmb**2*hbcm3+
1698 . ffmcfmb*fmb*hbcm2+ffmcfmb*hbcm3-fmb*fmc*hbcm-fmc*hbcm2+fmc2*
1699 . hbcm)+8*(p3p6*p2p8)*(ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2-
1700 . ffmcfmb*hbcm3+fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+16*(-hbcm*p1p2
1701 . *p2p8*p3p6+hbcm*p1p2*p3p6*p4p8+2*hbcm*p2p3*p2p8*p3p6+2*hbcm*
1702 . p2p3*p2p8*p4p6-2*hbcm*p2p3*p3p6*p4p8-2*hbcm*p2p3*p4p6*p4p8+2*
1703 . hbcm*p2p4*p2p8*p3p6-2*hbcm*p2p4*p3p6*p4p8))+w13*(8*(p4p6*p1p8)
1704 . *(ffmcfmb*hbcm3-fmc*hbcm2)+8*(p3p6*p1p8)*(-ffmcfmb**2*hbcm3+
1705 . ffmcfmb*fmb*hbcm2+ffmcfmb*hbcm3-fmb*fmc*hbcm-fmc*hbcm2+fmc2*
1706 . hbcm)+16*(hbcm*p1p2*p1p8*p3p6-2*hbcm*p1p8*p2p3*p3p6-2*hbcm*
1707 . p1p8*p2p3*p4p6-2*hbcm*p1p8*p2p4*p3p6))+ans2
1708 ans=ccc*ans1
1709 b(8)=ans
1710 b(9)=ccc*(16*(p4p6*p3p7)*(-4*fb3*fmc-2*fb4*ffmcfmb*hbcm+hbcm)+
1711 . 16*(p4p7*p3p6)*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+16*(p6p7*
1712 . p3p4)*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+8*(p6p7*p2p3)*(-4*
1713 . fb3*fmc-4*fb4*ffmcfmb*hbcm-4*fb4*hbcm+hbcm)+8*(p6p7*p1p3)*(-4*
1714 . fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+16*(p3p7*p3p6)*(2*fb3*ffmcfmb
1715 . *fmb-2*fb3*ffmcfmb*fmc-4*fb3*fmc-2*fb4*ffmcfmb**2*hbcm-2*fb4*
1716 . ffmcfmb*hbcm+hbcm)+4*p6p7*(-4*fb3*ffmcfmb*fmb*hbcm2+4*fb3*
1717 . ffmcfmb*fmc*hbcm2+8*fb3*fmc*hbcm2+8*fb4*ffmcfmb*hbcm3-4*fb4*
1718 . fmb*fmc*hbcm+4*fb4*fmc2*hbcm+fmb*hbcm2-fmc*hbcm2-2*hbcm3)+32*(
1719 . fb4*hbcm*p1p2*p6p7-2*fb4*hbcm*p2p4*p6p7))
1720 ans4=(8*(p7p8*p3p6)*(4*fb3*fmc2+4*fb4*ffmcfmb*fmc*hbcm-fmb*hbcm
1721 . -hbcm2)+64*(p3p7*p3p6*p2p8)*(3*fb3*ffmcfmb+fb3)+8*(p6p7*p4p8)*
1722 . (4*fb3*ffmcfmb*hbcm2+4*fb4*fmc*hbcm-hbcm2)+8*(p6p8*p4p7)*(-4*
1723 . fb3*ffmcfmb*hbcm2-4*fb4*fmc*hbcm+hbcm2)+8*(p7p8*p4p6)*(4*fb3*
1724 . ffmcfmb*hbcm2+4*fb4*fmc*hbcm-hbcm2)+8*(p6p8*p3p7)*(4*fb3*
1725 . ffmcfmb*hbcm2-4*fb3*fmc2-4*fb4*ffmcfmb*fmb*hbcm-4*fb4*fmc*hbcm
1726 . +fmc*hbcm+hbcm2)+8*(p6p7*p1p8)*(-4*fb3*ffmcfmb*hbcm2-4*fb4*fmc
1727 . *hbcm+hbcm2)+64*(-fb3*ffmcfmb*hbcm2*p2p8*p6p7-fb3*ffmcfmb*p1p3
1728 . *p3p7*p6p8+fb3*ffmcfmb*p1p8*p3p6*p3p7-fb3*ffmcfmb*p2p3*p3p6*
1729 . p7p8+fb3*ffmcfmb*p3p4*p3p7*p6p8-fb3*ffmcfmb*p3p6*p3p7*p4p8+fb3
1730 . *p1p8*p2p3*p6p7+2*fb3*p2p3*p2p8*p6p7+fb3*p2p3*p3p7*p6p8-fb3*
1731 . p2p3*p4p6*p7p8+2*fb3*p2p3*p4p7*p6p8-2*fb3*p2p3*p4p8*p6p7-fb3*
1732 . p2p4*p3p6*p7p8+fb3*p2p4*p3p7*p6p8-fb3*p2p8*p3p4*p6p7+fb3*p2p8*
1733 . p3p6*p4p7+4*fb3*p2p8*p3p7*p4p6))
1734 ans3=w13*(16*(p6p7*p2p3*p1p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(
1735 . p4p6*p3p7*p1p8)*(ffmcfmb*hbcm2-fmc*hbcm)+16*(p4p7*p3p6*p1p8)*(
1736 . -ffmcfmb*hbcm2+fmc*hbcm)+16*(p6p7*p3p4*p1p8)*(ffmcfmb*hbcm2-
1737 . fmc*hbcm)+16*(p6p7*p1p8*p1p3)*(-ffmcfmb*hbcm2+fmc*hbcm)+16*(
1738 . p3p7*p3p6*p1p8)*(ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm+fmc*hbcm)+8
1739 . *(p6p7*p1p8)*(-ffmcfmb**2*hbcm4-ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*
1740 . hbcm3+2*ffmcfmb*hbcm4+fmb*fmc*hbcm2-2*fmc*hbcm3)+16*(hbcm2*
1741 . p1p2*p1p8*p6p7-hbcm2*p1p8*p2p4*p6p7))+ans4
1742 ans2=w11*(16*(p6p7*p4p8*p2p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(
1743 . p6p7*p2p8*p2p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p4p8*p4p6*p3p7)
1744 . *(ffmcfmb*hbcm2-fmc*hbcm)+16*(p4p8*p4p7*p3p6)*(-ffmcfmb*hbcm2+
1745 . fmc*hbcm)+16*(p6p7*p4p8*p3p4)*(ffmcfmb*hbcm2-fmc*hbcm)+16*(
1746 . p4p6*p3p7*p2p8)*(-ffmcfmb*hbcm2+fmc*hbcm)+16*(p4p7*p3p6*p2p8)*
1747 . (ffmcfmb*hbcm2-fmc*hbcm)+16*(p6p7*p3p4*p2p8)*(-ffmcfmb*hbcm2+
1748 . fmc*hbcm)+16*(p6p7*p4p8*p1p3)*(-ffmcfmb*hbcm2+fmc*hbcm)+16*(
1749 . p6p7*p2p8*p1p3)*(ffmcfmb*hbcm2-fmc*hbcm)+16*(p4p8*p3p7*p3p6)*(
1750 . ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm+fmc*hbcm)+16*(p3p7*p3p6*p2p8
1751 . )*(-ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm-fmc*hbcm)+8*(p6p7*p4p8)*
1752 . (-ffmcfmb**2*hbcm4-ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*hbcm3+2*
1753 . ffmcfmb*hbcm4+fmb*fmc*hbcm2-2*fmc*hbcm3)+8*(p6p7*p2p8)*(
1754 . ffmcfmb**2*hbcm4+ffmcfmb*fmb*hbcm3-ffmcfmb*fmc*hbcm3-2*ffmcfmb
1755 . *hbcm4-fmb*fmc*hbcm2+2*fmc*hbcm3)+16*(-hbcm2*p1p2*p2p8*p6p7+
1756 . hbcm2*p1p2*p4p8*p6p7+hbcm2*p2p4*p2p8*p6p7-hbcm2*p2p4*p4p8*p6p7
1757 . ))+ans3
1758 ans1=w7*(16*(p6p7*p2p8*p2p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(
1759 . p4p6*p3p7*p2p8)*(-ffmcfmb*hbcm2+fmc*hbcm)+16*(p4p7*p3p6*p2p8)*
1760 . (ffmcfmb*hbcm2-fmc*hbcm)+16*(p6p7*p3p4*p2p8)*(-ffmcfmb*hbcm2+
1761 . fmc*hbcm)+16*(p6p7*p2p8*p1p3)*(ffmcfmb*hbcm2-fmc*hbcm)+16*(
1762 . p3p7*p3p6*p2p8)*(-ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm-fmc*hbcm)+
1763 . 8*(p6p7*p2p8)*(ffmcfmb**2*hbcm4+ffmcfmb*fmb*hbcm3-ffmcfmb*fmc*
1764 . hbcm3-2*ffmcfmb*hbcm4-fmb*fmc*hbcm2+2*fmc*hbcm3)+16*(-hbcm2*
1765 . p1p2*p2p8*p6p7+hbcm2*p2p4*p2p8*p6p7))+ans2
1766 ans=ccc*ans1
1767 b(10)=ans
1768 ans=ccc*(w7*(4*p2p8*(-ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2-
1769 . ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm+2*fmc2*hbcm)+8*(-2*hbcm*p1p2*
1770 . p2p8+2*hbcm*p2p3*p2p8+3*hbcm*p2p5*p2p8))+w11*(4*p4p8*(ffmcfmb
1771 . **2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm-2*
1772 . fmc2*hbcm)+4*p2p8*(-ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2-ffmcfmb
1773 . *fmc*hbcm2-fmb*fmc*hbcm+2*fmc2*hbcm)+8*(-2*hbcm*p1p2*p2p8+2*
1774 . hbcm*p1p2*p4p8+2*hbcm*p2p3*p2p8-2*hbcm*p2p3*p4p8+3*hbcm*p2p5*
1775 . p2p8-3*hbcm*p2p5*p4p8))+w13*(4*p1p8*(ffmcfmb**2*hbcm3-ffmcfmb*
1776 . fmb*hbcm2+ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm-2*fmc2*hbcm)+8*(2*
1777 . hbcm*p1p2*p1p8-2*hbcm*p1p8*p2p3-3*hbcm*p1p8*p2p5))+(12*p5p8*(4
1778 . *fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+8*p1p8*(-4*fb3*fmc-4*fb4*
1779 . ffmcfmb*hbcm+hbcm)+4*p2p8*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+hbcm)
1780 . ))
1781 b(11)=ans
1782 b(12)=2*ccc*(8*fb3*ffmcfmb**2*hbcm2-4*fb3*fmb*fmc-12*fb3*fmc2+
1783 . 24*fb3*p1p2-24*fb3*p2p3-32*fb3*p2p5-4*fb4*ffmcfmb*fmb*hbcm-4*
1784 . fb4*ffmcfmb*fmc*hbcm+fmb*hbcm+fmc*hbcm)
1785 ans2=w13*(16*(p3p5*p1p8)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p2p3*p1p8)
1786 . *(-ffmcfmb*hbcm2-fmb*hbcm-hbcm2)+8*(p1p8*p1p3)*(-ffmcfmb*hbcm2
1787 . +fmc*hbcm)+4*p1p8*(ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*hbcm3+2*
1788 . ffmcfmb*hbcm4-fmb*fmc*hbcm2-2*fmc*hbcm3-fmc2*hbcm2)+8*(hbcm2*
1789 . p1p2*p1p8-2*hbcm2*p1p8*p2p5))+(8*p5p8*(4*fb3*ffmcfmb*hbcm2+4*
1790 . fb4*fmc*hbcm-hbcm2)+4*p2p8*(-12*fb3*ffmcfmb*hbcm2+16*fb3*hbcm2
1791 . +4*fb4*fmb*hbcm+hbcm2)+4*p1p8*(-4*fb3*ffmcfmb*hbcm2-4*fb4*fmc*
1792 . hbcm+hbcm2)+32*(-2*fb3*p1p3*p2p8+2*fb3*p1p8*p2p3-3*fb3*p2p3*
1793 . p5p8+3*fb3*p2p8*p3p5))
1794 ans1=w7*(16*(p3p5*p2p8)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(p2p8*p2p3)
1795 . *(ffmcfmb*hbcm2+fmb*hbcm+hbcm2)+8*(p2p8*p1p3)*(ffmcfmb*hbcm2-
1796 . fmc*hbcm)+4*p2p8*(-ffmcfmb*fmb*hbcm3-ffmcfmb*fmc*hbcm3-2*
1797 . ffmcfmb*hbcm4+fmb*fmc*hbcm2+2*fmc*hbcm3+fmc2*hbcm2)+8*(-hbcm2*
1798 . p1p2*p2p8+2*hbcm2*p2p5*p2p8))+w11*(16*(p4p8*p3p5)*(ffmcfmb*
1799 . hbcm2-fmc*hbcm)+16*(p3p5*p2p8)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(
1800 . p4p8*p2p3)*(-ffmcfmb*hbcm2-fmb*hbcm-hbcm2)+8*(p2p8*p2p3)*(
1801 . ffmcfmb*hbcm2+fmb*hbcm+hbcm2)+8*(p4p8*p1p3)*(-ffmcfmb*hbcm2+
1802 . fmc*hbcm)+8*(p2p8*p1p3)*(ffmcfmb*hbcm2-fmc*hbcm)+4*p4p8*(
1803 . ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*hbcm3+2*ffmcfmb*hbcm4-fmb*fmc*
1804 . hbcm2-2*fmc*hbcm3-fmc2*hbcm2)+4*p2p8*(-ffmcfmb*fmb*hbcm3-
1805 . ffmcfmb*fmc*hbcm3-2*ffmcfmb*hbcm4+fmb*fmc*hbcm2+2*fmc*hbcm3+
1806 . fmc2*hbcm2)+8*(-hbcm2*p1p2*p2p8+hbcm2*p1p2*p4p8+2*hbcm2*p2p5*
1807 . p2p8-2*hbcm2*p2p5*p4p8))+ans2
1808 ans=ccc*ans1
1809 b(13)=ans
1810 b(14)=ccc*(12*p3p5*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+8*p1p3*
1811 . (4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+4*p2p3*(4*fb3*fmb+4*fb4*
1812 . ffmcfmb*hbcm+8*fb4*hbcm-hbcm)+2*(-4*fb3*ffmcfmb*fmb*hbcm2+12*
1813 . fb3*ffmcfmb*fmc*hbcm2-16*fb3*fmc*hbcm2+4*fb4*ffmcfmb**2*hbcm3-
1814 . 16*fb4*ffmcfmb*hbcm3-4*fb4*fmb*fmc*hbcm+8*fb4*fmc2*hbcm-16*fb4
1815 . *hbcm*p1p2+24*fb4*hbcm*p2p5-2*ffmcfmb*hbcm3+fmb*hbcm2-fmc*
1816 . hbcm2+4*hbcm3))
1817 b(15)=ccc*(w7*(8*(p3p6*p2p8)*(fmb*hbcm+fmc*hbcm+hbcm2)+16*hbcm2
1818 . *p2p8*p4p6)+w11*(8*(p4p8*p3p6)*(-fmb*hbcm-fmc*hbcm-hbcm2)+8*(
1819 . p3p6*p2p8)*(fmb*hbcm+fmc*hbcm+hbcm2)+16*(hbcm2*p2p8*p4p6-hbcm2
1820 . *p4p6*p4p8))+w13*(8*(p3p6*p1p8)*(-fmb*hbcm-fmc*hbcm-hbcm2)-16*
1821 . hbcm2*p1p8*p4p6)+(16*p6p8*(-2*fb3*ffmcfmb*hbcm2-2*fb3*hbcm2+
1822 . fb4*fmb*hbcm+fb4*fmc*hbcm)+32*(fb3*p1p3*p6p8-fb3*p1p8*p3p6+2*
1823 . fb3*p2p3*p6p8-2*fb3*p2p8*p3p6-3*fb3*p3p4*p6p8+3*fb3*p3p6*p4p8)
1824 . ))
1825 b(16)=ccc*(w7*(8*(p3p6*p2p8)*(-ffmcfmb*hbcm-hbcm)-24*hbcm*p2p8*
1826 . p4p6)+w11*(8*(p4p8*p3p6)*(ffmcfmb*hbcm+hbcm)+8*(p3p6*p2p8)*(-
1827 . ffmcfmb*hbcm-hbcm)+24*(-hbcm*p2p8*p4p6+hbcm*p4p6*p4p8))+w13*(8
1828 . *(p3p6*p1p8)*(ffmcfmb*hbcm+hbcm)+24*hbcm*p1p8*p4p6)+4*p6p8*(4*
1829 . fb3*fmb-4*fb3*fmc-hbcm))
1830 b(17)=ccc*(w7*(4*p2p8*(2*ffmcfmb*hbcm3-fmb*hbcm2+fmc*hbcm2-4*
1831 . hbcm3)+8*(2*hbcm*p1p3*p2p8+hbcm*p2p3*p2p8-3*hbcm*p2p8*p3p5))+
1832 . w11*(4*p4p8*(-2*ffmcfmb*hbcm3+fmb*hbcm2-fmc*hbcm2+4*hbcm3)+4*
1833 . p2p8*(2*ffmcfmb*hbcm3-fmb*hbcm2+fmc*hbcm2-4*hbcm3)+8*(2*hbcm*
1834 . p1p3*p2p8-2*hbcm*p1p3*p4p8+hbcm*p2p3*p2p8-hbcm*p2p3*p4p8-3*
1835 . hbcm*p2p8*p3p5+3*hbcm*p3p5*p4p8))+w13*(4*p1p8*(-2*ffmcfmb*
1836 . hbcm3+fmb*hbcm2-fmc*hbcm2+4*hbcm3)+8*(-2*hbcm*p1p3*p1p8-hbcm*
1837 . p1p8*p2p3+3*hbcm*p1p8*p3p5))+16*(2*fb4*hbcm*p1p8+fb4*hbcm*p2p8
1838 . -3*fb4*hbcm*p5p8))
1839 b(18)=ccc*(w7*(8*(p3p7*p2p8)*(-fmb*hbcm-fmc*hbcm-hbcm2)-16*
1840 . hbcm2*p2p8*p5p7)+w11*(8*(p4p8*p3p7)*(fmb*hbcm+fmc*hbcm+hbcm2)+
1841 . 8*(p3p7*p2p8)*(-fmb*hbcm-fmc*hbcm-hbcm2)+16*(-hbcm2*p2p8*p5p7+
1842 . hbcm2*p4p8*p5p7))+w13*(8*(p3p7*p1p8)*(fmb*hbcm+fmc*hbcm+hbcm2)
1843 . +16*hbcm2*p1p8*p5p7)+(16*p7p8*(2*fb3*ffmcfmb*hbcm2-4*fb3*hbcm2
1844 . -fb4*fmb*hbcm-fb4*fmc*hbcm)+32*(2*fb3*p1p3*p7p8-2*fb3*p1p8*
1845 . p3p7+fb3*p2p3*p7p8-fb3*p2p8*p3p7-3*fb3*p3p5*p7p8+3*fb3*p3p7*
1846 . p5p8)))
1847 b(19)=ccc*(4*w7*p2p8*(-fmb*hbcm-fmc*hbcm)+w11*(4*p4p8*(fmb*hbcm
1848 . +fmc*hbcm)+4*p2p8*(-fmb*hbcm-fmc*hbcm))+4*w13*p1p8*(fmb*hbcm+
1849 . fmc*hbcm)+16*(-3*fb3*p1p8-fb3*p2p8+4*fb3*p5p8))
1850 b(20)=ccc*(w7*(8*(p3p7*p2p8)*(ffmcfmb*hbcm-2*hbcm)-24*hbcm*p2p8
1851 . *p5p7)+w11*(8*(p4p8*p3p7)*(-ffmcfmb*hbcm+2*hbcm)+8*(p3p7*p2p8)
1852 . *(ffmcfmb*hbcm-2*hbcm)+24*(-hbcm*p2p8*p5p7+hbcm*p4p8*p5p7))+
1853 . w13*(8*(p3p7*p1p8)*(-ffmcfmb*hbcm+2*hbcm)+24*hbcm*p1p8*p5p7)+4
1854 . *p7p8*(4*fb3*fmb-4*fb3*fmc+hbcm))
1855 b(21)=8*ccc*(fb3*fmb-fb3*fmc)
1856 b(22)=8*ccc*(4*fb3*ffmcfmb*hbcm2-6*fb3*hbcm2+6*fb3*p1p3+2*fb3*
1857 . p2p3-8*fb3*p3p5-fb4*fmb*hbcm-fb4*fmc*hbcm)
1858 b(23)=ccc*(16*p3p7*(-fb3*fmb+fb3*fmc+fb4*ffmcfmb*hbcm-2*fb4*
1859 . hbcm)-48*fb4*hbcm*p5p7)
1860 b(24)=ccc*(16*p3p6*(-fb3*fmb+fb3*fmc-fb4*ffmcfmb*hbcm-fb4*hbcm)
1861 . -48*fb4*hbcm*p4p6)
1862 b(25)=ccc*(12*p5p7*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+4*p3p7*
1863 . (-4*fb3*ffmcfmb*fmb+8*fb3*ffmcfmb*fmc-8*fb3*fmc+4*fb4*ffmcfmb
1864 . **2*hbcm-8*fb4*ffmcfmb*hbcm-ffmcfmb*hbcm+2*hbcm))
1865 b(26)=ccc*(12*p4p6*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+4*p3p6*
1866 . (-4*fb3*ffmcfmb*fmc-4*fb3*fmc-4*fb4*ffmcfmb**2*hbcm-4*fb4*
1867 . ffmcfmb*hbcm+ffmcfmb*hbcm+hbcm))
1868 b(27)=ccc*(64*(p3p7*p3p6)*(-fb3*ffmcfmb-fb3)+16*p6p7*(2*fb3*
1869 . ffmcfmb*hbcm2+2*fb3*hbcm2-fb4*fmb*hbcm-fb4*fmc*hbcm)+32*(-fb3*
1870 . p1p3*p6p7-2*fb3*p2p3*p6p7+3*fb3*p3p4*p6p7-3*fb3*p3p6*p4p7-3*
1871 . fb3*p3p7*p4p6))
1872 b(28)=ccc*(8*w7*(p6p7*p2p8)*(fmb*hbcm+fmc*hbcm)+w11*(8*(p6p7*
1873 . p4p8)*(-fmb*hbcm-fmc*hbcm)+8*(p6p7*p2p8)*(fmb*hbcm+fmc*hbcm))+
1874 . 8*w13*(p6p7*p1p8)*(-fmb*hbcm-fmc*hbcm)+(32*(p6p8*p3p7)*(-fb3*
1875 . ffmcfmb-fb3)+32*(p7p8*p3p6)*(-fb3*ffmcfmb-fb3)+32*(-fb3*p1p8*
1876 . p6p7-2*fb3*p2p8*p6p7-3*fb3*p4p6*p7p8-3*fb3*p4p7*p6p8+3*fb3*
1877 . p4p8*p6p7)))
1878 b(29)=ccc*(16*p3p6*(-2*fb3*ffmcfmb-fb3)-64*fb3*p4p6)
1879 b(30)=ccc*(16*p3p7*(2*fb3*ffmcfmb-3*fb3)-64*fb3*p5p7)
1880 ans=ccc*(w7*(8*(p6p7*p2p8)*(-fmb*hbcm2+fmc*hbcm2+2*hbcm3)+16*(-
1881 . hbcm*p1p3*p2p8*p6p7-hbcm*p2p3*p2p8*p6p7+2*hbcm*p2p8*p3p4*p6p7-
1882 . 2*hbcm*p2p8*p3p6*p3p7-2*hbcm*p2p8*p3p6*p4p7-2*hbcm*p2p8*p3p7*
1883 . p4p6))+w11*(8*(p6p7*p4p8)*(fmb*hbcm2-fmc*hbcm2-2*hbcm3)+8*(
1884 . p6p7*p2p8)*(-fmb*hbcm2+fmc*hbcm2+2*hbcm3)+16*(-hbcm*p1p3*p2p8*
1885 . p6p7+hbcm*p1p3*p4p8*p6p7-hbcm*p2p3*p2p8*p6p7+hbcm*p2p3*p4p8*
1886 . p6p7+2*hbcm*p2p8*p3p4*p6p7-2*hbcm*p2p8*p3p6*p3p7-2*hbcm*p2p8*
1887 . p3p6*p4p7-2*hbcm*p2p8*p3p7*p4p6-2*hbcm*p3p4*p4p8*p6p7+2*hbcm*
1888 . p3p6*p3p7*p4p8+2*hbcm*p3p6*p4p7*p4p8+2*hbcm*p3p7*p4p6*p4p8))+
1889 . w13*(8*(p6p7*p1p8)*(fmb*hbcm2-fmc*hbcm2-2*hbcm3)+16*(hbcm*p1p3
1890 . *p1p8*p6p7+hbcm*p1p8*p2p3*p6p7-2*hbcm*p1p8*p3p4*p6p7+2*hbcm*
1891 . p1p8*p3p6*p3p7+2*hbcm*p1p8*p3p6*p4p7+2*hbcm*p1p8*p3p7*p4p6))+(
1892 . 32*(p6p8*p3p7)*(fb3*fmb-fb3*fmc-fb4*hbcm)+32*(p7p8*p3p6)*(-fb3
1893 . *fmb+fb3*fmc-fb4*hbcm)+32*(-fb4*hbcm*p1p8*p6p7-fb4*hbcm*p2p8*
1894 . p6p7-2*fb4*hbcm*p4p6*p7p8-2*fb4*hbcm*p4p7*p6p8+2*fb4*hbcm*p4p8
1895 . *p6p7)))
1896 b(31)=ans
1897 b(32)=16*ccc*p6p7*(fb3*fmb-fb3*fmc)
1898 do 200 n=1,32
1899 c(n,1)=c(n,1)-0.09090909090909091d0*b(n)
1900 c(n,2)=c(n,2)-0.1680909685530997d0*b(n)
1901 c(n,3)=c(n,3)-0.2077659977796572d0*b(n)
1902 200 continue
1903 return
1904 end
1905
1906 subroutine amp1s1_1p1(cc)
1907 implicit double precision(a-h,o-z)
1908 implicit integer (i-n)
1909 dimension b(10)
1910 #include "inclcon.h"
1911 #include "inclppp.h"
1912 #include "inclamp.h"
1913 do 100 n=1,10
1914 b(n)=0.0d0
1915 100 continue
1916 ccc=cc/((ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*p3p5+fmb2+
1917 . hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2))
1918 b(1)=-8*ccc*fb3*p6p7
1919 b(2)=4*ccc*(-hbcm*p4p8*p6p7*w1+hbcm*p5p8*p6p7*w2)
1920 b(3)=-8*ccc*fb3*p7p8
1921 b(4)=8*ccc*fb3*p3p7
1922 b(5)=4*ccc*(2*fb4*hbcm*p7p8-hbcm*p3p7*p4p8*w1+hbcm*p3p7*p5p8*w2
1923 . )
1924 b(6)=-8*ccc*fb3*p6p8
1925 b(7)=8*ccc*fb3*p3p6
1926 b(8)=4*ccc*(2*fb4*hbcm*p6p8-hbcm*p3p6*p4p8*w1+hbcm*p3p6*p5p8*w2
1927 . )
1928 b(9)=8*ccc*fb4*hbcm*p6p7
1929 b(10)=12*ccc*(hbcm2*p4p8*p6p7*w1-hbcm2*p5p8*p6p7*w2)
1930 do 200 n=1,10
1931 c(n,1)=c(n,1)+1.0d0*b(n)
1932 200 continue
1933 return
1934 end
1935
1936 subroutine amp27_1p1(cc)
1937 implicit double precision(a-h,o-z)
1938 implicit integer (i-n)
1939 dimension b(32)
1940 #include "inclcon.h"
1941 #include "inclppp.h"
1942 #include "inclamp.h"
1943 do 100 n=1,32
1944 b(n)=0.0d0
1945 100 continue
1946 ccc=cc/((-2*p2p5)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2)*(
1947 . ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2+2*ffmcfmb*p2p3-2*ffmcfmb*p3p5
1948 . +fmb2+hbcm2-2*p2p3-2*p2p5+2*p3p5))
1949 b(1)=16*ccc*(-fb3*p3p6*p5p7-3*fb3*p4p6*p5p7+fb3*p5p6*p5p7)
1950 b(2)=ccc*(w1*(16*(p5p7*p4p8*p3p6)*(-ffmcfmb*hbcm+hbcm)+16*hbcm*
1951 . p4p6*p4p8*p5p7)+w16*(16*(p5p8*p5p7*p3p6)*(ffmcfmb*hbcm-hbcm)+
1952 . 16*(p5p7*p3p6*p2p8)*(-ffmcfmb*hbcm+hbcm)+16*(hbcm*p2p8*p4p6*
1953 . p5p7-hbcm*p4p6*p5p7*p5p8))+4*(p6p8*p5p7)*(8*fb3*fmb-4*fb3*fmc+
1954 . 4*fb4*ffmcfmb*hbcm-8*fb4*hbcm+hbcm))
1955 b(3)=ccc*(12*w1*(p5p7*p4p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+w16*(12*(
1956 . p5p8*p5p7)*(-fmb*hbcm-fmc*hbcm+hbcm2)+12*(p5p7*p2p8)*(fmb*hbcm
1957 . +fmc*hbcm-hbcm2))+16*(-fb3*p1p8*p5p7-3*fb3*p2p8*p5p7-fb3*p4p8*
1958 . p5p7+3*fb3*p5p7*p5p8))
1959 b(4)=ccc*(8*p5p7*(2*fb3*ffmcfmb*hbcm2-3*fb3*hbcm2-3*fb4*fmb*
1960 . hbcm-3*fb4*fmc*hbcm)+16*(fb3*p1p3*p5p7+3*fb3*p2p3*p5p7+fb3*
1961 . p3p4*p5p7-3*fb3*p3p5*p5p7))
1962 b(5)=ccc*(w1*(4*(p5p7*p4p8)*(-2*ffmcfmb*hbcm3+3*fmb*hbcm2-3*fmc
1963 . *hbcm2+3*hbcm3)+8*(-hbcm*p1p3*p4p8*p5p7-3*hbcm*p2p3*p4p8*p5p7-
1964 . hbcm*p3p4*p4p8*p5p7+3*hbcm*p3p5*p4p8*p5p7))+w16*(4*(p5p8*p5p7)
1965 . *(2*ffmcfmb*hbcm3-3*fmb*hbcm2+3*fmc*hbcm2-3*hbcm3)+4*(p5p7*
1966 . p2p8)*(-2*ffmcfmb*hbcm3+3*fmb*hbcm2-3*fmc*hbcm2+3*hbcm3)+8*(-
1967 . hbcm*p1p3*p2p8*p5p7+hbcm*p1p3*p5p7*p5p8-3*hbcm*p2p3*p2p8*p5p7+
1968 . 3*hbcm*p2p3*p5p7*p5p8-hbcm*p2p8*p3p4*p5p7+3*hbcm*p2p8*p3p5*
1969 . p5p7+hbcm*p3p4*p5p7*p5p8-3*hbcm*p3p5*p5p7*p5p8))+16*(fb4*hbcm*
1970 . p1p8*p5p7+3*fb4*hbcm*p2p8*p5p7+fb4*hbcm*p4p8*p5p7-3*fb4*hbcm*
1971 . p5p7*p5p8))
1972 b(6)=16*ccc*(-fb3*p1p2*p6p8+fb3*p2p3*p6p8+fb3*p2p4*p6p8-fb3*
1973 . p2p5*p6p8)
1974 b(7)=16*ccc*(fb3*p1p2*p3p6-fb3*p2p3*p3p6-fb3*p2p4*p3p6+fb3*p2p5
1975 . *p3p6)
1976 b(8)=ccc*(8*w1*(-hbcm*p1p2*p3p6*p4p8+hbcm*p2p3*p3p6*p4p8+hbcm*
1977 . p2p4*p3p6*p4p8-hbcm*p2p5*p3p6*p4p8)+8*w16*(-hbcm*p1p2*p2p8*
1978 . p3p6+hbcm*p1p2*p3p6*p5p8+hbcm*p2p3*p2p8*p3p6-hbcm*p2p3*p3p6*
1979 . p5p8+hbcm*p2p4*p2p8*p3p6-hbcm*p2p4*p3p6*p5p8-hbcm*p2p5*p2p8*
1980 . p3p6+hbcm*p2p5*p3p6*p5p8)+16*(fb4*hbcm*p1p2*p6p8-fb4*hbcm*p2p3
1981 . *p6p8-fb4*hbcm*p2p4*p6p8+fb4*hbcm*p2p5*p6p8))
1982 b(9)=ccc*(4*(p5p7*p3p6)*(-8*fb3*fmb+4*fb3*fmc+4*fb4*ffmcfmb*
1983 . hbcm+hbcm)-32*fb4*hbcm*p4p6*p5p7)
1984 b(10)=ccc*(w1*(8*(p5p7*p4p8*p3p6)*(3*ffmcfmb*hbcm2-2*fmb*hbcm-
1985 . fmc*hbcm-hbcm2)+8*(-hbcm2*p4p6*p4p8*p5p7-hbcm2*p4p8*p5p6*p5p7)
1986 . )+w16*(8*(p5p8*p5p7*p3p6)*(-3*ffmcfmb*hbcm2+2*fmb*hbcm+fmc*
1987 . hbcm+hbcm2)+8*(p5p7*p3p6*p2p8)*(3*ffmcfmb*hbcm2-2*fmb*hbcm-fmc
1988 . *hbcm-hbcm2)+8*(-hbcm2*p2p8*p4p6*p5p7-hbcm2*p2p8*p5p6*p5p7+
1989 . hbcm2*p4p6*p5p7*p5p8+hbcm2*p5p6*p5p7*p5p8))+(4*(p6p8*p5p7)*(-4
1990 . *fb3*ffmcfmb*hbcm2+8*fb4*fmb*hbcm+4*fb4*fmc*hbcm-3*hbcm2)+32*(
1991 . -fb3*p1p2*p3p6*p7p8+fb3*p1p2*p3p7*p6p8+fb3*p1p3*p5p7*p6p8-fb3*
1992 . p1p8*p3p6*p5p7+fb3*p2p3*p3p6*p7p8-fb3*p2p3*p3p7*p6p8-fb3*p2p3*
1993 . p5p7*p6p8+fb3*p2p4*p3p6*p7p8-fb3*p2p4*p3p7*p6p8-fb3*p2p5*p3p6*
1994 . p7p8+fb3*p2p5*p3p7*p6p8-fb3*p2p8*p3p6*p3p7-fb3*p2p8*p3p6*p4p7-
1995 . fb3*p3p4*p5p7*p6p8+fb3*p3p5*p5p7*p6p8+fb3*p3p6*p4p8*p5p7-fb3*
1996 . p3p6*p5p7*p5p8)))
1997 b(11)=ccc*(12*w16*(hbcm*p2p5*p2p8-hbcm*p2p5*p5p8)+12*hbcm*p2p5*
1998 . p4p8*w1)
1999 b(12)=24*ccc*fb3*p2p5
2000 b(13)=ccc*(12*w16*(hbcm2*p2p5*p2p8-hbcm2*p2p5*p5p8)+12*hbcm2*
2001 . p2p5*p4p8*w1)
2002 b(14)=-24*ccc*fb4*hbcm*p2p5
2003 b(15)=ccc*(w1*(4*(p4p8*p3p6)*(-3*ffmcfmb*hbcm2+2*fmb*hbcm+fmc*
2004 . hbcm+hbcm2)+4*(hbcm2*p4p6*p4p8+hbcm2*p4p8*p5p6))+w16*(4*(p5p8*
2005 . p3p6)*(3*ffmcfmb*hbcm2-2*fmb*hbcm-fmc*hbcm-hbcm2)+4*(p3p6*p2p8
2006 . )*(-3*ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm+hbcm2)+4*(hbcm2*p2p8*
2007 . p4p6+hbcm2*p2p8*p5p6-hbcm2*p4p6*p5p8-hbcm2*p5p6*p5p8))+(2*p6p8
2008 . *(4*fb3*ffmcfmb*hbcm2-8*fb4*fmb*hbcm-4*fb4*fmc*hbcm+3*hbcm2)+
2009 . 16*(-fb3*p1p3*p6p8+fb3*p1p8*p3p6+fb3*p2p3*p6p8-fb3*p2p8*p3p6+
2010 . fb3*p3p4*p6p8-fb3*p3p5*p6p8-fb3*p3p6*p4p8+fb3*p3p6*p5p8)))
2011 b(16)=ccc*(w1*(8*(p4p8*p3p6)*(ffmcfmb*hbcm-hbcm)-8*hbcm*p4p6*
2012 . p4p8)+w16*(8*(p5p8*p3p6)*(-ffmcfmb*hbcm+hbcm)+8*(p3p6*p2p8)*(
2013 . ffmcfmb*hbcm-hbcm)+8*(-hbcm*p2p8*p4p6+hbcm*p4p6*p5p8))+2*p6p8*
2014 . (-8*fb3*fmb+4*fb3*fmc-4*fb4*ffmcfmb*hbcm+8*fb4*hbcm-hbcm))
2015 b(17)=ccc*(w1*(2*p4p8*(2*ffmcfmb*hbcm3-3*fmb*hbcm2+3*fmc*hbcm2-
2016 . 3*hbcm3)+4*(hbcm*p1p3*p4p8+3*hbcm*p2p3*p4p8+hbcm*p3p4*p4p8-3*
2017 . hbcm*p3p5*p4p8))+w16*(2*p5p8*(-2*ffmcfmb*hbcm3+3*fmb*hbcm2-3*
2018 . fmc*hbcm2+3*hbcm3)+2*p2p8*(2*ffmcfmb*hbcm3-3*fmb*hbcm2+3*fmc*
2019 . hbcm2-3*hbcm3)+4*(hbcm*p1p3*p2p8-hbcm*p1p3*p5p8+3*hbcm*p2p3*
2020 . p2p8-3*hbcm*p2p3*p5p8+hbcm*p2p8*p3p4-3*hbcm*p2p8*p3p5-hbcm*
2021 . p3p4*p5p8+3*hbcm*p3p5*p5p8))+8*(-fb4*hbcm*p1p8-3*fb4*hbcm*p2p8
2022 . -fb4*hbcm*p4p8+3*fb4*hbcm*p5p8))
2023 b(19)=ccc*(6*w1*p4p8*(-fmb*hbcm-fmc*hbcm+hbcm2)+w16*(6*p5p8*(
2024 . fmb*hbcm+fmc*hbcm-hbcm2)+6*p2p8*(-fmb*hbcm-fmc*hbcm+hbcm2))+8*
2025 . (fb3*p1p8+3*fb3*p2p8+fb3*p4p8-3*fb3*p5p8))
2026 b(21)=12*ccc*(-fb3*fmb+fb3*fmc+fb4*hbcm)
2027 b(22)=4*ccc*(-2*fb3*ffmcfmb*hbcm2+3*fb3*hbcm2-2*fb3*p1p3-6*fb3*
2028 . p2p3-2*fb3*p3p4+6*fb3*p3p5+3*fb4*fmb*hbcm+3*fb4*fmc*hbcm)
2029 b(24)=ccc*(2*p3p6*(8*fb3*fmb-4*fb3*fmc-4*fb4*ffmcfmb*hbcm-hbcm)
2030 . +16*fb4*hbcm*p4p6)
2031 b(25)=24*ccc*p5p7*(fb3*fmb-fb3*fmc-fb4*hbcm)
2032 b(27)=16*ccc*(fb3*p3p6*p3p7+fb3*p3p6*p4p7+fb3*p3p6*p5p7)
2033 b(28)=16*ccc*(fb3*p3p7*p6p8+fb3*p4p7*p6p8+fb3*p5p7*p6p8)
2034 b(29)=8*ccc*(fb3*p3p6+3*fb3*p4p6-fb3*p5p6)
2035 b(31)=ccc*(8*w1*(-hbcm*p3p6*p3p7*p4p8-hbcm*p3p6*p4p7*p4p8-hbcm*
2036 . p3p6*p4p8*p5p7)+8*w16*(-hbcm*p2p8*p3p6*p3p7-hbcm*p2p8*p3p6*
2037 . p4p7-hbcm*p2p8*p3p6*p5p7+hbcm*p3p6*p3p7*p5p8+hbcm*p3p6*p4p7*
2038 . p5p8+hbcm*p3p6*p5p7*p5p8)+16*(fb4*hbcm*p3p7*p6p8+fb4*hbcm*p4p7
2039 . *p6p8+fb4*hbcm*p5p7*p6p8))
2040 do 200 n=1,32
2041 c(n,2)=c(n,2)-0.8320502943378437d0*b(n)
2042 c(n,3)=c(n,3)+0.1869893980016914d0*b(n)
2043 200 continue
2044 return
2045 end
2046
2047 subroutine amp26_1p1(cc)
2048 implicit double precision(a-h,o-z)
2049 implicit integer (i-n)
2050 dimension b(32)
2051 #include "inclcon.h"
2052 #include "inclppp.h"
2053 #include "inclamp.h"
2054 do 100 n=1,32
2055 b(n)=0.0d0
2056 100 continue
2057 ccc=cc/((-2*p2p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*
2058 . p3p5+fmb2+hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p2p3+2*
2059 . ffmcfmb*p3p4+fmc2-2*p2p4))
2060 b(1)=16*ccc*(-3*fb3*p2p4*p6p7-fb3*p3p6*p4p7-3*fb3*p4p6*p4p7+fb3
2061 . *p4p7*p5p6)
2062 b(2)=ccc*(w2*(16*(p5p8*p4p7*p3p6)*(ffmcfmb*hbcm-hbcm)+8*(-3*
2063 . hbcm*p2p4*p5p8*p6p7-2*hbcm*p4p6*p4p7*p5p8))+w11*(16*(p4p8*p4p7
2064 . *p3p6)*(-ffmcfmb*hbcm+hbcm)+16*(p4p7*p3p6*p2p8)*(ffmcfmb*hbcm-
2065 . hbcm)+8*(-3*hbcm*p2p4*p2p8*p6p7+3*hbcm*p2p4*p4p8*p6p7-2*hbcm*
2066 . p2p8*p4p6*p4p7+2*hbcm*p4p6*p4p7*p4p8))+4*(p6p8*p4p7)*(8*fb3*
2067 . fmb-4*fb3*fmc+4*fb4*ffmcfmb*hbcm-8*fb4*hbcm+hbcm))
2068 b(3)=ccc*(12*w2*(p5p8*p4p7)*(-fmb*hbcm-fmc*hbcm+hbcm2)+w11*(12*
2069 . (p4p8*p4p7)*(fmb*hbcm+fmc*hbcm-hbcm2)+12*(p4p7*p2p8)*(-fmb*
2070 . hbcm-fmc*hbcm+hbcm2))+16*(-2*fb3*p1p2*p7p8-fb3*p1p8*p4p7+2*fb3
2071 . *p2p3*p7p8-fb3*p2p4*p7p8+2*fb3*p2p5*p7p8+fb3*p2p8*p4p7-fb3*
2072 . p4p7*p4p8+3*fb3*p4p7*p5p8))
2073 b(4)=ccc*(8*p4p7*(2*fb3*ffmcfmb*hbcm2-3*fb3*hbcm2-3*fb4*fmb*
2074 . hbcm-3*fb4*fmc*hbcm)+16*(2*fb3*p1p2*p3p7+fb3*p1p3*p4p7+fb3*
2075 . p2p3*p4p7+2*fb3*p2p3*p5p7+fb3*p2p4*p3p7-2*fb3*p2p5*p3p7+fb3*
2076 . p3p4*p4p7-3*fb3*p3p5*p4p7))
2077 ans=ccc*(w2*(4*(p5p8*p4p7)*(2*ffmcfmb*hbcm3-3*fmb*hbcm2+3*fmc*
2078 . hbcm2-3*hbcm3)+8*(2*hbcm*p1p2*p3p7*p5p8+hbcm*p1p3*p4p7*p5p8+
2079 . hbcm*p2p3*p4p7*p5p8+2*hbcm*p2p3*p5p7*p5p8+hbcm*p2p4*p3p7*p5p8-
2080 . 2*hbcm*p2p5*p3p7*p5p8+hbcm*p3p4*p4p7*p5p8-3*hbcm*p3p5*p4p7*
2081 . p5p8))+w11*(4*(p4p8*p4p7)*(-2*ffmcfmb*hbcm3+3*fmb*hbcm2-3*fmc*
2082 . hbcm2+3*hbcm3)+4*(p4p7*p2p8)*(2*ffmcfmb*hbcm3-3*fmb*hbcm2+3*
2083 . fmc*hbcm2-3*hbcm3)+8*(2*hbcm*p1p2*p2p8*p3p7-2*hbcm*p1p2*p3p7*
2084 . p4p8+hbcm*p1p3*p2p8*p4p7-hbcm*p1p3*p4p7*p4p8+hbcm*p2p3*p2p8*
2085 . p4p7+2*hbcm*p2p3*p2p8*p5p7-hbcm*p2p3*p4p7*p4p8-2*hbcm*p2p3*
2086 . p4p8*p5p7+hbcm*p2p4*p2p8*p3p7-hbcm*p2p4*p3p7*p4p8-2*hbcm*p2p5*
2087 . p2p8*p3p7+2*hbcm*p2p5*p3p7*p4p8+hbcm*p2p8*p3p4*p4p7-3*hbcm*
2088 . p2p8*p3p5*p4p7-hbcm*p3p4*p4p7*p4p8+3*hbcm*p3p5*p4p7*p4p8))+(16
2089 . *(p3p7*p2p8)*(3*fb3*fmb-3*fb3*fmc-fb4*hbcm)+16*(p7p8*p2p3)*(-3
2090 . *fb3*fmb+3*fb3*fmc+fb4*hbcm)+16*(2*fb4*hbcm*p1p2*p7p8+fb4*hbcm
2091 . *p1p8*p4p7+fb4*hbcm*p2p4*p7p8-2*fb4*hbcm*p2p5*p7p8+fb4*hbcm*
2092 . p2p8*p4p7+2*fb4*hbcm*p2p8*p5p7+fb4*hbcm*p4p7*p4p8-3*fb4*hbcm*
2093 . p4p7*p5p8)))
2094 b(5)=ans
2095 b(6)=16*ccc*(-fb3*p2p4*p6p8-fb3*p2p8*p3p6-3*fb3*p2p8*p4p6+fb3*
2096 . p2p8*p5p6)
2097 b(7)=16*ccc*(fb3*p2p3*p3p6+3*fb3*p2p3*p4p6-fb3*p2p3*p5p6+fb3*
2098 . p2p4*p3p6)
2099 b(8)=ccc*(w2*(16*(p5p8*p3p6*p2p3)*(-ffmcfmb*hbcm+hbcm)+8*(2*
2100 . hbcm*p2p3*p4p6*p5p8+hbcm*p2p4*p3p6*p5p8))+w11*(16*(p4p8*p3p6*
2101 . p2p3)*(ffmcfmb*hbcm-hbcm)+16*(p3p6*p2p8*p2p3)*(-ffmcfmb*hbcm+
2102 . hbcm)+8*(2*hbcm*p2p3*p2p8*p4p6-2*hbcm*p2p3*p4p6*p4p8+hbcm*p2p4
2103 . *p2p8*p3p6-hbcm*p2p4*p3p6*p4p8))+(4*(p3p6*p2p8)*(8*fb3*fmb-4*
2104 . fb3*fmc-4*fb4*ffmcfmb*hbcm-hbcm)+4*(p6p8*p2p3)*(-8*fb3*fmb+4*
2105 . fb3*fmc-4*fb4*ffmcfmb*hbcm+8*fb4*hbcm-hbcm)+16*(fb4*hbcm*p2p4*
2106 . p6p8+2*fb4*hbcm*p2p8*p4p6)))
2107 b(9)=ccc*(4*(p4p7*p3p6)*(-8*fb3*fmb+4*fb3*fmc+4*fb4*ffmcfmb*
2108 . hbcm+hbcm)+16*(-3*fb4*hbcm*p2p4*p6p7-2*fb4*hbcm*p4p6*p4p7))
2109 ans=ccc*(w2*(24*(p6p7*p5p8*p2p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(
2110 . p5p8*p4p7*p3p6)*(-3*ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm+hbcm2)+8
2111 . *(3*hbcm2*p2p4*p5p8*p6p7+hbcm2*p4p6*p4p7*p5p8+hbcm2*p4p7*p5p6*
2112 . p5p8))+w11*(24*(p6p7*p4p8*p2p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+24*(
2113 . p6p7*p2p8*p2p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p4p8*p4p7*p3p6)*
2114 . (3*ffmcfmb*hbcm2-2*fmb*hbcm-fmc*hbcm-hbcm2)+8*(p4p7*p3p6*p2p8)
2115 . *(-3*ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm+hbcm2)+8*(3*hbcm2*p2p4*
2116 . p2p8*p6p7-3*hbcm2*p2p4*p4p8*p6p7+hbcm2*p2p8*p4p6*p4p7+hbcm2*
2117 . p2p8*p4p7*p5p6-hbcm2*p4p6*p4p7*p4p8-hbcm2*p4p7*p4p8*p5p6))+(4*
2118 . (p6p8*p4p7)*(-4*fb3*ffmcfmb*hbcm2+8*fb4*fmb*hbcm+4*fb4*fmc*
2119 . hbcm-3*hbcm2)+32*(fb3*p1p3*p4p7*p6p8+fb3*p1p8*p2p3*p6p7-fb3*
2120 . p1p8*p3p6*p4p7+3*fb3*p2p3*p2p8*p6p7+fb3*p2p3*p4p7*p6p8-3*fb3*
2121 . p2p3*p4p8*p6p7+fb3*p2p3*p5p8*p6p7+fb3*p2p8*p3p6*p3p7-fb3*p2p8*
2122 . p3p6*p4p7+3*fb3*p2p8*p3p7*p4p6-fb3*p2p8*p3p7*p5p6-fb3*p3p4*
2123 . p4p7*p6p8+fb3*p3p5*p4p7*p6p8+fb3*p3p6*p4p7*p4p8-fb3*p3p6*p4p7*
2124 . p5p8)))
2125 b(10)=ans
2126 b(11)=ccc*(4*w2*(-2*hbcm*p1p2*p5p8+2*hbcm*p2p3*p5p8-hbcm*p2p4*
2127 . p5p8+2*hbcm*p2p5*p5p8)+4*w11*(-2*hbcm*p1p2*p2p8+2*hbcm*p1p2*
2128 . p4p8+2*hbcm*p2p3*p2p8-2*hbcm*p2p3*p4p8-hbcm*p2p4*p2p8+hbcm*
2129 . p2p4*p4p8+2*hbcm*p2p5*p2p8-2*hbcm*p2p5*p4p8)+24*p2p8*(-fb3*fmb
2130 . +fb3*fmc+fb4*hbcm))
2131 b(12)=8*ccc*(2*fb3*p1p2-2*fb3*p2p3+fb3*p2p4-2*fb3*p2p5)
2132 b(13)=ccc*(w2*(4*(p5p8*p2p3)*(3*fmb*hbcm+3*fmc*hbcm-hbcm2)+4*(-
2133 . 2*hbcm2*p1p2*p5p8-hbcm2*p2p4*p5p8+2*hbcm2*p2p5*p5p8))+w11*(4*(
2134 . p4p8*p2p3)*(-3*fmb*hbcm-3*fmc*hbcm+hbcm2)+4*(p2p8*p2p3)*(3*fmb
2135 . *hbcm+3*fmc*hbcm-hbcm2)+4*(-2*hbcm2*p1p2*p2p8+2*hbcm2*p1p2*
2136 . p4p8-hbcm2*p2p4*p2p8+hbcm2*p2p4*p4p8+2*hbcm2*p2p5*p2p8-2*hbcm2
2137 . *p2p5*p4p8))+(8*p2p8*(-2*fb3*ffmcfmb*hbcm2+3*fb3*hbcm2+3*fb4*
2138 . fmb*hbcm+3*fb4*fmc*hbcm)+16*(-fb3*p1p3*p2p8+fb3*p1p8*p2p3+fb3*
2139 . p2p3*p4p8-3*fb3*p2p3*p5p8-fb3*p2p8*p3p4+3*fb3*p2p8*p3p5)))
2140 b(14)=ccc*(8*p2p3*(3*fb3*fmb-3*fb3*fmc-fb4*hbcm)+8*(-2*fb4*hbcm
2141 . *p1p2-fb4*hbcm*p2p4+2*fb4*hbcm*p2p5))
2142 b(15)=ccc*(w2*(4*(p5p8*p3p6)*(-3*ffmcfmb*hbcm2+2*fmb*hbcm+fmc*
2143 . hbcm+hbcm2)+4*(hbcm2*p4p6*p5p8+hbcm2*p5p6*p5p8))+w11*(4*(p4p8*
2144 . p3p6)*(3*ffmcfmb*hbcm2-2*fmb*hbcm-fmc*hbcm-hbcm2)+4*(p3p6*p2p8
2145 . )*(-3*ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm+hbcm2)+4*(hbcm2*p2p8*
2146 . p4p6+hbcm2*p2p8*p5p6-hbcm2*p4p6*p4p8-hbcm2*p4p8*p5p6))+(2*p6p8
2147 . *(-4*fb3*ffmcfmb*hbcm2+8*fb4*fmb*hbcm+4*fb4*fmc*hbcm-3*hbcm2)+
2148 . 16*(fb3*p1p3*p6p8-fb3*p1p8*p3p6+fb3*p2p3*p6p8-fb3*p2p8*p3p6-
2149 . fb3*p3p4*p6p8+fb3*p3p5*p6p8+fb3*p3p6*p4p8-fb3*p3p6*p5p8)))
2150 b(16)=ccc*(w2*(8*(p5p8*p3p6)*(ffmcfmb*hbcm-hbcm)-8*hbcm*p4p6*
2151 . p5p8)+w11*(8*(p4p8*p3p6)*(-ffmcfmb*hbcm+hbcm)+8*(p3p6*p2p8)*(
2152 . ffmcfmb*hbcm-hbcm)+8*(-hbcm*p2p8*p4p6+hbcm*p4p6*p4p8))+2*p6p8*
2153 . (8*fb3*fmb-4*fb3*fmc+4*fb4*ffmcfmb*hbcm-8*fb4*hbcm+hbcm))
2154 b(17)=ccc*(w2*(2*p5p8*(2*ffmcfmb*hbcm3-3*fmb*hbcm2+3*fmc*hbcm2-
2155 . 3*hbcm3)+4*(hbcm*p1p3*p5p8-hbcm*p2p3*p5p8+hbcm*p3p4*p5p8-3*
2156 . hbcm*p3p5*p5p8))+w11*(2*p4p8*(-2*ffmcfmb*hbcm3+3*fmb*hbcm2-3*
2157 . fmc*hbcm2+3*hbcm3)+2*p2p8*(2*ffmcfmb*hbcm3-3*fmb*hbcm2+3*fmc*
2158 . hbcm2-3*hbcm3)+4*(hbcm*p1p3*p2p8-hbcm*p1p3*p4p8-hbcm*p2p3*p2p8
2159 . +hbcm*p2p3*p4p8+hbcm*p2p8*p3p4-3*hbcm*p2p8*p3p5-hbcm*p3p4*p4p8
2160 . +3*hbcm*p3p5*p4p8))+8*(fb4*hbcm*p1p8-fb4*hbcm*p2p8+fb4*hbcm*
2161 . p4p8-3*fb4*hbcm*p5p8))
2162 b(18)=ccc*(w2*(4*(p5p8*p3p7)*(-3*fmb*hbcm-3*fmc*hbcm+hbcm2)+8*(
2163 . -hbcm2*p4p7*p5p8-hbcm2*p5p7*p5p8))+w11*(4*(p4p8*p3p7)*(3*fmb*
2164 . hbcm+3*fmc*hbcm-hbcm2)+4*(p3p7*p2p8)*(-3*fmb*hbcm-3*fmc*hbcm+
2165 . hbcm2)+8*(-hbcm2*p2p8*p4p7-hbcm2*p2p8*p5p7+hbcm2*p4p7*p4p8+
2166 . hbcm2*p4p8*p5p7))+(8*p7p8*(2*fb3*ffmcfmb*hbcm2-3*fb3*hbcm2-3*
2167 . fb4*fmb*hbcm-3*fb4*fmc*hbcm)+16*(fb3*p1p3*p7p8-fb3*p1p8*p3p7-
2168 . fb3*p2p3*p7p8+fb3*p2p8*p3p7+fb3*p3p4*p7p8-3*fb3*p3p5*p7p8-fb3*
2169 . p3p7*p4p8+3*fb3*p3p7*p5p8)))
2170 b(19)=ccc*(6*w2*p5p8*(-fmb*hbcm-fmc*hbcm+hbcm2)+w11*(6*p4p8*(
2171 . fmb*hbcm+fmc*hbcm-hbcm2)+6*p2p8*(-fmb*hbcm-fmc*hbcm+hbcm2))+8*
2172 . (-fb3*p1p8+fb3*p2p8-fb3*p4p8+3*fb3*p5p8))
2173 b(20)=ccc*(8*w2*(-hbcm*p3p7*p5p8-hbcm*p4p7*p5p8-hbcm*p5p7*p5p8)
2174 . +8*w11*(-hbcm*p2p8*p3p7-hbcm*p2p8*p4p7-hbcm*p2p8*p5p7+hbcm*
2175 . p3p7*p4p8+hbcm*p4p7*p4p8+hbcm*p4p8*p5p7)+24*p7p8*(fb3*fmb-fb3*
2176 . fmc-fb4*hbcm))
2177 b(21)=12*ccc*(fb3*fmb-fb3*fmc-fb4*hbcm)
2178 b(22)=4*ccc*(2*fb3*ffmcfmb*hbcm2-3*fb3*hbcm2+2*fb3*p1p3-2*fb3*
2179 . p2p3+2*fb3*p3p4-6*fb3*p3p5-3*fb4*fmb*hbcm-3*fb4*fmc*hbcm)
2180 b(23)=ccc*(8*p3p7*(-3*fb3*fmb+3*fb3*fmc+fb4*hbcm)+16*(-fb4*hbcm
2181 . *p4p7-fb4*hbcm*p5p7))
2182 b(24)=ccc*(2*p3p6*(-8*fb3*fmb+4*fb3*fmc+4*fb4*ffmcfmb*hbcm+hbcm
2183 . )-16*fb4*hbcm*p4p6)
2184 b(25)=24*ccc*p4p7*(fb3*fmb-fb3*fmc-fb4*hbcm)
2185 b(27)=ccc*(8*p6p7*(2*fb3*ffmcfmb*hbcm2+fb3*hbcm2-3*fb4*fmb*hbcm
2186 . -3*fb4*fmc*hbcm)+16*(-fb3*p1p3*p6p7-3*fb3*p2p3*p6p7+3*fb3*p3p4
2187 . *p6p7-fb3*p3p5*p6p7-fb3*p3p6*p3p7-3*fb3*p3p7*p4p6+fb3*p3p7*
2188 . p5p6))
2189 b(28)=ccc*(12*w2*(p6p7*p5p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+w11*(12*
2190 . (p6p7*p4p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+12*(p6p7*p2p8)*(fmb*
2191 . hbcm+fmc*hbcm-hbcm2))+16*(-fb3*p1p8*p6p7-3*fb3*p2p8*p6p7-fb3*
2192 . p3p6*p7p8-3*fb3*p4p6*p7p8+3*fb3*p4p8*p6p7+fb3*p5p6*p7p8-fb3*
2193 . p5p8*p6p7))
2194 b(29)=8*ccc*(-fb3*p3p6-3*fb3*p4p6+fb3*p5p6)
2195 b(30)=16*ccc*(-fb3*p3p7-fb3*p4p7-fb3*p5p7)
2196 ans=ccc*(w2*(4*(p6p7*p5p8)*(2*ffmcfmb*hbcm3-3*fmb*hbcm2+3*fmc*
2197 . hbcm2+hbcm3)+16*(p5p8*p3p7*p3p6)*(ffmcfmb*hbcm-hbcm)+8*(-hbcm*
2198 . p1p3*p5p8*p6p7-3*hbcm*p2p3*p5p8*p6p7+3*hbcm*p3p4*p5p8*p6p7-
2199 . hbcm*p3p5*p5p8*p6p7-2*hbcm*p3p7*p4p6*p5p8))+w11*(4*(p6p7*p4p8)
2200 . *(-2*ffmcfmb*hbcm3+3*fmb*hbcm2-3*fmc*hbcm2-hbcm3)+4*(p6p7*p2p8
2201 . )*(2*ffmcfmb*hbcm3-3*fmb*hbcm2+3*fmc*hbcm2+hbcm3)+16*(p4p8*
2202 . p3p7*p3p6)*(-ffmcfmb*hbcm+hbcm)+16*(p3p7*p3p6*p2p8)*(ffmcfmb*
2203 . hbcm-hbcm)+8*(-hbcm*p1p3*p2p8*p6p7+hbcm*p1p3*p4p8*p6p7-3*hbcm*
2204 . p2p3*p2p8*p6p7+3*hbcm*p2p3*p4p8*p6p7+3*hbcm*p2p8*p3p4*p6p7-
2205 . hbcm*p2p8*p3p5*p6p7-2*hbcm*p2p8*p3p7*p4p6-3*hbcm*p3p4*p4p8*
2206 . p6p7+hbcm*p3p5*p4p8*p6p7+2*hbcm*p3p7*p4p6*p4p8))+(4*(p6p8*p3p7
2207 . )*(8*fb3*fmb-4*fb3*fmc+4*fb4*ffmcfmb*hbcm-8*fb4*hbcm+hbcm)+4*(
2208 . p7p8*p3p6)*(-8*fb3*fmb+4*fb3*fmc+4*fb4*ffmcfmb*hbcm+hbcm)+16*(
2209 . -fb4*hbcm*p1p8*p6p7-3*fb4*hbcm*p2p8*p6p7-2*fb4*hbcm*p4p6*p7p8+
2210 . 3*fb4*hbcm*p4p8*p6p7-fb4*hbcm*p5p8*p6p7)))
2211 b(31)=ans
2212 b(32)=24*ccc*p6p7*(fb3*fmb-fb3*fmc-fb4*hbcm)
2213 do 200 n=1,32
2214 c(n,1)=c(n,1)+0.8181818181818182d0*b(n)
2215 c(n,2)=c(n,2)-0.1512818716977898d0*b(n)
2216 c(n,3)=c(n,3)-0.1869893980016914d0*b(n)
2217 200 continue
2218 return
2219 end
2220
2221 subroutine amp25_1p1(cc)
2222 implicit double precision(a-h,o-z)
2223 implicit integer (i-n)
2224 dimension b(32)
2225 #include "inclcon.h"
2226 #include "inclppp.h"
2227 #include "inclamp.h"
2228 do 100 n=1,32
2229 b(n)=0.0d0
2230 100 continue
2231 ccc=cc/((2*p1p2)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2)*(
2232 . ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2+2*ffmcfmb*p1p3+2*ffmcfmb*p2p3
2233 . -fmb2+hbcm2+2*p1p2-2*p1p3-2*p2p3))
2234 b(1)=ccc*(2*p6p7*(-4*fb3*fmb*fmc-4*fb3*fmb2-4*fb4*ffmcfmb*fmb*
2235 . hbcm-4*fb4*ffmcfmb*fmc*hbcm+4*fb4*fmb*hbcm+4*fb4*fmc*hbcm+fmb*
2236 . hbcm+fmc*hbcm)+32*(fb3*p1p2*p6p7-fb3*p2p3*p6p7-2*fb3*p2p4*p6p7
2237 . ))
2238 b(2)=ccc*(w1*(4*(p6p7*p4p8)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+8*
2239 . (p6p7*p4p8*p2p3)*(-ffmcfmb*hbcm+hbcm)+8*(p6p7*p4p8*p1p3)*(
2240 . ffmcfmb*hbcm-hbcm)+8*(-hbcm*p1p2*p4p8*p6p7+2*hbcm*p2p4*p4p8*
2241 . p6p7))+w20*(4*(p6p7*p2p8)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+4*(
2242 . p6p7*p1p8)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+8*(p6p7*p2p8*p2p3)
2243 . *(-ffmcfmb*hbcm+hbcm)+8*(p6p7*p2p3*p1p8)*(-ffmcfmb*hbcm+hbcm)+
2244 . 8*(p6p7*p2p8*p1p3)*(ffmcfmb*hbcm-hbcm)+8*(p6p7*p1p8*p1p3)*(
2245 . ffmcfmb*hbcm-hbcm)+8*(-hbcm*p1p2*p1p8*p6p7-hbcm*p1p2*p2p8*p6p7
2246 . +2*hbcm*p1p8*p2p4*p6p7+2*hbcm*p2p4*p2p8*p6p7))+(4*(p6p7*p4p8)*
2247 . (4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm)+8*(p6p7*p2p8)*(
2248 . 2*fb3*fmb-4*fb3*fmc-2*fb4*ffmcfmb*hbcm+2*fb4*hbcm+hbcm)+16*(
2249 . p6p7*p1p8)*(-fb3*fmb-fb4*ffmcfmb*hbcm+fb4*hbcm)))
2250 b(9)=ccc*(4*(p6p7*p3p4)*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*
2251 . hbcm+hbcm)+4*(p6p7*p2p3)*(-4*fb3*fmb+8*fb3*fmc+8*fb4*ffmcfmb*
2252 . hbcm-8*fb4*hbcm-hbcm)+4*(p6p7*p1p3)*(4*fb3*fmb-hbcm)+2*p6p7*(-
2253 . 4*fb3*fmb*hbcm2-4*fb4*ffmcfmb*hbcm3+4*fb4*hbcm3+hbcm3)+16*(fb4
2254 . *hbcm*p1p2*p6p7-2*fb4*hbcm*p2p4*p6p7))
2255 ans=ccc*(w1*(8*(p6p7*p4p8*p2p3)*(ffmcfmb*hbcm2+fmb*hbcm+2*fmc*
2256 . hbcm-hbcm2)+8*(p6p7*p4p8*p1p3)*(-ffmcfmb*hbcm2+fmb*hbcm+hbcm2)
2257 . +4*(p6p7*p4p8)*(ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*hbcm3+fmb*fmc*
2258 . hbcm2-fmb*hbcm3+fmb2*hbcm2-fmc*hbcm3))+w20*(8*(p6p7*p2p8*p2p3)
2259 . *(ffmcfmb*hbcm2+fmb*hbcm+2*fmc*hbcm-hbcm2)+8*(p6p7*p2p3*p1p8)*
2260 . (ffmcfmb*hbcm2+fmb*hbcm+2*fmc*hbcm-hbcm2)+8*(p6p7*p2p8*p1p3)*(
2261 . -ffmcfmb*hbcm2+fmb*hbcm+hbcm2)+8*(p6p7*p1p8*p1p3)*(-ffmcfmb*
2262 . hbcm2+fmb*hbcm+hbcm2)+4*(p6p7*p2p8)*(ffmcfmb*fmb*hbcm3+ffmcfmb
2263 . *fmc*hbcm3+fmb*fmc*hbcm2-fmb*hbcm3+fmb2*hbcm2-fmc*hbcm3)+4*(
2264 . p6p7*p1p8)*(ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*hbcm3+fmb*fmc*hbcm2-
2265 . fmb*hbcm3+fmb2*hbcm2-fmc*hbcm3))+(4*(p6p7*p2p8)*(4*fb3*ffmcfmb
2266 . *hbcm2-12*fb3*hbcm2+4*fb4*fmb*hbcm-hbcm2)+4*(p6p7*p1p8)*(-4*
2267 . fb3*ffmcfmb*hbcm2+4*fb3*hbcm2-4*fb4*fmb*hbcm+hbcm2)+64*(fb3*
2268 . p1p3*p2p8*p6p7+fb3*p2p3*p2p8*p6p7-fb3*p2p3*p4p8*p6p7-fb3*p2p8*
2269 . p3p4*p6p7)))
2270 b(10)=ans
2271 b(27)=ccc*(16*p6p7*(2*fb3*hbcm2-fb4*fmb*hbcm-fb4*fmc*hbcm)+32*(
2272 . -fb3*p1p3*p6p7-fb3*p2p3*p6p7+2*fb3*p3p4*p6p7))
2273 b(28)=ccc*(8*w1*(p6p7*p4p8)*(-fmb*hbcm-fmc*hbcm)+w20*(8*(p6p7*
2274 . p2p8)*(-fmb*hbcm-fmc*hbcm)+8*(p6p7*p1p8)*(-fmb*hbcm-fmc*hbcm))
2275 . +32*(-fb3*p1p8*p6p7-fb3*p2p8*p6p7+2*fb3*p4p8*p6p7))
2276 b(31)=ccc*(w1*(8*(p6p7*p4p8)*(ffmcfmb*hbcm3+fmb*hbcm2-2*hbcm3)+
2277 . 16*(hbcm*p1p3*p4p8*p6p7+hbcm*p2p3*p4p8*p6p7-hbcm*p3p4*p4p8*
2278 . p6p7))+w20*(8*(p6p7*p2p8)*(ffmcfmb*hbcm3+fmb*hbcm2-2*hbcm3)+8*
2279 . (p6p7*p1p8)*(ffmcfmb*hbcm3+fmb*hbcm2-2*hbcm3)+16*(hbcm*p1p3*
2280 . p1p8*p6p7+hbcm*p1p3*p2p8*p6p7+hbcm*p1p8*p2p3*p6p7-hbcm*p1p8*
2281 . p3p4*p6p7+hbcm*p2p3*p2p8*p6p7-hbcm*p2p8*p3p4*p6p7))+32*(-fb4*
2282 . hbcm*p1p8*p6p7-fb4*hbcm*p2p8*p6p7+fb4*hbcm*p4p8*p6p7))
2283 b(32)=4*ccc*p6p7*(4*fb3*fmb-8*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)
2284 do 200 n=1,32
2285 c(n,1)=c(n,1)+0.09090909090909091d0*b(n)
2286 c(n,2)=c(n,2)-0.1092591295595148d0*b(n)
2287 200 continue
2288 return
2289 end
2290
2291 subroutine amp24_1p1(cc)
2292 implicit double precision(a-h,o-z)
2293 implicit integer (i-n)
2294 dimension b(32)
2295 #include "inclcon.h"
2296 #include "inclppp.h"
2297 #include "inclamp.h"
2298 do 100 n=1,32
2299 b(n)=0.0d0
2300 100 continue
2301 ccc=cc/((2*p1p2)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2)*(-fmb2+
2302 . fmc2+hbcm2+2*p3p4))
2303 b(2)=ccc*(w1*(4*(p6p7*p4p8)*(fmb2*hbcm-fmc2*hbcm-hbcm3)-8*hbcm*
2304 . p3p4*p4p8*p6p7)+32*fb4*hbcm*p2p8*p6p7)
2305 b(9)=ccc*(8*p6p7*(-fb4*fmb2*hbcm+fb4*fmc2*hbcm+fb4*hbcm3)+16*(-
2306 . 2*fb4*hbcm*p2p3*p6p7+fb4*hbcm*p3p4*p6p7))
2307 b(10)=ccc*(w1*(8*(p6p7*p4p8)*(-fmb2*hbcm2+fmc2*hbcm2+hbcm4)+16*
2308 . hbcm2*p3p4*p4p8*p6p7)+32*(p6p7*p2p8)*(-fb4*fmb*hbcm-fb4*fmc*
2309 . hbcm))
2310 b(27)=16*ccc*p6p7*(fb4*fmb*hbcm+fb4*fmc*hbcm)
2311 b(28)=8*ccc*w1*(p6p7*p4p8)*(fmb*hbcm+fmc*hbcm-2*hbcm2)
2312 b(31)=ccc*(w1*(8*(p6p7*p4p8)*(-2*fmb*hbcm2+2*fmc*hbcm2+hbcm3)+
2313 . 16*hbcm*p3p4*p4p8*p6p7)-32*fb4*hbcm*p4p8*p6p7)
2314 b(32)=16*ccc*fb4*hbcm*p6p7
2315 do 200 n=1,32
2316 c(n,1)=c(n,1)-0.7272727272727273d0*b(n)
2317 c(n,2)=c(n,2)+0.8740730364761186d0*b(n)
2318 200 continue
2319 return
2320 end
2321
2322 subroutine amp23_1p1(cc)
2323 implicit double precision(a-h,o-z)
2324 implicit integer (i-n)
2325 dimension b(32)
2326 #include "inclcon.h"
2327 #include "inclppp.h"
2328 #include "inclamp.h"
2329 do 100 n=1,32
2330 b(n)=0.0d0
2331 100 continue
2332 ccc=cc/((2*p1p2)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*
2333 . p3p5+fmb2+hbcm2+2*p3p5)*(fmb2-fmc2+hbcm2+2*p3p5))
2334 b(2)=ccc*(w2*(4*(p6p7*p5p8)*(-fmb2*hbcm+fmc2*hbcm-hbcm3)-8*hbcm
2335 . *p3p5*p5p8*p6p7)+16*(fb4*hbcm*p1p8*p6p7+fb4*hbcm*p2p8*p6p7-fb4
2336 . *hbcm*p4p8*p6p7-fb4*hbcm*p5p8*p6p7))
2337 b(9)=ccc*(8*p6p7*(-fb4*fmb2*hbcm+fb4*fmc2*hbcm+fb4*hbcm3)+16*(-
2338 . fb4*hbcm*p1p3*p6p7-fb4*hbcm*p2p3*p6p7+fb4*hbcm*p3p4*p6p7))
2339 b(10)=ccc*(w2*(8*(p6p7*p5p8)*(fmb*hbcm3+fmb2*hbcm2+fmc*hbcm3-
2340 . fmc2*hbcm2-hbcm4)+8*(p6p7*p5p8*p3p5)*(fmb*hbcm+fmc*hbcm)+8*(
2341 . p6p7*p5p8*p3p4)*(fmb*hbcm+fmc*hbcm-2*hbcm2)+8*(p6p7*p5p8*p2p3)
2342 . *(fmb*hbcm+fmc*hbcm-2*hbcm2)+8*(p6p7*p5p8*p1p3)*(-fmb*hbcm-fmc
2343 . *hbcm+2*hbcm2))+(16*(p6p7*p5p8)*(fb4*fmb*hbcm+fb4*fmc*hbcm)+16
2344 . *(p6p7*p4p8)*(fb4*fmb*hbcm+fb4*fmc*hbcm)+16*(p6p7*p2p8)*(-fb4*
2345 . fmb*hbcm-fb4*fmc*hbcm)+16*(p6p7*p1p8)*(-fb4*fmb*hbcm-fb4*fmc*
2346 . hbcm)))
2347 b(27)=16*ccc*p6p7*(fb4*fmb*hbcm+fb4*fmc*hbcm)
2348 b(28)=8*ccc*w2*(p6p7*p5p8)*(-fmb*hbcm-fmc*hbcm+2*hbcm2)
2349 b(31)=ccc*(w2*(8*(p6p7*p5p8)*(2*fmb*hbcm2-2*fmc*hbcm2+hbcm3)+16
2350 . *hbcm*p3p5*p5p8*p6p7)+32*fb4*hbcm*p5p8*p6p7)
2351 b(32)=16*ccc*fb4*hbcm*p6p7
2352 do 200 n=1,32
2353 c(n,1)=c(n,1)-0.7272727272727273d0*b(n)
2354 c(n,2)=c(n,2)+0.8740730364761186d0*b(n)
2355 200 continue
2356 return
2357 end
2358
2359 subroutine amp22_1p1(cc)
2360 implicit double precision(a-h,o-z)
2361 implicit integer (i-n)
2362 dimension b(32)
2363 #include "inclcon.h"
2364 #include "inclppp.h"
2365 #include "inclamp.h"
2366 do 100 n=1,32
2367 b(n)=0.0d0
2368 100 continue
2369 ccc=cc/((2*p1p2)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*
2370 . p3p5+fmb2+hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3-2*
2371 . ffmcfmb*p2p3-fmc2+2*p1p2))
2372 b(1)=ccc*(2*p6p7*(4*fb3*fmb*fmc+4*fb3*fmc2+4*fb4*ffmcfmb*fmb*
2373 . hbcm+4*fb4*ffmcfmb*fmc*hbcm-fmb*hbcm-fmc*hbcm)+32*(fb3*p1p2*
2374 . p6p7-fb3*p2p3*p6p7-2*fb3*p2p4*p6p7))
2375 b(2)=ccc*(w2*(4*(p6p7*p5p8)*(ffmcfmb*hbcm3-fmc*hbcm2)+8*(p6p7*
2376 . p5p8*p2p3)*(ffmcfmb*hbcm-2*hbcm)+8*(-ffmcfmb*hbcm*p1p3*p5p8*
2377 . p6p7+hbcm*p1p2*p5p8*p6p7-2*hbcm*p2p4*p5p8*p6p7))+w17*(4*(p6p7*
2378 . p2p8)*(ffmcfmb*hbcm3-fmc*hbcm2)+4*(p6p7*p1p8)*(ffmcfmb*hbcm3-
2379 . fmc*hbcm2)+8*(p6p7*p2p8*p2p3)*(ffmcfmb*hbcm-2*hbcm)+8*(p6p7*
2380 . p2p3*p1p8)*(ffmcfmb*hbcm-2*hbcm)+8*(-ffmcfmb*hbcm*p1p3*p1p8*
2381 . p6p7-ffmcfmb*hbcm*p1p3*p2p8*p6p7+hbcm*p1p2*p1p8*p6p7+hbcm*p1p2
2382 . *p2p8*p6p7-2*hbcm*p1p8*p2p4*p6p7-2*hbcm*p2p4*p2p8*p6p7))+(4*(
2383 . p6p7*p4p8)*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+4*(p6p7*p2p8)*
2384 . (8*fb3*fmb+8*fb4*ffmcfmb*hbcm-8*fb4*hbcm-hbcm)-4*hbcm*p1p8*
2385 . p6p7))
2386 b(9)=ccc*(4*(p6p7*p3p4)*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+2*
2387 . p6p7*(4*fb3*fmc*hbcm2+4*fb4*ffmcfmb*hbcm3-hbcm3)+8*(p6p7*p2p3)
2388 . *(-4*fb3*fmb-2*fb4*ffmcfmb*hbcm+hbcm)+16*(-fb4*ffmcfmb*hbcm*
2389 . p1p3*p6p7+fb4*hbcm*p1p2*p6p7-2*fb4*hbcm*p2p4*p6p7))
2390 ans=ccc*(w2*(8*(p6p7*p5p8*p2p3)*(-ffmcfmb*hbcm2-fmc*hbcm)+8*(
2391 . p6p7*p5p8*p1p3)*(ffmcfmb*hbcm2+fmc*hbcm)+4*(p6p7*p5p8)*(-
2392 . ffmcfmb*fmb*hbcm3-ffmcfmb*fmc*hbcm3+fmb*fmc*hbcm2+fmc2*hbcm2))
2393 . +w17*(8*(p6p7*p2p8*p2p3)*(-ffmcfmb*hbcm2-fmc*hbcm)+8*(p6p7*
2394 . p2p3*p1p8)*(-ffmcfmb*hbcm2-fmc*hbcm)+8*(p6p7*p2p8*p1p3)*(
2395 . ffmcfmb*hbcm2+fmc*hbcm)+8*(p6p7*p1p8*p1p3)*(ffmcfmb*hbcm2+fmc*
2396 . hbcm)+4*(p6p7*p2p8)*(-ffmcfmb*fmb*hbcm3-ffmcfmb*fmc*hbcm3+fmb*
2397 . fmc*hbcm2+fmc2*hbcm2)+4*(p6p7*p1p8)*(-ffmcfmb*fmb*hbcm3-
2398 . ffmcfmb*fmc*hbcm3+fmb*fmc*hbcm2+fmc2*hbcm2))+(4*(p6p7*p2p8)*(-
2399 . 4*fb3*ffmcfmb*hbcm2-8*fb3*hbcm2+8*fb4*fmb*hbcm+4*fb4*fmc*hbcm-
2400 . hbcm2)+4*(p6p7*p1p8)*(4*fb3*ffmcfmb*hbcm2+4*fb4*fmc*hbcm+hbcm2
2401 . )+64*(fb3*p1p3*p2p8*p6p7+fb3*p2p3*p2p8*p6p7-fb3*p2p3*p4p8*p6p7
2402 . -fb3*p2p8*p3p4*p6p7)))
2403 b(10)=ans
2404 b(27)=ccc*(16*p6p7*(2*fb3*hbcm2-fb4*fmb*hbcm-fb4*fmc*hbcm)+32*(
2405 . -fb3*p1p3*p6p7-fb3*p2p3*p6p7+2*fb3*p3p4*p6p7))
2406 b(28)=ccc*(8*w2*(p6p7*p5p8)*(fmb*hbcm+fmc*hbcm)+w17*(8*(p6p7*
2407 . p2p8)*(fmb*hbcm+fmc*hbcm)+8*(p6p7*p1p8)*(fmb*hbcm+fmc*hbcm))+
2408 . 32*(-fb3*p1p8*p6p7-fb3*p2p8*p6p7+2*fb3*p4p8*p6p7))
2409 b(31)=ccc*(w2*(8*(p6p7*p5p8)*(-ffmcfmb*hbcm3+fmc*hbcm2+hbcm3)+
2410 . 16*hbcm*p3p4*p5p8*p6p7)+w17*(8*(p6p7*p2p8)*(-ffmcfmb*hbcm3+fmc
2411 . *hbcm2+hbcm3)+8*(p6p7*p1p8)*(-ffmcfmb*hbcm3+fmc*hbcm2+hbcm3)+
2412 . 16*(hbcm*p1p8*p3p4*p6p7+hbcm*p2p8*p3p4*p6p7))+32*fb4*hbcm*p4p8
2413 . *p6p7)
2414 b(32)=4*ccc*p6p7*(8*fb3*fmb-4*fb3*fmc+4*fb4*ffmcfmb*hbcm-4*fb4*
2415 . hbcm-hbcm)
2416 do 200 n=1,32
2417 c(n,1)=c(n,1)+0.09090909090909091d0*b(n)
2418 c(n,2)=c(n,2)-0.1092591295595148d0*b(n)
2419 200 continue
2420 return
2421 end
2422
2423 subroutine amp21_1p1(cc)
2424 implicit double precision(a-h,o-z)
2425 implicit integer (i-n)
2426 dimension b(32)
2427 #include "inclcon.h"
2428 #include "inclppp.h"
2429 #include "inclamp.h"
2430 do 100 n=1,32
2431 b(n)=0.0d0
2432 100 continue
2433 ccc=cc/((ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3+2*ffmcfmb*p3p4+fmc2-2*
2434 . p1p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3-fmc2)*(ffmcfmb**2*hbcm2
2435 . -2*ffmcfmb*hbcm2+2*ffmcfmb*p2p3-fmb2+hbcm2-2*p2p3))
2436 b(1)=ccc*(64*(p4p6*p3p7)*(fb3*ffmcfmb-fb3)+32*(p3p7*p3p6)*(fb3*
2437 . ffmcfmb-fb3)+16*p6p7*(fb3*ffmcfmb**2*hbcm2-2*fb3*ffmcfmb*hbcm2
2438 . -fb3*fmb2+fb3*hbcm2)+32*(fb3*p1p2*p6p7-fb3*p2p3*p6p7-fb3*p2p4*
2439 . p6p7))
2440 ans2=(8*(p6p7*p4p8)*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-
2441 . hbcm)+8*(p6p8*p4p7)*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+
2442 . hbcm)+16*(p7p8*p4p6)*(-2*fb3*fmb-2*fb4*ffmcfmb*hbcm+2*fb4*hbcm
2443 . +hbcm)+8*(p6p7*p1p8)*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm
2444 . +hbcm)+8*(p6p8*p3p7)*(-4*fb3*ffmcfmb*fmb-4*fb4*ffmcfmb**2*hbcm
2445 . +4*fb4*ffmcfmb*hbcm+hbcm)+8*(p7p8*p3p6)*(-4*fb3*ffmcfmb*fmb-4*
2446 . fb4*ffmcfmb**2*hbcm+4*fb4*ffmcfmb*hbcm+hbcm))
2447 ans1=w8*(16*(p4p6*p3p7*p2p8)*(-ffmcfmb*hbcm+hbcm)+8*(p6p7*p2p8)
2448 . *(-ffmcfmb**2*hbcm3+2*ffmcfmb*hbcm3+fmb2*hbcm-hbcm3)+16*(p3p7*
2449 . p3p6*p2p8)*(ffmcfmb**2*hbcm-2*ffmcfmb*hbcm+hbcm)+16*(-hbcm*
2450 . p1p2*p2p8*p6p7+hbcm*p2p3*p2p8*p6p7+hbcm*p2p4*p2p8*p6p7))+w5*(
2451 . 16*(p4p8*p4p6*p3p7)*(-ffmcfmb*hbcm+hbcm)+16*(p4p6*p3p7*p1p8)*(
2452 . ffmcfmb*hbcm-hbcm)+8*(p6p7*p4p8)*(-ffmcfmb**2*hbcm3+2*ffmcfmb*
2453 . hbcm3+fmb2*hbcm-hbcm3)+8*(p6p7*p1p8)*(ffmcfmb**2*hbcm3-2*
2454 . ffmcfmb*hbcm3-fmb2*hbcm+hbcm3)+16*(p4p8*p3p7*p3p6)*(ffmcfmb**2
2455 . *hbcm-2*ffmcfmb*hbcm+hbcm)+16*(p3p7*p3p6*p1p8)*(-ffmcfmb**2*
2456 . hbcm+2*ffmcfmb*hbcm-hbcm)+16*(hbcm*p1p2*p1p8*p6p7-hbcm*p1p2*
2457 . p4p8*p6p7-hbcm*p1p8*p2p3*p6p7-hbcm*p1p8*p2p4*p6p7+hbcm*p2p3*
2458 . p4p8*p6p7+hbcm*p2p4*p4p8*p6p7))+w12*(16*(p4p6*p3p7*p1p8)*(
2459 . ffmcfmb*hbcm-hbcm)+8*(p6p7*p1p8)*(ffmcfmb**2*hbcm3-2*ffmcfmb*
2460 . hbcm3-fmb2*hbcm+hbcm3)+16*(p3p7*p3p6*p1p8)*(-ffmcfmb**2*hbcm+2
2461 . *ffmcfmb*hbcm-hbcm)+16*(hbcm*p1p2*p1p8*p6p7-hbcm*p1p8*p2p3*
2462 . p6p7-hbcm*p1p8*p2p4*p6p7))+ans2
2463 ans=ccc*ans1
2464 b(2)=ans
2465 ans=ccc*(w8*(16*(p5p7*p2p8)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(
2466 . p3p7*p2p8)*(-ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2+2
2467 . *fmb*hbcm+fmc*hbcm-hbcm2))+w5*(16*(p5p7*p4p8)*(ffmcfmb*hbcm2+
2468 . fmb*hbcm-hbcm2)+16*(p5p7*p1p8)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)
2469 . +8*(p4p8*p3p7)*(-ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm+ffmcfmb*
2470 . hbcm2+2*fmb*hbcm+fmc*hbcm-hbcm2)+8*(p3p7*p1p8)*(ffmcfmb*fmb*
2471 . hbcm+ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2-2*fmb*hbcm-fmc*hbcm+hbcm2)
2472 . )+w12*(16*(p5p7*p1p8)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(p3p7*
2473 . p1p8)*(ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2-2*fmb*
2474 . hbcm-fmc*hbcm+hbcm2))+(64*(p5p8*p3p7)*(-fb3*ffmcfmb+fb3)+32*(
2475 . p3p7*p1p8)*(fb3*ffmcfmb-fb3)+4*p7p8*(4*fb3*ffmcfmb**2*hbcm2-8*
2476 . fb3*ffmcfmb*hbcm2-4*fb3*fmb2+4*fb3*hbcm2+fmb*hbcm+fmc*hbcm)+32
2477 . *(fb3*p2p5*p7p8+fb3*p2p8*p3p7+3*fb3*p2p8*p5p7)))
2478 b(3)=ans
2479 b(4)=ccc*(64*(p3p7*p3p5)*(fb3*ffmcfmb-fb3)+64*(p3p7*p2p3)*(-fb3
2480 . *ffmcfmb+fb3)+32*(p3p7*p1p3)*(-fb3*ffmcfmb+fb3)+8*p5p7*(-4*fb3
2481 . *ffmcfmb*hbcm2+4*fb3*hbcm2-4*fb4*fmb*hbcm-hbcm2)+4*p3p7*(-4*
2482 . fb3*ffmcfmb**2*hbcm2+12*fb3*ffmcfmb*hbcm2+4*fb3*fmb2-8*fb3*
2483 . hbcm2+4*fb4*ffmcfmb*fmb*hbcm+4*fb4*ffmcfmb*fmc*hbcm-8*fb4*fmb*
2484 . hbcm-4*fb4*fmc*hbcm-hbcm2)+32*(fb3*p2p3*p5p7-fb3*p2p5*p3p7))
2485 ans2=w12*(8*(p5p7*p1p8)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+16*(
2486 . p3p7*p3p5*p1p8)*(ffmcfmb*hbcm-hbcm)+16*(p3p7*p2p3*p1p8)*(-
2487 . ffmcfmb*hbcm+hbcm)+16*(p3p7*p1p8*p1p3)*(-ffmcfmb*hbcm+hbcm)+8*
2488 . (p3p7*p1p8)*(-ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3-fmb*hbcm2+fmb2*
2489 . hbcm+fmc*hbcm2-hbcm3)+16*(hbcm*p1p8*p2p3*p5p7-hbcm*p1p8*p2p5*
2490 . p3p7))+(32*(p3p7*p1p8)*(-fb4*ffmcfmb*hbcm+fb4*hbcm)+8*(p5p8*
2491 . p3p7)*(4*fb3*fmb+8*fb4*ffmcfmb*hbcm-8*fb4*hbcm-hbcm)+16*(p7p8*
2492 . p3p5)*(-2*fb3*fmb-2*fb4*ffmcfmb*hbcm+2*fb4*hbcm+hbcm)+8*(p3p7*
2493 . p2p8)*(-4*fb3*fmb-8*fb4*ffmcfmb*hbcm+8*fb4*hbcm+hbcm)+16*(p7p8
2494 . *p2p3)*(2*fb3*fmb+2*fb4*ffmcfmb*hbcm-2*fb4*hbcm-hbcm)+4*p7p8*(
2495 . 8*fb3*ffmcfmb*fmb*hbcm2-8*fb3*fmb*hbcm2+4*fb4*ffmcfmb**2*hbcm3
2496 . -8*fb4*ffmcfmb*hbcm3+4*fb4*fmb2*hbcm+4*fb4*hbcm3-ffmcfmb*hbcm3
2497 . -fmc*hbcm2+3*hbcm3)+8*(-4*fb4*hbcm*p2p5*p7p8+4*fb4*hbcm*p2p8*
2498 . p5p7-hbcm*p1p3*p7p8))
2499 ans1=w8*(8*(p5p7*p2p8)*(ffmcfmb*hbcm3+fmb*hbcm2-hbcm3)+16*(p3p7
2500 . *p3p5*p2p8)*(-ffmcfmb*hbcm+hbcm)+16*(p3p7*p2p8*p2p3)*(ffmcfmb*
2501 . hbcm-hbcm)+16*(p3p7*p2p8*p1p3)*(ffmcfmb*hbcm-hbcm)+8*(p3p7*
2502 . p2p8)*(ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3+fmb*hbcm2-fmb2*hbcm-fmc
2503 . *hbcm2+hbcm3)+16*(-hbcm*p2p3*p2p8*p5p7+hbcm*p2p5*p2p8*p3p7))+
2504 . w5*(8*(p5p7*p4p8)*(ffmcfmb*hbcm3+fmb*hbcm2-hbcm3)+8*(p5p7*p1p8
2505 . )*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+16*(p4p8*p3p7*p3p5)*(-
2506 . ffmcfmb*hbcm+hbcm)+16*(p4p8*p3p7*p2p3)*(ffmcfmb*hbcm-hbcm)+16*
2507 . (p3p7*p3p5*p1p8)*(ffmcfmb*hbcm-hbcm)+16*(p3p7*p2p3*p1p8)*(-
2508 . ffmcfmb*hbcm+hbcm)+16*(p4p8*p3p7*p1p3)*(ffmcfmb*hbcm-hbcm)+16*
2509 . (p3p7*p1p8*p1p3)*(-ffmcfmb*hbcm+hbcm)+8*(p4p8*p3p7)*(ffmcfmb*
2510 . fmc*hbcm2-ffmcfmb*hbcm3+fmb*hbcm2-fmb2*hbcm-fmc*hbcm2+hbcm3)+8
2511 . *(p3p7*p1p8)*(-ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3-fmb*hbcm2+fmb2*
2512 . hbcm+fmc*hbcm2-hbcm3)+16*(hbcm*p1p8*p2p3*p5p7-hbcm*p1p8*p2p5*
2513 . p3p7-hbcm*p2p3*p4p8*p5p7+hbcm*p2p5*p3p7*p4p8))+ans2
2514 ans=ccc*ans1
2515 b(5)=ans
2516 b(6)=ccc*(w8*(16*(p4p6*p2p8)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(
2517 . p3p6*p2p8)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2))+w5*(16*(p4p8*p4p6)*
2518 . (ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(p4p8*p3p6)*(ffmcfmb*hbcm2+
2519 . fmb*hbcm-hbcm2)+16*(p4p6*p1p8)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)
2520 . +8*(p3p6*p1p8)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2))+w12*(16*(p4p6*
2521 . p1p8)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(p3p6*p1p8)*(-ffmcfmb*
2522 . hbcm2-fmb*hbcm+hbcm2))+(16*p6p8*(fb3*ffmcfmb**2*hbcm2-2*fb3*
2523 . ffmcfmb*hbcm2-fb3*fmb2+fb3*hbcm2)+32*(-fb3*ffmcfmb*p2p8*p3p6+
2524 . fb3*p1p2*p6p8-fb3*p2p3*p6p8-fb3*p2p4*p6p8-fb3*p2p8*p4p6)))
2525 b(7)=ccc*(32*(p3p6*p2p3)*(fb3*ffmcfmb+fb3)+8*p4p6*(-4*fb3*
2526 . ffmcfmb*hbcm2+4*fb3*hbcm2-4*fb4*fmb*hbcm-hbcm2)+4*p3p6*(-4*fb3
2527 . *ffmcfmb**2*hbcm2+4*fb3*ffmcfmb*hbcm2+4*fb3*fmb2-4*fb4*fmb*
2528 . hbcm-hbcm2)+32*(-fb3*p1p2*p3p6+fb3*p2p3*p4p6+fb3*p2p4*p3p6))
2529 ans2=(8*(p6p8*p2p3)*(4*fb4*hbcm+hbcm)+8*(p4p8*p3p6)*(-4*fb3*fmb
2530 . -4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+hbcm)+8*(p6p8*p3p4)*(4*fb3*fmb+
2531 . 4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm)+8*(p3p6*p1p8)*(4*fb3*fmb+4
2532 . *fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm)+8*(p6p8*p1p3)*(-4*fb3*fmb-4
2533 . *fb4*ffmcfmb*hbcm+4*fb4*hbcm+hbcm)+4*p6p8*(8*fb3*ffmcfmb*fmb*
2534 . hbcm2+4*fb4*ffmcfmb**2*hbcm3+4*fb4*fmb2*hbcm-4*fb4*hbcm3-
2535 . ffmcfmb*hbcm3+fmb*hbcm2-hbcm3)+32*(fb4*ffmcfmb*hbcm*p2p8*p3p6-
2536 . fb4*hbcm*p1p2*p6p8+fb4*hbcm*p2p4*p6p8+fb4*hbcm*p2p8*p4p6))
2537 ans1=w8*(8*(p4p6*p2p8)*(ffmcfmb*hbcm3+fmb*hbcm2-hbcm3)+16*(p3p6
2538 . *p2p8*p2p3)*(-ffmcfmb*hbcm-hbcm)+8*(p3p6*p2p8)*(-ffmcfmb*fmb*
2539 . hbcm2+fmb*hbcm2-fmb2*hbcm)+16*(hbcm*p1p2*p2p8*p3p6-hbcm*p2p3*
2540 . p2p8*p4p6-hbcm*p2p4*p2p8*p3p6))+w5*(8*(p4p8*p4p6)*(ffmcfmb*
2541 . hbcm3+fmb*hbcm2-hbcm3)+8*(p4p6*p1p8)*(-ffmcfmb*hbcm3-fmb*hbcm2
2542 . +hbcm3)+16*(p4p8*p3p6*p2p3)*(-ffmcfmb*hbcm-hbcm)+16*(p3p6*p2p3
2543 . *p1p8)*(ffmcfmb*hbcm+hbcm)+8*(p4p8*p3p6)*(-ffmcfmb*fmb*hbcm2+
2544 . fmb*hbcm2-fmb2*hbcm)+8*(p3p6*p1p8)*(ffmcfmb*fmb*hbcm2-fmb*
2545 . hbcm2+fmb2*hbcm)+16*(-hbcm*p1p2*p1p8*p3p6+hbcm*p1p2*p3p6*p4p8+
2546 . hbcm*p1p8*p2p3*p4p6+hbcm*p1p8*p2p4*p3p6-hbcm*p2p3*p4p6*p4p8-
2547 . hbcm*p2p4*p3p6*p4p8))+w12*(8*(p4p6*p1p8)*(-ffmcfmb*hbcm3-fmb*
2548 . hbcm2+hbcm3)+16*(p3p6*p2p3*p1p8)*(ffmcfmb*hbcm+hbcm)+8*(p3p6*
2549 . p1p8)*(ffmcfmb*fmb*hbcm2-fmb*hbcm2+fmb2*hbcm)+16*(-hbcm*p1p2*
2550 . p1p8*p3p6+hbcm*p1p8*p2p3*p4p6+hbcm*p1p8*p2p4*p3p6))+ans2
2551 ans=ccc*ans1
2552 b(8)=ans
2553 b(9)=ccc*(8*(p4p6*p3p7)*(4*fb3*fmb+8*fb4*ffmcfmb*hbcm-8*fb4*
2554 . hbcm-hbcm)+8*(p4p7*p3p6)*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*
2555 . hbcm-hbcm)+8*(p6p7*p3p4)*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*
2556 . hbcm+hbcm)+8*(p6p7*p1p3)*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*
2557 . hbcm-hbcm)+16*(p3p7*p3p6)*(4*fb3*ffmcfmb*fmb+2*fb4*ffmcfmb**2*
2558 . hbcm-2*fb4*hbcm-ffmcfmb*hbcm)+8*p6p7*(-4*fb3*ffmcfmb*fmb*hbcm2
2559 . -2*fb4*ffmcfmb**2*hbcm3-2*fb4*fmb2*hbcm+2*fb4*hbcm3+ffmcfmb*
2560 . hbcm3)+32*(fb4*hbcm*p1p2*p6p7-fb4*hbcm*p2p3*p6p7-fb4*hbcm*p2p4
2561 . *p6p7))
2562 ans4=(8*(p7p8*p3p6)*(-4*fb3*fmb2-4*fb4*ffmcfmb*fmb*hbcm+4*fb4*
2563 . fmb*hbcm-fmb*hbcm+hbcm2)+64*(p4p8*p3p7*p3p6)*(-fb3*ffmcfmb+fb3
2564 . )+64*(p6p8*p3p7*p3p4)*(fb3*ffmcfmb-fb3)+64*(p7p8*p3p6*p2p3)*(-
2565 . fb3*ffmcfmb-fb3)+64*(p3p7*p3p6*p1p8)*(fb3*ffmcfmb-fb3)+64*(
2566 . p6p8*p3p7*p1p3)*(-fb3*ffmcfmb+fb3)+8*(p6p7*p4p8)*(4*fb3*
2567 . ffmcfmb*hbcm2-4*fb3*hbcm2+4*fb4*fmb*hbcm+hbcm2)+8*(p6p8*p4p7)*
2568 . (-4*fb3*ffmcfmb*hbcm2+4*fb3*hbcm2-4*fb4*fmb*hbcm-hbcm2)+8*(
2569 . p7p8*p4p6)*(4*fb3*ffmcfmb*hbcm2-4*fb3*hbcm2+4*fb4*fmb*hbcm+
2570 . hbcm2)+8*(p6p8*p3p7)*(4*fb3*ffmcfmb*hbcm2+4*fb3*fmb2-4*fb3*
2571 . hbcm2-4*fb4*ffmcfmb*fmb*hbcm-fmb*hbcm-hbcm2)+8*(p6p7*p1p8)*(-4
2572 . *fb3*ffmcfmb*hbcm2+4*fb3*hbcm2-4*fb4*fmb*hbcm-hbcm2)+64*(-fb3*
2573 . ffmcfmb*hbcm2*p2p8*p6p7+3*fb3*ffmcfmb*p2p8*p3p6*p3p7+fb3*p1p2*
2574 . p3p6*p7p8-fb3*p1p2*p3p7*p6p8+fb3*p1p3*p2p8*p6p7+fb3*p2p3*p3p7*
2575 . p6p8-fb3*p2p3*p4p6*p7p8-fb3*p2p4*p3p6*p7p8+fb3*p2p4*p3p7*p6p8-
2576 . fb3*p2p8*p3p4*p6p7+fb3*p2p8*p3p6*p4p7+2*fb3*p2p8*p3p7*p4p6))
2577 ans3=w12*(16*(p4p6*p3p7*p1p8)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16
2578 . *(p4p7*p3p6*p1p8)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(p6p7*
2579 . p3p4*p1p8)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(p6p7*p1p8*p1p3)*
2580 . (-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(p3p7*p3p6*p1p8)*(-2*
2581 . ffmcfmb*fmb*hbcm+fmb*hbcm)+8*(p6p7*p1p8)*(ffmcfmb**2*hbcm4+2*
2582 . ffmcfmb*fmb*hbcm3+fmb2*hbcm2-hbcm4)+16*(-hbcm2*p1p2*p1p8*p6p7+
2583 . hbcm2*p1p8*p2p3*p6p7+hbcm2*p1p8*p2p4*p6p7))+ans4
2584 ans2=w5*(16*(p4p8*p4p6*p3p7)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16
2585 . *(p4p8*p4p7*p3p6)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(p6p7*p4p8
2586 . *p3p4)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(p4p6*p3p7*p1p8)*(
2587 . ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(p4p7*p3p6*p1p8)*(-ffmcfmb*
2588 . hbcm2-fmb*hbcm+hbcm2)+16*(p6p7*p3p4*p1p8)*(ffmcfmb*hbcm2+fmb*
2589 . hbcm-hbcm2)+16*(p6p7*p4p8*p1p3)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)
2590 . +16*(p6p7*p1p8*p1p3)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(p4p8*
2591 . p3p7*p3p6)*(2*ffmcfmb*fmb*hbcm-fmb*hbcm)+16*(p3p7*p3p6*p1p8)*(
2592 . -2*ffmcfmb*fmb*hbcm+fmb*hbcm)+8*(p6p7*p4p8)*(-ffmcfmb**2*hbcm4
2593 . -2*ffmcfmb*fmb*hbcm3-fmb2*hbcm2+hbcm4)+8*(p6p7*p1p8)*(ffmcfmb
2594 . **2*hbcm4+2*ffmcfmb*fmb*hbcm3+fmb2*hbcm2-hbcm4)+16*(-hbcm2*
2595 . p1p2*p1p8*p6p7+hbcm2*p1p2*p4p8*p6p7+hbcm2*p1p8*p2p3*p6p7+hbcm2
2596 . *p1p8*p2p4*p6p7-hbcm2*p2p3*p4p8*p6p7-hbcm2*p2p4*p4p8*p6p7))+
2597 . ans3
2598 ans1=w8*(16*(p4p6*p3p7*p2p8)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16
2599 . *(p4p7*p3p6*p2p8)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(p6p7*p3p4
2600 . *p2p8)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(p6p7*p2p8*p1p3)*(
2601 . ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(p3p7*p3p6*p2p8)*(2*ffmcfmb*
2602 . fmb*hbcm-fmb*hbcm)+8*(p6p7*p2p8)*(-ffmcfmb**2*hbcm4-2*ffmcfmb*
2603 . fmb*hbcm3-fmb2*hbcm2+hbcm4)+16*(hbcm2*p1p2*p2p8*p6p7-hbcm2*
2604 . p2p3*p2p8*p6p7-hbcm2*p2p4*p2p8*p6p7))+ans2
2605 ans=ccc*ans1
2606 b(10)=ans
2607 ans=ccc*(w8*(4*p2p8*(-ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2-
2608 . ffmcfmb*fmc*hbcm2+2*ffmcfmb*hbcm3-fmb*fmc*hbcm-fmb*hbcm2+2*
2609 . fmb2*hbcm+fmc*hbcm2-hbcm3)+8*(hbcm*p1p2*p2p8-hbcm*p2p3*p2p8-3*
2610 . hbcm*p2p5*p2p8))+w5*(4*p4p8*(-ffmcfmb**2*hbcm3+ffmcfmb*fmb*
2611 . hbcm2-ffmcfmb*fmc*hbcm2+2*ffmcfmb*hbcm3-fmb*fmc*hbcm-fmb*hbcm2
2612 . +2*fmb2*hbcm+fmc*hbcm2-hbcm3)+4*p1p8*(ffmcfmb**2*hbcm3-ffmcfmb
2613 . *fmb*hbcm2+ffmcfmb*fmc*hbcm2-2*ffmcfmb*hbcm3+fmb*fmc*hbcm+fmb*
2614 . hbcm2-2*fmb2*hbcm-fmc*hbcm2+hbcm3)+8*(-hbcm*p1p2*p1p8+hbcm*
2615 . p1p2*p4p8+hbcm*p1p8*p2p3+3*hbcm*p1p8*p2p5-hbcm*p2p3*p4p8-3*
2616 . hbcm*p2p5*p4p8))+w12*(4*p1p8*(ffmcfmb**2*hbcm3-ffmcfmb*fmb*
2617 . hbcm2+ffmcfmb*fmc*hbcm2-2*ffmcfmb*hbcm3+fmb*fmc*hbcm+fmb*hbcm2
2618 . -2*fmb2*hbcm-fmc*hbcm2+hbcm3)+8*(-hbcm*p1p2*p1p8+hbcm*p1p8*
2619 . p2p3+3*hbcm*p1p8*p2p5))+(12*p5p8*(-4*fb3*fmb-4*fb4*ffmcfmb*
2620 . hbcm+4*fb4*hbcm+hbcm)+8*p2p8*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*
2621 . fb4*hbcm-hbcm)+4*p1p8*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm
2622 . -hbcm)))
2623 b(11)=ans
2624 b(12)=2*ccc*(-8*fb3*ffmcfmb**2*hbcm2+16*fb3*ffmcfmb*hbcm2+4*fb3
2625 . *fmb*fmc+12*fb3*fmb2-8*fb3*hbcm2+8*fb3*p1p2-8*fb3*p2p3-32*fb3*
2626 . p2p5+4*fb4*ffmcfmb*fmb*hbcm+4*fb4*ffmcfmb*fmc*hbcm-4*fb4*fmb*
2627 . hbcm-4*fb4*fmc*hbcm-fmb*hbcm-fmc*hbcm)
2628 ans2=w12*(16*(p3p5*p1p8)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(p2p3
2629 . *p1p8)*(-ffmcfmb*hbcm2-fmb*hbcm+2*hbcm2)+8*(p1p8*p1p3)*(-
2630 . ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+4*p1p8*(-ffmcfmb*fmb*hbcm3-
2631 . ffmcfmb*fmc*hbcm3+2*ffmcfmb*hbcm4-fmb*fmc*hbcm2+3*fmb*hbcm3-
2632 . fmb2*hbcm2+fmc*hbcm3-2*hbcm4)+8*(-hbcm2*p1p2*p1p8+2*hbcm2*p1p8
2633 . *p2p5))+(8*p5p8*(4*fb3*ffmcfmb*hbcm2-4*fb3*hbcm2+4*fb4*fmb*
2634 . hbcm+hbcm2)+4*p2p8*(-12*fb3*ffmcfmb*hbcm2+12*fb3*hbcm2-4*fb4*
2635 . fmb*hbcm-hbcm2)+4*p1p8*(-4*fb3*ffmcfmb*hbcm2+4*fb3*hbcm2-4*fb4
2636 . *fmb*hbcm-hbcm2)+32*(-fb3*p2p3*p5p8+fb3*p2p8*p3p5))
2637 ans1=w8*(16*(p3p5*p2p8)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(p2p8
2638 . *p2p3)*(ffmcfmb*hbcm2+fmb*hbcm-2*hbcm2)+8*(p2p8*p1p3)*(ffmcfmb
2639 . *hbcm2+fmb*hbcm-hbcm2)+4*p2p8*(ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*
2640 . hbcm3-2*ffmcfmb*hbcm4+fmb*fmc*hbcm2-3*fmb*hbcm3+fmb2*hbcm2-fmc
2641 . *hbcm3+2*hbcm4)+8*(hbcm2*p1p2*p2p8-2*hbcm2*p2p5*p2p8))+w5*(16*
2642 . (p4p8*p3p5)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(p4p8*p2p3)*(
2643 . ffmcfmb*hbcm2+fmb*hbcm-2*hbcm2)+16*(p3p5*p1p8)*(ffmcfmb*hbcm2+
2644 . fmb*hbcm-hbcm2)+8*(p2p3*p1p8)*(-ffmcfmb*hbcm2-fmb*hbcm+2*hbcm2
2645 . )+8*(p4p8*p1p3)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(p1p8*p1p3)*(
2646 . -ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+4*p4p8*(ffmcfmb*fmb*hbcm3+
2647 . ffmcfmb*fmc*hbcm3-2*ffmcfmb*hbcm4+fmb*fmc*hbcm2-3*fmb*hbcm3+
2648 . fmb2*hbcm2-fmc*hbcm3+2*hbcm4)+4*p1p8*(-ffmcfmb*fmb*hbcm3-
2649 . ffmcfmb*fmc*hbcm3+2*ffmcfmb*hbcm4-fmb*fmc*hbcm2+3*fmb*hbcm3-
2650 . fmb2*hbcm2+fmc*hbcm3-2*hbcm4)+8*(-hbcm2*p1p2*p1p8+hbcm2*p1p2*
2651 . p4p8+2*hbcm2*p1p8*p2p5-2*hbcm2*p2p5*p4p8))+ans2
2652 ans=ccc*ans1
2653 b(13)=ans
2654 b(14)=ccc*(12*p3p5*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-
2655 . hbcm)+8*p2p3*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+6*fb4*hbcm+hbcm)+4
2656 . *p1p3*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+hbcm)+2*(-12*
2657 . fb3*ffmcfmb*fmb*hbcm2+4*fb3*ffmcfmb*fmc*hbcm2+20*fb3*fmb*hbcm2
2658 . -4*fb3*fmc*hbcm2-4*fb4*ffmcfmb**2*hbcm3+16*fb4*ffmcfmb*hbcm3+4
2659 . *fb4*fmb*fmc*hbcm-8*fb4*fmb2*hbcm-8*fb4*hbcm*p1p2+24*fb4*hbcm*
2660 . p2p5-12*fb4*hbcm3+2*ffmcfmb*hbcm3-fmb*hbcm2+fmc*hbcm2-4*hbcm3)
2661 . )
2662 b(15)=ccc*(8*w8*(-hbcm2*p2p8*p3p6-2*hbcm2*p2p8*p4p6)+8*w5*(
2663 . hbcm2*p1p8*p3p6+2*hbcm2*p1p8*p4p6-hbcm2*p3p6*p4p8-2*hbcm2*p4p6
2664 . *p4p8)+8*w12*(hbcm2*p1p8*p3p6+2*hbcm2*p1p8*p4p6)+32*(-fb3*
2665 . ffmcfmb*hbcm2*p6p8+fb3*p1p3*p6p8-fb3*p1p8*p3p6-fb3*p3p4*p6p8+
2666 . fb3*p3p6*p4p8))
2667 b(16)=ccc*(w8*(8*(p3p6*p2p8)*(ffmcfmb*hbcm+hbcm)+24*hbcm*p2p8*
2668 . p4p6)+w5*(8*(p4p8*p3p6)*(ffmcfmb*hbcm+hbcm)+8*(p3p6*p1p8)*(-
2669 . ffmcfmb*hbcm-hbcm)+24*(-hbcm*p1p8*p4p6+hbcm*p4p6*p4p8))+w12*(8
2670 . *(p3p6*p1p8)*(-ffmcfmb*hbcm-hbcm)-24*hbcm*p1p8*p4p6)-4*hbcm*
2671 . p6p8)
2672 b(17)=ccc*(w8*(4*p2p8*(-2*ffmcfmb*hbcm3+fmb*hbcm2-fmc*hbcm2+4*
2673 . hbcm3)+8*(-hbcm*p1p3*p2p8-2*hbcm*p2p3*p2p8+3*hbcm*p2p8*p3p5))+
2674 . w5*(4*p4p8*(-2*ffmcfmb*hbcm3+fmb*hbcm2-fmc*hbcm2+4*hbcm3)+4*
2675 . p1p8*(2*ffmcfmb*hbcm3-fmb*hbcm2+fmc*hbcm2-4*hbcm3)+8*(hbcm*
2676 . p1p3*p1p8-hbcm*p1p3*p4p8+2*hbcm*p1p8*p2p3-3*hbcm*p1p8*p3p5-2*
2677 . hbcm*p2p3*p4p8+3*hbcm*p3p5*p4p8))+w12*(4*p1p8*(2*ffmcfmb*hbcm3
2678 . -fmb*hbcm2+fmc*hbcm2-4*hbcm3)+8*(hbcm*p1p3*p1p8+2*hbcm*p1p8*
2679 . p2p3-3*hbcm*p1p8*p3p5))+16*(fb4*hbcm*p1p8+2*fb4*hbcm*p2p8-3*
2680 . fb4*hbcm*p5p8))
2681 b(18)=ccc*(8*w8*(hbcm2*p2p8*p3p7+2*hbcm2*p2p8*p5p7)+8*w5*(-
2682 . hbcm2*p1p8*p3p7-2*hbcm2*p1p8*p5p7+hbcm2*p3p7*p4p8+2*hbcm2*p4p8
2683 . *p5p7)+8*w12*(-hbcm2*p1p8*p3p7-2*hbcm2*p1p8*p5p7)+(32*p7p8*(
2684 . fb3*ffmcfmb*hbcm2-fb3*hbcm2)+32*(fb3*p2p3*p7p8-fb3*p2p8*p3p7-
2685 . fb3*p3p5*p7p8+fb3*p3p7*p5p8)))
2686 b(19)=ccc*(4*w8*p2p8*(fmb*hbcm+fmc*hbcm)+w5*(4*p4p8*(fmb*hbcm+
2687 . fmc*hbcm)+4*p1p8*(-fmb*hbcm-fmc*hbcm))+4*w12*p1p8*(-fmb*hbcm-
2688 . fmc*hbcm)+16*(-fb3*p1p8-3*fb3*p2p8+4*fb3*p5p8))
2689 b(20)=ccc*(w8*(8*(p3p7*p2p8)*(-ffmcfmb*hbcm+2*hbcm)+24*hbcm*
2690 . p2p8*p5p7)+w5*(8*(p4p8*p3p7)*(-ffmcfmb*hbcm+2*hbcm)+8*(p3p7*
2691 . p1p8)*(ffmcfmb*hbcm-2*hbcm)+24*(-hbcm*p1p8*p5p7+hbcm*p4p8*p5p7
2692 . ))+w12*(8*(p3p7*p1p8)*(ffmcfmb*hbcm-2*hbcm)-24*hbcm*p1p8*p5p7)
2693 . +4*hbcm*p7p8)
2694 b(21)=8*ccc*(fb3*fmb-fb3*fmc)
2695 b(22)=8*ccc*(4*fb3*ffmcfmb*hbcm2-6*fb3*hbcm2+2*fb3*p1p3+6*fb3*
2696 . p2p3-8*fb3*p3p5-fb4*fmb*hbcm-fb4*fmc*hbcm)
2697 b(23)=ccc*(16*p3p7*(fb4*ffmcfmb*hbcm-2*fb4*hbcm)-48*fb4*hbcm*
2698 . p5p7)
2699 b(24)=ccc*(16*p3p6*(-fb4*ffmcfmb*hbcm-fb4*hbcm)-48*fb4*hbcm*
2700 . p4p6)
2701 b(25)=ccc*(12*p5p7*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-
2702 . hbcm)+4*p3p7*(-8*fb3*ffmcfmb*fmb+4*fb3*ffmcfmb*fmc+12*fb3*fmb-
2703 . 4*fb3*fmc-4*fb4*ffmcfmb**2*hbcm+12*fb4*ffmcfmb*hbcm-8*fb4*hbcm
2704 . +ffmcfmb*hbcm-2*hbcm))
2705 b(26)=ccc*(12*p4p6*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-
2706 . hbcm)+4*p3p6*(4*fb3*ffmcfmb*fmb+4*fb3*fmb+4*fb4*ffmcfmb**2*
2707 . hbcm-4*fb4*hbcm-ffmcfmb*hbcm-hbcm))
2708 b(27)=32*ccc*(fb3*ffmcfmb*hbcm2*p6p7-2*fb3*ffmcfmb*p3p6*p3p7-
2709 . fb3*p1p3*p6p7+fb3*p3p4*p6p7-fb3*p3p6*p4p7-fb3*p3p7*p4p6)
2710 b(28)=32*ccc*(-fb3*ffmcfmb*p3p6*p7p8-fb3*ffmcfmb*p3p7*p6p8-fb3*
2711 . p1p8*p6p7-fb3*p4p6*p7p8-fb3*p4p7*p6p8+fb3*p4p8*p6p7)
2712 b(29)=ccc*(16*p3p6*(-2*fb3*ffmcfmb-fb3)-64*fb3*p4p6)
2713 b(30)=ccc*(16*p3p7*(2*fb3*ffmcfmb-3*fb3)-64*fb3*p5p7)
2714 b(31)=ccc*(16*w8*(2*ffmcfmb*hbcm*p2p8*p3p6*p3p7-ffmcfmb*hbcm3*
2715 . p2p8*p6p7+hbcm*p1p3*p2p8*p6p7-hbcm*p2p8*p3p4*p6p7+hbcm*p2p8*
2716 . p3p6*p4p7+hbcm*p2p8*p3p7*p4p6)+16*w5*(-2*ffmcfmb*hbcm*p1p8*
2717 . p3p6*p3p7+2*ffmcfmb*hbcm*p3p6*p3p7*p4p8+ffmcfmb*hbcm3*p1p8*
2718 . p6p7-ffmcfmb*hbcm3*p4p8*p6p7-hbcm*p1p3*p1p8*p6p7+hbcm*p1p3*
2719 . p4p8*p6p7+hbcm*p1p8*p3p4*p6p7-hbcm*p1p8*p3p6*p4p7-hbcm*p1p8*
2720 . p3p7*p4p6-hbcm*p3p4*p4p8*p6p7+hbcm*p3p6*p4p7*p4p8+hbcm*p3p7*
2721 . p4p6*p4p8)+16*w12*(-2*ffmcfmb*hbcm*p1p8*p3p6*p3p7+ffmcfmb*
2722 . hbcm3*p1p8*p6p7-hbcm*p1p3*p1p8*p6p7+hbcm*p1p8*p3p4*p6p7-hbcm*
2723 . p1p8*p3p6*p4p7-hbcm*p1p8*p3p7*p4p6)+(8*(p6p8*p3p7)*(-4*fb4*
2724 . ffmcfmb*hbcm-hbcm)+8*(p7p8*p3p6)*(-4*fb4*ffmcfmb*hbcm-hbcm)+32
2725 . *(-fb4*hbcm*p1p8*p6p7-fb4*hbcm*p4p6*p7p8-fb4*hbcm*p4p7*p6p8+
2726 . fb4*hbcm*p4p8*p6p7)))
2727 do 200 n=1,32
2728 c(n,1)=c(n,1)-0.1818181818181818d0*b(n)
2729 c(n,2)=c(n,2)-0.05883183899358491d0*b(n)
2730 c(n,3)=c(n,3)-0.2077659977796572d0*b(n)
2731 200 continue
2732 return
2733 end
2734
2735 subroutine amp20_1p1(cc)
2736 implicit double precision(a-h,o-z)
2737 implicit integer (i-n)
2738 dimension b(32)
2739 #include "inclcon.h"
2740 #include "inclppp.h"
2741 #include "inclamp.h"
2742 do 100 n=1,32
2743 b(n)=0.0d0
2744 100 continue
2745 ccc=cc/((ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2)*(ffmcfmb**2*
2746 . hbcm2-2*ffmcfmb*hbcm2+2*ffmcfmb*p1p3-fmb2+hbcm2-2*p1p3)*(
2747 . ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+2*ffmcfmb*p3p5+fmc2+2*p4p5))
2748 b(1)=ccc*(64*(p4p6*p3p7)*(fb3*ffmcfmb-fb3)+32*(p4p7*p3p6)*(-fb3
2749 . *ffmcfmb+fb3)+16*p6p7*(fb3*ffmcfmb**2*hbcm2-2*fb3*ffmcfmb*
2750 . hbcm2-fb3*fmc2)+32*(fb3*ffmcfmb*p1p3*p6p7-fb3*ffmcfmb*p3p6*
2751 . p5p7+fb3*p1p4*p6p7-fb3*p3p4*p6p7+fb3*p3p7*p5p6-fb3*p4p6*p5p7+
2752 . fb3*p4p7*p5p6))
2753 ans3=(8*(p7p8*p3p6)*(-ffmcfmb*hbcm+hbcm)+32*(p6p8*p5p7)*(-fb3*
2754 . fmc-fb4*ffmcfmb*hbcm)+32*(p6p8*p4p7)*(-fb3*fmc-fb4*ffmcfmb*
2755 . hbcm)+8*(p6p7*p2p8)*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+8*(
2756 . p6p8*p3p7)*(-4*fb3*ffmcfmb*fmb+4*fb3*ffmcfmb*fmc+4*fb3*fmb-8*
2757 . fb3*fmc-4*fb4*ffmcfmb*hbcm-ffmcfmb*hbcm+hbcm)+8*(hbcm*p1p8*
2758 . p6p7+hbcm*p4p6*p7p8))
2759 ans2=w1*(16*(p4p8*p4p6*p3p7)*(-ffmcfmb*hbcm+hbcm)+16*(p4p8*p4p7
2760 . *p3p6)*(ffmcfmb*hbcm-hbcm)+8*(p6p7*p4p8)*(-ffmcfmb**2*hbcm3+2*
2761 . ffmcfmb*hbcm3+fmc2*hbcm)+16*(p4p8*p3p7*p3p6)*(ffmcfmb**2*hbcm-
2762 . ffmcfmb*hbcm)+16*(-ffmcfmb*hbcm*p1p3*p4p8*p6p7+ffmcfmb*hbcm*
2763 . p3p6*p4p8*p5p7-hbcm*p1p4*p4p8*p6p7+hbcm*p3p4*p4p8*p6p7-hbcm*
2764 . p3p7*p4p8*p5p6+hbcm*p4p6*p4p8*p5p7-hbcm*p4p7*p4p8*p5p6))+w13*(
2765 . 16*(p4p6*p3p7*p1p8)*(-ffmcfmb*hbcm+hbcm)+16*(p4p7*p3p6*p1p8)*(
2766 . ffmcfmb*hbcm-hbcm)+8*(p6p7*p1p8)*(-ffmcfmb**2*hbcm3+2*ffmcfmb*
2767 . hbcm3+fmc2*hbcm)+16*(p3p7*p3p6*p1p8)*(ffmcfmb**2*hbcm-ffmcfmb*
2768 . hbcm)+16*(-ffmcfmb*hbcm*p1p3*p1p8*p6p7+ffmcfmb*hbcm*p1p8*p3p6*
2769 . p5p7-hbcm*p1p4*p1p8*p6p7+hbcm*p1p8*p3p4*p6p7-hbcm*p1p8*p3p7*
2770 . p5p6+hbcm*p1p8*p4p6*p5p7-hbcm*p1p8*p4p7*p5p6))+ans3
2771 ans1=w18*(16*(p5p8*p4p6*p3p7)*(-ffmcfmb*hbcm+hbcm)+16*(p4p8*
2772 . p4p6*p3p7)*(-ffmcfmb*hbcm+hbcm)+16*(p5p8*p4p7*p3p6)*(ffmcfmb*
2773 . hbcm-hbcm)+16*(p4p8*p4p7*p3p6)*(ffmcfmb*hbcm-hbcm)+8*(p6p7*
2774 . p5p8)*(-ffmcfmb**2*hbcm3+2*ffmcfmb*hbcm3+fmc2*hbcm)+8*(p6p7*
2775 . p4p8)*(-ffmcfmb**2*hbcm3+2*ffmcfmb*hbcm3+fmc2*hbcm)+16*(p5p8*
2776 . p3p7*p3p6)*(ffmcfmb**2*hbcm-ffmcfmb*hbcm)+16*(p4p8*p3p7*p3p6)*
2777 . (ffmcfmb**2*hbcm-ffmcfmb*hbcm)+16*(-ffmcfmb*hbcm*p1p3*p4p8*
2778 . p6p7-ffmcfmb*hbcm*p1p3*p5p8*p6p7+ffmcfmb*hbcm*p3p6*p4p8*p5p7+
2779 . ffmcfmb*hbcm*p3p6*p5p7*p5p8-hbcm*p1p4*p4p8*p6p7-hbcm*p1p4*p5p8
2780 . *p6p7+hbcm*p3p4*p4p8*p6p7+hbcm*p3p4*p5p8*p6p7-hbcm*p3p7*p4p8*
2781 . p5p6-hbcm*p3p7*p5p6*p5p8+hbcm*p4p6*p4p8*p5p7+hbcm*p4p6*p5p7*
2782 . p5p8-hbcm*p4p7*p4p8*p5p6-hbcm*p4p7*p5p6*p5p8))+ans2
2783 ans=ccc*ans1
2784 b(2)=ans
2785 ans2=(4*p7p8*(4*fb3*ffmcfmb**2*hbcm2-8*fb3*ffmcfmb*hbcm2-4*fb3*
2786 . fmc2+fmb*hbcm+fmc*hbcm)+32*(fb3*ffmcfmb*p1p3*p7p8+fb3*ffmcfmb*
2787 . p1p8*p3p7-2*fb3*ffmcfmb*p3p7*p5p8+fb3*p1p4*p7p8+2*fb3*p1p8*
2788 . p4p7-fb3*p1p8*p5p7-fb3*p3p4*p7p8+fb3*p3p7*p4p8-3*fb3*p4p7*p5p8
2789 . +3*fb3*p4p8*p5p7))
2790 ans1=w18*(8*(p5p8*p5p7)*(ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm)+8*(
2791 . p5p7*p4p8)*(ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm)+8*(p5p8*p4p7)*(
2792 . ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm)+8*(p4p8*p4p7)*(ffmcfmb*
2793 . hbcm2-fmb*hbcm-2*fmc*hbcm)+8*(p5p8*p3p7)*(-ffmcfmb*fmb*hbcm-
2794 . ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-fmc*hbcm)+8*(p4p8*p3p7)*(-
2795 . ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-fmc*hbcm))+w1*
2796 . (8*(p5p7*p4p8)*(ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm)+8*(p4p8*
2797 . p4p7)*(ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm)+8*(p4p8*p3p7)*(-
2798 . ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-fmc*hbcm))+w13
2799 . *(8*(p5p7*p1p8)*(ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm)+8*(p4p7*
2800 . p1p8)*(ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm)+8*(p3p7*p1p8)*(-
2801 . ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-fmc*hbcm))+
2802 . ans2
2803 ans=ccc*ans1
2804 b(3)=ans
2805 b(4)=ccc*(4*p5p7*(-4*fb3*ffmcfmb*hbcm2-8*fb3*hbcm2+4*fb4*fmb*
2806 . hbcm+8*fb4*fmc*hbcm-hbcm2)+4*p4p7*(-4*fb3*ffmcfmb*hbcm2+16*fb3
2807 . *hbcm2+4*fb4*fmb*hbcm+8*fb4*fmc*hbcm-hbcm2)+4*p3p7*(-4*fb3*
2808 . ffmcfmb**2*hbcm2+12*fb3*ffmcfmb*hbcm2+4*fb3*fmc2+4*fb4*ffmcfmb
2809 . *fmb*hbcm+4*fb4*ffmcfmb*fmc*hbcm+4*fb4*fmc*hbcm-hbcm2)+32*(-2*
2810 . fb3*ffmcfmb*p1p3*p3p7-2*fb3*ffmcfmb*p2p3*p3p7+2*fb3*ffmcfmb*
2811 . p3p5*p3p7-2*fb3*p1p3*p4p7+fb3*p1p3*p5p7-fb3*p1p4*p3p7-3*fb3*
2812 . p2p3*p4p7+fb3*p2p3*p5p7-3*fb3*p3p4*p5p7+3*fb3*p3p5*p4p7))
2813 ans3=(8*(p5p8*p3p7)*(4*fb3*fmc+8*fb4*ffmcfmb*hbcm-hbcm)+8*(p4p8
2814 . *p3p7)*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm)+16*(p7p8
2815 . *p3p5)*(-2*fb3*fmc-2*fb4*ffmcfmb*hbcm+hbcm)+8*(p7p8*p3p4)*(-4*
2816 . fb3*fmc-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+hbcm)+8*(p3p7*p2p8)*(-4*
2817 . fb3*fmc-8*fb4*ffmcfmb*hbcm+hbcm)+16*(p7p8*p2p3)*(2*fb3*fmc+2*
2818 . fb4*ffmcfmb*hbcm-hbcm)+32*(p3p7*p1p8)*(-fb3*fmc-fb4*ffmcfmb*
2819 . hbcm)+8*(p7p8*p1p3)*(4*fb3*fmc-hbcm)+4*p7p8*(-8*fb3*fmc*hbcm2-
2820 . 4*fb4*ffmcfmb**2*hbcm3+4*fb4*fmc2*hbcm+ffmcfmb*hbcm3+fmb*hbcm2
2821 . +2*hbcm3)+32*(-fb4*hbcm*p1p4*p7p8-fb4*hbcm*p1p8*p4p7+fb4*hbcm*
2822 . p1p8*p5p7-2*fb4*hbcm*p2p8*p4p7+fb4*hbcm*p2p8*p5p7+2*fb4*hbcm*
2823 . p4p7*p5p8-2*fb4*hbcm*p4p8*p5p7))
2824 ans2=w1*(8*(p5p7*p4p8)*(-fmb*hbcm2+fmc*hbcm2+2*hbcm3)+8*(p4p8*
2825 . p4p7)*(-fmb*hbcm2+fmc*hbcm2-2*hbcm3)+8*(p4p8*p3p7)*(-ffmcfmb*
2826 . fmb*hbcm2-ffmcfmb*hbcm3+fmc*hbcm2-fmc2*hbcm)+16*(ffmcfmb*hbcm*
2827 . p1p3*p3p7*p4p8+ffmcfmb*hbcm*p2p3*p3p7*p4p8-ffmcfmb*hbcm*p3p5*
2828 . p3p7*p4p8+hbcm*p1p3*p4p7*p4p8-hbcm*p1p3*p4p8*p5p7+hbcm*p1p4*
2829 . p3p7*p4p8+2*hbcm*p2p3*p4p7*p4p8-hbcm*p2p3*p4p8*p5p7+2*hbcm*
2830 . p3p4*p4p8*p5p7-2*hbcm*p3p5*p4p7*p4p8))+w13*(8*(p5p7*p1p8)*(-
2831 . fmb*hbcm2+fmc*hbcm2+2*hbcm3)+8*(p4p7*p1p8)*(-fmb*hbcm2+fmc*
2832 . hbcm2-2*hbcm3)+8*(p3p7*p1p8)*(-ffmcfmb*fmb*hbcm2-ffmcfmb*hbcm3
2833 . +fmc*hbcm2-fmc2*hbcm)+16*(ffmcfmb*hbcm*p1p3*p1p8*p3p7+ffmcfmb*
2834 . hbcm*p1p8*p2p3*p3p7-ffmcfmb*hbcm*p1p8*p3p5*p3p7+hbcm*p1p3*p1p8
2835 . *p4p7-hbcm*p1p3*p1p8*p5p7+hbcm*p1p4*p1p8*p3p7+2*hbcm*p1p8*p2p3
2836 . *p4p7-hbcm*p1p8*p2p3*p5p7+2*hbcm*p1p8*p3p4*p5p7-2*hbcm*p1p8*
2837 . p3p5*p4p7))+ans3
2838 ans1=w18*(8*(p5p8*p5p7)*(-fmb*hbcm2+fmc*hbcm2+2*hbcm3)+8*(p5p7*
2839 . p4p8)*(-fmb*hbcm2+fmc*hbcm2+2*hbcm3)+8*(p5p8*p4p7)*(-fmb*hbcm2
2840 . +fmc*hbcm2-2*hbcm3)+8*(p4p8*p4p7)*(-fmb*hbcm2+fmc*hbcm2-2*
2841 . hbcm3)+8*(p5p8*p3p7)*(-ffmcfmb*fmb*hbcm2-ffmcfmb*hbcm3+fmc*
2842 . hbcm2-fmc2*hbcm)+8*(p4p8*p3p7)*(-ffmcfmb*fmb*hbcm2-ffmcfmb*
2843 . hbcm3+fmc*hbcm2-fmc2*hbcm)+16*(ffmcfmb*hbcm*p1p3*p3p7*p4p8+
2844 . ffmcfmb*hbcm*p1p3*p3p7*p5p8+ffmcfmb*hbcm*p2p3*p3p7*p4p8+
2845 . ffmcfmb*hbcm*p2p3*p3p7*p5p8-ffmcfmb*hbcm*p3p5*p3p7*p4p8-
2846 . ffmcfmb*hbcm*p3p5*p3p7*p5p8+hbcm*p1p3*p4p7*p4p8+hbcm*p1p3*p4p7
2847 . *p5p8-hbcm*p1p3*p4p8*p5p7-hbcm*p1p3*p5p7*p5p8+hbcm*p1p4*p3p7*
2848 . p4p8+hbcm*p1p4*p3p7*p5p8+2*hbcm*p2p3*p4p7*p4p8+2*hbcm*p2p3*
2849 . p4p7*p5p8-hbcm*p2p3*p4p8*p5p7-hbcm*p2p3*p5p7*p5p8+2*hbcm*p3p4*
2850 . p4p8*p5p7+2*hbcm*p3p4*p5p7*p5p8-2*hbcm*p3p5*p4p7*p4p8-2*hbcm*
2851 . p3p5*p4p7*p5p8))+ans2
2852 ans=ccc*ans1
2853 b(5)=ans
2854 ans=ccc*(w18*(8*(p5p8*p5p6)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p5p6*
2855 . p4p8)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p5p8*p4p6)*(ffmcfmb*hbcm2-
2856 . fmc*hbcm)+8*(p4p8*p4p6)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p5p8*p3p6)
2857 . *(ffmcfmb*hbcm2-fmc*hbcm)+8*(p4p8*p3p6)*(ffmcfmb*hbcm2-fmc*
2858 . hbcm))+w1*(8*(p5p6*p4p8)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p4p8*p4p6
2859 . )*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p4p8*p3p6)*(ffmcfmb*hbcm2-fmc*
2860 . hbcm))+w13*(8*(p5p6*p1p8)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p4p6*
2861 . p1p8)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p3p6*p1p8)*(ffmcfmb*hbcm2-
2862 . fmc*hbcm))+(32*(p4p8*p3p6)*(-fb3*ffmcfmb+fb3)+16*p6p8*(fb3*
2863 . ffmcfmb**2*hbcm2-2*fb3*ffmcfmb*hbcm2+2*fb3*fmb2-3*fb3*fmc2)+32
2864 . *(fb3*ffmcfmb*p1p3*p6p8+fb3*ffmcfmb*p1p8*p3p6-fb3*ffmcfmb*p3p6
2865 . *p5p8+2*fb3*p1p4*p6p8-fb3*p1p5*p6p8+fb3*p1p8*p4p6-2*fb3*p3p4*
2866 . p6p8+fb3*p3p5*p6p8-fb3*p4p6*p5p8+fb3*p4p8*p5p6)))
2867 b(6)=ans
2868 b(7)=ccc*(32*(p3p6*p3p5)*(fb3*ffmcfmb-fb3)+32*(p3p6*p3p4)*(fb3*
2869 . ffmcfmb+fb3)+4*p5p6*(-4*fb3*ffmcfmb*hbcm2+4*fb4*fmc*hbcm-hbcm2
2870 . )+4*p4p6*(-4*fb3*ffmcfmb*hbcm2+8*fb3*hbcm2+4*fb4*fmc*hbcm-
2871 . hbcm2)+4*p3p6*(-4*fb3*ffmcfmb**2*hbcm2+12*fb3*ffmcfmb*hbcm2-8*
2872 . fb3*fmb2+12*fb3*fmc2+4*fb4*fmc*hbcm-hbcm2)+32*(-2*fb3*ffmcfmb*
2873 . p1p3*p3p6-fb3*p1p3*p4p6-2*fb3*p1p4*p3p6+fb3*p1p5*p3p6-fb3*p3p4
2874 . *p5p6+fb3*p3p5*p4p6))
2875 ans3=(8*(p5p8*p3p6)*(-4*fb3*fmc+hbcm)+8*(p4p8*p3p6)*(-4*fb3*fmc
2876 . -4*fb4*hbcm+hbcm)+32*(p6p8*p3p5)*(fb3*fmc+fb4*ffmcfmb*hbcm-fb4
2877 . *hbcm)+32*(p6p8*p3p4)*(fb3*fmc+fb4*ffmcfmb*hbcm+fb4*hbcm)+8*(
2878 . p3p6*p1p8)*(4*fb3*fmc-hbcm)+32*(p6p8*p1p3)*(-fb3*fmc-fb4*
2879 . ffmcfmb*hbcm)+32*p6p8*(fb3*fmc*hbcm2+fb4*ffmcfmb*hbcm3-fb4*
2880 . fmb2*hbcm+fb4*fmc2*hbcm)+32*(-fb4*hbcm*p1p4*p6p8+fb4*hbcm*p1p5
2881 . *p6p8-fb4*hbcm*p1p8*p4p6+fb4*hbcm*p4p6*p5p8-fb4*hbcm*p4p8*p5p6
2882 . ))
2883 ans2=w1*(8*(p5p6*p4p8)*(ffmcfmb*hbcm3+fmc*hbcm2)+8*(p4p8*p4p6)*
2884 . (ffmcfmb*hbcm3+fmc*hbcm2-2*hbcm3)+8*(p4p8*p3p6)*(-ffmcfmb*
2885 . hbcm3+2*fmb2*hbcm+fmc*hbcm2-2*fmc2*hbcm)+16*(p4p8*p3p6*p3p5)*(
2886 . -ffmcfmb*hbcm+hbcm)+16*(ffmcfmb*hbcm*p1p3*p3p6*p4p8-ffmcfmb*
2887 . hbcm*p3p4*p3p6*p4p8+hbcm*p1p3*p4p6*p4p8+hbcm*p1p4*p3p6*p4p8-
2888 . hbcm*p1p5*p3p6*p4p8+hbcm*p3p4*p4p8*p5p6-hbcm*p3p5*p4p6*p4p8))+
2889 . w13*(8*(p5p6*p1p8)*(ffmcfmb*hbcm3+fmc*hbcm2)+8*(p4p6*p1p8)*(
2890 . ffmcfmb*hbcm3+fmc*hbcm2-2*hbcm3)+8*(p3p6*p1p8)*(-ffmcfmb*hbcm3
2891 . +2*fmb2*hbcm+fmc*hbcm2-2*fmc2*hbcm)+16*(p3p6*p3p5*p1p8)*(-
2892 . ffmcfmb*hbcm+hbcm)+16*(ffmcfmb*hbcm*p1p3*p1p8*p3p6-ffmcfmb*
2893 . hbcm*p1p8*p3p4*p3p6+hbcm*p1p3*p1p8*p4p6+hbcm*p1p4*p1p8*p3p6-
2894 . hbcm*p1p5*p1p8*p3p6+hbcm*p1p8*p3p4*p5p6-hbcm*p1p8*p3p5*p4p6))+
2895 . ans3
2896 ans1=w18*(8*(p5p8*p5p6)*(ffmcfmb*hbcm3+fmc*hbcm2)+8*(p5p6*p4p8)
2897 . *(ffmcfmb*hbcm3+fmc*hbcm2)+8*(p5p8*p4p6)*(ffmcfmb*hbcm3+fmc*
2898 . hbcm2-2*hbcm3)+8*(p4p8*p4p6)*(ffmcfmb*hbcm3+fmc*hbcm2-2*hbcm3)
2899 . +8*(p5p8*p3p6)*(-ffmcfmb*hbcm3+2*fmb2*hbcm+fmc*hbcm2-2*fmc2*
2900 . hbcm)+8*(p4p8*p3p6)*(-ffmcfmb*hbcm3+2*fmb2*hbcm+fmc*hbcm2-2*
2901 . fmc2*hbcm)+16*(p5p8*p3p6*p3p5)*(-ffmcfmb*hbcm+hbcm)+16*(p4p8*
2902 . p3p6*p3p5)*(-ffmcfmb*hbcm+hbcm)+16*(ffmcfmb*hbcm*p1p3*p3p6*
2903 . p4p8+ffmcfmb*hbcm*p1p3*p3p6*p5p8-ffmcfmb*hbcm*p3p4*p3p6*p4p8-
2904 . ffmcfmb*hbcm*p3p4*p3p6*p5p8+hbcm*p1p3*p4p6*p4p8+hbcm*p1p3*p4p6
2905 . *p5p8+hbcm*p1p4*p3p6*p4p8+hbcm*p1p4*p3p6*p5p8-hbcm*p1p5*p3p6*
2906 . p4p8-hbcm*p1p5*p3p6*p5p8+hbcm*p3p4*p4p8*p5p6+hbcm*p3p4*p5p6*
2907 . p5p8-hbcm*p3p5*p4p6*p4p8-hbcm*p3p5*p4p6*p5p8))+ans2
2908 ans=ccc*ans1
2909 b(8)=ans
2910 b(9)=ccc*(32*(p4p6*p3p7)*(fb4*ffmcfmb*hbcm-fb4*hbcm)+16*p6p7*(
2911 . fb4*ffmcfmb**2*hbcm3-2*fb4*ffmcfmb*hbcm3-fb4*fmc2*hbcm)+8*(
2912 . p5p7*p3p6)*(4*fb3*fmc-hbcm)+8*(p4p7*p3p6)*(4*fb3*fmc+4*fb4*
2913 . hbcm-hbcm)+8*(p6p7*p2p3)*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+8
2914 . *(p3p7*p3p6)*(4*fb3*ffmcfmb*fmb-4*fb3*ffmcfmb*fmc-4*fb3*fmb+8*
2915 . fb3*fmc-4*fb4*ffmcfmb**2*hbcm+8*fb4*ffmcfmb*hbcm-hbcm)+32*(fb4
2916 . *ffmcfmb*hbcm*p1p3*p6p7+fb4*hbcm*p1p4*p6p7-fb4*hbcm*p3p4*p6p7+
2917 . fb4*hbcm*p3p7*p5p6-fb4*hbcm*p4p6*p5p7+fb4*hbcm*p4p7*p5p6))
2918 ans4=8*(8*fb3*ffmcfmb*p1p3*p3p6*p7p8-8*fb3*ffmcfmb*p1p3*p3p7*
2919 . p6p8+16*fb3*ffmcfmb*p2p8*p3p6*p3p7-8*fb3*ffmcfmb*p3p4*p3p6*
2920 . p7p8+8*fb3*ffmcfmb*p3p4*p3p7*p6p8+8*fb3*p1p3*p4p6*p7p8-8*fb3*
2921 . p1p3*p4p7*p6p8+8*fb3*p1p4*p3p6*p7p8-8*fb3*p1p4*p3p7*p6p8-8*fb3
2922 . *p1p5*p3p6*p7p8+8*fb3*p1p5*p3p7*p6p8+8*fb3*p1p8*p3p6*p4p7-8*
2923 . fb3*p1p8*p3p7*p4p6-8*fb3*p2p8*p3p4*p6p7+16*fb3*p2p8*p3p6*p4p7-
2924 . 8*fb3*p2p8*p3p6*p5p7+8*fb3*p2p8*p3p7*p4p6+8*fb3*p3p4*p5p6*p7p8
2925 . -8*fb3*p3p4*p5p7*p6p8-8*fb3*p3p5*p4p6*p7p8+8*fb3*p3p5*p4p7*
2926 . p6p8-8*fb3*p3p6*p4p7*p5p8+8*fb3*p3p6*p4p8*p5p7+8*fb3*p3p7*p4p6
2927 . *p5p8-8*fb3*p3p7*p4p8*p5p6-hbcm2*p1p8*p6p7)
2928 ans3=64*(p5p8*p3p7*p3p6)*(fb3*ffmcfmb-fb3)+64*(p7p8*p3p6*p3p5)*
2929 . (-fb3*ffmcfmb+fb3)+32*(p6p8*p5p7)*(-fb3*ffmcfmb*hbcm2+fb4*fmc*
2930 . hbcm)+8*(p7p8*p5p6)*(4*fb3*ffmcfmb*hbcm2-4*fb4*fmc*hbcm+hbcm2)
2931 . +32*(p6p8*p4p7)*(-fb3*ffmcfmb*hbcm2+2*fb3*hbcm2+fb4*fmc*hbcm)+
2932 . 8*(p7p8*p4p6)*(4*fb3*ffmcfmb*hbcm2-8*fb3*hbcm2-4*fb4*fmc*hbcm+
2933 . hbcm2)+8*(p7p8*p3p6)*(-4*fb3*ffmcfmb*hbcm2+8*fb3*fmb2-8*fb3*
2934 . fmc2-4*fb4*fmc*hbcm+ffmcfmb*hbcm2-fmb*hbcm)+8*(p6p7*p2p8)*(-4*
2935 . fb3*ffmcfmb*hbcm2+4*fb4*fmc*hbcm-hbcm2)+8*(p6p8*p3p7)*(-4*fb3*
2936 . ffmcfmb**2*hbcm2+8*fb3*ffmcfmb*hbcm2-8*fb3*fmb2+8*fb3*fmc2-4*
2937 . fb4*ffmcfmb*fmb*hbcm+4*fb4*fmb*hbcm+4*fb4*fmc*hbcm+ffmcfmb*
2938 . hbcm2-hbcm2)+ans4
2939 ans2=w1*(16*(p4p8*p4p7*p3p6)*(-fmc*hbcm+hbcm2)+16*(p5p6*p4p8*
2940 . p3p7)*(-ffmcfmb*hbcm2+fmc*hbcm+hbcm2)+16*(p4p8*p4p6*p3p7)*(-
2941 . ffmcfmb*hbcm2+fmc*hbcm)+8*(p6p7*p4p8)*(ffmcfmb**2*hbcm4-2*
2942 . ffmcfmb*hbcm4-fmc2*hbcm2)+16*(p4p8*p3p7*p3p6)*(-ffmcfmb**2*
2943 . hbcm2+ffmcfmb*fmb*hbcm+ffmcfmb*hbcm2-fmb*hbcm)+16*(ffmcfmb*
2944 . hbcm2*p1p3*p4p8*p6p7-fmc*hbcm*p3p6*p4p8*p5p7+hbcm2*p1p4*p4p8*
2945 . p6p7-hbcm2*p3p4*p4p8*p6p7-hbcm2*p4p6*p4p8*p5p7+hbcm2*p4p7*p4p8
2946 . *p5p6))+w13*(16*(p4p7*p3p6*p1p8)*(-fmc*hbcm+hbcm2)+16*(p5p6*
2947 . p3p7*p1p8)*(-ffmcfmb*hbcm2+fmc*hbcm+hbcm2)+16*(p4p6*p3p7*p1p8)
2948 . *(-ffmcfmb*hbcm2+fmc*hbcm)+8*(p6p7*p1p8)*(ffmcfmb**2*hbcm4-2*
2949 . ffmcfmb*hbcm4-fmc2*hbcm2)+16*(p3p7*p3p6*p1p8)*(-ffmcfmb**2*
2950 . hbcm2+ffmcfmb*fmb*hbcm+ffmcfmb*hbcm2-fmb*hbcm)+16*(ffmcfmb*
2951 . hbcm2*p1p3*p1p8*p6p7-fmc*hbcm*p1p8*p3p6*p5p7+hbcm2*p1p4*p1p8*
2952 . p6p7-hbcm2*p1p8*p3p4*p6p7-hbcm2*p1p8*p4p6*p5p7+hbcm2*p1p8*p4p7
2953 . *p5p6))+ans3
2954 ans1=w18*(16*(p5p8*p4p7*p3p6)*(-fmc*hbcm+hbcm2)+16*(p4p8*p4p7*
2955 . p3p6)*(-fmc*hbcm+hbcm2)+16*(p5p8*p5p6*p3p7)*(-ffmcfmb*hbcm2+
2956 . fmc*hbcm+hbcm2)+16*(p5p6*p4p8*p3p7)*(-ffmcfmb*hbcm2+fmc*hbcm+
2957 . hbcm2)+16*(p5p8*p4p6*p3p7)*(-ffmcfmb*hbcm2+fmc*hbcm)+16*(p4p8*
2958 . p4p6*p3p7)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(p6p7*p5p8)*(ffmcfmb**2
2959 . *hbcm4-2*ffmcfmb*hbcm4-fmc2*hbcm2)+8*(p6p7*p4p8)*(ffmcfmb**2*
2960 . hbcm4-2*ffmcfmb*hbcm4-fmc2*hbcm2)+16*(p5p8*p3p7*p3p6)*(-
2961 . ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm+ffmcfmb*hbcm2-fmb*hbcm)+16*(
2962 . p4p8*p3p7*p3p6)*(-ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm+ffmcfmb*
2963 . hbcm2-fmb*hbcm)+16*(ffmcfmb*hbcm2*p1p3*p4p8*p6p7+ffmcfmb*hbcm2
2964 . *p1p3*p5p8*p6p7-fmc*hbcm*p3p6*p4p8*p5p7-fmc*hbcm*p3p6*p5p7*
2965 . p5p8+hbcm2*p1p4*p4p8*p6p7+hbcm2*p1p4*p5p8*p6p7-hbcm2*p3p4*p4p8
2966 . *p6p7-hbcm2*p3p4*p5p8*p6p7-hbcm2*p4p6*p4p8*p5p7-hbcm2*p4p6*
2967 . p5p7*p5p8+hbcm2*p4p7*p4p8*p5p6+hbcm2*p4p7*p5p6*p5p8))+ans2
2968 ans=ccc*ans1
2969 b(10)=ans
2970 ans=ccc*(w18*(4*p5p8*(-ffmcfmb**2*hbcm3+2*ffmcfmb*hbcm3-2*fmb2*
2971 . hbcm+3*fmc2*hbcm)+4*p4p8*(-ffmcfmb**2*hbcm3+2*ffmcfmb*hbcm3-2*
2972 . fmb2*hbcm+3*fmc2*hbcm)+8*(-ffmcfmb*hbcm*p1p3*p4p8-ffmcfmb*hbcm
2973 . *p1p3*p5p8-2*hbcm*p1p4*p4p8-2*hbcm*p1p4*p5p8+hbcm*p1p5*p4p8+
2974 . hbcm*p1p5*p5p8+2*hbcm*p3p4*p4p8+2*hbcm*p3p4*p5p8-hbcm*p3p5*
2975 . p4p8-hbcm*p3p5*p5p8))+w1*(4*p4p8*(-ffmcfmb**2*hbcm3+2*ffmcfmb*
2976 . hbcm3-2*fmb2*hbcm+3*fmc2*hbcm)+8*(-ffmcfmb*hbcm*p1p3*p4p8-2*
2977 . hbcm*p1p4*p4p8+hbcm*p1p5*p4p8+2*hbcm*p3p4*p4p8-hbcm*p3p5*p4p8)
2978 . )+w13*(4*p1p8*(-ffmcfmb**2*hbcm3+2*ffmcfmb*hbcm3-2*fmb2*hbcm+3
2979 . *fmc2*hbcm)+8*(-ffmcfmb*hbcm*p1p3*p1p8-2*hbcm*p1p4*p1p8+hbcm*
2980 . p1p5*p1p8+2*hbcm*p1p8*p3p4-hbcm*p1p8*p3p5))+(8*p5p8*(2*fb3*fmb
2981 . -6*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+8*p4p8*(2*fb3*fmb-6*fb3*
2982 . fmc-4*fb4*ffmcfmb*hbcm+hbcm)+4*p2p8*(-4*fb3*fmb+16*fb3*fmc+12*
2983 . fb4*ffmcfmb*hbcm-3*hbcm)+4*p1p8*(-4*fb3*fmb+12*fb3*fmc+8*fb4*
2984 . ffmcfmb*hbcm-hbcm)))
2985 b(11)=ans
2986 b(12)=16*ccc*(-fb3*ffmcfmb**2*hbcm2+2*fb3*ffmcfmb*hbcm2-2*fb3*
2987 . ffmcfmb*p1p3-fb3*fmb2+2*fb3*fmc2-3*fb3*p1p4+fb3*p1p5+3*fb3*
2988 . p3p4-fb3*p3p5)
2989 ans2=w13*(8*p1p8*(-ffmcfmb*hbcm4+fmb*hbcm3-fmb2*hbcm2+2*fmc*
2990 . hbcm3+fmc2*hbcm2)+8*(p3p5*p1p8)*(-ffmcfmb*hbcm2+fmb*hbcm+2*fmc
2991 . *hbcm-hbcm2)+8*(p3p4*p1p8)*(-ffmcfmb*hbcm2+fmb*hbcm+2*fmc*hbcm
2992 . +hbcm2)+8*(p2p3*p1p8)*(2*ffmcfmb*hbcm2-fmb*hbcm-3*fmc*hbcm)+8*
2993 . (p1p8*p1p3)*(ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm)+8*(-hbcm2*p1p4
2994 . *p1p8+hbcm2*p1p5*p1p8))+(4*p5p8*(4*fb3*ffmcfmb*hbcm2+8*fb3*
2995 . hbcm2-4*fb4*fmb*hbcm-8*fb4*fmc*hbcm+hbcm2)+4*p4p8*(4*fb3*
2996 . ffmcfmb*hbcm2-16*fb3*hbcm2-4*fb4*fmb*hbcm-8*fb4*fmc*hbcm+hbcm2
2997 . )+8*p2p8*(-4*fb3*ffmcfmb*hbcm2+2*fb4*fmb*hbcm+6*fb4*fmc*hbcm-
2998 . hbcm2)+4*p1p8*(-4*fb3*ffmcfmb*hbcm2+4*fb4*fmb*hbcm+8*fb4*fmc*
2999 . hbcm-hbcm2)+32*(2*fb3*p1p3*p4p8-fb3*p1p3*p5p8-2*fb3*p1p8*p3p4+
3000 . fb3*p1p8*p3p5+3*fb3*p2p3*p4p8-fb3*p2p3*p5p8-3*fb3*p2p8*p3p4+
3001 . fb3*p2p8*p3p5+3*fb3*p3p4*p5p8-3*fb3*p3p5*p4p8))
3002 ans1=w18*(8*p5p8*(-ffmcfmb*hbcm4+fmb*hbcm3-fmb2*hbcm2+2*fmc*
3003 . hbcm3+fmc2*hbcm2)+8*p4p8*(-ffmcfmb*hbcm4+fmb*hbcm3-fmb2*hbcm2+
3004 . 2*fmc*hbcm3+fmc2*hbcm2)+8*(p5p8*p3p5)*(-ffmcfmb*hbcm2+fmb*hbcm
3005 . +2*fmc*hbcm-hbcm2)+8*(p4p8*p3p5)*(-ffmcfmb*hbcm2+fmb*hbcm+2*
3006 . fmc*hbcm-hbcm2)+8*(p5p8*p3p4)*(-ffmcfmb*hbcm2+fmb*hbcm+2*fmc*
3007 . hbcm+hbcm2)+8*(p4p8*p3p4)*(-ffmcfmb*hbcm2+fmb*hbcm+2*fmc*hbcm+
3008 . hbcm2)+8*(p5p8*p2p3)*(2*ffmcfmb*hbcm2-fmb*hbcm-3*fmc*hbcm)+8*(
3009 . p4p8*p2p3)*(2*ffmcfmb*hbcm2-fmb*hbcm-3*fmc*hbcm)+8*(p5p8*p1p3)
3010 . *(ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm)+8*(p4p8*p1p3)*(ffmcfmb*
3011 . hbcm2-fmb*hbcm-2*fmc*hbcm)+8*(-hbcm2*p1p4*p4p8-hbcm2*p1p4*p5p8
3012 . +hbcm2*p1p5*p4p8+hbcm2*p1p5*p5p8))+w1*(8*p4p8*(-ffmcfmb*hbcm4+
3013 . fmb*hbcm3-fmb2*hbcm2+2*fmc*hbcm3+fmc2*hbcm2)+8*(p4p8*p3p5)*(-
3014 . ffmcfmb*hbcm2+fmb*hbcm+2*fmc*hbcm-hbcm2)+8*(p4p8*p3p4)*(-
3015 . ffmcfmb*hbcm2+fmb*hbcm+2*fmc*hbcm+hbcm2)+8*(p4p8*p2p3)*(2*
3016 . ffmcfmb*hbcm2-fmb*hbcm-3*fmc*hbcm)+8*(p4p8*p1p3)*(ffmcfmb*
3017 . hbcm2-fmb*hbcm-2*fmc*hbcm)+8*(-hbcm2*p1p4*p4p8+hbcm2*p1p5*p4p8
3018 . ))+ans2
3019 ans=ccc*ans1
3020 b(13)=ans
3021 b(14)=ccc*(8*p3p5*(-2*fb3*fmb+6*fb3*fmc+4*fb4*ffmcfmb*hbcm+2*
3022 . fb4*hbcm-hbcm)+8*p3p4*(-2*fb3*fmb+6*fb3*fmc+4*fb4*ffmcfmb*hbcm
3023 . -4*fb4*hbcm-hbcm)+4*p2p3*(4*fb3*fmb-16*fb3*fmc-12*fb4*ffmcfmb*
3024 . hbcm+3*hbcm)+8*p1p3*(2*fb3*fmb-6*fb3*fmc-2*fb4*ffmcfmb*hbcm+
3025 . hbcm)+8*(-2*fb3*fmb*hbcm2+6*fb3*fmc*hbcm2+fb4*ffmcfmb**2*hbcm3
3026 . +2*fb4*ffmcfmb*hbcm3+2*fb4*fmb2*hbcm-3*fb4*fmc2*hbcm+4*fb4*
3027 . hbcm*p1p4-2*fb4*hbcm*p1p5-hbcm3))
3028 b(15)=ccc*(w18*(8*(p5p8*p3p6)*(ffmcfmb*hbcm2-fmb*hbcm-2*fmc*
3029 . hbcm)+8*(p4p8*p3p6)*(ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm)+8*(-
3030 . hbcm2*p4p6*p4p8-hbcm2*p4p6*p5p8+hbcm2*p4p8*p5p6+hbcm2*p5p6*
3031 . p5p8))+w1*(8*(p4p8*p3p6)*(ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm)+8
3032 . *(-hbcm2*p4p6*p4p8+hbcm2*p4p8*p5p6))+w13*(8*(p3p6*p1p8)*(
3033 . ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm)+8*(-hbcm2*p1p8*p4p6+hbcm2*
3034 . p1p8*p5p6))+(4*p6p8*(-4*fb3*ffmcfmb*hbcm2+4*fb4*fmb*hbcm+8*fb4
3035 . *fmc*hbcm-hbcm2)+32*(-2*fb3*p3p4*p6p8+fb3*p3p5*p6p8+2*fb3*p3p6
3036 . *p4p8-fb3*p3p6*p5p8)))
3037 b(16)=ccc*(8*w18*(ffmcfmb*hbcm*p3p6*p4p8+ffmcfmb*hbcm*p3p6*p5p8
3038 . +2*hbcm*p4p6*p4p8+2*hbcm*p4p6*p5p8-hbcm*p4p8*p5p6-hbcm*p5p6*
3039 . p5p8)+8*w1*(ffmcfmb*hbcm*p3p6*p4p8+2*hbcm*p4p6*p4p8-hbcm*p4p8*
3040 . p5p6)+8*w13*(ffmcfmb*hbcm*p1p8*p3p6+2*hbcm*p1p8*p4p6-hbcm*p1p8
3041 . *p5p6)+4*p6p8*(4*fb3*fmb-12*fb3*fmc-8*fb4*ffmcfmb*hbcm+hbcm))
3042 b(17)=ccc*(w18*(4*p5p8*(-ffmcfmb*hbcm3+fmb*hbcm2-2*fmc*hbcm2)+4
3043 . *p4p8*(-ffmcfmb*hbcm3+fmb*hbcm2-2*fmc*hbcm2)+8*(-2*hbcm*p3p4*
3044 . p4p8-2*hbcm*p3p4*p5p8+hbcm*p3p5*p4p8+hbcm*p3p5*p5p8))+w1*(4*
3045 . p4p8*(-ffmcfmb*hbcm3+fmb*hbcm2-2*fmc*hbcm2)+8*(-2*hbcm*p3p4*
3046 . p4p8+hbcm*p3p5*p4p8))+w13*(4*p1p8*(-ffmcfmb*hbcm3+fmb*hbcm2-2*
3047 . fmc*hbcm2)+8*(-2*hbcm*p1p8*p3p4+hbcm*p1p8*p3p5))+16*(2*fb4*
3048 . hbcm*p4p8-fb4*hbcm*p5p8))
3049 b(18)=ccc*(w18*(8*(p5p8*p3p7)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(p4p8
3050 . *p3p7)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(-hbcm2*p4p7*p4p8-hbcm2*
3051 . p4p7*p5p8+hbcm2*p4p8*p5p7+hbcm2*p5p7*p5p8))+w1*(8*(p4p8*p3p7)*
3052 . (-ffmcfmb*hbcm2+fmc*hbcm)+8*(-hbcm2*p4p7*p4p8+hbcm2*p4p8*p5p7)
3053 . )+w13*(8*(p3p7*p1p8)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(-hbcm2*p1p8*
3054 . p4p7+hbcm2*p1p8*p5p7))+(4*p7p8*(4*fb3*ffmcfmb*hbcm2-4*fb4*fmc*
3055 . hbcm+hbcm2)+32*(fb3*p3p4*p7p8-fb3*p3p7*p4p8)))
3056 b(19)=ccc*(w18*(4*p5p8*(-2*ffmcfmb*hbcm2+fmb*hbcm+3*fmc*hbcm)+4
3057 . *p4p8*(-2*ffmcfmb*hbcm2+fmb*hbcm+3*fmc*hbcm))+4*w1*p4p8*(-2*
3058 . ffmcfmb*hbcm2+fmb*hbcm+3*fmc*hbcm)+4*w13*p1p8*(-2*ffmcfmb*
3059 . hbcm2+fmb*hbcm+3*fmc*hbcm)+16*(-3*fb3*p4p8+fb3*p5p8))
3060 b(20)=ccc*(8*w18*(-ffmcfmb*hbcm*p3p7*p4p8-ffmcfmb*hbcm*p3p7*
3061 . p5p8-2*hbcm*p4p7*p4p8-2*hbcm*p4p7*p5p8+hbcm*p4p8*p5p7+hbcm*
3062 . p5p7*p5p8)+8*w1*(-ffmcfmb*hbcm*p3p7*p4p8-2*hbcm*p4p7*p4p8+hbcm
3063 . *p4p8*p5p7)+8*w13*(-ffmcfmb*hbcm*p1p8*p3p7-2*hbcm*p1p8*p4p7+
3064 . hbcm*p1p8*p5p7)+8*p7p8*(-2*fb3*fmc-2*fb4*ffmcfmb*hbcm+hbcm))
3065 b(21)=2*ccc*(4*fb3*fmb-16*fb3*fmc-12*fb4*ffmcfmb*hbcm+3*hbcm)
3066 b(22)=4*ccc*(4*fb3*ffmcfmb*hbcm2+12*fb3*p3p4-4*fb3*p3p5-2*fb4*
3067 . fmb*hbcm-6*fb4*fmc*hbcm+hbcm2)
3068 b(23)=ccc*(4*p3p7*(4*fb3*fmc+8*fb4*ffmcfmb*hbcm-hbcm)+16*(2*fb4
3069 . *hbcm*p4p7-fb4*hbcm*p5p7))
3070 b(24)=ccc*(8*p3p6*(-2*fb3*fmb+6*fb3*fmc+2*fb4*ffmcfmb*hbcm-hbcm
3071 . )+16*(-2*fb4*hbcm*p4p6+fb4*hbcm*p5p6))
3072 b(25)=ccc*(8*p5p7*(-2*fb3*fmb+6*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm
3073 . )+8*p4p7*(-2*fb3*fmb+6*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+4*p3p7
3074 . *(-4*fb3*ffmcfmb*fmb+8*fb3*ffmcfmb*fmc+4*fb3*fmc+4*fb4*ffmcfmb
3075 . **2*hbcm+4*fb4*ffmcfmb*hbcm-ffmcfmb*hbcm-hbcm))
3076 b(26)=ccc*(4*p5p6*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+4*p4p6*(4
3077 . *fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+4*p3p6*(4*fb3*fmc+4*fb4*
3078 . ffmcfmb*hbcm-hbcm))
3079 b(27)=ccc*(4*p6p7*(4*fb3*ffmcfmb*hbcm2-4*fb4*fmc*hbcm+hbcm2)+32
3080 . *(-2*fb3*ffmcfmb*p3p6*p3p7+fb3*p3p4*p6p7-2*fb3*p3p6*p4p7+fb3*
3081 . p3p6*p5p7-fb3*p3p7*p4p6))
3082 b(28)=ccc*(w18*(8*(p6p7*p5p8)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p6p7*
3083 . p4p8)*(ffmcfmb*hbcm2-fmc*hbcm))+8*w1*(p6p7*p4p8)*(ffmcfmb*
3084 . hbcm2-fmc*hbcm)+8*w13*(p6p7*p1p8)*(ffmcfmb*hbcm2-fmc*hbcm)+32*
3085 . (-fb3*ffmcfmb*p3p6*p7p8-fb3*ffmcfmb*p3p7*p6p8-fb3*p4p6*p7p8-2*
3086 . fb3*p4p7*p6p8+fb3*p4p8*p6p7+fb3*p5p7*p6p8))
3087 b(29)=16*ccc*(-2*fb3*ffmcfmb*p3p6-3*fb3*p4p6+fb3*p5p6)
3088 b(30)=16*ccc*(2*fb3*ffmcfmb*p3p7+3*fb3*p4p7-fb3*p5p7)
3089 ans=ccc*(w18*(8*(p6p7*p5p8)*(-ffmcfmb*hbcm3-fmc*hbcm2)+8*(p6p7*
3090 . p4p8)*(-ffmcfmb*hbcm3-fmc*hbcm2)+16*(ffmcfmb*hbcm*p3p6*p3p7*
3091 . p4p8+ffmcfmb*hbcm*p3p6*p3p7*p5p8-hbcm*p3p4*p4p8*p6p7-hbcm*p3p4
3092 . *p5p8*p6p7+hbcm*p3p6*p4p7*p4p8+hbcm*p3p6*p4p7*p5p8-hbcm*p3p6*
3093 . p4p8*p5p7-hbcm*p3p6*p5p7*p5p8+hbcm*p3p7*p4p6*p4p8+hbcm*p3p7*
3094 . p4p6*p5p8))+w1*(8*(p6p7*p4p8)*(-ffmcfmb*hbcm3-fmc*hbcm2)+16*(
3095 . ffmcfmb*hbcm*p3p6*p3p7*p4p8-hbcm*p3p4*p4p8*p6p7+hbcm*p3p6*p4p7
3096 . *p4p8-hbcm*p3p6*p4p8*p5p7+hbcm*p3p7*p4p6*p4p8))+w13*(8*(p6p7*
3097 . p1p8)*(-ffmcfmb*hbcm3-fmc*hbcm2)+16*(ffmcfmb*hbcm*p1p8*p3p6*
3098 . p3p7-hbcm*p1p8*p3p4*p6p7+hbcm*p1p8*p3p6*p4p7-hbcm*p1p8*p3p6*
3099 . p5p7+hbcm*p1p8*p3p7*p4p6))+(32*(p6p8*p3p7)*(-fb3*fmc-fb4*
3100 . ffmcfmb*hbcm)+8*(p7p8*p3p6)*(4*fb3*fmc-hbcm)+32*(-fb4*hbcm*
3101 . p4p6*p7p8-fb4*hbcm*p4p7*p6p8+fb4*hbcm*p4p8*p6p7+fb4*hbcm*p5p7*
3102 . p6p8)))
3103 b(31)=ans
3104 b(32)=4*ccc*p6p7*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)
3105 do 200 n=1,32
3106 c(n,1)=c(n,1)-0.1818181818181818d0*b(n)
3107 c(n,2)=c(n,2)-0.05883183899358491d0*b(n)
3108 c(n,3)=c(n,3)-0.2077659977796572d0*b(n)
3109 200 continue
3110 return
3111 end
3112
3113 subroutine amp2_1p1(cc)
3114 implicit double precision(a-h,o-z)
3115 implicit integer (i-n)
3116 dimension b(25)
3117 #include "inclcon.h"
3118 #include "inclppp.h"
3119 #include "inclamp.h"
3120 do 100 n=1,25
3121 b(n)=0.0d0
3122 100 continue
3123 ccc=cc/((4*p1p4*p2p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3+2*
3124 . ffmcfmb*p3p4+fmc2-2*p1p4))
3125 b(3)=w5*ccc*(8*(p5p7*p4p8)*(fmb*hbcm+fmc*hbcm-2*hbcm2)+8*(p5p7*
3126 . p1p8)*(-fmb*hbcm-fmc*hbcm+2*hbcm2))
3127 b(4)=16*ccc*p5p7*(-fb4*fmb*hbcm-fb4*fmc*hbcm)
3128 b(5)=ccc*(w5*(8*(p5p7*p4p8)*(2*fmb*hbcm2-2*fmc*hbcm2+hbcm3)+8*(
3129 . p5p7*p1p8)*(-2*fmb*hbcm2+2*fmc*hbcm2-hbcm3)+16*(hbcm*p1p8*p2p3
3130 . *p5p7-hbcm*p1p8*p3p5*p5p7-hbcm*p2p3*p4p8*p5p7+hbcm*p3p5*p4p8*
3131 . p5p7))+32*(fb4*hbcm*p2p8*p5p7-fb4*hbcm*p5p7*p5p8))
3132 b(11)=8*ccc*w5*(-hbcm*p1p8*p2p5+hbcm*p2p5*p4p8)
3133 b(13)=16*ccc*w5*(-hbcm2*p1p8*p2p5+hbcm2*p2p5*p4p8)
3134 b(14)=-16*ccc*fb4*hbcm*p2p5
3135 b(17)=ccc*(w5*(4*p4p8*(-2*fmb*hbcm2+2*fmc*hbcm2-hbcm3)+4*p1p8*(
3136 . 2*fmb*hbcm2-2*fmc*hbcm2+hbcm3)+8*(-hbcm*p1p8*p2p3+hbcm*p1p8*
3137 . p3p5+hbcm*p2p3*p4p8-hbcm*p3p5*p4p8))+16*(-fb4*hbcm*p2p8+fb4*
3138 . hbcm*p5p8))
3139 b(19)=w5*ccc*(4*p4p8*(-fmb*hbcm-fmc*hbcm+2*hbcm2)+4*p1p8*(fmb*
3140 . hbcm+fmc*hbcm-2*hbcm2))
3141 b(21)=8*ccc*fb4*hbcm
3142 b(22)=8*ccc*(fb4*fmb*hbcm+fb4*fmc*hbcm)
3143 b(25)=-16*ccc*fb4*hbcm*p5p7
3144 do 200 n=1,25
3145 c(n,2)=c(n,2)-0.7396002616336388d0*b(n)
3146 c(n,3)=c(n,3)+0.1662127982237257d0*b(n)
3147 200 continue
3148 return
3149 end
3150
3151 subroutine amp1s2_1p1(cc)
3152 implicit double precision(a-h,o-z)
3153 implicit integer (i-n)
3154 dimension b(14)
3155 #include "inclcon.h"
3156 #include "inclppp.h"
3157 #include "inclamp.h"
3158 do 100 n=1,14
3159 b(n)=0.0d0
3160 100 continue
3161 ccc=cc/((ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*p3p5+fmb2+
3162 . hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2))
3163 b(1)=-16*ccc*fb3*p6p7
3164 b(2)=4*ccc*(hbcm*p4p8*p6p7*w1-hbcm*p5p8*p6p7*w2)
3165 b(3)=-16*ccc*fb3*p7p8
3166 b(4)=16*ccc*fb3*p3p7
3167 b(5)=8*ccc*(2*fb4*hbcm*p7p8-hbcm*p3p7*p4p8*w1+hbcm*p3p7*p5p8*w2
3168 . )
3169 b(6)=-16*ccc*fb3*p6p8
3170 b(7)=16*ccc*fb3*p3p6
3171 b(8)=8*ccc*(2*fb4*hbcm*p6p8-hbcm*p3p6*p4p8*w1+hbcm*p3p6*p5p8*w2
3172 . )
3173 b(9)=-8*ccc*fb4*hbcm*p6p7
3174 b(11)=6*ccc*(hbcm*p4p8*w1-hbcm*p5p8*w2)
3175 b(12)=12*ccc*fb3
3176 b(13)=6*ccc*(hbcm2*p4p8*w1-hbcm2*p5p8*w2)
3177 b(14)=-12*ccc*fb4*hbcm
3178 do 200 n=1,14
3179 c(n,1)=c(n,1)-0.8181818181818182d0*b(n)
3180 c(n,2)=c(n,2)+0.9833321660356334d0*b(n)
3181 200 continue
3182 return
3183 end
3184
3185 subroutine amp28_1p1(cc)
3186 implicit double precision(a-h,o-z)
3187 implicit integer (i-n)
3188 dimension b(32)
3189 #include "inclcon.h"
3190 #include "inclppp.h"
3191 #include "inclamp.h"
3192 do 100 n=1,32
3193 b(n)=0.0d0
3194 100 continue
3195 ccc=cc/((ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*p3p5+fmb2+
3196 . hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p2p3+2*ffmcfmb*p3p4+
3197 . fmc2-2*p2p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p2p3-fmc2))
3198 b(1)=ccc*(16*(p6p7*p2p3)*(-fb3*ffmcfmb+fb3)+4*p6p7*(2*fb3*
3199 . ffmcfmb**2*hbcm2-4*fb3*ffmcfmb*hbcm2+4*fb3*fmb*fmc+2*fb3*fmc2+
3200 . 4*fb4*ffmcfmb*fmb*hbcm+4*fb4*ffmcfmb*fmc*hbcm-4*fb4*fmc*hbcm-
3201 . fmb*hbcm-fmc*hbcm+hbcm2)+16*(fb3*ffmcfmb*p3p6*p3p7+3*fb3*
3202 . ffmcfmb*p3p7*p4p6-fb3*ffmcfmb*p3p7*p5p6+fb3*p1p2*p6p7-fb3*p2p4
3203 . *p6p7+fb3*p2p5*p6p7))
3204 ans3=(4*(p6p7*p5p8)*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+4*(p6p8
3205 . *p5p7)*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+4*(p7p8*p5p6)*(-4*
3206 . fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+4*(p6p7*p4p8)*(-4*fb3*fmc-4*
3207 . fb4*ffmcfmb*hbcm+hbcm)+4*(p6p8*p4p7)*(4*fb3*fmc+4*fb4*ffmcfmb*
3208 . hbcm-hbcm)+4*(p7p8*p4p6)*(12*fb3*fmc+12*fb4*ffmcfmb*hbcm-hbcm)
3209 . +4*(p7p8*p3p6)*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-2*ffmcfmb*hbcm+
3210 . hbcm)+8*(p6p7*p2p8)*(2*fb3*fmc+2*fb4*ffmcfmb*hbcm-hbcm)+4*(
3211 . p6p7*p1p8)*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+4*(p6p8*p3p7)*(
3212 . -8*fb3*ffmcfmb*fmb+8*fb3*ffmcfmb*fmc-4*fb3*fmc+4*fb4*ffmcfmb*
3213 . hbcm-2*ffmcfmb*hbcm+hbcm))
3214 ans2=w11*(8*(p6p7*p4p8*p2p3)*(ffmcfmb*hbcm-hbcm)+8*(p6p7*p2p8*
3215 . p2p3)*(-ffmcfmb*hbcm+hbcm)+4*(p6p7*p4p8)*(-ffmcfmb**2*hbcm3-2*
3216 . ffmcfmb*fmb*hbcm2+2*ffmcfmb*fmc*hbcm2+2*ffmcfmb*hbcm3+2*fmb*
3217 . fmc*hbcm-2*fmc*hbcm2-fmc2*hbcm)+4*(p6p7*p2p8)*(ffmcfmb**2*
3218 . hbcm3+2*ffmcfmb*fmb*hbcm2-2*ffmcfmb*fmc*hbcm2-2*ffmcfmb*hbcm3-
3219 . 2*fmb*fmc*hbcm+2*fmc*hbcm2+fmc2*hbcm)+16*(p4p8*p3p7*p3p6)*(
3220 . ffmcfmb**2*hbcm-ffmcfmb*hbcm)+16*(p3p7*p3p6*p2p8)*(-ffmcfmb**2
3221 . *hbcm+ffmcfmb*hbcm)+8*(2*ffmcfmb*hbcm*p2p8*p3p7*p4p6-2*ffmcfmb
3222 . *hbcm*p3p7*p4p6*p4p8+hbcm*p1p2*p2p8*p6p7-hbcm*p1p2*p4p8*p6p7-
3223 . hbcm*p2p4*p2p8*p6p7+hbcm*p2p4*p4p8*p6p7+hbcm*p2p5*p2p8*p6p7-
3224 . hbcm*p2p5*p4p8*p6p7))+ans3
3225 ans1=w2*(8*(p6p7*p5p8*p2p3)*(-ffmcfmb*hbcm+hbcm)+4*(p6p7*p5p8)*
3226 . (ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*hbcm2-2*ffmcfmb*fmc*hbcm2-2*
3227 . ffmcfmb*hbcm3-2*fmb*fmc*hbcm+2*fmc*hbcm2+fmc2*hbcm)+16*(p5p8*
3228 . p3p7*p3p6)*(-ffmcfmb**2*hbcm+ffmcfmb*hbcm)+8*(2*ffmcfmb*hbcm*
3229 . p3p7*p4p6*p5p8+hbcm*p1p2*p5p8*p6p7-hbcm*p2p4*p5p8*p6p7+hbcm*
3230 . p2p5*p5p8*p6p7))+w7*(8*(p6p7*p2p8*p2p3)*(-ffmcfmb*hbcm+hbcm)+4
3231 . *(p6p7*p2p8)*(ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*hbcm2-2*ffmcfmb*
3232 . fmc*hbcm2-2*ffmcfmb*hbcm3-2*fmb*fmc*hbcm+2*fmc*hbcm2+fmc2*hbcm
3233 . )+16*(p3p7*p3p6*p2p8)*(-ffmcfmb**2*hbcm+ffmcfmb*hbcm)+8*(2*
3234 . ffmcfmb*hbcm*p2p8*p3p7*p4p6+hbcm*p1p2*p2p8*p6p7-hbcm*p2p4*p2p8
3235 . *p6p7+hbcm*p2p5*p2p8*p6p7))+ans2
3236 ans=ccc*ans1
3237 b(2)=ans
3238 ans=ccc*(w2*(12*(p5p8*p5p7)*(ffmcfmb*hbcm2-fmc*hbcm)+4*(p5p8*
3239 . p4p7)*(-ffmcfmb*hbcm2+fmc*hbcm)+4*(p5p8*p3p7)*(-ffmcfmb**2*
3240 . hbcm2+3*ffmcfmb*fmb*hbcm+4*ffmcfmb*fmc*hbcm-3*fmc*hbcm))+w7*(
3241 . 12*(p5p7*p2p8)*(ffmcfmb*hbcm2-fmc*hbcm)+4*(p4p7*p2p8)*(-
3242 . ffmcfmb*hbcm2+fmc*hbcm)+4*(p3p7*p2p8)*(-ffmcfmb**2*hbcm2+3*
3243 . ffmcfmb*fmb*hbcm+4*ffmcfmb*fmc*hbcm-3*fmc*hbcm))+w11*(12*(p5p7
3244 . *p4p8)*(-ffmcfmb*hbcm2+fmc*hbcm)+4*(p4p8*p4p7)*(ffmcfmb*hbcm2-
3245 . fmc*hbcm)+12*(p5p7*p2p8)*(ffmcfmb*hbcm2-fmc*hbcm)+4*(p4p7*p2p8
3246 . )*(-ffmcfmb*hbcm2+fmc*hbcm)+4*(p4p8*p3p7)*(ffmcfmb**2*hbcm2-3*
3247 . ffmcfmb*fmb*hbcm-4*ffmcfmb*fmc*hbcm+3*fmc*hbcm)+4*(p3p7*p2p8)*
3248 . (-ffmcfmb**2*hbcm2+3*ffmcfmb*fmb*hbcm+4*ffmcfmb*fmc*hbcm-3*fmc
3249 . *hbcm))+(16*(p7p8*p2p3)*(-fb3*ffmcfmb+3*fb3)+2*p7p8*(-12*fb3*
3250 . ffmcfmb*hbcm2+12*fb3*fmb*fmc+12*fb3*fmc2+12*fb4*ffmcfmb*fmb*
3251 . hbcm+12*fb4*ffmcfmb*fmc*hbcm-12*fb4*fmc*hbcm-ffmcfmb*hbcm2+fmc
3252 . *hbcm)+16*(fb3*ffmcfmb*p1p8*p3p7-fb3*ffmcfmb*p2p8*p3p7+fb3*
3253 . ffmcfmb*p3p7*p4p8-3*fb3*ffmcfmb*p3p7*p5p8-fb3*p1p2*p7p8-fb3*
3254 . p2p4*p7p8+3*fb3*p2p5*p7p8)))
3255 b(3)=ans
3256 b(4)=ccc*(6*p5p7*(-4*fb3*ffmcfmb*hbcm2-4*fb4*fmc*hbcm+hbcm2)+2*
3257 . p4p7*(4*fb3*ffmcfmb*hbcm2+4*fb4*fmc*hbcm-hbcm2)+2*p3p7*(-4*fb3
3258 . *ffmcfmb**2*hbcm2+12*fb3*ffmcfmb*hbcm2-12*fb3*fmb*fmc-12*fb3*
3259 . fmc2+4*fb4*ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2+3*fmb*hbcm+3*fmc*
3260 . hbcm)+16*(-fb3*ffmcfmb*p1p3*p3p7-2*fb3*ffmcfmb*p2p3*p3p7-fb3*
3261 . ffmcfmb*p3p4*p3p7+3*fb3*ffmcfmb*p3p5*p3p7+fb3*p1p2*p3p7-fb3*
3262 . p2p3*p4p7+3*fb3*p2p3*p5p7+fb3*p2p4*p3p7-3*fb3*p2p5*p3p7))
3263 ans3=(12*(p5p8*p3p7)*(-4*fb3*fmc+hbcm)+4*(p4p8*p3p7)*(4*fb3*fmc
3264 . -hbcm)+48*(p7p8*p3p5)*(fb3*fmc+fb4*ffmcfmb*hbcm)+16*(p7p8*p3p4
3265 . )*(-fb3*fmc-fb4*ffmcfmb*hbcm)+4*(p3p7*p1p8)*(4*fb3*fmc-hbcm)+
3266 . 16*(p7p8*p1p3)*(-fb3*fmc-fb4*ffmcfmb*hbcm)+4*(p3p7*p2p8)*(12*
3267 . fb3*fmb-4*fb3*fmc-4*fb4*ffmcfmb*hbcm-hbcm)+4*(p7p8*p2p3)*(-12*
3268 . fb3*fmb+4*fb3*fmc-4*fb4*ffmcfmb*hbcm-hbcm)+2*p7p8*(12*fb3*
3269 . ffmcfmb*fmb*hbcm2-20*fb3*ffmcfmb*fmc*hbcm2+12*fb3*fmc*hbcm2-8*
3270 . fb4*ffmcfmb**2*hbcm3+12*fb4*ffmcfmb*hbcm3+12*fb4*fmb*fmc*hbcm-
3271 . 12*fb4*fmc2*hbcm+ffmcfmb*hbcm3-fmc*hbcm2)+16*(fb4*hbcm*p1p2*
3272 . p7p8+fb4*hbcm*p2p4*p7p8-3*fb4*hbcm*p2p5*p7p8-fb4*hbcm*p2p8*
3273 . p4p7+3*fb4*hbcm*p2p8*p5p7))
3274 ans2=w11*(12*(p5p7*p4p8)*(ffmcfmb*hbcm3-fmc*hbcm2)+4*(p4p8*p4p7
3275 . )*(-ffmcfmb*hbcm3+fmc*hbcm2)+12*(p5p7*p2p8)*(-ffmcfmb*hbcm3+
3276 . fmc*hbcm2)+4*(p4p7*p2p8)*(ffmcfmb*hbcm3-fmc*hbcm2)+4*(p4p8*
3277 . p3p7)*(ffmcfmb**2*hbcm3+ffmcfmb*fmc*hbcm2-3*ffmcfmb*hbcm3-3*
3278 . fmb*fmc*hbcm+3*fmc2*hbcm)+4*(p3p7*p2p8)*(-ffmcfmb**2*hbcm3-
3279 . ffmcfmb*fmc*hbcm2+3*ffmcfmb*hbcm3+3*fmb*fmc*hbcm-3*fmc2*hbcm)+
3280 . 8*(-ffmcfmb*hbcm*p1p3*p2p8*p3p7+ffmcfmb*hbcm*p1p3*p3p7*p4p8-2*
3281 . ffmcfmb*hbcm*p2p3*p2p8*p3p7+2*ffmcfmb*hbcm*p2p3*p3p7*p4p8-
3282 . ffmcfmb*hbcm*p2p8*p3p4*p3p7+3*ffmcfmb*hbcm*p2p8*p3p5*p3p7+
3283 . ffmcfmb*hbcm*p3p4*p3p7*p4p8-3*ffmcfmb*hbcm*p3p5*p3p7*p4p8+hbcm
3284 . *p1p2*p2p8*p3p7-hbcm*p1p2*p3p7*p4p8-hbcm*p2p3*p2p8*p4p7+3*hbcm
3285 . *p2p3*p2p8*p5p7+hbcm*p2p3*p4p7*p4p8-3*hbcm*p2p3*p4p8*p5p7+hbcm
3286 . *p2p4*p2p8*p3p7-hbcm*p2p4*p3p7*p4p8-3*hbcm*p2p5*p2p8*p3p7+3*
3287 . hbcm*p2p5*p3p7*p4p8))+ans3
3288 ans1=w2*(12*(p5p8*p5p7)*(-ffmcfmb*hbcm3+fmc*hbcm2)+4*(p5p8*p4p7
3289 . )*(ffmcfmb*hbcm3-fmc*hbcm2)+4*(p5p8*p3p7)*(-ffmcfmb**2*hbcm3-
3290 . ffmcfmb*fmc*hbcm2+3*ffmcfmb*hbcm3+3*fmb*fmc*hbcm-3*fmc2*hbcm)+
3291 . 8*(-ffmcfmb*hbcm*p1p3*p3p7*p5p8-2*ffmcfmb*hbcm*p2p3*p3p7*p5p8-
3292 . ffmcfmb*hbcm*p3p4*p3p7*p5p8+3*ffmcfmb*hbcm*p3p5*p3p7*p5p8+hbcm
3293 . *p1p2*p3p7*p5p8-hbcm*p2p3*p4p7*p5p8+3*hbcm*p2p3*p5p7*p5p8+hbcm
3294 . *p2p4*p3p7*p5p8-3*hbcm*p2p5*p3p7*p5p8))+w7*(12*(p5p7*p2p8)*(-
3295 . ffmcfmb*hbcm3+fmc*hbcm2)+4*(p4p7*p2p8)*(ffmcfmb*hbcm3-fmc*
3296 . hbcm2)+4*(p3p7*p2p8)*(-ffmcfmb**2*hbcm3-ffmcfmb*fmc*hbcm2+3*
3297 . ffmcfmb*hbcm3+3*fmb*fmc*hbcm-3*fmc2*hbcm)+8*(-ffmcfmb*hbcm*
3298 . p1p3*p2p8*p3p7-2*ffmcfmb*hbcm*p2p3*p2p8*p3p7-ffmcfmb*hbcm*p2p8
3299 . *p3p4*p3p7+3*ffmcfmb*hbcm*p2p8*p3p5*p3p7+hbcm*p1p2*p2p8*p3p7-
3300 . hbcm*p2p3*p2p8*p4p7+3*hbcm*p2p3*p2p8*p5p7+hbcm*p2p4*p2p8*p3p7-
3301 . 3*hbcm*p2p5*p2p8*p3p7))+ans2
3302 ans=ccc*ans1
3303 b(5)=ans
3304 ans=ccc*(w2*(4*(p5p8*p5p6)*(-ffmcfmb*hbcm2+fmc*hbcm)+12*(p5p8*
3305 . p4p6)*(ffmcfmb*hbcm2-fmc*hbcm)+4*(p5p8*p3p6)*(ffmcfmb*hbcm2-
3306 . fmc*hbcm))+w7*(4*(p5p6*p2p8)*(-ffmcfmb*hbcm2+fmc*hbcm)+12*(
3307 . p4p6*p2p8)*(ffmcfmb*hbcm2-fmc*hbcm)+4*(p3p6*p2p8)*(ffmcfmb*
3308 . hbcm2-fmc*hbcm))+w11*(4*(p5p6*p4p8)*(ffmcfmb*hbcm2-fmc*hbcm)+
3309 . 12*(p4p8*p4p6)*(-ffmcfmb*hbcm2+fmc*hbcm)+4*(p4p8*p3p6)*(-
3310 . ffmcfmb*hbcm2+fmc*hbcm)+4*(p5p6*p2p8)*(-ffmcfmb*hbcm2+fmc*hbcm
3311 . )+12*(p4p6*p2p8)*(ffmcfmb*hbcm2-fmc*hbcm)+4*(p3p6*p2p8)*(
3312 . ffmcfmb*hbcm2-fmc*hbcm))+(16*(p6p8*p2p3)*(-fb3*ffmcfmb+fb3)+4*
3313 . p6p8*(2*fb3*ffmcfmb**2*hbcm2-4*fb3*ffmcfmb*hbcm2+4*fb3*fmb*fmc
3314 . +2*fb3*fmc2+4*fb4*ffmcfmb*fmb*hbcm+4*fb4*ffmcfmb*fmc*hbcm-4*
3315 . fb4*fmc*hbcm-fmb*hbcm-fmc*hbcm+hbcm2)+16*(-2*fb3*ffmcfmb*p2p8*
3316 . p3p6+fb3*p1p2*p6p8-fb3*p2p4*p6p8+fb3*p2p5*p6p8-4*fb3*p2p8*p4p6
3317 . +2*fb3*p2p8*p5p6)))
3318 b(6)=ans
3319 b(7)=ccc*(16*(p3p6*p2p3)*(3*fb3*ffmcfmb-fb3)+2*p5p6*(4*fb3*
3320 . ffmcfmb*hbcm2+4*fb4*fmc*hbcm-hbcm2)+6*p4p6*(-4*fb3*ffmcfmb*
3321 . hbcm2-4*fb4*fmc*hbcm+hbcm2)+2*p3p6*(-4*fb3*ffmcfmb**2*hbcm2+4*
3322 . fb3*ffmcfmb*hbcm2-8*fb3*fmb*fmc-4*fb3*fmc2-8*fb4*ffmcfmb*fmb*
3323 . hbcm-8*fb4*ffmcfmb*fmc*hbcm+4*fb4*fmc*hbcm+2*fmb*hbcm+2*fmc*
3324 . hbcm-hbcm2)+16*(-fb3*p1p2*p3p6+4*fb3*p2p3*p4p6-2*fb3*p2p3*p5p6
3325 . +fb3*p2p4*p3p6-fb3*p2p5*p3p6))
3326 ans2=(4*(p5p8*p3p6)*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+4*(
3327 . p4p8*p3p6)*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+4*(p6p8*p3p5)*(
3328 . 4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+4*(p6p8*p3p4)*(-4*fb3*fmc-4
3329 . *fb4*ffmcfmb*hbcm+hbcm)+4*(p3p6*p1p8)*(-4*fb3*fmc-4*fb4*
3330 . ffmcfmb*hbcm+hbcm)+4*(p6p8*p1p3)*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm
3331 . -hbcm)+16*(p3p6*p2p8)*(2*fb3*fmb-fb3*fmc+fb4*ffmcfmb*hbcm-fb4*
3332 . hbcm)+4*(p6p8*p2p3)*(-8*fb3*fmb+4*fb3*fmc+4*fb4*hbcm+hbcm)+4*
3333 . p6p8*(4*fb3*ffmcfmb*fmb*hbcm2-4*fb3*ffmcfmb*fmc*hbcm2-2*fb4*
3334 . ffmcfmb**2*hbcm3+4*fb4*fmb*fmc*hbcm-2*fb4*fmc2*hbcm+ffmcfmb*
3335 . hbcm3-fmb*hbcm2)+16*(-fb4*hbcm*p1p2*p6p8+fb4*hbcm*p2p4*p6p8-
3336 . fb4*hbcm*p2p5*p6p8+3*fb4*hbcm*p2p8*p4p6-fb4*hbcm*p2p8*p5p6))
3337 ans1=w2*(8*(p5p8*p4p6)*(-ffmcfmb*hbcm3+fmc*hbcm2)+4*(p5p8*p3p6)
3338 . *(ffmcfmb**2*hbcm3-2*ffmcfmb*fmb*hbcm2+2*fmb*fmc*hbcm-fmc2*
3339 . hbcm)+8*(ffmcfmb*hbcm*p2p3*p3p6*p5p8-hbcm*p1p2*p3p6*p5p8+3*
3340 . hbcm*p2p3*p4p6*p5p8-hbcm*p2p3*p5p6*p5p8+hbcm*p2p4*p3p6*p5p8-
3341 . hbcm*p2p5*p3p6*p5p8))+w7*(8*(p4p6*p2p8)*(-ffmcfmb*hbcm3+fmc*
3342 . hbcm2)+4*(p3p6*p2p8)*(ffmcfmb**2*hbcm3-2*ffmcfmb*fmb*hbcm2+2*
3343 . fmb*fmc*hbcm-fmc2*hbcm)+8*(ffmcfmb*hbcm*p2p3*p2p8*p3p6-hbcm*
3344 . p1p2*p2p8*p3p6+3*hbcm*p2p3*p2p8*p4p6-hbcm*p2p3*p2p8*p5p6+hbcm*
3345 . p2p4*p2p8*p3p6-hbcm*p2p5*p2p8*p3p6))+w11*(8*(p4p8*p4p6)*(
3346 . ffmcfmb*hbcm3-fmc*hbcm2)+8*(p4p6*p2p8)*(-ffmcfmb*hbcm3+fmc*
3347 . hbcm2)+4*(p4p8*p3p6)*(-ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*hbcm2-2*
3348 . fmb*fmc*hbcm+fmc2*hbcm)+4*(p3p6*p2p8)*(ffmcfmb**2*hbcm3-2*
3349 . ffmcfmb*fmb*hbcm2+2*fmb*fmc*hbcm-fmc2*hbcm)+8*(ffmcfmb*hbcm*
3350 . p2p3*p2p8*p3p6-ffmcfmb*hbcm*p2p3*p3p6*p4p8-hbcm*p1p2*p2p8*p3p6
3351 . +hbcm*p1p2*p3p6*p4p8+3*hbcm*p2p3*p2p8*p4p6-hbcm*p2p3*p2p8*p5p6
3352 . -3*hbcm*p2p3*p4p6*p4p8+hbcm*p2p3*p4p8*p5p6+hbcm*p2p4*p2p8*p3p6
3353 . -hbcm*p2p4*p3p6*p4p8-hbcm*p2p5*p2p8*p3p6+hbcm*p2p5*p3p6*p4p8))
3354 . +ans2
3355 ans=ccc*ans1
3356 b(8)=ans
3357 b(9)=ccc*(4*(p5p6*p3p7)*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+4*(
3358 . p4p6*p3p7)*(-12*fb3*fmc-4*fb4*ffmcfmb*hbcm+3*hbcm)+4*(p5p7*
3359 . p3p6)*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+4*(p4p7*p3p6)*(-4*
3360 . fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+4*(p6p7*p3p5)*(-4*fb3*fmc-4*
3361 . fb4*ffmcfmb*hbcm+hbcm)+4*(p6p7*p3p4)*(4*fb3*fmc+4*fb4*ffmcfmb*
3362 . hbcm-hbcm)+4*(p6p7*p2p3)*(-4*fb3*fmc-8*fb4*ffmcfmb*hbcm+4*fb4*
3363 . hbcm+hbcm)+4*(p6p7*p1p3)*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+
3364 . 32*(p3p7*p3p6)*(fb3*ffmcfmb*fmb-fb3*ffmcfmb*fmc-fb4*ffmcfmb**2
3365 . *hbcm)+4*p6p7*(-4*fb3*ffmcfmb*fmb*hbcm2+4*fb3*ffmcfmb*fmc*
3366 . hbcm2+2*fb4*ffmcfmb**2*hbcm3-4*fb4*fmb*fmc*hbcm+2*fb4*fmc2*
3367 . hbcm+fmb*hbcm2-fmc*hbcm2)+16*(fb4*hbcm*p1p2*p6p7-fb4*hbcm*p2p4
3368 . *p6p7+fb4*hbcm*p2p5*p6p7))
3369 ans5=8*(-fmc*hbcm*p2p8*p3p7*p5p6+fmc*hbcm*p3p7*p4p8*p5p6-hbcm2*
3370 . p1p2*p2p8*p6p7+hbcm2*p1p2*p4p8*p6p7+hbcm2*p2p4*p2p8*p6p7-hbcm2
3371 . *p2p4*p4p8*p6p7-hbcm2*p2p5*p2p8*p6p7+hbcm2*p2p5*p4p8*p6p7)
3372 ans4=8*(p6p7*p4p8*p2p3)*(2*fmb*hbcm+fmc*hbcm-hbcm2)+8*(p6p7*
3373 . p2p8*p2p3)*(-2*fmb*hbcm-fmc*hbcm+hbcm2)+8*(p4p8*p4p6*p3p7)*(2*
3374 . ffmcfmb*hbcm2-fmc*hbcm)+8*(p5p7*p4p8*p3p6)*(ffmcfmb*hbcm2-fmc*
3375 . hbcm)+8*(p4p8*p4p7*p3p6)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(p6p7*
3376 . p4p8*p3p5)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(p6p7*p4p8*p3p4)*(
3377 . ffmcfmb*hbcm2-fmc*hbcm)+8*(p4p6*p3p7*p2p8)*(-2*ffmcfmb*hbcm2+
3378 . fmc*hbcm)+8*(p5p7*p3p6*p2p8)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(p4p7
3379 . *p3p6*p2p8)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p6p7*p3p5*p2p8)*(
3380 . ffmcfmb*hbcm2-fmc*hbcm)+8*(p6p7*p3p4*p2p8)*(-ffmcfmb*hbcm2+fmc
3381 . *hbcm)+8*(p6p7*p4p8*p1p3)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(p6p7*
3382 . p2p8*p1p3)*(ffmcfmb*hbcm2-fmc*hbcm)+4*(p6p7*p4p8)*(ffmcfmb**2*
3383 . hbcm4-2*ffmcfmb*fmb*hbcm3-2*ffmcfmb*fmc*hbcm3+2*fmb*fmc*hbcm2+
3384 . fmc2*hbcm2)+4*(p6p7*p2p8)*(-ffmcfmb**2*hbcm4+2*ffmcfmb*fmb*
3385 . hbcm3+2*ffmcfmb*fmc*hbcm3-2*fmb*fmc*hbcm2-fmc2*hbcm2)+8*(p4p8*
3386 . p3p7*p3p6)*(-2*ffmcfmb**2*hbcm2+2*ffmcfmb*fmb*hbcm+ffmcfmb*
3387 . hbcm2)+8*(p3p7*p3p6*p2p8)*(2*ffmcfmb**2*hbcm2-2*ffmcfmb*fmb*
3388 . hbcm-ffmcfmb*hbcm2)+ans5
3389 ans3=w11*ans4
3390 ans7=32*(-fb3*ffmcfmb*p1p3*p3p7*p6p8+fb3*ffmcfmb*p1p8*p3p6*p3p7
3391 . +fb3*ffmcfmb*p3p4*p3p7*p6p8-fb3*ffmcfmb*p3p5*p3p7*p6p8-fb3*
3392 . ffmcfmb*p3p6*p3p7*p4p8+fb3*ffmcfmb*p3p6*p3p7*p5p8+fb3*p1p8*
3393 . p2p3*p6p7+fb3*p2p3*p2p8*p6p7-fb3*p2p3*p4p6*p7p8+fb3*p2p3*p4p7*
3394 . p6p8-fb3*p2p3*p4p8*p6p7+fb3*p2p3*p5p6*p7p8-fb3*p2p3*p5p7*p6p8+
3395 . fb3*p2p3*p5p8*p6p7+5*fb3*p2p8*p3p7*p4p6-3*fb3*p2p8*p3p7*p5p6)
3396 ans6=32*(p3p7*p3p6*p2p8)*(5*fb3*ffmcfmb-fb3)+32*(p6p8*p3p7*p2p3
3397 . )*(fb3*ffmcfmb-fb3)+32*(p7p8*p3p6*p2p3)*(-2*fb3*ffmcfmb+fb3)+4
3398 . *(p6p7*p5p8)*(-4*fb3*ffmcfmb*hbcm2-4*fb4*fmc*hbcm+hbcm2)+4*(
3399 . p6p8*p5p7)*(4*fb3*ffmcfmb*hbcm2+4*fb4*fmc*hbcm-hbcm2)+16*(p7p8
3400 . *p5p6)*(-fb3*ffmcfmb*hbcm2-fb4*fmc*hbcm)+4*(p6p7*p4p8)*(4*fb3*
3401 . ffmcfmb*hbcm2+4*fb4*fmc*hbcm-hbcm2)+4*(p6p8*p4p7)*(-4*fb3*
3402 . ffmcfmb*hbcm2-4*fb4*fmc*hbcm+hbcm2)+8*(p7p8*p4p6)*(2*fb3*
3403 . ffmcfmb*hbcm2+2*fb4*fmc*hbcm-hbcm2)+4*(p6p8*p3p7)*(4*fb3*
3404 . ffmcfmb*hbcm2-8*fb4*ffmcfmb*fmb*hbcm-8*fb4*ffmcfmb*fmc*hbcm+4*
3405 . fb4*fmc*hbcm+2*ffmcfmb*hbcm2+2*fmc*hbcm-hbcm2)+8*(p6p7*p2p8)*(
3406 . -2*fb3*ffmcfmb*hbcm2-2*fb4*fmc*hbcm+hbcm2)+4*(p6p7*p1p8)*(-4*
3407 . fb3*ffmcfmb*hbcm2-4*fb4*fmc*hbcm+hbcm2)+8*(p7p8*p3p6)*(4*fb3*
3408 . ffmcfmb**2*hbcm2-2*fb3*ffmcfmb*hbcm2+4*fb4*ffmcfmb*fmc*hbcm-2*
3409 . fb4*fmc*hbcm+ffmcfmb*hbcm2-fmb*hbcm-fmc*hbcm)+ans7
3410 ans2=w7*(8*(p6p7*p2p8*p2p3)*(-2*fmb*hbcm-fmc*hbcm+hbcm2)+8*(
3411 . p4p6*p3p7*p2p8)*(-2*ffmcfmb*hbcm2+fmc*hbcm)+8*(p5p7*p3p6*p2p8)
3412 . *(-ffmcfmb*hbcm2+fmc*hbcm)+8*(p4p7*p3p6*p2p8)*(ffmcfmb*hbcm2-
3413 . fmc*hbcm)+8*(p6p7*p3p5*p2p8)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p6p7*
3414 . p3p4*p2p8)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(p6p7*p2p8*p1p3)*(
3415 . ffmcfmb*hbcm2-fmc*hbcm)+4*(p6p7*p2p8)*(-ffmcfmb**2*hbcm4+2*
3416 . ffmcfmb*fmb*hbcm3+2*ffmcfmb*fmc*hbcm3-2*fmb*fmc*hbcm2-fmc2*
3417 . hbcm2)+8*(p3p7*p3p6*p2p8)*(2*ffmcfmb**2*hbcm2-2*ffmcfmb*fmb*
3418 . hbcm-ffmcfmb*hbcm2)+8*(-fmc*hbcm*p2p8*p3p7*p5p6-hbcm2*p1p2*
3419 . p2p8*p6p7+hbcm2*p2p4*p2p8*p6p7-hbcm2*p2p5*p2p8*p6p7))+ans3+
3420 . ans6
3421 ans1=w2*(8*(p6p7*p5p8*p2p3)*(-2*fmb*hbcm-fmc*hbcm+hbcm2)+8*(
3422 . p5p8*p4p6*p3p7)*(-2*ffmcfmb*hbcm2+fmc*hbcm)+8*(p5p8*p5p7*p3p6)
3423 . *(-ffmcfmb*hbcm2+fmc*hbcm)+8*(p5p8*p4p7*p3p6)*(ffmcfmb*hbcm2-
3424 . fmc*hbcm)+8*(p6p7*p5p8*p3p5)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p6p7*
3425 . p5p8*p3p4)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(p6p7*p5p8*p1p3)*(
3426 . ffmcfmb*hbcm2-fmc*hbcm)+4*(p6p7*p5p8)*(-ffmcfmb**2*hbcm4+2*
3427 . ffmcfmb*fmb*hbcm3+2*ffmcfmb*fmc*hbcm3-2*fmb*fmc*hbcm2-fmc2*
3428 . hbcm2)+8*(p5p8*p3p7*p3p6)*(2*ffmcfmb**2*hbcm2-2*ffmcfmb*fmb*
3429 . hbcm-ffmcfmb*hbcm2)+8*(-fmc*hbcm*p3p7*p5p6*p5p8-hbcm2*p1p2*
3430 . p5p8*p6p7+hbcm2*p2p4*p5p8*p6p7-hbcm2*p2p5*p5p8*p6p7))+ans2
3431 ans=ccc*ans1
3432 b(10)=ans
3433 ans=ccc*(w2*(4*(p5p8*p2p3)*(-ffmcfmb*hbcm+3*hbcm)+6*p5p8*(
3434 . ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3-fmb*fmc*hbcm
3435 . +fmc*hbcm2+fmc2*hbcm)+4*(-hbcm*p1p2*p5p8-hbcm*p2p4*p5p8+3*hbcm
3436 . *p2p5*p5p8))+w7*(4*(p2p8*p2p3)*(-ffmcfmb*hbcm+3*hbcm)+6*p2p8*(
3437 . ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3-fmb*fmc*hbcm
3438 . +fmc*hbcm2+fmc2*hbcm)+4*(-hbcm*p1p2*p2p8-hbcm*p2p4*p2p8+3*hbcm
3439 . *p2p5*p2p8))+w11*(4*(p4p8*p2p3)*(ffmcfmb*hbcm-3*hbcm)+4*(p2p8*
3440 . p2p3)*(-ffmcfmb*hbcm+3*hbcm)+6*p4p8*(-ffmcfmb*fmb*hbcm2+
3441 . ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3+fmb*fmc*hbcm-fmc*hbcm2-fmc2*
3442 . hbcm)+6*p2p8*(ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-ffmcfmb*
3443 . hbcm3-fmb*fmc*hbcm+fmc*hbcm2+fmc2*hbcm)+4*(-hbcm*p1p2*p2p8+
3444 . hbcm*p1p2*p4p8-hbcm*p2p4*p2p8+hbcm*p2p4*p4p8+3*hbcm*p2p5*p2p8-
3445 . 3*hbcm*p2p5*p4p8))+(6*p5p8*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)
3446 . +2*p4p8*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+2*p1p8*(-4*fb3*
3447 . fmc-4*fb4*ffmcfmb*hbcm+hbcm)+2*p2p8*(-12*fb3*fmb+4*fb3*fmc-8*
3448 . fb4*ffmcfmb*hbcm+12*fb4*hbcm+hbcm)))
3449 b(11)=ans
3450 b(12)=ccc*(8*p2p3*(fb3*ffmcfmb-3*fb3)+(12*fb3*ffmcfmb*hbcm2-12*
3451 . fb3*fmb*fmc-12*fb3*fmc2+8*fb3*p1p2+8*fb3*p2p4-24*fb3*p2p5-12*
3452 . fb4*ffmcfmb*fmb*hbcm-12*fb4*ffmcfmb*fmc*hbcm+12*fb4*fmc*hbcm+3
3453 . *fmb*hbcm+3*fmc*hbcm-3*hbcm2))
3454 ans3=(6*p5p8*(4*fb3*ffmcfmb*hbcm2+4*fb4*fmc*hbcm-hbcm2)+2*p4p8*
3455 . (-4*fb3*ffmcfmb*hbcm2-4*fb4*fmc*hbcm+hbcm2)+2*p2p8*(-16*fb3*
3456 . ffmcfmb*hbcm2+12*fb3*hbcm2+12*fb4*fmb*hbcm+4*fb4*fmc*hbcm+
3457 . hbcm2)+2*p1p8*(-4*fb3*ffmcfmb*hbcm2-4*fb4*fmc*hbcm+hbcm2)+16*(
3458 . -fb3*p1p3*p2p8+fb3*p1p8*p2p3+fb3*p2p3*p4p8-3*fb3*p2p3*p5p8-fb3
3459 . *p2p8*p3p4+3*fb3*p2p8*p3p5))
3460 ans2=w11*(12*(p4p8*p3p5)*(ffmcfmb*hbcm2-fmc*hbcm)+4*(p4p8*p3p4)
3461 . *(-ffmcfmb*hbcm2+fmc*hbcm)+12*(p3p5*p2p8)*(-ffmcfmb*hbcm2+fmc*
3462 . hbcm)+4*(p3p4*p2p8)*(ffmcfmb*hbcm2-fmc*hbcm)+4*(p4p8*p2p3)*(-
3463 . ffmcfmb*hbcm2-3*fmb*hbcm-fmc*hbcm)+4*(p2p8*p2p3)*(ffmcfmb*
3464 . hbcm2+3*fmb*hbcm+fmc*hbcm)+4*(p4p8*p1p3)*(-ffmcfmb*hbcm2+fmc*
3465 . hbcm)+4*(p2p8*p1p3)*(ffmcfmb*hbcm2-fmc*hbcm)+2*p4p8*(-2*
3466 . ffmcfmb**2*hbcm4+3*ffmcfmb*fmb*hbcm3+5*ffmcfmb*fmc*hbcm3+3*
3467 . ffmcfmb*hbcm4-3*fmb*fmc*hbcm2-3*fmc*hbcm3-3*fmc2*hbcm2)+2*p2p8
3468 . *(2*ffmcfmb**2*hbcm4-3*ffmcfmb*fmb*hbcm3-5*ffmcfmb*fmc*hbcm3-3
3469 . *ffmcfmb*hbcm4+3*fmb*fmc*hbcm2+3*fmc*hbcm3+3*fmc2*hbcm2)+4*(-
3470 . hbcm2*p1p2*p2p8+hbcm2*p1p2*p4p8-hbcm2*p2p4*p2p8+hbcm2*p2p4*
3471 . p4p8+3*hbcm2*p2p5*p2p8-3*hbcm2*p2p5*p4p8))+ans3
3472 ans1=w2*(12*(p5p8*p3p5)*(-ffmcfmb*hbcm2+fmc*hbcm)+4*(p5p8*p3p4)
3473 . *(ffmcfmb*hbcm2-fmc*hbcm)+4*(p5p8*p2p3)*(ffmcfmb*hbcm2+3*fmb*
3474 . hbcm+fmc*hbcm)+4*(p5p8*p1p3)*(ffmcfmb*hbcm2-fmc*hbcm)+2*p5p8*(
3475 . 2*ffmcfmb**2*hbcm4-3*ffmcfmb*fmb*hbcm3-5*ffmcfmb*fmc*hbcm3-3*
3476 . ffmcfmb*hbcm4+3*fmb*fmc*hbcm2+3*fmc*hbcm3+3*fmc2*hbcm2)+4*(-
3477 . hbcm2*p1p2*p5p8-hbcm2*p2p4*p5p8+3*hbcm2*p2p5*p5p8))+w7*(12*(
3478 . p3p5*p2p8)*(-ffmcfmb*hbcm2+fmc*hbcm)+4*(p3p4*p2p8)*(ffmcfmb*
3479 . hbcm2-fmc*hbcm)+4*(p2p8*p2p3)*(ffmcfmb*hbcm2+3*fmb*hbcm+fmc*
3480 . hbcm)+4*(p2p8*p1p3)*(ffmcfmb*hbcm2-fmc*hbcm)+2*p2p8*(2*ffmcfmb
3481 . **2*hbcm4-3*ffmcfmb*fmb*hbcm3-5*ffmcfmb*fmc*hbcm3-3*ffmcfmb*
3482 . hbcm4+3*fmb*fmc*hbcm2+3*fmc*hbcm3+3*fmc2*hbcm2)+4*(-hbcm2*p1p2
3483 . *p2p8-hbcm2*p2p4*p2p8+3*hbcm2*p2p5*p2p8))+ans2
3484 ans=ccc*ans1
3485 b(13)=ans
3486 b(14)=ccc*(6*p3p5*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+2*p3p4*(
3487 . 4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+2*p1p3*(4*fb3*fmc+4*fb4*
3488 . ffmcfmb*hbcm-hbcm)+4*p2p3*(6*fb3*fmb-2*fb3*fmc+2*fb4*ffmcfmb*
3489 . hbcm-hbcm)+(-12*fb3*ffmcfmb*fmb*hbcm2+20*fb3*ffmcfmb*fmc*hbcm2
3490 . -12*fb3*fmc*hbcm2+8*fb4*ffmcfmb**2*hbcm3-12*fb4*ffmcfmb*hbcm3-
3491 . 12*fb4*fmb*fmc*hbcm+12*fb4*fmc2*hbcm-8*fb4*hbcm*p1p2-8*fb4*
3492 . hbcm*p2p4+24*fb4*hbcm*p2p5-2*ffmcfmb*hbcm3+3*fmb*hbcm2-3*fmc*
3493 . hbcm2+3*hbcm3))
3494 b(15)=ccc*(w2*(4*(p5p8*p3p6)*(2*ffmcfmb*hbcm2+2*fmb*hbcm-hbcm2)
3495 . +4*(3*hbcm2*p4p6*p5p8-hbcm2*p5p6*p5p8))+w7*(4*(p3p6*p2p8)*(2*
3496 . ffmcfmb*hbcm2+2*fmb*hbcm-hbcm2)+4*(3*hbcm2*p2p8*p4p6-hbcm2*
3497 . p2p8*p5p6))+w11*(4*(p4p8*p3p6)*(-2*ffmcfmb*hbcm2-2*fmb*hbcm+
3498 . hbcm2)+4*(p3p6*p2p8)*(2*ffmcfmb*hbcm2+2*fmb*hbcm-hbcm2)+4*(3*
3499 . hbcm2*p2p8*p4p6-hbcm2*p2p8*p5p6-3*hbcm2*p4p6*p4p8+hbcm2*p4p8*
3500 . p5p6))+(4*p6p8*(-4*fb3*ffmcfmb*hbcm2+4*fb4*fmb*hbcm+hbcm2)+16*
3501 . (fb3*p1p3*p6p8-fb3*p1p8*p3p6+fb3*p2p3*p6p8-fb3*p2p8*p3p6-fb3*
3502 . p3p4*p6p8+fb3*p3p5*p6p8+fb3*p3p6*p4p8-fb3*p3p6*p5p8)))
3503 b(16)=ccc*(8*w2*(-ffmcfmb*hbcm*p3p6*p5p8-2*hbcm*p4p6*p5p8+hbcm*
3504 . p5p6*p5p8)+8*w7*(-ffmcfmb*hbcm*p2p8*p3p6-2*hbcm*p2p8*p4p6+hbcm
3505 . *p2p8*p5p6)+8*w11*(-ffmcfmb*hbcm*p2p8*p3p6+ffmcfmb*hbcm*p3p6*
3506 . p4p8-2*hbcm*p2p8*p4p6+hbcm*p2p8*p5p6+2*hbcm*p4p6*p4p8-hbcm*
3507 . p4p8*p5p6)+8*p6p8*(2*fb3*fmb+2*fb4*ffmcfmb*hbcm-2*fb4*hbcm-
3508 . hbcm))
3509 b(17)=ccc*(w2*(2*p5p8*(5*ffmcfmb*hbcm3-3*fmb*hbcm2-3*hbcm3)+4*(
3510 . hbcm*p1p3*p5p8-hbcm*p2p3*p5p8+hbcm*p3p4*p5p8-3*hbcm*p3p5*p5p8)
3511 . )+w7*(2*p2p8*(5*ffmcfmb*hbcm3-3*fmb*hbcm2-3*hbcm3)+4*(hbcm*
3512 . p1p3*p2p8-hbcm*p2p3*p2p8+hbcm*p2p8*p3p4-3*hbcm*p2p8*p3p5))+w11
3513 . *(2*p4p8*(-5*ffmcfmb*hbcm3+3*fmb*hbcm2+3*hbcm3)+2*p2p8*(5*
3514 . ffmcfmb*hbcm3-3*fmb*hbcm2-3*hbcm3)+4*(hbcm*p1p3*p2p8-hbcm*p1p3
3515 . *p4p8-hbcm*p2p3*p2p8+hbcm*p2p3*p4p8+hbcm*p2p8*p3p4-3*hbcm*p2p8
3516 . *p3p5-hbcm*p3p4*p4p8+3*hbcm*p3p5*p4p8))+8*(fb4*hbcm*p1p8-fb4*
3517 . hbcm*p2p8+fb4*hbcm*p4p8-3*fb4*hbcm*p5p8))
3518 b(18)=ccc*(w2*(4*(p5p8*p3p7)*(ffmcfmb*hbcm2-3*fmb*hbcm)+4*(
3519 . hbcm2*p4p7*p5p8-3*hbcm2*p5p7*p5p8))+w7*(4*(p3p7*p2p8)*(ffmcfmb
3520 . *hbcm2-3*fmb*hbcm)+4*(hbcm2*p2p8*p4p7-3*hbcm2*p2p8*p5p7))+w11*
3521 . (4*(p4p8*p3p7)*(-ffmcfmb*hbcm2+3*fmb*hbcm)+4*(p3p7*p2p8)*(
3522 . ffmcfmb*hbcm2-3*fmb*hbcm)+4*(hbcm2*p2p8*p4p7-3*hbcm2*p2p8*p5p7
3523 . -hbcm2*p4p7*p4p8+3*hbcm2*p4p8*p5p7))+(2*p7p8*(20*fb3*ffmcfmb*
3524 . hbcm2-12*fb3*hbcm2-12*fb4*fmb*hbcm+hbcm2)+16*(fb3*p1p3*p7p8-
3525 . fb3*p1p8*p3p7-fb3*p2p3*p7p8+fb3*p2p8*p3p7+fb3*p3p4*p7p8-3*fb3*
3526 . p3p5*p7p8-fb3*p3p7*p4p8+3*fb3*p3p7*p5p8)))
3527 b(19)=ccc*(6*w2*p5p8*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+6*w7*p2p8*
3528 . (-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+w11*(6*p4p8*(ffmcfmb*hbcm2+fmb
3529 . *hbcm-hbcm2)+6*p2p8*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2))+8*(-fb3*
3530 . p1p8+fb3*p2p8-fb3*p4p8+3*fb3*p5p8))
3531 b(20)=ccc*(w2*(4*(p5p8*p3p7)*(4*ffmcfmb*hbcm-3*hbcm)+4*(hbcm*
3532 . p4p7*p5p8-3*hbcm*p5p7*p5p8))+w7*(4*(p3p7*p2p8)*(4*ffmcfmb*hbcm
3533 . -3*hbcm)+4*(hbcm*p2p8*p4p7-3*hbcm*p2p8*p5p7))+w11*(4*(p4p8*
3534 . p3p7)*(-4*ffmcfmb*hbcm+3*hbcm)+4*(p3p7*p2p8)*(4*ffmcfmb*hbcm-3
3535 . *hbcm)+4*(hbcm*p2p8*p4p7-3*hbcm*p2p8*p5p7-hbcm*p4p7*p4p8+3*
3536 . hbcm*p4p8*p5p7))+2*p7p8*(12*fb3*fmb+12*fb4*ffmcfmb*hbcm-12*fb4
3537 . *hbcm+hbcm))
3538 b(21)=3*ccc*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm)
3539 b(22)=ccc*(20*fb3*ffmcfmb*hbcm2-12*fb3*hbcm2+8*fb3*p1p3-8*fb3*
3540 . p2p3+8*fb3*p3p4-24*fb3*p3p5-12*fb4*fmb*hbcm-3*hbcm2)
3541 b(23)=ccc*(2*p3p7*(-12*fb3*fmb+4*fb4*ffmcfmb*hbcm+3*hbcm)+8*(
3542 . fb4*hbcm*p4p7-3*fb4*hbcm*p5p7))
3543 b(24)=ccc*(4*p3p6*(-4*fb3*fmb-8*fb4*ffmcfmb*hbcm+4*fb4*hbcm+
3544 . hbcm)+16*(-2*fb4*hbcm*p4p6+fb4*hbcm*p5p6))
3545 b(25)=ccc*(6*p5p7*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+2*p4p7*(
3546 . 4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+2*p3p7*(-12*fb3*ffmcfmb*fmb
3547 . +16*fb3*ffmcfmb*fmc-12*fb3*fmc+4*fb4*ffmcfmb**2*hbcm-ffmcfmb*
3548 . hbcm+3*hbcm))
3549 b(26)=ccc*(4*p5p6*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+8*p4p6*(-
3550 . 4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+4*p3p6*(-4*fb3*ffmcfmb*fmc-
3551 . 4*fb4*ffmcfmb**2*hbcm+ffmcfmb*hbcm))
3552 b(27)=ccc*(16*(p3p7*p3p6)*(-4*fb3*ffmcfmb+fb3)+4*p6p7*(4*fb3*
3553 . ffmcfmb*hbcm2-4*fb4*fmb*hbcm-hbcm2)+16*(-fb3*p1p3*p6p7-fb3*
3554 . p2p3*p6p7+fb3*p3p4*p6p7-fb3*p3p5*p6p7-fb3*p3p6*p4p7+fb3*p3p6*
3555 . p5p7-4*fb3*p3p7*p4p6+2*fb3*p3p7*p5p6))
3556 b(28)=ccc*(8*w2*(p6p7*p5p8)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*w7
3557 . *(p6p7*p2p8)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+w11*(8*(p6p7*p4p8)
3558 . *(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(p6p7*p2p8)*(ffmcfmb*hbcm2+
3559 . fmb*hbcm-hbcm2))+(16*(p6p8*p3p7)*(-2*fb3*ffmcfmb+fb3)+16*(-2*
3560 . fb3*ffmcfmb*p3p6*p7p8-fb3*p1p8*p6p7-fb3*p2p8*p6p7-4*fb3*p4p6*
3561 . p7p8-fb3*p4p7*p6p8+fb3*p4p8*p6p7+2*fb3*p5p6*p7p8+fb3*p5p7*p6p8
3562 . -fb3*p5p8*p6p7)))
3563 b(29)=ccc*(8*p3p6*(-4*fb3*ffmcfmb+fb3)+8*(-5*fb3*p4p6+3*fb3*
3564 . p5p6))
3565 b(30)=ccc*(8*p3p7*(4*fb3*ffmcfmb-3*fb3)+8*(fb3*p4p7-3*fb3*p5p7)
3566 . )
3567 ans2=(8*(p6p8*p3p7)*(4*fb3*fmb-2*fb4*hbcm-hbcm)+16*(p7p8*p3p6)*
3568 . (-2*fb3*fmb-2*fb4*ffmcfmb*hbcm+fb4*hbcm)+16*(-fb4*hbcm*p1p8*
3569 . p6p7-fb4*hbcm*p2p8*p6p7-3*fb4*hbcm*p4p6*p7p8-fb4*hbcm*p4p7*
3570 . p6p8+fb4*hbcm*p4p8*p6p7+fb4*hbcm*p5p6*p7p8+fb4*hbcm*p5p7*p6p8-
3571 . fb4*hbcm*p5p8*p6p7))
3572 ans1=w2*(8*(p6p7*p5p8)*(ffmcfmb*hbcm3-fmb*hbcm2)+8*(-2*ffmcfmb*
3573 . hbcm*p3p6*p3p7*p5p8-hbcm*p1p3*p5p8*p6p7-hbcm*p2p3*p5p8*p6p7+
3574 . hbcm*p3p4*p5p8*p6p7-hbcm*p3p5*p5p8*p6p7-hbcm*p3p6*p4p7*p5p8+
3575 . hbcm*p3p6*p5p7*p5p8-3*hbcm*p3p7*p4p6*p5p8+hbcm*p3p7*p5p6*p5p8)
3576 . )+w7*(8*(p6p7*p2p8)*(ffmcfmb*hbcm3-fmb*hbcm2)+8*(-2*ffmcfmb*
3577 . hbcm*p2p8*p3p6*p3p7-hbcm*p1p3*p2p8*p6p7-hbcm*p2p3*p2p8*p6p7+
3578 . hbcm*p2p8*p3p4*p6p7-hbcm*p2p8*p3p5*p6p7-hbcm*p2p8*p3p6*p4p7+
3579 . hbcm*p2p8*p3p6*p5p7-3*hbcm*p2p8*p3p7*p4p6+hbcm*p2p8*p3p7*p5p6)
3580 . )+w11*(8*(p6p7*p4p8)*(-ffmcfmb*hbcm3+fmb*hbcm2)+8*(p6p7*p2p8)*
3581 . (ffmcfmb*hbcm3-fmb*hbcm2)+8*(-2*ffmcfmb*hbcm*p2p8*p3p6*p3p7+2*
3582 . ffmcfmb*hbcm*p3p6*p3p7*p4p8-hbcm*p1p3*p2p8*p6p7+hbcm*p1p3*p4p8
3583 . *p6p7-hbcm*p2p3*p2p8*p6p7+hbcm*p2p3*p4p8*p6p7+hbcm*p2p8*p3p4*
3584 . p6p7-hbcm*p2p8*p3p5*p6p7-hbcm*p2p8*p3p6*p4p7+hbcm*p2p8*p3p6*
3585 . p5p7-3*hbcm*p2p8*p3p7*p4p6+hbcm*p2p8*p3p7*p5p6-hbcm*p3p4*p4p8*
3586 . p6p7+hbcm*p3p5*p4p8*p6p7+hbcm*p3p6*p4p7*p4p8-hbcm*p3p6*p4p8*
3587 . p5p7+3*hbcm*p3p7*p4p6*p4p8-hbcm*p3p7*p4p8*p5p6))+ans2
3588 ans=ccc*ans1
3589 b(31)=ans
3590 b(32)=4*ccc*p6p7*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm)
3591 do 200 n=1,32
3592 c(n,1)=c(n,1)-0.1818181818181818d0*b(n)
3593 c(n,2)=c(n,2)-0.1512818716977898d0*b(n)
3594 c(n,3)=c(n,3)-0.1869893980016914d0*b(n)
3595 200 continue
3596 return
3597 end
3598
3599 subroutine amp29_1p1(cc)
3600 implicit double precision(a-h,o-z)
3601 implicit integer (i-n)
3602 dimension b(32)
3603 #include "inclcon.h"
3604 #include "inclppp.h"
3605 #include "inclamp.h"
3606 do 100 n=1,32
3607 b(n)=0.0d0
3608 100 continue
3609 ccc=cc/((ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3+2*ffmcfmb*p3p4+fmc2-2*
3610 . p1p4)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2)*(ffmcfmb**2*hbcm2
3611 . -2*ffmcfmb*hbcm2+2*ffmcfmb*p2p3-fmb2+hbcm2-2*p2p3))
3612 b(1)=ccc*(64*(p4p6*p3p7)*(fb3*ffmcfmb-fb3)+32*(p3p7*p3p6)*(fb3*
3613 . ffmcfmb-fb3)+2*p6p7*(4*fb3*ffmcfmb**2*hbcm2-12*fb3*ffmcfmb*
3614 . hbcm2-4*fb3*fmb*fmc-8*fb3*fmb2+8*fb3*hbcm2-4*fb4*ffmcfmb*fmb*
3615 . hbcm-4*fb4*ffmcfmb*fmc*hbcm+4*fb4*fmc*hbcm+fmb*hbcm+fmc*hbcm-
3616 . hbcm2)+32*(fb3*p1p2*p6p7-fb3*p2p3*p6p7-fb3*p2p4*p6p7))
3617 ans3=(4*(p6p7*p2p8)*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+8*(
3618 . p6p7*p4p8)*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm)+8*(
3619 . p6p8*p4p7)*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+hbcm)+16*
3620 . (p7p8*p4p6)*(-2*fb3*fmb-2*fb4*ffmcfmb*hbcm+2*fb4*hbcm+hbcm)+8*
3621 . (p6p7*p1p8)*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+hbcm)+4*
3622 . (p6p8*p3p7)*(-8*fb3*ffmcfmb*fmb+4*fb3*ffmcfmb*fmc-4*fb3*fmc-4*
3623 . fb4*ffmcfmb**2*hbcm+4*fb4*ffmcfmb*hbcm-ffmcfmb*hbcm+3*hbcm)+8*
3624 . (p7p8*p3p6)*(-4*fb3*ffmcfmb*fmb-4*fb4*ffmcfmb**2*hbcm+4*fb4*
3625 . ffmcfmb*hbcm+hbcm))
3626 ans2=w5*(16*(p4p8*p4p6*p3p7)*(-ffmcfmb*hbcm+hbcm)+16*(p4p6*p3p7
3627 . *p1p8)*(ffmcfmb*hbcm-hbcm)+4*(p6p7*p4p8)*(-ffmcfmb**2*hbcm3+
3628 . ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2+3*ffmcfmb*hbcm3-fmb*fmc*
3629 . hbcm+2*fmb2*hbcm+fmc*hbcm2-2*hbcm3)+4*(p6p7*p1p8)*(ffmcfmb**2*
3630 . hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2-3*ffmcfmb*hbcm3+fmb*
3631 . fmc*hbcm-2*fmb2*hbcm-fmc*hbcm2+2*hbcm3)+16*(p4p8*p3p7*p3p6)*(
3632 . ffmcfmb**2*hbcm-2*ffmcfmb*hbcm+hbcm)+16*(p3p7*p3p6*p1p8)*(-
3633 . ffmcfmb**2*hbcm+2*ffmcfmb*hbcm-hbcm)+16*(hbcm*p1p2*p1p8*p6p7-
3634 . hbcm*p1p2*p4p8*p6p7-hbcm*p1p8*p2p3*p6p7-hbcm*p1p8*p2p4*p6p7+
3635 . hbcm*p2p3*p4p8*p6p7+hbcm*p2p4*p4p8*p6p7))+ans3
3636 ans1=w1*(16*(p4p8*p4p6*p3p7)*(-ffmcfmb*hbcm+hbcm)+4*(p6p7*p4p8)
3637 . *(-ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2+3*
3638 . ffmcfmb*hbcm3-fmb*fmc*hbcm+2*fmb2*hbcm+fmc*hbcm2-2*hbcm3)+16*(
3639 . p4p8*p3p7*p3p6)*(ffmcfmb**2*hbcm-2*ffmcfmb*hbcm+hbcm)+16*(-
3640 . hbcm*p1p2*p4p8*p6p7+hbcm*p2p3*p4p8*p6p7+hbcm*p2p4*p4p8*p6p7))+
3641 . w8*(16*(p4p6*p3p7*p2p8)*(-ffmcfmb*hbcm+hbcm)+4*(p6p7*p2p8)*(-
3642 . ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2+3*ffmcfmb
3643 . *hbcm3-fmb*fmc*hbcm+2*fmb2*hbcm+fmc*hbcm2-2*hbcm3)+16*(p3p7*
3644 . p3p6*p2p8)*(ffmcfmb**2*hbcm-2*ffmcfmb*hbcm+hbcm)+16*(-hbcm*
3645 . p1p2*p2p8*p6p7+hbcm*p2p3*p2p8*p6p7+hbcm*p2p4*p2p8*p6p7))+ans2
3646 ans=ccc*ans1
3647 b(2)=ans
3648 ans2=(2*p7p8*(ffmcfmb*hbcm2+4*fmb*hbcm+3*fmc*hbcm-4*hbcm2)+48*(
3649 . p5p8*p3p7)*(-fb3*ffmcfmb+fb3)+16*(p4p8*p3p7)*(fb3*ffmcfmb-fb3)
3650 . +16*(p3p7*p1p8)*(fb3*ffmcfmb-fb3)+16*(-fb3*ffmcfmb*p2p8*p3p7-
3651 . fb3*p2p8*p4p7+3*fb3*p2p8*p5p7))
3652 ans1=w1*(12*(p5p7*p4p8)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+4*(p4p8*
3653 . p4p7)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+4*(p4p8*p3p7)*(-ffmcfmb
3654 . **2*hbcm2-4*ffmcfmb*fmb*hbcm-3*ffmcfmb*fmc*hbcm+4*ffmcfmb*
3655 . hbcm2+3*fmb*hbcm+3*fmc*hbcm-3*hbcm2))+w8*(12*(p5p7*p2p8)*(
3656 . ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+4*(p4p7*p2p8)*(-ffmcfmb*hbcm2-
3657 . fmb*hbcm+hbcm2)+4*(p3p7*p2p8)*(-ffmcfmb**2*hbcm2-4*ffmcfmb*fmb
3658 . *hbcm-3*ffmcfmb*fmc*hbcm+4*ffmcfmb*hbcm2+3*fmb*hbcm+3*fmc*hbcm
3659 . -3*hbcm2))+w5*(12*(p5p7*p4p8)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+4
3660 . *(p4p8*p4p7)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+12*(p5p7*p1p8)*(-
3661 . ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+4*(p4p7*p1p8)*(ffmcfmb*hbcm2+fmb
3662 . *hbcm-hbcm2)+4*(p4p8*p3p7)*(-ffmcfmb**2*hbcm2-4*ffmcfmb*fmb*
3663 . hbcm-3*ffmcfmb*fmc*hbcm+4*ffmcfmb*hbcm2+3*fmb*hbcm+3*fmc*hbcm-
3664 . 3*hbcm2)+4*(p3p7*p1p8)*(ffmcfmb**2*hbcm2+4*ffmcfmb*fmb*hbcm+3*
3665 . ffmcfmb*fmc*hbcm-4*ffmcfmb*hbcm2-3*fmb*hbcm-3*fmc*hbcm+3*hbcm2
3666 . ))+ans2
3667 ans=ccc*ans1
3668 b(3)=ans
3669 b(4)=ccc*(48*(p3p7*p3p5)*(fb3*ffmcfmb-fb3)+16*(p3p7*p3p4)*(-fb3
3670 . *ffmcfmb+fb3)+48*(p3p7*p2p3)*(-fb3*ffmcfmb+fb3)+16*(p3p7*p1p3)
3671 . *(-fb3*ffmcfmb+fb3)+6*p5p7*(-4*fb3*ffmcfmb*hbcm2+4*fb3*hbcm2-4
3672 . *fb4*fmb*hbcm-hbcm2)+2*p4p7*(4*fb3*ffmcfmb*hbcm2-4*fb3*hbcm2+4
3673 . *fb4*fmb*hbcm+hbcm2)+2*p3p7*(-4*fb3*ffmcfmb**2*hbcm2+16*fb3*
3674 . ffmcfmb*hbcm2-12*fb3*hbcm2+16*fb4*ffmcfmb*fmb*hbcm+12*fb4*
3675 . ffmcfmb*fmc*hbcm-12*fb4*fmb*hbcm-12*fb4*fmc*hbcm+ffmcfmb*hbcm2
3676 . ))
3677 ans3=(2*p7p8*(-ffmcfmb*hbcm3+4*fmb*hbcm2-3*fmc*hbcm2+2*hbcm3)+
3678 . 48*(p5p8*p3p7)*(fb4*ffmcfmb*hbcm-fb4*hbcm)+16*(p4p8*p3p7)*(-
3679 . fb4*ffmcfmb*hbcm+fb4*hbcm)+48*(p3p7*p2p8)*(-fb4*ffmcfmb*hbcm+
3680 . fb4*hbcm)+16*(p3p7*p1p8)*(-fb4*ffmcfmb*hbcm+fb4*hbcm)+4*(-hbcm
3681 . *p1p3*p7p8-3*hbcm*p2p3*p7p8-hbcm*p3p4*p7p8+3*hbcm*p3p5*p7p8))
3682 ans2=w5*(12*(p5p7*p4p8)*(ffmcfmb*hbcm3+fmb*hbcm2-hbcm3)+4*(p4p8
3683 . *p4p7)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+12*(p5p7*p1p8)*(-
3684 . ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+4*(p4p7*p1p8)*(ffmcfmb*hbcm3+
3685 . fmb*hbcm2-hbcm3)+24*(p4p8*p3p7*p3p5)*(-ffmcfmb*hbcm+hbcm)+8*(
3686 . p4p8*p3p7*p3p4)*(ffmcfmb*hbcm-hbcm)+24*(p4p8*p3p7*p2p3)*(
3687 . ffmcfmb*hbcm-hbcm)+24*(p3p7*p3p5*p1p8)*(ffmcfmb*hbcm-hbcm)+8*(
3688 . p3p7*p3p4*p1p8)*(-ffmcfmb*hbcm+hbcm)+24*(p3p7*p2p3*p1p8)*(-
3689 . ffmcfmb*hbcm+hbcm)+8*(p4p8*p3p7*p1p3)*(ffmcfmb*hbcm-hbcm)+8*(
3690 . p3p7*p1p8*p1p3)*(-ffmcfmb*hbcm+hbcm)+4*(p4p8*p3p7)*(ffmcfmb**2
3691 . *hbcm3-4*ffmcfmb*fmb*hbcm2+3*ffmcfmb*fmc*hbcm2-4*ffmcfmb*hbcm3
3692 . +3*fmb*hbcm2-3*fmc*hbcm2+3*hbcm3)+4*(p3p7*p1p8)*(-ffmcfmb**2*
3693 . hbcm3+4*ffmcfmb*fmb*hbcm2-3*ffmcfmb*fmc*hbcm2+4*ffmcfmb*hbcm3-
3694 . 3*fmb*hbcm2+3*fmc*hbcm2-3*hbcm3))+ans3
3695 ans1=w1*(12*(p5p7*p4p8)*(ffmcfmb*hbcm3+fmb*hbcm2-hbcm3)+4*(p4p8
3696 . *p4p7)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+24*(p4p8*p3p7*p3p5)*(-
3697 . ffmcfmb*hbcm+hbcm)+8*(p4p8*p3p7*p3p4)*(ffmcfmb*hbcm-hbcm)+24*(
3698 . p4p8*p3p7*p2p3)*(ffmcfmb*hbcm-hbcm)+8*(p4p8*p3p7*p1p3)*(
3699 . ffmcfmb*hbcm-hbcm)+4*(p4p8*p3p7)*(ffmcfmb**2*hbcm3-4*ffmcfmb*
3700 . fmb*hbcm2+3*ffmcfmb*fmc*hbcm2-4*ffmcfmb*hbcm3+3*fmb*hbcm2-3*
3701 . fmc*hbcm2+3*hbcm3))+w8*(12*(p5p7*p2p8)*(ffmcfmb*hbcm3+fmb*
3702 . hbcm2-hbcm3)+4*(p4p7*p2p8)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+24
3703 . *(p3p7*p3p5*p2p8)*(-ffmcfmb*hbcm+hbcm)+8*(p3p7*p3p4*p2p8)*(
3704 . ffmcfmb*hbcm-hbcm)+24*(p3p7*p2p8*p2p3)*(ffmcfmb*hbcm-hbcm)+8*(
3705 . p3p7*p2p8*p1p3)*(ffmcfmb*hbcm-hbcm)+4*(p3p7*p2p8)*(ffmcfmb**2*
3706 . hbcm3-4*ffmcfmb*fmb*hbcm2+3*ffmcfmb*fmc*hbcm2-4*ffmcfmb*hbcm3+
3707 . 3*fmb*hbcm2-3*fmc*hbcm2+3*hbcm3))+ans2
3708 ans=ccc*ans1
3709 b(5)=ans
3710 b(6)=ccc*(w1*(16*(p4p8*p4p6)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(
3711 . p4p8*p3p6)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2))+w8*(16*(p4p6*p2p8)*
3712 . (ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(p3p6*p2p8)*(ffmcfmb*hbcm2+
3713 . fmb*hbcm-hbcm2))+w5*(16*(p4p8*p4p6)*(ffmcfmb*hbcm2+fmb*hbcm-
3714 . hbcm2)+8*(p4p8*p3p6)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(p4p6*
3715 . p1p8)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(p3p6*p1p8)*(-ffmcfmb*
3716 . hbcm2-fmb*hbcm+hbcm2))+(2*p6p8*(4*fb3*ffmcfmb**2*hbcm2-12*fb3*
3717 . ffmcfmb*hbcm2-4*fb3*fmb*fmc-8*fb3*fmb2+8*fb3*hbcm2-4*fb4*
3718 . ffmcfmb*fmb*hbcm-4*fb4*ffmcfmb*fmc*hbcm+4*fb4*fmc*hbcm+fmb*
3719 . hbcm+fmc*hbcm-hbcm2)+32*(-fb3*ffmcfmb*p2p8*p3p6+fb3*p1p2*p6p8-
3720 . fb3*p2p3*p6p8-fb3*p2p4*p6p8-fb3*p2p8*p4p6)))
3721 b(7)=ccc*(32*(p3p6*p2p3)*(fb3*ffmcfmb+fb3)+8*p4p6*(-4*fb3*
3722 . ffmcfmb*hbcm2+4*fb3*hbcm2-4*fb4*fmb*hbcm-hbcm2)+2*p3p6*(-4*fb3
3723 . *ffmcfmb**2*hbcm2+4*fb3*ffmcfmb*hbcm2+4*fb3*fmb*fmc+8*fb3*fmb2
3724 . +4*fb4*ffmcfmb*fmb*hbcm+4*fb4*ffmcfmb*fmc*hbcm-8*fb4*fmb*hbcm-
3725 . 4*fb4*fmc*hbcm-fmb*hbcm-fmc*hbcm-hbcm2)+32*(-fb3*p1p2*p3p6+fb3
3726 . *p2p3*p4p6+fb3*p2p4*p3p6))
3727 ans3=(8*(p6p8*p2p3)*(4*fb4*hbcm+hbcm)+8*(p4p8*p3p6)*(-4*fb3*fmb
3728 . -4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+hbcm)+8*(p6p8*p3p4)*(4*fb3*fmb+
3729 . 4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm)+8*(p3p6*p1p8)*(4*fb3*fmb+4
3730 . *fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm)+8*(p6p8*p1p3)*(-4*fb3*fmb-4
3731 . *fb4*ffmcfmb*hbcm+4*fb4*hbcm+hbcm)+2*p6p8*(12*fb3*ffmcfmb*fmb*
3732 . hbcm2-4*fb3*ffmcfmb*fmc*hbcm2+4*fb3*fmc*hbcm2+4*fb4*ffmcfmb**2
3733 . *hbcm3+4*fb4*ffmcfmb*hbcm3-4*fb4*fmb*fmc*hbcm+8*fb4*fmb2*hbcm-
3734 . 8*fb4*hbcm3+3*fmb*hbcm2-fmc*hbcm2-3*hbcm3)+32*(fb4*ffmcfmb*
3735 . hbcm*p2p8*p3p6-fb4*hbcm*p1p2*p6p8+fb4*hbcm*p2p4*p6p8+fb4*hbcm*
3736 . p2p8*p4p6))
3737 ans2=w5*(8*(p4p8*p4p6)*(ffmcfmb*hbcm3+fmb*hbcm2-hbcm3)+8*(p4p6*
3738 . p1p8)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+16*(p4p8*p3p6*p2p3)*(-
3739 . ffmcfmb*hbcm-hbcm)+16*(p3p6*p2p3*p1p8)*(ffmcfmb*hbcm+hbcm)+4*(
3740 . p4p8*p3p6)*(-ffmcfmb**2*hbcm3-3*ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*
3741 . hbcm2+ffmcfmb*hbcm3+fmb*fmc*hbcm+2*fmb*hbcm2-2*fmb2*hbcm-fmc*
3742 . hbcm2)+4*(p3p6*p1p8)*(ffmcfmb**2*hbcm3+3*ffmcfmb*fmb*hbcm2-
3743 . ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3-fmb*fmc*hbcm-2*fmb*hbcm2+2*
3744 . fmb2*hbcm+fmc*hbcm2)+16*(-hbcm*p1p2*p1p8*p3p6+hbcm*p1p2*p3p6*
3745 . p4p8+hbcm*p1p8*p2p3*p4p6+hbcm*p1p8*p2p4*p3p6-hbcm*p2p3*p4p6*
3746 . p4p8-hbcm*p2p4*p3p6*p4p8))+ans3
3747 ans1=w1*(8*(p4p8*p4p6)*(ffmcfmb*hbcm3+fmb*hbcm2-hbcm3)+16*(p4p8
3748 . *p3p6*p2p3)*(-ffmcfmb*hbcm-hbcm)+4*(p4p8*p3p6)*(-ffmcfmb**2*
3749 . hbcm3-3*ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3+fmb*
3750 . fmc*hbcm+2*fmb*hbcm2-2*fmb2*hbcm-fmc*hbcm2)+16*(hbcm*p1p2*p3p6
3751 . *p4p8-hbcm*p2p3*p4p6*p4p8-hbcm*p2p4*p3p6*p4p8))+w8*(8*(p4p6*
3752 . p2p8)*(ffmcfmb*hbcm3+fmb*hbcm2-hbcm3)+16*(p3p6*p2p8*p2p3)*(-
3753 . ffmcfmb*hbcm-hbcm)+4*(p3p6*p2p8)*(-ffmcfmb**2*hbcm3-3*ffmcfmb*
3754 . fmb*hbcm2+ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3+fmb*fmc*hbcm+2*fmb*
3755 . hbcm2-2*fmb2*hbcm-fmc*hbcm2)+16*(hbcm*p1p2*p2p8*p3p6-hbcm*p2p3
3756 . *p2p8*p4p6-hbcm*p2p4*p2p8*p3p6))+ans2
3757 ans=ccc*ans1
3758 b(8)=ans
3759 b(9)=ccc*(4*(p6p7*p2p3)*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-8*fb4*
3760 . hbcm-hbcm)+8*(p4p6*p3p7)*(4*fb3*fmb+8*fb4*ffmcfmb*hbcm-8*fb4*
3761 . hbcm-hbcm)+8*(p4p7*p3p6)*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*
3762 . hbcm-hbcm)+8*(p6p7*p3p4)*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*
3763 . hbcm+hbcm)+8*(p6p7*p1p3)*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*
3764 . hbcm-hbcm)+4*(p3p7*p3p6)*(16*fb3*ffmcfmb*fmb-4*fb3*ffmcfmb*fmc
3765 . +4*fb3*fmc+4*fb4*ffmcfmb**2*hbcm+4*fb4*ffmcfmb*hbcm-8*fb4*hbcm
3766 . -3*ffmcfmb*hbcm-hbcm)+2*p6p7*(-12*fb3*ffmcfmb*fmb*hbcm2+4*fb3*
3767 . ffmcfmb*fmc*hbcm2-4*fb3*fmc*hbcm2-4*fb4*ffmcfmb**2*hbcm3-4*fb4
3768 . *ffmcfmb*hbcm3+4*fb4*fmb*fmc*hbcm-8*fb4*fmb2*hbcm+8*fb4*hbcm3+
3769 . 2*ffmcfmb*hbcm3-fmb*hbcm2+fmc*hbcm2+hbcm3)+32*(fb4*hbcm*p1p2*
3770 . p6p7-fb4*hbcm*p2p4*p6p7))
3771 ans5=16*(-hbcm2*p1p2*p1p8*p6p7+hbcm2*p1p2*p4p8*p6p7+hbcm2*p1p8*
3772 . p2p3*p6p7+hbcm2*p1p8*p2p4*p6p7-hbcm2*p2p3*p4p8*p6p7-hbcm2*p2p4
3773 . *p4p8*p6p7)
3774 ans4=16*(p4p8*p4p6*p3p7)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(
3775 . p4p8*p4p7*p3p6)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(p6p7*p4p8*
3776 . p3p4)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(p4p6*p3p7*p1p8)*(
3777 . ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(p4p7*p3p6*p1p8)*(-ffmcfmb*
3778 . hbcm2-fmb*hbcm+hbcm2)+16*(p6p7*p3p4*p1p8)*(ffmcfmb*hbcm2+fmb*
3779 . hbcm-hbcm2)+16*(p6p7*p4p8*p1p3)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)
3780 . +16*(p6p7*p1p8*p1p3)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+4*(p6p7*
3781 . p4p8)*(-ffmcfmb**2*hbcm4-3*ffmcfmb*fmb*hbcm3-ffmcfmb*fmc*hbcm3
3782 . -ffmcfmb*hbcm4-fmb*fmc*hbcm2-2*fmb2*hbcm2+fmc*hbcm3+2*hbcm4)+4
3783 . *(p6p7*p1p8)*(ffmcfmb**2*hbcm4+3*ffmcfmb*fmb*hbcm3+ffmcfmb*fmc
3784 . *hbcm3+ffmcfmb*hbcm4+fmb*fmc*hbcm2+2*fmb2*hbcm2-fmc*hbcm3-2*
3785 . hbcm4)+8*(p4p8*p3p7*p3p6)*(-ffmcfmb**2*hbcm2+4*ffmcfmb*fmb*
3786 . hbcm+ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-2*fmb*hbcm-fmc*hbcm)+8*(
3787 . p3p7*p3p6*p1p8)*(ffmcfmb**2*hbcm2-4*ffmcfmb*fmb*hbcm-ffmcfmb*
3788 . fmc*hbcm-ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm)+ans5
3789 ans3=w5*ans4
3790 ans7=64*(3*fb3*ffmcfmb*p2p8*p3p6*p3p7+fb3*p1p2*p3p6*p7p8-fb3*
3791 . p1p2*p3p7*p6p8+fb3*p1p3*p2p8*p6p7+fb3*p2p3*p3p7*p6p8-fb3*p2p3*
3792 . p4p6*p7p8-fb3*p2p4*p3p6*p7p8+fb3*p2p4*p3p7*p6p8-fb3*p2p8*p3p4*
3793 . p6p7+fb3*p2p8*p3p6*p4p7+2*fb3*p2p8*p3p7*p4p6)
3794 ans6=64*(p4p8*p3p7*p3p6)*(-fb3*ffmcfmb+fb3)+64*(p6p8*p3p7*p3p4)
3795 . *(fb3*ffmcfmb-fb3)+64*(p7p8*p3p6*p2p3)*(-fb3*ffmcfmb-fb3)+64*(
3796 . p3p7*p3p6*p1p8)*(fb3*ffmcfmb-fb3)+64*(p6p8*p3p7*p1p3)*(-fb3*
3797 . ffmcfmb+fb3)+8*(p6p7*p4p8)*(4*fb3*ffmcfmb*hbcm2-4*fb3*hbcm2+4*
3798 . fb4*fmb*hbcm+hbcm2)+8*(p6p8*p4p7)*(-4*fb3*ffmcfmb*hbcm2+4*fb3*
3799 . hbcm2-4*fb4*fmb*hbcm-hbcm2)+8*(p7p8*p4p6)*(4*fb3*ffmcfmb*hbcm2
3800 . -4*fb3*hbcm2+4*fb4*fmb*hbcm+hbcm2)+4*(p6p8*p3p7)*(8*fb3*
3801 . ffmcfmb*hbcm2+4*fb3*fmb*fmc+8*fb3*fmb2-8*fb3*hbcm2-4*fb4*
3802 . ffmcfmb*fmb*hbcm+ffmcfmb*hbcm2-3*fmb*hbcm-fmc*hbcm-2*hbcm2)+4*
3803 . (p6p7*p2p8)*(-12*fb3*ffmcfmb*hbcm2+4*fb4*fmc*hbcm-hbcm2)+8*(
3804 . p6p7*p1p8)*(-4*fb3*ffmcfmb*hbcm2+4*fb3*hbcm2-4*fb4*fmb*hbcm-
3805 . hbcm2)+4*(p7p8*p3p6)*(-4*fb3*ffmcfmb**2*hbcm2+4*fb3*ffmcfmb*
3806 . hbcm2-4*fb3*fmb*fmc-8*fb3*fmb2-12*fb4*ffmcfmb*fmb*hbcm-4*fb4*
3807 . ffmcfmb*fmc*hbcm+8*fb4*fmb*hbcm+4*fb4*fmc*hbcm+ffmcfmb*hbcm2-
3808 . fmb*hbcm+hbcm2)+ans7
3809 ans2=w8*(16*(p4p6*p3p7*p2p8)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16
3810 . *(p4p7*p3p6*p2p8)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(p6p7*p3p4
3811 . *p2p8)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(p6p7*p2p8*p1p3)*(
3812 . ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+4*(p6p7*p2p8)*(-ffmcfmb**2*hbcm4
3813 . -3*ffmcfmb*fmb*hbcm3-ffmcfmb*fmc*hbcm3-ffmcfmb*hbcm4-fmb*fmc*
3814 . hbcm2-2*fmb2*hbcm2+fmc*hbcm3+2*hbcm4)+8*(p3p7*p3p6*p2p8)*(-
3815 . ffmcfmb**2*hbcm2+4*ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+ffmcfmb*
3816 . hbcm2-2*fmb*hbcm-fmc*hbcm)+16*(hbcm2*p1p2*p2p8*p6p7-hbcm2*p2p3
3817 . *p2p8*p6p7-hbcm2*p2p4*p2p8*p6p7))+ans3+ans6
3818 ans1=w1*(16*(p4p8*p4p6*p3p7)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16
3819 . *(p4p8*p4p7*p3p6)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(p6p7*p4p8
3820 . *p3p4)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(p6p7*p4p8*p1p3)*(
3821 . ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+4*(p6p7*p4p8)*(-ffmcfmb**2*hbcm4
3822 . -3*ffmcfmb*fmb*hbcm3-ffmcfmb*fmc*hbcm3-ffmcfmb*hbcm4-fmb*fmc*
3823 . hbcm2-2*fmb2*hbcm2+fmc*hbcm3+2*hbcm4)+8*(p4p8*p3p7*p3p6)*(-
3824 . ffmcfmb**2*hbcm2+4*ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+ffmcfmb*
3825 . hbcm2-2*fmb*hbcm-fmc*hbcm)+16*(hbcm2*p1p2*p4p8*p6p7-hbcm2*p2p3
3826 . *p4p8*p6p7-hbcm2*p2p4*p4p8*p6p7))+ans2
3827 ans=ccc*ans1
3828 b(10)=ans
3829 ans=ccc*(w1*(6*p4p8*(ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2+
3830 . ffmcfmb*hbcm3-fmb*fmc*hbcm+fmb2*hbcm+fmc*hbcm2-hbcm3)+4*(
3831 . ffmcfmb*hbcm*p2p3*p4p8+hbcm*p1p2*p4p8+hbcm*p2p4*p4p8-3*hbcm*
3832 . p2p5*p4p8))+w8*(6*p2p8*(ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2+
3833 . ffmcfmb*hbcm3-fmb*fmc*hbcm+fmb2*hbcm+fmc*hbcm2-hbcm3)+4*(
3834 . ffmcfmb*hbcm*p2p3*p2p8+hbcm*p1p2*p2p8+hbcm*p2p4*p2p8-3*hbcm*
3835 . p2p5*p2p8))+w5*(6*p4p8*(ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2+
3836 . ffmcfmb*hbcm3-fmb*fmc*hbcm+fmb2*hbcm+fmc*hbcm2-hbcm3)+6*p1p8*(
3837 . -ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3+fmb*fmc*
3838 . hbcm-fmb2*hbcm-fmc*hbcm2+hbcm3)+4*(-ffmcfmb*hbcm*p1p8*p2p3+
3839 . ffmcfmb*hbcm*p2p3*p4p8-hbcm*p1p2*p1p8+hbcm*p1p2*p4p8-hbcm*p1p8
3840 . *p2p4+3*hbcm*p1p8*p2p5+hbcm*p2p4*p4p8-3*hbcm*p2p5*p4p8))+(6*
3841 . p5p8*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+hbcm)+2*p4p8*(4
3842 . *fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm)+8*p2p8*(3*fb3*fmb
3843 . +3*fb4*ffmcfmb*hbcm-3*fb4*hbcm-hbcm)+2*p1p8*(4*fb3*fmb+4*fb4*
3844 . ffmcfmb*hbcm-4*fb4*hbcm-hbcm)))
3845 b(11)=ans
3846 b(12)=ccc*(12*fb3*ffmcfmb*hbcm2+8*fb3*ffmcfmb*p2p3+12*fb3*fmb*
3847 . fmc+12*fb3*fmb2-12*fb3*hbcm2+8*fb3*p1p2+8*fb3*p2p4-24*fb3*p2p5
3848 . +12*fb4*ffmcfmb*fmb*hbcm+12*fb4*ffmcfmb*fmc*hbcm-12*fb4*fmc*
3849 . hbcm-3*fmb*hbcm-3*fmc*hbcm+3*hbcm2)
3850 ans3=(6*p5p8*(4*fb3*ffmcfmb*hbcm2-4*fb3*hbcm2+4*fb4*fmb*hbcm+
3851 . hbcm2)+2*p4p8*(-4*fb3*ffmcfmb*hbcm2+4*fb3*hbcm2-4*fb4*fmb*hbcm
3852 . -hbcm2)+8*p2p8*(-3*fb3*ffmcfmb*hbcm2+3*fb3*hbcm2-3*fb4*fmb*
3853 . hbcm-hbcm2)+2*p1p8*(-4*fb3*ffmcfmb*hbcm2+4*fb3*hbcm2-4*fb4*fmb
3854 . *hbcm-hbcm2))
3855 ans2=w5*(12*(p4p8*p3p5)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+4*(p4p8
3856 . *p3p4)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+4*(p4p8*p2p3)*(4*ffmcfmb
3857 . *hbcm2+3*fmb*hbcm-3*hbcm2)+12*(p3p5*p1p8)*(ffmcfmb*hbcm2+fmb*
3858 . hbcm-hbcm2)+4*(p3p4*p1p8)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+4*(
3859 . p2p3*p1p8)*(-4*ffmcfmb*hbcm2-3*fmb*hbcm+3*hbcm2)+4*(p4p8*p1p3)
3860 . *(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+4*(p1p8*p1p3)*(-ffmcfmb*hbcm2-
3861 . fmb*hbcm+hbcm2)+2*p4p8*(2*ffmcfmb**2*hbcm4+5*ffmcfmb*fmb*hbcm3
3862 . +3*ffmcfmb*fmc*hbcm3-5*ffmcfmb*hbcm4+3*fmb*fmc*hbcm2-6*fmb*
3863 . hbcm3+3*fmb2*hbcm2-3*fmc*hbcm3+3*hbcm4)+2*p1p8*(-2*ffmcfmb**2*
3864 . hbcm4-5*ffmcfmb*fmb*hbcm3-3*ffmcfmb*fmc*hbcm3+5*ffmcfmb*hbcm4-
3865 . 3*fmb*fmc*hbcm2+6*fmb*hbcm3-3*fmb2*hbcm2+3*fmc*hbcm3-3*hbcm4)+
3866 . 4*(-hbcm2*p1p2*p1p8+hbcm2*p1p2*p4p8-hbcm2*p1p8*p2p4+3*hbcm2*
3867 . p1p8*p2p5+hbcm2*p2p4*p4p8-3*hbcm2*p2p5*p4p8))+ans3
3868 ans1=w1*(12*(p4p8*p3p5)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+4*(p4p8
3869 . *p3p4)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+4*(p4p8*p2p3)*(4*ffmcfmb
3870 . *hbcm2+3*fmb*hbcm-3*hbcm2)+4*(p4p8*p1p3)*(ffmcfmb*hbcm2+fmb*
3871 . hbcm-hbcm2)+2*p4p8*(2*ffmcfmb**2*hbcm4+5*ffmcfmb*fmb*hbcm3+3*
3872 . ffmcfmb*fmc*hbcm3-5*ffmcfmb*hbcm4+3*fmb*fmc*hbcm2-6*fmb*hbcm3+
3873 . 3*fmb2*hbcm2-3*fmc*hbcm3+3*hbcm4)+4*(hbcm2*p1p2*p4p8+hbcm2*
3874 . p2p4*p4p8-3*hbcm2*p2p5*p4p8))+w8*(12*(p3p5*p2p8)*(-ffmcfmb*
3875 . hbcm2-fmb*hbcm+hbcm2)+4*(p3p4*p2p8)*(ffmcfmb*hbcm2+fmb*hbcm-
3876 . hbcm2)+4*(p2p8*p2p3)*(4*ffmcfmb*hbcm2+3*fmb*hbcm-3*hbcm2)+4*(
3877 . p2p8*p1p3)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+2*p2p8*(2*ffmcfmb**2
3878 . *hbcm4+5*ffmcfmb*fmb*hbcm3+3*ffmcfmb*fmc*hbcm3-5*ffmcfmb*hbcm4
3879 . +3*fmb*fmc*hbcm2-6*fmb*hbcm3+3*fmb2*hbcm2-3*fmc*hbcm3+3*hbcm4)
3880 . +4*(hbcm2*p1p2*p2p8+hbcm2*p2p4*p2p8-3*hbcm2*p2p5*p2p8))+ans2
3881 ans=ccc*ans1
3882 b(13)=ans
3883 b(14)=ccc*(6*p3p5*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm
3884 . )+2*p3p4*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+hbcm)+2*
3885 . p2p3*(-12*fb3*fmb-16*fb4*ffmcfmb*hbcm+12*fb4*hbcm+3*hbcm)+2*
3886 . p1p3*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+hbcm)+(-20*fb3*
3887 . ffmcfmb*fmb*hbcm2+12*fb3*ffmcfmb*fmc*hbcm2+24*fb3*fmb*hbcm2-12
3888 . *fb3*fmc*hbcm2-8*fb4*ffmcfmb**2*hbcm3+20*fb4*ffmcfmb*hbcm3+12*
3889 . fb4*fmb*fmc*hbcm-12*fb4*fmb2*hbcm-8*fb4*hbcm*p1p2-8*fb4*hbcm*
3890 . p2p4+24*fb4*hbcm*p2p5-12*fb4*hbcm3+2*ffmcfmb*hbcm3-3*fmb*hbcm2
3891 . +3*fmc*hbcm2-3*hbcm3))
3892 b(15)=ccc*(w1*(4*(p4p8*p3p6)*(ffmcfmb*hbcm2-fmc*hbcm-2*hbcm2)-
3893 . 16*hbcm2*p4p6*p4p8)+w8*(4*(p3p6*p2p8)*(ffmcfmb*hbcm2-fmc*hbcm-
3894 . 2*hbcm2)-16*hbcm2*p2p8*p4p6)+w5*(4*(p4p8*p3p6)*(ffmcfmb*hbcm2-
3895 . fmc*hbcm-2*hbcm2)+4*(p3p6*p1p8)*(-ffmcfmb*hbcm2+fmc*hbcm+2*
3896 . hbcm2)+16*(hbcm2*p1p8*p4p6-hbcm2*p4p6*p4p8))+(2*p6p8*(-12*fb3*
3897 . ffmcfmb*hbcm2+4*fb4*fmc*hbcm-hbcm2)+32*(fb3*p1p3*p6p8-fb3*p1p8
3898 . *p3p6-fb3*p3p4*p6p8+fb3*p3p6*p4p8)))
3899 b(16)=ccc*(w1*(8*(p4p8*p3p6)*(ffmcfmb*hbcm+hbcm)+24*hbcm*p4p6*
3900 . p4p8)+w8*(8*(p3p6*p2p8)*(ffmcfmb*hbcm+hbcm)+24*hbcm*p2p8*p4p6)
3901 . +w5*(8*(p4p8*p3p6)*(ffmcfmb*hbcm+hbcm)+8*(p3p6*p1p8)*(-ffmcfmb
3902 . *hbcm-hbcm)+24*(-hbcm*p1p8*p4p6+hbcm*p4p6*p4p8))+2*p6p8*(-4*
3903 . fb3*fmc-4*fb4*ffmcfmb*hbcm-hbcm))
3904 b(17)=ccc*(w1*(2*p4p8*(-5*ffmcfmb*hbcm3-3*fmc*hbcm2+6*hbcm3)+4*
3905 . (-hbcm*p1p3*p4p8-3*hbcm*p2p3*p4p8-hbcm*p3p4*p4p8+3*hbcm*p3p5*
3906 . p4p8))+w8*(2*p2p8*(-5*ffmcfmb*hbcm3-3*fmc*hbcm2+6*hbcm3)+4*(-
3907 . hbcm*p1p3*p2p8-3*hbcm*p2p3*p2p8-hbcm*p2p8*p3p4+3*hbcm*p2p8*
3908 . p3p5))+w5*(2*p4p8*(-5*ffmcfmb*hbcm3-3*fmc*hbcm2+6*hbcm3)+2*
3909 . p1p8*(5*ffmcfmb*hbcm3+3*fmc*hbcm2-6*hbcm3)+4*(hbcm*p1p3*p1p8-
3910 . hbcm*p1p3*p4p8+3*hbcm*p1p8*p2p3+hbcm*p1p8*p3p4-3*hbcm*p1p8*
3911 . p3p5-3*hbcm*p2p3*p4p8-hbcm*p3p4*p4p8+3*hbcm*p3p5*p4p8))+8*(fb4
3912 . *hbcm*p1p8+3*fb4*hbcm*p2p8+fb4*hbcm*p4p8-3*fb4*hbcm*p5p8))
3913 b(18)=ccc*(w1*(4*(p4p8*p3p7)*(-4*ffmcfmb*hbcm2+3*hbcm2)+4*(-
3914 . hbcm2*p4p7*p4p8+3*hbcm2*p4p8*p5p7))+w8*(4*(p3p7*p2p8)*(-4*
3915 . ffmcfmb*hbcm2+3*hbcm2)+4*(-hbcm2*p2p8*p4p7+3*hbcm2*p2p8*p5p7))
3916 . +w5*(4*(p4p8*p3p7)*(-4*ffmcfmb*hbcm2+3*hbcm2)+4*(p3p7*p1p8)*(4
3917 . *ffmcfmb*hbcm2-3*hbcm2)+4*(hbcm2*p1p8*p4p7-3*hbcm2*p1p8*p5p7-
3918 . hbcm2*p4p7*p4p8+3*hbcm2*p4p8*p5p7))+8*hbcm2*p7p8)
3919 b(19)=ccc*(6*w1*p4p8*(-ffmcfmb*hbcm2+fmc*hbcm)+6*w8*p2p8*(-
3920 . ffmcfmb*hbcm2+fmc*hbcm)+w5*(6*p4p8*(-ffmcfmb*hbcm2+fmc*hbcm)+6
3921 . *p1p8*(ffmcfmb*hbcm2-fmc*hbcm))+8*(-fb3*p1p8-3*fb3*p2p8-fb3*
3922 . p4p8+3*fb3*p5p8))
3923 b(20)=ccc*(w1*(4*(p4p8*p3p7)*(-4*ffmcfmb*hbcm+3*hbcm)+4*(-hbcm*
3924 . p4p7*p4p8+3*hbcm*p4p8*p5p7))+w8*(4*(p3p7*p2p8)*(-4*ffmcfmb*
3925 . hbcm+3*hbcm)+4*(-hbcm*p2p8*p4p7+3*hbcm*p2p8*p5p7))+w5*(4*(p4p8
3926 . *p3p7)*(-4*ffmcfmb*hbcm+3*hbcm)+4*(p3p7*p1p8)*(4*ffmcfmb*hbcm-
3927 . 3*hbcm)+4*(hbcm*p1p8*p4p7-3*hbcm*p1p8*p5p7-hbcm*p4p7*p4p8+3*
3928 . hbcm*p4p8*p5p7))+8*hbcm*p7p8)
3929 b(21)=3*ccc*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)
3930 b(22)=ccc*(20*fb3*ffmcfmb*hbcm2-24*fb3*hbcm2+8*fb3*p1p3+24*fb3*
3931 . p2p3+8*fb3*p3p4-24*fb3*p3p5-12*fb4*fmc*hbcm+3*hbcm2)
3932 b(23)=ccc*(8*p3p7*(4*fb4*ffmcfmb*hbcm-3*fb4*hbcm)+8*(fb4*hbcm*
3933 . p4p7-3*fb4*hbcm*p5p7))
3934 b(24)=ccc*(2*p3p6*(4*fb3*fmc-4*fb4*ffmcfmb*hbcm-8*fb4*hbcm-hbcm
3935 . )-48*fb4*hbcm*p4p6)
3936 b(25)=ccc*(6*p5p7*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm
3937 . )+2*p4p7*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+hbcm)+2*
3938 . p3p7*(-16*fb3*ffmcfmb*fmb+12*fb3*ffmcfmb*fmc+12*fb3*fmb-12*fb3
3939 . *fmc-4*fb4*ffmcfmb**2*hbcm+16*fb4*ffmcfmb*hbcm-12*fb4*hbcm+
3940 . ffmcfmb*hbcm))
3941 b(26)=ccc*(12*p4p6*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-
3942 . hbcm)+4*p3p6*(4*fb3*ffmcfmb*fmb+4*fb3*fmb+4*fb4*ffmcfmb**2*
3943 . hbcm-4*fb4*hbcm-ffmcfmb*hbcm-hbcm))
3944 b(27)=ccc*(2*p6p7*(12*fb3*ffmcfmb*hbcm2-4*fb4*fmc*hbcm+hbcm2)+
3945 . 32*(-2*fb3*ffmcfmb*p3p6*p3p7-fb3*p1p3*p6p7+fb3*p3p4*p6p7-fb3*
3946 . p3p6*p4p7-fb3*p3p7*p4p6))
3947 b(28)=ccc*(4*w1*(p6p7*p4p8)*(ffmcfmb*hbcm2-fmc*hbcm)+4*w8*(p6p7
3948 . *p2p8)*(ffmcfmb*hbcm2-fmc*hbcm)+w5*(4*(p6p7*p4p8)*(ffmcfmb*
3949 . hbcm2-fmc*hbcm)+4*(p6p7*p1p8)*(-ffmcfmb*hbcm2+fmc*hbcm))+32*(-
3950 . fb3*ffmcfmb*p3p6*p7p8-fb3*ffmcfmb*p3p7*p6p8-fb3*p1p8*p6p7-fb3*
3951 . p4p6*p7p8-fb3*p4p7*p6p8+fb3*p4p8*p6p7))
3952 b(29)=ccc*(16*p3p6*(-2*fb3*ffmcfmb-fb3)-64*fb3*p4p6)
3953 b(30)=ccc*(8*p3p7*(4*fb3*ffmcfmb-3*fb3)+8*(fb3*p4p7-3*fb3*p5p7)
3954 . )
3955 ans=ccc*(w1*(4*(p6p7*p4p8)*(-3*ffmcfmb*hbcm3-fmc*hbcm2)+16*(2*
3956 . ffmcfmb*hbcm*p3p6*p3p7*p4p8+hbcm*p1p3*p4p8*p6p7-hbcm*p3p4*p4p8
3957 . *p6p7+hbcm*p3p6*p4p7*p4p8+hbcm*p3p7*p4p6*p4p8))+w8*(4*(p6p7*
3958 . p2p8)*(-3*ffmcfmb*hbcm3-fmc*hbcm2)+16*(2*ffmcfmb*hbcm*p2p8*
3959 . p3p6*p3p7+hbcm*p1p3*p2p8*p6p7-hbcm*p2p8*p3p4*p6p7+hbcm*p2p8*
3960 . p3p6*p4p7+hbcm*p2p8*p3p7*p4p6))+w5*(4*(p6p7*p4p8)*(-3*ffmcfmb*
3961 . hbcm3-fmc*hbcm2)+4*(p6p7*p1p8)*(3*ffmcfmb*hbcm3+fmc*hbcm2)+16*
3962 . (-2*ffmcfmb*hbcm*p1p8*p3p6*p3p7+2*ffmcfmb*hbcm*p3p6*p3p7*p4p8-
3963 . hbcm*p1p3*p1p8*p6p7+hbcm*p1p3*p4p8*p6p7+hbcm*p1p8*p3p4*p6p7-
3964 . hbcm*p1p8*p3p6*p4p7-hbcm*p1p8*p3p7*p4p6-hbcm*p3p4*p4p8*p6p7+
3965 . hbcm*p3p6*p4p7*p4p8+hbcm*p3p7*p4p6*p4p8))+(8*(p6p8*p3p7)*(-4*
3966 . fb4*ffmcfmb*hbcm-hbcm)+8*(p7p8*p3p6)*(-4*fb4*ffmcfmb*hbcm-hbcm
3967 . )+32*(-fb4*hbcm*p1p8*p6p7-fb4*hbcm*p4p6*p7p8-fb4*hbcm*p4p7*
3968 . p6p8+fb4*hbcm*p4p8*p6p7)))
3969 b(31)=ans
3970 b(32)=2*ccc*p6p7*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)
3971 do 200 n=1,32
3972 c(n,1)=c(n,1)-0.1818181818181818d0*b(n)
3973 c(n,2)=c(n,2)-0.1512818716977898d0*b(n)
3974 c(n,3)=c(n,3)-0.1869893980016914d0*b(n)
3975 200 continue
3976 return
3977 end
3978
3979 subroutine amp5_1p1(cc)
3980 implicit double precision(a-h,o-z)
3981 implicit integer (i-n)
3982 dimension b(31)
3983 #include "inclcon.h"
3984 #include "inclppp.h"
3985 #include "inclamp.h"
3986 do 100 n=1,31
3987 b(n)=0.0d0
3988 100 continue
3989 ccc=cc/((-2*p1p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3+2*ffmcfmb*
3990 . p3p4+fmc2-2*p1p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2+2*ffmcfmb*
3991 . p2p3-fmb2+hbcm2-2*p2p3))
3992 b(3)=ccc*(8*w8*(p3p7*p2p8)*(ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm-
3993 . ffmcfmb*hbcm2-fmc*hbcm+hbcm2)+w5*(8*(p4p8*p3p7)*(ffmcfmb*fmb*
3994 . hbcm+ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2-fmc*hbcm+hbcm2)+8*(p3p7*
3995 . p1p8)*(-ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2+fmc*
3996 . hbcm-hbcm2))+(4*p7p8*(-4*fb3*ffmcfmb*hbcm2-4*fb3*fmb*fmc-4*fb3
3997 . *fmb2+4*fb3*hbcm2-4*fb4*ffmcfmb*fmb*hbcm-4*fb4*ffmcfmb*fmc*
3998 . hbcm+4*fb4*fmc*hbcm+hbcm2)+32*(fb3*p2p5*p7p8+fb3*p2p8*p3p7+fb3
3999 . *p2p8*p5p7)))
4000 b(4)=ccc*(4*p3p7*(4*fb3*fmb*fmc+4*fb3*fmb2-fmb*hbcm-fmc*hbcm)+
4001 . 32*(fb3*p2p3*p5p7-fb3*p2p5*p3p7))
4002 ans2=(8*(p5p8*p3p7)*(4*fb3*fmb-hbcm)+32*(p7p8*p3p5)*(-fb3*fmb-
4003 . fb4*ffmcfmb*hbcm+fb4*hbcm)+8*(p3p7*p2p8)*(-4*fb3*fmb+hbcm)+32*
4004 . (p7p8*p2p3)*(fb3*fmb+fb4*ffmcfmb*hbcm-fb4*hbcm)+4*p7p8*(4*fb3*
4005 . ffmcfmb*fmb*hbcm2-4*fb3*ffmcfmb*fmc*hbcm2-8*fb3*fmb*hbcm2+4*
4006 . fb3*fmc*hbcm2-4*fb4*ffmcfmb*hbcm3-4*fb4*fmb*fmc*hbcm+4*fb4*
4007 . fmb2*hbcm+4*fb4*hbcm3-fmb*hbcm2+fmc*hbcm2)+32*(-fb4*hbcm*p2p5*
4008 . p7p8+fb4*hbcm*p2p8*p5p7))
4009 ans1=w8*(8*(p5p7*p2p8)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+16*(
4010 . p3p7*p3p5*p2p8)*(ffmcfmb*hbcm-hbcm)+16*(p3p7*p2p8*p2p3)*(-
4011 . ffmcfmb*hbcm+hbcm)+8*(p3p7*p2p8)*(ffmcfmb*fmb*hbcm2-ffmcfmb*
4012 . fmc*hbcm2+ffmcfmb*hbcm3+fmb*fmc*hbcm-fmb*hbcm2-fmb2*hbcm+fmc*
4013 . hbcm2-hbcm3)+16*(-hbcm*p2p3*p2p8*p5p7+hbcm*p2p5*p2p8*p3p7))+w5
4014 . *(8*(p5p7*p4p8)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+8*(p5p7*p1p8)
4015 . *(ffmcfmb*hbcm3+fmb*hbcm2-hbcm3)+16*(p4p8*p3p7*p3p5)*(ffmcfmb*
4016 . hbcm-hbcm)+16*(p4p8*p3p7*p2p3)*(-ffmcfmb*hbcm+hbcm)+16*(p3p7*
4017 . p3p5*p1p8)*(-ffmcfmb*hbcm+hbcm)+16*(p3p7*p2p3*p1p8)*(ffmcfmb*
4018 . hbcm-hbcm)+8*(p4p8*p3p7)*(ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2+
4019 . ffmcfmb*hbcm3+fmb*fmc*hbcm-fmb*hbcm2-fmb2*hbcm+fmc*hbcm2-hbcm3
4020 . )+8*(p3p7*p1p8)*(-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2-ffmcfmb*
4021 . hbcm3-fmb*fmc*hbcm+fmb*hbcm2+fmb2*hbcm-fmc*hbcm2+hbcm3)+16*(
4022 . hbcm*p1p8*p2p3*p5p7-hbcm*p1p8*p2p5*p3p7-hbcm*p2p3*p4p8*p5p7+
4023 . hbcm*p2p5*p3p7*p4p8))+ans2
4024 ans=ccc*ans1
4025 b(5)=ans
4026 b(11)=ccc*(w8*(4*p2p8*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+8*(-hbcm
4027 . *p2p3*p2p8-hbcm*p2p5*p2p8))+w5*(4*p4p8*(-ffmcfmb*hbcm3-fmb*
4028 . hbcm2+hbcm3)+4*p1p8*(ffmcfmb*hbcm3+fmb*hbcm2-hbcm3)+8*(hbcm*
4029 . p1p8*p2p3+hbcm*p1p8*p2p5-hbcm*p2p3*p4p8-hbcm*p2p5*p4p8))+(4*
4030 . p2p8*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+4*p5p8*(-4*fb3*fmb-4*
4031 . fb4*ffmcfmb*hbcm+4*fb4*hbcm+hbcm)))
4032 b(12)=2*ccc*(4*fb3*fmb*fmc+4*fb3*fmb2-8*fb3*p2p3-16*fb3*p2p5+4*
4033 . fb4*ffmcfmb*fmb*hbcm+4*fb4*ffmcfmb*fmc*hbcm-4*fb4*fmb*hbcm-4*
4034 . fb4*fmc*hbcm-fmb*hbcm-fmc*hbcm)
4035 b(13)=ccc*(w8*(8*(p2p8*p2p3)*(-fmb*hbcm-fmc*hbcm)+4*p2p8*(-
4036 . ffmcfmb*fmb*hbcm3-ffmcfmb*fmc*hbcm3-fmb*fmc*hbcm2+fmb*hbcm3-
4037 . fmb2*hbcm2+fmc*hbcm3))+w5*(8*(p4p8*p2p3)*(-fmb*hbcm-fmc*hbcm)+
4038 . 8*(p2p3*p1p8)*(fmb*hbcm+fmc*hbcm)+4*p4p8*(-ffmcfmb*fmb*hbcm3-
4039 . ffmcfmb*fmc*hbcm3-fmb*fmc*hbcm2+fmb*hbcm3-fmb2*hbcm2+fmc*hbcm3
4040 . )+4*p1p8*(ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*hbcm3+fmb*fmc*hbcm2-
4041 . fmb*hbcm3+fmb2*hbcm2-fmc*hbcm3))+(16*p2p8*(fb3*hbcm2+fb4*fmb*
4042 . hbcm+fb4*fmc*hbcm)+32*(-fb3*p2p3*p5p8+fb3*p2p8*p3p5)))
4043 b(14)=ccc*(4*p2p3*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+
4044 . hbcm)+4*p3p5*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm)+2*
4045 . (4*fb3*fmb*hbcm2+4*fb4*ffmcfmb*hbcm3+8*fb4*hbcm*p2p5-4*fb4*
4046 . hbcm3-hbcm3))
4047 b(17)=ccc*(w8*(4*p2p8*(ffmcfmb*hbcm3+fmb*hbcm2)+8*hbcm*p2p8*
4048 . p3p5)+w5*(4*p4p8*(ffmcfmb*hbcm3+fmb*hbcm2)+4*p1p8*(-ffmcfmb*
4049 . hbcm3-fmb*hbcm2)+8*(-hbcm*p1p8*p3p5+hbcm*p3p5*p4p8))-16*fb4*
4050 . hbcm*p5p8)
4051 b(18)=ccc*(8*w8*(p3p7*p2p8)*(ffmcfmb*hbcm2+fmc*hbcm-hbcm2)+w5*(
4052 . 8*(p4p8*p3p7)*(ffmcfmb*hbcm2+fmc*hbcm-hbcm2)+8*(p3p7*p1p8)*(-
4053 . ffmcfmb*hbcm2-fmc*hbcm+hbcm2))+(4*p7p8*(4*fb3*ffmcfmb*hbcm2-8*
4054 . fb3*hbcm2-4*fb4*fmc*hbcm-hbcm2)+32*(fb3*p2p3*p7p8-fb3*p2p8*
4055 . p3p7-fb3*p3p5*p7p8+fb3*p3p7*p5p8)))
4056 b(19)=ccc*(4*w8*p2p8*(fmb*hbcm+fmc*hbcm)+w5*(4*p4p8*(fmb*hbcm+
4057 . fmc*hbcm)+4*p1p8*(-fmb*hbcm-fmc*hbcm))+16*(-fb3*p2p8+2*fb3*
4058 . p5p8))
4059 b(20)=ccc*(8*w8*(ffmcfmb*hbcm*p2p8*p3p7+hbcm*p2p8*p5p7)+8*w5*(-
4060 . ffmcfmb*hbcm*p1p8*p3p7+ffmcfmb*hbcm*p3p7*p4p8-hbcm*p1p8*p5p7+
4061 . hbcm*p4p8*p5p7)+16*p7p8*(-fb3*fmc-fb4*ffmcfmb*hbcm))
4062 b(21)=2*ccc*(4*fb3*fmb-8*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)
4063 b(22)=8*ccc*(-2*fb3*hbcm2+2*fb3*p2p3-4*fb3*p3p5-fb4*fmb*hbcm-
4064 . fb4*fmc*hbcm)
4065 b(23)=ccc*(4*p3p7*(4*fb3*fmc-hbcm)-16*fb4*hbcm*p5p7)
4066 b(25)=ccc*(4*p5p7*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm
4067 . )+4*p3p7*(4*fb3*fmb-hbcm))
4068 b(30)=16*ccc*(-fb3*p3p7-2*fb3*p5p7)
4069 do 200 n=1,31
4070 c(n,2)=c(n,2)+0.09245003270420485d0*b(n)
4071 c(n,3)=c(n,3)-0.02077659977796572d0*b(n)
4072 200 continue
4073 return
4074 end
4075
4076 subroutine amp4_1p1(cc)
4077 implicit double precision(a-h,o-z)
4078 implicit integer (i-n)
4079 dimension b(30)
4080 #include "inclcon.h"
4081 #include "inclppp.h"
4082 #include "inclamp.h"
4083 do 100 n=1,30
4084 b(n)=0.0d0
4085 100 continue
4086 ccc=cc/((-2*p1p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*
4087 . p3p5+fmb2+hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p2p3-fmc2)
4088 . )
4089 b(3)=ccc*(8*w2*(p5p8*p3p7)*(-ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm+
4090 . ffmcfmb*hbcm2+fmc*hbcm)+8*w7*(p3p7*p2p8)*(-ffmcfmb*fmb*hbcm-
4091 . ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2+fmc*hbcm)+(4*p7p8*(4*fb3*
4092 . ffmcfmb*hbcm2+4*fb4*fmc*hbcm-fmb*hbcm-fmc*hbcm+hbcm2)+32*(fb3*
4093 . p2p5*p7p8+fb3*p2p8*p3p7+fb3*p2p8*p5p7)))
4094 b(4)=ccc*(16*p3p7*(-fb4*ffmcfmb*fmb*hbcm-fb4*ffmcfmb*fmc*hbcm)+
4095 . 32*(fb3*p2p3*p5p7-fb3*p2p5*p3p7))
4096 b(5)=ccc*(w2*(8*(p5p8*p5p7)*(ffmcfmb*hbcm3-fmc*hbcm2)+8*(p5p8*
4097 . p3p7)*(-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3-fmb*
4098 . fmc*hbcm+fmc2*hbcm)+16*(ffmcfmb*hbcm*p2p3*p3p7*p5p8-ffmcfmb*
4099 . hbcm*p3p5*p3p7*p5p8))+w7*(8*(p5p7*p2p8)*(ffmcfmb*hbcm3-fmc*
4100 . hbcm2)+8*(p3p7*p2p8)*(-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2-
4101 . ffmcfmb*hbcm3-fmb*fmc*hbcm+fmc2*hbcm)+16*(ffmcfmb*hbcm*p2p3*
4102 . p2p8*p3p7-ffmcfmb*hbcm*p2p8*p3p5*p3p7))+(4*p7p8*(-4*fb3*
4103 . ffmcfmb*fmb*hbcm2+4*fb3*ffmcfmb*fmc*hbcm2-4*fb4*fmb*fmc*hbcm+4
4104 . *fb4*fmc2*hbcm-fmb*hbcm2+fmc*hbcm2-hbcm3)+8*(4*fb4*ffmcfmb*
4105 . hbcm*p2p8*p3p7-4*fb4*ffmcfmb*hbcm*p3p7*p5p8+hbcm*p2p3*p7p8-
4106 . hbcm*p3p5*p7p8)))
4107 b(11)=ccc*(w2*(4*p5p8*(ffmcfmb*hbcm3-fmc*hbcm2)+8*hbcm*p2p5*
4108 . p5p8)+w7*(4*p2p8*(ffmcfmb*hbcm3-fmc*hbcm2)+8*hbcm*p2p5*p2p8)+(
4109 . 4*p5p8*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+4*p2p8*(-4*fb3*fmb-
4110 . 4*fb4*ffmcfmb*hbcm+hbcm)))
4111 b(12)=2*ccc*(-4*fb3*fmb*fmc-4*fb3*fmc2-8*fb3*p2p3-16*fb3*p2p5-4
4112 . *fb4*ffmcfmb*fmb*hbcm-4*fb4*ffmcfmb*fmc*hbcm+fmb*hbcm+fmc*hbcm
4113 . )
4114 b(13)=ccc*(4*w2*p5p8*(ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*hbcm3-fmb*
4115 . fmc*hbcm2-fmc2*hbcm2)+4*w7*p2p8*(ffmcfmb*fmb*hbcm3+ffmcfmb*fmc
4116 . *hbcm3-fmb*fmc*hbcm2-fmc2*hbcm2)+16*(fb3*hbcm2*p2p8-2*fb3*p2p3
4117 . *p5p8+2*fb3*p2p8*p3p5))
4118 b(14)=ccc*(4*p3p5*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+4*p2p3*(
4119 . 4*fb3*fmb+4*fb4*ffmcfmb*hbcm-hbcm)+2*(-4*fb3*fmc*hbcm2-4*fb4*
4120 . ffmcfmb*hbcm3+8*fb4*hbcm*p2p5+hbcm3))
4121 b(17)=ccc*(w2*(4*p5p8*(-ffmcfmb*hbcm3+fmc*hbcm2-hbcm3)+8*(hbcm*
4122 . p2p3*p5p8-hbcm*p3p5*p5p8))+w7*(4*p2p8*(-ffmcfmb*hbcm3+fmc*
4123 . hbcm2-hbcm3)+8*(hbcm*p2p3*p2p8-hbcm*p2p8*p3p5))+16*(fb4*hbcm*
4124 . p2p8-fb4*hbcm*p5p8))
4125 b(18)=ccc*(8*w2*(p5p8*p3p7)*(-ffmcfmb*hbcm2-fmc*hbcm)+8*w7*(
4126 . p3p7*p2p8)*(-ffmcfmb*hbcm2-fmc*hbcm)+(4*p7p8*(-4*fb3*ffmcfmb*
4127 . hbcm2-4*fb3*hbcm2-4*fb4*fmc*hbcm-hbcm2)+32*(fb3*p2p3*p7p8-fb3*
4128 . p2p8*p3p7-fb3*p3p5*p7p8+fb3*p3p7*p5p8)))
4129 b(19)=ccc*(4*w2*p5p8*(-fmb*hbcm-fmc*hbcm)+4*w7*p2p8*(-fmb*hbcm-
4130 . fmc*hbcm)+16*(-fb3*p2p8+2*fb3*p5p8))
4131 b(20)=ccc*(8*w2*(-ffmcfmb*hbcm*p3p7*p5p8-hbcm*p5p7*p5p8)+8*w7*(
4132 . -ffmcfmb*hbcm*p2p8*p3p7-hbcm*p2p8*p5p7)+4*p7p8*(4*fb3*fmb-4*
4133 . fb3*fmc-hbcm))
4134 b(21)=2*ccc*(8*fb3*fmb-4*fb3*fmc+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-
4135 . hbcm)
4136 b(22)=8*ccc*(-2*fb3*hbcm2+2*fb3*p2p3-4*fb3*p3p5-fb4*fmb*hbcm-
4137 . fb4*fmc*hbcm)
4138 b(23)=ccc*(16*p3p7*(-fb3*fmb+fb3*fmc-fb4*ffmcfmb*hbcm)-16*fb4*
4139 . hbcm*p5p7)
4140 b(25)=ccc*(4*p5p7*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)-16*fb4*
4141 . ffmcfmb*hbcm*p3p7)
4142 b(30)=16*ccc*(-fb3*p3p7-2*fb3*p5p7)
4143 do 200 n=1,30
4144 c(n,2)=c(n,2)+0.09245003270420485d0*b(n)
4145 c(n,3)=c(n,3)-0.02077659977796572d0*b(n)
4146 200 continue
4147 return
4148 end
4149
4150 subroutine amp36_1p1(cc)
4151 implicit double precision(a-h,o-z)
4152 implicit integer (i-n)
4153 dimension b(32)
4154 #include "inclcon.h"
4155 #include "inclppp.h"
4156 #include "inclamp.h"
4157 do 100 n=1,32
4158 b(n)=0.0d0
4159 100 continue
4160 ccc=cc/((ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*p3p5+fmb2+
4161 . hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3+2*ffmcfmb*p3p4+
4162 . fmc2-2*p1p4)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2))
4163 b(1)=ccc*(32*(p4p6*p3p7)*(2*fb3*ffmcfmb-fb3)+16*(p5p7*p3p6)*(-
4164 . fb3*ffmcfmb-fb3)+16*(p4p7*p3p6)*(-fb3*ffmcfmb+2*fb3)+p6p7*(4*
4165 . fb3*ffmcfmb**2*hbcm2-12*fb3*ffmcfmb*hbcm2-4*fb3*fmb*fmc-8*fb3*
4166 . fmc2-4*fb4*ffmcfmb*fmb*hbcm-4*fb4*ffmcfmb*fmc*hbcm+4*fb4*fmc*
4167 . hbcm+fmb*hbcm+fmc*hbcm-hbcm2)+16*(fb3*ffmcfmb*p3p6*p3p7+fb3*
4168 . p1p2*p6p7+fb3*p1p3*p6p7+fb3*p1p4*p6p7-fb3*p2p3*p6p7-fb3*p2p4*
4169 . p6p7-fb3*p3p4*p6p7+fb3*p3p7*p5p6+2*fb3*p4p6*p4p7-3*fb3*p4p6*
4170 . p5p7+fb3*p4p7*p5p6))
4171 ans3=(2*(p6p8*p5p7)*(8*fb3*fmb-4*fb3*fmc+4*fb4*ffmcfmb*hbcm-8*
4172 . fb4*hbcm-hbcm)+4*(p6p7*p4p8)*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*
4173 . fb4*hbcm-hbcm)+2*(p6p8*p4p7)*(-8*fb3*fmb+4*fb3*fmc-4*fb4*
4174 . ffmcfmb*hbcm+8*fb4*hbcm-3*hbcm)+4*(p7p8*p4p6)*(-4*fb3*fmb-4*
4175 . fb4*ffmcfmb*hbcm+4*fb4*hbcm+3*hbcm)+16*(p6p7*p2p8)*(fb3*fmb-
4176 . fb3*fmc-fb4*hbcm)+4*(p6p7*p1p8)*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm
4177 . +4*fb4*hbcm+hbcm)+2*(p6p8*p3p7)*(-16*fb3*ffmcfmb*fmb+8*fb3*
4178 . ffmcfmb*fmc+8*fb3*fmb-4*fb3*fmc-8*fb4*ffmcfmb**2*hbcm+20*fb4*
4179 . ffmcfmb*hbcm-8*fb4*hbcm-2*ffmcfmb*hbcm-hbcm)+4*(p7p8*p3p6)*(-4
4180 . *fb3*ffmcfmb*fmb-4*fb4*ffmcfmb**2*hbcm+4*fb4*ffmcfmb*hbcm-
4181 . ffmcfmb*hbcm+2*hbcm))
4182 ans2=w5*(8*(p4p8*p4p6*p3p7)*(-2*ffmcfmb*hbcm+hbcm)+16*(p4p8*
4183 . p4p7*p3p6)*(ffmcfmb*hbcm-hbcm)+8*(p4p6*p3p7*p1p8)*(2*ffmcfmb*
4184 . hbcm-hbcm)+16*(p4p7*p3p6*p1p8)*(-ffmcfmb*hbcm+hbcm)+2*(p6p7*
4185 . p4p8)*(-ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2+3
4186 . *ffmcfmb*hbcm3-fmb*fmc*hbcm+fmc*hbcm2+2*fmc2*hbcm)+2*(p6p7*
4187 . p1p8)*(ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2-3*
4188 . ffmcfmb*hbcm3+fmb*fmc*hbcm-fmc*hbcm2-2*fmc2*hbcm)+16*(p4p8*
4189 . p3p7*p3p6)*(ffmcfmb**2*hbcm-ffmcfmb*hbcm)+16*(p3p7*p3p6*p1p8)*
4190 . (-ffmcfmb**2*hbcm+ffmcfmb*hbcm)+8*(hbcm*p1p2*p1p8*p6p7-hbcm*
4191 . p1p2*p4p8*p6p7+hbcm*p1p3*p1p8*p6p7-hbcm*p1p3*p4p8*p6p7+hbcm*
4192 . p1p4*p1p8*p6p7-hbcm*p1p4*p4p8*p6p7-hbcm*p1p8*p2p3*p6p7-hbcm*
4193 . p1p8*p2p4*p6p7-hbcm*p1p8*p3p4*p6p7-hbcm*p1p8*p3p6*p5p7+hbcm*
4194 . p1p8*p3p7*p5p6+hbcm*p1p8*p4p6*p4p7-2*hbcm*p1p8*p4p6*p5p7+hbcm*
4195 . p1p8*p4p7*p5p6+hbcm*p2p3*p4p8*p6p7+hbcm*p2p4*p4p8*p6p7+hbcm*
4196 . p3p4*p4p8*p6p7+hbcm*p3p6*p4p8*p5p7-hbcm*p3p7*p4p8*p5p6-hbcm*
4197 . p4p6*p4p7*p4p8+2*hbcm*p4p6*p4p8*p5p7-hbcm*p4p7*p4p8*p5p6))+
4198 . ans3
4199 ans1=w2*(8*(p5p8*p4p6*p3p7)*(2*ffmcfmb*hbcm-hbcm)+16*(p5p8*p4p7
4200 . *p3p6)*(-ffmcfmb*hbcm+hbcm)+2*(p6p7*p5p8)*(ffmcfmb**2*hbcm3-
4201 . ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2-3*ffmcfmb*hbcm3+fmb*fmc*
4202 . hbcm-fmc*hbcm2-2*fmc2*hbcm)+16*(p5p8*p3p7*p3p6)*(-ffmcfmb**2*
4203 . hbcm+ffmcfmb*hbcm)+8*(hbcm*p1p2*p5p8*p6p7+hbcm*p1p3*p5p8*p6p7+
4204 . hbcm*p1p4*p5p8*p6p7-hbcm*p2p3*p5p8*p6p7-hbcm*p2p4*p5p8*p6p7-
4205 . hbcm*p3p4*p5p8*p6p7-hbcm*p3p6*p5p7*p5p8+hbcm*p3p7*p5p6*p5p8+
4206 . hbcm*p4p6*p4p7*p5p8-2*hbcm*p4p6*p5p7*p5p8+hbcm*p4p7*p5p6*p5p8)
4207 . )+w1*(8*(p4p8*p4p6*p3p7)*(-2*ffmcfmb*hbcm+hbcm)+16*(p4p8*p4p7*
4208 . p3p6)*(ffmcfmb*hbcm-hbcm)+2*(p6p7*p4p8)*(-ffmcfmb**2*hbcm3+
4209 . ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2+3*ffmcfmb*hbcm3-fmb*fmc*
4210 . hbcm+fmc*hbcm2+2*fmc2*hbcm)+16*(p4p8*p3p7*p3p6)*(ffmcfmb**2*
4211 . hbcm-ffmcfmb*hbcm)+8*(-hbcm*p1p2*p4p8*p6p7-hbcm*p1p3*p4p8*p6p7
4212 . -hbcm*p1p4*p4p8*p6p7+hbcm*p2p3*p4p8*p6p7+hbcm*p2p4*p4p8*p6p7+
4213 . hbcm*p3p4*p4p8*p6p7+hbcm*p3p6*p4p8*p5p7-hbcm*p3p7*p4p8*p5p6-
4214 . hbcm*p4p6*p4p7*p4p8+2*hbcm*p4p6*p4p8*p5p7-hbcm*p4p7*p4p8*p5p6)
4215 . )+ans2
4216 ans=ccc*ans1
4217 b(2)=ans
4218 ans2=(p7p8*(ffmcfmb*hbcm2+7*fmb*hbcm+6*fmc*hbcm-7*hbcm2)+8*(
4219 . p5p8*p3p7)*(-7*fb3*ffmcfmb+3*fb3)+8*(p4p8*p3p7)*(fb3*ffmcfmb-
4220 . fb3)+8*(p3p7*p1p8)*(3*fb3*ffmcfmb-fb3)+8*(-fb3*ffmcfmb*p2p8*
4221 . p3p7+2*fb3*p1p8*p4p7-fb3*p1p8*p5p7-fb3*p2p8*p4p7-4*fb3*p4p7*
4222 . p5p8-fb3*p4p8*p5p7+3*fb3*p5p7*p5p8))
4223 ans1=w2*(6*(p5p8*p5p7)*(-fmb*hbcm-fmc*hbcm+hbcm2)+2*(p5p8*p4p7)
4224 . *(ffmcfmb*hbcm2+4*fmb*hbcm+3*fmc*hbcm-4*hbcm2)+2*(p5p8*p3p7)*(
4225 . ffmcfmb**2*hbcm2+7*ffmcfmb*fmb*hbcm+6*ffmcfmb*fmc*hbcm-7*
4226 . ffmcfmb*hbcm2-3*fmb*hbcm-3*fmc*hbcm+3*hbcm2))+w1*(6*(p5p7*p4p8
4227 . )*(fmb*hbcm+fmc*hbcm-hbcm2)+2*(p4p8*p4p7)*(-ffmcfmb*hbcm2-4*
4228 . fmb*hbcm-3*fmc*hbcm+4*hbcm2)+2*(p4p8*p3p7)*(-ffmcfmb**2*hbcm2-
4229 . 7*ffmcfmb*fmb*hbcm-6*ffmcfmb*fmc*hbcm+7*ffmcfmb*hbcm2+3*fmb*
4230 . hbcm+3*fmc*hbcm-3*hbcm2))+w5*(6*(p5p7*p4p8)*(fmb*hbcm+fmc*hbcm
4231 . -hbcm2)+6*(p5p7*p1p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+2*(p4p8*p4p7)
4232 . *(-ffmcfmb*hbcm2-4*fmb*hbcm-3*fmc*hbcm+4*hbcm2)+2*(p4p7*p1p8)*
4233 . (ffmcfmb*hbcm2+4*fmb*hbcm+3*fmc*hbcm-4*hbcm2)+2*(p4p8*p3p7)*(-
4234 . ffmcfmb**2*hbcm2-7*ffmcfmb*fmb*hbcm-6*ffmcfmb*fmc*hbcm+7*
4235 . ffmcfmb*hbcm2+3*fmb*hbcm+3*fmc*hbcm-3*hbcm2)+2*(p3p7*p1p8)*(
4236 . ffmcfmb**2*hbcm2+7*ffmcfmb*fmb*hbcm+6*ffmcfmb*fmc*hbcm-7*
4237 . ffmcfmb*hbcm2-3*fmb*hbcm-3*fmc*hbcm+3*hbcm2))+ans2
4238 ans=ccc*ans1
4239 b(3)=ans
4240 b(4)=ccc*(8*(p3p7*p3p5)*(7*fb3*ffmcfmb-3*fb3)+8*(p3p7*p3p4)*(-
4241 . fb3*ffmcfmb+fb3)+8*(p3p7*p2p3)*(-7*fb3*ffmcfmb+3*fb3)+8*(p3p7*
4242 . p1p3)*(-3*fb3*ffmcfmb+fb3)+4*p5p7*(2*fb3*ffmcfmb*hbcm2-3*fb3*
4243 . hbcm2-3*fb4*fmb*hbcm-3*fb4*fmc*hbcm)+p4p7*(-4*fb3*ffmcfmb*
4244 . hbcm2+16*fb3*hbcm2+16*fb4*fmb*hbcm+12*fb4*fmc*hbcm+hbcm2)+p3p7
4245 . *(-12*fb3*ffmcfmb**2*hbcm2+36*fb3*ffmcfmb*hbcm2-12*fb3*hbcm2+
4246 . 28*fb4*ffmcfmb*fmb*hbcm+24*fb4*ffmcfmb*fmc*hbcm-12*fb4*fmb*
4247 . hbcm-12*fb4*fmc*hbcm+ffmcfmb*hbcm2)+8*(-2*fb3*p1p3*p4p7+fb3*
4248 . p1p3*p5p7-4*fb3*p2p3*p4p7+3*fb3*p2p3*p5p7+fb3*p3p4*p5p7+4*fb3*
4249 . p3p5*p4p7-3*fb3*p3p5*p5p7))
4250 ans5=4*(-2*hbcm*p1p3*p1p8*p4p7+hbcm*p1p3*p1p8*p5p7+2*hbcm*p1p3*
4251 . p4p7*p4p8-hbcm*p1p3*p4p8*p5p7-4*hbcm*p1p8*p2p3*p4p7+3*hbcm*
4252 . p1p8*p2p3*p5p7+hbcm*p1p8*p3p4*p5p7+4*hbcm*p1p8*p3p5*p4p7-3*
4253 . hbcm*p1p8*p3p5*p5p7+4*hbcm*p2p3*p4p7*p4p8-3*hbcm*p2p3*p4p8*
4254 . p5p7-hbcm*p3p4*p4p8*p5p7-4*hbcm*p3p5*p4p7*p4p8+3*hbcm*p3p5*
4255 . p4p8*p5p7)
4256 ans4=2*(p5p7*p4p8)*(-2*ffmcfmb*hbcm3+3*fmb*hbcm2-3*fmc*hbcm2+3*
4257 . hbcm3)+2*(p4p8*p4p7)*(ffmcfmb*hbcm3-4*fmb*hbcm2+3*fmc*hbcm2-4*
4258 . hbcm3)+2*(p5p7*p1p8)*(2*ffmcfmb*hbcm3-3*fmb*hbcm2+3*fmc*hbcm2-
4259 . 3*hbcm3)+2*(p4p7*p1p8)*(-ffmcfmb*hbcm3+4*fmb*hbcm2-3*fmc*hbcm2
4260 . +4*hbcm3)+4*(p4p8*p3p7*p3p5)*(-7*ffmcfmb*hbcm+3*hbcm)+4*(p4p8*
4261 . p3p7*p3p4)*(ffmcfmb*hbcm-hbcm)+4*(p4p8*p3p7*p2p3)*(7*ffmcfmb*
4262 . hbcm-3*hbcm)+4*(p3p7*p3p5*p1p8)*(7*ffmcfmb*hbcm-3*hbcm)+4*(
4263 . p3p7*p3p4*p1p8)*(-ffmcfmb*hbcm+hbcm)+4*(p3p7*p2p3*p1p8)*(-7*
4264 . ffmcfmb*hbcm+3*hbcm)+4*(p4p8*p3p7*p1p3)*(3*ffmcfmb*hbcm-hbcm)+
4265 . 4*(p3p7*p1p8*p1p3)*(-3*ffmcfmb*hbcm+hbcm)+2*(p4p8*p3p7)*(3*
4266 . ffmcfmb**2*hbcm3-7*ffmcfmb*fmb*hbcm2+6*ffmcfmb*fmc*hbcm2-9*
4267 . ffmcfmb*hbcm3+3*fmb*hbcm2-3*fmc*hbcm2+3*hbcm3)+2*(p3p7*p1p8)*(
4268 . -3*ffmcfmb**2*hbcm3+7*ffmcfmb*fmb*hbcm2-6*ffmcfmb*fmc*hbcm2+9*
4269 . ffmcfmb*hbcm3-3*fmb*hbcm2+3*fmc*hbcm2-3*hbcm3)+ans5
4270 ans3=w5*ans4
4271 ans6=(p7p8*(-3*ffmcfmb*hbcm3+7*fmb*hbcm2-6*fmc*hbcm2+7*hbcm3)+8
4272 . *(p5p8*p3p7)*(7*fb4*ffmcfmb*hbcm-3*fb4*hbcm)+8*(p4p8*p3p7)*(-
4273 . fb4*ffmcfmb*hbcm+fb4*hbcm)+8*(p3p7*p2p8)*(-7*fb4*ffmcfmb*hbcm+
4274 . 3*fb4*hbcm)+8*(p3p7*p1p8)*(-3*fb4*ffmcfmb*hbcm+fb4*hbcm)+2*(-8
4275 . *fb4*hbcm*p1p8*p4p7+4*fb4*hbcm*p1p8*p5p7-16*fb4*hbcm*p2p8*p4p7
4276 . +12*fb4*hbcm*p2p8*p5p7+16*fb4*hbcm*p4p7*p5p8+4*fb4*hbcm*p4p8*
4277 . p5p7-12*fb4*hbcm*p5p7*p5p8-3*hbcm*p1p3*p7p8-7*hbcm*p2p3*p7p8-
4278 . hbcm*p3p4*p7p8+7*hbcm*p3p5*p7p8))
4279 ans2=w1*(2*(p5p7*p4p8)*(-2*ffmcfmb*hbcm3+3*fmb*hbcm2-3*fmc*
4280 . hbcm2+3*hbcm3)+2*(p4p8*p4p7)*(ffmcfmb*hbcm3-4*fmb*hbcm2+3*fmc*
4281 . hbcm2-4*hbcm3)+4*(p4p8*p3p7*p3p5)*(-7*ffmcfmb*hbcm+3*hbcm)+4*(
4282 . p4p8*p3p7*p3p4)*(ffmcfmb*hbcm-hbcm)+4*(p4p8*p3p7*p2p3)*(7*
4283 . ffmcfmb*hbcm-3*hbcm)+4*(p4p8*p3p7*p1p3)*(3*ffmcfmb*hbcm-hbcm)+
4284 . 2*(p4p8*p3p7)*(3*ffmcfmb**2*hbcm3-7*ffmcfmb*fmb*hbcm2+6*
4285 . ffmcfmb*fmc*hbcm2-9*ffmcfmb*hbcm3+3*fmb*hbcm2-3*fmc*hbcm2+3*
4286 . hbcm3)+4*(2*hbcm*p1p3*p4p7*p4p8-hbcm*p1p3*p4p8*p5p7+4*hbcm*
4287 . p2p3*p4p7*p4p8-3*hbcm*p2p3*p4p8*p5p7-hbcm*p3p4*p4p8*p5p7-4*
4288 . hbcm*p3p5*p4p7*p4p8+3*hbcm*p3p5*p4p8*p5p7))+ans3+ans6
4289 ans1=w2*(2*(p5p8*p5p7)*(2*ffmcfmb*hbcm3-3*fmb*hbcm2+3*fmc*hbcm2
4290 . -3*hbcm3)+2*(p5p8*p4p7)*(-ffmcfmb*hbcm3+4*fmb*hbcm2-3*fmc*
4291 . hbcm2+4*hbcm3)+4*(p5p8*p3p7*p3p5)*(7*ffmcfmb*hbcm-3*hbcm)+4*(
4292 . p5p8*p3p7*p3p4)*(-ffmcfmb*hbcm+hbcm)+4*(p5p8*p3p7*p2p3)*(-7*
4293 . ffmcfmb*hbcm+3*hbcm)+4*(p5p8*p3p7*p1p3)*(-3*ffmcfmb*hbcm+hbcm)
4294 . +2*(p5p8*p3p7)*(-3*ffmcfmb**2*hbcm3+7*ffmcfmb*fmb*hbcm2-6*
4295 . ffmcfmb*fmc*hbcm2+9*ffmcfmb*hbcm3-3*fmb*hbcm2+3*fmc*hbcm2-3*
4296 . hbcm3)+4*(-2*hbcm*p1p3*p4p7*p5p8+hbcm*p1p3*p5p7*p5p8-4*hbcm*
4297 . p2p3*p4p7*p5p8+3*hbcm*p2p3*p5p7*p5p8+hbcm*p3p4*p5p7*p5p8+4*
4298 . hbcm*p3p5*p4p7*p5p8-3*hbcm*p3p5*p5p7*p5p8))+ans2
4299 ans=ccc*ans1
4300 b(5)=ans
4301 ans=ccc*(w2*(2*(p5p8*p5p6)*(ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm-2
4302 . *hbcm2)+2*(p5p8*p3p6)*(-ffmcfmb**2*hbcm2-2*ffmcfmb*fmb*hbcm-
4303 . ffmcfmb*fmc*hbcm+3*ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm-2*hbcm2))
4304 . +w1*(2*(p5p6*p4p8)*(-ffmcfmb*hbcm2-2*fmb*hbcm-fmc*hbcm+2*hbcm2
4305 . )+2*(p4p8*p3p6)*(ffmcfmb**2*hbcm2+2*ffmcfmb*fmb*hbcm+ffmcfmb*
4306 . fmc*hbcm-3*ffmcfmb*hbcm2-2*fmb*hbcm-fmc*hbcm+2*hbcm2))+w5*(2*(
4307 . p5p6*p4p8)*(-ffmcfmb*hbcm2-2*fmb*hbcm-fmc*hbcm+2*hbcm2)+2*(
4308 . p5p6*p1p8)*(ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm-2*hbcm2)+2*(p4p8
4309 . *p3p6)*(ffmcfmb**2*hbcm2+2*ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm-3
4310 . *ffmcfmb*hbcm2-2*fmb*hbcm-fmc*hbcm+2*hbcm2)+2*(p3p6*p1p8)*(-
4311 . ffmcfmb**2*hbcm2-2*ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm+3*ffmcfmb
4312 . *hbcm2+2*fmb*hbcm+fmc*hbcm-2*hbcm2))+(p6p8*(-ffmcfmb*hbcm2-2*
4313 . fmb*hbcm-fmc*hbcm+2*hbcm2)+16*(p4p8*p3p6)*(-fb3*ffmcfmb+fb3)+
4314 . 16*(p3p6*p1p8)*(fb3*ffmcfmb-fb3)+16*(-fb3*ffmcfmb*p2p8*p3p6-
4315 . fb3*ffmcfmb*p3p6*p5p8-fb3*p1p8*p5p6-fb3*p2p8*p4p6-fb3*p4p6*
4316 . p5p8+fb3*p4p8*p5p6)))
4317 b(6)=ans
4318 b(7)=ccc*(16*(p3p6*p3p4)*(fb3*ffmcfmb-fb3)+16*(p3p6*p1p3)*(-fb3
4319 . *ffmcfmb+fb3)+p5p6*(-4*fb3*ffmcfmb*hbcm2-8*fb3*hbcm2+8*fb4*fmb
4320 . *hbcm+4*fb4*fmc*hbcm+hbcm2)+16*p4p6*(-fb3*ffmcfmb*hbcm2+fb3*
4321 . hbcm2)+p3p6*(-12*fb3*ffmcfmb**2*hbcm2+20*fb3*ffmcfmb*hbcm2-8*
4322 . fb3*hbcm2-8*fb4*ffmcfmb*fmb*hbcm-4*fb4*ffmcfmb*fmc*hbcm+8*fb4*
4323 . fmb*hbcm+4*fb4*fmc*hbcm-ffmcfmb*hbcm2+hbcm2)+16*(fb3*ffmcfmb*
4324 . p2p3*p3p6+fb3*ffmcfmb*p3p5*p3p6+fb3*p1p3*p5p6+fb3*p2p3*p4p6-
4325 . fb3*p3p4*p5p6+fb3*p3p5*p4p6))
4326 ans3=(p6p8*(-3*ffmcfmb*hbcm3-2*fmb*hbcm2+fmc*hbcm2+6*hbcm3)+16*
4327 . (p4p8*p3p6)*(fb4*ffmcfmb*hbcm-fb4*hbcm)+16*(p3p6*p1p8)*(-fb4*
4328 . ffmcfmb*hbcm+fb4*hbcm)+4*(4*fb4*ffmcfmb*hbcm*p2p8*p3p6+4*fb4*
4329 . ffmcfmb*hbcm*p3p6*p5p8+4*fb4*hbcm*p1p8*p5p6+4*fb4*hbcm*p2p8*
4330 . p4p6+4*fb4*hbcm*p4p6*p5p8-4*fb4*hbcm*p4p8*p5p6-hbcm*p1p3*p6p8+
4331 . hbcm*p2p3*p6p8+hbcm*p3p4*p6p8+hbcm*p3p5*p6p8))
4332 ans2=w5*(2*(p5p6*p4p8)*(ffmcfmb*hbcm3-2*fmb*hbcm2+fmc*hbcm2+2*
4333 . hbcm3)+8*(p4p8*p4p6)*(ffmcfmb*hbcm3-hbcm3)+2*(p5p6*p1p8)*(-
4334 . ffmcfmb*hbcm3+2*fmb*hbcm2-fmc*hbcm2-2*hbcm3)+8*(p4p6*p1p8)*(-
4335 . ffmcfmb*hbcm3+hbcm3)+8*(p4p8*p3p6*p3p4)*(-ffmcfmb*hbcm+hbcm)+8
4336 . *(p3p6*p3p4*p1p8)*(ffmcfmb*hbcm-hbcm)+8*(p4p8*p3p6*p1p3)*(
4337 . ffmcfmb*hbcm-hbcm)+8*(p3p6*p1p8*p1p3)*(-ffmcfmb*hbcm+hbcm)+2*(
4338 . p4p8*p3p6)*(3*ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*hbcm2-ffmcfmb*fmc
4339 . *hbcm2-5*ffmcfmb*hbcm3-2*fmb*hbcm2+fmc*hbcm2+2*hbcm3)+2*(p3p6*
4340 . p1p8)*(-3*ffmcfmb**2*hbcm3-2*ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*
4341 . hbcm2+5*ffmcfmb*hbcm3+2*fmb*hbcm2-fmc*hbcm2-2*hbcm3)+8*(
4342 . ffmcfmb*hbcm*p1p8*p2p3*p3p6+ffmcfmb*hbcm*p1p8*p3p5*p3p6-
4343 . ffmcfmb*hbcm*p2p3*p3p6*p4p8-ffmcfmb*hbcm*p3p5*p3p6*p4p8+hbcm*
4344 . p1p3*p1p8*p5p6-hbcm*p1p3*p4p8*p5p6+hbcm*p1p8*p2p3*p4p6-hbcm*
4345 . p1p8*p3p4*p5p6+hbcm*p1p8*p3p5*p4p6-hbcm*p2p3*p4p6*p4p8+hbcm*
4346 . p3p4*p4p8*p5p6-hbcm*p3p5*p4p6*p4p8))+ans3
4347 ans1=w2*(2*(p5p8*p5p6)*(-ffmcfmb*hbcm3+2*fmb*hbcm2-fmc*hbcm2-2*
4348 . hbcm3)+8*(p5p8*p4p6)*(-ffmcfmb*hbcm3+hbcm3)+8*(p5p8*p3p6*p3p4)
4349 . *(ffmcfmb*hbcm-hbcm)+8*(p5p8*p3p6*p1p3)*(-ffmcfmb*hbcm+hbcm)+2
4350 . *(p5p8*p3p6)*(-3*ffmcfmb**2*hbcm3-2*ffmcfmb*fmb*hbcm2+ffmcfmb*
4351 . fmc*hbcm2+5*ffmcfmb*hbcm3+2*fmb*hbcm2-fmc*hbcm2-2*hbcm3)+8*(
4352 . ffmcfmb*hbcm*p2p3*p3p6*p5p8+ffmcfmb*hbcm*p3p5*p3p6*p5p8+hbcm*
4353 . p1p3*p5p6*p5p8+hbcm*p2p3*p4p6*p5p8-hbcm*p3p4*p5p6*p5p8+hbcm*
4354 . p3p5*p4p6*p5p8))+w1*(2*(p5p6*p4p8)*(ffmcfmb*hbcm3-2*fmb*hbcm2+
4355 . fmc*hbcm2+2*hbcm3)+8*(p4p8*p4p6)*(ffmcfmb*hbcm3-hbcm3)+8*(p4p8
4356 . *p3p6*p3p4)*(-ffmcfmb*hbcm+hbcm)+8*(p4p8*p3p6*p1p3)*(ffmcfmb*
4357 . hbcm-hbcm)+2*(p4p8*p3p6)*(3*ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*
4358 . hbcm2-ffmcfmb*fmc*hbcm2-5*ffmcfmb*hbcm3-2*fmb*hbcm2+fmc*hbcm2+
4359 . 2*hbcm3)+8*(-ffmcfmb*hbcm*p2p3*p3p6*p4p8-ffmcfmb*hbcm*p3p5*
4360 . p3p6*p4p8-hbcm*p1p3*p4p8*p5p6-hbcm*p2p3*p4p6*p4p8+hbcm*p3p4*
4361 . p4p8*p5p6-hbcm*p3p5*p4p6*p4p8))+ans2
4362 ans=ccc*ans1
4363 b(8)=ans
4364 ans=ccc*(4*(p4p6*p3p7)*(4*fb3*fmb+12*fb4*ffmcfmb*hbcm-8*fb4*
4365 . hbcm-hbcm)+2*(p5p7*p3p6)*(-8*fb3*fmb+4*fb3*fmc-4*fb4*ffmcfmb*
4366 . hbcm+hbcm)+2*(p4p7*p3p6)*(8*fb3*fmb-4*fb3*fmc-12*fb4*ffmcfmb*
4367 . hbcm+8*fb4*hbcm-hbcm)+4*(p6p7*p3p4)*(-4*fb3*fmb-4*fb4*ffmcfmb*
4368 . hbcm+hbcm)+16*(p6p7*p2p3)*(-fb3*fmb+fb3*fmc)+4*(p6p7*p1p3)*(4*
4369 . fb3*fmb+4*fb4*ffmcfmb*hbcm-hbcm)+2*(p3p7*p3p6)*(24*fb3*ffmcfmb
4370 . *fmb-8*fb3*ffmcfmb*fmc-8*fb3*fmb+4*fb3*fmc-12*fb4*ffmcfmb*hbcm
4371 . +8*fb4*hbcm-4*ffmcfmb*hbcm+hbcm)+p6p7*(-12*fb3*ffmcfmb*fmb*
4372 . hbcm2+4*fb3*ffmcfmb*fmc*hbcm2-4*fb3*fmc*hbcm2-4*fb4*ffmcfmb**2
4373 . *hbcm3-4*fb4*ffmcfmb*hbcm3+4*fb4*fmb*fmc*hbcm-8*fb4*fmc2*hbcm+
4374 . 2*ffmcfmb*hbcm3-fmb*hbcm2+fmc*hbcm2+hbcm3)+16*(fb4*hbcm*p1p2*
4375 . p6p7+fb4*hbcm*p1p4*p6p7-fb4*hbcm*p2p4*p6p7+fb4*hbcm*p3p7*p5p6+
4376 . fb4*hbcm*p4p6*p4p7-2*fb4*hbcm*p4p6*p5p7+fb4*hbcm*p4p7*p5p6))
4377 b(9)=ans
4378 ans5=4*(p3p7*p3p6*p1p8)*(5*ffmcfmb**2*hbcm2-4*ffmcfmb*fmb*hbcm-
4379 . ffmcfmb*fmc*hbcm-2*ffmcfmb*hbcm2)+8*(-hbcm2*p1p2*p1p8*p6p7+
4380 . hbcm2*p1p2*p4p8*p6p7-hbcm2*p1p4*p1p8*p6p7+hbcm2*p1p4*p4p8*p6p7
4381 . +hbcm2*p1p8*p2p3*p6p7+hbcm2*p1p8*p2p4*p6p7+hbcm2*p1p8*p4p6*
4382 . p5p7-hbcm2*p1p8*p4p7*p5p6-hbcm2*p2p3*p4p8*p6p7-hbcm2*p2p4*p4p8
4383 . *p6p7-hbcm2*p4p6*p4p8*p5p7+hbcm2*p4p7*p4p8*p5p6)
4384 ans4=4*(p5p6*p4p8*p3p7)*(ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm)+8*(
4385 . p4p8*p4p6*p3p7)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+4*(p5p7*p4p8*
4386 . p3p6)*(ffmcfmb*hbcm2-2*fmb*hbcm-fmc*hbcm)+4*(p4p8*p4p7*p3p6)*(
4387 . -5*ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm+2*hbcm2)+8*(p6p7*p4p8*
4388 . p3p4)*(-ffmcfmb*hbcm2-fmb*hbcm)+4*(p5p6*p3p7*p1p8)*(-ffmcfmb*
4389 . hbcm2-2*fmb*hbcm-fmc*hbcm)+8*(p4p6*p3p7*p1p8)*(-ffmcfmb*hbcm2-
4390 . fmb*hbcm+hbcm2)+4*(p5p7*p3p6*p1p8)*(-ffmcfmb*hbcm2+2*fmb*hbcm+
4391 . fmc*hbcm)+4*(p4p7*p3p6*p1p8)*(5*ffmcfmb*hbcm2-2*fmb*hbcm-fmc*
4392 . hbcm-2*hbcm2)+8*(p6p7*p3p4*p1p8)*(ffmcfmb*hbcm2+fmb*hbcm)+8*(
4393 . p6p7*p4p8*p1p3)*(ffmcfmb*hbcm2+fmb*hbcm)+8*(p6p7*p1p8*p1p3)*(-
4394 . ffmcfmb*hbcm2-fmb*hbcm)+2*(p6p7*p4p8)*(-ffmcfmb**2*hbcm4-3*
4395 . ffmcfmb*fmb*hbcm3-ffmcfmb*fmc*hbcm3-ffmcfmb*hbcm4-fmb*fmc*
4396 . hbcm2+fmc*hbcm3-2*fmc2*hbcm2)+2*(p6p7*p1p8)*(ffmcfmb**2*hbcm4+
4397 . 3*ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*hbcm3+ffmcfmb*hbcm4+fmb*fmc*
4398 . hbcm2-fmc*hbcm3+2*fmc2*hbcm2)+4*(p4p8*p3p7*p3p6)*(-5*ffmcfmb**
4399 . 2*hbcm2+4*ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+2*ffmcfmb*hbcm2)+
4400 . ans5
4401 ans3=w5*ans4
4402 ans7=2*(p7p8*p3p6)*(4*fb3*ffmcfmb**2*hbcm2-12*fb3*ffmcfmb*hbcm2
4403 . +8*fb3*hbcm2+4*fb4*ffmcfmb*fmc*hbcm-8*fb4*fmb*hbcm-4*fb4*fmc*
4404 . hbcm+5*ffmcfmb*hbcm2-4*fmb*hbcm-2*fmc*hbcm-hbcm2)+32*(fb3*
4405 . ffmcfmb*p1p8*p3p6*p3p7-fb3*ffmcfmb*p2p3*p3p6*p7p8-fb3*ffmcfmb*
4406 . p3p5*p3p6*p7p8-fb3*ffmcfmb*p3p6*p3p7*p4p8+fb3*ffmcfmb*p3p6*
4407 . p3p7*p5p8+2*fb3*p1p3*p2p8*p6p7-fb3*p1p3*p4p7*p6p8-fb3*p1p3*
4408 . p5p6*p7p8+fb3*p1p3*p5p7*p6p8+fb3*p1p8*p3p6*p4p7-fb3*p1p8*p3p6*
4409 . p5p7+fb3*p1p8*p3p7*p5p6-fb3*p2p3*p4p6*p7p8-2*fb3*p2p8*p3p4*
4410 . p6p7+fb3*p2p8*p3p6*p4p7-fb3*p2p8*p3p6*p5p7+3*fb3*p2p8*p3p7*
4411 . p4p6+fb3*p3p4*p4p7*p6p8+fb3*p3p4*p5p6*p7p8-fb3*p3p4*p5p7*p6p8-
4412 . fb3*p3p5*p4p6*p7p8-fb3*p3p6*p4p7*p4p8+fb3*p3p6*p4p8*p5p7+fb3*
4413 . p3p7*p4p6*p5p8-fb3*p3p7*p4p8*p5p6)
4414 ans6=32*(p6p8*p3p7*p3p4)*(2*fb3*ffmcfmb-fb3)+32*(p7p8*p3p6*p3p4
4415 . )*(-fb3*ffmcfmb+fb3)+32*(p3p7*p3p6*p2p8)*(5*fb3*ffmcfmb-fb3)+
4416 . 32*(p6p8*p3p7*p1p3)*(-2*fb3*ffmcfmb+fb3)+32*(p7p8*p3p6*p1p3)*(
4417 . fb3*ffmcfmb-fb3)+2*(p6p8*p5p7)*(-4*fb3*ffmcfmb*hbcm2-8*fb3*
4418 . hbcm2+8*fb4*fmb*hbcm+4*fb4*fmc*hbcm-hbcm2)+2*(p7p8*p5p6)*(4*
4419 . fb3*ffmcfmb*hbcm2+8*fb3*hbcm2-8*fb4*fmb*hbcm-4*fb4*fmc*hbcm-
4420 . hbcm2)+4*(p6p7*p4p8)*(4*fb3*ffmcfmb*hbcm2-4*fb3*hbcm2+4*fb4*
4421 . fmb*hbcm+hbcm2)+2*(p6p8*p4p7)*(4*fb3*ffmcfmb*hbcm2+8*fb3*hbcm2
4422 . -8*fb4*fmb*hbcm-4*fb4*fmc*hbcm+5*hbcm2)+4*(p7p8*p4p6)*(4*fb3*
4423 . ffmcfmb*hbcm2-4*fb3*hbcm2-4*fb4*fmb*hbcm-hbcm2)+16*(p6p7*p2p8)
4424 . *(-2*fb3*ffmcfmb*hbcm2-fb3*hbcm2+fb4*fmb*hbcm+fb4*fmc*hbcm)+4*
4425 . (p6p7*p1p8)*(-4*fb3*ffmcfmb*hbcm2+4*fb3*hbcm2-4*fb4*fmb*hbcm-
4426 . hbcm2)+2*(p6p8*p3p7)*(8*fb3*ffmcfmb**2*hbcm2+12*fb3*ffmcfmb*
4427 . hbcm2-8*fb3*hbcm2-16*fb4*ffmcfmb*fmb*hbcm-8*fb4*ffmcfmb*fmc*
4428 . hbcm+8*fb4*fmb*hbcm+4*fb4*fmc*hbcm+5*ffmcfmb*hbcm2+fmc*hbcm-
4429 . hbcm2)+ans7
4430 ans2=w1*(4*(p5p6*p4p8*p3p7)*(ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm)
4431 . +8*(p4p8*p4p6*p3p7)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+4*(p5p7*
4432 . p4p8*p3p6)*(ffmcfmb*hbcm2-2*fmb*hbcm-fmc*hbcm)+4*(p4p8*p4p7*
4433 . p3p6)*(-5*ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm+2*hbcm2)+8*(p6p7*
4434 . p4p8*p3p4)*(-ffmcfmb*hbcm2-fmb*hbcm)+8*(p6p7*p4p8*p1p3)*(
4435 . ffmcfmb*hbcm2+fmb*hbcm)+2*(p6p7*p4p8)*(-ffmcfmb**2*hbcm4-3*
4436 . ffmcfmb*fmb*hbcm3-ffmcfmb*fmc*hbcm3-ffmcfmb*hbcm4-fmb*fmc*
4437 . hbcm2+fmc*hbcm3-2*fmc2*hbcm2)+4*(p4p8*p3p7*p3p6)*(-5*ffmcfmb**
4438 . 2*hbcm2+4*ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+2*ffmcfmb*hbcm2)+8
4439 . *(hbcm2*p1p2*p4p8*p6p7+hbcm2*p1p4*p4p8*p6p7-hbcm2*p2p3*p4p8*
4440 . p6p7-hbcm2*p2p4*p4p8*p6p7-hbcm2*p4p6*p4p8*p5p7+hbcm2*p4p7*p4p8
4441 . *p5p6))+ans3+ans6
4442 ans1=w2*(4*(p5p8*p5p6*p3p7)*(-ffmcfmb*hbcm2-2*fmb*hbcm-fmc*hbcm
4443 . )+8*(p5p8*p4p6*p3p7)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+4*(p5p8*
4444 . p5p7*p3p6)*(-ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm)+4*(p5p8*p4p7*
4445 . p3p6)*(5*ffmcfmb*hbcm2-2*fmb*hbcm-fmc*hbcm-2*hbcm2)+8*(p6p7*
4446 . p5p8*p3p4)*(ffmcfmb*hbcm2+fmb*hbcm)+8*(p6p7*p5p8*p1p3)*(-
4447 . ffmcfmb*hbcm2-fmb*hbcm)+2*(p6p7*p5p8)*(ffmcfmb**2*hbcm4+3*
4448 . ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*hbcm3+ffmcfmb*hbcm4+fmb*fmc*
4449 . hbcm2-fmc*hbcm3+2*fmc2*hbcm2)+4*(p5p8*p3p7*p3p6)*(5*ffmcfmb**2
4450 . *hbcm2-4*ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm-2*ffmcfmb*hbcm2)+8*
4451 . (-hbcm2*p1p2*p5p8*p6p7-hbcm2*p1p4*p5p8*p6p7+hbcm2*p2p3*p5p8*
4452 . p6p7+hbcm2*p2p4*p5p8*p6p7+hbcm2*p4p6*p5p7*p5p8-hbcm2*p4p7*p5p6
4453 . *p5p8))+ans2
4454 ans=ccc*ans1
4455 b(10)=ans
4456 ans=ccc*(w2*(2*(p5p8*p3p4)*(ffmcfmb*hbcm-hbcm)+2*(p5p8*p1p3)*(
4457 . ffmcfmb*hbcm-hbcm)+2*p5p8*(ffmcfmb**2*hbcm3-ffmcfmb*hbcm3)+2*(
4458 . -ffmcfmb*hbcm*p2p3*p5p8-ffmcfmb*hbcm*p3p5*p5p8-hbcm*p1p2*p5p8-
4459 . hbcm*p1p5*p5p8-hbcm*p2p4*p5p8-hbcm*p4p5*p5p8))+w1*(2*(p4p8*
4460 . p3p4)*(-ffmcfmb*hbcm+hbcm)+2*(p4p8*p1p3)*(-ffmcfmb*hbcm+hbcm)+
4461 . 2*p4p8*(-ffmcfmb**2*hbcm3+ffmcfmb*hbcm3)+2*(ffmcfmb*hbcm*p2p3*
4462 . p4p8+ffmcfmb*hbcm*p3p5*p4p8+hbcm*p1p2*p4p8+hbcm*p1p5*p4p8+hbcm
4463 . *p2p4*p4p8+hbcm*p4p5*p4p8))+w5*(2*(p4p8*p3p4)*(-ffmcfmb*hbcm+
4464 . hbcm)+2*(p3p4*p1p8)*(ffmcfmb*hbcm-hbcm)+2*(p4p8*p1p3)*(-
4465 . ffmcfmb*hbcm+hbcm)+2*(p1p8*p1p3)*(ffmcfmb*hbcm-hbcm)+2*p4p8*(-
4466 . ffmcfmb**2*hbcm3+ffmcfmb*hbcm3)+2*p1p8*(ffmcfmb**2*hbcm3-
4467 . ffmcfmb*hbcm3)+2*(-ffmcfmb*hbcm*p1p8*p2p3-ffmcfmb*hbcm*p1p8*
4468 . p3p5+ffmcfmb*hbcm*p2p3*p4p8+ffmcfmb*hbcm*p3p5*p4p8-hbcm*p1p2*
4469 . p1p8+hbcm*p1p2*p4p8-hbcm*p1p5*p1p8+hbcm*p1p5*p4p8-hbcm*p1p8*
4470 . p2p4-hbcm*p1p8*p4p5+hbcm*p2p4*p4p8+hbcm*p4p5*p4p8))+(hbcm*p1p8
4471 . -hbcm*p2p8+hbcm*p4p8-hbcm*p5p8))
4472 b(11)=ans
4473 b(12)=ccc*(4*p3p4*(-fb3*ffmcfmb+fb3)+4*p1p3*(-fb3*ffmcfmb+fb3)+
4474 . 4*(-fb3*ffmcfmb**2*hbcm2+fb3*ffmcfmb*hbcm2+fb3*ffmcfmb*p2p3+
4475 . fb3*ffmcfmb*p3p5+fb3*p1p2+fb3*p1p5+fb3*p2p4+fb3*p4p5))
4476 ans=ccc*(w2*(2*(p5p8*p3p4)*(ffmcfmb*hbcm2-hbcm2)+2*(p5p8*p1p3)*
4477 . (ffmcfmb*hbcm2-hbcm2)+2*p5p8*(ffmcfmb**2*hbcm4-ffmcfmb*hbcm4)+
4478 . 2*(-ffmcfmb*hbcm2*p2p3*p5p8-ffmcfmb*hbcm2*p3p5*p5p8-hbcm2*p1p2
4479 . *p5p8-hbcm2*p1p5*p5p8-hbcm2*p2p4*p5p8-hbcm2*p4p5*p5p8))+w1*(2*
4480 . (p4p8*p3p4)*(-ffmcfmb*hbcm2+hbcm2)+2*(p4p8*p1p3)*(-ffmcfmb*
4481 . hbcm2+hbcm2)+2*p4p8*(-ffmcfmb**2*hbcm4+ffmcfmb*hbcm4)+2*(
4482 . ffmcfmb*hbcm2*p2p3*p4p8+ffmcfmb*hbcm2*p3p5*p4p8+hbcm2*p1p2*
4483 . p4p8+hbcm2*p1p5*p4p8+hbcm2*p2p4*p4p8+hbcm2*p4p5*p4p8))+w5*(2*(
4484 . p4p8*p3p4)*(-ffmcfmb*hbcm2+hbcm2)+2*(p3p4*p1p8)*(ffmcfmb*hbcm2
4485 . -hbcm2)+2*(p4p8*p1p3)*(-ffmcfmb*hbcm2+hbcm2)+2*(p1p8*p1p3)*(
4486 . ffmcfmb*hbcm2-hbcm2)+2*p4p8*(-ffmcfmb**2*hbcm4+ffmcfmb*hbcm4)+
4487 . 2*p1p8*(ffmcfmb**2*hbcm4-ffmcfmb*hbcm4)+2*(-ffmcfmb*hbcm2*p1p8
4488 . *p2p3-ffmcfmb*hbcm2*p1p8*p3p5+ffmcfmb*hbcm2*p2p3*p4p8+ffmcfmb*
4489 . hbcm2*p3p5*p4p8-hbcm2*p1p2*p1p8+hbcm2*p1p2*p4p8-hbcm2*p1p5*
4490 . p1p8+hbcm2*p1p5*p4p8-hbcm2*p1p8*p2p4-hbcm2*p1p8*p4p5+hbcm2*
4491 . p2p4*p4p8+hbcm2*p4p5*p4p8))+(hbcm2*p1p8-hbcm2*p2p8+hbcm2*p4p8-
4492 . hbcm2*p5p8))
4493 b(13)=ans
4494 b(14)=ccc*(4*p3p4*(fb4*ffmcfmb*hbcm-fb4*hbcm)+4*p1p3*(fb4*
4495 . ffmcfmb*hbcm-fb4*hbcm)+4*(fb4*ffmcfmb**2*hbcm3-fb4*ffmcfmb*
4496 . hbcm*p2p3-fb4*ffmcfmb*hbcm*p3p5-fb4*ffmcfmb*hbcm3-fb4*hbcm*
4497 . p1p2-fb4*hbcm*p1p5-fb4*hbcm*p2p4-fb4*hbcm*p4p5))
4498 b(15)=ccc*(w2*(4*(p5p8*p3p6)*(4*ffmcfmb*hbcm2-hbcm2)+4*(3*hbcm2
4499 . *p4p6*p5p8-hbcm2*p5p6*p5p8))+w1*(4*(p4p8*p3p6)*(-4*ffmcfmb*
4500 . hbcm2+hbcm2)+4*(-3*hbcm2*p4p6*p4p8+hbcm2*p4p8*p5p6))+w5*(4*(
4501 . p4p8*p3p6)*(-4*ffmcfmb*hbcm2+hbcm2)+4*(p3p6*p1p8)*(4*ffmcfmb*
4502 . hbcm2-hbcm2)+4*(3*hbcm2*p1p8*p4p6-hbcm2*p1p8*p5p6-3*hbcm2*p4p6
4503 . *p4p8+hbcm2*p4p8*p5p6))+8*hbcm2*p6p8)
4504 b(16)=ccc*(w2*(4*(p5p8*p3p6)*(-4*ffmcfmb*hbcm+hbcm)+4*(-3*hbcm*
4505 . p4p6*p5p8+hbcm*p5p6*p5p8))+w1*(4*(p4p8*p3p6)*(4*ffmcfmb*hbcm-
4506 . hbcm)+4*(3*hbcm*p4p6*p4p8-hbcm*p4p8*p5p6))+w5*(4*(p4p8*p3p6)*(
4507 . 4*ffmcfmb*hbcm-hbcm)+4*(p3p6*p1p8)*(-4*ffmcfmb*hbcm+hbcm)+4*(-
4508 . 3*hbcm*p1p8*p4p6+hbcm*p1p8*p5p6+3*hbcm*p4p6*p4p8-hbcm*p4p8*
4509 . p5p6))-8*hbcm*p6p8)
4510 b(18)=ccc*(w2*(2*(p5p8*p3p7)*(8*ffmcfmb*hbcm2-3*hbcm2)+2*(5*
4511 . hbcm2*p4p7*p5p8-3*hbcm2*p5p7*p5p8))+w1*(2*(p4p8*p3p7)*(-8*
4512 . ffmcfmb*hbcm2+3*hbcm2)+2*(-5*hbcm2*p4p7*p4p8+3*hbcm2*p4p8*p5p7
4513 . ))+w5*(2*(p4p8*p3p7)*(-8*ffmcfmb*hbcm2+3*hbcm2)+2*(p3p7*p1p8)*
4514 . (8*ffmcfmb*hbcm2-3*hbcm2)+2*(5*hbcm2*p1p8*p4p7-3*hbcm2*p1p8*
4515 . p5p7-5*hbcm2*p4p7*p4p8+3*hbcm2*p4p8*p5p7))+8*hbcm2*p7p8)
4516 b(20)=ccc*(w2*(2*(p5p8*p3p7)*(8*ffmcfmb*hbcm-3*hbcm)+2*(5*hbcm*
4517 . p4p7*p5p8-3*hbcm*p5p7*p5p8))+w1*(2*(p4p8*p3p7)*(-8*ffmcfmb*
4518 . hbcm+3*hbcm)+2*(-5*hbcm*p4p7*p4p8+3*hbcm*p4p8*p5p7))+w5*(2*(
4519 . p4p8*p3p7)*(-8*ffmcfmb*hbcm+3*hbcm)+2*(p3p7*p1p8)*(8*ffmcfmb*
4520 . hbcm-3*hbcm)+2*(5*hbcm*p1p8*p4p7-3*hbcm*p1p8*p5p7-5*hbcm*p4p7*
4521 . p4p8+3*hbcm*p4p8*p5p7))+8*hbcm*p7p8)
4522 b(23)=ccc*(4*p3p7*(8*fb4*ffmcfmb*hbcm-3*fb4*hbcm)+4*(5*fb4*hbcm
4523 . *p4p7-3*fb4*hbcm*p5p7))
4524 b(24)=ccc*(8*p3p6*(-4*fb4*ffmcfmb*hbcm+fb4*hbcm)+8*(-3*fb4*hbcm
4525 . *p4p6+fb4*hbcm*p5p6))
4526 b(25)=ccc*(12*p5p7*(fb3*fmb-fb3*fmc-fb4*hbcm)+p4p7*(-16*fb3*fmb
4527 . +12*fb3*fmc-4*fb4*ffmcfmb*hbcm+16*fb4*hbcm+hbcm)+p3p7*(-28*fb3
4528 . *ffmcfmb*fmb+24*fb3*ffmcfmb*fmc+12*fb3*fmb-12*fb3*fmc-4*fb4*
4529 . ffmcfmb**2*hbcm+28*fb4*ffmcfmb*hbcm-12*fb4*hbcm+ffmcfmb*hbcm))
4530 b(26)=ccc*(p5p6*(-8*fb3*fmb+4*fb3*fmc-4*fb4*ffmcfmb*hbcm+8*fb4*
4531 . hbcm+hbcm)+p3p6*(8*fb3*ffmcfmb*fmb-4*fb3*ffmcfmb*fmc-8*fb3*fmb
4532 . +4*fb3*fmc+4*fb4*ffmcfmb**2*hbcm-12*fb4*ffmcfmb*hbcm+8*fb4*
4533 . hbcm-ffmcfmb*hbcm+hbcm))
4534 b(27)=ccc*(16*(p3p7*p3p6)*(-4*fb3*ffmcfmb+fb3)+8*p6p7*(2*fb3*
4535 . ffmcfmb*hbcm2+fb3*hbcm2-fb4*fmb*hbcm-fb4*fmc*hbcm)+16*(-2*fb3*
4536 . p1p3*p6p7+2*fb3*p3p4*p6p7-fb3*p3p6*p4p7+fb3*p3p6*p5p7-2*fb3*
4537 . p3p7*p4p6))
4538 b(28)=ccc*(4*w2*(p6p7*p5p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+4*w1*(
4539 . p6p7*p4p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+w5*(4*(p6p7*p4p8)*(-fmb*
4540 . hbcm-fmc*hbcm+hbcm2)+4*(p6p7*p1p8)*(fmb*hbcm+fmc*hbcm-hbcm2))+
4541 . (16*(p6p8*p3p7)*(-2*fb3*ffmcfmb+fb3)+16*(-2*fb3*ffmcfmb*p3p6*
4542 . p7p8-2*fb3*p1p8*p6p7-2*fb3*p4p6*p7p8-fb3*p4p7*p6p8+2*fb3*p4p8*
4543 . p6p7+fb3*p5p7*p6p8)))
4544 b(29)=ccc*(8*p3p6*(-4*fb3*ffmcfmb+fb3)+8*(-3*fb3*p4p6+fb3*p5p6)
4545 . )
4546 b(30)=ccc*(4*p3p7*(8*fb3*ffmcfmb-3*fb3)+4*(5*fb3*p4p7-3*fb3*
4547 . p5p7))
4548 ans2=(8*(p6p8*p3p7)*(-4*fb4*ffmcfmb*hbcm+2*fb4*hbcm-hbcm)+8*(
4549 . p7p8*p3p6)*(-4*fb4*ffmcfmb*hbcm-hbcm)+16*(-2*fb4*hbcm*p1p8*
4550 . p6p7-2*fb4*hbcm*p4p6*p7p8-fb4*hbcm*p4p7*p6p8+2*fb4*hbcm*p4p8*
4551 . p6p7+fb4*hbcm*p5p7*p6p8))
4552 ans1=w2*(4*(p6p7*p5p8)*(2*ffmcfmb*hbcm3-fmb*hbcm2+fmc*hbcm2+
4553 . hbcm3)+8*(p5p8*p3p7*p3p6)*(-4*ffmcfmb*hbcm+hbcm)+8*(-2*hbcm*
4554 . p1p3*p5p8*p6p7+2*hbcm*p3p4*p5p8*p6p7-hbcm*p3p6*p4p7*p5p8+hbcm*
4555 . p3p6*p5p7*p5p8-2*hbcm*p3p7*p4p6*p5p8))+w1*(4*(p6p7*p4p8)*(-2*
4556 . ffmcfmb*hbcm3+fmb*hbcm2-fmc*hbcm2-hbcm3)+8*(p4p8*p3p7*p3p6)*(4
4557 . *ffmcfmb*hbcm-hbcm)+8*(2*hbcm*p1p3*p4p8*p6p7-2*hbcm*p3p4*p4p8*
4558 . p6p7+hbcm*p3p6*p4p7*p4p8-hbcm*p3p6*p4p8*p5p7+2*hbcm*p3p7*p4p6*
4559 . p4p8))+w5*(4*(p6p7*p4p8)*(-2*ffmcfmb*hbcm3+fmb*hbcm2-fmc*hbcm2
4560 . -hbcm3)+4*(p6p7*p1p8)*(2*ffmcfmb*hbcm3-fmb*hbcm2+fmc*hbcm2+
4561 . hbcm3)+8*(p4p8*p3p7*p3p6)*(4*ffmcfmb*hbcm-hbcm)+8*(p3p7*p3p6*
4562 . p1p8)*(-4*ffmcfmb*hbcm+hbcm)+8*(-2*hbcm*p1p3*p1p8*p6p7+2*hbcm*
4563 . p1p3*p4p8*p6p7+2*hbcm*p1p8*p3p4*p6p7-hbcm*p1p8*p3p6*p4p7+hbcm*
4564 . p1p8*p3p6*p5p7-2*hbcm*p1p8*p3p7*p4p6-2*hbcm*p3p4*p4p8*p6p7+
4565 . hbcm*p3p6*p4p7*p4p8-hbcm*p3p6*p4p8*p5p7+2*hbcm*p3p7*p4p6*p4p8)
4566 . )+ans2
4567 ans=ccc*ans1
4568 b(31)=ans
4569 b(32)=8*ccc*p6p7*(fb3*fmb-fb3*fmc-fb4*hbcm)
4570 do 200 n=1,32
4571 c(n,1)=c(n,1)+0.1818181818181818d0*b(n)
4572 c(n,2)=c(n,2)+0.9833321660356334d0*b(n)
4573 200 continue
4574 return
4575 end
4576
4577 subroutine amp35_1p1(cc)
4578 implicit double precision(a-h,o-z)
4579 implicit integer (i-n)
4580 dimension b(32)
4581 #include "inclcon.h"
4582 #include "inclppp.h"
4583 #include "inclamp.h"
4584 do 100 n=1,32
4585 b(n)=0.0d0
4586 100 continue
4587 ccc=cc/((ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*p3p5+fmb2+
4588 . hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p2p3+2*ffmcfmb*p3p4+
4589 . fmc2-2*p2p4)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2))
4590 b(1)=ccc*(8*(p6p7*p3p4)*(-fb3*ffmcfmb+fb3)+8*(p6p7*p2p3)*(-fb3*
4591 . ffmcfmb+fb3)+p6p7*(-4*fb3*ffmcfmb**2*hbcm2+12*fb3*ffmcfmb*
4592 . hbcm2-4*fb3*fmb*fmc-8*fb3*fmc2-4*fb4*ffmcfmb*fmb*hbcm-4*fb4*
4593 . ffmcfmb*fmc*hbcm+4*fb4*fmc*hbcm+fmb*hbcm+fmc*hbcm-hbcm2)+8*(
4594 . fb3*ffmcfmb*p1p3*p6p7+fb3*ffmcfmb*p3p5*p6p7+2*fb3*ffmcfmb*p3p6
4595 . *p3p7+6*fb3*ffmcfmb*p3p7*p4p6-2*fb3*ffmcfmb*p3p7*p5p6+fb3*p1p2
4596 . *p6p7+fb3*p1p4*p6p7+4*fb3*p2p4*p6p7+fb3*p2p5*p6p7+fb3*p3p6*
4597 . p4p7+fb3*p4p5*p6p7+5*fb3*p4p6*p4p7-3*fb3*p4p7*p5p6))
4598 ans4=(4*(p4p8*p4p7*p3p6)*(4*ffmcfmb*hbcm-3*hbcm)+4*(p6p7*p4p8*
4599 . p3p4)*(ffmcfmb*hbcm-hbcm)+4*(p4p7*p3p6*p2p8)*(-4*ffmcfmb*hbcm+
4600 . 3*hbcm)+4*(p6p7*p3p4*p2p8)*(-ffmcfmb*hbcm+hbcm)+4*(p6p7*p4p8*
4601 . p2p3)*(ffmcfmb*hbcm-hbcm)+4*(p6p7*p2p8*p2p3)*(-ffmcfmb*hbcm+
4602 . hbcm)+2*(p6p7*p4p8)*(ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2-
4603 . ffmcfmb*fmc*hbcm2-3*ffmcfmb*hbcm3-fmb*fmc*hbcm+fmc*hbcm2+2*
4604 . fmc2*hbcm)+2*(p6p7*p2p8)*(-ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+
4605 . ffmcfmb*fmc*hbcm2+3*ffmcfmb*hbcm3+fmb*fmc*hbcm-fmc*hbcm2-2*
4606 . fmc2*hbcm)+16*(p4p8*p3p7*p3p6)*(ffmcfmb**2*hbcm-ffmcfmb*hbcm)+
4607 . 16*(p3p7*p3p6*p2p8)*(-ffmcfmb**2*hbcm+ffmcfmb*hbcm)+4*(ffmcfmb
4608 . *hbcm*p1p3*p2p8*p6p7-ffmcfmb*hbcm*p1p3*p4p8*p6p7+ffmcfmb*hbcm*
4609 . p2p8*p3p5*p6p7+4*ffmcfmb*hbcm*p2p8*p3p7*p4p6-ffmcfmb*hbcm*p3p5
4610 . *p4p8*p6p7-4*ffmcfmb*hbcm*p3p7*p4p6*p4p8+hbcm*p1p2*p2p8*p6p7-
4611 . hbcm*p1p2*p4p8*p6p7+hbcm*p1p4*p2p8*p6p7-hbcm*p1p4*p4p8*p6p7+4*
4612 . hbcm*p2p4*p2p8*p6p7-4*hbcm*p2p4*p4p8*p6p7+hbcm*p2p5*p2p8*p6p7-
4613 . hbcm*p2p5*p4p8*p6p7+hbcm*p2p8*p4p5*p6p7+3*hbcm*p2p8*p4p6*p4p7-
4614 . hbcm*p2p8*p4p7*p5p6-hbcm*p4p5*p4p8*p6p7-3*hbcm*p4p6*p4p7*p4p8+
4615 . hbcm*p4p7*p4p8*p5p6))
4616 ans3=w11*ans4
4617 ans5=(2*(p6p8*p5p7)*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+2*(
4618 . p7p8*p5p6)*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+2*(p6p7*p4p8)*(
4619 . 8*fb3*fmc+8*fb4*ffmcfmb*hbcm-3*hbcm)+2*(p6p7*p2p8)*(-8*fb3*fmc
4620 . -8*fb4*ffmcfmb*hbcm+hbcm)+4*(p6p8*p4p7)*(-8*fb3*fmb+4*fb3*fmc-
4621 . 4*fb4*ffmcfmb*hbcm+8*fb4*hbcm-hbcm)+8*(p7p8*p4p6)*(-fb3*fmb+
4622 . fb3*fmc+fb4*hbcm+hbcm)+2*(p6p8*p3p7)*(-16*fb3*ffmcfmb*fmb+12*
4623 . fb3*ffmcfmb*fmc-4*fb3*fmc-4*fb4*ffmcfmb**2*hbcm+12*fb4*ffmcfmb
4624 . *hbcm-3*ffmcfmb*hbcm+hbcm)+2*(p7p8*p3p6)*(-4*fb3*ffmcfmb*fmb+4
4625 . *fb3*fmc-4*fb4*ffmcfmb**2*hbcm+8*fb4*ffmcfmb*hbcm-3*ffmcfmb*
4626 . hbcm+3*hbcm)+2*(hbcm*p1p8*p6p7+hbcm*p5p8*p6p7))
4627 ans2=w1*(4*(p4p8*p4p7*p3p6)*(4*ffmcfmb*hbcm-3*hbcm)+4*(p6p7*
4628 . p4p8*p3p4)*(ffmcfmb*hbcm-hbcm)+4*(p6p7*p4p8*p2p3)*(ffmcfmb*
4629 . hbcm-hbcm)+2*(p6p7*p4p8)*(ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2-
4630 . ffmcfmb*fmc*hbcm2-3*ffmcfmb*hbcm3-fmb*fmc*hbcm+fmc*hbcm2+2*
4631 . fmc2*hbcm)+16*(p4p8*p3p7*p3p6)*(ffmcfmb**2*hbcm-ffmcfmb*hbcm)+
4632 . 4*(-ffmcfmb*hbcm*p1p3*p4p8*p6p7-ffmcfmb*hbcm*p3p5*p4p8*p6p7-4*
4633 . ffmcfmb*hbcm*p3p7*p4p6*p4p8-hbcm*p1p2*p4p8*p6p7-hbcm*p1p4*p4p8
4634 . *p6p7-4*hbcm*p2p4*p4p8*p6p7-hbcm*p2p5*p4p8*p6p7-hbcm*p4p5*p4p8
4635 . *p6p7-3*hbcm*p4p6*p4p7*p4p8+hbcm*p4p7*p4p8*p5p6))+ans3+ans5
4636 ans1=w2*(4*(p5p8*p4p7*p3p6)*(-4*ffmcfmb*hbcm+3*hbcm)+4*(p6p7*
4637 . p5p8*p3p4)*(-ffmcfmb*hbcm+hbcm)+4*(p6p7*p5p8*p2p3)*(-ffmcfmb*
4638 . hbcm+hbcm)+2*(p6p7*p5p8)*(-ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+
4639 . ffmcfmb*fmc*hbcm2+3*ffmcfmb*hbcm3+fmb*fmc*hbcm-fmc*hbcm2-2*
4640 . fmc2*hbcm)+16*(p5p8*p3p7*p3p6)*(-ffmcfmb**2*hbcm+ffmcfmb*hbcm)
4641 . +4*(ffmcfmb*hbcm*p1p3*p5p8*p6p7+ffmcfmb*hbcm*p3p5*p5p8*p6p7+4*
4642 . ffmcfmb*hbcm*p3p7*p4p6*p5p8+hbcm*p1p2*p5p8*p6p7+hbcm*p1p4*p5p8
4643 . *p6p7+4*hbcm*p2p4*p5p8*p6p7+hbcm*p2p5*p5p8*p6p7+hbcm*p4p5*p5p8
4644 . *p6p7+3*hbcm*p4p6*p4p7*p5p8-hbcm*p4p7*p5p6*p5p8))+ans2
4645 ans=ccc*ans1
4646 b(2)=ans
4647 ans2=(8*(p7p8*p3p4)*(-fb3*ffmcfmb+fb3)+8*(p7p8*p2p3)*(-fb3*
4648 . ffmcfmb+fb3)+p7p8*(-8*fb3*ffmcfmb**2*hbcm2+8*fb3*ffmcfmb*hbcm2
4649 . -ffmcfmb*hbcm2+6*fmb*hbcm+7*fmc*hbcm-6*hbcm2)+8*(fb3*ffmcfmb*
4650 . p1p3*p7p8+2*fb3*ffmcfmb*p1p8*p3p7-2*fb3*ffmcfmb*p2p8*p3p7+fb3*
4651 . ffmcfmb*p3p5*p7p8+2*fb3*ffmcfmb*p3p7*p4p8-6*fb3*ffmcfmb*p3p7*
4652 . p5p8+fb3*p1p2*p7p8+fb3*p1p4*p7p8+2*fb3*p1p8*p4p7+fb3*p2p5*p7p8
4653 . -2*fb3*p2p8*p4p7+fb3*p4p5*p7p8+2*fb3*p4p7*p4p8-6*fb3*p4p7*p5p8
4654 . ))
4655 ans1=w2*(12*(p5p8*p4p7)*(fmb*hbcm+fmc*hbcm-hbcm2)+2*(p5p8*p5p7)
4656 . *(ffmcfmb*hbcm2-fmc*hbcm)+2*(p5p8*p3p7)*(-ffmcfmb**2*hbcm2+6*
4657 . ffmcfmb*fmb*hbcm+7*ffmcfmb*fmc*hbcm-5*ffmcfmb*hbcm2-fmc*hbcm))
4658 . +w1*(12*(p4p8*p4p7)*(-fmb*hbcm-fmc*hbcm+hbcm2)+2*(p5p7*p4p8)*(
4659 . -ffmcfmb*hbcm2+fmc*hbcm)+2*(p4p8*p3p7)*(ffmcfmb**2*hbcm2-6*
4660 . ffmcfmb*fmb*hbcm-7*ffmcfmb*fmc*hbcm+5*ffmcfmb*hbcm2+fmc*hbcm))
4661 . +w11*(12*(p4p8*p4p7)*(-fmb*hbcm-fmc*hbcm+hbcm2)+12*(p4p7*p2p8)
4662 . *(fmb*hbcm+fmc*hbcm-hbcm2)+2*(p5p7*p4p8)*(-ffmcfmb*hbcm2+fmc*
4663 . hbcm)+2*(p5p7*p2p8)*(ffmcfmb*hbcm2-fmc*hbcm)+2*(p4p8*p3p7)*(
4664 . ffmcfmb**2*hbcm2-6*ffmcfmb*fmb*hbcm-7*ffmcfmb*fmc*hbcm+5*
4665 . ffmcfmb*hbcm2+fmc*hbcm)+2*(p3p7*p2p8)*(-ffmcfmb**2*hbcm2+6*
4666 . ffmcfmb*fmb*hbcm+7*ffmcfmb*fmc*hbcm-5*ffmcfmb*hbcm2-fmc*hbcm))
4667 . +ans2
4668 ans=ccc*ans1
4669 b(3)=ans
4670 b(4)=ccc*(8*(p3p7*p3p4)*(-fb3*ffmcfmb-fb3)+8*(p3p7*p2p3)*(-5*
4671 . fb3*ffmcfmb+fb3)+p5p7*(-4*fb3*ffmcfmb*hbcm2-4*fb4*fmc*hbcm+
4672 . hbcm2)+8*p4p7*(-2*fb3*ffmcfmb*hbcm2+3*fb3*hbcm2+3*fb4*fmb*hbcm
4673 . +3*fb4*fmc*hbcm)+p3p7*(-4*fb3*ffmcfmb**2*hbcm2+12*fb3*ffmcfmb*
4674 . hbcm2+24*fb4*ffmcfmb*fmb*hbcm+28*fb4*ffmcfmb*fmc*hbcm-4*fb4*
4675 . fmc*hbcm-ffmcfmb*hbcm2+hbcm2)+8*(-3*fb3*ffmcfmb*p1p3*p3p7+5*
4676 . fb3*ffmcfmb*p3p5*p3p7-fb3*p1p2*p3p7-2*fb3*p1p3*p4p7-fb3*p1p4*
4677 . p3p7-4*fb3*p2p3*p4p7+2*fb3*p2p3*p5p7-fb3*p2p5*p3p7-2*fb3*p3p4*
4678 . p4p7+6*fb3*p3p5*p4p7-fb3*p3p7*p4p5))
4679 ans5=4*(-3*ffmcfmb*hbcm*p1p3*p2p8*p3p7+3*ffmcfmb*hbcm*p1p3*p3p7
4680 . *p4p8+5*ffmcfmb*hbcm*p2p8*p3p5*p3p7-5*ffmcfmb*hbcm*p3p5*p3p7*
4681 . p4p8-hbcm*p1p2*p2p8*p3p7+hbcm*p1p2*p3p7*p4p8-2*hbcm*p1p3*p2p8*
4682 . p4p7+2*hbcm*p1p3*p4p7*p4p8-hbcm*p1p4*p2p8*p3p7+hbcm*p1p4*p3p7*
4683 . p4p8-4*hbcm*p2p3*p2p8*p4p7+2*hbcm*p2p3*p2p8*p5p7+4*hbcm*p2p3*
4684 . p4p7*p4p8-2*hbcm*p2p3*p4p8*p5p7-hbcm*p2p5*p2p8*p3p7+hbcm*p2p5*
4685 . p3p7*p4p8-2*hbcm*p2p8*p3p4*p4p7+6*hbcm*p2p8*p3p5*p4p7-hbcm*
4686 . p2p8*p3p7*p4p5+2*hbcm*p3p4*p4p7*p4p8-6*hbcm*p3p5*p4p7*p4p8+
4687 . hbcm*p3p7*p4p5*p4p8)
4688 ans4=2*(p5p7*p4p8)*(ffmcfmb*hbcm3-fmc*hbcm2)+4*(p4p8*p4p7)*(2*
4689 . ffmcfmb*hbcm3-3*fmb*hbcm2+3*fmc*hbcm2-3*hbcm3)+2*(p5p7*p2p8)*(
4690 . -ffmcfmb*hbcm3+fmc*hbcm2)+4*(p4p7*p2p8)*(-2*ffmcfmb*hbcm3+3*
4691 . fmb*hbcm2-3*fmc*hbcm2+3*hbcm3)+4*(p4p8*p3p7*p3p4)*(ffmcfmb*
4692 . hbcm+hbcm)+4*(p3p7*p3p4*p2p8)*(-ffmcfmb*hbcm-hbcm)+4*(p4p8*
4693 . p3p7*p2p3)*(5*ffmcfmb*hbcm-hbcm)+4*(p3p7*p2p8*p2p3)*(-5*
4694 . ffmcfmb*hbcm+hbcm)+2*(p4p8*p3p7)*(ffmcfmb**2*hbcm3-6*ffmcfmb*
4695 . fmb*hbcm2+7*ffmcfmb*fmc*hbcm2-3*ffmcfmb*hbcm3-fmc*hbcm2)+2*(
4696 . p3p7*p2p8)*(-ffmcfmb**2*hbcm3+6*ffmcfmb*fmb*hbcm2-7*ffmcfmb*
4697 . fmc*hbcm2+3*ffmcfmb*hbcm3+fmc*hbcm2)+ans5
4698 ans3=w11*ans4
4699 ans6=(2*(p5p8*p3p7)*(24*fb4*ffmcfmb*hbcm-hbcm)+2*(p4p8*p3p7)*(-
4700 . 8*fb4*ffmcfmb*hbcm+hbcm)+4*(p7p8*p3p5)*(-2*fb4*ffmcfmb*hbcm+3*
4701 . hbcm)+4*(p7p8*p3p4)*(2*fb4*ffmcfmb*hbcm-2*fb4*hbcm-hbcm)+2*(
4702 . p3p7*p2p8)*(-24*fb4*ffmcfmb*hbcm+8*fb4*hbcm+hbcm)+4*(p7p8*p2p3
4703 . )*(2*fb4*ffmcfmb*hbcm-2*fb4*hbcm-3*hbcm)+2*(p3p7*p1p8)*(-8*fb4
4704 . *ffmcfmb*hbcm-hbcm)+4*(p7p8*p1p3)*(-2*fb4*ffmcfmb*hbcm-hbcm)+
4705 . p7p8*(8*fb4*ffmcfmb**2*hbcm3-8*fb4*ffmcfmb*hbcm3-3*ffmcfmb*
4706 . hbcm3+6*fmb*hbcm2-7*fmc*hbcm2+6*hbcm3)+8*(-fb4*hbcm*p1p2*p7p8-
4707 . fb4*hbcm*p1p4*p7p8-2*fb4*hbcm*p1p8*p4p7-fb4*hbcm*p2p5*p7p8-4*
4708 . fb4*hbcm*p2p8*p4p7+2*fb4*hbcm*p2p8*p5p7-fb4*hbcm*p4p5*p7p8-2*
4709 . fb4*hbcm*p4p7*p4p8+6*fb4*hbcm*p4p7*p5p8))
4710 ans2=w1*(2*(p5p7*p4p8)*(ffmcfmb*hbcm3-fmc*hbcm2)+4*(p4p8*p4p7)*
4711 . (2*ffmcfmb*hbcm3-3*fmb*hbcm2+3*fmc*hbcm2-3*hbcm3)+4*(p4p8*p3p7
4712 . *p3p4)*(ffmcfmb*hbcm+hbcm)+4*(p4p8*p3p7*p2p3)*(5*ffmcfmb*hbcm-
4713 . hbcm)+2*(p4p8*p3p7)*(ffmcfmb**2*hbcm3-6*ffmcfmb*fmb*hbcm2+7*
4714 . ffmcfmb*fmc*hbcm2-3*ffmcfmb*hbcm3-fmc*hbcm2)+4*(3*ffmcfmb*hbcm
4715 . *p1p3*p3p7*p4p8-5*ffmcfmb*hbcm*p3p5*p3p7*p4p8+hbcm*p1p2*p3p7*
4716 . p4p8+2*hbcm*p1p3*p4p7*p4p8+hbcm*p1p4*p3p7*p4p8+4*hbcm*p2p3*
4717 . p4p7*p4p8-2*hbcm*p2p3*p4p8*p5p7+hbcm*p2p5*p3p7*p4p8+2*hbcm*
4718 . p3p4*p4p7*p4p8-6*hbcm*p3p5*p4p7*p4p8+hbcm*p3p7*p4p5*p4p8))+
4719 . ans3+ans6
4720 ans1=w2*(2*(p5p8*p5p7)*(-ffmcfmb*hbcm3+fmc*hbcm2)+4*(p5p8*p4p7)
4721 . *(-2*ffmcfmb*hbcm3+3*fmb*hbcm2-3*fmc*hbcm2+3*hbcm3)+4*(p5p8*
4722 . p3p7*p3p4)*(-ffmcfmb*hbcm-hbcm)+4*(p5p8*p3p7*p2p3)*(-5*ffmcfmb
4723 . *hbcm+hbcm)+2*(p5p8*p3p7)*(-ffmcfmb**2*hbcm3+6*ffmcfmb*fmb*
4724 . hbcm2-7*ffmcfmb*fmc*hbcm2+3*ffmcfmb*hbcm3+fmc*hbcm2)+4*(-3*
4725 . ffmcfmb*hbcm*p1p3*p3p7*p5p8+5*ffmcfmb*hbcm*p3p5*p3p7*p5p8-hbcm
4726 . *p1p2*p3p7*p5p8-2*hbcm*p1p3*p4p7*p5p8-hbcm*p1p4*p3p7*p5p8-4*
4727 . hbcm*p2p3*p4p7*p5p8+2*hbcm*p2p3*p5p7*p5p8-hbcm*p2p5*p3p7*p5p8-
4728 . 2*hbcm*p3p4*p4p7*p5p8+6*hbcm*p3p5*p4p7*p5p8-hbcm*p3p7*p4p5*
4729 . p5p8))+ans2
4730 ans=ccc*ans1
4731 b(5)=ans
4732 ans=ccc*(w2*(2*(p5p8*p4p6)*(ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm+
4733 . hbcm2)+2*(p5p8*p3p6)*(ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm-2*
4734 . ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2))+w1*(2*(p4p8*p4p6)*(-ffmcfmb*
4735 . hbcm2+fmb*hbcm+2*fmc*hbcm-hbcm2)+2*(p4p8*p3p6)*(-ffmcfmb**2*
4736 . hbcm2+ffmcfmb*fmb*hbcm+2*ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2))+w11*
4737 . (2*(p4p8*p4p6)*(-ffmcfmb*hbcm2+fmb*hbcm+2*fmc*hbcm-hbcm2)+2*(
4738 . p4p6*p2p8)*(ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm+hbcm2)+2*(p4p8*
4739 . p3p6)*(-ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm+2*ffmcfmb*fmc*hbcm-
4740 . ffmcfmb*hbcm2)+2*(p3p6*p2p8)*(ffmcfmb**2*hbcm2-ffmcfmb*fmb*
4741 . hbcm-2*ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2))+(8*(p6p8*p3p4)*(-fb3*
4742 . ffmcfmb+fb3)+16*(p3p6*p2p8)*(-2*fb3*ffmcfmb+fb3)+8*(p6p8*p2p3)
4743 . *(-fb3*ffmcfmb+fb3)+p6p8*(-8*fb3*ffmcfmb**2*hbcm2+8*fb3*
4744 . ffmcfmb*hbcm2+ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm+hbcm2)+8*(fb3*
4745 . ffmcfmb*p1p3*p6p8+fb3*ffmcfmb*p3p5*p6p8+fb3*p1p2*p6p8+fb3*p1p4
4746 . *p6p8+fb3*p2p5*p6p8-2*fb3*p2p8*p4p6+2*fb3*p2p8*p5p6-fb3*p3p6*
4747 . p4p8+fb3*p4p5*p6p8-fb3*p4p6*p4p8-fb3*p4p8*p5p6)))
4748 b(6)=ans
4749 b(7)=ccc*(8*(p3p6*p2p3)*(5*fb3*ffmcfmb-3*fb3)+p4p6*(-4*fb3*
4750 . ffmcfmb*hbcm2+4*fb3*hbcm2-4*fb4*fmb*hbcm-8*fb4*fmc*hbcm+hbcm2)
4751 . +p3p6*(-4*fb3*ffmcfmb**2*hbcm2+4*fb3*ffmcfmb*hbcm2-4*fb4*
4752 . ffmcfmb*fmb*hbcm-8*fb4*ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2)+8*(fb3*
4753 . ffmcfmb*hbcm2*p5p6-fb3*ffmcfmb*p1p3*p3p6+fb3*ffmcfmb*p3p4*p3p6
4754 . -fb3*ffmcfmb*p3p5*p3p6-fb3*p1p2*p3p6-fb3*p1p4*p3p6+2*fb3*p2p3*
4755 . p4p6-2*fb3*p2p3*p5p6-fb3*p2p5*p3p6+fb3*p3p4*p4p6+fb3*p3p4*p5p6
4756 . -fb3*p3p6*p4p5))
4757 ans3=(2*(p4p8*p3p6)*(4*fb4*hbcm+hbcm)+8*(p6p8*p3p4)*(fb4*
4758 . ffmcfmb*hbcm-fb4*hbcm)+2*(p3p6*p2p8)*(16*fb4*ffmcfmb*hbcm-8*
4759 . fb4*hbcm+hbcm)+8*(p6p8*p2p3)*(fb4*ffmcfmb*hbcm-fb4*hbcm+hbcm)+
4760 . p6p8*(8*fb4*ffmcfmb**2*hbcm3-8*fb4*ffmcfmb*hbcm3-3*ffmcfmb*
4761 . hbcm3-fmb*hbcm2+2*fmc*hbcm2+hbcm3)+2*(-4*fb4*ffmcfmb*hbcm*p1p3
4762 . *p6p8-4*fb4*ffmcfmb*hbcm*p3p5*p6p8-4*fb4*hbcm*p1p2*p6p8-4*fb4*
4763 . hbcm*p1p4*p6p8-4*fb4*hbcm*p2p5*p6p8+8*fb4*hbcm*p2p8*p4p6-8*fb4
4764 . *hbcm*p2p8*p5p6-4*fb4*hbcm*p4p5*p6p8+4*fb4*hbcm*p4p6*p4p8+4*
4765 . fb4*hbcm*p4p8*p5p6-hbcm*p1p8*p3p6-hbcm*p3p6*p5p8))
4766 ans2=w11*(2*(p4p8*p4p6)*(ffmcfmb*hbcm3+fmb*hbcm2-2*fmc*hbcm2-
4767 . hbcm3)+2*(p4p6*p2p8)*(-ffmcfmb*hbcm3-fmb*hbcm2+2*fmc*hbcm2+
4768 . hbcm3)+4*(p4p8*p3p6*p2p3)*(-5*ffmcfmb*hbcm+3*hbcm)+4*(p3p6*
4769 . p2p8*p2p3)*(5*ffmcfmb*hbcm-3*hbcm)+2*(p4p8*p3p6)*(ffmcfmb**2*
4770 . hbcm3+ffmcfmb*fmb*hbcm2-2*ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3)+2*(
4771 . p3p6*p2p8)*(-ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+2*ffmcfmb*fmc*
4772 . hbcm2+ffmcfmb*hbcm3)+4*(-ffmcfmb*hbcm*p1p3*p2p8*p3p6+ffmcfmb*
4773 . hbcm*p1p3*p3p6*p4p8+ffmcfmb*hbcm*p2p8*p3p4*p3p6-ffmcfmb*hbcm*
4774 . p2p8*p3p5*p3p6-ffmcfmb*hbcm*p3p4*p3p6*p4p8+ffmcfmb*hbcm*p3p5*
4775 . p3p6*p4p8+ffmcfmb*hbcm3*p2p8*p5p6-ffmcfmb*hbcm3*p4p8*p5p6-hbcm
4776 . *p1p2*p2p8*p3p6+hbcm*p1p2*p3p6*p4p8-hbcm*p1p4*p2p8*p3p6+hbcm*
4777 . p1p4*p3p6*p4p8+2*hbcm*p2p3*p2p8*p4p6-2*hbcm*p2p3*p2p8*p5p6-2*
4778 . hbcm*p2p3*p4p6*p4p8+2*hbcm*p2p3*p4p8*p5p6-hbcm*p2p5*p2p8*p3p6+
4779 . hbcm*p2p5*p3p6*p4p8+hbcm*p2p8*p3p4*p4p6+hbcm*p2p8*p3p4*p5p6-
4780 . hbcm*p2p8*p3p6*p4p5-hbcm*p3p4*p4p6*p4p8-hbcm*p3p4*p4p8*p5p6+
4781 . hbcm*p3p6*p4p5*p4p8))+ans3
4782 ans1=w2*(2*(p5p8*p4p6)*(-ffmcfmb*hbcm3-fmb*hbcm2+2*fmc*hbcm2+
4783 . hbcm3)+4*(p5p8*p3p6*p2p3)*(5*ffmcfmb*hbcm-3*hbcm)+2*(p5p8*p3p6
4784 . )*(-ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+2*ffmcfmb*fmc*hbcm2+
4785 . ffmcfmb*hbcm3)+4*(-ffmcfmb*hbcm*p1p3*p3p6*p5p8+ffmcfmb*hbcm*
4786 . p3p4*p3p6*p5p8-ffmcfmb*hbcm*p3p5*p3p6*p5p8+ffmcfmb*hbcm3*p5p6*
4787 . p5p8-hbcm*p1p2*p3p6*p5p8-hbcm*p1p4*p3p6*p5p8+2*hbcm*p2p3*p4p6*
4788 . p5p8-2*hbcm*p2p3*p5p6*p5p8-hbcm*p2p5*p3p6*p5p8+hbcm*p3p4*p4p6*
4789 . p5p8+hbcm*p3p4*p5p6*p5p8-hbcm*p3p6*p4p5*p5p8))+w1*(2*(p4p8*
4790 . p4p6)*(ffmcfmb*hbcm3+fmb*hbcm2-2*fmc*hbcm2-hbcm3)+4*(p4p8*p3p6
4791 . *p2p3)*(-5*ffmcfmb*hbcm+3*hbcm)+2*(p4p8*p3p6)*(ffmcfmb**2*
4792 . hbcm3+ffmcfmb*fmb*hbcm2-2*ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3)+4*(
4793 . ffmcfmb*hbcm*p1p3*p3p6*p4p8-ffmcfmb*hbcm*p3p4*p3p6*p4p8+
4794 . ffmcfmb*hbcm*p3p5*p3p6*p4p8-ffmcfmb*hbcm3*p4p8*p5p6+hbcm*p1p2*
4795 . p3p6*p4p8+hbcm*p1p4*p3p6*p4p8-2*hbcm*p2p3*p4p6*p4p8+2*hbcm*
4796 . p2p3*p4p8*p5p6+hbcm*p2p5*p3p6*p4p8-hbcm*p3p4*p4p6*p4p8-hbcm*
4797 . p3p4*p4p8*p5p6+hbcm*p3p6*p4p5*p4p8))+ans2
4798 ans=ccc*ans1
4799 b(8)=ans
4800 ans=ccc*(2*(p5p6*p3p7)*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+2*(
4801 . p5p7*p3p6)*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+4*(p6p7*p3p4)*(
4802 . -4*fb3*fmc-6*fb4*ffmcfmb*hbcm+2*fb4*hbcm+hbcm)+4*(p6p7*p2p3)*(
4803 . 4*fb3*fmc+2*fb4*ffmcfmb*hbcm+2*fb4*hbcm-hbcm)+8*(p4p6*p3p7)*(
4804 . fb3*fmb-fb3*fmc+4*fb4*ffmcfmb*hbcm-fb4*hbcm)+4*(p4p7*p3p6)*(8*
4805 . fb3*fmb-4*fb3*fmc-4*fb4*ffmcfmb*hbcm-2*fb4*hbcm-hbcm)+4*(p3p7*
4806 . p3p6)*(10*fb3*ffmcfmb*fmb-6*fb3*ffmcfmb*fmc-4*fb4*ffmcfmb**2*
4807 . hbcm-2*fb4*ffmcfmb*hbcm-ffmcfmb*hbcm)+p6p7*(4*fb3*ffmcfmb*fmb*
4808 . hbcm2-12*fb3*ffmcfmb*fmc*hbcm2-4*fb3*fmc*hbcm2-12*fb4*ffmcfmb
4809 . **2*hbcm3+4*fb4*ffmcfmb*hbcm3+4*fb4*fmb*fmc*hbcm-8*fb4*fmc2*
4810 . hbcm+2*ffmcfmb*hbcm3-fmb*hbcm2+fmc*hbcm2+hbcm3)+8*(fb4*ffmcfmb
4811 . *hbcm*p1p3*p6p7+fb4*ffmcfmb*hbcm*p3p5*p6p7+fb4*hbcm*p1p2*p6p7+
4812 . fb4*hbcm*p1p4*p6p7+4*fb4*hbcm*p2p4*p6p7+fb4*hbcm*p2p5*p6p7+fb4
4813 . *hbcm*p4p5*p6p7+3*fb4*hbcm*p4p6*p4p7-fb4*hbcm*p4p7*p5p6))
4814 b(9)=ans
4815 ans5=4*(p3p7*p3p6*p2p8)*(5*ffmcfmb**2*hbcm2-4*ffmcfmb*fmb*hbcm-
4816 . ffmcfmb*fmc*hbcm-2*ffmcfmb*hbcm2)+4*(-ffmcfmb*hbcm2*p1p3*p2p8*
4817 . p6p7+ffmcfmb*hbcm2*p1p3*p4p8*p6p7-ffmcfmb*hbcm2*p2p8*p3p5*p6p7
4818 . +ffmcfmb*hbcm2*p3p5*p4p8*p6p7-hbcm2*p1p2*p2p8*p6p7+hbcm2*p1p2*
4819 . p4p8*p6p7-hbcm2*p1p4*p2p8*p6p7+hbcm2*p1p4*p4p8*p6p7-4*hbcm2*
4820 . p2p4*p2p8*p6p7+4*hbcm2*p2p4*p4p8*p6p7-hbcm2*p2p5*p2p8*p6p7+
4821 . hbcm2*p2p5*p4p8*p6p7-hbcm2*p2p8*p4p5*p6p7-hbcm2*p2p8*p4p6*p4p7
4822 . -hbcm2*p2p8*p4p7*p5p6+hbcm2*p4p5*p4p8*p6p7+hbcm2*p4p6*p4p7*
4823 . p4p8+hbcm2*p4p7*p4p8*p5p6)
4824 ans4=4*(p5p6*p4p8*p3p7)*(ffmcfmb*hbcm2+fmc*hbcm)+4*(p4p8*p4p6*
4825 . p3p7)*(3*ffmcfmb*hbcm2-fmc*hbcm)+4*(p5p7*p4p8*p3p6)*(ffmcfmb*
4826 . hbcm2-fmc*hbcm)+4*(p4p8*p4p7*p3p6)*(-6*ffmcfmb*hbcm2+4*fmb*
4827 . hbcm+2*fmc*hbcm+hbcm2)+4*(p6p7*p4p8*p3p4)*(-3*ffmcfmb*hbcm2+2*
4828 . fmc*hbcm+hbcm2)+4*(p5p6*p3p7*p2p8)*(-ffmcfmb*hbcm2-fmc*hbcm)+4
4829 . *(p4p6*p3p7*p2p8)*(-3*ffmcfmb*hbcm2+fmc*hbcm)+4*(p5p7*p3p6*
4830 . p2p8)*(-ffmcfmb*hbcm2+fmc*hbcm)+4*(p4p7*p3p6*p2p8)*(6*ffmcfmb*
4831 . hbcm2-4*fmb*hbcm-2*fmc*hbcm-hbcm2)+4*(p6p7*p3p4*p2p8)*(3*
4832 . ffmcfmb*hbcm2-2*fmc*hbcm-hbcm2)+4*(p6p7*p4p8*p2p3)*(ffmcfmb*
4833 . hbcm2-2*fmb*hbcm-4*fmc*hbcm+3*hbcm2)+4*(p6p7*p2p8*p2p3)*(-
4834 . ffmcfmb*hbcm2+2*fmb*hbcm+4*fmc*hbcm-3*hbcm2)+2*(p6p7*p4p8)*(-3
4835 . *ffmcfmb**2*hbcm4+ffmcfmb*fmb*hbcm3+3*ffmcfmb*fmc*hbcm3+
4836 . ffmcfmb*hbcm4-fmb*fmc*hbcm2+fmc*hbcm3-2*fmc2*hbcm2)+2*(p6p7*
4837 . p2p8)*(3*ffmcfmb**2*hbcm4-ffmcfmb*fmb*hbcm3-3*ffmcfmb*fmc*
4838 . hbcm3-ffmcfmb*hbcm4+fmb*fmc*hbcm2-fmc*hbcm3+2*fmc2*hbcm2)+4*(
4839 . p4p8*p3p7*p3p6)*(-5*ffmcfmb**2*hbcm2+4*ffmcfmb*fmb*hbcm+
4840 . ffmcfmb*fmc*hbcm+2*ffmcfmb*hbcm2)+ans5
4841 ans3=w11*ans4
4842 ans7=2*(-16*fb3*ffmcfmb*p1p3*p3p7*p6p8+16*fb3*ffmcfmb*p1p8*p3p6
4843 . *p3p7+16*fb3*ffmcfmb*p3p4*p3p7*p6p8-16*fb3*ffmcfmb*p3p5*p3p7*
4844 . p6p8-16*fb3*ffmcfmb*p3p6*p3p7*p4p8+16*fb3*ffmcfmb*p3p6*p3p7*
4845 . p5p8-16*fb3*p1p3*p4p7*p6p8+16*fb3*p1p8*p3p6*p4p7-32*fb3*p2p3*
4846 . p2p8*p6p7-16*fb3*p2p3*p4p6*p7p8+32*fb3*p2p3*p4p8*p6p7+16*fb3*
4847 . p2p3*p5p6*p7p8-16*fb3*p2p3*p5p7*p6p8+16*fb3*p2p8*p3p6*p4p7+40*
4848 . fb3*p2p8*p3p7*p4p6-24*fb3*p2p8*p3p7*p5p6+16*fb3*p3p4*p4p7*p6p8
4849 . -16*fb3*p3p5*p4p7*p6p8-16*fb3*p3p6*p4p7*p4p8+16*fb3*p3p6*p4p7*
4850 . p5p8-hbcm2*p1p8*p6p7-hbcm2*p5p8*p6p7)
4851 ans6=16*(p3p7*p3p6*p2p8)*(10*fb3*ffmcfmb-3*fb3)+32*(p6p8*p3p7*
4852 . p2p3)*(fb3*ffmcfmb-fb3)+32*(p7p8*p3p6*p2p3)*(-2*fb3*ffmcfmb+
4853 . fb3)+2*(p6p8*p5p7)*(4*fb3*ffmcfmb*hbcm2+4*fb4*fmc*hbcm-hbcm2)+
4854 . 2*(p7p8*p5p6)*(-4*fb3*ffmcfmb*hbcm2-4*fb4*fmc*hbcm-hbcm2)+2*(
4855 . p6p7*p4p8)*(-8*fb3*ffmcfmb*hbcm2-8*fb4*fmc*hbcm+3*hbcm2)+4*(
4856 . p6p8*p4p7)*(4*fb3*ffmcfmb*hbcm2-8*fb4*fmb*hbcm-4*fb4*fmc*hbcm+
4857 . 3*hbcm2)+2*(p7p8*p4p6)*(4*fb3*ffmcfmb*hbcm2+4*fb4*fmc*hbcm-3*
4858 . hbcm2)+2*(p6p7*p2p8)*(8*fb3*ffmcfmb*hbcm2+8*fb4*fmc*hbcm-hbcm2
4859 . )+2*(p6p8*p3p7)*(4*fb3*ffmcfmb**2*hbcm2+4*fb3*ffmcfmb*hbcm2-16
4860 . *fb4*ffmcfmb*fmb*hbcm-12*fb4*ffmcfmb*fmc*hbcm+4*fb4*fmc*hbcm+5
4861 . *ffmcfmb*hbcm2+2*fmc*hbcm-hbcm2)+2*(p7p8*p3p6)*(8*fb3*ffmcfmb
4862 . **2*hbcm2-4*fb3*ffmcfmb*hbcm2+8*fb4*ffmcfmb*fmc*hbcm-4*fb4*fmc
4863 . *hbcm+5*ffmcfmb*hbcm2-4*fmb*hbcm-3*fmc*hbcm-hbcm2)+ans7
4864 ans2=w1*(4*(p5p6*p4p8*p3p7)*(ffmcfmb*hbcm2+fmc*hbcm)+4*(p4p8*
4865 . p4p6*p3p7)*(3*ffmcfmb*hbcm2-fmc*hbcm)+4*(p5p7*p4p8*p3p6)*(
4866 . ffmcfmb*hbcm2-fmc*hbcm)+4*(p4p8*p4p7*p3p6)*(-6*ffmcfmb*hbcm2+4
4867 . *fmb*hbcm+2*fmc*hbcm+hbcm2)+4*(p6p7*p4p8*p3p4)*(-3*ffmcfmb*
4868 . hbcm2+2*fmc*hbcm+hbcm2)+4*(p6p7*p4p8*p2p3)*(ffmcfmb*hbcm2-2*
4869 . fmb*hbcm-4*fmc*hbcm+3*hbcm2)+2*(p6p7*p4p8)*(-3*ffmcfmb**2*
4870 . hbcm4+ffmcfmb*fmb*hbcm3+3*ffmcfmb*fmc*hbcm3+ffmcfmb*hbcm4-fmb*
4871 . fmc*hbcm2+fmc*hbcm3-2*fmc2*hbcm2)+4*(p4p8*p3p7*p3p6)*(-5*
4872 . ffmcfmb**2*hbcm2+4*ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+2*ffmcfmb
4873 . *hbcm2)+4*(ffmcfmb*hbcm2*p1p3*p4p8*p6p7+ffmcfmb*hbcm2*p3p5*
4874 . p4p8*p6p7+hbcm2*p1p2*p4p8*p6p7+hbcm2*p1p4*p4p8*p6p7+4*hbcm2*
4875 . p2p4*p4p8*p6p7+hbcm2*p2p5*p4p8*p6p7+hbcm2*p4p5*p4p8*p6p7+hbcm2
4876 . *p4p6*p4p7*p4p8+hbcm2*p4p7*p4p8*p5p6))+ans3+ans6
4877 ans1=w2*(4*(p5p8*p5p6*p3p7)*(-ffmcfmb*hbcm2-fmc*hbcm)+4*(p5p8*
4878 . p4p6*p3p7)*(-3*ffmcfmb*hbcm2+fmc*hbcm)+4*(p5p8*p5p7*p3p6)*(-
4879 . ffmcfmb*hbcm2+fmc*hbcm)+4*(p5p8*p4p7*p3p6)*(6*ffmcfmb*hbcm2-4*
4880 . fmb*hbcm-2*fmc*hbcm-hbcm2)+4*(p6p7*p5p8*p3p4)*(3*ffmcfmb*hbcm2
4881 . -2*fmc*hbcm-hbcm2)+4*(p6p7*p5p8*p2p3)*(-ffmcfmb*hbcm2+2*fmb*
4882 . hbcm+4*fmc*hbcm-3*hbcm2)+2*(p6p7*p5p8)*(3*ffmcfmb**2*hbcm4-
4883 . ffmcfmb*fmb*hbcm3-3*ffmcfmb*fmc*hbcm3-ffmcfmb*hbcm4+fmb*fmc*
4884 . hbcm2-fmc*hbcm3+2*fmc2*hbcm2)+4*(p5p8*p3p7*p3p6)*(5*ffmcfmb**2
4885 . *hbcm2-4*ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm-2*ffmcfmb*hbcm2)+4*
4886 . (-ffmcfmb*hbcm2*p1p3*p5p8*p6p7-ffmcfmb*hbcm2*p3p5*p5p8*p6p7-
4887 . hbcm2*p1p2*p5p8*p6p7-hbcm2*p1p4*p5p8*p6p7-4*hbcm2*p2p4*p5p8*
4888 . p6p7-hbcm2*p2p5*p5p8*p6p7-hbcm2*p4p5*p5p8*p6p7-hbcm2*p4p6*p4p7
4889 . *p5p8-hbcm2*p4p7*p5p6*p5p8))+ans2
4890 ans=ccc*ans1
4891 b(10)=ans
4892 ans=ccc*(w2*(2*(p5p8*p3p4)*(-ffmcfmb*hbcm+hbcm)+2*(p5p8*p2p3)*(
4893 . -ffmcfmb*hbcm+hbcm)+2*p5p8*(-ffmcfmb**2*hbcm3+ffmcfmb*hbcm3)+2
4894 . *(ffmcfmb*hbcm*p1p3*p5p8+ffmcfmb*hbcm*p3p5*p5p8+hbcm*p1p2*p5p8
4895 . +hbcm*p1p4*p5p8+hbcm*p2p5*p5p8+hbcm*p4p5*p5p8))+w1*(2*(p4p8*
4896 . p3p4)*(ffmcfmb*hbcm-hbcm)+2*(p4p8*p2p3)*(ffmcfmb*hbcm-hbcm)+2*
4897 . p4p8*(ffmcfmb**2*hbcm3-ffmcfmb*hbcm3)+2*(-ffmcfmb*hbcm*p1p3*
4898 . p4p8-ffmcfmb*hbcm*p3p5*p4p8-hbcm*p1p2*p4p8-hbcm*p1p4*p4p8-hbcm
4899 . *p2p5*p4p8-hbcm*p4p5*p4p8))+w11*(2*(p4p8*p3p4)*(ffmcfmb*hbcm-
4900 . hbcm)+2*(p3p4*p2p8)*(-ffmcfmb*hbcm+hbcm)+2*(p4p8*p2p3)*(
4901 . ffmcfmb*hbcm-hbcm)+2*(p2p8*p2p3)*(-ffmcfmb*hbcm+hbcm)+2*p4p8*(
4902 . ffmcfmb**2*hbcm3-ffmcfmb*hbcm3)+2*p2p8*(-ffmcfmb**2*hbcm3+
4903 . ffmcfmb*hbcm3)+2*(ffmcfmb*hbcm*p1p3*p2p8-ffmcfmb*hbcm*p1p3*
4904 . p4p8+ffmcfmb*hbcm*p2p8*p3p5-ffmcfmb*hbcm*p3p5*p4p8+hbcm*p1p2*
4905 . p2p8-hbcm*p1p2*p4p8+hbcm*p1p4*p2p8-hbcm*p1p4*p4p8+hbcm*p2p5*
4906 . p2p8-hbcm*p2p5*p4p8+hbcm*p2p8*p4p5-hbcm*p4p5*p4p8))+(hbcm*p1p8
4907 . -hbcm*p2p8-hbcm*p4p8+hbcm*p5p8))
4908 b(11)=ans
4909 b(12)=ccc*(4*p3p4*(fb3*ffmcfmb-fb3)+4*p2p3*(fb3*ffmcfmb-fb3)+4*
4910 . (fb3*ffmcfmb**2*hbcm2-fb3*ffmcfmb*hbcm2-fb3*ffmcfmb*p1p3-fb3*
4911 . ffmcfmb*p3p5-fb3*p1p2-fb3*p1p4-fb3*p2p5-fb3*p4p5))
4912 ans=ccc*(w2*(2*(p5p8*p3p4)*(-ffmcfmb*hbcm2+hbcm2)+2*(p5p8*p2p3)
4913 . *(-ffmcfmb*hbcm2+hbcm2)+2*p5p8*(-ffmcfmb**2*hbcm4+ffmcfmb*
4914 . hbcm4)+2*(ffmcfmb*hbcm2*p1p3*p5p8+ffmcfmb*hbcm2*p3p5*p5p8+
4915 . hbcm2*p1p2*p5p8+hbcm2*p1p4*p5p8+hbcm2*p2p5*p5p8+hbcm2*p4p5*
4916 . p5p8))+w1*(2*(p4p8*p3p4)*(ffmcfmb*hbcm2-hbcm2)+2*(p4p8*p2p3)*(
4917 . ffmcfmb*hbcm2-hbcm2)+2*p4p8*(ffmcfmb**2*hbcm4-ffmcfmb*hbcm4)+2
4918 . *(-ffmcfmb*hbcm2*p1p3*p4p8-ffmcfmb*hbcm2*p3p5*p4p8-hbcm2*p1p2*
4919 . p4p8-hbcm2*p1p4*p4p8-hbcm2*p2p5*p4p8-hbcm2*p4p5*p4p8))+w11*(2*
4920 . (p4p8*p3p4)*(ffmcfmb*hbcm2-hbcm2)+2*(p3p4*p2p8)*(-ffmcfmb*
4921 . hbcm2+hbcm2)+2*(p4p8*p2p3)*(ffmcfmb*hbcm2-hbcm2)+2*(p2p8*p2p3)
4922 . *(-ffmcfmb*hbcm2+hbcm2)+2*p4p8*(ffmcfmb**2*hbcm4-ffmcfmb*hbcm4
4923 . )+2*p2p8*(-ffmcfmb**2*hbcm4+ffmcfmb*hbcm4)+2*(ffmcfmb*hbcm2*
4924 . p1p3*p2p8-ffmcfmb*hbcm2*p1p3*p4p8+ffmcfmb*hbcm2*p2p8*p3p5-
4925 . ffmcfmb*hbcm2*p3p5*p4p8+hbcm2*p1p2*p2p8-hbcm2*p1p2*p4p8+hbcm2*
4926 . p1p4*p2p8-hbcm2*p1p4*p4p8+hbcm2*p2p5*p2p8-hbcm2*p2p5*p4p8+
4927 . hbcm2*p2p8*p4p5-hbcm2*p4p5*p4p8))+(hbcm2*p1p8-hbcm2*p2p8-hbcm2
4928 . *p4p8+hbcm2*p5p8))
4929 b(13)=ans
4930 b(14)=ccc*(4*p3p4*(-fb4*ffmcfmb*hbcm+fb4*hbcm)+4*p2p3*(-fb4*
4931 . ffmcfmb*hbcm+fb4*hbcm)+4*(-fb4*ffmcfmb**2*hbcm3+fb4*ffmcfmb*
4932 . hbcm*p1p3+fb4*ffmcfmb*hbcm*p3p5+fb4*ffmcfmb*hbcm3+fb4*hbcm*
4933 . p1p2+fb4*hbcm*p1p4+fb4*hbcm*p2p5+fb4*hbcm*p4p5))
4934 b(15)=ccc*(w2*(2*(p5p8*p3p6)*(8*ffmcfmb*hbcm2-3*hbcm2)+2*(5*
4935 . hbcm2*p4p6*p5p8-3*hbcm2*p5p6*p5p8))+w1*(2*(p4p8*p3p6)*(-8*
4936 . ffmcfmb*hbcm2+3*hbcm2)+2*(-5*hbcm2*p4p6*p4p8+3*hbcm2*p4p8*p5p6
4937 . ))+w11*(2*(p4p8*p3p6)*(-8*ffmcfmb*hbcm2+3*hbcm2)+2*(p3p6*p2p8)
4938 . *(8*ffmcfmb*hbcm2-3*hbcm2)+2*(5*hbcm2*p2p8*p4p6-3*hbcm2*p2p8*
4939 . p5p6-5*hbcm2*p4p6*p4p8+3*hbcm2*p4p8*p5p6))+8*hbcm2*p6p8)
4940 b(16)=ccc*(w2*(2*(p5p8*p3p6)*(-8*ffmcfmb*hbcm+3*hbcm)+2*(-5*
4941 . hbcm*p4p6*p5p8+3*hbcm*p5p6*p5p8))+w1*(2*(p4p8*p3p6)*(8*ffmcfmb
4942 . *hbcm-3*hbcm)+2*(5*hbcm*p4p6*p4p8-3*hbcm*p4p8*p5p6))+w11*(2*(
4943 . p4p8*p3p6)*(8*ffmcfmb*hbcm-3*hbcm)+2*(p3p6*p2p8)*(-8*ffmcfmb*
4944 . hbcm+3*hbcm)+2*(-5*hbcm*p2p8*p4p6+3*hbcm*p2p8*p5p6+5*hbcm*p4p6
4945 . *p4p8-3*hbcm*p4p8*p5p6))-8*hbcm*p6p8)
4946 b(18)=ccc*(w2*(4*(p5p8*p3p7)*(4*ffmcfmb*hbcm2-hbcm2)+4*(3*hbcm2
4947 . *p4p7*p5p8-hbcm2*p5p7*p5p8))+w1*(4*(p4p8*p3p7)*(-4*ffmcfmb*
4948 . hbcm2+hbcm2)+4*(-3*hbcm2*p4p7*p4p8+hbcm2*p4p8*p5p7))+w11*(4*(
4949 . p4p8*p3p7)*(-4*ffmcfmb*hbcm2+hbcm2)+4*(p3p7*p2p8)*(4*ffmcfmb*
4950 . hbcm2-hbcm2)+4*(3*hbcm2*p2p8*p4p7-hbcm2*p2p8*p5p7-3*hbcm2*p4p7
4951 . *p4p8+hbcm2*p4p8*p5p7))+8*hbcm2*p7p8)
4952 b(20)=ccc*(w2*(4*(p5p8*p3p7)*(4*ffmcfmb*hbcm-hbcm)+4*(3*hbcm*
4953 . p4p7*p5p8-hbcm*p5p7*p5p8))+w1*(4*(p4p8*p3p7)*(-4*ffmcfmb*hbcm+
4954 . hbcm)+4*(-3*hbcm*p4p7*p4p8+hbcm*p4p8*p5p7))+w11*(4*(p4p8*p3p7)
4955 . *(-4*ffmcfmb*hbcm+hbcm)+4*(p3p7*p2p8)*(4*ffmcfmb*hbcm-hbcm)+4*
4956 . (3*hbcm*p2p8*p4p7-hbcm*p2p8*p5p7-3*hbcm*p4p7*p4p8+hbcm*p4p8*
4957 . p5p7))+8*hbcm*p7p8)
4958 b(23)=ccc*(8*p3p7*(4*fb4*ffmcfmb*hbcm-fb4*hbcm)+8*(3*fb4*hbcm*
4959 . p4p7-fb4*hbcm*p5p7))
4960 b(24)=ccc*(4*p3p6*(-8*fb4*ffmcfmb*hbcm+3*fb4*hbcm)+4*(-5*fb4*
4961 . hbcm*p4p6+3*fb4*hbcm*p5p6))
4962 b(25)=ccc*(p5p7*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+24*p4p7*(-
4963 . fb3*fmb+fb3*fmc+fb4*hbcm)+p3p7*(-24*fb3*ffmcfmb*fmb+28*fb3*
4964 . ffmcfmb*fmc-4*fb3*fmc+4*fb4*ffmcfmb**2*hbcm+20*fb4*ffmcfmb*
4965 . hbcm-ffmcfmb*hbcm+hbcm))
4966 b(26)=ccc*(p4p6*(4*fb3*fmb-8*fb3*fmc-4*fb4*ffmcfmb*hbcm-4*fb4*
4967 . hbcm+hbcm)+p3p6*(4*fb3*ffmcfmb*fmb-8*fb3*ffmcfmb*fmc-4*fb4*
4968 . ffmcfmb**2*hbcm-4*fb4*ffmcfmb*hbcm+ffmcfmb*hbcm))
4969 b(27)=ccc*(8*(p3p7*p3p6)*(-8*fb3*ffmcfmb+3*fb3)+8*p6p7*(-2*fb3*
4970 . ffmcfmb*hbcm2-fb3*hbcm2+fb4*fmb*hbcm+fb4*fmc*hbcm)+8*(4*fb3*
4971 . p2p3*p6p7-4*fb3*p3p4*p6p7-2*fb3*p3p6*p4p7+2*fb3*p3p6*p5p7-3*
4972 . fb3*p3p7*p4p6+fb3*p3p7*p5p6))
4973 b(28)=ccc*(4*w2*(p6p7*p5p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+4*w1*(
4974 . p6p7*p4p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+w11*(4*(p6p7*p4p8)*(fmb*
4975 . hbcm+fmc*hbcm-hbcm2)+4*(p6p7*p2p8)*(-fmb*hbcm-fmc*hbcm+hbcm2))
4976 . +(16*(p6p8*p3p7)*(-2*fb3*ffmcfmb+fb3)+8*(p7p8*p3p6)*(-4*fb3*
4977 . ffmcfmb+fb3)+8*(4*fb3*p2p8*p6p7-3*fb3*p4p6*p7p8-2*fb3*p4p7*
4978 . p6p8-4*fb3*p4p8*p6p7+fb3*p5p6*p7p8+2*fb3*p5p7*p6p8)))
4979 b(29)=ccc*(4*p3p6*(-8*fb3*ffmcfmb+3*fb3)+4*(-5*fb3*p4p6+3*fb3*
4980 . p5p6))
4981 b(30)=ccc*(8*p3p7*(4*fb3*ffmcfmb-fb3)+8*(3*fb3*p4p7-fb3*p5p7))
4982 ans2=(8*(p6p8*p3p7)*(-4*fb4*ffmcfmb*hbcm+2*fb4*hbcm-hbcm)+8*(
4983 . p7p8*p3p6)*(-4*fb4*ffmcfmb*hbcm+fb4*hbcm-hbcm)+8*(4*fb4*hbcm*
4984 . p2p8*p6p7-3*fb4*hbcm*p4p6*p7p8-2*fb4*hbcm*p4p7*p6p8-4*fb4*hbcm
4985 . *p4p8*p6p7+fb4*hbcm*p5p6*p7p8+2*fb4*hbcm*p5p7*p6p8))
4986 ans1=w2*(4*(p6p7*p5p8)*(-2*ffmcfmb*hbcm3+fmb*hbcm2-fmc*hbcm2-
4987 . hbcm3)+4*(p5p8*p3p7*p3p6)*(-8*ffmcfmb*hbcm+3*hbcm)+4*(4*hbcm*
4988 . p2p3*p5p8*p6p7-4*hbcm*p3p4*p5p8*p6p7-2*hbcm*p3p6*p4p7*p5p8+2*
4989 . hbcm*p3p6*p5p7*p5p8-3*hbcm*p3p7*p4p6*p5p8+hbcm*p3p7*p5p6*p5p8)
4990 . )+w1*(4*(p6p7*p4p8)*(2*ffmcfmb*hbcm3-fmb*hbcm2+fmc*hbcm2+hbcm3
4991 . )+4*(p4p8*p3p7*p3p6)*(8*ffmcfmb*hbcm-3*hbcm)+4*(-4*hbcm*p2p3*
4992 . p4p8*p6p7+4*hbcm*p3p4*p4p8*p6p7+2*hbcm*p3p6*p4p7*p4p8-2*hbcm*
4993 . p3p6*p4p8*p5p7+3*hbcm*p3p7*p4p6*p4p8-hbcm*p3p7*p4p8*p5p6))+w11
4994 . *(4*(p6p7*p4p8)*(2*ffmcfmb*hbcm3-fmb*hbcm2+fmc*hbcm2+hbcm3)+4*
4995 . (p6p7*p2p8)*(-2*ffmcfmb*hbcm3+fmb*hbcm2-fmc*hbcm2-hbcm3)+4*(
4996 . p4p8*p3p7*p3p6)*(8*ffmcfmb*hbcm-3*hbcm)+4*(p3p7*p3p6*p2p8)*(-8
4997 . *ffmcfmb*hbcm+3*hbcm)+4*(4*hbcm*p2p3*p2p8*p6p7-4*hbcm*p2p3*
4998 . p4p8*p6p7-4*hbcm*p2p8*p3p4*p6p7-2*hbcm*p2p8*p3p6*p4p7+2*hbcm*
4999 . p2p8*p3p6*p5p7-3*hbcm*p2p8*p3p7*p4p6+hbcm*p2p8*p3p7*p5p6+4*
5000 . hbcm*p3p4*p4p8*p6p7+2*hbcm*p3p6*p4p7*p4p8-2*hbcm*p3p6*p4p8*
5001 . p5p7+3*hbcm*p3p7*p4p6*p4p8-hbcm*p3p7*p4p8*p5p6))+ans2
5002 ans=ccc*ans1
5003 b(31)=ans
5004 b(32)=8*ccc*p6p7*(-fb3*fmb+fb3*fmc+fb4*hbcm)
5005 do 200 n=1,32
5006 c(n,1)=c(n,1)+1d0*b(n)
5007 200 continue
5008 return
5009 end
5010
5011 subroutine amp34_1p1(cc)
5012 implicit double precision(a-h,o-z)
5013 implicit integer (i-n)
5014 dimension b(32)
5015 #include "inclcon.h"
5016 #include "inclppp.h"
5017 #include "inclamp.h"
5018 do 100 n=1,32
5019 b(n)=0.0d0
5020 100 continue
5021 ccc=cc/((2*p1p2)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*
5022 . p3p5+fmb2+hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2)
5023 . )
5024 b(1)=ccc*(4*p6p7*(-2*fb3*ffmcfmb*hbcm2+fb3*fmb2-fb3*fmc2+fb3*
5025 . hbcm2)+8*(2*fb3*p1p2*p6p7+fb3*p1p4*p6p7-fb3*p1p5*p6p7-2*fb3*
5026 . p2p3*p6p7-5*fb3*p2p4*p6p7+fb3*p2p5*p6p7-fb3*p3p4*p6p7+fb3*p3p5
5027 . *p6p7))
5028 b(2)=ccc*(w2*(2*(p6p7*p5p8)*(-2*ffmcfmb*hbcm3+fmb2*hbcm-fmc2*
5029 . hbcm+hbcm3)+4*(p6p7*p5p8*p2p3)*(2*ffmcfmb*hbcm-3*hbcm)+4*(p6p7
5030 . *p5p8*p1p3)*(-2*ffmcfmb*hbcm+hbcm)+4*(2*hbcm*p1p2*p5p8*p6p7-4*
5031 . hbcm*p2p4*p5p8*p6p7-hbcm*p3p4*p5p8*p6p7+hbcm*p3p5*p5p8*p6p7))+
5032 . w1*(2*(p6p7*p4p8)*(2*ffmcfmb*hbcm3-fmb2*hbcm+fmc2*hbcm-hbcm3)+
5033 . 4*(p6p7*p4p8*p2p3)*(-2*ffmcfmb*hbcm+3*hbcm)+4*(p6p7*p4p8*p1p3)
5034 . *(2*ffmcfmb*hbcm-hbcm)+4*(-2*hbcm*p1p2*p4p8*p6p7+4*hbcm*p2p4*
5035 . p4p8*p6p7+hbcm*p3p4*p4p8*p6p7-hbcm*p3p5*p4p8*p6p7))+(2*(p6p7*
5036 . p1p8)*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm-hbcm)+8*(p6p7*p5p8)*(-fb3
5037 . *fmb+fb3*fmc+fb4*hbcm)+2*(p6p7*p2p8)*(16*fb3*fmb-12*fb3*fmc+4*
5038 . fb4*ffmcfmb*hbcm-16*fb4*hbcm+hbcm)))
5039 b(9)=ccc*(2*(p6p7*p1p3)*(4*fb3*fmc-4*fb4*ffmcfmb*hbcm+4*fb4*
5040 . hbcm-hbcm)+8*(p6p7*p3p5)*(fb3*fmb-fb3*fmc)+2*(p6p7*p2p3)*(-16*
5041 . fb3*fmb+12*fb3*fmc+4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+hbcm)+4*p6p7*
5042 . (-2*fb3*ffmcfmb*fmb*hbcm2+2*fb3*ffmcfmb*fmc*hbcm2+2*fb3*fmb*
5043 . hbcm2-2*fb3*fmc*hbcm2+fb4*fmb2*hbcm-fb4*fmc2*hbcm-fb4*hbcm3)+8
5044 . *(2*fb4*hbcm*p1p2*p6p7-4*fb4*hbcm*p2p4*p6p7-fb4*hbcm*p3p4*p6p7
5045 . ))
5046 ans2=(8*(p6p7*p5p8)*(fb3*hbcm2-fb4*fmb*hbcm-fb4*fmc*hbcm)+16*(
5047 . p6p7*p4p8)*(fb3*ffmcfmb*hbcm2-fb3*hbcm2)+2*(p6p7*p2p8)*(-12*
5048 . fb3*ffmcfmb*hbcm2+16*fb4*fmb*hbcm+12*fb4*fmc*hbcm-3*hbcm2)+2*(
5049 . p6p7*p1p8)*(-4*fb3*ffmcfmb*hbcm2+4*fb4*fmc*hbcm+3*hbcm2)+16*(2
5050 . *fb3*p1p3*p2p8*p6p7+fb3*p1p3*p4p8*p6p7-fb3*p1p8*p3p4*p6p7+2*
5051 . fb3*p2p3*p2p8*p6p7-3*fb3*p2p3*p4p8*p6p7-3*fb3*p2p8*p3p4*p6p7+2
5052 . *fb3*p2p8*p3p5*p6p7+fb3*p3p4*p5p8*p6p7-fb3*p3p5*p4p8*p6p7))
5053 ans1=w2*(4*(p6p7*p5p8*p3p5)*(-fmb*hbcm-fmc*hbcm)+4*(p6p7*p5p8*
5054 . p2p3)*(-3*ffmcfmb*hbcm2-2*fmb*hbcm-3*fmc*hbcm+6*hbcm2)+4*(p6p7
5055 . *p5p8*p1p3)*(3*ffmcfmb*hbcm2+fmc*hbcm-2*hbcm2)+2*(p6p7*p5p8)*(
5056 . 2*ffmcfmb*fmb*hbcm3+2*ffmcfmb*fmc*hbcm3-2*fmb*hbcm3-fmb2*hbcm2
5057 . -2*fmc*hbcm3+fmc2*hbcm2+hbcm4)+4*(-2*hbcm2*p1p2*p5p8*p6p7+
5058 . hbcm2*p1p4*p5p8*p6p7-hbcm2*p1p5*p5p8*p6p7+3*hbcm2*p2p4*p5p8*
5059 . p6p7+hbcm2*p2p5*p5p8*p6p7+hbcm2*p3p4*p5p8*p6p7))+w1*(4*(p6p7*
5060 . p4p8*p3p5)*(fmb*hbcm+fmc*hbcm)+4*(p6p7*p4p8*p2p3)*(3*ffmcfmb*
5061 . hbcm2+2*fmb*hbcm+3*fmc*hbcm-6*hbcm2)+4*(p6p7*p4p8*p1p3)*(-3*
5062 . ffmcfmb*hbcm2-fmc*hbcm+2*hbcm2)+2*(p6p7*p4p8)*(-2*ffmcfmb*fmb*
5063 . hbcm3-2*ffmcfmb*fmc*hbcm3+2*fmb*hbcm3+fmb2*hbcm2+2*fmc*hbcm3-
5064 . fmc2*hbcm2-hbcm4)+4*(2*hbcm2*p1p2*p4p8*p6p7-hbcm2*p1p4*p4p8*
5065 . p6p7+hbcm2*p1p5*p4p8*p6p7-3*hbcm2*p2p4*p4p8*p6p7-hbcm2*p2p5*
5066 . p4p8*p6p7-hbcm2*p3p4*p4p8*p6p7))+ans2
5067 ans=ccc*ans1
5068 b(10)=ans
5069 b(27)=ccc*(8*p6p7*(2*fb3*ffmcfmb*hbcm2+fb3*hbcm2-3*fb4*fmb*hbcm
5070 . -3*fb4*fmc*hbcm)+16*(-fb3*p1p3*p6p7-fb3*p2p3*p6p7+3*fb3*p3p4*
5071 . p6p7-fb3*p3p5*p6p7))
5072 b(28)=ccc*(12*w2*(p6p7*p5p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+12*w1*(
5073 . p6p7*p4p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(-fb3*p1p8*p6p7-fb3*
5074 . p2p8*p6p7+3*fb3*p4p8*p6p7-fb3*p5p8*p6p7))
5075 b(31)=ccc*(w2*(4*(p6p7*p5p8)*(2*ffmcfmb*hbcm3-3*fmb*hbcm2+3*fmc
5076 . *hbcm2+hbcm3)+8*(-hbcm*p1p3*p5p8*p6p7-hbcm*p2p3*p5p8*p6p7+3*
5077 . hbcm*p3p4*p5p8*p6p7-hbcm*p3p5*p5p8*p6p7))+w1*(4*(p6p7*p4p8)*(-
5078 . 2*ffmcfmb*hbcm3+3*fmb*hbcm2-3*fmc*hbcm2-hbcm3)+8*(hbcm*p1p3*
5079 . p4p8*p6p7+hbcm*p2p3*p4p8*p6p7-3*hbcm*p3p4*p4p8*p6p7+hbcm*p3p5*
5080 . p4p8*p6p7))+16*(-fb4*hbcm*p1p8*p6p7-fb4*hbcm*p2p8*p6p7+3*fb4*
5081 . hbcm*p4p8*p6p7-fb4*hbcm*p5p8*p6p7))
5082 b(32)=24*ccc*p6p7*(fb3*fmb-fb3*fmc-fb4*hbcm)
5083 do 200 n=1,32
5084 c(n,1)=c(n,1)-0.8181818181818182d0*b(n)
5085 c(n,2)=c(n,2)+0.9833321660356334d0*b(n)
5086 200 continue
5087 return
5088 end
5089
5090 subroutine amp33_1p1(cc)
5091 implicit double precision(a-h,o-z)
5092 implicit integer (i-n)
5093 dimension b(32)
5094 #include "inclcon.h"
5095 #include "inclppp.h"
5096 #include "inclamp.h"
5097 do 100 n=1,32
5098 b(n)=0.0d0
5099 100 continue
5100 ccc=cc/((ffmcfmb**2*hbcm2-2*ffmcfmb*p2p3+2*ffmcfmb*p3p4+fmc2-2*
5101 . p2p4)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2)*(ffmcfmb**2*hbcm2
5102 . -2*ffmcfmb*hbcm2+2*ffmcfmb*p1p3-fmb2+hbcm2-2*p1p3))
5103 b(1)=ccc*(8*p6p7*(fb3*ffmcfmb**2*hbcm2-2*fb3*ffmcfmb*hbcm2-fb3*
5104 . fmc2)+16*(fb3*ffmcfmb*p1p3*p6p7+2*fb3*ffmcfmb*p3p6*p3p7+4*fb3*
5105 . ffmcfmb*p3p7*p4p6+fb3*p1p2*p6p7+fb3*p1p4*p6p7-fb3*p2p3*p6p7-
5106 . fb3*p2p4*p6p7-fb3*p3p4*p6p7+2*fb3*p3p6*p4p7+4*fb3*p4p6*p4p7))
5107 ans2=w13*(16*(p4p7*p3p6*p1p8)*(ffmcfmb*hbcm-hbcm)+4*(p6p7*p1p8)
5108 . *(-ffmcfmb**2*hbcm3+2*ffmcfmb*hbcm3+fmc2*hbcm)+16*(p3p7*p3p6*
5109 . p1p8)*(ffmcfmb**2*hbcm-ffmcfmb*hbcm)+8*(-ffmcfmb*hbcm*p1p3*
5110 . p1p8*p6p7-2*ffmcfmb*hbcm*p1p8*p3p7*p4p6-hbcm*p1p2*p1p8*p6p7-
5111 . hbcm*p1p4*p1p8*p6p7+hbcm*p1p8*p2p3*p6p7+hbcm*p1p8*p2p4*p6p7+
5112 . hbcm*p1p8*p3p4*p6p7-2*hbcm*p1p8*p4p6*p4p7))+(8*(p7p8*p3p6)*(-
5113 . ffmcfmb*hbcm+hbcm)+8*(p6p7*p2p8)*(-4*fb3*fmc-4*fb4*ffmcfmb*
5114 . hbcm+hbcm)+4*(p6p8*p4p7)*(-8*fb3*fmb+12*fb3*fmc+4*fb4*ffmcfmb*
5115 . hbcm-3*hbcm)+4*(p6p8*p3p7)*(-8*fb3*ffmcfmb*fmb+8*fb3*ffmcfmb*
5116 . fmc+4*fb3*fmc+4*fb4*ffmcfmb*hbcm-2*ffmcfmb*hbcm-hbcm)+4*(hbcm*
5117 . p1p8*p6p7+2*hbcm*p4p6*p7p8))
5118 ans1=w1*(16*(p4p8*p4p7*p3p6)*(ffmcfmb*hbcm-hbcm)+4*(p6p7*p4p8)*
5119 . (-ffmcfmb**2*hbcm3+2*ffmcfmb*hbcm3+fmc2*hbcm)+16*(p4p8*p3p7*
5120 . p3p6)*(ffmcfmb**2*hbcm-ffmcfmb*hbcm)+8*(-ffmcfmb*hbcm*p1p3*
5121 . p4p8*p6p7-2*ffmcfmb*hbcm*p3p7*p4p6*p4p8-hbcm*p1p2*p4p8*p6p7-
5122 . hbcm*p1p4*p4p8*p6p7+hbcm*p2p3*p4p8*p6p7+hbcm*p2p4*p4p8*p6p7+
5123 . hbcm*p3p4*p4p8*p6p7-2*hbcm*p4p6*p4p7*p4p8))+w11*(16*(p4p8*p4p7
5124 . *p3p6)*(ffmcfmb*hbcm-hbcm)+16*(p4p7*p3p6*p2p8)*(-ffmcfmb*hbcm+
5125 . hbcm)+4*(p6p7*p4p8)*(-ffmcfmb**2*hbcm3+2*ffmcfmb*hbcm3+fmc2*
5126 . hbcm)+4*(p6p7*p2p8)*(ffmcfmb**2*hbcm3-2*ffmcfmb*hbcm3-fmc2*
5127 . hbcm)+16*(p4p8*p3p7*p3p6)*(ffmcfmb**2*hbcm-ffmcfmb*hbcm)+16*(
5128 . p3p7*p3p6*p2p8)*(-ffmcfmb**2*hbcm+ffmcfmb*hbcm)+8*(ffmcfmb*
5129 . hbcm*p1p3*p2p8*p6p7-ffmcfmb*hbcm*p1p3*p4p8*p6p7+2*ffmcfmb*hbcm
5130 . *p2p8*p3p7*p4p6-2*ffmcfmb*hbcm*p3p7*p4p6*p4p8+hbcm*p1p2*p2p8*
5131 . p6p7-hbcm*p1p2*p4p8*p6p7+hbcm*p1p4*p2p8*p6p7-hbcm*p1p4*p4p8*
5132 . p6p7-hbcm*p2p3*p2p8*p6p7+hbcm*p2p3*p4p8*p6p7-hbcm*p2p4*p2p8*
5133 . p6p7+hbcm*p2p4*p4p8*p6p7-hbcm*p2p8*p3p4*p6p7+2*hbcm*p2p8*p4p6*
5134 . p4p7+hbcm*p3p4*p4p8*p6p7-2*hbcm*p4p6*p4p7*p4p8))+ans2
5135 ans=ccc*ans1
5136 b(2)=ans
5137 ans=ccc*(w1*(4*(p4p8*p4p7)*(ffmcfmb*hbcm2-2*fmb*hbcm-3*fmc*hbcm
5138 . )+4*(p4p8*p3p7)*(-2*ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*hbcm+
5139 . ffmcfmb*hbcm2-fmc*hbcm))+w11*(4*(p4p8*p4p7)*(ffmcfmb*hbcm2-2*
5140 . fmb*hbcm-3*fmc*hbcm)+4*(p4p7*p2p8)*(-ffmcfmb*hbcm2+2*fmb*hbcm+
5141 . 3*fmc*hbcm)+4*(p4p8*p3p7)*(-2*ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*
5142 . hbcm+ffmcfmb*hbcm2-fmc*hbcm)+4*(p3p7*p2p8)*(2*ffmcfmb*fmb*hbcm
5143 . +2*ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2+fmc*hbcm))+w13*(4*(p4p7*p1p8
5144 . )*(ffmcfmb*hbcm2-2*fmb*hbcm-3*fmc*hbcm)+4*(p3p7*p1p8)*(-2*
5145 . ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-fmc*hbcm))+(
5146 . 4*p7p8*(2*fb3*ffmcfmb**2*hbcm2-4*fb3*ffmcfmb*hbcm2-2*fb3*fmc2+
5147 . fmb*hbcm+fmc*hbcm)+16*(fb3*ffmcfmb*p1p3*p7p8+2*fb3*ffmcfmb*
5148 . p1p8*p3p7-4*fb3*ffmcfmb*p3p7*p5p8+fb3*p1p4*p7p8+3*fb3*p1p8*
5149 . p4p7+fb3*p2p5*p7p8+fb3*p2p8*p3p7+fb3*p2p8*p5p7-fb3*p3p4*p7p8+
5150 . fb3*p3p7*p4p8-5*fb3*p4p7*p5p8+fb3*p4p8*p5p7)))
5151 b(3)=ans
5152 b(4)=ccc*(2*p4p7*(-4*fb3*ffmcfmb*hbcm2+24*fb3*hbcm2+8*fb4*fmb*
5153 . hbcm+12*fb4*fmc*hbcm-hbcm2)+2*p3p7*(-4*fb3*ffmcfmb**2*hbcm2+20
5154 . *fb3*ffmcfmb*hbcm2+4*fb3*fmc2+8*fb4*ffmcfmb*fmb*hbcm+8*fb4*
5155 . ffmcfmb*fmc*hbcm+4*fb4*fmc*hbcm-hbcm2)+16*(-fb3*ffmcfmb*hbcm2*
5156 . p5p7-3*fb3*ffmcfmb*p1p3*p3p7-4*fb3*ffmcfmb*p2p3*p3p7+4*fb3*
5157 . ffmcfmb*p3p5*p3p7-3*fb3*p1p3*p4p7-fb3*p1p4*p3p7-5*fb3*p2p3*
5158 . p4p7+2*fb3*p2p3*p5p7-fb3*p2p5*p3p7-fb3*p3p4*p5p7+5*fb3*p3p5*
5159 . p4p7))
5160 ans4=(4*(p5p8*p3p7)*(4*fb3*fmc+12*fb4*ffmcfmb*hbcm-hbcm)+4*(
5161 . p4p8*p3p7)*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm)+4*(
5162 . p7p8*p3p5)*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+3*hbcm)+4*(p7p8*p3p4
5163 . )*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+hbcm)+4*(p3p7*p2p8
5164 . )*(-4*fb3*fmc-12*fb4*ffmcfmb*hbcm+hbcm)+4*(p7p8*p2p3)*(4*fb3*
5165 . fmc+4*fb4*ffmcfmb*hbcm-3*hbcm)+16*(p3p7*p1p8)*(-fb3*fmc-fb4*
5166 . ffmcfmb*hbcm)+4*(p7p8*p1p3)*(4*fb3*fmc-hbcm)+4*p7p8*(-4*fb3*
5167 . fmc*hbcm2-2*fb4*ffmcfmb**2*hbcm3+2*fb4*fmc2*hbcm+ffmcfmb*hbcm3
5168 . +fmb*hbcm2+hbcm3)+16*(-fb4*hbcm*p1p4*p7p8-fb4*hbcm*p1p8*p4p7-
5169 . fb4*hbcm*p2p5*p7p8-3*fb4*hbcm*p2p8*p4p7+2*fb4*hbcm*p2p8*p5p7+3
5170 . *fb4*hbcm*p4p7*p5p8-fb4*hbcm*p4p8*p5p7))
5171 ans3=w13*(4*(p4p7*p1p8)*(-ffmcfmb*hbcm3-2*fmb*hbcm2+fmc*hbcm2-2
5172 . *hbcm3)+4*(p3p7*p1p8)*(-ffmcfmb**2*hbcm3-2*ffmcfmb*fmb*hbcm2-
5173 . ffmcfmb*hbcm3+fmc*hbcm2-fmc2*hbcm)+8*(ffmcfmb*hbcm*p1p3*p1p8*
5174 . p3p7+2*ffmcfmb*hbcm*p1p8*p2p3*p3p7-2*ffmcfmb*hbcm*p1p8*p3p5*
5175 . p3p7+ffmcfmb*hbcm3*p1p8*p5p7+hbcm*p1p3*p1p8*p4p7+hbcm*p1p4*
5176 . p1p8*p3p7+3*hbcm*p1p8*p2p3*p4p7-2*hbcm*p1p8*p2p3*p5p7+hbcm*
5177 . p1p8*p2p5*p3p7+hbcm*p1p8*p3p4*p5p7-3*hbcm*p1p8*p3p5*p4p7))+
5178 . ans4
5179 ans2=w11*(4*(p4p8*p4p7)*(-ffmcfmb*hbcm3-2*fmb*hbcm2+fmc*hbcm2-2
5180 . *hbcm3)+4*(p4p7*p2p8)*(ffmcfmb*hbcm3+2*fmb*hbcm2-fmc*hbcm2+2*
5181 . hbcm3)+4*(p4p8*p3p7)*(-ffmcfmb**2*hbcm3-2*ffmcfmb*fmb*hbcm2-
5182 . ffmcfmb*hbcm3+fmc*hbcm2-fmc2*hbcm)+4*(p3p7*p2p8)*(ffmcfmb**2*
5183 . hbcm3+2*ffmcfmb*fmb*hbcm2+ffmcfmb*hbcm3-fmc*hbcm2+fmc2*hbcm)+8
5184 . *(-ffmcfmb*hbcm*p1p3*p2p8*p3p7+ffmcfmb*hbcm*p1p3*p3p7*p4p8-2*
5185 . ffmcfmb*hbcm*p2p3*p2p8*p3p7+2*ffmcfmb*hbcm*p2p3*p3p7*p4p8+2*
5186 . ffmcfmb*hbcm*p2p8*p3p5*p3p7-2*ffmcfmb*hbcm*p3p5*p3p7*p4p8-
5187 . ffmcfmb*hbcm3*p2p8*p5p7+ffmcfmb*hbcm3*p4p8*p5p7-hbcm*p1p3*p2p8
5188 . *p4p7+hbcm*p1p3*p4p7*p4p8-hbcm*p1p4*p2p8*p3p7+hbcm*p1p4*p3p7*
5189 . p4p8-3*hbcm*p2p3*p2p8*p4p7+2*hbcm*p2p3*p2p8*p5p7+3*hbcm*p2p3*
5190 . p4p7*p4p8-2*hbcm*p2p3*p4p8*p5p7-hbcm*p2p5*p2p8*p3p7+hbcm*p2p5*
5191 . p3p7*p4p8-hbcm*p2p8*p3p4*p5p7+3*hbcm*p2p8*p3p5*p4p7+hbcm*p3p4*
5192 . p4p8*p5p7-3*hbcm*p3p5*p4p7*p4p8))+ans3
5193 ans1=w1*(4*(p4p8*p4p7)*(-ffmcfmb*hbcm3-2*fmb*hbcm2+fmc*hbcm2-2*
5194 . hbcm3)+4*(p4p8*p3p7)*(-ffmcfmb**2*hbcm3-2*ffmcfmb*fmb*hbcm2-
5195 . ffmcfmb*hbcm3+fmc*hbcm2-fmc2*hbcm)+8*(ffmcfmb*hbcm*p1p3*p3p7*
5196 . p4p8+2*ffmcfmb*hbcm*p2p3*p3p7*p4p8-2*ffmcfmb*hbcm*p3p5*p3p7*
5197 . p4p8+ffmcfmb*hbcm3*p4p8*p5p7+hbcm*p1p3*p4p7*p4p8+hbcm*p1p4*
5198 . p3p7*p4p8+3*hbcm*p2p3*p4p7*p4p8-2*hbcm*p2p3*p4p8*p5p7+hbcm*
5199 . p2p5*p3p7*p4p8+hbcm*p3p4*p4p8*p5p7-3*hbcm*p3p5*p4p7*p4p8))+
5200 . ans2
5201 ans=ccc*ans1
5202 b(5)=ans
5203 b(6)=ccc*(w1*(4*(p4p8*p4p6)*(-ffmcfmb*hbcm2+fmc*hbcm)+4*(p4p8*
5204 . p3p6)*(-ffmcfmb**2*hbcm2+ffmcfmb*fmc*hbcm))+w11*(4*(p4p8*p4p6)
5205 . *(-ffmcfmb*hbcm2+fmc*hbcm)+4*(p4p6*p2p8)*(ffmcfmb*hbcm2-fmc*
5206 . hbcm)+4*(p4p8*p3p6)*(-ffmcfmb**2*hbcm2+ffmcfmb*fmc*hbcm)+4*(
5207 . p3p6*p2p8)*(ffmcfmb**2*hbcm2-ffmcfmb*fmc*hbcm))+w13*(4*(p4p6*
5208 . p1p8)*(-ffmcfmb*hbcm2+fmc*hbcm)+4*(p3p6*p1p8)*(-ffmcfmb**2*
5209 . hbcm2+ffmcfmb*fmc*hbcm))+(2*p6p8*(-8*fb3*ffmcfmb*hbcm2+ffmcfmb
5210 . *hbcm2-fmc*hbcm)+16*(fb3*ffmcfmb*p1p3*p6p8-2*fb3*ffmcfmb*p2p8*
5211 . p3p6+fb3*p1p2*p6p8+fb3*p1p4*p6p8-fb3*p2p3*p6p8-3*fb3*p2p4*p6p8
5212 . -2*fb3*p2p8*p4p6-fb3*p3p4*p6p8)))
5213 b(7)=ccc*(16*(p3p6*p2p3)*(2*fb3*ffmcfmb+fb3)+2*p4p6*(-4*fb3*
5214 . ffmcfmb*hbcm2-4*fb4*fmc*hbcm+hbcm2)+2*p3p6*(-4*fb3*ffmcfmb**2*
5215 . hbcm2+8*fb3*ffmcfmb*hbcm2-4*fb4*ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2
5216 . )+16*(-fb3*ffmcfmb*p1p3*p3p6-fb3*p1p2*p3p6-fb3*p1p4*p3p6+2*fb3
5217 . *p2p3*p4p6+3*fb3*p2p4*p3p6+fb3*p3p4*p3p6))
5218 ans2=w13*(4*(p4p6*p1p8)*(ffmcfmb*hbcm3-fmc*hbcm2)+8*(p3p6*p2p3*
5219 . p1p8)*(-2*ffmcfmb*hbcm-hbcm)+4*(p3p6*p1p8)*(ffmcfmb**2*hbcm3-
5220 . ffmcfmb*fmc*hbcm2-2*ffmcfmb*hbcm3)+8*(ffmcfmb*hbcm*p1p3*p1p8*
5221 . p3p6+hbcm*p1p2*p1p8*p3p6+hbcm*p1p4*p1p8*p3p6-2*hbcm*p1p8*p2p3*
5222 . p4p6-3*hbcm*p1p8*p2p4*p3p6-hbcm*p1p8*p3p4*p3p6))+(4*(p4p8*p3p6
5223 . )*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+4*(p6p8*p3p4)*(-4*fb3*
5224 . fmc-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+hbcm)+8*(p3p6*p2p8)*(-4*fb3*
5225 . fmc+hbcm)+16*(p6p8*p2p3)*(2*fb3*fmc+2*fb4*ffmcfmb*hbcm+fb4*
5226 . hbcm)+2*p6p8*(-8*fb3*ffmcfmb*fmc*hbcm2-8*fb4*ffmcfmb**2*hbcm3+
5227 . 8*fb4*ffmcfmb*hbcm3+ffmcfmb*hbcm3+fmc*hbcm2)+4*(-4*fb4*ffmcfmb
5228 . *hbcm*p1p3*p6p8-4*fb4*hbcm*p1p2*p6p8-4*fb4*hbcm*p1p4*p6p8+12*
5229 . fb4*hbcm*p2p4*p6p8+8*fb4*hbcm*p2p8*p4p6-hbcm*p1p8*p3p6))
5230 ans1=w1*(4*(p4p8*p4p6)*(ffmcfmb*hbcm3-fmc*hbcm2)+8*(p4p8*p3p6*
5231 . p2p3)*(-2*ffmcfmb*hbcm-hbcm)+4*(p4p8*p3p6)*(ffmcfmb**2*hbcm3-
5232 . ffmcfmb*fmc*hbcm2-2*ffmcfmb*hbcm3)+8*(ffmcfmb*hbcm*p1p3*p3p6*
5233 . p4p8+hbcm*p1p2*p3p6*p4p8+hbcm*p1p4*p3p6*p4p8-2*hbcm*p2p3*p4p6*
5234 . p4p8-3*hbcm*p2p4*p3p6*p4p8-hbcm*p3p4*p3p6*p4p8))+w11*(4*(p4p8*
5235 . p4p6)*(ffmcfmb*hbcm3-fmc*hbcm2)+4*(p4p6*p2p8)*(-ffmcfmb*hbcm3+
5236 . fmc*hbcm2)+8*(p4p8*p3p6*p2p3)*(-2*ffmcfmb*hbcm-hbcm)+8*(p3p6*
5237 . p2p8*p2p3)*(2*ffmcfmb*hbcm+hbcm)+4*(p4p8*p3p6)*(ffmcfmb**2*
5238 . hbcm3-ffmcfmb*fmc*hbcm2-2*ffmcfmb*hbcm3)+4*(p3p6*p2p8)*(-
5239 . ffmcfmb**2*hbcm3+ffmcfmb*fmc*hbcm2+2*ffmcfmb*hbcm3)+8*(-
5240 . ffmcfmb*hbcm*p1p3*p2p8*p3p6+ffmcfmb*hbcm*p1p3*p3p6*p4p8-hbcm*
5241 . p1p2*p2p8*p3p6+hbcm*p1p2*p3p6*p4p8-hbcm*p1p4*p2p8*p3p6+hbcm*
5242 . p1p4*p3p6*p4p8+2*hbcm*p2p3*p2p8*p4p6-2*hbcm*p2p3*p4p6*p4p8+3*
5243 . hbcm*p2p4*p2p8*p3p6-3*hbcm*p2p4*p3p6*p4p8+hbcm*p2p8*p3p4*p3p6-
5244 . hbcm*p3p4*p3p6*p4p8))+ans2
5245 ans=ccc*ans1
5246 b(8)=ans
5247 b(9)=ccc*(8*p6p7*(fb4*ffmcfmb**2*hbcm3-2*fb4*ffmcfmb*hbcm3-fb4*
5248 . fmc2*hbcm)+8*(p6p7*p2p3)*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-2*fb4*
5249 . hbcm-hbcm)+4*(p4p7*p3p6)*(8*fb3*fmb-12*fb3*fmc-12*fb4*ffmcfmb*
5250 . hbcm+8*fb4*hbcm+hbcm)+4*(p3p7*p3p6)*(8*fb3*ffmcfmb*fmb-8*fb3*
5251 . ffmcfmb*fmc-4*fb3*fmc-8*fb4*ffmcfmb**2*hbcm+4*fb4*ffmcfmb*hbcm
5252 . +hbcm)+16*(fb4*ffmcfmb*hbcm*p1p3*p6p7+2*fb4*ffmcfmb*hbcm*p3p7*
5253 . p4p6+fb4*hbcm*p1p2*p6p7+fb4*hbcm*p1p4*p6p7-fb4*hbcm*p2p4*p6p7-
5254 . fb4*hbcm*p3p4*p6p7+2*fb4*hbcm*p4p6*p4p7))
5255 ans4=(4*(p7p8*p3p6)*(4*fb3*fmc2+4*fb4*ffmcfmb*fmc*hbcm+ffmcfmb*
5256 . hbcm2-2*fmb*hbcm-2*hbcm2)+4*(p6p8*p4p7)*(-12*fb3*ffmcfmb*hbcm2
5257 . +16*fb3*hbcm2-8*fb4*fmb*hbcm-4*fb4*fmc*hbcm+3*hbcm2)+4*(p7p8*
5258 . p4p6)*(4*fb3*ffmcfmb*hbcm2+4*fb4*fmc*hbcm-hbcm2)+8*(p6p7*p2p8)
5259 . *(-4*fb3*ffmcfmb*hbcm2+4*fb4*fmc*hbcm-hbcm2)+4*(p6p8*p3p7)*(-4
5260 . *fb3*ffmcfmb**2*hbcm2+12*fb3*ffmcfmb*hbcm2-4*fb3*fmc2-8*fb4*
5261 . ffmcfmb*fmb*hbcm-4*fb4*fmc*hbcm+ffmcfmb*hbcm2+fmc*hbcm+hbcm2)+
5262 . 4*(-16*fb3*ffmcfmb*p1p3*p3p7*p6p8+16*fb3*ffmcfmb*p1p8*p3p6*
5263 . p3p7-16*fb3*ffmcfmb*p2p3*p3p6*p7p8+48*fb3*ffmcfmb*p2p8*p3p6*
5264 . p3p7+16*fb3*ffmcfmb*p3p4*p3p7*p6p8-16*fb3*ffmcfmb*p3p6*p3p7*
5265 . p4p8-16*fb3*p1p3*p4p7*p6p8+16*fb3*p1p8*p3p6*p4p7+16*fb3*p2p3*
5266 . p3p7*p6p8-16*fb3*p2p3*p4p6*p7p8+16*fb3*p2p3*p4p7*p6p8-16*fb3*
5267 . p2p4*p3p6*p7p8+16*fb3*p2p4*p3p7*p6p8-16*fb3*p2p8*p3p4*p6p7+32*
5268 . fb3*p2p8*p3p6*p4p7+32*fb3*p2p8*p3p7*p4p6+16*fb3*p3p4*p4p7*p6p8
5269 . -16*fb3*p3p6*p4p7*p4p8-hbcm2*p1p8*p6p7))
5270 ans3=w13*(8*(p4p6*p3p7*p1p8)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p4p7*
5271 . p3p6*p1p8)*(-3*ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm+2*hbcm2)+4*(
5272 . p6p7*p1p8)*(ffmcfmb**2*hbcm4-2*ffmcfmb*hbcm4-fmc2*hbcm2)+8*(
5273 . p3p7*p3p6*p1p8)*(-ffmcfmb**2*hbcm2+2*ffmcfmb*fmb*hbcm-ffmcfmb*
5274 . fmc*hbcm+ffmcfmb*hbcm2+fmc*hbcm)+8*(ffmcfmb*hbcm2*p1p3*p1p8*
5275 . p6p7+hbcm2*p1p2*p1p8*p6p7+hbcm2*p1p4*p1p8*p6p7-hbcm2*p1p8*p2p3
5276 . *p6p7-hbcm2*p1p8*p2p4*p6p7-hbcm2*p1p8*p3p4*p6p7))+ans4
5277 ans2=w11*(8*(p4p8*p4p6*p3p7)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p4p8*
5278 . p4p7*p3p6)*(-3*ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm+2*hbcm2)+8*(
5279 . p4p6*p3p7*p2p8)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(p4p7*p3p6*p2p8)*(
5280 . 3*ffmcfmb*hbcm2-2*fmb*hbcm-fmc*hbcm-2*hbcm2)+4*(p6p7*p4p8)*(
5281 . ffmcfmb**2*hbcm4-2*ffmcfmb*hbcm4-fmc2*hbcm2)+4*(p6p7*p2p8)*(-
5282 . ffmcfmb**2*hbcm4+2*ffmcfmb*hbcm4+fmc2*hbcm2)+8*(p4p8*p3p7*p3p6
5283 . )*(-ffmcfmb**2*hbcm2+2*ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm+
5284 . ffmcfmb*hbcm2+fmc*hbcm)+8*(p3p7*p3p6*p2p8)*(ffmcfmb**2*hbcm2-2
5285 . *ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2-fmc*hbcm)+8*(
5286 . -ffmcfmb*hbcm2*p1p3*p2p8*p6p7+ffmcfmb*hbcm2*p1p3*p4p8*p6p7-
5287 . hbcm2*p1p2*p2p8*p6p7+hbcm2*p1p2*p4p8*p6p7-hbcm2*p1p4*p2p8*p6p7
5288 . +hbcm2*p1p4*p4p8*p6p7+hbcm2*p2p3*p2p8*p6p7-hbcm2*p2p3*p4p8*
5289 . p6p7+hbcm2*p2p4*p2p8*p6p7-hbcm2*p2p4*p4p8*p6p7+hbcm2*p2p8*p3p4
5290 . *p6p7-hbcm2*p3p4*p4p8*p6p7))+ans3
5291 ans1=w1*(8*(p4p8*p4p6*p3p7)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p4p8*
5292 . p4p7*p3p6)*(-3*ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm+2*hbcm2)+4*(
5293 . p6p7*p4p8)*(ffmcfmb**2*hbcm4-2*ffmcfmb*hbcm4-fmc2*hbcm2)+8*(
5294 . p4p8*p3p7*p3p6)*(-ffmcfmb**2*hbcm2+2*ffmcfmb*fmb*hbcm-ffmcfmb*
5295 . fmc*hbcm+ffmcfmb*hbcm2+fmc*hbcm)+8*(ffmcfmb*hbcm2*p1p3*p4p8*
5296 . p6p7+hbcm2*p1p2*p4p8*p6p7+hbcm2*p1p4*p4p8*p6p7-hbcm2*p2p3*p4p8
5297 . *p6p7-hbcm2*p2p4*p4p8*p6p7-hbcm2*p3p4*p4p8*p6p7))+ans2
5298 ans=ccc*ans1
5299 b(10)=ans
5300 b(11)=ccc*(4*w1*(-ffmcfmb*hbcm*p1p3*p4p8+ffmcfmb*hbcm3*p4p8+2*
5301 . hbcm*p1p2*p4p8-hbcm*p1p4*p4p8-2*hbcm*p2p3*p4p8-3*hbcm*p2p5*
5302 . p4p8+hbcm*p3p4*p4p8)+4*w11*(ffmcfmb*hbcm*p1p3*p2p8-ffmcfmb*
5303 . hbcm*p1p3*p4p8-ffmcfmb*hbcm3*p2p8+ffmcfmb*hbcm3*p4p8-2*hbcm*
5304 . p1p2*p2p8+2*hbcm*p1p2*p4p8+hbcm*p1p4*p2p8-hbcm*p1p4*p4p8+2*
5305 . hbcm*p2p3*p2p8-2*hbcm*p2p3*p4p8+3*hbcm*p2p5*p2p8-3*hbcm*p2p5*
5306 . p4p8-hbcm*p2p8*p3p4+hbcm*p3p4*p4p8)+4*w13*(-ffmcfmb*hbcm*p1p3*
5307 . p1p8+ffmcfmb*hbcm3*p1p8+2*hbcm*p1p2*p1p8-hbcm*p1p4*p1p8-2*hbcm
5308 . *p1p8*p2p3-3*hbcm*p1p8*p2p5+hbcm*p1p8*p3p4)+(2*p4p8*(-4*fb3*
5309 . fmc-4*fb4*ffmcfmb*hbcm+hbcm)+4*p2p8*(4*fb3*fmc+4*fb4*ffmcfmb*
5310 . hbcm-hbcm)+2*hbcm*p1p8))
5311 b(12)=8*ccc*(fb3*ffmcfmb*hbcm2-fb3*ffmcfmb*p1p3+2*fb3*p1p2-fb3*
5312 . p1p4-2*fb3*p2p3-3*fb3*p2p5+fb3*p3p4)
5313 ans2=(2*p4p8*(4*fb3*ffmcfmb*hbcm2-8*fb3*hbcm2-4*fb4*fmc*hbcm+
5314 . hbcm2)+4*p2p8*(-8*fb3*ffmcfmb*hbcm2+8*fb3*hbcm2+4*fb4*fmc*hbcm
5315 . -hbcm2)+2*p1p8*(-8*fb3*ffmcfmb*hbcm2+hbcm2)+16*(fb3*ffmcfmb*
5316 . hbcm2*p5p8-2*fb3*p1p3*p2p8+fb3*p1p3*p4p8+2*fb3*p1p8*p2p3-fb3*
5317 . p1p8*p3p4+fb3*p2p3*p4p8-2*fb3*p2p3*p5p8-fb3*p2p8*p3p4+2*fb3*
5318 . p2p8*p3p5+fb3*p3p4*p5p8-fb3*p3p5*p4p8))
5319 ans1=w1*(4*(p4p8*p3p4)*(-ffmcfmb*hbcm2+fmc*hbcm+hbcm2)+8*(p4p8*
5320 . p2p3)*(ffmcfmb*hbcm2-fmc*hbcm-hbcm2)+4*p4p8*(-ffmcfmb**2*hbcm4
5321 . +ffmcfmb*fmc*hbcm3+ffmcfmb*hbcm4)+4*(-ffmcfmb*hbcm2*p1p3*p4p8+
5322 . 2*hbcm2*p1p2*p4p8-hbcm2*p1p4*p4p8-3*hbcm2*p2p5*p4p8))+w11*(4*(
5323 . p4p8*p3p4)*(-ffmcfmb*hbcm2+fmc*hbcm+hbcm2)+4*(p3p4*p2p8)*(
5324 . ffmcfmb*hbcm2-fmc*hbcm-hbcm2)+8*(p4p8*p2p3)*(ffmcfmb*hbcm2-fmc
5325 . *hbcm-hbcm2)+8*(p2p8*p2p3)*(-ffmcfmb*hbcm2+fmc*hbcm+hbcm2)+4*
5326 . p4p8*(-ffmcfmb**2*hbcm4+ffmcfmb*fmc*hbcm3+ffmcfmb*hbcm4)+4*
5327 . p2p8*(ffmcfmb**2*hbcm4-ffmcfmb*fmc*hbcm3-ffmcfmb*hbcm4)+4*(
5328 . ffmcfmb*hbcm2*p1p3*p2p8-ffmcfmb*hbcm2*p1p3*p4p8-2*hbcm2*p1p2*
5329 . p2p8+2*hbcm2*p1p2*p4p8+hbcm2*p1p4*p2p8-hbcm2*p1p4*p4p8+3*hbcm2
5330 . *p2p5*p2p8-3*hbcm2*p2p5*p4p8))+w13*(4*(p3p4*p1p8)*(-ffmcfmb*
5331 . hbcm2+fmc*hbcm+hbcm2)+8*(p2p3*p1p8)*(ffmcfmb*hbcm2-fmc*hbcm-
5332 . hbcm2)+4*p1p8*(-ffmcfmb**2*hbcm4+ffmcfmb*fmc*hbcm3+ffmcfmb*
5333 . hbcm4)+4*(-ffmcfmb*hbcm2*p1p3*p1p8+2*hbcm2*p1p2*p1p8-hbcm2*
5334 . p1p4*p1p8-3*hbcm2*p1p8*p2p5))+ans2
5335 ans=ccc*ans1
5336 b(13)=ans
5337 b(14)=ccc*(2*p3p4*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm
5338 . )+4*p2p3*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+hbcm)+2*(4*
5339 . fb3*ffmcfmb*fmc*hbcm2+4*fb4*ffmcfmb**2*hbcm3+4*fb4*ffmcfmb*
5340 . hbcm*p1p3-4*fb4*ffmcfmb*hbcm3-8*fb4*hbcm*p1p2+4*fb4*hbcm*p1p4+
5341 . 12*fb4*hbcm*p2p5-ffmcfmb*hbcm3))
5342 b(15)=ccc*(w1*(4*(p4p8*p3p6)*(-ffmcfmb*hbcm2-3*fmc*hbcm)-16*
5343 . hbcm2*p4p6*p4p8)+w11*(4*(p4p8*p3p6)*(-ffmcfmb*hbcm2-3*fmc*hbcm
5344 . )+4*(p3p6*p2p8)*(ffmcfmb*hbcm2+3*fmc*hbcm)+16*(hbcm2*p2p8*p4p6
5345 . -hbcm2*p4p6*p4p8))+w13*(4*(p3p6*p1p8)*(-ffmcfmb*hbcm2-3*fmc*
5346 . hbcm)-16*hbcm2*p1p8*p4p6)+(2*p6p8*(-20*fb3*ffmcfmb*hbcm2+12*
5347 . fb4*fmc*hbcm+hbcm2)+32*(fb3*p2p3*p6p8-fb3*p2p8*p3p6-2*fb3*p3p4
5348 . *p6p8+2*fb3*p3p6*p4p8)))
5349 b(16)=ccc*(16*w1*(ffmcfmb*hbcm*p3p6*p4p8+hbcm*p4p6*p4p8)+16*w11
5350 . *(-ffmcfmb*hbcm*p2p8*p3p6+ffmcfmb*hbcm*p3p6*p4p8-hbcm*p2p8*
5351 . p4p6+hbcm*p4p6*p4p8)+16*w13*(ffmcfmb*hbcm*p1p8*p3p6+hbcm*p1p8*
5352 . p4p6)+2*p6p8*(-12*fb3*fmc-12*fb4*ffmcfmb*hbcm-hbcm))
5353 b(17)=ccc*(w1*(2*p4p8*(-5*ffmcfmb*hbcm3-3*fmc*hbcm2+6*hbcm3)+4*
5354 . (-3*hbcm*p1p3*p4p8-hbcm*p2p3*p4p8-hbcm*p3p4*p4p8+3*hbcm*p3p5*
5355 . p4p8))+w11*(2*p4p8*(-5*ffmcfmb*hbcm3-3*fmc*hbcm2+6*hbcm3)+2*
5356 . p2p8*(5*ffmcfmb*hbcm3+3*fmc*hbcm2-6*hbcm3)+4*(3*hbcm*p1p3*p2p8
5357 . -3*hbcm*p1p3*p4p8+hbcm*p2p3*p2p8-hbcm*p2p3*p4p8+hbcm*p2p8*p3p4
5358 . -3*hbcm*p2p8*p3p5-hbcm*p3p4*p4p8+3*hbcm*p3p5*p4p8))+w13*(2*
5359 . p1p8*(-5*ffmcfmb*hbcm3-3*fmc*hbcm2+6*hbcm3)+4*(-3*hbcm*p1p3*
5360 . p1p8-hbcm*p1p8*p2p3-hbcm*p1p8*p3p4+3*hbcm*p1p8*p3p5))+8*(3*fb4
5361 . *hbcm*p1p8+fb4*hbcm*p2p8+fb4*hbcm*p4p8-3*fb4*hbcm*p5p8))
5362 b(18)=ccc*(w1*(4*(p4p8*p3p7)*(-2*ffmcfmb*hbcm2+2*fmc*hbcm+hbcm2
5363 . )+4*(-hbcm2*p4p7*p4p8+3*hbcm2*p4p8*p5p7))+w11*(4*(p4p8*p3p7)*(
5364 . -2*ffmcfmb*hbcm2+2*fmc*hbcm+hbcm2)+4*(p3p7*p2p8)*(2*ffmcfmb*
5365 . hbcm2-2*fmc*hbcm-hbcm2)+4*(hbcm2*p2p8*p4p7-3*hbcm2*p2p8*p5p7-
5366 . hbcm2*p4p7*p4p8+3*hbcm2*p4p8*p5p7))+w13*(4*(p3p7*p1p8)*(-2*
5367 . ffmcfmb*hbcm2+2*fmc*hbcm+hbcm2)+4*(-hbcm2*p1p8*p4p7+3*hbcm2*
5368 . p1p8*p5p7))+(4*p7p8*(4*fb3*ffmcfmb*hbcm2-4*fb3*hbcm2-4*fb4*fmc
5369 . *hbcm+hbcm2)+16*(fb3*p1p3*p7p8-fb3*p1p8*p3p7+fb3*p2p3*p7p8-fb3
5370 . *p2p8*p3p7+fb3*p3p4*p7p8-fb3*p3p5*p7p8-fb3*p3p7*p4p8+fb3*p3p7*
5371 . p5p8)))
5372 b(19)=ccc*(6*w1*p4p8*(-ffmcfmb*hbcm2+fmc*hbcm)+w11*(6*p4p8*(-
5373 . ffmcfmb*hbcm2+fmc*hbcm)+6*p2p8*(ffmcfmb*hbcm2-fmc*hbcm))+6*w13
5374 . *p1p8*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(-3*fb3*p1p8-fb3*p2p8-fb3*
5375 . p4p8+3*fb3*p5p8))
5376 b(20)=ccc*(w1*(4*(p4p8*p3p7)*(-2*ffmcfmb*hbcm+hbcm)+12*(-hbcm*
5377 . p4p7*p4p8+hbcm*p4p8*p5p7))+w11*(4*(p4p8*p3p7)*(-2*ffmcfmb*hbcm
5378 . +hbcm)+4*(p3p7*p2p8)*(2*ffmcfmb*hbcm-hbcm)+12*(hbcm*p2p8*p4p7-
5379 . hbcm*p2p8*p5p7-hbcm*p4p7*p4p8+hbcm*p4p8*p5p7))+w13*(4*(p3p7*
5380 . p1p8)*(-2*ffmcfmb*hbcm+hbcm)+12*(-hbcm*p1p8*p4p7+hbcm*p1p8*
5381 . p5p7))+8*p7p8*(-2*fb3*fmc-2*fb4*ffmcfmb*hbcm+hbcm))
5382 b(21)=3*ccc*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)
5383 b(22)=ccc*(20*fb3*ffmcfmb*hbcm2-24*fb3*hbcm2+24*fb3*p1p3+8*fb3*
5384 . p2p3+8*fb3*p3p4-24*fb3*p3p5-12*fb4*fmc*hbcm+3*hbcm2)
5385 b(23)=ccc*(4*p3p7*(4*fb3*fmc+8*fb4*ffmcfmb*hbcm-2*fb4*hbcm-hbcm
5386 . )+24*(fb4*hbcm*p4p7-fb4*hbcm*p5p7))
5387 b(24)=ccc*(2*p3p6*(12*fb3*fmc-4*fb4*ffmcfmb*hbcm-3*hbcm)-32*fb4
5388 . *hbcm*p4p6)
5389 b(25)=ccc*(2*p4p7*(-8*fb3*fmb+20*fb3*fmc+12*fb4*ffmcfmb*hbcm-3*
5390 . hbcm)+2*p3p7*(-8*fb3*ffmcfmb*fmb+16*fb3*ffmcfmb*fmc+4*fb3*fmc+
5391 . 8*fb4*ffmcfmb**2*hbcm+4*fb4*ffmcfmb*hbcm-2*ffmcfmb*hbcm-hbcm))
5392 b(26)=ccc*(2*p4p6*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+2*p3p6*(
5393 . -4*fb3*ffmcfmb*fmc-4*fb4*ffmcfmb**2*hbcm+ffmcfmb*hbcm))
5394 b(27)=ccc*(32*(p3p7*p3p6)*(-2*fb3*ffmcfmb-fb3)+4*p6p7*(4*fb3*
5395 . ffmcfmb*hbcm2-4*fb4*fmc*hbcm+hbcm2)+32*(fb3*p3p4*p6p7-3*fb3*
5396 . p3p6*p4p7-fb3*p3p7*p4p6))
5397 b(28)=ccc*(8*w1*(p6p7*p4p8)*(ffmcfmb*hbcm2-fmc*hbcm)+w11*(8*(
5398 . p6p7*p4p8)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p6p7*p2p8)*(-ffmcfmb*
5399 . hbcm2+fmc*hbcm))+8*w13*(p6p7*p1p8)*(ffmcfmb*hbcm2-fmc*hbcm)+(
5400 . 32*(p6p8*p3p7)*(-fb3*ffmcfmb-fb3)+32*(-fb3*ffmcfmb*p3p6*p7p8-
5401 . fb3*p4p6*p7p8-3*fb3*p4p7*p6p8+fb3*p4p8*p6p7)))
5402 b(29)=32*ccc*(-fb3*ffmcfmb*p3p6-fb3*p4p6)
5403 b(30)=ccc*(8*p3p7*(4*fb3*ffmcfmb-fb3)+8*(5*fb3*p4p7-3*fb3*p5p7)
5404 . )
5405 ans=ccc*(w1*(8*(p6p7*p4p8)*(-ffmcfmb*hbcm3-fmc*hbcm2)+16*(p4p8*
5406 . p3p7*p3p6)*(ffmcfmb*hbcm+hbcm)+16*(-hbcm*p3p4*p4p8*p6p7+2*hbcm
5407 . *p3p6*p4p7*p4p8+hbcm*p3p7*p4p6*p4p8))+w11*(8*(p6p7*p4p8)*(-
5408 . ffmcfmb*hbcm3-fmc*hbcm2)+8*(p6p7*p2p8)*(ffmcfmb*hbcm3+fmc*
5409 . hbcm2)+16*(p4p8*p3p7*p3p6)*(ffmcfmb*hbcm+hbcm)+16*(p3p7*p3p6*
5410 . p2p8)*(-ffmcfmb*hbcm-hbcm)+16*(hbcm*p2p8*p3p4*p6p7-2*hbcm*p2p8
5411 . *p3p6*p4p7-hbcm*p2p8*p3p7*p4p6-hbcm*p3p4*p4p8*p6p7+2*hbcm*p3p6
5412 . *p4p7*p4p8+hbcm*p3p7*p4p6*p4p8))+w13*(8*(p6p7*p1p8)*(-ffmcfmb*
5413 . hbcm3-fmc*hbcm2)+16*(p3p7*p3p6*p1p8)*(ffmcfmb*hbcm+hbcm)+16*(-
5414 . hbcm*p1p8*p3p4*p6p7+2*hbcm*p1p8*p3p6*p4p7+hbcm*p1p8*p3p7*p4p6)
5415 . )+(32*(p6p8*p3p7)*(-fb3*fmc-fb4*ffmcfmb*hbcm-fb4*hbcm)+8*(p7p8
5416 . *p3p6)*(4*fb3*fmc-hbcm)+32*(-fb4*hbcm*p4p6*p7p8-2*fb4*hbcm*
5417 . p4p7*p6p8+fb4*hbcm*p4p8*p6p7)))
5418 b(31)=ans
5419 b(32)=4*ccc*p6p7*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)
5420 do 200 n=1,32
5421 c(n,1)=c(n,1)-0.1818181818181818d0*b(n)
5422 c(n,2)=c(n,2)-0.1512818716977898d0*b(n)
5423 c(n,3)=c(n,3)-0.1869893980016914d0*b(n)
5424 200 continue
5425 return
5426 end
5427
5428 subroutine amp32_1p1(cc)
5429 implicit double precision(a-h,o-z)
5430 implicit integer (i-n)
5431 dimension b(32)
5432 #include "inclcon.h"
5433 #include "inclppp.h"
5434 #include "inclamp.h"
5435 do 100 n=1,32
5436 b(n)=0.0d0
5437 100 continue
5438 ccc=cc/((ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*p3p5+fmb2+
5439 . hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3+2*ffmcfmb*p3p4+
5440 . fmc2-2*p1p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3-fmc2))
5441 b(1)=ccc*(32*(p4p6*p3p7)*(2*fb3*ffmcfmb-fb3)+16*(p5p7*p3p6)*(-
5442 . fb3*ffmcfmb-fb3)+16*(p4p7*p3p6)*(-fb3*ffmcfmb+2*fb3)+8*p6p7*(
5443 . fb3*ffmcfmb**2*hbcm2-2*fb3*ffmcfmb*hbcm2-fb3*fmc2)+16*(fb3*
5444 . ffmcfmb*p3p6*p3p7+fb3*p1p2*p6p7+fb3*p1p3*p6p7+fb3*p1p4*p6p7-
5445 . fb3*p2p3*p6p7-fb3*p2p4*p6p7-fb3*p3p4*p6p7+fb3*p3p7*p5p6+2*fb3*
5446 . p4p6*p4p7-3*fb3*p4p6*p5p7+fb3*p4p7*p5p6))
5447 ans3=w12*(8*(p4p6*p3p7*p1p8)*(2*ffmcfmb*hbcm-hbcm)+16*(p4p7*
5448 . p3p6*p1p8)*(-ffmcfmb*hbcm+hbcm)+4*(p6p7*p1p8)*(ffmcfmb**2*
5449 . hbcm3-2*ffmcfmb*hbcm3-fmc2*hbcm)+16*(p3p7*p3p6*p1p8)*(-ffmcfmb
5450 . **2*hbcm+ffmcfmb*hbcm)+8*(hbcm*p1p2*p1p8*p6p7+hbcm*p1p3*p1p8*
5451 . p6p7+hbcm*p1p4*p1p8*p6p7-hbcm*p1p8*p2p3*p6p7-hbcm*p1p8*p2p4*
5452 . p6p7-hbcm*p1p8*p3p4*p6p7-hbcm*p1p8*p3p6*p5p7+hbcm*p1p8*p3p7*
5453 . p5p6+hbcm*p1p8*p4p6*p4p7-2*hbcm*p1p8*p4p6*p5p7+hbcm*p1p8*p4p7*
5454 . p5p6))+(4*(p6p8*p5p7)*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm
5455 . -hbcm)+4*(p6p7*p4p8)*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-
5456 . hbcm)+4*(p6p8*p4p7)*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm-
5457 . hbcm)+4*(p7p8*p4p6)*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+
5458 . 3*hbcm)+4*(p6p7*p2p8)*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm
5459 . -hbcm)+4*(p6p7*p1p8)*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm
5460 . +hbcm)+4*(p6p8*p3p7)*(-8*fb3*ffmcfmb*fmb+4*fb3*fmb-8*fb4*
5461 . ffmcfmb**2*hbcm+12*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm)+4*(p7p8*
5462 . p3p6)*(-4*fb3*ffmcfmb*fmb-4*fb4*ffmcfmb**2*hbcm+4*fb4*ffmcfmb*
5463 . hbcm-ffmcfmb*hbcm+2*hbcm))
5464 ans2=w5*(8*(p4p8*p4p6*p3p7)*(-2*ffmcfmb*hbcm+hbcm)+16*(p4p8*
5465 . p4p7*p3p6)*(ffmcfmb*hbcm-hbcm)+8*(p4p6*p3p7*p1p8)*(2*ffmcfmb*
5466 . hbcm-hbcm)+16*(p4p7*p3p6*p1p8)*(-ffmcfmb*hbcm+hbcm)+4*(p6p7*
5467 . p4p8)*(-ffmcfmb**2*hbcm3+2*ffmcfmb*hbcm3+fmc2*hbcm)+4*(p6p7*
5468 . p1p8)*(ffmcfmb**2*hbcm3-2*ffmcfmb*hbcm3-fmc2*hbcm)+16*(p4p8*
5469 . p3p7*p3p6)*(ffmcfmb**2*hbcm-ffmcfmb*hbcm)+16*(p3p7*p3p6*p1p8)*
5470 . (-ffmcfmb**2*hbcm+ffmcfmb*hbcm)+8*(hbcm*p1p2*p1p8*p6p7-hbcm*
5471 . p1p2*p4p8*p6p7+hbcm*p1p3*p1p8*p6p7-hbcm*p1p3*p4p8*p6p7+hbcm*
5472 . p1p4*p1p8*p6p7-hbcm*p1p4*p4p8*p6p7-hbcm*p1p8*p2p3*p6p7-hbcm*
5473 . p1p8*p2p4*p6p7-hbcm*p1p8*p3p4*p6p7-hbcm*p1p8*p3p6*p5p7+hbcm*
5474 . p1p8*p3p7*p5p6+hbcm*p1p8*p4p6*p4p7-2*hbcm*p1p8*p4p6*p5p7+hbcm*
5475 . p1p8*p4p7*p5p6+hbcm*p2p3*p4p8*p6p7+hbcm*p2p4*p4p8*p6p7+hbcm*
5476 . p3p4*p4p8*p6p7+hbcm*p3p6*p4p8*p5p7-hbcm*p3p7*p4p8*p5p6-hbcm*
5477 . p4p6*p4p7*p4p8+2*hbcm*p4p6*p4p8*p5p7-hbcm*p4p7*p4p8*p5p6))+
5478 . ans3
5479 ans1=w2*(8*(p5p8*p4p6*p3p7)*(2*ffmcfmb*hbcm-hbcm)+16*(p5p8*p4p7
5480 . *p3p6)*(-ffmcfmb*hbcm+hbcm)+4*(p6p7*p5p8)*(ffmcfmb**2*hbcm3-2*
5481 . ffmcfmb*hbcm3-fmc2*hbcm)+16*(p5p8*p3p7*p3p6)*(-ffmcfmb**2*hbcm
5482 . +ffmcfmb*hbcm)+8*(hbcm*p1p2*p5p8*p6p7+hbcm*p1p3*p5p8*p6p7+hbcm
5483 . *p1p4*p5p8*p6p7-hbcm*p2p3*p5p8*p6p7-hbcm*p2p4*p5p8*p6p7-hbcm*
5484 . p3p4*p5p8*p6p7-hbcm*p3p6*p5p7*p5p8+hbcm*p3p7*p5p6*p5p8+hbcm*
5485 . p4p6*p4p7*p5p8-2*hbcm*p4p6*p5p7*p5p8+hbcm*p4p7*p5p6*p5p8))+
5486 . ans2
5487 ans=ccc*ans1
5488 b(2)=ans
5489 ans2=(32*(p5p8*p3p7)*(-2*fb3*ffmcfmb+fb3)+32*(p3p7*p1p8)*(fb3*
5490 . ffmcfmb-fb3)+4*p7p8*(2*fb3*ffmcfmb**2*hbcm2-4*fb3*ffmcfmb*
5491 . hbcm2-2*fb3*fmc2+fmb*hbcm+fmc*hbcm)+16*(fb3*p1p3*p7p8+fb3*p1p4
5492 . *p7p8+fb3*p1p8*p4p7-2*fb3*p1p8*p5p7+fb3*p2p5*p7p8+fb3*p2p8*
5493 . p3p7+fb3*p2p8*p5p7-fb3*p3p4*p7p8+fb3*p3p7*p4p8-3*fb3*p4p7*p5p8
5494 . +fb3*p4p8*p5p7+2*fb3*p5p7*p5p8))
5495 ans1=w2*(4*(p5p8*p5p7)*(-fmb*hbcm-fmc*hbcm)+4*(p5p8*p4p7)*(
5496 . ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm-hbcm2)+4*(p5p8*p3p7)*(2*
5497 . ffmcfmb*fmb*hbcm+2*ffmcfmb*fmc*hbcm-fmb*hbcm-fmc*hbcm))+w5*(4*
5498 . (p5p7*p4p8)*(fmb*hbcm+fmc*hbcm)+4*(p5p7*p1p8)*(-fmb*hbcm-fmc*
5499 . hbcm)+4*(p4p8*p4p7)*(-ffmcfmb*hbcm2-2*fmb*hbcm-fmc*hbcm+hbcm2)
5500 . +4*(p4p7*p1p8)*(ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm-hbcm2)+4*(
5501 . p4p8*p3p7)*(-2*ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*hbcm+fmb*hbcm+
5502 . fmc*hbcm)+4*(p3p7*p1p8)*(2*ffmcfmb*fmb*hbcm+2*ffmcfmb*fmc*hbcm
5503 . -fmb*hbcm-fmc*hbcm))+w12*(4*(p5p7*p1p8)*(-fmb*hbcm-fmc*hbcm)+4
5504 . *(p4p7*p1p8)*(ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm-hbcm2)+4*(p3p7
5505 . *p1p8)*(2*ffmcfmb*fmb*hbcm+2*ffmcfmb*fmc*hbcm-fmb*hbcm-fmc*
5506 . hbcm))+ans2
5507 ans=ccc*ans1
5508 b(3)=ans
5509 b(4)=ccc*(32*(p3p7*p3p5)*(2*fb3*ffmcfmb-fb3)+32*(p3p7*p2p3)*(-2
5510 . *fb3*ffmcfmb+fb3)+16*(p3p7*p1p3)*(-2*fb3*ffmcfmb+fb3)+8*p5p7*(
5511 . -2*fb3*ffmcfmb*hbcm2-2*fb3*hbcm2-fb4*fmb*hbcm-fb4*fmc*hbcm)+2*
5512 . p4p7*(-4*fb3*ffmcfmb*hbcm2+12*fb3*hbcm2+8*fb4*fmb*hbcm+4*fb4*
5513 . fmc*hbcm+hbcm2)+8*p3p7*(-fb3*ffmcfmb**2*hbcm2+4*fb3*ffmcfmb*
5514 . hbcm2+fb3*fmc2-2*fb3*hbcm2+2*fb4*ffmcfmb*fmb*hbcm+2*fb4*
5515 . ffmcfmb*fmc*hbcm-fb4*fmb*hbcm-fb4*fmc*hbcm)+16*(-fb3*p1p3*p4p7
5516 . +2*fb3*p1p3*p5p7-fb3*p1p4*p3p7-3*fb3*p2p3*p4p7+4*fb3*p2p3*p5p7
5517 . -fb3*p2p5*p3p7-fb3*p3p4*p5p7+3*fb3*p3p5*p4p7-2*fb3*p3p5*p5p7))
5518 ans4=(16*(p5p8*p3p7)*(2*fb4*ffmcfmb*hbcm-fb4*hbcm)+16*(p3p7*
5519 . p2p8)*(-2*fb4*ffmcfmb*hbcm+fb4*hbcm)+4*(p4p8*p3p7)*(-4*fb3*fmb
5520 . -4*fb4*ffmcfmb*hbcm+hbcm)+4*(p7p8*p3p4)*(4*fb3*fmb+4*fb4*
5521 . ffmcfmb*hbcm-hbcm)+4*(p3p7*p1p8)*(4*fb3*fmb-4*fb4*ffmcfmb*hbcm
5522 . +4*fb4*hbcm-hbcm)+4*(p7p8*p1p3)*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm
5523 . -hbcm)+4*p7p8*(4*fb3*ffmcfmb*fmb*hbcm2+2*fb4*ffmcfmb**2*hbcm3+
5524 . 2*fb4*fmc2*hbcm-fmc*hbcm2+hbcm3)+8*(-2*fb4*hbcm*p1p4*p7p8-2*
5525 . fb4*hbcm*p1p8*p4p7+4*fb4*hbcm*p1p8*p5p7-2*fb4*hbcm*p2p5*p7p8-4
5526 . *fb4*hbcm*p2p8*p4p7+6*fb4*hbcm*p2p8*p5p7+4*fb4*hbcm*p4p7*p5p8-
5527 . 2*fb4*hbcm*p4p8*p5p7-2*fb4*hbcm*p5p7*p5p8-hbcm*p2p3*p7p8+hbcm*
5528 . p3p5*p7p8))
5529 ans3=w12*(4*(p4p7*p1p8)*(fmb*hbcm2-fmc*hbcm2+2*hbcm3)+4*(p5p7*
5530 . p1p8)*(-3*ffmcfmb*hbcm3+fmc*hbcm2-hbcm3)+8*(p3p7*p3p5*p1p8)*(2
5531 . *ffmcfmb*hbcm-hbcm)+8*(p3p7*p2p3*p1p8)*(-2*ffmcfmb*hbcm+hbcm)+
5532 . 8*(p3p7*p1p8*p1p3)*(-2*ffmcfmb*hbcm+hbcm)+4*(p3p7*p1p8)*(
5533 . ffmcfmb**2*hbcm3-2*ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3+fmc*hbcm2+
5534 . fmc2*hbcm-hbcm3)+8*(-hbcm*p1p3*p1p8*p4p7+2*hbcm*p1p3*p1p8*p5p7
5535 . -hbcm*p1p4*p1p8*p3p7-2*hbcm*p1p8*p2p3*p4p7+3*hbcm*p1p8*p2p3*
5536 . p5p7-hbcm*p1p8*p2p5*p3p7-hbcm*p1p8*p3p4*p5p7+2*hbcm*p1p8*p3p5*
5537 . p4p7-hbcm*p1p8*p3p5*p5p7))+ans4
5538 ans2=w5*(4*(p4p8*p4p7)*(-fmb*hbcm2+fmc*hbcm2-2*hbcm3)+4*(p4p7*
5539 . p1p8)*(fmb*hbcm2-fmc*hbcm2+2*hbcm3)+4*(p5p7*p4p8)*(3*ffmcfmb*
5540 . hbcm3-fmc*hbcm2+hbcm3)+4*(p5p7*p1p8)*(-3*ffmcfmb*hbcm3+fmc*
5541 . hbcm2-hbcm3)+8*(p4p8*p3p7*p3p5)*(-2*ffmcfmb*hbcm+hbcm)+8*(p4p8
5542 . *p3p7*p2p3)*(2*ffmcfmb*hbcm-hbcm)+8*(p3p7*p3p5*p1p8)*(2*
5543 . ffmcfmb*hbcm-hbcm)+8*(p3p7*p2p3*p1p8)*(-2*ffmcfmb*hbcm+hbcm)+8
5544 . *(p4p8*p3p7*p1p3)*(2*ffmcfmb*hbcm-hbcm)+8*(p3p7*p1p8*p1p3)*(-2
5545 . *ffmcfmb*hbcm+hbcm)+4*(p4p8*p3p7)*(-ffmcfmb**2*hbcm3+2*ffmcfmb
5546 . *fmc*hbcm2-ffmcfmb*hbcm3-fmc*hbcm2-fmc2*hbcm+hbcm3)+4*(p3p7*
5547 . p1p8)*(ffmcfmb**2*hbcm3-2*ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3+fmc*
5548 . hbcm2+fmc2*hbcm-hbcm3)+8*(-hbcm*p1p3*p1p8*p4p7+2*hbcm*p1p3*
5549 . p1p8*p5p7+hbcm*p1p3*p4p7*p4p8-2*hbcm*p1p3*p4p8*p5p7-hbcm*p1p4*
5550 . p1p8*p3p7+hbcm*p1p4*p3p7*p4p8-2*hbcm*p1p8*p2p3*p4p7+3*hbcm*
5551 . p1p8*p2p3*p5p7-hbcm*p1p8*p2p5*p3p7-hbcm*p1p8*p3p4*p5p7+2*hbcm*
5552 . p1p8*p3p5*p4p7-hbcm*p1p8*p3p5*p5p7+2*hbcm*p2p3*p4p7*p4p8-3*
5553 . hbcm*p2p3*p4p8*p5p7+hbcm*p2p5*p3p7*p4p8+hbcm*p3p4*p4p8*p5p7-2*
5554 . hbcm*p3p5*p4p7*p4p8+hbcm*p3p5*p4p8*p5p7))+ans3
5555 ans1=w2*(4*(p5p8*p4p7)*(fmb*hbcm2-fmc*hbcm2+2*hbcm3)+4*(p5p8*
5556 . p5p7)*(-3*ffmcfmb*hbcm3+fmc*hbcm2-hbcm3)+8*(p5p8*p3p7*p3p5)*(2
5557 . *ffmcfmb*hbcm-hbcm)+8*(p5p8*p3p7*p2p3)*(-2*ffmcfmb*hbcm+hbcm)+
5558 . 8*(p5p8*p3p7*p1p3)*(-2*ffmcfmb*hbcm+hbcm)+4*(p5p8*p3p7)*(
5559 . ffmcfmb**2*hbcm3-2*ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3+fmc*hbcm2+
5560 . fmc2*hbcm-hbcm3)+8*(-hbcm*p1p3*p4p7*p5p8+2*hbcm*p1p3*p5p7*p5p8
5561 . -hbcm*p1p4*p3p7*p5p8-2*hbcm*p2p3*p4p7*p5p8+3*hbcm*p2p3*p5p7*
5562 . p5p8-hbcm*p2p5*p3p7*p5p8-hbcm*p3p4*p5p7*p5p8+2*hbcm*p3p5*p4p7*
5563 . p5p8-hbcm*p3p5*p5p7*p5p8))+ans2
5564 ans=ccc*ans1
5565 b(5)=ans
5566 ans=ccc*(w2*(4*(p5p8*p5p6)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+4*(
5567 . p5p8*p3p6)*(-ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm+2*ffmcfmb*hbcm2
5568 . +fmb*hbcm-hbcm2))+w5*(4*(p5p6*p4p8)*(-ffmcfmb*hbcm2-fmb*hbcm+
5569 . hbcm2)+4*(p5p6*p1p8)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+4*(p4p8*
5570 . p3p6)*(ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm-2*ffmcfmb*hbcm2-fmb*
5571 . hbcm+hbcm2)+4*(p3p6*p1p8)*(-ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm+
5572 . 2*ffmcfmb*hbcm2+fmb*hbcm-hbcm2))+w12*(4*(p5p6*p1p8)*(ffmcfmb*
5573 . hbcm2+fmb*hbcm-hbcm2)+4*(p3p6*p1p8)*(-ffmcfmb**2*hbcm2-ffmcfmb
5574 . *fmb*hbcm+2*ffmcfmb*hbcm2+fmb*hbcm-hbcm2))+(2*p6p8*(-ffmcfmb*
5575 . hbcm2-fmb*hbcm+hbcm2)+16*(p4p8*p3p6)*(-fb3*ffmcfmb+fb3)+16*(
5576 . p3p6*p1p8)*(fb3*ffmcfmb-fb3)+16*(-fb3*ffmcfmb*p2p8*p3p6-fb3*
5577 . ffmcfmb*p3p6*p5p8-fb3*p1p8*p5p6-fb3*p2p8*p4p6-fb3*p4p6*p5p8+
5578 . fb3*p4p8*p5p6)))
5579 b(6)=ans
5580 b(7)=ccc*(16*(p3p6*p3p4)*(fb3*ffmcfmb-fb3)+16*(p3p6*p1p3)*(-fb3
5581 . *ffmcfmb+fb3)+2*p5p6*(-4*fb3*ffmcfmb*hbcm2-4*fb3*hbcm2+4*fb4*
5582 . fmb*hbcm+hbcm2)+16*p4p6*(-fb3*ffmcfmb*hbcm2+fb3*hbcm2)+2*p3p6*
5583 . (-4*fb3*ffmcfmb**2*hbcm2+8*fb3*ffmcfmb*hbcm2-4*fb3*hbcm2-4*fb4
5584 . *ffmcfmb*fmb*hbcm+4*fb4*fmb*hbcm-ffmcfmb*hbcm2+hbcm2)+16*(fb3*
5585 . ffmcfmb*p2p3*p3p6+fb3*ffmcfmb*p3p5*p3p6+fb3*p1p3*p5p6+fb3*p2p3
5586 . *p4p6-fb3*p3p4*p5p6+fb3*p3p5*p4p6))
5587 ans3=w12*(4*(p5p6*p1p8)*(-ffmcfmb*hbcm3+fmb*hbcm2-hbcm3)+8*(
5588 . p4p6*p1p8)*(-ffmcfmb*hbcm3+hbcm3)+8*(p3p6*p3p4*p1p8)*(ffmcfmb*
5589 . hbcm-hbcm)+8*(p3p6*p1p8*p1p3)*(-ffmcfmb*hbcm+hbcm)+4*(p3p6*
5590 . p1p8)*(-ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+2*ffmcfmb*hbcm3+fmb
5591 . *hbcm2-hbcm3)+8*(ffmcfmb*hbcm*p1p8*p2p3*p3p6+ffmcfmb*hbcm*p1p8
5592 . *p3p5*p3p6+hbcm*p1p3*p1p8*p5p6+hbcm*p1p8*p2p3*p4p6-hbcm*p1p8*
5593 . p3p4*p5p6+hbcm*p1p8*p3p5*p4p6))+(2*p6p8*(-ffmcfmb*hbcm3-fmb*
5594 . hbcm2+3*hbcm3)+16*(p4p8*p3p6)*(fb4*ffmcfmb*hbcm-fb4*hbcm)+16*(
5595 . p3p6*p1p8)*(-fb4*ffmcfmb*hbcm+fb4*hbcm)+4*(4*fb4*ffmcfmb*hbcm*
5596 . p2p8*p3p6+4*fb4*ffmcfmb*hbcm*p3p6*p5p8+4*fb4*hbcm*p1p8*p5p6+4*
5597 . fb4*hbcm*p2p8*p4p6+4*fb4*hbcm*p4p6*p5p8-4*fb4*hbcm*p4p8*p5p6-
5598 . hbcm*p1p3*p6p8+hbcm*p2p3*p6p8+hbcm*p3p4*p6p8+hbcm*p3p5*p6p8))
5599 ans2=w5*(4*(p5p6*p4p8)*(ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+8*(p4p8*
5600 . p4p6)*(ffmcfmb*hbcm3-hbcm3)+4*(p5p6*p1p8)*(-ffmcfmb*hbcm3+fmb*
5601 . hbcm2-hbcm3)+8*(p4p6*p1p8)*(-ffmcfmb*hbcm3+hbcm3)+8*(p4p8*p3p6
5602 . *p3p4)*(-ffmcfmb*hbcm+hbcm)+8*(p3p6*p3p4*p1p8)*(ffmcfmb*hbcm-
5603 . hbcm)+8*(p4p8*p3p6*p1p3)*(ffmcfmb*hbcm-hbcm)+8*(p3p6*p1p8*p1p3
5604 . )*(-ffmcfmb*hbcm+hbcm)+4*(p4p8*p3p6)*(ffmcfmb**2*hbcm3+ffmcfmb
5605 . *fmb*hbcm2-2*ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+4*(p3p6*p1p8)*(-
5606 . ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+2*ffmcfmb*hbcm3+fmb*hbcm2-
5607 . hbcm3)+8*(ffmcfmb*hbcm*p1p8*p2p3*p3p6+ffmcfmb*hbcm*p1p8*p3p5*
5608 . p3p6-ffmcfmb*hbcm*p2p3*p3p6*p4p8-ffmcfmb*hbcm*p3p5*p3p6*p4p8+
5609 . hbcm*p1p3*p1p8*p5p6-hbcm*p1p3*p4p8*p5p6+hbcm*p1p8*p2p3*p4p6-
5610 . hbcm*p1p8*p3p4*p5p6+hbcm*p1p8*p3p5*p4p6-hbcm*p2p3*p4p6*p4p8+
5611 . hbcm*p3p4*p4p8*p5p6-hbcm*p3p5*p4p6*p4p8))+ans3
5612 ans1=w2*(4*(p5p8*p5p6)*(-ffmcfmb*hbcm3+fmb*hbcm2-hbcm3)+8*(p5p8
5613 . *p4p6)*(-ffmcfmb*hbcm3+hbcm3)+8*(p5p8*p3p6*p3p4)*(ffmcfmb*hbcm
5614 . -hbcm)+8*(p5p8*p3p6*p1p3)*(-ffmcfmb*hbcm+hbcm)+4*(p5p8*p3p6)*(
5615 . -ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+2*ffmcfmb*hbcm3+fmb*hbcm2-
5616 . hbcm3)+8*(ffmcfmb*hbcm*p2p3*p3p6*p5p8+ffmcfmb*hbcm*p3p5*p3p6*
5617 . p5p8+hbcm*p1p3*p5p6*p5p8+hbcm*p2p3*p4p6*p5p8-hbcm*p3p4*p5p6*
5618 . p5p8+hbcm*p3p5*p4p6*p5p8))+ans2
5619 ans=ccc*ans1
5620 b(8)=ans
5621 b(9)=ccc*(4*(p4p6*p3p7)*(4*fb3*fmb+12*fb4*ffmcfmb*hbcm-8*fb4*
5622 . hbcm-hbcm)+4*(p5p7*p3p6)*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+hbcm)+
5623 . 4*(p4p7*p3p6)*(4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm-hbcm)+4
5624 . *(p6p7*p3p4)*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+hbcm)+4*(p6p7*p2p3
5625 . )*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+hbcm)+4*(p6p7*p1p3)*(4*fb3*
5626 . fmb+4*fb4*ffmcfmb*hbcm-hbcm)+4*(p3p7*p3p6)*(12*fb3*ffmcfmb*fmb
5627 . -4*fb3*fmb+4*fb4*ffmcfmb**2*hbcm-8*fb4*ffmcfmb*hbcm+4*fb4*hbcm
5628 . -3*ffmcfmb*hbcm+hbcm)+4*p6p7*(-4*fb3*ffmcfmb*fmb*hbcm2-2*fb4*
5629 . ffmcfmb**2*hbcm3-2*fb4*fmc2*hbcm+ffmcfmb*hbcm3)+16*(fb4*hbcm*
5630 . p1p2*p6p7+fb4*hbcm*p1p4*p6p7-fb4*hbcm*p2p4*p6p7+fb4*hbcm*p3p7*
5631 . p5p6+fb4*hbcm*p4p6*p4p7-2*fb4*hbcm*p4p6*p5p7+fb4*hbcm*p4p7*
5632 . p5p6))
5633 ans4=8*(fmb*hbcm*p1p8*p3p6*p5p7-fmb*hbcm*p3p6*p4p8*p5p7-hbcm2*
5634 . p1p2*p1p8*p6p7+hbcm2*p1p2*p4p8*p6p7-hbcm2*p1p4*p1p8*p6p7+hbcm2
5635 . *p1p4*p4p8*p6p7+hbcm2*p1p8*p2p3*p6p7+hbcm2*p1p8*p2p4*p6p7+
5636 . hbcm2*p1p8*p4p6*p5p7-hbcm2*p1p8*p4p7*p5p6-hbcm2*p2p3*p4p8*p6p7
5637 . -hbcm2*p2p4*p4p8*p6p7-hbcm2*p4p6*p4p8*p5p7+hbcm2*p4p7*p4p8*
5638 . p5p6)
5639 ans3=8*(p5p6*p4p8*p3p7)*(ffmcfmb*hbcm2+fmb*hbcm)+8*(p4p8*p4p6*
5640 . p3p7)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(p4p8*p4p7*p3p6)*(-2*
5641 . ffmcfmb*hbcm2+fmb*hbcm+hbcm2)+8*(p6p7*p4p8*p3p4)*(-ffmcfmb*
5642 . hbcm2-fmb*hbcm)+8*(p5p6*p3p7*p1p8)*(-ffmcfmb*hbcm2-fmb*hbcm)+8
5643 . *(p4p6*p3p7*p1p8)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(p4p7*p3p6
5644 . *p1p8)*(2*ffmcfmb*hbcm2-fmb*hbcm-hbcm2)+8*(p6p7*p3p4*p1p8)*(
5645 . ffmcfmb*hbcm2+fmb*hbcm)+8*(p6p7*p4p8*p1p3)*(ffmcfmb*hbcm2+fmb*
5646 . hbcm)+8*(p6p7*p1p8*p1p3)*(-ffmcfmb*hbcm2-fmb*hbcm)+4*(p6p7*
5647 . p4p8)*(-ffmcfmb**2*hbcm4-2*ffmcfmb*fmb*hbcm3-fmc2*hbcm2)+4*(
5648 . p6p7*p1p8)*(ffmcfmb**2*hbcm4+2*ffmcfmb*fmb*hbcm3+fmc2*hbcm2)+8
5649 . *(p4p8*p3p7*p3p6)*(-2*ffmcfmb**2*hbcm2+2*ffmcfmb*fmb*hbcm+
5650 . ffmcfmb*hbcm2)+8*(p3p7*p3p6*p1p8)*(2*ffmcfmb**2*hbcm2-2*
5651 . ffmcfmb*fmb*hbcm-ffmcfmb*hbcm2)+ans4
5652 ans2=w5*ans3
5653 ans7=32*(fb3*ffmcfmb*p1p8*p3p6*p3p7-fb3*ffmcfmb*p2p3*p3p6*p7p8-
5654 . fb3*ffmcfmb*p3p5*p3p6*p7p8-fb3*ffmcfmb*p3p6*p3p7*p4p8+fb3*
5655 . ffmcfmb*p3p6*p3p7*p5p8+2*fb3*p1p3*p2p8*p6p7-fb3*p1p3*p4p7*p6p8
5656 . -fb3*p1p3*p5p6*p7p8+fb3*p1p3*p5p7*p6p8+fb3*p1p8*p3p6*p4p7-fb3*
5657 . p1p8*p3p6*p5p7+fb3*p1p8*p3p7*p5p6-fb3*p2p3*p4p6*p7p8-2*fb3*
5658 . p2p8*p3p4*p6p7+fb3*p2p8*p3p6*p4p7-fb3*p2p8*p3p6*p5p7+3*fb3*
5659 . p2p8*p3p7*p4p6+fb3*p3p4*p4p7*p6p8+fb3*p3p4*p5p6*p7p8-fb3*p3p4*
5660 . p5p7*p6p8-fb3*p3p5*p4p6*p7p8-fb3*p3p6*p4p7*p4p8+fb3*p3p6*p4p8*
5661 . p5p7+fb3*p3p7*p4p6*p5p8-fb3*p3p7*p4p8*p5p6)
5662 ans6=32*(p6p8*p3p7*p3p4)*(2*fb3*ffmcfmb-fb3)+32*(p7p8*p3p6*p3p4
5663 . )*(-fb3*ffmcfmb+fb3)+32*(p3p7*p3p6*p2p8)*(5*fb3*ffmcfmb-fb3)+
5664 . 32*(p6p8*p3p7*p1p3)*(-2*fb3*ffmcfmb+fb3)+32*(p7p8*p3p6*p1p3)*(
5665 . fb3*ffmcfmb-fb3)+16*(p6p8*p5p7)*(-fb3*ffmcfmb*hbcm2-fb3*hbcm2+
5666 . fb4*fmb*hbcm)+4*(p7p8*p5p6)*(4*fb3*ffmcfmb*hbcm2+4*fb3*hbcm2-4
5667 . *fb4*fmb*hbcm-hbcm2)+4*(p6p7*p4p8)*(4*fb3*ffmcfmb*hbcm2-4*fb3*
5668 . hbcm2+4*fb4*fmb*hbcm+hbcm2)+8*(p6p8*p4p7)*(2*fb3*ffmcfmb*hbcm2
5669 . +2*fb3*hbcm2-2*fb4*fmb*hbcm+hbcm2)+4*(p7p8*p4p6)*(4*fb3*
5670 . ffmcfmb*hbcm2-4*fb3*hbcm2-4*fb4*fmb*hbcm-hbcm2)+4*(p7p8*p3p6)*
5671 . (-4*fb3*ffmcfmb*hbcm2+4*fb3*hbcm2-4*fb4*fmb*hbcm+2*ffmcfmb*
5672 . hbcm2-2*fmb*hbcm-hbcm2)+4*(p6p7*p2p8)*(-12*fb3*ffmcfmb*hbcm2-4
5673 . *fb3*hbcm2+4*fb4*fmb*hbcm+hbcm2)+4*(p6p7*p1p8)*(-4*fb3*ffmcfmb
5674 . *hbcm2+4*fb3*hbcm2-4*fb4*fmb*hbcm-hbcm2)+8*(p6p8*p3p7)*(4*fb3*
5675 . ffmcfmb**2*hbcm2+2*fb3*ffmcfmb*hbcm2-2*fb3*hbcm2-4*fb4*ffmcfmb
5676 . *fmb*hbcm+2*fb4*fmb*hbcm+ffmcfmb*hbcm2)+ans7
5677 ans5=w12*(8*(p5p6*p3p7*p1p8)*(-ffmcfmb*hbcm2-fmb*hbcm)+8*(p4p6*
5678 . p3p7*p1p8)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(p4p7*p3p6*p1p8)*
5679 . (2*ffmcfmb*hbcm2-fmb*hbcm-hbcm2)+8*(p6p7*p3p4*p1p8)*(ffmcfmb*
5680 . hbcm2+fmb*hbcm)+8*(p6p7*p1p8*p1p3)*(-ffmcfmb*hbcm2-fmb*hbcm)+4
5681 . *(p6p7*p1p8)*(ffmcfmb**2*hbcm4+2*ffmcfmb*fmb*hbcm3+fmc2*hbcm2)
5682 . +8*(p3p7*p3p6*p1p8)*(2*ffmcfmb**2*hbcm2-2*ffmcfmb*fmb*hbcm-
5683 . ffmcfmb*hbcm2)+8*(fmb*hbcm*p1p8*p3p6*p5p7-hbcm2*p1p2*p1p8*p6p7
5684 . -hbcm2*p1p4*p1p8*p6p7+hbcm2*p1p8*p2p3*p6p7+hbcm2*p1p8*p2p4*
5685 . p6p7+hbcm2*p1p8*p4p6*p5p7-hbcm2*p1p8*p4p7*p5p6))+ans6
5686 ans1=w2*(8*(p5p8*p5p6*p3p7)*(-ffmcfmb*hbcm2-fmb*hbcm)+8*(p5p8*
5687 . p4p6*p3p7)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(p5p8*p4p7*p3p6)*
5688 . (2*ffmcfmb*hbcm2-fmb*hbcm-hbcm2)+8*(p6p7*p5p8*p3p4)*(ffmcfmb*
5689 . hbcm2+fmb*hbcm)+8*(p6p7*p5p8*p1p3)*(-ffmcfmb*hbcm2-fmb*hbcm)+4
5690 . *(p6p7*p5p8)*(ffmcfmb**2*hbcm4+2*ffmcfmb*fmb*hbcm3+fmc2*hbcm2)
5691 . +8*(p5p8*p3p7*p3p6)*(2*ffmcfmb**2*hbcm2-2*ffmcfmb*fmb*hbcm-
5692 . ffmcfmb*hbcm2)+8*(fmb*hbcm*p3p6*p5p7*p5p8-hbcm2*p1p2*p5p8*p6p7
5693 . -hbcm2*p1p4*p5p8*p6p7+hbcm2*p2p3*p5p8*p6p7+hbcm2*p2p4*p5p8*
5694 . p6p7+hbcm2*p4p6*p5p7*p5p8-hbcm2*p4p7*p5p6*p5p8))+ans2+ans5
5695 ans=ccc*ans1
5696 b(10)=ans
5697 ans=ccc*(w2*(2*p5p8*(-2*ffmcfmb*hbcm3+fmb2*hbcm-fmc2*hbcm+hbcm3
5698 . )+4*(ffmcfmb*hbcm*p1p3*p5p8-hbcm*p1p2*p5p8+hbcm*p1p4*p5p8-hbcm
5699 . *p1p5*p5p8+hbcm*p2p3*p5p8+2*hbcm*p2p5*p5p8-hbcm*p3p4*p5p8+hbcm
5700 . *p3p5*p5p8))+w5*(2*p4p8*(2*ffmcfmb*hbcm3-fmb2*hbcm+fmc2*hbcm-
5701 . hbcm3)+2*p1p8*(-2*ffmcfmb*hbcm3+fmb2*hbcm-fmc2*hbcm+hbcm3)+4*(
5702 . ffmcfmb*hbcm*p1p3*p1p8-ffmcfmb*hbcm*p1p3*p4p8-hbcm*p1p2*p1p8+
5703 . hbcm*p1p2*p4p8+hbcm*p1p4*p1p8-hbcm*p1p4*p4p8-hbcm*p1p5*p1p8+
5704 . hbcm*p1p5*p4p8+hbcm*p1p8*p2p3+2*hbcm*p1p8*p2p5-hbcm*p1p8*p3p4+
5705 . hbcm*p1p8*p3p5-hbcm*p2p3*p4p8-2*hbcm*p2p5*p4p8+hbcm*p3p4*p4p8-
5706 . hbcm*p3p5*p4p8))+w12*(2*p1p8*(-2*ffmcfmb*hbcm3+fmb2*hbcm-fmc2*
5707 . hbcm+hbcm3)+4*(ffmcfmb*hbcm*p1p3*p1p8-hbcm*p1p2*p1p8+hbcm*p1p4
5708 . *p1p8-hbcm*p1p5*p1p8+hbcm*p1p8*p2p3+2*hbcm*p1p8*p2p5-hbcm*p1p8
5709 . *p3p4+hbcm*p1p8*p3p5))+(2*p4p8*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4
5710 . *fb4*hbcm-hbcm)+4*p2p8*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*
5711 . hbcm+hbcm)+4*p1p8*(-2*fb3*fmb-2*fb4*ffmcfmb*hbcm+2*fb4*hbcm+
5712 . hbcm)))
5713 b(11)=ans
5714 b(12)=4*ccc*(2*fb3*ffmcfmb*hbcm2-2*fb3*ffmcfmb*p1p3-fb3*fmb2+
5715 . fb3*fmc2-fb3*hbcm2+2*fb3*p1p2-2*fb3*p1p4+2*fb3*p1p5-2*fb3*p2p3
5716 . -4*fb3*p2p5+2*fb3*p3p4-2*fb3*p3p5)
5717 ans2=w12*(4*(p3p4*p1p8)*(-ffmcfmb*hbcm2-fmb*hbcm)+4*(p2p3*p1p8)
5718 . *(2*ffmcfmb*hbcm2+2*fmb*hbcm-hbcm2)+4*(p1p8*p1p3)*(2*ffmcfmb*
5719 . hbcm2+fmb*hbcm-hbcm2)+2*p1p8*(-2*ffmcfmb**2*hbcm4-2*ffmcfmb*
5720 . fmb*hbcm3+fmb2*hbcm2-fmc2*hbcm2+hbcm4)+4*(-hbcm2*p1p2*p1p8+
5721 . hbcm2*p1p4*p1p8-hbcm2*p1p5*p1p8+2*hbcm2*p1p8*p2p5+hbcm2*p1p8*
5722 . p3p5))+(2*p4p8*(4*fb3*ffmcfmb*hbcm2-4*fb3*hbcm2-4*fb4*fmb*hbcm
5723 . -hbcm2)+4*p2p8*(-8*fb3*ffmcfmb*hbcm2+4*fb3*hbcm2+4*fb4*fmb*
5724 . hbcm+hbcm2)+4*p1p8*(-2*fb3*ffmcfmb*hbcm2+2*fb3*hbcm2+2*fb4*fmb
5725 . *hbcm+hbcm2)+16*(fb3*ffmcfmb*hbcm2*p5p8+fb3*p1p3*p2p8-fb3*p1p3
5726 . *p5p8-fb3*p1p8*p2p3+fb3*p1p8*p3p5+fb3*p2p3*p4p8-2*fb3*p2p3*
5727 . p5p8-fb3*p2p8*p3p4+2*fb3*p2p8*p3p5+fb3*p3p4*p5p8-fb3*p3p5*p4p8
5728 . ))
5729 ans1=w2*(4*(p5p8*p3p4)*(-ffmcfmb*hbcm2-fmb*hbcm)+4*(p5p8*p2p3)*
5730 . (2*ffmcfmb*hbcm2+2*fmb*hbcm-hbcm2)+4*(p5p8*p1p3)*(2*ffmcfmb*
5731 . hbcm2+fmb*hbcm-hbcm2)+2*p5p8*(-2*ffmcfmb**2*hbcm4-2*ffmcfmb*
5732 . fmb*hbcm3+fmb2*hbcm2-fmc2*hbcm2+hbcm4)+4*(-hbcm2*p1p2*p5p8+
5733 . hbcm2*p1p4*p5p8-hbcm2*p1p5*p5p8+2*hbcm2*p2p5*p5p8+hbcm2*p3p5*
5734 . p5p8))+w5*(4*(p4p8*p3p4)*(ffmcfmb*hbcm2+fmb*hbcm)+4*(p4p8*p2p3
5735 . )*(-2*ffmcfmb*hbcm2-2*fmb*hbcm+hbcm2)+4*(p3p4*p1p8)*(-ffmcfmb*
5736 . hbcm2-fmb*hbcm)+4*(p2p3*p1p8)*(2*ffmcfmb*hbcm2+2*fmb*hbcm-
5737 . hbcm2)+4*(p4p8*p1p3)*(-2*ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+4*(p1p8
5738 . *p1p3)*(2*ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+2*p4p8*(2*ffmcfmb**2*
5739 . hbcm4+2*ffmcfmb*fmb*hbcm3-fmb2*hbcm2+fmc2*hbcm2-hbcm4)+2*p1p8*
5740 . (-2*ffmcfmb**2*hbcm4-2*ffmcfmb*fmb*hbcm3+fmb2*hbcm2-fmc2*hbcm2
5741 . +hbcm4)+4*(-hbcm2*p1p2*p1p8+hbcm2*p1p2*p4p8+hbcm2*p1p4*p1p8-
5742 . hbcm2*p1p4*p4p8-hbcm2*p1p5*p1p8+hbcm2*p1p5*p4p8+2*hbcm2*p1p8*
5743 . p2p5+hbcm2*p1p8*p3p5-2*hbcm2*p2p5*p4p8-hbcm2*p3p5*p4p8))+ans2
5744 ans=ccc*ans1
5745 b(13)=ans
5746 b(14)=ccc*(2*p3p4*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+hbcm)+4*p2p3*(
5747 . 4*fb3*fmb+4*fb4*ffmcfmb*hbcm-2*fb4*hbcm-hbcm)+2*p1p3*(4*fb3*
5748 . fmb+8*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm)+2*(-4*fb3*ffmcfmb*fmb*
5749 . hbcm2-4*fb4*ffmcfmb**2*hbcm3+2*fb4*fmb2*hbcm-2*fb4*fmc2*hbcm-4
5750 . *fb4*hbcm*p1p2+4*fb4*hbcm*p1p4-4*fb4*hbcm*p1p5+8*fb4*hbcm*p2p5
5751 . +4*fb4*hbcm*p3p5+2*fb4*hbcm3+ffmcfmb*hbcm3))
5752 b(15)=ccc*(w2*(4*(p5p8*p3p6)*(4*ffmcfmb*hbcm2-hbcm2)+4*(3*hbcm2
5753 . *p4p6*p5p8-hbcm2*p5p6*p5p8))+w5*(4*(p4p8*p3p6)*(-4*ffmcfmb*
5754 . hbcm2+hbcm2)+4*(p3p6*p1p8)*(4*ffmcfmb*hbcm2-hbcm2)+4*(3*hbcm2*
5755 . p1p8*p4p6-hbcm2*p1p8*p5p6-3*hbcm2*p4p6*p4p8+hbcm2*p4p8*p5p6))+
5756 . w12*(4*(p3p6*p1p8)*(4*ffmcfmb*hbcm2-hbcm2)+4*(3*hbcm2*p1p8*
5757 . p4p6-hbcm2*p1p8*p5p6))+8*hbcm2*p6p8)
5758 b(16)=ccc*(w2*(4*(p5p8*p3p6)*(-4*ffmcfmb*hbcm+hbcm)+4*(-3*hbcm*
5759 . p4p6*p5p8+hbcm*p5p6*p5p8))+w5*(4*(p4p8*p3p6)*(4*ffmcfmb*hbcm-
5760 . hbcm)+4*(p3p6*p1p8)*(-4*ffmcfmb*hbcm+hbcm)+4*(-3*hbcm*p1p8*
5761 . p4p6+hbcm*p1p8*p5p6+3*hbcm*p4p6*p4p8-hbcm*p4p8*p5p6))+w12*(4*(
5762 . p3p6*p1p8)*(-4*ffmcfmb*hbcm+hbcm)+4*(-3*hbcm*p1p8*p4p6+hbcm*
5763 . p1p8*p5p6))-8*hbcm*p6p8)
5764 b(17)=ccc*(w2*(2*p5p8*(5*ffmcfmb*hbcm3-3*fmb*hbcm2-3*hbcm3)+4*(
5765 . -hbcm*p1p3*p5p8+hbcm*p2p3*p5p8+hbcm*p3p4*p5p8-3*hbcm*p3p5*p5p8
5766 . ))+w5*(2*p4p8*(-5*ffmcfmb*hbcm3+3*fmb*hbcm2+3*hbcm3)+2*p1p8*(5
5767 . *ffmcfmb*hbcm3-3*fmb*hbcm2-3*hbcm3)+4*(-hbcm*p1p3*p1p8+hbcm*
5768 . p1p3*p4p8+hbcm*p1p8*p2p3+hbcm*p1p8*p3p4-3*hbcm*p1p8*p3p5-hbcm*
5769 . p2p3*p4p8-hbcm*p3p4*p4p8+3*hbcm*p3p5*p4p8))+w12*(2*p1p8*(5*
5770 . ffmcfmb*hbcm3-3*fmb*hbcm2-3*hbcm3)+4*(-hbcm*p1p3*p1p8+hbcm*
5771 . p1p8*p2p3+hbcm*p1p8*p3p4-3*hbcm*p1p8*p3p5))+8*(-fb4*hbcm*p1p8+
5772 . fb4*hbcm*p2p8+fb4*hbcm*p4p8-3*fb4*hbcm*p5p8))
5773 b(18)=ccc*(w2*(4*(p5p8*p3p7)*(-ffmcfmb*hbcm2-fmb*hbcm)+4*(hbcm2
5774 . *p4p7*p5p8-3*hbcm2*p5p7*p5p8))+w5*(4*(p4p8*p3p7)*(ffmcfmb*
5775 . hbcm2+fmb*hbcm)+4*(p3p7*p1p8)*(-ffmcfmb*hbcm2-fmb*hbcm)+4*(
5776 . hbcm2*p1p8*p4p7-3*hbcm2*p1p8*p5p7-hbcm2*p4p7*p4p8+3*hbcm2*p4p8
5777 . *p5p7))+w12*(4*(p3p7*p1p8)*(-ffmcfmb*hbcm2-fmb*hbcm)+4*(hbcm2*
5778 . p1p8*p4p7-3*hbcm2*p1p8*p5p7))+(2*p7p8*(12*fb3*ffmcfmb*hbcm2-4*
5779 . fb3*hbcm2-4*fb4*fmb*hbcm-hbcm2)+16*(-fb3*p1p3*p7p8+fb3*p1p8*
5780 . p3p7+fb3*p2p3*p7p8-fb3*p2p8*p3p7+fb3*p3p4*p7p8-fb3*p3p5*p7p8-
5781 . fb3*p3p7*p4p8+fb3*p3p7*p5p8)))
5782 b(19)=ccc*(6*w2*p5p8*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+w5*(6*p4p8
5783 . *(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+6*p1p8*(-ffmcfmb*hbcm2-fmb*
5784 . hbcm+hbcm2))+6*w12*p1p8*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(fb3
5785 . *p1p8-fb3*p2p8-fb3*p4p8+3*fb3*p5p8))
5786 b(20)=ccc*(w2*(8*(p5p8*p3p7)*(ffmcfmb*hbcm-hbcm)+8*(hbcm*p4p7*
5787 . p5p8-2*hbcm*p5p7*p5p8))+w5*(8*(p4p8*p3p7)*(-ffmcfmb*hbcm+hbcm)
5788 . +8*(p3p7*p1p8)*(ffmcfmb*hbcm-hbcm)+8*(hbcm*p1p8*p4p7-2*hbcm*
5789 . p1p8*p5p7-hbcm*p4p7*p4p8+2*hbcm*p4p8*p5p7))+w12*(8*(p3p7*p1p8)
5790 . *(ffmcfmb*hbcm-hbcm)+8*(hbcm*p1p8*p4p7-2*hbcm*p1p8*p5p7))+2*
5791 . p7p8*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm+hbcm))
5792 b(21)=3*ccc*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm)
5793 b(22)=ccc*(20*fb3*ffmcfmb*hbcm2-12*fb3*hbcm2-8*fb3*p1p3+8*fb3*
5794 . p2p3+8*fb3*p3p4-24*fb3*p3p5-12*fb4*fmb*hbcm-3*hbcm2)
5795 b(23)=ccc*(2*p3p7*(-4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm+
5796 . hbcm)+16*(fb4*hbcm*p4p7-2*fb4*hbcm*p5p7))
5797 b(24)=ccc*(8*p3p6*(-4*fb4*ffmcfmb*hbcm+fb4*hbcm)+8*(-3*fb4*hbcm
5798 . *p4p6+fb4*hbcm*p5p6))
5799 b(25)=ccc*(2*p5p7*(8*fb3*fmb-4*fb3*fmc+4*fb4*ffmcfmb*hbcm-4*fb4
5800 . *hbcm-hbcm)+4*p4p7*(-6*fb3*fmb+2*fb3*fmc-4*fb4*ffmcfmb*hbcm+4*
5801 . fb4*hbcm+hbcm)+2*p3p7*(-16*fb3*ffmcfmb*fmb+8*fb3*ffmcfmb*fmc+8
5802 . *fb3*fmb-4*fb3*fmc-8*fb4*ffmcfmb**2*hbcm+12*fb4*ffmcfmb*hbcm-4
5803 . *fb4*hbcm+2*ffmcfmb*hbcm-hbcm))
5804 b(26)=ccc*(2*p5p6*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+
5805 . hbcm)+2*p3p6*(4*fb3*ffmcfmb*fmb-4*fb3*fmb+4*fb4*ffmcfmb**2*
5806 . hbcm-8*fb4*ffmcfmb*hbcm+4*fb4*hbcm-ffmcfmb*hbcm+hbcm))
5807 b(27)=ccc*(16*(p3p7*p3p6)*(-4*fb3*ffmcfmb+fb3)+2*p6p7*(12*fb3*
5808 . ffmcfmb*hbcm2+4*fb3*hbcm2-4*fb4*fmb*hbcm-hbcm2)+16*(-2*fb3*
5809 . p1p3*p6p7+2*fb3*p3p4*p6p7-fb3*p3p6*p4p7+fb3*p3p6*p5p7-2*fb3*
5810 . p3p7*p4p6))
5811 b(28)=ccc*(4*w2*(p6p7*p5p8)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+w5*(
5812 . 4*(p6p7*p4p8)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+4*(p6p7*p1p8)*(
5813 . ffmcfmb*hbcm2+fmb*hbcm-hbcm2))+4*w12*(p6p7*p1p8)*(ffmcfmb*
5814 . hbcm2+fmb*hbcm-hbcm2)+(16*(p6p8*p3p7)*(-2*fb3*ffmcfmb+fb3)+16*
5815 . (-2*fb3*ffmcfmb*p3p6*p7p8-2*fb3*p1p8*p6p7-2*fb3*p4p6*p7p8-fb3*
5816 . p4p7*p6p8+2*fb3*p4p8*p6p7+fb3*p5p7*p6p8)))
5817 b(29)=ccc*(8*p3p6*(-4*fb3*ffmcfmb+fb3)+8*(-3*fb3*p4p6+fb3*p5p6)
5818 . )
5819 b(30)=ccc*(8*p3p7*(4*fb3*ffmcfmb-3*fb3)+8*(3*fb3*p4p7-5*fb3*
5820 . p5p7))
5821 ans=ccc*(w2*(4*(p6p7*p5p8)*(3*ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+8*
5822 . (p5p8*p3p7*p3p6)*(-4*ffmcfmb*hbcm+hbcm)+8*(-2*hbcm*p1p3*p5p8*
5823 . p6p7+2*hbcm*p3p4*p5p8*p6p7-hbcm*p3p6*p4p7*p5p8+hbcm*p3p6*p5p7*
5824 . p5p8-2*hbcm*p3p7*p4p6*p5p8))+w5*(4*(p6p7*p4p8)*(-3*ffmcfmb*
5825 . hbcm3+fmb*hbcm2-hbcm3)+4*(p6p7*p1p8)*(3*ffmcfmb*hbcm3-fmb*
5826 . hbcm2+hbcm3)+8*(p4p8*p3p7*p3p6)*(4*ffmcfmb*hbcm-hbcm)+8*(p3p7*
5827 . p3p6*p1p8)*(-4*ffmcfmb*hbcm+hbcm)+8*(-2*hbcm*p1p3*p1p8*p6p7+2*
5828 . hbcm*p1p3*p4p8*p6p7+2*hbcm*p1p8*p3p4*p6p7-hbcm*p1p8*p3p6*p4p7+
5829 . hbcm*p1p8*p3p6*p5p7-2*hbcm*p1p8*p3p7*p4p6-2*hbcm*p3p4*p4p8*
5830 . p6p7+hbcm*p3p6*p4p7*p4p8-hbcm*p3p6*p4p8*p5p7+2*hbcm*p3p7*p4p6*
5831 . p4p8))+w12*(4*(p6p7*p1p8)*(3*ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+8*
5832 . (p3p7*p3p6*p1p8)*(-4*ffmcfmb*hbcm+hbcm)+8*(-2*hbcm*p1p3*p1p8*
5833 . p6p7+2*hbcm*p1p8*p3p4*p6p7-hbcm*p1p8*p3p6*p4p7+hbcm*p1p8*p3p6*
5834 . p5p7-2*hbcm*p1p8*p3p7*p4p6))+(8*(p6p8*p3p7)*(-4*fb4*ffmcfmb*
5835 . hbcm+2*fb4*hbcm-hbcm)+8*(p7p8*p3p6)*(-4*fb4*ffmcfmb*hbcm-hbcm)
5836 . +16*(-2*fb4*hbcm*p1p8*p6p7-2*fb4*hbcm*p4p6*p7p8-fb4*hbcm*p4p7*
5837 . p6p8+2*fb4*hbcm*p4p8*p6p7+fb4*hbcm*p5p7*p6p8)))
5838 b(31)=ans
5839 b(32)=2*ccc*p6p7*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm)
5840 do 200 n=1,32
5841 c(n,1)=c(n,1)-0.1818181818181818d0*b(n)
5842 c(n,2)=c(n,2)-0.1512818716977898d0*b(n)
5843 c(n,3)=c(n,3)-0.1869893980016914d0*b(n)
5844 200 continue
5845 return
5846 end
5847
5848 subroutine amp31_1p1(cc)
5849 implicit double precision(a-h,o-z)
5850 implicit integer (i-n)
5851 dimension b(32)
5852 #include "inclcon.h"
5853 #include "inclppp.h"
5854 #include "inclamp.h"
5855 do 100 n=1,32
5856 b(n)=0.0d0
5857 100 continue
5858 ccc=cc/((-2*p1p5)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2)*(
5859 . ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2+2*ffmcfmb*p1p3-2*ffmcfmb*p3p5
5860 . +fmb2+hbcm2-2*p1p3-2*p1p5+2*p3p5))
5861 b(1)=ccc*(8*p6p7*(2*fb3*ffmcfmb*hbcm2-fb3*fmb2+fb3*fmc2-fb3*
5862 . hbcm2)+16*(fb3*p1p3*p6p7+fb3*p1p5*p6p7+fb3*p2p3*p6p7+2*fb3*
5863 . p2p4*p6p7+fb3*p3p4*p6p7-fb3*p3p5*p6p7-fb3*p3p6*p4p7+fb3*p3p6*
5864 . p5p7-fb3*p4p6*p4p7+fb3*p4p6*p5p7-fb3*p4p7*p5p6+fb3*p5p6*p5p7))
5865 ans2=(4*(p7p8*p5p6)*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm+hbcm)+4*(p7p8
5866 . *p4p6)*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm+hbcm)+4*(p7p8*p3p6)*(4*
5867 . fb3*fmc+4*fb4*ffmcfmb*hbcm+hbcm)+16*(p6p7*p5p8)*(fb3*fmb-fb3*
5868 . fmc-fb4*hbcm)+16*(p6p8*p5p7)*(-fb3*fmb+fb3*fmc)+4*(p6p8*p3p7)*
5869 . (-4*fb3*fmb+4*fb4*ffmcfmb*hbcm+hbcm)+32*(p6p7*p2p8)*(-fb3*fmb+
5870 . fb3*fmc+fb4*hbcm)+16*(p6p7*p1p8)*(-fb3*fmb+fb3*fmc+fb4*hbcm)+
5871 . 16*fb4*hbcm*p4p7*p6p8)
5872 ans1=w1*(4*(p6p7*p4p8)*(-2*ffmcfmb*hbcm3+fmb2*hbcm-fmc2*hbcm+
5873 . hbcm3)+8*(p5p6*p4p8*p3p7)*(-2*ffmcfmb*hbcm+hbcm)+8*(p4p8*p4p6*
5874 . p3p7)*(-2*ffmcfmb*hbcm+hbcm)+8*(p4p8*p3p7*p3p6)*(-2*ffmcfmb*
5875 . hbcm+hbcm)+8*(-hbcm*p1p3*p4p8*p6p7-hbcm*p1p5*p4p8*p6p7-hbcm*
5876 . p2p3*p4p8*p6p7-2*hbcm*p2p4*p4p8*p6p7-hbcm*p3p4*p4p8*p6p7+hbcm*
5877 . p3p5*p4p8*p6p7))+w15*(4*(p6p7*p5p8)*(2*ffmcfmb*hbcm3-fmb2*hbcm
5878 . +fmc2*hbcm-hbcm3)+4*(p6p7*p1p8)*(-2*ffmcfmb*hbcm3+fmb2*hbcm-
5879 . fmc2*hbcm+hbcm3)+8*(p5p8*p5p6*p3p7)*(2*ffmcfmb*hbcm-hbcm)+8*(
5880 . p5p8*p4p6*p3p7)*(2*ffmcfmb*hbcm-hbcm)+8*(p5p8*p3p7*p3p6)*(2*
5881 . ffmcfmb*hbcm-hbcm)+8*(p5p6*p3p7*p1p8)*(-2*ffmcfmb*hbcm+hbcm)+8
5882 . *(p4p6*p3p7*p1p8)*(-2*ffmcfmb*hbcm+hbcm)+8*(p3p7*p3p6*p1p8)*(-
5883 . 2*ffmcfmb*hbcm+hbcm)+8*(-hbcm*p1p3*p1p8*p6p7+hbcm*p1p3*p5p8*
5884 . p6p7-hbcm*p1p5*p1p8*p6p7+hbcm*p1p5*p5p8*p6p7-hbcm*p1p8*p2p3*
5885 . p6p7-2*hbcm*p1p8*p2p4*p6p7-hbcm*p1p8*p3p4*p6p7+hbcm*p1p8*p3p5*
5886 . p6p7+hbcm*p2p3*p5p8*p6p7+2*hbcm*p2p4*p5p8*p6p7+hbcm*p3p4*p5p8*
5887 . p6p7-hbcm*p3p5*p5p8*p6p7))+ans2
5888 ans=ccc*ans1
5889 b(2)=ans
5890 ans=ccc*(w1*(4*(p5p7*p4p8)*(fmb*hbcm+fmc*hbcm-2*hbcm2)+4*(p4p8*
5891 . p3p7)*(-2*ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*hbcm+3*ffmcfmb*hbcm2+
5892 . fmb*hbcm+2*fmc*hbcm-2*hbcm2)+4*hbcm2*p4p7*p4p8)+w15*(4*(p5p8*
5893 . p5p7)*(-fmb*hbcm-fmc*hbcm+2*hbcm2)+4*(p5p7*p1p8)*(fmb*hbcm+fmc
5894 . *hbcm-2*hbcm2)+4*(p5p8*p3p7)*(2*ffmcfmb*fmb*hbcm+2*ffmcfmb*fmc
5895 . *hbcm-3*ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm+2*hbcm2)+4*(p3p7*
5896 . p1p8)*(-2*ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*hbcm+3*ffmcfmb*hbcm2+
5897 . fmb*hbcm+2*fmc*hbcm-2*hbcm2)+4*(hbcm2*p1p8*p4p7-hbcm2*p4p7*
5898 . p5p8))+(2*p7p8*(4*fb3*ffmcfmb*hbcm2+4*fb3*fmb*fmc+4*fb3*fmc2+4
5899 . *fb4*ffmcfmb*fmb*hbcm+4*fb4*ffmcfmb*fmc*hbcm-4*fb4*fmc*hbcm+
5900 . fmb*hbcm+fmc*hbcm-3*hbcm2)+16*(fb3*p1p2*p7p8-fb3*p1p8*p4p7-fb3
5901 . *p2p5*p7p8-fb3*p2p8*p3p7-fb3*p2p8*p5p7+fb3*p3p4*p7p8-fb3*p3p7*
5902 . p4p8+fb3*p4p7*p5p8-fb3*p4p8*p5p7)))
5903 b(3)=ans
5904 b(4)=ccc*(2*p3p7*(-4*fb3*fmb*fmc-4*fb3*fmc2+4*fb4*ffmcfmb*fmb*
5905 . hbcm+4*fb4*ffmcfmb*fmc*hbcm-4*fb4*fmb*hbcm-4*fb4*fmc*hbcm+fmb*
5906 . hbcm+fmc*hbcm)+8*p5p7*(2*fb3*ffmcfmb*hbcm2-fb4*fmb*hbcm-fb4*
5907 . fmc*hbcm)+8*(-fb3*hbcm2*p4p7-2*fb3*p1p2*p3p7+2*fb3*p1p3*p4p7+2
5908 . *fb3*p2p3*p4p7-4*fb3*p2p3*p5p7+2*fb3*p2p5*p3p7+2*fb3*p3p4*p5p7
5909 . -2*fb3*p3p5*p4p7))
5910 ans3=(4*(p5p8*p3p7)*(-4*fb3*fmc+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm+
5911 . hbcm)+4*(p7p8*p3p5)*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm+hbcm)+4*(
5912 . p3p7*p2p8)*(4*fb3*fmc-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm-hbcm)+4*(
5913 . p7p8*p2p3)*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm-hbcm)+4*(p3p7*p1p8)*
5914 . (4*fb3*fmc-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm-hbcm)+4*(p7p8*p1p3)*(
5915 . -4*fb3*fmc-4*fb4*ffmcfmb*hbcm-hbcm)+16*(p4p8*p3p7)*(fb3*fmb-
5916 . fb3*fmc)+16*(p7p8*p3p4)*(-fb3*fmb+fb3*fmc)+2*p7p8*(-4*fb3*
5917 . ffmcfmb*fmb*hbcm2+4*fb3*ffmcfmb*fmc*hbcm2+4*fb3*fmc*hbcm2+4*
5918 . fb4*ffmcfmb*hbcm3+4*fb4*fmb*fmc*hbcm-4*fb4*fmc2*hbcm+3*fmb*
5919 . hbcm2-3*fmc*hbcm2+hbcm3)+16*(-fb4*hbcm*p1p2*p7p8+fb4*hbcm*p1p8
5920 . *p5p7+fb4*hbcm*p2p5*p7p8-fb4*hbcm*p2p8*p5p7+fb4*hbcm*p4p8*p5p7
5921 . -fb4*hbcm*p5p7*p5p8))
5922 ans2=w15*(4*(p5p8*p4p7)*(fmb*hbcm2-fmc*hbcm2)+4*(p4p7*p1p8)*(-
5923 . fmb*hbcm2+fmc*hbcm2)+4*(p5p8*p5p7)*(2*ffmcfmb*hbcm3-2*fmb*
5924 . hbcm2+2*fmc*hbcm2-hbcm3)+4*(p5p7*p1p8)*(-2*ffmcfmb*hbcm3+2*fmb
5925 . *hbcm2-2*fmc*hbcm2+hbcm3)+8*(p5p8*p3p7*p3p5)*(2*ffmcfmb*hbcm-
5926 . hbcm)+8*(p5p8*p3p7*p2p3)*(-2*ffmcfmb*hbcm+hbcm)+8*(p3p7*p3p5*
5927 . p1p8)*(-2*ffmcfmb*hbcm+hbcm)+8*(p3p7*p2p3*p1p8)*(2*ffmcfmb*
5928 . hbcm-hbcm)+8*(p5p8*p3p7*p1p3)*(-2*ffmcfmb*hbcm+hbcm)+8*(p3p7*
5929 . p1p8*p1p3)*(2*ffmcfmb*hbcm-hbcm)+4*(p5p8*p3p7)*(3*ffmcfmb*fmb*
5930 . hbcm2-3*ffmcfmb*fmc*hbcm2+2*ffmcfmb*hbcm3+fmb*fmc*hbcm-2*fmb*
5931 . hbcm2+2*fmc*hbcm2-fmc2*hbcm-hbcm3)+4*(p3p7*p1p8)*(-3*ffmcfmb*
5932 . fmb*hbcm2+3*ffmcfmb*fmc*hbcm2-2*ffmcfmb*hbcm3-fmb*fmc*hbcm+2*
5933 . fmb*hbcm2-2*fmc*hbcm2+fmc2*hbcm+hbcm3)+8*(hbcm*p1p2*p1p8*p3p7-
5934 . hbcm*p1p2*p3p7*p5p8-hbcm*p1p3*p1p8*p5p7+hbcm*p1p3*p5p7*p5p8+
5935 . hbcm*p1p8*p2p3*p5p7-hbcm*p1p8*p2p5*p3p7-hbcm*p1p8*p3p4*p5p7+
5936 . hbcm*p1p8*p3p5*p5p7-hbcm*p2p3*p5p7*p5p8+hbcm*p2p5*p3p7*p5p8+
5937 . hbcm*p3p4*p5p7*p5p8-hbcm*p3p5*p5p7*p5p8))+ans3
5938 ans1=w1*(4*(p4p8*p4p7)*(-fmb*hbcm2+fmc*hbcm2)+4*(p5p7*p4p8)*(-2
5939 . *ffmcfmb*hbcm3+2*fmb*hbcm2-2*fmc*hbcm2+hbcm3)+8*(p4p8*p3p7*
5940 . p3p5)*(-2*ffmcfmb*hbcm+hbcm)+8*(p4p8*p3p7*p2p3)*(2*ffmcfmb*
5941 . hbcm-hbcm)+8*(p4p8*p3p7*p1p3)*(2*ffmcfmb*hbcm-hbcm)+4*(p4p8*
5942 . p3p7)*(-3*ffmcfmb*fmb*hbcm2+3*ffmcfmb*fmc*hbcm2-2*ffmcfmb*
5943 . hbcm3-fmb*fmc*hbcm+2*fmb*hbcm2-2*fmc*hbcm2+fmc2*hbcm+hbcm3)+8*
5944 . (hbcm*p1p2*p3p7*p4p8-hbcm*p1p3*p4p8*p5p7+hbcm*p2p3*p4p8*p5p7-
5945 . hbcm*p2p5*p3p7*p4p8-hbcm*p3p4*p4p8*p5p7+hbcm*p3p5*p4p8*p5p7))+
5946 . ans2
5947 ans=ccc*ans1
5948 b(5)=ans
5949 ans=ccc*(w1*(4*(p5p6*p4p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+4*(p4p8*
5950 . p4p6)*(fmb*hbcm+fmc*hbcm-hbcm2)+4*(p4p8*p3p6)*(fmb*hbcm+fmc*
5951 . hbcm-hbcm2))+w15*(4*(p5p8*p5p6)*(-fmb*hbcm-fmc*hbcm+hbcm2)+4*(
5952 . p5p8*p4p6)*(-fmb*hbcm-fmc*hbcm+hbcm2)+4*(p5p8*p3p6)*(-fmb*hbcm
5953 . -fmc*hbcm+hbcm2)+4*(p5p6*p1p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+4*(
5954 . p4p6*p1p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+4*(p3p6*p1p8)*(fmb*hbcm+
5955 . fmc*hbcm-hbcm2))+(8*p6p8*(2*fb3*ffmcfmb*hbcm2-fb3*fmb2+fb3*
5956 . fmc2-fb3*hbcm2)+16*(fb3*p1p3*p6p8+fb3*p1p5*p6p8-fb3*p1p8*p3p6-
5957 . fb3*p1p8*p4p6-fb3*p1p8*p5p6+fb3*p2p3*p6p8+2*fb3*p2p4*p6p8+fb3*
5958 . p2p8*p3p6+fb3*p2p8*p4p6+fb3*p2p8*p5p6+fb3*p3p4*p6p8-fb3*p3p5*
5959 . p6p8-fb3*p3p6*p4p8+fb3*p3p6*p5p8-fb3*p4p6*p4p8+fb3*p4p6*p5p8-
5960 . fb3*p4p8*p5p6+fb3*p5p6*p5p8)))
5961 b(6)=ans
5962 b(7)=ccc*(8*p3p6*(fb3*fmb2-fb3*fmc2-fb4*fmb*hbcm-fb4*fmc*hbcm)+
5963 . 8*p5p6*(2*fb3*ffmcfmb*hbcm2-fb3*hbcm2-fb4*fmb*hbcm-fb4*fmc*
5964 . hbcm)+8*p4p6*(2*fb3*ffmcfmb*hbcm2-fb3*hbcm2-fb4*fmb*hbcm-fb4*
5965 . fmc*hbcm)+16*(fb3*p1p3*p4p6+fb3*p1p3*p5p6-fb3*p1p5*p3p6-2*fb3*
5966 . p2p3*p3p6-fb3*p2p3*p4p6-fb3*p2p3*p5p6-2*fb3*p2p4*p3p6+fb3*p3p4
5967 . *p4p6+fb3*p3p4*p5p6-fb3*p3p5*p4p6-fb3*p3p5*p5p6))
5968 ans3=(16*(p5p8*p3p6)*(-fb3*fmb+fb3*fmc)+16*(p6p8*p3p5)*(fb3*fmb
5969 . -fb3*fmc)+16*(p3p6*p2p8)*(-fb3*fmb+fb3*fmc)+16*(p6p8*p2p3)*(
5970 . fb3*fmb-fb3*fmc-2*fb4*hbcm)+16*(p3p6*p1p8)*(fb3*fmb-fb3*fmc)+
5971 . 16*(p6p8*p1p3)*(-fb3*fmb+fb3*fmc)+8*p6p8*(-2*fb3*ffmcfmb*fmb*
5972 . hbcm2+2*fb3*ffmcfmb*fmc*hbcm2+2*fb3*fmb*hbcm2-2*fb3*fmc*hbcm2+
5973 . fb4*fmb2*hbcm-fb4*fmc2*hbcm-fb4*hbcm3)+16*(-fb4*hbcm*p1p5*p6p8
5974 . +fb4*hbcm*p1p8*p4p6+fb4*hbcm*p1p8*p5p6-2*fb4*hbcm*p2p4*p6p8-
5975 . fb4*hbcm*p2p8*p4p6-fb4*hbcm*p2p8*p5p6-fb4*hbcm*p3p4*p6p8+fb4*
5976 . hbcm*p3p6*p4p8+fb4*hbcm*p4p6*p4p8-fb4*hbcm*p4p6*p5p8+fb4*hbcm*
5977 . p4p8*p5p6-fb4*hbcm*p5p6*p5p8))
5978 ans2=w15*(4*(p5p8*p3p6)*(-fmb*hbcm2+fmb2*hbcm+fmc*hbcm2-fmc2*
5979 . hbcm)+4*(p3p6*p1p8)*(fmb*hbcm2-fmb2*hbcm-fmc*hbcm2+fmc2*hbcm)+
5980 . 4*(p5p8*p5p6)*(2*ffmcfmb*hbcm3-fmb*hbcm2+fmc*hbcm2-hbcm3)+4*(
5981 . p5p8*p4p6)*(2*ffmcfmb*hbcm3-fmb*hbcm2+fmc*hbcm2-hbcm3)+4*(p5p6
5982 . *p1p8)*(-2*ffmcfmb*hbcm3+fmb*hbcm2-fmc*hbcm2+hbcm3)+4*(p4p6*
5983 . p1p8)*(-2*ffmcfmb*hbcm3+fmb*hbcm2-fmc*hbcm2+hbcm3)+8*(-hbcm*
5984 . p1p3*p1p8*p4p6-hbcm*p1p3*p1p8*p5p6+hbcm*p1p3*p4p6*p5p8+hbcm*
5985 . p1p3*p5p6*p5p8+hbcm*p1p5*p1p8*p3p6-hbcm*p1p5*p3p6*p5p8+2*hbcm*
5986 . p1p8*p2p3*p3p6+hbcm*p1p8*p2p3*p4p6+hbcm*p1p8*p2p3*p5p6+2*hbcm*
5987 . p1p8*p2p4*p3p6-hbcm*p1p8*p3p4*p4p6-hbcm*p1p8*p3p4*p5p6+hbcm*
5988 . p1p8*p3p5*p4p6+hbcm*p1p8*p3p5*p5p6-2*hbcm*p2p3*p3p6*p5p8-hbcm*
5989 . p2p3*p4p6*p5p8-hbcm*p2p3*p5p6*p5p8-2*hbcm*p2p4*p3p6*p5p8+hbcm*
5990 . p3p4*p4p6*p5p8+hbcm*p3p4*p5p6*p5p8-hbcm*p3p5*p4p6*p5p8-hbcm*
5991 . p3p5*p5p6*p5p8))+ans3
5992 ans1=w1*(4*(p4p8*p3p6)*(fmb*hbcm2-fmb2*hbcm-fmc*hbcm2+fmc2*hbcm
5993 . )+4*(p5p6*p4p8)*(-2*ffmcfmb*hbcm3+fmb*hbcm2-fmc*hbcm2+hbcm3)+4
5994 . *(p4p8*p4p6)*(-2*ffmcfmb*hbcm3+fmb*hbcm2-fmc*hbcm2+hbcm3)+8*(-
5995 . hbcm*p1p3*p4p6*p4p8-hbcm*p1p3*p4p8*p5p6+hbcm*p1p5*p3p6*p4p8+2*
5996 . hbcm*p2p3*p3p6*p4p8+hbcm*p2p3*p4p6*p4p8+hbcm*p2p3*p4p8*p5p6+2*
5997 . hbcm*p2p4*p3p6*p4p8-hbcm*p3p4*p4p6*p4p8-hbcm*p3p4*p4p8*p5p6+
5998 . hbcm*p3p5*p4p6*p4p8+hbcm*p3p5*p4p8*p5p6))+ans2
5999 ans=ccc*ans1
6000 b(8)=ans
6001 b(9)=ccc*(4*(p5p6*p3p7)*(-4*fb3*fmc+4*fb4*ffmcfmb*hbcm-4*fb4*
6002 . hbcm+hbcm)+4*(p4p6*p3p7)*(-4*fb3*fmc+4*fb4*ffmcfmb*hbcm-4*fb4*
6003 . hbcm+hbcm)+16*(p5p7*p3p6)*(fb3*fmb-fb3*fmc)+16*(p3p7*p3p6)*(
6004 . fb3*fmb-fb3*fmc-fb4*hbcm)+16*(p6p7*p3p5)*(-fb3*fmb+fb3*fmc)+16
6005 . *(p6p7*p2p3)*(2*fb3*fmb-2*fb3*fmc-fb4*hbcm)+16*(p6p7*p1p3)*(
6006 . fb3*fmb-fb3*fmc)+8*p6p7*(2*fb3*ffmcfmb*fmb*hbcm2-2*fb3*ffmcfmb
6007 . *fmc*hbcm2-2*fb3*fmb*hbcm2+2*fb3*fmc*hbcm2-fb4*fmb2*hbcm+fb4*
6008 . fmc2*hbcm+fb4*hbcm3)+16*(fb4*hbcm*p1p5*p6p7+2*fb4*hbcm*p2p4*
6009 . p6p7+fb4*hbcm*p3p4*p6p7-fb4*hbcm*p3p6*p4p7))
6010 ans4=8*(hbcm2*p1p5*p1p8*p6p7-hbcm2*p1p5*p5p8*p6p7+2*hbcm2*p1p8*
6011 . p2p4*p6p7+hbcm2*p1p8*p3p4*p6p7+hbcm2*p1p8*p4p6*p4p7-hbcm2*p1p8
6012 . *p4p6*p5p7+hbcm2*p1p8*p4p7*p5p6-hbcm2*p1p8*p5p6*p5p7-2*hbcm2*
6013 . p2p4*p5p8*p6p7-hbcm2*p3p4*p5p8*p6p7-hbcm2*p4p6*p4p7*p5p8+hbcm2
6014 . *p4p6*p5p7*p5p8-hbcm2*p4p7*p5p6*p5p8+hbcm2*p5p6*p5p7*p5p8)
6015 ans3=8*(p5p8*p4p7*p3p6)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p6p7*p5p8
6016 . *p3p5)*(fmb*hbcm+fmc*hbcm)+8*(p6p7*p5p8*p2p3)*(fmb*hbcm+fmc*
6017 . hbcm-2*hbcm2)+8*(p4p7*p3p6*p1p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(
6018 . p6p7*p3p5*p1p8)*(-fmb*hbcm-fmc*hbcm)+8*(p6p7*p2p3*p1p8)*(-fmb*
6019 . hbcm-fmc*hbcm+2*hbcm2)+8*(p6p7*p5p8*p1p3)*(-fmb*hbcm-fmc*hbcm)
6020 . +8*(p6p7*p1p8*p1p3)*(fmb*hbcm+fmc*hbcm)+8*(p5p8*p5p6*p3p7)*(-3
6021 . *ffmcfmb*hbcm2+fmb*hbcm+hbcm2)+8*(p5p8*p4p6*p3p7)*(-3*ffmcfmb*
6022 . hbcm2+fmb*hbcm+hbcm2)+8*(p5p6*p3p7*p1p8)*(3*ffmcfmb*hbcm2-fmb*
6023 . hbcm-hbcm2)+8*(p4p6*p3p7*p1p8)*(3*ffmcfmb*hbcm2-fmb*hbcm-hbcm2
6024 . )+4*(p6p7*p5p8)*(-2*ffmcfmb*fmb*hbcm3-2*ffmcfmb*fmc*hbcm3+2*
6025 . fmb*hbcm3+fmb2*hbcm2+2*fmc*hbcm3-fmc2*hbcm2-hbcm4)+4*(p6p7*
6026 . p1p8)*(2*ffmcfmb*fmb*hbcm3+2*ffmcfmb*fmc*hbcm3-2*fmb*hbcm3-
6027 . fmb2*hbcm2-2*fmc*hbcm3+fmc2*hbcm2+hbcm4)+8*(p5p8*p3p7*p3p6)*(-
6028 . 2*ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*hbcm+fmb*hbcm+fmc*hbcm)+8*(
6029 . p3p7*p3p6*p1p8)*(2*ffmcfmb*fmb*hbcm+2*ffmcfmb*fmc*hbcm-fmb*
6030 . hbcm-fmc*hbcm)+ans4
6031 ans2=w15*ans3
6032 ans6=16*(fb3*hbcm2*p5p7*p6p8+2*fb3*p1p3*p2p8*p6p7-2*fb3*p1p3*
6033 . p4p6*p7p8+2*fb3*p1p3*p4p7*p6p8-2*fb3*p1p3*p4p8*p6p7-2*fb3*p1p3
6034 . *p5p6*p7p8+2*fb3*p1p5*p3p6*p7p8-2*fb3*p1p5*p3p7*p6p8+2*fb3*
6035 . p1p8*p3p4*p6p7-2*fb3*p1p8*p3p6*p4p7+2*fb3*p1p8*p3p7*p4p6+2*fb3
6036 . *p1p8*p3p7*p5p6-2*fb3*p2p3*p2p8*p6p7+2*fb3*p2p3*p3p6*p7p8-2*
6037 . fb3*p2p3*p3p7*p6p8+2*fb3*p2p3*p4p6*p7p8-2*fb3*p2p3*p4p7*p6p8+2
6038 . *fb3*p2p3*p4p8*p6p7+2*fb3*p2p3*p5p6*p7p8+2*fb3*p2p4*p3p6*p7p8-
6039 . 2*fb3*p2p4*p3p7*p6p8+4*fb3*p2p8*p3p4*p6p7-2*fb3*p2p8*p3p5*p6p7
6040 . -4*fb3*p2p8*p3p6*p3p7-4*fb3*p2p8*p3p6*p4p7+2*fb3*p2p8*p3p6*
6041 . p5p7-4*fb3*p2p8*p3p7*p4p6-4*fb3*p2p8*p3p7*p5p6+2*fb3*p3p4*p5p7
6042 . *p6p8-2*fb3*p3p4*p5p8*p6p7+2*fb3*p3p5*p4p6*p7p8-2*fb3*p3p5*
6043 . p4p7*p6p8+2*fb3*p3p5*p4p8*p6p7+2*fb3*p3p5*p5p6*p7p8+2*fb3*p3p6
6044 . *p4p7*p5p8-2*fb3*p3p6*p4p8*p5p7-2*fb3*p3p7*p4p6*p5p8-2*fb3*
6045 . p3p7*p5p6*p5p8)
6046 ans5=16*(p6p7*p5p8)*(-fb3*hbcm2+fb4*fmb*hbcm+fb4*fmc*hbcm)+16*(
6047 . p6p7*p1p8)*(fb3*hbcm2-fb4*fmb*hbcm-fb4*fmc*hbcm)+4*(p6p8*p3p7)
6048 . *(4*fb3*fmb*fmc+4*fb3*fmb2-4*fb4*ffmcfmb*fmb*hbcm-4*fb4*
6049 . ffmcfmb*fmc*hbcm-fmb*hbcm-fmc*hbcm)+4*(p7p8*p3p6)*(-4*fb3*fmb*
6050 . fmc-4*fb3*fmb2-4*fb4*ffmcfmb*fmb*hbcm-4*fb4*ffmcfmb*fmc*hbcm+4
6051 . *fb4*fmb*hbcm+4*fb4*fmc*hbcm-fmb*hbcm-fmc*hbcm)+4*(p7p8*p5p6)*
6052 . (-4*fb3*ffmcfmb*hbcm2+4*fb3*hbcm2+4*fb4*fmb*hbcm-3*hbcm2)+32*(
6053 . p6p7*p4p8)*(-fb3*ffmcfmb*hbcm2+fb3*hbcm2)+16*(p6p8*p4p7)*(2*
6054 . fb3*ffmcfmb*hbcm2-2*fb3*hbcm2-fb4*fmb*hbcm-fb4*fmc*hbcm)+4*(
6055 . p7p8*p4p6)*(-4*fb3*ffmcfmb*hbcm2+4*fb3*hbcm2+4*fb4*fmb*hbcm-3*
6056 . hbcm2)+32*(p6p7*p2p8)*(fb3*ffmcfmb*hbcm2-fb4*fmb*hbcm-fb4*fmc*
6057 . hbcm)+ans6
6058 ans1=w1*(8*(p4p8*p4p7*p3p6)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p6p7*
6059 . p4p8*p3p5)*(-fmb*hbcm-fmc*hbcm)+8*(p6p7*p4p8*p2p3)*(-fmb*hbcm-
6060 . fmc*hbcm+2*hbcm2)+8*(p6p7*p4p8*p1p3)*(fmb*hbcm+fmc*hbcm)+8*(
6061 . p5p6*p4p8*p3p7)*(3*ffmcfmb*hbcm2-fmb*hbcm-hbcm2)+8*(p4p8*p4p6*
6062 . p3p7)*(3*ffmcfmb*hbcm2-fmb*hbcm-hbcm2)+4*(p6p7*p4p8)*(2*
6063 . ffmcfmb*fmb*hbcm3+2*ffmcfmb*fmc*hbcm3-2*fmb*hbcm3-fmb2*hbcm2-2
6064 . *fmc*hbcm3+fmc2*hbcm2+hbcm4)+8*(p4p8*p3p7*p3p6)*(2*ffmcfmb*fmb
6065 . *hbcm+2*ffmcfmb*fmc*hbcm-fmb*hbcm-fmc*hbcm)+8*(hbcm2*p1p5*p4p8
6066 . *p6p7+2*hbcm2*p2p4*p4p8*p6p7+hbcm2*p3p4*p4p8*p6p7+hbcm2*p4p6*
6067 . p4p7*p4p8-hbcm2*p4p6*p4p8*p5p7+hbcm2*p4p7*p4p8*p5p6-hbcm2*p4p8
6068 . *p5p6*p5p7))+ans2+ans5
6069 ans=ccc*ans1
6070 b(10)=ans
6071 b(11)=ccc*(w1*(2*p4p8*(-2*ffmcfmb*hbcm3+fmb2*hbcm-fmc2*hbcm+
6072 . hbcm3)+4*(-2*hbcm*p1p2*p4p8-hbcm*p1p3*p4p8-hbcm*p1p5*p4p8+hbcm
6073 . *p2p3*p4p8+2*hbcm*p2p5*p4p8-hbcm*p3p4*p4p8+hbcm*p3p5*p4p8))+
6074 . w15*(2*p5p8*(2*ffmcfmb*hbcm3-fmb2*hbcm+fmc2*hbcm-hbcm3)+2*p1p8
6075 . *(-2*ffmcfmb*hbcm3+fmb2*hbcm-fmc2*hbcm+hbcm3)+4*(-2*hbcm*p1p2*
6076 . p1p8+2*hbcm*p1p2*p5p8-hbcm*p1p3*p1p8+hbcm*p1p3*p5p8-hbcm*p1p5*
6077 . p1p8+hbcm*p1p5*p5p8+hbcm*p1p8*p2p3+2*hbcm*p1p8*p2p5-hbcm*p1p8*
6078 . p3p4+hbcm*p1p8*p3p5-hbcm*p2p3*p5p8-2*hbcm*p2p5*p5p8+hbcm*p3p4*
6079 . p5p8-hbcm*p3p5*p5p8))+(8*p4p8*(-fb3*fmb+fb3*fmc+fb4*hbcm)+16*
6080 . p2p8*(fb3*fmb-fb3*fmc-fb4*hbcm)))
6081 b(12)=4*ccc*(-2*fb3*ffmcfmb*hbcm2+fb3*fmb2-fb3*fmc2+fb3*hbcm2-4
6082 . *fb3*p1p2-2*fb3*p1p3-2*fb3*p1p5+2*fb3*p2p3+4*fb3*p2p5-2*fb3*
6083 . p3p4+2*fb3*p3p5)
6084 ans2=(8*p4p8*(fb3*hbcm2+fb4*fmb*hbcm+fb4*fmc*hbcm)+16*p2p8*(fb3
6085 . *ffmcfmb*hbcm2-fb3*hbcm2-fb4*fmb*hbcm-fb4*fmc*hbcm)+16*(fb3*
6086 . ffmcfmb*hbcm2*p1p8-fb3*ffmcfmb*hbcm2*p5p8+2*fb3*p1p3*p2p8-fb3*
6087 . p1p3*p4p8-2*fb3*p1p8*p2p3+fb3*p1p8*p3p4-fb3*p2p3*p4p8+2*fb3*
6088 . p2p3*p5p8+fb3*p2p8*p3p4-2*fb3*p2p8*p3p5-fb3*p3p4*p5p8+fb3*p3p5
6089 . *p4p8))
6090 ans1=w1*(4*(p4p8*p3p4)*(-fmb*hbcm-fmc*hbcm)+4*(p4p8*p2p3)*(2*
6091 . fmb*hbcm+2*fmc*hbcm-hbcm2)+2*p4p8*(-2*ffmcfmb*fmb*hbcm3-2*
6092 . ffmcfmb*fmc*hbcm3+fmb2*hbcm2-fmc2*hbcm2+hbcm4)+4*(-2*hbcm2*
6093 . p1p2*p4p8-hbcm2*p1p3*p4p8-hbcm2*p1p5*p4p8+2*hbcm2*p2p5*p4p8+
6094 . hbcm2*p3p5*p4p8))+w15*(4*(p5p8*p3p4)*(fmb*hbcm+fmc*hbcm)+4*(
6095 . p5p8*p2p3)*(-2*fmb*hbcm-2*fmc*hbcm+hbcm2)+4*(p3p4*p1p8)*(-fmb*
6096 . hbcm-fmc*hbcm)+4*(p2p3*p1p8)*(2*fmb*hbcm+2*fmc*hbcm-hbcm2)+2*
6097 . p5p8*(2*ffmcfmb*fmb*hbcm3+2*ffmcfmb*fmc*hbcm3-fmb2*hbcm2+fmc2*
6098 . hbcm2-hbcm4)+2*p1p8*(-2*ffmcfmb*fmb*hbcm3-2*ffmcfmb*fmc*hbcm3+
6099 . fmb2*hbcm2-fmc2*hbcm2+hbcm4)+4*(-2*hbcm2*p1p2*p1p8+2*hbcm2*
6100 . p1p2*p5p8-hbcm2*p1p3*p1p8+hbcm2*p1p3*p5p8-hbcm2*p1p5*p1p8+
6101 . hbcm2*p1p5*p5p8+2*hbcm2*p1p8*p2p5+hbcm2*p1p8*p3p5-2*hbcm2*p2p5
6102 . *p5p8-hbcm2*p3p5*p5p8))+ans2
6103 ans=ccc*ans1
6104 b(13)=ans
6105 b(14)=ccc*(8*p3p4*(fb3*fmb-fb3*fmc)+8*p2p3*(-2*fb3*fmb+2*fb3*
6106 . fmc+fb4*hbcm)+4*(2*fb3*ffmcfmb*fmb*hbcm2-2*fb3*ffmcfmb*fmc*
6107 . hbcm2-fb4*fmb2*hbcm+fb4*fmc2*hbcm+4*fb4*hbcm*p1p2+2*fb4*hbcm*
6108 . p1p3+2*fb4*hbcm*p1p5-4*fb4*hbcm*p2p5-2*fb4*hbcm*p3p5-fb4*hbcm3
6109 . ))
6110 b(15)=ccc*(w1*(4*(p4p8*p3p6)*(3*fmb*hbcm+3*fmc*hbcm-hbcm2)+8*(
6111 . hbcm2*p4p6*p4p8+hbcm2*p4p8*p5p6))+w15*(4*(p5p8*p3p6)*(-3*fmb*
6112 . hbcm-3*fmc*hbcm+hbcm2)+4*(p3p6*p1p8)*(3*fmb*hbcm+3*fmc*hbcm-
6113 . hbcm2)+8*(hbcm2*p1p8*p4p6+hbcm2*p1p8*p5p6-hbcm2*p4p6*p5p8-
6114 . hbcm2*p5p6*p5p8))+(8*p6p8*(2*fb3*ffmcfmb*hbcm2+fb3*hbcm2-3*fb4
6115 . *fmb*hbcm-3*fb4*fmc*hbcm)+16*(fb3*p1p3*p6p8-fb3*p1p8*p3p6-fb3*
6116 . p2p3*p6p8+fb3*p2p8*p3p6+3*fb3*p3p4*p6p8-fb3*p3p5*p6p8-3*fb3*
6117 . p3p6*p4p8+fb3*p3p6*p5p8)))
6118 b(16)=ccc*(8*w1*(-hbcm*p3p6*p4p8-hbcm*p4p6*p4p8-hbcm*p4p8*p5p6)
6119 . +8*w15*(-hbcm*p1p8*p3p6-hbcm*p1p8*p4p6-hbcm*p1p8*p5p6+hbcm*
6120 . p3p6*p5p8+hbcm*p4p6*p5p8+hbcm*p5p6*p5p8)+24*p6p8*(-fb3*fmb+fb3
6121 . *fmc+fb4*hbcm))
6122 b(17)=ccc*(w1*(2*p4p8*(2*ffmcfmb*hbcm3-3*fmb*hbcm2+3*fmc*hbcm2-
6123 . 3*hbcm3)+4*(3*hbcm*p1p3*p4p8+hbcm*p2p3*p4p8+hbcm*p3p4*p4p8-3*
6124 . hbcm*p3p5*p4p8))+w15*(2*p5p8*(-2*ffmcfmb*hbcm3+3*fmb*hbcm2-3*
6125 . fmc*hbcm2+3*hbcm3)+2*p1p8*(2*ffmcfmb*hbcm3-3*fmb*hbcm2+3*fmc*
6126 . hbcm2-3*hbcm3)+4*(3*hbcm*p1p3*p1p8-3*hbcm*p1p3*p5p8+hbcm*p1p8*
6127 . p2p3+hbcm*p1p8*p3p4-3*hbcm*p1p8*p3p5-hbcm*p2p3*p5p8-hbcm*p3p4*
6128 . p5p8+3*hbcm*p3p5*p5p8))+8*(-3*fb4*hbcm*p1p8-fb4*hbcm*p2p8-fb4*
6129 . hbcm*p4p8+3*fb4*hbcm*p5p8))
6130 b(18)=ccc*(w1*(4*(p4p8*p3p7)*(-3*ffmcfmb*hbcm2-fmb*hbcm-2*fmc*
6131 . hbcm+2*hbcm2)+4*(-hbcm2*p4p7*p4p8-hbcm2*p4p8*p5p7))+w15*(4*(
6132 . p5p8*p3p7)*(3*ffmcfmb*hbcm2+fmb*hbcm+2*fmc*hbcm-2*hbcm2)+4*(
6133 . p3p7*p1p8)*(-3*ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm+2*hbcm2)+4*(-
6134 . hbcm2*p1p8*p4p7-hbcm2*p1p8*p5p7+hbcm2*p4p7*p5p8+hbcm2*p5p7*
6135 . p5p8))+(2*p7p8*(-4*fb3*ffmcfmb*hbcm2+4*fb3*hbcm2+4*fb4*fmb*
6136 . hbcm+8*fb4*fmc*hbcm+3*hbcm2)+16*(-fb3*p1p3*p7p8+fb3*p1p8*p3p7-
6137 . fb3*p2p3*p7p8+fb3*p2p8*p3p7-fb3*p3p4*p7p8+fb3*p3p5*p7p8+fb3*
6138 . p3p7*p4p8-fb3*p3p7*p5p8)))
6139 b(19)=ccc*(6*w1*p4p8*(-fmb*hbcm-fmc*hbcm+hbcm2)+w15*(6*p5p8*(
6140 . fmb*hbcm+fmc*hbcm-hbcm2)+6*p1p8*(-fmb*hbcm-fmc*hbcm+hbcm2))+8*
6141 . (3*fb3*p1p8+fb3*p2p8+fb3*p4p8-3*fb3*p5p8))
6142 b(20)=ccc*(8*w1*(-ffmcfmb*hbcm*p3p7*p4p8-hbcm*p4p8*p5p7)+8*w15*
6143 . (-ffmcfmb*hbcm*p1p8*p3p7+ffmcfmb*hbcm*p3p7*p5p8-hbcm*p1p8*p5p7
6144 . +hbcm*p5p7*p5p8)+2*p7p8*(-4*fb3*fmb+8*fb3*fmc+4*fb4*ffmcfmb*
6145 . hbcm+4*fb4*hbcm+hbcm))
6146 b(21)=12*ccc*(-fb3*fmb+fb3*fmc+fb4*hbcm)
6147 b(22)=4*ccc*(-2*fb3*ffmcfmb*hbcm2+3*fb3*hbcm2-6*fb3*p1p3-2*fb3*
6148 . p2p3-2*fb3*p3p4+6*fb3*p3p5+3*fb4*fmb*hbcm+3*fb4*fmc*hbcm)
6149 b(23)=ccc*(2*p3p7*(4*fb3*fmb-8*fb3*fmc+4*fb4*ffmcfmb*hbcm-4*fb4
6150 . *hbcm+hbcm)+16*fb4*hbcm*p5p7)
6151 b(24)=ccc*(8*p3p6*(3*fb3*fmb-3*fb3*fmc-fb4*hbcm)+16*(fb4*hbcm*
6152 . p4p6+fb4*hbcm*p5p6))
6153 b(25)=ccc*(2*p3p7*(-4*fb3*fmc+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm+
6154 . hbcm)+8*p4p7*(fb3*fmb-fb3*fmc)-8*fb4*hbcm*p5p7)
6155 b(26)=ccc*(8*p5p6*(fb3*fmb-fb3*fmc-fb4*hbcm)+8*p4p6*(fb3*fmb-
6156 . fb3*fmc-fb4*hbcm)+8*p3p6*(fb3*fmb-fb3*fmc-fb4*hbcm))
6157 b(27)=ccc*(8*p6p7*(-2*fb3*ffmcfmb*hbcm2-fb3*hbcm2+3*fb4*fmb*
6158 . hbcm+3*fb4*fmc*hbcm)+16*(-fb3*p1p3*p6p7+fb3*p2p3*p6p7-3*fb3*
6159 . p3p4*p6p7+fb3*p3p5*p6p7+2*fb3*p3p6*p3p7+3*fb3*p3p6*p4p7-fb3*
6160 . p3p6*p5p7+fb3*p3p7*p4p6+fb3*p3p7*p5p6))
6161 b(28)=ccc*(12*w1*(p6p7*p4p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+w15*(12*
6162 . (p6p7*p5p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+12*(p6p7*p1p8)*(fmb*
6163 . hbcm+fmc*hbcm-hbcm2))+16*(-fb3*p1p8*p6p7+fb3*p2p8*p6p7+fb3*
6164 . p3p6*p7p8+fb3*p3p7*p6p8+fb3*p4p6*p7p8+3*fb3*p4p7*p6p8-3*fb3*
6165 . p4p8*p6p7+fb3*p5p6*p7p8-fb3*p5p7*p6p8+fb3*p5p8*p6p7))
6166 b(29)=16*ccc*(fb3*p3p6+fb3*p4p6+fb3*p5p6)
6167 b(30)=8*ccc*(fb3*p3p7-fb3*p4p7+3*fb3*p5p7)
6168 ans1=(w1*(4*(p6p7*p4p8)*(2*ffmcfmb*hbcm3-3*fmb*hbcm2+3*fmc*
6169 . hbcm2+hbcm3)+8*(p4p8*p3p7*p3p6)*(2*ffmcfmb*hbcm-3*hbcm)+8*(
6170 . hbcm*p1p3*p4p8*p6p7-hbcm*p2p3*p4p8*p6p7+3*hbcm*p3p4*p4p8*p6p7-
6171 . hbcm*p3p5*p4p8*p6p7-2*hbcm*p3p6*p4p7*p4p8-hbcm*p3p7*p4p6*p4p8-
6172 . hbcm*p3p7*p4p8*p5p6))+w15*(4*(p6p7*p5p8)*(-2*ffmcfmb*hbcm3+3*
6173 . fmb*hbcm2-3*fmc*hbcm2-hbcm3)+4*(p6p7*p1p8)*(2*ffmcfmb*hbcm3-3*
6174 . fmb*hbcm2+3*fmc*hbcm2+hbcm3)+8*(p5p8*p3p7*p3p6)*(-2*ffmcfmb*
6175 . hbcm+3*hbcm)+8*(p3p7*p3p6*p1p8)*(2*ffmcfmb*hbcm-3*hbcm)+8*(
6176 . hbcm*p1p3*p1p8*p6p7-hbcm*p1p3*p5p8*p6p7-hbcm*p1p8*p2p3*p6p7+3*
6177 . hbcm*p1p8*p3p4*p6p7-hbcm*p1p8*p3p5*p6p7-2*hbcm*p1p8*p3p6*p4p7-
6178 . hbcm*p1p8*p3p7*p4p6-hbcm*p1p8*p3p7*p5p6+hbcm*p2p3*p5p8*p6p7-3*
6179 . hbcm*p3p4*p5p8*p6p7+hbcm*p3p5*p5p8*p6p7+2*hbcm*p3p6*p4p7*p5p8+
6180 . hbcm*p3p7*p4p6*p5p8+hbcm*p3p7*p5p6*p5p8))+(4*(p6p8*p3p7)*(-4*
6181 . fb3*fmb+8*fb3*fmc-4*fb4*ffmcfmb*hbcm+12*fb4*hbcm-hbcm)+4*(p7p8
6182 . *p3p6)*(4*fb3*fmb-8*fb3*fmc-4*fb4*ffmcfmb*hbcm-hbcm)+16*(-fb4*
6183 . hbcm*p1p8*p6p7+fb4*hbcm*p2p8*p6p7+fb4*hbcm*p4p6*p7p8+2*fb4*
6184 . hbcm*p4p7*p6p8-3*fb4*hbcm*p4p8*p6p7+fb4*hbcm*p5p6*p7p8+fb4*
6185 . hbcm*p5p8*p6p7)))
6186 ans=ccc*ans1
6187 b(31)=ans
6188 b(32)=24*ccc*p6p7*(-fb3*fmb+fb3*fmc+fb4*hbcm)
6189 do 200 n=1,32
6190 c(n,1)=c(n,1)-0.8181818181818182d0*b(n)
6191 c(n,2)=c(n,2)+0.1512818716977898d0*b(n)
6192 c(n,3)=c(n,3)+0.1869893980016914d0*b(n)
6193 200 continue
6194 return
6195 end
6196
6197 subroutine amp30_1p1(cc)
6198 implicit double precision(a-h,o-z)
6199 implicit integer (i-n)
6200 dimension b(32)
6201 #include "inclcon.h"
6202 #include "inclppp.h"
6203 #include "inclamp.h"
6204 do 100 n=1,32
6205 b(n)=0.0d0
6206 100 continue
6207 ccc=cc/((-2*p1p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*
6208 . p3p5+fmb2+hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3+2*
6209 . ffmcfmb*p3p4+fmc2-2*p1p4))
6210 ans=ccc*(w2*(4*(p5p8*p5p7)*(fmb*hbcm+fmc*hbcm-2*hbcm2)+4*(p5p8*
6211 . p3p7)*(-2*ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*hbcm+3*ffmcfmb*hbcm2+
6212 . fmb*hbcm+2*fmc*hbcm-2*hbcm2)+4*hbcm2*p4p7*p5p8)+w5*(4*(p5p7*
6213 . p4p8)*(-fmb*hbcm-fmc*hbcm+2*hbcm2)+4*(p5p7*p1p8)*(fmb*hbcm+fmc
6214 . *hbcm-2*hbcm2)+4*(p4p8*p3p7)*(2*ffmcfmb*fmb*hbcm+2*ffmcfmb*fmc
6215 . *hbcm-3*ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm+2*hbcm2)+4*(p3p7*
6216 . p1p8)*(-2*ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*hbcm+3*ffmcfmb*hbcm2+
6217 . fmb*hbcm+2*fmc*hbcm-2*hbcm2)+4*(hbcm2*p1p8*p4p7-hbcm2*p4p7*
6218 . p4p8))+(2*p7p8*(-4*fb3*ffmcfmb*hbcm2-4*fb3*fmb*fmc-4*fb3*fmc2-
6219 . 4*fb4*ffmcfmb*fmb*hbcm-4*fb4*ffmcfmb*fmc*hbcm+4*fb4*fmc*hbcm-
6220 . fmb*hbcm-fmc*hbcm+3*hbcm2)+16*(fb3*p1p3*p7p8+fb3*p1p4*p7p8-fb3
6221 . *p1p8*p3p7-fb3*p1p8*p5p7+fb3*p2p5*p7p8+fb3*p2p8*p3p7+fb3*p2p8*
6222 . p5p7-fb3*p3p4*p7p8+fb3*p3p7*p4p8-fb3*p4p7*p5p8+fb3*p4p8*p5p7))
6223 . )
6224 b(3)=ans
6225 b(4)=ccc*(2*p3p7*(4*fb3*fmb*fmc+4*fb3*fmc2-4*fb4*ffmcfmb*fmb*
6226 . hbcm-4*fb4*ffmcfmb*fmc*hbcm+4*fb4*fmb*hbcm+4*fb4*fmc*hbcm-fmb*
6227 . hbcm-fmc*hbcm)+8*p5p7*(-2*fb3*ffmcfmb*hbcm2+fb4*fmb*hbcm+fb4*
6228 . fmc*hbcm)+8*(fb3*hbcm2*p4p7+2*fb3*p1p3*p5p7-2*fb3*p1p4*p3p7-2*
6229 . fb3*p2p3*p4p7+4*fb3*p2p3*p5p7-2*fb3*p2p5*p3p7-2*fb3*p3p4*p5p7+
6230 . 2*fb3*p3p5*p4p7))
6231 ans3=(4*(p5p8*p3p7)*(4*fb3*fmc-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm-
6232 . hbcm)+4*(p7p8*p3p5)*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm-hbcm)+4*(
6233 . p3p7*p2p8)*(-4*fb3*fmc+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm+hbcm)+4*(
6234 . p7p8*p2p3)*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm+hbcm)+16*(p4p8*p3p7)*
6235 . (-fb3*fmb+fb3*fmc)+16*(p7p8*p3p4)*(fb3*fmb-fb3*fmc)+16*(p3p7*
6236 . p1p8)*(fb3*fmb-fb3*fmc)+16*(p7p8*p1p3)*(-fb3*fmb+fb3*fmc)+2*
6237 . p7p8*(4*fb3*ffmcfmb*fmb*hbcm2-4*fb3*ffmcfmb*fmc*hbcm2-4*fb3*
6238 . fmc*hbcm2-4*fb4*ffmcfmb*hbcm3-4*fb4*fmb*fmc*hbcm+4*fb4*fmc2*
6239 . hbcm-3*fmb*hbcm2+3*fmc*hbcm2-hbcm3)+16*(-fb4*hbcm*p1p4*p7p8+
6240 . fb4*hbcm*p1p8*p5p7-fb4*hbcm*p2p5*p7p8+fb4*hbcm*p2p8*p5p7-fb4*
6241 . hbcm*p4p8*p5p7+fb4*hbcm*p5p7*p5p8))
6242 ans2=w5*(4*(p4p8*p4p7)*(fmb*hbcm2-fmc*hbcm2)+4*(p4p7*p1p8)*(-
6243 . fmb*hbcm2+fmc*hbcm2)+4*(p5p7*p4p8)*(2*ffmcfmb*hbcm3-2*fmb*
6244 . hbcm2+2*fmc*hbcm2-hbcm3)+4*(p5p7*p1p8)*(-2*ffmcfmb*hbcm3+2*fmb
6245 . *hbcm2-2*fmc*hbcm2+hbcm3)+8*(p4p8*p3p7*p3p5)*(2*ffmcfmb*hbcm-
6246 . hbcm)+8*(p4p8*p3p7*p2p3)*(-2*ffmcfmb*hbcm+hbcm)+8*(p3p7*p3p5*
6247 . p1p8)*(-2*ffmcfmb*hbcm+hbcm)+8*(p3p7*p2p3*p1p8)*(2*ffmcfmb*
6248 . hbcm-hbcm)+4*(p4p8*p3p7)*(3*ffmcfmb*fmb*hbcm2-3*ffmcfmb*fmc*
6249 . hbcm2+2*ffmcfmb*hbcm3+fmb*fmc*hbcm-2*fmb*hbcm2+2*fmc*hbcm2-
6250 . fmc2*hbcm-hbcm3)+4*(p3p7*p1p8)*(-3*ffmcfmb*fmb*hbcm2+3*ffmcfmb
6251 . *fmc*hbcm2-2*ffmcfmb*hbcm3-fmb*fmc*hbcm+2*fmb*hbcm2-2*fmc*
6252 . hbcm2+fmc2*hbcm+hbcm3)+8*(hbcm*p1p3*p1p8*p5p7-hbcm*p1p3*p4p8*
6253 . p5p7-hbcm*p1p4*p1p8*p3p7+hbcm*p1p4*p3p7*p4p8+hbcm*p1p8*p2p3*
6254 . p5p7-hbcm*p1p8*p2p5*p3p7-hbcm*p1p8*p3p4*p5p7+hbcm*p1p8*p3p5*
6255 . p5p7-hbcm*p2p3*p4p8*p5p7+hbcm*p2p5*p3p7*p4p8+hbcm*p3p4*p4p8*
6256 . p5p7-hbcm*p3p5*p4p8*p5p7))+ans3
6257 ans1=w2*(4*(p5p8*p4p7)*(-fmb*hbcm2+fmc*hbcm2)+4*(p5p8*p5p7)*(-2
6258 . *ffmcfmb*hbcm3+2*fmb*hbcm2-2*fmc*hbcm2+hbcm3)+8*(p5p8*p3p7*
6259 . p3p5)*(-2*ffmcfmb*hbcm+hbcm)+8*(p5p8*p3p7*p2p3)*(2*ffmcfmb*
6260 . hbcm-hbcm)+4*(p5p8*p3p7)*(-3*ffmcfmb*fmb*hbcm2+3*ffmcfmb*fmc*
6261 . hbcm2-2*ffmcfmb*hbcm3-fmb*fmc*hbcm+2*fmb*hbcm2-2*fmc*hbcm2+
6262 . fmc2*hbcm+hbcm3)+8*(hbcm*p1p3*p5p7*p5p8-hbcm*p1p4*p3p7*p5p8+
6263 . hbcm*p2p3*p5p7*p5p8-hbcm*p2p5*p3p7*p5p8-hbcm*p3p4*p5p7*p5p8+
6264 . hbcm*p3p5*p5p7*p5p8))+ans2
6265 ans=ccc*ans1
6266 b(5)=ans
6267 b(11)=ccc*(w2*(2*p5p8*(-2*ffmcfmb*hbcm3+fmb2*hbcm-fmc2*hbcm+
6268 . hbcm3)+4*(hbcm*p1p3*p5p8+hbcm*p1p4*p5p8+hbcm*p2p3*p5p8+2*hbcm*
6269 . p2p5*p5p8-hbcm*p3p4*p5p8+hbcm*p3p5*p5p8))+w5*(2*p4p8*(2*
6270 . ffmcfmb*hbcm3-fmb2*hbcm+fmc2*hbcm-hbcm3)+2*p1p8*(-2*ffmcfmb*
6271 . hbcm3+fmb2*hbcm-fmc2*hbcm+hbcm3)+4*(hbcm*p1p3*p1p8-hbcm*p1p3*
6272 . p4p8+hbcm*p1p4*p1p8-hbcm*p1p4*p4p8+hbcm*p1p8*p2p3+2*hbcm*p1p8*
6273 . p2p5-hbcm*p1p8*p3p4+hbcm*p1p8*p3p5-hbcm*p2p3*p4p8-2*hbcm*p2p5*
6274 . p4p8+hbcm*p3p4*p4p8-hbcm*p3p5*p4p8))+(8*p4p8*(fb3*fmb-fb3*fmc-
6275 . fb4*hbcm)+16*p2p8*(-fb3*fmb+fb3*fmc+fb4*hbcm)+8*p1p8*(-fb3*fmb
6276 . +fb3*fmc+fb4*hbcm)))
6277 b(12)=4*ccc*(2*fb3*ffmcfmb*hbcm2-fb3*fmb2+fb3*fmc2-fb3*hbcm2-2*
6278 . fb3*p1p3-2*fb3*p1p4-2*fb3*p2p3-4*fb3*p2p5+2*fb3*p3p4-2*fb3*
6279 . p3p5)
6280 ans2=(8*p4p8*(-fb3*hbcm2-fb4*fmb*hbcm-fb4*fmc*hbcm)+8*p1p8*(fb3
6281 . *hbcm2+fb4*fmb*hbcm+fb4*fmc*hbcm)+16*p2p8*(-fb3*ffmcfmb*hbcm2+
6282 . fb3*hbcm2+fb4*fmb*hbcm+fb4*fmc*hbcm)+16*(fb3*ffmcfmb*hbcm2*
6283 . p5p8+fb3*p1p3*p2p8-fb3*p1p3*p5p8-fb3*p1p8*p2p3+fb3*p1p8*p3p5+
6284 . fb3*p2p3*p4p8-2*fb3*p2p3*p5p8-fb3*p2p8*p3p4+2*fb3*p2p8*p3p5+
6285 . fb3*p3p4*p5p8-fb3*p3p5*p4p8))
6286 ans1=w2*(4*(p5p8*p3p4)*(-fmb*hbcm-fmc*hbcm)+4*(p5p8*p2p3)*(2*
6287 . fmb*hbcm+2*fmc*hbcm-hbcm2)+4*(p5p8*p1p3)*(fmb*hbcm+fmc*hbcm)+2
6288 . *p5p8*(-2*ffmcfmb*fmb*hbcm3-2*ffmcfmb*fmc*hbcm3+fmb2*hbcm2-
6289 . fmc2*hbcm2+hbcm4)+4*(hbcm2*p1p4*p5p8+2*hbcm2*p2p5*p5p8+hbcm2*
6290 . p3p5*p5p8))+w5*(4*(p4p8*p3p4)*(fmb*hbcm+fmc*hbcm)+4*(p4p8*p2p3
6291 . )*(-2*fmb*hbcm-2*fmc*hbcm+hbcm2)+4*(p3p4*p1p8)*(-fmb*hbcm-fmc*
6292 . hbcm)+4*(p2p3*p1p8)*(2*fmb*hbcm+2*fmc*hbcm-hbcm2)+4*(p4p8*p1p3
6293 . )*(-fmb*hbcm-fmc*hbcm)+4*(p1p8*p1p3)*(fmb*hbcm+fmc*hbcm)+2*
6294 . p4p8*(2*ffmcfmb*fmb*hbcm3+2*ffmcfmb*fmc*hbcm3-fmb2*hbcm2+fmc2*
6295 . hbcm2-hbcm4)+2*p1p8*(-2*ffmcfmb*fmb*hbcm3-2*ffmcfmb*fmc*hbcm3+
6296 . fmb2*hbcm2-fmc2*hbcm2+hbcm4)+4*(hbcm2*p1p4*p1p8-hbcm2*p1p4*
6297 . p4p8+2*hbcm2*p1p8*p2p5+hbcm2*p1p8*p3p5-2*hbcm2*p2p5*p4p8-hbcm2
6298 . *p3p5*p4p8))+ans2
6299 ans=ccc*ans1
6300 b(13)=ans
6301 b(14)=ccc*(8*p3p4*(-fb3*fmb+fb3*fmc)+8*p2p3*(2*fb3*fmb-2*fb3*
6302 . fmc-fb4*hbcm)+8*p1p3*(fb3*fmb-fb3*fmc)+4*(-2*fb3*ffmcfmb*fmb*
6303 . hbcm2+2*fb3*ffmcfmb*fmc*hbcm2+fb4*fmb2*hbcm-fb4*fmc2*hbcm+2*
6304 . fb4*hbcm*p1p4+4*fb4*hbcm*p2p5+2*fb4*hbcm*p3p5+fb4*hbcm3))
6305 b(17)=ccc*(w2*(2*p5p8*(2*ffmcfmb*hbcm3-3*fmb*hbcm2+3*fmc*hbcm2-
6306 . 3*hbcm3)+4*(-hbcm*p1p3*p5p8+hbcm*p2p3*p5p8+hbcm*p3p4*p5p8-3*
6307 . hbcm*p3p5*p5p8))+w5*(2*p4p8*(-2*ffmcfmb*hbcm3+3*fmb*hbcm2-3*
6308 . fmc*hbcm2+3*hbcm3)+2*p1p8*(2*ffmcfmb*hbcm3-3*fmb*hbcm2+3*fmc*
6309 . hbcm2-3*hbcm3)+4*(-hbcm*p1p3*p1p8+hbcm*p1p3*p4p8+hbcm*p1p8*
6310 . p2p3+hbcm*p1p8*p3p4-3*hbcm*p1p8*p3p5-hbcm*p2p3*p4p8-hbcm*p3p4*
6311 . p4p8+3*hbcm*p3p5*p4p8))+8*(-fb4*hbcm*p1p8+fb4*hbcm*p2p8+fb4*
6312 . hbcm*p4p8-3*fb4*hbcm*p5p8))
6313 b(18)=ccc*(w2*(4*(p5p8*p3p7)*(-3*ffmcfmb*hbcm2-fmb*hbcm-2*fmc*
6314 . hbcm+2*hbcm2)+4*(-hbcm2*p4p7*p5p8-hbcm2*p5p7*p5p8))+w5*(4*(
6315 . p4p8*p3p7)*(3*ffmcfmb*hbcm2+fmb*hbcm+2*fmc*hbcm-2*hbcm2)+4*(
6316 . p3p7*p1p8)*(-3*ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm+2*hbcm2)+4*(-
6317 . hbcm2*p1p8*p4p7-hbcm2*p1p8*p5p7+hbcm2*p4p7*p4p8+hbcm2*p4p8*
6318 . p5p7))+(2*p7p8*(4*fb3*ffmcfmb*hbcm2-4*fb3*hbcm2-4*fb4*fmb*hbcm
6319 . -8*fb4*fmc*hbcm-3*hbcm2)+16*(-fb3*p1p3*p7p8+fb3*p1p8*p3p7+fb3*
6320 . p2p3*p7p8-fb3*p2p8*p3p7+fb3*p3p4*p7p8-fb3*p3p5*p7p8-fb3*p3p7*
6321 . p4p8+fb3*p3p7*p5p8)))
6322 b(19)=ccc*(6*w2*p5p8*(-fmb*hbcm-fmc*hbcm+hbcm2)+w5*(6*p4p8*(fmb
6323 . *hbcm+fmc*hbcm-hbcm2)+6*p1p8*(-fmb*hbcm-fmc*hbcm+hbcm2))+8*(
6324 . fb3*p1p8-fb3*p2p8-fb3*p4p8+3*fb3*p5p8))
6325 b(20)=ccc*(8*w2*(-ffmcfmb*hbcm*p3p7*p5p8-hbcm*p5p7*p5p8)+8*w5*(
6326 . -ffmcfmb*hbcm*p1p8*p3p7+ffmcfmb*hbcm*p3p7*p4p8-hbcm*p1p8*p5p7+
6327 . hbcm*p4p8*p5p7)+2*p7p8*(4*fb3*fmb-8*fb3*fmc-4*fb4*ffmcfmb*hbcm
6328 . -4*fb4*hbcm-hbcm))
6329 b(21)=12*ccc*(fb3*fmb-fb3*fmc-fb4*hbcm)
6330 b(22)=4*ccc*(2*fb3*ffmcfmb*hbcm2-3*fb3*hbcm2-2*fb3*p1p3+2*fb3*
6331 . p2p3+2*fb3*p3p4-6*fb3*p3p5-3*fb4*fmb*hbcm-3*fb4*fmc*hbcm)
6332 b(23)=ccc*(2*p3p7*(-4*fb3*fmb+8*fb3*fmc-4*fb4*ffmcfmb*hbcm+4*
6333 . fb4*hbcm-hbcm)-16*fb4*hbcm*p5p7)
6334 b(25)=ccc*(2*p3p7*(4*fb3*fmc-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm-hbcm
6335 . )+8*p4p7*(-fb3*fmb+fb3*fmc)+8*fb4*hbcm*p5p7)
6336 b(30)=8*ccc*(-fb3*p3p7+fb3*p4p7-3*fb3*p5p7)
6337 do 200 n=1,32
6338 c(n,2)=c(n,2)+0.8320502943378437d0*b(n)
6339 c(n,3)=c(n,3)-0.1869893980016914d0*b(n)
6340 200 continue
6341 return
6342 end
6343
6344 subroutine amp3_1p1(cc)
6345 implicit double precision(a-h,o-z)
6346 implicit integer (i-n)
6347 dimension b(26)
6348 #include "inclcon.h"
6349 #include "inclppp.h"
6350 #include "inclamp.h"
6351 do 100 n=1,26
6352 b(n)=0.0d0
6353 100 continue
6354 ccc=cc/((-2*p1p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*
6355 . p3p5+fmb2+hbcm2+2*p3p5)*(fmb2-fmc2+hbcm2+2*p3p5))
6356 b(3)=w2*ccc*(8*(p5p8*p5p7)*(-fmb*hbcm-fmc*hbcm+2*hbcm2)+8*(p5p8
6357 . *p3p7)*(-fmb*hbcm-fmc*hbcm+2*hbcm2))
6358 b(4)=ccc*(16*p5p7*(-fb4*fmb*hbcm-fb4*fmc*hbcm)+16*p3p7*(-fb4*
6359 . fmb*hbcm-fb4*fmc*hbcm))
6360 b(5)=ccc*(w2*(8*(p5p8*p5p7)*(-2*fmb*hbcm2+2*fmc*hbcm2-hbcm3)+8*
6361 . (p5p8*p3p7)*(-2*fmb*hbcm2+fmb2*hbcm+2*fmc*hbcm2-fmc2*hbcm)-16*
6362 . hbcm*p3p5*p5p7*p5p8)+(16*p7p8*(fb4*fmb2*hbcm-fb4*fmc2*hbcm+fb4
6363 . *hbcm3)+32*(-fb4*hbcm*p2p3*p7p8+fb4*hbcm*p2p8*p3p7+fb4*hbcm*
6364 . p3p5*p7p8-fb4*hbcm*p3p7*p5p8-fb4*hbcm*p5p7*p5p8)))
6365 b(11)=ccc*(w2*(4*p5p8*(-fmb2*hbcm+fmc2*hbcm-hbcm3)-8*hbcm*p3p5*
6366 . p5p8)-16*fb4*hbcm*p2p8)
6367 b(13)=ccc*(w2*(8*p5p8*(-fmb2*hbcm2+fmc2*hbcm2-hbcm4)+8*(p5p8*
6368 . p2p3)*(-fmb*hbcm-fmc*hbcm+2*hbcm2)-16*hbcm2*p3p5*p5p8)+16*p2p8
6369 . *(-fb4*fmb*hbcm-fb4*fmc*hbcm))
6370 b(14)=8*ccc*(-fb4*fmb2*hbcm+fb4*fmc2*hbcm+2*fb4*hbcm*p2p3-2*fb4
6371 . *hbcm*p3p5-fb4*hbcm3)
6372 b(17)=ccc*(w2*(4*p5p8*(2*fmb*hbcm2-2*fmc*hbcm2+hbcm3)+8*hbcm*
6373 . p3p5*p5p8)+16*fb4*hbcm*p5p8)
6374 b(18)=ccc*(8*w2*(p5p8*p3p7)*(fmb*hbcm+fmc*hbcm-2*hbcm2)+16*p7p8
6375 . *(fb4*fmb*hbcm+fb4*fmc*hbcm))
6376 b(19)=4*ccc*w2*p5p8*(fmb*hbcm+fmc*hbcm-2*hbcm2)
6377 b(20)=16*ccc*fb4*hbcm*p7p8
6378 b(21)=8*ccc*fb4*hbcm
6379 b(22)=8*ccc*(fb4*fmb*hbcm+fb4*fmc*hbcm)
6380 b(23)=-16*ccc*fb4*hbcm*p3p7
6381 b(25)=16*ccc*(-fb4*hbcm*p3p7-fb4*hbcm*p5p7)
6382 do 200 n=1,26
6383 c(n,2)=c(n,2)-0.7396002616336388d0*b(n)
6384 c(n,3)=c(n,3)+0.1662127982237257d0*b(n)
6385 200 continue
6386 return
6387 end
6388
6389 subroutine amp6_1p1(cc)
6390 implicit double precision(a-h,o-z)
6391 implicit integer (i-n)
6392 dimension b(32)
6393 #include "inclcon.h"
6394 #include "inclppp.h"
6395 #include "inclamp.h"
6396 do 100 n=1,32
6397 b(n)=0.0d0
6398 100 continue
6399 ccc=cc/((4*p1p5*p2p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p2p3+2*
6400 . ffmcfmb*p3p4+fmc2-2*p2p4))
6401 b(2)=ccc*(16*w11*(hbcm*p2p4*p2p8*p6p7-hbcm*p2p4*p4p8*p6p7+hbcm*
6402 . p2p8*p3p6*p4p7+hbcm*p2p8*p4p6*p4p7+hbcm*p2p8*p4p7*p5p6-hbcm*
6403 . p3p6*p4p7*p4p8-hbcm*p4p6*p4p7*p4p8-hbcm*p4p7*p4p8*p5p6)+32*fb4
6404 . *hbcm*p4p7*p6p8)
6405 b(3)=w11*ccc*(8*(p4p8*p4p7)*(-fmb*hbcm-fmc*hbcm+2*hbcm2)+8*(
6406 . p4p7*p2p8)*(fmb*hbcm+fmc*hbcm-2*hbcm2))
6407 b(4)=16*ccc*p4p7*(fb4*fmb*hbcm+fb4*fmc*hbcm)
6408 b(5)=ccc*(w11*(8*(p4p8*p4p7)*(-2*fmb*hbcm2+2*fmc*hbcm2-hbcm3)+8
6409 . *(p4p7*p2p8)*(2*fmb*hbcm2-2*fmc*hbcm2+hbcm3)+16*(-hbcm*p1p2*
6410 . p2p8*p3p7+hbcm*p1p2*p3p7*p4p8-hbcm*p1p3*p2p8*p4p7+hbcm*p1p3*
6411 . p4p7*p4p8-hbcm*p2p3*p2p8*p4p7-hbcm*p2p3*p2p8*p5p7+hbcm*p2p3*
6412 . p4p7*p4p8+hbcm*p2p3*p4p8*p5p7+hbcm*p2p5*p2p8*p3p7-hbcm*p2p5*
6413 . p3p7*p4p8+hbcm*p2p8*p3p5*p4p7-hbcm*p3p5*p4p7*p4p8))+32*(-fb4*
6414 . hbcm*p1p2*p7p8-fb4*hbcm*p1p8*p4p7+fb4*hbcm*p2p5*p7p8-fb4*hbcm*
6415 . p2p8*p4p7-fb4*hbcm*p2p8*p5p7+fb4*hbcm*p4p7*p5p8))
6416 b(8)=ccc*(16*w11*(-hbcm*p2p3*p2p8*p3p6-hbcm*p2p3*p2p8*p4p6-hbcm
6417 . *p2p3*p2p8*p5p6+hbcm*p2p3*p3p6*p4p8+hbcm*p2p3*p4p6*p4p8+hbcm*
6418 . p2p3*p4p8*p5p6-hbcm*p2p4*p2p8*p3p6+hbcm*p2p4*p3p6*p4p8)+32*(-
6419 . fb4*hbcm*p2p3*p6p8-fb4*hbcm*p2p4*p6p8-fb4*hbcm*p2p8*p4p6-fb4*
6420 . hbcm*p2p8*p5p6))
6421 b(9)=32*ccc*(fb4*hbcm*p2p4*p6p7+fb4*hbcm*p4p6*p4p7+fb4*hbcm*
6422 . p4p7*p5p6)
6423 b(10)=ccc*(w11*(16*(p4p8*p4p7*p3p6)*(fmb*hbcm+fmc*hbcm)+16*(
6424 . p4p7*p3p6*p2p8)*(-fmb*hbcm-fmc*hbcm)+16*(p6p7*p4p8*p2p3)*(-fmb
6425 . *hbcm-fmc*hbcm+2*hbcm2)+16*(p6p7*p2p8*p2p3)*(fmb*hbcm+fmc*hbcm
6426 . -2*hbcm2)+32*(-hbcm2*p2p4*p2p8*p6p7+hbcm2*p2p4*p4p8*p6p7-hbcm2
6427 . *p2p8*p4p6*p4p7-hbcm2*p2p8*p4p7*p5p6+hbcm2*p4p6*p4p7*p4p8+
6428 . hbcm2*p4p7*p4p8*p5p6))+32*(p6p8*p4p7)*(-fb4*fmb*hbcm-fb4*fmc*
6429 . hbcm))
6430 b(11)=ccc*(8*w11*(hbcm*p1p2*p2p8-hbcm*p1p2*p4p8-hbcm*p2p3*p2p8+
6431 . hbcm*p2p3*p4p8-hbcm*p2p5*p2p8+hbcm*p2p5*p4p8)-16*fb4*hbcm*p2p8
6432 . )
6433 b(13)=ccc*(w11*(8*(p4p8*p2p3)*(fmb*hbcm+fmc*hbcm)+8*(p2p8*p2p3)
6434 . *(-fmb*hbcm-fmc*hbcm)+16*(hbcm2*p1p2*p2p8-hbcm2*p1p2*p4p8-
6435 . hbcm2*p2p5*p2p8+hbcm2*p2p5*p4p8))+16*p2p8*(-fb4*fmb*hbcm-fb4*
6436 . fmc*hbcm))
6437 b(14)=16*ccc*(fb4*hbcm*p1p2-fb4*hbcm*p2p5)
6438 b(15)=ccc*(w11*(8*(p4p8*p3p6)*(fmb*hbcm+fmc*hbcm)+8*(p3p6*p2p8)
6439 . *(-fmb*hbcm-fmc*hbcm)+16*(-hbcm2*p2p8*p4p6-hbcm2*p2p8*p5p6+
6440 . hbcm2*p4p6*p4p8+hbcm2*p4p8*p5p6))+16*p6p8*(-fb4*fmb*hbcm-fb4*
6441 . fmc*hbcm))
6442 b(16)=ccc*(8*w11*(hbcm*p2p8*p3p6+hbcm*p2p8*p4p6+hbcm*p2p8*p5p6-
6443 . hbcm*p3p6*p4p8-hbcm*p4p6*p4p8-hbcm*p4p8*p5p6)+16*fb4*hbcm*p6p8
6444 . )
6445 b(17)=ccc*(w11*(4*p4p8*(-2*fmb*hbcm2+2*fmc*hbcm2-hbcm3)+4*p2p8*
6446 . (2*fmb*hbcm2-2*fmc*hbcm2+hbcm3)+8*(-hbcm*p1p3*p2p8+hbcm*p1p3*
6447 . p4p8+hbcm*p2p8*p3p5-hbcm*p3p5*p4p8))+16*(-fb4*hbcm*p1p8+fb4*
6448 . hbcm*p5p8))
6449 b(18)=ccc*(w11*(8*(p4p8*p3p7)*(-fmb*hbcm-fmc*hbcm)+8*(p3p7*p2p8
6450 . )*(fmb*hbcm+fmc*hbcm)+16*(hbcm2*p2p8*p4p7+hbcm2*p2p8*p5p7-
6451 . hbcm2*p4p7*p4p8-hbcm2*p4p8*p5p7))+16*p7p8*(fb4*fmb*hbcm+fb4*
6452 . fmc*hbcm))
6453 b(19)=w11*ccc*(4*p4p8*(-fmb*hbcm-fmc*hbcm+2*hbcm2)+4*p2p8*(fmb*
6454 . hbcm+fmc*hbcm-2*hbcm2))
6455 b(20)=ccc*(8*w11*(hbcm*p2p8*p3p7+hbcm*p2p8*p4p7+hbcm*p2p8*p5p7-
6456 . hbcm*p3p7*p4p8-hbcm*p4p7*p4p8-hbcm*p4p8*p5p7)+16*fb4*hbcm*p7p8
6457 . )
6458 b(21)=8*ccc*fb4*hbcm
6459 b(22)=8*ccc*(fb4*fmb*hbcm+fb4*fmc*hbcm)
6460 b(23)=16*ccc*(fb4*hbcm*p4p7+fb4*hbcm*p5p7)
6461 b(24)=16*ccc*(fb4*hbcm*p4p6+fb4*hbcm*p5p6)
6462 b(25)=16*ccc*fb4*hbcm*p4p7
6463 b(27)=16*ccc*p6p7*(fb4*fmb*hbcm+fb4*fmc*hbcm)
6464 b(28)=w11*ccc*(8*(p6p7*p4p8)*(fmb*hbcm+fmc*hbcm-2*hbcm2)+8*(
6465 . p6p7*p2p8)*(-fmb*hbcm-fmc*hbcm+2*hbcm2))
6466 b(31)=ccc*(w11*(8*(p6p7*p4p8)*(-2*fmb*hbcm2+2*fmc*hbcm2+hbcm3)+
6467 . 8*(p6p7*p2p8)*(2*fmb*hbcm2-2*fmc*hbcm2-hbcm3)+16*(hbcm*p2p3*
6468 . p2p8*p6p7-hbcm*p2p3*p4p8*p6p7-hbcm*p2p8*p3p4*p6p7+hbcm*p2p8*
6469 . p3p6*p3p7+hbcm*p2p8*p3p7*p4p6+hbcm*p2p8*p3p7*p5p6+hbcm*p3p4*
6470 . p4p8*p6p7-hbcm*p3p6*p3p7*p4p8-hbcm*p3p7*p4p6*p4p8-hbcm*p3p7*
6471 . p4p8*p5p6))+32*(fb4*hbcm*p2p8*p6p7+fb4*hbcm*p3p7*p6p8+fb4*hbcm
6472 . *p4p6*p7p8-fb4*hbcm*p4p8*p6p7+fb4*hbcm*p5p6*p7p8))
6473 b(32)=16*ccc*fb4*hbcm*p6p7
6474 do 200 n=1,32
6475 c(n,1)=c(n,1)-0.7272727272727273d0*b(n)
6476 c(n,2)=c(n,2)+0.1344727748424798d0*b(n)
6477 c(n,3)=c(n,3)+0.1662127982237257d0*b(n)
6478 200 continue
6479 return
6480 end
6481
6482 subroutine amp7_1p1(cc)
6483 implicit double precision(a-h,o-z)
6484 implicit integer (i-n)
6485 dimension b(32)
6486 #include "inclcon.h"
6487 #include "inclppp.h"
6488 #include "inclamp.h"
6489 do 100 n=1,32
6490 b(n)=0.0d0
6491 100 continue
6492 ccc=cc/((-2*p2p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*
6493 . p3p5+fmb2+hbcm2+2*p3p5)*(fmb2-fmc2+hbcm2+2*p3p5))
6494 b(3)=8*ccc*w2*(p5p8*p4p7)*(fmb*hbcm+fmc*hbcm-2*hbcm2)
6495 b(4)=16*ccc*p4p7*(fb4*fmb*hbcm+fb4*fmc*hbcm)
6496 b(5)=ccc*(w2*(8*(p5p8*p4p7)*(2*fmb*hbcm2-2*fmc*hbcm2+hbcm3)+16*
6497 . hbcm*p3p5*p4p7*p5p8)+32*(-fb4*hbcm*p2p3*p7p8+fb4*hbcm*p2p8*
6498 . p3p7+fb4*hbcm*p4p7*p5p8))
6499 b(10)=16*ccc*w2*(p6p7*p5p8*p2p3)*(fmb*hbcm+fmc*hbcm-2*hbcm2)
6500 b(11)=-16*ccc*fb4*hbcm*p2p8
6501 b(13)=ccc*(8*w2*(p5p8*p2p3)*(-fmb*hbcm-fmc*hbcm+2*hbcm2)+16*
6502 . p2p8*(-fb4*fmb*hbcm-fb4*fmc*hbcm))
6503 b(14)=16*ccc*fb4*hbcm*p2p3
6504 b(17)=ccc*(w2*(4*p5p8*(2*fmb*hbcm2-2*fmc*hbcm2+hbcm3)+8*hbcm*
6505 . p3p5*p5p8)+16*fb4*hbcm*p5p8)
6506 b(18)=ccc*(8*w2*(p5p8*p3p7)*(fmb*hbcm+fmc*hbcm-2*hbcm2)+16*p7p8
6507 . *(fb4*fmb*hbcm+fb4*fmc*hbcm))
6508 b(19)=4*ccc*w2*p5p8*(fmb*hbcm+fmc*hbcm-2*hbcm2)
6509 b(20)=16*ccc*fb4*hbcm*p7p8
6510 b(21)=8*ccc*fb4*hbcm
6511 b(22)=8*ccc*(fb4*fmb*hbcm+fb4*fmc*hbcm)
6512 b(23)=-16*ccc*fb4*hbcm*p3p7
6513 b(25)=16*ccc*fb4*hbcm*p4p7
6514 b(27)=16*ccc*p6p7*(fb4*fmb*hbcm+fb4*fmc*hbcm)
6515 b(28)=8*ccc*w2*(p6p7*p5p8)*(-fmb*hbcm-fmc*hbcm+2*hbcm2)
6516 b(31)=ccc*(w2*(8*(p6p7*p5p8)*(2*fmb*hbcm2-2*fmc*hbcm2+hbcm3)+16
6517 . *hbcm*p3p5*p5p8*p6p7)+32*fb4*hbcm*p5p8*p6p7)
6518 b(32)=16*ccc*fb4*hbcm*p6p7
6519 do 200 n=1,32
6520 c(n,1)=c(n,1)-0.7272727272727273d0*b(n)
6521 c(n,2)=c(n,2)+0.1344727748424798d0*b(n)
6522 c(n,3)=c(n,3)+0.1662127982237257d0*b(n)
6523 200 continue
6524 return
6525 end
6526
6527 subroutine amp9_1p1(cc)
6528 implicit double precision(a-h,o-z)
6529 implicit integer (i-n)
6530 dimension b(32)
6531 #include "inclcon.h"
6532 #include "inclppp.h"
6533 #include "inclamp.h"
6534 do 100 n=1,32
6535 b(n)=0.0d0
6536 100 continue
6537 ccc=cc/((-2*p2p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p2p3+2*ffmcfmb*
6538 . p3p4+fmc2-2*p2p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2+2*ffmcfmb*
6539 . p1p3-fmb2+hbcm2-2*p1p3))
6540 b(1)=32*ccc*(-2*fb3*p2p4*p6p7-fb3*p3p6*p4p7-2*fb3*p4p6*p4p7)
6541 b(2)=ccc*(w11*(16*(p4p8*p4p7*p3p6)*(-ffmcfmb*hbcm+hbcm)+16*(
6542 . p4p7*p3p6*p2p8)*(ffmcfmb*hbcm-hbcm)+16*(-hbcm*p2p4*p2p8*p6p7+
6543 . hbcm*p2p4*p4p8*p6p7-hbcm*p2p8*p4p6*p4p7+hbcm*p4p6*p4p7*p4p8))+
6544 . w13*(16*(p4p7*p3p6*p1p8)*(-ffmcfmb*hbcm+hbcm)+16*(hbcm*p1p8*
6545 . p2p4*p6p7+hbcm*p1p8*p4p6*p4p7))+8*(p6p8*p4p7)*(4*fb3*fmb-4*fb3
6546 . *fmc+hbcm))
6547 b(3)=ccc*(w11*(8*(p4p8*p4p7)*(fmb*hbcm+fmc*hbcm)+8*(p4p7*p2p8)*
6548 . (-fmb*hbcm-fmc*hbcm))+8*w13*(p4p7*p1p8)*(fmb*hbcm+fmc*hbcm)+32
6549 . *(-2*fb3*p1p2*p7p8-fb3*p1p8*p4p7+2*fb3*p2p3*p7p8+2*fb3*p2p5*
6550 . p7p8+2*fb3*p4p7*p5p8))
6551 b(4)=ccc*(16*p4p7*(-2*fb3*hbcm2-fb4*fmb*hbcm-fb4*fmc*hbcm)+32*(
6552 . 2*fb3*p1p2*p3p7+fb3*p1p3*p4p7+2*fb3*p2p3*p4p7+2*fb3*p2p3*p5p7-
6553 . 2*fb3*p2p5*p3p7-2*fb3*p3p5*p4p7))
6554 b(5)=ccc*(w11*(8*(p4p8*p4p7)*(ffmcfmb*hbcm3+fmb*hbcm2)+8*(p4p7*
6555 . p2p8)*(-ffmcfmb*hbcm3-fmb*hbcm2)+16*(hbcm*p1p2*p2p8*p3p7-hbcm*
6556 . p1p2*p3p7*p4p8+hbcm*p2p3*p2p8*p4p7+hbcm*p2p3*p2p8*p5p7-hbcm*
6557 . p2p3*p4p7*p4p8-hbcm*p2p3*p4p8*p5p7-hbcm*p2p5*p2p8*p3p7+hbcm*
6558 . p2p5*p3p7*p4p8-hbcm*p2p8*p3p5*p4p7+hbcm*p3p5*p4p7*p4p8))+w13*(
6559 . 8*(p4p7*p1p8)*(ffmcfmb*hbcm3+fmb*hbcm2)+16*(-hbcm*p1p2*p1p8*
6560 . p3p7-hbcm*p1p8*p2p3*p4p7-hbcm*p1p8*p2p3*p5p7+hbcm*p1p8*p2p5*
6561 . p3p7+hbcm*p1p8*p3p5*p4p7))+(8*(p3p7*p2p8)*(4*fb3*fmb-8*fb3*fmc
6562 . -4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+hbcm)+8*(p7p8*p2p3)*(-4*fb3*fmb
6563 . +8*fb3*fmc+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm)+32*(fb4*hbcm*
6564 . p1p2*p7p8-fb4*hbcm*p2p5*p7p8+fb4*hbcm*p2p8*p4p7+fb4*hbcm*p2p8*
6565 . p5p7-fb4*hbcm*p4p7*p5p8)))
6566 b(6)=32*ccc*(-fb3*p2p4*p6p8-fb3*p2p8*p3p6-2*fb3*p2p8*p4p6)
6567 b(7)=32*ccc*(fb3*p2p3*p3p6+2*fb3*p2p3*p4p6+fb3*p2p4*p3p6)
6568 b(8)=ccc*(w11*(16*(p4p8*p3p6*p2p3)*(ffmcfmb*hbcm-hbcm)+16*(p3p6
6569 . *p2p8*p2p3)*(-ffmcfmb*hbcm+hbcm)+16*(hbcm*p2p3*p2p8*p4p6-hbcm*
6570 . p2p3*p4p6*p4p8))+w13*(16*(p3p6*p2p3*p1p8)*(ffmcfmb*hbcm-hbcm)-
6571 . 16*hbcm*p1p8*p2p3*p4p6)+(32*(p3p6*p2p8)*(fb3*fmb-fb3*fmc-fb4*
6572 . ffmcfmb*hbcm+fb4*hbcm)+8*(p6p8*p2p3)*(-4*fb3*fmb+4*fb3*fmc-
6573 . hbcm)+32*fb4*hbcm*p2p8*p4p6))
6574 b(9)=ccc*(32*(p4p7*p3p6)*(-fb3*fmb+fb3*fmc+fb4*ffmcfmb*hbcm-fb4
6575 . *hbcm)+32*(-fb4*hbcm*p2p4*p6p7-fb4*hbcm*p4p6*p4p7))
6576 b(10)=ccc*(w11*(16*(p6p7*p4p8*p2p3)*(fmb*hbcm+fmc*hbcm)+16*(
6577 . p6p7*p2p8*p2p3)*(-fmb*hbcm-fmc*hbcm)+16*(p4p8*p4p7*p3p6)*(
6578 . ffmcfmb*hbcm2-fmb*hbcm-hbcm2)+16*(p4p7*p3p6*p2p8)*(-ffmcfmb*
6579 . hbcm2+fmb*hbcm+hbcm2))+w13*(16*(p6p7*p2p3*p1p8)*(fmb*hbcm+fmc*
6580 . hbcm)+16*(p4p7*p3p6*p1p8)*(ffmcfmb*hbcm2-fmb*hbcm-hbcm2))+(8*(
6581 . p6p8*p4p7)*(4*fb3*ffmcfmb*hbcm2-8*fb3*hbcm2+4*fb4*fmb*hbcm-
6582 . hbcm2)+64*(fb3*p1p3*p4p7*p6p8+fb3*p1p8*p2p3*p6p7-fb3*p1p8*p3p6
6583 . *p4p7+2*fb3*p2p3*p2p8*p6p7+fb3*p2p3*p4p7*p6p8-2*fb3*p2p3*p4p8*
6584 . p6p7+fb3*p2p8*p3p6*p3p7-fb3*p2p8*p3p6*p4p7+2*fb3*p2p8*p3p7*
6585 . p4p6-fb3*p3p4*p4p7*p6p8+fb3*p3p6*p4p7*p4p8)))
6586 b(11)=ccc*(8*w11*(-hbcm*p1p2*p2p8+hbcm*p1p2*p4p8+hbcm*p2p3*p2p8
6587 . -hbcm*p2p3*p4p8+hbcm*p2p5*p2p8-hbcm*p2p5*p4p8)+8*w13*(hbcm*
6588 . p1p2*p1p8-hbcm*p1p8*p2p3-hbcm*p1p8*p2p5)+4*p2p8*(-4*fb3*fmb+8*
6589 . fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm))
6590 b(12)=32*ccc*(fb3*p1p2-fb3*p2p3-fb3*p2p5)
6591 b(13)=ccc*(w11*(8*(p4p8*p2p3)*(-fmb*hbcm-fmc*hbcm)+8*(p2p8*p2p3
6592 . )*(fmb*hbcm+fmc*hbcm))+8*w13*(p2p3*p1p8)*(-fmb*hbcm-fmc*hbcm)+
6593 . (16*p2p8*(2*fb3*hbcm2+fb4*fmb*hbcm+fb4*fmc*hbcm)+32*(-fb3*p1p3
6594 . *p2p8+fb3*p1p8*p2p3-2*fb3*p2p3*p5p8+2*fb3*p2p8*p3p5)))
6595 b(14)=ccc*(4*p2p3*(4*fb3*fmb-8*fb3*fmc-4*fb4*ffmcfmb*hbcm+4*fb4
6596 . *hbcm+hbcm)+16*(-fb4*hbcm*p1p2+fb4*hbcm*p2p5))
6597 b(15)=ccc*(w11*(8*(p4p8*p3p6)*(ffmcfmb*hbcm2-fmb*hbcm-hbcm2)+8*
6598 . (p3p6*p2p8)*(-ffmcfmb*hbcm2+fmb*hbcm+hbcm2))+8*w13*(p3p6*p1p8)
6599 . *(ffmcfmb*hbcm2-fmb*hbcm-hbcm2)+(4*p6p8*(4*fb3*ffmcfmb*hbcm2-8
6600 . *fb3*hbcm2+4*fb4*fmb*hbcm-hbcm2)+32*(fb3*p1p3*p6p8-fb3*p1p8*
6601 . p3p6+fb3*p2p3*p6p8-fb3*p2p8*p3p6-fb3*p3p4*p6p8+fb3*p3p6*p4p8))
6602 . )
6603 b(16)=ccc*(w11*(8*(p4p8*p3p6)*(-ffmcfmb*hbcm+hbcm)+8*(p3p6*p2p8
6604 . )*(ffmcfmb*hbcm-hbcm)+8*(-hbcm*p2p8*p4p6+hbcm*p4p6*p4p8))+w13*
6605 . (8*(p3p6*p1p8)*(-ffmcfmb*hbcm+hbcm)+8*hbcm*p1p8*p4p6)+4*p6p8*(
6606 . 4*fb3*fmb-4*fb3*fmc+hbcm))
6607 b(17)=ccc*(w11*(4*p4p8*(ffmcfmb*hbcm3+fmb*hbcm2)+4*p2p8*(-
6608 . ffmcfmb*hbcm3-fmb*hbcm2)+8*(-hbcm*p2p8*p3p5+hbcm*p3p5*p4p8))+
6609 . w13*(4*p1p8*(ffmcfmb*hbcm3+fmb*hbcm2)+8*hbcm*p1p8*p3p5)-16*fb4
6610 . *hbcm*p5p8)
6611 b(18)=ccc*(w11*(8*(p4p8*p3p7)*(fmb*hbcm+fmc*hbcm)+8*(p3p7*p2p8)
6612 . *(-fmb*hbcm-fmc*hbcm))+8*w13*(p3p7*p1p8)*(fmb*hbcm+fmc*hbcm)+(
6613 . 16*p7p8*(-2*fb3*hbcm2-fb4*fmb*hbcm-fb4*fmc*hbcm)+32*(fb3*p1p3*
6614 . p7p8-fb3*p1p8*p3p7-2*fb3*p3p5*p7p8+2*fb3*p3p7*p5p8)))
6615 b(19)=ccc*(w11*(4*p4p8*(fmb*hbcm+fmc*hbcm)+4*p2p8*(-fmb*hbcm-
6616 . fmc*hbcm))+4*w13*p1p8*(fmb*hbcm+fmc*hbcm)+16*(-fb3*p1p8+2*fb3*
6617 . p5p8))
6618 b(20)=ccc*(8*w11*(-hbcm*p2p8*p3p7-hbcm*p2p8*p4p7-hbcm*p2p8*p5p7
6619 . +hbcm*p3p7*p4p8+hbcm*p4p7*p4p8+hbcm*p4p8*p5p7)+8*w13*(hbcm*
6620 . p1p8*p3p7+hbcm*p1p8*p4p7+hbcm*p1p8*p5p7)+4*p7p8*(4*fb3*fmb-8*
6621 . fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm))
6622 b(21)=2*ccc*(4*fb3*fmb-8*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)
6623 b(22)=8*ccc*(-2*fb3*hbcm2+2*fb3*p1p3-4*fb3*p3p5-fb4*fmb*hbcm-
6624 . fb4*fmc*hbcm)
6625 b(23)=ccc*(4*p3p7*(-4*fb3*fmb+8*fb3*fmc+4*fb4*ffmcfmb*hbcm-4*
6626 . fb4*hbcm-hbcm)+16*(-fb4*hbcm*p4p7-fb4*hbcm*p5p7))
6627 b(24)=ccc*(16*p3p6*(-fb3*fmb+fb3*fmc+fb4*ffmcfmb*hbcm-fb4*hbcm)
6628 . -16*fb4*hbcm*p4p6)
6629 b(25)=4*ccc*p4p7*(4*fb3*fmb-8*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)
6630 b(27)=ccc*(16*p6p7*(2*fb3*hbcm2-fb4*fmb*hbcm-fb4*fmc*hbcm)+32*(
6631 . -fb3*p1p3*p6p7-2*fb3*p2p3*p6p7+2*fb3*p3p4*p6p7-fb3*p3p6*p3p7-2
6632 . *fb3*p3p7*p4p6))
6633 b(28)=ccc*(w11*(8*(p6p7*p4p8)*(-fmb*hbcm-fmc*hbcm)+8*(p6p7*p2p8
6634 . )*(fmb*hbcm+fmc*hbcm))+8*w13*(p6p7*p1p8)*(-fmb*hbcm-fmc*hbcm)+
6635 . 32*(-fb3*p1p8*p6p7-2*fb3*p2p8*p6p7-fb3*p3p6*p7p8-2*fb3*p4p6*
6636 . p7p8+2*fb3*p4p8*p6p7))
6637 b(29)=16*ccc*(-fb3*p3p6-2*fb3*p4p6)
6638 b(30)=32*ccc*(-fb3*p3p7-fb3*p4p7-fb3*p5p7)
6639 b(31)=ccc*(w11*(8*(p6p7*p4p8)*(ffmcfmb*hbcm3+fmb*hbcm2-2*hbcm3)
6640 . +8*(p6p7*p2p8)*(-ffmcfmb*hbcm3-fmb*hbcm2+2*hbcm3)+16*(p4p8*
6641 . p3p7*p3p6)*(-ffmcfmb*hbcm+hbcm)+16*(p3p7*p3p6*p2p8)*(ffmcfmb*
6642 . hbcm-hbcm)+16*(-hbcm*p1p3*p2p8*p6p7+hbcm*p1p3*p4p8*p6p7-hbcm*
6643 . p2p3*p2p8*p6p7+hbcm*p2p3*p4p8*p6p7+hbcm*p2p8*p3p4*p6p7-hbcm*
6644 . p2p8*p3p7*p4p6-hbcm*p3p4*p4p8*p6p7+hbcm*p3p7*p4p6*p4p8))+w13*(
6645 . 8*(p6p7*p1p8)*(ffmcfmb*hbcm3+fmb*hbcm2-2*hbcm3)+16*(p3p7*p3p6*
6646 . p1p8)*(-ffmcfmb*hbcm+hbcm)+16*(hbcm*p1p3*p1p8*p6p7+hbcm*p1p8*
6647 . p2p3*p6p7-hbcm*p1p8*p3p4*p6p7+hbcm*p1p8*p3p7*p4p6))+(8*(p6p8*
6648 . p3p7)*(4*fb3*fmb-4*fb3*fmc+hbcm)+32*(p7p8*p3p6)*(-fb3*fmb+fb3*
6649 . fmc+fb4*ffmcfmb*hbcm-fb4*hbcm)+32*(-fb4*hbcm*p1p8*p6p7-fb4*
6650 . hbcm*p2p8*p6p7-fb4*hbcm*p4p6*p7p8+fb4*hbcm*p4p8*p6p7)))
6651 b(32)=4*ccc*p6p7*(4*fb3*fmb-8*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)
6652 do 200 n=1,32
6653 c(n,1)=c(n,1)+0.09090909090909091d0*b(n)
6654 c(n,2)=c(n,2)-0.01680909685530997d0*b(n)
6655 c(n,3)=c(n,3)-0.02077659977796572d0*b(n)
6656 200 continue
6657 return
6658 end
6659
6660 subroutine amp8_1p1(cc)
6661 implicit double precision(a-h,o-z)
6662 implicit integer (i-n)
6663 dimension b(32)
6664 #include "inclcon.h"
6665 #include "inclppp.h"
6666 #include "inclamp.h"
6667 do 100 n=1,32
6668 b(n)=0.0d0
6669 100 continue
6670 ccc=cc/((-2*p2p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*
6671 . p3p5+fmb2+hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3-fmc2)
6672 . )
6673 b(1)=32*ccc*(-2*fb3*p2p4*p6p7-fb3*p3p6*p4p7-2*fb3*p4p6*p4p7)
6674 b(2)=ccc*(w2*(16*(p5p8*p4p7*p3p6)*(ffmcfmb*hbcm-hbcm)+16*(-hbcm
6675 . *p2p4*p5p8*p6p7-hbcm*p4p6*p4p7*p5p8))+w12*(16*(p4p7*p3p6*p1p8)
6676 . *(ffmcfmb*hbcm-hbcm)+16*(-hbcm*p1p8*p2p4*p6p7-hbcm*p1p8*p4p6*
6677 . p4p7))+32*(p6p8*p4p7)*(fb3*fmb+fb4*ffmcfmb*hbcm-fb4*hbcm))
6678 b(3)=ccc*(8*w2*(p5p8*p4p7)*(-fmb*hbcm-fmc*hbcm)+8*w12*(p4p7*
6679 . p1p8)*(-fmb*hbcm-fmc*hbcm)+32*(-2*fb3*p1p2*p7p8-fb3*p1p8*p4p7+
6680 . 2*fb3*p2p3*p7p8+2*fb3*p2p5*p7p8+2*fb3*p4p7*p5p8))
6681 b(4)=ccc*(16*p4p7*(-2*fb3*hbcm2-fb4*fmb*hbcm-fb4*fmc*hbcm)+32*(
6682 . 2*fb3*p1p2*p3p7+fb3*p1p3*p4p7+2*fb3*p2p3*p4p7+2*fb3*p2p3*p5p7-
6683 . 2*fb3*p2p5*p3p7-2*fb3*p3p5*p4p7))
6684 b(5)=ccc*(w2*(8*(p5p8*p4p7)*(-ffmcfmb*hbcm3+fmc*hbcm2-hbcm3)+16
6685 . *(hbcm*p1p2*p3p7*p5p8+hbcm*p1p3*p4p7*p5p8+hbcm*p2p3*p4p7*p5p8+
6686 . hbcm*p2p3*p5p7*p5p8-hbcm*p2p5*p3p7*p5p8-hbcm*p3p5*p4p7*p5p8))+
6687 . w12*(8*(p4p7*p1p8)*(-ffmcfmb*hbcm3+fmc*hbcm2-hbcm3)+16*(hbcm*
6688 . p1p2*p1p8*p3p7+hbcm*p1p3*p1p8*p4p7+hbcm*p1p8*p2p3*p4p7+hbcm*
6689 . p1p8*p2p3*p5p7-hbcm*p1p8*p2p5*p3p7-hbcm*p1p8*p3p5*p4p7))+(8*(
6690 . p3p7*p2p8)*(8*fb3*fmb-4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+8*(
6691 . p7p8*p2p3)*(-8*fb3*fmb+4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+32*(
6692 . fb4*hbcm*p1p2*p7p8+fb4*hbcm*p1p8*p4p7-fb4*hbcm*p2p5*p7p8+fb4*
6693 . hbcm*p2p8*p4p7+fb4*hbcm*p2p8*p5p7-fb4*hbcm*p4p7*p5p8)))
6694 b(6)=32*ccc*(-fb3*p2p4*p6p8-fb3*p2p8*p3p6-2*fb3*p2p8*p4p6)
6695 b(7)=32*ccc*(fb3*p2p3*p3p6+2*fb3*p2p3*p4p6+fb3*p2p4*p3p6)
6696 b(8)=ccc*(w2*(16*(p5p8*p3p6*p2p3)*(-ffmcfmb*hbcm+hbcm)+16*(hbcm
6697 . *p2p3*p4p6*p5p8+hbcm*p2p4*p3p6*p5p8))+w12*(16*(p3p6*p2p3*p1p8)
6698 . *(-ffmcfmb*hbcm+hbcm)+16*(hbcm*p1p8*p2p3*p4p6+hbcm*p1p8*p2p4*
6699 . p3p6))+(8*(p3p6*p2p8)*(4*fb3*fmb-hbcm)+32*(p6p8*p2p3)*(-fb3*
6700 . fmb-fb4*ffmcfmb*hbcm+fb4*hbcm)+32*(fb4*hbcm*p2p4*p6p8+fb4*hbcm
6701 . *p2p8*p4p6)))
6702 b(9)=ccc*(8*(p4p7*p3p6)*(-4*fb3*fmb+hbcm)+32*(-fb4*hbcm*p2p4*
6703 . p6p7-fb4*hbcm*p4p6*p4p7))
6704 b(10)=ccc*(w2*(16*(p6p7*p5p8*p2p3)*(-fmb*hbcm-fmc*hbcm)+16*(
6705 . p5p8*p4p7*p3p6)*(-ffmcfmb*hbcm2+fmb*hbcm))+w12*(16*(p6p7*p2p3*
6706 . p1p8)*(-fmb*hbcm-fmc*hbcm)+16*(p4p7*p3p6*p1p8)*(-ffmcfmb*hbcm2
6707 . +fmb*hbcm))+(8*(p6p8*p4p7)*(-4*fb3*ffmcfmb*hbcm2-4*fb3*hbcm2+4
6708 . *fb4*fmb*hbcm-hbcm2)+64*(fb3*p1p3*p4p7*p6p8+fb3*p1p8*p2p3*p6p7
6709 . -fb3*p1p8*p3p6*p4p7+2*fb3*p2p3*p2p8*p6p7+fb3*p2p3*p4p7*p6p8-2*
6710 . fb3*p2p3*p4p8*p6p7+fb3*p2p8*p3p6*p3p7-fb3*p2p8*p3p6*p4p7+2*fb3
6711 . *p2p8*p3p7*p4p6-fb3*p3p4*p4p7*p6p8+fb3*p3p6*p4p7*p4p8)))
6712 b(11)=ccc*(8*w2*(-hbcm*p1p2*p5p8+hbcm*p2p3*p5p8+hbcm*p2p5*p5p8)
6713 . +8*w12*(-hbcm*p1p2*p1p8+hbcm*p1p8*p2p3+hbcm*p1p8*p2p5)+4*p2p8*
6714 . (-8*fb3*fmb+4*fb3*fmc-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+hbcm))
6715 b(12)=32*ccc*(fb3*p1p2-fb3*p2p3-fb3*p2p5)
6716 b(13)=ccc*(8*w2*(p5p8*p2p3)*(fmb*hbcm+fmc*hbcm)+8*w12*(p2p3*
6717 . p1p8)*(fmb*hbcm+fmc*hbcm)+(16*p2p8*(2*fb3*hbcm2+fb4*fmb*hbcm+
6718 . fb4*fmc*hbcm)+32*(-fb3*p1p3*p2p8+fb3*p1p8*p2p3-2*fb3*p2p3*p5p8
6719 . +2*fb3*p2p8*p3p5)))
6720 b(14)=ccc*(4*p2p3*(8*fb3*fmb-4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)
6721 . +16*(-fb4*hbcm*p1p2+fb4*hbcm*p2p5))
6722 b(15)=ccc*(8*w2*(p5p8*p3p6)*(-ffmcfmb*hbcm2+fmb*hbcm)+8*w12*(
6723 . p3p6*p1p8)*(-ffmcfmb*hbcm2+fmb*hbcm)+(4*p6p8*(-4*fb3*ffmcfmb*
6724 . hbcm2-4*fb3*hbcm2+4*fb4*fmb*hbcm-hbcm2)+32*(fb3*p1p3*p6p8-fb3*
6725 . p1p8*p3p6+fb3*p2p3*p6p8-fb3*p2p8*p3p6-fb3*p3p4*p6p8+fb3*p3p6*
6726 . p4p8)))
6727 b(16)=ccc*(w2*(8*(p5p8*p3p6)*(ffmcfmb*hbcm-hbcm)-8*hbcm*p4p6*
6728 . p5p8)+w12*(8*(p3p6*p1p8)*(ffmcfmb*hbcm-hbcm)-8*hbcm*p1p8*p4p6)
6729 . +16*p6p8*(fb3*fmb+fb4*ffmcfmb*hbcm-fb4*hbcm))
6730 b(17)=ccc*(w2*(4*p5p8*(-ffmcfmb*hbcm3+fmc*hbcm2-hbcm3)+8*(hbcm*
6731 . p1p3*p5p8-hbcm*p3p5*p5p8))+w12*(4*p1p8*(-ffmcfmb*hbcm3+fmc*
6732 . hbcm2-hbcm3)+8*(hbcm*p1p3*p1p8-hbcm*p1p8*p3p5))+16*(fb4*hbcm*
6733 . p1p8-fb4*hbcm*p5p8))
6734 b(18)=ccc*(8*w2*(p5p8*p3p7)*(-fmb*hbcm-fmc*hbcm)+8*w12*(p3p7*
6735 . p1p8)*(-fmb*hbcm-fmc*hbcm)+(16*p7p8*(-2*fb3*hbcm2-fb4*fmb*hbcm
6736 . -fb4*fmc*hbcm)+32*(fb3*p1p3*p7p8-fb3*p1p8*p3p7-2*fb3*p3p5*p7p8
6737 . +2*fb3*p3p7*p5p8)))
6738 b(19)=ccc*(4*w2*p5p8*(-fmb*hbcm-fmc*hbcm)+4*w12*p1p8*(-fmb*hbcm
6739 . -fmc*hbcm)+16*(-fb3*p1p8+2*fb3*p5p8))
6740 b(20)=ccc*(8*w2*(-hbcm*p3p7*p5p8-hbcm*p4p7*p5p8-hbcm*p5p7*p5p8)
6741 . +8*w12*(-hbcm*p1p8*p3p7-hbcm*p1p8*p4p7-hbcm*p1p8*p5p7)+4*p7p8*
6742 . (8*fb3*fmb-4*fb3*fmc+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm))
6743 b(21)=2*ccc*(8*fb3*fmb-4*fb3*fmc+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-
6744 . hbcm)
6745 b(22)=8*ccc*(-2*fb3*hbcm2+2*fb3*p1p3-4*fb3*p3p5-fb4*fmb*hbcm-
6746 . fb4*fmc*hbcm)
6747 b(23)=ccc*(4*p3p7*(-8*fb3*fmb+4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm
6748 . )+16*(-fb4*hbcm*p4p7-fb4*hbcm*p5p7))
6749 b(24)=ccc*(4*p3p6*(-4*fb3*fmb+hbcm)-16*fb4*hbcm*p4p6)
6750 b(25)=4*ccc*p4p7*(8*fb3*fmb-4*fb3*fmc+4*fb4*ffmcfmb*hbcm-4*fb4*
6751 . hbcm-hbcm)
6752 b(27)=ccc*(16*p6p7*(2*fb3*hbcm2-fb4*fmb*hbcm-fb4*fmc*hbcm)+32*(
6753 . -fb3*p1p3*p6p7-2*fb3*p2p3*p6p7+2*fb3*p3p4*p6p7-fb3*p3p6*p3p7-2
6754 . *fb3*p3p7*p4p6))
6755 b(28)=ccc*(8*w2*(p6p7*p5p8)*(fmb*hbcm+fmc*hbcm)+8*w12*(p6p7*
6756 . p1p8)*(fmb*hbcm+fmc*hbcm)+32*(-fb3*p1p8*p6p7-2*fb3*p2p8*p6p7-
6757 . fb3*p3p6*p7p8-2*fb3*p4p6*p7p8+2*fb3*p4p8*p6p7))
6758 b(29)=16*ccc*(-fb3*p3p6-2*fb3*p4p6)
6759 b(30)=32*ccc*(-fb3*p3p7-fb3*p4p7-fb3*p5p7)
6760 b(31)=ccc*(w2*(8*(p6p7*p5p8)*(-ffmcfmb*hbcm3+fmc*hbcm2+hbcm3)+
6761 . 16*(p5p8*p3p7*p3p6)*(ffmcfmb*hbcm-hbcm)+16*(-hbcm*p2p3*p5p8*
6762 . p6p7+hbcm*p3p4*p5p8*p6p7-hbcm*p3p7*p4p6*p5p8))+w12*(8*(p6p7*
6763 . p1p8)*(-ffmcfmb*hbcm3+fmc*hbcm2+hbcm3)+16*(p3p7*p3p6*p1p8)*(
6764 . ffmcfmb*hbcm-hbcm)+16*(-hbcm*p1p8*p2p3*p6p7+hbcm*p1p8*p3p4*
6765 . p6p7-hbcm*p1p8*p3p7*p4p6))+(32*(p6p8*p3p7)*(fb3*fmb+fb4*
6766 . ffmcfmb*hbcm-fb4*hbcm)+8*(p7p8*p3p6)*(-4*fb3*fmb+hbcm)+32*(-
6767 . fb4*hbcm*p2p8*p6p7-fb4*hbcm*p4p6*p7p8+fb4*hbcm*p4p8*p6p7)))
6768 b(32)=4*ccc*p6p7*(8*fb3*fmb-4*fb3*fmc+4*fb4*ffmcfmb*hbcm-4*fb4*
6769 . hbcm-hbcm)
6770 do 200 n=1,32
6771 c(n,1)=c(n,1)+0.09090909090909091d0*b(n)
6772 c(n,2)=c(n,2)-0.01680909685530997d0*b(n)
6773 c(n,3)=c(n,3)-0.02077659977796572d0*b(n)
6774 200 continue
6775 return
6776 end
6777
6778 double precision function ams1_1p1(n)
6779 implicit double precision(a-h,o-z)
6780 implicit integer (i-n)
6781 #include "inclppp.h"
6782 #include "inclcon.h"
6783 #include "inclamp.h"
6784 b1=-p10p10
6785 b2=-p9p9
6786 aa1=c(10,n)**2+b1+b2
6787 b1=-p10p10
6788 b2=p9p9
6789 b3=-p12p12
6790 b4=p11p11
6791 b5=b3+b4
6792 b6=2*c(10,n)*p0p11
6793 b7=c(10,n)**2+b1+b2+b5+b6
6794 b8=-2*p0p10*p5p12
6795 b9=b8
6796 b10=2*p0p12*p5p10
6797 b11=b10
6798 b12=2*p10p12
6799 b13=-2*p9p11
6800 b14=b12+b13
6801 b15=2*epspn2
6802 b16=2*epspn4
6803 b17=-2*p0p11*p5p9
6804 b18=b17
6805 b19=2*p0p9*p5p11
6806 b20=b19
6807 b21=-2*c(10,n)*p5p9
6808 aa2=b11+b14*p0p5+b15+b16+b18+b20+b21+b7*fmb+b9
6809 b1=2*p4p10*p5p10
6810 aa3=b1
6811 aa4=2*epspn0
6812 b1=-2*p0p10*p4p12
6813 b2=b1
6814 b3=-2*p0p12*p4p10
6815 b4=b3
6816 b5=2*p10p12
6817 b6=2*p9p11
6818 b7=b5+b6
6819 b8=2*epspn1
6820 b9=-2*epspn3
6821 b10=-2*p0p11*p4p9
6822 b11=b10
6823 b12=-2*p0p9*p4p11
6824 b13=b12
6825 b14=-2*c(10,n)*p4p9
6826 aa5=b11+b13+b14+b2+b4+b7*p0p4+b8+b9
6827 b1=2*p4p9*p5p9
6828 aa6=b1
6829 b1=p12p12
6830 b2=p11p11
6831 b3=b1+b2
6832 b4=-2*p4p12*p5p12
6833 b5=b4
6834 b6=2*epspn5
6835 b7=-2*p4p11*p5p11
6836 b8=b7
6837 aa7=b3*p4p5+b5+b6+b8
6838 b1=4*p0p12*p4p12
6839 b2=b1
6840 b3=4*epspn6
6841 b4=4*p0p11*p4p11
6842 b5=b4
6843 b6=2*c(10,n)*p4p11
6844 aa8=b2+b3+b5+b6
6845 b1=-2*p12p12
6846 b2=-2*p11p11
6847 b3=b1+b2
6848 b4=-2*c(10,n)*p5p11
6849 aa9=b3*p0p5+b4
6850 aa10=2*c(10,n)*epspn7
6851 b1=2*c(10,n)*p0p11*p4p5
6852 aa11=b1
6853 ams1_1p1=aa1*p4p5+aa10+aa11+aa2*fmc+aa3+aa4+aa5*fmb+aa6+aa7+aa8*
6854 . p0p5+aa9*p0p4
6855 return
6856 end