File indexing completed on 2023-10-25 09:48:19
0001
0002
0003
0004
0005
0006
0007 subroutine amp10_3p0(cc)
0008 implicit double precision(a-h,o-z)
0009 implicit integer (i-n)
0010 dimension b(16)
0011 #include "inclcon.h"
0012 #include "inclppp.h"
0013 #include "inclamp.h"
0014 do 100 n=1,16
0015 b(n)=0.0d0
0016 100 continue
0017 ccc=cc/((-2*p1p5)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2)*(-fmb2
0018 . +fmc2+hbcm2+2*p3p4))
0019 b(1)=ccc*(w1*(8*p6p7*(2*fmb*p3p4s2-fmb2*fmc*hbcm2-fmc*hbcm4-2*
0020 . fmc*p3p4s2+fmc3*hbcm2)+16*(p6p7*p3p5*p3p4)*(fmb-fmc)+16*(p6p7*
0021 . p3p4*p2p3)*(-fmb+fmc)+16*(p6p7*p3p4*p1p3)*(-fmb+fmc)+16*(p6p7*
0022 . p3p4)*(fmb*hbcm2-fmc*hbcm2)+16*(fmc*hbcm2*p1p3*p6p7+fmc*hbcm2*
0023 . p2p3*p6p7-fmc*hbcm2*p3p5*p6p7))+(32*(p6p7*p3p4)*(-fb2*fmb+fb2*
0024 . fmc)+32*(p6p7*p3p5)*(2*fb1*hbcm-fb2*fmb+fb2*fmc)+32*(p6p7*p2p3
0025 . )*(-2*fb1*hbcm+fb2*fmb-fb2*fmc)+32*(p6p7*p1p3)*(-2*fb1*hbcm+
0026 . fb2*fmb-fb2*fmc)+32*p6p7*(fb1*fmb2*hbcm-fb1*fmc2*hbcm+fb1*
0027 . hbcm3-fb2*fmb*hbcm2+fb2*fmc*hbcm2)))
0028 b(2)=ccc*(w1*(8*(p5p7*p3p4)*(-fmb+fmc)+8*fmc*hbcm2*p5p7)+16*
0029 . p5p7*(-2*fb1*hbcm+fb2*fmb-fb2*fmc))
0030 b(3)=ccc*(w1*(8*(p5p6*p3p4)*(-fmb+fmc)+8*(p4p6*p3p4)*(-fmb+fmc)
0031 . +8*(p3p6*p3p4)*(-fmb+fmc)+8*(fmc*hbcm2*p3p6+fmc*hbcm2*p4p6+fmc
0032 . *hbcm2*p5p6))+(16*p5p6*(-2*fb1*hbcm+fb2*fmb-fb2*fmc)+16*p4p6*(
0033 . -2*fb1*hbcm+fb2*fmb-fb2*fmc)+16*p3p6*(-2*fb1*hbcm+fb2*fmb-fb2*
0034 . fmc)))
0035 b(4)=ccc*(w1*(8*(p6p7*p3p4)*(fmb2-fmc2-hbcm2)-16*p3p4s2*p6p7)+(
0036 . 16*p6p7*(-fb2*fmb2+fb2*fmc2+fb2*hbcm2)+32*fb2*p3p4*p6p7))
0037 b(5)=ccc*(w1*(8*p5p7*(fmb*fmc*hbcm2+fmc2*hbcm2-2*p3p4s2)-8*
0038 . hbcm2*p3p4*p5p7)+(16*p5p7*(-2*fb1*fmb*hbcm-2*fb1*fmc*hbcm+fb2*
0039 . hbcm2)+32*fb2*p3p4*p5p7))
0040 b(6)=ccc*(w1*(8*(p3p6*p3p4)*(-fmb2+fmc2)+8*p5p6*(fmb*fmc*hbcm2+
0041 . fmc2*hbcm2-2*p3p4s2)+8*p4p6*(fmb*fmc*hbcm2+fmc2*hbcm2-2*p3p4s2
0042 . )+8*p3p6*(fmb*fmc*hbcm2+fmc2*hbcm2)+8*(-hbcm2*p3p4*p4p6-hbcm2*
0043 . p3p4*p5p6))+(16*p5p6*(-2*fb1*fmb*hbcm-2*fb1*fmc*hbcm+fb2*hbcm2
0044 . )+16*p4p6*(-2*fb1*fmb*hbcm-2*fb1*fmc*hbcm+fb2*hbcm2)+16*p3p6*(
0045 . -2*fb1*fmb*hbcm-2*fb1*fmc*hbcm+fb2*fmb2-fb2*fmc2)+32*(fb2*p3p4
0046 . *p4p6+fb2*p3p4*p5p6)))
0047 b(7)=ccc*(w1*(4*p3p4*(fmb2-fmc2-hbcm2)-8*p3p4s2)+8*(-fb2*fmb2+
0048 . fb2*fmc2+fb2*hbcm2+2*fb2*p3p4))
0049 b(8)=ccc*(w1*(8*(p3p5*p3p4)*(-fmb+fmc)+8*(p3p4*p2p3)*(fmb-fmc)+
0050 . 8*(p3p4*p1p3)*(fmb-fmc)+8*p3p4*(-fmb*hbcm2+fmc*hbcm2)+4*(-2*
0051 . fmb*p3p4s2+fmb2*fmc*hbcm2-2*fmc*hbcm2*p1p3-2*fmc*hbcm2*p2p3+2*
0052 . fmc*hbcm2*p3p5+fmc*hbcm4+2*fmc*p3p4s2-fmc3*hbcm2))+(16*p3p4*(
0053 . fb2*fmb-fb2*fmc)+16*p3p5*(-2*fb1*hbcm+fb2*fmb-fb2*fmc)+16*p2p3
0054 . *(2*fb1*hbcm-fb2*fmb+fb2*fmc)+16*p1p3*(2*fb1*hbcm-fb2*fmb+fb2*
0055 . fmc)+16*(-fb1*fmb2*hbcm+fb1*fmc2*hbcm-fb1*hbcm3+fb2*fmb*hbcm2-
0056 . fb2*fmc*hbcm2)))
0057 b(9)=ccc*(w1*(8*(p3p6*p3p4)*(fmb-fmc)-8*fmc*hbcm2*p3p6)+16*p3p6
0058 . *(2*fb1*hbcm-fb2*fmb+fb2*fmc))
0059 b(11)=ccc*(4*w1*(-fmb*fmc*hbcm2-fmc2*hbcm2+hbcm2*p3p4+2*p3p4s2)
0060 . +8*(2*fb1*fmb*hbcm+2*fb1*fmc*hbcm-fb2*hbcm2-2*fb2*p3p4))
0061 b(13)=ccc*(w1*(4*p3p4*(-fmb+fmc)+4*fmc*hbcm2)+8*(-2*fb1*hbcm+
0062 . fb2*fmb-fb2*fmc))
0063 b(15)=ccc*(w1*(8*p6p7*(-fmb*fmc*hbcm2-fmc2*hbcm2+2*p3p4s2)+8*
0064 . hbcm2*p3p4*p6p7)+(16*p6p7*(2*fb1*fmb*hbcm+2*fb1*fmc*hbcm-fb2*
0065 . hbcm2)-32*fb2*p3p4*p6p7))
0066 b(16)=ccc*(w1*(8*(p6p7*p3p4)*(fmb-fmc)-8*fmc*hbcm2*p6p7)+16*
0067 . p6p7*(2*fb1*hbcm-fb2*fmb+fb2*fmc))
0068 do 200 n=1,16
0069 c(n,1)=c(n,1)-0.7272727272727273d0*b(n)
0070 c(n,2)=c(n,2)+0.1344727748424798d0*b(n)
0071 c(n,3)=c(n,3)+0.1662127982237257d0*b(n)
0072 200 continue
0073 return
0074 end
0075
0076 subroutine amp18_3p0(cc)
0077 implicit double precision(a-h,o-z)
0078 implicit integer (i-n)
0079 dimension b(16)
0080 #include "inclcon.h"
0081 #include "inclppp.h"
0082 #include "inclamp.h"
0083 do 100 n=1,16
0084 b(n)=0.0d0
0085 100 continue
0086 ccc=cc/((ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2)*(ffmcfmb**2*
0087 . hbcm2-2*ffmcfmb*hbcm2+2*ffmcfmb*p2p3-fmb2+hbcm2-2*p2p3)*(
0088 . ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+2*ffmcfmb*p3p5+fmc2+2*p4p5))
0089 ans4=8*(p6p7*p3p5)*(ffmcfmb**2*hbcm3-ffmcfmb*hbcm3+fmb*hbcm2-
0090 . fmb2*hbcm)+8*(p6p7*p3p4)*(-ffmcfmb**2*hbcm3+ffmcfmb*hbcm3-fmb*
0091 . hbcm2+fmb2*hbcm)+16*(p3p7*p3p6*p3p5)*(ffmcfmb**2*hbcm+ffmcfmb*
0092 . fmc-ffmcfmb*hbcm-fmc)+16*(p3p7*p3p6*p3p4)*(ffmcfmb**2*hbcm+
0093 . ffmcfmb*fmc-ffmcfmb*hbcm-fmc)+16*(fmb*p3p4*p3p7*p4p6+fmb*p3p5*
0094 . p3p7*p4p6-fmc*p2p3*p3p5*p6p7-2*hbcm*p2p3*p4p5*p6p7-2*hbcm*p2p3
0095 . *p4p6*p5p7+2*hbcm*p2p3*p4p7*p5p6+2*hbcm*p2p4*p3p5*p6p7+2*hbcm*
0096 . p2p4*p3p6*p5p7-2*hbcm*p2p4*p3p7*p5p6-hbcm*p2p5*p3p4*p6p7+hbcm*
0097 . p2p5*p3p5*p6p7-2*hbcm*p2p5*p3p6*p4p7+2*hbcm*p2p5*p3p7*p4p6)
0098 ans3=16*(p4p6*p3p7)*(fmb*fmc*hbcm+fmb*hbcm2-fmb2*hbcm)+16*(p6p7
0099 . *p4p5)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+16*(p6p7*p2p4)*(
0100 . ffmcfmb*hbcm3+fmb*hbcm2)+32*(p4p5*p3p7*p3p6)*(ffmcfmb*hbcm-
0101 . hbcm)+16*(p5p6*p3p7*p3p5)*(-ffmcfmb*hbcm+hbcm)+16*(p4p7*p3p6*
0102 . p3p5)*(-ffmcfmb*hbcm-fmb+hbcm)+16*(p5p6*p3p7*p3p4)*(-ffmcfmb*
0103 . hbcm+hbcm)+16*(p4p7*p3p6*p3p4)*(-ffmcfmb*hbcm-fmb+hbcm)+16*(
0104 . p6p7*p3p5*p3p4)*(ffmcfmb*hbcm+fmb-hbcm)+16*(p6p7*p3p4*p2p3)*(-
0105 . 2*ffmcfmb*hbcm-fmc)+16*(p5p7*p3p6)*(-ffmcfmb*fmc*hbcm2-fmb*fmc
0106 . *hbcm+fmc*hbcm2)+8*p6p7*(-ffmcfmb*fmb2*hbcm3-ffmcfmb*fmc2*
0107 . hbcm3+2*ffmcfmb*hbcm*p3p5s2-fmb*fmc2*hbcm2+2*fmb*p3p5s2+fmb2*
0108 . hbcm3-fmb3*hbcm2+fmc2*hbcm3-2*hbcm*p3p5s2)+16*(p6p7*p2p3)*(
0109 . ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm-fmc2*hbcm)+16
0110 . *(p3p7*p3p6)*(ffmcfmb*fmb*fmc*hbcm+ffmcfmb*fmc2*hbcm-fmb*fmc*
0111 . hbcm-fmc2*hbcm)+16*(p5p6*p3p7)*(-ffmcfmb**2*hbcm3+ffmcfmb*
0112 . hbcm3+fmb*fmc*hbcm)+16*(p4p7*p3p6)*(-ffmcfmb**2*hbcm3-ffmcfmb*
0113 . fmc*hbcm2+ffmcfmb*hbcm3-fmb*fmc*hbcm-fmb*hbcm2+fmb2*hbcm+fmc*
0114 . hbcm2)+ans4
0115 ans2=w18*ans3
0116 ans6=w8*(16*(p6p7*p2p5)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+32*(
0117 . p3p7*p3p6*p2p4)*(ffmcfmb*hbcm-hbcm)+16*(p5p6*p3p7*p2p3)*(
0118 . ffmcfmb*hbcm-hbcm)+16*(p4p7*p3p6*p2p3)*(-ffmcfmb*hbcm-fmb+hbcm
0119 . )+16*(p6p7*p3p5*p2p3)*(ffmcfmb*hbcm+fmb-hbcm)+8*(p6p7*p2p3)*(
0120 . ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*hbcm2-2*ffmcfmb*fmc*hbcm2-
0121 . ffmcfmb*hbcm3-2*fmb*fmc*hbcm-fmb*hbcm2+fmb2*hbcm+2*fmc*hbcm2)+
0122 . 16*(p3p7*p3p6*p2p3)*(ffmcfmb**2*hbcm+ffmcfmb*fmc-ffmcfmb*hbcm-
0123 . fmc)+16*(fmb*p2p3*p3p7*p4p6-fmc*p2p3s2*p6p7-hbcm*p2p3*p2p5*
0124 . p6p7))+(16*(p4p6*p3p7)*(-2*fb2*fmb-hbcm)+8*(p5p6*p3p7)*(4*fb1*
0125 . ffmcfmb*hbcm-4*fb1*hbcm-hbcm)+8*(p4p7*p3p6)*(4*fb1*ffmcfmb*
0126 . hbcm-4*fb1*hbcm+4*fb2*fmb+hbcm)+8*(p6p7*p3p5)*(-4*fb1*ffmcfmb*
0127 . hbcm+4*fb1*hbcm-4*fb2*fmb-hbcm)+4*p6p7*(-4*fb1*ffmcfmb**2*
0128 . hbcm3+4*fb1*ffmcfmb*hbcm3+4*fb1*fmb2*hbcm-4*fb2*fmb*hbcm2+2*
0129 . ffmcfmb*hbcm3+2*fmb*hbcm2-3*hbcm3)+8*(p3p7*p3p6)*(4*fb1*
0130 . ffmcfmb**2*hbcm-4*fb1*ffmcfmb*hbcm-4*fb2*ffmcfmb*fmc+4*fb2*fmc
0131 . -4*ffmcfmb*hbcm-fmc+3*hbcm)+32*(-fb1*hbcm*p2p5*p6p7+fb2*fmc*
0132 . p2p3*p6p7))
0133 ans5=w1*(16*(p6p7*p4p5)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+16*(
0134 . p5p6*p3p7*p3p4)*(-ffmcfmb*hbcm+hbcm)+16*(p4p7*p3p6*p3p4)*(-
0135 . ffmcfmb*hbcm-fmb+hbcm)+16*(p6p7*p3p5*p3p4)*(ffmcfmb*hbcm+fmb-
0136 . hbcm)+16*(p6p7*p3p4*p2p3)*(-2*ffmcfmb*hbcm-fmc)+16*(p3p7*p3p6)
0137 . *(ffmcfmb*fmc2*hbcm-fmc2*hbcm)+16*(p5p6*p3p7)*(-ffmcfmb*fmc*
0138 . hbcm2+fmc*hbcm2)+16*(p6p7*p3p5)*(ffmcfmb*fmc*hbcm2+fmb*fmc*
0139 . hbcm-fmc*hbcm2)+16*(p6p7*p2p3)*(-ffmcfmb*fmc*hbcm2-fmc2*hbcm)+
0140 . 16*(p4p6*p3p7)*(ffmcfmb*fmb*hbcm2+fmb*fmc*hbcm)+8*p6p7*(-
0141 . ffmcfmb*fmb*fmc*hbcm3-ffmcfmb*fmc2*hbcm3+fmb*fmc*hbcm3-fmb*
0142 . fmc2*hbcm2-fmb2*fmc*hbcm2+fmc2*hbcm3)+16*(p4p7*p3p6)*(-ffmcfmb
0143 . **2*hbcm3-ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3-
0144 . fmb*fmc*hbcm+fmc*hbcm2)+8*(p6p7*p3p4)*(-ffmcfmb**2*hbcm3-2*
0145 . ffmcfmb*fmb*hbcm2+ffmcfmb*hbcm3+fmb*hbcm2-fmb2*hbcm)+16*(p3p7*
0146 . p3p6*p3p4)*(ffmcfmb**2*hbcm+ffmcfmb*fmc-ffmcfmb*hbcm-fmc)+16*(
0147 . ffmcfmb*hbcm3*p2p4*p6p7+fmb*p3p4*p3p7*p4p6+fmc*hbcm2*p2p5*p6p7
0148 . +hbcm*p2p5*p3p4*p6p7))+ans6
0149 ans1=ans2+ans5
0150 ans=ccc*ans1
0151 b(1)=ans
0152 ans2=w1*(16*(p4p5*p3p7)*(ffmcfmb*hbcm-hbcm)+8*(p5p7*p3p4)*(-
0153 . ffmcfmb*hbcm-fmb+hbcm)+8*(p4p7*p3p4)*(ffmcfmb*hbcm+fmb-hbcm)+8
0154 . *p5p7*(-ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm+fmc*hbcm2)+8*(p3p7*p3p4
0155 . )*(ffmcfmb*fmb-ffmcfmb*fmc-fmb+fmc)+8*p3p7*(2*ffmcfmb*fmb*fmc*
0156 . hbcm-fmb*fmc*hbcm)+8*p4p7*(ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2+
0157 . ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3+fmb*fmc*hbcm-fmc*hbcm2)+16*(
0158 . ffmcfmb*hbcm*p2p3*p4p7-ffmcfmb*hbcm*p2p4*p3p7))+(4*p3p7*(-4*
0159 . fb2*ffmcfmb*fmb+4*fb2*ffmcfmb*fmc+4*fb2*fmb-4*fb2*fmc-fmb+fmc)
0160 . +4*p5p7*(4*fb1*ffmcfmb*hbcm-4*fb1*hbcm+4*fb2*fmb+hbcm)+4*p4p7*
0161 . (-4*fb1*ffmcfmb*hbcm+4*fb1*hbcm-4*fb2*fmb-hbcm))
0162 ans1=w8*(16*(p3p7*p2p5)*(ffmcfmb*hbcm-hbcm)+16*(p3p7*p2p4)*(-
0163 . ffmcfmb*hbcm+hbcm)+8*(p5p7*p2p3)*(-ffmcfmb*hbcm-fmb+hbcm)+8*(
0164 . p4p7*p2p3)*(ffmcfmb*hbcm+fmb-hbcm)+8*(p3p7*p2p3)*(ffmcfmb*fmb-
0165 . ffmcfmb*fmc-fmb+fmc))+w18*(8*p3p7*(fmb*fmc*hbcm-fmb2*hbcm)+8*(
0166 . p5p7*p3p5)*(-ffmcfmb*hbcm-fmb+hbcm)+8*(p4p7*p3p5)*(ffmcfmb*
0167 . hbcm+fmb-hbcm)+8*(p5p7*p3p4)*(-ffmcfmb*hbcm-fmb+hbcm)+8*(p4p7*
0168 . p3p4)*(ffmcfmb*hbcm+fmb-hbcm)+8*(p3p7*p3p5)*(ffmcfmb*fmb-
0169 . ffmcfmb*fmc-fmb+fmc)+8*(p3p7*p3p4)*(ffmcfmb*fmb-ffmcfmb*fmc-
0170 . fmb+fmc)+8*p5p7*(-ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*
0171 . fmc*hbcm2+ffmcfmb*hbcm3+fmb*fmc*hbcm-fmc*hbcm2)+8*p4p7*(
0172 . ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2-ffmcfmb*
0173 . hbcm3+fmb*fmc*hbcm+2*fmb*hbcm2-2*fmb2*hbcm-fmc*hbcm2)+16*(
0174 . ffmcfmb*hbcm*p2p3*p4p7-ffmcfmb*hbcm*p2p3*p5p7-ffmcfmb*hbcm*
0175 . p2p4*p3p7+ffmcfmb*hbcm*p2p5*p3p7-2*hbcm*p2p4*p5p7+2*hbcm*p2p5*
0176 . p4p7))+ans2
0177 ans=ccc*ans1
0178 b(2)=ans
0179 ans2=w18*(8*(p5p6*p3p5)*(ffmcfmb*hbcm+fmb-hbcm)+8*(p4p6*p3p5)*(
0180 . -ffmcfmb*hbcm-fmb+hbcm)+8*(p5p6*p3p4)*(ffmcfmb*hbcm+fmb-hbcm)+
0181 . 8*(p4p6*p3p4)*(-ffmcfmb*hbcm-fmb+hbcm)+8*p5p6*(ffmcfmb**2*
0182 . hbcm3+ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3-fmb*
0183 . fmc*hbcm+fmc*hbcm2)+8*p4p6*(-ffmcfmb**2*hbcm3+ffmcfmb*fmb*
0184 . hbcm2-ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3-fmb*fmc*hbcm-2*fmb*hbcm2
0185 . +2*fmb2*hbcm+fmc*hbcm2)+8*p3p6*(ffmcfmb**2*fmb*hbcm2-ffmcfmb**
0186 . 2*fmc*hbcm2-ffmcfmb*fmb*fmc*hbcm-ffmcfmb*fmb*hbcm2+ffmcfmb*
0187 . fmb2*hbcm+ffmcfmb*fmc*hbcm2)+16*(-ffmcfmb*hbcm*p2p3*p4p6+
0188 . ffmcfmb*hbcm*p2p3*p5p6+ffmcfmb*hbcm*p2p4*p3p6-ffmcfmb*hbcm*
0189 . p2p5*p3p6+2*hbcm*p2p4*p5p6-2*hbcm*p2p5*p4p6))+(4*p5p6*(-4*fb1*
0190 . ffmcfmb*hbcm+4*fb1*hbcm-4*fb2*fmb-hbcm)+4*p4p6*(4*fb1*ffmcfmb*
0191 . hbcm-4*fb1*hbcm+4*fb2*fmb+hbcm))
0192 ans1=w8*(8*(p5p6*p2p3)*(ffmcfmb*hbcm+fmb-hbcm)+8*(p4p6*p2p3)*(-
0193 . ffmcfmb*hbcm-fmb+hbcm))+w1*(8*(p5p6*p3p4)*(ffmcfmb*hbcm+fmb-
0194 . hbcm)+8*(p4p6*p3p4)*(-ffmcfmb*hbcm-fmb+hbcm)+8*p5p6*(ffmcfmb*
0195 . fmc*hbcm2+fmb*fmc*hbcm-fmc*hbcm2)+8*p4p6*(-ffmcfmb**2*hbcm3-
0196 . ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3-fmb*fmc*hbcm
0197 . +fmc*hbcm2)+8*p3p6*(-ffmcfmb**2*fmc*hbcm2-ffmcfmb*fmb*fmc*hbcm
0198 . +ffmcfmb*fmc*hbcm2)+16*(-ffmcfmb*hbcm*p2p3*p4p6+ffmcfmb*hbcm*
0199 . p2p4*p3p6))+ans2
0200 ans=ccc*ans1
0201 b(3)=ans
0202 ans3=((p5p6*p3p7)*(-32*fb2*ffmcfmb+32*fb2-8)+(p3p7*p3p6)*(-32*
0203 . fb2*ffmcfmb**2+32*fb2*ffmcfmb-16*ffmcfmb+8)+4*p6p7*(-4*fb1*
0204 . ffmcfmb*fmb*hbcm-4*fb1*ffmcfmb*fmc*hbcm+4*fb1*fmb*hbcm+4*fb1*
0205 . fmc*hbcm-4*fb2*fmb*fmc-4*fb2*fmb2+2*ffmcfmb*hbcm2+fmb*hbcm-fmc
0206 . *hbcm-2*hbcm2)+32*(-fb2*p2p4*p6p7+fb2*p2p5*p6p7))
0207 ans2=w18*((p5p6*p3p7*p3p5)*(16*ffmcfmb-16)+(p5p6*p3p7*p3p4)*(16
0208 . *ffmcfmb-16)+16*(p5p6*p4p7)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16
0209 . *(p5p7*p4p6)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(p6p7*p2p5)*(-
0210 . ffmcfmb*hbcm2+fmc*hbcm)+16*(p6p7*p2p4)*(ffmcfmb*hbcm2+2*fmb*
0211 . hbcm+fmc*hbcm)+8*(p6p7*p3p5)*(ffmcfmb*fmb*hbcm+ffmcfmb*fmc*
0212 . hbcm+fmb*fmc-fmb*hbcm+fmb2-fmc*hbcm)+8*(p6p7*p3p4)*(ffmcfmb*
0213 . fmb*hbcm+ffmcfmb*fmc*hbcm+fmb*fmc-fmb*hbcm+fmb2-fmc*hbcm)+16*(
0214 . p6p7*p2p3)*(ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm)+16*(p3p7*p3p6*
0215 . p3p5)*(ffmcfmb**2-ffmcfmb)+16*(p3p7*p3p6*p3p4)*(ffmcfmb**2-
0216 . ffmcfmb)+16*(p4p7*p3p6)*(-ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm+
0217 . ffmcfmb*hbcm2)+8*p6p7*(ffmcfmb**2*fmb*hbcm3+ffmcfmb**2*fmc*
0218 . hbcm3-ffmcfmb*fmb*hbcm3-ffmcfmb*fmc*hbcm3+fmb*fmc*hbcm2-fmb2*
0219 . fmc*hbcm+fmb2*hbcm2-fmb3*hbcm)+16*(fmb*hbcm*p3p7*p4p6+p2p4*
0220 . p3p4*p6p7+p2p4*p3p5*p6p7-p2p5*p3p4*p6p7-p2p5*p3p5*p6p7))+ans3
0221 ans1=w8*((p5p6*p3p7*p2p3)*(16*ffmcfmb-16)+16*(p6p7*p2p5)*(-
0222 . ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(p6p7*p2p4)*(ffmcfmb*hbcm2+
0223 . fmb*hbcm-hbcm2)+8*(p6p7*p2p3)*(ffmcfmb*fmb*hbcm+ffmcfmb*fmc*
0224 . hbcm+fmb*fmc-fmb*hbcm+fmb2-fmc*hbcm)+16*(p3p7*p3p6*p2p3)*(
0225 . ffmcfmb**2-ffmcfmb)+16*(p2p3*p2p4*p6p7-p2p3*p2p5*p6p7))+w1*((
0226 . p5p6*p3p7*p3p4)*(16*ffmcfmb-16)+16*(p6p7*p4p5)*(-ffmcfmb*hbcm2
0227 . -fmb*hbcm+hbcm2)+16*(p6p7*p2p4)*(ffmcfmb*hbcm2+fmc*hbcm)+16*(
0228 . p5p6*p3p7)*(ffmcfmb*fmc*hbcm-fmc*hbcm)+8*(p6p7*p3p4)*(ffmcfmb*
0229 . fmb*hbcm+ffmcfmb*fmc*hbcm+fmb*fmc-fmb*hbcm+fmb2-fmc*hbcm)+16*(
0230 . p3p7*p3p6*p3p4)*(ffmcfmb**2-ffmcfmb)+16*(p4p7*p3p6)*(-ffmcfmb
0231 . **2*hbcm2-ffmcfmb*fmb*hbcm+ffmcfmb*hbcm2)+8*p6p7*(ffmcfmb**2*
0232 . fmc*hbcm3+2*ffmcfmb*fmb*fmc*hbcm2-ffmcfmb*fmc*hbcm3-fmb*fmc*
0233 . hbcm2+fmb2*fmc*hbcm)+16*(ffmcfmb*fmb*hbcm*p3p7*p4p6+ffmcfmb*
0234 . fmc*hbcm*p2p3*p6p7-fmc*hbcm*p2p5*p6p7+p2p4*p3p4*p6p7-p2p5*p3p4
0235 . *p6p7))+ans2
0236 ans=ccc*ans1
0237 b(4)=ans
0238 ans3=((p3p7*p3p5)*(32*fb2*ffmcfmb-32*fb2+8)+4*p5p7*(-4*fb1*fmb*
0239 . hbcm-4*fb2*ffmcfmb*hbcm2+4*fb2*hbcm2+hbcm2)+4*p3p7*(4*fb1*
0240 . ffmcfmb*fmb*hbcm+4*fb1*ffmcfmb*fmc*hbcm-4*fb1*fmb*hbcm-4*fb1*
0241 . fmc*hbcm+4*fb2*ffmcfmb**2*hbcm2-4*fb2*ffmcfmb*hbcm2+4*fb2*fmb*
0242 . fmc-fmb*hbcm+fmc*hbcm+hbcm2)+32*(-fb2*p2p3*p4p7+fb2*p2p4*p3p7)
0243 . )
0244 ans2=w18*((p3p7*p3p5*p3p4)*(-16*ffmcfmb+16)+8*(p5p7*p3p5)*(
0245 . ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(p4p7*p3p5)*(ffmcfmb*hbcm2+
0246 . fmb*hbcm-hbcm2)+8*(p5p7*p3p4)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+
0247 . 16*(p3p7*p2p5)*(ffmcfmb*hbcm2-fmc*hbcm)+16*(p3p7*p2p4)*(-
0248 . ffmcfmb*hbcm2-fmb*hbcm-fmc*hbcm)+16*(p5p7*p2p3)*(-ffmcfmb*
0249 . hbcm2+fmc*hbcm)+16*(p4p7*p2p3)*(ffmcfmb*hbcm2+fmb*hbcm+fmc*
0250 . hbcm)+8*p4p7*(ffmcfmb**2*hbcm4-ffmcfmb*hbcm4+fmb*hbcm3-fmb2*
0251 . hbcm2)+8*(p3p7*p3p5)*(-ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm-
0252 . ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-fmb*fmc+fmb*hbcm+fmc*hbcm)+8*(
0253 . p3p7*p3p4)*(-ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm-ffmcfmb*fmc*
0254 . hbcm+ffmcfmb*hbcm2-fmb*fmc-fmb*hbcm+fmc*hbcm)+8*p3p7*(-ffmcfmb
0255 . **2*fmb*hbcm3-ffmcfmb**2*fmc*hbcm3+ffmcfmb*fmb*hbcm3+ffmcfmb*
0256 . fmc*hbcm3-2*ffmcfmb*p3p5s2-fmb*fmc*hbcm2-fmb*fmc2*hbcm+fmb2*
0257 . fmc*hbcm-fmb2*hbcm2+2*p3p5s2)+16*(-fmb*hbcm*p3p7*p4p5-hbcm2*
0258 . p2p4*p5p7+hbcm2*p2p5*p4p7+p2p3*p3p4*p4p7+p2p3*p3p5*p4p7-p2p4*
0259 . p3p4*p3p7-p2p4*p3p5*p3p7))+ans3
0260 ans1=w8*((p3p7*p3p5*p2p3)*(-16*ffmcfmb+16)+16*(p3p7*p2p5)*(
0261 . ffmcfmb*hbcm2-hbcm2)+16*(p3p7*p2p4)*(-ffmcfmb*hbcm2-fmb*hbcm+
0262 . hbcm2)+8*(p5p7*p2p3)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(p4p7*
0263 . p2p3)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(p3p7*p2p3)*(-ffmcfmb**
0264 . 2*hbcm2+ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-fmb*
0265 . fmc-fmb*hbcm-fmc*hbcm)+16*(-p2p3*p2p4*p3p7+p2p3s2*p4p7))+w1*((
0266 . p3p7*p3p5*p3p4)*(-16*ffmcfmb+16)+16*(p4p5*p3p7)*(ffmcfmb*hbcm2
0267 . -hbcm2)+8*(p5p7*p3p4)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(p3p7*
0268 . p2p4)*(-ffmcfmb*hbcm2-fmc*hbcm)+16*(p4p7*p2p3)*(ffmcfmb*hbcm2+
0269 . fmc*hbcm)+8*p5p7*(ffmcfmb*fmc*hbcm3+fmb*fmc*hbcm2-fmc*hbcm3)+
0270 . 16*(p3p7*p3p5)*(-ffmcfmb*fmc*hbcm+fmc*hbcm)+8*p4p7*(ffmcfmb**2
0271 . *hbcm4+ffmcfmb*fmb*hbcm3-ffmcfmb*hbcm4)+8*(p3p7*p3p4)*(-
0272 . ffmcfmb**2*hbcm2-3*ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm+ffmcfmb*
0273 . hbcm2-fmb*fmc+fmb*hbcm+fmc*hbcm)+8*p3p7*(-ffmcfmb**2*fmc*hbcm3
0274 . -2*ffmcfmb*fmb*fmc*hbcm2+ffmcfmb*fmc*hbcm3+fmb*fmc*hbcm2-fmb*
0275 . fmc2*hbcm)+16*(p2p3*p3p4*p4p7-p2p4*p3p4*p3p7))+ans2
0276 ans=ccc*ans1
0277 b(5)=ans
0278 ans3=((p3p6*p2p3)*(32*fb2*ffmcfmb+8)+4*p5p6*(4*fb1*fmb*hbcm+4*
0279 . fb2*ffmcfmb*hbcm2-4*fb2*hbcm2-hbcm2)+4*p3p6*(8*fb1*ffmcfmb*fmb
0280 . *hbcm+4*fb1*ffmcfmb*fmc*hbcm-4*fb1*fmb*hbcm-4*fb1*fmc*hbcm+4*
0281 . fb2*ffmcfmb**2*hbcm2-4*fb2*ffmcfmb*hbcm2+4*fb2*fmb*fmc+4*fb2*
0282 . fmb2-2*ffmcfmb*hbcm2+fmc*hbcm+hbcm2)+32*(fb2*p2p3*p4p6+fb2*
0283 . p2p4*p3p6-fb2*p2p5*p3p6))
0284 ans2=w18*(16*(p3p6*p2p4)*(-2*fmb*hbcm-fmc*hbcm)+8*(p5p6*p3p5)*(
0285 . -ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(p4p6*p3p5)*(-ffmcfmb*hbcm2-
0286 . fmb*hbcm+hbcm2)+8*(p5p6*p3p4)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+
0287 . 16*(p3p6*p2p5)*(ffmcfmb*hbcm2-fmc*hbcm)+16*(p5p6*p2p3)*(
0288 . ffmcfmb*hbcm2-fmc*hbcm)+16*(p4p6*p2p3)*(-ffmcfmb*hbcm2-fmb*
0289 . hbcm-fmc*hbcm)+32*(p3p6*p2p3)*(-ffmcfmb*fmb*hbcm-ffmcfmb*fmc*
0290 . hbcm)+8*p4p6*(-ffmcfmb**2*hbcm4+ffmcfmb*hbcm4-fmb*hbcm3+fmb2*
0291 . hbcm2)+8*(p3p6*p3p5)*(-ffmcfmb**2*hbcm2-2*ffmcfmb*fmb*hbcm-
0292 . ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-fmb*fmc+fmb*hbcm-fmb2+fmc*hbcm)
0293 . +8*(p3p6*p3p4)*(ffmcfmb**2*hbcm2-ffmcfmb*fmc*hbcm-ffmcfmb*
0294 . hbcm2-fmb*fmc+fmb*hbcm-fmb2+fmc*hbcm)+8*p3p6*(-ffmcfmb**2*fmb*
0295 . hbcm3-ffmcfmb**2*fmc*hbcm3+ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*hbcm3
0296 . -fmb*fmc*hbcm2+fmb2*fmc*hbcm-fmb2*hbcm2+fmb3*hbcm)+16*(-
0297 . ffmcfmb*p2p3*p3p4*p3p6-ffmcfmb*p2p3*p3p5*p3p6+hbcm2*p2p4*p5p6-
0298 . hbcm2*p2p5*p4p6-p2p3*p3p4*p4p6-p2p3*p3p5*p4p6-p2p4*p3p4*p3p6-
0299 . p2p4*p3p5*p3p6+p2p5*p3p4*p3p6+p2p5*p3p5*p3p6))+ans3
0300 ans1=w8*(16*(p3p6*p2p5)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(p3p6
0301 . *p2p4)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(p5p6*p2p3)*(ffmcfmb*
0302 . hbcm2+fmb*hbcm-hbcm2)+16*(p4p6*p2p3)*(-ffmcfmb*hbcm2-fmb*hbcm+
0303 . hbcm2)+8*(p3p6*p2p3)*(-ffmcfmb**2*hbcm2-2*ffmcfmb*fmb*hbcm-
0304 . ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-fmb*fmc+fmb*hbcm-fmb2+fmc*hbcm)
0305 . +16*(-ffmcfmb*p2p3s2*p3p6-p2p3*p2p4*p3p6+p2p3*p2p5*p3p6-p2p3s2
0306 . *p4p6))+w1*(16*(p4p5*p3p6)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(
0307 . p5p6*p3p4)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(p4p6*p2p3)*(-
0308 . ffmcfmb*hbcm2-fmc*hbcm)+8*p5p6*(-ffmcfmb*fmc*hbcm3-fmb*fmc*
0309 . hbcm2+fmc*hbcm3)+8*p4p6*(-ffmcfmb**2*hbcm4-ffmcfmb*fmb*hbcm3+
0310 . ffmcfmb*hbcm4)+8*(p3p6*p3p4)*(ffmcfmb**2*hbcm2-ffmcfmb*fmc*
0311 . hbcm-ffmcfmb*hbcm2-fmb*fmc+fmb*hbcm-fmb2+fmc*hbcm)+8*p3p6*(-
0312 . ffmcfmb**2*fmc*hbcm3-2*ffmcfmb*fmb*fmc*hbcm2+ffmcfmb*fmc*hbcm3
0313 . +fmb*fmc*hbcm2-fmb2*fmc*hbcm)+16*(-2*ffmcfmb*fmc*hbcm*p2p3*
0314 . p3p6-ffmcfmb*p2p3*p3p4*p3p6-fmc*hbcm*p2p4*p3p6+fmc*hbcm*p2p5*
0315 . p3p6-p2p3*p3p4*p4p6-p2p4*p3p4*p3p6+p2p5*p3p4*p3p6))+ans2
0316 ans=ccc*ans1
0317 b(6)=ans
0318 ans2=w18*(8*p4p5*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*p2p5*(-
0319 . ffmcfmb*hbcm2+fmc*hbcm)+8*p2p4*(ffmcfmb*hbcm2+3*fmb*hbcm+2*fmc
0320 . *hbcm)+16*p2p3*(ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm)+4*p3p5*(
0321 . ffmcfmb**2*hbcm2+2*ffmcfmb*fmb*hbcm+2*ffmcfmb*fmc*hbcm-ffmcfmb
0322 . *hbcm2+2*fmb*fmc-fmb*hbcm+fmb2-2*fmc*hbcm)+4*p3p4*(ffmcfmb**2*
0323 . hbcm2+2*ffmcfmb*fmb*hbcm+2*ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2+2*
0324 . fmb*fmc-fmb*hbcm+fmb2-2*fmc*hbcm)+4*(2*ffmcfmb**2*fmb*hbcm3+2*
0325 . ffmcfmb**2*fmc*hbcm3-2*ffmcfmb*fmb*hbcm3+ffmcfmb*fmb2*hbcm2-2*
0326 . ffmcfmb*fmc*hbcm3+ffmcfmb*fmc2*hbcm2+2*ffmcfmb*p2p3*p3p4+2*
0327 . ffmcfmb*p2p3*p3p5+2*fmb*fmc*hbcm2+fmb*fmc2*hbcm-2*fmb2*fmc*
0328 . hbcm+fmb2*hbcm2-fmb3*hbcm-fmc2*hbcm2+4*p2p4*p3p4+4*p2p4*p3p5-2
0329 . *p2p5*p3p4-2*p2p5*p3p5))+(p2p3*(-16*fb2*ffmcfmb-4)+2*(-8*fb1*
0330 . ffmcfmb*fmb*hbcm-8*fb1*ffmcfmb*fmc*hbcm+4*fb1*fmb*hbcm+8*fb1*
0331 . fmc*hbcm-4*fb2*ffmcfmb**2*hbcm2+4*fb2*ffmcfmb*hbcm2-8*fb2*fmb*
0332 . fmc-4*fb2*fmb2-16*fb2*p2p4+8*fb2*p2p5+2*ffmcfmb*hbcm2-2*fmc*
0333 . hbcm-hbcm2))
0334 ans1=w8*(8*p2p5*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*p2p4*(
0335 . ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+4*p2p3*(ffmcfmb**2*hbcm2+2*
0336 . ffmcfmb*fmb*hbcm+2*ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2+2*fmb*fmc-
0337 . fmb*hbcm+fmb2-2*fmc*hbcm)+8*(ffmcfmb*p2p3s2+2*p2p3*p2p4-p2p3*
0338 . p2p5))+w1*(8*p4p5*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*p2p4*(
0339 . ffmcfmb*hbcm2+2*fmc*hbcm)+4*p3p4*(ffmcfmb**2*hbcm2+2*ffmcfmb*
0340 . fmb*hbcm+2*ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2+2*fmb*fmc-fmb*hbcm+
0341 . fmb2-2*fmc*hbcm)+4*(2*ffmcfmb**2*fmc*hbcm3+3*ffmcfmb*fmb*fmc*
0342 . hbcm2+4*ffmcfmb*fmc*hbcm*p2p3-2*ffmcfmb*fmc*hbcm3+ffmcfmb*fmc2
0343 . *hbcm2+2*ffmcfmb*p2p3*p3p4-fmb*fmc*hbcm2+fmb*fmc2*hbcm+fmb2*
0344 . fmc*hbcm-2*fmc*hbcm*p2p5-fmc2*hbcm2+4*p2p4*p3p4-2*p2p5*p3p4))+
0345 . ans2
0346 ans=ccc*ans1
0347 b(7)=ans
0348 ans3=(4*p3p5*(4*fb1*ffmcfmb*hbcm-4*fb1*hbcm+4*fb2*fmb+hbcm)+4*
0349 . p3p4*(-4*fb1*ffmcfmb*hbcm+4*fb1*hbcm-4*fb2*fmb-hbcm)+4*p2p3*(-
0350 . 4*fb1*ffmcfmb*hbcm-4*fb2*fmc+3*hbcm)+2*(4*fb1*fmb*fmc*hbcm-4*
0351 . fb1*fmb2*hbcm-8*fb1*hbcm*p2p4+8*fb1*hbcm*p2p5-4*fb2*ffmcfmb*
0352 . fmb*hbcm2+4*fb2*ffmcfmb*fmc*hbcm2+4*fb2*fmb*hbcm2-4*fb2*fmc*
0353 . hbcm2+fmb*hbcm2-fmc*hbcm2))
0354 ans2=w18*(8*p2p5*(ffmcfmb*hbcm3+fmc*hbcm2)+8*p2p4*(-ffmcfmb*
0355 . hbcm3-2*fmb*hbcm2+fmc*hbcm2)+8*(p3p5*p2p3)*(-ffmcfmb*hbcm+fmc)
0356 . +8*(p3p4*p2p3)*(3*ffmcfmb*hbcm+fmc)+8*p2p3*(-2*ffmcfmb*fmb*
0357 . hbcm2+2*ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm+fmc2*hbcm)+4*p3p5*(-2*
0358 . ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+2*ffmcfmb
0359 . *hbcm3+fmb*fmc*hbcm-fmb*hbcm2+fmb2*hbcm-fmc*hbcm2)+4*p3p4*(2*
0360 . ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2-2*ffmcfmb
0361 . *hbcm3+fmb*fmc*hbcm+3*fmb*hbcm2-3*fmb2*hbcm-fmc*hbcm2)+4*(-
0362 . ffmcfmb**2*fmb*hbcm4+ffmcfmb**2*fmc*hbcm4+ffmcfmb*fmb*hbcm4-
0363 . ffmcfmb*fmc*hbcm4+2*ffmcfmb*hbcm*p3p4s2-2*ffmcfmb*hbcm*p3p5s2+
0364 . fmb*fmc*hbcm3+2*fmb*p3p4s2-2*fmb*p3p5s2-fmb2*fmc*hbcm2-fmb2*
0365 . hbcm3+fmb3*hbcm2+4*hbcm*p2p3*p4p5+2*hbcm*p2p4*p3p4-6*hbcm*p2p4
0366 . *p3p5+6*hbcm*p2p5*p3p4-2*hbcm*p2p5*p3p5-2*hbcm*p3p4s2+2*hbcm*
0367 . p3p5s2))+ans3
0368 ans1=w8*(8*p2p5*(ffmcfmb*hbcm3+fmb*hbcm2-hbcm3)+8*p2p4*(-
0369 . ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+8*(p3p5*p2p3)*(-ffmcfmb*hbcm-
0370 . fmb+hbcm)+8*(p3p4*p2p3)*(ffmcfmb*hbcm+fmb-hbcm)+4*p2p3*(-2*
0371 . ffmcfmb**2*hbcm3-3*ffmcfmb*fmb*hbcm2+3*ffmcfmb*fmc*hbcm2+2*
0372 . ffmcfmb*hbcm3+3*fmb*fmc*hbcm+fmb*hbcm2-fmb2*hbcm-3*fmc*hbcm2)+
0373 . 8*(-ffmcfmb*hbcm*p2p3s2+fmc*p2p3s2-hbcm*p2p3*p2p4+hbcm*p2p3*
0374 . p2p5))+w1*(8*p4p5*(ffmcfmb*hbcm3+fmb*hbcm2-hbcm3)+8*p2p4*(-
0375 . ffmcfmb*hbcm3+fmc*hbcm2)+8*(p3p5*p3p4)*(-ffmcfmb*hbcm-fmb+hbcm
0376 . )+8*(p3p4*p2p3)*(3*ffmcfmb*hbcm+fmc)+8*p3p5*(-ffmcfmb*fmc*
0377 . hbcm2-fmb*fmc*hbcm+fmc*hbcm2)+8*p2p3*(2*ffmcfmb*fmc*hbcm2+fmc2
0378 . *hbcm)+4*p3p4*(2*ffmcfmb**2*hbcm3+3*ffmcfmb*fmb*hbcm2+ffmcfmb*
0379 . fmc*hbcm2-2*ffmcfmb*hbcm3+fmb*fmc*hbcm-fmb*hbcm2+fmb2*hbcm-fmc
0380 . *hbcm2)+4*(ffmcfmb**2*fmc*hbcm4+2*ffmcfmb*fmb*fmc*hbcm3-
0381 . ffmcfmb*fmc*hbcm4+2*ffmcfmb*hbcm*p3p4s2-fmb*fmc*hbcm3+2*fmb*
0382 . p3p4s2+fmb2*fmc*hbcm2-2*fmc*hbcm2*p2p5+2*hbcm*p2p4*p3p4-2*hbcm
0383 . *p2p5*p3p4-2*hbcm*p3p4s2))+ans2
0384 ans=ccc*ans1
0385 b(8)=ans
0386 ans=ccc*(w1*(8*p4p6*(ffmcfmb*hbcm3-fmc*hbcm2)+8*(p3p6*p3p4)*(-
0387 . ffmcfmb*hbcm-fmb+2*fmc)+8*p3p6*(ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm
0388 . +fmc2*hbcm)+8*(fmc*hbcm2*p5p6-hbcm*p3p4*p4p6+hbcm*p3p4*p5p6-2*
0389 . hbcm*p3p6*p4p5))+w18*(8*p5p6*(-ffmcfmb*hbcm3-fmc*hbcm2)+8*p4p6
0390 . *(ffmcfmb*hbcm3+2*fmb*hbcm2-fmc*hbcm2)+8*(p3p6*p3p5)*(3*
0391 . ffmcfmb*hbcm-fmb+2*fmc)+8*(p3p6*p3p4)*(-ffmcfmb*hbcm-fmb+2*fmc
0392 . )+8*p3p6*(-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+2*fmb*fmc*hbcm-
0393 . fmb2*hbcm+fmc2*hbcm)+8*(-hbcm*p3p4*p4p6-3*hbcm*p3p4*p5p6+3*
0394 . hbcm*p3p5*p4p6+hbcm*p3p5*p5p6+2*hbcm*p3p6*p4p5))+w8*(8*p5p6*(-
0395 . ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+8*p4p6*(ffmcfmb*hbcm3+fmb*hbcm2
0396 . -hbcm3)+8*(p3p6*p2p3)*(-ffmcfmb*hbcm-fmb+2*fmc)+8*p3p6*(-
0397 . ffmcfmb**2*hbcm3-2*ffmcfmb*fmb*hbcm2+2*ffmcfmb*fmc*hbcm2+
0398 . ffmcfmb*hbcm3+2*fmb*fmc*hbcm+fmb*hbcm2-fmb2*hbcm-2*fmc*hbcm2)+
0399 . 8*(hbcm*p2p3*p4p6-hbcm*p2p3*p5p6))+(4*p3p6*(-4*fb1*ffmcfmb*
0400 . hbcm+4*fb2*fmb-8*fb2*fmc+3*hbcm)+16*(fb1*hbcm*p4p6-fb1*hbcm*
0401 . p5p6)))
0402 b(9)=ans
0403 b(10)=ccc*(w1*(8*p4p6*(ffmcfmb*hbcm2+2*fmc*hbcm)+8*(2*ffmcfmb*
0404 . fmc*hbcm*p3p6+ffmcfmb*p3p4*p3p6-fmc*hbcm*p5p6+2*p3p4*p4p6-p3p4
0405 . *p5p6))+w18*(16*p5p6*(-ffmcfmb*hbcm2+fmc*hbcm)+8*p4p6*(ffmcfmb
0406 . *hbcm2+3*fmb*hbcm+2*fmc*hbcm)+16*p3p6*(ffmcfmb*fmb*hbcm+
0407 . ffmcfmb*fmc*hbcm)+8*(ffmcfmb*p3p4*p3p6+ffmcfmb*p3p5*p3p6+2*
0408 . p3p4*p4p6-p3p4*p5p6+2*p3p5*p4p6-p3p5*p5p6))+w8*(8*p5p6*(-
0409 . ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*p4p6*(ffmcfmb*hbcm2+fmb*hbcm-
0410 . hbcm2)+8*p3p6*(ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm-ffmcfmb*hbcm2
0411 . )+8*(ffmcfmb*p2p3*p3p6+2*p2p3*p4p6-p2p3*p5p6))+(p3p6*(-16*fb2*
0412 . ffmcfmb-4)+16*(-2*fb2*p4p6+fb2*p5p6)))
0413 ans=ccc*(w1*(4*p3p4*(-3*ffmcfmb*hbcm2+fmb*hbcm-2*fmc*hbcm)+4*(-
0414 . 2*ffmcfmb*fmc*hbcm3+fmb*fmc*hbcm2+2*fmc*hbcm*p3p5+fmc2*hbcm2-2
0415 . *hbcm2*p4p5+2*p3p4*p3p5-4*p3p4s2))+w18*(4*p3p5*(3*ffmcfmb*
0416 . hbcm2+fmb*hbcm-2*fmc*hbcm)+4*p3p4*(-3*ffmcfmb*hbcm2-5*fmb*hbcm
0417 . -2*fmc*hbcm)+4*(-2*ffmcfmb*fmb*hbcm3-2*ffmcfmb*fmc*hbcm3-2*fmb
0418 . *fmc*hbcm2-fmb2*hbcm2+fmc2*hbcm2+2*hbcm2*p4p5-2*p3p4*p3p5-4*
0419 . p3p4s2+2*p3p5s2))+w8*(8*p3p5*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16
0420 . *p3p4*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+4*p2p3*(-ffmcfmb*hbcm2-
0421 . fmb*hbcm-2*fmc*hbcm)+4*(-ffmcfmb**2*hbcm4-2*ffmcfmb*fmb*hbcm3-
0422 . 2*ffmcfmb*fmc*hbcm3+ffmcfmb*hbcm4-2*fmb*fmc*hbcm2+fmb*hbcm3-
0423 . fmb2*hbcm2+2*fmc*hbcm3-4*p2p3*p3p4+2*p2p3*p3p5))+2*(-4*fb1*fmb
0424 . *hbcm-8*fb1*fmc*hbcm+4*fb2*ffmcfmb*hbcm2+16*fb2*p3p4-8*fb2*
0425 . p3p5+3*hbcm2))
0426 b(11)=ans
0427 ans=ccc*(w1*(8*p4p7*(ffmcfmb*hbcm3-fmc*hbcm2)+8*(p3p7*p3p4)*(-3
0428 . *ffmcfmb*hbcm-fmc)+8*p3p7*(-2*ffmcfmb*fmc*hbcm2-fmc2*hbcm)+8*(
0429 . fmc*hbcm2*p5p7-hbcm*p3p4*p4p7+hbcm*p3p4*p5p7))+w18*(8*p5p7*(-
0430 . ffmcfmb*hbcm3-fmc*hbcm2)+8*p4p7*(ffmcfmb*hbcm3+2*fmb*hbcm2-fmc
0431 . *hbcm2)+8*(p3p7*p3p5)*(ffmcfmb*hbcm-fmc)+8*(p3p7*p3p4)*(-3*
0432 . ffmcfmb*hbcm-fmc)+8*p3p7*(2*ffmcfmb*fmb*hbcm2-2*ffmcfmb*fmc*
0433 . hbcm2-fmb*fmc*hbcm-fmc2*hbcm)+8*(-hbcm*p3p4*p4p7-3*hbcm*p3p4*
0434 . p5p7+3*hbcm*p3p5*p4p7+hbcm*p3p5*p5p7-2*hbcm*p3p7*p4p5))+w8*(8*
0435 . p5p7*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+8*p4p7*(ffmcfmb*hbcm3+
0436 . fmb*hbcm2-hbcm3)+16*(p3p7*p3p5)*(ffmcfmb*hbcm-hbcm)+16*(p3p7*
0437 . p3p4)*(-ffmcfmb*hbcm+hbcm)+8*(p3p7*p2p3)*(ffmcfmb*hbcm-fmc)+8*
0438 . p3p7*(ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*hbcm2-2*ffmcfmb*fmc*hbcm2
0439 . -ffmcfmb*hbcm3-fmb*fmc*hbcm-fmb*hbcm2+2*fmc*hbcm2)+8*(hbcm*
0440 . p2p3*p4p7-hbcm*p2p3*p5p7))+(4*p3p7*(4*fb1*ffmcfmb*hbcm+4*fb2*
0441 . fmc-3*hbcm)+16*(fb1*hbcm*p4p7-fb1*hbcm*p5p7)))
0442 b(12)=ans
0443 b(13)=ccc*(w1*(4*p3p4*(-2*ffmcfmb*hbcm+fmb-3*fmc)+4*(-3*ffmcfmb
0444 . *fmc*hbcm2+fmb*fmc*hbcm-2*fmc2*hbcm+2*hbcm*p4p5))+w18*(4*p3p5*
0445 . (-2*ffmcfmb*hbcm+fmb-3*fmc)+4*p3p4*(-2*ffmcfmb*hbcm+fmb-3*fmc)
0446 . +4*(3*ffmcfmb*fmb*hbcm2-3*ffmcfmb*fmc*hbcm2-3*fmb*fmc*hbcm+
0447 . fmb2*hbcm-2*fmc2*hbcm-4*hbcm*p4p5))+w8*(4*p2p3*(2*ffmcfmb*hbcm
0448 . +fmb-3*fmc)+4*(2*ffmcfmb**2*hbcm3+3*ffmcfmb*fmb*hbcm2-3*
0449 . ffmcfmb*fmc*hbcm2-2*ffmcfmb*hbcm3-3*fmb*fmc*hbcm-fmb*hbcm2+
0450 . fmb2*hbcm+3*fmc*hbcm2))+4*(4*fb1*ffmcfmb*hbcm-2*fb2*fmb+6*fb2*
0451 . fmc-3*hbcm))
0452 b(14)=ccc*(w1*(8*p4p7*(-ffmcfmb*hbcm2-2*fmc*hbcm)+8*(-2*ffmcfmb
0453 . *fmc*hbcm*p3p7-ffmcfmb*p3p4*p3p7+fmc*hbcm*p5p7-2*p3p4*p4p7+
0454 . p3p4*p5p7))+w8*(8*p5p7*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*p4p7*
0455 . (-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*p3p7*(-2*ffmcfmb*fmb*hbcm-2*
0456 . ffmcfmb*fmc*hbcm+fmb*hbcm+2*fmc*hbcm)+8*(-ffmcfmb*p2p3*p3p7-2*
0457 . p2p3*p4p7+p2p3*p5p7))+w18*(16*p5p7*(ffmcfmb*hbcm2-fmc*hbcm)+8*
0458 . p4p7*(-ffmcfmb*hbcm2-3*fmb*hbcm-2*fmc*hbcm)+16*p3p7*(-ffmcfmb*
0459 . fmb*hbcm-ffmcfmb*fmc*hbcm)+8*(-ffmcfmb*p3p4*p3p7-ffmcfmb*p3p5*
0460 . p3p7-2*p3p4*p4p7+p3p4*p5p7-2*p3p5*p4p7+p3p5*p5p7))+(p3p7*(16*
0461 . fb2*ffmcfmb+4)+16*(2*fb2*p4p7-fb2*p5p7)))
0462 ans2=w18*(16*(p4p7*p3p6)*(2*fmb*hbcm+fmc*hbcm)+16*(p5p6*p3p7)*(
0463 . -ffmcfmb*hbcm2+fmc*hbcm)+16*(p4p6*p3p7)*(ffmcfmb*hbcm2+fmb*
0464 . hbcm+fmc*hbcm)+16*(p5p7*p3p6)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(
0465 . p6p7*p3p5)*(2*ffmcfmb*hbcm2+fmb*hbcm-fmc*hbcm)+8*(p6p7*p3p4)*(
0466 . -2*ffmcfmb*hbcm2-3*fmb*hbcm-fmc*hbcm)+8*p6p7*(-ffmcfmb*fmb*
0467 . hbcm3-ffmcfmb*fmc*hbcm3-fmb*fmc*hbcm2-fmb2*hbcm2-2*p3p4s2+2*
0468 . p3p5s2)+32*(p3p7*p3p6)*(ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm)+16*
0469 . (ffmcfmb*p3p4*p3p6*p3p7+ffmcfmb*p3p5*p3p6*p3p7+hbcm2*p4p6*p5p7
0470 . -hbcm2*p4p7*p5p6+p3p4*p3p6*p4p7-p3p4*p3p6*p5p7+p3p4*p3p7*p4p6+
0471 . p3p5*p3p6*p4p7-p3p5*p3p6*p5p7+p3p5*p3p7*p4p6))+((p3p7*p3p6)*(-
0472 . 32*fb2*ffmcfmb-8)+8*p6p7*(-2*fb1*fmb*hbcm-2*fb1*fmc*hbcm+hbcm2
0473 . )+32*(fb2*p3p4*p6p7-fb2*p3p5*p6p7-fb2*p3p6*p4p7+fb2*p3p6*p5p7-
0474 . fb2*p3p7*p4p6))
0475 ans1=w1*(16*(p4p6*p3p7)*(ffmcfmb*hbcm2+fmc*hbcm)+8*(p6p7*p3p4)*
0476 . (-2*ffmcfmb*hbcm2+fmb*hbcm-fmc*hbcm)+8*p6p7*(-ffmcfmb*fmc*
0477 . hbcm3+fmb*fmc*hbcm2-2*p3p4s2)+16*(2*ffmcfmb*fmc*hbcm*p3p6*p3p7
0478 . +ffmcfmb*p3p4*p3p6*p3p7+fmc*hbcm*p3p5*p6p7+fmc*hbcm*p3p6*p4p7-
0479 . fmc*hbcm*p3p6*p5p7-hbcm2*p4p5*p6p7+p3p4*p3p5*p6p7+p3p4*p3p6*
0480 . p4p7-p3p4*p3p6*p5p7+p3p4*p3p7*p4p6))+w8*(8*(p6p7*p2p3)*(-fmb*
0481 . hbcm-fmc*hbcm)+16*(p5p6*p3p7)*(-ffmcfmb*hbcm2+hbcm2)+16*(p4p6*
0482 . p3p7)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(p5p7*p3p6)*(-ffmcfmb*
0483 . hbcm2-fmb*hbcm+hbcm2)+16*(p4p7*p3p6)*(ffmcfmb*hbcm2+fmb*hbcm-
0484 . hbcm2)+16*(p6p7*p3p5)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(p6p7*
0485 . p3p4)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*p6p7*(-ffmcfmb*fmb*
0486 . hbcm3-ffmcfmb*fmc*hbcm3-fmb*fmc*hbcm2+fmb*hbcm3-fmb2*hbcm2+fmc
0487 . *hbcm3)+16*(p3p7*p3p6)*(2*ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm-
0488 . fmb*hbcm-fmc*hbcm)+16*(ffmcfmb*p2p3*p3p6*p3p7-p2p3*p3p4*p6p7+
0489 . p2p3*p3p5*p6p7+p2p3*p3p6*p4p7-p2p3*p3p6*p5p7+p2p3*p3p7*p4p6))+
0490 . ans2
0491 ans=ccc*ans1
0492 b(15)=ans
0493 ans=ccc*(w1*(8*(p6p7*p3p4)*(ffmcfmb*hbcm-fmb+2*fmc)+8*p6p7*(2*
0494 . ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm+fmc2*hbcm)+16*(-ffmcfmb*hbcm*
0495 . p3p6*p4p7+ffmcfmb*hbcm*p3p7*p4p6-hbcm*p4p5*p6p7))+w18*(8*(p6p7
0496 . *p3p5)*(ffmcfmb*hbcm-fmb+2*fmc)+8*(p6p7*p3p4)*(ffmcfmb*hbcm-
0497 . fmb+2*fmc)+8*p6p7*(-2*ffmcfmb*fmb*hbcm2+2*ffmcfmb*fmc*hbcm2+2*
0498 . fmb*fmc*hbcm-fmb2*hbcm+fmc2*hbcm)+16*(-ffmcfmb*hbcm*p3p6*p4p7+
0499 . ffmcfmb*hbcm*p3p6*p5p7+ffmcfmb*hbcm*p3p7*p4p6-ffmcfmb*hbcm*
0500 . p3p7*p5p6+hbcm*p4p5*p6p7+2*hbcm*p4p6*p5p7-2*hbcm*p4p7*p5p6))+
0501 . w8*(16*(p5p6*p3p7)*(-ffmcfmb*hbcm+hbcm)+16*(p4p6*p3p7)*(
0502 . ffmcfmb*hbcm-hbcm)+8*(p6p7*p2p3)*(-ffmcfmb*hbcm-fmb+2*fmc)+8*
0503 . p6p7*(-ffmcfmb**2*hbcm3-2*ffmcfmb*fmb*hbcm2+2*ffmcfmb*fmc*
0504 . hbcm2+ffmcfmb*hbcm3+2*fmb*fmc*hbcm+fmb*hbcm2-fmb2*hbcm-2*fmc*
0505 . hbcm2))+4*p6p7*(-4*fb1*ffmcfmb*hbcm+4*fb2*fmb-8*fb2*fmc+3*hbcm
0506 . ))
0507 b(16)=ans
0508 do 200 n=1,16
0509 c(n,1)=c(n,1)-0.09090909090909091d0*b(n)
0510 c(n,2)=c(n,2)-0.1680909685530997d0*b(n)
0511 c(n,3)=c(n,3)-0.2077659977796572d0*b(n)
0512 200 continue
0513 return
0514 end
0515
0516 subroutine amp17_3p0(cc)
0517 implicit double precision(a-h,o-z)
0518 implicit integer (i-n)
0519 dimension b(16)
0520 #include "inclcon.h"
0521 #include "inclppp.h"
0522 #include "inclamp.h"
0523 do 100 n=1,16
0524 b(n)=0.0d0
0525 100 continue
0526 ccc=cc/((ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*p3p5+fmb2+
0527 . hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3-2*ffmcfmb*p2p3-
0528 . fmc2+2*p1p2)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3-fmc2))
0529 ans4=(32*(p6p7*p2p3)*(-fb2*fmb+fb2*fmc-hbcm)+8*(p6p7*p1p3)*(4*
0530 . fb1*ffmcfmb*hbcm-hbcm)+8*p6p7*(-2*fb1*ffmcfmb**2*hbcm3+2*fb1*
0531 . fmc2*hbcm-ffmcfmb*hbcm3+fmb*hbcm2+2*hbcm3)+8*(p3p7*p3p6)*(4*
0532 . fb1*ffmcfmb**2*hbcm-4*fb2*ffmcfmb*fmc+4*ffmcfmb*hbcm-fmc+4*
0533 . hbcm)+32*(-fb1*hbcm*p2p5*p6p7+hbcm*p3p5*p6p7+hbcm*p3p6*p5p7+
0534 . hbcm*p3p7*p4p6))
0535 ans3=w12*(16*(p6p7*p2p5)*(ffmcfmb*hbcm3-fmc*hbcm2)+16*(p6p7*
0536 . p2p3*p1p3)*(-2*ffmcfmb*hbcm-fmb+fmc)+8*p6p7*(-ffmcfmb**2*hbcm5
0537 . -2*ffmcfmb*hbcm*p1p3s2+fmc2*hbcm3)+16*(p4p6*p3p7)*(-ffmcfmb**2
0538 . *hbcm3+fmc2*hbcm)+16*(p5p7*p3p6)*(-ffmcfmb**2*hbcm3+fmc2*hbcm)
0539 . +16*(p6p7*p3p5)*(-ffmcfmb**2*hbcm3+fmc2*hbcm)+16*(p6p7*p2p3)*(
0540 . ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-fmb*fmc*
0541 . hbcm)+8*(p6p7*p1p3)*(ffmcfmb**2*hbcm3+2*ffmcfmb*hbcm3-fmc2*
0542 . hbcm)+16*(p3p7*p3p6*p1p3)*(ffmcfmb**2*hbcm-ffmcfmb*fmc+2*
0543 . ffmcfmb*hbcm)+16*(p3p7*p3p6)*(-ffmcfmb**2*fmb*hbcm2+ffmcfmb**2
0544 . *fmc*hbcm2-ffmcfmb**2*hbcm3+fmc2*hbcm)+16*(2*ffmcfmb*hbcm*p1p3
0545 . *p3p5*p6p7+2*ffmcfmb*hbcm*p1p3*p3p6*p5p7+2*ffmcfmb*hbcm*p1p3*
0546 . p3p7*p4p6+2*ffmcfmb*hbcm*p2p3*p3p6*p5p7-2*ffmcfmb*hbcm*p2p5*
0547 . p3p6*p3p7-hbcm*p1p3*p2p5*p6p7))+ans4
0548 ans2=w17*(16*(p6p7*p2p5)*(ffmcfmb*hbcm3-fmc*hbcm2)+16*(p6p7*
0549 . p2p3*p1p3)*(-ffmcfmb*hbcm-fmb+fmc)+8*p6p7*(-ffmcfmb**2*hbcm5-2
0550 . *ffmcfmb*hbcm*p1p3s2-2*fmb*p2p3s2+2*fmc*p2p3s2+fmc2*hbcm3)+16*
0551 . (p4p6*p3p7)*(-ffmcfmb**2*hbcm3+fmc2*hbcm)+16*(p5p7*p3p6)*(-
0552 . ffmcfmb**2*hbcm3+fmc2*hbcm)+16*(p6p7*p3p5)*(-ffmcfmb**2*hbcm3+
0553 . fmc2*hbcm)+8*(p6p7*p2p3)*(ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*hbcm2
0554 . -2*ffmcfmb*fmc*hbcm2-2*fmb*fmc*hbcm+fmc2*hbcm)+8*(p6p7*p1p3)*(
0555 . ffmcfmb**2*hbcm3+2*ffmcfmb*hbcm3-fmc2*hbcm)+16*(p3p7*p3p6*p2p3
0556 . )*(ffmcfmb**2*hbcm-ffmcfmb*fmc+2*ffmcfmb*hbcm)+16*(p3p7*p3p6*
0557 . p1p3)*(ffmcfmb**2*hbcm-ffmcfmb*fmc+2*ffmcfmb*hbcm)+16*(p3p7*
0558 . p3p6)*(-ffmcfmb**2*fmb*hbcm2+ffmcfmb**2*fmc*hbcm2-ffmcfmb**2*
0559 . hbcm3+fmc2*hbcm)+16*(-2*ffmcfmb*hbcm*p1p2*p3p6*p3p7+2*ffmcfmb*
0560 . hbcm*p1p3*p3p5*p6p7+2*ffmcfmb*hbcm*p1p3*p3p6*p5p7+2*ffmcfmb*
0561 . hbcm*p1p3*p3p7*p4p6+2*ffmcfmb*hbcm*p2p3*p3p6*p5p7+2*ffmcfmb*
0562 . hbcm*p2p3*p3p7*p4p6-hbcm*p1p3*p2p5*p6p7-hbcm*p2p3*p2p5*p6p7))+
0563 . ans3
0564 ans1=w2*(16*(p6p7*p3p5*p2p3)*(-fmb+fmc)+16*(p6p7*p2p5)*(ffmcfmb
0565 . *hbcm3+fmb*hbcm2-hbcm3)+32*(p3p7*p3p6*p2p5)*(-ffmcfmb*hbcm-
0566 . hbcm)+32*(p5p7*p3p6*p2p3)*(ffmcfmb*hbcm+hbcm)+16*(p5p6*p3p7)*(
0567 . ffmcfmb*fmb*hbcm2+ffmcfmb*hbcm3-fmc2*hbcm)+16*(p6p7*p2p3)*(
0568 . ffmcfmb*fmb*hbcm2+fmb*fmc*hbcm-2*fmb2*hbcm)+16*(p5p7*p3p6)*(-
0569 . ffmcfmb**2*hbcm3+fmc2*hbcm)+8*(p6p7*p3p5)*(-ffmcfmb**2*hbcm3+
0570 . fmc2*hbcm)+16*(p3p7*p3p6*p3p5)*(ffmcfmb**2*hbcm-ffmcfmb*fmc+2*
0571 . ffmcfmb*hbcm)+16*(p3p7*p3p6)*(-ffmcfmb**2*fmb*hbcm2-ffmcfmb*
0572 . fmb*fmc*hbcm+ffmcfmb*fmb*hbcm2+ffmcfmb*fmb2*hbcm)+16*(ffmcfmb*
0573 . fmb*hbcm2*p3p7*p4p6+ffmcfmb*hbcm*p1p3*p3p5*p6p7+2*ffmcfmb*hbcm
0574 . *p1p3*p3p6*p5p7-2*ffmcfmb*hbcm*p1p3*p3p7*p5p6-2*ffmcfmb*hbcm*
0575 . p1p5*p3p6*p3p7-2*ffmcfmb*hbcm*p2p3*p3p7*p5p6+2*ffmcfmb*hbcm*
0576 . p3p5*p3p7*p4p6+2*ffmcfmb*hbcm*p3p5*p3p7*p5p6-fmb*hbcm2*p1p2*
0577 . p6p7-2*hbcm*p1p2*p3p5*p6p7-2*hbcm*p1p2*p3p6*p5p7+2*hbcm*p1p2*
0578 . p3p7*p5p6+2*hbcm*p1p5*p2p3*p6p7+2*hbcm*p2p3*p2p5*p6p7+2*hbcm*
0579 . p2p3*p4p6*p5p7+2*hbcm*p2p3*p5p6*p5p7+hbcm*p2p5*p3p5*p6p7-2*
0580 . hbcm*p2p5*p3p7*p4p6-2*hbcm*p2p5*p3p7*p5p6))+ans2
0581 ans=ccc*ans1
0582 b(1)=ans
0583 ans=ccc*(w2*(8*(p3p7*p3p5)*(-ffmcfmb*fmb+ffmcfmb*fmc-2*ffmcfmb*
0584 . hbcm)+8*p5p7*(ffmcfmb**2*hbcm3-fmc2*hbcm)+8*p3p7*(ffmcfmb**2*
0585 . fmb*hbcm2+ffmcfmb*fmb*fmc*hbcm-ffmcfmb*fmb*hbcm2-2*ffmcfmb*
0586 . fmb2*hbcm)+16*(-ffmcfmb*hbcm*p1p3*p5p7+ffmcfmb*hbcm*p1p5*p3p7+
0587 . hbcm*p1p2*p5p7-hbcm*p2p3*p5p7+hbcm*p2p5*p3p7))+w17*(8*(p3p7*
0588 . p2p3)*(-ffmcfmb*fmb+ffmcfmb*fmc-2*ffmcfmb*hbcm)+8*(p3p7*p1p3)*
0589 . (-ffmcfmb*fmb+ffmcfmb*fmc-2*ffmcfmb*hbcm)+16*p5p7*(ffmcfmb**2*
0590 . hbcm3-fmc2*hbcm)+8*p3p7*(ffmcfmb**2*fmb*hbcm2-ffmcfmb**2*fmc*
0591 . hbcm2+ffmcfmb**2*hbcm3-ffmcfmb*fmb*fmc*hbcm+ffmcfmb*fmc2*hbcm-
0592 . fmc2*hbcm)+16*(ffmcfmb*hbcm*p1p2*p3p7-2*ffmcfmb*hbcm*p1p3*p5p7
0593 . -2*ffmcfmb*hbcm*p2p5*p3p7))+w12*(8*(p3p7*p1p3)*(-ffmcfmb*fmb+
0594 . ffmcfmb*fmc-2*ffmcfmb*hbcm)+16*p5p7*(ffmcfmb**2*hbcm3-fmc2*
0595 . hbcm)+8*p3p7*(ffmcfmb**2*fmb*hbcm2-ffmcfmb**2*fmc*hbcm2+
0596 . ffmcfmb**2*hbcm3-ffmcfmb*fmb*fmc*hbcm+ffmcfmb*fmc2*hbcm-fmc2*
0597 . hbcm)-32*ffmcfmb*hbcm*p1p3*p5p7)+(4*p3p7*(-4*fb2*ffmcfmb*fmb+4
0598 . *fb2*ffmcfmb*fmc-fmb+fmc-4*hbcm)-32*hbcm*p5p7))
0599 b(2)=ans
0600 b(3)=ccc*(w2*(8*p5p6*(-ffmcfmb**2*hbcm3+fmc2*hbcm)+16*(ffmcfmb*
0601 . hbcm*p1p3*p5p6+ffmcfmb*hbcm*p2p5*p3p6-hbcm*p1p2*p5p6+hbcm*p2p3
0602 . *p5p6+hbcm*p2p5*p4p6+hbcm*p2p5*p5p6))+w17*(16*p4p6*(ffmcfmb**2
0603 . *hbcm3-fmc2*hbcm)+8*p3p6*(ffmcfmb**2*hbcm3-fmc2*hbcm)+16*(-
0604 . ffmcfmb*hbcm*p1p2*p3p6-ffmcfmb*hbcm*p1p3*p3p6-2*ffmcfmb*hbcm*
0605 . p1p3*p4p6+ffmcfmb*hbcm*p2p3*p3p6+2*ffmcfmb*hbcm*p2p5*p3p6))+
0606 . w12*(16*p4p6*(ffmcfmb**2*hbcm3-fmc2*hbcm)+8*p3p6*(ffmcfmb**2*
0607 . hbcm3-fmc2*hbcm)+16*(-ffmcfmb*hbcm*p1p2*p3p6-ffmcfmb*hbcm*p1p3
0608 . *p3p6-2*ffmcfmb*hbcm*p1p3*p4p6+ffmcfmb*hbcm*p2p3*p3p6+2*
0609 . ffmcfmb*hbcm*p2p5*p3p6))+16*(-hbcm*p3p6-2*hbcm*p4p6))
0610 ans2=w12*(32*(p6p7*p2p4)*(ffmcfmb*hbcm2-fmc*hbcm)+16*(p6p7*p2p3
0611 . )*(ffmcfmb*hbcm2-fmc*hbcm)+16*(p6p7*p1p2)*(-ffmcfmb*hbcm2+fmc*
0612 . hbcm)+16*(p6p7*p1p3)*(ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm)+16*(
0613 . p3p7*p3p6*p1p3)*(-ffmcfmb**2+ffmcfmb)+16*(p4p6*p3p7)*(-ffmcfmb
0614 . **2*hbcm2+ffmcfmb*fmc*hbcm)+8*p6p7*(-ffmcfmb**2*fmb*hbcm3-
0615 . ffmcfmb**2*fmc*hbcm3+fmb*fmc2*hbcm+fmc3*hbcm)+16*(ffmcfmb*fmc*
0616 . hbcm*p3p6*p3p7+ffmcfmb*p1p3*p3p7*p4p6+p1p2*p1p3*p6p7-p1p3*p2p3
0617 . *p6p7-2*p1p3*p2p4*p6p7))+(8*p6p7*(ffmcfmb*hbcm2+2*fmb*hbcm+fmc
0618 . *hbcm-hbcm2)+(p4p6*p3p7)*(32*fb2*ffmcfmb+8)+(p3p7*p3p6)*(-32*
0619 . fb2*ffmcfmb**2+32*fb2*ffmcfmb-16*ffmcfmb+8)+32*(fb2*p1p2*p6p7-
0620 . fb2*p2p3*p6p7-2*fb2*p2p4*p6p7))
0621 ans1=w2*(16*(p6p7*p2p5)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(
0622 . p3p7*p3p6*p3p5)*(-ffmcfmb**2+ffmcfmb)+16*(p5p6*p3p7)*(ffmcfmb
0623 . **2*hbcm2+ffmcfmb*fmb*hbcm-ffmcfmb*hbcm2)+8*p6p7*(-ffmcfmb**2*
0624 . fmb*hbcm3+fmb*fmc2*hbcm)+16*(ffmcfmb*fmb*hbcm*p1p3*p6p7+
0625 . ffmcfmb*fmb*hbcm*p3p6*p3p7+2*ffmcfmb*fmb*hbcm*p3p7*p4p6+
0626 . ffmcfmb*p3p5*p3p7*p4p6+fmb*hbcm*p1p2*p6p7-fmb*hbcm*p2p3*p6p7-3
0627 . *fmb*hbcm*p2p4*p6p7+p1p2*p3p5*p6p7-p2p3*p3p5*p6p7-2*p2p4*p3p5*
0628 . p6p7))+w17*(32*(p6p7*p2p4)*(ffmcfmb*hbcm2-fmc*hbcm)+16*(p6p7*
0629 . p2p3)*(ffmcfmb*hbcm2-fmc*hbcm)+16*(p6p7*p1p2)*(-ffmcfmb*hbcm2+
0630 . fmc*hbcm)+16*(p6p7*p1p3)*(ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm)+
0631 . 16*(p3p7*p3p6*p2p3)*(-ffmcfmb**2+ffmcfmb)+16*(p3p7*p3p6*p1p3)*
0632 . (-ffmcfmb**2+ffmcfmb)+16*(p4p6*p3p7)*(-ffmcfmb**2*hbcm2+
0633 . ffmcfmb*fmc*hbcm)+8*p6p7*(-ffmcfmb**2*fmb*hbcm3-ffmcfmb**2*fmc
0634 . *hbcm3+fmb*fmc2*hbcm+fmc3*hbcm-2*p2p3s2)+16*(ffmcfmb*fmc*hbcm*
0635 . p3p6*p3p7+ffmcfmb*p1p3*p3p7*p4p6+ffmcfmb*p2p3*p3p7*p4p6+p1p2*
0636 . p1p3*p6p7+p1p2*p2p3*p6p7-p1p3*p2p3*p6p7-2*p1p3*p2p4*p6p7-2*
0637 . p2p3*p2p4*p6p7))+ans2
0638 ans=ccc*ans1
0639 b(4)=ans
0640 ans3=w12*(32*(p3p7*p2p5)*(ffmcfmb*hbcm2-fmc*hbcm)+32*(p5p7*p2p3
0641 . )*(-ffmcfmb*hbcm2+fmc*hbcm)+16*(p3p7*p1p2)*(-ffmcfmb*hbcm2+fmc
0642 . *hbcm)+8*p5p7*(ffmcfmb**2*hbcm4-fmc2*hbcm2)+16*(p3p7*p3p5)*(-
0643 . ffmcfmb**2*hbcm2+ffmcfmb*fmc*hbcm)+16*(p3p7*p2p3)*(ffmcfmb**2*
0644 . hbcm2-ffmcfmb*fmc*hbcm)+8*(p3p7*p1p3)*(ffmcfmb**2*hbcm2-2*
0645 . ffmcfmb*fmb*hbcm-3*ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2)+8*p3p7*(
0646 . ffmcfmb**2*fmb*hbcm3+ffmcfmb**2*fmc*hbcm3-ffmcfmb**2*hbcm4+
0647 . ffmcfmb*fmc*hbcm3-2*ffmcfmb*p1p3s2-fmb*fmc2*hbcm-fmc3*hbcm)+16
0648 . *(-ffmcfmb*hbcm2*p1p3*p5p7-ffmcfmb*p1p3*p2p3*p3p7+ffmcfmb*p1p3
0649 . *p3p5*p3p7+p1p2*p1p3*p3p7+2*p1p3*p2p3*p5p7-2*p1p3*p2p5*p3p7))+
0650 . ((p3p7*p3p5)*(32*fb2*ffmcfmb+8)+(p3p7*p2p3)*(-32*fb2*ffmcfmb-8
0651 . )+(p3p7*p1p3)*(-32*fb2*ffmcfmb-8)+4*p3p7*(4*fb1*ffmcfmb*fmc*
0652 . hbcm+4*fb2*ffmcfmb**2*hbcm2+4*fb2*ffmcfmb*hbcm2-2*ffmcfmb*
0653 . hbcm2-4*fmb*hbcm-3*fmc*hbcm+hbcm2)+16*(2*fb2*p1p2*p3p7+4*fb2*
0654 . p2p3*p5p7-4*fb2*p2p5*p3p7-hbcm2*p5p7))
0655 ans2=w17*(16*(p3p7*p2p5)*(ffmcfmb*hbcm2-2*fmc*hbcm)+32*(p5p7*
0656 . p2p3)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*p5p7*(ffmcfmb**2*hbcm4-fmc2*
0657 . hbcm2+4*p2p3s2)+16*(p3p7*p3p5)*(-ffmcfmb**2*hbcm2+ffmcfmb*fmc*
0658 . hbcm)+8*(p3p7*p2p3)*(ffmcfmb**2*hbcm2-2*ffmcfmb*fmb*hbcm-3*
0659 . ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2)+8*(p3p7*p1p3)*(ffmcfmb**2*
0660 . hbcm2-2*ffmcfmb*fmb*hbcm-3*ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2)+8*
0661 . p3p7*(ffmcfmb**2*fmb*hbcm3+ffmcfmb**2*fmc*hbcm3-ffmcfmb**2*
0662 . hbcm4+ffmcfmb*fmc*hbcm3-2*ffmcfmb*p1p3s2-2*ffmcfmb*p2p3s2-fmb*
0663 . fmc2*hbcm-fmc3*hbcm)+16*(-ffmcfmb*hbcm2*p1p3*p5p7-2*ffmcfmb*
0664 . p1p3*p2p3*p3p7+ffmcfmb*p1p3*p3p5*p3p7+ffmcfmb*p2p3*p3p5*p3p7+
0665 . fmc*hbcm*p1p2*p3p7+p1p2*p1p3*p3p7+p1p2*p2p3*p3p7+2*p1p3*p2p3*
0666 . p5p7-2*p1p3*p2p5*p3p7-2*p2p3*p2p5*p3p7))+ans3
0667 ans1=w2*(16*(p3p7*p2p5)*(ffmcfmb*hbcm2-2*fmb*hbcm)+16*(p5p7*
0668 . p2p3)*(-ffmcfmb*hbcm2+2*fmb*hbcm)+8*p5p7*(ffmcfmb**2*hbcm4-
0669 . fmc2*hbcm2)+8*(p3p7*p3p5)*(-ffmcfmb**2*hbcm2+2*ffmcfmb*fmb*
0670 . hbcm-ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2)+8*p3p7*(ffmcfmb**2*fmb*
0671 . hbcm3-ffmcfmb*fmb*fmc*hbcm2+2*ffmcfmb*fmb*hbcm3-ffmcfmb*fmb2*
0672 . hbcm2+2*ffmcfmb*p3p5s2-fmb*fmc2*hbcm)+16*(-2*ffmcfmb*fmb*hbcm*
0673 . p1p3*p3p7-2*ffmcfmb*fmb*hbcm*p2p3*p3p7-ffmcfmb*hbcm2*p1p3*p5p7
0674 . +ffmcfmb*hbcm2*p1p5*p3p7-ffmcfmb*p1p3*p3p5*p3p7-ffmcfmb*p2p3*
0675 . p3p5*p3p7+2*fmb*hbcm*p1p2*p3p7+hbcm2*p1p2*p5p7+p1p2*p3p5*p3p7+
0676 . 2*p2p3*p3p5*p5p7-2*p2p5*p3p5*p3p7))+ans2
0677 ans=ccc*ans1
0678 b(5)=ans
0679 ans2=w12*(16*(p3p6*p2p5)*(2*ffmcfmb*hbcm2-fmc*hbcm)+32*(p4p6*
0680 . p2p3)*(-ffmcfmb*hbcm2+fmc*hbcm)+16*(p3p6*p1p2)*(-ffmcfmb*hbcm2
0681 . +fmc*hbcm)+16*(p3p6*p2p3)*(ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm)+
0682 . 8*p4p6*(ffmcfmb**2*hbcm4-fmc2*hbcm2)+8*(p3p6*p1p3)*(ffmcfmb**2
0683 . *hbcm2-2*ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*hbcm-fmc2)+8*p3p6*(
0684 . ffmcfmb**2*fmb*hbcm3+ffmcfmb**2*fmc*hbcm3-2*ffmcfmb*p1p3s2-fmb
0685 . *fmc2*hbcm-fmc3*hbcm)+16*(-ffmcfmb*hbcm2*p1p3*p4p6+p1p2*p1p3*
0686 . p3p6+2*p1p3*p2p3*p4p6-p1p3*p2p5*p3p6))+((p3p6*p1p3)*(-32*fb2*
0687 . ffmcfmb-8)+8*p3p6*(2*fb2*ffmcfmb**2*hbcm2-2*fb2*fmc2-2*fmb*
0688 . hbcm-fmc*hbcm)+16*(2*fb2*p1p2*p3p6+4*fb2*p2p3*p4p6-2*fb2*p2p5*
0689 . p3p6-hbcm2*p4p6))
0690 ans1=w2*(16*(p3p6*p2p5)*(ffmcfmb*hbcm2-fmb*hbcm)+16*(p5p6*p2p3)
0691 . *(ffmcfmb*hbcm2+fmb*hbcm)+8*p5p6*(-ffmcfmb**2*hbcm4+fmc2*hbcm2
0692 . )+8*(p3p6*p3p5)*(ffmcfmb**2*hbcm2-fmc2)+8*p3p6*(ffmcfmb**2*fmb
0693 . *hbcm3-fmb*fmc2*hbcm)+16*(-ffmcfmb*fmb*hbcm*p1p3*p3p6+ffmcfmb*
0694 . fmb*hbcm*p2p3*p3p6+ffmcfmb*hbcm2*p1p3*p5p6-ffmcfmb*p1p3*p3p5*
0695 . p3p6+fmb*hbcm*p1p2*p3p6+3*fmb*hbcm*p2p3*p4p6-hbcm2*p1p2*p5p6+
0696 . hbcm2*p2p5*p4p6+hbcm2*p2p5*p5p6+p1p2*p3p5*p3p6+2*p2p3*p3p5*
0697 . p4p6-p2p5*p3p5*p3p6))+w17*(16*(p3p6*p2p5)*(2*ffmcfmb*hbcm2-fmc
0698 . *hbcm)+32*(p4p6*p2p3)*(-ffmcfmb*hbcm2+fmc*hbcm)+16*(p3p6*p1p2)
0699 . *(-ffmcfmb*hbcm2+fmc*hbcm)+8*p4p6*(ffmcfmb**2*hbcm4-fmc2*hbcm2
0700 . +4*p2p3s2)+8*(p3p6*p2p3)*(ffmcfmb**2*hbcm2+2*ffmcfmb*fmb*hbcm+
0701 . 2*ffmcfmb*fmc*hbcm-fmc2)+8*(p3p6*p1p3)*(ffmcfmb**2*hbcm2-2*
0702 . ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*hbcm-fmc2)+8*p3p6*(ffmcfmb**2*
0703 . fmb*hbcm3+ffmcfmb**2*fmc*hbcm3-2*ffmcfmb*p1p3s2-fmb*fmc2*hbcm-
0704 . fmc3*hbcm)+16*(-ffmcfmb*hbcm2*p1p3*p4p6-ffmcfmb*p1p3*p2p3*p3p6
0705 . +p1p2*p1p3*p3p6+p1p2*p2p3*p3p6+2*p1p3*p2p3*p4p6-p1p3*p2p5*p3p6
0706 . -p2p3*p2p5*p3p6))+ans2
0707 ans=ccc*ans1
0708 b(6)=ans
0709 ans2=w12*(24*p2p5*(-ffmcfmb*hbcm2+fmc*hbcm)+16*p2p3*(-ffmcfmb*
0710 . hbcm2+fmc*hbcm)+16*p1p2*(ffmcfmb*hbcm2-fmc*hbcm)+4*p1p3*(-
0711 . ffmcfmb**2*hbcm2+4*ffmcfmb*fmb*hbcm+4*ffmcfmb*fmc*hbcm-2*
0712 . ffmcfmb*hbcm2+fmc2)+4*(-2*ffmcfmb**2*fmb*hbcm3-2*ffmcfmb**2*
0713 . fmc*hbcm3+ffmcfmb**2*hbcm4+2*ffmcfmb*p1p3s2+2*fmb*fmc2*hbcm-
0714 . fmc2*hbcm2+2*fmc3*hbcm-4*p1p2*p1p3+4*p1p3*p2p3+6*p1p3*p2p5))+(
0715 . p1p3*(16*fb2*ffmcfmb+4)+4*(-2*fb2*ffmcfmb**2*hbcm2+2*fb2*fmc2-
0716 . 8*fb2*p1p2+8*fb2*p2p3+12*fb2*p2p5+ffmcfmb*hbcm2+4*fmb*hbcm+3*
0717 . fmc*hbcm-2*hbcm2))
0718 ans1=w2*(8*p2p5*(-ffmcfmb*hbcm2+3*fmb*hbcm+hbcm2)+4*p3p5*(-
0719 . ffmcfmb**2*hbcm2+fmc2)+8*(-ffmcfmb**2*fmb*hbcm3+2*ffmcfmb*fmb*
0720 . hbcm*p1p3+ffmcfmb*p1p3*p3p5+fmb*fmc2*hbcm-3*fmb*hbcm*p1p2+3*
0721 . fmb*hbcm*p2p3-2*p1p2*p3p5+2*p2p3*p3p5+3*p2p5*p3p5))+w17*((p2p3
0722 . *p1p3)*(8*ffmcfmb+16)+24*p2p5*(-ffmcfmb*hbcm2+fmc*hbcm)+16*
0723 . p1p2*(ffmcfmb*hbcm2-fmc*hbcm)+4*p2p3*(-ffmcfmb**2*hbcm2-4*
0724 . ffmcfmb*hbcm2+4*fmc*hbcm+fmc2)+4*p1p3*(-ffmcfmb**2*hbcm2+4*
0725 . ffmcfmb*fmb*hbcm+4*ffmcfmb*fmc*hbcm-2*ffmcfmb*hbcm2+fmc2)+4*(-
0726 . 2*ffmcfmb**2*fmb*hbcm3-2*ffmcfmb**2*fmc*hbcm3+ffmcfmb**2*hbcm4
0727 . +2*ffmcfmb*p1p3s2+2*fmb*fmc2*hbcm-fmc2*hbcm2+2*fmc3*hbcm-4*
0728 . p1p2*p1p3-4*p1p2*p2p3+6*p1p3*p2p5+6*p2p3*p2p5+4*p2p3s2))+ans2
0729 ans=ccc*ans1
0730 b(7)=ans
0731 ans2=w12*(16*p2p5*(-ffmcfmb*hbcm3+fmc*hbcm2)+8*p1p2*(ffmcfmb*
0732 . hbcm3-fmc*hbcm2)+8*(p2p3*p1p3)*(3*ffmcfmb*hbcm+2*fmb-fmc)+16*
0733 . p3p5*(ffmcfmb**2*hbcm3-fmc2*hbcm)+16*p2p3*(-ffmcfmb**2*hbcm3-
0734 . ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm)+8*p1p3*(-
0735 . ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2-2*ffmcfmb
0736 . *hbcm3+fmc2*hbcm)+4*(ffmcfmb**2*fmb*hbcm4-ffmcfmb**2*fmc*hbcm4
0737 . +2*ffmcfmb**2*hbcm5-8*ffmcfmb*hbcm*p1p3*p3p5+4*ffmcfmb*hbcm*
0738 . p1p3s2-fmb*fmc2*hbcm2-2*fmc2*hbcm3+fmc3*hbcm2-2*hbcm*p1p2*p1p3
0739 . +4*hbcm*p1p3*p2p5))+(4*p2p3*(4*fb1*ffmcfmb*hbcm+8*fb2*fmb-4*
0740 . fb2*fmc+7*hbcm)+8*(-2*fb1*hbcm*p1p2+4*fb1*hbcm*p2p5-fmb*hbcm2+
0741 . fmc*hbcm2+2*hbcm*p1p3-4*hbcm*p3p5-2*hbcm3))
0742 ans1=w2*(8*p2p5*(-ffmcfmb*hbcm3-2*fmb*hbcm2+hbcm3)+8*(p3p5*p2p3
0743 . )*(-ffmcfmb*hbcm+2*fmb-fmc)+8*p2p3*(-2*ffmcfmb*fmb*hbcm2-fmb*
0744 . fmc*hbcm+3*fmb2*hbcm)+8*p3p5*(ffmcfmb**2*hbcm3-fmc2*hbcm)+4*(
0745 . ffmcfmb**2*fmb*hbcm4-2*ffmcfmb*fmb*hbcm2*p1p3-4*ffmcfmb*hbcm*
0746 . p1p3*p3p5-fmb*fmc2*hbcm2+4*fmb*hbcm2*p1p2+6*hbcm*p1p2*p3p5-4*
0747 . hbcm*p1p5*p2p3-4*hbcm*p2p3*p2p5-4*hbcm*p2p5*p3p5))+w17*(16*
0748 . p2p5*(-ffmcfmb*hbcm3+fmc*hbcm2)+8*p1p2*(ffmcfmb*hbcm3-fmc*
0749 . hbcm2)+8*(p2p3*p1p3)*(ffmcfmb*hbcm+2*fmb-fmc)+16*p3p5*(ffmcfmb
0750 . **2*hbcm3-fmc2*hbcm)+8*p2p3*(-ffmcfmb**2*hbcm3-2*ffmcfmb*fmb*
0751 . hbcm2+2*ffmcfmb*fmc*hbcm2+2*fmb*fmc*hbcm-fmc2*hbcm)+8*p1p3*(-
0752 . ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2-2*ffmcfmb
0753 . *hbcm3+fmc2*hbcm)+4*(ffmcfmb**2*fmb*hbcm4-ffmcfmb**2*fmc*hbcm4
0754 . +2*ffmcfmb**2*hbcm5-8*ffmcfmb*hbcm*p1p3*p3p5+4*ffmcfmb*hbcm*
0755 . p1p3s2-2*ffmcfmb*hbcm*p2p3s2-fmb*fmc2*hbcm2+4*fmb*p2p3s2-2*fmc
0756 . *p2p3s2-2*fmc2*hbcm3+fmc3*hbcm2-2*hbcm*p1p2*p1p3+2*hbcm*p1p2*
0757 . p2p3+4*hbcm*p1p3*p2p5+4*hbcm*p2p3*p2p5))+ans2
0758 ans=ccc*ans1
0759 b(8)=ans
0760 ans=ccc*(w2*(8*p5p6*(ffmcfmb*hbcm3-fmb*hbcm2-hbcm3)+8*(p3p6*
0761 . p3p5)*(-3*ffmcfmb*hbcm+fmb)+8*p3p6*(-2*ffmcfmb*fmb*hbcm2+fmb2*
0762 . hbcm)+8*(-3*fmb*hbcm2*p4p6-4*hbcm*p3p5*p4p6-2*hbcm*p3p5*p5p6))
0763 . +w17*(16*p4p6*(-ffmcfmb*hbcm3+fmc*hbcm2)+8*(p3p6*p2p3)*(
0764 . ffmcfmb*hbcm+fmb)+8*(p3p6*p1p3)*(ffmcfmb*hbcm+fmb)+8*p3p6*(-2*
0765 . ffmcfmb*fmb*hbcm2+2*ffmcfmb*fmc*hbcm2-2*ffmcfmb*hbcm3+fmb*fmc*
0766 . hbcm-fmc2*hbcm)+16*(-2*ffmcfmb*hbcm*p3p5*p3p6+hbcm*p1p2*p3p6+
0767 . hbcm*p1p3*p4p6+hbcm*p2p3*p4p6))+w12*(16*p4p6*(-ffmcfmb*hbcm3+
0768 . fmc*hbcm2)+8*(p3p6*p1p3)*(3*ffmcfmb*hbcm+fmb)+8*p3p6*(-ffmcfmb
0769 . **2*hbcm3-2*ffmcfmb*fmb*hbcm2+2*ffmcfmb*fmc*hbcm2-2*ffmcfmb*
0770 . hbcm3+fmb*fmc*hbcm)+16*(ffmcfmb*hbcm*p2p3*p3p6-2*ffmcfmb*hbcm*
0771 . p3p5*p3p6+hbcm*p1p3*p4p6))+(4*p3p6*(4*fb1*ffmcfmb*hbcm+4*fb2*
0772 . fmb+3*hbcm)+32*fb1*hbcm*p4p6))
0773 b(9)=ans
0774 b(10)=ccc*(w2*((p3p6*p3p5)*(-8*ffmcfmb-8)+8*p5p6*(-ffmcfmb*
0775 . hbcm2-fmb*hbcm+hbcm2)+8*p3p6*(-2*ffmcfmb*fmb*hbcm-fmb*hbcm)+8*
0776 . (-4*fmb*hbcm*p4p6-3*p3p5*p4p6))+w17*((p3p6*p2p3)*(-8*ffmcfmb-8
0777 . )+(p3p6*p1p3)*(-8*ffmcfmb-8)+24*p4p6*(ffmcfmb*hbcm2-fmc*hbcm)+
0778 . 8*p3p6*(-2*ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*hbcm+2*ffmcfmb*hbcm2
0779 . -fmc*hbcm)+24*(-p1p3*p4p6-p2p3*p4p6))+w12*((p3p6*p1p3)*(-8*
0780 . ffmcfmb-8)+24*p4p6*(ffmcfmb*hbcm2-fmc*hbcm)+8*p3p6*(-2*ffmcfmb
0781 . *fmb*hbcm-2*ffmcfmb*fmc*hbcm+2*ffmcfmb*hbcm2-fmc*hbcm)-24*p1p3
0782 . *p4p6)+(p3p6*(-16*fb2*ffmcfmb-16*fb2-4)-48*fb2*p4p6))
0783 ans=ccc*(w2*(4*p3p5*(3*ffmcfmb*hbcm2-4*fmb*hbcm+fmc*hbcm-3*
0784 . hbcm2)+4*(2*ffmcfmb*fmb*hbcm3+fmb*fmc*hbcm2+2*fmb*hbcm*p1p3+2*
0785 . fmb*hbcm*p2p3-4*fmb*hbcm3+3*fmb2*hbcm2-2*hbcm2*p1p5-2*hbcm2*
0786 . p2p5+2*p1p3*p3p5+2*p2p3*p3p5-6*p3p5s2))+w17*(24*p3p5*(ffmcfmb*
0787 . hbcm2-fmc*hbcm)+4*p2p3*(-3*ffmcfmb*hbcm2-2*fmb*hbcm+fmc*hbcm-3
0788 . *hbcm2)+4*p1p3*(-3*ffmcfmb*hbcm2-2*fmb*hbcm+fmc*hbcm-3*hbcm2)+
0789 . 4*(2*ffmcfmb*fmb*hbcm3+2*ffmcfmb*fmc*hbcm3+3*ffmcfmb*hbcm4-2*
0790 . fmb*fmc*hbcm2-3*fmc*hbcm3-2*fmc2*hbcm2+2*hbcm2*p1p2+4*p1p3*
0791 . p2p3-6*p1p3*p3p5+2*p1p3s2-6*p2p3*p3p5+2*p2p3s2))+w12*(24*p3p5*
0792 . (ffmcfmb*hbcm2-fmc*hbcm)+8*p2p3*(-ffmcfmb*hbcm2+fmc*hbcm)+4*
0793 . p1p3*(-ffmcfmb*hbcm2-2*fmb*hbcm+fmc*hbcm-3*hbcm2)+4*(-ffmcfmb
0794 . **2*hbcm4+2*ffmcfmb*fmb*hbcm3+2*ffmcfmb*fmc*hbcm3+3*ffmcfmb*
0795 . hbcm4-2*fmb*fmc*hbcm2-3*fmc*hbcm3-fmc2*hbcm2+2*p1p3*p2p3-6*
0796 . p1p3*p3p5+2*p1p3s2))+2*(-8*fb1*fmb*hbcm-4*fb1*fmc*hbcm+4*fb2*
0797 . ffmcfmb*hbcm2-12*fb2*hbcm2+8*fb2*p1p3+8*fb2*p2p3-24*fb2*p3p5+3
0798 . *hbcm2))
0799 b(11)=ans
0800 ans=ccc*(w2*(8*p5p7*(ffmcfmb*hbcm3+2*fmb*hbcm2-hbcm3)+8*(p3p7*
0801 . p3p5)*(-ffmcfmb*hbcm-2*fmb+fmc)+8*p3p7*(ffmcfmb*fmb*hbcm2+fmb*
0802 . fmc*hbcm-3*fmb2*hbcm)+16*(hbcm*p1p5*p3p7+hbcm*p2p5*p3p7+hbcm*
0803 . p3p5*p5p7))+w17*(16*p5p7*(ffmcfmb*hbcm3-fmc*hbcm2)+8*(p3p7*
0804 . p2p3)*(3*ffmcfmb*hbcm-2*fmb+fmc)+8*(p3p7*p1p3)*(3*ffmcfmb*hbcm
0805 . -2*fmb+fmc)+8*p3p7*(ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-2*
0806 . ffmcfmb*hbcm3-2*fmb*fmc*hbcm+2*fmc2*hbcm)+16*(-2*ffmcfmb*hbcm*
0807 . p3p5*p3p7-hbcm*p1p2*p3p7-hbcm*p1p3*p5p7-hbcm*p2p3*p5p7))+w12*(
0808 . 16*p5p7*(ffmcfmb*hbcm3-fmc*hbcm2)+8*(p3p7*p1p3)*(-ffmcfmb*hbcm
0809 . -2*fmb+fmc)+8*p3p7*(ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*hbcm2-2*
0810 . ffmcfmb*fmc*hbcm2-2*fmb*fmc*hbcm+fmc2*hbcm)-16*hbcm*p1p3*p5p7)
0811 . +(4*p3p7*(-4*fb1*ffmcfmb*hbcm-8*fb2*fmb+4*fb2*fmc-3*hbcm)-32*
0812 . fb1*hbcm*p5p7))
0813 b(12)=ans
0814 b(13)=ccc*(w2*(4*p3p5*(2*ffmcfmb*hbcm-3*fmb+fmc-4*hbcm)+4*(3*
0815 . ffmcfmb*fmb*hbcm2+fmb*fmc*hbcm-3*fmb*hbcm2-4*fmb2*hbcm+2*hbcm*
0816 . p1p5+2*hbcm*p2p5))+w17*(4*p2p3*(2*ffmcfmb*hbcm-3*fmb+fmc+2*
0817 . hbcm)+4*p1p3*(2*ffmcfmb*hbcm-3*fmb+fmc+2*hbcm)+4*(3*ffmcfmb*
0818 . fmb*hbcm2-3*ffmcfmb*fmc*hbcm2-2*ffmcfmb*hbcm3-3*fmb*fmc*hbcm+2
0819 . *fmc*hbcm2+3*fmc2*hbcm-4*hbcm*p1p2))+w12*(4*p1p3*(-2*ffmcfmb*
0820 . hbcm-3*fmb+fmc+2*hbcm)+4*(2*ffmcfmb**2*hbcm3+3*ffmcfmb*fmb*
0821 . hbcm2-3*ffmcfmb*fmc*hbcm2-2*ffmcfmb*hbcm3-3*fmb*fmc*hbcm+2*fmc
0822 . *hbcm2+fmc2*hbcm))+4*(-4*fb1*ffmcfmb*hbcm+4*fb1*hbcm-6*fb2*fmb
0823 . +2*fb2*fmc-3*hbcm))
0824 b(14)=ccc*(w2*((p3p7*p3p5)*(8*ffmcfmb-16)+8*p5p7*(ffmcfmb*hbcm2
0825 . -3*fmb*hbcm-hbcm2)+8*p3p7*(2*ffmcfmb*fmb*hbcm-3*fmb*hbcm)-24*
0826 . p3p5*p5p7)+w17*((p3p7*p2p3)*(8*ffmcfmb-16)+(p3p7*p1p3)*(8*
0827 . ffmcfmb-16)+24*p5p7*(ffmcfmb*hbcm2-fmc*hbcm)+8*p3p7*(2*ffmcfmb
0828 . *fmb*hbcm+2*ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-2*fmc*hbcm)+24*(-
0829 . p1p3*p5p7-p2p3*p5p7))+w12*((p3p7*p1p3)*(8*ffmcfmb-16)+24*p5p7*
0830 . (ffmcfmb*hbcm2-fmc*hbcm)+8*p3p7*(-ffmcfmb**2*hbcm2+ffmcfmb*fmc
0831 . *hbcm+2*ffmcfmb*hbcm2-2*fmc*hbcm)-24*p1p3*p5p7)+(p3p7*(16*fb2*
0832 . ffmcfmb-32*fb2+4)-48*fb2*p5p7))
0833 ans3=w12*(32*(p4p6*p3p7)*(ffmcfmb*hbcm2-fmc*hbcm)+16*(p5p7*p3p6
0834 . )*(-2*ffmcfmb*hbcm2+fmc*hbcm)+32*(p6p7*p3p4)*(-ffmcfmb*hbcm2+
0835 . fmc*hbcm)+16*(p6p7*p2p3)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p6p7*p1p3
0836 . )*(2*ffmcfmb*hbcm2-fmb*hbcm-3*fmc*hbcm+2*hbcm2)+8*p6p7*(
0837 . ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*hbcm3-2*ffmcfmb*hbcm4-fmb*fmc*
0838 . hbcm2+2*fmc*hbcm3-fmc2*hbcm2-2*p1p3s2)+16*(p3p7*p3p6)*(-
0839 . ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*hbcm)+16*(-ffmcfmb*p1p3*p3p6*
0840 . p3p7-p1p3*p2p3*p6p7+2*p1p3*p3p4*p6p7+p1p3*p3p6*p5p7-2*p1p3*
0841 . p3p7*p4p6))+((p3p7*p3p6)*(-32*fb2*ffmcfmb-8)+8*p6p7*(-2*fb1*
0842 . fmb*hbcm-2*fb1*fmc*hbcm+4*fb2*hbcm2+hbcm2)+32*(-fb2*p1p3*p6p7-
0843 . fb2*p2p3*p6p7+2*fb2*p3p4*p6p7+fb2*p3p6*p5p7-2*fb2*p3p7*p4p6))
0844 ans2=w17*(16*(p4p6*p3p7)*(ffmcfmb*hbcm2-2*fmc*hbcm)+16*(p5p7*
0845 . p3p6)*(-2*ffmcfmb*hbcm2+fmc*hbcm)+32*(p6p7*p3p4)*(-ffmcfmb*
0846 . hbcm2+fmc*hbcm)+8*(p6p7*p2p3)*(2*ffmcfmb*hbcm2-fmb*hbcm-3*fmc*
0847 . hbcm+2*hbcm2)+8*(p6p7*p1p3)*(2*ffmcfmb*hbcm2-fmb*hbcm-3*fmc*
0848 . hbcm+2*hbcm2)+8*p6p7*(ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*hbcm3-2*
0849 . ffmcfmb*hbcm4-fmb*fmc*hbcm2+2*fmc*hbcm3-fmc2*hbcm2-2*p1p3s2-2*
0850 . p2p3s2)+32*(p3p7*p3p6)*(-ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm)+16
0851 . *(-ffmcfmb*p1p3*p3p6*p3p7-ffmcfmb*p2p3*p3p6*p3p7-2*p1p3*p2p3*
0852 . p6p7+2*p1p3*p3p4*p6p7+p1p3*p3p6*p5p7-2*p1p3*p3p7*p4p6+2*p2p3*
0853 . p3p4*p6p7+p2p3*p3p6*p5p7-2*p2p3*p3p7*p4p6))+ans3
0854 ans1=w2*(16*(p5p7*p3p6)*(-ffmcfmb*hbcm2+fmb*hbcm)+8*(p6p7*p3p5)
0855 . *(2*ffmcfmb*hbcm2+3*fmb*hbcm+fmc*hbcm+2*hbcm2)+8*p6p7*(ffmcfmb
0856 . *fmb*hbcm3+fmb*fmc*hbcm2+3*fmb*hbcm3+2*fmb2*hbcm2)+16*(-2*
0857 . ffmcfmb*fmb*hbcm*p3p6*p3p7-ffmcfmb*p3p5*p3p6*p3p7-2*fmb*hbcm*
0858 . p1p3*p6p7-2*fmb*hbcm*p2p3*p6p7+3*fmb*hbcm*p3p4*p6p7-3*fmb*hbcm
0859 . *p3p7*p4p6-fmb*hbcm*p3p7*p5p6-hbcm2*p1p5*p6p7-hbcm2*p2p5*p6p7-
0860 . hbcm2*p4p6*p5p7-hbcm2*p5p6*p5p7-p1p3*p3p5*p6p7-p2p3*p3p5*p6p7+
0861 . 2*p3p4*p3p5*p6p7+p3p5*p3p6*p5p7-2*p3p5*p3p7*p4p6))+ans2
0862 ans=ccc*ans1
0863 b(15)=ans
0864 ans=ccc*(w2*(16*(p5p6*p3p7)*(ffmcfmb*hbcm-hbcm)+8*(p6p7*p3p5)*(
0865 . -ffmcfmb*hbcm+2*fmb-fmc+3*hbcm)+8*p6p7*(-2*ffmcfmb*fmb*hbcm2-
0866 . fmb*fmc*hbcm+2*fmb*hbcm2+3*fmb2*hbcm)+16*(-ffmcfmb*hbcm*p3p6*
0867 . p5p7-hbcm*p1p5*p6p7-hbcm*p2p5*p6p7-hbcm*p4p6*p5p7-hbcm*p5p6*
0868 . p5p7))+w17*(8*(p6p7*p2p3)*(-ffmcfmb*hbcm+2*fmb-fmc-hbcm)+8*(
0869 . p6p7*p1p3)*(-ffmcfmb*hbcm+2*fmb-fmc-hbcm)+8*p6p7*(-2*ffmcfmb*
0870 . fmb*hbcm2+2*ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3+2*fmb*fmc*hbcm-fmc
0871 . *hbcm2-2*fmc2*hbcm)+16*(-2*ffmcfmb*hbcm*p3p6*p3p7-2*ffmcfmb*
0872 . hbcm*p3p6*p5p7-2*ffmcfmb*hbcm*p3p7*p4p6+hbcm*p1p2*p6p7))+w12*(
0873 . 8*(p6p7*p1p3)*(ffmcfmb*hbcm+2*fmb-fmc-hbcm)+8*p6p7*(-ffmcfmb**
0874 . 2*hbcm3-2*ffmcfmb*fmb*hbcm2+2*ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3+
0875 . 2*fmb*fmc*hbcm-fmc*hbcm2-fmc2*hbcm)+16*(-ffmcfmb*hbcm*p3p6*
0876 . p3p7-2*ffmcfmb*hbcm*p3p6*p5p7))+4*p6p7*(4*fb1*ffmcfmb*hbcm-4*
0877 . fb1*hbcm+8*fb2*fmb-4*fb2*fmc+3*hbcm))
0878 b(16)=ans
0879 do 200 n=1,16
0880 c(n,1)=c(n,1)-0.09090909090909091d0*b(n)
0881 c(n,2)=c(n,2)-0.1680909685530997d0*b(n)
0882 c(n,3)=c(n,3)-0.2077659977796572d0*b(n)
0883 200 continue
0884 return
0885 end
0886
0887 subroutine amp16_3p0(cc)
0888 implicit double precision(a-h,o-z)
0889 implicit integer (i-n)
0890 dimension b(16)
0891 #include "inclcon.h"
0892 #include "inclppp.h"
0893 #include "inclamp.h"
0894 do 100 n=1,16
0895 b(n)=0.0d0
0896 100 continue
0897 ccc=cc/((ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*p3p5+fmb2+
0898 . hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3-2*ffmcfmb*p2p3-
0899 . fmc2+2*p1p2)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p2p3-fmc2))
0900 ans4=16*(-2*ffmcfmb*hbcm*p1p5*p3p6*p3p7+2*ffmcfmb*hbcm*p3p5*
0901 . p3p7*p5p6+fmb*hbcm2*p2p5*p6p7-fmb*p2p3*p3p5*p6p7-fmb2*hbcm*
0902 . p2p3*p6p7+2*hbcm*p2p3*p3p6*p5p7+2*hbcm*p2p3*p4p6*p5p7+2*hbcm*
0903 . p2p3*p5p6*p5p7+hbcm*p2p5*p3p5*p6p7-2*hbcm*p2p5*p3p7*p4p6-2*
0904 . hbcm*p2p5*p3p7*p5p6)
0905 ans3=16*(p5p7*p5p6)*(-ffmcfmb*hbcm3+fmc*hbcm2)+16*(p5p7*p4p6)*(
0906 . -ffmcfmb*hbcm3+fmc*hbcm2)+16*(p4p6*p3p7*p3p5)*(ffmcfmb*hbcm+
0907 . fmc)+16*(p5p7*p3p6*p3p5)*(-ffmcfmb*hbcm+fmc)+32*(p3p7*p3p6*
0908 . p2p5)*(-ffmcfmb*hbcm-hbcm)+16*(p4p6*p3p7)*(-ffmcfmb*fmb*hbcm2+
0909 . 2*fmb*fmc*hbcm)+16*(p5p7*p3p6)*(-ffmcfmb*fmb*hbcm2-ffmcfmb*
0910 . hbcm3+fmb*fmc*hbcm+fmc*hbcm2)+16*(p5p6*p3p7)*(-ffmcfmb**2*
0911 . hbcm3+ffmcfmb*hbcm3+fmb*fmc*hbcm)+8*(p6p7*p3p5)*(ffmcfmb**2*
0912 . hbcm3-ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3+fmb*
0913 . fmc*hbcm+fmc*hbcm2)+16*(p3p7*p3p6*p3p5)*(ffmcfmb**2*hbcm-
0914 . ffmcfmb*fmc+ffmcfmb*hbcm+fmc)+8*p6p7*(ffmcfmb**2*fmb*hbcm4-
0915 . ffmcfmb*fmb*fmc*hbcm3-ffmcfmb*fmb*hbcm4+ffmcfmb*fmb2*hbcm3-2*
0916 . ffmcfmb*hbcm*p3p5s2+fmb*fmc*hbcm3-fmb2*fmc*hbcm2+2*fmc*p3p5s2)
0917 . +16*(p3p7*p3p6)*(-ffmcfmb**2*fmb*hbcm2-ffmcfmb*fmb*fmc*hbcm-
0918 . ffmcfmb*fmb*hbcm2+ffmcfmb*fmb2*hbcm+2*fmb*fmc*hbcm)+ans4
0919 ans2=w2*ans3
0920 ans7=8*p6p7*(ffmcfmb**2*fmb*hbcm4-ffmcfmb**2*fmc*hbcm4+ffmcfmb
0921 . **2*hbcm5+4*ffmcfmb*hbcm*p2p3s2-fmb*fmc2*hbcm2-2*fmb*p2p3s2-
0922 . fmc2*hbcm3+fmc3*hbcm2)+16*(p3p7*p3p6)*(-ffmcfmb**2*fmb*hbcm2+
0923 . ffmcfmb**2*fmc*hbcm2+ffmcfmb**2*hbcm3-fmc2*hbcm)+16*(-2*hbcm*
0924 . p1p2*p2p3*p6p7+2*hbcm*p1p2*p3p5*p6p7+2*hbcm*p1p2*p3p6*p5p7+2*
0925 . hbcm*p1p2*p3p7*p4p6-hbcm*p1p3*p2p5*p6p7-hbcm*p2p3*p2p5*p6p7)
0926 ans6=16*(p6p7*p1p2)*(fmb*hbcm2-fmc*hbcm2+hbcm3)+16*(p6p7*p2p5)*
0927 . (ffmcfmb*hbcm3-fmc*hbcm2)+16*(p4p6*p3p7*p2p3)*(-ffmcfmb*hbcm+
0928 . fmc)+16*(p5p7*p3p6*p2p3)*(-ffmcfmb*hbcm+fmc)+16*(p6p7*p3p5*
0929 . p2p3)*(-3*ffmcfmb*hbcm+fmc)+16*(p4p6*p3p7*p1p3)*(-ffmcfmb*hbcm
0930 . +fmc)+16*(p5p7*p3p6*p1p3)*(-ffmcfmb*hbcm+fmc)+16*(p6p7*p3p5*
0931 . p1p3)*(-ffmcfmb*hbcm+fmc)+16*(p6p7*p2p3*p1p3)*(2*ffmcfmb*hbcm-
0932 . fmb)+32*(p3p7*p3p6*p1p2)*(-ffmcfmb*hbcm+hbcm)+16*(p4p6*p3p7)*(
0933 . ffmcfmb**2*hbcm3-fmc2*hbcm)+16*(p5p7*p3p6)*(ffmcfmb**2*hbcm3-
0934 . fmc2*hbcm)+16*(p6p7*p3p5)*(ffmcfmb**2*hbcm3-fmc2*hbcm)+8*(p6p7
0935 . *p2p3)*(-ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2-
0936 . 3*ffmcfmb*hbcm3-fmb*fmc*hbcm+fmc*hbcm2+2*fmc2*hbcm)+8*(p6p7*
0937 . p1p3)*(-ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2-
0938 . ffmcfmb*hbcm3+fmb*fmc*hbcm+fmc*hbcm2)+16*(p3p7*p3p6*p2p3)*(
0939 . ffmcfmb**2*hbcm-ffmcfmb*fmc-ffmcfmb*hbcm+fmc)+16*(p3p7*p3p6*
0940 . p1p3)*(ffmcfmb**2*hbcm-ffmcfmb*fmc-ffmcfmb*hbcm+fmc)+ans7
0941 ans5=w17*ans6
0942 ans8=(8*(p4p6*p3p7)*(4*fb1*ffmcfmb*hbcm+4*fb2*fmc-hbcm)+8*(p5p7
0943 . *p3p6)*(4*fb1*ffmcfmb*hbcm+4*fb2*fmc-hbcm)+8*(p6p7*p3p5)*(4*
0944 . fb1*ffmcfmb*hbcm+4*fb2*fmc-hbcm)+4*p6p7*(-4*fb1*ffmcfmb**2*
0945 . hbcm3+4*fb1*ffmcfmb*hbcm3+4*fb1*fmb*fmc*hbcm+4*fb2*ffmcfmb*fmb
0946 . *hbcm2-4*fb2*ffmcfmb*fmc*hbcm2+4*fb2*fmc*hbcm2-2*ffmcfmb*hbcm3
0947 . -fmb*hbcm2+3*fmc*hbcm2-hbcm3)+8*(p3p7*p3p6)*(4*fb1*ffmcfmb**2*
0948 . hbcm+4*fb1*ffmcfmb*hbcm-4*fb2*ffmcfmb*fmc+4*fb2*fmc+4*ffmcfmb*
0949 . hbcm-fmc-hbcm)+32*(-fb1*hbcm*p2p5*p6p7-fb2*fmb*p2p3*p6p7))
0950 ans1=w7*(16*(p6p7*p2p5)*(ffmcfmb*hbcm3-fmc*hbcm2)+16*(p4p6*p3p7
0951 . *p2p3)*(ffmcfmb*hbcm+fmc)+16*(p5p7*p3p6*p2p3)*(-ffmcfmb*hbcm+
0952 . fmc)+16*(p6p7*p3p5*p2p3)*(-ffmcfmb*hbcm+fmc)+8*(p6p7*p2p3)*(
0953 . ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-ffmcfmb*
0954 . hbcm3-fmb*fmc*hbcm+fmc*hbcm2)+16*(p3p7*p3p6*p2p3)*(ffmcfmb**2*
0955 . hbcm-ffmcfmb*fmc+ffmcfmb*hbcm+fmc)+16*(-2*ffmcfmb*hbcm*p1p2*
0956 . p3p6*p3p7+2*ffmcfmb*hbcm*p2p5*p3p6*p3p7-fmb*p2p3s2*p6p7-hbcm*
0957 . p2p3*p2p5*p6p7))+ans2+ans5+ans8
0958 ans=ccc*ans1
0959 b(1)=ans
0960 ans2=(8*p5p7*(-4*fb1*ffmcfmb*hbcm-4*fb2*fmc+hbcm)+4*p3p7*(-4*
0961 . fb1*ffmcfmb*hbcm-4*fb2*ffmcfmb*fmb+4*fb2*ffmcfmb*fmc-4*fb2*fmc
0962 . -fmb+fmc+hbcm))
0963 ans1=w7*(16*(p5p7*p2p3)*(ffmcfmb*hbcm-fmc)+8*(p3p7*p2p3)*(-
0964 . ffmcfmb*fmb+ffmcfmb*fmc-ffmcfmb*hbcm-fmc)+16*(ffmcfmb*hbcm*
0965 . p1p2*p3p7-2*ffmcfmb*hbcm*p2p5*p3p7))+w2*(16*(p5p7*p3p5)*(
0966 . ffmcfmb*hbcm-fmc)+16*(p5p7*p2p3)*(ffmcfmb*hbcm-hbcm)+8*(p3p7*
0967 . p3p5)*(-ffmcfmb*fmb+ffmcfmb*fmc-ffmcfmb*hbcm-fmc)+8*p3p7*(2*
0968 . ffmcfmb*fmb*fmc*hbcm+ffmcfmb*fmb*hbcm2-2*ffmcfmb*fmb2*hbcm-2*
0969 . fmb*fmc*hbcm)+8*p5p7*(-ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*hbcm2+
0970 . ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3-2*fmb*fmc*hbcm-fmc*hbcm2)+16*(
0971 . ffmcfmb*hbcm*p1p5*p3p7+hbcm*p2p5*p3p7))+w17*(16*(p5p7*p2p3)*(3
0972 . *ffmcfmb*hbcm-fmc)+16*(p5p7*p1p3)*(ffmcfmb*hbcm-fmc)+16*(p3p7*
0973 . p1p2)*(ffmcfmb*hbcm-hbcm)+8*(p3p7*p2p3)*(-ffmcfmb*fmb+ffmcfmb*
0974 . fmc+ffmcfmb*hbcm-fmc)+8*(p3p7*p1p3)*(-ffmcfmb*fmb+ffmcfmb*fmc+
0975 . ffmcfmb*hbcm-fmc)+16*p5p7*(-ffmcfmb**2*hbcm3+fmc2*hbcm)+8*p3p7
0976 . *(-ffmcfmb**2*hbcm3+fmc2*hbcm)+32*(-ffmcfmb*hbcm*p2p5*p3p7-
0977 . hbcm*p1p2*p5p7))+ans2
0978 ans=ccc*ans1
0979 b(2)=ans
0980 ans=ccc*(w7*(16*(p4p6*p2p3)*(ffmcfmb*hbcm-fmc)+8*(p3p6*p2p3)*(
0981 . ffmcfmb*hbcm-fmc))+w2*(16*(p4p6*p3p5)*(ffmcfmb*hbcm-fmc)+8*(
0982 . p3p6*p3p5)*(ffmcfmb*hbcm-fmc)+16*(p5p6*p2p3)*(-ffmcfmb*hbcm+
0983 . hbcm)+24*p4p6*(ffmcfmb*fmb*hbcm2-fmb*fmc*hbcm)+8*p5p6*(ffmcfmb
0984 . **2*hbcm3+ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3-
0985 . fmb*fmc*hbcm+fmc*hbcm2)+8*p3p6*(ffmcfmb**2*fmb*hbcm2-ffmcfmb*
0986 . fmb*fmc*hbcm+ffmcfmb*fmb*hbcm2-fmb*fmc*hbcm)+16*(ffmcfmb*hbcm*
0987 . p2p5*p3p6+hbcm*p2p5*p4p6+hbcm*p2p5*p5p6))+w17*(16*(p4p6*p2p3)*
0988 . (3*ffmcfmb*hbcm-fmc)+8*(p3p6*p2p3)*(5*ffmcfmb*hbcm-fmc)+16*(
0989 . p4p6*p1p3)*(ffmcfmb*hbcm-fmc)+8*(p3p6*p1p3)*(ffmcfmb*hbcm-fmc)
0990 . +16*(p3p6*p1p2)*(-ffmcfmb*hbcm-hbcm)+16*p4p6*(-ffmcfmb**2*
0991 . hbcm3+fmc2*hbcm)+8*p3p6*(ffmcfmb**2*fmb*hbcm2-ffmcfmb**2*fmc*
0992 . hbcm2-ffmcfmb**2*hbcm3-ffmcfmb*fmb*fmc*hbcm+ffmcfmb*fmc2*hbcm+
0993 . fmc2*hbcm)+32*(ffmcfmb*hbcm*p2p5*p3p6-hbcm*p1p2*p4p6))+(8*p4p6
0994 . *(-4*fb1*ffmcfmb*hbcm-4*fb2*fmc+hbcm)+4*p3p6*(-4*fb1*ffmcfmb*
0995 . hbcm-4*fb2*fmc+hbcm)))
0996 b(3)=ans
0997 ans3=((p4p6*p3p7)*(32*fb2*ffmcfmb+8)+(p6p7*p2p3)*(-32*fb2*
0998 . ffmcfmb-8)+(p3p7*p3p6)*(-32*fb2*ffmcfmb**2+32*fb2*ffmcfmb-16*
0999 . ffmcfmb+8)+4*p6p7*(4*fb1*ffmcfmb*fmb*hbcm+4*fb1*ffmcfmb*fmc*
1000 . hbcm-4*fb1*fmc*hbcm+4*fb2*ffmcfmb**2*hbcm2-4*fb2*ffmcfmb*hbcm2
1001 . +4*fb2*fmb*fmc-fmb*hbcm-fmc*hbcm+hbcm2)+32*(fb2*p1p2*p6p7-fb2*
1002 . p2p4*p6p7))
1003 ans2=w17*(16*(p6p7*p2p4)*(ffmcfmb*hbcm2-fmc*hbcm)+16*(p6p7*p1p2
1004 . )*(-ffmcfmb*hbcm2+fmb*hbcm+2*fmc*hbcm-hbcm2)+16*(p3p7*p3p6*
1005 . p2p3)*(-ffmcfmb**2+ffmcfmb)+16*(p3p7*p3p6*p1p3)*(-ffmcfmb**2+
1006 . ffmcfmb)+16*(p5p7*p3p6)*(ffmcfmb**2*hbcm2-ffmcfmb*fmc*hbcm)+8*
1007 . (p6p7*p2p3)*(ffmcfmb**2*hbcm2-3*ffmcfmb*fmb*hbcm-3*ffmcfmb*fmc
1008 . *hbcm+3*ffmcfmb*hbcm2+fmb*fmc-fmc*hbcm)+8*(p6p7*p1p3)*(ffmcfmb
1009 . **2*hbcm2-ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2+fmb*
1010 . fmc-fmc*hbcm)+8*p6p7*(ffmcfmb**2*fmb*hbcm3+ffmcfmb**2*fmc*
1011 . hbcm3-ffmcfmb**2*hbcm4-2*ffmcfmb*p2p3s2-fmb*fmc2*hbcm+fmc2*
1012 . hbcm2-fmc3*hbcm)+16*(ffmcfmb**2*hbcm2*p3p6*p3p7-ffmcfmb*p1p3*
1013 . p2p3*p6p7+ffmcfmb*p1p3*p3p7*p4p6+ffmcfmb*p2p3*p3p7*p4p6+p1p2*
1014 . p1p3*p6p7+p1p2*p2p3*p6p7-p1p3*p2p4*p6p7-p2p3*p2p4*p6p7))+ans3
1015 ans1=w7*(16*(p6p7*p2p4)*(ffmcfmb*hbcm2-fmc*hbcm)+16*(p6p7*p1p2)
1016 . *(-ffmcfmb*hbcm2+fmc*hbcm)+16*(p3p7*p3p6*p2p3)*(-ffmcfmb**2+
1017 . ffmcfmb)+8*(p6p7*p2p3)*(ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm-
1018 . ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2+fmb*fmc-fmc*hbcm)+16*(ffmcfmb*
1019 . p2p3*p3p7*p4p6-ffmcfmb*p2p3s2*p6p7+p1p2*p2p3*p6p7-p2p3*p2p4*
1020 . p6p7))+w2*(16*(p5p7*p5p6)*(ffmcfmb*hbcm2-fmc*hbcm)+16*(p5p7*
1021 . p4p6)*(ffmcfmb*hbcm2-fmc*hbcm)+16*(p5p6*p3p7)*(ffmcfmb*fmb*
1022 . hbcm+ffmcfmb*fmc*hbcm-fmc*hbcm)+16*(p3p7*p3p6*p3p5)*(-ffmcfmb
1023 . **2+ffmcfmb)+16*(p5p7*p3p6)*(ffmcfmb**2*hbcm2-ffmcfmb*fmc*hbcm
1024 . )+8*(p6p7*p3p5)*(ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm-ffmcfmb*fmc
1025 . *hbcm-ffmcfmb*hbcm2+fmb*fmc+fmc*hbcm)+8*p6p7*(ffmcfmb**2*fmb*
1026 . hbcm3-ffmcfmb*fmb*fmc*hbcm2-ffmcfmb*fmb*hbcm3-ffmcfmb*fmb2*
1027 . hbcm2+fmb*fmc*hbcm2+fmb2*fmc*hbcm)+16*(-ffmcfmb*fmb*hbcm*p2p3*
1028 . p6p7+ffmcfmb*fmb*hbcm*p3p6*p3p7+2*ffmcfmb*fmb*hbcm*p3p7*p4p6-
1029 . ffmcfmb*p2p3*p3p5*p6p7+ffmcfmb*p3p5*p3p7*p4p6+fmb*hbcm*p1p2*
1030 . p6p7-fmb*hbcm*p2p4*p6p7+p1p2*p3p5*p6p7-p2p4*p3p5*p6p7))+ans2
1031 ans=ccc*ans1
1032 b(4)=ans
1033 ans2=w17*(16*(p3p7*p2p5)*(ffmcfmb*hbcm2-2*fmc*hbcm)+8*(p5p7*
1034 . p2p3)*(-ffmcfmb*hbcm2+3*fmc*hbcm)+8*(p5p7*p1p3)*(ffmcfmb*hbcm2
1035 . -fmc*hbcm)+8*(p3p7*p2p3)*(ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+
1036 . ffmcfmb*hbcm2-fmb*fmc-fmc2)+8*(p3p7*p1p3)*(ffmcfmb*fmb*hbcm+
1037 . ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-fmb*fmc-fmc2)+8*p5p7*(-ffmcfmb
1038 . **2*hbcm4+fmc2*hbcm2+4*p2p3s2)+8*p3p7*(-ffmcfmb**2*fmb*hbcm3-
1039 . ffmcfmb**2*fmc*hbcm3-2*ffmcfmb*p1p3s2-2*ffmcfmb*p2p3s2+fmb*
1040 . fmc2*hbcm+fmc3*hbcm)+16*(-2*ffmcfmb*p1p3*p2p3*p3p7+ffmcfmb*
1041 . p1p3*p3p5*p3p7+ffmcfmb*p2p3*p3p5*p3p7-fmb*hbcm*p1p2*p3p7-hbcm2
1042 . *p1p2*p5p7+p1p2*p1p3*p3p7+p1p2*p2p3*p3p7+2*p1p3*p2p3*p5p7-2*
1043 . p1p3*p2p5*p3p7-2*p2p3*p2p5*p3p7))+((p3p7*p3p5)*(32*fb2*ffmcfmb
1044 . +8)+(p3p7*p2p3)*(-32*fb2*ffmcfmb-8)+(p3p7*p1p3)*(-32*fb2*
1045 . ffmcfmb-8)+4*p5p7*(-4*fb1*fmc*hbcm-4*fb2*ffmcfmb*hbcm2+hbcm2)+
1046 . 4*p3p7*(-4*fb1*ffmcfmb*fmb*hbcm-4*fb1*ffmcfmb*fmc*hbcm+4*fb2*
1047 . ffmcfmb*hbcm2-4*fb2*fmb*fmc-4*fb2*fmc2+2*ffmcfmb*hbcm2+fmb*
1048 . hbcm+fmc*hbcm+hbcm2)+32*(fb2*p1p2*p3p7+2*fb2*p2p3*p5p7-2*fb2*
1049 . p2p5*p3p7))
1050 ans1=w7*(16*(p3p7*p2p5)*(ffmcfmb*hbcm2-2*fmc*hbcm)+24*(p5p7*
1051 . p2p3)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(p3p7*p2p3)*(-ffmcfmb*fmb*
1052 . hbcm-ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-fmb*fmc-fmc2)+16*(-ffmcfmb
1053 . *p1p3*p2p3*p3p7+ffmcfmb*p2p3*p3p5*p3p7-ffmcfmb*p2p3s2*p3p7+fmc
1054 . *hbcm*p1p2*p3p7+p1p2*p2p3*p3p7-2*p2p3*p2p5*p3p7+2*p2p3s2*p5p7)
1055 . )+w2*(16*(p3p7*p2p5)*(-2*fmb*hbcm+fmc*hbcm)+8*(p5p7*p3p5)*(-
1056 . ffmcfmb*hbcm2+fmc*hbcm)+8*(p3p7*p3p5)*(3*ffmcfmb*fmb*hbcm-
1057 . ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-fmb*fmc-fmc2)+8*p5p7*(-ffmcfmb
1058 . **2*hbcm4-ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*hbcm3+ffmcfmb*hbcm4+
1059 . fmb*fmc*hbcm2-fmc*hbcm3)+8*p3p7*(-ffmcfmb**2*fmb*hbcm3+ffmcfmb
1060 . *fmb*fmc*hbcm2+2*ffmcfmb*fmb*hbcm3+ffmcfmb*fmb2*hbcm2+2*
1061 . ffmcfmb*p3p5s2-fmb*fmc2*hbcm-2*fmb2*fmc*hbcm)+16*(-ffmcfmb*fmb
1062 . *hbcm*p1p3*p3p7-ffmcfmb*fmb*hbcm*p2p3*p3p7-ffmcfmb*p1p3*p3p5*
1063 . p3p7-ffmcfmb*p2p3*p3p5*p3p7+fmb*hbcm*p1p2*p3p7+2*fmb*hbcm*p2p3
1064 . *p5p7+fmc*hbcm*p1p5*p3p7+p1p2*p3p5*p3p7+2*p2p3*p3p5*p5p7-2*
1065 . p2p5*p3p5*p3p7))+ans2
1066 ans=ccc*ans1
1067 b(5)=ans
1068 ans2=w17*(16*(p3p6*p1p2)*(-fmb*hbcm-fmc*hbcm)+16*(p3p6*p2p5)*(2
1069 . *ffmcfmb*hbcm2-fmc*hbcm)+8*(p4p6*p2p3)*(-ffmcfmb*hbcm2+3*fmc*
1070 . hbcm)+8*(p4p6*p1p3)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p3p6*p2p3)*(5*
1071 . ffmcfmb*fmb*hbcm+4*ffmcfmb*fmc*hbcm-fmb*fmc)+8*(p3p6*p1p3)*(
1072 . ffmcfmb*fmb*hbcm-fmb*fmc)+8*p4p6*(-ffmcfmb**2*hbcm4+fmc2*hbcm2
1073 . +4*p2p3s2)+16*(p3p6*p3p5)*(-ffmcfmb**2*hbcm2+ffmcfmb*fmc*hbcm)
1074 . +8*p3p6*(-ffmcfmb**2*fmb*hbcm3-ffmcfmb**2*fmc*hbcm3-ffmcfmb**2
1075 . *hbcm4+ffmcfmb*fmc*hbcm3+2*ffmcfmb*p2p3s2+fmb*fmc2*hbcm+fmc3*
1076 . hbcm)+16*(ffmcfmb*p1p3*p2p3*p3p6-hbcm2*p1p2*p4p6+2*p1p3*p2p3*
1077 . p4p6-p1p3*p2p5*p3p6-p2p3*p2p5*p3p6))+((p3p6*p2p3)*(32*fb2*
1078 . ffmcfmb+8)+4*p4p6*(-4*fb1*fmc*hbcm-4*fb2*ffmcfmb*hbcm2+hbcm2)+
1079 . 4*p3p6*(-4*fb1*ffmcfmb*fmb*hbcm-4*fb2*fmb*fmc+fmb*hbcm)+32*(2*
1080 . fb2*p2p3*p4p6-fb2*p2p5*p3p6))
1081 ans1=w7*(16*(p3p6*p2p5)*(ffmcfmb*hbcm2-fmc*hbcm)+24*(p4p6*p2p3)
1082 . *(-ffmcfmb*hbcm2+fmc*hbcm)+8*(p3p6*p2p3)*(-2*ffmcfmb**2*hbcm2+
1083 . ffmcfmb*fmb*hbcm+2*ffmcfmb*fmc*hbcm-fmb*fmc)+16*(ffmcfmb*
1084 . p2p3s2*p3p6-p2p3*p2p5*p3p6+2*p2p3s2*p4p6))+w2*(16*(p5p6*p3p5)*
1085 . (-ffmcfmb*hbcm2+fmc*hbcm)+24*(p4p6*p3p5)*(-ffmcfmb*hbcm2+fmc*
1086 . hbcm)+16*(p3p6*p2p5)*(ffmcfmb*hbcm2-fmb*hbcm)+16*p4p6*(-
1087 . ffmcfmb*fmb*hbcm3+fmb*fmc*hbcm2)+8*p5p6*(ffmcfmb**2*hbcm4-
1088 . ffmcfmb*fmb*hbcm3-ffmcfmb*fmc*hbcm3-ffmcfmb*hbcm4+fmb*fmc*
1089 . hbcm2+fmc*hbcm3)+8*(p3p6*p3p5)*(-2*ffmcfmb**2*hbcm2+ffmcfmb*
1090 . fmb*hbcm+2*ffmcfmb*fmc*hbcm-fmb*fmc)+8*p3p6*(-ffmcfmb**2*fmb*
1091 . hbcm3+ffmcfmb*fmb*fmc*hbcm2+ffmcfmb*fmb2*hbcm2-fmb2*fmc*hbcm)+
1092 . 16*(2*ffmcfmb*fmb*hbcm*p2p3*p3p6+ffmcfmb*p2p3*p3p5*p3p6+3*fmb*
1093 . hbcm*p2p3*p4p6+fmb*hbcm*p2p3*p5p6+hbcm2*p2p5*p4p6+hbcm2*p2p5*
1094 . p5p6+2*p2p3*p3p5*p4p6-p2p5*p3p5*p3p6))+ans2
1095 ans=ccc*ans1
1096 b(6)=ans
1097 ans2=w17*((p2p3*p1p3)*(-8*ffmcfmb+16)+24*p2p5*(-ffmcfmb*hbcm2+
1098 . fmc*hbcm)+8*p1p2*(ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm-hbcm2)+4*
1099 . p2p3*(ffmcfmb**2*hbcm2-6*ffmcfmb*fmb*hbcm-6*ffmcfmb*fmc*hbcm-
1100 . ffmcfmb*hbcm2+2*fmb*fmc+3*fmc*hbcm+fmc2)+4*p1p3*(ffmcfmb**2*
1101 . hbcm2-2*ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2+2*
1102 . fmb*fmc-fmc*hbcm+fmc2)+4*(2*ffmcfmb**2*fmb*hbcm3+2*ffmcfmb**2*
1103 . fmc*hbcm3-ffmcfmb**2*hbcm4-2*ffmcfmb*p2p3s2-2*fmb*fmc2*hbcm+
1104 . fmc2*hbcm2-2*fmc3*hbcm-2*p1p2*p1p3-2*p1p2*p2p3+6*p1p3*p2p5+6*
1105 . p2p3*p2p5+4*p2p3s2))+(p2p3*(-16*fb2*ffmcfmb+32*fb2-4)+2*(8*fb1
1106 . *ffmcfmb*fmb*hbcm+8*fb1*ffmcfmb*fmc*hbcm-4*fb1*fmc*hbcm+4*fb2*
1107 . ffmcfmb**2*hbcm2-4*fb2*ffmcfmb*hbcm2+8*fb2*fmb*fmc+4*fb2*fmc2-
1108 . 8*fb2*p1p2+24*fb2*p2p5-2*ffmcfmb*hbcm2-2*fmb*hbcm+hbcm2))
1109 ans1=w7*(24*p2p5*(-ffmcfmb*hbcm2+fmc*hbcm)+8*p1p2*(ffmcfmb*
1110 . hbcm2-fmc*hbcm)+4*p2p3*(ffmcfmb**2*hbcm2-2*ffmcfmb*fmb*hbcm-2*
1111 . ffmcfmb*fmc*hbcm-3*ffmcfmb*hbcm2+2*fmb*fmc+3*fmc*hbcm+fmc2)+8*
1112 . (-ffmcfmb*p2p3s2-p1p2*p2p3+3*p2p3*p2p5+2*p2p3s2))+w2*(8*p2p5*(
1113 . 3*fmb*hbcm-fmc*hbcm+hbcm2)+(p3p5*p2p3)*(-8*ffmcfmb+16)+8*p1p5*
1114 . (ffmcfmb*hbcm2-fmc*hbcm)+8*p2p3*(-2*ffmcfmb*fmb*hbcm+3*fmb*
1115 . hbcm)+4*p3p5*(ffmcfmb**2*hbcm2-2*ffmcfmb*fmb*hbcm-2*ffmcfmb*
1116 . fmc*hbcm-3*ffmcfmb*hbcm2+2*fmb*fmc+3*fmc*hbcm+fmc2)+4*(2*
1117 . ffmcfmb**2*fmb*hbcm3-3*ffmcfmb*fmb*fmc*hbcm2-2*ffmcfmb*fmb*
1118 . hbcm3-3*ffmcfmb*fmb2*hbcm2+2*fmb*fmc*hbcm2+fmb*fmc2*hbcm-2*fmb
1119 . *hbcm*p1p2+3*fmb2*fmc*hbcm-2*p1p2*p3p5+6*p2p5*p3p5))+ans2
1120 ans=ccc*ans1
1121 b(7)=ans
1122 ans3=(8*p3p5*(-4*fb1*ffmcfmb*hbcm-4*fb2*fmc+hbcm)+8*p2p3*(4*fb1
1123 . *ffmcfmb*hbcm+4*fb2*fmb+hbcm)+4*p1p3*(4*fb1*ffmcfmb*hbcm+4*fb2
1124 . *fmc-hbcm)+2*(-8*fb1*ffmcfmb*hbcm3-4*fb1*fmb*fmc*hbcm+4*fb1*
1125 . fmc2*hbcm-8*fb1*hbcm*p1p2+16*fb1*hbcm*p2p5-4*fb2*ffmcfmb*fmb*
1126 . hbcm2+4*fb2*ffmcfmb*fmc*hbcm2-8*fb2*fmc*hbcm2+fmb*hbcm2-fmc*
1127 . hbcm2+2*hbcm3))
1128 ans2=w17*(16*p2p5*(-ffmcfmb*hbcm3+fmc*hbcm2)+8*p1p2*(ffmcfmb*
1129 . hbcm3-fmb*hbcm2-2*hbcm3)+16*(p3p5*p2p3)*(3*ffmcfmb*hbcm-fmc)+
1130 . 16*(p3p5*p1p3)*(ffmcfmb*hbcm-fmc)+8*(p2p3*p1p3)*(-5*ffmcfmb*
1131 . hbcm+2*fmb+fmc)+16*p3p5*(-ffmcfmb**2*hbcm3+fmc2*hbcm)+4*p2p3*(
1132 . 2*ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+6*
1133 . ffmcfmb*hbcm3+3*fmb*fmc*hbcm-2*fmc*hbcm2-5*fmc2*hbcm)+4*p1p3*(
1134 . 2*ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2+2*
1135 . ffmcfmb*hbcm3-fmb*fmc*hbcm-2*fmc*hbcm2-fmc2*hbcm)+4*(-ffmcfmb
1136 . **2*fmb*hbcm4+ffmcfmb**2*fmc*hbcm4-2*ffmcfmb**2*hbcm5-2*
1137 . ffmcfmb*hbcm*p1p3s2-8*ffmcfmb*hbcm*p2p3s2+fmb*fmc2*hbcm2+4*fmb
1138 . *p2p3s2+2*fmc*p1p3s2+2*fmc2*hbcm3-fmc3*hbcm2+2*hbcm*p1p2*p1p3+
1139 . 6*hbcm*p1p2*p2p3-8*hbcm*p1p2*p3p5+4*hbcm*p1p3*p2p5+4*hbcm*p2p3
1140 . *p2p5))+ans3
1141 ans1=w7*(16*p2p5*(-ffmcfmb*hbcm3+fmc*hbcm2)+8*p1p2*(ffmcfmb*
1142 . hbcm3-fmc*hbcm2)+16*(p3p5*p2p3)*(ffmcfmb*hbcm-fmc)+8*(p2p3*
1143 . p1p3)*(-ffmcfmb*hbcm+fmc)+4*p2p3*(-2*ffmcfmb**2*hbcm3-3*
1144 . ffmcfmb*fmb*hbcm2+3*ffmcfmb*fmc*hbcm2+2*ffmcfmb*hbcm3+3*fmb*
1145 . fmc*hbcm-2*fmc*hbcm2-fmc2*hbcm)+8*(2*fmb*p2p3s2-hbcm*p1p2*p2p3
1146 . +2*hbcm*p2p3*p2p5))+w2*(8*p2p5*(-2*fmb*hbcm2-fmc*hbcm2+hbcm3)+
1147 . 8*p1p5*(ffmcfmb*hbcm3-fmc*hbcm2)+8*(p3p5*p1p3)*(-ffmcfmb*hbcm+
1148 . fmc)+8*p2p3*(-2*ffmcfmb*fmb*hbcm2+3*fmb2*hbcm)+8*p1p3*(-
1149 . ffmcfmb*fmb*hbcm2+fmb*fmc*hbcm)+4*p3p5*(-2*ffmcfmb**2*hbcm3+3*
1150 . ffmcfmb*fmb*hbcm2+3*ffmcfmb*fmc*hbcm2+2*ffmcfmb*hbcm3-3*fmb*
1151 . fmc*hbcm-2*fmc*hbcm2-fmc2*hbcm)+4*(-ffmcfmb**2*fmb*hbcm4+2*
1152 . ffmcfmb*fmb*fmc*hbcm3+3*ffmcfmb*fmb*hbcm4-2*ffmcfmb*fmb2*hbcm3
1153 . +4*ffmcfmb*hbcm*p3p5s2-3*fmb*fmc*hbcm3-fmb*fmc2*hbcm2+2*fmb*
1154 . hbcm2*p1p2+4*fmb*p2p3*p3p5+2*fmb2*fmc*hbcm2-4*fmc*p3p5s2+2*
1155 . hbcm*p1p2*p3p5-4*hbcm*p1p5*p2p3-4*hbcm*p2p3*p2p5-4*hbcm*p2p5*
1156 . p3p5))+ans2
1157 ans=ccc*ans1
1158 b(8)=ans
1159 b(9)=ccc*(w2*(8*p5p6*(ffmcfmb*hbcm3-fmb*hbcm2-hbcm3)+8*(p3p6*
1160 . p3p5)*(-3*ffmcfmb*hbcm+fmb)+8*p3p6*(-2*ffmcfmb*fmb*hbcm2+fmb2*
1161 . hbcm)+8*(-3*fmb*hbcm2*p4p6-4*hbcm*p3p5*p4p6-2*hbcm*p3p5*p5p6))
1162 . +w17*(16*p4p6*(-ffmcfmb*hbcm3+fmc*hbcm2)+8*(p3p6*p2p3)*(
1163 . ffmcfmb*hbcm+fmb)+8*(p3p6*p1p3)*(ffmcfmb*hbcm+fmb)+8*p3p6*(-2*
1164 . ffmcfmb*fmb*hbcm2+2*ffmcfmb*fmc*hbcm2-2*ffmcfmb*hbcm3+fmb*fmc*
1165 . hbcm-fmc2*hbcm)+16*(-2*ffmcfmb*hbcm*p3p5*p3p6+hbcm*p1p2*p3p6+
1166 . hbcm*p1p3*p4p6+hbcm*p2p3*p4p6))+w7*(16*p4p6*(-ffmcfmb*hbcm3+
1167 . fmc*hbcm2)+8*(p3p6*p2p3)*(ffmcfmb*hbcm+fmb)+8*p3p6*(-ffmcfmb**
1168 . 2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm)+16*
1169 . hbcm*p2p3*p4p6)+(4*p3p6*(4*fb1*ffmcfmb*hbcm+4*fb2*fmb+3*hbcm)+
1170 . 32*fb1*hbcm*p4p6))
1171 b(10)=ccc*(w2*((p3p6*p3p5)*(-8*ffmcfmb-8)+8*p5p6*(-ffmcfmb*
1172 . hbcm2-fmb*hbcm+hbcm2)+8*p3p6*(-2*ffmcfmb*fmb*hbcm-fmb*hbcm)+8*
1173 . (-4*fmb*hbcm*p4p6-3*p3p5*p4p6))+w17*((p3p6*p2p3)*(-8*ffmcfmb-8
1174 . )+(p3p6*p1p3)*(-8*ffmcfmb-8)+24*p4p6*(ffmcfmb*hbcm2-fmc*hbcm)+
1175 . 8*p3p6*(-2*ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*hbcm+2*ffmcfmb*hbcm2
1176 . -fmc*hbcm)+24*(-p1p3*p4p6-p2p3*p4p6))+w7*((p3p6*p2p3)*(-8*
1177 . ffmcfmb-8)+24*p4p6*(ffmcfmb*hbcm2-fmc*hbcm)+8*p3p6*(ffmcfmb**2
1178 . *hbcm2-ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-fmc*hbcm)-24*p2p3*p4p6)+
1179 . (p3p6*(-16*fb2*ffmcfmb-16*fb2-4)-48*fb2*p4p6))
1180 ans=ccc*(w2*(4*p3p5*(3*ffmcfmb*hbcm2-4*fmb*hbcm+fmc*hbcm-3*
1181 . hbcm2)+4*(2*ffmcfmb*fmb*hbcm3+fmb*fmc*hbcm2+2*fmb*hbcm*p1p3+2*
1182 . fmb*hbcm*p2p3-4*fmb*hbcm3+3*fmb2*hbcm2-2*hbcm2*p1p5-2*hbcm2*
1183 . p2p5+2*p1p3*p3p5+2*p2p3*p3p5-6*p3p5s2))+w17*(24*p3p5*(ffmcfmb*
1184 . hbcm2-fmc*hbcm)+4*p2p3*(-3*ffmcfmb*hbcm2-2*fmb*hbcm+fmc*hbcm-3
1185 . *hbcm2)+4*p1p3*(-3*ffmcfmb*hbcm2-2*fmb*hbcm+fmc*hbcm-3*hbcm2)+
1186 . 4*(2*ffmcfmb*fmb*hbcm3+2*ffmcfmb*fmc*hbcm3+3*ffmcfmb*hbcm4-2*
1187 . fmb*fmc*hbcm2-3*fmc*hbcm3-2*fmc2*hbcm2+2*hbcm2*p1p2+4*p1p3*
1188 . p2p3-6*p1p3*p3p5+2*p1p3s2-6*p2p3*p3p5+2*p2p3s2))+w7*(24*p3p5*(
1189 . ffmcfmb*hbcm2-fmc*hbcm)+4*p2p3*(-ffmcfmb*hbcm2-2*fmb*hbcm+fmc*
1190 . hbcm-3*hbcm2)+8*p1p3*(-ffmcfmb*hbcm2+fmc*hbcm)+4*(-ffmcfmb**2*
1191 . hbcm4+2*ffmcfmb*fmb*hbcm3+2*ffmcfmb*fmc*hbcm3+3*ffmcfmb*hbcm4-
1192 . 2*fmb*fmc*hbcm2-3*fmc*hbcm3-fmc2*hbcm2+2*p1p3*p2p3-6*p2p3*p3p5
1193 . +2*p2p3s2))+2*(-8*fb1*fmb*hbcm-4*fb1*fmc*hbcm+4*fb2*ffmcfmb*
1194 . hbcm2-12*fb2*hbcm2+8*fb2*p1p3+8*fb2*p2p3-24*fb2*p3p5+3*hbcm2))
1195 b(11)=ans
1196 ans=ccc*(w2*(8*p5p7*(ffmcfmb*hbcm3+2*fmb*hbcm2-hbcm3)+8*(p3p7*
1197 . p3p5)*(-ffmcfmb*hbcm-2*fmb+fmc)+8*p3p7*(ffmcfmb*fmb*hbcm2+fmb*
1198 . fmc*hbcm-3*fmb2*hbcm)+16*(hbcm*p1p5*p3p7+hbcm*p2p5*p3p7+hbcm*
1199 . p3p5*p5p7))+w17*(16*p5p7*(ffmcfmb*hbcm3-fmc*hbcm2)+8*(p3p7*
1200 . p2p3)*(3*ffmcfmb*hbcm-2*fmb+fmc)+8*(p3p7*p1p3)*(3*ffmcfmb*hbcm
1201 . -2*fmb+fmc)+8*p3p7*(ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-2*
1202 . ffmcfmb*hbcm3-2*fmb*fmc*hbcm+2*fmc2*hbcm)+16*(-2*ffmcfmb*hbcm*
1203 . p3p5*p3p7-hbcm*p1p2*p3p7-hbcm*p1p3*p5p7-hbcm*p2p3*p5p7))+w7*(
1204 . 16*p5p7*(ffmcfmb*hbcm3-fmc*hbcm2)+8*(p3p7*p2p3)*(ffmcfmb*hbcm-
1205 . 2*fmb+fmc)+8*p3p7*(ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2-ffmcfmb*
1206 . fmc*hbcm2-2*ffmcfmb*hbcm3-2*fmb*fmc*hbcm+fmc2*hbcm)+16*(
1207 . ffmcfmb*hbcm*p1p3*p3p7-2*ffmcfmb*hbcm*p3p5*p3p7-hbcm*p2p3*p5p7
1208 . ))+(4*p3p7*(-4*fb1*ffmcfmb*hbcm-8*fb2*fmb+4*fb2*fmc-3*hbcm)-32
1209 . *fb1*hbcm*p5p7))
1210 b(12)=ans
1211 b(13)=ccc*(w2*(4*p3p5*(2*ffmcfmb*hbcm-3*fmb+fmc-4*hbcm)+4*(3*
1212 . ffmcfmb*fmb*hbcm2+fmb*fmc*hbcm-3*fmb*hbcm2-4*fmb2*hbcm+2*hbcm*
1213 . p1p5+2*hbcm*p2p5))+w17*(4*p2p3*(2*ffmcfmb*hbcm-3*fmb+fmc+2*
1214 . hbcm)+4*p1p3*(2*ffmcfmb*hbcm-3*fmb+fmc+2*hbcm)+4*(3*ffmcfmb*
1215 . fmb*hbcm2-3*ffmcfmb*fmc*hbcm2-2*ffmcfmb*hbcm3-3*fmb*fmc*hbcm+2
1216 . *fmc*hbcm2+3*fmc2*hbcm-4*hbcm*p1p2))+w7*(4*p2p3*(-2*ffmcfmb*
1217 . hbcm-3*fmb+fmc+2*hbcm)+4*(2*ffmcfmb**2*hbcm3+3*ffmcfmb*fmb*
1218 . hbcm2-3*ffmcfmb*fmc*hbcm2-2*ffmcfmb*hbcm3-3*fmb*fmc*hbcm+2*fmc
1219 . *hbcm2+fmc2*hbcm))+4*(-4*fb1*ffmcfmb*hbcm+4*fb1*hbcm-6*fb2*fmb
1220 . +2*fb2*fmc-3*hbcm))
1221 b(14)=ccc*(w7*((p3p7*p2p3)*(8*ffmcfmb-16)+24*p5p7*(ffmcfmb*
1222 . hbcm2-fmc*hbcm)+8*p3p7*(2*ffmcfmb*fmb*hbcm+2*ffmcfmb*fmc*hbcm+
1223 . ffmcfmb*hbcm2-2*fmc*hbcm)-24*p2p3*p5p7)+w2*((p3p7*p3p5)*(8*
1224 . ffmcfmb-16)+8*p5p7*(ffmcfmb*hbcm2-3*fmb*hbcm-hbcm2)+8*p3p7*(2*
1225 . ffmcfmb*fmb*hbcm-3*fmb*hbcm)-24*p3p5*p5p7)+w17*((p3p7*p2p3)*(8
1226 . *ffmcfmb-16)+(p3p7*p1p3)*(8*ffmcfmb-16)+24*p5p7*(ffmcfmb*hbcm2
1227 . -fmc*hbcm)+8*p3p7*(2*ffmcfmb*fmb*hbcm+2*ffmcfmb*fmc*hbcm+
1228 . ffmcfmb*hbcm2-2*fmc*hbcm)+24*(-p1p3*p5p7-p2p3*p5p7))+(p3p7*(16
1229 . *fb2*ffmcfmb-32*fb2+4)-48*fb2*p5p7))
1230 ans2=w7*(16*(p4p6*p3p7)*(ffmcfmb*hbcm2-2*fmc*hbcm)+16*(p5p7*
1231 . p3p6)*(-ffmcfmb*hbcm2+fmc*hbcm)+16*(p6p7*p3p4)*(-ffmcfmb*hbcm2
1232 . +fmc*hbcm)+8*(p6p7*p2p3)*(3*ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm+
1233 . hbcm2)+16*(p6p7*p1p3)*(ffmcfmb*hbcm2-fmc*hbcm)+8*p6p7*(-
1234 . ffmcfmb**2*hbcm4+ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*hbcm3-ffmcfmb*
1235 . hbcm4-fmb*fmc*hbcm2+fmc*hbcm3-2*p2p3s2)+16*(p3p7*p3p6)*(
1236 . ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm)+16*(-
1237 . ffmcfmb*p2p3*p3p6*p3p7-p1p3*p2p3*p6p7+p2p3*p3p4*p6p7+p2p3*p3p6
1238 . *p5p7-2*p2p3*p3p7*p4p6))+((p3p7*p3p6)*(-32*fb2*ffmcfmb-8)+4*
1239 . p6p7*(-4*fb1*fmb*hbcm+4*fb2*ffmcfmb*hbcm2+4*fb2*hbcm2+hbcm2)+
1240 . 32*(-fb2*p1p3*p6p7-fb2*p2p3*p6p7+fb2*p3p4*p6p7+fb2*p3p6*p5p7-2
1241 . *fb2*p3p7*p4p6))
1242 ans1=w2*(16*(p5p7*p3p6)*(-ffmcfmb*hbcm2+fmb*hbcm)+8*(p6p7*p3p5)
1243 . *(ffmcfmb*hbcm2+fmb*hbcm+hbcm2)+8*p6p7*(ffmcfmb*fmb*hbcm3+fmb*
1244 . hbcm3+fmb2*hbcm2)+16*(-2*ffmcfmb*fmb*hbcm*p3p6*p3p7-ffmcfmb*
1245 . p3p5*p3p6*p3p7-fmb*hbcm*p1p3*p6p7-fmb*hbcm*p2p3*p6p7+fmb*hbcm*
1246 . p3p4*p6p7-3*fmb*hbcm*p3p7*p4p6-fmb*hbcm*p3p7*p5p6-hbcm2*p4p6*
1247 . p5p7-hbcm2*p5p6*p5p7-p1p3*p3p5*p6p7-p2p3*p3p5*p6p7+p3p4*p3p5*
1248 . p6p7+p3p5*p3p6*p5p7-2*p3p5*p3p7*p4p6))+w17*(16*(p4p6*p3p7)*(
1249 . ffmcfmb*hbcm2-2*fmc*hbcm)+16*(p5p7*p3p6)*(-2*ffmcfmb*hbcm2+fmc
1250 . *hbcm)+16*(p6p7*p3p4)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(p6p7*p2p3)*
1251 . (ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm+hbcm2)+8*(p6p7*p1p3)*(
1252 . ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm+hbcm2)+8*p6p7*(ffmcfmb*fmb*
1253 . hbcm3+ffmcfmb*fmc*hbcm3-ffmcfmb*hbcm4-fmb*fmc*hbcm2+fmc*hbcm3-
1254 . fmc2*hbcm2-2*p1p3s2-2*p2p3s2)+32*(p3p7*p3p6)*(-ffmcfmb*fmb*
1255 . hbcm-ffmcfmb*fmc*hbcm)+16*(-ffmcfmb*p1p3*p3p6*p3p7-ffmcfmb*
1256 . p2p3*p3p6*p3p7+hbcm2*p1p2*p6p7-2*p1p3*p2p3*p6p7+p1p3*p3p4*p6p7
1257 . +p1p3*p3p6*p5p7-2*p1p3*p3p7*p4p6+p2p3*p3p4*p6p7+p2p3*p3p6*p5p7
1258 . -2*p2p3*p3p7*p4p6))+ans2
1259 ans=ccc*ans1
1260 b(15)=ans
1261 b(16)=ccc*(w2*(16*(p5p6*p3p7)*(ffmcfmb*hbcm-hbcm)+8*(p6p7*p3p5)
1262 . *(-ffmcfmb*hbcm+fmb+hbcm)+8*p6p7*(-ffmcfmb*fmb*hbcm2+fmb*hbcm2
1263 . +fmb2*hbcm)+16*(-ffmcfmb*hbcm*p3p6*p5p7-hbcm*p4p6*p5p7-hbcm*
1264 . p5p6*p5p7))+w17*(8*(p6p7*p2p3)*(-ffmcfmb*hbcm+fmb-hbcm)+8*(
1265 . p6p7*p1p3)*(-ffmcfmb*hbcm+fmb-hbcm)+8*p6p7*(-ffmcfmb*fmb*hbcm2
1266 . +ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3+fmb*fmc*hbcm-fmc*hbcm2-fmc2*
1267 . hbcm)+16*(-2*ffmcfmb*hbcm*p3p6*p3p7-2*ffmcfmb*hbcm*p3p6*p5p7-2
1268 . *ffmcfmb*hbcm*p3p7*p4p6+hbcm*p1p2*p6p7))+w7*(8*(p6p7*p2p3)*(
1269 . ffmcfmb*hbcm+fmb-hbcm)+8*p6p7*(-ffmcfmb**2*hbcm3-ffmcfmb*fmb*
1270 . hbcm2+ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3+fmb*fmc*hbcm-fmc*hbcm2)+
1271 . 16*(-ffmcfmb*hbcm*p3p6*p3p7-2*ffmcfmb*hbcm*p3p7*p4p6))+4*p6p7*
1272 . (4*fb1*ffmcfmb*hbcm-4*fb1*hbcm+4*fb2*fmb+3*hbcm))
1273 do 200 n=1,16
1274 c(n,1)=c(n,1)-0.1818181818181818d0*b(n)
1275 c(n,2)=c(n,2)-0.05883183899358491d0*b(n)
1276 c(n,3)=c(n,3)-0.2077659977796572d0*b(n)
1277 200 continue
1278 return
1279 end
1280
1281 subroutine amp15_3p0(cc)
1282 implicit double precision(a-h,o-z)
1283 implicit integer (i-n)
1284 dimension b(16)
1285 #include "inclcon.h"
1286 #include "inclppp.h"
1287 #include "inclamp.h"
1288 do 100 n=1,16
1289 b(n)=0.0d0
1290 100 continue
1291 ccc=cc/((-2*p2p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2+2*ffmcfmb*
1292 . p2p3-2*ffmcfmb*p3p5+fmb2+hbcm2-2*p2p3-2*p2p5+2*p3p5)*(ffmcfmb
1293 . **2*hbcm2-2*ffmcfmb*p1p3-fmc2))
1294 b(1)=ccc*(w16*(16*(p5p7*p5p6)*(-ffmcfmb*hbcm3+fmb*hbcm2+hbcm3)+
1295 . 16*(p5p7*p3p6*p3p5)*(ffmcfmb*hbcm-fmc+2*hbcm)+16*(p5p7*p3p6*
1296 . p2p3)*(-ffmcfmb*hbcm+fmc-2*hbcm)+16*(p5p7*p3p6)*(-ffmcfmb*fmb*
1297 . hbcm2-fmb*fmc*hbcm+fmb*hbcm2+fmb2*hbcm)+16*(fmb*hbcm2*p4p6*
1298 . p5p7+2*hbcm*p1p2*p3p6*p5p7-2*hbcm*p1p5*p3p6*p5p7-2*hbcm*p2p3*
1299 . p4p6*p5p7-2*hbcm*p2p3*p5p6*p5p7-2*hbcm*p2p5*p3p6*p5p7+2*hbcm*
1300 . p3p5*p4p6*p5p7+2*hbcm*p3p5*p5p6*p5p7))+w12*(16*(p5p7*p3p6*p1p3
1301 . )*(ffmcfmb*hbcm-fmc)+16*(p5p7*p3p6)*(-ffmcfmb*fmb*hbcm2+
1302 . ffmcfmb*fmc*hbcm2))+8*(p5p7*p3p6)*(4*fb1*ffmcfmb*hbcm-4*fb2*
1303 . fmc+3*hbcm))
1304 b(2)=ccc*(w16*(8*(p5p7*p3p5)*(-fmb+fmc-2*hbcm)+8*(p5p7*p2p3)*(
1305 . fmb-fmc+2*hbcm)+8*p5p7*(ffmcfmb*fmb*hbcm2+fmb*fmc*hbcm-fmb*
1306 . hbcm2-2*fmb2*hbcm)+16*(-hbcm*p1p2*p5p7+hbcm*p1p5*p5p7+2*hbcm*
1307 . p2p5*p5p7))+w12*(8*(p5p7*p1p3)*(-fmb+fmc)+8*p5p7*(ffmcfmb*fmb*
1308 . hbcm2-ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm+fmc2*hbcm))+16*p5p7*(-fb2
1309 . *fmb+fb2*fmc))
1310 b(3)=16*ccc*w16*(hbcm*p2p5*p3p6+2*hbcm*p2p5*p4p6+hbcm*p2p5*p5p6
1311 . )
1312 b(4)=ccc*(w16*((p5p7*p3p6*p3p5)*(-16*ffmcfmb+16)+(p5p7*p3p6*
1313 . p2p3)*(16*ffmcfmb-16)+16*(p5p7*p5p6)*(ffmcfmb*hbcm2+fmb*hbcm-
1314 . hbcm2)+16*(fmb*hbcm*p3p6*p5p7+2*fmb*hbcm*p4p6*p5p7-p2p3*p4p6*
1315 . p5p7+p3p5*p4p6*p5p7))+w12*((p5p7*p3p6*p1p3)*(-16*ffmcfmb+16)+
1316 . 16*(p5p7*p4p6)*(-ffmcfmb*hbcm2+fmc*hbcm)+16*(fmc*hbcm*p3p6*
1317 . p5p7+p1p3*p4p6*p5p7))+((p5p7*p3p6)*(-32*fb2*ffmcfmb+32*fb2-8)+
1318 . 32*fb2*p4p6*p5p7))
1319 b(5)=ccc*(w16*(8*p5p7*(-fmb*fmc*hbcm2+2*fmb*hbcm3-fmb2*hbcm2+2*
1320 . p2p3s2+2*p3p5s2)+8*(p5p7*p3p5)*(-ffmcfmb*hbcm2+2*fmb*hbcm-fmc*
1321 . hbcm+hbcm2)+8*(p5p7*p2p3)*(ffmcfmb*hbcm2-2*fmb*hbcm+fmc*hbcm-
1322 . hbcm2)+16*(-fmb*hbcm*p1p3*p5p7-hbcm2*p1p2*p5p7+hbcm2*p1p5*p5p7
1323 . +hbcm2*p2p5*p5p7+p1p3*p2p3*p5p7-p1p3*p3p5*p5p7-2*p2p3*p3p5*
1324 . p5p7))+w12*(8*p5p7*(-ffmcfmb*hbcm4+fmc*hbcm3-2*p1p3s2)+16*(
1325 . p5p7*p3p5)*(-ffmcfmb*hbcm2+fmc*hbcm)+16*(p5p7*p2p3)*(ffmcfmb*
1326 . hbcm2-fmc*hbcm)+8*(p5p7*p1p3)*(ffmcfmb*hbcm2-fmc*hbcm+hbcm2)+
1327 . 16*(-p1p3*p2p3*p5p7+p1p3*p3p5*p5p7))+(4*p5p7*(4*fb1*fmc*hbcm+4
1328 . *fb2*ffmcfmb*hbcm2+4*fb2*hbcm2-hbcm2)+32*(-fb2*p1p3*p5p7-fb2*
1329 . p2p3*p5p7+fb2*p3p5*p5p7)))
1330 b(6)=ccc*(16*w16*(hbcm2*p2p5*p4p6+hbcm2*p2p5*p5p6+p2p3*p2p5*
1331 . p3p6-p2p5*p3p5*p3p6)+16*w12*(-fmc*hbcm*p2p5*p3p6-p1p3*p2p5*
1332 . p3p6)-32*fb2*p2p5*p3p6)
1333 b(7)=ccc*(w16*(8*p2p5*(-ffmcfmb*hbcm2-fmc*hbcm+hbcm2)+8*(-p2p3*
1334 . p2p5+p2p5*p3p5))+w12*(8*p2p5*(-ffmcfmb*hbcm2+fmc*hbcm)+8*p1p3*
1335 . p2p5)+16*fb2*p2p5)
1336 b(8)=w16*ccc*(8*p2p5*(-fmc*hbcm2+2*hbcm3)+16*(-hbcm*p1p3*p2p5-
1337 . hbcm*p2p3*p2p5+hbcm*p2p5*p3p5))
1338 b(9)=ccc*(w16*(8*p5p6*(ffmcfmb*hbcm3-fmb*hbcm2-hbcm3)+8*(p3p6*
1339 . p3p5)*(-ffmcfmb*hbcm+fmb)+8*(p3p6*p2p3)*(ffmcfmb*hbcm-fmb)+8*(
1340 . -fmb*hbcm2*p4p6+fmb2*hbcm*p3p6+2*hbcm*p2p3*p4p6+2*hbcm*p2p3*
1341 . p5p6-2*hbcm*p2p5*p3p6-2*hbcm*p3p5*p4p6-2*hbcm*p3p5*p5p6))+w12*
1342 . (8*p3p6*(fmb*fmc*hbcm-fmc2*hbcm)+8*(p3p6*p1p3)*(-ffmcfmb*hbcm+
1343 . fmb))+4*p3p6*(-4*fb1*ffmcfmb*hbcm+4*fb2*fmb-3*hbcm))
1344 b(10)=ccc*(w16*((p3p6*p3p5)*(8*ffmcfmb-8)+(p3p6*p2p3)*(-8*
1345 . ffmcfmb+8)+8*p5p6*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(-fmb*hbcm
1346 . *p3p6-2*fmb*hbcm*p4p6+p2p3*p4p6-p3p5*p4p6))+w12*((p3p6*p1p3)*(
1347 . 8*ffmcfmb-8)+8*p4p6*(ffmcfmb*hbcm2-fmc*hbcm)+8*(-fmc*hbcm*p3p6
1348 . -p1p3*p4p6))+(p3p6*(16*fb2*ffmcfmb-16*fb2+4)-16*fb2*p4p6))
1349 b(11)=ccc*(w16*(4*p3p5*(ffmcfmb*hbcm2-2*fmb*hbcm+fmc*hbcm-hbcm2
1350 . )+4*p2p3*(-ffmcfmb*hbcm2+2*fmb*hbcm-fmc*hbcm+hbcm2)+4*(fmb*fmc
1351 . *hbcm2+2*fmb*hbcm*p1p3-2*fmb*hbcm3+fmb2*hbcm2+2*hbcm2*p1p2-2*
1352 . hbcm2*p1p5-2*hbcm2*p2p5-2*p1p3*p2p3+2*p1p3*p3p5+4*p2p3*p3p5-2*
1353 . p2p3s2-2*p3p5s2))+w12*(8*p3p5*(ffmcfmb*hbcm2-fmc*hbcm)+8*p2p3*
1354 . (-ffmcfmb*hbcm2+fmc*hbcm)+4*p1p3*(-ffmcfmb*hbcm2+fmc*hbcm-
1355 . hbcm2)+4*(ffmcfmb*hbcm4-fmc*hbcm3+2*p1p3*p2p3-2*p1p3*p3p5+2*
1356 . p1p3s2))+2*(-4*fb1*fmc*hbcm-4*fb2*ffmcfmb*hbcm2-4*fb2*hbcm2+8*
1357 . fb2*p1p3+8*fb2*p2p3-8*fb2*p3p5+hbcm2))
1358 b(13)=ccc*(w16*(4*p3p5*(-fmb+fmc-2*hbcm)+4*p2p3*(fmb-fmc+2*hbcm
1359 . )+4*(ffmcfmb*fmb*hbcm2+fmb*fmc*hbcm-fmb*hbcm2-2*fmb2*hbcm-2*
1360 . hbcm*p1p2+2*hbcm*p1p5+4*hbcm*p2p5))+w12*(4*p1p3*(-fmb+fmc)+4*(
1361 . ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm+fmc2*hbcm))+8
1362 . *(-fb2*fmb+fb2*fmc))
1363 do 200 n=1,16
1364 c(n,2)=c(n,2)+0.09245003270420485d0*b(n)
1365 c(n,3)=c(n,3)-0.02077659977796572d0*b(n)
1366 200 continue
1367 return
1368 end
1369
1370 subroutine amp14_3p0(cc)
1371 implicit double precision(a-h,o-z)
1372 implicit integer (i-n)
1373 dimension b(16)
1374 #include "inclcon.h"
1375 #include "inclppp.h"
1376 #include "inclamp.h"
1377 do 100 n=1,16
1378 b(n)=0.0d0
1379 100 continue
1380 ccc=cc/((-2*p2p5)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2)*(
1381 . ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2+2*ffmcfmb*p1p3-fmb2+hbcm2-2*
1382 . p1p3))
1383 b(1)=ccc*(w1*(16*(p5p7*p3p6)*(fmc*hbcm2+fmc2*hbcm)+16*(p5p7*
1384 . p4p6)*(-ffmcfmb*hbcm3+2*hbcm3)+16*(p5p7*p3p6*p3p4)*(ffmcfmb*
1385 . hbcm+fmc+hbcm)+32*(-hbcm*p1p3*p4p6*p5p7-hbcm*p2p3*p4p6*p5p7+
1386 . hbcm*p3p4*p4p6*p5p7+hbcm*p3p5*p4p6*p5p7))+w13*(16*(p5p7*p3p6)*
1387 . (fmb*fmc*hbcm-fmb2*hbcm)+16*(p5p7*p3p6*p1p3)*(ffmcfmb*hbcm+fmc
1388 . -hbcm))+8*(p5p7*p3p6)*(4*fb1*ffmcfmb*hbcm-4*fb1*hbcm-4*fb2*fmc
1389 . -3*hbcm))
1390 b(2)=ccc*(w1*(8*(p5p7*p3p4)*(fmb-fmc-2*hbcm)+8*p5p7*(-ffmcfmb*
1391 . fmc*hbcm2+fmb*fmc*hbcm-2*fmc2*hbcm)+16*hbcm*p1p4*p5p7)+w13*(8*
1392 . (p5p7*p1p3)*(fmb-fmc)+8*p5p7*(ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*
1393 . hbcm2-fmb*fmc*hbcm-fmb*hbcm2+fmb2*hbcm+fmc*hbcm2))+16*p5p7*(-
1394 . fb2*fmb+fb2*fmc))
1395 b(3)=16*ccc*hbcm*p2p5*p4p6*w1
1396 b(4)=ccc*(w1*((p5p7*p3p6*p3p4)*(16*ffmcfmb-16)+16*(p5p7*p4p6)*(
1397 . -ffmcfmb*hbcm2-fmc*hbcm)+16*(-fmc*hbcm*p3p6*p5p7-p3p4*p4p6*
1398 . p5p7))+w13*((p5p7*p3p6*p1p3)*(16*ffmcfmb-16)+16*(p5p7*p4p6)*(-
1399 . ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(p5p7*p3p6)*(-ffmcfmb*hbcm2+
1400 . hbcm2)-16*p1p3*p4p6*p5p7)+((p5p7*p3p6)*(-32*fb2*ffmcfmb+32*fb2
1401 . -8)+32*fb2*p4p6*p5p7))
1402 b(5)=ccc*(w1*(8*p5p7*(-fmb*fmc*hbcm2-2*fmc*hbcm3-fmc2*hbcm2)+8*
1403 . (p5p7*p3p4)*(ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm-2*hbcm2)+16*(
1404 . fmc*hbcm*p1p3*p5p7+2*fmc*hbcm*p2p3*p5p7-2*fmc*hbcm*p3p5*p5p7+
1405 . hbcm2*p1p4*p5p7+p2p3*p3p4*p5p7-p3p4*p3p5*p5p7))+w13*(8*p5p7*(-
1406 . ffmcfmb*hbcm4-fmb*hbcm3+hbcm4)+16*(p5p7*p3p5)*(-ffmcfmb*hbcm2-
1407 . fmb*hbcm+hbcm2)+16*(p5p7*p2p3)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+
1408 . 8*(p5p7*p1p3)*(ffmcfmb*hbcm2+fmb*hbcm-2*hbcm2)+16*(p1p3*p2p3*
1409 . p5p7-p1p3*p3p5*p5p7))+(4*p5p7*(4*fb1*fmb*hbcm+4*fb2*ffmcfmb*
1410 . hbcm2-hbcm2)+32*(-fb2*p2p3*p5p7+fb2*p3p5*p5p7)))
1411 b(6)=ccc*(16*w1*(fmc*hbcm*p2p5*p3p6+hbcm2*p2p5*p4p6)+16*w13*(
1412 . p3p6*p2p5)*(ffmcfmb*hbcm2-hbcm2))
1413 b(7)=ccc*(8*w1*(-2*fmc*hbcm*p2p5-p2p5*p3p4)+w13*(8*p2p5*(-
1414 . ffmcfmb*hbcm2-fmb*hbcm+hbcm2)-8*p1p3*p2p5)+16*fb2*p2p5)
1415 b(8)=8*ccc*w1*(-fmc*hbcm2*p2p5-2*hbcm*p2p5*p3p4)
1416 b(9)=ccc*(w1*(8*p4p6*(ffmcfmb*hbcm3-2*hbcm3)+8*(p3p6*p3p4)*(-
1417 . ffmcfmb*hbcm-fmb+hbcm)+8*p3p6*(ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm-
1418 . fmc*hbcm2+fmc2*hbcm)+16*(hbcm*p1p3*p4p6-hbcm*p1p4*p3p6+hbcm*
1419 . p2p3*p4p6-hbcm*p3p4*p4p6-hbcm*p3p5*p4p6))+w13*(8*(p3p6*p1p3)*(
1420 . -ffmcfmb*hbcm-fmb+hbcm)+8*p3p6*(-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc
1421 . *hbcm2+fmb*hbcm2-fmc*hbcm2))+4*p3p6*(-4*fb1*ffmcfmb*hbcm+4*fb1
1422 . *hbcm+4*fb2*fmb+3*hbcm))
1423 b(10)=ccc*(w1*((p3p6*p3p4)*(-8*ffmcfmb+8)+8*p4p6*(ffmcfmb*hbcm2
1424 . +fmc*hbcm)+8*(fmc*hbcm*p3p6+p3p4*p4p6))+w13*((p3p6*p1p3)*(-8*
1425 . ffmcfmb+8)+8*p4p6*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*p3p6*(
1426 . ffmcfmb*hbcm2-hbcm2)+8*p1p3*p4p6)+(p3p6*(16*fb2*ffmcfmb-16*fb2
1427 . +4)-16*fb2*p4p6))
1428 b(11)=ccc*(w1*(4*p3p4*(-ffmcfmb*hbcm2+fmb*hbcm+2*fmc*hbcm+2*
1429 . hbcm2)+4*(fmb*fmc*hbcm2-2*fmc*hbcm*p1p3-4*fmc*hbcm*p2p3+4*fmc*
1430 . hbcm*p3p5+2*fmc*hbcm3+fmc2*hbcm2-2*hbcm2*p1p4-2*p2p3*p3p4+2*
1431 . p3p4*p3p5))+w13*(8*p3p5*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*p2p3*
1432 . (-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+4*p1p3*(-ffmcfmb*hbcm2-fmb*
1433 . hbcm+2*hbcm2)+4*(ffmcfmb*hbcm4+fmb*hbcm3-hbcm4-2*p1p3*p2p3+2*
1434 . p1p3*p3p5))+2*(-4*fb1*fmb*hbcm-4*fb2*ffmcfmb*hbcm2+8*fb2*p2p3-
1435 . 8*fb2*p3p5+hbcm2))
1436 b(13)=ccc*(w1*(4*p3p4*(fmb-fmc-2*hbcm)+4*(-ffmcfmb*fmc*hbcm2+
1437 . fmb*fmc*hbcm-2*fmc2*hbcm+2*hbcm*p1p4))+w13*(4*p1p3*(fmb-fmc)+4
1438 . *(ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm-fmb*hbcm2+
1439 . fmb2*hbcm+fmc*hbcm2))+8*(-fb2*fmb+fb2*fmc))
1440 do 200 n=1,16
1441 c(n,2)=c(n,2)+0.09245003270420485d0*b(n)
1442 c(n,3)=c(n,3)-0.02077659977796572d0*b(n)
1443 200 continue
1444 return
1445 end
1446
1447 subroutine amp13_3p0(cc)
1448 implicit double precision(a-h,o-z)
1449 implicit integer (i-n)
1450 dimension b(16)
1451 #include "inclcon.h"
1452 #include "inclppp.h"
1453 #include "inclamp.h"
1454 do 100 n=1,16
1455 b(n)=0.0d0
1456 100 continue
1457 ccc=cc/((-2*p2p5)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2)*(-fmb2
1458 . +fmc2+hbcm2+2*p3p4))
1459 b(2)=ccc*(w1*(8*(p5p7*p3p4)*(-fmb+fmc)+8*fmc*hbcm2*p5p7)+16*
1460 . p5p7*(-2*fb1*hbcm+fb2*fmb-fb2*fmc))
1461 b(5)=ccc*(w1*(8*p5p7*(fmb*fmc*hbcm2+fmc2*hbcm2-2*p3p4s2)-8*
1462 . hbcm2*p3p4*p5p7)+(16*p5p7*(-2*fb1*fmb*hbcm-2*fb1*fmc*hbcm+fb2*
1463 . hbcm2)+32*fb2*p3p4*p5p7))
1464 b(9)=ccc*(w1*(8*(p3p6*p3p4)*(fmb-fmc)-8*fmc*hbcm2*p3p6)+16*p3p6
1465 . *(2*fb1*hbcm-fb2*fmb+fb2*fmc))
1466 b(11)=ccc*(4*w1*(-fmb*fmc*hbcm2-fmc2*hbcm2+hbcm2*p3p4+2*p3p4s2)
1467 . +8*(2*fb1*fmb*hbcm+2*fb1*fmc*hbcm-fb2*hbcm2-2*fb2*p3p4))
1468 b(13)=ccc*(w1*(4*p3p4*(-fmb+fmc)+4*fmc*hbcm2)+8*(-2*fb1*hbcm+
1469 . fb2*fmb-fb2*fmc))
1470 do 200 n=1,16
1471 c(n,2)=c(n,2)-0.7396002616336388d0*b(n)
1472 c(n,3)=c(n,3)+0.1662127982237257d0*b(n)
1473 200 continue
1474 return
1475 end
1476
1477 subroutine amp12_3p0(cc)
1478 implicit double precision(a-h,o-z)
1479 implicit integer (i-n)
1480 dimension b(16)
1481 #include "inclcon.h"
1482 #include "inclppp.h"
1483 #include "inclamp.h"
1484 do 100 n=1,16
1485 b(n)=0.0d0
1486 100 continue
1487 ccc=cc/((-2*p1p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2+2*ffmcfmb*
1488 . p1p3-2*ffmcfmb*p3p5+fmb2+hbcm2-2*p1p3-2*p1p5+2*p3p5)*(ffmcfmb
1489 . **2*hbcm2-2*ffmcfmb*p2p3-fmc2))
1490 ans3=(4*p6p7*(-4*fb1*fmb*fmc*hbcm+4*fb1*fmc2*hbcm-4*fb2*ffmcfmb
1491 . *fmb*hbcm2+4*fb2*ffmcfmb*fmc*hbcm2+fmb*hbcm2-fmc*hbcm2)+8*(
1492 . p5p6*p3p7)*(4*fb1*ffmcfmb*hbcm-4*fb2*fmc+3*hbcm)+8*(p4p6*p3p7)
1493 . *(4*fb1*ffmcfmb*hbcm-4*fb2*fmc+3*hbcm)+8*(p3p7*p3p6)*(4*fb1*
1494 . ffmcfmb*hbcm-4*fb2*fmc+3*hbcm))
1495 ans2=w15*(16*(p6p7*p2p5)*(fmc*hbcm2-hbcm3)+16*(p6p7*p1p2)*(-fmc
1496 . *hbcm2+hbcm3)+16*(p5p7*p5p6)*(-ffmcfmb*hbcm3+fmc*hbcm2)+16*(
1497 . p5p7*p4p6)*(-ffmcfmb*hbcm3+fmc*hbcm2)+16*(p5p7*p3p6)*(-ffmcfmb
1498 . *hbcm3+fmc*hbcm2)+16*(p5p6*p3p7*p3p5)*(ffmcfmb*hbcm-fmc)+16*(
1499 . p4p6*p3p7*p3p5)*(ffmcfmb*hbcm-fmc)+16*(p3p7*p3p6*p3p5)*(
1500 . ffmcfmb*hbcm-fmc)+16*(p5p6*p3p7*p1p3)*(-ffmcfmb*hbcm+fmc)+16*(
1501 . p4p6*p3p7*p1p3)*(-ffmcfmb*hbcm+fmc)+16*(p3p7*p3p6*p1p3)*(-
1502 . ffmcfmb*hbcm+fmc)+8*p6p7*(-ffmcfmb*fmb*hbcm4+fmb*fmc*hbcm3)+8*
1503 . (p6p7*p3p5)*(-ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm
1504 . +fmc2*hbcm)+16*(p6p7*p2p3)*(ffmcfmb*fmb*hbcm2-fmb2*hbcm)+8*(
1505 . p6p7*p1p3)*(ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm-
1506 . fmc2*hbcm)+16*(-ffmcfmb*fmb*hbcm2*p3p6*p3p7-ffmcfmb*fmb*hbcm2*
1507 . p3p7*p4p6-ffmcfmb*fmb*hbcm2*p3p7*p5p6-2*hbcm*p1p2*p2p3*p6p7+2*
1508 . hbcm*p1p2*p3p6*p3p7+2*hbcm*p1p2*p3p7*p4p6+2*hbcm*p1p2*p3p7*
1509 . p5p6+2*hbcm*p1p5*p2p3*p6p7+2*hbcm*p2p3*p2p5*p6p7+2*hbcm*p2p3*
1510 . p3p6*p5p7+2*hbcm*p2p3*p4p6*p5p7+2*hbcm*p2p3*p5p6*p5p7-2*hbcm*
1511 . p2p5*p3p6*p3p7-2*hbcm*p2p5*p3p7*p4p6-2*hbcm*p2p5*p3p7*p5p6))+
1512 . ans3
1513 ans1=w7*(16*(p5p6*p3p7*p2p3)*(ffmcfmb*hbcm-fmc)+16*(p4p6*p3p7*
1514 . p2p3)*(ffmcfmb*hbcm-fmc)+16*(p3p7*p3p6*p2p3)*(ffmcfmb*hbcm-fmc
1515 . )+8*(p6p7*p2p3)*(ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-fmb*fmc*
1516 . hbcm+fmc2*hbcm))+ans2
1517 ans=ccc*ans1
1518 b(1)=ans
1519 b(2)=ccc*(8*w7*(p3p7*p2p3)*(ffmcfmb*fmb-ffmcfmb*fmc-ffmcfmb*
1520 . hbcm+fmc)+w15*(8*p5p7*(ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3-fmc*
1521 . hbcm2-fmc2*hbcm)+8*(p3p7*p3p5)*(ffmcfmb*fmb-ffmcfmb*fmc-
1522 . ffmcfmb*hbcm+fmc)+8*(p3p7*p1p3)*(-ffmcfmb*fmb+ffmcfmb*fmc+
1523 . ffmcfmb*hbcm-fmc)+8*(ffmcfmb*fmb*hbcm2*p3p7-2*hbcm*p1p2*p3p7-2
1524 . *hbcm*p2p3*p5p7+2*hbcm*p2p5*p3p7))+4*p3p7*(-4*fb1*ffmcfmb*hbcm
1525 . +4*fb2*ffmcfmb*fmb-4*fb2*ffmcfmb*fmc+4*fb2*fmc+fmb-fmc-3*hbcm)
1526 . )
1527 b(3)=w15*ccc*(8*p5p6*(ffmcfmb*fmb*hbcm2-fmb*fmc*hbcm)+8*p4p6*(
1528 . ffmcfmb*fmb*hbcm2-fmb*fmc*hbcm)+8*p3p6*(ffmcfmb*fmb*hbcm2-fmb*
1529 . fmc*hbcm)+16*(-hbcm*p1p2*p3p6-hbcm*p1p2*p4p6-hbcm*p1p2*p5p6+
1530 . hbcm*p2p5*p3p6+hbcm*p2p5*p4p6+hbcm*p2p5*p5p6))
1531 ans2=((p5p6*p3p7)*(-32*fb2*ffmcfmb-8)+(p4p6*p3p7)*(-32*fb2*
1532 . ffmcfmb-8)+(p3p7*p3p6)*(-32*fb2*ffmcfmb-8)+4*p6p7*(4*fb1*fmc*
1533 . hbcm+4*fb2*ffmcfmb*hbcm2-hbcm2)+32*(-fb2*p2p3*p6p7-fb2*p2p4*
1534 . p6p7))
1535 ans1=w7*(16*(p6p7*p2p4)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p6p7*p2p3)*
1536 . (ffmcfmb*hbcm2-fmc*hbcm)+16*(-ffmcfmb*p2p3*p3p6*p3p7-ffmcfmb*
1537 . p2p3*p3p7*p4p6-ffmcfmb*p2p3*p3p7*p5p6-p2p3*p2p4*p6p7-p2p3s2*
1538 . p6p7))+w15*(16*(p6p7*p2p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p6p7
1539 . *p1p2)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p5p7*p5p6)*(ffmcfmb*hbcm2
1540 . -fmc*hbcm)+16*(p5p7*p4p6)*(ffmcfmb*hbcm2-fmc*hbcm)+16*(p5p7*
1541 . p3p6)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p6p7*p3p5)*(-ffmcfmb*hbcm2+
1542 . fmc*hbcm)+16*(p6p7*p1p5)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p6p7*p1p3
1543 . )*(ffmcfmb*hbcm2-fmc*hbcm)+8*p6p7*(-ffmcfmb*fmb*fmc*hbcm2-
1544 . ffmcfmb*fmb2*hbcm2+fmb*fmc2*hbcm+fmb2*fmc*hbcm)+16*(ffmcfmb*
1545 . p1p3*p3p6*p3p7+ffmcfmb*p1p3*p3p7*p4p6+ffmcfmb*p1p3*p3p7*p5p6-
1546 . ffmcfmb*p3p5*p3p6*p3p7-ffmcfmb*p3p5*p3p7*p4p6-ffmcfmb*p3p5*
1547 . p3p7*p5p6-fmb*hbcm*p2p3*p6p7-2*fmb*hbcm*p2p4*p6p7+p1p3*p2p3*
1548 . p6p7+p1p3*p2p4*p6p7-p2p3*p3p5*p6p7-p2p4*p3p5*p6p7))+ans2
1549 ans=ccc*ans1
1550 b(4)=ans
1551 ans2=((p3p7*p3p5)*(-32*fb2*ffmcfmb-8)+(p3p7*p2p3)*(32*fb2*
1552 . ffmcfmb+8)+(p3p7*p1p3)*(32*fb2*ffmcfmb+8)+4*p5p7*(4*fb1*fmc*
1553 . hbcm+4*fb2*ffmcfmb*hbcm2-hbcm2)+4*p3p7*(-4*fb1*ffmcfmb*fmb*
1554 . hbcm-4*fb1*ffmcfmb*fmc*hbcm-4*fb2*ffmcfmb*hbcm2+4*fb2*fmb*fmc+
1555 . 4*fb2*fmc2-3*fmb*hbcm-3*fmc*hbcm-hbcm2))
1556 ans1=w7*(8*(p5p7*p2p3)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(p3p7*p2p3)*
1557 . (-ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2+fmb*fmc+fmc2
1558 . )+16*(-ffmcfmb*hbcm2*p1p2*p3p7+ffmcfmb*hbcm2*p2p5*p3p7+ffmcfmb
1559 . *p1p3*p2p3*p3p7-ffmcfmb*p2p3*p3p5*p3p7+ffmcfmb*p2p3s2*p3p7))+
1560 . w15*(8*(p5p7*p3p5)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p5p7*p1p3)*(-
1561 . ffmcfmb*hbcm2+fmc*hbcm)+8*p5p7*(ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*
1562 . hbcm3+ffmcfmb*hbcm4-fmb*fmc*hbcm2-fmc*hbcm3-fmc2*hbcm2)+8*(
1563 . p3p7*p3p5)*(-ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2+
1564 . fmb*fmc+fmc2)+8*(p3p7*p1p3)*(ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm
1565 . +ffmcfmb*hbcm2-fmb*fmc-fmc2)+8*p3p7*(ffmcfmb*fmb*fmc*hbcm2+
1566 . ffmcfmb*fmb2*hbcm2-2*ffmcfmb*p1p3s2-2*ffmcfmb*p3p5s2)+16*(-
1567 . ffmcfmb*hbcm2*p1p5*p3p7-ffmcfmb*hbcm2*p2p3*p5p7-ffmcfmb*p1p3*
1568 . p2p3*p3p7+2*ffmcfmb*p1p3*p3p5*p3p7+ffmcfmb*p2p3*p3p5*p3p7-fmc*
1569 . hbcm*p1p2*p3p7+fmc*hbcm*p2p5*p3p7))+ans2
1570 ans=ccc*ans1
1571 b(5)=ans
1572 ans=ccc*(w7*(16*(p3p6*p2p5)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p5p6*
1573 . p2p3)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(p4p6*p2p3)*(-ffmcfmb*hbcm2+
1574 . fmc*hbcm)+16*(p3p6*p1p2)*(-ffmcfmb*hbcm2+fmc*hbcm)+16*(p1p2*
1575 . p2p3*p3p6-p2p3*p2p5*p3p6))+w15*(16*(p3p6*p2p5)*(-fmb*hbcm+fmc*
1576 . hbcm)+16*(p3p6*p1p2)*(fmb*hbcm-fmc*hbcm)+8*(p5p6*p3p5)*(-
1577 . ffmcfmb*hbcm2+fmc*hbcm)+8*(p4p6*p3p5)*(-ffmcfmb*hbcm2+fmc*hbcm
1578 . )+16*(p3p6*p1p5)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(p5p6*p1p3)*(
1579 . ffmcfmb*hbcm2-fmc*hbcm)+8*(p4p6*p1p3)*(ffmcfmb*hbcm2-fmc*hbcm)
1580 . +8*p3p6*(ffmcfmb*fmb*fmc*hbcm2+ffmcfmb*fmb2*hbcm2-fmb*fmc2*
1581 . hbcm-fmb2*fmc*hbcm)+16*(fmb*hbcm*p2p3*p4p6+fmb*hbcm*p2p3*p5p6-
1582 . hbcm2*p1p2*p4p6-hbcm2*p1p2*p5p6+hbcm2*p2p5*p4p6+hbcm2*p2p5*
1583 . p5p6-p1p2*p1p3*p3p6+p1p2*p3p5*p3p6+p1p3*p2p5*p3p6-p2p5*p3p5*
1584 . p3p6))+(4*p5p6*(4*fb1*fmc*hbcm+4*fb2*ffmcfmb*hbcm2-hbcm2)+4*
1585 . p4p6*(4*fb1*fmc*hbcm+4*fb2*ffmcfmb*hbcm2-hbcm2)+32*(fb2*p1p2*
1586 . p3p6-fb2*p2p5*p3p6)))
1587 b(6)=ans
1588 b(7)=ccc*(w7*(8*p2p5*(-ffmcfmb*hbcm2+fmc*hbcm)+4*p2p3*(-ffmcfmb
1589 . *hbcm2+fmc*hbcm)+8*p1p2*(ffmcfmb*hbcm2-fmc*hbcm)+8*(-p1p2*p2p3
1590 . +p2p3*p2p5))+w15*(8*p2p5*(fmb*hbcm-fmc*hbcm+hbcm2)+8*p1p2*(-
1591 . fmb*hbcm+fmc*hbcm-hbcm2)+4*p3p5*(-ffmcfmb*hbcm2+fmc*hbcm)+8*
1592 . p1p5*(ffmcfmb*hbcm2-fmc*hbcm)+4*p1p3*(ffmcfmb*hbcm2-fmc*hbcm)+
1593 . 4*(-ffmcfmb*fmb*fmc*hbcm2-ffmcfmb*fmb2*hbcm2+fmb*fmc2*hbcm+2*
1594 . fmb*hbcm*p2p3+fmb2*fmc*hbcm+2*p1p2*p1p3-2*p1p2*p3p5-2*p1p3*
1595 . p2p5+2*p2p5*p3p5))+2*(4*fb1*fmc*hbcm+4*fb2*ffmcfmb*hbcm2-8*fb2
1596 . *p1p2+8*fb2*p2p5-hbcm2))
1597 b(8)=ccc*(4*w7*p2p3*(-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+fmb*
1598 . fmc*hbcm-fmc2*hbcm)+w15*(8*p2p5*(-fmc*hbcm2+hbcm3)+8*p1p2*(fmc
1599 . *hbcm2-hbcm3)+4*p3p5*(ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2-fmb*
1600 . fmc*hbcm-fmc2*hbcm)+8*p2p3*(-ffmcfmb*fmb*hbcm2+fmb2*hbcm)+4*
1601 . p1p3*(-ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm+fmc2*
1602 . hbcm)+4*(ffmcfmb*fmb*hbcm4-fmb*fmc*hbcm3+4*hbcm*p1p2*p2p3-4*
1603 . hbcm*p1p5*p2p3-4*hbcm*p2p3*p2p5))+2*(4*fb1*fmb*fmc*hbcm-4*fb1*
1604 . fmc2*hbcm+4*fb2*ffmcfmb*fmb*hbcm2-4*fb2*ffmcfmb*fmc*hbcm2-fmb*
1605 . hbcm2+fmc*hbcm2))
1606 b(9)=ccc*(w7*(8*(p3p6*p2p3)*(fmb-fmc)+8*p3p6*(-ffmcfmb*fmb*
1607 . hbcm2+ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm-fmc2*hbcm))+w15*(8*(p3p6*
1608 . p3p5)*(fmb-fmc)+8*(p3p6*p1p3)*(-fmb+fmc)+8*p3p6*(-ffmcfmb*fmb*
1609 . hbcm2-fmb*fmc*hbcm+2*fmb2*hbcm)+8*(-fmb*hbcm2*p4p6-fmb*hbcm2*
1610 . p5p6+2*hbcm*p1p2*p3p6+2*hbcm*p1p3*p4p6+2*hbcm*p1p3*p5p6-4*hbcm
1611 . *p1p5*p3p6-2*hbcm*p2p5*p3p6-2*hbcm*p3p5*p4p6-2*hbcm*p3p5*p5p6)
1612 . )+16*p3p6*(fb2*fmb-fb2*fmc))
1613 b(10)=ccc*(8*w15*(-2*fmb*hbcm*p3p6-2*fmb*hbcm*p4p6-2*fmb*hbcm*
1614 . p5p6+p1p3*p3p6+p1p3*p4p6+p1p3*p5p6-p3p5*p3p6-p3p5*p4p6-p3p5*
1615 . p5p6)+w7*(8*p5p6*(ffmcfmb*hbcm2-fmc*hbcm)+8*p4p6*(ffmcfmb*
1616 . hbcm2-fmc*hbcm)+8*p3p6*(ffmcfmb*hbcm2-fmc*hbcm)+8*(-p2p3*p3p6-
1617 . p2p3*p4p6-p2p3*p5p6))+16*(-fb2*p3p6-fb2*p4p6-fb2*p5p6))
1618 b(11)=ccc*(w7*(8*p3p5*(ffmcfmb*hbcm2-fmc*hbcm)+4*p2p3*(-ffmcfmb
1619 . *hbcm2+fmc*hbcm-hbcm2)+8*p1p3*(-ffmcfmb*hbcm2+fmc*hbcm)+4*(
1620 . ffmcfmb*hbcm4-fmc*hbcm3+2*p1p3*p2p3-2*p2p3*p3p5+2*p2p3s2))+w15
1621 . *(4*p3p5*(ffmcfmb*hbcm2-2*fmb*hbcm+fmc*hbcm-hbcm2)+4*p1p3*(-
1622 . ffmcfmb*hbcm2+2*fmb*hbcm-fmc*hbcm+hbcm2)+4*(fmb*fmc*hbcm2+2*
1623 . fmb*hbcm*p2p3-2*fmb*hbcm3+fmb2*hbcm2+2*hbcm2*p1p2-2*hbcm2*p1p5
1624 . -2*hbcm2*p2p5-2*p1p3*p2p3+4*p1p3*p3p5-2*p1p3s2+2*p2p3*p3p5-2*
1625 . p3p5s2))+2*(-4*fb1*fmc*hbcm-4*fb2*ffmcfmb*hbcm2-4*fb2*hbcm2+8*
1626 . fb2*p1p3+8*fb2*p2p3-8*fb2*p3p5+hbcm2))
1627 b(12)=ccc*(w7*(8*(p3p7*p2p3)*(-ffmcfmb*hbcm+fmc)+8*p3p7*(
1628 . ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2))+w15*(8*p5p7*(ffmcfmb*
1629 . hbcm3-hbcm3)+8*(p3p7*p3p5)*(-ffmcfmb*hbcm+fmc)+8*(p3p7*p1p3)*(
1630 . ffmcfmb*hbcm-fmc)+8*p3p7*(ffmcfmb*fmb*hbcm2+fmb*fmc*hbcm-fmb2*
1631 . hbcm)+16*(-hbcm*p1p2*p3p7+hbcm*p1p5*p3p7+hbcm*p2p5*p3p7))+4*
1632 . p3p7*(-4*fb1*ffmcfmb*hbcm+4*fb2*fmc-3*hbcm))
1633 b(13)=ccc*(w7*(4*p2p3*(-fmb+fmc)+4*(ffmcfmb*fmb*hbcm2-ffmcfmb*
1634 . fmc*hbcm2-fmb*fmc*hbcm+fmc2*hbcm))+w15*(4*p3p5*(-fmb+fmc-2*
1635 . hbcm)+4*p1p3*(fmb-fmc+2*hbcm)+4*(ffmcfmb*fmb*hbcm2+fmb*fmc*
1636 . hbcm-fmb*hbcm2-2*fmb2*hbcm-2*hbcm*p1p2+4*hbcm*p1p5+2*hbcm*p2p5
1637 . ))+8*(-fb2*fmb+fb2*fmc))
1638 b(14)=ccc*(w15*(8*p5p7*(ffmcfmb*hbcm2-fmb*hbcm-hbcm2)+8*(
1639 . ffmcfmb*p1p3*p3p7-ffmcfmb*p3p5*p3p7-fmb*hbcm*p3p7+p1p3*p5p7-
1640 . p3p5*p5p7))+w7*(8*p5p7*(ffmcfmb*hbcm2-fmc*hbcm)+8*(ffmcfmb*
1641 . hbcm2*p3p7-ffmcfmb*p2p3*p3p7-p2p3*p5p7))+(p3p7*(-16*fb2*
1642 . ffmcfmb-4)-16*fb2*p5p7))
1643 ans=ccc*(w7*(8*p6p7*(-ffmcfmb*hbcm4+fmc*hbcm3)+16*(p5p7*p3p6)*(
1644 . -ffmcfmb*hbcm2+fmc*hbcm)+16*(p6p7*p3p4)*(-ffmcfmb*hbcm2+fmc*
1645 . hbcm)+8*(p6p7*p2p3)*(ffmcfmb*hbcm2-fmc*hbcm+hbcm2)+16*(ffmcfmb
1646 . *hbcm2*p3p7*p4p6+ffmcfmb*hbcm2*p3p7*p5p6+ffmcfmb*p2p3*p3p6*
1647 . p3p7+p2p3*p3p4*p6p7+p2p3*p3p6*p5p7))+w15*(8*p6p7*(fmb*fmc*
1648 . hbcm2+2*fmb*hbcm3+fmb2*hbcm2)+16*(p5p7*p3p6)*(-ffmcfmb*hbcm2+
1649 . fmb*hbcm)+8*(p6p7*p3p5)*(ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm+
1650 . hbcm2)+8*(p6p7*p1p3)*(-ffmcfmb*hbcm2-2*fmb*hbcm-fmc*hbcm-hbcm2
1651 . )+16*(-ffmcfmb*p1p3*p3p6*p3p7+ffmcfmb*p3p5*p3p6*p3p7-fmb*hbcm*
1652 . p2p3*p6p7+2*fmb*hbcm*p3p4*p6p7-fmb*hbcm*p3p7*p4p6-fmb*hbcm*
1653 . p3p7*p5p6+hbcm2*p1p2*p6p7-hbcm2*p1p5*p6p7-hbcm2*p2p5*p6p7-
1654 . hbcm2*p4p6*p5p7-hbcm2*p5p6*p5p7-p1p3*p3p4*p6p7-p1p3*p3p6*p5p7+
1655 . p3p4*p3p5*p6p7+p3p5*p3p6*p5p7))+((p3p7*p3p6)*(32*fb2*ffmcfmb+8
1656 . )+4*p6p7*(-4*fb1*fmc*hbcm-4*fb2*ffmcfmb*hbcm2+4*fb2*hbcm2+
1657 . hbcm2)+32*(fb2*p3p4*p6p7+fb2*p3p6*p5p7)))
1658 b(15)=ans
1659 b(16)=ccc*(w7*(8*(p6p7*p2p3)*(fmb-fmc)+8*p6p7*(-ffmcfmb*fmb*
1660 . hbcm2+ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm-fmc2*hbcm))+w15*(8*(p6p7*
1661 . p3p5)*(fmb-fmc+2*hbcm)+8*(p6p7*p1p3)*(-fmb+fmc-2*hbcm)+8*p6p7*
1662 . (-ffmcfmb*fmb*hbcm2-fmb*fmc*hbcm+fmb*hbcm2+2*fmb2*hbcm)+16*(
1663 . hbcm*p1p2*p6p7-2*hbcm*p1p5*p6p7-hbcm*p2p5*p6p7-hbcm*p3p6*p5p7-
1664 . hbcm*p4p6*p5p7-hbcm*p5p6*p5p7))+16*p6p7*(fb2*fmb-fb2*fmc))
1665 do 200 n=1,16
1666 c(n,1)=c(n,1)+0.09090909090909091d0*b(n)
1667 c(n,2)=c(n,2)-0.01680909685530997d0*b(n)
1668 c(n,3)=c(n,3)-0.02077659977796572d0*b(n)
1669 200 continue
1670 return
1671 end
1672
1673 subroutine amp11_3p0(cc)
1674 implicit double precision(a-h,o-z)
1675 implicit integer (i-n)
1676 dimension b(16)
1677 #include "inclcon.h"
1678 #include "inclppp.h"
1679 #include "inclamp.h"
1680 do 100 n=1,16
1681 b(n)=0.0d0
1682 100 continue
1683 ccc=cc/((-2*p1p5)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2)*(
1684 . ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2+2*ffmcfmb*p2p3-fmb2+hbcm2-2*
1685 . p2p3))
1686 ans2=w8*(16*p6p7*(fmb*p2p3s2-fmc*p2p3s2)+16*(p5p6*p3p7*p2p3)*(
1687 . ffmcfmb*hbcm+fmb-hbcm)+16*(p4p6*p3p7*p2p3)*(ffmcfmb*hbcm+fmb-
1688 . hbcm)+16*(p3p7*p3p6*p2p3)*(ffmcfmb*hbcm+fmb-hbcm)+8*(p6p7*p2p3
1689 . )*(ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm-fmb*hbcm2+
1690 . fmb2*hbcm+fmc*hbcm2))+(32*(p6p7*p2p3)*(-fb2*fmb+fb2*fmc)+4*
1691 . p6p7*(4*fb1*fmb*fmc*hbcm-4*fb1*fmb2*hbcm-4*fb2*ffmcfmb*fmb*
1692 . hbcm2+4*fb2*ffmcfmb*fmc*hbcm2+4*fb2*fmb*hbcm2-4*fb2*fmc*hbcm2+
1693 . fmb*hbcm2-fmc*hbcm2)+8*(p5p6*p3p7)*(4*fb1*ffmcfmb*hbcm-4*fb1*
1694 . hbcm-4*fb2*fmb-3*hbcm)+8*(p4p6*p3p7)*(4*fb1*ffmcfmb*hbcm-4*fb1
1695 . *hbcm-4*fb2*fmb-3*hbcm)+8*(p3p7*p3p6)*(4*fb1*ffmcfmb*hbcm-4*
1696 . fb1*hbcm-4*fb2*fmb-3*hbcm))
1697 ans1=w1*(16*(p6p7*p3p4*p2p3)*(fmb-fmc)+16*(p6p7*p2p4)*(-fmb*
1698 . hbcm2+fmc*hbcm2-hbcm3)+16*(p5p6*p4p7)*(-ffmcfmb*hbcm3-fmb*
1699 . hbcm2+hbcm3)+16*(p4p7*p4p6)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+
1700 . 16*(p4p7*p3p6)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+16*(p5p6*p3p7*
1701 . p3p4)*(ffmcfmb*hbcm+fmb-hbcm)+16*(p4p6*p3p7*p3p4)*(ffmcfmb*
1702 . hbcm+fmb-hbcm)+16*(p3p7*p3p6*p3p4)*(ffmcfmb*hbcm+fmb-hbcm)+8*
1703 . p6p7*(ffmcfmb*fmc*hbcm4+fmb*fmc*hbcm3-fmc*hbcm4)+16*(p6p7*p3p5
1704 . )*(ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm-fmc*hbcm2)+16*(p6p7*p2p3)*(-
1705 . ffmcfmb*fmc*hbcm2+fmc*hbcm2-fmc2*hbcm)+16*(p6p7*p1p3)*(-
1706 . ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm+fmc*hbcm2)+8*(p6p7*p3p4)*(-
1707 . ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm+fmb*hbcm2-
1708 . fmb2*hbcm-fmc*hbcm2)+16*(fmb*fmc*hbcm*p3p6*p3p7+fmb*fmc*hbcm*
1709 . p3p7*p4p6+fmb*fmc*hbcm*p3p7*p5p6-fmc*hbcm2*p1p2*p6p7+fmc*hbcm2
1710 . *p2p5*p6p7-2*hbcm*p1p2*p3p4*p6p7+2*hbcm*p1p3*p2p4*p6p7+2*hbcm*
1711 . p2p3*p2p4*p6p7-2*hbcm*p2p4*p3p5*p6p7+2*hbcm*p2p5*p3p4*p6p7))+
1712 . ans2
1713 ans=ccc*ans1
1714 b(1)=ans
1715 b(2)=ccc*(8*w8*(p3p7*p2p3)*(-ffmcfmb*fmb+ffmcfmb*fmc-ffmcfmb*
1716 . hbcm-fmc+hbcm)+w1*(8*p5p7*(-ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm+fmc
1717 . *hbcm2)+8*(p3p7*p3p4)*(-ffmcfmb*fmb+ffmcfmb*fmc-ffmcfmb*hbcm-
1718 . fmc+hbcm)+8*p4p7*(ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2+ffmcfmb*
1719 . hbcm3-fmb*fmc*hbcm+fmb2*hbcm+fmc*hbcm2-hbcm3)+8*(-fmb*fmc*hbcm
1720 . *p3p7+2*hbcm*p1p2*p4p7+2*hbcm*p2p4*p5p7-2*hbcm*p2p5*p4p7))+4*
1721 . p3p7*(-4*fb1*ffmcfmb*hbcm+4*fb1*hbcm+4*fb2*ffmcfmb*fmb-4*fb2*
1722 . ffmcfmb*fmc+4*fb2*fmc+fmb-fmc+3*hbcm))
1723 b(3)=w1*ccc*(8*p5p6*(-ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm+fmc*hbcm2)
1724 . +8*p4p6*(-ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm+fmc*hbcm2)+8*p3p6*(-
1725 . ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm+fmc*hbcm2)+16*(hbcm*p2p4*p3p6+
1726 . hbcm*p2p4*p4p6+hbcm*p2p4*p5p6))
1727 ans=ccc*(w8*((p5p6*p3p7*p2p3)*(16*ffmcfmb-16)+(p4p6*p3p7*p2p3)*
1728 . (16*ffmcfmb-16)+(p3p7*p3p6*p2p3)*(16*ffmcfmb-16)+16*(p6p7*p2p4
1729 . )*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(p6p7*p2p3)*(ffmcfmb*hbcm2+
1730 . fmb*hbcm-hbcm2)+16*p2p3*p2p4*p6p7)+w1*(16*(p6p7*p2p4)*(-fmb*
1731 . hbcm+fmc*hbcm+hbcm2)+(p5p6*p3p7*p3p4)*(16*ffmcfmb-16)+(p4p6*
1732 . p3p7*p3p4)*(16*ffmcfmb-16)+(p3p7*p3p6*p3p4)*(16*ffmcfmb-16)+16
1733 . *(p5p6*p4p7)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(p4p7*p4p6)*(-
1734 . ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(p4p7*p3p6)*(-ffmcfmb*hbcm2-
1735 . fmb*hbcm+hbcm2)+8*(p6p7*p3p4)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8
1736 . *p6p7*(ffmcfmb*fmb*fmc*hbcm2+ffmcfmb*fmc2*hbcm2-fmb*fmc*hbcm2+
1737 . fmb*fmc2*hbcm+fmb2*fmc*hbcm-fmc2*hbcm2)+16*(fmc*hbcm*p2p3*p6p7
1738 . +p2p4*p3p4*p6p7))+((p5p6*p3p7)*(-32*fb2*ffmcfmb+32*fb2-8)+(
1739 . p4p6*p3p7)*(-32*fb2*ffmcfmb+32*fb2-8)+(p3p7*p3p6)*(-32*fb2*
1740 . ffmcfmb+32*fb2-8)+4*p6p7*(4*fb1*fmb*hbcm+4*fb2*ffmcfmb*hbcm2-4
1741 . *fb2*hbcm2-hbcm2)-32*fb2*p2p4*p6p7))
1742 b(4)=ans
1743 ans2=w8*(16*p3p7*(-ffmcfmb*p2p3s2+p2p3s2)+(p3p7*p3p5*p2p3)*(16*
1744 . ffmcfmb-16)+(p3p7*p2p3*p1p3)*(-16*ffmcfmb+16)+8*(p5p7*p2p3)*(-
1745 . ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(p3p7*p2p3)*(-ffmcfmb*fmb*hbcm
1746 . -ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-fmb*fmc+fmb*hbcm-fmb2+fmc*hbcm
1747 . -hbcm2)+16*(-fmb*hbcm*p1p2*p3p7+fmb*hbcm*p2p5*p3p7-p1p2*p2p3*
1748 . p3p7+p2p3*p2p5*p3p7-p2p3s2*p5p7))+((p3p7*p3p5)*(-32*fb2*
1749 . ffmcfmb+32*fb2-8)+(p3p7*p2p3)*(32*fb2*ffmcfmb-32*fb2+8)+(p3p7*
1750 . p1p3)*(32*fb2*ffmcfmb-32*fb2+8)+4*p5p7*(4*fb1*fmb*hbcm+4*fb2*
1751 . ffmcfmb*hbcm2-4*fb2*hbcm2-hbcm2)+4*p3p7*(-4*fb1*ffmcfmb*fmb*
1752 . hbcm-4*fb1*ffmcfmb*fmc*hbcm+4*fb1*fmb*hbcm+4*fb1*fmc*hbcm-4*
1753 . fb2*ffmcfmb*hbcm2+4*fb2*fmb*fmc+4*fb2*fmb2+4*fb2*hbcm2+3*fmb*
1754 . hbcm+3*fmc*hbcm-hbcm2)+32*(fb2*p1p2*p3p7+fb2*p2p3*p5p7-fb2*
1755 . p2p5*p3p7))
1756 ans1=w1*(8*p3p7*(-fmb*fmc2*hbcm-fmb2*fmc*hbcm)+(p3p7*p3p5*p3p4)
1757 . *(16*ffmcfmb-16)+(p3p7*p3p4*p2p3)*(-16*ffmcfmb+16)+(p3p7*p3p4*
1758 . p1p3)*(-16*ffmcfmb+16)+16*(p4p7*p3p5)*(-ffmcfmb*hbcm2-fmb*hbcm
1759 . +hbcm2)+8*(p5p7*p3p4)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(p4p7*
1760 . p2p3)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(p4p7*p1p3)*(ffmcfmb*
1761 . hbcm2+fmb*hbcm-hbcm2)+8*p4p7*(ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*
1762 . hbcm3-ffmcfmb*hbcm4+fmb*fmc*hbcm2-2*fmb*hbcm3+fmb2*hbcm2-fmc*
1763 . hbcm3+hbcm4)+8*(p3p7*p3p4)*(-ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm
1764 . +ffmcfmb*hbcm2-fmb*fmc+fmb*hbcm-fmb2+fmc*hbcm-hbcm2)+16*(-fmc*
1765 . hbcm*p1p2*p3p7-fmc*hbcm*p2p3*p5p7+fmc*hbcm*p2p5*p3p7+hbcm2*
1766 . p1p2*p4p7+hbcm2*p2p4*p5p7-hbcm2*p2p5*p4p7-p1p2*p3p4*p3p7-p2p3*
1767 . p3p4*p5p7+p2p5*p3p4*p3p7))+ans2
1768 ans=ccc*ans1
1769 b(5)=ans
1770 ans=ccc*(w8*(16*(p3p6*p2p5)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(
1771 . p5p6*p2p3)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(p4p6*p2p3)*(-
1772 . ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(p3p6*p1p2)*(-ffmcfmb*hbcm2-
1773 . fmb*hbcm+hbcm2)+16*(-p1p2*p2p3*p3p6+p2p3*p2p5*p3p6-p2p3s2*p4p6
1774 . -p2p3s2*p5p6))+w1*(16*(p3p6*p2p4)*(fmb*hbcm+fmc*hbcm)+8*(p5p6*
1775 . p3p4)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(p4p6*p3p4)*(ffmcfmb*
1776 . hbcm2+fmb*hbcm-hbcm2)+8*p3p6*(-ffmcfmb*fmb*fmc*hbcm2-ffmcfmb*
1777 . fmc2*hbcm2+fmb*fmc*hbcm2-fmb*fmc2*hbcm-fmb2*fmc*hbcm+fmc2*
1778 . hbcm2)+16*(-2*fmc*hbcm*p1p2*p3p6-fmc*hbcm*p2p3*p4p6-fmc*hbcm*
1779 . p2p3*p5p6+2*fmc*hbcm*p2p5*p3p6+hbcm2*p2p4*p4p6+hbcm2*p2p4*p5p6
1780 . -p1p2*p3p4*p3p6-p2p3*p3p4*p4p6-p2p3*p3p4*p5p6+p2p5*p3p4*p3p6))
1781 . +(4*p5p6*(4*fb1*fmb*hbcm+4*fb2*ffmcfmb*hbcm2-4*fb2*hbcm2-hbcm2
1782 . )+4*p4p6*(4*fb1*fmb*hbcm+4*fb2*ffmcfmb*hbcm2-4*fb2*hbcm2-hbcm2
1783 . )+32*(fb2*p1p2*p3p6+fb2*p2p3*p4p6+fb2*p2p3*p5p6-fb2*p2p5*p3p6)
1784 . ))
1785 b(6)=ans
1786 b(7)=ccc*(w8*(8*p2p5*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+4*p2p3*(-
1787 . ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*p1p2*(ffmcfmb*hbcm2+fmb*hbcm-
1788 . hbcm2)+8*(p1p2*p2p3-p2p3*p2p5-p2p3s2))+w1*(8*p2p4*(-fmb*hbcm-
1789 . fmc*hbcm+hbcm2)+4*p3p4*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+4*(
1790 . ffmcfmb*fmb*fmc*hbcm2+ffmcfmb*fmc2*hbcm2-fmb*fmc*hbcm2+fmb*
1791 . fmc2*hbcm+fmb2*fmc*hbcm+4*fmc*hbcm*p1p2-2*fmc*hbcm*p2p3-4*fmc*
1792 . hbcm*p2p5-fmc2*hbcm2+2*p1p2*p3p4-2*p2p3*p3p4-2*p2p5*p3p4))+2*(
1793 . 4*fb1*fmb*hbcm+4*fb2*ffmcfmb*hbcm2-4*fb2*hbcm2-8*fb2*p1p2+8*
1794 . fb2*p2p3+8*fb2*p2p5-hbcm2))
1795 ans=ccc*(w1*(8*(p3p4*p2p3)*(-fmb+fmc)+8*p2p4*(fmb*hbcm2-fmc*
1796 . hbcm2+hbcm3)+8*p3p5*(-ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm+fmc*hbcm2
1797 . )+8*p2p3*(ffmcfmb*fmc*hbcm2-fmc*hbcm2+fmc2*hbcm)+8*p1p3*(
1798 . ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm-fmc*hbcm2)+4*p3p4*(ffmcfmb*fmb*
1799 . hbcm2-ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm-fmb*hbcm2+fmb2*hbcm+fmc*
1800 . hbcm2)+4*(-ffmcfmb*fmc*hbcm4-fmb*fmc*hbcm3+2*fmc*hbcm2*p1p2-2*
1801 . fmc*hbcm2*p2p5+fmc*hbcm4+4*hbcm*p1p2*p3p4-4*hbcm*p1p3*p2p4-4*
1802 . hbcm*p2p3*p2p4+4*hbcm*p2p4*p3p5-4*hbcm*p2p5*p3p4))+w8*(4*p2p3*
1803 . (-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm+fmb*hbcm2-
1804 . fmb2*hbcm-fmc*hbcm2)+8*(-fmb*p2p3s2+fmc*p2p3s2))+(16*p2p3*(fb2
1805 . *fmb-fb2*fmc)+2*(-4*fb1*fmb*fmc*hbcm+4*fb1*fmb2*hbcm+4*fb2*
1806 . ffmcfmb*fmb*hbcm2-4*fb2*ffmcfmb*fmc*hbcm2-4*fb2*fmb*hbcm2+4*
1807 . fb2*fmc*hbcm2-fmb*hbcm2+fmc*hbcm2)))
1808 b(8)=ans
1809 b(9)=ccc*(w1*(8*(p3p6*p3p4)*(-fmb+fmc)+8*p3p6*(ffmcfmb*fmc*
1810 . hbcm2-fmb*fmc*hbcm-fmc*hbcm2+2*fmc2*hbcm)+8*(-fmc*hbcm2*p4p6-
1811 . fmc*hbcm2*p5p6-2*hbcm*p2p4*p3p6-2*hbcm*p3p4*p4p6-2*hbcm*p3p4*
1812 . p5p6))+w8*(8*(p3p6*p2p3)*(-fmb+fmc)+8*p3p6*(-ffmcfmb*fmb*hbcm2
1813 . +ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm+fmb*hbcm2-fmb2*hbcm-fmc*hbcm2)
1814 . )+16*p3p6*(fb2*fmb-fb2*fmc))
1815 b(10)=ccc*(8*w1*(2*fmc*hbcm*p3p6+2*fmc*hbcm*p4p6+2*fmc*hbcm*
1816 . p5p6+p3p4*p3p6+p3p4*p4p6+p3p4*p5p6)+w8*(8*p5p6*(ffmcfmb*hbcm2+
1817 . fmb*hbcm-hbcm2)+8*p4p6*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*p3p6*(
1818 . ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(p2p3*p3p6+p2p3*p4p6+p2p3*p5p6
1819 . ))+16*(-fb2*p3p6-fb2*p4p6-fb2*p5p6))
1820 b(11)=ccc*(w1*(4*p3p4*(-ffmcfmb*hbcm2+fmb*hbcm+2*fmc*hbcm+2*
1821 . hbcm2)+4*(fmb*fmc*hbcm2-4*fmc*hbcm*p1p3-2*fmc*hbcm*p2p3+4*fmc*
1822 . hbcm*p3p5+2*fmc*hbcm3+fmc2*hbcm2-2*hbcm2*p2p4-2*p1p3*p3p4+2*
1823 . p3p4*p3p5))+w8*(8*p3p5*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+4*p2p3*(
1824 . -ffmcfmb*hbcm2-fmb*hbcm+2*hbcm2)+8*p1p3*(-ffmcfmb*hbcm2-fmb*
1825 . hbcm+hbcm2)+4*(ffmcfmb*hbcm4+fmb*hbcm3-hbcm4-2*p1p3*p2p3+2*
1826 . p2p3*p3p5))+2*(-4*fb1*fmb*hbcm-4*fb2*ffmcfmb*hbcm2+8*fb2*p1p3-
1827 . 8*fb2*p3p5+hbcm2))
1828 b(12)=ccc*(w1*(8*p4p7*(ffmcfmb*hbcm3+fmc*hbcm2-2*hbcm3)+8*(p3p7
1829 . *p3p4)*(-ffmcfmb*hbcm-fmc+hbcm)+8*(fmc*hbcm2*p5p7-fmc2*hbcm*
1830 . p3p7+2*hbcm*p1p3*p4p7+2*hbcm*p2p3*p4p7+2*hbcm*p3p4*p5p7-2*hbcm
1831 . *p3p5*p4p7))+w8*(8*p3p7*(-fmb*fmc*hbcm+fmb2*hbcm)+8*(p3p7*p2p3
1832 . )*(-ffmcfmb*hbcm-fmc+hbcm))+4*p3p7*(-4*fb1*ffmcfmb*hbcm+4*fb1*
1833 . hbcm+4*fb2*fmc+3*hbcm))
1834 b(13)=ccc*(w1*(4*p3p4*(fmb-fmc-2*hbcm)+4*(-ffmcfmb*fmc*hbcm2+
1835 . fmb*fmc*hbcm-2*fmc2*hbcm+2*hbcm*p2p4))+w8*(4*p2p3*(fmb-fmc)+4*
1836 . (ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm-fmb*hbcm2+
1837 . fmb2*hbcm+fmc*hbcm2))+8*(-fb2*fmb+fb2*fmc))
1838 b(14)=ccc*(w8*(8*p5p7*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(ffmcfmb
1839 . *p2p3*p3p7+fmb*hbcm*p3p7+p2p3*p5p7))+w1*(8*p4p7*(-ffmcfmb*
1840 . hbcm2+fmc*hbcm)+8*(ffmcfmb*p3p4*p3p7+fmc*hbcm*p3p7+2*fmc*hbcm*
1841 . p5p7+p3p4*p5p7))+(p3p7*(-16*fb2*ffmcfmb-4)-16*fb2*p5p7))
1842 ans=ccc*(w1*(8*p6p7*(fmb*fmc*hbcm2-2*fmc*hbcm3+fmc2*hbcm2-2*
1843 . p3p4s2)+(p3p7*p3p6*p3p4)*(-16*ffmcfmb+16)+16*(p4p7*p3p6)*(
1844 . ffmcfmb*hbcm2-fmc*hbcm-hbcm2)+8*(p6p7*p3p4)*(-ffmcfmb*hbcm2+
1845 . fmb*hbcm-2*fmc*hbcm)+16*(fmc*hbcm*p2p3*p6p7-2*fmc*hbcm*p3p6*
1846 . p5p7+fmc*hbcm*p3p7*p4p6+fmc*hbcm*p3p7*p5p6-hbcm2*p2p4*p6p7-
1847 . hbcm2*p4p6*p4p7-hbcm2*p4p7*p5p6+p2p3*p3p4*p6p7-p3p4*p3p6*p5p7+
1848 . p3p4*p3p7*p4p6+p3p4*p3p7*p5p6))+w8*((p3p7*p3p6*p2p3)*(-16*
1849 . ffmcfmb+16)+8*p6p7*(-ffmcfmb*hbcm4-fmb*hbcm3+hbcm4+2*p2p3s2)+
1850 . 16*(p5p7*p3p6)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(p6p7*p3p4)*
1851 . (-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(p6p7*p2p3)*(ffmcfmb*hbcm2+
1852 . fmb*hbcm-2*hbcm2)+16*(fmb*hbcm*p3p7*p4p6+fmb*hbcm*p3p7*p5p6-
1853 . p2p3*p3p4*p6p7-p2p3*p3p6*p5p7+p2p3*p3p7*p4p6+p2p3*p3p7*p5p6))+
1854 . ((p3p7*p3p6)*(32*fb2*ffmcfmb-32*fb2+8)+4*p6p7*(-4*fb1*fmb*hbcm
1855 . -4*fb2*ffmcfmb*hbcm2+8*fb2*hbcm2+hbcm2)+32*(-fb2*p2p3*p6p7+fb2
1856 . *p3p4*p6p7+fb2*p3p6*p5p7-fb2*p3p7*p4p6-fb2*p3p7*p5p6)))
1857 b(15)=ans
1858 b(16)=ccc*(w1*(8*(p6p7*p3p4)*(-fmb+fmc+2*hbcm)+8*p6p7*(ffmcfmb*
1859 . fmc*hbcm2-fmb*fmc*hbcm+2*fmc2*hbcm)+16*(-hbcm*p2p4*p6p7-hbcm*
1860 . p3p6*p4p7-hbcm*p4p6*p4p7-hbcm*p4p7*p5p6))+w8*(8*(p6p7*p2p3)*(-
1861 . fmb+fmc)+8*p6p7*(-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+fmb*fmc*
1862 . hbcm+fmb*hbcm2-fmb2*hbcm-fmc*hbcm2))+16*p6p7*(fb2*fmb-fb2*fmc)
1863 . )
1864 do 200 n=1,16
1865 c(n,1)=c(n,1)+0.09090909090909091d0*b(n)
1866 c(n,2)=c(n,2)-0.01680909685530997d0*b(n)
1867 c(n,3)=c(n,3)-0.02077659977796572d0*b(n)
1868 200 continue
1869 return
1870 end
1871
1872 subroutine amp19_3p0(cc)
1873 implicit double precision(a-h,o-z)
1874 implicit integer (i-n)
1875 dimension b(16)
1876 #include "inclcon.h"
1877 #include "inclppp.h"
1878 #include "inclamp.h"
1879 do 100 n=1,16
1880 b(n)=0.0d0
1881 100 continue
1882 ccc=cc/((ffmcfmb**2*hbcm2-2*ffmcfmb*p2p3+2*ffmcfmb*p3p4+fmc2-2*
1883 . p2p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p2p3-fmc2)*(ffmcfmb**2*hbcm2
1884 . -2*ffmcfmb*hbcm2+2*ffmcfmb*p1p3-fmb2+hbcm2-2*p1p3))
1885 ans4=8*p6p7*(-ffmcfmb*fmb*fmc*hbcm3-2*ffmcfmb*fmc*hbcm4+ffmcfmb
1886 . *fmc2*hbcm3+2*ffmcfmb*hbcm*p2p3s2+fmb*fmc2*hbcm2-2*fmb*p2p3s2+
1887 . 2*fmc2*hbcm3-fmc3*hbcm2)+8*(p6p7*p3p4)*(-ffmcfmb**2*hbcm3+
1888 . ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2+2*ffmcfmb*hbcm3-fmb*fmc*
1889 . hbcm-2*fmc*hbcm2+2*fmc2*hbcm)+8*(p6p7*p2p3)*(-ffmcfmb**2*hbcm3
1890 . +ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm+2*fmc*hbcm2-
1891 . 6*fmc2*hbcm)+16*(-2*ffmcfmb*hbcm*p1p2*p3p6*p3p7-2*ffmcfmb*hbcm
1892 . *p1p3*p3p7*p4p6+2*ffmcfmb*hbcm*p2p5*p3p6*p3p7+2*ffmcfmb*hbcm*
1893 . p3p5*p3p7*p4p6-fmc*hbcm2*p1p2*p6p7-2*hbcm*p1p2*p3p4*p6p7-2*
1894 . hbcm*p1p2*p3p6*p4p7+2*hbcm*p1p2*p3p7*p4p6+2*hbcm*p1p3*p2p4*
1895 . p6p7+2*hbcm*p1p4*p2p3*p6p7+4*hbcm*p2p3*p2p4*p6p7-hbcm*p2p3*
1896 . p2p5*p6p7+4*hbcm*p2p3*p3p6*p4p7+4*hbcm*p2p3*p4p6*p4p7+2*hbcm*
1897 . p2p3*p4p6*p5p7-4*hbcm*p2p4*p3p5*p6p7-4*hbcm*p2p4*p3p6*p3p7-2*
1898 . hbcm*p2p4*p3p6*p5p7-4*hbcm*p2p4*p3p7*p4p6+3*hbcm*p2p5*p3p4*
1899 . p6p7+2*hbcm*p2p5*p3p6*p4p7-2*hbcm*p2p5*p3p7*p4p6)
1900 ans3=16*(p6p7*p2p4)*(-fmb*hbcm2+fmc*hbcm2-2*hbcm3)+16*(p5p7*
1901 . p4p6)*(-ffmcfmb*hbcm3+fmc*hbcm2)+16*(p4p7*p4p6)*(-ffmcfmb*
1902 . hbcm3+fmc*hbcm2)+16*(p6p7*p2p5)*(ffmcfmb*hbcm3+fmc*hbcm2)+16*(
1903 . p6p7*p1p4)*(-ffmcfmb*hbcm3+fmc*hbcm2)+16*(p4p6*p3p7*p3p4)*(3*
1904 . ffmcfmb*hbcm-fmc)+16*(p5p7*p3p6*p3p4)*(ffmcfmb*hbcm-fmc)+16*(
1905 . p6p7*p3p5*p3p4)*(ffmcfmb*hbcm-fmc)+16*(p4p6*p3p7*p2p3)*(-
1906 . ffmcfmb*hbcm+fmc)+16*(p5p7*p3p6*p2p3)*(-ffmcfmb*hbcm+fmc)+16*(
1907 . p6p7*p3p5*p2p3)*(-ffmcfmb*hbcm+fmc)+16*(p6p7*p3p4*p2p3)*(-
1908 . ffmcfmb*hbcm+fmb)+16*(p3p7*p3p6*p3p4)*(2*ffmcfmb*fmc+3*ffmcfmb
1909 . *hbcm-2*fmc)+16*(p3p7*p3p6*p2p3)*(-2*ffmcfmb*fmc+ffmcfmb*hbcm+
1910 . 2*fmc)+16*(p4p6*p3p7)*(-2*ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3+fmc*
1911 . hbcm2+fmc2*hbcm)+16*(p5p7*p3p6)*(-ffmcfmb*fmc*hbcm2+fmc2*hbcm)
1912 . +16*(p4p7*p3p6)*(-ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3+fmc*hbcm2+
1913 . fmc2*hbcm)+16*(p3p7*p3p6)*(-ffmcfmb*fmc*hbcm2+ffmcfmb*fmc2*
1914 . hbcm+2*fmc2*hbcm)+32*(p6p7*p3p5)*(-ffmcfmb*fmc*hbcm2+fmc2*hbcm
1915 . )+16*(p6p7*p1p3)*(ffmcfmb*fmc*hbcm2-fmc2*hbcm)+ans4
1916 ans2=w11*ans3
1917 ans7=8*(p6p7*p1p3)*(-ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb
1918 . *fmc*hbcm2+2*ffmcfmb*hbcm3+fmb*fmc*hbcm-2*fmc*hbcm2)-16*hbcm*
1919 . p1p3*p2p5*p6p7
1920 ans6=16*(p6p7*p2p5)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+32*(p3p7*
1921 . p3p6*p2p5)*(ffmcfmb*hbcm-hbcm)+32*(p5p7*p3p6*p2p3)*(-ffmcfmb*
1922 . hbcm+hbcm)+16*(p4p6*p3p7*p1p3)*(ffmcfmb*hbcm-fmc)+16*(p5p7*
1923 . p3p6*p1p3)*(ffmcfmb*hbcm-fmc)+16*(p6p7*p3p5*p1p3)*(ffmcfmb*
1924 . hbcm-fmc)+16*(p6p7*p2p3*p1p3)*(-ffmcfmb*hbcm+fmb)+16*(p3p7*
1925 . p3p6*p1p3)*(2*ffmcfmb*fmc+ffmcfmb*hbcm-2*fmc)+8*p6p7*(ffmcfmb
1926 . **2*hbcm5+ffmcfmb*fmb*hbcm4-ffmcfmb*fmc*hbcm4-ffmcfmb*hbcm5-
1927 . fmb*fmc*hbcm3+fmc*hbcm4)+16*(p4p6*p3p7)*(ffmcfmb**2*hbcm3+
1928 . ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3-fmb*fmc*hbcm
1929 . +fmc*hbcm2)+16*(p5p7*p3p6)*(ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2
1930 . -ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3-fmb*fmc*hbcm+fmc*hbcm2)+16*(
1931 . p3p7*p3p6)*(ffmcfmb**2*hbcm3+ffmcfmb*fmb*fmc*hbcm+ffmcfmb*fmb*
1932 . hbcm2-ffmcfmb*fmb2*hbcm-ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3-fmb*
1933 . fmc*hbcm+fmc*hbcm2)+16*(p6p7*p3p5)*(ffmcfmb**2*hbcm3+ffmcfmb*
1934 . fmb*hbcm2-ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3-fmb*fmc*hbcm+fmc*
1935 . hbcm2)+16*(p6p7*p2p3)*(-ffmcfmb**2*hbcm3+ffmcfmb*hbcm3-fmb*
1936 . hbcm2+fmb2*hbcm)+ans7
1937 ans5=w13*ans6
1938 ans8=(8*(p4p6*p3p7)*(4*fb1*ffmcfmb*hbcm+4*fb2*fmc-hbcm)+8*(p5p7
1939 . *p3p6)*(4*fb1*ffmcfmb*hbcm+4*fb2*fmc-hbcm)+8*(p3p7*p3p6)*(4*
1940 . fb1*ffmcfmb*hbcm-8*fb2*ffmcfmb*fmc+8*fb2*fmc-2*fmc-3*hbcm)+8*(
1941 . p6p7*p3p5)*(4*fb1*ffmcfmb*hbcm+4*fb2*fmc-hbcm)+8*(p6p7*p2p3)*(
1942 . -4*fb1*ffmcfmb*hbcm-4*fb2*fmb+hbcm)+4*p6p7*(4*fb1*ffmcfmb**2*
1943 . hbcm3+4*fb1*fmb*fmc*hbcm+4*fb2*ffmcfmb*fmb*hbcm2+4*fb2*ffmcfmb
1944 . *fmc*hbcm2-fmb*hbcm2-fmc*hbcm2)-32*fb1*hbcm*p2p5*p6p7)
1945 ans1=w7*(16*(p6p7*p2p5)*(ffmcfmb*hbcm3-fmc*hbcm2)+16*p6p7*(
1946 . ffmcfmb*hbcm*p2p3s2-fmb*p2p3s2)+16*(p4p6*p3p7*p2p3)*(ffmcfmb*
1947 . hbcm+fmc)+16*(p5p7*p3p6*p2p3)*(-ffmcfmb*hbcm+fmc)+16*(p6p7*
1948 . p3p5*p2p3)*(-ffmcfmb*hbcm+fmc)+16*(p3p7*p3p6*p2p3)*(-2*ffmcfmb
1949 . *fmc+ffmcfmb*hbcm+2*fmc)+8*(p6p7*p2p3)*(-ffmcfmb**2*hbcm3+
1950 . ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm+2*fmc2*hbcm)+
1951 . 16*(-2*ffmcfmb*hbcm*p1p2*p3p6*p3p7+2*ffmcfmb*hbcm*p2p5*p3p6*
1952 . p3p7-hbcm*p2p3*p2p5*p6p7))+ans2+ans5+ans8
1953 ans=ccc*ans1
1954 b(1)=ans
1955 ans2=w13*(16*(p5p7*p1p3)*(-ffmcfmb*hbcm+fmc)+8*(p3p7*p1p3)*(
1956 . ffmcfmb*fmb-ffmcfmb*fmc-ffmcfmb*hbcm+fmc)+16*p5p7*(-ffmcfmb**2
1957 . *hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3+fmb*
1958 . fmc*hbcm-fmc*hbcm2)+8*p3p7*(ffmcfmb**2*fmb*hbcm2-ffmcfmb**2*
1959 . fmc*hbcm2-ffmcfmb**2*hbcm3-ffmcfmb*fmb*fmc*hbcm-2*ffmcfmb*fmb*
1960 . hbcm2+ffmcfmb*fmb2*hbcm+2*ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3+fmb*
1961 . fmc*hbcm-fmc*hbcm2))+(8*p5p7*(-4*fb1*ffmcfmb*hbcm-4*fb2*fmc+
1962 . hbcm)+4*p3p7*(-4*fb1*ffmcfmb*hbcm-4*fb2*ffmcfmb*fmb+4*fb2*
1963 . ffmcfmb*fmc-4*fb2*fmc-fmb+fmc+hbcm))
1964 ans1=w7*(16*(p5p7*p2p3)*(ffmcfmb*hbcm-fmc)+8*(p3p7*p2p3)*(-
1965 . ffmcfmb*fmb+ffmcfmb*fmc-ffmcfmb*hbcm-fmc)+16*(ffmcfmb*hbcm*
1966 . p1p2*p3p7-2*ffmcfmb*hbcm*p2p5*p3p7))+w11*(16*(p5p7*p3p4)*(-
1967 . ffmcfmb*hbcm+fmc)+16*(p5p7*p2p3)*(ffmcfmb*hbcm-fmc)+24*p5p7*(
1968 . ffmcfmb*fmc*hbcm2-fmc2*hbcm)+8*(p3p7*p3p4)*(ffmcfmb*fmb-
1969 . ffmcfmb*fmc-3*ffmcfmb*hbcm+fmc)+8*(p3p7*p2p3)*(-ffmcfmb*fmb+
1970 . ffmcfmb*fmc-ffmcfmb*hbcm-fmc)+8*p4p7*(ffmcfmb**2*hbcm3-ffmcfmb
1971 . *fmb*hbcm2+ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm-2*fmc2*hbcm)+8*p3p7*
1972 . (-ffmcfmb**2*fmc*hbcm2+ffmcfmb*fmb*fmc*hbcm+2*ffmcfmb*fmc*
1973 . hbcm2-2*ffmcfmb*fmc2*hbcm-2*fmc2*hbcm)+16*(ffmcfmb*hbcm*p1p2*
1974 . p3p7+ffmcfmb*hbcm*p1p4*p3p7-2*ffmcfmb*hbcm*p2p5*p3p7+2*hbcm*
1975 . p1p2*p4p7-2*hbcm*p2p3*p4p7+2*hbcm*p2p4*p3p7+3*hbcm*p2p4*p5p7-3
1976 . *hbcm*p2p5*p4p7))+ans2
1977 ans=ccc*ans1
1978 b(2)=ans
1979 ans=ccc*(w7*(16*(p4p6*p2p3)*(ffmcfmb*hbcm-fmc)+8*(p3p6*p2p3)*(
1980 . ffmcfmb*hbcm-fmc))+w11*(16*(p4p6*p3p4)*(-ffmcfmb*hbcm+fmc)+8*(
1981 . p3p6*p3p4)*(-ffmcfmb*hbcm+fmc)+16*(p3p6*p2p4)*(ffmcfmb*hbcm+
1982 . hbcm)+16*(p4p6*p2p3)*(ffmcfmb*hbcm-fmc+hbcm)+8*(p3p6*p2p3)*(
1983 . ffmcfmb*hbcm-fmc)+8*p4p6*(-ffmcfmb**2*hbcm3+3*ffmcfmb*fmc*
1984 . hbcm2-2*fmc2*hbcm)+8*p3p6*(ffmcfmb**2*fmc*hbcm2+ffmcfmb*fmc*
1985 . hbcm2-ffmcfmb*fmc2*hbcm-fmc2*hbcm)+16*(-hbcm*p1p2*p4p6+3*hbcm*
1986 . p2p4*p4p6+hbcm*p2p5*p4p6))+w13*(32*(p3p6*p2p5)*(-ffmcfmb*hbcm+
1987 . hbcm)+16*(p3p6*p2p3)*(-ffmcfmb*hbcm+hbcm)+16*(p4p6*p1p3)*(-
1988 . ffmcfmb*hbcm+fmc)+8*(p3p6*p1p3)*(-ffmcfmb*hbcm+fmc)+16*(p3p6*
1989 . p1p2)*(ffmcfmb*hbcm-hbcm)+16*p4p6*(-ffmcfmb**2*hbcm3-ffmcfmb*
1990 . fmb*hbcm2+ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3+fmb*fmc*hbcm-fmc*
1991 . hbcm2)+8*p3p6*(-ffmcfmb**2*fmb*hbcm2+ffmcfmb**2*fmc*hbcm2-
1992 . ffmcfmb**2*hbcm3+ffmcfmb*fmb*fmc*hbcm-ffmcfmb*fmc2*hbcm+
1993 . ffmcfmb*hbcm3-fmc*hbcm2+fmc2*hbcm))+(8*p4p6*(-4*fb1*ffmcfmb*
1994 . hbcm-4*fb2*fmc+hbcm)+4*p3p6*(-4*fb1*ffmcfmb*hbcm-4*fb2*fmc+
1995 . hbcm)))
1996 b(3)=ans
1997 ans3=w13*(32*(p6p7*p2p4)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(
1998 . p6p7*p2p3)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(p6p7*p1p2)*(-
1999 . ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(p6p7*p1p3)*(ffmcfmb*fmb*hbcm+
2000 . ffmcfmb*fmc*hbcm-fmb*fmc-fmc2)+16*(p3p7*p3p6*p1p3)*(ffmcfmb**2
2001 . -ffmcfmb)+16*(p4p6*p3p7)*(-ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm+
2002 . ffmcfmb*hbcm2)+16*(p5p7*p3p6)*(-ffmcfmb**2*hbcm2+ffmcfmb*fmc*
2003 . hbcm+ffmcfmb*hbcm2-fmc*hbcm)+16*(p3p7*p3p6)*(-ffmcfmb**2*hbcm2
2004 . +ffmcfmb*hbcm2)+8*p6p7*(ffmcfmb**2*fmb*hbcm3+ffmcfmb**2*fmc*
2005 . hbcm3-ffmcfmb*fmb*hbcm3+ffmcfmb*fmb2*hbcm2-ffmcfmb*fmc*hbcm3-
2006 . ffmcfmb*fmc2*hbcm2+fmb*fmc*hbcm2-fmb*fmc2*hbcm-fmb2*fmc*hbcm+
2007 . fmc2*hbcm2)+16*(-ffmcfmb*p1p3*p3p7*p4p6-p1p2*p1p3*p6p7+p1p3*
2008 . p2p3*p6p7+2*p1p3*p2p4*p6p7))+((p4p6*p3p7)*(32*fb2*ffmcfmb+8)+(
2009 . p3p7*p3p6)*(-32*fb2*ffmcfmb**2+32*fb2*ffmcfmb-16*ffmcfmb+8)+4*
2010 . p6p7*(4*fb1*ffmcfmb*fmb*hbcm+4*fb1*ffmcfmb*fmc*hbcm+4*fb2*fmb*
2011 . fmc+4*fb2*fmc2-fmb*hbcm-fmc*hbcm)+32*(fb2*p1p2*p6p7-fb2*p2p3*
2012 . p6p7-2*fb2*p2p4*p6p7))
2013 ans2=w11*(16*(p5p7*p4p6)*(ffmcfmb*hbcm2-fmc*hbcm)+32*(p4p7*p4p6
2014 . )*(ffmcfmb*hbcm2-fmc*hbcm)+16*(p4p7*p3p6)*(ffmcfmb*hbcm2-fmc*
2015 . hbcm)+16*(p6p7*p2p4)*(3*ffmcfmb*hbcm2-fmb*hbcm-fmc*hbcm)+16*(
2016 . p6p7*p1p4)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p6p7*p3p4)*(ffmcfmb*fmb
2017 . *hbcm+ffmcfmb*fmc*hbcm-2*ffmcfmb*hbcm2-fmb*fmc+2*fmc*hbcm-fmc2
2018 . )+8*(p6p7*p2p3)*(-ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm+2*ffmcfmb*
2019 . hbcm2+fmb*fmc+fmc2)+16*(p3p7*p3p6*p3p4)*(ffmcfmb**2-ffmcfmb)+
2020 . 16*(p3p7*p3p6*p2p3)*(-ffmcfmb**2+ffmcfmb)+16*(p4p6*p3p7)*(-
2021 . ffmcfmb**2*hbcm2-ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-fmc*hbcm)+8*
2022 . p6p7*(ffmcfmb**2*fmc*hbcm3-ffmcfmb*fmb*fmc*hbcm2-3*ffmcfmb*
2023 . fmc2*hbcm2+fmb*fmc2*hbcm+2*fmc3*hbcm-2*p2p3s2)+16*(-ffmcfmb*
2024 . fmc*hbcm*p3p6*p3p7-ffmcfmb*hbcm2*p1p2*p6p7+ffmcfmb*p2p3*p3p7*
2025 . p4p6-ffmcfmb*p3p4*p3p7*p4p6+p1p2*p2p3*p6p7-p1p2*p3p4*p6p7-2*
2026 . p2p3*p2p4*p6p7+p2p3*p3p4*p6p7+2*p2p4*p3p4*p6p7))+ans3
2027 ans1=w7*(32*(p6p7*p2p4)*(ffmcfmb*hbcm2-fmc*hbcm)+16*(p6p7*p1p2)
2028 . *(-ffmcfmb*hbcm2+fmc*hbcm)+8*(p6p7*p2p3)*(-ffmcfmb*fmb*hbcm-
2029 . ffmcfmb*fmc*hbcm+2*ffmcfmb*hbcm2+fmb*fmc-2*fmc*hbcm+fmc2)+16*(
2030 . p3p7*p3p6*p2p3)*(-ffmcfmb**2+ffmcfmb)+16*(ffmcfmb*p2p3*p3p7*
2031 . p4p6+p1p2*p2p3*p6p7-2*p2p3*p2p4*p6p7-p2p3s2*p6p7))+ans2
2032 ans=ccc*ans1
2033 b(4)=ans
2034 ans4=16*(ffmcfmb*fmc*hbcm*p1p3*p3p7-2*ffmcfmb*fmc*hbcm*p3p5*
2035 . p3p7+ffmcfmb*p2p3*p3p4*p3p7+ffmcfmb*p2p3*p3p5*p3p7-ffmcfmb*
2036 . p3p4*p3p5*p3p7+fmc*hbcm*p1p4*p3p7+hbcm2*p1p2*p4p7+2*hbcm2*p2p4
2037 . *p5p7-2*hbcm2*p2p5*p4p7+p1p2*p2p3*p3p7-p1p2*p3p4*p3p7-2*p2p3*
2038 . p2p5*p3p7-2*p2p3*p3p4*p5p7+2*p2p5*p3p4*p3p7)
2039 ans3=32*(p4p7*p3p5)*(ffmcfmb*hbcm2-fmc*hbcm)+24*(p5p7*p3p4)*(-
2040 . ffmcfmb*hbcm2+fmc*hbcm)+16*(p3p7*p2p5)*(ffmcfmb*hbcm2+fmc*hbcm
2041 . )+16*(p3p7*p2p4)*(-ffmcfmb*hbcm2+fmb*hbcm+2*fmc*hbcm+hbcm2)+24
2042 . *(p5p7*p2p3)*(-ffmcfmb*hbcm2-fmc*hbcm)+16*(p4p7*p2p3)*(-
2043 . ffmcfmb*hbcm2-fmb*hbcm-hbcm2)+16*(p4p7*p1p3)*(-ffmcfmb*hbcm2+
2044 . fmc*hbcm)+16*(p3p7*p1p2)*(-ffmcfmb*hbcm2-fmc*hbcm)+16*p5p7*(
2045 . ffmcfmb*fmc*hbcm3-fmc2*hbcm2+2*p2p3s2)+8*p4p7*(ffmcfmb*fmb*
2046 . hbcm3+ffmcfmb*fmc*hbcm3+2*ffmcfmb*hbcm4-fmb*fmc*hbcm2-2*fmc*
2047 . hbcm3-fmc2*hbcm2)+8*(p3p7*p3p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*
2048 . fmb*hbcm-3*ffmcfmb*fmc*hbcm-2*ffmcfmb*hbcm2+fmb*fmc+fmc2)+8*(
2049 . p3p7*p2p3)*(ffmcfmb**2*hbcm2+3*ffmcfmb*fmc*hbcm-fmb*fmc-fmc2)+
2050 . 8*p3p7*(-ffmcfmb**2*fmc*hbcm3-ffmcfmb*fmc*hbcm3+2*ffmcfmb*fmc2
2051 . *hbcm2-2*ffmcfmb*p2p3s2-fmb*fmc2*hbcm-fmc2*hbcm2-2*fmc3*hbcm)+
2052 . ans4
2053 ans2=w11*ans3
2054 ans6=((p3p7*p3p5)*(32*fb2*ffmcfmb+8)+(p3p7*p2p3)*(-32*fb2*
2055 . ffmcfmb-8)+4*p5p7*(-4*fb1*fmc*hbcm-4*fb2*ffmcfmb*hbcm2+hbcm2)+
2056 . 4*p3p7*(-4*fb1*ffmcfmb*fmc*hbcm+4*fb2*ffmcfmb**2*hbcm2-4*fb2*
2057 . fmb*fmc-4*fb2*fmc2+2*fmb*hbcm+fmc*hbcm)+32*(fb2*p1p2*p3p7+2*
2058 . fb2*p2p3*p5p7-2*fb2*p2p5*p3p7))
2059 ans5=w13*(32*(p3p7*p2p5)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+32*(
2060 . p5p7*p2p3)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(p5p7*p1p3)*(
2061 . ffmcfmb*hbcm2-fmc*hbcm)+16*(p3p7*p1p2)*(-ffmcfmb*hbcm2-fmb*
2062 . hbcm+hbcm2)+8*p5p7*(ffmcfmb**2*hbcm4+ffmcfmb*fmb*hbcm3-ffmcfmb
2063 . *fmc*hbcm3-ffmcfmb*hbcm4-fmb*fmc*hbcm2+fmc*hbcm3)+16*(p3p7*
2064 . p3p5)*(-ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm+ffmcfmb*hbcm2)+16*(
2065 . p3p7*p2p3)*(ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm-ffmcfmb*hbcm2)+8
2066 . *(p3p7*p1p3)*(ffmcfmb**2*hbcm2-ffmcfmb*fmc*hbcm-2*ffmcfmb*
2067 . hbcm2+fmb*fmc+fmc2)+8*p3p7*(-ffmcfmb**2*fmb*hbcm3-ffmcfmb**2*
2068 . fmc*hbcm3-ffmcfmb**2*hbcm4-ffmcfmb*fmb2*hbcm2+ffmcfmb*fmc*
2069 . hbcm3+ffmcfmb*fmc2*hbcm2+ffmcfmb*hbcm4-fmb*fmc*hbcm2+fmb*fmc2*
2070 . hbcm+fmb2*fmc*hbcm-fmc2*hbcm2)+16*(ffmcfmb*p1p3*p2p3*p3p7-
2071 . ffmcfmb*p1p3*p3p5*p3p7-p1p2*p1p3*p3p7-2*p1p3*p2p3*p5p7+2*p1p3*
2072 . p2p5*p3p7))+ans6
2073 ans1=w7*(16*(p3p7*p2p5)*(ffmcfmb*hbcm2-2*fmc*hbcm)+24*(p5p7*
2074 . p2p3)*(-ffmcfmb*hbcm2+fmc*hbcm)+16*(p3p7*p1p2)*(-ffmcfmb*hbcm2
2075 . +fmc*hbcm)+8*(p3p7*p2p3)*(ffmcfmb**2*hbcm2-ffmcfmb*fmc*hbcm-
2076 . fmb*fmc-fmc2)+16*(ffmcfmb*p2p3*p3p5*p3p7-ffmcfmb*p2p3s2*p3p7+
2077 . p1p2*p2p3*p3p7-2*p2p3*p2p5*p3p7+2*p2p3s2*p5p7))+ans2+ans5
2078 ans=ccc*ans1
2079 b(5)=ans
2080 ans4=(4*p4p6*(-4*fb1*fmc*hbcm-4*fb2*ffmcfmb*hbcm2+hbcm2)+4*p3p6
2081 . *(-4*fb1*ffmcfmb*fmb*hbcm-4*fb1*fmc*hbcm+4*fb2*ffmcfmb**2*
2082 . hbcm2-4*fb2*ffmcfmb*hbcm2-4*fb2*fmb*fmc-4*fb2*fmc2+fmb*hbcm+
2083 . hbcm2)+32*(fb2*p1p2*p3p6+2*fb2*p2p3*p4p6-2*fb2*p2p5*p3p6))
2084 ans3=w13*(16*(p3p6*p2p5)*(ffmcfmb*hbcm2+2*fmb*hbcm-hbcm2)+32*(
2085 . p4p6*p2p3)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(p4p6*p1p3)*(
2086 . ffmcfmb*hbcm2-fmc*hbcm)+16*(p3p6*p1p2)*(-ffmcfmb*hbcm2-fmb*
2087 . hbcm+hbcm2)+8*p4p6*(ffmcfmb**2*hbcm4+ffmcfmb*fmb*hbcm3-ffmcfmb
2088 . *fmc*hbcm3-ffmcfmb*hbcm4-fmb*fmc*hbcm2+fmc*hbcm3)+16*(p3p6*
2089 . p3p5)*(ffmcfmb**2*hbcm2-ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2+fmc*
2090 . hbcm)+16*(p3p6*p2p3)*(-ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm+
2091 . ffmcfmb*hbcm2+fmb*hbcm)+8*(p3p6*p1p3)*(-ffmcfmb**2*hbcm2-
2092 . ffmcfmb*fmb*hbcm+ffmcfmb*hbcm2+fmb*fmc-fmc*hbcm+fmc2)+8*p3p6*(
2093 . -ffmcfmb**2*fmb*hbcm3-ffmcfmb**2*fmc*hbcm3+ffmcfmb**2*hbcm4+
2094 . ffmcfmb*fmb*hbcm3-ffmcfmb*fmb2*hbcm2+ffmcfmb*fmc2*hbcm2-
2095 . ffmcfmb*hbcm4-fmb*fmc*hbcm2+fmb*fmc2*hbcm+fmb2*fmc*hbcm+fmc*
2096 . hbcm3-fmc2*hbcm2)+16*(-p1p2*p1p3*p3p6-2*p1p3*p2p3*p4p6+2*p1p3*
2097 . p2p5*p3p6))+ans4
2098 ans2=w11*(16*(p4p6*p3p5)*(-ffmcfmb*hbcm2+fmc*hbcm)+24*(p4p6*
2099 . p3p4)*(-ffmcfmb*hbcm2+fmc*hbcm)+16*(p3p6*p2p5)*(2*ffmcfmb*
2100 . hbcm2+fmc*hbcm)+16*(p3p6*p2p4)*(-ffmcfmb*hbcm2+fmb*hbcm+2*fmc*
2101 . hbcm+hbcm2)+8*(p4p6*p2p3)*(-3*ffmcfmb*hbcm2-3*fmc*hbcm+2*hbcm2
2102 . )+16*(p3p6*p1p4)*(-ffmcfmb*hbcm2+fmc*hbcm)+16*(p4p6*p1p3)*(
2103 . ffmcfmb*hbcm2-fmc*hbcm)+16*(p3p6*p1p2)*(-ffmcfmb*hbcm2-fmc*
2104 . hbcm)+8*p4p6*(ffmcfmb**2*hbcm4-2*ffmcfmb*hbcm4+2*fmc*hbcm3-
2105 . fmc2*hbcm2+4*p2p3s2)+8*(p3p6*p3p4)*(-ffmcfmb**2*hbcm2-ffmcfmb*
2106 . fmb*hbcm+ffmcfmb*hbcm2+fmb*fmc-fmc*hbcm+fmc2)+8*(p3p6*p2p3)*(-
2107 . ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm+ffmcfmb*hbcm2-fmb*fmc+fmc*
2108 . hbcm-fmc2)+8*p3p6*(-ffmcfmb**2*fmc*hbcm3+ffmcfmb*fmb*fmc*hbcm2
2109 . +ffmcfmb*fmc*hbcm3+3*ffmcfmb*fmc2*hbcm2-fmb*fmc2*hbcm-fmc2*
2110 . hbcm2-2*fmc3*hbcm)+16*(-hbcm2*p1p2*p4p6+2*hbcm2*p2p4*p4p6+
2111 . hbcm2*p2p5*p4p6+p1p2*p2p3*p3p6-p1p2*p3p4*p3p6-2*p2p3*p2p5*p3p6
2112 . -2*p2p3*p3p4*p4p6+2*p2p5*p3p4*p3p6))+ans3
2113 ans1=w7*(32*(p3p6*p2p5)*(ffmcfmb*hbcm2-fmc*hbcm)+24*(p4p6*p2p3)
2114 . *(-ffmcfmb*hbcm2+fmc*hbcm)+16*(p3p6*p1p2)*(-ffmcfmb*hbcm2+fmc*
2115 . hbcm)+8*(p3p6*p2p3)*(-ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm+2*
2116 . ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-fmb*fmc-fmc*hbcm-fmc2)+16*(p1p2
2117 . *p2p3*p3p6-2*p2p3*p2p5*p3p6+2*p2p3s2*p4p6))+ans2
2118 ans=ccc*ans1
2119 b(6)=ans
2120 ans2=w13*(24*p2p5*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*p2p3*(-
2121 . ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*p1p2*(ffmcfmb*hbcm2+fmb*hbcm-
2122 . hbcm2)+4*p1p3*(-ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm+3*ffmcfmb*
2123 . fmc*hbcm+2*ffmcfmb*hbcm2-fmb*fmc-2*fmc*hbcm-2*fmc2)+4*(2*
2124 . ffmcfmb**2*fmb*hbcm3+2*ffmcfmb**2*fmc*hbcm3+ffmcfmb**2*hbcm4-
2125 . ffmcfmb*fmb*hbcm3+2*ffmcfmb*fmb2*hbcm2-3*ffmcfmb*fmc*hbcm3-2*
2126 . ffmcfmb*fmc2*hbcm2-ffmcfmb*hbcm4+fmb*fmc*hbcm2-2*fmb*fmc2*hbcm
2127 . -2*fmb2*fmc*hbcm+fmc*hbcm3+2*fmc2*hbcm2+4*p1p2*p1p3-4*p1p3*
2128 . p2p3-6*p1p3*p2p5))+2*(4*fb1*ffmcfmb*fmb*hbcm+4*fb1*ffmcfmb*fmc
2129 . *hbcm-4*fb2*ffmcfmb**2*hbcm2+4*fb2*fmb*fmc+8*fb2*fmc2-16*fb2*
2130 . p1p2+16*fb2*p2p3+24*fb2*p2p5+2*ffmcfmb*hbcm2-fmb*hbcm-3*fmc*
2131 . hbcm)
2132 ans1=w7*(24*p2p5*(-ffmcfmb*hbcm2+fmc*hbcm)+16*p1p2*(ffmcfmb*
2133 . hbcm2-fmc*hbcm)+4*p2p3*(ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm-3*
2134 . ffmcfmb*fmc*hbcm-4*ffmcfmb*hbcm2+fmb*fmc+4*fmc*hbcm+2*fmc2)+8*
2135 . (-2*p1p2*p2p3+3*p2p3*p2p5+2*p2p3s2))+w11*(8*p2p5*(-3*ffmcfmb*
2136 . hbcm2-fmc*hbcm)+8*p2p4*(2*ffmcfmb*hbcm2-fmb*hbcm-3*fmc*hbcm)+8
2137 . *p1p4*(ffmcfmb*hbcm2-fmc*hbcm)+8*p1p2*(2*ffmcfmb*hbcm2+fmc*
2138 . hbcm)+4*p3p4*(-ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm+3*ffmcfmb*fmc
2139 . *hbcm-2*ffmcfmb*hbcm2-fmb*fmc+2*fmc*hbcm-2*fmc2)+4*p2p3*(
2140 . ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm-3*ffmcfmb*fmc*hbcm-4*ffmcfmb
2141 . *hbcm2+fmb*fmc-2*fmc*hbcm+2*fmc2)+4*(2*ffmcfmb**2*fmc*hbcm3-
2142 . ffmcfmb*fmb*fmc*hbcm2-5*ffmcfmb*fmc2*hbcm2+fmb*fmc2*hbcm+3*
2143 . fmc3*hbcm-4*p1p2*p2p3+4*p1p2*p3p4+6*p2p3*p2p5-4*p2p3*p3p4+4*
2144 . p2p3s2-6*p2p5*p3p4))+ans2
2145 ans=ccc*ans1
2146 b(7)=ans
2147 ans4=(8*p3p5*(-4*fb1*ffmcfmb*hbcm-4*fb2*fmc+hbcm)+4*p2p3*(4*fb1
2148 . *ffmcfmb*hbcm+4*fb1*hbcm+4*fb2*fmb-3*hbcm)+4*p1p3*(4*fb1*
2149 . ffmcfmb*hbcm+4*fb2*fmc-hbcm)+2*(-8*fb1*ffmcfmb*hbcm3-4*fb1*fmb
2150 . *fmc*hbcm+4*fb1*fmc2*hbcm-8*fb1*hbcm*p1p2+16*fb1*hbcm*p2p5-4*
2151 . fb2*ffmcfmb*fmb*hbcm2+4*fb2*ffmcfmb*fmc*hbcm2-8*fb2*fmc*hbcm2+
2152 . fmb*hbcm2-fmc*hbcm2+2*hbcm3))
2153 ans3=w13*(16*p2p5*(ffmcfmb*hbcm3+fmb*hbcm2-hbcm3)+8*p1p2*(-
2154 . ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+16*(p3p5*p1p3)*(-ffmcfmb*hbcm+
2155 . fmc)+8*(p2p3*p1p3)*(3*ffmcfmb*hbcm-fmb-hbcm)+16*p3p5*(-ffmcfmb
2156 . **2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3+
2157 . fmb*fmc*hbcm-fmc*hbcm2)+16*p2p3*(ffmcfmb**2*hbcm3-ffmcfmb*
2158 . hbcm3+fmb*hbcm2-fmb2*hbcm)+4*p1p3*(2*ffmcfmb**2*hbcm3+3*
2159 . ffmcfmb*fmb*hbcm2-3*ffmcfmb*fmc*hbcm2-4*ffmcfmb*hbcm3-3*fmb*
2160 . fmc*hbcm+4*fmc*hbcm2+fmc2*hbcm)+4*(ffmcfmb**2*fmb*hbcm4-
2161 . ffmcfmb**2*fmc*hbcm4-2*ffmcfmb**2*hbcm5-2*ffmcfmb*fmb*fmc*
2162 . hbcm3-3*ffmcfmb*fmb*hbcm4+ffmcfmb*fmb2*hbcm3+3*ffmcfmb*fmc*
2163 . hbcm4+ffmcfmb*fmc2*hbcm3+2*ffmcfmb*hbcm*p1p3s2+2*ffmcfmb*hbcm5
2164 . +3*fmb*fmc*hbcm3+fmb*fmc2*hbcm2-fmb2*fmc*hbcm2-2*fmc*hbcm4-2*
2165 . fmc*p1p3s2-fmc2*hbcm3-2*hbcm*p1p2*p1p3+4*hbcm*p1p3*p2p5))+ans4
2166 ans2=w11*(8*p2p5*(-2*ffmcfmb*hbcm3-fmc*hbcm2)+8*p2p4*(-ffmcfmb*
2167 . hbcm3+fmb*hbcm2-2*fmc*hbcm2+4*hbcm3)+8*p1p4*(ffmcfmb*hbcm3-fmc
2168 . *hbcm2)+8*p1p2*(ffmcfmb*hbcm3+fmc*hbcm2)+16*(p3p5*p3p4)*(-
2169 . ffmcfmb*hbcm+fmc)+16*(p3p5*p2p3)*(ffmcfmb*hbcm-fmc)+8*(p3p4*
2170 . p2p3)*(3*ffmcfmb*hbcm-fmb-hbcm)+8*(p3p4*p1p3)*(ffmcfmb*hbcm-
2171 . fmc)+8*(p2p3*p1p3)*(-ffmcfmb*hbcm+fmc)+24*p3p5*(ffmcfmb*fmc*
2172 . hbcm2-fmc2*hbcm)+16*p1p3*(-ffmcfmb*fmc*hbcm2+fmc2*hbcm)+4*p3p4
2173 . *(2*ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2-4*
2174 . ffmcfmb*hbcm3+fmb*fmc*hbcm+4*fmc*hbcm2-3*fmc2*hbcm)+4*p2p3*(2*
2175 . ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-fmb*fmc*
2176 . hbcm-4*fmc*hbcm2+9*fmc2*hbcm)+4*(-ffmcfmb**2*fmc*hbcm4+ffmcfmb
2177 . *fmb*fmc*hbcm3+4*ffmcfmb*fmc*hbcm4-ffmcfmb*fmc2*hbcm3-6*
2178 . ffmcfmb*hbcm*p2p3s2-fmb*fmc2*hbcm2+2*fmb*p2p3s2-4*fmc2*hbcm3+2
2179 . *fmc3*hbcm2-2*hbcm*p1p2*p2p3+6*hbcm*p1p2*p3p4-8*hbcm*p1p3*p2p4
2180 . -4*hbcm*p1p4*p2p3-12*hbcm*p2p3*p2p4+4*hbcm*p2p3*p2p5+2*hbcm*
2181 . p2p3s2+12*hbcm*p2p4*p3p5-8*hbcm*p2p5*p3p4))+ans3
2182 ans1=w7*(16*p2p5*(-ffmcfmb*hbcm3+fmc*hbcm2)+8*p1p2*(ffmcfmb*
2183 . hbcm3-fmc*hbcm2)+16*(p3p5*p2p3)*(ffmcfmb*hbcm-fmc)+8*(p2p3*
2184 . p1p3)*(-ffmcfmb*hbcm+fmc)+4*p2p3*(2*ffmcfmb**2*hbcm3-ffmcfmb*
2185 . fmb*hbcm2+ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm-3*fmc2*hbcm)+8*(-3*
2186 . ffmcfmb*hbcm*p2p3s2+fmb*p2p3s2-hbcm*p1p2*p2p3+2*hbcm*p2p3*p2p5
2187 . +hbcm*p2p3s2))+ans2
2188 ans=ccc*ans1
2189 b(8)=ans
2190 ans=ccc*(w7*(16*p4p6*(-ffmcfmb*hbcm3+fmc*hbcm2)+8*(p3p6*p2p3)*(
2191 . -2*ffmcfmb*hbcm+fmb-fmc+hbcm)+8*p3p6*(ffmcfmb**2*hbcm3-ffmcfmb
2192 . *fmb*hbcm2+ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3+fmb*fmc*hbcm+fmc*
2193 . hbcm2-2*fmc2*hbcm)+16*hbcm*p2p3*p4p6)+w13*(8*(p3p6*p1p3)*(-fmb
2194 . +fmc+hbcm)+16*p4p6*(ffmcfmb*hbcm3+fmb*hbcm2-hbcm3)+32*(p3p6*
2195 . p3p5)*(ffmcfmb*hbcm-hbcm)+16*(p3p6*p2p3)*(-ffmcfmb*hbcm+hbcm)+
2196 . 8*p3p6*(ffmcfmb**2*hbcm3+ffmcfmb*hbcm3+fmb*fmc*hbcm+fmb*hbcm2-
2197 . 2*fmb2*hbcm-2*hbcm3)+16*hbcm*p1p3*p4p6)+w11*(8*p4p6*(-fmc*
2198 . hbcm2-2*hbcm3)+8*(p3p6*p3p4)*(-fmb+fmc+hbcm)+8*(p3p6*p2p3)*(-2
2199 . *ffmcfmb*hbcm+fmb-fmc+hbcm)+8*p3p6*(ffmcfmb**2*hbcm3-ffmcfmb*
2200 . fmb*hbcm2-ffmcfmb*hbcm3+3*fmc2*hbcm)+16*(hbcm*p1p3*p4p6-hbcm*
2201 . p1p4*p3p6+hbcm*p2p3*p4p6-2*hbcm*p2p4*p3p6-2*hbcm*p3p4*p4p6-
2202 . hbcm*p3p5*p4p6))+(8*p3p6*(2*fb1*hbcm+2*fb2*fmb-2*fb2*fmc-hbcm)
2203 . +32*fb1*hbcm*p4p6))
2204 b(9)=ans
2205 b(10)=ccc*(w7*((p3p6*p2p3)*(-8*ffmcfmb-8)+24*p4p6*(ffmcfmb*
2206 . hbcm2-fmc*hbcm)+8*p3p6*(ffmcfmb**2*hbcm2-ffmcfmb*fmc*hbcm+
2207 . ffmcfmb*hbcm2-fmc*hbcm)-24*p2p3*p4p6)+w13*((p3p6*p1p3)*(8*
2208 . ffmcfmb+8)+24*p4p6*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*p3p6*(
2209 . ffmcfmb**2*hbcm2+2*ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm-fmc*hbcm-
2210 . hbcm2)+24*p1p3*p4p6)+w11*((p3p6*p3p4)*(8*ffmcfmb+8)+(p3p6*p2p3
2211 . )*(-8*ffmcfmb-8)+8*p4p6*(3*ffmcfmb*hbcm2+fmc*hbcm)+8*p3p6*(
2212 . ffmcfmb**2*hbcm2+ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2)+24*(-p2p3*
2213 . p4p6+p3p4*p4p6))+(p3p6*(-16*fb2*ffmcfmb-16*fb2-4)-48*fb2*p4p6)
2214 . )
2215 ans2=4*(-2*fb1*fmb*hbcm-2*fb1*fmc*hbcm+4*fb2*ffmcfmb*hbcm2-8*
2216 . fb2*hbcm2+8*fb2*p1p3+4*fb2*p2p3-12*fb2*p3p5-hbcm2)
2217 ans1=w7*(24*p3p5*(ffmcfmb*hbcm2-fmc*hbcm)+4*p2p3*(-2*ffmcfmb*
2218 . hbcm2-fmb*hbcm+fmc*hbcm-4*hbcm2)+16*p1p3*(-ffmcfmb*hbcm2+fmc*
2219 . hbcm)+4*(-ffmcfmb**2*hbcm4+ffmcfmb*fmb*hbcm3+3*ffmcfmb*fmc*
2220 . hbcm3+4*ffmcfmb*hbcm4-fmb*fmc*hbcm2-4*fmc*hbcm3-2*fmc2*hbcm2+4
2221 . *p1p3*p2p3-6*p2p3*p3p5+2*p2p3s2))+w13*(24*p3p5*(ffmcfmb*hbcm2+
2222 . fmb*hbcm-hbcm2)+8*p2p3*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+4*p1p3*
2223 . (-4*ffmcfmb*hbcm2-5*fmb*hbcm-fmc*hbcm+6*hbcm2)+4*(-ffmcfmb**2*
2224 . hbcm4-3*ffmcfmb*fmb*hbcm3-ffmcfmb*fmc*hbcm3+4*ffmcfmb*hbcm4-
2225 . fmb*fmc*hbcm2+5*fmb*hbcm3-2*fmb2*hbcm2+fmc*hbcm3-3*hbcm4-2*
2226 . p1p3*p2p3+6*p1p3*p3p5-4*p1p3s2))+w11*(4*p3p4*(fmb*hbcm+fmc*
2227 . hbcm+6*hbcm2)+8*p3p5*(3*ffmcfmb*hbcm2+fmc*hbcm)+4*p2p3*(-2*
2228 . ffmcfmb*hbcm2-fmb*hbcm-fmc*hbcm-4*hbcm2)+8*p1p3*(-2*ffmcfmb*
2229 . hbcm2-fmc*hbcm)+4*(-ffmcfmb**2*hbcm4+ffmcfmb*fmb*hbcm3-ffmcfmb
2230 . *fmc*hbcm3+4*ffmcfmb*hbcm4+2*fmc*hbcm3+3*fmc2*hbcm2-2*hbcm2*
2231 . p1p4-4*hbcm2*p2p4+4*p1p3*p2p3-4*p1p3*p3p4-2*p2p3*p3p4-6*p2p3*
2232 . p3p5+2*p2p3s2+6*p3p4*p3p5))+ans2
2233 ans=ccc*ans1
2234 b(11)=ans
2235 ans=ccc*(w7*(16*p5p7*(ffmcfmb*hbcm3-fmc*hbcm2)+8*(p3p7*p2p3)*(4
2236 . *ffmcfmb*hbcm-fmb+fmc-hbcm)+8*p3p7*(-ffmcfmb**2*hbcm3-ffmcfmb*
2237 . hbcm3-fmb*fmc*hbcm-fmc*hbcm2+2*fmc2*hbcm)+16*(ffmcfmb*hbcm*
2238 . p1p3*p3p7-2*ffmcfmb*hbcm*p3p5*p3p7-hbcm*p2p3*p5p7))+w13*(16*
2239 . p5p7*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+8*(p3p7*p1p3)*(-2*
2240 . ffmcfmb*hbcm+fmb-fmc+hbcm)+8*p3p7*(-ffmcfmb**2*hbcm3+ffmcfmb*
2241 . fmb*hbcm2-ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3-fmb*fmc*hbcm-2*fmb*
2242 . hbcm2+2*fmb2*hbcm+fmc*hbcm2)-16*hbcm*p1p3*p5p7)+w11*(8*p5p7*(2
2243 . *ffmcfmb*hbcm3+fmc*hbcm2)+8*p4p7*(2*ffmcfmb*hbcm3-fmb*hbcm2+
2244 . fmc*hbcm2-4*hbcm3)+8*(p3p7*p3p4)*(-4*ffmcfmb*hbcm+fmb-fmc+hbcm
2245 . )+8*(p3p7*p2p3)*(4*ffmcfmb*hbcm-fmb+fmc-hbcm)+8*p3p7*(-ffmcfmb
2246 . **2*hbcm3-ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3+fmc*hbcm2-3*fmc2*
2247 . hbcm)+16*(ffmcfmb*hbcm*p1p3*p3p7-2*ffmcfmb*hbcm*p3p5*p3p7+2*
2248 . hbcm*p1p3*p4p7+hbcm*p1p4*p3p7+hbcm*p2p3*p4p7-hbcm*p2p3*p5p7+2*
2249 . hbcm*p2p4*p3p7+2*hbcm*p3p4*p5p7-3*hbcm*p3p5*p4p7))+(8*p3p7*(-2
2250 . *fb1*hbcm-2*fb2*fmb+2*fb2*fmc+hbcm)-32*fb1*hbcm*p5p7))
2251 b(12)=ans
2252 b(13)=ccc*(w7*(4*p2p3*(4*ffmcfmb*hbcm-fmb+fmc)+4*(-2*ffmcfmb**2
2253 . *hbcm3+ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm+3*fmc2
2254 . *hbcm))+w13*(4*p1p3*(-4*ffmcfmb*hbcm+fmb-fmc+4*hbcm)+4*(-2*
2255 . ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2+4*ffmcfmb
2256 . *hbcm3-fmb*fmc*hbcm-fmb*hbcm2+3*fmb2*hbcm+fmc*hbcm2-2*hbcm3))+
2257 . w11*(4*p3p4*(-4*ffmcfmb*hbcm+fmb-fmc-2*hbcm)+4*p2p3*(4*ffmcfmb
2258 . *hbcm-fmb+fmc)+4*(-2*ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2-
2259 . ffmcfmb*fmc*hbcm2-4*fmc2*hbcm+2*hbcm*p1p4+6*hbcm*p2p4))+8*(-
2260 . fb2*fmb+fb2*fmc+hbcm))
2261 b(14)=ccc*(w7*((p3p7*p2p3)*(8*ffmcfmb-16)+24*p5p7*(ffmcfmb*
2262 . hbcm2-fmc*hbcm)+8*p3p7*(-ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm+2*
2263 . ffmcfmb*fmc*hbcm+2*ffmcfmb*hbcm2-2*fmc*hbcm)-24*p2p3*p5p7)+w13
2264 . *((p3p7*p1p3)*(-8*ffmcfmb+16)+24*p5p7*(ffmcfmb*hbcm2+fmb*hbcm-
2265 . hbcm2)+8*p3p7*(-ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm+3*ffmcfmb*
2266 . hbcm2+2*fmb*hbcm-2*hbcm2)+24*p1p3*p5p7)+w11*(8*p4p7*(fmb*hbcm+
2267 . fmc*hbcm)+(p3p7*p3p4)*(-8*ffmcfmb+16)+(p3p7*p2p3)*(8*ffmcfmb-
2268 . 16)+8*p5p7*(3*ffmcfmb*hbcm2+fmc*hbcm)+8*p3p7*(-ffmcfmb**2*
2269 . hbcm2+ffmcfmb*fmb*hbcm+2*ffmcfmb*hbcm2+fmc*hbcm)+24*(-p2p3*
2270 . p5p7+p3p4*p5p7))+(p3p7*(16*fb2*ffmcfmb-32*fb2+4)-48*fb2*p5p7))
2271 ans3=w11*(16*(p4p7*p3p6)*(-fmb*hbcm-fmc*hbcm-hbcm2)+16*(p4p6*
2272 . p3p7)*(2*ffmcfmb*hbcm2+fmc*hbcm-hbcm2)+16*(p5p7*p3p6)*(-2*
2273 . ffmcfmb*hbcm2-fmc*hbcm)+8*(p6p7*p3p4)*(-4*ffmcfmb*hbcm2+fmb*
2274 . hbcm-fmc*hbcm)+8*(p6p7*p2p3)*(2*ffmcfmb*hbcm2-fmb*hbcm+fmc*
2275 . hbcm+2*hbcm2)+8*p6p7*(ffmcfmb*fmb*hbcm3-ffmcfmb*fmc*hbcm3-2*
2276 . ffmcfmb*hbcm4+2*fmc2*hbcm2-2*p2p3s2-4*p3p4s2)+16*(p3p7*p3p6)*(
2277 . ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm-ffmcfmb*
2278 . hbcm2-fmc*hbcm)+16*(ffmcfmb*hbcm2*p1p3*p6p7-hbcm2*p1p4*p6p7-
2279 . hbcm2*p2p4*p6p7-2*hbcm2*p4p6*p4p7-hbcm2*p4p6*p5p7-p1p3*p2p3*
2280 . p6p7+p1p3*p3p4*p6p7+3*p2p3*p3p4*p6p7+2*p2p3*p3p6*p5p7-2*p2p3*
2281 . p3p7*p4p6-2*p3p4*p3p6*p5p7+2*p3p4*p3p7*p4p6))+(16*p6p7*(-fb1*
2282 . fmb*hbcm-fb1*fmc*hbcm+2*fb2*hbcm2)+32*(-fb2*p1p3*p6p7-fb2*p2p3
2283 . *p6p7+2*fb2*p3p4*p6p7+2*fb2*p3p6*p5p7-2*fb2*p3p7*p4p6))
2284 ans2=w13*(32*(p4p6*p3p7)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(
2285 . p5p7*p3p6)*(-ffmcfmb*hbcm2-2*fmb*hbcm+hbcm2)+32*(p6p7*p3p4)*(-
2286 . ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(p6p7*p2p3)*(ffmcfmb*hbcm2+
2287 . fmb*hbcm-hbcm2)+8*(p6p7*p1p3)*(2*ffmcfmb*hbcm2+fmb*hbcm-fmc*
2288 . hbcm-4*hbcm2)+8*p6p7*(-ffmcfmb*fmb*hbcm3-ffmcfmb*fmc*hbcm3-2*
2289 . ffmcfmb*hbcm4-fmb*fmc*hbcm2-fmb*hbcm3-fmb2*hbcm2+fmc*hbcm3+2*
2290 . hbcm4+2*p1p3s2)+16*(p3p7*p3p6)*(ffmcfmb**2*hbcm2+ffmcfmb*fmb*
2291 . hbcm+ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2-fmb*hbcm-fmc*hbcm)+16*(
2292 . p1p3*p2p3*p6p7-2*p1p3*p3p4*p6p7-2*p1p3*p3p6*p5p7+2*p1p3*p3p7*
2293 . p4p6))+ans3
2294 ans1=w7*(16*(p4p6*p3p7)*(ffmcfmb*hbcm2-2*fmc*hbcm)+32*(p5p7*
2295 . p3p6)*(-ffmcfmb*hbcm2+fmc*hbcm)+32*(p6p7*p3p4)*(-ffmcfmb*hbcm2
2296 . +fmc*hbcm)+8*(p6p7*p2p3)*(2*ffmcfmb*hbcm2-fmb*hbcm-3*fmc*hbcm+
2297 . 2*hbcm2)+16*(p6p7*p1p3)*(ffmcfmb*hbcm2-fmc*hbcm)+8*p6p7*(
2298 . ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*hbcm3-2*ffmcfmb*hbcm4-fmb*fmc*
2299 . hbcm2+2*fmc*hbcm3-fmc2*hbcm2-2*p2p3s2)+16*(p3p7*p3p6)*(ffmcfmb
2300 . **2*hbcm2-ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2)+16*
2301 . (-p1p3*p2p3*p6p7+2*p2p3*p3p4*p6p7+2*p2p3*p3p6*p5p7-2*p2p3*p3p7
2302 . *p4p6))+ans2
2303 ans=ccc*ans1
2304 b(15)=ans
2305 ans=ccc*(w7*(8*(p6p7*p2p3)*(-2*ffmcfmb*hbcm+fmb-fmc)+8*p6p7*(
2306 . ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+fmb*fmc*
2307 . hbcm-2*fmc2*hbcm)+16*(-ffmcfmb*hbcm*p3p6*p3p7-2*ffmcfmb*hbcm*
2308 . p3p7*p4p6))+w13*(32*(p5p7*p3p6)*(ffmcfmb*hbcm-hbcm)+16*(p3p7*
2309 . p3p6)*(ffmcfmb*hbcm-hbcm)+8*(p6p7*p1p3)*(2*ffmcfmb*hbcm-fmb+
2310 . fmc-2*hbcm)+8*p6p7*(ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb
2311 . *fmc*hbcm2-2*ffmcfmb*hbcm3+fmb*fmc*hbcm+fmb*hbcm2-2*fmb2*hbcm-
2312 . fmc*hbcm2+hbcm3))+w11*(16*(p4p6*p3p7)*(-ffmcfmb*hbcm-hbcm)+16*
2313 . (p4p7*p3p6)*(-ffmcfmb*hbcm-hbcm)+8*(p6p7*p3p4)*(2*ffmcfmb*hbcm
2314 . -fmb+fmc+2*hbcm)+8*(p6p7*p2p3)*(-2*ffmcfmb*hbcm+fmb-fmc)+8*
2315 . p6p7*(ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+3*
2316 . fmc2*hbcm)+16*(-ffmcfmb*hbcm*p3p6*p3p7-hbcm*p1p4*p6p7-2*hbcm*
2317 . p2p4*p6p7-3*hbcm*p4p6*p4p7-hbcm*p4p6*p5p7))+8*p6p7*(2*fb2*fmb-
2318 . 2*fb2*fmc-hbcm))
2319 b(16)=ans
2320 do 200 n=1,16
2321 c(n,1)=c(n,1)-0.09090909090909091d0*b(n)
2322 c(n,2)=c(n,2)-0.1680909685530997d0*b(n)
2323 c(n,3)=c(n,3)-0.2077659977796572d0*b(n)
2324 200 continue
2325 return
2326 end
2327
2328 subroutine amp1s1_3p0(cc)
2329 implicit double precision(a-h,o-z)
2330 implicit integer (i-n)
2331 dimension b(6)
2332 #include "inclcon.h"
2333 #include "inclppp.h"
2334 #include "inclamp.h"
2335 do 100 n=1,6
2336 b(n)=0.0d0
2337 100 continue
2338 ccc=cc/((ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*p3p5+fmb2+
2339 . hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2))
2340 b(1)=ccc*(4*w1*(fmc*hbcm2*p6p7-hbcm*p3p4*p6p7)+4*w2*(fmb*hbcm2*
2341 . p6p7-hbcm*p3p5*p6p7+2*hbcm*p3p6*p5p7+2*hbcm*p3p7*p5p6)-24*fb1*
2342 . hbcm*p6p7)
2343 b(2)=4*ccc*(hbcm*p4p7*w1-hbcm*p5p7*w2)
2344 b(3)=4*ccc*(hbcm*p4p6*w1-hbcm*p5p6*w2)
2345 b(4)=ccc*(4*w1*(fmc*hbcm*p6p7-p3p4*p6p7)+4*w2*(-fmb*hbcm*p6p7+
2346 . p3p5*p6p7)+8*fb2*p6p7)
2347 b(5)=ccc*(4*w1*(-fmc*hbcm*p3p7+hbcm2*p4p7-p3p4*p3p7)+4*w2*(fmb*
2348 . hbcm*p3p7-hbcm2*p5p7+p3p5*p3p7)+8*fb2*p3p7)
2349 b(6)=ccc*(4*w1*(-fmc*hbcm*p3p6+hbcm2*p4p6-p3p4*p3p6)+4*w2*(fmb*
2350 . hbcm*p3p6-hbcm2*p5p6+p3p5*p3p6)+8*fb2*p3p6)
2351 do 200 n=1,6
2352 c(n,1)=c(n,1)+1.0d0*b(n)
2353 200 continue
2354 return
2355 end
2356
2357 subroutine amp27_3p0(cc)
2358 implicit double precision(a-h,o-z)
2359 implicit integer (i-n)
2360 dimension b(16)
2361 #include "inclcon.h"
2362 #include "inclppp.h"
2363 #include "inclamp.h"
2364 do 100 n=1,16
2365 b(n)=0.0d0
2366 100 continue
2367 ccc=cc/((-2*p2p5)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2)*(
2368 . ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2+2*ffmcfmb*p2p3-2*ffmcfmb*p3p5
2369 . +fmb2+hbcm2-2*p2p3-2*p2p5+2*p3p5))
2370 ans=ccc*(w1*(8*(p5p7*p4p6)*(ffmcfmb*hbcm3-fmb*hbcm2-hbcm3)+8*(
2371 . p5p7*p3p6*p3p4)*(-ffmcfmb*hbcm+fmb-2*fmc-2*hbcm)+8*(p5p7*p3p6)
2372 . *(ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm-3*fmc*hbcm2-2*fmc2*hbcm)+8*(2
2373 . *hbcm*p1p3*p4p6*p5p7+2*hbcm*p2p3*p4p6*p5p7-hbcm*p3p4*p4p6*p5p7
2374 . +hbcm*p3p4*p5p6*p5p7-2*hbcm*p3p5*p4p6*p5p7))+w16*(8*(p5p7*p5p6
2375 . )*(ffmcfmb*hbcm3-2*fmb*hbcm2+fmc*hbcm2-2*hbcm3)+8*(p5p7*p3p6*
2376 . p3p5)*(ffmcfmb*hbcm-fmb+2*fmc-2*hbcm)+8*(p5p7*p3p6*p2p3)*(-
2377 . ffmcfmb*hbcm+fmb-2*fmc+2*hbcm)+8*(p5p7*p3p6)*(ffmcfmb*fmb*
2378 . hbcm2+2*fmb*fmc*hbcm-3*fmb*hbcm2-fmb2*hbcm)+8*(-2*fmb*hbcm2*
2379 . p4p6*p5p7-2*hbcm*p1p2*p3p6*p5p7+2*hbcm*p1p5*p3p6*p5p7+3*hbcm*
2380 . p2p3*p4p6*p5p7+3*hbcm*p2p3*p5p6*p5p7-2*hbcm*p2p4*p3p6*p5p7+2*
2381 . hbcm*p2p5*p3p6*p5p7-3*hbcm*p3p5*p4p6*p5p7-3*hbcm*p3p5*p5p6*
2382 . p5p7+2*hbcm*p3p6*p4p5*p5p7))+(4*(p5p7*p3p6)*(-12*fb1*ffmcfmb*
2383 . hbcm+16*fb1*hbcm-4*fb2*fmb+8*fb2*fmc+3*hbcm)+16*(fb1*hbcm*p4p6
2384 . *p5p7+fb1*hbcm*p5p6*p5p7)))
2385 b(1)=ans
2386 b(2)=ccc*(w1*(12*p5p7*(-fmb*fmc*hbcm+fmc*hbcm2+fmc2*hbcm)+4*(
2387 . p5p7*p3p4)*(2*ffmcfmb*hbcm-3*fmb+3*fmc+hbcm)+8*(-hbcm*p1p4*
2388 . p5p7+hbcm*p2p4*p5p7-hbcm*p4p5*p5p7))+w16*(12*p5p7*(-fmb*fmc*
2389 . hbcm+fmb*hbcm2+fmb2*hbcm)+4*(p5p7*p3p5)*(-2*ffmcfmb*hbcm+3*fmb
2390 . -3*fmc+3*hbcm)+4*(p5p7*p2p3)*(2*ffmcfmb*hbcm-3*fmb+3*fmc-3*
2391 . hbcm)+8*(hbcm*p1p2*p5p7-hbcm*p1p5*p5p7+hbcm*p2p4*p5p7-3*hbcm*
2392 . p2p5*p5p7-hbcm*p4p5*p5p7))+12*p5p7*(-2*fb1*hbcm+2*fb2*fmb-2*
2393 . fb2*fmc-hbcm))
2394 b(3)=ccc*(8*w16*(-hbcm*p2p5*p3p6-3*hbcm*p2p5*p4p6-hbcm*p2p5*
2395 . p5p6)-8*hbcm*p2p5*p4p6*w1)
2396 b(4)=ccc*(w16*((p5p7*p3p6*p3p5)*(16*ffmcfmb-16)+(p5p7*p3p6*p2p3
2397 . )*(-16*ffmcfmb+16)+8*(p5p7*p5p6)*(-ffmcfmb*hbcm2-fmb*hbcm-fmc*
2398 . hbcm+2*hbcm2)+8*(-fmb*hbcm*p3p6*p5p7-3*fmb*hbcm*p4p6*p5p7+2*
2399 . p2p3*p4p6*p5p7-2*p3p5*p4p6*p5p7))+w1*((p5p7*p3p6*p3p4)*(-16*
2400 . ffmcfmb+16)+8*(p5p7*p4p6)*(ffmcfmb*hbcm2-fmb*hbcm+fmc*hbcm+
2401 . hbcm2)+8*(fmc*hbcm*p3p6*p5p7-fmc*hbcm*p5p6*p5p7+2*p3p4*p4p6*
2402 . p5p7))+((p5p7*p3p6)*(32*fb2*ffmcfmb-32*fb2+8)-32*fb2*p4p6*p5p7
2403 . ))
2404 ans=ccc*(w1*(4*(p5p7*p3p4)*(3*fmb*hbcm+fmc*hbcm+hbcm2)+4*p5p7*(
2405 . -2*ffmcfmb*fmc*hbcm3+3*fmb*fmc*hbcm2+3*fmc*hbcm3+3*fmc2*hbcm2-
2406 . 2*p3p4s2)+8*(-fmc*hbcm*p1p3*p5p7-3*fmc*hbcm*p2p3*p5p7+3*fmc*
2407 . hbcm*p3p5*p5p7-hbcm2*p1p4*p5p7+hbcm2*p2p4*p5p7-hbcm2*p4p5*p5p7
2408 . -p1p3*p3p4*p5p7-3*p2p3*p3p4*p5p7+3*p3p4*p3p5*p5p7))+w16*(12*(
2409 . p5p7*p3p5)*(-fmb*hbcm+fmc*hbcm-hbcm2)+12*(p5p7*p2p3)*(fmb*hbcm
2410 . -fmc*hbcm+hbcm2)+4*p5p7*(2*ffmcfmb*fmb*hbcm3+3*fmb*fmc*hbcm2-3
2411 . *fmb*hbcm3+3*fmb2*hbcm2-6*p2p3s2-6*p3p5s2)+8*(fmb*hbcm*p1p3*
2412 . p5p7+fmb*hbcm*p3p4*p5p7+hbcm2*p1p2*p5p7-hbcm2*p1p5*p5p7+hbcm2*
2413 . p2p4*p5p7-3*hbcm2*p2p5*p5p7-hbcm2*p4p5*p5p7-p1p3*p2p3*p5p7+
2414 . p1p3*p3p5*p5p7-p2p3*p3p4*p5p7+6*p2p3*p3p5*p5p7+p3p4*p3p5*p5p7)
2415 . )+(4*p5p7*(-6*fb1*fmb*hbcm-6*fb1*fmc*hbcm+4*fb2*ffmcfmb*hbcm2-
2416 . 6*fb2*hbcm2-5*hbcm2)+16*(fb2*p1p3*p5p7+3*fb2*p2p3*p5p7+fb2*
2417 . p3p4*p5p7-3*fb2*p3p5*p5p7)))
2418 b(5)=ans
2419 b(6)=ccc*(8*w1*(-2*fmc*hbcm*p2p5*p3p6-hbcm2*p2p5*p4p6-2*p2p5*
2420 . p3p4*p3p6)+w16*(8*(p3p6*p2p5)*(ffmcfmb*hbcm2-fmc*hbcm)+16*(-
2421 . hbcm2*p2p5*p4p6-hbcm2*p2p5*p5p6-p2p3*p2p5*p3p6+p2p5*p3p5*p3p6)
2422 . )+32*fb2*p2p5*p3p6)
2423 b(7)=ccc*(w16*(12*p2p5*(fmc*hbcm-hbcm2)+12*(p2p3*p2p5-p2p5*p3p5
2424 . ))+12*w1*(fmc*hbcm*p2p5+p2p5*p3p4)-24*fb2*p2p5)
2425 b(8)=ccc*(12*w1*(fmc*hbcm2*p2p5+hbcm*p2p5*p3p4)+w16*(4*p2p5*(2*
2426 . ffmcfmb*hbcm3+3*fmc*hbcm2-3*hbcm3)+4*(2*hbcm*p1p3*p2p5+3*hbcm*
2427 . p2p3*p2p5+2*hbcm*p2p5*p3p4-3*hbcm*p2p5*p3p5))-24*fb1*hbcm*p2p5
2428 . )
2429 b(9)=ccc*(w1*(4*p4p6*(-ffmcfmb*hbcm3+fmb*hbcm2+hbcm3)+4*(p3p6*
2430 . p3p4)*(-ffmcfmb*hbcm+2*fmb-fmc+hbcm)+4*p3p6*(-ffmcfmb*fmc*
2431 . hbcm2+2*fmb*fmc*hbcm-fmc2*hbcm)+4*(-2*hbcm*p1p3*p4p6+2*hbcm*
2432 . p1p4*p3p6-2*hbcm*p2p3*p4p6-2*hbcm*p2p4*p3p6+hbcm*p3p4*p4p6-
2433 . hbcm*p3p4*p5p6+2*hbcm*p3p5*p4p6+2*hbcm*p3p6*p4p5))+w16*(4*p5p6
2434 . *(-ffmcfmb*hbcm3+2*fmb*hbcm2-fmc*hbcm2+2*hbcm3)+4*(p3p6*p3p5)*
2435 . (ffmcfmb*hbcm-2*fmb+fmc-hbcm)+4*(p3p6*p2p3)*(-ffmcfmb*hbcm+2*
2436 . fmb-fmc+hbcm)+4*p3p6*(-ffmcfmb*fmb*hbcm2+fmb*fmc*hbcm-2*fmb2*
2437 . hbcm)+4*(2*fmb*hbcm2*p4p6-3*hbcm*p2p3*p4p6-3*hbcm*p2p3*p5p6+4*
2438 . hbcm*p2p5*p3p6+3*hbcm*p3p5*p4p6+3*hbcm*p3p5*p5p6))+(2*p3p6*(12
2439 . *fb1*ffmcfmb*hbcm-4*fb1*hbcm-8*fb2*fmb+4*fb2*fmc+3*hbcm)+8*(-
2440 . fb1*hbcm*p4p6-fb1*hbcm*p5p6)))
2441 b(10)=ccc*(w16*((p3p6*p3p5)*(-8*ffmcfmb+8)+(p3p6*p2p3)*(8*
2442 . ffmcfmb-8)+4*p5p6*(ffmcfmb*hbcm2+fmb*hbcm+fmc*hbcm-2*hbcm2)+4*
2443 . (fmb*hbcm*p3p6+3*fmb*hbcm*p4p6-2*p2p3*p4p6+2*p3p5*p4p6))+w1*((
2444 . p3p6*p3p4)*(8*ffmcfmb-8)+4*p4p6*(-ffmcfmb*hbcm2+fmb*hbcm-fmc*
2445 . hbcm-hbcm2)+4*(-fmc*hbcm*p3p6+fmc*hbcm*p5p6-2*p3p4*p4p6))+(
2446 . p3p6*(-16*fb2*ffmcfmb+16*fb2-4)+16*fb2*p4p6))
2447 b(11)=ccc*(w1*(2*p3p4*(-3*fmb*hbcm-fmc*hbcm-hbcm2)+2*(2*ffmcfmb
2448 . *fmc*hbcm3-3*fmb*fmc*hbcm2+2*fmc*hbcm*p1p3+6*fmc*hbcm*p2p3-6*
2449 . fmc*hbcm*p3p5-3*fmc*hbcm3-3*fmc2*hbcm2+2*hbcm2*p1p4-2*hbcm2*
2450 . p2p4+2*hbcm2*p4p5+2*p1p3*p3p4+6*p2p3*p3p4-6*p3p4*p3p5+2*p3p4s2
2451 . ))+w16*(6*p3p5*(fmb*hbcm-fmc*hbcm+hbcm2)+6*p2p3*(-fmb*hbcm+fmc
2452 . *hbcm-hbcm2)+2*(-2*ffmcfmb*fmb*hbcm3-3*fmb*fmc*hbcm2-2*fmb*
2453 . hbcm*p1p3-2*fmb*hbcm*p3p4+3*fmb*hbcm3-3*fmb2*hbcm2-2*hbcm2*
2454 . p1p2+2*hbcm2*p1p5-2*hbcm2*p2p4+6*hbcm2*p2p5+2*hbcm2*p4p5+2*
2455 . p1p3*p2p3-2*p1p3*p3p5+2*p2p3*p3p4-12*p2p3*p3p5+6*p2p3s2-2*p3p4
2456 . *p3p5+6*p3p5s2))+2*(6*fb1*fmb*hbcm+6*fb1*fmc*hbcm-4*fb2*
2457 . ffmcfmb*hbcm2+6*fb2*hbcm2-4*fb2*p1p3-12*fb2*p2p3-4*fb2*p3p4+12
2458 . *fb2*p3p5+5*hbcm2))
2459 b(13)=ccc*(w1*(2*p3p4*(2*ffmcfmb*hbcm-3*fmb+3*fmc+hbcm)+2*(-3*
2460 . fmb*fmc*hbcm+3*fmc*hbcm2+3*fmc2*hbcm-2*hbcm*p1p4+2*hbcm*p2p4-2
2461 . *hbcm*p4p5))+w16*(2*p3p5*(-2*ffmcfmb*hbcm+3*fmb-3*fmc+3*hbcm)+
2462 . 2*p2p3*(2*ffmcfmb*hbcm-3*fmb+3*fmc-3*hbcm)+2*(-3*fmb*fmc*hbcm+
2463 . 3*fmb*hbcm2+3*fmb2*hbcm+2*hbcm*p1p2-2*hbcm*p1p5+2*hbcm*p2p4-6*
2464 . hbcm*p2p5-2*hbcm*p4p5))+6*(-2*fb1*hbcm+2*fb2*fmb-2*fb2*fmc-
2465 . hbcm))
2466 do 200 n=1,16
2467 c(n,2)=c(n,2)-0.8320502943378437d0*b(n)
2468 c(n,3)=c(n,3)+0.1869893980016914d0*b(n)
2469 200 continue
2470 return
2471 end
2472
2473 subroutine amp26_3p0(cc)
2474 implicit double precision(a-h,o-z)
2475 implicit integer (i-n)
2476 dimension b(16)
2477 #include "inclcon.h"
2478 #include "inclppp.h"
2479 #include "inclamp.h"
2480 do 100 n=1,16
2481 b(n)=0.0d0
2482 100 continue
2483 ccc=cc/((-2*p2p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*
2484 . p3p5+fmb2+hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p2p3+2*
2485 . ffmcfmb*p3p4+fmc2-2*p2p4))
2486 ans2=w2*(8*(p6p7*p2p3)*(3*fmb*fmc*hbcm-fmb*hbcm2-3*fmb2*hbcm)+8
2487 . *(p5p6*p4p7)*(ffmcfmb*hbcm3-2*fmb*hbcm2+fmc*hbcm2-2*hbcm3)+8*(
2488 . p4p7*p3p6*p3p5)*(ffmcfmb*hbcm-fmb+2*fmc-2*hbcm)+8*(p6p7*p3p5*
2489 . p2p3)*(2*ffmcfmb*hbcm-3*fmb+3*fmc-hbcm)+8*(p4p7*p3p6)*(ffmcfmb
2490 . *fmb*hbcm2+2*fmb*fmc*hbcm-3*fmb*hbcm2-fmb2*hbcm)+8*(-2*fmb*
2491 . hbcm2*p1p2*p6p7-fmb*hbcm2*p2p4*p6p7+2*fmb*hbcm2*p2p5*p6p7-2*
2492 . fmb*hbcm2*p4p6*p4p7-2*hbcm*p1p2*p3p5*p6p7+2*hbcm*p1p2*p3p7*
2493 . p5p6+2*hbcm*p1p5*p2p3*p6p7+2*hbcm*p1p5*p3p6*p4p7-2*hbcm*p2p3*
2494 . p2p5*p6p7+2*hbcm*p2p3*p4p5*p6p7+2*hbcm*p2p3*p4p7*p5p6+2*hbcm*
2495 . p2p3*p5p6*p5p7-hbcm*p2p4*p3p5*p6p7+2*hbcm*p2p5*p3p5*p6p7-2*
2496 . hbcm*p2p5*p3p6*p4p7-2*hbcm*p2p5*p3p7*p5p6-3*hbcm*p3p5*p4p6*
2497 . p4p7-3*hbcm*p3p5*p4p7*p5p6+2*hbcm*p3p6*p4p5*p4p7))+(8*(p6p7*
2498 . p2p3)*(2*fb1*hbcm-6*fb2*fmb+6*fb2*fmc+3*hbcm)+4*(p4p7*p3p6)*(-
2499 . 12*fb1*ffmcfmb*hbcm+16*fb1*hbcm-4*fb2*fmb+8*fb2*fmc+3*hbcm)+16
2500 . *(2*fb1*hbcm*p1p2*p6p7+fb1*hbcm*p2p4*p6p7-2*fb1*hbcm*p2p5*p6p7
2501 . +fb1*hbcm*p4p6*p4p7+fb1*hbcm*p4p7*p5p6))
2502 ans1=w11*(8*(p6p7*p2p3)*(3*fmb*fmc*hbcm-fmc*hbcm2-3*fmc2*hbcm)+
2503 . 8*(p4p7*p4p6)*(ffmcfmb*hbcm3-fmb*hbcm2-hbcm3)+8*(p6p7*p2p4)*(2
2504 . *ffmcfmb*hbcm3-3*fmb*hbcm2+2*fmc*hbcm2-3*hbcm3)+8*(p4p7*p3p6*
2505 . p3p4)*(-ffmcfmb*hbcm+fmb-2*fmc-2*hbcm)+8*p6p7*(2*ffmcfmb*hbcm*
2506 . p2p3s2-3*fmb*p2p3s2+3*fmc*p2p3s2-hbcm*p2p3s2)+8*(p4p7*p3p6*
2507 . p2p3)*(ffmcfmb*hbcm-fmb+2*fmc+2*hbcm)+8*(p6p7*p3p4*p2p3)*(-2*
2508 . ffmcfmb*hbcm+3*fmb-3*fmc+hbcm)+8*(p4p7*p3p6)*(ffmcfmb*fmc*
2509 . hbcm2+fmb*fmc*hbcm-3*fmc*hbcm2-2*fmc2*hbcm)+8*(-2*fmc*hbcm2*
2510 . p1p2*p6p7+2*fmc*hbcm2*p2p5*p6p7-2*hbcm*p1p2*p3p4*p6p7+2*hbcm*
2511 . p1p2*p3p7*p4p6+2*hbcm*p1p3*p2p4*p6p7+2*hbcm*p1p3*p4p6*p4p7+2*
2512 . hbcm*p1p4*p2p3*p6p7+5*hbcm*p2p3*p2p4*p6p7-4*hbcm*p2p3*p2p5*
2513 . p6p7+2*hbcm*p2p3*p4p5*p6p7+3*hbcm*p2p3*p4p6*p4p7+2*hbcm*p2p3*
2514 . p4p6*p5p7-hbcm*p2p3*p4p7*p5p6+hbcm*p2p4*p3p4*p6p7-6*hbcm*p2p4*
2515 . p3p5*p6p7-4*hbcm*p2p4*p3p6*p3p7+2*hbcm*p2p4*p3p6*p4p7-2*hbcm*
2516 . p2p4*p3p6*p5p7-4*hbcm*p2p4*p3p7*p4p6+2*hbcm*p2p4*p3p7*p5p6+2*
2517 . hbcm*p2p5*p3p4*p6p7-2*hbcm*p2p5*p3p7*p4p6-hbcm*p3p4*p4p6*p4p7+
2518 . hbcm*p3p4*p4p7*p5p6-2*hbcm*p3p5*p4p6*p4p7))+ans2
2519 ans=ccc*ans1
2520 b(1)=ans
2521 b(2)=ccc*(w2*(12*p4p7*(-fmb*fmc*hbcm+fmb*hbcm2+fmb2*hbcm)+4*(
2522 . p4p7*p3p5)*(-2*ffmcfmb*hbcm+3*fmb-3*fmc+3*hbcm)+8*(-hbcm*p1p5*
2523 . p4p7+hbcm*p2p5*p4p7-hbcm*p4p5*p4p7))+w11*(12*p4p7*(-fmb*fmc*
2524 . hbcm+fmc*hbcm2+fmc2*hbcm)+4*(p4p7*p3p4)*(2*ffmcfmb*hbcm-3*fmb+
2525 . 3*fmc+hbcm)+4*(p4p7*p2p3)*(-2*ffmcfmb*hbcm+3*fmb-3*fmc-hbcm)+8
2526 . *(hbcm*p1p2*p4p7-hbcm*p1p4*p4p7+2*hbcm*p2p4*p3p7-hbcm*p2p4*
2527 . p4p7+2*hbcm*p2p4*p5p7+hbcm*p2p5*p4p7-hbcm*p4p5*p4p7))+12*p4p7*
2528 . (-2*fb1*hbcm+2*fb2*fmb-2*fb2*fmc-hbcm))
2529 b(3)=ccc*(8*w2*(-hbcm*p1p2*p5p6+hbcm*p2p3*p5p6+hbcm*p2p5*p5p6)+
2530 . 8*w11*(-hbcm*p1p2*p4p6+hbcm*p2p3*p4p6+hbcm*p2p4*p3p6+2*hbcm*
2531 . p2p4*p4p6-hbcm*p2p4*p5p6+hbcm*p2p5*p4p6))
2532 b(4)=ccc*(w2*((p4p7*p3p6*p3p5)*(16*ffmcfmb-16)+8*(p5p6*p4p7)*(-
2533 . ffmcfmb*hbcm2-fmb*hbcm-fmc*hbcm+2*hbcm2)+8*(-3*fmb*hbcm*p2p4*
2534 . p6p7-fmb*hbcm*p3p6*p4p7-3*fmb*hbcm*p4p6*p4p7-3*p2p4*p3p5*p6p7-
2535 . 2*p3p5*p4p6*p4p7))+w11*(24*(p6p7*p2p4)*(-fmb*hbcm+hbcm2)+(p4p7
2536 . *p3p6*p3p4)*(-16*ffmcfmb+16)+(p4p7*p3p6*p2p3)*(16*ffmcfmb-16)+
2537 . 8*(p4p7*p4p6)*(ffmcfmb*hbcm2-fmb*hbcm+fmc*hbcm+hbcm2)+8*(fmc*
2538 . hbcm*p3p6*p4p7-fmc*hbcm*p4p7*p5p6-3*p2p3*p2p4*p6p7-2*p2p3*p4p6
2539 . *p4p7+3*p2p4*p3p4*p6p7+2*p3p4*p4p6*p4p7))+((p4p7*p3p6)*(32*fb2
2540 . *ffmcfmb-32*fb2+8)+16*(-3*fb2*p2p4*p6p7-2*fb2*p4p6*p4p7)))
2541 ans2=w2*(12*(p4p7*p3p5)*(-fmb*hbcm+fmc*hbcm-hbcm2)+4*p4p7*(2*
2542 . ffmcfmb*fmb*hbcm3+3*fmb*fmc*hbcm2-3*fmb*hbcm3+3*fmb2*hbcm2-6*
2543 . p3p5s2)+8*(2*fmb*hbcm*p1p2*p3p7+fmb*hbcm*p1p3*p4p7+fmb*hbcm*
2544 . p2p3*p4p7+2*fmb*hbcm*p2p3*p5p7+fmb*hbcm*p2p4*p3p7-2*fmb*hbcm*
2545 . p2p5*p3p7+fmb*hbcm*p3p4*p4p7-hbcm2*p1p5*p4p7+hbcm2*p2p5*p4p7-
2546 . hbcm2*p4p5*p4p7+2*p1p2*p3p5*p3p7+p1p3*p3p5*p4p7+p2p3*p3p5*p4p7
2547 . +2*p2p3*p3p5*p5p7+p2p4*p3p5*p3p7-2*p2p5*p3p5*p3p7+p3p4*p3p5*
2548 . p4p7))+(4*p4p7*(-6*fb1*fmb*hbcm-6*fb1*fmc*hbcm+4*fb2*ffmcfmb*
2549 . hbcm2-6*fb2*hbcm2-5*hbcm2)+16*(2*fb2*p1p2*p3p7+fb2*p1p3*p4p7+
2550 . fb2*p2p3*p4p7+2*fb2*p2p3*p5p7+fb2*p2p4*p3p7-2*fb2*p2p5*p3p7+
2551 . fb2*p3p4*p4p7-3*fb2*p3p5*p4p7))
2552 ans1=w11*(4*(p4p7*p3p4)*(3*fmb*hbcm+fmc*hbcm+hbcm2)+8*(p3p7*
2553 . p2p4)*(3*fmb*hbcm+2*fmc*hbcm-hbcm2)+4*(p4p7*p2p3)*(-3*fmb*hbcm
2554 . -5*fmc*hbcm-hbcm2)+4*p4p7*(-2*ffmcfmb*fmc*hbcm3+3*fmb*fmc*
2555 . hbcm2+3*fmc*hbcm3+3*fmc2*hbcm2+2*p2p3s2-2*p3p4s2)+8*(-2*fmc*
2556 . hbcm*p1p2*p3p7-fmc*hbcm*p1p3*p4p7-2*fmc*hbcm*p2p3*p5p7+2*fmc*
2557 . hbcm*p2p5*p3p7+3*fmc*hbcm*p3p5*p4p7+hbcm2*p1p2*p4p7-hbcm2*p1p4
2558 . *p4p7-hbcm2*p2p4*p4p7+2*hbcm2*p2p4*p5p7+hbcm2*p2p5*p4p7-hbcm2*
2559 . p4p5*p4p7+2*p1p2*p2p3*p3p7-2*p1p2*p3p4*p3p7+p1p3*p2p3*p4p7-
2560 . p1p3*p3p4*p4p7+p2p3*p2p4*p3p7-2*p2p3*p2p5*p3p7-2*p2p3*p3p4*
2561 . p5p7-3*p2p3*p3p5*p4p7+2*p2p3s2*p5p7-p2p4*p3p4*p3p7+2*p2p5*p3p4
2562 . *p3p7+3*p3p4*p3p5*p4p7))+ans2
2563 ans=ccc*ans1
2564 b(5)=ans
2565 b(6)=ccc*(w2*((p3p6*p3p5*p2p3)*(-16*ffmcfmb+8)+8*(p5p6*p2p3)*(
2566 . ffmcfmb*hbcm2+fmb*hbcm+fmc*hbcm-hbcm2)+8*(fmb*hbcm*p1p2*p3p6+3
2567 . *fmb*hbcm*p2p3*p4p6-fmb*hbcm*p2p5*p3p6-hbcm2*p1p2*p5p6+hbcm2*
2568 . p2p5*p5p6+p1p2*p3p5*p3p6+2*p2p3*p3p5*p4p6-p2p5*p3p5*p3p6))+w11
2569 . *(8*p3p6*(-2*ffmcfmb*p2p3s2+p2p3s2)+(p3p6*p3p4*p2p3)*(16*
2570 . ffmcfmb-8)+8*(p3p6*p2p4)*(-ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm)+
2571 . 8*(p4p6*p2p3)*(-ffmcfmb*hbcm2+fmb*hbcm-fmc*hbcm)+8*(-fmc*hbcm*
2572 . p1p2*p3p6+fmc*hbcm*p2p3*p5p6+fmc*hbcm*p2p5*p3p6-hbcm2*p1p2*
2573 . p4p6+hbcm2*p2p4*p4p6+hbcm2*p2p5*p4p6+p1p2*p2p3*p3p6-p1p2*p3p4*
2574 . p3p6-p2p3*p2p5*p3p6-2*p2p3*p3p4*p4p6+2*p2p3s2*p4p6+p2p5*p3p4*
2575 . p3p6))+((p3p6*p2p3)*(-32*fb2*ffmcfmb+16*fb2-8)+16*(fb2*p1p2*
2576 . p3p6+2*fb2*p2p3*p4p6-fb2*p2p5*p3p6)))
2577 b(7)=ccc*(w11*(4*p2p4*(-3*fmb*hbcm-2*fmc*hbcm+3*hbcm2)+4*(2*fmc
2578 . *hbcm*p1p2-2*fmc*hbcm*p2p3-2*fmc*hbcm*p2p5-2*p1p2*p2p3+2*p1p2*
2579 . p3p4-p2p3*p2p4+2*p2p3*p2p5-2*p2p3*p3p4+2*p2p3s2+p2p4*p3p4-2*
2580 . p2p5*p3p4))+4*w2*(-2*fmb*hbcm*p1p2+2*fmb*hbcm*p2p3-fmb*hbcm*
2581 . p2p4+2*fmb*hbcm*p2p5-2*p1p2*p3p5+2*p2p3*p3p5-p2p4*p3p5+2*p2p5*
2582 . p3p5)+8*(-2*fb2*p1p2+2*fb2*p2p3-fb2*p2p4+2*fb2*p2p5))
2583 ans=ccc*(w2*(4*p2p3*(-3*fmb*fmc*hbcm+fmb*hbcm2+3*fmb2*hbcm)+4*(
2584 . p3p5*p2p3)*(-2*ffmcfmb*hbcm+3*fmb-3*fmc+hbcm)+4*(2*fmb*hbcm2*
2585 . p1p2+fmb*hbcm2*p2p4-2*fmb*hbcm2*p2p5+2*hbcm*p1p2*p3p5-2*hbcm*
2586 . p1p5*p2p3+2*hbcm*p2p3*p2p5-2*hbcm*p2p3*p4p5+hbcm*p2p4*p3p5-2*
2587 . hbcm*p2p5*p3p5))+w11*(4*p2p3*(-3*fmb*fmc*hbcm+fmc*hbcm2+3*fmc2
2588 . *hbcm)+4*p2p4*(-2*ffmcfmb*hbcm3+3*fmb*hbcm2-2*fmc*hbcm2+3*
2589 . hbcm3)+4*(p3p4*p2p3)*(2*ffmcfmb*hbcm-3*fmb+3*fmc-hbcm)+4*(-2*
2590 . ffmcfmb*hbcm*p2p3s2+3*fmb*p2p3s2+2*fmc*hbcm2*p1p2-2*fmc*hbcm2*
2591 . p2p5-3*fmc*p2p3s2+2*hbcm*p1p2*p3p4-2*hbcm*p1p3*p2p4-2*hbcm*
2592 . p1p4*p2p3-5*hbcm*p2p3*p2p4+4*hbcm*p2p3*p2p5-2*hbcm*p2p3*p4p5+
2593 . hbcm*p2p3s2-hbcm*p2p4*p3p4+6*hbcm*p2p4*p3p5-2*hbcm*p2p5*p3p4))
2594 . +(4*p2p3*(-2*fb1*hbcm+6*fb2*fmb-6*fb2*fmc-3*hbcm)+8*(-2*fb1*
2595 . hbcm*p1p2-fb1*hbcm*p2p4+2*fb1*hbcm*p2p5)))
2596 b(8)=ans
2597 b(9)=ccc*(w11*(4*p4p6*(ffmcfmb*hbcm3-fmb*hbcm2-hbcm3)+4*(p3p6*
2598 . p3p4)*(ffmcfmb*hbcm-2*fmb+fmc-hbcm)+4*(p3p6*p2p3)*(-ffmcfmb*
2599 . hbcm+2*fmb-fmc+hbcm)+4*p3p6*(ffmcfmb*fmc*hbcm2-2*fmb*fmc*hbcm+
2600 . fmc2*hbcm)+4*(2*hbcm*p1p2*p3p6+2*hbcm*p1p3*p4p6-2*hbcm*p1p4*
2601 . p3p6+hbcm*p2p3*p4p6-hbcm*p2p3*p5p6-2*hbcm*p2p4*p3p6+2*hbcm*
2602 . p2p5*p3p6-hbcm*p3p4*p4p6+hbcm*p3p4*p5p6-2*hbcm*p3p5*p4p6-2*
2603 . hbcm*p3p6*p4p5))+w2*(4*p5p6*(ffmcfmb*hbcm3-2*fmb*hbcm2+fmc*
2604 . hbcm2-2*hbcm3)+4*(p3p6*p3p5)*(-ffmcfmb*hbcm+2*fmb-fmc+hbcm)+4*
2605 . p3p6*(ffmcfmb*fmb*hbcm2-fmb*fmc*hbcm+2*fmb2*hbcm)+4*(-2*fmb*
2606 . hbcm2*p4p6-3*hbcm*p3p5*p4p6-3*hbcm*p3p5*p5p6))+(2*p3p6*(-12*
2607 . fb1*ffmcfmb*hbcm+4*fb1*hbcm+8*fb2*fmb-4*fb2*fmc-3*hbcm)+8*(fb1
2608 . *hbcm*p4p6+fb1*hbcm*p5p6)))
2609 b(10)=ccc*(w2*((p3p6*p3p5)*(8*ffmcfmb-8)+4*p5p6*(-ffmcfmb*hbcm2
2610 . -fmb*hbcm-fmc*hbcm+2*hbcm2)+4*(-fmb*hbcm*p3p6-3*fmb*hbcm*p4p6-
2611 . 2*p3p5*p4p6))+w11*((p3p6*p3p4)*(-8*ffmcfmb+8)+(p3p6*p2p3)*(8*
2612 . ffmcfmb-8)+4*p4p6*(ffmcfmb*hbcm2-fmb*hbcm+fmc*hbcm+hbcm2)+4*(
2613 . fmc*hbcm*p3p6-fmc*hbcm*p5p6-2*p2p3*p4p6+2*p3p4*p4p6))+(p3p6*(
2614 . 16*fb2*ffmcfmb-16*fb2+4)-16*fb2*p4p6))
2615 b(11)=ccc*(w11*(2*p3p4*(3*fmb*hbcm+fmc*hbcm+hbcm2)+2*p2p3*(-3*
2616 . fmb*hbcm-fmc*hbcm-hbcm2)+2*(-2*ffmcfmb*fmc*hbcm3+3*fmb*fmc*
2617 . hbcm2-2*fmc*hbcm*p1p3+6*fmc*hbcm*p3p5+3*fmc*hbcm3+3*fmc2*hbcm2
2618 . +2*hbcm2*p1p2-2*hbcm2*p1p4-6*hbcm2*p2p4+2*hbcm2*p2p5-2*hbcm2*
2619 . p4p5+2*p1p3*p2p3-2*p1p3*p3p4+4*p2p3*p3p4-6*p2p3*p3p5-2*p2p3s2+
2620 . 6*p3p4*p3p5-2*p3p4s2))+w2*(6*p3p5*(-fmb*hbcm+fmc*hbcm-hbcm2)+2
2621 . *(2*ffmcfmb*fmb*hbcm3+3*fmb*fmc*hbcm2+2*fmb*hbcm*p1p3-2*fmb*
2622 . hbcm*p2p3+2*fmb*hbcm*p3p4-3*fmb*hbcm3+3*fmb2*hbcm2-2*hbcm2*
2623 . p1p5+2*hbcm2*p2p5-2*hbcm2*p4p5+2*p1p3*p3p5-2*p2p3*p3p5+2*p3p4*
2624 . p3p5-6*p3p5s2))+2*(-6*fb1*fmb*hbcm-6*fb1*fmc*hbcm+4*fb2*
2625 . ffmcfmb*hbcm2-6*fb2*hbcm2+4*fb2*p1p3-4*fb2*p2p3+4*fb2*p3p4-12*
2626 . fb2*p3p5-5*hbcm2))
2627 b(12)=ccc*(w2*(4*p3p7*(3*fmb*fmc*hbcm-fmb*hbcm2-3*fmb2*hbcm)+4*
2628 . (p3p7*p3p5)*(2*ffmcfmb*hbcm-3*fmb+3*fmc-hbcm)+8*(fmb*hbcm2*
2629 . p4p7+fmb*hbcm2*p5p7+hbcm*p1p5*p3p7-hbcm*p2p5*p3p7+hbcm*p3p5*
2630 . p4p7+hbcm*p3p5*p5p7+hbcm*p3p7*p4p5))+w11*(4*p3p7*(3*fmb*fmc*
2631 . hbcm-fmc*hbcm2-3*fmc2*hbcm)+4*(p3p7*p3p4)*(-2*ffmcfmb*hbcm+3*
2632 . fmb-3*fmc+hbcm)+4*(p3p7*p2p3)*(2*ffmcfmb*hbcm-3*fmb+3*fmc-hbcm
2633 . )+8*(fmc*hbcm2*p4p7+fmc*hbcm2*p5p7-hbcm*p1p2*p3p7+hbcm*p1p4*
2634 . p3p7-hbcm*p2p3*p4p7-hbcm*p2p3*p5p7+3*hbcm*p2p4*p3p7-hbcm*p2p5*
2635 . p3p7+hbcm*p3p4*p4p7+hbcm*p3p4*p5p7+hbcm*p3p7*p4p5))+(4*p3p7*(2
2636 . *fb1*hbcm-6*fb2*fmb+6*fb2*fmc+3*hbcm)+16*(-fb1*hbcm*p4p7-fb1*
2637 . hbcm*p5p7)))
2638 b(13)=ccc*(w2*(2*p3p5*(2*ffmcfmb*hbcm-3*fmb+3*fmc-3*hbcm)+2*(3*
2639 . fmb*fmc*hbcm-3*fmb*hbcm2-3*fmb2*hbcm+2*hbcm*p1p5-2*hbcm*p2p5+2
2640 . *hbcm*p4p5))+w11*(2*p3p4*(-2*ffmcfmb*hbcm+3*fmb-3*fmc-hbcm)+2*
2641 . p2p3*(2*ffmcfmb*hbcm-3*fmb+3*fmc+hbcm)+2*(3*fmb*fmc*hbcm-3*fmc
2642 . *hbcm2-3*fmc2*hbcm-2*hbcm*p1p2+2*hbcm*p1p4+6*hbcm*p2p4-2*hbcm*
2643 . p2p5+2*hbcm*p4p5))+6*(2*fb1*hbcm-2*fb2*fmb+2*fb2*fmc+hbcm))
2644 b(14)=ccc*(8*w11*(fmc*hbcm*p3p7+fmc*hbcm*p4p7+fmc*hbcm*p5p7-
2645 . p2p3*p3p7-p2p3*p4p7-p2p3*p5p7+p3p4*p3p7+p3p4*p4p7+p3p4*p5p7)+8
2646 . *w2*(-fmb*hbcm*p3p7-fmb*hbcm*p4p7-fmb*hbcm*p5p7-p3p5*p3p7-p3p5
2647 . *p4p7-p3p5*p5p7)+16*(-fb2*p3p7-fb2*p4p7-fb2*p5p7))
2648 ans2=w2*(4*(p6p7*p3p5)*(fmb*hbcm+3*fmc*hbcm+hbcm2)+(p3p7*p3p6*
2649 . p3p5)*(16*ffmcfmb-8)+8*(p5p6*p3p7)*(-ffmcfmb*hbcm2-fmb*hbcm-
2650 . fmc*hbcm+hbcm2)+4*p6p7*(2*ffmcfmb*fmb*hbcm3+3*fmb*fmc*hbcm2+
2651 . fmb*hbcm3+3*fmb2*hbcm2-2*p3p5s2)+8*(-fmb*hbcm*p1p3*p6p7-3*fmb*
2652 . hbcm*p2p3*p6p7+3*fmb*hbcm*p3p4*p6p7+fmb*hbcm*p3p6*p4p7+fmb*
2653 . hbcm*p3p6*p5p7-3*fmb*hbcm*p3p7*p4p6-hbcm2*p1p5*p6p7+hbcm2*p2p5
2654 . *p6p7-hbcm2*p4p5*p6p7-hbcm2*p4p7*p5p6-hbcm2*p5p6*p5p7-p1p3*
2655 . p3p5*p6p7-3*p2p3*p3p5*p6p7+3*p3p4*p3p5*p6p7+p3p5*p3p6*p4p7+
2656 . p3p5*p3p6*p5p7-2*p3p5*p3p7*p4p6))+((p3p7*p3p6)*(32*fb2*ffmcfmb
2657 . -16*fb2+8)+4*p6p7*(-6*fb1*fmb*hbcm-6*fb1*fmc*hbcm+4*fb2*
2658 . ffmcfmb*hbcm2+2*fb2*hbcm2-5*hbcm2)+16*(-fb2*p1p3*p6p7-3*fb2*
2659 . p2p3*p6p7+3*fb2*p3p4*p6p7-fb2*p3p5*p6p7+fb2*p3p6*p4p7+fb2*p3p6
2660 . *p5p7-2*fb2*p3p7*p4p6))
2661 ans1=w11*(12*(p6p7*p3p4)*(fmb*hbcm-fmc*hbcm-hbcm2)+12*(p6p7*
2662 . p2p3)*(-fmb*hbcm+fmc*hbcm+hbcm2)+(p3p7*p3p6*p3p4)*(-16*ffmcfmb
2663 . +8)+(p3p7*p3p6*p2p3)*(16*ffmcfmb-8)+8*(p4p6*p3p7)*(ffmcfmb*
2664 . hbcm2-fmb*hbcm+fmc*hbcm)+4*p6p7*(-2*ffmcfmb*fmc*hbcm3+3*fmb*
2665 . fmc*hbcm2-fmc*hbcm3+3*fmc2*hbcm2-6*p2p3s2-6*p3p4s2)+8*(fmc*
2666 . hbcm*p1p3*p6p7+fmc*hbcm*p3p5*p6p7-fmc*hbcm*p3p6*p4p7-fmc*hbcm*
2667 . p3p6*p5p7-fmc*hbcm*p3p7*p5p6+hbcm2*p1p2*p6p7-hbcm2*p1p4*p6p7-3
2668 . *hbcm2*p2p4*p6p7+hbcm2*p2p5*p6p7-hbcm2*p4p5*p6p7-hbcm2*p4p6*
2669 . p4p7-hbcm2*p4p6*p5p7-p1p3*p2p3*p6p7+p1p3*p3p4*p6p7+6*p2p3*p3p4
2670 . *p6p7-p2p3*p3p5*p6p7+p2p3*p3p6*p4p7+p2p3*p3p6*p5p7-2*p2p3*p3p7
2671 . *p4p6+p3p4*p3p5*p6p7-p3p4*p3p6*p4p7-p3p4*p3p6*p5p7+2*p3p4*p3p7
2672 . *p4p6))+ans2
2673 ans=ccc*ans1
2674 b(15)=ans
2675 b(16)=ccc*(w2*(12*p6p7*(-fmb*fmc*hbcm+fmb*hbcm2+fmb2*hbcm)+4*(
2676 . p6p7*p3p5)*(-2*ffmcfmb*hbcm+3*fmb-3*fmc+3*hbcm)+8*(-hbcm*p1p5*
2677 . p6p7+hbcm*p2p5*p6p7-hbcm*p3p7*p5p6-hbcm*p4p5*p6p7-hbcm*p4p7*
2678 . p5p6-hbcm*p5p6*p5p7))+w11*(12*p6p7*(-fmb*fmc*hbcm+fmc*hbcm2+
2679 . fmc2*hbcm)+4*(p6p7*p3p4)*(2*ffmcfmb*hbcm-3*fmb+3*fmc+hbcm)+4*(
2680 . p6p7*p2p3)*(-2*ffmcfmb*hbcm+3*fmb-3*fmc-hbcm)+8*(hbcm*p1p2*
2681 . p6p7-hbcm*p1p4*p6p7-3*hbcm*p2p4*p6p7+hbcm*p2p5*p6p7-hbcm*p3p7*
2682 . p4p6-hbcm*p4p5*p6p7-hbcm*p4p6*p4p7-hbcm*p4p6*p5p7))+12*p6p7*(-
2683 . 2*fb1*hbcm+2*fb2*fmb-2*fb2*fmc-hbcm))
2684 do 200 n=1,16
2685 c(n,1)=c(n,1)+0.8181818181818182d0*b(n)
2686 c(n,2)=c(n,2)-0.1512818716977898d0*b(n)
2687 c(n,3)=c(n,3)-0.1869893980016914d0*b(n)
2688 200 continue
2689 return
2690 end
2691
2692 subroutine amp25_3p0(cc)
2693 implicit double precision(a-h,o-z)
2694 implicit integer (i-n)
2695 dimension b(16)
2696 #include "inclcon.h"
2697 #include "inclppp.h"
2698 #include "inclamp.h"
2699 do 100 n=1,16
2700 b(n)=0.0d0
2701 100 continue
2702 ccc=cc/((2*p1p2)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2)*(
2703 . ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2+2*ffmcfmb*p1p3+2*ffmcfmb*p2p3
2704 . -fmb2+hbcm2+2*p1p2-2*p1p3-2*p2p3))
2705 ans2=w20*(16*(p6p7*p2p3*p1p3)*(fmb-fmc)+8*(p6p7*p1p2)*(-fmb*
2706 . hbcm2+fmc*hbcm2)+8*p6p7*(ffmcfmb*hbcm*p1p3s2-ffmcfmb*hbcm*
2707 . p2p3s2+fmb*p1p3s2+fmb*p2p3s2-2*fmc*p2p3s2-hbcm*p1p3s2+hbcm*
2708 . p2p3s2)+4*(p6p7*p2p3)*(ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-3*
2709 . fmb*fmc*hbcm-fmb*hbcm2+3*fmb2*hbcm+fmc*hbcm2)+4*(p6p7*p1p3)*(
2710 . ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm-fmb*hbcm2-
2711 . fmb2*hbcm+fmc*hbcm2)+16*(hbcm*p1p2*p1p3*p6p7-hbcm*p1p2*p2p3*
2712 . p6p7))+(2*p6p7*(4*fb1*fmb*fmc*hbcm-4*fb1*fmb2*hbcm-4*fb2*
2713 . ffmcfmb*fmb*hbcm2+4*fb2*ffmcfmb*fmc*hbcm2+4*fb2*fmb*hbcm2-4*
2714 . fb2*fmc*hbcm2+fmb*hbcm2-fmc*hbcm2)+4*(p6p7*p2p3)*(-4*fb1*
2715 . ffmcfmb*hbcm+4*fb1*hbcm-4*fb2*fmb+8*fb2*fmc+3*hbcm)+4*(p6p7*
2716 . p1p3)*(4*fb1*ffmcfmb*hbcm-4*fb1*hbcm-4*fb2*fmb-3*hbcm))
2717 ans1=w1*(8*(p6p7*p2p4)*(ffmcfmb*hbcm3-fmb*hbcm2+2*fmc*hbcm2-3*
2718 . hbcm3)+8*(p6p7*p1p4)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+8*(p6p7*
2719 . p3p4*p2p3)*(-ffmcfmb*hbcm+fmb-2*fmc+hbcm)+8*(p6p7*p3p4*p1p3)*(
2720 . ffmcfmb*hbcm+fmb-hbcm)+4*p6p7*(ffmcfmb*fmc*hbcm4+fmb*fmc*hbcm3
2721 . -fmc*hbcm4)+8*(p6p7*p3p5)*(ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm-fmc*
2722 . hbcm2)+8*(p6p7*p2p3)*(-ffmcfmb*fmc*hbcm2+fmc*hbcm2-2*fmc2*hbcm
2723 . )+8*(p6p7*p1p3)*(-ffmcfmb*fmc*hbcm2+fmc*hbcm2)+4*(p6p7*p3p4)*(
2724 . -ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm+fmb*hbcm2-
2725 . fmb2*hbcm-fmc*hbcm2)+8*(-fmc*hbcm2*p1p2*p6p7+2*fmc*hbcm2*p2p5*
2726 . p6p7-2*hbcm*p1p2*p3p4*p6p7+4*hbcm*p1p3*p2p4*p6p7+4*hbcm*p2p3*
2727 . p2p4*p6p7-4*hbcm*p2p4*p3p5*p6p7+4*hbcm*p2p5*p3p4*p6p7))+ans2
2728 ans=ccc*ans1
2729 b(1)=ans
2730 ans=ccc*(w20*(8*p6p7*(ffmcfmb*p1p3s2-ffmcfmb*p2p3s2-p1p3s2+
2731 . p2p3s2)+16*(p6p7*p2p4)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+4*(p6p7*
2732 . p2p3)*(3*ffmcfmb*hbcm2+fmb*hbcm-3*hbcm2)+4*(p6p7*p1p3)*(-
2733 . ffmcfmb*hbcm2+fmb*hbcm+hbcm2)+8*(p6p7*p1p2)*(-ffmcfmb*hbcm2-
2734 . fmb*hbcm+2*hbcm2)+8*(-p1p2*p1p3*p6p7-p1p2*p2p3*p6p7+2*p1p3*
2735 . p2p4*p6p7+2*p2p3*p2p4*p6p7))+w1*((p6p7*p3p4*p2p3)*(-8*ffmcfmb+
2736 . 8)+(p6p7*p3p4*p1p3)*(8*ffmcfmb-8)+4*(p6p7*p3p4)*(ffmcfmb*hbcm2
2737 . +fmb*hbcm-hbcm2)+8*(p6p7*p2p4)*(ffmcfmb*hbcm2-fmb*hbcm+2*fmc*
2738 . hbcm+hbcm2)+8*(p6p7*p1p4)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+4*
2739 . p6p7*(ffmcfmb*fmb*fmc*hbcm2+ffmcfmb*fmc2*hbcm2-fmb*fmc*hbcm2+
2740 . fmb*fmc2*hbcm+fmb2*fmc*hbcm-fmc2*hbcm2)+8*(-2*fmc*hbcm*p1p2*
2741 . p6p7+2*fmc*hbcm*p2p3*p6p7-p1p2*p3p4*p6p7+2*p2p4*p3p4*p6p7))+((
2742 . p6p7*p2p3)*(16*fb2*ffmcfmb-16*fb2+4)+(p6p7*p1p3)*(-16*fb2*
2743 . ffmcfmb+16*fb2-4)+2*p6p7*(4*fb1*fmb*hbcm+4*fb2*ffmcfmb*hbcm2-4
2744 . *fb2*hbcm2-hbcm2)+16*(fb2*p1p2*p6p7-2*fb2*p2p4*p6p7)))
2745 b(4)=ans
2746 b(15)=ccc*(w1*(8*p6p7*(fmb*fmc*hbcm2-2*fmc*hbcm3+fmc2*hbcm2-2*
2747 . p3p4s2)+8*(p6p7*p3p4)*(-ffmcfmb*hbcm2+fmb*hbcm-2*fmc*hbcm)+16*
2748 . (fmc*hbcm*p1p3*p6p7+fmc*hbcm*p2p3*p6p7-hbcm2*p1p4*p6p7-hbcm2*
2749 . p2p4*p6p7+p1p3*p3p4*p6p7+p2p3*p3p4*p6p7))+w20*(8*p6p7*(-
2750 . ffmcfmb*hbcm4-fmb*hbcm3+hbcm4+2*p1p3s2+2*p2p3s2)+16*(p6p7*p3p4
2751 . )*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(p6p7*p2p3)*(ffmcfmb*hbcm2
2752 . +fmb*hbcm-2*hbcm2)+8*(p6p7*p1p3)*(ffmcfmb*hbcm2+fmb*hbcm-2*
2753 . hbcm2)+16*(-hbcm2*p1p2*p6p7+2*p1p3*p2p3*p6p7-p1p3*p3p4*p6p7-
2754 . p2p3*p3p4*p6p7))+(4*p6p7*(-4*fb1*fmb*hbcm-4*fb2*ffmcfmb*hbcm2+
2755 . 8*fb2*hbcm2+hbcm2)+32*(-fb2*p1p3*p6p7-fb2*p2p3*p6p7+fb2*p3p4*
2756 . p6p7)))
2757 b(16)=ccc*(w1*(8*(p6p7*p3p4)*(-fmb+fmc+2*hbcm)+8*p6p7*(ffmcfmb*
2758 . fmc*hbcm2-fmb*fmc*hbcm+2*fmc2*hbcm)+16*(-hbcm*p1p4*p6p7-hbcm*
2759 . p2p4*p6p7))+w20*(8*(p6p7*p2p3)*(-fmb+fmc)+8*(p6p7*p1p3)*(-fmb+
2760 . fmc)+8*p6p7*(-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm
2761 . +fmb*hbcm2-fmb2*hbcm-fmc*hbcm2))+16*p6p7*(fb2*fmb-fb2*fmc))
2762 do 200 n=1,16
2763 c(n,1)=c(n,1)+0.09090909090909091d0*b(n)
2764 c(n,2)=c(n,2)-0.1092591295595148d0*b(n)
2765 200 continue
2766 return
2767 end
2768
2769 subroutine amp24_3p0(cc)
2770 implicit double precision(a-h,o-z)
2771 implicit integer (i-n)
2772 dimension b(16)
2773 #include "inclcon.h"
2774 #include "inclppp.h"
2775 #include "inclamp.h"
2776 do 100 n=1,16
2777 b(n)=0.0d0
2778 100 continue
2779 ccc=cc/((2*p1p2)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2)*(-fmb2+
2780 . fmc2+hbcm2+2*p3p4))
2781 b(1)=ccc*(w1*(4*p6p7*(2*fmb*p3p4s2-fmb2*fmc*hbcm2-fmc*hbcm4-2*
2782 . fmc*p3p4s2+fmc3*hbcm2)+8*(p6p7*p3p5*p3p4)*(fmb-fmc)+8*(p6p7*
2783 . p3p4*p2p3)*(-fmb+fmc)+8*(p6p7*p3p4*p1p3)*(-fmb+fmc)+8*(p6p7*
2784 . p3p4)*(fmb*hbcm2-fmc*hbcm2)+8*(fmc*hbcm2*p1p3*p6p7+fmc*hbcm2*
2785 . p2p3*p6p7-fmc*hbcm2*p3p5*p6p7))+(16*(p6p7*p3p4)*(-fb2*fmb+fb2*
2786 . fmc)+16*(p6p7*p3p5)*(2*fb1*hbcm-fb2*fmb+fb2*fmc)+16*(p6p7*p2p3
2787 . )*(-2*fb1*hbcm+fb2*fmb-fb2*fmc)+16*(p6p7*p1p3)*(-2*fb1*hbcm+
2788 . fb2*fmb-fb2*fmc)+16*p6p7*(fb1*fmb2*hbcm-fb1*fmc2*hbcm+fb1*
2789 . hbcm3-fb2*fmb*hbcm2+fb2*fmc*hbcm2)))
2790 b(4)=ccc*(w1*(4*(p6p7*p3p4)*(fmb2-fmc2-hbcm2)-8*p3p4s2*p6p7)+(8
2791 . *p6p7*(-fb2*fmb2+fb2*fmc2+fb2*hbcm2)+16*fb2*p3p4*p6p7))
2792 b(15)=ccc*(w1*(8*p6p7*(-fmb*fmc*hbcm2-fmc2*hbcm2+2*p3p4s2)+8*
2793 . hbcm2*p3p4*p6p7)+(16*p6p7*(2*fb1*fmb*hbcm+2*fb1*fmc*hbcm-fb2*
2794 . hbcm2)-32*fb2*p3p4*p6p7))
2795 b(16)=ccc*(w1*(8*(p6p7*p3p4)*(fmb-fmc)-8*fmc*hbcm2*p6p7)+16*
2796 . p6p7*(2*fb1*hbcm-fb2*fmb+fb2*fmc))
2797 do 200 n=1,16
2798 c(n,1)=c(n,1)-0.7272727272727273d0*b(n)
2799 c(n,2)=c(n,2)+0.8740730364761186d0*b(n)
2800 200 continue
2801 return
2802 end
2803
2804 subroutine amp23_3p0(cc)
2805 implicit double precision(a-h,o-z)
2806 implicit integer (i-n)
2807 dimension b(16)
2808 #include "inclcon.h"
2809 #include "inclppp.h"
2810 #include "inclamp.h"
2811 do 100 n=1,16
2812 b(n)=0.0d0
2813 100 continue
2814 ccc=cc/((2*p1p2)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*
2815 . p3p5+fmb2+hbcm2+2*p3p5)*(fmb2-fmc2+hbcm2+2*p3p5))
2816 b(1)=ccc*(w2*(16*(p6p7*p3p5*p2p3)*(fmb-fmc)+4*p6p7*(fmb*fmc2*
2817 . hbcm2-fmb*hbcm4-fmb3*hbcm2)+8*(2*fmb*hbcm2*p2p3*p6p7-fmb*hbcm2
2818 . *p3p5*p6p7))+(32*(p6p7*p2p3)*(-2*fb1*hbcm+fb2*fmb-fb2*fmc)+16*
2819 . p6p7*(fb1*fmb2*hbcm-fb1*fmc2*hbcm+fb1*hbcm3)+32*fb1*hbcm*p3p5*
2820 . p6p7))
2821 b(4)=ccc*(w2*(4*(p6p7*p3p5)*(-fmb2+fmc2-hbcm2)-8*p3p5s2*p6p7)+(
2822 . 8*p6p7*(-fb2*fmb2+fb2*fmc2-fb2*hbcm2)-16*fb2*p3p5*p6p7))
2823 b(15)=ccc*(w2*(8*p6p7*(-fmb*fmc*hbcm2-fmb2*hbcm2+2*p3p5s2)+8*
2824 . hbcm2*p3p5*p6p7)+(16*p6p7*(2*fb1*fmb*hbcm+2*fb1*fmc*hbcm+fb2*
2825 . hbcm2)+32*fb2*p3p5*p6p7))
2826 b(16)=ccc*(w2*(8*(p6p7*p3p5)*(-fmb+fmc)-8*fmb*hbcm2*p6p7)+16*
2827 . p6p7*(2*fb1*hbcm-fb2*fmb+fb2*fmc))
2828 do 200 n=1,16
2829 c(n,1)=c(n,1)-0.7272727272727273d0*b(n)
2830 c(n,2)=c(n,2)+0.8740730364761186d0*b(n)
2831 200 continue
2832 return
2833 end
2834
2835 subroutine amp22_3p0(cc)
2836 implicit double precision(a-h,o-z)
2837 implicit integer (i-n)
2838 dimension b(16)
2839 #include "inclcon.h"
2840 #include "inclppp.h"
2841 #include "inclamp.h"
2842 do 100 n=1,16
2843 b(n)=0.0d0
2844 100 continue
2845 ccc=cc/((2*p1p2)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*
2846 . p3p5+fmb2+hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3-2*
2847 . ffmcfmb*p2p3-fmc2+2*p1p2))
2848 ans=ccc*(w2*(8*(p6p7*p2p5)*(ffmcfmb*hbcm3+fmc*hbcm2-2*hbcm3)+8*
2849 . (p6p7*p1p5)*(-ffmcfmb*hbcm3+fmc*hbcm2)+8*(p6p7*p3p5*p2p3)*(-
2850 . ffmcfmb*hbcm+fmc)+8*(p6p7*p3p5*p1p3)*(ffmcfmb*hbcm-fmc)+4*p6p7
2851 . *(-ffmcfmb*fmb*hbcm4+fmb*fmc*hbcm3)+4*(p6p7*p3p5)*(-ffmcfmb*
2852 . fmb*hbcm2-ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm+fmc2*hbcm)+8*(p6p7*
2853 . p2p3)*(2*ffmcfmb*fmb*hbcm2+fmb*fmc*hbcm-2*fmb2*hbcm)+8*(-fmb*
2854 . fmc*hbcm*p1p3*p6p7-fmb*hbcm2*p1p2*p6p7-2*hbcm*p1p2*p3p5*p6p7+4
2855 . *hbcm*p1p5*p2p3*p6p7+4*hbcm*p2p3*p2p5*p6p7))+w17*(8*(p6p7*p1p2
2856 . )*(-fmb*hbcm2+fmc*hbcm2)+8*p6p7*(ffmcfmb*hbcm*p1p3s2-ffmcfmb*
2857 . hbcm*p2p3s2-fmc*p1p3s2+fmc*p2p3s2)+4*(p6p7*p2p3)*(3*ffmcfmb*
2858 . fmb*hbcm2-3*ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm+fmc2*hbcm)+4*(p6p7*
2859 . p1p3)*(-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm+fmc2*
2860 . hbcm)+16*(-hbcm*p1p2*p1p3*p6p7+hbcm*p1p2*p2p3*p6p7))+(2*p6p7*(
2861 . -4*fb1*fmb*fmc*hbcm+4*fb1*fmc2*hbcm-4*fb2*ffmcfmb*fmb*hbcm2+4*
2862 . fb2*ffmcfmb*fmc*hbcm2+fmb*hbcm2-fmc*hbcm2)+4*(p6p7*p2p3)*(-4*
2863 . fb1*ffmcfmb*hbcm+4*fb2*fmc-3*hbcm)+4*(p6p7*p1p3)*(4*fb1*
2864 . ffmcfmb*hbcm-4*fb2*fmc+3*hbcm)))
2865 b(1)=ans
2866 ans=ccc*(w17*(8*p6p7*(-ffmcfmb*p1p3s2+ffmcfmb*p2p3s2-2*p2p3s2)+
2867 . 16*(p6p7*p2p4)*(ffmcfmb*hbcm2-fmc*hbcm)+4*(p6p7*p2p3)*(ffmcfmb
2868 . *hbcm2-3*fmc*hbcm)+4*(p6p7*p1p3)*(ffmcfmb*hbcm2+fmc*hbcm)+8*(
2869 . p6p7*p1p2)*(-ffmcfmb*hbcm2+fmc*hbcm+hbcm2)+8*(p1p2*p1p3*p6p7+
2870 . p1p2*p2p3*p6p7-2*p1p3*p2p3*p6p7-2*p1p3*p2p4*p6p7-2*p2p3*p2p4*
2871 . p6p7))+w2*((p6p7*p3p5*p2p3)*(8*ffmcfmb-16)+4*(p6p7*p3p5)*(-
2872 . ffmcfmb*hbcm2+fmc*hbcm)+8*(p6p7*p2p5)*(-ffmcfmb*hbcm2-2*fmb*
2873 . hbcm-fmc*hbcm+2*hbcm2)+8*(p6p7*p1p5)*(ffmcfmb*hbcm2-fmc*hbcm)+
2874 . 4*p6p7*(-ffmcfmb*fmb*fmc*hbcm2-ffmcfmb*fmb2*hbcm2+fmb*fmc2*
2875 . hbcm+fmb2*fmc*hbcm)+8*(-ffmcfmb*p1p3*p3p5*p6p7+2*fmb*hbcm*p1p2
2876 . *p6p7-2*fmb*hbcm*p2p3*p6p7-4*fmb*hbcm*p2p4*p6p7+p1p2*p3p5*p6p7
2877 . -2*p2p4*p3p5*p6p7))+((p6p7*p2p3)*(16*fb2*ffmcfmb-32*fb2+4)+(
2878 . p6p7*p1p3)*(-16*fb2*ffmcfmb-4)+2*p6p7*(4*fb1*fmc*hbcm+4*fb2*
2879 . ffmcfmb*hbcm2-hbcm2)+16*(fb2*p1p2*p6p7-2*fb2*p2p4*p6p7)))
2880 b(4)=ans
2881 b(15)=ccc*(w2*(8*p6p7*(fmb*fmc*hbcm2+2*fmb*hbcm3+fmb2*hbcm2)+8*
2882 . (p6p7*p3p5)*(ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm+hbcm2)+16*(-fmb
2883 . *hbcm*p1p3*p6p7-fmb*hbcm*p2p3*p6p7+2*fmb*hbcm*p3p4*p6p7-hbcm2*
2884 . p1p5*p6p7-hbcm2*p2p5*p6p7+p3p4*p3p5*p6p7))+w17*(8*p6p7*(-
2885 . ffmcfmb*hbcm4+fmc*hbcm3)+16*(p6p7*p3p4)*(-ffmcfmb*hbcm2+fmc*
2886 . hbcm)+8*(p6p7*p2p3)*(ffmcfmb*hbcm2-fmc*hbcm+hbcm2)+8*(p6p7*
2887 . p1p3)*(ffmcfmb*hbcm2-fmc*hbcm+hbcm2)+16*(-hbcm2*p1p2*p6p7+p1p3
2888 . *p3p4*p6p7+p2p3*p3p4*p6p7))+(4*p6p7*(-4*fb1*fmc*hbcm-4*fb2*
2889 . ffmcfmb*hbcm2+4*fb2*hbcm2+hbcm2)+32*fb2*p3p4*p6p7))
2890 b(16)=ccc*(w2*(8*(p6p7*p3p5)*(fmb-fmc+2*hbcm)+8*p6p7*(-ffmcfmb*
2891 . fmb*hbcm2-fmb*fmc*hbcm+fmb*hbcm2+2*fmb2*hbcm)+16*(-hbcm*p1p5*
2892 . p6p7-hbcm*p2p5*p6p7))+w17*(8*(p6p7*p2p3)*(fmb-fmc)+8*(p6p7*
2893 . p1p3)*(fmb-fmc)+8*p6p7*(-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+
2894 . fmb*fmc*hbcm-fmc2*hbcm))+16*p6p7*(fb2*fmb-fb2*fmc))
2895 do 200 n=1,16
2896 c(n,1)=c(n,1)+0.09090909090909091d0*b(n)
2897 c(n,2)=c(n,2)-0.1092591295595148d0*b(n)
2898 200 continue
2899 return
2900 end
2901
2902 subroutine amp21_3p0(cc)
2903 implicit double precision(a-h,o-z)
2904 implicit integer (i-n)
2905 dimension b(16)
2906 #include "inclcon.h"
2907 #include "inclppp.h"
2908 #include "inclamp.h"
2909 do 100 n=1,16
2910 b(n)=0.0d0
2911 100 continue
2912 ccc=cc/((ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3+2*ffmcfmb*p3p4+fmc2-2*
2913 . p1p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3-fmc2)*(ffmcfmb**2*hbcm2
2914 . -2*ffmcfmb*hbcm2+2*ffmcfmb*p2p3-fmb2+hbcm2-2*p2p3))
2915 ans4=16*(p3p7*p3p6)*(ffmcfmb**2*hbcm3-ffmcfmb*fmb*fmc*hbcm+
2916 . ffmcfmb*fmb*hbcm2+ffmcfmb*fmb2*hbcm+ffmcfmb*fmc*hbcm2+ffmcfmb*
2917 . fmc2*hbcm-ffmcfmb*hbcm3+fmb*fmc*hbcm-fmc*hbcm2-fmc2*hbcm)+16*(
2918 . p6p7*p3p5)*(ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2-ffmcfmb*hbcm3)+
2919 . 8*(p6p7*p3p4)*(ffmcfmb**2*hbcm3+2*fmb*hbcm2-fmb2*hbcm-hbcm3)+
2920 . 16*(p6p7*p2p3)*(-ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*
2921 . hbcm3)+8*(p6p7*p1p3)*(-ffmcfmb**2*hbcm3-2*fmb*hbcm2+fmb2*hbcm+
2922 . hbcm3)+8*p6p7*(-ffmcfmb**2*fmb*hbcm4+ffmcfmb**2*hbcm5+2*
2923 . ffmcfmb*fmb*hbcm4-ffmcfmb*fmb2*hbcm3+ffmcfmb*fmc2*hbcm3-
2924 . ffmcfmb*hbcm5+fmb*fmc2*hbcm2-fmc2*hbcm3)+16*(2*ffmcfmb*hbcm*
2925 . p2p3*p3p6*p5p7-2*ffmcfmb*hbcm*p2p5*p3p6*p3p7+ffmcfmb*hbcm3*
2926 . p2p5*p6p7-hbcm*p1p3*p2p5*p6p7+2*hbcm*p2p3*p4p6*p5p7-2*hbcm*
2927 . p2p4*p3p6*p5p7+hbcm*p2p5*p3p4*p6p7+2*hbcm*p2p5*p3p6*p4p7-2*
2928 . hbcm*p2p5*p3p7*p4p6)
2929 ans3=16*(p5p7*p4p6)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+16*(p4p7*
2930 . p4p6)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+16*(p6p7*p1p4)*(-
2931 . ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+32*(p4p6*p3p7*p3p5)*(ffmcfmb*
2932 . hbcm-hbcm)+16*(p4p6*p3p7*p3p4)*(3*ffmcfmb*hbcm+fmb-3*hbcm)+16*
2933 . (p5p7*p3p6*p3p4)*(ffmcfmb*hbcm+fmb-hbcm)+16*(p6p7*p3p5*p3p4)*(
2934 . ffmcfmb*hbcm+fmb-hbcm)+32*(p4p6*p3p7*p2p3)*(-ffmcfmb*hbcm+hbcm
2935 . )+16*(p6p7*p3p4*p2p3)*(-ffmcfmb*hbcm-fmb+hbcm)+16*(p4p6*p3p7*
2936 . p1p3)*(-3*ffmcfmb*hbcm-fmb+3*hbcm)+16*(p5p7*p3p6*p1p3)*(-
2937 . ffmcfmb*hbcm-fmb+hbcm)+16*(p6p7*p3p5*p1p3)*(-ffmcfmb*hbcm-fmb+
2938 . hbcm)+16*(p6p7*p2p3*p1p3)*(ffmcfmb*hbcm+fmb-hbcm)+16*(p3p7*
2939 . p3p6*p3p4)*(ffmcfmb*fmb+ffmcfmb*fmc+3*ffmcfmb*hbcm+fmb-fmc-3*
2940 . hbcm)+16*(p3p7*p3p6*p1p3)*(-ffmcfmb*fmb-ffmcfmb*fmc-ffmcfmb*
2941 . hbcm-fmb+fmc+hbcm)+16*(p4p7*p3p6)*(-ffmcfmb*fmb*hbcm2-ffmcfmb*
2942 . hbcm3-fmb2*hbcm+hbcm3)+16*(p4p6*p3p7)*(ffmcfmb**2*hbcm3+
2943 . ffmcfmb*fmb*hbcm2-fmb*hbcm2+fmb2*hbcm-hbcm3)+16*(p5p7*p3p6)*(
2944 . ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2-ffmcfmb*
2945 . hbcm3+fmb*fmc*hbcm-fmc*hbcm2)+ans4
2946 ans2=w5*ans3
2947 ans7=8*p6p7*(-ffmcfmb**2*fmb*hbcm4+ffmcfmb**2*fmc*hbcm4+ffmcfmb
2948 . **2*hbcm5+2*ffmcfmb*fmb*fmc*hbcm3+2*ffmcfmb*fmb*hbcm4-ffmcfmb*
2949 . fmb2*hbcm3-2*ffmcfmb*fmc*hbcm4-ffmcfmb*fmc2*hbcm3-ffmcfmb*
2950 . hbcm5-2*fmb*fmc*hbcm3-fmb*fmc2*hbcm2+fmb2*fmc*hbcm2+fmc*hbcm4+
2951 . fmc2*hbcm3)+16*(2*ffmcfmb*hbcm*p2p3*p3p6*p5p7-2*ffmcfmb*hbcm*
2952 . p2p5*p3p6*p3p7-hbcm*p1p3*p2p5*p6p7)
2953 ans6=16*(p6p7*p2p5)*(ffmcfmb*hbcm3-fmc*hbcm2)+16*(p4p6*p3p7*
2954 . p1p3)*(-ffmcfmb*hbcm-fmb+hbcm)+16*(p5p7*p3p6*p1p3)*(-ffmcfmb*
2955 . hbcm-fmb+hbcm)+16*(p6p7*p3p5*p1p3)*(-ffmcfmb*hbcm-fmb+hbcm)+16
2956 . *(p6p7*p2p3*p1p3)*(ffmcfmb*hbcm+fmb-hbcm)+16*(p3p7*p3p6*p1p3)*
2957 . (-ffmcfmb*fmb-ffmcfmb*fmc-ffmcfmb*hbcm-fmb+fmc+hbcm)+16*(p4p6*
2958 . p3p7)*(ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-
2959 . ffmcfmb*hbcm3-fmb*fmc*hbcm+fmc*hbcm2)+16*(p5p7*p3p6)*(ffmcfmb
2960 . **2*hbcm3+ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3-
2961 . fmb*fmc*hbcm+fmc*hbcm2)+16*(p3p7*p3p6)*(ffmcfmb**2*hbcm3-
2962 . ffmcfmb*fmb*fmc*hbcm+ffmcfmb*fmb*hbcm2+ffmcfmb*fmb2*hbcm-
2963 . ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3-fmb*fmc*hbcm+fmc*hbcm2)+16*(
2964 . p6p7*p3p5)*(ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*
2965 . hbcm2-ffmcfmb*hbcm3-fmb*fmc*hbcm+fmc*hbcm2)+16*(p6p7*p2p3)*(-
2966 . ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+ffmcfmb*
2967 . hbcm3+fmb*fmc*hbcm-fmc*hbcm2)+8*(p6p7*p1p3)*(-ffmcfmb**2*hbcm3
2968 . -2*fmb*hbcm2+fmb2*hbcm+hbcm3)+ans7
2969 ans5=w12*ans6
2970 ans8=(8*(p4p6*p3p7)*(-4*fb1*ffmcfmb*hbcm+4*fb1*hbcm-4*fb2*fmb-
2971 . hbcm)+8*(p5p7*p3p6)*(-4*fb1*ffmcfmb*hbcm+4*fb1*hbcm-4*fb2*fmb-
2972 . hbcm)+8*(p3p7*p3p6)*(-4*fb1*ffmcfmb*hbcm+4*fb1*hbcm-4*fb2*
2973 . ffmcfmb*fmb-4*fb2*ffmcfmb*fmc-4*fb2*fmb+4*fb2*fmc-fmb-fmc-3*
2974 . hbcm)+8*(p6p7*p3p5)*(-4*fb1*ffmcfmb*hbcm+4*fb1*hbcm-4*fb2*fmb-
2975 . hbcm)+8*(p6p7*p2p3)*(4*fb1*ffmcfmb*hbcm-4*fb1*hbcm+4*fb2*fmb+
2976 . hbcm)+8*p6p7*(2*fb1*ffmcfmb**2*hbcm3-4*fb1*ffmcfmb*hbcm3+2*fb1
2977 . *fmb2*hbcm+2*fb1*hbcm3+4*fb2*ffmcfmb*fmb*hbcm2-4*fb2*fmb*hbcm2
2978 . -fmb*hbcm2)-32*fb1*hbcm*p2p5*p6p7)
2979 ans1=w8*(16*(p6p7*p2p5)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+32*(
2980 . p3p7*p3p6*p2p5)*(-ffmcfmb*hbcm+hbcm)+16*p6p7*(-ffmcfmb*hbcm*
2981 . p2p3s2-fmb*p2p3s2+hbcm*p2p3s2)+16*(p4p6*p3p7*p2p3)*(-ffmcfmb*
2982 . hbcm+fmb+hbcm)+16*(p5p7*p3p6*p2p3)*(ffmcfmb*hbcm+fmb-hbcm)+16*
2983 . (p6p7*p3p5*p2p3)*(ffmcfmb*hbcm+fmb-hbcm)+32*(p3p7*p3p6*p1p2)*(
2984 . ffmcfmb*hbcm-hbcm)+16*(p3p7*p3p6*p2p3)*(ffmcfmb*fmb+ffmcfmb*
2985 . fmc-ffmcfmb*hbcm+fmb-fmc+hbcm)+8*(p6p7*p2p3)*(-ffmcfmb**2*
2986 . hbcm3+2*ffmcfmb*hbcm3+fmb2*hbcm-hbcm3)-16*hbcm*p2p3*p2p5*p6p7)
2987 . +ans2+ans5+ans8
2988 ans=ccc*ans1
2989 b(1)=ans
2990 ans2=w12*(16*(p5p7*p1p3)*(ffmcfmb*hbcm+fmb-hbcm)+8*(p3p7*p1p3)*
2991 . (-ffmcfmb*fmb+ffmcfmb*fmc+ffmcfmb*hbcm+2*fmb-fmc-hbcm)+16*p5p7
2992 . *(-ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+
2993 . ffmcfmb*hbcm3+fmb*fmc*hbcm-fmc*hbcm2)+8*p3p7*(ffmcfmb**2*fmb*
2994 . hbcm2-ffmcfmb**2*fmc*hbcm2-ffmcfmb**2*hbcm3-ffmcfmb*fmb*fmc*
2995 . hbcm-2*ffmcfmb*fmb*hbcm2+2*ffmcfmb*fmc*hbcm2+ffmcfmb*fmc2*hbcm
2996 . +ffmcfmb*hbcm3+2*fmb*fmc*hbcm-fmc*hbcm2-fmc2*hbcm))+(8*p5p7*(4
2997 . *fb1*ffmcfmb*hbcm-4*fb1*hbcm+4*fb2*fmb+hbcm)+4*p3p7*(4*fb1*
2998 . ffmcfmb*hbcm-4*fb1*hbcm-4*fb2*ffmcfmb*fmb+4*fb2*ffmcfmb*fmc+8*
2999 . fb2*fmb-4*fb2*fmc-fmb+fmc+hbcm))
3000 ans1=w8*(32*(p3p7*p2p5)*(ffmcfmb*hbcm-hbcm)+16*(p5p7*p2p3)*(-
3001 . ffmcfmb*hbcm-fmb+hbcm)+16*(p3p7*p1p2)*(-ffmcfmb*hbcm+hbcm)+8*(
3002 . p3p7*p2p3)*(ffmcfmb*fmb-ffmcfmb*fmc+ffmcfmb*hbcm-2*fmb+fmc-
3003 . hbcm))+w5*(16*(p5p7*p3p4)*(-ffmcfmb*hbcm-fmb+hbcm)+16*(p3p7*
3004 . p1p4)*(ffmcfmb*hbcm-hbcm)+16*(p5p7*p1p3)*(ffmcfmb*hbcm+fmb-
3005 . hbcm)+8*(p3p7*p3p4)*(ffmcfmb*fmb-ffmcfmb*fmc-3*ffmcfmb*hbcm-2*
3006 . fmb+fmc+3*hbcm)+8*(p3p7*p1p3)*(-ffmcfmb*fmb+ffmcfmb*fmc+
3007 . ffmcfmb*hbcm+2*fmb-fmc-hbcm)+8*p5p7*(-2*ffmcfmb**2*hbcm3-2*
3008 . ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2+2*ffmcfmb*hbcm3-fmb*fmc*
3009 . hbcm+fmc*hbcm2)+8*p4p7*(-ffmcfmb**2*hbcm3+2*ffmcfmb*hbcm3+fmb2
3010 . *hbcm-hbcm3)+8*p3p7*(ffmcfmb**2*fmb*hbcm2-ffmcfmb**2*hbcm3+
3011 . ffmcfmb*fmb*fmc*hbcm-2*ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-2*
3012 . ffmcfmb*fmc2*hbcm+ffmcfmb*hbcm3-fmb*fmc*hbcm+fmc*hbcm2+2*fmc2*
3013 . hbcm)+16*(hbcm*p2p4*p5p7-hbcm*p2p5*p4p7))+ans2
3014 ans=ccc*ans1
3015 b(2)=ans
3016 ans2=(8*p4p6*(4*fb1*ffmcfmb*hbcm-4*fb1*hbcm+4*fb2*fmb+hbcm)+4*
3017 . p3p6*(4*fb1*ffmcfmb*hbcm-4*fb1*hbcm+4*fb2*fmb+hbcm))
3018 ans1=w8*(16*(p4p6*p2p3)*(-ffmcfmb*hbcm-fmb+hbcm)+8*(p3p6*p2p3)*
3019 . (-ffmcfmb*hbcm-fmb+hbcm))+w5*(16*(p4p6*p3p4)*(-ffmcfmb*hbcm-
3020 . fmb+hbcm)+8*(p3p6*p3p4)*(-ffmcfmb*hbcm-fmb+hbcm)+16*(p4p6*p1p3
3021 . )*(ffmcfmb*hbcm+fmb-hbcm)+8*(p3p6*p1p3)*(ffmcfmb*hbcm+fmb-hbcm
3022 . )+8*p4p6*(-ffmcfmb**2*hbcm3-3*ffmcfmb*fmb*hbcm2+fmb*hbcm2-2*
3023 . fmb2*hbcm+hbcm3)+8*p3p6*(-ffmcfmb**2*fmb*hbcm2-ffmcfmb**2*
3024 . hbcm3-ffmcfmb*fmb2*hbcm+ffmcfmb*hbcm3)+16*(-ffmcfmb*hbcm*p1p2*
3025 . p3p6+ffmcfmb*hbcm*p2p3*p3p6+ffmcfmb*hbcm*p2p4*p3p6+2*ffmcfmb*
3026 . hbcm*p2p5*p3p6-hbcm*p1p2*p4p6+hbcm*p2p3*p4p6+hbcm*p2p4*p4p6+3*
3027 . hbcm*p2p5*p4p6))+w12*(16*(p4p6*p1p3)*(ffmcfmb*hbcm+fmb-hbcm)+8
3028 . *(p3p6*p1p3)*(ffmcfmb*hbcm+fmb-hbcm)+16*p4p6*(-ffmcfmb**2*
3029 . hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3+fmb*
3030 . fmc*hbcm-fmc*hbcm2)+8*p3p6*(-ffmcfmb**2*fmb*hbcm2+ffmcfmb**2*
3031 . fmc*hbcm2-ffmcfmb**2*hbcm3+ffmcfmb*fmb*fmc*hbcm-ffmcfmb*fmb2*
3032 . hbcm+ffmcfmb*hbcm3+fmb*fmc*hbcm-fmc*hbcm2)+16*(-ffmcfmb*hbcm*
3033 . p1p2*p3p6+ffmcfmb*hbcm*p2p3*p3p6+2*ffmcfmb*hbcm*p2p5*p3p6))+
3034 . ans2
3035 ans=ccc*ans1
3036 b(3)=ans
3037 ans3=(p4p6*p3p7*p3p4)*(-16*ffmcfmb+16)+(p4p6*p3p7*p1p3)*(16*
3038 . ffmcfmb-16)+32*(p5p7*p4p6)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*
3039 . (p4p7*p4p6)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(p6p7*p1p4)*(-
3040 . ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+(p3p7*p3p6*p3p4)*(16*ffmcfmb**2-
3041 . 32*ffmcfmb+16)+(p3p7*p3p6*p1p3)*(-16*ffmcfmb**2+32*ffmcfmb-16)
3042 . +16*(p4p6*p3p7)*(-ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm-2*fmb*hbcm
3043 . +hbcm2)+16*(p5p7*p3p6)*(-ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm+
3044 . ffmcfmb*hbcm2)+16*(p4p7*p3p6)*(-ffmcfmb**2*hbcm2-ffmcfmb*fmb*
3045 . hbcm+ffmcfmb*hbcm2)+16*(p3p7*p3p6)*(-ffmcfmb**2*hbcm2-ffmcfmb*
3046 . fmb*hbcm+ffmcfmb*hbcm2)+8*(p6p7*p3p4)*(ffmcfmb**2*hbcm2+2*
3047 . ffmcfmb*fmb*hbcm+fmb2-hbcm2)+8*(p6p7*p1p3)*(-ffmcfmb**2*hbcm2-
3048 . 2*ffmcfmb*fmb*hbcm-fmb2+hbcm2)+8*p6p7*(ffmcfmb**2*fmb*hbcm3+
3049 . ffmcfmb**2*hbcm4+ffmcfmb*fmb2*hbcm2+ffmcfmb*fmc2*hbcm2-ffmcfmb
3050 . *hbcm4+fmb*fmc2*hbcm-fmc2*hbcm2)+16*(-ffmcfmb*hbcm2*p1p2*p6p7+
3051 . ffmcfmb*hbcm2*p2p3*p6p7+ffmcfmb*hbcm2*p2p4*p6p7+p1p2*p1p3*p6p7
3052 . -p1p2*p3p4*p6p7-p1p3*p2p3*p6p7-p1p3*p2p4*p6p7+p2p3*p3p4*p6p7+
3053 . p2p4*p3p4*p6p7)
3054 ans2=w5*ans3
3055 ans5=((p4p6*p3p7)*(32*fb2*ffmcfmb-32*fb2+8)+(p3p7*p3p6)*(-32*
3056 . fb2*ffmcfmb**2+64*fb2*ffmcfmb-32*fb2-16*ffmcfmb+16)+8*p6p7*(2*
3057 . fb2*ffmcfmb**2*hbcm2-4*fb2*ffmcfmb*hbcm2-2*fb2*fmb2+2*fb2*
3058 . hbcm2-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+32*(fb2*p1p2*p6p7-fb2*p2p3
3059 . *p6p7-fb2*p2p4*p6p7))
3060 ans4=w12*((p4p6*p3p7*p1p3)*(16*ffmcfmb-16)+16*(p6p7*p2p4)*(
3061 . ffmcfmb*hbcm2-fmc*hbcm)+16*(p6p7*p2p3)*(ffmcfmb*hbcm2-fmc*hbcm
3062 . )+16*(p6p7*p1p2)*(-ffmcfmb*hbcm2+fmc*hbcm)+(p3p7*p3p6*p1p3)*(-
3063 . 16*ffmcfmb**2+32*ffmcfmb-16)+16*(p4p6*p3p7)*(-ffmcfmb**2*hbcm2
3064 . +ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-fmc*hbcm)+16*(p5p7*p3p6)*(-
3065 . ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm+ffmcfmb*hbcm2)+16*(p3p7*p3p6
3066 . )*(-ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+ffmcfmb
3067 . *hbcm2-fmc*hbcm)+8*(p6p7*p1p3)*(-ffmcfmb**2*hbcm2-2*ffmcfmb*
3068 . fmb*hbcm-fmb2+hbcm2)+8*p6p7*(ffmcfmb**2*fmb*hbcm3+ffmcfmb**2*
3069 . fmc*hbcm3+ffmcfmb**2*hbcm4+ffmcfmb*fmb2*hbcm2-2*ffmcfmb*fmc*
3070 . hbcm3-ffmcfmb*fmc2*hbcm2-ffmcfmb*hbcm4-fmb*fmc2*hbcm-fmb2*fmc*
3071 . hbcm+fmc*hbcm3+fmc2*hbcm2)+16*(p1p2*p1p3*p6p7-p1p3*p2p3*p6p7-
3072 . p1p3*p2p4*p6p7))+ans5
3073 ans1=w8*((p4p6*p3p7*p2p3)*(-16*ffmcfmb+16)+16*(p6p7*p2p4)*(
3074 . ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(p6p7*p1p2)*(-ffmcfmb*hbcm2-
3075 . fmb*hbcm+hbcm2)+(p3p7*p3p6*p2p3)*(16*ffmcfmb**2-32*ffmcfmb+16)
3076 . +8*(p6p7*p2p3)*(ffmcfmb**2*hbcm2+2*ffmcfmb*fmb*hbcm+fmb2-hbcm2
3077 . )+16*(-p1p2*p2p3*p6p7+p2p3*p2p4*p6p7+p2p3s2*p6p7))+ans2+ans4
3078 ans=ccc*ans1
3079 b(4)=ans
3080 ans4=8*p3p7*(-ffmcfmb**2*fmb*hbcm3-ffmcfmb**2*hbcm4-ffmcfmb*fmb
3081 . *fmc*hbcm2+ffmcfmb*fmb*hbcm3-ffmcfmb*fmb2*hbcm2-ffmcfmb*fmc*
3082 . hbcm3-2*ffmcfmb*fmc2*hbcm2+ffmcfmb*hbcm4-2*ffmcfmb*p1p3s2+fmb*
3083 . fmc*hbcm2-fmb*fmc2*hbcm+fmc*hbcm3+2*fmc2*hbcm2+2*p1p3s2)+16*(-
3084 . ffmcfmb*hbcm2*p2p3*p5p7+ffmcfmb*hbcm2*p2p5*p3p7+hbcm2*p2p4*
3085 . p5p7-hbcm2*p2p5*p4p7+p1p3*p2p3*p5p7-p1p3*p2p5*p3p7-p2p3*p3p4*
3086 . p5p7+p2p5*p3p4*p3p7)
3087 ans3=(p3p7*p3p5*p3p4)*(-16*ffmcfmb+16)+(p3p7*p3p4*p2p3)*(16*
3088 . ffmcfmb-16)+(p3p7*p3p5*p1p3)*(16*ffmcfmb-16)+(p3p7*p3p4*p1p3)*
3089 . (16*ffmcfmb-16)+(p3p7*p2p3*p1p3)*(-16*ffmcfmb+16)+16*(p4p7*
3090 . p3p5)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+24*(p5p7*p3p4)*(ffmcfmb*
3091 . hbcm2+fmb*hbcm-hbcm2)+16*(p4p7*p2p3)*(ffmcfmb*hbcm2+fmb*hbcm-
3092 . hbcm2)+16*(p3p7*p1p4)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(p5p7*
3093 . p1p3)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*p5p7*(ffmcfmb**2*hbcm4
3094 . +ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*hbcm3-ffmcfmb*hbcm4+fmb*fmc*
3095 . hbcm2-fmc*hbcm3)+8*p4p7*(ffmcfmb**2*hbcm4+2*ffmcfmb*fmb*hbcm3-
3096 . 2*ffmcfmb*hbcm4-2*fmb*hbcm3+fmb2*hbcm2+hbcm4)+16*(p3p7*p3p5)*(
3097 . -ffmcfmb**2*hbcm2-ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2+fmc*hbcm)+8*(
3098 . p3p7*p3p4)*(-2*ffmcfmb**2*hbcm2-4*ffmcfmb*fmb*hbcm-ffmcfmb*fmc
3099 . *hbcm+ffmcfmb*hbcm2+3*fmb*hbcm-fmb2+fmc*hbcm+hbcm2)+16*(p3p7*
3100 . p2p3)*(ffmcfmb**2*hbcm2+ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2-fmc*
3101 . hbcm)+8*(p3p7*p1p3)*(2*ffmcfmb**2*hbcm2+2*ffmcfmb*fmb*hbcm+
3102 . ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2-fmb*hbcm+fmb2-fmc*hbcm-hbcm2)+
3103 . ans4
3104 ans2=w5*ans3
3105 ans6=((p3p7*p3p5)*(32*fb2*ffmcfmb-32*fb2+8)+(p3p7*p2p3)*(-32*
3106 . fb2*ffmcfmb+32*fb2-8)+(p3p7*p1p3)*(-32*fb2*ffmcfmb+32*fb2-8)+4
3107 . *p5p7*(-4*fb1*fmb*hbcm-4*fb2*ffmcfmb*hbcm2+4*fb2*hbcm2+hbcm2)+
3108 . 4*p3p7*(4*fb1*ffmcfmb*fmc*hbcm-4*fb1*fmb*hbcm-4*fb1*fmc*hbcm+4
3109 . *fb2*ffmcfmb*hbcm2+4*fb2*fmb2-4*fb2*hbcm2+2*ffmcfmb*hbcm2+2*
3110 . fmb*hbcm-fmc*hbcm+hbcm2)+32*(fb2*p2p3*p5p7-fb2*p2p5*p3p7))
3111 ans5=w12*((p3p7*p3p5*p1p3)*(16*ffmcfmb-16)+(p3p7*p2p3*p1p3)*(-
3112 . 16*ffmcfmb+16)+16*(p3p7*p2p5)*(ffmcfmb*hbcm2-fmc*hbcm)+16*(
3113 . p5p7*p2p3)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(p5p7*p1p3)*(-ffmcfmb*
3114 . hbcm2-fmb*hbcm+hbcm2)+8*p5p7*(ffmcfmb**2*hbcm4+ffmcfmb*fmb*
3115 . hbcm3-ffmcfmb*fmc*hbcm3-ffmcfmb*hbcm4-fmb*fmc*hbcm2+fmc*hbcm3)
3116 . +16*(p3p7*p3p5)*(-ffmcfmb**2*hbcm2+ffmcfmb*fmc*hbcm+ffmcfmb*
3117 . hbcm2-fmc*hbcm)+16*(p3p7*p2p3)*(ffmcfmb**2*hbcm2-ffmcfmb*fmc*
3118 . hbcm-ffmcfmb*hbcm2+fmc*hbcm)+8*(p3p7*p1p3)*(2*ffmcfmb**2*hbcm2
3119 . +2*ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2-fmb*hbcm+
3120 . fmb2+fmc*hbcm-hbcm2)+8*p3p7*(-ffmcfmb**2*fmb*hbcm3-ffmcfmb**2*
3121 . fmc*hbcm3-ffmcfmb**2*hbcm4+ffmcfmb*fmb*hbcm3-ffmcfmb*fmb2*
3122 . hbcm2+2*ffmcfmb*fmc*hbcm3+ffmcfmb*fmc2*hbcm2+ffmcfmb*hbcm4-2*
3123 . ffmcfmb*p1p3s2-fmb*fmc*hbcm2+fmb*fmc2*hbcm+fmb2*fmc*hbcm-fmc*
3124 . hbcm3-fmc2*hbcm2+2*p1p3s2)+16*(p1p3*p2p3*p5p7-p1p3*p2p5*p3p7))
3125 . +ans6
3126 ans1=w8*(16*p3p7*(ffmcfmb*p2p3s2-p2p3s2)+(p3p7*p3p5*p2p3)*(-16*
3127 . ffmcfmb+16)+(p3p7*p2p3*p1p3)*(16*ffmcfmb-16)+16*(p3p7*p2p5)*(2
3128 . *ffmcfmb*hbcm2+fmb*hbcm-2*hbcm2)+24*(p5p7*p2p3)*(-ffmcfmb*
3129 . hbcm2-fmb*hbcm+hbcm2)+16*(p3p7*p1p2)*(-ffmcfmb*hbcm2+hbcm2)+8*
3130 . (p3p7*p2p3)*(ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2-fmb*hbcm-fmb2-fmc*
3131 . hbcm+hbcm2)+16*(p2p3*p2p5*p3p7-p2p3s2*p5p7))+ans2+ans5
3132 ans=ccc*ans1
3133 b(5)=ans
3134 ans3=w12*(16*(p3p6*p2p5)*(2*ffmcfmb*hbcm2-fmc*hbcm)+16*(p4p6*
3135 . p2p3)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(p4p6*p1p3)*(-ffmcfmb*hbcm2-
3136 . fmb*hbcm+hbcm2)+8*(p3p6*p1p3)*(ffmcfmb*fmb*hbcm-fmb*hbcm+fmb2)
3137 . +8*p4p6*(ffmcfmb**2*hbcm4+ffmcfmb*fmb*hbcm3-ffmcfmb*fmc*hbcm3-
3138 . ffmcfmb*hbcm4-fmb*fmc*hbcm2+fmc*hbcm3)+16*(p3p6*p3p5)*(ffmcfmb
3139 . **2*hbcm2+ffmcfmb*fmb*hbcm-ffmcfmb*hbcm2)+16*(p3p6*p2p3)*(-
3140 . ffmcfmb**2*hbcm2+ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2)+8*p3p6*(-
3141 . ffmcfmb**2*fmb*hbcm3-ffmcfmb**2*fmc*hbcm3+ffmcfmb**2*hbcm4+2*
3142 . ffmcfmb*fmb*hbcm3-ffmcfmb*fmb2*hbcm2+ffmcfmb*fmc*hbcm3+ffmcfmb
3143 . *fmc2*hbcm2-ffmcfmb*hbcm4-fmb*fmc*hbcm2+fmb*fmc2*hbcm+fmb2*fmc
3144 . *hbcm-fmc2*hbcm2)+16*(-ffmcfmb*hbcm2*p1p2*p3p6+ffmcfmb*p1p3*
3145 . p2p3*p3p6+p1p3*p2p3*p4p6-p1p3*p2p5*p3p6))+((p3p6*p2p3)*(32*fb2
3146 . *ffmcfmb+8)+4*p4p6*(-4*fb1*fmb*hbcm-4*fb2*ffmcfmb*hbcm2+4*fb2*
3147 . hbcm2+hbcm2)+4*p3p6*(4*fb1*ffmcfmb*fmb*hbcm-4*fb1*fmb*hbcm+4*
3148 . fb2*fmb2+2*ffmcfmb*hbcm2+3*fmb*hbcm-2*hbcm2)+32*(fb2*p2p3*p4p6
3149 . -fb2*p2p5*p3p6))
3150 ans2=w5*(32*(p4p6*p3p5)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+24*(p4p6
3151 . *p3p4)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(p4p6*p2p3)*(-2*
3152 . ffmcfmb*hbcm2-fmb*hbcm+2*hbcm2)+16*(p3p6*p1p4)*(ffmcfmb*hbcm2+
3153 . fmb*hbcm-hbcm2)+24*(p4p6*p1p3)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)
3154 . +8*(p3p6*p3p4)*(-ffmcfmb*fmb*hbcm+fmb*hbcm-fmb2)+8*(p3p6*p1p3)
3155 . *(ffmcfmb*fmb*hbcm-fmb*hbcm+fmb2)+8*p4p6*(ffmcfmb**2*hbcm4+
3156 . ffmcfmb*hbcm4+3*fmb*hbcm3-fmb2*hbcm2-2*hbcm4)+16*(p3p6*p3p5)*(
3157 . ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm-ffmcfmb*hbcm2)+16*(p3p6*p2p3
3158 . )*(-ffmcfmb**2*hbcm2+ffmcfmb*hbcm2)+8*p3p6*(-ffmcfmb**2*fmb*
3159 . hbcm3+ffmcfmb**2*hbcm4+2*ffmcfmb*fmb*hbcm3-ffmcfmb*fmb2*hbcm2-
3160 . ffmcfmb*fmc2*hbcm2-ffmcfmb*hbcm4-fmb*fmc2*hbcm+fmc2*hbcm2)+16*
3161 . (-ffmcfmb*hbcm2*p1p2*p3p6+ffmcfmb*hbcm2*p2p4*p3p6+2*ffmcfmb*
3162 . hbcm2*p2p5*p3p6+ffmcfmb*p1p3*p2p3*p3p6-ffmcfmb*p2p3*p3p4*p3p6-
3163 . hbcm2*p1p2*p4p6+hbcm2*p2p4*p4p6+2*hbcm2*p2p5*p4p6+p1p3*p2p3*
3164 . p4p6-p1p3*p2p5*p3p6-p2p3*p3p4*p4p6+p2p5*p3p4*p3p6))+ans3
3165 ans1=w8*(16*(p3p6*p2p5)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+24*(p4p6
3166 . *p2p3)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(p3p6*p2p3)*(-2*
3167 . ffmcfmb**2*hbcm2-3*ffmcfmb*fmb*hbcm+2*ffmcfmb*hbcm2+fmb*hbcm-
3168 . fmb2)+16*(-ffmcfmb*p2p3s2*p3p6+p2p3*p2p5*p3p6-p2p3s2*p4p6))+
3169 . ans2
3170 ans=ccc*ans1
3171 b(6)=ans
3172 ans2=w12*(24*p2p5*(-ffmcfmb*hbcm2+fmc*hbcm)+8*p2p3*(-ffmcfmb*
3173 . hbcm2+fmc*hbcm)+8*p1p2*(ffmcfmb*hbcm2-fmc*hbcm)+4*p1p3*(-
3174 . ffmcfmb**2*hbcm2-3*ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm-fmb*fmc+
3175 . fmb*hbcm-2*fmb2+fmc*hbcm+hbcm2)+4*(2*ffmcfmb**2*fmb*hbcm3+2*
3176 . ffmcfmb**2*fmc*hbcm3+ffmcfmb**2*hbcm4-ffmcfmb*fmb*hbcm3+2*
3177 . ffmcfmb*fmb2*hbcm2-3*ffmcfmb*fmc*hbcm3-2*ffmcfmb*fmc2*hbcm2-
3178 . ffmcfmb*hbcm4+fmb*fmc*hbcm2-2*fmb*fmc2*hbcm-2*fmb2*fmc*hbcm+
3179 . fmc*hbcm3+2*fmc2*hbcm2-2*p1p2*p1p3+2*p1p3*p2p3+6*p1p3*p2p5))+2
3180 . *(-4*fb1*ffmcfmb*fmb*hbcm-4*fb1*ffmcfmb*fmc*hbcm+4*fb1*fmb*
3181 . hbcm+4*fb1*fmc*hbcm+4*fb2*ffmcfmb**2*hbcm2-8*fb2*ffmcfmb*hbcm2
3182 . -4*fb2*fmb*fmc-8*fb2*fmb2+4*fb2*hbcm2-8*fb2*p1p2+8*fb2*p2p3+24
3183 . *fb2*p2p5-2*ffmcfmb*hbcm2-3*fmb*hbcm-fmc*hbcm+2*hbcm2)
3184 ans1=w8*(24*p2p5*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*p1p2*(
3185 . ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+4*p2p3*(ffmcfmb**2*hbcm2+3*
3186 . ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm-4*ffmcfmb*hbcm2+fmb*fmc-5*
3187 . fmb*hbcm+2*fmb2-fmc*hbcm+3*hbcm2)+8*(p1p2*p2p3-3*p2p3*p2p5-
3188 . p2p3s2))+w5*(8*p2p5*(-3*ffmcfmb*hbcm2-fmc*hbcm)+8*p2p4*(-
3189 . ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*p1p4*(-ffmcfmb*hbcm2-fmb*hbcm
3190 . +hbcm2)+4*p3p4*(ffmcfmb**2*hbcm2+3*ffmcfmb*fmb*hbcm+ffmcfmb*
3191 . fmc*hbcm+2*ffmcfmb*hbcm2+fmb*fmc+fmb*hbcm+2*fmb2-fmc*hbcm-3*
3192 . hbcm2)+4*p1p3*(-ffmcfmb**2*hbcm2-3*ffmcfmb*fmb*hbcm-ffmcfmb*
3193 . fmc*hbcm-fmb*fmc+fmb*hbcm-2*fmb2+fmc*hbcm+hbcm2)+4*(2*ffmcfmb
3194 . **2*fmb*hbcm3+ffmcfmb**2*hbcm4+ffmcfmb*fmb*fmc*hbcm2-ffmcfmb*
3195 . fmb*hbcm3+2*ffmcfmb*fmb2*hbcm2+ffmcfmb*fmc*hbcm3+3*ffmcfmb*
3196 . fmc2*hbcm2+2*ffmcfmb*hbcm2*p1p2-2*ffmcfmb*hbcm2*p2p3-ffmcfmb*
3197 . hbcm4+3*fmb*fmc2*hbcm+fmb2*fmc*hbcm-fmc*hbcm3-3*fmc2*hbcm2-2*
3198 . p1p2*p1p3+2*p1p2*p3p4+2*p1p3*p2p3+6*p1p3*p2p5-2*p2p3*p3p4-6*
3199 . p2p5*p3p4))+ans2
3200 ans=ccc*ans1
3201 b(7)=ans
3202 ans4=4*(ffmcfmb**2*fmb*hbcm4-2*ffmcfmb**2*hbcm5+ffmcfmb*fmb*fmc
3203 . *hbcm3-3*ffmcfmb*fmb*hbcm4+ffmcfmb*fmb2*hbcm3-ffmcfmb*fmc*
3204 . hbcm4-2*ffmcfmb*fmc2*hbcm3-2*ffmcfmb*hbcm*p1p3s2+2*ffmcfmb*
3205 . hbcm3*p1p2+2*ffmcfmb*hbcm5-2*fmb*fmc*hbcm3-2*fmb*fmc2*hbcm2-2*
3206 . fmb*p1p3s2+fmb2*fmc*hbcm2+fmc*hbcm4+2*fmc2*hbcm3-2*hbcm*p1p2*
3207 . p1p3+2*hbcm*p1p2*p3p4+4*hbcm*p1p3*p2p5+2*hbcm*p1p3s2-4*hbcm*
3208 . p1p4*p2p3-4*hbcm*p2p3*p2p4+4*hbcm*p2p4*p3p5-8*hbcm*p2p5*p3p4)
3209 ans3=8*p2p5*(-2*ffmcfmb*hbcm3-fmc*hbcm2)+8*p2p4*(-ffmcfmb*hbcm3
3210 . +fmb*hbcm2+hbcm3)+8*p1p4*(ffmcfmb*hbcm3+fmb*hbcm2-hbcm3)+16*(
3211 . p3p5*p3p4)*(-ffmcfmb*hbcm-fmb+hbcm)+8*(p3p4*p2p3)*(3*ffmcfmb*
3212 . hbcm+fmb-2*hbcm)+16*(p3p5*p1p3)*(ffmcfmb*hbcm+fmb-hbcm)+8*(
3213 . p3p4*p1p3)*(ffmcfmb*hbcm+fmb-hbcm)+8*(p2p3*p1p3)*(-3*ffmcfmb*
3214 . hbcm-fmb+2*hbcm)+8*p3p5*(-2*ffmcfmb**2*hbcm3-2*ffmcfmb*fmb*
3215 . hbcm2-ffmcfmb*fmc*hbcm2+2*ffmcfmb*hbcm3-fmb*fmc*hbcm+fmc*hbcm2
3216 . )+4*p3p4*(-2*ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*
3217 . hbcm2-fmb*fmc*hbcm-5*fmb*hbcm2+3*fmb2*hbcm+fmc*hbcm2+2*hbcm3)+
3218 . 8*p2p3*(2*ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2
3219 . -2*ffmcfmb*hbcm3+fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+4*p1p3*(2*
3220 . ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+fmb*fmc*
3221 . hbcm+3*fmb*hbcm2-fmb2*hbcm-fmc*hbcm2-2*hbcm3)+ans4
3222 ans2=w5*ans3
3223 ans6=(8*p3p5*(4*fb1*ffmcfmb*hbcm-4*fb1*hbcm+4*fb2*fmb+hbcm)+4*
3224 . p2p3*(-4*fb1*ffmcfmb*hbcm+8*fb1*hbcm-4*fb2*fmb-3*hbcm)+4*p1p3*
3225 . (-4*fb1*ffmcfmb*hbcm+4*fb1*hbcm-4*fb2*fmb-hbcm)+2*(8*fb1*
3226 . ffmcfmb*hbcm3+4*fb1*fmb*fmc*hbcm-4*fb1*fmb2*hbcm-8*fb1*hbcm*
3227 . p1p2+16*fb1*hbcm*p2p5-8*fb1*hbcm3-4*fb2*ffmcfmb*fmb*hbcm2+4*
3228 . fb2*ffmcfmb*fmc*hbcm2+12*fb2*fmb*hbcm2-4*fb2*fmc*hbcm2+fmb*
3229 . hbcm2-fmc*hbcm2+2*hbcm3))
3230 ans5=w12*(16*p2p5*(-ffmcfmb*hbcm3+fmc*hbcm2)+8*p1p2*(ffmcfmb*
3231 . hbcm3-fmc*hbcm2)+16*(p3p5*p1p3)*(ffmcfmb*hbcm+fmb-hbcm)+8*(
3232 . p2p3*p1p3)*(-3*ffmcfmb*hbcm-fmb+2*hbcm)+16*p3p5*(-ffmcfmb**2*
3233 . hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3+fmb*
3234 . fmc*hbcm-fmc*hbcm2)+8*p2p3*(2*ffmcfmb**2*hbcm3+ffmcfmb*fmb*
3235 . hbcm2-ffmcfmb*fmc*hbcm2-2*ffmcfmb*hbcm3-fmb*fmc*hbcm+2*fmc*
3236 . hbcm2-fmc2*hbcm)+4*p1p3*(2*ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2-
3237 . ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm+3*fmb*hbcm2-fmb2*hbcm+fmc*hbcm2
3238 . -2*hbcm3)+4*(ffmcfmb**2*fmb*hbcm4-ffmcfmb**2*fmc*hbcm4-2*
3239 . ffmcfmb**2*hbcm5-2*ffmcfmb*fmb*fmc*hbcm3-3*ffmcfmb*fmb*hbcm4+
3240 . ffmcfmb*fmb2*hbcm3+3*ffmcfmb*fmc*hbcm4+ffmcfmb*fmc2*hbcm3-2*
3241 . ffmcfmb*hbcm*p1p3s2+2*ffmcfmb*hbcm5+3*fmb*fmc*hbcm3+fmb*fmc2*
3242 . hbcm2-2*fmb*p1p3s2-fmb2*fmc*hbcm2-2*fmc*hbcm4-fmc2*hbcm3-2*
3243 . hbcm*p1p2*p1p3+4*hbcm*p1p3*p2p5+2*hbcm*p1p3s2))+ans6
3244 ans1=w8*(16*p2p5*(ffmcfmb*hbcm3+fmb*hbcm2-hbcm3)+8*p1p2*(-
3245 . ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+16*(p3p5*p2p3)*(-ffmcfmb*hbcm-
3246 . fmb+hbcm)+8*(p2p3*p1p3)*(ffmcfmb*hbcm+fmb-hbcm)+4*p2p3*(2*
3247 . ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2-4*ffmcfmb
3248 . *hbcm3+fmb*fmc*hbcm+fmb*hbcm2-3*fmb2*hbcm-fmc*hbcm2+2*hbcm3)+8
3249 . *(3*ffmcfmb*hbcm*p2p3s2+fmb*p2p3s2-hbcm*p1p2*p2p3+2*hbcm*p2p3*
3250 . p2p5-2*hbcm*p2p3s2))+ans2+ans5
3251 ans=ccc*ans1
3252 b(8)=ans
3253 b(9)=ccc*(w8*(16*p4p6*(ffmcfmb*hbcm3+fmb*hbcm2-hbcm3)+8*(p3p6*
3254 . p2p3)*(2*ffmcfmb*hbcm-hbcm)+8*p3p6*(ffmcfmb**2*hbcm3-ffmcfmb*
3255 . hbcm3+fmb*hbcm2-fmb2*hbcm)+16*hbcm*p2p3*p4p6)+w5*(8*p4p6*(-fmb
3256 . *hbcm2-4*hbcm3)+8*p3p6*(ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2-3*
3257 . ffmcfmb*hbcm3+fmc2*hbcm)+8*(2*ffmcfmb*hbcm*p2p3*p3p6-4*ffmcfmb
3258 . *hbcm*p3p5*p3p6+hbcm*p1p3*p3p6+4*hbcm*p1p3*p4p6-2*hbcm*p1p4*
3259 . p3p6+4*hbcm*p2p3*p4p6-hbcm*p3p4*p3p6-4*hbcm*p3p4*p4p6-6*hbcm*
3260 . p3p5*p4p6))+w12*(16*p4p6*(-ffmcfmb*hbcm3+fmc*hbcm2)+8*p3p6*(
3261 . ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2-3*ffmcfmb
3262 . *hbcm3+fmc*hbcm2-fmc2*hbcm)+8*(2*ffmcfmb*hbcm*p2p3*p3p6-4*
3263 . ffmcfmb*hbcm*p3p5*p3p6+hbcm*p1p3*p3p6+2*hbcm*p1p3*p4p6))+(8*
3264 . p3p6*(2*fb1*hbcm-hbcm)+32*fb1*hbcm*p4p6))
3265 b(10)=ccc*(w8*((p3p6*p2p3)*(8*ffmcfmb+8)+24*p4p6*(ffmcfmb*hbcm2
3266 . +fmb*hbcm-hbcm2)+8*p3p6*(ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm+fmb
3267 . *hbcm-hbcm2)+24*p2p3*p4p6)+w5*((p3p6*p3p4)*(8*ffmcfmb+8)+(p3p6
3268 . *p1p3)*(-8*ffmcfmb-8)+8*p4p6*(3*ffmcfmb*hbcm2-fmb*hbcm)+8*p3p6
3269 . *(ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm+ffmcfmb*hbcm2)+24*(-p1p3*
3270 . p4p6+p3p4*p4p6))+w12*((p3p6*p1p3)*(-8*ffmcfmb-8)+24*p4p6*(
3271 . ffmcfmb*hbcm2-fmc*hbcm)+8*p3p6*(ffmcfmb**2*hbcm2-ffmcfmb*fmb*
3272 . hbcm-2*ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-fmc*hbcm)-24*p1p3*p4p6)+
3273 . (p3p6*(-16*fb2*ffmcfmb-16*fb2-4)-48*fb2*p4p6))
3274 ans2=4*(-2*fb1*fmb*hbcm-2*fb1*fmc*hbcm+4*fb2*ffmcfmb*hbcm2-8*
3275 . fb2*hbcm2+4*fb2*p1p3+8*fb2*p2p3-12*fb2*p3p5-hbcm2)
3276 ans1=w8*(24*p3p5*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+4*p2p3*(-4*
3277 . ffmcfmb*hbcm2-5*fmb*hbcm-fmc*hbcm+6*hbcm2)+8*p1p3*(-ffmcfmb*
3278 . hbcm2-fmb*hbcm+hbcm2)+4*(-ffmcfmb**2*hbcm4-3*ffmcfmb*fmb*hbcm3
3279 . -ffmcfmb*fmc*hbcm3+4*ffmcfmb*hbcm4-fmb*fmc*hbcm2+5*fmb*hbcm3-2
3280 . *fmb2*hbcm2+fmc*hbcm3-3*hbcm4-2*p1p3*p2p3+6*p2p3*p3p5-4*p2p3s2
3281 . ))+w5*(4*p3p4*(fmb*hbcm+fmc*hbcm+6*hbcm2)+8*p3p5*(3*ffmcfmb*
3282 . hbcm2+fmc*hbcm)+8*p2p3*(-2*ffmcfmb*hbcm2-fmc*hbcm)+4*p1p3*(-2*
3283 . ffmcfmb*hbcm2-fmb*hbcm-fmc*hbcm-4*hbcm2)+4*(-ffmcfmb**2*hbcm4+
3284 . ffmcfmb*fmb*hbcm3-ffmcfmb*fmc*hbcm3+4*ffmcfmb*hbcm4+2*fmc*
3285 . hbcm3+3*fmc2*hbcm2-4*hbcm2*p1p4-2*hbcm2*p2p4+4*p1p3*p2p3-2*
3286 . p1p3*p3p4-6*p1p3*p3p5+2*p1p3s2-4*p2p3*p3p4+6*p3p4*p3p5))+w12*(
3287 . 24*p3p5*(ffmcfmb*hbcm2-fmc*hbcm)+16*p2p3*(-ffmcfmb*hbcm2+fmc*
3288 . hbcm)+4*p1p3*(-2*ffmcfmb*hbcm2-fmb*hbcm+fmc*hbcm-4*hbcm2)+4*(-
3289 . ffmcfmb**2*hbcm4+ffmcfmb*fmb*hbcm3+3*ffmcfmb*fmc*hbcm3+4*
3290 . ffmcfmb*hbcm4-fmb*fmc*hbcm2-4*fmc*hbcm3-2*fmc2*hbcm2+4*p1p3*
3291 . p2p3-6*p1p3*p3p5+2*p1p3s2))+ans2
3292 ans=ccc*ans1
3293 b(11)=ans
3294 ans=ccc*(w8*(16*p5p7*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+32*(p3p7*
3295 . p3p5)*(ffmcfmb*hbcm-hbcm)+8*(p3p7*p2p3)*(-4*ffmcfmb*hbcm+3*
3296 . hbcm)+16*(p3p7*p1p3)*(-ffmcfmb*hbcm+hbcm)+8*p3p7*(-ffmcfmb**2*
3297 . hbcm3+ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2+3*ffmcfmb*hbcm3-2*
3298 . fmb*hbcm2+fmb2*hbcm+fmc*hbcm2-2*hbcm3)-16*hbcm*p2p3*p5p7)+w5*(
3299 . 8*p5p7*(2*ffmcfmb*hbcm3+fmc*hbcm2)+16*p4p7*(ffmcfmb*hbcm3-
3300 . hbcm3)+8*(p3p7*p3p4)*(-4*ffmcfmb*hbcm+3*hbcm)+8*(p3p7*p1p3)*(2
3301 . *ffmcfmb*hbcm-hbcm)+8*p3p7*(-ffmcfmb**2*hbcm3-ffmcfmb*fmc*
3302 . hbcm2+ffmcfmb*hbcm3+fmc*hbcm2-fmc2*hbcm)+16*(-hbcm*p1p3*p5p7+
3303 . hbcm*p1p4*p3p7+hbcm*p2p3*p4p7+2*hbcm*p3p4*p5p7-hbcm*p3p5*p4p7)
3304 . )+w12*(16*p5p7*(ffmcfmb*hbcm3-fmc*hbcm2)+8*(p3p7*p1p3)*(2*
3305 . ffmcfmb*hbcm-hbcm)+8*p3p7*(-ffmcfmb**2*hbcm3+ffmcfmb*hbcm3-fmc
3306 . *hbcm2+fmc2*hbcm)-16*hbcm*p1p3*p5p7)+(8*p3p7*(-2*fb1*hbcm+hbcm
3307 . )-32*fb1*hbcm*p5p7))
3308 b(12)=ans
3309 b(13)=ccc*(w8*(4*p2p3*(-4*ffmcfmb*hbcm+fmb-fmc+4*hbcm)+4*(-2*
3310 . ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2+4*ffmcfmb
3311 . *hbcm3-fmb*fmc*hbcm-fmb*hbcm2+3*fmb2*hbcm+fmc*hbcm2-2*hbcm3))+
3312 . w5*(4*p3p4*(-4*ffmcfmb*hbcm+fmb-fmc-2*hbcm)+4*p1p3*(4*ffmcfmb*
3313 . hbcm-fmb+fmc)+4*(-2*ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2-ffmcfmb
3314 . *fmc*hbcm2-4*fmc2*hbcm+6*hbcm*p1p4+2*hbcm*p2p4))+w12*(4*p1p3*(
3315 . 4*ffmcfmb*hbcm-fmb+fmc)+4*(-2*ffmcfmb**2*hbcm3+ffmcfmb*fmb*
3316 . hbcm2-ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm+3*fmc2*hbcm))+8*(-fb2*fmb
3317 . +fb2*fmc+hbcm))
3318 b(14)=ccc*(w8*((p3p7*p2p3)*(-8*ffmcfmb+16)+24*p5p7*(ffmcfmb*
3319 . hbcm2+fmb*hbcm-hbcm2)+8*p3p7*(-ffmcfmb**2*hbcm2-2*ffmcfmb*fmb*
3320 . hbcm-ffmcfmb*fmc*hbcm+3*ffmcfmb*hbcm2+3*fmb*hbcm+fmc*hbcm-2*
3321 . hbcm2)+24*p2p3*p5p7)+w5*((p3p7*p3p4)*(-8*ffmcfmb+16)+(p3p7*
3322 . p1p3)*(8*ffmcfmb-16)+8*p5p7*(3*ffmcfmb*hbcm2+fmc*hbcm)+8*p3p7*
3323 . (-ffmcfmb**2*hbcm2-ffmcfmb*fmc*hbcm+2*ffmcfmb*hbcm2+fmc*hbcm)+
3324 . 24*(-p1p3*p5p7+p3p4*p5p7))+w12*((p3p7*p1p3)*(8*ffmcfmb-16)+24*
3325 . p5p7*(ffmcfmb*hbcm2-fmc*hbcm)+8*p3p7*(-ffmcfmb**2*hbcm2+
3326 . ffmcfmb*fmc*hbcm+2*ffmcfmb*hbcm2-2*fmc*hbcm)-24*p1p3*p5p7)+(
3327 . p3p7*(16*fb2*ffmcfmb-32*fb2+4)-48*fb2*p5p7))
3328 ans2=w12*((p3p7*p3p6*p1p3)*(-32*ffmcfmb+16)+16*(p4p6*p3p7)*(
3329 . ffmcfmb*hbcm2-fmc*hbcm)+16*(p5p7*p3p6)*(-2*ffmcfmb*hbcm2+fmc*
3330 . hbcm)+16*(p6p7*p3p4)*(-ffmcfmb*hbcm2+fmc*hbcm)+16*(p6p7*p1p3)*
3331 . (ffmcfmb*hbcm2-fmc*hbcm)+8*p6p7*(-ffmcfmb**2*hbcm4+2*ffmcfmb*
3332 . fmc*hbcm3-fmc2*hbcm2-2*p1p3s2)+16*(p3p7*p3p6)*(ffmcfmb**2*
3333 . hbcm2-2*ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2+fmc*hbcm)+16*(p1p3*p3p4
3334 . *p6p7+p1p3*p3p6*p5p7-p1p3*p3p7*p4p6))+((p3p7*p3p6)*(-64*fb2*
3335 . ffmcfmb+32*fb2-16)+8*p6p7*(4*fb2*ffmcfmb*hbcm2-hbcm2)+32*(-fb2
3336 . *p1p3*p6p7+fb2*p3p4*p6p7+fb2*p3p6*p5p7-fb2*p3p7*p4p6))
3337 ans1=w8*((p3p7*p3p6*p2p3)*(32*ffmcfmb-16)+16*(p4p6*p3p7)*(2*
3338 . ffmcfmb*hbcm2+fmb*hbcm-2*hbcm2)+16*(p5p7*p3p6)*(-ffmcfmb*hbcm2
3339 . -fmb*hbcm+hbcm2)+16*(p6p7*p3p4)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2
3340 . )+16*(p6p7*p1p3)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*p6p7*(-
3341 . ffmcfmb**2*hbcm4-2*ffmcfmb*fmb*hbcm3-fmb2*hbcm2+hbcm4)+16*(
3342 . p3p7*p3p6)*(ffmcfmb**2*hbcm2+2*ffmcfmb*fmb*hbcm-ffmcfmb*hbcm2-
3343 . fmb*hbcm)+16*(-hbcm2*p2p3*p6p7+p1p3*p2p3*p6p7-p2p3*p3p4*p6p7-
3344 . p2p3*p3p6*p5p7+p2p3*p3p7*p4p6))+w5*((p3p7*p3p6*p3p4)*(32*
3345 . ffmcfmb-16)+(p3p7*p3p6*p1p3)*(-32*ffmcfmb+16)+16*(p4p6*p3p7)*(
3346 . ffmcfmb*hbcm2-hbcm2)+8*p6p7*(-ffmcfmb**2*hbcm4+fmc2*hbcm2-2*
3347 . p1p3s2-2*p3p4s2)+16*(p3p7*p3p6)*(ffmcfmb**2*hbcm2-ffmcfmb*
3348 . hbcm2)+16*(ffmcfmb*hbcm2*p1p3*p6p7-ffmcfmb*hbcm2*p3p4*p6p7-
3349 . ffmcfmb*hbcm2*p3p6*p4p7-2*ffmcfmb*hbcm2*p3p6*p5p7-hbcm2*p1p4*
3350 . p6p7-hbcm2*p4p6*p4p7-2*hbcm2*p4p6*p5p7+2*p1p3*p3p4*p6p7+p1p3*
3351 . p3p6*p5p7-p1p3*p3p7*p4p6-p3p4*p3p6*p5p7+p3p4*p3p7*p4p6))+ans2
3352 ans=ccc*ans1
3353 b(15)=ans
3354 b(16)=ccc*(w8*(32*(p4p6*p3p7)*(ffmcfmb*hbcm-hbcm)+16*(p3p7*p3p6
3355 . )*(ffmcfmb*hbcm-hbcm)+16*(p6p7*p2p3)*(ffmcfmb*hbcm-hbcm)+8*
3356 . p6p7*(ffmcfmb**2*hbcm3-2*ffmcfmb*hbcm3-fmb2*hbcm+hbcm3))+w5*(
3357 . 16*(p4p6*p3p7)*(ffmcfmb*hbcm-2*hbcm)+8*p6p7*(ffmcfmb**2*hbcm3+
3358 . fmc2*hbcm)+16*(-ffmcfmb*hbcm*p1p3*p6p7+ffmcfmb*hbcm*p3p4*p6p7-
3359 . ffmcfmb*hbcm*p3p6*p3p7-ffmcfmb*hbcm*p3p6*p4p7-2*ffmcfmb*hbcm*
3360 . p3p6*p5p7-hbcm*p1p4*p6p7-hbcm*p4p6*p4p7-3*hbcm*p4p6*p5p7))+w12
3361 . *(8*p6p7*(ffmcfmb**2*hbcm3-fmc2*hbcm)+16*(-ffmcfmb*hbcm*p1p3*
3362 . p6p7-ffmcfmb*hbcm*p3p6*p3p7-2*ffmcfmb*hbcm*p3p6*p5p7))-8*hbcm*
3363 . p6p7)
3364 do 200 n=1,16
3365 c(n,1)=c(n,1)-0.1818181818181818d0*b(n)
3366 c(n,2)=c(n,2)-0.05883183899358491d0*b(n)
3367 c(n,3)=c(n,3)-0.2077659977796572d0*b(n)
3368 200 continue
3369 return
3370 end
3371
3372 subroutine amp20_3p0(cc)
3373 implicit double precision(a-h,o-z)
3374 implicit integer (i-n)
3375 dimension b(16)
3376 #include "inclcon.h"
3377 #include "inclppp.h"
3378 #include "inclamp.h"
3379 do 100 n=1,16
3380 b(n)=0.0d0
3381 100 continue
3382 ccc=cc/((ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2)*(ffmcfmb**2*
3383 . hbcm2-2*ffmcfmb*hbcm2+2*ffmcfmb*p1p3-fmb2+hbcm2-2*p1p3)*(
3384 . ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+2*ffmcfmb*p3p5+fmc2+2*p4p5))
3385 ans4=16*(2*ffmcfmb*hbcm*p1p3*p3p6*p4p7-2*ffmcfmb*hbcm*p1p3*p3p7
3386 . *p4p6+2*ffmcfmb*hbcm*p2p3*p3p6*p4p7-2*ffmcfmb*hbcm*p2p3*p3p7*
3387 . p4p6-2*ffmcfmb*hbcm*p3p5*p3p6*p4p7+2*ffmcfmb*hbcm*p3p5*p3p7*
3388 . p4p6-ffmcfmb*hbcm3*p4p6*p5p7+fmc*hbcm2*p1p4*p6p7-fmc*hbcm2*
3389 . p5p6*p5p7-fmc*p1p3*p3p4*p6p7-fmc2*hbcm*p1p3*p6p7+hbcm*p1p4*
3390 . p3p4*p6p7+hbcm*p3p4*p4p6*p4p7-hbcm*p3p4*p5p6*p5p7)
3391 ans3=16*(p4p7*p3p6*p3p4)*(fmc+hbcm)+16*(p4p7*p4p6)*(-ffmcfmb*
3392 . hbcm3+fmc*hbcm2)+16*(p4p6*p3p7*p3p4)*(2*ffmcfmb*hbcm+hbcm)+16*
3393 . (p5p7*p3p6*p3p4)*(2*ffmcfmb*hbcm+fmc)+16*(p6p7*p3p5*p3p4)*(
3394 . ffmcfmb*hbcm+fmc)+16*(p6p7*p3p4*p2p3)*(-ffmcfmb*hbcm-fmc)+16*(
3395 . p5p7*p3p6)*(ffmcfmb*fmc*hbcm2+fmc2*hbcm)+16*(p4p7*p3p6)*(
3396 . ffmcfmb*fmc*hbcm2-2*ffmcfmb*hbcm3+fmc*hbcm2+fmc2*hbcm)+16*(
3397 . p3p7*p3p6)*(2*ffmcfmb*fmc*hbcm2+ffmcfmb*fmc2*hbcm)+16*(p6p7*
3398 . p3p5)*(ffmcfmb*fmc*hbcm2+fmc2*hbcm)+16*(p6p7*p2p3)*(-ffmcfmb*
3399 . fmc*hbcm2-fmc2*hbcm)+16*(p4p6*p3p7)*(-ffmcfmb**2*hbcm3+2*
3400 . ffmcfmb*hbcm3+fmc*hbcm2)+8*(p6p7*p3p4)*(ffmcfmb**2*hbcm3+2*
3401 . ffmcfmb*fmc*hbcm2+fmc2*hbcm)+16*(p3p7*p3p6*p3p4)*(ffmcfmb**2*
3402 . hbcm+ffmcfmb*fmc+2*ffmcfmb*hbcm)+8*p6p7*(ffmcfmb**2*fmc*hbcm4+
3403 . 2*ffmcfmb*hbcm*p3p4s2+2*fmc*p3p4s2+2*fmc2*hbcm3-fmc3*hbcm2-2*
3404 . hbcm*p3p4s2)+ans4
3405 ans2=w1*ans3
3406 ans8=16*(2*ffmcfmb*hbcm*p1p3*p3p6*p4p7-2*ffmcfmb*hbcm*p1p3*p3p6
3407 . *p5p7-2*ffmcfmb*hbcm*p1p3*p3p7*p4p6+2*ffmcfmb*hbcm*p1p3*p3p7*
3408 . p5p6+2*ffmcfmb*hbcm*p2p3*p3p6*p4p7-2*ffmcfmb*hbcm*p2p3*p3p6*
3409 . p5p7-2*ffmcfmb*hbcm*p2p3*p3p7*p4p6+2*ffmcfmb*hbcm*p2p3*p3p7*
3410 . p5p6-2*ffmcfmb*hbcm*p3p5*p3p7*p5p6+2*ffmcfmb*hbcm*p3p6*p3p7*
3411 . p4p5-fmc*p1p3*p3p4*p6p7+fmc*p3p5*p3p6*p5p7-2*hbcm*p1p3*p4p5*
3412 . p6p7-2*hbcm*p1p3*p4p6*p5p7+2*hbcm*p1p3*p4p7*p5p6+hbcm*p1p4*
3413 . p3p4*p6p7-hbcm*p1p4*p3p5*p6p7-2*hbcm*p1p4*p3p6*p5p7+2*hbcm*
3414 . p1p4*p3p7*p5p6+2*hbcm*p1p5*p3p4*p6p7+2*hbcm*p1p5*p3p6*p4p7-2*
3415 . hbcm*p1p5*p3p7*p4p6-2*hbcm*p2p3*p4p5*p6p7-4*hbcm*p2p3*p4p6*
3416 . p5p7+4*hbcm*p2p3*p4p7*p5p6+hbcm*p3p4*p4p6*p4p7+4*hbcm*p3p4*
3417 . p4p6*p5p7+3*hbcm*p3p4*p5p6*p5p7+hbcm*p3p5*p3p7*p4p6+2*hbcm*
3418 . p3p5*p4p5*p6p7-3*hbcm*p3p5*p4p6*p4p7-4*hbcm*p3p5*p4p7*p5p6-
3419 . hbcm*p3p5*p5p6*p5p7+2*hbcm*p3p6*p4p5*p5p7+2*hbcm*p3p7*p4p5*
3420 . p4p6)
3421 ans7=16*(p3p7*p3p6)*(ffmcfmb*fmb*fmc*hbcm-2*ffmcfmb*fmb*hbcm2+2
3422 . *ffmcfmb*fmc*hbcm2+ffmcfmb*fmc2*hbcm)+16*(p4p6*p3p7)*(-ffmcfmb
3423 . **2*hbcm3-ffmcfmb*fmb*hbcm2+2*ffmcfmb*hbcm3-fmb*hbcm2+2*fmb2*
3424 . hbcm+fmc*hbcm2)+16*(p5p7*p3p6)*(-ffmcfmb**2*hbcm3-ffmcfmb*fmb*
3425 . hbcm2+ffmcfmb*fmc*hbcm2+3*ffmcfmb*hbcm3+fmb*fmc*hbcm+fmc*hbcm2
3426 . +2*fmc2*hbcm)+8*(p6p7*p3p5)*(-ffmcfmb**2*hbcm3-2*ffmcfmb*fmb*
3427 . hbcm2+2*ffmcfmb*fmc*hbcm2+2*ffmcfmb*hbcm3+2*fmb*fmc*hbcm+3*
3428 . fmc2*hbcm)+8*(p6p7*p3p4)*(ffmcfmb**2*hbcm3-2*ffmcfmb*fmb*hbcm2
3429 . +2*ffmcfmb*fmc*hbcm2+2*fmb*fmc*hbcm+2*fmb*hbcm2-4*fmb2*hbcm+
3430 . fmc2*hbcm)+16*(p3p7*p3p6*p3p5)*(ffmcfmb**2*hbcm+ffmcfmb*fmc-2*
3431 . ffmcfmb*hbcm)+16*(p3p7*p3p6*p3p4)*(ffmcfmb**2*hbcm+ffmcfmb*fmc
3432 . +2*ffmcfmb*hbcm)+8*p6p7*(-ffmcfmb**2*fmb*hbcm4+ffmcfmb**2*fmc*
3433 . hbcm4-2*ffmcfmb*fmb2*hbcm3+2*ffmcfmb*hbcm*p3p4s2+2*ffmcfmb*
3434 . hbcm*p3p5s2+2*fmb*fmc*hbcm3+fmb*fmc2*hbcm2-2*fmb2*fmc*hbcm2+2*
3435 . fmc*p3p4s2+2*fmc*p3p5s2+2*fmc2*hbcm3-fmc3*hbcm2-2*hbcm*p3p4s2)
3436 . +ans8
3437 ans6=16*(p4p7*p3p6*p3p4)*(fmc+hbcm)+16*(p5p6*p4p7)*(-fmb*hbcm2+
3438 . fmc*hbcm2-2*hbcm3)+16*(p5p7*p4p6)*(-fmb*hbcm2+fmc*hbcm2+2*
3439 . hbcm3)+16*(p6p7*p1p4)*(-fmb*hbcm2+fmc*hbcm2)+16*(p6p7*p1p3)*(-
3440 . fmb*fmc*hbcm-fmc2*hbcm)+16*(p5p7*p5p6)*(ffmcfmb*hbcm3+fmc*
3441 . hbcm2)+16*(p4p7*p4p6)*(-ffmcfmb*hbcm3-2*fmb*hbcm2+fmc*hbcm2)+
3442 . 16*(p6p7*p4p5)*(-ffmcfmb*hbcm3-fmc*hbcm2+2*hbcm3)+16*(p6p7*
3443 . p1p5)*(ffmcfmb*hbcm3+fmc*hbcm2)+16*(p4p7*p3p6*p3p5)*(-2*
3444 . ffmcfmb*hbcm+fmc-3*hbcm)+16*(p4p6*p3p7*p3p4)*(2*ffmcfmb*hbcm+
3445 . hbcm)+16*(p5p7*p3p6*p3p4)*(2*ffmcfmb*hbcm+fmc+4*hbcm)+16*(p6p7
3446 . *p3p5*p3p4)*(2*ffmcfmb*hbcm+2*fmc-hbcm)+16*(p6p7*p3p5*p2p3)*(-
3447 . ffmcfmb*hbcm-fmc)+16*(p6p7*p3p4*p2p3)*(-ffmcfmb*hbcm-fmc)+16*(
3448 . p6p7*p3p5*p1p3)*(-2*ffmcfmb*hbcm-fmc)+16*(p5p6*p3p7)*(-ffmcfmb
3449 . *fmb*hbcm2-ffmcfmb*hbcm3+fmc*hbcm2-fmc2*hbcm)+16*(p4p7*p3p6)*(
3450 . -ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2-2*ffmcfmb*hbcm3+fmb*fmc*
3451 . hbcm-fmb*hbcm2-2*fmb2*hbcm+fmc*hbcm2+fmc2*hbcm)+16*(p6p7*p2p3)
3452 . *(ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm-fmc2*hbcm)+
3453 . ans7
3454 ans5=w18*ans6
3455 ans11=16*(p5p7*p3p6)*(-ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+
3456 . ffmcfmb*fmc*hbcm2+3*ffmcfmb*hbcm3+fmb*fmc*hbcm+fmb*hbcm2-fmc*
3457 . hbcm2-2*hbcm3)+16*(p3p7*p3p6)*(-ffmcfmb**2*hbcm3+ffmcfmb*fmb*
3458 . fmc*hbcm-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2-ffmcfmb*fmc2*hbcm
3459 . +ffmcfmb*hbcm3-fmc*hbcm2+fmc2*hbcm)+16*(p6p7*p3p5)*(-ffmcfmb**
3460 . 2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3+fmb*
3461 . fmc*hbcm-fmc*hbcm2)+16*(p6p7*p2p3)*(ffmcfmb**2*hbcm3+ffmcfmb*
3462 . fmb*hbcm2-ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3-fmb*fmc*hbcm+fmc*
3463 . hbcm2)+8*(p6p7*p1p3)*(ffmcfmb**2*hbcm3-2*ffmcfmb*hbcm3-2*fmb*
3464 . fmc*hbcm+2*fmc*hbcm2+fmc2*hbcm)+16*(p3p7*p3p6*p1p3)*(ffmcfmb**
3465 . 2*hbcm+ffmcfmb*fmc-2*ffmcfmb*hbcm)+8*p6p7*(-ffmcfmb**2*fmb*
3466 . hbcm4+ffmcfmb**2*fmc*hbcm4-ffmcfmb**2*hbcm5-ffmcfmb*fmb2*hbcm3
3467 . +ffmcfmb*fmc2*hbcm3+ffmcfmb*hbcm5+2*fmb*fmc*hbcm3+fmb*fmc2*
3468 . hbcm2-fmb2*fmc*hbcm2-fmc*hbcm4-2*fmc*p1p3s2-fmc2*hbcm3)+16*(-
3469 . hbcm*p1p3*p1p4*p6p7-hbcm*p1p3*p4p6*p4p7+hbcm*p1p3*p5p6*p5p7)
3470 ans10=16*(p5p7*p5p6)*(ffmcfmb*hbcm3+fmb*hbcm2-hbcm3)+16*(p4p7*
3471 . p4p6)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+16*(p6p7*p1p4)*(-
3472 . ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+32*(p4p7*p3p6*p3p5)*(-ffmcfmb*
3473 . hbcm+hbcm)+32*(p5p7*p3p6*p3p4)*(ffmcfmb*hbcm-hbcm)+32*(p5p7*
3474 . p3p6*p2p3)*(-ffmcfmb*hbcm+hbcm)+32*(p4p7*p3p6*p2p3)*(ffmcfmb*
3475 . hbcm-hbcm)+32*(p3p7*p3p6*p1p4)*(ffmcfmb*hbcm-hbcm)+16*(p4p6*
3476 . p3p7*p1p3)*(-2*ffmcfmb*hbcm+hbcm)+16*(p5p7*p3p6*p1p3)*(-2*
3477 . ffmcfmb*hbcm+fmc+2*hbcm)+16*(p4p7*p3p6*p1p3)*(2*ffmcfmb*hbcm+
3478 . fmc-3*hbcm)+16*(p6p7*p3p5*p1p3)*(-ffmcfmb*hbcm+fmc)+16*(p6p7*
3479 . p3p4*p1p3)*(ffmcfmb*hbcm+fmc-hbcm)+16*(p6p7*p2p3*p1p3)*(
3480 . ffmcfmb*hbcm-fmc)+16*(p4p7*p3p6)*(-ffmcfmb*fmb*hbcm2+ffmcfmb*
3481 . fmc*hbcm2-2*ffmcfmb*hbcm3+fmb*fmc*hbcm-fmb2*hbcm-fmc*hbcm2+2*
3482 . hbcm3)+16*(p6p7*p3p4)*(-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+
3483 . fmb*fmc*hbcm+fmb*hbcm2-fmb2*hbcm-fmc*hbcm2)+16*(p4p6*p3p7)*(-
3484 . ffmcfmb**2*hbcm3+ffmcfmb*hbcm3-fmb*hbcm2+fmb2*hbcm)+ans11
3485 ans9=w13*ans10
3486 ans12=(16*(p5p7*p3p6)*(-2*fb2*fmc+hbcm)+32*(p4p6*p3p7)*(-fb1*
3487 . hbcm+hbcm)+16*(p4p7*p3p6)*(-2*fb1*hbcm-2*fb2*fmc-hbcm)+8*(p6p7
3488 . *p3p5)*(-4*fb1*ffmcfmb*hbcm-4*fb2*fmc+3*hbcm)+8*(p6p7*p3p4)*(-
3489 . 4*fb1*ffmcfmb*hbcm+4*fb1*hbcm-4*fb2*fmc-hbcm)+8*(p6p7*p2p3)*(4
3490 . *fb1*ffmcfmb*hbcm+4*fb2*fmc-3*hbcm)+8*p6p7*(-2*fb1*ffmcfmb**2*
3491 . hbcm3+2*fb1*fmc2*hbcm-4*fb2*fmc*hbcm2+ffmcfmb*hbcm3+2*fmb*
3492 . hbcm2-fmc*hbcm2)+8*(p3p7*p3p6)*(4*fb1*ffmcfmb**2*hbcm-8*fb1*
3493 . ffmcfmb*hbcm-4*fb2*ffmcfmb*fmc-4*ffmcfmb*hbcm-fmc+6*hbcm)+32*(
3494 . -fb1*hbcm*p1p4*p6p7-fb1*hbcm*p4p6*p4p7+fb1*hbcm*p5p6*p5p7+fb2*
3495 . fmc*p1p3*p6p7))
3496 ans1=ans2+ans5+ans9+ans12
3497 ans=ccc*ans1
3498 b(1)=ans
3499 ans3=w13*(8*(p5p7*p1p3)*(3*ffmcfmb*hbcm+fmb-2*fmc-2*hbcm)+8*(
3500 . p4p7*p1p3)*(-ffmcfmb*hbcm+fmb-2*fmc+2*hbcm)+8*(p3p7*p1p3)*(
3501 . ffmcfmb*fmb-ffmcfmb*fmc+ffmcfmb*hbcm-fmc)+8*p4p7*(2*ffmcfmb*
3502 . fmb*hbcm2-2*ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3-2*fmb*fmc*hbcm-fmb
3503 . *hbcm2+2*fmb2*hbcm+2*fmc*hbcm2-hbcm3)+8*p5p7*(2*ffmcfmb**2*
3504 . hbcm3+2*ffmcfmb*fmb*hbcm2-2*ffmcfmb*fmc*hbcm2-3*ffmcfmb*hbcm3-
3505 . 2*fmb*fmc*hbcm-fmb*hbcm2+2*fmc*hbcm2+hbcm3)+8*p3p7*(ffmcfmb**2
3506 . *fmb*hbcm2-ffmcfmb**2*fmc*hbcm2+ffmcfmb**2*hbcm3-ffmcfmb*fmb*
3507 . fmc*hbcm+ffmcfmb*fmb2*hbcm-ffmcfmb*hbcm3-fmb*fmc*hbcm+fmc*
3508 . hbcm2))+(4*p5p7*(4*fb1*ffmcfmb*hbcm-4*fb2*fmb+8*fb2*fmc-7*hbcm
3509 . )+4*p4p7*(4*fb1*ffmcfmb*hbcm-4*fb2*fmb+8*fb2*fmc+hbcm)+4*p3p7*
3510 . (4*fb1*ffmcfmb*hbcm-4*fb2*ffmcfmb*fmb+4*fb2*ffmcfmb*fmc+4*fb2*
3511 . fmc-fmb+fmc-3*hbcm))
3512 ans2=w18*(8*(p5p7*p3p5)*(-ffmcfmb*hbcm+fmb-2*fmc)+8*(p4p7*p3p5)
3513 . *(-ffmcfmb*hbcm+fmb-2*fmc+4*hbcm)+8*(p5p7*p3p4)*(-ffmcfmb*hbcm
3514 . +fmb-2*fmc-4*hbcm)+8*(p4p7*p3p4)*(-ffmcfmb*hbcm+fmb-2*fmc)+8*(
3515 . p3p7*p3p5)*(ffmcfmb*fmb-ffmcfmb*fmc+ffmcfmb*hbcm-fmc)+8*(p3p7*
3516 . p3p4)*(ffmcfmb*fmb-ffmcfmb*fmc-3*ffmcfmb*hbcm-fmc)+8*p5p7*(
3517 . ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*hbcm2-2*ffmcfmb*fmc*hbcm2-2*
3518 . ffmcfmb*hbcm3-2*fmb*fmc*hbcm+fmb2*hbcm-4*fmc2*hbcm)+8*p4p7*(-
3519 . ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*hbcm2-2*ffmcfmb*fmc*hbcm2+2*
3520 . ffmcfmb*hbcm3-2*fmb*fmc*hbcm+5*fmb2*hbcm-2*fmc2*hbcm)+8*p3p7*(
3521 . ffmcfmb**2*fmb*hbcm2-ffmcfmb**2*fmc*hbcm2-ffmcfmb*fmb*fmc*hbcm
3522 . +ffmcfmb*fmb*hbcm2+3*ffmcfmb*fmb2*hbcm-ffmcfmb*fmc*hbcm2-2*
3523 . ffmcfmb*fmc2*hbcm-fmb*fmc*hbcm-fmc2*hbcm)+16*(-ffmcfmb*hbcm*
3524 . p1p3*p4p7+ffmcfmb*hbcm*p1p3*p5p7+ffmcfmb*hbcm*p1p4*p3p7-
3525 . ffmcfmb*hbcm*p1p5*p3p7+2*hbcm*p1p4*p5p7-2*hbcm*p1p5*p4p7-hbcm*
3526 . p3p7*p4p5-2*hbcm*p4p5*p5p7))+ans3
3527 ans1=w1*(8*(p5p7*p3p4)*(-ffmcfmb*hbcm+fmb-2*fmc)+8*(p4p7*p3p4)*
3528 . (-ffmcfmb*hbcm+fmb-2*fmc)+8*p5p7*(-2*ffmcfmb*fmc*hbcm2+fmb*fmc
3529 . *hbcm-fmc2*hbcm)+8*(p3p7*p3p4)*(ffmcfmb*fmb-ffmcfmb*fmc-3*
3530 . ffmcfmb*hbcm-fmc)+8*p4p7*(-ffmcfmb**2*hbcm3-2*ffmcfmb*fmc*
3531 . hbcm2+2*ffmcfmb*hbcm3+fmb*fmc*hbcm-2*fmc2*hbcm)+8*p3p7*(-
3532 . ffmcfmb**2*fmc*hbcm2+ffmcfmb*fmb*fmc*hbcm-ffmcfmb*fmc*hbcm2-2*
3533 . ffmcfmb*fmc2*hbcm-fmc2*hbcm)+16*(-ffmcfmb*hbcm*p1p3*p4p7+
3534 . ffmcfmb*hbcm*p1p4*p3p7+hbcm*p4p5*p5p7))+ans2
3535 ans=ccc*ans1
3536 b(2)=ans
3537 ans3=w13*(16*(p3p6*p3p5)*(-ffmcfmb*hbcm+hbcm)+16*(p3p6*p3p4)*(
3538 . ffmcfmb*hbcm-hbcm)+16*(p3p6*p1p5)*(ffmcfmb*hbcm-hbcm)+16*(p3p6
3539 . *p1p4)*(-ffmcfmb*hbcm+hbcm)+8*(p5p6*p1p3)*(-ffmcfmb*hbcm-fmc+2
3540 . *hbcm)+8*(p4p6*p1p3)*(3*ffmcfmb*hbcm-fmc-2*hbcm)+8*(p3p6*p1p3)
3541 . *(ffmcfmb*hbcm-fmc)+8*p5p6*(ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*
3542 . hbcm2+ffmcfmb*hbcm3-fmb*fmc*hbcm+fmb2*hbcm+fmc*hbcm2-hbcm3)+8*
3543 . p4p6*(2*ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-3
3544 . *ffmcfmb*hbcm3-fmb*fmc*hbcm-fmb2*hbcm+fmc*hbcm2+hbcm3)+8*p3p6*
3545 . (ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2-2*ffmcfmb*fmb2*hbcm-
3546 . ffmcfmb*fmc*hbcm2+2*ffmcfmb*fmc2*hbcm-ffmcfmb*hbcm3-fmb*fmc*
3547 . hbcm+2*fmb2*hbcm+fmc*hbcm2-2*fmc2*hbcm))+(4*p5p6*(4*fb1*
3548 . ffmcfmb*hbcm+4*fb2*fmc+hbcm)+4*p4p6*(4*fb1*ffmcfmb*hbcm+4*fb2*
3549 . fmc-7*hbcm)+4*p3p6*(4*fb1*ffmcfmb*hbcm+4*fb2*fmc-3*hbcm))
3550 ans2=w1*(8*(p5p6*p3p4)*(-ffmcfmb*hbcm-fmc)+8*(p4p6*p3p4)*(-
3551 . ffmcfmb*hbcm-fmc)+8*(p3p6*p3p4)*(ffmcfmb*hbcm-fmc)+8*p5p6*(-
3552 . ffmcfmb*fmc*hbcm2-fmc2*hbcm)+8*p3p6*(-ffmcfmb*fmc*hbcm2+2*
3553 . ffmcfmb*fmc2*hbcm-fmc2*hbcm)+8*p4p6*(ffmcfmb**2*hbcm3-ffmcfmb*
3554 . fmc*hbcm2-2*ffmcfmb*hbcm3)+16*(ffmcfmb*hbcm*p1p3*p4p6-ffmcfmb*
3555 . hbcm*p1p4*p3p6+ffmcfmb*hbcm*p3p6*p4p5+hbcm*p4p5*p4p6))+ans3
3556 ans1=w18*(8*(p5p6*p3p5)*(-ffmcfmb*hbcm-fmc)+8*(p4p6*p3p5)*(-
3557 . ffmcfmb*hbcm-fmc-4*hbcm)+8*(p3p6*p3p5)*(-3*ffmcfmb*hbcm-fmc)+8
3558 . *(p5p6*p3p4)*(-ffmcfmb*hbcm-fmc+4*hbcm)+8*(p4p6*p3p4)*(-
3559 . ffmcfmb*hbcm-fmc)+8*(p3p6*p3p4)*(ffmcfmb*hbcm-fmc)+8*p3p6*(
3560 . ffmcfmb*fmb*hbcm2-2*ffmcfmb*fmb2*hbcm-ffmcfmb*fmc*hbcm2+2*
3561 . ffmcfmb*fmc2*hbcm-fmb*fmc*hbcm-fmc2*hbcm)+8*p5p6*(-ffmcfmb**2*
3562 . hbcm3+ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2+2*ffmcfmb*hbcm3-fmb*
3563 . fmc*hbcm+2*fmc2*hbcm)+8*p4p6*(ffmcfmb**2*hbcm3+ffmcfmb*fmb*
3564 . hbcm2-ffmcfmb*fmc*hbcm2-2*ffmcfmb*hbcm3-fmb*fmc*hbcm-4*fmb2*
3565 . hbcm)+16*(ffmcfmb*hbcm*p1p3*p4p6-ffmcfmb*hbcm*p1p3*p5p6-
3566 . ffmcfmb*hbcm*p1p4*p3p6+ffmcfmb*hbcm*p1p5*p3p6-2*hbcm*p1p4*p5p6
3567 . +2*hbcm*p1p5*p4p6-hbcm*p3p6*p4p5-2*hbcm*p4p5*p4p6))+ans2
3568 ans=ccc*ans1
3569 b(3)=ans
3570 ans4=8*(p6p7*p3p4)*(-ffmcfmb**2*hbcm2+2*ffmcfmb*hbcm2+2*fmb*
3571 . hbcm+2*fmc*hbcm+fmc2)+8*p6p7*(-ffmcfmb**2*fmb*hbcm3-ffmcfmb**2
3572 . *fmc*hbcm3+2*ffmcfmb*fmb*hbcm3-2*ffmcfmb*fmb2*hbcm2+2*ffmcfmb*
3573 . fmc*hbcm3+fmb*fmc2*hbcm+2*fmb2*fmc*hbcm+fmc3*hbcm+2*p3p4s2)+16
3574 . *(-ffmcfmb*p1p3*p3p4*p6p7-ffmcfmb*p1p3*p3p5*p6p7-p1p4*p3p4*
3575 . p6p7-p1p4*p3p5*p6p7+p3p4*p3p5*p6p7-p3p4*p3p6*p4p7-2*p3p4*p4p6*
3576 . p4p7-p3p4*p4p6*p5p7+p3p4*p5p6*p5p7-p3p5*p3p6*p4p7-2*p3p5*p4p6*
3577 . p4p7-p3p5*p4p6*p5p7+p3p5*p5p6*p5p7)
3578 ans3=32*(p5p7*p4p6)*(-fmb*hbcm-fmc*hbcm)+16*(p6p7*p1p4)*(-fmb*
3579 . hbcm-fmc*hbcm)+(p4p6*p3p7*p3p5)*(-16*ffmcfmb-16)+(p4p6*p3p7*
3580 . p3p4)*(-16*ffmcfmb-16)+32*(p5p7*p5p6)*(ffmcfmb*hbcm2-fmc*hbcm)
3581 . +16*(p5p6*p4p7)*(ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm)+16*(p4p7*
3582 . p4p6)*(-ffmcfmb*hbcm2-3*fmb*hbcm-2*fmc*hbcm)+16*(p6p7*p4p5)*(-
3583 . ffmcfmb*hbcm2+fmc*hbcm)+16*(p6p7*p1p5)*(ffmcfmb*hbcm2-fmc*hbcm
3584 . )+16*(p5p6*p3p7)*(-ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm+ffmcfmb*
3585 . hbcm2-fmc*hbcm)+16*(p5p7*p3p6)*(-ffmcfmb*fmb*hbcm-ffmcfmb*fmc*
3586 . hbcm+ffmcfmb*hbcm2-fmc*hbcm)+16*(p4p7*p3p6)*(-ffmcfmb*fmb*hbcm
3587 . -ffmcfmb*fmc*hbcm-fmb*hbcm-fmc*hbcm)+32*(p3p7*p3p6)*(-ffmcfmb*
3588 . fmb*hbcm-ffmcfmb*fmc*hbcm)+16*(p6p7*p1p3)*(-ffmcfmb*fmb*hbcm-
3589 . ffmcfmb*fmc*hbcm)+16*(p3p7*p3p6*p3p5)*(ffmcfmb**2-2*ffmcfmb)+
3590 . 16*(p3p7*p3p6*p3p4)*(ffmcfmb**2-2*ffmcfmb)+16*(p4p6*p3p7)*(-
3591 . ffmcfmb**2*hbcm2-2*ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm-fmb*hbcm-
3592 . fmc*hbcm)+8*(p6p7*p3p5)*(-ffmcfmb**2*hbcm2+2*fmc*hbcm+fmc2)+
3593 . ans4
3594 ans2=w18*ans3
3595 ans7=16*(-p1p3*p1p4*p6p7+p1p3*p3p4*p6p7-p1p3*p3p6*p4p7-2*p1p3*
3596 . p4p6*p4p7-p1p3*p4p6*p5p7+p1p3*p5p6*p5p7)
3597 ans6=(p4p6*p3p7*p1p3)*(-16*ffmcfmb-16)+16*(p5p7*p5p6)*(ffmcfmb*
3598 . hbcm2+fmb*hbcm-hbcm2)+16*(p5p7*p4p6)*(-ffmcfmb*hbcm2-fmb*hbcm+
3599 . hbcm2)+32*(p4p7*p4p6)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(p6p7
3600 . *p3p4)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(p6p7*p1p4)*(-ffmcfmb
3601 . *hbcm2-fmb*hbcm+hbcm2)+16*(p5p7*p3p6)*(-ffmcfmb*fmb*hbcm-
3602 . ffmcfmb*fmc*hbcm+fmb*hbcm+fmc*hbcm)+16*(p4p7*p3p6)*(-ffmcfmb*
3603 . fmb*hbcm-ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2+fmc*hbcm+hbcm2)+16*(
3604 . p3p7*p3p6*p1p3)*(ffmcfmb**2-2*ffmcfmb)+16*(p4p6*p3p7)*(-
3605 . ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm-fmb*hbcm+hbcm2)+16*(p3p7*
3606 . p3p6)*(-ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm+
3607 . ffmcfmb*hbcm2+fmc*hbcm)+8*(p6p7*p1p3)*(-ffmcfmb**2*hbcm2-2*
3608 . ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*hbcm+2*ffmcfmb*hbcm2+2*fmc*hbcm
3609 . +fmc2)+8*p6p7*(-ffmcfmb**2*fmb*hbcm3-ffmcfmb**2*fmc*hbcm3+
3610 . ffmcfmb**2*hbcm4+2*ffmcfmb*fmb*hbcm3-ffmcfmb*fmb2*hbcm2+2*
3611 . ffmcfmb*fmc*hbcm3+ffmcfmb*fmc2*hbcm2-ffmcfmb*hbcm4-2*ffmcfmb*
3612 . p1p3s2+fmb*fmc2*hbcm+fmb2*fmc*hbcm-fmc*hbcm3-fmc2*hbcm2)+ans7
3613 ans5=w13*ans6
3614 ans8=((p4p6*p3p7)*(32*fb2*ffmcfmb+32*fb2+8)+(p6p7*p1p3)*(32*fb2
3615 . *ffmcfmb+8)+(p3p7*p3p6)*(-32*fb2*ffmcfmb**2+64*fb2*ffmcfmb-16*
3616 . ffmcfmb+16)+8*p6p7*(2*fb2*ffmcfmb**2*hbcm2-4*fb2*ffmcfmb*hbcm2
3617 . -2*fb2*fmc2+2*fmb*hbcm+2*fmc*hbcm-hbcm2)+32*(fb2*p1p4*p6p7-fb2
3618 . *p3p4*p6p7+fb2*p3p6*p4p7+2*fb2*p4p6*p4p7+fb2*p4p6*p5p7-fb2*
3619 . p5p6*p5p7))
3620 ans1=w1*((p4p6*p3p7*p3p4)*(-16*ffmcfmb-16)+16*(p5p7*p4p6)*(-
3621 . ffmcfmb*hbcm2-fmc*hbcm)+16*(p4p7*p4p6)*(-ffmcfmb*hbcm2-2*fmc*
3622 . hbcm)+16*(p4p7*p3p6)*(-ffmcfmb*fmc*hbcm-fmc*hbcm)+16*(p3p7*
3623 . p3p6*p3p4)*(ffmcfmb**2-2*ffmcfmb)+16*(p4p6*p3p7)*(-ffmcfmb**2*
3624 . hbcm2-ffmcfmb*fmc*hbcm-fmc*hbcm)+8*(p6p7*p3p4)*(-ffmcfmb**2*
3625 . hbcm2+2*ffmcfmb*hbcm2+2*fmc*hbcm+fmc2)+8*p6p7*(-ffmcfmb**2*fmc
3626 . *hbcm3+2*ffmcfmb*fmc*hbcm3+fmc3*hbcm+2*p3p4s2)+16*(-ffmcfmb*
3627 . fmc*hbcm*p1p3*p6p7-2*ffmcfmb*fmc*hbcm*p3p6*p3p7-ffmcfmb*fmc*
3628 . hbcm*p3p6*p5p7-ffmcfmb*p1p3*p3p4*p6p7-fmc*hbcm*p1p4*p6p7+fmc*
3629 . hbcm*p5p6*p5p7-p1p4*p3p4*p6p7-p3p4*p3p6*p4p7-2*p3p4*p4p6*p4p7-
3630 . p3p4*p4p6*p5p7+p3p4*p5p6*p5p7))+ans2+ans5+ans8
3631 ans=ccc*ans1
3632 b(4)=ans
3633 ans4=8*(p3p7*p3p4)*(2*ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm-2*
3634 . ffmcfmb*fmc*hbcm-3*ffmcfmb*hbcm2-fmc*hbcm-fmc2)+8*p3p7*(
3635 . ffmcfmb**2*fmb*hbcm3+ffmcfmb**2*fmc*hbcm3-3*ffmcfmb*fmb*hbcm3+
3636 . 3*ffmcfmb*fmb2*hbcm2-3*ffmcfmb*fmc*hbcm3-ffmcfmb*fmc2*hbcm2-2*
3637 . ffmcfmb*p3p5s2+fmb*fmc*hbcm2-fmb*fmc2*hbcm-2*fmb2*fmc*hbcm-
3638 . fmc2*hbcm2-fmc3*hbcm)+16*(ffmcfmb*p1p3*p3p4*p3p7+ffmcfmb*p1p3*
3639 . p3p5*p3p7+ffmcfmb*p2p3*p3p4*p3p7+ffmcfmb*p2p3*p3p5*p3p7-
3640 . ffmcfmb*p3p4*p3p5*p3p7+hbcm2*p1p4*p5p7-hbcm2*p1p5*p4p7-hbcm2*
3641 . p4p5*p5p7+p1p3*p3p4*p4p7-p1p3*p3p4*p5p7+p1p3*p3p5*p4p7-p1p3*
3642 . p3p5*p5p7+p1p4*p3p4*p3p7+p1p4*p3p5*p3p7+2*p2p3*p3p4*p4p7-p2p3*
3643 . p3p4*p5p7+2*p2p3*p3p5*p4p7-p2p3*p3p5*p5p7-2*p3p4*p3p5*p4p7+2*
3644 . p3p4*p3p5*p5p7)
3645 ans3=8*(p5p7*p3p5)*(-fmb*hbcm-fmc*hbcm+2*hbcm2)+8*(p4p7*p3p4)*(
3646 . -fmb*hbcm-fmc*hbcm-2*hbcm2)+16*(p4p7*p1p3)*(2*fmb*hbcm+fmc*
3647 . hbcm)+16*(p4p5*p3p7)*(ffmcfmb*hbcm2-fmc*hbcm-hbcm2)+8*(p4p7*
3648 . p3p5)*(-4*ffmcfmb*hbcm2-5*fmb*hbcm-fmc*hbcm)+8*(p5p7*p3p4)*(4*
3649 . ffmcfmb*hbcm2+3*fmb*hbcm-fmc*hbcm)+32*(p5p7*p2p3)*(-ffmcfmb*
3650 . hbcm2+fmc*hbcm)+16*(p4p7*p2p3)*(ffmcfmb*hbcm2+3*fmb*hbcm+2*fmc
3651 . *hbcm)+16*(p3p7*p1p5)*(-ffmcfmb*hbcm2+fmc*hbcm)+16*(p3p7*p1p4)
3652 . *(ffmcfmb*hbcm2+fmb*hbcm+fmc*hbcm)+16*(p5p7*p1p3)*(-ffmcfmb*
3653 . hbcm2+fmc*hbcm)+8*p5p7*(ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*hbcm3+2*
3654 . ffmcfmb*hbcm4+fmb*fmc*hbcm2+fmb2*hbcm2-2*fmc*hbcm3-2*fmc2*
3655 . hbcm2+4*p3p4s2)+8*(p3p7*p3p5)*(-3*ffmcfmb*fmb*hbcm-2*ffmcfmb*
3656 . fmc*hbcm-ffmcfmb*hbcm2-fmc*hbcm-fmc2)+32*(p3p7*p2p3)*(ffmcfmb*
3657 . fmb*hbcm+ffmcfmb*fmc*hbcm)+32*(p3p7*p1p3)*(ffmcfmb*fmb*hbcm+
3658 . ffmcfmb*fmc*hbcm)+8*p4p7*(-ffmcfmb**2*hbcm4+ffmcfmb*fmb*hbcm3+
3659 . ffmcfmb*fmc*hbcm3+fmb*fmc*hbcm2-4*fmb*hbcm3+3*fmb2*hbcm2-2*fmc
3660 . *hbcm3-fmc2*hbcm2-4*p3p5s2)+ans4
3661 ans2=w18*ans3
3662 ans7=8*p3p7*(ffmcfmb**2*fmb*hbcm3+ffmcfmb**2*fmc*hbcm3-ffmcfmb
3663 . **2*hbcm4-2*ffmcfmb*fmb*hbcm3+ffmcfmb*fmb2*hbcm2-ffmcfmb*fmc*
3664 . hbcm3-ffmcfmb*fmc2*hbcm2+ffmcfmb*hbcm4+2*ffmcfmb*p1p3s2+fmb*
3665 . fmc*hbcm2-fmb*fmc2*hbcm-fmb2*fmc*hbcm+fmc2*hbcm2)+16*(ffmcfmb*
3666 . p1p3*p2p3*p3p7-ffmcfmb*p1p3*p3p5*p3p7+p1p3*p1p4*p3p7+2*p1p3*
3667 . p2p3*p4p7-p1p3*p2p3*p5p7+2*p1p3*p3p4*p5p7-2*p1p3*p3p5*p4p7)
3668 ans6=8*(p5p7*p1p3)*(-fmb*hbcm+fmc*hbcm+2*hbcm2)+32*(p4p7*p3p5)*
3669 . (-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+32*(p5p7*p3p4)*(ffmcfmb*hbcm2+
3670 . fmb*hbcm-hbcm2)+16*(p5p7*p2p3)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)
3671 . +32*(p4p7*p2p3)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(p3p7*p1p4)*
3672 . (ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(p4p7*p1p3)*(2*ffmcfmb*hbcm2+
3673 . 3*fmb*hbcm+fmc*hbcm-4*hbcm2)+8*p4p7*(ffmcfmb*fmb*hbcm3+ffmcfmb
3674 . *fmc*hbcm3-2*ffmcfmb*hbcm4+fmb*fmc*hbcm2-3*fmb*hbcm3+fmb2*
3675 . hbcm2-fmc*hbcm3+2*hbcm4+2*p1p3s2)+8*p5p7*(ffmcfmb**2*hbcm4+
3676 . ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*hbcm3+fmb*fmc*hbcm2+fmb*hbcm3-
3677 . fmc*hbcm3-hbcm4-2*p1p3s2)+16*(p3p7*p3p5)*(-ffmcfmb**2*hbcm2-
3678 . ffmcfmb*fmb*hbcm+ffmcfmb*hbcm2)+16*(p3p7*p2p3)*(ffmcfmb**2*
3679 . hbcm2+ffmcfmb*fmb*hbcm-ffmcfmb*hbcm2)+8*(p3p7*p1p3)*(2*ffmcfmb
3680 . **2*hbcm2+3*ffmcfmb*fmb*hbcm+2*ffmcfmb*fmc*hbcm-3*ffmcfmb*
3681 . hbcm2-fmc*hbcm-fmc2)+ans7
3682 ans5=w13*ans6
3683 ans8=((p3p7*p3p5)*(32*fb2*ffmcfmb+8)+(p3p7*p2p3)*(-32*fb2*
3684 . ffmcfmb-8)+(p3p7*p1p3)*(-32*fb2*ffmcfmb-8)+16*p5p7*(fb1*fmb*
3685 . hbcm+fb1*fmc*hbcm-2*fb2*hbcm2-hbcm2)+16*p4p7*(fb1*fmb*hbcm+fb1
3686 . *fmc*hbcm+2*fb2*hbcm2)+4*p3p7*(4*fb1*ffmcfmb*fmb*hbcm+4*fb1*
3687 . fmc*hbcm+4*fb2*ffmcfmb*hbcm2+4*fb2*fmc2-3*fmb*hbcm-4*fmc*hbcm+
3688 . hbcm2)+32*(-fb2*p1p3*p4p7+fb2*p1p3*p5p7-fb2*p1p4*p3p7-2*fb2*
3689 . p2p3*p4p7+fb2*p2p3*p5p7-2*fb2*p3p4*p5p7+2*fb2*p3p5*p4p7))
3690 ans1=w1*(8*(p4p7*p3p4)*(-fmb*hbcm-fmc*hbcm-2*hbcm2)+16*(p4p7*
3691 . p3p5)*(-ffmcfmb*hbcm2-2*fmc*hbcm)+8*(p5p7*p3p4)*(2*ffmcfmb*
3692 . hbcm2-fmb*hbcm+3*fmc*hbcm+2*hbcm2)+16*(p4p7*p2p3)*(ffmcfmb*
3693 . hbcm2+2*fmc*hbcm)+16*(p3p7*p1p4)*(ffmcfmb*hbcm2+fmc*hbcm)+8*
3694 . p5p7*(ffmcfmb*fmc*hbcm3-fmb*fmc*hbcm2+2*fmc*hbcm3+4*p3p4s2)+8*
3695 . p4p7*(-ffmcfmb**2*hbcm4+ffmcfmb*fmc*hbcm3-fmb*fmc*hbcm2-2*fmc*
3696 . hbcm3-fmc2*hbcm2)+8*(p3p7*p3p4)*(2*ffmcfmb**2*hbcm2-ffmcfmb*
3697 . fmb*hbcm-2*ffmcfmb*fmc*hbcm-3*ffmcfmb*hbcm2-fmc*hbcm-fmc2)+8*
3698 . p3p7*(ffmcfmb**2*fmc*hbcm3-ffmcfmb*fmb*fmc*hbcm2-3*ffmcfmb*fmc
3699 . *hbcm3-ffmcfmb*fmc2*hbcm2-fmc2*hbcm2-fmc3*hbcm)+16*(2*ffmcfmb*
3700 . fmc*hbcm*p1p3*p3p7+2*ffmcfmb*fmc*hbcm*p2p3*p3p7-2*ffmcfmb*fmc*
3701 . hbcm*p3p5*p3p7+ffmcfmb*p1p3*p3p4*p3p7+ffmcfmb*p2p3*p3p4*p3p7-
3702 . ffmcfmb*p3p4*p3p5*p3p7+fmc*hbcm*p1p3*p4p7-fmc*hbcm*p1p3*p5p7-
3703 . fmc*hbcm*p2p3*p5p7+hbcm2*p4p5*p5p7+p1p3*p3p4*p4p7-p1p3*p3p4*
3704 . p5p7+p1p4*p3p4*p3p7+2*p2p3*p3p4*p4p7-p2p3*p3p4*p5p7-2*p3p4*
3705 . p3p5*p4p7))+ans2+ans5+ans8
3706 ans=ccc*ans1
3707 b(5)=ans
3708 ans4=8*p4p6*(ffmcfmb**2*hbcm4+ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*
3709 . hbcm3+fmb*fmc*hbcm2+4*fmb*hbcm3-2*fmb2*hbcm2+2*fmc*hbcm3+4*
3710 . p3p4s2+2*p3p5s2)+8*p3p6*(ffmcfmb**2*fmb*hbcm3+ffmcfmb**2*fmc*
3711 . hbcm3+ffmcfmb*fmb*hbcm3+2*ffmcfmb*fmb2*hbcm2+ffmcfmb*fmc*hbcm3
3712 . +fmb*fmc*hbcm2-3*fmb*fmc2*hbcm-2*fmb2*fmc*hbcm-fmc2*hbcm2-fmc3
3713 . *hbcm+2*p3p5s2)+16*(-ffmcfmb*p2p3*p3p4*p3p6-ffmcfmb*p2p3*p3p5*
3714 . p3p6-hbcm2*p1p4*p5p6+hbcm2*p1p5*p4p6-hbcm2*p4p5*p4p6-p1p3*p3p4
3715 . *p4p6+p1p3*p3p4*p5p6-p1p3*p3p5*p4p6+p1p3*p3p5*p5p6+p1p4*p3p4*
3716 . p3p6+p1p4*p3p5*p3p6-p1p5*p3p4*p3p6-p1p5*p3p5*p3p6-2*p2p3*p3p4*
3717 . p4p6+p2p3*p3p4*p5p6-2*p2p3*p3p5*p4p6+p2p3*p3p5*p5p6+p3p4*p3p5*
3718 . p3p6+3*p3p4*p3p5*p4p6-p3p4*p3p5*p5p6)
3719 ans3=16*(p3p6*p1p4)*(2*fmb*hbcm+fmc*hbcm)+16*(p4p6*p1p3)*(-2*
3720 . fmb*hbcm-fmc*hbcm)+16*(p4p5*p3p6)*(ffmcfmb*hbcm2-fmb*hbcm-fmc*
3721 . hbcm-hbcm2)+8*(p5p6*p3p5)*(-3*ffmcfmb*hbcm2+3*fmc*hbcm-2*hbcm2
3722 . )+8*(p4p6*p3p5)*(ffmcfmb*hbcm2+4*fmb*hbcm+3*fmc*hbcm)+8*(p5p6*
3723 . p3p4)*(-ffmcfmb*hbcm2+2*fmb*hbcm+3*fmc*hbcm)+8*(p4p6*p3p4)*(3*
3724 . ffmcfmb*hbcm2+6*fmb*hbcm+3*fmc*hbcm+2*hbcm2)+32*(p5p6*p2p3)*(
3725 . ffmcfmb*hbcm2-fmc*hbcm)+16*(p4p6*p2p3)*(-ffmcfmb*hbcm2-3*fmb*
3726 . hbcm-2*fmc*hbcm)+16*(p3p6*p1p5)*(-ffmcfmb*hbcm2+fmc*hbcm)+16*(
3727 . p5p6*p1p3)*(ffmcfmb*hbcm2-fmc*hbcm)+8*p5p6*(ffmcfmb*fmb*hbcm3+
3728 . ffmcfmb*fmc*hbcm3-2*ffmcfmb*hbcm4+fmb*fmc*hbcm2+2*fmc*hbcm3+
3729 . fmc2*hbcm2-2*p3p5s2)+8*(p3p6*p3p5)*(2*ffmcfmb*fmb*hbcm+2*
3730 . ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2+2*fmb2-fmc*hbcm-2*fmc2)+8*(p3p6
3731 . *p3p4)*(2*ffmcfmb*fmb*hbcm+2*ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-2*
3732 . fmb*hbcm+2*fmb2-fmc*hbcm-2*fmc2)+32*(p3p6*p2p3)*(-ffmcfmb*fmb*
3733 . hbcm-ffmcfmb*fmc*hbcm)+ans4
3734 ans2=w18*ans3
3735 ans7=8*p3p6*(ffmcfmb**2*fmb*hbcm3+ffmcfmb**2*fmc*hbcm3+ffmcfmb*
3736 . fmb*hbcm3+ffmcfmb*fmb2*hbcm2+ffmcfmb*fmc*hbcm3-ffmcfmb*fmc2*
3737 . hbcm2+fmb*fmc*hbcm2-2*fmb*fmc2*hbcm-fmb*hbcm3-fmb2*fmc*hbcm+
3738 . fmb3*hbcm-2*fmc*hbcm3+fmc2*hbcm2)+16*(-ffmcfmb*p1p3*p2p3*p3p6-
3739 . fmb*hbcm*p1p5*p3p6+p1p3*p1p4*p3p6-p1p3*p1p5*p3p6-2*p1p3*p2p3*
3740 . p4p6+p1p3*p2p3*p5p6+2*p1p3*p3p4*p4p6+p1p3*p3p5*p3p6+p1p3*p3p5*
3741 . p4p6-p1p3*p3p5*p5p6)
3742 ans6=16*(p5p6*p3p5)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(p4p6*
3743 . p3p5)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+32*(p4p6*p3p4)*(ffmcfmb*
3744 . hbcm2+fmb*hbcm-hbcm2)+16*(p5p6*p2p3)*(ffmcfmb*hbcm2+fmb*hbcm-
3745 . hbcm2)+32*(p4p6*p2p3)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(p3p6
3746 . *p1p4)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(p5p6*p1p3)*(ffmcfmb*
3747 . hbcm2+2*fmb*hbcm+fmc*hbcm-2*hbcm2)+8*(p4p6*p1p3)*(-ffmcfmb*
3748 . hbcm2-2*fmb*hbcm+fmc*hbcm+4*hbcm2)+8*(p3p6*p1p3)*(ffmcfmb*
3749 . hbcm2+2*fmb2+fmc*hbcm-2*fmc2)+8*p5p6*(ffmcfmb*fmb*hbcm3+
3750 . ffmcfmb*fmc*hbcm3-ffmcfmb*hbcm4+fmb*fmc*hbcm2-2*fmb*hbcm3+fmb2
3751 . *hbcm2-fmc*hbcm3+hbcm4+2*p1p3s2)+16*(p3p6*p3p5)*(ffmcfmb*fmb*
3752 . hbcm+ffmcfmb*fmc*hbcm-fmc*hbcm)+16*(p3p6*p3p4)*(ffmcfmb*fmb*
3753 . hbcm+ffmcfmb*fmc*hbcm-fmb*hbcm-fmc*hbcm)+16*(p3p6*p2p3)*(-2*
3754 . ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*hbcm+fmb*hbcm+2*fmc*hbcm)+8*
3755 . p4p6*(ffmcfmb**2*hbcm4+ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*hbcm3+
3756 . ffmcfmb*hbcm4+fmb*fmc*hbcm2+2*fmb*hbcm3-fmc*hbcm3-2*hbcm4-2*
3757 . p1p3s2)+ans7
3758 ans5=w13*ans6
3759 ans8=((p3p6*p2p3)*(32*fb2*ffmcfmb+8)+4*p5p6*(4*fb1*fmc*hbcm-4*
3760 . fb2*ffmcfmb*hbcm2+8*fb2*hbcm2+hbcm2)+4*p4p6*(4*fb1*fmc*hbcm-4*
3761 . fb2*ffmcfmb*hbcm2-8*fb2*hbcm2-3*hbcm2)+4*p3p6*(4*fb1*fmc*hbcm-
3762 . 4*fb2*ffmcfmb*hbcm2-8*fb2*fmb2+8*fb2*fmc2+2*ffmcfmb*hbcm2-4*
3763 . fmb*hbcm-4*fmc*hbcm-hbcm2)+32*(fb2*p1p3*p4p6-fb2*p1p3*p5p6-fb2
3764 . *p1p4*p3p6+fb2*p1p5*p3p6+2*fb2*p2p3*p4p6-fb2*p2p3*p5p6-2*fb2*
3765 . p3p4*p4p6-fb2*p3p5*p3p6-fb2*p3p5*p4p6+fb2*p3p5*p5p6))
3766 ans1=w1*(16*(p4p6*p3p5)*(ffmcfmb*hbcm2+fmc*hbcm)+8*(p5p6*p3p4)*
3767 . (ffmcfmb*hbcm2-fmc*hbcm-2*hbcm2)+8*(p4p6*p3p4)*(3*ffmcfmb*
3768 . hbcm2+3*fmc*hbcm+2*hbcm2)+16*(p4p6*p2p3)*(-ffmcfmb*hbcm2-2*fmc
3769 . *hbcm)+8*p5p6*(ffmcfmb*fmc*hbcm3-2*fmc*hbcm3-fmc2*hbcm2)+16*(
3770 . p3p6*p3p5)*(ffmcfmb*fmc*hbcm+fmc*hbcm)+8*(p3p6*p3p4)*(2*
3771 . ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2+2*fmb2-fmc*hbcm-2*fmc2)+8*p4p6*
3772 . (ffmcfmb**2*hbcm4+ffmcfmb*fmc*hbcm3+2*fmc*hbcm3+4*p3p4s2)+8*
3773 . p3p6*(ffmcfmb**2*fmc*hbcm3+ffmcfmb*fmc*hbcm3+2*fmb2*fmc*hbcm-
3774 . fmc2*hbcm2-fmc3*hbcm)+16*(-2*ffmcfmb*fmc*hbcm*p2p3*p3p6-
3775 . ffmcfmb*p2p3*p3p4*p3p6-fmc*hbcm*p1p3*p4p6+fmc*hbcm*p1p3*p5p6+
3776 . fmc*hbcm*p1p4*p3p6-fmc*hbcm*p1p5*p3p6+fmc*hbcm*p2p3*p5p6-fmc*
3777 . hbcm*p3p5*p5p6+fmc*hbcm*p3p6*p4p5+hbcm2*p4p5*p4p6-p1p3*p3p4*
3778 . p4p6+p1p3*p3p4*p5p6+p1p4*p3p4*p3p6-p1p5*p3p4*p3p6-2*p2p3*p3p4*
3779 . p4p6+p2p3*p3p4*p5p6+p3p4*p3p5*p3p6+p3p4*p3p5*p4p6-p3p4*p3p5*
3780 . p5p6))+ans2+ans5+ans8
3781 ans=ccc*ans1
3782 b(6)=ans
3783 ans2=w13*(8*p3p5*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*p3p4*(
3784 . ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*p1p5*(ffmcfmb*hbcm2+fmb*hbcm-
3785 . hbcm2)+16*p1p4*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+4*p1p3*(-
3786 . ffmcfmb**2*hbcm2-4*ffmcfmb*fmb*hbcm-4*ffmcfmb*fmc*hbcm+2*
3787 . ffmcfmb*hbcm2+2*fmb*hbcm-2*fmb2+4*fmc*hbcm+3*fmc2)+4*(-2*
3788 . ffmcfmb**2*fmb*hbcm3-2*ffmcfmb**2*fmc*hbcm3+ffmcfmb**2*hbcm4+4
3789 . *ffmcfmb*fmb*hbcm3-3*ffmcfmb*fmb2*hbcm2+4*ffmcfmb*fmc*hbcm3+3*
3790 . ffmcfmb*fmc2*hbcm2-ffmcfmb*hbcm4-2*ffmcfmb*p1p3s2+3*fmb*fmc2*
3791 . hbcm-fmb*hbcm3+2*fmb2*fmc*hbcm+2*fmb2*hbcm2-fmb3*hbcm-2*fmc*
3792 . hbcm3-3*fmc2*hbcm2-4*p1p3*p1p4+2*p1p3*p1p5+4*p1p3*p3p4-2*p1p3*
3793 . p3p5))+(p1p3*(16*fb2*ffmcfmb+4)+4*(2*fb2*ffmcfmb**2*hbcm2-4*
3794 . fb2*ffmcfmb*hbcm2+4*fb2*fmb2-6*fb2*fmc2+8*fb2*p1p4-4*fb2*p1p5-
3795 . 8*fb2*p3p4+4*fb2*p3p5-ffmcfmb*hbcm2+3*fmb*hbcm+4*fmc*hbcm-
3796 . hbcm2))
3797 ans1=w1*(8*p4p5*(ffmcfmb*hbcm2-fmc*hbcm)+8*p1p4*(-ffmcfmb*hbcm2
3798 . -2*fmc*hbcm)+4*p3p4*(-ffmcfmb**2*hbcm2+4*ffmcfmb*hbcm2-2*fmb2+
3799 . 4*fmc*hbcm+3*fmc2)+8*(-ffmcfmb**2*fmc*hbcm3-2*ffmcfmb*fmc*hbcm
3800 . *p1p3+2*ffmcfmb*fmc*hbcm3+ffmcfmb*fmc2*hbcm2-ffmcfmb*p1p3*p3p4
3801 . -fmb2*fmc*hbcm+fmc*hbcm*p1p5-fmc*hbcm*p3p5+fmc3*hbcm-2*p1p4*
3802 . p3p4+p1p5*p3p4-p3p4*p3p5+2*p3p4s2))+w18*(8*p4p5*(-ffmcfmb*
3803 . hbcm2+fmb*hbcm+2*fmc*hbcm)+16*p1p5*(ffmcfmb*hbcm2-fmc*hbcm)+8*
3804 . p1p4*(-ffmcfmb*hbcm2-3*fmb*hbcm-2*fmc*hbcm)+16*p1p3*(-ffmcfmb*
3805 . fmb*hbcm-ffmcfmb*fmc*hbcm)+4*p3p5*(-ffmcfmb**2*hbcm2-2*ffmcfmb
3806 . *hbcm2-2*fmb2+4*fmc*hbcm+3*fmc2)+4*p3p4*(-ffmcfmb**2*hbcm2+4*
3807 . ffmcfmb*hbcm2+6*fmb*hbcm-2*fmb2+4*fmc*hbcm+3*fmc2)+8*(-ffmcfmb
3808 . **2*fmb*hbcm3-ffmcfmb**2*fmc*hbcm3+2*ffmcfmb*fmb*hbcm3-2*
3809 . ffmcfmb*fmb2*hbcm2+2*ffmcfmb*fmc*hbcm3+ffmcfmb*fmc2*hbcm2-
3810 . ffmcfmb*p1p3*p3p4-ffmcfmb*p1p3*p3p5+2*fmb*fmc2*hbcm+2*fmb2*fmc
3811 . *hbcm+fmc3*hbcm-2*p1p4*p3p4-2*p1p4*p3p5+p1p5*p3p4+p1p5*p3p5+
3812 . p3p4*p3p5+2*p3p4s2-p3p5s2))+ans2
3813 ans=ccc*ans1
3814 b(7)=ans
3815 ans4=4*(ffmcfmb**2*fmb*hbcm4-ffmcfmb**2*fmc*hbcm4+2*ffmcfmb*fmb
3816 . *hbcm4+2*ffmcfmb*fmb2*hbcm3-2*ffmcfmb*fmc*hbcm4-2*ffmcfmb*fmc2
3817 . *hbcm3-2*ffmcfmb*hbcm*p3p4s2-2*ffmcfmb*hbcm*p3p5s2-4*fmb*fmc*
3818 . hbcm3-3*fmb*fmc2*hbcm2+2*fmb*p3p4s2+2*fmb*p3p5s2+2*fmb2*fmc*
3819 . hbcm2+2*fmb2*hbcm3-4*fmc*p3p4s2-4*fmc*p3p5s2-2*fmc2*hbcm3+fmc3
3820 . *hbcm2+4*hbcm*p1p3*p4p5-2*hbcm*p1p4*p3p4+6*hbcm*p1p4*p3p5-6*
3821 . hbcm*p1p5*p3p4+2*hbcm*p1p5*p3p5+8*hbcm*p2p3*p4p5+2*hbcm*p3p4s2
3822 . -8*hbcm*p3p5*p4p5-2*hbcm*p3p5s2)
3823 ans3=8*p4p5*(-fmb*hbcm2+fmc*hbcm2-2*hbcm3)+8*p1p5*(-ffmcfmb*
3824 . hbcm3-fmc*hbcm2)+8*p1p4*(ffmcfmb*hbcm3+2*fmb*hbcm2-fmc*hbcm2)+
3825 . 16*(p3p5*p3p4)*(-ffmcfmb*hbcm+fmb-2*fmc)+8*(p3p5*p2p3)*(2*
3826 . ffmcfmb*hbcm-fmb+3*fmc)+8*(p3p4*p2p3)*(2*ffmcfmb*hbcm-fmb+3*
3827 . fmc)+8*(p3p5*p1p3)*(3*ffmcfmb*hbcm-fmb+2*fmc)+8*(p3p4*p1p3)*(-
3828 . ffmcfmb*hbcm-fmb+2*fmc)+8*p2p3*(-3*ffmcfmb*fmb*hbcm2+3*ffmcfmb
3829 . *fmc*hbcm2+3*fmb*fmc*hbcm-fmb2*hbcm+2*fmc2*hbcm)+8*p1p3*(-
3830 . ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+2*fmb*fmc*hbcm-fmb2*hbcm+
3831 . fmc2*hbcm)+8*p3p5*(ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*hbcm2-2*
3832 . ffmcfmb*fmc*hbcm2-2*ffmcfmb*hbcm3-2*fmb*fmc*hbcm+fmb*hbcm2-fmc
3833 . *hbcm2-3*fmc2*hbcm)+8*p3p4*(-ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*
3834 . hbcm2-2*ffmcfmb*fmc*hbcm2-2*fmb*fmc*hbcm-fmb*hbcm2+4*fmb2*hbcm
3835 . -fmc*hbcm2-fmc2*hbcm)+ans4
3836 ans2=w18*ans3
3837 ans7=4*(ffmcfmb**2*fmb*hbcm4-ffmcfmb**2*fmc*hbcm4+2*ffmcfmb**2*
3838 . hbcm5+2*ffmcfmb*fmb*hbcm4+2*ffmcfmb*fmb2*hbcm3-2*ffmcfmb*fmc*
3839 . hbcm4-2*ffmcfmb*fmc2*hbcm3-2*ffmcfmb*hbcm*p1p3s2-2*ffmcfmb*
3840 . hbcm5-4*fmb*fmc*hbcm3-2*fmb*fmc2*hbcm2-fmb*hbcm4-2*fmb*p1p3s2+
3841 . fmb2*fmc*hbcm2+fmb3*hbcm2+3*fmc*hbcm4+4*fmc*p1p3s2+2*fmc2*
3842 . hbcm3+2*hbcm*p1p3*p1p4-2*hbcm*p1p3*p1p5)
3843 ans6=8*p1p5*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+8*p1p4*(ffmcfmb*
3844 . hbcm3+fmb*hbcm2-hbcm3)+8*(p3p5*p1p3)*(3*ffmcfmb*hbcm+fmb-2*fmc
3845 . -hbcm)+8*(p3p4*p1p3)*(-ffmcfmb*hbcm+fmb-2*fmc+hbcm)+8*(p2p3*
3846 . p1p3)*(-2*ffmcfmb*hbcm-fmb+3*fmc)+16*p3p4*(ffmcfmb*fmb*hbcm2-
3847 . ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm-fmb*hbcm2+fmb2*hbcm+fmc*hbcm2)+
3848 . 16*p3p5*(ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-
3849 . ffmcfmb*hbcm3-fmb*fmc*hbcm+fmc*hbcm2)+8*p2p3*(-2*ffmcfmb**2*
3850 . hbcm3-3*ffmcfmb*fmb*hbcm2+3*ffmcfmb*fmc*hbcm2+2*ffmcfmb*hbcm3+
3851 . 3*fmb*fmc*hbcm+fmb*hbcm2-fmb2*hbcm-3*fmc*hbcm2)+8*p1p3*(-
3852 . ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+2*ffmcfmb
3853 . *hbcm3+2*fmb*fmc*hbcm+fmb*hbcm2-3*fmc*hbcm2-fmc2*hbcm)+ans7
3854 ans5=w13*ans6
3855 ans8=(4*p3p5*(4*fb1*ffmcfmb*hbcm+4*fb1*hbcm-4*fb2*fmb+8*fb2*fmc
3856 . -7*hbcm)+4*p3p4*(4*fb1*ffmcfmb*hbcm-4*fb1*hbcm-4*fb2*fmb+8*fb2
3857 . *fmc+hbcm)+8*p2p3*(-4*fb1*ffmcfmb*hbcm+2*fb2*fmb-6*fb2*fmc+3*
3858 . hbcm)+4*p1p3*(-4*fb1*ffmcfmb*hbcm+4*fb2*fmb-8*fb2*fmc+3*hbcm)+
3859 . 4*(4*fb1*ffmcfmb*hbcm3+4*fb1*fmb2*hbcm-4*fb1*fmc2*hbcm+4*fb1*
3860 . hbcm*p1p4-4*fb1*hbcm*p1p5-4*fb2*fmb*hbcm2+8*fb2*fmc*hbcm2-2*
3861 . fmb*hbcm2+2*fmc*hbcm2-3*hbcm3))
3862 ans1=w1*(8*p4p5*(-ffmcfmb*hbcm3-fmc*hbcm2+2*hbcm3)+8*p1p4*(
3863 . ffmcfmb*hbcm3-fmc*hbcm2)+8*(p3p5*p3p4)*(-ffmcfmb*hbcm+fmb-2*
3864 . fmc-hbcm)+8*(p3p4*p2p3)*(2*ffmcfmb*hbcm-fmb+3*fmc)+8*(p3p4*
3865 . p1p3)*(-ffmcfmb*hbcm-fmb+2*fmc)+8*p3p5*(-2*ffmcfmb*fmc*hbcm2+
3866 . fmb*fmc*hbcm-fmc*hbcm2-fmc2*hbcm)+8*p2p3*(3*ffmcfmb*fmc*hbcm2-
3867 . fmb*fmc*hbcm+2*fmc2*hbcm)+8*p1p3*(ffmcfmb*fmc*hbcm2-fmb*fmc*
3868 . hbcm+fmc2*hbcm)+8*p3p4*(-ffmcfmb**2*hbcm3-2*ffmcfmb*fmc*hbcm2+
3869 . fmb*fmc*hbcm+fmb*hbcm2-fmb2*hbcm-fmc*hbcm2-fmc2*hbcm)+4*(-
3870 . ffmcfmb**2*fmc*hbcm4-2*ffmcfmb*fmc*hbcm4-2*ffmcfmb*fmc2*hbcm3-
3871 . 2*ffmcfmb*hbcm*p3p4s2+2*fmb*fmc*hbcm3+2*fmb*p3p4s2-2*fmb2*fmc*
3872 . hbcm2+2*fmc*hbcm2*p1p5-4*fmc*p3p4s2-2*fmc2*hbcm3+fmc3*hbcm2-4*
3873 . hbcm*p1p3*p4p5-2*hbcm*p1p4*p3p4+2*hbcm*p1p5*p3p4-4*hbcm*p2p3*
3874 . p4p5+2*hbcm*p3p4s2+4*hbcm*p3p5*p4p5))+ans2+ans5+ans8
3875 ans=ccc*ans1
3876 b(8)=ans
3877 ans=ccc*(w1*(8*p4p6*(ffmcfmb*hbcm3-fmc*hbcm2)+8*(p3p6*p3p4)*(-
3878 . ffmcfmb*hbcm-fmb+2*fmc)+8*p3p6*(ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm
3879 . +fmc2*hbcm)+8*(fmc*hbcm2*p5p6-hbcm*p3p4*p4p6+hbcm*p3p4*p5p6-2*
3880 . hbcm*p3p6*p4p5))+w18*(8*p5p6*(-ffmcfmb*hbcm3-fmc*hbcm2)+8*p4p6
3881 . *(ffmcfmb*hbcm3+2*fmb*hbcm2-fmc*hbcm2)+8*(p3p6*p3p5)*(3*
3882 . ffmcfmb*hbcm-fmb+2*fmc)+8*(p3p6*p3p4)*(-ffmcfmb*hbcm-fmb+2*fmc
3883 . )+8*p3p6*(-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+2*fmb*fmc*hbcm-
3884 . fmb2*hbcm+fmc2*hbcm)+8*(-hbcm*p3p4*p4p6-3*hbcm*p3p4*p5p6+3*
3885 . hbcm*p3p5*p4p6+hbcm*p3p5*p5p6+2*hbcm*p3p6*p4p5))+w13*(8*p5p6*(
3886 . -ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+8*p4p6*(ffmcfmb*hbcm3+fmb*
3887 . hbcm2-hbcm3)+16*(p3p6*p3p5)*(ffmcfmb*hbcm-hbcm)+16*(p3p6*p3p4)
3888 . *(-ffmcfmb*hbcm+hbcm)+8*(p3p6*p1p3)*(-ffmcfmb*hbcm-fmb+2*fmc)+
3889 . 8*p3p6*(-ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+
3890 . ffmcfmb*hbcm3+2*fmb*fmc*hbcm-fmb2*hbcm-fmc*hbcm2)+8*(hbcm*p1p3
3891 . *p4p6-hbcm*p1p3*p5p6))+(4*p3p6*(-4*fb1*ffmcfmb*hbcm+4*fb2*fmb-
3892 . 8*fb2*fmc+3*hbcm)+16*(fb1*hbcm*p4p6-fb1*hbcm*p5p6)))
3893 b(9)=ans
3894 b(10)=ccc*(w1*(8*p4p6*(ffmcfmb*hbcm2+2*fmc*hbcm)+8*(2*ffmcfmb*
3895 . fmc*hbcm*p3p6+ffmcfmb*p3p4*p3p6-fmc*hbcm*p5p6+2*p3p4*p4p6-p3p4
3896 . *p5p6))+w18*(16*p5p6*(-ffmcfmb*hbcm2+fmc*hbcm)+8*p4p6*(ffmcfmb
3897 . *hbcm2+3*fmb*hbcm+2*fmc*hbcm)+16*p3p6*(ffmcfmb*fmb*hbcm+
3898 . ffmcfmb*fmc*hbcm)+8*(ffmcfmb*p3p4*p3p6+ffmcfmb*p3p5*p3p6+2*
3899 . p3p4*p4p6-p3p4*p5p6+2*p3p5*p4p6-p3p5*p5p6))+w13*(8*p5p6*(-
3900 . ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*p4p6*(ffmcfmb*hbcm2+fmb*hbcm-
3901 . hbcm2)+8*p3p6*(2*ffmcfmb*fmb*hbcm+2*ffmcfmb*fmc*hbcm-fmb*hbcm-
3902 . 2*fmc*hbcm)+8*(ffmcfmb*p1p3*p3p6+2*p1p3*p4p6-p1p3*p5p6))+(p3p6
3903 . *(-16*fb2*ffmcfmb-4)+16*(-2*fb2*p4p6+fb2*p5p6)))
3904 ans=ccc*(w1*(4*p3p4*(-3*ffmcfmb*hbcm2+fmb*hbcm-2*fmc*hbcm)+4*(-
3905 . 2*ffmcfmb*fmc*hbcm3+fmb*fmc*hbcm2+2*fmc*hbcm*p3p5+fmc2*hbcm2-2
3906 . *hbcm2*p4p5+2*p3p4*p3p5-4*p3p4s2))+w18*(4*p3p5*(3*ffmcfmb*
3907 . hbcm2+fmb*hbcm-2*fmc*hbcm)+4*p3p4*(-3*ffmcfmb*hbcm2-5*fmb*hbcm
3908 . -2*fmc*hbcm)+4*(-2*ffmcfmb*fmb*hbcm3-2*ffmcfmb*fmc*hbcm3-2*fmb
3909 . *fmc*hbcm2-fmb2*hbcm2+fmc2*hbcm2+2*hbcm2*p4p5-2*p3p4*p3p5-4*
3910 . p3p4s2+2*p3p5s2))+w13*(8*p3p5*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+
3911 . 16*p3p4*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+4*p1p3*(-ffmcfmb*hbcm2
3912 . -fmb*hbcm-2*fmc*hbcm)+4*(-ffmcfmb**2*hbcm4-2*ffmcfmb*fmb*hbcm3
3913 . -2*ffmcfmb*fmc*hbcm3+ffmcfmb*hbcm4-2*fmb*fmc*hbcm2+fmb*hbcm3-
3914 . fmb2*hbcm2+2*fmc*hbcm3-4*p1p3*p3p4+2*p1p3*p3p5))+2*(-4*fb1*fmb
3915 . *hbcm-8*fb1*fmc*hbcm+4*fb2*ffmcfmb*hbcm2+16*fb2*p3p4-8*fb2*
3916 . p3p5+3*hbcm2))
3917 b(11)=ans
3918 ans=ccc*(w1*(8*p4p7*(ffmcfmb*hbcm3-fmc*hbcm2)+8*(p3p7*p3p4)*(-3
3919 . *ffmcfmb*hbcm-fmc)+8*p3p7*(-2*ffmcfmb*fmc*hbcm2-fmc2*hbcm)+8*(
3920 . fmc*hbcm2*p5p7-hbcm*p3p4*p4p7+hbcm*p3p4*p5p7))+w18*(8*p5p7*(-
3921 . ffmcfmb*hbcm3-fmc*hbcm2)+8*p4p7*(ffmcfmb*hbcm3+2*fmb*hbcm2-fmc
3922 . *hbcm2)+8*(p3p7*p3p5)*(ffmcfmb*hbcm-fmc)+8*(p3p7*p3p4)*(-3*
3923 . ffmcfmb*hbcm-fmc)+8*p3p7*(2*ffmcfmb*fmb*hbcm2-2*ffmcfmb*fmc*
3924 . hbcm2-fmb*fmc*hbcm-fmc2*hbcm)+8*(-hbcm*p3p4*p4p7-3*hbcm*p3p4*
3925 . p5p7+3*hbcm*p3p5*p4p7+hbcm*p3p5*p5p7-2*hbcm*p3p7*p4p5))+w13*(8
3926 . *p5p7*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+8*p4p7*(ffmcfmb*hbcm3+
3927 . fmb*hbcm2-hbcm3)+8*(p3p7*p1p3)*(ffmcfmb*hbcm-fmc)+8*p3p7*(
3928 . ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-ffmcfmb*
3929 . hbcm3-fmb*fmc*hbcm+fmc*hbcm2)+8*(hbcm*p1p3*p4p7-hbcm*p1p3*p5p7
3930 . ))+(4*p3p7*(4*fb1*ffmcfmb*hbcm+4*fb2*fmc-3*hbcm)+16*(fb1*hbcm*
3931 . p4p7-fb1*hbcm*p5p7)))
3932 b(12)=ans
3933 b(13)=ccc*(w1*(4*p3p4*(-2*ffmcfmb*hbcm+fmb-3*fmc)+4*(-3*ffmcfmb
3934 . *fmc*hbcm2+fmb*fmc*hbcm-2*fmc2*hbcm+2*hbcm*p4p5))+w18*(4*p3p5*
3935 . (-2*ffmcfmb*hbcm+fmb-3*fmc)+4*p3p4*(-2*ffmcfmb*hbcm+fmb-3*fmc)
3936 . +4*(3*ffmcfmb*fmb*hbcm2-3*ffmcfmb*fmc*hbcm2-3*fmb*fmc*hbcm+
3937 . fmb2*hbcm-2*fmc2*hbcm-4*hbcm*p4p5))+w13*(4*p1p3*(2*ffmcfmb*
3938 . hbcm+fmb-3*fmc)+4*(2*ffmcfmb**2*hbcm3+3*ffmcfmb*fmb*hbcm2-3*
3939 . ffmcfmb*fmc*hbcm2-2*ffmcfmb*hbcm3-3*fmb*fmc*hbcm-fmb*hbcm2+
3940 . fmb2*hbcm+3*fmc*hbcm2))+4*(4*fb1*ffmcfmb*hbcm-2*fb2*fmb+6*fb2*
3941 . fmc-3*hbcm))
3942 b(14)=ccc*(w1*(8*p4p7*(-ffmcfmb*hbcm2-2*fmc*hbcm)+8*(-2*ffmcfmb
3943 . *fmc*hbcm*p3p7-ffmcfmb*p3p4*p3p7+fmc*hbcm*p5p7-2*p3p4*p4p7+
3944 . p3p4*p5p7))+w18*(16*p5p7*(ffmcfmb*hbcm2-fmc*hbcm)+8*p4p7*(-
3945 . ffmcfmb*hbcm2-3*fmb*hbcm-2*fmc*hbcm)+16*p3p7*(-ffmcfmb*fmb*
3946 . hbcm-ffmcfmb*fmc*hbcm)+8*(-ffmcfmb*p3p4*p3p7-ffmcfmb*p3p5*p3p7
3947 . -2*p3p4*p4p7+p3p4*p5p7-2*p3p5*p4p7+p3p5*p5p7))+w13*(8*p5p7*(
3948 . ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*p4p7*(-ffmcfmb*hbcm2-fmb*hbcm
3949 . +hbcm2)+8*p3p7*(-ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm+ffmcfmb*
3950 . hbcm2)+8*(-ffmcfmb*p1p3*p3p7-2*p1p3*p4p7+p1p3*p5p7))+(p3p7*(16
3951 . *fb2*ffmcfmb+4)+16*(2*fb2*p4p7-fb2*p5p7)))
3952 ans2=w13*(16*(p4p6*p3p7)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(
3953 . p4p7*p3p6)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(p6p7*p3p4)*(-
3954 . ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(p6p7*p1p3)*(-ffmcfmb*hbcm2-
3955 . fmc*hbcm)+8*p6p7*(-ffmcfmb**2*hbcm4-ffmcfmb*fmb*hbcm3-ffmcfmb*
3956 . fmc*hbcm3+ffmcfmb*hbcm4-fmb*fmc*hbcm2+fmc*hbcm3)+16*(p3p7*p3p6
3957 . )*(ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm-ffmcfmb*
3958 . hbcm2-fmc*hbcm)+16*(ffmcfmb*p1p3*p3p6*p3p7-fmb*hbcm*p3p6*p5p7-
3959 . p1p3*p3p4*p6p7+p1p3*p3p6*p4p7-p1p3*p3p6*p5p7+p1p3*p3p7*p4p6))+
3960 . ((p3p7*p3p6)*(-32*fb2*ffmcfmb-8)+4*p6p7*(-4*fb1*fmc*hbcm+4*fb2
3961 . *ffmcfmb*hbcm2+hbcm2)+32*(fb2*p3p4*p6p7-fb2*p3p6*p4p7+fb2*p3p6
3962 . *p5p7-fb2*p3p7*p4p6))
3963 ans1=w1*(16*(p4p6*p3p7)*(ffmcfmb*hbcm2+fmc*hbcm)+8*(p6p7*p3p4)*
3964 . (-ffmcfmb*hbcm2-fmc*hbcm)+8*p6p7*(-ffmcfmb*fmc*hbcm3+fmc2*
3965 . hbcm2-2*p3p4s2)+16*(2*ffmcfmb*fmc*hbcm*p3p6*p3p7+ffmcfmb*p3p4*
3966 . p3p6*p3p7+fmc*hbcm*p3p6*p4p7-fmc*hbcm*p3p6*p5p7+p3p4*p3p6*p4p7
3967 . -p3p4*p3p6*p5p7+p3p4*p3p7*p4p6))+w18*(16*(p4p7*p3p6)*(2*fmb*
3968 . hbcm+fmc*hbcm)+16*(p5p6*p3p7)*(-ffmcfmb*hbcm2+fmc*hbcm)+16*(
3969 . p4p6*p3p7)*(ffmcfmb*hbcm2+fmb*hbcm+fmc*hbcm)+16*(p5p7*p3p6)*(-
3970 . ffmcfmb*hbcm2+fmc*hbcm)+8*(p6p7*p3p5)*(ffmcfmb*hbcm2-fmc*hbcm)
3971 . +8*(p6p7*p3p4)*(-ffmcfmb*hbcm2-2*fmb*hbcm-fmc*hbcm)+8*p6p7*(-
3972 . ffmcfmb*fmb*hbcm3-ffmcfmb*fmc*hbcm3-fmb*fmc*hbcm2+fmc2*hbcm2-2
3973 . *p3p4s2)+32*(p3p7*p3p6)*(ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm)+16
3974 . *(ffmcfmb*p3p4*p3p6*p3p7+ffmcfmb*p3p5*p3p6*p3p7+hbcm2*p4p5*
3975 . p6p7+hbcm2*p4p6*p5p7-hbcm2*p4p7*p5p6-p3p4*p3p5*p6p7+p3p4*p3p6*
3976 . p4p7-p3p4*p3p6*p5p7+p3p4*p3p7*p4p6+p3p5*p3p6*p4p7-p3p5*p3p6*
3977 . p5p7+p3p5*p3p7*p4p6))+ans2
3978 ans=ccc*ans1
3979 b(15)=ans
3980 b(16)=ccc*(w1*(8*(p6p7*p3p4)*(ffmcfmb*hbcm+fmc)+8*p6p7*(ffmcfmb
3981 . *fmc*hbcm2+fmc2*hbcm)+16*(-ffmcfmb*hbcm*p3p6*p4p7+ffmcfmb*hbcm
3982 . *p3p7*p4p6))+w18*(8*(p6p7*p3p5)*(ffmcfmb*hbcm+fmc)+8*(p6p7*
3983 . p3p4)*(ffmcfmb*hbcm+fmc)+8*p6p7*(-ffmcfmb*fmb*hbcm2+ffmcfmb*
3984 . fmc*hbcm2+fmb*fmc*hbcm+fmc2*hbcm)+16*(-ffmcfmb*hbcm*p3p6*p4p7+
3985 . ffmcfmb*hbcm*p3p6*p5p7+ffmcfmb*hbcm*p3p7*p4p6-ffmcfmb*hbcm*
3986 . p3p7*p5p6+hbcm*p4p5*p6p7+2*hbcm*p4p6*p5p7-2*hbcm*p4p7*p5p6))+
3987 . w13*(16*(p5p7*p3p6)*(ffmcfmb*hbcm-hbcm)+16*(p4p7*p3p6)*(-
3988 . ffmcfmb*hbcm+hbcm)+8*(p6p7*p1p3)*(-ffmcfmb*hbcm+fmc)+8*p6p7*(-
3989 . ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+ffmcfmb*
3990 . hbcm3+fmb*fmc*hbcm-fmc*hbcm2))+4*p6p7*(-4*fb1*ffmcfmb*hbcm-4*
3991 . fb2*fmc+3*hbcm))
3992 do 200 n=1,16
3993 c(n,1)=c(n,1)-0.1818181818181818d0*b(n)
3994 c(n,2)=c(n,2)-0.05883183899358491d0*b(n)
3995 c(n,3)=c(n,3)-0.2077659977796572d0*b(n)
3996 200 continue
3997 return
3998 end
3999
4000 subroutine amp2_3p0(cc)
4001 implicit double precision(a-h,o-z)
4002 implicit integer (i-n)
4003 dimension b(14)
4004 #include "inclcon.h"
4005 #include "inclppp.h"
4006 #include "inclamp.h"
4007 do 100 n=1,14
4008 b(n)=0.0d0
4009 100 continue
4010 ccc=cc/((4*p1p4*p2p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3+2*
4011 . ffmcfmb*p3p4+fmc2-2*p1p4))
4012 b(1)=ccc*(w5*(16*(p5p7*p3p6*p3p4)*(fmb-fmc)+16*(p5p7*p3p6*p1p3)
4013 . *(-fmb+fmc)-16*fmc*hbcm2*p3p6*p5p7)+32*(p5p7*p3p6)*(2*fb1*hbcm
4014 . -fb2*fmb+fb2*fmc))
4015 b(2)=ccc*(w5*(8*(p5p7*p3p4)*(-fmb+fmc)+8*(p5p7*p1p3)*(fmb-fmc)+
4016 . 8*fmc*hbcm2*p5p7)+16*p5p7*(-2*fb1*hbcm+fb2*fmb-fb2*fmc))
4017 b(5)=ccc*(w5*(8*p5p7*(fmb*fmc*hbcm2+fmc2*hbcm2)+8*(-hbcm2*p1p3*
4018 . p5p7-2*hbcm2*p1p4*p5p7+hbcm2*p3p4*p5p7+2*p1p3*p2p3*p5p7-2*p1p3
4019 . *p3p5*p5p7-2*p2p3*p3p4*p5p7+2*p3p4*p3p5*p5p7))+(16*p5p7*(-2*
4020 . fb1*fmb*hbcm-2*fb1*fmc*hbcm-fb2*hbcm2)+32*(fb2*p2p3*p5p7-fb2*
4021 . p3p5*p5p7)))
4022 b(7)=ccc*(8*w5*(-p1p3*p2p5+p2p5*p3p4)-16*fb2*p2p5)
4023 b(8)=8*ccc*p2p5*(-4*fb1*hbcm+fmc*hbcm2*w5)
4024 b(11)=ccc*(4*w5*(-fmb*fmc*hbcm2-fmc2*hbcm2+hbcm2*p1p3+2*hbcm2*
4025 . p1p4-hbcm2*p3p4-2*p1p3*p2p3+2*p1p3*p3p5+2*p2p3*p3p4-2*p3p4*
4026 . p3p5)+8*(2*fb1*fmb*hbcm+2*fb1*fmc*hbcm+fb2*hbcm2-2*fb2*p2p3+2*
4027 . fb2*p3p5))
4028 b(13)=ccc*(w5*(4*p3p4*(-fmb+fmc)+4*p1p3*(fmb-fmc)+4*fmc*hbcm2)+
4029 . 8*(-2*fb1*hbcm+fb2*fmb-fb2*fmc))
4030 do 200 n=1,14
4031 c(n,2)=c(n,2)-0.7396002616336388d0*b(n)
4032 c(n,3)=c(n,3)+0.1662127982237257d0*b(n)
4033 200 continue
4034 return
4035 end
4036
4037 subroutine amp1s2_3p0(cc)
4038 implicit double precision(a-h,o-z)
4039 implicit integer (i-n)
4040 dimension b(8)
4041 #include "inclcon.h"
4042 #include "inclppp.h"
4043 #include "inclamp.h"
4044 do 100 n=1,8
4045 b(n)=0.0d0
4046 100 continue
4047 ccc=cc/((ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*p3p5+fmb2+
4048 . hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2))
4049 b(1)=ccc*(4*w1*(-fmc*hbcm2*p6p7-2*hbcm*p3p4*p6p7)+4*w2*(-fmb*
4050 . hbcm2*p6p7-2*hbcm*p3p5*p6p7-2*hbcm*p3p6*p5p7+4*hbcm*p3p7*p5p6)
4051 . )
4052 b(2)=4*ccc*(2*hbcm*p4p7*w1+hbcm*p5p7*w2)
4053 b(3)=4*ccc*(-hbcm*p4p6*w1-2*hbcm*p5p6*w2)
4054 b(4)=ccc*(4*w1*(2*fmc*hbcm*p6p7+p3p4*p6p7)+4*w2*(-2*fmb*hbcm*
4055 . p6p7-p3p5*p6p7)-8*fb2*p6p7)
4056 b(5)=ccc*(8*w1*(-fmc*hbcm*p3p7+hbcm2*p4p7-p3p4*p3p7)+4*w2*(2*
4057 . fmb*hbcm*p3p7+hbcm2*p5p7+2*p3p5*p3p7)+16*fb2*p3p7)
4058 b(6)=ccc*(4*w1*(-2*fmc*hbcm*p3p6-hbcm2*p4p6-2*p3p4*p3p6)+8*w2*(
4059 . fmb*hbcm*p3p6-hbcm2*p5p6+p3p5*p3p6)+16*fb2*p3p6)
4060 b(7)=ccc*(6*w1*(fmc*hbcm+p3p4)+6*w2*(-fmb*hbcm-p3p5)-12*fb2)
4061 b(8)=ccc*(6*w1*(fmc*hbcm2+hbcm*p3p4)+6*w2*(fmb*hbcm2+hbcm*p3p5)
4062 . -12*fb1*hbcm)
4063 do 200 n=1,8
4064 c(n,1)=c(n,1)-0.8181818181818182d0*b(n)
4065 c(n,2)=c(n,2)+0.9833321660356334d0*b(n)
4066 200 continue
4067 return
4068 end
4069
4070 subroutine amp28_3p0(cc)
4071 implicit double precision(a-h,o-z)
4072 implicit integer (i-n)
4073 dimension b(16)
4074 #include "inclcon.h"
4075 #include "inclppp.h"
4076 #include "inclamp.h"
4077 do 100 n=1,16
4078 b(n)=0.0d0
4079 100 continue
4080 ccc=cc/((ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*p3p5+fmb2+
4081 . hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p2p3+2*ffmcfmb*p3p4+
4082 . fmc2-2*p2p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p2p3-fmc2))
4083 ans5=8*(-2*ffmcfmb*hbcm*p1p2*p3p6*p3p7-2*ffmcfmb*hbcm*p1p3*p3p7
4084 . *p4p6-ffmcfmb*hbcm*p2p3*p3p7*p5p6+2*ffmcfmb*hbcm*p2p5*p3p6*
4085 . p3p7-ffmcfmb*hbcm*p3p4*p3p7*p5p6+2*ffmcfmb*hbcm*p3p5*p3p7*p4p6
4086 . +2*ffmcfmb*hbcm3*p2p5*p6p7-2*hbcm*p1p2*p3p6*p4p7+2*hbcm*p1p2*
4087 . p3p7*p4p6+2*hbcm*p1p4*p2p3*p6p7+2*hbcm*p2p3*p2p4*p6p7-2*hbcm*
4088 . p2p3*p2p5*p6p7+2*hbcm*p2p3*p4p5*p6p7+4*hbcm*p2p3*p4p6*p4p7+2*
4089 . hbcm*p2p3*p4p6*p5p7-2*hbcm*p2p3*p4p7*p5p6-4*hbcm*p2p4*p3p5*
4090 . p6p7-2*hbcm*p2p4*p3p6*p5p7-4*hbcm*p2p4*p3p7*p4p6+2*hbcm*p2p4*
4091 . p3p7*p5p6+2*hbcm*p2p5*p3p4*p6p7+2*hbcm*p2p5*p3p6*p4p7-2*hbcm*
4092 . p2p5*p3p7*p4p6)
4093 ans4=4*(p6p7*p3p4)*(ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*hbcm2-2*
4094 . ffmcfmb*fmc*hbcm2-2*fmb*fmc*hbcm+fmc2*hbcm)+4*(p6p7*p2p3)*(
4095 . ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*hbcm2-2*ffmcfmb*hbcm3+2*fmb*fmc
4096 . *hbcm+2*fmc*hbcm2-3*fmc2*hbcm)+8*(p3p7*p3p6*p3p4)*(-ffmcfmb**2
4097 . *hbcm-ffmcfmb*fmb+4*ffmcfmb*fmc+5*ffmcfmb*hbcm-3*fmc)+8*(p3p7*
4098 . p3p6*p2p3)*(ffmcfmb**2*hbcm+ffmcfmb*fmb-4*ffmcfmb*fmc-ffmcfmb*
4099 . hbcm+3*fmc)+4*p6p7*(ffmcfmb**2*fmc*hbcm4-2*ffmcfmb*fmb*fmc*
4100 . hbcm3-2*ffmcfmb*fmc*hbcm4+2*ffmcfmb*hbcm*p2p3s2+2*fmb*fmc2*
4101 . hbcm2-4*fmb*p2p3s2+2*fmc2*hbcm3-fmc3*hbcm2)+8*(p3p7*p3p6)*(-
4102 . ffmcfmb**2*fmc*hbcm2-ffmcfmb*fmb*fmc*hbcm+ffmcfmb*fmc*hbcm2+2*
4103 . ffmcfmb*fmc2*hbcm+2*fmc2*hbcm)+ans5
4104 ans3=8*(p5p7*p4p6)*(-ffmcfmb*hbcm3+fmc*hbcm2)+8*(p4p7*p4p6)*(-
4105 . ffmcfmb*hbcm3+fmc*hbcm2)+8*(p6p7*p4p5)*(-ffmcfmb*hbcm3+fmc*
4106 . hbcm2)+8*(p6p7*p2p4)*(ffmcfmb*hbcm3-2*fmb*hbcm2+fmc*hbcm2-2*
4107 . hbcm3)+8*(p6p7*p1p4)*(-ffmcfmb*hbcm3+fmc*hbcm2)+8*(p4p6*p3p7*
4108 . p3p4)*(3*ffmcfmb*hbcm-2*fmc)+8*(p5p7*p3p6*p3p4)*(ffmcfmb*hbcm-
4109 . fmc)+8*(p4p7*p3p6*p3p4)*(-ffmcfmb*hbcm+fmc)+16*(p6p7*p3p5*p3p4
4110 . )*(ffmcfmb*hbcm-fmc)+16*(p3p7*p3p6*p2p4)*(-ffmcfmb*hbcm-2*hbcm
4111 . )+8*(p4p6*p3p7*p2p3)*(-ffmcfmb*hbcm+2*fmc)+8*(p5p7*p3p6*p2p3)*
4112 . (-ffmcfmb*hbcm+fmc)+8*(p4p7*p3p6*p2p3)*(ffmcfmb*hbcm-fmc+4*
4113 . hbcm)+16*(p6p7*p3p5*p2p3)*(-ffmcfmb*hbcm+fmc)+8*(p6p7*p3p4*
4114 . p2p3)*(-3*ffmcfmb*hbcm+2*fmb+2*hbcm)+8*(p5p6*p3p7)*(ffmcfmb*
4115 . fmc*hbcm2-fmc2*hbcm)+8*(p4p6*p3p7)*(-2*ffmcfmb*fmc*hbcm2+
4116 . ffmcfmb*hbcm3+fmb*fmc*hbcm+fmc2*hbcm)+8*(p5p7*p3p6)*(-ffmcfmb*
4117 . fmc*hbcm2+fmc2*hbcm)+16*(p6p7*p3p5)*(-ffmcfmb*fmc*hbcm2+fmc2*
4118 . hbcm)+8*(p4p7*p3p6)*(ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2-2*
4119 . ffmcfmb*fmc*hbcm2-3*ffmcfmb*hbcm3-fmb*fmc*hbcm+3*fmc*hbcm2+
4120 . fmc2*hbcm)+ans4
4121 ans2=w11*ans3
4122 ans8=4*p6p7*(ffmcfmb**2*fmb*hbcm4-2*ffmcfmb*fmb*fmc*hbcm3-2*
4123 . ffmcfmb*fmb*hbcm4+2*ffmcfmb*fmb2*hbcm3-4*ffmcfmb*hbcm*p3p5s2+2
4124 . *fmb*fmc*hbcm3+fmb*fmc2*hbcm2-2*fmb2*fmc*hbcm2+4*fmc*p3p5s2)+8
4125 . *(p3p7*p3p6)*(-ffmcfmb**2*fmb*hbcm2-2*ffmcfmb*fmb*fmc*hbcm+
4126 . ffmcfmb*fmb*hbcm2+ffmcfmb*fmb2*hbcm+2*fmb*fmc*hbcm)+8*(-2*
4127 . ffmcfmb*hbcm*p1p5*p3p6*p3p7-2*ffmcfmb*hbcm*p2p3*p3p7*p5p6+3*
4128 . ffmcfmb*hbcm*p3p5*p3p7*p5p6-2*ffmcfmb*hbcm*p3p6*p3p7*p4p5+2*
4129 . fmb*hbcm2*p2p5*p6p7+2*hbcm*p2p3*p4p6*p5p7+2*hbcm*p2p3*p5p6*
4130 . p5p7+2*hbcm*p2p5*p3p5*p6p7-2*hbcm*p2p5*p3p7*p4p6-2*hbcm*p2p5*
4131 . p3p7*p5p6)
4132 ans7=8*(p5p7*p5p6)*(-ffmcfmb*hbcm3+fmc*hbcm2)+8*(p5p7*p4p6)*(-
4133 . ffmcfmb*hbcm3+fmc*hbcm2)+8*(p4p6*p3p7*p3p5)*(ffmcfmb*hbcm+2*
4134 . fmc)+8*(p5p7*p3p6*p3p5)*(-ffmcfmb*hbcm+fmc)+8*(p4p7*p3p6*p3p5)
4135 . *(ffmcfmb*hbcm-fmc)+16*(p3p7*p3p6*p2p5)*(-ffmcfmb*hbcm+hbcm)+
4136 . 16*(p5p7*p3p6*p2p3)*(2*ffmcfmb*hbcm-hbcm)+8*(p6p7*p3p5*p2p3)*(
4137 . ffmcfmb*hbcm-2*fmb)+8*(p4p6*p3p7)*(-ffmcfmb*fmb*hbcm2+3*fmb*
4138 . fmc*hbcm)+8*(p4p7*p3p6)*(ffmcfmb*fmb*hbcm2-fmb*fmc*hbcm)+8*(
4139 . p6p7*p2p3)*(ffmcfmb*fmb*hbcm2-2*fmb2*hbcm)+8*(p5p6*p3p7)*(-
4140 . ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2+2*ffmcfmb*hbcm3+fmb*fmc*
4141 . hbcm-fmc2*hbcm)+8*(p5p7*p3p6)*(-2*ffmcfmb**2*hbcm3-ffmcfmb*fmb
4142 . *hbcm2+2*ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3+fmb*fmc*hbcm-fmc*
4143 . hbcm2)+4*(p6p7*p3p5)*(ffmcfmb**2*hbcm3-2*ffmcfmb*fmb*hbcm2-2*
4144 . ffmcfmb*fmc*hbcm2-2*ffmcfmb*hbcm3+2*fmb*fmc*hbcm+2*fmc*hbcm2+
4145 . fmc2*hbcm)+8*(p3p7*p3p6*p3p5)*(ffmcfmb**2*hbcm+ffmcfmb*fmb-4*
4146 . ffmcfmb*fmc-ffmcfmb*hbcm+3*fmc)+ans8
4147 ans6=w2*ans7
4148 ans9=(4*(p5p6*p3p7)*(-4*fb1*ffmcfmb*hbcm-hbcm)+4*(p4p6*p3p7)*(4
4149 . *fb1*ffmcfmb*hbcm+8*fb2*fmc-3*hbcm)+4*(p5p7*p3p6)*(4*fb1*
4150 . ffmcfmb*hbcm+4*fb2*fmc-hbcm)+4*(p4p7*p3p6)*(-4*fb1*ffmcfmb*
4151 . hbcm-4*fb2*fmc+hbcm)+8*(p6p7*p3p5)*(4*fb1*ffmcfmb*hbcm+4*fb2*
4152 . fmc-hbcm)+4*(p6p7*p2p3)*(-4*fb1*ffmcfmb*hbcm-8*fb2*fmb+hbcm)+4
4153 . *p6p7*(-2*fb1*ffmcfmb**2*hbcm3+4*fb1*ffmcfmb*hbcm3+4*fb1*fmb*
4154 . fmc*hbcm-2*fb1*fmc2*hbcm+4*fb2*ffmcfmb*fmb*hbcm2-4*fb2*ffmcfmb
4155 . *fmc*hbcm2+4*fb2*fmc*hbcm2-2*ffmcfmb*hbcm3-fmb*hbcm2+3*fmc*
4156 . hbcm2-hbcm3)+4*(p3p7*p3p6)*(4*fb1*ffmcfmb**2*hbcm-4*fb1*
4157 . ffmcfmb*hbcm+4*fb2*ffmcfmb*fmb-16*fb2*ffmcfmb*fmc+12*fb2*fmc+4
4158 . *ffmcfmb*hbcm+fmb-4*fmc-7*hbcm)-32*fb1*hbcm*p2p5*p6p7)
4159 ans1=w7*(16*(p6p7*p2p5)*(ffmcfmb*hbcm3-fmc*hbcm2)+8*p6p7*(
4160 . ffmcfmb*hbcm*p2p3s2-2*fmb*p2p3s2)+8*(p4p6*p3p7*p2p3)*(ffmcfmb*
4161 . hbcm+2*fmc)+8*(p5p7*p3p6*p2p3)*(-ffmcfmb*hbcm+fmc)+8*(p4p7*
4162 . p3p6*p2p3)*(ffmcfmb*hbcm-fmc)+16*(p6p7*p3p5*p2p3)*(-ffmcfmb*
4163 . hbcm+fmc)+4*(p6p7*p2p3)*(ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*hbcm2-
4164 . 2*ffmcfmb*fmc*hbcm2-2*ffmcfmb*hbcm3-2*fmb*fmc*hbcm+2*fmc*hbcm2
4165 . +fmc2*hbcm)+8*(p3p7*p3p6*p2p3)*(ffmcfmb**2*hbcm+ffmcfmb*fmb-4*
4166 . ffmcfmb*fmc-ffmcfmb*hbcm+3*fmc)+8*(-2*ffmcfmb*hbcm*p1p2*p3p6*
4167 . p3p7-ffmcfmb*hbcm*p2p3*p3p7*p5p6-2*ffmcfmb*hbcm*p2p4*p3p6*p3p7
4168 . +2*ffmcfmb*hbcm*p2p5*p3p6*p3p7-2*hbcm*p2p3*p2p5*p6p7))+ans2+
4169 . ans6+ans9
4170 ans=ccc*ans1
4171 b(1)=ans
4172 ans2=w2*(12*(p5p7*p3p5)*(ffmcfmb*hbcm-fmc)+4*(p4p7*p3p5)*(-
4173 . ffmcfmb*hbcm+fmc)+12*p5p7*(ffmcfmb*fmb*hbcm2-fmb*fmc*hbcm)+4*
4174 . p4p7*(-ffmcfmb*fmb*hbcm2+fmb*fmc*hbcm)+4*(p3p7*p3p5)*(ffmcfmb
4175 . **2*hbcm-3*ffmcfmb*fmb+4*ffmcfmb*fmc-3*fmc)+4*p3p7*(-ffmcfmb**
4176 . 2*fmb*hbcm2+4*ffmcfmb*fmb*fmc*hbcm-3*ffmcfmb*fmb2*hbcm-3*fmb*
4177 . fmc*hbcm)+8*(ffmcfmb*hbcm*p1p5*p3p7-ffmcfmb*hbcm*p2p5*p3p7+
4178 . ffmcfmb*hbcm*p3p7*p4p5))+(6*p5p7*(-4*fb1*ffmcfmb*hbcm-4*fb2*
4179 . fmc+hbcm)+2*p4p7*(4*fb1*ffmcfmb*hbcm+4*fb2*fmc-hbcm)+2*p3p7*(4
4180 . *fb1*ffmcfmb**2*hbcm-12*fb2*ffmcfmb*fmb+16*fb2*ffmcfmb*fmc-12*
4181 . fb2*fmc+4*ffmcfmb*hbcm-3*fmb+4*fmc+6*hbcm))
4182 ans1=w7*(12*(p5p7*p2p3)*(ffmcfmb*hbcm-fmc)+4*(p4p7*p2p3)*(-
4183 . ffmcfmb*hbcm+fmc)+4*(p3p7*p2p3)*(ffmcfmb**2*hbcm-3*ffmcfmb*fmb
4184 . +4*ffmcfmb*fmc-3*fmc)+8*(ffmcfmb*hbcm*p1p2*p3p7+ffmcfmb*hbcm*
4185 . p2p4*p3p7-3*ffmcfmb*hbcm*p2p5*p3p7))+w11*(12*(p5p7*p3p4)*(-
4186 . ffmcfmb*hbcm+fmc)+4*(p4p7*p3p4)*(ffmcfmb*hbcm-fmc)+12*(p5p7*
4187 . p2p3)*(ffmcfmb*hbcm-fmc)+4*(p4p7*p2p3)*(ffmcfmb*hbcm+fmc-6*
4188 . hbcm)+12*p5p7*(ffmcfmb*fmc*hbcm2-fmc2*hbcm)+4*p4p7*(-3*ffmcfmb
4189 . *fmb*hbcm2+2*ffmcfmb*fmc*hbcm2+3*ffmcfmb*hbcm3+3*fmb*fmc*hbcm-
4190 . 3*fmc*hbcm2-2*fmc2*hbcm)+4*(p3p7*p3p4)*(-ffmcfmb**2*hbcm+3*
4191 . ffmcfmb*fmb-4*ffmcfmb*fmc-4*ffmcfmb*hbcm+3*fmc)+4*(p3p7*p2p3)*
4192 . (ffmcfmb**2*hbcm-3*ffmcfmb*fmb+4*ffmcfmb*fmc-3*fmc)+4*p3p7*(-
4193 . ffmcfmb**2*fmc*hbcm2+3*ffmcfmb*fmb*fmc*hbcm-2*ffmcfmb*fmc2*
4194 . hbcm-3*fmc2*hbcm)+8*(ffmcfmb*hbcm*p1p2*p3p7+ffmcfmb*hbcm*p1p4*
4195 . p3p7-3*ffmcfmb*hbcm*p2p5*p3p7+ffmcfmb*hbcm*p3p7*p4p5+hbcm*p1p2
4196 . *p4p7+3*hbcm*p2p4*p3p7+3*hbcm*p2p4*p5p7-3*hbcm*p2p5*p4p7))+
4197 . ans2
4198 ans=ccc*ans1
4199 b(2)=ans
4200 ans2=w2*(4*(p5p6*p3p5)*(-ffmcfmb*hbcm+fmc)+12*(p4p6*p3p5)*(
4201 . ffmcfmb*hbcm-fmc)+4*(p3p6*p3p5)*(ffmcfmb*hbcm-fmc)+8*(p3p6*
4202 . p2p5)*(2*ffmcfmb*hbcm-hbcm)+8*(p5p6*p2p3)*(-ffmcfmb*hbcm+2*
4203 . hbcm)+16*p4p6*(ffmcfmb*fmb*hbcm2-fmb*fmc*hbcm)+4*p5p6*(ffmcfmb
4204 . **2*hbcm3-2*ffmcfmb*fmc*hbcm2-2*ffmcfmb*hbcm3+2*fmc*hbcm2+fmc2
4205 . *hbcm)+8*p3p6*(ffmcfmb**2*fmb*hbcm2-ffmcfmb*fmb*fmc*hbcm)+8*(
4206 . hbcm*p2p5*p4p6+hbcm*p2p5*p5p6))+(2*p5p6*(4*fb1*ffmcfmb*hbcm+4*
4207 . fb2*fmc-hbcm)+6*p4p6*(-4*fb1*ffmcfmb*hbcm-4*fb2*fmc+hbcm)+2*
4208 . p3p6*(-4*fb1*ffmcfmb*hbcm-4*fb2*fmc+hbcm))
4209 ans1=w7*(4*(p5p6*p2p3)*(-ffmcfmb*hbcm+fmc)+12*(p4p6*p2p3)*(
4210 . ffmcfmb*hbcm-fmc)+4*(p3p6*p2p3)*(ffmcfmb*hbcm-fmc))+w11*(4*(
4211 . p5p6*p3p4)*(ffmcfmb*hbcm-fmc)+12*(p4p6*p3p4)*(-ffmcfmb*hbcm+
4212 . fmc)+4*(p3p6*p3p4)*(-ffmcfmb*hbcm+fmc)+4*(p5p6*p2p3)*(-ffmcfmb
4213 . *hbcm+fmc)+4*(p4p6*p2p3)*(3*ffmcfmb*hbcm-3*fmc+2*hbcm)+4*(p3p6
4214 . *p2p3)*(ffmcfmb*hbcm-fmc)+8*p5p6*(-ffmcfmb*fmc*hbcm2+fmc2*hbcm
4215 . )+4*p4p6*(-ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2+3*ffmcfmb*fmc*
4216 . hbcm2-ffmcfmb*hbcm3-fmb*fmc*hbcm+fmc*hbcm2-2*fmc2*hbcm)+8*p3p6
4217 . *(ffmcfmb**2*fmc*hbcm2-ffmcfmb*fmc2*hbcm)+8*(2*ffmcfmb*hbcm*
4218 . p2p4*p3p6-hbcm*p1p2*p4p6+3*hbcm*p2p4*p4p6-2*hbcm*p2p4*p5p6+
4219 . hbcm*p2p5*p4p6))+ans2
4220 ans=ccc*ans1
4221 b(3)=ans
4222 ans4=8*(-ffmcfmb*fmc*hbcm*p3p6*p3p7+ffmcfmb*fmc*hbcm*p3p7*p5p6-
4223 . ffmcfmb*hbcm2*p1p2*p6p7-ffmcfmb*hbcm2*p2p5*p6p7+2*ffmcfmb*p2p3
4224 . *p3p7*p4p6-2*ffmcfmb*p3p4*p3p7*p4p6+p1p2*p2p3*p6p7-p1p2*p3p4*
4225 . p6p7-p2p3*p2p4*p6p7+p2p3*p2p5*p6p7+p2p4*p3p4*p6p7-p2p5*p3p4*
4226 . p6p7)
4227 ans3=8*(p6p7*p2p4)*(-2*fmb*hbcm-fmc*hbcm+2*hbcm2)+(p6p7*p3p4*
4228 . p2p3)*(8*ffmcfmb-8)+8*(p5p6*p4p7)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*
4229 . (p5p7*p4p6)*(ffmcfmb*hbcm2-fmc*hbcm)+16*(p4p7*p4p6)*(ffmcfmb*
4230 . hbcm2-fmc*hbcm)+8*(p6p7*p4p5)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p4p7
4231 . *p3p6)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p6p7*p1p4)*(ffmcfmb*hbcm2-
4232 . fmc*hbcm)+16*(p3p7*p3p6*p3p4)*(ffmcfmb**2-ffmcfmb)+16*(p3p7*
4233 . p3p6*p2p3)*(-ffmcfmb**2+ffmcfmb)+8*(p4p6*p3p7)*(-ffmcfmb**2*
4234 . hbcm2+ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm-fmc*hbcm)+4*(p6p7*p3p4
4235 . )*(-ffmcfmb**2*hbcm2+2*ffmcfmb*fmb*hbcm+2*ffmcfmb*fmc*hbcm-2*
4236 . fmb*fmc-fmc2)+4*(p6p7*p2p3)*(ffmcfmb**2*hbcm2-2*ffmcfmb*fmb*
4237 . hbcm+2*fmb*fmc-2*fmc*hbcm+fmc2)+4*p6p7*(-ffmcfmb**2*fmc*hbcm3-
4238 . 2*ffmcfmb*fmb*fmc*hbcm2+2*ffmcfmb*fmc*hbcm3-2*ffmcfmb*p2p3s2+2
4239 . *fmb*fmc2*hbcm-2*fmc2*hbcm2+fmc3*hbcm+2*p2p3s2)+ans4
4240 ans2=w11*ans3
4241 ans6=((p4p6*p3p7)*(32*fb2*ffmcfmb+8)+(p6p7*p2p3)*(-16*fb2*
4242 . ffmcfmb+16*fb2-4)+(p3p7*p3p6)*(-32*fb2*ffmcfmb**2+32*fb2*
4243 . ffmcfmb-16*ffmcfmb+8)+4*p6p7*(4*fb1*ffmcfmb*fmb*hbcm+4*fb1*
4244 . ffmcfmb*fmc*hbcm-4*fb1*fmc*hbcm+2*fb2*ffmcfmb**2*hbcm2-4*fb2*
4245 . ffmcfmb*hbcm2+4*fb2*fmb*fmc+2*fb2*fmc2-fmb*hbcm-fmc*hbcm+hbcm2
4246 . )+16*(fb2*p1p2*p6p7-fb2*p2p4*p6p7+fb2*p2p5*p6p7))
4247 ans5=w2*((p6p7*p3p5*p2p3)*(-8*ffmcfmb+8)+8*(p5p7*p5p6)*(ffmcfmb
4248 . *hbcm2-fmc*hbcm)+8*(p5p7*p4p6)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(
4249 . p5p6*p3p7)*(ffmcfmb*fmb*hbcm+2*ffmcfmb*fmc*hbcm-2*fmc*hbcm)+8*
4250 . (p6p7*p2p3)*(-ffmcfmb*fmb*hbcm+fmb*hbcm)+16*(p3p7*p3p6*p3p5)*(
4251 . -ffmcfmb**2+ffmcfmb)+8*(p5p7*p3p6)*(2*ffmcfmb**2*hbcm2-2*
4252 . ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2+fmc*hbcm)+4*(p6p7*p3p5)*(
4253 . ffmcfmb**2*hbcm2-2*ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*hbcm-2*
4254 . ffmcfmb*hbcm2+2*fmb*fmc+2*fmc*hbcm+fmc2)+4*p6p7*(ffmcfmb**2*
4255 . fmb*hbcm3-2*ffmcfmb*fmb*fmc*hbcm2-2*ffmcfmb*fmb*hbcm3-2*
4256 . ffmcfmb*fmb2*hbcm2+2*fmb*fmc*hbcm2+fmb*fmc2*hbcm+2*fmb2*fmc*
4257 . hbcm)+8*(ffmcfmb*fmb*hbcm*p3p6*p3p7+3*ffmcfmb*fmb*hbcm*p3p7*
4258 . p4p6+2*ffmcfmb*p3p5*p3p7*p4p6+fmb*hbcm*p1p2*p6p7-fmb*hbcm*p2p4
4259 . *p6p7+fmb*hbcm*p2p5*p6p7+p1p2*p3p5*p6p7-p2p4*p3p5*p6p7+p2p5*
4260 . p3p5*p6p7))+ans6
4261 ans1=w7*(8*p6p7*(-ffmcfmb*p2p3s2+p2p3s2)+8*(p6p7*p2p5)*(-
4262 . ffmcfmb*hbcm2+fmc*hbcm)+8*(p6p7*p2p4)*(ffmcfmb*hbcm2-fmc*hbcm)
4263 . +8*(p6p7*p1p2)*(-ffmcfmb*hbcm2+fmc*hbcm)+16*(p3p7*p3p6*p2p3)*(
4264 . -ffmcfmb**2+ffmcfmb)+4*(p6p7*p2p3)*(ffmcfmb**2*hbcm2-2*ffmcfmb
4265 . *fmb*hbcm-2*ffmcfmb*fmc*hbcm+2*fmb*fmc+fmc2)+8*(2*ffmcfmb*p2p3
4266 . *p3p7*p4p6+p1p2*p2p3*p6p7-p2p3*p2p4*p6p7+p2p3*p2p5*p6p7))+ans2
4267 . +ans5
4268 ans=ccc*ans1
4269 b(4)=ans
4270 ans4=8*(ffmcfmb*fmc*hbcm*p1p3*p3p7-3*ffmcfmb*fmc*hbcm*p3p5*p3p7
4271 . -ffmcfmb*p1p3*p2p3*p3p7+ffmcfmb*p1p3*p3p4*p3p7+ffmcfmb*p2p3*
4272 . p3p4*p3p7+3*ffmcfmb*p2p3*p3p5*p3p7-3*ffmcfmb*p3p4*p3p5*p3p7+
4273 . fmc*hbcm*p1p4*p3p7+fmc*hbcm*p3p7*p4p5+hbcm2*p1p2*p4p7+3*hbcm2*
4274 . p2p4*p5p7-3*hbcm2*p2p5*p4p7+p1p2*p2p3*p3p7-p1p2*p3p4*p3p7+p2p3
4275 . *p2p4*p3p7-3*p2p3*p2p5*p3p7+p2p3*p3p4*p4p7-3*p2p3*p3p4*p5p7-
4276 . p2p4*p3p4*p3p7+3*p2p5*p3p4*p3p7)
4277 ans3=24*(p4p7*p3p5)*(ffmcfmb*hbcm2-fmc*hbcm)+12*(p5p7*p3p4)*(-
4278 . ffmcfmb*hbcm2+fmc*hbcm)+4*(p4p7*p3p4)*(-ffmcfmb*hbcm2+fmc*hbcm
4279 . )+8*(p3p7*p2p4)*(-ffmcfmb*hbcm2+3*fmb*hbcm+3*fmc*hbcm)+12*(
4280 . p5p7*p2p3)*(-ffmcfmb*hbcm2-fmc*hbcm)+4*(p4p7*p2p3)*(-ffmcfmb*
4281 . hbcm2-6*fmb*hbcm-fmc*hbcm)+8*(p4p7*p1p3)*(-ffmcfmb*hbcm2+fmc*
4282 . hbcm)+12*p5p7*(ffmcfmb*fmc*hbcm3-fmc2*hbcm2+2*p2p3s2)+4*p4p7*(
4283 . -2*ffmcfmb**2*hbcm4+3*ffmcfmb*fmb*hbcm3+4*ffmcfmb*fmc*hbcm3+3*
4284 . ffmcfmb*hbcm4-3*fmb*fmc*hbcm2-3*fmc*hbcm3-2*fmc2*hbcm2-2*
4285 . p2p3s2)+4*(p3p7*p3p4)*(3*ffmcfmb**2*hbcm2-6*ffmcfmb*fmb*hbcm-7
4286 . *ffmcfmb*fmc*hbcm-3*ffmcfmb*hbcm2+3*fmb*fmc+2*fmc*hbcm+3*fmc2)
4287 . +4*(p3p7*p2p3)*(-ffmcfmb**2*hbcm2+5*ffmcfmb*fmc*hbcm+3*ffmcfmb
4288 . *hbcm2-3*fmb*fmc-3*fmc2)+4*p3p7*(ffmcfmb**2*fmc*hbcm3-3*
4289 . ffmcfmb*fmc*hbcm3+ffmcfmb*fmc2*hbcm2-4*ffmcfmb*p2p3s2+2*
4290 . ffmcfmb*p3p4s2-3*fmb*fmc2*hbcm-3*fmc3*hbcm)+ans4
4291 ans2=w11*ans3
4292 ans6=((p3p7*p3p5)*(48*fb2*ffmcfmb+12)+(p3p7*p3p4)*(-16*fb2*
4293 . ffmcfmb-4)+(p3p7*p2p3)*(-32*fb2*ffmcfmb-8)+(p3p7*p1p3)*(-16*
4294 . fb2*ffmcfmb-4)+6*p5p7*(-4*fb1*fmc*hbcm-4*fb2*ffmcfmb*hbcm2+
4295 . hbcm2)+2*p4p7*(4*fb1*fmc*hbcm+4*fb2*ffmcfmb*hbcm2-hbcm2)+2*
4296 . p3p7*(4*fb1*ffmcfmb*fmc*hbcm-4*fb2*ffmcfmb**2*hbcm2+12*fb2*
4297 . ffmcfmb*hbcm2-12*fb2*fmb*fmc-12*fb2*fmc2+2*ffmcfmb*hbcm2+6*fmb
4298 . *hbcm+11*fmc*hbcm+3*hbcm2)+16*(fb2*p1p2*p3p7-fb2*p2p3*p4p7+3*
4299 . fb2*p2p3*p5p7+fb2*p2p4*p3p7-3*fb2*p2p5*p3p7))
4300 ans5=w2*(8*(p3p7*p2p5)*(-3*fmb*hbcm-fmc*hbcm)+12*(p5p7*p3p5)*(-
4301 . ffmcfmb*hbcm2+fmc*hbcm)+4*(p4p7*p3p5)*(ffmcfmb*hbcm2-fmc*hbcm)
4302 . +12*p5p7*(-ffmcfmb*fmb*hbcm3+fmb*fmc*hbcm2)+4*p4p7*(ffmcfmb*
4303 . fmb*hbcm3-fmb*fmc*hbcm2)+4*(p3p7*p3p5)*(-ffmcfmb**2*hbcm2+6*
4304 . ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+3*ffmcfmb*hbcm2-3*fmb*fmc-3*
4305 . fmc2)+4*p3p7*(-ffmcfmb**2*fmb*hbcm3-ffmcfmb*fmb*fmc*hbcm2+3*
4306 . ffmcfmb*fmb*hbcm3+6*ffmcfmb*p3p5s2-3*fmb*fmc2*hbcm-3*fmb2*fmc*
4307 . hbcm)+8*(-ffmcfmb*fmb*hbcm*p1p3*p3p7-2*ffmcfmb*fmb*hbcm*p2p3*
4308 . p3p7-ffmcfmb*fmb*hbcm*p3p4*p3p7-ffmcfmb*p1p3*p3p5*p3p7-2*
4309 . ffmcfmb*p2p3*p3p5*p3p7-ffmcfmb*p3p4*p3p5*p3p7+fmb*hbcm*p1p2*
4310 . p3p7-fmb*hbcm*p2p3*p4p7+3*fmb*hbcm*p2p3*p5p7+fmb*hbcm*p2p4*
4311 . p3p7+fmc*hbcm*p1p5*p3p7+fmc*hbcm*p3p7*p4p5+p1p2*p3p5*p3p7-p2p3
4312 . *p3p5*p4p7+3*p2p3*p3p5*p5p7+p2p4*p3p5*p3p7-3*p2p5*p3p5*p3p7))+
4313 . ans6
4314 ans1=w7*(12*(p5p7*p2p3)*(-ffmcfmb*hbcm2+fmc*hbcm)+4*(p4p7*p2p3)
4315 . *(ffmcfmb*hbcm2-fmc*hbcm)+4*(p3p7*p2p3)*(-ffmcfmb**2*hbcm2+
4316 . ffmcfmb*fmc*hbcm+3*ffmcfmb*hbcm2-3*fmb*fmc-3*fmc2)+8*(-ffmcfmb
4317 . *p1p3*p2p3*p3p7-ffmcfmb*p2p3*p3p4*p3p7+3*ffmcfmb*p2p3*p3p5*
4318 . p3p7-2*ffmcfmb*p2p3s2*p3p7+fmc*hbcm*p1p2*p3p7+fmc*hbcm*p2p4*
4319 . p3p7-3*fmc*hbcm*p2p5*p3p7+p1p2*p2p3*p3p7+p2p3*p2p4*p3p7-3*p2p3
4320 . *p2p5*p3p7-p2p3s2*p4p7+3*p2p3s2*p5p7))+ans2+ans5
4321 ans=ccc*ans1
4322 b(5)=ans
4323 ans4=8*(2*ffmcfmb*hbcm2*p2p5*p3p6-hbcm2*p1p2*p4p6+2*hbcm2*p2p4*
4324 . p4p6-hbcm2*p2p4*p5p6+hbcm2*p2p5*p4p6-2*p2p3*p2p5*p3p6-3*p2p3*
4325 . p3p4*p4p6+p2p3*p3p4*p5p6+2*p2p5*p3p4*p3p6)
4326 ans3=(p3p6*p3p4*p2p3)*(-8*ffmcfmb+8)+8*(p4p5*p3p6)*(-ffmcfmb*
4327 . hbcm2+fmc*hbcm)+8*(p4p6*p3p5)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(
4328 . p5p6*p3p4)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p4p6*p3p4)*(-ffmcfmb*
4329 . hbcm2+fmc*hbcm)+8*(p3p6*p2p4)*(ffmcfmb*hbcm2+2*fmb*hbcm+fmc*
4330 . hbcm-hbcm2)+8*(p5p6*p2p3)*(ffmcfmb*hbcm2+fmc*hbcm)+8*(p4p6*
4331 . p2p3)*(-2*ffmcfmb*hbcm2+fmb*hbcm-fmc*hbcm)+8*(p3p6*p1p4)*(-
4332 . ffmcfmb*hbcm2+fmc*hbcm)+8*(p4p6*p1p3)*(ffmcfmb*hbcm2-fmc*hbcm)
4333 . +4*p5p6*(-ffmcfmb*fmc*hbcm3+fmc2*hbcm2-2*p2p3s2)+4*p4p6*(
4334 . ffmcfmb**2*hbcm4-ffmcfmb*fmb*hbcm3-ffmcfmb*hbcm4+fmb*fmc*hbcm2
4335 . +fmc*hbcm3-fmc2*hbcm2+6*p2p3s2)+4*(p3p6*p3p4)*(-ffmcfmb**2*
4336 . hbcm2-2*ffmcfmb*fmb*hbcm+2*fmb*fmc+fmc2)+4*(p3p6*p2p3)*(-3*
4337 . ffmcfmb**2*hbcm2+2*ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*hbcm+2*
4338 . ffmcfmb*hbcm2-2*fmb*fmc+2*fmc*hbcm-fmc2)+4*p3p6*(ffmcfmb**2*
4339 . fmc*hbcm3+2*ffmcfmb*fmb*fmc*hbcm2-ffmcfmb*fmc*hbcm3+2*ffmcfmb*
4340 . p2p3s2-2*fmb*fmc2*hbcm+fmc2*hbcm2-fmc3*hbcm-2*p2p3s2)+ans4
4341 ans2=w11*ans3
4342 ans5=w2*((p3p6*p3p5*p2p3)*(8*ffmcfmb-8)+8*(p5p6*p3p5)*(-ffmcfmb
4343 . *hbcm2+fmc*hbcm)+16*(p4p6*p3p5)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(
4344 . p3p6*p2p5)*(2*ffmcfmb*hbcm2-2*fmb*hbcm-hbcm2)+12*p4p6*(-
4345 . ffmcfmb*fmb*hbcm3+fmb*fmc*hbcm2)+8*(p3p6*p2p3)*(3*ffmcfmb*fmb*
4346 . hbcm-2*fmb*hbcm)+4*p5p6*(ffmcfmb**2*hbcm4-ffmcfmb*fmb*hbcm3-2*
4347 . ffmcfmb*fmc*hbcm3-2*ffmcfmb*hbcm4+fmb*fmc*hbcm2+2*fmc*hbcm3+
4348 . fmc2*hbcm2)+4*(p3p6*p3p5)*(-3*ffmcfmb**2*hbcm2+2*ffmcfmb*fmb*
4349 . hbcm+4*ffmcfmb*fmc*hbcm+2*ffmcfmb*hbcm2-2*fmb*fmc-2*fmc*hbcm-
4350 . fmc2)+4*p3p6*(-ffmcfmb**2*fmb*hbcm3+2*ffmcfmb*fmb*fmc*hbcm2+
4351 . ffmcfmb*fmb*hbcm3+2*ffmcfmb*fmb2*hbcm2-fmb*fmc*hbcm2-fmb*fmc2*
4352 . hbcm-2*fmb2*fmc*hbcm)+8*(ffmcfmb*hbcm2*p2p3*p5p6+4*fmb*hbcm*
4353 . p2p3*p4p6+hbcm2*p2p5*p4p6+hbcm2*p2p5*p5p6+3*p2p3*p3p5*p4p6-
4354 . p2p3*p3p5*p5p6-2*p2p5*p3p5*p3p6))+((p3p6*p2p3)*(16*fb2*ffmcfmb
4355 . -16*fb2+4)+4*p4p6*(-4*fb1*fmc*hbcm-4*fb2*ffmcfmb*hbcm2+hbcm2)+
4356 . 4*p3p6*(-4*fb1*ffmcfmb*fmb*hbcm+2*fb2*ffmcfmb**2*hbcm2-4*fb2*
4357 . fmb*fmc-2*fb2*fmc2+fmb*hbcm)+16*(3*fb2*p2p3*p4p6-fb2*p2p3*p5p6
4358 . -2*fb2*p2p5*p3p6))
4359 ans1=w7*(8*p3p6*(ffmcfmb*p2p3s2-p2p3s2)+16*(p3p6*p2p5)*(ffmcfmb
4360 . *hbcm2-fmc*hbcm)+8*(p5p6*p2p3)*(ffmcfmb*hbcm2-fmc*hbcm)+16*(
4361 . p4p6*p2p3)*(-ffmcfmb*hbcm2+fmc*hbcm)+4*(p3p6*p2p3)*(-3*ffmcfmb
4362 . **2*hbcm2+2*ffmcfmb*fmb*hbcm+4*ffmcfmb*fmc*hbcm+2*ffmcfmb*
4363 . hbcm2-2*fmb*fmc-2*fmc*hbcm-fmc2)+8*(-2*p2p3*p2p5*p3p6+3*p2p3s2
4364 . *p4p6-p2p3s2*p5p6))+ans2+ans5
4365 ans=ccc*ans1
4366 b(6)=ans
4367 ans2=w11*((p3p4*p2p3)*(4*ffmcfmb-12)+4*p4p5*(ffmcfmb*hbcm2-fmc*
4368 . hbcm)+4*p2p4*(ffmcfmb*hbcm2-3*fmb*hbcm-3*fmc*hbcm+3*hbcm2)+4*
4369 . p1p4*(ffmcfmb*hbcm2-fmc*hbcm)+2*p3p4*(-2*ffmcfmb**2*hbcm2+3*
4370 . ffmcfmb*fmb*hbcm+5*ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2-3*fmb*fmc+
4371 . fmc*hbcm-3*fmc2)+2*p2p3*(2*ffmcfmb**2*hbcm2-3*ffmcfmb*fmb*hbcm
4372 . -3*ffmcfmb*fmc*hbcm-3*ffmcfmb*hbcm2+3*fmb*fmc-3*fmc*hbcm+3*
4373 . fmc2)+2*(-3*ffmcfmb*fmb*fmc*hbcm2+3*ffmcfmb*fmc*hbcm3-3*
4374 . ffmcfmb*fmc2*hbcm2+2*ffmcfmb*hbcm2*p1p2-6*ffmcfmb*hbcm2*p2p5-2
4375 . *ffmcfmb*p2p3s2+3*fmb*fmc2*hbcm-3*fmc2*hbcm2+3*fmc3*hbcm-2*
4376 . p1p2*p2p3+2*p1p2*p3p4-2*p2p3*p2p4+6*p2p3*p2p5+6*p2p3s2+2*p2p4*
4377 . p3p4-6*p2p5*p3p4))+(p2p3*(-8*fb2*ffmcfmb+24*fb2-2)+(12*fb1*
4378 . ffmcfmb*fmb*hbcm+12*fb1*ffmcfmb*fmc*hbcm-12*fb1*fmc*hbcm-12*
4379 . fb2*ffmcfmb*hbcm2+12*fb2*fmb*fmc+12*fb2*fmc2-8*fb2*p1p2-8*fb2*
4380 . p2p4+24*fb2*p2p5-3*fmb*hbcm-3*fmc*hbcm+3*hbcm2))
4381 ans1=w2*((p3p5*p2p3)*(-4*ffmcfmb+12)+4*p4p5*(ffmcfmb*hbcm2-fmc*
4382 . hbcm)+4*p2p5*(-ffmcfmb*hbcm2+3*fmb*hbcm+fmc*hbcm)+4*p1p5*(
4383 . ffmcfmb*hbcm2-fmc*hbcm)+4*p2p3*(-ffmcfmb*fmb*hbcm+3*fmb*hbcm)+
4384 . 2*p3p5*(2*ffmcfmb**2*hbcm2-3*ffmcfmb*fmb*hbcm-5*ffmcfmb*fmc*
4385 . hbcm-3*ffmcfmb*hbcm2+3*fmb*fmc+3*fmc*hbcm+3*fmc2)+2*(-3*
4386 . ffmcfmb*fmb*fmc*hbcm2-3*ffmcfmb*fmb*hbcm3-3*ffmcfmb*fmb2*hbcm2
4387 . +3*fmb*fmc*hbcm2+3*fmb*fmc2*hbcm-2*fmb*hbcm*p1p2-2*fmb*hbcm*
4388 . p2p4+3*fmb2*fmc*hbcm-2*p1p2*p3p5-2*p2p4*p3p5+6*p2p5*p3p5))+w7*
4389 . (12*p2p5*(-ffmcfmb*hbcm2+fmc*hbcm)+4*p2p4*(ffmcfmb*hbcm2-fmc*
4390 . hbcm)+4*p1p2*(ffmcfmb*hbcm2-fmc*hbcm)+2*p2p3*(2*ffmcfmb**2*
4391 . hbcm2-3*ffmcfmb*fmb*hbcm-5*ffmcfmb*fmc*hbcm-3*ffmcfmb*hbcm2+3*
4392 . fmb*fmc+3*fmc*hbcm+3*fmc2)+4*(-ffmcfmb*p2p3s2-p1p2*p2p3-p2p3*
4393 . p2p4+3*p2p3*p2p5+3*p2p3s2))+ans2
4394 ans=ccc*ans1
4395 b(7)=ans
4396 ans4=2*(-2*ffmcfmb**2*fmc*hbcm4+3*ffmcfmb*fmb*fmc*hbcm3+3*
4397 . ffmcfmb*fmc*hbcm4-ffmcfmb*fmc2*hbcm3-6*ffmcfmb*hbcm*p2p3s2+2*
4398 . ffmcfmb*hbcm*p3p4s2+2*ffmcfmb*hbcm3*p1p2-6*ffmcfmb*hbcm3*p2p5-
4399 . 3*fmb*fmc2*hbcm2+6*fmb*p2p3s2-2*fmc*p2p3s2-2*fmc*p3p4s2-3*fmc2
4400 . *hbcm3+3*fmc3*hbcm2-2*hbcm*p1p2*p2p3+2*hbcm*p1p2*p3p4-4*hbcm*
4401 . p1p3*p2p4-4*hbcm*p1p4*p2p3-10*hbcm*p2p3*p2p4+6*hbcm*p2p3*p2p5-
4402 . 4*hbcm*p2p3*p4p5-2*hbcm*p2p4*p3p4+12*hbcm*p2p4*p3p5-6*hbcm*
4403 . p2p5*p3p4)
4404 ans3=4*p4p5*(ffmcfmb*hbcm3-fmc*hbcm2)+4*p2p4*(-ffmcfmb*hbcm3+3*
4405 . fmb*hbcm2-3*fmc*hbcm2+3*hbcm3)+4*p1p4*(ffmcfmb*hbcm3-fmc*hbcm2
4406 . )+12*(p3p5*p3p4)*(-ffmcfmb*hbcm+fmc)+12*(p3p5*p2p3)*(ffmcfmb*
4407 . hbcm-fmc)+4*(p3p4*p2p3)*(4*ffmcfmb*hbcm-3*fmb+2*fmc-2*hbcm)+4*
4408 . (p3p4*p1p3)*(ffmcfmb*hbcm-fmc)+4*(p2p3*p1p3)*(-ffmcfmb*hbcm+
4409 . fmc)+12*p3p5*(ffmcfmb*fmc*hbcm2-fmc2*hbcm)+4*p1p3*(-ffmcfmb*
4410 . fmc*hbcm2+fmc2*hbcm)+2*p3p4*(-3*ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*
4411 . hbcm2-ffmcfmb*hbcm3+3*fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+2*p2p3
4412 . *(-3*ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+3*ffmcfmb*hbcm3-3*fmb
4413 . *fmc*hbcm-3*fmc*hbcm2+7*fmc2*hbcm)+ans4
4414 ans2=w11*ans3
4415 ans6=(6*p3p5*(-4*fb1*ffmcfmb*hbcm-4*fb2*fmc+hbcm)+2*p3p4*(4*fb1
4416 . *ffmcfmb*hbcm+4*fb2*fmc-hbcm)+2*p2p3*(4*fb1*ffmcfmb*hbcm+12*
4417 . fb2*fmb-4*fb2*fmc-hbcm)+2*p1p3*(4*fb1*ffmcfmb*hbcm+4*fb2*fmc-
4418 . hbcm)+(8*fb1*ffmcfmb**2*hbcm3-12*fb1*ffmcfmb*hbcm3-12*fb1*fmb*
4419 . fmc*hbcm+12*fb1*fmc2*hbcm-8*fb1*hbcm*p1p2-8*fb1*hbcm*p2p4+24*
4420 . fb1*hbcm*p2p5-12*fb2*ffmcfmb*fmb*hbcm2+20*fb2*ffmcfmb*fmc*
4421 . hbcm2-12*fb2*fmc*hbcm2+2*ffmcfmb*hbcm3+3*fmb*hbcm2-7*fmc*hbcm2
4422 . +3*hbcm3))
4423 ans5=w2*(4*p4p5*(ffmcfmb*hbcm3-fmc*hbcm2)+4*p2p5*(-ffmcfmb*
4424 . hbcm3-3*fmb*hbcm2+fmc*hbcm2)+4*p1p5*(ffmcfmb*hbcm3-fmc*hbcm2)+
4425 . 4*(p3p5*p3p4)*(-ffmcfmb*hbcm+fmc)+4*(p3p5*p2p3)*(-3*ffmcfmb*
4426 . hbcm+3*fmb-fmc)+4*(p3p5*p1p3)*(-ffmcfmb*hbcm+fmc)+6*p3p5*(
4427 . ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3-fmb*fmc*hbcm
4428 . -fmc*hbcm2-fmc2*hbcm)+4*p3p4*(-ffmcfmb*fmb*hbcm2+fmb*fmc*hbcm)
4429 . +4*p2p3*(-ffmcfmb*fmb*hbcm2-fmb*fmc*hbcm+3*fmb2*hbcm)+4*p1p3*(
4430 . -ffmcfmb*fmb*hbcm2+fmb*fmc*hbcm)+2*(-2*ffmcfmb**2*fmb*hbcm4+5*
4431 . ffmcfmb*fmb*fmc*hbcm3+3*ffmcfmb*fmb*hbcm4-3*ffmcfmb*fmb2*hbcm3
4432 . +6*ffmcfmb*hbcm*p3p5s2-3*fmb*fmc*hbcm3-3*fmb*fmc2*hbcm2+2*fmb*
4433 . hbcm2*p1p2+2*fmb*hbcm2*p2p4+3*fmb2*fmc*hbcm2-6*fmc*p3p5s2+2*
4434 . hbcm*p1p2*p3p5-4*hbcm*p1p5*p2p3+4*hbcm*p2p3*p2p5-4*hbcm*p2p3*
4435 . p4p5+2*hbcm*p2p4*p3p5-6*hbcm*p2p5*p3p5))+ans6
4436 ans1=w7*(12*p2p5*(-ffmcfmb*hbcm3+fmc*hbcm2)+4*p2p4*(ffmcfmb*
4437 . hbcm3-fmc*hbcm2)+4*p1p2*(ffmcfmb*hbcm3-fmc*hbcm2)+12*(p3p5*
4438 . p2p3)*(ffmcfmb*hbcm-fmc)+4*(p3p4*p2p3)*(-ffmcfmb*hbcm+fmc)+4*(
4439 . p2p3*p1p3)*(-ffmcfmb*hbcm+fmc)+6*p2p3*(-ffmcfmb*fmb*hbcm2+
4440 . ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3+fmb*fmc*hbcm-fmc*hbcm2-fmc2*
4441 . hbcm)+4*(-3*ffmcfmb*hbcm*p2p3s2+3*fmb*p2p3s2-fmc*p2p3s2-hbcm*
4442 . p1p2*p2p3-hbcm*p2p3*p2p4+3*hbcm*p2p3*p2p5))+ans2+ans5
4443 ans=ccc*ans1
4444 b(8)=ans
4445 ans=ccc*(w2*(8*p5p6*(ffmcfmb*hbcm3-hbcm3)+4*(p3p6*p3p5)*(-6*
4446 . ffmcfmb*hbcm+2*fmb+3*hbcm)+8*p3p6*(-2*ffmcfmb*fmb*hbcm2+fmb*
4447 . hbcm2+fmb2*hbcm)+4*(-4*fmb*hbcm2*p4p6-5*hbcm*p3p5*p4p6-hbcm*
4448 . p3p5*p5p6))+w7*(4*(p3p6*p2p3)*(2*fmb-hbcm)+4*p5p6*(ffmcfmb*
4449 . hbcm3-fmc*hbcm2)+12*p4p6*(-ffmcfmb*hbcm3+fmc*hbcm2)+4*p3p6*(-
4450 . ffmcfmb**2*hbcm3-2*ffmcfmb*fmb*hbcm2+2*ffmcfmb*fmc*hbcm2+
4451 . ffmcfmb*hbcm3+2*fmb*fmc*hbcm-fmc*hbcm2-fmc2*hbcm)+4*(3*hbcm*
4452 . p2p3*p4p6-hbcm*p2p3*p5p6))+w11*(4*(p3p6*p2p3)*(2*fmb-hbcm)+4*
4453 . p4p6*(-fmb*hbcm2-fmc*hbcm2-hbcm3)+4*p5p6*(ffmcfmb*hbcm3+fmc*
4454 . hbcm2)+4*(p3p6*p3p4)*(-2*ffmcfmb*hbcm-2*fmb+hbcm)+4*p3p6*(-
4455 . ffmcfmb**2*hbcm3-2*ffmcfmb*fmb*hbcm2-2*ffmcfmb*fmc*hbcm2+
4456 . ffmcfmb*hbcm3+fmc*hbcm2+fmc2*hbcm)+4*(2*hbcm*p1p3*p4p6-2*hbcm*
4457 . p1p4*p3p6+hbcm*p2p3*p4p6-hbcm*p2p3*p5p6-2*hbcm*p2p4*p3p6-3*
4458 . hbcm*p3p4*p4p6+3*hbcm*p3p4*p5p6-2*hbcm*p3p5*p4p6-2*hbcm*p3p6*
4459 . p4p5))+(8*p3p6*(2*fb1*ffmcfmb*hbcm-fb1*hbcm+2*fb2*fmb+hbcm)+8*
4460 . (3*fb1*hbcm*p4p6-fb1*hbcm*p5p6)))
4461 b(9)=ans
4462 b(10)=ccc*(w2*(4*p5p6*(-2*ffmcfmb*hbcm2+fmb*hbcm+2*hbcm2)+4*
4463 . p3p6*(-4*ffmcfmb*fmb*hbcm+fmb*hbcm)+4*(-2*ffmcfmb*p3p5*p3p6-5*
4464 . fmb*hbcm*p4p6-4*p3p5*p4p6+2*p3p5*p5p6))+w7*(8*p5p6*(-ffmcfmb*
4465 . hbcm2+fmc*hbcm)+16*p4p6*(ffmcfmb*hbcm2-fmc*hbcm)+8*p3p6*(
4466 . ffmcfmb**2*hbcm2-ffmcfmb*fmc*hbcm)+8*(-ffmcfmb*p2p3*p3p6-2*
4467 . p2p3*p4p6+p2p3*p5p6))+w11*(4*p5p6*(-2*ffmcfmb*hbcm2-fmc*hbcm)+
4468 . 4*p4p6*(3*ffmcfmb*hbcm2-fmb*hbcm+fmc*hbcm+hbcm2)+4*p3p6*(2*
4469 . ffmcfmb**2*hbcm2+2*ffmcfmb*fmc*hbcm-fmc*hbcm)+8*(-ffmcfmb*p2p3
4470 . *p3p6+ffmcfmb*p3p4*p3p6-2*p2p3*p4p6+p2p3*p5p6+2*p3p4*p4p6-p3p4
4471 . *p5p6))+(p3p6*(-16*fb2*ffmcfmb-4)+16*(-2*fb2*p4p6+fb2*p5p6)))
4472 ans2=(-12*fb1*fmb*hbcm+20*fb2*ffmcfmb*hbcm2-12*fb2*hbcm2+8*fb2*
4473 . p1p3-8*fb2*p2p3+8*fb2*p3p4-24*fb2*p3p5-hbcm2)
4474 ans1=w2*(6*p3p5*(ffmcfmb*hbcm2-fmb*hbcm-hbcm2)+2*(5*ffmcfmb*fmb
4475 . *hbcm3+2*fmb*hbcm*p1p3-2*fmb*hbcm*p2p3+2*fmb*hbcm*p3p4-3*fmb*
4476 . hbcm3+3*fmb2*hbcm2-2*hbcm2*p1p5+2*hbcm2*p2p5-2*hbcm2*p4p5+2*
4477 . p1p3*p3p5-2*p2p3*p3p5+2*p3p4*p3p5-6*p3p5s2))+w7*(12*p3p5*(
4478 . ffmcfmb*hbcm2-fmc*hbcm)+4*p3p4*(-ffmcfmb*hbcm2+fmc*hbcm)+2*
4479 . p2p3*(ffmcfmb*hbcm2-3*fmb*hbcm-2*fmc*hbcm-3*hbcm2)+4*p1p3*(-
4480 . ffmcfmb*hbcm2+fmc*hbcm)+2*(-2*ffmcfmb**2*hbcm4+3*ffmcfmb*fmb*
4481 . hbcm3+5*ffmcfmb*fmc*hbcm3+3*ffmcfmb*hbcm4-3*fmb*fmc*hbcm2-3*
4482 . fmc*hbcm3-3*fmc2*hbcm2+2*p1p3*p2p3+2*p2p3*p3p4-6*p2p3*p3p5-2*
4483 . p2p3s2))+w11*(2*p3p4*(ffmcfmb*hbcm2+3*fmb*hbcm+hbcm2)+2*p2p3*(
4484 . ffmcfmb*hbcm2-3*fmb*hbcm-3*hbcm2)+2*(-2*ffmcfmb**2*hbcm4+3*
4485 . ffmcfmb*fmb*hbcm3-2*ffmcfmb*hbcm2*p1p3+6*ffmcfmb*hbcm2*p3p5+3*
4486 . ffmcfmb*hbcm4+3*fmc2*hbcm2-2*hbcm2*p1p4-6*hbcm2*p2p4-2*hbcm2*
4487 . p4p5+2*p1p3*p2p3-2*p1p3*p3p4+4*p2p3*p3p4-6*p2p3*p3p5-2*p2p3s2+
4488 . 6*p3p4*p3p5-2*p3p4s2))+ans2
4489 ans=ccc*ans1
4490 b(11)=ans
4491 ans2=(2*p3p7*(4*fb1*ffmcfmb*hbcm-12*fb2*fmb+5*hbcm)+8*(fb1*hbcm
4492 . *p4p7-3*fb1*hbcm*p5p7))
4493 ans1=w2*(4*(p3p7*p3p5)*(ffmcfmb*hbcm-3*fmb)+4*p3p7*(-ffmcfmb*
4494 . fmb*hbcm2-3*fmb2*hbcm)+4*(-fmb*hbcm2*p4p7+3*fmb*hbcm2*p5p7+2*
4495 . hbcm*p1p5*p3p7-2*hbcm*p2p5*p3p7-hbcm*p3p5*p4p7+3*hbcm*p3p5*
4496 . p5p7+2*hbcm*p3p7*p4p5))+w7*(12*p5p7*(ffmcfmb*hbcm3-fmc*hbcm2)+
4497 . 4*p4p7*(-ffmcfmb*hbcm3+fmc*hbcm2)+4*(p3p7*p2p3)*(5*ffmcfmb*
4498 . hbcm-3*fmb)+4*p3p7*(ffmcfmb**2*hbcm3+ffmcfmb*fmc*hbcm2-3*
4499 . ffmcfmb*hbcm3-3*fmb*fmc*hbcm+3*fmc2*hbcm)+4*(2*ffmcfmb*hbcm*
4500 . p1p3*p3p7+2*ffmcfmb*hbcm*p3p4*p3p7-6*ffmcfmb*hbcm*p3p5*p3p7+
4501 . hbcm*p2p3*p4p7-3*hbcm*p2p3*p5p7))+w11*(4*p4p7*(4*ffmcfmb*hbcm3
4502 . -3*fmb*hbcm2-3*hbcm3)+4*(p3p7*p3p4)*(-7*ffmcfmb*hbcm+3*fmb+2*
4503 . hbcm)+4*(p3p7*p2p3)*(5*ffmcfmb*hbcm-3*fmb)+4*p3p7*(ffmcfmb**2*
4504 . hbcm3-3*ffmcfmb*hbcm3-3*fmc2*hbcm)+4*(2*ffmcfmb*hbcm*p1p3*p3p7
4505 . -6*ffmcfmb*hbcm*p3p5*p3p7+3*ffmcfmb*hbcm3*p5p7+2*hbcm*p1p3*
4506 . p4p7+2*hbcm*p1p4*p3p7-hbcm*p2p3*p4p7-3*hbcm*p2p3*p5p7+6*hbcm*
4507 . p2p4*p3p7+hbcm*p3p4*p4p7+3*hbcm*p3p4*p5p7-6*hbcm*p3p5*p4p7+2*
4508 . hbcm*p3p7*p4p5))+ans2
4509 ans=ccc*ans1
4510 b(12)=ans
4511 b(13)=ccc*(w7*(6*p2p3*(ffmcfmb*hbcm-fmb+hbcm)+6*(ffmcfmb*fmb*
4512 . hbcm2-ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3-fmb*fmc*hbcm+fmc*hbcm2+
4513 . fmc2*hbcm))+w2*(2*p3p5*(5*ffmcfmb*hbcm-3*fmb-3*hbcm)+2*(3*
4514 . ffmcfmb*fmb*hbcm2-3*fmb*hbcm2-3*fmb2*hbcm+2*hbcm*p1p5-2*hbcm*
4515 . p2p5+2*hbcm*p4p5))+w11*(2*p3p4*(-5*ffmcfmb*hbcm+3*fmb-hbcm)+6*
4516 . p2p3*(ffmcfmb*hbcm-fmb+hbcm)+2*(3*ffmcfmb*fmb*hbcm2-3*ffmcfmb*
4517 . hbcm3-3*fmc2*hbcm+2*hbcm*p1p4+6*hbcm*p2p4+2*hbcm*p4p5))+3*(-4*
4518 . fb1*ffmcfmb*hbcm+4*fb1*hbcm-4*fb2*fmb-hbcm))
4519 b(14)=ccc*(w2*((p3p7*p3p5)*(16*ffmcfmb-12)+4*p3p7*(4*ffmcfmb*
4520 . fmb*hbcm-3*fmb*hbcm)+4*(fmb*hbcm*p4p7-3*fmb*hbcm*p5p7+p3p5*
4521 . p4p7-3*p3p5*p5p7))+w7*((p3p7*p2p3)*(16*ffmcfmb-12)+12*p5p7*(
4522 . ffmcfmb*hbcm2-fmc*hbcm)+4*p4p7*(-ffmcfmb*hbcm2+fmc*hbcm)+4*
4523 . p3p7*(-ffmcfmb**2*hbcm2+3*ffmcfmb*fmb*hbcm+4*ffmcfmb*fmc*hbcm-
4524 . 3*fmc*hbcm)+4*(p2p3*p4p7-3*p2p3*p5p7))+w11*((p3p7*p3p4)*(-16*
4525 . ffmcfmb+12)+(p3p7*p2p3)*(16*ffmcfmb-12)+4*p4p7*(2*ffmcfmb*
4526 . hbcm2+3*fmb*hbcm-3*hbcm2)+4*p3p7*(-ffmcfmb**2*hbcm2+3*ffmcfmb*
4527 . fmb*hbcm)+4*(3*ffmcfmb*hbcm2*p5p7+p2p3*p4p7-3*p2p3*p5p7-p3p4*
4528 . p4p7+3*p3p4*p5p7))+(p3p7*(32*fb2*ffmcfmb-24*fb2+8)+8*(fb2*p4p7
4529 . -3*fb2*p5p7)))
4530 ans3=w11*(8*(p6p7*p3p4)*(fmb*hbcm-hbcm2)+(p3p7*p3p6*p3p4)*(16*
4531 . ffmcfmb-8)+(p3p7*p3p6*p2p3)*(-16*ffmcfmb+8)+8*(p5p6*p3p7)*(-
4532 . ffmcfmb*hbcm2-fmc*hbcm)+8*(p4p6*p3p7)*(2*ffmcfmb*hbcm2-fmb*
4533 . hbcm+fmc*hbcm)+8*(p4p7*p3p6)*(-2*ffmcfmb*hbcm2-2*fmb*hbcm+
4534 . hbcm2)+8*(p6p7*p2p3)*(ffmcfmb*hbcm2-fmb*hbcm)+4*p6p7*(-ffmcfmb
4535 . **2*hbcm4+2*ffmcfmb*fmb*hbcm3+fmc2*hbcm2-2*p2p3s2-2*p3p4s2)+8*
4536 . (p3p7*p3p6)*(2*ffmcfmb**2*hbcm2-2*ffmcfmb*fmb*hbcm+2*ffmcfmb*
4537 . fmc*hbcm-ffmcfmb*hbcm2-fmc*hbcm)+8*(ffmcfmb*hbcm2*p1p3*p6p7+
4538 . ffmcfmb*hbcm2*p3p5*p6p7-2*ffmcfmb*hbcm2*p3p6*p5p7-hbcm2*p1p4*
4539 . p6p7-hbcm2*p2p4*p6p7-hbcm2*p4p5*p6p7-2*hbcm2*p4p6*p4p7-hbcm2*
4540 . p4p6*p5p7+hbcm2*p4p7*p5p6-p1p3*p2p3*p6p7+p1p3*p3p4*p6p7+2*p2p3
4541 . *p3p4*p6p7-p2p3*p3p5*p6p7+2*p2p3*p3p6*p5p7-3*p2p3*p3p7*p4p6+
4542 . p2p3*p3p7*p5p6+p3p4*p3p5*p6p7-2*p3p4*p3p6*p5p7+3*p3p4*p3p7*
4543 . p4p6-p3p4*p3p7*p5p6))+((p3p7*p3p6)*(-32*fb2*ffmcfmb+16*fb2-8)+
4544 . 16*p6p7*(-fb1*fmb*hbcm+fb2*ffmcfmb*hbcm2)+16*(-fb2*p1p3*p6p7-
4545 . fb2*p2p3*p6p7+fb2*p3p4*p6p7-fb2*p3p5*p6p7+2*fb2*p3p6*p5p7-3*
4546 . fb2*p3p7*p4p6+fb2*p3p7*p5p6))
4547 ans2=w7*((p3p7*p3p6*p2p3)*(-16*ffmcfmb+8)+8*(p5p6*p3p7)*(-
4548 . ffmcfmb*hbcm2+fmc*hbcm)+8*(p4p6*p3p7)*(ffmcfmb*hbcm2-3*fmc*
4549 . hbcm)+16*(p5p7*p3p6)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(p6p7*p3p5)*(
4550 . ffmcfmb*hbcm2-fmc*hbcm)+8*(p6p7*p3p4)*(-ffmcfmb*hbcm2+fmc*hbcm
4551 . )+8*(p6p7*p2p3)*(ffmcfmb*hbcm2-fmb*hbcm-fmc*hbcm)+8*(p6p7*p1p3
4552 . )*(ffmcfmb*hbcm2-fmc*hbcm)+4*p6p7*(-ffmcfmb**2*hbcm4+2*ffmcfmb
4553 . *fmb*hbcm3+2*ffmcfmb*fmc*hbcm3-2*fmb*fmc*hbcm2-fmc2*hbcm2-2*
4554 . p2p3s2)+8*(p3p7*p3p6)*(2*ffmcfmb**2*hbcm2-2*ffmcfmb*fmb*hbcm-2
4555 . *ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2+fmc*hbcm)+8*(-p1p3*p2p3*p6p7+
4556 . p2p3*p3p4*p6p7-p2p3*p3p5*p6p7+2*p2p3*p3p6*p5p7-3*p2p3*p3p7*
4557 . p4p6+p2p3*p3p7*p5p6))+ans3
4558 ans1=w2*((p3p7*p3p6*p3p5)*(-16*ffmcfmb+8)+8*(p5p7*p3p6)*(-2*
4559 . ffmcfmb*hbcm2+2*fmb*hbcm+hbcm2)+8*p6p7*(ffmcfmb*fmb*hbcm3+fmb2
4560 . *hbcm2-p3p5s2)+16*(p3p7*p3p6)*(-2*ffmcfmb*fmb*hbcm+fmb*hbcm)+8
4561 . *(ffmcfmb*hbcm2*p3p5*p6p7-fmb*hbcm*p1p3*p6p7-fmb*hbcm*p2p3*
4562 . p6p7+fmb*hbcm*p3p4*p6p7-4*fmb*hbcm*p3p7*p4p6-hbcm2*p4p6*p5p7-
4563 . hbcm2*p5p6*p5p7-p1p3*p3p5*p6p7-p2p3*p3p5*p6p7+p3p4*p3p5*p6p7+2
4564 . *p3p5*p3p6*p5p7-3*p3p5*p3p7*p4p6+p3p5*p3p7*p5p6))+ans2
4565 ans=ccc*ans1
4566 b(15)=ans
4567 ans=ccc*(w2*(16*(p5p6*p3p7)*(ffmcfmb*hbcm-hbcm)+8*(p5p7*p3p6)*(
4568 . -2*ffmcfmb*hbcm+hbcm)+8*(p6p7*p3p5)*(-ffmcfmb*hbcm+fmb+hbcm)+8
4569 . *p6p7*(-ffmcfmb*fmb*hbcm2+fmb*hbcm2+fmb2*hbcm)+8*(-hbcm*p4p6*
4570 . p5p7-hbcm*p5p6*p5p7))+w7*(8*(p6p7*p2p3)*(fmb-hbcm)+4*p6p7*(-
4571 . ffmcfmb**2*hbcm3-2*ffmcfmb*fmb*hbcm2+2*ffmcfmb*fmc*hbcm2+2*
4572 . ffmcfmb*hbcm3+2*fmb*fmc*hbcm-2*fmc*hbcm2-fmc2*hbcm)+8*(-
4573 . ffmcfmb*hbcm*p3p6*p3p7-3*ffmcfmb*hbcm*p3p7*p4p6+ffmcfmb*hbcm*
4574 . p3p7*p5p6))+w11*(8*(p6p7*p2p3)*(fmb-hbcm)+8*(p4p6*p3p7)*(-
4575 . ffmcfmb*hbcm-hbcm)+8*(p6p7*p3p4)*(ffmcfmb*hbcm-fmb)+4*p6p7*(-
4576 . ffmcfmb**2*hbcm3-2*ffmcfmb*fmb*hbcm2+2*ffmcfmb*hbcm3+fmc2*hbcm
4577 . )+8*(-ffmcfmb*hbcm*p3p6*p3p7-2*ffmcfmb*hbcm*p3p6*p4p7+ffmcfmb*
4578 . hbcm*p3p7*p5p6-hbcm*p1p4*p6p7-hbcm*p2p4*p6p7-hbcm*p4p5*p6p7-3*
4579 . hbcm*p4p6*p4p7-hbcm*p4p6*p5p7+2*hbcm*p4p7*p5p6))+8*p6p7*(2*fb1
4580 . *ffmcfmb*hbcm-2*fb1*hbcm+2*fb2*fmb+hbcm))
4581 b(16)=ans
4582 do 200 n=1,16
4583 c(n,1)=c(n,1)-0.1818181818181818d0*b(n)
4584 c(n,2)=c(n,2)-0.1512818716977898d0*b(n)
4585 c(n,3)=c(n,3)-0.1869893980016914d0*b(n)
4586 200 continue
4587 return
4588 end
4589
4590 subroutine amp9_3p0(cc)
4591 implicit double precision(a-h,o-z)
4592 implicit integer (i-n)
4593 dimension b(16)
4594 #include "inclcon.h"
4595 #include "inclppp.h"
4596 #include "inclamp.h"
4597 do 100 n=1,16
4598 b(n)=0.0d0
4599 100 continue
4600 ccc=cc/((-2*p2p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p2p3+2*ffmcfmb*
4601 . p3p4+fmc2-2*p2p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2+2*ffmcfmb*
4602 . p1p3-fmb2+hbcm2-2*p1p3))
4603 ans2=(32*(p6p7*p2p3)*(-fb2*fmb+fb2*fmc)+8*(p4p7*p3p6)*(-4*fb1*
4604 . ffmcfmb*hbcm+4*fb1*hbcm+4*fb2*fmc+3*hbcm))
4605 ans1=w11*(16*(p4p7*p3p6)*(-fmc*hbcm2-fmc2*hbcm)+16*p6p7*(-fmb*
4606 . p2p3s2+fmc*p2p3s2)+16*(p6p7*p3p4*p2p3)*(fmb-fmc)+16*(p6p7*p2p4
4607 . )*(-fmb*hbcm2+fmc*hbcm2-2*hbcm3)+16*(p4p7*p4p6)*(ffmcfmb*hbcm3
4608 . -2*hbcm3)+16*(p4p7*p3p6*p3p4)*(-ffmcfmb*hbcm-fmc-hbcm)+16*(
4609 . p4p7*p3p6*p2p3)*(ffmcfmb*hbcm+fmc+hbcm)+16*(p6p7*p2p3)*(-
4610 . ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm+fmc*hbcm2-2*fmc2*hbcm)+16*(-fmc
4611 . *hbcm2*p1p2*p6p7+fmc*hbcm2*p2p5*p6p7-2*hbcm*p1p2*p3p4*p6p7+2*
4612 . hbcm*p1p2*p3p7*p4p6+2*hbcm*p1p3*p2p4*p6p7+2*hbcm*p1p3*p4p6*
4613 . p4p7+2*hbcm*p1p4*p2p3*p6p7+4*hbcm*p2p3*p2p4*p6p7-2*hbcm*p2p3*
4614 . p2p5*p6p7+4*hbcm*p2p3*p4p6*p4p7+2*hbcm*p2p3*p4p6*p5p7-4*hbcm*
4615 . p2p4*p3p5*p6p7-4*hbcm*p2p4*p3p6*p3p7-2*hbcm*p2p4*p3p6*p5p7-4*
4616 . hbcm*p2p4*p3p7*p4p6+2*hbcm*p2p5*p3p4*p6p7-2*hbcm*p2p5*p3p7*
4617 . p4p6-2*hbcm*p3p4*p4p6*p4p7-2*hbcm*p3p5*p4p6*p4p7))+w13*(16*(
4618 . p6p7*p2p3*p1p3)*(fmb-fmc)+16*(p4p7*p3p6)*(-fmb*fmc*hbcm+fmb2*
4619 . hbcm)+16*(p4p7*p3p6*p1p3)*(-ffmcfmb*hbcm-fmc+hbcm)+16*(p6p7*
4620 . p2p3)*(ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm-fmb*
4621 . hbcm2+fmb2*hbcm+fmc*hbcm2))+ans2
4622 ans=ccc*ans1
4623 b(1)=ans
4624 b(2)=ccc*(w11*(8*(p4p7*p3p4)*(-fmb+fmc+2*hbcm)+8*(p4p7*p2p3)*(
4625 . fmb-fmc-2*hbcm)+8*p4p7*(ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm+2*fmc2*
4626 . hbcm)+16*(hbcm*p1p2*p4p7-hbcm*p1p4*p4p7+2*hbcm*p2p4*p3p7+2*
4627 . hbcm*p2p4*p5p7))+w13*(8*(p4p7*p1p3)*(-fmb+fmc)+8*p4p7*(-
4628 . ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm+fmb*hbcm2-
4629 . fmb2*hbcm-fmc*hbcm2))+16*p4p7*(fb2*fmb-fb2*fmc))
4630 b(3)=16*ccc*w11*(-hbcm*p1p2*p4p6+hbcm*p2p3*p4p6+hbcm*p2p4*p3p6+
4631 . 2*hbcm*p2p4*p4p6+hbcm*p2p5*p4p6)
4632 b(4)=ccc*(w13*((p4p7*p3p6*p1p3)*(-16*ffmcfmb+16)+16*(p4p7*p4p6)
4633 . *(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(p4p7*p3p6)*(ffmcfmb*hbcm2-
4634 . hbcm2)+16*(p6p7*p2p4)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(p1p3*
4635 . p2p4*p6p7+p1p3*p4p6*p4p7))+w11*((p4p7*p3p6*p3p4)*(-16*ffmcfmb+
4636 . 16)+(p4p7*p3p6*p2p3)*(16*ffmcfmb-16)+16*(p4p7*p4p6)*(ffmcfmb*
4637 . hbcm2+fmc*hbcm)+16*(p6p7*p2p4)*(ffmcfmb*hbcm2-fmb*hbcm)+16*(
4638 . fmc*hbcm*p3p6*p4p7-p2p3*p2p4*p6p7-p2p3*p4p6*p4p7+p2p4*p3p4*
4639 . p6p7+p3p4*p4p6*p4p7))+((p4p7*p3p6)*(32*fb2*ffmcfmb-32*fb2+8)+
4640 . 32*(-fb2*p2p4*p6p7-fb2*p4p6*p4p7)))
4641 ans2=(4*p4p7*(-4*fb1*fmb*hbcm-4*fb2*ffmcfmb*hbcm2+hbcm2)+32*(
4642 . fb2*p1p2*p3p7+fb2*p2p3*p4p7+fb2*p2p3*p5p7-fb2*p2p5*p3p7-fb2*
4643 . p3p5*p4p7))
4644 ans1=w11*(8*p4p7*(fmb*fmc*hbcm2+2*fmc*hbcm3+fmc2*hbcm2+2*p2p3s2
4645 . )+8*(p4p7*p3p4)*(-ffmcfmb*hbcm2+fmb*hbcm+2*fmc*hbcm+2*hbcm2)+
4646 . 16*(p3p7*p2p4)*(-ffmcfmb*hbcm2+fmb*hbcm+2*fmc*hbcm+hbcm2)+8*(
4647 . p4p7*p2p3)*(ffmcfmb*hbcm2-fmb*hbcm-6*fmc*hbcm-2*hbcm2)+16*(-2*
4648 . fmc*hbcm*p1p2*p3p7-fmc*hbcm*p1p3*p4p7-2*fmc*hbcm*p2p3*p5p7+2*
4649 . fmc*hbcm*p2p5*p3p7+2*fmc*hbcm*p3p5*p4p7+hbcm2*p1p2*p4p7-hbcm2*
4650 . p1p4*p4p7+hbcm2*p2p4*p5p7+p1p2*p2p3*p3p7-p1p2*p3p4*p3p7-p2p3*
4651 . p2p5*p3p7-p2p3*p3p4*p4p7-p2p3*p3p4*p5p7-p2p3*p3p5*p4p7+p2p3s2*
4652 . p5p7+p2p5*p3p4*p3p7+p3p4*p3p5*p4p7))+w13*(8*p4p7*(ffmcfmb*
4653 . hbcm4+fmb*hbcm3-hbcm4)+16*(p4p7*p3p5)*(ffmcfmb*hbcm2+fmb*hbcm-
4654 . hbcm2)+16*(p3p7*p2p5)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(p5p7*
4655 . p2p3)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(p4p7*p2p3)*(-ffmcfmb
4656 . *hbcm2-fmb*hbcm+hbcm2)+8*(p4p7*p1p3)*(-ffmcfmb*hbcm2-fmb*hbcm+
4657 . 2*hbcm2)+16*(p3p7*p1p2)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(-
4658 . p1p2*p1p3*p3p7-p1p3*p2p3*p4p7-p1p3*p2p3*p5p7+p1p3*p2p5*p3p7+
4659 . p1p3*p3p5*p4p7))+ans2
4660 ans=ccc*ans1
4661 b(5)=ans
4662 b(6)=ccc*(w11*(16*p3p6*(-ffmcfmb*p2p3s2+p2p3s2)+(p3p6*p3p4*p2p3
4663 . )*(16*ffmcfmb-16)+16*(p3p6*p2p4)*(-ffmcfmb*hbcm2+fmb*hbcm+fmc*
4664 . hbcm+hbcm2)+16*(p4p6*p2p3)*(-ffmcfmb*hbcm2-fmc*hbcm+hbcm2)+16*
4665 . (-fmc*hbcm*p1p2*p3p6+fmc*hbcm*p2p5*p3p6-hbcm2*p1p2*p4p6+hbcm2*
4666 . p2p4*p4p6+hbcm2*p2p5*p4p6-p2p3*p3p4*p4p6+p2p3s2*p4p6))+w13*((
4667 . p3p6*p2p3*p1p3)*(16*ffmcfmb-16)+16*(p3p6*p2p5)*(ffmcfmb*hbcm2-
4668 . hbcm2)+16*(p4p6*p2p3)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(p3p6
4669 . *p1p2)*(-ffmcfmb*hbcm2+hbcm2)-16*p1p3*p2p3*p4p6)+((p3p6*p2p3)*
4670 . (-32*fb2*ffmcfmb+32*fb2-8)+32*fb2*p2p3*p4p6))
4671 b(7)=ccc*(w11*(8*p2p4*(ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm)+8*(2*
4672 . fmc*hbcm*p1p2-2*fmc*hbcm*p2p3-2*fmc*hbcm*p2p5-p1p2*p2p3+p1p2*
4673 . p3p4+p2p3*p2p5-p2p3*p3p4+p2p3s2-p2p5*p3p4))+w13*(8*p2p5*(-
4674 . ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*p2p3*(-ffmcfmb*hbcm2-fmb*hbcm+
4675 . hbcm2)+8*p1p2*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(p1p2*p1p3-p1p3
4676 . *p2p3-p1p3*p2p5))+16*(-fb2*p1p2+fb2*p2p3+fb2*p2p5))
4677 b(8)=ccc*(w11*(8*(p3p4*p2p3)*(-fmb+fmc)+8*p2p4*(fmb*hbcm2-fmc*
4678 . hbcm2+2*hbcm3)+8*p2p3*(ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm-fmc*
4679 . hbcm2+2*fmc2*hbcm)+8*(fmb*p2p3s2+fmc*hbcm2*p1p2-fmc*hbcm2*p2p5
4680 . -fmc*p2p3s2+2*hbcm*p1p2*p3p4-2*hbcm*p1p3*p2p4-2*hbcm*p1p4*p2p3
4681 . -4*hbcm*p2p3*p2p4+2*hbcm*p2p3*p2p5+4*hbcm*p2p4*p3p5-2*hbcm*
4682 . p2p5*p3p4))+w13*(8*(p2p3*p1p3)*(-fmb+fmc)+8*p2p3*(-ffmcfmb*fmb
4683 . *hbcm2+ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm+fmb*hbcm2-fmb2*hbcm-fmc*
4684 . hbcm2))+16*p2p3*(fb2*fmb-fb2*fmc))
4685 b(9)=ccc*(w11*(8*p4p6*(ffmcfmb*hbcm3-2*hbcm3)+8*(p3p6*p3p4)*(-
4686 . ffmcfmb*hbcm-fmb+hbcm)+8*(p3p6*p2p3)*(ffmcfmb*hbcm+fmb-hbcm)+8
4687 . *p3p6*(ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+16*
4688 . (hbcm*p1p2*p3p6+hbcm*p1p3*p4p6-hbcm*p1p4*p3p6+hbcm*p2p3*p4p6-
4689 . hbcm*p2p4*p3p6-hbcm*p3p4*p4p6-hbcm*p3p5*p4p6))+w13*(8*(p3p6*
4690 . p1p3)*(-ffmcfmb*hbcm-fmb+hbcm)+8*p3p6*(-ffmcfmb*fmb*hbcm2+
4691 . ffmcfmb*fmc*hbcm2+fmb*hbcm2-fmc*hbcm2))+4*p3p6*(-4*fb1*ffmcfmb
4692 . *hbcm+4*fb1*hbcm+4*fb2*fmb+3*hbcm))
4693 b(10)=ccc*(w11*((p3p6*p3p4)*(-8*ffmcfmb+8)+(p3p6*p2p3)*(8*
4694 . ffmcfmb-8)+8*p4p6*(ffmcfmb*hbcm2+fmc*hbcm)+8*(fmc*hbcm*p3p6-
4695 . p2p3*p4p6+p3p4*p4p6))+w13*((p3p6*p1p3)*(-8*ffmcfmb+8)+8*p4p6*(
4696 . ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*p3p6*(ffmcfmb*hbcm2-hbcm2)+8*
4697 . p1p3*p4p6)+(p3p6*(16*fb2*ffmcfmb-16*fb2+4)-16*fb2*p4p6))
4698 b(11)=ccc*(w11*(4*p3p4*(-ffmcfmb*hbcm2+fmb*hbcm+2*fmc*hbcm+2*
4699 . hbcm2)+4*p2p3*(ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm-2*hbcm2)+4*(
4700 . fmb*fmc*hbcm2-2*fmc*hbcm*p1p3+4*fmc*hbcm*p3p5+2*fmc*hbcm3+fmc2
4701 . *hbcm2+2*hbcm2*p1p2-2*hbcm2*p1p4-2*hbcm2*p2p4-2*p2p3*p3p5+2*
4702 . p3p4*p3p5))+w13*(8*p3p5*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+4*p1p3*
4703 . (-ffmcfmb*hbcm2-fmb*hbcm+2*hbcm2)+4*(ffmcfmb*hbcm4+fmb*hbcm3-
4704 . hbcm4+2*p1p3*p3p5))+2*(-4*fb1*fmb*hbcm-4*fb2*ffmcfmb*hbcm2-8*
4705 . fb2*p3p5+hbcm2))
4706 b(12)=ccc*(w11*(8*(p3p7*p3p4)*(fmb-fmc)+8*(p3p7*p2p3)*(-fmb+fmc
4707 . )+8*p3p7*(-ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm+fmc*hbcm2-2*fmc2*
4708 . hbcm)+8*(fmc*hbcm2*p4p7+fmc*hbcm2*p5p7-2*hbcm*p1p2*p3p7+2*hbcm
4709 . *p1p4*p3p7-2*hbcm*p2p3*p4p7-2*hbcm*p2p3*p5p7+4*hbcm*p2p4*p3p7+
4710 . 2*hbcm*p3p4*p4p7+2*hbcm*p3p4*p5p7))+w13*(8*(p3p7*p1p3)*(fmb-
4711 . fmc)+8*p3p7*(ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm-
4712 . fmb*hbcm2+fmb2*hbcm+fmc*hbcm2))+16*p3p7*(-fb2*fmb+fb2*fmc))
4713 b(13)=ccc*(w11*(4*p3p4*(fmb-fmc-2*hbcm)+4*p2p3*(-fmb+fmc+2*hbcm
4714 . )+4*(-ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm-2*fmc2*hbcm-2*hbcm*p1p2+2
4715 . *hbcm*p1p4+4*hbcm*p2p4))+w13*(4*p1p3*(fmb-fmc)+4*(ffmcfmb*fmb*
4716 . hbcm2-ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm-fmb*hbcm2+fmb2*hbcm+fmc*
4717 . hbcm2))+8*(-fb2*fmb+fb2*fmc))
4718 b(14)=ccc*(8*w11*(2*fmc*hbcm*p3p7+2*fmc*hbcm*p4p7+2*fmc*hbcm*
4719 . p5p7-p2p3*p3p7-p2p3*p4p7-p2p3*p5p7+p3p4*p3p7+p3p4*p4p7+p3p4*
4720 . p5p7)+w13*(8*p5p7*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*p4p7*(
4721 . ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*p3p7*(ffmcfmb*hbcm2+fmb*hbcm-
4722 . hbcm2)+8*(p1p3*p3p7+p1p3*p4p7+p1p3*p5p7))+16*(-fb2*p3p7-fb2*
4723 . p4p7-fb2*p5p7))
4724 ans2=((p3p7*p3p6)*(32*fb2*ffmcfmb-32*fb2+8)+4*p6p7*(-4*fb1*fmb*
4725 . hbcm-4*fb2*ffmcfmb*hbcm2+8*fb2*hbcm2+hbcm2)+32*(-fb2*p1p3*p6p7
4726 . -fb2*p2p3*p6p7+fb2*p3p4*p6p7-fb2*p3p7*p4p6))
4727 ans1=w11*(8*p6p7*(fmb*fmc*hbcm2-2*fmc*hbcm3+fmc2*hbcm2-2*p2p3s2
4728 . -2*p3p4s2)+(p3p7*p3p6*p3p4)*(-16*ffmcfmb+16)+(p3p7*p3p6*p2p3)*
4729 . (16*ffmcfmb-16)+16*(p4p6*p3p7)*(ffmcfmb*hbcm2+fmc*hbcm-hbcm2)+
4730 . 8*(p6p7*p3p4)*(-ffmcfmb*hbcm2+fmb*hbcm-2*fmc*hbcm)+8*(p6p7*
4731 . p2p3)*(ffmcfmb*hbcm2-fmb*hbcm+2*fmc*hbcm)+16*(fmc*hbcm*p1p3*
4732 . p6p7-fmc*hbcm*p3p6*p4p7-fmc*hbcm*p3p6*p5p7+hbcm2*p1p2*p6p7-
4733 . hbcm2*p1p4*p6p7-hbcm2*p2p4*p6p7-hbcm2*p4p6*p4p7-hbcm2*p4p6*
4734 . p5p7-p1p3*p2p3*p6p7+p1p3*p3p4*p6p7+2*p2p3*p3p4*p6p7-p2p3*p3p7*
4735 . p4p6+p3p4*p3p7*p4p6))+w13*((p3p7*p3p6*p1p3)*(-16*ffmcfmb+16)+8
4736 . *p6p7*(-ffmcfmb*hbcm4-fmb*hbcm3+hbcm4+2*p1p3s2)+16*(p4p6*p3p7)
4737 . *(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(p5p7*p3p6)*(-ffmcfmb*hbcm2
4738 . +hbcm2)+16*(p4p7*p3p6)*(-ffmcfmb*hbcm2+hbcm2)+16*(p6p7*p3p4)*(
4739 . -ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(p6p7*p2p3)*(ffmcfmb*hbcm2+
4740 . fmb*hbcm-hbcm2)+8*(p6p7*p1p3)*(ffmcfmb*hbcm2+fmb*hbcm-2*hbcm2)
4741 . +16*(p1p3*p2p3*p6p7-p1p3*p3p4*p6p7+p1p3*p3p7*p4p6))+ans2
4742 ans=ccc*ans1
4743 b(15)=ans
4744 b(16)=ccc*(w11*(8*(p6p7*p3p4)*(-fmb+fmc+2*hbcm)+8*(p6p7*p2p3)*(
4745 . fmb-fmc-2*hbcm)+8*p6p7*(ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm+2*fmc2*
4746 . hbcm)+16*(hbcm*p1p2*p6p7-hbcm*p1p4*p6p7-2*hbcm*p2p4*p6p7-hbcm*
4747 . p3p7*p4p6-hbcm*p4p6*p4p7-hbcm*p4p6*p5p7))+w13*(8*(p6p7*p1p3)*(
4748 . -fmb+fmc)+8*p6p7*(-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+fmb*fmc
4749 . *hbcm+fmb*hbcm2-fmb2*hbcm-fmc*hbcm2))+16*p6p7*(fb2*fmb-fb2*fmc
4750 . ))
4751 do 200 n=1,16
4752 c(n,1)=c(n,1)+0.09090909090909091d0*b(n)
4753 c(n,2)=c(n,2)-0.01680909685530997d0*b(n)
4754 c(n,3)=c(n,3)-0.02077659977796572d0*b(n)
4755 200 continue
4756 return
4757 end
4758
4759 subroutine amp8_3p0(cc)
4760 implicit double precision(a-h,o-z)
4761 implicit integer (i-n)
4762 dimension b(16)
4763 #include "inclcon.h"
4764 #include "inclppp.h"
4765 #include "inclamp.h"
4766 do 100 n=1,16
4767 b(n)=0.0d0
4768 100 continue
4769 ccc=cc/((-2*p2p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*
4770 . p3p5+fmb2+hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3-fmc2)
4771 . )
4772 ans=ccc*(w2*(16*(p6p7*p3p5*p2p3)*(-fmb+fmc)+16*(p5p6*p4p7)*(
4773 . ffmcfmb*hbcm3-fmb*hbcm2-hbcm3)+16*(p4p7*p3p6*p3p5)*(-ffmcfmb*
4774 . hbcm+fmc-2*hbcm)+16*(p4p7*p3p6)*(ffmcfmb*fmb*hbcm2+fmb*fmc*
4775 . hbcm-fmb*hbcm2-fmb2*hbcm)+16*(p6p7*p2p3)*(ffmcfmb*fmb*hbcm2+
4776 . fmb*fmc*hbcm-2*fmb2*hbcm)+16*(-fmb*hbcm2*p1p2*p6p7+fmb*hbcm2*
4777 . p2p5*p6p7-fmb*hbcm2*p4p6*p4p7-2*hbcm*p1p2*p3p5*p6p7+2*hbcm*
4778 . p1p2*p3p7*p5p6+2*hbcm*p1p5*p2p3*p6p7+2*hbcm*p1p5*p3p6*p4p7+2*
4779 . hbcm*p2p3*p4p7*p5p6+2*hbcm*p2p3*p5p6*p5p7+2*hbcm*p2p5*p3p5*
4780 . p6p7-2*hbcm*p2p5*p3p7*p5p6-2*hbcm*p3p5*p4p6*p4p7-2*hbcm*p3p5*
4781 . p4p7*p5p6))+w12*(16*(p6p7*p2p3*p1p3)*(-fmb+fmc)+16*(p4p7*p3p6*
4782 . p1p3)*(-ffmcfmb*hbcm+fmc)+16*(p4p7*p3p6)*(ffmcfmb*fmb*hbcm2-
4783 . ffmcfmb*fmc*hbcm2)+16*(p6p7*p2p3)*(ffmcfmb*fmb*hbcm2-ffmcfmb*
4784 . fmc*hbcm2-fmb*fmc*hbcm+fmc2*hbcm))+(32*(p6p7*p2p3)*(-fb2*fmb+
4785 . fb2*fmc)+8*(p4p7*p3p6)*(-4*fb1*ffmcfmb*hbcm+4*fb2*fmc-3*hbcm))
4786 . )
4787 b(1)=ans
4788 b(2)=ccc*(w2*(8*(p4p7*p3p5)*(fmb-fmc+2*hbcm)+8*p4p7*(-ffmcfmb*
4789 . fmb*hbcm2-fmb*fmc*hbcm+fmb*hbcm2+2*fmb2*hbcm)-16*hbcm*p1p5*
4790 . p4p7)+w12*(8*(p4p7*p1p3)*(fmb-fmc)+8*p4p7*(-ffmcfmb*fmb*hbcm2+
4791 . ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm-fmc2*hbcm))+16*p4p7*(fb2*fmb-
4792 . fb2*fmc))
4793 b(3)=16*ccc*w2*(-hbcm*p1p2*p5p6+hbcm*p2p3*p5p6+hbcm*p2p5*p5p6)
4794 b(4)=ccc*(w2*((p4p7*p3p6*p3p5)*(16*ffmcfmb-16)+16*(p5p6*p4p7)*(
4795 . -ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(-2*fmb*hbcm*p2p4*p6p7-fmb*
4796 . hbcm*p3p6*p4p7-2*fmb*hbcm*p4p6*p4p7-p2p4*p3p5*p6p7-p3p5*p4p6*
4797 . p4p7))+w12*((p4p7*p3p6*p1p3)*(16*ffmcfmb-16)+16*(p4p7*p4p6)*(
4798 . ffmcfmb*hbcm2-fmc*hbcm)+16*(p6p7*p2p4)*(ffmcfmb*hbcm2-fmc*hbcm
4799 . )+16*(-fmc*hbcm*p3p6*p4p7-p1p3*p2p4*p6p7-p1p3*p4p6*p4p7))+((
4800 . p4p7*p3p6)*(32*fb2*ffmcfmb-32*fb2+8)+32*(-fb2*p2p4*p6p7-fb2*
4801 . p4p6*p4p7)))
4802 ans=ccc*(w2*(8*p4p7*(fmb*fmc*hbcm2-2*fmb*hbcm3+fmb2*hbcm2-2*
4803 . p3p5s2)+8*(p4p7*p3p5)*(ffmcfmb*hbcm2-2*fmb*hbcm+fmc*hbcm-hbcm2
4804 . )+16*(2*fmb*hbcm*p1p2*p3p7+fmb*hbcm*p1p3*p4p7+2*fmb*hbcm*p2p3*
4805 . p4p7+2*fmb*hbcm*p2p3*p5p7-2*fmb*hbcm*p2p5*p3p7-hbcm2*p1p5*p4p7
4806 . +p1p2*p3p5*p3p7+p1p3*p3p5*p4p7+p2p3*p3p5*p4p7+p2p3*p3p5*p5p7-
4807 . p2p5*p3p5*p3p7))+w12*(8*p4p7*(ffmcfmb*hbcm4-fmc*hbcm3+2*p1p3s2
4808 . )+16*(p4p7*p3p5)*(ffmcfmb*hbcm2-fmc*hbcm)+16*(p3p7*p2p5)*(
4809 . ffmcfmb*hbcm2-fmc*hbcm)+16*(p5p7*p2p3)*(-ffmcfmb*hbcm2+fmc*
4810 . hbcm)+16*(p4p7*p2p3)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(p4p7*p1p3)*(
4811 . -ffmcfmb*hbcm2+fmc*hbcm-hbcm2)+16*(p3p7*p1p2)*(-ffmcfmb*hbcm2+
4812 . fmc*hbcm)+16*(p1p2*p1p3*p3p7+p1p3*p2p3*p4p7+p1p3*p2p3*p5p7-
4813 . p1p3*p2p5*p3p7-p1p3*p3p5*p4p7))+(4*p4p7*(-4*fb1*fmc*hbcm-4*fb2
4814 . *ffmcfmb*hbcm2-4*fb2*hbcm2+hbcm2)+32*(fb2*p1p2*p3p7+fb2*p1p3*
4815 . p4p7+fb2*p2p3*p4p7+fb2*p2p3*p5p7-fb2*p2p5*p3p7-fb2*p3p5*p4p7))
4816 . )
4817 b(5)=ans
4818 b(6)=ccc*(w2*(16*(p5p6*p2p3)*(ffmcfmb*hbcm2+fmb*hbcm)+16*(-
4819 . ffmcfmb*p2p3*p3p5*p3p6+fmb*hbcm*p1p2*p3p6+2*fmb*hbcm*p2p3*p4p6
4820 . -fmb*hbcm*p2p5*p3p6-hbcm2*p1p2*p5p6+hbcm2*p2p5*p5p6+p1p2*p3p5*
4821 . p3p6+p2p3*p3p5*p4p6-p2p5*p3p5*p3p6))+w12*(16*(p4p6*p2p3)*(-
4822 . ffmcfmb*hbcm2+fmc*hbcm)+16*(-ffmcfmb*p1p3*p2p3*p3p6+fmc*hbcm*
4823 . p1p2*p3p6-fmc*hbcm*p2p5*p3p6+p1p2*p1p3*p3p6+p1p3*p2p3*p4p6-
4824 . p1p3*p2p5*p3p6))+((p3p6*p2p3)*(-32*fb2*ffmcfmb-8)+32*(fb2*p1p2
4825 . *p3p6+fb2*p2p3*p4p6-fb2*p2p5*p3p6)))
4826 b(7)=ccc*(8*w2*(-2*fmb*hbcm*p1p2+2*fmb*hbcm*p2p3+2*fmb*hbcm*
4827 . p2p5-p1p2*p3p5+p2p3*p3p5+p2p5*p3p5)+w12*(8*p2p5*(-ffmcfmb*
4828 . hbcm2+fmc*hbcm)+8*p2p3*(-ffmcfmb*hbcm2+fmc*hbcm)+8*p1p2*(
4829 . ffmcfmb*hbcm2-fmc*hbcm)+8*(-p1p2*p1p3+p1p3*p2p3+p1p3*p2p5))+16
4830 . *(-fb2*p1p2+fb2*p2p3+fb2*p2p5))
4831 b(8)=ccc*(w2*(8*(p3p5*p2p3)*(fmb-fmc)+8*p2p3*(-ffmcfmb*fmb*
4832 . hbcm2-fmb*fmc*hbcm+2*fmb2*hbcm)+8*(fmb*hbcm2*p1p2-fmb*hbcm2*
4833 . p2p5+2*hbcm*p1p2*p3p5-2*hbcm*p1p5*p2p3-2*hbcm*p2p5*p3p5))+w12*
4834 . (8*(p2p3*p1p3)*(fmb-fmc)+8*p2p3*(-ffmcfmb*fmb*hbcm2+ffmcfmb*
4835 . fmc*hbcm2+fmb*fmc*hbcm-fmc2*hbcm))+16*p2p3*(fb2*fmb-fb2*fmc))
4836 b(9)=ccc*(w2*(8*p5p6*(ffmcfmb*hbcm3-fmb*hbcm2-hbcm3)+8*(p3p6*
4837 . p3p5)*(-ffmcfmb*hbcm+fmb)+8*(-fmb*hbcm2*p4p6+fmb2*hbcm*p3p6-2*
4838 . hbcm*p3p5*p4p6-2*hbcm*p3p5*p5p6))+w12*(8*p3p6*(fmb*fmc*hbcm-
4839 . fmc2*hbcm)+8*(p3p6*p1p3)*(-ffmcfmb*hbcm+fmb))+4*p3p6*(-4*fb1*
4840 . ffmcfmb*hbcm+4*fb2*fmb-3*hbcm))
4841 b(10)=ccc*(w2*((p3p6*p3p5)*(8*ffmcfmb-8)+8*p5p6*(-ffmcfmb*hbcm2
4842 . -fmb*hbcm+hbcm2)+8*(-fmb*hbcm*p3p6-2*fmb*hbcm*p4p6-p3p5*p4p6))
4843 . +w12*((p3p6*p1p3)*(8*ffmcfmb-8)+8*p4p6*(ffmcfmb*hbcm2-fmc*hbcm
4844 . )+8*(-fmc*hbcm*p3p6-p1p3*p4p6))+(p3p6*(16*fb2*ffmcfmb-16*fb2+4
4845 . )-16*fb2*p4p6))
4846 b(11)=ccc*(w2*(4*p3p5*(ffmcfmb*hbcm2-2*fmb*hbcm+fmc*hbcm-hbcm2)
4847 . +4*(fmb*fmc*hbcm2+2*fmb*hbcm*p1p3-2*fmb*hbcm3+fmb2*hbcm2-2*
4848 . hbcm2*p1p5+2*p1p3*p3p5-2*p3p5s2))+w12*(8*p3p5*(ffmcfmb*hbcm2-
4849 . fmc*hbcm)+4*p1p3*(-ffmcfmb*hbcm2+fmc*hbcm-hbcm2)+4*(ffmcfmb*
4850 . hbcm4-fmc*hbcm3-2*p1p3*p3p5+2*p1p3s2))+2*(-4*fb1*fmc*hbcm-4*
4851 . fb2*ffmcfmb*hbcm2-4*fb2*hbcm2+8*fb2*p1p3-8*fb2*p3p5+hbcm2))
4852 b(12)=ccc*(w2*(8*(p3p7*p3p5)*(-fmb+fmc)+8*p3p7*(ffmcfmb*fmb*
4853 . hbcm2+fmb*fmc*hbcm-2*fmb2*hbcm)+8*(fmb*hbcm2*p4p7+fmb*hbcm2*
4854 . p5p7+2*hbcm*p1p5*p3p7+2*hbcm*p3p5*p4p7+2*hbcm*p3p5*p5p7))+w12*
4855 . (8*(p3p7*p1p3)*(-fmb+fmc)+8*p3p7*(ffmcfmb*fmb*hbcm2-ffmcfmb*
4856 . fmc*hbcm2-fmb*fmc*hbcm+fmc2*hbcm))+16*p3p7*(-fb2*fmb+fb2*fmc))
4857 b(13)=ccc*(w2*(4*p3p5*(-fmb+fmc-2*hbcm)+4*(ffmcfmb*fmb*hbcm2+
4858 . fmb*fmc*hbcm-fmb*hbcm2-2*fmb2*hbcm+2*hbcm*p1p5))+w12*(4*p1p3*(
4859 . -fmb+fmc)+4*(ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm+
4860 . fmc2*hbcm))+8*(-fb2*fmb+fb2*fmc))
4861 b(14)=ccc*(8*w2*(-2*fmb*hbcm*p3p7-2*fmb*hbcm*p4p7-2*fmb*hbcm*
4862 . p5p7-p3p5*p3p7-p3p5*p4p7-p3p5*p5p7)+w12*(8*p5p7*(ffmcfmb*hbcm2
4863 . -fmc*hbcm)+8*p4p7*(ffmcfmb*hbcm2-fmc*hbcm)+8*p3p7*(ffmcfmb*
4864 . hbcm2-fmc*hbcm)+8*(-p1p3*p3p7-p1p3*p4p7-p1p3*p5p7))+16*(-fb2*
4865 . p3p7-fb2*p4p7-fb2*p5p7))
4866 ans=ccc*(w2*(8*p6p7*(fmb*fmc*hbcm2+2*fmb*hbcm3+fmb2*hbcm2)+16*(
4867 . p5p6*p3p7)*(-ffmcfmb*hbcm2-fmb*hbcm)+8*(p6p7*p3p5)*(ffmcfmb*
4868 . hbcm2+2*fmb*hbcm+fmc*hbcm+hbcm2)+16*(ffmcfmb*p3p5*p3p6*p3p7-
4869 . fmb*hbcm*p1p3*p6p7-2*fmb*hbcm*p2p3*p6p7+2*fmb*hbcm*p3p4*p6p7+
4870 . fmb*hbcm*p3p6*p4p7+fmb*hbcm*p3p6*p5p7-2*fmb*hbcm*p3p7*p4p6-
4871 . hbcm2*p1p5*p6p7-hbcm2*p4p7*p5p6-hbcm2*p5p6*p5p7-p2p3*p3p5*p6p7
4872 . +p3p4*p3p5*p6p7+p3p5*p3p6*p4p7+p3p5*p3p6*p5p7-p3p5*p3p7*p4p6))
4873 . +w12*(8*p6p7*(-ffmcfmb*hbcm4+fmc*hbcm3)+16*(p4p6*p3p7)*(
4874 . ffmcfmb*hbcm2-fmc*hbcm)+16*(p6p7*p3p4)*(-ffmcfmb*hbcm2+fmc*
4875 . hbcm)+16*(p6p7*p2p3)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p6p7*p1p3)*(
4876 . ffmcfmb*hbcm2-fmc*hbcm+hbcm2)+16*(ffmcfmb*p1p3*p3p6*p3p7+fmc*
4877 . hbcm*p3p6*p4p7+fmc*hbcm*p3p6*p5p7-p1p3*p2p3*p6p7+p1p3*p3p4*
4878 . p6p7+p1p3*p3p6*p4p7+p1p3*p3p6*p5p7-p1p3*p3p7*p4p6))+((p3p7*
4879 . p3p6)*(32*fb2*ffmcfmb+8)+4*p6p7*(-4*fb1*fmc*hbcm-4*fb2*ffmcfmb
4880 . *hbcm2+4*fb2*hbcm2+hbcm2)+32*(-fb2*p2p3*p6p7+fb2*p3p4*p6p7+fb2
4881 . *p3p6*p4p7+fb2*p3p6*p5p7-fb2*p3p7*p4p6)))
4882 b(15)=ans
4883 b(16)=ccc*(w2*(8*(p6p7*p3p5)*(fmb-fmc+2*hbcm)+8*p6p7*(-ffmcfmb*
4884 . fmb*hbcm2-fmb*fmc*hbcm+fmb*hbcm2+2*fmb2*hbcm)+16*(-hbcm*p1p5*
4885 . p6p7-hbcm*p3p7*p5p6-hbcm*p4p7*p5p6-hbcm*p5p6*p5p7))+w12*(8*(
4886 . p6p7*p1p3)*(fmb-fmc)+8*p6p7*(-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*
4887 . hbcm2+fmb*fmc*hbcm-fmc2*hbcm))+16*p6p7*(fb2*fmb-fb2*fmc))
4888 do 200 n=1,16
4889 c(n,1)=c(n,1)+0.09090909090909091d0*b(n)
4890 c(n,2)=c(n,2)-0.01680909685530997d0*b(n)
4891 c(n,3)=c(n,3)-0.02077659977796572d0*b(n)
4892 200 continue
4893 return
4894 end
4895
4896 subroutine amp7_3p0(cc)
4897 implicit double precision(a-h,o-z)
4898 implicit integer (i-n)
4899 dimension b(16)
4900 #include "inclcon.h"
4901 #include "inclppp.h"
4902 #include "inclamp.h"
4903 do 100 n=1,16
4904 b(n)=0.0d0
4905 100 continue
4906 ccc=cc/((-2*p2p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*
4907 . p3p5+fmb2+hbcm2+2*p3p5)*(fmb2-fmc2+hbcm2+2*p3p5))
4908 b(1)=ccc*(w2*(16*(p4p7*p3p6*p3p5)*(fmb-fmc)+16*(p6p7*p3p5*p2p3)
4909 . *(fmb-fmc)+16*(fmb*hbcm2*p2p3*p6p7+fmb*hbcm2*p3p6*p4p7))+(32*(
4910 . p4p7*p3p6)*(-2*fb1*hbcm+fb2*fmb-fb2*fmc)+32*(p6p7*p2p3)*(-2*
4911 . fb1*hbcm+fb2*fmb-fb2*fmc)))
4912 b(2)=ccc*(w2*(8*(p4p7*p3p5)*(-fmb+fmc)-8*fmb*hbcm2*p4p7)+16*
4913 . p4p7*(2*fb1*hbcm-fb2*fmb+fb2*fmc))
4914 b(5)=ccc*(w2*(8*p4p7*(-fmb*fmc*hbcm2-fmb2*hbcm2+2*p3p5s2)+8*
4915 . hbcm2*p3p5*p4p7)+(16*p4p7*(2*fb1*fmb*hbcm+2*fb1*fmc*hbcm+fb2*
4916 . hbcm2)+32*fb2*p3p5*p4p7))
4917 b(8)=ccc*(w2*(8*(p3p5*p2p3)*(-fmb+fmc)-8*fmb*hbcm2*p2p3)+16*
4918 . p2p3*(2*fb1*hbcm-fb2*fmb+fb2*fmc))
4919 b(11)=ccc*(4*w2*(-fmb*fmc*hbcm2-fmb2*hbcm2+hbcm2*p3p5+2*p3p5s2)
4920 . +8*(2*fb1*fmb*hbcm+2*fb1*fmc*hbcm+fb2*hbcm2+2*fb2*p3p5))
4921 b(12)=ccc*(w2*(8*(p3p7*p3p5)*(fmb-fmc)+8*fmb*hbcm2*p3p7)+16*
4922 . p3p7*(-2*fb1*hbcm+fb2*fmb-fb2*fmc))
4923 b(13)=ccc*(w2*(4*p3p5*(fmb-fmc)+4*fmb*hbcm2)+8*(-2*fb1*hbcm+fb2
4924 . *fmb-fb2*fmc))
4925 b(15)=ccc*(w2*(8*p6p7*(-fmb*fmc*hbcm2-fmb2*hbcm2+2*p3p5s2)+8*
4926 . hbcm2*p3p5*p6p7)+(16*p6p7*(2*fb1*fmb*hbcm+2*fb1*fmc*hbcm+fb2*
4927 . hbcm2)+32*fb2*p3p5*p6p7))
4928 b(16)=ccc*(w2*(8*(p6p7*p3p5)*(-fmb+fmc)-8*fmb*hbcm2*p6p7)+16*
4929 . p6p7*(2*fb1*hbcm-fb2*fmb+fb2*fmc))
4930 do 200 n=1,16
4931 c(n,1)=c(n,1)-0.7272727272727273d0*b(n)
4932 c(n,2)=c(n,2)+0.1344727748424798d0*b(n)
4933 c(n,3)=c(n,3)+0.1662127982237257d0*b(n)
4934 200 continue
4935 return
4936 end
4937
4938 subroutine amp6_3p0(cc)
4939 implicit double precision(a-h,o-z)
4940 implicit integer (i-n)
4941 dimension b(16)
4942 #include "inclcon.h"
4943 #include "inclppp.h"
4944 #include "inclamp.h"
4945 do 100 n=1,16
4946 b(n)=0.0d0
4947 100 continue
4948 ccc=cc/((4*p1p5*p2p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p2p3+2*
4949 . ffmcfmb*p3p4+fmc2-2*p2p4))
4950 b(1)=ccc*(w11*(16*p6p7*(fmb*p2p3s2-fmc*p2p3s2)+16*(p6p7*p3p4*
4951 . p2p3)*(-fmb+fmc)+16*(p6p7*p2p4)*(fmb*hbcm2-fmc*hbcm2)+16*(fmc*
4952 . hbcm2*p1p2*p6p7-fmc*hbcm2*p2p5*p6p7+fmc*hbcm2*p3p6*p4p7+fmc*
4953 . hbcm2*p4p6*p4p7+fmc*hbcm2*p4p7*p5p6))+(32*(p6p7*p2p3)*(fb2*fmb
4954 . -fb2*fmc)+64*(-fb1*hbcm*p1p2*p6p7+fb1*hbcm*p2p5*p6p7-fb1*hbcm*
4955 . p3p6*p4p7-fb1*hbcm*p4p6*p4p7-fb1*hbcm*p4p7*p5p6)))
4956 b(2)=ccc*(w11*(8*(p4p7*p3p4)*(fmb-fmc)+8*(p4p7*p2p3)*(-fmb+fmc)
4957 . -8*fmc*hbcm2*p4p7)+16*p4p7*(2*fb1*hbcm-fb2*fmb+fb2*fmc))
4958 b(4)=ccc*(16*w11*(-hbcm2*p2p4*p6p7+p2p3*p2p4*p6p7+p2p3*p3p6*
4959 . p4p7+p2p3*p4p6*p4p7+p2p3*p4p7*p5p6-p2p4*p3p4*p6p7-p3p4*p3p6*
4960 . p4p7-p3p4*p4p6*p4p7-p3p4*p4p7*p5p6)+32*(fb2*p2p4*p6p7+fb2*p3p6
4961 . *p4p7+fb2*p4p6*p4p7+fb2*p4p7*p5p6))
4962 b(5)=ccc*(w11*(8*p4p7*(-fmb*fmc*hbcm2-fmc2*hbcm2-2*p2p3s2)+8*(
4963 . hbcm2*p2p3*p4p7-2*hbcm2*p2p4*p5p7-hbcm2*p3p4*p4p7-2*p1p2*p2p3*
4964 . p3p7+2*p1p2*p3p4*p3p7-2*p1p3*p2p3*p4p7+2*p1p3*p3p4*p4p7+2*p2p3
4965 . *p2p5*p3p7+2*p2p3*p3p4*p4p7+2*p2p3*p3p4*p5p7+2*p2p3*p3p5*p4p7-
4966 . 2*p2p3s2*p5p7-2*p2p5*p3p4*p3p7-2*p3p4*p3p5*p4p7))+(16*p4p7*(2*
4967 . fb1*fmb*hbcm+2*fb1*fmc*hbcm+fb2*hbcm2)+32*(-fb2*p1p2*p3p7-fb2*
4968 . p1p3*p4p7-fb2*p2p3*p4p7-fb2*p2p3*p5p7+fb2*p2p5*p3p7+fb2*p3p5*
4969 . p4p7)))
4970 b(6)=ccc*(16*w11*(-hbcm2*p2p4*p4p6-hbcm2*p2p4*p5p6-p1p2*p2p3*
4971 . p3p6+p1p2*p3p4*p3p6+p2p3*p2p5*p3p6+p2p3*p3p4*p4p6+p2p3*p3p4*
4972 . p5p6-p2p3s2*p4p6-p2p3s2*p5p6-p2p5*p3p4*p3p6)+32*(-fb2*p1p2*
4973 . p3p6-fb2*p2p3*p4p6-fb2*p2p3*p5p6+fb2*p2p5*p3p6))
4974 b(7)=ccc*(8*w11*(-hbcm2*p2p4+p1p2*p2p3-p1p2*p3p4-p2p3*p2p5+p2p3
4975 . *p3p4-p2p3s2+p2p5*p3p4)+16*(fb2*p1p2-fb2*p2p3-fb2*p2p5))
4976 b(8)=ccc*(w11*(8*(p3p4*p2p3)*(fmb-fmc)+8*p2p4*(-fmb*hbcm2+fmc*
4977 . hbcm2)+8*(-fmb*p2p3s2-fmc*hbcm2*p1p2+fmc*hbcm2*p2p5+fmc*p2p3s2
4978 . ))+(16*p2p3*(-fb2*fmb+fb2*fmc)+32*(fb1*hbcm*p1p2-fb1*hbcm*p2p5
4979 . )))
4980 b(9)=ccc*(w11*(8*(p3p6*p3p4)*(fmb-fmc)+8*(p3p6*p2p3)*(-fmb+fmc)
4981 . +8*(fmc*hbcm2*p4p6+fmc*hbcm2*p5p6))+(16*p3p6*(-fb2*fmb+fb2*fmc
4982 . )+32*(-fb1*hbcm*p4p6-fb1*hbcm*p5p6)))
4983 b(10)=ccc*(8*w11*(p2p3*p3p6+p2p3*p4p6+p2p3*p5p6-p3p4*p3p6-p3p4*
4984 . p4p6-p3p4*p5p6)+16*(fb2*p3p6+fb2*p4p6+fb2*p5p6))
4985 b(11)=ccc*(4*w11*(-fmb*fmc*hbcm2-fmc2*hbcm2+hbcm2*p2p3+2*hbcm2*
4986 . p2p4-hbcm2*p3p4-2*p1p3*p2p3+2*p1p3*p3p4+2*p2p3*p3p5-2*p3p4*
4987 . p3p5)+8*(2*fb1*fmb*hbcm+2*fb1*fmc*hbcm+fb2*hbcm2-2*fb2*p1p3+2*
4988 . fb2*p3p5))
4989 b(12)=ccc*(w11*(8*(p3p7*p3p4)*(-fmb+fmc)+8*(p3p7*p2p3)*(fmb-fmc
4990 . )+8*(-fmc*hbcm2*p4p7-fmc*hbcm2*p5p7))+(16*p3p7*(fb2*fmb-fb2*
4991 . fmc)+32*(fb1*hbcm*p4p7+fb1*hbcm*p5p7)))
4992 b(13)=ccc*(w11*(4*p3p4*(-fmb+fmc)+4*p2p3*(fmb-fmc)+4*fmc*hbcm2)
4993 . +8*(-2*fb1*hbcm+fb2*fmb-fb2*fmc))
4994 b(14)=ccc*(8*w11*(p2p3*p3p7+p2p3*p4p7+p2p3*p5p7-p3p4*p3p7-p3p4*
4995 . p4p7-p3p4*p5p7)+16*(fb2*p3p7+fb2*p4p7+fb2*p5p7))
4996 b(15)=ccc*(w11*(8*p6p7*(-fmb*fmc*hbcm2-fmc2*hbcm2+2*p2p3s2+2*
4997 . p3p4s2)+8*(-hbcm2*p2p3*p6p7+2*hbcm2*p2p4*p6p7+hbcm2*p3p4*p6p7-
4998 . 4*p2p3*p3p4*p6p7-2*p2p3*p3p6*p4p7-2*p2p3*p3p6*p5p7+2*p2p3*p3p7
4999 . *p4p6+2*p2p3*p3p7*p5p6+2*p3p4*p3p6*p4p7+2*p3p4*p3p6*p5p7-2*
5000 . p3p4*p3p7*p4p6-2*p3p4*p3p7*p5p6))+(16*p6p7*(2*fb1*fmb*hbcm+2*
5001 . fb1*fmc*hbcm-fb2*hbcm2)+32*(fb2*p2p3*p6p7-fb2*p3p4*p6p7-fb2*
5002 . p3p6*p4p7-fb2*p3p6*p5p7+fb2*p3p7*p4p6+fb2*p3p7*p5p6)))
5003 b(16)=ccc*(w11*(8*(p6p7*p3p4)*(fmb-fmc)+8*(p6p7*p2p3)*(-fmb+fmc
5004 . )-8*fmc*hbcm2*p6p7)+16*p6p7*(2*fb1*hbcm-fb2*fmb+fb2*fmc))
5005 do 200 n=1,16
5006 c(n,1)=c(n,1)-0.7272727272727273d0*b(n)
5007 c(n,2)=c(n,2)+0.1344727748424798d0*b(n)
5008 c(n,3)=c(n,3)+0.1662127982237257d0*b(n)
5009 200 continue
5010 return
5011 end
5012
5013 subroutine amp5_3p0(cc)
5014 implicit double precision(a-h,o-z)
5015 implicit integer (i-n)
5016 dimension b(16)
5017 #include "inclcon.h"
5018 #include "inclppp.h"
5019 #include "inclamp.h"
5020 do 100 n=1,16
5021 b(n)=0.0d0
5022 100 continue
5023 ccc=cc/((-2*p1p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3+2*ffmcfmb*
5024 . p3p4+fmc2-2*p1p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2+2*ffmcfmb*
5025 . p2p3-fmb2+hbcm2-2*p2p3))
5026 b(1)=ccc*(16*w8*(p3p7*p3p6*p2p3)*(ffmcfmb*fmb-ffmcfmb*fmc+
5027 . ffmcfmb*hbcm+fmc-hbcm)+w5*(16*(p5p7*p3p6)*(ffmcfmb*fmc*hbcm2+
5028 . fmb*fmc*hbcm-fmc*hbcm2)+16*(p3p7*p3p6*p3p4)*(ffmcfmb*fmb-
5029 . ffmcfmb*fmc+ffmcfmb*hbcm+fmc-hbcm)+16*(p3p7*p3p6*p1p3)*(-
5030 . ffmcfmb*fmb+ffmcfmb*fmc-ffmcfmb*hbcm-fmc+hbcm)+16*(p4p7*p3p6)*
5031 . (-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3+fmb*fmc*
5032 . hbcm-fmb2*hbcm-fmc*hbcm2+hbcm3)+16*(fmb*fmc*hbcm*p3p6*p3p7+2*
5033 . hbcm*p1p2*p3p6*p5p7-2*hbcm*p2p4*p3p6*p5p7+2*hbcm*p2p5*p3p6*
5034 . p4p7))+8*(p3p7*p3p6)*(4*fb1*ffmcfmb*hbcm-4*fb1*hbcm-4*fb2*
5035 . ffmcfmb*fmb+4*fb2*ffmcfmb*fmc-4*fb2*fmc-fmb+fmc-3*hbcm))
5036 b(2)=ccc*(8*w8*(p3p7*p2p3)*(-ffmcfmb*fmb+ffmcfmb*fmc-ffmcfmb*
5037 . hbcm-fmc+hbcm)+w5*(8*p5p7*(-ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm+fmc
5038 . *hbcm2)+8*(p3p7*p3p4)*(-ffmcfmb*fmb+ffmcfmb*fmc-ffmcfmb*hbcm-
5039 . fmc+hbcm)+8*(p3p7*p1p3)*(ffmcfmb*fmb-ffmcfmb*fmc+ffmcfmb*hbcm+
5040 . fmc-hbcm)+8*p4p7*(ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2+ffmcfmb*
5041 . hbcm3-fmb*fmc*hbcm+fmb2*hbcm+fmc*hbcm2-hbcm3)+8*(-fmb*fmc*hbcm
5042 . *p3p7-2*hbcm*p1p2*p5p7+2*hbcm*p2p4*p5p7-2*hbcm*p2p5*p4p7))+4*
5043 . p3p7*(-4*fb1*ffmcfmb*hbcm+4*fb1*hbcm+4*fb2*ffmcfmb*fmb-4*fb2*
5044 . ffmcfmb*fmc+4*fb2*fmc+fmb-fmc+3*hbcm))
5045 ans3=((p3p7*p3p5)*(-32*fb2*ffmcfmb+32*fb2-8)+(p3p7*p2p3)*(32*
5046 . fb2*ffmcfmb-32*fb2+8)+4*p5p7*(4*fb1*fmb*hbcm+4*fb2*ffmcfmb*
5047 . hbcm2-4*fb2*hbcm2-hbcm2)+4*p3p7*(-4*fb1*ffmcfmb*fmb*hbcm-4*fb1
5048 . *ffmcfmb*fmc*hbcm+4*fb1*fmb*hbcm+4*fb1*fmc*hbcm-4*fb2*ffmcfmb*
5049 . hbcm2+4*fb2*fmb*fmc+4*fb2*fmb2+4*fb2*hbcm2+3*fmb*hbcm+3*fmc*
5050 . hbcm-hbcm2)+32*(fb2*p2p3*p5p7-fb2*p2p5*p3p7))
5051 ans2=w5*(8*p3p7*(-fmb*fmc2*hbcm-fmb2*fmc*hbcm)+(p3p7*p3p5*p3p4)
5052 . *(16*ffmcfmb-16)+(p3p7*p3p4*p2p3)*(-16*ffmcfmb+16)+(p3p7*p3p5*
5053 . p1p3)*(-16*ffmcfmb+16)+(p3p7*p2p3*p1p3)*(16*ffmcfmb-16)+16*(
5054 . p4p7*p3p5)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(p5p7*p3p4)*(
5055 . ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(p4p7*p2p3)*(ffmcfmb*hbcm2+
5056 . fmb*hbcm-hbcm2)+8*(p5p7*p1p3)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+
5057 . 8*p4p7*(ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*hbcm3-ffmcfmb*hbcm4+fmb*
5058 . fmc*hbcm2-2*fmb*hbcm3+fmb2*hbcm2-fmc*hbcm3+hbcm4)+8*(p3p7*p3p4
5059 . )*(-ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-fmb*fmc+
5060 . fmb*hbcm-fmb2+fmc*hbcm-hbcm2)+8*(p3p7*p1p3)*(ffmcfmb*fmb*hbcm+
5061 . ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2+fmb*fmc-fmb*hbcm+fmb2-fmc*hbcm+
5062 . hbcm2)+16*(fmb*hbcm*p1p4*p3p7-fmc*hbcm*p2p3*p5p7+fmc*hbcm*p2p5
5063 . *p3p7-hbcm2*p1p2*p5p7+hbcm2*p2p4*p5p7-hbcm2*p2p5*p4p7+p1p3*
5064 . p2p3*p5p7-p1p3*p2p5*p3p7-p2p3*p3p4*p5p7+p2p5*p3p4*p3p7))+ans3
5065 ans1=w8*(16*p3p7*(-ffmcfmb*p2p3s2+p2p3s2)+(p3p7*p3p5*p2p3)*(16*
5066 . ffmcfmb-16)+8*(p5p7*p2p3)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(
5067 . p3p7*p2p3)*(-ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-
5068 . fmb*fmc+fmb*hbcm-fmb2+fmc*hbcm-hbcm2)+16*(fmb*hbcm*p2p5*p3p7+
5069 . p2p3*p2p5*p3p7-p2p3s2*p5p7))+ans2
5070 ans=ccc*ans1
5071 b(5)=ans
5072 b(7)=ccc*(w8*(8*p2p5*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+4*p2p3*(-
5073 . ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(-p2p3*p2p5-p2p3s2))+w5*(8*
5074 . p2p4*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*p1p2*(fmb*hbcm+fmc*hbcm-
5075 . hbcm2)+4*p3p4*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*p1p4*(-ffmcfmb*
5076 . hbcm2-fmb*hbcm+hbcm2)+4*p1p3*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+4
5077 . *(ffmcfmb*fmb*fmc*hbcm2+ffmcfmb*fmc2*hbcm2-fmb*fmc*hbcm2+fmb*
5078 . fmc2*hbcm+fmb2*fmc*hbcm-2*fmc*hbcm*p2p3-4*fmc*hbcm*p2p5-fmc2*
5079 . hbcm2+2*p1p3*p2p3+2*p1p3*p2p5-2*p2p3*p3p4-2*p2p5*p3p4))+2*(4*
5080 . fb1*fmb*hbcm+4*fb2*ffmcfmb*hbcm2-4*fb2*hbcm2+8*fb2*p2p3+8*fb2*
5081 . p2p5-hbcm2))
5082 ans=ccc*(w8*(4*p2p3*(-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+fmb*
5083 . fmc*hbcm+fmb*hbcm2-fmb2*hbcm-fmc*hbcm2)+8*(-fmb*p2p3s2+fmc*
5084 . p2p3s2))+w5*(8*(p3p4*p2p3)*(-fmb+fmc)+8*(p2p3*p1p3)*(fmb-fmc)+
5085 . 8*p2p4*(fmb*hbcm2-fmc*hbcm2+hbcm3)+8*p1p2*(-fmb*hbcm2+fmc*
5086 . hbcm2-hbcm3)+8*p3p5*(-ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm+fmc*hbcm2
5087 . )+8*p2p3*(ffmcfmb*fmc*hbcm2-fmc*hbcm2+fmc2*hbcm)+4*p3p4*(
5088 . ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm-fmb*hbcm2+
5089 . fmb2*hbcm+fmc*hbcm2)+4*p1p3*(-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*
5090 . hbcm2+fmb*fmc*hbcm+fmb*hbcm2-fmb2*hbcm-fmc*hbcm2)+4*(-ffmcfmb*
5091 . fmc*hbcm4-fmb*fmc*hbcm3-2*fmc*hbcm2*p2p5+fmc*hbcm4+4*hbcm*p1p2
5092 . *p2p3-4*hbcm*p1p2*p3p5+4*hbcm*p1p3*p2p5-4*hbcm*p1p4*p2p3-4*
5093 . hbcm*p2p3*p2p4+4*hbcm*p2p4*p3p5-4*hbcm*p2p5*p3p4))+(16*p2p3*(
5094 . fb2*fmb-fb2*fmc)+2*(-4*fb1*fmb*fmc*hbcm+4*fb1*fmb2*hbcm+4*fb2*
5095 . ffmcfmb*fmb*hbcm2-4*fb2*ffmcfmb*fmc*hbcm2-4*fb2*fmb*hbcm2+4*
5096 . fb2*fmc*hbcm2-fmb*hbcm2+fmc*hbcm2)))
5097 b(8)=ans
5098 b(11)=ccc*(w8*(8*p3p5*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+4*p2p3*(-
5099 . ffmcfmb*hbcm2-fmb*hbcm+2*hbcm2)+4*(ffmcfmb*hbcm4+fmb*hbcm3-
5100 . hbcm4+2*p2p3*p3p5))+w5*(4*p3p4*(-ffmcfmb*hbcm2+fmb*hbcm+2*fmc*
5101 . hbcm+2*hbcm2)+4*p1p3*(ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm-2*
5102 . hbcm2)+4*(fmb*fmc*hbcm2-2*fmc*hbcm*p2p3+4*fmc*hbcm*p3p5+2*fmc*
5103 . hbcm3+fmc2*hbcm2+2*hbcm2*p1p2-2*hbcm2*p1p4-2*hbcm2*p2p4-2*p1p3
5104 . *p3p5+2*p3p4*p3p5))+2*(-4*fb1*fmb*hbcm-4*fb2*ffmcfmb*hbcm2-8*
5105 . fb2*p3p5+hbcm2))
5106 b(12)=ccc*(w8*(8*p3p7*(-fmb*fmc*hbcm+fmb2*hbcm)+8*(p3p7*p2p3)*(
5107 . -ffmcfmb*hbcm-fmc+hbcm))+w5*(8*p4p7*(ffmcfmb*hbcm3+fmc*hbcm2-2
5108 . *hbcm3)+8*(p3p7*p3p4)*(-ffmcfmb*hbcm-fmc+hbcm)+8*(p3p7*p1p3)*(
5109 . ffmcfmb*hbcm+fmc-hbcm)+8*(fmc*hbcm2*p5p7-fmc2*hbcm*p3p7-2*hbcm
5110 . *p1p3*p5p7+2*hbcm*p1p4*p3p7+2*hbcm*p2p3*p4p7+2*hbcm*p3p4*p5p7-
5111 . 2*hbcm*p3p5*p4p7))+4*p3p7*(-4*fb1*ffmcfmb*hbcm+4*fb1*hbcm+4*
5112 . fb2*fmc+3*hbcm))
5113 b(13)=ccc*(w5*(4*p3p4*(fmb-fmc-2*hbcm)+4*p1p3*(-fmb+fmc+2*hbcm)
5114 . +4*(-ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm-2*fmc2*hbcm-2*hbcm*p1p2+4*
5115 . hbcm*p1p4+2*hbcm*p2p4))+w8*(4*p2p3*(fmb-fmc)+4*(ffmcfmb*fmb*
5116 . hbcm2-ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm-fmb*hbcm2+fmb2*hbcm+fmc*
5117 . hbcm2))+8*(-fb2*fmb+fb2*fmc))
5118 b(14)=ccc*(w8*(8*p5p7*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(ffmcfmb
5119 . *p2p3*p3p7+fmb*hbcm*p3p7+p2p3*p5p7))+w5*(8*p4p7*(-ffmcfmb*
5120 . hbcm2+fmc*hbcm)+8*(-ffmcfmb*p1p3*p3p7+ffmcfmb*p3p4*p3p7+fmc*
5121 . hbcm*p3p7+2*fmc*hbcm*p5p7-p1p3*p5p7+p3p4*p5p7))+(p3p7*(-16*fb2
5122 . *ffmcfmb-4)-16*fb2*p5p7))
5123 do 200 n=1,16
5124 c(n,2)=c(n,2)+0.09245003270420485d0*b(n)
5125 c(n,3)=c(n,3)-0.02077659977796572d0*b(n)
5126 200 continue
5127 return
5128 end
5129
5130 subroutine amp4_3p0(cc)
5131 implicit double precision(a-h,o-z)
5132 implicit integer (i-n)
5133 dimension b(16)
5134 #include "inclcon.h"
5135 #include "inclppp.h"
5136 #include "inclamp.h"
5137 do 100 n=1,16
5138 b(n)=0.0d0
5139 100 continue
5140 ccc=cc/((-2*p1p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*
5141 . p3p5+fmb2+hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p2p3-fmc2)
5142 . )
5143 b(1)=ccc*(16*w7*(p3p7*p3p6*p2p3)*(-ffmcfmb*fmb+ffmcfmb*fmc+
5144 . ffmcfmb*hbcm-fmc)+w2*(16*(p5p7*p3p6)*(-ffmcfmb*fmc*hbcm2-
5145 . ffmcfmb*hbcm3+fmc*hbcm2+fmc2*hbcm)+16*(p3p7*p3p6*p3p5)*(-
5146 . ffmcfmb*fmb+ffmcfmb*fmc+ffmcfmb*hbcm-fmc)+16*(-ffmcfmb*fmb*
5147 . hbcm2*p3p6*p3p7+2*hbcm*p2p3*p3p6*p5p7-2*hbcm*p2p5*p3p6*p3p7))+
5148 . 8*(p3p7*p3p6)*(4*fb1*ffmcfmb*hbcm-4*fb2*ffmcfmb*fmb+4*fb2*
5149 . ffmcfmb*fmc-4*fb2*fmc-fmb+fmc+3*hbcm))
5150 b(2)=ccc*(8*w7*(p3p7*p2p3)*(ffmcfmb*fmb-ffmcfmb*fmc-ffmcfmb*
5151 . hbcm+fmc)+w2*(8*p5p7*(ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3-fmc*
5152 . hbcm2-fmc2*hbcm)+8*(p3p7*p3p5)*(ffmcfmb*fmb-ffmcfmb*fmc-
5153 . ffmcfmb*hbcm+fmc)+8*(ffmcfmb*fmb*hbcm2*p3p7-2*hbcm*p2p3*p5p7+2
5154 . *hbcm*p2p5*p3p7))+4*p3p7*(-4*fb1*ffmcfmb*hbcm+4*fb2*ffmcfmb*
5155 . fmb-4*fb2*ffmcfmb*fmc+4*fb2*fmc+fmb-fmc-3*hbcm))
5156 ans=ccc*(w7*(8*(p5p7*p2p3)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(p3p7*
5157 . p2p3)*(-ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2+fmb*
5158 . fmc+fmc2)+16*(ffmcfmb*hbcm2*p2p5*p3p7-ffmcfmb*p2p3*p3p5*p3p7+
5159 . ffmcfmb*p2p3s2*p3p7))+w2*(8*(p5p7*p3p5)*(ffmcfmb*hbcm2-fmc*
5160 . hbcm)+8*p5p7*(ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*hbcm3+ffmcfmb*
5161 . hbcm4-fmb*fmc*hbcm2-fmc*hbcm3-fmc2*hbcm2)+8*(p3p7*p3p5)*(-
5162 . ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2+fmb*fmc+fmc2)+
5163 . 8*p3p7*(ffmcfmb*fmb*fmc*hbcm2+ffmcfmb*fmb2*hbcm2-2*ffmcfmb*
5164 . p3p5s2)+16*(-ffmcfmb*hbcm2*p2p3*p5p7+ffmcfmb*p2p3*p3p5*p3p7+
5165 . fmc*hbcm*p2p5*p3p7))+((p3p7*p3p5)*(-32*fb2*ffmcfmb-8)+(p3p7*
5166 . p2p3)*(32*fb2*ffmcfmb+8)+4*p5p7*(4*fb1*fmc*hbcm+4*fb2*ffmcfmb*
5167 . hbcm2-hbcm2)+4*p3p7*(-4*fb1*ffmcfmb*fmb*hbcm-4*fb1*ffmcfmb*fmc
5168 . *hbcm-4*fb2*ffmcfmb*hbcm2+4*fb2*fmb*fmc+4*fb2*fmc2-3*fmb*hbcm-
5169 . 3*fmc*hbcm-hbcm2)))
5170 b(5)=ans
5171 b(7)=ccc*(w7*(8*p2p5*(-ffmcfmb*hbcm2+fmc*hbcm)+4*p2p3*(-ffmcfmb
5172 . *hbcm2+fmc*hbcm)+8*p2p3*p2p5)+w2*(8*p2p5*(fmb*hbcm-fmc*hbcm+
5173 . hbcm2)+4*p3p5*(-ffmcfmb*hbcm2+fmc*hbcm)+4*(-ffmcfmb*fmb*fmc*
5174 . hbcm2-ffmcfmb*fmb2*hbcm2+fmb*fmc2*hbcm+2*fmb*hbcm*p2p3+fmb2*
5175 . fmc*hbcm+2*p2p5*p3p5))+2*(4*fb1*fmc*hbcm+4*fb2*ffmcfmb*hbcm2+8
5176 . *fb2*p2p5-hbcm2))
5177 b(8)=ccc*(4*w7*p2p3*(-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+fmb*
5178 . fmc*hbcm-fmc2*hbcm)+w2*(8*p2p5*(-fmc*hbcm2+hbcm3)+4*p3p5*(
5179 . ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm-fmc2*hbcm)+8*
5180 . p2p3*(-ffmcfmb*fmb*hbcm2+fmb2*hbcm)+4*(ffmcfmb*fmb*hbcm4-fmb*
5181 . fmc*hbcm3-4*hbcm*p2p3*p2p5))+2*(4*fb1*fmb*fmc*hbcm-4*fb1*fmc2*
5182 . hbcm+4*fb2*ffmcfmb*fmb*hbcm2-4*fb2*ffmcfmb*fmc*hbcm2-fmb*hbcm2
5183 . +fmc*hbcm2))
5184 b(11)=ccc*(w2*(4*p3p5*(ffmcfmb*hbcm2-2*fmb*hbcm+fmc*hbcm-hbcm2)
5185 . +4*(fmb*fmc*hbcm2+2*fmb*hbcm*p2p3-2*fmb*hbcm3+fmb2*hbcm2-2*
5186 . hbcm2*p2p5+2*p2p3*p3p5-2*p3p5s2))+w7*(8*p3p5*(ffmcfmb*hbcm2-
5187 . fmc*hbcm)+4*p2p3*(-ffmcfmb*hbcm2+fmc*hbcm-hbcm2)+4*(ffmcfmb*
5188 . hbcm4-fmc*hbcm3-2*p2p3*p3p5+2*p2p3s2))+2*(-4*fb1*fmc*hbcm-4*
5189 . fb2*ffmcfmb*hbcm2-4*fb2*hbcm2+8*fb2*p2p3-8*fb2*p3p5+hbcm2))
5190 b(12)=ccc*(w7*(8*(p3p7*p2p3)*(-ffmcfmb*hbcm+fmc)+8*p3p7*(
5191 . ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2))+w2*(8*p5p7*(ffmcfmb*
5192 . hbcm3-hbcm3)+8*(p3p7*p3p5)*(-ffmcfmb*hbcm+fmc)+8*p3p7*(ffmcfmb
5193 . *fmb*hbcm2+fmb*fmc*hbcm-fmb2*hbcm)+16*hbcm*p2p5*p3p7)+4*p3p7*(
5194 . -4*fb1*ffmcfmb*hbcm+4*fb2*fmc-3*hbcm))
5195 b(13)=ccc*(w7*(4*p2p3*(-fmb+fmc)+4*(ffmcfmb*fmb*hbcm2-ffmcfmb*
5196 . fmc*hbcm2-fmb*fmc*hbcm+fmc2*hbcm))+w2*(4*p3p5*(-fmb+fmc-2*hbcm
5197 . )+4*(ffmcfmb*fmb*hbcm2+fmb*fmc*hbcm-fmb*hbcm2-2*fmb2*hbcm+2*
5198 . hbcm*p2p5))+8*(-fb2*fmb+fb2*fmc))
5199 b(14)=ccc*(w2*(8*p5p7*(ffmcfmb*hbcm2-fmb*hbcm-hbcm2)+8*(-
5200 . ffmcfmb*p3p5*p3p7-fmb*hbcm*p3p7-p3p5*p5p7))+w7*(8*p5p7*(
5201 . ffmcfmb*hbcm2-fmc*hbcm)+8*(ffmcfmb*hbcm2*p3p7-ffmcfmb*p2p3*
5202 . p3p7-p2p3*p5p7))+(p3p7*(-16*fb2*ffmcfmb-4)-16*fb2*p5p7))
5203 do 200 n=1,16
5204 c(n,2)=c(n,2)+0.09245003270420485d0*b(n)
5205 c(n,3)=c(n,3)-0.02077659977796572d0*b(n)
5206 200 continue
5207 return
5208 end
5209
5210 subroutine amp36_3p0(cc)
5211 implicit double precision(a-h,o-z)
5212 implicit integer (i-n)
5213 dimension b(16)
5214 #include "inclcon.h"
5215 #include "inclppp.h"
5216 #include "inclamp.h"
5217 do 100 n=1,16
5218 b(n)=0.0d0
5219 100 continue
5220 ccc=cc/((ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*p3p5+fmb2+
5221 . hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3+2*ffmcfmb*p3p4+
5222 . fmc2-2*p1p4)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2))
5223 ans4=8*(p4p7*p3p6)*(-ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2-ffmcfmb
5224 . *hbcm3-fmb*fmc*hbcm+2*fmc*hbcm2+fmc2*hbcm)+2*(p6p7*p3p4)*(
5225 . ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2+3*ffmcfmb
5226 . *hbcm3-3*fmb*fmc*hbcm+fmc*hbcm2+4*fmc2*hbcm)+4*(p3p7*p3p6*p3p4
5227 . )*(3*ffmcfmb**2*hbcm-ffmcfmb*fmb+4*ffmcfmb*fmc+6*ffmcfmb*hbcm+
5228 . fmb-2*fmc-3*hbcm)+2*p6p7*(-ffmcfmb**2*fmc*hbcm4-3*ffmcfmb*fmb*
5229 . fmc*hbcm3+ffmcfmb*fmc*hbcm4+3*ffmcfmb*fmc2*hbcm3+2*ffmcfmb*
5230 . hbcm*p3p4s2+3*fmb*fmc2*hbcm2-4*fmb*p3p4s2+2*fmc*p3p4s2+3*fmc2*
5231 . hbcm3-2*fmc3*hbcm2)+4*(p3p7*p3p6)*(-ffmcfmb**2*fmc*hbcm2-
5232 . ffmcfmb*fmb*fmc*hbcm+8*ffmcfmb*fmc*hbcm2+4*ffmcfmb*fmc2*hbcm+
5233 . fmb*fmc*hbcm-3*fmc*hbcm2-2*fmc2*hbcm)+8*(2*ffmcfmb*hbcm*p1p3*
5234 . p3p6*p4p7+2*ffmcfmb*hbcm*p2p3*p3p6*p4p7-2*ffmcfmb*hbcm*p3p5*
5235 . p3p6*p4p7+fmc*hbcm2*p2p5*p6p7-fmc*hbcm2*p5p6*p5p7+2*hbcm*p1p3*
5236 . p1p4*p6p7+hbcm*p1p3*p4p6*p5p7+2*hbcm*p1p4*p2p3*p6p7-hbcm*p1p4*
5237 . p3p4*p6p7-2*hbcm*p1p4*p3p5*p6p7+hbcm*p2p3*p4p6*p5p7+hbcm*p2p5*
5238 . p3p4*p6p7+hbcm*p3p4*p4p6*p4p7-hbcm*p3p4*p4p6*p5p7-hbcm*p3p4*
5239 . p5p6*p5p7-hbcm*p3p5*p4p6*p5p7)
5240 ans3=4*(p5p7*p4p6)*(ffmcfmb*hbcm3-fmb*hbcm2-hbcm3)+8*(p4p7*p4p6
5241 . )*(-ffmcfmb*hbcm3+fmc*hbcm2)+8*(p6p7*p1p4)*(-ffmcfmb*hbcm3-fmb
5242 . *hbcm2+fmc*hbcm2-hbcm3)+8*(p4p6*p3p7*p3p5)*(3*ffmcfmb*hbcm-
5243 . hbcm)+8*(p4p6*p3p7*p3p4)*(4*ffmcfmb*hbcm+fmb-hbcm)+4*(p5p7*
5244 . p3p6*p3p4)*(ffmcfmb*hbcm+fmb-2*fmc-5*hbcm)+8*(p4p7*p3p6*p3p4)*
5245 . (-ffmcfmb*hbcm-fmb+fmc+2*hbcm)+4*(p6p7*p3p5*p3p4)*(3*ffmcfmb*
5246 . hbcm+fmc)+8*(p4p6*p3p7*p2p3)*(-3*ffmcfmb*hbcm+hbcm)+4*(p6p7*
5247 . p3p4*p2p3)*(-3*ffmcfmb*hbcm-fmc)+8*(p4p6*p3p7*p1p3)*(-3*
5248 . ffmcfmb*hbcm+hbcm)+4*(p6p7*p3p4*p1p3)*(-ffmcfmb*hbcm+2*fmb-fmc
5249 . )+4*(p5p7*p3p6)*(3*ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm-5*fmc*hbcm2-
5250 . 2*fmc2*hbcm)+4*(p6p7*p3p5)*(ffmcfmb*fmc*hbcm2+3*fmc2*hbcm)+4*(
5251 . p6p7*p2p3)*(-ffmcfmb*fmc*hbcm2-3*fmc2*hbcm)+4*(p6p7*p1p3)*(
5252 . ffmcfmb*fmc*hbcm2+2*fmb*fmc*hbcm-3*fmc2*hbcm)+4*(p4p6*p3p7)*(-
5253 . ffmcfmb**2*hbcm3+3*ffmcfmb*fmb*hbcm2+2*ffmcfmb*fmc*hbcm2+4*
5254 . ffmcfmb*hbcm3+2*fmb*fmc*hbcm-fmb*hbcm2-hbcm3)+ans4
5255 ans2=w1*ans3
5256 ans8=2*p6p7*(-ffmcfmb**2*fmb*hbcm4+ffmcfmb**2*hbcm5-ffmcfmb*fmb
5257 . *fmc*hbcm3+ffmcfmb*fmc*hbcm4+ffmcfmb*fmc2*hbcm3+2*ffmcfmb*hbcm
5258 . *p1p3s2+2*ffmcfmb*hbcm*p3p4s2+2*fmb*fmc2*hbcm2-4*fmb*p1p3s2-4*
5259 . fmb*p3p4s2+2*fmc*p1p3s2+2*fmc*p3p4s2+2*fmc2*hbcm3-fmc3*hbcm2)+
5260 . 4*(p3p7*p3p6)*(-ffmcfmb**2*fmb*hbcm2+3*ffmcfmb**2*hbcm3-4*
5261 . ffmcfmb*fmb*fmc*hbcm+ffmcfmb*fmb*hbcm2+6*ffmcfmb*fmc*hbcm2+7*
5262 . ffmcfmb*fmc2*hbcm-2*ffmcfmb*hbcm3+2*fmb*fmc*hbcm-3*fmc*hbcm2-3
5263 . *fmc2*hbcm)+8*(3*ffmcfmb*hbcm*p2p3*p3p6*p5p7-ffmcfmb*hbcm*p2p5
5264 . *p3p6*p3p7-ffmcfmb*hbcm*p3p5*p3p6*p5p7-hbcm*p1p2*p3p6*p5p7+
5265 . hbcm*p1p3*p1p4*p6p7-hbcm*p1p3*p2p5*p6p7-hbcm*p1p3*p4p6*p4p7+4*
5266 . hbcm*p1p3*p4p6*p5p7+hbcm*p1p3*p5p6*p5p7+2*hbcm*p1p4*p2p3*p6p7-
5267 . hbcm*p1p4*p3p4*p6p7-2*hbcm*p1p4*p3p5*p6p7+hbcm*p1p4*p3p6*p5p7-
5268 . 2*hbcm*p1p4*p3p7*p4p6-hbcm*p1p5*p3p6*p5p7-2*hbcm*p2p3*p4p6*
5269 . p4p7+6*hbcm*p2p3*p4p6*p5p7-hbcm*p2p4*p3p6*p5p7+hbcm*p2p5*p3p4*
5270 . p6p7+hbcm*p2p5*p3p6*p4p7-2*hbcm*p2p5*p3p7*p4p6+hbcm*p3p4*p4p6*
5271 . p4p7-4*hbcm*p3p4*p4p6*p5p7-hbcm*p3p4*p5p6*p5p7+2*hbcm*p3p5*
5272 . p4p6*p4p7-2*hbcm*p3p5*p4p6*p5p7-hbcm*p3p6*p4p5*p5p7)
5273 ans7=4*(p4p6*p3p7)*(2*ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*hbcm2+2*
5274 . ffmcfmb*fmc*hbcm2+3*ffmcfmb*hbcm3-fmc*hbcm2+2*fmc2*hbcm-2*
5275 . hbcm3)+4*(p5p7*p3p6)*(-ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2+
5276 . ffmcfmb*fmc*hbcm2-5*ffmcfmb*hbcm3+2*fmb*fmc*hbcm-4*fmc*hbcm2-3
5277 . *fmc2*hbcm)+4*(p4p7*p3p6)*(-2*ffmcfmb**2*hbcm3-2*ffmcfmb*fmb*
5278 . hbcm2+ffmcfmb*hbcm3-2*fmb*fmc*hbcm+3*fmc*hbcm2+2*fmc2*hbcm)+4*
5279 . (p6p7*p3p5)*(ffmcfmb**2*hbcm3+ffmcfmb*fmc*hbcm2+2*fmc2*hbcm)+2
5280 . *(p6p7*p3p4)*(ffmcfmb**2*hbcm3-3*ffmcfmb*fmb*hbcm2+ffmcfmb*fmc
5281 . *hbcm2+3*ffmcfmb*hbcm3-fmb*fmc*hbcm+fmc*hbcm2+2*fmc2*hbcm)+4*(
5282 . p6p7*p2p3)*(-ffmcfmb**2*hbcm3-ffmcfmb*fmc*hbcm2-2*fmc2*hbcm)+2
5283 . *(p6p7*p1p3)*(-ffmcfmb**2*hbcm3+3*ffmcfmb*fmb*hbcm2-ffmcfmb*
5284 . fmc*hbcm2-3*ffmcfmb*hbcm3+fmb*fmc*hbcm-fmc*hbcm2-2*fmc2*hbcm)+
5285 . 4*(p3p7*p3p6*p3p4)*(3*ffmcfmb**2*hbcm-ffmcfmb*fmb+4*ffmcfmb*
5286 . fmc+8*ffmcfmb*hbcm+fmb-2*fmc-5*hbcm)+4*(p3p7*p3p6*p1p3)*(-3*
5287 . ffmcfmb**2*hbcm+ffmcfmb*fmb-4*ffmcfmb*fmc-fmb+2*fmc+hbcm)+ans8
5288 ans6=4*(p5p7*p5p6)*(-ffmcfmb*hbcm3-fmc*hbcm2)+4*(p5p7*p4p6)*(-5
5289 . *ffmcfmb*hbcm3-fmc*hbcm2-2*hbcm3)+4*(p4p7*p4p6)*(-ffmcfmb*
5290 . hbcm3+fmc*hbcm2+2*hbcm3)+4*(p6p7*p2p5)*(ffmcfmb*hbcm3+fmc*
5291 . hbcm2)+4*(p6p7*p1p4)*(-ffmcfmb*hbcm3-2*fmb*hbcm2+fmc*hbcm2-2*
5292 . hbcm3)+16*(p4p6*p3p7*p3p5)*(2*ffmcfmb*hbcm-hbcm)+8*(p4p6*p3p7*
5293 . p3p4)*(5*ffmcfmb*hbcm+fmb-2*hbcm)+4*(p5p7*p3p6*p3p4)*(-ffmcfmb
5294 . *hbcm+fmb-2*fmc-9*hbcm)+8*(p4p7*p3p6*p3p4)*(-ffmcfmb*hbcm-fmb+
5295 . fmc+2*hbcm)+4*(p6p7*p3p5*p3p4)*(3*ffmcfmb*hbcm+fmc)+16*(p4p6*
5296 . p3p7*p2p3)*(-2*ffmcfmb*hbcm+hbcm)+4*(p6p7*p3p4*p2p3)*(-3*
5297 . ffmcfmb*hbcm-fmc)+8*(p3p7*p3p6*p1p4)*(-3*ffmcfmb*hbcm+hbcm)+8*
5298 . (p4p6*p3p7*p1p3)*(-5*ffmcfmb*hbcm-fmb+2*hbcm)+4*(p5p7*p3p6*
5299 . p1p3)*(5*ffmcfmb*hbcm-fmb+2*fmc+hbcm)+8*(p4p7*p3p6*p1p3)*(
5300 . ffmcfmb*hbcm+fmb-fmc)+4*(p6p7*p3p5*p1p3)*(-3*ffmcfmb*hbcm-fmc)
5301 . +8*(p6p7*p3p4*p1p3)*(-ffmcfmb*hbcm+2*fmb-fmc)+4*(p6p7*p2p3*
5302 . p1p3)*(3*ffmcfmb*hbcm+fmc)+ans7
5303 ans5=w5*ans6
5304 ans12=8*(-ffmcfmb*hbcm*p2p5*p3p6*p3p7+fmb*hbcm2*p1p4*p6p7+2*fmb
5305 . *hbcm2*p4p6*p4p7-fmb*hbcm2*p5p6*p5p7-hbcm*p1p2*p3p6*p5p7+hbcm*
5306 . p1p4*p3p5*p6p7-2*hbcm*p1p5*p2p3*p6p7+2*hbcm*p1p5*p3p5*p6p7-2*
5307 . hbcm*p1p5*p3p6*p4p7+2*hbcm*p1p5*p3p7*p4p6+2*hbcm*p2p3*p2p5*
5308 . p6p7+2*hbcm*p2p3*p4p5*p6p7+2*hbcm*p2p3*p4p6*p5p7-2*hbcm*p2p3*
5309 . p4p7*p5p6-hbcm*p2p4*p3p6*p5p7-hbcm*p2p5*p3p5*p6p7+hbcm*p2p5*
5310 . p3p6*p4p7-2*hbcm*p2p5*p3p7*p4p6-2*hbcm*p3p5*p4p5*p6p7+3*hbcm*
5311 . p3p5*p4p6*p4p7+2*hbcm*p3p5*p4p7*p5p6-hbcm*p3p5*p5p6*p5p7-2*
5312 . hbcm*p3p7*p4p5*p4p6)
5313 ans11=4*(p6p7*p3p4)*(-ffmcfmb*fmb*hbcm2-fmb*fmc*hbcm+2*fmb2*
5314 . hbcm)+4*(p6p7*p2p3)*(-ffmcfmb*fmb*hbcm2+fmb*fmc*hbcm)+4*(p6p7*
5315 . p1p3)*(ffmcfmb*fmb*hbcm2+fmb*fmc*hbcm-2*fmb2*hbcm)+4*(p5p6*
5316 . p3p7)*(-2*ffmcfmb**2*hbcm3+4*ffmcfmb*fmb*hbcm2-2*ffmcfmb*fmc*
5317 . hbcm2+5*ffmcfmb*hbcm3-2*fmb*hbcm2+fmc*hbcm2-2*hbcm3)+4*(p5p7*
5318 . p3p6)*(ffmcfmb**2*hbcm3+3*ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2-
5319 . 3*ffmcfmb*hbcm3+2*fmb*fmc*hbcm-3*fmb*hbcm2-fmb2*hbcm-fmc*hbcm2
5320 . +2*hbcm3)+2*(p6p7*p3p5)*(ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2+
5321 . ffmcfmb*fmc*hbcm2-3*ffmcfmb*hbcm3-fmb*fmc*hbcm-fmc*hbcm2-2*
5322 . fmc2*hbcm)+4*(p3p7*p3p6*p3p5)*(-3*ffmcfmb**2*hbcm+ffmcfmb*fmb-
5323 . 4*ffmcfmb*fmc+8*ffmcfmb*hbcm-fmb+2*fmc-3*hbcm)+2*p6p7*(-
5324 . ffmcfmb**2*fmb*hbcm4-ffmcfmb*fmb*fmc*hbcm3+ffmcfmb*fmb*hbcm4+3
5325 . *ffmcfmb*fmb2*hbcm3-6*ffmcfmb*hbcm*p3p5s2-fmb*fmc*hbcm3-2*fmb*
5326 . fmc2*hbcm2+fmb2*fmc*hbcm2-2*fmc*p3p5s2)+4*(p3p7*p3p6)*(-
5327 . ffmcfmb**2*fmb*hbcm2-4*ffmcfmb*fmb*fmc*hbcm+8*ffmcfmb*fmb*
5328 . hbcm2+ffmcfmb*fmb2*hbcm+2*fmb*fmc*hbcm-3*fmb*hbcm2-fmb2*hbcm)+
5329 . ans12
5330 ans10=8*(p4p7*p3p6)*(-fmb*fmc*hbcm+2*fmb*hbcm2+fmb2*hbcm)+4*(
5331 . p5p6*p4p7)*(-ffmcfmb*hbcm3+2*fmb*hbcm2-fmc*hbcm2+2*hbcm3)+8*(
5332 . p5p7*p4p6)*(-ffmcfmb*hbcm3+hbcm3)+4*(p6p7*p4p5)*(ffmcfmb*hbcm3
5333 . -2*fmb*hbcm2+fmc*hbcm2-2*hbcm3)+4*(p6p7*p2p5)*(ffmcfmb*hbcm3+
5334 . fmc*hbcm2-2*hbcm3)+4*(p6p7*p1p5)*(-ffmcfmb*hbcm3+2*fmb*hbcm2-
5335 . fmc*hbcm2+2*hbcm3)+8*(p4p5*p3p7*p3p6)*(-3*ffmcfmb*hbcm+hbcm)+
5336 . 16*(p5p6*p3p7*p3p5)*(2*ffmcfmb*hbcm-hbcm)+8*(p4p6*p3p7*p3p5)*(
5337 . 3*ffmcfmb*hbcm-fmb-2*hbcm)+4*(p5p7*p3p6*p3p5)*(ffmcfmb*hbcm-
5338 . fmb+2*fmc-hbcm)+8*(p4p7*p3p6*p3p5)*(ffmcfmb*hbcm+fmb-fmc+2*
5339 . hbcm)+8*(p5p7*p3p6*p3p4)*(ffmcfmb*hbcm-hbcm)+4*(p6p7*p3p5*p3p4
5340 . )*(-ffmcfmb*hbcm+2*fmb-fmc)+16*(p5p6*p3p7*p2p3)*(-2*ffmcfmb*
5341 . hbcm+hbcm)+8*(p5p7*p3p6*p2p3)*(3*ffmcfmb*hbcm-2*hbcm)+4*(p6p7*
5342 . p3p5*p2p3)*(3*ffmcfmb*hbcm+fmc)+8*(p3p7*p3p6*p1p5)*(-ffmcfmb*
5343 . hbcm+hbcm)+8*(p5p7*p3p6*p1p3)*(ffmcfmb*hbcm-hbcm)+4*(p6p7*p3p5
5344 . *p1p3)*(ffmcfmb*hbcm-2*fmb+fmc)+8*(p4p6*p3p7)*(3*ffmcfmb*fmb*
5345 . hbcm2-fmb*hbcm2-fmb2*hbcm)+ans11
5346 ans9=w2*ans10
5347 ans13=(4*(p4p6*p3p7)*(-4*fb1*ffmcfmb*hbcm-4*fb2*fmb+hbcm)+2*(
5348 . p5p7*p3p6)*(-20*fb1*ffmcfmb*hbcm+20*fb1*hbcm-4*fb2*fmb+8*fb2*
5349 . fmc+11*hbcm)+16*(p4p7*p3p6)*(fb1*ffmcfmb*hbcm-2*fb1*hbcm+fb2*
5350 . fmb-fb2*fmc)+2*(p6p7*p3p5)*(-4*fb1*ffmcfmb*hbcm-4*fb2*fmc+3*
5351 . hbcm)+2*(p6p7*p3p4)*(4*fb1*ffmcfmb*hbcm+8*fb2*fmb-4*fb2*fmc+
5352 . hbcm)+2*(p6p7*p2p3)*(4*fb1*ffmcfmb*hbcm+4*fb2*fmc-3*hbcm)+2*(
5353 . p6p7*p1p3)*(-4*fb1*ffmcfmb*hbcm-8*fb2*fmb+4*fb2*fmc-hbcm)+p6p7
5354 . *(4*fb1*ffmcfmb**2*hbcm3-4*fb1*ffmcfmb*hbcm3-4*fb1*fmb*fmc*
5355 . hbcm+8*fb1*fmc2*hbcm+12*fb2*ffmcfmb*fmb*hbcm2-4*fb2*ffmcfmb*
5356 . fmc*hbcm2-4*fb2*fmc*hbcm2+3*fmb*hbcm2-fmc*hbcm2+3*hbcm3)+2*(
5357 . p3p7*p3p6)*(20*fb1*ffmcfmb**2*hbcm-40*fb1*ffmcfmb*hbcm+12*fb1*
5358 . hbcm+4*fb2*ffmcfmb*fmb-16*fb2*ffmcfmb*fmc-4*fb2*fmb+8*fb2*fmc-
5359 . 12*ffmcfmb*hbcm+fmb-4*fmc+14*hbcm)+16*(-fb1*hbcm*p1p4*p6p7-fb1
5360 . *hbcm*p2p5*p6p7-fb1*hbcm*p4p6*p4p7+fb1*hbcm*p5p6*p5p7))
5361 ans1=ans2+ans5+ans9+ans13
5362 ans=ccc*ans1
5363 b(1)=ans
5364 ans4=(12*p5p7*(-fb1*hbcm+fb2*fmb-fb2*fmc-2*hbcm)+p4p7*(-4*fb1*
5365 . ffmcfmb*hbcm+16*fb1*hbcm-16*fb2*fmb+12*fb2*fmc+hbcm)+p3p7*(-4*
5366 . fb1*ffmcfmb**2*hbcm+28*fb1*ffmcfmb*hbcm-12*fb1*hbcm-28*fb2*
5367 . ffmcfmb*fmb+24*fb2*ffmcfmb*fmc+12*fb2*fmb-12*fb2*fmc+12*
5368 . ffmcfmb*hbcm-7*fmb+6*fmc-17*hbcm))
5369 ans3=w2*(6*(p5p7*p3p5)*(fmb-fmc+hbcm)+4*(p4p5*p3p7)*(ffmcfmb*
5370 . hbcm-hbcm)+2*(p4p7*p3p5)*(ffmcfmb*hbcm-4*fmb+3*fmc-4*hbcm)+4*(
5371 . p5p7*p3p4)*(-ffmcfmb*hbcm+hbcm)+4*(p3p7*p1p5)*(3*ffmcfmb*hbcm-
5372 . hbcm)+4*(p5p7*p1p3)*(-ffmcfmb*hbcm+hbcm)+2*p4p7*(ffmcfmb*fmb*
5373 . hbcm2+3*fmb*fmc*hbcm-4*fmb*hbcm2-4*fmb2*hbcm)+2*p5p7*(-2*
5374 . ffmcfmb**2*hbcm3+2*ffmcfmb*hbcm3-3*fmb*fmc*hbcm+3*fmb*hbcm2+3*
5375 . fmb2*hbcm)+2*(p3p7*p3p5)*(3*ffmcfmb**2*hbcm-7*ffmcfmb*fmb+6*
5376 . ffmcfmb*fmc-9*ffmcfmb*hbcm+3*fmb-3*fmc+3*hbcm)+2*p3p7*(ffmcfmb
5377 . **2*fmb*hbcm2+6*ffmcfmb*fmb*fmc*hbcm-7*ffmcfmb*fmb*hbcm2-7*
5378 . ffmcfmb*fmb2*hbcm-3*fmb*fmc*hbcm+3*fmb*hbcm2+3*fmb2*hbcm)+4*(
5379 . ffmcfmb*hbcm*p2p3*p5p7-ffmcfmb*hbcm*p2p5*p3p7+hbcm*p1p2*p5p7+2
5380 . *hbcm*p1p5*p4p7+hbcm*p2p4*p5p7-hbcm*p2p5*p4p7))+ans4
5381 ans2=w5*(2*(p5p7*p3p4)*(-3*fmb+3*fmc+7*hbcm)+2*(p4p7*p3p4)*(-
5382 . ffmcfmb*hbcm+4*fmb-3*fmc-4*hbcm)+4*(p3p7*p1p4)*(5*ffmcfmb*hbcm
5383 . -3*hbcm)+2*(p5p7*p1p3)*(-4*ffmcfmb*hbcm+3*fmb-3*fmc+hbcm)+2*(
5384 . p4p7*p1p3)*(ffmcfmb*hbcm-4*fmb+3*fmc)+2*p4p7*(ffmcfmb*fmb*
5385 . hbcm2-ffmcfmb*hbcm3+3*fmb*fmc*hbcm-3*fmc*hbcm2-4*fmc2*hbcm)+2*
5386 . p5p7*(-2*ffmcfmb**2*hbcm3+4*ffmcfmb*hbcm3-3*fmb*fmc*hbcm+3*fmc
5387 . *hbcm2+5*fmc2*hbcm)+2*(p3p7*p3p4)*(-3*ffmcfmb**2*hbcm+7*
5388 . ffmcfmb*fmb-6*ffmcfmb*fmc-7*ffmcfmb*hbcm-3*fmb+3*fmc+5*hbcm)+2
5389 . *(p3p7*p1p3)*(3*ffmcfmb**2*hbcm-7*ffmcfmb*fmb+6*ffmcfmb*fmc-
5390 . ffmcfmb*hbcm+3*fmb-3*fmc-hbcm)+2*p3p7*(ffmcfmb**2*fmb*hbcm2-3*
5391 . ffmcfmb**2*hbcm3+6*ffmcfmb*fmb*fmc*hbcm-6*ffmcfmb*fmc*hbcm2-9*
5392 . ffmcfmb*fmc2*hbcm+2*ffmcfmb*hbcm3-3*fmb*fmc*hbcm+3*fmc*hbcm2+5
5393 . *fmc2*hbcm)+4*(ffmcfmb*hbcm*p2p3*p5p7-ffmcfmb*hbcm*p2p5*p3p7+
5394 . ffmcfmb*hbcm*p3p5*p5p7+hbcm*p1p2*p5p7+2*hbcm*p1p4*p4p7-3*hbcm*
5395 . p1p4*p5p7+hbcm*p1p5*p5p7+hbcm*p2p4*p5p7-hbcm*p2p5*p4p7+hbcm*
5396 . p4p5*p5p7))+ans3
5397 ans1=w1*(2*p5p7*(-3*fmb*fmc*hbcm+3*fmc*hbcm2+5*fmc2*hbcm)+2*(
5398 . p5p7*p3p4)*(2*ffmcfmb*hbcm-3*fmb+3*fmc+3*hbcm)+2*(p4p7*p3p4)*(
5399 . -ffmcfmb*hbcm+4*fmb-3*fmc-4*hbcm)+8*(p3p7*p1p4)*(2*ffmcfmb*
5400 . hbcm-hbcm)+2*p4p7*(ffmcfmb*fmc*hbcm2+4*fmb*fmc*hbcm-4*fmc*
5401 . hbcm2-5*fmc2*hbcm)+2*(p3p7*p3p4)*(-3*ffmcfmb**2*hbcm+7*ffmcfmb
5402 . *fmb-6*ffmcfmb*fmc-5*ffmcfmb*hbcm-3*fmb+3*fmc+3*hbcm)+2*p3p7*(
5403 . ffmcfmb**2*fmc*hbcm2+7*ffmcfmb*fmb*fmc*hbcm-7*ffmcfmb*fmc*
5404 . hbcm2-10*ffmcfmb*fmc2*hbcm-3*fmb*fmc*hbcm+3*fmc*hbcm2+5*fmc2*
5405 . hbcm)+8*(hbcm*p1p4*p4p7-hbcm*p1p4*p5p7))+ans2
5406 ans=ccc*ans1
5407 b(2)=ans
5408 ans3=w2*(2*(p5p6*p3p5)*(ffmcfmb*hbcm-2*fmb+fmc-2*hbcm)+2*p5p6*(
5409 . ffmcfmb*fmb*hbcm2+fmb*fmc*hbcm-2*fmb*hbcm2-2*fmb2*hbcm)+2*(
5410 . p3p6*p3p5)*(3*ffmcfmb**2*hbcm+2*ffmcfmb*fmb-ffmcfmb*fmc+3*
5411 . ffmcfmb*hbcm-2*fmb+fmc-2*hbcm)+2*p3p6*(-ffmcfmb**2*fmb*hbcm2-
5412 . ffmcfmb*fmb*fmc*hbcm+3*ffmcfmb*fmb*hbcm2+2*ffmcfmb*fmb2*hbcm+
5413 . fmb*fmc*hbcm-2*fmb*hbcm2-2*fmb2*hbcm)+8*(-ffmcfmb*hbcm*p1p5*
5414 . p3p6+ffmcfmb*hbcm*p2p5*p3p6+ffmcfmb*hbcm*p3p5*p4p6+ffmcfmb*
5415 . hbcm*p3p6*p4p5-hbcm*p1p5*p4p6+hbcm*p2p5*p4p6+hbcm*p4p5*p4p6))+
5416 . (p5p6*(-4*fb1*ffmcfmb*hbcm+8*fb1*hbcm-8*fb2*fmb+4*fb2*fmc-hbcm
5417 . )+p3p6*(4*fb1*ffmcfmb**2*hbcm-12*fb1*ffmcfmb*hbcm+8*fb1*hbcm+8
5418 . *fb2*ffmcfmb*fmb-4*fb2*ffmcfmb*fmc-8*fb2*fmb+4*fb2*fmc+12*
5419 . ffmcfmb*hbcm+2*fmb-fmc-11*hbcm)-12*hbcm*p4p6)
5420 ans2=w5*(4*p4p6*(-2*ffmcfmb*hbcm3+fmb2*hbcm-fmc2*hbcm+hbcm3)+2*
5421 . (p5p6*p3p4)*(-ffmcfmb*hbcm+2*fmb-fmc-2*hbcm)+2*(p5p6*p1p3)*(
5422 . ffmcfmb*hbcm-2*fmb+fmc+2*hbcm)+2*p5p6*(ffmcfmb*fmb*hbcm2-
5423 . ffmcfmb*hbcm3+fmb*fmc*hbcm-fmc*hbcm2-2*fmc2*hbcm)+2*(p3p6*p3p4
5424 . )*(-3*ffmcfmb**2*hbcm-2*ffmcfmb*fmb+ffmcfmb*fmc+ffmcfmb*hbcm+2
5425 . *fmb-fmc-2*hbcm)+2*(p3p6*p1p3)*(3*ffmcfmb**2*hbcm+2*ffmcfmb*
5426 . fmb-ffmcfmb*fmc-ffmcfmb*hbcm-2*fmb+fmc+2*hbcm)+2*p3p6*(-
5427 . ffmcfmb**2*fmb*hbcm2-3*ffmcfmb**2*hbcm3-ffmcfmb*fmb*fmc*hbcm+
5428 . ffmcfmb*fmb*hbcm2+2*ffmcfmb*fmb2*hbcm+ffmcfmb*fmc*hbcm2+
5429 . ffmcfmb*hbcm3+fmb*fmc*hbcm-fmc*hbcm2-2*fmc2*hbcm)+8*(-ffmcfmb*
5430 . hbcm*p1p2*p3p6+ffmcfmb*hbcm*p1p3*p4p6-ffmcfmb*hbcm*p1p5*p3p6+
5431 . ffmcfmb*hbcm*p2p3*p3p6+ffmcfmb*hbcm*p2p4*p3p6+2*ffmcfmb*hbcm*
5432 . p2p5*p3p6-ffmcfmb*hbcm*p3p4*p4p6+ffmcfmb*hbcm*p3p5*p3p6+
5433 . ffmcfmb*hbcm*p3p6*p4p5-hbcm*p1p2*p4p6+hbcm*p1p4*p3p6+hbcm*p1p4
5434 . *p4p6+hbcm*p1p4*p5p6-hbcm*p1p5*p4p6+hbcm*p2p3*p4p6+hbcm*p2p4*
5435 . p4p6+2*hbcm*p2p5*p4p6+hbcm*p3p5*p4p6+hbcm*p4p5*p4p6))+ans3
5436 ans1=w1*(2*(p5p6*p3p4)*(-ffmcfmb*hbcm+2*fmb-fmc-2*hbcm)+4*(p4p6
5437 . *p3p4)*(-ffmcfmb*hbcm+hbcm)+8*(p3p6*p1p4)*(-ffmcfmb*hbcm+hbcm)
5438 . +4*(p4p6*p1p3)*(ffmcfmb*hbcm-hbcm)+2*p5p6*(ffmcfmb*fmc*hbcm2+2
5439 . *fmb*fmc*hbcm-2*fmc*hbcm2-3*fmc2*hbcm)+4*p4p6*(ffmcfmb**2*
5440 . hbcm3-ffmcfmb*hbcm3)+2*(p3p6*p3p4)*(-3*ffmcfmb**2*hbcm-2*
5441 . ffmcfmb*fmb+ffmcfmb*fmc+5*ffmcfmb*hbcm+2*fmb-fmc-2*hbcm)+2*
5442 . p3p6*(-ffmcfmb**2*fmc*hbcm2-2*ffmcfmb*fmb*fmc*hbcm+3*ffmcfmb*
5443 . fmc*hbcm2+3*ffmcfmb*fmc2*hbcm+2*fmb*fmc*hbcm-2*fmc*hbcm2-3*
5444 . fmc2*hbcm)+4*(-ffmcfmb*hbcm*p2p3*p4p6+2*ffmcfmb*hbcm*p2p4*p3p6
5445 . -ffmcfmb*hbcm*p3p5*p4p6+2*ffmcfmb*hbcm*p3p6*p4p5-hbcm*p1p2*
5446 . p4p6+2*hbcm*p1p4*p5p6-hbcm*p1p5*p4p6+hbcm*p2p4*p4p6+hbcm*p4p5*
5447 . p4p6))+ans2
5448 ans=ccc*ans1
5449 b(3)=ans
5450 ans4=8*(-2*ffmcfmb*p3p4*p3p7*p4p6-fmc*hbcm*p1p2*p6p7-fmc*hbcm*
5451 . p1p3*p6p7+fmc*hbcm*p2p3*p6p7+fmc*hbcm*p2p4*p6p7+fmc*hbcm*p5p6*
5452 . p5p7-p1p2*p3p4*p6p7-p1p3*p3p4*p6p7-p1p4*p3p4*p6p7+p2p3*p3p4*
5453 . p6p7+p2p4*p3p4*p6p7-p3p4*p3p6*p4p7-2*p3p4*p4p6*p4p7+p3p4*p4p6*
5454 . p5p7+p3p4*p5p6*p5p7)
5455 ans3=(p5p7*p3p6*p3p4)*(-16*ffmcfmb+16)+4*(p5p7*p4p6)*(ffmcfmb*
5456 . hbcm2-fmb*hbcm+2*fmc*hbcm+hbcm2)+8*(p4p7*p4p6)*(-ffmcfmb*hbcm2
5457 . -2*fmc*hbcm)+8*(p6p7*p1p4)*(-ffmcfmb*hbcm2-fmb*hbcm-fmc*hbcm+
5458 . hbcm2)+8*(p5p7*p3p6)*(-ffmcfmb*fmc*hbcm+2*fmc*hbcm)+8*(p3p7*
5459 . p3p6)*(-3*ffmcfmb*fmc*hbcm+fmc*hbcm)+(p3p7*p3p6*p3p4)*(16*
5460 . ffmcfmb**2-32*ffmcfmb+8)+4*(p4p6*p3p7)*(-ffmcfmb**2*hbcm2+3*
5461 . ffmcfmb*fmb*hbcm-4*ffmcfmb*fmc*hbcm-2*ffmcfmb*hbcm2-fmb*hbcm+
5462 . hbcm2)+8*(p4p7*p3p6)*(-ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm-
5463 . ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-fmc*hbcm)+2*(p6p7*p3p4)*(
5464 . ffmcfmb**2*hbcm2+3*ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+ffmcfmb*
5465 . hbcm2+fmb*fmc+3*fmc*hbcm+2*fmc2)+2*p6p7*(-ffmcfmb**2*fmc*hbcm3
5466 . +ffmcfmb*fmb*fmc*hbcm2+3*ffmcfmb*fmc*hbcm3+3*ffmcfmb*fmc2*
5467 . hbcm2+3*fmb*fmc2*hbcm-3*fmc2*hbcm2+2*fmc3*hbcm+4*p3p4s2)+ans4
5468 ans2=w1*ans3
5469 ans7=2*(p6p7*p1p3)*(-ffmcfmb**2*hbcm2-3*ffmcfmb*fmb*hbcm-
5470 . ffmcfmb*fmc*hbcm-3*ffmcfmb*hbcm2-fmb*fmc-fmc*hbcm-2*fmc2)+2*
5471 . p6p7*(ffmcfmb**2*fmb*hbcm3+ffmcfmb**2*hbcm4+ffmcfmb*fmb*fmc*
5472 . hbcm2+ffmcfmb*fmc*hbcm3+3*ffmcfmb*fmc2*hbcm2+2*fmb*fmc2*hbcm-2
5473 . *fmc2*hbcm2+fmc3*hbcm+4*p1p3s2+4*p3p4s2)+8*(2*ffmcfmb*p1p3*
5474 . p3p7*p4p6-2*ffmcfmb*p3p4*p3p7*p4p6+p1p2*p1p3*p6p7-p1p2*p3p4*
5475 . p6p7+p1p3*p1p4*p6p7-p1p3*p2p3*p6p7-p1p3*p2p4*p6p7-2*p1p3*p3p4*
5476 . p6p7+p1p3*p3p6*p4p7+2*p1p3*p4p6*p4p7-p1p3*p4p6*p5p7-p1p3*p5p6*
5477 . p5p7-p1p4*p3p4*p6p7+p2p3*p3p4*p6p7+p2p4*p3p4*p6p7-p3p4*p3p6*
5478 . p4p7-2*p3p4*p4p6*p4p7+p3p4*p4p6*p5p7+p3p4*p5p6*p5p7)
5479 ans6=(p5p7*p3p6*p3p4)*(-16*ffmcfmb+16)+(p5p7*p3p6*p1p3)*(16*
5480 . ffmcfmb-16)+4*(p5p7*p5p6)*(ffmcfmb*hbcm2+fmc*hbcm)+4*(p5p7*
5481 . p4p6)*(ffmcfmb*hbcm2-2*fmb*hbcm+fmc*hbcm)+4*(p4p7*p4p6)*(-3*
5482 . ffmcfmb*hbcm2+2*fmb*hbcm-fmc*hbcm)+4*(p6p7*p2p4)*(ffmcfmb*
5483 . hbcm2+fmc*hbcm)+4*(p6p7*p2p3)*(ffmcfmb*hbcm2+fmc*hbcm)+4*(p6p7
5484 . *p1p4)*(-3*ffmcfmb*hbcm2-2*fmb*hbcm-fmc*hbcm+2*hbcm2)+4*(p6p7*
5485 . p1p2)*(-ffmcfmb*hbcm2-fmc*hbcm)+4*(p3p7*p3p6)*(-2*ffmcfmb*fmc*
5486 . hbcm-ffmcfmb*hbcm2+fmc*hbcm)+(p3p7*p3p6*p3p4)*(16*ffmcfmb**2-
5487 . 32*ffmcfmb+8)+(p3p7*p3p6*p1p3)*(-16*ffmcfmb**2+32*ffmcfmb-8)+4
5488 . *(p4p6*p3p7)*(-2*ffmcfmb**2*hbcm2+4*ffmcfmb*fmb*hbcm-2*ffmcfmb
5489 . *fmc*hbcm-ffmcfmb*hbcm2-2*fmb*hbcm+fmc*hbcm)+4*(p5p7*p3p6)*(-
5490 . ffmcfmb**2*hbcm2-ffmcfmb*fmc*hbcm+2*fmc*hbcm)+4*(p4p7*p3p6)*(-
5491 . 2*ffmcfmb**2*hbcm2+ffmcfmb*hbcm2-fmc*hbcm)+2*(p6p7*p3p4)*(
5492 . ffmcfmb**2*hbcm2+3*ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+3*ffmcfmb
5493 . *hbcm2+fmb*fmc+fmc*hbcm+2*fmc2)+ans7
5494 ans5=w5*ans6
5495 ans10=2*p6p7*(ffmcfmb**2*fmb*hbcm3+ffmcfmb*fmb*fmc*hbcm2-3*
5496 . ffmcfmb*fmb*hbcm3+ffmcfmb*fmb2*hbcm2-fmb*fmc*hbcm2-2*fmb*fmc2*
5497 . hbcm-fmb2*fmc*hbcm)+8*(2*ffmcfmb*p3p5*p3p7*p4p6+fmb*hbcm*p1p2*
5498 . p6p7+fmb*hbcm*p1p3*p6p7+fmb*hbcm*p1p4*p6p7-fmb*hbcm*p2p3*p6p7-
5499 . fmb*hbcm*p2p4*p6p7-fmb*hbcm*p3p4*p6p7+3*fmb*hbcm*p4p6*p4p7-fmb
5500 . *hbcm*p5p6*p5p7+p1p2*p3p5*p6p7+p1p3*p3p5*p6p7+p1p4*p3p5*p6p7-
5501 . p2p3*p3p5*p6p7-p2p4*p3p5*p6p7-p3p4*p3p5*p6p7+p3p5*p3p6*p4p7+2*
5502 . p3p5*p4p6*p4p7-p3p5*p4p6*p5p7-p3p5*p5p6*p5p7)
5503 ans9=(p5p7*p3p6*p3p5)*(16*ffmcfmb-16)+4*(p5p6*p4p7)*(ffmcfmb*
5504 . hbcm2+2*fmb*hbcm+fmc*hbcm-2*hbcm2)+8*(p5p7*p4p6)*(ffmcfmb*
5505 . hbcm2-fmb*hbcm-hbcm2)+4*(p6p7*p4p5)*(-ffmcfmb*hbcm2-2*fmb*hbcm
5506 . -fmc*hbcm+2*hbcm2)+4*(p6p7*p2p5)*(-ffmcfmb*hbcm2-2*fmb*hbcm-
5507 . fmc*hbcm+2*hbcm2)+4*(p6p7*p1p5)*(ffmcfmb*hbcm2+2*fmb*hbcm+fmc*
5508 . hbcm-2*hbcm2)+8*(p4p6*p3p7)*(4*ffmcfmb*fmb*hbcm-fmb*hbcm)+8*(
5509 . p4p7*p3p6)*(ffmcfmb*fmb*hbcm+fmb*hbcm)+8*(p3p7*p3p6)*(3*
5510 . ffmcfmb*fmb*hbcm-fmb*hbcm)+(p3p7*p3p6*p3p5)*(-16*ffmcfmb**2+32
5511 . *ffmcfmb-8)+4*(p5p6*p3p7)*(2*ffmcfmb**2*hbcm2+4*ffmcfmb*fmb*
5512 . hbcm+2*ffmcfmb*fmc*hbcm-5*ffmcfmb*hbcm2-2*fmb*hbcm-fmc*hbcm+2*
5513 . hbcm2)+4*(p5p7*p3p6)*(ffmcfmb**2*hbcm2+2*ffmcfmb*fmb*hbcm-
5514 . ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-2*fmb*hbcm+fmc*hbcm-2*hbcm2)+2*
5515 . (p6p7*p3p5)*(-ffmcfmb**2*hbcm2-3*ffmcfmb*fmb*hbcm-ffmcfmb*fmc*
5516 . hbcm+ffmcfmb*hbcm2-fmb*fmc-fmc*hbcm-2*fmc2)+ans10
5517 ans8=w2*ans9
5518 ans11=((p4p6*p3p7)*(32*fb2*ffmcfmb+8)+(p5p7*p3p6)*(32*fb2*
5519 . ffmcfmb-32*fb2+8)+(p3p7*p3p6)*(-32*fb2*ffmcfmb**2+64*fb2*
5520 . ffmcfmb-16*fb2-16*ffmcfmb+16)+p6p7*(-4*fb1*ffmcfmb*fmb*hbcm-4*
5521 . fb1*ffmcfmb*fmc*hbcm+4*fb1*fmc*hbcm+4*fb2*ffmcfmb**2*hbcm2-12*
5522 . fb2*ffmcfmb*hbcm2-4*fb2*fmb*fmc-8*fb2*fmc2+2*ffmcfmb*hbcm2+3*
5523 . fmb*hbcm+fmc*hbcm-3*hbcm2)+16*(fb2*p1p2*p6p7+fb2*p1p3*p6p7+fb2
5524 . *p1p4*p6p7-fb2*p2p3*p6p7-fb2*p2p4*p6p7-fb2*p3p4*p6p7+fb2*p3p6*
5525 . p4p7+2*fb2*p4p6*p4p7-fb2*p4p6*p5p7-fb2*p5p6*p5p7))
5526 ans1=ans2+ans5+ans8+ans11
5527 ans=ccc*ans1
5528 b(4)=ans
5529 ans4=4*(2*fmc*hbcm*p1p3*p4p7-fmc*hbcm*p1p3*p5p7+4*fmc*hbcm*p2p3
5530 . *p4p7-3*fmc*hbcm*p2p3*p5p7-4*fmc*hbcm*p3p5*p4p7+3*fmc*hbcm*
5531 . p3p5*p5p7+2*hbcm2*p1p4*p4p7-2*hbcm2*p1p4*p5p7+2*p1p3*p3p4*p4p7
5532 . -p1p3*p3p4*p5p7+4*p2p3*p3p4*p4p7-3*p2p3*p3p4*p5p7-4*p3p4*p3p5*
5533 . p4p7+3*p3p4*p3p5*p5p7)
5534 ans3=2*(p5p7*p3p4)*(3*fmb*hbcm+fmc*hbcm+3*hbcm2)+(p3p7*p3p5*
5535 . p3p4)*(-28*ffmcfmb+12)+(p3p7*p3p4*p2p3)*(28*ffmcfmb-12)+(p3p7*
5536 . p3p4*p1p3)*(12*ffmcfmb-4)+2*(p4p7*p3p4)*(-ffmcfmb*hbcm2-4*fmb*
5537 . hbcm-3*fmc*hbcm-4*hbcm2)+8*(p3p7*p1p4)*(2*ffmcfmb*hbcm2-hbcm2)
5538 . +2*p5p7*(-2*ffmcfmb*fmc*hbcm3+3*fmb*fmc*hbcm2+3*fmc*hbcm3+5*
5539 . fmc2*hbcm2-2*p3p4s2)+2*p4p7*(ffmcfmb*fmc*hbcm3-4*fmb*fmc*hbcm2
5540 . -4*fmc*hbcm3-5*fmc2*hbcm2)+4*(p3p7*p3p5)*(-7*ffmcfmb*fmc*hbcm+
5541 . 3*fmc*hbcm)+4*(p3p7*p2p3)*(7*ffmcfmb*fmc*hbcm-3*fmc*hbcm)+4*(
5542 . p3p7*p1p3)*(3*ffmcfmb*fmc*hbcm-fmc*hbcm)+2*(p3p7*p3p4)*(-
5543 . ffmcfmb**2*hbcm2-7*ffmcfmb*fmb*hbcm-4*ffmcfmb*fmc*hbcm-7*
5544 . ffmcfmb*hbcm2+3*fmb*hbcm+fmc*hbcm+3*hbcm2)+2*p3p7*(3*ffmcfmb**
5545 . 2*fmc*hbcm3-7*ffmcfmb*fmb*fmc*hbcm2-9*ffmcfmb*fmc*hbcm3-10*
5546 . ffmcfmb*fmc2*hbcm2+2*ffmcfmb*p3p4s2+3*fmb*fmc*hbcm2+3*fmc*
5547 . hbcm3+5*fmc2*hbcm2-2*p3p4s2)+ans4
5548 ans2=w1*ans3
5549 ans7=2*(p3p7*p3p4)*(-ffmcfmb**2*hbcm2-9*ffmcfmb*fmb*hbcm-6*
5550 . ffmcfmb*fmc*hbcm-7*ffmcfmb*hbcm2+5*fmb*hbcm+3*fmc*hbcm+3*hbcm2
5551 . )+4*(p3p7*p2p3)*(ffmcfmb**2*hbcm2+6*ffmcfmb*fmc*hbcm-3*fmc*
5552 . hbcm)+2*(p3p7*p1p3)*(ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm+6*
5553 . ffmcfmb*fmc*hbcm+7*ffmcfmb*hbcm2-fmb*hbcm-3*fmc*hbcm-3*hbcm2)+
5554 . 2*p3p7*(-3*ffmcfmb**2*fmb*hbcm3-ffmcfmb**2*hbcm4-6*ffmcfmb*fmb
5555 . *fmc*hbcm2+2*ffmcfmb*fmb*hbcm3-6*ffmcfmb*fmc*hbcm3-9*ffmcfmb*
5556 . fmc2*hbcm2-6*ffmcfmb*p1p3s2+2*ffmcfmb*p3p4s2+3*fmb*fmc*hbcm2+3
5557 . *fmc*hbcm3+5*fmc2*hbcm2+2*p1p3s2-2*p3p4s2)+4*(-ffmcfmb*hbcm2*
5558 . p2p5*p3p7+2*ffmcfmb*p1p3*p3p4*p3p7+hbcm2*p1p2*p5p7+2*hbcm2*
5559 . p1p4*p4p7-3*hbcm2*p1p4*p5p7+hbcm2*p1p5*p5p7+hbcm2*p2p4*p5p7-
5560 . hbcm2*p2p5*p4p7+hbcm2*p4p5*p5p7-4*p1p3*p2p3*p4p7+3*p1p3*p2p3*
5561 . p5p7+2*p1p3*p3p4*p4p7+4*p1p3*p3p5*p4p7-3*p1p3*p3p5*p5p7+4*p2p3
5562 . *p3p4*p4p7-3*p2p3*p3p4*p5p7-4*p3p4*p3p5*p4p7+3*p3p4*p3p5*p5p7)
5563 ans6=(p3p7*p3p5*p3p4)*(-28*ffmcfmb+12)+(p3p7*p3p4*p2p3)*(28*
5564 . ffmcfmb-12)+(p3p7*p3p5*p1p3)*(28*ffmcfmb-12)+(p3p7*p2p3*p1p3)*
5565 . (-28*ffmcfmb+12)+4*(p5p7*p3p5)*(ffmcfmb*hbcm2+3*fmc*hbcm)+4*(
5566 . p4p7*p3p5)*(-ffmcfmb*hbcm2-3*fmc*hbcm)+2*(p5p7*p3p4)*(-2*
5567 . ffmcfmb*hbcm2+5*fmb*hbcm+3*fmc*hbcm+5*hbcm2)+2*(p4p7*p3p4)*(-
5568 . ffmcfmb*hbcm2-4*fmb*hbcm-3*fmc*hbcm-4*hbcm2)+4*(p5p7*p2p3)*(
5569 . ffmcfmb*hbcm2-3*fmc*hbcm)+4*(p4p7*p2p3)*(ffmcfmb*hbcm2+3*fmc*
5570 . hbcm)+4*(p3p7*p1p4)*(5*ffmcfmb*hbcm2-3*hbcm2)+2*(p5p7*p1p3)*(-
5571 . 2*ffmcfmb*hbcm2-fmb*hbcm-3*fmc*hbcm-hbcm2)+2*(p4p7*p1p3)*(
5572 . ffmcfmb*hbcm2+3*fmc*hbcm+4*hbcm2)+2*p4p7*(-ffmcfmb*fmb*hbcm3-
5573 . ffmcfmb*hbcm4-3*fmb*fmc*hbcm2-3*fmc*hbcm3-4*fmc2*hbcm2-4*
5574 . p1p3s2)+2*p5p7*(-2*ffmcfmb**2*hbcm4+2*ffmcfmb*fmb*hbcm3+2*
5575 . ffmcfmb*hbcm4+3*fmb*fmc*hbcm2+3*fmc*hbcm3+5*fmc2*hbcm2+2*
5576 . p1p3s2-2*p3p4s2)+4*(p3p7*p3p5)*(-ffmcfmb**2*hbcm2-6*ffmcfmb*
5577 . fmc*hbcm+3*fmc*hbcm)+ans7
5578 ans5=w5*ans6
5579 ans10=2*p3p7*(-3*ffmcfmb**2*fmb*hbcm3-6*ffmcfmb*fmb*fmc*hbcm2+9
5580 . *ffmcfmb*fmb*hbcm3-7*ffmcfmb*fmb2*hbcm2+14*ffmcfmb*p3p5s2+3*
5581 . fmb*fmc*hbcm2-3*fmb*hbcm3+3*fmb2*hbcm2-6*p3p5s2)+4*(-ffmcfmb*
5582 . hbcm2*p2p5*p3p7-2*fmb*hbcm*p1p3*p4p7-4*fmb*hbcm*p2p3*p4p7+
5583 . hbcm2*p1p2*p5p7+2*hbcm2*p1p5*p4p7+hbcm2*p2p4*p5p7-hbcm2*p2p5*
5584 . p4p7-2*p1p3*p3p5*p4p7+p1p3*p3p5*p5p7-4*p2p3*p3p5*p4p7+3*p2p3*
5585 . p3p5*p5p7+p3p4*p3p5*p5p7)
5586 ans9=(p3p7*p3p5*p3p4)*(-4*ffmcfmb+4)+(p3p7*p3p5*p2p3)*(-28*
5587 . ffmcfmb+12)+(p3p7*p3p5*p1p3)*(-12*ffmcfmb+4)+4*(p4p5*p3p7)*(
5588 . ffmcfmb*hbcm2-hbcm2)+2*(p5p7*p3p5)*(2*ffmcfmb*hbcm2-3*fmb*hbcm
5589 . +3*fmc*hbcm-3*hbcm2)+2*(p4p7*p3p5)*(-ffmcfmb*hbcm2+4*fmb*hbcm-
5590 . 3*fmc*hbcm+4*hbcm2)+4*(p5p7*p3p4)*(-ffmcfmb*hbcm2+fmb*hbcm+
5591 . hbcm2)+4*(p5p7*p2p3)*(ffmcfmb*hbcm2+3*fmb*hbcm)+4*(p3p7*p1p5)*
5592 . (3*ffmcfmb*hbcm2-hbcm2)+4*(p5p7*p1p3)*(-ffmcfmb*hbcm2+fmb*hbcm
5593 . +hbcm2)+2*p4p7*(-ffmcfmb*fmb*hbcm3-3*fmb*fmc*hbcm2+4*fmb*hbcm3
5594 . -4*fmb2*hbcm2+8*p3p5s2)+4*(p3p7*p3p4)*(-ffmcfmb*fmb*hbcm+fmb*
5595 . hbcm)+4*(p3p7*p2p3)*(-7*ffmcfmb*fmb*hbcm+3*fmb*hbcm)+4*(p3p7*
5596 . p1p3)*(-3*ffmcfmb*fmb*hbcm+fmb*hbcm)+2*p5p7*(-2*ffmcfmb**2*
5597 . hbcm4+2*ffmcfmb*fmb*hbcm3+2*ffmcfmb*hbcm4+3*fmb*fmc*hbcm2-3*
5598 . fmb*hbcm3+3*fmb2*hbcm2-6*p3p5s2)+2*(p3p7*p3p5)*(-ffmcfmb**2*
5599 . hbcm2+7*ffmcfmb*fmb*hbcm-6*ffmcfmb*fmc*hbcm+7*ffmcfmb*hbcm2-3*
5600 . fmb*hbcm+3*fmc*hbcm-3*hbcm2)+ans10
5601 ans8=w2*ans9
5602 ans11=((p3p7*p3p5)*(56*fb2*ffmcfmb-24*fb2+14)+(p3p7*p3p4)*(-8*
5603 . fb2*ffmcfmb+8*fb2-2)+(p3p7*p2p3)*(-56*fb2*ffmcfmb+24*fb2-14)+(
5604 . p3p7*p1p3)*(-24*fb2*ffmcfmb+8*fb2-6)+4*p5p7*(-3*fb1*fmb*hbcm-3
5605 . *fb1*fmc*hbcm+2*fb2*ffmcfmb*hbcm2-3*fb2*hbcm2-7*hbcm2)+p4p7*(
5606 . 16*fb1*fmb*hbcm+12*fb1*fmc*hbcm-4*fb2*ffmcfmb*hbcm2+16*fb2*
5607 . hbcm2+5*hbcm2)+p3p7*(28*fb1*ffmcfmb*fmb*hbcm+24*fb1*ffmcfmb*
5608 . fmc*hbcm-12*fb1*fmb*hbcm-12*fb1*fmc*hbcm-12*fb2*ffmcfmb**2*
5609 . hbcm2+36*fb2*ffmcfmb*hbcm2-12*fb2*hbcm2+12*ffmcfmb*hbcm2-11*
5610 . fmb*hbcm-6*fmc*hbcm-3*hbcm2)+8*(-2*fb2*p1p3*p4p7+fb2*p1p3*p5p7
5611 . -4*fb2*p2p3*p4p7+3*fb2*p2p3*p5p7+fb2*p3p4*p5p7+4*fb2*p3p5*p4p7
5612 . -3*fb2*p3p5*p5p7))
5613 ans1=ans2+ans5+ans8+ans11
5614 ans=ccc*ans1
5615 b(5)=ans
5616 ans4=4*(-2*ffmcfmb*fmc*hbcm*p1p3*p3p6+2*ffmcfmb*hbcm2*p2p4*p3p6
5617 . -ffmcfmb*hbcm2*p3p5*p4p6+2*ffmcfmb*hbcm2*p3p6*p4p5-2*ffmcfmb*
5618 . p1p3*p3p4*p3p6+2*fmc*hbcm*p2p3*p5p6-2*fmc*hbcm*p3p5*p5p6-hbcm2
5619 . *p1p2*p4p6+2*hbcm2*p1p4*p5p6-hbcm2*p1p5*p4p6+hbcm2*p2p4*p4p6+
5620 . hbcm2*p4p5*p4p6-2*p1p3*p3p4*p4p6-4*p2p3*p3p4*p4p6+2*p2p3*p3p4*
5621 . p5p6-2*p3p4*p3p5*p5p6)
5622 ans3=(p3p6*p3p5*p3p4)*(8*ffmcfmb-8)+(p3p6*p3p4*p2p3)*(-24*
5623 . ffmcfmb+8)+2*(p5p6*p3p4)*(-ffmcfmb*hbcm2-2*fmb*hbcm-fmc*hbcm-2
5624 . *hbcm2)+4*(p4p6*p3p4)*(ffmcfmb*hbcm2+2*fmc*hbcm+hbcm2)+4*(p4p6
5625 . *p2p3)*(-ffmcfmb*hbcm2-4*fmc*hbcm)+8*(p3p6*p1p4)*(-ffmcfmb*
5626 . hbcm2+hbcm2)+4*(p4p6*p1p3)*(ffmcfmb*hbcm2-2*fmc*hbcm-hbcm2)+2*
5627 . p5p6*(ffmcfmb*fmc*hbcm3-2*fmb*fmc*hbcm2-2*fmc*hbcm3-3*fmc2*
5628 . hbcm2)+8*(p3p6*p3p5)*(ffmcfmb*fmc*hbcm-fmc*hbcm)+8*(p3p6*p2p3)
5629 . *(-3*ffmcfmb*fmc*hbcm+fmc*hbcm)+4*p4p6*(ffmcfmb**2*hbcm4+2*
5630 . ffmcfmb*fmc*hbcm3-ffmcfmb*hbcm4+2*p3p4s2)+2*(p3p6*p3p4)*(
5631 . ffmcfmb**2*hbcm2+2*ffmcfmb*fmb*hbcm+5*ffmcfmb*fmc*hbcm+5*
5632 . ffmcfmb*hbcm2-2*fmb*hbcm-fmc*hbcm-2*hbcm2)+2*p3p6*(3*ffmcfmb**
5633 . 2*fmc*hbcm3+2*ffmcfmb*fmb*fmc*hbcm2+3*ffmcfmb*fmc*hbcm3+3*
5634 . ffmcfmb*fmc2*hbcm2+4*ffmcfmb*p3p4s2-2*fmb*fmc*hbcm2-2*fmc*
5635 . hbcm3-3*fmc2*hbcm2)+ans4
5636 ans2=w1*ans3
5637 ans7=2*(p3p6*p1p3)*(-ffmcfmb**2*hbcm2+2*ffmcfmb*fmb*hbcm-
5638 . ffmcfmb*fmc*hbcm-5*ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm+2*hbcm2)+
5639 . 2*p3p6*(-3*ffmcfmb**2*fmb*hbcm3+ffmcfmb**2*hbcm4+ffmcfmb*fmb*
5640 . fmc*hbcm2-ffmcfmb*fmb*hbcm3+2*ffmcfmb*fmb2*hbcm2+ffmcfmb*fmc*
5641 . hbcm3+ffmcfmb*hbcm4+4*ffmcfmb*p1p3s2+4*ffmcfmb*p3p4s2-fmb*fmc*
5642 . hbcm2-fmc*hbcm3-2*fmc2*hbcm2)+8*(-ffmcfmb*hbcm2*p1p2*p3p6-
5643 . ffmcfmb*hbcm2*p1p5*p3p6+ffmcfmb*hbcm2*p2p4*p3p6+2*ffmcfmb*
5644 . hbcm2*p2p5*p3p6+ffmcfmb*hbcm2*p3p6*p4p5-2*ffmcfmb*p1p3*p3p4*
5645 . p3p6-hbcm2*p1p2*p4p6+hbcm2*p1p4*p3p6+hbcm2*p1p4*p4p6+hbcm2*
5646 . p1p4*p5p6-hbcm2*p1p5*p4p6+hbcm2*p2p4*p4p6+2*hbcm2*p2p5*p4p6+
5647 . hbcm2*p3p5*p4p6+hbcm2*p4p5*p4p6+2*p1p3*p2p3*p4p6-p1p3*p2p3*
5648 . p5p6-2*p1p3*p3p4*p4p6+p1p3*p3p5*p5p6-2*p2p3*p3p4*p4p6+p2p3*
5649 . p3p4*p5p6-p3p4*p3p5*p5p6)
5650 ans6=8*(p4p6*p3p4)*(-fmb*hbcm+hbcm2)+8*(p4p6*p2p3)*(2*fmb*hbcm-
5651 . hbcm2)+8*(p4p6*p1p3)*(fmb*hbcm-hbcm2)+(p3p6*p3p5*p3p4)*(8*
5652 . ffmcfmb-8)+(p3p6*p3p4*p2p3)*(-24*ffmcfmb+8)+(p3p6*p3p5*p1p3)*(
5653 . -8*ffmcfmb+8)+(p3p6*p2p3*p1p3)*(24*ffmcfmb-8)+4*(p5p6*p3p5)*(-
5654 . ffmcfmb*hbcm2-fmc*hbcm)+2*(p5p6*p3p4)*(-ffmcfmb*hbcm2-2*fmb*
5655 . hbcm-fmc*hbcm-2*hbcm2)+4*(p5p6*p2p3)*(ffmcfmb*hbcm2+fmc*hbcm)+
5656 . 2*(p5p6*p1p3)*(ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm+2*hbcm2)+2*
5657 . p5p6*(-ffmcfmb*fmb*hbcm3-ffmcfmb*hbcm4-fmb*fmc*hbcm2-fmc*hbcm3
5658 . -2*fmc2*hbcm2)+4*p4p6*(-2*ffmcfmb*fmb*hbcm3+fmb2*hbcm2-fmc2*
5659 . hbcm2+hbcm4+2*p1p3s2+2*p3p4s2)+4*(p3p6*p3p5)*(ffmcfmb**2*hbcm2
5660 . +ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-fmc*hbcm)+2*(p3p6*p3p4)*(
5661 . ffmcfmb**2*hbcm2-2*ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+5*ffmcfmb
5662 . *hbcm2-2*fmb*hbcm-fmc*hbcm-2*hbcm2)+4*(p3p6*p2p3)*(-ffmcfmb**2
5663 . *hbcm2+4*ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2+fmc*
5664 . hbcm)+ans7
5665 ans5=w5*ans6
5666 ans9=((p3p6*p3p5)*(-16*fb2*ffmcfmb+16*fb2-4)+(p3p6*p3p4)*(-16*
5667 . fb2*ffmcfmb-4)+(p3p6*p2p3)*(48*fb2*ffmcfmb-16*fb2+12)+(p3p6*
5668 . p1p3)*(16*fb2*ffmcfmb+4)+4*p4p6*(-4*fb2*ffmcfmb*hbcm2-hbcm2)+
5669 . p5p6*(8*fb1*fmb*hbcm+4*fb1*fmc*hbcm-4*fb2*ffmcfmb*hbcm2+8*fb2*
5670 . hbcm2-hbcm2)+p3p6*(-8*fb1*ffmcfmb*fmb*hbcm-4*fb1*ffmcfmb*fmc*
5671 . hbcm+8*fb1*fmb*hbcm+4*fb1*fmc*hbcm-12*fb2*ffmcfmb**2*hbcm2-12*
5672 . fb2*ffmcfmb*hbcm2+8*fb2*hbcm2+12*ffmcfmb*hbcm2-10*fmb*hbcm-5*
5673 . fmc*hbcm-3*hbcm2)+16*(fb2*p1p3*p4p6+2*fb2*p2p3*p4p6-fb2*p2p3*
5674 . p5p6-fb2*p3p4*p4p6+fb2*p3p5*p5p6))
5675 ans8=w2*((p3p6*p3p5*p2p3)*(24*ffmcfmb-8)+2*(p5p6*p3p5)*(-
5676 . ffmcfmb*hbcm2+2*fmb*hbcm-fmc*hbcm+2*hbcm2)+2*p5p6*(-ffmcfmb*
5677 . fmb*hbcm3-fmb*fmc*hbcm2+2*fmb*hbcm3-2*fmb2*hbcm2+4*p3p5s2)+8*(
5678 . p3p6*p2p3)*(3*ffmcfmb*fmb*hbcm-fmb*hbcm)+2*(p3p6*p3p5)*(
5679 . ffmcfmb**2*hbcm2-2*ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm-3*ffmcfmb
5680 . *hbcm2+2*fmb*hbcm-fmc*hbcm+2*hbcm2)+2*p3p6*(-3*ffmcfmb**2*fmb*
5681 . hbcm3+ffmcfmb*fmb*fmc*hbcm2-3*ffmcfmb*fmb*hbcm3+2*ffmcfmb*fmb2
5682 . *hbcm2-4*ffmcfmb*p3p5s2-fmb*fmc*hbcm2+2*fmb*hbcm3-2*fmb2*hbcm2
5683 . +4*p3p5s2)+8*(ffmcfmb*fmb*hbcm*p1p3*p3p6-ffmcfmb*fmb*hbcm*p3p4
5684 . *p3p6-ffmcfmb*fmb*hbcm3*p4p6-ffmcfmb*hbcm2*p1p5*p3p6+ffmcfmb*
5685 . hbcm2*p2p5*p3p6+ffmcfmb*hbcm2*p3p6*p4p5+ffmcfmb*p1p3*p3p5*p3p6
5686 . -ffmcfmb*p3p4*p3p5*p3p6+fmb*hbcm*p1p3*p4p6+2*fmb*hbcm*p2p3*
5687 . p4p6-fmb*hbcm*p2p3*p5p6-fmb*hbcm*p3p4*p4p6-hbcm2*p1p5*p4p6+
5688 . hbcm2*p2p5*p4p6+hbcm2*p4p5*p4p6+p1p3*p3p5*p4p6+2*p2p3*p3p5*
5689 . p4p6-p2p3*p3p5*p5p6-p3p4*p3p5*p4p6))+ans9
5690 ans1=ans2+ans5+ans8
5691 ans=ccc*ans1
5692 b(6)=ans
5693 ans2=w2*((p3p5*p3p4)*(2*ffmcfmb-2)+(p3p5*p1p3)*(2*ffmcfmb-2)+2*
5694 . p3p4*(ffmcfmb*fmb*hbcm-fmb*hbcm)+2*p1p3*(ffmcfmb*fmb*hbcm-fmb*
5695 . hbcm)+2*p3p5*(ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm-ffmcfmb*hbcm2)
5696 . +2*(ffmcfmb**2*fmb*hbcm3-ffmcfmb*fmb*hbcm*p2p3-ffmcfmb*fmb*
5697 . hbcm3-ffmcfmb*p2p3*p3p5-ffmcfmb*p3p5s2-fmb*hbcm*p1p2-fmb*hbcm*
5698 . p1p5-fmb*hbcm*p2p4-fmb*hbcm*p4p5-p1p2*p3p5-p1p5*p3p5-p2p4*p3p5
5699 . -p3p5*p4p5))+(p3p5*(-4*fb2*ffmcfmb-1)+4*p3p4*(fb2*ffmcfmb-fb2)
5700 . +p2p3*(-4*fb2*ffmcfmb-1)+4*p1p3*(fb2*ffmcfmb-fb2)+(4*fb2*
5701 . ffmcfmb**2*hbcm2-4*fb2*ffmcfmb*hbcm2-4*fb2*p1p2-4*fb2*p1p5-4*
5702 . fb2*p2p4-4*fb2*p4p5+2*ffmcfmb*hbcm2+9*fmb*hbcm+9*fmc*hbcm-10*
5703 . hbcm2+p1p3+p3p4))
5704 ans1=w1*((p3p4*p1p3)*(-2*ffmcfmb+2)+2*p1p3*(-ffmcfmb*fmc*hbcm+
5705 . fmc*hbcm)+2*p3p4*(-ffmcfmb**2*hbcm2-ffmcfmb*fmc*hbcm+ffmcfmb*
5706 . hbcm2+fmc*hbcm)+2*(-ffmcfmb**2*fmc*hbcm3+ffmcfmb*fmc*hbcm*p2p3
5707 . +ffmcfmb*fmc*hbcm*p3p5+ffmcfmb*fmc*hbcm3+ffmcfmb*p2p3*p3p4+
5708 . ffmcfmb*p3p4*p3p5-ffmcfmb*p3p4s2+fmc*hbcm*p1p2+fmc*hbcm*p1p5+
5709 . fmc*hbcm*p2p4+fmc*hbcm*p4p5+p1p2*p3p4+p1p5*p3p4+p2p4*p3p4+p3p4
5710 . *p4p5+p3p4s2))+w5*(2*p4p5*(-fmb*hbcm+hbcm2)+2*p2p4*(-fmb*hbcm+
5711 . hbcm2)+2*p1p5*(-fmb*hbcm+hbcm2)+2*p1p2*(-fmb*hbcm+hbcm2)+2*
5712 . p3p5*(-ffmcfmb*fmb*hbcm+ffmcfmb*hbcm2)+2*p2p3*(-ffmcfmb*fmb*
5713 . hbcm+ffmcfmb*hbcm2)+2*p3p4*(-ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm
5714 . -fmb*hbcm+hbcm2)+2*p1p3*(ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm-2*
5715 . ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+2*(ffmcfmb**2*fmb*hbcm3-ffmcfmb
5716 . **2*hbcm4-ffmcfmb*fmb*hbcm3+ffmcfmb*hbcm4-ffmcfmb*p1p3*p2p3-
5717 . ffmcfmb*p1p3*p3p5+ffmcfmb*p1p3s2+ffmcfmb*p2p3*p3p4+ffmcfmb*
5718 . p3p4*p3p5-ffmcfmb*p3p4s2-p1p2*p1p3+p1p2*p3p4-p1p3*p1p5-p1p3*
5719 . p2p4-p1p3*p4p5-p1p3s2+p1p5*p3p4+p2p4*p3p4+p3p4*p4p5+p3p4s2))+
5720 . ans2
5721 ans=ccc*ans1
5722 b(7)=ans
5723 ans3=w2*(2*(p3p5*p3p4)*(-ffmcfmb*hbcm+hbcm)+2*(p3p5*p1p3)*(-
5724 . ffmcfmb*hbcm+hbcm)+2*p3p4*(-ffmcfmb*fmb*hbcm2+fmb*hbcm2)+2*
5725 . p1p3*(-ffmcfmb*fmb*hbcm2+fmb*hbcm2)+2*p3p5*(-ffmcfmb**2*hbcm3+
5726 . ffmcfmb*fmb*hbcm2+ffmcfmb*hbcm3)+2*(-ffmcfmb**2*fmb*hbcm4+
5727 . ffmcfmb*fmb*hbcm2*p2p3+ffmcfmb*fmb*hbcm4+ffmcfmb*hbcm*p2p3*
5728 . p3p5+ffmcfmb*hbcm*p3p5s2+fmb*hbcm2*p1p2+fmb*hbcm2*p1p5+fmb*
5729 . hbcm2*p2p4+fmb*hbcm2*p4p5+hbcm*p1p2*p3p5+hbcm*p1p5*p3p5+hbcm*
5730 . p2p4*p3p5+hbcm*p3p5*p4p5))+(p3p5*(-4*fb1*ffmcfmb*hbcm-19*hbcm)
5731 . +p3p4*(4*fb1*ffmcfmb*hbcm-4*fb1*hbcm-hbcm)+p2p3*(-4*fb1*
5732 . ffmcfmb*hbcm+29*hbcm)+p1p3*(4*fb1*ffmcfmb*hbcm-4*fb1*hbcm+11*
5733 . hbcm)+(4*fb1*ffmcfmb**2*hbcm3-4*fb1*ffmcfmb*hbcm3-4*fb1*hbcm*
5734 . p1p2-4*fb1*hbcm*p1p5-4*fb1*hbcm*p2p4-4*fb1*hbcm*p4p5-9*fmb*
5735 . hbcm2+9*fmc*hbcm2-10*hbcm3))
5736 ans2=w5*(2*p4p5*(fmb*hbcm2+hbcm3)+2*p2p4*(fmb*hbcm2+hbcm3)+2*
5737 . p1p5*(fmb*hbcm2+hbcm3)+2*p1p2*(fmb*hbcm2+hbcm3)+2*(p3p5*p3p4)*
5738 . (-ffmcfmb*hbcm+2*hbcm)+2*(p3p4*p2p3)*(3*ffmcfmb*hbcm-2*hbcm)+2
5739 . *(p3p5*p1p3)*(-3*ffmcfmb*hbcm+2*hbcm)+2*(p2p3*p1p3)*(ffmcfmb*
5740 . hbcm-2*hbcm)+2*p3p5*(-2*ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2+3*
5741 . ffmcfmb*hbcm3)+2*p3p4*(-ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+fmb
5742 . *hbcm2+hbcm3)+2*p2p3*(2*ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2-
5743 . ffmcfmb*hbcm3)+2*p1p3*(ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2-2*
5744 . ffmcfmb*hbcm3+fmb*hbcm2+hbcm3)+2*(-ffmcfmb**2*fmb*hbcm4-
5745 . ffmcfmb**2*hbcm5+ffmcfmb*fmb*hbcm4+ffmcfmb*hbcm*p1p3s2-2*
5746 . ffmcfmb*hbcm*p2p3s2-ffmcfmb*hbcm*p3p4s2+2*ffmcfmb*hbcm*p3p5s2+
5747 . ffmcfmb*hbcm5-hbcm*p1p2*p1p3-2*hbcm*p1p2*p2p3+hbcm*p1p2*p3p4+2
5748 . *hbcm*p1p2*p3p5-hbcm*p1p3*p1p5-hbcm*p1p3*p2p4-hbcm*p1p3*p4p5-
5749 . hbcm*p1p3s2-2*hbcm*p1p5*p2p3+hbcm*p1p5*p3p4+2*hbcm*p1p5*p3p5-2
5750 . *hbcm*p2p3*p2p4-2*hbcm*p2p3*p4p5+hbcm*p2p4*p3p4+2*hbcm*p2p4*
5751 . p3p5+hbcm*p3p4*p4p5+hbcm*p3p4s2+2*hbcm*p3p5*p4p5))+ans3
5752 ans1=w1*(2*(p3p4*p1p3)*(-ffmcfmb*hbcm+hbcm)+2*p1p3*(-ffmcfmb*
5753 . fmc*hbcm2+fmc*hbcm2)+2*p3p4*(-ffmcfmb**2*hbcm3-ffmcfmb*fmc*
5754 . hbcm2+ffmcfmb*hbcm3+fmc*hbcm2)+2*(-ffmcfmb**2*fmc*hbcm4+
5755 . ffmcfmb*fmc*hbcm2*p2p3+ffmcfmb*fmc*hbcm2*p3p5+ffmcfmb*fmc*
5756 . hbcm4+ffmcfmb*hbcm*p2p3*p3p4+ffmcfmb*hbcm*p3p4*p3p5-ffmcfmb*
5757 . hbcm*p3p4s2+fmc*hbcm2*p1p2+fmc*hbcm2*p1p5+fmc*hbcm2*p2p4+fmc*
5758 . hbcm2*p4p5+hbcm*p1p2*p3p4+hbcm*p1p5*p3p4+hbcm*p2p4*p3p4+hbcm*
5759 . p3p4*p4p5+hbcm*p3p4s2))+ans2
5760 ans=ccc*ans1
5761 b(8)=ans
5762 ans=ccc*(w1*(4*(p3p6*p3p4)*(-4*ffmcfmb*hbcm+hbcm)+4*p3p6*(-4*
5763 . ffmcfmb*fmc*hbcm2+fmc*hbcm2)+4*(-3*fmc*hbcm2*p4p6+fmc*hbcm2*
5764 . p5p6-3*hbcm*p3p4*p4p6+hbcm*p3p4*p5p6))+w2*(4*(p3p6*p3p5)*(-4*
5765 . ffmcfmb*hbcm+hbcm)+4*p3p6*(-4*ffmcfmb*fmb*hbcm2+fmb*hbcm2)+4*(
5766 . -3*fmb*hbcm2*p4p6+fmb*hbcm2*p5p6-3*hbcm*p3p5*p4p6+hbcm*p3p5*
5767 . p5p6))+w5*(2*p5p6*(ffmcfmb*hbcm3+fmc*hbcm2)+4*p4p6*(2*ffmcfmb*
5768 . hbcm3-3*fmb*hbcm2-3*hbcm3)+4*(p3p6*p3p4)*(-2*ffmcfmb*hbcm+hbcm
5769 . )+4*(p3p6*p1p3)*(2*ffmcfmb*hbcm-hbcm)+2*p3p6*(3*ffmcfmb**2*
5770 . hbcm3-6*ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-5*ffmcfmb*hbcm3+
5771 . fmc*hbcm2)+4*(2*ffmcfmb*hbcm*p2p3*p3p6-6*ffmcfmb*hbcm*p3p5*
5772 . p3p6+hbcm*p1p3*p4p6-hbcm*p1p3*p5p6+2*hbcm*p2p3*p4p6-hbcm*p3p4*
5773 . p4p6+hbcm*p3p4*p5p6-6*hbcm*p3p5*p4p6))+(8*p3p6*(4*fb1*ffmcfmb*
5774 . hbcm-fb1*hbcm+2*hbcm)+8*(3*fb1*hbcm*p4p6-fb1*hbcm*p5p6)))
5775 b(9)=ans
5776 b(10)=ccc*(w1*((p3p6*p3p4)*(16*ffmcfmb-4)+4*p3p6*(4*ffmcfmb*fmc
5777 . *hbcm-fmc*hbcm)+4*(3*fmc*hbcm*p4p6-fmc*hbcm*p5p6+3*p3p4*p4p6-
5778 . p3p4*p5p6))+w2*((p3p6*p3p5)*(-16*ffmcfmb+4)+4*p3p6*(-4*ffmcfmb
5779 . *fmb*hbcm+fmb*hbcm)+4*(-3*fmb*hbcm*p4p6+fmb*hbcm*p5p6-3*p3p5*
5780 . p4p6+p3p5*p5p6))+w5*(12*p4p6*(-fmb*hbcm+hbcm2)+(p3p6*p3p4)*(16
5781 . *ffmcfmb-4)+(p3p6*p1p3)*(-16*ffmcfmb+4)+2*p5p6*(-ffmcfmb*hbcm2
5782 . -fmc*hbcm)+2*p3p6*(ffmcfmb**2*hbcm2-6*ffmcfmb*fmb*hbcm+ffmcfmb
5783 . *fmc*hbcm+5*ffmcfmb*hbcm2-fmc*hbcm)+4*(-3*p1p3*p4p6+p1p3*p5p6+
5784 . 3*p3p4*p4p6-p3p4*p5p6))+(p3p6*(-32*fb2*ffmcfmb+8*fb2-8)+8*(-3*
5785 . fb2*p4p6+fb2*p5p6)))
5786 b(11)=ccc*(w5*(2*p3p4*(ffmcfmb*hbcm2-hbcm2)+2*p1p3*(ffmcfmb*
5787 . hbcm2-hbcm2)+2*(ffmcfmb**2*hbcm4-ffmcfmb*hbcm2*p2p3-ffmcfmb*
5788 . hbcm2*p3p5-ffmcfmb*hbcm4-hbcm2*p1p2-hbcm2*p1p5-hbcm2*p2p4-
5789 . hbcm2*p4p5))+18*hbcm2)
5790 ans=ccc*(w1*(2*(p3p7*p3p4)*(-8*ffmcfmb*hbcm+3*hbcm)+2*p3p7*(-8*
5791 . ffmcfmb*fmc*hbcm2+3*fmc*hbcm2)+2*(-5*fmc*hbcm2*p4p7+3*fmc*
5792 . hbcm2*p5p7-5*hbcm*p3p4*p4p7+3*hbcm*p3p4*p5p7))+w2*(2*(p3p7*
5793 . p3p5)*(-8*ffmcfmb*hbcm+3*hbcm)+2*p3p7*(-8*ffmcfmb*fmb*hbcm2+3*
5794 . fmb*hbcm2)+2*(-5*fmb*hbcm2*p4p7+3*fmb*hbcm2*p5p7-5*hbcm*p3p5*
5795 . p4p7+3*hbcm*p3p5*p5p7))+w5*(2*p5p7*(2*ffmcfmb*hbcm3+3*fmc*
5796 . hbcm2)+2*p4p7*(-ffmcfmb*hbcm3-fmb*hbcm2-3*fmc*hbcm2-hbcm3)+10*
5797 . (p3p7*p3p4)*(-2*ffmcfmb*hbcm+hbcm)+2*(p3p7*p1p3)*(2*ffmcfmb*
5798 . hbcm-hbcm)+2*p3p7*(-3*ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2-6*
5799 . ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3+3*fmc*hbcm2)+2*(2*ffmcfmb*hbcm
5800 . *p2p3*p3p7-2*ffmcfmb*hbcm*p3p5*p3p7+hbcm*p1p3*p4p7-hbcm*p1p3*
5801 . p5p7+2*hbcm*p2p3*p4p7-5*hbcm*p3p4*p4p7+5*hbcm*p3p4*p5p7-2*hbcm
5802 . *p3p5*p4p7))+(4*p3p7*(8*fb1*ffmcfmb*hbcm-3*fb1*hbcm-4*hbcm)+4*
5803 . (5*fb1*hbcm*p4p7-3*fb1*hbcm*p5p7)))
5804 b(12)=ans
5805 b(13)=ccc*(w5*(2*p3p4*(-ffmcfmb*hbcm+hbcm)+2*p1p3*(-ffmcfmb*
5806 . hbcm+hbcm)+2*(-ffmcfmb**2*hbcm3+ffmcfmb*hbcm*p2p3+ffmcfmb*hbcm
5807 . *p3p5+ffmcfmb*hbcm3+hbcm*p1p2+hbcm*p1p5+hbcm*p2p4+hbcm*p4p5))-
5808 . 18*hbcm)
5809 b(14)=ccc*(w1*((p3p7*p3p4)*(-16*ffmcfmb+6)+2*p3p7*(-8*ffmcfmb*
5810 . fmc*hbcm+3*fmc*hbcm)+2*(-5*fmc*hbcm*p4p7+3*fmc*hbcm*p5p7-5*
5811 . p3p4*p4p7+3*p3p4*p5p7))+w2*((p3p7*p3p5)*(16*ffmcfmb-6)+2*p3p7*
5812 . (8*ffmcfmb*fmb*hbcm-3*fmb*hbcm)+2*(5*fmb*hbcm*p4p7-3*fmb*hbcm*
5813 . p5p7+5*p3p5*p4p7-3*p3p5*p5p7))+w5*((p3p7*p3p4)*(-16*ffmcfmb+6)
5814 . +(p3p7*p1p3)*(16*ffmcfmb-6)+2*p4p7*(-ffmcfmb*hbcm2+fmb*hbcm-3*
5815 . fmc*hbcm-hbcm2)+2*p3p7*(-ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm-6*
5816 . ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2+3*fmc*hbcm)+2*(3*fmc*hbcm*p5p7+
5817 . 5*p1p3*p4p7-3*p1p3*p5p7-5*p3p4*p4p7+3*p3p4*p5p7))+(p3p7*(32*
5818 . fb2*ffmcfmb-12*fb2+8)+4*(5*fb2*p4p7-3*fb2*p5p7)))
5819 ans2=w5*((p3p7*p3p6*p3p4)*(32*ffmcfmb-8)+(p3p7*p3p6*p1p3)*(-32*
5820 . ffmcfmb+8)+8*(p4p6*p3p7)*(ffmcfmb*hbcm2-fmb*hbcm)+4*(p5p7*p3p6
5821 . )*(-5*ffmcfmb*hbcm2-fmc*hbcm)+4*(p4p7*p3p6)*(-3*ffmcfmb*hbcm2+
5822 . fmc*hbcm)+4*(p6p7*p3p4)*(-2*ffmcfmb*hbcm2+fmb*hbcm-fmc*hbcm-
5823 . hbcm2)+4*(p6p7*p1p3)*(2*ffmcfmb*hbcm2-fmb*hbcm+fmc*hbcm+hbcm2)
5824 . +4*(p3p7*p3p6)*(-2*ffmcfmb*fmb*hbcm+2*ffmcfmb*fmc*hbcm+ffmcfmb
5825 . *hbcm2-fmc*hbcm)+2*p6p7*(-ffmcfmb**2*hbcm4+ffmcfmb*fmb*hbcm3-
5826 . ffmcfmb*fmc*hbcm3-ffmcfmb*hbcm4+fmb*fmc*hbcm2-fmc*hbcm3+4*fmc2
5827 . *hbcm2-8*p1p3s2-8*p3p4s2)+8*(-2*hbcm2*p1p4*p6p7-hbcm2*p4p6*
5828 . p4p7-3*hbcm2*p4p6*p5p7+4*p1p3*p3p4*p6p7-p1p3*p3p6*p4p7+p1p3*
5829 . p3p6*p5p7-2*p1p3*p3p7*p4p6+p3p4*p3p6*p4p7-p3p4*p3p6*p5p7+2*
5830 . p3p4*p3p7*p4p6))+((p3p7*p3p6)*(-64*fb2*ffmcfmb+16*fb2-16)+4*
5831 . p6p7*(-2*fb1*fmb*hbcm-2*fb1*fmc*hbcm+4*fb2*ffmcfmb*hbcm2+2*fb2
5832 . *hbcm2+hbcm2)+16*(-2*fb2*p1p3*p6p7+2*fb2*p3p4*p6p7-fb2*p3p6*
5833 . p4p7+fb2*p3p6*p5p7-2*fb2*p3p7*p4p6))
5834 ans1=w1*(4*(p6p7*p3p4)*(fmb*hbcm-3*fmc*hbcm-hbcm2)+(p3p7*p3p6*
5835 . p3p4)*(32*ffmcfmb-8)+4*(p4p6*p3p7)*(4*ffmcfmb*hbcm2+4*fmc*hbcm
5836 . -hbcm2)+8*(p4p7*p3p6)*(-2*ffmcfmb*hbcm2+fmc*hbcm)+4*p6p7*(-2*
5837 . ffmcfmb*fmc*hbcm3+fmb*fmc*hbcm2-fmc*hbcm3+3*fmc2*hbcm2-4*
5838 . p3p4s2)+8*(p3p7*p3p6)*(4*ffmcfmb*fmc*hbcm-fmc*hbcm)+4*(4*fmc*
5839 . hbcm*p1p3*p6p7-2*fmc*hbcm*p3p6*p5p7-4*hbcm2*p1p4*p6p7-hbcm2*
5840 . p4p6*p4p7-hbcm2*p4p6*p5p7+4*p1p3*p3p4*p6p7+2*p3p4*p3p6*p4p7-2*
5841 . p3p4*p3p6*p5p7+4*p3p4*p3p7*p4p6))+w2*(4*(p6p7*p3p5)*(fmb*hbcm+
5842 . fmc*hbcm+hbcm2)+(p3p7*p3p6*p3p5)*(-32*ffmcfmb+8)+8*(p5p6*p3p7)
5843 . *(2*ffmcfmb*hbcm2-hbcm2)+8*(p5p7*p3p6)*(-2*ffmcfmb*hbcm2+fmb*
5844 . hbcm+hbcm2)+4*p6p7*(2*ffmcfmb*fmb*hbcm3+fmb*fmc*hbcm2+fmb*
5845 . hbcm3+fmb2*hbcm2)+8*(p3p7*p3p6)*(-4*ffmcfmb*fmb*hbcm+fmb*hbcm)
5846 . +8*(-2*fmb*hbcm*p1p3*p6p7+2*fmb*hbcm*p3p4*p6p7-fmb*hbcm*p3p6*
5847 . p4p7-2*fmb*hbcm*p3p7*p4p6+hbcm2*p1p5*p6p7-hbcm2*p2p5*p6p7-
5848 . hbcm2*p4p5*p6p7-hbcm2*p4p6*p5p7+hbcm2*p4p7*p5p6-2*p1p3*p3p5*
5849 . p6p7+2*p3p4*p3p5*p6p7-p3p5*p3p6*p4p7+p3p5*p3p6*p5p7-2*p3p5*
5850 . p3p7*p4p6))+ans2
5851 ans=ccc*ans1
5852 b(15)=ans
5853 ans=ccc*(w2*(4*p6p7*(-fmb*fmc*hbcm+fmb*hbcm2+fmb2*hbcm)+8*(p5p6
5854 . *p3p7)*(2*ffmcfmb*hbcm-hbcm)+8*(p5p7*p3p6)*(-2*ffmcfmb*hbcm+
5855 . hbcm)+4*(p6p7*p3p5)*(-2*ffmcfmb*hbcm+fmb-fmc+hbcm)+8*(hbcm*
5856 . p1p5*p6p7-hbcm*p2p5*p6p7-hbcm*p4p5*p6p7-hbcm*p4p6*p5p7+hbcm*
5857 . p4p7*p5p6))+w1*(4*p6p7*(-fmb*fmc*hbcm+fmc*hbcm2+3*fmc2*hbcm)+4
5858 . *(p4p6*p3p7)*(4*ffmcfmb*hbcm-hbcm)+4*(p6p7*p3p4)*(2*ffmcfmb*
5859 . hbcm-fmb+fmc+hbcm)+4*(-4*ffmcfmb*hbcm*p3p6*p4p7-4*hbcm*p1p4*
5860 . p6p7-hbcm*p4p6*p4p7-hbcm*p4p6*p5p7))+w5*(16*(p4p6*p3p7)*(
5861 . ffmcfmb*hbcm-hbcm)+4*(p6p7*p3p4)*(2*ffmcfmb*hbcm-fmb+fmc+hbcm)
5862 . +4*(p6p7*p1p3)*(-2*ffmcfmb*hbcm+fmb-fmc-hbcm)+2*p6p7*(ffmcfmb
5863 . **2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3-
5864 . fmb*fmc*hbcm+fmc*hbcm2+4*fmc2*hbcm)+8*(-ffmcfmb*hbcm*p3p6*p3p7
5865 . -ffmcfmb*hbcm*p3p6*p4p7-3*ffmcfmb*hbcm*p3p6*p5p7-2*hbcm*p1p4*
5866 . p6p7-4*hbcm*p4p6*p5p7))+4*p6p7*(-2*fb1*hbcm+2*fb2*fmb-2*fb2*
5867 . fmc+hbcm))
5868 b(16)=ans
5869 do 200 n=1,16
5870 c(n,1)=c(n,1)+0.1818181818181818d0*b(n)
5871 c(n,2)=c(n,2)+0.9833321660356334d0*b(n)
5872 200 continue
5873 return
5874 end
5875
5876 subroutine amp35_3p0(cc)
5877 implicit double precision(a-h,o-z)
5878 implicit integer (i-n)
5879 dimension b(16)
5880 #include "inclcon.h"
5881 #include "inclppp.h"
5882 #include "inclamp.h"
5883 do 100 n=1,16
5884 b(n)=0.0d0
5885 100 continue
5886 ccc=cc/((ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*p3p5+fmb2+
5887 . hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p2p3+2*ffmcfmb*p3p4+
5888 . fmc2-2*p2p4)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2))
5889 ans5=4*(ffmcfmb*fmc*hbcm2*p3p6*p5p7-2*ffmcfmb*hbcm*p1p2*p3p6*
5890 . p3p7+2*ffmcfmb*hbcm*p1p3*p3p6*p4p7-4*ffmcfmb*hbcm*p1p3*p3p7*
5891 . p4p6+ffmcfmb*hbcm*p2p3*p3p6*p5p7+2*ffmcfmb*hbcm*p2p5*p3p6*p3p7
5892 . +ffmcfmb*hbcm*p3p4*p3p6*p5p7-2*ffmcfmb*hbcm*p3p5*p3p6*p4p7+4*
5893 . ffmcfmb*hbcm*p3p5*p3p7*p4p6-ffmcfmb*hbcm3*p2p5*p6p7+ffmcfmb*
5894 . hbcm3*p4p7*p5p6+fmc*hbcm2*p1p4*p6p7+fmc*hbcm2*p4p5*p6p7+fmc*
5895 . hbcm2*p4p6*p5p7+fmc*p1p3*p2p3*p6p7+fmc*p3p4*p3p5*p6p7+fmc2*
5896 . hbcm*p1p3*p6p7-hbcm*p1p2*p2p3*p6p7+3*hbcm*p1p2*p3p4*p6p7-4*
5897 . hbcm*p1p2*p3p6*p4p7+2*hbcm*p1p2*p3p7*p4p6-4*hbcm*p1p3*p2p4*
5898 . p6p7-2*hbcm*p1p3*p4p6*p4p7+hbcm*p1p4*p2p3*p6p7+hbcm*p1p4*p3p4*
5899 . p6p7-6*hbcm*p2p3*p2p4*p6p7+3*hbcm*p2p3*p2p5*p6p7+hbcm*p2p3*
5900 . p4p5*p6p7+4*hbcm*p2p3*p4p6*p4p7+hbcm*p2p3*p4p6*p5p7-3*hbcm*
5901 . p2p3*p4p7*p5p6-2*hbcm*p2p4*p3p4*p6p7+4*hbcm*p2p4*p3p5*p6p7-4*
5902 . hbcm*p2p4*p3p6*p4p7+2*hbcm*p2p4*p3p7*p5p6-hbcm*p2p5*p3p4*p6p7+
5903 . 4*hbcm*p2p5*p3p6*p4p7-2*hbcm*p2p5*p3p7*p4p6+hbcm*p3p4*p4p5*
5904 . p6p7+2*hbcm*p3p4*p4p6*p4p7+hbcm*p3p4*p4p6*p5p7-hbcm*p3p4*p4p7*
5905 . p5p6+2*hbcm*p3p5*p4p6*p4p7)
5906 ans4=2*(p6p7*p3p4)*(-ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2-3*
5907 . ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3+fmb*fmc*hbcm+3*fmc*hbcm2)+2*(
5908 . p6p7*p2p3)*(-ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*
5909 . hbcm2+3*ffmcfmb*hbcm3-3*fmb*fmc*hbcm+fmc*hbcm2+8*fmc2*hbcm)+4*
5910 . (p3p7*p3p6*p3p4)*(3*ffmcfmb**2*hbcm-ffmcfmb*fmb+4*ffmcfmb*fmc+
5911 . 3*ffmcfmb*hbcm-fmc)+4*(p3p7*p3p6*p2p3)*(-3*ffmcfmb**2*hbcm+
5912 . ffmcfmb*fmb-4*ffmcfmb*fmc+5*ffmcfmb*hbcm+fmc)+2*p6p7*(-3*
5913 . ffmcfmb**2*fmc*hbcm4+ffmcfmb*fmb*fmc*hbcm3+3*ffmcfmb*fmc*hbcm4
5914 . -ffmcfmb*fmc2*hbcm3-8*ffmcfmb*hbcm*p2p3s2-fmb*fmc2*hbcm2+4*fmb
5915 . *p2p3s2-6*fmc*p2p3s2-2*fmc*p3p4s2-fmc2*hbcm3+2*fmc3*hbcm2+2*
5916 . hbcm*p2p3s2+2*hbcm*p3p4s2)+4*(p3p7*p3p6)*(-ffmcfmb**2*fmc*
5917 . hbcm2-ffmcfmb*fmb*fmc*hbcm+5*ffmcfmb*fmc*hbcm2+4*ffmcfmb*fmc2*
5918 . hbcm-fmc2*hbcm)+ans5
5919 ans3=8*(p6p7*p3p4*p2p3)*(-fmb+2*fmc+hbcm)+4*(p4p7*p4p6)*(-2*
5920 . ffmcfmb*hbcm3+fmb*hbcm2+fmc*hbcm2+hbcm3)+4*(p6p7*p2p4)*(-
5921 . ffmcfmb*hbcm3+2*fmb*hbcm2-3*fmc*hbcm2+2*hbcm3)+4*(p6p7*p1p2)*(
5922 . ffmcfmb*hbcm3+2*fmc*hbcm2)+4*(p5p6*p3p7*p3p4)*(-3*ffmcfmb*hbcm
5923 . -fmc)+4*(p4p6*p3p7*p3p4)*(2*ffmcfmb*hbcm+fmb-fmc)+4*(p4p7*p3p6
5924 . *p3p4)*(ffmcfmb*hbcm-2*fmb+4*fmc+5*hbcm)+8*(p3p7*p3p6*p2p4)*(-
5925 . 3*ffmcfmb*hbcm+hbcm)+4*(p5p6*p3p7*p2p3)*(-ffmcfmb*hbcm+fmc)+4*
5926 . (p4p6*p3p7*p2p3)*(2*ffmcfmb*hbcm-fmb+fmc)+4*(p4p7*p3p6*p2p3)*(
5927 . ffmcfmb*hbcm+2*fmb-4*fmc+3*hbcm)+4*(p6p7*p3p5*p2p3)*(2*ffmcfmb
5928 . *hbcm-fmc)+4*(p6p7*p3p4*p1p3)*(2*ffmcfmb*hbcm-fmc)+4*(p5p6*
5929 . p3p7)*(-ffmcfmb*fmc*hbcm2-fmc2*hbcm)+4*(p6p7*p3p5)*(2*ffmcfmb*
5930 . fmc*hbcm2-fmc2*hbcm)+4*(p4p6*p3p7)*(-2*ffmcfmb**2*hbcm3+2*
5931 . ffmcfmb*fmb*hbcm2+2*ffmcfmb*hbcm3+fmb*fmc*hbcm-fmc2*hbcm)+4*(
5932 . p4p7*p3p6)*(-ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*
5933 . hbcm2-2*fmb*fmc*hbcm+6*fmc*hbcm2+4*fmc2*hbcm)+ans4
5934 ans2=w11*ans3
5935 ans8=2*p6p7*(-3*ffmcfmb**2*fmc*hbcm4+ffmcfmb*fmb*fmc*hbcm3+3*
5936 . ffmcfmb*fmc*hbcm4-ffmcfmb*fmc2*hbcm3-fmb*fmc2*hbcm2-2*fmc*
5937 . p3p4s2-fmc2*hbcm3+2*fmc3*hbcm2+2*hbcm*p3p4s2)+4*(p3p7*p3p6)*(-
5938 . ffmcfmb**2*fmc*hbcm2-ffmcfmb*fmb*fmc*hbcm+5*ffmcfmb*fmc*hbcm2+
5939 . 4*ffmcfmb*fmc2*hbcm-fmc2*hbcm)+4*(ffmcfmb*fmc*hbcm2*p3p6*p5p7+
5940 . 2*ffmcfmb*hbcm*p1p3*p3p6*p4p7-4*ffmcfmb*hbcm*p1p3*p3p7*p4p6+2*
5941 . ffmcfmb*hbcm*p2p3*p3p6*p4p7-4*ffmcfmb*hbcm*p2p3*p3p7*p4p6+
5942 . ffmcfmb*hbcm*p3p4*p3p6*p5p7-2*ffmcfmb*hbcm*p3p5*p3p6*p4p7+4*
5943 . ffmcfmb*hbcm*p3p5*p3p7*p4p6+ffmcfmb*hbcm3*p4p7*p5p6+3*fmc*
5944 . hbcm2*p1p2*p6p7+fmc*hbcm2*p1p4*p6p7-fmc*hbcm2*p2p5*p6p7+fmc*
5945 . hbcm2*p4p5*p6p7+fmc*hbcm2*p4p6*p5p7+fmc*p3p4*p3p5*p6p7+fmc2*
5946 . hbcm*p1p3*p6p7+3*hbcm*p1p2*p3p4*p6p7-4*hbcm*p1p3*p2p4*p6p7-2*
5947 . hbcm*p1p3*p4p6*p4p7+hbcm*p1p4*p3p4*p6p7-4*hbcm*p2p3*p2p4*p6p7-
5948 . 2*hbcm*p2p3*p4p6*p4p7-2*hbcm*p2p4*p3p4*p6p7+4*hbcm*p2p4*p3p5*
5949 . p6p7-hbcm*p2p5*p3p4*p6p7+hbcm*p3p4*p4p5*p6p7+2*hbcm*p3p4*p4p6*
5950 . p4p7+hbcm*p3p4*p4p6*p5p7-hbcm*p3p4*p4p7*p5p6+2*hbcm*p3p5*p4p6*
5951 . p4p7)
5952 ans7=4*(p6p7*p2p3)*(-2*fmb*fmc*hbcm+fmc*hbcm2+5*fmc2*hbcm)+4*(
5953 . p4p7*p4p6)*(-2*ffmcfmb*hbcm3+fmb*hbcm2+fmc*hbcm2+hbcm3)+8*(
5954 . p6p7*p2p4)*(-ffmcfmb*hbcm3+fmb*hbcm2-fmc*hbcm2+hbcm3)+4*(p5p6*
5955 . p3p7*p3p4)*(-3*ffmcfmb*hbcm-fmc)+4*(p4p6*p3p7*p3p4)*(2*ffmcfmb
5956 . *hbcm+fmb-fmc)+4*(p4p7*p3p6*p3p4)*(ffmcfmb*hbcm-2*fmb+4*fmc+5*
5957 . hbcm)+4*(p6p7*p3p4*p2p3)*(2*ffmcfmb*hbcm-2*fmb+3*fmc+hbcm)+4*(
5958 . p6p7*p3p4*p1p3)*(2*ffmcfmb*hbcm-fmc)+4*(p5p6*p3p7)*(-ffmcfmb*
5959 . fmc*hbcm2-fmc2*hbcm)+4*(p6p7*p3p5)*(2*ffmcfmb*fmc*hbcm2-fmc2*
5960 . hbcm)+4*(p4p6*p3p7)*(-2*ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*hbcm2+2
5961 . *ffmcfmb*hbcm3+fmb*fmc*hbcm-fmc2*hbcm)+4*(p4p7*p3p6)*(-ffmcfmb
5962 . **2*hbcm3-ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-2*fmb*fmc*hbcm+6
5963 . *fmc*hbcm2+4*fmc2*hbcm)+2*(p6p7*p3p4)*(-ffmcfmb**2*hbcm3-
5964 . ffmcfmb*fmb*hbcm2-3*ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3+fmb*fmc*
5965 . hbcm+3*fmc*hbcm2)+4*(p3p7*p3p6*p3p4)*(3*ffmcfmb**2*hbcm-
5966 . ffmcfmb*fmb+4*ffmcfmb*fmc+3*ffmcfmb*hbcm-fmc)+ans8
5967 ans6=w1*ans7
5968 ans12=4*(-2*ffmcfmb*hbcm*p1p3*p3p7*p5p6-2*ffmcfmb*hbcm*p1p5*
5969 . p3p6*p3p7+ffmcfmb*hbcm*p3p5*p3p6*p5p7+fmb*fmc*hbcm*p1p3*p6p7+3
5970 . *fmb*hbcm2*p1p2*p6p7+fmb*hbcm2*p1p4*p6p7+2*fmb*hbcm2*p2p4*p6p7
5971 . +4*fmb*hbcm2*p4p6*p4p7+fmc*p1p3*p3p5*p6p7+3*hbcm*p1p2*p3p5*
5972 . p6p7-2*hbcm*p1p2*p3p7*p5p6+hbcm*p1p4*p3p5*p6p7-2*hbcm*p1p4*
5973 . p3p7*p5p6-4*hbcm*p1p5*p2p3*p6p7-4*hbcm*p1p5*p3p6*p4p7+2*hbcm*
5974 . p1p5*p3p7*p4p6+4*hbcm*p2p3*p2p5*p6p7-4*hbcm*p2p3*p4p5*p6p7+4*
5975 . hbcm*p2p3*p4p6*p5p7-4*hbcm*p2p3*p4p7*p5p6+2*hbcm*p2p4*p3p5*
5976 . p6p7-hbcm*p2p5*p3p5*p6p7+4*hbcm*p2p5*p3p6*p4p7-4*hbcm*p2p5*
5977 . p3p7*p4p6+hbcm*p3p5*p4p5*p6p7+6*hbcm*p3p5*p4p6*p4p7+hbcm*p3p5*
5978 . p4p6*p5p7+5*hbcm*p3p5*p4p7*p5p6-4*hbcm*p3p6*p4p5*p4p7)
5979 ans11=4*(p5p6*p3p7)*(ffmcfmb**2*hbcm3+3*ffmcfmb*fmb*hbcm2-3*
5980 . ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3+fmb*fmc*hbcm+fmc*hbcm2)+4*(
5981 . p5p7*p3p6)*(-2*ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2+2*ffmcfmb*
5982 . fmc*hbcm2+ffmcfmb*hbcm3-fmc*hbcm2)+2*(p6p7*p3p5)*(-ffmcfmb**2*
5983 . hbcm3+3*ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+3*ffmcfmb*hbcm3-
5984 . fmb*fmc*hbcm-fmc*hbcm2-2*fmc2*hbcm)+4*(p3p7*p3p6*p3p5)*(-3*
5985 . ffmcfmb**2*hbcm+ffmcfmb*fmb-4*ffmcfmb*fmc+5*ffmcfmb*hbcm+fmc)+
5986 . 2*p6p7*(-3*ffmcfmb**2*fmb*hbcm4+3*ffmcfmb*fmb*fmc*hbcm3+3*
5987 . ffmcfmb*fmb*hbcm4-ffmcfmb*fmb2*hbcm3+4*ffmcfmb*hbcm*p3p5s2-fmb
5988 . *fmc*hbcm3-2*fmb*fmc2*hbcm2+fmb2*fmc*hbcm2-2*fmc*p3p5s2)+4*(
5989 . p3p7*p3p6)*(-ffmcfmb**2*fmb*hbcm2-4*ffmcfmb*fmb*fmc*hbcm+5*
5990 . ffmcfmb*fmb*hbcm2+ffmcfmb*fmb2*hbcm+fmb*fmc*hbcm)+ans12
5991 ans10=4*(p6p7*p2p3)*(-3*fmb*fmc*hbcm+fmb*hbcm2+2*fmb2*hbcm)+4*(
5992 . p5p6*p4p7)*(-2*ffmcfmb*hbcm3+3*fmb*hbcm2-2*fmc*hbcm2+4*hbcm3)+
5993 . 4*(p5p7*p4p6)*(-ffmcfmb*hbcm3+fmb*hbcm2+fmc*hbcm2)+4*(p6p7*
5994 . p4p5)*(ffmcfmb*hbcm3+fmb*hbcm2-fmc*hbcm2)+4*(p6p7*p2p5)*(-
5995 . ffmcfmb*hbcm3-fmb*hbcm2+fmc*hbcm2)+4*(p6p7*p1p5)*(ffmcfmb*
5996 . hbcm3-fmc*hbcm2)+8*(p4p5*p3p7*p3p6)*(-3*ffmcfmb*hbcm+hbcm)+4*(
5997 . p5p6*p3p7*p3p5)*(5*ffmcfmb*hbcm+fmc)+4*(p4p6*p3p7*p3p5)*(6*
5998 . ffmcfmb*hbcm-fmb+fmc)+4*(p4p7*p3p6*p3p5)*(-ffmcfmb*hbcm+2*fmb-
5999 . 4*fmc+3*hbcm)+8*(p5p6*p3p7*p3p4)*(ffmcfmb*hbcm-hbcm)+4*(p6p7*
6000 . p3p5*p3p4)*(-2*ffmcfmb*hbcm+fmc+hbcm)+8*(p3p7*p3p6*p2p5)*(-
6001 . ffmcfmb*hbcm+hbcm)+8*(p5p6*p3p7*p2p3)*(-3*ffmcfmb*hbcm+hbcm)+
6002 . 16*(p5p7*p3p6*p2p3)*(2*ffmcfmb*hbcm-hbcm)+4*(p6p7*p3p5*p2p3)*(
6003 . -4*ffmcfmb*hbcm+2*fmb-3*fmc+hbcm)+4*(p4p6*p3p7)*(4*ffmcfmb*fmb
6004 . *hbcm2+fmb*fmc*hbcm-fmb2*hbcm)+4*(p4p7*p3p6)*(-ffmcfmb*fmb*
6005 . hbcm2-4*fmb*fmc*hbcm+5*fmb*hbcm2+2*fmb2*hbcm)+4*(p6p7*p3p4)*(-
6006 . 2*ffmcfmb*fmb*hbcm2+fmb*fmc*hbcm+fmb*hbcm2)+ans11
6007 ans9=w2*ans10
6008 ans13=(4*(p6p7*p1p3)*(2*fb2*fmc-3*hbcm)+4*(p6p7*p2p3)*(-2*fb1*
6009 . hbcm+4*fb2*fmb-6*fb2*fmc-11*hbcm)+2*(p5p6*p3p7)*(-4*fb1*
6010 . ffmcfmb*hbcm+4*fb2*fmc-hbcm)+8*(p4p6*p3p7)*(-2*fb1*ffmcfmb*
6011 . hbcm-fb2*fmb+fb2*fmc+2*hbcm)+2*(p5p7*p3p6)*(-4*fb1*ffmcfmb*
6012 . hbcm+5*hbcm)+2*(p4p7*p3p6)*(20*fb1*ffmcfmb*hbcm-28*fb1*hbcm+8*
6013 . fb2*fmb-16*fb2*fmc-9*hbcm)+8*(p6p7*p3p5)*(-2*fb1*ffmcfmb*hbcm-
6014 . fb2*fmc+4*hbcm)+8*(p6p7*p3p4)*(2*fb1*ffmcfmb*hbcm-fb1*hbcm+fb2
6015 . *fmc)+p6p7*(12*fb1*ffmcfmb**2*hbcm3-12*fb1*ffmcfmb*hbcm3-4*fb1
6016 . *fmb*fmc*hbcm+8*fb1*fmc2*hbcm-4*fb2*ffmcfmb*fmb*hbcm2+12*fb2*
6017 . ffmcfmb*fmc*hbcm2-4*fb2*fmc*hbcm2+17*fmb*hbcm2-15*fmc*hbcm2+15
6018 . *hbcm3)+2*(p3p7*p3p6)*(20*fb1*ffmcfmb**2*hbcm-28*fb1*ffmcfmb*
6019 . hbcm+4*fb2*ffmcfmb*fmb-16*fb2*ffmcfmb*fmc+4*fb2*fmc-12*ffmcfmb
6020 . *hbcm+fmb-4*fmc+11*hbcm)+8*(-3*fb1*hbcm*p1p2*p6p7-fb1*hbcm*
6021 . p1p4*p6p7-2*fb1*hbcm*p2p4*p6p7+fb1*hbcm*p2p5*p6p7-fb1*hbcm*
6022 . p4p5*p6p7-2*fb1*hbcm*p4p6*p4p7-fb1*hbcm*p4p6*p5p7-fb1*hbcm*
6023 . p4p7*p5p6))
6024 ans1=ans2+ans6+ans9+ans13
6025 ans=ccc*ans1
6026 b(1)=ans
6027 ans3=w2*(12*p4p7*(fmb*fmc*hbcm-fmb*hbcm2-fmb2*hbcm)+2*(p5p7*
6028 . p3p5)*(ffmcfmb*hbcm-fmc)+4*(p4p7*p3p5)*(2*ffmcfmb*hbcm-3*fmb+3
6029 . *fmc-3*hbcm)+2*p5p7*(ffmcfmb*fmb*hbcm2-fmb*fmc*hbcm)+2*(p3p7*
6030 . p3p5)*(3*ffmcfmb**2*hbcm-6*ffmcfmb*fmb+7*ffmcfmb*fmc-5*ffmcfmb
6031 . *hbcm-fmc)+2*p3p7*(-ffmcfmb**2*fmb*hbcm2+7*ffmcfmb*fmb*fmc*
6032 . hbcm-5*ffmcfmb*fmb*hbcm2-6*ffmcfmb*fmb2*hbcm-fmb*fmc*hbcm)+8*(
6033 . ffmcfmb*hbcm*p1p5*p3p7-ffmcfmb*hbcm*p2p5*p3p7+ffmcfmb*hbcm*
6034 . p3p7*p4p5+hbcm*p1p5*p4p7-hbcm*p2p5*p4p7+hbcm*p4p5*p4p7))+(12*
6035 . p4p7*(2*fb1*hbcm-2*fb2*fmb+2*fb2*fmc+hbcm)+p5p7*(-4*fb1*
6036 . ffmcfmb*hbcm-4*fb2*fmc-13*hbcm)+p3p7*(4*fb1*ffmcfmb**2*hbcm+20
6037 . *fb1*ffmcfmb*hbcm-24*fb2*ffmcfmb*fmb+28*fb2*ffmcfmb*fmc-4*fb2*
6038 . fmc+12*ffmcfmb*hbcm-6*fmb+7*fmc-7*hbcm))
6039 ans2=w1*(2*(p5p7*p3p4)*(-ffmcfmb*hbcm+fmc)+4*(p4p7*p3p4)*(-
6040 . ffmcfmb*hbcm+3*fmb-3*fmc-2*hbcm)+8*(p3p7*p2p4)*(-ffmcfmb*hbcm+
6041 . hbcm)+4*(p4p7*p2p3)*(ffmcfmb*hbcm-hbcm)+2*p5p7*(ffmcfmb*fmc*
6042 . hbcm2-fmc2*hbcm)+4*p4p7*(ffmcfmb**2*hbcm3-ffmcfmb*hbcm3+3*fmb*
6043 . fmc*hbcm-3*fmc*hbcm2-3*fmc2*hbcm)+2*(p3p7*p3p4)*(-3*ffmcfmb**2
6044 . *hbcm+6*ffmcfmb*fmb-7*ffmcfmb*fmc-3*ffmcfmb*hbcm+fmc)+2*p3p7*(
6045 . -ffmcfmb**2*fmc*hbcm2+6*ffmcfmb*fmb*fmc*hbcm-5*ffmcfmb*fmc*
6046 . hbcm2-5*ffmcfmb*fmc2*hbcm-fmc2*hbcm)+4*(-ffmcfmb*hbcm*p1p3*
6047 . p4p7+2*ffmcfmb*hbcm*p1p4*p3p7-ffmcfmb*hbcm*p3p5*p4p7+2*ffmcfmb
6048 . *hbcm*p3p7*p4p5-hbcm*p1p2*p4p7+hbcm*p1p4*p4p7+2*hbcm*p2p4*p5p7
6049 . -hbcm*p2p5*p4p7+hbcm*p4p5*p4p7))+ans3
6050 ans1=w11*(2*(p5p7*p3p4)*(-ffmcfmb*hbcm+fmc)+4*(p4p7*p3p4)*(-
6051 . ffmcfmb*hbcm+3*fmb-3*fmc-2*hbcm)+2*(p5p7*p2p3)*(ffmcfmb*hbcm-
6052 . fmc)+4*(p4p7*p2p3)*(3*ffmcfmb*hbcm-3*fmb+3*fmc-4*hbcm)+2*p5p7*
6053 . (ffmcfmb*fmc*hbcm2-fmc2*hbcm)+4*p4p7*(ffmcfmb**2*hbcm3-ffmcfmb
6054 . *hbcm3+3*fmb*fmc*hbcm-3*fmc*hbcm2-3*fmc2*hbcm)+2*(p3p7*p3p4)*(
6055 . -3*ffmcfmb**2*hbcm+6*ffmcfmb*fmb-7*ffmcfmb*fmc-3*ffmcfmb*hbcm+
6056 . fmc)+2*(p3p7*p2p3)*(3*ffmcfmb**2*hbcm-6*ffmcfmb*fmb+7*ffmcfmb*
6057 . fmc-5*ffmcfmb*hbcm-fmc)+2*p3p7*(-ffmcfmb**2*fmc*hbcm2+6*
6058 . ffmcfmb*fmb*fmc*hbcm-5*ffmcfmb*fmc*hbcm2-5*ffmcfmb*fmc2*hbcm-
6059 . fmc2*hbcm)+4*(2*ffmcfmb*hbcm*p1p2*p3p7-ffmcfmb*hbcm*p1p3*p4p7+
6060 . 2*ffmcfmb*hbcm*p1p4*p3p7-6*ffmcfmb*hbcm*p2p5*p3p7-ffmcfmb*hbcm
6061 . *p3p5*p4p7+2*ffmcfmb*hbcm*p3p7*p4p5+hbcm*p1p2*p4p7+hbcm*p1p4*
6062 . p4p7+2*hbcm*p2p4*p3p7+2*hbcm*p2p4*p4p7+2*hbcm*p2p4*p5p7-7*hbcm
6063 . *p2p5*p4p7+hbcm*p4p5*p4p7))+ans2
6064 ans=ccc*ans1
6065 b(2)=ans
6066 ans2=w2*(4*(p4p5*p3p6)*(ffmcfmb*hbcm-hbcm)+2*(p4p6*p3p5)*(
6067 . ffmcfmb*hbcm+fmb-2*fmc+hbcm)+4*(p5p6*p3p4)*(-ffmcfmb*hbcm+hbcm
6068 . )+4*(p3p6*p2p5)*(3*ffmcfmb*hbcm-hbcm)+4*(p5p6*p2p3)*(-ffmcfmb*
6069 . hbcm+hbcm)+2*p4p6*(ffmcfmb*fmb*hbcm2-2*fmb*fmc*hbcm+fmb*hbcm2+
6070 . fmb2*hbcm)+4*p5p6*(-ffmcfmb**2*hbcm3+ffmcfmb*hbcm3)+2*(p3p6*
6071 . p3p5)*(3*ffmcfmb**2*hbcm+ffmcfmb*fmb-2*ffmcfmb*fmc-ffmcfmb*
6072 . hbcm)+2*p3p6*(ffmcfmb**2*fmb*hbcm2-2*ffmcfmb*fmb*fmc*hbcm+
6073 . ffmcfmb*fmb*hbcm2+ffmcfmb*fmb2*hbcm)+4*(ffmcfmb*hbcm*p1p3*p5p6
6074 . -ffmcfmb*hbcm*p1p5*p3p6+hbcm*p1p2*p5p6+hbcm*p1p4*p5p6-hbcm*
6075 . p1p5*p4p6+2*hbcm*p2p5*p4p6))+(p4p6*(-4*fb1*ffmcfmb*hbcm-4*fb1*
6076 . hbcm+4*fb2*fmb-8*fb2*fmc-11*hbcm)+p3p6*(-4*fb1*ffmcfmb**2*hbcm
6077 . -4*fb1*ffmcfmb*hbcm+4*fb2*ffmcfmb*fmb-8*fb2*ffmcfmb*fmc+12*
6078 . ffmcfmb*hbcm+fmb-2*fmc-13*hbcm))
6079 ans1=w11*(2*(p4p6*p3p4)*(-ffmcfmb*hbcm-fmb+2*fmc+hbcm)+4*(p3p6*
6080 . p2p4)*(5*ffmcfmb*hbcm-3*hbcm)+2*(p4p6*p2p3)*(ffmcfmb*hbcm+fmb-
6081 . 2*fmc+hbcm)+2*p4p6*(ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm+fmc*hbcm2)+
6082 . 2*(p3p6*p3p4)*(-3*ffmcfmb**2*hbcm-ffmcfmb*fmb+2*ffmcfmb*fmc+3*
6083 . ffmcfmb*hbcm)+2*(p3p6*p2p3)*(3*ffmcfmb**2*hbcm+ffmcfmb*fmb-2*
6084 . ffmcfmb*fmc-ffmcfmb*hbcm)+2*p3p6*(ffmcfmb**2*fmc*hbcm2-ffmcfmb
6085 . *fmb*fmc*hbcm+ffmcfmb*fmc*hbcm2-2*ffmcfmb*fmc2*hbcm+2*fmc2*
6086 . hbcm)+4*(-ffmcfmb*hbcm*p1p2*p3p6-ffmcfmb*hbcm*p2p3*p5p6+
6087 . ffmcfmb*hbcm*p2p5*p3p6+ffmcfmb*hbcm*p3p4*p5p6+fmc2*hbcm*p5p6-
6088 . hbcm*p1p2*p4p6+2*hbcm*p2p4*p4p6-3*hbcm*p2p4*p5p6+hbcm*p2p5*
6089 . p4p6))+w1*(2*(p4p6*p3p4)*(-ffmcfmb*hbcm-fmb+2*fmc+hbcm)+8*(
6090 . p3p6*p2p4)*(2*ffmcfmb*hbcm-hbcm)+2*p4p6*(ffmcfmb*fmc*hbcm2-fmb
6091 . *fmc*hbcm+fmc*hbcm2)+2*(p3p6*p3p4)*(-3*ffmcfmb**2*hbcm-ffmcfmb
6092 . *fmb+2*ffmcfmb*fmc+3*ffmcfmb*hbcm)+2*p3p6*(ffmcfmb**2*fmc*
6093 . hbcm2-ffmcfmb*fmb*fmc*hbcm+ffmcfmb*fmc*hbcm2-2*ffmcfmb*fmc2*
6094 . hbcm+2*fmc2*hbcm)+4*(ffmcfmb*hbcm*p3p4*p5p6+fmc2*hbcm*p5p6+2*
6095 . hbcm*p2p4*p4p6-2*hbcm*p2p4*p5p6))+ans2
6096 ans=ccc*ans1
6097 b(3)=ans
6098 ans4=2*p6p7*(ffmcfmb**2*fmc*hbcm3+ffmcfmb*fmb*fmc*hbcm2-3*
6099 . ffmcfmb*fmc*hbcm3+3*ffmcfmb*fmc2*hbcm2-2*ffmcfmb*p2p3s2+2*
6100 . ffmcfmb*p3p4s2-fmb*fmc2*hbcm+fmc2*hbcm2-2*fmc3*hbcm+2*p2p3s2-2
6101 . *p3p4s2)+4*(-ffmcfmb*fmc*hbcm*p1p3*p6p7-ffmcfmb*fmc*hbcm*p3p5*
6102 . p6p7-3*ffmcfmb*fmc*hbcm*p3p6*p3p7-ffmcfmb*fmc*hbcm*p3p6*p5p7+2
6103 . *ffmcfmb*fmc*hbcm*p3p7*p5p6+ffmcfmb*p1p3*p2p3*p6p7-ffmcfmb*
6104 . p1p3*p3p4*p6p7+ffmcfmb*p2p3*p3p5*p6p7+ffmcfmb*p2p3*p3p6*p5p7-
6105 . ffmcfmb*p3p4*p3p5*p6p7-ffmcfmb*p3p4*p3p6*p5p7-fmc*hbcm*p1p2*
6106 . p6p7-fmc*hbcm*p1p4*p6p7-fmc*hbcm*p2p5*p6p7-fmc*hbcm*p4p5*p6p7-
6107 . fmc*hbcm*p4p6*p5p7+p1p2*p2p3*p6p7-p1p2*p3p4*p6p7+p1p4*p2p3*
6108 . p6p7-p1p4*p3p4*p6p7+4*p2p3*p2p4*p6p7+p2p3*p2p5*p6p7+p2p3*p4p5*
6109 . p6p7+4*p2p3*p4p6*p4p7+p2p3*p4p6*p5p7-p2p3*p4p7*p5p6-4*p2p4*
6110 . p3p4*p6p7-p2p5*p3p4*p6p7-p3p4*p4p5*p6p7-4*p3p4*p4p6*p4p7-p3p4*
6111 . p4p6*p5p7+p3p4*p4p7*p5p6)
6112 ans3=(p4p6*p3p7*p3p4)*(-16*ffmcfmb-4)+(p4p7*p3p6*p3p4)*(12*
6113 . ffmcfmb-12)+(p4p6*p3p7*p2p3)*(16*ffmcfmb+4)+(p4p7*p3p6*p2p3)*(
6114 . -12*ffmcfmb+12)+4*(p5p6*p4p7)*(ffmcfmb*hbcm2+2*fmc*hbcm)+4*(
6115 . p4p7*p4p6)*(-2*ffmcfmb*hbcm2+fmb*hbcm-3*fmc*hbcm-hbcm2)+8*(
6116 . p6p7*p2p4)*(-2*ffmcfmb*hbcm2+fmb*hbcm+fmc*hbcm-hbcm2)+4*(p3p7*
6117 . p3p6*p3p4)*(4*ffmcfmb**2-5*ffmcfmb)+4*(p3p7*p3p6*p2p3)*(-4*
6118 . ffmcfmb**2+5*ffmcfmb)+4*(p4p6*p3p7)*(-2*ffmcfmb**2*hbcm2+2*
6119 . ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*hbcm-2*ffmcfmb*hbcm2-fmc*hbcm)+
6120 . 4*(p4p7*p3p6)*(-ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm-ffmcfmb*fmc*
6121 . hbcm+2*ffmcfmb*hbcm2-2*fmc*hbcm)+2*(p6p7*p3p4)*(3*ffmcfmb**2*
6122 . hbcm2-ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2+fmb*fmc-
6123 . 3*fmc*hbcm+2*fmc2)+2*(p6p7*p2p3)*(-3*ffmcfmb**2*hbcm2+ffmcfmb*
6124 . fmb*hbcm+5*ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-fmb*fmc-fmc*hbcm-2*
6125 . fmc2)+ans4
6126 ans2=w11*ans3
6127 ans7=4*(-ffmcfmb*fmc*hbcm*p1p3*p6p7-ffmcfmb*fmc*hbcm*p3p5*p6p7-
6128 . 3*ffmcfmb*fmc*hbcm*p3p6*p3p7-ffmcfmb*fmc*hbcm*p3p6*p5p7+2*
6129 . ffmcfmb*fmc*hbcm*p3p7*p5p6-ffmcfmb*p1p3*p3p4*p6p7-ffmcfmb*p3p4
6130 . *p3p5*p6p7-ffmcfmb*p3p4*p3p6*p5p7-fmc*hbcm*p1p2*p6p7-fmc*hbcm*
6131 . p1p4*p6p7-fmc*hbcm*p2p5*p6p7-fmc*hbcm*p4p5*p6p7-fmc*hbcm*p4p6*
6132 . p5p7-p1p2*p3p4*p6p7-p1p4*p3p4*p6p7-4*p2p4*p3p4*p6p7-p2p5*p3p4*
6133 . p6p7-p3p4*p4p5*p6p7-4*p3p4*p4p6*p4p7-p3p4*p4p6*p5p7+p3p4*p4p7*
6134 . p5p6)
6135 ans6=(p4p6*p3p7*p3p4)*(-16*ffmcfmb-4)+(p4p7*p3p6*p3p4)*(12*
6136 . ffmcfmb-12)+(p6p7*p3p4*p2p3)*(4*ffmcfmb-4)+4*(p5p6*p4p7)*(
6137 . ffmcfmb*hbcm2+2*fmc*hbcm)+4*(p4p7*p4p6)*(-2*ffmcfmb*hbcm2+fmb*
6138 . hbcm-3*fmc*hbcm-hbcm2)+8*(p6p7*p2p4)*(-ffmcfmb*hbcm2+fmb*hbcm-
6139 . hbcm2)+4*(p6p7*p2p3)*(ffmcfmb*fmc*hbcm-fmc*hbcm)+4*(p3p7*p3p6*
6140 . p3p4)*(4*ffmcfmb**2-5*ffmcfmb)+4*(p4p6*p3p7)*(-2*ffmcfmb**2*
6141 . hbcm2+2*ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*hbcm-2*ffmcfmb*hbcm2-
6142 . fmc*hbcm)+4*(p4p7*p3p6)*(-ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm-
6143 . ffmcfmb*fmc*hbcm+2*ffmcfmb*hbcm2-2*fmc*hbcm)+2*(p6p7*p3p4)*(3*
6144 . ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm-ffmcfmb*
6145 . hbcm2+fmb*fmc-3*fmc*hbcm+2*fmc2)+2*p6p7*(ffmcfmb**2*fmc*hbcm3+
6146 . ffmcfmb*fmb*fmc*hbcm2-3*ffmcfmb*fmc*hbcm3+3*ffmcfmb*fmc2*hbcm2
6147 . +2*ffmcfmb*p3p4s2-fmb*fmc2*hbcm+fmc2*hbcm2-2*fmc3*hbcm-2*
6148 . p3p4s2)+ans7
6149 ans5=w1*ans6
6150 ans10=2*p6p7*(-ffmcfmb**2*fmb*hbcm3+ffmcfmb*fmb*fmc*hbcm2+3*
6151 . ffmcfmb*fmb*hbcm3+ffmcfmb*fmb2*hbcm2+2*ffmcfmb*p3p5s2-fmb*fmc*
6152 . hbcm2-2*fmb*fmc2*hbcm-fmb2*fmc*hbcm)+4*(ffmcfmb*fmb*hbcm*p1p3*
6153 . p6p7+3*ffmcfmb*fmb*hbcm*p3p6*p3p7+ffmcfmb*p1p3*p3p5*p6p7+
6154 . ffmcfmb*p3p5*p3p6*p5p7+fmb*hbcm*p1p2*p6p7+fmb*hbcm*p1p4*p6p7+4
6155 . *fmb*hbcm*p2p4*p6p7+6*fmb*hbcm*p4p6*p4p7+p1p2*p3p5*p6p7+p1p4*
6156 . p3p5*p6p7+4*p2p4*p3p5*p6p7+p2p5*p3p5*p6p7+p3p5*p4p5*p6p7+4*
6157 . p3p5*p4p6*p4p7+p3p5*p4p6*p5p7-p3p5*p4p7*p5p6)
6158 ans9=(p4p6*p3p7*p3p5)*(16*ffmcfmb+4)+(p4p7*p3p6*p3p5)*(-12*
6159 . ffmcfmb+12)+(p6p7*p3p5*p3p4)*(-4*ffmcfmb+4)+(p6p7*p3p5*p2p3)*(
6160 . -4*ffmcfmb+4)+4*(p5p6*p4p7)*(2*ffmcfmb*hbcm2+fmb*hbcm+2*fmc*
6161 . hbcm-4*hbcm2)+4*(p5p7*p4p6)*(ffmcfmb*hbcm2+fmb*hbcm-fmc*hbcm)+
6162 . 4*(p6p7*p4p5)*(-ffmcfmb*hbcm2+fmb*hbcm+fmc*hbcm)+4*(p6p7*p2p5)
6163 . *(ffmcfmb*hbcm2+fmb*hbcm-fmc*hbcm)+4*(p6p7*p1p5)*(-ffmcfmb*
6164 . hbcm2+fmc*hbcm)+4*(p4p6*p3p7)*(6*ffmcfmb*fmb*hbcm+fmb*hbcm)+4*
6165 . (p4p7*p3p6)*(ffmcfmb*fmb*hbcm+fmb*hbcm)+4*(p6p7*p3p4)*(-
6166 . ffmcfmb*fmb*hbcm+fmb*hbcm)+4*(p6p7*p2p3)*(-ffmcfmb*fmb*hbcm+
6167 . fmb*hbcm)+4*(p3p7*p3p6*p3p5)*(-4*ffmcfmb**2+5*ffmcfmb)+4*(p5p6
6168 . *p3p7)*(ffmcfmb**2*hbcm2+2*ffmcfmb*fmb*hbcm+3*ffmcfmb*fmc*hbcm
6169 . -3*ffmcfmb*hbcm2-fmc*hbcm)+4*(p5p7*p3p6)*(2*ffmcfmb**2*hbcm2+
6170 . ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2+fmc*hbcm)+2*
6171 . (p6p7*p3p5)*(-3*ffmcfmb**2*hbcm2+3*ffmcfmb*fmb*hbcm+3*ffmcfmb*
6172 . fmc*hbcm+3*ffmcfmb*hbcm2-fmb*fmc-fmc*hbcm-2*fmc2)+ans10
6173 ans8=w2*ans9
6174 ans11=((p4p6*p3p7)*(32*fb2*ffmcfmb+8*fb2+8)+(p5p7*p3p6)*(8*fb2*
6175 . ffmcfmb+2)+(p4p7*p3p6)*(-24*fb2*ffmcfmb+24*fb2-6)+(p6p7*p3p5)*
6176 . (8*fb2*ffmcfmb+2)+(p6p7*p3p4)*(-8*fb2*ffmcfmb+8*fb2-2)+(p6p7*
6177 . p2p3)*(-8*fb2*ffmcfmb+8*fb2-2)+(p6p7*p1p3)*(8*fb2*ffmcfmb+2)+(
6178 . p3p7*p3p6)*(-32*fb2*ffmcfmb**2+40*fb2*ffmcfmb-16*ffmcfmb+10)+
6179 . p6p7*(-4*fb1*ffmcfmb*fmb*hbcm-4*fb1*ffmcfmb*fmc*hbcm+4*fb1*fmc
6180 . *hbcm-4*fb2*ffmcfmb**2*hbcm2+12*fb2*ffmcfmb*hbcm2-4*fb2*fmb*
6181 . fmc-8*fb2*fmc2-2*ffmcfmb*hbcm2+17*fmb*hbcm+15*fmc*hbcm-15*
6182 . hbcm2)+8*(fb2*p1p2*p6p7+fb2*p1p4*p6p7+4*fb2*p2p4*p6p7+fb2*p2p5
6183 . *p6p7+fb2*p4p5*p6p7+4*fb2*p4p6*p4p7+fb2*p4p6*p5p7-fb2*p4p7*
6184 . p5p6))
6185 ans1=ans2+ans5+ans8+ans11
6186 ans=ccc*ans1
6187 b(4)=ans
6188 ans4=2*p3p7*(ffmcfmb**2*fmc*hbcm3-6*ffmcfmb*fmb*fmc*hbcm2-3*
6189 . ffmcfmb*fmc*hbcm3-5*ffmcfmb*fmc2*hbcm2-10*ffmcfmb*p2p3s2+2*
6190 . ffmcfmb*p3p4s2-fmc2*hbcm2+2*p2p3s2+2*p3p4s2)+4*(3*ffmcfmb*fmc*
6191 . hbcm*p1p3*p3p7-5*ffmcfmb*fmc*hbcm*p3p5*p3p7-3*ffmcfmb*p1p3*
6192 . p2p3*p3p7+3*ffmcfmb*p1p3*p3p4*p3p7+5*ffmcfmb*p2p3*p3p5*p3p7-5*
6193 . ffmcfmb*p3p4*p3p5*p3p7+hbcm2*p1p2*p4p7+hbcm2*p1p4*p4p7+2*hbcm2
6194 . *p2p4*p3p7+2*hbcm2*p2p4*p4p7+2*hbcm2*p2p4*p5p7-7*hbcm2*p2p5*
6195 . p4p7+hbcm2*p4p5*p4p7-p1p2*p2p3*p3p7+p1p2*p3p4*p3p7-2*p1p3*p2p3
6196 . *p4p7+2*p1p3*p3p4*p4p7-p1p4*p2p3*p3p7+p1p4*p3p4*p3p7-p2p3*p2p5
6197 . *p3p7+2*p2p3*p3p4*p4p7-2*p2p3*p3p4*p5p7+6*p2p3*p3p5*p4p7-p2p3*
6198 . p3p7*p4p5+p2p5*p3p4*p3p7-6*p3p4*p3p5*p4p7+p3p4*p3p7*p4p5)
6199 ans3=(p3p7*p3p4*p2p3)*(16*ffmcfmb-8)+4*(p4p5*p3p7)*(2*ffmcfmb*
6200 . hbcm2+fmc*hbcm)+4*(p4p7*p3p5)*(-ffmcfmb*hbcm2-6*fmc*hbcm)+2*(
6201 . p5p7*p3p4)*(-ffmcfmb*hbcm2+fmc*hbcm)+4*(p4p7*p3p4)*(ffmcfmb*
6202 . hbcm2-3*fmb*hbcm-fmc*hbcm-2*hbcm2)+4*(p3p7*p2p5)*(-6*ffmcfmb*
6203 . hbcm2+fmc*hbcm)+2*(p5p7*p2p3)*(-ffmcfmb*hbcm2-3*fmc*hbcm)+4*(
6204 . p4p7*p2p3)*(ffmcfmb*hbcm2-3*fmb*hbcm+fmc*hbcm+2*hbcm2)+4*(p3p7
6205 . *p1p4)*(2*ffmcfmb*hbcm2+fmc*hbcm)+4*(p4p7*p1p3)*(-ffmcfmb*
6206 . hbcm2+2*fmc*hbcm)+4*(p3p7*p1p2)*(2*ffmcfmb*hbcm2+fmc*hbcm)+2*
6207 . p5p7*(ffmcfmb*fmc*hbcm3-fmc2*hbcm2+4*p2p3s2)+4*p4p7*(ffmcfmb**
6208 . 2*hbcm4+2*ffmcfmb*fmc*hbcm3-ffmcfmb*hbcm4-3*fmb*fmc*hbcm2-3*
6209 . fmc*hbcm3-3*fmc2*hbcm2-4*p2p3s2+2*p3p4s2)+2*(p3p7*p3p4)*(-
6210 . ffmcfmb**2*hbcm2-6*ffmcfmb*fmb*hbcm-5*ffmcfmb*fmc*hbcm-ffmcfmb
6211 . *hbcm2+3*fmc*hbcm)+2*(p3p7*p2p3)*(3*ffmcfmb**2*hbcm2-6*ffmcfmb
6212 . *fmb*hbcm+3*ffmcfmb*fmc*hbcm+3*ffmcfmb*hbcm2-fmc*hbcm)+ans4
6213 ans2=w11*ans3
6214 ans7=4*(3*ffmcfmb*fmc*hbcm*p1p3*p3p7-5*ffmcfmb*fmc*hbcm*p3p5*
6215 . p3p7+3*ffmcfmb*p1p3*p3p4*p3p7-5*ffmcfmb*p3p4*p3p5*p3p7+fmc*
6216 . hbcm*p1p2*p3p7-2*fmc*hbcm*p2p3*p5p7+fmc*hbcm*p2p5*p3p7-hbcm2*
6217 . p1p2*p4p7+hbcm2*p1p4*p4p7+2*hbcm2*p2p4*p5p7-hbcm2*p2p5*p4p7+
6218 . hbcm2*p4p5*p4p7+p1p2*p3p4*p3p7+2*p1p3*p3p4*p4p7+p1p4*p3p4*p3p7
6219 . +4*p2p3*p3p4*p4p7-2*p2p3*p3p4*p5p7+p2p5*p3p4*p3p7-6*p3p4*p3p5*
6220 . p4p7+p3p4*p3p7*p4p5)
6221 ans6=(p3p7*p3p4*p2p3)*(20*ffmcfmb-4)+4*(p4p5*p3p7)*(2*ffmcfmb*
6222 . hbcm2+fmc*hbcm)+4*(p4p7*p3p5)*(-ffmcfmb*hbcm2-6*fmc*hbcm)+2*(
6223 . p5p7*p3p4)*(-ffmcfmb*hbcm2+fmc*hbcm)+4*(p4p7*p3p4)*(ffmcfmb*
6224 . hbcm2-3*fmb*hbcm-fmc*hbcm-2*hbcm2)+8*(p3p7*p2p4)*(-ffmcfmb*
6225 . hbcm2+hbcm2)+4*(p4p7*p2p3)*(ffmcfmb*hbcm2+4*fmc*hbcm-hbcm2)+4*
6226 . (p3p7*p1p4)*(2*ffmcfmb*hbcm2+fmc*hbcm)+4*(p4p7*p1p3)*(-ffmcfmb
6227 . *hbcm2+2*fmc*hbcm)+2*p5p7*(ffmcfmb*fmc*hbcm3-fmc2*hbcm2)+4*(
6228 . p3p7*p2p3)*(5*ffmcfmb*fmc*hbcm-fmc*hbcm)+4*p4p7*(ffmcfmb**2*
6229 . hbcm4+2*ffmcfmb*fmc*hbcm3-ffmcfmb*hbcm4-3*fmb*fmc*hbcm2-3*fmc*
6230 . hbcm3-3*fmc2*hbcm2+2*p3p4s2)+2*(p3p7*p3p4)*(-ffmcfmb**2*hbcm2-
6231 . 6*ffmcfmb*fmb*hbcm-5*ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2+3*fmc*hbcm
6232 . )+2*p3p7*(ffmcfmb**2*fmc*hbcm3-6*ffmcfmb*fmb*fmc*hbcm2-3*
6233 . ffmcfmb*fmc*hbcm3-5*ffmcfmb*fmc2*hbcm2+2*ffmcfmb*p3p4s2-fmc2*
6234 . hbcm2+2*p3p4s2)+ans7
6235 ans5=w1*ans6
6236 ans10=4*(-3*ffmcfmb*fmb*hbcm*p1p3*p3p7+2*ffmcfmb*hbcm2*p1p5*
6237 . p3p7-3*ffmcfmb*p1p3*p3p5*p3p7-fmb*hbcm*p1p2*p3p7-2*fmb*hbcm*
6238 . p1p3*p4p7-fmb*hbcm*p1p4*p3p7-4*fmb*hbcm*p2p3*p4p7+2*fmb*hbcm*
6239 . p2p3*p5p7-2*fmb*hbcm*p3p4*p4p7+2*hbcm2*p1p5*p4p7-2*hbcm2*p2p5*
6240 . p4p7+2*hbcm2*p4p5*p4p7-p1p2*p3p5*p3p7-2*p1p3*p3p5*p4p7-p1p4*
6241 . p3p5*p3p7-4*p2p3*p3p5*p4p7+2*p2p3*p3p5*p5p7-p2p5*p3p5*p3p7-2*
6242 . p3p4*p3p5*p4p7-p3p5*p3p7*p4p5)
6243 ans9=12*(p4p7*p3p5)*(fmb*hbcm-fmc*hbcm+hbcm2)+(p3p7*p3p5*p3p4)*
6244 . (-4*ffmcfmb-4)+(p3p7*p3p5*p2p3)*(-20*ffmcfmb+4)+4*(p4p5*p3p7)*
6245 . (2*ffmcfmb*hbcm2-fmb*hbcm)+2*(p5p7*p3p5)*(-ffmcfmb*hbcm2+fmc*
6246 . hbcm)+4*(p3p7*p2p5)*(-2*ffmcfmb*hbcm2-fmb*hbcm)+2*p5p7*(-
6247 . ffmcfmb*fmb*hbcm3+fmb*fmc*hbcm2)+4*p4p7*(-2*ffmcfmb*fmb*hbcm3-
6248 . 3*fmb*fmc*hbcm2+3*fmb*hbcm3-3*fmb2*hbcm2+6*p3p5s2)+4*(p3p7*
6249 . p3p4)*(-ffmcfmb*fmb*hbcm-fmb*hbcm)+4*(p3p7*p2p3)*(-5*ffmcfmb*
6250 . fmb*hbcm+fmb*hbcm)+2*(p3p7*p3p5)*(3*ffmcfmb**2*hbcm2+4*ffmcfmb
6251 . *fmb*hbcm-7*ffmcfmb*fmc*hbcm+3*ffmcfmb*hbcm2+fmc*hbcm)+2*p3p7*
6252 . (-ffmcfmb**2*fmb*hbcm3-7*ffmcfmb*fmb*fmc*hbcm2+3*ffmcfmb*fmb*
6253 . hbcm3-6*ffmcfmb*fmb2*hbcm2+10*ffmcfmb*p3p5s2+fmb*fmc*hbcm2)+
6254 . ans10
6255 ans8=w2*ans9
6256 ans11=((p3p7*p3p5)*(40*fb2*ffmcfmb+10)+(p3p7*p3p4)*(-8*fb2*
6257 . ffmcfmb-8*fb2-2)+(p3p7*p2p3)*(-40*fb2*ffmcfmb+8*fb2-10)+(p3p7*
6258 . p1p3)*(-24*fb2*ffmcfmb-6)+p5p7*(-4*fb1*fmc*hbcm-4*fb2*ffmcfmb*
6259 . hbcm2-13*hbcm2)+4*p4p7*(6*fb1*fmb*hbcm+6*fb1*fmc*hbcm-4*fb2*
6260 . ffmcfmb*hbcm2+6*fb2*hbcm2+5*hbcm2)+p3p7*(24*fb1*ffmcfmb*fmb*
6261 . hbcm+28*fb1*ffmcfmb*fmc*hbcm-4*fb1*fmc*hbcm-4*fb2*ffmcfmb**2*
6262 . hbcm2+12*fb2*ffmcfmb*hbcm2+16*ffmcfmb*hbcm2-12*fmb*hbcm-7*fmc*
6263 . hbcm+9*hbcm2)+8*(-fb2*p1p2*p3p7-2*fb2*p1p3*p4p7-fb2*p1p4*p3p7-
6264 . 4*fb2*p2p3*p4p7+2*fb2*p2p3*p5p7-fb2*p2p5*p3p7-2*fb2*p3p4*p4p7+
6265 . 6*fb2*p3p5*p4p7-fb2*p3p7*p4p5))
6266 ans1=ans2+ans5+ans8+ans11
6267 ans=ccc*ans1
6268 b(5)=ans
6269 ans4=4*(2*ffmcfmb*fmc*hbcm*p3p5*p3p6-2*ffmcfmb*p2p3*p3p5*p3p6+2
6270 . *ffmcfmb*p3p4*p3p5*p3p6-fmc*hbcm*p1p3*p4p6+fmc*hbcm*p1p4*p3p6+
6271 . 2*fmc*hbcm*p2p3*p5p6-fmc*hbcm*p3p4*p5p6+fmc*hbcm*p3p5*p4p6+fmc
6272 . *hbcm*p3p6*p4p5-hbcm2*p1p2*p4p6+2*hbcm2*p2p4*p4p6-3*hbcm2*p2p4
6273 . *p5p6+hbcm2*p2p5*p4p6-p1p2*p2p3*p3p6+p1p2*p3p4*p3p6+p1p3*p2p3*
6274 . p4p6-p1p3*p3p4*p4p6-p1p4*p2p3*p3p6+p1p4*p3p4*p3p6-p2p3*p2p5*
6275 . p3p6-3*p2p3*p3p4*p4p6+3*p2p3*p3p4*p5p6-p2p3*p3p5*p4p6-p2p3*
6276 . p3p6*p4p5+p2p5*p3p4*p3p6+p3p4*p3p5*p4p6+p3p4*p3p6*p4p5)
6277 ans3=(p3p6*p3p4*p2p3)*(-24*ffmcfmb+12)+2*(p4p6*p3p4)*(-ffmcfmb*
6278 . hbcm2+fmb*hbcm+2*fmc*hbcm+hbcm2)+4*(p3p6*p2p5)*(ffmcfmb*hbcm2+
6279 . fmc*hbcm)+4*(p3p6*p2p4)*(5*ffmcfmb*hbcm2-3*hbcm2)+2*(p4p6*p2p3
6280 . )*(-ffmcfmb*hbcm2+fmb*hbcm-4*fmc*hbcm-hbcm2)+4*(p3p6*p1p2)*(-
6281 . ffmcfmb*hbcm2+fmc*hbcm)+4*p5p6*(-ffmcfmb*fmc*hbcm3+fmc2*hbcm2-
6282 . 2*p2p3s2-p3p4s2)+2*p4p6*(ffmcfmb*fmc*hbcm3+fmb*fmc*hbcm2+fmc*
6283 . hbcm3+6*p2p3s2)+2*(p3p6*p3p4)*(-3*ffmcfmb**2*hbcm2+ffmcfmb*fmb
6284 . *hbcm+2*ffmcfmb*fmc*hbcm+3*ffmcfmb*hbcm2)+2*(p3p6*p2p3)*(
6285 . ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm-10*ffmcfmb*fmc*hbcm-3*
6286 . ffmcfmb*hbcm2+6*fmc*hbcm)+2*p3p6*(ffmcfmb**2*fmc*hbcm3+ffmcfmb
6287 . *fmb*fmc*hbcm2+ffmcfmb*fmc*hbcm3-2*ffmcfmb*fmc2*hbcm2+12*
6288 . ffmcfmb*p2p3s2+2*fmc2*hbcm2-6*p2p3s2)+ans4
6289 ans2=w11*ans3
6290 ans7=((p3p6*p3p5)*(-16*fb2*ffmcfmb-4)+(p3p6*p2p3)*(48*fb2*
6291 . ffmcfmb-24*fb2+12)+4*p5p6*(2*fb2*ffmcfmb*hbcm2-hbcm2)+p4p6*(-4
6292 . *fb1*fmb*hbcm-8*fb1*fmc*hbcm-4*fb2*ffmcfmb*hbcm2-4*fb2*hbcm2-7
6293 . *hbcm2)+p3p6*(-4*fb1*ffmcfmb*fmb*hbcm-8*fb1*ffmcfmb*fmc*hbcm-4
6294 . *fb2*ffmcfmb**2*hbcm2-4*fb2*ffmcfmb*hbcm2+16*ffmcfmb*hbcm2-13*
6295 . fmb*hbcm-8*fmc*hbcm-7*hbcm2)+8*(-fb2*p1p2*p3p6+fb2*p1p3*p4p6-
6296 . fb2*p1p4*p3p6+3*fb2*p2p3*p4p6-2*fb2*p2p3*p5p6-fb2*p2p5*p3p6+
6297 . fb2*p3p4*p5p6-fb2*p3p5*p4p6-fb2*p3p6*p4p5))
6298 ans6=w2*((p3p6*p3p5*p2p3)*(24*ffmcfmb-12)+4*(p4p5*p3p6)*(
6299 . ffmcfmb*hbcm2-fmb*hbcm-hbcm2)+2*(p4p6*p3p5)*(-ffmcfmb*hbcm2-
6300 . fmb*hbcm+2*fmc*hbcm-hbcm2)+4*(p5p6*p3p4)*(-ffmcfmb*hbcm2+fmb*
6301 . hbcm+hbcm2)+4*(p3p6*p2p5)*(3*ffmcfmb*hbcm2-fmb*hbcm-hbcm2)+4*(
6302 . p5p6*p2p3)*(-ffmcfmb*hbcm2-2*fmb*hbcm+hbcm2)+2*p4p6*(-ffmcfmb*
6303 . fmb*hbcm3+2*fmb*fmc*hbcm2-fmb*hbcm3+fmb2*hbcm2-2*p3p5s2)+12*(
6304 . p3p6*p2p3)*(2*ffmcfmb*fmb*hbcm-fmb*hbcm)+4*p5p6*(-ffmcfmb**2*
6305 . hbcm4+ffmcfmb*fmb*hbcm3+ffmcfmb*hbcm4)+2*(p3p6*p3p5)*(ffmcfmb
6306 . **2*hbcm2-3*ffmcfmb*fmb*hbcm+2*ffmcfmb*fmc*hbcm-3*ffmcfmb*
6307 . hbcm2)+2*p3p6*(-ffmcfmb**2*fmb*hbcm3+2*ffmcfmb*fmb*fmc*hbcm2-
6308 . ffmcfmb*fmb*hbcm3+ffmcfmb*fmb2*hbcm2-4*ffmcfmb*p3p5s2)+4*(
6309 . ffmcfmb*hbcm2*p1p3*p5p6-ffmcfmb*hbcm2*p1p5*p3p6+ffmcfmb*hbcm2*
6310 . p3p5*p5p6-fmb*hbcm*p1p2*p3p6+fmb*hbcm*p1p3*p4p6-fmb*hbcm*p1p4*
6311 . p3p6+3*fmb*hbcm*p2p3*p4p6+hbcm2*p1p2*p5p6+hbcm2*p1p4*p5p6-
6312 . hbcm2*p1p5*p4p6+2*hbcm2*p2p5*p4p6-p1p2*p3p5*p3p6+p1p3*p3p5*
6313 . p4p6-p1p4*p3p5*p3p6+3*p2p3*p3p5*p4p6-2*p2p3*p3p5*p5p6-p2p5*
6314 . p3p5*p3p6+p3p4*p3p5*p5p6-p3p5*p3p6*p4p5))+ans7
6315 ans5=w1*((p3p6*p3p4*p2p3)*(-24*ffmcfmb+12)+2*(p4p6*p3p4)*(-
6316 . ffmcfmb*hbcm2+fmb*hbcm+2*fmc*hbcm+hbcm2)+8*(p3p6*p2p4)*(2*
6317 . ffmcfmb*hbcm2-hbcm2)+4*p5p6*(-ffmcfmb*fmc*hbcm3+fmc2*hbcm2-
6318 . p3p4s2)+2*p4p6*(ffmcfmb*fmc*hbcm3+fmb*fmc*hbcm2+fmc*hbcm3)+12*
6319 . (p3p6*p2p3)*(-2*ffmcfmb*fmc*hbcm+fmc*hbcm)+2*(p3p6*p3p4)*(-3*
6320 . ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm+2*ffmcfmb*fmc*hbcm+3*ffmcfmb
6321 . *hbcm2)+2*p3p6*(ffmcfmb**2*fmc*hbcm3+ffmcfmb*fmb*fmc*hbcm2+
6322 . ffmcfmb*fmc*hbcm3-2*ffmcfmb*fmc2*hbcm2+2*fmc2*hbcm2)+4*(2*
6323 . ffmcfmb*fmc*hbcm*p3p5*p3p6+2*ffmcfmb*p3p4*p3p5*p3p6+fmc*hbcm*
6324 . p1p2*p3p6-fmc*hbcm*p1p3*p4p6+fmc*hbcm*p1p4*p3p6-3*fmc*hbcm*
6325 . p2p3*p4p6+2*fmc*hbcm*p2p3*p5p6+fmc*hbcm*p2p5*p3p6-fmc*hbcm*
6326 . p3p4*p5p6+fmc*hbcm*p3p5*p4p6+fmc*hbcm*p3p6*p4p5+2*hbcm2*p2p4*
6327 . p4p6-2*hbcm2*p2p4*p5p6+p1p2*p3p4*p3p6-p1p3*p3p4*p4p6+p1p4*p3p4
6328 . *p3p6-3*p2p3*p3p4*p4p6+2*p2p3*p3p4*p5p6+p2p5*p3p4*p3p6+p3p4*
6329 . p3p5*p4p6+p3p4*p3p6*p4p5))+ans6
6330 ans1=ans2+ans5
6331 ans=ccc*ans1
6332 b(6)=ans
6333 ans2=w2*((p3p5*p3p4)*(-2*ffmcfmb+2)+(p3p5*p2p3)*(-2*ffmcfmb+2)+
6334 . 2*p3p4*(-ffmcfmb*fmb*hbcm+fmb*hbcm)+2*p2p3*(-ffmcfmb*fmb*hbcm+
6335 . fmb*hbcm)+2*p3p5*(-ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm+ffmcfmb*
6336 . hbcm2)+2*(-ffmcfmb**2*fmb*hbcm3+ffmcfmb*fmb*hbcm*p1p3+ffmcfmb*
6337 . fmb*hbcm3+ffmcfmb*p1p3*p3p5+ffmcfmb*p3p5s2+fmb*hbcm*p1p2+fmb*
6338 . hbcm*p1p4+fmb*hbcm*p2p5+fmb*hbcm*p4p5+p1p2*p3p5+p1p4*p3p5+p2p5
6339 . *p3p5+p3p5*p4p5))+(p3p4*(-4*fb2*ffmcfmb+4*fb2-1)+p2p3*(-4*fb2*
6340 . ffmcfmb+4*fb2-1)+(-4*fb2*ffmcfmb**2*hbcm2+4*fb2*ffmcfmb*hbcm2+
6341 . 4*fb2*ffmcfmb*p1p3+4*fb2*ffmcfmb*p3p5+4*fb2*p1p2+4*fb2*p1p4+4*
6342 . fb2*p2p5+4*fb2*p4p5-2*ffmcfmb*hbcm2+9*fmb*hbcm+9*fmc*hbcm-8*
6343 . hbcm2+p1p3+p3p5))
6344 ans1=w11*(2*p3p4*(ffmcfmb**2*hbcm2+ffmcfmb*fmc*hbcm-ffmcfmb*
6345 . hbcm2-fmc*hbcm)+2*p2p3*(-ffmcfmb**2*hbcm2+ffmcfmb*fmc*hbcm+
6346 . ffmcfmb*hbcm2-fmc*hbcm)+2*(ffmcfmb**2*fmc*hbcm3-ffmcfmb*fmc*
6347 . hbcm*p1p3-ffmcfmb*fmc*hbcm*p3p5-ffmcfmb*fmc*hbcm3+ffmcfmb*p1p3
6348 . *p2p3-ffmcfmb*p1p3*p3p4+ffmcfmb*p2p3*p3p5-ffmcfmb*p2p3s2-
6349 . ffmcfmb*p3p4*p3p5+ffmcfmb*p3p4s2-fmc*hbcm*p1p2-fmc*hbcm*p1p4-
6350 . fmc*hbcm*p2p5-fmc*hbcm*p4p5+p1p2*p2p3-p1p2*p3p4+p1p4*p2p3-p1p4
6351 . *p3p4+p2p3*p2p5+p2p3*p4p5+p2p3s2-p2p5*p3p4-p3p4*p4p5-p3p4s2))+
6352 . w1*((p3p4*p2p3)*(2*ffmcfmb-2)+2*p2p3*(ffmcfmb*fmc*hbcm-fmc*
6353 . hbcm)+2*p3p4*(ffmcfmb**2*hbcm2+ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2-
6354 . fmc*hbcm)+2*(ffmcfmb**2*fmc*hbcm3-ffmcfmb*fmc*hbcm*p1p3-
6355 . ffmcfmb*fmc*hbcm*p3p5-ffmcfmb*fmc*hbcm3-ffmcfmb*p1p3*p3p4-
6356 . ffmcfmb*p3p4*p3p5+ffmcfmb*p3p4s2-fmc*hbcm*p1p2-fmc*hbcm*p1p4-
6357 . fmc*hbcm*p2p5-fmc*hbcm*p4p5-p1p2*p3p4-p1p4*p3p4-p2p5*p3p4-p3p4
6358 . *p4p5-p3p4s2))+ans2
6359 ans=ccc*ans1
6360 b(7)=ans
6361 ans3=(p3p5*(4*fb1*ffmcfmb*hbcm-17*hbcm)+p3p4*(-4*fb1*ffmcfmb*
6362 . hbcm+4*fb1*hbcm+hbcm)+p2p3*(-4*fb1*ffmcfmb*hbcm+4*fb1*hbcm+25*
6363 . hbcm)+p1p3*(4*fb1*ffmcfmb*hbcm+7*hbcm)+(-4*fb1*ffmcfmb**2*
6364 . hbcm3+4*fb1*ffmcfmb*hbcm3+4*fb1*hbcm*p1p2+4*fb1*hbcm*p1p4+4*
6365 . fb1*hbcm*p2p5+4*fb1*hbcm*p4p5-9*fmb*hbcm2+9*fmc*hbcm2-8*hbcm3)
6366 . )
6367 ans2=w1*(2*(p3p4*p2p3)*(ffmcfmb*hbcm-hbcm)+2*p2p3*(ffmcfmb*fmc*
6368 . hbcm2-fmc*hbcm2)+2*p3p4*(ffmcfmb**2*hbcm3+ffmcfmb*fmc*hbcm2-
6369 . ffmcfmb*hbcm3-fmc*hbcm2)+2*(ffmcfmb**2*fmc*hbcm4-ffmcfmb*fmc*
6370 . hbcm2*p1p3-ffmcfmb*fmc*hbcm2*p3p5-ffmcfmb*fmc*hbcm4-ffmcfmb*
6371 . hbcm*p1p3*p3p4-ffmcfmb*hbcm*p3p4*p3p5+ffmcfmb*hbcm*p3p4s2-fmc*
6372 . hbcm2*p1p2-fmc*hbcm2*p1p4-fmc*hbcm2*p2p5-fmc*hbcm2*p4p5-hbcm*
6373 . p1p2*p3p4-hbcm*p1p4*p3p4-hbcm*p2p5*p3p4-hbcm*p3p4*p4p5-hbcm*
6374 . p3p4s2))+w2*(2*(p3p5*p3p4)*(ffmcfmb*hbcm-hbcm)+2*(p3p5*p2p3)*(
6375 . ffmcfmb*hbcm-hbcm)+2*p3p4*(ffmcfmb*fmb*hbcm2-fmb*hbcm2)+2*p2p3
6376 . *(ffmcfmb*fmb*hbcm2-fmb*hbcm2)+2*p3p5*(ffmcfmb**2*hbcm3-
6377 . ffmcfmb*fmb*hbcm2-ffmcfmb*hbcm3)+2*(ffmcfmb**2*fmb*hbcm4-
6378 . ffmcfmb*fmb*hbcm2*p1p3-ffmcfmb*fmb*hbcm4-ffmcfmb*hbcm*p1p3*
6379 . p3p5-ffmcfmb*hbcm*p3p5s2-fmb*hbcm2*p1p2-fmb*hbcm2*p1p4-fmb*
6380 . hbcm2*p2p5-fmb*hbcm2*p4p5-hbcm*p1p2*p3p5-hbcm*p1p4*p3p5-hbcm*
6381 . p2p5*p3p5-hbcm*p3p5*p4p5))+ans3
6382 ans1=w11*(4*(p3p4*p2p3)*(ffmcfmb*hbcm-hbcm)+2*p3p4*(ffmcfmb**2*
6383 . hbcm3+ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3-fmc*hbcm2)+2*p2p3*(
6384 . ffmcfmb**2*hbcm3+ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3-fmc*hbcm2)+2*
6385 . (ffmcfmb**2*fmc*hbcm4-ffmcfmb*fmc*hbcm2*p1p3-ffmcfmb*fmc*hbcm2
6386 . *p3p5-ffmcfmb*fmc*hbcm4-ffmcfmb*hbcm*p1p3*p2p3-ffmcfmb*hbcm*
6387 . p1p3*p3p4-ffmcfmb*hbcm*p2p3*p3p5+ffmcfmb*hbcm*p2p3s2-ffmcfmb*
6388 . hbcm*p3p4*p3p5+ffmcfmb*hbcm*p3p4s2-fmc*hbcm2*p1p2-fmc*hbcm2*
6389 . p1p4-fmc*hbcm2*p2p5-fmc*hbcm2*p4p5-hbcm*p1p2*p2p3-hbcm*p1p2*
6390 . p3p4-hbcm*p1p4*p2p3-hbcm*p1p4*p3p4-hbcm*p2p3*p2p5-hbcm*p2p3*
6391 . p4p5-hbcm*p2p3s2-hbcm*p2p5*p3p4-hbcm*p3p4*p4p5-hbcm*p3p4s2))+
6392 . ans2
6393 ans=ccc*ans1
6394 b(8)=ans
6395 ans=ccc*(w1*(2*(p3p6*p3p4)*(-8*ffmcfmb*hbcm+3*hbcm)+2*p3p6*(-8*
6396 . ffmcfmb*fmc*hbcm2+3*fmc*hbcm2)+2*(-5*fmc*hbcm2*p4p6+3*fmc*
6397 . hbcm2*p5p6-5*hbcm*p3p4*p4p6+3*hbcm*p3p4*p5p6))+w2*(2*(p3p6*
6398 . p3p5)*(-8*ffmcfmb*hbcm+3*hbcm)+2*p3p6*(-8*ffmcfmb*fmb*hbcm2+3*
6399 . fmb*hbcm2)+2*(-5*fmb*hbcm2*p4p6+3*fmb*hbcm2*p5p6-5*hbcm*p3p5*
6400 . p4p6+3*hbcm*p3p5*p5p6))+w11*(2*p5p6*(2*ffmcfmb*hbcm3+3*fmc*
6401 . hbcm2)+2*p4p6*(-ffmcfmb*hbcm3-fmb*hbcm2-3*fmc*hbcm2-hbcm3)+2*(
6402 . p3p6*p3p4)*(-8*ffmcfmb*hbcm+3*hbcm)+2*(p3p6*p2p3)*(4*ffmcfmb*
6403 . hbcm-3*hbcm)+2*p3p6*(-ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2-6*
6404 . ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3+3*fmc*hbcm2)+2*(-4*ffmcfmb*
6405 . hbcm*p3p5*p3p6-2*hbcm*p1p2*p3p6+2*hbcm*p1p3*p4p6-2*hbcm*p1p4*
6406 . p3p6+hbcm*p2p3*p4p6-hbcm*p2p3*p5p6-2*hbcm*p2p5*p3p6-5*hbcm*
6407 . p3p4*p4p6+5*hbcm*p3p4*p5p6-2*hbcm*p3p5*p4p6-2*hbcm*p3p6*p4p5))
6408 . +(4*p3p6*(8*fb1*ffmcfmb*hbcm-3*fb1*hbcm+5*hbcm)+4*(5*fb1*hbcm*
6409 . p4p6-3*fb1*hbcm*p5p6)))
6410 b(9)=ans
6411 b(10)=ccc*(w1*((p3p6*p3p4)*(16*ffmcfmb-6)+2*p3p6*(8*ffmcfmb*fmc
6412 . *hbcm-3*fmc*hbcm)+2*(5*fmc*hbcm*p4p6-3*fmc*hbcm*p5p6+5*p3p4*
6413 . p4p6-3*p3p4*p5p6))+w2*((p3p6*p3p5)*(-16*ffmcfmb+6)+2*p3p6*(-8*
6414 . ffmcfmb*fmb*hbcm+3*fmb*hbcm)+2*(-5*fmb*hbcm*p4p6+3*fmb*hbcm*
6415 . p5p6-5*p3p5*p4p6+3*p3p5*p5p6))+w11*((p3p6*p3p4)*(16*ffmcfmb-6)
6416 . +(p3p6*p2p3)*(-16*ffmcfmb+6)+2*p4p6*(ffmcfmb*hbcm2-fmb*hbcm+3*
6417 . fmc*hbcm+hbcm2)+2*p3p6*(ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm+6*
6418 . ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-3*fmc*hbcm)+2*(-3*fmc*hbcm*p5p6
6419 . -5*p2p3*p4p6+3*p2p3*p5p6+5*p3p4*p4p6-3*p3p4*p5p6))+(p3p6*(-32*
6420 . fb2*ffmcfmb+12*fb2-8)+4*(-5*fb2*p4p6+3*fb2*p5p6)))
6421 b(11)=ccc*(w11*(2*p3p4*(ffmcfmb*hbcm2-hbcm2)+2*p2p3*(ffmcfmb*
6422 . hbcm2-hbcm2)+2*(ffmcfmb**2*hbcm4-ffmcfmb*hbcm2*p1p3-ffmcfmb*
6423 . hbcm2*p3p5-ffmcfmb*hbcm4-hbcm2*p1p2-hbcm2*p1p4-hbcm2*p2p5-
6424 . hbcm2*p4p5))+18*hbcm2)
6425 ans=ccc*(w1*(4*(p3p7*p3p4)*(-4*ffmcfmb*hbcm+hbcm)+4*p3p7*(-4*
6426 . ffmcfmb*fmc*hbcm2+fmc*hbcm2)+4*(-3*fmc*hbcm2*p4p7+fmc*hbcm2*
6427 . p5p7-3*hbcm*p3p4*p4p7+hbcm*p3p4*p5p7))+w2*(4*(p3p7*p3p5)*(-4*
6428 . ffmcfmb*hbcm+hbcm)+4*p3p7*(-4*ffmcfmb*fmb*hbcm2+fmb*hbcm2)+4*(
6429 . -3*fmb*hbcm2*p4p7+fmb*hbcm2*p5p7-3*hbcm*p3p5*p4p7+hbcm*p3p5*
6430 . p5p7))+w11*(2*p5p7*(ffmcfmb*hbcm3+fmc*hbcm2)+4*p4p7*(2*ffmcfmb
6431 . *hbcm3-3*fmb*hbcm2-3*hbcm3)+4*(p3p7*p3p4)*(-3*ffmcfmb*hbcm+2*
6432 . hbcm)+2*p3p7*(ffmcfmb**2*hbcm3-6*ffmcfmb*fmb*hbcm2-ffmcfmb*fmc
6433 . *hbcm2-3*ffmcfmb*hbcm3+fmc*hbcm2)+4*(3*ffmcfmb*hbcm*p1p3*p3p7+
6434 . ffmcfmb*hbcm*p2p3*p3p7-5*ffmcfmb*hbcm*p3p5*p3p7+hbcm*p1p2*p3p7
6435 . +2*hbcm*p1p3*p4p7+hbcm*p1p4*p3p7+hbcm*p2p3*p4p7-hbcm*p2p3*p5p7
6436 . +hbcm*p2p5*p3p7-hbcm*p3p4*p4p7+hbcm*p3p4*p5p7-6*hbcm*p3p5*p4p7
6437 . +hbcm*p3p7*p4p5))+(4*p3p7*(8*fb1*ffmcfmb*hbcm-2*fb1*hbcm-5*
6438 . hbcm)+8*(3*fb1*hbcm*p4p7-fb1*hbcm*p5p7)))
6439 b(12)=ans
6440 b(13)=ccc*(w11*(2*p3p4*(-ffmcfmb*hbcm+hbcm)+2*p2p3*(-ffmcfmb*
6441 . hbcm+hbcm)+2*(-ffmcfmb**2*hbcm3+ffmcfmb*hbcm*p1p3+ffmcfmb*hbcm
6442 . *p3p5+ffmcfmb*hbcm3+hbcm*p1p2+hbcm*p1p4+hbcm*p2p5+hbcm*p4p5))-
6443 . 18*hbcm)
6444 b(14)=ccc*(w1*((p3p7*p3p4)*(-16*ffmcfmb+4)+4*p3p7*(-4*ffmcfmb*
6445 . fmc*hbcm+fmc*hbcm)+4*(-3*fmc*hbcm*p4p7+fmc*hbcm*p5p7-3*p3p4*
6446 . p4p7+p3p4*p5p7))+w2*((p3p7*p3p5)*(16*ffmcfmb-4)+4*p3p7*(4*
6447 . ffmcfmb*fmb*hbcm-fmb*hbcm)+4*(3*fmb*hbcm*p4p7-fmb*hbcm*p5p7+3*
6448 . p3p5*p4p7-p3p5*p5p7))+w11*(12*p4p7*(fmb*hbcm-hbcm2)+(p3p7*p3p4
6449 . )*(-16*ffmcfmb+4)+(p3p7*p2p3)*(16*ffmcfmb-4)+2*p5p7*(ffmcfmb*
6450 . hbcm2+fmc*hbcm)+2*p3p7*(-ffmcfmb**2*hbcm2+6*ffmcfmb*fmb*hbcm-
6451 . ffmcfmb*fmc*hbcm-5*ffmcfmb*hbcm2+fmc*hbcm)+4*(3*p2p3*p4p7-p2p3
6452 . *p5p7-3*p3p4*p4p7+p3p4*p5p7))+(p3p7*(32*fb2*ffmcfmb-8*fb2+8)+8
6453 . *(3*fb2*p4p7-fb2*p5p7)))
6454 ans4=((p3p7*p3p6)*(-64*fb2*ffmcfmb+24*fb2-16)+8*p6p7*(fb1*fmb*
6455 . hbcm+fb1*fmc*hbcm-2*fb2*ffmcfmb*hbcm2-fb2*hbcm2+4*hbcm2)+8*(4*
6456 . fb2*p2p3*p6p7-4*fb2*p3p4*p6p7-2*fb2*p3p6*p4p7+2*fb2*p3p6*p5p7-
6457 . 3*fb2*p3p7*p4p6+fb2*p3p7*p5p6))
6458 ans3=w11*(4*(p4p6*p3p7)*(-fmb*hbcm+2*fmc*hbcm)+(p3p7*p3p6*p3p4)
6459 . *(32*ffmcfmb-12)+(p3p7*p3p6*p2p3)*(-32*ffmcfmb+12)+4*(p5p6*
6460 . p3p7)*(ffmcfmb*hbcm2-2*fmc*hbcm)+4*(p5p7*p3p6)*(-2*ffmcfmb*
6461 . hbcm2-fmc*hbcm)+4*(p4p7*p3p6)*(-3*ffmcfmb*hbcm2-4*fmb*hbcm+2*
6462 . hbcm2)+4*(p6p7*p3p4)*(3*ffmcfmb*hbcm2-fmb*hbcm+fmc*hbcm)+4*(
6463 . p6p7*p2p3)*(-ffmcfmb*hbcm2+fmb*hbcm-fmc*hbcm-2*hbcm2)+2*p6p7*(
6464 . 3*ffmcfmb**2*hbcm4-ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*hbcm3-ffmcfmb
6465 . *hbcm4-fmb*fmc*hbcm2+fmc*hbcm3-4*fmc2*hbcm2+8*p2p3s2+8*p3p4s2)
6466 . +4*(p3p7*p3p6)*(2*ffmcfmb**2*hbcm2-5*ffmcfmb*fmb*hbcm+5*
6467 . ffmcfmb*fmc*hbcm-3*fmc*hbcm)+4*(-ffmcfmb*hbcm2*p1p3*p6p7-
6468 . ffmcfmb*hbcm2*p3p5*p6p7-hbcm2*p1p2*p6p7-hbcm2*p1p4*p6p7+4*
6469 . hbcm2*p2p4*p6p7-hbcm2*p2p5*p6p7-hbcm2*p4p5*p6p7-3*hbcm2*p4p6*
6470 . p4p7-hbcm2*p4p6*p5p7+2*hbcm2*p4p7*p5p6-8*p2p3*p3p4*p6p7-2*p2p3
6471 . *p3p6*p4p7+2*p2p3*p3p6*p5p7-3*p2p3*p3p7*p4p6+p2p3*p3p7*p5p6+2*
6472 . p3p4*p3p6*p4p7-2*p3p4*p3p6*p5p7+3*p3p4*p3p7*p4p6-p3p4*p3p7*
6473 . p5p6))+ans4
6474 ans2=w2*(4*(p6p7*p3p5)*(-fmb*hbcm-fmc*hbcm-hbcm2)+(p3p7*p3p6*
6475 . p3p5)*(-32*ffmcfmb+12)+4*(p5p6*p3p7)*(4*ffmcfmb*hbcm2+fmb*hbcm
6476 . -2*hbcm2)+8*(p5p7*p3p6)*(-2*ffmcfmb*hbcm2+fmb*hbcm+hbcm2)+4*
6477 . p6p7*(-2*ffmcfmb*fmb*hbcm3-fmb*fmc*hbcm2-fmb*hbcm3-fmb2*hbcm2)
6478 . +4*(p3p7*p3p6)*(-8*ffmcfmb*fmb*hbcm+3*fmb*hbcm)+4*(4*fmb*hbcm*
6479 . p2p3*p6p7-4*fmb*hbcm*p3p4*p6p7-2*fmb*hbcm*p3p6*p4p7-3*fmb*hbcm
6480 . *p3p7*p4p6+2*hbcm2*p1p5*p6p7-2*hbcm2*p2p5*p6p7+2*hbcm2*p4p5*
6481 . p6p7-2*hbcm2*p4p6*p5p7+2*hbcm2*p4p7*p5p6+4*p2p3*p3p5*p6p7-4*
6482 . p3p4*p3p5*p6p7-2*p3p5*p3p6*p4p7+2*p3p5*p3p6*p5p7-3*p3p5*p3p7*
6483 . p4p6+p3p5*p3p7*p5p6))+ans3
6484 ans1=w1*(4*(p6p7*p3p4)*(-fmb*hbcm+3*fmc*hbcm+hbcm2)+(p3p7*p3p6*
6485 . p3p4)*(32*ffmcfmb-12)+4*(p4p6*p3p7)*(4*ffmcfmb*hbcm2+3*fmc*
6486 . hbcm)+4*(p4p7*p3p6)*(-4*ffmcfmb*hbcm2+2*fmc*hbcm+hbcm2)+4*p6p7
6487 . *(2*ffmcfmb*fmc*hbcm3-fmb*fmc*hbcm2+fmc*hbcm3-3*fmc2*hbcm2+4*
6488 . p3p4s2)+4*(p3p7*p3p6)*(8*ffmcfmb*fmc*hbcm-3*fmc*hbcm)+4*(-4*
6489 . fmc*hbcm*p2p3*p6p7-2*fmc*hbcm*p3p6*p5p7-fmc*hbcm*p3p7*p5p6+4*
6490 . hbcm2*p2p4*p6p7+hbcm2*p4p6*p4p7+hbcm2*p4p7*p5p6-4*p2p3*p3p4*
6491 . p6p7+2*p3p4*p3p6*p4p7-2*p3p4*p3p6*p5p7+3*p3p4*p3p7*p4p6-p3p4*
6492 . p3p7*p5p6))+ans2
6493 ans=ccc*ans1
6494 b(15)=ans
6495 ans2=8*p6p7*(fb1*hbcm-fb2*fmb+fb2*fmc+4*hbcm)
6496 ans1=w2*(4*p6p7*(fmb*fmc*hbcm-fmb*hbcm2-fmb2*hbcm)+8*(p5p6*p3p7
6497 . )*(2*ffmcfmb*hbcm-hbcm)+8*(p5p7*p3p6)*(-2*ffmcfmb*hbcm+hbcm)+4
6498 . *(p6p7*p3p5)*(2*ffmcfmb*hbcm-fmb+fmc-hbcm)+8*(hbcm*p1p5*p6p7-
6499 . hbcm*p2p5*p6p7+hbcm*p4p5*p6p7-hbcm*p4p6*p5p7+hbcm*p4p7*p5p6))+
6500 . w1*(4*p6p7*(fmb*fmc*hbcm-fmc*hbcm2-3*fmc2*hbcm)+4*(p4p7*p3p6)*
6501 . (-4*ffmcfmb*hbcm+hbcm)+4*(p6p7*p3p4)*(-2*ffmcfmb*hbcm+fmb-fmc-
6502 . hbcm)+4*(4*ffmcfmb*hbcm*p3p7*p4p6+4*hbcm*p2p4*p6p7+hbcm*p4p6*
6503 . p4p7+hbcm*p4p7*p5p6))+w11*(4*(p4p6*p3p7)*(-2*ffmcfmb*hbcm-hbcm
6504 . )+4*(p6p7*p3p4)*(-ffmcfmb*hbcm+fmb-fmc-2*hbcm)+4*(p6p7*p2p3)*(
6505 . 3*ffmcfmb*hbcm-fmb+fmc)+2*p6p7*(ffmcfmb**2*hbcm3+ffmcfmb*fmb*
6506 . hbcm2-ffmcfmb*fmc*hbcm2-3*ffmcfmb*hbcm3+fmb*fmc*hbcm-fmc*hbcm2
6507 . -4*fmc2*hbcm)+4*(-ffmcfmb*hbcm*p1p3*p6p7-ffmcfmb*hbcm*p3p5*
6508 . p6p7-3*ffmcfmb*hbcm*p3p6*p3p7-5*ffmcfmb*hbcm*p3p6*p4p7-ffmcfmb
6509 . *hbcm*p3p6*p5p7+2*ffmcfmb*hbcm*p3p7*p5p6-hbcm*p1p2*p6p7-hbcm*
6510 . p1p4*p6p7+4*hbcm*p2p4*p6p7-hbcm*p2p5*p6p7-hbcm*p4p5*p6p7-5*
6511 . hbcm*p4p6*p4p7-hbcm*p4p6*p5p7+4*hbcm*p4p7*p5p6))+ans2
6512 ans=ccc*ans1
6513 b(16)=ans
6514 do 200 n=1,16
6515 c(n,1)=c(n,1)+1.0d0*b(n)
6516 200 continue
6517 return
6518 end
6519
6520 subroutine amp34_3p0(cc)
6521 implicit double precision(a-h,o-z)
6522 implicit integer (i-n)
6523 dimension b(16)
6524 #include "inclcon.h"
6525 #include "inclppp.h"
6526 #include "inclamp.h"
6527 do 100 n=1,16
6528 b(n)=0.0d0
6529 100 continue
6530 ccc=cc/((2*p1p2)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*
6531 . p3p5+fmb2+hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2)
6532 . )
6533 ans3=(8*(p6p7*p3p4)*(fb2*fmb-fb2*fmc)+4*(p6p7*p3p5)*(-2*fb1*
6534 . hbcm-3*hbcm)+2*p6p7*(-2*fb1*fmb2*hbcm+2*fb1*fmc2*hbcm-2*fb1*
6535 . hbcm3+4*fb2*ffmcfmb*fmb*hbcm2-4*fb2*ffmcfmb*fmc*hbcm2-5*fmb*
6536 . hbcm2+5*fmc*hbcm2-3*hbcm3)+2*(p6p7*p2p3)*(-12*fb1*ffmcfmb*hbcm
6537 . +12*fb1*hbcm-12*fb2*fmb+16*fb2*fmc+9*hbcm)+2*(p6p7*p1p3)*(12*
6538 . fb1*ffmcfmb*hbcm-4*fb1*hbcm-4*fb2*fmb+3*hbcm)+8*(2*fb1*hbcm*
6539 . p1p2*p6p7+fb1*hbcm*p1p4*p6p7-fb1*hbcm*p1p5*p6p7-fb1*hbcm*p2p4*
6540 . p6p7-3*fb1*hbcm*p2p5*p6p7))
6541 ans2=w1*(4*(p6p7*p4p5)*(-fmb*hbcm2+fmc*hbcm2-hbcm3)+2*(p6p7*
6542 . p3p4)*(2*ffmcfmb*hbcm3-2*fmb*fmc*hbcm-2*fmb*hbcm2+fmb2*hbcm+2*
6543 . fmc*hbcm2+fmc2*hbcm-hbcm3)+4*(p6p7*p2p4)*(ffmcfmb*hbcm3-2*fmb*
6544 . hbcm2+3*fmc*hbcm2-2*hbcm3)+4*(p6p7*p1p4)*(-ffmcfmb*hbcm3-fmc*
6545 . hbcm2)+4*(p6p7*p3p5*p3p4)*(2*ffmcfmb*hbcm-hbcm)+4*(p6p7*p3p4*
6546 . p2p3)*(-3*ffmcfmb*hbcm+3*fmb-4*fmc+hbcm)+4*(p6p7*p3p4*p1p3)*(-
6547 . ffmcfmb*hbcm+fmb+hbcm)+4*(p6p7*p2p3)*(ffmcfmb*fmc*hbcm2+3*fmb*
6548 . fmc*hbcm-2*fmc*hbcm2-4*fmc2*hbcm)+4*(p6p7*p1p3)*(-ffmcfmb*fmc*
6549 . hbcm2+fmb*fmc*hbcm)+2*p6p7*(-2*ffmcfmb*fmb*fmc*hbcm3+2*ffmcfmb
6550 . *fmc2*hbcm3-2*fmb*p3p4s2+fmb2*fmc*hbcm2+fmc*hbcm4+2*fmc*p3p4s2
6551 . -fmc3*hbcm2)+4*(-2*fmc*hbcm2*p1p2*p6p7+4*fmc*hbcm2*p2p5*p6p7+
6552 . fmc*hbcm2*p3p5*p6p7-2*hbcm*p1p2*p3p4*p6p7+4*hbcm*p1p3*p2p4*
6553 . p6p7+2*hbcm*p1p3*p4p5*p6p7-hbcm*p1p4*p3p4*p6p7-hbcm*p1p5*p3p4*
6554 . p6p7+4*hbcm*p2p3*p2p4*p6p7+2*hbcm*p2p3*p4p5*p6p7+hbcm*p2p4*
6555 . p3p4*p6p7-4*hbcm*p2p4*p3p5*p6p7+5*hbcm*p2p5*p3p4*p6p7-2*hbcm*
6556 . p3p5*p4p5*p6p7))+ans3
6557 ans1=w2*(4*(p6p7*p3p5*p3p4)*(fmb-fmc)+4*(p6p7*p4p5)*(-fmb*hbcm2
6558 . +fmc*hbcm2-hbcm3)+4*(p6p7*p3p4)*(-fmb*fmc*hbcm+fmb2*hbcm)+2*(
6559 . p6p7*p3p5)*(-2*ffmcfmb*hbcm3+2*fmb*hbcm2+fmb2*hbcm-fmc2*hbcm+
6560 . hbcm3)+4*(p6p7*p2p5)*(ffmcfmb*hbcm3+fmb*hbcm2+2*fmc*hbcm2-3*
6561 . hbcm3)+4*(p6p7*p1p5)*(-ffmcfmb*hbcm3+fmb*hbcm2+hbcm3)+4*(p6p7*
6562 . p3p5*p2p3)*(3*ffmcfmb*hbcm-3*fmb+4*fmc-hbcm)+4*(p6p7*p3p5*p1p3
6563 . )*(ffmcfmb*hbcm-fmb-hbcm)+4*(p6p7*p2p3)*(ffmcfmb*fmb*hbcm2+4*
6564 . fmb*fmc*hbcm-2*fmb*hbcm2-3*fmb2*hbcm)+4*(p6p7*p1p3)*(-ffmcfmb*
6565 . fmb*hbcm2-fmb2*hbcm)+2*p6p7*(-2*ffmcfmb*fmb*fmc*hbcm3+2*
6566 . ffmcfmb*fmb2*hbcm3-4*ffmcfmb*hbcm*p3p5s2-fmb*fmc2*hbcm2+fmb*
6567 . hbcm4+fmb3*hbcm2+2*hbcm*p3p5s2)+4*(-2*fmb*hbcm2*p1p2*p6p7-2*
6568 . hbcm*p1p2*p3p5*p6p7+hbcm*p1p4*p3p5*p6p7+4*hbcm*p1p5*p2p3*p6p7+
6569 . hbcm*p1p5*p3p5*p6p7+4*hbcm*p2p3*p2p5*p6p7+4*hbcm*p2p3*p4p5*
6570 . p6p7-hbcm*p2p4*p3p5*p6p7-hbcm*p2p5*p3p5*p6p7-2*hbcm*p3p5*p4p5*
6571 . p6p7))+ans2
6572 ans=ccc*ans1
6573 b(1)=ans
6574 ans2=w1*(4*(p6p7*p4p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)+(p6p7*p3p4*
6575 . p2p3)*(-8*ffmcfmb+12)+(p6p7*p3p4*p1p3)*(8*ffmcfmb-4)+4*(p6p7*
6576 . p2p4)*(ffmcfmb*hbcm2-2*fmb*hbcm+2*fmc*hbcm+2*hbcm2)+2*p6p7*(2*
6577 . ffmcfmb*fmc*hbcm3-fmb2*fmc*hbcm-fmc*hbcm3+fmc3*hbcm+2*p3p4s2)+
6578 . 2*(p6p7*p3p4)*(2*ffmcfmb*fmb*hbcm+2*ffmcfmb*fmc*hbcm-2*fmb*
6579 . hbcm-fmb2+fmc2+hbcm2)+4*(-ffmcfmb*hbcm2*p1p4*p6p7-2*fmc*hbcm*
6580 . p1p2*p6p7+fmc*hbcm*p1p5*p6p7+2*fmc*hbcm*p2p3*p6p7-fmc*hbcm*
6581 . p2p5*p6p7-fmc*hbcm*p3p5*p6p7-2*p1p2*p3p4*p6p7+4*p2p4*p3p4*p6p7
6582 . -p3p4*p3p5*p6p7))+((p6p7*p2p3)*(16*fb2*ffmcfmb-24*fb2+4)+(p6p7
6583 . *p1p3)*(-16*fb2*ffmcfmb+8*fb2-4)+2*p6p7*(-4*fb2*ffmcfmb*hbcm2+
6584 . 2*fb2*fmb2-2*fb2*fmc2+2*fb2*hbcm2-3*fmb*hbcm-3*fmc*hbcm+5*
6585 . hbcm2)+8*(2*fb2*p1p2*p6p7-4*fb2*p2p4*p6p7-fb2*p3p4*p6p7+fb2*
6586 . p3p5*p6p7))
6587 ans1=w2*(4*(p6p7*p4p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)+(p6p7*p3p5*
6588 . p2p3)*(8*ffmcfmb-12)+(p6p7*p3p5*p1p3)*(-8*ffmcfmb+4)+4*(p6p7*
6589 . p2p5)*(-ffmcfmb*hbcm2-2*fmb*hbcm-2*fmc*hbcm+3*hbcm2)+4*(p6p7*
6590 . p1p5)*(ffmcfmb*hbcm2-hbcm2)+2*p6p7*(-2*ffmcfmb*fmb*hbcm3-fmb*
6591 . fmc2*hbcm+fmb*hbcm3+fmb3*hbcm+2*p3p5s2)+2*(p6p7*p3p5)*(-2*
6592 . ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*hbcm+2*fmb*hbcm+fmb2-fmc2+hbcm2
6593 . )+4*(2*fmb*hbcm*p1p2*p6p7+fmb*hbcm*p1p4*p6p7-2*fmb*hbcm*p2p3*
6594 . p6p7-5*fmb*hbcm*p2p4*p6p7-fmb*hbcm*p3p4*p6p7+2*p1p2*p3p5*p6p7-
6595 . 4*p2p4*p3p5*p6p7-p3p4*p3p5*p6p7))+ans2
6596 ans=ccc*ans1
6597 b(4)=ans
6598 b(15)=ccc*(w1*(12*(p6p7*p3p4)*(fmb*hbcm-fmc*hbcm-hbcm2)+4*p6p7*
6599 . (-2*ffmcfmb*fmc*hbcm3+3*fmb*fmc*hbcm2-fmc*hbcm3+3*fmc2*hbcm2-6
6600 . *p3p4s2)+8*(fmc*hbcm*p1p3*p6p7+fmc*hbcm*p2p3*p6p7+fmc*hbcm*
6601 . p3p5*p6p7-hbcm2*p1p4*p6p7-hbcm2*p2p4*p6p7-hbcm2*p4p5*p6p7+p1p3
6602 . *p3p4*p6p7+p2p3*p3p4*p6p7+p3p4*p3p5*p6p7))+w2*(4*(p6p7*p3p5)*(
6603 . fmb*hbcm+3*fmc*hbcm+hbcm2)+4*p6p7*(2*ffmcfmb*fmb*hbcm3+3*fmb*
6604 . fmc*hbcm2+fmb*hbcm3+3*fmb2*hbcm2-2*p3p5s2)+8*(-fmb*hbcm*p1p3*
6605 . p6p7-fmb*hbcm*p2p3*p6p7+3*fmb*hbcm*p3p4*p6p7-hbcm2*p1p5*p6p7-
6606 . hbcm2*p2p5*p6p7-hbcm2*p4p5*p6p7-p1p3*p3p5*p6p7-p2p3*p3p5*p6p7+
6607 . 3*p3p4*p3p5*p6p7))+(4*p6p7*(-6*fb1*fmb*hbcm-6*fb1*fmc*hbcm+4*
6608 . fb2*ffmcfmb*hbcm2+2*fb2*hbcm2-5*hbcm2)+16*(-fb2*p1p3*p6p7-fb2*
6609 . p2p3*p6p7+3*fb2*p3p4*p6p7-fb2*p3p5*p6p7)))
6610 b(16)=ccc*(w2*(12*p6p7*(-fmb*fmc*hbcm+fmb*hbcm2+fmb2*hbcm)+4*(
6611 . p6p7*p3p5)*(-2*ffmcfmb*hbcm+3*fmb-3*fmc+3*hbcm)+8*(-hbcm*p1p5*
6612 . p6p7-hbcm*p2p5*p6p7-hbcm*p4p5*p6p7))+w1*(12*p6p7*(-fmb*fmc*
6613 . hbcm+fmc*hbcm2+fmc2*hbcm)+4*(p6p7*p3p4)*(2*ffmcfmb*hbcm-3*fmb+
6614 . 3*fmc+hbcm)+8*(-hbcm*p1p4*p6p7-hbcm*p2p4*p6p7-hbcm*p4p5*p6p7))
6615 . +12*p6p7*(-2*fb1*hbcm+2*fb2*fmb-2*fb2*fmc-hbcm))
6616 do 200 n=1,16
6617 c(n,1)=c(n,1)-0.8181818181818182d0*b(n)
6618 c(n,2)=c(n,2)+0.9833321660356334d0*b(n)
6619 200 continue
6620 return
6621 end
6622
6623 subroutine amp33_3p0(cc)
6624 implicit double precision(a-h,o-z)
6625 implicit integer (i-n)
6626 dimension b(16)
6627 #include "inclcon.h"
6628 #include "inclppp.h"
6629 #include "inclamp.h"
6630 do 100 n=1,16
6631 b(n)=0.0d0
6632 100 continue
6633 ccc=cc/((ffmcfmb**2*hbcm2-2*ffmcfmb*p2p3+2*ffmcfmb*p3p4+fmc2-2*
6634 . p2p4)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2)*(ffmcfmb**2*hbcm2
6635 . -2*ffmcfmb*hbcm2+2*ffmcfmb*p1p3-fmb2+hbcm2-2*p1p3))
6636 ans4=8*(p3p7*p3p6*p2p3)*(-2*ffmcfmb**2*hbcm-2*ffmcfmb*fmc+5*
6637 . ffmcfmb*hbcm)+4*p6p7*(ffmcfmb**2*fmc*hbcm4+2*ffmcfmb*hbcm*
6638 . p2p3s2+2*ffmcfmb*hbcm*p3p4s2+2*fmc*p2p3s2+2*fmc*p3p4s2+2*fmc2*
6639 . hbcm3-fmc3*hbcm2-2*hbcm*p3p4s2)+8*(ffmcfmb*fmc*hbcm2*p3p6*p5p7
6640 . -2*ffmcfmb*hbcm*p1p2*p3p6*p3p7+2*ffmcfmb*hbcm*p1p3*p3p6*p4p7-4
6641 . *ffmcfmb*hbcm*p1p3*p3p7*p4p6+ffmcfmb*hbcm*p2p3*p3p6*p5p7-2*
6642 . ffmcfmb*hbcm*p2p4*p3p6*p3p7+2*ffmcfmb*hbcm*p2p5*p3p6*p3p7+
6643 . ffmcfmb*hbcm*p3p4*p3p6*p5p7-2*ffmcfmb*hbcm*p3p5*p3p6*p4p7+4*
6644 . ffmcfmb*hbcm*p3p5*p3p7*p4p6+fmc*hbcm2*p1p4*p6p7+fmc*hbcm2*p4p6
6645 . *p5p7-fmc*p1p3*p3p4*p6p7-fmc2*hbcm*p1p3*p6p7-2*hbcm*p1p2*p3p4*
6646 . p6p7-4*hbcm*p1p2*p3p6*p4p7+2*hbcm*p1p2*p3p7*p4p6+2*hbcm*p1p3*
6647 . p2p4*p6p7-2*hbcm*p1p3*p4p6*p4p7+hbcm*p1p4*p2p3*p6p7+hbcm*p1p4*
6648 . p3p4*p6p7+2*hbcm*p2p3*p2p4*p6p7+hbcm*p2p3*p2p5*p6p7-hbcm*p2p3*
6649 . p3p7*p4p6+3*hbcm*p2p3*p4p6*p4p7+hbcm*p2p3*p4p6*p5p7-2*hbcm*
6650 . p2p4*p3p5*p6p7-2*hbcm*p2p4*p3p7*p4p6+3*hbcm*p2p5*p3p4*p6p7+4*
6651 . hbcm*p2p5*p3p6*p4p7-2*hbcm*p2p5*p3p7*p4p6+3*hbcm*p3p4*p4p6*
6652 . p4p7+hbcm*p3p4*p4p6*p5p7+2*hbcm*p3p5*p4p6*p4p7)
6653 ans3=8*(p4p7*p4p6)*(-2*ffmcfmb*hbcm3+fmc*hbcm2+2*hbcm3)+8*(p6p7
6654 . *p2p5)*(ffmcfmb*hbcm3+2*fmc*hbcm2)+8*(p6p7*p2p4)*(ffmcfmb*
6655 . hbcm3+fmc*hbcm2-2*hbcm3)+8*(p6p7*p1p2)*(-ffmcfmb*hbcm3-fmc*
6656 . hbcm2)+8*(p4p6*p3p7*p3p4)*(4*ffmcfmb*hbcm+hbcm)+8*(p4p7*p3p6*
6657 . p3p4)*(ffmcfmb*hbcm+2*fmc+2*hbcm)+8*(p6p7*p3p5*p3p4)*(ffmcfmb*
6658 . hbcm+fmc)+8*(p4p7*p3p6*p2p3)*(ffmcfmb*hbcm-2*fmc+6*hbcm)+8*(
6659 . p6p7*p3p5*p2p3)*(-ffmcfmb*hbcm-fmc)+8*(p6p7*p3p4*p2p3)*(-2*
6660 . ffmcfmb*hbcm-2*fmc+hbcm)+8*(p6p7*p2p3*p1p3)*(2*ffmcfmb*hbcm+
6661 . fmc)+8*(p4p7*p3p6)*(ffmcfmb*fmc*hbcm2-2*ffmcfmb*hbcm3+2*fmc*
6662 . hbcm2+2*fmc2*hbcm)+8*(p3p7*p3p6)*(3*ffmcfmb*fmc*hbcm2+2*
6663 . ffmcfmb*fmc2*hbcm)+8*(p6p7*p3p5)*(ffmcfmb*fmc*hbcm2+fmc2*hbcm)
6664 . +8*(p4p6*p3p7)*(-2*ffmcfmb**2*hbcm3+4*ffmcfmb*hbcm3+fmc*hbcm2)
6665 . +4*(p6p7*p3p4)*(ffmcfmb**2*hbcm3+2*ffmcfmb*fmc*hbcm2+fmc2*hbcm
6666 . )+4*(p6p7*p2p3)*(ffmcfmb**2*hbcm3-2*ffmcfmb*fmc*hbcm2-2*
6667 . ffmcfmb*hbcm3-3*fmc2*hbcm)+8*(p3p7*p3p6*p3p4)*(2*ffmcfmb**2*
6668 . hbcm+2*ffmcfmb*fmc+3*ffmcfmb*hbcm)+ans4
6669 ans2=w11*ans3
6670 ans7=8*(ffmcfmb*fmc*hbcm2*p3p6*p5p7+2*ffmcfmb*hbcm*p1p3*p3p6*
6671 . p4p7-4*ffmcfmb*hbcm*p1p3*p3p7*p4p6+2*ffmcfmb*hbcm*p2p3*p3p6*
6672 . p4p7-4*ffmcfmb*hbcm*p2p3*p3p7*p4p6+ffmcfmb*hbcm*p3p4*p3p6*p5p7
6673 . -2*ffmcfmb*hbcm*p3p5*p3p6*p4p7+4*ffmcfmb*hbcm*p3p5*p3p7*p4p6+
6674 . fmc*hbcm2*p1p4*p6p7+fmc*hbcm2*p2p5*p6p7+fmc*hbcm2*p4p6*p5p7-
6675 . fmc*p1p3*p3p4*p6p7-fmc2*hbcm*p1p3*p6p7-2*hbcm*p1p3*p4p6*p4p7+
6676 . hbcm*p1p4*p3p4*p6p7-2*hbcm*p2p3*p4p6*p4p7+hbcm*p2p5*p3p4*p6p7+
6677 . 3*hbcm*p3p4*p4p6*p4p7+hbcm*p3p4*p4p6*p5p7+2*hbcm*p3p5*p4p6*
6678 . p4p7)
6679 ans6=8*(p4p7*p4p6)*(-2*ffmcfmb*hbcm3+fmc*hbcm2+2*hbcm3)+8*(p4p6
6680 . *p3p7*p3p4)*(4*ffmcfmb*hbcm+hbcm)+8*(p4p7*p3p6*p3p4)*(ffmcfmb*
6681 . hbcm+2*fmc+2*hbcm)+8*(p6p7*p3p5*p3p4)*(ffmcfmb*hbcm+fmc)+8*(
6682 . p6p7*p3p4*p2p3)*(-ffmcfmb*hbcm-fmc)+8*(p4p7*p3p6)*(ffmcfmb*fmc
6683 . *hbcm2-2*ffmcfmb*hbcm3+2*fmc*hbcm2+2*fmc2*hbcm)+8*(p3p7*p3p6)*
6684 . (3*ffmcfmb*fmc*hbcm2+2*ffmcfmb*fmc2*hbcm)+8*(p6p7*p3p5)*(
6685 . ffmcfmb*fmc*hbcm2+fmc2*hbcm)+8*(p6p7*p2p3)*(-ffmcfmb*fmc*hbcm2
6686 . -fmc2*hbcm)+8*(p4p6*p3p7)*(-2*ffmcfmb**2*hbcm3+4*ffmcfmb*hbcm3
6687 . +fmc*hbcm2)+4*(p6p7*p3p4)*(ffmcfmb**2*hbcm3+2*ffmcfmb*fmc*
6688 . hbcm2+fmc2*hbcm)+8*(p3p7*p3p6*p3p4)*(2*ffmcfmb**2*hbcm+2*
6689 . ffmcfmb*fmc+3*ffmcfmb*hbcm)+4*p6p7*(ffmcfmb**2*fmc*hbcm4+2*
6690 . ffmcfmb*hbcm*p3p4s2+2*fmc*p3p4s2+2*fmc2*hbcm3-fmc3*hbcm2-2*
6691 . hbcm*p3p4s2)+ans7
6692 ans5=w1*ans6
6693 ans10=8*(p3p7*p3p6)*(-ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*fmc*hbcm-
6694 . ffmcfmb*fmb*hbcm2-ffmcfmb*fmb2*hbcm+ffmcfmb*fmc*hbcm2-ffmcfmb*
6695 . fmc2*hbcm+ffmcfmb*hbcm3-fmc*hbcm2+fmc2*hbcm)+8*(p6p7*p3p5)*(-
6696 . ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+ffmcfmb*
6697 . hbcm3+fmb*fmc*hbcm-fmc*hbcm2)+8*(p6p7*p2p3)*(ffmcfmb**2*hbcm3+
6698 . ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3-fmb*fmc*hbcm
6699 . +fmc*hbcm2)+4*(p6p7*p1p3)*(ffmcfmb**2*hbcm3-2*ffmcfmb*hbcm3-2*
6700 . fmb*fmc*hbcm+2*fmc*hbcm2+fmc2*hbcm)+8*(p3p7*p3p6*p1p3)*(2*
6701 . ffmcfmb**2*hbcm+2*ffmcfmb*fmc-3*ffmcfmb*hbcm)+4*p6p7*(-ffmcfmb
6702 . **2*fmb*hbcm4+ffmcfmb**2*fmc*hbcm4-ffmcfmb**2*hbcm5-ffmcfmb*
6703 . fmb2*hbcm3+ffmcfmb*fmc2*hbcm3+ffmcfmb*hbcm5+2*fmb*fmc*hbcm3+
6704 . fmb*fmc2*hbcm2-fmb2*fmc*hbcm2-fmc*hbcm4-2*fmc*p1p3s2-fmc2*
6705 . hbcm3)+8*(-ffmcfmb*hbcm*p1p3*p3p6*p5p7-hbcm*p1p3*p1p4*p6p7-
6706 . hbcm*p1p3*p2p5*p6p7-hbcm*p1p3*p4p6*p4p7-hbcm*p1p3*p4p6*p5p7)
6707 ans9=8*(p5p7*p4p6)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+8*(p4p7*
6708 . p4p6)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+8*(p6p7*p2p5)*(-ffmcfmb
6709 . *hbcm3-fmb*hbcm2+hbcm3)+8*(p6p7*p1p4)*(-ffmcfmb*hbcm3-fmb*
6710 . hbcm2+hbcm3)+16*(p4p7*p3p6*p3p5)*(-ffmcfmb*hbcm+hbcm)+16*(p5p7
6711 . *p3p6*p3p4)*(ffmcfmb*hbcm-hbcm)+16*(p3p7*p3p6*p2p5)*(ffmcfmb*
6712 . hbcm-hbcm)+32*(p5p7*p3p6*p2p3)*(-ffmcfmb*hbcm+hbcm)+16*(p4p7*
6713 . p3p6*p2p3)*(ffmcfmb*hbcm-hbcm)+16*(p3p7*p3p6*p1p4)*(ffmcfmb*
6714 . hbcm-hbcm)+8*(p4p6*p3p7*p1p3)*(-2*ffmcfmb*hbcm+hbcm)+8*(p4p7*
6715 . p3p6*p1p3)*(3*ffmcfmb*hbcm+2*fmc-4*hbcm)+8*(p6p7*p3p5*p1p3)*(-
6716 . ffmcfmb*hbcm+fmc)+8*(p6p7*p3p4*p1p3)*(ffmcfmb*hbcm+fmc-hbcm)+8
6717 . *(p6p7*p2p3*p1p3)*(ffmcfmb*hbcm-fmc)+8*(p4p7*p3p6)*(-ffmcfmb*
6718 . fmb*hbcm2+ffmcfmb*fmc*hbcm2-2*ffmcfmb*hbcm3+2*fmb*fmc*hbcm-2*
6719 . fmb2*hbcm-fmc*hbcm2+2*hbcm3)+8*(p6p7*p3p4)*(-ffmcfmb*fmb*hbcm2
6720 . +ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm+fmb*hbcm2-fmb2*hbcm-fmc*hbcm2)
6721 . +8*(p4p6*p3p7)*(-ffmcfmb**2*hbcm3+ffmcfmb*hbcm3-fmb*hbcm2+fmb2
6722 . *hbcm)+8*(p5p7*p3p6)*(ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2-
6723 . ffmcfmb*hbcm3)+ans10
6724 ans8=w13*ans9
6725 ans11=(8*(p4p6*p3p7)*(-2*fb1*hbcm+3*hbcm)+4*(p5p7*p3p6)*(-4*fb1
6726 . *ffmcfmb*hbcm+5*hbcm)+4*(p4p7*p3p6)*(4*fb1*ffmcfmb*hbcm-8*fb1*
6727 . hbcm-8*fb2*fmc-5*hbcm)+4*(p6p7*p3p5)*(-4*fb1*ffmcfmb*hbcm-4*
6728 . fb2*fmc+5*hbcm)+4*(p6p7*p3p4)*(-4*fb1*ffmcfmb*hbcm+4*fb1*hbcm-
6729 . 4*fb2*fmc-hbcm)+4*(p6p7*p2p3)*(4*fb1*ffmcfmb*hbcm+4*fb2*fmc-5*
6730 . hbcm)+4*p6p7*(-2*fb1*ffmcfmb**2*hbcm3+2*fb1*fmc2*hbcm-4*fb2*
6731 . fmc*hbcm2+2*ffmcfmb*hbcm3+3*fmb*hbcm2-fmc*hbcm2)+4*(p3p7*p3p6)
6732 . *(8*fb1*ffmcfmb**2*hbcm-12*fb1*ffmcfmb*hbcm-8*fb2*ffmcfmb*fmc-
6733 . 8*ffmcfmb*hbcm-2*fmc+9*hbcm)+16*(-fb1*hbcm*p1p4*p6p7-fb1*hbcm*
6734 . p2p5*p6p7-fb1*hbcm*p4p6*p4p7-fb1*hbcm*p4p6*p5p7+fb2*fmc*p1p3*
6735 . p6p7))
6736 ans1=ans2+ans5+ans8+ans11
6737 ans=ccc*ans1
6738 b(1)=ans
6739 ans3=(2*p4p7*(4*fb1*ffmcfmb*hbcm-8*fb2*fmb+12*fb2*fmc+hbcm)+2*
6740 . p3p7*(4*fb1*ffmcfmb*hbcm-8*fb2*ffmcfmb*fmb+8*fb2*ffmcfmb*fmc+4
6741 . *fb2*fmc-2*fmb+2*fmc-5*hbcm)-12*hbcm*p5p7)
6742 ans2=w1*(4*(p4p7*p3p4)*(-ffmcfmb*hbcm+2*fmb-3*fmc-2*hbcm)+4*(
6743 . p3p7*p3p4)*(2*ffmcfmb*fmb-2*ffmcfmb*fmc-5*ffmcfmb*hbcm-fmc)+4*
6744 . p4p7*(-ffmcfmb**2*hbcm3-3*ffmcfmb*fmc*hbcm2+2*ffmcfmb*hbcm3+2*
6745 . fmb*fmc*hbcm-4*fmc2*hbcm)+4*p3p7*(-2*ffmcfmb**2*fmc*hbcm2+2*
6746 . ffmcfmb*fmb*fmc*hbcm-ffmcfmb*fmc*hbcm2-4*ffmcfmb*fmc2*hbcm-
6747 . fmc2*hbcm)+8*(-ffmcfmb*hbcm*p1p3*p4p7+2*ffmcfmb*hbcm*p1p4*p3p7
6748 . -ffmcfmb*hbcm*p3p4*p5p7-fmc2*hbcm*p5p7+hbcm*p1p4*p4p7+2*hbcm*
6749 . p2p4*p5p7-hbcm*p2p5*p4p7))+w13*(4*(p4p7*p1p3)*(-ffmcfmb*hbcm+2
6750 . *fmb-3*fmc+2*hbcm)+4*(p3p7*p1p3)*(2*ffmcfmb*fmb-2*ffmcfmb*fmc+
6751 . ffmcfmb*hbcm-fmc)+4*p4p7*(3*ffmcfmb*fmb*hbcm2-3*ffmcfmb*fmc*
6752 . hbcm2+ffmcfmb*hbcm3-3*fmb*fmc*hbcm-2*fmb*hbcm2+3*fmb2*hbcm+3*
6753 . fmc*hbcm2-hbcm3)+4*p3p7*(2*ffmcfmb**2*fmb*hbcm2-2*ffmcfmb**2*
6754 . fmc*hbcm2+ffmcfmb**2*hbcm3-2*ffmcfmb*fmb*fmc*hbcm-ffmcfmb*fmb*
6755 . hbcm2+2*ffmcfmb*fmb2*hbcm+ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3-fmb*
6756 . fmc*hbcm+fmc*hbcm2))+ans3
6757 ans1=w11*(4*(p4p7*p3p4)*(-ffmcfmb*hbcm+2*fmb-3*fmc-2*hbcm)+4*(
6758 . p4p7*p2p3)*(ffmcfmb*hbcm-2*fmb+3*fmc-6*hbcm)+4*(p3p7*p3p4)*(2*
6759 . ffmcfmb*fmb-2*ffmcfmb*fmc-5*ffmcfmb*hbcm-fmc)+4*(p3p7*p2p3)*(-
6760 . 2*ffmcfmb*fmb+2*ffmcfmb*fmc-3*ffmcfmb*hbcm+fmc)+4*p4p7*(-
6761 . ffmcfmb**2*hbcm3-3*ffmcfmb*fmc*hbcm2+2*ffmcfmb*hbcm3+2*fmb*fmc
6762 . *hbcm-4*fmc2*hbcm)+4*p3p7*(-2*ffmcfmb**2*fmc*hbcm2+2*ffmcfmb*
6763 . fmb*fmc*hbcm-ffmcfmb*fmc*hbcm2-4*ffmcfmb*fmc2*hbcm-fmc2*hbcm)+
6764 . 8*(2*ffmcfmb*hbcm*p1p2*p3p7-ffmcfmb*hbcm*p1p3*p4p7+2*ffmcfmb*
6765 . hbcm*p1p4*p3p7+ffmcfmb*hbcm*p2p3*p5p7-4*ffmcfmb*hbcm*p2p5*p3p7
6766 . -ffmcfmb*hbcm*p3p4*p5p7-fmc2*hbcm*p5p7+3*hbcm*p1p2*p4p7+hbcm*
6767 . p1p4*p4p7+hbcm*p2p4*p3p7+3*hbcm*p2p4*p5p7-6*hbcm*p2p5*p4p7))+
6768 . ans2
6769 ans=ccc*ans1
6770 b(2)=ans
6771 ans2=w13*(8*(p3p6*p3p4)*(ffmcfmb*hbcm-hbcm)+24*(p3p6*p2p5)*(-
6772 . ffmcfmb*hbcm+hbcm)+16*(p3p6*p2p3)*(-ffmcfmb*hbcm+hbcm)+8*(p3p6
6773 . *p1p4)*(-ffmcfmb*hbcm+hbcm)+4*(p4p6*p1p3)*(ffmcfmb*hbcm+fmc-2*
6774 . hbcm)+16*(p3p6*p1p2)*(ffmcfmb*hbcm-hbcm)+4*p4p6*(-ffmcfmb*fmb*
6775 . hbcm2+ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3+fmb*fmc*hbcm-fmb2*hbcm-
6776 . fmc*hbcm2+hbcm3)+4*(p3p6*p1p3)*(-ffmcfmb**2*hbcm+ffmcfmb*fmc)+
6777 . 4*p3p6*(-ffmcfmb**2*fmb*hbcm2+ffmcfmb**2*fmc*hbcm2+ffmcfmb**2*
6778 . hbcm3+ffmcfmb*fmb*fmc*hbcm-ffmcfmb*fmb2*hbcm-ffmcfmb*fmc*hbcm2
6779 . -ffmcfmb*hbcm3))+(2*p4p6*(-4*fb1*ffmcfmb*hbcm-4*fb2*fmc-7*hbcm
6780 . )+2*p3p6*(-4*fb1*ffmcfmb**2*hbcm-4*fb2*ffmcfmb*fmc+4*ffmcfmb*
6781 . hbcm-fmc-6*hbcm))
6782 ans1=w11*(4*(p4p6*p3p4)*(-ffmcfmb*hbcm+fmc)+4*(p4p6*p2p3)*(
6783 . ffmcfmb*hbcm-fmc+2*hbcm)+4*p4p6*(ffmcfmb*fmc*hbcm2-fmc2*hbcm)+
6784 . 4*(p3p6*p3p4)*(-ffmcfmb**2*hbcm+ffmcfmb*fmc)+4*(p3p6*p2p3)*(
6785 . ffmcfmb**2*hbcm-ffmcfmb*fmc+2*ffmcfmb*hbcm)+4*p3p6*(ffmcfmb**2
6786 . *fmc*hbcm2-ffmcfmb*fmc2*hbcm)+8*(-ffmcfmb*hbcm*p1p2*p3p6+3*
6787 . ffmcfmb*hbcm*p2p4*p3p6+ffmcfmb*hbcm*p2p5*p3p6-hbcm*p1p2*p4p6+3
6788 . *hbcm*p2p4*p4p6+hbcm*p2p5*p4p6))+w1*(4*(p4p6*p3p4)*(-ffmcfmb*
6789 . hbcm+fmc)+4*p4p6*(ffmcfmb*fmc*hbcm2-fmc2*hbcm)+4*(p3p6*p3p4)*(
6790 . -ffmcfmb**2*hbcm+ffmcfmb*fmc)+4*p3p6*(ffmcfmb**2*fmc*hbcm2-
6791 . ffmcfmb*fmc2*hbcm)+16*(ffmcfmb*hbcm*p2p4*p3p6+hbcm*p2p4*p4p6))
6792 . +ans2
6793 ans=ccc*ans1
6794 b(3)=ans
6795 ans5=4*p6p7*(-ffmcfmb**2*fmb*hbcm3-ffmcfmb**2*fmc*hbcm3+ffmcfmb
6796 . **2*hbcm4+2*ffmcfmb*fmb*hbcm3-ffmcfmb*fmb2*hbcm2+2*ffmcfmb*fmc
6797 . *hbcm3+ffmcfmb*fmc2*hbcm2-ffmcfmb*hbcm4-2*ffmcfmb*p1p3s2+fmb*
6798 . fmc2*hbcm+fmb2*fmc*hbcm-fmc*hbcm3-fmc2*hbcm2)+8*(-ffmcfmb*p1p3
6799 . *p3p6*p5p7-p1p2*p1p3*p6p7-p1p3*p1p4*p6p7+p1p3*p2p3*p6p7+p1p3*
6800 . p2p4*p6p7+p1p3*p3p4*p6p7-3*p1p3*p4p6*p4p7-p1p3*p4p6*p5p7)
6801 ans4=(p4p6*p3p7*p1p3)*(-16*ffmcfmb-8)+(p4p7*p3p6*p1p3)*(8*
6802 . ffmcfmb-16)+8*(p5p7*p4p6)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+24*(
6803 . p4p7*p4p6)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(p6p7*p3p4)*(
6804 . ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(p6p7*p2p4)*(ffmcfmb*hbcm2+fmb
6805 . *hbcm-hbcm2)+8*(p6p7*p2p3)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(
6806 . p6p7*p1p4)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(p6p7*p1p2)*(-
6807 . ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(p4p7*p3p6)*(-ffmcfmb*fmb*hbcm
6808 . -ffmcfmb*fmc*hbcm-2*ffmcfmb*hbcm2+fmc*hbcm+2*hbcm2)+8*(p3p7*
6809 . p3p6*p1p3)*(2*ffmcfmb**2-3*ffmcfmb)+8*(p4p6*p3p7)*(-2*ffmcfmb
6810 . **2*hbcm2-2*ffmcfmb*fmb*hbcm+ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(
6811 . p5p7*p3p6)*(-ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm+ffmcfmb*hbcm2)+
6812 . 8*(p3p7*p3p6)*(-2*ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm-ffmcfmb*
6813 . fmc*hbcm+2*ffmcfmb*hbcm2+fmc*hbcm)+4*(p6p7*p1p3)*(-ffmcfmb**2*
6814 . hbcm2-2*ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*hbcm+2*ffmcfmb*hbcm2+2*
6815 . fmc*hbcm+fmc2)+ans5
6816 ans3=w13*ans4
6817 ans6=((p4p6*p3p7)*(32*fb2*ffmcfmb+16*fb2+8)+(p5p7*p3p6)*(16*fb2
6818 . *ffmcfmb+4)+(p4p7*p3p6)*(-16*fb2*ffmcfmb+32*fb2-4)+(p6p7*p1p3)
6819 . *(16*fb2*ffmcfmb+4)+(p3p7*p3p6)*(-32*fb2*ffmcfmb**2+48*fb2*
6820 . ffmcfmb-16*ffmcfmb+12)+4*p6p7*(2*fb2*ffmcfmb**2*hbcm2-4*fb2*
6821 . ffmcfmb*hbcm2-2*fb2*fmc2+3*fmb*hbcm+3*fmc*hbcm-hbcm2)+16*(fb2*
6822 . p1p2*p6p7+fb2*p1p4*p6p7-fb2*p2p3*p6p7-fb2*p2p4*p6p7-fb2*p3p4*
6823 . p6p7+3*fb2*p4p6*p4p7+fb2*p4p6*p5p7))
6824 ans2=w1*((p4p6*p3p7*p3p4)*(-16*ffmcfmb-8)+(p4p7*p3p6*p3p4)*(8*
6825 . ffmcfmb-16)+8*(p4p7*p4p6)*(-2*ffmcfmb*hbcm2-3*fmc*hbcm)+8*(
6826 . p4p7*p3p6)*(-ffmcfmb*fmc*hbcm-2*fmc*hbcm)+8*(p3p7*p3p6*p3p4)*(
6827 . 2*ffmcfmb**2-3*ffmcfmb)+8*(p4p6*p3p7)*(-2*ffmcfmb**2*hbcm2-2*
6828 . ffmcfmb*fmc*hbcm-fmc*hbcm)+4*(p6p7*p3p4)*(-ffmcfmb**2*hbcm2+2*
6829 . ffmcfmb*hbcm2+2*fmc*hbcm+fmc2)+4*p6p7*(-ffmcfmb**2*fmc*hbcm3+2
6830 . *ffmcfmb*fmc*hbcm3+fmc3*hbcm+2*p3p4s2)+8*(-ffmcfmb*fmc*hbcm*
6831 . p1p3*p6p7-3*ffmcfmb*fmc*hbcm*p3p6*p3p7-ffmcfmb*fmc*hbcm*p3p6*
6832 . p5p7-ffmcfmb*p1p3*p3p4*p6p7-ffmcfmb*p3p4*p3p6*p5p7-fmc*hbcm*
6833 . p1p2*p6p7-fmc*hbcm*p1p4*p6p7+fmc*hbcm*p2p3*p6p7+fmc*hbcm*p2p4*
6834 . p6p7-fmc*hbcm*p4p6*p5p7-p1p2*p3p4*p6p7-p1p4*p3p4*p6p7+p2p3*
6835 . p3p4*p6p7+p2p4*p3p4*p6p7-3*p3p4*p4p6*p4p7-p3p4*p4p6*p5p7))+
6836 . ans3+ans6
6837 ans1=w11*((p4p6*p3p7*p3p4)*(-16*ffmcfmb-8)+(p4p7*p3p6*p3p4)*(8*
6838 . ffmcfmb-16)+(p4p6*p3p7*p2p3)*(16*ffmcfmb+8)+(p4p7*p3p6*p2p3)*(
6839 . -8*ffmcfmb+16)+8*(p4p7*p4p6)*(-2*ffmcfmb*hbcm2-3*fmc*hbcm)+8*(
6840 . p4p7*p3p6)*(-ffmcfmb*fmc*hbcm-2*fmc*hbcm)+8*(p3p7*p3p6*p3p4)*(
6841 . 2*ffmcfmb**2-3*ffmcfmb)+8*(p3p7*p3p6*p2p3)*(-2*ffmcfmb**2+3*
6842 . ffmcfmb)+8*(p4p6*p3p7)*(-2*ffmcfmb**2*hbcm2-2*ffmcfmb*fmc*hbcm
6843 . -fmc*hbcm)+4*(p6p7*p3p4)*(-ffmcfmb**2*hbcm2+2*ffmcfmb*hbcm2+2*
6844 . fmc*hbcm+fmc2)+4*(p6p7*p2p3)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2
6845 . +2*fmc*hbcm-fmc2)+4*p6p7*(-ffmcfmb**2*fmc*hbcm3+2*ffmcfmb*fmc*
6846 . hbcm3+fmc3*hbcm-2*p2p3s2+2*p3p4s2)+8*(-ffmcfmb*fmc*hbcm*p1p3*
6847 . p6p7-3*ffmcfmb*fmc*hbcm*p3p6*p3p7-ffmcfmb*fmc*hbcm*p3p6*p5p7+
6848 . ffmcfmb*p1p3*p2p3*p6p7-ffmcfmb*p1p3*p3p4*p6p7+ffmcfmb*p2p3*
6849 . p3p6*p5p7-ffmcfmb*p3p4*p3p6*p5p7-fmc*hbcm*p1p2*p6p7-fmc*hbcm*
6850 . p1p4*p6p7+fmc*hbcm*p2p4*p6p7-fmc*hbcm*p4p6*p5p7+p1p2*p2p3*p6p7
6851 . -p1p2*p3p4*p6p7+p1p4*p2p3*p6p7-p1p4*p3p4*p6p7-p2p3*p2p4*p6p7+3
6852 . *p2p3*p4p6*p4p7+p2p3*p4p6*p5p7+p2p4*p3p4*p6p7-3*p3p4*p4p6*p4p7
6853 . -p3p4*p4p6*p5p7))+ans2
6854 ans=ccc*ans1
6855 b(4)=ans
6856 ans4=8*(3*ffmcfmb*fmc*hbcm*p1p3*p3p7-4*ffmcfmb*fmc*hbcm*p3p5*
6857 . p3p7-ffmcfmb*p1p3*p2p3*p3p7+ffmcfmb*p1p3*p3p4*p3p7+2*ffmcfmb*
6858 . p2p3*p3p4*p3p7+2*ffmcfmb*p2p3*p3p5*p3p7-2*ffmcfmb*p3p4*p3p5*
6859 . p3p7+2*fmc*hbcm*p1p3*p4p7-2*fmc*hbcm*p2p3*p5p7+fmc*hbcm*p3p4*
6860 . p5p7+hbcm2*p1p2*p4p7+hbcm2*p1p4*p4p7+3*hbcm2*p2p4*p5p7-4*hbcm2
6861 . *p2p5*p4p7-p1p3*p2p3*p4p7+p1p3*p3p4*p4p7-p1p4*p2p3*p3p7+p1p4*
6862 . p3p4*p3p7-p2p3*p2p5*p3p7+3*p2p3*p3p4*p4p7-3*p2p3*p3p4*p5p7+3*
6863 . p2p3*p3p5*p4p7+p2p5*p3p4*p3p7-3*p3p4*p3p5*p4p7)
6864 ans3=8*(p4p7*p3p5)*(-ffmcfmb*hbcm2-4*fmc*hbcm)+4*(p4p7*p3p4)*(
6865 . ffmcfmb*hbcm2-2*fmb*hbcm-3*fmc*hbcm-4*hbcm2)+8*(p3p7*p2p5)*(-3
6866 . *ffmcfmb*hbcm2+2*fmc*hbcm)+8*(p3p7*p2p4)*(-ffmcfmb*hbcm2+fmc*
6867 . hbcm+hbcm2)+4*(p4p7*p2p3)*(5*ffmcfmb*hbcm2-2*fmb*hbcm+3*fmc*
6868 . hbcm)+8*(p3p7*p1p4)*(2*ffmcfmb*hbcm2+fmc*hbcm)+8*(p3p7*p1p2)*(
6869 . ffmcfmb*hbcm2-fmc*hbcm)+8*p5p7*(ffmcfmb*fmc*hbcm3-fmc2*hbcm2+2
6870 . *p2p3s2+p3p4s2)+4*p4p7*(-ffmcfmb**2*hbcm4+ffmcfmb*fmc*hbcm3-2*
6871 . fmb*fmc*hbcm2-4*fmc*hbcm3-2*fmc2*hbcm2-6*p2p3s2)+4*(p3p7*p3p4)
6872 . *(3*ffmcfmb**2*hbcm2-2*ffmcfmb*fmb*hbcm-4*ffmcfmb*fmc*hbcm-5*
6873 . ffmcfmb*hbcm2-fmc*hbcm-fmc2)+4*(p3p7*p2p3)*(ffmcfmb**2*hbcm2-2
6874 . *ffmcfmb*fmb*hbcm+4*ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2+fmc*hbcm+
6875 . fmc2)+4*p3p7*(ffmcfmb**2*fmc*hbcm3-2*ffmcfmb*fmb*fmc*hbcm2-5*
6876 . ffmcfmb*fmc*hbcm3-2*ffmcfmb*fmc2*hbcm2-4*ffmcfmb*p2p3s2-fmc2*
6877 . hbcm2-fmc3*hbcm)+ans4
6878 ans2=w11*ans3
6879 ans8=8*(ffmcfmb*hbcm2*p1p3*p5p7+2*ffmcfmb*p1p3*p2p3*p3p7-2*
6880 . ffmcfmb*p1p3*p3p5*p3p7+p1p3*p1p4*p3p7+3*p1p3*p2p3*p4p7-2*p1p3*
6881 . p2p3*p5p7+p1p3*p2p5*p3p7+p1p3*p3p4*p5p7-3*p1p3*p3p5*p4p7)
6882 ans7=24*(p4p7*p3p5)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(p5p7*
6883 . p3p4)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(p3p7*p2p5)*(ffmcfmb*
6884 . hbcm2+fmb*hbcm-hbcm2)+16*(p5p7*p2p3)*(-ffmcfmb*hbcm2-fmb*hbcm+
6885 . hbcm2)+24*(p4p7*p2p3)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(p3p7*
6886 . p1p4)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+4*(p4p7*p1p3)*(3*ffmcfmb*
6887 . hbcm2+4*fmb*hbcm+fmc*hbcm-6*hbcm2)+4*p4p7*(ffmcfmb*fmb*hbcm3+
6888 . ffmcfmb*fmc*hbcm3-3*ffmcfmb*hbcm4+fmb*fmc*hbcm2-4*fmb*hbcm3+
6889 . fmb2*hbcm2-fmc*hbcm3+3*hbcm4+2*p1p3s2)+8*p5p7*(ffmcfmb**2*
6890 . hbcm4+ffmcfmb*fmb*hbcm3-ffmcfmb*hbcm4)+16*(p3p7*p3p5)*(-
6891 . ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm+ffmcfmb*hbcm2)+16*(p3p7*p2p3
6892 . )*(ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm-ffmcfmb*hbcm2)+4*(p3p7*
6893 . p1p3)*(3*ffmcfmb**2*hbcm2+4*ffmcfmb*fmb*hbcm+2*ffmcfmb*fmc*
6894 . hbcm-5*ffmcfmb*hbcm2-fmc*hbcm-fmc2)+4*p3p7*(ffmcfmb**2*fmb*
6895 . hbcm3+ffmcfmb**2*fmc*hbcm3-2*ffmcfmb**2*hbcm4-3*ffmcfmb*fmb*
6896 . hbcm3+ffmcfmb*fmb2*hbcm2-ffmcfmb*fmc*hbcm3-ffmcfmb*fmc2*hbcm2+
6897 . 2*ffmcfmb*hbcm4+2*ffmcfmb*p1p3s2+fmb*fmc*hbcm2-fmb*fmc2*hbcm-
6898 . fmb2*fmc*hbcm+fmc2*hbcm2)+ans8
6899 ans6=w13*ans7
6900 ans9=((p3p7*p3p5)*(32*fb2*ffmcfmb+8)+(p3p7*p2p3)*(-32*fb2*
6901 . ffmcfmb-8)+(p3p7*p1p3)*(-16*fb2*ffmcfmb-4)+4*p5p7*(-4*fb2*
6902 . ffmcfmb*hbcm2-hbcm2)+2*p4p7*(8*fb1*fmb*hbcm+4*fb1*fmc*hbcm+4*
6903 . fb2*ffmcfmb*hbcm2+8*fb2*hbcm2-hbcm2)+2*p3p7*(8*fb1*ffmcfmb*fmb
6904 . *hbcm+4*fb1*fmc*hbcm+4*fb2*ffmcfmb**2*hbcm2+4*fb2*ffmcfmb*
6905 . hbcm2+4*fb2*fmc2-4*fmb*hbcm-6*fmc*hbcm+hbcm2)+16*(-fb2*p1p3*
6906 . p4p7-fb2*p1p4*p3p7-3*fb2*p2p3*p4p7+2*fb2*p2p3*p5p7-fb2*p2p5*
6907 . p3p7-fb2*p3p4*p5p7+3*fb2*p3p5*p4p7))
6908 ans5=w1*(8*(p4p7*p3p5)*(-ffmcfmb*hbcm2-4*fmc*hbcm)+4*(p4p7*p3p4
6909 . )*(ffmcfmb*hbcm2-2*fmb*hbcm-3*fmc*hbcm-4*hbcm2)+8*(p4p7*p2p3)*
6910 . (ffmcfmb*hbcm2+4*fmc*hbcm)+8*(p3p7*p1p4)*(2*ffmcfmb*hbcm2+fmc*
6911 . hbcm)+8*p5p7*(ffmcfmb*fmc*hbcm3-fmc2*hbcm2+p3p4s2)+4*p4p7*(-
6912 . ffmcfmb**2*hbcm4+ffmcfmb*fmc*hbcm3-2*fmb*fmc*hbcm2-4*fmc*hbcm3
6913 . -2*fmc2*hbcm2)+4*(p3p7*p3p4)*(3*ffmcfmb**2*hbcm2-2*ffmcfmb*fmb
6914 . *hbcm-4*ffmcfmb*fmc*hbcm-5*ffmcfmb*hbcm2-fmc*hbcm-fmc2)+4*p3p7
6915 . *(ffmcfmb**2*fmc*hbcm3-2*ffmcfmb*fmb*fmc*hbcm2-5*ffmcfmb*fmc*
6916 . hbcm3-2*ffmcfmb*fmc2*hbcm2-fmc2*hbcm2-fmc3*hbcm)+8*(3*ffmcfmb*
6917 . fmc*hbcm*p1p3*p3p7+4*ffmcfmb*fmc*hbcm*p2p3*p3p7-4*ffmcfmb*fmc*
6918 . hbcm*p3p5*p3p7+ffmcfmb*p1p3*p3p4*p3p7+2*ffmcfmb*p2p3*p3p4*p3p7
6919 . -2*ffmcfmb*p3p4*p3p5*p3p7+2*fmc*hbcm*p1p3*p4p7-2*fmc*hbcm*p2p3
6920 . *p5p7+fmc*hbcm*p2p5*p3p7+fmc*hbcm*p3p4*p5p7+hbcm2*p1p4*p4p7+2*
6921 . hbcm2*p2p4*p5p7-hbcm2*p2p5*p4p7+p1p3*p3p4*p4p7+p1p4*p3p4*p3p7+
6922 . 3*p2p3*p3p4*p4p7-2*p2p3*p3p4*p5p7+p2p5*p3p4*p3p7-3*p3p4*p3p5*
6923 . p4p7))+ans6+ans9
6924 ans1=ans2+ans5
6925 ans=ccc*ans1
6926 b(5)=ans
6927 ans5=8*(ffmcfmb*p1p3*p3p5*p3p6-2*fmb*hbcm*p1p2*p3p6+fmb*hbcm*
6928 . p1p4*p3p6+3*fmb*hbcm*p2p5*p3p6-2*p1p2*p1p3*p3p6+p1p3*p1p4*p3p6
6929 . -3*p1p3*p2p3*p4p6+3*p1p3*p2p5*p3p6+p1p3*p3p4*p4p6+p1p3*p3p5*
6930 . p4p6)
6931 ans4=(p3p6*p3p4*p1p3)*(8*ffmcfmb-8)+(p3p6*p2p3*p1p3)*(-24*
6932 . ffmcfmb+16)+8*(p4p6*p3p5)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(
6933 . p4p6*p3p4)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+24*(p4p6*p2p3)*(-
6934 . ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+4*(p4p6*p1p3)*(ffmcfmb*hbcm2-2*
6935 . fmb*hbcm-fmc*hbcm+2*hbcm2)+8*(p3p6*p3p4)*(ffmcfmb*fmb*hbcm+
6936 . ffmcfmb*fmc*hbcm-fmb*hbcm-fmc*hbcm)+4*p4p6*(2*ffmcfmb**2*hbcm4
6937 . +ffmcfmb*fmb*hbcm3-ffmcfmb*fmc*hbcm3-ffmcfmb*hbcm4-fmb*fmc*
6938 . hbcm2+2*fmb*hbcm3-fmb2*hbcm2+fmc*hbcm3-hbcm4-2*p1p3s2)+8*(p3p6
6939 . *p3p5)*(ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm-ffmcfmb*hbcm2)+8*(
6940 . p3p6*p2p3)*(-ffmcfmb**2*hbcm2-3*ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc
6941 . *hbcm+ffmcfmb*hbcm2+2*fmb*hbcm+2*fmc*hbcm)+4*(p3p6*p1p3)*(
6942 . ffmcfmb**2*hbcm2-ffmcfmb*fmc*hbcm)+4*p3p6*(ffmcfmb**2*fmb*
6943 . hbcm3+ffmcfmb**2*fmc*hbcm3+ffmcfmb**2*hbcm4-ffmcfmb*fmb*fmc*
6944 . hbcm2-ffmcfmb*fmb2*hbcm2-ffmcfmb*fmc*hbcm3-ffmcfmb*hbcm4)+ans5
6945 ans3=w13*ans4
6946 ans6=((p3p6*p3p5)*(-16*fb2*ffmcfmb-4)+(p3p6*p3p4)*(-16*fb2*
6947 . ffmcfmb+16*fb2-4)+(p3p6*p2p3)*(48*fb2*ffmcfmb-32*fb2+12)+2*
6948 . p4p6*(-4*fb1*fmc*hbcm-4*fb2*ffmcfmb*hbcm2-8*fb2*hbcm2-3*hbcm2)
6949 . +2*p3p6*(-4*fb1*ffmcfmb*fmc*hbcm-4*fb2*ffmcfmb**2*hbcm2+2*
6950 . ffmcfmb*hbcm2-6*fmb*hbcm-fmc*hbcm-6*hbcm2)+16*(2*fb2*p1p2*p3p6
6951 . +fb2*p1p3*p4p6-fb2*p1p4*p3p6+3*fb2*p2p3*p4p6-3*fb2*p2p5*p3p6-
6952 . fb2*p3p4*p4p6-fb2*p3p5*p4p6))
6953 ans2=w1*((p3p6*p3p4*p2p3)*(-24*ffmcfmb+16)+4*(p4p6*p3p4)*(-
6954 . ffmcfmb*hbcm2+3*fmc*hbcm+2*hbcm2)+4*p4p6*(ffmcfmb*fmc*hbcm3+2*
6955 . fmc*hbcm3-fmc2*hbcm2+2*p3p4s2)+8*(p3p6*p2p3)*(-3*ffmcfmb*fmc*
6956 . hbcm+2*fmc*hbcm)+4*(p3p6*p3p4)*(ffmcfmb**2*hbcm2+ffmcfmb*fmc*
6957 . hbcm-2*fmc*hbcm)+4*p3p6*(ffmcfmb**2*fmc*hbcm3+ffmcfmb*fmc2*
6958 . hbcm2+2*ffmcfmb*p3p4s2-2*fmc3*hbcm-2*p3p4s2)+8*(ffmcfmb*fmc*
6959 . hbcm*p3p5*p3p6+ffmcfmb*p3p4*p3p5*p3p6-2*fmc*hbcm*p1p2*p3p6-fmc
6960 . *hbcm*p1p3*p4p6+fmc*hbcm*p1p4*p3p6-3*fmc*hbcm*p2p3*p4p6+2*fmc*
6961 . hbcm*p2p4*p3p6+3*fmc*hbcm*p2p5*p3p6+fmc*hbcm*p3p5*p4p6+2*hbcm2
6962 . *p2p4*p4p6-2*p1p2*p3p4*p3p6-p1p3*p3p4*p4p6+p1p4*p3p4*p3p6-3*
6963 . p2p3*p3p4*p4p6+3*p2p5*p3p4*p3p6+p3p4*p3p5*p4p6))+ans3+ans6
6964 ans1=w11*((p3p6*p3p4*p2p3)*(-32*ffmcfmb+24)+4*(p4p6*p3p4)*(-
6965 . ffmcfmb*hbcm2+3*fmc*hbcm+2*hbcm2)+8*(p3p6*p2p5)*(ffmcfmb*hbcm2
6966 . +3*fmc*hbcm)+4*(p4p6*p2p3)*(-ffmcfmb*hbcm2-5*fmc*hbcm)+8*(p3p6
6967 . *p1p2)*(-ffmcfmb*hbcm2-2*fmc*hbcm)+4*p4p6*(ffmcfmb*fmc*hbcm3+2
6968 . *fmc*hbcm3-fmc2*hbcm2+6*p2p3s2+2*p3p4s2)+4*(p3p6*p3p4)*(
6969 . ffmcfmb**2*hbcm2+ffmcfmb*fmc*hbcm-2*fmc*hbcm)+4*(p3p6*p2p3)*(-
6970 . 3*ffmcfmb**2*hbcm2-3*ffmcfmb*fmc*hbcm+2*ffmcfmb*hbcm2+4*fmc*
6971 . hbcm)+4*p3p6*(ffmcfmb**2*fmc*hbcm3+ffmcfmb*fmc2*hbcm2+6*
6972 . ffmcfmb*p2p3s2+2*ffmcfmb*p3p4s2-2*fmc3*hbcm-4*p2p3s2-2*p3p4s2)
6973 . +8*(ffmcfmb*fmc*hbcm*p3p5*p3p6-ffmcfmb*p2p3*p3p5*p3p6+ffmcfmb*
6974 . p3p4*p3p5*p3p6-fmc*hbcm*p1p3*p4p6+fmc*hbcm*p1p4*p3p6+3*fmc*
6975 . hbcm*p2p4*p3p6+fmc*hbcm*p3p5*p4p6-hbcm2*p1p2*p4p6+3*hbcm2*p2p4
6976 . *p4p6+hbcm2*p2p5*p4p6+2*p1p2*p2p3*p3p6-2*p1p2*p3p4*p3p6+p1p3*
6977 . p2p3*p4p6-p1p3*p3p4*p4p6-p1p4*p2p3*p3p6+p1p4*p3p4*p3p6-3*p2p3*
6978 . p2p5*p3p6-4*p2p3*p3p4*p4p6-p2p3*p3p5*p4p6+3*p2p5*p3p4*p3p6+
6979 . p3p4*p3p5*p4p6))+ans2
6980 ans=ccc*ans1
6981 b(6)=ans
6982 ans2=w13*(4*p3p4*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+12*p2p5*(-
6983 . ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*p2p3*(-ffmcfmb*hbcm2-fmb*hbcm+
6984 . hbcm2)+4*p1p4*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*p1p2*(ffmcfmb*
6985 . hbcm2+fmb*hbcm-hbcm2)+4*p1p3*(-ffmcfmb**2*hbcm2-ffmcfmb*fmb*
6986 . hbcm+2*ffmcfmb*hbcm2)+4*(ffmcfmb**2*hbcm4+ffmcfmb*fmb*hbcm3-
6987 . ffmcfmb*hbcm4-ffmcfmb*p1p3s2+2*p1p2*p1p3-p1p3*p1p4-2*p1p3*p2p3
6988 . -3*p1p3*p2p5+p1p3*p3p4))+(p1p3*(8*fb2*ffmcfmb+2)+2*(-4*fb2*
6989 . ffmcfmb*hbcm2-8*fb2*p1p2+4*fb2*p1p4+8*fb2*p2p3+12*fb2*p2p5-4*
6990 . fb2*p3p4+3*fmb*hbcm+3*fmc*hbcm-hbcm2))
6991 ans1=w1*(8*p2p4*(ffmcfmb*hbcm2-fmc*hbcm)+4*p3p4*(-ffmcfmb**2*
6992 . hbcm2+ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2+fmc*hbcm)+4*(-ffmcfmb*fmc
6993 . *hbcm*p1p3+ffmcfmb*fmc*hbcm3-ffmcfmb*fmc2*hbcm2-ffmcfmb*p1p3*
6994 . p3p4+2*fmc*hbcm*p1p2-fmc*hbcm*p1p4-2*fmc*hbcm*p2p3-3*fmc*hbcm*
6995 . p2p5+fmc3*hbcm+2*p1p2*p3p4-p1p4*p3p4-2*p2p3*p3p4-3*p2p5*p3p4+
6996 . p3p4s2))+w11*(12*p2p4*(ffmcfmb*hbcm2-fmc*hbcm)+4*p3p4*(-
6997 . ffmcfmb**2*hbcm2+ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2+fmc*hbcm)+4*
6998 . p2p3*(ffmcfmb**2*hbcm2-ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2-2*fmc*
6999 . hbcm)+4*(-ffmcfmb*fmc*hbcm*p1p3+ffmcfmb*fmc*hbcm3-ffmcfmb*fmc2
7000 . *hbcm2+ffmcfmb*p1p3*p2p3-ffmcfmb*p1p3*p3p4+2*fmc*hbcm*p1p2-fmc
7001 . *hbcm*p1p4-3*fmc*hbcm*p2p5+fmc3*hbcm-2*p1p2*p2p3+2*p1p2*p3p4+
7002 . p1p4*p2p3-p1p4*p3p4+3*p2p3*p2p5-3*p2p3*p3p4+2*p2p3s2-3*p2p5*
7003 . p3p4+p3p4s2))+ans2
7004 ans=ccc*ans1
7005 b(7)=ans
7006 ans3=w13*(12*p2p5*(ffmcfmb*hbcm3+fmb*hbcm2-hbcm3)+4*p1p4*(
7007 . ffmcfmb*hbcm3+fmb*hbcm2-hbcm3)+8*p1p2*(-ffmcfmb*hbcm3-fmb*
7008 . hbcm2+hbcm3)+4*(p3p4*p1p3)*(-ffmcfmb*hbcm-fmc+hbcm)+8*(p2p3*
7009 . p1p3)*(ffmcfmb*hbcm+fmc-hbcm)+4*p3p4*(ffmcfmb*fmb*hbcm2-
7010 . ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm-fmb*hbcm2+fmb2*hbcm+fmc*hbcm2)+
7011 . 8*p2p3*(-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm+fmb*
7012 . hbcm2-fmb2*hbcm-fmc*hbcm2)+4*p1p3*(ffmcfmb*fmb*hbcm2-ffmcfmb*
7013 . fmc*hbcm2)+4*(ffmcfmb**2*fmb*hbcm4-ffmcfmb**2*fmc*hbcm4-
7014 . ffmcfmb*fmb*fmc*hbcm3-ffmcfmb*fmb*hbcm4+ffmcfmb*fmb2*hbcm3+
7015 . ffmcfmb*fmc*hbcm4+ffmcfmb*hbcm*p1p3s2-2*hbcm*p1p2*p1p3+hbcm*
7016 . p1p3*p1p4+3*hbcm*p1p3*p2p5))+(2*p3p4*(4*fb1*ffmcfmb*hbcm-4*fb1
7017 . *hbcm+4*fb2*fmc+hbcm)+8*p2p3*(-2*fb1*ffmcfmb*hbcm+2*fb1*hbcm-2
7018 . *fb2*fmc+hbcm)+2*p1p3*(4*fb1*ffmcfmb*hbcm+hbcm)+2*(4*fb1*
7019 . ffmcfmb**2*hbcm3-4*fb1*ffmcfmb*hbcm3-8*fb1*hbcm*p1p2+4*fb1*
7020 . hbcm*p1p4+12*fb1*hbcm*p2p5+4*fb2*ffmcfmb*fmc*hbcm2-ffmcfmb*
7021 . hbcm3-3*fmb*hbcm2+fmc*hbcm2-6*hbcm*p3p5-hbcm3))
7022 ans2=w1*(8*p2p4*(-ffmcfmb*hbcm3-fmc*hbcm2+2*hbcm3)+8*(p3p4*p2p3
7023 . )*(2*ffmcfmb*hbcm+fmc-hbcm)+4*p3p4*(-ffmcfmb*fmc*hbcm2-ffmcfmb
7024 . *hbcm3+fmc*hbcm2-fmc2*hbcm)+8*p2p3*(ffmcfmb*fmc*hbcm2-fmc*
7025 . hbcm2+2*fmc2*hbcm)+4*p1p3*(-ffmcfmb*fmc*hbcm2+2*fmc2*hbcm)+4*(
7026 . -ffmcfmb**2*fmc*hbcm4+ffmcfmb*fmc*hbcm4+ffmcfmb*hbcm*p1p3*p3p4
7027 . -2*ffmcfmb*hbcm*p3p4*p3p5-ffmcfmb*hbcm*p3p4s2+2*fmc*hbcm2*p1p2
7028 . -fmc*hbcm2*p1p4-3*fmc*hbcm2*p2p5-fmc*p3p4s2-2*fmc2*hbcm*p3p5-2
7029 . *fmc2*hbcm3+fmc3*hbcm2+2*hbcm*p1p2*p3p4-4*hbcm*p1p3*p2p4-hbcm*
7030 . p1p4*p3p4-4*hbcm*p2p3*p2p4+4*hbcm*p2p4*p3p5-3*hbcm*p2p5*p3p4+
7031 . hbcm*p3p4s2))+ans3
7032 ans1=w11*(4*p2p5*(-2*ffmcfmb*hbcm3-3*fmc*hbcm2)+12*p2p4*(-
7033 . ffmcfmb*hbcm3-fmc*hbcm2+2*hbcm3)+8*p1p2*(ffmcfmb*hbcm3+fmc*
7034 . hbcm2)+4*(p3p4*p2p3)*(5*ffmcfmb*hbcm+3*fmc-3*hbcm)+4*p3p4*(-
7035 . ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3+fmc*hbcm2-fmc2*hbcm)+4*p2p3*(2
7036 . *ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3-2*fmc*hbcm2+4*fmc2*hbcm)+4*
7037 . p1p3*(-ffmcfmb*fmc*hbcm2+2*fmc2*hbcm)+4*(-ffmcfmb**2*fmc*hbcm4
7038 . +ffmcfmb*fmc*hbcm4-3*ffmcfmb*hbcm*p1p3*p2p3+ffmcfmb*hbcm*p1p3*
7039 . p3p4+2*ffmcfmb*hbcm*p2p3*p3p5-4*ffmcfmb*hbcm*p2p3s2-2*ffmcfmb*
7040 . hbcm*p3p4*p3p5-ffmcfmb*hbcm*p3p4s2-fmc*hbcm2*p1p4-2*fmc*p2p3s2
7041 . -fmc*p3p4s2-2*fmc2*hbcm*p3p5-2*fmc2*hbcm3+fmc3*hbcm2-2*hbcm*
7042 . p1p2*p2p3+4*hbcm*p1p2*p3p4-6*hbcm*p1p3*p2p4-hbcm*p1p4*p2p3-
7043 . hbcm*p1p4*p3p4-6*hbcm*p2p3*p2p4+hbcm*p2p3*p2p5+2*hbcm*p2p3s2+6
7044 . *hbcm*p2p4*p3p5-5*hbcm*p2p5*p3p4+hbcm*p3p4s2))+ans2
7045 ans=ccc*ans1
7046 b(8)=ans
7047 ans=ccc*(w1*(4*(p3p6*p3p4)*(ffmcfmb*hbcm+3*fmc)+4*p3p6*(-
7048 . ffmcfmb*fmc*hbcm2+5*fmc2*hbcm)+16*(-fmc*hbcm2*p4p6-hbcm*p2p4*
7049 . p3p6-hbcm*p3p4*p4p6))+w13*(16*p4p6*(ffmcfmb*hbcm3+fmb*hbcm2-
7050 . hbcm3)+24*(p3p6*p3p5)*(ffmcfmb*hbcm-hbcm)+8*(p3p6*p3p4)*(-
7051 . ffmcfmb*hbcm+hbcm)+8*(p3p6*p2p3)*(-ffmcfmb*hbcm+hbcm)+4*(p3p6*
7052 . p1p3)*(ffmcfmb*hbcm+3*fmc)+4*p3p6*(-ffmcfmb**2*hbcm3+ffmcfmb*
7053 . fmb*hbcm2+4*ffmcfmb*hbcm3+3*fmb*fmc*hbcm-3*fmb2*hbcm-3*hbcm3)+
7054 . 16*hbcm*p1p3*p4p6)+w11*(4*p4p6*(-ffmcfmb*hbcm3-3*fmc*hbcm2-2*
7055 . hbcm3)+4*(p3p6*p3p4)*(-ffmcfmb*hbcm+3*fmc+2*hbcm)+4*(p3p6*p2p3
7056 . )*(-3*ffmcfmb*hbcm-3*fmc+2*hbcm)+4*p3p6*(-ffmcfmb**2*hbcm3+5*
7057 . fmc2*hbcm)+8*(-ffmcfmb*hbcm*p3p5*p3p6-hbcm*p1p2*p3p6+hbcm*p1p3
7058 . *p4p6-hbcm*p1p4*p3p6+hbcm*p2p3*p4p6-3*hbcm*p2p4*p3p6-3*hbcm*
7059 . p3p4*p4p6-hbcm*p3p5*p4p6))+(2*p3p6*(4*fb1*ffmcfmb*hbcm-12*fb2*
7060 . fmc-5*hbcm)+32*fb1*hbcm*p4p6))
7061 b(9)=ans
7062 b(10)=ccc*(16*w1*(ffmcfmb*fmc*hbcm*p3p6+ffmcfmb*p3p4*p3p6+fmc*
7063 . hbcm*p4p6+p3p4*p4p6)+w13*(16*p4p6*(ffmcfmb*hbcm2+fmb*hbcm-
7064 . hbcm2)+4*p3p6*(ffmcfmb**2*hbcm2+4*ffmcfmb*fmb*hbcm+3*ffmcfmb*
7065 . fmc*hbcm-ffmcfmb*hbcm2-3*fmc*hbcm)+16*(ffmcfmb*p1p3*p3p6+p1p3*
7066 . p4p6))+w11*(4*p4p6*(ffmcfmb*hbcm2+3*fmc*hbcm)+4*p3p6*(ffmcfmb
7067 . **2*hbcm2+3*ffmcfmb*fmc*hbcm)+16*(-ffmcfmb*p2p3*p3p6+ffmcfmb*
7068 . p3p4*p3p6-p2p3*p4p6+p3p4*p4p6))+(p3p6*(-32*fb2*ffmcfmb-8)-32*
7069 . fb2*p4p6))
7070 ans2=(-12*fb1*fmc*hbcm+20*fb2*ffmcfmb*hbcm2-24*fb2*hbcm2+24*fb2
7071 . *p1p3+8*fb2*p2p3+8*fb2*p3p4-24*fb2*p3p5-hbcm2)
7072 ans1=w1*(2*p3p4*(-3*ffmcfmb*hbcm2+fmc*hbcm+6*hbcm2)+2*(-5*
7073 . ffmcfmb*fmc*hbcm3-6*fmc*hbcm*p1p3-2*fmc*hbcm*p2p3+6*fmc*hbcm*
7074 . p3p5+6*fmc*hbcm3+5*fmc2*hbcm2-4*hbcm2*p2p4-6*p1p3*p3p4-2*p2p3*
7075 . p3p4+6*p3p4*p3p5-2*p3p4s2))+w13*(12*p3p5*(ffmcfmb*hbcm2+fmb*
7076 . hbcm-hbcm2)+4*p3p4*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+4*p2p3*(-
7077 . ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+2*p1p3*(-5*ffmcfmb*hbcm2-6*fmb*
7078 . hbcm-3*fmc*hbcm+6*hbcm2)+2*(-2*ffmcfmb**2*hbcm4-5*ffmcfmb*fmb*
7079 . hbcm3-3*ffmcfmb*fmc*hbcm3+5*ffmcfmb*hbcm4-3*fmb*fmc*hbcm2+6*
7080 . fmb*hbcm3-3*fmb2*hbcm2+3*fmc*hbcm3-3*hbcm4-2*p1p3*p2p3-2*p1p3*
7081 . p3p4+6*p1p3*p3p5-6*p1p3s2))+w11*(2*p3p4*(-5*ffmcfmb*hbcm2+3*
7082 . fmc*hbcm+8*hbcm2)+2*p2p3*(ffmcfmb*hbcm2-3*fmc*hbcm-4*hbcm2)+4*
7083 . p1p3*(-ffmcfmb*hbcm2-3*fmc*hbcm)+2*(-2*ffmcfmb**2*hbcm4-3*
7084 . ffmcfmb*fmc*hbcm3+2*ffmcfmb*hbcm4+6*fmc*hbcm*p3p5+6*fmc*hbcm3+
7085 . 5*fmc2*hbcm2-2*hbcm2*p1p2-2*hbcm2*p1p4-6*hbcm2*p2p4+6*p1p3*
7086 . p2p3-6*p1p3*p3p4-6*p2p3*p3p5+2*p2p3s2+6*p3p4*p3p5-2*p3p4s2))+
7087 . ans2
7088 ans=ccc*ans1
7089 b(11)=ans
7090 ans2=w11*(4*p5p7*(2*ffmcfmb*hbcm3+3*fmc*hbcm2)+4*p4p7*(3*
7091 . ffmcfmb*hbcm3-2*fmb*hbcm2+2*fmc*hbcm2-8*hbcm3)+4*(p3p7*p3p4)*(
7092 . -6*ffmcfmb*hbcm-2*fmc+hbcm)+4*(p3p7*p2p3)*(6*ffmcfmb*hbcm+2*
7093 . fmc-hbcm)+4*p3p7*(ffmcfmb**2*hbcm3-2*ffmcfmb*fmb*hbcm2-2*
7094 . ffmcfmb*fmc*hbcm2-5*ffmcfmb*hbcm3+2*fmc*hbcm2-3*fmc2*hbcm)+4*(
7095 . 6*ffmcfmb*hbcm*p1p3*p3p7-8*ffmcfmb*hbcm*p3p5*p3p7+2*hbcm*p1p2*
7096 . p3p7+8*hbcm*p1p3*p4p7+2*hbcm*p1p4*p3p7+7*hbcm*p2p3*p4p7-hbcm*
7097 . p2p3*p5p7+2*hbcm*p2p4*p3p7-3*hbcm*p3p4*p4p7+5*hbcm*p3p4*p5p7-
7098 . 12*hbcm*p3p5*p4p7))+(8*p3p7*(2*fb1*ffmcfmb*hbcm-fb1*hbcm+2*fb2
7099 . *fmc-hbcm)+8*(fb1*hbcm*p4p7-3*fb1*hbcm*p5p7))
7100 ans1=w1*(4*p4p7*(2*ffmcfmb*hbcm3-fmc*hbcm2-2*hbcm3)+4*(p3p7*
7101 . p3p4)*(-6*ffmcfmb*hbcm-2*fmc+hbcm)+4*p3p7*(-4*ffmcfmb*fmc*
7102 . hbcm2+fmc*hbcm2-2*fmc2*hbcm)+4*(3*fmc