File indexing completed on 2024-04-06 12:13:35
0001
0002
0003
0004
0005
0006
0007 subroutine amp10_3p1(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)*(2*ffmcfmb*p3p4+2*fmc2)*(-fmb2+fmc2+hbcm2+2*
0018 . p3p4))
0019 b(1)=ccc*(w1*(8*p5p6*(fmb*fmc*hbcm-fmc2*hbcm)+8*p4p6*(fmb*fmc*
0020 . hbcm-fmc2*hbcm)+8*p3p6*(fmb*fmc*hbcm-fmc2*hbcm)+8*(-hbcm*p3p4*
0021 . p3p6-hbcm*p3p4*p4p6-hbcm*p3p4*p5p6))+32*(-fb3*hbcm*p3p6-fb3*
0022 . hbcm*p4p6-fb3*hbcm*p5p6))
0023 b(2)=w1*ccc*(8*p6p7*(-fmb2*fmc*hbcm+fmc*hbcm3+fmc3*hbcm)+16*fmc
0024 . *hbcm*p3p4*p6p7)
0025 b(3)=ccc*(w1*(16*(p6p7*p5p8)*(-fmb*fmc*hbcm+fmc2*hbcm)+16*(p6p8
0026 . *p5p7)*(fmb*fmc*hbcm-fmc2*hbcm)+8*(p6p7*p4p8)*(-2*fmb*fmc*hbcm
0027 . +fmb2*hbcm+fmc2*hbcm-hbcm3)+16*(p6p7*p2p8)*(fmb*fmc*hbcm-fmc2*
0028 . hbcm)+16*(p6p7*p1p8)*(fmb*fmc*hbcm-fmc2*hbcm)+16*(-hbcm*p1p8*
0029 . p3p4*p6p7-hbcm*p2p8*p3p4*p6p7-hbcm*p3p4*p5p7*p6p8+hbcm*p3p4*
0030 . p5p8*p6p7))+64*(-fb3*hbcm*p1p8*p6p7-fb3*hbcm*p2p8*p6p7+fb3*
0031 . hbcm*p4p8*p6p7-fb3*hbcm*p5p7*p6p8+fb3*hbcm*p5p8*p6p7))
0032 b(4)=ccc*(w1*(8*p5p7*(fmb*fmc*hbcm-fmc2*hbcm)-8*hbcm*p3p4*p5p7)
0033 . -32*fb3*hbcm*p5p7)
0034 b(5)=8*ccc*w1*(p5p7*p4p8)*(fmb*hbcm-fmc*hbcm)
0035 b(6)=ccc*(w1*(8*(p5p7*p3p4)*(-fmb*hbcm+fmc*hbcm)+8*fmc*hbcm3*
0036 . p5p7)+32*p5p7*(-fb3*fmb*hbcm-fb3*fmc*hbcm))
0037 b(7)=8*ccc*(p5p7*p4p8)*(8*fb3*hbcm-hbcm3*w1)
0038 b(8)=w1*ccc*(8*p6p8*(-fmb2*fmc*hbcm+fmc*hbcm3+fmc3*hbcm)+8*(
0039 . p5p6*p4p8)*(fmb*hbcm-fmc*hbcm)+8*(p4p8*p4p6)*(fmb*hbcm-fmc*
0040 . hbcm)+8*(p4p8*p3p6)*(fmb*hbcm-fmc*hbcm)+16*fmc*hbcm*p3p4*p6p8)
0041 b(9)=ccc*(w1*(8*p3p6*(fmb2*fmc*hbcm-fmc3*hbcm)+8*(p5p6*p3p4)*(-
0042 . fmb*hbcm+fmc*hbcm)+8*(p4p6*p3p4)*(-fmb*hbcm+fmc*hbcm)+8*(p3p6*
0043 . p3p4)*(-fmb*hbcm-fmc*hbcm)+8*(fmc*hbcm3*p4p6+fmc*hbcm3*p5p6))+
0044 . (32*p5p6*(-fb3*fmb*hbcm-fb3*fmc*hbcm)+32*p4p6*(-fb3*fmb*hbcm-
0045 . fb3*fmc*hbcm)+32*p3p6*(-fb3*fmb*hbcm-fb3*fmc*hbcm)))
0046 ans=ccc*(w1*(16*p6p8*(-fmb*fmc*hbcm3+fmc2*hbcm3)+16*(p5p8*p3p6)
0047 . *(fmb*fmc*hbcm-fmc2*hbcm)+8*(p4p8*p3p6)*(2*fmb*fmc*hbcm-fmb2*
0048 . hbcm-fmc2*hbcm)+16*(p6p8*p3p5)*(-fmb*fmc*hbcm+fmc2*hbcm)+8*(
0049 . p6p8*p3p4)*(-2*fmb*fmc*hbcm+fmb2*hbcm+fmc2*hbcm+hbcm3)+16*(
0050 . p3p6*p2p8)*(-fmb*fmc*hbcm+fmc2*hbcm)+16*(p6p8*p2p3)*(fmb*fmc*
0051 . hbcm-fmc2*hbcm)+16*(p3p6*p1p8)*(-fmb*fmc*hbcm+fmc2*hbcm)+16*(
0052 . p6p8*p1p3)*(fmb*fmc*hbcm-fmc2*hbcm)+8*(-2*hbcm*p1p3*p3p4*p6p8+
0053 . 2*hbcm*p1p8*p3p4*p3p6-2*hbcm*p2p3*p3p4*p6p8+2*hbcm*p2p8*p3p4*
0054 . p3p6+2*hbcm*p3p4*p3p5*p6p8-2*hbcm*p3p4*p3p6*p5p8-hbcm3*p4p6*
0055 . p4p8-hbcm3*p4p8*p5p6))+(32*p6p8*(fb3*fmb2*hbcm-fb3*fmc2*hbcm+
0056 . fb3*hbcm3)+64*(-fb3*hbcm*p1p3*p6p8+fb3*hbcm*p1p8*p3p6-fb3*hbcm
0057 . *p2p3*p6p8+fb3*hbcm*p2p8*p3p6+fb3*hbcm*p3p5*p6p8-fb3*hbcm*p3p6
0058 . *p5p8+fb3*hbcm*p4p6*p4p8+fb3*hbcm*p4p8*p5p6)))
0059 b(10)=ans
0060 b(11)=ccc*(w1*(16*p6p7*(fmb*fmc*hbcm3-fmc2*hbcm3)+16*(p5p7*p3p6
0061 . )*(-fmb*fmc*hbcm+fmc2*hbcm)+16*(p6p7*p3p5)*(fmb*fmc*hbcm-fmc2*
0062 . hbcm)+8*(p6p7*p3p4)*(2*fmb*fmc*hbcm-fmb2*hbcm-fmc2*hbcm-hbcm3)
0063 . +16*(p6p7*p2p3)*(-fmb*fmc*hbcm+fmc2*hbcm)+16*(p6p7*p1p3)*(-fmb
0064 . *fmc*hbcm+fmc2*hbcm)+16*(hbcm*p1p3*p3p4*p6p7+hbcm*p2p3*p3p4*
0065 . p6p7-hbcm*p3p4*p3p5*p6p7+hbcm*p3p4*p3p6*p5p7))+(32*p6p7*(-fb3*
0066 . fmb2*hbcm+fb3*fmc2*hbcm-fb3*hbcm3)+64*(fb3*hbcm*p1p3*p6p7+fb3*
0067 . hbcm*p2p3*p6p7-fb3*hbcm*p3p5*p6p7+fb3*hbcm*p3p6*p5p7)))
0068 ans2=(64*(p6p7*p5p8)*(-fb3*fmb*hbcm-fb3*fmc*hbcm)+64*(p6p8*p5p7
0069 . )*(fb3*fmb*hbcm+fb3*fmc*hbcm)+64*(p7p8*p5p6)*(fb3*fmb*hbcm+fb3
0070 . *fmc*hbcm)+64*(p6p7*p4p8)*(-fb3*fmb*hbcm-fb3*fmc*hbcm)+64*(
0071 . p7p8*p4p6)*(fb3*fmb*hbcm+fb3*fmc*hbcm)+64*(p7p8*p3p6)*(fb3*fmb
0072 . *hbcm+fb3*fmc*hbcm)+64*(p6p7*p1p8)*(fb3*fmb*hbcm+fb3*fmc*hbcm)
0073 . )
0074 ans1=w1*(16*(p6p8*p3p7)*(fmb2*fmc*hbcm-fmc*hbcm3-fmc3*hbcm)+16*
0075 . (p7p8*p3p6)*(-fmb2*fmc*hbcm+fmc3*hbcm)+16*(p5p6*p4p8*p3p7)*(-
0076 . fmb*hbcm+fmc*hbcm)+16*(p4p8*p4p6*p3p7)*(-fmb*hbcm+fmc*hbcm)+16
0077 . *(p5p7*p4p8*p3p6)*(-fmb*hbcm+fmc*hbcm)+16*(p4p8*p3p7*p3p6)*(-
0078 . fmb*hbcm+fmc*hbcm)+16*(p6p7*p4p8*p3p5)*(fmb*hbcm-fmc*hbcm)+16*
0079 . (p6p7*p5p8*p3p4)*(-fmb*hbcm+fmc*hbcm)+16*(p6p8*p5p7*p3p4)*(fmb
0080 . *hbcm-fmc*hbcm)+16*(p7p8*p5p6*p3p4)*(fmb*hbcm-fmc*hbcm)+16*(
0081 . p7p8*p4p6*p3p4)*(fmb*hbcm-fmc*hbcm)+16*(p7p8*p3p6*p3p4)*(fmb*
0082 . hbcm+fmc*hbcm)+16*(p6p7*p4p8*p2p3)*(-fmb*hbcm+fmc*hbcm)+16*(
0083 . p6p7*p3p4*p1p8)*(fmb*hbcm-fmc*hbcm)+16*(p6p7*p4p8*p1p3)*(-fmb*
0084 . hbcm+fmc*hbcm)+16*(fmb*hbcm3*p4p8*p6p7-2*fmc*hbcm*p3p4*p3p7*
0085 . p6p8-fmc*hbcm3*p1p8*p6p7-fmc*hbcm3*p4p6*p7p8-fmc*hbcm3*p5p6*
0086 . p7p8-fmc*hbcm3*p5p7*p6p8+fmc*hbcm3*p5p8*p6p7))+ans2
0087 ans=ccc*ans1
0088 b(12)=ans
0089 b(13)=ccc*(w1*(8*p5p8*(-fmb*fmc*hbcm+fmc2*hbcm)+4*p4p8*(-2*fmb*
0090 . fmc*hbcm+fmb2*hbcm+fmc2*hbcm-hbcm3)+8*p2p8*(fmb*fmc*hbcm-fmc2*
0091 . hbcm)+8*p1p8*(fmb*fmc*hbcm-fmc2*hbcm)+8*(-hbcm*p1p8*p3p4-hbcm*
0092 . p2p8*p3p4+hbcm*p3p4*p5p8))+32*(-fb3*hbcm*p1p8-fb3*hbcm*p2p8+
0093 . fb3*hbcm*p4p8+fb3*hbcm*p5p8))
0094 b(14)=4*ccc*w1*(fmb2*fmc*hbcm-2*fmc*hbcm*p3p4-fmc*hbcm3-fmc3*
0095 . hbcm)
0096 b(15)=ccc*(w1*(8*(p4p8*p3p5)*(-fmb*hbcm+fmc*hbcm)+8*(p5p8*p3p4)
0097 . *(fmb*hbcm-fmc*hbcm)+8*(p3p4*p2p8)*(-fmb*hbcm+fmc*hbcm)+8*(
0098 . p4p8*p2p3)*(fmb*hbcm-fmc*hbcm)+8*(p3p4*p1p8)*(-fmb*hbcm+fmc*
0099 . hbcm)+8*(p4p8*p1p3)*(fmb*hbcm-fmc*hbcm)+8*(-fmb*hbcm3*p4p8+fmc
0100 . *hbcm3*p1p8+fmc*hbcm3*p2p8-fmc*hbcm3*p5p8))+(32*p5p8*(fb3*fmb*
0101 . hbcm+fb3*fmc*hbcm)+32*p4p8*(fb3*fmb*hbcm+fb3*fmc*hbcm)+32*p2p8
0102 . *(-fb3*fmb*hbcm-fb3*fmc*hbcm)+32*p1p8*(-fb3*fmb*hbcm-fb3*fmc*
0103 . hbcm)))
0104 b(16)=ccc*(w1*(8*p3p5*(fmb*fmc*hbcm-fmc2*hbcm)+4*p3p4*(2*fmb*
0105 . fmc*hbcm-fmb2*hbcm-fmc2*hbcm-hbcm3)+8*p2p3*(-fmb*fmc*hbcm+fmc2
0106 . *hbcm)+8*p1p3*(-fmb*fmc*hbcm+fmc2*hbcm)+8*(fmb*fmc*hbcm3-fmc2*
0107 . hbcm3+hbcm*p1p3*p3p4+hbcm*p2p3*p3p4-hbcm*p3p4*p3p5))+16*(-fb3*
0108 . fmb2*hbcm+fb3*fmc2*hbcm+2*fb3*hbcm*p1p3+2*fb3*hbcm*p2p3-2*fb3*
0109 . hbcm*p3p5-fb3*hbcm3))
0110 b(17)=ccc*(w1*(8*p6p8*(-fmb*fmc*hbcm+fmc2*hbcm)+8*hbcm*p3p4*
0111 . p6p8)+32*fb3*hbcm*p6p8)
0112 b(19)=4*ccc*p4p8*(-8*fb3*hbcm+hbcm3*w1)
0113 b(20)=4*ccc*w1*p4p8*(-fmb*hbcm+fmc*hbcm)
0114 b(22)=ccc*(4*w1*(-fmb*fmc*hbcm+fmc2*hbcm+hbcm*p3p4)+16*fb3*hbcm
0115 . )
0116 b(24)=ccc*(w1*(4*p3p4*(fmb*hbcm-fmc*hbcm)-4*fmc*hbcm3)+16*(fb3*
0117 . fmb*hbcm+fb3*fmc*hbcm))
0118 b(26)=ccc*(w1*(8*p3p6*(fmb*fmc*hbcm-fmc2*hbcm)-8*hbcm*p3p4*p3p6
0119 . )-32*fb3*hbcm*p3p6)
0120 b(28)=ccc*(w1*(8*(p4p8*p3p6)*(fmb*hbcm-fmc*hbcm)+8*(p6p8*p3p4)*
0121 . (-fmb*hbcm+fmc*hbcm)+8*fmc*hbcm3*p6p8)+32*p6p8*(-fb3*fmb*hbcm-
0122 . fb3*fmc*hbcm))
0123 b(29)=ccc*(w1*(8*(p6p7*p3p4)*(fmb*hbcm-fmc*hbcm)-8*fmc*hbcm3*
0124 . p6p7)+32*p6p7*(fb3*fmb*hbcm+fb3*fmc*hbcm))
0125 b(30)=8*ccc*(p6p7*p4p8)*(-8*fb3*hbcm+hbcm3*w1)
0126 b(31)=8*ccc*w1*(p6p7*p4p8)*(fmb*hbcm-fmc*hbcm)
0127 b(32)=ccc*(w1*(8*p6p7*(-fmb*fmc*hbcm+fmc2*hbcm)+8*hbcm*p3p4*
0128 . p6p7)+32*fb3*hbcm*p6p7)
0129 do 200 n=1,32
0130 c(n,1)=c(n,1)-0.7272727272727273d0*b(n)
0131 c(n,2)=c(n,2)+0.1344727748424798d0*b(n)
0132 c(n,3)=c(n,3)+0.1662127982237257d0*b(n)
0133 200 continue
0134 return
0135 end
0136
0137 subroutine amp18_3p1(cc)
0138 implicit double precision(a-h,o-z)
0139 implicit integer (i-n)
0140 dimension b(32)
0141 #include "inclcon.h"
0142 #include "inclppp.h"
0143 #include "inclamp.h"
0144 do 100 n=1,32
0145 b(n)=0.0d0
0146 100 continue
0147 ccc=cc/((2*ffmcfmb*p3p4+2*fmc2)*(2*ffmcfmb*p2p3-fmb2-2*fmc*hbcm
0148 . +fmc2+hbcm2-2*p2p3)*(2*ffmcfmb*p3p4+2*ffmcfmb*p3p5+2*fmc2+2*
0149 . p4p5))
0150 ans=ccc*(w18*(8*(p5p6*p3p5)*(fmb+fmc-hbcm)+16*(p4p6*p3p5)*(-fmb
0151 . -fmc+hbcm)+8*(p5p6*p3p4)*(fmb+fmc-hbcm)+16*(p4p6*p3p4)*(-fmb-
0152 . fmc+hbcm)+24*p4p6*(-fmb*hbcm2+fmb2*hbcm+fmc*hbcm2-fmc2*hbcm)+
0153 . 16*p3p6*(-fmb*fmc*hbcm+fmb2*fmc+fmc2*hbcm-fmc3)+8*(p3p6*p3p5)*
0154 . (-ffmcfmb*fmb-ffmcfmb*fmc+fmc)+8*(p3p6*p3p4)*(-ffmcfmb*fmb-
0155 . ffmcfmb*fmc+fmc)+16*(-fmc*p2p3*p4p6+2*fmc*p2p3*p5p6+fmc*p2p4*
0156 . p3p6-2*fmc*p2p5*p3p6+3*hbcm*p2p4*p5p6-3*hbcm*p2p5*p4p6))+w1*(8
0157 . *(p5p6*p3p4)*(fmb+fmc-hbcm)+16*(p4p6*p3p4)*(-fmb-fmc+hbcm)+16*
0158 . p3p6*(-fmb*fmc2+fmc2*hbcm-fmc3)+8*p5p6*(fmb*fmc*hbcm-fmc*hbcm2
0159 . +fmc2*hbcm)+24*p4p6*(-fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+8*(
0160 . p3p6*p3p4)*(-ffmcfmb*fmb-ffmcfmb*fmc+fmc)+16*(-fmc*p2p3*p4p6+
0161 . fmc*p2p4*p3p6))+w8*(8*(p5p6*p2p3)*(fmb+fmc-hbcm)+16*(p4p6*p2p3
0162 . )*(-fmb-fmc+hbcm)+8*(p3p6*p2p3)*(-ffmcfmb*fmb-ffmcfmb*fmc+fmc)
0163 . )+(32*p5p6*(-fb3*fmc+fb3*hbcm-fb4*fmb)+64*p4p6*(fb3*fmc-fb3*
0164 . hbcm+fb4*fmb)+4*p3p6*(8*fb3*ffmcfmb*fmc-8*fb3*fmc+8*fb4*
0165 . ffmcfmb*fmb+fmb+fmc-hbcm)))
0166 b(1)=ans
0167 ans3=((p5p6*p3p7)*(-64*fb4*ffmcfmb+64*fb4-8)+(p4p6*p3p7)*(64*
0168 . fb4*ffmcfmb-64*fb4+8)+(p6p7*p2p3)*(-64*fb4*ffmcfmb-8)+8*p6p7*(
0169 . -8*fb3*fmb*fmc+4*fb3*fmb*hbcm+8*fb3*fmc*hbcm-8*fb3*fmc2-8*fb4*
0170 . fmb*fmc-4*fb4*fmb2+4*fb4*fmc*hbcm-4*fb4*fmc2+fmb*hbcm+fmc*hbcm
0171 . -hbcm2)+64*(-2*fb4*p2p4*p6p7+fb4*p2p5*p6p7))
0172 ans2=w18*(32*(p5p6*p4p7)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p5p7*
0173 . p4p6)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p7*p4p5)*(fmb*hbcm+fmc*
0174 . hbcm-hbcm2)+48*(p6p7*p2p4)*(fmb*hbcm+fmc*hbcm)+8*p6p7*(3*fmb*
0175 . fmc2*hbcm-fmb2*fmc*hbcm+fmb2*hbcm2-fmb3*hbcm-3*fmc2*hbcm2+3*
0176 . fmc3*hbcm)+16*(p5p6*p3p7)*(-fmb*fmc+fmc*hbcm-fmc2)+16*(p4p6*
0177 . p3p7)*(-fmb*fmc+2*fmb*hbcm+fmc*hbcm-fmc2)+16*(p5p7*p3p6)*(fmb*
0178 . fmc-fmc*hbcm+fmc2)+16*(p4p7*p3p6)*(-fmb*fmc+fmc*hbcm-fmc2)+8*(
0179 . p6p7*p3p5)*(4*fmb*fmc-fmb*hbcm+fmb2-3*fmc*hbcm+3*fmc2)+8*(p6p7
0180 . *p3p4)*(4*fmb*fmc-fmb*hbcm+fmb2-3*fmc*hbcm+3*fmc2)+32*(p6p7*
0181 . p2p3)*(fmb*fmc+fmc2)+(p5p6*p3p7*p3p5)*(16*ffmcfmb-16)+(p4p6*
0182 . p3p7*p3p5)*(-16*ffmcfmb+16)+(p5p6*p3p7*p3p4)*(16*ffmcfmb-16)+(
0183 . p4p6*p3p7*p3p4)*(-16*ffmcfmb+16)+16*(p3p7*p3p6)*(-ffmcfmb*fmb*
0184 . fmc-ffmcfmb*fmc2+fmb*fmc+fmc2)+16*(ffmcfmb*p2p3*p3p4*p6p7+
0185 . ffmcfmb*p2p3*p3p5*p6p7+2*p2p4*p3p4*p6p7+2*p2p4*p3p5*p6p7-p2p5*
0186 . p3p4*p6p7-p2p5*p3p5*p6p7))+ans3
0187 ans1=w8*(16*(p6p7*p2p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p6p7*
0188 . p2p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p6p7*p2p3)*(4*fmb*fmc-fmb*
0189 . hbcm+fmb2-3*fmc*hbcm+3*fmc2)+(p5p6*p3p7*p2p3)*(16*ffmcfmb-16)+
0190 . (p4p6*p3p7*p2p3)*(-16*ffmcfmb+16)+16*(ffmcfmb*p2p3s2*p6p7+2*
0191 . p2p3*p2p4*p6p7-p2p3*p2p5*p6p7))+w1*(16*(p5p6*p3p7)*(-fmc*hbcm+
0192 . fmc2)+16*(p6p7*p4p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p4p6*p3p7)
0193 . *(fmb*fmc+fmc*hbcm-fmc2)+16*(p4p7*p3p6)*(-fmb*fmc+fmc*hbcm-
0194 . fmc2)+8*(p6p7*p3p4)*(4*fmb*fmc-fmb*hbcm+fmb2-3*fmc*hbcm+3*fmc2
0195 . )+8*p6p7*(-fmb*fmc*hbcm2+4*fmb*fmc2*hbcm+fmb2*fmc*hbcm-3*fmc2*
0196 . hbcm2+3*fmc3*hbcm)+(p5p6*p3p7*p3p4)*(16*ffmcfmb-16)+(p4p6*p3p7
0197 . *p3p4)*(-16*ffmcfmb+16)+16*(p3p7*p3p6)*(-ffmcfmb*fmc2+fmc2)+16
0198 . *(ffmcfmb*p2p3*p3p4*p6p7+3*fmc*hbcm*p2p4*p6p7-fmc*hbcm*p2p5*
0199 . p6p7+2*fmc2*p2p3*p6p7+2*p2p4*p3p4*p6p7-p2p5*p3p4*p6p7))+ans2
0200 ans=ccc*ans1
0201 b(2)=ans
0202 ans4=16*(p6p8*p3p7*p3p4)*(ffmcfmb*fmb-ffmcfmb*fmc-fmb+fmc)+16*(
0203 . p7p8*p3p6*p3p4)*(ffmcfmb*fmb+ffmcfmb*fmc-fmc)+16*(2*fmc*p2p3*
0204 . p4p7*p6p8-2*fmc*p2p3*p4p8*p6p7-2*fmc*p2p3*p5p6*p7p8-2*fmc*p2p3
0205 . *p5p7*p6p8+2*fmc*p2p3*p5p8*p6p7-2*fmc*p2p4*p3p7*p6p8+2*fmc*
0206 . p2p5*p3p6*p7p8+2*fmc*p2p5*p3p7*p6p8-2*fmc*p2p8*p3p4*p6p7-2*fmc
0207 . *p2p8*p3p5*p6p7-2*fmc*p2p8*p3p6*p5p7+2*fmc*p2p8*p3p7*p5p6-2*
0208 . fmc2*hbcm*p2p8*p6p7-hbcm*p2p4*p4p8*p6p7-2*hbcm*p2p4*p5p6*p7p8-
0209 . 4*hbcm*p2p4*p5p7*p6p8+3*hbcm*p2p4*p5p8*p6p7+2*hbcm*p2p5*p4p6*
0210 . p7p8+4*hbcm*p2p5*p4p7*p6p8-3*hbcm*p2p5*p4p8*p6p7+hbcm*p2p5*
0211 . p5p8*p6p7-2*hbcm*p2p8*p4p5*p6p7-2*hbcm*p2p8*p4p6*p5p7+2*hbcm*
0212 . p2p8*p4p7*p5p6)
0213 ans3=16*(p5p8*p5p6*p3p7)*(-fmc+hbcm)+16*(p5p6*p4p8*p3p7)*(fmc-
0214 . hbcm)+32*(p5p8*p4p6*p3p7)*(-fmc+hbcm)+16*(p6p7*p5p8*p3p5)*(fmb
0215 . +fmc-hbcm)+16*(p6p8*p5p7*p3p5)*(-fmb-fmc+hbcm)+16*(p6p7*p4p8*
0216 . p3p5)*(-fmb-fmc+hbcm)+16*(p6p8*p4p7*p3p5)*(fmb+fmc-hbcm)+16*(
0217 . p7p8*p4p6*p3p5)*(fmb+fmc-hbcm)+16*(p6p7*p5p8*p3p4)*(fmb+fmc-
0218 . hbcm)+16*(p6p8*p5p7*p3p4)*(-fmb-fmc+hbcm)+16*(p6p7*p4p8*p3p4)*
0219 . (-fmb-fmc+hbcm)+16*(p6p8*p4p7*p3p4)*(fmb+fmc-hbcm)+16*(p7p8*
0220 . p4p6*p3p4)*(fmb+fmc-hbcm)+8*(p6p7*p5p8)*(fmb*hbcm2-fmb2*hbcm-
0221 . fmc*hbcm2+fmc2*hbcm)+24*(p6p7*p4p8)*(-fmb*hbcm2+fmb2*hbcm+fmc*
0222 . hbcm2-fmc2*hbcm)+32*(p6p8*p4p7)*(fmb*hbcm2-fmb2*hbcm-fmc*hbcm2
0223 . +fmc2*hbcm)+16*(p7p8*p4p6)*(fmb*hbcm2-fmb2*hbcm-fmc*hbcm2+fmc2
0224 . *hbcm)+16*(p6p8*p3p7)*(fmb*fmc*hbcm-fmb2*hbcm)+16*(p7p8*p3p6)*
0225 . (fmb*fmc*hbcm-fmb2*fmc-fmc2*hbcm+fmc3)+16*(p5p8*p3p7*p3p6)*(-
0226 . ffmcfmb*fmc+fmc)+16*(p4p8*p3p7*p3p6)*(ffmcfmb*fmc-fmc)+16*(
0227 . p6p8*p3p7*p3p5)*(ffmcfmb*fmb-ffmcfmb*fmc-fmb+fmc)+16*(p7p8*
0228 . p3p6*p3p5)*(ffmcfmb*fmb+ffmcfmb*fmc-fmc)+ans4
0229 ans2=w18*ans3
0230 ans6=w8*(16*(p5p6*p3p7*p2p8)*(fmc-hbcm)+32*(p4p6*p3p7*p2p8)*(-
0231 . fmc+hbcm)+32*(p6p8*p3p7*p2p5)*(fmc-hbcm)+32*(p6p8*p3p7*p2p4)*(
0232 . -fmc+hbcm)+16*(p6p7*p5p8*p2p3)*(fmb+fmc-hbcm)+16*(p6p8*p5p7*
0233 . p2p3)*(-fmb-fmc+hbcm)+16*(p6p7*p4p8*p2p3)*(-fmb-fmc+hbcm)+16*(
0234 . p6p8*p4p7*p2p3)*(fmb+fmc-hbcm)+16*(p7p8*p4p6*p2p3)*(fmb+fmc-
0235 . hbcm)+8*(p6p7*p2p8)*(-fmb*hbcm2+fmb2*hbcm+fmc*hbcm2-fmc2*hbcm)
0236 . +16*(p3p7*p3p6*p2p8)*(-ffmcfmb*fmc+fmc)+16*(p6p8*p3p7*p2p3)*(
0237 . ffmcfmb*fmb-ffmcfmb*fmc-fmb+fmc)+16*(p7p8*p3p6*p2p3)*(ffmcfmb*
0238 . fmb+ffmcfmb*fmc-fmc)+16*(hbcm*p2p4*p2p8*p6p7-hbcm*p2p5*p2p8*
0239 . p6p7))+(8*(p6p8*p3p7)*(-8*fb4*ffmcfmb*fmb+8*fb4*ffmcfmb*fmc+8*
0240 . fb4*fmb-8*fb4*fmc-fmb+hbcm)+64*(p6p7*p5p8)*(-fb3*fmc+fb3*hbcm-
0241 . fb4*fmb)+64*(p6p8*p5p7)*(fb3*fmc-fb3*hbcm+fb4*fmb)+64*(p6p7*
0242 . p4p8)*(fb3*fmc-fb3*hbcm+fb4*fmb)+64*(p6p8*p4p7)*(-fb3*fmc+fb3*
0243 . hbcm-fb4*fmb)+64*(p7p8*p4p6)*(-fb3*fmc+fb3*hbcm-fb4*fmb)+16*(
0244 . p6p7*p2p8)*(4*fb3*fmc+4*fb4*fmc-hbcm)+8*(p7p8*p3p6)*(-8*fb3*
0245 . ffmcfmb*fmc+8*fb3*fmc-8*fb4*ffmcfmb*fmb-fmb-2*fmc+hbcm)-8*hbcm
0246 . *p5p6*p7p8)
0247 ans5=w1*(16*(p5p6*p4p8*p3p7)*(-fmc+hbcm)+32*(p6p8*p4p5*p3p7)*(
0248 . fmc-hbcm)+16*(p6p7*p5p8*p3p4)*(fmb+fmc-hbcm)+16*(p6p8*p5p7*
0249 . p3p4)*(-fmb-fmc+hbcm)+16*(p6p7*p4p8*p3p4)*(-fmb-fmc+hbcm)+16*(
0250 . p6p8*p4p7*p3p4)*(fmb+fmc-hbcm)+16*(p7p8*p4p6*p3p4)*(fmb+fmc-
0251 . hbcm)+16*(p7p8*p3p6)*(fmb*fmc2-fmc2*hbcm+fmc3)+16*(p6p7*p5p8)*
0252 . (fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+16*(p6p8*p5p7)*(-fmb*fmc*
0253 . hbcm+fmc*hbcm2-fmc2*hbcm)+8*(p6p7*p4p8)*(-4*fmb*fmc*hbcm+fmb*
0254 . hbcm2-fmb2*hbcm+3*fmc*hbcm2-3*fmc2*hbcm)+32*(p6p8*p4p7)*(fmb*
0255 . fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+16*(p7p8*p4p6)*(fmb*fmc*hbcm-fmc
0256 . *hbcm2+fmc2*hbcm)+16*(p6p8*p3p7)*(-fmb*fmc*hbcm+2*fmb*fmc2)+16
0257 . *(p4p8*p3p7*p3p6)*(ffmcfmb*fmc-fmc)+16*(p6p8*p3p7*p3p4)*(
0258 . ffmcfmb*fmb-ffmcfmb*fmc-fmb+fmc)+16*(p7p8*p3p6*p3p4)*(ffmcfmb*
0259 . fmb+ffmcfmb*fmc-fmc)+16*(2*fmc*p2p3*p4p7*p6p8-2*fmc*p2p3*p4p8*
0260 . p6p7-2*fmc*p2p4*p3p7*p6p8-2*fmc*p2p8*p3p4*p6p7-2*fmc2*hbcm*
0261 . p2p8*p6p7-hbcm*p2p4*p4p8*p6p7+hbcm*p2p5*p4p8*p6p7))+ans6
0262 ans1=ans2+ans5
0263 ans=ccc*ans1
0264 b(3)=ans
0265 ans2=(4*p3p7*(-16*fb4*ffmcfmb*fmb+16*fb4*ffmcfmb*fmc+8*fb4*fmb-
0266 . 16*fb4*fmc-2*fmb+hbcm)+32*p5p7*(fb3*fmc-fb3*hbcm+fb4*fmb)+64*
0267 . p4p7*(-fb3*fmc+fb3*hbcm-fb4*fmb))
0268 ans1=w18*(16*(p4p5*p3p7)*(-fmc+hbcm)+8*(p5p7*p3p5)*(-fmb-fmc+
0269 . hbcm)+16*(p4p7*p3p5)*(fmb+fmc-hbcm)+8*(p5p7*p3p4)*(-fmb-fmc+
0270 . hbcm)+16*(p4p7*p3p4)*(fmb+fmc-hbcm)+24*p4p7*(fmb*hbcm2-fmb2*
0271 . hbcm-fmc*hbcm2+fmc2*hbcm)+8*p3p7*(2*fmb*fmc*hbcm-fmb2*fmc-fmb2
0272 . *hbcm+fmc2*hbcm-fmc3)+8*(p3p7*p3p5)*(2*ffmcfmb*fmb-2*ffmcfmb*
0273 . fmc-fmb+2*fmc)+8*(p3p7*p3p4)*(2*ffmcfmb*fmb-2*ffmcfmb*fmc-fmb+
0274 . 2*fmc)+16*(fmc*p2p3*p4p7-2*fmc*p2p3*p5p7-fmc*p2p4*p3p7+2*fmc*
0275 . p2p5*p3p7-3*hbcm*p2p4*p5p7+3*hbcm*p2p5*p4p7))+w1*(16*(p4p5*
0276 . p3p7)*(fmc-hbcm)+8*(p5p7*p3p4)*(-fmb-fmc+hbcm)+16*(p4p7*p3p4)*
0277 . (fmb+fmc-hbcm)+8*p5p7*(-fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+24*
0278 . p4p7*(fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+8*p3p7*(-fmb*fmc*hbcm+
0279 . 3*fmb*fmc2+fmc2*hbcm-fmc3)+8*(p3p7*p3p4)*(2*ffmcfmb*fmb-2*
0280 . ffmcfmb*fmc-fmb+2*fmc)+16*(fmc*p2p3*p4p7-fmc*p2p4*p3p7))+w8*(
0281 . 16*(p3p7*p2p5)*(fmc-hbcm)+32*(p3p7*p2p4)*(-fmc+hbcm)+8*(p5p7*
0282 . p2p3)*(-fmb-fmc+hbcm)+16*(p4p7*p2p3)*(fmb+fmc-hbcm)+8*(p3p7*
0283 . p2p3)*(2*ffmcfmb*fmb-2*ffmcfmb*fmc-fmb+2*fmc))+ans2
0284 ans=ccc*ans1
0285 b(4)=ans
0286 ans3=((p5p8*p3p7)*(-64*fb4*ffmcfmb+64*fb4-8)+(p4p8*p3p7)*(64*
0287 . fb4*ffmcfmb-64*fb4+8)+(p3p7*p2p8)*(64*fb4*ffmcfmb+8)+(p7p8*
0288 . p2p3)*(-64*fb4*ffmcfmb-8)+4*p7p8*(-8*fb3*fmb*fmc+8*fb3*fmc*
0289 . hbcm-8*fb3*fmc2-8*fb4*fmb*fmc+8*fb4*fmc*hbcm-8*fb4*fmc2+3*fmb*
0290 . hbcm+3*fmc*hbcm-2*hbcm2)+64*(-fb4*p2p4*p7p8+fb4*p2p8*p4p7))
0291 ans2=w1*(16*(p5p8*p3p7)*(-fmc*hbcm+fmc2)+8*(p5p7*p4p8)*(-fmb*
0292 . hbcm-fmc*hbcm+hbcm2)+8*(p4p8*p4p7)*(fmb*hbcm+fmc*hbcm-hbcm2)+
0293 . 16*p7p8*(fmb*fmc2*hbcm-fmc2*hbcm2+fmc3*hbcm)+8*(p4p8*p3p7)*(3*
0294 . fmb*fmc-fmb*hbcm+fmc*hbcm-fmc2)+16*(p7p8*p3p4)*(fmb*fmc-fmc*
0295 . hbcm+fmc2)+(p5p8*p3p7*p3p4)*(16*ffmcfmb-16)+(p4p8*p3p7*p3p4)*(
0296 . -16*ffmcfmb+16)+16*(ffmcfmb*p2p3*p3p4*p7p8-ffmcfmb*p2p8*p3p4*
0297 . p3p7+fmc*hbcm*p2p4*p7p8-fmc*hbcm*p2p8*p4p7+fmc2*p2p3*p7p8-fmc2
0298 . *p2p8*p3p7+p2p4*p3p4*p7p8-p2p8*p3p4*p4p7))+w8*(8*(p5p7*p2p8)*(
0299 . fmb*hbcm+fmc*hbcm-hbcm2)+24*(p4p7*p2p8)*(-fmb*hbcm-fmc*hbcm+
0300 . hbcm2)+16*(p7p8*p2p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p3p7*p2p8)*
0301 . (-3*fmb*fmc+fmb*hbcm+3*fmc*hbcm-3*fmc2)+16*(p7p8*p2p3)*(fmb*
0302 . fmc-fmc*hbcm+fmc2)+(p5p8*p3p7*p2p3)*(16*ffmcfmb-16)+(p4p8*p3p7
0303 . *p2p3)*(-16*ffmcfmb+16)+16*(-ffmcfmb*p2p3*p2p8*p3p7+ffmcfmb*
0304 . p2p3s2*p7p8+p2p3*p2p4*p7p8-p2p3*p2p8*p4p7))+ans3
0305 ans1=w18*(8*(p5p8*p5p7)*(-fmb*hbcm-fmc*hbcm+hbcm2)+24*(p5p7*
0306 . p4p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+24*(p5p8*p4p7)*(-fmb*hbcm-fmc*
0307 . hbcm+hbcm2)+8*(p4p8*p4p7)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p7p8*
0308 . p4p5)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p4p7*p2p8)*(-fmb*hbcm-fmc*
0309 . hbcm)+16*(p7p8*p2p4)*(fmb*hbcm+fmc*hbcm)+16*p7p8*(fmb*fmc2*
0310 . hbcm-fmc2*hbcm2+fmc3*hbcm)+8*(p5p8*p3p7)*(-fmb*fmc-fmb*hbcm+
0311 . fmc*hbcm-fmc2)+8*(p4p8*p3p7)*(-fmb*fmc+3*fmb*hbcm+fmc*hbcm-
0312 . fmc2)+16*(p7p8*p3p5)*(fmb*fmc-fmc*hbcm+fmc2)+16*(p7p8*p3p4)*(
0313 . fmb*fmc-fmc*hbcm+fmc2)+16*(p3p7*p2p8)*(-fmb*fmc-fmc2)+16*(p7p8
0314 . *p2p3)*(fmb*fmc+fmc2)+(p5p8*p3p7*p3p5)*(16*ffmcfmb-16)+(p4p8*
0315 . p3p7*p3p5)*(-16*ffmcfmb+16)+(p5p8*p3p7*p3p4)*(16*ffmcfmb-16)+(
0316 . p4p8*p3p7*p3p4)*(-16*ffmcfmb+16)+16*(ffmcfmb*p2p3*p3p4*p7p8+
0317 . ffmcfmb*p2p3*p3p5*p7p8-ffmcfmb*p2p8*p3p4*p3p7-ffmcfmb*p2p8*
0318 . p3p5*p3p7+p2p4*p3p4*p7p8+p2p4*p3p5*p7p8-p2p8*p3p4*p4p7-p2p8*
0319 . p3p5*p4p7))+ans2
0320 ans=ccc*ans1
0321 b(5)=ans
0322 ans3=((p3p7*p3p5)*(64*fb4*ffmcfmb-64*fb4+8)+(p3p7*p3p4)*(-64*
0323 . fb4*ffmcfmb+64*fb4-8)+32*p5p7*(-fb3*fmb*hbcm-fb4*fmc*hbcm+fb4*
0324 . hbcm2)+32*p4p7*(fb3*fmb*hbcm+fb4*fmc*hbcm-fb4*hbcm2)+4*p3p7*(
0325 . 16*fb3*fmb*fmc-8*fb3*fmb*hbcm-16*fb3*fmc*hbcm+16*fb3*fmc2+8*
0326 . fb4*fmb*fmc-8*fb4*fmc*hbcm+8*fb4*fmc2-3*fmb*hbcm-3*fmc*hbcm+2*
0327 . hbcm2)+64*(-fb4*p2p3*p4p7+fb4*p2p4*p3p7))
0328 ans2=w1*(16*(p4p5*p3p7)*(fmc*hbcm-hbcm2)+16*(p3p7*p3p5)*(fmc*
0329 . hbcm-fmc2)+8*(p5p7*p3p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p4p7*
0330 . p3p4)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p3p7*p3p4)*(-5*fmb*fmc+fmb
0331 . *hbcm+fmc*hbcm-fmc2)+8*p5p7*(fmb*fmc*hbcm2-fmc*hbcm3+fmc2*
0332 . hbcm2)+8*p3p7*(2*ffmcfmb*p3p4s2+fmb*fmc*hbcm2-4*fmb*fmc2*hbcm+
0333 . 2*fmc2*hbcm2-2*fmc3*hbcm-2*p3p4s2)+(p3p7*p3p5*p3p4)*(-16*
0334 . ffmcfmb+16)+16*(2*fmc*hbcm*p2p3*p4p7-2*fmc*hbcm*p2p4*p3p7+p2p3
0335 . *p3p4*p4p7-p2p4*p3p4*p3p7))+w8*(16*(p3p7*p2p5)*(fmc*hbcm-hbcm2
0336 . )+16*(p3p7*p2p4)*(-fmb*hbcm-2*fmc*hbcm+2*hbcm2)+8*(p5p7*p2p3)*
0337 . (-fmb*hbcm-fmc*hbcm+hbcm2)+24*(p4p7*p2p3)*(fmb*hbcm+fmc*hbcm-
0338 . hbcm2)+8*(p3p7*p2p3)*(fmb*fmc-fmb*hbcm-fmc*hbcm+fmc2)+(p3p7*
0339 . p3p5*p2p3)*(-16*ffmcfmb+16)+(p3p7*p3p4*p2p3)*(16*ffmcfmb-16)+
0340 . 16*(-p2p3*p2p4*p3p7+p2p3s2*p4p7))+ans3
0341 ans1=w18*(16*(p4p5*p3p7)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p5p7*
0342 . p3p5)*(fmb*hbcm+fmc*hbcm-hbcm2)+24*(p4p7*p3p5)*(fmb*hbcm+fmc*
0343 . hbcm-hbcm2)+24*(p5p7*p3p4)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p4p7*
0344 . p3p4)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p3p7*p2p4)*(-fmb*hbcm-2*
0345 . fmc*hbcm)+16*(p4p7*p2p3)*(fmb*hbcm+2*fmc*hbcm)+8*(p3p7*p3p5)*(
0346 . -fmb*fmc+fmb*hbcm+fmc*hbcm-fmc2)+8*(p3p7*p3p4)*(-fmb*fmc-3*fmb
0347 . *hbcm+fmc*hbcm-fmc2)+16*p5p7*(-fmb*fmc*hbcm2+fmc*hbcm3-fmc2*
0348 . hbcm2)+16*p4p7*(-fmb*fmc*hbcm2+fmb*hbcm3-fmb2*hbcm2)+8*p3p7*(2
0349 . *ffmcfmb*p3p4s2-2*ffmcfmb*p3p5s2-fmb*fmc*hbcm2-2*fmb*fmc2*hbcm
0350 . -fmb2*hbcm2+2*fmc2*hbcm2-2*fmc3*hbcm-2*p3p4s2+2*p3p5s2)+16*(-
0351 . fmc*hbcm*p2p3*p5p7+fmc*hbcm*p2p5*p3p7-2*hbcm2*p2p4*p5p7+2*
0352 . hbcm2*p2p5*p4p7+p2p3*p3p4*p4p7+p2p3*p3p5*p4p7-p2p4*p3p4*p3p7-
0353 . p2p4*p3p5*p3p7))+ans2
0354 ans=ccc*ans1
0355 b(6)=ans
0356 ans4=8*(-fmb*hbcm2*p3p7*p5p8+2*fmb*p3p5*p3p7*p4p8-4*fmc*hbcm2*
0357 . p2p5*p7p8+4*fmc*hbcm2*p2p8*p5p7-2*fmc*p2p3*p3p4*p7p8+2*fmc*
0358 . p2p3*p3p5*p7p8+2*fmc*p2p8*p3p4*p3p7-2*fmc*p2p8*p3p5*p3p7-2*
0359 . hbcm*p2p3*p4p7*p4p8+2*hbcm*p2p3*p4p7*p5p8-4*hbcm*p2p3*p4p8*
0360 . p5p7-2*hbcm*p2p4*p3p4*p7p8+2*hbcm*p2p4*p3p5*p7p8+2*hbcm*p2p4*
0361 . p3p7*p4p8-2*hbcm*p2p4*p3p7*p5p8-4*hbcm*p2p5*p3p4*p7p8+4*hbcm*
0362 . p2p5*p3p7*p4p8+2*hbcm*p2p8*p3p4*p4p7+4*hbcm*p2p8*p3p4*p5p7-2*
0363 . hbcm*p2p8*p3p5*p4p7)
0364 ans3=16*(p5p8*p3p7*p3p4)*(fmc-hbcm)+16*(p4p8*p3p7*p3p4)*(fmb+
0365 . fmc-hbcm)+16*(p7p8*p3p5*p3p4)*(-fmb-fmc+hbcm)+8*(p5p8*p5p7)*(-
0366 . fmb*hbcm2-fmc*hbcm2+hbcm3)+8*(p5p7*p4p8)*(fmb*hbcm2+fmc*hbcm2-
0367 . hbcm3)+16*(p5p8*p4p7)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+16*(p7p8*
0368 . p4p5)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+8*(p4p8*p3p7)*(3*fmb*hbcm2-2
0369 . *fmb2*hbcm-2*fmc*hbcm2+2*fmc2*hbcm)+16*(p7p8*p3p4)*(-fmb*hbcm2
0370 . +fmb2*hbcm+fmc*hbcm2-fmc2*hbcm)+16*(p4p7*p2p8)*(-fmb*hbcm2+fmc
0371 . *hbcm2)+16*(p7p8*p2p4)*(fmb*hbcm2-fmc*hbcm2)+16*p7p8*(-fmb*fmc
0372 . *hbcm3+fmb*fmc2*hbcm2-fmb*p3p4s2+fmb2*fmc*hbcm2-fmc*p3p4s2+
0373 . hbcm*p3p4s2)+16*(p3p7*p2p8)*(-fmb*fmc*hbcm+fmc2*hbcm)+16*(p7p8
0374 . *p2p3)*(fmb*fmc*hbcm-fmc2*hbcm)+ans4
0375 ans2=w18*ans3
0376 ans5=(8*(p5p8*p3p7)*(8*fb3*fmc-8*fb3*hbcm-hbcm)+64*(p4p8*p3p7)*
0377 . (-fb3*fmc+fb3*hbcm-fb4*fmb)+64*(p7p8*p3p4)*(fb3*fmc-fb3*hbcm+
0378 . fb4*fmb)+16*(p3p7*p2p8)*(-4*fb3*fmc+hbcm)+16*(p7p8*p2p3)*(4*
0379 . fb3*fmc-hbcm)+4*p7p8*(-8*fb3*fmb*fmc*hbcm-8*fb3*fmc*hbcm2+8*
0380 . fb3*fmc2*hbcm+8*fb4*fmb*fmc*hbcm+8*fb4*fmc*hbcm2-8*fb4*fmc2*
0381 . hbcm+2*fmb*hbcm2+2*fmc*hbcm2-hbcm3)+8*(8*fb3*hbcm*p2p4*p7p8-8*
0382 . fb3*hbcm*p2p8*p4p7+hbcm*p3p5*p7p8))
0383 ans1=w1*(16*(p4p8*p3p7*p3p5)*(fmc-hbcm)+16*(p5p8*p3p7*p3p4)*(-
0384 . fmc+hbcm)+16*(p5p8*p3p7)*(fmc*hbcm2-fmc2*hbcm)+16*p7p8*(-fmb*
0385 . p3p4s2-fmc*p3p4s2+hbcm*p3p4s2)+16*(p4p8*p3p7*p3p4)*(fmb+fmc-
0386 . hbcm)+8*(p5p7*p4p8)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+8*(p4p8*p3p7)
0387 . *(4*fmb*fmc*hbcm-fmb*hbcm2-2*fmc*hbcm2+2*fmc2*hbcm)+16*(p7p8*
0388 . p3p4)*(-fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+16*(-fmc*hbcm2*p2p4*
0389 . p7p8+fmc*hbcm2*p2p8*p4p7-fmc*p2p3*p3p4*p7p8+fmc*p2p8*p3p4*p3p7
0390 . -fmc2*hbcm*p2p3*p7p8+fmc2*hbcm*p2p8*p3p7-hbcm*p2p3*p4p7*p4p8-
0391 . hbcm*p2p4*p3p4*p7p8+hbcm*p2p4*p3p7*p4p8+hbcm*p2p8*p3p4*p4p7))+
0392 . w8*(16*(p3p7*p3p5*p2p8)*(-fmc+hbcm)+32*(p3p7*p3p4*p2p8)*(fmc-
0393 . hbcm)+16*(p5p8*p3p7*p2p3)*(fmc-hbcm)+16*(p4p8*p3p7*p2p3)*(fmb-
0394 . fmc+hbcm)+16*(p7p8*p3p4*p2p3)*(-fmb-fmc+hbcm)+8*(p5p7*p2p8)*(
0395 . fmb*hbcm2+fmc*hbcm2-hbcm3)+16*(p4p7*p2p8)*(-fmb*hbcm2-fmc*
0396 . hbcm2+hbcm3)+16*(p7p8*p2p4)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+8*(
0397 . p3p7*p2p8)*(-2*fmb*fmc*hbcm+fmb*hbcm2-2*fmc*hbcm2+2*fmc2*hbcm)
0398 . +16*(-fmc*p2p3*p2p8*p3p7+fmc*p2p3s2*p7p8+hbcm*p2p3*p2p4*p7p8-
0399 . hbcm*p2p4*p2p8*p3p7))+ans2+ans5
0400 ans=ccc*ans1
0401 b(7)=ans
0402 ans3=((p3p6*p2p8)*(-64*fb4*ffmcfmb-8)+(p6p8*p2p3)*(-64*fb4*
0403 . ffmcfmb-8)+8*p6p8*(-8*fb3*fmb*fmc+4*fb3*fmb*hbcm+8*fb3*fmc*
0404 . hbcm-8*fb3*fmc2-8*fb4*fmb*fmc-4*fb4*fmb2+4*fb4*fmc*hbcm-4*fb4*
0405 . fmc2+fmb*hbcm+fmc*hbcm-hbcm2)+64*(-2*fb4*p2p4*p6p8+fb4*p2p5*
0406 . p6p8-fb4*p2p8*p4p6))
0407 ans2=w1*(8*(p5p6*p4p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p4p8*p4p6)*
0408 . (-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p6p8*p4p5)*(-fmb*hbcm-fmc*hbcm+
0409 . hbcm2)+16*(p4p8*p3p6)*(-fmb*fmc+fmc*hbcm-fmc2)+8*(p6p8*p3p4)*(
0410 . 4*fmb*fmc-fmb*hbcm+fmb2-3*fmc*hbcm+3*fmc2)+8*p6p8*(-fmb*fmc*
0411 . hbcm2+4*fmb*fmc2*hbcm+fmb2*fmc*hbcm-3*fmc2*hbcm2+3*fmc3*hbcm)+
0412 . 16*(ffmcfmb*p2p3*p3p4*p6p8+ffmcfmb*p2p8*p3p4*p3p6+3*fmc*hbcm*
0413 . p2p4*p6p8-fmc*hbcm*p2p5*p6p8+fmc*hbcm*p2p8*p4p6+2*fmc2*p2p3*
0414 . p6p8+fmc2*p2p8*p3p6+2*p2p4*p3p4*p6p8-p2p5*p3p4*p6p8+p2p8*p3p4*
0415 . p4p6))+w8*(8*(p5p6*p2p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+24*(p4p6*
0416 . p2p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p8*p2p5)*(-fmb*hbcm-fmc*
0417 . hbcm+hbcm2)+32*(p6p8*p2p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p3p6*
0418 . p2p8)*(fmb*fmc-fmc*hbcm+fmc2)+8*(p6p8*p2p3)*(4*fmb*fmc-fmb*
0419 . hbcm+fmb2-3*fmc*hbcm+3*fmc2)+16*(ffmcfmb*p2p3*p2p8*p3p6+
0420 . ffmcfmb*p2p3s2*p6p8+2*p2p3*p2p4*p6p8-p2p3*p2p5*p6p8+p2p3*p2p8*
0421 . p4p6))+ans3
0422 ans1=w18*(8*(p5p8*p5p6)*(fmb*hbcm+fmc*hbcm-hbcm2)+24*(p5p6*p4p8
0423 . )*(-fmb*hbcm-fmc*hbcm+hbcm2)+24*(p5p8*p4p6)*(fmb*hbcm+fmc*hbcm
0424 . -hbcm2)+8*(p4p8*p4p6)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p6p8*p4p5
0425 . )*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p4p6*p2p8)*(fmb*hbcm+fmc*hbcm)
0426 . +48*(p6p8*p2p4)*(fmb*hbcm+fmc*hbcm)+8*p6p8*(3*fmb*fmc2*hbcm-
0427 . fmb2*fmc*hbcm+fmb2*hbcm2-fmb3*hbcm-3*fmc2*hbcm2+3*fmc3*hbcm)+
0428 . 16*(p5p8*p3p6)*(fmb*fmc-fmc*hbcm+fmc2)+16*(p4p8*p3p6)*(-fmb*
0429 . fmc+fmc*hbcm-fmc2)+8*(p6p8*p3p5)*(4*fmb*fmc-fmb*hbcm+fmb2-3*
0430 . fmc*hbcm+3*fmc2)+8*(p6p8*p3p4)*(4*fmb*fmc-fmb*hbcm+fmb2-3*fmc*
0431 . hbcm+3*fmc2)+16*(p3p6*p2p8)*(fmb*fmc+fmc2)+32*(p6p8*p2p3)*(fmb
0432 . *fmc+fmc2)+16*(ffmcfmb*p2p3*p3p4*p6p8+ffmcfmb*p2p3*p3p5*p6p8+
0433 . ffmcfmb*p2p8*p3p4*p3p6+ffmcfmb*p2p8*p3p5*p3p6+2*p2p4*p3p4*p6p8
0434 . +2*p2p4*p3p5*p6p8-p2p5*p3p4*p6p8-p2p5*p3p5*p6p8+p2p8*p3p4*p4p6
0435 . +p2p8*p3p5*p4p6))+ans2
0436 ans=ccc*ans1
0437 b(8)=ans
0438 ans3=w1*(16*(p4p5*p3p6)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p5p6*p3p4)
0439 . *(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p4p6*p3p4)*(fmb*hbcm+fmc*hbcm-
0440 . hbcm2)+8*(p3p6*p3p4)*(-2*fmb*fmc+fmb*hbcm-fmb2+fmc*hbcm-fmc2)+
0441 . 8*p5p6*(-fmb*fmc*hbcm2+fmc*hbcm3-fmc2*hbcm2)+8*p3p6*(fmb*fmc*
0442 . hbcm2-3*fmb*fmc2*hbcm-fmb2*fmc*hbcm+2*fmc2*hbcm2-2*fmc3*hbcm)+
0443 . 16*(-2*ffmcfmb*p2p3*p3p4*p3p6-2*fmc*hbcm*p2p3*p4p6-2*fmc*hbcm*
0444 . p2p4*p3p6+fmc*hbcm*p2p5*p3p6-3*fmc2*p2p3*p3p6-p2p3*p3p4*p4p6-2
0445 . *p2p4*p3p4*p3p6+p2p5*p3p4*p3p6))+((p3p6*p2p3)*(128*fb4*ffmcfmb
0446 . +16)+32*p5p6*(fb3*fmb*hbcm+fb4*fmc*hbcm-fb4*hbcm2)+32*p4p6*(-
0447 . fb3*fmb*hbcm-fb4*fmc*hbcm+fb4*hbcm2)+8*p3p6*(8*fb3*fmb*fmc-4*
0448 . fb3*fmb*hbcm-8*fb3*fmc*hbcm+8*fb3*fmc2+8*fb4*fmb*fmc+4*fb4*
0449 . fmb2-4*fb4*fmc*hbcm+4*fb4*fmc2-fmb*hbcm-fmc*hbcm+hbcm2)+64*(
0450 . fb4*p2p3*p4p6+2*fb4*p2p4*p3p6-fb4*p2p5*p3p6))
0451 ans2=w18*(16*(p4p5*p3p6)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p5p6*
0452 . p3p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)+24*(p4p6*p3p5)*(-fmb*hbcm-fmc
0453 . *hbcm+hbcm2)+24*(p5p6*p3p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p4p6*
0454 . p3p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p3p6*p2p4)*(-3*fmb*hbcm-2*
0455 . fmc*hbcm)+16*(p4p6*p2p3)*(-fmb*hbcm-2*fmc*hbcm)+8*(p3p6*p3p5)*
0456 . (-6*fmb*fmc+fmb*hbcm-fmb2+5*fmc*hbcm-5*fmc2)+8*(p3p6*p3p4)*(-2
0457 . *fmb*fmc+fmb*hbcm-fmb2+fmc*hbcm-fmc2)+48*(p3p6*p2p3)*(-fmb*fmc
0458 . -fmc2)+16*p5p6*(fmb*fmc*hbcm2-fmc*hbcm3+fmc2*hbcm2)+16*p4p6*(
0459 . fmb*fmc*hbcm2-fmb*hbcm3+fmb2*hbcm2)+8*p3p6*(-fmb*fmc*hbcm2-fmb
0460 . *fmc2*hbcm+2*fmb2*fmc*hbcm-fmb2*hbcm2+fmb3*hbcm+2*fmc2*hbcm2-2
0461 . *fmc3*hbcm)+16*(-2*ffmcfmb*p2p3*p3p4*p3p6-2*ffmcfmb*p2p3*p3p5*
0462 . p3p6+fmc*hbcm*p2p3*p5p6-fmc*hbcm*p2p5*p3p6+2*hbcm2*p2p4*p5p6-2
0463 . *hbcm2*p2p5*p4p6-p2p3*p3p4*p4p6-p2p3*p3p5*p4p6-2*p2p4*p3p4*
0464 . p3p6-2*p2p4*p3p5*p3p6+p2p5*p3p4*p3p6+p2p5*p3p5*p3p6))+ans3
0465 ans1=w8*(16*(p3p6*p2p5)*(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p3p6*p2p4
0466 . )*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p5p6*p2p3)*(fmb*hbcm+fmc*hbcm-
0467 . hbcm2)+24*(p4p6*p2p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p3p6*p2p3)
0468 . *(-6*fmb*fmc+fmb*hbcm-fmb2+5*fmc*hbcm-5*fmc2)+16*(-2*ffmcfmb*
0469 . p2p3s2*p3p6-2*p2p3*p2p4*p3p6+p2p3*p2p5*p3p6-p2p3s2*p4p6))+ans2
0470 ans=ccc*ans1
0471 b(9)=ans
0472 ans5=16*(2*fmb*hbcm2*p2p4*p6p8-2*fmc*hbcm2*p2p5*p6p8-2*fmc*
0473 . hbcm2*p2p8*p5p6-4*fmc*p2p3*p3p4*p6p8+3*fmc*p2p3*p3p6*p4p8-3*
0474 . fmc*p2p3*p3p6*p5p8+fmc*p2p8*p3p4*p3p6+3*fmc*p2p8*p3p5*p3p6-2*
0475 . hbcm*p2p3*p4p5*p6p8+hbcm*p2p3*p4p6*p4p8-hbcm*p2p3*p4p6*p5p8+2*
0476 . hbcm*p2p3*p4p8*p5p6-hbcm*p2p4*p3p4*p6p8+3*hbcm*p2p4*p3p5*p6p8+
0477 . hbcm*p2p4*p3p6*p4p8-3*hbcm*p2p4*p3p6*p5p8-3*hbcm*p2p5*p3p4*
0478 . p6p8+hbcm*p2p5*p3p5*p6p8+3*hbcm*p2p5*p3p6*p4p8-hbcm*p2p5*p3p6*
0479 . p5p8-hbcm*p2p8*p3p4*p4p6-2*hbcm*p2p8*p3p4*p5p6+hbcm*p2p8*p3p5*
0480 . p4p6+2*hbcm*p2p8*p3p6*p4p5)
0481 ans4=16*(p5p8*p3p6*p3p5)*(-fmb-fmc+hbcm)+16*(p4p8*p3p6*p3p5)*(
0482 . fmb+fmc-hbcm)+16*(p5p8*p3p6*p3p4)*(-fmb-fmc+hbcm)+16*(p4p8*
0483 . p3p6*p3p4)*(fmb+fmc-hbcm)+8*(p5p8*p5p6)*(fmb*hbcm2+fmc*hbcm2-
0484 . hbcm3)+8*(p5p6*p4p8)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+16*(p5p8*
0485 . p4p6)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+8*(p6p8*p3p5)*(fmb*hbcm2-
0486 . fmb2*hbcm-fmc*hbcm2+fmc2*hbcm)+24*(p6p8*p3p4)*(-fmb*hbcm2+fmb2
0487 . *hbcm+fmc*hbcm2-fmc2*hbcm)+16*(p4p6*p2p8)*(fmb*hbcm2-fmc*hbcm2
0488 . )+8*p6p8*(-2*fmb*fmc*hbcm3+fmb*fmc2*hbcm2-2*fmb*p3p4s2+2*fmb*
0489 . p3p5s2+fmb2*fmc*hbcm2+fmb2*hbcm3-fmb3*hbcm2-2*fmc*p3p4s2+2*fmc
0490 . *p3p5s2+fmc2*hbcm3-fmc3*hbcm2+2*hbcm*p3p4s2-2*hbcm*p3p5s2)+8*(
0491 . p5p8*p3p6)*(fmb*fmc*hbcm-fmb*hbcm2+fmb2*hbcm)+8*(p4p8*p3p6)*(-
0492 . fmb*fmc*hbcm+3*fmb*hbcm2-3*fmb2*hbcm-2*fmc*hbcm2+2*fmc2*hbcm)+
0493 . 16*(p3p6*p2p8)*(fmb*fmc*hbcm+fmc2*hbcm)+16*(p6p8*p2p3)*(fmb*
0494 . fmc*hbcm-3*fmc2*hbcm)+ans5
0495 ans3=w18*ans4
0496 ans6=(8*(p3p6*p2p8)*(-8*fb4*fmc+3*hbcm)+64*(p5p8*p3p6)*(fb3*fmc
0497 . -fb3*hbcm+fb4*fmb)+64*(p4p8*p3p6)*(-fb3*fmc+fb3*hbcm-fb4*fmb)+
0498 . 64*(p6p8*p3p5)*(-fb3*fmc+fb3*hbcm-fb4*fmb)+64*(p6p8*p3p4)*(fb3
0499 . *fmc-fb3*hbcm+fb4*fmb)+8*(p6p8*p2p3)*(8*fb3*fmc+8*fb4*fmc-3*
0500 . hbcm)+4*p6p8*(-8*fb3*fmb*fmc*hbcm+8*fb3*fmb2*hbcm+8*fb4*fmb*
0501 . fmc*hbcm-8*fb4*fmb*hbcm2+8*fb4*fmc*hbcm2-8*fb4*fmc2*hbcm+fmb*
0502 . hbcm2+fmc*hbcm2-hbcm3)+64*(fb3*hbcm*p2p4*p6p8-fb3*hbcm*p2p5*
0503 . p6p8+fb3*hbcm*p2p8*p4p6))
0504 ans2=w8*(16*(p5p8*p3p6*p2p3)*(-fmb-fmc+hbcm)+16*(p4p8*p3p6*p2p3
0505 . )*(fmb+fmc-hbcm)+16*(p6p8*p3p5*p2p3)*(fmb+fmc-hbcm)+16*(p6p8*
0506 . p3p4*p2p3)*(-fmb-fmc+hbcm)+8*(p5p6*p2p8)*(-fmb*hbcm2-fmc*hbcm2
0507 . +hbcm3)+16*(p4p6*p2p8)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+16*(p6p8*
0508 . p2p5)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+16*(p6p8*p2p4)*(fmb*hbcm2+
0509 . fmc*hbcm2-hbcm3)+8*(p6p8*p2p3)*(-fmb*hbcm2+fmb2*hbcm+fmc*hbcm2
0510 . -fmc2*hbcm)+8*(p3p6*p2p8)*(fmb*fmc*hbcm+fmb*hbcm2-fmb2*hbcm-2*
0511 . fmc*hbcm2+2*fmc2*hbcm)+16*(hbcm*p2p3*p2p4*p6p8-hbcm*p2p3*p2p5*
0512 . p6p8-hbcm*p2p4*p2p8*p3p6+hbcm*p2p5*p2p8*p3p6))+ans3+ans6
0513 ans1=w1*(16*(p5p8*p3p6*p3p4)*(-fmb-fmc+hbcm)+16*(p4p8*p3p6*p3p4
0514 . )*(fmb+fmc-hbcm)+16*(p6p8*p3p5*p3p4)*(fmb+fmc-hbcm)+8*(p5p6*
0515 . p4p8)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+16*(p6p8*p4p5)*(-fmb*hbcm2-
0516 . fmc*hbcm2+hbcm3)+8*p6p8*(fmb*fmc*hbcm3-2*fmb*fmc2*hbcm2-2*fmb*
0517 . p3p4s2-fmb2*fmc*hbcm2-2*fmc*p3p4s2+fmc2*hbcm3-fmc3*hbcm2+2*
0518 . hbcm*p3p4s2)+16*(p5p8*p3p6)*(-fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm
0519 . )+8*(p4p8*p3p6)*(3*fmb*fmc*hbcm-fmb*hbcm2+fmb2*hbcm-2*fmc*
0520 . hbcm2+2*fmc2*hbcm)+16*(p6p8*p3p5)*(fmb*fmc*hbcm-fmc*hbcm2+fmc2
0521 . *hbcm)+8*(p6p8*p3p4)*(-4*fmb*fmc*hbcm+fmb*hbcm2-fmb2*hbcm+3*
0522 . fmc*hbcm2-3*fmc2*hbcm)+16*(fmc*hbcm2*p2p5*p6p8-fmc*hbcm2*p2p8*
0523 . p4p6-4*fmc*p2p3*p3p4*p6p8+3*fmc*p2p3*p3p6*p4p8+fmc*p2p8*p3p4*
0524 . p3p6-3*fmc2*hbcm*p2p3*p6p8+fmc2*hbcm*p2p8*p3p6+hbcm*p2p3*p4p6*
0525 . p4p8-hbcm*p2p4*p3p4*p6p8+hbcm*p2p4*p3p6*p4p8+hbcm*p2p5*p3p4*
0526 . p6p8-hbcm*p2p5*p3p6*p4p8-hbcm*p2p8*p3p4*p4p6))+ans2
0527 ans=ccc*ans1
0528 b(10)=ans
0529 ans4=16*(p3p7*p3p6*p3p4)*(-2*ffmcfmb*fmb-ffmcfmb*fmc+fmb+fmc)+
0530 . 16*(-2*fmb*hbcm2*p2p4*p6p7+2*fmc*hbcm2*p2p5*p6p7+4*fmc*p2p3*
0531 . p3p4*p6p7-2*fmc*p2p3*p3p6*p4p7+4*fmc*p2p3*p3p6*p5p7+2*fmc*p2p4
0532 . *p3p6*p3p7-4*fmc*p2p5*p3p6*p3p7+2*hbcm*p2p3*p4p5*p6p7+2*hbcm*
0533 . p2p3*p4p6*p5p7-2*hbcm*p2p3*p4p7*p5p6+hbcm*p2p4*p3p4*p6p7-3*
0534 . hbcm*p2p4*p3p5*p6p7+4*hbcm*p2p4*p3p6*p5p7+2*hbcm*p2p4*p3p7*
0535 . p5p6+3*hbcm*p2p5*p3p4*p6p7-hbcm*p2p5*p3p5*p6p7-4*hbcm*p2p5*
0536 . p3p6*p4p7-2*hbcm*p2p5*p3p7*p4p6)
0537 ans3=16*(p5p6*p3p7*p3p5)*(fmc-hbcm)+16*(p5p6*p3p7*p3p4)*(-fmc+
0538 . hbcm)+16*(p4p6*p3p7*p3p5)*(-fmb+fmc-hbcm)+16*(p5p7*p3p6*p3p5)*
0539 . (fmb+fmc-hbcm)+16*(p4p7*p3p6*p3p5)*(-fmb-fmc+hbcm)+16*(p4p6*
0540 . p3p7*p3p4)*(-fmb-fmc+hbcm)+16*(p5p7*p3p6*p3p4)*(fmb+fmc-hbcm)+
0541 . 16*(p4p7*p3p6*p3p4)*(-fmb-fmc+hbcm)+16*(p5p6*p4p7)*(fmb*hbcm2+
0542 . fmc*hbcm2-hbcm3)+16*(p5p7*p4p6)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+
0543 . 16*(p4p6*p3p7)*(-2*fmb*hbcm2+fmb2*hbcm+fmc*hbcm2-fmc2*hbcm)+8*
0544 . (p6p7*p3p5)*(-fmb*hbcm2+fmb2*hbcm+fmc*hbcm2-fmc2*hbcm)+24*(
0545 . p6p7*p3p4)*(fmb*hbcm2-fmb2*hbcm-fmc*hbcm2+fmc2*hbcm)+8*p6p7*(2
0546 . *fmb*fmc*hbcm3-fmb*fmc2*hbcm2+2*fmb*p3p4s2-2*fmb*p3p5s2-fmb2*
0547 . fmc*hbcm2-fmb2*hbcm3+fmb3*hbcm2+2*fmc*p3p4s2-2*fmc*p3p5s2-fmc2
0548 . *hbcm3+fmc3*hbcm2-2*hbcm*p3p4s2+2*hbcm*p3p5s2)+16*(p4p7*p3p6)*
0549 . (fmb*fmc*hbcm-2*fmb*hbcm2+2*fmb2*hbcm+fmc*hbcm2-fmc2*hbcm)+16*
0550 . (p3p7*p3p6)*(-2*fmb*fmc*hbcm+fmb2*fmc+fmb2*hbcm+fmc2*hbcm-fmc3
0551 . )+16*(p6p7*p2p3)*(-fmb*fmc*hbcm+3*fmc2*hbcm)+16*(p3p7*p3p6*
0552 . p3p5)*(-2*ffmcfmb*fmb+ffmcfmb*fmc+fmb-fmc)+ans4
0553 ans2=w18*ans3
0554 ans7=(16*(p3p7*p3p6)*(8*fb4*ffmcfmb*fmb-4*fb4*ffmcfmb*fmc-4*fb4
0555 . *fmb+4*fb4*fmc+fmb+fmc-hbcm)+8*(p5p6*p3p7)*(-8*fb3*fmc+8*fb3*
0556 . hbcm+hbcm)+64*(p4p6*p3p7)*(fb3*fmc-fb3*hbcm+fb4*fmb)+64*(p5p7*
0557 . p3p6)*(-fb3*fmc+fb3*hbcm-fb4*fmb)+64*(p4p7*p3p6)*(fb3*fmc-fb3*
0558 . hbcm+fb4*fmb)+64*(p6p7*p3p5)*(fb3*fmc-fb3*hbcm+fb4*fmb)+64*(
0559 . p6p7*p3p4)*(-fb3*fmc+fb3*hbcm-fb4*fmb)+16*(p6p7*p2p3)*(-4*fb3*
0560 . fmc-4*fb4*fmc+hbcm)+8*p6p7*(4*fb3*fmb*fmc*hbcm-4*fb3*fmb2*hbcm
0561 . -4*fb4*fmb*fmc*hbcm+4*fb4*fmb*hbcm2-4*fb4*fmc*hbcm2+4*fb4*fmc2
0562 . *hbcm-fmb*hbcm2-fmc*hbcm2+hbcm3)+64*(-fb3*hbcm*p2p4*p6p7+fb3*
0563 . hbcm*p2p5*p6p7))
0564 ans6=w8*(32*(p3p7*p3p6*p2p5)*(-fmc+hbcm)+32*(p3p7*p3p6*p2p4)*(
0565 . fmc-hbcm)+16*(p5p6*p3p7*p2p3)*(-fmc+hbcm)+16*(p4p6*p3p7*p2p3)*
0566 . (-fmb+fmc-hbcm)+16*(p5p7*p3p6*p2p3)*(fmb+fmc-hbcm)+16*(p4p7*
0567 . p3p6*p2p3)*(-fmb-fmc+hbcm)+16*(p6p7*p3p5*p2p3)*(-fmb-fmc+hbcm)
0568 . +16*(p6p7*p3p4*p2p3)*(fmb+fmc-hbcm)+16*(p6p7*p2p5)*(fmb*hbcm2+
0569 . fmc*hbcm2-hbcm3)+16*(p6p7*p2p4)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+8
0570 . *(p6p7*p2p3)*(fmb*hbcm2-fmb2*hbcm-fmc*hbcm2+fmc2*hbcm)+16*(
0571 . p3p7*p3p6*p2p3)*(-2*ffmcfmb*fmb+ffmcfmb*fmc+fmb-fmc)+16*(-hbcm
0572 . *p2p3*p2p4*p6p7+hbcm*p2p3*p2p5*p6p7))+ans7
0573 ans5=w1*(32*(p4p5*p3p7*p3p6)*(-fmc+hbcm)+16*(p5p6*p3p7*p3p4)*(
0574 . fmc-hbcm)+16*(p5p6*p3p7)*(-fmc*hbcm2+fmc2*hbcm)+16*(p4p6*p3p7*
0575 . p3p4)*(-fmb-fmc+hbcm)+16*(p5p7*p3p6*p3p4)*(fmb+fmc-hbcm)+16*(
0576 . p4p7*p3p6*p3p4)*(-fmb-fmc+hbcm)+16*(p6p7*p3p5*p3p4)*(-fmb-fmc+
0577 . hbcm)+16*(p6p7*p4p5)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+8*p6p7*(-fmb*
0578 . fmc*hbcm3+2*fmb*fmc2*hbcm2+2*fmb*p3p4s2+fmb2*fmc*hbcm2+2*fmc*
0579 . p3p4s2-fmc2*hbcm3+fmc3*hbcm2-2*hbcm*p3p4s2)+16*(p4p6*p3p7)*(-2
0580 . *fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+16*(p5p7*p3p6)*(fmb*fmc*
0581 . hbcm-fmc*hbcm2+fmc2*hbcm)+16*(p4p7*p3p6)*(-fmb*fmc*hbcm+fmc*
0582 . hbcm2-fmc2*hbcm)+16*(p3p7*p3p6)*(fmb*fmc*hbcm-3*fmb*fmc2+fmc2*
0583 . hbcm-fmc3)+16*(p6p7*p3p5)*(-fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+
0584 . 8*(p6p7*p3p4)*(4*fmb*fmc*hbcm-fmb*hbcm2+fmb2*hbcm-3*fmc*hbcm2+
0585 . 3*fmc2*hbcm)+16*(p3p7*p3p6*p3p4)*(-2*ffmcfmb*fmb-ffmcfmb*fmc+
0586 . fmb+fmc)+16*(-fmc*hbcm2*p2p5*p6p7+4*fmc*p2p3*p3p4*p6p7-2*fmc*
0587 . p2p3*p3p6*p4p7+2*fmc*p2p4*p3p6*p3p7+3*fmc2*hbcm*p2p3*p6p7+hbcm
0588 . *p2p4*p3p4*p6p7-hbcm*p2p5*p3p4*p6p7))+ans6
0589 ans1=ans2+ans5
0590 ans=ccc*ans1
0591 b(11)=ans
0592 ans5=16*(p6p8*p3p7)*(2*ffmcfmb*p3p5s2-fmb*fmc2*hbcm+fmb3*hbcm+2
0593 . *fmc2*hbcm2-2*fmc3*hbcm-2*p3p5s2)+(p5p8*p3p7*p3p6*p3p5)*(-32*
0594 . ffmcfmb+32)+(p5p8*p3p7*p3p6*p3p4)*(-32*ffmcfmb+32)+(p6p8*p3p7*
0595 . p3p5*p3p4)*(32*ffmcfmb-32)+16*(2*ffmcfmb*p2p3*p3p4*p3p6*p7p8-2
0596 . *ffmcfmb*p2p3*p3p4*p3p7*p6p8+2*ffmcfmb*p2p3*p3p5*p3p6*p7p8-2*
0597 . ffmcfmb*p2p3*p3p5*p3p7*p6p8-4*ffmcfmb*p2p8*p3p4*p3p6*p3p7-4*
0598 . ffmcfmb*p2p8*p3p5*p3p6*p3p7-fmb*hbcm*p3p7*p5p6*p5p8-fmc*hbcm*
0599 . p2p3*p5p8*p6p7-2*hbcm2*p2p4*p5p6*p7p8+2*hbcm2*p2p4*p5p7*p6p8-2
0600 . *hbcm2*p2p4*p5p8*p6p7+2*hbcm2*p2p5*p4p6*p7p8-2*hbcm2*p2p5*p4p7
0601 . *p6p8+hbcm2*p2p5*p4p8*p6p7-hbcm2*p2p5*p5p8*p6p7-2*hbcm2*p2p8*
0602 . p4p6*p5p7+2*hbcm2*p2p8*p4p7*p5p6+2*p2p3*p3p4*p4p6*p7p8-2*p2p3*
0603 . p3p4*p4p7*p6p8+2*p2p3*p3p4*p4p8*p6p7+2*p2p3*p3p5*p4p6*p7p8-2*
0604 . p2p3*p3p5*p4p7*p6p8+2*p2p3*p3p5*p4p8*p6p7+2*p2p4*p3p4*p3p6*
0605 . p7p8-2*p2p4*p3p4*p3p7*p6p8+2*p2p4*p3p5*p3p6*p7p8-2*p2p4*p3p5*
0606 . p3p7*p6p8-2*p2p5*p3p4*p3p6*p7p8+2*p2p5*p3p4*p3p7*p6p8-2*p2p5*
0607 . p3p5*p3p6*p7p8+2*p2p5*p3p5*p3p7*p6p8-2*p2p8*p3p4*p3p6*p4p7+2*
0608 . p2p8*p3p4*p3p6*p5p7-4*p2p8*p3p4*p3p7*p4p6-2*p2p8*p3p5*p3p6*
0609 . p4p7+2*p2p8*p3p5*p3p6*p5p7-4*p2p8*p3p5*p3p7*p4p6)
0610 ans4=32*(p4p7*p3p6*p2p8)*(-2*fmb*hbcm-fmc*hbcm)+16*(p6p7*p3p5*
0611 . p2p8)*(-fmb*hbcm-fmc*hbcm)+48*(p6p7*p3p4*p2p8)*(fmb*hbcm+fmc*
0612 . hbcm)+32*(p6p8*p3p7*p2p4)*(-2*fmb*hbcm-fmc*hbcm)+32*(p7p8*p3p6
0613 . *p2p4)*(2*fmb*hbcm+fmc*hbcm)+16*(p6p7*p4p8*p2p3)*(2*fmb*hbcm+3
0614 . *fmc*hbcm)+32*(p6p8*p4p7*p2p3)*(-fmb*hbcm-2*fmc*hbcm)+32*(p7p8
0615 . *p4p6*p2p3)*(fmb*hbcm+2*fmc*hbcm)+16*(p7p8*p3p6)*(fmb*fmc2*
0616 . hbcm-fmb2*fmc*hbcm+fmb2*hbcm2-fmb3*hbcm-fmc2*hbcm2+fmc3*hbcm)+
0617 . 16*(p5p8*p3p7*p3p6)*(-fmb*fmc+fmb*hbcm+fmc*hbcm-fmc2)+16*(p4p8
0618 . *p3p7*p3p6)*(fmb*fmc-fmb*hbcm-fmc*hbcm+fmc2)+16*(p6p8*p3p7*
0619 . p3p5)*(-2*fmb*fmc-fmb2+fmc*hbcm-fmc2)+16*(p7p8*p3p6*p3p5)*(3*
0620 . fmb*fmc-fmb*hbcm+fmb2-2*fmc*hbcm+2*fmc2)+16*(p6p8*p3p7*p3p4)*(
0621 . -2*fmb*fmc+2*fmb*hbcm-fmb2+fmc*hbcm-fmc2)+16*(p7p8*p3p6*p3p4)*
0622 . (fmb*fmc-fmb*hbcm+fmb2)+96*(p3p7*p3p6*p2p8)*(-fmb*fmc-fmc2)+64
0623 . *(p6p8*p3p7*p2p3)*(-fmb*fmc-fmc2)+64*(p7p8*p3p6*p2p3)*(fmb*fmc
0624 . +fmc2)+16*(p6p7*p2p8)*(2*fmb*fmc*hbcm2+fmb2*hbcm2+fmc2*hbcm2+2
0625 . *p3p4s2-2*p3p5s2)+ans5
0626 ans3=16*(p4p8*p4p6*p3p7)*(fmc*hbcm-hbcm2)+32*(p6p8*p4p5*p3p7)*(
0627 . -fmc*hbcm+hbcm2)+8*(p6p7*p5p8)*(-fmb*hbcm3+fmb2*hbcm2+fmc*
0628 . hbcm3-fmc2*hbcm2)+8*(p6p7*p4p8)*(fmb*hbcm3-fmb2*hbcm2-fmc*
0629 . hbcm3+fmc2*hbcm2)+16*(p6p8*p4p7)*(-fmb*hbcm3+fmb2*hbcm2+fmc*
0630 . hbcm3-fmc2*hbcm2)+16*(p7p8*p4p6)*(fmb*hbcm3-fmb2*hbcm2-fmc*
0631 . hbcm3+fmc2*hbcm2)+16*(p5p6*p4p8*p3p7)*(fmb*hbcm+2*fmc*hbcm-2*
0632 . hbcm2)+16*(p5p8*p4p6*p3p7)*(-2*fmb*hbcm-fmc*hbcm+hbcm2)+16*(
0633 . p5p8*p5p7*p3p6)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p5p7*p4p8*p3p6)*
0634 . (-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p5p8*p4p7*p3p6)*(fmb*hbcm+fmc*
0635 . hbcm-hbcm2)+16*(p6p8*p5p7*p3p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*
0636 . (p7p8*p5p6*p3p5)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p7*p4p8*p3p5)
0637 . *(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p6p8*p4p7*p3p5)*(-fmb*hbcm-fmc*
0638 . hbcm+hbcm2)+32*(p7p8*p4p6*p3p5)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(
0639 . p6p7*p5p8*p3p4)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p6p8*p5p7*p3p4)
0640 . *(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p7p8*p5p6*p3p4)*(-fmb*hbcm-fmc*
0641 . hbcm+hbcm2)+32*(p4p6*p3p7*p2p8)*(-2*fmb*hbcm-3*fmc*hbcm)+ans4
0642 ans2=w18*ans3
0643 ans8=16*(p7p8*p3p6)*(-fmb*fmc*hbcm2+2*fmb*fmc2*hbcm+fmb2*fmc*
0644 . hbcm-fmc2*hbcm2+fmc3*hbcm)+16*(p6p7*p2p8)*(-fmb*fmc*hbcm2+fmc2
0645 . *hbcm2+2*p3p4s2)+(p5p8*p3p7*p3p6*p3p4)*(-32*ffmcfmb+32)+(p6p8*
0646 . p3p7*p3p5*p3p4)*(32*ffmcfmb-32)+16*(2*ffmcfmb*p2p3*p3p4*p3p6*
0647 . p7p8-2*ffmcfmb*p2p3*p3p4*p3p7*p6p8-4*ffmcfmb*p2p8*p3p4*p3p6*
0648 . p3p7+2*fmb*hbcm*p3p7*p4p5*p6p8-fmb*hbcm*p3p7*p4p8*p5p6+4*fmc*
0649 . hbcm*p2p3*p4p6*p7p8-4*fmc*hbcm*p2p3*p4p7*p6p8+3*fmc*hbcm*p2p3*
0650 . p4p8*p6p7+2*fmc*hbcm*p2p4*p3p6*p7p8-2*fmc*hbcm*p2p4*p3p7*p6p8-
0651 . 2*fmc*hbcm*p2p5*p3p6*p7p8+2*fmc*hbcm*p2p5*p3p7*p6p8-2*fmc*hbcm
0652 . *p2p8*p3p5*p6p7-2*fmc*hbcm*p2p8*p3p6*p4p7+2*fmc*hbcm*p2p8*p3p6
0653 . *p5p7-6*fmc*hbcm*p2p8*p3p7*p4p6+4*fmc2*p2p3*p3p6*p7p8-4*fmc2*
0654 . p2p3*p3p7*p6p8-6*fmc2*p2p8*p3p6*p3p7-hbcm2*p2p5*p4p8*p6p7+2*
0655 . hbcm2*p2p8*p4p5*p6p7+2*p2p3*p3p4*p4p6*p7p8-2*p2p3*p3p4*p4p7*
0656 . p6p8+2*p2p3*p3p4*p4p8*p6p7+2*p2p4*p3p4*p3p6*p7p8-2*p2p4*p3p4*
0657 . p3p7*p6p8-2*p2p5*p3p4*p3p6*p7p8+2*p2p5*p3p4*p3p7*p6p8-2*p2p8*
0658 . p3p4*p3p5*p6p7-2*p2p8*p3p4*p3p6*p4p7+2*p2p8*p3p4*p3p6*p5p7-4*
0659 . p2p8*p3p4*p3p7*p4p6)
0660 ans7=16*(p4p8*p4p6*p3p7)*(fmc*hbcm-hbcm2)+32*(p5p8*p3p7*p3p6)*(
0661 . fmc*hbcm-fmc2)+32*(p6p8*p3p7*p3p5)*(-fmc*hbcm+fmc2)+16*(p6p8*
0662 . p3p7*p3p4)*(-fmb2+fmc*hbcm-fmc2)+16*(p5p7*p4p8*p3p6)*(fmb*hbcm
0663 . +fmc*hbcm-hbcm2)+32*(p7p8*p4p5*p3p6)*(-fmb*hbcm-fmc*hbcm+hbcm2
0664 . )+16*(p6p7*p4p8*p3p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p6p7*p5p8
0665 . *p3p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p8*p5p7*p3p4)*(-fmb*
0666 . hbcm-fmc*hbcm+hbcm2)+16*(p7p8*p5p6*p3p4)*(fmb*hbcm+fmc*hbcm-
0667 . hbcm2)+16*(p6p7*p3p4*p2p8)*(-fmb*hbcm+3*fmc*hbcm)+16*(p6p8*
0668 . p3p7)*(-fmb*fmc2*hbcm-fmb2*fmc*hbcm+2*fmc2*hbcm2-2*fmc3*hbcm)+
0669 . 16*(p4p8*p3p7*p3p6)*(-fmb*fmc+fmb*hbcm-fmc*hbcm+fmc2)+16*(p7p8
0670 . *p3p6*p3p4)*(fmb*fmc-fmb*hbcm+fmb2)+16*(p6p7*p5p8)*(fmb*fmc*
0671 . hbcm2-fmc*hbcm3+fmc2*hbcm2)+16*(p6p8*p5p7)*(-fmb*fmc*hbcm2+fmc
0672 . *hbcm3-fmc2*hbcm2)+16*(p7p8*p5p6)*(fmb*fmc*hbcm2-fmc*hbcm3+
0673 . fmc2*hbcm2)+8*(p6p7*p4p8)*(2*fmb*fmc*hbcm2-fmb*hbcm3+fmb2*
0674 . hbcm2-fmc*hbcm3+fmc2*hbcm2)+16*(p6p8*p4p7)*(-fmb*fmc*hbcm2+fmc
0675 . *hbcm3-fmc2*hbcm2)+16*(p7p8*p4p6)*(fmb*fmc*hbcm2-fmc*hbcm3+
0676 . fmc2*hbcm2)+ans8
0677 ans6=w1*ans7
0678 ans11=8*(p6p7*p2p8)*(4*fmb*fmc*hbcm2-fmb*hbcm3+fmb2*hbcm2-3*fmc
0679 . *hbcm3+3*fmc2*hbcm2)+(p5p8*p3p7*p3p6*p2p3)*(-32*ffmcfmb+32)+(
0680 . p6p8*p3p7*p3p5*p2p3)*(32*ffmcfmb-32)+16*(-4*ffmcfmb*p2p3*p2p8*
0681 . p3p6*p3p7+2*ffmcfmb*p2p3s2*p3p6*p7p8-2*ffmcfmb*p2p3s2*p3p7*
0682 . p6p8+2*fmb*hbcm*p2p5*p3p7*p6p8+hbcm2*p2p5*p2p8*p6p7+2*p2p3*
0683 . p2p4*p3p6*p7p8-2*p2p3*p2p4*p3p7*p6p8-2*p2p3*p2p5*p3p6*p7p8+2*
0684 . p2p3*p2p5*p3p7*p6p8+2*p2p3*p2p8*p3p4*p6p7-2*p2p3*p2p8*p3p5*
0685 . p6p7-2*p2p3*p2p8*p3p6*p4p7+2*p2p3*p2p8*p3p6*p5p7-4*p2p3*p2p8*
0686 . p3p7*p4p6+2*p2p3s2*p4p6*p7p8-2*p2p3s2*p4p7*p6p8+2*p2p3s2*p4p8*
0687 . p6p7)
0688 ans10=16*(p5p6*p3p7*p2p8)*(fmb*hbcm+2*fmc*hbcm-2*hbcm2)+16*(
0689 . p4p6*p3p7*p2p8)*(-4*fmb*hbcm-5*fmc*hbcm+5*hbcm2)+16*(p5p7*p3p6
0690 . *p2p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p4p7*p3p6*p2p8)*(-fmb*
0691 . hbcm-fmc*hbcm+hbcm2)+16*(p6p7*p3p5*p2p8)*(-fmb*hbcm-fmc*hbcm+
0692 . hbcm2)+32*(p6p7*p3p4*p2p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p7p8*
0693 . p3p6*p2p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p6p8*p3p7*p2p4)*(-
0694 . fmb*hbcm-fmc*hbcm+hbcm2)+32*(p7p8*p3p6*p2p4)*(fmb*hbcm+fmc*
0695 . hbcm-hbcm2)+16*(p6p7*p5p8*p2p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*
0696 . (p6p8*p5p7*p2p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p7p8*p5p6*p2p3)
0697 . *(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p6p7*p4p8*p2p3)*(fmb*hbcm+fmc*
0698 . hbcm-hbcm2)+32*(p6p8*p4p7*p2p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*
0699 . (p7p8*p4p6*p2p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p7*p2p8*p2p3)
0700 . *(fmb*hbcm+2*fmc*hbcm)+16*(p3p7*p3p6*p2p8)*(-5*fmb*fmc+fmb*
0701 . hbcm+5*fmc*hbcm-5*fmc2)+16*(p6p8*p3p7*p2p3)*(-4*fmb*fmc+2*fmb*
0702 . hbcm-fmb2+3*fmc*hbcm-3*fmc2)+16*(p7p8*p3p6*p2p3)*(3*fmb*fmc-
0703 . fmb*hbcm+fmb2-2*fmc*hbcm+2*fmc2)+ans11
0704 ans9=w8*ans10
0705 ans12=((p5p8*p3p7*p3p6)*(128*fb4*ffmcfmb-128*fb4+16)+(p6p8*p3p7
0706 . *p3p5)*(-128*fb4*ffmcfmb+128*fb4-16)+(p3p7*p3p6*p2p8)*(256*fb4
0707 . *ffmcfmb+32)+(p6p8*p3p7*p2p3)*(128*fb4*ffmcfmb+16)+(p7p8*p3p6*
0708 . p2p3)*(-128*fb4*ffmcfmb-16)+64*(p6p7*p5p8)*(-fb3*fmb*hbcm-fb4*
0709 . fmc*hbcm+fb4*hbcm2)+64*(p6p8*p5p7)*(fb3*fmb*hbcm+fb4*fmc*hbcm-
0710 . fb4*hbcm2)+8*(p7p8*p5p6)*(-8*fb3*fmb*hbcm-8*fb4*fmc*hbcm+8*fb4
0711 . *hbcm2+hbcm2)+8*(p6p7*p2p8)*(8*fb3*fmb*hbcm+8*fb3*fmc*hbcm-3*
0712 . hbcm2)+8*(p6p8*p3p7)*(8*fb3*fmb*fmc-8*fb3*fmc*hbcm+8*fb3*fmc2+
0713 . 8*fb4*fmb*fmc+8*fb4*fmb2-fmb*hbcm-fmc*hbcm)+8*(p7p8*p3p6)*(-16
0714 . *fb3*fmb*fmc+8*fb3*fmb*hbcm+8*fb3*fmc*hbcm-8*fb3*fmc2-8*fb4*
0715 . fmb*fmc-8*fb4*fmb2+8*fb4*fmc*hbcm-8*fb4*fmc2+fmb*hbcm+3*fmc*
0716 . hbcm-2*hbcm2)+8*(-16*fb4*p2p3*p4p6*p7p8+16*fb4*p2p3*p4p7*p6p8-
0717 . 16*fb4*p2p3*p4p8*p6p7-16*fb4*p2p4*p3p6*p7p8+16*fb4*p2p4*p3p7*
0718 . p6p8+16*fb4*p2p5*p3p6*p7p8-16*fb4*p2p5*p3p7*p6p8-16*fb4*p2p8*
0719 . p3p4*p6p7+16*fb4*p2p8*p3p5*p6p7+16*fb4*p2p8*p3p6*p4p7-16*fb4*
0720 . p2p8*p3p6*p5p7+32*fb4*p2p8*p3p7*p4p6+hbcm2*p4p6*p7p8))
0721 ans1=ans2+ans6+ans9+ans12
0722 ans=ccc*ans1
0723 b(12)=ans
0724 ans=ccc*(w18*(8*(p5p8*p3p5)*(fmb+fmc-hbcm)+16*(p4p8*p3p5)*(-fmb
0725 . -fmc+hbcm)+8*(p5p8*p3p4)*(fmb+fmc-hbcm)+16*(p4p8*p3p4)*(-fmb-
0726 . fmc+hbcm)+4*p5p8*(fmb*hbcm2-fmb2*hbcm-fmc*hbcm2+fmc2*hbcm)+20*
0727 . p4p8*(-fmb*hbcm2+fmb2*hbcm+fmc*hbcm2-fmc2*hbcm)+8*(-3*fmc*p2p3
0728 . *p4p8+3*fmc*p2p3*p5p8-2*fmc*p2p8*p3p4-2*fmc*p2p8*p3p5-2*fmc2*
0729 . hbcm*p2p8-2*hbcm*p2p4*p4p8+4*hbcm*p2p4*p5p8-5*hbcm*p2p5*p4p8+
0730 . hbcm*p2p5*p5p8-2*hbcm*p2p8*p4p5))+w8*(8*(p5p8*p2p3)*(fmb+fmc-
0731 . hbcm)+16*(p4p8*p2p3)*(-fmb-fmc+hbcm)+4*p2p8*(-fmb*hbcm2+fmb2*
0732 . hbcm+fmc*hbcm2-fmc2*hbcm)+8*(fmc*p2p3*p2p8+2*hbcm*p2p4*p2p8-
0733 . hbcm*p2p5*p2p8))+w1*(8*(p5p8*p3p4)*(fmb+fmc-hbcm)+16*(p4p8*
0734 . p3p4)*(-fmb-fmc+hbcm)+8*p5p8*(fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm
0735 . )+4*p4p8*(-6*fmb*fmc*hbcm+fmb*hbcm2-fmb2*hbcm+5*fmc*hbcm2-5*
0736 . fmc2*hbcm)+8*(-3*fmc*p2p3*p4p8-2*fmc*p2p8*p3p4-2*fmc2*hbcm*
0737 . p2p8-2*hbcm*p2p4*p4p8+hbcm*p2p5*p4p8))+(32*p5p8*(-fb3*fmc+fb3*
0738 . hbcm-fb4*fmb)+64*p4p8*(fb3*fmc-fb3*hbcm+fb4*fmb)+4*p2p8*(8*fb3
0739 . *fmc+8*fb4*fmc-5*hbcm)))
0740 b(13)=ans
0741 ans2=(p2p3*(64*fb4*ffmcfmb+8)+8*(6*fb3*fmb*fmc-2*fb3*fmb*hbcm-6
0742 . *fb3*fmc*hbcm+6*fb3*fmc2+6*fb4*fmb*fmc+2*fb4*fmb2-4*fb4*fmc*
0743 . hbcm+4*fb4*fmc2+12*fb4*p2p4-4*fb4*p2p5-fmb*hbcm-fmc*hbcm+hbcm2
0744 . ))
0745 ans1=w8*(8*p2p5*(fmb*hbcm+fmc*hbcm-hbcm2)+24*p2p4*(-fmb*hbcm-
0746 . fmc*hbcm+hbcm2)+4*p2p3*(-6*fmb*fmc+fmb*hbcm-fmb2+5*fmc*hbcm-5*
0747 . fmc2)+8*(-2*ffmcfmb*p2p3s2-3*p2p3*p2p4+p2p3*p2p5))+w18*(16*
0748 . p4p5*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*p2p4*(-fmb*hbcm-fmc*hbcm)+4
0749 . *p3p5*(-6*fmb*fmc+fmb*hbcm-fmb2+5*fmc*hbcm-5*fmc2)+4*p3p4*(-6*
0750 . fmb*fmc+fmb*hbcm-fmb2+5*fmc*hbcm-5*fmc2)+24*p2p3*(-fmb*fmc-
0751 . fmc2)+4*(-4*ffmcfmb*p2p3*p3p4-4*ffmcfmb*p2p3*p3p5-5*fmb*fmc2*
0752 . hbcm+fmb2*fmc*hbcm-fmb2*hbcm2+fmb3*hbcm+5*fmc2*hbcm2-5*fmc3*
0753 . hbcm-6*p2p4*p3p4-6*p2p4*p3p5+2*p2p5*p3p4+2*p2p5*p3p5))+w1*(8*
0754 . p4p5*(fmb*hbcm+fmc*hbcm-hbcm2)+4*p3p4*(-6*fmb*fmc+fmb*hbcm-
0755 . fmb2+5*fmc*hbcm-5*fmc2)+4*(-4*ffmcfmb*p2p3*p3p4+fmb*fmc*hbcm2-
0756 . 6*fmb*fmc2*hbcm-fmb2*fmc*hbcm-8*fmc*hbcm*p2p4+2*fmc*hbcm*p2p5+
0757 . 5*fmc2*hbcm2-6*fmc2*p2p3-5*fmc3*hbcm-6*p2p4*p3p4+2*p2p5*p3p4))
0758 . +ans2
0759 ans=ccc*ans1
0760 b(14)=ans
0761 ans2=w18*(16*(p4p8*p3p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p5p8*
0762 . p3p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p3p4*p2p8)*(fmb*hbcm+fmc*
0763 . hbcm)+16*(p4p8*p2p3)*(-fmb*hbcm-2*fmc*hbcm)+4*p5p8*(2*fmb*fmc*
0764 . hbcm2+fmb*hbcm3-fmb2*hbcm2-3*fmc*hbcm3+3*fmc2*hbcm2)+4*p4p8*(2
0765 . *fmb*fmc*hbcm2-3*fmb*hbcm3+3*fmb2*hbcm2+fmc*hbcm3-fmc2*hbcm2)+
0766 . 16*p2p8*(fmb*fmc*hbcm2+p3p4s2)+8*(2*fmc*hbcm*p2p3*p5p8-hbcm2*
0767 . p2p4*p4p8+3*hbcm2*p2p4*p5p8-3*hbcm2*p2p5*p4p8+hbcm2*p2p5*p5p8-
0768 . 2*hbcm2*p2p8*p4p5-2*p2p3*p3p4*p4p8-2*p2p3*p3p5*p4p8+2*p2p8*
0769 . p3p4*p3p5))+(16*p2p8*(2*fb3*fmc*hbcm-2*fb4*fmc*hbcm-hbcm2)+32*
0770 . p5p8*(fb3*fmb*hbcm+fb4*fmc*hbcm-fb4*hbcm2)+32*p4p8*(-fb3*fmb*
0771 . hbcm-fb4*fmc*hbcm+fb4*hbcm2)+64*(fb4*p2p3*p4p8-fb4*p2p8*p3p4))
0772 ans1=w1*(8*(p4p8*p3p5)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p5p8*p3p4)*
0773 . (-fmb*hbcm-fmc*hbcm+hbcm2)+8*p5p8*(-fmb*fmc*hbcm2+fmc*hbcm3-
0774 . fmc2*hbcm2)+4*p4p8*(-2*fmb*fmc*hbcm2+fmb*hbcm3-fmb2*hbcm2+fmc*
0775 . hbcm3-fmc2*hbcm2)+8*(-4*fmc*hbcm*p2p3*p4p8+2*fmc*hbcm*p2p8*
0776 . p3p4-hbcm2*p2p4*p4p8+hbcm2*p2p5*p4p8-2*p2p3*p3p4*p4p8+2*p2p8*
0777 . p3p4s2))+w8*(8*(p3p5*p2p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+24*(p3p4
0778 . *p2p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p5p8*p2p3)*(fmb*hbcm+fmc*
0779 . hbcm-hbcm2)+24*(p4p8*p2p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+4*p2p8*(
0780 . 6*fmb*fmc*hbcm2-fmb*hbcm3+fmb2*hbcm2-5*fmc*hbcm3+5*fmc2*hbcm2)
0781 . +8*(2*fmc*hbcm*p2p3*p2p8+hbcm2*p2p4*p2p8-hbcm2*p2p5*p2p8+2*
0782 . p2p3*p2p8*p3p4-2*p2p3s2*p4p8))+ans2
0783 ans=ccc*ans1
0784 b(15)=ans
0785 ans2=w18*(8*(p3p5*p3p4)*(fmb+fmc-hbcm)+8*p4p5*(-fmb*hbcm2-fmc*
0786 . hbcm2+hbcm3)+4*p3p5*(-fmb*hbcm2+fmb2*hbcm+fmc*hbcm2-fmc2*hbcm)
0787 . +20*p3p4*(fmb*hbcm2-fmb2*hbcm-fmc*hbcm2+fmc2*hbcm)+8*p2p4*(-3*
0788 . fmb*hbcm2+fmc*hbcm2)+16*p2p3*(-fmb*fmc*hbcm+2*fmc2*hbcm)+4*(4*
0789 . fmb*fmc*hbcm3-3*fmb*fmc2*hbcm2+4*fmb*p3p4s2-2*fmb*p3p5s2-3*
0790 . fmb2*fmc*hbcm2-fmb2*hbcm3+fmb3*hbcm2+8*fmc*hbcm2*p2p5+10*fmc*
0791 . p2p3*p3p4-2*fmc*p2p3*p3p5+4*fmc*p3p4s2-2*fmc*p3p5s2-fmc2*hbcm3
0792 . +fmc3*hbcm2+4*hbcm*p2p3*p4p5+4*hbcm*p2p4*p3p4-8*hbcm*p2p4*p3p5
0793 . +10*hbcm*p2p5*p3p4-2*hbcm*p2p5*p3p5-4*hbcm*p3p4s2+2*hbcm*
0794 . p3p5s2))+(32*p3p5*(fb3*fmc-fb3*hbcm+fb4*fmb)+64*p3p4*(-fb3*fmc
0795 . +fb3*hbcm-fb4*fmb)+4*p2p3*(-16*fb3*fmc-8*fb4*fmc+5*hbcm)+4*(8*
0796 . fb3*fmb*fmc*hbcm-4*fb3*fmb2*hbcm+4*fb3*fmc*hbcm2-4*fb3*fmc2*
0797 . hbcm-16*fb3*hbcm*p2p4+8*fb3*hbcm*p2p5-8*fb4*fmb*fmc*hbcm+4*fb4
0798 . *fmb*hbcm2-8*fb4*fmc*hbcm2+8*fb4*fmc2*hbcm-fmb*hbcm2-fmc*hbcm2
0799 . +hbcm3))
0800 ans1=w8*(8*(p3p5*p2p3)*(-fmb-fmc+hbcm)+16*(p3p4*p2p3)*(fmb+fmc-
0801 . hbcm)+8*p2p5*(fmb*hbcm2+fmc*hbcm2-hbcm3)+16*p2p4*(-fmb*hbcm2-
0802 . fmc*hbcm2+hbcm3)+4*p2p3*(fmb*hbcm2-fmb2*hbcm-fmc*hbcm2+fmc2*
0803 . hbcm)+8*(-fmc*p2p3s2-2*hbcm*p2p3*p2p4+hbcm*p2p3*p2p5))+w1*(8*(
0804 . p3p5*p3p4)*(-fmb-fmc+hbcm)+8*p4p5*(fmb*hbcm2+fmc*hbcm2-hbcm3)+
0805 . 8*p3p5*(-fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+4*p3p4*(6*fmb*fmc*
0806 . hbcm-fmb*hbcm2+fmb2*hbcm-5*fmc*hbcm2+5*fmc2*hbcm)+4*(-fmb*fmc*
0807 . hbcm3+2*fmb*fmc2*hbcm2+4*fmb*p3p4s2+fmb2*fmc*hbcm2+2*fmc*hbcm2
0808 . *p2p4-2*fmc*hbcm2*p2p5+10*fmc*p2p3*p3p4+4*fmc*p3p4s2+8*fmc2*
0809 . hbcm*p2p3-fmc2*hbcm3+fmc3*hbcm2+4*hbcm*p2p4*p3p4-2*hbcm*p2p5*
0810 . p3p4-4*hbcm*p3p4s2))+ans2
0811 ans=ccc*ans1
0812 b(16)=ans
0813 b(17)=ccc*(w18*(8*p6p8*(-fmb2*hbcm+5*fmc2*hbcm)+8*(p6p8*p3p5)*(
0814 . -fmb+5*fmc)+8*(p6p8*p3p4)*(-fmb+5*fmc)+8*(-3*fmc*p3p6*p4p8+3*
0815 . fmc*p3p6*p5p8+4*hbcm*p4p5*p6p8-2*hbcm*p4p6*p4p8+4*hbcm*p4p6*
0816 . p5p8-5*hbcm*p4p8*p5p6+hbcm*p5p6*p5p8))+w8*(8*(p6p8*p2p3)*(-fmb
0817 . +fmc)+8*p6p8*(fmb*hbcm2-fmb2*hbcm-fmc*hbcm2+fmc2*hbcm)+8*(fmc*
0818 . p2p8*p3p6+2*hbcm*p2p8*p4p6-hbcm*p2p8*p5p6))+w1*(8*(p6p8*p3p4)*
0819 . (-fmb+5*fmc)+8*p6p8*(-fmb*fmc*hbcm+5*fmc2*hbcm)+8*(-3*fmc*p3p6
0820 . *p4p8-2*hbcm*p4p5*p6p8-2*hbcm*p4p6*p4p8+hbcm*p4p8*p5p6))+4*
0821 . p6p8*(-16*fb3*fmc+8*fb4*fmb-24*fb4*fmc+7*hbcm))
0822 b(18)=ccc*(w18*(32*p4p6*(fmb*hbcm+fmc*hbcm)+24*p3p6*(fmb*fmc+
0823 . fmc2)+8*(2*ffmcfmb*p3p4*p3p6+2*ffmcfmb*p3p5*p3p6+3*p3p4*p4p6-
0824 . p3p4*p5p6+3*p3p5*p4p6-p3p5*p5p6))+8*w1*(2*ffmcfmb*p3p4*p3p6+4*
0825 . fmc*hbcm*p4p6-fmc*hbcm*p5p6+3*fmc2*p3p6+3*p3p4*p4p6-p3p4*p5p6)
0826 . +w8*(8*p5p6*(-fmb*hbcm-fmc*hbcm+hbcm2)+24*p4p6*(fmb*hbcm+fmc*
0827 . hbcm-hbcm2)+16*p3p6*(fmb*fmc-fmc*hbcm+fmc2)+8*(2*ffmcfmb*p2p3*
0828 . p3p6+3*p2p3*p4p6-p2p3*p5p6))+(p3p6*(-64*fb4*ffmcfmb-8)+32*(-3*
0829 . fb4*p4p6+fb4*p5p6)))
0830 b(19)=ccc*(w18*(4*p5p8*(-fmb*hbcm2-5*fmc*hbcm2)+4*p4p8*(5*fmb*
0831 . hbcm2+fmc*hbcm2)+24*(-hbcm*p3p4*p5p8+hbcm*p3p5*p4p8))+w1*(4*
0832 . p4p8*(-fmb*hbcm2+fmc*hbcm2)+8*(fmc*hbcm2*p5p8+hbcm*p3p4*p5p8-
0833 . hbcm*p3p5*p4p8))+w8*(8*p5p8*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+16*
0834 . p4p8*(fmb*hbcm2+fmc*hbcm2-hbcm3)+4*p2p8*(fmb*hbcm2-3*fmc*hbcm2
0835 . )+8*(2*hbcm*p2p3*p4p8-hbcm*p2p3*p5p8-2*hbcm*p2p8*p3p4+hbcm*
0836 . p2p8*p3p5))+32*(2*fb3*hbcm*p4p8-fb3*hbcm*p5p8))
0837 b(20)=ccc*(w18*(4*p5p8*(-fmb*hbcm-fmc*hbcm)+28*p4p8*(fmb*hbcm+
0838 . fmc*hbcm)+8*(3*p3p4*p4p8-p3p4*p5p8+3*p3p5*p4p8-p3p5*p5p8))+w1*
0839 . (4*p4p8*(-fmb*hbcm+7*fmc*hbcm)+8*(-fmc*hbcm*p5p8+3*p3p4*p4p8-
0840 . p3p4*p5p8))+w8*(8*p5p8*(-fmb*hbcm-fmc*hbcm+hbcm2)+24*p4p8*(fmb
0841 . *hbcm+fmc*hbcm-hbcm2)+4*p2p8*(fmb*hbcm+fmc*hbcm)+8*(3*p2p3*
0842 . p4p8-p2p3*p5p8))+32*(-3*fb4*p4p8+fb4*p5p8))
0843 b(21)=ccc*(8*w18*(2*fmc*p3p4*p7p8+2*fmc*p3p5*p7p8+3*fmc*p3p7*
0844 . p4p8-3*fmc*p3p7*p5p8+2*fmc2*hbcm*p7p8+2*hbcm*p4p5*p7p8+2*hbcm*
0845 . p4p7*p4p8-4*hbcm*p4p7*p5p8+5*hbcm*p4p8*p5p7-hbcm*p5p7*p5p8)+8*
0846 . w1*(2*fmc*p3p4*p7p8+3*fmc*p3p7*p4p8+2*fmc2*hbcm*p7p8+2*hbcm*
0847 . p4p7*p4p8-hbcm*p4p8*p5p7)+w8*(16*(p5p8*p3p7)*(-fmc+hbcm)+32*(
0848 . p4p8*p3p7)*(fmc-hbcm)+8*(-fmc*p2p8*p3p7-2*hbcm*p2p8*p4p7+hbcm*
0849 . p2p8*p5p7))+4*p7p8*(-8*fb3*fmc-8*fb4*fmc+5*hbcm))
0850 b(22)=ccc*(w18*(4*p3p5*(-fmb+7*fmc)+4*p3p4*(-fmb+7*fmc)+4*(-
0851 . fmb2*hbcm+7*fmc2*hbcm+6*hbcm*p4p5))+w8*(4*p2p3*(-fmb+fmc)+4*(
0852 . fmb*hbcm2-fmb2*hbcm-fmc*hbcm2+fmc2*hbcm))+w1*(4*p3p4*(-fmb+7*
0853 . fmc)+4*(-fmb*fmc*hbcm+7*fmc2*hbcm-2*hbcm*p4p5))+8*(-6*fb3*fmc+
0854 . 2*fb4*fmb-8*fb4*fmc+3*hbcm))
0855 b(23)=ccc*(w18*(32*p4p7*(fmb*hbcm+fmc*hbcm)+24*p3p7*(fmb*fmc+
0856 . fmc2)+8*(2*ffmcfmb*p3p4*p3p7+2*ffmcfmb*p3p5*p3p7+3*p3p4*p4p7-
0857 . p3p4*p5p7+3*p3p5*p4p7-p3p5*p5p7))+8*w1*(2*ffmcfmb*p3p4*p3p7+4*
0858 . fmc*hbcm*p4p7-fmc*hbcm*p5p7+3*fmc2*p3p7+3*p3p4*p4p7-p3p4*p5p7)
0859 . +w8*(8*p5p7*(-fmb*hbcm-fmc*hbcm+hbcm2)+24*p4p7*(fmb*hbcm+fmc*
0860 . hbcm-hbcm2)+8*p3p7*(3*fmb*fmc-fmb*hbcm-3*fmc*hbcm+3*fmc2)+8*(2
0861 . *ffmcfmb*p2p3*p3p7+3*p2p3*p4p7-p2p3*p5p7))+(p3p7*(-64*fb4*
0862 . ffmcfmb-8)+32*(-3*fb4*p4p7+fb4*p5p7)))
0863 b(24)=ccc*(w8*(8*p3p5*(fmb*hbcm+fmc*hbcm-hbcm2)+24*p3p4*(-fmb*
0864 . hbcm-fmc*hbcm+hbcm2)+4*p2p3*(-fmb*hbcm-5*fmc*hbcm)+4*(-6*fmb*
0865 . fmc*hbcm2+fmb*hbcm3-fmb2*hbcm2+5*fmc*hbcm3-5*fmc2*hbcm2-6*p2p3
0866 . *p3p4+2*p2p3*p3p5))+w18*(4*p3p5*(fmb*hbcm+fmc*hbcm)+28*p3p4*(-
0867 . fmb*hbcm-fmc*hbcm)+4*(-6*fmb*fmc*hbcm2-fmb2*hbcm2-fmc2*hbcm2+4
0868 . *hbcm2*p4p5-4*p3p4*p3p5-6*p3p4s2+2*p3p5s2))+w1*(4*p3p4*(fmb*
0869 . hbcm-7*fmc*hbcm)+4*(fmb*fmc*hbcm2+2*fmc*hbcm*p3p5-fmc2*hbcm2-2
0870 . *hbcm2*p4p5+2*p3p4*p3p5-6*p3p4s2))+16*(-fb3*fmb*hbcm-3*fb3*fmc
0871 . *hbcm+2*fb4*fmc*hbcm+6*fb4*p3p4-2*fb4*p3p5+hbcm2))
0872 b(25)=ccc*(8*w1*(-fmc*hbcm2*p4p7+fmc*hbcm2*p5p7-5*fmc*p3p4*p3p7
0873 . -4*fmc2*hbcm*p3p7-2*hbcm*p3p4*p4p7+hbcm*p3p4*p5p7)+w8*(16*(
0874 . p3p7*p3p5)*(fmc-hbcm)+32*(p3p7*p3p4)*(-fmc+hbcm)+8*p5p7*(-fmb*
0875 . hbcm2-fmc*hbcm2+hbcm3)+16*p4p7*(fmb*hbcm2+fmc*hbcm2-hbcm3)+8*
0876 . p3p7*(2*fmb*fmc*hbcm-fmb*hbcm2+2*fmc*hbcm2-2*fmc2*hbcm)+8*(fmc
0877 . *p2p3*p3p7+2*hbcm*p2p3*p4p7-hbcm*p2p3*p5p7))+w18*(8*p4p7*(3*
0878 . fmb*hbcm2-fmc*hbcm2)+16*p3p7*(fmb*fmc*hbcm-2*fmc2*hbcm)+8*(-4*
0879 . fmc*hbcm2*p5p7-5*fmc*p3p4*p3p7+fmc*p3p5*p3p7-2*hbcm*p3p4*p4p7-
0880 . 5*hbcm*p3p4*p5p7+4*hbcm*p3p5*p4p7+hbcm*p3p5*p5p7-2*hbcm*p3p7*
0881 . p4p5))+(4*p3p7*(16*fb3*fmc+8*fb4*fmc-5*hbcm)+32*(2*fb3*hbcm*
0882 . p4p7-fb3*hbcm*p5p7)))
0883 ans=ccc*(w8*(8*(p3p6*p2p3)*(fmb-2*fmc)+8*p5p6*(fmb*hbcm2+fmc*
0884 . hbcm2-hbcm3)+16*p4p6*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+8*p3p6*(-fmb
0885 . *fmc*hbcm-fmb*hbcm2+fmb2*hbcm+2*fmc*hbcm2-2*fmc2*hbcm)+8*(-2*
0886 . hbcm*p2p3*p4p6+hbcm*p2p3*p5p6))+w18*(8*(p3p6*p3p5)*(fmb-8*fmc)
0887 . +8*(p3p6*p3p4)*(fmb-2*fmc)+8*p4p6*(-3*fmb*hbcm2+fmc*hbcm2)+8*
0888 . p3p6*(-2*fmb*fmc*hbcm+fmb2*hbcm-3*fmc2*hbcm)+8*(4*fmc*hbcm2*
0889 . p5p6+2*hbcm*p3p4*p4p6+5*hbcm*p3p4*p5p6-4*hbcm*p3p5*p4p6-hbcm*
0890 . p3p5*p5p6-4*hbcm*p3p6*p4p5))+w1*(8*(p3p6*p3p4)*(fmb-2*fmc)+8*
0891 . p3p6*(fmb*fmc*hbcm-3*fmc2*hbcm)+8*(fmc*hbcm2*p4p6-fmc*hbcm2*
0892 . p5p6+2*hbcm*p3p4*p4p6-hbcm*p3p4*p5p6+2*hbcm*p3p6*p4p5))+(4*
0893 . p3p6*(8*fb3*fmc-8*fb4*fmb+24*fb4*fmc-7*hbcm)+32*(-2*fb3*hbcm*
0894 . p4p6+fb3*hbcm*p5p6)))
0895 b(26)=ans
0896 ans=ccc*(8*w1*(-2*fmc*hbcm*p3p4*p7p8+4*fmc*hbcm*p3p7*p4p8+hbcm2
0897 . *p4p7*p4p8-hbcm2*p4p8*p5p7+2*p3p4*p3p7*p4p8-2*p3p4s2*p7p8)+w8*
0898 . (16*(p5p8*p3p7)*(-fmc*hbcm+hbcm2)+16*(p4p8*p3p7)*(fmb*hbcm+2*
0899 . fmc*hbcm-2*hbcm2)+16*(p7p8*p3p4)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16
0900 . *p7p8*(-fmb*fmc*hbcm2+fmc*hbcm3-fmc2*hbcm2)+8*(-2*fmc*hbcm*
0901 . p2p3*p7p8-hbcm2*p2p8*p4p7+hbcm2*p2p8*p5p7-2*p2p3*p3p4*p7p8+2*
0902 . p2p3*p3p7*p4p8))+w18*(16*(p4p8*p3p7)*(fmb*hbcm+2*fmc*hbcm)+16*
0903 . (p7p8*p3p4)*(-fmb*hbcm-fmc*hbcm)+16*p7p8*(-fmb*fmc*hbcm2-
0904 . p3p4s2)+8*(-2*fmc*hbcm*p3p7*p5p8+2*hbcm2*p4p5*p7p8+hbcm2*p4p7*
0905 . p4p8-3*hbcm2*p4p7*p5p8+3*hbcm2*p4p8*p5p7-hbcm2*p5p7*p5p8-2*
0906 . p3p4*p3p5*p7p8+2*p3p4*p3p7*p4p8+2*p3p5*p3p7*p4p8))+(16*p7p8*(-
0907 . 2*fb3*fmc*hbcm+2*fb4*fmc*hbcm+hbcm2)+64*(fb4*p3p4*p7p8-fb4*
0908 . p3p7*p4p8)))
0909 b(27)=ans
0910 ans2=w1*(8*(p4p8*p3p6)*(fmb*hbcm-3*fmc*hbcm)+8*(p6p8*p3p4)*(-
0911 . fmb*hbcm+5*fmc*hbcm)+8*p6p8*(-fmb*fmc*hbcm2+fmc2*hbcm2+4*
0912 . p3p4s2)+8*(-2*fmc*hbcm*p3p5*p6p8+2*fmc*hbcm*p3p6*p5p8+2*hbcm2*
0913 . p4p5*p6p8+hbcm2*p4p6*p4p8-hbcm2*p4p8*p5p6-2*p3p4*p3p5*p6p8-4*
0914 . p3p4*p3p6*p4p8+2*p3p4*p3p6*p5p8))+(16*p6p8*(2*fb3*fmb*hbcm+4*
0915 . fb3*fmc*hbcm-2*fb4*fmc*hbcm-hbcm2)+64*(-2*fb4*p3p4*p6p8+fb4*
0916 . p3p5*p6p8+2*fb4*p3p6*p4p8-fb4*p3p6*p5p8))
0917 ans1=w8*(16*(p5p8*p3p6)*(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p4p8*p3p6
0918 . )*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p6p8*p3p5)*(-fmb*hbcm-fmc*
0919 . hbcm+hbcm2)+32*(p6p8*p3p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p3p6*
0920 . p2p8)*(-fmb*hbcm-fmc*hbcm)+8*(p6p8*p2p3)*(fmb*hbcm+3*fmc*hbcm)
0921 . +8*p6p8*(4*fmb*fmc*hbcm2-fmb*hbcm3+fmb2*hbcm2-3*fmc*hbcm3+3*
0922 . fmc2*hbcm2)+8*(-hbcm2*p2p8*p4p6+hbcm2*p2p8*p5p6+4*p2p3*p3p4*
0923 . p6p8-2*p2p3*p3p5*p6p8-4*p2p3*p3p6*p4p8+2*p2p3*p3p6*p5p8))+w18*
0924 . (8*(p5p8*p3p6)*(fmb*hbcm-fmc*hbcm)+8*(p4p8*p3p6)*(-5*fmb*hbcm-
0925 . 3*fmc*hbcm)+8*(p6p8*p3p5)*(-fmb*hbcm-fmc*hbcm)+40*(p6p8*p3p4)*
0926 . (fmb*hbcm+fmc*hbcm)+8*p6p8*(4*fmb*fmc*hbcm2+fmb2*hbcm2+fmc2*
0927 . hbcm2+4*p3p4s2-2*p3p5s2)+8*(-2*hbcm2*p4p5*p6p8+hbcm2*p4p6*p4p8
0928 . -3*hbcm2*p4p6*p5p8+3*hbcm2*p4p8*p5p6-hbcm2*p5p6*p5p8+2*p3p4*
0929 . p3p5*p6p8-4*p3p4*p3p6*p4p8+2*p3p4*p3p6*p5p8-4*p3p5*p3p6*p4p8+2
0930 . *p3p5*p3p6*p5p8))+ans2
0931 ans=ccc*ans1
0932 b(28)=ans
0933 ans2=w8*(16*(p5p6*p3p7)*(-fmc*hbcm+hbcm2)+16*(p4p6*p3p7)*(fmb*
0934 . hbcm+2*fmc*hbcm-2*hbcm2)+16*(p5p7*p3p6)*(-fmb*hbcm-fmc*hbcm+
0935 . hbcm2)+32*(p4p7*p3p6)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p7*p3p5)
0936 . *(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p6p7*p3p4)*(-fmb*hbcm-fmc*hbcm+
0937 . hbcm2)+8*(p6p7*p2p3)*(-fmb*hbcm-3*fmc*hbcm)+16*(p3p7*p3p6)*(3*
0938 . fmb*fmc-fmb*hbcm-3*fmc*hbcm+3*fmc2)+8*p6p7*(-4*fmb*fmc*hbcm2+
0939 . fmb*hbcm3-fmb2*hbcm2+3*fmc*hbcm3-3*fmc2*hbcm2)+16*(2*ffmcfmb*
0940 . p2p3*p3p6*p3p7-2*p2p3*p3p4*p6p7+p2p3*p3p5*p6p7+2*p2p3*p3p6*
0941 . p4p7-p2p3*p3p6*p5p7+p2p3*p3p7*p4p6))+((p3p7*p3p6)*(-128*fb4*
0942 . ffmcfmb-16)+16*p6p7*(-2*fb3*fmb*hbcm-4*fb3*fmc*hbcm+2*fb4*fmc*
0943 . hbcm+hbcm2)+64*(2*fb4*p3p4*p6p7-fb4*p3p5*p6p7-2*fb4*p3p6*p4p7+
0944 . fb4*p3p6*p5p7-fb4*p3p7*p4p6))
0945 ans1=w18*(16*(p4p6*p3p7)*(fmb*hbcm+2*fmc*hbcm)+16*(p4p7*p3p6)*(
0946 . 3*fmb*hbcm+2*fmc*hbcm)+8*(p6p7*p3p5)*(fmb*hbcm+fmc*hbcm)+40*(
0947 . p6p7*p3p4)*(-fmb*hbcm-fmc*hbcm)+48*(p3p7*p3p6)*(fmb*fmc+fmc2)+
0948 . 8*p6p7*(-4*fmb*fmc*hbcm2-fmb2*hbcm2-fmc2*hbcm2-4*p3p4s2+2*
0949 . p3p5s2)+16*(2*ffmcfmb*p3p4*p3p6*p3p7+2*ffmcfmb*p3p5*p3p6*p3p7+
0950 . fmc*hbcm*p3p6*p5p7-fmc*hbcm*p3p7*p5p6+hbcm2*p4p5*p6p7+2*hbcm2*
0951 . p4p6*p5p7-2*hbcm2*p4p7*p5p6-p3p4*p3p5*p6p7+2*p3p4*p3p6*p4p7-
0952 . p3p4*p3p6*p5p7+p3p4*p3p7*p4p6+2*p3p5*p3p6*p4p7-p3p5*p3p6*p5p7+
0953 . p3p5*p3p7*p4p6))+w1*(8*(p6p7*p3p4)*(fmb*hbcm-5*fmc*hbcm)+8*
0954 . p6p7*(fmb*fmc*hbcm2-fmc2*hbcm2-4*p3p4s2)+16*(2*ffmcfmb*p3p4*
0955 . p3p6*p3p7+fmc*hbcm*p3p5*p6p7+2*fmc*hbcm*p3p6*p4p7-fmc*hbcm*
0956 . p3p6*p5p7+2*fmc*hbcm*p3p7*p4p6+3*fmc2*p3p6*p3p7-hbcm2*p4p5*
0957 . p6p7+p3p4*p3p5*p6p7+2*p3p4*p3p6*p4p7-p3p4*p3p6*p5p7+p3p4*p3p7*
0958 . p4p6))+ans2
0959 ans=ccc*ans1
0960 b(29)=ans
0961 ans3=w18*(8*(p6p7*p5p8)*(-fmb*hbcm2-3*fmc*hbcm2)+8*(p6p7*p4p8)*
0962 . (3*fmb*hbcm2+fmc*hbcm2)+16*(p7p8*p4p6)*(-fmb*hbcm2+fmc*hbcm2)+
0963 . 16*(p6p8*p3p7)*(-fmb*fmc*hbcm+3*fmc2*hbcm)+16*(p7p8*p3p6)*(-
0964 . fmb*fmc*hbcm-fmc2*hbcm)+16*(-2*fmb*hbcm2*p4p7*p6p8+2*fmc*hbcm2
0965 . *p5p6*p7p8+2*fmc*hbcm2*p5p7*p6p8-fmc*p3p4*p3p6*p7p8+4*fmc*p3p4
0966 . *p3p7*p6p8-3*fmc*p3p5*p3p6*p7p8-3*fmc*p3p6*p3p7*p4p8+3*fmc*
0967 . p3p6*p3p7*p5p8+hbcm*p3p4*p4p6*p7p8+hbcm*p3p4*p4p7*p6p8+2*hbcm*
0968 . p3p4*p5p6*p7p8+3*hbcm*p3p4*p5p7*p6p8-2*hbcm*p3p4*p5p8*p6p7-
0969 . hbcm*p3p5*p4p6*p7p8-3*hbcm*p3p5*p4p7*p6p8+2*hbcm*p3p5*p4p8*
0970 . p6p7-hbcm*p3p5*p5p7*p6p8-2*hbcm*p3p6*p4p5*p7p8-hbcm*p3p6*p4p7*
0971 . p4p8+3*hbcm*p3p6*p4p7*p5p8-3*hbcm*p3p6*p4p8*p5p7+hbcm*p3p6*
0972 . p5p7*p5p8+2*hbcm*p3p7*p4p5*p6p8-hbcm*p3p7*p4p6*p4p8+hbcm*p3p7*
0973 . p4p6*p5p8-2*hbcm*p3p7*p4p8*p5p6))+(8*(p7p8*p3p6)*(8*fb4*fmc-3*
0974 . hbcm)+8*(p6p8*p3p7)*(-8*fb3*fmc-8*fb4*fmc+3*hbcm)+64*(-fb3*
0975 . hbcm*p4p6*p7p8-fb3*hbcm*p4p7*p6p8+fb3*hbcm*p4p8*p6p7+fb3*hbcm*
0976 . p5p7*p6p8-fb3*hbcm*p5p8*p6p7))
0977 ans2=w8*(32*(p5p8*p3p7*p3p6)*(fmc-hbcm)+32*(p4p8*p3p7*p3p6)*(-
0978 . fmc+hbcm)+32*(p6p8*p3p7*p3p5)*(-fmc+hbcm)+32*(p6p8*p3p7*p3p4)*
0979 . (fmc-hbcm)+16*(p6p7*p5p8)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+16*(
0980 . p6p8*p5p7)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+16*(p6p7*p4p8)*(fmb*
0981 . hbcm2+fmc*hbcm2-hbcm3)+16*(p6p8*p4p7)*(-fmb*hbcm2-fmc*hbcm2+
0982 . hbcm3)+16*(p7p8*p4p6)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+8*(p6p7*
0983 . p2p8)*(fmb*hbcm2-fmc*hbcm2)+16*(p6p8*p3p7)*(-fmb*fmc*hbcm+fmb*
0984 . hbcm2-fmc*hbcm2+fmc2*hbcm)+16*(p7p8*p3p6)*(-fmb*fmc*hbcm+fmc*
0985 . hbcm2-fmc2*hbcm)+16*(-fmc*p2p3*p3p6*p7p8+fmc*p2p8*p3p6*p3p7-
0986 . hbcm*p2p3*p4p6*p7p8-hbcm*p2p3*p4p7*p6p8+hbcm*p2p3*p4p8*p6p7+
0987 . hbcm*p2p3*p5p7*p6p8-hbcm*p2p3*p5p8*p6p7-hbcm*p2p8*p3p4*p6p7+
0988 . hbcm*p2p8*p3p5*p6p7+hbcm*p2p8*p3p6*p4p7-hbcm*p2p8*p3p6*p5p7+
0989 . hbcm*p2p8*p3p7*p4p6))+ans3
0990 ans1=w1*(8*(p6p7*p4p8)*(-fmb*hbcm2+fmc*hbcm2)+16*(fmc*hbcm2*
0991 . p4p6*p7p8-fmc*hbcm2*p5p7*p6p8+fmc*hbcm2*p5p8*p6p7-fmc*p3p4*
0992 . p3p6*p7p8+4*fmc*p3p4*p3p7*p6p8-3*fmc*p3p6*p3p7*p4p8-fmc2*hbcm*
0993 . p3p6*p7p8+3*fmc2*hbcm*p3p7*p6p8+hbcm*p3p4*p4p6*p7p8+hbcm*p3p4*
0994 . p4p7*p6p8-hbcm*p3p4*p5p7*p6p8+hbcm*p3p4*p5p8*p6p7-hbcm*p3p5*
0995 . p4p8*p6p7-hbcm*p3p6*p4p7*p4p8+hbcm*p3p6*p4p8*p5p7-hbcm*p3p7*
0996 . p4p6*p4p8))+ans2
0997 ans=ccc*ans1
0998 b(30)=ans
0999 ans2=w8*(16*(p6p7*p5p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p8*p5p7
1000 . )*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p6p7*p4p8)*(-fmb*hbcm-fmc*
1001 . hbcm+hbcm2)+32*(p6p8*p4p7)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p7p8*
1002 . p4p6)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p6p7*p2p8)*(-fmb*hbcm-fmc*
1003 . hbcm)+16*(p6p8*p3p7)*(2*fmb*fmc-fmb*hbcm-2*fmc*hbcm+2*fmc2)+16
1004 . *(p7p8*p3p6)*(fmb*fmc-fmc*hbcm+fmc2)+16*(ffmcfmb*p2p3*p3p6*
1005 . p7p8+ffmcfmb*p2p3*p3p7*p6p8+p2p3*p4p6*p7p8+2*p2p3*p4p7*p6p8-2*
1006 . p2p3*p4p8*p6p7-p2p3*p5p7*p6p8+p2p3*p5p8*p6p7))+((p6p8*p3p7)*(-
1007 . 64*fb4*ffmcfmb-8)+(p7p8*p3p6)*(-64*fb4*ffmcfmb-8)+64*(-fb4*
1008 . p4p6*p7p8-2*fb4*p4p7*p6p8+2*fb4*p4p8*p6p7+fb4*p5p7*p6p8-fb4*
1009 . p5p8*p6p7))
1010 ans1=w18*(8*(p6p7*p5p8)*(fmb*hbcm+fmc*hbcm)+40*(p6p7*p4p8)*(-
1011 . fmb*hbcm-fmc*hbcm)+48*(p6p8*p4p7)*(fmb*hbcm+fmc*hbcm)+16*(p7p8
1012 . *p4p6)*(fmb*hbcm+fmc*hbcm)+32*(p6p8*p3p7)*(fmb*fmc+fmc2)+16*(
1013 . p7p8*p3p6)*(fmb*fmc+fmc2)+16*(ffmcfmb*p3p4*p3p6*p7p8+ffmcfmb*
1014 . p3p4*p3p7*p6p8+ffmcfmb*p3p5*p3p6*p7p8+ffmcfmb*p3p5*p3p7*p6p8+
1015 . p3p4*p4p6*p7p8+2*p3p4*p4p7*p6p8-2*p3p4*p4p8*p6p7-p3p4*p5p7*
1016 . p6p8+p3p4*p5p8*p6p7+p3p5*p4p6*p7p8+2*p3p5*p4p7*p6p8-2*p3p5*
1017 . p4p8*p6p7-p3p5*p5p7*p6p8+p3p5*p5p8*p6p7))+w1*(8*(p6p7*p4p8)*(
1018 . fmb*hbcm-5*fmc*hbcm)+16*(ffmcfmb*p3p4*p3p6*p7p8+ffmcfmb*p3p4*
1019 . p3p7*p6p8+fmc*hbcm*p4p6*p7p8+3*fmc*hbcm*p4p7*p6p8-fmc*hbcm*
1020 . p5p7*p6p8+fmc*hbcm*p5p8*p6p7+fmc2*p3p6*p7p8+2*fmc2*p3p7*p6p8+
1021 . p3p4*p4p6*p7p8+2*p3p4*p4p7*p6p8-2*p3p4*p4p8*p6p7-p3p4*p5p7*
1022 . p6p8+p3p4*p5p8*p6p7))+ans2
1023 ans=ccc*ans1
1024 b(31)=ans
1025 b(32)=ccc*(w18*(8*p6p7*(-fmb2*hbcm+5*fmc2*hbcm)+8*(p6p7*p3p5)*(
1026 . -fmb+5*fmc)+8*(p6p7*p3p4)*(-fmb+5*fmc)+16*(-fmc*p3p6*p4p7+2*
1027 . fmc*p3p6*p5p7+fmc*p3p7*p4p6-2*fmc*p3p7*p5p6+2*hbcm*p4p5*p6p7+3
1028 . *hbcm*p4p6*p5p7-3*hbcm*p4p7*p5p6))+w1*(8*(p6p7*p3p4)*(-fmb+5*
1029 . fmc)+8*p6p7*(-fmb*fmc*hbcm+5*fmc2*hbcm)+16*(-fmc*p3p6*p4p7+fmc
1030 . *p3p7*p4p6-hbcm*p4p5*p6p7))+w8*(16*(p5p6*p3p7)*(-fmc+hbcm)+32*
1031 . (p4p6*p3p7)*(fmc-hbcm)+8*(p6p7*p2p3)*(-fmb+fmc)+8*p6p7*(fmb*
1032 . hbcm2-fmb2*hbcm-fmc*hbcm2+fmc2*hbcm)+16*(p3p7*p3p6)*(ffmcfmb*
1033 . fmc-fmc))+8*p6p7*(-8*fb3*fmc+4*fb4*fmb-12*fb4*fmc+3*hbcm))
1034 do 200 n=1,32
1035 c(n,1)=c(n,1)-0.09090909090909091d0*b(n)
1036 c(n,2)=c(n,2)-0.1680909685530997d0*b(n)
1037 c(n,3)=c(n,3)-0.2077659977796572d0*b(n)
1038 200 continue
1039 return
1040 end
1041
1042 subroutine amp17_3p1(cc)
1043 implicit double precision(a-h,o-z)
1044 implicit integer (i-n)
1045 dimension b(32)
1046 #include "inclcon.h"
1047 #include "inclppp.h"
1048 #include "inclamp.h"
1049 do 100 n=1,32
1050 b(n)=0.0d0
1051 100 continue
1052 ccc=cc/((-2*ffmcfmb*p1p3)*(-2*ffmcfmb*p3p5+fmb2-2*fmc*hbcm+fmc2
1053 . +hbcm2+2*p3p5)*(-2*ffmcfmb*p1p3-2*ffmcfmb*p2p3+2*p1p2))
1054 b(1)=ccc*(16*w2*(fmc*p1p3*p5p6+fmc*p2p5*p3p6-hbcm*p1p2*p5p6+
1055 . hbcm*p2p3*p5p6+hbcm*p2p5*p4p6+hbcm*p2p5*p5p6)+16*w17*(-2*fmc*
1056 . p1p2*p3p6-fmc*p1p3*p3p6-3*fmc*p1p3*p4p6+2*fmc*p2p3*p3p6+3*fmc*
1057 . p2p5*p3p6)+16*w12*(-2*fmc*p1p2*p3p6-fmc*p1p3*p3p6-3*fmc*p1p3*
1058 . p4p6+2*fmc*p2p3*p3p6+3*fmc*p2p5*p3p6)+(8*p3p6*(-4*fmb+3*fmc+4*
1059 . hbcm)+48*hbcm*p4p6))
1060 ans2=(8*p6p7*(-3*fmb*hbcm-3*fmc*hbcm+2*hbcm2)+(p4p6*p3p7)*(128*
1061 . fb4*ffmcfmb-48)+(p3p7*p3p6)*(64*fb4*ffmcfmb-56)+(p6p7*p1p3)*(
1062 . 64*fb4*ffmcfmb-24)+64*(fb4*p1p2*p6p7-fb4*p2p3*p6p7-3*fb4*p2p4*
1063 . p6p7-p3p6*p5p7))
1064 ans1=w2*(16*(p6p7*p2p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p5p6*
1065 . p3p7)*(fmb*fmc-fmc*hbcm+fmc2)+16*(p3p7*p3p6)*(ffmcfmb*fmb*fmc+
1066 . fmb*fmc)+16*(ffmcfmb*p1p3*p3p5*p6p7+ffmcfmb*p3p5*p3p6*p3p7+2*
1067 . ffmcfmb*p3p5*p3p7*p4p6+2*fmb*fmc*p1p3*p6p7+3*fmb*fmc*p3p7*p4p6
1068 . +fmb*hbcm*p1p2*p6p7-fmb*hbcm*p2p3*p6p7-4*fmb*hbcm*p2p4*p6p7+
1069 . p1p2*p3p5*p6p7-p2p3*p3p5*p6p7-3*p2p4*p3p5*p6p7))+w17*(16*(p6p7
1070 . *p1p3)*(2*fmb*fmc-fmc*hbcm+2*fmc2)+16*p6p7*(ffmcfmb*p1p3s2-
1071 . p2p3s2)+(p6p7*p2p3*p1p3)*(16*ffmcfmb-16)+16*(p3p7*p3p6)*(
1072 . ffmcfmb*fmb*fmc+ffmcfmb*fmc2)+16*(ffmcfmb*p1p3*p3p6*p3p7+2*
1073 . ffmcfmb*p1p3*p3p7*p4p6+ffmcfmb*p2p3*p3p6*p3p7+2*ffmcfmb*p2p3*
1074 . p3p7*p4p6+p1p2*p1p3*p6p7+p1p2*p2p3*p6p7-3*p1p3*p2p4*p6p7-3*
1075 . p2p3*p2p4*p6p7))+w12*(16*(p6p7*p1p3)*(2*fmb*fmc-fmc*hbcm+2*
1076 . fmc2)+16*(p3p7*p3p6)*(ffmcfmb*fmb*fmc+ffmcfmb*fmc2)+16*(
1077 . ffmcfmb*p1p3*p3p6*p3p7+2*ffmcfmb*p1p3*p3p7*p4p6+ffmcfmb*p1p3s2
1078 . *p6p7+p1p2*p1p3*p6p7-p1p3*p2p3*p6p7-3*p1p3*p2p4*p6p7))+ans2
1079 ans=ccc*ans1
1080 b(2)=ans
1081 ans3=w12*(16*(p6p7*p2p8*p1p3)*(-2*fmb-2*fmc+hbcm)+32*(p3p7*p3p6
1082 . *p2p8)*(-ffmcfmb*fmc+fmc)+16*(p3p7*p3p6*p1p8)*(-ffmcfmb*fmc-
1083 . fmc)+16*(p6p8*p3p7*p1p3)*(-ffmcfmb*fmb+ffmcfmb*fmc-fmc)+16*(2*
1084 . ffmcfmb*fmc*p3p6*p3p7*p5p8+2*fmc*p1p2*p3p6*p7p8-2*fmc*p1p3*
1085 . p1p8*p6p7+2*fmc*p1p3*p3p6*p7p8+4*fmc*p1p3*p4p6*p7p8-2*fmc*p1p3
1086 . *p5p7*p6p8+4*fmc*p1p3*p5p8*p6p7-fmc*p1p8*p3p7*p4p6-2*fmc*p2p3*
1087 . p3p6*p7p8-4*fmc*p2p5*p3p6*p7p8+4*fmc*p2p8*p3p6*p5p7+hbcm*p1p2*
1088 . p1p8*p6p7-hbcm*p1p8*p2p3*p6p7-2*hbcm*p1p8*p2p5*p6p7))+(8*(p7p8
1089 . *p3p6)*(4*fmb-3*fmc-3*hbcm)+16*(p6p7*p2p8)*(-4*fb3*fmc+4*fb3*
1090 . hbcm-8*fb4*fmb+4*fb4*fmc+3*hbcm)+8*(p6p8*p3p7)*(-8*fb3*ffmcfmb
1091 . *fmc+8*fb3*fmc-8*fb4*ffmcfmb*fmb+3*fmb-2*fmc+3*hbcm)+8*(4*hbcm
1092 . *p1p8*p6p7-5*hbcm*p4p6*p7p8+8*hbcm*p5p7*p6p8-6*hbcm*p5p8*p6p7)
1093 . )
1094 ans2=w17*(32*(p6p7*p2p8*p2p3)*(-fmb+fmc)+16*(p6p7*p2p8*p1p3)*(-
1095 . 2*fmb+hbcm)+16*(p3p7*p3p6*p2p8)*(-ffmcfmb*fmc+3*fmc)+16*(p3p7*
1096 . p3p6*p1p8)*(-ffmcfmb*fmc-fmc)+16*(p6p8*p3p7*p2p3)*(-ffmcfmb*
1097 . fmb+ffmcfmb*fmc-fmc)+16*(p6p8*p3p7*p1p3)*(-ffmcfmb*fmb+ffmcfmb
1098 . *fmc-fmc)+16*(2*ffmcfmb*fmc*p3p6*p3p7*p5p8+2*fmc*p1p2*p3p6*
1099 . p7p8-2*fmc*p1p3*p1p8*p6p7+2*fmc*p1p3*p3p6*p7p8+4*fmc*p1p3*p4p6
1100 . *p7p8-2*fmc*p1p3*p5p7*p6p8+4*fmc*p1p3*p5p8*p6p7-fmc*p1p8*p3p7*
1101 . p4p6-2*fmc*p2p3*p3p6*p7p8-4*fmc*p2p5*p3p6*p7p8-2*fmc*p2p5*p3p7
1102 . *p6p8+4*fmc*p2p8*p3p6*p5p7+3*fmc*p2p8*p3p7*p4p6+hbcm*p1p2*p1p8
1103 . *p6p7-hbcm*p1p2*p2p8*p6p7-hbcm*p1p8*p2p3*p6p7-2*hbcm*p1p8*p2p5
1104 . *p6p7-2*hbcm*p2p5*p2p8*p6p7))+ans3
1105 ans1=w2*(32*(p5p6*p3p7*p2p8)*(-fmc+hbcm)+16*(p6p7*p3p5*p2p8)*(-
1106 . 2*fmb+2*fmc-3*hbcm)+16*(p6p8*p3p7)*(-fmb*fmc*hbcm+fmb*fmc2-
1107 . fmb2*fmc)+16*(p6p7*p2p8)*(3*fmb*fmc*hbcm-2*fmb*hbcm2-3*fmb2*
1108 . hbcm)+16*(p5p8*p3p7*p3p6)*(ffmcfmb*fmc+fmc)+16*(p6p8*p3p7*p3p5
1109 . )*(-ffmcfmb*fmb+ffmcfmb*fmc-fmc)+16*(-2*fmc*p1p3*p5p6*p7p8+2*
1110 . fmc*p1p3*p5p8*p6p7-2*fmc*p2p5*p3p6*p7p8+2*fmc*p2p8*p3p6*p5p7+3
1111 . *fmc*p3p7*p4p6*p5p8+2*fmc*p3p7*p5p6*p5p8+2*hbcm*p1p2*p5p6*p7p8
1112 . -3*hbcm*p1p2*p5p8*p6p7+2*hbcm*p1p5*p2p8*p6p7-2*hbcm*p2p3*p5p6*
1113 . p7p8+3*hbcm*p2p3*p5p8*p6p7+2*hbcm*p2p5*p2p8*p6p7-2*hbcm*p2p5*
1114 . p4p6*p7p8-2*hbcm*p2p5*p5p6*p7p8+2*hbcm*p2p5*p5p8*p6p7+2*hbcm*
1115 . p2p8*p4p6*p5p7+2*hbcm*p2p8*p5p6*p5p7))+ans2
1116 ans=ccc*ans1
1117 b(3)=ans
1118 b(4)=ccc*(w2*(8*p3p7*(-2*fmb*fmc*hbcm+3*fmb*fmc2-3*fmb2*fmc)+8*
1119 . (p3p7*p3p5)*(-2*ffmcfmb*fmb+2*ffmcfmb*fmc-3*fmc)+16*(-fmc*p1p3
1120 . *p5p7+fmc*p1p5*p3p7+hbcm*p1p2*p5p7-hbcm*p2p3*p5p7+hbcm*p2p5*
1121 . p3p7))+w17*(8*(p3p7*p2p3)*(-2*ffmcfmb*fmb+2*ffmcfmb*fmc-3*fmc)
1122 . +8*(p3p7*p1p3)*(-2*ffmcfmb*fmb+2*ffmcfmb*fmc-3*fmc)+16*(fmc*
1123 . p1p2*p3p7-3*fmc*p1p3*p5p7-3*fmc*p2p5*p3p7))+w12*(8*(p3p7*p1p3)
1124 . *(-2*ffmcfmb*fmb+2*ffmcfmb*fmc-3*fmc)-48*fmc*p1p3*p5p7)+(4*
1125 . p3p7*(-8*fb3*ffmcfmb*fmc+8*fb3*fmc-16*fb4*ffmcfmb*fmb+8*fb4*
1126 . ffmcfmb*fmc+6*fmb-6*fmc+5*hbcm)+48*hbcm*p5p7))
1127 ans2=w12*(8*(p3p7*p1p8)*(-fmb*fmc-fmc2)+16*(p7p8*p1p3)*(2*fmb*
1128 . fmc-fmc*hbcm+2*fmc2)+(p3p7*p2p8*p1p3)*(32*ffmcfmb-32)+16*(
1129 . ffmcfmb*p1p3*p1p8*p3p7-2*ffmcfmb*p1p3*p3p7*p5p8+ffmcfmb*p1p3s2
1130 . *p7p8-2*p1p2*p1p3*p7p8+2*p1p3*p2p3*p7p8+3*p1p3*p2p5*p7p8-3*
1131 . p1p3*p2p8*p5p7))+(4*p7p8*(-5*fmb*hbcm-5*fmc*hbcm+4*hbcm2)+(
1132 . p5p8*p3p7)*(-128*fb4*ffmcfmb+48)+(p3p7*p2p8)*(128*fb4*ffmcfmb-
1133 . 128*fb4-48)+(p3p7*p1p8)*(64*fb4*ffmcfmb-24)+(p7p8*p1p3)*(64*
1134 . fb4*ffmcfmb-24)+64*(-2*fb4*p1p2*p7p8+2*fb4*p2p3*p7p8+3*fb4*
1135 . p2p5*p7p8-3*fb4*p2p8*p5p7))
1136 ans1=w2*(16*(p5p7*p2p8)*(-3*fmb*hbcm+fmc*hbcm-hbcm2)+16*(p7p8*
1137 . p2p5)*(3*fmb*hbcm-fmc*hbcm+hbcm2)+8*(p5p8*p3p7)*(-3*fmb*fmc-2*
1138 . fmc*hbcm+3*fmc2)+48*(p3p7*p2p8)*(fmb*fmc-fmb*hbcm)+(p3p7*p3p5*
1139 . p2p8)*(32*ffmcfmb-32)+16*(ffmcfmb*p1p3*p3p5*p7p8+ffmcfmb*p1p8*
1140 . p3p5*p3p7-2*ffmcfmb*p3p5*p3p7*p5p8+2*fmb*fmc*p1p3*p7p8+fmb*fmc
1141 . *p1p8*p3p7-3*fmb*hbcm*p1p2*p7p8+3*fmb*hbcm*p2p3*p7p8-2*p1p2*
1142 . p3p5*p7p8+2*p2p3*p3p5*p7p8+3*p2p5*p3p5*p7p8-3*p2p8*p3p5*p5p7))
1143 . +w17*(8*(p3p7*p2p8)*(3*fmb*fmc-2*fmc*hbcm+3*fmc2)+8*(p3p7*p1p8
1144 . )*(-fmb*fmc-fmc2)+16*(p7p8*p1p3)*(2*fmb*fmc-fmc*hbcm+2*fmc2)+(
1145 . p3p7*p2p8*p2p3)*(32*ffmcfmb-32)+16*p7p8*(ffmcfmb*p1p3s2+2*
1146 . p2p3s2)+(p3p7*p2p8*p1p3)*(32*ffmcfmb-32)+(p7p8*p2p3*p1p3)*(16*
1147 . ffmcfmb+32)+16*(ffmcfmb*p1p3*p1p8*p3p7-2*ffmcfmb*p1p3*p3p7*
1148 . p5p8+ffmcfmb*p1p8*p2p3*p3p7-2*ffmcfmb*p2p3*p3p7*p5p8-2*p1p2*
1149 . p1p3*p7p8-2*p1p2*p2p3*p7p8+3*p1p3*p2p5*p7p8-3*p1p3*p2p8*p5p7+3
1150 . *p2p3*p2p5*p7p8-3*p2p3*p2p8*p5p7))+ans2
1151 ans=ccc*ans1
1152 b(5)=ans
1153 ans2=((p3p7*p3p5)*(128*fb4*ffmcfmb-48)+(p3p7*p2p3)*(-128*fb4*
1154 . ffmcfmb+48)+(p3p7*p1p3)*(-128*fb4*ffmcfmb+48)+4*p3p7*(8*fb3*
1155 . fmb*fmc+8*fb3*fmc2+16*fb4*fmc*hbcm+5*fmb*hbcm+5*fmc*hbcm-6*
1156 . hbcm2)+32*(4*fb4*p1p2*p3p7+6*fb4*p2p3*p5p7-6*fb4*p2p5*p3p7+
1157 . hbcm2*p5p7))
1158 ans1=w2*(16*(p3p7*p2p5)*(-3*fmb*hbcm+fmc*hbcm)+16*(p5p7*p2p3)*(
1159 . 3*fmb*hbcm-fmc*hbcm)+8*(p3p7*p3p5)*(3*fmb*fmc+2*fmc*hbcm-3*
1160 . fmc2)+8*p3p7*(4*ffmcfmb*p3p5s2+3*fmb*fmc*hbcm2-2*fmb*fmc2*hbcm
1161 . -2*fmb2*fmc*hbcm)+16*(-2*ffmcfmb*p1p3*p3p5*p3p7-2*ffmcfmb*p2p3
1162 . *p3p5*p3p7-3*fmb*fmc*p1p3*p3p7-3*fmb*fmc*p2p3*p3p7+3*fmb*hbcm*
1163 . p1p2*p3p7-fmc*hbcm*p1p3*p5p7+fmc*hbcm*p1p5*p3p7+hbcm2*p1p2*
1164 . p5p7+2*p1p2*p3p5*p3p7+3*p2p3*p3p5*p5p7-3*p2p5*p3p5*p3p7))+w17*
1165 . (8*(p3p7*p2p3)*(-3*fmb*fmc+2*fmc*hbcm-3*fmc2)+8*(p3p7*p1p3)*(-
1166 . 3*fmb*fmc+2*fmc*hbcm-3*fmc2)+32*p3p7*(-ffmcfmb*p1p3s2-ffmcfmb*
1167 . p2p3s2)+16*(-4*ffmcfmb*p1p3*p2p3*p3p7+2*ffmcfmb*p1p3*p3p5*p3p7
1168 . +2*ffmcfmb*p2p3*p3p5*p3p7+fmc*hbcm*p1p2*p3p7-2*fmc*hbcm*p1p3*
1169 . p5p7-2*fmc*hbcm*p2p5*p3p7+2*p1p2*p1p3*p3p7+2*p1p2*p2p3*p3p7+3*
1170 . p1p3*p2p3*p5p7-3*p1p3*p2p5*p3p7-3*p2p3*p2p5*p3p7+3*p2p3s2*p5p7
1171 . ))+w12*(8*(p3p7*p1p3)*(-3*fmb*fmc+2*fmc*hbcm-3*fmc2)+16*(-2*
1172 . ffmcfmb*p1p3*p2p3*p3p7+2*ffmcfmb*p1p3*p3p5*p3p7-2*ffmcfmb*
1173 . p1p3s2*p3p7-2*fmc*hbcm*p1p3*p5p7+2*p1p2*p1p3*p3p7+3*p1p3*p2p3*
1174 . p5p7-3*p1p3*p2p5*p3p7))+ans2
1175 ans=ccc*ans1
1176 b(6)=ans
1177 ans3=(4*p7p8*(-4*fmb*hbcm2+4*fmc*hbcm2-5*hbcm3)+8*(p3p7*p2p8)*(
1178 . 16*fb4*fmb-8*fb4*fmc-5*hbcm)+8*(p5p8*p3p7)*(8*fb3*fmc+5*hbcm)+
1179 . 8*(p7p8*p2p3)*(-8*fb3*fmc-16*fb4*fmb+8*fb4*fmc+5*hbcm)+8*(p3p7
1180 . *p1p8)*(-8*fb3*fmc-3*hbcm)+8*(8*fb3*hbcm*p1p2*p7p8-16*fb3*hbcm
1181 . *p2p5*p7p8+16*fb3*hbcm*p2p8*p5p7+3*hbcm*p1p3*p7p8-5*hbcm*p3p5*
1182 . p7p8))
1183 ans2=w17*(32*p7p8*(-fmb*p2p3s2-fmc*p1p3s2+fmc*p2p3s2)+32*(p3p7*
1184 . p2p8*p2p3)*(fmb-fmc)+32*(p3p7*p2p8*p1p3)*(fmb-fmc)+8*(p3p7*
1185 . p2p8)*(2*fmb*fmc*hbcm+3*fmc*hbcm2-2*fmc2*hbcm)+16*(p7p8*p1p3)*
1186 . (fmb*fmc*hbcm+2*fmc*hbcm2-fmc2*hbcm)+8*(-4*fmb*p1p3*p2p3*p7p8-
1187 . fmc*hbcm2*p1p8*p3p7+4*fmc*p1p3*p1p8*p3p7+8*fmc*p1p3*p3p5*p7p8-
1188 . 6*fmc*p1p3*p3p7*p5p8+4*fmc*p1p8*p2p3*p3p7-2*fmc*p1p8*p3p5*p3p7
1189 . -6*fmc*p2p3*p3p7*p5p8+6*fmc*p2p8*p3p5*p3p7+2*hbcm*p1p2*p1p3*
1190 . p7p8-2*hbcm*p1p2*p1p8*p3p7-2*hbcm*p1p2*p2p3*p7p8+2*hbcm*p1p2*
1191 . p2p8*p3p7-4*hbcm*p1p3*p2p5*p7p8+4*hbcm*p1p3*p2p8*p5p7-4*hbcm*
1192 . p1p8*p2p3*p5p7+4*hbcm*p1p8*p2p5*p3p7-4*hbcm*p2p3*p2p5*p7p8+4*
1193 . hbcm*p2p5*p2p8*p3p7))+w12*(16*(p3p7*p2p8*p1p3)*(2*fmb+fmc)+32*
1194 . (p7p8*p2p3*p1p3)*(-fmb-fmc)+16*(p7p8*p1p3)*(fmb*fmc*hbcm+2*fmc
1195 . *hbcm2-fmc2*hbcm)+8*(-fmc*hbcm2*p1p8*p3p7+4*fmc*p1p3*p1p8*p3p7
1196 . +8*fmc*p1p3*p3p5*p7p8-6*fmc*p1p3*p3p7*p5p8-4*fmc*p1p3s2*p7p8+2
1197 . *fmc*p1p8*p2p3*p3p7-2*fmc*p1p8*p3p5*p3p7+2*hbcm*p1p2*p1p3*p7p8
1198 . -2*hbcm*p1p2*p1p8*p3p7-4*hbcm*p1p3*p2p5*p7p8+4*hbcm*p1p3*p2p8*
1199 . p5p7-4*hbcm*p1p8*p2p3*p5p7+4*hbcm*p1p8*p2p5*p3p7))+ans3
1200 ans1=w2*(16*(p3p7*p3p5*p2p8)*(2*fmb+fmc)+32*(p7p8*p3p5*p2p3)*(-
1201 . fmb+fmc)+16*(p5p7*p2p8)*(-2*fmb*hbcm2-fmc*hbcm2+hbcm3)+16*(
1202 . p7p8*p2p5)*(2*fmb*hbcm2+fmc*hbcm2-hbcm3)+8*(p5p8*p3p7)*(-2*fmb
1203 . *fmc*hbcm+3*fmc*hbcm2-2*fmc2*hbcm)+16*(p3p7*p2p8)*(-fmb*fmc*
1204 . hbcm+3*fmb2*hbcm)+48*(p7p8*p2p3)*(fmb*fmc*hbcm-fmb2*hbcm)+16*(
1205 . fmb*fmc*hbcm*p1p3*p7p8+fmb*fmc*hbcm*p1p8*p3p7-2*fmb*hbcm2*p1p2
1206 . *p7p8+2*fmc*p1p3*p3p5*p7p8-3*fmc*p1p3*p3p7*p5p8+fmc*p1p8*p3p5*
1207 . p3p7-3*fmc*p2p3*p3p7*p5p8-3*hbcm*p1p2*p3p5*p7p8+3*hbcm*p1p2*
1208 . p3p7*p5p8+2*hbcm*p1p5*p2p3*p7p8-2*hbcm*p1p5*p2p8*p3p7+2*hbcm*
1209 . p2p3*p2p5*p7p8+2*hbcm*p2p3*p5p7*p5p8-2*hbcm*p2p5*p2p8*p3p7+2*
1210 . hbcm*p2p5*p3p5*p7p8-2*hbcm*p2p5*p3p7*p5p8-2*hbcm*p2p8*p3p5*
1211 . p5p7))+ans2
1212 ans=ccc*ans1
1213 b(7)=ans
1214 ans=ccc*(w2*(16*(p5p6*p2p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p3p6
1215 . *p2p8)*(-2*fmb*fmc-fmb*hbcm)+(p3p6*p3p5*p2p8)*(-16*ffmcfmb-16)
1216 . +16*(ffmcfmb*p1p3*p3p5*p6p8+fmb*fmc*p1p3*p6p8-fmb*hbcm*p2p4*
1217 . p6p8-4*fmb*hbcm*p2p8*p4p6-p2p4*p3p5*p6p8-3*p2p8*p3p5*p4p6))+
1218 . w12*(16*(p3p6*p2p8)*(-2*fmb*fmc+fmc*hbcm-2*fmc2)+16*(p6p8*p1p3
1219 . )*(fmb*fmc-fmc*hbcm+fmc2)+(p3p6*p2p8*p1p3)*(-16*ffmcfmb-16)+16
1220 . *(ffmcfmb*p1p3s2*p6p8-p1p3*p2p4*p6p8-3*p1p3*p2p8*p4p6))+w17*(
1221 . 16*(p3p6*p2p8)*(-2*fmb*fmc+fmc*hbcm-2*fmc2)+16*(p6p8*p1p3)*(
1222 . fmb*fmc-fmc*hbcm+fmc2)+(p3p6*p2p8*p2p3)*(-16*ffmcfmb-16)+(p3p6
1223 . *p2p8*p1p3)*(-16*ffmcfmb-16)+16*(ffmcfmb*p1p3*p2p3*p6p8+
1224 . ffmcfmb*p1p3s2*p6p8-p1p3*p2p4*p6p8-3*p1p3*p2p8*p4p6-p2p3*p2p4*
1225 . p6p8-3*p2p3*p2p8*p4p6))+(16*p6p8*(-2*fmb*hbcm-2*fmc*hbcm+hbcm2
1226 . )+(p3p6*p2p8)*(-64*fb4*ffmcfmb-64*fb4+56)+(p6p8*p1p3)*(64*fb4*
1227 . ffmcfmb-24)+32*(-2*fb4*p2p4*p6p8-6*fb4*p2p8*p4p6+p1p8*p3p6-2*
1228 . p3p6*p5p8)))
1229 b(8)=ans
1230 ans=ccc*(w17*(32*(p3p6*p2p3)*(fmb*fmc+fmc2)+16*(p3p6*p1p3)*(-
1231 . fmb*fmc-fmc2)+16*p3p6*(-ffmcfmb*p1p3s2+ffmcfmb*p2p3s2)+16*(-
1232 . fmc*hbcm*p1p2*p3p6-2*fmc*hbcm*p1p3*p4p6+2*fmc*hbcm*p2p5*p3p6+
1233 . p1p2*p1p3*p3p6+p1p2*p2p3*p3p6+3*p1p3*p2p3*p4p6-p1p3*p2p5*p3p6-
1234 . p2p3*p2p5*p3p6+3*p2p3s2*p4p6))+w2*(16*(p3p6*p2p5)*(-fmb*hbcm+
1235 . fmc*hbcm)+16*(p5p6*p2p3)*(fmb*hbcm+fmc*hbcm)+16*(-ffmcfmb*p1p3
1236 . *p3p5*p3p6+ffmcfmb*p2p3*p3p5*p3p6-fmb*fmc*p1p3*p3p6+2*fmb*fmc*
1237 . p2p3*p3p6+fmb*hbcm*p1p2*p3p6+4*fmb*hbcm*p2p3*p4p6+fmc*hbcm*
1238 . p1p3*p5p6-hbcm2*p1p2*p5p6+hbcm2*p2p5*p4p6+hbcm2*p2p5*p5p6+p1p2
1239 . *p3p5*p3p6+3*p2p3*p3p5*p4p6-p2p5*p3p5*p3p6))+w12*(32*(p3p6*
1240 . p2p3)*(fmb*fmc+fmc2)+16*(p3p6*p1p3)*(-fmb*fmc-fmc2)+16*(
1241 . ffmcfmb*p1p3*p2p3*p3p6-ffmcfmb*p1p3s2*p3p6-fmc*hbcm*p1p2*p3p6-
1242 . 2*fmc*hbcm*p1p3*p4p6+2*fmc*hbcm*p2p5*p3p6+p1p2*p1p3*p3p6+3*
1243 . p1p3*p2p3*p4p6-p1p3*p2p5*p3p6))+(32*p3p6*(fmb*hbcm+fmc*hbcm+
1244 . hbcm2)+(p3p6*p2p3)*(64*fb4*ffmcfmb-56)+(p3p6*p1p3)*(-64*fb4*
1245 . ffmcfmb-8)+32*(2*fb4*p1p2*p3p6+6*fb4*p2p3*p4p6-2*fb4*p2p5*p3p6
1246 . +hbcm2*p4p6+2*p3p5*p3p6)))
1247 b(9)=ans
1248 ans3=(16*p6p8*(-fmb*hbcm2+fmc*hbcm2-2*hbcm3)+64*(p3p6*p2p8)*(
1249 . fb3*fmc+fb4*fmb-hbcm)+64*(p6p8*p2p3)*(-fb3*fmc-fb4*fmb+hbcm)+8
1250 . *(p6p8*p1p3)*(-8*fb3*fmc+5*hbcm)+8*(8*fb3*hbcm*p1p2*p6p8-8*fb3
1251 . *hbcm*p2p5*p6p8+16*fb3*hbcm*p2p8*p4p6-5*hbcm*p1p8*p3p6-8*hbcm*
1252 . p3p5*p6p8+8*hbcm*p3p6*p5p8))
1253 ans2=w17*(16*p6p8*(-fmb*p2p3s2-fmc*p1p3s2+fmc*p2p3s2)+16*(p3p6*
1254 . p2p8*p2p3)*(fmb-fmc)+16*(p3p6*p2p8*p1p3)*(fmb+2*fmc)+16*(p3p6*
1255 . p2p8)*(-fmb*fmc*hbcm-2*fmc*hbcm2+fmc2*hbcm)+16*(p6p8*p1p3)*(
1256 . fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+16*(-fmb*p1p3*p2p3*p6p8+fmc*
1257 . p1p3*p1p8*p3p6+2*fmc*p1p3*p3p5*p6p8-2*fmc*p1p3*p3p6*p5p8-2*fmc
1258 . *p1p8*p2p3*p3p6+4*fmc*p2p3*p3p6*p5p8-4*fmc*p2p8*p3p5*p3p6+hbcm
1259 . *p1p2*p1p3*p6p8-hbcm*p1p2*p1p8*p3p6-hbcm*p1p2*p2p3*p6p8+hbcm*
1260 . p1p2*p2p8*p3p6-hbcm*p1p3*p2p5*p6p8+2*hbcm*p1p3*p2p8*p4p6-2*
1261 . hbcm*p1p8*p2p3*p4p6+hbcm*p1p8*p2p5*p3p6-hbcm*p2p3*p2p5*p6p8+
1262 . hbcm*p2p5*p2p8*p3p6))+w12*(16*(p3p6*p2p8*p1p3)*(fmb+3*fmc)+16*
1263 . (p6p8*p2p3*p1p3)*(-fmb-fmc)+16*(p3p6*p2p8)*(-fmb*fmc*hbcm-2*
1264 . fmc*hbcm2+fmc2*hbcm)+16*(p6p8*p1p3)*(fmb*fmc*hbcm+fmc*hbcm2-
1265 . fmc2*hbcm)+16*(fmc*p1p3*p1p8*p3p6+2*fmc*p1p3*p3p5*p6p8-2*fmc*
1266 . p1p3*p3p6*p5p8-fmc*p1p3s2*p6p8-2*fmc*p1p8*p2p3*p3p6+4*fmc*p2p3
1267 . *p3p6*p5p8-4*fmc*p2p8*p3p5*p3p6+hbcm*p1p2*p1p3*p6p8-hbcm*p1p2*
1268 . p1p8*p3p6-hbcm*p1p3*p2p5*p6p8+2*hbcm*p1p3*p2p8*p4p6-2*hbcm*
1269 . p1p8*p2p3*p4p6+hbcm*p1p8*p2p5*p3p6))+ans3
1270 ans1=w2*(16*(p3p6*p3p5*p2p8)*(fmb-3*fmc)+16*(p6p8*p3p5*p2p3)*(-
1271 . fmb+fmc)+16*(p5p6*p2p8)*(-fmb*hbcm2+fmc*hbcm2-hbcm3)+16*(p3p6*
1272 . p2p8)*(-2*fmb*fmc*hbcm+fmb2*hbcm)+16*(p6p8*p2p3)*(fmb*fmc*hbcm
1273 . -fmb2*hbcm)+16*(fmb*fmc*hbcm*p1p3*p6p8-fmb*hbcm2*p1p2*p6p8+fmb
1274 . *hbcm2*p2p5*p6p8-3*fmb*hbcm2*p2p8*p4p6+fmc*p1p3*p3p5*p6p8-fmc*
1275 . p1p3*p3p6*p5p8+2*fmc*p2p3*p3p6*p5p8-hbcm*p1p2*p3p5*p6p8+hbcm*
1276 . p1p2*p3p6*p5p8+4*hbcm*p2p3*p4p6*p5p8+2*hbcm*p2p3*p5p6*p5p8+
1277 . hbcm*p2p5*p3p5*p6p8-hbcm*p2p5*p3p6*p5p8-4*hbcm*p2p8*p3p5*p4p6-
1278 . 2*hbcm*p2p8*p3p5*p5p6))+ans2
1279 ans=ccc*ans1
1280 b(10)=ans
1281 ans3=(8*p6p7*(2*fmb*hbcm2-2*fmc*hbcm2+3*hbcm3)+8*(p3p7*p3p6)*(8
1282 . *fb4*ffmcfmb*fmb-7*fmb+5*fmc)+8*(p4p6*p3p7)*(8*fb3*fmc+5*hbcm)
1283 . +16*(p6p7*p2p3)*(4*fb3*fmc+8*fb4*fmb-4*fb4*fmc-3*hbcm)+16*(-4*
1284 . fb3*hbcm*p1p2*p6p7+8*fb3*hbcm*p2p5*p6p7-2*hbcm*p1p3*p6p7+3*
1285 . hbcm*p3p5*p6p7-4*hbcm*p3p6*p5p7))
1286 ans2=w17*(32*p6p7*(fmb*p2p3s2+fmc*p1p3s2-fmc*p2p3s2)+16*(p6p7*
1287 . p1p3)*(-fmb*fmc*hbcm-2*fmc*hbcm2+fmc2*hbcm)+16*(ffmcfmb*fmb*
1288 . p1p3*p3p6*p3p7+ffmcfmb*fmb*p2p3*p3p6*p3p7-2*ffmcfmb*fmc*p3p5*
1289 . p3p6*p3p7+2*fmb*p1p3*p2p3*p6p7-2*fmc*p1p2*p3p6*p3p7-4*fmc*p1p3
1290 . *p3p5*p6p7+2*fmc*p1p3*p3p6*p5p7-3*fmc*p1p3*p3p7*p4p6-4*fmc*
1291 . p2p3*p3p6*p5p7-3*fmc*p2p3*p3p7*p4p6+6*fmc*p2p5*p3p6*p3p7-fmc2*
1292 . hbcm*p3p6*p3p7-hbcm*p1p2*p1p3*p6p7+hbcm*p1p2*p2p3*p6p7+2*hbcm*
1293 . p1p3*p2p5*p6p7+2*hbcm*p2p3*p2p5*p6p7))+w12*(32*(p6p7*p2p3*p1p3
1294 . )*(fmb+fmc)+16*(p6p7*p1p3)*(-fmb*fmc*hbcm-2*fmc*hbcm2+fmc2*
1295 . hbcm)+16*(ffmcfmb*fmb*p1p3*p3p6*p3p7+2*ffmcfmb*fmc*p2p3*p3p6*
1296 . p3p7-2*ffmcfmb*fmc*p3p5*p3p6*p3p7-2*fmc*p1p2*p3p6*p3p7-4*fmc*
1297 . p1p3*p3p5*p6p7+2*fmc*p1p3*p3p6*p5p7-3*fmc*p1p3*p3p7*p4p6+2*fmc
1298 . *p1p3s2*p6p7-4*fmc*p2p3*p3p6*p5p7+4*fmc*p2p5*p3p6*p3p7-fmc2*
1299 . hbcm*p3p6*p3p7-hbcm*p1p2*p1p3*p6p7+2*hbcm*p1p3*p2p5*p6p7))+
1300 . ans3
1301 ans1=w2*(32*(p6p7*p3p5*p2p3)*(fmb-fmc)+16*(p6p7*p2p5)*(-2*fmb*
1302 . hbcm2-fmc*hbcm2+hbcm3)+16*(p3p7*p3p6)*(-fmb*fmc2+fmb2*fmc)+16*
1303 . (p5p6*p3p7)*(-fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+48*(p6p7*p2p3)
1304 . *(-fmb*fmc*hbcm+fmb2*hbcm)+16*(p3p7*p3p6*p3p5)*(ffmcfmb*fmb-2*
1305 . ffmcfmb*fmc)+16*(-fmb*fmc*hbcm*p1p3*p6p7-2*fmb*fmc*hbcm*p3p7*
1306 . p4p6+2*fmb*hbcm2*p1p2*p6p7-2*fmc*p1p3*p3p5*p6p7+2*fmc*p1p3*
1307 . p3p7*p5p6-2*fmc*p2p3*p3p6*p5p7+2*fmc*p2p3*p3p7*p5p6+2*fmc*p2p5
1308 . *p3p6*p3p7-3*fmc*p3p5*p3p7*p4p6-2*fmc*p3p5*p3p7*p5p6+3*hbcm*
1309 . p1p2*p3p5*p6p7-2*hbcm*p1p2*p3p7*p5p6-2*hbcm*p1p5*p2p3*p6p7-2*
1310 . hbcm*p2p3*p2p5*p6p7-2*hbcm*p2p3*p4p6*p5p7-2*hbcm*p2p3*p5p6*
1311 . p5p7-2*hbcm*p2p5*p3p5*p6p7+2*hbcm*p2p5*p3p7*p4p6+2*hbcm*p2p5*
1312 . p3p7*p5p6))+ans2
1313 ans=ccc*ans1
1314 b(11)=ans
1315 ans4=16*(-2*ffmcfmb*p1p3*p2p3*p3p6*p7p8+2*ffmcfmb*p1p3*p2p3*
1316 . p3p7*p6p8-2*ffmcfmb*p1p3*p3p5*p3p7*p6p8+2*ffmcfmb*p1p3*p3p6*
1317 . p3p7*p5p8-2*ffmcfmb*p2p3*p3p5*p3p7*p6p8+2*ffmcfmb*p2p3*p3p6*
1318 . p3p7*p5p8-2*ffmcfmb*p2p3s2*p3p6*p7p8+2*ffmcfmb*p2p3s2*p3p7*
1319 . p6p8+2*fmc*hbcm*p1p2*p3p6*p7p8+fmc*hbcm*p1p3*p1p8*p6p7+2*fmc*
1320 . hbcm*p1p3*p4p6*p7p8+2*fmc*hbcm*p1p3*p5p7*p6p8-2*fmc*hbcm*p1p3*
1321 . p5p8*p6p7-2*fmc*hbcm*p2p5*p3p6*p7p8+2*fmc*hbcm*p2p5*p3p7*p6p8+
1322 . 2*fmc*hbcm*p2p8*p3p6*p5p7+2*fmc*hbcm*p2p8*p3p7*p4p6-2*hbcm2*
1323 . p1p2*p2p8*p6p7+hbcm2*p1p8*p2p5*p6p7+hbcm2*p2p5*p2p8*p6p7+4*
1324 . p1p3*p1p8*p2p3*p6p7+4*p1p3*p2p3*p2p8*p6p7-2*p1p3*p2p3*p4p6*
1325 . p7p8+2*p1p3*p2p3*p4p7*p6p8-6*p1p3*p2p3*p4p8*p6p7-2*p1p3*p2p3*
1326 . p5p8*p6p7+2*p1p3*p2p8*p3p5*p6p7+8*p1p3*p2p8*p3p7*p4p6+4*p1p8*
1327 . p2p3s2*p6p7+2*p2p3*p2p8*p3p5*p6p7+8*p2p3*p2p8*p3p7*p4p6+4*
1328 . p2p3s2*p2p8*p6p7-2*p2p3s2*p4p6*p7p8+2*p2p3s2*p4p7*p6p8-6*
1329 . p2p3s2*p4p8*p6p7-2*p2p3s2*p5p8*p6p7)
1330 ans3=16*(p6p7*p2p8*p2p3)*(2*fmb*hbcm+2*fmc*hbcm+hbcm2)+16*(p6p7
1331 . *p2p3*p1p8)*(fmb*hbcm+fmc*hbcm)+16*(p6p7*p2p8*p1p3)*(fmb*hbcm+
1332 . 2*fmc*hbcm+hbcm2)+16*(p3p7*p3p6*p2p8)*(7*fmb*fmc-2*fmc*hbcm+7*
1333 . fmc2)+16*(p6p8*p3p7*p2p3)*(fmb*fmc-fmc*hbcm+fmc2)+32*(p7p8*
1334 . p3p6*p2p3)*(-fmb*fmc-fmc2)+16*(p3p7*p3p6*p1p8)*(fmb*fmc+fmc2)+
1335 . 16*(p6p8*p3p7*p1p3)*(-fmb*fmc+fmc*hbcm-fmc2)+(p3p7*p3p6*p2p8*
1336 . p2p3)*(64*ffmcfmb+32)+(p3p7*p3p6*p2p8*p1p3)*(64*ffmcfmb+32)+
1337 . ans4
1338 ans2=w17*ans3
1339 ans6=(8*(p7p8*p3p6)*(-5*fmb*hbcm-5*fmc*hbcm-4*hbcm2)+(p5p8*p3p7
1340 . *p3p6)*(128*fb4*ffmcfmb+16)+(p6p8*p3p7*p3p5)*(-128*fb4*ffmcfmb
1341 . +48)+(p3p7*p3p6*p2p8)*(256*fb4*ffmcfmb+128*fb4-96)+(p6p8*p3p7*
1342 . p2p3)*(128*fb4*ffmcfmb-48)+(p7p8*p3p6*p2p3)*(-128*fb4*ffmcfmb+
1343 . 48)+64*(p6p7*p2p8)*(fb3*fmb*hbcm-fb4*fmc*hbcm+fb4*hbcm2)+8*(
1344 . p6p8*p3p7)*(-8*fb3*fmb*fmc-8*fb4*fmc*hbcm+8*fb4*fmc2+5*fmb*
1345 . hbcm+3*fmc*hbcm-hbcm2)+8*(32*fb4*p1p8*p2p3*p6p7+32*fb4*p2p3*
1346 . p2p8*p6p7-16*fb4*p2p3*p4p6*p7p8+16*fb4*p2p3*p4p7*p6p8-48*fb4*
1347 . p2p3*p4p8*p6p7-16*fb4*p2p3*p5p8*p6p7+16*fb4*p2p8*p3p5*p6p7+64*
1348 . fb4*p2p8*p3p7*p4p6-3*hbcm2*p1p8*p6p7-4*hbcm2*p4p6*p7p8-4*hbcm2
1349 . *p5p7*p6p8+4*hbcm2*p5p8*p6p7-8*p3p5*p3p6*p7p8))
1350 ans5=w12*(16*(p6p7*p2p3*p1p8)*(fmb*hbcm+fmc*hbcm)+16*(p6p7*p2p8
1351 . *p1p3)*(fmb*hbcm+fmc*hbcm+hbcm2)+32*(p3p7*p3p6*p2p8)*(3*fmb*
1352 . fmc-fmc*hbcm+3*fmc2)+32*(p7p8*p3p6*p2p3)*(-fmb*fmc-fmc2)+16*(
1353 . p3p7*p3p6*p1p8)*(fmb*fmc+fmc2)+16*(p6p8*p3p7*p1p3)*(-fmb*fmc+
1354 . fmc*hbcm-fmc2)+(p3p7*p3p6*p2p8*p1p3)*(64*ffmcfmb+32)+16*(-2*
1355 . ffmcfmb*p1p3*p2p3*p3p6*p7p8+2*ffmcfmb*p1p3*p2p3*p3p7*p6p8-2*
1356 . ffmcfmb*p1p3*p3p5*p3p7*p6p8+2*ffmcfmb*p1p3*p3p6*p3p7*p5p8+2*
1357 . fmc*hbcm*p1p2*p3p6*p7p8+fmc*hbcm*p1p3*p1p8*p6p7+2*fmc*hbcm*
1358 . p1p3*p4p6*p7p8+2*fmc*hbcm*p1p3*p5p7*p6p8-2*fmc*hbcm*p1p3*p5p8*
1359 . p6p7-2*fmc*hbcm*p2p5*p3p6*p7p8+2*fmc*hbcm*p2p8*p3p6*p5p7+hbcm2
1360 . *p1p8*p2p5*p6p7+4*p1p3*p1p8*p2p3*p6p7+4*p1p3*p2p3*p2p8*p6p7-2*
1361 . p1p3*p2p3*p4p6*p7p8+2*p1p3*p2p3*p4p7*p6p8-6*p1p3*p2p3*p4p8*
1362 . p6p7-2*p1p3*p2p3*p5p8*p6p7+2*p1p3*p2p8*p3p5*p6p7+8*p1p3*p2p8*
1363 . p3p7*p4p6))+ans6
1364 ans1=w2*(32*(p5p6*p3p7*p2p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p7
1365 . *p3p5*p2p8)*(fmb*hbcm-fmc*hbcm+hbcm2)+16*(p6p7*p5p8*p2p3)*(-5*
1366 . fmb*hbcm-3*fmc*hbcm)+16*(p5p8*p3p7*p3p6)*(fmb*fmc-fmc2)+16*(
1367 . p6p8*p3p7*p3p5)*(-fmb*fmc-fmc*hbcm+fmc2)+32*(p3p7*p3p6*p2p8)*(
1368 . 3*fmb*fmc+fmb*hbcm)+16*(p6p7*p2p8)*(-fmb*fmc*hbcm2+fmb*hbcm3-
1369 . fmb2*hbcm2+2*p3p5s2)+16*(p6p8*p3p7)*(-2*ffmcfmb*p3p5s2-fmb*fmc
1370 . *hbcm2+fmb*fmc2*hbcm+fmb2*fmc*hbcm)+(p3p7*p3p6*p3p5*p2p8)*(64*
1371 . ffmcfmb+32)+16*(-2*ffmcfmb*p2p3*p3p5*p3p6*p7p8+2*ffmcfmb*p2p3*
1372 . p3p5*p3p7*p6p8+2*ffmcfmb*p3p5*p3p6*p3p7*p5p8-2*fmb*fmc*p2p3*
1373 . p3p6*p7p8+2*fmb*fmc*p2p3*p3p7*p6p8+6*fmb*hbcm*p1p8*p2p3*p6p7+6
1374 . *fmb*hbcm*p2p3*p2p8*p6p7-2*fmb*hbcm*p2p3*p4p6*p7p8+2*fmb*hbcm*
1375 . p2p3*p4p7*p6p8-8*fmb*hbcm*p2p3*p4p8*p6p7+10*fmb*hbcm*p2p8*p3p7
1376 . *p4p6-fmc*hbcm*p1p3*p5p8*p6p7-2*fmc*hbcm*p3p7*p4p6*p5p8-2*fmc*
1377 . hbcm*p3p7*p5p6*p5p8+2*hbcm2*p1p2*p5p8*p6p7-hbcm2*p2p5*p5p8*
1378 . p6p7+4*p1p8*p2p3*p3p5*p6p7+4*p2p3*p2p8*p3p5*p6p7-2*p2p3*p3p5*
1379 . p4p6*p7p8+2*p2p3*p3p5*p4p7*p6p8-6*p2p3*p3p5*p4p8*p6p7-2*p2p3*
1380 . p3p5*p5p8*p6p7+8*p2p8*p3p5*p3p7*p4p6))+ans2+ans5
1381 ans=ccc*ans1
1382 b(12)=ans
1383 b(13)=ccc*(w17*(24*(p2p8*p2p3)*(-fmb+fmc)+8*(p2p8*p1p3)*(-3*fmb
1384 . +2*hbcm)+8*(-3*fmc*p1p3*p1p8+6*fmc*p1p3*p5p8+2*hbcm*p1p2*p1p8-
1385 . 2*hbcm*p1p2*p2p8-2*hbcm*p1p8*p2p3-3*hbcm*p1p8*p2p5-3*hbcm*p2p5
1386 . *p2p8))+w12*(8*(p2p8*p1p3)*(-3*fmb-3*fmc+2*hbcm)+8*(-3*fmc*
1387 . p1p3*p1p8+6*fmc*p1p3*p5p8+2*hbcm*p1p2*p1p8-2*hbcm*p1p8*p2p3-3*
1388 . hbcm*p1p8*p2p5))+w2*(8*(p3p5*p2p8)*(-3*fmb+3*fmc-4*hbcm)+8*
1389 . p2p8*(4*fmb*fmc*hbcm-3*fmb*hbcm2-4*fmb2*hbcm)+8*(3*fmc*p1p3*
1390 . p5p8-4*hbcm*p1p2*p5p8+2*hbcm*p1p5*p2p8+4*hbcm*p2p3*p5p8+2*hbcm
1391 . *p2p5*p2p8+3*hbcm*p2p5*p5p8))+(16*p2p8*(-4*fb3*fmc+4*fb3*hbcm-
1392 . 6*fb4*fmb+2*fb4*fmc+3*hbcm)+4*(7*hbcm*p1p8-12*hbcm*p5p8)))
1393 b(14)=ccc*(w12*(8*p1p3*(-3*fmb*fmc+2*fmc*hbcm-3*fmc2)+8*(-2*
1394 . ffmcfmb*p1p3s2+3*p1p2*p1p3-3*p1p3*p2p3-4*p1p3*p2p5))+w2*(8*
1395 . p2p5*(-4*fmb*hbcm+fmc*hbcm-hbcm2)+8*(-2*ffmcfmb*p1p3*p3p5-3*
1396 . fmb*fmc*p1p3+4*fmb*hbcm*p1p2-4*fmb*hbcm*p2p3+3*p1p2*p3p5-3*
1397 . p2p3*p3p5-4*p2p5*p3p5))+w17*(8*p1p3*(-3*fmb*fmc+2*fmc*hbcm-3*
1398 . fmc2)+(p2p3*p1p3)*(-16*ffmcfmb-24)+8*(-2*ffmcfmb*p1p3s2+3*p1p2
1399 . *p1p3+3*p1p2*p2p3-4*p1p3*p2p5-4*p2p3*p2p5-3*p2p3s2))+(p1p3*(-
1400 . 64*fb4*ffmcfmb+24)+8*(12*fb4*p1p2-12*fb4*p2p3-16*fb4*p2p5+3*
1401 . fmb*hbcm+3*fmc*hbcm-2*hbcm2)))
1402 ans2=(32*p2p8*(2*fb3*fmb*hbcm+fb3*fmc*hbcm-fb4*fmc*hbcm+3*fb4*
1403 . hbcm2+hbcm2)+16*(-4*fb4*p1p3*p2p8+4*fb4*p1p8*p2p3-12*fb4*p2p3*
1404 . p5p8+12*fb4*p2p8*p3p5+hbcm2*p1p8-2*hbcm2*p5p8))
1405 ans1=w17*(16*(p2p3*p1p8)*(-fmb*hbcm-fmc*hbcm)+8*(p2p8*p1p3)*(2*
1406 . fmb*hbcm+3*hbcm2)+8*(-2*fmc*hbcm*p1p3*p1p8+4*fmc*hbcm*p1p3*
1407 . p5p8+hbcm2*p1p2*p1p8-hbcm2*p1p2*p2p8-2*hbcm2*p1p8*p2p5+3*hbcm2
1408 . *p2p3*p2p8-2*hbcm2*p2p5*p2p8+2*p1p3*p1p8*p2p3-2*p1p3*p2p3*p2p8
1409 . -6*p1p3*p2p3*p5p8+6*p1p3*p2p8*p3p5-2*p1p3s2*p2p8+2*p1p8*p2p3s2
1410 . +6*p2p3*p2p8*p3p5-6*p2p3s2*p5p8))+w12*(16*(p2p3*p1p8)*(-fmb*
1411 . hbcm-fmc*hbcm)+8*(p2p8*p1p3)*(2*fmb*hbcm-2*fmc*hbcm+3*hbcm2)+8
1412 . *(-2*fmc*hbcm*p1p3*p1p8+4*fmc*hbcm*p1p3*p5p8+hbcm2*p1p2*p1p8-2
1413 . *hbcm2*p1p8*p2p5+2*p1p3*p1p8*p2p3-6*p1p3*p2p3*p5p8+6*p1p3*p2p8
1414 . *p3p5-2*p1p3s2*p2p8))+w2*(8*(p3p5*p2p8)*(4*fmb*hbcm-4*fmc*hbcm
1415 . +3*hbcm2)+32*(p5p8*p2p3)*(-fmb*hbcm+fmc*hbcm)+8*p2p8*(-3*fmb*
1416 . fmc*hbcm2+4*fmb*hbcm3-3*fmb2*hbcm2+6*p3p5s2)+8*(-2*fmb*hbcm*
1417 . p1p3*p2p8+2*fmb*hbcm*p1p8*p2p3+2*fmc*hbcm*p1p3*p5p8-3*hbcm2*
1418 . p1p2*p5p8+2*hbcm2*p1p5*p2p8+2*hbcm2*p2p5*p2p8+2*hbcm2*p2p5*
1419 . p5p8-2*p1p3*p2p8*p3p5+2*p1p8*p2p3*p3p5-6*p2p3*p3p5*p5p8))+ans2
1420 ans=ccc*ans1
1421 b(15)=ans
1422 ans=ccc*(w2*(24*(p3p5*p2p3)*(fmb-fmc)+8*p2p5*(-3*fmb*hbcm2-fmc*
1423 . hbcm2+hbcm3)+32*p2p3*(-fmb*fmc*hbcm+fmb2*hbcm)+8*(-2*fmb*fmc*
1424 . hbcm*p1p3+3*fmb*hbcm2*p1p2-3*fmc*p1p3*p3p5+4*hbcm*p1p2*p3p5-2*
1425 . hbcm*p1p5*p2p3-2*hbcm*p2p3*p2p5-3*hbcm*p2p5*p3p5))+w17*(8*p1p3
1426 . *(-2*fmb*fmc*hbcm-3*fmc*hbcm2+2*fmc2*hbcm)+8*(3*fmb*p1p3*p2p3+
1427 . 3*fmb*p2p3s2-6*fmc*p1p3*p3p5+3*fmc*p1p3s2-3*fmc*p2p3s2-2*hbcm*
1428 . p1p2*p1p3+2*hbcm*p1p2*p2p3+3*hbcm*p1p3*p2p5+3*hbcm*p2p3*p2p5))
1429 . +w12*(24*(p2p3*p1p3)*(fmb+fmc)+8*p1p3*(-2*fmb*fmc*hbcm-3*fmc*
1430 . hbcm2+2*fmc2*hbcm)+8*(-6*fmc*p1p3*p3p5+3*fmc*p1p3s2-2*hbcm*
1431 . p1p2*p1p3+3*hbcm*p1p3*p2p5))+(16*p2p3*(4*fb3*fmc+6*fb4*fmb-2*
1432 . fb4*fmc-3*hbcm)+4*p1p3*(8*fb3*fmc-7*hbcm)+8*(-8*fb3*hbcm*p1p2+
1433 . 12*fb3*hbcm*p2p5+2*fmb*hbcm2-2*fmc*hbcm2+6*hbcm*p3p5+3*hbcm3))
1434 . )
1435 b(16)=ans
1436 b(17)=ccc*(w17*(8*(p3p6*p2p8)*(3*fmc+hbcm)+8*(p3p6*p1p8)*(3*fmc
1437 . +hbcm)+8*(p6p8*p2p3)*(fmb-fmc-hbcm)+8*(p6p8*p1p3)*(fmb-fmc-
1438 . hbcm)+8*(-6*fmc*p3p6*p5p8+2*hbcm*p1p2*p6p8+3*hbcm*p1p8*p4p6+3*
1439 . hbcm*p2p8*p4p6))+w12*(8*(p3p6*p1p8)*(3*fmc+hbcm)+8*(p6p8*p1p3)
1440 . *(fmb+fmc-hbcm)+8*(2*fmc*p2p8*p3p6-6*fmc*p3p6*p5p8+3*hbcm*p1p8
1441 . *p4p6))+w2*(8*(p5p8*p3p6)*(-3*fmc-hbcm)+8*(p6p8*p3p5)*(fmb-fmc
1442 . +hbcm)+8*p6p8*(-fmb*fmc*hbcm+fmb*hbcm2+fmb2*hbcm)+8*(-5*hbcm*
1443 . p4p6*p5p8-2*hbcm*p5p6*p5p8))+4*p6p8*(8*fb3*fmc-8*fb3*hbcm+8*
1444 . fb4*fmb-7*hbcm))
1445 b(18)=ccc*(w2*(8*p5p6*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*p3p6*(-3*fmb
1446 . *fmc-fmb*hbcm)+(p3p6*p3p5)*(-16*ffmcfmb-8)+8*(-5*fmb*hbcm*p4p6
1447 . -4*p3p5*p4p6))+w17*(8*p3p6*(-3*fmb*fmc+2*fmc*hbcm-3*fmc2)+(
1448 . p3p6*p2p3)*(-16*ffmcfmb-8)+(p3p6*p1p3)*(-16*ffmcfmb-8)+32*(-
1449 . p1p3*p4p6-p2p3*p4p6))+w12*(8*p3p6*(-3*fmb*fmc+2*fmc*hbcm-3*
1450 . fmc2)+(p3p6*p1p3)*(-16*ffmcfmb-8)-32*p1p3*p4p6)+(p3p6*(-64*fb4
1451 . *ffmcfmb-32*fb4+24)-128*fb4*p4p6))
1452 b(19)=ccc*(w2*(4*p5p8*(4*fmb*hbcm2+4*fmc*hbcm2-5*hbcm3)+8*(-fmb
1453 . *hbcm2*p1p8-fmb*hbcm2*p2p8+hbcm*p1p3*p5p8-hbcm*p1p8*p3p5+hbcm*
1454 . p2p3*p5p8-hbcm*p2p8*p3p5))+w17*(4*p2p8*(2*fmb*hbcm2-2*fmc*
1455 . hbcm2+3*hbcm3)+4*p1p8*(2*fmb*hbcm2-2*fmc*hbcm2+3*hbcm3)+24*(-
1456 . hbcm*p1p3*p5p8+hbcm*p1p8*p3p5-hbcm*p2p3*p5p8+hbcm*p2p8*p3p5))+
1457 . w12*(4*p1p8*(2*fmb*hbcm2-2*fmc*hbcm2+3*hbcm3)+8*(hbcm*p1p3*
1458 . p2p8-3*hbcm*p1p3*p5p8-hbcm*p1p8*p2p3+3*hbcm*p1p8*p3p5))+32*(
1459 . fb3*hbcm*p1p8+fb3*hbcm*p2p8-3*fb3*hbcm*p5p8))
1460 b(20)=ccc*(w2*(4*p5p8*(5*fmb*hbcm-5*fmc*hbcm+4*hbcm2)+8*(-fmb*
1461 . hbcm*p1p8-fmb*hbcm*p2p8-p1p8*p3p5-p2p8*p3p5+4*p3p5*p5p8))+w17*
1462 . (4*p2p8*(3*fmb*hbcm+3*fmc*hbcm-2*hbcm2)+4*p1p8*(3*fmb*hbcm+3*
1463 . fmc*hbcm-2*hbcm2)+8*(-p1p3*p1p8-p1p3*p2p8+4*p1p3*p5p8-p1p8*
1464 . p2p3-p2p3*p2p8+4*p2p3*p5p8))+w12*(4*p1p8*(3*fmb*hbcm+3*fmc*
1465 . hbcm-2*hbcm2)+8*(-p1p3*p1p8-p1p3*p2p8+4*p1p3*p5p8))+32*(-fb4*
1466 . p1p8-fb4*p2p8+4*fb4*p5p8))
1467 b(21)=ccc*(w17*(8*(p3p7*p2p8)*(-3*fmc+2*hbcm)+8*(p3p7*p1p8)*(-3
1468 . *fmc+2*hbcm)+8*(p7p8*p2p3)*(3*fmb-3*fmc-2*hbcm)+8*(p7p8*p1p3)*
1469 . (3*fmb-3*fmc-2*hbcm)+8*(6*fmc*p3p7*p5p8+4*hbcm*p1p2*p7p8+3*
1470 . hbcm*p1p8*p5p7+3*hbcm*p2p8*p5p7))+w12*(8*(p3p7*p1p8)*(-fmc+2*
1471 . hbcm)+8*(p7p8*p1p3)*(3*fmb+fmc-2*hbcm)+24*hbcm*p1p8*p5p7)+w2*(
1472 . 8*(p5p8*p3p7)*(3*fmc-4*hbcm)+8*(p7p8*p3p5)*(3*fmb-3*fmc+4*hbcm
1473 . )+8*p7p8*(-4*fmb*fmc*hbcm+3*fmb*hbcm2+4*fmb2*hbcm)+8*(-2*hbcm*
1474 . p1p5*p7p8-2*hbcm*p2p5*p7p8-3*hbcm*p5p7*p5p8))+4*p7p8*(16*fb3*
1475 . fmc-16*fb3*hbcm+24*fb4*fmb-8*fb4*fmc-5*hbcm))
1476 b(22)=ccc*(w17*(4*p2p3*(4*fmb-4*fmc-3*hbcm)+4*p1p3*(4*fmb-4*fmc
1477 . -3*hbcm)+24*hbcm*p1p2)+4*w12*p1p3*(4*fmb+2*fmc-3*hbcm)+w2*(4*
1478 . p3p5*(4*fmb-4*fmc+5*hbcm)+4*(-5*fmb*fmc*hbcm+4*fmb*hbcm2+5*
1479 . fmb2*hbcm-2*hbcm*p1p5-2*hbcm*p2p5))+8*(6*fb3*fmc-6*fb3*hbcm+8*
1480 . fb4*fmb-2*fb4*fmc-3*hbcm))
1481 b(23)=ccc*(w2*(8*p5p7*(4*fmb*hbcm-fmc*hbcm+hbcm2)+8*p3p7*(-3*
1482 . fmb*fmc+4*fmb*hbcm)+(p3p7*p3p5)*(-16*ffmcfmb+24)+32*p3p5*p5p7)
1483 . +w17*(8*p3p7*(-3*fmb*fmc+2*fmc*hbcm-3*fmc2)+(p3p7*p2p3)*(-16*
1484 . ffmcfmb+24)+(p3p7*p1p3)*(-16*ffmcfmb+24)+32*(p1p3*p5p7+p2p3*
1485 . p5p7))+w12*((p3p7*p1p3)*(-16*ffmcfmb+24)+32*p1p3*p5p7)+(p3p7*(
1486 . -64*fb4*ffmcfmb+96*fb4+24)+128*fb4*p5p7))
1487 b(24)=ccc*(w17*(4*p2p3*(-3*fmb*hbcm-3*fmc*hbcm-4*hbcm2)+4*p1p3*
1488 . (-3*fmb*hbcm-3*fmc*hbcm-4*hbcm2)+8*(2*hbcm2*p1p2+2*p1p3*p2p3-4
1489 . *p1p3*p3p5+p1p3s2-4*p2p3*p3p5+p2p3s2))+w12*(4*p1p3*(-3*fmb*
1490 . hbcm+fmc*hbcm-4*hbcm2)+8*(p1p3*p2p3-4*p1p3*p3p5+p1p3s2))+w2*(4
1491 . *p3p5*(-5*fmb*hbcm+5*fmc*hbcm-4*hbcm2)+4*(4*fmb*fmc*hbcm2+2*
1492 . fmb*hbcm*p1p3+2*fmb*hbcm*p2p3-5*fmb*hbcm3+4*fmb2*hbcm2-2*hbcm2
1493 . *p1p5-2*hbcm2*p2p5+2*p1p3*p3p5+2*p2p3*p3p5-8*p3p5s2))+16*(-3*
1494 . fb3*fmb*hbcm-fb3*fmc*hbcm+2*fb4*fmc*hbcm-4*fb4*hbcm2+2*fb4*
1495 . p1p3+2*fb4*p2p3-8*fb4*p3p5-hbcm2))
1496 b(25)=ccc*(24*w12*(-fmb*p1p3*p3p7-hbcm*p1p3*p5p7)+w2*(8*p5p7*(3
1497 . *fmb*hbcm2+fmc*hbcm2-hbcm3)+16*p3p7*(fmb*fmc*hbcm-2*fmb2*hbcm)
1498 . +8*(-3*fmb*p3p5*p3p7+2*hbcm*p1p5*p3p7+2*hbcm*p2p5*p3p7+3*hbcm*
1499 . p3p5*p5p7))+w17*(24*(p3p7*p2p3)*(-fmb+2*fmc)+24*(p3p7*p1p3)*(-
1500 . fmb+2*fmc)+8*p3p7*(-2*fmb*fmc*hbcm-3*fmc*hbcm2+2*fmc2*hbcm)+8*
1501 . (-6*fmc*p3p5*p3p7-4*hbcm*p1p2*p3p7-3*hbcm*p1p3*p5p7-3*hbcm*
1502 . p2p3*p5p7))+(4*p3p7*(-8*fb3*fmc-24*fb4*fmb+8*fb4*fmc+5*hbcm)-
1503 . 96*fb3*hbcm*p5p7))
1504 b(26)=ccc*(w2*(8*(p3p6*p3p5)*(-fmb+4*fmc)+8*p5p6*(fmb*hbcm2-fmc
1505 . *hbcm2+hbcm3)+8*p3p6*(3*fmb*fmc*hbcm-fmb2*hbcm)+8*(4*fmb*hbcm2
1506 . *p4p6+5*hbcm*p3p5*p4p6+2*hbcm*p3p5*p5p6))+w17*(8*(p3p6*p2p3)*(
1507 . -fmb-2*fmc)+8*(p3p6*p1p3)*(-fmb-2*fmc)+8*p3p6*(2*fmb*fmc*hbcm+
1508 . 3*fmc*hbcm2-2*fmc2*hbcm)+8*(6*fmc*p3p5*p3p6-2*hbcm*p1p2*p3p6-3
1509 . *hbcm*p1p3*p4p6-3*hbcm*p2p3*p4p6))+w12*(8*(p3p6*p1p3)*(-fmb-4*
1510 . fmc)+8*p3p6*(2*fmb*fmc*hbcm+3*fmc*hbcm2-2*fmc2*hbcm)+8*(-2*fmc
1511 . *p2p3*p3p6+6*fmc*p3p5*p3p6-3*hbcm*p1p3*p4p6))+(4*p3p6*(-16*fb3
1512 . *fmc-8*fb4*fmb+7*hbcm)-96*fb3*hbcm*p4p6))
1513 ans2=(16*p7p8*(-4*fb3*fmb*hbcm-2*fb3*fmc*hbcm+2*fb4*fmc*hbcm-6*
1514 . fb4*hbcm2-hbcm2)+64*(fb4*p1p3*p7p8-fb4*p1p8*p3p7+fb4*p2p3*p7p8
1515 . -fb4*p2p8*p3p7-3*fb4*p3p5*p7p8+3*fb4*p3p7*p5p8))
1516 ans1=w17*(16*p7p8*(p1p3s2+p2p3s2)+8*(p7p8*p2p3)*(-2*fmb*hbcm-2*
1517 . fmc*hbcm-3*hbcm2)+8*(p7p8*p1p3)*(-2*fmb*hbcm-2*fmc*hbcm-3*
1518 . hbcm2)+16*(fmb*hbcm*p1p8*p3p7+fmb*hbcm*p2p8*p3p7+2*fmc*hbcm*
1519 . p3p7*p5p8+hbcm2*p1p2*p7p8+hbcm2*p1p8*p5p7+hbcm2*p2p8*p5p7-p1p3
1520 . *p1p8*p3p7+2*p1p3*p2p3*p7p8-p1p3*p2p8*p3p7-3*p1p3*p3p5*p7p8+3*
1521 . p1p3*p3p7*p5p8-p1p8*p2p3*p3p7-p2p3*p2p8*p3p7-3*p2p3*p3p5*p7p8+
1522 . 3*p2p3*p3p7*p5p8))+w12*(16*(p3p7*p1p8)*(fmb*hbcm+fmc*hbcm)+8*(
1523 . p7p8*p1p3)*(-2*fmb*hbcm-3*hbcm2)+16*(hbcm2*p1p8*p5p7-p1p3*p1p8
1524 . *p3p7+p1p3*p2p3*p7p8-p1p3*p2p8*p3p7-3*p1p3*p3p5*p7p8+3*p1p3*
1525 . p3p7*p5p8+p1p3s2*p7p8))+w2*(16*(p5p8*p3p7)*(2*fmb*hbcm-fmc*
1526 . hbcm)+8*(p7p8*p3p5)*(-4*fmb*hbcm+4*fmc*hbcm-3*hbcm2)+8*p7p8*(3
1527 . *fmb*fmc*hbcm2-4*fmb*hbcm3+3*fmb2*hbcm2-6*p3p5s2)+16*(fmb*hbcm
1528 . *p1p3*p7p8-fmb*hbcm*p1p8*p3p7+fmb*hbcm*p2p3*p7p8-fmb*hbcm*p2p8
1529 . *p3p7-hbcm2*p1p5*p7p8-hbcm2*p2p5*p7p8-hbcm2*p5p7*p5p8+p1p3*
1530 . p3p5*p7p8-p1p8*p3p5*p3p7+p2p3*p3p5*p7p8-p2p8*p3p5*p3p7+3*p3p5*
1531 . p3p7*p5p8))+ans2
1532 ans=ccc*ans1
1533 b(27)=ans
1534 ans=ccc*(w17*(16*p6p8*(p1p3s2+p2p3s2)+8*(p3p6*p2p8)*(-fmb*hbcm-
1535 . 3*fmc*hbcm)+8*(p6p8*p2p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p3p6*
1536 . p1p8)*(-fmb*hbcm-3*fmc*hbcm)+8*(p6p8*p1p3)*(fmb*hbcm+fmc*hbcm-
1537 . hbcm2)+16*(2*fmc*hbcm*p3p6*p5p8-hbcm2*p1p2*p6p8-hbcm2*p1p8*
1538 . p4p6-hbcm2*p2p8*p4p6+2*p1p3*p2p3*p6p8-p1p3*p3p4*p6p8-p1p3*p3p6
1539 . *p5p8-p2p3*p3p4*p6p8-p2p3*p3p6*p5p8))+w12*(8*(p3p6*p1p8)*(-fmb
1540 . *hbcm-3*fmc*hbcm)+8*(p6p8*p1p3)*(fmb*hbcm-fmc*hbcm-hbcm2)+16*(
1541 . -fmc*hbcm*p2p8*p3p6+2*fmc*hbcm*p3p6*p5p8-hbcm2*p1p8*p4p6+p1p3*
1542 . p2p3*p6p8-p1p3*p3p4*p6p8-p1p3*p3p6*p5p8+p1p3s2*p6p8))+w2*(8*(
1543 . p5p8*p3p6)*(-fmb*hbcm+3*fmc*hbcm)+8*(p6p8*p3p5)*(-fmb*hbcm-fmc
1544 . *hbcm-hbcm2)+8*p6p8*(-fmb*fmc*hbcm2-fmb*hbcm3-fmb2*hbcm2)+16*(
1545 . fmb*hbcm*p1p3*p6p8+fmb*hbcm*p2p3*p6p8-fmb*hbcm*p3p4*p6p8+2*
1546 . hbcm2*p4p6*p5p8+hbcm2*p5p6*p5p8+p1p3*p3p5*p6p8+p2p3*p3p5*p6p8-
1547 . p3p4*p3p5*p6p8-p3p5*p3p6*p5p8))+(16*p6p8*(2*fb3*fmb*hbcm-2*fb4
1548 . *fmc*hbcm-2*fb4*hbcm2+hbcm2)+64*(fb4*p1p3*p6p8+fb4*p2p3*p6p8-
1549 . fb4*p3p4*p6p8-fb4*p3p6*p5p8)))
1550 b(28)=ans
1551 ans2=w12*(8*(p6p7*p1p3)*(-2*fmb*hbcm+3*hbcm2)+32*(p3p7*p3p6)*(-
1552 . fmb*fmc-fmc2)+16*(-2*ffmcfmb*p1p3*p3p6*p3p7-2*fmc*hbcm*p3p6*
1553 . p5p7-2*p1p3*p2p3*p6p7+3*p1p3*p3p4*p6p7+p1p3*p3p6*p5p7-3*p1p3*
1554 . p3p7*p4p6-2*p1p3s2*p6p7))+((p3p7*p3p6)*(-128*fb4*ffmcfmb+48)+
1555 . 16*p6p7*(-4*fb3*fmb*hbcm-2*fb3*fmc*hbcm+2*fb4*fmc*hbcm+6*fb4*
1556 . hbcm2-hbcm2)+64*(-2*fb4*p1p3*p6p7-2*fb4*p2p3*p6p7+3*fb4*p3p4*
1557 . p6p7+fb4*p3p6*p5p7-3*fb4*p3p7*p4p6))
1558 ans1=w2*(16*(p5p7*p3p6)*(fmb*hbcm-fmc*hbcm)+8*(p6p7*p3p5)*(4*
1559 . fmb*hbcm+4*fmc*hbcm+3*hbcm2)+8*p6p7*(3*fmb*fmc*hbcm2+4*fmb*
1560 . hbcm3+3*fmb2*hbcm2)+16*(-2*ffmcfmb*p3p5*p3p6*p3p7-3*fmb*fmc*
1561 . p3p6*p3p7-3*fmb*hbcm*p1p3*p6p7-3*fmb*hbcm*p2p3*p6p7+4*fmb*hbcm
1562 . *p3p4*p6p7-4*fmb*hbcm*p3p7*p4p6-fmb*hbcm*p3p7*p5p6-hbcm2*p1p5*
1563 . p6p7-hbcm2*p2p5*p6p7-hbcm2*p4p6*p5p7-hbcm2*p5p6*p5p7-2*p1p3*
1564 . p3p5*p6p7-2*p2p3*p3p5*p6p7+3*p3p4*p3p5*p6p7+p3p5*p3p6*p5p7-3*
1565 . p3p5*p3p7*p4p6))+w17*(32*p6p7*(-p1p3s2-p2p3s2)+8*(p6p7*p2p3)*(
1566 . -2*fmb*hbcm-2*fmc*hbcm+3*hbcm2)+8*(p6p7*p1p3)*(-2*fmb*hbcm-2*
1567 . fmc*hbcm+3*hbcm2)+48*(p3p7*p3p6)*(-fmb*fmc-fmc2)+16*(-2*
1568 . ffmcfmb*p1p3*p3p6*p3p7-2*ffmcfmb*p2p3*p3p6*p3p7-2*fmc*hbcm*
1569 . p3p6*p5p7-2*fmc*hbcm*p3p7*p4p6+hbcm2*p1p2*p6p7-4*p1p3*p2p3*
1570 . p6p7+3*p1p3*p3p4*p6p7+p1p3*p3p6*p5p7-3*p1p3*p3p7*p4p6+3*p2p3*
1571 . p3p4*p6p7+p2p3*p3p6*p5p7-3*p2p3*p3p7*p4p6))+ans2
1572 ans=ccc*ans1
1573 b(29)=ans
1574 ans3=w12*(16*(p7p8*p3p6*p1p3)*(-fmb-3*fmc)+8*(p6p7*p1p8)*(fmb*
1575 . hbcm2-fmc*hbcm2+2*hbcm3)+16*(p7p8*p3p6)*(fmb*fmc*hbcm+2*fmc*
1576 . hbcm2-fmc2*hbcm)+16*(fmb*p1p3*p3p7*p6p8+3*fmc*p1p8*p3p6*p3p7-2
1577 . *fmc*p2p3*p3p6*p7p8+2*fmc*p2p8*p3p6*p3p7+4*fmc*p3p5*p3p6*p7p8-
1578 . 4*fmc*p3p6*p3p7*p5p8+hbcm*p1p3*p2p8*p6p7-2*hbcm*p1p3*p4p6*p7p8
1579 . +hbcm*p1p3*p5p7*p6p8-2*hbcm*p1p3*p5p8*p6p7-hbcm*p1p8*p2p3*p6p7
1580 . +2*hbcm*p1p8*p3p5*p6p7-hbcm*p1p8*p3p6*p5p7+2*hbcm*p1p8*p3p7*
1581 . p4p6))+(8*(p6p8*p3p7)*(8*fb4*fmb-3*hbcm)+8*(p7p8*p3p6)*(-8*fb3
1582 . *fmc-8*fb4*fmb+3*hbcm)+64*(fb3*hbcm*p1p8*p6p7+fb3*hbcm*p2p8*
1583 . p6p7-2*fb3*hbcm*p4p6*p7p8+fb3*hbcm*p5p7*p6p8-2*fb3*hbcm*p5p8*
1584 . p6p7))
1585 ans2=w17*(16*(p6p8*p3p7*p2p3)*(fmb-2*fmc)+16*(p7p8*p3p6*p2p3)*(
1586 . -fmb-fmc)+16*(p6p8*p3p7*p1p3)*(fmb-2*fmc)+16*(p7p8*p3p6*p1p3)*
1587 . (-fmb-fmc)+8*(p6p7*p2p8)*(fmb*hbcm2-fmc*hbcm2+2*hbcm3)+8*(p6p7
1588 . *p1p8)*(fmb*hbcm2-fmc*hbcm2+2*hbcm3)+16*(p6p8*p3p7)*(fmb*fmc*
1589 . hbcm+fmc*hbcm2-fmc2*hbcm)+16*(p7p8*p3p6)*(fmb*fmc*hbcm+2*fmc*
1590 . hbcm2-fmc2*hbcm)+16*(3*fmc*p1p8*p3p6*p3p7+3*fmc*p2p8*p3p6*p3p7
1591 . +4*fmc*p3p5*p3p6*p7p8+2*fmc*p3p5*p3p7*p6p8-6*fmc*p3p6*p3p7*
1592 . p5p8-2*hbcm*p1p2*p3p6*p7p8+2*hbcm*p1p2*p3p7*p6p8-2*hbcm*p1p3*
1593 . p4p6*p7p8+hbcm*p1p3*p5p7*p6p8-2*hbcm*p1p3*p5p8*p6p7+2*hbcm*
1594 . p1p8*p3p5*p6p7-hbcm*p1p8*p3p6*p5p7+2*hbcm*p1p8*p3p7*p4p6-2*
1595 . hbcm*p2p3*p4p6*p7p8+hbcm*p2p3*p5p7*p6p8-2*hbcm*p2p3*p5p8*p6p7+
1596 . 2*hbcm*p2p8*p3p5*p6p7-hbcm*p2p8*p3p6*p5p7+2*hbcm*p2p8*p3p7*
1597 . p4p6))+ans3
1598 ans1=w2*(16*(p7p8*p3p6*p3p5)*(-fmb+3*fmc)+8*(p6p7*p5p8)*(3*fmb*
1599 . hbcm2+3*fmc*hbcm2-4*hbcm3)+16*(p7p8*p5p6)*(fmb*hbcm2-fmc*hbcm2
1600 . +hbcm3)+16*(p7p8*p3p6)*(2*fmb*fmc*hbcm-fmb2*hbcm)+16*(-fmb*
1601 . hbcm2*p1p8*p6p7-fmb*hbcm2*p2p8*p6p7+3*fmb*hbcm2*p4p6*p7p8-fmb*
1602 . hbcm2*p5p7*p6p8+fmb*p3p5*p3p7*p6p8+fmb2*hbcm*p3p7*p6p8-3*fmc*
1603 . p3p6*p3p7*p5p8+hbcm*p1p3*p5p8*p6p7-hbcm*p1p8*p3p5*p6p7+hbcm*
1604 . p2p3*p5p8*p6p7-hbcm*p2p8*p3p5*p6p7+4*hbcm*p3p5*p4p6*p7p8+2*
1605 . hbcm*p3p5*p5p6*p7p8-hbcm*p3p5*p5p7*p6p8+hbcm*p3p6*p5p7*p5p8-4*
1606 . hbcm*p3p7*p4p6*p5p8-2*hbcm*p3p7*p5p6*p5p8))+ans2
1607 ans=ccc*ans1
1608 b(30)=ans
1609 ans2=w12*(8*(p6p7*p1p8)*(-2*fmb*hbcm-2*fmc*hbcm+hbcm2)+16*(p7p8
1610 . *p3p6)*(-2*fmb*fmc+fmc*hbcm-2*fmc2)+(p7p8*p3p6*p1p3)*(-16*
1611 . ffmcfmb-16)+16*(-ffmcfmb*p1p3*p3p7*p6p8-2*p1p3*p1p8*p6p7-2*
1612 . p1p3*p2p8*p6p7-3*p1p3*p4p6*p7p8-p1p3*p4p7*p6p8+3*p1p3*p4p8*
1613 . p6p7))+((p6p8*p3p7)*(-64*fb4*ffmcfmb+24)+(p7p8*p3p6)*(-64*fb4*
1614 . ffmcfmb-64*fb4+24)+64*(-2*fb4*p1p8*p6p7-2*fb4*p2p8*p6p7-3*fb4*
1615 . p4p6*p7p8-fb4*p4p7*p6p8+3*fb4*p4p8*p6p7))
1616 ans1=w2*(8*(p6p7*p5p8)*(4*fmb*hbcm+4*fmc*hbcm-3*hbcm2)+16*(p7p8
1617 . *p5p6)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p7p8*p3p6)*(-2*fmb*fmc-
1618 . fmb*hbcm)+(p7p8*p3p6*p3p5)*(-16*ffmcfmb-16)+16*(-ffmcfmb*p3p5*
1619 . p3p7*p6p8-fmb*fmc*p3p7*p6p8-3*fmb*hbcm*p1p8*p6p7-3*fmb*hbcm*
1620 . p2p8*p6p7-4*fmb*hbcm*p4p6*p7p8-fmb*hbcm*p4p7*p6p8+4*fmb*hbcm*
1621 . p4p8*p6p7-2*p1p8*p3p5*p6p7-2*p2p8*p3p5*p6p7-3*p3p5*p4p6*p7p8-
1622 . p3p5*p4p7*p6p8+3*p3p5*p4p8*p6p7))+w17*(8*(p6p7*p2p8)*(-2*fmb*
1623 . hbcm-2*fmc*hbcm+hbcm2)+8*(p6p7*p1p8)*(-2*fmb*hbcm-2*fmc*hbcm+
1624 . hbcm2)+16*(p6p8*p3p7)*(-fmb*fmc+fmc*hbcm-fmc2)+16*(p7p8*p3p6)*
1625 . (-2*fmb*fmc+fmc*hbcm-2*fmc2)+(p7p8*p3p6*p2p3)*(-16*ffmcfmb-16)
1626 . +(p7p8*p3p6*p1p3)*(-16*ffmcfmb-16)+16*(-ffmcfmb*p1p3*p3p7*p6p8
1627 . -ffmcfmb*p2p3*p3p7*p6p8-2*p1p3*p1p8*p6p7-2*p1p3*p2p8*p6p7-3*
1628 . p1p3*p4p6*p7p8-p1p3*p4p7*p6p8+3*p1p3*p4p8*p6p7-2*p1p8*p2p3*
1629 . p6p7-2*p2p3*p2p8*p6p7-3*p2p3*p4p6*p7p8-p2p3*p4p7*p6p8+3*p2p3*
1630 . p4p8*p6p7))+ans2
1631 ans=ccc*ans1
1632 b(31)=ans
1633 b(32)=ccc*(w17*(8*(p6p7*p2p3)*(3*fmb-3*fmc-2*hbcm)+8*(p6p7*p1p3
1634 . )*(3*fmb-3*fmc-2*hbcm)+16*(-3*fmc*p3p6*p3p7-3*fmc*p3p6*p5p7-3*
1635 . fmc*p3p7*p4p6+2*hbcm*p1p2*p6p7))+w2*(16*(p5p6*p3p7)*(fmc-hbcm)
1636 . +8*(p6p7*p3p5)*(3*fmb-3*fmc+4*hbcm)+8*p6p7*(-4*fmb*fmc*hbcm+3*
1637 . fmb*hbcm2+4*fmb2*hbcm)+16*(-fmc*p3p6*p5p7-hbcm*p1p5*p6p7-hbcm*
1638 . p2p5*p6p7-hbcm*p4p6*p5p7-hbcm*p5p6*p5p7))+w12*(8*(p6p7*p1p3)*(
1639 . 3*fmb+fmc-2*hbcm)+16*(p3p7*p3p6)*(ffmcfmb*fmc-2*fmc)-48*fmc*
1640 . p3p6*p5p7)+8*p6p7*(8*fb3*fmc-8*fb3*hbcm+12*fb4*fmb-4*fb4*fmc-3
1641 . *hbcm))
1642 do 200 n=1,32
1643 c(n,1)=c(n,1)-0.09090909090909091d0*b(n)
1644 c(n,2)=c(n,2)-0.1680909685530997d0*b(n)
1645 c(n,3)=c(n,3)-0.2077659977796572d0*b(n)
1646 200 continue
1647 return
1648 end
1649
1650 subroutine amp16_3p1(cc)
1651 implicit double precision(a-h,o-z)
1652 implicit integer (i-n)
1653 dimension b(32)
1654 #include "inclcon.h"
1655 #include "inclppp.h"
1656 #include "inclamp.h"
1657 do 100 n=1,32
1658 b(n)=0.0d0
1659 100 continue
1660 ccc=cc/((-2*ffmcfmb*p2p3)*(-2*ffmcfmb*p3p5+fmb2-2*fmc*hbcm+fmc2
1661 . +hbcm2+2*p3p5)*(-2*ffmcfmb*p1p3-2*ffmcfmb*p2p3+2*p1p2))
1662 b(1)=ccc*(w2*(16*(p5p6*p2p3)*(-fmc+hbcm)+16*(fmc*p2p5*p3p6+hbcm
1663 . *p2p5*p4p6+hbcm*p2p5*p5p6))+w17*(16*(p3p6*p1p2)*(-2*fmc-hbcm)+
1664 . 48*(fmc*p2p3*p3p6+fmc*p2p3*p4p6+fmc*p2p5*p3p6-hbcm*p1p2*p4p6))
1665 . +(96*p4p6*(-fb3*fmc-fb4*fmc)+32*p3p6*(-fb3*ffmcfmb*fmc-fb3*fmc
1666 . -fb4*ffmcfmb*fmc-fb4*fmc)))
1667 ans=ccc*(16*w7*(ffmcfmb*p2p3*p3p6*p3p7+2*ffmcfmb*p2p3*p3p7*p4p6
1668 . -ffmcfmb*p2p3s2*p6p7+p1p2*p2p3*p6p7-p2p3*p2p4*p6p7)+w2*(16*(
1669 . p5p6*p3p7)*(fmb*fmc-fmc*hbcm+fmc2)+16*(p3p7*p3p6)*(ffmcfmb*fmb
1670 . *fmc+fmb*fmc)+16*(-ffmcfmb*p2p3*p3p5*p6p7+ffmcfmb*p3p5*p3p6*
1671 . p3p7+2*ffmcfmb*p3p5*p3p7*p4p6-fmb*fmc*p2p3*p6p7+3*fmb*fmc*p3p7
1672 . *p4p6+fmb*hbcm*p1p2*p6p7-fmb*hbcm*p2p4*p6p7+p1p2*p3p5*p6p7-
1673 . p2p4*p3p5*p6p7))+w17*(16*(p6p7*p1p2)*(fmb*hbcm+fmc*hbcm-hbcm2)
1674 . +16*(p6p7*p2p3)*(-fmb*fmc+fmc*hbcm-fmc2)+16*(p3p7*p3p6)*(
1675 . ffmcfmb*fmb*fmc+ffmcfmb*fmc2)+16*(-ffmcfmb*p1p3*p2p3*p6p7+
1676 . ffmcfmb*p1p3*p3p6*p3p7+2*ffmcfmb*p1p3*p3p7*p4p6+ffmcfmb*p2p3*
1677 . p3p6*p3p7+2*ffmcfmb*p2p3*p3p7*p4p6-ffmcfmb*p2p3s2*p6p7+p1p2*
1678 . p1p3*p6p7+p1p2*p2p3*p6p7-p1p3*p2p4*p6p7-p2p3*p2p4*p6p7))+((
1679 . p4p6*p3p7)*(128*fb4*ffmcfmb+16)+(p3p7*p3p6)*(64*fb4*ffmcfmb+8)
1680 . +(p6p7*p2p3)*(-64*fb4*ffmcfmb+24)+32*p6p7*(fb3*fmb*fmc-fb3*fmc
1681 . *hbcm+fb3*fmc2+fb4*fmb*fmc-fb4*fmc*hbcm+fb4*fmc2)+64*(fb4*p1p2
1682 . *p6p7-fb4*p2p4*p6p7)))
1683 b(2)=ans
1684 ans2=w17*(16*(p6p7*p2p3*p1p8)*(fmc-hbcm)+32*(p7p8*p3p6*p1p2)*(
1685 . fmc+hbcm)+16*(p6p7*p2p8*p2p3)*(-fmb+2*fmc)+16*(p6p7*p2p8*p1p3)
1686 . *(-fmb+fmc+hbcm)+16*(p3p7*p3p6*p2p8)*(-ffmcfmb*fmc+3*fmc)+16*(
1687 . p3p7*p3p6*p1p8)*(-ffmcfmb*fmc-fmc)+16*(p6p8*p3p7*p2p3)*(-
1688 . ffmcfmb*fmb+ffmcfmb*fmc+fmc)+16*(p6p8*p3p7*p1p3)*(-ffmcfmb*fmb
1689 . +ffmcfmb*fmc+fmc)+16*(2*ffmcfmb*fmc*p3p6*p3p7*p5p8-fmc*p1p8*
1690 . p3p7*p4p6-4*fmc*p2p3*p3p6*p7p8-4*fmc*p2p3*p4p6*p7p8+2*fmc*p2p3
1691 . *p5p7*p6p8-2*fmc*p2p3*p5p8*p6p7-4*fmc*p2p5*p3p6*p7p8-2*fmc*
1692 . p2p5*p3p7*p6p8+4*fmc*p2p8*p3p6*p5p7+3*fmc*p2p8*p3p7*p4p6-2*
1693 . hbcm*p1p2*p2p8*p6p7-2*hbcm*p1p2*p3p7*p6p8+4*hbcm*p1p2*p4p6*
1694 . p7p8-2*hbcm*p1p2*p5p7*p6p8+2*hbcm*p1p2*p5p8*p6p7-hbcm*p1p8*
1695 . p2p5*p6p7-hbcm*p2p5*p2p8*p6p7))+(8*(p6p8*p3p7)*(-8*fb4*ffmcfmb
1696 . *fmb+8*fb4*ffmcfmb*fmc-8*fb4*fmc-fmb+hbcm)+64*(p6p7*p5p8)*(fb3
1697 . *fmc+fb4*fmc)+64*(p6p8*p5p7)*(-fb3*fmc-fb4*fmc)+8*(p7p8*p4p6)*
1698 . (16*fb3*fmc+16*fb4*fmc-hbcm)+8*(p7p8*p3p6)*(8*fb3*fmc+8*fb4*
1699 . fmc+fmc-hbcm)+8*(p6p7*p2p8)*(-8*fb3*fmc+8*fb3*hbcm-8*fb4*fmb+3
1700 . *hbcm))
1701 ans1=w2*(32*(p5p6*p3p7*p2p8)*(-fmc+hbcm)+16*(p6p7*p5p8*p2p3)*(-
1702 . fmc+hbcm)+32*(p7p8*p5p6*p2p3)*(fmc-hbcm)+16*(p6p7*p3p5*p2p8)*(
1703 . -fmb+fmc-hbcm)+16*(p6p8*p3p7)*(-fmb*fmc*hbcm+fmb*fmc2-fmb2*fmc
1704 . )+16*(p6p7*p2p8)*(fmb*fmc*hbcm-fmb*hbcm2-fmb2*hbcm)+16*(p5p8*
1705 . p3p7*p3p6)*(ffmcfmb*fmc+fmc)+16*(p6p8*p3p7*p3p5)*(-ffmcfmb*fmb
1706 . +ffmcfmb*fmc-fmc)+16*(-2*fmc*p2p5*p3p6*p7p8+2*fmc*p2p8*p3p6*
1707 . p5p7+3*fmc*p3p7*p4p6*p5p8+2*fmc*p3p7*p5p6*p5p8-2*hbcm*p2p5*
1708 . p4p6*p7p8-2*hbcm*p2p5*p5p6*p7p8+hbcm*p2p5*p5p8*p6p7+2*hbcm*
1709 . p2p8*p4p6*p5p7+2*hbcm*p2p8*p5p6*p5p7))+w7*(16*(p3p7*p3p6*p2p8)
1710 . *(ffmcfmb*fmc+fmc)+16*(p6p8*p3p7*p2p3)*(-ffmcfmb*fmb+ffmcfmb*
1711 . fmc-fmc)+16*(-fmb*p2p3*p2p8*p6p7-2*fmc*p2p5*p3p7*p6p8+3*fmc*
1712 . p2p8*p3p7*p4p6-hbcm*p2p5*p2p8*p6p7))+ans2
1713 ans=ccc*ans1
1714 b(3)=ans
1715 b(4)=ccc*(w2*(16*(p5p7*p2p3)*(fmc-hbcm)+8*p3p7*(-2*fmb*fmc*hbcm
1716 . +3*fmb*fmc2-3*fmb2*fmc)+8*(p3p7*p3p5)*(-2*ffmcfmb*fmb+2*
1717 . ffmcfmb*fmc-3*fmc)+16*(fmc*p1p5*p3p7+hbcm*p2p5*p3p7))+w7*(8*(
1718 . p3p7*p2p3)*(-2*ffmcfmb*fmb+2*ffmcfmb*fmc-3*fmc)+16*(fmc*p1p2*
1719 . p3p7-3*fmc*p2p5*p3p7))+w17*(16*(p3p7*p1p2)*(fmc-2*hbcm)+8*(
1720 . p3p7*p2p3)*(-2*ffmcfmb*fmb+2*ffmcfmb*fmc+fmc)+8*(p3p7*p1p3)*(-
1721 . 2*ffmcfmb*fmb+2*ffmcfmb*fmc+fmc)+48*(fmc*p2p3*p5p7-fmc*p2p5*
1722 . p3p7-hbcm*p1p2*p5p7))+(96*p5p7*(-fb3*fmc-fb4*fmc)+4*p3p7*(-8*
1723 . fb3*fmc-16*fb4*ffmcfmb*fmb+16*fb4*ffmcfmb*fmc-16*fb4*fmc-2*fmb
1724 . +hbcm)))
1725 ans2=w17*(16*(p7p8*p1p2)*(2*fmb*hbcm+2*fmc*hbcm-hbcm2)+8*(p3p7*
1726 . p2p8)*(3*fmb*fmc-2*fmc*hbcm+3*fmc2)+16*(p7p8*p2p3)*(-2*fmb*fmc
1727 . +fmc*hbcm-2*fmc2)+8*(p3p7*p1p8)*(-fmb*fmc-fmc2)+16*p7p8*(-
1728 . ffmcfmb*p2p3s2+2*p2p3s2)+(p3p7*p2p8*p2p3)*(32*ffmcfmb-32)+(
1729 . p3p7*p2p8*p1p3)*(32*ffmcfmb-32)+(p7p8*p2p3*p1p3)*(-16*ffmcfmb+
1730 . 32)+16*(ffmcfmb*p1p3*p1p8*p3p7-2*ffmcfmb*p1p3*p3p7*p5p8+
1731 . ffmcfmb*p1p8*p2p3*p3p7-2*ffmcfmb*p2p3*p3p7*p5p8-p1p2*p1p3*p7p8
1732 . -p1p2*p2p3*p7p8+3*p1p3*p2p5*p7p8-3*p1p3*p2p8*p5p7+3*p2p3*p2p5*
1733 . p7p8-3*p2p3*p2p8*p5p7))+((p5p8*p3p7)*(-128*fb4*ffmcfmb-16)+(
1734 . p3p7*p2p8)*(128*fb4*ffmcfmb-128*fb4-16)+(p7p8*p2p3)*(-64*fb4*
1735 . ffmcfmb+128*fb4+24)+(p3p7*p1p8)*(64*fb4*ffmcfmb+8)+4*p7p8*(16*
1736 . fb3*fmb*fmc-8*fb3*fmc*hbcm+16*fb3*fmc2+16*fb4*fmb*fmc-8*fb4*
1737 . fmc*hbcm+16*fb4*fmc2-fmb*hbcm-fmc*hbcm)+64*(-fb4*p1p2*p7p8+3*
1738 . fb4*p2p5*p7p8-3*fb4*p2p8*p5p7))
1739 ans1=w2*(16*(p5p7*p2p8)*(-3*fmb*hbcm+fmc*hbcm-hbcm2)+16*(p7p8*
1740 . p2p5)*(3*fmb*hbcm-fmc*hbcm+hbcm2)+8*(p5p8*p3p7)*(-3*fmb*fmc-2*
1741 . fmc*hbcm+3*fmc2)+48*(p3p7*p2p8)*(fmb*fmc-fmb*hbcm)+16*(p7p8*
1742 . p2p3)*(-2*fmb*fmc+3*fmb*hbcm)+(p3p7*p3p5*p2p8)*(32*ffmcfmb-32)
1743 . +(p7p8*p3p5*p2p3)*(-16*ffmcfmb+32)+16*(ffmcfmb*p1p8*p3p5*p3p7-
1744 . 2*ffmcfmb*p3p5*p3p7*p5p8+fmb*fmc*p1p8*p3p7-fmb*hbcm*p1p2*p7p8-
1745 . p1p2*p3p5*p7p8+3*p2p5*p3p5*p7p8-3*p2p8*p3p5*p5p7))+w7*(8*(p3p7
1746 . *p2p8)*(3*fmb*fmc-2*fmc*hbcm+3*fmc2)+16*p7p8*(-ffmcfmb*p2p3s2+
1747 . 2*p2p3s2)+(p3p7*p2p8*p2p3)*(32*ffmcfmb-32)+16*(ffmcfmb*p1p8*
1748 . p2p3*p3p7-2*ffmcfmb*p2p3*p3p7*p5p8-p1p2*p2p3*p7p8+3*p2p3*p2p5*
1749 . p7p8-3*p2p3*p2p8*p5p7))+ans2
1750 ans=ccc*ans1
1751 b(5)=ans
1752 ans2=((p3p7*p3p5)*(128*fb4*ffmcfmb+16)+(p3p7*p2p3)*(-64*fb4*
1753 . ffmcfmb-8)+(p3p7*p1p3)*(-64*fb4*ffmcfmb-8)+64*p5p7*(-fb3*fmc*
1754 . hbcm-fb4*fmc*hbcm)+4*p3p7*(-8*fb3*fmb*fmc-8*fb3*fmc2-16*fb4*
1755 . fmb*fmc+16*fb4*fmc*hbcm-16*fb4*fmc2+fmb*hbcm+fmc*hbcm+2*hbcm2)
1756 . +64*(fb4*p1p2*p3p7+3*fb4*p2p3*p5p7-3*fb4*p2p5*p3p7))
1757 ans1=w2*(16*(p3p7*p2p5)*(-3*fmb*hbcm+fmc*hbcm)+8*(p3p7*p3p5)*(3
1758 . *fmb*fmc+2*fmc*hbcm-3*fmc2)+8*p3p7*(4*ffmcfmb*p3p5s2+3*fmb*fmc
1759 . *hbcm2-2*fmb*fmc2*hbcm-2*fmb2*fmc*hbcm)+16*(-ffmcfmb*p1p3*p3p5
1760 . *p3p7-ffmcfmb*p2p3*p3p5*p3p7-fmb*fmc*p1p3*p3p7-fmb*fmc*p2p3*
1761 . p3p7+fmb*hbcm*p1p2*p3p7+3*fmb*hbcm*p2p3*p5p7+fmc*hbcm*p1p5*
1762 . p3p7+p1p2*p3p5*p3p7+3*p2p3*p3p5*p5p7-3*p2p5*p3p5*p3p7))+w7*(8*
1763 . (p3p7*p2p3)*(-3*fmb*fmc+2*fmc*hbcm-3*fmc2)+16*(-ffmcfmb*p1p3*
1764 . p2p3*p3p7+2*ffmcfmb*p2p3*p3p5*p3p7-ffmcfmb*p2p3s2*p3p7+fmc*
1765 . hbcm*p1p2*p3p7-2*fmc*hbcm*p2p5*p3p7+p1p2*p2p3*p3p7-3*p2p3*p2p5
1766 . *p3p7+3*p2p3s2*p5p7))+w17*(16*(p3p7*p1p2)*(-2*fmb*hbcm-fmc*
1767 . hbcm)+8*(p3p7*p2p3)*(fmb*fmc+2*fmc*hbcm+fmc2)+8*(p3p7*p1p3)*(
1768 . fmb*fmc+2*fmc*hbcm+fmc2)+16*p3p7*(-ffmcfmb*p1p3s2-ffmcfmb*
1769 . p2p3s2)+16*(-2*ffmcfmb*p1p3*p2p3*p3p7+2*ffmcfmb*p1p3*p3p5*p3p7
1770 . +2*ffmcfmb*p2p3*p3p5*p3p7+2*fmc*hbcm*p2p3*p5p7-2*fmc*hbcm*p2p5
1771 . *p3p7-2*hbcm2*p1p2*p5p7+p1p2*p1p3*p3p7+p1p2*p2p3*p3p7+3*p1p3*
1772 . p2p3*p5p7-3*p1p3*p2p5*p3p7-3*p2p3*p2p5*p3p7+3*p2p3s2*p5p7))+
1773 . ans2
1774 ans=ccc*ans1
1775 b(6)=ans
1776 ans3=(8*(p3p7*p1p8)*(8*fb4*fmc-hbcm)+8*(p5p8*p3p7)*(-8*fb3*fmc-
1777 . 16*fb4*fmc+hbcm)+8*(p7p8*p3p5)*(16*fb3*fmc+16*fb4*fmc-hbcm)+8*
1778 . (p3p7*p2p8)*(8*fb3*fmc+16*fb4*fmb-3*hbcm)+8*(p7p8*p2p3)*(-16*
1779 . fb3*fmc-16*fb4*fmb+3*hbcm)+8*(p7p8*p1p3)*(-8*fb3*fmc-8*fb4*fmc
1780 . +hbcm)+4*p7p8*(8*fb3*fmb*fmc*hbcm+16*fb3*fmc*hbcm2-8*fb3*fmc2*
1781 . hbcm+8*fb4*fmb*fmc*hbcm+16*fb4*fmc*hbcm2-8*fb4*fmc2*hbcm-hbcm3
1782 . )+64*(fb3*hbcm*p1p2*p7p8-2*fb3*hbcm*p2p5*p7p8+2*fb3*hbcm*p2p8*
1783 . p5p7))
1784 ans2=w2*(16*(p3p7*p3p5*p2p8)*(2*fmb+fmc)+16*(p5p7*p2p8)*(-2*fmb
1785 . *hbcm2-fmc*hbcm2+hbcm3)+16*(p7p8*p2p5)*(2*fmb*hbcm2+fmc*hbcm2-
1786 . hbcm3)+8*(p5p8*p3p7)*(-2*fmb*fmc*hbcm+3*fmc*hbcm2-2*fmc2*hbcm)
1787 . +16*(p3p7*p2p8)*(-fmb*fmc*hbcm+3*fmb2*hbcm)+16*(p7p8*p2p3)*(2*
1788 . fmb*fmc*hbcm-3*fmb2*hbcm)+16*(fmb*fmc*hbcm*p1p8*p3p7-fmb*hbcm2
1789 . *p1p2*p7p8-2*fmb*p2p3*p3p5*p7p8-fmc*p1p3*p3p7*p5p8+fmc*p1p8*
1790 . p3p5*p3p7-fmc*p2p3*p3p7*p5p8-hbcm*p1p2*p3p5*p7p8+hbcm*p1p2*
1791 . p3p7*p5p8+2*hbcm*p1p5*p2p3*p7p8-2*hbcm*p1p5*p2p8*p3p7+2*hbcm*
1792 . p2p3*p2p5*p7p8+2*hbcm*p2p3*p5p7*p5p8-2*hbcm*p2p5*p2p8*p3p7+2*
1793 . hbcm*p2p5*p3p5*p7p8-2*hbcm*p2p5*p3p7*p5p8-2*hbcm*p2p8*p3p5*
1794 . p5p7))+ans3
1795 ans1=w7*(8*(p3p7*p2p8)*(2*fmb*fmc*hbcm+3*fmc*hbcm2-2*fmc2*hbcm)
1796 . +16*(2*fmb*p2p3*p2p8*p3p7-2*fmb*p2p3s2*p7p8-fmc*p1p3*p2p8*p3p7
1797 . +fmc*p1p8*p2p3*p3p7-3*fmc*p2p3*p3p7*p5p8+3*fmc*p2p8*p3p5*p3p7+
1798 . hbcm*p1p2*p2p3*p7p8-hbcm*p1p2*p2p8*p3p7-2*hbcm*p2p3*p2p5*p7p8+
1799 . 2*hbcm*p2p5*p2p8*p3p7))+w17*(32*p7p8*(-fmb*p2p3s2+2*fmc*p2p3s2
1800 . )+32*(p3p7*p2p8*p2p3)*(fmb-2*fmc)+32*(p3p7*p2p8*p1p3)*(fmb-2*
1801 . fmc)+32*(p7p8*p2p3*p1p3)*(-fmb+2*fmc)+16*(p7p8*p1p2)*(fmb*
1802 . hbcm2-fmc*hbcm2+2*hbcm3)+8*(p3p7*p2p8)*(2*fmb*fmc*hbcm+3*fmc*
1803 . hbcm2-2*fmc2*hbcm)+16*(p7p8*p2p3)*(-fmb*fmc*hbcm-2*fmc*hbcm2+
1804 . fmc2*hbcm)+8*(-fmc*hbcm2*p1p8*p3p7+2*fmc*p1p3*p3p7*p5p8-2*fmc*
1805 . p1p8*p3p5*p3p7-8*fmc*p2p3*p3p5*p7p8+2*fmc*p2p3*p3p7*p5p8+6*fmc
1806 . *p2p8*p3p5*p3p7-2*hbcm*p1p2*p1p3*p7p8+2*hbcm*p1p2*p1p8*p3p7-6*
1807 . hbcm*p1p2*p2p3*p7p8+6*hbcm*p1p2*p2p8*p3p7+8*hbcm*p1p2*p3p5*
1808 . p7p8-8*hbcm*p1p2*p3p7*p5p8-4*hbcm*p1p3*p2p5*p7p8+4*hbcm*p1p3*
1809 . p2p8*p5p7-4*hbcm*p1p8*p2p3*p5p7+4*hbcm*p1p8*p2p5*p3p7-4*hbcm*
1810 . p2p3*p2p5*p7p8+4*hbcm*p2p5*p2p8*p3p7))+ans2
1811 ans=ccc*ans1
1812 b(7)=ans
1813 ans=ccc*(w2*(16*(p5p6*p2p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p3p6
1814 . *p2p8)*(-2*fmb*fmc-fmb*hbcm)+(p3p6*p3p5*p2p8)*(-16*ffmcfmb-16)
1815 . +16*(-ffmcfmb*p2p3*p3p5*p6p8-fmb*fmc*p2p3*p6p8+fmb*hbcm*p1p2*
1816 . p6p8-fmb*hbcm*p2p4*p6p8-4*fmb*hbcm*p2p8*p4p6+p1p2*p3p5*p6p8-
1817 . p2p4*p3p5*p6p8-3*p2p8*p3p5*p4p6))+w7*((p3p6*p2p8*p2p3)*(-16*
1818 . ffmcfmb-16)+16*(-ffmcfmb*p2p3s2*p6p8+p1p2*p2p3*p6p8-p2p3*p2p4*
1819 . p6p8-3*p2p3*p2p8*p4p6))+w17*(16*(p6p8*p1p2)*(fmb*hbcm+fmc*hbcm
1820 . -hbcm2)+16*(p3p6*p2p8)*(-2*fmb*fmc+fmc*hbcm-2*fmc2)+16*(p6p8*
1821 . p2p3)*(-fmb*fmc+fmc*hbcm-fmc2)+(p3p6*p2p8*p2p3)*(-16*ffmcfmb-
1822 . 16)+(p3p6*p2p8*p1p3)*(-16*ffmcfmb-16)+16*(-ffmcfmb*p1p3*p2p3*
1823 . p6p8-ffmcfmb*p2p3s2*p6p8+p1p2*p1p3*p6p8+p1p2*p2p3*p6p8-p1p3*
1824 . p2p4*p6p8-3*p1p3*p2p8*p4p6-p2p3*p2p4*p6p8-3*p2p3*p2p8*p4p6))+(
1825 . (p3p6*p2p8)*(-64*fb4*ffmcfmb-64*fb4+24)+(p6p8*p2p3)*(-64*fb4*
1826 . ffmcfmb+24)+32*p6p8*(fb3*fmb*fmc-fb3*fmc*hbcm+fb3*fmc2+fb4*fmb
1827 . *fmc-fb4*fmc*hbcm+fb4*fmc2)+64*(fb4*p1p2*p6p8-fb4*p2p4*p6p8-3*
1828 . fb4*p2p8*p4p6)))
1829 b(8)=ans
1830 b(9)=ccc*(16*w7*(2*ffmcfmb*p2p3s2*p3p6-p2p3*p2p5*p3p6+3*p2p3s2*
1831 . p4p6)+w2*(16*(p3p6*p2p5)*(-fmb*hbcm+fmc*hbcm)+16*(2*ffmcfmb*
1832 . p2p3*p3p5*p3p6+3*fmb*fmc*p2p3*p3p6+4*fmb*hbcm*p2p3*p4p6+fmb*
1833 . hbcm*p2p3*p5p6+hbcm2*p2p5*p4p6+hbcm2*p2p5*p5p6+3*p2p3*p3p5*
1834 . p4p6-p2p5*p3p5*p3p6))+w17*(16*(p3p6*p1p2)*(-fmb*hbcm-2*fmc*
1835 . hbcm)+48*(p3p6*p2p3)*(fmb*fmc+fmc2)+16*(2*ffmcfmb*p1p3*p2p3*
1836 . p3p6+2*ffmcfmb*p2p3s2*p3p6+2*fmc*hbcm*p2p3*p4p6+2*fmc*hbcm*
1837 . p2p5*p3p6-2*hbcm2*p1p2*p4p6+3*p1p3*p2p3*p4p6-p1p3*p2p5*p3p6-
1838 . p2p3*p2p5*p3p6+3*p2p3s2*p4p6))+((p3p6*p2p3)*(128*fb4*ffmcfmb-
1839 . 48)+64*p4p6*(-fb3*fmc*hbcm-fb4*fmc*hbcm)+32*p3p6*(-fb3*fmb*fmc
1840 . -fb3*fmc2-fb4*fmb*fmc-fb4*fmc2)+64*(3*fb4*p2p3*p4p6-fb4*p2p5*
1841 . p3p6)))
1842 ans2=(8*(p6p8*p2p3)*(-8*fb4*fmb+3*hbcm)+64*(p5p8*p3p6)*(-fb3*
1843 . fmc-fb4*fmc)+64*(p6p8*p3p5)*(fb3*fmc+fb4*fmc)+8*(p3p6*p2p8)*(8
1844 . *fb3*fmc+8*fb4*fmb-3*hbcm)+32*p6p8*(fb3*fmb*fmc*hbcm+fb3*fmc*
1845 . hbcm2-fb3*fmc2*hbcm+fb4*fmb*fmc*hbcm+fb4*fmc*hbcm2-fb4*fmc2*
1846 . hbcm)+64*(-fb3*hbcm*p2p5*p6p8+2*fb3*hbcm*p2p8*p4p6))
1847 ans1=16*w7*(fmb*p2p3*p2p8*p3p6-fmb*p2p3s2*p6p8-hbcm*p2p3*p2p5*
1848 . p6p8+hbcm*p2p5*p2p8*p3p6)+w2*(16*(p3p6*p3p5*p2p8)*(fmb-3*fmc)+
1849 . 16*(p5p6*p2p8)*(-fmb*hbcm2+fmc*hbcm2-hbcm3)+16*(p3p6*p2p8)*(-2
1850 . *fmb*fmc*hbcm+fmb2*hbcm)+16*(fmb*hbcm2*p2p5*p6p8-3*fmb*hbcm2*
1851 . p2p8*p4p6-fmb*p2p3*p3p5*p6p8-fmb2*hbcm*p2p3*p6p8+3*fmc*p2p3*
1852 . p3p6*p5p8+4*hbcm*p2p3*p4p6*p5p8+2*hbcm*p2p3*p5p6*p5p8+hbcm*
1853 . p2p5*p3p5*p6p8-hbcm*p2p5*p3p6*p5p8-4*hbcm*p2p8*p3p5*p4p6-2*
1854 . hbcm*p2p8*p3p5*p5p6))+w17*(16*p6p8*(-fmb*p2p3s2+2*fmc*p2p3s2)+
1855 . 16*(p3p6*p2p8*p2p3)*(fmb-2*fmc)+16*(p3p6*p2p8*p1p3)*(fmb+fmc)+
1856 . 16*(p6p8*p2p3*p1p3)*(-fmb+2*fmc)+16*(p6p8*p1p2)*(fmb*hbcm2-fmc
1857 . *hbcm2+hbcm3)+16*(p3p6*p2p8)*(-fmb*fmc*hbcm-2*fmc*hbcm2+fmc2*
1858 . hbcm)+16*(p6p8*p2p3)*(-fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+16*(-
1859 . 3*fmc*p1p8*p2p3*p3p6-2*fmc*p2p3*p3p5*p6p8+6*fmc*p2p3*p3p6*p5p8
1860 . -4*fmc*p2p8*p3p5*p3p6-2*hbcm*p1p2*p2p3*p6p8+2*hbcm*p1p2*p2p8*
1861 . p3p6+2*hbcm*p1p2*p3p5*p6p8-2*hbcm*p1p2*p3p6*p5p8-hbcm*p1p3*
1862 . p2p5*p6p8+2*hbcm*p1p3*p2p8*p4p6-2*hbcm*p1p8*p2p3*p4p6+hbcm*
1863 . p1p8*p2p5*p3p6-hbcm*p2p3*p2p5*p6p8+hbcm*p2p5*p2p8*p3p6))+ans2
1864 ans=ccc*ans1
1865 b(10)=ans
1866 ans2=w17*(16*p6p7*(fmb*p2p3s2-2*fmc*p2p3s2)+16*(p6p7*p2p3*p1p3)
1867 . *(fmb-2*fmc)+16*(p6p7*p1p2)*(-fmb*hbcm2+fmc*hbcm2-hbcm3)+16*(
1868 . p6p7*p2p3)*(fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+16*(ffmcfmb*fmb*
1869 . p1p3*p3p6*p3p7+ffmcfmb*fmb*p2p3*p3p6*p3p7-2*ffmcfmb*fmc*p3p5*
1870 . p3p6*p3p7-2*fmc*p1p2*p3p6*p3p7+fmc*p1p3*p3p7*p4p6+2*fmc*p2p3*
1871 . p3p5*p6p7-6*fmc*p2p3*p3p6*p5p7+fmc*p2p3*p3p7*p4p6+6*fmc*p2p5*
1872 . p3p6*p3p7-fmc2*hbcm*p3p6*p3p7+2*hbcm*p1p2*p2p3*p6p7-2*hbcm*
1873 . p1p2*p3p5*p6p7+2*hbcm*p1p2*p3p6*p5p7-4*hbcm*p1p2*p3p7*p4p6+
1874 . hbcm*p1p3*p2p5*p6p7+hbcm*p2p3*p2p5*p6p7))+(8*(p6p7*p2p3)*(8*
1875 . fb4*fmb-3*hbcm)+8*(p4p6*p3p7)*(-8*fb3*fmc-16*fb4*fmc+hbcm)+64*
1876 . (p5p7*p3p6)*(fb3*fmc+fb4*fmc)+64*(p6p7*p3p5)*(-fb3*fmc-fb4*fmc
1877 . )+32*p6p7*(-fb3*fmb*fmc*hbcm-fb3*fmc*hbcm2+fb3*fmc2*hbcm-fb4*
1878 . fmb*fmc*hbcm-fb4*fmc*hbcm2+fb4*fmc2*hbcm)+8*(p3p7*p3p6)*(-8*
1879 . fb3*ffmcfmb*fmc+8*fb4*ffmcfmb*fmb-8*fb4*ffmcfmb*fmc+fmb-fmc)+
1880 . 64*fb3*hbcm*p2p5*p6p7)
1881 ans1=w2*(16*(p3p7*p3p6)*(-fmb*fmc2+fmb2*fmc)+16*(p5p6*p3p7)*(-
1882 . fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+16*(p3p7*p3p6*p3p5)*(ffmcfmb
1883 . *fmb-2*ffmcfmb*fmc)+16*(-2*fmb*fmc*hbcm*p3p7*p4p6-fmb*hbcm2*
1884 . p2p5*p6p7+fmb*p2p3*p3p5*p6p7+fmb2*hbcm*p2p3*p6p7-2*fmc*p2p3*
1885 . p3p6*p5p7+2*fmc*p2p5*p3p6*p3p7-3*fmc*p3p5*p3p7*p4p6-2*fmc*p3p5
1886 . *p3p7*p5p6-2*hbcm*p2p3*p4p6*p5p7-2*hbcm*p2p3*p5p6*p5p7-hbcm*
1887 . p2p5*p3p5*p6p7+2*hbcm*p2p5*p3p7*p4p6+2*hbcm*p2p5*p3p7*p5p6))+
1888 . w7*(16*(p3p7*p3p6*p2p3)*(ffmcfmb*fmb-2*ffmcfmb*fmc)+16*(fmb*
1889 . p2p3s2*p6p7-3*fmc*p2p3*p3p7*p4p6+2*fmc*p2p5*p3p6*p3p7+hbcm*
1890 . p2p3*p2p5*p6p7))+ans2
1891 ans=ccc*ans1
1892 b(11)=ans
1893 ans5=16*(-2*ffmcfmb*p1p3*p2p3*p3p6*p7p8+2*ffmcfmb*p1p3*p2p3*
1894 . p3p7*p6p8-2*ffmcfmb*p1p3*p3p5*p3p7*p6p8+2*ffmcfmb*p1p3*p3p6*
1895 . p3p7*p5p8-2*ffmcfmb*p2p3*p3p5*p3p7*p6p8+2*ffmcfmb*p2p3*p3p6*
1896 . p3p7*p5p8-2*ffmcfmb*p2p3s2*p3p6*p7p8+2*ffmcfmb*p2p3s2*p3p7*
1897 . p6p8+fmb*hbcm*p1p8*p2p3*p6p7+fmb*hbcm*p2p3*p2p8*p6p7+2*fmc*
1898 . hbcm*p1p2*p3p6*p7p8-2*fmc*hbcm*p2p3*p4p6*p7p8-2*fmc*hbcm*p2p3*
1899 . p5p7*p6p8+2*fmc*hbcm*p2p3*p5p8*p6p7-2*fmc*hbcm*p2p5*p3p6*p7p8+
1900 . 2*fmc*hbcm*p2p5*p3p7*p6p8+2*fmc*hbcm*p2p8*p3p6*p5p7+2*fmc*hbcm
1901 . *p2p8*p3p7*p4p6+2*hbcm2*p1p2*p3p7*p6p8+2*hbcm2*p1p2*p4p6*p7p8+
1902 . 2*hbcm2*p1p2*p5p7*p6p8-2*hbcm2*p1p2*p5p8*p6p7+hbcm2*p1p8*p2p5*
1903 . p6p7+hbcm2*p2p5*p2p8*p6p7+2*p1p3*p1p8*p2p3*p6p7+2*p1p3*p2p3*
1904 . p2p8*p6p7-2*p1p3*p2p3*p4p6*p7p8+2*p1p3*p2p3*p4p7*p6p8-2*p1p3*
1905 . p2p3*p4p8*p6p7+8*p1p3*p2p8*p3p7*p4p6+2*p1p8*p2p3s2*p6p7+8*p2p3
1906 . *p2p8*p3p7*p4p6+2*p2p3s2*p2p8*p6p7-2*p2p3s2*p4p6*p7p8+2*p2p3s2
1907 . *p4p7*p6p8-2*p2p3s2*p4p8*p6p7)
1908 ans4=16*(p3p7*p3p6*p2p8)*(7*fmb*fmc-2*fmc*hbcm+7*fmc2)+16*(p6p8
1909 . *p3p7*p2p3)*(fmb*fmc-3*fmc*hbcm+fmc2)+32*(p7p8*p3p6*p2p3)*(-
1910 . fmb*fmc-fmc2)+16*(p3p7*p3p6*p1p8)*(fmb*fmc+fmc2)+16*(p6p8*p3p7
1911 . *p1p3)*(-fmb*fmc-fmc*hbcm-fmc2)+(p3p7*p3p6*p2p8*p2p3)*(64*
1912 . ffmcfmb+32)+(p3p7*p3p6*p2p8*p1p3)*(64*ffmcfmb+32)+ans5
1913 ans3=w17*ans4
1914 ans6=((p5p8*p3p7*p3p6)*(128*fb4*ffmcfmb+16)+(p6p8*p3p7*p3p5)*(-
1915 . 128*fb4*ffmcfmb-16)+(p3p7*p3p6*p2p8)*(256*fb4*ffmcfmb+128*fb4-
1916 . 96)+(p6p8*p3p7*p2p3)*(128*fb4*ffmcfmb-48)+(p7p8*p3p6*p2p3)*(-
1917 . 128*fb4*ffmcfmb+48)+8*(p7p8*p3p6)*(8*fb3*fmc2+8*fb4*fmc2+fmb*
1918 . hbcm-fmc*hbcm)+64*(p6p7*p5p8)*(-fb3*fmc*hbcm-fb4*fmc*hbcm)+64*
1919 . (p6p8*p5p7)*(fb3*fmc*hbcm+fb4*fmc*hbcm)+64*(p7p8*p4p6)*(fb3*
1920 . fmc*hbcm+fb4*fmc*hbcm)+8*(p6p8*p3p7)*(-8*fb3*fmb*fmc+8*fb3*fmc
1921 . *hbcm-8*fb3*fmc2-fmb*hbcm-fmc*hbcm-hbcm2)+8*(16*fb4*p1p8*p2p3*
1922 . p6p7+16*fb4*p2p3*p2p8*p6p7-16*fb4*p2p3*p4p6*p7p8+16*fb4*p2p3*
1923 . p4p7*p6p8-16*fb4*p2p3*p4p8*p6p7+64*fb4*p2p8*p3p7*p4p6+hbcm2*
1924 . p2p8*p6p7))
1925 ans2=w7*(16*(p3p7*p3p6*p2p8)*(fmb*fmc+fmc2)+16*(p6p8*p3p7*p2p3)
1926 . *(fmb*fmc-fmc*hbcm+fmc2)+(p3p7*p3p6*p2p8*p2p3)*(64*ffmcfmb+32)
1927 . +16*(-2*ffmcfmb*p2p3*p3p5*p3p7*p6p8+2*ffmcfmb*p2p3*p3p6*p3p7*
1928 . p5p8-2*ffmcfmb*p2p3s2*p3p6*p7p8+2*ffmcfmb*p2p3s2*p3p7*p6p8+fmb
1929 . *hbcm*p2p3*p2p8*p6p7+2*fmc*hbcm*p2p5*p3p7*p6p8+2*fmc*hbcm*p2p8
1930 . *p3p7*p4p6+hbcm2*p2p5*p2p8*p6p7+2*p1p8*p2p3s2*p6p7+8*p2p3*p2p8
1931 . *p3p7*p4p6+2*p2p3s2*p2p8*p6p7-2*p2p3s2*p4p6*p7p8+2*p2p3s2*p4p7
1932 . *p6p8-2*p2p3s2*p4p8*p6p7))+ans3+ans6
1933 ans1=w2*(32*(p5p6*p3p7*p2p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p5p8
1934 . *p3p7*p3p6)*(fmb*fmc-fmc2)+16*(p6p8*p3p7*p3p5)*(-fmb*fmc-fmc*
1935 . hbcm+fmc2)+32*(p3p7*p3p6*p2p8)*(3*fmb*fmc+fmb*hbcm)+16*(p6p8*
1936 . p3p7)*(-2*ffmcfmb*p3p5s2-fmb*fmc*hbcm2+fmb*fmc2*hbcm+fmb2*fmc*
1937 . hbcm)+(p3p7*p3p6*p3p5*p2p8)*(64*ffmcfmb+32)+16*(-2*ffmcfmb*
1938 . p2p3*p3p5*p3p6*p7p8+2*ffmcfmb*p2p3*p3p5*p3p7*p6p8+2*ffmcfmb*
1939 . p3p5*p3p6*p3p7*p5p8-2*fmb*fmc*p2p3*p3p6*p7p8+2*fmb*fmc*p2p3*
1940 . p3p7*p6p8+2*fmb*hbcm*p1p8*p2p3*p6p7+2*fmb*hbcm*p2p3*p2p8*p6p7-
1941 . 2*fmb*hbcm*p2p3*p4p6*p7p8+2*fmb*hbcm*p2p3*p4p7*p6p8-2*fmb*hbcm
1942 . *p2p3*p4p8*p6p7-fmb*hbcm*p2p3*p5p8*p6p7+10*fmb*hbcm*p2p8*p3p7*
1943 . p4p6-2*fmc*hbcm*p3p7*p4p6*p5p8-2*fmc*hbcm*p3p7*p5p6*p5p8-hbcm2
1944 . *p2p5*p5p8*p6p7+2*p1p8*p2p3*p3p5*p6p7+2*p2p3*p2p8*p3p5*p6p7-2*
1945 . p2p3*p3p5*p4p6*p7p8+2*p2p3*p3p5*p4p7*p6p8-2*p2p3*p3p5*p4p8*
1946 . p6p7+8*p2p8*p3p5*p3p7*p4p6))+ans2
1947 ans=ccc*ans1
1948 b(12)=ans
1949 b(13)=ccc*(8*w7*(-3*fmb*p2p3*p2p8+hbcm*p1p2*p2p8-3*hbcm*p2p5*
1950 . p2p8)+w17*(8*(p2p3*p1p8)*(3*fmc-2*hbcm)+24*(p2p8*p2p3)*(-fmb+2
1951 . *fmc)+8*(p2p8*p1p3)*(-3*fmb+3*fmc+2*hbcm)+8*(-6*fmc*p2p3*p5p8-
1952 . hbcm*p1p2*p1p8-5*hbcm*p1p2*p2p8+6*hbcm*p1p2*p5p8-3*hbcm*p1p8*
1953 . p2p5-3*hbcm*p2p5*p2p8))+w2*(8*(p5p8*p2p3)*(-3*fmc+4*hbcm)+8*(
1954 . p3p5*p2p8)*(-3*fmb+3*fmc-4*hbcm)+8*p2p8*(4*fmb*fmc*hbcm-3*fmb*
1955 . hbcm2-4*fmb2*hbcm)+8*(-hbcm*p1p2*p5p8+2*hbcm*p1p5*p2p8+2*hbcm*
1956 . p2p5*p2p8+3*hbcm*p2p5*p5p8))+(96*p5p8*(fb3*fmc+fb4*fmc)+4*p2p8
1957 . *(-24*fb3*fmc+16*fb3*hbcm-24*fb4*fmb+5*hbcm)+32*p1p8*(-fb3*fmc
1958 . -fb4*fmc)))
1959 b(14)=ccc*(8*w7*(2*ffmcfmb*p2p3s2+p1p2*p2p3-4*p2p3*p2p5-3*
1960 . p2p3s2)+w2*(8*p2p5*(-4*fmb*hbcm+fmc*hbcm-hbcm2)+8*p2p3*(3*fmb*
1961 . fmc-4*fmb*hbcm)+(p3p5*p2p3)*(16*ffmcfmb-24)+8*(fmb*hbcm*p1p2+
1962 . p1p2*p3p5-4*p2p5*p3p5))+w17*(8*p1p2*(-3*fmb*hbcm-3*fmc*hbcm+2*
1963 . hbcm2)+8*p2p3*(3*fmb*fmc-2*fmc*hbcm+3*fmc2)+(p2p3*p1p3)*(16*
1964 . ffmcfmb-24)+8*(2*ffmcfmb*p2p3s2+p1p2*p1p3+p1p2*p2p3-4*p1p3*
1965 . p2p5-4*p2p3*p2p5-3*p2p3s2))+(p2p3*(64*fb4*ffmcfmb-96*fb4-24)+
1966 . 16*(-3*fb3*fmb*fmc+2*fb3*fmc*hbcm-3*fb3*fmc2-3*fb4*fmb*fmc+2*
1967 . fb4*fmc*hbcm-3*fb4*fmc2+2*fb4*p1p2-8*fb4*p2p5)))
1968 ans1=(w7*(8*(p2p8*p2p3)*(-2*fmc*hbcm+3*hbcm2)+8*(hbcm2*p1p2*
1969 . p2p8-2*hbcm2*p2p5*p2p8-2*p1p3*p2p3*p2p8+2*p1p8*p2p3s2+6*p2p3*
1970 . p2p8*p3p5-6*p2p3s2*p5p8))+w17*(8*(p2p8*p2p3)*(2*fmc*hbcm+3*
1971 . hbcm2)+8*(p2p8*p1p3)*(2*fmb*hbcm+2*fmc*hbcm+3*hbcm2)+8*(-2*fmb
1972 . *hbcm*p1p8*p2p3-4*fmc*hbcm*p2p3*p5p8-hbcm2*p1p2*p1p8-3*hbcm2*
1973 . p1p2*p2p8+4*hbcm2*p1p2*p5p8-2*hbcm2*p1p8*p2p5-2*hbcm2*p2p5*
1974 . p2p8+2*p1p3*p1p8*p2p3-2*p1p3*p2p3*p2p8-6*p1p3*p2p3*p5p8+6*p1p3
1975 . *p2p8*p3p5-2*p1p3s2*p2p8+2*p1p8*p2p3s2+6*p2p3*p2p8*p3p5-6*
1976 . p2p3s2*p5p8))+w2*(8*(p3p5*p2p8)*(4*fmb*hbcm-4*fmc*hbcm+3*hbcm2
1977 . )+16*(p5p8*p2p3)*(-2*fmb*hbcm+fmc*hbcm)+8*p2p8*(-3*fmb*fmc*
1978 . hbcm2+4*fmb*hbcm3-3*fmb2*hbcm2+6*p3p5s2)+8*(-2*fmb*hbcm*p1p3*
1979 . p2p8+2*fmb*hbcm*p1p8*p2p3-hbcm2*p1p2*p5p8+2*hbcm2*p1p5*p2p8+2*
1980 . hbcm2*p2p5*p2p8+2*hbcm2*p2p5*p5p8-2*p1p3*p2p8*p3p5+2*p1p8*p2p3
1981 . *p3p5-6*p2p3*p3p5*p5p8))+(64*p5p8*(fb3*fmc*hbcm+fb4*fmc*hbcm)+
1982 . 32*p1p8*(-fb3*fmc*hbcm-fb4*fmc*hbcm)+16*p2p8*(4*fb3*fmb*hbcm-4
1983 . *fb4*fmc*hbcm+6*fb4*hbcm2+hbcm2)+64*(-fb4*p1p3*p2p8+fb4*p1p8*
1984 . p2p3-3*fb4*p2p3*p5p8+3*fb4*p2p8*p3p5)))
1985 ans=ccc*ans1
1986 b(15)=ans
1987 ans=ccc*(8*w7*(3*fmb*p2p3s2-hbcm*p1p2*p2p3+3*hbcm*p2p3*p2p5)+w2
1988 . *(8*p2p5*(-3*fmb*hbcm2-fmc*hbcm2+hbcm3)+16*p2p3*(-fmb*fmc*hbcm
1989 . +2*fmb2*hbcm)+8*(fmb*hbcm2*p1p2+3*fmb*p2p3*p3p5+hbcm*p1p2*p3p5
1990 . -2*hbcm*p1p5*p2p3-2*hbcm*p2p3*p2p5-3*hbcm*p2p5*p3p5))+w17*(24*
1991 . (p2p3*p1p3)*(fmb-2*fmc)+8*p1p2*(-2*fmb*hbcm2+2*fmc*hbcm2-3*
1992 . hbcm3)+8*p2p3*(2*fmb*fmc*hbcm+3*fmc*hbcm2-2*fmc2*hbcm)+8*(3*
1993 . fmb*p2p3s2+6*fmc*p2p3*p3p5-6*fmc*p2p3s2+hbcm*p1p2*p1p3+5*hbcm*
1994 . p1p2*p2p3-6*hbcm*p1p2*p3p5+3*hbcm*p1p3*p2p5+3*hbcm*p2p3*p2p5))
1995 . +(96*p3p5*(-fb3*fmc-fb4*fmc)+4*p2p3*(16*fb3*fmc+24*fb4*fmb-5*
1996 . hbcm)+32*p1p3*(fb3*fmc+fb4*fmc)+16*(-2*fb3*fmb*fmc*hbcm-3*fb3*
1997 . fmc*hbcm2+2*fb3*fmc2*hbcm-2*fb3*hbcm*p1p2+6*fb3*hbcm*p2p5-2*
1998 . fb4*fmb*fmc*hbcm-3*fb4*fmc*hbcm2+2*fb4*fmc2*hbcm)))
1999 b(16)=ans
2000 b(17)=ccc*(w7*(8*(p3p6*p2p8)*(fmc+hbcm)+8*(p6p8*p2p3)*(fmb+fmc-
2001 . hbcm)+24*hbcm*p2p8*p4p6)+w17*(8*(p3p6*p2p8)*(3*fmc+hbcm)+8*(
2002 . p3p6*p1p8)*(3*fmc+hbcm)+8*(p6p8*p2p3)*(fmb-fmc-hbcm)+8*(p6p8*
2003 . p1p3)*(fmb-fmc-hbcm)+8*(-6*fmc*p3p6*p5p8+2*hbcm*p1p2*p6p8+3*
2004 . hbcm*p1p8*p4p6+3*hbcm*p2p8*p4p6))+w2*(8*(p5p8*p3p6)*(-3*fmc-
2005 . hbcm)+8*(p6p8*p3p5)*(fmb-fmc+hbcm)+8*p6p8*(-fmb*fmc*hbcm+fmb*
2006 . hbcm2+fmb2*hbcm)+8*(-5*hbcm*p4p6*p5p8-2*hbcm*p5p6*p5p8))+4*
2007 . p6p8*(8*fb3*fmc-8*fb3*hbcm+8*fb4*fmb-7*hbcm))
2008 b(18)=ccc*(w2*(8*p5p6*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*p3p6*(-3*fmb
2009 . *fmc-fmb*hbcm)+(p3p6*p3p5)*(-16*ffmcfmb-8)+8*(-5*fmb*hbcm*p4p6
2010 . -4*p3p5*p4p6))+w7*((p3p6*p2p3)*(-16*ffmcfmb-8)-32*p2p3*p4p6)+
2011 . w17*(8*p3p6*(-3*fmb*fmc+2*fmc*hbcm-3*fmc2)+(p3p6*p2p3)*(-16*
2012 . ffmcfmb-8)+(p3p6*p1p3)*(-16*ffmcfmb-8)+32*(-p1p3*p4p6-p2p3*
2013 . p4p6))+(p3p6*(-64*fb4*ffmcfmb-32*fb4+24)-128*fb4*p4p6))
2014 b(19)=ccc*(w7*(4*p2p8*(2*fmb*hbcm2-2*fmc*hbcm2+3*hbcm3)+8*(-
2015 . hbcm*p1p3*p2p8+hbcm*p1p8*p2p3-3*hbcm*p2p3*p5p8+3*hbcm*p2p8*
2016 . p3p5))+w2*(4*p5p8*(4*fmb*hbcm2+4*fmc*hbcm2-5*hbcm3)+8*(-fmb*
2017 . hbcm2*p1p8-fmb*hbcm2*p2p8+hbcm*p1p3*p5p8-hbcm*p1p8*p3p5+hbcm*
2018 . p2p3*p5p8-hbcm*p2p8*p3p5))+w17*(4*p2p8*(2*fmb*hbcm2-2*fmc*
2019 . hbcm2+3*hbcm3)+4*p1p8*(2*fmb*hbcm2-2*fmc*hbcm2+3*hbcm3)+24*(-
2020 . hbcm*p1p3*p5p8+hbcm*p1p8*p3p5-hbcm*p2p3*p5p8+hbcm*p2p8*p3p5))+
2021 . 32*(fb3*hbcm*p1p8+fb3*hbcm*p2p8-3*fb3*hbcm*p5p8))
2022 b(20)=ccc*(w7*(4*p2p8*(3*fmb*hbcm+3*fmc*hbcm-2*hbcm2)+8*(-p1p8*
2023 . p2p3-p2p3*p2p8+4*p2p3*p5p8))+w2*(4*p5p8*(5*fmb*hbcm-5*fmc*hbcm
2024 . +4*hbcm2)+8*(-fmb*hbcm*p1p8-fmb*hbcm*p2p8-p1p8*p3p5-p2p8*p3p5+
2025 . 4*p3p5*p5p8))+w17*(4*p2p8*(3*fmb*hbcm+3*fmc*hbcm-2*hbcm2)+4*
2026 . p1p8*(3*fmb*hbcm+3*fmc*hbcm-2*hbcm2)+8*(-p1p3*p1p8-p1p3*p2p8+4
2027 . *p1p3*p5p8-p1p8*p2p3-p2p3*p2p8+4*p2p3*p5p8))+32*(-fb4*p1p8-fb4
2028 . *p2p8+4*fb4*p5p8))
2029 b(21)=ccc*(w7*(8*(p3p7*p2p8)*(-3*fmc+2*hbcm)+8*(p7p8*p2p3)*(3*
2030 . fmb+fmc-2*hbcm)+8*(-2*fmc*p1p8*p3p7+6*fmc*p3p7*p5p8+3*hbcm*
2031 . p2p8*p5p7))+w17*(8*(p3p7*p2p8)*(-3*fmc+2*hbcm)+8*(p3p7*p1p8)*(
2032 . -3*fmc+2*hbcm)+8*(p7p8*p2p3)*(3*fmb-3*fmc-2*hbcm)+8*(p7p8*p1p3
2033 . )*(3*fmb-3*fmc-2*hbcm)+8*(6*fmc*p3p7*p5p8+4*hbcm*p1p2*p7p8+3*
2034 . hbcm*p1p8*p5p7+3*hbcm*p2p8*p5p7))+w2*(8*(p5p8*p3p7)*(3*fmc-4*
2035 . hbcm)+8*(p7p8*p3p5)*(3*fmb-3*fmc+4*hbcm)+8*p7p8*(-4*fmb*fmc*
2036 . hbcm+3*fmb*hbcm2+4*fmb2*hbcm)+8*(-2*hbcm*p1p5*p7p8-2*hbcm*p2p5
2037 . *p7p8-3*hbcm*p5p7*p5p8))+4*p7p8*(16*fb3*fmc-16*fb3*hbcm+24*fb4
2038 . *fmb-8*fb4*fmc-5*hbcm))
2039 b(22)=ccc*(4*w7*p2p3*(4*fmb+2*fmc-3*hbcm)+w17*(4*p2p3*(4*fmb-4*
2040 . fmc-3*hbcm)+4*p1p3*(4*fmb-4*fmc-3*hbcm)+24*hbcm*p1p2)+w2*(4*
2041 . p3p5*(4*fmb-4*fmc+5*hbcm)+4*(-5*fmb*fmc*hbcm+4*fmb*hbcm2+5*
2042 . fmb2*hbcm-2*hbcm*p1p5-2*hbcm*p2p5))+8*(6*fb3*fmc-6*fb3*hbcm+8*
2043 . fb4*fmb-2*fb4*fmc-3*hbcm))
2044 b(23)=ccc*(w2*(8*p5p7*(4*fmb*hbcm-fmc*hbcm+hbcm2)+8*p3p7*(-3*
2045 . fmb*fmc+4*fmb*hbcm)+(p3p7*p3p5)*(-16*ffmcfmb+24)+32*p3p5*p5p7)
2046 . +w7*(8*p3p7*(-3*fmb*fmc+2*fmc*hbcm-3*fmc2)+(p3p7*p2p3)*(-16*
2047 . ffmcfmb+24)+32*p2p3*p5p7)+w17*(8*p3p7*(-3*fmb*fmc+2*fmc*hbcm-3
2048 . *fmc2)+(p3p7*p2p3)*(-16*ffmcfmb+24)+(p3p7*p1p3)*(-16*ffmcfmb+
2049 . 24)+32*(p1p3*p5p7+p2p3*p5p7))+(p3p7*(-64*fb4*ffmcfmb+96*fb4+24
2050 . )+128*fb4*p5p7))
2051 b(24)=ccc*(w7*(4*p2p3*(-3*fmb*hbcm+fmc*hbcm-4*hbcm2)+8*(p1p3*
2052 . p2p3-4*p2p3*p3p5+p2p3s2))+w17*(4*p2p3*(-3*fmb*hbcm-3*fmc*hbcm-
2053 . 4*hbcm2)+4*p1p3*(-3*fmb*hbcm-3*fmc*hbcm-4*hbcm2)+8*(2*hbcm2*
2054 . p1p2+2*p1p3*p2p3-4*p1p3*p3p5+p1p3s2-4*p2p3*p3p5+p2p3s2))+w2*(4
2055 . *p3p5*(-5*fmb*hbcm+5*fmc*hbcm-4*hbcm2)+4*(4*fmb*fmc*hbcm2+2*
2056 . fmb*hbcm*p1p3+2*fmb*hbcm*p2p3-5*fmb*hbcm3+4*fmb2*hbcm2-2*hbcm2
2057 . *p1p5-2*hbcm2*p2p5+2*p1p3*p3p5+2*p2p3*p3p5-8*p3p5s2))+16*(-3*
2058 . fb3*fmb*hbcm-fb3*fmc*hbcm+2*fb4*fmc*hbcm-4*fb4*hbcm2+2*fb4*
2059 . p1p3+2*fb4*p2p3-8*fb4*p3p5-hbcm2))
2060 b(25)=ccc*(w7*(8*(p3p7*p2p3)*(-3*fmb+2*fmc)+8*p3p7*(-2*fmb*fmc*
2061 . hbcm-3*fmc*hbcm2+2*fmc2*hbcm)+8*(2*fmc*p1p3*p3p7-6*fmc*p3p5*
2062 . p3p7-3*hbcm*p2p3*p5p7))+w2*(8*p5p7*(3*fmb*hbcm2+fmc*hbcm2-
2063 . hbcm3)+16*p3p7*(fmb*fmc*hbcm-2*fmb2*hbcm)+8*(-3*fmb*p3p5*p3p7+
2064 . 2*hbcm*p1p5*p3p7+2*hbcm*p2p5*p3p7+3*hbcm*p3p5*p5p7))+w17*(24*(
2065 . p3p7*p2p3)*(-fmb+2*fmc)+24*(p3p7*p1p3)*(-fmb+2*fmc)+8*p3p7*(-2
2066 . *fmb*fmc*hbcm-3*fmc*hbcm2+2*fmc2*hbcm)+8*(-6*fmc*p3p5*p3p7-4*
2067 . hbcm*p1p2*p3p7-3*hbcm*p1p3*p5p7-3*hbcm*p2p3*p5p7))+(4*p3p7*(-8
2068 . *fb3*fmc-24*fb4*fmb+8*fb4*fmc+5*hbcm)-96*fb3*hbcm*p5p7))
2069 b(26)=ccc*(w7*(8*(p3p6*p2p3)*(-fmb-2*fmc)-24*hbcm*p2p3*p4p6)+w2
2070 . *(8*(p3p6*p3p5)*(-fmb+4*fmc)+8*p5p6*(fmb*hbcm2-fmc*hbcm2+hbcm3
2071 . )+8*p3p6*(3*fmb*fmc*hbcm-fmb2*hbcm)+8*(4*fmb*hbcm2*p4p6+5*hbcm
2072 . *p3p5*p4p6+2*hbcm*p3p5*p5p6))+w17*(8*(p3p6*p2p3)*(-fmb-2*fmc)+
2073 . 8*(p3p6*p1p3)*(-fmb-2*fmc)+8*p3p6*(2*fmb*fmc*hbcm+3*fmc*hbcm2-
2074 . 2*fmc2*hbcm)+8*(6*fmc*p3p5*p3p6-2*hbcm*p1p2*p3p6-3*hbcm*p1p3*
2075 . p4p6-3*hbcm*p2p3*p4p6))+(4*p3p6*(-16*fb3*fmc-8*fb4*fmb+7*hbcm)
2076 . -96*fb3*hbcm*p4p6))
2077 ans2=(16*p7p8*(-4*fb3*fmb*hbcm-2*fb3*fmc*hbcm+2*fb4*fmc*hbcm-6*
2078 . fb4*hbcm2-hbcm2)+64*(fb4*p1p3*p7p8-fb4*p1p8*p3p7+fb4*p2p3*p7p8
2079 . -fb4*p2p8*p3p7-3*fb4*p3p5*p7p8+3*fb4*p3p7*p5p8))
2080 ans1=w7*(8*(p7p8*p2p3)*(-2*fmb*hbcm-3*hbcm2)+16*(fmb*hbcm*p2p8*
2081 . p3p7-fmc*hbcm*p1p8*p3p7+2*fmc*hbcm*p3p7*p5p8+hbcm2*p2p8*p5p7+
2082 . p1p3*p2p3*p7p8-p1p8*p2p3*p3p7-p2p3*p2p8*p3p7-3*p2p3*p3p5*p7p8+
2083 . 3*p2p3*p3p7*p5p8+p2p3s2*p7p8))+w17*(16*p7p8*(p1p3s2+p2p3s2)+8*
2084 . (p7p8*p2p3)*(-2*fmb*hbcm-2*fmc*hbcm-3*hbcm2)+8*(p7p8*p1p3)*(-2
2085 . *fmb*hbcm-2*fmc*hbcm-3*hbcm2)+16*(fmb*hbcm*p1p8*p3p7+fmb*hbcm*
2086 . p2p8*p3p7+2*fmc*hbcm*p3p7*p5p8+hbcm2*p1p2*p7p8+hbcm2*p1p8*p5p7
2087 . +hbcm2*p2p8*p5p7-p1p3*p1p8*p3p7+2*p1p3*p2p3*p7p8-p1p3*p2p8*
2088 . p3p7-3*p1p3*p3p5*p7p8+3*p1p3*p3p7*p5p8-p1p8*p2p3*p3p7-p2p3*
2089 . p2p8*p3p7-3*p2p3*p3p5*p7p8+3*p2p3*p3p7*p5p8))+w2*(16*(p5p8*
2090 . p3p7)*(2*fmb*hbcm-fmc*hbcm)+8*(p7p8*p3p5)*(-4*fmb*hbcm+4*fmc*
2091 . hbcm-3*hbcm2)+8*p7p8*(3*fmb*fmc*hbcm2-4*fmb*hbcm3+3*fmb2*hbcm2
2092 . -6*p3p5s2)+16*(fmb*hbcm*p1p3*p7p8-fmb*hbcm*p1p8*p3p7+fmb*hbcm*
2093 . p2p3*p7p8-fmb*hbcm*p2p8*p3p7-hbcm2*p1p5*p7p8-hbcm2*p2p5*p7p8-
2094 . hbcm2*p5p7*p5p8+p1p3*p3p5*p7p8-p1p8*p3p5*p3p7+p2p3*p3p5*p7p8-
2095 . p2p8*p3p5*p3p7+3*p3p5*p3p7*p5p8))+ans2
2096 ans=ccc*ans1
2097 b(27)=ans
2098 ans=ccc*(w7*(8*(p3p6*p2p8)*(-fmb*hbcm-fmc*hbcm)+8*(p6p8*p2p3)*(
2099 . fmb*hbcm-fmc*hbcm-hbcm2)+16*(-hbcm2*p2p8*p4p6+p1p3*p2p3*p6p8-
2100 . p2p3*p3p4*p6p8-p2p3*p3p6*p5p8+p2p3s2*p6p8))+w17*(16*p6p8*(
2101 . p1p3s2+p2p3s2)+8*(p3p6*p2p8)*(-fmb*hbcm-3*fmc*hbcm)+8*(p6p8*
2102 . p2p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p3p6*p1p8)*(-fmb*hbcm-3*fmc
2103 . *hbcm)+8*(p6p8*p1p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(2*fmc*hbcm*
2104 . p3p6*p5p8-hbcm2*p1p2*p6p8-hbcm2*p1p8*p4p6-hbcm2*p2p8*p4p6+2*
2105 . p1p3*p2p3*p6p8-p1p3*p3p4*p6p8-p1p3*p3p6*p5p8-p2p3*p3p4*p6p8-
2106 . p2p3*p3p6*p5p8))+w2*(8*(p5p8*p3p6)*(-fmb*hbcm+3*fmc*hbcm)+8*(
2107 . p6p8*p3p5)*(-fmb*hbcm-fmc*hbcm-hbcm2)+8*p6p8*(-fmb*fmc*hbcm2-
2108 . fmb*hbcm3-fmb2*hbcm2)+16*(fmb*hbcm*p1p3*p6p8+fmb*hbcm*p2p3*
2109 . p6p8-fmb*hbcm*p3p4*p6p8+2*hbcm2*p4p6*p5p8+hbcm2*p5p6*p5p8+p1p3
2110 . *p3p5*p6p8+p2p3*p3p5*p6p8-p3p4*p3p5*p6p8-p3p5*p3p6*p5p8))+(16*
2111 . p6p8*(2*fb3*fmb*hbcm-2*fb4*fmc*hbcm-2*fb4*hbcm2+hbcm2)+64*(fb4
2112 . *p1p3*p6p8+fb4*p2p3*p6p8-fb4*p3p4*p6p8-fb4*p3p6*p5p8)))
2113 b(28)=ans
2114 ans2=((p3p7*p3p6)*(-128*fb4*ffmcfmb+48)+16*p6p7*(-2*fb3*fmb*
2115 . hbcm+2*fb4*fmc*hbcm+2*fb4*hbcm2-hbcm2)+64*(-fb4*p1p3*p6p7-fb4*
2116 . p2p3*p6p7+fb4*p3p4*p6p7+fb4*p3p6*p5p7-3*fb4*p3p7*p4p6))
2117 ans1=w2*(16*(p5p7*p3p6)*(fmb*hbcm-fmc*hbcm)+8*(p6p7*p3p5)*(fmb*
2118 . hbcm+fmc*hbcm+hbcm2)+8*p6p7*(fmb*fmc*hbcm2+fmb*hbcm3+fmb2*
2119 . hbcm2)+16*(-2*ffmcfmb*p3p5*p3p6*p3p7-3*fmb*fmc*p3p6*p3p7-fmb*
2120 . hbcm*p1p3*p6p7-fmb*hbcm*p2p3*p6p7+fmb*hbcm*p3p4*p6p7-4*fmb*
2121 . hbcm*p3p7*p4p6-fmb*hbcm*p3p7*p5p6-hbcm2*p4p6*p5p7-hbcm2*p5p6*
2122 . p5p7-p1p3*p3p5*p6p7-p2p3*p3p5*p6p7+p3p4*p3p5*p6p7+p3p5*p3p6*
2123 . p5p7-3*p3p5*p3p7*p4p6))+w7*(8*(p6p7*p2p3)*(-fmb*hbcm+fmc*hbcm+
2124 . hbcm2)+16*(p3p7*p3p6)*(-fmb*fmc-fmc2)+16*(-2*ffmcfmb*p2p3*p3p6
2125 . *p3p7-2*fmc*hbcm*p3p7*p4p6-p1p3*p2p3*p6p7+p2p3*p3p4*p6p7+p2p3*
2126 . p3p6*p5p7-3*p2p3*p3p7*p4p6-p2p3s2*p6p7))+w17*(16*p6p7*(-p1p3s2
2127 . -p2p3s2)+8*(p6p7*p2p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p6p7*p1p3
2128 . )*(-fmb*hbcm-fmc*hbcm+hbcm2)+48*(p3p7*p3p6)*(-fmb*fmc-fmc2)+16
2129 . *(-2*ffmcfmb*p1p3*p3p6*p3p7-2*ffmcfmb*p2p3*p3p6*p3p7-2*fmc*
2130 . hbcm*p3p6*p5p7-2*fmc*hbcm*p3p7*p4p6+hbcm2*p1p2*p6p7-2*p1p3*
2131 . p2p3*p6p7+p1p3*p3p4*p6p7+p1p3*p3p6*p5p7-3*p1p3*p3p7*p4p6+p2p3*
2132 . p3p4*p6p7+p2p3*p3p6*p5p7-3*p2p3*p3p7*p4p6))+ans2
2133 ans=ccc*ans1
2134 b(29)=ans
2135 ans2=w17*(16*(p6p8*p3p7*p2p3)*(fmb-2*fmc)+16*(p7p8*p3p6*p2p3)*(
2136 . -fmb-fmc)+16*(p6p8*p3p7*p1p3)*(fmb-2*fmc)+16*(p7p8*p3p6*p1p3)*
2137 . (-fmb-fmc)+8*(p6p7*p2p8)*(fmb*hbcm2-fmc*hbcm2+hbcm3)+8*(p6p7*
2138 . p1p8)*(fmb*hbcm2-fmc*hbcm2+hbcm3)+16*(p6p8*p3p7)*(fmb*fmc*hbcm
2139 . +fmc*hbcm2-fmc2*hbcm)+16*(p7p8*p3p6)*(fmb*fmc*hbcm+2*fmc*hbcm2
2140 . -fmc2*hbcm)+16*(3*fmc*p1p8*p3p6*p3p7+3*fmc*p2p8*p3p6*p3p7+4*
2141 . fmc*p3p5*p3p6*p7p8+2*fmc*p3p5*p3p7*p6p8-6*fmc*p3p6*p3p7*p5p8-2
2142 . *hbcm*p1p2*p3p6*p7p8+2*hbcm*p1p2*p3p7*p6p8-2*hbcm*p1p3*p4p6*
2143 . p7p8+hbcm*p1p3*p5p7*p6p8-hbcm*p1p3*p5p8*p6p7+hbcm*p1p8*p3p5*
2144 . p6p7-hbcm*p1p8*p3p6*p5p7+2*hbcm*p1p8*p3p7*p4p6-2*hbcm*p2p3*
2145 . p4p6*p7p8+hbcm*p2p3*p5p7*p6p8-hbcm*p2p3*p5p8*p6p7+hbcm*p2p8*
2146 . p3p5*p6p7-hbcm*p2p8*p3p6*p5p7+2*hbcm*p2p8*p3p7*p4p6))+(8*(p6p8
2147 . *p3p7)*(8*fb4*fmb-3*hbcm)+8*(p7p8*p3p6)*(-8*fb3*fmc-8*fb4*fmb+
2148 . 3*hbcm)+64*(-2*fb3*hbcm*p4p6*p7p8+fb3*hbcm*p5p7*p6p8-fb3*hbcm*
2149 . p5p8*p6p7))
2150 ans1=w7*(16*(p7p8*p3p6*p2p3)*(-fmb-fmc)+8*(p6p7*p2p8)*(fmb*
2151 . hbcm2-fmc*hbcm2+hbcm3)+16*(p6p8*p3p7)*(fmb*fmc*hbcm+fmc*hbcm2-
2152 . fmc2*hbcm)+16*(fmb*p2p3*p3p7*p6p8+fmc*p2p8*p3p6*p3p7+2*fmc*
2153 . p3p5*p3p7*p6p8-2*fmc*p3p6*p3p7*p5p8-2*hbcm*p2p3*p4p6*p7p8+hbcm
2154 . *p2p3*p5p7*p6p8-hbcm*p2p3*p5p8*p6p7+hbcm*p2p8*p3p5*p6p7-hbcm*
2155 . p2p8*p3p6*p5p7+2*hbcm*p2p8*p3p7*p4p6))+w2*(16*(p7p8*p3p6*p3p5)
2156 . *(-fmb+3*fmc)+8*(p6p7*p5p8)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+16*(
2157 . p7p8*p5p6)*(fmb*hbcm2-fmc*hbcm2+hbcm3)+16*(p7p8*p3p6)*(2*fmb*
2158 . fmc*hbcm-fmb2*hbcm)+16*(3*fmb*hbcm2*p4p6*p7p8-fmb*hbcm2*p5p7*
2159 . p6p8+fmb*p3p5*p3p7*p6p8+fmb2*hbcm*p3p7*p6p8-3*fmc*p3p6*p3p7*
2160 . p5p8+4*hbcm*p3p5*p4p6*p7p8+2*hbcm*p3p5*p5p6*p7p8-hbcm*p3p5*
2161 . p5p7*p6p8+hbcm*p3p6*p5p7*p5p8-4*hbcm*p3p7*p4p6*p5p8-2*hbcm*
2162 . p3p7*p5p6*p5p8))+ans2
2163 ans=ccc*ans1
2164 b(30)=ans
2165 ans2=w17*(8*(p6p7*p2p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p6p7*p1p8
2166 . )*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p6p8*p3p7)*(-fmb*fmc+fmc*hbcm
2167 . -fmc2)+16*(p7p8*p3p6)*(-2*fmb*fmc+fmc*hbcm-2*fmc2)+(p7p8*p3p6*
2168 . p2p3)*(-16*ffmcfmb-16)+(p7p8*p3p6*p1p3)*(-16*ffmcfmb-16)+16*(-
2169 . ffmcfmb*p1p3*p3p7*p6p8-ffmcfmb*p2p3*p3p7*p6p8-p1p3*p1p8*p6p7-
2170 . p1p3*p2p8*p6p7-3*p1p3*p4p6*p7p8-p1p3*p4p7*p6p8+p1p3*p4p8*p6p7-
2171 . p1p8*p2p3*p6p7-p2p3*p2p8*p6p7-3*p2p3*p4p6*p7p8-p2p3*p4p7*p6p8+
2172 . p2p3*p4p8*p6p7))+((p6p8*p3p7)*(-64*fb4*ffmcfmb+24)+(p7p8*p3p6)
2173 . *(-64*fb4*ffmcfmb-64*fb4+24)+64*(-fb4*p1p8*p6p7-fb4*p2p8*p6p7-
2174 . 3*fb4*p4p6*p7p8-fb4*p4p7*p6p8+fb4*p4p8*p6p7))
2175 ans1=w2*(8*(p6p7*p5p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p7p8*p5p6)
2176 . *(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p7p8*p3p6)*(-2*fmb*fmc-fmb*
2177 . hbcm)+(p7p8*p3p6*p3p5)*(-16*ffmcfmb-16)+16*(-ffmcfmb*p3p5*p3p7
2178 . *p6p8-fmb*fmc*p3p7*p6p8-fmb*hbcm*p1p8*p6p7-fmb*hbcm*p2p8*p6p7-
2179 . 4*fmb*hbcm*p4p6*p7p8-fmb*hbcm*p4p7*p6p8+fmb*hbcm*p4p8*p6p7-
2180 . p1p8*p3p5*p6p7-p2p8*p3p5*p6p7-3*p3p5*p4p6*p7p8-p3p5*p4p7*p6p8+
2181 . p3p5*p4p8*p6p7))+w7*(8*(p6p7*p2p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+
2182 . 16*(p6p8*p3p7)*(-fmb*fmc+fmc*hbcm-fmc2)+(p7p8*p3p6*p2p3)*(-16*
2183 . ffmcfmb-16)+16*(-ffmcfmb*p2p3*p3p7*p6p8-p1p8*p2p3*p6p7-p2p3*
2184 . p2p8*p6p7-3*p2p3*p4p6*p7p8-p2p3*p4p7*p6p8+p2p3*p4p8*p6p7))+
2185 . ans2
2186 ans=ccc*ans1
2187 b(31)=ans
2188 b(32)=ccc*(w17*(8*(p6p7*p2p3)*(fmb-fmc-hbcm)+8*(p6p7*p1p3)*(fmb
2189 . -fmc-hbcm)+16*(-3*fmc*p3p6*p3p7-3*fmc*p3p6*p5p7-3*fmc*p3p7*
2190 . p4p6+hbcm*p1p2*p6p7))+w2*(16*(p5p6*p3p7)*(fmc-hbcm)+8*(p6p7*
2191 . p3p5)*(fmb-fmc+hbcm)+8*p6p7*(-fmb*fmc*hbcm+fmb*hbcm2+fmb2*hbcm
2192 . )+16*(-fmc*p3p6*p5p7-hbcm*p4p6*p5p7-hbcm*p5p6*p5p7))+w7*(8*(
2193 . p6p7*p2p3)*(fmb+fmc-hbcm)+16*(p3p7*p3p6)*(-ffmcfmb*fmc-fmc)-48
2194 . *fmc*p3p7*p4p6)+8*p6p7*(4*fb3*fmc-4*fb3*hbcm+4*fb4*fmb-3*hbcm)
2195 . )
2196 do 200 n=1,32
2197 c(n,1)=c(n,1)-0.1818181818181818d0*b(n)
2198 c(n,2)=c(n,2)-0.05883183899358491d0*b(n)
2199 c(n,3)=c(n,3)-0.2077659977796572d0*b(n)
2200 200 continue
2201 return
2202 end
2203
2204 subroutine amp15_3p1(cc)
2205 implicit double precision(a-h,o-z)
2206 implicit integer (i-n)
2207 dimension b(32)
2208 #include "inclcon.h"
2209 #include "inclppp.h"
2210 #include "inclamp.h"
2211 do 100 n=1,32
2212 b(n)=0.0d0
2213 100 continue
2214 ccc=cc/((4*ffmcfmb*p1p3*p2p5)*(2*ffmcfmb*p2p3-2*ffmcfmb*p3p5+
2215 . fmb2-2*fmc*hbcm+fmc2+hbcm2-2*p2p3-2*p2p5+2*p3p5))
2216 b(1)=ccc*(w16*(16*(p3p6*p2p5)*(fmc+hbcm)+16*(3*hbcm*p2p5*p4p6+
2217 . hbcm*p2p5*p5p6))+16*fmc*p2p5*p3p6*w12)
2218 b(2)=ccc*(w16*(16*(p5p7*p5p6)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(
2219 . p5p7*p3p6)*(fmb*fmc+fmb*hbcm)+16*(3*fmb*hbcm*p4p6*p5p7-p2p3*
2220 . p3p6*p5p7-2*p2p3*p4p6*p5p7+p3p5*p3p6*p5p7+2*p3p5*p4p6*p5p7))+
2221 . w12*(16*(p5p7*p3p6)*(fmb*fmc+fmc2)+16*(p1p3*p3p6*p5p7+2*p1p3*
2222 . p4p6*p5p7))+64*(fb4*p3p6*p5p7+2*fb4*p4p6*p5p7))
2223 b(3)=ccc*(w12*(16*(p5p7*p3p6*p1p8)*(-fmc-hbcm)+16*(p6p8*p5p7*
2224 . p1p3)*(-fmb+fmc+hbcm)+16*(-2*fmc*p2p8*p3p6*p5p7+2*fmc*p3p6*
2225 . p5p7*p5p8-hbcm*p1p8*p4p6*p5p7))+w16*(16*(p5p8*p5p7*p3p6)*(fmc+
2226 . hbcm)+16*(p5p7*p3p6*p2p8)*(-fmc-hbcm)+16*(p6p8*p5p7*p3p5)*(-
2227 . fmb+fmc-hbcm)+16*(p6p8*p5p7*p2p3)*(fmb-fmc+hbcm)+16*(p6p8*p5p7
2228 . )*(fmb*fmc*hbcm-fmb*hbcm2-fmb2*hbcm)+16*(2*hbcm*p2p5*p5p7*p6p8
2229 . -3*hbcm*p2p8*p4p6*p5p7-2*hbcm*p2p8*p5p6*p5p7+3*hbcm*p4p6*p5p7*
2230 . p5p8+2*hbcm*p5p6*p5p7*p5p8))+8*(p6p8*p5p7)*(-8*fb3*fmc+8*fb3*
2231 . hbcm-8*fb4*fmb+hbcm))
2232 b(4)=ccc*(8*w12*(p5p7*p1p3)*(-2*fmb+2*fmc+hbcm)+w16*(8*(p5p7*
2233 . p3p5)*(-2*fmb+2*fmc-3*hbcm)+8*(p5p7*p2p3)*(2*fmb-2*fmc+3*hbcm)
2234 . +8*p5p7*(3*fmb*fmc*hbcm-2*fmb*hbcm2-3*fmb2*hbcm)+16*(-hbcm*
2235 . p1p2*p5p7+hbcm*p1p5*p5p7+3*hbcm*p2p5*p5p7))+32*p5p7*(-fb3*fmc+
2236 . fb3*hbcm-2*fb4*fmb+fb4*fmc))
2237 b(5)=ccc*(w16*(8*(p5p8*p5p7)*(-3*fmb*hbcm+3*fmc*hbcm-2*hbcm2)+8
2238 . *(p5p7*p2p8)*(3*fmb*hbcm-3*fmc*hbcm+2*hbcm2)+16*(fmb*hbcm*p1p8
2239 . *p5p7-p1p8*p2p3*p5p7+p1p8*p3p5*p5p7-2*p2p3*p2p8*p5p7+2*p2p3*
2240 . p5p7*p5p8+2*p2p8*p3p5*p5p7-2*p3p5*p5p7*p5p8))+w12*(8*(p5p7*
2241 . p1p8)*(-fmb*hbcm-fmc*hbcm)+16*(p1p3*p1p8*p5p7+2*p1p3*p2p8*p5p7
2242 . -2*p1p3*p5p7*p5p8))+64*(fb4*p1p8*p5p7+2*fb4*p2p8*p5p7-2*fb4*
2243 . p5p7*p5p8))
2244 b(6)=ccc*(w12*(8*(p5p7*p1p3)*(fmb*hbcm+fmc*hbcm+2*hbcm2)+16*(-2
2245 . *p1p3*p2p3*p5p7+2*p1p3*p3p5*p5p7-p1p3s2*p5p7))+w16*(8*(p5p7*
2246 . p3p5)*(3*fmb*hbcm-3*fmc*hbcm+2*hbcm2)+8*(p5p7*p2p3)*(-3*fmb*
2247 . hbcm+3*fmc*hbcm-2*hbcm2)+8*p5p7*(-2*fmb*fmc*hbcm2+3*fmb*hbcm3-
2248 . 2*fmb2*hbcm2+4*p2p3s2+4*p3p5s2)+16*(-fmb*hbcm*p1p3*p5p7-hbcm2*
2249 . p1p2*p5p7+hbcm2*p1p5*p5p7+2*hbcm2*p2p5*p5p7+p1p3*p2p3*p5p7-
2250 . p1p3*p3p5*p5p7-4*p2p3*p3p5*p5p7))+(32*p5p7*(fb3*fmb*hbcm+fb3*
2251 . fmc*hbcm+2*fb4*hbcm2)+64*(-fb4*p1p3*p5p7-2*fb4*p2p3*p5p7+2*fb4
2252 . *p3p5*p5p7)))
2253 b(7)=ccc*(8*w12*(-2*hbcm*p1p3*p2p8*p5p7+2*hbcm*p1p3*p5p7*p5p8+2
2254 . *hbcm*p1p8*p2p3*p5p7-2*hbcm*p1p8*p3p5*p5p7-hbcm3*p1p8*p5p7)+
2255 . w16*(8*(p5p8*p5p7)*(-2*fmb*hbcm2-2*fmc*hbcm2+3*hbcm3)+8*(p5p7*
2256 . p2p8)*(2*fmb*hbcm2+2*fmc*hbcm2-3*hbcm3)+16*(fmb*hbcm2*p1p8*
2257 . p5p7+hbcm*p1p3*p2p8*p5p7-hbcm*p1p3*p5p7*p5p8-hbcm*p1p8*p2p3*
2258 . p5p7+hbcm*p1p8*p3p5*p5p7))+64*(-fb3*hbcm*p1p8*p5p7-fb3*hbcm*
2259 . p2p8*p5p7+fb3*hbcm*p5p7*p5p8))
2260 b(8)=ccc*(16*w12*(p1p2*p1p3*p6p8-p1p3*p2p3*p6p8-p1p3*p2p4*p6p8)
2261 . +w16*(16*(p6p8*p2p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(fmb*hbcm*
2262 . p1p2*p6p8-fmb*hbcm*p2p3*p6p8-fmb*hbcm*p2p4*p6p8-p1p2*p2p3*p6p8
2263 . +p1p2*p3p5*p6p8+p2p3*p2p4*p6p8-p2p3*p3p5*p6p8+p2p3s2*p6p8-p2p4
2264 . *p3p5*p6p8))+64*(fb4*p1p2*p6p8-fb4*p2p3*p6p8-fb4*p2p4*p6p8))
2265 b(9)=ccc*(16*w16*(fmc*hbcm*p2p5*p3p6+2*hbcm2*p2p5*p4p6+hbcm2*
2266 . p2p5*p5p6+p2p3*p2p5*p3p6-p2p5*p3p5*p3p6)+16*(-4*fb4*p2p5*p3p6-
2267 . p1p3*p2p5*p3p6*w12))
2268 b(10)=ccc*(16*w12*(-hbcm*p1p3*p2p5*p6p8+hbcm*p1p8*p2p5*p3p6)+
2269 . w16*(16*(p6p8*p2p5)*(fmc*hbcm2-hbcm3)+16*(hbcm*p2p3*p2p5*p6p8-
2270 . hbcm*p2p5*p2p8*p3p6-hbcm*p2p5*p3p5*p6p8+hbcm*p2p5*p3p6*p5p8))-
2271 . 64*fb3*hbcm*p2p5*p6p8)
2272 b(11)=ccc*(16*w12*(fmb*p1p3*p3p6*p5p7-fmc*hbcm2*p3p6*p5p7+2*fmc
2273 . *p2p3*p3p6*p5p7-2*fmc*p3p5*p3p6*p5p7+hbcm*p1p3*p4p6*p5p7)+w16*
2274 . (16*(p5p7*p3p6*p3p5)*(fmb-2*fmc)+16*(p5p7*p3p6*p2p3)*(-fmb+2*
2275 . fmc)+16*(p5p7*p5p6)*(-fmb*hbcm2+fmc*hbcm2-hbcm3)+16*(p5p7*p3p6
2276 . )*(-fmb*fmc*hbcm+fmb2*hbcm)+16*(-2*fmb*hbcm2*p4p6*p5p7+3*hbcm*
2277 . p2p3*p4p6*p5p7+2*hbcm*p2p3*p5p6*p5p7-2*hbcm*p2p5*p3p6*p5p7-3*
2278 . hbcm*p3p5*p4p6*p5p7-2*hbcm*p3p5*p5p6*p5p7))+(8*(p5p7*p3p6)*(8*
2279 . fb4*fmb-hbcm)+64*fb3*hbcm*p4p6*p5p7))
2280 ans2=(16*(p6p8*p5p7)*(-4*fb3*fmb*hbcm+4*fb4*fmc*hbcm-4*fb4*
2281 . hbcm2-hbcm2)+128*(fb4*p2p3*p3p7*p6p8+fb4*p2p3*p4p7*p6p8+2*fb4*
2282 . p2p3*p5p7*p6p8+fb4*p2p5*p3p6*p7p8-fb4*p2p5*p3p7*p6p8-fb4*p2p8*
2283 . p3p6*p5p7-fb4*p3p5*p5p7*p6p8+fb4*p3p6*p5p7*p5p8))
2284 ans1=w12*(16*(p5p7*p3p6*p1p8)*(fmb*hbcm+fmc*hbcm)+16*(p6p8*p5p7
2285 . *p1p3)*(-fmb*hbcm-fmc*hbcm-hbcm2)+32*(p1p3*p2p3*p3p7*p6p8+p1p3
2286 . *p2p3*p4p7*p6p8+2*p1p3*p2p3*p5p7*p6p8+p1p3*p2p5*p3p6*p7p8-p1p3
2287 . *p2p5*p3p7*p6p8-p1p3*p2p8*p3p6*p5p7-p1p3*p3p5*p5p7*p6p8+p1p3*
2288 . p3p6*p5p7*p5p8))+w16*(32*(p6p8*p3p7*p2p5)*(fmc*hbcm-hbcm2)+16*
2289 . (p5p8*p5p7*p3p6)*(fmb*hbcm-fmc*hbcm)+16*(p6p8*p5p7*p3p5)*(-fmb
2290 . *hbcm+fmc*hbcm-hbcm2)+16*(p5p7*p3p6*p2p8)*(-fmb*hbcm+fmc*hbcm)
2291 . +16*(p6p8*p5p7*p2p3)*(3*fmb*hbcm-fmc*hbcm+hbcm2)+16*(p6p8*p5p7
2292 . )*(fmb*fmc*hbcm2-fmb*hbcm3+fmb2*hbcm2-4*p2p3s2-2*p3p5s2)+32*(
2293 . fmb*hbcm*p2p3*p3p7*p6p8+fmb*hbcm*p2p3*p4p7*p6p8-fmc*hbcm*p2p5*
2294 . p3p6*p7p8-2*hbcm2*p2p5*p4p6*p7p8-hbcm2*p2p5*p5p6*p7p8-hbcm2*
2295 . p2p5*p5p7*p6p8+hbcm2*p2p8*p4p6*p5p7+hbcm2*p2p8*p5p6*p5p7-hbcm2
2296 . *p4p6*p5p7*p5p8-hbcm2*p5p6*p5p7*p5p8-p2p3*p2p5*p3p6*p7p8+p2p3*
2297 . p2p5*p3p7*p6p8+p2p3*p2p8*p3p6*p5p7+p2p3*p3p5*p3p7*p6p8+p2p3*
2298 . p3p5*p4p7*p6p8+3*p2p3*p3p5*p5p7*p6p8-p2p3*p3p6*p5p7*p5p8-
2299 . p2p3s2*p3p7*p6p8-p2p3s2*p4p7*p6p8+p2p5*p3p5*p3p6*p7p8-p2p5*
2300 . p3p5*p3p7*p6p8-p2p8*p3p5*p3p6*p5p7+p3p5*p3p6*p5p7*p5p8))+ans2
2301 ans=ccc*ans1
2302 b(12)=ans
2303 b(13)=ccc*(8*w16*(2*hbcm*p1p8*p2p5+3*hbcm*p2p5*p2p8-3*hbcm*p2p5
2304 . *p5p8)-8*hbcm*p1p8*p2p5*w12)
2305 b(14)=ccc*(w16*(8*p2p5*(3*fmc*hbcm-2*hbcm2)+16*(p2p3*p2p5-p2p5*
2306 . p3p5))+16*(-4*fb4*p2p5-p1p3*p2p5*w12))
2307 b(15)=16*ccc*w16*(hbcm2*p1p8*p2p5+hbcm2*p2p5*p2p8-hbcm2*p2p5*
2308 . p5p8)
2309 b(16)=ccc*(w16*(8*p2p5*(-2*fmc*hbcm2+3*hbcm3)+8*(-2*hbcm*p1p3*
2310 . p2p5-3*hbcm*p2p3*p2p5+3*hbcm*p2p5*p3p5))+8*(4*fb3*hbcm*p2p5+
2311 . hbcm*p1p3*p2p5*w12))
2312 b(17)=ccc*(w12*(8*(p3p6*p1p8)*(fmc+hbcm)+8*(p6p8*p1p3)*(fmb-fmc
2313 . -hbcm)+8*(2*fmc*p2p8*p3p6-2*fmc*p3p6*p5p8+hbcm*p1p8*p4p6))+w16
2314 . *(8*(p5p8*p3p6)*(-fmc-hbcm)+8*(p3p6*p2p8)*(fmc+hbcm)+8*(p6p8*
2315 . p3p5)*(fmb-fmc+hbcm)+8*(p6p8*p2p3)*(-fmb+fmc-hbcm)+8*p6p8*(-
2316 . fmb*fmc*hbcm+fmb*hbcm2+fmb2*hbcm)+8*(-2*hbcm*p2p5*p6p8+3*hbcm*
2317 . p2p8*p4p6+2*hbcm*p2p8*p5p6-3*hbcm*p4p6*p5p8-2*hbcm*p5p6*p5p8))
2318 . +4*p6p8*(8*fb3*fmc-8*fb3*hbcm+8*fb4*fmb-hbcm))
2319 b(18)=ccc*(w16*(8*p5p6*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*p3p6*(-fmb*
2320 . fmc-fmb*hbcm)+8*(-3*fmb*hbcm*p4p6+p2p3*p3p6+2*p2p3*p4p6-p3p5*
2321 . p3p6-2*p3p5*p4p6))+w12*(8*p3p6*(-fmb*fmc-fmc2)+8*(-p1p3*p3p6-2
2322 . *p1p3*p4p6))+32*(-fb4*p3p6-2*fb4*p4p6))
2323 b(19)=ccc*(4*w12*(2*hbcm*p1p3*p2p8-2*hbcm*p1p3*p5p8-2*hbcm*p1p8
2324 . *p2p3+2*hbcm*p1p8*p3p5+hbcm3*p1p8)+w16*(4*p5p8*(2*fmb*hbcm2+2*
2325 . fmc*hbcm2-3*hbcm3)+4*p2p8*(-2*fmb*hbcm2-2*fmc*hbcm2+3*hbcm3)+8
2326 . *(-fmb*hbcm2*p1p8-hbcm*p1p3*p2p8+hbcm*p1p3*p5p8+hbcm*p1p8*p2p3
2327 . -hbcm*p1p8*p3p5))+32*(fb3*hbcm*p1p8+fb3*hbcm*p2p8-fb3*hbcm*
2328 . p5p8))
2329 b(20)=ccc*(w16*(4*p5p8*(3*fmb*hbcm-3*fmc*hbcm+2*hbcm2)+4*p2p8*(
2330 . -3*fmb*hbcm+3*fmc*hbcm-2*hbcm2)+8*(-fmb*hbcm*p1p8+p1p8*p2p3-
2331 . p1p8*p3p5+2*p2p3*p2p8-2*p2p3*p5p8-2*p2p8*p3p5+2*p3p5*p5p8))+
2332 . w12*(4*p1p8*(fmb*hbcm+fmc*hbcm)+8*(-p1p3*p1p8-2*p1p3*p2p8+2*
2333 . p1p3*p5p8))+32*(-fb4*p1p8-2*fb4*p2p8+2*fb4*p5p8))
2334 b(22)=ccc*(4*w12*p1p3*(2*fmb-2*fmc-hbcm)+w16*(4*p3p5*(2*fmb-2*
2335 . fmc+3*hbcm)+4*p2p3*(-2*fmb+2*fmc-3*hbcm)+4*(-3*fmb*fmc*hbcm+2*
2336 . fmb*hbcm2+3*fmb2*hbcm+2*hbcm*p1p2-2*hbcm*p1p5-6*hbcm*p2p5))+16
2337 . *(fb3*fmc-fb3*hbcm+2*fb4*fmb-fb4*fmc))
2338 b(24)=ccc*(w12*(4*p1p3*(-fmb*hbcm-fmc*hbcm-2*hbcm2)+8*(2*p1p3*
2339 . p2p3-2*p1p3*p3p5+p1p3s2))+w16*(4*p3p5*(-3*fmb*hbcm+3*fmc*hbcm-
2340 . 2*hbcm2)+4*p2p3*(3*fmb*hbcm-3*fmc*hbcm+2*hbcm2)+4*(2*fmb*fmc*
2341 . hbcm2+2*fmb*hbcm*p1p3-3*fmb*hbcm3+2*fmb2*hbcm2+2*hbcm2*p1p2-2*
2342 . hbcm2*p1p5-4*hbcm2*p2p5-2*p1p3*p2p3+2*p1p3*p3p5+8*p2p3*p3p5-4*
2343 . p2p3s2-4*p3p5s2))+16*(-fb3*fmb*hbcm-fb3*fmc*hbcm-2*fb4*hbcm2+2
2344 . *fb4*p1p3+4*fb4*p2p3-4*fb4*p3p5))
2345 b(26)=ccc*(8*w12*(-fmb*p1p3*p3p6+fmc*hbcm2*p3p6-2*fmc*p2p3*p3p6
2346 . +2*fmc*p3p5*p3p6-hbcm*p1p3*p4p6)+w16*(8*(p3p6*p3p5)*(-fmb+2*
2347 . fmc)+8*(p3p6*p2p3)*(fmb-2*fmc)+8*p5p6*(fmb*hbcm2-fmc*hbcm2+
2348 . hbcm3)+8*p3p6*(fmb*fmc*hbcm-fmb2*hbcm)+8*(2*fmb*hbcm2*p4p6-3*
2349 . hbcm*p2p3*p4p6-2*hbcm*p2p3*p5p6+2*hbcm*p2p5*p3p6+3*hbcm*p3p5*
2350 . p4p6+2*hbcm*p3p5*p5p6))+(4*p3p6*(-8*fb4*fmb+hbcm)-32*fb3*hbcm*
2351 . p4p6))
2352 ans=ccc*(w12*(8*(p3p6*p1p8)*(-fmb*hbcm-fmc*hbcm)+8*(p6p8*p1p3)*
2353 . (fmb*hbcm+fmc*hbcm-hbcm2)+16*(p1p3*p2p8*p3p6-p1p3*p3p4*p6p8-
2354 . p1p3*p3p6*p5p8+p1p3s2*p6p8))+w16*(8*(p5p8*p3p6)*(-fmb*hbcm+fmc
2355 . *hbcm)+8*(p6p8*p3p5)*(-fmb*hbcm-fmc*hbcm-hbcm2)+8*(p3p6*p2p8)*
2356 . (fmb*hbcm-fmc*hbcm)+8*(p6p8*p2p3)*(fmb*hbcm+fmc*hbcm+hbcm2)+8*
2357 . p6p8*(-fmb*fmc*hbcm2-fmb*hbcm3-fmb2*hbcm2)+16*(fmb*hbcm*p1p3*
2358 . p6p8-fmb*hbcm*p3p4*p6p8+hbcm2*p2p5*p6p8-hbcm2*p2p8*p4p6-hbcm2*
2359 . p2p8*p5p6+hbcm2*p4p6*p5p8+hbcm2*p5p6*p5p8-p1p3*p2p3*p6p8+p1p3*
2360 . p3p5*p6p8-p2p3*p2p8*p3p6+p2p3*p3p4*p6p8+p2p3*p3p6*p5p8+p2p8*
2361 . p3p5*p3p6-p3p4*p3p5*p6p8-p3p5*p3p6*p5p8))+(8*p6p8*(4*fb3*fmb*
2362 . hbcm-4*fb4*fmc*hbcm-4*fb4*hbcm2+hbcm2)+64*(fb4*p1p3*p6p8+fb4*
2363 . p2p8*p3p6-fb4*p3p4*p6p8-fb4*p3p6*p5p8)))
2364 b(28)=ans
2365 b(31)=ccc*(16*w12*(-p1p3*p3p7*p6p8-p1p3*p4p7*p6p8-p1p3*p5p7*
2366 . p6p8)+16*w16*(-fmb*hbcm*p3p7*p6p8-fmb*hbcm*p4p7*p6p8-fmb*hbcm*
2367 . p5p7*p6p8+p2p3*p3p7*p6p8+p2p3*p4p7*p6p8+p2p3*p5p7*p6p8-p3p5*
2368 . p3p7*p6p8-p3p5*p4p7*p6p8-p3p5*p5p7*p6p8)+64*(-fb4*p3p7*p6p8-
2369 . fb4*p4p7*p6p8-fb4*p5p7*p6p8))
2370 do 200 n=1,32
2371 c(n,2)=c(n,2)+0.09245003270420485d0*b(n)
2372 c(n,3)=c(n,3)-0.02077659977796572d0*b(n)
2373 200 continue
2374 return
2375 end
2376
2377 subroutine amp14_3p1(cc)
2378 implicit double precision(a-h,o-z)
2379 implicit integer (i-n)
2380 dimension b(32)
2381 #include "inclcon.h"
2382 #include "inclppp.h"
2383 #include "inclamp.h"
2384 do 100 n=1,32
2385 b(n)=0.0d0
2386 100 continue
2387 ccc=cc/((-2*p2p5)*(2*ffmcfmb*p3p4+2*fmc2)*(2*ffmcfmb*p1p3-fmb2-
2388 . 2*fmc*hbcm+fmc2+hbcm2-2*p1p3))
2389 b(1)=ccc*(16*w13*(p3p6*p2p5)*(-fmc+hbcm)+16*hbcm*p2p5*p4p6*w1)
2390 b(2)=ccc*(w1*(16*(p5p7*p3p6)*(-fmc*hbcm-fmc2)+16*(-3*fmc*hbcm*
2391 . p4p6*p5p7-p3p4*p3p6*p5p7-2*p3p4*p4p6*p5p7))+w13*(32*(p5p7*p4p6
2392 . )*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p5p7*p3p6)*(-fmb*fmc-fmc2+
2393 . hbcm2)+16*(-p1p3*p3p6*p5p7-2*p1p3*p4p6*p5p7))+64*(fb4*p3p6*
2394 . p5p7+2*fb4*p4p6*p5p7))
2395 b(3)=ccc*(w13*(32*(p5p8*p5p7*p3p6)*(-fmc+hbcm)+32*(p5p7*p3p6*
2396 . p2p8)*(fmc-hbcm)+16*(p5p7*p3p6*p1p8)*(fmc-hbcm)+16*(p6p8*p5p7*
2397 . p1p3)*(fmb-fmc)+16*(p6p8*p5p7)*(-fmb*hbcm2+fmb2*hbcm+fmc*hbcm2
2398 . -fmc2*hbcm)-16*hbcm*p1p8*p4p6*p5p7)+w1*(16*(p5p7*p4p8*p3p6)*(
2399 . fmc+hbcm)+16*(p6p8*p5p7*p3p4)*(fmb-fmc-2*hbcm)+16*(p6p8*p5p7)*
2400 . (fmb*fmc*hbcm-3*fmc2*hbcm)+16*(2*hbcm*p1p4*p5p7*p6p8-2*hbcm*
2401 . p1p8*p4p6*p5p7-2*hbcm*p2p8*p4p6*p5p7+3*hbcm*p4p6*p4p8*p5p7+2*
2402 . hbcm*p4p6*p5p7*p5p8))+8*(p6p8*p5p7)*(-8*fb4*fmb+8*fb4*fmc-hbcm
2403 . ))
2404 b(4)=ccc*(w13*(8*(p5p7*p1p3)*(fmb-3*fmc+2*hbcm)+8*p5p7*(-fmb*
2405 . hbcm2+2*fmb2*hbcm+3*fmc*hbcm2-2*fmc2*hbcm-hbcm3))+w1*(8*(p5p7*
2406 . p3p4)*(fmb-3*fmc-2*hbcm)+8*p5p7*(fmb*fmc*hbcm-5*fmc2*hbcm)+16*
2407 . hbcm*p1p4*p5p7)+32*p5p7*(fb3*fmc-fb4*fmb+2*fb4*fmc))
2408 b(5)=ccc*(w1*(8*(p5p7*p4p8)*(fmb*hbcm+fmc*hbcm)+16*(-2*fmc*hbcm
2409 . *p1p8*p5p7-3*fmc*hbcm*p2p8*p5p7+3*fmc*hbcm*p5p7*p5p8-p1p8*p3p4
2410 . *p5p7-2*p2p8*p3p4*p5p7+2*p3p4*p5p7*p5p8))+w13*(32*(p5p8*p5p7)*
2411 . (fmb*hbcm+fmc*hbcm-hbcm2)+32*(p5p7*p2p8)*(-fmb*hbcm-fmc*hbcm+
2412 . hbcm2)+8*(p5p7*p1p8)*(-3*fmb*hbcm-3*fmc*hbcm+2*hbcm2)+16*(-
2413 . p1p3*p1p8*p5p7-2*p1p3*p2p8*p5p7+2*p1p3*p5p7*p5p8))+64*(fb4*
2414 . p1p8*p5p7+2*fb4*p2p8*p5p7-2*fb4*p5p7*p5p8))
2415 b(6)=ccc*(w13*(32*(p5p7*p3p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(
2416 . p5p7*p2p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p5p7*p1p3)*(3*fmb*hbcm
2417 . +3*fmc*hbcm-4*hbcm2)+8*p5p7*(2*fmb*fmc*hbcm2-3*fmb*hbcm3+fmb2*
2418 . hbcm2-3*fmc*hbcm3+fmc2*hbcm2+2*hbcm4+2*p1p3s2)+32*(p1p3*p2p3*
2419 . p5p7-p1p3*p3p5*p5p7))+w1*(8*(p5p7*p3p4)*(-fmb*hbcm-fmc*hbcm-4*
2420 . hbcm2)+8*p5p7*(-fmb*fmc*hbcm2-4*fmc*hbcm3-fmc2*hbcm2)+16*(2*
2421 . fmc*hbcm*p1p3*p5p7+3*fmc*hbcm*p2p3*p5p7-3*fmc*hbcm*p3p5*p5p7+
2422 . hbcm2*p1p4*p5p7+p1p3*p3p4*p5p7+2*p2p3*p3p4*p5p7-2*p3p4*p3p5*
2423 . p5p7))+(32*p5p7*(fb3*fmb*hbcm+fb3*fmc*hbcm+2*fb4*hbcm2)+64*(-
2424 . fb4*p1p3*p5p7-2*fb4*p2p3*p5p7+2*fb4*p3p5*p5p7)))
2425 b(7)=ccc*(w1*(8*(p5p7*p4p8)*(fmb*hbcm2-3*fmc*hbcm2+4*hbcm3)+16*
2426 . (fmc*hbcm2*p1p8*p5p7+2*fmc*hbcm2*p2p8*p5p7-2*fmc*hbcm2*p5p7*
2427 . p5p8-2*hbcm*p1p3*p4p8*p5p7+2*hbcm*p1p8*p3p4*p5p7-3*hbcm*p2p3*
2428 . p4p8*p5p7+3*hbcm*p2p8*p3p4*p5p7-3*hbcm*p3p4*p5p7*p5p8+3*hbcm*
2429 . p3p5*p4p8*p5p7))+w13*(16*(p5p8*p5p7)*(fmb*hbcm2+fmc*hbcm2-
2430 . hbcm3)+16*(p5p7*p2p8)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+8*(p5p7*
2431 . p1p8)*(-fmb*hbcm2-fmc*hbcm2)+16*(-hbcm*p1p3*p2p8*p5p7+hbcm*
2432 . p1p3*p5p7*p5p8+hbcm*p1p8*p2p3*p5p7-hbcm*p1p8*p3p5*p5p7))+64*(-
2433 . fb3*hbcm*p2p8*p5p7+fb3*hbcm*p5p7*p5p8))
2434 b(8)=ccc*(16*w1*(-2*fmc*hbcm*p1p2*p6p8+2*fmc*hbcm*p2p3*p6p8+2*
2435 . fmc*hbcm*p2p4*p6p8-p1p2*p3p4*p6p8+p2p3*p3p4*p6p8+p2p4*p3p4*
2436 . p6p8)+w13*(16*(p6p8*p2p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p8*
2437 . p2p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p8*p1p2)*(-fmb*hbcm-fmc*
2438 . hbcm+hbcm2)+16*(-p1p2*p1p3*p6p8+p1p3*p2p3*p6p8+p1p3*p2p4*p6p8)
2439 . )+64*(fb4*p1p2*p6p8-fb4*p2p3*p6p8-fb4*p2p4*p6p8))
2440 b(9)=ccc*(16*w1*(2*fmc*hbcm*p2p5*p3p6+hbcm2*p2p5*p4p6+p2p5*p3p4
2441 . *p3p6)+w13*(16*(p3p6*p2p5)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*p1p3*
2442 . p2p5*p3p6)-64*fb4*p2p5*p3p6)
2443 b(10)=16*ccc*w1*(fmc*hbcm2*p2p5*p6p8+2*hbcm*p2p5*p3p4*p6p8-2*
2444 . hbcm*p2p5*p3p6*p4p8)
2445 b(11)=ccc*(w13*(32*(p5p7*p3p6*p3p5)*(fmc-hbcm)+32*(p5p7*p3p6*
2446 . p2p3)*(-fmc+hbcm)+16*(p5p7*p3p6*p1p3)*(-fmb+hbcm)+16*(p5p7*
2447 . p4p6)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+16*(p5p7*p3p6)*(fmb*hbcm2-
2448 . fmb2*hbcm+fmc2*hbcm-hbcm3)+16*hbcm*p1p3*p4p6*p5p7)+w1*(16*(
2449 . p5p7*p3p6*p3p4)*(-fmb+hbcm)+16*(p5p7*p3p6)*(-fmb*fmc*hbcm-fmc*
2450 . hbcm2+3*fmc2*hbcm)+16*(2*hbcm*p1p3*p4p6*p5p7-2*hbcm*p1p4*p3p6*
2451 . p5p7+2*hbcm*p2p3*p4p6*p5p7-3*hbcm*p3p4*p4p6*p5p7-2*hbcm*p3p5*
2452 . p4p6*p5p7-2*hbcm3*p4p6*p5p7))+(8*(p5p7*p3p6)*(-8*fb3*fmc+8*fb3
2453 . *hbcm+8*fb4*fmb-8*fb4*fmc+hbcm)+64*fb3*hbcm*p4p6*p5p7))
2454 ans2=w1*(16*(p5p7*p4p8*p3p6)*(-fmb*hbcm-fmc*hbcm-hbcm2)+16*(
2455 . p6p8*p5p7*p3p4)*(fmb*hbcm+fmc*hbcm+2*hbcm2)+16*(p6p8*p5p7)*(
2456 . fmb*fmc*hbcm2+2*fmc*hbcm3+fmc2*hbcm2)+32*(-fmc*hbcm*p1p3*p5p7*
2457 . p6p8+fmc*hbcm*p1p8*p3p6*p5p7-2*fmc*hbcm*p2p3*p3p7*p6p8-2*fmc*
2458 . hbcm*p2p3*p4p7*p6p8-4*fmc*hbcm*p2p3*p5p7*p6p8-2*fmc*hbcm*p2p5*
2459 . p3p6*p7p8+2*fmc*hbcm*p2p5*p3p7*p6p8+2*fmc*hbcm*p2p8*p3p6*p5p7+
2460 . 2*fmc*hbcm*p3p5*p5p7*p6p8-2*fmc*hbcm*p3p6*p5p7*p5p8-hbcm2*p1p4
2461 . *p5p7*p6p8+hbcm2*p1p8*p4p6*p5p7-hbcm2*p2p5*p4p6*p7p8+hbcm2*
2462 . p2p8*p4p6*p5p7-hbcm2*p4p6*p4p8*p5p7-hbcm2*p4p6*p5p7*p5p8-p2p3*
2463 . p3p4*p3p7*p6p8-p2p3*p3p4*p4p7*p6p8-2*p2p3*p3p4*p5p7*p6p8-p2p5*
2464 . p3p4*p3p6*p7p8+p2p5*p3p4*p3p7*p6p8+p2p8*p3p4*p3p6*p5p7+p3p4*
2465 . p3p5*p5p7*p6p8-p3p4*p3p6*p5p7*p5p8))+(16*(p6p8*p5p7)*(-4*fb3*
2466 . fmb*hbcm-4*fb4*fmc*hbcm+hbcm2)+128*(fb4*p2p3*p3p7*p6p8+fb4*
2467 . p2p3*p4p7*p6p8+2*fb4*p2p3*p5p7*p6p8+fb4*p2p5*p3p6*p7p8-fb4*
2468 . p2p5*p3p7*p6p8-fb4*p2p8*p3p6*p5p7-fb4*p3p5*p5p7*p6p8+fb4*p3p6*
2469 . p5p7*p5p8))
2470 ans1=w13*(16*(p6p8*p5p7)*(fmb*hbcm3+fmc*hbcm3-hbcm4)+32*(p5p8*
2471 . p5p7*p3p6)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p6p8*p5p7*p3p5)*(fmb
2472 . *hbcm+fmc*hbcm-hbcm2)+32*(p5p7*p3p6*p2p8)*(fmb*hbcm+fmc*hbcm-
2473 . hbcm2)+32*(p6p8*p3p7*p2p5)*(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p7p8*
2474 . p3p6*p2p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)+64*(p6p8*p5p7*p2p3)*(-
2475 . fmb*hbcm-fmc*hbcm+hbcm2)+32*(p6p8*p4p7*p2p3)*(-fmb*hbcm-fmc*
2476 . hbcm+hbcm2)+32*(p6p8*p3p7*p2p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*
2477 . (p5p7*p3p6*p1p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p8*p5p7*p1p3)
2478 . *(-fmb*hbcm-fmc*hbcm+2*hbcm2)+32*(-p1p3*p2p3*p3p7*p6p8-p1p3*
2479 . p2p3*p4p7*p6p8-2*p1p3*p2p3*p5p7*p6p8-p1p3*p2p5*p3p6*p7p8+p1p3*
2480 . p2p5*p3p7*p6p8+p1p3*p2p8*p3p6*p5p7+p1p3*p3p5*p5p7*p6p8-p1p3*
2481 . p3p6*p5p7*p5p8))+ans2
2482 ans=ccc*ans1
2483 b(12)=ans
2484 b(13)=8*ccc*(-hbcm*p1p8*p2p5*w13+3*hbcm*p2p5*p4p8*w1)
2485 b(14)=ccc*(8*w1*(3*fmc*hbcm*p2p5+2*p2p5*p3p4)+w13*(16*p2p5*(fmb
2486 . *hbcm+fmc*hbcm-hbcm2)+16*p1p3*p2p5)-64*fb4*p2p5)
2487 b(15)=16*ccc*hbcm2*p2p5*p4p8*w1
2488 b(16)=ccc*(8*w1*(-2*fmc*hbcm2*p2p5-3*hbcm*p2p5*p3p4)+w13*(8*
2489 . p2p5*(fmb*hbcm2+fmc*hbcm2-hbcm3)+8*hbcm*p1p3*p2p5)+32*fb3*hbcm
2490 . *p2p5)
2491 b(17)=ccc*(w13*(16*(p5p8*p3p6)*(fmc-hbcm)+16*(p3p6*p2p8)*(-fmc+
2492 . hbcm)+8*(p3p6*p1p8)*(-fmc+hbcm)+8*(p6p8*p1p3)*(-fmb+fmc)+8*
2493 . p6p8*(fmb*hbcm2-fmb2*hbcm-fmc*hbcm2+fmc2*hbcm)+8*hbcm*p1p8*
2494 . p4p6)+w1*(8*(p4p8*p3p6)*(-fmc-hbcm)+8*(p6p8*p3p4)*(-fmb+fmc+2*
2495 . hbcm)+8*p6p8*(-fmb*fmc*hbcm+3*fmc2*hbcm)+8*(-2*hbcm*p1p4*p6p8+
2496 . 2*hbcm*p1p8*p4p6+2*hbcm*p2p8*p4p6-3*hbcm*p4p6*p4p8-2*hbcm*p4p6
2497 . *p5p8))+4*p6p8*(8*fb4*fmb-8*fb4*fmc+hbcm))
2498 b(18)=ccc*(w1*(8*p3p6*(fmc*hbcm+fmc2)+8*(3*fmc*hbcm*p4p6+p3p4*
2499 . p3p6+2*p3p4*p4p6))+w13*(16*p4p6*(fmb*hbcm+fmc*hbcm-hbcm2)+8*
2500 . p3p6*(fmb*fmc+fmc2-hbcm2)+8*(p1p3*p3p6+2*p1p3*p4p6))+32*(-fb4*
2501 . p3p6-2*fb4*p4p6))
2502 b(19)=ccc*(w1*(4*p4p8*(-fmb*hbcm2+3*fmc*hbcm2-4*hbcm3)+8*(-fmc*
2503 . hbcm2*p1p8-2*fmc*hbcm2*p2p8+2*fmc*hbcm2*p5p8+2*hbcm*p1p3*p4p8-
2504 . 2*hbcm*p1p8*p3p4+3*hbcm*p2p3*p4p8-3*hbcm*p2p8*p3p4+3*hbcm*p3p4
2505 . *p5p8-3*hbcm*p3p5*p4p8))+w13*(8*p5p8*(-fmb*hbcm2-fmc*hbcm2+
2506 . hbcm3)+8*p2p8*(fmb*hbcm2+fmc*hbcm2-hbcm3)+4*p1p8*(fmb*hbcm2+
2507 . fmc*hbcm2)+8*(hbcm*p1p3*p2p8-hbcm*p1p3*p5p8-hbcm*p1p8*p2p3+
2508 . hbcm*p1p8*p3p5))+32*(fb3*hbcm*p2p8-fb3*hbcm*p5p8))
2509 b(20)=ccc*(w1*(4*p4p8*(-fmb*hbcm-fmc*hbcm)+8*(2*fmc*hbcm*p1p8+3
2510 . *fmc*hbcm*p2p8-3*fmc*hbcm*p5p8+p1p8*p3p4+2*p2p8*p3p4-2*p3p4*
2511 . p5p8))+w13*(16*p5p8*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*p2p8*(fmb*
2512 . hbcm+fmc*hbcm-hbcm2)+4*p1p8*(3*fmb*hbcm+3*fmc*hbcm-2*hbcm2)+8*
2513 . (p1p3*p1p8+2*p1p3*p2p8-2*p1p3*p5p8))+32*(-fb4*p1p8-2*fb4*p2p8+
2514 . 2*fb4*p5p8))
2515 b(22)=ccc*(w13*(4*p1p3*(-fmb+3*fmc-2*hbcm)+4*(fmb*hbcm2-2*fmb2*
2516 . hbcm-3*fmc*hbcm2+2*fmc2*hbcm+hbcm3))+w1*(4*p3p4*(-fmb+3*fmc+2*
2517 . hbcm)+4*(-fmb*fmc*hbcm+5*fmc2*hbcm-2*hbcm*p1p4))+16*(-fb3*fmc+
2518 . fb4*fmb-2*fb4*fmc))
2519 b(24)=ccc*(w13*(16*p3p5*(fmb*hbcm+fmc*hbcm-hbcm2)+16*p2p3*(-fmb
2520 . *hbcm-fmc*hbcm+hbcm2)+4*p1p3*(-3*fmb*hbcm-3*fmc*hbcm+4*hbcm2)+
2521 . 4*(-2*fmb*fmc*hbcm2+3*fmb*hbcm3-fmb2*hbcm2+3*fmc*hbcm3-fmc2*
2522 . hbcm2-2*hbcm4-4*p1p3*p2p3+4*p1p3*p3p5-2*p1p3s2))+w1*(4*p3p4*(
2523 . fmb*hbcm+fmc*hbcm+4*hbcm2)+4*(fmb*fmc*hbcm2-4*fmc*hbcm*p1p3-6*
2524 . fmc*hbcm*p2p3+6*fmc*hbcm*p3p5+4*fmc*hbcm3+fmc2*hbcm2-2*hbcm2*
2525 . p1p4-2*p1p3*p3p4-4*p2p3*p3p4+4*p3p4*p3p5))+16*(-fb3*fmb*hbcm-
2526 . fb3*fmc*hbcm-2*fb4*hbcm2+2*fb4*p1p3+4*fb4*p2p3-4*fb4*p3p5))
2527 b(26)=ccc*(w13*(16*(p3p6*p3p5)*(-fmc+hbcm)+16*(p3p6*p2p3)*(fmc-
2528 . hbcm)+8*(p3p6*p1p3)*(fmb-hbcm)+8*p4p6*(-fmb*hbcm2-fmc*hbcm2+
2529 . hbcm3)+8*p3p6*(-fmb*hbcm2+fmb2*hbcm-fmc2*hbcm+hbcm3)-8*hbcm*
2530 . p1p3*p4p6)+w1*(8*(p3p6*p3p4)*(fmb-hbcm)+8*p3p6*(fmb*fmc*hbcm+
2531 . fmc*hbcm2-3*fmc2*hbcm)+8*(-2*hbcm*p1p3*p4p6+2*hbcm*p1p4*p3p6-2
2532 . *hbcm*p2p3*p4p6+3*hbcm*p3p4*p4p6+2*hbcm*p3p5*p4p6+2*hbcm3*p4p6
2533 . ))+(4*p3p6*(8*fb3*fmc-8*fb3*hbcm-8*fb4*fmb+8*fb4*fmc-hbcm)-32*
2534 . fb3*hbcm*p4p6))
2535 ans=ccc*(w13*(8*p6p8*(fmb*hbcm3+fmc*hbcm3-hbcm4-2*p1p3s2)+16*(
2536 . p5p8*p3p6)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p8*p3p4)*(fmb*hbcm+
2537 . fmc*hbcm-hbcm2)+16*(p3p6*p2p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(
2538 . p3p6*p1p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p6p8*p1p3)*(-fmb*hbcm
2539 . -fmc*hbcm+2*hbcm2)+16*(-p1p3*p2p8*p3p6+p1p3*p3p4*p6p8+p1p3*
2540 . p3p6*p5p8))+w1*(8*(p4p8*p3p6)*(fmb*hbcm+fmc*hbcm+hbcm2)+8*(
2541 . p6p8*p3p4)*(-fmb*hbcm+3*fmc*hbcm)+8*p6p8*(-fmb*fmc*hbcm2+2*fmc
2542 . *hbcm3-fmc2*hbcm2+2*p3p4s2)+16*(-fmc*hbcm*p1p3*p6p8-fmc*hbcm*
2543 . p1p8*p3p6-2*fmc*hbcm*p2p8*p3p6+2*fmc*hbcm*p3p6*p5p8+hbcm2*p1p4
2544 . *p6p8-hbcm2*p1p8*p4p6-hbcm2*p2p8*p4p6+hbcm2*p4p6*p4p8+hbcm2*
2545 . p4p6*p5p8-p1p3*p3p4*p6p8-p2p8*p3p4*p3p6+p3p4*p3p6*p5p8))+(8*
2546 . p6p8*(4*fb3*fmb*hbcm+4*fb4*fmc*hbcm-8*fb4*hbcm2-hbcm2)+64*(fb4
2547 . *p1p3*p6p8+fb4*p2p8*p3p6-fb4*p3p4*p6p8-fb4*p3p6*p5p8)))
2548 b(28)=ans
2549 b(31)=ccc*(16*w1*(2*fmc*hbcm*p3p7*p6p8+2*fmc*hbcm*p4p7*p6p8+2*
2550 . fmc*hbcm*p5p7*p6p8+p3p4*p3p7*p6p8+p3p4*p4p7*p6p8+p3p4*p5p7*
2551 . p6p8)+w13*(16*(p6p8*p5p7)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p8*
2552 . p4p7)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p8*p3p7)*(fmb*hbcm+fmc*
2553 . hbcm-hbcm2)+16*(p1p3*p3p7*p6p8+p1p3*p4p7*p6p8+p1p3*p5p7*p6p8))
2554 . +64*(-fb4*p3p7*p6p8-fb4*p4p7*p6p8-fb4*p5p7*p6p8))
2555 do 200 n=1,32
2556 c(n,2)=c(n,2)+0.09245003270420485d0*b(n)
2557 c(n,3)=c(n,3)-0.02077659977796572d0*b(n)
2558 200 continue
2559 return
2560 end
2561
2562 subroutine amp13_3p1(cc)
2563 implicit double precision(a-h,o-z)
2564 implicit integer (i-n)
2565 dimension b(32)
2566 #include "inclcon.h"
2567 #include "inclppp.h"
2568 #include "inclamp.h"
2569 do 100 n=1,32
2570 b(n)=0.0d0
2571 100 continue
2572 ccc=cc/((-2*p2p5)*(2*ffmcfmb*p3p4+2*fmc2)*(-fmb2+fmc2+hbcm2+2*
2573 . p3p4))
2574 b(3)=ccc*(w1*(16*(p6p8*p5p7)*(fmb*fmc*hbcm-fmc2*hbcm)-16*hbcm*
2575 . p3p4*p5p7*p6p8)-64*fb3*hbcm*p5p7*p6p8)
2576 b(4)=ccc*(w1*(8*p5p7*(fmb*fmc*hbcm-fmc2*hbcm)-8*hbcm*p3p4*p5p7)
2577 . -32*fb3*hbcm*p5p7)
2578 b(5)=8*ccc*w1*(p5p7*p4p8)*(fmb*hbcm-fmc*hbcm)
2579 b(6)=ccc*(w1*(8*(p5p7*p3p4)*(-fmb*hbcm+fmc*hbcm)+8*fmc*hbcm3*
2580 . p5p7)+32*p5p7*(-fb3*fmb*hbcm-fb3*fmc*hbcm))
2581 b(7)=8*ccc*(p5p7*p4p8)*(8*fb3*hbcm-hbcm3*w1)
2582 b(11)=ccc*(w1*(16*(p5p7*p3p6)*(-fmb*fmc*hbcm+fmc2*hbcm)+16*hbcm
2583 . *p3p4*p3p6*p5p7)+64*fb3*hbcm*p3p6*p5p7)
2584 b(12)=ccc*(w1*(16*(p5p7*p4p8*p3p6)*(-fmb*hbcm+fmc*hbcm)+16*(
2585 . p6p8*p5p7*p3p4)*(fmb*hbcm-fmc*hbcm)-16*fmc*hbcm3*p5p7*p6p8)+64
2586 . *(p6p8*p5p7)*(fb3*fmb*hbcm+fb3*fmc*hbcm))
2587 b(17)=ccc*(w1*(8*p6p8*(-fmb*fmc*hbcm+fmc2*hbcm)+8*hbcm*p3p4*
2588 . p6p8)+32*fb3*hbcm*p6p8)
2589 b(19)=4*ccc*p4p8*(-8*fb3*hbcm+hbcm3*w1)
2590 b(20)=4*ccc*w1*p4p8*(-fmb*hbcm+fmc*hbcm)
2591 b(22)=ccc*(4*w1*(-fmb*fmc*hbcm+fmc2*hbcm+hbcm*p3p4)+16*fb3*hbcm
2592 . )
2593 b(24)=ccc*(w1*(4*p3p4*(fmb*hbcm-fmc*hbcm)-4*fmc*hbcm3)+16*(fb3*
2594 . fmb*hbcm+fb3*fmc*hbcm))
2595 b(26)=ccc*(w1*(8*p3p6*(fmb*fmc*hbcm-fmc2*hbcm)-8*hbcm*p3p4*p3p6
2596 . )-32*fb3*hbcm*p3p6)
2597 b(28)=ccc*(w1*(8*(p4p8*p3p6)*(fmb*hbcm-fmc*hbcm)+8*(p6p8*p3p4)*
2598 . (-fmb*hbcm+fmc*hbcm)+8*fmc*hbcm3*p6p8)+32*p6p8*(-fb3*fmb*hbcm-
2599 . fb3*fmc*hbcm))
2600 do 200 n=1,32
2601 c(n,2)=c(n,2)-0.7396002616336388d0*b(n)
2602 c(n,3)=c(n,3)+0.1662127982237257d0*b(n)
2603 200 continue
2604 return
2605 end
2606
2607 subroutine amp12_3p1(cc)
2608 implicit double precision(a-h,o-z)
2609 implicit integer (i-n)
2610 dimension b(32)
2611 #include "inclcon.h"
2612 #include "inclppp.h"
2613 #include "inclamp.h"
2614 do 100 n=1,32
2615 b(n)=0.0d0
2616 100 continue
2617 ccc=cc/((4*ffmcfmb*p1p5*p2p3)*(2*ffmcfmb*p1p3-2*ffmcfmb*p3p5+
2618 . fmb2-2*fmc*hbcm+fmc2+hbcm2-2*p1p3-2*p1p5+2*p3p5))
2619 b(1)=ccc*(16*w15*(-hbcm*p1p2*p3p6-hbcm*p1p2*p4p6-hbcm*p1p2*p5p6
2620 . +hbcm*p2p5*p3p6+hbcm*p2p5*p4p6+hbcm*p2p5*p5p6)+(32*p5p6*(-fb3*
2621 . fmc-fb4*fmc)+32*p4p6*(-fb3*fmc-fb4*fmc)+32*p3p6*(-fb3*fmc-fb4*
2622 . fmc)))
2623 b(2)=ccc*(16*w7*(-2*p2p3*p2p4*p6p7-p2p3s2*p6p7)+w15*(16*(p6p7*
2624 . p2p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p6p7*p1p2)*(fmb*hbcm+fmc*
2625 . hbcm-hbcm2)+16*(fmb*fmc*p3p6*p3p7+fmb*fmc*p3p7*p4p6+fmb*fmc*
2626 . p3p7*p5p6-fmb*hbcm*p2p3*p6p7-3*fmb*hbcm*p2p4*p6p7+p1p3*p2p3*
2627 . p6p7+2*p1p3*p2p4*p6p7-p2p3*p3p5*p6p7-2*p2p4*p3p5*p6p7))+(32*
2628 . p6p7*(fb3*fmb*fmc+fb3*fmc2+fb4*fmb*fmc+fb4*fmc2)+64*(-fb4*p2p3
2629 . *p6p7-2*fb4*p2p4*p6p7)))
2630 ans2=(64*(p6p7*p5p8)*(fb3*fmc+fb4*fmc)+64*(p6p8*p5p7)*(-fb3*fmc
2631 . -fb4*fmc)+8*(p6p8*p3p7)*(-8*fb3*fmc-hbcm)+64*(p6p7*p2p8)*(-fb3
2632 . *fmc-fb4*fmb)+64*(p6p7*p1p8)*(-fb3*fmc-fb4*fmc)+8*(hbcm*p3p6*
2633 . p7p8+hbcm*p4p6*p7p8+hbcm*p5p6*p7p8))
2634 ans1=w7*(16*(p6p7*p2p8*p2p3)*(-fmb+fmc)+16*(2*fmc*p1p2*p3p7*
2635 . p6p8-fmc*p2p3*p3p7*p6p8-2*fmc*p2p5*p3p7*p6p8+fmc*p2p8*p3p6*
2636 . p3p7+fmc*p2p8*p3p7*p4p6+fmc*p2p8*p3p7*p5p6+hbcm*p1p2*p2p8*p6p7
2637 . -hbcm*p2p5*p2p8*p6p7))+w15*(16*(p6p7*p3p5*p2p8)*(-fmb+fmc-2*
2638 . hbcm)+16*(p6p7*p2p8*p1p3)*(fmb-fmc+2*hbcm)+16*(p6p8*p3p7)*(fmb
2639 . *fmc2-fmb2*fmc)+16*(p6p7*p2p8)*(2*fmb*fmc*hbcm-fmb*hbcm2-2*
2640 . fmb2*hbcm)+16*(fmc*p1p3*p3p7*p6p8+2*fmc*p1p5*p3p7*p6p8-fmc*
2641 . p1p8*p3p6*p3p7-fmc*p1p8*p3p7*p4p6-fmc*p1p8*p3p7*p5p6-fmc*p3p5*
2642 . p3p7*p6p8+fmc*p3p6*p3p7*p5p8+fmc*p3p7*p4p6*p5p8+fmc*p3p7*p5p6*
2643 . p5p8+hbcm*p1p2*p1p8*p6p7-2*hbcm*p1p2*p2p8*p6p7+2*hbcm*p1p2*
2644 . p3p6*p7p8-2*hbcm*p1p2*p3p7*p6p8+2*hbcm*p1p2*p4p6*p7p8+2*hbcm*
2645 . p1p2*p5p6*p7p8-hbcm*p1p2*p5p8*p6p7+4*hbcm*p1p5*p2p8*p6p7-2*
2646 . hbcm*p1p8*p2p3*p6p7-hbcm*p1p8*p2p5*p6p7-2*hbcm*p2p3*p5p7*p6p8+
2647 . 2*hbcm*p2p3*p5p8*p6p7+2*hbcm*p2p5*p2p8*p6p7-2*hbcm*p2p5*p3p6*
2648 . p7p8+2*hbcm*p2p5*p3p7*p6p8-2*hbcm*p2p5*p4p6*p7p8-2*hbcm*p2p5*
2649 . p5p6*p7p8+hbcm*p2p5*p5p8*p6p7+2*hbcm*p2p8*p3p6*p5p7+2*hbcm*
2650 . p2p8*p4p6*p5p7+2*hbcm*p2p8*p5p6*p5p7))+ans2
2651 ans=ccc*ans1
2652 b(3)=ans
2653 b(4)=ccc*(8*w7*(2*fmc*p1p2*p3p7-fmc*p2p3*p3p7-2*fmc*p2p5*p3p7)+
2654 . w15*(8*p3p7*(fmb*fmc2-fmb2*fmc)+8*(fmc*p1p3*p3p7+2*fmc*p1p5*
2655 . p3p7-fmc*p3p5*p3p7-2*hbcm*p1p2*p3p7-2*hbcm*p2p3*p5p7+2*hbcm*
2656 . p2p5*p3p7))+(32*p5p7*(-fb3*fmc-fb4*fmc)+4*p3p7*(-8*fb3*fmc-
2657 . hbcm)))
2658 b(5)=ccc*(w7*(8*(p3p7*p2p8)*(fmb*fmc+fmc2)+16*(-p1p2*p2p3*p7p8+
2659 . p2p3*p2p5*p7p8-p2p3*p2p8*p5p7))+w15*(16*(p5p7*p2p8)*(-fmb*hbcm
2660 . +fmc*hbcm-hbcm2)+16*(p7p8*p2p5)*(fmb*hbcm-fmc*hbcm+hbcm2)+16*(
2661 . p7p8*p1p2)*(-fmb*hbcm+fmc*hbcm-hbcm2)+8*(p5p8*p3p7)*(-fmb*fmc+
2662 . fmc2)+16*(p3p7*p2p8)*(fmb*fmc-fmb*hbcm)+8*(p3p7*p1p8)*(fmb*fmc
2663 . -fmc2)+16*(fmb*hbcm*p2p3*p7p8+p1p2*p1p3*p7p8-p1p2*p3p5*p7p8-
2664 . p1p3*p2p5*p7p8+p1p3*p2p8*p5p7+p2p5*p3p5*p7p8-p2p8*p3p5*p5p7))+
2665 . (4*p7p8*(8*fb3*fmc*hbcm+8*fb4*fmc*hbcm+fmb*hbcm+fmc*hbcm-2*
2666 . hbcm2)+64*(-fb4*p1p2*p7p8+fb4*p2p5*p7p8-fb4*p2p8*p5p7)))
2667 b(6)=ccc*(w7*(8*(p3p7*p2p3)*(-fmb*fmc-fmc2)+16*(p1p2*p2p3*p3p7-
2668 . p2p3*p2p5*p3p7+p2p3s2*p5p7))+w15*(16*(p3p7*p2p5)*(-fmb*hbcm+
2669 . fmc*hbcm)+16*(p5p7*p2p3)*(fmb*hbcm-fmc*hbcm)+16*(p3p7*p1p2)*(
2670 . fmb*hbcm-fmc*hbcm)+8*(p3p7*p3p5)*(fmb*fmc-fmc2)+8*(p3p7*p1p3)*
2671 . (-fmb*fmc+fmc2)+8*(fmb*fmc*hbcm2*p3p7-2*fmb*fmc*p2p3*p3p7-2*
2672 . p1p2*p1p3*p3p7+2*p1p2*p3p5*p3p7-2*p1p3*p2p3*p5p7+2*p1p3*p2p5*
2673 . p3p7+2*p2p3*p3p5*p5p7-2*p2p5*p3p5*p3p7))+(4*p3p7*(-8*fb3*fmb*
2674 . fmc-8*fb3*fmc2-fmb*hbcm-fmc*hbcm)+64*(fb4*p1p2*p3p7+fb4*p2p3*
2675 . p5p7-fb4*p2p5*p3p7)))
2676 ans=ccc*(8*w7*(fmc*hbcm2*p2p8*p3p7-2*fmc*p1p3*p2p8*p3p7+2*fmc*
2677 . p1p8*p2p3*p3p7-2*fmc*p2p3*p3p7*p5p8+2*fmc*p2p8*p3p5*p3p7)+w15*
2678 . (16*(p5p7*p2p8)*(-fmc*hbcm2+hbcm3)+16*(p7p8*p2p5)*(fmc*hbcm2-
2679 . hbcm3)+16*(p7p8*p1p2)*(-fmc*hbcm2+hbcm3)+16*(p3p7*p2p8)*(-fmb*
2680 . fmc*hbcm+fmb2*hbcm)+16*(p7p8*p2p3)*(fmb*fmc*hbcm-fmb2*hbcm)+8*
2681 . (-fmc*hbcm2*p1p8*p3p7+fmc*hbcm2*p3p7*p5p8-2*fmc*p1p3*p2p8*p3p7
2682 . +2*fmc*p1p8*p2p3*p3p7-2*fmc*p2p3*p3p7*p5p8+2*fmc*p2p8*p3p5*
2683 . p3p7-4*hbcm*p1p2*p2p3*p7p8+4*hbcm*p1p2*p2p8*p3p7+4*hbcm*p1p5*
2684 . p2p3*p7p8-4*hbcm*p1p5*p2p8*p3p7+4*hbcm*p2p3*p2p5*p7p8-4*hbcm*
2685 . p2p5*p2p8*p3p7))+(8*(p5p8*p3p7)*(-8*fb3*fmc-hbcm)+8*(p3p7*p2p8
2686 . )*(8*fb3*fmc+hbcm)+8*(p3p7*p1p8)*(8*fb3*fmc+hbcm)+4*p7p8*(-8*
2687 . fb3*fmb*fmc*hbcm+8*fb3*fmc2*hbcm-8*fb4*fmb*fmc*hbcm+8*fb4*fmc2
2688 . *hbcm+2*fmb*hbcm2-2*fmc*hbcm2+hbcm3)+8*(-hbcm*p1p3*p7p8-hbcm*
2689 . p2p3*p7p8+hbcm*p3p5*p7p8)))
2690 b(7)=ans
2691 b(8)=ccc*(16*w7*(-2*p2p3*p2p4*p6p8-p2p3*p2p8*p3p6-p2p3*p2p8*
2692 . p4p6-p2p3*p2p8*p5p6-p2p3s2*p6p8)+w15*(16*(p6p8*p2p5)*(-fmb*
2693 . hbcm-fmc*hbcm+hbcm2)+16*(p6p8*p1p2)*(fmb*hbcm+fmc*hbcm-hbcm2)+
2694 . 16*(-fmb*hbcm*p2p3*p6p8-3*fmb*hbcm*p2p4*p6p8-2*fmb*hbcm*p2p8*
2695 . p3p6-2*fmb*hbcm*p2p8*p4p6-2*fmb*hbcm*p2p8*p5p6+p1p3*p2p3*p6p8+
2696 . 2*p1p3*p2p4*p6p8+p1p3*p2p8*p3p6+p1p3*p2p8*p4p6+p1p3*p2p8*p5p6-
2697 . p2p3*p3p5*p6p8-2*p2p4*p3p5*p6p8-p2p8*p3p5*p3p6-p2p8*p3p5*p4p6-
2698 . p2p8*p3p5*p5p6))+(32*p6p8*(fb3*fmb*fmc+fb3*fmc2+fb4*fmb*fmc+
2699 . fb4*fmc2)+64*(-fb4*p2p3*p6p8-2*fb4*p2p4*p6p8-fb4*p2p8*p3p6-fb4
2700 . *p2p8*p4p6-fb4*p2p8*p5p6)))
2701 b(9)=ccc*(16*w7*(2*p1p2*p2p3*p3p6-2*p2p3*p2p5*p3p6+p2p3s2*p4p6+
2702 . p2p3s2*p5p6)+w15*(16*(p3p6*p2p5)*(-2*fmb*hbcm+fmc*hbcm)+16*(
2703 . p3p6*p1p2)*(2*fmb*hbcm-fmc*hbcm)+16*(2*fmb*hbcm*p2p3*p4p6+2*
2704 . fmb*hbcm*p2p3*p5p6-hbcm2*p1p2*p4p6-hbcm2*p1p2*p5p6+hbcm2*p2p5*
2705 . p4p6+hbcm2*p2p5*p5p6-2*p1p2*p1p3*p3p6+2*p1p2*p3p5*p3p6-p1p3*
2706 . p2p3*p4p6-p1p3*p2p3*p5p6+2*p1p3*p2p5*p3p6+p2p3*p3p5*p4p6+p2p3*
2707 . p3p5*p5p6-2*p2p5*p3p5*p3p6))+(32*p3p6*(-fb3*fmb*fmc-fb3*fmc2-
2708 . fb4*fmb*fmc-fb4*fmc2)+64*(2*fb4*p1p2*p3p6+fb4*p2p3*p4p6+fb4*
2709 . p2p3*p5p6-2*fb4*p2p5*p3p6)))
2710 ans2=(64*(p5p8*p3p6)*(-fb3*fmc-fb4*fmc)+64*(p6p8*p3p5)*(fb3*fmc
2711 . +fb4*fmc)+64*(p3p6*p2p8)*(fb3*fmc+fb4*fmb)+64*(p6p8*p2p3)*(-
2712 . fb3*fmc-fb4*fmb)+64*(p3p6*p1p8)*(fb3*fmc+fb4*fmc)+64*(p6p8*
2713 . p1p3)*(-fb3*fmc-fb4*fmc)+32*p6p8*(fb3*fmc*hbcm2+fb4*fmc*hbcm2)
2714 . +64*(fb3*hbcm*p1p2*p6p8-fb3*hbcm*p2p5*p6p8))
2715 ans1=w7*(16*p6p8*(-fmb*p2p3s2+fmc*p2p3s2)+16*(p3p6*p2p8*p2p3)*(
2716 . fmb-fmc)+16*(hbcm*p1p2*p2p3*p6p8-hbcm*p1p2*p2p8*p3p6-hbcm*p2p3
2717 . *p2p5*p6p8+hbcm*p2p5*p2p8*p3p6))+w15*(16*(p3p6*p3p5*p2p8)*(fmb
2718 . -fmc)+16*(p6p8*p3p5*p2p3)*(-fmb+fmc)+16*(p3p6*p2p8*p1p3)*(-fmb
2719 . +fmc)+16*(p6p8*p2p3*p1p3)*(fmb-fmc)+16*(p6p8*p2p5)*(fmb*hbcm2+
2720 . fmc*hbcm2-hbcm3)+16*(p6p8*p1p2)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+
2721 . 32*(p3p6*p2p8)*(-fmb*fmc*hbcm+fmb2*hbcm)+32*(p6p8*p2p3)*(fmb*
2722 . fmc*hbcm-fmb2*hbcm)+16*(-fmb*hbcm2*p2p8*p4p6-fmb*hbcm2*p2p8*
2723 . p5p6+hbcm*p1p2*p1p3*p6p8-hbcm*p1p2*p1p8*p3p6-2*hbcm*p1p2*p2p3*
2724 . p6p8+2*hbcm*p1p2*p2p8*p3p6-hbcm*p1p2*p3p5*p6p8+hbcm*p1p2*p3p6*
2725 . p5p8-hbcm*p1p3*p2p5*p6p8+2*hbcm*p1p3*p2p8*p4p6+2*hbcm*p1p3*
2726 . p2p8*p5p6+4*hbcm*p1p5*p2p3*p6p8-4*hbcm*p1p5*p2p8*p3p6-2*hbcm*
2727 . p1p8*p2p3*p4p6-2*hbcm*p1p8*p2p3*p5p6+hbcm*p1p8*p2p5*p3p6+2*
2728 . hbcm*p2p3*p2p5*p6p8+2*hbcm*p2p3*p4p6*p5p8+2*hbcm*p2p3*p5p6*
2729 . p5p8-2*hbcm*p2p5*p2p8*p3p6+hbcm*p2p5*p3p5*p6p8-hbcm*p2p5*p3p6*
2730 . p5p8-2*hbcm*p2p8*p3p5*p4p6-2*hbcm*p2p8*p3p5*p5p6))+ans2
2731 ans=ccc*ans1
2732 b(10)=ans
2733 ans2=(8*(p5p6*p3p7)*(-8*fb3*fmc-hbcm)+8*(p4p6*p3p7)*(-8*fb3*fmc
2734 . -hbcm)+64*(p5p7*p3p6)*(fb3*fmc+fb4*fmc)+64*(p6p7*p3p5)*(-fb3*
2735 . fmc-fb4*fmc)+64*(p6p7*p2p3)*(fb3*fmc+fb4*fmb)+64*(p6p7*p1p3)*(
2736 . fb3*fmc+fb4*fmc)+32*p6p7*(-fb3*fmc*hbcm2-fb4*fmc*hbcm2)+64*(-
2737 . fb3*hbcm*p1p2*p6p7+fb3*hbcm*p2p5*p6p7))
2738 ans1=w7*(16*p6p7*(fmb*p2p3s2-fmc*p2p3s2)+16*(-2*fmc*p1p2*p3p6*
2739 . p3p7-fmc*p2p3*p3p7*p4p6-fmc*p2p3*p3p7*p5p6+2*fmc*p2p5*p3p6*
2740 . p3p7-hbcm*p1p2*p2p3*p6p7+hbcm*p2p3*p2p5*p6p7))+w15*(16*(p6p7*
2741 . p3p5*p2p3)*(fmb-fmc)+16*(p6p7*p2p3*p1p3)*(-fmb+fmc)+16*(p6p7*
2742 . p2p5)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+16*(p6p7*p1p2)*(fmb*hbcm2+
2743 . fmc*hbcm2-hbcm3)+16*(p3p7*p3p6)*(-fmb*fmc2+fmb2*fmc)+32*(p6p7*
2744 . p2p3)*(-fmb*fmc*hbcm+fmb2*hbcm)+16*(fmc*p1p3*p3p7*p4p6+fmc*
2745 . p1p3*p3p7*p5p6-2*fmc*p1p5*p3p6*p3p7-fmc*p3p5*p3p7*p4p6-fmc*
2746 . p3p5*p3p7*p5p6-hbcm*p1p2*p1p3*p6p7+2*hbcm*p1p2*p2p3*p6p7+hbcm*
2747 . p1p2*p3p5*p6p7-2*hbcm*p1p2*p3p7*p4p6-2*hbcm*p1p2*p3p7*p5p6+
2748 . hbcm*p1p3*p2p5*p6p7-4*hbcm*p1p5*p2p3*p6p7-2*hbcm*p2p3*p2p5*
2749 . p6p7-2*hbcm*p2p3*p4p6*p5p7-2*hbcm*p2p3*p5p6*p5p7-hbcm*p2p5*
2750 . p3p5*p6p7+2*hbcm*p2p5*p3p7*p4p6+2*hbcm*p2p5*p3p7*p5p6))+ans2
2751 ans=ccc*ans1
2752 b(11)=ans
2753 ans4=16*(-fmb*fmc*hbcm2*p3p7*p6p8-2*fmb*hbcm*p1p2*p3p6*p7p8+4*
2754 . fmb*hbcm*p2p3*p2p8*p6p7-2*fmb*hbcm*p2p3*p4p6*p7p8+6*fmb*hbcm*
2755 . p2p3*p4p7*p6p8-6*fmb*hbcm*p2p3*p4p8*p6p7-2*fmb*hbcm*p2p3*p5p6*
2756 . p7p8+2*fmb*hbcm*p2p5*p3p6*p7p8+4*fmb*hbcm*p2p8*p3p6*p3p7-2*fmb
2757 . *hbcm*p2p8*p3p6*p5p7+6*fmb*hbcm*p2p8*p3p7*p4p6+6*fmb*hbcm*p2p8
2758 . *p3p7*p5p6+2*hbcm2*p1p5*p2p8*p6p7+2*p1p2*p1p3*p3p6*p7p8-2*p1p2
2759 . *p1p3*p3p7*p6p8-2*p1p2*p3p5*p3p6*p7p8+2*p1p2*p3p5*p3p7*p6p8-2*
2760 . p1p3*p1p8*p2p3*p6p7-2*p1p3*p2p3*p2p8*p6p7-2*p1p3*p2p3*p3p7*
2761 . p6p8+2*p1p3*p2p3*p4p6*p7p8-4*p1p3*p2p3*p4p7*p6p8+4*p1p3*p2p3*
2762 . p4p8*p6p7+2*p1p3*p2p3*p5p6*p7p8-2*p1p3*p2p3*p5p7*p6p8+2*p1p3*
2763 . p2p3*p5p8*p6p7-2*p1p3*p2p5*p3p6*p7p8+2*p1p3*p2p5*p3p7*p6p8-4*
2764 . p1p3*p2p8*p3p5*p6p7-2*p1p3*p2p8*p3p6*p3p7+2*p1p3*p2p8*p3p6*
2765 . p5p7-4*p1p3*p2p8*p3p7*p4p6-4*p1p3*p2p8*p3p7*p5p6+2*p1p8*p2p3*
2766 . p3p5*p6p7+2*p2p3*p2p8*p3p5*p6p7+2*p2p3*p3p5*p3p7*p6p8-2*p2p3*
2767 . p3p5*p4p6*p7p8+4*p2p3*p3p5*p4p7*p6p8-4*p2p3*p3p5*p4p8*p6p7-2*
2768 . p2p3*p3p5*p5p6*p7p8+2*p2p3*p3p5*p5p7*p6p8-2*p2p3*p3p5*p5p8*
2769 . p6p7+2*p2p5*p3p5*p3p6*p7p8-2*p2p5*p3p5*p3p7*p6p8+2*p2p8*p3p5*
2770 . p3p6*p3p7-2*p2p8*p3p5*p3p6*p5p7+4*p2p8*p3p5*p3p7*p4p6+4*p2p8*
2771 . p3p5*p3p7*p5p6)
2772 ans3=16*(p6p7*p3p5*p2p8)*(fmb*hbcm-fmc*hbcm+hbcm2)+32*(p6p8*
2773 . p3p7*p2p5)*(-fmb*hbcm-hbcm2)+32*(p6p7*p5p8*p2p3)*(-2*fmb*hbcm-
2774 . fmc*hbcm)+32*(p6p8*p5p7*p2p3)*(2*fmb*hbcm+fmc*hbcm)+32*(p6p7*
2775 . p2p3*p1p8)*(2*fmb*hbcm+fmc*hbcm)+16*(p6p7*p2p8*p1p3)*(-fmb*
2776 . hbcm+fmc*hbcm-hbcm2)+32*(p6p8*p3p7*p1p2)*(fmb*hbcm+hbcm2)+16*(
2777 . p5p8*p3p7*p3p6)*(fmb*fmc-fmc2)+16*(p6p8*p3p7*p3p5)*(-fmb*fmc+
2778 . fmc2)+32*(p6p8*p3p7*p2p3)*(fmb*fmc+fmb*hbcm)+16*(p3p7*p3p6*
2779 . p1p8)*(-fmb*fmc+fmc2)+16*(p6p8*p3p7*p1p3)*(fmb*fmc-fmc2)+16*(
2780 . p6p7*p2p8)*(-fmb*fmc*hbcm2+fmb*hbcm3-fmb2*hbcm2+2*p1p3s2+2*
2781 . p3p5s2)+ans4
2782 ans2=w15*ans3
2783 ans5=(8*(p6p8*p3p7)*(-8*fb4*fmb*fmc-8*fb4*fmc2+fmb*hbcm+fmc*
2784 . hbcm)+16*(p7p8*p5p6)*(4*fb3*fmc*hbcm+4*fb4*fmc*hbcm-hbcm2)+16*
2785 . (p7p8*p4p6)*(4*fb3*fmc*hbcm+4*fb4*fmc*hbcm-hbcm2)+64*(p6p7*
2786 . p2p8)*(fb3*fmb*hbcm+fb3*fmc*hbcm+fb4*hbcm2)+8*(p7p8*p3p6)*(8*
2787 . fb3*fmb*fmc+8*fb3*fmc2+8*fb4*fmb*fmc+8*fb4*fmc2-fmb*hbcm-fmc*
2788 . hbcm)+128*(-fb4*p1p2*p3p6*p7p8+fb4*p1p2*p3p7*p6p8-fb4*p1p3*
2789 . p2p8*p6p7+fb4*p1p8*p2p3*p6p7+fb4*p2p3*p2p8*p6p7+fb4*p2p3*p3p7*
2790 . p6p8-fb4*p2p3*p4p6*p7p8+2*fb4*p2p3*p4p7*p6p8-2*fb4*p2p3*p4p8*
2791 . p6p7-fb4*p2p3*p5p6*p7p8+fb4*p2p3*p5p7*p6p8-fb4*p2p3*p5p8*p6p7+
2792 . fb4*p2p5*p3p6*p7p8-fb4*p2p5*p3p7*p6p8+fb4*p2p8*p3p5*p6p7+fb4*
2793 . p2p8*p3p6*p3p7-fb4*p2p8*p3p6*p5p7+2*fb4*p2p8*p3p7*p4p6+2*fb4*
2794 . p2p8*p3p7*p5p6))
2795 ans1=w7*(16*(p6p7*p2p8*p2p3)*(fmb*hbcm+fmc*hbcm+hbcm2)+16*(p3p7
2796 . *p3p6*p2p8)*(fmb*fmc+fmc2)+16*(p6p8*p3p7*p2p3)*(fmb*fmc+fmc2)+
2797 . 32*(-p1p2*p2p3*p3p6*p7p8+p1p2*p2p3*p3p7*p6p8-p1p3*p2p3*p2p8*
2798 . p6p7+p1p8*p2p3s2*p6p7+p2p3*p2p5*p3p6*p7p8-p2p3*p2p5*p3p7*p6p8+
2799 . p2p3*p2p8*p3p5*p6p7+p2p3*p2p8*p3p6*p3p7-p2p3*p2p8*p3p6*p5p7+2*
2800 . p2p3*p2p8*p3p7*p4p6+2*p2p3*p2p8*p3p7*p5p6+p2p3s2*p2p8*p6p7+
2801 . p2p3s2*p3p7*p6p8-p2p3s2*p4p6*p7p8+2*p2p3s2*p4p7*p6p8-2*p2p3s2*
2802 . p4p8*p6p7-p2p3s2*p5p6*p7p8+p2p3s2*p5p7*p6p8-p2p3s2*p5p8*p6p7))
2803 . +ans2+ans5
2804 ans=ccc*ans1
2805 b(12)=ans
2806 b(13)=ccc*(w7*(8*(p2p8*p2p3)*(-fmb+fmc)+8*(hbcm*p1p2*p2p8-hbcm*
2807 . p2p5*p2p8))+w15*(8*(p3p5*p2p8)*(-fmb+fmc-2*hbcm)+8*(p2p8*p1p3)
2808 . *(fmb-fmc+2*hbcm)+8*p2p8*(2*fmb*fmc*hbcm-fmb*hbcm2-2*fmb2*hbcm
2809 . )+8*(hbcm*p1p2*p1p8-2*hbcm*p1p2*p2p8-hbcm*p1p2*p5p8+4*hbcm*
2810 . p1p5*p2p8-2*hbcm*p1p8*p2p3-hbcm*p1p8*p2p5+2*hbcm*p2p3*p5p8+2*
2811 . hbcm*p2p5*p2p8+hbcm*p2p5*p5p8))+(32*p5p8*(fb3*fmc+fb4*fmc)+32*
2812 . p2p8*(-fb3*fmc-fb4*fmb)+32*p1p8*(-fb3*fmc-fb4*fmc)))
2813 b(14)=ccc*(8*w7*(2*p1p2*p2p3-2*p2p3*p2p5-p2p3s2)+w15*(8*p2p5*(-
2814 . 2*fmb*hbcm+fmc*hbcm-hbcm2)+8*p1p2*(2*fmb*hbcm-fmc*hbcm+hbcm2)+
2815 . 8*(-2*fmb*hbcm*p2p3-2*p1p2*p1p3+2*p1p2*p3p5+p1p3*p2p3+2*p1p3*
2816 . p2p5-p2p3*p3p5-2*p2p5*p3p5))+16*(-fb3*fmb*fmc-fb3*fmc2-fb4*fmb
2817 . *fmc-fb4*fmc2+4*fb4*p1p2-2*fb4*p2p3-4*fb4*p2p5))
2818 b(15)=ccc*(8*w7*(hbcm2*p2p3*p2p8-2*p1p3*p2p3*p2p8+2*p1p8*p2p3s2
2819 . +2*p2p3*p2p8*p3p5-2*p2p3s2*p5p8)+w15*(8*(p3p5*p2p8)*(2*fmb*
2820 . hbcm-2*fmc*hbcm+hbcm2)+16*(p5p8*p2p3)*(-fmb*hbcm+fmc*hbcm)+16*
2821 . (p2p3*p1p8)*(fmb*hbcm-fmc*hbcm)+8*(p2p8*p1p3)*(-2*fmb*hbcm+2*
2822 . fmc*hbcm-hbcm2)+8*p2p8*(-fmb*fmc*hbcm2+2*fmb*hbcm3-fmb2*hbcm2+
2823 . 2*p1p3s2+2*p3p5s2)+16*(-hbcm2*p1p2*p2p8+hbcm2*p1p5*p2p8+hbcm2*
2824 . p2p5*p2p8-p1p3*p1p8*p2p3+p1p3*p2p3*p5p8-2*p1p3*p2p8*p3p5+p1p8*
2825 . p2p3*p3p5-p2p3*p3p5*p5p8))+32*(fb4*hbcm2*p2p8-2*fb4*p1p3*p2p8+
2826 . 2*fb4*p1p8*p2p3-2*fb4*p2p3*p5p8+2*fb4*p2p8*p3p5))
2827 b(16)=ccc*(8*w7*(fmb*p2p3s2-fmc*p2p3s2-hbcm*p1p2*p2p3+hbcm*p2p3
2828 . *p2p5)+w15*(8*(p3p5*p2p3)*(fmb-fmc)+8*(p2p3*p1p3)*(-fmb+fmc)+8
2829 . *p2p5*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+8*p1p2*(fmb*hbcm2+fmc*hbcm2
2830 . -hbcm3)+16*p2p3*(-fmb*fmc*hbcm+fmb2*hbcm)+8*(-hbcm*p1p2*p1p3+2
2831 . *hbcm*p1p2*p2p3+hbcm*p1p2*p3p5+hbcm*p1p3*p2p5-4*hbcm*p1p5*p2p3
2832 . -2*hbcm*p2p3*p2p5-hbcm*p2p5*p3p5))+(32*p3p5*(-fb3*fmc-fb4*fmc)
2833 . +32*p2p3*(fb3*fmc+fb4*fmb)+32*p1p3*(fb3*fmc+fb4*fmc)+16*(-fb3*
2834 . fmc*hbcm2-2*fb3*hbcm*p1p2+2*fb3*hbcm*p2p5-fb4*fmc*hbcm2)))
2835 b(17)=ccc*(w7*(8*(p6p8*p2p3)*(2*fmb-2*fmc-hbcm)+8*(hbcm*p2p8*
2836 . p3p6+hbcm*p2p8*p4p6+hbcm*p2p8*p5p6))+w15*(8*(p6p8*p3p5)*(2*fmb
2837 . -2*fmc+3*hbcm)+8*(p6p8*p1p3)*(-2*fmb+2*fmc-3*hbcm)+8*p6p8*(-3*
2838 . fmb*fmc*hbcm+2*fmb*hbcm2+3*fmb2*hbcm)+8*(2*hbcm*p1p2*p6p8-6*
2839 . hbcm*p1p5*p6p8+3*hbcm*p1p8*p3p6+3*hbcm*p1p8*p4p6+3*hbcm*p1p8*
2840 . p5p6-2*hbcm*p2p5*p6p8-3*hbcm*p3p6*p5p8-3*hbcm*p4p6*p5p8-3*hbcm
2841 . *p5p6*p5p8))+32*p6p8*(fb3*fmc-fb3*hbcm+2*fb4*fmb-fb4*fmc))
2842 b(18)=ccc*(16*w7*(-p2p3*p3p6-p2p3*p4p6-p2p3*p5p6)+8*w15*(-3*fmb
2843 . *hbcm*p3p6-3*fmb*hbcm*p4p6-3*fmb*hbcm*p5p6+2*p1p3*p3p6+2*p1p3*
2844 . p4p6+2*p1p3*p5p6-2*p3p5*p3p6-2*p3p5*p4p6-2*p3p5*p5p6)+64*(-fb4
2845 . *p3p6-fb4*p4p6-fb4*p5p6))
2846 b(19)=ccc*(4*w7*(-2*hbcm*p1p3*p2p8+2*hbcm*p1p8*p2p3-2*hbcm*p2p3
2847 . *p5p8+2*hbcm*p2p8*p3p5+hbcm3*p2p8)+w15*(4*p5p8*(2*fmb*hbcm2+2*
2848 . fmc*hbcm2-3*hbcm3)+4*p1p8*(-2*fmb*hbcm2-2*fmc*hbcm2+3*hbcm3)+8
2849 . *(-fmb*hbcm2*p2p8+hbcm*p1p3*p2p8-hbcm*p1p8*p2p3+hbcm*p2p3*p5p8
2850 . -hbcm*p2p8*p3p5))+32*(fb3*hbcm*p1p8+fb3*hbcm*p2p8-fb3*hbcm*
2851 . p5p8))
2852 b(20)=ccc*(w7*(4*p2p8*(fmb*hbcm+fmc*hbcm)+8*(-2*p1p8*p2p3-p2p3*
2853 . p2p8+2*p2p3*p5p8))+w15*(4*p5p8*(3*fmb*hbcm-3*fmc*hbcm+2*hbcm2)
2854 . +4*p1p8*(-3*fmb*hbcm+3*fmc*hbcm-2*hbcm2)+8*(-fmb*hbcm*p2p8+2*
2855 . p1p3*p1p8+p1p3*p2p8-2*p1p3*p5p8-2*p1p8*p3p5-p2p8*p3p5+2*p3p5*
2856 . p5p8))+32*(-2*fb4*p1p8-fb4*p2p8+2*fb4*p5p8))
2857 b(21)=ccc*(w7*(8*(p7p8*p2p3)*(fmb-fmc)+8*(-2*fmc*p1p8*p3p7-fmc*
2858 . p2p8*p3p7+2*fmc*p3p7*p5p8+hbcm*p2p8*p5p7))+w15*(8*(p5p8*p3p7)*
2859 . (fmc-2*hbcm)+8*(p3p7*p1p8)*(-fmc+2*hbcm)+8*(p7p8*p3p5)*(fmb-
2860 . fmc+2*hbcm)+8*(p7p8*p1p3)*(-fmb+fmc-2*hbcm)+8*p7p8*(-2*fmb*fmc
2861 . *hbcm+fmb*hbcm2+2*fmb2*hbcm)+8*(2*hbcm*p1p2*p7p8-4*hbcm*p1p5*
2862 . p7p8+hbcm*p1p8*p5p7-2*hbcm*p2p5*p7p8-hbcm*p5p7*p5p8))+4*p7p8*(
2863 . 8*fb4*fmb-8*fb4*fmc+hbcm))
2864 b(22)=ccc*(4*w7*p2p3*(2*fmb-2*fmc-hbcm)+w15*(4*p3p5*(2*fmb-2*
2865 . fmc+3*hbcm)+4*p1p3*(-2*fmb+2*fmc-3*hbcm)+4*(-3*fmb*fmc*hbcm+2*
2866 . fmb*hbcm2+3*fmb2*hbcm+2*hbcm*p1p2-6*hbcm*p1p5-2*hbcm*p2p5))+16
2867 . *(fb3*fmc-fb3*hbcm+2*fb4*fmb-fb4*fmc))
2868 b(23)=ccc*(w7*(8*p3p7*(-fmb*fmc-fmc2)+8*(p2p3*p3p7+2*p2p3*p5p7)
2869 . )+w15*(8*p5p7*(2*fmb*hbcm-fmc*hbcm+hbcm2)+8*p3p7*(-fmb*fmc+2*
2870 . fmb*hbcm)+8*(-p1p3*p3p7-2*p1p3*p5p7+p3p5*p3p7+2*p3p5*p5p7))+32
2871 . *(fb4*p3p7+2*fb4*p5p7))
2872 b(24)=ccc*(w7*(4*p2p3*(-fmb*hbcm-fmc*hbcm-2*hbcm2)+8*(2*p1p3*
2873 . p2p3-2*p2p3*p3p5+p2p3s2))+w15*(4*p3p5*(-3*fmb*hbcm+3*fmc*hbcm-
2874 . 2*hbcm2)+4*p1p3*(3*fmb*hbcm-3*fmc*hbcm+2*hbcm2)+4*(2*fmb*fmc*
2875 . hbcm2+2*fmb*hbcm*p2p3-3*fmb*hbcm3+2*fmb2*hbcm2+2*hbcm2*p1p2-4*
2876 . hbcm2*p1p5-2*hbcm2*p2p5-2*p1p3*p2p3+8*p1p3*p3p5-4*p1p3s2+2*
2877 . p2p3*p3p5-4*p3p5s2))+16*(-fb3*fmb*hbcm-fb3*fmc*hbcm-2*fb4*
2878 . hbcm2+4*fb4*p1p3+2*fb4*p2p3-4*fb4*p3p5))
2879 b(25)=ccc*(w7*(8*(p3p7*p2p3)*(-fmb+2*fmc)+8*(-fmc*hbcm2*p3p7+2*
2880 . fmc*p1p3*p3p7-2*fmc*p3p5*p3p7-hbcm*p2p3*p5p7))+w15*(8*p5p7*(
2881 . fmb*hbcm2+fmc*hbcm2-hbcm3)+16*p3p7*(fmb*fmc*hbcm-fmb2*hbcm)+8*
2882 . (fmb*p1p3*p3p7-fmb*p3p5*p3p7-2*hbcm*p1p2*p3p7-hbcm*p1p3*p5p7+4
2883 . *hbcm*p1p5*p3p7+2*hbcm*p2p5*p3p7+hbcm*p3p5*p5p7))+(4*p3p7*(-8*
2884 . fb3*fmc-8*fb4*fmb+8*fb4*fmc-hbcm)-32*fb3*hbcm*p5p7))
2885 b(26)=ccc*(w7*(16*(p3p6*p2p3)*(-fmb+fmc)+8*(-hbcm*p2p3*p4p6-
2886 . hbcm*p2p3*p5p6))+w15*(16*(p3p6*p3p5)*(-fmb+fmc)+16*(p3p6*p1p3)
2887 . *(fmb-fmc)+24*p3p6*(fmb*fmc*hbcm-fmb2*hbcm)+8*(2*fmb*hbcm2*
2888 . p4p6+2*fmb*hbcm2*p5p6-2*hbcm*p1p2*p3p6-3*hbcm*p1p3*p4p6-3*hbcm
2889 . *p1p3*p5p6+6*hbcm*p1p5*p3p6+2*hbcm*p2p5*p3p6+3*hbcm*p3p5*p4p6+
2890 . 3*hbcm*p3p5*p5p6))+(32*p3p6*(-fb3*fmc-2*fb4*fmb+fb4*fmc)+32*(-
2891 . fb3*hbcm*p4p6-fb3*hbcm*p5p6)))
2892 ans=ccc*(8*w7*(-hbcm2*p2p3*p7p8+2*p1p3*p2p3*p7p8-2*p1p8*p2p3*
2893 . p3p7-2*p2p3*p2p8*p3p7-2*p2p3*p3p5*p7p8+2*p2p3*p3p7*p5p8+2*
2894 . p2p3s2*p7p8)+w15*(16*(p5p8*p3p7)*(fmb*hbcm-fmc*hbcm)+8*(p7p8*
2895 . p3p5)*(-2*fmb*hbcm+2*fmc*hbcm-hbcm2)+16*(p3p7*p1p8)*(-fmb*hbcm
2896 . +fmc*hbcm)+8*(p7p8*p1p3)*(2*fmb*hbcm-2*fmc*hbcm+hbcm2)+8*p7p8*
2897 . (fmb*fmc*hbcm2-2*fmb*hbcm3+fmb2*hbcm2-2*p1p3s2-2*p3p5s2)+16*(
2898 . fmb*hbcm*p2p3*p7p8-fmb*hbcm*p2p8*p3p7+hbcm2*p1p2*p7p8-hbcm2*
2899 . p1p5*p7p8-hbcm2*p2p5*p7p8+p1p3*p1p8*p3p7-p1p3*p2p3*p7p8+p1p3*
2900 . p2p8*p3p7+2*p1p3*p3p5*p7p8-p1p3*p3p7*p5p8-p1p8*p3p5*p3p7+p2p3*
2901 . p3p5*p7p8-p2p8*p3p5*p3p7+p3p5*p3p7*p5p8))+(8*p7p8*(-4*fb3*fmc*
2902 . hbcm-4*fb4*fmc*hbcm-4*fb4*hbcm2+hbcm2)+64*(fb4*p1p3*p7p8-fb4*
2903 . p1p8*p3p7+fb4*p2p3*p7p8-fb4*p2p8*p3p7-fb4*p3p5*p7p8+fb4*p3p7*
2904 . p5p8)))
2905 b(27)=ans
2906 ans=ccc*(w7*(8*(p3p6*p2p8)*(-fmb*hbcm-fmc*hbcm)+8*(p6p8*p2p3)*(
2907 . fmb*hbcm+fmc*hbcm-2*hbcm2)+16*(2*p1p8*p2p3*p3p6+p2p3*p2p8*p3p6
2908 . -2*p2p3*p3p4*p6p8-2*p2p3*p3p6*p5p8+p2p3s2*p6p8))+w15*(24*(p5p8
2909 . *p3p6)*(-fmb*hbcm+fmc*hbcm)+8*(p6p8*p3p5)*(-3*fmb*hbcm-3*fmc*
2910 . hbcm-2*hbcm2)+24*(p3p6*p1p8)*(fmb*hbcm-fmc*hbcm)+8*(p6p8*p1p3)
2911 . *(3*fmb*hbcm+3*fmc*hbcm+2*hbcm2)+8*p6p8*(-2*fmb*fmc*hbcm2-3*
2912 . fmb*hbcm3-2*fmb2*hbcm2)+16*(2*fmb*hbcm*p2p3*p6p8+fmb*hbcm*p2p8
2913 . *p3p6-3*fmb*hbcm*p3p4*p6p8-hbcm2*p1p2*p6p8+2*hbcm2*p1p5*p6p8-
2914 . hbcm2*p1p8*p4p6-hbcm2*p1p8*p5p6+hbcm2*p2p5*p6p8+hbcm2*p4p6*
2915 . p5p8+hbcm2*p5p6*p5p8-2*p1p3*p1p8*p3p6-p1p3*p2p3*p6p8-p1p3*p2p8
2916 . *p3p6+2*p1p3*p3p4*p6p8+2*p1p3*p3p6*p5p8+2*p1p8*p3p5*p3p6+p2p3*
2917 . p3p5*p6p8+p2p8*p3p5*p3p6-2*p3p4*p3p5*p6p8-2*p3p5*p3p6*p5p8))+(
2918 . 32*p6p8*(fb3*fmb*hbcm+fb3*fmc*hbcm-2*fb4*hbcm2)+64*(2*fb4*p1p8
2919 . *p3p6+fb4*p2p3*p6p8+fb4*p2p8*p3p6-2*fb4*p3p4*p6p8-2*fb4*p3p6*
2920 . p5p8)))
2921 b(28)=ans
2922 ans=ccc*(w7*(8*(p6p7*p2p3)*(-fmb*hbcm-fmc*hbcm+2*hbcm2)+16*(
2923 . p3p7*p3p6)*(-fmb*fmc-fmc2)+16*(2*p2p3*p3p4*p6p7+2*p2p3*p3p6*
2924 . p5p7-p2p3*p3p7*p4p6-p2p3*p3p7*p5p6-p2p3s2*p6p7))+w15*(16*(p5p7
2925 . *p3p6)*(2*fmb*hbcm-fmc*hbcm)+8*(p6p7*p3p5)*(3*fmb*hbcm+3*fmc*
2926 . hbcm+2*hbcm2)+8*(p6p7*p1p3)*(-3*fmb*hbcm-3*fmc*hbcm-2*hbcm2)+8
2927 . *p6p7*(2*fmb*fmc*hbcm2+3*fmb*hbcm3+2*fmb2*hbcm2)+16*(-fmb*fmc*
2928 . p3p6*p3p7-2*fmb*hbcm*p2p3*p6p7+3*fmb*hbcm*p3p4*p6p7-2*fmb*hbcm
2929 . *p3p7*p4p6-2*fmb*hbcm*p3p7*p5p6+hbcm2*p1p2*p6p7-2*hbcm2*p1p5*
2930 . p6p7-hbcm2*p2p5*p6p7-hbcm2*p4p6*p5p7-hbcm2*p5p6*p5p7+p1p3*p2p3
2931 . *p6p7-2*p1p3*p3p4*p6p7-2*p1p3*p3p6*p5p7+p1p3*p3p7*p4p6+p1p3*
2932 . p3p7*p5p6-p2p3*p3p5*p6p7+2*p3p4*p3p5*p6p7+2*p3p5*p3p6*p5p7-
2933 . p3p5*p3p7*p4p6-p3p5*p3p7*p5p6))+(32*p6p7*(-fb3*fmb*hbcm-fb3*
2934 . fmc*hbcm+2*fb4*hbcm2)+64*(-fb4*p2p3*p6p7+2*fb4*p3p4*p6p7+2*fb4
2935 . *p3p6*p5p7-fb4*p3p7*p4p6-fb4*p3p7*p5p6)))
2936 b(29)=ans
2937 ans3=(8*(p7p8*p3p6)*(-8*fb4*fmb+8*fb4*fmc-hbcm)+8*(p6p8*p3p7)*(
2938 . 8*fb3*fmc+8*fb4*fmb-8*fb4*fmc+hbcm)+64*(fb3*hbcm*p1p8*p6p7+fb3
2939 . *hbcm*p2p8*p6p7+fb3*hbcm*p5p7*p6p8-fb3*hbcm*p5p8*p6p7))
2940 ans2=w15*(16*(p7p8*p3p6*p3p5)*(-fmb+fmc)+16*(p7p8*p3p6*p1p3)*(
2941 . fmb-fmc)+8*(p6p7*p5p8)*(2*fmb*hbcm2+2*fmc*hbcm2-3*hbcm3)+16*(
2942 . p6p8*p5p7)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+8*(p6p7*p1p8)*(-2*fmb*
2943 . hbcm2-2*fmc*hbcm2+3*hbcm3)+32*(p6p8*p3p7)*(-fmb*fmc*hbcm+fmb2*
2944 . hbcm)+32*(p7p8*p3p6)*(fmb*fmc*hbcm-fmb2*hbcm)+16*(-fmb*hbcm2*
2945 . p2p8*p6p7+fmb*hbcm2*p4p6*p7p8+fmb*hbcm2*p5p6*p7p8-fmb*p1p3*
2946 . p3p7*p6p8+fmb*p3p5*p3p7*p6p8+fmc*p1p8*p3p6*p3p7-fmc*p3p6*p3p7*
2947 . p5p8-2*hbcm*p1p2*p3p6*p7p8+2*hbcm*p1p2*p3p7*p6p8+hbcm*p1p3*
2948 . p2p8*p6p7-2*hbcm*p1p3*p4p6*p7p8-2*hbcm*p1p3*p5p6*p7p8+hbcm*
2949 . p1p3*p5p7*p6p8+4*hbcm*p1p5*p3p6*p7p8-4*hbcm*p1p5*p3p7*p6p8-
2950 . hbcm*p1p8*p2p3*p6p7-hbcm*p1p8*p3p6*p5p7+2*hbcm*p1p8*p3p7*p4p6+
2951 . 2*hbcm*p1p8*p3p7*p5p6+hbcm*p2p3*p5p8*p6p7+2*hbcm*p2p5*p3p6*
2952 . p7p8-2*hbcm*p2p5*p3p7*p6p8-hbcm*p2p8*p3p5*p6p7+2*hbcm*p3p5*
2953 . p4p6*p7p8+2*hbcm*p3p5*p5p6*p7p8-hbcm*p3p5*p5p7*p6p8+hbcm*p3p6*
2954 . p5p7*p5p8-2*hbcm*p3p7*p4p6*p5p8-2*hbcm*p3p7*p5p6*p5p8))+ans3
2955 ans1=w7*(16*(p6p8*p3p7*p2p3)*(fmb-2*fmc)+16*(p7p8*p3p6*p2p3)*(-
2956 . fmb+fmc)+8*(2*fmc*hbcm2*p3p7*p6p8-4*fmc*p1p3*p3p7*p6p8+4*fmc*
2957 . p1p8*p3p6*p3p7+2*fmc*p2p8*p3p6*p3p7+4*fmc*p3p5*p3p7*p6p8-4*fmc
2958 . *p3p6*p3p7*p5p8-2*hbcm*p1p3*p2p8*p6p7+2*hbcm*p1p8*p2p3*p6p7+2*
2959 . hbcm*p2p3*p5p7*p6p8-2*hbcm*p2p3*p5p8*p6p7+2*hbcm*p2p8*p3p5*
2960 . p6p7-2*hbcm*p2p8*p3p6*p5p7+hbcm3*p2p8*p6p7))+ans2
2961 ans=ccc*ans1
2962 b(30)=ans
2963 ans=ccc*(w7*(8*(p6p7*p2p8)*(-fmb*hbcm-fmc*hbcm)+16*(p6p8*p3p7)*
2964 . (-fmb*fmc-fmc2)+16*(-p2p3*p2p8*p6p7-p2p3*p3p6*p7p8-p2p3*p3p7*
2965 . p6p8-p2p3*p4p6*p7p8-2*p2p3*p4p7*p6p8+2*p2p3*p4p8*p6p7-p2p3*
2966 . p5p6*p7p8))+w15*(8*(p6p7*p5p8)*(3*fmb*hbcm+3*fmc*hbcm-2*hbcm2)
2967 . +16*(p6p8*p5p7)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p6p7*p1p8)*(-3*
2968 . fmb*hbcm-3*fmc*hbcm+2*hbcm2)+16*(p6p8*p3p7)*(-fmb*fmc-fmb*hbcm
2969 . )+16*(-2*fmb*hbcm*p2p8*p6p7-2*fmb*hbcm*p3p6*p7p8-2*fmb*hbcm*
2970 . p4p6*p7p8-3*fmb*hbcm*p4p7*p6p8+3*fmb*hbcm*p4p8*p6p7-2*fmb*hbcm
2971 . *p5p6*p7p8+p1p3*p2p8*p6p7+p1p3*p3p6*p7p8+p1p3*p3p7*p6p8+p1p3*
2972 . p4p6*p7p8+2*p1p3*p4p7*p6p8-2*p1p3*p4p8*p6p7+p1p3*p5p6*p7p8-
2973 . p2p8*p3p5*p6p7-p3p5*p3p6*p7p8-p3p5*p3p7*p6p8-p3p5*p4p6*p7p8-2*
2974 . p3p5*p4p7*p6p8+2*p3p5*p4p8*p6p7-p3p5*p5p6*p7p8))+64*(-fb4*p2p8
2975 . *p6p7-fb4*p3p6*p7p8-fb4*p3p7*p6p8-fb4*p4p6*p7p8-2*fb4*p4p7*
2976 . p6p8+2*fb4*p4p8*p6p7-fb4*p5p6*p7p8))
2977 b(31)=ans
2978 b(32)=ccc*(w7*(8*(p6p7*p2p3)*(2*fmb-2*fmc-hbcm)+16*(-fmc*p3p6*
2979 . p3p7-fmc*p3p7*p4p6-fmc*p3p7*p5p6))+w15*(8*(p6p7*p3p5)*(2*fmb-2
2980 . *fmc+3*hbcm)+8*(p6p7*p1p3)*(-2*fmb+2*fmc-3*hbcm)+8*p6p7*(-3*
2981 . fmb*fmc*hbcm+2*fmb*hbcm2+3*fmb2*hbcm)+16*(hbcm*p1p2*p6p7-3*
2982 . hbcm*p1p5*p6p7-hbcm*p2p5*p6p7-hbcm*p3p6*p5p7-hbcm*p4p6*p5p7-
2983 . hbcm*p5p6*p5p7))+32*p6p7*(fb3*fmc-fb3*hbcm+2*fb4*fmb-fb4*fmc))
2984 do 200 n=1,32
2985 c(n,1)=c(n,1)+0.09090909090909091d0*b(n)
2986 c(n,2)=c(n,2)-0.01680909685530997d0*b(n)
2987 c(n,3)=c(n,3)-0.02077659977796572d0*b(n)
2988 200 continue
2989 return
2990 end
2991
2992 subroutine amp11_3p1(cc)
2993 implicit double precision(a-h,o-z)
2994 implicit integer (i-n)
2995 dimension b(32)
2996 #include "inclcon.h"
2997 #include "inclppp.h"
2998 #include "inclamp.h"
2999 do 100 n=1,32
3000 b(n)=0.0d0
3001 100 continue
3002 ccc=cc/((-2*p1p5)*(2*ffmcfmb*p3p4+2*fmc2)*(2*ffmcfmb*p2p3-fmb2-
3003 . 2*fmc*hbcm+fmc2+hbcm2-2*p2p3))
3004 b(1)=ccc*(w8*(8*(p5p6*p2p3)*(-fmb-fmc+hbcm)+8*(p4p6*p2p3)*(-fmb
3005 . -fmc+hbcm)+8*(p3p6*p2p3)*(-fmb-fmc+hbcm))+w1*(8*(p5p6*p3p4)*(-
3006 . fmb-fmc+hbcm)+8*(p4p6*p3p4)*(-fmb-fmc+hbcm)+8*(p3p6*p3p4)*(-
3007 . fmb-fmc+hbcm)+16*p5p6*(-fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+16*
3008 . p4p6*(-fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+16*p3p6*(-fmb*fmc*
3009 . hbcm+fmc*hbcm2-fmc2*hbcm)+16*(hbcm*p2p4*p3p6+hbcm*p2p4*p4p6+
3010 . hbcm*p2p4*p5p6))+(32*p5p6*(fb3*fmc-fb3*hbcm+fb4*fmb)+32*p4p6*(
3011 . fb3*fmc-fb3*hbcm+fb4*fmb)+32*p3p6*(fb3*fmc-fb3*hbcm+fb4*fmb)))
3012 ans=ccc*(w8*(32*(p6p7*p2p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p6p7*
3013 . p2p3)*(2*fmb*fmc+fmb*hbcm+fmb2+fmc*hbcm+fmc2-2*hbcm2)+16*(2*
3014 . p2p3*p2p4*p6p7+p2p3s2*p6p7))+w1*(16*(p5p6*p3p7)*(fmc*hbcm-fmc2
3015 . )+16*(p4p6*p3p7)*(fmc*hbcm-fmc2)+16*(p3p7*p3p6)*(fmc*hbcm-fmc2
3016 . )+16*(p5p6*p4p7)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p4p7*p4p6)*(-
3017 . fmb*hbcm-fmc*hbcm+hbcm2)+16*(p4p7*p3p6)*(-fmb*hbcm-fmc*hbcm+
3018 . hbcm2)+16*(p6p7*p2p4)*(-fmb*hbcm+2*fmc*hbcm+hbcm2)+8*(p6p7*
3019 . p3p4)*(2*fmb*fmc+fmb*hbcm+fmb2+fmc*hbcm+fmc2-2*hbcm2)+8*p6p7*(
3020 . -fmb*fmc*hbcm2+4*fmb*fmc2*hbcm+2*fmb2*fmc*hbcm-fmc*hbcm3-fmc2*
3021 . hbcm2+2*fmc3*hbcm)+16*(2*fmc*hbcm*p2p3*p6p7+p2p3*p3p4*p6p7+2*
3022 . p2p4*p3p4*p6p7))+(32*p6p7*(-fb3*fmb*fmc+fb3*fmb*hbcm+fb3*fmc*
3023 . hbcm-fb3*fmc2-fb4*fmb*fmc-fb4*fmb2)+64*(-fb4*p2p3*p6p7-2*fb4*
3024 . p2p4*p6p7)))
3025 b(2)=ans
3026 ans4=16*(-2*fmc*p2p8*p3p4*p6p7+2*hbcm*p1p2*p4p7*p6p8-3*hbcm*
3027 . p1p2*p4p8*p6p7+2*hbcm*p1p8*p2p4*p6p7+hbcm*p2p3*p4p8*p6p7+2*
3028 . hbcm*p2p4*p2p8*p6p7+2*hbcm*p2p4*p5p7*p6p8-2*hbcm*p2p4*p5p8*
3029 . p6p7-2*hbcm*p2p5*p4p7*p6p8+3*hbcm*p2p5*p4p8*p6p7)
3030 ans3=16*(p5p6*p4p8*p3p7)*(fmc-hbcm)+16*(p4p8*p4p6*p3p7)*(fmc-
3031 . hbcm)+16*(p4p8*p3p7*p3p6)*(fmc-hbcm)+16*(p6p8*p4p7)*(fmb2*hbcm
3032 . +2*fmc*hbcm2-fmc2*hbcm-hbcm3)+16*(p6p7*p5p8*p3p4)*(fmb+fmc-
3033 . hbcm)+16*(p6p8*p5p7*p3p4)*(-fmb-fmc+hbcm)+16*(p7p8*p5p6*p3p4)*
3034 . (fmb+fmc-hbcm)+16*(p7p8*p4p6*p3p4)*(fmb+fmc-hbcm)+16*(p6p8*
3035 . p3p7*p3p4)*(-fmb-2*fmc+2*hbcm)+16*(p7p8*p3p6*p3p4)*(fmb+fmc-
3036 . hbcm)+16*(p6p7*p3p4*p1p8)*(-fmb-fmc+hbcm)+8*(p6p7*p4p8)*(fmb*
3037 . hbcm2-2*fmb2*hbcm-3*fmc*hbcm2+2*fmc2*hbcm+hbcm3)+32*(p6p7*p5p8
3038 . )*(fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+32*(p6p8*p5p7)*(-fmb*fmc*
3039 . hbcm+fmc*hbcm2-fmc2*hbcm)+16*(p7p8*p5p6)*(fmb*fmc*hbcm-fmc*
3040 . hbcm2+fmc2*hbcm)+16*(p7p8*p4p6)*(fmb*fmc*hbcm-fmc*hbcm2+fmc2*
3041 . hbcm)+16*(p6p8*p3p7)*(-2*fmb*fmc*hbcm+fmb*fmc2+fmc*hbcm2-fmc3)
3042 . +16*(p7p8*p3p6)*(fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+16*(p6p7*
3043 . p2p8)*(-fmb*fmc*hbcm+fmc*hbcm2-3*fmc2*hbcm)+32*(p6p7*p1p8)*(-
3044 . fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+ans4
3045 ans2=w1*ans3
3046 ans5=(8*(p6p8*p3p7)*(8*fb4*fmb+hbcm)+64*(p6p7*p5p8)*(-fb3*fmc+
3047 . fb3*hbcm-fb4*fmb)+64*(p6p8*p5p7)*(fb3*fmc-fb3*hbcm+fb4*fmb)+8*
3048 . (p7p8*p5p6)*(-8*fb3*fmc+8*fb3*hbcm-8*fb4*fmb-hbcm)+8*(p7p8*
3049 . p4p6)*(-8*fb3*fmc+8*fb3*hbcm-8*fb4*fmb-hbcm)+8*(p7p8*p3p6)*(-8
3050 . *fb3*fmc+8*fb3*hbcm-8*fb4*fmb-hbcm)+64*(p6p7*p2p8)*(fb3*fmc+
3051 . fb4*fmc)+64*(p6p7*p1p8)*(fb3*fmc-fb3*hbcm+fb4*fmb))
3052 ans1=w8*(16*(p5p6*p3p7*p2p8)*(-fmc+hbcm)+16*(p4p6*p3p7*p2p8)*(-
3053 . fmc+hbcm)+16*(p3p7*p3p6*p2p8)*(-fmc+hbcm)+32*(p6p8*p3p7*p2p5)*
3054 . (fmc-hbcm)+16*(p6p7*p2p8*p2p3)*(-2*fmc+hbcm)+32*(p6p8*p3p7*
3055 . p1p2)*(-fmc+hbcm)+16*(p6p7*p5p8*p2p3)*(fmb+fmc-hbcm)+16*(p6p8*
3056 . p5p7*p2p3)*(-fmb-fmc+hbcm)+16*(p7p8*p5p6*p2p3)*(fmb+fmc-hbcm)+
3057 . 16*(p7p8*p4p6*p2p3)*(fmb+fmc-hbcm)+16*(p7p8*p3p6*p2p3)*(fmb+
3058 . fmc-hbcm)+16*(p6p7*p2p3*p1p8)*(-fmb-fmc+hbcm)+8*(p6p7*p2p8)*(-
3059 . fmb*hbcm2+2*fmb2*hbcm+3*fmc*hbcm2-2*fmc2*hbcm-hbcm3)+16*(-fmb*
3060 . p2p3*p3p7*p6p8+hbcm*p1p2*p2p8*p6p7-hbcm*p2p5*p2p8*p6p7))+ans2+
3061 . ans5
3062 ans=ccc*ans1
3063 b(3)=ans
3064 b(4)=ccc*(w8*(16*(p3p7*p2p5)*(fmc-hbcm)+16*(p3p7*p1p2)*(-fmc+
3065 . hbcm)+8*(p5p7*p2p3)*(-fmb-fmc+hbcm)-8*fmb*p2p3*p3p7)+w1*(8*
3066 . p4p7*(fmb2*hbcm+2*fmc*hbcm2-fmc2*hbcm-hbcm3)+8*(p5p7*p3p4)*(-
3067 . fmb-fmc+hbcm)+8*(p3p7*p3p4)*(-fmb-2*fmc+2*hbcm)+16*p5p7*(-fmb*
3068 . fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+8*p3p7*(-2*fmb*fmc*hbcm+fmb*fmc2
3069 . +fmc*hbcm2-fmc3)+16*(hbcm*p1p2*p4p7+hbcm*p2p4*p5p7-hbcm*p2p5*
3070 . p4p7))+(4*p3p7*(8*fb4*fmb+hbcm)+32*p5p7*(fb3*fmc-fb3*hbcm+fb4*
3071 . fmb)))
3072 ans2=(4*p7p8*(-8*fb3*fmb*fmc+8*fb3*fmc*hbcm-8*fb3*fmc2-8*fb4*
3073 . fmb*fmc-8*fb4*fmb2-8*fb4*fmc*hbcm+8*fb4*hbcm2-fmb*hbcm-fmc*
3074 . hbcm+2*hbcm2)+64*(-fb4*p1p2*p7p8+fb4*p2p5*p7p8-fb4*p2p8*p5p7))
3075 ans1=w1*(16*(p5p8*p3p7)*(-fmc*hbcm+fmc2)+16*(p3p7*p2p8)*(fmc*
3076 . hbcm-fmc2)+16*(p3p7*p1p8)*(fmc*hbcm-fmc2)+16*(p5p7*p4p8)*(-fmb
3077 . *hbcm-fmc*hbcm+hbcm2)+16*(p5p8*p4p7)*(fmb*hbcm+fmc*hbcm-hbcm2)
3078 . +16*(p4p7*p2p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p4p7*p1p8)*(-
3079 . fmb*hbcm-fmc*hbcm+hbcm2)+8*p7p8*(2*fmb*fmc2*hbcm+fmb2*fmc*hbcm
3080 . -fmc*hbcm3+fmc3*hbcm)+8*(p4p8*p3p7)*(fmb*fmc-2*fmb*hbcm-2*fmc*
3081 . hbcm+fmc2+hbcm2)+8*(p7p8*p3p4)*(2*fmb*fmc+fmb2+fmc2-hbcm2)+16*
3082 . (fmc*hbcm*p1p2*p7p8-fmc*hbcm*p2p5*p7p8+fmc*hbcm*p2p8*p5p7+p1p2
3083 . *p3p4*p7p8-p2p5*p3p4*p7p8+p2p8*p3p4*p5p7))+w8*(16*(p5p7*p2p8)*
3084 . (fmb*hbcm+fmc*hbcm-hbcm2)+16*(p7p8*p2p5)*(-fmb*hbcm-fmc*hbcm+
3085 . hbcm2)+16*(p7p8*p1p2)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p3p7*p2p8)*
3086 . (-fmb*fmc+2*fmb*hbcm+2*fmc*hbcm-fmc2-hbcm2)+8*(p7p8*p2p3)*(2*
3087 . fmb*fmc-2*fmb*hbcm+fmb2-2*fmc*hbcm+fmc2+hbcm2)+16*(p1p2*p2p3*
3088 . p7p8-p2p3*p2p5*p7p8+p2p3*p2p8*p5p7))+ans2
3089 ans=ccc*ans1
3090 b(5)=ans
3091 ans2=(4*p3p7*(8*fb4*fmb*fmc+8*fb4*fmb2+fmb*hbcm+fmc*hbcm)+64*(
3092 . fb4*p1p2*p3p7+fb4*p2p3*p5p7-fb4*p2p5*p3p7))
3093 ans1=w8*(16*(p3p7*p2p5)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p5p7*p2p3
3094 . )*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p3p7*p1p2)*(-fmb*hbcm-fmc*
3095 . hbcm+hbcm2)+8*(p3p7*p2p3)*(-fmb*fmc-fmb2)+16*(-p1p2*p2p3*p3p7+
3096 . p2p3*p2p5*p3p7-p2p3s2*p5p7))+w1*(16*(p3p7*p3p5)*(fmc*hbcm-fmc2
3097 . )+16*(p3p7*p2p3)*(-fmc*hbcm+fmc2)+16*(p3p7*p1p3)*(-fmc*hbcm+
3098 . fmc2)+16*(p4p7*p3p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p5p7*p3p4)
3099 . *(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p4p7*p2p3)*(fmb*hbcm+fmc*hbcm-
3100 . hbcm2)+16*(p4p7*p1p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p3p7*p3p4)*
3101 . (-3*fmb*fmc+2*fmb*hbcm-fmb2+2*fmc*hbcm-2*fmc2)+8*p5p7*(fmb*fmc
3102 . *hbcm2-fmc*hbcm3+fmc2*hbcm2)+8*p4p7*(2*fmb*fmc*hbcm2-2*fmb*
3103 . hbcm3+fmb2*hbcm2-2*fmc*hbcm3+fmc2*hbcm2+hbcm4)+8*p3p7*(fmb*fmc
3104 . *hbcm2-2*fmb*fmc2*hbcm-fmb2*fmc*hbcm+fmc*hbcm3-fmc3*hbcm)+16*(
3105 . -fmc*hbcm*p1p2*p3p7-fmc*hbcm*p2p3*p5p7+fmc*hbcm*p2p5*p3p7+
3106 . hbcm2*p1p2*p4p7+hbcm2*p2p4*p5p7-hbcm2*p2p5*p4p7-p1p2*p3p4*p3p7
3107 . -p2p3*p3p4*p5p7+p2p5*p3p4*p3p7))+ans2
3108 ans=ccc*ans1
3109 b(6)=ans
3110 ans4=16*(p7p8*p1p3)*(-fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+16*(-
3111 . fmc*hbcm2*p1p2*p7p8+fmc*hbcm2*p2p5*p7p8-fmc*hbcm2*p2p8*p5p7-
3112 . hbcm*p1p2*p3p4*p7p8+hbcm*p1p2*p3p7*p4p8+hbcm*p2p3*p4p8*p5p7+
3113 . hbcm*p2p5*p3p4*p7p8-hbcm*p2p5*p3p7*p4p8-hbcm*p2p8*p3p4*p5p7)
3114 ans3=16*(p4p8*p3p7*p3p5)*(fmc-hbcm)+16*(p4p8*p3p7*p2p3)*(-fmc+
3115 . hbcm)+16*(p4p8*p3p7*p1p3)*(-fmc+hbcm)+16*(p5p8*p3p7*p3p4)*(-
3116 . fmb-2*fmc+2*hbcm)+16*(p7p8*p3p5*p3p4)*(fmb+fmc-hbcm)+16*(p3p7*
3117 . p3p4*p2p8)*(fmb+2*fmc-2*hbcm)+16*(p7p8*p3p4*p2p3)*(-fmb-fmc+
3118 . hbcm)+16*(p3p7*p3p4*p1p8)*(fmb+2*fmc-2*hbcm)+16*(p7p8*p3p4*
3119 . p1p3)*(-fmb-fmc+hbcm)+8*(p5p7*p4p8)*(-fmb*hbcm2-fmc*hbcm2+
3120 . hbcm3)+16*(p5p8*p4p7)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+8*(p4p8*p3p7
3121 . )*(-fmb*hbcm2+fmb2*hbcm+2*fmc*hbcm2-fmc2*hbcm-hbcm3)+8*(p7p8*
3122 . p3p4)*(2*fmb*hbcm2-fmb2*hbcm+fmc2*hbcm-hbcm3)+16*(p4p7*p2p8)*(
3123 . -fmb*hbcm2-fmc*hbcm2+hbcm3)+16*(p4p7*p1p8)*(-fmb*hbcm2-fmc*
3124 . hbcm2+hbcm3)+8*p7p8*(2*fmb*fmc*hbcm3-fmb2*fmc*hbcm2-fmc*hbcm4+
3125 . fmc3*hbcm2)+16*(p5p8*p3p7)*(-fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)
3126 . +16*(p7p8*p3p5)*(fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+16*(p3p7*
3127 . p2p8)*(fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+16*(p7p8*p2p3)*(-fmb*
3128 . fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+16*(p3p7*p1p8)*(fmb*fmc*hbcm-fmc
3129 . *hbcm2+fmc2*hbcm)+ans4
3130 ans2=w1*ans3
3131 ans5=(8*(p5p8*p3p7)*(8*fb4*fmb+hbcm)+8*(p3p7*p2p8)*(-8*fb4*fmb-
3132 . hbcm)+8*(p3p7*p1p8)*(-8*fb4*fmb-hbcm)+8*(p7p8*p3p5)*(-8*fb3*
3133 . fmc+8*fb3*hbcm-8*fb4*fmb-hbcm)+8*(p7p8*p2p3)*(8*fb3*fmc-8*fb3*
3134 . hbcm+8*fb4*fmb+hbcm)+8*(p7p8*p1p3)*(8*fb3*fmc-8*fb3*hbcm+8*fb4
3135 . *fmb+hbcm)+4*p7p8*(-8*fb3*fmb*fmc*hbcm+8*fb3*fmb2*hbcm-8*fb3*
3136 . fmc*hbcm2+8*fb3*hbcm3+8*fb4*fmb*fmc*hbcm-16*fb4*fmb*hbcm2+8*
3137 . fb4*fmc*hbcm2-8*fb4*fmc2*hbcm-2*fmb*hbcm2+2*fmc*hbcm2-hbcm3)+
3138 . 64*(fb3*hbcm*p1p2*p7p8-fb3*hbcm*p2p5*p7p8+fb3*hbcm*p2p8*p5p7))
3139 ans1=w8*(16*(p3p7*p3p5*p2p8)*(-fmc+hbcm)+16*(p3p7*p2p8*p1p3)*(
3140 . fmc-hbcm)+8*(p7p8*p2p3)*(fmb2*hbcm+2*fmc*hbcm2-fmc2*hbcm-hbcm3
3141 . )+16*p7p8*(-fmb*p2p3s2-fmc*p2p3s2+hbcm*p2p3s2)+16*(p7p8*p3p5*
3142 . p2p3)*(fmb+fmc-hbcm)+16*(p3p7*p2p8*p2p3)*(fmb+fmc-hbcm)+16*(
3143 . p7p8*p2p3*p1p3)*(-fmb-fmc+hbcm)+8*(p5p7*p2p8)*(fmb*hbcm2+fmc*
3144 . hbcm2-hbcm3)+8*(p3p7*p2p8)*(fmb*hbcm2-fmb2*hbcm-2*fmc*hbcm2+
3145 . fmc2*hbcm+hbcm3)+16*(p7p8*p2p5)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+
3146 . 16*(p7p8*p1p2)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+16*(fmb*p1p8*p2p3*
3147 . p3p7-fmb*p2p3*p3p7*p5p8+hbcm*p1p2*p2p3*p7p8-hbcm*p1p2*p2p8*
3148 . p3p7-hbcm*p2p3*p2p5*p7p8+hbcm*p2p5*p2p8*p3p7))+ans2+ans5
3149 ans=ccc*ans1
3150 b(7)=ans
3151 ans=ccc*(w8*(16*(p5p6*p2p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p4p6*
3152 . p2p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p3p6*p2p8)*(fmb*hbcm+fmc*
3153 . hbcm-hbcm2)+32*(p6p8*p2p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p6p8*
3154 . p2p3)*(2*fmb*fmc+fmb*hbcm+fmb2+fmc*hbcm+fmc2-2*hbcm2)+16*(2*
3155 . p2p3*p2p4*p6p8+p2p3*p2p8*p3p6+p2p3*p2p8*p4p6+p2p3*p2p8*p5p6+
3156 . p2p3s2*p6p8))+w1*(16*(p5p6*p4p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16
3157 . *(p4p8*p4p6)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p4p8*p3p6)*(-fmb*
3158 . hbcm-fmc*hbcm+hbcm2)+16*(p6p8*p2p4)*(-fmb*hbcm+2*fmc*hbcm+
3159 . hbcm2)+8*(p6p8*p3p4)*(2*fmb*fmc+fmb*hbcm+fmb2+fmc*hbcm+fmc2-2*
3160 . hbcm2)+8*p6p8*(-fmb*fmc*hbcm2+4*fmb*fmc2*hbcm+2*fmb2*fmc*hbcm-
3161 . fmc*hbcm3-fmc2*hbcm2+2*fmc3*hbcm)+16*(2*fmc*hbcm*p2p3*p6p8+fmc
3162 . *hbcm*p2p8*p3p6+fmc*hbcm*p2p8*p4p6+fmc*hbcm*p2p8*p5p6+p2p3*
3163 . p3p4*p6p8+2*p2p4*p3p4*p6p8+p2p8*p3p4*p3p6+p2p8*p3p4*p4p6+p2p8*
3164 . p3p4*p5p6))+(32*p6p8*(-fb3*fmb*fmc+fb3*fmb*hbcm+fb3*fmc*hbcm-
3165 . fb3*fmc2-fb4*fmb*fmc-fb4*fmb2)+64*(-fb4*p2p3*p6p8-2*fb4*p2p4*
3166 . p6p8-fb4*p2p8*p3p6-fb4*p2p8*p4p6-fb4*p2p8*p5p6)))
3167 b(8)=ans
3168 ans=ccc*(w8*(32*(p3p6*p2p5)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p5p6*
3169 . p2p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p4p6*p2p3)*(-fmb*hbcm-fmc
3170 . *hbcm+hbcm2)+32*(p3p6*p1p2)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p3p6
3171 . *p2p3)*(-2*fmb*fmc+fmb*hbcm-fmb2+fmc*hbcm-fmc2)+16*(-2*p1p2*
3172 . p2p3*p3p6+2*p2p3*p2p5*p3p6-p2p3s2*p4p6-p2p3s2*p5p6))+w1*(16*(
3173 . p5p6*p3p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p4p6*p3p4)*(fmb*hbcm+
3174 . fmc*hbcm-hbcm2)+16*(p3p6*p2p4)*(fmb*hbcm+fmc*hbcm)+8*(p3p6*
3175 . p3p4)*(-2*fmb*fmc+fmb*hbcm-fmb2+fmc*hbcm-fmc2)+8*p5p6*(fmb*fmc
3176 . *hbcm2-fmc*hbcm3+fmc2*hbcm2)+8*p4p6*(fmb*fmc*hbcm2-fmc*hbcm3+
3177 . fmc2*hbcm2)+16*p3p6*(fmb*fmc*hbcm2-2*fmb*fmc2*hbcm-fmb2*fmc*
3178 . hbcm+fmc2*hbcm2-fmc3*hbcm)+16*(-3*fmc*hbcm*p1p2*p3p6-fmc*hbcm*
3179 . p2p3*p4p6-fmc*hbcm*p2p3*p5p6+3*fmc*hbcm*p2p5*p3p6+hbcm2*p2p4*
3180 . p4p6+hbcm2*p2p4*p5p6-2*p1p2*p3p4*p3p6-p2p3*p3p4*p4p6-p2p3*p3p4
3181 . *p5p6+2*p2p5*p3p4*p3p6))+(32*p3p6*(fb3*fmb*fmc-fb3*fmb*hbcm-
3182 . fb3*fmc*hbcm+fb3*fmc2+fb4*fmb*fmc+fb4*fmb2)+64*(2*fb4*p1p2*
3183 . p3p6+fb4*p2p3*p4p6+fb4*p2p3*p5p6-2*fb4*p2p5*p3p6)))
3184 b(9)=ans
3185 ans4=16*(-2*fmc*hbcm2*p1p2*p6p8+2*fmc*hbcm2*p2p5*p6p8-fmc*hbcm2
3186 . *p2p8*p4p6-fmc*hbcm2*p2p8*p5p6-3*hbcm*p1p2*p3p4*p6p8+3*hbcm*
3187 . p1p2*p3p6*p4p8+2*hbcm*p1p3*p2p4*p6p8-2*hbcm*p1p8*p2p4*p3p6+2*
3188 . hbcm*p2p3*p2p4*p6p8+hbcm*p2p3*p4p6*p4p8+hbcm*p2p3*p4p8*p5p6-2*
3189 . hbcm*p2p4*p2p8*p3p6-2*hbcm*p2p4*p3p5*p6p8+2*hbcm*p2p4*p3p6*
3190 . p5p8+3*hbcm*p2p5*p3p4*p6p8-3*hbcm*p2p5*p3p6*p4p8-hbcm*p2p8*
3191 . p3p4*p4p6-hbcm*p2p8*p3p4*p5p6)
3192 ans3=16*(p3p6*p3p4*p2p8)*(2*fmc-hbcm)+16*(p6p8*p3p4*p2p3)*(-2*
3193 . fmc+hbcm)+16*(p5p8*p3p6*p3p4)*(-fmb-fmc+hbcm)+16*(p6p8*p3p5*
3194 . p3p4)*(fmb+fmc-hbcm)+16*(p3p6*p3p4*p1p8)*(fmb+fmc-hbcm)+16*(
3195 . p6p8*p3p4*p1p3)*(-fmb-fmc+hbcm)+8*(p5p6*p4p8)*(-fmb*hbcm2-fmc*
3196 . hbcm2+hbcm3)+8*(p4p8*p4p6)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+16*(
3197 . p4p8*p3p6)*(-fmb*hbcm2+fmb2*hbcm+fmc*hbcm2-fmc2*hbcm)+8*(p6p8*
3198 . p3p4)*(3*fmb*hbcm2-2*fmb2*hbcm-fmc*hbcm2+2*fmc2*hbcm-hbcm3)+16
3199 . *(p6p8*p2p4)*(-fmb*hbcm2+fmc*hbcm2-hbcm3)+8*p6p8*(3*fmb*fmc*
3200 . hbcm3-fmb2*fmc*hbcm2-2*fmc*hbcm4+fmc2*hbcm3+fmc3*hbcm2)+32*(
3201 . p5p8*p3p6)*(-fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+32*(p6p8*p3p5)*
3202 . (fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+16*(p3p6*p2p8)*(fmb*fmc*
3203 . hbcm-2*fmc*hbcm2+3*fmc2*hbcm)+16*(p6p8*p2p3)*(-fmb*fmc*hbcm+2*
3204 . fmc*hbcm2-3*fmc2*hbcm)+32*(p3p6*p1p8)*(fmb*fmc*hbcm-fmc*hbcm2+
3205 . fmc2*hbcm)+32*(p6p8*p1p3)*(-fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+
3206 . ans4
3207 ans2=w1*ans3
3208 ans5=(64*(p5p8*p3p6)*(fb3*fmc-fb3*hbcm+fb4*fmb)+64*(p6p8*p3p5)*
3209 . (-fb3*fmc+fb3*hbcm-fb4*fmb)+64*(p3p6*p2p8)*(-fb3*fmc+fb3*hbcm-
3210 . fb4*fmc)+64*(p6p8*p2p3)*(fb3*fmc-fb3*hbcm+fb4*fmc)+64*(p3p6*
3211 . p1p8)*(-fb3*fmc+fb3*hbcm-fb4*fmb)+64*(p6p8*p1p3)*(fb3*fmc-fb3*
3212 . hbcm+fb4*fmb)+32*p6p8*(-fb3*fmc*hbcm2+fb3*hbcm3-fb4*fmb*hbcm2)
3213 . +64*(fb3*hbcm*p1p2*p6p8-fb3*hbcm*p2p5*p6p8+fb3*hbcm*p2p8*p4p6+
3214 . fb3*hbcm*p2p8*p5p6))
3215 ans1=w8*(16*p6p8*(-2*fmc*p2p3s2+hbcm*p2p3s2)+16*(p3p6*p2p8*p2p3
3216 . )*(2*fmc-hbcm)+16*(p5p8*p3p6*p2p3)*(-fmb-fmc+hbcm)+16*(p6p8*
3217 . p3p5*p2p3)*(fmb+fmc-hbcm)+16*(p3p6*p2p3*p1p8)*(fmb+fmc-hbcm)+
3218 . 16*(p6p8*p2p3*p1p3)*(-fmb-fmc+hbcm)+8*(p5p6*p2p8)*(fmb*hbcm2+
3219 . fmc*hbcm2-hbcm3)+8*(p4p6*p2p8)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+16*
3220 . (p3p6*p2p8)*(fmb*hbcm2-fmb2*hbcm-fmc*hbcm2+fmc2*hbcm)+16*(p6p8
3221 . *p2p5)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+8*(p6p8*p2p3)*(-fmb*hbcm2+
3222 . 2*fmb2*hbcm+3*fmc*hbcm2-2*fmc2*hbcm-hbcm3)+16*(p6p8*p1p2)*(fmb
3223 . *hbcm2+fmc*hbcm2-hbcm3)+16*(hbcm*p1p2*p2p3*p6p8-hbcm*p1p2*p2p8
3224 . *p3p6-hbcm*p2p3*p2p5*p6p8+hbcm*p2p5*p2p8*p3p6))+ans2+ans5
3225 ans=ccc*ans1
3226 b(10)=ans
3227 ans4=16*(2*fmc*hbcm2*p1p2*p6p7-2*fmc*hbcm2*p2p5*p6p7+3*hbcm*
3228 . p1p2*p3p4*p6p7-2*hbcm*p1p2*p3p6*p4p7-2*hbcm*p1p3*p2p4*p6p7-2*
3229 . hbcm*p2p3*p2p4*p6p7+2*hbcm*p2p4*p3p5*p6p7-2*hbcm*p2p4*p3p6*
3230 . p5p7-3*hbcm*p2p5*p3p4*p6p7+2*hbcm*p2p5*p3p6*p4p7)
3231 ans3=16*(p6p7*p3p4*p2p3)*(2*fmc-hbcm)+16*(p5p6*p3p7*p3p4)*(-fmb
3232 . -2*fmc+2*hbcm)+16*(p4p6*p3p7*p3p4)*(-fmb-2*fmc+2*hbcm)+16*(
3233 . p5p7*p3p6*p3p4)*(fmb+fmc-hbcm)+16*(p6p7*p3p5*p3p4)*(-fmb-fmc+
3234 . hbcm)+16*(p6p7*p3p4*p1p3)*(fmb+fmc-hbcm)+16*(p5p6*p4p7)*(fmb*
3235 . hbcm2+fmc*hbcm2-hbcm3)+16*(p4p7*p4p6)*(fmb*hbcm2+fmc*hbcm2-
3236 . hbcm3)+16*(p4p7*p3p6)*(fmb*hbcm2-fmb2*hbcm-fmc*hbcm2+fmc2*hbcm
3237 . )+8*(p6p7*p3p4)*(-3*fmb*hbcm2+2*fmb2*hbcm+fmc*hbcm2-2*fmc2*
3238 . hbcm+hbcm3)+16*(p6p7*p2p4)*(fmb*hbcm2-fmc*hbcm2+hbcm3)+8*p6p7*
3239 . (-3*fmb*fmc*hbcm3+fmb2*fmc*hbcm2+2*fmc*hbcm4-fmc2*hbcm3-fmc3*
3240 . hbcm2)+16*(p5p6*p3p7)*(-fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+16*(
3241 . p4p6*p3p7)*(-fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+32*(p5p7*p3p6)*
3242 . (fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+16*(p3p7*p3p6)*(fmb*fmc*
3243 . hbcm-fmb*fmc2-fmc2*hbcm+fmc3)+32*(p6p7*p3p5)*(-fmb*fmc*hbcm+
3244 . fmc*hbcm2-fmc2*hbcm)+16*(p6p7*p2p3)*(fmb*fmc*hbcm-2*fmc*hbcm2+
3245 . 3*fmc2*hbcm)+32*(p6p7*p1p3)*(fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)
3246 . +ans4
3247 ans2=w1*ans3
3248 ans5=(8*(p5p6*p3p7)*(8*fb4*fmb+hbcm)+8*(p4p6*p3p7)*(8*fb4*fmb+
3249 . hbcm)+64*(p5p7*p3p6)*(-fb3*fmc+fb3*hbcm-fb4*fmb)+64*(p6p7*p3p5
3250 . )*(fb3*fmc-fb3*hbcm+fb4*fmb)+64*(p6p7*p2p3)*(-fb3*fmc+fb3*hbcm
3251 . -fb4*fmc)+64*(p6p7*p1p3)*(-fb3*fmc+fb3*hbcm-fb4*fmb)+32*p6p7*(
3252 . fb3*fmc*hbcm2-fb3*hbcm3+fb4*fmb*hbcm2)+64*(-fb3*hbcm*p1p2*p6p7
3253 . +fb3*hbcm*p2p5*p6p7))
3254 ans1=w8*(32*(p3p7*p3p6*p2p5)*(-fmc+hbcm)+16*p6p7*(2*fmc*p2p3s2-
3255 . hbcm*p2p3s2)+32*(p3p7*p3p6*p1p2)*(fmc-hbcm)+16*(p5p7*p3p6*p2p3
3256 . )*(fmb+fmc-hbcm)+16*(p6p7*p3p5*p2p3)*(-fmb-fmc+hbcm)+16*(p6p7*
3257 . p2p3*p1p3)*(fmb+fmc-hbcm)+16*(p6p7*p2p5)*(fmb*hbcm2+fmc*hbcm2-
3258 . hbcm3)+8*(p6p7*p2p3)*(fmb*hbcm2-2*fmb2*hbcm-3*fmc*hbcm2+2*fmc2
3259 . *hbcm+hbcm3)+16*(p6p7*p1p2)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+16*(-
3260 . fmb*p2p3*p3p7*p4p6-fmb*p2p3*p3p7*p5p6-hbcm*p1p2*p2p3*p6p7+hbcm
3261 . *p2p3*p2p5*p6p7))+ans2+ans5
3262 ans=ccc*ans1
3263 b(11)=ans
3264 ans4=8*(p6p7*p2p8)*(2*fmb*fmc*hbcm2-3*fmb*hbcm3+fmb2*hbcm2-3*
3265 . fmc*hbcm3+fmc2*hbcm2+2*hbcm4-4*p2p3s2)+32*(p1p2*p2p3*p3p6*p7p8
3266 . -p1p2*p2p3*p3p7*p6p8+p1p3*p2p3*p2p8*p6p7-p1p8*p2p3s2*p6p7-p2p3
3267 . *p2p5*p3p6*p7p8+p2p3*p2p5*p3p7*p6p8-p2p3*p2p8*p3p5*p6p7-p2p3*
3268 . p2p8*p3p6*p3p7+p2p3*p2p8*p3p6*p5p7-2*p2p3*p2p8*p3p7*p4p6-2*
3269 . p2p3*p2p8*p3p7*p5p6-p2p3s2*p3p7*p6p8+p2p3s2*p4p6*p7p8-2*p2p3s2
3270 . *p4p7*p6p8+2*p2p3s2*p4p8*p6p7+p2p3s2*p5p6*p7p8-p2p3s2*p5p7*
3271 . p6p8+p2p3s2*p5p8*p6p7)
3272 ans3=48*(p5p6*p3p7*p2p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+48*(p4p6*
3273 . p3p7*p2p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p5p7*p3p6*p2p8)*(fmb
3274 . *hbcm+fmc*hbcm-hbcm2)+32*(p6p7*p3p5*p2p8)*(-fmb*hbcm-fmc*hbcm+
3275 . hbcm2)+32*(p6p8*p3p7*p2p5)*(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p7p8*
3276 . p3p6*p2p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p6p7*p5p8*p2p3)*(fmb
3277 . *hbcm+fmc*hbcm-hbcm2)+32*(p6p8*p5p7*p2p3)*(-fmb*hbcm-fmc*hbcm+
3278 . hbcm2)+16*(p7p8*p5p6*p2p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+64*(p6p7*
3279 . p4p8*p2p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+64*(p6p8*p4p7*p2p3)*(-fmb
3280 . *hbcm-fmc*hbcm+hbcm2)+16*(p7p8*p4p6*p2p3)*(fmb*hbcm+fmc*hbcm-
3281 . hbcm2)+16*(p6p7*p2p8*p2p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p6p7
3282 . *p2p3*p1p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p6p7*p2p8*p1p3)*(
3283 . fmb*hbcm+fmc*hbcm-hbcm2)+32*(p6p8*p3p7*p1p2)*(-fmb*hbcm-fmc*
3284 . hbcm+hbcm2)+32*(p7p8*p3p6*p1p2)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(
3285 . p3p7*p3p6*p2p8)*(-fmb*fmc-fmb*hbcm-fmc*hbcm-fmc2+2*hbcm2)+16*(
3286 . p6p8*p3p7*p2p3)*(-fmb*fmc-fmb*hbcm-fmc*hbcm-fmc2+2*hbcm2)+ans4
3287 ans2=w8*ans3
3288 ans8=32*(2*fmc*hbcm*p1p2*p3p6*p7p8-2*fmc*hbcm*p1p2*p3p7*p6p8+2*
3289 . fmc*hbcm*p1p3*p2p8*p6p7-2*fmc*hbcm*p1p8*p2p3*p6p7-fmc*hbcm*
3290 . p2p3*p2p8*p6p7+fmc*hbcm*p2p3*p4p6*p7p8+fmc*hbcm*p2p3*p5p6*p7p8
3291 . -2*fmc*hbcm*p2p3*p5p7*p6p8+2*fmc*hbcm*p2p3*p5p8*p6p7-2*fmc*
3292 . hbcm*p2p5*p3p6*p7p8+2*fmc*hbcm*p2p5*p3p7*p6p8-2*fmc*hbcm*p2p8*
3293 . p3p5*p6p7-fmc*hbcm*p2p8*p3p6*p3p7+2*fmc*hbcm*p2p8*p3p6*p5p7-2*
3294 . fmc*hbcm*p2p8*p3p7*p4p6-2*fmc*hbcm*p2p8*p3p7*p5p6-hbcm2*p1p2*
3295 . p4p7*p6p8+hbcm2*p1p2*p4p8*p6p7-hbcm2*p1p8*p2p4*p6p7-hbcm2*p2p4
3296 . *p4p6*p7p8-hbcm2*p2p4*p5p6*p7p8-hbcm2*p2p4*p5p7*p6p8+hbcm2*
3297 . p2p4*p5p8*p6p7+hbcm2*p2p5*p4p7*p6p8-hbcm2*p2p5*p4p8*p6p7+hbcm2
3298 . *p2p8*p4p6*p4p7+hbcm2*p2p8*p4p7*p5p6+p1p2*p3p4*p3p6*p7p8-p1p2*
3299 . p3p4*p3p7*p6p8+p1p3*p2p8*p3p4*p6p7-p1p8*p2p3*p3p4*p6p7-p2p3*
3300 . p2p8*p3p4*p6p7-p2p3*p3p4*p3p7*p6p8+p2p3*p3p4*p4p6*p7p8-2*p2p3*
3301 . p3p4*p4p7*p6p8+2*p2p3*p3p4*p4p8*p6p7+p2p3*p3p4*p5p6*p7p8-p2p3*
3302 . p3p4*p5p7*p6p8+p2p3*p3p4*p5p8*p6p7-p2p5*p3p4*p3p6*p7p8+p2p5*
3303 . p3p4*p3p7*p6p8-p2p8*p3p4*p3p5*p6p7-p2p8*p3p4*p3p6*p3p7+p2p8*
3304 . p3p4*p3p6*p5p7-2*p2p8*p3p4*p3p7*p4p6-2*p2p8*p3p4*p3p7*p5p6)
3305 ans7=32*(p6p7*p3p4*p1p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p6p7*
3306 . p4p8*p1p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p6p8*p4p7*p1p3)*(-fmb
3307 . *hbcm-fmc*hbcm+hbcm2)+16*(p6p8*p3p7)*(-2*fmb*fmc2*hbcm-fmb2*
3308 . fmc*hbcm+fmc2*hbcm2-fmc3*hbcm)+16*(p4p8*p3p7*p3p6)*(-fmb*fmc+3
3309 . *fmb*hbcm+3*fmc*hbcm-fmc2-2*hbcm2)+16*(p6p8*p3p7*p3p4)*(fmb*
3310 . fmc-3*fmb*hbcm-3*fmc*hbcm+fmc2+2*hbcm2)+16*(p6p7*p5p8)*(fmb*
3311 . fmc*hbcm2-fmc*hbcm3+fmc2*hbcm2)+16*(p6p8*p5p7)*(-fmb*fmc*hbcm2
3312 . +fmc*hbcm3-fmc2*hbcm2)+8*(p6p7*p4p8)*(2*fmb*fmc*hbcm2-3*fmb*
3313 . hbcm3+fmb2*hbcm2-3*fmc*hbcm3+fmc2*hbcm2+2*hbcm4)+16*(p6p8*p4p7
3314 . )*(-2*fmb*fmc*hbcm2+2*fmb*hbcm3-fmb2*hbcm2+2*fmc*hbcm3-fmc2*
3315 . hbcm2-hbcm4)+16*(p7p8*p3p6)*(-fmb*fmc*hbcm2+2*fmb*fmc2*hbcm+
3316 . fmb2*fmc*hbcm-fmc2*hbcm2+fmc3*hbcm)+16*(p6p7*p2p8)*(-fmb*fmc*
3317 . hbcm2-2*fmc*hbcm3-fmc2*hbcm2)+16*(p6p7*p1p8)*(-fmb*fmc*hbcm2+
3318 . fmc*hbcm3-fmc2*hbcm2)+ans8
3319 ans6=32*(p5p8*p3p7*p3p6)*(fmc*hbcm-fmc2)+32*(p6p8*p3p7*p3p5)*(-
3320 . fmc*hbcm+fmc2)+32*(p6p8*p3p7*p2p3)*(-fmc*hbcm-fmc2)+32*(p3p7*
3321 . p3p6*p1p8)*(-fmc*hbcm+fmc2)+32*(p6p8*p3p7*p1p3)*(fmc*hbcm-fmc2
3322 . )+16*(p5p6*p4p8*p3p7)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p4p8*p4p6*
3323 . p3p7)*(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p5p7*p4p8*p3p6)*(fmb*hbcm+
3324 . fmc*hbcm-hbcm2)+32*(p5p8*p4p7*p3p6)*(-fmb*hbcm-fmc*hbcm+hbcm2)
3325 . +32*(p6p7*p4p8*p3p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p6p8*p4p7*
3326 . p3p5)*(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p6p7*p5p8*p3p4)*(fmb*hbcm+
3327 . fmc*hbcm-hbcm2)+32*(p6p8*p5p7*p3p4)*(-fmb*hbcm-fmc*hbcm+hbcm2)
3328 . +16*(p7p8*p5p6*p3p4)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p7p8*p4p6*
3329 . p3p4)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p4p7*p3p6*p2p8)*(fmb*hbcm
3330 . +fmc*hbcm)+16*(p6p7*p3p4*p2p8)*(-2*fmb*hbcm-2*fmc*hbcm-hbcm2)+
3331 . 32*(p6p8*p3p7*p2p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p7p8*p3p6*
3332 . p2p4)*(-fmb*hbcm-fmc*hbcm)+16*(p6p7*p4p8*p2p3)*(fmb*hbcm+7*fmc
3333 . *hbcm-2*hbcm2)+32*(p6p8*p4p7*p2p3)*(-fmb*hbcm-4*fmc*hbcm+hbcm2
3334 . )+32*(p4p7*p3p6*p1p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+ans7
3335 ans5=w1*ans6
3336 ans9=(8*(p7p8*p3p6)*(fmb*hbcm+fmc*hbcm)+16*(p7p8*p5p6)*(-4*fb3*
3337 . fmb*hbcm-4*fb4*fmc*hbcm+4*fb4*hbcm2+hbcm2)+16*(p7p8*p4p6)*(-4*
3338 . fb3*fmb*hbcm-4*fb4*fmc*hbcm+4*fb4*hbcm2+hbcm2)+8*(p6p8*p3p7)*(
3339 . 8*fb3*fmb*fmc-8*fb3*fmb*hbcm-8*fb3*fmc*hbcm+8*fb3*fmc2-fmb*
3340 . hbcm-fmc*hbcm)+64*(fb4*hbcm2*p2p8*p6p7-2*fb4*p1p2*p3p6*p7p8+2*
3341 . fb4*p1p2*p3p7*p6p8-2*fb4*p1p3*p2p8*p6p7+2*fb4*p1p8*p2p3*p6p7+2
3342 . *fb4*p2p3*p2p8*p6p7+2*fb4*p2p3*p3p7*p6p8-2*fb4*p2p3*p4p6*p7p8+
3343 . 4*fb4*p2p3*p4p7*p6p8-4*fb4*p2p3*p4p8*p6p7-2*fb4*p2p3*p5p6*p7p8
3344 . +2*fb4*p2p3*p5p7*p6p8-2*fb4*p2p3*p5p8*p6p7+2*fb4*p2p5*p3p6*
3345 . p7p8-2*fb4*p2p5*p3p7*p6p8+2*fb4*p2p8*p3p5*p6p7+2*fb4*p2p8*p3p6
3346 . *p3p7-2*fb4*p2p8*p3p6*p5p7+4*fb4*p2p8*p3p7*p4p6+4*fb4*p2p8*
3347 . p3p7*p5p6))
3348 ans1=ans2+ans5+ans9
3349 ans=ccc*ans1
3350 b(12)=ans
3351 ans=ccc*(w8*(8*(p2p8*p2p3)*(-2*fmc+hbcm)+8*(p5p8*p2p3)*(fmb+fmc
3352 . -hbcm)+8*(p2p3*p1p8)*(-fmb-fmc+hbcm)+4*p2p8*(-fmb*hbcm2+2*fmb2
3353 . *hbcm+3*fmc*hbcm2-2*fmc2*hbcm-hbcm3)+8*(hbcm*p1p2*p2p8-hbcm*
3354 . p2p5*p2p8))+w1*(8*(p5p8*p3p4)*(fmb+fmc-hbcm)+8*(p3p4*p1p8)*(-
3355 . fmb-fmc+hbcm)+4*p4p8*(fmb*hbcm2-2*fmb2*hbcm-3*fmc*hbcm2+2*fmc2
3356 . *hbcm+hbcm3)+16*p5p8*(fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+8*p2p8
3357 . *(-fmb*fmc*hbcm+fmc*hbcm2-3*fmc2*hbcm)+16*p1p8*(-fmb*fmc*hbcm+
3358 . fmc*hbcm2-fmc2*hbcm)+8*(-2*fmc*p2p8*p3p4-3*hbcm*p1p2*p4p8+2*
3359 . hbcm*p1p8*p2p4+hbcm*p2p3*p4p8+2*hbcm*p2p4*p2p8-2*hbcm*p2p4*
3360 . p5p8+3*hbcm*p2p5*p4p8))+(32*p5p8*(-fb3*fmc+fb3*hbcm-fb4*fmb)+
3361 . 32*p2p8*(fb3*fmc+fb4*fmc)+32*p1p8*(fb3*fmc-fb3*hbcm+fb4*fmb)))
3362 b(13)=ans
3363 b(14)=ccc*(w8*(16*p2p5*(fmb*hbcm+fmc*hbcm-hbcm2)+16*p1p2*(-fmb*
3364 . hbcm-fmc*hbcm+hbcm2)+4*p2p3*(-2*fmb*fmc+3*fmb*hbcm-fmb2+3*fmc*
3365 . hbcm-fmc2-2*hbcm2)+8*(-2*p1p2*p2p3+2*p2p3*p2p5+p2p3s2))+w1*(8*
3366 . p2p4*(fmb*hbcm+fmc*hbcm-hbcm2)+4*p3p4*(-2*fmb*fmc-fmb*hbcm-
3367 . fmb2-fmc*hbcm-fmc2+2*hbcm2)+4*(fmb*fmc*hbcm2-4*fmb*fmc2*hbcm-2
3368 . *fmb2*fmc*hbcm-6*fmc*hbcm*p1p2+2*fmc*hbcm*p2p3+6*fmc*hbcm*p2p5
3369 . +fmc*hbcm3+fmc2*hbcm2-2*fmc3*hbcm-4*p1p2*p3p4+2*p2p3*p3p4+4*
3370 . p2p5*p3p4))+16*(fb3*fmb*fmc-fb3*fmb*hbcm-fb3*fmc*hbcm+fb3*fmc2
3371 . +fb4*fmb*fmc+fb4*fmb2+4*fb4*p1p2-2*fb4*p2p3-4*fb4*p2p5))
3372 ans2=w1*(16*(p4p8*p3p5)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p5p8*p3p4
3373 . )*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p3p4*p2p8)*(fmb*hbcm+fmc*hbcm-
3374 . 3*hbcm2)+8*(p4p8*p2p3)*(-fmb*hbcm-fmc*hbcm+2*hbcm2)+16*(p3p4*
3375 . p1p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p4p8*p1p3)*(-fmb*hbcm-fmc*
3376 . hbcm+hbcm2)+8*p5p8*(-fmb*fmc*hbcm2+fmc*hbcm3-fmc2*hbcm2)+4*
3377 . p4p8*(-2*fmb*fmc*hbcm2+3*fmb*hbcm3-fmb2*hbcm2+3*fmc*hbcm3-fmc2
3378 . *hbcm2-2*hbcm4)+8*p1p8*(fmb*fmc*hbcm2-fmc*hbcm3+fmc2*hbcm2)+16
3379 . *(fmc*hbcm*p1p3*p2p8-fmc*hbcm*p1p8*p2p3+fmc*hbcm*p2p3*p5p8-fmc
3380 . *hbcm*p2p8*p3p5-fmc*hbcm3*p2p8-hbcm2*p1p2*p4p8+hbcm2*p1p8*p2p4
3381 . +hbcm2*p2p4*p2p8-hbcm2*p2p4*p5p8+hbcm2*p2p5*p4p8+p1p3*p2p8*
3382 . p3p4-p1p8*p2p3*p3p4+p2p3*p3p4*p5p8-p2p8*p3p4*p3p5))+(32*p2p8*(
3383 . fb3*fmb*hbcm+fb3*fmc*hbcm+fb4*hbcm2)+64*(-fb4*p1p3*p2p8+fb4*
3384 . p1p8*p2p3-fb4*p2p3*p5p8+fb4*p2p8*p3p5))
3385 ans1=w8*(16*(p3p5*p2p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p5p8*
3386 . p2p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p2p3*p1p8)*(-fmb*hbcm-fmc*
3387 . hbcm+hbcm2)+16*(p2p8*p1p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+4*p2p8*(2
3388 . *fmb*fmc*hbcm2-3*fmb*hbcm3+fmb2*hbcm2-3*fmc*hbcm3+fmc2*hbcm2+2
3389 . *hbcm4)+8*(-hbcm2*p2p3*p2p8+2*p1p3*p2p3*p2p8-2*p1p8*p2p3s2-2*
3390 . p2p3*p2p8*p3p5+2*p2p3s2*p5p8))+ans2
3391 ans=ccc*ans1
3392 b(15)=ans
3393 ans=ccc*(w8*(8*(p3p5*p2p3)*(-fmb-fmc+hbcm)+8*(p2p3*p1p3)*(fmb+
3394 . fmc-hbcm)+8*p2p5*(fmb*hbcm2+fmc*hbcm2-hbcm3)+4*p2p3*(fmb*hbcm2
3395 . -2*fmb2*hbcm-3*fmc*hbcm2+2*fmc2*hbcm+hbcm3)+8*p1p2*(-fmb*hbcm2
3396 . -fmc*hbcm2+hbcm3)+8*(2*fmc*p2p3s2-hbcm*p1p2*p2p3+hbcm*p2p3*
3397 . p2p5-hbcm*p2p3s2))+w1*(8*(p3p4*p2p3)*(2*fmc-hbcm)+8*(p3p5*p3p4
3398 . )*(-fmb-fmc+hbcm)+8*(p3p4*p1p3)*(fmb+fmc-hbcm)+4*p3p4*(-3*fmb*
3399 . hbcm2+2*fmb2*hbcm+fmc*hbcm2-2*fmc2*hbcm+hbcm3)+8*p2p4*(fmb*
3400 . hbcm2-fmc*hbcm2+hbcm3)+16*p3p5*(-fmb*fmc*hbcm+fmc*hbcm2-fmc2*
3401 . hbcm)+8*p2p3*(fmb*fmc*hbcm-2*fmc*hbcm2+3*fmc2*hbcm)+16*p1p3*(
3402 . fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+4*(-3*fmb*fmc*hbcm3+fmb2*fmc
3403 . *hbcm2+4*fmc*hbcm2*p1p2-4*fmc*hbcm2*p2p5+2*fmc*hbcm4-fmc2*
3404 . hbcm3-fmc3*hbcm2+6*hbcm*p1p2*p3p4-4*hbcm*p1p3*p2p4-4*hbcm*p2p3
3405 . *p2p4+4*hbcm*p2p4*p3p5-6*hbcm*p2p5*p3p4))+(32*p3p5*(fb3*fmc-
3406 . fb3*hbcm+fb4*fmb)+32*p2p3*(-fb3*fmc+fb3*hbcm-fb4*fmc)+32*p1p3*
3407 . (-fb3*fmc+fb3*hbcm-fb4*fmb)+16*(fb3*fmc*hbcm2-2*fb3*hbcm*p1p2+
3408 . 2*fb3*hbcm*p2p5-fb3*hbcm3+fb4*fmb*hbcm2)))
3409 b(16)=ans
3410 b(17)=ccc*(w8*(8*(p6p8*p2p3)*(-fmb+3*fmc-2*hbcm)+8*p6p8*(fmb*
3411 . hbcm2-2*fmb2*hbcm-3*fmc*hbcm2+2*fmc2*hbcm+hbcm3)+8*(hbcm*p2p8*
3412 . p3p6+hbcm*p2p8*p4p6+hbcm*p2p8*p5p6))+w1*(8*(p6p8*p3p4)*(-fmb+3
3413 . *fmc+2*hbcm)+8*p6p8*(-fmb*fmc*hbcm+5*fmc2*hbcm)+8*(-2*hbcm*
3414 . p2p4*p6p8-3*hbcm*p3p6*p4p8-3*hbcm*p4p6*p4p8-3*hbcm*p4p8*p5p6))
3415 . +32*p6p8*(-fb3*fmc+fb4*fmb-2*fb4*fmc))
3416 b(18)=ccc*(8*w1*(3*fmc*hbcm*p3p6+3*fmc*hbcm*p4p6+3*fmc*hbcm*
3417 . p5p6+2*p3p4*p3p6+2*p3p4*p4p6+2*p3p4*p5p6)+w8*(16*p5p6*(fmb*
3418 . hbcm+fmc*hbcm-hbcm2)+16*p4p6*(fmb*hbcm+fmc*hbcm-hbcm2)+16*p3p6
3419 . *(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p2p3*p3p6+p2p3*p4p6+p2p3*p5p6))
3420 . +64*(-fb4*p3p6-fb4*p4p6-fb4*p5p6))
3421 b(19)=ccc*(w1*(4*p4p8*(-fmb*hbcm2+3*fmc*hbcm2-4*hbcm3)+8*(-2*
3422 . fmc*hbcm2*p1p8-fmc*hbcm2*p2p8+2*fmc*hbcm2*p5p8+3*hbcm*p1p3*
3423 . p4p8-3*hbcm*p1p8*p3p4+2*hbcm*p2p3*p4p8-2*hbcm*p2p8*p3p4+3*hbcm
3424 . *p3p4*p5p8-3*hbcm*p3p5*p4p8))+w8*(8*p5p8*(-fmb*hbcm2-fmc*hbcm2
3425 . +hbcm3)+4*p2p8*(fmb*hbcm2+fmc*hbcm2)+8*p1p8*(fmb*hbcm2+fmc*
3426 . hbcm2-hbcm3)+8*(-hbcm*p1p3*p2p8+hbcm*p1p8*p2p3-hbcm*p2p3*p5p8+
3427 . hbcm*p2p8*p3p5))+32*(fb3*hbcm*p1p8-fb3*hbcm*p5p8))
3428 b(20)=ccc*(w1*(4*p4p8*(-fmb*hbcm-fmc*hbcm)+8*(3*fmc*hbcm*p1p8+2
3429 . *fmc*hbcm*p2p8-3*fmc*hbcm*p5p8+2*p1p8*p3p4+p2p8*p3p4-2*p3p4*
3430 . p5p8))+w8*(16*p5p8*(-fmb*hbcm-fmc*hbcm+hbcm2)+4*p2p8*(3*fmb*
3431 . hbcm+3*fmc*hbcm-2*hbcm2)+16*p1p8*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(
3432 . 2*p1p8*p2p3+p2p3*p2p8-2*p2p3*p5p8))+32*(-2*fb4*p1p8-fb4*p2p8+2
3433 . *fb4*p5p8))
3434 b(21)=ccc*(w1*(8*(p4p8*p3p7)*(fmc-2*hbcm)+8*(2*fmc*p3p4*p7p8+2*
3435 . fmc2*hbcm*p7p8-2*hbcm*p1p8*p4p7-2*hbcm*p2p8*p4p7+2*hbcm*p4p7*
3436 . p5p8-3*hbcm*p4p8*p5p7))+w8*(16*(p5p8*p3p7)*(-fmc+hbcm)+16*(
3437 . p7p8*p2p3)*(fmc-hbcm)+16*(p3p7*p1p8)*(fmc-hbcm)+8*p7p8*(-fmb2*
3438 . hbcm-2*fmc*hbcm2+fmc2*hbcm+hbcm3)+8*(fmc*p2p8*p3p7+hbcm*p2p8*
3439 . p5p7))+4*p7p8*(-8*fb3*fmc-8*fb4*fmc-hbcm))
3440 b(22)=ccc*(w8*(4*p2p3*(-fmb+3*fmc-2*hbcm)+4*(fmb*hbcm2-2*fmb2*
3441 . hbcm-3*fmc*hbcm2+2*fmc2*hbcm+hbcm3))+w1*(4*p3p4*(-fmb+3*fmc+2*
3442 . hbcm)+4*(-fmb*fmc*hbcm+5*fmc2*hbcm-2*hbcm*p2p4))+16*(-fb3*fmc+
3443 . fb4*fmb-2*fb4*fmc))
3444 b(23)=ccc*(w1*(8*p3p7*(-2*fmc*hbcm+fmc2)+8*(-3*fmc*hbcm*p5p7-
3445 . p3p4*p3p7-2*p3p4*p5p7))+w8*(16*p5p7*(-fmb*hbcm-fmc*hbcm+hbcm2)
3446 . +8*p3p7*(fmb*fmc-2*fmb*hbcm-2*fmc*hbcm+fmc2+hbcm2)+8*(-p2p3*
3447 . p3p7-2*p2p3*p5p7))+32*(fb4*p3p7+2*fb4*p5p7))
3448 b(24)=ccc*(w8*(16*p3p5*(fmb*hbcm+fmc*hbcm-hbcm2)+4*p2p3*(-3*fmb
3449 . *hbcm-3*fmc*hbcm+4*hbcm2)+16*p1p3*(-fmb*hbcm-fmc*hbcm+hbcm2)+4
3450 . *(-2*fmb*fmc*hbcm2+3*fmb*hbcm3-fmb2*hbcm2+3*fmc*hbcm3-fmc2*
3451 . hbcm2-2*hbcm4-4*p1p3*p2p3+4*p2p3*p3p5-2*p2p3s2))+w1*(4*p3p4*(
3452 . fmb*hbcm+fmc*hbcm+4*hbcm2)+4*(fmb*fmc*hbcm2-6*fmc*hbcm*p1p3-4*
3453 . fmc*hbcm*p2p3+6*fmc*hbcm*p3p5+4*fmc*hbcm3+fmc2*hbcm2-2*hbcm2*
3454 . p2p4-4*p1p3*p3p4-2*p2p3*p3p4+4*p3p4*p3p5))+16*(-fb3*fmb*hbcm-
3455 . fb3*fmc*hbcm-2*fb4*hbcm2+4*fb4*p1p3+2*fb4*p2p3-4*fb4*p3p5))
3456 b(25)=ccc*(w1*(8*(p3p7*p3p4)*(-3*fmc+2*hbcm)+16*p4p7*(fmc*hbcm2
3457 . -hbcm3)+8*p3p7*(fmc*hbcm2-2*fmc2*hbcm)+8*(2*fmc*hbcm2*p5p7+2*
3458 . hbcm*p1p3*p4p7+2*hbcm*p2p3*p4p7+3*hbcm*p3p4*p5p7-2*hbcm*p3p5*
3459 . p4p7))+w8*(16*(p3p7*p3p5)*(fmc-hbcm)+8*(p3p7*p2p3)*(-3*fmc+2*
3460 . hbcm)+16*(p3p7*p1p3)*(-fmc+hbcm)+8*p5p7*(-fmb*hbcm2-fmc*hbcm2+
3461 . hbcm3)+8*p3p7*(-fmb*hbcm2+fmb2*hbcm+2*fmc*hbcm2-fmc2*hbcm-
3462 . hbcm3)-8*hbcm*p2p3*p5p7)+(4*p3p7*(8*fb4*fmc+hbcm)-32*fb3*hbcm*
3463 . p5p7))
3464 b(26)=ccc*(w8*(8*(p3p6*p2p3)*(fmb-3*fmc+hbcm)+8*p5p6*(-fmb*
3465 . hbcm2-fmc*hbcm2+hbcm3)+8*p4p6*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+16*
3466 . p3p6*(-fmb*hbcm2+fmb2*hbcm+fmc*hbcm2-fmc2*hbcm)+8*(-hbcm*p2p3*
3467 . p4p6-hbcm*p2p3*p5p6))+w1*(8*(p3p6*p3p4)*(fmb-3*fmc+hbcm)+8*
3468 . p3p6*(fmb*fmc*hbcm+2*fmc*hbcm2-5*fmc2*hbcm)+8*(2*fmc*hbcm2*
3469 . p4p6+2*fmc*hbcm2*p5p6+2*hbcm*p2p4*p3p6+3*hbcm*p3p4*p4p6+3*hbcm
3470 . *p3p4*p5p6))+(32*p3p6*(fb3*fmc-fb3*hbcm-fb4*fmb+2*fb4*fmc)+32*
3471 . (-fb3*hbcm*p4p6-fb3*hbcm*p5p6)))
3472 ans=ccc*(8*w1*(-2*fmc*hbcm*p1p3*p7p8+2*fmc*hbcm*p1p8*p3p7-2*fmc
3473 . *hbcm*p2p3*p7p8+2*fmc*hbcm*p2p8*p3p7+2*fmc*hbcm*p3p5*p7p8-2*
3474 . fmc*hbcm*p3p7*p5p8+2*fmc*hbcm3*p7p8-2*hbcm2*p1p8*p4p7-2*hbcm2*
3475 . p2p8*p4p7+2*hbcm2*p3p4*p7p8-hbcm2*p3p7*p4p8+2*hbcm2*p4p7*p5p8-
3476 . 2*hbcm2*p4p8*p5p7-2*p1p3*p3p4*p7p8+2*p1p8*p3p4*p3p7-2*p2p3*
3477 . p3p4*p7p8+2*p2p8*p3p4*p3p7+2*p3p4*p3p5*p7p8-2*p3p4*p3p7*p5p8)+
3478 . w8*(16*(p5p8*p3p7)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p7p8*p3p5)*(
3479 . fmb*hbcm+fmc*hbcm-hbcm2)+8*(p3p7*p2p8)*(2*fmb*hbcm+2*fmc*hbcm-
3480 . hbcm2)+16*(p7p8*p2p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p3p7*p1p8
3481 . )*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p7p8*p1p3)*(-fmb*hbcm-fmc*hbcm
3482 . +hbcm2)+8*p7p8*(-2*fmb*fmc*hbcm2+2*fmb*hbcm3-fmb2*hbcm2+2*fmc*
3483 . hbcm3-fmc2*hbcm2-hbcm4-2*p2p3s2)+16*(-p1p3*p2p3*p7p8+p1p8*p2p3
3484 . *p3p7+p2p3*p2p8*p3p7+p2p3*p3p5*p7p8-p2p3*p3p7*p5p8))+(8*p7p8*(
3485 . -4*fb3*fmc*hbcm+4*fb4*fmc*hbcm-8*fb4*hbcm2-hbcm2)+64*(fb4*p1p3
3486 . *p7p8-fb4*p1p8*p3p7+fb4*p2p3*p7p8-fb4*p2p8*p3p7-fb4*p3p5*p7p8+
3487 . fb4*p3p7*p5p8)))
3488 b(27)=ans
3489 ans=ccc*(w8*(32*(p5p8*p3p6)*(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p6p8*
3490 . p3p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p3p6*p2p8)*(-3*fmb*hbcm-3*
3491 . fmc*hbcm+2*hbcm2)+8*(p6p8*p2p3)*(-fmb*hbcm-fmc*hbcm+4*hbcm2)+
3492 . 32*(p3p6*p1p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*p6p8*(2*fmb*fmc*
3493 . hbcm2+fmb*hbcm3+fmb2*hbcm2+fmc*hbcm3+fmc2*hbcm2-2*hbcm4-2*
3494 . p2p3s2)+16*(-2*p1p8*p2p3*p3p6-p2p3*p2p8*p3p6+2*p2p3*p3p4*p6p8+
3495 . 2*p2p3*p3p6*p5p8))+w1*(8*(p4p8*p3p6)*(fmb*hbcm+fmc*hbcm+2*
3496 . hbcm2)+8*(p6p8*p3p4)*(-fmb*hbcm+5*fmc*hbcm)+8*p6p8*(-fmb*fmc*
3497 . hbcm2+2*fmc*hbcm3-fmc2*hbcm2+4*p3p4s2)+16*(-3*fmc*hbcm*p1p8*
3498 . p3p6-fmc*hbcm*p2p3*p6p8-2*fmc*hbcm*p2p8*p3p6+3*fmc*hbcm*p3p6*
3499 . p5p8+hbcm2*p2p4*p6p8+hbcm2*p4p6*p4p8+hbcm2*p4p8*p5p6-2*p1p8*
3500 . p3p4*p3p6-p2p3*p3p4*p6p8-p2p8*p3p4*p3p6+2*p3p4*p3p6*p5p8))+(32
3501 . *p6p8*(fb3*fmb*hbcm+fb3*fmc*hbcm-2*fb4*hbcm2)+64*(2*fb4*p1p8*
3502 . p3p6+fb4*p2p3*p6p8+fb4*p2p8*p3p6-2*fb4*p3p4*p6p8-2*fb4*p3p6*
3503 . p5p8)))
3504 b(28)=ans
3505 ans=ccc*(w8*(16*(p5p6*p3p7)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p4p6*
3506 . p3p7)*(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p5p7*p3p6)*(-fmb*hbcm-fmc*
3507 . hbcm+hbcm2)+32*(p6p7*p3p4)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p6p7*
3508 . p2p3)*(fmb*hbcm+fmc*hbcm-4*hbcm2)+16*(p3p7*p3p6)*(fmb*fmc-fmb*
3509 . hbcm-fmc*hbcm+fmc2)+8*p6p7*(-2*fmb*fmc*hbcm2-fmb*hbcm3-fmb2*
3510 . hbcm2-fmc*hbcm3-fmc2*hbcm2+2*hbcm4+2*p2p3s2)+16*(-2*p2p3*p3p4*
3511 . p6p7-2*p2p3*p3p6*p5p7+p2p3*p3p7*p4p6+p2p3*p3p7*p5p6))+w1*(16*(
3512 . p3p7*p3p6)*(-fmc*hbcm+fmc2)+8*(p6p7*p3p4)*(fmb*hbcm-5*fmc*hbcm
3513 . )+8*p6p7*(fmb*fmc*hbcm2-2*fmc*hbcm3+fmc2*hbcm2-4*p3p4s2)+16*(
3514 . fmc*hbcm*p2p3*p6p7-3*fmc*hbcm*p3p6*p5p7+fmc*hbcm*p3p7*p4p6+fmc
3515 . *hbcm*p3p7*p5p6-hbcm2*p2p4*p6p7-hbcm2*p3p6*p4p7-hbcm2*p4p6*
3516 . p4p7-hbcm2*p4p7*p5p6+p2p3*p3p4*p6p7-2*p3p4*p3p6*p5p7+p3p4*p3p7
3517 . *p4p6+p3p4*p3p7*p5p6))+(32*p6p7*(-fb3*fmb*hbcm-fb3*fmc*hbcm+2*
3518 . fb4*hbcm2)+64*(-fb4*p2p3*p6p7+2*fb4*p3p4*p6p7+2*fb4*p3p6*p5p7-
3519 . fb4*p3p7*p4p6-fb4*p3p7*p5p6)))
3520 b(29)=ans
3521 ans2=w8*(32*(p5p8*p3p7*p3p6)*(fmc-hbcm)+32*(p6p8*p3p7*p3p5)*(-
3522 . fmc+hbcm)+16*(p3p7*p3p6*p2p8)*(-fmc+hbcm)+16*(p6p8*p3p7*p2p3)*
3523 . (3*fmc-2*hbcm)+16*(p7p8*p3p6*p2p3)*(-2*fmc+hbcm)+32*(p3p7*p3p6
3524 . *p1p8)*(-fmc+hbcm)+32*(p6p8*p3p7*p1p3)*(fmc-hbcm)+16*(p6p7*
3525 . p5p8)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+16*(p6p8*p5p7)*(fmb*hbcm2+
3526 . fmc*hbcm2-hbcm3)+16*(p7p8*p5p6)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+
3527 . 16*(p7p8*p4p6)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+16*(p6p8*p3p7)*(
3528 . fmb*hbcm2-fmb2*hbcm-2*fmc*hbcm2+fmc2*hbcm+hbcm3)+16*(p7p8*p3p6
3529 . )*(-fmb*hbcm2+fmb2*hbcm+fmc*hbcm2-fmc2*hbcm)+8*(p6p7*p2p8)*(
3530 . fmb*hbcm2+fmc*hbcm2)+16*(p6p7*p1p8)*(fmb*hbcm2+fmc*hbcm2-hbcm3
3531 . )+16*(-hbcm*p1p3*p2p8*p6p7+hbcm*p1p8*p2p3*p6p7-hbcm*p2p3*p4p6*
3532 . p7p8-hbcm*p2p3*p5p6*p7p8+hbcm*p2p3*p5p7*p6p8-hbcm*p2p3*p5p8*
3533 . p6p7+hbcm*p2p8*p3p5*p6p7-hbcm*p2p8*p3p6*p5p7+hbcm*p2p8*p3p7*
3534 . p4p6+hbcm*p2p8*p3p7*p5p6))+(8*(p6p8*p3p7)*(-8*fb4*fmc-hbcm)+8*
3535 . (p7p8*p3p6)*(8*fb3*fmc-8*fb3*hbcm+8*fb4*fmc+hbcm)+64*(fb3*hbcm
3536 . *p1p8*p6p7-fb3*hbcm*p4p6*p7p8-fb3*hbcm*p5p6*p7p8+fb3*hbcm*p5p7
3537 . *p6p8-fb3*hbcm*p5p8*p6p7))
3538 ans1=w1*(16*(p4p8*p3p7*p3p6)*(-fmc+hbcm)+16*(p6p8*p3p7*p3p4)*(3
3539 . *fmc-2*hbcm)+16*(p7p8*p3p6*p3p4)*(-2*fmc+hbcm)+32*(p6p8*p4p7)*
3540 . (-fmc*hbcm2+hbcm3)+16*(p6p8*p3p7)*(-fmc*hbcm2+2*fmc2*hbcm)+16*
3541 . (p7p8*p3p6)*(fmc*hbcm2-2*fmc2*hbcm)+8*(p6p7*p4p8)*(-fmb*hbcm2+
3542 . 3*fmc*hbcm2-4*hbcm3)+16*(-2*fmc*hbcm2*p1p8*p6p7-fmc*hbcm2*p2p8
3543 . *p6p7+fmc*hbcm2*p4p6*p7p8+fmc*hbcm2*p5p6*p7p8-2*fmc*hbcm2*p5p7
3544 . *p6p8+2*fmc*hbcm2*p5p8*p6p7-2*hbcm*p1p3*p4p7*p6p8+3*hbcm*p1p3*
3545 . p4p8*p6p7-3*hbcm*p1p8*p3p4*p6p7+2*hbcm*p1p8*p3p6*p4p7-2*hbcm*
3546 . p2p3*p4p7*p6p8+2*hbcm*p2p3*p4p8*p6p7-2*hbcm*p2p8*p3p4*p6p7+2*
3547 . hbcm*p2p8*p3p6*p4p7+hbcm*p3p4*p4p6*p7p8+hbcm*p3p4*p5p6*p7p8-3*
3548 . hbcm*p3p4*p5p7*p6p8+3*hbcm*p3p4*p5p8*p6p7+2*hbcm*p3p5*p4p7*
3549 . p6p8-3*hbcm*p3p5*p4p8*p6p7-2*hbcm*p3p6*p4p7*p5p8+3*hbcm*p3p6*
3550 . p4p8*p5p7-hbcm*p3p7*p4p6*p4p8-hbcm*p3p7*p4p8*p5p6))+ans2
3551 ans=ccc*ans1
3552 b(30)=ans
3553 ans=ccc*(w1*(16*(p6p8*p3p7)*(fmc*hbcm+fmc2)+8*(p6p7*p4p8)*(fmb*
3554 . hbcm-5*fmc*hbcm)+16*(fmc*hbcm*p2p8*p6p7+fmc*hbcm*p3p6*p7p8+fmc
3555 . *hbcm*p4p6*p7p8+3*fmc*hbcm*p4p7*p6p8+fmc*hbcm*p5p6*p7p8+p2p8*
3556 . p3p4*p6p7+p3p4*p3p6*p7p8+p3p4*p3p7*p6p8+p3p4*p4p6*p7p8+2*p3p4*
3557 . p4p7*p6p8-2*p3p4*p4p8*p6p7+p3p4*p5p6*p7p8))+w8*(16*(p7p8*p5p6)
3558 . *(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p6p7*p4p8)*(-fmb*hbcm-fmc*hbcm+
3559 . hbcm2)+32*(p6p8*p4p7)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p7p8*p4p6)
3560 . *(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p7p8*p3p6)*(fmb*hbcm+fmc*hbcm-
3561 . hbcm2)+8*(p6p7*p2p8)*(fmb*hbcm+fmc*hbcm-2*hbcm2)+16*(p6p8*p3p7
3562 . )*(fmb*fmc+fmc2-hbcm2)+16*(p2p3*p2p8*p6p7+p2p3*p3p6*p7p8+p2p3*
3563 . p3p7*p6p8+p2p3*p4p6*p7p8+2*p2p3*p4p7*p6p8-2*p2p3*p4p8*p6p7+
3564 . p2p3*p5p6*p7p8))+64*(-fb4*p2p8*p6p7-fb4*p3p6*p7p8-fb4*p3p7*
3565 . p6p8-fb4*p4p6*p7p8-2*fb4*p4p7*p6p8+2*fb4*p4p8*p6p7-fb4*p5p6*
3566 . p7p8))
3567 b(31)=ans
3568 b(32)=ccc*(w8*(16*(p5p6*p3p7)*(fmc-hbcm)+16*(p4p6*p3p7)*(fmc-
3569 . hbcm)+16*(p3p7*p3p6)*(fmc-hbcm)+8*(p6p7*p2p3)*(-fmb+3*fmc-2*
3570 . hbcm)+8*p6p7*(fmb*hbcm2-2*fmb2*hbcm-3*fmc*hbcm2+2*fmc2*hbcm+
3571 . hbcm3))+w1*(8*(p6p7*p3p4)*(-fmb+3*fmc+2*hbcm)+8*p6p7*(-fmb*fmc
3572 . *hbcm+5*fmc2*hbcm)+16*(-hbcm*p2p4*p6p7-hbcm*p3p6*p4p7-hbcm*
3573 . p4p6*p4p7-hbcm*p4p7*p5p6))+32*p6p7*(-fb3*fmc+fb4*fmb-2*fb4*fmc
3574 . ))
3575 do 200 n=1,32
3576 c(n,1)=c(n,1)+0.09090909090909091d0*b(n)
3577 c(n,2)=c(n,2)-0.01680909685530997d0*b(n)
3578 c(n,3)=c(n,3)-0.02077659977796572d0*b(n)
3579 200 continue
3580 return
3581 end
3582
3583 subroutine amp19_3p1(cc)
3584 implicit double precision(a-h,o-z)
3585 implicit integer (i-n)
3586 dimension b(32)
3587 #include "inclcon.h"
3588 #include "inclppp.h"
3589 #include "inclamp.h"
3590 do 100 n=1,32
3591 b(n)=0.0d0
3592 100 continue
3593 ccc=cc/((-2*ffmcfmb*p2p3)*(-2*ffmcfmb*p2p3+2*ffmcfmb*p3p4+2*
3594 . fmc2-2*p2p4)*(2*ffmcfmb*p1p3-fmb2-2*fmc*hbcm+fmc2+hbcm2-2*p1p3
3595 . ))
3596 b(1)=ccc*(w11*(16*(p3p6*p2p4)*(2*fmc+hbcm)+16*(-hbcm*p1p2*p4p6+
3597 . hbcm*p2p3*p4p6+4*hbcm*p2p4*p4p6+hbcm*p2p5*p4p6))+w13*(48*(p3p6
3598 . *p2p5)*(-fmc+hbcm)+32*(p3p6*p2p3)*(-fmc+hbcm)+32*(p3p6*p1p2)*(
3599 . fmc-hbcm))+(96*p4p6*(-fb3*fmc-fb4*fmc)+32*p3p6*(-fb3*ffmcfmb*
3600 . fmc-fb3*fmc-fb4*ffmcfmb*fmc-fb4*fmc)))
3601 ans=ccc*(16*w7*(ffmcfmb*p2p3*p3p6*p3p7+2*ffmcfmb*p2p3*p3p7*p4p6
3602 . +p1p2*p2p3*p6p7-3*p2p3*p2p4*p6p7-p2p3s2*p6p7)+w11*(16*(p6p7*
3603 . p2p4)*(-fmb*hbcm+3*fmc*hbcm)+16*(p3p7*p3p6)*(-ffmcfmb*fmc2-
3604 . fmc2)+16*(ffmcfmb*p2p3*p3p6*p3p7+2*ffmcfmb*p2p3*p3p7*p4p6-
3605 . ffmcfmb*p3p4*p3p6*p3p7-2*ffmcfmb*p3p4*p3p7*p4p6-fmc*hbcm*p1p2*
3606 . p6p7+fmc*hbcm*p2p3*p6p7-3*fmc2*p3p7*p4p6+p1p2*p2p3*p6p7-p1p2*
3607 . p3p4*p6p7-3*p2p3*p2p4*p6p7+p2p3*p3p4*p6p7-p2p3s2*p6p7+3*p2p4*
3608 . p3p4*p6p7))+w13*(48*(p6p7*p2p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(
3609 . p6p7*p2p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p7*p1p2)*(-fmb*hbcm
3610 . -fmc*hbcm+hbcm2)+32*(p4p6*p3p7)*(-fmb*fmc+fmc*hbcm-fmc2)+16*(
3611 . p3p7*p3p6)*(-ffmcfmb*fmb*fmc-ffmcfmb*fmc2+fmc*hbcm)+16*(-
3612 . ffmcfmb*p1p3*p3p6*p3p7-2*ffmcfmb*p1p3*p3p7*p4p6-p1p2*p1p3*p6p7
3613 . +p1p3*p2p3*p6p7+3*p1p3*p2p4*p6p7))+((p4p6*p3p7)*(128*fb4*
3614 . ffmcfmb+16)+(p3p7*p3p6)*(64*fb4*ffmcfmb+8)+32*p6p7*(fb3*fmb*
3615 . fmc+fb3*fmc2+fb4*fmb*fmc+fb4*fmc2)+64*(fb4*p1p2*p6p7-fb4*p2p3*
3616 . p6p7-3*fb4*p2p4*p6p7)))
3617 b(2)=ans
3618 ans3=w13*(64*(p5p7*p3p6*p2p8)*(-fmc+hbcm)+64*(p7p8*p3p6*p2p5)*(
3619 . fmc-hbcm)+32*(p7p8*p3p6*p2p3)*(fmc-hbcm)+32*(p7p8*p3p6*p1p2)*(
3620 . -fmc+hbcm)+16*(p6p7*p2p8*p1p3)*(fmb-3*fmc+2*hbcm)+16*(p6p7*
3621 . p2p8)*(-fmb*hbcm2+2*fmb2*hbcm+3*fmc*hbcm2-2*fmc2*hbcm-hbcm3)+
3622 . 16*(p6p8*p3p7)*(-fmb*fmc*hbcm+fmb2*fmc+fmc2*hbcm-fmc3)+32*(
3623 . p5p8*p3p7*p3p6)*(-ffmcfmb*fmc+fmc)+32*(p3p7*p3p6*p2p8)*(
3624 . ffmcfmb*fmc-2*fmc+hbcm)+16*(p3p7*p3p6*p1p8)*(ffmcfmb*fmc-fmc)+
3625 . 16*(p6p8*p3p7*p1p3)*(ffmcfmb*fmb-ffmcfmb*fmc)+16*(-fmc*p1p8*
3626 . p3p7*p4p6+hbcm*p1p2*p1p8*p6p7-hbcm*p1p8*p2p3*p6p7-2*hbcm*p1p8*
3627 . p2p5*p6p7))+(128*(p6p7*p5p8)*(fb3*fmc+fb4*fmc)+128*(p6p8*p5p7)
3628 . *(-fb3*fmc-fb4*fmc)+8*(p7p8*p4p6)*(16*fb3*fmc+16*fb4*fmc-hbcm)
3629 . +8*(p6p8*p3p7)*(-8*fb3*fmc-8*fb4*ffmcfmb*fmb+8*fb4*ffmcfmb*fmc
3630 . -8*fb4*fmc-fmb)+8*(p7p8*p3p6)*(8*fb3*fmc+8*fb4*fmc+fmc-hbcm)+
3631 . 64*(p6p7*p2p8)*(-fb3*fmc-fb4*fmb)+64*(p6p7*p1p8)*(-fb3*fmc-fb4
3632 . *fmc))
3633 ans2=w11*(16*(p4p6*p3p7*p2p8)*(fmc+2*hbcm)+32*(p4p7*p3p6*p2p8)*
3634 . (fmc+hbcm)+32*(p7p8*p3p6*p2p4)*(-fmc-hbcm)+16*(p6p7*p3p4*p2p8)
3635 . *(fmb-3*fmc-2*hbcm)+16*(p6p7*p2p8*p2p3)*(-fmb+3*fmc-hbcm)+16*(
3636 . p6p8*p3p7)*(fmb*fmc2-3*fmc3)+16*(p6p7*p2p8)*(fmb*fmc*hbcm-5*
3637 . fmc2*hbcm)+16*(p4p8*p3p7*p3p6)*(ffmcfmb*fmc+fmc)+16*(p3p7*p3p6
3638 . *p2p8)*(ffmcfmb*fmc+fmc)+16*(p6p8*p3p7*p3p4)*(ffmcfmb*fmb-
3639 . ffmcfmb*fmc-2*fmc)+16*(p6p8*p3p7*p2p3)*(-ffmcfmb*fmb+ffmcfmb*
3640 . fmc-2*fmc)+16*(2*fmc*p1p2*p3p7*p6p8+2*fmc*p1p4*p3p7*p6p8-2*fmc
3641 . *p1p8*p3p7*p4p6-4*fmc*p2p5*p3p7*p6p8+3*fmc*p3p7*p4p6*p4p8+2*
3642 . fmc*p3p7*p4p6*p5p8+hbcm*p1p2*p2p8*p6p7+2*hbcm*p1p2*p4p6*p7p8+4
3643 . *hbcm*p1p2*p4p7*p6p8-3*hbcm*p1p2*p4p8*p6p7+2*hbcm*p1p4*p2p8*
3644 . p6p7+4*hbcm*p1p8*p2p4*p6p7-2*hbcm*p2p3*p4p6*p7p8-4*hbcm*p2p3*
3645 . p4p7*p6p8+3*hbcm*p2p3*p4p8*p6p7+6*hbcm*p2p4*p2p8*p6p7+4*hbcm*
3646 . p2p4*p3p7*p6p8-6*hbcm*p2p4*p4p6*p7p8+6*hbcm*p2p4*p5p7*p6p8-6*
3647 . hbcm*p2p4*p5p8*p6p7-2*hbcm*p2p5*p2p8*p6p7-2*hbcm*p2p5*p4p6*
3648 . p7p8-6*hbcm*p2p5*p4p7*p6p8+4*hbcm*p2p5*p4p8*p6p7+6*hbcm*p2p8*
3649 . p4p6*p4p7+2*hbcm*p2p8*p4p6*p5p7))+ans3
3650 ans1=w7*(16*(p6p7*p2p8*p2p3)*(-fmb+3*fmc-hbcm)+16*(p3p7*p3p6*
3651 . p2p8)*(ffmcfmb*fmc+fmc)+16*(p6p8*p3p7*p2p3)*(-ffmcfmb*fmb+
3652 . ffmcfmb*fmc-2*fmc)+16*(2*fmc*p1p2*p3p7*p6p8-4*fmc*p2p5*p3p7*
3653 . p6p8+3*fmc*p2p8*p3p7*p4p6+hbcm*p1p2*p2p8*p6p7-2*hbcm*p2p5*p2p8
3654 . *p6p7))+ans2
3655 ans=ccc*ans1
3656 b(3)=ans
3657 b(4)=ccc*(w7*(8*(p3p7*p2p3)*(-ffmcfmb*fmb+3*ffmcfmb*fmc-4*fmc)+
3658 . 16*(2*fmc*p1p2*p3p7-3*fmc*p2p5*p3p7))+w11*(8*p3p7*(fmb*fmc2-5*
3659 . fmc3)+8*(p3p7*p3p4)*(ffmcfmb*fmb-3*ffmcfmb*fmc-2*fmc)+8*(p3p7*
3660 . p2p3)*(-ffmcfmb*fmb+3*ffmcfmb*fmc-4*fmc)+16*(2*fmc*p1p2*p3p7+
3661 . fmc*p1p4*p3p7-3*fmc*p2p5*p3p7+3*hbcm*p1p2*p4p7-3*hbcm*p2p3*
3662 . p4p7+3*hbcm*p2p4*p3p7+4*hbcm*p2p4*p5p7-4*hbcm*p2p5*p4p7))+w13*
3663 . (8*p3p7*(-fmb*fmc*hbcm+2*fmb2*fmc-fmc*hbcm2+3*fmc2*hbcm-2*fmc3
3664 . )+8*(p3p7*p1p3)*(ffmcfmb*fmb-3*ffmcfmb*fmc+2*fmc))+(96*p5p7*(-
3665 . fb3*fmc-fb4*fmc)+4*p3p7*(8*fb3*ffmcfmb*fmc-16*fb3*fmc-8*fb4*
3666 . ffmcfmb*fmb+16*fb4*ffmcfmb*fmc-16*fb4*fmc-fmb+3*fmc)))
3667 ans2=w13*(48*(p5p7*p2p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+48*(p7p8*
3668 . p2p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p7p8*p2p3)*(-fmb*hbcm-fmc
3669 . *hbcm+hbcm2)+32*(p7p8*p1p2)*(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p5p8
3670 . *p3p7)*(fmb*fmc-fmc*hbcm+fmc2)+32*(p3p7*p2p8)*(-fmb*fmc+fmb*
3671 . hbcm+2*fmc*hbcm-fmc2-hbcm2)+8*(p3p7*p1p8)*(-3*fmb*fmc+2*fmc*
3672 . hbcm-3*fmc2)+(p3p7*p2p8*p1p3)*(-32*ffmcfmb+32)+16*(-ffmcfmb*
3673 . p1p3*p1p8*p3p7+2*ffmcfmb*p1p3*p3p7*p5p8+2*p1p2*p1p3*p7p8-2*
3674 . p1p3*p2p3*p7p8-3*p1p3*p2p5*p7p8+3*p1p3*p2p8*p5p7))+((p5p8*p3p7
3675 . )*(-128*fb4*ffmcfmb-16)+(p3p7*p2p8)*(128*fb4*ffmcfmb-128*fb4+
3676 . 16)+(p3p7*p1p8)*(64*fb4*ffmcfmb+8)+4*p7p8*(8*fb3*fmb*fmc+8*fb3
3677 . *fmc2+8*fb4*fmb*fmc+8*fb4*fmc2-fmb*hbcm-fmc*hbcm)+64*(-2*fb4*
3678 . p1p2*p7p8+2*fb4*p2p3*p7p8+3*fb4*p2p5*p7p8-3*fb4*p2p8*p5p7))
3679 ans1=w7*(8*(p3p7*p2p8)*(fmb*fmc+fmc2)+(p3p7*p2p8*p2p3)*(32*
3680 . ffmcfmb-32)+16*(ffmcfmb*p1p8*p2p3*p3p7-2*ffmcfmb*p2p3*p3p7*
3681 . p5p8-2*p1p2*p2p3*p7p8+3*p2p3*p2p5*p7p8-3*p2p3*p2p8*p5p7+2*
3682 . p2p3s2*p7p8))+w11*(16*(p4p7*p2p8)*(fmb*hbcm+fmc*hbcm)+16*(p7p8
3683 . *p2p4)*(-fmb*hbcm-fmc*hbcm)+8*(p4p8*p3p7)*(fmb*fmc+fmc2)+8*(
3684 . p3p7*p2p8)*(fmb*fmc+6*fmc*hbcm-5*fmc2)+(p3p7*p3p4*p2p8)*(-32*
3685 . ffmcfmb+32)+(p3p7*p2p8*p2p3)*(32*ffmcfmb-32)+16*(ffmcfmb*p1p8*
3686 . p2p3*p3p7-ffmcfmb*p1p8*p3p4*p3p7-2*ffmcfmb*p2p3*p3p7*p5p8+2*
3687 . ffmcfmb*p3p4*p3p7*p5p8+3*fmc*hbcm*p1p2*p7p8-3*fmc*hbcm*p2p3*
3688 . p7p8-4*fmc*hbcm*p2p5*p7p8+4*fmc*hbcm*p2p8*p5p7-2*fmc2*p1p8*
3689 . p3p7+3*fmc2*p3p7*p5p8-2*p1p2*p2p3*p7p8+2*p1p2*p3p4*p7p8+3*p2p3
3690 . *p2p5*p7p8-3*p2p3*p2p8*p5p7-2*p2p3*p3p4*p7p8+2*p2p3s2*p7p8-3*
3691 . p2p5*p3p4*p7p8+3*p2p8*p3p4*p5p7))+ans2
3692 ans=ccc*ans1
3693 b(5)=ans
3694 ans2=w11*(16*(p3p7*p2p4)*(fmb*hbcm+fmc*hbcm+2*hbcm2)+16*(p4p7*
3695 . p2p3)*(-fmb*hbcm-fmc*hbcm-2*hbcm2)+8*(p3p7*p3p4)*(-fmb*fmc-4*
3696 . fmc*hbcm-fmc2)+8*(p3p7*p2p3)*(-fmb*fmc+5*fmc2)+8*p3p7*(-4*
3697 . ffmcfmb*p2p3s2-fmb*fmc2*hbcm-4*fmc2*hbcm2-fmc3*hbcm)+16*(-
3698 . ffmcfmb*p1p3*p2p3*p3p7+ffmcfmb*p1p3*p3p4*p3p7+2*ffmcfmb*p2p3*
3699 . p3p4*p3p7+2*ffmcfmb*p2p3*p3p5*p3p7-2*ffmcfmb*p3p4*p3p5*p3p7-2*
3700 . fmc*hbcm*p1p2*p3p7+fmc*hbcm*p1p4*p3p7-4*fmc*hbcm*p2p3*p5p7+2*
3701 . fmc*hbcm*p2p5*p3p7+2*fmc2*p1p3*p3p7-3*fmc2*p3p5*p3p7+2*hbcm2*
3702 . p1p2*p4p7+3*hbcm2*p2p4*p5p7-3*hbcm2*p2p5*p4p7+2*p1p2*p2p3*p3p7
3703 . -2*p1p2*p3p4*p3p7-3*p2p3*p2p5*p3p7-3*p2p3*p3p4*p5p7+3*p2p3s2*
3704 . p5p7+3*p2p5*p3p4*p3p7))+((p3p7*p3p5)*(128*fb4*ffmcfmb+16)+(
3705 . p3p7*p2p3)*(-128*fb4*ffmcfmb-16)+(p3p7*p1p3)*(-64*fb4*ffmcfmb-
3706 . 8)+64*p5p7*(-fb3*fmc*hbcm-fb4*fmc*hbcm)+4*p3p7*(-8*fb3*fmc*
3707 . hbcm-8*fb4*fmb*fmc+8*fb4*fmc*hbcm-8*fb4*fmc2+fmb*hbcm+fmc*hbcm
3708 . +2*hbcm2)+64*(2*fb4*p1p2*p3p7+3*fb4*p2p3*p5p7-3*fb4*p2p5*p3p7)
3709 . )
3710 ans1=w7*(8*(p3p7*p2p3)*(-fmb*fmc-fmc2)+16*(-ffmcfmb*p1p3*p2p3*
3711 . p3p7+2*ffmcfmb*p2p3*p3p5*p3p7-2*ffmcfmb*p2p3s2*p3p7+fmc*hbcm*
3712 . p1p2*p3p7-2*fmc*hbcm*p2p5*p3p7+2*p1p2*p2p3*p3p7-3*p2p3*p2p5*
3713 . p3p7+3*p2p3s2*p5p7))+w13*(48*(p3p7*p2p5)*(fmb*hbcm+fmc*hbcm-
3714 . hbcm2)+48*(p5p7*p2p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p3p7*p1p2
3715 . )*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p3p7*p3p5)*(-fmb*fmc+fmc*hbcm
3716 . -fmc2)+32*(p3p7*p2p3)*(fmb*fmc-fmc*hbcm+fmc2)+8*(p3p7*p1p3)*(3
3717 . *fmb*fmc-4*fmc*hbcm+3*fmc2)+8*p3p7*(2*ffmcfmb*p1p3s2-3*fmb*fmc
3718 . *hbcm2+2*fmb*fmc2*hbcm+fmb2*fmc*hbcm+2*fmc*hbcm3-3*fmc2*hbcm2+
3719 . fmc3*hbcm)+16*(2*ffmcfmb*p1p3*p2p3*p3p7-2*ffmcfmb*p1p3*p3p5*
3720 . p3p7-2*p1p2*p1p3*p3p7-3*p1p3*p2p3*p5p7+3*p1p3*p2p5*p3p7))+ans2
3721 ans=ccc*ans1
3722 b(6)=ans
3723 ans4=16*(-2*fmc*hbcm2*p1p2*p7p8+3*fmc*hbcm2*p2p5*p7p8-3*fmc*
3724 . hbcm2*p2p8*p5p7-2*fmc*p1p3*p2p8*p3p7-2*fmc*p1p3*p3p7*p4p8+2*
3725 . fmc*p1p8*p2p3*p3p7+2*fmc*p1p8*p3p4*p3p7-3*fmc*p2p3*p3p7*p4p8-3
3726 . *fmc*p2p3*p3p7*p5p8+3*fmc*p2p8*p3p5*p3p7-3*fmc*p3p4*p3p7*p5p8+
3727 . 3*fmc*p3p5*p3p7*p4p8+fmc2*hbcm*p1p8*p3p7-2*fmc2*hbcm*p3p7*p5p8
3728 . +hbcm*p1p2*p2p3*p7p8-hbcm*p1p2*p2p8*p3p7-3*hbcm*p1p2*p3p4*p7p8
3729 . +3*hbcm*p1p2*p3p7*p4p8+4*hbcm*p1p3*p2p4*p7p8-4*hbcm*p1p3*p2p8*
3730 . p4p7+2*hbcm*p1p4*p2p3*p7p8-2*hbcm*p1p4*p2p8*p3p7+4*hbcm*p1p8*
3731 . p2p3*p4p7-4*hbcm*p1p8*p2p4*p3p7+6*hbcm*p2p3*p2p4*p7p8-2*hbcm*
3732 . p2p3*p2p5*p7p8-6*hbcm*p2p3*p4p7*p5p8+4*hbcm*p2p3*p4p8*p5p7-6*
3733 . hbcm*p2p4*p2p8*p3p7-6*hbcm*p2p4*p3p5*p7p8+6*hbcm*p2p4*p3p7*
3734 . p5p8+2*hbcm*p2p5*p2p8*p3p7+4*hbcm*p2p5*p3p4*p7p8-4*hbcm*p2p5*
3735 . p3p7*p4p8-4*hbcm*p2p8*p3p4*p5p7+6*hbcm*p2p8*p3p5*p4p7)
3736 ans3=16*(p3p7*p3p4*p2p8)*(-fmb+6*fmc-hbcm)+16*p7p8*(-fmb*p2p3s2
3737 . +3*fmc*p2p3s2-hbcm*p2p3s2)+16*(p7p8*p3p4*p2p3)*(fmb-3*fmc+hbcm
3738 . )+16*(p3p7*p2p8*p2p3)*(fmb-3*fmc+hbcm)+16*(p4p7*p2p8)*(fmb*
3739 . hbcm2-3*fmc*hbcm2+4*hbcm3)+16*(p7p8*p2p4)*(-fmb*hbcm2+3*fmc*
3740 . hbcm2-4*hbcm3)+8*(p4p8*p3p7)*(fmb*fmc*hbcm+4*fmc*hbcm2-3*fmc2*
3741 . hbcm)+8*(p3p7*p2p8)*(-fmb*fmc*hbcm+11*fmc2*hbcm)+16*(p7p8*p2p3
3742 . )*(fmb*fmc*hbcm+2*fmc*hbcm2-5*fmc2*hbcm)+ans4
3743 ans2=w11*ans3
3744 ans6=(8*(p3p7*p2p8)*(8*fb3*hbcm+8*fb4*fmb-hbcm)+8*(p5p8*p3p7)*(
3745 . -8*fb3*fmc-16*fb4*fmc+hbcm)+8*(p7p8*p3p5)*(16*fb3*fmc+16*fb4*
3746 . fmc-hbcm)+8*(p7p8*p2p3)*(-8*fb3*fmc-8*fb3*hbcm-8*fb4*fmb+hbcm)
3747 . +64*(p3p7*p1p8)*(fb3*fmc+fb4*fmc)+64*(p7p8*p1p3)*(-fb3*fmc-fb4
3748 . *fmc)+4*p7p8*(8*fb3*fmb*fmc*hbcm+16*fb3*fmc*hbcm2-8*fb3*fmc2*
3749 . hbcm+8*fb4*fmb*fmc*hbcm+16*fb4*fmc*hbcm2-8*fb4*fmc2*hbcm-fmb*
3750 . hbcm2-fmc*hbcm2)+64*(fb3*hbcm*p1p2*p7p8-2*fb3*hbcm*p2p5*p7p8+2
3751 . *fb3*hbcm*p2p8*p5p7))
3752 ans5=w13*(16*(p3p7*p2p8*p1p3)*(-fmb+2*fmc-hbcm)+16*(p7p8*p2p3*
3753 . p1p3)*(fmb-3*fmc+hbcm)+32*(p5p7*p2p8)*(fmb*hbcm2+fmc*hbcm2-
3754 . hbcm3)+32*(p7p8*p2p5)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+32*(p7p8*
3755 . p2p3)*(-fmb*hbcm2+fmb2*hbcm+fmc*hbcm2-fmc2*hbcm)+16*(p7p8*p1p2
3756 . )*(fmb*hbcm2+fmc*hbcm2-hbcm3)+16*(p5p8*p3p7)*(fmb*fmc*hbcm-fmc
3757 . *hbcm2+fmc2*hbcm)+16*(p3p7*p2p8)*(-fmb*fmc*hbcm+2*fmb*hbcm2-2*
3758 . fmb2*hbcm-fmc*hbcm2+fmc2*hbcm)+8*(p3p7*p1p8)*(-fmb*fmc*hbcm-
3759 . fmc2*hbcm)+16*(fmc*p1p3*p3p7*p5p8+fmc*p1p8*p2p3*p3p7-fmc*p1p8*
3760 . p3p5*p3p7+hbcm*p1p2*p1p3*p7p8-hbcm*p1p2*p1p8*p3p7-2*hbcm*p1p3*
3761 . p2p5*p7p8+2*hbcm*p1p3*p2p8*p5p7-2*hbcm*p1p8*p2p3*p5p7+2*hbcm*
3762 . p1p8*p2p5*p3p7))+ans6
3763 ans1=w7*(16*p7p8*(-fmb*p2p3s2+3*fmc*p2p3s2-hbcm*p2p3s2)+16*(
3764 . p3p7*p2p8*p2p3)*(fmb-3*fmc+hbcm)+8*(p3p7*p2p8)*(fmb*fmc*hbcm+4
3765 . *fmc*hbcm2-3*fmc2*hbcm)+16*(-2*fmc*p1p3*p2p8*p3p7+2*fmc*p1p8*
3766 . p2p3*p3p7-3*fmc*p2p3*p3p7*p5p8+3*fmc*p2p8*p3p5*p3p7+hbcm*p1p2*
3767 . p2p3*p7p8-hbcm*p1p2*p2p8*p3p7-2*hbcm*p2p3*p2p5*p7p8+2*hbcm*
3768 . p2p5*p2p8*p3p7))+ans2+ans5
3769 ans=ccc*ans1
3770 b(7)=ans
3771 ans=ccc*(w7*((p3p6*p2p8*p2p3)*(-16*ffmcfmb-16)+16*(p1p2*p2p3*
3772 . p6p8-3*p2p3*p2p4*p6p8-3*p2p3*p2p8*p4p6-p2p3s2*p6p8))+w11*(16*(
3773 . p3p6*p2p8)*(fmc*hbcm+2*fmc2)+16*(p6p8*p2p4)*(-fmb*hbcm+3*fmc*
3774 . hbcm)+(p3p6*p3p4*p2p8)*(16*ffmcfmb+16)+(p3p6*p2p8*p2p3)*(-16*
3775 . ffmcfmb-16)+16*(-fmc*hbcm*p1p2*p6p8+fmc*hbcm*p2p3*p6p8+4*fmc*
3776 . hbcm*p2p8*p4p6+p1p2*p2p3*p6p8-p1p2*p3p4*p6p8-3*p2p3*p2p4*p6p8-
3777 . 3*p2p3*p2p8*p4p6+p2p3*p3p4*p6p8-p2p3s2*p6p8+3*p2p4*p3p4*p6p8+3
3778 . *p2p8*p3p4*p4p6))+w13*(48*(p4p6*p2p8)*(fmb*hbcm+fmc*hbcm-hbcm2
3779 . )+48*(p6p8*p2p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p8*p2p3)*(fmb
3780 . *hbcm+fmc*hbcm-hbcm2)+16*(p6p8*p1p2)*(-fmb*hbcm-fmc*hbcm+hbcm2
3781 . )+16*(p3p6*p2p8)*(2*fmb*fmc-fmc*hbcm+2*fmc2-hbcm2)+(p3p6*p2p8*
3782 . p1p3)*(16*ffmcfmb+16)+16*(-p1p2*p1p3*p6p8+p1p3*p2p3*p6p8+3*
3783 . p1p3*p2p4*p6p8+3*p1p3*p2p8*p4p6))+((p3p6*p2p8)*(-64*fb4*
3784 . ffmcfmb-64*fb4-8)+32*p6p8*(fb3*fmb*fmc+fb3*fmc2+fb4*fmb*fmc+
3785 . fb4*fmc2)+64*(fb4*p1p2*p6p8-fb4*p2p3*p6p8-3*fb4*p2p4*p6p8-3*
3786 . fb4*p2p8*p4p6)))
3787 b(8)=ans
3788 ans=ccc*(w7*(16*p3p6*(ffmcfmb*p2p3s2-p2p3s2)+16*(2*p1p2*p2p3*
3789 . p3p6-3*p2p3*p2p5*p3p6+3*p2p3s2*p4p6))+w11*(16*(p4p6*p2p3)*(-4*
3790 . fmc*hbcm+hbcm2)+32*(p3p6*p2p3)*(fmc*hbcm-fmc2)+16*(p3p6*p2p4)*
3791 . (fmb*hbcm+2*fmc*hbcm+hbcm2)+16*p3p6*(ffmcfmb*p2p3s2-p2p3s2)+(
3792 . p3p6*p3p4*p2p3)*(-16*ffmcfmb+16)+16*(-3*fmc*hbcm*p1p2*p3p6+4*
3793 . fmc*hbcm*p2p5*p3p6-hbcm2*p1p2*p4p6+3*hbcm2*p2p4*p4p6+hbcm2*
3794 . p2p5*p4p6+2*p1p2*p2p3*p3p6-2*p1p2*p3p4*p3p6-3*p2p3*p2p5*p3p6-3
3795 . *p2p3*p3p4*p4p6+3*p2p3s2*p4p6+3*p2p5*p3p4*p3p6))+w13*(16*(p3p6
3796 . *p2p5)*(3*fmb*hbcm+fmc*hbcm-hbcm2)+48*(p4p6*p2p3)*(-fmb*hbcm-
3797 . fmc*hbcm+hbcm2)+16*(p3p6*p1p2)*(-2*fmb*hbcm-fmc*hbcm+hbcm2)+32
3798 . *(p3p6*p2p3)*(-fmb*fmc+fmb*hbcm+fmc*hbcm-fmc2)+(p3p6*p2p3*p1p3
3799 . )*(-16*ffmcfmb+16)+16*(-2*p1p2*p1p3*p3p6-3*p1p3*p2p3*p4p6+3*
3800 . p1p3*p2p5*p3p6))+((p3p6*p2p3)*(64*fb4*ffmcfmb-64*fb4+8)+64*
3801 . p4p6*(-fb3*fmc*hbcm-fb4*fmc*hbcm)+32*p3p6*(-fb3*fmb*fmc-fb3*
3802 . fmc*hbcm-fb3*fmc2-fb4*fmb*fmc-fb4*fmc*hbcm-fb4*fmc2)+64*(2*fb4
3803 . *p1p2*p3p6+3*fb4*p2p3*p4p6-3*fb4*p2p5*p3p6)))
3804 b(9)=ans
3805 ans3=(128*(p5p8*p3p6)*(-fb3*fmc-fb4*fmc)+128*(p6p8*p3p5)*(fb3*
3806 . fmc+fb4*fmc)+64*(p3p6*p2p8)*(fb3*fmc+fb3*hbcm+fb4*fmb)+64*(
3807 . p6p8*p2p3)*(-fb3*fmc-fb3*hbcm-fb4*fmb)+64*(p3p6*p1p8)*(fb3*fmc
3808 . +fb4*fmc)+64*(p6p8*p1p3)*(-fb3*fmc-fb4*fmc)+32*p6p8*(fb3*fmb*
3809 . fmc*hbcm+2*fb3*fmc*hbcm2-fb3*fmc2*hbcm+fb4*fmb*fmc*hbcm+2*fb4*
3810 . fmc*hbcm2-fb4*fmc2*hbcm)+64*(fb3*hbcm*p1p2*p6p8-2*fb3*hbcm*
3811 . p2p5*p6p8+2*fb3*hbcm*p2p8*p4p6))
3812 ans2=w11*(32*(p4p8*p3p6*p2p3)*(fmc-hbcm)+16*(p4p6*p2p8)*(-fmc*
3813 . hbcm2-2*hbcm3)+16*(p3p6*p3p4*p2p8)*(-fmb+fmc+hbcm)+16*p6p8*(-
3814 . fmb*p2p3s2+3*fmc*p2p3s2-hbcm*p2p3s2)+16*(p6p8*p3p4*p2p3)*(fmb-
3815 . 3*fmc+hbcm)+16*(p3p6*p2p8*p2p3)*(fmb-3*fmc+hbcm)+16*(p6p8*p2p4
3816 . )*(-fmb*hbcm2+3*fmc*hbcm2-4*hbcm3)+16*(p3p6*p2p8)*(-fmb*fmc*
3817 . hbcm-fmc*hbcm2+4*fmc2*hbcm)+16*(p6p8*p2p3)*(fmb*fmc*hbcm+2*fmc
3818 . *hbcm2-5*fmc2*hbcm)+16*(-2*fmc*hbcm2*p1p2*p6p8+3*fmc*hbcm2*
3819 . p2p5*p6p8+hbcm*p1p2*p2p3*p6p8-hbcm*p1p2*p2p8*p3p6-3*hbcm*p1p2*
3820 . p3p4*p6p8+3*hbcm*p1p2*p3p6*p4p8+4*hbcm*p1p3*p2p4*p6p8+2*hbcm*
3821 . p1p3*p2p8*p4p6+2*hbcm*p1p4*p2p3*p6p8-2*hbcm*p1p4*p2p8*p3p6-2*
3822 . hbcm*p1p8*p2p3*p4p6-4*hbcm*p1p8*p2p4*p3p6+6*hbcm*p2p3*p2p4*
3823 . p6p8-2*hbcm*p2p3*p2p5*p6p8+4*hbcm*p2p3*p4p6*p4p8+2*hbcm*p2p3*
3824 . p4p6*p5p8-6*hbcm*p2p4*p2p8*p3p6-6*hbcm*p2p4*p3p5*p6p8+6*hbcm*
3825 . p2p4*p3p6*p5p8+2*hbcm*p2p5*p2p8*p3p6+4*hbcm*p2p5*p3p4*p6p8-4*
3826 . hbcm*p2p5*p3p6*p4p8-4*hbcm*p2p8*p3p4*p4p6-2*hbcm*p2p8*p3p5*
3827 . p4p6))+ans3
3828 ans1=w7*(16*p6p8*(-fmb*p2p3s2+3*fmc*p2p3s2-hbcm*p2p3s2)+16*(
3829 . p3p6*p2p8*p2p3)*(fmb-3*fmc+hbcm)+16*(hbcm*p1p2*p2p3*p6p8-hbcm*
3830 . p1p2*p2p8*p3p6-2*hbcm*p2p3*p2p5*p6p8+2*hbcm*p2p5*p2p8*p3p6))+
3831 . w13*(64*(p3p6*p3p5*p2p8)*(fmc-hbcm)+64*(p5p8*p3p6*p2p3)*(-fmc+
3832 . hbcm)+32*(p3p6*p2p3*p1p8)*(fmc-hbcm)+16*(p3p6*p2p8*p1p3)*(-fmb
3833 . +fmc+hbcm)+16*(p6p8*p2p3*p1p3)*(fmb-3*fmc+hbcm)+32*(p4p6*p2p8)
3834 . *(fmb*hbcm2+fmc*hbcm2-hbcm3)+32*(p6p8*p2p5)*(-fmb*hbcm2-fmc*
3835 . hbcm2+hbcm3)+32*(p6p8*p2p3)*(-fmb*hbcm2+fmb2*hbcm+fmc*hbcm2-
3836 . fmc2*hbcm)+16*(p6p8*p1p2)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+16*(p3p6
3837 . *p2p8)*(fmb*fmc*hbcm+fmb*hbcm2-2*fmb2*hbcm+fmc*hbcm2+fmc2*hbcm
3838 . -2*hbcm3)+16*(hbcm*p1p2*p1p3*p6p8-hbcm*p1p2*p1p8*p3p6-2*hbcm*
3839 . p1p3*p2p5*p6p8+2*hbcm*p1p3*p2p8*p4p6-2*hbcm*p1p8*p2p3*p4p6+2*
3840 . hbcm*p1p8*p2p5*p3p6))+ans2
3841 ans=ccc*ans1
3842 b(10)=ans
3843 ans3=w13*(64*(p3p7*p3p6*p2p5)*(-fmc+hbcm)+64*(p5p7*p3p6*p2p3)*(
3844 . fmc-hbcm)+32*(p3p7*p3p6*p1p2)*(fmc-hbcm)+16*(p6p7*p2p3*p1p3)*(
3845 . -fmb+3*fmc-hbcm)+32*(p6p7*p2p5)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+32
3846 . *(p6p7*p2p3)*(fmb*hbcm2-fmb2*hbcm-fmc*hbcm2+fmc2*hbcm)+16*(
3847 . p6p7*p1p2)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+16*(p4p6*p3p7)*(fmb*
3848 . fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+16*(p3p7*p3p6)*(fmb*fmc*hbcm-
3849 . fmb2*fmc-fmc*hbcm2+fmc3)+32*(p3p7*p3p6*p3p5)*(ffmcfmb*fmc-fmc)
3850 . +32*(p3p7*p3p6*p2p3)*(-ffmcfmb*fmc+fmc)+16*(p3p7*p3p6*p1p3)*(-
3851 . ffmcfmb*fmb+fmc)+16*(fmc*p1p3*p3p7*p4p6-hbcm*p1p2*p1p3*p6p7+2*
3852 . hbcm*p1p3*p2p5*p6p7))+(8*(p4p6*p3p7)*(-8*fb3*fmc-16*fb4*fmc+
3853 . hbcm)+128*(p5p7*p3p6)*(fb3*fmc+fb4*fmc)+128*(p6p7*p3p5)*(-fb3*
3854 . fmc-fb4*fmc)+64*(p6p7*p2p3)*(fb3*fmc+fb3*hbcm+fb4*fmb)+64*(
3855 . p6p7*p1p3)*(fb3*fmc+fb4*fmc)+32*p6p7*(-fb3*fmb*fmc*hbcm-2*fb3*
3856 . fmc*hbcm2+fb3*fmc2*hbcm-fb4*fmb*fmc*hbcm-2*fb4*fmc*hbcm2+fb4*
3857 . fmc2*hbcm)+8*(p3p7*p3p6)*(-8*fb3*ffmcfmb*fmc+8*fb3*fmc+8*fb4*
3858 . ffmcfmb*fmb-8*fb4*ffmcfmb*fmc+fmb-fmc+hbcm)+64*(-fb3*hbcm*p1p2
3859 . *p6p7+2*fb3*hbcm*p2p5*p6p7))
3860 ans2=w11*(32*(p3p7*p3p6*p2p4)*(fmc-hbcm)+32*(p4p7*p3p6*p2p3)*(-
3861 . fmc+hbcm)+16*p6p7*(fmb*p2p3s2-3*fmc*p2p3s2+hbcm*p2p3s2)+16*(
3862 . p6p7*p3p4*p2p3)*(-fmb+3*fmc-hbcm)+16*(p6p7*p2p4)*(fmb*hbcm2-3*
3863 . fmc*hbcm2+4*hbcm3)+16*(p3p7*p3p6)*(-fmb*fmc2-fmc2*hbcm+3*fmc3)
3864 . +16*(p6p7*p2p3)*(-fmb*fmc*hbcm-2*fmc*hbcm2+5*fmc2*hbcm)+16*(
3865 . p3p7*p3p6*p3p4)*(-ffmcfmb*fmb+fmc)+16*(p3p7*p3p6*p2p3)*(
3866 . ffmcfmb*fmb-2*ffmcfmb*fmc+fmc)+16*(2*fmc*hbcm2*p1p2*p6p7-3*fmc
3867 . *hbcm2*p2p5*p6p7-2*fmc*hbcm2*p3p7*p4p6-2*fmc*p1p2*p3p6*p3p7+2*
3868 . fmc*p1p3*p3p7*p4p6-2*fmc*p1p4*p3p6*p3p7-fmc*p2p3*p3p7*p4p6+4*
3869 . fmc*p2p5*p3p6*p3p7-3*fmc*p3p4*p3p7*p4p6-2*fmc*p3p5*p3p7*p4p6-
3870 . hbcm*p1p2*p2p3*p6p7+3*hbcm*p1p2*p3p4*p6p7-4*hbcm*p1p2*p3p6*
3871 . p4p7-2*hbcm*p1p2*p3p7*p4p6-4*hbcm*p1p3*p2p4*p6p7-2*hbcm*p1p4*
3872 . p2p3*p6p7-6*hbcm*p2p3*p2p4*p6p7+2*hbcm*p2p3*p2p5*p6p7-6*hbcm*
3873 . p2p3*p4p6*p4p7-2*hbcm*p2p3*p4p6*p5p7+6*hbcm*p2p4*p3p5*p6p7-6*
3874 . hbcm*p2p4*p3p6*p5p7+6*hbcm*p2p4*p3p7*p4p6-4*hbcm*p2p5*p3p4*
3875 . p6p7+6*hbcm*p2p5*p3p6*p4p7+2*hbcm*p2p5*p3p7*p4p6))+ans3
3876 ans1=w7*(16*p6p7*(fmb*p2p3s2-3*fmc*p2p3s2+hbcm*p2p3s2)+16*(p3p7
3877 . *p3p6*p2p3)*(ffmcfmb*fmb-2*ffmcfmb*fmc+fmc)+16*(-2*fmc*p1p2*
3878 . p3p6*p3p7-3*fmc*p2p3*p3p7*p4p6+4*fmc*p2p5*p3p6*p3p7-hbcm*p1p2*
3879 . p2p3*p6p7+2*hbcm*p2p3*p2p5*p6p7))+ans2
3880 ans=ccc*ans1
3881 b(11)=ans
3882 ans6=-2*p1p3*p2p3*p2p8*p6p7+2*p1p3*p2p8*p3p4*p6p7-4*p1p8*p2p3*
3883 . p3p4*p6p7+4*p1p8*p2p3s2*p6p7+2*p2p3*p2p5*p3p6*p7p8-2*p2p3*p2p5
3884 . *p3p7*p6p8-4*p2p3*p2p8*p3p4*p6p7+2*p2p3*p2p8*p3p5*p6p7-2*p2p3*
3885 . p2p8*p3p6*p5p7+8*p2p3*p2p8*p3p7*p4p6+2*p2p3*p3p4*p4p6*p7p8-6*
3886 . p2p3*p3p4*p4p7*p6p8+6*p2p3*p3p4*p4p8*p6p7-2*p2p3*p3p4*p5p7*
3887 . p6p8+2*p2p3*p3p4*p5p8*p6p7-2*p2p3s2*p4p6*p7p8+6*p2p3s2*p4p7*
3888 . p6p8-6*p2p3s2*p4p8*p6p7+2*p2p3s2*p5p7*p6p8-2*p2p3s2*p5p8*p6p7-
3889 . 2*p2p5*p3p4*p3p6*p7p8+2*p2p5*p3p4*p3p7*p6p8-2*p2p8*p3p4*p3p5*
3890 . p6p7+2*p2p8*p3p4*p3p6*p5p7-8*p2p8*p3p4*p3p7*p4p6
3891 ans5=4*ffmcfmb*p2p3*p2p8*p3p6*p3p7-2*ffmcfmb*p2p3*p3p5*p3p7*
3892 . p6p8+2*ffmcfmb*p2p3*p3p6*p3p7*p5p8-4*ffmcfmb*p2p8*p3p4*p3p6*
3893 . p3p7+2*ffmcfmb*p3p4*p3p5*p3p7*p6p8-2*ffmcfmb*p3p4*p3p6*p3p7*
3894 . p5p8+2*fmc*hbcm*p1p2*p3p6*p7p8-2*fmc*hbcm*p1p2*p3p7*p6p8+2*fmc
3895 . *hbcm*p1p3*p2p8*p6p7-2*fmc*hbcm*p1p4*p3p7*p6p8-4*fmc*hbcm*p1p8
3896 . *p2p3*p6p7+2*fmc*hbcm*p1p8*p3p7*p4p6+2*fmc*hbcm*p2p3*p4p6*p7p8
3897 . -2*fmc*hbcm*p2p3*p5p7*p6p8+2*fmc*hbcm*p2p3*p5p8*p6p7-2*fmc*
3898 . hbcm*p2p4*p3p6*p7p8-2*fmc*hbcm*p2p5*p3p6*p7p8+4*fmc*hbcm*p2p5*
3899 . p3p7*p6p8-2*fmc*hbcm*p2p8*p3p5*p6p7+2*fmc*hbcm*p2p8*p3p6*p4p7+
3900 . 2*fmc*hbcm*p2p8*p3p6*p5p7-8*fmc*hbcm*p2p8*p3p7*p4p6-2*fmc*hbcm
3901 . *p3p7*p4p6*p4p8-2*fmc*hbcm*p3p7*p4p6*p5p8-2*fmc2*p1p3*p3p7*
3902 . p6p8+2*fmc2*p1p8*p3p6*p3p7+4*fmc2*p3p5*p3p7*p6p8-4*fmc2*p3p6*
3903 . p3p7*p5p8-2*hbcm2*p1p2*p4p7*p6p8+2*hbcm2*p1p2*p4p8*p6p7-2*
3904 . hbcm2*p1p8*p2p4*p6p7-2*hbcm2*p2p4*p3p7*p6p8-2*hbcm2*p2p4*p4p6*
3905 . p7p8-4*hbcm2*p2p4*p5p7*p6p8+4*hbcm2*p2p4*p5p8*p6p7+hbcm2*p2p5*
3906 . p2p8*p6p7+4*hbcm2*p2p5*p4p7*p6p8-3*hbcm2*p2p5*p4p8*p6p7-2*
3907 . hbcm2*p2p8*p3p4*p6p7+2*hbcm2*p2p8*p4p6*p4p7-2*p1p2*p2p3*p3p6*
3908 . p7p8+2*p1p2*p2p3*p3p7*p6p8+2*p1p2*p3p4*p3p6*p7p8-2*p1p2*p3p4*
3909 . p3p7*p6p8+ans6
3910 ans4=16*ans5
3911 ans3=32*(p6p7*p2p8)*(-fmc*hbcm3+2*p2p3s2)+32*(p7p8*p3p6*p2p3)*(
3912 . -fmc*hbcm+fmc2)+16*(p6p7*p4p8*p2p3)*(-fmb*hbcm+7*fmc*hbcm-2*
3913 . hbcm2)+32*(p6p8*p4p7*p2p3)*(fmb*hbcm-3*fmc*hbcm+hbcm2)+16*(
3914 . p6p7*p2p8*p2p3)*(fmb*hbcm-5*fmc*hbcm+2*hbcm2)+16*(p4p8*p3p7*
3915 . p3p6)*(-fmb*fmc-fmc*hbcm-fmc2)+16*(p6p8*p3p7*p3p4)*(fmb*fmc+2*
3916 . fmc*hbcm+fmc2)+16*(p3p7*p3p6*p2p8)*(fmb*fmc+fmc*hbcm-5*fmc2)+
3917 . 16*(p6p8*p3p7*p2p3)*(fmb*fmc-2*fmc*hbcm-3*fmc2)+16*(p6p8*p3p7)
3918 . *(2*ffmcfmb*p2p3s2+fmb*fmc2*hbcm+2*fmc2*hbcm2+fmc3*hbcm+2*
3919 . p2p3s2)+32*(p7p8*p3p6)*(-ffmcfmb*p2p3s2+p2p3s2)+(p6p8*p3p7*
3920 . p3p4*p2p3)*(-32*ffmcfmb-32)+(p7p8*p3p6*p3p4*p2p3)*(32*ffmcfmb-
3921 . 32)+ans4
3922 ans2=w11*ans3
3923 ans9=16*(p6p7*p2p8)*(2*fmb*fmc*hbcm2-2*fmb*hbcm3+fmb2*hbcm2-2*
3924 . fmc*hbcm3+fmc2*hbcm2+hbcm4+2*p1p3s2)+(p6p8*p3p7*p2p3*p1p3)*(-
3925 . 32*ffmcfmb-32)+(p7p8*p3p6*p2p3*p1p3)*(32*ffmcfmb-32)+16*(-4*
3926 . ffmcfmb*p1p3*p2p8*p3p6*p3p7+2*ffmcfmb*p1p3*p3p5*p3p7*p6p8-2*
3927 . ffmcfmb*p1p3*p3p6*p3p7*p5p8+2*fmb*hbcm*p1p2*p3p6*p7p8-2*fmb*
3928 . hbcm*p2p5*p3p6*p7p8+2*fmb*hbcm*p2p8*p3p6*p5p7+hbcm2*p1p8*p2p5*
3929 . p6p7+2*p1p2*p1p3*p3p6*p7p8-2*p1p2*p1p3*p3p7*p6p8-4*p1p3*p1p8*
3930 . p2p3*p6p7-4*p1p3*p2p3*p2p8*p6p7+2*p1p3*p2p3*p4p6*p7p8-6*p1p3*
3931 . p2p3*p4p7*p6p8+6*p1p3*p2p3*p4p8*p6p7-2*p1p3*p2p3*p5p7*p6p8+2*
3932 . p1p3*p2p3*p5p8*p6p7-2*p1p3*p2p5*p3p6*p7p8+2*p1p3*p2p5*p3p7*
3933 . p6p8-2*p1p3*p2p8*p3p5*p6p7+2*p1p3*p2p8*p3p6*p5p7-8*p1p3*p2p8*
3934 . p3p7*p4p6)
3935 ans8=128*(p4p6*p3p7*p2p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p6p7*
3936 . p3p5*p2p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p6p8*p3p7*p2p5)*(fmb
3937 . *hbcm+fmc*hbcm-hbcm2)+32*(p6p7*p5p8*p2p3)*(fmb*hbcm+fmc*hbcm-
3938 . hbcm2)+32*(p6p8*p5p7*p2p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+96*(p6p7
3939 . *p4p8*p2p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+96*(p6p8*p4p7*p2p3)*(-
3940 . fmb*hbcm-fmc*hbcm+hbcm2)+32*(p7p8*p4p6*p2p3)*(fmb*hbcm+fmc*
3941 . hbcm-hbcm2)+64*(p6p7*p2p8*p2p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*
3942 . (p6p7*p2p3*p1p8)*(-3*fmb*hbcm-3*fmc*hbcm+4*hbcm2)+32*(p6p7*
3943 . p2p8*p1p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p6p8*p3p7*p1p2)*(-fmb
3944 . *hbcm-fmc*hbcm+hbcm2)+32*(p5p8*p3p7*p3p6)*(-fmb*fmc+fmc*hbcm-
3945 . fmc2)+32*(p6p8*p3p7*p3p5)*(fmb*fmc-fmc*hbcm+fmc2)+32*(p3p7*
3946 . p3p6*p2p8)*(-3*fmb*fmc+fmb*hbcm+2*fmc*hbcm-3*fmc2+hbcm2)+32*(
3947 . p6p8*p3p7*p2p3)*(-fmb*fmc-fmb*hbcm-fmc2+hbcm2)+32*(p7p8*p3p6*
3948 . p2p3)*(fmb*fmc-fmb*hbcm-fmc*hbcm+fmc2)+16*(p3p7*p3p6*p1p8)*(
3949 . fmb*fmc-fmc*hbcm+fmc2)+16*(p6p8*p3p7*p1p3)*(-fmb*fmc+2*fmc*
3950 . hbcm-fmc2)+16*(p6p8*p3p7)*(fmb*fmc*hbcm2-fmc*hbcm3+fmc2*hbcm2)
3951 . +ans9
3952 ans7=w13*ans8
3953 ans10=((p5p8*p3p7*p3p6)*(128*fb4*ffmcfmb+16)+(p6p8*p3p7*p3p5)*(
3954 . -128*fb4*ffmcfmb-16)+(p3p7*p3p6*p2p8)*(256*fb4*ffmcfmb+32)+(
3955 . p6p8*p3p7*p2p3)*(128*fb4*ffmcfmb+128*fb4+16)+(p7p8*p3p6*p2p3)*
3956 . (-128*fb4*ffmcfmb+128*fb4-16)+8*(p7p8*p3p6)*(8*fb3*fmc2+8*fb4*
3957 . fmc2+fmb*hbcm-fmc*hbcm+hbcm2)+64*(p6p7*p5p8)*(-fb3*fmc*hbcm-
3958 . fb4*fmc*hbcm)+64*(p6p8*p5p7)*(fb3*fmc*hbcm+fb4*fmc*hbcm)+64*(
3959 . p7p8*p4p6)*(fb3*fmc*hbcm+fb4*fmc*hbcm)+64*(p6p7*p2p8)*(fb3*fmc
3960 . *hbcm-fb4*fmc*hbcm+2*fb4*hbcm2)+8*(p6p8*p3p7)*(-8*fb3*fmb*fmc-
3961 . 8*fb4*fmc2-fmb*hbcm+fmc*hbcm)+128*(-fb4*p1p2*p3p6*p7p8+fb4*
3962 . p1p2*p3p7*p6p8-fb4*p1p3*p2p8*p6p7+2*fb4*p1p8*p2p3*p6p7+2*fb4*
3963 . p2p3*p2p8*p6p7-fb4*p2p3*p4p6*p7p8+3*fb4*p2p3*p4p7*p6p8-3*fb4*
3964 . p2p3*p4p8*p6p7+fb4*p2p3*p5p7*p6p8-fb4*p2p3*p5p8*p6p7+fb4*p2p5*
3965 . p3p6*p7p8-fb4*p2p5*p3p7*p6p8+fb4*p2p8*p3p5*p6p7-fb4*p2p8*p3p6*
3966 . p5p7+4*fb4*p2p8*p3p7*p4p6))
3967 ans1=w7*(16*(p6p7*p2p8*p2p3)*(fmb*hbcm+fmc*hbcm+2*hbcm2)+16*(
3968 . p3p7*p3p6*p2p8)*(fmb*fmc+fmc*hbcm+fmc2)+16*(p6p8*p3p7*p2p3)*(
3969 . fmb*fmc+fmc2)+32*(p6p8*p3p7)*(ffmcfmb*p2p3s2+p2p3s2)+32*(p7p8*
3970 . p3p6)*(-ffmcfmb*p2p3s2+p2p3s2)+16*(4*ffmcfmb*p2p3*p2p8*p3p6*
3971 . p3p7-2*ffmcfmb*p2p3*p3p5*p3p7*p6p8+2*ffmcfmb*p2p3*p3p6*p3p7*
3972 . p5p8+2*fmc*hbcm*p2p5*p3p7*p6p8+2*fmc*hbcm*p2p8*p3p7*p4p6+hbcm2
3973 . *p2p5*p2p8*p6p7-2*p1p2*p2p3*p3p6*p7p8+2*p1p2*p2p3*p3p7*p6p8-2*
3974 . p1p3*p2p3*p2p8*p6p7+4*p1p8*p2p3s2*p6p7+2*p2p3*p2p5*p3p6*p7p8-2
3975 . *p2p3*p2p5*p3p7*p6p8+2*p2p3*p2p8*p3p5*p6p7-2*p2p3*p2p8*p3p6*
3976 . p5p7+8*p2p3*p2p8*p3p7*p4p6+4*p2p3s2*p2p8*p6p7-2*p2p3s2*p4p6*
3977 . p7p8+6*p2p3s2*p4p7*p6p8-6*p2p3s2*p4p8*p6p7+2*p2p3s2*p5p7*p6p8-
3978 . 2*p2p3s2*p5p8*p6p7))+ans2+ans7+ans10
3979 ans=ccc*ans1
3980 b(12)=ans
3981 b(13)=ccc*(w7*(8*(p2p8*p2p3)*(-fmb+5*fmc-2*hbcm)+8*(2*hbcm*p1p2
3982 . *p2p8-3*hbcm*p2p5*p2p8))+w13*(8*(p2p8*p1p3)*(fmb-5*fmc+4*hbcm)
3983 . +8*p2p8*(-fmb*hbcm2+3*fmb2*hbcm+5*fmc*hbcm2-3*fmc2*hbcm-2*
3984 . hbcm3)+8*(2*hbcm*p1p2*p1p8-2*hbcm*p1p8*p2p3-3*hbcm*p1p8*p2p5))
3985 . +w11*(8*(p3p4*p2p8)*(fmb-5*fmc-2*hbcm)+8*(p2p8*p2p3)*(-fmb+5*
3986 . fmc-2*hbcm)+8*p2p8*(fmb*fmc*hbcm-7*fmc2*hbcm)+8*(2*hbcm*p1p2*
3987 . p2p8-4*hbcm*p1p2*p4p8+2*hbcm*p1p4*p2p8+6*hbcm*p1p8*p2p4+4*hbcm
3988 . *p2p3*p4p8+8*hbcm*p2p4*p2p8-8*hbcm*p2p4*p5p8-3*hbcm*p2p5*p2p8+
3989 . 5*hbcm*p2p5*p4p8))+(96*p5p8*(fb3*fmc+fb4*fmc)+32*p2p8*(-fb3*
3990 . fmc-fb4*fmb)+64*p1p8*(-fb3*fmc-fb4*fmc)))
3991 b(14)=ccc*(8*w7*(3*p1p2*p2p3-4*p2p3*p2p5-3*p2p3s2)+w11*(8*p2p4*
3992 . (fmb*hbcm+fmc*hbcm)+8*(-4*fmc*hbcm*p1p2+4*fmc*hbcm*p2p3+5*fmc*
3993 . hbcm*p2p5+3*p1p2*p2p3-3*p1p2*p3p4-4*p2p3*p2p5+3*p2p3*p3p4-3*
3994 . p2p3s2+4*p2p5*p3p4))+w13*(32*p2p5*(fmb*hbcm+fmc*hbcm-hbcm2)+24
3995 . *p2p3*(fmb*hbcm+fmc*hbcm-hbcm2)+24*p1p2*(-fmb*hbcm-fmc*hbcm+
3996 . hbcm2)+8*(-3*p1p2*p1p3+3*p1p3*p2p3+4*p1p3*p2p5))+16*(-fb3*fmb*
3997 . fmc-fb3*fmc2-fb4*fmb*fmc-fb4*fmc2+6*fb4*p1p2-6*fb4*p2p3-8*fb4*
3998 . p2p5))
3999 ans2=(64*p5p8*(fb3*fmc*hbcm+fb4*fmc*hbcm)+32*p1p8*(-fb3*fmc*
4000 . hbcm-fb4*fmc*hbcm)+32*p2p8*(fb3*fmb*hbcm-3*fb4*fmc*hbcm+4*fb4*
4001 . hbcm2)+64*(-2*fb4*p1p3*p2p8+2*fb4*p1p8*p2p3-3*fb4*p2p3*p5p8+3*
4002 . fb4*p2p8*p3p5))
4003 ans1=8*w7*(hbcm2*p1p2*p2p8+3*hbcm2*p2p3*p2p8-2*hbcm2*p2p5*p2p8-
4004 . 4*p1p3*p2p3*p2p8+4*p1p8*p2p3s2+6*p2p3*p2p8*p3p5-6*p2p3s2*p5p8)
4005 . +w13*(48*(p3p5*p2p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+48*(p5p8*p2p3)
4006 . *(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p2p3*p1p8)*(-5*fmb*hbcm-5*fmc*
4007 . hbcm+3*hbcm2)+8*(p2p8*p1p3)*(5*fmb*hbcm+5*fmc*hbcm-6*hbcm2)+8*
4008 . p2p8*(4*fmb*fmc*hbcm2-5*fmb*hbcm3+2*fmb2*hbcm2-5*fmc*hbcm3+2*
4009 . fmc2*hbcm2+3*hbcm4+4*p1p3s2)+8*(hbcm2*p1p2*p1p8-2*hbcm2*p1p8*
4010 . p2p5-4*p1p3*p1p8*p2p3+6*p1p3*p2p3*p5p8-6*p1p3*p2p8*p3p5))+w11*
4011 . (8*(p3p4*p2p8)*(-fmb*hbcm-fmc*hbcm-6*hbcm2)+8*(p4p8*p2p3)*(fmb
4012 . *hbcm+fmc*hbcm+3*hbcm2)+8*p2p8*(-fmb*fmc*hbcm2-6*fmc*hbcm3-
4013 . fmc2*hbcm2)+8*(6*fmc*hbcm*p1p3*p2p8-6*fmc*hbcm*p1p8*p2p3+8*fmc
4014 . *hbcm*p2p3*p5p8-8*fmc*hbcm*p2p8*p3p5+hbcm2*p1p2*p2p8-3*hbcm2*
4015 . p1p2*p4p8+2*hbcm2*p1p4*p2p8+4*hbcm2*p1p8*p2p4+3*hbcm2*p2p3*
4016 . p2p8+6*hbcm2*p2p4*p2p8-6*hbcm2*p2p4*p5p8-2*hbcm2*p2p5*p2p8+4*
4017 . hbcm2*p2p5*p4p8-4*p1p3*p2p3*p2p8+4*p1p3*p2p8*p3p4-4*p1p8*p2p3*
4018 . p3p4+4*p1p8*p2p3s2+6*p2p3*p2p8*p3p5+6*p2p3*p3p4*p5p8-6*p2p3s2*
4019 . p5p8-6*p2p8*p3p4*p3p5))+ans2
4020 ans=ccc*ans1
4021 b(15)=ans
4022 ans=ccc*(8*w7*(fmb*p2p3s2-5*fmc*p2p3s2-2*hbcm*p1p2*p2p3+3*hbcm*
4023 . p2p3*p2p5+2*hbcm*p2p3s2)+w13*(8*(p2p3*p1p3)*(-fmb+5*fmc-2*hbcm
4024 . )+24*p2p5*(fmb*hbcm2+fmc*hbcm2-hbcm3)+24*p2p3*(fmb*hbcm2-fmb2*
4025 . hbcm-fmc*hbcm2+fmc2*hbcm)+16*p1p2*(-fmb*hbcm2-fmc*hbcm2+hbcm3)
4026 . +8*(-2*hbcm*p1p2*p1p3+3*hbcm*p1p3*p2p5))+w11*(8*(p3p4*p2p3)*(-
4027 . fmb+5*fmc-2*hbcm)+8*p2p4*(fmb*hbcm2-5*fmc*hbcm2+6*hbcm3)+8*
4028 . p2p3*(-fmb*fmc*hbcm-3*fmc*hbcm2+7*fmc2*hbcm)+8*(fmb*p2p3s2+3*
4029 . fmc*hbcm2*p1p2-4*fmc*hbcm2*p2p5-5*fmc*p2p3s2-2*hbcm*p1p2*p2p3+
4030 . 4*hbcm*p1p2*p3p4-6*hbcm*p1p3*p2p4-2*hbcm*p1p4*p2p3-8*hbcm*p2p3
4031 . *p2p4+3*hbcm*p2p3*p2p5+2*hbcm*p2p3s2+8*hbcm*p2p4*p3p5-5*hbcm*
4032 . p2p5*p3p4))+(96*p3p5*(-fb3*fmc-fb4*fmc)+32*p2p3*(fb3*fmc+2*fb3
4033 . *hbcm+fb4*fmb)+64*p1p3*(fb3*fmc+fb4*fmc)+16*(-fb3*fmb*fmc*hbcm
4034 . -4*fb3*fmc*hbcm2+3*fb3*fmc2*hbcm-4*fb3*hbcm*p1p2+6*fb3*hbcm*
4035 . p2p5-fb4*fmb*fmc*hbcm-4*fb4*fmc*hbcm2+3*fb4*fmc2*hbcm)))
4036 b(16)=ans
4037 b(17)=ccc*(w7*(8*(p3p6*p2p8)*(fmc+hbcm)+8*(p6p8*p2p3)*(fmb-5*
4038 . fmc)+24*hbcm*p2p8*p4p6)+w13*(48*(p5p8*p3p6)*(fmc-hbcm)+16*(
4039 . p3p6*p2p8)*(-fmc+hbcm)+8*(p3p6*p1p8)*(-3*fmc+5*hbcm)+8*(p6p8*
4040 . p1p3)*(-fmb+5*fmc-4*hbcm)+8*p6p8*(fmb*hbcm2-3*fmb2*hbcm-5*fmc*
4041 . hbcm2+3*fmc2*hbcm+2*hbcm3)+24*hbcm*p1p8*p4p6)+w11*(8*(p4p8*
4042 . p3p6)*(-3*fmc-hbcm)+8*(p3p6*p2p8)*(fmc+hbcm)+8*(p6p8*p3p4)*(-
4043 . fmb+5*fmc+2*hbcm)+8*(p6p8*p2p3)*(fmb-5*fmc)+8*p6p8*(-fmb*fmc*
4044 . hbcm+7*fmc2*hbcm)+8*(-2*hbcm*p1p4*p6p8+2*hbcm*p1p8*p4p6-6*hbcm
4045 . *p2p4*p6p8+3*hbcm*p2p8*p4p6-5*hbcm*p4p6*p4p8-2*hbcm*p4p6*p5p8)
4046 . )+4*p6p8*(8*fb4*fmb-8*fb4*fmc-hbcm))
4047 b(18)=ccc*(w7*((p3p6*p2p3)*(-16*ffmcfmb-8)-32*p2p3*p4p6)+w11*(8
4048 . *p3p6*(fmc*hbcm+3*fmc2)+(p3p6*p3p4)*(16*ffmcfmb+8)+(p3p6*p2p3)
4049 . *(-16*ffmcfmb-8)+8*(5*fmc*hbcm*p4p6-4*p2p3*p4p6+4*p3p4*p4p6))+
4050 . w13*(32*p4p6*(fmb*hbcm+fmc*hbcm-hbcm2)+8*p3p6*(3*fmb*fmc-2*fmc
4051 . *hbcm+3*fmc2-hbcm2)+(p3p6*p1p3)*(16*ffmcfmb+8)+32*p1p3*p4p6)+(
4052 . p3p6*(-64*fb4*ffmcfmb-32*fb4-8)-128*fb4*p4p6))
4053 b(19)=ccc*(w7*(4*p2p8*(fmb*hbcm2-3*fmc*hbcm2+4*hbcm3)+8*(-2*
4054 . hbcm*p1p3*p2p8+2*hbcm*p1p8*p2p3-3*hbcm*p2p3*p5p8+3*hbcm*p2p8*
4055 . p3p5))+w11*(4*p4p8*(-fmb*hbcm2+7*fmc*hbcm2-8*hbcm3)+4*p2p8*(
4056 . fmb*hbcm2-5*fmc*hbcm2+4*hbcm3)+8*(-3*fmc*hbcm2*p1p8+4*fmc*
4057 . hbcm2*p5p8-2*hbcm*p1p3*p2p8+4*hbcm*p1p3*p4p8+2*hbcm*p1p8*p2p3-
4058 . 4*hbcm*p1p8*p3p4+hbcm*p2p3*p4p8-3*hbcm*p2p3*p5p8-hbcm*p2p8*
4059 . p3p4+3*hbcm*p2p8*p3p5+5*hbcm*p3p4*p5p8-5*hbcm*p3p5*p4p8))+w13*
4060 . (24*p5p8*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+8*p2p8*(fmb*hbcm2+fmc*
4061 . hbcm2-hbcm3)+4*p1p8*(5*fmb*hbcm2+fmc*hbcm2)+8*(hbcm*p1p3*p2p8-
4062 . 3*hbcm*p1p3*p5p8-hbcm*p1p8*p2p3+3*hbcm*p1p8*p3p5))+32*(2*fb3*
4063 . hbcm*p1p8+fb3*hbcm*p2p8-3*fb3*hbcm*p5p8))
4064 b(20)=ccc*(w7*(4*p2p8*(fmb*hbcm+fmc*hbcm)+8*(-3*p1p8*p2p3-p2p3*
4065 . p2p8+4*p2p3*p5p8))+w11*(4*p4p8*(-fmb*hbcm-fmc*hbcm)+4*p2p8*(
4066 . fmb*hbcm+3*fmc*hbcm)+8*(4*fmc*hbcm*p1p8-5*fmc*hbcm*p5p8-3*p1p8
4067 . *p2p3+3*p1p8*p3p4-p2p3*p2p8+4*p2p3*p5p8+p2p8*p3p4-4*p3p4*p5p8)
4068 . )+w13*(32*p5p8*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*p2p8*(fmb*hbcm+fmc
4069 . *hbcm-hbcm2)+4*p1p8*(7*fmb*hbcm+7*fmc*hbcm-6*hbcm2)+8*(3*p1p3*
4070 . p1p8+p1p3*p2p8-4*p1p3*p5p8))+32*(-3*fb4*p1p8-fb4*p2p8+4*fb4*
4071 . p5p8))
4072 b(21)=ccc*(w7*(8*(p3p7*p2p8)*(-3*fmc+2*hbcm)+8*(p7p8*p2p3)*(fmb
4073 . -5*fmc)+8*(-4*fmc*p1p8*p3p7+6*fmc*p3p7*p5p8+3*hbcm*p2p8*p5p7))
4074 . +w13*(8*(p3p7*p1p8)*(-fmc+2*hbcm)+8*(p7p8*p1p3)*(-fmb+5*fmc-4*
4075 . hbcm)+8*p7p8*(fmb*hbcm2-3*fmb2*hbcm-5*fmc*hbcm2+3*fmc2*hbcm+2*
4076 . hbcm3)+24*hbcm*p1p8*p5p7)+w11*(8*(p4p8*p3p7)*(3*fmc-4*hbcm)+8*
4077 . (p3p7*p2p8)*(-3*fmc+2*hbcm)+8*(p7p8*p3p4)*(-fmb+5*fmc+2*hbcm)+
4078 . 8*(p7p8*p2p3)*(fmb-5*fmc)+8*p7p8*(-fmb*fmc*hbcm+7*fmc2*hbcm)+8
4079 . *(-4*fmc*p1p8*p3p7+6*fmc*p3p7*p5p8-2*hbcm*p1p4*p7p8-6*hbcm*
4080 . p1p8*p4p7-6*hbcm*p2p4*p7p8-2*hbcm*p2p8*p4p7+3*hbcm*p2p8*p5p7+8
4081 . *hbcm*p4p7*p5p8-5*hbcm*p4p8*p5p7))+4*p7p8*(8*fb4*fmb-8*fb4*fmc
4082 . -hbcm))
4083 b(22)=ccc*(4*w7*p2p3*(fmb-7*fmc)+w13*(4*p1p3*(-fmb+7*fmc-6*hbcm
4084 . )+4*(fmb*hbcm2-4*fmb2*hbcm-7*fmc*hbcm2+4*fmc2*hbcm+3*hbcm3))+
4085 . w11*(4*p3p4*(-fmb+7*fmc+2*hbcm)+4*p2p3*(fmb-7*fmc)+4*(-fmb*fmc
4086 . *hbcm+9*fmc2*hbcm-2*hbcm*p1p4-8*hbcm*p2p4))+16*(fb4*fmb-fb4*
4087 . fmc))
4088 b(23)=ccc*(w7*(8*p3p7*(-fmb*fmc-fmc2)+(p3p7*p2p3)*(-16*ffmcfmb+
4089 . 24)+32*p2p3*p5p7)+w11*(8*p4p7*(-fmb*hbcm-fmc*hbcm)+8*p3p7*(-
4090 . fmb*fmc-4*fmc*hbcm+2*fmc2)+(p3p7*p3p4)*(16*ffmcfmb-24)+(p3p7*
4091 . p2p3)*(-16*ffmcfmb+24)+8*(-5*fmc*hbcm*p5p7+4*p2p3*p5p7-4*p3p4*
4092 . p5p7))+w13*(32*p5p7*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*p3p7*(2*fmb*
4093 . fmc-3*fmb*hbcm-5*fmc*hbcm+2*fmc2+3*hbcm2)+(p3p7*p1p3)*(16*
4094 . ffmcfmb-24)-32*p1p3*p5p7)+(p3p7*(-64*fb4*ffmcfmb+96*fb4-8)+128
4095 . *fb4*p5p7))
4096 ans=ccc*(w7*(4*p2p3*(-fmb*hbcm-fmc*hbcm-6*hbcm2)+8*(3*p1p3*p2p3
4097 . -4*p2p3*p3p5+p2p3s2))+w13*(32*p3p5*(fmb*hbcm+fmc*hbcm-hbcm2)+8
4098 . *p2p3*(-fmb*hbcm-fmc*hbcm+hbcm2)+4*p1p3*(-7*fmb*hbcm-7*fmc*
4099 . hbcm+8*hbcm2)+4*(-6*fmb*fmc*hbcm2+7*fmb*hbcm3-3*fmb2*hbcm2+7*
4100 . fmc*hbcm3-3*fmc2*hbcm2-4*hbcm4-2*p1p3*p2p3+8*p1p3*p3p5-6*
4101 . p1p3s2))+w11*(4*p3p4*(fmb*hbcm+fmc*hbcm+8*hbcm2)+4*p2p3*(-fmb*
4102 . hbcm-3*fmc*hbcm-6*hbcm2)+4*(fmb*fmc*hbcm2-8*fmc*hbcm*p1p3+10*
4103 . fmc*hbcm*p3p5+8*fmc*hbcm3+fmc2*hbcm2-2*hbcm2*p1p4-6*hbcm2*p2p4
4104 . +6*p1p3*p2p3-6*p1p3*p3p4-2*p2p3*p3p4-8*p2p3*p3p5+2*p2p3s2+8*
4105 . p3p4*p3p5))+16*(-fb3*fmb*hbcm-fb3*fmc*hbcm+4*fb4*fmc*hbcm-6*
4106 . fb4*hbcm2+6*fb4*p1p3+2*fb4*p2p3-8*fb4*p3p5))
4107 b(24)=ans
4108 ans=ccc*(w11*(8*p3p7*(-fmc*hbcm2-6*fmc2*hbcm)+8*(p3p7*p3p4)*(
4109 . fmb-8*fmc+2*hbcm)+8*(p3p7*p2p3)*(-fmb+8*fmc-2*hbcm)+8*p4p7*(-
4110 . fmb*hbcm2+5*fmc*hbcm2-6*hbcm3)+8*(4*fmc*hbcm2*p5p7+4*fmc*p1p3*
4111 . p3p7-6*fmc*p3p5*p3p7+6*hbcm*p1p3*p4p7+2*hbcm*p1p4*p3p7+2*hbcm*
4112 . p2p3*p4p7-3*hbcm*p2p3*p5p7+6*hbcm*p2p4*p3p7+5*hbcm*p3p4*p5p7-8
4113 . *hbcm*p3p5*p4p7))+w7*(8*(p3p7*p2p3)*(-fmb+8*fmc-2*hbcm)+8*p3p7
4114 . *(-fmb*fmc*hbcm-4*fmc*hbcm2+3*fmc2*hbcm)+8*(4*fmc*p1p3*p3p7-6*
4115 . fmc*p3p5*p3p7-3*hbcm*p2p3*p5p7))+w13*(8*(p3p7*p1p3)*(fmb-4*fmc
4116 . +2*hbcm)+24*p5p7*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+8*p3p7*(fmb*fmc*
4117 . hbcm-3*fmb*hbcm2+3*fmb2*hbcm+2*fmc*hbcm2-2*fmc2*hbcm)-24*hbcm*
4118 . p1p3*p5p7)+(4*p3p7*(8*fb3*fmc-16*fb3*hbcm-8*fb4*fmb+8*fb4*fmc+
4119 . hbcm)-96*fb3*hbcm*p5p7))
4120 b(25)=ans
4121 b(26)=ccc*(w7*(8*(p3p6*p2p3)*(-fmb+4*fmc-hbcm)-24*hbcm*p2p3*
4122 . p4p6)+w13*(48*(p3p6*p3p5)*(-fmc+hbcm)+16*(p3p6*p2p3)*(fmc-hbcm
4123 . )+8*(p3p6*p1p3)*(fmb-2*fmc-hbcm)+24*p4p6*(-fmb*hbcm2-fmc*hbcm2
4124 . +hbcm3)+8*p3p6*(-2*fmb*fmc*hbcm-fmb*hbcm2+3*fmb2*hbcm-2*fmc*
4125 . hbcm2-fmc2*hbcm+3*hbcm3)-24*hbcm*p1p3*p4p6)+w11*(16*p4p6*(fmc*
4126 . hbcm2+hbcm3)+8*(p3p6*p3p4)*(fmb-2*fmc-hbcm)+8*(p3p6*p2p3)*(-
4127 . fmb+4*fmc-hbcm)+8*p3p6*(fmb*fmc*hbcm+fmc*hbcm2-5*fmc2*hbcm)+8*
4128 . (-2*hbcm*p1p3*p4p6+2*hbcm*p1p4*p3p6-3*hbcm*p2p3*p4p6+6*hbcm*
4129 . p2p4*p3p6+5*hbcm*p3p4*p4p6+2*hbcm*p3p5*p4p6))+(4*p3p6*(-8*fb3*
4130 . fmc-8*fb3*hbcm-8*fb4*fmb+8*fb4*fmc+hbcm)-96*fb3*hbcm*p4p6))
4131 ans2=w11*(8*(p4p8*p3p7)*(-fmb*hbcm+fmc*hbcm-3*hbcm2)+8*(p7p8*
4132 . p3p4)*(fmb*hbcm+fmc*hbcm+6*hbcm2)+8*(p3p7*p2p8)*(fmb*hbcm+fmc*
4133 . hbcm+hbcm2)+8*(p7p8*p2p3)*(-fmb*hbcm-3*fmc*hbcm-4*hbcm2)+8*
4134 . p7p8*(fmb*fmc*hbcm2+6*fmc*hbcm3+fmc2*hbcm2+2*p2p3s2)+16*(-3*
4135 . fmc*hbcm*p1p3*p7p8+2*fmc*hbcm*p1p8*p3p7+4*fmc*hbcm*p3p5*p7p8-2
4136 . *fmc*hbcm*p3p7*p5p8-hbcm2*p1p4*p7p8-2*hbcm2*p1p8*p4p7-2*hbcm2*
4137 . p2p4*p7p8-hbcm2*p2p8*p4p7+hbcm2*p2p8*p5p7+3*hbcm2*p4p7*p5p8-2*
4138 . hbcm2*p4p8*p5p7+2*p1p3*p2p3*p7p8-2*p1p3*p3p4*p7p8-2*p1p8*p2p3*
4139 . p3p7+2*p1p8*p3p4*p3p7-p2p3*p2p8*p3p7-p2p3*p3p4*p7p8-3*p2p3*
4140 . p3p5*p7p8+3*p2p3*p3p7*p5p8+p2p8*p3p4*p3p7+3*p3p4*p3p5*p7p8-3*
4141 . p3p4*p3p7*p5p8))+(32*p7p8*(-fb3*fmb*hbcm-fb3*fmc*hbcm+2*fb4*
4142 . fmc*hbcm-4*fb4*hbcm2)+64*(2*fb4*p1p3*p7p8-2*fb4*p1p8*p3p7+fb4*
4143 . p2p3*p7p8-fb4*p2p8*p3p7-3*fb4*p3p5*p7p8+3*fb4*p3p7*p5p8))
4144 ans1=w7*(8*(p3p7*p2p8)*(fmb*hbcm-fmc*hbcm+hbcm2)+8*(p7p8*p2p3)*
4145 . (-fmb*hbcm-fmc*hbcm-4*hbcm2)+16*(-fmc*hbcm*p1p8*p3p7+2*fmc*
4146 . hbcm*p3p7*p5p8+hbcm2*p2p8*p5p7+2*p1p3*p2p3*p7p8-2*p1p8*p2p3*
4147 . p3p7-p2p3*p2p8*p3p7-3*p2p3*p3p5*p7p8+3*p2p3*p3p7*p5p8+p2p3s2*
4148 . p7p8))+w13*(48*(p5p8*p3p7)*(-fmb*hbcm-fmc*hbcm+hbcm2)+48*(p7p8
4149 . *p3p5)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p3p7*p2p8)*(fmb*hbcm+fmc*
4150 . hbcm-hbcm2)+16*(p7p8*p2p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p3p7*
4151 . p1p8)*(5*fmb*hbcm+5*fmc*hbcm-3*hbcm2)+8*(p7p8*p1p3)*(-5*fmb*
4152 . hbcm-5*fmc*hbcm+6*hbcm2)+8*p7p8*(-4*fmb*fmc*hbcm2+5*fmb*hbcm3-
4153 . 2*fmb2*hbcm2+5*fmc*hbcm3-2*fmc2*hbcm2-3*hbcm4-4*p1p3s2)+16*(
4154 . hbcm2*p1p8*p5p7+2*p1p3*p1p8*p3p7-p1p3*p2p3*p7p8+p1p3*p2p8*p3p7
4155 . +3*p1p3*p3p5*p7p8-3*p1p3*p3p7*p5p8))+ans2
4156 ans=ccc*ans1
4157 b(27)=ans
4158 ans2=w11*(8*(p4p8*p3p6)*(fmb*hbcm+3*fmc*hbcm+hbcm2)+8*(p6p8*
4159 . p3p4)*(-fmb*hbcm+7*fmc*hbcm)+8*(p3p6*p2p8)*(-fmb*hbcm-3*fmc*
4160 . hbcm-hbcm2)+8*(p6p8*p2p3)*(fmb*hbcm-5*fmc*hbcm-2*hbcm2)+8*p6p8
4161 . *(-fmb*fmc*hbcm2+2*fmc*hbcm3-fmc2*hbcm2+4*p2p3s2+6*p3p4s2)+16*
4162 . (-fmc*hbcm*p1p3*p6p8-3*fmc*hbcm*p1p8*p3p6+4*fmc*hbcm*p3p6*p5p8
4163 . +hbcm2*p1p4*p6p8-hbcm2*p1p8*p4p6+2*hbcm2*p2p4*p6p8-hbcm2*p2p8*
4164 . p4p6+2*hbcm2*p4p6*p4p8+hbcm2*p4p6*p5p8+p1p3*p2p3*p6p8-p1p3*
4165 . p3p4*p6p8+2*p1p8*p2p3*p3p6-2*p1p8*p3p4*p3p6+p2p3*p2p8*p3p6-5*
4166 . p2p3*p3p4*p6p8-3*p2p3*p3p6*p5p8-p2p8*p3p4*p3p6+3*p3p4*p3p6*
4167 . p5p8))+(32*p6p8*(fb3*fmb*hbcm+fb3*fmc*hbcm-2*fb4*fmc*hbcm-2*
4168 . fb4*hbcm2)+64*(fb4*p1p3*p6p8+2*fb4*p1p8*p3p6+2*fb4*p2p3*p6p8+
4169 . fb4*p2p8*p3p6-3*fb4*p3p4*p6p8-3*fb4*p3p6*p5p8))
4170 ans1=w7*(8*(p3p6*p2p8)*(-fmb*hbcm-fmc*hbcm-hbcm2)+8*(p6p8*p2p3)
4171 . *(fmb*hbcm+fmc*hbcm-2*hbcm2)+16*(-hbcm2*p2p8*p4p6+p1p3*p2p3*
4172 . p6p8+2*p1p8*p2p3*p3p6+p2p3*p2p8*p3p6-3*p2p3*p3p4*p6p8-3*p2p3*
4173 . p3p6*p5p8+2*p2p3s2*p6p8))+w13*(16*(p5p8*p3p6)*(3*fmb*hbcm+fmc*
4174 . hbcm-hbcm2)+48*(p6p8*p3p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p6p8*
4175 . p2p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p3p6*p1p8)*(-5*fmb*hbcm-3*
4176 . fmc*hbcm+hbcm2)+8*(p6p8*p1p3)*(-fmb*hbcm-fmc*hbcm+6*hbcm2)+8*
4177 . p6p8*(4*fmb*fmc*hbcm2+fmb*hbcm3+2*fmb2*hbcm2+fmc*hbcm3+2*fmc2*
4178 . hbcm2-3*hbcm4-2*p1p3s2)+16*(-fmb*hbcm*p2p8*p3p6-hbcm2*p1p8*
4179 . p4p6-2*p1p3*p1p8*p3p6-2*p1p3*p2p3*p6p8-p1p3*p2p8*p3p6+3*p1p3*
4180 . p3p4*p6p8+3*p1p3*p3p6*p5p8))+ans2
4181 ans=ccc*ans1
4182 b(28)=ans
4183 ans2=w13*(48*(p4p6*p3p7)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p5p7*
4184 . p3p6)*(-3*fmb*hbcm-fmc*hbcm+hbcm2)+48*(p6p7*p3p4)*(-fmb*hbcm-
4185 . fmc*hbcm+hbcm2)+32*(p6p7*p2p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(
4186 . p6p7*p1p3)*(fmb*hbcm+fmc*hbcm-6*hbcm2)+16*(p3p7*p3p6)*(3*fmb*
4187 . fmc-2*fmb*hbcm-3*fmc*hbcm+3*fmc2)+8*p6p7*(-4*fmb*fmc*hbcm2-fmb
4188 . *hbcm3-2*fmb2*hbcm2-fmc*hbcm3-2*fmc2*hbcm2+3*hbcm4+2*p1p3s2)+(
4189 . p3p7*p3p6*p1p3)*(32*ffmcfmb-16)+16*(2*p1p3*p2p3*p6p7-3*p1p3*
4190 . p3p4*p6p7-3*p1p3*p3p6*p5p7+3*p1p3*p3p7*p4p6))+((p3p7*p3p6)*(-
4191 . 128*fb4*ffmcfmb+64*fb4-16)+32*p6p7*(-fb3*fmb*hbcm-fb3*fmc*hbcm
4192 . +2*fb4*fmc*hbcm+2*fb4*hbcm2)+64*(-fb4*p1p3*p6p7-2*fb4*p2p3*
4193 . p6p7+3*fb4*p3p4*p6p7+3*fb4*p3p6*p5p7-3*fb4*p3p7*p4p6))
4194 ans1=w7*(8*(p6p7*p2p3)*(-fmb*hbcm-fmc*hbcm+2*hbcm2)+16*(p3p7*
4195 . p3p6)*(-fmb*fmc-fmc*hbcm-fmc2)+(p3p7*p3p6*p2p3)*(-32*ffmcfmb+
4196 . 16)+16*(-2*fmc*hbcm*p3p7*p4p6-p1p3*p2p3*p6p7+3*p2p3*p3p4*p6p7+
4197 . 3*p2p3*p3p6*p5p7-3*p2p3*p3p7*p4p6-2*p2p3s2*p6p7))+w11*(16*(
4198 . p4p6*p3p7)*(3*fmc*hbcm-hbcm2)+16*(p4p7*p3p6)*(-fmb*hbcm-2*fmc*
4199 . hbcm-hbcm2)+8*(p6p7*p3p4)*(fmb*hbcm-7*fmc*hbcm)+8*(p6p7*p2p3)*
4200 . (-fmb*hbcm+5*fmc*hbcm+2*hbcm2)+16*(p3p7*p3p6)*(-fmb*fmc-3*fmc*
4201 . hbcm+3*fmc2)+8*p6p7*(fmb*fmc*hbcm2-2*fmc*hbcm3+fmc2*hbcm2-4*
4202 . p2p3s2-6*p3p4s2)+(p3p7*p3p6*p3p4)*(32*ffmcfmb-16)+(p3p7*p3p6*
4203 . p2p3)*(-32*ffmcfmb+16)+16*(fmc*hbcm*p1p3*p6p7-4*fmc*hbcm*p3p6*
4204 . p5p7-hbcm2*p1p4*p6p7-2*hbcm2*p2p4*p6p7-3*hbcm2*p4p6*p4p7-hbcm2
4205 . *p4p6*p5p7-p1p3*p2p3*p6p7+p1p3*p3p4*p6p7+5*p2p3*p3p4*p6p7+3*
4206 . p2p3*p3p6*p5p7-3*p2p3*p3p7*p4p6-3*p3p4*p3p6*p5p7+3*p3p4*p3p7*
4207 . p4p6))+ans2
4208 ans=ccc*ans1
4209 b(29)=ans
4210 ans5=16*(-2*fmc*hbcm2*p1p8*p6p7-3*fmc*hbcm2*p5p7*p6p8+3*fmc*
4211 . hbcm2*p5p8*p6p7-2*fmc*p1p3*p3p7*p6p8+2*fmc*p1p8*p3p6*p3p7+2*
4212 . fmc*p2p8*p3p6*p3p7+4*fmc*p3p5*p3p7*p6p8-4*fmc*p3p6*p3p7*p5p8+5
4213 . *fmc2*hbcm*p3p7*p6p8-hbcm*p1p3*p2p8*p6p7-2*hbcm*p1p3*p4p6*p7p8
4214 . -4*hbcm*p1p3*p4p7*p6p8+3*hbcm*p1p3*p4p8*p6p7+2*hbcm*p1p4*p3p6*
4215 . p7p8-2*hbcm*p1p4*p3p7*p6p8+hbcm*p1p8*p2p3*p6p7-3*hbcm*p1p8*
4216 . p3p4*p6p7+4*hbcm*p1p8*p3p6*p4p7+2*hbcm*p1p8*p3p7*p4p6-2*hbcm*
4217 . p2p3*p4p6*p7p8-2*hbcm*p2p3*p4p7*p6p8+hbcm*p2p3*p4p8*p6p7+2*
4218 . hbcm*p2p3*p5p7*p6p8-2*hbcm*p2p3*p5p8*p6p7+4*hbcm*p2p4*p3p6*
4219 . p7p8-4*hbcm*p2p4*p3p7*p6p8-hbcm*p2p8*p3p4*p6p7+2*hbcm*p2p8*
4220 . p3p5*p6p7+2*hbcm*p2p8*p3p6*p4p7-2*hbcm*p2p8*p3p6*p5p7+2*hbcm*
4221 . p2p8*p3p7*p4p6+4*hbcm*p3p4*p4p6*p7p8-4*hbcm*p3p4*p5p7*p6p8+4*
4222 . hbcm*p3p4*p5p8*p6p7+2*hbcm*p3p5*p4p6*p7p8+6*hbcm*p3p5*p4p7*
4223 . p6p8-4*hbcm*p3p5*p4p8*p6p7-6*hbcm*p3p6*p4p7*p5p8+4*hbcm*p3p6*
4224 . p4p8*p5p7-4*hbcm*p3p7*p4p6*p4p8-2*hbcm*p3p7*p4p6*p5p8)
4225 ans4=32*(p4p8*p3p7*p3p6)*(-2*fmc+hbcm)+16*(p7p8*p4p6)*(fmc*
4226 . hbcm2+2*hbcm3)+16*(p6p8*p3p7*p3p4)*(-fmb+5*fmc-hbcm)+16*(p7p8*
4227 . p3p6*p3p4)*(fmb-fmc-hbcm)+16*(p6p8*p3p7*p2p3)*(fmb-5*fmc+hbcm)
4228 . +16*(p7p8*p3p6*p2p3)*(-fmb+3*fmc-hbcm)+8*(p6p7*p4p8)*(-fmb*
4229 . hbcm2+5*fmc*hbcm2-6*hbcm3)+16*(p6p8*p4p7)*(fmb*hbcm2-3*fmc*
4230 . hbcm2+4*hbcm3)+8*(p6p7*p2p8)*(fmb*hbcm2-3*fmc*hbcm2+2*hbcm3)+
4231 . 16*(p7p8*p3p6)*(fmb*fmc*hbcm+fmc*hbcm2-4*fmc2*hbcm)+ans5
4232 ans3=w11*ans4
4233 ans6=(64*(p6p8*p3p7)*(fb3*hbcm+fb4*fmb-fb4*fmc)+64*(p7p8*p3p6)*
4234 . (-fb3*hbcm-fb4*fmb+fb4*fmc)+64*(fb3*hbcm*p1p8*p6p7+fb3*hbcm*
4235 . p2p8*p6p7-2*fb3*hbcm*p4p6*p7p8+2*fb3*hbcm*p5p7*p6p8-2*fb3*hbcm
4236 . *p5p8*p6p7))
4237 ans2=w13*(64*(p5p8*p3p7*p3p6)*(fmc-hbcm)+64*(p7p8*p3p6*p3p5)*(-
4238 . fmc+hbcm)+32*(p3p7*p3p6*p2p8)*(-fmc+hbcm)+32*(p7p8*p3p6*p2p3)*
4239 . (fmc-hbcm)+32*(p3p7*p3p6*p1p8)*(-fmc+hbcm)+16*(p6p8*p3p7*p1p3)
4240 . *(-fmb+3*fmc-hbcm)+16*(p7p8*p3p6*p1p3)*(fmb-fmc-hbcm)+32*(p6p7
4241 . *p5p8)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+32*(p6p8*p5p7)*(fmb*hbcm2+
4242 . fmc*hbcm2-hbcm3)+32*(p7p8*p4p6)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+
4243 . 32*(p6p8*p3p7)*(fmb*hbcm2-fmb2*hbcm-fmc*hbcm2+fmc2*hbcm)+16*(
4244 . p6p7*p2p8)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+8*(p6p7*p1p8)*(3*fmb*
4245 . hbcm2+fmc*hbcm2)+16*(p7p8*p3p6)*(-fmb*fmc*hbcm-fmb*hbcm2+2*
4246 . fmb2*hbcm-fmc*hbcm2-fmc2*hbcm+2*hbcm3)+16*(hbcm*p1p3*p2p8*p6p7
4247 . -2*hbcm*p1p3*p4p6*p7p8+2*hbcm*p1p3*p5p7*p6p8-2*hbcm*p1p3*p5p8*
4248 . p6p7-hbcm*p1p8*p2p3*p6p7+2*hbcm*p1p8*p3p5*p6p7-2*hbcm*p1p8*
4249 . p3p6*p5p7+2*hbcm*p1p8*p3p7*p4p6))+ans3+ans6
4250 ans1=w7*(16*(p6p8*p3p7*p2p3)*(fmb-5*fmc+hbcm)+16*(p7p8*p3p6*
4251 . p2p3)*(-fmb+3*fmc-hbcm)+8*(p6p7*p2p8)*(fmb*hbcm2-fmc*hbcm2+2*
4252 . hbcm3)+16*(p6p8*p3p7)*(fmb*fmc*hbcm+2*fmc*hbcm2-fmc2*hbcm)+16*
4253 . (-2*fmc*p1p3*p3p7*p6p8+2*fmc*p1p8*p3p6*p3p7+2*fmc*p2p8*p3p6*
4254 . p3p7+4*fmc*p3p5*p3p7*p6p8-4*fmc*p3p6*p3p7*p5p8-hbcm*p1p3*p2p8*
4255 . p6p7+hbcm*p1p8*p2p3*p6p7-2*hbcm*p2p3*p4p6*p7p8+2*hbcm*p2p3*
4256 . p5p7*p6p8-2*hbcm*p2p3*p5p8*p6p7+2*hbcm*p2p8*p3p5*p6p7-2*hbcm*
4257 . p2p8*p3p6*p5p7+2*hbcm*p2p8*p3p7*p4p6))+ans2
4258 ans=ccc*ans1
4259 b(30)=ans
4260 ans2=w13*(48*(p6p7*p4p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+48*(p6p8*
4261 . p4p7)*(fmb*hbcm+fmc*hbcm-hbcm2)+48*(p7p8*p4p6)*(fmb*hbcm+fmc*
4262 . hbcm-hbcm2)+32*(p6p7*p2p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p6p7*
4263 . p1p8)*(fmb*hbcm+fmc*hbcm-2*hbcm2)+16*(p6p8*p3p7)*(fmb*fmc+fmb*
4264 . hbcm+fmc2-hbcm2)+16*(p7p8*p3p6)*(2*fmb*fmc-fmc*hbcm+2*fmc2-
4265 . hbcm2)+(p6p8*p3p7*p1p3)*(16*ffmcfmb+16)+(p7p8*p3p6*p1p3)*(16*
4266 . ffmcfmb+16)+16*(p1p3*p1p8*p6p7+2*p1p3*p2p8*p6p7+3*p1p3*p4p6*
4267 . p7p8+3*p1p3*p4p7*p6p8-3*p1p3*p4p8*p6p7))+((p6p8*p3p7)*(-64*fb4
4268 . *ffmcfmb-64*fb4-8)+(p7p8*p3p6)*(-64*fb4*ffmcfmb-64*fb4-8)+64*(
4269 . -fb4*p1p8*p6p7-2*fb4*p2p8*p6p7-3*fb4*p4p6*p7p8-3*fb4*p4p7*p6p8
4270 . +3*fb4*p4p8*p6p7))
4271 ans1=w7*(8*(p6p7*p2p8)*(-fmb*hbcm-fmc*hbcm)+16*(p6p8*p3p7)*(-
4272 . fmb*fmc-fmc2)+(p6p8*p3p7*p2p3)*(-16*ffmcfmb-16)+(p7p8*p3p6*
4273 . p2p3)*(-16*ffmcfmb-16)+16*(-p1p8*p2p3*p6p7-2*p2p3*p2p8*p6p7-3*
4274 . p2p3*p4p6*p7p8-3*p2p3*p4p7*p6p8+3*p2p3*p4p8*p6p7))+w11*(16*(
4275 . p7p8*p3p6)*(fmc*hbcm+2*fmc2)+8*(p6p7*p4p8)*(fmb*hbcm-7*fmc*
4276 . hbcm)+16*(p6p8*p4p7)*(-fmb*hbcm+3*fmc*hbcm)+8*(p6p7*p2p8)*(-
4277 . fmb*hbcm+5*fmc*hbcm)+16*(p6p8*p3p7)*(-fmb*fmc+fmc*hbcm+fmc2)+(
4278 . p6p8*p3p7*p3p4)*(16*ffmcfmb+16)+(p7p8*p3p6*p3p4)*(16*ffmcfmb+
4279 . 16)+(p6p8*p3p7*p2p3)*(-16*ffmcfmb-16)+(p7p8*p3p6*p2p3)*(-16*
4280 . ffmcfmb-16)+16*(fmc*hbcm*p1p8*p6p7+4*fmc*hbcm*p4p6*p7p8-p1p8*
4281 . p2p3*p6p7+p1p8*p3p4*p6p7-2*p2p3*p2p8*p6p7-3*p2p3*p4p6*p7p8-3*
4282 . p2p3*p4p7*p6p8+3*p2p3*p4p8*p6p7+2*p2p8*p3p4*p6p7+3*p3p4*p4p6*
4283 . p7p8+3*p3p4*p4p7*p6p8-3*p3p4*p4p8*p6p7))+ans2
4284 ans=ccc*ans1
4285 b(31)=ans
4286 b(32)=ccc*(w7*(8*(p6p7*p2p3)*(fmb-5*fmc)+16*(p3p7*p3p6)*(-
4287 . ffmcfmb*fmc-fmc)-48*fmc*p3p7*p4p6)+w13*(48*(p5p7*p3p6)*(fmc-
4288 . hbcm)+8*(p6p7*p1p3)*(-fmb+5*fmc-4*hbcm)+8*p6p7*(fmb*hbcm2-3*
4289 . fmb2*hbcm-5*fmc*hbcm2+3*fmc2*hbcm+2*hbcm3)+16*(p3p7*p3p6)*(-
4290 . ffmcfmb*fmc+3*fmc-2*hbcm))+w11*(16*(p4p6*p3p7)*(-2*fmc-hbcm)+
4291 . 16*(p4p7*p3p6)*(-2*fmc-hbcm)+8*(p6p7*p3p4)*(-fmb+5*fmc+2*hbcm)
4292 . +8*(p6p7*p2p3)*(fmb-5*fmc)+8*p6p7*(-fmb*fmc*hbcm+7*fmc2*hbcm)+
4293 . 16*(p3p7*p3p6)*(-ffmcfmb*fmc-fmc)+16*(-hbcm*p1p4*p6p7-3*hbcm*
4294 . p2p4*p6p7-4*hbcm*p4p6*p4p7-hbcm*p4p6*p5p7))+32*p6p7*(fb4*fmb-
4295 . fb4*fmc))
4296 do 200 n=1,32
4297 c(n,1)=c(n,1)-0.09090909090909091d0*b(n)
4298 c(n,2)=c(n,2)-0.1680909685530997d0*b(n)
4299 c(n,3)=c(n,3)-0.2077659977796572d0*b(n)
4300 200 continue
4301 return
4302 end
4303
4304 subroutine amp1s1_3p1(cc)
4305 implicit double precision(a-h,o-z)
4306 implicit integer (i-n)
4307 dimension b(12)
4308 #include "inclcon.h"
4309 #include "inclppp.h"
4310 #include "inclamp.h"
4311 do 100 n=1,12
4312 b(n)=0.0d0
4313 100 continue
4314 ccc=cc/((-2*ffmcfmb*p3p5+fmb2-2*fmc*hbcm+fmc2+hbcm2+2*p3p5)*(2*
4315 . ffmcfmb*p3p4+2*fmc2))
4316 b(1)=4*ccc*(hbcm*p4p6*w1-hbcm*p5p6*w2)
4317 b(2)=ccc*(4*w1*(3*fmc*hbcm*p6p7+p3p4*p6p7)+4*w2*(-3*fmb*hbcm*
4318 . p6p7-p3p5*p6p7)-16*fb4*p6p7)
4319 b(3)=ccc*(4*w2*(2*hbcm*p5p6*p7p8-3*hbcm*p5p8*p6p7)+4*w1*(2*hbcm
4320 . *p4p7*p6p8-3*hbcm*p4p8*p6p7))
4321 b(4)=4*ccc*(hbcm*p4p7*w1-hbcm*p5p7*w2)
4322 b(5)=ccc*(4*w1*(fmc*hbcm*p7p8+p3p4*p7p8)+4*w2*(-fmb*hbcm*p7p8-
4323 . p3p5*p7p8)-16*fb4*p7p8)
4324 b(6)=ccc*(4*w1*(-fmc*hbcm*p3p7+hbcm2*p4p7-p3p4*p3p7)+4*w2*(fmb*
4325 . hbcm*p3p7-hbcm2*p5p7+p3p5*p3p7)+16*fb4*p3p7)
4326 b(7)=ccc*(4*w1*(-fmc*hbcm2*p7p8-hbcm*p3p4*p7p8+hbcm*p3p7*p4p8)+
4327 . 4*w2*(-fmb*hbcm2*p7p8-hbcm*p3p5*p7p8+hbcm*p3p7*p5p8)+16*fb3*
4328 . hbcm*p7p8)
4329 b(8)=ccc*(4*w1*(fmc*hbcm*p6p8+p3p4*p6p8)+4*w2*(-fmb*hbcm*p6p8-
4330 . p3p5*p6p8)-16*fb4*p6p8)
4331 b(9)=ccc*(4*w1*(-fmc*hbcm*p3p6+hbcm2*p4p6-p3p4*p3p6)+4*w2*(fmb*
4332 . hbcm*p3p6-hbcm2*p5p6+p3p5*p3p6)+16*fb4*p3p6)
4333 b(10)=ccc*(4*w1*(-fmc*hbcm2*p6p8-hbcm*p3p4*p6p8+hbcm*p3p6*p4p8)
4334 . +4*w2*(-fmb*hbcm2*p6p8-hbcm*p3p5*p6p8+hbcm*p3p6*p5p8)+16*fb3*
4335 . hbcm*p6p8)
4336 b(11)=ccc*(4*w1*(fmc*hbcm2*p6p7+3*hbcm*p3p4*p6p7-2*hbcm*p3p6*
4337 . p4p7)+4*w2*(fmb*hbcm2*p6p7+3*hbcm*p3p5*p6p7-2*hbcm*p3p7*p5p6)+
4338 . 16*fb3*hbcm*p6p7)
4339 b(12)=ccc*(4*w1*(-2*hbcm2*p4p6*p7p8-2*hbcm2*p4p7*p6p8+hbcm2*
4340 . p4p8*p6p7)+4*hbcm2*p5p8*p6p7*w2)
4341 do 200 n=1,12
4342 c(n,1)=c(n,1)+1d0*b(n)
4343 200 continue
4344 return
4345 end
4346
4347 subroutine amp27_3p1(cc)
4348 implicit double precision(a-h,o-z)
4349 implicit integer (i-n)
4350 dimension b(32)
4351 #include "inclcon.h"
4352 #include "inclppp.h"
4353 #include "inclamp.h"
4354 do 100 n=1,32
4355 b(n)=0.0d0
4356 100 continue
4357 ccc=cc/((-2*p2p5)*(2*ffmcfmb*p3p4+2*fmc2)*(2*ffmcfmb*p2p3-2*
4358 . ffmcfmb*p3p5+fmb2-2*fmc*hbcm+fmc2+hbcm2-2*p2p3-2*p2p5+2*p3p5))
4359 b(1)=ccc*(16*w16*(-fmc*p2p5*p3p6-2*hbcm*p2p5*p4p6)-8*hbcm*p2p5*
4360 . p4p6*w1)
4361 b(2)=ccc*(w1*(8*(p5p7*p4p6)*(-fmb*hbcm+3*fmc*hbcm+hbcm2)+8*(-2*
4362 . fmc*hbcm*p5p6*p5p7+2*fmc2*p3p6*p5p7+p3p4*p3p6*p5p7+3*p3p4*p4p6
4363 . *p5p7-p3p4*p5p6*p5p7))+w16*(16*(p5p7*p5p6)*(-fmc*hbcm+hbcm2)+8
4364 . *(-2*fmb*fmc*p3p6*p5p7-4*fmb*hbcm*p4p6*p5p7+p2p3*p3p6*p5p7+3*
4365 . p2p3*p4p6*p5p7-p2p3*p5p6*p5p7-p3p5*p3p6*p5p7-3*p3p5*p4p6*p5p7+
4366 . p3p5*p5p6*p5p7))+32*(-fb4*p3p6*p5p7-3*fb4*p4p6*p5p7+fb4*p5p6*
4367 . p5p7))
4368 b(3)=ccc*(w16*(16*(p6p8*p5p7*p3p5)*(fmb-fmc+hbcm)+16*(p6p8*p5p7
4369 . *p2p3)*(-fmb+fmc-hbcm)+16*(p6p8*p5p7)*(-fmb*fmc*hbcm+fmb*hbcm2
4370 . +fmb2*hbcm)+16*(fmc*p2p8*p3p6*p5p7-fmc*p3p6*p5p7*p5p8-2*hbcm*
4371 . p2p5*p5p7*p6p8+2*hbcm*p2p8*p4p6*p5p7+hbcm*p2p8*p5p6*p5p7-2*
4372 . hbcm*p4p6*p5p7*p5p8-hbcm*p5p6*p5p7*p5p8))+w1*(16*(p6p8*p5p7*
4373 . p3p4)*(-fmb+fmc)+16*(p6p8*p5p7)*(-fmb*fmc*hbcm+fmc*hbcm2)+16*(
4374 . -fmc*p3p6*p4p8*p5p7-hbcm*p1p4*p5p7*p6p8+hbcm*p1p8*p4p6*p5p7+
4375 . hbcm*p2p4*p5p7*p6p8+hbcm*p2p8*p4p6*p5p7-hbcm*p4p5*p5p7*p6p8-
4376 . hbcm*p4p6*p4p8*p5p7-hbcm*p4p6*p5p7*p5p8+hbcm*p4p8*p5p6*p5p7))+
4377 . 32*(p6p8*p5p7)*(fb3*fmc-2*fb3*hbcm+2*fb4*fmb-fb4*fmc))
4378 b(4)=ccc*(w16*(4*(p5p7*p3p5)*(3*fmb-5*fmc+3*hbcm)+4*(p5p7*p2p3)
4379 . *(-3*fmb+5*fmc-3*hbcm)+12*p5p7*(-fmb*fmc*hbcm+fmb*hbcm2+fmb2*
4380 . hbcm)+8*(hbcm*p1p2*p5p7-hbcm*p1p5*p5p7+hbcm*p2p4*p5p7-3*hbcm*
4381 . p2p5*p5p7-hbcm*p4p5*p5p7))+w1*(4*(p5p7*p3p4)*(-3*fmb+5*fmc+
4382 . hbcm)+12*p5p7*(-fmb*fmc*hbcm+fmc*hbcm2+fmc2*hbcm)+8*(-hbcm*
4383 . p1p4*p5p7+hbcm*p2p4*p5p7-hbcm*p4p5*p5p7))+48*p5p7*(-fb3*hbcm+
4384 . fb4*fmb-fb4*fmc))
4385 b(5)=ccc*(w1*(4*(p5p7*p4p8)*(-3*fmb*hbcm-fmc*hbcm+3*hbcm2)+8*(
4386 . fmc*hbcm*p1p8*p5p7+3*fmc*hbcm*p2p8*p5p7-3*fmc*hbcm*p5p7*p5p8+
4387 . p1p8*p3p4*p5p7+3*p2p8*p3p4*p5p7+p3p4*p4p8*p5p7-3*p3p4*p5p7*
4388 . p5p8))+w16*(12*(p5p8*p5p7)*(fmb*hbcm-fmc*hbcm+hbcm2)+12*(p5p7*
4389 . p2p8)*(-fmb*hbcm+fmc*hbcm-hbcm2)+8*(-fmb*hbcm*p1p8*p5p7-fmb*
4390 . hbcm*p4p8*p5p7+p1p8*p2p3*p5p7-p1p8*p3p5*p5p7+3*p2p3*p2p8*p5p7+
4391 . p2p3*p4p8*p5p7-3*p2p3*p5p7*p5p8-3*p2p8*p3p5*p5p7-p3p5*p4p8*
4392 . p5p7+3*p3p5*p5p7*p5p8))+32*(-fb4*p1p8*p5p7-3*fb4*p2p8*p5p7-fb4
4393 . *p4p8*p5p7+3*fb4*p5p7*p5p8))
4394 ans=ccc*(w16*(12*(p5p7*p3p5)*(-fmb*hbcm+fmc*hbcm-hbcm2)+12*(
4395 . p5p7*p2p3)*(fmb*hbcm-fmc*hbcm+hbcm2)+4*p5p7*(5*fmb*fmc*hbcm2-3
4396 . *fmb*hbcm3+3*fmb2*hbcm2-6*p2p3s2-6*p3p5s2)+8*(fmb*hbcm*p1p3*
4397 . p5p7+fmb*hbcm*p3p4*p5p7+hbcm2*p1p2*p5p7-hbcm2*p1p5*p5p7+hbcm2*
4398 . p2p4*p5p7-3*hbcm2*p2p5*p5p7-hbcm2*p4p5*p5p7-p1p3*p2p3*p5p7+
4399 . p1p3*p3p5*p5p7-p2p3*p3p4*p5p7+6*p2p3*p3p5*p5p7+p3p4*p3p5*p5p7)
4400 . )+w1*(4*(p5p7*p3p4)*(3*fmb*hbcm+fmc*hbcm+hbcm2)+4*p5p7*(3*fmb*
4401 . fmc*hbcm2+3*fmc*hbcm3+fmc2*hbcm2-2*p3p4s2)+8*(-fmc*hbcm*p1p3*
4402 . p5p7-3*fmc*hbcm*p2p3*p5p7+3*fmc*hbcm*p3p5*p5p7-hbcm2*p1p4*p5p7
4403 . +hbcm2*p2p4*p5p7-hbcm2*p4p5*p5p7-p1p3*p3p4*p5p7-3*p2p3*p3p4*
4404 . p5p7+3*p3p4*p3p5*p5p7))+(8*p5p7*(-6*fb3*fmb*hbcm-6*fb3*fmc*
4405 . hbcm+4*fb4*fmc*hbcm-6*fb4*hbcm2-hbcm2)+32*(fb4*p1p3*p5p7+3*fb4
4406 . *p2p3*p5p7+fb4*p3p4*p5p7-3*fb4*p3p5*p5p7)))
4407 b(6)=ans
4408 b(7)=ccc*(w1*(12*(p5p7*p4p8)*(-fmb*hbcm2+fmc*hbcm2-hbcm3)+8*(-
4409 . fmc*hbcm2*p1p8*p5p7-3*fmc*hbcm2*p2p8*p5p7+3*fmc*hbcm2*p5p7*
4410 . p5p8+hbcm*p1p3*p4p8*p5p7-hbcm*p1p8*p3p4*p5p7+3*hbcm*p2p3*p4p8*
4411 . p5p7-3*hbcm*p2p8*p3p4*p5p7+3*hbcm*p3p4*p5p7*p5p8-3*hbcm*p3p5*
4412 . p4p8*p5p7))+w16*(4*(p5p8*p5p7)*(3*fmb*hbcm2+5*fmc*hbcm2-3*
4413 . hbcm3)+4*(p5p7*p2p8)*(-3*fmb*hbcm2-5*fmc*hbcm2+3*hbcm3)+8*(-
4414 . fmb*hbcm2*p1p8*p5p7-fmb*hbcm2*p4p8*p5p7-hbcm*p1p3*p2p8*p5p7+
4415 . hbcm*p1p3*p5p7*p5p8+hbcm*p1p8*p2p3*p5p7-hbcm*p1p8*p3p5*p5p7+
4416 . hbcm*p2p3*p4p8*p5p7-hbcm*p2p8*p3p4*p5p7+hbcm*p3p4*p5p7*p5p8-
4417 . hbcm*p3p5*p4p8*p5p7))+32*(fb3*hbcm*p1p8*p5p7+3*fb3*hbcm*p2p8*
4418 . p5p7+fb3*hbcm*p4p8*p5p7-3*fb3*hbcm*p5p7*p5p8))
4419 b(8)=ccc*(8*w1*(fmc*hbcm*p1p2*p6p8-fmc*hbcm*p2p3*p6p8-fmc*hbcm*
4420 . p2p4*p6p8+fmc*hbcm*p2p5*p6p8+p1p2*p3p4*p6p8-p2p3*p3p4*p6p8-
4421 . p2p4*p3p4*p6p8+p2p5*p3p4*p6p8)+w16*(8*(p6p8*p2p5)*(fmb*hbcm+2*
4422 . fmc*hbcm-2*hbcm2)+8*(-fmb*hbcm*p1p2*p6p8+fmb*hbcm*p2p3*p6p8+
4423 . fmb*hbcm*p2p4*p6p8+p1p2*p2p3*p6p8-p1p2*p3p5*p6p8-p2p3*p2p4*
4424 . p6p8+p2p3*p2p5*p6p8+p2p3*p3p5*p6p8-p2p3s2*p6p8+p2p4*p3p5*p6p8-
4425 . p2p5*p3p5*p6p8))+32*(-fb4*p1p2*p6p8+fb4*p2p3*p6p8+fb4*p2p4*
4426 . p6p8-fb4*p2p5*p6p8))
4427 b(9)=ccc*(w16*(8*(p3p6*p2p5)*(-2*fmc*hbcm+hbcm2)+8*(-3*hbcm2*
4428 . p2p5*p4p6-hbcm2*p2p5*p5p6-2*p2p3*p2p5*p3p6+2*p2p5*p3p5*p3p6))+
4429 . 8*w1*(-2*fmc*hbcm*p2p5*p3p6-hbcm2*p2p5*p4p6-2*p2p5*p3p4*p3p6)+
4430 . 64*fb4*p2p5*p3p6)
4431 b(10)=ccc*(w16*(16*(p6p8*p2p5)*(-fmc*hbcm2+hbcm3)+16*(-hbcm*
4432 . p2p3*p2p5*p6p8+hbcm*p2p5*p2p8*p3p6+hbcm*p2p5*p3p5*p6p8-hbcm*
4433 . p2p5*p3p6*p5p8))+16*w1*(-fmc*hbcm2*p2p5*p6p8-hbcm*p2p5*p3p4*
4434 . p6p8+hbcm*p2p5*p3p6*p4p8)+64*fb3*hbcm*p2p5*p6p8)
4435 b(11)=ccc*(w16*(16*(p5p7*p3p6*p3p5)*(-fmb+2*fmc-hbcm)+16*(p5p7*
4436 . p3p6*p2p3)*(fmb-2*fmc+hbcm)+8*(p5p7*p5p6)*(fmb*hbcm2-2*fmc*
4437 . hbcm2+2*hbcm3)+8*(p5p7*p3p6)*(2*fmb*fmc*hbcm-fmb*hbcm2-2*fmb2*
4438 . hbcm)+8*(3*fmb*hbcm2*p4p6*p5p7-4*hbcm*p2p3*p4p6*p5p7-2*hbcm*
4439 . p2p3*p5p6*p5p7+4*hbcm*p2p5*p3p6*p5p7+4*hbcm*p3p5*p4p6*p5p7+2*
4440 . hbcm*p3p5*p5p6*p5p7))+w1*(8*(p5p7*p4p6)*(fmb*hbcm2+hbcm3)+8*(
4441 . p5p7*p3p6)*(2*fmb*fmc*hbcm-fmc*hbcm2)+8*(2*fmb*p3p4*p3p6*p5p7-
4442 . fmc*hbcm2*p5p6*p5p7-2*hbcm*p1p3*p4p6*p5p7+2*hbcm*p1p4*p3p6*
4443 . p5p7-2*hbcm*p2p3*p4p6*p5p7-2*hbcm*p2p4*p3p6*p5p7+2*hbcm*p3p4*
4444 . p4p6*p5p7-2*hbcm*p3p4*p5p6*p5p7+2*hbcm*p3p5*p4p6*p5p7+2*hbcm*
4445 . p3p6*p4p5*p5p7))+(32*(p5p7*p3p6)*(fb3*fmc-2*fb4*fmb+fb4*fmc)-
4446 . 64*fb3*hbcm*p4p6*p5p7))
4447 ans2=w1*(8*(p5p7*p4p8*p3p6)*(2*fmb*hbcm+2*fmc*hbcm-hbcm2)+16*(
4448 . p6p8*p5p7*p3p4)*(-fmb*hbcm-fmc*hbcm)+16*(p6p8*p5p7)*(-fmb*fmc*
4449 . hbcm2-fmc*hbcm3)+8*(2*fmc*hbcm*p2p3*p3p7*p6p8+2*fmc*hbcm*p2p3*
4450 . p4p7*p6p8+6*fmc*hbcm*p2p3*p5p7*p6p8+4*fmc*hbcm*p2p5*p3p6*p7p8-
4451 . 4*fmc*hbcm*p2p5*p3p7*p6p8-4*fmc*hbcm*p2p8*p3p6*p5p7-4*fmc*hbcm
4452 . *p3p5*p5p7*p6p8+4*fmc*hbcm*p3p6*p5p7*p5p8+2*hbcm2*p1p4*p5p7*
4453 . p6p8-2*hbcm2*p1p8*p4p6*p5p7-2*hbcm2*p2p4*p5p7*p6p8+2*hbcm2*
4454 . p2p5*p4p6*p7p8-2*hbcm2*p2p8*p4p6*p5p7+2*hbcm2*p4p5*p5p7*p6p8+
4455 . hbcm2*p4p6*p4p8*p5p7+2*hbcm2*p4p6*p5p7*p5p8-hbcm2*p4p8*p5p6*
4456 . p5p7+2*p2p3*p3p4*p3p7*p6p8+2*p2p3*p3p4*p4p7*p6p8+6*p2p3*p3p4*
4457 . p5p7*p6p8+4*p2p5*p3p4*p3p6*p7p8-4*p2p5*p3p4*p3p7*p6p8-4*p2p8*
4458 . p3p4*p3p6*p5p7-4*p3p4*p3p5*p5p7*p6p8+4*p3p4*p3p6*p5p7*p5p8))+(
4459 . 8*(p6p8*p5p7)*(8*fb3*fmb*hbcm+4*fb3*fmc*hbcm-4*fb4*fmc*hbcm+8*
4460 . fb4*hbcm2+hbcm2)+64*(-fb4*p2p3*p3p7*p6p8-fb4*p2p3*p4p7*p6p8-3*
4461 . fb4*p2p3*p5p7*p6p8-2*fb4*p2p5*p3p6*p7p8+2*fb4*p2p5*p3p7*p6p8+2
4462 . *fb4*p2p8*p3p6*p5p7+2*fb4*p3p5*p5p7*p6p8-2*fb4*p3p6*p5p7*p5p8)
4463 . )
4464 ans1=w16*(32*(p6p8*p3p7*p2p5)*(-fmc*hbcm+hbcm2)+16*(p7p8*p3p6*
4465 . p2p5)*(2*fmc*hbcm-hbcm2)+8*(p5p8*p5p7*p3p6)*(-2*fmb*hbcm+2*fmc
4466 . *hbcm-hbcm2)+16*(p6p8*p5p7*p3p5)*(fmb*hbcm-fmc*hbcm+hbcm2)+8*(
4467 . p5p7*p3p6*p2p8)*(2*fmb*hbcm-2*fmc*hbcm+hbcm2)+16*(p6p8*p5p7*
4468 . p2p3)*(-2*fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p8*p5p7)*(-fmb*fmc*
4469 . hbcm2+fmb*hbcm3-fmb2*hbcm2+3*p2p3s2+2*p3p5s2)+8*(-2*fmb*hbcm*
4470 . p2p3*p3p7*p6p8-2*fmb*hbcm*p2p3*p4p7*p6p8+6*hbcm2*p2p5*p4p6*
4471 . p7p8+2*hbcm2*p2p5*p5p6*p7p8+4*hbcm2*p2p5*p5p7*p6p8-3*hbcm2*
4472 . p2p8*p4p6*p5p7-3*hbcm2*p2p8*p5p6*p5p7+3*hbcm2*p4p6*p5p7*p5p8+3
4473 . *hbcm2*p5p6*p5p7*p5p8+4*p2p3*p2p5*p3p6*p7p8-4*p2p3*p2p5*p3p7*
4474 . p6p8-4*p2p3*p2p8*p3p6*p5p7-2*p2p3*p3p5*p3p7*p6p8-2*p2p3*p3p5*
4475 . p4p7*p6p8-10*p2p3*p3p5*p5p7*p6p8+4*p2p3*p3p6*p5p7*p5p8+2*
4476 . p2p3s2*p3p7*p6p8+2*p2p3s2*p4p7*p6p8-4*p2p5*p3p5*p3p6*p7p8+4*
4477 . p2p5*p3p5*p3p7*p6p8+4*p2p8*p3p5*p3p6*p5p7-4*p3p5*p3p6*p5p7*
4478 . p5p8))+ans2
4479 ans=ccc*ans1
4480 b(12)=ans
4481 b(13)=ccc*(4*w16*(-2*hbcm*p1p8*p2p5-3*hbcm*p2p5*p2p8-2*hbcm*
4482 . p2p5*p4p8+3*hbcm*p2p5*p5p8)-12*hbcm*p2p5*p4p8*w1)
4483 b(14)=ccc*(w16*(12*p2p5*(-fmc*hbcm+hbcm2)+12*(-p2p3*p2p5+p2p5*
4484 . p3p5))+12*w1*(-fmc*hbcm*p2p5-p2p5*p3p4)+48*fb4*p2p5)
4485 b(15)=ccc*(4*w16*(-2*hbcm2*p1p8*p2p5-3*hbcm2*p2p5*p2p8-2*hbcm2*
4486 . p2p5*p4p8+3*hbcm2*p2p5*p5p8)-12*hbcm2*p2p5*p4p8*w1)
4487 b(16)=ccc*(w16*(4*p2p5*(5*fmc*hbcm2-3*hbcm3)+4*(2*hbcm*p1p3*
4488 . p2p5+3*hbcm*p2p3*p2p5+2*hbcm*p2p5*p3p4-3*hbcm*p2p5*p3p5))+12*
4489 . w1*(fmc*hbcm2*p2p5+hbcm*p2p5*p3p4)-48*fb3*hbcm*p2p5)
4490 b(17)=ccc*(w16*(8*(p6p8*p3p5)*(-fmb+fmc-hbcm)+8*(p6p8*p2p3)*(
4491 . fmb-fmc+hbcm)+8*p6p8*(fmb*fmc*hbcm-fmb*hbcm2-fmb2*hbcm)+8*(-
4492 . fmc*p2p8*p3p6+fmc*p3p6*p5p8+2*hbcm*p2p5*p6p8-2*hbcm*p2p8*p4p6-
4493 . hbcm*p2p8*p5p6+2*hbcm*p4p6*p5p8+hbcm*p5p6*p5p8))+w1*(8*(p6p8*
4494 . p3p4)*(fmb-fmc)+8*p6p8*(fmb*fmc*hbcm-fmc*hbcm2)+8*(fmc*p3p6*
4495 . p4p8+hbcm*p1p4*p6p8-hbcm*p1p8*p4p6-hbcm*p2p4*p6p8-hbcm*p2p8*
4496 . p4p6+hbcm*p4p5*p6p8+hbcm*p4p6*p4p8+hbcm*p4p6*p5p8-hbcm*p4p8*
4497 . p5p6))+16*p6p8*(-fb3*fmc+2*fb3*hbcm-2*fb4*fmb+fb4*fmc))
4498 b(18)=ccc*(w1*(4*p4p6*(fmb*hbcm-3*fmc*hbcm-hbcm2)+4*(2*fmc*hbcm
4499 . *p5p6-2*fmc2*p3p6-p3p4*p3p6-3*p3p4*p4p6+p3p4*p5p6))+w16*(8*
4500 . p5p6*(fmc*hbcm-hbcm2)+4*(2*fmb*fmc*p3p6+4*fmb*hbcm*p4p6-p2p3*
4501 . p3p6-3*p2p3*p4p6+p2p3*p5p6+p3p5*p3p6+3*p3p5*p4p6-p3p5*p5p6))+
4502 . 16*(fb4*p3p6+3*fb4*p4p6-fb4*p5p6))
4503 b(19)=ccc*(w1*(6*p4p8*(fmb*hbcm2-fmc*hbcm2+hbcm3)+4*(fmc*hbcm2*
4504 . p1p8+3*fmc*hbcm2*p2p8-3*fmc*hbcm2*p5p8-hbcm*p1p3*p4p8+hbcm*
4505 . p1p8*p3p4-3*hbcm*p2p3*p4p8+3*hbcm*p2p8*p3p4-3*hbcm*p3p4*p5p8+3
4506 . *hbcm*p3p5*p4p8))+w16*(2*p5p8*(-3*fmb*hbcm2-5*fmc*hbcm2+3*
4507 . hbcm3)+2*p2p8*(3*fmb*hbcm2+5*fmc*hbcm2-3*hbcm3)+4*(fmb*hbcm2*
4508 . p1p8+fmb*hbcm2*p4p8+hbcm*p1p3*p2p8-hbcm*p1p3*p5p8-hbcm*p1p8*
4509 . p2p3+hbcm*p1p8*p3p5-hbcm*p2p3*p4p8+hbcm*p2p8*p3p4-hbcm*p3p4*
4510 . p5p8+hbcm*p3p5*p4p8))+16*(-fb3*hbcm*p1p8-3*fb3*hbcm*p2p8-fb3*
4511 . hbcm*p4p8+3*fb3*hbcm*p5p8))
4512 b(20)=ccc*(w1*(2*p4p8*(3*fmb*hbcm+fmc*hbcm-3*hbcm2)+4*(-fmc*
4513 . hbcm*p1p8-3*fmc*hbcm*p2p8+3*fmc*hbcm*p5p8-p1p8*p3p4-3*p2p8*
4514 . p3p4-p3p4*p4p8+3*p3p4*p5p8))+w16*(6*p5p8*(-fmb*hbcm+fmc*hbcm-
4515 . hbcm2)+6*p2p8*(fmb*hbcm-fmc*hbcm+hbcm2)+4*(fmb*hbcm*p1p8+fmb*
4516 . hbcm*p4p8-p1p8*p2p3+p1p8*p3p5-3*p2p3*p2p8-p2p3*p4p8+3*p2p3*
4517 . p5p8+3*p2p8*p3p5+p3p5*p4p8-3*p3p5*p5p8))+16*(fb4*p1p8+3*fb4*
4518 . p2p8+fb4*p4p8-3*fb4*p5p8))
4519 b(22)=ccc*(w16*(2*p3p5*(-3*fmb+5*fmc-3*hbcm)+2*p2p3*(3*fmb-5*
4520 . fmc+3*hbcm)+2*(3*fmb*fmc*hbcm-3*fmb*hbcm2-3*fmb2*hbcm-2*hbcm*
4521 . p1p2+2*hbcm*p1p5-2*hbcm*p2p4+6*hbcm*p2p5+2*hbcm*p4p5))+w1*(2*
4522 . p3p4*(3*fmb-5*fmc-hbcm)+2*(3*fmb*fmc*hbcm-3*fmc*hbcm2-3*fmc2*
4523 . hbcm+2*hbcm*p1p4-2*hbcm*p2p4+2*hbcm*p4p5))+24*(fb3*hbcm-fb4*
4524 . fmb+fb4*fmc))
4525 b(24)=ccc*(w16*(6*p3p5*(fmb*hbcm-fmc*hbcm+hbcm2)+6*p2p3*(-fmb*
4526 . hbcm+fmc*hbcm-hbcm2)+2*(-5*fmb*fmc*hbcm2-2*fmb*hbcm*p1p3-2*fmb
4527 . *hbcm*p3p4+3*fmb*hbcm3-3*fmb2*hbcm2-2*hbcm2*p1p2+2*hbcm2*p1p5-
4528 . 2*hbcm2*p2p4+6*hbcm2*p2p5+2*hbcm2*p4p5+2*p1p3*p2p3-2*p1p3*p3p5
4529 . +2*p2p3*p3p4-12*p2p3*p3p5+6*p2p3s2-2*p3p4*p3p5+6*p3p5s2))+w1*(
4530 . 2*p3p4*(-3*fmb*hbcm-fmc*hbcm-hbcm2)+2*(-3*fmb*fmc*hbcm2+2*fmc*
4531 . hbcm*p1p3+6*fmc*hbcm*p2p3-6*fmc*hbcm*p3p5-3*fmc*hbcm3-fmc2*
4532 . hbcm2+2*hbcm2*p1p4-2*hbcm2*p2p4+2*hbcm2*p4p5+2*p1p3*p3p4+6*
4533 . p2p3*p3p4-6*p3p4*p3p5+2*p3p4s2))+4*(6*fb3*fmb*hbcm+6*fb3*fmc*
4534 . hbcm-4*fb4*fmc*hbcm+6*fb4*hbcm2-4*fb4*p1p3-12*fb4*p2p3-4*fb4*
4535 . p3p4+12*fb4*p3p5+hbcm2))
4536 b(26)=ccc*(w16*(8*(p3p6*p3p5)*(fmb-2*fmc+hbcm)+8*(p3p6*p2p3)*(-
4537 . fmb+2*fmc-hbcm)+4*p5p6*(-fmb*hbcm2+2*fmc*hbcm2-2*hbcm3)+4*p3p6
4538 . *(-2*fmb*fmc*hbcm+fmb*hbcm2+2*fmb2*hbcm)+4*(-3*fmb*hbcm2*p4p6+
4539 . 4*hbcm*p2p3*p4p6+2*hbcm*p2p3*p5p6-4*hbcm*p2p5*p3p6-4*hbcm*p3p5
4540 . *p4p6-2*hbcm*p3p5*p5p6))+w1*(4*p4p6*(-fmb*hbcm2-hbcm3)+4*p3p6*
4541 . (-2*fmb*fmc*hbcm+fmc*hbcm2)+4*(-2*fmb*p3p4*p3p6+fmc*hbcm2*p5p6
4542 . +2*hbcm*p1p3*p4p6-2*hbcm*p1p4*p3p6+2*hbcm*p2p3*p4p6+2*hbcm*
4543 . p2p4*p3p6-2*hbcm*p3p4*p4p6+2*hbcm*p3p4*p5p6-2*hbcm*p3p5*p4p6-2
4544 . *hbcm*p3p6*p4p5))+(16*p3p6*(-fb3*fmc+2*fb4*fmb-fb4*fmc)+32*fb3
4545 . *hbcm*p4p6))
4546 ans2=(4*p6p8*(-8*fb3*fmb*hbcm-4*fb3*fmc*hbcm+4*fb4*fmc*hbcm-
4547 . hbcm2)+32*(-fb4*p1p3*p6p8+fb4*p2p3*p6p8-2*fb4*p2p8*p3p6+fb4*
4548 . p3p4*p6p8-fb4*p3p5*p6p8+2*fb4*p3p6*p5p8))
4549 ans1=w16*(4*(p5p8*p3p6)*(2*fmb*hbcm-2*fmc*hbcm+hbcm2)+4*(p3p6*
4550 . p2p8)*(-2*fmb*hbcm+2*fmc*hbcm-hbcm2)+8*p6p8*(fmb*fmc*hbcm2+
4551 . fmb2*hbcm2-p2p3s2-p3p5s2)+4*(-2*fmb*hbcm*p1p3*p6p8+2*fmb*hbcm*
4552 . p3p4*p6p8-2*fmc*hbcm*p2p3*p6p8+2*fmc*hbcm*p3p5*p6p8-4*hbcm2*
4553 . p2p5*p6p8+3*hbcm2*p2p8*p4p6+3*hbcm2*p2p8*p5p6-3*hbcm2*p4p6*
4554 . p5p8-3*hbcm2*p5p6*p5p8+2*p1p3*p2p3*p6p8-2*p1p3*p3p5*p6p8+4*
4555 . p2p3*p2p8*p3p6-2*p2p3*p3p4*p6p8+4*p2p3*p3p5*p6p8-4*p2p3*p3p6*
4556 . p5p8-4*p2p8*p3p5*p3p6+2*p3p4*p3p5*p6p8+4*p3p5*p3p6*p5p8))+w1*(
4557 . 4*(p4p8*p3p6)*(-2*fmb*hbcm-2*fmc*hbcm+hbcm2)+8*(p6p8*p3p4)*(
4558 . fmb*hbcm-hbcm2)+8*p6p8*(fmb*fmc*hbcm2-p3p4s2)+4*(2*fmc*hbcm*
4559 . p1p3*p6p8-2*fmc*hbcm*p2p3*p6p8+4*fmc*hbcm*p2p8*p3p6+2*fmc*hbcm
4560 . *p3p5*p6p8-4*fmc*hbcm*p3p6*p5p8-2*hbcm2*p1p4*p6p8+2*hbcm2*p1p8
4561 . *p4p6+2*hbcm2*p2p4*p6p8+2*hbcm2*p2p8*p4p6-2*hbcm2*p4p5*p6p8-
4562 . hbcm2*p4p6*p4p8-2*hbcm2*p4p6*p5p8+hbcm2*p4p8*p5p6+2*p1p3*p3p4*
4563 . p6p8-2*p2p3*p3p4*p6p8+4*p2p8*p3p4*p3p6+2*p3p4*p3p5*p6p8-4*p3p4
4564 . *p3p6*p5p8))+ans2
4565 ans=ccc*ans1
4566 b(28)=ans
4567 b(31)=ccc*(8*w1*(-fmc*hbcm*p3p7*p6p8-fmc*hbcm*p4p7*p6p8-fmc*
4568 . hbcm*p5p7*p6p8-p3p4*p3p7*p6p8-p3p4*p4p7*p6p8-p3p4*p5p7*p6p8)+8
4569 . *w16*(fmb*hbcm*p3p7*p6p8+fmb*hbcm*p4p7*p6p8+fmb*hbcm*p5p7*p6p8
4570 . -p2p3*p3p7*p6p8-p2p3*p4p7*p6p8-p2p3*p5p7*p6p8+p3p5*p3p7*p6p8+
4571 . p3p5*p4p7*p6p8+p3p5*p5p7*p6p8)+32*(fb4*p3p7*p6p8+fb4*p4p7*p6p8
4572 . +fb4*p5p7*p6p8))
4573 do 200 n=1,32
4574 c(n,2)=c(n,2)-0.8320502943378437d0*b(n)
4575 c(n,3)=c(n,3)+0.1869893980016914d0*b(n)
4576 200 continue
4577 return
4578 end
4579
4580 subroutine amp26_3p1(cc)
4581 implicit double precision(a-h,o-z)
4582 implicit integer (i-n)
4583 dimension b(32)
4584 #include "inclcon.h"
4585 #include "inclppp.h"
4586 #include "inclamp.h"
4587 do 100 n=1,32
4588 b(n)=0.0d0
4589 100 continue
4590 ccc=cc/((-2*p2p4)*(-2*ffmcfmb*p3p5+fmb2-2*fmc*hbcm+fmc2+hbcm2+2
4591 . *p3p5)*(-2*ffmcfmb*p2p3+2*ffmcfmb*p3p4+2*fmc2-2*p2p4))
4592 b(1)=ccc*(8*w2*(-hbcm*p1p2*p5p6+hbcm*p2p3*p5p6+hbcm*p2p5*p5p6)+
4593 . 8*w11*(2*fmc*p2p4*p3p6-hbcm*p1p2*p4p6+hbcm*p2p3*p4p6+3*hbcm*
4594 . p2p4*p4p6-2*hbcm*p2p4*p5p6+hbcm*p2p5*p4p6))
4595 b(2)=ccc*(w11*(8*(p4p7*p4p6)*(-fmb*hbcm+3*fmc*hbcm+hbcm2)+24*(
4596 . p6p7*p2p4)*(-fmb*hbcm+hbcm2)+8*(-2*fmc*hbcm*p4p7*p5p6+2*fmc2*
4597 . p3p6*p4p7-3*p2p3*p2p4*p6p7-p2p3*p3p6*p4p7-3*p2p3*p4p6*p4p7+
4598 . p2p3*p4p7*p5p6+3*p2p4*p3p4*p6p7+p3p4*p3p6*p4p7+3*p3p4*p4p6*
4599 . p4p7-p3p4*p4p7*p5p6))+w2*(16*(p5p6*p4p7)*(-fmc*hbcm+hbcm2)+8*(
4600 . -2*fmb*fmc*p3p6*p4p7-3*fmb*hbcm*p2p4*p6p7-4*fmb*hbcm*p4p6*p4p7
4601 . -3*p2p4*p3p5*p6p7-p3p5*p3p6*p4p7-3*p3p5*p4p6*p4p7+p3p5*p4p7*
4602 . p5p6))+32*(-3*fb4*p2p4*p6p7-fb4*p3p6*p4p7-3*fb4*p4p6*p4p7+fb4*
4603 . p4p7*p5p6))
4604 ans2=w11*(16*(p6p8*p4p7*p3p4)*(-fmb+fmc)+8*(p6p7*p3p4*p2p8)*(3*
4605 . fmb-5*fmc-hbcm)+16*(p6p8*p4p7*p2p3)*(fmb-fmc)+8*(p6p7*p2p8*
4606 . p2p3)*(-3*fmb+5*fmc-hbcm)+16*(p6p8*p4p7)*(-fmb*fmc*hbcm+fmc*
4607 . hbcm2)+24*(p6p7*p2p8)*(fmb*fmc*hbcm-fmc*hbcm2-fmc2*hbcm)+8*(-4
4608 . *fmc*p2p4*p3p6*p7p8+2*fmc*p2p8*p3p6*p4p7-2*fmc*p3p6*p4p7*p4p8+
4609 . 2*hbcm*p1p2*p4p6*p7p8+2*hbcm*p1p2*p4p7*p6p8-2*hbcm*p1p2*p4p8*
4610 . p6p7+2*hbcm*p1p4*p2p8*p6p7-2*hbcm*p1p4*p4p7*p6p8+2*hbcm*p1p8*
4611 . p2p4*p6p7+2*hbcm*p1p8*p4p6*p4p7-2*hbcm*p2p3*p4p6*p7p8+2*hbcm*
4612 . p2p3*p4p8*p6p7+5*hbcm*p2p4*p2p8*p6p7+2*hbcm*p2p4*p3p7*p6p8-6*
4613 . hbcm*p2p4*p4p6*p7p8+hbcm*p2p4*p4p8*p6p7+4*hbcm*p2p4*p5p6*p7p8+
4614 . 2*hbcm*p2p4*p5p7*p6p8-6*hbcm*p2p4*p5p8*p6p7-4*hbcm*p2p5*p2p8*
4615 . p6p7-2*hbcm*p2p5*p4p6*p7p8+2*hbcm*p2p5*p4p7*p6p8+2*hbcm*p2p5*
4616 . p4p8*p6p7+2*hbcm*p2p8*p3p7*p4p6+2*hbcm*p2p8*p4p5*p6p7+4*hbcm*
4617 . p2p8*p4p6*p4p7+2*hbcm*p2p8*p4p6*p5p7-2*hbcm*p2p8*p4p7*p5p6-2*
4618 . hbcm*p4p5*p4p7*p6p8-2*hbcm*p4p6*p4p7*p4p8-2*hbcm*p4p6*p4p7*
4619 . p5p8+2*hbcm*p4p7*p4p8*p5p6))+(96*(p6p7*p2p8)*(fb3*hbcm-fb4*fmb
4620 . +fb4*fmc)+32*(p6p8*p4p7)*(fb3*fmc-2*fb3*hbcm+2*fb4*fmb-fb4*fmc
4621 . ))
4622 ans1=w2*(16*(p6p8*p4p7*p3p5)*(fmb-fmc+hbcm)+8*(p6p7*p3p5*p2p8)*
4623 . (-3*fmb+5*fmc-3*hbcm)+16*(p6p8*p4p7)*(-fmb*fmc*hbcm+fmb*hbcm2+
4624 . fmb2*hbcm)+24*(p6p7*p2p8)*(fmb*fmc*hbcm-fmb*hbcm2-fmb2*hbcm)+8
4625 . *(-2*fmc*p3p6*p4p7*p5p8+2*hbcm*p1p2*p5p6*p7p8-2*hbcm*p1p2*p5p8
4626 . *p6p7+2*hbcm*p1p5*p2p8*p6p7-2*hbcm*p2p3*p5p6*p7p8+2*hbcm*p2p3*
4627 . p5p8*p6p7-hbcm*p2p4*p5p8*p6p7-2*hbcm*p2p5*p2p8*p6p7-2*hbcm*
4628 . p2p5*p5p6*p7p8+2*hbcm*p2p5*p5p8*p6p7+2*hbcm*p2p8*p3p7*p5p6+2*
4629 . hbcm*p2p8*p4p5*p6p7+2*hbcm*p2p8*p4p7*p5p6+2*hbcm*p2p8*p5p6*
4630 . p5p7-4*hbcm*p4p6*p4p7*p5p8-2*hbcm*p4p7*p5p6*p5p8))+ans2
4631 ans=ccc*ans1
4632 b(3)=ans
4633 b(4)=ccc*(w2*(4*(p4p7*p3p5)*(3*fmb-5*fmc+3*hbcm)+12*p4p7*(-fmb*
4634 . fmc*hbcm+fmb*hbcm2+fmb2*hbcm)+8*(-hbcm*p1p5*p4p7+hbcm*p2p5*
4635 . p4p7-hbcm*p4p5*p4p7))+w11*(4*(p4p7*p3p4)*(-3*fmb+5*fmc+hbcm)+4
4636 . *(p4p7*p2p3)*(3*fmb-5*fmc-hbcm)+12*p4p7*(-fmb*fmc*hbcm+fmc*
4637 . hbcm2+fmc2*hbcm)+8*(hbcm*p1p2*p4p7-hbcm*p1p4*p4p7+2*hbcm*p2p4*
4638 . p3p7-hbcm*p2p4*p4p7+2*hbcm*p2p4*p5p7+hbcm*p2p5*p4p7-hbcm*p4p5*
4639 . p4p7))+48*p4p7*(-fb3*hbcm+fb4*fmb-fb4*fmc))
4640 ans2=32*(-2*fb4*p1p2*p7p8-fb4*p1p8*p4p7+2*fb4*p2p3*p7p8-fb4*
4641 . p2p4*p7p8+2*fb4*p2p5*p7p8-2*fb4*p2p8*p3p7-fb4*p2p8*p4p7-2*fb4*
4642 . p2p8*p5p7-fb4*p4p7*p4p8+3*fb4*p4p7*p5p8)
4643 ans1=w11*(4*(p4p8*p4p7)*(-3*fmb*hbcm-fmc*hbcm+3*hbcm2)+4*(p4p7*
4644 . p2p8)*(3*fmb*hbcm+5*fmc*hbcm-3*hbcm2)+8*(p7p8*p2p4)*(-3*fmb*
4645 . hbcm-2*fmc*hbcm+3*hbcm2)+8*(2*fmc*hbcm*p1p2*p7p8+fmc*hbcm*p1p8
4646 . *p4p7-2*fmc*hbcm*p2p3*p7p8-2*fmc*hbcm*p2p5*p7p8+2*fmc*hbcm*
4647 . p2p8*p3p7+2*fmc*hbcm*p2p8*p5p7-3*fmc*hbcm*p4p7*p5p8-2*p1p2*
4648 . p2p3*p7p8+2*p1p2*p3p4*p7p8-p1p8*p2p3*p4p7+p1p8*p3p4*p4p7-p2p3*
4649 . p2p4*p7p8+2*p2p3*p2p5*p7p8-2*p2p3*p2p8*p3p7-p2p3*p2p8*p4p7-2*
4650 . p2p3*p2p8*p5p7-2*p2p3*p3p4*p7p8-p2p3*p4p7*p4p8+3*p2p3*p4p7*
4651 . p5p8+2*p2p3s2*p7p8+p2p4*p3p4*p7p8-2*p2p5*p3p4*p7p8+2*p2p8*p3p4
4652 . *p3p7+p2p8*p3p4*p4p7+2*p2p8*p3p4*p5p7+p3p4*p4p7*p4p8-3*p3p4*
4653 . p4p7*p5p8))+w2*(12*(p5p8*p4p7)*(fmb*hbcm-fmc*hbcm+hbcm2)+8*(-2
4654 . *fmb*hbcm*p1p2*p7p8-fmb*hbcm*p1p8*p4p7+2*fmb*hbcm*p2p3*p7p8-
4655 . fmb*hbcm*p2p4*p7p8+2*fmb*hbcm*p2p5*p7p8-2*fmb*hbcm*p2p8*p3p7-
4656 . fmb*hbcm*p2p8*p4p7-2*fmb*hbcm*p2p8*p5p7-fmb*hbcm*p4p7*p4p8-2*
4657 . p1p2*p3p5*p7p8-p1p8*p3p5*p4p7+2*p2p3*p3p5*p7p8-p2p4*p3p5*p7p8+
4658 . 2*p2p5*p3p5*p7p8-2*p2p8*p3p5*p3p7-p2p8*p3p5*p4p7-2*p2p8*p3p5*
4659 . p5p7-p3p5*p4p7*p4p8+3*p3p5*p4p7*p5p8))+ans2
4660 ans=ccc*ans1
4661 b(5)=ans
4662 ans2=(8*p4p7*(-6*fb3*fmb*hbcm-6*fb3*fmc*hbcm+4*fb4*fmc*hbcm-6*
4663 . fb4*hbcm2-hbcm2)+32*(2*fb4*p1p2*p3p7+fb4*p1p3*p4p7+fb4*p2p3*
4664 . p4p7+2*fb4*p2p3*p5p7+fb4*p2p4*p3p7-2*fb4*p2p5*p3p7+fb4*p3p4*
4665 . p4p7-3*fb4*p3p5*p4p7))
4666 ans1=w2*(12*(p4p7*p3p5)*(-fmb*hbcm+fmc*hbcm-hbcm2)+4*p4p7*(5*
4667 . fmb*fmc*hbcm2-3*fmb*hbcm3+3*fmb2*hbcm2-6*p3p5s2)+8*(2*fmb*hbcm
4668 . *p1p2*p3p7+fmb*hbcm*p1p3*p4p7+fmb*hbcm*p2p3*p4p7+2*fmb*hbcm*
4669 . p2p3*p5p7+fmb*hbcm*p2p4*p3p7-2*fmb*hbcm*p2p5*p3p7+fmb*hbcm*
4670 . p3p4*p4p7-hbcm2*p1p5*p4p7+hbcm2*p2p5*p4p7-hbcm2*p4p5*p4p7+2*
4671 . p1p2*p3p5*p3p7+p1p3*p3p5*p4p7+p2p3*p3p5*p4p7+2*p2p3*p3p5*p5p7+
4672 . p2p4*p3p5*p3p7-2*p2p5*p3p5*p3p7+p3p4*p3p5*p4p7))+w11*(4*(p4p7*
4673 . p3p4)*(3*fmb*hbcm+fmc*hbcm+hbcm2)+8*(p3p7*p2p4)*(3*fmb*hbcm+2*
4674 . fmc*hbcm-hbcm2)+4*(p4p7*p2p3)*(-3*fmb*hbcm-5*fmc*hbcm-hbcm2)+4
4675 . *p4p7*(3*fmb*fmc*hbcm2+3*fmc*hbcm3+fmc2*hbcm2+2*p2p3s2-2*
4676 . p3p4s2)+8*(-2*fmc*hbcm*p1p2*p3p7-fmc*hbcm*p1p3*p4p7-2*fmc*hbcm
4677 . *p2p3*p5p7+2*fmc*hbcm*p2p5*p3p7+3*fmc*hbcm*p3p5*p4p7+hbcm2*
4678 . p1p2*p4p7-hbcm2*p1p4*p4p7-hbcm2*p2p4*p4p7+2*hbcm2*p2p4*p5p7+
4679 . hbcm2*p2p5*p4p7-hbcm2*p4p5*p4p7+2*p1p2*p2p3*p3p7-2*p1p2*p3p4*
4680 . p3p7+p1p3*p2p3*p4p7-p1p3*p3p4*p4p7+p2p3*p2p4*p3p7-2*p2p3*p2p5*
4681 . p3p7-2*p2p3*p3p4*p5p7-3*p2p3*p3p5*p4p7+2*p2p3s2*p5p7-p2p4*p3p4
4682 . *p3p7+2*p2p5*p3p4*p3p7+3*p3p4*p3p5*p4p7))+ans2
4683 ans=ccc*ans1
4684 b(6)=ans
4685 ans4=8*(-2*fmc*hbcm2*p1p2*p7p8-fmc*hbcm2*p1p8*p4p7+2*fmc*hbcm2*
4686 . p2p5*p7p8-2*fmc*hbcm2*p2p8*p5p7+3*fmc*hbcm2*p4p7*p5p8-2*hbcm*
4687 . p1p2*p3p4*p7p8+2*hbcm*p1p2*p3p7*p4p8+2*hbcm*p1p3*p2p4*p7p8-
4688 . hbcm*p1p3*p2p8*p4p7+hbcm*p1p3*p4p7*p4p8+2*hbcm*p1p4*p2p3*p7p8-
4689 . 2*hbcm*p1p4*p2p8*p3p7+hbcm*p1p8*p2p3*p4p7-2*hbcm*p1p8*p2p4*
4690 . p3p7-hbcm*p1p8*p3p4*p4p7+5*hbcm*p2p3*p2p4*p7p8-4*hbcm*p2p3*
4691 . p2p5*p7p8+2*hbcm*p2p3*p4p5*p7p8+2*hbcm*p2p3*p4p7*p4p8-3*hbcm*
4692 . p2p3*p4p7*p5p8+2*hbcm*p2p3*p4p8*p5p7-5*hbcm*p2p4*p2p8*p3p7+
4693 . hbcm*p2p4*p3p4*p7p8-6*hbcm*p2p4*p3p5*p7p8-hbcm*p2p4*p3p7*p4p8+
4694 . 6*hbcm*p2p4*p3p7*p5p8+4*hbcm*p2p5*p2p8*p3p7+2*hbcm*p2p5*p3p4*
4695 . p7p8-2*hbcm*p2p5*p3p7*p4p8-2*hbcm*p2p8*p3p4*p4p7-2*hbcm*p2p8*
4696 . p3p4*p5p7+3*hbcm*p2p8*p3p5*p4p7-2*hbcm*p2p8*p3p7*p4p5+3*hbcm*
4697 . p3p4*p4p7*p5p8-3*hbcm*p3p5*p4p7*p4p8)
4698 ans3=8*(p3p7*p3p4*p2p8)*(-3*fmb+5*fmc-hbcm)+8*p7p8*(-3*fmb*
4699 . p2p3s2+5*fmc*p2p3s2-hbcm*p2p3s2)+8*(p7p8*p3p4*p2p3)*(3*fmb-5*
4700 . fmc+hbcm)+8*(p3p7*p2p8*p2p3)*(3*fmb-5*fmc+hbcm)+12*(p4p8*p4p7)
4701 . *(-fmb*hbcm2+fmc*hbcm2-hbcm3)+4*(p4p7*p2p8)*(3*fmb*hbcm2-7*fmc
4702 . *hbcm2+3*hbcm3)+8*(p7p8*p2p4)*(-3*fmb*hbcm2+4*fmc*hbcm2-3*
4703 . hbcm3)+8*(p3p7*p2p8)*(-3*fmb*fmc*hbcm+fmc*hbcm2+3*fmc2*hbcm)+8
4704 . *(p7p8*p2p3)*(3*fmb*fmc*hbcm-fmc*hbcm2-3*fmc2*hbcm)+ans4
4705 ans2=w11*ans3
4706 ans5=(32*(p3p7*p2p8)*(-fb3*hbcm+3*fb4*fmb-3*fb4*fmc)+32*(p7p8*
4707 . p2p3)*(fb3*hbcm-3*fb4*fmb+3*fb4*fmc)+32*(2*fb3*hbcm*p1p2*p7p8+
4708 . fb3*hbcm*p1p8*p4p7+fb3*hbcm*p2p4*p7p8-2*fb3*hbcm*p2p5*p7p8+fb3
4709 . *hbcm*p2p8*p4p7+2*fb3*hbcm*p2p8*p5p7+fb3*hbcm*p4p7*p4p8-3*fb3*
4710 . hbcm*p4p7*p5p8))
4711 ans1=w2*(8*(p3p7*p3p5*p2p8)*(3*fmb-5*fmc+hbcm)+8*(p7p8*p3p5*
4712 . p2p3)*(-3*fmb+5*fmc-hbcm)+4*(p5p8*p4p7)*(3*fmb*hbcm2+5*fmc*
4713 . hbcm2-3*hbcm3)+8*(p3p7*p2p8)*(-3*fmb*fmc*hbcm+fmb*hbcm2+3*fmb2
4714 . *hbcm)+8*(p7p8*p2p3)*(3*fmb*fmc*hbcm-fmb*hbcm2-3*fmb2*hbcm)+8*
4715 . (-2*fmb*hbcm2*p1p2*p7p8-fmb*hbcm2*p1p8*p4p7-fmb*hbcm2*p2p4*
4716 . p7p8+2*fmb*hbcm2*p2p5*p7p8-fmb*hbcm2*p2p8*p4p7-2*fmb*hbcm2*
4717 . p2p8*p5p7-fmb*hbcm2*p4p7*p4p8-2*hbcm*p1p2*p3p5*p7p8+2*hbcm*
4718 . p1p2*p3p7*p5p8+hbcm*p1p3*p4p7*p5p8+2*hbcm*p1p5*p2p3*p7p8-2*
4719 . hbcm*p1p5*p2p8*p3p7-hbcm*p1p8*p3p5*p4p7-2*hbcm*p2p3*p2p5*p7p8+
4720 . 2*hbcm*p2p3*p4p5*p7p8+hbcm*p2p3*p4p7*p5p8+2*hbcm*p2p3*p5p7*
4721 . p5p8-hbcm*p2p4*p3p5*p7p8+hbcm*p2p4*p3p7*p5p8+2*hbcm*p2p5*p2p8*
4722 . p3p7+2*hbcm*p2p5*p3p5*p7p8-2*hbcm*p2p5*p3p7*p5p8-hbcm*p2p8*
4723 . p3p5*p4p7-2*hbcm*p2p8*p3p5*p5p7-2*hbcm*p2p8*p3p7*p4p5+hbcm*
4724 . p3p4*p4p7*p5p8-hbcm*p3p5*p4p7*p4p8))+ans2+ans5
4725 ans=ccc*ans1
4726 b(7)=ans
4727 b(8)=ccc*(w11*(8*(p4p6*p2p8)*(-fmb*hbcm+3*fmc*hbcm+hbcm2)+8*(
4728 . p6p8*p2p4)*(-2*fmb*hbcm-fmc*hbcm+2*hbcm2)+8*(-2*fmc*hbcm*p2p8*
4729 . p5p6+2*fmc2*p2p8*p3p6-p2p3*p2p4*p6p8-p2p3*p2p8*p3p6-3*p2p3*
4730 . p2p8*p4p6+p2p3*p2p8*p5p6+p2p4*p3p4*p6p8+p2p8*p3p4*p3p6+3*p2p8*
4731 . p3p4*p4p6-p2p8*p3p4*p5p6))+w2*(16*(p5p6*p2p8)*(-fmc*hbcm+hbcm2
4732 . )+8*(-2*fmb*fmc*p2p8*p3p6-fmb*hbcm*p2p4*p6p8-4*fmb*hbcm*p2p8*
4733 . p4p6-p2p4*p3p5*p6p8-p2p8*p3p5*p3p6-3*p2p8*p3p5*p4p6+p2p8*p3p5*
4734 . p5p6))+32*(-fb4*p2p4*p6p8-fb4*p2p8*p3p6-3*fb4*p2p8*p4p6+fb4*
4735 . p2p8*p5p6))
4736 b(9)=ccc*(w11*(8*(p3p6*p2p3)*(fmc*hbcm-2*fmc2)+8*(p3p6*p2p4)*(2
4737 . *fmb*hbcm+2*fmc*hbcm-hbcm2)+8*(p4p6*p2p3)*(fmb*hbcm-3*fmc*hbcm
4738 . )+8*(-fmc*hbcm*p1p2*p3p6+2*fmc*hbcm*p2p3*p5p6+fmc*hbcm*p2p5*
4739 . p3p6-hbcm2*p1p2*p4p6+2*hbcm2*p2p4*p4p6-hbcm2*p2p4*p5p6+hbcm2*
4740 . p2p5*p4p6+p1p2*p2p3*p3p6-p1p2*p3p4*p3p6-p2p3*p2p5*p3p6-3*p2p3*
4741 . p3p4*p4p6+p2p3*p3p4*p5p6+3*p2p3s2*p4p6-p2p3s2*p5p6+p2p5*p3p4*
4742 . p3p6))+w2*(8*(p5p6*p2p3)*(2*fmc*hbcm-hbcm2)+8*(p3p6*p2p3)*(2*
4743 . fmb*fmc-fmb*hbcm)+8*(fmb*hbcm*p1p2*p3p6+4*fmb*hbcm*p2p3*p4p6-
4744 . fmb*hbcm*p2p5*p3p6-hbcm2*p1p2*p5p6+hbcm2*p2p5*p5p6+p1p2*p3p5*
4745 . p3p6+3*p2p3*p3p5*p4p6-p2p3*p3p5*p5p6-p2p5*p3p5*p3p6))+32*(fb4*
4746 . p1p2*p3p6+3*fb4*p2p3*p4p6-fb4*p2p3*p5p6-fb4*p2p5*p3p6))
4747 ans3=(32*(p3p6*p2p8)*(-fb3*fmc+2*fb4*fmb-fb4*fmc)+32*(p6p8*p2p3
4748 . )*(-fb3*fmc+fb3*hbcm-2*fb4*fmb+fb4*fmc)+32*(fb3*hbcm*p1p2*p6p8
4749 . -fb3*hbcm*p2p5*p6p8+2*fb3*hbcm*p2p8*p4p6))
4750 ans2=w11*(8*(p4p8*p3p6*p2p3)*(2*fmc-hbcm)+8*p6p8*(-2*fmb*p2p3s2
4751 . +2*fmc*p2p3s2-hbcm*p2p3s2)+8*(p6p8*p3p4*p2p3)*(2*fmb-2*fmc+
4752 . hbcm)+8*(p3p6*p2p8*p2p3)*(2*fmb-2*fmc+hbcm)+8*(p4p6*p2p8)*(-
4753 . fmb*hbcm2-hbcm3)+16*(p6p8*p2p4)*(-fmb*hbcm2+fmc*hbcm2-hbcm3)+8
4754 . *(p3p6*p2p8)*(-2*fmb*fmc*hbcm+fmc*hbcm2)+8*(p6p8*p2p3)*(2*fmb*
4755 . fmc*hbcm-fmc*hbcm2)+8*(-2*fmb*p2p8*p3p4*p3p6-fmc*hbcm2*p1p2*
4756 . p6p8+fmc*hbcm2*p2p5*p6p8+fmc*hbcm2*p2p8*p5p6-hbcm*p1p2*p2p3*
4757 . p6p8+hbcm*p1p2*p2p8*p3p6-hbcm*p1p2*p3p4*p6p8+hbcm*p1p2*p3p6*
4758 . p4p8+2*hbcm*p1p3*p2p8*p4p6+2*hbcm*p1p4*p2p3*p6p8-2*hbcm*p1p4*
4759 . p2p8*p3p6-2*hbcm*p1p8*p2p3*p4p6+2*hbcm*p2p3*p2p4*p6p8-3*hbcm*
4760 . p2p3*p2p5*p6p8+2*hbcm*p2p3*p4p5*p6p8+2*hbcm*p2p3*p4p6*p4p8+2*
4761 . hbcm*p2p3*p4p6*p5p8-2*hbcm*p2p3*p4p8*p5p6-2*hbcm*p2p4*p2p8*
4762 . p3p6-4*hbcm*p2p4*p3p5*p6p8+4*hbcm*p2p4*p3p6*p5p8+3*hbcm*p2p5*
4763 . p2p8*p3p6+hbcm*p2p5*p3p4*p6p8-hbcm*p2p5*p3p6*p4p8-2*hbcm*p2p8*
4764 . p3p4*p4p6+2*hbcm*p2p8*p3p4*p5p6-2*hbcm*p2p8*p3p5*p4p6-2*hbcm*
4765 . p2p8*p3p6*p4p5))+ans3
4766 ans1=w2*(8*(p5p8*p3p6*p2p3)*(2*fmc-hbcm)+16*(p3p6*p3p5*p2p8)*(
4767 . fmb-2*fmc+hbcm)+8*(p6p8*p3p5*p2p3)*(-2*fmb+2*fmc-hbcm)+8*(p5p6
4768 . *p2p8)*(-fmb*hbcm2+2*fmc*hbcm2-2*hbcm3)+8*(p3p6*p2p8)*(-2*fmb*
4769 . fmc*hbcm+fmb*hbcm2+2*fmb2*hbcm)+8*(p6p8*p2p3)*(2*fmb*fmc*hbcm-
4770 . fmb*hbcm2-2*fmb2*hbcm)+8*(-fmb*hbcm2*p1p2*p6p8+fmb*hbcm2*p2p5*
4771 . p6p8-3*fmb*hbcm2*p2p8*p4p6-hbcm*p1p2*p3p5*p6p8+hbcm*p1p2*p3p6*
4772 . p5p8+4*hbcm*p2p3*p4p6*p5p8+2*hbcm*p2p3*p5p6*p5p8+hbcm*p2p5*
4773 . p3p5*p6p8-hbcm*p2p5*p3p6*p5p8-4*hbcm*p2p8*p3p5*p4p6-2*hbcm*
4774 . p2p8*p3p5*p5p6))+ans2
4775 ans=ccc*ans1
4776 b(10)=ans
4777 ans3=(32*(p6p7*p2p3)*(-fb3*hbcm+3*fb4*fmb-3*fb4*fmc)+32*(p4p7*
4778 . p3p6)*(fb3*fmc-2*fb4*fmb+fb4*fmc)+32*(-2*fb3*hbcm*p1p2*p6p7-
4779 . fb3*hbcm*p2p4*p6p7+2*fb3*hbcm*p2p5*p6p7-2*fb3*hbcm*p4p6*p4p7))
4780 ans2=w11*(16*(p3p7*p3p6*p2p4)*(2*fmc-hbcm)+8*p6p7*(3*fmb*p2p3s2
4781 . -5*fmc*p2p3s2+hbcm*p2p3s2)+8*(p6p7*p3p4*p2p3)*(-3*fmb+5*fmc-
4782 . hbcm)+8*(p4p7*p4p6)*(fmb*hbcm2+hbcm3)+8*(p6p7*p2p4)*(3*fmb*
4783 . hbcm2-4*fmc*hbcm2+3*hbcm3)+8*(p4p7*p3p6)*(2*fmb*fmc*hbcm-fmc*
4784 . hbcm2)+8*(p6p7*p2p3)*(-3*fmb*fmc*hbcm+fmc*hbcm2+3*fmc2*hbcm)+8
4785 . *(-2*fmb*p2p3*p3p6*p4p7+2*fmb*p3p4*p3p6*p4p7+2*fmc*hbcm2*p1p2*
4786 . p6p7-2*fmc*hbcm2*p2p5*p6p7-fmc*hbcm2*p4p7*p5p6+2*hbcm*p1p2*
4787 . p3p4*p6p7-2*hbcm*p1p2*p3p6*p4p7-2*hbcm*p1p2*p3p7*p4p6-2*hbcm*
4788 . p1p3*p2p4*p6p7-2*hbcm*p1p3*p4p6*p4p7-2*hbcm*p1p4*p2p3*p6p7+2*
4789 . hbcm*p1p4*p3p6*p4p7-5*hbcm*p2p3*p2p4*p6p7+4*hbcm*p2p3*p2p5*
4790 . p6p7-2*hbcm*p2p3*p4p5*p6p7-4*hbcm*p2p3*p4p6*p4p7-2*hbcm*p2p3*
4791 . p4p6*p5p7+2*hbcm*p2p3*p4p7*p5p6-hbcm*p2p4*p3p4*p6p7+6*hbcm*
4792 . p2p4*p3p5*p6p7-2*hbcm*p2p4*p3p6*p5p7+6*hbcm*p2p4*p3p7*p4p6-4*
4793 . hbcm*p2p4*p3p7*p5p6-2*hbcm*p2p5*p3p4*p6p7-2*hbcm*p2p5*p3p6*
4794 . p4p7+2*hbcm*p2p5*p3p7*p4p6+2*hbcm*p3p4*p4p6*p4p7-2*hbcm*p3p4*
4795 . p4p7*p5p6+2*hbcm*p3p5*p4p6*p4p7+2*hbcm*p3p6*p4p5*p4p7))+ans3
4796 ans1=w2*(16*(p4p7*p3p6*p3p5)*(-fmb+2*fmc-hbcm)+8*(p6p7*p3p5*
4797 . p2p3)*(3*fmb-5*fmc+hbcm)+8*(p5p6*p4p7)*(fmb*hbcm2-2*fmc*hbcm2+
4798 . 2*hbcm3)+8*(p4p7*p3p6)*(2*fmb*fmc*hbcm-fmb*hbcm2-2*fmb2*hbcm)+
4799 . 8*(p6p7*p2p3)*(-3*fmb*fmc*hbcm+fmb*hbcm2+3*fmb2*hbcm)+8*(2*fmb
4800 . *hbcm2*p1p2*p6p7+fmb*hbcm2*p2p4*p6p7-2*fmb*hbcm2*p2p5*p6p7+3*
4801 . fmb*hbcm2*p4p6*p4p7+2*hbcm*p1p2*p3p5*p6p7-2*hbcm*p1p2*p3p7*
4802 . p5p6-2*hbcm*p1p5*p2p3*p6p7+2*hbcm*p2p3*p2p5*p6p7-2*hbcm*p2p3*
4803 . p4p5*p6p7-2*hbcm*p2p3*p4p7*p5p6-2*hbcm*p2p3*p5p6*p5p7+hbcm*
4804 . p2p4*p3p5*p6p7-2*hbcm*p2p5*p3p5*p6p7+2*hbcm*p2p5*p3p7*p5p6+4*
4805 . hbcm*p3p5*p4p6*p4p7+2*hbcm*p3p5*p4p7*p5p6))+ans2
4806 ans=ccc*ans1
4807 b(11)=ans
4808 ans4=8*(-2*fmc*hbcm*p1p8*p2p3*p6p7-2*fmc*hbcm*p2p3*p5p8*p6p7+4*
4809 . fmc*hbcm*p2p8*p3p7*p5p6-4*fmc*hbcm*p3p5*p4p7*p6p8+4*fmc*hbcm*
4810 . p3p6*p4p7*p5p8-4*fmc2*p2p8*p3p6*p3p7-2*hbcm2*p1p2*p2p8*p6p7-2*
4811 . hbcm2*p1p2*p4p7*p6p8+2*hbcm2*p1p2*p4p8*p6p7+2*hbcm2*p1p4*p4p7*
4812 . p6p8-2*hbcm2*p1p8*p2p4*p6p7-2*hbcm2*p1p8*p4p6*p4p7+hbcm2*p2p4*
4813 . p2p8*p6p7-2*hbcm2*p2p4*p3p7*p6p8-hbcm2*p2p4*p4p8*p6p7-2*hbcm2*
4814 . p2p4*p5p7*p6p8+6*hbcm2*p2p4*p5p8*p6p7+2*hbcm2*p2p5*p2p8*p6p7-2
4815 . *hbcm2*p2p5*p4p7*p6p8-2*hbcm2*p2p5*p4p8*p6p7-hbcm2*p2p8*p4p6*
4816 . p4p7+hbcm2*p2p8*p4p7*p5p6+2*hbcm2*p4p5*p4p7*p6p8+hbcm2*p4p6*
4817 . p4p7*p4p8+2*hbcm2*p4p6*p4p7*p5p8-hbcm2*p4p7*p4p8*p5p6-2*p1p8*
4818 . p2p3*p3p4*p6p7+2*p1p8*p2p3s2*p6p7-6*p2p3*p2p8*p3p4*p6p7+2*p2p3
4819 . *p2p8*p3p6*p3p7+6*p2p3*p2p8*p3p7*p4p6-2*p2p3*p2p8*p3p7*p5p6+6*
4820 . p2p3*p3p4*p4p8*p6p7-2*p2p3*p3p4*p5p8*p6p7+4*p2p3*p3p5*p4p7*
4821 . p6p8-4*p2p3*p3p6*p4p7*p5p8+6*p2p3s2*p2p8*p6p7-6*p2p3s2*p4p8*
4822 . p6p7+2*p2p3s2*p5p8*p6p7-2*p2p8*p3p4*p3p6*p3p7-6*p2p8*p3p4*p3p7
4823 . *p4p6+2*p2p8*p3p4*p3p7*p5p6-4*p3p4*p3p5*p4p7*p6p8+4*p3p4*p3p6*
4824 . p4p7*p5p8)
4825 ans3=8*(p4p8*p4p7*p3p6)*(2*fmb*hbcm+2*fmc*hbcm-hbcm2)+16*(p6p8*
4826 . p4p7*p3p4)*(-fmb*hbcm-fmc*hbcm)+16*(p4p6*p3p7*p2p8)*(fmb*hbcm-
4827 . 3*fmc*hbcm-hbcm2)+8*(p4p7*p3p6*p2p8)*(-2*fmb*hbcm-2*fmc*hbcm+
4828 . hbcm2)+8*(p6p7*p4p8*p2p3)*(-3*fmb*hbcm+3*fmc*hbcm+hbcm2)+16*(
4829 . p6p8*p4p7*p2p3)*(fmb*hbcm+fmc*hbcm)+8*(p6p7*p2p8*p2p3)*(3*fmb*
4830 . hbcm-3*fmc*hbcm-hbcm2)+16*(p6p8*p4p7)*(-fmb*fmc*hbcm2-fmc*
4831 . hbcm3)+ans4
4832 ans2=w11*ans3
4833 ans5=(8*(p6p8*p4p7)*(8*fb3*fmb*hbcm+4*fb3*fmc*hbcm-4*fb4*fmc*
4834 . hbcm+8*fb4*hbcm2+hbcm2)+64*(fb4*p1p8*p2p3*p6p7+3*fb4*p2p3*p2p8
4835 . *p6p7-3*fb4*p2p3*p4p8*p6p7+fb4*p2p3*p5p8*p6p7+fb4*p2p8*p3p6*
4836 . p3p7+3*fb4*p2p8*p3p7*p4p6-fb4*p2p8*p3p7*p5p6+2*fb4*p3p5*p4p7*
4837 . p6p8-2*fb4*p3p6*p4p7*p5p8))
4838 ans1=w2*(32*(p5p6*p3p7*p2p8)*(fmc*hbcm-hbcm2)+8*(p5p8*p4p7*p3p6
4839 . )*(-2*fmb*hbcm+2*fmc*hbcm-hbcm2)+16*(p6p8*p4p7*p3p5)*(fmb*hbcm
4840 . -fmc*hbcm+hbcm2)+8*(p6p7*p5p8*p2p3)*(-fmb*hbcm-3*fmc*hbcm+
4841 . hbcm2)+16*(p6p8*p4p7)*(-fmb*fmc*hbcm2+fmb*hbcm3-fmb2*hbcm2+2*
4842 . p3p5s2)+8*(4*fmb*fmc*p2p8*p3p6*p3p7+2*fmb*hbcm*p1p8*p2p3*p6p7+
4843 . 6*fmb*hbcm*p2p3*p2p8*p6p7-6*fmb*hbcm*p2p3*p4p8*p6p7+8*fmb*hbcm
4844 . *p2p8*p3p7*p4p6+2*hbcm2*p1p2*p5p8*p6p7+hbcm2*p2p4*p5p8*p6p7-2*
4845 . hbcm2*p2p5*p5p8*p6p7+3*hbcm2*p4p6*p4p7*p5p8+3*hbcm2*p4p7*p5p6*
4846 . p5p8+2*p1p8*p2p3*p3p5*p6p7+6*p2p3*p2p8*p3p5*p6p7-6*p2p3*p3p5*
4847 . p4p8*p6p7+2*p2p3*p3p5*p5p8*p6p7+2*p2p8*p3p5*p3p6*p3p7+6*p2p8*
4848 . p3p5*p3p7*p4p6-2*p2p8*p3p5*p3p7*p5p6-4*p3p5*p3p6*p4p7*p5p8))+
4849 . ans2+ans5
4850 ans=ccc*ans1
4851 b(12)=ans
4852 b(13)=ccc*(w2*(4*(p3p5*p2p8)*(-3*fmb+5*fmc-3*hbcm)+12*p2p8*(fmb
4853 . *fmc*hbcm-fmb*hbcm2-fmb2*hbcm)+4*(-2*hbcm*p1p2*p5p8+2*hbcm*
4854 . p1p5*p2p8+2*hbcm*p2p3*p5p8-hbcm*p2p4*p5p8-2*hbcm*p2p5*p2p8+2*
4855 . hbcm*p2p5*p5p8+2*hbcm*p2p8*p4p5))+w11*(4*(p3p4*p2p8)*(3*fmb-5*
4856 . fmc-hbcm)+4*(p2p8*p2p3)*(-3*fmb+5*fmc-hbcm)+12*p2p8*(fmb*fmc*
4857 . hbcm-fmc*hbcm2-fmc2*hbcm)+4*(-2*hbcm*p1p2*p4p8+2*hbcm*p1p4*
4858 . p2p8+2*hbcm*p1p8*p2p4+2*hbcm*p2p3*p4p8+5*hbcm*p2p4*p2p8+hbcm*
4859 . p2p4*p4p8-6*hbcm*p2p4*p5p8-4*hbcm*p2p5*p2p8+2*hbcm*p2p5*p4p8+2
4860 . *hbcm*p2p8*p4p5))+48*p2p8*(fb3*hbcm-fb4*fmb+fb4*fmc))
4861 b(14)=ccc*(w11*(4*p2p4*(3*fmb*hbcm+2*fmc*hbcm-3*hbcm2)+4*(-2*
4862 . fmc*hbcm*p1p2+2*fmc*hbcm*p2p3+2*fmc*hbcm*p2p5+2*p1p2*p2p3-2*
4863 . p1p2*p3p4+p2p3*p2p4-2*p2p3*p2p5+2*p2p3*p3p4-2*p2p3s2-p2p4*p3p4
4864 . +2*p2p5*p3p4))+4*w2*(2*fmb*hbcm*p1p2-2*fmb*hbcm*p2p3+fmb*hbcm*
4865 . p2p4-2*fmb*hbcm*p2p5+2*p1p2*p3p5-2*p2p3*p3p5+p2p4*p3p5-2*p2p5*
4866 . p3p5)+16*(2*fb4*p1p2-2*fb4*p2p3+fb4*p2p4-2*fb4*p2p5))
4867 ans2=(8*p2p8*(6*fb3*fmb*hbcm+6*fb3*fmc*hbcm-4*fb4*fmc*hbcm+6*
4868 . fb4*hbcm2+hbcm2)+32*(-fb4*p1p3*p2p8+fb4*p1p8*p2p3+fb4*p2p3*
4869 . p4p8-3*fb4*p2p3*p5p8-fb4*p2p8*p3p4+3*fb4*p2p8*p3p5))
4870 ans1=w2*(12*(p3p5*p2p8)*(fmb*hbcm-fmc*hbcm+hbcm2)+4*(p5p8*p2p3)
4871 . *(-3*fmb*hbcm+3*fmc*hbcm-hbcm2)+4*p2p8*(-5*fmb*fmc*hbcm2+3*fmb
4872 . *hbcm3-3*fmb2*hbcm2+6*p3p5s2)+4*(-2*fmb*hbcm*p1p3*p2p8+2*fmb*
4873 . hbcm*p1p8*p2p3+2*fmb*hbcm*p2p3*p4p8-2*fmb*hbcm*p2p8*p3p4-2*
4874 . hbcm2*p1p2*p5p8+2*hbcm2*p1p5*p2p8-hbcm2*p2p4*p5p8-2*hbcm2*p2p5
4875 . *p2p8+2*hbcm2*p2p5*p5p8+2*hbcm2*p2p8*p4p5-2*p1p3*p2p8*p3p5+2*
4876 . p1p8*p2p3*p3p5+2*p2p3*p3p5*p4p8-6*p2p3*p3p5*p5p8-2*p2p8*p3p4*
4877 . p3p5))+w11*(4*(p3p4*p2p8)*(-3*fmb*hbcm-fmc*hbcm-hbcm2)+4*(p4p8
4878 . *p2p3)*(3*fmb*hbcm+fmc*hbcm-hbcm2)+4*p2p8*(-3*fmb*fmc*hbcm2-3*
4879 . fmc*hbcm3-fmc2*hbcm2+2*p3p4s2)+4*(2*fmc*hbcm*p1p3*p2p8-2*fmc*
4880 . hbcm*p1p8*p2p3+6*fmc*hbcm*p2p3*p5p8-6*fmc*hbcm*p2p8*p3p5-2*
4881 . hbcm2*p1p2*p4p8+2*hbcm2*p1p4*p2p8+2*hbcm2*p1p8*p2p4+2*hbcm2*
4882 . p2p3*p2p8+5*hbcm2*p2p4*p2p8+hbcm2*p2p4*p4p8-6*hbcm2*p2p4*p5p8-
4883 . 4*hbcm2*p2p5*p2p8+2*hbcm2*p2p5*p4p8+2*hbcm2*p2p8*p4p5-2*p1p3*
4884 . p2p3*p2p8+2*p1p3*p2p8*p3p4-2*p1p8*p2p3*p3p4+2*p1p8*p2p3s2-2*
4885 . p2p3*p2p8*p3p4+6*p2p3*p2p8*p3p5-2*p2p3*p3p4*p4p8+6*p2p3*p3p4*
4886 . p5p8+2*p2p3s2*p4p8-6*p2p3s2*p5p8-6*p2p8*p3p4*p3p5))+ans2
4887 ans=ccc*ans1
4888 b(15)=ans
4889 b(16)=ccc*(w2*(4*(p3p5*p2p3)*(3*fmb-5*fmc+hbcm)+4*p2p3*(-3*fmb*
4890 . fmc*hbcm+fmb*hbcm2+3*fmb2*hbcm)+4*(2*fmb*hbcm2*p1p2+fmb*hbcm2*
4891 . p2p4-2*fmb*hbcm2*p2p5+2*hbcm*p1p2*p3p5-2*hbcm*p1p5*p2p3+2*hbcm
4892 . *p2p3*p2p5-2*hbcm*p2p3*p4p5+hbcm*p2p4*p3p5-2*hbcm*p2p5*p3p5))+
4893 . w11*(4*(p3p4*p2p3)*(-3*fmb+5*fmc-hbcm)+4*p2p4*(3*fmb*hbcm2-4*
4894 . fmc*hbcm2+3*hbcm3)+4*p2p3*(-3*fmb*fmc*hbcm+fmc*hbcm2+3*fmc2*
4895 . hbcm)+4*(3*fmb*p2p3s2+2*fmc*hbcm2*p1p2-2*fmc*hbcm2*p2p5-5*fmc*
4896 . p2p3s2+2*hbcm*p1p2*p3p4-2*hbcm*p1p3*p2p4-2*hbcm*p1p4*p2p3-5*
4897 . hbcm*p2p3*p2p4+4*hbcm*p2p3*p2p5-2*hbcm*p2p3*p4p5+hbcm*p2p3s2-
4898 . hbcm*p2p4*p3p4+6*hbcm*p2p4*p3p5-2*hbcm*p2p5*p3p4))+(16*p2p3*(-
4899 . fb3*hbcm+3*fb4*fmb-3*fb4*fmc)+16*(-2*fb3*hbcm*p1p2-fb3*hbcm*
4900 . p2p4+2*fb3*hbcm*p2p5)))
4901 b(17)=ccc*(w2*(8*(p6p8*p3p5)*(fmb-fmc+hbcm)+8*p6p8*(-fmb*fmc*
4902 . hbcm+fmb*hbcm2+fmb2*hbcm)+8*(-fmc*p3p6*p5p8-2*hbcm*p4p6*p5p8-
4903 . hbcm*p5p6*p5p8))+w11*(8*(p6p8*p3p4)*(-fmb+fmc)+8*(p6p8*p2p3)*(
4904 . fmb-fmc)+8*p6p8*(-fmb*fmc*hbcm+fmc*hbcm2)+8*(fmc*p2p8*p3p6-fmc
4905 . *p3p6*p4p8+hbcm*p1p2*p6p8-hbcm*p1p4*p6p8+hbcm*p1p8*p4p6-hbcm*
4906 . p2p4*p6p8+hbcm*p2p5*p6p8+hbcm*p2p8*p4p6-hbcm*p2p8*p5p6-hbcm*
4907 . p4p5*p6p8-hbcm*p4p6*p4p8-hbcm*p4p6*p5p8+hbcm*p4p8*p5p6))+16*
4908 . p6p8*(fb3*fmc-2*fb3*hbcm+2*fb4*fmb-fb4*fmc))
4909 b(18)=ccc*(w11*(4*p4p6*(-fmb*hbcm+3*fmc*hbcm+hbcm2)+4*(-2*fmc*
4910 . hbcm*p5p6+2*fmc2*p3p6-p2p3*p3p6-3*p2p3*p4p6+p2p3*p5p6+p3p4*
4911 . p3p6+3*p3p4*p4p6-p3p4*p5p6))+w2*(8*p5p6*(-fmc*hbcm+hbcm2)+4*(-
4912 . 2*fmb*fmc*p3p6-4*fmb*hbcm*p4p6-p3p5*p3p6-3*p3p5*p4p6+p3p5*p5p6
4913 . ))+16*(-fb4*p3p6-3*fb4*p4p6+fb4*p5p6))
4914 b(19)=ccc*(w11*(6*p4p8*(-fmb*hbcm2+fmc*hbcm2-hbcm3)+6*p2p8*(fmb
4915 . *hbcm2-fmc*hbcm2+hbcm3)+4*(-fmc*hbcm2*p1p8+3*fmc*hbcm2*p5p8-
4916 . hbcm*p1p3*p2p8+hbcm*p1p3*p4p8+hbcm*p1p8*p2p3-hbcm*p1p8*p3p4-3*
4917 . hbcm*p2p3*p5p8+3*hbcm*p2p8*p3p5+3*hbcm*p3p4*p5p8-3*hbcm*p3p5*
4918 . p4p8))+w2*(2*p5p8*(3*fmb*hbcm2+5*fmc*hbcm2-3*hbcm3)+4*(-fmb*
4919 . hbcm2*p1p8+fmb*hbcm2*p2p8-fmb*hbcm2*p4p8+hbcm*p1p3*p5p8-hbcm*
4920 . p1p8*p3p5-hbcm*p2p3*p5p8+hbcm*p2p8*p3p5+hbcm*p3p4*p5p8-hbcm*
4921 . p3p5*p4p8))+16*(fb3*hbcm*p1p8-fb3*hbcm*p2p8+fb3*hbcm*p4p8-3*
4922 . fb3*hbcm*p5p8))
4923 b(20)=ccc*(w11*(2*p4p8*(-3*fmb*hbcm-fmc*hbcm+3*hbcm2)+2*p2p8*(3
4924 . *fmb*hbcm+fmc*hbcm-3*hbcm2)+4*(fmc*hbcm*p1p8-3*fmc*hbcm*p5p8-
4925 . p1p8*p2p3+p1p8*p3p4+p2p3*p2p8-p2p3*p4p8+3*p2p3*p5p8-p2p8*p3p4+
4926 . p3p4*p4p8-3*p3p4*p5p8))+w2*(6*p5p8*(fmb*hbcm-fmc*hbcm+hbcm2)+4
4927 . *(-fmb*hbcm*p1p8+fmb*hbcm*p2p8-fmb*hbcm*p4p8-p1p8*p3p5+p2p8*
4928 . p3p5-p3p5*p4p8+3*p3p5*p5p8))+16*(-fb4*p1p8+fb4*p2p8-fb4*p4p8+3
4929 . *fb4*p5p8))
4930 b(21)=ccc*(w2*(4*(p7p8*p3p5)*(3*fmb-5*fmc+3*hbcm)+12*p7p8*(-fmb
4931 . *fmc*hbcm+fmb*hbcm2+fmb2*hbcm)+8*(-hbcm*p1p5*p7p8+hbcm*p2p5*
4932 . p7p8-hbcm*p3p7*p5p8-hbcm*p4p5*p7p8-hbcm*p4p7*p5p8-hbcm*p5p7*
4933 . p5p8))+w11*(4*(p7p8*p3p4)*(-3*fmb+5*fmc+hbcm)+4*(p7p8*p2p3)*(3
4934 . *fmb-5*fmc-hbcm)+12*p7p8*(-fmb*fmc*hbcm+fmc*hbcm2+fmc2*hbcm)+8
4935 . *(hbcm*p1p2*p7p8-hbcm*p1p4*p7p8-3*hbcm*p2p4*p7p8+hbcm*p2p5*
4936 . p7p8+hbcm*p2p8*p3p7+hbcm*p2p8*p4p7+hbcm*p2p8*p5p7-hbcm*p3p7*
4937 . p4p8-hbcm*p4p5*p7p8-hbcm*p4p7*p4p8-hbcm*p4p8*p5p7))+48*p7p8*(-
4938 . fb3*hbcm+fb4*fmb-fb4*fmc))
4939 b(22)=ccc*(w2*(2*p3p5*(3*fmb-5*fmc+3*hbcm)+2*(-3*fmb*fmc*hbcm+3
4940 . *fmb*hbcm2+3*fmb2*hbcm-2*hbcm*p1p5+2*hbcm*p2p5-2*hbcm*p4p5))+
4941 . w11*(2*p3p4*(-3*fmb+5*fmc+hbcm)+2*p2p3*(3*fmb-5*fmc-hbcm)+2*(-
4942 . 3*fmb*fmc*hbcm+3*fmc*hbcm2+3*fmc2*hbcm+2*hbcm*p1p2-2*hbcm*p1p4
4943 . -6*hbcm*p2p4+2*hbcm*p2p5-2*hbcm*p4p5))+24*(-fb3*hbcm+fb4*fmb-
4944 . fb4*fmc))
4945 b(23)=ccc*(8*w11*(-fmc*hbcm*p3p7-fmc*hbcm*p4p7-fmc*hbcm*p5p7+
4946 . p2p3*p3p7+p2p3*p4p7+p2p3*p5p7-p3p4*p3p7-p3p4*p4p7-p3p4*p5p7)+8
4947 . *w2*(fmb*hbcm*p3p7+fmb*hbcm*p4p7+fmb*hbcm*p5p7+p3p5*p3p7+p3p5*
4948 . p4p7+p3p5*p5p7)+32*(fb4*p3p7+fb4*p4p7+fb4*p5p7))
4949 b(24)=ccc*(w2*(6*p3p5*(-fmb*hbcm+fmc*hbcm-hbcm2)+2*(5*fmb*fmc*
4950 . hbcm2+2*fmb*hbcm*p1p3-2*fmb*hbcm*p2p3+2*fmb*hbcm*p3p4-3*fmb*
4951 . hbcm3+3*fmb2*hbcm2-2*hbcm2*p1p5+2*hbcm2*p2p5-2*hbcm2*p4p5+2*
4952 . p1p3*p3p5-2*p2p3*p3p5+2*p3p4*p3p5-6*p3p5s2))+w11*(2*p3p4*(3*
4953 . fmb*hbcm+fmc*hbcm+hbcm2)+2*p2p3*(-3*fmb*hbcm-fmc*hbcm-hbcm2)+2
4954 . *(3*fmb*fmc*hbcm2-2*fmc*hbcm*p1p3+6*fmc*hbcm*p3p5+3*fmc*hbcm3+
4955 . fmc2*hbcm2+2*hbcm2*p1p2-2*hbcm2*p1p4-6*hbcm2*p2p4+2*hbcm2*p2p5
4956 . -2*hbcm2*p4p5+2*p1p3*p2p3-2*p1p3*p3p4+4*p2p3*p3p4-6*p2p3*p3p5-
4957 . 2*p2p3s2+6*p3p4*p3p5-2*p3p4s2))+4*(-6*fb3*fmb*hbcm-6*fb3*fmc*
4958 . hbcm+4*fb4*fmc*hbcm-6*fb4*hbcm2+4*fb4*p1p3-4*fb4*p2p3+4*fb4*
4959 . p3p4-12*fb4*p3p5-hbcm2))
4960 b(25)=ccc*(w2*(4*(p3p7*p3p5)*(-3*fmb+5*fmc-hbcm)+4*p3p7*(3*fmb*
4961 . fmc*hbcm-fmb*hbcm2-3*fmb2*hbcm)+8*(fmb*hbcm2*p4p7+fmb*hbcm2*
4962 . p5p7+hbcm*p1p5*p3p7-hbcm*p2p5*p3p7+hbcm*p3p5*p4p7+hbcm*p3p5*
4963 . p5p7+hbcm*p3p7*p4p5))+w11*(4*(p3p7*p3p4)*(3*fmb-5*fmc+hbcm)+4*
4964 . (p3p7*p2p3)*(-3*fmb+5*fmc-hbcm)+4*p3p7*(3*fmb*fmc*hbcm-fmc*
4965 . hbcm2-3*fmc2*hbcm)+8*(fmc*hbcm2*p4p7+fmc*hbcm2*p5p7-hbcm*p1p2*
4966 . p3p7+hbcm*p1p4*p3p7-hbcm*p2p3*p4p7-hbcm*p2p3*p5p7+3*hbcm*p2p4*
4967 . p3p7-hbcm*p2p5*p3p7+hbcm*p3p4*p4p7+hbcm*p3p4*p5p7+hbcm*p3p7*
4968 . p4p5))+(16*p3p7*(fb3*hbcm-3*fb4*fmb+3*fb4*fmc)+32*(-fb3*hbcm*
4969 . p4p7-fb3*hbcm*p5p7)))
4970 b(26)=ccc*(w2*(8*(p3p6*p3p5)*(-fmb+2*fmc-hbcm)+4*p5p6*(fmb*
4971 . hbcm2-2*fmc*hbcm2+2*hbcm3)+4*p3p6*(2*fmb*fmc*hbcm-fmb*hbcm2-2*
4972 . fmb2*hbcm)+4*(3*fmb*hbcm2*p4p6+4*hbcm*p3p5*p4p6+2*hbcm*p3p5*
4973 . p5p6))+w11*(4*p4p6*(fmb*hbcm2+hbcm3)+4*p3p6*(2*fmb*fmc*hbcm-
4974 . fmc*hbcm2)+4*(-2*fmb*p2p3*p3p6+2*fmb*p3p4*p3p6-fmc*hbcm2*p5p6-
4975 . 2*hbcm*p1p2*p3p6-2*hbcm*p1p3*p4p6+2*hbcm*p1p4*p3p6-2*hbcm*p2p3
4976 . *p4p6+2*hbcm*p2p3*p5p6+2*hbcm*p2p4*p3p6-2*hbcm*p2p5*p3p6+2*
4977 . hbcm*p3p4*p4p6-2*hbcm*p3p4*p5p6+2*hbcm*p3p5*p4p6+2*hbcm*p3p6*
4978 . p4p5))+(16*p3p6*(fb3*fmc-2*fb4*fmb+fb4*fmc)-32*fb3*hbcm*p4p6))
4979 ans2=w11*(4*(p4p8*p3p7)*(-3*fmb*hbcm-fmc*hbcm+hbcm2)+4*(p7p8*
4980 . p3p4)*(3*fmb*hbcm+fmc*hbcm+hbcm2)+4*(p3p7*p2p8)*(3*fmb*hbcm+
4981 . fmc*hbcm-hbcm2)+4*(p7p8*p2p3)*(-3*fmb*hbcm-fmc*hbcm-hbcm2)+4*
4982 . p7p8*(3*fmb*fmc*hbcm2+3*fmc*hbcm3+fmc2*hbcm2-2*p2p3s2-2*p3p4s2
4983 . )+8*(-fmc*hbcm*p1p3*p7p8+fmc*hbcm*p1p8*p3p7+3*fmc*hbcm*p3p5*
4984 . p7p8-3*fmc*hbcm*p3p7*p5p8+hbcm2*p1p2*p7p8-hbcm2*p1p4*p7p8-3*
4985 . hbcm2*p2p4*p7p8+hbcm2*p2p5*p7p8+hbcm2*p2p8*p4p7+hbcm2*p2p8*
4986 . p5p7-hbcm2*p4p5*p7p8-hbcm2*p4p7*p4p8-hbcm2*p4p8*p5p7+p1p3*p2p3
4987 . *p7p8-p1p3*p3p4*p7p8-p1p8*p2p3*p3p7+p1p8*p3p4*p3p7+p2p3*p2p8*
4988 . p3p7+2*p2p3*p3p4*p7p8-3*p2p3*p3p5*p7p8-p2p3*p3p7*p4p8+3*p2p3*
4989 . p3p7*p5p8-p2p8*p3p4*p3p7+3*p3p4*p3p5*p7p8+p3p4*p3p7*p4p8-3*
4990 . p3p4*p3p7*p5p8))+(8*p7p8*(-6*fb3*fmb*hbcm-6*fb3*fmc*hbcm+4*fb4
4991 . *fmc*hbcm-6*fb4*hbcm2-hbcm2)+32*(fb4*p1p3*p7p8-fb4*p1p8*p3p7-
4992 . fb4*p2p3*p7p8+fb4*p2p8*p3p7+fb4*p3p4*p7p8-3*fb4*p3p5*p7p8-fb4*
4993 . p3p7*p4p8+3*fb4*p3p7*p5p8))
4994 ans1=w2*(4*(p5p8*p3p7)*(3*fmb*hbcm-3*fmc*hbcm+hbcm2)+12*(p7p8*
4995 . p3p5)*(-fmb*hbcm+fmc*hbcm-hbcm2)+4*p7p8*(5*fmb*fmc*hbcm2-3*fmb
4996 . *hbcm3+3*fmb2*hbcm2-6*p3p5s2)+8*(fmb*hbcm*p1p3*p7p8-fmb*hbcm*
4997 . p1p8*p3p7-fmb*hbcm*p2p3*p7p8+fmb*hbcm*p2p8*p3p7+fmb*hbcm*p3p4*
4998 . p7p8-fmb*hbcm*p3p7*p4p8-hbcm2*p1p5*p7p8+hbcm2*p2p5*p7p8-hbcm2*
4999 . p4p5*p7p8-hbcm2*p4p7*p5p8-hbcm2*p5p7*p5p8+p1p3*p3p5*p7p8-p1p8*
5000 . p3p5*p3p7-p2p3*p3p5*p7p8+p2p8*p3p5*p3p7+p3p4*p3p5*p7p8-p3p5*
5001 . p3p7*p4p8+3*p3p5*p3p7*p5p8))+ans2
5002 ans=ccc*ans1
5003 b(27)=ans
5004 ans=ccc*(w2*(4*(p5p8*p3p6)*(-2*fmb*hbcm+2*fmc*hbcm-hbcm2)+8*
5005 . p6p8*(-fmb*fmc*hbcm2-fmb2*hbcm2+p3p5s2)+4*(2*fmb*hbcm*p1p3*
5006 . p6p8+2*fmb*hbcm*p2p3*p6p8-2*fmb*hbcm*p3p4*p6p8-2*fmc*hbcm*p3p5
5007 . *p6p8+3*hbcm2*p4p6*p5p8+3*hbcm2*p5p6*p5p8+2*p1p3*p3p5*p6p8+2*
5008 . p2p3*p3p5*p6p8-2*p3p4*p3p5*p6p8-4*p3p5*p3p6*p5p8))+w11*(4*(
5009 . p4p8*p3p6)*(2*fmb*hbcm+2*fmc*hbcm-hbcm2)+8*(p6p8*p3p4)*(-fmb*
5010 . hbcm+hbcm2)+4*(p3p6*p2p8)*(-2*fmb*hbcm-2*fmc*hbcm+hbcm2)+8*(
5011 . p6p8*p2p3)*(fmb*hbcm-hbcm2)+8*p6p8*(-fmb*fmc*hbcm2+p2p3s2+
5012 . p3p4s2)+4*(-2*fmc*hbcm*p1p3*p6p8-2*fmc*hbcm*p3p5*p6p8+4*fmc*
5013 . hbcm*p3p6*p5p8-2*hbcm2*p1p2*p6p8+2*hbcm2*p1p4*p6p8-2*hbcm2*
5014 . p1p8*p4p6+2*hbcm2*p2p4*p6p8-2*hbcm2*p2p5*p6p8-hbcm2*p2p8*p4p6+
5015 . hbcm2*p2p8*p5p6+2*hbcm2*p4p5*p6p8+hbcm2*p4p6*p4p8+2*hbcm2*p4p6
5016 . *p5p8-hbcm2*p4p8*p5p6+2*p1p3*p2p3*p6p8-2*p1p3*p3p4*p6p8-4*p2p3
5017 . *p3p4*p6p8+2*p2p3*p3p5*p6p8-4*p2p3*p3p6*p5p8-2*p3p4*p3p5*p6p8+
5018 . 4*p3p4*p3p6*p5p8))+(4*p6p8*(8*fb3*fmb*hbcm+4*fb3*fmc*hbcm-4*
5019 . fb4*fmc*hbcm+hbcm2)+32*(fb4*p1p3*p6p8+fb4*p2p3*p6p8-fb4*p3p4*
5020 . p6p8+fb4*p3p5*p6p8-2*fb4*p3p6*p5p8)))
5021 b(28)=ans
5022 ans2=w11*(8*(p3p7*p3p6)*(-fmc*hbcm+2*fmc2)+8*(p4p6*p3p7)*(-fmb*
5023 . hbcm+3*fmc*hbcm)+12*(p6p7*p3p4)*(fmb*hbcm-fmc*hbcm-hbcm2)+12*(
5024 . p6p7*p2p3)*(-fmb*hbcm+fmc*hbcm+hbcm2)+4*p6p7*(3*fmb*fmc*hbcm2-
5025 . fmc*hbcm3+fmc2*hbcm2-6*p2p3s2-6*p3p4s2)+8*(fmc*hbcm*p1p3*p6p7+
5026 . fmc*hbcm*p3p5*p6p7-fmc*hbcm*p3p6*p4p7-fmc*hbcm*p3p6*p5p7-2*fmc
5027 . *hbcm*p3p7*p5p6+hbcm2*p1p2*p6p7-hbcm2*p1p4*p6p7-3*hbcm2*p2p4*
5028 . p6p7+hbcm2*p2p5*p6p7-hbcm2*p4p5*p6p7-hbcm2*p4p6*p4p7-hbcm2*
5029 . p4p6*p5p7-p1p3*p2p3*p6p7+p1p3*p3p4*p6p7+6*p2p3*p3p4*p6p7-p2p3*
5030 . p3p5*p6p7+p2p3*p3p6*p4p7+p2p3*p3p6*p5p7-3*p2p3*p3p7*p4p6+p2p3*
5031 . p3p7*p5p6+p3p4*p3p5*p6p7-p3p4*p3p6*p4p7-p3p4*p3p6*p5p7+3*p3p4*
5032 . p3p7*p4p6-p3p4*p3p7*p5p6))+(8*p6p7*(-6*fb3*fmb*hbcm-6*fb3*fmc*
5033 . hbcm+4*fb4*fmc*hbcm+2*fb4*hbcm2-hbcm2)+32*(-fb4*p1p3*p6p7-3*
5034 . fb4*p2p3*p6p7+3*fb4*p3p4*p6p7-fb4*p3p5*p6p7+fb4*p3p6*p4p7+fb4*
5035 . p3p6*p5p7-3*fb4*p3p7*p4p6+fb4*p3p7*p5p6))
5036 ans1=w2*(8*(p5p6*p3p7)*(-2*fmc*hbcm+hbcm2)+4*(p6p7*p3p5)*(fmb*
5037 . hbcm+3*fmc*hbcm+hbcm2)+8*(p3p7*p3p6)*(-2*fmb*fmc+fmb*hbcm)+4*
5038 . p6p7*(5*fmb*fmc*hbcm2+fmb*hbcm3+3*fmb2*hbcm2-2*p3p5s2)+8*(-fmb
5039 . *hbcm*p1p3*p6p7-3*fmb*hbcm*p2p3*p6p7+3*fmb*hbcm*p3p4*p6p7+fmb*
5040 . hbcm*p3p6*p4p7+fmb*hbcm*p3p6*p5p7-4*fmb*hbcm*p3p7*p4p6-hbcm2*
5041 . p1p5*p6p7+hbcm2*p2p5*p6p7-hbcm2*p4p5*p6p7-hbcm2*p4p7*p5p6-
5042 . hbcm2*p5p6*p5p7-p1p3*p3p5*p6p7-3*p2p3*p3p5*p6p7+3*p3p4*p3p5*
5043 . p6p7+p3p5*p3p6*p4p7+p3p5*p3p6*p5p7-3*p3p5*p3p7*p4p6+p3p5*p3p7*
5044 . p5p6))+ans2
5045 ans=ccc*ans1
5046 b(29)=ans
5047 ans4=8*(-2*fmb*p2p3*p3p6*p7p8+2*fmb*p3p4*p3p6*p7p8-fmc*hbcm2*
5048 . p1p8*p6p7-fmc*hbcm2*p4p7*p6p8-fmc*hbcm2*p5p6*p7p8-fmc*hbcm2*
5049 . p5p7*p6p8+3*fmc*hbcm2*p5p8*p6p7-2*hbcm*p1p2*p3p6*p7p8+2*hbcm*
5050 . p1p2*p3p7*p6p8-hbcm*p1p3*p2p8*p6p7-2*hbcm*p1p3*p4p6*p7p8+hbcm*
5051 . p1p3*p4p8*p6p7+2*hbcm*p1p4*p3p6*p7p8-2*hbcm*p1p4*p3p7*p6p8+
5052 . hbcm*p1p8*p2p3*p6p7-hbcm*p1p8*p3p4*p6p7+2*hbcm*p1p8*p3p7*p4p6-
5053 . 2*hbcm*p2p3*p4p6*p7p8+hbcm*p2p3*p4p7*p6p8+2*hbcm*p2p3*p5p6*
5054 . p7p8+hbcm*p2p3*p5p7*p6p8-3*hbcm*p2p3*p5p8*p6p7+2*hbcm*p2p4*
5055 . p3p6*p7p8-2*hbcm*p2p4*p3p7*p6p8-2*hbcm*p2p5*p3p6*p7p8+2*hbcm*
5056 . p2p5*p3p7*p6p8+3*hbcm*p2p8*p3p5*p6p7-hbcm*p2p8*p3p6*p4p7-hbcm*
5057 . p2p8*p3p6*p5p7+2*hbcm*p2p8*p3p7*p4p6-2*hbcm*p2p8*p3p7*p5p6+2*
5058 . hbcm*p3p4*p4p6*p7p8-hbcm*p3p4*p4p7*p6p8-2*hbcm*p3p4*p5p6*p7p8-
5059 . hbcm*p3p4*p5p7*p6p8+3*hbcm*p3p4*p5p8*p6p7+2*hbcm*p3p5*p4p6*
5060 . p7p8-3*hbcm*p3p5*p4p8*p6p7+2*hbcm*p3p6*p4p5*p7p8+hbcm*p3p6*
5061 . p4p7*p4p8+hbcm*p3p6*p4p8*p5p7-2*hbcm*p3p7*p4p5*p6p8-2*hbcm*
5062 . p3p7*p4p6*p4p8-2*hbcm*p3p7*p4p6*p5p8+2*hbcm*p3p7*p4p8*p5p6)
5063 ans3=8*(p4p8*p3p7*p3p6)*(-2*fmc+hbcm)+8*(p3p7*p3p6*p2p8)*(2*fmc
5064 . -hbcm)+8*(p6p8*p3p7*p3p4)*(-2*fmb+2*fmc-hbcm)+8*(p6p8*p3p7*
5065 . p2p3)*(2*fmb-2*fmc+hbcm)+12*(p6p7*p4p8)*(-fmb*hbcm2+fmc*hbcm2-
5066 . hbcm3)+8*(p7p8*p4p6)*(fmb*hbcm2+hbcm3)+12*(p6p7*p2p8)*(fmb*
5067 . hbcm2-fmc*hbcm2+hbcm3)+8*(p6p8*p3p7)*(-2*fmb*fmc*hbcm+fmc*
5068 . hbcm2)+8*(p7p8*p3p6)*(2*fmb*fmc*hbcm-fmc*hbcm2)+ans4
5069 ans2=w11*ans3
5070 ans5=(32*(p6p8*p3p7)*(fb3*fmc-fb3*hbcm+2*fb4*fmb-fb4*fmc)+32*(
5071 . p7p8*p3p6)*(fb3*fmc-2*fb4*fmb+fb4*fmc)+32*(fb3*hbcm*p1p8*p6p7-
5072 . fb3*hbcm*p2p8*p6p7-2*fb3*hbcm*p4p6*p7p8+fb3*hbcm*p4p7*p6p8+fb3
5073 . *hbcm*p4p8*p6p7+fb3*hbcm*p5p7*p6p8-3*fb3*hbcm*p5p8*p6p7))
5074 ans1=w2*(8*(p5p8*p3p7*p3p6)*(-2*fmc+hbcm)+8*(p6p8*p3p7*p3p5)*(2
5075 . *fmb-2*fmc+hbcm)+16*(p7p8*p3p6*p3p5)*(-fmb+2*fmc-hbcm)+4*(p6p7
5076 . *p5p8)*(3*fmb*hbcm2+5*fmc*hbcm2-3*hbcm3)+8*(p7p8*p5p6)*(fmb*
5077 . hbcm2-2*fmc*hbcm2+2*hbcm3)+8*(p6p8*p3p7)*(-2*fmb*fmc*hbcm+fmb*
5078 . hbcm2+2*fmb2*hbcm)+8*(p7p8*p3p6)*(2*fmb*fmc*hbcm-fmb*hbcm2-2*
5079 . fmb2*hbcm)+8*(-fmb*hbcm2*p1p8*p6p7+fmb*hbcm2*p2p8*p6p7+3*fmb*
5080 . hbcm2*p4p6*p7p8-fmb*hbcm2*p4p7*p6p8-fmb*hbcm2*p4p8*p6p7-fmb*
5081 . hbcm2*p5p7*p6p8+hbcm*p1p3*p5p8*p6p7-hbcm*p1p8*p3p5*p6p7-hbcm*
5082 . p2p3*p5p8*p6p7+hbcm*p2p8*p3p5*p6p7+hbcm*p3p4*p5p8*p6p7+4*hbcm*
5083 . p3p5*p4p6*p7p8-hbcm*p3p5*p4p7*p6p8-hbcm*p3p5*p4p8*p6p7+2*hbcm*
5084 . p3p5*p5p6*p7p8-hbcm*p3p5*p5p7*p6p8+hbcm*p3p6*p4p7*p5p8+hbcm*
5085 . p3p6*p5p7*p5p8-4*hbcm*p3p7*p4p6*p5p8-2*hbcm*p3p7*p5p6*p5p8))+
5086 . ans2+ans5
5087 ans=ccc*ans1
5088 b(30)=ans
5089 ans=ccc*(w11*(12*(p6p7*p4p8)*(fmb*hbcm-fmc*hbcm-hbcm2)+8*(p7p8*
5090 . p4p6)*(-fmb*hbcm+3*fmc*hbcm+hbcm2)+12*(p6p7*p2p8)*(-fmb*hbcm+
5091 . fmc*hbcm+hbcm2)+8*(fmc*hbcm*p1p8*p6p7-2*fmc*hbcm*p5p6*p7p8+fmc
5092 . *hbcm*p5p8*p6p7+2*fmc2*p3p6*p7p8-p1p8*p2p3*p6p7+p1p8*p3p4*p6p7
5093 . -3*p2p3*p2p8*p6p7-p2p3*p3p6*p7p8-3*p2p3*p4p6*p7p8+3*p2p3*p4p8*
5094 . p6p7+p2p3*p5p6*p7p8-p2p3*p5p8*p6p7+3*p2p8*p3p4*p6p7+p3p4*p3p6*
5095 . p7p8+3*p3p4*p4p6*p7p8-3*p3p4*p4p8*p6p7-p3p4*p5p6*p7p8+p3p4*
5096 . p5p8*p6p7))+w2*(16*(p7p8*p5p6)*(-fmc*hbcm+hbcm2)+4*(p6p7*p5p8)
5097 . *(fmb*hbcm+3*fmc*hbcm-3*hbcm2)+8*(-2*fmb*fmc*p3p6*p7p8-fmb*
5098 . hbcm*p1p8*p6p7-3*fmb*hbcm*p2p8*p6p7-4*fmb*hbcm*p4p6*p7p8+3*fmb
5099 . *hbcm*p4p8*p6p7-p1p8*p3p5*p6p7-3*p2p8*p3p5*p6p7-p3p5*p3p6*p7p8
5100 . -3*p3p5*p4p6*p7p8+3*p3p5*p4p8*p6p7+p3p5*p5p6*p7p8-p3p5*p5p8*
5101 . p6p7))+32*(-fb4*p1p8*p6p7-3*fb4*p2p8*p6p7-fb4*p3p6*p7p8-3*fb4*
5102 . p4p6*p7p8+3*fb4*p4p8*p6p7+fb4*p5p6*p7p8-fb4*p5p8*p6p7))
5103 b(31)=ans
5104 b(32)=ccc*(w2*(4*(p6p7*p3p5)*(3*fmb-5*fmc+3*hbcm)+12*p6p7*(-fmb
5105 . *fmc*hbcm+fmb*hbcm2+fmb2*hbcm)+8*(-hbcm*p1p5*p6p7+hbcm*p2p5*
5106 . p6p7-hbcm*p3p7*p5p6-hbcm*p4p5*p6p7-hbcm*p4p7*p5p6-hbcm*p5p6*
5107 . p5p7))+w11*(4*(p6p7*p3p4)*(-3*fmb+5*fmc+hbcm)+4*(p6p7*p2p3)*(3
5108 . *fmb-5*fmc-hbcm)+12*p6p7*(-fmb*fmc*hbcm+fmc*hbcm2+fmc2*hbcm)+8
5109 . *(hbcm*p1p2*p6p7-hbcm*p1p4*p6p7-3*hbcm*p2p4*p6p7+hbcm*p2p5*
5110 . p6p7-hbcm*p3p7*p4p6-hbcm*p4p5*p6p7-hbcm*p4p6*p4p7-hbcm*p4p6*
5111 . p5p7))+48*p6p7*(-fb3*hbcm+fb4*fmb-fb4*fmc))
5112 do 200 n=1,32
5113 c(n,1)=c(n,1)+0.8181818181818182d0*b(n)
5114 c(n,2)=c(n,2)-0.1512818716977898d0*b(n)
5115 c(n,3)=c(n,3)-0.1869893980016914d0*b(n)
5116 200 continue
5117 return
5118 end
5119
5120 subroutine amp25_3p1(cc)
5121 implicit double precision(a-h,o-z)
5122 implicit integer (i-n)
5123 dimension b(32)
5124 #include "inclcon.h"
5125 #include "inclppp.h"
5126 #include "inclamp.h"
5127 do 100 n=1,32
5128 b(n)=0.0d0
5129 100 continue
5130 ccc=cc/((2*p1p2)*(2*ffmcfmb*p3p4+2*fmc2)*(2*ffmcfmb*p1p3+2*
5131 . ffmcfmb*p2p3-fmb2-2*fmc*hbcm+fmc2+hbcm2+2*p1p2-2*p1p3-2*p2p3))
5132 ans=ccc*(w20*(32*(p6p7*p2p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+4*(p6p7*
5133 . p1p3)*(fmb*hbcm+fmb2+fmc*hbcm-fmc2)+8*(p6p7*p1p2)*(-fmb*hbcm-
5134 . fmc*hbcm+2*hbcm2)+4*(p6p7*p2p3)*(4*fmb*fmc+fmb*hbcm+fmb2+fmc*
5135 . hbcm+3*fmc2-4*hbcm2)+16*(-p1p2*p1p3*p6p7-p1p2*p2p3*p6p7+p1p3*
5136 . p2p3*p6p7+2*p1p3*p2p4*p6p7+2*p2p3*p2p4*p6p7+p2p3s2*p6p7))+w1*(
5137 . 8*(p6p7*p2p3)*(3*fmc*hbcm+fmc2)+8*(p6p7*p1p3)*(fmc*hbcm-fmc2)+
5138 . 8*(p6p7*p2p4)*(-fmb*hbcm+5*fmc*hbcm+hbcm2)+8*(p6p7*p1p4)*(-fmb
5139 . *hbcm-fmc*hbcm+hbcm2)+4*(p6p7*p3p4)*(2*fmb*fmc+fmb*hbcm+fmb2+
5140 . fmc*hbcm+fmc2-2*hbcm2)+4*p6p7*(-fmb*fmc*hbcm2+4*fmb*fmc2*hbcm+
5141 . 2*fmb2*fmc*hbcm-fmc*hbcm3-fmc2*hbcm2+2*fmc3*hbcm)+8*(-3*fmc*
5142 . hbcm*p1p2*p6p7-2*p1p2*p3p4*p6p7+2*p2p3*p3p4*p6p7+4*p2p4*p3p4*
5143 . p6p7))+(16*p6p7*(-fb3*fmb*fmc+fb3*fmb*hbcm+fb3*fmc*hbcm-fb3*
5144 . fmc2-fb4*fmb*fmc-fb4*fmb2)+64*(fb4*p1p2*p6p7-fb4*p2p3*p6p7-2*
5145 . fb4*p2p4*p6p7)))
5146 b(2)=ans
5147 ans=ccc*(w20*(8*(p6p7*p2p8*p2p3)*(-5*fmc+3*hbcm)+8*(p6p7*p2p3*
5148 . p1p8)*(-fmc-hbcm)+24*(p6p7*p2p8*p1p3)*(-fmc+hbcm)+8*(p6p7*p1p8
5149 . *p1p3)*(fmc-hbcm)+8*(p6p7*p5p8*p2p3)*(fmb+3*fmc-3*hbcm)+8*(
5150 . p6p7*p5p8*p1p3)*(fmb-fmc+hbcm)+4*(p6p7*p2p8)*(-fmb*hbcm2+4*
5151 . fmb2*hbcm+7*fmc*hbcm2-4*fmc2*hbcm-3*hbcm3)+4*(p6p7*p1p8)*(-fmb
5152 . *hbcm2-fmc*hbcm2+hbcm3)+8*(hbcm*p1p2*p1p8*p6p7-3*hbcm*p1p2*
5153 . p2p8*p6p7+2*hbcm*p1p2*p5p8*p6p7-2*hbcm*p1p8*p2p5*p6p7-2*hbcm*
5154 . p2p5*p2p8*p6p7))+w1*(8*(p6p7*p4p8*p2p3)*(-fmc+3*hbcm)+8*(p6p7*
5155 . p4p8*p1p3)*(fmc-hbcm)+8*(p6p7*p5p8*p3p4)*(fmb+fmc-hbcm)+4*(
5156 . p6p7*p4p8)*(fmb*hbcm2-2*fmb2*hbcm-3*fmc*hbcm2+2*fmc2*hbcm+
5157 . hbcm3)+16*(p6p7*p5p8)*(fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+8*(
5158 . p6p7*p2p8)*(-fmb*fmc*hbcm+fmc*hbcm2-5*fmc2*hbcm)+8*(p6p7*p1p8)
5159 . *(-fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+8*(-4*fmc*p2p8*p3p4*p6p7-
5160 . 3*hbcm*p1p2*p4p8*p6p7+4*hbcm*p1p8*p2p4*p6p7+4*hbcm*p2p4*p2p8*
5161 . p6p7-4*hbcm*p2p4*p5p8*p6p7+6*hbcm*p2p5*p4p8*p6p7))+(32*(p6p7*
5162 . p5p8)*(-fb3*fmc+fb3*hbcm-fb4*fmb)+4*(p6p7*p2p8)*(16*fb3*fmc+16
5163 . *fb4*fmc+hbcm)-4*hbcm*p1p8*p6p7))
5164 b(3)=ans
5165 ans2=w1*(8*(p6p7*p3p4*p2p3)*(5*fmc-3*hbcm)+8*(p6p7*p3p4*p1p3)*(
5166 . -fmc+hbcm)+8*(p6p7*p3p5*p3p4)*(-fmb-fmc+hbcm)+4*(p6p7*p3p4)*(-
5167 . 3*fmb*hbcm2+2*fmb2*hbcm+fmc*hbcm2-2*fmc2*hbcm+hbcm3)+8*(p6p7*
5168 . p2p4)*(fmb*hbcm2-3*fmc*hbcm2+3*hbcm3)+8*(p6p7*p1p4)*(fmb*hbcm2
5169 . +fmc*hbcm2-hbcm3)+4*p6p7*(-3*fmb*fmc*hbcm3+fmb2*fmc*hbcm2+2*
5170 . fmc*hbcm4-fmc2*hbcm3-fmc3*hbcm2)+16*(p6p7*p3p5)*(-fmb*fmc*hbcm
5171 . +fmc*hbcm2-fmc2*hbcm)+8*(p6p7*p2p3)*(fmb*fmc*hbcm-3*fmc*hbcm2+
5172 . 5*fmc2*hbcm)+8*(p6p7*p1p3)*(fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+
5173 . 8*(2*fmc*hbcm2*p1p2*p6p7-4*fmc*hbcm2*p2p5*p6p7+3*hbcm*p1p2*
5174 . p3p4*p6p7-4*hbcm*p1p3*p2p4*p6p7-4*hbcm*p2p3*p2p4*p6p7+4*hbcm*
5175 . p2p4*p3p5*p6p7-6*hbcm*p2p5*p3p4*p6p7))+(32*(p6p7*p3p5)*(fb3*
5176 . fmc-fb3*hbcm+fb4*fmb)+4*(p6p7*p2p3)*(-8*fb3*fmc+8*fb3*hbcm-16*
5177 . fb4*fmc-hbcm)+4*(p6p7*p1p3)*(-8*fb3*fmc+8*fb3*hbcm+hbcm)+16*
5178 . p6p7*(fb3*fmc*hbcm2-fb3*hbcm3+fb4*fmb*hbcm2)+32*(-fb3*hbcm*
5179 . p1p2*p6p7+2*fb3*hbcm*p2p5*p6p7))
5180 ans1=w20*(8*p6p7*(-fmc*p1p3s2+5*fmc*p2p3s2+hbcm*p1p3s2-3*hbcm*
5181 . p2p3s2)+16*(p6p7*p2p3*p1p3)*(2*fmc-hbcm)+8*(p6p7*p3p5*p2p3)*(-
5182 . fmb-3*fmc+3*hbcm)+8*(p6p7*p3p5*p1p3)*(-fmb+fmc-hbcm)+16*(p6p7*
5183 . p2p5)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+4*(p6p7*p2p3)*(3*fmb*hbcm2-4
5184 . *fmb2*hbcm-7*fmc*hbcm2+4*fmc2*hbcm+3*hbcm3)+4*(p6p7*p1p3)*(-
5185 . fmb*hbcm2+fmc*hbcm2-hbcm3)+8*(p6p7*p1p2)*(-fmb*hbcm2-fmc*hbcm2
5186 . )+8*(-hbcm*p1p2*p1p3*p6p7+3*hbcm*p1p2*p2p3*p6p7-2*hbcm*p1p2*
5187 . p3p5*p6p7+2*hbcm*p1p3*p2p5*p6p7+2*hbcm*p2p3*p2p5*p6p7))+ans2
5188 ans=ccc*ans1
5189 b(11)=ans
5190 ans2=w20*(32*(p6p7*p3p5*p2p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(
5191 . p6p7*p5p8*p2p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+64*(p6p7*p4p8*p2p3)*
5192 . (fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p7*p2p8*p2p3)*(-fmb*hbcm-fmc*
5193 . hbcm+hbcm2)+16*(p6p7*p2p3*p1p8)*(-2*fmb*hbcm-2*fmc*hbcm+3*
5194 . hbcm2)+16*(p6p7*p2p8*p1p3)*(fmb*hbcm+fmc*hbcm-2*hbcm2)+4*(p6p7
5195 . *p2p8)*(2*fmb*fmc*hbcm2-5*fmb*hbcm3+fmb2*hbcm2-5*fmc*hbcm3+
5196 . fmc2*hbcm2+4*hbcm4-8*p2p3s2)+4*(p6p7*p1p8)*(2*fmb*fmc*hbcm2-
5197 . fmb*hbcm3+fmb2*hbcm2-fmc*hbcm3+fmc2*hbcm2-8*p2p3s2)+16*(-hbcm2
5198 . *p1p2*p1p8*p6p7+hbcm2*p1p2*p2p8*p6p7-2*p1p3*p1p8*p2p3*p6p7-2*
5199 . p1p3*p2p3*p2p8*p6p7+4*p1p3*p2p3*p4p8*p6p7+2*p1p3*p2p3*p5p8*
5200 . p6p7-2*p1p3*p2p8*p3p5*p6p7-2*p2p3*p2p8*p3p5*p6p7+4*p2p3s2*p4p8
5201 . *p6p7+2*p2p3s2*p5p8*p6p7))+(8*(p6p7*p2p8)*(4*fb3*fmb*hbcm+4*
5202 . fb4*fmc*hbcm+4*fb4*hbcm2-hbcm2)+8*(p6p7*p1p8)*(-4*fb3*fmb*hbcm
5203 . -4*fb4*fmc*hbcm+4*fb4*hbcm2+hbcm2)+128*(fb4*p1p8*p2p3*p6p7+fb4
5204 . *p2p3*p2p8*p6p7-2*fb4*p2p3*p4p8*p6p7-fb4*p2p3*p5p8*p6p7+fb4*
5205 . p2p8*p3p5*p6p7))
5206 ans1=w1*(16*(p6p7*p4p8*p3p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(
5207 . p6p7*p5p8*p3p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+24*(p6p7*p3p4*p2p8)*
5208 . (-fmb*hbcm-fmc*hbcm-hbcm2)+8*(p6p7*p4p8*p2p3)*(fmb*hbcm+13*fmc
5209 . *hbcm-3*hbcm2)+8*(p6p7*p3p4*p1p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8
5210 . *(p6p7*p4p8*p1p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p6p7*p5p8)*(fmb
5211 . *fmc*hbcm2-fmc*hbcm3+fmc2*hbcm2)+4*(p6p7*p4p8)*(2*fmb*fmc*
5212 . hbcm2-3*fmb*hbcm3+fmb2*hbcm2-3*fmc*hbcm3+fmc2*hbcm2+2*hbcm4)+
5213 . 16*(p6p7*p2p8)*(-fmb*fmc*hbcm2-2*fmc*hbcm3-fmc2*hbcm2)+16*(2*
5214 . fmc*hbcm*p1p3*p2p8*p6p7-4*fmc*hbcm*p1p8*p2p3*p6p7-2*fmc*hbcm*
5215 . p2p3*p2p8*p6p7+4*fmc*hbcm*p2p3*p5p8*p6p7-4*fmc*hbcm*p2p8*p3p5*
5216 . p6p7+hbcm2*p1p2*p4p8*p6p7+2*hbcm2*p1p4*p2p8*p6p7-2*hbcm2*p1p8*
5217 . p2p4*p6p7+2*hbcm2*p2p4*p5p8*p6p7-2*hbcm2*p2p5*p4p8*p6p7-2*p1p8
5218 . *p2p3*p3p4*p6p7-2*p2p3*p2p8*p3p4*p6p7+4*p2p3*p3p4*p4p8*p6p7+2*
5219 . p2p3*p3p4*p5p8*p6p7-2*p2p8*p3p4*p3p5*p6p7))+ans2
5220 ans=ccc*ans1
5221 b(12)=ans
5222 b(29)=ccc*(w20*(32*(p6p7*p3p4)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(
5223 . p6p7*p2p3)*(fmb*hbcm+fmc*hbcm-4*hbcm2)+8*(p6p7*p1p3)*(fmb*hbcm
5224 . +fmc*hbcm-4*hbcm2)+8*p6p7*(-2*fmb*fmc*hbcm2-fmb*hbcm3-fmb2*
5225 . hbcm2-fmc*hbcm3-fmc2*hbcm2+2*hbcm4+2*p1p3s2+2*p2p3s2)+32*(p1p3
5226 . *p2p3*p6p7-p1p3*p3p4*p6p7-p2p3*p3p4*p6p7))+w1*(8*(p6p7*p3p4)*(
5227 . fmb*hbcm-5*fmc*hbcm)+8*p6p7*(fmb*fmc*hbcm2-2*fmc*hbcm3+fmc2*
5228 . hbcm2-4*p3p4s2)+16*(fmc*hbcm*p1p3*p6p7+fmc*hbcm*p2p3*p6p7-
5229 . hbcm2*p1p4*p6p7-hbcm2*p2p4*p6p7+p1p3*p3p4*p6p7+p2p3*p3p4*p6p7)
5230 . )+(32*p6p7*(-fb3*fmb*hbcm-fb3*fmc*hbcm+2*fb4*hbcm2)+64*(-fb4*
5231 . p1p3*p6p7-fb4*p2p3*p6p7+2*fb4*p3p4*p6p7)))
5232 b(30)=ccc*(w1*(8*(p6p7*p4p8)*(-fmb*hbcm2+3*fmc*hbcm2-4*hbcm3)+
5233 . 16*(-fmc*hbcm2*p1p8*p6p7-fmc*hbcm2*p2p8*p6p7+2*fmc*hbcm2*p5p8*
5234 . p6p7+2*hbcm*p1p3*p4p8*p6p7-2*hbcm*p1p8*p3p4*p6p7+2*hbcm*p2p3*
5235 . p4p8*p6p7-2*hbcm*p2p8*p3p4*p6p7+3*hbcm*p3p4*p5p8*p6p7-3*hbcm*
5236 . p3p5*p4p8*p6p7))+w20*(16*(p6p7*p5p8)*(-fmb*hbcm2-fmc*hbcm2+
5237 . hbcm3)+8*(p6p7*p2p8)*(fmb*hbcm2+fmc*hbcm2)+8*(p6p7*p1p8)*(fmb*
5238 . hbcm2+fmc*hbcm2)+16*(-hbcm*p1p3*p5p8*p6p7+hbcm*p1p8*p3p5*p6p7-
5239 . hbcm*p2p3*p5p8*p6p7+hbcm*p2p8*p3p5*p6p7))-64*fb3*hbcm*p5p8*
5240 . p6p7)
5241 b(31)=ccc*(w1*(8*(p6p7*p4p8)*(fmb*hbcm-5*fmc*hbcm)+16*(fmc*hbcm
5242 . *p1p8*p6p7+fmc*hbcm*p2p8*p6p7+p1p8*p3p4*p6p7+p2p8*p3p4*p6p7-2*
5243 . p3p4*p4p8*p6p7))+w20*(32*(p6p7*p4p8)*(-fmb*hbcm-fmc*hbcm+hbcm2
5244 . )+8*(p6p7*p2p8)*(fmb*hbcm+fmc*hbcm-2*hbcm2)+8*(p6p7*p1p8)*(fmb
5245 . *hbcm+fmc*hbcm-2*hbcm2)+16*(p1p3*p1p8*p6p7+p1p3*p2p8*p6p7-2*
5246 . p1p3*p4p8*p6p7+p1p8*p2p3*p6p7+p2p3*p2p8*p6p7-2*p2p3*p4p8*p6p7)
5247 . )+64*(-fb4*p1p8*p6p7-fb4*p2p8*p6p7+2*fb4*p4p8*p6p7))
5248 b(32)=ccc*(w20*(8*(p6p7*p2p3)*(-fmb+3*fmc-2*hbcm)+8*(p6p7*p1p3)
5249 . *(-fmb+3*fmc-2*hbcm)+8*p6p7*(fmb*hbcm2-2*fmb2*hbcm-3*fmc*hbcm2
5250 . +2*fmc2*hbcm+hbcm3)+16*hbcm*p1p2*p6p7)+w1*(8*(p6p7*p3p4)*(-fmb
5251 . +3*fmc+2*hbcm)+8*p6p7*(-fmb*fmc*hbcm+5*fmc2*hbcm)+16*(-hbcm*
5252 . p1p4*p6p7-hbcm*p2p4*p6p7))+32*p6p7*(-fb3*fmc+fb4*fmb-2*fb4*fmc
5253 . ))
5254 do 200 n=1,32
5255 c(n,1)=c(n,1)+0.09090909090909091d0*b(n)
5256 c(n,2)=c(n,2)-0.1092591295595148d0*b(n)
5257 200 continue
5258 return
5259 end
5260
5261 subroutine amp24_3p1(cc)
5262 implicit double precision(a-h,o-z)
5263 implicit integer (i-n)
5264 dimension b(32)
5265 #include "inclcon.h"
5266 #include "inclppp.h"
5267 #include "inclamp.h"
5268 do 100 n=1,32
5269 b(n)=0.0d0
5270 100 continue
5271 ccc=cc/((2*p1p2)*(2*ffmcfmb*p3p4+2*fmc2)*(-fmb2+fmc2+hbcm2+2*
5272 . p3p4))
5273 b(2)=w1*ccc*(4*p6p7*(-fmb2*fmc*hbcm+fmc*hbcm3+fmc3*hbcm)+8*fmc*
5274 . hbcm*p3p4*p6p7)
5275 b(3)=ccc*(w1*(8*(p6p7*p5p8)*(-fmb*fmc*hbcm+fmc2*hbcm)+4*(p6p7*
5276 . p4p8)*(-2*fmb*fmc*hbcm+fmb2*hbcm+fmc2*hbcm-hbcm3)+8*(p6p7*p2p8
5277 . )*(fmb*fmc*hbcm-fmc2*hbcm)+8*(p6p7*p1p8)*(fmb*fmc*hbcm-fmc2*
5278 . hbcm)+8*(-hbcm*p1p8*p3p4*p6p7-hbcm*p2p8*p3p4*p6p7+hbcm*p3p4*
5279 . p5p8*p6p7))+32*(-fb3*hbcm*p1p8*p6p7-fb3*hbcm*p2p8*p6p7+fb3*
5280 . hbcm*p4p8*p6p7+fb3*hbcm*p5p8*p6p7))
5281 b(11)=ccc*(w1*(8*p6p7*(fmb*fmc*hbcm3-fmc2*hbcm3)+8*(p6p7*p3p5)*
5282 . (fmb*fmc*hbcm-fmc2*hbcm)+4*(p6p7*p3p4)*(2*fmb*fmc*hbcm-fmb2*
5283 . hbcm-fmc2*hbcm-hbcm3)+8*(p6p7*p2p3)*(-fmb*fmc*hbcm+fmc2*hbcm)+
5284 . 8*(p6p7*p1p3)*(-fmb*fmc*hbcm+fmc2*hbcm)+8*(hbcm*p1p3*p3p4*p6p7
5285 . +hbcm*p2p3*p3p4*p6p7-hbcm*p3p4*p3p5*p6p7))+(16*p6p7*(-fb3*fmb2
5286 . *hbcm+fb3*fmc2*hbcm-fb3*hbcm3)+32*(fb3*hbcm*p1p3*p6p7+fb3*hbcm
5287 . *p2p3*p6p7-fb3*hbcm*p3p5*p6p7)))
5288 b(12)=ccc*(w1*(8*(p6p7*p4p8*p3p5)*(fmb*hbcm-fmc*hbcm)+8*(p6p7*
5289 . p5p8*p3p4)*(-fmb*hbcm+fmc*hbcm)+8*(p6p7*p3p4*p2p8)*(-fmb*hbcm+
5290 . fmc*hbcm)+8*(p6p7*p4p8*p2p3)*(-fmb*hbcm+fmc*hbcm)+8*(p6p7*p3p4
5291 . *p1p8)*(fmb*hbcm-fmc*hbcm)+8*(p6p7*p4p8*p1p3)*(-fmb*hbcm+fmc*
5292 . hbcm)+8*(fmb*hbcm3*p4p8*p6p7-fmc*hbcm3*p1p8*p6p7+fmc*hbcm3*
5293 . p2p8*p6p7+fmc*hbcm3*p5p8*p6p7))+(32*(p6p7*p5p8)*(-fb3*fmb*hbcm
5294 . -fb3*fmc*hbcm)+32*(p6p7*p4p8)*(-fb3*fmb*hbcm-fb3*fmc*hbcm)+32*
5295 . (p6p7*p2p8)*(-fb3*fmb*hbcm-fb3*fmc*hbcm)+32*(p6p7*p1p8)*(fb3*
5296 . fmb*hbcm+fb3*fmc*hbcm)))
5297 b(29)=ccc*(w1*(8*(p6p7*p3p4)*(fmb*hbcm-fmc*hbcm)-8*fmc*hbcm3*
5298 . p6p7)+32*p6p7*(fb3*fmb*hbcm+fb3*fmc*hbcm))
5299 b(30)=8*ccc*(p6p7*p4p8)*(-8*fb3*hbcm+hbcm3*w1)
5300 b(31)=8*ccc*w1*(p6p7*p4p8)*(fmb*hbcm-fmc*hbcm)
5301 b(32)=ccc*(w1*(8*p6p7*(-fmb*fmc*hbcm+fmc2*hbcm)+8*hbcm*p3p4*
5302 . p6p7)+32*fb3*hbcm*p6p7)
5303 do 200 n=1,32
5304 c(n,1)=c(n,1)-0.7272727272727273d0*b(n)
5305 c(n,2)=c(n,2)+0.8740730364761186d0*b(n)
5306 200 continue
5307 return
5308 end
5309
5310 subroutine amp23_3p1(cc)
5311 implicit double precision(a-h,o-z)
5312 implicit integer (i-n)
5313 dimension b(32)
5314 #include "inclcon.h"
5315 #include "inclppp.h"
5316 #include "inclamp.h"
5317 do 100 n=1,32
5318 b(n)=0.0d0
5319 100 continue
5320 ccc=cc/((2*p1p2)*(-2*ffmcfmb*p3p5+fmb2-2*fmc*hbcm+fmc2+hbcm2+2*
5321 . p3p5)*(fmb2-fmc2+hbcm2+2*p3p5))
5322 b(2)=w2*ccc*(4*p6p7*(-fmb*fmc2*hbcm+fmb*hbcm3+fmb3*hbcm)+8*fmb*
5323 . hbcm*p3p5*p6p7)
5324 b(3)=ccc*(w2*(4*(p6p7*p5p8)*(fmb2*hbcm-fmc2*hbcm+hbcm3)+16*(
5325 . p6p7*p2p8)*(fmb*fmc*hbcm-fmb2*hbcm)+8*(-2*hbcm*p2p8*p3p5*p6p7+
5326 . hbcm*p3p5*p5p8*p6p7))-64*fb3*hbcm*p2p8*p6p7)
5327 b(11)=ccc*(w2*(4*(p6p7*p3p5)*(-fmb2*hbcm+fmc2*hbcm-hbcm3)+16*(
5328 . p6p7*p2p3)*(-fmb*fmc*hbcm+fmb2*hbcm)+8*(2*hbcm*p2p3*p3p5*p6p7-
5329 . hbcm*p3p5s2*p6p7))+(16*p6p7*(-fb3*fmb2*hbcm+fb3*fmc2*hbcm-fb3*
5330 . hbcm3)+32*(2*fb3*hbcm*p2p3*p6p7-fb3*hbcm*p3p5*p6p7)))
5331 b(12)=16*ccc*w2*(p6p7*p5p8*p2p3)*(fmb*hbcm-fmc*hbcm)
5332 b(29)=ccc*(w2*(8*(p6p7*p3p5)*(-fmb*hbcm+fmc*hbcm)-8*fmb*hbcm3*
5333 . p6p7)+32*p6p7*(fb3*fmb*hbcm+fb3*fmc*hbcm))
5334 b(30)=8*ccc*(p6p7*p5p8)*(8*fb3*hbcm-hbcm3*w2)
5335 b(31)=8*ccc*w2*(p6p7*p5p8)*(-fmb*hbcm+fmc*hbcm)
5336 b(32)=ccc*(w2*(8*p6p7*(-fmb*fmc*hbcm+fmb2*hbcm)+8*hbcm*p3p5*
5337 . p6p7)+32*fb3*hbcm*p6p7)
5338 do 200 n=1,32
5339 c(n,1)=c(n,1)-0.7272727272727273d0*b(n)
5340 c(n,2)=c(n,2)+0.8740730364761186d0*b(n)
5341 200 continue
5342 return
5343 end
5344
5345 subroutine amp22_3p1(cc)
5346 implicit double precision(a-h,o-z)
5347 implicit integer (i-n)
5348 dimension b(32)
5349 #include "inclcon.h"
5350 #include "inclppp.h"
5351 #include "inclamp.h"
5352 do 100 n=1,32
5353 b(n)=0.0d0
5354 100 continue
5355 ccc=cc/((2*p1p2)*(-2*ffmcfmb*p3p5+fmb2-2*fmc*hbcm+fmc2+hbcm2+2*
5356 . p3p5)*(-2*ffmcfmb*p1p3-2*ffmcfmb*p2p3+2*p1p2))
5357 b(2)=ccc*(w2*(16*(p6p7*p2p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p6p7
5358 . *p2p3)*(-fmb*fmc-2*fmb*hbcm)+8*(fmb*fmc*p1p3*p6p7+3*fmb*hbcm*
5359 . p1p2*p6p7-6*fmb*hbcm*p2p4*p6p7+2*p1p2*p3p5*p6p7-2*p2p3*p3p5*
5360 . p6p7-4*p2p4*p3p5*p6p7))+w17*(8*(p6p7*p1p2)*(fmb*hbcm+fmc*hbcm)
5361 . +8*(p6p7*p2p3)*(-fmb*fmc-fmc2)+8*(p6p7*p1p3)*(fmb*fmc+fmc2)+16
5362 . *(p1p2*p1p3*p6p7+p1p2*p2p3*p6p7-p1p3*p2p3*p6p7-2*p1p3*p2p4*
5363 . p6p7-2*p2p3*p2p4*p6p7-p2p3s2*p6p7))+(16*p6p7*(fb3*fmb*fmc+fb3*
5364 . fmc2+fb4*fmb*fmc+fb4*fmc2)+64*(fb4*p1p2*p6p7-fb4*p2p3*p6p7-2*
5365 . fb4*p2p4*p6p7)))
5366 b(3)=ccc*(w17*(8*(p6p7*p2p8*p2p3)*(-2*fmb+3*fmc)+8*(p6p7*p2p8*
5367 . p1p3)*(-2*fmb+fmc)+8*(-fmc*p1p3*p1p8*p6p7+2*fmc*p1p3*p5p8*p6p7
5368 . +fmc*p1p8*p2p3*p6p7-2*fmc*p2p3*p5p8*p6p7-hbcm*p1p2*p1p8*p6p7-
5369 . hbcm*p1p2*p2p8*p6p7+2*hbcm*p1p2*p5p8*p6p7-2*hbcm*p1p8*p2p5*
5370 . p6p7-2*hbcm*p2p5*p2p8*p6p7))+w2*(8*(p6p7*p5p8*p2p3)*(-fmc+4*
5371 . hbcm)+16*(p6p7*p3p5*p2p8)*(-fmb+fmc-2*hbcm)+16*(p6p7*p2p8)*(2*
5372 . fmb*fmc*hbcm-fmb*hbcm2-2*fmb2*hbcm)+8*(fmc*p1p3*p5p8*p6p7-3*
5373 . hbcm*p1p2*p5p8*p6p7+4*hbcm*p1p5*p2p8*p6p7+4*hbcm*p2p5*p2p8*
5374 . p6p7+2*hbcm*p2p5*p5p8*p6p7))+(32*(p6p7*p5p8)*(fb3*fmc+fb4*fmc)
5375 . +4*(p6p7*p2p8)*(-8*fb3*fmc-16*fb4*fmb+8*fb4*fmc-hbcm)+4*(p6p7*
5376 . p1p8)*(-8*fb3*fmc-8*fb4*fmc+hbcm)))
5377 ans=ccc*(w17*(8*p6p7*(2*fmb*p2p3s2+fmc*p1p3s2-3*fmc*p2p3s2)+16*
5378 . (p6p7*p2p3*p1p3)*(fmb-fmc)+8*(-fmc*hbcm2*p1p3*p6p7+fmc*hbcm2*
5379 . p2p3*p6p7-2*fmc*p1p3*p3p5*p6p7+2*fmc*p2p3*p3p5*p6p7+hbcm*p1p2*
5380 . p1p3*p6p7+hbcm*p1p2*p2p3*p6p7-2*hbcm*p1p2*p3p5*p6p7+2*hbcm*
5381 . p1p3*p2p5*p6p7+2*hbcm*p2p3*p2p5*p6p7-hbcm3*p1p2*p6p7))+w2*(8*(
5382 . p6p7*p3p5*p2p3)*(2*fmb-fmc)+16*(p6p7*p2p5)*(-fmb*hbcm2-fmc*
5383 . hbcm2+hbcm3)+32*(p6p7*p2p3)*(-fmb*fmc*hbcm+fmb2*hbcm)+8*(2*fmb
5384 . *hbcm2*p1p2*p6p7-fmc*p1p3*p3p5*p6p7+3*hbcm*p1p2*p3p5*p6p7-4*
5385 . hbcm*p1p5*p2p3*p6p7-4*hbcm*p2p3*p2p5*p6p7-2*hbcm*p2p5*p3p5*
5386 . p6p7))+(4*(p6p7*p1p3)*(8*fb4*fmc-hbcm)+32*(p6p7*p3p5)*(-fb3*
5387 . fmc-fb4*fmc)+4*(p6p7*p2p3)*(16*fb3*fmc+16*fb4*fmb-8*fb4*fmc+
5388 . hbcm)+16*p6p7*(-fb3*fmc*hbcm2-fb4*fmc*hbcm2)+32*(-fb3*hbcm*
5389 . p1p2*p6p7+2*fb3*hbcm*p2p5*p6p7)))
5390 b(11)=ans
5391 ans=ccc*(w17*(16*(p6p7*p2p8*p2p3)*(fmb*hbcm+fmc*hbcm+hbcm2)+16*
5392 . (p6p7*p2p8*p1p3)*(fmb*hbcm+fmc*hbcm+hbcm2)+16*(hbcm2*p1p2*p1p8
5393 . *p6p7-hbcm2*p1p2*p2p8*p6p7+2*p1p3*p1p8*p2p3*p6p7+2*p1p3*p2p3*
5394 . p2p8*p6p7-4*p1p3*p2p3*p4p8*p6p7-2*p1p3*p2p3*p5p8*p6p7+2*p1p3*
5395 . p2p8*p3p5*p6p7+2*p1p8*p2p3s2*p6p7+2*p2p3*p2p8*p3p5*p6p7+2*
5396 . p2p3s2*p2p8*p6p7-4*p2p3s2*p4p8*p6p7-2*p2p3s2*p5p8*p6p7))+w2*(
5397 . 16*(p6p7*p3p5*p2p8)*(fmb*hbcm-fmc*hbcm+hbcm2)+32*(p6p7*p5p8*
5398 . p2p3)*(-2*fmb*hbcm-fmc*hbcm)+16*(p6p7*p2p8)*(-fmb*fmc*hbcm2+
5399 . fmb*hbcm3-fmb2*hbcm2+2*p3p5s2)+16*(4*fmb*hbcm*p1p8*p2p3*p6p7+4
5400 . *fmb*hbcm*p2p3*p2p8*p6p7-6*fmb*hbcm*p2p3*p4p8*p6p7+hbcm2*p1p2*
5401 . p5p8*p6p7+2*p1p8*p2p3*p3p5*p6p7+2*p2p3*p2p8*p3p5*p6p7-4*p2p3*
5402 . p3p5*p4p8*p6p7-2*p2p3*p3p5*p5p8*p6p7))+(8*(p6p7*p1p8)*(4*fb3*
5403 . fmc*hbcm+4*fb4*fmc*hbcm-hbcm2)+8*(p6p7*p2p8)*(8*fb3*fmb*hbcm+4
5404 . *fb3*fmc*hbcm-4*fb4*fmc*hbcm+8*fb4*hbcm2+hbcm2)+128*(fb4*p1p8*
5405 . p2p3*p6p7+fb4*p2p3*p2p8*p6p7-2*fb4*p2p3*p4p8*p6p7-fb4*p2p3*
5406 . p5p8*p6p7+fb4*p2p8*p3p5*p6p7)))
5407 b(12)=ans
5408 b(29)=ccc*(w17*(16*p6p7*(-p1p3s2-p2p3s2)+8*(p6p7*p2p3)*(-fmb*
5409 . hbcm-fmc*hbcm+2*hbcm2)+8*(p6p7*p1p3)*(-fmb*hbcm-fmc*hbcm+2*
5410 . hbcm2)+32*(-p1p3*p2p3*p6p7+p1p3*p3p4*p6p7+p2p3*p3p4*p6p7))+w2*
5411 . (8*(p6p7*p3p5)*(3*fmb*hbcm+3*fmc*hbcm+2*hbcm2)+8*p6p7*(2*fmb*
5412 . fmc*hbcm2+3*fmb*hbcm3+2*fmb2*hbcm2)+16*(-2*fmb*hbcm*p1p3*p6p7-
5413 . 2*fmb*hbcm*p2p3*p6p7+3*fmb*hbcm*p3p4*p6p7-hbcm2*p1p5*p6p7-
5414 . hbcm2*p2p5*p6p7-p1p3*p3p5*p6p7-p2p3*p3p5*p6p7+2*p3p4*p3p5*p6p7
5415 . ))+(32*p6p7*(-fb3*fmb*hbcm-fb3*fmc*hbcm+2*fb4*hbcm2)+64*(-fb4*
5416 . p1p3*p6p7-fb4*p2p3*p6p7+2*fb4*p3p4*p6p7)))
5417 b(30)=ccc*(8*w17*(-2*hbcm*p1p3*p5p8*p6p7+2*hbcm*p1p8*p3p5*p6p7-
5418 . 2*hbcm*p2p3*p5p8*p6p7+2*hbcm*p2p8*p3p5*p6p7+hbcm3*p1p8*p6p7+
5419 . hbcm3*p2p8*p6p7)+w2*(8*(p6p7*p5p8)*(2*fmb*hbcm2+2*fmc*hbcm2-3*
5420 . hbcm3)+16*(-fmb*hbcm2*p1p8*p6p7-fmb*hbcm2*p2p8*p6p7+hbcm*p1p3*
5421 . p5p8*p6p7-hbcm*p1p8*p3p5*p6p7+hbcm*p2p3*p5p8*p6p7-hbcm*p2p8*
5422 . p3p5*p6p7))+64*(fb3*hbcm*p1p8*p6p7+fb3*hbcm*p2p8*p6p7-fb3*hbcm
5423 . *p5p8*p6p7))
5424 b(31)=ccc*(w2*(8*(p6p7*p5p8)*(3*fmb*hbcm+3*fmc*hbcm-2*hbcm2)+16
5425 . *(-2*fmb*hbcm*p1p8*p6p7-2*fmb*hbcm*p2p8*p6p7+3*fmb*hbcm*p4p8*
5426 . p6p7-p1p8*p3p5*p6p7-p2p8*p3p5*p6p7+2*p3p5*p4p8*p6p7))+w17*(8*(
5427 . p6p7*p2p8)*(-fmb*hbcm-fmc*hbcm)+8*(p6p7*p1p8)*(-fmb*hbcm-fmc*
5428 . hbcm)+16*(-p1p3*p1p8*p6p7-p1p3*p2p8*p6p7+2*p1p3*p4p8*p6p7-p1p8
5429 . *p2p3*p6p7-p2p3*p2p8*p6p7+2*p2p3*p4p8*p6p7))+64*(-fb4*p1p8*
5430 . p6p7-fb4*p2p8*p6p7+2*fb4*p4p8*p6p7))
5431 b(32)=ccc*(w17*(8*(p6p7*p2p3)*(2*fmb-2*fmc-hbcm)+8*(p6p7*p1p3)*
5432 . (2*fmb-2*fmc-hbcm)+16*hbcm*p1p2*p6p7)+w2*(8*(p6p7*p3p5)*(2*fmb
5433 . -2*fmc+3*hbcm)+8*p6p7*(-3*fmb*fmc*hbcm+2*fmb*hbcm2+3*fmb2*hbcm
5434 . )+16*(-hbcm*p1p5*p6p7-hbcm*p2p5*p6p7))+32*p6p7*(fb3*fmc-fb3*
5435 . hbcm+2*fb4*fmb-fb4*fmc))
5436 do 200 n=1,32
5437 c(n,1)=c(n,1)+0.09090909090909091d0*b(n)
5438 c(n,2)=c(n,2)-0.1092591295595148d0*b(n)
5439 200 continue
5440 return
5441 end
5442
5443 subroutine amp21_3p1(cc)
5444 implicit double precision(a-h,o-z)
5445 implicit integer (i-n)
5446 dimension b(32)
5447 #include "inclcon.h"
5448 #include "inclppp.h"
5449 #include "inclamp.h"
5450 do 100 n=1,32
5451 b(n)=0.0d0
5452 100 continue
5453 ccc=cc/((-2*ffmcfmb*p1p3)*(-2*ffmcfmb*p1p3+2*ffmcfmb*p3p4+2*
5454 . fmc2-2*p1p4)*(2*ffmcfmb*p2p3-fmb2-2*fmc*hbcm+fmc2+hbcm2-2*p2p3
5455 . ))
5456 ans=ccc*(w8*(24*(p4p6*p2p3)*(-fmb-fmc+hbcm)+8*(p3p6*p2p3)*(-
5457 . ffmcfmb*fmb-ffmcfmb*fmc-fmb+hbcm))+w5*(24*(p4p6*p3p4)*(-fmb-
5458 . fmc+hbcm)+24*(p4p6*p1p3)*(fmb+fmc-hbcm)+16*p3p6*(-fmb*fmc2-
5459 . fmb2*fmc+fmc*hbcm2-fmc2*hbcm)+8*p4p6*(-4*fmb*fmc*hbcm+fmb*
5460 . hbcm2-3*fmb2*hbcm-fmc*hbcm2-fmc2*hbcm+2*hbcm3)+8*(p3p6*p3p4)*(
5461 . -ffmcfmb*fmb-ffmcfmb*fmc-fmb+hbcm)+8*(p3p6*p1p3)*(ffmcfmb*fmb+
5462 . ffmcfmb*fmc+fmb-hbcm)+16*(-fmc*p1p2*p3p6+fmc*p2p3*p3p6+fmc*
5463 . p2p4*p3p6+3*fmc*p2p5*p3p6-hbcm*p1p2*p4p6+hbcm*p2p3*p4p6+hbcm*
5464 . p2p4*p4p6+4*hbcm*p2p5*p4p6))+w12*(24*(p4p6*p1p3)*(fmb+fmc-hbcm
5465 . )+8*p3p6*(fmb*fmc*hbcm-2*fmb2*fmc+fmc*hbcm2-3*fmc2*hbcm+2*fmc3
5466 . )+8*(p3p6*p1p3)*(ffmcfmb*fmb+ffmcfmb*fmc+fmb-hbcm)+16*(-fmc*
5467 . p1p2*p3p6+fmc*p2p3*p3p6+3*fmc*p2p5*p3p6))+(96*p4p6*(fb3*fmc-
5468 . fb3*hbcm+fb4*fmb)+4*p3p6*(8*fb3*ffmcfmb*fmc-8*fb3*hbcm+8*fb4*
5469 . ffmcfmb*fmb+8*fb4*fmb+fmb+fmc-hbcm)))
5470 b(1)=ans
5471 ans3=w12*(32*(p5p7*p3p6)*(-fmb*fmc+fmc*hbcm-fmc2)+8*(p6p7*p1p3)
5472 . *(-2*fmb*fmc-fmb2-fmc2+hbcm2)+(p4p6*p3p7*p1p3)*(32*ffmcfmb-32)
5473 . +(p3p7*p3p6*p1p3)*(16*ffmcfmb-16)+16*(p3p7*p3p6)*(ffmcfmb*fmb*
5474 . fmc+ffmcfmb*fmc2-2*fmb*fmc+fmc*hbcm-2*fmc2)+16*(p1p2*p1p3*p6p7
5475 . -p1p3*p2p3*p6p7-p1p3*p2p4*p6p7))+(32*p6p7*(-fb4*fmb2-2*fb4*fmc
5476 . *hbcm+fb4*fmc2+fb4*hbcm2)+(p4p6*p3p7)*(128*fb4*ffmcfmb-128*fb4
5477 . +16)+(p3p7*p3p6)*(64*fb4*ffmcfmb-64*fb4+8)+64*(fb4*p1p2*p6p7-
5478 . fb4*p2p3*p6p7-fb4*p2p4*p6p7))
5479 ans2=w5*(48*(p5p7*p4p6)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p4p7*
5480 . p4p6)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p6p7*p1p4)*(-fmb*hbcm-fmc
5481 . *hbcm+hbcm2)+8*p6p7*(2*fmb*fmc2*hbcm+fmb2*fmc*hbcm-fmc*hbcm3+
5482 . fmc3*hbcm)+16*(p4p6*p3p7)*(2*fmb*fmc-3*fmb*hbcm-fmc*hbcm-fmc2+
5483 . 2*hbcm2)+32*(p5p7*p3p6)*(-fmb*fmc+fmc*hbcm-fmc2)+16*(p4p7*p3p6
5484 . )*(-fmb*fmc+fmc*hbcm-fmc2)+8*(p6p7*p3p4)*(2*fmb*fmc+fmb2+fmc2-
5485 . hbcm2)+8*(p6p7*p1p3)*(-2*fmb*fmc-fmb2-fmc2+hbcm2)+(p4p6*p3p7*
5486 . p3p4)*(-32*ffmcfmb+32)+(p3p7*p3p6*p3p4)*(-16*ffmcfmb+16)+(p4p6
5487 . *p3p7*p1p3)*(32*ffmcfmb-32)+(p3p7*p3p6*p1p3)*(16*ffmcfmb-16)+
5488 . 16*(p3p7*p3p6)*(ffmcfmb*fmb*fmc-2*fmb*fmc+2*fmc*hbcm-2*fmc2)+
5489 . 16*(-fmc*hbcm*p1p2*p6p7+fmc*hbcm*p2p3*p6p7+fmc*hbcm*p2p4*p6p7+
5490 . p1p2*p1p3*p6p7-p1p2*p3p4*p6p7-p1p3*p2p3*p6p7-p1p3*p2p4*p6p7+
5491 . p2p3*p3p4*p6p7+p2p4*p3p4*p6p7))+ans3
5492 ans1=w8*(16*(p6p7*p2p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p7*p1p2
5493 . )*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p6p7*p2p3)*(2*fmb*fmc+fmb2+
5494 . fmc2-hbcm2)+(p4p6*p3p7*p2p3)*(-32*ffmcfmb+32)+(p3p7*p3p6*p2p3)
5495 . *(-16*ffmcfmb+16)+16*(-p1p2*p2p3*p6p7+p2p3*p2p4*p6p7+p2p3s2*
5496 . p6p7))+ans2
5497 ans=ccc*ans1
5498 b(2)=ans
5499 ans4=16*(p3p7*p3p6*p1p8)*(-ffmcfmb*fmc+hbcm)+16*(p6p8*p3p7*p3p4
5500 . )*(ffmcfmb*fmb-ffmcfmb*fmc-fmb+hbcm)+16*(p7p8*p3p6*p3p4)*(
5501 . ffmcfmb*fmb+ffmcfmb*fmc-fmc)+16*(p6p8*p3p7*p1p3)*(-ffmcfmb*fmb
5502 . +ffmcfmb*fmc+fmb-hbcm)+16*(p7p8*p3p6*p1p3)*(-ffmcfmb*fmb-
5503 . ffmcfmb*fmc+fmc)+16*(-2*fmc*p2p5*p3p6*p7p8+2*fmc*p2p8*p3p6*
5504 . p5p7-hbcm*p1p8*p2p5*p6p7-2*hbcm*p2p5*p4p6*p7p8+hbcm*p2p5*p4p8*
5505 . p6p7+2*hbcm*p2p8*p4p6*p5p7)
5506 ans3=64*(p5p8*p4p6*p3p7)*(fmc-hbcm)+48*(p4p8*p4p6*p3p7)*(fmc-
5507 . hbcm)+64*(p4p6*p3p7*p2p8)*(-fmc+hbcm)+48*(p4p6*p3p7*p1p8)*(-
5508 . fmc+hbcm)+32*(p6p8*p3p7*p1p4)*(fmc-hbcm)+8*(p6p7*p4p8)*(-fmb2*
5509 . hbcm-2*fmc*hbcm2+fmc2*hbcm+hbcm3)+8*(p6p7*p1p8)*(fmb2*hbcm+2*
5510 . fmc*hbcm2-fmc2*hbcm-hbcm3)+16*(p6p7*p5p8*p3p4)*(fmb+fmc-hbcm)+
5511 . 16*(p6p8*p5p7*p3p4)*(-fmb-fmc+hbcm)+16*(p7p8*p4p6*p3p4)*(fmb+
5512 . fmc-hbcm)+16*(p6p7*p3p4*p2p8)*(-fmb-fmc+hbcm)+16*(p6p7*p5p8*
5513 . p1p3)*(-fmb-fmc+hbcm)+16*(p6p8*p5p7*p1p3)*(fmb+fmc-hbcm)+16*(
5514 . p7p8*p4p6*p1p3)*(-fmb-fmc+hbcm)+16*(p6p7*p2p8*p1p3)*(fmb+fmc-
5515 . hbcm)+16*(p7p8*p3p6)*(fmb*fmc2+fmb2*fmc-fmc*hbcm2+fmc2*hbcm)+
5516 . 16*(p6p7*p5p8)*(fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+16*(p6p8*
5517 . p5p7)*(-fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+16*(p7p8*p4p6)*(fmb*
5518 . fmc*hbcm+fmb2*hbcm+fmc*hbcm2-hbcm3)+16*(p6p8*p3p7)*(-fmb*fmc*
5519 . hbcm+fmb*fmc2+fmc*hbcm2-fmc3)+16*(p6p7*p2p8)*(-fmb*fmc*hbcm+
5520 . fmc*hbcm2-fmc2*hbcm)+32*(p5p8*p3p7*p3p6)*(ffmcfmb*fmc-fmc)+16*
5521 . (p4p8*p3p7*p3p6)*(ffmcfmb*fmc-hbcm)+32*(p3p7*p3p6*p2p8)*(-
5522 . ffmcfmb*fmc+fmc)+ans4
5523 ans2=w5*ans3
5524 ans5=w12*(16*(p4p6*p3p7*p1p8)*(-fmc+hbcm)+8*(p6p7*p1p8)*(fmb2*
5525 . hbcm+2*fmc*hbcm2-fmc2*hbcm-hbcm3)+16*(p7p8*p3p6)*(fmb2*fmc-fmc
5526 . *hbcm2+2*fmc2*hbcm-fmc3)+16*(p6p7*p5p8*p1p3)*(-fmb-fmc+hbcm)+
5527 . 16*(p6p8*p5p7*p1p3)*(fmb+fmc-hbcm)+16*(p7p8*p4p6*p1p3)*(-fmb-
5528 . fmc+hbcm)+16*(p6p7*p2p8*p1p3)*(fmb+fmc-hbcm)+32*(p5p8*p3p7*
5529 . p3p6)*(ffmcfmb*fmc-fmc)+32*(p3p7*p3p6*p2p8)*(-ffmcfmb*fmc+fmc)
5530 . +16*(p3p7*p3p6*p1p8)*(-ffmcfmb*fmc+hbcm)+16*(p6p8*p3p7*p1p3)*(
5531 . -ffmcfmb*fmb+ffmcfmb*fmc+fmb-hbcm)+16*(p7p8*p3p6*p1p3)*(-
5532 . ffmcfmb*fmb-ffmcfmb*fmc+fmc)+16*(-2*fmc*p2p5*p3p6*p7p8+2*fmc*
5533 . p2p8*p3p6*p5p7-hbcm*p1p8*p2p5*p6p7))+(64*(p6p7*p5p8)*(-fb3*fmc
5534 . +fb3*hbcm-fb4*fmb)+64*(p6p8*p5p7)*(fb3*fmc-fb3*hbcm+fb4*fmb)+8
5535 . *(p7p8*p4p6)*(-8*fb3*fmc+8*fb3*hbcm-8*fb4*fmb+hbcm)+64*(p6p7*
5536 . p2p8)*(fb3*fmc-fb3*hbcm+fb4*fmb)+8*(p6p8*p3p7)*(-8*fb3*ffmcfmb
5537 . *fmc+16*fb3*fmc-8*fb3*hbcm-8*fb4*ffmcfmb*fmb+8*fb4*fmb-fmb+2*
5538 . fmc-2*hbcm)+8*(p7p8*p3p6)*(-8*fb3*ffmcfmb*fmc+8*fb3*fmc-8*fb4*
5539 . ffmcfmb*fmb-fmb-2*fmc+2*hbcm))
5540 ans1=w8*(48*(p4p6*p3p7*p2p8)*(-fmc+hbcm)+32*(p6p8*p3p7*p2p5)*(
5541 . fmc-hbcm)+8*(p6p7*p2p8)*(fmb2*hbcm+2*fmc*hbcm2-fmc2*hbcm-hbcm3
5542 . )+16*(p6p7*p5p8*p2p3)*(fmb+fmc-hbcm)+16*(p6p8*p5p7*p2p3)*(-fmb
5543 . -fmc+hbcm)+16*(p7p8*p4p6*p2p3)*(fmb+fmc-hbcm)+16*(p6p7*p2p8*
5544 . p2p3)*(-fmb-fmc+hbcm)+16*(p3p7*p3p6*p2p8)*(-ffmcfmb*fmc+hbcm)+
5545 . 16*(p6p8*p3p7*p2p3)*(ffmcfmb*fmb-ffmcfmb*fmc-fmb+2*fmc-hbcm)+
5546 . 16*(p7p8*p3p6*p2p3)*(ffmcfmb*fmb+ffmcfmb*fmc-fmc)-16*hbcm*p2p5
5547 . *p2p8*p6p7)+ans2+ans5
5548 ans=ccc*ans1
5549 b(3)=ans
5550 ans=ccc*(w8*(48*(p3p7*p2p5)*(fmc-hbcm)+16*(p3p7*p1p2)*(-fmc+
5551 . hbcm)+24*(p5p7*p2p3)*(-fmb-fmc+hbcm)+8*(p3p7*p2p3)*(2*ffmcfmb*
5552 . fmb-2*ffmcfmb*fmc-3*fmb+4*fmc-2*hbcm))+w5*(32*(p3p7*p1p4)*(fmc
5553 . -hbcm)+8*p4p7*(fmb2*hbcm+2*fmc*hbcm2-fmc2*hbcm-hbcm3)+24*(p5p7
5554 . *p3p4)*(-fmb-fmc+hbcm)+24*(p5p7*p1p3)*(fmb+fmc-hbcm)+32*p5p7*(
5555 . -fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+8*p3p7*(-4*fmb*fmc*hbcm+3*
5556 . fmb*fmc2+3*fmc*hbcm2-3*fmc3)+8*(p3p7*p3p4)*(2*ffmcfmb*fmb-2*
5557 . ffmcfmb*fmc-3*fmb-2*fmc+4*hbcm)+8*(p3p7*p1p3)*(-2*ffmcfmb*fmb+
5558 . 2*ffmcfmb*fmc+3*fmb-2*hbcm)+16*(hbcm*p2p4*p5p7-hbcm*p2p5*p4p7)
5559 . )+w12*(24*(p5p7*p1p3)*(fmb+fmc-hbcm)+8*(p3p7*p1p3)*(-2*ffmcfmb
5560 . *fmb+2*ffmcfmb*fmc+3*fmb-2*hbcm))+(96*p5p7*(fb3*fmc-fb3*hbcm+
5561 . fb4*fmb)+4*p3p7*(-8*fb3*ffmcfmb*fmc+24*fb3*fmc-16*fb3*hbcm-16*
5562 . fb4*ffmcfmb*fmb+8*fb4*ffmcfmb*fmc+24*fb4*fmb-8*fb4*fmc-2*fmb+2
5563 . *fmc-hbcm)))
5564 b(4)=ans
5565 ans3=w12*(16*(p5p7*p1p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p3p7*p1p8
5566 . )*(-fmb*fmc+2*fmb*hbcm+2*fmc*hbcm-fmc2-hbcm2)+8*(p7p8*p1p3)*(-
5567 . 2*fmb*fmc-fmb2-fmc2+hbcm2)+(p5p8*p3p7*p1p3)*(-32*ffmcfmb+32)+(
5568 . p3p7*p2p8*p1p3)*(32*ffmcfmb-32)+(p3p7*p1p8*p1p3)*(16*ffmcfmb-
5569 . 16)+16*(p1p3*p2p5*p7p8-p1p3*p2p8*p5p7))+(4*p7p8*(-8*fb4*fmb2-
5570 . 16*fb4*fmc*hbcm+8*fb4*fmc2+8*fb4*hbcm2+fmb*hbcm+fmc*hbcm)+(
5571 . p5p8*p3p7)*(-128*fb4*ffmcfmb+128*fb4-16)+(p3p7*p2p8)*(128*fb4*
5572 . ffmcfmb-128*fb4+16)+(p3p7*p1p8)*(64*fb4*ffmcfmb-64*fb4+8)+64*(
5573 . fb4*p2p5*p7p8-fb4*p2p8*p5p7))
5574 ans2=w5*(48*(p5p8*p3p7)*(-fmc*hbcm+fmc2)+48*(p3p7*p2p8)*(fmc*
5575 . hbcm-fmc2)+32*(p5p7*p4p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p5p8*
5576 . p4p7)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p4p7*p2p8)*(-fmb*hbcm-fmc*
5577 . hbcm+hbcm2)+16*(p5p7*p1p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p7p8*
5578 . p1p4)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*p7p8*(2*fmb*fmc2*hbcm+fmb2*
5579 . fmc*hbcm-fmc*hbcm3+fmc3*hbcm)+8*(p4p8*p3p7)*(3*fmb*fmc-4*fmb*
5580 . hbcm-6*fmc*hbcm+3*fmc2+3*hbcm2)+8*(p7p8*p3p4)*(2*fmb*fmc+fmb2+
5581 . fmc2-hbcm2)+8*(p3p7*p1p8)*(-fmb*fmc+2*fmb*hbcm+4*fmc*hbcm-3*
5582 . fmc2-hbcm2)+8*(p7p8*p1p3)*(-2*fmb*fmc-fmb2-fmc2+hbcm2)+(p5p8*
5583 . p3p7*p3p4)*(32*ffmcfmb-32)+(p3p7*p3p4*p2p8)*(-32*ffmcfmb+32)+(
5584 . p3p7*p3p4*p1p8)*(-16*ffmcfmb+16)+(p5p8*p3p7*p1p3)*(-32*ffmcfmb
5585 . +32)+(p3p7*p2p8*p1p3)*(32*ffmcfmb-32)+(p3p7*p1p8*p1p3)*(16*
5586 . ffmcfmb-16)+16*(-fmc*hbcm*p2p5*p7p8+fmc*hbcm*p2p8*p5p7+p1p3*
5587 . p2p5*p7p8-p1p3*p2p8*p5p7-p2p5*p3p4*p7p8+p2p8*p3p4*p5p7))+ans3
5588 ans1=w8*(32*(p5p7*p2p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p7p8*p2p5
5589 . )*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p3p7*p2p8)*(-3*fmb*fmc+4*fmb*
5590 . hbcm+6*fmc*hbcm-3*fmc2-3*hbcm2)+8*(p7p8*p2p3)*(2*fmb*fmc-2*fmb
5591 . *hbcm+fmb2-2*fmc*hbcm+fmc2+hbcm2)+(p5p8*p3p7*p2p3)*(32*ffmcfmb
5592 . -32)+(p3p7*p2p8*p2p3)*(-32*ffmcfmb+32)+(p3p7*p2p3*p1p8)*(-16*
5593 . ffmcfmb+16)+16*(-p2p3*p2p5*p7p8+p2p3*p2p8*p5p7))+ans2
5594 ans=ccc*ans1
5595 b(5)=ans
5596 ans3=w12*(16*(p5p7*p1p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p3p7*
5597 . p1p3)*(3*fmb*fmc-2*fmb*hbcm+fmb2+2*fmc2-2*hbcm2)+16*p3p7*(-
5598 . ffmcfmb*p1p3s2+p1p3s2)+(p3p7*p3p5*p1p3)*(32*ffmcfmb-32)+(p3p7*
5599 . p2p3*p1p3)*(-32*ffmcfmb+32)+16*(p1p3*p2p3*p5p7-p1p3*p2p5*p3p7)
5600 . )+((p3p7*p3p5)*(128*fb4*ffmcfmb-128*fb4+16)+(p3p7*p2p3)*(-128*
5601 . fb4*ffmcfmb+128*fb4-16)+(p3p7*p1p3)*(-64*fb4*ffmcfmb+64*fb4-8)
5602 . +64*p5p7*(-fb3*fmb*hbcm-fb4*fmc*hbcm+fb4*hbcm2)+4*p3p7*(8*fb3*
5603 . fmb*fmc-16*fb3*fmb*hbcm-8*fb3*fmc*hbcm+8*fb3*fmc2+8*fb4*fmb2+
5604 . 24*fb4*fmc*hbcm-8*fb4*fmc2-16*fb4*hbcm2-fmb*hbcm-fmc*hbcm+2*
5605 . hbcm2)+64*(fb4*p2p3*p5p7-fb4*p2p5*p3p7))
5606 ans2=w5*(48*(p3p7*p3p5)*(fmc*hbcm-fmc2)+48*(p3p7*p2p3)*(-fmc*
5607 . hbcm+fmc2)+16*(p4p7*p3p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p5p7*
5608 . p3p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p4p7*p2p3)*(fmb*hbcm+fmc*
5609 . hbcm-hbcm2)+16*(p3p7*p1p4)*(fmb*hbcm+2*fmc*hbcm-2*hbcm2)+16*(
5610 . p5p7*p1p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p3p7*p3p4)*(-5*fmb*
5611 . fmc+4*fmb*hbcm-fmb2+2*fmc*hbcm-4*fmc2+2*hbcm2)+8*(p3p7*p1p3)*(
5612 . 3*fmb*fmc-2*fmb*hbcm+fmb2-2*fmc*hbcm+4*fmc2-2*hbcm2)+24*p5p7*(
5613 . fmb*fmc*hbcm2-fmc*hbcm3+fmc2*hbcm2)+8*p4p7*(2*fmb*fmc*hbcm2-2*
5614 . fmb*hbcm3+fmb2*hbcm2-2*fmc*hbcm3+fmc2*hbcm2+hbcm4)+(p3p7*p3p5*
5615 . p3p4)*(-32*ffmcfmb+32)+(p3p7*p3p4*p2p3)*(32*ffmcfmb-32)+8*p3p7
5616 . *(-2*ffmcfmb*p1p3s2+3*fmb*fmc*hbcm2-4*fmb*fmc2*hbcm-fmb2*fmc*
5617 . hbcm+3*fmc*hbcm3-3*fmc3*hbcm+2*p1p3s2)+(p3p7*p3p5*p1p3)*(32*
5618 . ffmcfmb-32)+(p3p7*p3p4*p1p3)*(16*ffmcfmb-16)+(p3p7*p2p3*p1p3)*
5619 . (-32*ffmcfmb+32)+16*(-fmc*hbcm*p2p3*p5p7+fmc*hbcm*p2p5*p3p7+
5620 . hbcm2*p2p4*p5p7-hbcm2*p2p5*p4p7+p1p3*p2p3*p5p7-p1p3*p2p5*p3p7-
5621 . p2p3*p3p4*p5p7+p2p5*p3p4*p3p7))+ans3
5622 ans1=w8*(16*(p3p7*p1p2)*(-fmc*hbcm+hbcm2)+16*(p3p7*p2p5)*(fmb*
5623 . hbcm+3*fmc*hbcm-3*hbcm2)+32*(p5p7*p2p3)*(-fmb*hbcm-fmc*hbcm+
5624 . hbcm2)+8*(p3p7*p2p3)*(fmb*fmc-2*fmb*hbcm-fmb2-4*fmc*hbcm+2*
5625 . fmc2+2*hbcm2)+32*p3p7*(ffmcfmb*p2p3s2-p2p3s2)+(p3p7*p3p5*p2p3)
5626 . *(-32*ffmcfmb+32)+(p3p7*p2p3*p1p3)*(16*ffmcfmb-16)+16*(p2p3*
5627 . p2p5*p3p7-p2p3s2*p5p7))+ans2
5628 ans=ccc*ans1
5629 b(6)=ans
5630 ans4=16*(p5p8*p3p7)*(-fmb*fmc*hbcm+3*fmc*hbcm2-3*fmc2*hbcm)+8*(
5631 . p4p8*p3p7)*(2*fmb*fmc*hbcm-3*fmb*hbcm2+fmb2*hbcm+6*fmc*hbcm2-3
5632 . *fmc2*hbcm-3*hbcm3)+16*(p7p8*p3p5)*(fmb*fmc*hbcm-fmc*hbcm2+
5633 . fmc2*hbcm)+16*(p3p7*p2p8)*(fmb*fmc*hbcm-3*fmc*hbcm2+3*fmc2*
5634 . hbcm)+16*(p7p8*p2p3)*(-fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+16*(
5635 . fmc*hbcm2*p2p5*p7p8-fmc*hbcm2*p2p8*p5p7-hbcm*p1p3*p2p5*p7p8+
5636 . hbcm*p1p3*p2p8*p5p7-hbcm*p1p8*p2p3*p5p7+hbcm*p1p8*p2p5*p3p7+
5637 . hbcm*p2p3*p4p8*p5p7+hbcm*p2p5*p3p4*p7p8-hbcm*p2p5*p3p7*p4p8-
5638 . hbcm*p2p8*p3p4*p5p7)
5639 ans3=48*(p4p8*p3p7*p3p5)*(fmc-hbcm)+48*(p4p8*p3p7*p2p3)*(-fmc+
5640 . hbcm)+16*(p3p7*p3p5*p1p8)*(-fmc+hbcm)+16*(p3p7*p3p4*p1p8)*(fmc
5641 . -hbcm)+16*(p3p7*p2p3*p1p8)*(fmc-hbcm)+16*(p4p8*p3p7*p1p3)*(-
5642 . fmc+hbcm)+16*(p5p8*p3p7*p3p4)*(-fmb-4*fmc+4*hbcm)+16*(p7p8*
5643 . p3p5*p3p4)*(fmb+fmc-hbcm)+16*(p3p7*p3p4*p2p8)*(fmb+4*fmc-4*
5644 . hbcm)+16*(p7p8*p3p4*p2p3)*(-fmb-fmc+hbcm)+16*(p5p8*p3p7*p1p3)*
5645 . (fmb+2*fmc-2*hbcm)+16*(p7p8*p3p5*p1p3)*(-fmb-fmc+hbcm)+16*(
5646 . p3p7*p2p8*p1p3)*(-fmb-2*fmc+2*hbcm)+16*(p7p8*p2p3*p1p3)*(fmb+
5647 . fmc-hbcm)+24*(p5p7*p4p8)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+16*(p5p8
5648 . *p4p7)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+8*(p7p8*p3p4)*(2*fmb*hbcm2-
5649 . fmb2*hbcm+fmc2*hbcm-hbcm3)+16*(p4p7*p2p8)*(-fmb*hbcm2-fmc*
5650 . hbcm2+hbcm3)+8*(p5p7*p1p8)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+8*(p3p7
5651 . *p1p8)*(fmb*hbcm2-fmb2*hbcm-4*fmc*hbcm2+3*fmc2*hbcm+hbcm3)+16*
5652 . (p7p8*p1p4)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+8*(p7p8*p1p3)*(-2*fmb
5653 . *hbcm2+fmb2*hbcm-fmc2*hbcm+hbcm3)+8*p7p8*(2*fmb*fmc*hbcm3-fmb2
5654 . *fmc*hbcm2-fmc*hbcm4+fmc3*hbcm2)+ans4
5655 ans2=w5*ans3
5656 ans5=(8*(p5p8*p3p7)*(16*fb3*fmc-16*fb3*hbcm+8*fb4*fmb-hbcm)+8*(
5657 . p7p8*p3p5)*(-8*fb3*fmc+8*fb3*hbcm-8*fb4*fmb+hbcm)+8*(p3p7*p2p8
5658 . )*(-16*fb3*fmc+16*fb3*hbcm-8*fb4*fmb+hbcm)+8*(p7p8*p2p3)*(8*
5659 . fb3*fmc-8*fb3*hbcm+8*fb4*fmb-hbcm)+8*(p3p7*p1p8)*(-8*fb3*fmc+8
5660 . *fb3*hbcm+hbcm)+4*p7p8*(8*fb3*fmb2*hbcm-16*fb3*fmc*hbcm2+8*fb3
5661 . *fmc2*hbcm+8*fb3*hbcm3+16*fb4*fmb*fmc*hbcm-16*fb4*fmb*hbcm2+
5662 . hbcm3)+8*(-8*fb3*hbcm*p2p5*p7p8+8*fb3*hbcm*p2p8*p5p7-hbcm*p1p3
5663 . *p7p8))
5664 ans1=w12*(16*(p3p7*p3p5*p1p8)*(-fmc+hbcm)+16*(p3p7*p2p3*p1p8)*(
5665 . fmc-hbcm)+16*(p5p8*p3p7*p1p3)*(fmb+2*fmc-2*hbcm)+16*(p7p8*p3p5
5666 . *p1p3)*(-fmb-fmc+hbcm)+16*(p3p7*p2p8*p1p3)*(-fmb-2*fmc+2*hbcm)
5667 . +16*(p7p8*p2p3*p1p3)*(fmb+fmc-hbcm)+8*(p5p7*p1p8)*(fmb*hbcm2+
5668 . fmc*hbcm2-hbcm3)+8*(p3p7*p1p8)*(fmb*hbcm2-fmb2*hbcm-2*fmc*
5669 . hbcm2+fmc2*hbcm+hbcm3)+8*(p7p8*p1p3)*(-2*fmb*hbcm2+fmb2*hbcm-
5670 . fmc2*hbcm+hbcm3)+16*(-hbcm*p1p3*p2p5*p7p8+hbcm*p1p3*p2p8*p5p7-
5671 . hbcm*p1p8*p2p3*p5p7+hbcm*p1p8*p2p5*p3p7))+w8*(48*(p3p7*p3p5*
5672 . p2p8)*(-fmc+hbcm)+16*(p3p7*p2p3*p1p8)*(-fmc+hbcm)+16*(p3p7*
5673 . p2p8*p1p3)*(fmc-hbcm)+8*(p7p8*p2p3)*(fmb2*hbcm+2*fmc*hbcm2-
5674 . fmc2*hbcm-hbcm3)+16*p7p8*(-fmb*p2p3s2-fmc*p2p3s2+hbcm*p2p3s2)+
5675 . 16*(p5p8*p3p7*p2p3)*(-fmb+2*fmc-2*hbcm)+16*(p7p8*p3p5*p2p3)*(
5676 . fmb+fmc-hbcm)+16*(p3p7*p2p8*p2p3)*(fmb+fmc-hbcm)+24*(p5p7*p2p8
5677 . )*(fmb*hbcm2+fmc*hbcm2-hbcm3)+16*(p7p8*p2p5)*(-fmb*hbcm2-fmc*
5678 . hbcm2+hbcm3)+8*(p3p7*p2p8)*(-2*fmb*fmc*hbcm+3*fmb*hbcm2-fmb2*
5679 . hbcm-6*fmc*hbcm2+3*fmc2*hbcm+3*hbcm3)+16*(-hbcm*p2p3*p2p5*p7p8
5680 . +hbcm*p2p5*p2p8*p3p7))+ans2+ans5
5681 ans=ccc*ans1
5682 b(7)=ans
5683 ans3=w12*(16*(p4p6*p1p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p5p8*
5684 . p3p6)*(-fmb*fmc+fmc*hbcm-fmc2)+16*(p3p6*p2p8)*(fmb*fmc-fmc*
5685 . hbcm+fmc2)+8*(p3p6*p1p8)*(2*fmb*fmc+fmb*hbcm-fmc*hbcm+2*fmc2-
5686 . hbcm2)+8*(p6p8*p1p3)*(-2*fmb*fmc-fmb2-fmc2+hbcm2)+16*(-ffmcfmb
5687 . *p1p3*p2p8*p3p6+p1p2*p1p3*p6p8-p1p3*p2p3*p6p8-p1p3*p2p4*p6p8-
5688 . p1p3*p2p8*p4p6))+(32*p6p8*(-fb4*fmb2-2*fb4*fmc*hbcm+fb4*fmc2+
5689 . fb4*hbcm2)+(p3p6*p2p8)*(-64*fb4*ffmcfmb-8)+64*(fb4*p1p2*p6p8-
5690 . fb4*p2p3*p6p8-fb4*p2p4*p6p8-fb4*p2p8*p4p6))
5691 ans2=w5*(48*(p5p8*p4p6)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p4p8*
5692 . p4p6)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p4p6*p2p8)*(2*fmb*hbcm+3*
5693 . fmc*hbcm-2*hbcm2)+32*(p4p6*p1p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*
5694 . (p6p8*p1p4)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*p6p8*(2*fmb*fmc2*hbcm
5695 . +fmb2*fmc*hbcm-fmc*hbcm3+fmc3*hbcm)+32*(p5p8*p3p6)*(-fmb*fmc+
5696 . fmc*hbcm-fmc2)+8*(p4p8*p3p6)*(-2*fmb*fmc-fmb*hbcm+fmc*hbcm-2*
5697 . fmc2+hbcm2)+8*(p6p8*p3p4)*(2*fmb*fmc+fmb2+fmc2-hbcm2)+16*(p3p6
5698 . *p2p8)*(fmb*fmc-fmc*hbcm+2*fmc2)+8*(p3p6*p1p8)*(2*fmb*fmc+fmb*
5699 . hbcm-fmc*hbcm+2*fmc2-hbcm2)+8*(p6p8*p1p3)*(-2*fmb*fmc-fmb2-
5700 . fmc2+hbcm2)+16*(-ffmcfmb*p1p3*p2p8*p3p6+ffmcfmb*p2p8*p3p4*p3p6
5701 . -fmc*hbcm*p1p2*p6p8+fmc*hbcm*p2p3*p6p8+fmc*hbcm*p2p4*p6p8+p1p2
5702 . *p1p3*p6p8-p1p2*p3p4*p6p8-p1p3*p2p3*p6p8-p1p3*p2p4*p6p8-p1p3*
5703 . p2p8*p4p6+p2p3*p3p4*p6p8+p2p4*p3p4*p6p8+p2p8*p3p4*p4p6))+ans3
5704 ans1=w8*(32*(p4p6*p2p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p8*p2p4
5705 . )*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p8*p1p2)*(-fmb*hbcm-fmc*hbcm
5706 . +hbcm2)+8*(p3p6*p2p8)*(2*fmb*fmc+fmb*hbcm-fmc*hbcm+2*fmc2-
5707 . hbcm2)+8*(p6p8*p2p3)*(2*fmb*fmc+fmb2+fmc2-hbcm2)+16*(ffmcfmb*
5708 . p2p3*p2p8*p3p6-p1p2*p2p3*p6p8+p2p3*p2p4*p6p8+p2p3*p2p8*p4p6+
5709 . p2p3s2*p6p8))+ans2
5710 ans=ccc*ans1
5711 b(8)=ans
5712 ans2=w12*(16*(p4p6*p1p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p3p6*
5713 . p1p3)*(-fmb*hbcm+fmb2+fmc*hbcm-fmc2)+32*(p3p6*p3p5)*(fmb*fmc-
5714 . fmc*hbcm+fmc2)+16*(p3p6*p2p3)*(-fmb*fmc+2*fmc*hbcm-fmc2)+8*
5715 . p3p6*(3*fmb*fmc*hbcm2-2*fmb*fmc2*hbcm-fmb2*fmc*hbcm-2*fmc*
5716 . hbcm3+3*fmc2*hbcm2-fmc3*hbcm)+16*(ffmcfmb*p1p3*p2p3*p3p6-fmc*
5717 . hbcm*p1p2*p3p6+2*fmc*hbcm*p2p5*p3p6+p1p3*p2p3*p4p6-p1p3*p2p5*
5718 . p3p6))+((p3p6*p2p3)*(64*fb4*ffmcfmb+8)+64*p4p6*(-fb3*fmb*hbcm-
5719 . fb4*fmc*hbcm+fb4*hbcm2)+32*p3p6*(-fb3*fmb*hbcm+fb4*fmb2+fb4*
5720 . fmc*hbcm-fb4*fmc2)+64*(fb4*p2p3*p4p6-fb4*p2p5*p3p6))
5721 ans1=w8*(16*(p3p6*p2p5)*(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p4p6*p2p3
5722 . )*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p3p6*p2p3)*(-4*fmb*fmc+fmb*
5723 . hbcm-fmb2+3*fmc*hbcm-3*fmc2)+16*(-ffmcfmb*p2p3s2*p3p6+p2p3*
5724 . p2p5*p3p6-p2p3s2*p4p6))+w5*(48*(p4p6*p3p5)*(fmb*hbcm+fmc*hbcm-
5725 . hbcm2)+32*(p4p6*p3p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p3p6*p3p4)*
5726 . (fmb*hbcm-fmb2-fmc*hbcm+fmc2)+16*(p4p6*p2p3)*(-2*fmb*hbcm-3*
5727 . fmc*hbcm+3*hbcm2)+16*(p3p6*p1p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+32*
5728 . (p4p6*p1p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p3p6*p1p3)*(-fmb*
5729 . hbcm+fmb2+fmc*hbcm-fmc2)+32*(p3p6*p3p5)*(fmb*fmc-fmc*hbcm+fmc2
5730 . )+16*(p3p6*p2p3)*(-fmb*fmc+2*fmc*hbcm-2*fmc2)+8*p4p6*(-fmb*fmc
5731 . *hbcm2+5*fmb*hbcm3-2*fmb2*hbcm2+2*fmc*hbcm3+fmc2*hbcm2-3*hbcm4
5732 . )+8*p3p6*(4*fmb*fmc*hbcm2-3*fmb*fmc2*hbcm-2*fmb2*fmc*hbcm-2*
5733 . fmc*hbcm3+3*fmc2*hbcm2-fmc3*hbcm)+16*(ffmcfmb*p1p3*p2p3*p3p6-
5734 . ffmcfmb*p2p3*p3p4*p3p6-fmc*hbcm*p1p2*p3p6+fmc*hbcm*p2p4*p3p6+3
5735 . *fmc*hbcm*p2p5*p3p6-hbcm2*p1p2*p4p6+hbcm2*p2p4*p4p6+3*hbcm2*
5736 . p2p5*p4p6+p1p3*p2p3*p4p6-p1p3*p2p5*p3p6-p2p3*p3p4*p4p6+p2p5*
5737 . p3p4*p3p6))+ans2
5738 ans=ccc*ans1
5739 b(9)=ans
5740 ans4=8*(p3p6*p1p8)*(fmb*fmc*hbcm+fmb*hbcm2-fmb2*hbcm-2*fmc*
5741 . hbcm2+2*fmc2*hbcm)+16*(fmc*hbcm2*p2p5*p6p8-fmc*p1p8*p2p3*p3p6+
5742 . fmc*p2p3*p3p6*p4p8+2*fmc*p2p3*p3p6*p5p8-2*fmc*p2p8*p3p5*p3p6-
5743 . hbcm*p1p3*p2p5*p6p8+hbcm*p1p3*p2p8*p4p6-hbcm*p1p8*p2p3*p4p6+
5744 . hbcm*p1p8*p2p5*p3p6+hbcm*p2p3*p4p6*p4p8+2*hbcm*p2p3*p4p6*p5p8+
5745 . hbcm*p2p5*p3p4*p6p8-hbcm*p2p5*p3p6*p4p8-hbcm*p2p8*p3p4*p4p6-2*
5746 . hbcm*p2p8*p3p5*p4p6)
5747 ans3=16*(p5p8*p3p6*p3p4)*(-fmb-fmc+hbcm)+16*(p6p8*p3p5*p3p4)*(
5748 . fmb+fmc-hbcm)+16*(p3p6*p3p4*p2p8)*(fmb-hbcm)+16*(p6p8*p3p4*
5749 . p2p3)*(-fmb-fmc+hbcm)+16*(p5p8*p3p6*p1p3)*(fmb+fmc-hbcm)+16*(
5750 . p6p8*p3p5*p1p3)*(-fmb-fmc+hbcm)+16*(p3p6*p2p8*p1p3)*(-fmb+hbcm
5751 . )+16*(p6p8*p2p3*p1p3)*(fmb+fmc-hbcm)+32*(p5p8*p4p6)*(-fmb*
5752 . hbcm2-fmc*hbcm2+hbcm3)+24*(p4p8*p4p6)*(-fmb*hbcm2-fmc*hbcm2+
5753 . hbcm3)+8*(p6p8*p3p4)*(2*fmb*hbcm2-fmb2*hbcm+fmc2*hbcm-hbcm3)+
5754 . 16*(p4p6*p2p8)*(fmb*hbcm2+2*fmc*hbcm2-3*hbcm3)+24*(p4p6*p1p8)*
5755 . (fmb*hbcm2+fmc*hbcm2-hbcm3)+16*(p6p8*p1p4)*(-fmb*hbcm2-fmc*
5756 . hbcm2+hbcm3)+8*(p6p8*p1p3)*(-2*fmb*hbcm2+fmb2*hbcm-fmc2*hbcm+
5757 . hbcm3)+8*p6p8*(2*fmb*fmc*hbcm3-fmb2*fmc*hbcm2-fmc*hbcm4+fmc3*
5758 . hbcm2)+32*(p5p8*p3p6)*(-fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+8*(
5759 . p4p8*p3p6)*(-fmb*fmc*hbcm-fmb*hbcm2+fmb2*hbcm+2*fmc*hbcm2-2*
5760 . fmc2*hbcm)+16*(p6p8*p3p5)*(fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+
5761 . 16*(p3p6*p2p8)*(fmb*fmc*hbcm-3*fmc*hbcm2+2*fmc2*hbcm)+16*(p6p8
5762 . *p2p3)*(-fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+ans4
5763 ans2=w5*ans3
5764 ans5=w12*(32*(p3p6*p2p8)*(-fmc*hbcm2+fmc2*hbcm)+16*(p5p8*p3p6*
5765 . p1p3)*(fmb+fmc-hbcm)+16*(p6p8*p3p5*p1p3)*(-fmb-fmc+hbcm)+16*(
5766 . p3p6*p2p8*p1p3)*(-fmb+hbcm)+16*(p6p8*p2p3*p1p3)*(fmb+fmc-hbcm)
5767 . +8*(p4p6*p1p8)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+8*(p6p8*p1p3)*(-2*
5768 . fmb*hbcm2+fmb2*hbcm-fmc2*hbcm+hbcm3)+16*(p5p8*p3p6)*(-fmb*fmc*
5769 . hbcm+fmc*hbcm2-fmc2*hbcm)+8*(p3p6*p1p8)*(fmb*fmc*hbcm+fmb*
5770 . hbcm2-fmb2*hbcm-2*fmc*hbcm2+2*fmc2*hbcm)+16*(-fmc*p1p8*p2p3*
5771 . p3p6+2*fmc*p2p3*p3p6*p5p8-2*fmc*p2p8*p3p5*p3p6-hbcm*p1p3*p2p5*
5772 . p6p8+hbcm*p1p3*p2p8*p4p6-hbcm*p1p8*p2p3*p4p6+hbcm*p1p8*p2p5*
5773 . p3p6))+(8*(p3p6*p2p8)*(8*fb3*hbcm-8*fb4*fmb+hbcm)+64*(p5p8*
5774 . p3p6)*(fb3*fmc-fb3*hbcm+fb4*fmb)+64*(p6p8*p3p5)*(-fb3*fmc+fb3*
5775 . hbcm-fb4*fmb)+8*(p6p8*p2p3)*(8*fb3*fmc-8*fb3*hbcm+8*fb4*fmb-
5776 . hbcm)+4*p6p8*(8*fb3*fmb2*hbcm-16*fb3*fmc*hbcm2+8*fb3*fmc2*hbcm
5777 . +8*fb3*hbcm3+16*fb4*fmb*fmc*hbcm-16*fb4*fmb*hbcm2-fmb*hbcm2-
5778 . fmc*hbcm2+hbcm3)+64*(-fb3*hbcm*p2p5*p6p8+fb3*hbcm*p2p8*p4p6))
5779 ans1=w8*(8*(p6p8*p2p3)*(fmb2*hbcm+2*fmc*hbcm2-fmc2*hbcm-hbcm3)+
5780 . 16*p6p8*(-fmb*p2p3s2-fmc*p2p3s2+hbcm*p2p3s2)+16*(p5p8*p3p6*
5781 . p2p3)*(-fmb-fmc+hbcm)+16*(p6p8*p3p5*p2p3)*(fmb+fmc-hbcm)+16*(
5782 . p3p6*p2p8*p2p3)*(fmb+fmc-hbcm)+24*(p4p6*p2p8)*(fmb*hbcm2+fmc*
5783 . hbcm2-hbcm3)+16*(p6p8*p2p5)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+8*(
5784 . p3p6*p2p8)*(fmb*fmc*hbcm+fmb*hbcm2-fmb2*hbcm-2*fmc*hbcm2+2*
5785 . fmc2*hbcm)+16*(-hbcm*p2p3*p2p5*p6p8+hbcm*p2p5*p2p8*p3p6))+ans2
5786 . +ans5
5787 ans=ccc*ans1
5788 b(10)=ans
5789 ans4=16*(p6p7*p3p5)*(-fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+16*(
5790 . p6p7*p2p3)*(fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+32*(p3p7*p3p6*
5791 . p3p5)*(-ffmcfmb*fmc+fmc)+32*(p3p7*p3p6*p2p3)*(ffmcfmb*fmc-fmc)
5792 . +16*(p3p7*p3p6*p3p4)*(-2*ffmcfmb*fmb-ffmcfmb*fmc+fmb+fmc)+16*(
5793 . p3p7*p3p6*p1p3)*(2*ffmcfmb*fmb+ffmcfmb*fmc-fmb-fmc)+16*(-fmc*
5794 . hbcm2*p2p5*p6p7-2*fmc*p2p3*p3p6*p5p7+2*fmc*p2p5*p3p6*p3p7+hbcm
5795 . *p1p3*p2p5*p6p7-2*hbcm*p2p3*p4p6*p5p7-hbcm*p2p5*p3p4*p6p7+2*
5796 . hbcm*p2p5*p3p7*p4p6)
5797 ans3=64*(p4p6*p3p7*p3p5)*(-fmc+hbcm)+64*(p4p6*p3p7*p2p3)*(fmc-
5798 . hbcm)+32*(p3p7*p3p6*p1p4)*(-fmc+hbcm)+16*(p4p6*p3p7*p3p4)*(-
5799 . fmb-4*fmc+4*hbcm)+16*(p5p7*p3p6*p3p4)*(fmb+fmc-hbcm)+16*(p6p7*
5800 . p3p5*p3p4)*(-fmb-fmc+hbcm)+16*(p6p7*p3p4*p2p3)*(fmb+fmc-hbcm)+
5801 . 16*(p4p6*p3p7*p1p3)*(fmb+4*fmc-4*hbcm)+16*(p5p7*p3p6*p1p3)*(-
5802 . fmb-fmc+hbcm)+16*(p6p7*p3p5*p1p3)*(fmb+fmc-hbcm)+16*(p6p7*p2p3
5803 . *p1p3)*(-fmb-fmc+hbcm)+32*(p5p7*p4p6)*(fmb*hbcm2+fmc*hbcm2-
5804 . hbcm3)+16*(p4p7*p4p6)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+8*(p6p7*p3p4
5805 . )*(-2*fmb*hbcm2+fmb2*hbcm-fmc2*hbcm+hbcm3)+16*(p6p7*p1p4)*(fmb
5806 . *hbcm2+fmc*hbcm2-hbcm3)+8*(p6p7*p1p3)*(2*fmb*hbcm2-fmb2*hbcm+
5807 . fmc2*hbcm-hbcm3)+8*p6p7*(-2*fmb*fmc*hbcm3+fmb2*fmc*hbcm2+fmc*
5808 . hbcm4-fmc3*hbcm2)+16*(p4p6*p3p7)*(-2*fmb*fmc*hbcm+2*fmb*hbcm2-
5809 . fmb2*hbcm-fmc*hbcm2-fmc2*hbcm+2*hbcm3)+32*(p5p7*p3p6)*(fmb*fmc
5810 . *hbcm-fmc*hbcm2+fmc2*hbcm)+16*(p4p7*p3p6)*(fmb*fmc*hbcm-fmc*
5811 . hbcm2+fmc2*hbcm)+16*(p3p7*p3p6)*(2*fmb*fmc*hbcm-2*fmb*fmc2-
5812 . fmb2*fmc+fmc*hbcm2-2*fmc2*hbcm+fmc3)+ans4
5813 ans2=w5*ans3
5814 ans5=w12*(16*(p4p6*p3p7*p1p3)*(fmb+2*fmc-2*hbcm)+16*(p5p7*p3p6*
5815 . p1p3)*(-fmb-fmc+hbcm)+16*(p6p7*p3p5*p1p3)*(fmb+fmc-hbcm)+16*(
5816 . p6p7*p2p3*p1p3)*(-fmb-fmc+hbcm)+8*(p6p7*p1p3)*(2*fmb*hbcm2-
5817 . fmb2*hbcm+fmc2*hbcm-hbcm3)+16*(p5p7*p3p6)*(fmb*fmc*hbcm-fmc*
5818 . hbcm2+fmc2*hbcm)+16*(p3p7*p3p6)*(fmb*fmc*hbcm-fmb2*fmc+fmc*
5819 . hbcm2-2*fmc2*hbcm+fmc3)+32*(p3p7*p3p6*p3p5)*(-ffmcfmb*fmc+fmc)
5820 . +32*(p3p7*p3p6*p2p3)*(ffmcfmb*fmc-fmc)+16*(p3p7*p3p6*p1p3)*(2*
5821 . ffmcfmb*fmb+ffmcfmb*fmc-fmb-fmc)+16*(-2*fmc*p2p3*p3p6*p5p7+2*
5822 . fmc*p2p5*p3p6*p3p7+hbcm*p1p3*p2p5*p6p7))+(8*(p4p6*p3p7)*(16*
5823 . fb3*fmc-16*fb3*hbcm+8*fb4*fmb-hbcm)+64*(p5p7*p3p6)*(-fb3*fmc+
5824 . fb3*hbcm-fb4*fmb)+64*(p6p7*p3p5)*(fb3*fmc-fb3*hbcm+fb4*fmb)+64
5825 . *(p6p7*p2p3)*(-fb3*fmc+fb3*hbcm-fb4*fmb)+32*p6p7*(-fb3*fmb2*
5826 . hbcm+2*fb3*fmc*hbcm2-fb3*fmc2*hbcm-fb3*hbcm3-2*fb4*fmb*fmc*
5827 . hbcm+2*fb4*fmb*hbcm2)+16*(p3p7*p3p6)*(4*fb3*ffmcfmb*fmc-4*fb3*
5828 . fmc+8*fb4*ffmcfmb*fmb-4*fb4*fmb+fmb)+64*fb3*hbcm*p2p5*p6p7)
5829 ans1=w8*(32*(p3p7*p3p6*p2p5)*(-fmc+hbcm)+8*(p6p7*p2p3)*(-fmb2*
5830 . hbcm-2*fmc*hbcm2+fmc2*hbcm+hbcm3)+16*p6p7*(fmb*p2p3s2+fmc*
5831 . p2p3s2-hbcm*p2p3s2)+16*(p4p6*p3p7*p2p3)*(-fmb+2*fmc-2*hbcm)+16
5832 . *(p5p7*p3p6*p2p3)*(fmb+fmc-hbcm)+16*(p6p7*p3p5*p2p3)*(-fmb-fmc
5833 . +hbcm)+16*(p6p7*p2p5)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+16*(p3p7*
5834 . p3p6*p2p3)*(-2*ffmcfmb*fmb+ffmcfmb*fmc+fmb-fmc)+16*hbcm*p2p3*
5835 . p2p5*p6p7)+ans2+ans5
5836 ans=ccc*ans1
5837 b(11)=ans
5838 ans4=16*(-4*ffmcfmb*p2p3*p2p8*p3p6*p3p7+2*ffmcfmb*p2p3s2*p3p6*
5839 . p7p8-2*ffmcfmb*p2p3s2*p3p7*p6p8+2*fmb*hbcm*p2p5*p3p7*p6p8+
5840 . hbcm2*p2p5*p2p8*p6p7-2*p1p8*p2p3s2*p6p7-2*p2p3*p2p5*p3p6*p7p8+
5841 . 2*p2p3*p2p5*p3p7*p6p8-2*p2p3*p2p8*p3p5*p6p7+2*p2p3*p2p8*p3p6*
5842 . p5p7-4*p2p3*p2p8*p3p7*p4p6+2*p2p3s2*p4p6*p7p8-2*p2p3s2*p4p7*
5843 . p6p8+2*p2p3s2*p4p8*p6p7-2*p2p3s2*p5p7*p6p8+2*p2p3s2*p5p8*p6p7)
5844 ans3=16*(p4p6*p3p7*p2p8)*(-5*fmb*hbcm-7*fmc*hbcm+7*hbcm2)+16*(
5845 . p5p7*p3p6*p2p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p7*p3p5*p2p8)*
5846 . (-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p7p8*p3p6*p2p5)*(-fmb*hbcm-fmc*
5847 . hbcm+hbcm2)+16*(p6p7*p5p8*p2p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(
5848 . p6p8*p5p7*p2p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p6p7*p4p8*p2p3)
5849 . *(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p6p8*p4p7*p2p3)*(-fmb*hbcm-fmc*
5850 . hbcm+hbcm2)+48*(p7p8*p4p6*p2p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+32*(
5851 . p6p7*p2p3*p1p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p3p7*p3p6*p2p8)
5852 . *(-4*fmb*fmc+3*fmc*hbcm-4*fmc2+hbcm2)+16*(p6p8*p3p7*p2p3)*(-3*
5853 . fmb*fmc+fmb*hbcm-fmb2+2*fmc*hbcm-2*fmc2)+16*(p7p8*p3p6*p2p3)*(
5854 . 3*fmb*fmc-fmb*hbcm+fmb2-2*fmc*hbcm+2*fmc2)+8*(p6p7*p2p8)*(2*
5855 . fmb*fmc*hbcm2-2*fmb*hbcm3+fmb2*hbcm2-2*fmc*hbcm3+fmc2*hbcm2+
5856 . hbcm4)+(p5p8*p3p7*p3p6*p2p3)*(-32*ffmcfmb+32)+(p6p8*p3p7*p3p5*
5857 . p2p3)*(32*ffmcfmb-32)+ans4
5858 ans2=w8*ans3
5859 ans11=-2*p2p8*p3p4*p3p5*p6p7+2*p2p8*p3p4*p3p6*p5p7-4*p2p8*p3p4*
5860 . p3p7*p4p6
5861 ans10=-2*ffmcfmb*p1p3*p2p3*p3p6*p7p8+2*ffmcfmb*p1p3*p2p3*p3p7*
5862 . p6p8+4*ffmcfmb*p1p3*p2p8*p3p6*p3p7+2*ffmcfmb*p2p3*p3p4*p3p6*
5863 . p7p8-2*ffmcfmb*p2p3*p3p4*p3p7*p6p8-4*ffmcfmb*p2p8*p3p4*p3p6*
5864 . p3p7+2*fmb*fmc*p3p6*p3p7*p5p8+2*fmb*hbcm*p1p4*p3p7*p6p8+2*fmc*
5865 . hbcm*p1p2*p3p6*p7p8-2*fmc*hbcm*p2p3*p4p7*p6p8-2*fmc*hbcm*p2p3*
5866 . p5p7*p6p8+2*fmc*hbcm*p2p3*p5p8*p6p7-2*fmc*hbcm*p2p4*p3p6*p7p8-
5867 . 4*fmc*hbcm*p2p5*p3p6*p7p8+2*fmc*hbcm*p2p5*p3p7*p6p8-2*fmc*hbcm
5868 . *p2p8*p3p5*p6p7+2*fmc*hbcm*p2p8*p3p6*p4p7+4*fmc*hbcm*p2p8*p3p6
5869 . *p5p7-2*fmc2*p2p3*p3p7*p6p8+2*hbcm2*p1p2*p4p6*p7p8+2*hbcm2*
5870 . p1p4*p2p8*p6p7+hbcm2*p1p8*p2p5*p6p7-2*hbcm2*p2p4*p4p6*p7p8-4*
5871 . hbcm2*p2p5*p4p6*p7p8-hbcm2*p2p5*p4p8*p6p7+2*hbcm2*p2p8*p4p6*
5872 . p4p7+4*hbcm2*p2p8*p4p6*p5p7+2*p1p3*p1p8*p2p3*p6p7-2*p1p3*p2p3*
5873 . p4p6*p7p8+2*p1p3*p2p3*p4p7*p6p8-2*p1p3*p2p3*p4p8*p6p7+2*p1p3*
5874 . p2p3*p5p7*p6p8-2*p1p3*p2p3*p5p8*p6p7+2*p1p3*p2p5*p3p6*p7p8-2*
5875 . p1p3*p2p5*p3p7*p6p8+2*p1p3*p2p8*p3p5*p6p7-2*p1p3*p2p8*p3p6*
5876 . p5p7+4*p1p3*p2p8*p3p7*p4p6-2*p1p8*p2p3*p3p4*p6p7+2*p2p3*p3p4*
5877 . p4p6*p7p8-2*p2p3*p3p4*p4p7*p6p8+2*p2p3*p3p4*p4p8*p6p7-2*p2p3*
5878 . p3p4*p5p7*p6p8+2*p2p3*p3p4*p5p8*p6p7-2*p2p5*p3p4*p3p6*p7p8+2*
5879 . p2p5*p3p4*p3p7*p6p8+ans11
5880 ans9=16*ans10
5881 ans8=8*(p6p7*p1p8)*(-2*fmb*fmc*hbcm2+2*fmb*hbcm3-fmb2*hbcm2+2*
5882 . fmc*hbcm3-fmc2*hbcm2-hbcm4)+(p5p8*p3p7*p3p6*p3p4)*(-32*ffmcfmb
5883 . +32)+(p6p8*p3p7*p3p5*p3p4)*(32*ffmcfmb-32)+(p5p8*p3p7*p3p6*
5884 . p1p3)*(32*ffmcfmb-32)+(p6p8*p3p7*p3p5*p1p3)*(-32*ffmcfmb+32)+
5885 . ans9
5886 ans7=16*(p6p7*p3p5*p1p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p7*
5887 . p2p3*p1p8)*(-fmb*hbcm-3*fmc*hbcm+hbcm2)+32*(p7p8*p3p6*p1p4)*(-
5888 . fmb*hbcm-fmc*hbcm+hbcm2)+16*(p6p7*p5p8*p1p3)*(-fmb*hbcm-fmc*
5889 . hbcm+hbcm2)+16*(p6p8*p5p7*p1p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+48*(
5890 . p7p8*p4p6*p1p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p7*p2p8*p1p3)*
5891 . (fmb*hbcm+fmc*hbcm+hbcm2)+32*(p7p8*p3p6*p3p5)*(-fmb*fmc+fmc*
5892 . hbcm-fmc2)+16*(p6p8*p3p7*p3p4)*(-fmb*fmc-fmb*hbcm-fmb2)+16*(
5893 . p7p8*p3p6*p3p4)*(fmb*fmc-fmb*hbcm+fmb2)+16*(p6p8*p3p7*p1p3)*(
5894 . fmb*fmc+fmb*hbcm+fmb2)+16*(p7p8*p3p6*p1p3)*(-fmb*fmc+fmb*hbcm-
5895 . fmb2)+16*(p6p7*p5p8)*(fmb*fmc*hbcm2-fmc*hbcm3+fmc2*hbcm2)+16*(
5896 . p6p8*p5p7)*(-fmb*fmc*hbcm2+fmc*hbcm3-fmc2*hbcm2)+8*(p6p7*p4p8)
5897 . *(2*fmb*fmc*hbcm2-2*fmb*hbcm3+fmb2*hbcm2-2*fmc*hbcm3+fmc2*
5898 . hbcm2+hbcm4)+16*(p6p8*p3p7)*(-fmb*fmc*hbcm2-fmb*fmc2*hbcm-fmb2
5899 . *fmc*hbcm)+16*(p7p8*p3p6)*(-2*fmb*fmc*hbcm2+2*fmb*fmc2*hbcm+
5900 . fmb2*fmc*hbcm+fmc*hbcm3-2*fmc2*hbcm2+fmc3*hbcm)+16*(p6p7*p2p8)
5901 . *(-fmb*fmc*hbcm2-fmc*hbcm3-fmc2*hbcm2)+ans8
5902 ans6=32*(p6p8*p3p7*p3p5)*(-fmc*hbcm+fmc2)+32*(p3p7*p3p6*p2p8)*(
5903 . fmc*hbcm-2*fmc2)+32*(p7p8*p3p6*p2p3)*(-fmc*hbcm+fmc2)+16*(p7p8
5904 . *p4p6)*(-3*fmb*hbcm3+fmb2*hbcm2-fmc*hbcm3-fmc2*hbcm2+2*hbcm4)+
5905 . 32*(p5p8*p4p6*p3p7)*(2*fmb*hbcm+fmc*hbcm-hbcm2)+16*(p4p8*p4p6*
5906 . p3p7)*(3*fmb*hbcm+fmc*hbcm-hbcm2)+16*(p5p7*p4p8*p3p6)*(fmb*
5907 . hbcm+fmc*hbcm-hbcm2)+16*(p4p8*p3p7*p3p6)*(2*fmb*hbcm+fmc*hbcm-
5908 . hbcm2)+16*(p6p7*p4p8*p3p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)+64*(p7p8
5909 . *p4p6*p3p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p6p7*p5p8*p3p4)*(
5910 . fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p8*p5p7*p3p4)*(-fmb*hbcm-fmc*
5911 . hbcm+hbcm2)+48*(p7p8*p4p6*p3p4)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*
5912 . (p4p6*p3p7*p2p8)*(-fmb*hbcm-3*fmc*hbcm+2*hbcm2)+16*(p6p7*p3p4*
5913 . p2p8)*(-fmb*hbcm-fmc*hbcm-hbcm2)+16*(p6p7*p4p8*p2p3)*(fmb*hbcm
5914 . +3*fmc*hbcm-hbcm2)+32*(p7p8*p4p6*p2p3)*(fmb*hbcm+2*fmc*hbcm-2*
5915 . hbcm2)+16*(p4p6*p3p7*p1p8)*(-3*fmb*hbcm-fmc*hbcm+hbcm2)+16*(
5916 . p5p7*p3p6*p1p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p3p7*p3p6*p1p8)
5917 . *(-2*fmb*hbcm-fmc*hbcm+hbcm2)+ans7
5918 ans5=w5*ans6
5919 ans14=16*(-2*ffmcfmb*p1p3*p2p3*p3p6*p7p8+2*ffmcfmb*p1p3*p2p3*
5920 . p3p7*p6p8+4*ffmcfmb*p1p3*p2p8*p3p6*p3p7+2*fmc*hbcm*p1p2*p3p6*
5921 . p7p8-2*fmc*hbcm*p2p3*p3p6*p7p8-2*fmc*hbcm*p2p5*p3p6*p7p8+2*fmc
5922 . *hbcm*p2p8*p3p6*p3p7+2*fmc*hbcm*p2p8*p3p6*p5p7+hbcm2*p1p8*p2p5
5923 . *p6p7+2*p1p3*p1p8*p2p3*p6p7-2*p1p3*p2p3*p4p6*p7p8+2*p1p3*p2p3*
5924 . p4p7*p6p8-2*p1p3*p2p3*p4p8*p6p7+2*p1p3*p2p3*p5p7*p6p8-2*p1p3*
5925 . p2p3*p5p8*p6p7+2*p1p3*p2p5*p3p6*p7p8-2*p1p3*p2p5*p3p7*p6p8+2*
5926 . p1p3*p2p8*p3p5*p6p7-2*p1p3*p2p8*p3p6*p5p7+4*p1p3*p2p8*p3p7*
5927 . p4p6)
5928 ans13=16*(p4p6*p3p7*p1p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p5p7*
5929 . p3p6*p1p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p3p7*p3p6*p1p8)*(-2*
5930 . fmb*hbcm-fmc*hbcm+hbcm2)+16*(p6p7*p3p5*p1p8)*(fmb*hbcm+fmc*
5931 . hbcm-hbcm2)+16*(p6p7*p2p3*p1p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*
5932 . (p6p7*p5p8*p1p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p6p8*p5p7*p1p3
5933 . )*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p7p8*p4p6*p1p3)*(fmb*hbcm+fmc*
5934 . hbcm-hbcm2)+16*(p6p7*p2p8*p1p3)*(fmb*hbcm+fmc*hbcm+hbcm2)+32*(
5935 . p5p8*p3p7*p3p6)*(fmb*fmc-fmc*hbcm+fmc2)+32*(p7p8*p3p6*p3p5)*(-
5936 . fmb*fmc+fmc*hbcm-fmc2)+16*(p6p8*p3p7*p1p3)*(fmb*fmc+fmb*hbcm+
5937 . fmb2)+16*(p7p8*p3p6*p1p3)*(-fmb*fmc+fmb*hbcm-fmb2)+16*(p7p8*
5938 . p3p6)*(-fmb*fmc*hbcm2+fmc*hbcm3-fmc2*hbcm2)+8*(p6p7*p1p8)*(-2*
5939 . fmb*fmc*hbcm2+2*fmb*hbcm3-fmb2*hbcm2+2*fmc*hbcm3-fmc2*hbcm2-
5940 . hbcm4)+(p5p8*p3p7*p3p6*p1p3)*(32*ffmcfmb-32)+(p6p8*p3p7*p3p5*
5941 . p1p3)*(-32*ffmcfmb+32)+ans14
5942 ans12=w12*ans13
5943 ans15=((p5p8*p3p7*p3p6)*(128*fb4*ffmcfmb-128*fb4+16)+(p6p8*p3p7
5944 . *p3p5)*(-128*fb4*ffmcfmb+128*fb4-16)+(p3p7*p3p6*p2p8)*(256*fb4
5945 . *ffmcfmb+32)+(p6p8*p3p7*p2p3)*(128*fb4*ffmcfmb+16)+(p7p8*p3p6*
5946 . p2p3)*(-128*fb4*ffmcfmb-16)+64*(p6p7*p5p8)*(-fb3*fmb*hbcm-fb4*
5947 . fmc*hbcm+fb4*hbcm2)+64*(p6p8*p5p7)*(fb3*fmb*hbcm+fb4*fmc*hbcm-
5948 . fb4*hbcm2)+64*(p7p8*p4p6)*(fb3*fmb*hbcm+fb4*fmc*hbcm-fb4*hbcm2
5949 . )+64*(p6p7*p2p8)*(fb3*fmb*hbcm-fb4*fmc*hbcm+fb4*hbcm2)+16*(
5950 . p6p8*p3p7)*(-4*fb3*fmb*fmc+4*fb3*fmb*hbcm+4*fb4*fmb2+fmb*hbcm)
5951 . +8*(p7p8*p3p6)*(-8*fb3*fmb*fmc+8*fb3*fmb*hbcm-8*fb4*fmb2-2*fmb
5952 . *hbcm+hbcm2)+128*(fb4*p1p8*p2p3*p6p7-fb4*p2p3*p4p6*p7p8+fb4*
5953 . p2p3*p4p7*p6p8-fb4*p2p3*p4p8*p6p7+fb4*p2p3*p5p7*p6p8-fb4*p2p3*
5954 . p5p8*p6p7+fb4*p2p5*p3p6*p7p8-fb4*p2p5*p3p7*p6p8+fb4*p2p8*p3p5*
5955 . p6p7-fb4*p2p8*p3p6*p5p7+2*fb4*p2p8*p3p7*p4p6))
5956 ans1=ans2+ans5+ans12+ans15
5957 ans=ccc*ans1
5958 b(12)=ans
5959 ans2=w5*(24*(p5p8*p3p4)*(fmb+fmc-hbcm)+16*(p3p4*p2p8)*(-fmb-2*
5960 . fmc+hbcm)+8*(p3p4*p1p8)*(-fmb-fmc+hbcm)+24*(p5p8*p1p3)*(-fmb-
5961 . fmc+hbcm)+16*(p2p8*p1p3)*(fmb+2*fmc-hbcm)+8*(p1p8*p1p3)*(fmb+
5962 . fmc-hbcm)+4*p4p8*(fmb*hbcm2-4*fmb2*hbcm-7*fmc*hbcm2+4*fmc2*
5963 . hbcm+3*hbcm3)+32*p5p8*(fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+8*
5964 . p2p8*(-3*fmb*fmc*hbcm+3*fmc*hbcm2-5*fmc2*hbcm)+4*p1p8*(-2*fmb*
5965 . fmc*hbcm-fmb*hbcm2+2*fmb2*hbcm+5*fmc*hbcm2-4*fmc2*hbcm-hbcm3)+
5966 . 8*(hbcm*p1p2*p1p8-hbcm*p1p2*p4p8+2*hbcm*p1p4*p2p8-hbcm*p1p8*
5967 . p2p3-3*hbcm*p1p8*p2p5+hbcm*p2p3*p4p8+2*hbcm*p2p4*p2p8-2*hbcm*
5968 . p2p4*p5p8+5*hbcm*p2p5*p4p8))+(96*p5p8*(-fb3*fmc+fb3*hbcm-fb4*
5969 . fmb)+64*p2p8*(fb3*fmc-fb3*hbcm+fb4*fmb)+32*p1p8*(fb3*fmc-fb3*
5970 . hbcm+fb4*fmb))
5971 ans1=w8*(24*(p5p8*p2p3)*(fmb+fmc-hbcm)+8*(p2p8*p2p3)*(-2*fmb-4*
5972 . fmc+3*hbcm)+8*(p2p3*p1p8)*(-fmb-fmc+hbcm)+4*p2p8*(-fmb*hbcm2+4
5973 . *fmb2*hbcm+7*fmc*hbcm2-4*fmc2*hbcm-3*hbcm3)+8*(hbcm*p1p2*p2p8-
5974 . 3*hbcm*p2p5*p2p8))+w12*(24*(p5p8*p1p3)*(-fmb-fmc+hbcm)+16*(
5975 . p2p8*p1p3)*(fmb+2*fmc-hbcm)+8*(p1p8*p1p3)*(fmb+fmc-hbcm)+4*
5976 . p1p8*(-fmb*hbcm2+2*fmb2*hbcm+3*fmc*hbcm2-2*fmc2*hbcm-hbcm3)+8*
5977 . (hbcm*p1p2*p1p8-hbcm*p1p8*p2p3-3*hbcm*p1p8*p2p5))+ans2
5978 ans=ccc*ans1
5979 b(13)=ans
5980 ans=ccc*(w8*(32*p2p5*(fmb*hbcm+fmc*hbcm-hbcm2)+8*p1p2*(-fmb*
5981 . hbcm-fmc*hbcm+hbcm2)+4*p2p3*(-6*fmb*fmc+7*fmb*hbcm-3*fmb2+7*
5982 . fmc*hbcm-3*fmc2-4*hbcm2)+8*(-p1p2*p2p3+4*p2p3*p2p5+p2p3s2))+
5983 . w12*(4*p1p3*(6*fmb*fmc-fmb*hbcm+3*fmb2-fmc*hbcm+3*fmc2-2*hbcm2
5984 . )+8*(p1p2*p1p3-p1p3*p2p3-4*p1p3*p2p5))+w5*(8*p2p4*(fmb*hbcm+
5985 . fmc*hbcm-hbcm2)+24*p1p4*(fmb*hbcm+fmc*hbcm-hbcm2)+4*p3p4*(-6*
5986 . fmb*fmc-fmb*hbcm-3*fmb2-fmc*hbcm-3*fmc2+4*hbcm2)+4*p1p3*(6*fmb
5987 . *fmc-fmb*hbcm+3*fmb2-fmc*hbcm+3*fmc2-2*hbcm2)+4*(fmb*fmc*hbcm2
5988 . -8*fmb*fmc2*hbcm-4*fmb2*fmc*hbcm-2*fmc*hbcm*p1p2+2*fmc*hbcm*
5989 . p2p3+10*fmc*hbcm*p2p5+3*fmc*hbcm3+fmc2*hbcm2-4*fmc3*hbcm+2*
5990 . p1p2*p1p3-2*p1p2*p3p4-2*p1p3*p2p3-8*p1p3*p2p5+2*p2p3*p3p4+8*
5991 . p2p5*p3p4))+16*(fb3*fmb*fmc-fb3*fmb*hbcm-fb3*fmc*hbcm+fb3*fmc2
5992 . +fb4*fmb*fmc+3*fb4*fmb2+4*fb4*fmc*hbcm-2*fb4*fmc2-2*fb4*hbcm2+
5993 . 2*fb4*p1p2-2*fb4*p2p3-8*fb4*p2p5))
5994 b(14)=ans
5995 ans3=w12*(16*(p3p5*p1p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p2p3*
5996 . p1p8)*(fmb*hbcm+fmc*hbcm-2*hbcm2)+16*(p5p8*p1p3)*(fmb*hbcm+fmc
5997 . *hbcm-hbcm2)+8*(p2p8*p1p3)*(-fmb*hbcm-fmc*hbcm+3*hbcm2)+4*p1p8
5998 . *(2*fmb*fmc*hbcm2-3*fmb*hbcm3+fmb2*hbcm2-3*fmc*hbcm3+fmc2*
5999 . hbcm2+2*hbcm4)+8*(hbcm2*p1p2*p1p8-2*hbcm2*p1p8*p2p5-2*p1p3*
6000 . p2p3*p5p8+2*p1p3*p2p8*p3p5))+(64*p5p8*(fb3*fmb*hbcm+fb4*fmc*
6001 . hbcm-fb4*hbcm2)+32*p2p8*(-fb3*fmb*hbcm-3*fb4*fmc*hbcm+3*fb4*
6002 . hbcm2)+32*p1p8*(-fb3*fmb*hbcm-fb4*fmc*hbcm+fb4*hbcm2)+64*(-fb4
6003 . *p2p3*p5p8+fb4*p2p8*p3p5))
6004 ans2=w5*(32*(p4p8*p3p5)*(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p5p8*p3p4
6005 . )*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p3p4*p2p8)*(3*fmb*hbcm+3*fmc*
6006 . hbcm-5*hbcm2)+8*(p4p8*p2p3)*(-3*fmb*hbcm-3*fmc*hbcm+4*hbcm2)+
6007 . 16*(p3p5*p1p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p3p4*p1p8)*(fmb*
6008 . hbcm+fmc*hbcm-hbcm2)+8*(p2p3*p1p8)*(fmb*hbcm+fmc*hbcm-2*hbcm2)
6009 . +16*(p5p8*p1p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p4p8*p1p3)*(-fmb*
6010 . hbcm-fmc*hbcm+hbcm2)+8*(p2p8*p1p3)*(-fmb*hbcm-fmc*hbcm+3*hbcm2
6011 . )+24*p5p8*(-fmb*fmc*hbcm2+fmc*hbcm3-fmc2*hbcm2)+4*p4p8*(-6*fmb
6012 . *fmc*hbcm2+7*fmb*hbcm3-3*fmb2*hbcm2+7*fmc*hbcm3-3*fmc2*hbcm2-4
6013 . *hbcm4)+16*p2p8*(fmb*fmc*hbcm2-2*fmc*hbcm3+fmc2*hbcm2)+4*p1p8*
6014 . (4*fmb*fmc*hbcm2-3*fmb*hbcm3+fmb2*hbcm2-5*fmc*hbcm3+3*fmc2*
6015 . hbcm2+2*hbcm4)+8*(2*fmc*hbcm*p2p3*p5p8-2*fmc*hbcm*p2p8*p3p5+
6016 . hbcm2*p1p2*p1p8-hbcm2*p1p2*p4p8+2*hbcm2*p1p4*p2p8-2*hbcm2*p1p8
6017 . *p2p5+2*hbcm2*p2p4*p2p8-2*hbcm2*p2p4*p5p8+4*hbcm2*p2p5*p4p8-2*
6018 . p1p3*p2p3*p5p8+2*p1p3*p2p8*p3p5+2*p2p3*p3p4*p5p8-2*p2p8*p3p4*
6019 . p3p5))+ans3
6020 ans1=w8*(32*(p3p5*p2p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p5p8*
6021 . p2p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p2p3*p1p8)*(-fmb*hbcm-fmc*
6022 . hbcm+hbcm2)+8*(p2p8*p1p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+4*p2p8*(6*
6023 . fmb*fmc*hbcm2-7*fmb*hbcm3+3*fmb2*hbcm2-7*fmc*hbcm3+3*fmc2*
6024 . hbcm2+4*hbcm4)+8*(hbcm2*p1p2*p2p8-hbcm2*p2p3*p2p8-2*hbcm2*p2p5
6025 . *p2p8-2*p2p3*p2p8*p3p5+2*p2p3s2*p5p8))+ans2
6026 ans=ccc*ans1
6027 b(15)=ans
6028 ans3=(96*p3p5*(fb3*fmc-fb3*hbcm+fb4*fmb)+32*p2p3*(-2*fb3*fmc+3*
6029 . fb3*hbcm-2*fb4*fmb)+32*p1p3*(-fb3*fmc+fb3*hbcm-fb4*fmb)+16*(
6030 . fb3*fmb*fmc*hbcm-2*fb3*fmb2*hbcm+4*fb3*fmc*hbcm2-fb3*fmc2*hbcm
6031 . -2*fb3*hbcm*p1p2+6*fb3*hbcm*p2p5-3*fb3*hbcm3-3*fb4*fmb*fmc*
6032 . hbcm+5*fb4*fmb*hbcm2-fb4*fmc*hbcm2+fb4*fmc2*hbcm))
6033 ans2=w5*(24*(p3p5*p3p4)*(-fmb-fmc+hbcm)+8*(p3p4*p2p3)*(2*fmb+4*
6034 . fmc-3*hbcm)+24*(p3p5*p1p3)*(fmb+fmc-hbcm)+8*(p3p4*p1p3)*(fmb+
6035 . fmc-hbcm)+8*(p2p3*p1p3)*(-2*fmb-4*fmc+3*hbcm)+4*p3p4*(-7*fmb*
6036 . hbcm2+4*fmb2*hbcm+fmc*hbcm2-4*fmc2*hbcm+3*hbcm3)+8*p2p4*(fmb*
6037 . hbcm2-fmc*hbcm2+hbcm3)+16*p1p4*(fmb*hbcm2+fmc*hbcm2-hbcm3)+32*
6038 . p3p5*(-fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+8*p2p3*(3*fmb*fmc*
6039 . hbcm-4*fmc*hbcm2+5*fmc2*hbcm)+4*p1p3*(2*fmb*fmc*hbcm+5*fmb*
6040 . hbcm2-2*fmb2*hbcm-fmc*hbcm2+4*fmc2*hbcm-3*hbcm3)+4*(-7*fmb*fmc
6041 . *hbcm3-2*fmb*p1p3s2+3*fmb2*fmc*hbcm2+2*fmc*hbcm2*p1p2-8*fmc*
6042 . hbcm2*p2p5+4*fmc*hbcm4-2*fmc*p1p3s2-fmc2*hbcm3-3*fmc3*hbcm2-2*
6043 . hbcm*p1p2*p1p3+2*hbcm*p1p2*p3p4+6*hbcm*p1p3*p2p5+2*hbcm*p1p3s2
6044 . -4*hbcm*p1p4*p2p3-4*hbcm*p2p3*p2p4+4*hbcm*p2p4*p3p5-10*hbcm*
6045 . p2p5*p3p4))+ans3
6046 ans1=w12*(24*(p3p5*p1p3)*(fmb+fmc-hbcm)+8*(p2p3*p1p3)*(-2*fmb-4
6047 . *fmc+3*hbcm)+4*p1p3*(5*fmb*hbcm2-2*fmb2*hbcm+fmc*hbcm2+2*fmc2*
6048 . hbcm-3*hbcm3)+8*(-fmb*p1p3s2-fmc*p1p3s2-hbcm*p1p2*p1p3+3*hbcm*
6049 . p1p3*p2p5+hbcm*p1p3s2))+w8*(24*(p3p5*p2p3)*(-fmb-fmc+hbcm)+8*(
6050 . p2p3*p1p3)*(fmb+fmc-hbcm)+24*p2p5*(fmb*hbcm2+fmc*hbcm2-hbcm3)+
6051 . 4*p2p3*(fmb*hbcm2-4*fmb2*hbcm-7*fmc*hbcm2+4*fmc2*hbcm+3*hbcm3)
6052 . +8*p1p2*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+8*(2*fmb*p2p3s2+4*fmc*
6053 . p2p3s2-hbcm*p1p2*p2p3+3*hbcm*p2p3*p2p5-3*hbcm*p2p3s2))+ans2
6054 ans=ccc*ans1
6055 b(16)=ans
6056 b(17)=ccc*(w5*(8*(p4p8*p3p6)*(-3*fmc-hbcm)+8*(p3p6*p1p8)*(3*fmc
6057 . +hbcm)+8*(-2*fmc*p1p3*p6p8+4*fmc*p2p8*p3p6+2*fmc*p3p4*p6p8-6*
6058 . fmc*p3p6*p5p8+2*fmc2*hbcm*p6p8-2*hbcm*p1p4*p6p8+5*hbcm*p1p8*
6059 . p4p6+6*hbcm*p2p8*p4p6-5*hbcm*p4p6*p4p8-8*hbcm*p4p6*p5p8))+w12*
6060 . (8*(p3p6*p1p8)*(3*fmc+hbcm)+8*(-2*fmc*p1p3*p6p8+4*fmc*p2p8*
6061 . p3p6-6*fmc*p3p6*p5p8+3*hbcm*p1p8*p4p6))+w8*(8*(p3p6*p2p8)*(fmc
6062 . +hbcm)+16*(p6p8*p2p3)*(fmc-hbcm)+8*p6p8*(-fmb2*hbcm-2*fmc*
6063 . hbcm2+fmc2*hbcm+hbcm3)+24*hbcm*p2p8*p4p6)+4*hbcm*p6p8)
6064 b(18)=ccc*(w8*(32*p4p6*(fmb*hbcm+fmc*hbcm-hbcm2)+8*p3p6*(2*fmb*
6065 . fmc+fmb*hbcm-fmc*hbcm+2*fmc2-hbcm2)+(p3p6*p2p3)*(16*ffmcfmb+8)
6066 . +32*p2p3*p4p6)+w5*(8*p4p6*(-fmb*hbcm+4*fmc*hbcm)+8*p3p6*(-fmb*
6067 . fmc+fmc*hbcm+2*fmc2)+(p3p6*p3p4)*(16*ffmcfmb+8)+(p3p6*p1p3)*(-
6068 . 16*ffmcfmb-8)+32*(-p1p3*p4p6+p3p4*p4p6))+w12*(8*p3p6*(-fmb*fmc
6069 . -fmc2)+(p3p6*p1p3)*(-16*ffmcfmb-8)-32*p1p3*p4p6)+(p3p6*(-64*
6070 . fb4*ffmcfmb-32*fb4-8)-128*fb4*p4p6))
6071 b(19)=ccc*(w8*(24*p5p8*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+4*p2p8*(5*
6072 . fmb*hbcm2+fmc*hbcm2)+8*p1p8*(fmb*hbcm2+fmc*hbcm2-hbcm3)+8*(-
6073 . hbcm*p1p3*p2p8+hbcm*p1p8*p2p3-3*hbcm*p2p3*p5p8+3*hbcm*p2p8*
6074 . p3p5))+w5*(4*p4p8*(-fmb*hbcm2+7*fmc*hbcm2-8*hbcm3)+4*p1p8*(fmb
6075 . *hbcm2-5*fmc*hbcm2+4*hbcm3)+8*(-3*fmc*hbcm2*p2p8+4*fmc*hbcm2*
6076 . p5p8+2*hbcm*p1p3*p2p8+hbcm*p1p3*p4p8-3*hbcm*p1p3*p5p8-2*hbcm*
6077 . p1p8*p2p3-hbcm*p1p8*p3p4+3*hbcm*p1p8*p3p5+4*hbcm*p2p3*p4p8-4*
6078 . hbcm*p2p8*p3p4+5*hbcm*p3p4*p5p8-5*hbcm*p3p5*p4p8))+w12*(4*p1p8
6079 . *(fmb*hbcm2-3*fmc*hbcm2+4*hbcm3)+8*(2*hbcm*p1p3*p2p8-3*hbcm*
6080 . p1p3*p5p8-2*hbcm*p1p8*p2p3+3*hbcm*p1p8*p3p5))+32*(fb3*hbcm*
6081 . p1p8+2*fb3*hbcm*p2p8-3*fb3*hbcm*p5p8))
6082 b(20)=ccc*(w8*(32*p5p8*(-fmb*hbcm-fmc*hbcm+hbcm2)+4*p2p8*(7*fmb
6083 . *hbcm+7*fmc*hbcm-6*hbcm2)+8*p1p8*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(
6084 . p1p8*p2p3+3*p2p3*p2p8-4*p2p3*p5p8))+w5*(4*p4p8*(-fmb*hbcm-fmc*
6085 . hbcm)+4*p1p8*(fmb*hbcm+3*fmc*hbcm)+8*(4*fmc*hbcm*p2p8-5*fmc*
6086 . hbcm*p5p8-p1p3*p1p8-3*p1p3*p2p8+4*p1p3*p5p8+p1p8*p3p4+3*p2p8*
6087 . p3p4-4*p3p4*p5p8))+w12*(4*p1p8*(fmb*hbcm+fmc*hbcm)+8*(-p1p3*
6088 . p1p8-3*p1p3*p2p8+4*p1p3*p5p8))+32*(-fb4*p1p8-3*fb4*p2p8+4*fb4*
6089 . p5p8))
6090 b(21)=ccc*(w5*(8*(p4p8*p3p7)*(3*fmc-4*hbcm)+8*(p3p7*p1p8)*(-fmc
6091 . +2*hbcm)+8*(-2*fmc*p1p3*p7p8+2*fmc*p3p4*p7p8+2*fmc2*hbcm*p7p8-
6092 . 2*hbcm*p1p4*p7p8+3*hbcm*p1p8*p5p7-2*hbcm*p2p8*p4p7+2*hbcm*p4p7
6093 . *p5p8-5*hbcm*p4p8*p5p7))+w12*(8*(p3p7*p1p8)*(-fmc+2*hbcm)+8*(-
6094 . 2*fmc*p1p3*p7p8+3*hbcm*p1p8*p5p7))+w8*(48*(p5p8*p3p7)*(-fmc+
6095 . hbcm)+8*(p3p7*p2p8)*(3*fmc-2*hbcm)+16*(p7p8*p2p3)*(fmc-hbcm)+
6096 . 16*(p3p7*p1p8)*(fmc-hbcm)+8*p7p8*(-fmb2*hbcm-2*fmc*hbcm2+fmc2*
6097 . hbcm+hbcm3)+24*hbcm*p2p8*p5p7)+4*hbcm*p7p8)
6098 b(22)=ccc*(4*w12*p1p3*(fmb-7*fmc)+w8*(4*p2p3*(-fmb+7*fmc-6*hbcm
6099 . )+4*(fmb*hbcm2-4*fmb2*hbcm-7*fmc*hbcm2+4*fmc2*hbcm+3*hbcm3))+
6100 . w5*(4*p3p4*(-fmb+7*fmc+2*hbcm)+4*p1p3*(fmb-7*fmc)+4*(-fmb*fmc*
6101 . hbcm+9*fmc2*hbcm-8*hbcm*p1p4-2*hbcm*p2p4))+16*(fb4*fmb-fb4*fmc
6102 . ))
6103 b(23)=ccc*(w8*(32*p5p7*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*p3p7*(3*fmb
6104 . *fmc-4*fmb*hbcm-6*fmc*hbcm+3*fmc2+3*hbcm2)+(p3p7*p2p3)*(16*
6105 . ffmcfmb-24)-32*p2p3*p5p7)+w5*(8*p3p7*(-4*fmc*hbcm+3*fmc2)+(
6106 . p3p7*p3p4)*(16*ffmcfmb-24)+(p3p7*p1p3)*(-16*ffmcfmb+24)+8*(-5*
6107 . fmc*hbcm*p5p7+4*p1p3*p5p7-4*p3p4*p5p7))+w12*((p3p7*p1p3)*(-16*
6108 . ffmcfmb+24)+32*p1p3*p5p7)+(p3p7*(-64*fb4*ffmcfmb+96*fb4-8)+128
6109 . *fb4*p5p7))
6110 ans=ccc*(w12*(4*p1p3*(-fmb*hbcm-fmc*hbcm-6*hbcm2)+8*(3*p1p3*
6111 . p2p3-4*p1p3*p3p5+p1p3s2))+w8*(32*p3p5*(fmb*hbcm+fmc*hbcm-hbcm2
6112 . )+4*p2p3*(-7*fmb*hbcm-7*fmc*hbcm+8*hbcm2)+8*p1p3*(-fmb*hbcm-
6113 . fmc*hbcm+hbcm2)+4*(-6*fmb*fmc*hbcm2+7*fmb*hbcm3-3*fmb2*hbcm2+7
6114 . *fmc*hbcm3-3*fmc2*hbcm2-4*hbcm4-2*p1p3*p2p3+8*p2p3*p3p5-6*
6115 . p2p3s2))+w5*(4*p3p4*(fmb*hbcm+fmc*hbcm+8*hbcm2)+4*p1p3*(-fmb*
6116 . hbcm-3*fmc*hbcm-6*hbcm2)+4*(fmb*fmc*hbcm2-8*fmc*hbcm*p2p3+10*
6117 . fmc*hbcm*p3p5+8*fmc*hbcm3+fmc2*hbcm2-6*hbcm2*p1p4-2*hbcm2*p2p4
6118 . +6*p1p3*p2p3-2*p1p3*p3p4-8*p1p3*p3p5+2*p1p3s2-6*p2p3*p3p4+8*
6119 . p3p4*p3p5))+16*(-fb3*fmb*hbcm-fb3*fmc*hbcm+4*fb4*fmc*hbcm-6*
6120 . fb4*hbcm2+2*fb4*p1p3+6*fb4*p2p3-8*fb4*p3p5))
6121 b(24)=ans
6122 b(25)=ccc*(w12*(8*(p3p7*p1p3)*(3*fmc-2*hbcm)-24*hbcm*p1p3*p5p7)
6123 . +w5*(8*(p3p7*p3p4)*(-5*fmc+4*hbcm)+8*(p3p7*p1p3)*(3*fmc-2*hbcm
6124 . )+16*p4p7*(fmc*hbcm2-hbcm3)+8*p3p7*(3*fmc*hbcm2-4*fmc2*hbcm)+8
6125 . *(4*fmc*hbcm2*p5p7-3*hbcm*p1p3*p5p7+2*hbcm*p1p4*p3p7+2*hbcm*
6126 . p2p3*p4p7+5*hbcm*p3p4*p5p7-2*hbcm*p3p5*p4p7))+w8*(48*(p3p7*
6127 . p3p5)*(fmc-hbcm)+8*(p3p7*p2p3)*(-5*fmc+4*hbcm)+16*(p3p7*p1p3)*
6128 . (-fmc+hbcm)+24*p5p7*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+8*p3p7*(2*fmb
6129 . *fmc*hbcm-3*fmb*hbcm2+fmb2*hbcm+6*fmc*hbcm2-3*fmc2*hbcm-3*
6130 . hbcm3)-24*hbcm*p2p3*p5p7)+(4*p3p7*(8*fb3*fmc-16*fb3*hbcm-hbcm)
6131 . -96*fb3*hbcm*p5p7))
6132 b(26)=ccc*(w8*(8*(p3p6*p2p3)*(-3*fmc+hbcm)+24*p4p6*(-fmb*hbcm2-
6133 . fmc*hbcm2+hbcm3)+8*p3p6*(-fmb*fmc*hbcm-fmb*hbcm2+fmb2*hbcm+2*
6134 . fmc*hbcm2-2*fmc2*hbcm)-24*hbcm*p2p3*p4p6)+w5*(8*(p3p6*p3p4)*(
6135 . fmc+hbcm)+8*(p3p6*p1p3)*(-fmc-hbcm)+8*p4p6*(fmb*hbcm2-fmc*
6136 . hbcm2+6*hbcm3)+8*p3p6*(fmb*fmc*hbcm+5*fmc*hbcm2-3*fmc2*hbcm)+8
6137 . *(-4*fmc*p2p3*p3p6+6*fmc*p3p5*p3p6-5*hbcm*p1p3*p4p6+2*hbcm*
6138 . p1p4*p3p6-6*hbcm*p2p3*p4p6+5*hbcm*p3p4*p4p6+8*hbcm*p3p5*p4p6))
6139 . +w12*(8*(p3p6*p1p3)*(-fmc-hbcm)+8*p3p6*(fmb*fmc*hbcm+4*fmc*
6140 . hbcm2-3*fmc2*hbcm)+8*(-4*fmc*p2p3*p3p6+6*fmc*p3p5*p3p6-3*hbcm*
6141 . p1p3*p4p6))+(4*p3p6*(-8*fb3*fmc-8*fb3*hbcm-hbcm)-96*fb3*hbcm*
6142 . p4p6))
6143 ans2=(64*p7p8*(fb4*fmc*hbcm-fb4*hbcm2)+64*(fb4*p2p3*p7p8-fb4*
6144 . p2p8*p3p7-fb4*p3p5*p7p8+fb4*p3p7*p5p8))
6145 ans1=8*w12*(-2*hbcm2*p1p3*p7p8+hbcm2*p1p8*p3p7+2*hbcm2*p1p8*
6146 . p5p7+2*p1p3*p2p3*p7p8-2*p1p3*p2p8*p3p7-2*p1p3*p3p5*p7p8+2*p1p3
6147 . *p3p7*p5p8)+w5*(8*(p4p8*p3p7)*(2*fmc*hbcm-3*hbcm2)+8*(-2*fmc*
6148 . hbcm*p2p3*p7p8+2*fmc*hbcm*p2p8*p3p7+2*fmc*hbcm*p3p5*p7p8-2*fmc
6149 . *hbcm*p3p7*p5p8+2*fmc*hbcm3*p7p8-2*hbcm2*p1p3*p7p8-2*hbcm2*
6150 . p1p4*p7p8+hbcm2*p1p8*p3p7+2*hbcm2*p1p8*p5p7-2*hbcm2*p2p8*p4p7+
6151 . 2*hbcm2*p3p4*p7p8+2*hbcm2*p4p7*p5p8-4*hbcm2*p4p8*p5p7+2*p1p3*
6152 . p2p3*p7p8-2*p1p3*p2p8*p3p7-2*p1p3*p3p5*p7p8+2*p1p3*p3p7*p5p8-2
6153 . *p2p3*p3p4*p7p8+2*p2p8*p3p4*p3p7+2*p3p4*p3p5*p7p8-2*p3p4*p3p7*
6154 . p5p8))+w8*(16*(p3p7*p1p8)*(fmc*hbcm-hbcm2)+16*(p5p8*p3p7)*(-
6155 . fmb*hbcm-3*fmc*hbcm+3*hbcm2)+16*(p7p8*p3p5)*(fmb*hbcm+fmc*hbcm
6156 . -hbcm2)+8*(p3p7*p2p8)*(2*fmb*hbcm+4*fmc*hbcm-3*hbcm2)+16*(p7p8
6157 . *p2p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*p7p8*(-2*fmb*fmc*hbcm2+2*
6158 . fmb*hbcm3-fmb2*hbcm2+2*fmc*hbcm3-fmc2*hbcm2-hbcm4-2*p2p3s2)+16
6159 . *(hbcm2*p2p8*p5p7+p2p3*p2p8*p3p7+p2p3*p3p5*p7p8-p2p3*p3p7*p5p8
6160 . ))+ans2
6161 ans=ccc*ans1
6162 b(27)=ans
6163 ans=ccc*(w12*(8*(p3p6*p1p8)*(-2*fmc*hbcm-hbcm2)+16*(-fmc*hbcm*
6164 . p2p8*p3p6+2*fmc*hbcm*p3p6*p5p8-hbcm2*p1p8*p4p6+p1p3*p2p8*p3p6-
6165 . p1p3*p3p4*p6p8-p1p3*p3p6*p5p8+p1p3s2*p6p8))+w5*(16*p6p8*(
6166 . p1p3s2+p3p4s2)+8*(p4p8*p3p6)*(2*fmc*hbcm+hbcm2)+8*(p3p6*p1p8)*
6167 . (-2*fmc*hbcm-hbcm2)+16*(-fmc*hbcm*p1p3*p6p8-2*fmc*hbcm*p2p8*
6168 . p3p6+fmc*hbcm*p3p4*p6p8+3*fmc*hbcm*p3p6*p5p8+hbcm2*p1p4*p6p8-2
6169 . *hbcm2*p1p8*p4p6-2*hbcm2*p2p8*p4p6+2*hbcm2*p4p6*p4p8+3*hbcm2*
6170 . p4p6*p5p8+p1p3*p2p8*p3p6-2*p1p3*p3p4*p6p8-p1p3*p3p6*p5p8-p2p8*
6171 . p3p4*p3p6+p3p4*p3p6*p5p8))+w8*(16*(p5p8*p3p6)*(fmb*hbcm+fmc*
6172 . hbcm-hbcm2)+16*(p6p8*p3p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p3p6*
6173 . p2p8)*(-2*fmb*hbcm-2*fmc*hbcm+hbcm2)+16*(p6p8*p1p3)*(-fmb*hbcm
6174 . -fmc*hbcm+hbcm2)+8*p6p8*(2*fmb*fmc*hbcm2+fmb2*hbcm2+fmc2*hbcm2
6175 . -hbcm4)+16*(hbcm2*p2p3*p6p8-hbcm2*p2p8*p4p6-p1p3*p2p3*p6p8-
6176 . p2p3*p2p8*p3p6+p2p3*p3p4*p6p8+p2p3*p3p6*p5p8))+64*(-fb4*fmc*
6177 . hbcm*p6p8+fb4*p1p3*p6p8+fb4*p2p8*p3p6-fb4*p3p4*p6p8-fb4*p3p6*
6178 . p5p8))
6179 b(28)=ans
6180 ans2=((p3p7*p3p6)*(-128*fb4*ffmcfmb+64*fb4-16)+64*(fb4*fmc*hbcm
6181 . *p6p7-fb4*p1p3*p6p7+fb4*p3p4*p6p7+fb4*p3p6*p5p7-fb4*p3p7*p4p6)
6182 . )
6183 ans1=w8*(16*(p4p6*p3p7)*(fmb*hbcm+3*fmc*hbcm-3*hbcm2)+16*(p5p7*
6184 . p3p6)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p6p7*p3p4)*(-fmb*hbcm-fmc
6185 . *hbcm+hbcm2)+16*(p6p7*p1p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p3p7
6186 . *p3p6)*(2*fmb*fmc-fmb*hbcm-2*fmc*hbcm+2*fmc2)+8*p6p7*(-2*fmb*
6187 . fmc*hbcm2-fmb2*hbcm2-fmc2*hbcm2+hbcm4)+(p3p7*p3p6*p2p3)*(32*
6188 . ffmcfmb-16)+16*(-hbcm2*p2p3*p6p7+p1p3*p2p3*p6p7-p2p3*p3p4*p6p7
6189 . -p2p3*p3p6*p5p7+p2p3*p3p7*p4p6))+w5*(16*p6p7*(-p1p3s2-p3p4s2)+
6190 . 32*(p4p6*p3p7)*(fmc*hbcm-hbcm2)+32*(p3p7*p3p6)*(-fmc*hbcm+fmc2
6191 . )+(p3p7*p3p6*p3p4)*(32*ffmcfmb-16)+(p3p7*p3p6*p1p3)*(-32*
6192 . ffmcfmb+16)+16*(fmc*hbcm*p1p3*p6p7-fmc*hbcm*p3p4*p6p7-fmc*hbcm
6193 . *p3p6*p4p7-3*fmc*hbcm*p3p6*p5p7-hbcm2*p1p4*p6p7-hbcm2*p4p6*
6194 . p4p7-3*hbcm2*p4p6*p5p7+2*p1p3*p3p4*p6p7+p1p3*p3p6*p5p7-p1p3*
6195 . p3p7*p4p6-p3p4*p3p6*p5p7+p3p4*p3p7*p4p6))+w12*((p3p7*p3p6*p1p3
6196 . )*(-32*ffmcfmb+16)+16*(-fmc*hbcm*p3p6*p3p7-2*fmc*hbcm*p3p6*
6197 . p5p7+p1p3*p3p4*p6p7+p1p3*p3p6*p5p7-p1p3*p3p7*p4p6-p1p3s2*p6p7)
6198 . )+ans2
6199 ans=ccc*ans1
6200 b(29)=ans
6201 ans3=(16*(p6p8*p3p7)*(-4*fb3*fmc+4*fb3*hbcm+hbcm)+16*(p7p8*p3p6
6202 . )*(-4*fb3*fmc-hbcm)+64*(fb3*hbcm*p2p8*p6p7-fb3*hbcm*p4p6*p7p8+
6203 . fb3*hbcm*p5p7*p6p8-fb3*hbcm*p5p8*p6p7))
6204 ans2=w12*(16*(p3p7*p3p6*p1p8)*(2*fmc-hbcm)+16*(p6p8*p3p7*p1p3)*
6205 . (-fmc+hbcm)+32*(p7p8*p3p6)*(fmc*hbcm2-fmc2*hbcm)+16*(p6p7*p1p8
6206 . )*(-fmc*hbcm2+hbcm3)+16*(-fmc*p1p3*p3p6*p7p8-2*fmc*p2p3*p3p6*
6207 . p7p8+2*fmc*p2p8*p3p6*p3p7+2*fmc*p3p5*p3p6*p7p8-2*fmc*p3p6*p3p7
6208 . *p5p8+hbcm*p1p3*p2p8*p6p7-hbcm*p1p3*p4p6*p7p8+hbcm*p1p3*p5p7*
6209 . p6p8-hbcm*p1p3*p5p8*p6p7-hbcm*p1p8*p2p3*p6p7+hbcm*p1p8*p3p5*
6210 . p6p7-hbcm*p1p8*p3p6*p5p7+hbcm*p1p8*p3p7*p4p6))+w8*(32*(p5p8*
6211 . p3p7*p3p6)*(fmc-hbcm)+32*(p6p8*p3p7*p3p5)*(-fmc+hbcm)+16*(p6p8
6212 . *p3p7*p2p3)*(fmc-hbcm)+16*(p6p7*p5p8)*(-fmb*hbcm2-fmc*hbcm2+
6213 . hbcm3)+16*(p6p8*p5p7)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+16*(p7p8*
6214 . p4p6)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+16*(p6p8*p3p7)*(-fmb*fmc*
6215 . hbcm+fmb*hbcm2-2*fmc*hbcm2+fmc2*hbcm+hbcm3)+16*(p7p8*p3p6)*(-
6216 . fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+16*(fmb*hbcm2*p2p8*p6p7-fmc*
6217 . p2p3*p3p6*p7p8-hbcm*p2p3*p4p6*p7p8+hbcm*p2p3*p5p7*p6p8-hbcm*
6218 . p2p3*p5p8*p6p7+hbcm*p2p8*p3p5*p6p7+hbcm*p2p8*p3p6*p3p7-hbcm*
6219 . p2p8*p3p6*p5p7+hbcm*p2p8*p3p7*p4p6))+ans3
6220 ans1=w5*(16*(p4p8*p3p7*p3p6)*(-2*fmc+hbcm)+16*(p6p8*p3p7*p3p4)*
6221 . (fmc-hbcm)+16*(p3p7*p3p6*p1p8)*(2*fmc-hbcm)+16*(p6p8*p3p7*p1p3
6222 . )*(-fmc+hbcm)+16*(p6p7*p4p8)*(fmc*hbcm2-hbcm3)+16*(p7p8*p4p6)*
6223 . (-fmc*hbcm2+2*hbcm3)+16*(p6p8*p3p7)*(-fmc*hbcm2+fmc2*hbcm)+16*
6224 . (p7p8*p3p6)*(2*fmc*hbcm2-fmc2*hbcm)+16*(p6p7*p1p8)*(-fmc*hbcm2
6225 . +hbcm3)+16*(-fmc*hbcm2*p2p8*p6p7-fmc*hbcm2*p5p7*p6p8+fmc*hbcm2
6226 . *p5p8*p6p7-fmc*p1p3*p3p6*p7p8-2*fmc*p2p3*p3p6*p7p8+2*fmc*p2p8*
6227 . p3p6*p3p7+fmc*p3p4*p3p6*p7p8+2*fmc*p3p5*p3p6*p7p8-2*fmc*p3p6*
6228 . p3p7*p5p8+hbcm*p1p3*p2p8*p6p7-hbcm*p1p3*p4p6*p7p8+hbcm*p1p3*
6229 . p5p7*p6p8-hbcm*p1p3*p5p8*p6p7-hbcm*p1p8*p2p3*p6p7+hbcm*p1p8*
6230 . p3p5*p6p7-hbcm*p1p8*p3p6*p5p7+hbcm*p1p8*p3p7*p4p6-2*hbcm*p2p3*
6231 . p4p6*p7p8+hbcm*p2p3*p4p8*p6p7-hbcm*p2p8*p3p4*p6p7+2*hbcm*p2p8*
6232 . p3p7*p4p6+hbcm*p3p4*p4p6*p7p8-hbcm*p3p4*p5p7*p6p8+hbcm*p3p4*
6233 . p5p8*p6p7+2*hbcm*p3p5*p4p6*p7p8-hbcm*p3p5*p4p8*p6p7+hbcm*p3p6*
6234 . p4p8*p5p7-hbcm*p3p7*p4p6*p4p8-2*hbcm*p3p7*p4p6*p5p8))+ans2
6235 ans=ccc*ans1
6236 b(30)=ans
6237 ans=ccc*(w8*(16*(p6p7*p4p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p6p8
6238 . *p4p7)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p7p8*p4p6)*(fmb*hbcm+fmc*
6239 . hbcm-hbcm2)+16*(p6p7*p1p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p8*
6240 . p3p7)*(fmb*fmc-fmc*hbcm+fmc2)+16*(p7p8*p3p6)*(fmb*fmc-fmc*hbcm
6241 . +fmc2)+16*(ffmcfmb*p2p3*p3p6*p7p8+ffmcfmb*p2p3*p3p7*p6p8+p1p8*
6242 . p2p3*p6p7+p2p3*p4p6*p7p8+p2p3*p4p7*p6p8-p2p3*p4p8*p6p7))+16*w5
6243 . *(-ffmcfmb*p1p3*p3p6*p7p8-ffmcfmb*p1p3*p3p7*p6p8+ffmcfmb*p3p4*
6244 . p3p6*p7p8+ffmcfmb*p3p4*p3p7*p6p8+fmc*hbcm*p1p8*p6p7+fmc*hbcm*
6245 . p4p6*p7p8+fmc*hbcm*p4p7*p6p8-fmc*hbcm*p4p8*p6p7+fmc2*p3p6*p7p8
6246 . +fmc2*p3p7*p6p8-p1p3*p1p8*p6p7-p1p3*p4p6*p7p8-p1p3*p4p7*p6p8+
6247 . p1p3*p4p8*p6p7+p1p8*p3p4*p6p7+p3p4*p4p6*p7p8+p3p4*p4p7*p6p8-
6248 . p3p4*p4p8*p6p7)+16*w12*(-ffmcfmb*p1p3*p3p6*p7p8-ffmcfmb*p1p3*
6249 . p3p7*p6p8-p1p3*p1p8*p6p7-p1p3*p4p6*p7p8-p1p3*p4p7*p6p8+p1p3*
6250 . p4p8*p6p7)+((p6p8*p3p7)*(-64*fb4*ffmcfmb-8)+(p7p8*p3p6)*(-64*
6251 . fb4*ffmcfmb-8)+64*(-fb4*p1p8*p6p7-fb4*p4p6*p7p8-fb4*p4p7*p6p8+
6252 . fb4*p4p8*p6p7)))
6253 b(31)=ans
6254 b(32)=ccc*(w8*(48*(p4p6*p3p7)*(fmc-hbcm)+16*(p6p7*p2p3)*(fmc-
6255 . hbcm)+8*p6p7*(-fmb2*hbcm-2*fmc*hbcm2+fmc2*hbcm+hbcm3)+16*(p3p7
6256 . *p3p6)*(ffmcfmb*fmc-hbcm))+w5*(16*(p4p6*p3p7)*(2*fmc-3*hbcm)+
6257 . 16*(p3p7*p3p6)*(ffmcfmb*fmc-2*fmc)+16*(-fmc*p1p3*p6p7+fmc*p3p4
6258 . *p6p7-fmc*p3p6*p4p7-3*fmc*p3p6*p5p7+fmc2*hbcm*p6p7-hbcm*p1p4*
6259 . p6p7-hbcm*p4p6*p4p7-4*hbcm*p4p6*p5p7))+w12*(16*(p3p7*p3p6)*(
6260 . ffmcfmb*fmc-2*fmc)+16*(-fmc*p1p3*p6p7-3*fmc*p3p6*p5p7)))
6261 do 200 n=1,32
6262 c(n,1)=c(n,1)-0.1818181818181818d0*b(n)
6263 c(n,2)=c(n,2)-0.05883183899358491d0*b(n)
6264 c(n,3)=c(n,3)-0.2077659977796572d0*b(n)
6265 200 continue
6266 return
6267 end
6268
6269 subroutine amp20_3p1(cc)
6270 implicit double precision(a-h,o-z)
6271 implicit integer (i-n)
6272 dimension b(32)
6273 #include "inclcon.h"
6274 #include "inclppp.h"
6275 #include "inclamp.h"
6276 do 100 n=1,32
6277 b(n)=0.0d0
6278 100 continue
6279 ccc=cc/((2*ffmcfmb*p3p4+2*fmc2)*(2*ffmcfmb*p1p3-fmb2-2*fmc*hbcm
6280 . +fmc2+hbcm2-2*p1p3)*(2*ffmcfmb*p3p4+2*ffmcfmb*p3p5+2*fmc2+2*
6281 . p4p5))
6282 ans=ccc*(w1*(16*p3p6*(-fmc2*hbcm+fmc3)+16*(-fmc*hbcm2*p4p6+fmc*
6283 . p1p3*p4p6-fmc*p1p4*p3p6-fmc*p3p4*p4p6-fmc*p3p4*p5p6+fmc*p3p6*
6284 . p4p5-fmc2*hbcm*p5p6+hbcm*p4p5*p4p6))+w18*(16*(p4p5*p3p6)*(-fmc
6285 . -hbcm)+16*(p4p6*p3p5)*(-fmc-3*hbcm)+16*(p5p6*p3p4)*(-fmc+3*
6286 . hbcm)+16*p4p6*(-3*fmb2*hbcm-fmc*hbcm2)+16*p3p6*(-2*fmb2*fmc-
6287 . fmc2*hbcm+fmc3)+16*(2*fmc*hbcm2*p5p6+fmc*p1p3*p4p6-2*fmc*p1p3*
6288 . p5p6-fmc*p1p4*p3p6+2*fmc*p1p5*p3p6-fmc*p3p4*p4p6-3*fmc*p3p5*
6289 . p3p6-fmc*p3p5*p5p6-3*hbcm*p1p4*p5p6+3*hbcm*p1p5*p4p6-3*hbcm*
6290 . p4p5*p4p6))+w13*(16*(p3p6*p3p5)*(-fmc+hbcm)+32*(p3p6*p3p4)*(
6291 . fmc-hbcm)+16*(p3p6*p1p5)*(fmc-hbcm)+32*(p3p6*p1p4)*(-fmc+hbcm)
6292 . +16*(p5p6*p1p3)*(-fmc+hbcm)+32*(p4p6*p1p3)*(fmc-hbcm)+8*p5p6*(
6293 . fmb2*hbcm+2*fmc*hbcm2-fmc2*hbcm-hbcm3)+16*p4p6*(-fmb2*hbcm-2*
6294 . fmc*hbcm2+fmc2*hbcm+hbcm3)+8*p3p6*(-3*fmb2*fmc+2*fmb2*hbcm-fmc
6295 . *hbcm2-2*fmc2*hbcm+3*fmc3))+(32*p5p6*(fb3*fmc+fb4*fmc)+16*p4p6
6296 . *(2*fb3*fmc+2*fb4*fmc-3*hbcm)+8*p3p6*(4*fb3*fmc+4*fb4*fmc-fmc-
6297 . 3*hbcm)))
6298 b(1)=ans
6299 ans4=(8*p6p7*(-8*fb4*fmc*hbcm+2*fmb*hbcm+2*fmc*hbcm-hbcm2)+(
6300 . p4p6*p3p7)*(128*fb4*ffmcfmb+64*fb4+16)+(p5p7*p3p6)*(64*fb4*
6301 . ffmcfmb+8)+(p4p7*p3p6)*(64*fb4*ffmcfmb+64*fb4+8)+(p3p7*p3p6)*(
6302 . 128*fb4*ffmcfmb+16)+(p6p7*p1p3)*(64*fb4*ffmcfmb+8)+64*(fb4*
6303 . p1p4*p6p7-fb4*p3p4*p6p7+3*fb4*p4p6*p4p7+2*fb4*p4p6*p5p7-fb4*
6304 . p5p6*p5p7))
6305 ans3=w13*(16*(p5p7*p5p6)*(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p5p7*
6306 . p4p6)*(-fmb*hbcm-fmc*hbcm+hbcm2)+48*(p4p7*p4p6)*(-fmb*hbcm-fmc
6307 . *hbcm+hbcm2)+16*(p6p7*p3p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p7
6308 . *p1p4)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p4p6*p3p7)*(-2*fmb*fmc-
6309 . fmb*hbcm+fmc*hbcm-2*fmc2+hbcm2)+16*(p5p7*p3p6)*(-2*fmb*fmc+fmb
6310 . *hbcm+2*fmc*hbcm-2*fmc2)+16*(p4p7*p3p6)*(-2*fmb*fmc+fmc*hbcm-2
6311 . *fmc2+hbcm2)+16*(p6p7*p1p3)*(-fmb*fmc+2*fmc*hbcm-fmc2)+16*p6p7
6312 . *(-ffmcfmb*p1p3s2+fmb*fmc*hbcm2-fmc*hbcm3+fmc2*hbcm2)+(p4p6*
6313 . p3p7*p1p3)*(-32*ffmcfmb-16)+(p4p7*p3p6*p1p3)*(-16*ffmcfmb-16)+
6314 . 16*(p3p7*p3p6)*(-ffmcfmb*fmb*fmc-ffmcfmb*fmc2-fmb*fmc+2*fmc*
6315 . hbcm-fmc2)+16*(-2*ffmcfmb*p1p3*p3p6*p3p7-ffmcfmb*p1p3*p3p6*
6316 . p5p7-p1p3*p1p4*p6p7+p1p3*p3p4*p6p7-3*p1p3*p4p6*p4p7-2*p1p3*
6317 . p4p6*p5p7+p1p3*p5p6*p5p7))+ans4
6318 ans2=w18*(16*(p5p6*p4p7)*(-fmb*hbcm-fmc*hbcm)+48*(p5p7*p4p6)*(-
6319 . fmb*hbcm-fmc*hbcm)+64*(p4p7*p4p6)*(-fmb*hbcm-fmc*hbcm)+16*(
6320 . p6p7*p3p4)*(fmb*hbcm+2*fmc*hbcm)+16*(p6p7*p1p4)*(-fmb*hbcm-fmc
6321 . *hbcm)+16*(p5p6*p3p7)*(-fmb*fmc-fmc2)+16*(p4p6*p3p7)*(-3*fmb*
6322 . fmc-fmb*hbcm-fmc*hbcm-3*fmc2)+32*(p5p7*p3p6)*(-fmb*fmc-fmc2)+
6323 . 16*(p4p7*p3p6)*(-2*fmb*fmc-fmb*hbcm-fmc*hbcm-2*fmc2)+16*(p6p7*
6324 . p1p3)*(-fmb*fmc-fmc2)+16*p6p7*(fmb*fmc*hbcm2+fmc2*hbcm2+p3p4s2
6325 . )+(p4p6*p3p7*p3p5)*(-32*ffmcfmb-16)+(p4p7*p3p6*p3p5)*(-16*
6326 . ffmcfmb-16)+(p4p6*p3p7*p3p4)*(-32*ffmcfmb-16)+(p4p7*p3p6*p3p4)
6327 . *(-16*ffmcfmb-16)+16*(p3p7*p3p6)*(-ffmcfmb*fmb*fmc-ffmcfmb*
6328 . fmc2-2*fmb*fmc-2*fmc2)+16*(-ffmcfmb*p1p3*p3p4*p6p7-ffmcfmb*
6329 . p1p3*p3p5*p6p7-2*ffmcfmb*p3p4*p3p6*p3p7-ffmcfmb*p3p4*p3p6*p5p7
6330 . -2*ffmcfmb*p3p5*p3p6*p3p7-ffmcfmb*p3p5*p3p6*p5p7+fmc*hbcm*p3p5
6331 . *p6p7-p1p4*p3p4*p6p7-p1p4*p3p5*p6p7+p3p4*p3p5*p6p7-3*p3p4*p4p6
6332 . *p4p7-2*p3p4*p4p6*p5p7+p3p4*p5p6*p5p7-3*p3p5*p4p6*p4p7-2*p3p5*
6333 . p4p6*p5p7+p3p5*p5p6*p5p7))+ans3
6334 ans1=w1*(16*p6p7*(fmc2*hbcm2+p3p4s2)+16*(p4p6*p3p7)*(-fmc*hbcm-
6335 . 3*fmc2)+16*(p4p7*p3p6)*(-fmc*hbcm-2*fmc2)+(p4p6*p3p7*p3p4)*(-
6336 . 32*ffmcfmb-16)+(p4p7*p3p6*p3p4)*(-16*ffmcfmb-16)+16*(p3p7*p3p6
6337 . )*(-ffmcfmb*fmc2-2*fmc2)+16*(-ffmcfmb*p1p3*p3p4*p6p7-2*ffmcfmb
6338 . *p3p4*p3p6*p3p7-ffmcfmb*p3p4*p3p6*p5p7-fmc*hbcm*p1p4*p6p7+2*
6339 . fmc*hbcm*p3p4*p6p7-4*fmc*hbcm*p4p6*p4p7-3*fmc*hbcm*p4p6*p5p7+
6340 . fmc*hbcm*p5p6*p5p7-fmc2*p1p3*p6p7-2*fmc2*p3p6*p5p7-p1p4*p3p4*
6341 . p6p7-3*p3p4*p4p6*p4p7-2*p3p4*p4p6*p5p7+p3p4*p5p6*p5p7))+ans2
6342 ans=ccc*ans1
6343 b(2)=ans
6344 ans6=2*hbcm*p4p6*p4p7*p4p8-4*hbcm*p4p6*p4p7*p5p8+7*hbcm*p4p6*
6345 . p4p8*p5p7+hbcm*p4p6*p5p7*p5p8-6*hbcm*p4p7*p5p6*p5p8+5*hbcm*
6346 . p4p8*p5p6*p5p7-hbcm*p5p6*p5p7*p5p8
6347 ans5=2*fmb2*fmc*p3p6*p7p8+2*fmb2*hbcm*p4p6*p7p8-2*fmc*hbcm2*
6348 . p5p6*p7p8-2*fmc*p1p3*p4p7*p6p8+fmc*p1p3*p4p8*p6p7+2*fmc*p1p3*
6349 . p5p6*p7p8+2*fmc*p1p3*p5p7*p6p8-fmc*p1p3*p5p8*p6p7+2*fmc*p1p4*
6350 . p3p7*p6p8-2*fmc*p1p5*p3p6*p7p8-2*fmc*p1p5*p3p7*p6p8-2*fmc*p1p8
6351 . *p3p4*p6p7-2*fmc*p1p8*p3p5*p6p7+2*fmc*p1p8*p3p6*p4p7-2*fmc*
6352 . p1p8*p3p6*p5p7-2*fmc*p1p8*p3p7*p4p6+2*fmc*p1p8*p3p7*p5p6-2*fmc
6353 . *p2p8*p3p4*p6p7-2*fmc*p2p8*p3p5*p6p7+2*fmc*p2p8*p3p6*p4p7-4*
6354 . fmc*p2p8*p3p6*p5p7-2*fmc*p2p8*p3p7*p4p6+4*fmc*p2p8*p3p7*p5p6+2
6355 . *fmc*p3p5*p3p6*p7p8+2*fmc*p3p5*p5p8*p6p7+2*fmc*p3p6*p4p5*p7p8-
6356 . 4*fmc*p3p7*p5p6*p5p8-2*fmc2*hbcm*p1p8*p6p7-2*fmc2*hbcm*p2p8*
6357 . p6p7+hbcm*p1p4*p4p8*p6p7+2*hbcm*p1p4*p5p6*p7p8+4*hbcm*p1p4*
6358 . p5p7*p6p8-hbcm*p1p4*p5p8*p6p7-2*hbcm*p1p5*p4p6*p7p8-4*hbcm*
6359 . p1p5*p4p7*p6p8+2*hbcm*p1p5*p4p8*p6p7-2*hbcm*p1p8*p4p5*p6p7-4*
6360 . hbcm*p1p8*p4p6*p5p7+4*hbcm*p1p8*p4p7*p5p6-2*hbcm*p2p8*p4p5*
6361 . p6p7-6*hbcm*p2p8*p4p6*p5p7+6*hbcm*p2p8*p4p7*p5p6-2*hbcm*p3p4*
6362 . p5p6*p7p8+2*hbcm*p3p5*p4p6*p7p8+hbcm*p3p6*p4p7*p4p8-2*hbcm*
6363 . p3p7*p4p5*p6p8+2*hbcm*p3p7*p4p8*p5p6+2*hbcm*p4p5*p4p6*p7p8-4*
6364 . hbcm*p4p5*p5p7*p6p8+2*hbcm*p4p5*p5p8*p6p7+ans6
6365 ans4=16*ans5
6366 ans3=16*(p5p8*p4p6*p3p7)*(-fmc-hbcm)+16*(p4p8*p4p6*p3p7)*(3*fmc
6367 . +hbcm)+32*(p5p7*p4p8*p3p6)*(2*fmc+hbcm)+16*(p5p8*p4p7*p3p6)*(-
6368 . 4*fmc-hbcm)+32*(p6p7*p4p8*p3p5)*(fmc-hbcm)+16*(p6p7*p5p8*p3p4)
6369 . *(2*fmc+hbcm)+16*(p6p7*p4p8*p3p4)*(2*fmc-hbcm)+16*(p6p7*p5p8)*
6370 . (fmc*hbcm2+2*fmc2*hbcm)+16*(p6p8*p5p7)*(fmb2*hbcm-2*fmc*hbcm2-
6371 . 5*fmc2*hbcm)+16*(p6p7*p4p8)*(-2*fmb2*hbcm-fmc*hbcm2+2*fmc2*
6372 . hbcm)+16*(p6p8*p4p7)*(5*fmb2*hbcm+2*fmc*hbcm2-5*fmc2*hbcm)+16*
6373 . (p6p8*p3p7)*(3*fmb2*fmc-2*fmc2*hbcm-3*fmc3)+16*(p6p8*p5p7*p3p5
6374 . )*(fmb-3*fmc)+16*(p6p8*p4p7*p3p5)*(fmb-3*fmc+4*hbcm)+16*(p6p8*
6375 . p5p7*p3p4)*(fmb-3*fmc-4*hbcm)+16*(p6p8*p4p7*p3p4)*(fmb-3*fmc)+
6376 . 16*(p5p8*p3p7*p3p6)*(-ffmcfmb*fmc-2*fmc)+16*(p4p8*p3p7*p3p6)*(
6377 . ffmcfmb*fmc+2*fmc)+16*(p6p8*p3p7*p3p5)*(ffmcfmb*fmb-ffmcfmb*
6378 . fmc)+16*(p6p8*p3p7*p3p4)*(ffmcfmb*fmb-ffmcfmb*fmc-4*fmc)+ans4
6379 ans2=w18*ans3
6380 ans10=16*(fmc*hbcm2*p1p8*p6p7-fmc*p1p3*p1p8*p6p7-hbcm*p1p4*p1p8
6381 . *p6p7+hbcm*p1p8*p3p4*p6p7-2*hbcm*p1p8*p4p6*p4p7-hbcm*p1p8*p4p6
6382 . *p5p7+hbcm*p1p8*p5p6*p5p7)
6383 ans9=64*(p5p7*p4p8*p3p6)*(fmc-hbcm)+64*(p5p8*p4p7*p3p6)*(-fmc+
6384 . hbcm)+32*(p4p8*p3p7*p3p6)*(fmc-hbcm)+32*(p7p8*p3p6*p3p4)*(-fmc
6385 . +hbcm)+32*(p5p7*p3p6*p2p8)*(-fmc+hbcm)+64*(p4p7*p3p6*p2p8)*(
6386 . fmc-hbcm)+16*(p4p6*p3p7*p1p8)*(-fmc-hbcm)+32*(p5p7*p3p6*p1p8)*
6387 . (-fmc+hbcm)+16*(p4p7*p3p6*p1p8)*(2*fmc-3*hbcm)+32*(p7p8*p3p6*
6388 . p1p4)*(fmc-hbcm)+32*(p6p7*p4p8*p1p3)*(fmc-hbcm)+32*(p7p8*p4p6*
6389 . p1p3)*(-fmc+hbcm)+16*(p6p7*p4p8)*(-fmb2*hbcm-2*fmc*hbcm2+fmc2*
6390 . hbcm+hbcm3)+16*(p7p8*p4p6)*(fmb2*hbcm+2*fmc*hbcm2-fmc2*hbcm-
6391 . hbcm3)+16*(p7p8*p3p6)*(fmb2*fmc+fmc*hbcm2-fmc3)+16*(p6p8*p5p7*
6392 . p1p3)*(fmb+fmc-2*hbcm)+16*(p6p8*p4p7*p1p3)*(fmb-3*fmc+2*hbcm)+
6393 . 16*(p6p8*p5p7)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+16*(p6p8*p4p7)*(-
6394 . fmb*hbcm2+2*fmb2*hbcm+3*fmc*hbcm2-2*fmc2*hbcm-hbcm3)+16*(p6p8*
6395 . p3p7)*(-fmb*fmc*hbcm+fmb2*fmc+fmc2*hbcm-fmc3)+32*(p5p8*p3p7*
6396 . p3p6)*(-ffmcfmb*fmc+fmc)+32*(p3p7*p3p6*p2p8)*(ffmcfmb*fmc-fmc)
6397 . +16*(p3p7*p3p6*p1p8)*(ffmcfmb*fmc-2*fmc)+16*(p6p8*p3p7*p1p3)*(
6398 . ffmcfmb*fmb-ffmcfmb*fmc)+ans10
6399 ans8=w13*ans9
6400 ans11=(8*(p7p8*p3p6)*(fmc+3*hbcm)+16*(p6p7*p5p8)*(-4*fb3*fmc-4*
6401 . fb4*fmc+3*hbcm)+64*(p6p8*p5p7)*(fb3*fmc-fb4*fmb+2*fb4*fmc-hbcm
6402 . )+64*(p6p7*p4p8)*(-fb3*fmc-fb4*fmc)+64*(p6p8*p4p7)*(fb3*fmc-
6403 . fb4*fmb+2*fb4*fmc)+8*(p6p8*p3p7)*(8*fb3*fmc-8*fb4*ffmcfmb*fmb+
6404 . 8*fb4*ffmcfmb*fmc+8*fb4*fmc-fmb-3*hbcm)+16*(p6p7*p2p8)*(4*fb3*
6405 . fmc+4*fb4*fmc-3*hbcm)+8*(p6p7*p1p8)*(8*fb3*fmc+8*fb4*fmc-3*
6406 . hbcm)+40*hbcm*p4p6*p7p8)
6407 ans7=w1*(16*(p4p8*p4p6*p3p7)*(3*fmc+hbcm)+16*(p6p7*p4p8*p3p4)*(
6408 . 2*fmc-hbcm)+16*(p6p7*p4p8)*(-fmc*hbcm2+2*fmc2*hbcm)+16*(p6p8*
6409 . p5p7*p3p4)*(fmb-3*fmc)+16*(p6p8*p4p7*p3p4)*(fmb-3*fmc)+16*(
6410 . p6p8*p3p7)*(fmb*fmc2-2*fmc2*hbcm-3*fmc3)+16*(p6p8*p5p7)*(fmb*
6411 . fmc*hbcm-3*fmc2*hbcm)+16*(p6p8*p4p7)*(fmb*fmc*hbcm+2*fmc*hbcm2
6412 . -5*fmc2*hbcm)+16*(p4p8*p3p7*p3p6)*(ffmcfmb*fmc+2*fmc)+16*(p6p8
6413 . *p3p7*p3p4)*(ffmcfmb*fmb-ffmcfmb*fmc-4*fmc)+16*(-2*fmc*p1p3*
6414 . p4p7*p6p8+fmc*p1p3*p4p8*p6p7+2*fmc*p1p4*p3p7*p6p8-2*fmc*p1p8*
6415 . p3p4*p6p7+2*fmc*p1p8*p3p6*p4p7-2*fmc*p1p8*p3p7*p4p6-2*fmc*p2p8
6416 . *p3p4*p6p7+2*fmc*p2p8*p3p6*p4p7-2*fmc*p2p8*p3p7*p4p6+2*fmc*
6417 . p3p4*p5p8*p6p7-2*fmc*p3p6*p4p7*p5p8+2*fmc*p3p6*p4p8*p5p7+2*fmc
6418 . *p3p7*p4p6*p5p8-2*fmc2*hbcm*p1p8*p6p7-2*fmc2*hbcm*p2p8*p6p7+2*
6419 . fmc2*hbcm*p5p8*p6p7+hbcm*p1p4*p4p8*p6p7+hbcm*p3p6*p4p7*p4p8+2*
6420 . hbcm*p4p5*p5p7*p6p8+2*hbcm*p4p6*p4p7*p4p8+hbcm*p4p6*p4p8*p5p7-
6421 . hbcm*p4p8*p5p6*p5p7))+ans8+ans11
6422 ans1=ans2+ans7
6423 ans=ccc*ans1
6424 b(3)=ans
6425 ans2=w13*(8*(p5p7*p1p3)*(fmb+fmc-2*hbcm)+8*(p4p7*p1p3)*(fmb-5*
6426 . fmc+4*hbcm)+8*p5p7*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+8*p4p7*(-fmb*
6427 . hbcm2+3*fmb2*hbcm+5*fmc*hbcm2-3*fmc2*hbcm-2*hbcm3)+8*p3p7*(-
6428 . fmb*fmc*hbcm+2*fmb2*fmc-fmc*hbcm2+3*fmc2*hbcm-2*fmc3)+8*(p3p7*
6429 . p1p3)*(ffmcfmb*fmb-3*ffmcfmb*fmc+2*fmc))+(16*p5p7*(4*fb3*fmc-2
6430 . *fb4*fmb+6*fb4*fmc-3*hbcm)+32*p4p7*(2*fb3*fmc-fb4*fmb+3*fb4*
6431 . fmc)+4*p3p7*(8*fb3*ffmcfmb*fmc+8*fb3*fmc-8*fb4*ffmcfmb*fmb+16*
6432 . fb4*ffmcfmb*fmc+8*fb4*fmc-fmb+3*fmc-6*hbcm))
6433 ans1=w18*(8*p5p7*(fmb2*hbcm-4*fmc*hbcm2-7*fmc2*hbcm)+8*p4p7*(7*
6434 . fmb2*hbcm+2*fmc*hbcm2-7*fmc2*hbcm)+8*p3p7*(5*fmb2*fmc-2*fmc2*
6435 . hbcm-5*fmc3)+8*(p5p7*p3p5)*(fmb-5*fmc)+8*(p4p7*p3p5)*(fmb-5*
6436 . fmc+6*hbcm)+8*(p5p7*p3p4)*(fmb-5*fmc-6*hbcm)+8*(p4p7*p3p4)*(
6437 . fmb-5*fmc)+8*(p3p7*p3p5)*(ffmcfmb*fmb-3*ffmcfmb*fmc+2*fmc)+8*(
6438 . p3p7*p3p4)*(ffmcfmb*fmb-3*ffmcfmb*fmc-4*fmc)+16*(-fmc*p1p3*
6439 . p4p7+2*fmc*p1p3*p5p7+fmc*p1p4*p3p7-2*fmc*p1p5*p3p7+3*hbcm*p1p4
6440 . *p5p7-3*hbcm*p1p5*p4p7-hbcm*p3p7*p4p5-3*hbcm*p4p5*p5p7))+w1*(8
6441 . *(p5p7*p3p4)*(fmb-5*fmc)+8*(p4p7*p3p4)*(fmb-5*fmc)+8*p3p7*(fmb
6442 . *fmc2-2*fmc2*hbcm-5*fmc3)+8*p5p7*(fmb*fmc*hbcm-5*fmc2*hbcm)+8*
6443 . p4p7*(fmb*fmc*hbcm+2*fmc*hbcm2-7*fmc2*hbcm)+8*(p3p7*p3p4)*(
6444 . ffmcfmb*fmb-3*ffmcfmb*fmc-4*fmc)+16*(-fmc*p1p3*p4p7+fmc*p1p4*
6445 . p3p7+hbcm*p4p5*p5p7))+ans2
6446 ans=ccc*ans1
6447 b(4)=ans
6448 ans4=(4*p7p8*(-16*fb4*fmc*hbcm+3*fmb*hbcm+3*fmc*hbcm-2*hbcm2)+(
6449 . p5p8*p3p7)*(-128*fb4*ffmcfmb-16)+(p3p7*p2p8)*(128*fb4*ffmcfmb+
6450 . 16)+(p3p7*p1p8)*(64*fb4*ffmcfmb+8)+(p7p8*p1p3)*(64*fb4*ffmcfmb
6451 . +8)+64*(fb4*p1p4*p7p8+2*fb4*p1p8*p4p7-fb4*p1p8*p5p7+3*fb4*p2p8
6452 . *p4p7-fb4*p2p8*p5p7-fb4*p3p4*p7p8+fb4*p3p7*p4p8-3*fb4*p4p7*
6453 . p5p8+3*fb4*p4p8*p5p7))
6454 ans3=w13*(48*(p5p7*p4p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+48*(p5p8*
6455 . p4p7)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p4p8*p3p7)*(-fmb*hbcm-fmc*
6456 . hbcm+hbcm2)+16*(p7p8*p3p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p5p7*
6457 . p2p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+48*(p4p7*p2p8)*(-fmb*hbcm-fmc*
6458 . hbcm+hbcm2)+8*(p5p7*p1p8)*(fmb*hbcm+fmc*hbcm-2*hbcm2)+8*(p4p7*
6459 . p1p8)*(-5*fmb*hbcm-5*fmc*hbcm+4*hbcm2)+16*(p7p8*p1p4)*(-fmb*
6460 . hbcm-fmc*hbcm+hbcm2)+32*(p5p8*p3p7)*(fmb*fmc-fmc*hbcm+fmc2)+32
6461 . *(p3p7*p2p8)*(-fmb*fmc+fmc*hbcm-fmc2)+8*(p3p7*p1p8)*(-3*fmb*
6462 . fmc+2*fmc*hbcm-3*fmc2)+16*(p7p8*p1p3)*(-fmb*fmc+2*fmc*hbcm-
6463 . fmc2)+16*p7p8*(-ffmcfmb*p1p3s2+fmb*fmc*hbcm2-fmc*hbcm3+fmc2*
6464 . hbcm2)+16*(-ffmcfmb*p1p3*p1p8*p3p7-2*ffmcfmb*p1p3*p2p8*p3p7+2*
6465 . ffmcfmb*p1p3*p3p7*p5p8-p1p3*p1p4*p7p8-2*p1p3*p1p8*p4p7+p1p3*
6466 . p1p8*p5p7-3*p1p3*p2p8*p4p7+p1p3*p2p8*p5p7+p1p3*p3p4*p7p8-p1p3*
6467 . p3p7*p4p8+3*p1p3*p4p7*p5p8-3*p1p3*p4p8*p5p7))+ans4
6468 ans2=w1*(16*p7p8*(fmc2*hbcm2+p3p4s2)+8*(p5p7*p4p8)*(fmb*hbcm-7*
6469 . fmc*hbcm)+8*(p4p8*p4p7)*(fmb*hbcm+fmc*hbcm)+8*(p4p8*p3p7)*(fmb
6470 . *fmc-2*fmc*hbcm+fmc2)+16*(-ffmcfmb*p1p3*p3p4*p7p8-ffmcfmb*p1p8
6471 . *p3p4*p3p7-2*ffmcfmb*p2p8*p3p4*p3p7+2*ffmcfmb*p3p4*p3p7*p5p8-
6472 . fmc*hbcm*p1p4*p7p8-3*fmc*hbcm*p1p8*p4p7+fmc*hbcm*p1p8*p5p7-4*
6473 . fmc*hbcm*p2p8*p4p7+fmc*hbcm*p2p8*p5p7+2*fmc*hbcm*p3p4*p7p8+4*
6474 . fmc*hbcm*p4p7*p5p8-fmc2*p1p3*p7p8-2*fmc2*p1p8*p3p7-3*fmc2*p2p8
6475 . *p3p7+3*fmc2*p3p7*p5p8-p1p4*p3p4*p7p8-2*p1p8*p3p4*p4p7+p1p8*
6476 . p3p4*p5p7-3*p2p8*p3p4*p4p7+p2p8*p3p4*p5p7-p3p4*p3p7*p4p8+3*
6477 . p3p4*p4p7*p5p8-3*p3p4*p4p8*p5p7))+ans3
6478 ans1=w18*(8*(p5p8*p5p7)*(fmb*hbcm+fmc*hbcm)+40*(p5p7*p4p8)*(-
6479 . fmb*hbcm-fmc*hbcm)+56*(p5p8*p4p7)*(fmb*hbcm+fmc*hbcm)+8*(p4p8*
6480 . p4p7)*(fmb*hbcm+fmc*hbcm)+16*(p7p8*p3p4)*(fmb*hbcm+2*fmc*hbcm)
6481 . +64*(p4p7*p2p8)*(-fmb*hbcm-fmc*hbcm)+48*(p4p7*p1p8)*(-fmb*hbcm
6482 . -fmc*hbcm)+16*(p7p8*p1p4)*(-fmb*hbcm-fmc*hbcm)+40*(p5p8*p3p7)*
6483 . (fmb*fmc+fmc2)+8*(p4p8*p3p7)*(fmb*fmc-2*fmb*hbcm-2*fmc*hbcm+
6484 . fmc2)+48*(p3p7*p2p8)*(-fmb*fmc-fmc2)+32*(p3p7*p1p8)*(-fmb*fmc-
6485 . fmc2)+16*(p7p8*p1p3)*(-fmb*fmc-fmc2)+16*p7p8*(fmb*fmc*hbcm2+
6486 . fmc2*hbcm2+p3p4s2)+16*(-ffmcfmb*p1p3*p3p4*p7p8-ffmcfmb*p1p3*
6487 . p3p5*p7p8-ffmcfmb*p1p8*p3p4*p3p7-ffmcfmb*p1p8*p3p5*p3p7-2*
6488 . ffmcfmb*p2p8*p3p4*p3p7-2*ffmcfmb*p2p8*p3p5*p3p7+2*ffmcfmb*p3p4
6489 . *p3p7*p5p8+2*ffmcfmb*p3p5*p3p7*p5p8+fmc*hbcm*p3p5*p7p8-p1p4*
6490 . p3p4*p7p8-p1p4*p3p5*p7p8-2*p1p8*p3p4*p4p7+p1p8*p3p4*p5p7-2*
6491 . p1p8*p3p5*p4p7+p1p8*p3p5*p5p7-3*p2p8*p3p4*p4p7+p2p8*p3p4*p5p7-
6492 . 3*p2p8*p3p5*p4p7+p2p8*p3p5*p5p7+p3p4*p3p5*p7p8-p3p4*p3p7*p4p8+
6493 . 3*p3p4*p4p7*p5p8-3*p3p4*p4p8*p5p7-p3p5*p3p7*p4p8+3*p3p5*p4p7*
6494 . p5p8-3*p3p5*p4p8*p5p7))+ans2
6495 ans=ccc*ans1
6496 b(5)=ans
6497 ans4=16*(2*ffmcfmb*p1p3*p3p4*p3p7+2*ffmcfmb*p1p3*p3p5*p3p7+2*
6498 . ffmcfmb*p2p3*p3p4*p3p7+2*ffmcfmb*p2p3*p3p5*p3p7-2*ffmcfmb*p3p4
6499 . *p3p5*p3p7+fmc*hbcm*p1p3*p5p7-fmc*hbcm*p1p5*p3p7+2*hbcm2*p1p4*
6500 . p5p7-2*hbcm2*p1p5*p4p7-hbcm2*p3p7*p4p5-2*hbcm2*p4p5*p5p7+2*
6501 . p1p3*p3p4*p4p7-p1p3*p3p4*p5p7+2*p1p3*p3p5*p4p7-p1p3*p3p5*p5p7+
6502 . p1p4*p3p4*p3p7+p1p4*p3p5*p3p7+3*p2p3*p3p4*p4p7-p2p3*p3p4*p5p7+
6503 . 3*p2p3*p3p5*p4p7-p2p3*p3p5*p5p7-3*p3p4*p3p5*p4p7+3*p3p4*p3p5*
6504 . p5p7)
6505 ans3=8*(p5p7*p3p5)*(-fmb*hbcm-fmc*hbcm+2*hbcm2)+56*(p4p7*p3p5)*
6506 . (-fmb*hbcm-fmc*hbcm)+8*(p5p7*p3p4)*(5*fmb*hbcm+5*fmc*hbcm-2*
6507 . hbcm2)+8*(p4p7*p3p4)*(-fmb*hbcm-fmc*hbcm-4*hbcm2)+64*(p4p7*
6508 . p2p3)*(fmb*hbcm+fmc*hbcm)+16*(p3p7*p1p4)*(fmb*hbcm+2*fmc*hbcm)
6509 . +16*(p4p7*p1p3)*(3*fmb*hbcm+2*fmc*hbcm)+8*(p3p7*p3p5)*(-5*fmb*
6510 . fmc-2*fmc*hbcm-5*fmc2)+8*(p3p7*p3p4)*(-fmb*fmc-6*fmc*hbcm-fmc2
6511 . )+48*(p3p7*p2p3)*(fmb*fmc+fmc2)+48*(p3p7*p1p3)*(fmb*fmc+fmc2)+
6512 . 8*p5p7*(4*fmb*fmc*hbcm2+fmb2*hbcm2-2*fmc*hbcm3-fmc2*hbcm2+6*
6513 . p3p4s2)+8*p4p7*(4*fmb*fmc*hbcm2-6*fmb*hbcm3+5*fmb2*hbcm2-4*fmc
6514 . *hbcm3-fmc2*hbcm2-6*p3p5s2)+8*p3p7*(-4*ffmcfmb*p3p5s2-4*fmb*
6515 . fmc*hbcm2+2*fmb*fmc2*hbcm+3*fmb2*fmc*hbcm-6*fmc2*hbcm2-fmc3*
6516 . hbcm)+ans4
6517 ans2=w18*ans3
6518 ans7=((p3p7*p3p5)*(128*fb4*ffmcfmb+16)+(p3p7*p2p3)*(-128*fb4*
6519 . ffmcfmb-16)+(p3p7*p1p3)*(-128*fb4*ffmcfmb-16)+32*p5p7*(fb3*fmb
6520 . *hbcm+2*fb3*fmc*hbcm-fb4*fmc*hbcm-2*fb4*hbcm2-hbcm2)+32*p4p7*(
6521 . fb3*fmb*hbcm+2*fb3*fmc*hbcm-fb4*fmc*hbcm+4*fb4*hbcm2)+4*p3p7*(
6522 . 8*fb3*fmb*fmc+8*fb3*fmc*hbcm+8*fb3*fmc2+24*fb4*fmc*hbcm-3*fmb*
6523 . hbcm-3*fmc*hbcm)+64*(-2*fb4*p1p3*p4p7+fb4*p1p3*p5p7-fb4*p1p4*
6524 . p3p7-3*fb4*p2p3*p4p7+fb4*p2p3*p5p7-3*fb4*p3p4*p5p7+3*fb4*p3p5*
6525 . p4p7))
6526 ans6=w13*(48*(p4p7*p3p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)+48*(p5p7*
6527 . p3p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p5p7*p2p3)*(-fmb*hbcm-fmc*
6528 . hbcm+hbcm2)+48*(p4p7*p2p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p3p7*
6529 . p1p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p5p7*p1p3)*(-fmb*hbcm+3*fmc
6530 . *hbcm+2*hbcm2)+8*(p4p7*p1p3)*(5*fmb*hbcm+5*fmc*hbcm-6*hbcm2)+
6531 . 32*(p3p7*p3p5)*(-fmb*fmc+fmc*hbcm-fmc2)+32*(p3p7*p2p3)*(fmb*
6532 . fmc-fmc*hbcm+fmc2)+8*(p3p7*p1p3)*(5*fmb*fmc-6*fmc*hbcm+5*fmc2)
6533 . +8*p5p7*(4*fmb*fmc*hbcm2+fmb*hbcm3-3*fmc*hbcm3+4*fmc2*hbcm2-
6534 . hbcm4-2*p1p3s2)+8*p4p7*(4*fmb*fmc*hbcm2-5*fmb*hbcm3+2*fmb2*
6535 . hbcm2-5*fmc*hbcm3+2*fmc2*hbcm2+3*hbcm4+4*p1p3s2)+8*p3p7*(4*
6536 . ffmcfmb*p1p3s2-3*fmb*fmc*hbcm2+2*fmb*fmc2*hbcm+fmb2*fmc*hbcm+2
6537 . *fmc*hbcm3-3*fmc2*hbcm2+fmc3*hbcm)+16*(2*ffmcfmb*p1p3*p2p3*
6538 . p3p7-2*ffmcfmb*p1p3*p3p5*p3p7+p1p3*p1p4*p3p7+3*p1p3*p2p3*p4p7-
6539 . p1p3*p2p3*p5p7+3*p1p3*p3p4*p5p7-3*p1p3*p3p5*p4p7))+ans7
6540 ans5=w1*(8*(p5p7*p3p4)*(-fmb*hbcm+7*fmc*hbcm+2*hbcm2)+8*(p4p7*
6541 . p3p4)*(-fmb*hbcm-fmc*hbcm-4*hbcm2)+8*p3p7*(-fmb*fmc2*hbcm-6*
6542 . fmc2*hbcm2-fmc3*hbcm)+8*(p3p7*p3p4)*(-fmb*fmc-6*fmc*hbcm-fmc2)
6543 . +8*p5p7*(-fmb*fmc*hbcm2+2*fmc*hbcm3+fmc2*hbcm2+6*p3p4s2)+8*
6544 . p4p7*(-fmb*fmc*hbcm2-4*fmc*hbcm3-fmc2*hbcm2)+16*(2*ffmcfmb*
6545 . p1p3*p3p4*p3p7+2*ffmcfmb*p2p3*p3p4*p3p7-2*ffmcfmb*p3p4*p3p5*
6546 . p3p7+2*fmc*hbcm*p1p3*p4p7-fmc*hbcm*p1p3*p5p7+2*fmc*hbcm*p1p4*
6547 . p3p7+4*fmc*hbcm*p2p3*p4p7-fmc*hbcm*p2p3*p5p7-4*fmc*hbcm*p3p5*
6548 . p4p7+3*fmc2*p1p3*p3p7+3*fmc2*p2p3*p3p7-3*fmc2*p3p5*p3p7+hbcm2*
6549 . p4p5*p5p7+2*p1p3*p3p4*p4p7-p1p3*p3p4*p5p7+p1p4*p3p4*p3p7+3*
6550 . p2p3*p3p4*p4p7-p2p3*p3p4*p5p7-3*p3p4*p3p5*p4p7))+ans6
6551 ans1=ans2+ans5
6552 ans=ccc*ans1
6553 b(6)=ans
6554 ans4=16*(-2*fmb*hbcm2*p1p8*p4p7+2*fmc*hbcm2*p1p5*p7p8+2*fmc*
6555 . hbcm2*p1p8*p5p7+4*fmc*hbcm2*p2p8*p5p7-fmc*p1p3*p3p4*p7p8-3*fmc
6556 . *p1p3*p3p5*p7p8-3*fmc*p1p3*p3p7*p4p8+3*fmc*p1p3*p3p7*p5p8+4*
6557 . fmc*p1p8*p3p4*p3p7-2*fmc*p2p3*p3p4*p7p8-2*fmc*p2p3*p3p5*p7p8-3
6558 . *fmc*p2p3*p3p7*p4p8+3*fmc*p2p3*p3p7*p5p8+5*fmc*p2p8*p3p4*p3p7-
6559 . fmc*p2p8*p3p5*p3p7-5*fmc*p3p4*p3p7*p5p8-2*fmc*p3p5*p3p7*p5p8-2
6560 . *fmc2*hbcm*p2p3*p7p8-2*hbcm*p1p3*p4p5*p7p8-hbcm*p1p3*p4p7*p4p8
6561 . +3*hbcm*p1p3*p4p7*p5p8-3*hbcm*p1p3*p4p8*p5p7+hbcm*p1p3*p5p7*
6562 . p5p8+hbcm*p1p4*p3p4*p7p8-hbcm*p1p4*p3p5*p7p8-hbcm*p1p4*p3p7*
6563 . p4p8+hbcm*p1p4*p3p7*p5p8+2*hbcm*p1p5*p3p4*p7p8-2*hbcm*p1p5*
6564 . p3p7*p4p8+hbcm*p1p8*p3p4*p4p7+3*hbcm*p1p8*p3p4*p5p7-3*hbcm*
6565 . p1p8*p3p5*p4p7-hbcm*p1p8*p3p5*p5p7+2*hbcm*p1p8*p3p7*p4p5-2*
6566 . hbcm*p2p3*p4p5*p7p8-2*hbcm*p2p3*p4p7*p4p8+4*hbcm*p2p3*p4p7*
6567 . p5p8-5*hbcm*p2p3*p4p8*p5p7+hbcm*p2p3*p5p7*p5p8+2*hbcm*p2p8*
6568 . p3p4*p4p7+5*hbcm*p2p8*p3p4*p5p7-4*hbcm*p2p8*p3p5*p4p7-hbcm*
6569 . p2p8*p3p5*p5p7+2*hbcm*p2p8*p3p7*p4p5-2*hbcm*p3p4*p4p7*p5p8-2*
6570 . hbcm*p3p4*p5p7*p5p8+2*hbcm*p3p5*p4p5*p7p8+2*hbcm*p3p5*p4p7*
6571 . p4p8+2*hbcm*p3p5*p4p8*p5p7-2*hbcm*p3p7*p4p5*p5p8)
6572 ans3=16*(p4p8*p3p7*p3p5)*(fmc+hbcm)+16*(p4p8*p3p7*p3p4)*(-2*fmc
6573 . +hbcm)+16*(p7p8*p3p5*p3p4)*(4*fmc-hbcm)+32*(p7p8*p4p5)*(-fmc*
6574 . hbcm2+hbcm3)+16*(p7p8*p3p5)*(fmc*hbcm2+2*fmc2*hbcm)+8*(p5p8*
6575 . p5p7)*(fmb*hbcm2-fmc*hbcm2-2*hbcm3)+8*(p5p7*p4p8)*(-3*fmb*
6576 . hbcm2-5*fmc*hbcm2+6*hbcm3)+8*(p5p8*p4p7)*(5*fmb*hbcm2+3*fmc*
6577 . hbcm2-6*hbcm3)+8*(p4p8*p4p7)*(fmb*hbcm2-fmc*hbcm2+2*hbcm3)+16*
6578 . (p7p8*p3p4)*(fmb*hbcm2-2*fmb2*hbcm+2*fmc2*hbcm)+16*(p4p7*p2p8)
6579 . *(-3*fmb*hbcm2+fmc*hbcm2)+16*(p7p8*p1p4)*(-fmb*hbcm2+fmc*hbcm2
6580 . )+16*p7p8*(fmb*fmc*hbcm3-2*fmb2*fmc*hbcm2+2*fmc*p3p4s2+2*fmc*
6581 . p3p5s2+fmc2*hbcm3-hbcm*p3p4s2)+8*(p5p8*p3p7)*(3*fmb*fmc*hbcm-4
6582 . *fmc*hbcm2-5*fmc2*hbcm)+8*(p4p8*p3p7)*(fmb*fmc*hbcm-2*fmb*
6583 . hbcm2+4*fmb2*hbcm+6*fmc*hbcm2-7*fmc2*hbcm)+32*(p3p7*p2p8)*(-
6584 . fmb*fmc*hbcm+2*fmc2*hbcm)+16*(p3p7*p1p8)*(-fmb*fmc*hbcm+3*fmc2
6585 . *hbcm)+16*(p7p8*p1p3)*(-fmb*fmc*hbcm-fmc2*hbcm)+ans4
6586 ans2=w18*ans3
6587 ans7=16*(fmc*p1p3*p1p8*p3p7-fmc*p1p3*p2p8*p3p7+fmc*p1p3*p3p7*
6588 . p5p8+fmc*p1p8*p2p3*p3p7-fmc*p1p8*p3p5*p3p7-hbcm*p1p3*p1p4*p7p8
6589 . -2*hbcm*p1p3*p2p8*p4p7+hbcm*p1p3*p2p8*p5p7+2*hbcm*p1p3*p4p7*
6590 . p5p8-2*hbcm*p1p3*p4p8*p5p7+hbcm*p1p4*p1p8*p3p7+2*hbcm*p1p8*
6591 . p2p3*p4p7-hbcm*p1p8*p2p3*p5p7+2*hbcm*p1p8*p3p4*p5p7-2*hbcm*
6592 . p1p8*p3p5*p4p7)
6593 ans6=16*(p4p8*p3p7*p1p3)*(-2*fmc+hbcm)+16*(p7p8*p3p4*p1p3)*(2*
6594 . fmc-hbcm)+32*(p5p7*p4p8)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+32*(p5p8
6595 . *p4p7)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+16*(p4p8*p3p7)*(-fmb*hbcm2+
6596 . fmb2*hbcm+fmc*hbcm2-fmc2*hbcm)+16*(p7p8*p3p4)*(fmb*hbcm2-fmb2*
6597 . hbcm-fmc*hbcm2+fmc2*hbcm)+16*(p5p7*p2p8)*(fmb*hbcm2+fmc*hbcm2-
6598 . hbcm3)+32*(p4p7*p2p8)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+8*(p5p7*
6599 . p1p8)*(fmb*hbcm2+3*fmc*hbcm2)+8*(p4p7*p1p8)*(-3*fmb*hbcm2-fmc*
6600 . hbcm2)+16*(p7p8*p1p4)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+16*p7p8*(
6601 . fmb*fmc*hbcm3-fmb2*fmc*hbcm2-fmc*p1p3s2-fmc2*hbcm3+fmc3*hbcm2)
6602 . +16*(p5p8*p3p7)*(fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+16*(p3p7*
6603 . p2p8)*(-fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+8*(p3p7*p1p8)*(-fmb*
6604 . fmc*hbcm-fmc2*hbcm)+16*(p7p8*p1p3)*(-fmb*fmc*hbcm+fmc2*hbcm)+
6605 . ans7
6606 ans5=w13*ans6
6607 ans8=(8*(p7p8*p1p3)*(8*fb4*fmc-3*hbcm)+4*p7p8*(-16*fb4*fmc*
6608 . hbcm2+3*fmb*hbcm2-5*fmc*hbcm2+6*hbcm3)+8*(p5p8*p3p7)*(16*fb3*
6609 . fmc+8*fb4*fmc-5*hbcm)+64*(p4p8*p3p7)*(fb3*fmc-fb3*hbcm+fb4*fmc
6610 . )+8*(p7p8*p3p5)*(-8*fb3*fmc-8*fb4*fmc+5*hbcm)+64*(p7p8*p3p4)*(
6611 . -fb3*fmc+fb3*hbcm-fb4*fmc)+8*(p3p7*p2p8)*(-16*fb3*fmc-8*fb4*
6612 . fmc+5*hbcm)+8*(p7p8*p2p3)*(8*fb3*fmc+8*fb4*fmc-5*hbcm)+8*(p3p7
6613 . *p1p8)*(-8*fb3*fmc-8*fb4*fmc+3*hbcm)+64*(-fb3*hbcm*p1p4*p7p8-
6614 . fb3*hbcm*p1p8*p4p7+fb3*hbcm*p1p8*p5p7-2*fb3*hbcm*p2p8*p4p7+fb3
6615 . *hbcm*p2p8*p5p7+2*fb3*hbcm*p4p7*p5p8-2*fb3*hbcm*p4p8*p5p7))
6616 ans1=w1*(16*p7p8*(2*fmc*p3p4s2+fmc2*hbcm3-hbcm*p3p4s2)+16*(p4p8
6617 . *p3p7*p3p4)*(-2*fmc+hbcm)+8*(p5p7*p4p8)*(fmb*hbcm2+fmc*hbcm2-2
6618 . *hbcm3)+8*(p4p8*p4p7)*(fmb*hbcm2-fmc*hbcm2+2*hbcm3)+8*(p4p8*
6619 . p3p7)*(fmb*fmc*hbcm+6*fmc*hbcm2-7*fmc2*hbcm)+16*(fmc*hbcm2*
6620 . p1p4*p7p8-fmc*hbcm2*p1p8*p5p7+fmc*hbcm2*p2p8*p4p7-fmc*hbcm2*
6621 . p2p8*p5p7-fmc*hbcm2*p4p7*p5p8-fmc*p1p3*p3p4*p7p8-3*fmc*p1p3*
6622 . p3p7*p4p8+4*fmc*p1p8*p3p4*p3p7-2*fmc*p2p3*p3p4*p7p8-3*fmc*p2p3
6623 . *p3p7*p4p8+5*fmc*p2p8*p3p4*p3p7+2*fmc*p3p4*p3p5*p7p8-5*fmc*
6624 . p3p4*p3p7*p5p8+3*fmc*p3p5*p3p7*p4p8-fmc2*hbcm*p1p3*p7p8+3*fmc2
6625 . *hbcm*p1p8*p3p7-2*fmc2*hbcm*p2p3*p7p8+4*fmc2*hbcm*p2p8*p3p7+2*
6626 . fmc2*hbcm*p3p4*p7p8+2*fmc2*hbcm*p3p5*p7p8-4*fmc2*hbcm*p3p7*
6627 . p5p8-hbcm*p1p3*p4p7*p4p8+hbcm*p1p3*p4p8*p5p7+hbcm*p1p4*p3p4*
6628 . p7p8-hbcm*p1p4*p3p7*p4p8+hbcm*p1p8*p3p4*p4p7-hbcm*p1p8*p3p4*
6629 . p5p7-2*hbcm*p2p3*p4p7*p4p8+hbcm*p2p3*p4p8*p5p7+2*hbcm*p2p8*
6630 . p3p4*p4p7-hbcm*p2p8*p3p4*p5p7-2*hbcm*p3p4*p4p7*p5p8+2*hbcm*