bin/BCVEGPY/pj1amp.F

0001 c...this is the 36 amplitude for (3p1) state.

0002 c...obtained from the program fdc.

0003 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc

0004 c copyright (c) z.x. zhang, j.x. wang and x.g. wu                    c

0005 c reference: hep-ph/0309120                                          c

0006 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc

0007       subroutine amp10_3p1(cc)
0008       implicit double precision(a-h,o-z)
0009       implicit integer (i-n)
0010       dimension b(32)
0011 #include "inclcon.h"
0012 #include "inclppp.h"
0013 #include "inclamp.h"
0014       do 100 n=1,32
0015          b(n)=0.0d0
0016 100   continue
0017       ccc=cc/((-2*p1p5)*(2*ffmcfmb*p3p4+2*fmc2)*(-fmb2+fmc2+hbcm2+2*
0018      . p3p4))
0019       b(1)=ccc*(w1*(8*p5p6*(fmb*fmc*hbcm-fmc2*hbcm)+8*p4p6*(fmb*fmc*
0020      . hbcm-fmc2*hbcm)+8*p3p6*(fmb*fmc*hbcm-fmc2*hbcm)+8*(-hbcm*p3p4*
0021      . p3p6-hbcm*p3p4*p4p6-hbcm*p3p4*p5p6))+32*(-fb3*hbcm*p3p6-fb3*
0022      . hbcm*p4p6-fb3*hbcm*p5p6))
0023       b(2)=w1*ccc*(8*p6p7*(-fmb2*fmc*hbcm+fmc*hbcm3+fmc3*hbcm)+16*fmc
0024      . *hbcm*p3p4*p6p7)
0025       b(3)=ccc*(w1*(16*(p6p7*p5p8)*(-fmb*fmc*hbcm+fmc2*hbcm)+16*(p6p8
0026      . *p5p7)*(fmb*fmc*hbcm-fmc2*hbcm)+8*(p6p7*p4p8)*(-2*fmb*fmc*hbcm
0027      . +fmb2*hbcm+fmc2*hbcm-hbcm3)+16*(p6p7*p2p8)*(fmb*fmc*hbcm-fmc2*
0028      . hbcm)+16*(p6p7*p1p8)*(fmb*fmc*hbcm-fmc2*hbcm)+16*(-hbcm*p1p8*
0029      . p3p4*p6p7-hbcm*p2p8*p3p4*p6p7-hbcm*p3p4*p5p7*p6p8+hbcm*p3p4*
0030      . p5p8*p6p7))+64*(-fb3*hbcm*p1p8*p6p7-fb3*hbcm*p2p8*p6p7+fb3*
0031      . hbcm*p4p8*p6p7-fb3*hbcm*p5p7*p6p8+fb3*hbcm*p5p8*p6p7))
0032       b(4)=ccc*(w1*(8*p5p7*(fmb*fmc*hbcm-fmc2*hbcm)-8*hbcm*p3p4*p5p7)
0033      . -32*fb3*hbcm*p5p7)
0034       b(5)=8*ccc*w1*(p5p7*p4p8)*(fmb*hbcm-fmc*hbcm)
0035       b(6)=ccc*(w1*(8*(p5p7*p3p4)*(-fmb*hbcm+fmc*hbcm)+8*fmc*hbcm3*
0036      . p5p7)+32*p5p7*(-fb3*fmb*hbcm-fb3*fmc*hbcm))
0037       b(7)=8*ccc*(p5p7*p4p8)*(8*fb3*hbcm-hbcm3*w1)
0038       b(8)=w1*ccc*(8*p6p8*(-fmb2*fmc*hbcm+fmc*hbcm3+fmc3*hbcm)+8*(
0039      . p5p6*p4p8)*(fmb*hbcm-fmc*hbcm)+8*(p4p8*p4p6)*(fmb*hbcm-fmc*
0040      . hbcm)+8*(p4p8*p3p6)*(fmb*hbcm-fmc*hbcm)+16*fmc*hbcm*p3p4*p6p8)
0041       b(9)=ccc*(w1*(8*p3p6*(fmb2*fmc*hbcm-fmc3*hbcm)+8*(p5p6*p3p4)*(-
0042      . fmb*hbcm+fmc*hbcm)+8*(p4p6*p3p4)*(-fmb*hbcm+fmc*hbcm)+8*(p3p6*
0043      . p3p4)*(-fmb*hbcm-fmc*hbcm)+8*(fmc*hbcm3*p4p6+fmc*hbcm3*p5p6))+
0044      . (32*p5p6*(-fb3*fmb*hbcm-fb3*fmc*hbcm)+32*p4p6*(-fb3*fmb*hbcm-
0045      . fb3*fmc*hbcm)+32*p3p6*(-fb3*fmb*hbcm-fb3*fmc*hbcm)))
0046       ans=ccc*(w1*(16*p6p8*(-fmb*fmc*hbcm3+fmc2*hbcm3)+16*(p5p8*p3p6)
0047      . *(fmb*fmc*hbcm-fmc2*hbcm)+8*(p4p8*p3p6)*(2*fmb*fmc*hbcm-fmb2*
0048      . hbcm-fmc2*hbcm)+16*(p6p8*p3p5)*(-fmb*fmc*hbcm+fmc2*hbcm)+8*(
0049      . p6p8*p3p4)*(-2*fmb*fmc*hbcm+fmb2*hbcm+fmc2*hbcm+hbcm3)+16*(
0050      . p3p6*p2p8)*(-fmb*fmc*hbcm+fmc2*hbcm)+16*(p6p8*p2p3)*(fmb*fmc*
0051      . hbcm-fmc2*hbcm)+16*(p3p6*p1p8)*(-fmb*fmc*hbcm+fmc2*hbcm)+16*(
0052      . p6p8*p1p3)*(fmb*fmc*hbcm-fmc2*hbcm)+8*(-2*hbcm*p1p3*p3p4*p6p8+
0053      . 2*hbcm*p1p8*p3p4*p3p6-2*hbcm*p2p3*p3p4*p6p8+2*hbcm*p2p8*p3p4*
0054      . p3p6+2*hbcm*p3p4*p3p5*p6p8-2*hbcm*p3p4*p3p6*p5p8-hbcm3*p4p6*
0055      . p4p8-hbcm3*p4p8*p5p6))+(32*p6p8*(fb3*fmb2*hbcm-fb3*fmc2*hbcm+
0056      . fb3*hbcm3)+64*(-fb3*hbcm*p1p3*p6p8+fb3*hbcm*p1p8*p3p6-fb3*hbcm
0057      . *p2p3*p6p8+fb3*hbcm*p2p8*p3p6+fb3*hbcm*p3p5*p6p8-fb3*hbcm*p3p6
0058      . *p5p8+fb3*hbcm*p4p6*p4p8+fb3*hbcm*p4p8*p5p6)))
0059       b(10)=ans
0060       b(11)=ccc*(w1*(16*p6p7*(fmb*fmc*hbcm3-fmc2*hbcm3)+16*(p5p7*p3p6
0061      . )*(-fmb*fmc*hbcm+fmc2*hbcm)+16*(p6p7*p3p5)*(fmb*fmc*hbcm-fmc2*
0062      . hbcm)+8*(p6p7*p3p4)*(2*fmb*fmc*hbcm-fmb2*hbcm-fmc2*hbcm-hbcm3)
0063      . +16*(p6p7*p2p3)*(-fmb*fmc*hbcm+fmc2*hbcm)+16*(p6p7*p1p3)*(-fmb
0064      . *fmc*hbcm+fmc2*hbcm)+16*(hbcm*p1p3*p3p4*p6p7+hbcm*p2p3*p3p4*
0065      . p6p7-hbcm*p3p4*p3p5*p6p7+hbcm*p3p4*p3p6*p5p7))+(32*p6p7*(-fb3*
0066      . fmb2*hbcm+fb3*fmc2*hbcm-fb3*hbcm3)+64*(fb3*hbcm*p1p3*p6p7+fb3*
0067      . hbcm*p2p3*p6p7-fb3*hbcm*p3p5*p6p7+fb3*hbcm*p3p6*p5p7)))
0068       ans2=(64*(p6p7*p5p8)*(-fb3*fmb*hbcm-fb3*fmc*hbcm)+64*(p6p8*p5p7
0069      . )*(fb3*fmb*hbcm+fb3*fmc*hbcm)+64*(p7p8*p5p6)*(fb3*fmb*hbcm+fb3
0070      . *fmc*hbcm)+64*(p6p7*p4p8)*(-fb3*fmb*hbcm-fb3*fmc*hbcm)+64*(
0071      . p7p8*p4p6)*(fb3*fmb*hbcm+fb3*fmc*hbcm)+64*(p7p8*p3p6)*(fb3*fmb
0072      . *hbcm+fb3*fmc*hbcm)+64*(p6p7*p1p8)*(fb3*fmb*hbcm+fb3*fmc*hbcm)
0073      . )
0074       ans1=w1*(16*(p6p8*p3p7)*(fmb2*fmc*hbcm-fmc*hbcm3-fmc3*hbcm)+16*
0075      . (p7p8*p3p6)*(-fmb2*fmc*hbcm+fmc3*hbcm)+16*(p5p6*p4p8*p3p7)*(-
0076      . fmb*hbcm+fmc*hbcm)+16*(p4p8*p4p6*p3p7)*(-fmb*hbcm+fmc*hbcm)+16
0077      . *(p5p7*p4p8*p3p6)*(-fmb*hbcm+fmc*hbcm)+16*(p4p8*p3p7*p3p6)*(-
0078      . fmb*hbcm+fmc*hbcm)+16*(p6p7*p4p8*p3p5)*(fmb*hbcm-fmc*hbcm)+16*
0079      . (p6p7*p5p8*p3p4)*(-fmb*hbcm+fmc*hbcm)+16*(p6p8*p5p7*p3p4)*(fmb
0080      . *hbcm-fmc*hbcm)+16*(p7p8*p5p6*p3p4)*(fmb*hbcm-fmc*hbcm)+16*(
0081      . p7p8*p4p6*p3p4)*(fmb*hbcm-fmc*hbcm)+16*(p7p8*p3p6*p3p4)*(fmb*
0082      . hbcm+fmc*hbcm)+16*(p6p7*p4p8*p2p3)*(-fmb*hbcm+fmc*hbcm)+16*(
0083      . p6p7*p3p4*p1p8)*(fmb*hbcm-fmc*hbcm)+16*(p6p7*p4p8*p1p3)*(-fmb*
0084      . hbcm+fmc*hbcm)+16*(fmb*hbcm3*p4p8*p6p7-2*fmc*hbcm*p3p4*p3p7*
0085      . p6p8-fmc*hbcm3*p1p8*p6p7-fmc*hbcm3*p4p6*p7p8-fmc*hbcm3*p5p6*
0086      . p7p8-fmc*hbcm3*p5p7*p6p8+fmc*hbcm3*p5p8*p6p7))+ans2
0087       ans=ccc*ans1
0088       b(12)=ans
0089       b(13)=ccc*(w1*(8*p5p8*(-fmb*fmc*hbcm+fmc2*hbcm)+4*p4p8*(-2*fmb*
0090      . fmc*hbcm+fmb2*hbcm+fmc2*hbcm-hbcm3)+8*p2p8*(fmb*fmc*hbcm-fmc2*
0091      . hbcm)+8*p1p8*(fmb*fmc*hbcm-fmc2*hbcm)+8*(-hbcm*p1p8*p3p4-hbcm*
0092      . p2p8*p3p4+hbcm*p3p4*p5p8))+32*(-fb3*hbcm*p1p8-fb3*hbcm*p2p8+
0093      . fb3*hbcm*p4p8+fb3*hbcm*p5p8))
0094       b(14)=4*ccc*w1*(fmb2*fmc*hbcm-2*fmc*hbcm*p3p4-fmc*hbcm3-fmc3*
0095      . hbcm)
0096       b(15)=ccc*(w1*(8*(p4p8*p3p5)*(-fmb*hbcm+fmc*hbcm)+8*(p5p8*p3p4)
0097      . *(fmb*hbcm-fmc*hbcm)+8*(p3p4*p2p8)*(-fmb*hbcm+fmc*hbcm)+8*(
0098      . p4p8*p2p3)*(fmb*hbcm-fmc*hbcm)+8*(p3p4*p1p8)*(-fmb*hbcm+fmc*
0099      . hbcm)+8*(p4p8*p1p3)*(fmb*hbcm-fmc*hbcm)+8*(-fmb*hbcm3*p4p8+fmc
0100      . *hbcm3*p1p8+fmc*hbcm3*p2p8-fmc*hbcm3*p5p8))+(32*p5p8*(fb3*fmb*
0101      . hbcm+fb3*fmc*hbcm)+32*p4p8*(fb3*fmb*hbcm+fb3*fmc*hbcm)+32*p2p8
0102      . *(-fb3*fmb*hbcm-fb3*fmc*hbcm)+32*p1p8*(-fb3*fmb*hbcm-fb3*fmc*
0103      . hbcm)))
0104       b(16)=ccc*(w1*(8*p3p5*(fmb*fmc*hbcm-fmc2*hbcm)+4*p3p4*(2*fmb*
0105      . fmc*hbcm-fmb2*hbcm-fmc2*hbcm-hbcm3)+8*p2p3*(-fmb*fmc*hbcm+fmc2
0106      . *hbcm)+8*p1p3*(-fmb*fmc*hbcm+fmc2*hbcm)+8*(fmb*fmc*hbcm3-fmc2*
0107      . hbcm3+hbcm*p1p3*p3p4+hbcm*p2p3*p3p4-hbcm*p3p4*p3p5))+16*(-fb3*
0108      . fmb2*hbcm+fb3*fmc2*hbcm+2*fb3*hbcm*p1p3+2*fb3*hbcm*p2p3-2*fb3*
0109      . hbcm*p3p5-fb3*hbcm3))
0110       b(17)=ccc*(w1*(8*p6p8*(-fmb*fmc*hbcm+fmc2*hbcm)+8*hbcm*p3p4*
0111      . p6p8)+32*fb3*hbcm*p6p8)
0112       b(19)=4*ccc*p4p8*(-8*fb3*hbcm+hbcm3*w1)
0113       b(20)=4*ccc*w1*p4p8*(-fmb*hbcm+fmc*hbcm)
0114       b(22)=ccc*(4*w1*(-fmb*fmc*hbcm+fmc2*hbcm+hbcm*p3p4)+16*fb3*hbcm
0115      . )
0116       b(24)=ccc*(w1*(4*p3p4*(fmb*hbcm-fmc*hbcm)-4*fmc*hbcm3)+16*(fb3*
0117      . fmb*hbcm+fb3*fmc*hbcm))
0118       b(26)=ccc*(w1*(8*p3p6*(fmb*fmc*hbcm-fmc2*hbcm)-8*hbcm*p3p4*p3p6
0119      . )-32*fb3*hbcm*p3p6)
0120       b(28)=ccc*(w1*(8*(p4p8*p3p6)*(fmb*hbcm-fmc*hbcm)+8*(p6p8*p3p4)*
0121      . (-fmb*hbcm+fmc*hbcm)+8*fmc*hbcm3*p6p8)+32*p6p8*(-fb3*fmb*hbcm-
0122      . fb3*fmc*hbcm))
0123       b(29)=ccc*(w1*(8*(p6p7*p3p4)*(fmb*hbcm-fmc*hbcm)-8*fmc*hbcm3*
0124      . p6p7)+32*p6p7*(fb3*fmb*hbcm+fb3*fmc*hbcm))
0125       b(30)=8*ccc*(p6p7*p4p8)*(-8*fb3*hbcm+hbcm3*w1)
0126       b(31)=8*ccc*w1*(p6p7*p4p8)*(fmb*hbcm-fmc*hbcm)
0127       b(32)=ccc*(w1*(8*p6p7*(-fmb*fmc*hbcm+fmc2*hbcm)+8*hbcm*p3p4*
0128      . p6p7)+32*fb3*hbcm*p6p7)
0129       do 200 n=1,32
0130          c(n,1)=c(n,1)-0.7272727272727273d0*b(n)
0131          c(n,2)=c(n,2)+0.1344727748424798d0*b(n)
0132          c(n,3)=c(n,3)+0.1662127982237257d0*b(n)
0133 200   continue
0134       return
0135         end
0136
0137       subroutine amp18_3p1(cc)
0138       implicit double precision(a-h,o-z)
0139       implicit integer (i-n)
0140       dimension b(32)
0141 #include "inclcon.h"
0142 #include "inclppp.h"
0143 #include "inclamp.h"
0144       do 100 n=1,32
0145          b(n)=0.0d0
0146 100   continue
0147       ccc=cc/((2*ffmcfmb*p3p4+2*fmc2)*(2*ffmcfmb*p2p3-fmb2-2*fmc*hbcm
0148      . +fmc2+hbcm2-2*p2p3)*(2*ffmcfmb*p3p4+2*ffmcfmb*p3p5+2*fmc2+2*
0149      . p4p5))
0150       ans=ccc*(w18*(8*(p5p6*p3p5)*(fmb+fmc-hbcm)+16*(p4p6*p3p5)*(-fmb
0151      . -fmc+hbcm)+8*(p5p6*p3p4)*(fmb+fmc-hbcm)+16*(p4p6*p3p4)*(-fmb-
0152      . fmc+hbcm)+24*p4p6*(-fmb*hbcm2+fmb2*hbcm+fmc*hbcm2-fmc2*hbcm)+
0153      . 16*p3p6*(-fmb*fmc*hbcm+fmb2*fmc+fmc2*hbcm-fmc3)+8*(p3p6*p3p5)*
0154      . (-ffmcfmb*fmb-ffmcfmb*fmc+fmc)+8*(p3p6*p3p4)*(-ffmcfmb*fmb-
0155      . ffmcfmb*fmc+fmc)+16*(-fmc*p2p3*p4p6+2*fmc*p2p3*p5p6+fmc*p2p4*
0156      . p3p6-2*fmc*p2p5*p3p6+3*hbcm*p2p4*p5p6-3*hbcm*p2p5*p4p6))+w1*(8
0157      . *(p5p6*p3p4)*(fmb+fmc-hbcm)+16*(p4p6*p3p4)*(-fmb-fmc+hbcm)+16*
0158      . p3p6*(-fmb*fmc2+fmc2*hbcm-fmc3)+8*p5p6*(fmb*fmc*hbcm-fmc*hbcm2
0159      . +fmc2*hbcm)+24*p4p6*(-fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+8*(
0160      . p3p6*p3p4)*(-ffmcfmb*fmb-ffmcfmb*fmc+fmc)+16*(-fmc*p2p3*p4p6+
0161      . fmc*p2p4*p3p6))+w8*(8*(p5p6*p2p3)*(fmb+fmc-hbcm)+16*(p4p6*p2p3
0162      . )*(-fmb-fmc+hbcm)+8*(p3p6*p2p3)*(-ffmcfmb*fmb-ffmcfmb*fmc+fmc)
0163      . )+(32*p5p6*(-fb3*fmc+fb3*hbcm-fb4*fmb)+64*p4p6*(fb3*fmc-fb3*
0164      . hbcm+fb4*fmb)+4*p3p6*(8*fb3*ffmcfmb*fmc-8*fb3*fmc+8*fb4*
0165      . ffmcfmb*fmb+fmb+fmc-hbcm)))
0166       b(1)=ans
0167       ans3=((p5p6*p3p7)*(-64*fb4*ffmcfmb+64*fb4-8)+(p4p6*p3p7)*(64*
0168      . fb4*ffmcfmb-64*fb4+8)+(p6p7*p2p3)*(-64*fb4*ffmcfmb-8)+8*p6p7*(
0169      . -8*fb3*fmb*fmc+4*fb3*fmb*hbcm+8*fb3*fmc*hbcm-8*fb3*fmc2-8*fb4*
0170      . fmb*fmc-4*fb4*fmb2+4*fb4*fmc*hbcm-4*fb4*fmc2+fmb*hbcm+fmc*hbcm
0171      . -hbcm2)+64*(-2*fb4*p2p4*p6p7+fb4*p2p5*p6p7))
0172       ans2=w18*(32*(p5p6*p4p7)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p5p7*
0173      . p4p6)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p7*p4p5)*(fmb*hbcm+fmc*
0174      . hbcm-hbcm2)+48*(p6p7*p2p4)*(fmb*hbcm+fmc*hbcm)+8*p6p7*(3*fmb*
0175      . fmc2*hbcm-fmb2*fmc*hbcm+fmb2*hbcm2-fmb3*hbcm-3*fmc2*hbcm2+3*
0176      . fmc3*hbcm)+16*(p5p6*p3p7)*(-fmb*fmc+fmc*hbcm-fmc2)+16*(p4p6*
0177      . p3p7)*(-fmb*fmc+2*fmb*hbcm+fmc*hbcm-fmc2)+16*(p5p7*p3p6)*(fmb*
0178      . fmc-fmc*hbcm+fmc2)+16*(p4p7*p3p6)*(-fmb*fmc+fmc*hbcm-fmc2)+8*(
0179      . p6p7*p3p5)*(4*fmb*fmc-fmb*hbcm+fmb2-3*fmc*hbcm+3*fmc2)+8*(p6p7
0180      . *p3p4)*(4*fmb*fmc-fmb*hbcm+fmb2-3*fmc*hbcm+3*fmc2)+32*(p6p7*
0181      . p2p3)*(fmb*fmc+fmc2)+(p5p6*p3p7*p3p5)*(16*ffmcfmb-16)+(p4p6*
0182      . p3p7*p3p5)*(-16*ffmcfmb+16)+(p5p6*p3p7*p3p4)*(16*ffmcfmb-16)+(
0183      . p4p6*p3p7*p3p4)*(-16*ffmcfmb+16)+16*(p3p7*p3p6)*(-ffmcfmb*fmb*
0184      . fmc-ffmcfmb*fmc2+fmb*fmc+fmc2)+16*(ffmcfmb*p2p3*p3p4*p6p7+
0185      . ffmcfmb*p2p3*p3p5*p6p7+2*p2p4*p3p4*p6p7+2*p2p4*p3p5*p6p7-p2p5*
0186      . p3p4*p6p7-p2p5*p3p5*p6p7))+ans3
0187       ans1=w8*(16*(p6p7*p2p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p6p7*
0188      . p2p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p6p7*p2p3)*(4*fmb*fmc-fmb*
0189      . hbcm+fmb2-3*fmc*hbcm+3*fmc2)+(p5p6*p3p7*p2p3)*(16*ffmcfmb-16)+
0190      . (p4p6*p3p7*p2p3)*(-16*ffmcfmb+16)+16*(ffmcfmb*p2p3s2*p6p7+2*
0191      . p2p3*p2p4*p6p7-p2p3*p2p5*p6p7))+w1*(16*(p5p6*p3p7)*(-fmc*hbcm+
0192      . fmc2)+16*(p6p7*p4p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p4p6*p3p7)
0193      . *(fmb*fmc+fmc*hbcm-fmc2)+16*(p4p7*p3p6)*(-fmb*fmc+fmc*hbcm-
0194      . fmc2)+8*(p6p7*p3p4)*(4*fmb*fmc-fmb*hbcm+fmb2-3*fmc*hbcm+3*fmc2
0195      . )+8*p6p7*(-fmb*fmc*hbcm2+4*fmb*fmc2*hbcm+fmb2*fmc*hbcm-3*fmc2*
0196      . hbcm2+3*fmc3*hbcm)+(p5p6*p3p7*p3p4)*(16*ffmcfmb-16)+(p4p6*p3p7
0197      . *p3p4)*(-16*ffmcfmb+16)+16*(p3p7*p3p6)*(-ffmcfmb*fmc2+fmc2)+16
0198      . *(ffmcfmb*p2p3*p3p4*p6p7+3*fmc*hbcm*p2p4*p6p7-fmc*hbcm*p2p5*
0199      . p6p7+2*fmc2*p2p3*p6p7+2*p2p4*p3p4*p6p7-p2p5*p3p4*p6p7))+ans2
0200       ans=ccc*ans1
0201       b(2)=ans
0202       ans4=16*(p6p8*p3p7*p3p4)*(ffmcfmb*fmb-ffmcfmb*fmc-fmb+fmc)+16*(
0203      . p7p8*p3p6*p3p4)*(ffmcfmb*fmb+ffmcfmb*fmc-fmc)+16*(2*fmc*p2p3*
0204      . p4p7*p6p8-2*fmc*p2p3*p4p8*p6p7-2*fmc*p2p3*p5p6*p7p8-2*fmc*p2p3
0205      . *p5p7*p6p8+2*fmc*p2p3*p5p8*p6p7-2*fmc*p2p4*p3p7*p6p8+2*fmc*
0206      . p2p5*p3p6*p7p8+2*fmc*p2p5*p3p7*p6p8-2*fmc*p2p8*p3p4*p6p7-2*fmc
0207      . *p2p8*p3p5*p6p7-2*fmc*p2p8*p3p6*p5p7+2*fmc*p2p8*p3p7*p5p6-2*
0208      . fmc2*hbcm*p2p8*p6p7-hbcm*p2p4*p4p8*p6p7-2*hbcm*p2p4*p5p6*p7p8-
0209      . 4*hbcm*p2p4*p5p7*p6p8+3*hbcm*p2p4*p5p8*p6p7+2*hbcm*p2p5*p4p6*
0210      . p7p8+4*hbcm*p2p5*p4p7*p6p8-3*hbcm*p2p5*p4p8*p6p7+hbcm*p2p5*
0211      . p5p8*p6p7-2*hbcm*p2p8*p4p5*p6p7-2*hbcm*p2p8*p4p6*p5p7+2*hbcm*
0212      . p2p8*p4p7*p5p6)
0213       ans3=16*(p5p8*p5p6*p3p7)*(-fmc+hbcm)+16*(p5p6*p4p8*p3p7)*(fmc-
0214      . hbcm)+32*(p5p8*p4p6*p3p7)*(-fmc+hbcm)+16*(p6p7*p5p8*p3p5)*(fmb
0215      . +fmc-hbcm)+16*(p6p8*p5p7*p3p5)*(-fmb-fmc+hbcm)+16*(p6p7*p4p8*
0216      . p3p5)*(-fmb-fmc+hbcm)+16*(p6p8*p4p7*p3p5)*(fmb+fmc-hbcm)+16*(
0217      . p7p8*p4p6*p3p5)*(fmb+fmc-hbcm)+16*(p6p7*p5p8*p3p4)*(fmb+fmc-
0218      . hbcm)+16*(p6p8*p5p7*p3p4)*(-fmb-fmc+hbcm)+16*(p6p7*p4p8*p3p4)*
0219      . (-fmb-fmc+hbcm)+16*(p6p8*p4p7*p3p4)*(fmb+fmc-hbcm)+16*(p7p8*
0220      . p4p6*p3p4)*(fmb+fmc-hbcm)+8*(p6p7*p5p8)*(fmb*hbcm2-fmb2*hbcm-
0221      . fmc*hbcm2+fmc2*hbcm)+24*(p6p7*p4p8)*(-fmb*hbcm2+fmb2*hbcm+fmc*
0222      . hbcm2-fmc2*hbcm)+32*(p6p8*p4p7)*(fmb*hbcm2-fmb2*hbcm-fmc*hbcm2
0223      . +fmc2*hbcm)+16*(p7p8*p4p6)*(fmb*hbcm2-fmb2*hbcm-fmc*hbcm2+fmc2
0224      . *hbcm)+16*(p6p8*p3p7)*(fmb*fmc*hbcm-fmb2*hbcm)+16*(p7p8*p3p6)*
0225      . (fmb*fmc*hbcm-fmb2*fmc-fmc2*hbcm+fmc3)+16*(p5p8*p3p7*p3p6)*(-
0226      . ffmcfmb*fmc+fmc)+16*(p4p8*p3p7*p3p6)*(ffmcfmb*fmc-fmc)+16*(
0227      . p6p8*p3p7*p3p5)*(ffmcfmb*fmb-ffmcfmb*fmc-fmb+fmc)+16*(p7p8*
0228      . p3p6*p3p5)*(ffmcfmb*fmb+ffmcfmb*fmc-fmc)+ans4
0229       ans2=w18*ans3
0230       ans6=w8*(16*(p5p6*p3p7*p2p8)*(fmc-hbcm)+32*(p4p6*p3p7*p2p8)*(-
0231      . fmc+hbcm)+32*(p6p8*p3p7*p2p5)*(fmc-hbcm)+32*(p6p8*p3p7*p2p4)*(
0232      . -fmc+hbcm)+16*(p6p7*p5p8*p2p3)*(fmb+fmc-hbcm)+16*(p6p8*p5p7*
0233      . p2p3)*(-fmb-fmc+hbcm)+16*(p6p7*p4p8*p2p3)*(-fmb-fmc+hbcm)+16*(
0234      . p6p8*p4p7*p2p3)*(fmb+fmc-hbcm)+16*(p7p8*p4p6*p2p3)*(fmb+fmc-
0235      . hbcm)+8*(p6p7*p2p8)*(-fmb*hbcm2+fmb2*hbcm+fmc*hbcm2-fmc2*hbcm)
0236      . +16*(p3p7*p3p6*p2p8)*(-ffmcfmb*fmc+fmc)+16*(p6p8*p3p7*p2p3)*(
0237      . ffmcfmb*fmb-ffmcfmb*fmc-fmb+fmc)+16*(p7p8*p3p6*p2p3)*(ffmcfmb*
0238      . fmb+ffmcfmb*fmc-fmc)+16*(hbcm*p2p4*p2p8*p6p7-hbcm*p2p5*p2p8*
0239      . p6p7))+(8*(p6p8*p3p7)*(-8*fb4*ffmcfmb*fmb+8*fb4*ffmcfmb*fmc+8*
0240      . fb4*fmb-8*fb4*fmc-fmb+hbcm)+64*(p6p7*p5p8)*(-fb3*fmc+fb3*hbcm-
0241      . fb4*fmb)+64*(p6p8*p5p7)*(fb3*fmc-fb3*hbcm+fb4*fmb)+64*(p6p7*
0242      . p4p8)*(fb3*fmc-fb3*hbcm+fb4*fmb)+64*(p6p8*p4p7)*(-fb3*fmc+fb3*
0243      . hbcm-fb4*fmb)+64*(p7p8*p4p6)*(-fb3*fmc+fb3*hbcm-fb4*fmb)+16*(
0244      . p6p7*p2p8)*(4*fb3*fmc+4*fb4*fmc-hbcm)+8*(p7p8*p3p6)*(-8*fb3*
0245      . ffmcfmb*fmc+8*fb3*fmc-8*fb4*ffmcfmb*fmb-fmb-2*fmc+hbcm)-8*hbcm
0246      . *p5p6*p7p8)
0247       ans5=w1*(16*(p5p6*p4p8*p3p7)*(-fmc+hbcm)+32*(p6p8*p4p5*p3p7)*(
0248      . fmc-hbcm)+16*(p6p7*p5p8*p3p4)*(fmb+fmc-hbcm)+16*(p6p8*p5p7*
0249      . p3p4)*(-fmb-fmc+hbcm)+16*(p6p7*p4p8*p3p4)*(-fmb-fmc+hbcm)+16*(
0250      . p6p8*p4p7*p3p4)*(fmb+fmc-hbcm)+16*(p7p8*p4p6*p3p4)*(fmb+fmc-
0251      . hbcm)+16*(p7p8*p3p6)*(fmb*fmc2-fmc2*hbcm+fmc3)+16*(p6p7*p5p8)*
0252      . (fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+16*(p6p8*p5p7)*(-fmb*fmc*
0253      . hbcm+fmc*hbcm2-fmc2*hbcm)+8*(p6p7*p4p8)*(-4*fmb*fmc*hbcm+fmb*
0254      . hbcm2-fmb2*hbcm+3*fmc*hbcm2-3*fmc2*hbcm)+32*(p6p8*p4p7)*(fmb*
0255      . fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+16*(p7p8*p4p6)*(fmb*fmc*hbcm-fmc
0256      . *hbcm2+fmc2*hbcm)+16*(p6p8*p3p7)*(-fmb*fmc*hbcm+2*fmb*fmc2)+16
0257      . *(p4p8*p3p7*p3p6)*(ffmcfmb*fmc-fmc)+16*(p6p8*p3p7*p3p4)*(
0258      . ffmcfmb*fmb-ffmcfmb*fmc-fmb+fmc)+16*(p7p8*p3p6*p3p4)*(ffmcfmb*
0259      . fmb+ffmcfmb*fmc-fmc)+16*(2*fmc*p2p3*p4p7*p6p8-2*fmc*p2p3*p4p8*
0260      . p6p7-2*fmc*p2p4*p3p7*p6p8-2*fmc*p2p8*p3p4*p6p7-2*fmc2*hbcm*
0261      . p2p8*p6p7-hbcm*p2p4*p4p8*p6p7+hbcm*p2p5*p4p8*p6p7))+ans6
0262       ans1=ans2+ans5
0263       ans=ccc*ans1
0264       b(3)=ans
0265       ans2=(4*p3p7*(-16*fb4*ffmcfmb*fmb+16*fb4*ffmcfmb*fmc+8*fb4*fmb-
0266      . 16*fb4*fmc-2*fmb+hbcm)+32*p5p7*(fb3*fmc-fb3*hbcm+fb4*fmb)+64*
0267      . p4p7*(-fb3*fmc+fb3*hbcm-fb4*fmb))
0268       ans1=w18*(16*(p4p5*p3p7)*(-fmc+hbcm)+8*(p5p7*p3p5)*(-fmb-fmc+
0269      . hbcm)+16*(p4p7*p3p5)*(fmb+fmc-hbcm)+8*(p5p7*p3p4)*(-fmb-fmc+
0270      . hbcm)+16*(p4p7*p3p4)*(fmb+fmc-hbcm)+24*p4p7*(fmb*hbcm2-fmb2*
0271      . hbcm-fmc*hbcm2+fmc2*hbcm)+8*p3p7*(2*fmb*fmc*hbcm-fmb2*fmc-fmb2
0272      . *hbcm+fmc2*hbcm-fmc3)+8*(p3p7*p3p5)*(2*ffmcfmb*fmb-2*ffmcfmb*
0273      . fmc-fmb+2*fmc)+8*(p3p7*p3p4)*(2*ffmcfmb*fmb-2*ffmcfmb*fmc-fmb+
0274      . 2*fmc)+16*(fmc*p2p3*p4p7-2*fmc*p2p3*p5p7-fmc*p2p4*p3p7+2*fmc*
0275      . p2p5*p3p7-3*hbcm*p2p4*p5p7+3*hbcm*p2p5*p4p7))+w1*(16*(p4p5*
0276      . p3p7)*(fmc-hbcm)+8*(p5p7*p3p4)*(-fmb-fmc+hbcm)+16*(p4p7*p3p4)*
0277      . (fmb+fmc-hbcm)+8*p5p7*(-fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+24*
0278      . p4p7*(fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+8*p3p7*(-fmb*fmc*hbcm+
0279      . 3*fmb*fmc2+fmc2*hbcm-fmc3)+8*(p3p7*p3p4)*(2*ffmcfmb*fmb-2*
0280      . ffmcfmb*fmc-fmb+2*fmc)+16*(fmc*p2p3*p4p7-fmc*p2p4*p3p7))+w8*(
0281      . 16*(p3p7*p2p5)*(fmc-hbcm)+32*(p3p7*p2p4)*(-fmc+hbcm)+8*(p5p7*
0282      . p2p3)*(-fmb-fmc+hbcm)+16*(p4p7*p2p3)*(fmb+fmc-hbcm)+8*(p3p7*
0283      . p2p3)*(2*ffmcfmb*fmb-2*ffmcfmb*fmc-fmb+2*fmc))+ans2
0284       ans=ccc*ans1
0285       b(4)=ans
0286       ans3=((p5p8*p3p7)*(-64*fb4*ffmcfmb+64*fb4-8)+(p4p8*p3p7)*(64*
0287      . fb4*ffmcfmb-64*fb4+8)+(p3p7*p2p8)*(64*fb4*ffmcfmb+8)+(p7p8*
0288      . p2p3)*(-64*fb4*ffmcfmb-8)+4*p7p8*(-8*fb3*fmb*fmc+8*fb3*fmc*
0289      . hbcm-8*fb3*fmc2-8*fb4*fmb*fmc+8*fb4*fmc*hbcm-8*fb4*fmc2+3*fmb*
0290      . hbcm+3*fmc*hbcm-2*hbcm2)+64*(-fb4*p2p4*p7p8+fb4*p2p8*p4p7))
0291       ans2=w1*(16*(p5p8*p3p7)*(-fmc*hbcm+fmc2)+8*(p5p7*p4p8)*(-fmb*
0292      . hbcm-fmc*hbcm+hbcm2)+8*(p4p8*p4p7)*(fmb*hbcm+fmc*hbcm-hbcm2)+
0293      . 16*p7p8*(fmb*fmc2*hbcm-fmc2*hbcm2+fmc3*hbcm)+8*(p4p8*p3p7)*(3*
0294      . fmb*fmc-fmb*hbcm+fmc*hbcm-fmc2)+16*(p7p8*p3p4)*(fmb*fmc-fmc*
0295      . hbcm+fmc2)+(p5p8*p3p7*p3p4)*(16*ffmcfmb-16)+(p4p8*p3p7*p3p4)*(
0296      . -16*ffmcfmb+16)+16*(ffmcfmb*p2p3*p3p4*p7p8-ffmcfmb*p2p8*p3p4*
0297      . p3p7+fmc*hbcm*p2p4*p7p8-fmc*hbcm*p2p8*p4p7+fmc2*p2p3*p7p8-fmc2
0298      . *p2p8*p3p7+p2p4*p3p4*p7p8-p2p8*p3p4*p4p7))+w8*(8*(p5p7*p2p8)*(
0299      . fmb*hbcm+fmc*hbcm-hbcm2)+24*(p4p7*p2p8)*(-fmb*hbcm-fmc*hbcm+
0300      . hbcm2)+16*(p7p8*p2p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p3p7*p2p8)*
0301      . (-3*fmb*fmc+fmb*hbcm+3*fmc*hbcm-3*fmc2)+16*(p7p8*p2p3)*(fmb*
0302      . fmc-fmc*hbcm+fmc2)+(p5p8*p3p7*p2p3)*(16*ffmcfmb-16)+(p4p8*p3p7
0303      . *p2p3)*(-16*ffmcfmb+16)+16*(-ffmcfmb*p2p3*p2p8*p3p7+ffmcfmb*
0304      . p2p3s2*p7p8+p2p3*p2p4*p7p8-p2p3*p2p8*p4p7))+ans3
0305       ans1=w18*(8*(p5p8*p5p7)*(-fmb*hbcm-fmc*hbcm+hbcm2)+24*(p5p7*
0306      . p4p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+24*(p5p8*p4p7)*(-fmb*hbcm-fmc*
0307      . hbcm+hbcm2)+8*(p4p8*p4p7)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p7p8*
0308      . p4p5)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p4p7*p2p8)*(-fmb*hbcm-fmc*
0309      . hbcm)+16*(p7p8*p2p4)*(fmb*hbcm+fmc*hbcm)+16*p7p8*(fmb*fmc2*
0310      . hbcm-fmc2*hbcm2+fmc3*hbcm)+8*(p5p8*p3p7)*(-fmb*fmc-fmb*hbcm+
0311      . fmc*hbcm-fmc2)+8*(p4p8*p3p7)*(-fmb*fmc+3*fmb*hbcm+fmc*hbcm-
0312      . fmc2)+16*(p7p8*p3p5)*(fmb*fmc-fmc*hbcm+fmc2)+16*(p7p8*p3p4)*(
0313      . fmb*fmc-fmc*hbcm+fmc2)+16*(p3p7*p2p8)*(-fmb*fmc-fmc2)+16*(p7p8
0314      . *p2p3)*(fmb*fmc+fmc2)+(p5p8*p3p7*p3p5)*(16*ffmcfmb-16)+(p4p8*
0315      . p3p7*p3p5)*(-16*ffmcfmb+16)+(p5p8*p3p7*p3p4)*(16*ffmcfmb-16)+(
0316      . p4p8*p3p7*p3p4)*(-16*ffmcfmb+16)+16*(ffmcfmb*p2p3*p3p4*p7p8+
0317      . ffmcfmb*p2p3*p3p5*p7p8-ffmcfmb*p2p8*p3p4*p3p7-ffmcfmb*p2p8*
0318      . p3p5*p3p7+p2p4*p3p4*p7p8+p2p4*p3p5*p7p8-p2p8*p3p4*p4p7-p2p8*
0319      . p3p5*p4p7))+ans2
0320       ans=ccc*ans1
0321       b(5)=ans
0322       ans3=((p3p7*p3p5)*(64*fb4*ffmcfmb-64*fb4+8)+(p3p7*p3p4)*(-64*
0323      . fb4*ffmcfmb+64*fb4-8)+32*p5p7*(-fb3*fmb*hbcm-fb4*fmc*hbcm+fb4*
0324      . hbcm2)+32*p4p7*(fb3*fmb*hbcm+fb4*fmc*hbcm-fb4*hbcm2)+4*p3p7*(
0325      . 16*fb3*fmb*fmc-8*fb3*fmb*hbcm-16*fb3*fmc*hbcm+16*fb3*fmc2+8*
0326      . fb4*fmb*fmc-8*fb4*fmc*hbcm+8*fb4*fmc2-3*fmb*hbcm-3*fmc*hbcm+2*
0327      . hbcm2)+64*(-fb4*p2p3*p4p7+fb4*p2p4*p3p7))
0328       ans2=w1*(16*(p4p5*p3p7)*(fmc*hbcm-hbcm2)+16*(p3p7*p3p5)*(fmc*
0329      . hbcm-fmc2)+8*(p5p7*p3p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p4p7*
0330      . p3p4)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p3p7*p3p4)*(-5*fmb*fmc+fmb
0331      . *hbcm+fmc*hbcm-fmc2)+8*p5p7*(fmb*fmc*hbcm2-fmc*hbcm3+fmc2*
0332      . hbcm2)+8*p3p7*(2*ffmcfmb*p3p4s2+fmb*fmc*hbcm2-4*fmb*fmc2*hbcm+
0333      . 2*fmc2*hbcm2-2*fmc3*hbcm-2*p3p4s2)+(p3p7*p3p5*p3p4)*(-16*
0334      . ffmcfmb+16)+16*(2*fmc*hbcm*p2p3*p4p7-2*fmc*hbcm*p2p4*p3p7+p2p3
0335      . *p3p4*p4p7-p2p4*p3p4*p3p7))+w8*(16*(p3p7*p2p5)*(fmc*hbcm-hbcm2
0336      . )+16*(p3p7*p2p4)*(-fmb*hbcm-2*fmc*hbcm+2*hbcm2)+8*(p5p7*p2p3)*
0337      . (-fmb*hbcm-fmc*hbcm+hbcm2)+24*(p4p7*p2p3)*(fmb*hbcm+fmc*hbcm-
0338      . hbcm2)+8*(p3p7*p2p3)*(fmb*fmc-fmb*hbcm-fmc*hbcm+fmc2)+(p3p7*
0339      . p3p5*p2p3)*(-16*ffmcfmb+16)+(p3p7*p3p4*p2p3)*(16*ffmcfmb-16)+
0340      . 16*(-p2p3*p2p4*p3p7+p2p3s2*p4p7))+ans3
0341       ans1=w18*(16*(p4p5*p3p7)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p5p7*
0342      . p3p5)*(fmb*hbcm+fmc*hbcm-hbcm2)+24*(p4p7*p3p5)*(fmb*hbcm+fmc*
0343      . hbcm-hbcm2)+24*(p5p7*p3p4)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p4p7*
0344      . p3p4)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p3p7*p2p4)*(-fmb*hbcm-2*
0345      . fmc*hbcm)+16*(p4p7*p2p3)*(fmb*hbcm+2*fmc*hbcm)+8*(p3p7*p3p5)*(
0346      . -fmb*fmc+fmb*hbcm+fmc*hbcm-fmc2)+8*(p3p7*p3p4)*(-fmb*fmc-3*fmb
0347      . *hbcm+fmc*hbcm-fmc2)+16*p5p7*(-fmb*fmc*hbcm2+fmc*hbcm3-fmc2*
0348      . hbcm2)+16*p4p7*(-fmb*fmc*hbcm2+fmb*hbcm3-fmb2*hbcm2)+8*p3p7*(2
0349      . *ffmcfmb*p3p4s2-2*ffmcfmb*p3p5s2-fmb*fmc*hbcm2-2*fmb*fmc2*hbcm
0350      . -fmb2*hbcm2+2*fmc2*hbcm2-2*fmc3*hbcm-2*p3p4s2+2*p3p5s2)+16*(-
0351      . fmc*hbcm*p2p3*p5p7+fmc*hbcm*p2p5*p3p7-2*hbcm2*p2p4*p5p7+2*
0352      . hbcm2*p2p5*p4p7+p2p3*p3p4*p4p7+p2p3*p3p5*p4p7-p2p4*p3p4*p3p7-
0353      . p2p4*p3p5*p3p7))+ans2
0354       ans=ccc*ans1
0355       b(6)=ans
0356       ans4=8*(-fmb*hbcm2*p3p7*p5p8+2*fmb*p3p5*p3p7*p4p8-4*fmc*hbcm2*
0357      . p2p5*p7p8+4*fmc*hbcm2*p2p8*p5p7-2*fmc*p2p3*p3p4*p7p8+2*fmc*
0358      . p2p3*p3p5*p7p8+2*fmc*p2p8*p3p4*p3p7-2*fmc*p2p8*p3p5*p3p7-2*
0359      . hbcm*p2p3*p4p7*p4p8+2*hbcm*p2p3*p4p7*p5p8-4*hbcm*p2p3*p4p8*
0360      . p5p7-2*hbcm*p2p4*p3p4*p7p8+2*hbcm*p2p4*p3p5*p7p8+2*hbcm*p2p4*
0361      . p3p7*p4p8-2*hbcm*p2p4*p3p7*p5p8-4*hbcm*p2p5*p3p4*p7p8+4*hbcm*
0362      . p2p5*p3p7*p4p8+2*hbcm*p2p8*p3p4*p4p7+4*hbcm*p2p8*p3p4*p5p7-2*
0363      . hbcm*p2p8*p3p5*p4p7)
0364       ans3=16*(p5p8*p3p7*p3p4)*(fmc-hbcm)+16*(p4p8*p3p7*p3p4)*(fmb+
0365      . fmc-hbcm)+16*(p7p8*p3p5*p3p4)*(-fmb-fmc+hbcm)+8*(p5p8*p5p7)*(-
0366      . fmb*hbcm2-fmc*hbcm2+hbcm3)+8*(p5p7*p4p8)*(fmb*hbcm2+fmc*hbcm2-
0367      . hbcm3)+16*(p5p8*p4p7)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+16*(p7p8*
0368      . p4p5)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+8*(p4p8*p3p7)*(3*fmb*hbcm2-2
0369      . *fmb2*hbcm-2*fmc*hbcm2+2*fmc2*hbcm)+16*(p7p8*p3p4)*(-fmb*hbcm2
0370      . +fmb2*hbcm+fmc*hbcm2-fmc2*hbcm)+16*(p4p7*p2p8)*(-fmb*hbcm2+fmc
0371      . *hbcm2)+16*(p7p8*p2p4)*(fmb*hbcm2-fmc*hbcm2)+16*p7p8*(-fmb*fmc
0372      . *hbcm3+fmb*fmc2*hbcm2-fmb*p3p4s2+fmb2*fmc*hbcm2-fmc*p3p4s2+
0373      . hbcm*p3p4s2)+16*(p3p7*p2p8)*(-fmb*fmc*hbcm+fmc2*hbcm)+16*(p7p8
0374      . *p2p3)*(fmb*fmc*hbcm-fmc2*hbcm)+ans4
0375       ans2=w18*ans3
0376       ans5=(8*(p5p8*p3p7)*(8*fb3*fmc-8*fb3*hbcm-hbcm)+64*(p4p8*p3p7)*
0377      . (-fb3*fmc+fb3*hbcm-fb4*fmb)+64*(p7p8*p3p4)*(fb3*fmc-fb3*hbcm+
0378      . fb4*fmb)+16*(p3p7*p2p8)*(-4*fb3*fmc+hbcm)+16*(p7p8*p2p3)*(4*
0379      . fb3*fmc-hbcm)+4*p7p8*(-8*fb3*fmb*fmc*hbcm-8*fb3*fmc*hbcm2+8*
0380      . fb3*fmc2*hbcm+8*fb4*fmb*fmc*hbcm+8*fb4*fmc*hbcm2-8*fb4*fmc2*
0381      . hbcm+2*fmb*hbcm2+2*fmc*hbcm2-hbcm3)+8*(8*fb3*hbcm*p2p4*p7p8-8*
0382      . fb3*hbcm*p2p8*p4p7+hbcm*p3p5*p7p8))
0383       ans1=w1*(16*(p4p8*p3p7*p3p5)*(fmc-hbcm)+16*(p5p8*p3p7*p3p4)*(-
0384      . fmc+hbcm)+16*(p5p8*p3p7)*(fmc*hbcm2-fmc2*hbcm)+16*p7p8*(-fmb*
0385      . p3p4s2-fmc*p3p4s2+hbcm*p3p4s2)+16*(p4p8*p3p7*p3p4)*(fmb+fmc-
0386      . hbcm)+8*(p5p7*p4p8)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+8*(p4p8*p3p7)
0387      . *(4*fmb*fmc*hbcm-fmb*hbcm2-2*fmc*hbcm2+2*fmc2*hbcm)+16*(p7p8*
0388      . p3p4)*(-fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+16*(-fmc*hbcm2*p2p4*
0389      . p7p8+fmc*hbcm2*p2p8*p4p7-fmc*p2p3*p3p4*p7p8+fmc*p2p8*p3p4*p3p7
0390      . -fmc2*hbcm*p2p3*p7p8+fmc2*hbcm*p2p8*p3p7-hbcm*p2p3*p4p7*p4p8-
0391      . hbcm*p2p4*p3p4*p7p8+hbcm*p2p4*p3p7*p4p8+hbcm*p2p8*p3p4*p4p7))+
0392      . w8*(16*(p3p7*p3p5*p2p8)*(-fmc+hbcm)+32*(p3p7*p3p4*p2p8)*(fmc-
0393      . hbcm)+16*(p5p8*p3p7*p2p3)*(fmc-hbcm)+16*(p4p8*p3p7*p2p3)*(fmb-
0394      . fmc+hbcm)+16*(p7p8*p3p4*p2p3)*(-fmb-fmc+hbcm)+8*(p5p7*p2p8)*(
0395      . fmb*hbcm2+fmc*hbcm2-hbcm3)+16*(p4p7*p2p8)*(-fmb*hbcm2-fmc*
0396      . hbcm2+hbcm3)+16*(p7p8*p2p4)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+8*(
0397      . p3p7*p2p8)*(-2*fmb*fmc*hbcm+fmb*hbcm2-2*fmc*hbcm2+2*fmc2*hbcm)
0398      . +16*(-fmc*p2p3*p2p8*p3p7+fmc*p2p3s2*p7p8+hbcm*p2p3*p2p4*p7p8-
0399      . hbcm*p2p4*p2p8*p3p7))+ans2+ans5
0400       ans=ccc*ans1
0401       b(7)=ans
0402       ans3=((p3p6*p2p8)*(-64*fb4*ffmcfmb-8)+(p6p8*p2p3)*(-64*fb4*
0403      . ffmcfmb-8)+8*p6p8*(-8*fb3*fmb*fmc+4*fb3*fmb*hbcm+8*fb3*fmc*
0404      . hbcm-8*fb3*fmc2-8*fb4*fmb*fmc-4*fb4*fmb2+4*fb4*fmc*hbcm-4*fb4*
0405      . fmc2+fmb*hbcm+fmc*hbcm-hbcm2)+64*(-2*fb4*p2p4*p6p8+fb4*p2p5*
0406      . p6p8-fb4*p2p8*p4p6))
0407       ans2=w1*(8*(p5p6*p4p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p4p8*p4p6)*
0408      . (-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p6p8*p4p5)*(-fmb*hbcm-fmc*hbcm+
0409      . hbcm2)+16*(p4p8*p3p6)*(-fmb*fmc+fmc*hbcm-fmc2)+8*(p6p8*p3p4)*(
0410      . 4*fmb*fmc-fmb*hbcm+fmb2-3*fmc*hbcm+3*fmc2)+8*p6p8*(-fmb*fmc*
0411      . hbcm2+4*fmb*fmc2*hbcm+fmb2*fmc*hbcm-3*fmc2*hbcm2+3*fmc3*hbcm)+
0412      . 16*(ffmcfmb*p2p3*p3p4*p6p8+ffmcfmb*p2p8*p3p4*p3p6+3*fmc*hbcm*
0413      . p2p4*p6p8-fmc*hbcm*p2p5*p6p8+fmc*hbcm*p2p8*p4p6+2*fmc2*p2p3*
0414      . p6p8+fmc2*p2p8*p3p6+2*p2p4*p3p4*p6p8-p2p5*p3p4*p6p8+p2p8*p3p4*
0415      . p4p6))+w8*(8*(p5p6*p2p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+24*(p4p6*
0416      . p2p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p8*p2p5)*(-fmb*hbcm-fmc*
0417      . hbcm+hbcm2)+32*(p6p8*p2p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p3p6*
0418      . p2p8)*(fmb*fmc-fmc*hbcm+fmc2)+8*(p6p8*p2p3)*(4*fmb*fmc-fmb*
0419      . hbcm+fmb2-3*fmc*hbcm+3*fmc2)+16*(ffmcfmb*p2p3*p2p8*p3p6+
0420      . ffmcfmb*p2p3s2*p6p8+2*p2p3*p2p4*p6p8-p2p3*p2p5*p6p8+p2p3*p2p8*
0421      . p4p6))+ans3
0422       ans1=w18*(8*(p5p8*p5p6)*(fmb*hbcm+fmc*hbcm-hbcm2)+24*(p5p6*p4p8
0423      . )*(-fmb*hbcm-fmc*hbcm+hbcm2)+24*(p5p8*p4p6)*(fmb*hbcm+fmc*hbcm
0424      . -hbcm2)+8*(p4p8*p4p6)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p6p8*p4p5
0425      . )*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p4p6*p2p8)*(fmb*hbcm+fmc*hbcm)
0426      . +48*(p6p8*p2p4)*(fmb*hbcm+fmc*hbcm)+8*p6p8*(3*fmb*fmc2*hbcm-
0427      . fmb2*fmc*hbcm+fmb2*hbcm2-fmb3*hbcm-3*fmc2*hbcm2+3*fmc3*hbcm)+
0428      . 16*(p5p8*p3p6)*(fmb*fmc-fmc*hbcm+fmc2)+16*(p4p8*p3p6)*(-fmb*
0429      . fmc+fmc*hbcm-fmc2)+8*(p6p8*p3p5)*(4*fmb*fmc-fmb*hbcm+fmb2-3*
0430      . fmc*hbcm+3*fmc2)+8*(p6p8*p3p4)*(4*fmb*fmc-fmb*hbcm+fmb2-3*fmc*
0431      . hbcm+3*fmc2)+16*(p3p6*p2p8)*(fmb*fmc+fmc2)+32*(p6p8*p2p3)*(fmb
0432      . *fmc+fmc2)+16*(ffmcfmb*p2p3*p3p4*p6p8+ffmcfmb*p2p3*p3p5*p6p8+
0433      . ffmcfmb*p2p8*p3p4*p3p6+ffmcfmb*p2p8*p3p5*p3p6+2*p2p4*p3p4*p6p8
0434      . +2*p2p4*p3p5*p6p8-p2p5*p3p4*p6p8-p2p5*p3p5*p6p8+p2p8*p3p4*p4p6
0435      . +p2p8*p3p5*p4p6))+ans2
0436       ans=ccc*ans1
0437       b(8)=ans
0438       ans3=w1*(16*(p4p5*p3p6)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p5p6*p3p4)
0439      . *(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p4p6*p3p4)*(fmb*hbcm+fmc*hbcm-
0440      . hbcm2)+8*(p3p6*p3p4)*(-2*fmb*fmc+fmb*hbcm-fmb2+fmc*hbcm-fmc2)+
0441      . 8*p5p6*(-fmb*fmc*hbcm2+fmc*hbcm3-fmc2*hbcm2)+8*p3p6*(fmb*fmc*
0442      . hbcm2-3*fmb*fmc2*hbcm-fmb2*fmc*hbcm+2*fmc2*hbcm2-2*fmc3*hbcm)+
0443      . 16*(-2*ffmcfmb*p2p3*p3p4*p3p6-2*fmc*hbcm*p2p3*p4p6-2*fmc*hbcm*
0444      . p2p4*p3p6+fmc*hbcm*p2p5*p3p6-3*fmc2*p2p3*p3p6-p2p3*p3p4*p4p6-2
0445      . *p2p4*p3p4*p3p6+p2p5*p3p4*p3p6))+((p3p6*p2p3)*(128*fb4*ffmcfmb
0446      . +16)+32*p5p6*(fb3*fmb*hbcm+fb4*fmc*hbcm-fb4*hbcm2)+32*p4p6*(-
0447      . fb3*fmb*hbcm-fb4*fmc*hbcm+fb4*hbcm2)+8*p3p6*(8*fb3*fmb*fmc-4*
0448      . fb3*fmb*hbcm-8*fb3*fmc*hbcm+8*fb3*fmc2+8*fb4*fmb*fmc+4*fb4*
0449      . fmb2-4*fb4*fmc*hbcm+4*fb4*fmc2-fmb*hbcm-fmc*hbcm+hbcm2)+64*(
0450      . fb4*p2p3*p4p6+2*fb4*p2p4*p3p6-fb4*p2p5*p3p6))
0451       ans2=w18*(16*(p4p5*p3p6)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p5p6*
0452      . p3p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)+24*(p4p6*p3p5)*(-fmb*hbcm-fmc
0453      . *hbcm+hbcm2)+24*(p5p6*p3p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p4p6*
0454      . p3p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p3p6*p2p4)*(-3*fmb*hbcm-2*
0455      . fmc*hbcm)+16*(p4p6*p2p3)*(-fmb*hbcm-2*fmc*hbcm)+8*(p3p6*p3p5)*
0456      . (-6*fmb*fmc+fmb*hbcm-fmb2+5*fmc*hbcm-5*fmc2)+8*(p3p6*p3p4)*(-2
0457      . *fmb*fmc+fmb*hbcm-fmb2+fmc*hbcm-fmc2)+48*(p3p6*p2p3)*(-fmb*fmc
0458      . -fmc2)+16*p5p6*(fmb*fmc*hbcm2-fmc*hbcm3+fmc2*hbcm2)+16*p4p6*(
0459      . fmb*fmc*hbcm2-fmb*hbcm3+fmb2*hbcm2)+8*p3p6*(-fmb*fmc*hbcm2-fmb
0460      . *fmc2*hbcm+2*fmb2*fmc*hbcm-fmb2*hbcm2+fmb3*hbcm+2*fmc2*hbcm2-2
0461      . *fmc3*hbcm)+16*(-2*ffmcfmb*p2p3*p3p4*p3p6-2*ffmcfmb*p2p3*p3p5*
0462      . p3p6+fmc*hbcm*p2p3*p5p6-fmc*hbcm*p2p5*p3p6+2*hbcm2*p2p4*p5p6-2
0463      . *hbcm2*p2p5*p4p6-p2p3*p3p4*p4p6-p2p3*p3p5*p4p6-2*p2p4*p3p4*
0464      . p3p6-2*p2p4*p3p5*p3p6+p2p5*p3p4*p3p6+p2p5*p3p5*p3p6))+ans3
0465       ans1=w8*(16*(p3p6*p2p5)*(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p3p6*p2p4
0466      . )*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p5p6*p2p3)*(fmb*hbcm+fmc*hbcm-
0467      . hbcm2)+24*(p4p6*p2p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p3p6*p2p3)
0468      . *(-6*fmb*fmc+fmb*hbcm-fmb2+5*fmc*hbcm-5*fmc2)+16*(-2*ffmcfmb*
0469      . p2p3s2*p3p6-2*p2p3*p2p4*p3p6+p2p3*p2p5*p3p6-p2p3s2*p4p6))+ans2
0470       ans=ccc*ans1
0471       b(9)=ans
0472       ans5=16*(2*fmb*hbcm2*p2p4*p6p8-2*fmc*hbcm2*p2p5*p6p8-2*fmc*
0473      . hbcm2*p2p8*p5p6-4*fmc*p2p3*p3p4*p6p8+3*fmc*p2p3*p3p6*p4p8-3*
0474      . fmc*p2p3*p3p6*p5p8+fmc*p2p8*p3p4*p3p6+3*fmc*p2p8*p3p5*p3p6-2*
0475      . hbcm*p2p3*p4p5*p6p8+hbcm*p2p3*p4p6*p4p8-hbcm*p2p3*p4p6*p5p8+2*
0476      . hbcm*p2p3*p4p8*p5p6-hbcm*p2p4*p3p4*p6p8+3*hbcm*p2p4*p3p5*p6p8+
0477      . hbcm*p2p4*p3p6*p4p8-3*hbcm*p2p4*p3p6*p5p8-3*hbcm*p2p5*p3p4*
0478      . p6p8+hbcm*p2p5*p3p5*p6p8+3*hbcm*p2p5*p3p6*p4p8-hbcm*p2p5*p3p6*
0479      . p5p8-hbcm*p2p8*p3p4*p4p6-2*hbcm*p2p8*p3p4*p5p6+hbcm*p2p8*p3p5*
0480      . p4p6+2*hbcm*p2p8*p3p6*p4p5)
0481       ans4=16*(p5p8*p3p6*p3p5)*(-fmb-fmc+hbcm)+16*(p4p8*p3p6*p3p5)*(
0482      . fmb+fmc-hbcm)+16*(p5p8*p3p6*p3p4)*(-fmb-fmc+hbcm)+16*(p4p8*
0483      . p3p6*p3p4)*(fmb+fmc-hbcm)+8*(p5p8*p5p6)*(fmb*hbcm2+fmc*hbcm2-
0484      . hbcm3)+8*(p5p6*p4p8)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+16*(p5p8*
0485      . p4p6)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+8*(p6p8*p3p5)*(fmb*hbcm2-
0486      . fmb2*hbcm-fmc*hbcm2+fmc2*hbcm)+24*(p6p8*p3p4)*(-fmb*hbcm2+fmb2
0487      . *hbcm+fmc*hbcm2-fmc2*hbcm)+16*(p4p6*p2p8)*(fmb*hbcm2-fmc*hbcm2
0488      . )+8*p6p8*(-2*fmb*fmc*hbcm3+fmb*fmc2*hbcm2-2*fmb*p3p4s2+2*fmb*
0489      . p3p5s2+fmb2*fmc*hbcm2+fmb2*hbcm3-fmb3*hbcm2-2*fmc*p3p4s2+2*fmc
0490      . *p3p5s2+fmc2*hbcm3-fmc3*hbcm2+2*hbcm*p3p4s2-2*hbcm*p3p5s2)+8*(
0491      . p5p8*p3p6)*(fmb*fmc*hbcm-fmb*hbcm2+fmb2*hbcm)+8*(p4p8*p3p6)*(-
0492      . fmb*fmc*hbcm+3*fmb*hbcm2-3*fmb2*hbcm-2*fmc*hbcm2+2*fmc2*hbcm)+
0493      . 16*(p3p6*p2p8)*(fmb*fmc*hbcm+fmc2*hbcm)+16*(p6p8*p2p3)*(fmb*
0494      . fmc*hbcm-3*fmc2*hbcm)+ans5
0495       ans3=w18*ans4
0496       ans6=(8*(p3p6*p2p8)*(-8*fb4*fmc+3*hbcm)+64*(p5p8*p3p6)*(fb3*fmc
0497      . -fb3*hbcm+fb4*fmb)+64*(p4p8*p3p6)*(-fb3*fmc+fb3*hbcm-fb4*fmb)+
0498      . 64*(p6p8*p3p5)*(-fb3*fmc+fb3*hbcm-fb4*fmb)+64*(p6p8*p3p4)*(fb3
0499      . *fmc-fb3*hbcm+fb4*fmb)+8*(p6p8*p2p3)*(8*fb3*fmc+8*fb4*fmc-3*
0500      . hbcm)+4*p6p8*(-8*fb3*fmb*fmc*hbcm+8*fb3*fmb2*hbcm+8*fb4*fmb*
0501      . fmc*hbcm-8*fb4*fmb*hbcm2+8*fb4*fmc*hbcm2-8*fb4*fmc2*hbcm+fmb*
0502      . hbcm2+fmc*hbcm2-hbcm3)+64*(fb3*hbcm*p2p4*p6p8-fb3*hbcm*p2p5*
0503      . p6p8+fb3*hbcm*p2p8*p4p6))
0504       ans2=w8*(16*(p5p8*p3p6*p2p3)*(-fmb-fmc+hbcm)+16*(p4p8*p3p6*p2p3
0505      . )*(fmb+fmc-hbcm)+16*(p6p8*p3p5*p2p3)*(fmb+fmc-hbcm)+16*(p6p8*
0506      . p3p4*p2p3)*(-fmb-fmc+hbcm)+8*(p5p6*p2p8)*(-fmb*hbcm2-fmc*hbcm2
0507      . +hbcm3)+16*(p4p6*p2p8)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+16*(p6p8*
0508      . p2p5)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+16*(p6p8*p2p4)*(fmb*hbcm2+
0509      . fmc*hbcm2-hbcm3)+8*(p6p8*p2p3)*(-fmb*hbcm2+fmb2*hbcm+fmc*hbcm2
0510      . -fmc2*hbcm)+8*(p3p6*p2p8)*(fmb*fmc*hbcm+fmb*hbcm2-fmb2*hbcm-2*
0511      . fmc*hbcm2+2*fmc2*hbcm)+16*(hbcm*p2p3*p2p4*p6p8-hbcm*p2p3*p2p5*
0512      . p6p8-hbcm*p2p4*p2p8*p3p6+hbcm*p2p5*p2p8*p3p6))+ans3+ans6
0513       ans1=w1*(16*(p5p8*p3p6*p3p4)*(-fmb-fmc+hbcm)+16*(p4p8*p3p6*p3p4
0514      . )*(fmb+fmc-hbcm)+16*(p6p8*p3p5*p3p4)*(fmb+fmc-hbcm)+8*(p5p6*
0515      . p4p8)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+16*(p6p8*p4p5)*(-fmb*hbcm2-
0516      . fmc*hbcm2+hbcm3)+8*p6p8*(fmb*fmc*hbcm3-2*fmb*fmc2*hbcm2-2*fmb*
0517      . p3p4s2-fmb2*fmc*hbcm2-2*fmc*p3p4s2+fmc2*hbcm3-fmc3*hbcm2+2*
0518      . hbcm*p3p4s2)+16*(p5p8*p3p6)*(-fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm
0519      . )+8*(p4p8*p3p6)*(3*fmb*fmc*hbcm-fmb*hbcm2+fmb2*hbcm-2*fmc*
0520      . hbcm2+2*fmc2*hbcm)+16*(p6p8*p3p5)*(fmb*fmc*hbcm-fmc*hbcm2+fmc2
0521      . *hbcm)+8*(p6p8*p3p4)*(-4*fmb*fmc*hbcm+fmb*hbcm2-fmb2*hbcm+3*
0522      . fmc*hbcm2-3*fmc2*hbcm)+16*(fmc*hbcm2*p2p5*p6p8-fmc*hbcm2*p2p8*
0523      . p4p6-4*fmc*p2p3*p3p4*p6p8+3*fmc*p2p3*p3p6*p4p8+fmc*p2p8*p3p4*
0524      . p3p6-3*fmc2*hbcm*p2p3*p6p8+fmc2*hbcm*p2p8*p3p6+hbcm*p2p3*p4p6*
0525      . p4p8-hbcm*p2p4*p3p4*p6p8+hbcm*p2p4*p3p6*p4p8+hbcm*p2p5*p3p4*
0526      . p6p8-hbcm*p2p5*p3p6*p4p8-hbcm*p2p8*p3p4*p4p6))+ans2
0527       ans=ccc*ans1
0528       b(10)=ans
0529       ans4=16*(p3p7*p3p6*p3p4)*(-2*ffmcfmb*fmb-ffmcfmb*fmc+fmb+fmc)+
0530      . 16*(-2*fmb*hbcm2*p2p4*p6p7+2*fmc*hbcm2*p2p5*p6p7+4*fmc*p2p3*
0531      . p3p4*p6p7-2*fmc*p2p3*p3p6*p4p7+4*fmc*p2p3*p3p6*p5p7+2*fmc*p2p4
0532      . *p3p6*p3p7-4*fmc*p2p5*p3p6*p3p7+2*hbcm*p2p3*p4p5*p6p7+2*hbcm*
0533      . p2p3*p4p6*p5p7-2*hbcm*p2p3*p4p7*p5p6+hbcm*p2p4*p3p4*p6p7-3*
0534      . hbcm*p2p4*p3p5*p6p7+4*hbcm*p2p4*p3p6*p5p7+2*hbcm*p2p4*p3p7*
0535      . p5p6+3*hbcm*p2p5*p3p4*p6p7-hbcm*p2p5*p3p5*p6p7-4*hbcm*p2p5*
0536      . p3p6*p4p7-2*hbcm*p2p5*p3p7*p4p6)
0537       ans3=16*(p5p6*p3p7*p3p5)*(fmc-hbcm)+16*(p5p6*p3p7*p3p4)*(-fmc+
0538      . hbcm)+16*(p4p6*p3p7*p3p5)*(-fmb+fmc-hbcm)+16*(p5p7*p3p6*p3p5)*
0539      . (fmb+fmc-hbcm)+16*(p4p7*p3p6*p3p5)*(-fmb-fmc+hbcm)+16*(p4p6*
0540      . p3p7*p3p4)*(-fmb-fmc+hbcm)+16*(p5p7*p3p6*p3p4)*(fmb+fmc-hbcm)+
0541      . 16*(p4p7*p3p6*p3p4)*(-fmb-fmc+hbcm)+16*(p5p6*p4p7)*(fmb*hbcm2+
0542      . fmc*hbcm2-hbcm3)+16*(p5p7*p4p6)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+
0543      . 16*(p4p6*p3p7)*(-2*fmb*hbcm2+fmb2*hbcm+fmc*hbcm2-fmc2*hbcm)+8*
0544      . (p6p7*p3p5)*(-fmb*hbcm2+fmb2*hbcm+fmc*hbcm2-fmc2*hbcm)+24*(
0545      . p6p7*p3p4)*(fmb*hbcm2-fmb2*hbcm-fmc*hbcm2+fmc2*hbcm)+8*p6p7*(2
0546      . *fmb*fmc*hbcm3-fmb*fmc2*hbcm2+2*fmb*p3p4s2-2*fmb*p3p5s2-fmb2*
0547      . fmc*hbcm2-fmb2*hbcm3+fmb3*hbcm2+2*fmc*p3p4s2-2*fmc*p3p5s2-fmc2
0548      . *hbcm3+fmc3*hbcm2-2*hbcm*p3p4s2+2*hbcm*p3p5s2)+16*(p4p7*p3p6)*
0549      . (fmb*fmc*hbcm-2*fmb*hbcm2+2*fmb2*hbcm+fmc*hbcm2-fmc2*hbcm)+16*
0550      . (p3p7*p3p6)*(-2*fmb*fmc*hbcm+fmb2*fmc+fmb2*hbcm+fmc2*hbcm-fmc3
0551      . )+16*(p6p7*p2p3)*(-fmb*fmc*hbcm+3*fmc2*hbcm)+16*(p3p7*p3p6*
0552      . p3p5)*(-2*ffmcfmb*fmb+ffmcfmb*fmc+fmb-fmc)+ans4
0553       ans2=w18*ans3
0554       ans7=(16*(p3p7*p3p6)*(8*fb4*ffmcfmb*fmb-4*fb4*ffmcfmb*fmc-4*fb4
0555      . *fmb+4*fb4*fmc+fmb+fmc-hbcm)+8*(p5p6*p3p7)*(-8*fb3*fmc+8*fb3*
0556      . hbcm+hbcm)+64*(p4p6*p3p7)*(fb3*fmc-fb3*hbcm+fb4*fmb)+64*(p5p7*
0557      . p3p6)*(-fb3*fmc+fb3*hbcm-fb4*fmb)+64*(p4p7*p3p6)*(fb3*fmc-fb3*
0558      . hbcm+fb4*fmb)+64*(p6p7*p3p5)*(fb3*fmc-fb3*hbcm+fb4*fmb)+64*(
0559      . p6p7*p3p4)*(-fb3*fmc+fb3*hbcm-fb4*fmb)+16*(p6p7*p2p3)*(-4*fb3*
0560      . fmc-4*fb4*fmc+hbcm)+8*p6p7*(4*fb3*fmb*fmc*hbcm-4*fb3*fmb2*hbcm
0561      . -4*fb4*fmb*fmc*hbcm+4*fb4*fmb*hbcm2-4*fb4*fmc*hbcm2+4*fb4*fmc2
0562      . *hbcm-fmb*hbcm2-fmc*hbcm2+hbcm3)+64*(-fb3*hbcm*p2p4*p6p7+fb3*
0563      . hbcm*p2p5*p6p7))
0564       ans6=w8*(32*(p3p7*p3p6*p2p5)*(-fmc+hbcm)+32*(p3p7*p3p6*p2p4)*(
0565      . fmc-hbcm)+16*(p5p6*p3p7*p2p3)*(-fmc+hbcm)+16*(p4p6*p3p7*p2p3)*
0566      . (-fmb+fmc-hbcm)+16*(p5p7*p3p6*p2p3)*(fmb+fmc-hbcm)+16*(p4p7*
0567      . p3p6*p2p3)*(-fmb-fmc+hbcm)+16*(p6p7*p3p5*p2p3)*(-fmb-fmc+hbcm)
0568      . +16*(p6p7*p3p4*p2p3)*(fmb+fmc-hbcm)+16*(p6p7*p2p5)*(fmb*hbcm2+
0569      . fmc*hbcm2-hbcm3)+16*(p6p7*p2p4)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+8
0570      . *(p6p7*p2p3)*(fmb*hbcm2-fmb2*hbcm-fmc*hbcm2+fmc2*hbcm)+16*(
0571      . p3p7*p3p6*p2p3)*(-2*ffmcfmb*fmb+ffmcfmb*fmc+fmb-fmc)+16*(-hbcm
0572      . *p2p3*p2p4*p6p7+hbcm*p2p3*p2p5*p6p7))+ans7
0573       ans5=w1*(32*(p4p5*p3p7*p3p6)*(-fmc+hbcm)+16*(p5p6*p3p7*p3p4)*(
0574      . fmc-hbcm)+16*(p5p6*p3p7)*(-fmc*hbcm2+fmc2*hbcm)+16*(p4p6*p3p7*
0575      . p3p4)*(-fmb-fmc+hbcm)+16*(p5p7*p3p6*p3p4)*(fmb+fmc-hbcm)+16*(
0576      . p4p7*p3p6*p3p4)*(-fmb-fmc+hbcm)+16*(p6p7*p3p5*p3p4)*(-fmb-fmc+
0577      . hbcm)+16*(p6p7*p4p5)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+8*p6p7*(-fmb*
0578      . fmc*hbcm3+2*fmb*fmc2*hbcm2+2*fmb*p3p4s2+fmb2*fmc*hbcm2+2*fmc*
0579      . p3p4s2-fmc2*hbcm3+fmc3*hbcm2-2*hbcm*p3p4s2)+16*(p4p6*p3p7)*(-2
0580      . *fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+16*(p5p7*p3p6)*(fmb*fmc*
0581      . hbcm-fmc*hbcm2+fmc2*hbcm)+16*(p4p7*p3p6)*(-fmb*fmc*hbcm+fmc*
0582      . hbcm2-fmc2*hbcm)+16*(p3p7*p3p6)*(fmb*fmc*hbcm-3*fmb*fmc2+fmc2*
0583      . hbcm-fmc3)+16*(p6p7*p3p5)*(-fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+
0584      . 8*(p6p7*p3p4)*(4*fmb*fmc*hbcm-fmb*hbcm2+fmb2*hbcm-3*fmc*hbcm2+
0585      . 3*fmc2*hbcm)+16*(p3p7*p3p6*p3p4)*(-2*ffmcfmb*fmb-ffmcfmb*fmc+
0586      . fmb+fmc)+16*(-fmc*hbcm2*p2p5*p6p7+4*fmc*p2p3*p3p4*p6p7-2*fmc*
0587      . p2p3*p3p6*p4p7+2*fmc*p2p4*p3p6*p3p7+3*fmc2*hbcm*p2p3*p6p7+hbcm
0588      . *p2p4*p3p4*p6p7-hbcm*p2p5*p3p4*p6p7))+ans6
0589       ans1=ans2+ans5
0590       ans=ccc*ans1
0591       b(11)=ans
0592       ans5=16*(p6p8*p3p7)*(2*ffmcfmb*p3p5s2-fmb*fmc2*hbcm+fmb3*hbcm+2
0593      . *fmc2*hbcm2-2*fmc3*hbcm-2*p3p5s2)+(p5p8*p3p7*p3p6*p3p5)*(-32*
0594      . ffmcfmb+32)+(p5p8*p3p7*p3p6*p3p4)*(-32*ffmcfmb+32)+(p6p8*p3p7*
0595      . p3p5*p3p4)*(32*ffmcfmb-32)+16*(2*ffmcfmb*p2p3*p3p4*p3p6*p7p8-2
0596      . *ffmcfmb*p2p3*p3p4*p3p7*p6p8+2*ffmcfmb*p2p3*p3p5*p3p6*p7p8-2*
0597      . ffmcfmb*p2p3*p3p5*p3p7*p6p8-4*ffmcfmb*p2p8*p3p4*p3p6*p3p7-4*
0598      . ffmcfmb*p2p8*p3p5*p3p6*p3p7-fmb*hbcm*p3p7*p5p6*p5p8-fmc*hbcm*
0599      . p2p3*p5p8*p6p7-2*hbcm2*p2p4*p5p6*p7p8+2*hbcm2*p2p4*p5p7*p6p8-2
0600      . *hbcm2*p2p4*p5p8*p6p7+2*hbcm2*p2p5*p4p6*p7p8-2*hbcm2*p2p5*p4p7
0601      . *p6p8+hbcm2*p2p5*p4p8*p6p7-hbcm2*p2p5*p5p8*p6p7-2*hbcm2*p2p8*
0602      . p4p6*p5p7+2*hbcm2*p2p8*p4p7*p5p6+2*p2p3*p3p4*p4p6*p7p8-2*p2p3*
0603      . p3p4*p4p7*p6p8+2*p2p3*p3p4*p4p8*p6p7+2*p2p3*p3p5*p4p6*p7p8-2*
0604      . p2p3*p3p5*p4p7*p6p8+2*p2p3*p3p5*p4p8*p6p7+2*p2p4*p3p4*p3p6*
0605      . p7p8-2*p2p4*p3p4*p3p7*p6p8+2*p2p4*p3p5*p3p6*p7p8-2*p2p4*p3p5*
0606      . p3p7*p6p8-2*p2p5*p3p4*p3p6*p7p8+2*p2p5*p3p4*p3p7*p6p8-2*p2p5*
0607      . p3p5*p3p6*p7p8+2*p2p5*p3p5*p3p7*p6p8-2*p2p8*p3p4*p3p6*p4p7+2*
0608      . p2p8*p3p4*p3p6*p5p7-4*p2p8*p3p4*p3p7*p4p6-2*p2p8*p3p5*p3p6*
0609      . p4p7+2*p2p8*p3p5*p3p6*p5p7-4*p2p8*p3p5*p3p7*p4p6)
0610       ans4=32*(p4p7*p3p6*p2p8)*(-2*fmb*hbcm-fmc*hbcm)+16*(p6p7*p3p5*
0611      . p2p8)*(-fmb*hbcm-fmc*hbcm)+48*(p6p7*p3p4*p2p8)*(fmb*hbcm+fmc*
0612      . hbcm)+32*(p6p8*p3p7*p2p4)*(-2*fmb*hbcm-fmc*hbcm)+32*(p7p8*p3p6
0613      . *p2p4)*(2*fmb*hbcm+fmc*hbcm)+16*(p6p7*p4p8*p2p3)*(2*fmb*hbcm+3
0614      . *fmc*hbcm)+32*(p6p8*p4p7*p2p3)*(-fmb*hbcm-2*fmc*hbcm)+32*(p7p8
0615      . *p4p6*p2p3)*(fmb*hbcm+2*fmc*hbcm)+16*(p7p8*p3p6)*(fmb*fmc2*
0616      . hbcm-fmb2*fmc*hbcm+fmb2*hbcm2-fmb3*hbcm-fmc2*hbcm2+fmc3*hbcm)+
0617      . 16*(p5p8*p3p7*p3p6)*(-fmb*fmc+fmb*hbcm+fmc*hbcm-fmc2)+16*(p4p8
0618      . *p3p7*p3p6)*(fmb*fmc-fmb*hbcm-fmc*hbcm+fmc2)+16*(p6p8*p3p7*
0619      . p3p5)*(-2*fmb*fmc-fmb2+fmc*hbcm-fmc2)+16*(p7p8*p3p6*p3p5)*(3*
0620      . fmb*fmc-fmb*hbcm+fmb2-2*fmc*hbcm+2*fmc2)+16*(p6p8*p3p7*p3p4)*(
0621      . -2*fmb*fmc+2*fmb*hbcm-fmb2+fmc*hbcm-fmc2)+16*(p7p8*p3p6*p3p4)*
0622      . (fmb*fmc-fmb*hbcm+fmb2)+96*(p3p7*p3p6*p2p8)*(-fmb*fmc-fmc2)+64
0623      . *(p6p8*p3p7*p2p3)*(-fmb*fmc-fmc2)+64*(p7p8*p3p6*p2p3)*(fmb*fmc
0624      . +fmc2)+16*(p6p7*p2p8)*(2*fmb*fmc*hbcm2+fmb2*hbcm2+fmc2*hbcm2+2
0625      . *p3p4s2-2*p3p5s2)+ans5
0626       ans3=16*(p4p8*p4p6*p3p7)*(fmc*hbcm-hbcm2)+32*(p6p8*p4p5*p3p7)*(
0627      . -fmc*hbcm+hbcm2)+8*(p6p7*p5p8)*(-fmb*hbcm3+fmb2*hbcm2+fmc*
0628      . hbcm3-fmc2*hbcm2)+8*(p6p7*p4p8)*(fmb*hbcm3-fmb2*hbcm2-fmc*
0629      . hbcm3+fmc2*hbcm2)+16*(p6p8*p4p7)*(-fmb*hbcm3+fmb2*hbcm2+fmc*
0630      . hbcm3-fmc2*hbcm2)+16*(p7p8*p4p6)*(fmb*hbcm3-fmb2*hbcm2-fmc*
0631      . hbcm3+fmc2*hbcm2)+16*(p5p6*p4p8*p3p7)*(fmb*hbcm+2*fmc*hbcm-2*
0632      . hbcm2)+16*(p5p8*p4p6*p3p7)*(-2*fmb*hbcm-fmc*hbcm+hbcm2)+16*(
0633      . p5p8*p5p7*p3p6)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p5p7*p4p8*p3p6)*
0634      . (-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p5p8*p4p7*p3p6)*(fmb*hbcm+fmc*
0635      . hbcm-hbcm2)+16*(p6p8*p5p7*p3p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*
0636      . (p7p8*p5p6*p3p5)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p7*p4p8*p3p5)
0637      . *(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p6p8*p4p7*p3p5)*(-fmb*hbcm-fmc*
0638      . hbcm+hbcm2)+32*(p7p8*p4p6*p3p5)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(
0639      . p6p7*p5p8*p3p4)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p6p8*p5p7*p3p4)
0640      . *(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p7p8*p5p6*p3p4)*(-fmb*hbcm-fmc*
0641      . hbcm+hbcm2)+32*(p4p6*p3p7*p2p8)*(-2*fmb*hbcm-3*fmc*hbcm)+ans4
0642       ans2=w18*ans3
0643       ans8=16*(p7p8*p3p6)*(-fmb*fmc*hbcm2+2*fmb*fmc2*hbcm+fmb2*fmc*
0644      . hbcm-fmc2*hbcm2+fmc3*hbcm)+16*(p6p7*p2p8)*(-fmb*fmc*hbcm2+fmc2
0645      . *hbcm2+2*p3p4s2)+(p5p8*p3p7*p3p6*p3p4)*(-32*ffmcfmb+32)+(p6p8*
0646      . p3p7*p3p5*p3p4)*(32*ffmcfmb-32)+16*(2*ffmcfmb*p2p3*p3p4*p3p6*
0647      . p7p8-2*ffmcfmb*p2p3*p3p4*p3p7*p6p8-4*ffmcfmb*p2p8*p3p4*p3p6*
0648      . p3p7+2*fmb*hbcm*p3p7*p4p5*p6p8-fmb*hbcm*p3p7*p4p8*p5p6+4*fmc*
0649      . hbcm*p2p3*p4p6*p7p8-4*fmc*hbcm*p2p3*p4p7*p6p8+3*fmc*hbcm*p2p3*
0650      . p4p8*p6p7+2*fmc*hbcm*p2p4*p3p6*p7p8-2*fmc*hbcm*p2p4*p3p7*p6p8-
0651      . 2*fmc*hbcm*p2p5*p3p6*p7p8+2*fmc*hbcm*p2p5*p3p7*p6p8-2*fmc*hbcm
0652      . *p2p8*p3p5*p6p7-2*fmc*hbcm*p2p8*p3p6*p4p7+2*fmc*hbcm*p2p8*p3p6
0653      . *p5p7-6*fmc*hbcm*p2p8*p3p7*p4p6+4*fmc2*p2p3*p3p6*p7p8-4*fmc2*
0654      . p2p3*p3p7*p6p8-6*fmc2*p2p8*p3p6*p3p7-hbcm2*p2p5*p4p8*p6p7+2*
0655      . hbcm2*p2p8*p4p5*p6p7+2*p2p3*p3p4*p4p6*p7p8-2*p2p3*p3p4*p4p7*
0656      . p6p8+2*p2p3*p3p4*p4p8*p6p7+2*p2p4*p3p4*p3p6*p7p8-2*p2p4*p3p4*
0657      . p3p7*p6p8-2*p2p5*p3p4*p3p6*p7p8+2*p2p5*p3p4*p3p7*p6p8-2*p2p8*
0658      . p3p4*p3p5*p6p7-2*p2p8*p3p4*p3p6*p4p7+2*p2p8*p3p4*p3p6*p5p7-4*
0659      . p2p8*p3p4*p3p7*p4p6)
0660       ans7=16*(p4p8*p4p6*p3p7)*(fmc*hbcm-hbcm2)+32*(p5p8*p3p7*p3p6)*(
0661      . fmc*hbcm-fmc2)+32*(p6p8*p3p7*p3p5)*(-fmc*hbcm+fmc2)+16*(p6p8*
0662      . p3p7*p3p4)*(-fmb2+fmc*hbcm-fmc2)+16*(p5p7*p4p8*p3p6)*(fmb*hbcm
0663      . +fmc*hbcm-hbcm2)+32*(p7p8*p4p5*p3p6)*(-fmb*hbcm-fmc*hbcm+hbcm2
0664      . )+16*(p6p7*p4p8*p3p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p6p7*p5p8
0665      . *p3p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p8*p5p7*p3p4)*(-fmb*
0666      . hbcm-fmc*hbcm+hbcm2)+16*(p7p8*p5p6*p3p4)*(fmb*hbcm+fmc*hbcm-
0667      . hbcm2)+16*(p6p7*p3p4*p2p8)*(-fmb*hbcm+3*fmc*hbcm)+16*(p6p8*
0668      . p3p7)*(-fmb*fmc2*hbcm-fmb2*fmc*hbcm+2*fmc2*hbcm2-2*fmc3*hbcm)+
0669      . 16*(p4p8*p3p7*p3p6)*(-fmb*fmc+fmb*hbcm-fmc*hbcm+fmc2)+16*(p7p8
0670      . *p3p6*p3p4)*(fmb*fmc-fmb*hbcm+fmb2)+16*(p6p7*p5p8)*(fmb*fmc*
0671      . hbcm2-fmc*hbcm3+fmc2*hbcm2)+16*(p6p8*p5p7)*(-fmb*fmc*hbcm2+fmc
0672      . *hbcm3-fmc2*hbcm2)+16*(p7p8*p5p6)*(fmb*fmc*hbcm2-fmc*hbcm3+
0673      . fmc2*hbcm2)+8*(p6p7*p4p8)*(2*fmb*fmc*hbcm2-fmb*hbcm3+fmb2*
0674      . hbcm2-fmc*hbcm3+fmc2*hbcm2)+16*(p6p8*p4p7)*(-fmb*fmc*hbcm2+fmc
0675      . *hbcm3-fmc2*hbcm2)+16*(p7p8*p4p6)*(fmb*fmc*hbcm2-fmc*hbcm3+
0676      . fmc2*hbcm2)+ans8
0677       ans6=w1*ans7
0678       ans11=8*(p6p7*p2p8)*(4*fmb*fmc*hbcm2-fmb*hbcm3+fmb2*hbcm2-3*fmc
0679      . *hbcm3+3*fmc2*hbcm2)+(p5p8*p3p7*p3p6*p2p3)*(-32*ffmcfmb+32)+(
0680      . p6p8*p3p7*p3p5*p2p3)*(32*ffmcfmb-32)+16*(-4*ffmcfmb*p2p3*p2p8*
0681      . p3p6*p3p7+2*ffmcfmb*p2p3s2*p3p6*p7p8-2*ffmcfmb*p2p3s2*p3p7*
0682      . p6p8+2*fmb*hbcm*p2p5*p3p7*p6p8+hbcm2*p2p5*p2p8*p6p7+2*p2p3*
0683      . p2p4*p3p6*p7p8-2*p2p3*p2p4*p3p7*p6p8-2*p2p3*p2p5*p3p6*p7p8+2*
0684      . p2p3*p2p5*p3p7*p6p8+2*p2p3*p2p8*p3p4*p6p7-2*p2p3*p2p8*p3p5*
0685      . p6p7-2*p2p3*p2p8*p3p6*p4p7+2*p2p3*p2p8*p3p6*p5p7-4*p2p3*p2p8*
0686      . p3p7*p4p6+2*p2p3s2*p4p6*p7p8-2*p2p3s2*p4p7*p6p8+2*p2p3s2*p4p8*
0687      . p6p7)
0688       ans10=16*(p5p6*p3p7*p2p8)*(fmb*hbcm+2*fmc*hbcm-2*hbcm2)+16*(
0689      . p4p6*p3p7*p2p8)*(-4*fmb*hbcm-5*fmc*hbcm+5*hbcm2)+16*(p5p7*p3p6
0690      . *p2p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p4p7*p3p6*p2p8)*(-fmb*
0691      . hbcm-fmc*hbcm+hbcm2)+16*(p6p7*p3p5*p2p8)*(-fmb*hbcm-fmc*hbcm+
0692      . hbcm2)+32*(p6p7*p3p4*p2p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p7p8*
0693      . p3p6*p2p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p6p8*p3p7*p2p4)*(-
0694      . fmb*hbcm-fmc*hbcm+hbcm2)+32*(p7p8*p3p6*p2p4)*(fmb*hbcm+fmc*
0695      . hbcm-hbcm2)+16*(p6p7*p5p8*p2p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*
0696      . (p6p8*p5p7*p2p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p7p8*p5p6*p2p3)
0697      . *(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p6p7*p4p8*p2p3)*(fmb*hbcm+fmc*
0698      . hbcm-hbcm2)+32*(p6p8*p4p7*p2p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*
0699      . (p7p8*p4p6*p2p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p7*p2p8*p2p3)
0700      . *(fmb*hbcm+2*fmc*hbcm)+16*(p3p7*p3p6*p2p8)*(-5*fmb*fmc+fmb*
0701      . hbcm+5*fmc*hbcm-5*fmc2)+16*(p6p8*p3p7*p2p3)*(-4*fmb*fmc+2*fmb*
0702      . hbcm-fmb2+3*fmc*hbcm-3*fmc2)+16*(p7p8*p3p6*p2p3)*(3*fmb*fmc-
0703      . fmb*hbcm+fmb2-2*fmc*hbcm+2*fmc2)+ans11
0704       ans9=w8*ans10
0705       ans12=((p5p8*p3p7*p3p6)*(128*fb4*ffmcfmb-128*fb4+16)+(p6p8*p3p7
0706      . *p3p5)*(-128*fb4*ffmcfmb+128*fb4-16)+(p3p7*p3p6*p2p8)*(256*fb4
0707      . *ffmcfmb+32)+(p6p8*p3p7*p2p3)*(128*fb4*ffmcfmb+16)+(p7p8*p3p6*
0708      . p2p3)*(-128*fb4*ffmcfmb-16)+64*(p6p7*p5p8)*(-fb3*fmb*hbcm-fb4*
0709      . fmc*hbcm+fb4*hbcm2)+64*(p6p8*p5p7)*(fb3*fmb*hbcm+fb4*fmc*hbcm-
0710      . fb4*hbcm2)+8*(p7p8*p5p6)*(-8*fb3*fmb*hbcm-8*fb4*fmc*hbcm+8*fb4
0711      . *hbcm2+hbcm2)+8*(p6p7*p2p8)*(8*fb3*fmb*hbcm+8*fb3*fmc*hbcm-3*
0712      . hbcm2)+8*(p6p8*p3p7)*(8*fb3*fmb*fmc-8*fb3*fmc*hbcm+8*fb3*fmc2+
0713      . 8*fb4*fmb*fmc+8*fb4*fmb2-fmb*hbcm-fmc*hbcm)+8*(p7p8*p3p6)*(-16
0714      . *fb3*fmb*fmc+8*fb3*fmb*hbcm+8*fb3*fmc*hbcm-8*fb3*fmc2-8*fb4*
0715      . fmb*fmc-8*fb4*fmb2+8*fb4*fmc*hbcm-8*fb4*fmc2+fmb*hbcm+3*fmc*
0716      . hbcm-2*hbcm2)+8*(-16*fb4*p2p3*p4p6*p7p8+16*fb4*p2p3*p4p7*p6p8-
0717      . 16*fb4*p2p3*p4p8*p6p7-16*fb4*p2p4*p3p6*p7p8+16*fb4*p2p4*p3p7*
0718      . p6p8+16*fb4*p2p5*p3p6*p7p8-16*fb4*p2p5*p3p7*p6p8-16*fb4*p2p8*
0719      . p3p4*p6p7+16*fb4*p2p8*p3p5*p6p7+16*fb4*p2p8*p3p6*p4p7-16*fb4*
0720      . p2p8*p3p6*p5p7+32*fb4*p2p8*p3p7*p4p6+hbcm2*p4p6*p7p8))
0721       ans1=ans2+ans6+ans9+ans12
0722       ans=ccc*ans1
0723       b(12)=ans
0724       ans=ccc*(w18*(8*(p5p8*p3p5)*(fmb+fmc-hbcm)+16*(p4p8*p3p5)*(-fmb
0725      . -fmc+hbcm)+8*(p5p8*p3p4)*(fmb+fmc-hbcm)+16*(p4p8*p3p4)*(-fmb-
0726      . fmc+hbcm)+4*p5p8*(fmb*hbcm2-fmb2*hbcm-fmc*hbcm2+fmc2*hbcm)+20*
0727      . p4p8*(-fmb*hbcm2+fmb2*hbcm+fmc*hbcm2-fmc2*hbcm)+8*(-3*fmc*p2p3
0728      . *p4p8+3*fmc*p2p3*p5p8-2*fmc*p2p8*p3p4-2*fmc*p2p8*p3p5-2*fmc2*
0729      . hbcm*p2p8-2*hbcm*p2p4*p4p8+4*hbcm*p2p4*p5p8-5*hbcm*p2p5*p4p8+
0730      . hbcm*p2p5*p5p8-2*hbcm*p2p8*p4p5))+w8*(8*(p5p8*p2p3)*(fmb+fmc-
0731      . hbcm)+16*(p4p8*p2p3)*(-fmb-fmc+hbcm)+4*p2p8*(-fmb*hbcm2+fmb2*
0732      . hbcm+fmc*hbcm2-fmc2*hbcm)+8*(fmc*p2p3*p2p8+2*hbcm*p2p4*p2p8-
0733      . hbcm*p2p5*p2p8))+w1*(8*(p5p8*p3p4)*(fmb+fmc-hbcm)+16*(p4p8*
0734      . p3p4)*(-fmb-fmc+hbcm)+8*p5p8*(fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm
0735      . )+4*p4p8*(-6*fmb*fmc*hbcm+fmb*hbcm2-fmb2*hbcm+5*fmc*hbcm2-5*
0736      . fmc2*hbcm)+8*(-3*fmc*p2p3*p4p8-2*fmc*p2p8*p3p4-2*fmc2*hbcm*
0737      . p2p8-2*hbcm*p2p4*p4p8+hbcm*p2p5*p4p8))+(32*p5p8*(-fb3*fmc+fb3*
0738      . hbcm-fb4*fmb)+64*p4p8*(fb3*fmc-fb3*hbcm+fb4*fmb)+4*p2p8*(8*fb3
0739      . *fmc+8*fb4*fmc-5*hbcm)))
0740       b(13)=ans
0741       ans2=(p2p3*(64*fb4*ffmcfmb+8)+8*(6*fb3*fmb*fmc-2*fb3*fmb*hbcm-6
0742      . *fb3*fmc*hbcm+6*fb3*fmc2+6*fb4*fmb*fmc+2*fb4*fmb2-4*fb4*fmc*
0743      . hbcm+4*fb4*fmc2+12*fb4*p2p4-4*fb4*p2p5-fmb*hbcm-fmc*hbcm+hbcm2
0744      . ))
0745       ans1=w8*(8*p2p5*(fmb*hbcm+fmc*hbcm-hbcm2)+24*p2p4*(-fmb*hbcm-
0746      . fmc*hbcm+hbcm2)+4*p2p3*(-6*fmb*fmc+fmb*hbcm-fmb2+5*fmc*hbcm-5*
0747      . fmc2)+8*(-2*ffmcfmb*p2p3s2-3*p2p3*p2p4+p2p3*p2p5))+w18*(16*
0748      . p4p5*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*p2p4*(-fmb*hbcm-fmc*hbcm)+4
0749      . *p3p5*(-6*fmb*fmc+fmb*hbcm-fmb2+5*fmc*hbcm-5*fmc2)+4*p3p4*(-6*
0750      . fmb*fmc+fmb*hbcm-fmb2+5*fmc*hbcm-5*fmc2)+24*p2p3*(-fmb*fmc-
0751      . fmc2)+4*(-4*ffmcfmb*p2p3*p3p4-4*ffmcfmb*p2p3*p3p5-5*fmb*fmc2*
0752      . hbcm+fmb2*fmc*hbcm-fmb2*hbcm2+fmb3*hbcm+5*fmc2*hbcm2-5*fmc3*
0753      . hbcm-6*p2p4*p3p4-6*p2p4*p3p5+2*p2p5*p3p4+2*p2p5*p3p5))+w1*(8*
0754      . p4p5*(fmb*hbcm+fmc*hbcm-hbcm2)+4*p3p4*(-6*fmb*fmc+fmb*hbcm-
0755      . fmb2+5*fmc*hbcm-5*fmc2)+4*(-4*ffmcfmb*p2p3*p3p4+fmb*fmc*hbcm2-
0756      . 6*fmb*fmc2*hbcm-fmb2*fmc*hbcm-8*fmc*hbcm*p2p4+2*fmc*hbcm*p2p5+
0757      . 5*fmc2*hbcm2-6*fmc2*p2p3-5*fmc3*hbcm-6*p2p4*p3p4+2*p2p5*p3p4))
0758      . +ans2
0759       ans=ccc*ans1
0760       b(14)=ans
0761       ans2=w18*(16*(p4p8*p3p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p5p8*
0762      . p3p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p3p4*p2p8)*(fmb*hbcm+fmc*
0763      . hbcm)+16*(p4p8*p2p3)*(-fmb*hbcm-2*fmc*hbcm)+4*p5p8*(2*fmb*fmc*
0764      . hbcm2+fmb*hbcm3-fmb2*hbcm2-3*fmc*hbcm3+3*fmc2*hbcm2)+4*p4p8*(2
0765      . *fmb*fmc*hbcm2-3*fmb*hbcm3+3*fmb2*hbcm2+fmc*hbcm3-fmc2*hbcm2)+
0766      . 16*p2p8*(fmb*fmc*hbcm2+p3p4s2)+8*(2*fmc*hbcm*p2p3*p5p8-hbcm2*
0767      . p2p4*p4p8+3*hbcm2*p2p4*p5p8-3*hbcm2*p2p5*p4p8+hbcm2*p2p5*p5p8-
0768      . 2*hbcm2*p2p8*p4p5-2*p2p3*p3p4*p4p8-2*p2p3*p3p5*p4p8+2*p2p8*
0769      . p3p4*p3p5))+(16*p2p8*(2*fb3*fmc*hbcm-2*fb4*fmc*hbcm-hbcm2)+32*
0770      . p5p8*(fb3*fmb*hbcm+fb4*fmc*hbcm-fb4*hbcm2)+32*p4p8*(-fb3*fmb*
0771      . hbcm-fb4*fmc*hbcm+fb4*hbcm2)+64*(fb4*p2p3*p4p8-fb4*p2p8*p3p4))
0772       ans1=w1*(8*(p4p8*p3p5)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p5p8*p3p4)*
0773      . (-fmb*hbcm-fmc*hbcm+hbcm2)+8*p5p8*(-fmb*fmc*hbcm2+fmc*hbcm3-
0774      . fmc2*hbcm2)+4*p4p8*(-2*fmb*fmc*hbcm2+fmb*hbcm3-fmb2*hbcm2+fmc*
0775      . hbcm3-fmc2*hbcm2)+8*(-4*fmc*hbcm*p2p3*p4p8+2*fmc*hbcm*p2p8*
0776      . p3p4-hbcm2*p2p4*p4p8+hbcm2*p2p5*p4p8-2*p2p3*p3p4*p4p8+2*p2p8*
0777      . p3p4s2))+w8*(8*(p3p5*p2p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+24*(p3p4
0778      . *p2p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p5p8*p2p3)*(fmb*hbcm+fmc*
0779      . hbcm-hbcm2)+24*(p4p8*p2p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+4*p2p8*(
0780      . 6*fmb*fmc*hbcm2-fmb*hbcm3+fmb2*hbcm2-5*fmc*hbcm3+5*fmc2*hbcm2)
0781      . +8*(2*fmc*hbcm*p2p3*p2p8+hbcm2*p2p4*p2p8-hbcm2*p2p5*p2p8+2*
0782      . p2p3*p2p8*p3p4-2*p2p3s2*p4p8))+ans2
0783       ans=ccc*ans1
0784       b(15)=ans
0785       ans2=w18*(8*(p3p5*p3p4)*(fmb+fmc-hbcm)+8*p4p5*(-fmb*hbcm2-fmc*
0786      . hbcm2+hbcm3)+4*p3p5*(-fmb*hbcm2+fmb2*hbcm+fmc*hbcm2-fmc2*hbcm)
0787      . +20*p3p4*(fmb*hbcm2-fmb2*hbcm-fmc*hbcm2+fmc2*hbcm)+8*p2p4*(-3*
0788      . fmb*hbcm2+fmc*hbcm2)+16*p2p3*(-fmb*fmc*hbcm+2*fmc2*hbcm)+4*(4*
0789      . fmb*fmc*hbcm3-3*fmb*fmc2*hbcm2+4*fmb*p3p4s2-2*fmb*p3p5s2-3*
0790      . fmb2*fmc*hbcm2-fmb2*hbcm3+fmb3*hbcm2+8*fmc*hbcm2*p2p5+10*fmc*
0791      . p2p3*p3p4-2*fmc*p2p3*p3p5+4*fmc*p3p4s2-2*fmc*p3p5s2-fmc2*hbcm3
0792      . +fmc3*hbcm2+4*hbcm*p2p3*p4p5+4*hbcm*p2p4*p3p4-8*hbcm*p2p4*p3p5
0793      . +10*hbcm*p2p5*p3p4-2*hbcm*p2p5*p3p5-4*hbcm*p3p4s2+2*hbcm*
0794      . p3p5s2))+(32*p3p5*(fb3*fmc-fb3*hbcm+fb4*fmb)+64*p3p4*(-fb3*fmc
0795      . +fb3*hbcm-fb4*fmb)+4*p2p3*(-16*fb3*fmc-8*fb4*fmc+5*hbcm)+4*(8*
0796      . fb3*fmb*fmc*hbcm-4*fb3*fmb2*hbcm+4*fb3*fmc*hbcm2-4*fb3*fmc2*
0797      . hbcm-16*fb3*hbcm*p2p4+8*fb3*hbcm*p2p5-8*fb4*fmb*fmc*hbcm+4*fb4
0798      . *fmb*hbcm2-8*fb4*fmc*hbcm2+8*fb4*fmc2*hbcm-fmb*hbcm2-fmc*hbcm2
0799      . +hbcm3))
0800       ans1=w8*(8*(p3p5*p2p3)*(-fmb-fmc+hbcm)+16*(p3p4*p2p3)*(fmb+fmc-
0801      . hbcm)+8*p2p5*(fmb*hbcm2+fmc*hbcm2-hbcm3)+16*p2p4*(-fmb*hbcm2-
0802      . fmc*hbcm2+hbcm3)+4*p2p3*(fmb*hbcm2-fmb2*hbcm-fmc*hbcm2+fmc2*
0803      . hbcm)+8*(-fmc*p2p3s2-2*hbcm*p2p3*p2p4+hbcm*p2p3*p2p5))+w1*(8*(
0804      . p3p5*p3p4)*(-fmb-fmc+hbcm)+8*p4p5*(fmb*hbcm2+fmc*hbcm2-hbcm3)+
0805      . 8*p3p5*(-fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+4*p3p4*(6*fmb*fmc*
0806      . hbcm-fmb*hbcm2+fmb2*hbcm-5*fmc*hbcm2+5*fmc2*hbcm)+4*(-fmb*fmc*
0807      . hbcm3+2*fmb*fmc2*hbcm2+4*fmb*p3p4s2+fmb2*fmc*hbcm2+2*fmc*hbcm2
0808      . *p2p4-2*fmc*hbcm2*p2p5+10*fmc*p2p3*p3p4+4*fmc*p3p4s2+8*fmc2*
0809      . hbcm*p2p3-fmc2*hbcm3+fmc3*hbcm2+4*hbcm*p2p4*p3p4-2*hbcm*p2p5*
0810      . p3p4-4*hbcm*p3p4s2))+ans2
0811       ans=ccc*ans1
0812       b(16)=ans
0813       b(17)=ccc*(w18*(8*p6p8*(-fmb2*hbcm+5*fmc2*hbcm)+8*(p6p8*p3p5)*(
0814      . -fmb+5*fmc)+8*(p6p8*p3p4)*(-fmb+5*fmc)+8*(-3*fmc*p3p6*p4p8+3*
0815      . fmc*p3p6*p5p8+4*hbcm*p4p5*p6p8-2*hbcm*p4p6*p4p8+4*hbcm*p4p6*
0816      . p5p8-5*hbcm*p4p8*p5p6+hbcm*p5p6*p5p8))+w8*(8*(p6p8*p2p3)*(-fmb
0817      . +fmc)+8*p6p8*(fmb*hbcm2-fmb2*hbcm-fmc*hbcm2+fmc2*hbcm)+8*(fmc*
0818      . p2p8*p3p6+2*hbcm*p2p8*p4p6-hbcm*p2p8*p5p6))+w1*(8*(p6p8*p3p4)*
0819      . (-fmb+5*fmc)+8*p6p8*(-fmb*fmc*hbcm+5*fmc2*hbcm)+8*(-3*fmc*p3p6
0820      . *p4p8-2*hbcm*p4p5*p6p8-2*hbcm*p4p6*p4p8+hbcm*p4p8*p5p6))+4*
0821      . p6p8*(-16*fb3*fmc+8*fb4*fmb-24*fb4*fmc+7*hbcm))
0822       b(18)=ccc*(w18*(32*p4p6*(fmb*hbcm+fmc*hbcm)+24*p3p6*(fmb*fmc+
0823      . fmc2)+8*(2*ffmcfmb*p3p4*p3p6+2*ffmcfmb*p3p5*p3p6+3*p3p4*p4p6-
0824      . p3p4*p5p6+3*p3p5*p4p6-p3p5*p5p6))+8*w1*(2*ffmcfmb*p3p4*p3p6+4*
0825      . fmc*hbcm*p4p6-fmc*hbcm*p5p6+3*fmc2*p3p6+3*p3p4*p4p6-p3p4*p5p6)
0826      . +w8*(8*p5p6*(-fmb*hbcm-fmc*hbcm+hbcm2)+24*p4p6*(fmb*hbcm+fmc*
0827      . hbcm-hbcm2)+16*p3p6*(fmb*fmc-fmc*hbcm+fmc2)+8*(2*ffmcfmb*p2p3*
0828      . p3p6+3*p2p3*p4p6-p2p3*p5p6))+(p3p6*(-64*fb4*ffmcfmb-8)+32*(-3*
0829      . fb4*p4p6+fb4*p5p6)))
0830       b(19)=ccc*(w18*(4*p5p8*(-fmb*hbcm2-5*fmc*hbcm2)+4*p4p8*(5*fmb*
0831      . hbcm2+fmc*hbcm2)+24*(-hbcm*p3p4*p5p8+hbcm*p3p5*p4p8))+w1*(4*
0832      . p4p8*(-fmb*hbcm2+fmc*hbcm2)+8*(fmc*hbcm2*p5p8+hbcm*p3p4*p5p8-
0833      . hbcm*p3p5*p4p8))+w8*(8*p5p8*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+16*
0834      . p4p8*(fmb*hbcm2+fmc*hbcm2-hbcm3)+4*p2p8*(fmb*hbcm2-3*fmc*hbcm2
0835      . )+8*(2*hbcm*p2p3*p4p8-hbcm*p2p3*p5p8-2*hbcm*p2p8*p3p4+hbcm*
0836      . p2p8*p3p5))+32*(2*fb3*hbcm*p4p8-fb3*hbcm*p5p8))
0837       b(20)=ccc*(w18*(4*p5p8*(-fmb*hbcm-fmc*hbcm)+28*p4p8*(fmb*hbcm+
0838      . fmc*hbcm)+8*(3*p3p4*p4p8-p3p4*p5p8+3*p3p5*p4p8-p3p5*p5p8))+w1*
0839      . (4*p4p8*(-fmb*hbcm+7*fmc*hbcm)+8*(-fmc*hbcm*p5p8+3*p3p4*p4p8-
0840      . p3p4*p5p8))+w8*(8*p5p8*(-fmb*hbcm-fmc*hbcm+hbcm2)+24*p4p8*(fmb
0841      . *hbcm+fmc*hbcm-hbcm2)+4*p2p8*(fmb*hbcm+fmc*hbcm)+8*(3*p2p3*
0842      . p4p8-p2p3*p5p8))+32*(-3*fb4*p4p8+fb4*p5p8))
0843       b(21)=ccc*(8*w18*(2*fmc*p3p4*p7p8+2*fmc*p3p5*p7p8+3*fmc*p3p7*
0844      . p4p8-3*fmc*p3p7*p5p8+2*fmc2*hbcm*p7p8+2*hbcm*p4p5*p7p8+2*hbcm*
0845      . p4p7*p4p8-4*hbcm*p4p7*p5p8+5*hbcm*p4p8*p5p7-hbcm*p5p7*p5p8)+8*
0846      . w1*(2*fmc*p3p4*p7p8+3*fmc*p3p7*p4p8+2*fmc2*hbcm*p7p8+2*hbcm*
0847      . p4p7*p4p8-hbcm*p4p8*p5p7)+w8*(16*(p5p8*p3p7)*(-fmc+hbcm)+32*(
0848      . p4p8*p3p7)*(fmc-hbcm)+8*(-fmc*p2p8*p3p7-2*hbcm*p2p8*p4p7+hbcm*
0849      . p2p8*p5p7))+4*p7p8*(-8*fb3*fmc-8*fb4*fmc+5*hbcm))
0850       b(22)=ccc*(w18*(4*p3p5*(-fmb+7*fmc)+4*p3p4*(-fmb+7*fmc)+4*(-
0851      . fmb2*hbcm+7*fmc2*hbcm+6*hbcm*p4p5))+w8*(4*p2p3*(-fmb+fmc)+4*(
0852      . fmb*hbcm2-fmb2*hbcm-fmc*hbcm2+fmc2*hbcm))+w1*(4*p3p4*(-fmb+7*
0853      . fmc)+4*(-fmb*fmc*hbcm+7*fmc2*hbcm-2*hbcm*p4p5))+8*(-6*fb3*fmc+
0854      . 2*fb4*fmb-8*fb4*fmc+3*hbcm))
0855       b(23)=ccc*(w18*(32*p4p7*(fmb*hbcm+fmc*hbcm)+24*p3p7*(fmb*fmc+
0856      . fmc2)+8*(2*ffmcfmb*p3p4*p3p7+2*ffmcfmb*p3p5*p3p7+3*p3p4*p4p7-
0857      . p3p4*p5p7+3*p3p5*p4p7-p3p5*p5p7))+8*w1*(2*ffmcfmb*p3p4*p3p7+4*
0858      . fmc*hbcm*p4p7-fmc*hbcm*p5p7+3*fmc2*p3p7+3*p3p4*p4p7-p3p4*p5p7)
0859      . +w8*(8*p5p7*(-fmb*hbcm-fmc*hbcm+hbcm2)+24*p4p7*(fmb*hbcm+fmc*
0860      . hbcm-hbcm2)+8*p3p7*(3*fmb*fmc-fmb*hbcm-3*fmc*hbcm+3*fmc2)+8*(2
0861      . *ffmcfmb*p2p3*p3p7+3*p2p3*p4p7-p2p3*p5p7))+(p3p7*(-64*fb4*
0862      . ffmcfmb-8)+32*(-3*fb4*p4p7+fb4*p5p7)))
0863       b(24)=ccc*(w8*(8*p3p5*(fmb*hbcm+fmc*hbcm-hbcm2)+24*p3p4*(-fmb*
0864      . hbcm-fmc*hbcm+hbcm2)+4*p2p3*(-fmb*hbcm-5*fmc*hbcm)+4*(-6*fmb*
0865      . fmc*hbcm2+fmb*hbcm3-fmb2*hbcm2+5*fmc*hbcm3-5*fmc2*hbcm2-6*p2p3
0866      . *p3p4+2*p2p3*p3p5))+w18*(4*p3p5*(fmb*hbcm+fmc*hbcm)+28*p3p4*(-
0867      . fmb*hbcm-fmc*hbcm)+4*(-6*fmb*fmc*hbcm2-fmb2*hbcm2-fmc2*hbcm2+4
0868      . *hbcm2*p4p5-4*p3p4*p3p5-6*p3p4s2+2*p3p5s2))+w1*(4*p3p4*(fmb*
0869      . hbcm-7*fmc*hbcm)+4*(fmb*fmc*hbcm2+2*fmc*hbcm*p3p5-fmc2*hbcm2-2
0870      . *hbcm2*p4p5+2*p3p4*p3p5-6*p3p4s2))+16*(-fb3*fmb*hbcm-3*fb3*fmc
0871      . *hbcm+2*fb4*fmc*hbcm+6*fb4*p3p4-2*fb4*p3p5+hbcm2))
0872       b(25)=ccc*(8*w1*(-fmc*hbcm2*p4p7+fmc*hbcm2*p5p7-5*fmc*p3p4*p3p7
0873      . -4*fmc2*hbcm*p3p7-2*hbcm*p3p4*p4p7+hbcm*p3p4*p5p7)+w8*(16*(
0874      . p3p7*p3p5)*(fmc-hbcm)+32*(p3p7*p3p4)*(-fmc+hbcm)+8*p5p7*(-fmb*
0875      . hbcm2-fmc*hbcm2+hbcm3)+16*p4p7*(fmb*hbcm2+fmc*hbcm2-hbcm3)+8*
0876      . p3p7*(2*fmb*fmc*hbcm-fmb*hbcm2+2*fmc*hbcm2-2*fmc2*hbcm)+8*(fmc
0877      . *p2p3*p3p7+2*hbcm*p2p3*p4p7-hbcm*p2p3*p5p7))+w18*(8*p4p7*(3*
0878      . fmb*hbcm2-fmc*hbcm2)+16*p3p7*(fmb*fmc*hbcm-2*fmc2*hbcm)+8*(-4*
0879      . fmc*hbcm2*p5p7-5*fmc*p3p4*p3p7+fmc*p3p5*p3p7-2*hbcm*p3p4*p4p7-
0880      . 5*hbcm*p3p4*p5p7+4*hbcm*p3p5*p4p7+hbcm*p3p5*p5p7-2*hbcm*p3p7*
0881      . p4p5))+(4*p3p7*(16*fb3*fmc+8*fb4*fmc-5*hbcm)+32*(2*fb3*hbcm*
0882      . p4p7-fb3*hbcm*p5p7)))
0883       ans=ccc*(w8*(8*(p3p6*p2p3)*(fmb-2*fmc)+8*p5p6*(fmb*hbcm2+fmc*
0884      . hbcm2-hbcm3)+16*p4p6*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+8*p3p6*(-fmb
0885      . *fmc*hbcm-fmb*hbcm2+fmb2*hbcm+2*fmc*hbcm2-2*fmc2*hbcm)+8*(-2*
0886      . hbcm*p2p3*p4p6+hbcm*p2p3*p5p6))+w18*(8*(p3p6*p3p5)*(fmb-8*fmc)
0887      . +8*(p3p6*p3p4)*(fmb-2*fmc)+8*p4p6*(-3*fmb*hbcm2+fmc*hbcm2)+8*
0888      . p3p6*(-2*fmb*fmc*hbcm+fmb2*hbcm-3*fmc2*hbcm)+8*(4*fmc*hbcm2*
0889      . p5p6+2*hbcm*p3p4*p4p6+5*hbcm*p3p4*p5p6-4*hbcm*p3p5*p4p6-hbcm*
0890      . p3p5*p5p6-4*hbcm*p3p6*p4p5))+w1*(8*(p3p6*p3p4)*(fmb-2*fmc)+8*
0891      . p3p6*(fmb*fmc*hbcm-3*fmc2*hbcm)+8*(fmc*hbcm2*p4p6-fmc*hbcm2*
0892      . p5p6+2*hbcm*p3p4*p4p6-hbcm*p3p4*p5p6+2*hbcm*p3p6*p4p5))+(4*
0893      . p3p6*(8*fb3*fmc-8*fb4*fmb+24*fb4*fmc-7*hbcm)+32*(-2*fb3*hbcm*
0894      . p4p6+fb3*hbcm*p5p6)))
0895       b(26)=ans
0896       ans=ccc*(8*w1*(-2*fmc*hbcm*p3p4*p7p8+4*fmc*hbcm*p3p7*p4p8+hbcm2
0897      . *p4p7*p4p8-hbcm2*p4p8*p5p7+2*p3p4*p3p7*p4p8-2*p3p4s2*p7p8)+w8*
0898      . (16*(p5p8*p3p7)*(-fmc*hbcm+hbcm2)+16*(p4p8*p3p7)*(fmb*hbcm+2*
0899      . fmc*hbcm-2*hbcm2)+16*(p7p8*p3p4)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16
0900      . *p7p8*(-fmb*fmc*hbcm2+fmc*hbcm3-fmc2*hbcm2)+8*(-2*fmc*hbcm*
0901      . p2p3*p7p8-hbcm2*p2p8*p4p7+hbcm2*p2p8*p5p7-2*p2p3*p3p4*p7p8+2*
0902      . p2p3*p3p7*p4p8))+w18*(16*(p4p8*p3p7)*(fmb*hbcm+2*fmc*hbcm)+16*
0903      . (p7p8*p3p4)*(-fmb*hbcm-fmc*hbcm)+16*p7p8*(-fmb*fmc*hbcm2-
0904      . p3p4s2)+8*(-2*fmc*hbcm*p3p7*p5p8+2*hbcm2*p4p5*p7p8+hbcm2*p4p7*
0905      . p4p8-3*hbcm2*p4p7*p5p8+3*hbcm2*p4p8*p5p7-hbcm2*p5p7*p5p8-2*
0906      . p3p4*p3p5*p7p8+2*p3p4*p3p7*p4p8+2*p3p5*p3p7*p4p8))+(16*p7p8*(-
0907      . 2*fb3*fmc*hbcm+2*fb4*fmc*hbcm+hbcm2)+64*(fb4*p3p4*p7p8-fb4*
0908      . p3p7*p4p8)))
0909       b(27)=ans
0910       ans2=w1*(8*(p4p8*p3p6)*(fmb*hbcm-3*fmc*hbcm)+8*(p6p8*p3p4)*(-
0911      . fmb*hbcm+5*fmc*hbcm)+8*p6p8*(-fmb*fmc*hbcm2+fmc2*hbcm2+4*
0912      . p3p4s2)+8*(-2*fmc*hbcm*p3p5*p6p8+2*fmc*hbcm*p3p6*p5p8+2*hbcm2*
0913      . p4p5*p6p8+hbcm2*p4p6*p4p8-hbcm2*p4p8*p5p6-2*p3p4*p3p5*p6p8-4*
0914      . p3p4*p3p6*p4p8+2*p3p4*p3p6*p5p8))+(16*p6p8*(2*fb3*fmb*hbcm+4*
0915      . fb3*fmc*hbcm-2*fb4*fmc*hbcm-hbcm2)+64*(-2*fb4*p3p4*p6p8+fb4*
0916      . p3p5*p6p8+2*fb4*p3p6*p4p8-fb4*p3p6*p5p8))
0917       ans1=w8*(16*(p5p8*p3p6)*(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p4p8*p3p6
0918      . )*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p6p8*p3p5)*(-fmb*hbcm-fmc*
0919      . hbcm+hbcm2)+32*(p6p8*p3p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p3p6*
0920      . p2p8)*(-fmb*hbcm-fmc*hbcm)+8*(p6p8*p2p3)*(fmb*hbcm+3*fmc*hbcm)
0921      . +8*p6p8*(4*fmb*fmc*hbcm2-fmb*hbcm3+fmb2*hbcm2-3*fmc*hbcm3+3*
0922      . fmc2*hbcm2)+8*(-hbcm2*p2p8*p4p6+hbcm2*p2p8*p5p6+4*p2p3*p3p4*
0923      . p6p8-2*p2p3*p3p5*p6p8-4*p2p3*p3p6*p4p8+2*p2p3*p3p6*p5p8))+w18*
0924      . (8*(p5p8*p3p6)*(fmb*hbcm-fmc*hbcm)+8*(p4p8*p3p6)*(-5*fmb*hbcm-
0925      . 3*fmc*hbcm)+8*(p6p8*p3p5)*(-fmb*hbcm-fmc*hbcm)+40*(p6p8*p3p4)*
0926      . (fmb*hbcm+fmc*hbcm)+8*p6p8*(4*fmb*fmc*hbcm2+fmb2*hbcm2+fmc2*
0927      . hbcm2+4*p3p4s2-2*p3p5s2)+8*(-2*hbcm2*p4p5*p6p8+hbcm2*p4p6*p4p8
0928      . -3*hbcm2*p4p6*p5p8+3*hbcm2*p4p8*p5p6-hbcm2*p5p6*p5p8+2*p3p4*
0929      . p3p5*p6p8-4*p3p4*p3p6*p4p8+2*p3p4*p3p6*p5p8-4*p3p5*p3p6*p4p8+2
0930      . *p3p5*p3p6*p5p8))+ans2
0931       ans=ccc*ans1
0932       b(28)=ans
0933       ans2=w8*(16*(p5p6*p3p7)*(-fmc*hbcm+hbcm2)+16*(p4p6*p3p7)*(fmb*
0934      . hbcm+2*fmc*hbcm-2*hbcm2)+16*(p5p7*p3p6)*(-fmb*hbcm-fmc*hbcm+
0935      . hbcm2)+32*(p4p7*p3p6)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p7*p3p5)
0936      . *(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p6p7*p3p4)*(-fmb*hbcm-fmc*hbcm+
0937      . hbcm2)+8*(p6p7*p2p3)*(-fmb*hbcm-3*fmc*hbcm)+16*(p3p7*p3p6)*(3*
0938      . fmb*fmc-fmb*hbcm-3*fmc*hbcm+3*fmc2)+8*p6p7*(-4*fmb*fmc*hbcm2+
0939      . fmb*hbcm3-fmb2*hbcm2+3*fmc*hbcm3-3*fmc2*hbcm2)+16*(2*ffmcfmb*
0940      . p2p3*p3p6*p3p7-2*p2p3*p3p4*p6p7+p2p3*p3p5*p6p7+2*p2p3*p3p6*
0941      . p4p7-p2p3*p3p6*p5p7+p2p3*p3p7*p4p6))+((p3p7*p3p6)*(-128*fb4*
0942      . ffmcfmb-16)+16*p6p7*(-2*fb3*fmb*hbcm-4*fb3*fmc*hbcm+2*fb4*fmc*
0943      . hbcm+hbcm2)+64*(2*fb4*p3p4*p6p7-fb4*p3p5*p6p7-2*fb4*p3p6*p4p7+
0944      . fb4*p3p6*p5p7-fb4*p3p7*p4p6))
0945       ans1=w18*(16*(p4p6*p3p7)*(fmb*hbcm+2*fmc*hbcm)+16*(p4p7*p3p6)*(
0946      . 3*fmb*hbcm+2*fmc*hbcm)+8*(p6p7*p3p5)*(fmb*hbcm+fmc*hbcm)+40*(
0947      . p6p7*p3p4)*(-fmb*hbcm-fmc*hbcm)+48*(p3p7*p3p6)*(fmb*fmc+fmc2)+
0948      . 8*p6p7*(-4*fmb*fmc*hbcm2-fmb2*hbcm2-fmc2*hbcm2-4*p3p4s2+2*
0949      . p3p5s2)+16*(2*ffmcfmb*p3p4*p3p6*p3p7+2*ffmcfmb*p3p5*p3p6*p3p7+
0950      . fmc*hbcm*p3p6*p5p7-fmc*hbcm*p3p7*p5p6+hbcm2*p4p5*p6p7+2*hbcm2*
0951      . p4p6*p5p7-2*hbcm2*p4p7*p5p6-p3p4*p3p5*p6p7+2*p3p4*p3p6*p4p7-
0952      . p3p4*p3p6*p5p7+p3p4*p3p7*p4p6+2*p3p5*p3p6*p4p7-p3p5*p3p6*p5p7+
0953      . p3p5*p3p7*p4p6))+w1*(8*(p6p7*p3p4)*(fmb*hbcm-5*fmc*hbcm)+8*
0954      . p6p7*(fmb*fmc*hbcm2-fmc2*hbcm2-4*p3p4s2)+16*(2*ffmcfmb*p3p4*
0955      . p3p6*p3p7+fmc*hbcm*p3p5*p6p7+2*fmc*hbcm*p3p6*p4p7-fmc*hbcm*
0956      . p3p6*p5p7+2*fmc*hbcm*p3p7*p4p6+3*fmc2*p3p6*p3p7-hbcm2*p4p5*
0957      . p6p7+p3p4*p3p5*p6p7+2*p3p4*p3p6*p4p7-p3p4*p3p6*p5p7+p3p4*p3p7*
0958      . p4p6))+ans2
0959       ans=ccc*ans1
0960       b(29)=ans
0961       ans3=w18*(8*(p6p7*p5p8)*(-fmb*hbcm2-3*fmc*hbcm2)+8*(p6p7*p4p8)*
0962      . (3*fmb*hbcm2+fmc*hbcm2)+16*(p7p8*p4p6)*(-fmb*hbcm2+fmc*hbcm2)+
0963      . 16*(p6p8*p3p7)*(-fmb*fmc*hbcm+3*fmc2*hbcm)+16*(p7p8*p3p6)*(-
0964      . fmb*fmc*hbcm-fmc2*hbcm)+16*(-2*fmb*hbcm2*p4p7*p6p8+2*fmc*hbcm2
0965      . *p5p6*p7p8+2*fmc*hbcm2*p5p7*p6p8-fmc*p3p4*p3p6*p7p8+4*fmc*p3p4
0966      . *p3p7*p6p8-3*fmc*p3p5*p3p6*p7p8-3*fmc*p3p6*p3p7*p4p8+3*fmc*
0967      . p3p6*p3p7*p5p8+hbcm*p3p4*p4p6*p7p8+hbcm*p3p4*p4p7*p6p8+2*hbcm*
0968      . p3p4*p5p6*p7p8+3*hbcm*p3p4*p5p7*p6p8-2*hbcm*p3p4*p5p8*p6p7-
0969      . hbcm*p3p5*p4p6*p7p8-3*hbcm*p3p5*p4p7*p6p8+2*hbcm*p3p5*p4p8*
0970      . p6p7-hbcm*p3p5*p5p7*p6p8-2*hbcm*p3p6*p4p5*p7p8-hbcm*p3p6*p4p7*
0971      . p4p8+3*hbcm*p3p6*p4p7*p5p8-3*hbcm*p3p6*p4p8*p5p7+hbcm*p3p6*
0972      . p5p7*p5p8+2*hbcm*p3p7*p4p5*p6p8-hbcm*p3p7*p4p6*p4p8+hbcm*p3p7*
0973      . p4p6*p5p8-2*hbcm*p3p7*p4p8*p5p6))+(8*(p7p8*p3p6)*(8*fb4*fmc-3*
0974      . hbcm)+8*(p6p8*p3p7)*(-8*fb3*fmc-8*fb4*fmc+3*hbcm)+64*(-fb3*
0975      . hbcm*p4p6*p7p8-fb3*hbcm*p4p7*p6p8+fb3*hbcm*p4p8*p6p7+fb3*hbcm*
0976      . p5p7*p6p8-fb3*hbcm*p5p8*p6p7))
0977       ans2=w8*(32*(p5p8*p3p7*p3p6)*(fmc-hbcm)+32*(p4p8*p3p7*p3p6)*(-
0978      . fmc+hbcm)+32*(p6p8*p3p7*p3p5)*(-fmc+hbcm)+32*(p6p8*p3p7*p3p4)*
0979      . (fmc-hbcm)+16*(p6p7*p5p8)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+16*(
0980      . p6p8*p5p7)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+16*(p6p7*p4p8)*(fmb*
0981      . hbcm2+fmc*hbcm2-hbcm3)+16*(p6p8*p4p7)*(-fmb*hbcm2-fmc*hbcm2+
0982      . hbcm3)+16*(p7p8*p4p6)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+8*(p6p7*
0983      . p2p8)*(fmb*hbcm2-fmc*hbcm2)+16*(p6p8*p3p7)*(-fmb*fmc*hbcm+fmb*
0984      . hbcm2-fmc*hbcm2+fmc2*hbcm)+16*(p7p8*p3p6)*(-fmb*fmc*hbcm+fmc*
0985      . hbcm2-fmc2*hbcm)+16*(-fmc*p2p3*p3p6*p7p8+fmc*p2p8*p3p6*p3p7-
0986      . hbcm*p2p3*p4p6*p7p8-hbcm*p2p3*p4p7*p6p8+hbcm*p2p3*p4p8*p6p7+
0987      . hbcm*p2p3*p5p7*p6p8-hbcm*p2p3*p5p8*p6p7-hbcm*p2p8*p3p4*p6p7+
0988      . hbcm*p2p8*p3p5*p6p7+hbcm*p2p8*p3p6*p4p7-hbcm*p2p8*p3p6*p5p7+
0989      . hbcm*p2p8*p3p7*p4p6))+ans3
0990       ans1=w1*(8*(p6p7*p4p8)*(-fmb*hbcm2+fmc*hbcm2)+16*(fmc*hbcm2*
0991      . p4p6*p7p8-fmc*hbcm2*p5p7*p6p8+fmc*hbcm2*p5p8*p6p7-fmc*p3p4*
0992      . p3p6*p7p8+4*fmc*p3p4*p3p7*p6p8-3*fmc*p3p6*p3p7*p4p8-fmc2*hbcm*
0993      . p3p6*p7p8+3*fmc2*hbcm*p3p7*p6p8+hbcm*p3p4*p4p6*p7p8+hbcm*p3p4*
0994      . p4p7*p6p8-hbcm*p3p4*p5p7*p6p8+hbcm*p3p4*p5p8*p6p7-hbcm*p3p5*
0995      . p4p8*p6p7-hbcm*p3p6*p4p7*p4p8+hbcm*p3p6*p4p8*p5p7-hbcm*p3p7*
0996      . p4p6*p4p8))+ans2
0997       ans=ccc*ans1
0998       b(30)=ans
0999       ans2=w8*(16*(p6p7*p5p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p8*p5p7
1000      . )*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p6p7*p4p8)*(-fmb*hbcm-fmc*
1001      . hbcm+hbcm2)+32*(p6p8*p4p7)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p7p8*
1002      . p4p6)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p6p7*p2p8)*(-fmb*hbcm-fmc*
1003      . hbcm)+16*(p6p8*p3p7)*(2*fmb*fmc-fmb*hbcm-2*fmc*hbcm+2*fmc2)+16
1004      . *(p7p8*p3p6)*(fmb*fmc-fmc*hbcm+fmc2)+16*(ffmcfmb*p2p3*p3p6*
1005      . p7p8+ffmcfmb*p2p3*p3p7*p6p8+p2p3*p4p6*p7p8+2*p2p3*p4p7*p6p8-2*
1006      . p2p3*p4p8*p6p7-p2p3*p5p7*p6p8+p2p3*p5p8*p6p7))+((p6p8*p3p7)*(-
1007      . 64*fb4*ffmcfmb-8)+(p7p8*p3p6)*(-64*fb4*ffmcfmb-8)+64*(-fb4*
1008      . p4p6*p7p8-2*fb4*p4p7*p6p8+2*fb4*p4p8*p6p7+fb4*p5p7*p6p8-fb4*
1009      . p5p8*p6p7))
1010       ans1=w18*(8*(p6p7*p5p8)*(fmb*hbcm+fmc*hbcm)+40*(p6p7*p4p8)*(-
1011      . fmb*hbcm-fmc*hbcm)+48*(p6p8*p4p7)*(fmb*hbcm+fmc*hbcm)+16*(p7p8
1012      . *p4p6)*(fmb*hbcm+fmc*hbcm)+32*(p6p8*p3p7)*(fmb*fmc+fmc2)+16*(
1013      . p7p8*p3p6)*(fmb*fmc+fmc2)+16*(ffmcfmb*p3p4*p3p6*p7p8+ffmcfmb*
1014      . p3p4*p3p7*p6p8+ffmcfmb*p3p5*p3p6*p7p8+ffmcfmb*p3p5*p3p7*p6p8+
1015      . p3p4*p4p6*p7p8+2*p3p4*p4p7*p6p8-2*p3p4*p4p8*p6p7-p3p4*p5p7*
1016      . p6p8+p3p4*p5p8*p6p7+p3p5*p4p6*p7p8+2*p3p5*p4p7*p6p8-2*p3p5*
1017      . p4p8*p6p7-p3p5*p5p7*p6p8+p3p5*p5p8*p6p7))+w1*(8*(p6p7*p4p8)*(
1018      . fmb*hbcm-5*fmc*hbcm)+16*(ffmcfmb*p3p4*p3p6*p7p8+ffmcfmb*p3p4*
1019      . p3p7*p6p8+fmc*hbcm*p4p6*p7p8+3*fmc*hbcm*p4p7*p6p8-fmc*hbcm*
1020      . p5p7*p6p8+fmc*hbcm*p5p8*p6p7+fmc2*p3p6*p7p8+2*fmc2*p3p7*p6p8+
1021      . p3p4*p4p6*p7p8+2*p3p4*p4p7*p6p8-2*p3p4*p4p8*p6p7-p3p4*p5p7*
1022      . p6p8+p3p4*p5p8*p6p7))+ans2
1023       ans=ccc*ans1
1024       b(31)=ans
1025       b(32)=ccc*(w18*(8*p6p7*(-fmb2*hbcm+5*fmc2*hbcm)+8*(p6p7*p3p5)*(
1026      . -fmb+5*fmc)+8*(p6p7*p3p4)*(-fmb+5*fmc)+16*(-fmc*p3p6*p4p7+2*
1027      . fmc*p3p6*p5p7+fmc*p3p7*p4p6-2*fmc*p3p7*p5p6+2*hbcm*p4p5*p6p7+3
1028      . *hbcm*p4p6*p5p7-3*hbcm*p4p7*p5p6))+w1*(8*(p6p7*p3p4)*(-fmb+5*
1029      . fmc)+8*p6p7*(-fmb*fmc*hbcm+5*fmc2*hbcm)+16*(-fmc*p3p6*p4p7+fmc
1030      . *p3p7*p4p6-hbcm*p4p5*p6p7))+w8*(16*(p5p6*p3p7)*(-fmc+hbcm)+32*
1031      . (p4p6*p3p7)*(fmc-hbcm)+8*(p6p7*p2p3)*(-fmb+fmc)+8*p6p7*(fmb*
1032      . hbcm2-fmb2*hbcm-fmc*hbcm2+fmc2*hbcm)+16*(p3p7*p3p6)*(ffmcfmb*
1033      . fmc-fmc))+8*p6p7*(-8*fb3*fmc+4*fb4*fmb-12*fb4*fmc+3*hbcm))
1034       do 200 n=1,32
1035          c(n,1)=c(n,1)-0.09090909090909091d0*b(n)
1036          c(n,2)=c(n,2)-0.1680909685530997d0*b(n)
1037          c(n,3)=c(n,3)-0.2077659977796572d0*b(n)
1038 200   continue
1039       return
1040         end
1041
1042       subroutine amp17_3p1(cc)
1043       implicit double precision(a-h,o-z)
1044       implicit integer (i-n)
1045       dimension b(32)
1046 #include "inclcon.h"
1047 #include "inclppp.h"
1048 #include "inclamp.h"
1049       do 100 n=1,32
1050          b(n)=0.0d0
1051 100   continue
1052       ccc=cc/((-2*ffmcfmb*p1p3)*(-2*ffmcfmb*p3p5+fmb2-2*fmc*hbcm+fmc2
1053      . +hbcm2+2*p3p5)*(-2*ffmcfmb*p1p3-2*ffmcfmb*p2p3+2*p1p2))
1054       b(1)=ccc*(16*w2*(fmc*p1p3*p5p6+fmc*p2p5*p3p6-hbcm*p1p2*p5p6+
1055      . hbcm*p2p3*p5p6+hbcm*p2p5*p4p6+hbcm*p2p5*p5p6)+16*w17*(-2*fmc*
1056      . p1p2*p3p6-fmc*p1p3*p3p6-3*fmc*p1p3*p4p6+2*fmc*p2p3*p3p6+3*fmc*
1057      . p2p5*p3p6)+16*w12*(-2*fmc*p1p2*p3p6-fmc*p1p3*p3p6-3*fmc*p1p3*
1058      . p4p6+2*fmc*p2p3*p3p6+3*fmc*p2p5*p3p6)+(8*p3p6*(-4*fmb+3*fmc+4*
1059      . hbcm)+48*hbcm*p4p6))
1060       ans2=(8*p6p7*(-3*fmb*hbcm-3*fmc*hbcm+2*hbcm2)+(p4p6*p3p7)*(128*
1061      . fb4*ffmcfmb-48)+(p3p7*p3p6)*(64*fb4*ffmcfmb-56)+(p6p7*p1p3)*(
1062      . 64*fb4*ffmcfmb-24)+64*(fb4*p1p2*p6p7-fb4*p2p3*p6p7-3*fb4*p2p4*
1063      . p6p7-p3p6*p5p7))
1064       ans1=w2*(16*(p6p7*p2p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p5p6*
1065      . p3p7)*(fmb*fmc-fmc*hbcm+fmc2)+16*(p3p7*p3p6)*(ffmcfmb*fmb*fmc+
1066      . fmb*fmc)+16*(ffmcfmb*p1p3*p3p5*p6p7+ffmcfmb*p3p5*p3p6*p3p7+2*
1067      . ffmcfmb*p3p5*p3p7*p4p6+2*fmb*fmc*p1p3*p6p7+3*fmb*fmc*p3p7*p4p6
1068      . +fmb*hbcm*p1p2*p6p7-fmb*hbcm*p2p3*p6p7-4*fmb*hbcm*p2p4*p6p7+
1069      . p1p2*p3p5*p6p7-p2p3*p3p5*p6p7-3*p2p4*p3p5*p6p7))+w17*(16*(p6p7
1070      . *p1p3)*(2*fmb*fmc-fmc*hbcm+2*fmc2)+16*p6p7*(ffmcfmb*p1p3s2-
1071      . p2p3s2)+(p6p7*p2p3*p1p3)*(16*ffmcfmb-16)+16*(p3p7*p3p6)*(
1072      . ffmcfmb*fmb*fmc+ffmcfmb*fmc2)+16*(ffmcfmb*p1p3*p3p6*p3p7+2*
1073      . ffmcfmb*p1p3*p3p7*p4p6+ffmcfmb*p2p3*p3p6*p3p7+2*ffmcfmb*p2p3*
1074      . p3p7*p4p6+p1p2*p1p3*p6p7+p1p2*p2p3*p6p7-3*p1p3*p2p4*p6p7-3*
1075      . p2p3*p2p4*p6p7))+w12*(16*(p6p7*p1p3)*(2*fmb*fmc-fmc*hbcm+2*
1076      . fmc2)+16*(p3p7*p3p6)*(ffmcfmb*fmb*fmc+ffmcfmb*fmc2)+16*(
1077      . ffmcfmb*p1p3*p3p6*p3p7+2*ffmcfmb*p1p3*p3p7*p4p6+ffmcfmb*p1p3s2
1078      . *p6p7+p1p2*p1p3*p6p7-p1p3*p2p3*p6p7-3*p1p3*p2p4*p6p7))+ans2
1079       ans=ccc*ans1
1080       b(2)=ans
1081       ans3=w12*(16*(p6p7*p2p8*p1p3)*(-2*fmb-2*fmc+hbcm)+32*(p3p7*p3p6
1082      . *p2p8)*(-ffmcfmb*fmc+fmc)+16*(p3p7*p3p6*p1p8)*(-ffmcfmb*fmc-
1083      . fmc)+16*(p6p8*p3p7*p1p3)*(-ffmcfmb*fmb+ffmcfmb*fmc-fmc)+16*(2*
1084      . ffmcfmb*fmc*p3p6*p3p7*p5p8+2*fmc*p1p2*p3p6*p7p8-2*fmc*p1p3*
1085      . p1p8*p6p7+2*fmc*p1p3*p3p6*p7p8+4*fmc*p1p3*p4p6*p7p8-2*fmc*p1p3
1086      . *p5p7*p6p8+4*fmc*p1p3*p5p8*p6p7-fmc*p1p8*p3p7*p4p6-2*fmc*p2p3*
1087      . p3p6*p7p8-4*fmc*p2p5*p3p6*p7p8+4*fmc*p2p8*p3p6*p5p7+hbcm*p1p2*
1088      . p1p8*p6p7-hbcm*p1p8*p2p3*p6p7-2*hbcm*p1p8*p2p5*p6p7))+(8*(p7p8
1089      . *p3p6)*(4*fmb-3*fmc-3*hbcm)+16*(p6p7*p2p8)*(-4*fb3*fmc+4*fb3*
1090      . hbcm-8*fb4*fmb+4*fb4*fmc+3*hbcm)+8*(p6p8*p3p7)*(-8*fb3*ffmcfmb
1091      . *fmc+8*fb3*fmc-8*fb4*ffmcfmb*fmb+3*fmb-2*fmc+3*hbcm)+8*(4*hbcm
1092      . *p1p8*p6p7-5*hbcm*p4p6*p7p8+8*hbcm*p5p7*p6p8-6*hbcm*p5p8*p6p7)
1093      . )
1094       ans2=w17*(32*(p6p7*p2p8*p2p3)*(-fmb+fmc)+16*(p6p7*p2p8*p1p3)*(-
1095      . 2*fmb+hbcm)+16*(p3p7*p3p6*p2p8)*(-ffmcfmb*fmc+3*fmc)+16*(p3p7*
1096      . p3p6*p1p8)*(-ffmcfmb*fmc-fmc)+16*(p6p8*p3p7*p2p3)*(-ffmcfmb*
1097      . fmb+ffmcfmb*fmc-fmc)+16*(p6p8*p3p7*p1p3)*(-ffmcfmb*fmb+ffmcfmb
1098      . *fmc-fmc)+16*(2*ffmcfmb*fmc*p3p6*p3p7*p5p8+2*fmc*p1p2*p3p6*
1099      . p7p8-2*fmc*p1p3*p1p8*p6p7+2*fmc*p1p3*p3p6*p7p8+4*fmc*p1p3*p4p6
1100      . *p7p8-2*fmc*p1p3*p5p7*p6p8+4*fmc*p1p3*p5p8*p6p7-fmc*p1p8*p3p7*
1101      . p4p6-2*fmc*p2p3*p3p6*p7p8-4*fmc*p2p5*p3p6*p7p8-2*fmc*p2p5*p3p7
1102      . *p6p8+4*fmc*p2p8*p3p6*p5p7+3*fmc*p2p8*p3p7*p4p6+hbcm*p1p2*p1p8
1103      . *p6p7-hbcm*p1p2*p2p8*p6p7-hbcm*p1p8*p2p3*p6p7-2*hbcm*p1p8*p2p5
1104      . *p6p7-2*hbcm*p2p5*p2p8*p6p7))+ans3
1105       ans1=w2*(32*(p5p6*p3p7*p2p8)*(-fmc+hbcm)+16*(p6p7*p3p5*p2p8)*(-
1106      . 2*fmb+2*fmc-3*hbcm)+16*(p6p8*p3p7)*(-fmb*fmc*hbcm+fmb*fmc2-
1107      . fmb2*fmc)+16*(p6p7*p2p8)*(3*fmb*fmc*hbcm-2*fmb*hbcm2-3*fmb2*
1108      . hbcm)+16*(p5p8*p3p7*p3p6)*(ffmcfmb*fmc+fmc)+16*(p6p8*p3p7*p3p5
1109      . )*(-ffmcfmb*fmb+ffmcfmb*fmc-fmc)+16*(-2*fmc*p1p3*p5p6*p7p8+2*
1110      . fmc*p1p3*p5p8*p6p7-2*fmc*p2p5*p3p6*p7p8+2*fmc*p2p8*p3p6*p5p7+3
1111      . *fmc*p3p7*p4p6*p5p8+2*fmc*p3p7*p5p6*p5p8+2*hbcm*p1p2*p5p6*p7p8
1112      . -3*hbcm*p1p2*p5p8*p6p7+2*hbcm*p1p5*p2p8*p6p7-2*hbcm*p2p3*p5p6*
1113      . p7p8+3*hbcm*p2p3*p5p8*p6p7+2*hbcm*p2p5*p2p8*p6p7-2*hbcm*p2p5*
1114      . p4p6*p7p8-2*hbcm*p2p5*p5p6*p7p8+2*hbcm*p2p5*p5p8*p6p7+2*hbcm*
1115      . p2p8*p4p6*p5p7+2*hbcm*p2p8*p5p6*p5p7))+ans2
1116       ans=ccc*ans1
1117       b(3)=ans
1118       b(4)=ccc*(w2*(8*p3p7*(-2*fmb*fmc*hbcm+3*fmb*fmc2-3*fmb2*fmc)+8*
1119      . (p3p7*p3p5)*(-2*ffmcfmb*fmb+2*ffmcfmb*fmc-3*fmc)+16*(-fmc*p1p3
1120      . *p5p7+fmc*p1p5*p3p7+hbcm*p1p2*p5p7-hbcm*p2p3*p5p7+hbcm*p2p5*
1121      . p3p7))+w17*(8*(p3p7*p2p3)*(-2*ffmcfmb*fmb+2*ffmcfmb*fmc-3*fmc)
1122      . +8*(p3p7*p1p3)*(-2*ffmcfmb*fmb+2*ffmcfmb*fmc-3*fmc)+16*(fmc*
1123      . p1p2*p3p7-3*fmc*p1p3*p5p7-3*fmc*p2p5*p3p7))+w12*(8*(p3p7*p1p3)
1124      . *(-2*ffmcfmb*fmb+2*ffmcfmb*fmc-3*fmc)-48*fmc*p1p3*p5p7)+(4*
1125      . p3p7*(-8*fb3*ffmcfmb*fmc+8*fb3*fmc-16*fb4*ffmcfmb*fmb+8*fb4*
1126      . ffmcfmb*fmc+6*fmb-6*fmc+5*hbcm)+48*hbcm*p5p7))
1127       ans2=w12*(8*(p3p7*p1p8)*(-fmb*fmc-fmc2)+16*(p7p8*p1p3)*(2*fmb*
1128      . fmc-fmc*hbcm+2*fmc2)+(p3p7*p2p8*p1p3)*(32*ffmcfmb-32)+16*(
1129      . ffmcfmb*p1p3*p1p8*p3p7-2*ffmcfmb*p1p3*p3p7*p5p8+ffmcfmb*p1p3s2
1130      . *p7p8-2*p1p2*p1p3*p7p8+2*p1p3*p2p3*p7p8+3*p1p3*p2p5*p7p8-3*
1131      . p1p3*p2p8*p5p7))+(4*p7p8*(-5*fmb*hbcm-5*fmc*hbcm+4*hbcm2)+(
1132      . p5p8*p3p7)*(-128*fb4*ffmcfmb+48)+(p3p7*p2p8)*(128*fb4*ffmcfmb-
1133      . 128*fb4-48)+(p3p7*p1p8)*(64*fb4*ffmcfmb-24)+(p7p8*p1p3)*(64*
1134      . fb4*ffmcfmb-24)+64*(-2*fb4*p1p2*p7p8+2*fb4*p2p3*p7p8+3*fb4*
1135      . p2p5*p7p8-3*fb4*p2p8*p5p7))
1136       ans1=w2*(16*(p5p7*p2p8)*(-3*fmb*hbcm+fmc*hbcm-hbcm2)+16*(p7p8*
1137      . p2p5)*(3*fmb*hbcm-fmc*hbcm+hbcm2)+8*(p5p8*p3p7)*(-3*fmb*fmc-2*
1138      . fmc*hbcm+3*fmc2)+48*(p3p7*p2p8)*(fmb*fmc-fmb*hbcm)+(p3p7*p3p5*
1139      . p2p8)*(32*ffmcfmb-32)+16*(ffmcfmb*p1p3*p3p5*p7p8+ffmcfmb*p1p8*
1140      . p3p5*p3p7-2*ffmcfmb*p3p5*p3p7*p5p8+2*fmb*fmc*p1p3*p7p8+fmb*fmc
1141      . *p1p8*p3p7-3*fmb*hbcm*p1p2*p7p8+3*fmb*hbcm*p2p3*p7p8-2*p1p2*
1142      . p3p5*p7p8+2*p2p3*p3p5*p7p8+3*p2p5*p3p5*p7p8-3*p2p8*p3p5*p5p7))
1143      . +w17*(8*(p3p7*p2p8)*(3*fmb*fmc-2*fmc*hbcm+3*fmc2)+8*(p3p7*p1p8
1144      . )*(-fmb*fmc-fmc2)+16*(p7p8*p1p3)*(2*fmb*fmc-fmc*hbcm+2*fmc2)+(
1145      . p3p7*p2p8*p2p3)*(32*ffmcfmb-32)+16*p7p8*(ffmcfmb*p1p3s2+2*
1146      . p2p3s2)+(p3p7*p2p8*p1p3)*(32*ffmcfmb-32)+(p7p8*p2p3*p1p3)*(16*
1147      . ffmcfmb+32)+16*(ffmcfmb*p1p3*p1p8*p3p7-2*ffmcfmb*p1p3*p3p7*
1148      . p5p8+ffmcfmb*p1p8*p2p3*p3p7-2*ffmcfmb*p2p3*p3p7*p5p8-2*p1p2*
1149      . p1p3*p7p8-2*p1p2*p2p3*p7p8+3*p1p3*p2p5*p7p8-3*p1p3*p2p8*p5p7+3
1150      . *p2p3*p2p5*p7p8-3*p2p3*p2p8*p5p7))+ans2
1151       ans=ccc*ans1
1152       b(5)=ans
1153       ans2=((p3p7*p3p5)*(128*fb4*ffmcfmb-48)+(p3p7*p2p3)*(-128*fb4*
1154      . ffmcfmb+48)+(p3p7*p1p3)*(-128*fb4*ffmcfmb+48)+4*p3p7*(8*fb3*
1155      . fmb*fmc+8*fb3*fmc2+16*fb4*fmc*hbcm+5*fmb*hbcm+5*fmc*hbcm-6*
1156      . hbcm2)+32*(4*fb4*p1p2*p3p7+6*fb4*p2p3*p5p7-6*fb4*p2p5*p3p7+
1157      . hbcm2*p5p7))
1158       ans1=w2*(16*(p3p7*p2p5)*(-3*fmb*hbcm+fmc*hbcm)+16*(p5p7*p2p3)*(
1159      . 3*fmb*hbcm-fmc*hbcm)+8*(p3p7*p3p5)*(3*fmb*fmc+2*fmc*hbcm-3*
1160      . fmc2)+8*p3p7*(4*ffmcfmb*p3p5s2+3*fmb*fmc*hbcm2-2*fmb*fmc2*hbcm
1161      . -2*fmb2*fmc*hbcm)+16*(-2*ffmcfmb*p1p3*p3p5*p3p7-2*ffmcfmb*p2p3
1162      . *p3p5*p3p7-3*fmb*fmc*p1p3*p3p7-3*fmb*fmc*p2p3*p3p7+3*fmb*hbcm*
1163      . p1p2*p3p7-fmc*hbcm*p1p3*p5p7+fmc*hbcm*p1p5*p3p7+hbcm2*p1p2*
1164      . p5p7+2*p1p2*p3p5*p3p7+3*p2p3*p3p5*p5p7-3*p2p5*p3p5*p3p7))+w17*
1165      . (8*(p3p7*p2p3)*(-3*fmb*fmc+2*fmc*hbcm-3*fmc2)+8*(p3p7*p1p3)*(-
1166      . 3*fmb*fmc+2*fmc*hbcm-3*fmc2)+32*p3p7*(-ffmcfmb*p1p3s2-ffmcfmb*
1167      . p2p3s2)+16*(-4*ffmcfmb*p1p3*p2p3*p3p7+2*ffmcfmb*p1p3*p3p5*p3p7
1168      . +2*ffmcfmb*p2p3*p3p5*p3p7+fmc*hbcm*p1p2*p3p7-2*fmc*hbcm*p1p3*
1169      . p5p7-2*fmc*hbcm*p2p5*p3p7+2*p1p2*p1p3*p3p7+2*p1p2*p2p3*p3p7+3*
1170      . p1p3*p2p3*p5p7-3*p1p3*p2p5*p3p7-3*p2p3*p2p5*p3p7+3*p2p3s2*p5p7
1171      . ))+w12*(8*(p3p7*p1p3)*(-3*fmb*fmc+2*fmc*hbcm-3*fmc2)+16*(-2*
1172      . ffmcfmb*p1p3*p2p3*p3p7+2*ffmcfmb*p1p3*p3p5*p3p7-2*ffmcfmb*
1173      . p1p3s2*p3p7-2*fmc*hbcm*p1p3*p5p7+2*p1p2*p1p3*p3p7+3*p1p3*p2p3*
1174      . p5p7-3*p1p3*p2p5*p3p7))+ans2
1175       ans=ccc*ans1
1176       b(6)=ans
1177       ans3=(4*p7p8*(-4*fmb*hbcm2+4*fmc*hbcm2-5*hbcm3)+8*(p3p7*p2p8)*(
1178      . 16*fb4*fmb-8*fb4*fmc-5*hbcm)+8*(p5p8*p3p7)*(8*fb3*fmc+5*hbcm)+
1179      . 8*(p7p8*p2p3)*(-8*fb3*fmc-16*fb4*fmb+8*fb4*fmc+5*hbcm)+8*(p3p7
1180      . *p1p8)*(-8*fb3*fmc-3*hbcm)+8*(8*fb3*hbcm*p1p2*p7p8-16*fb3*hbcm
1181      . *p2p5*p7p8+16*fb3*hbcm*p2p8*p5p7+3*hbcm*p1p3*p7p8-5*hbcm*p3p5*
1182      . p7p8))
1183       ans2=w17*(32*p7p8*(-fmb*p2p3s2-fmc*p1p3s2+fmc*p2p3s2)+32*(p3p7*
1184      . p2p8*p2p3)*(fmb-fmc)+32*(p3p7*p2p8*p1p3)*(fmb-fmc)+8*(p3p7*
1185      . p2p8)*(2*fmb*fmc*hbcm+3*fmc*hbcm2-2*fmc2*hbcm)+16*(p7p8*p1p3)*
1186      . (fmb*fmc*hbcm+2*fmc*hbcm2-fmc2*hbcm)+8*(-4*fmb*p1p3*p2p3*p7p8-
1187      . fmc*hbcm2*p1p8*p3p7+4*fmc*p1p3*p1p8*p3p7+8*fmc*p1p3*p3p5*p7p8-
1188      . 6*fmc*p1p3*p3p7*p5p8+4*fmc*p1p8*p2p3*p3p7-2*fmc*p1p8*p3p5*p3p7
1189      . -6*fmc*p2p3*p3p7*p5p8+6*fmc*p2p8*p3p5*p3p7+2*hbcm*p1p2*p1p3*
1190      . p7p8-2*hbcm*p1p2*p1p8*p3p7-2*hbcm*p1p2*p2p3*p7p8+2*hbcm*p1p2*
1191      . p2p8*p3p7-4*hbcm*p1p3*p2p5*p7p8+4*hbcm*p1p3*p2p8*p5p7-4*hbcm*
1192      . p1p8*p2p3*p5p7+4*hbcm*p1p8*p2p5*p3p7-4*hbcm*p2p3*p2p5*p7p8+4*
1193      . hbcm*p2p5*p2p8*p3p7))+w12*(16*(p3p7*p2p8*p1p3)*(2*fmb+fmc)+32*
1194      . (p7p8*p2p3*p1p3)*(-fmb-fmc)+16*(p7p8*p1p3)*(fmb*fmc*hbcm+2*fmc
1195      . *hbcm2-fmc2*hbcm)+8*(-fmc*hbcm2*p1p8*p3p7+4*fmc*p1p3*p1p8*p3p7
1196      . +8*fmc*p1p3*p3p5*p7p8-6*fmc*p1p3*p3p7*p5p8-4*fmc*p1p3s2*p7p8+2
1197      . *fmc*p1p8*p2p3*p3p7-2*fmc*p1p8*p3p5*p3p7+2*hbcm*p1p2*p1p3*p7p8
1198      . -2*hbcm*p1p2*p1p8*p3p7-4*hbcm*p1p3*p2p5*p7p8+4*hbcm*p1p3*p2p8*
1199      . p5p7-4*hbcm*p1p8*p2p3*p5p7+4*hbcm*p1p8*p2p5*p3p7))+ans3
1200       ans1=w2*(16*(p3p7*p3p5*p2p8)*(2*fmb+fmc)+32*(p7p8*p3p5*p2p3)*(-
1201      . fmb+fmc)+16*(p5p7*p2p8)*(-2*fmb*hbcm2-fmc*hbcm2+hbcm3)+16*(
1202      . p7p8*p2p5)*(2*fmb*hbcm2+fmc*hbcm2-hbcm3)+8*(p5p8*p3p7)*(-2*fmb
1203      . *fmc*hbcm+3*fmc*hbcm2-2*fmc2*hbcm)+16*(p3p7*p2p8)*(-fmb*fmc*
1204      . hbcm+3*fmb2*hbcm)+48*(p7p8*p2p3)*(fmb*fmc*hbcm-fmb2*hbcm)+16*(
1205      . fmb*fmc*hbcm*p1p3*p7p8+fmb*fmc*hbcm*p1p8*p3p7-2*fmb*hbcm2*p1p2
1206      . *p7p8+2*fmc*p1p3*p3p5*p7p8-3*fmc*p1p3*p3p7*p5p8+fmc*p1p8*p3p5*
1207      . p3p7-3*fmc*p2p3*p3p7*p5p8-3*hbcm*p1p2*p3p5*p7p8+3*hbcm*p1p2*
1208      . p3p7*p5p8+2*hbcm*p1p5*p2p3*p7p8-2*hbcm*p1p5*p2p8*p3p7+2*hbcm*
1209      . p2p3*p2p5*p7p8+2*hbcm*p2p3*p5p7*p5p8-2*hbcm*p2p5*p2p8*p3p7+2*
1210      . hbcm*p2p5*p3p5*p7p8-2*hbcm*p2p5*p3p7*p5p8-2*hbcm*p2p8*p3p5*
1211      . p5p7))+ans2
1212       ans=ccc*ans1
1213       b(7)=ans
1214       ans=ccc*(w2*(16*(p5p6*p2p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p3p6
1215      . *p2p8)*(-2*fmb*fmc-fmb*hbcm)+(p3p6*p3p5*p2p8)*(-16*ffmcfmb-16)
1216      . +16*(ffmcfmb*p1p3*p3p5*p6p8+fmb*fmc*p1p3*p6p8-fmb*hbcm*p2p4*
1217      . p6p8-4*fmb*hbcm*p2p8*p4p6-p2p4*p3p5*p6p8-3*p2p8*p3p5*p4p6))+
1218      . w12*(16*(p3p6*p2p8)*(-2*fmb*fmc+fmc*hbcm-2*fmc2)+16*(p6p8*p1p3
1219      . )*(fmb*fmc-fmc*hbcm+fmc2)+(p3p6*p2p8*p1p3)*(-16*ffmcfmb-16)+16
1220      . *(ffmcfmb*p1p3s2*p6p8-p1p3*p2p4*p6p8-3*p1p3*p2p8*p4p6))+w17*(
1221      . 16*(p3p6*p2p8)*(-2*fmb*fmc+fmc*hbcm-2*fmc2)+16*(p6p8*p1p3)*(
1222      . fmb*fmc-fmc*hbcm+fmc2)+(p3p6*p2p8*p2p3)*(-16*ffmcfmb-16)+(p3p6
1223      . *p2p8*p1p3)*(-16*ffmcfmb-16)+16*(ffmcfmb*p1p3*p2p3*p6p8+
1224      . ffmcfmb*p1p3s2*p6p8-p1p3*p2p4*p6p8-3*p1p3*p2p8*p4p6-p2p3*p2p4*
1225      . p6p8-3*p2p3*p2p8*p4p6))+(16*p6p8*(-2*fmb*hbcm-2*fmc*hbcm+hbcm2
1226      . )+(p3p6*p2p8)*(-64*fb4*ffmcfmb-64*fb4+56)+(p6p8*p1p3)*(64*fb4*
1227      . ffmcfmb-24)+32*(-2*fb4*p2p4*p6p8-6*fb4*p2p8*p4p6+p1p8*p3p6-2*
1228      . p3p6*p5p8)))
1229       b(8)=ans
1230       ans=ccc*(w17*(32*(p3p6*p2p3)*(fmb*fmc+fmc2)+16*(p3p6*p1p3)*(-
1231      . fmb*fmc-fmc2)+16*p3p6*(-ffmcfmb*p1p3s2+ffmcfmb*p2p3s2)+16*(-
1232      . fmc*hbcm*p1p2*p3p6-2*fmc*hbcm*p1p3*p4p6+2*fmc*hbcm*p2p5*p3p6+
1233      . p1p2*p1p3*p3p6+p1p2*p2p3*p3p6+3*p1p3*p2p3*p4p6-p1p3*p2p5*p3p6-
1234      . p2p3*p2p5*p3p6+3*p2p3s2*p4p6))+w2*(16*(p3p6*p2p5)*(-fmb*hbcm+
1235      . fmc*hbcm)+16*(p5p6*p2p3)*(fmb*hbcm+fmc*hbcm)+16*(-ffmcfmb*p1p3
1236      . *p3p5*p3p6+ffmcfmb*p2p3*p3p5*p3p6-fmb*fmc*p1p3*p3p6+2*fmb*fmc*
1237      . p2p3*p3p6+fmb*hbcm*p1p2*p3p6+4*fmb*hbcm*p2p3*p4p6+fmc*hbcm*
1238      . p1p3*p5p6-hbcm2*p1p2*p5p6+hbcm2*p2p5*p4p6+hbcm2*p2p5*p5p6+p1p2
1239      . *p3p5*p3p6+3*p2p3*p3p5*p4p6-p2p5*p3p5*p3p6))+w12*(32*(p3p6*
1240      . p2p3)*(fmb*fmc+fmc2)+16*(p3p6*p1p3)*(-fmb*fmc-fmc2)+16*(
1241      . ffmcfmb*p1p3*p2p3*p3p6-ffmcfmb*p1p3s2*p3p6-fmc*hbcm*p1p2*p3p6-
1242      . 2*fmc*hbcm*p1p3*p4p6+2*fmc*hbcm*p2p5*p3p6+p1p2*p1p3*p3p6+3*
1243      . p1p3*p2p3*p4p6-p1p3*p2p5*p3p6))+(32*p3p6*(fmb*hbcm+fmc*hbcm+
1244      . hbcm2)+(p3p6*p2p3)*(64*fb4*ffmcfmb-56)+(p3p6*p1p3)*(-64*fb4*
1245      . ffmcfmb-8)+32*(2*fb4*p1p2*p3p6+6*fb4*p2p3*p4p6-2*fb4*p2p5*p3p6
1246      . +hbcm2*p4p6+2*p3p5*p3p6)))
1247       b(9)=ans
1248       ans3=(16*p6p8*(-fmb*hbcm2+fmc*hbcm2-2*hbcm3)+64*(p3p6*p2p8)*(
1249      . fb3*fmc+fb4*fmb-hbcm)+64*(p6p8*p2p3)*(-fb3*fmc-fb4*fmb+hbcm)+8
1250      . *(p6p8*p1p3)*(-8*fb3*fmc+5*hbcm)+8*(8*fb3*hbcm*p1p2*p6p8-8*fb3
1251      . *hbcm*p2p5*p6p8+16*fb3*hbcm*p2p8*p4p6-5*hbcm*p1p8*p3p6-8*hbcm*
1252      . p3p5*p6p8+8*hbcm*p3p6*p5p8))
1253       ans2=w17*(16*p6p8*(-fmb*p2p3s2-fmc*p1p3s2+fmc*p2p3s2)+16*(p3p6*
1254      . p2p8*p2p3)*(fmb-fmc)+16*(p3p6*p2p8*p1p3)*(fmb+2*fmc)+16*(p3p6*
1255      . p2p8)*(-fmb*fmc*hbcm-2*fmc*hbcm2+fmc2*hbcm)+16*(p6p8*p1p3)*(
1256      . fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+16*(-fmb*p1p3*p2p3*p6p8+fmc*
1257      . p1p3*p1p8*p3p6+2*fmc*p1p3*p3p5*p6p8-2*fmc*p1p3*p3p6*p5p8-2*fmc
1258      . *p1p8*p2p3*p3p6+4*fmc*p2p3*p3p6*p5p8-4*fmc*p2p8*p3p5*p3p6+hbcm
1259      . *p1p2*p1p3*p6p8-hbcm*p1p2*p1p8*p3p6-hbcm*p1p2*p2p3*p6p8+hbcm*
1260      . p1p2*p2p8*p3p6-hbcm*p1p3*p2p5*p6p8+2*hbcm*p1p3*p2p8*p4p6-2*
1261      . hbcm*p1p8*p2p3*p4p6+hbcm*p1p8*p2p5*p3p6-hbcm*p2p3*p2p5*p6p8+
1262      . hbcm*p2p5*p2p8*p3p6))+w12*(16*(p3p6*p2p8*p1p3)*(fmb+3*fmc)+16*
1263      . (p6p8*p2p3*p1p3)*(-fmb-fmc)+16*(p3p6*p2p8)*(-fmb*fmc*hbcm-2*
1264      . fmc*hbcm2+fmc2*hbcm)+16*(p6p8*p1p3)*(fmb*fmc*hbcm+fmc*hbcm2-
1265      . fmc2*hbcm)+16*(fmc*p1p3*p1p8*p3p6+2*fmc*p1p3*p3p5*p6p8-2*fmc*
1266      . p1p3*p3p6*p5p8-fmc*p1p3s2*p6p8-2*fmc*p1p8*p2p3*p3p6+4*fmc*p2p3
1267      . *p3p6*p5p8-4*fmc*p2p8*p3p5*p3p6+hbcm*p1p2*p1p3*p6p8-hbcm*p1p2*
1268      . p1p8*p3p6-hbcm*p1p3*p2p5*p6p8+2*hbcm*p1p3*p2p8*p4p6-2*hbcm*
1269      . p1p8*p2p3*p4p6+hbcm*p1p8*p2p5*p3p6))+ans3
1270       ans1=w2*(16*(p3p6*p3p5*p2p8)*(fmb-3*fmc)+16*(p6p8*p3p5*p2p3)*(-
1271      . fmb+fmc)+16*(p5p6*p2p8)*(-fmb*hbcm2+fmc*hbcm2-hbcm3)+16*(p3p6*
1272      . p2p8)*(-2*fmb*fmc*hbcm+fmb2*hbcm)+16*(p6p8*p2p3)*(fmb*fmc*hbcm
1273      . -fmb2*hbcm)+16*(fmb*fmc*hbcm*p1p3*p6p8-fmb*hbcm2*p1p2*p6p8+fmb
1274      . *hbcm2*p2p5*p6p8-3*fmb*hbcm2*p2p8*p4p6+fmc*p1p3*p3p5*p6p8-fmc*
1275      . p1p3*p3p6*p5p8+2*fmc*p2p3*p3p6*p5p8-hbcm*p1p2*p3p5*p6p8+hbcm*
1276      . p1p2*p3p6*p5p8+4*hbcm*p2p3*p4p6*p5p8+2*hbcm*p2p3*p5p6*p5p8+
1277      . hbcm*p2p5*p3p5*p6p8-hbcm*p2p5*p3p6*p5p8-4*hbcm*p2p8*p3p5*p4p6-
1278      . 2*hbcm*p2p8*p3p5*p5p6))+ans2
1279       ans=ccc*ans1
1280       b(10)=ans
1281       ans3=(8*p6p7*(2*fmb*hbcm2-2*fmc*hbcm2+3*hbcm3)+8*(p3p7*p3p6)*(8
1282      . *fb4*ffmcfmb*fmb-7*fmb+5*fmc)+8*(p4p6*p3p7)*(8*fb3*fmc+5*hbcm)
1283      . +16*(p6p7*p2p3)*(4*fb3*fmc+8*fb4*fmb-4*fb4*fmc-3*hbcm)+16*(-4*
1284      . fb3*hbcm*p1p2*p6p7+8*fb3*hbcm*p2p5*p6p7-2*hbcm*p1p3*p6p7+3*
1285      . hbcm*p3p5*p6p7-4*hbcm*p3p6*p5p7))
1286       ans2=w17*(32*p6p7*(fmb*p2p3s2+fmc*p1p3s2-fmc*p2p3s2)+16*(p6p7*
1287      . p1p3)*(-fmb*fmc*hbcm-2*fmc*hbcm2+fmc2*hbcm)+16*(ffmcfmb*fmb*
1288      . p1p3*p3p6*p3p7+ffmcfmb*fmb*p2p3*p3p6*p3p7-2*ffmcfmb*fmc*p3p5*
1289      . p3p6*p3p7+2*fmb*p1p3*p2p3*p6p7-2*fmc*p1p2*p3p6*p3p7-4*fmc*p1p3
1290      . *p3p5*p6p7+2*fmc*p1p3*p3p6*p5p7-3*fmc*p1p3*p3p7*p4p6-4*fmc*
1291      . p2p3*p3p6*p5p7-3*fmc*p2p3*p3p7*p4p6+6*fmc*p2p5*p3p6*p3p7-fmc2*
1292      . hbcm*p3p6*p3p7-hbcm*p1p2*p1p3*p6p7+hbcm*p1p2*p2p3*p6p7+2*hbcm*
1293      . p1p3*p2p5*p6p7+2*hbcm*p2p3*p2p5*p6p7))+w12*(32*(p6p7*p2p3*p1p3
1294      . )*(fmb+fmc)+16*(p6p7*p1p3)*(-fmb*fmc*hbcm-2*fmc*hbcm2+fmc2*
1295      . hbcm)+16*(ffmcfmb*fmb*p1p3*p3p6*p3p7+2*ffmcfmb*fmc*p2p3*p3p6*
1296      . p3p7-2*ffmcfmb*fmc*p3p5*p3p6*p3p7-2*fmc*p1p2*p3p6*p3p7-4*fmc*
1297      . p1p3*p3p5*p6p7+2*fmc*p1p3*p3p6*p5p7-3*fmc*p1p3*p3p7*p4p6+2*fmc
1298      . *p1p3s2*p6p7-4*fmc*p2p3*p3p6*p5p7+4*fmc*p2p5*p3p6*p3p7-fmc2*
1299      . hbcm*p3p6*p3p7-hbcm*p1p2*p1p3*p6p7+2*hbcm*p1p3*p2p5*p6p7))+
1300      . ans3
1301       ans1=w2*(32*(p6p7*p3p5*p2p3)*(fmb-fmc)+16*(p6p7*p2p5)*(-2*fmb*
1302      . hbcm2-fmc*hbcm2+hbcm3)+16*(p3p7*p3p6)*(-fmb*fmc2+fmb2*fmc)+16*
1303      . (p5p6*p3p7)*(-fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+48*(p6p7*p2p3)
1304      . *(-fmb*fmc*hbcm+fmb2*hbcm)+16*(p3p7*p3p6*p3p5)*(ffmcfmb*fmb-2*
1305      . ffmcfmb*fmc)+16*(-fmb*fmc*hbcm*p1p3*p6p7-2*fmb*fmc*hbcm*p3p7*
1306      . p4p6+2*fmb*hbcm2*p1p2*p6p7-2*fmc*p1p3*p3p5*p6p7+2*fmc*p1p3*
1307      . p3p7*p5p6-2*fmc*p2p3*p3p6*p5p7+2*fmc*p2p3*p3p7*p5p6+2*fmc*p2p5
1308      . *p3p6*p3p7-3*fmc*p3p5*p3p7*p4p6-2*fmc*p3p5*p3p7*p5p6+3*hbcm*
1309      . p1p2*p3p5*p6p7-2*hbcm*p1p2*p3p7*p5p6-2*hbcm*p1p5*p2p3*p6p7-2*
1310      . hbcm*p2p3*p2p5*p6p7-2*hbcm*p2p3*p4p6*p5p7-2*hbcm*p2p3*p5p6*
1311      . p5p7-2*hbcm*p2p5*p3p5*p6p7+2*hbcm*p2p5*p3p7*p4p6+2*hbcm*p2p5*
1312      . p3p7*p5p6))+ans2
1313       ans=ccc*ans1
1314       b(11)=ans
1315       ans4=16*(-2*ffmcfmb*p1p3*p2p3*p3p6*p7p8+2*ffmcfmb*p1p3*p2p3*
1316      . p3p7*p6p8-2*ffmcfmb*p1p3*p3p5*p3p7*p6p8+2*ffmcfmb*p1p3*p3p6*
1317      . p3p7*p5p8-2*ffmcfmb*p2p3*p3p5*p3p7*p6p8+2*ffmcfmb*p2p3*p3p6*
1318      . p3p7*p5p8-2*ffmcfmb*p2p3s2*p3p6*p7p8+2*ffmcfmb*p2p3s2*p3p7*
1319      . p6p8+2*fmc*hbcm*p1p2*p3p6*p7p8+fmc*hbcm*p1p3*p1p8*p6p7+2*fmc*
1320      . hbcm*p1p3*p4p6*p7p8+2*fmc*hbcm*p1p3*p5p7*p6p8-2*fmc*hbcm*p1p3*
1321      . p5p8*p6p7-2*fmc*hbcm*p2p5*p3p6*p7p8+2*fmc*hbcm*p2p5*p3p7*p6p8+
1322      . 2*fmc*hbcm*p2p8*p3p6*p5p7+2*fmc*hbcm*p2p8*p3p7*p4p6-2*hbcm2*
1323      . p1p2*p2p8*p6p7+hbcm2*p1p8*p2p5*p6p7+hbcm2*p2p5*p2p8*p6p7+4*
1324      . p1p3*p1p8*p2p3*p6p7+4*p1p3*p2p3*p2p8*p6p7-2*p1p3*p2p3*p4p6*
1325      . p7p8+2*p1p3*p2p3*p4p7*p6p8-6*p1p3*p2p3*p4p8*p6p7-2*p1p3*p2p3*
1326      . p5p8*p6p7+2*p1p3*p2p8*p3p5*p6p7+8*p1p3*p2p8*p3p7*p4p6+4*p1p8*
1327      . p2p3s2*p6p7+2*p2p3*p2p8*p3p5*p6p7+8*p2p3*p2p8*p3p7*p4p6+4*
1328      . p2p3s2*p2p8*p6p7-2*p2p3s2*p4p6*p7p8+2*p2p3s2*p4p7*p6p8-6*
1329      . p2p3s2*p4p8*p6p7-2*p2p3s2*p5p8*p6p7)
1330       ans3=16*(p6p7*p2p8*p2p3)*(2*fmb*hbcm+2*fmc*hbcm+hbcm2)+16*(p6p7
1331      . *p2p3*p1p8)*(fmb*hbcm+fmc*hbcm)+16*(p6p7*p2p8*p1p3)*(fmb*hbcm+
1332      . 2*fmc*hbcm+hbcm2)+16*(p3p7*p3p6*p2p8)*(7*fmb*fmc-2*fmc*hbcm+7*
1333      . fmc2)+16*(p6p8*p3p7*p2p3)*(fmb*fmc-fmc*hbcm+fmc2)+32*(p7p8*
1334      . p3p6*p2p3)*(-fmb*fmc-fmc2)+16*(p3p7*p3p6*p1p8)*(fmb*fmc+fmc2)+
1335      . 16*(p6p8*p3p7*p1p3)*(-fmb*fmc+fmc*hbcm-fmc2)+(p3p7*p3p6*p2p8*
1336      . p2p3)*(64*ffmcfmb+32)+(p3p7*p3p6*p2p8*p1p3)*(64*ffmcfmb+32)+
1337      . ans4
1338       ans2=w17*ans3
1339       ans6=(8*(p7p8*p3p6)*(-5*fmb*hbcm-5*fmc*hbcm-4*hbcm2)+(p5p8*p3p7
1340      . *p3p6)*(128*fb4*ffmcfmb+16)+(p6p8*p3p7*p3p5)*(-128*fb4*ffmcfmb
1341      . +48)+(p3p7*p3p6*p2p8)*(256*fb4*ffmcfmb+128*fb4-96)+(p6p8*p3p7*
1342      . p2p3)*(128*fb4*ffmcfmb-48)+(p7p8*p3p6*p2p3)*(-128*fb4*ffmcfmb+
1343      . 48)+64*(p6p7*p2p8)*(fb3*fmb*hbcm-fb4*fmc*hbcm+fb4*hbcm2)+8*(
1344      . p6p8*p3p7)*(-8*fb3*fmb*fmc-8*fb4*fmc*hbcm+8*fb4*fmc2+5*fmb*
1345      . hbcm+3*fmc*hbcm-hbcm2)+8*(32*fb4*p1p8*p2p3*p6p7+32*fb4*p2p3*
1346      . p2p8*p6p7-16*fb4*p2p3*p4p6*p7p8+16*fb4*p2p3*p4p7*p6p8-48*fb4*
1347      . p2p3*p4p8*p6p7-16*fb4*p2p3*p5p8*p6p7+16*fb4*p2p8*p3p5*p6p7+64*
1348      . fb4*p2p8*p3p7*p4p6-3*hbcm2*p1p8*p6p7-4*hbcm2*p4p6*p7p8-4*hbcm2
1349      . *p5p7*p6p8+4*hbcm2*p5p8*p6p7-8*p3p5*p3p6*p7p8))
1350       ans5=w12*(16*(p6p7*p2p3*p1p8)*(fmb*hbcm+fmc*hbcm)+16*(p6p7*p2p8
1351      . *p1p3)*(fmb*hbcm+fmc*hbcm+hbcm2)+32*(p3p7*p3p6*p2p8)*(3*fmb*
1352      . fmc-fmc*hbcm+3*fmc2)+32*(p7p8*p3p6*p2p3)*(-fmb*fmc-fmc2)+16*(
1353      . p3p7*p3p6*p1p8)*(fmb*fmc+fmc2)+16*(p6p8*p3p7*p1p3)*(-fmb*fmc+
1354      . fmc*hbcm-fmc2)+(p3p7*p3p6*p2p8*p1p3)*(64*ffmcfmb+32)+16*(-2*
1355      . ffmcfmb*p1p3*p2p3*p3p6*p7p8+2*ffmcfmb*p1p3*p2p3*p3p7*p6p8-2*
1356      . ffmcfmb*p1p3*p3p5*p3p7*p6p8+2*ffmcfmb*p1p3*p3p6*p3p7*p5p8+2*
1357      . fmc*hbcm*p1p2*p3p6*p7p8+fmc*hbcm*p1p3*p1p8*p6p7+2*fmc*hbcm*
1358      . p1p3*p4p6*p7p8+2*fmc*hbcm*p1p3*p5p7*p6p8-2*fmc*hbcm*p1p3*p5p8*
1359      . p6p7-2*fmc*hbcm*p2p5*p3p6*p7p8+2*fmc*hbcm*p2p8*p3p6*p5p7+hbcm2
1360      . *p1p8*p2p5*p6p7+4*p1p3*p1p8*p2p3*p6p7+4*p1p3*p2p3*p2p8*p6p7-2*
1361      . p1p3*p2p3*p4p6*p7p8+2*p1p3*p2p3*p4p7*p6p8-6*p1p3*p2p3*p4p8*
1362      . p6p7-2*p1p3*p2p3*p5p8*p6p7+2*p1p3*p2p8*p3p5*p6p7+8*p1p3*p2p8*
1363      . p3p7*p4p6))+ans6
1364       ans1=w2*(32*(p5p6*p3p7*p2p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p7
1365      . *p3p5*p2p8)*(fmb*hbcm-fmc*hbcm+hbcm2)+16*(p6p7*p5p8*p2p3)*(-5*
1366      . fmb*hbcm-3*fmc*hbcm)+16*(p5p8*p3p7*p3p6)*(fmb*fmc-fmc2)+16*(
1367      . p6p8*p3p7*p3p5)*(-fmb*fmc-fmc*hbcm+fmc2)+32*(p3p7*p3p6*p2p8)*(
1368      . 3*fmb*fmc+fmb*hbcm)+16*(p6p7*p2p8)*(-fmb*fmc*hbcm2+fmb*hbcm3-
1369      . fmb2*hbcm2+2*p3p5s2)+16*(p6p8*p3p7)*(-2*ffmcfmb*p3p5s2-fmb*fmc
1370      . *hbcm2+fmb*fmc2*hbcm+fmb2*fmc*hbcm)+(p3p7*p3p6*p3p5*p2p8)*(64*
1371      . ffmcfmb+32)+16*(-2*ffmcfmb*p2p3*p3p5*p3p6*p7p8+2*ffmcfmb*p2p3*
1372      . p3p5*p3p7*p6p8+2*ffmcfmb*p3p5*p3p6*p3p7*p5p8-2*fmb*fmc*p2p3*
1373      . p3p6*p7p8+2*fmb*fmc*p2p3*p3p7*p6p8+6*fmb*hbcm*p1p8*p2p3*p6p7+6
1374      . *fmb*hbcm*p2p3*p2p8*p6p7-2*fmb*hbcm*p2p3*p4p6*p7p8+2*fmb*hbcm*
1375      . p2p3*p4p7*p6p8-8*fmb*hbcm*p2p3*p4p8*p6p7+10*fmb*hbcm*p2p8*p3p7
1376      . *p4p6-fmc*hbcm*p1p3*p5p8*p6p7-2*fmc*hbcm*p3p7*p4p6*p5p8-2*fmc*
1377      . hbcm*p3p7*p5p6*p5p8+2*hbcm2*p1p2*p5p8*p6p7-hbcm2*p2p5*p5p8*
1378      . p6p7+4*p1p8*p2p3*p3p5*p6p7+4*p2p3*p2p8*p3p5*p6p7-2*p2p3*p3p5*
1379      . p4p6*p7p8+2*p2p3*p3p5*p4p7*p6p8-6*p2p3*p3p5*p4p8*p6p7-2*p2p3*
1380      . p3p5*p5p8*p6p7+8*p2p8*p3p5*p3p7*p4p6))+ans2+ans5
1381       ans=ccc*ans1
1382       b(12)=ans
1383       b(13)=ccc*(w17*(24*(p2p8*p2p3)*(-fmb+fmc)+8*(p2p8*p1p3)*(-3*fmb
1384      . +2*hbcm)+8*(-3*fmc*p1p3*p1p8+6*fmc*p1p3*p5p8+2*hbcm*p1p2*p1p8-
1385      . 2*hbcm*p1p2*p2p8-2*hbcm*p1p8*p2p3-3*hbcm*p1p8*p2p5-3*hbcm*p2p5
1386      . *p2p8))+w12*(8*(p2p8*p1p3)*(-3*fmb-3*fmc+2*hbcm)+8*(-3*fmc*
1387      . p1p3*p1p8+6*fmc*p1p3*p5p8+2*hbcm*p1p2*p1p8-2*hbcm*p1p8*p2p3-3*
1388      . hbcm*p1p8*p2p5))+w2*(8*(p3p5*p2p8)*(-3*fmb+3*fmc-4*hbcm)+8*
1389      . p2p8*(4*fmb*fmc*hbcm-3*fmb*hbcm2-4*fmb2*hbcm)+8*(3*fmc*p1p3*
1390      . p5p8-4*hbcm*p1p2*p5p8+2*hbcm*p1p5*p2p8+4*hbcm*p2p3*p5p8+2*hbcm
1391      . *p2p5*p2p8+3*hbcm*p2p5*p5p8))+(16*p2p8*(-4*fb3*fmc+4*fb3*hbcm-
1392      . 6*fb4*fmb+2*fb4*fmc+3*hbcm)+4*(7*hbcm*p1p8-12*hbcm*p5p8)))
1393       b(14)=ccc*(w12*(8*p1p3*(-3*fmb*fmc+2*fmc*hbcm-3*fmc2)+8*(-2*
1394      . ffmcfmb*p1p3s2+3*p1p2*p1p3-3*p1p3*p2p3-4*p1p3*p2p5))+w2*(8*
1395      . p2p5*(-4*fmb*hbcm+fmc*hbcm-hbcm2)+8*(-2*ffmcfmb*p1p3*p3p5-3*
1396      . fmb*fmc*p1p3+4*fmb*hbcm*p1p2-4*fmb*hbcm*p2p3+3*p1p2*p3p5-3*
1397      . p2p3*p3p5-4*p2p5*p3p5))+w17*(8*p1p3*(-3*fmb*fmc+2*fmc*hbcm-3*
1398      . fmc2)+(p2p3*p1p3)*(-16*ffmcfmb-24)+8*(-2*ffmcfmb*p1p3s2+3*p1p2
1399      . *p1p3+3*p1p2*p2p3-4*p1p3*p2p5-4*p2p3*p2p5-3*p2p3s2))+(p1p3*(-
1400      . 64*fb4*ffmcfmb+24)+8*(12*fb4*p1p2-12*fb4*p2p3-16*fb4*p2p5+3*
1401      . fmb*hbcm+3*fmc*hbcm-2*hbcm2)))
1402       ans2=(32*p2p8*(2*fb3*fmb*hbcm+fb3*fmc*hbcm-fb4*fmc*hbcm+3*fb4*
1403      . hbcm2+hbcm2)+16*(-4*fb4*p1p3*p2p8+4*fb4*p1p8*p2p3-12*fb4*p2p3*
1404      . p5p8+12*fb4*p2p8*p3p5+hbcm2*p1p8-2*hbcm2*p5p8))
1405       ans1=w17*(16*(p2p3*p1p8)*(-fmb*hbcm-fmc*hbcm)+8*(p2p8*p1p3)*(2*
1406      . fmb*hbcm+3*hbcm2)+8*(-2*fmc*hbcm*p1p3*p1p8+4*fmc*hbcm*p1p3*
1407      . p5p8+hbcm2*p1p2*p1p8-hbcm2*p1p2*p2p8-2*hbcm2*p1p8*p2p5+3*hbcm2
1408      . *p2p3*p2p8-2*hbcm2*p2p5*p2p8+2*p1p3*p1p8*p2p3-2*p1p3*p2p3*p2p8
1409      . -6*p1p3*p2p3*p5p8+6*p1p3*p2p8*p3p5-2*p1p3s2*p2p8+2*p1p8*p2p3s2
1410      . +6*p2p3*p2p8*p3p5-6*p2p3s2*p5p8))+w12*(16*(p2p3*p1p8)*(-fmb*
1411      . hbcm-fmc*hbcm)+8*(p2p8*p1p3)*(2*fmb*hbcm-2*fmc*hbcm+3*hbcm2)+8
1412      . *(-2*fmc*hbcm*p1p3*p1p8+4*fmc*hbcm*p1p3*p5p8+hbcm2*p1p2*p1p8-2
1413      . *hbcm2*p1p8*p2p5+2*p1p3*p1p8*p2p3-6*p1p3*p2p3*p5p8+6*p1p3*p2p8
1414      . *p3p5-2*p1p3s2*p2p8))+w2*(8*(p3p5*p2p8)*(4*fmb*hbcm-4*fmc*hbcm
1415      . +3*hbcm2)+32*(p5p8*p2p3)*(-fmb*hbcm+fmc*hbcm)+8*p2p8*(-3*fmb*
1416      . fmc*hbcm2+4*fmb*hbcm3-3*fmb2*hbcm2+6*p3p5s2)+8*(-2*fmb*hbcm*
1417      . p1p3*p2p8+2*fmb*hbcm*p1p8*p2p3+2*fmc*hbcm*p1p3*p5p8-3*hbcm2*
1418      . p1p2*p5p8+2*hbcm2*p1p5*p2p8+2*hbcm2*p2p5*p2p8+2*hbcm2*p2p5*
1419      . p5p8-2*p1p3*p2p8*p3p5+2*p1p8*p2p3*p3p5-6*p2p3*p3p5*p5p8))+ans2
1420       ans=ccc*ans1
1421       b(15)=ans
1422       ans=ccc*(w2*(24*(p3p5*p2p3)*(fmb-fmc)+8*p2p5*(-3*fmb*hbcm2-fmc*
1423      . hbcm2+hbcm3)+32*p2p3*(-fmb*fmc*hbcm+fmb2*hbcm)+8*(-2*fmb*fmc*
1424      . hbcm*p1p3+3*fmb*hbcm2*p1p2-3*fmc*p1p3*p3p5+4*hbcm*p1p2*p3p5-2*
1425      . hbcm*p1p5*p2p3-2*hbcm*p2p3*p2p5-3*hbcm*p2p5*p3p5))+w17*(8*p1p3
1426      . *(-2*fmb*fmc*hbcm-3*fmc*hbcm2+2*fmc2*hbcm)+8*(3*fmb*p1p3*p2p3+
1427      . 3*fmb*p2p3s2-6*fmc*p1p3*p3p5+3*fmc*p1p3s2-3*fmc*p2p3s2-2*hbcm*
1428      . p1p2*p1p3+2*hbcm*p1p2*p2p3+3*hbcm*p1p3*p2p5+3*hbcm*p2p3*p2p5))
1429      . +w12*(24*(p2p3*p1p3)*(fmb+fmc)+8*p1p3*(-2*fmb*fmc*hbcm-3*fmc*
1430      . hbcm2+2*fmc2*hbcm)+8*(-6*fmc*p1p3*p3p5+3*fmc*p1p3s2-2*hbcm*
1431      . p1p2*p1p3+3*hbcm*p1p3*p2p5))+(16*p2p3*(4*fb3*fmc+6*fb4*fmb-2*
1432      . fb4*fmc-3*hbcm)+4*p1p3*(8*fb3*fmc-7*hbcm)+8*(-8*fb3*hbcm*p1p2+
1433      . 12*fb3*hbcm*p2p5+2*fmb*hbcm2-2*fmc*hbcm2+6*hbcm*p3p5+3*hbcm3))
1434      . )
1435       b(16)=ans
1436       b(17)=ccc*(w17*(8*(p3p6*p2p8)*(3*fmc+hbcm)+8*(p3p6*p1p8)*(3*fmc
1437      . +hbcm)+8*(p6p8*p2p3)*(fmb-fmc-hbcm)+8*(p6p8*p1p3)*(fmb-fmc-
1438      . hbcm)+8*(-6*fmc*p3p6*p5p8+2*hbcm*p1p2*p6p8+3*hbcm*p1p8*p4p6+3*
1439      . hbcm*p2p8*p4p6))+w12*(8*(p3p6*p1p8)*(3*fmc+hbcm)+8*(p6p8*p1p3)
1440      . *(fmb+fmc-hbcm)+8*(2*fmc*p2p8*p3p6-6*fmc*p3p6*p5p8+3*hbcm*p1p8
1441      . *p4p6))+w2*(8*(p5p8*p3p6)*(-3*fmc-hbcm)+8*(p6p8*p3p5)*(fmb-fmc
1442      . +hbcm)+8*p6p8*(-fmb*fmc*hbcm+fmb*hbcm2+fmb2*hbcm)+8*(-5*hbcm*
1443      . p4p6*p5p8-2*hbcm*p5p6*p5p8))+4*p6p8*(8*fb3*fmc-8*fb3*hbcm+8*
1444      . fb4*fmb-7*hbcm))
1445       b(18)=ccc*(w2*(8*p5p6*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*p3p6*(-3*fmb
1446      . *fmc-fmb*hbcm)+(p3p6*p3p5)*(-16*ffmcfmb-8)+8*(-5*fmb*hbcm*p4p6
1447      . -4*p3p5*p4p6))+w17*(8*p3p6*(-3*fmb*fmc+2*fmc*hbcm-3*fmc2)+(
1448      . p3p6*p2p3)*(-16*ffmcfmb-8)+(p3p6*p1p3)*(-16*ffmcfmb-8)+32*(-
1449      . p1p3*p4p6-p2p3*p4p6))+w12*(8*p3p6*(-3*fmb*fmc+2*fmc*hbcm-3*
1450      . fmc2)+(p3p6*p1p3)*(-16*ffmcfmb-8)-32*p1p3*p4p6)+(p3p6*(-64*fb4
1451      . *ffmcfmb-32*fb4+24)-128*fb4*p4p6))
1452       b(19)=ccc*(w2*(4*p5p8*(4*fmb*hbcm2+4*fmc*hbcm2-5*hbcm3)+8*(-fmb
1453      . *hbcm2*p1p8-fmb*hbcm2*p2p8+hbcm*p1p3*p5p8-hbcm*p1p8*p3p5+hbcm*
1454      . p2p3*p5p8-hbcm*p2p8*p3p5))+w17*(4*p2p8*(2*fmb*hbcm2-2*fmc*
1455      . hbcm2+3*hbcm3)+4*p1p8*(2*fmb*hbcm2-2*fmc*hbcm2+3*hbcm3)+24*(-
1456      . hbcm*p1p3*p5p8+hbcm*p1p8*p3p5-hbcm*p2p3*p5p8+hbcm*p2p8*p3p5))+
1457      . w12*(4*p1p8*(2*fmb*hbcm2-2*fmc*hbcm2+3*hbcm3)+8*(hbcm*p1p3*
1458      . p2p8-3*hbcm*p1p3*p5p8-hbcm*p1p8*p2p3+3*hbcm*p1p8*p3p5))+32*(
1459      . fb3*hbcm*p1p8+fb3*hbcm*p2p8-3*fb3*hbcm*p5p8))
1460       b(20)=ccc*(w2*(4*p5p8*(5*fmb*hbcm-5*fmc*hbcm+4*hbcm2)+8*(-fmb*
1461      . hbcm*p1p8-fmb*hbcm*p2p8-p1p8*p3p5-p2p8*p3p5+4*p3p5*p5p8))+w17*
1462      . (4*p2p8*(3*fmb*hbcm+3*fmc*hbcm-2*hbcm2)+4*p1p8*(3*fmb*hbcm+3*
1463      . fmc*hbcm-2*hbcm2)+8*(-p1p3*p1p8-p1p3*p2p8+4*p1p3*p5p8-p1p8*
1464      . p2p3-p2p3*p2p8+4*p2p3*p5p8))+w12*(4*p1p8*(3*fmb*hbcm+3*fmc*
1465      . hbcm-2*hbcm2)+8*(-p1p3*p1p8-p1p3*p2p8+4*p1p3*p5p8))+32*(-fb4*
1466      . p1p8-fb4*p2p8+4*fb4*p5p8))
1467       b(21)=ccc*(w17*(8*(p3p7*p2p8)*(-3*fmc+2*hbcm)+8*(p3p7*p1p8)*(-3
1468      . *fmc+2*hbcm)+8*(p7p8*p2p3)*(3*fmb-3*fmc-2*hbcm)+8*(p7p8*p1p3)*
1469      . (3*fmb-3*fmc-2*hbcm)+8*(6*fmc*p3p7*p5p8+4*hbcm*p1p2*p7p8+3*
1470      . hbcm*p1p8*p5p7+3*hbcm*p2p8*p5p7))+w12*(8*(p3p7*p1p8)*(-fmc+2*
1471      . hbcm)+8*(p7p8*p1p3)*(3*fmb+fmc-2*hbcm)+24*hbcm*p1p8*p5p7)+w2*(
1472      . 8*(p5p8*p3p7)*(3*fmc-4*hbcm)+8*(p7p8*p3p5)*(3*fmb-3*fmc+4*hbcm
1473      . )+8*p7p8*(-4*fmb*fmc*hbcm+3*fmb*hbcm2+4*fmb2*hbcm)+8*(-2*hbcm*
1474      . p1p5*p7p8-2*hbcm*p2p5*p7p8-3*hbcm*p5p7*p5p8))+4*p7p8*(16*fb3*
1475      . fmc-16*fb3*hbcm+24*fb4*fmb-8*fb4*fmc-5*hbcm))
1476       b(22)=ccc*(w17*(4*p2p3*(4*fmb-4*fmc-3*hbcm)+4*p1p3*(4*fmb-4*fmc
1477      . -3*hbcm)+24*hbcm*p1p2)+4*w12*p1p3*(4*fmb+2*fmc-3*hbcm)+w2*(4*
1478      . p3p5*(4*fmb-4*fmc+5*hbcm)+4*(-5*fmb*fmc*hbcm+4*fmb*hbcm2+5*
1479      . fmb2*hbcm-2*hbcm*p1p5-2*hbcm*p2p5))+8*(6*fb3*fmc-6*fb3*hbcm+8*
1480      . fb4*fmb-2*fb4*fmc-3*hbcm))
1481       b(23)=ccc*(w2*(8*p5p7*(4*fmb*hbcm-fmc*hbcm+hbcm2)+8*p3p7*(-3*
1482      . fmb*fmc+4*fmb*hbcm)+(p3p7*p3p5)*(-16*ffmcfmb+24)+32*p3p5*p5p7)
1483      . +w17*(8*p3p7*(-3*fmb*fmc+2*fmc*hbcm-3*fmc2)+(p3p7*p2p3)*(-16*
1484      . ffmcfmb+24)+(p3p7*p1p3)*(-16*ffmcfmb+24)+32*(p1p3*p5p7+p2p3*
1485      . p5p7))+w12*((p3p7*p1p3)*(-16*ffmcfmb+24)+32*p1p3*p5p7)+(p3p7*(
1486      . -64*fb4*ffmcfmb+96*fb4+24)+128*fb4*p5p7))
1487       b(24)=ccc*(w17*(4*p2p3*(-3*fmb*hbcm-3*fmc*hbcm-4*hbcm2)+4*p1p3*
1488      . (-3*fmb*hbcm-3*fmc*hbcm-4*hbcm2)+8*(2*hbcm2*p1p2+2*p1p3*p2p3-4
1489      . *p1p3*p3p5+p1p3s2-4*p2p3*p3p5+p2p3s2))+w12*(4*p1p3*(-3*fmb*
1490      . hbcm+fmc*hbcm-4*hbcm2)+8*(p1p3*p2p3-4*p1p3*p3p5+p1p3s2))+w2*(4
1491      . *p3p5*(-5*fmb*hbcm+5*fmc*hbcm-4*hbcm2)+4*(4*fmb*fmc*hbcm2+2*
1492      . fmb*hbcm*p1p3+2*fmb*hbcm*p2p3-5*fmb*hbcm3+4*fmb2*hbcm2-2*hbcm2
1493      . *p1p5-2*hbcm2*p2p5+2*p1p3*p3p5+2*p2p3*p3p5-8*p3p5s2))+16*(-3*
1494      . fb3*fmb*hbcm-fb3*fmc*hbcm+2*fb4*fmc*hbcm-4*fb4*hbcm2+2*fb4*
1495      . p1p3+2*fb4*p2p3-8*fb4*p3p5-hbcm2))
1496       b(25)=ccc*(24*w12*(-fmb*p1p3*p3p7-hbcm*p1p3*p5p7)+w2*(8*p5p7*(3
1497      . *fmb*hbcm2+fmc*hbcm2-hbcm3)+16*p3p7*(fmb*fmc*hbcm-2*fmb2*hbcm)
1498      . +8*(-3*fmb*p3p5*p3p7+2*hbcm*p1p5*p3p7+2*hbcm*p2p5*p3p7+3*hbcm*
1499      . p3p5*p5p7))+w17*(24*(p3p7*p2p3)*(-fmb+2*fmc)+24*(p3p7*p1p3)*(-
1500      . fmb+2*fmc)+8*p3p7*(-2*fmb*fmc*hbcm-3*fmc*hbcm2+2*fmc2*hbcm)+8*
1501      . (-6*fmc*p3p5*p3p7-4*hbcm*p1p2*p3p7-3*hbcm*p1p3*p5p7-3*hbcm*
1502      . p2p3*p5p7))+(4*p3p7*(-8*fb3*fmc-24*fb4*fmb+8*fb4*fmc+5*hbcm)-
1503      . 96*fb3*hbcm*p5p7))
1504       b(26)=ccc*(w2*(8*(p3p6*p3p5)*(-fmb+4*fmc)+8*p5p6*(fmb*hbcm2-fmc
1505      . *hbcm2+hbcm3)+8*p3p6*(3*fmb*fmc*hbcm-fmb2*hbcm)+8*(4*fmb*hbcm2
1506      . *p4p6+5*hbcm*p3p5*p4p6+2*hbcm*p3p5*p5p6))+w17*(8*(p3p6*p2p3)*(
1507      . -fmb-2*fmc)+8*(p3p6*p1p3)*(-fmb-2*fmc)+8*p3p6*(2*fmb*fmc*hbcm+
1508      . 3*fmc*hbcm2-2*fmc2*hbcm)+8*(6*fmc*p3p5*p3p6-2*hbcm*p1p2*p3p6-3
1509      . *hbcm*p1p3*p4p6-3*hbcm*p2p3*p4p6))+w12*(8*(p3p6*p1p3)*(-fmb-4*
1510      . fmc)+8*p3p6*(2*fmb*fmc*hbcm+3*fmc*hbcm2-2*fmc2*hbcm)+8*(-2*fmc
1511      . *p2p3*p3p6+6*fmc*p3p5*p3p6-3*hbcm*p1p3*p4p6))+(4*p3p6*(-16*fb3
1512      . *fmc-8*fb4*fmb+7*hbcm)-96*fb3*hbcm*p4p6))
1513       ans2=(16*p7p8*(-4*fb3*fmb*hbcm-2*fb3*fmc*hbcm+2*fb4*fmc*hbcm-6*
1514      . fb4*hbcm2-hbcm2)+64*(fb4*p1p3*p7p8-fb4*p1p8*p3p7+fb4*p2p3*p7p8
1515      . -fb4*p2p8*p3p7-3*fb4*p3p5*p7p8+3*fb4*p3p7*p5p8))
1516       ans1=w17*(16*p7p8*(p1p3s2+p2p3s2)+8*(p7p8*p2p3)*(-2*fmb*hbcm-2*
1517      . fmc*hbcm-3*hbcm2)+8*(p7p8*p1p3)*(-2*fmb*hbcm-2*fmc*hbcm-3*
1518      . hbcm2)+16*(fmb*hbcm*p1p8*p3p7+fmb*hbcm*p2p8*p3p7+2*fmc*hbcm*
1519      . p3p7*p5p8+hbcm2*p1p2*p7p8+hbcm2*p1p8*p5p7+hbcm2*p2p8*p5p7-p1p3
1520      . *p1p8*p3p7+2*p1p3*p2p3*p7p8-p1p3*p2p8*p3p7-3*p1p3*p3p5*p7p8+3*
1521      . p1p3*p3p7*p5p8-p1p8*p2p3*p3p7-p2p3*p2p8*p3p7-3*p2p3*p3p5*p7p8+
1522      . 3*p2p3*p3p7*p5p8))+w12*(16*(p3p7*p1p8)*(fmb*hbcm+fmc*hbcm)+8*(
1523      . p7p8*p1p3)*(-2*fmb*hbcm-3*hbcm2)+16*(hbcm2*p1p8*p5p7-p1p3*p1p8
1524      . *p3p7+p1p3*p2p3*p7p8-p1p3*p2p8*p3p7-3*p1p3*p3p5*p7p8+3*p1p3*
1525      . p3p7*p5p8+p1p3s2*p7p8))+w2*(16*(p5p8*p3p7)*(2*fmb*hbcm-fmc*
1526      . hbcm)+8*(p7p8*p3p5)*(-4*fmb*hbcm+4*fmc*hbcm-3*hbcm2)+8*p7p8*(3
1527      . *fmb*fmc*hbcm2-4*fmb*hbcm3+3*fmb2*hbcm2-6*p3p5s2)+16*(fmb*hbcm
1528      . *p1p3*p7p8-fmb*hbcm*p1p8*p3p7+fmb*hbcm*p2p3*p7p8-fmb*hbcm*p2p8
1529      . *p3p7-hbcm2*p1p5*p7p8-hbcm2*p2p5*p7p8-hbcm2*p5p7*p5p8+p1p3*
1530      . p3p5*p7p8-p1p8*p3p5*p3p7+p2p3*p3p5*p7p8-p2p8*p3p5*p3p7+3*p3p5*
1531      . p3p7*p5p8))+ans2
1532       ans=ccc*ans1
1533       b(27)=ans
1534       ans=ccc*(w17*(16*p6p8*(p1p3s2+p2p3s2)+8*(p3p6*p2p8)*(-fmb*hbcm-
1535      . 3*fmc*hbcm)+8*(p6p8*p2p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p3p6*
1536      . p1p8)*(-fmb*hbcm-3*fmc*hbcm)+8*(p6p8*p1p3)*(fmb*hbcm+fmc*hbcm-
1537      . hbcm2)+16*(2*fmc*hbcm*p3p6*p5p8-hbcm2*p1p2*p6p8-hbcm2*p1p8*
1538      . p4p6-hbcm2*p2p8*p4p6+2*p1p3*p2p3*p6p8-p1p3*p3p4*p6p8-p1p3*p3p6
1539      . *p5p8-p2p3*p3p4*p6p8-p2p3*p3p6*p5p8))+w12*(8*(p3p6*p1p8)*(-fmb
1540      . *hbcm-3*fmc*hbcm)+8*(p6p8*p1p3)*(fmb*hbcm-fmc*hbcm-hbcm2)+16*(
1541      . -fmc*hbcm*p2p8*p3p6+2*fmc*hbcm*p3p6*p5p8-hbcm2*p1p8*p4p6+p1p3*
1542      . p2p3*p6p8-p1p3*p3p4*p6p8-p1p3*p3p6*p5p8+p1p3s2*p6p8))+w2*(8*(
1543      . p5p8*p3p6)*(-fmb*hbcm+3*fmc*hbcm)+8*(p6p8*p3p5)*(-fmb*hbcm-fmc
1544      . *hbcm-hbcm2)+8*p6p8*(-fmb*fmc*hbcm2-fmb*hbcm3-fmb2*hbcm2)+16*(
1545      . fmb*hbcm*p1p3*p6p8+fmb*hbcm*p2p3*p6p8-fmb*hbcm*p3p4*p6p8+2*
1546      . hbcm2*p4p6*p5p8+hbcm2*p5p6*p5p8+p1p3*p3p5*p6p8+p2p3*p3p5*p6p8-
1547      . p3p4*p3p5*p6p8-p3p5*p3p6*p5p8))+(16*p6p8*(2*fb3*fmb*hbcm-2*fb4
1548      . *fmc*hbcm-2*fb4*hbcm2+hbcm2)+64*(fb4*p1p3*p6p8+fb4*p2p3*p6p8-
1549      . fb4*p3p4*p6p8-fb4*p3p6*p5p8)))
1550       b(28)=ans
1551       ans2=w12*(8*(p6p7*p1p3)*(-2*fmb*hbcm+3*hbcm2)+32*(p3p7*p3p6)*(-
1552      . fmb*fmc-fmc2)+16*(-2*ffmcfmb*p1p3*p3p6*p3p7-2*fmc*hbcm*p3p6*
1553      . p5p7-2*p1p3*p2p3*p6p7+3*p1p3*p3p4*p6p7+p1p3*p3p6*p5p7-3*p1p3*
1554      . p3p7*p4p6-2*p1p3s2*p6p7))+((p3p7*p3p6)*(-128*fb4*ffmcfmb+48)+
1555      . 16*p6p7*(-4*fb3*fmb*hbcm-2*fb3*fmc*hbcm+2*fb4*fmc*hbcm+6*fb4*
1556      . hbcm2-hbcm2)+64*(-2*fb4*p1p3*p6p7-2*fb4*p2p3*p6p7+3*fb4*p3p4*
1557      . p6p7+fb4*p3p6*p5p7-3*fb4*p3p7*p4p6))
1558       ans1=w2*(16*(p5p7*p3p6)*(fmb*hbcm-fmc*hbcm)+8*(p6p7*p3p5)*(4*
1559      . fmb*hbcm+4*fmc*hbcm+3*hbcm2)+8*p6p7*(3*fmb*fmc*hbcm2+4*fmb*
1560      . hbcm3+3*fmb2*hbcm2)+16*(-2*ffmcfmb*p3p5*p3p6*p3p7-3*fmb*fmc*
1561      . p3p6*p3p7-3*fmb*hbcm*p1p3*p6p7-3*fmb*hbcm*p2p3*p6p7+4*fmb*hbcm
1562      . *p3p4*p6p7-4*fmb*hbcm*p3p7*p4p6-fmb*hbcm*p3p7*p5p6-hbcm2*p1p5*
1563      . p6p7-hbcm2*p2p5*p6p7-hbcm2*p4p6*p5p7-hbcm2*p5p6*p5p7-2*p1p3*
1564      . p3p5*p6p7-2*p2p3*p3p5*p6p7+3*p3p4*p3p5*p6p7+p3p5*p3p6*p5p7-3*
1565      . p3p5*p3p7*p4p6))+w17*(32*p6p7*(-p1p3s2-p2p3s2)+8*(p6p7*p2p3)*(
1566      . -2*fmb*hbcm-2*fmc*hbcm+3*hbcm2)+8*(p6p7*p1p3)*(-2*fmb*hbcm-2*
1567      . fmc*hbcm+3*hbcm2)+48*(p3p7*p3p6)*(-fmb*fmc-fmc2)+16*(-2*
1568      . ffmcfmb*p1p3*p3p6*p3p7-2*ffmcfmb*p2p3*p3p6*p3p7-2*fmc*hbcm*
1569      . p3p6*p5p7-2*fmc*hbcm*p3p7*p4p6+hbcm2*p1p2*p6p7-4*p1p3*p2p3*
1570      . p6p7+3*p1p3*p3p4*p6p7+p1p3*p3p6*p5p7-3*p1p3*p3p7*p4p6+3*p2p3*
1571      . p3p4*p6p7+p2p3*p3p6*p5p7-3*p2p3*p3p7*p4p6))+ans2
1572       ans=ccc*ans1
1573       b(29)=ans
1574       ans3=w12*(16*(p7p8*p3p6*p1p3)*(-fmb-3*fmc)+8*(p6p7*p1p8)*(fmb*
1575      . hbcm2-fmc*hbcm2+2*hbcm3)+16*(p7p8*p3p6)*(fmb*fmc*hbcm+2*fmc*
1576      . hbcm2-fmc2*hbcm)+16*(fmb*p1p3*p3p7*p6p8+3*fmc*p1p8*p3p6*p3p7-2
1577      . *fmc*p2p3*p3p6*p7p8+2*fmc*p2p8*p3p6*p3p7+4*fmc*p3p5*p3p6*p7p8-
1578      . 4*fmc*p3p6*p3p7*p5p8+hbcm*p1p3*p2p8*p6p7-2*hbcm*p1p3*p4p6*p7p8
1579      . +hbcm*p1p3*p5p7*p6p8-2*hbcm*p1p3*p5p8*p6p7-hbcm*p1p8*p2p3*p6p7
1580      . +2*hbcm*p1p8*p3p5*p6p7-hbcm*p1p8*p3p6*p5p7+2*hbcm*p1p8*p3p7*
1581      . p4p6))+(8*(p6p8*p3p7)*(8*fb4*fmb-3*hbcm)+8*(p7p8*p3p6)*(-8*fb3
1582      . *fmc-8*fb4*fmb+3*hbcm)+64*(fb3*hbcm*p1p8*p6p7+fb3*hbcm*p2p8*
1583      . p6p7-2*fb3*hbcm*p4p6*p7p8+fb3*hbcm*p5p7*p6p8-2*fb3*hbcm*p5p8*
1584      . p6p7))
1585       ans2=w17*(16*(p6p8*p3p7*p2p3)*(fmb-2*fmc)+16*(p7p8*p3p6*p2p3)*(
1586      . -fmb-fmc)+16*(p6p8*p3p7*p1p3)*(fmb-2*fmc)+16*(p7p8*p3p6*p1p3)*
1587      . (-fmb-fmc)+8*(p6p7*p2p8)*(fmb*hbcm2-fmc*hbcm2+2*hbcm3)+8*(p6p7
1588      . *p1p8)*(fmb*hbcm2-fmc*hbcm2+2*hbcm3)+16*(p6p8*p3p7)*(fmb*fmc*
1589      . hbcm+fmc*hbcm2-fmc2*hbcm)+16*(p7p8*p3p6)*(fmb*fmc*hbcm+2*fmc*
1590      . hbcm2-fmc2*hbcm)+16*(3*fmc*p1p8*p3p6*p3p7+3*fmc*p2p8*p3p6*p3p7
1591      . +4*fmc*p3p5*p3p6*p7p8+2*fmc*p3p5*p3p7*p6p8-6*fmc*p3p6*p3p7*
1592      . p5p8-2*hbcm*p1p2*p3p6*p7p8+2*hbcm*p1p2*p3p7*p6p8-2*hbcm*p1p3*
1593      . p4p6*p7p8+hbcm*p1p3*p5p7*p6p8-2*hbcm*p1p3*p5p8*p6p7+2*hbcm*
1594      . p1p8*p3p5*p6p7-hbcm*p1p8*p3p6*p5p7+2*hbcm*p1p8*p3p7*p4p6-2*
1595      . hbcm*p2p3*p4p6*p7p8+hbcm*p2p3*p5p7*p6p8-2*hbcm*p2p3*p5p8*p6p7+
1596      . 2*hbcm*p2p8*p3p5*p6p7-hbcm*p2p8*p3p6*p5p7+2*hbcm*p2p8*p3p7*
1597      . p4p6))+ans3
1598       ans1=w2*(16*(p7p8*p3p6*p3p5)*(-fmb+3*fmc)+8*(p6p7*p5p8)*(3*fmb*
1599      . hbcm2+3*fmc*hbcm2-4*hbcm3)+16*(p7p8*p5p6)*(fmb*hbcm2-fmc*hbcm2
1600      . +hbcm3)+16*(p7p8*p3p6)*(2*fmb*fmc*hbcm-fmb2*hbcm)+16*(-fmb*
1601      . hbcm2*p1p8*p6p7-fmb*hbcm2*p2p8*p6p7+3*fmb*hbcm2*p4p6*p7p8-fmb*
1602      . hbcm2*p5p7*p6p8+fmb*p3p5*p3p7*p6p8+fmb2*hbcm*p3p7*p6p8-3*fmc*
1603      . p3p6*p3p7*p5p8+hbcm*p1p3*p5p8*p6p7-hbcm*p1p8*p3p5*p6p7+hbcm*
1604      . p2p3*p5p8*p6p7-hbcm*p2p8*p3p5*p6p7+4*hbcm*p3p5*p4p6*p7p8+2*
1605      . hbcm*p3p5*p5p6*p7p8-hbcm*p3p5*p5p7*p6p8+hbcm*p3p6*p5p7*p5p8-4*
1606      . hbcm*p3p7*p4p6*p5p8-2*hbcm*p3p7*p5p6*p5p8))+ans2
1607       ans=ccc*ans1
1608       b(30)=ans
1609       ans2=w12*(8*(p6p7*p1p8)*(-2*fmb*hbcm-2*fmc*hbcm+hbcm2)+16*(p7p8
1610      . *p3p6)*(-2*fmb*fmc+fmc*hbcm-2*fmc2)+(p7p8*p3p6*p1p3)*(-16*
1611      . ffmcfmb-16)+16*(-ffmcfmb*p1p3*p3p7*p6p8-2*p1p3*p1p8*p6p7-2*
1612      . p1p3*p2p8*p6p7-3*p1p3*p4p6*p7p8-p1p3*p4p7*p6p8+3*p1p3*p4p8*
1613      . p6p7))+((p6p8*p3p7)*(-64*fb4*ffmcfmb+24)+(p7p8*p3p6)*(-64*fb4*
1614      . ffmcfmb-64*fb4+24)+64*(-2*fb4*p1p8*p6p7-2*fb4*p2p8*p6p7-3*fb4*
1615      . p4p6*p7p8-fb4*p4p7*p6p8+3*fb4*p4p8*p6p7))
1616       ans1=w2*(8*(p6p7*p5p8)*(4*fmb*hbcm+4*fmc*hbcm-3*hbcm2)+16*(p7p8
1617      . *p5p6)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p7p8*p3p6)*(-2*fmb*fmc-
1618      . fmb*hbcm)+(p7p8*p3p6*p3p5)*(-16*ffmcfmb-16)+16*(-ffmcfmb*p3p5*
1619      . p3p7*p6p8-fmb*fmc*p3p7*p6p8-3*fmb*hbcm*p1p8*p6p7-3*fmb*hbcm*
1620      . p2p8*p6p7-4*fmb*hbcm*p4p6*p7p8-fmb*hbcm*p4p7*p6p8+4*fmb*hbcm*
1621      . p4p8*p6p7-2*p1p8*p3p5*p6p7-2*p2p8*p3p5*p6p7-3*p3p5*p4p6*p7p8-
1622      . p3p5*p4p7*p6p8+3*p3p5*p4p8*p6p7))+w17*(8*(p6p7*p2p8)*(-2*fmb*
1623      . hbcm-2*fmc*hbcm+hbcm2)+8*(p6p7*p1p8)*(-2*fmb*hbcm-2*fmc*hbcm+
1624      . hbcm2)+16*(p6p8*p3p7)*(-fmb*fmc+fmc*hbcm-fmc2)+16*(p7p8*p3p6)*
1625      . (-2*fmb*fmc+fmc*hbcm-2*fmc2)+(p7p8*p3p6*p2p3)*(-16*ffmcfmb-16)
1626      . +(p7p8*p3p6*p1p3)*(-16*ffmcfmb-16)+16*(-ffmcfmb*p1p3*p3p7*p6p8
1627      . -ffmcfmb*p2p3*p3p7*p6p8-2*p1p3*p1p8*p6p7-2*p1p3*p2p8*p6p7-3*
1628      . p1p3*p4p6*p7p8-p1p3*p4p7*p6p8+3*p1p3*p4p8*p6p7-2*p1p8*p2p3*
1629      . p6p7-2*p2p3*p2p8*p6p7-3*p2p3*p4p6*p7p8-p2p3*p4p7*p6p8+3*p2p3*
1630      . p4p8*p6p7))+ans2
1631       ans=ccc*ans1
1632       b(31)=ans
1633       b(32)=ccc*(w17*(8*(p6p7*p2p3)*(3*fmb-3*fmc-2*hbcm)+8*(p6p7*p1p3
1634      . )*(3*fmb-3*fmc-2*hbcm)+16*(-3*fmc*p3p6*p3p7-3*fmc*p3p6*p5p7-3*
1635      . fmc*p3p7*p4p6+2*hbcm*p1p2*p6p7))+w2*(16*(p5p6*p3p7)*(fmc-hbcm)
1636      . +8*(p6p7*p3p5)*(3*fmb-3*fmc+4*hbcm)+8*p6p7*(-4*fmb*fmc*hbcm+3*
1637      . fmb*hbcm2+4*fmb2*hbcm)+16*(-fmc*p3p6*p5p7-hbcm*p1p5*p6p7-hbcm*
1638      . p2p5*p6p7-hbcm*p4p6*p5p7-hbcm*p5p6*p5p7))+w12*(8*(p6p7*p1p3)*(
1639      . 3*fmb+fmc-2*hbcm)+16*(p3p7*p3p6)*(ffmcfmb*fmc-2*fmc)-48*fmc*
1640      . p3p6*p5p7)+8*p6p7*(8*fb3*fmc-8*fb3*hbcm+12*fb4*fmb-4*fb4*fmc-3
1641      . *hbcm))
1642       do 200 n=1,32
1643          c(n,1)=c(n,1)-0.09090909090909091d0*b(n)
1644          c(n,2)=c(n,2)-0.1680909685530997d0*b(n)
1645          c(n,3)=c(n,3)-0.2077659977796572d0*b(n)
1646 200   continue
1647       return
1648         end
1649
1650       subroutine amp16_3p1(cc)
1651       implicit double precision(a-h,o-z)
1652       implicit integer (i-n)
1653       dimension b(32)
1654 #include "inclcon.h"
1655 #include "inclppp.h"
1656 #include "inclamp.h"
1657       do 100 n=1,32
1658          b(n)=0.0d0
1659 100   continue
1660       ccc=cc/((-2*ffmcfmb*p2p3)*(-2*ffmcfmb*p3p5+fmb2-2*fmc*hbcm+fmc2
1661      . +hbcm2+2*p3p5)*(-2*ffmcfmb*p1p3-2*ffmcfmb*p2p3+2*p1p2))
1662       b(1)=ccc*(w2*(16*(p5p6*p2p3)*(-fmc+hbcm)+16*(fmc*p2p5*p3p6+hbcm
1663      . *p2p5*p4p6+hbcm*p2p5*p5p6))+w17*(16*(p3p6*p1p2)*(-2*fmc-hbcm)+
1664      . 48*(fmc*p2p3*p3p6+fmc*p2p3*p4p6+fmc*p2p5*p3p6-hbcm*p1p2*p4p6))
1665      . +(96*p4p6*(-fb3*fmc-fb4*fmc)+32*p3p6*(-fb3*ffmcfmb*fmc-fb3*fmc
1666      . -fb4*ffmcfmb*fmc-fb4*fmc)))
1667       ans=ccc*(16*w7*(ffmcfmb*p2p3*p3p6*p3p7+2*ffmcfmb*p2p3*p3p7*p4p6
1668      . -ffmcfmb*p2p3s2*p6p7+p1p2*p2p3*p6p7-p2p3*p2p4*p6p7)+w2*(16*(
1669      . p5p6*p3p7)*(fmb*fmc-fmc*hbcm+fmc2)+16*(p3p7*p3p6)*(ffmcfmb*fmb
1670      . *fmc+fmb*fmc)+16*(-ffmcfmb*p2p3*p3p5*p6p7+ffmcfmb*p3p5*p3p6*
1671      . p3p7+2*ffmcfmb*p3p5*p3p7*p4p6-fmb*fmc*p2p3*p6p7+3*fmb*fmc*p3p7
1672      . *p4p6+fmb*hbcm*p1p2*p6p7-fmb*hbcm*p2p4*p6p7+p1p2*p3p5*p6p7-
1673      . p2p4*p3p5*p6p7))+w17*(16*(p6p7*p1p2)*(fmb*hbcm+fmc*hbcm-hbcm2)
1674      . +16*(p6p7*p2p3)*(-fmb*fmc+fmc*hbcm-fmc2)+16*(p3p7*p3p6)*(
1675      . ffmcfmb*fmb*fmc+ffmcfmb*fmc2)+16*(-ffmcfmb*p1p3*p2p3*p6p7+
1676      . ffmcfmb*p1p3*p3p6*p3p7+2*ffmcfmb*p1p3*p3p7*p4p6+ffmcfmb*p2p3*
1677      . p3p6*p3p7+2*ffmcfmb*p2p3*p3p7*p4p6-ffmcfmb*p2p3s2*p6p7+p1p2*
1678      . p1p3*p6p7+p1p2*p2p3*p6p7-p1p3*p2p4*p6p7-p2p3*p2p4*p6p7))+((
1679      . p4p6*p3p7)*(128*fb4*ffmcfmb+16)+(p3p7*p3p6)*(64*fb4*ffmcfmb+8)
1680      . +(p6p7*p2p3)*(-64*fb4*ffmcfmb+24)+32*p6p7*(fb3*fmb*fmc-fb3*fmc
1681      . *hbcm+fb3*fmc2+fb4*fmb*fmc-fb4*fmc*hbcm+fb4*fmc2)+64*(fb4*p1p2
1682      . *p6p7-fb4*p2p4*p6p7)))
1683       b(2)=ans
1684       ans2=w17*(16*(p6p7*p2p3*p1p8)*(fmc-hbcm)+32*(p7p8*p3p6*p1p2)*(
1685      . fmc+hbcm)+16*(p6p7*p2p8*p2p3)*(-fmb+2*fmc)+16*(p6p7*p2p8*p1p3)
1686      . *(-fmb+fmc+hbcm)+16*(p3p7*p3p6*p2p8)*(-ffmcfmb*fmc+3*fmc)+16*(
1687      . p3p7*p3p6*p1p8)*(-ffmcfmb*fmc-fmc)+16*(p6p8*p3p7*p2p3)*(-
1688      . ffmcfmb*fmb+ffmcfmb*fmc+fmc)+16*(p6p8*p3p7*p1p3)*(-ffmcfmb*fmb
1689      . +ffmcfmb*fmc+fmc)+16*(2*ffmcfmb*fmc*p3p6*p3p7*p5p8-fmc*p1p8*
1690      . p3p7*p4p6-4*fmc*p2p3*p3p6*p7p8-4*fmc*p2p3*p4p6*p7p8+2*fmc*p2p3
1691      . *p5p7*p6p8-2*fmc*p2p3*p5p8*p6p7-4*fmc*p2p5*p3p6*p7p8-2*fmc*
1692      . p2p5*p3p7*p6p8+4*fmc*p2p8*p3p6*p5p7+3*fmc*p2p8*p3p7*p4p6-2*
1693      . hbcm*p1p2*p2p8*p6p7-2*hbcm*p1p2*p3p7*p6p8+4*hbcm*p1p2*p4p6*
1694      . p7p8-2*hbcm*p1p2*p5p7*p6p8+2*hbcm*p1p2*p5p8*p6p7-hbcm*p1p8*
1695      . p2p5*p6p7-hbcm*p2p5*p2p8*p6p7))+(8*(p6p8*p3p7)*(-8*fb4*ffmcfmb
1696      . *fmb+8*fb4*ffmcfmb*fmc-8*fb4*fmc-fmb+hbcm)+64*(p6p7*p5p8)*(fb3
1697      . *fmc+fb4*fmc)+64*(p6p8*p5p7)*(-fb3*fmc-fb4*fmc)+8*(p7p8*p4p6)*
1698      . (16*fb3*fmc+16*fb4*fmc-hbcm)+8*(p7p8*p3p6)*(8*fb3*fmc+8*fb4*
1699      . fmc+fmc-hbcm)+8*(p6p7*p2p8)*(-8*fb3*fmc+8*fb3*hbcm-8*fb4*fmb+3
1700      . *hbcm))
1701       ans1=w2*(32*(p5p6*p3p7*p2p8)*(-fmc+hbcm)+16*(p6p7*p5p8*p2p3)*(-
1702      . fmc+hbcm)+32*(p7p8*p5p6*p2p3)*(fmc-hbcm)+16*(p6p7*p3p5*p2p8)*(
1703      . -fmb+fmc-hbcm)+16*(p6p8*p3p7)*(-fmb*fmc*hbcm+fmb*fmc2-fmb2*fmc
1704      . )+16*(p6p7*p2p8)*(fmb*fmc*hbcm-fmb*hbcm2-fmb2*hbcm)+16*(p5p8*
1705      . p3p7*p3p6)*(ffmcfmb*fmc+fmc)+16*(p6p8*p3p7*p3p5)*(-ffmcfmb*fmb
1706      . +ffmcfmb*fmc-fmc)+16*(-2*fmc*p2p5*p3p6*p7p8+2*fmc*p2p8*p3p6*
1707      . p5p7+3*fmc*p3p7*p4p6*p5p8+2*fmc*p3p7*p5p6*p5p8-2*hbcm*p2p5*
1708      . p4p6*p7p8-2*hbcm*p2p5*p5p6*p7p8+hbcm*p2p5*p5p8*p6p7+2*hbcm*
1709      . p2p8*p4p6*p5p7+2*hbcm*p2p8*p5p6*p5p7))+w7*(16*(p3p7*p3p6*p2p8)
1710      . *(ffmcfmb*fmc+fmc)+16*(p6p8*p3p7*p2p3)*(-ffmcfmb*fmb+ffmcfmb*
1711      . fmc-fmc)+16*(-fmb*p2p3*p2p8*p6p7-2*fmc*p2p5*p3p7*p6p8+3*fmc*
1712      . p2p8*p3p7*p4p6-hbcm*p2p5*p2p8*p6p7))+ans2
1713       ans=ccc*ans1
1714       b(3)=ans
1715       b(4)=ccc*(w2*(16*(p5p7*p2p3)*(fmc-hbcm)+8*p3p7*(-2*fmb*fmc*hbcm
1716      . +3*fmb*fmc2-3*fmb2*fmc)+8*(p3p7*p3p5)*(-2*ffmcfmb*fmb+2*
1717      . ffmcfmb*fmc-3*fmc)+16*(fmc*p1p5*p3p7+hbcm*p2p5*p3p7))+w7*(8*(
1718      . p3p7*p2p3)*(-2*ffmcfmb*fmb+2*ffmcfmb*fmc-3*fmc)+16*(fmc*p1p2*
1719      . p3p7-3*fmc*p2p5*p3p7))+w17*(16*(p3p7*p1p2)*(fmc-2*hbcm)+8*(
1720      . p3p7*p2p3)*(-2*ffmcfmb*fmb+2*ffmcfmb*fmc+fmc)+8*(p3p7*p1p3)*(-
1721      . 2*ffmcfmb*fmb+2*ffmcfmb*fmc+fmc)+48*(fmc*p2p3*p5p7-fmc*p2p5*
1722      . p3p7-hbcm*p1p2*p5p7))+(96*p5p7*(-fb3*fmc-fb4*fmc)+4*p3p7*(-8*
1723      . fb3*fmc-16*fb4*ffmcfmb*fmb+16*fb4*ffmcfmb*fmc-16*fb4*fmc-2*fmb
1724      . +hbcm)))
1725       ans2=w17*(16*(p7p8*p1p2)*(2*fmb*hbcm+2*fmc*hbcm-hbcm2)+8*(p3p7*
1726      . p2p8)*(3*fmb*fmc-2*fmc*hbcm+3*fmc2)+16*(p7p8*p2p3)*(-2*fmb*fmc
1727      . +fmc*hbcm-2*fmc2)+8*(p3p7*p1p8)*(-fmb*fmc-fmc2)+16*p7p8*(-
1728      . ffmcfmb*p2p3s2+2*p2p3s2)+(p3p7*p2p8*p2p3)*(32*ffmcfmb-32)+(
1729      . p3p7*p2p8*p1p3)*(32*ffmcfmb-32)+(p7p8*p2p3*p1p3)*(-16*ffmcfmb+
1730      . 32)+16*(ffmcfmb*p1p3*p1p8*p3p7-2*ffmcfmb*p1p3*p3p7*p5p8+
1731      . ffmcfmb*p1p8*p2p3*p3p7-2*ffmcfmb*p2p3*p3p7*p5p8-p1p2*p1p3*p7p8
1732      . -p1p2*p2p3*p7p8+3*p1p3*p2p5*p7p8-3*p1p3*p2p8*p5p7+3*p2p3*p2p5*
1733      . p7p8-3*p2p3*p2p8*p5p7))+((p5p8*p3p7)*(-128*fb4*ffmcfmb-16)+(
1734      . p3p7*p2p8)*(128*fb4*ffmcfmb-128*fb4-16)+(p7p8*p2p3)*(-64*fb4*
1735      . ffmcfmb+128*fb4+24)+(p3p7*p1p8)*(64*fb4*ffmcfmb+8)+4*p7p8*(16*
1736      . fb3*fmb*fmc-8*fb3*fmc*hbcm+16*fb3*fmc2+16*fb4*fmb*fmc-8*fb4*
1737      . fmc*hbcm+16*fb4*fmc2-fmb*hbcm-fmc*hbcm)+64*(-fb4*p1p2*p7p8+3*
1738      . fb4*p2p5*p7p8-3*fb4*p2p8*p5p7))
1739       ans1=w2*(16*(p5p7*p2p8)*(-3*fmb*hbcm+fmc*hbcm-hbcm2)+16*(p7p8*
1740      . p2p5)*(3*fmb*hbcm-fmc*hbcm+hbcm2)+8*(p5p8*p3p7)*(-3*fmb*fmc-2*
1741      . fmc*hbcm+3*fmc2)+48*(p3p7*p2p8)*(fmb*fmc-fmb*hbcm)+16*(p7p8*
1742      . p2p3)*(-2*fmb*fmc+3*fmb*hbcm)+(p3p7*p3p5*p2p8)*(32*ffmcfmb-32)
1743      . +(p7p8*p3p5*p2p3)*(-16*ffmcfmb+32)+16*(ffmcfmb*p1p8*p3p5*p3p7-
1744      . 2*ffmcfmb*p3p5*p3p7*p5p8+fmb*fmc*p1p8*p3p7-fmb*hbcm*p1p2*p7p8-
1745      . p1p2*p3p5*p7p8+3*p2p5*p3p5*p7p8-3*p2p8*p3p5*p5p7))+w7*(8*(p3p7
1746      . *p2p8)*(3*fmb*fmc-2*fmc*hbcm+3*fmc2)+16*p7p8*(-ffmcfmb*p2p3s2+
1747      . 2*p2p3s2)+(p3p7*p2p8*p2p3)*(32*ffmcfmb-32)+16*(ffmcfmb*p1p8*
1748      . p2p3*p3p7-2*ffmcfmb*p2p3*p3p7*p5p8-p1p2*p2p3*p7p8+3*p2p3*p2p5*
1749      . p7p8-3*p2p3*p2p8*p5p7))+ans2
1750       ans=ccc*ans1
1751       b(5)=ans
1752       ans2=((p3p7*p3p5)*(128*fb4*ffmcfmb+16)+(p3p7*p2p3)*(-64*fb4*
1753      . ffmcfmb-8)+(p3p7*p1p3)*(-64*fb4*ffmcfmb-8)+64*p5p7*(-fb3*fmc*
1754      . hbcm-fb4*fmc*hbcm)+4*p3p7*(-8*fb3*fmb*fmc-8*fb3*fmc2-16*fb4*
1755      . fmb*fmc+16*fb4*fmc*hbcm-16*fb4*fmc2+fmb*hbcm+fmc*hbcm+2*hbcm2)
1756      . +64*(fb4*p1p2*p3p7+3*fb4*p2p3*p5p7-3*fb4*p2p5*p3p7))
1757       ans1=w2*(16*(p3p7*p2p5)*(-3*fmb*hbcm+fmc*hbcm)+8*(p3p7*p3p5)*(3
1758      . *fmb*fmc+2*fmc*hbcm-3*fmc2)+8*p3p7*(4*ffmcfmb*p3p5s2+3*fmb*fmc
1759      . *hbcm2-2*fmb*fmc2*hbcm-2*fmb2*fmc*hbcm)+16*(-ffmcfmb*p1p3*p3p5
1760      . *p3p7-ffmcfmb*p2p3*p3p5*p3p7-fmb*fmc*p1p3*p3p7-fmb*fmc*p2p3*
1761      . p3p7+fmb*hbcm*p1p2*p3p7+3*fmb*hbcm*p2p3*p5p7+fmc*hbcm*p1p5*
1762      . p3p7+p1p2*p3p5*p3p7+3*p2p3*p3p5*p5p7-3*p2p5*p3p5*p3p7))+w7*(8*
1763      . (p3p7*p2p3)*(-3*fmb*fmc+2*fmc*hbcm-3*fmc2)+16*(-ffmcfmb*p1p3*
1764      . p2p3*p3p7+2*ffmcfmb*p2p3*p3p5*p3p7-ffmcfmb*p2p3s2*p3p7+fmc*
1765      . hbcm*p1p2*p3p7-2*fmc*hbcm*p2p5*p3p7+p1p2*p2p3*p3p7-3*p2p3*p2p5
1766      . *p3p7+3*p2p3s2*p5p7))+w17*(16*(p3p7*p1p2)*(-2*fmb*hbcm-fmc*
1767      . hbcm)+8*(p3p7*p2p3)*(fmb*fmc+2*fmc*hbcm+fmc2)+8*(p3p7*p1p3)*(
1768      . fmb*fmc+2*fmc*hbcm+fmc2)+16*p3p7*(-ffmcfmb*p1p3s2-ffmcfmb*
1769      . p2p3s2)+16*(-2*ffmcfmb*p1p3*p2p3*p3p7+2*ffmcfmb*p1p3*p3p5*p3p7
1770      . +2*ffmcfmb*p2p3*p3p5*p3p7+2*fmc*hbcm*p2p3*p5p7-2*fmc*hbcm*p2p5
1771      . *p3p7-2*hbcm2*p1p2*p5p7+p1p2*p1p3*p3p7+p1p2*p2p3*p3p7+3*p1p3*
1772      . p2p3*p5p7-3*p1p3*p2p5*p3p7-3*p2p3*p2p5*p3p7+3*p2p3s2*p5p7))+
1773      . ans2
1774       ans=ccc*ans1
1775       b(6)=ans
1776       ans3=(8*(p3p7*p1p8)*(8*fb4*fmc-hbcm)+8*(p5p8*p3p7)*(-8*fb3*fmc-
1777      . 16*fb4*fmc+hbcm)+8*(p7p8*p3p5)*(16*fb3*fmc+16*fb4*fmc-hbcm)+8*
1778      . (p3p7*p2p8)*(8*fb3*fmc+16*fb4*fmb-3*hbcm)+8*(p7p8*p2p3)*(-16*
1779      . fb3*fmc-16*fb4*fmb+3*hbcm)+8*(p7p8*p1p3)*(-8*fb3*fmc-8*fb4*fmc
1780      . +hbcm)+4*p7p8*(8*fb3*fmb*fmc*hbcm+16*fb3*fmc*hbcm2-8*fb3*fmc2*
1781      . hbcm+8*fb4*fmb*fmc*hbcm+16*fb4*fmc*hbcm2-8*fb4*fmc2*hbcm-hbcm3
1782      . )+64*(fb3*hbcm*p1p2*p7p8-2*fb3*hbcm*p2p5*p7p8+2*fb3*hbcm*p2p8*
1783      . p5p7))
1784       ans2=w2*(16*(p3p7*p3p5*p2p8)*(2*fmb+fmc)+16*(p5p7*p2p8)*(-2*fmb
1785      . *hbcm2-fmc*hbcm2+hbcm3)+16*(p7p8*p2p5)*(2*fmb*hbcm2+fmc*hbcm2-
1786      . hbcm3)+8*(p5p8*p3p7)*(-2*fmb*fmc*hbcm+3*fmc*hbcm2-2*fmc2*hbcm)
1787      . +16*(p3p7*p2p8)*(-fmb*fmc*hbcm+3*fmb2*hbcm)+16*(p7p8*p2p3)*(2*
1788      . fmb*fmc*hbcm-3*fmb2*hbcm)+16*(fmb*fmc*hbcm*p1p8*p3p7-fmb*hbcm2
1789      . *p1p2*p7p8-2*fmb*p2p3*p3p5*p7p8-fmc*p1p3*p3p7*p5p8+fmc*p1p8*
1790      . p3p5*p3p7-fmc*p2p3*p3p7*p5p8-hbcm*p1p2*p3p5*p7p8+hbcm*p1p2*
1791      . p3p7*p5p8+2*hbcm*p1p5*p2p3*p7p8-2*hbcm*p1p5*p2p8*p3p7+2*hbcm*
1792      . p2p3*p2p5*p7p8+2*hbcm*p2p3*p5p7*p5p8-2*hbcm*p2p5*p2p8*p3p7+2*
1793      . hbcm*p2p5*p3p5*p7p8-2*hbcm*p2p5*p3p7*p5p8-2*hbcm*p2p8*p3p5*
1794      . p5p7))+ans3
1795       ans1=w7*(8*(p3p7*p2p8)*(2*fmb*fmc*hbcm+3*fmc*hbcm2-2*fmc2*hbcm)
1796      . +16*(2*fmb*p2p3*p2p8*p3p7-2*fmb*p2p3s2*p7p8-fmc*p1p3*p2p8*p3p7
1797      . +fmc*p1p8*p2p3*p3p7-3*fmc*p2p3*p3p7*p5p8+3*fmc*p2p8*p3p5*p3p7+
1798      . hbcm*p1p2*p2p3*p7p8-hbcm*p1p2*p2p8*p3p7-2*hbcm*p2p3*p2p5*p7p8+
1799      . 2*hbcm*p2p5*p2p8*p3p7))+w17*(32*p7p8*(-fmb*p2p3s2+2*fmc*p2p3s2
1800      . )+32*(p3p7*p2p8*p2p3)*(fmb-2*fmc)+32*(p3p7*p2p8*p1p3)*(fmb-2*
1801      . fmc)+32*(p7p8*p2p3*p1p3)*(-fmb+2*fmc)+16*(p7p8*p1p2)*(fmb*
1802      . hbcm2-fmc*hbcm2+2*hbcm3)+8*(p3p7*p2p8)*(2*fmb*fmc*hbcm+3*fmc*
1803      . hbcm2-2*fmc2*hbcm)+16*(p7p8*p2p3)*(-fmb*fmc*hbcm-2*fmc*hbcm2+
1804      . fmc2*hbcm)+8*(-fmc*hbcm2*p1p8*p3p7+2*fmc*p1p3*p3p7*p5p8-2*fmc*
1805      . p1p8*p3p5*p3p7-8*fmc*p2p3*p3p5*p7p8+2*fmc*p2p3*p3p7*p5p8+6*fmc
1806      . *p2p8*p3p5*p3p7-2*hbcm*p1p2*p1p3*p7p8+2*hbcm*p1p2*p1p8*p3p7-6*
1807      . hbcm*p1p2*p2p3*p7p8+6*hbcm*p1p2*p2p8*p3p7+8*hbcm*p1p2*p3p5*
1808      . p7p8-8*hbcm*p1p2*p3p7*p5p8-4*hbcm*p1p3*p2p5*p7p8+4*hbcm*p1p3*
1809      . p2p8*p5p7-4*hbcm*p1p8*p2p3*p5p7+4*hbcm*p1p8*p2p5*p3p7-4*hbcm*
1810      . p2p3*p2p5*p7p8+4*hbcm*p2p5*p2p8*p3p7))+ans2
1811       ans=ccc*ans1
1812       b(7)=ans
1813       ans=ccc*(w2*(16*(p5p6*p2p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p3p6
1814      . *p2p8)*(-2*fmb*fmc-fmb*hbcm)+(p3p6*p3p5*p2p8)*(-16*ffmcfmb-16)
1815      . +16*(-ffmcfmb*p2p3*p3p5*p6p8-fmb*fmc*p2p3*p6p8+fmb*hbcm*p1p2*
1816      . p6p8-fmb*hbcm*p2p4*p6p8-4*fmb*hbcm*p2p8*p4p6+p1p2*p3p5*p6p8-
1817      . p2p4*p3p5*p6p8-3*p2p8*p3p5*p4p6))+w7*((p3p6*p2p8*p2p3)*(-16*
1818      . ffmcfmb-16)+16*(-ffmcfmb*p2p3s2*p6p8+p1p2*p2p3*p6p8-p2p3*p2p4*
1819      . p6p8-3*p2p3*p2p8*p4p6))+w17*(16*(p6p8*p1p2)*(fmb*hbcm+fmc*hbcm
1820      . -hbcm2)+16*(p3p6*p2p8)*(-2*fmb*fmc+fmc*hbcm-2*fmc2)+16*(p6p8*
1821      . p2p3)*(-fmb*fmc+fmc*hbcm-fmc2)+(p3p6*p2p8*p2p3)*(-16*ffmcfmb-
1822      . 16)+(p3p6*p2p8*p1p3)*(-16*ffmcfmb-16)+16*(-ffmcfmb*p1p3*p2p3*
1823      . p6p8-ffmcfmb*p2p3s2*p6p8+p1p2*p1p3*p6p8+p1p2*p2p3*p6p8-p1p3*
1824      . p2p4*p6p8-3*p1p3*p2p8*p4p6-p2p3*p2p4*p6p8-3*p2p3*p2p8*p4p6))+(
1825      . (p3p6*p2p8)*(-64*fb4*ffmcfmb-64*fb4+24)+(p6p8*p2p3)*(-64*fb4*
1826      . ffmcfmb+24)+32*p6p8*(fb3*fmb*fmc-fb3*fmc*hbcm+fb3*fmc2+fb4*fmb
1827      . *fmc-fb4*fmc*hbcm+fb4*fmc2)+64*(fb4*p1p2*p6p8-fb4*p2p4*p6p8-3*
1828      . fb4*p2p8*p4p6)))
1829       b(8)=ans
1830       b(9)=ccc*(16*w7*(2*ffmcfmb*p2p3s2*p3p6-p2p3*p2p5*p3p6+3*p2p3s2*
1831      . p4p6)+w2*(16*(p3p6*p2p5)*(-fmb*hbcm+fmc*hbcm)+16*(2*ffmcfmb*
1832      . p2p3*p3p5*p3p6+3*fmb*fmc*p2p3*p3p6+4*fmb*hbcm*p2p3*p4p6+fmb*
1833      . hbcm*p2p3*p5p6+hbcm2*p2p5*p4p6+hbcm2*p2p5*p5p6+3*p2p3*p3p5*
1834      . p4p6-p2p5*p3p5*p3p6))+w17*(16*(p3p6*p1p2)*(-fmb*hbcm-2*fmc*
1835      . hbcm)+48*(p3p6*p2p3)*(fmb*fmc+fmc2)+16*(2*ffmcfmb*p1p3*p2p3*
1836      . p3p6+2*ffmcfmb*p2p3s2*p3p6+2*fmc*hbcm*p2p3*p4p6+2*fmc*hbcm*
1837      . p2p5*p3p6-2*hbcm2*p1p2*p4p6+3*p1p3*p2p3*p4p6-p1p3*p2p5*p3p6-
1838      . p2p3*p2p5*p3p6+3*p2p3s2*p4p6))+((p3p6*p2p3)*(128*fb4*ffmcfmb-
1839      . 48)+64*p4p6*(-fb3*fmc*hbcm-fb4*fmc*hbcm)+32*p3p6*(-fb3*fmb*fmc
1840      . -fb3*fmc2-fb4*fmb*fmc-fb4*fmc2)+64*(3*fb4*p2p3*p4p6-fb4*p2p5*
1841      . p3p6)))
1842       ans2=(8*(p6p8*p2p3)*(-8*fb4*fmb+3*hbcm)+64*(p5p8*p3p6)*(-fb3*
1843      . fmc-fb4*fmc)+64*(p6p8*p3p5)*(fb3*fmc+fb4*fmc)+8*(p3p6*p2p8)*(8
1844      . *fb3*fmc+8*fb4*fmb-3*hbcm)+32*p6p8*(fb3*fmb*fmc*hbcm+fb3*fmc*
1845      . hbcm2-fb3*fmc2*hbcm+fb4*fmb*fmc*hbcm+fb4*fmc*hbcm2-fb4*fmc2*
1846      . hbcm)+64*(-fb3*hbcm*p2p5*p6p8+2*fb3*hbcm*p2p8*p4p6))
1847       ans1=16*w7*(fmb*p2p3*p2p8*p3p6-fmb*p2p3s2*p6p8-hbcm*p2p3*p2p5*
1848      . p6p8+hbcm*p2p5*p2p8*p3p6)+w2*(16*(p3p6*p3p5*p2p8)*(fmb-3*fmc)+
1849      . 16*(p5p6*p2p8)*(-fmb*hbcm2+fmc*hbcm2-hbcm3)+16*(p3p6*p2p8)*(-2
1850      . *fmb*fmc*hbcm+fmb2*hbcm)+16*(fmb*hbcm2*p2p5*p6p8-3*fmb*hbcm2*
1851      . p2p8*p4p6-fmb*p2p3*p3p5*p6p8-fmb2*hbcm*p2p3*p6p8+3*fmc*p2p3*
1852      . p3p6*p5p8+4*hbcm*p2p3*p4p6*p5p8+2*hbcm*p2p3*p5p6*p5p8+hbcm*
1853      . p2p5*p3p5*p6p8-hbcm*p2p5*p3p6*p5p8-4*hbcm*p2p8*p3p5*p4p6-2*
1854      . hbcm*p2p8*p3p5*p5p6))+w17*(16*p6p8*(-fmb*p2p3s2+2*fmc*p2p3s2)+
1855      . 16*(p3p6*p2p8*p2p3)*(fmb-2*fmc)+16*(p3p6*p2p8*p1p3)*(fmb+fmc)+
1856      . 16*(p6p8*p2p3*p1p3)*(-fmb+2*fmc)+16*(p6p8*p1p2)*(fmb*hbcm2-fmc
1857      . *hbcm2+hbcm3)+16*(p3p6*p2p8)*(-fmb*fmc*hbcm-2*fmc*hbcm2+fmc2*
1858      . hbcm)+16*(p6p8*p2p3)*(-fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+16*(-
1859      . 3*fmc*p1p8*p2p3*p3p6-2*fmc*p2p3*p3p5*p6p8+6*fmc*p2p3*p3p6*p5p8
1860      . -4*fmc*p2p8*p3p5*p3p6-2*hbcm*p1p2*p2p3*p6p8+2*hbcm*p1p2*p2p8*
1861      . p3p6+2*hbcm*p1p2*p3p5*p6p8-2*hbcm*p1p2*p3p6*p5p8-hbcm*p1p3*
1862      . p2p5*p6p8+2*hbcm*p1p3*p2p8*p4p6-2*hbcm*p1p8*p2p3*p4p6+hbcm*
1863      . p1p8*p2p5*p3p6-hbcm*p2p3*p2p5*p6p8+hbcm*p2p5*p2p8*p3p6))+ans2
1864       ans=ccc*ans1
1865       b(10)=ans
1866       ans2=w17*(16*p6p7*(fmb*p2p3s2-2*fmc*p2p3s2)+16*(p6p7*p2p3*p1p3)
1867      . *(fmb-2*fmc)+16*(p6p7*p1p2)*(-fmb*hbcm2+fmc*hbcm2-hbcm3)+16*(
1868      . p6p7*p2p3)*(fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+16*(ffmcfmb*fmb*
1869      . p1p3*p3p6*p3p7+ffmcfmb*fmb*p2p3*p3p6*p3p7-2*ffmcfmb*fmc*p3p5*
1870      . p3p6*p3p7-2*fmc*p1p2*p3p6*p3p7+fmc*p1p3*p3p7*p4p6+2*fmc*p2p3*
1871      . p3p5*p6p7-6*fmc*p2p3*p3p6*p5p7+fmc*p2p3*p3p7*p4p6+6*fmc*p2p5*
1872      . p3p6*p3p7-fmc2*hbcm*p3p6*p3p7+2*hbcm*p1p2*p2p3*p6p7-2*hbcm*
1873      . p1p2*p3p5*p6p7+2*hbcm*p1p2*p3p6*p5p7-4*hbcm*p1p2*p3p7*p4p6+
1874      . hbcm*p1p3*p2p5*p6p7+hbcm*p2p3*p2p5*p6p7))+(8*(p6p7*p2p3)*(8*
1875      . fb4*fmb-3*hbcm)+8*(p4p6*p3p7)*(-8*fb3*fmc-16*fb4*fmc+hbcm)+64*
1876      . (p5p7*p3p6)*(fb3*fmc+fb4*fmc)+64*(p6p7*p3p5)*(-fb3*fmc-fb4*fmc
1877      . )+32*p6p7*(-fb3*fmb*fmc*hbcm-fb3*fmc*hbcm2+fb3*fmc2*hbcm-fb4*
1878      . fmb*fmc*hbcm-fb4*fmc*hbcm2+fb4*fmc2*hbcm)+8*(p3p7*p3p6)*(-8*
1879      . fb3*ffmcfmb*fmc+8*fb4*ffmcfmb*fmb-8*fb4*ffmcfmb*fmc+fmb-fmc)+
1880      . 64*fb3*hbcm*p2p5*p6p7)
1881       ans1=w2*(16*(p3p7*p3p6)*(-fmb*fmc2+fmb2*fmc)+16*(p5p6*p3p7)*(-
1882      . fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+16*(p3p7*p3p6*p3p5)*(ffmcfmb
1883      . *fmb-2*ffmcfmb*fmc)+16*(-2*fmb*fmc*hbcm*p3p7*p4p6-fmb*hbcm2*
1884      . p2p5*p6p7+fmb*p2p3*p3p5*p6p7+fmb2*hbcm*p2p3*p6p7-2*fmc*p2p3*
1885      . p3p6*p5p7+2*fmc*p2p5*p3p6*p3p7-3*fmc*p3p5*p3p7*p4p6-2*fmc*p3p5
1886      . *p3p7*p5p6-2*hbcm*p2p3*p4p6*p5p7-2*hbcm*p2p3*p5p6*p5p7-hbcm*
1887      . p2p5*p3p5*p6p7+2*hbcm*p2p5*p3p7*p4p6+2*hbcm*p2p5*p3p7*p5p6))+
1888      . w7*(16*(p3p7*p3p6*p2p3)*(ffmcfmb*fmb-2*ffmcfmb*fmc)+16*(fmb*
1889      . p2p3s2*p6p7-3*fmc*p2p3*p3p7*p4p6+2*fmc*p2p5*p3p6*p3p7+hbcm*
1890      . p2p3*p2p5*p6p7))+ans2
1891       ans=ccc*ans1
1892       b(11)=ans
1893       ans5=16*(-2*ffmcfmb*p1p3*p2p3*p3p6*p7p8+2*ffmcfmb*p1p3*p2p3*
1894      . p3p7*p6p8-2*ffmcfmb*p1p3*p3p5*p3p7*p6p8+2*ffmcfmb*p1p3*p3p6*
1895      . p3p7*p5p8-2*ffmcfmb*p2p3*p3p5*p3p7*p6p8+2*ffmcfmb*p2p3*p3p6*
1896      . p3p7*p5p8-2*ffmcfmb*p2p3s2*p3p6*p7p8+2*ffmcfmb*p2p3s2*p3p7*
1897      . p6p8+fmb*hbcm*p1p8*p2p3*p6p7+fmb*hbcm*p2p3*p2p8*p6p7+2*fmc*
1898      . hbcm*p1p2*p3p6*p7p8-2*fmc*hbcm*p2p3*p4p6*p7p8-2*fmc*hbcm*p2p3*
1899      . p5p7*p6p8+2*fmc*hbcm*p2p3*p5p8*p6p7-2*fmc*hbcm*p2p5*p3p6*p7p8+
1900      . 2*fmc*hbcm*p2p5*p3p7*p6p8+2*fmc*hbcm*p2p8*p3p6*p5p7+2*fmc*hbcm
1901      . *p2p8*p3p7*p4p6+2*hbcm2*p1p2*p3p7*p6p8+2*hbcm2*p1p2*p4p6*p7p8+
1902      . 2*hbcm2*p1p2*p5p7*p6p8-2*hbcm2*p1p2*p5p8*p6p7+hbcm2*p1p8*p2p5*
1903      . p6p7+hbcm2*p2p5*p2p8*p6p7+2*p1p3*p1p8*p2p3*p6p7+2*p1p3*p2p3*
1904      . p2p8*p6p7-2*p1p3*p2p3*p4p6*p7p8+2*p1p3*p2p3*p4p7*p6p8-2*p1p3*
1905      . p2p3*p4p8*p6p7+8*p1p3*p2p8*p3p7*p4p6+2*p1p8*p2p3s2*p6p7+8*p2p3
1906      . *p2p8*p3p7*p4p6+2*p2p3s2*p2p8*p6p7-2*p2p3s2*p4p6*p7p8+2*p2p3s2
1907      . *p4p7*p6p8-2*p2p3s2*p4p8*p6p7)
1908       ans4=16*(p3p7*p3p6*p2p8)*(7*fmb*fmc-2*fmc*hbcm+7*fmc2)+16*(p6p8
1909      . *p3p7*p2p3)*(fmb*fmc-3*fmc*hbcm+fmc2)+32*(p7p8*p3p6*p2p3)*(-
1910      . fmb*fmc-fmc2)+16*(p3p7*p3p6*p1p8)*(fmb*fmc+fmc2)+16*(p6p8*p3p7
1911      . *p1p3)*(-fmb*fmc-fmc*hbcm-fmc2)+(p3p7*p3p6*p2p8*p2p3)*(64*
1912      . ffmcfmb+32)+(p3p7*p3p6*p2p8*p1p3)*(64*ffmcfmb+32)+ans5
1913       ans3=w17*ans4
1914       ans6=((p5p8*p3p7*p3p6)*(128*fb4*ffmcfmb+16)+(p6p8*p3p7*p3p5)*(-
1915      . 128*fb4*ffmcfmb-16)+(p3p7*p3p6*p2p8)*(256*fb4*ffmcfmb+128*fb4-
1916      . 96)+(p6p8*p3p7*p2p3)*(128*fb4*ffmcfmb-48)+(p7p8*p3p6*p2p3)*(-
1917      . 128*fb4*ffmcfmb+48)+8*(p7p8*p3p6)*(8*fb3*fmc2+8*fb4*fmc2+fmb*
1918      . hbcm-fmc*hbcm)+64*(p6p7*p5p8)*(-fb3*fmc*hbcm-fb4*fmc*hbcm)+64*
1919      . (p6p8*p5p7)*(fb3*fmc*hbcm+fb4*fmc*hbcm)+64*(p7p8*p4p6)*(fb3*
1920      . fmc*hbcm+fb4*fmc*hbcm)+8*(p6p8*p3p7)*(-8*fb3*fmb*fmc+8*fb3*fmc
1921      . *hbcm-8*fb3*fmc2-fmb*hbcm-fmc*hbcm-hbcm2)+8*(16*fb4*p1p8*p2p3*
1922      . p6p7+16*fb4*p2p3*p2p8*p6p7-16*fb4*p2p3*p4p6*p7p8+16*fb4*p2p3*
1923      . p4p7*p6p8-16*fb4*p2p3*p4p8*p6p7+64*fb4*p2p8*p3p7*p4p6+hbcm2*
1924      . p2p8*p6p7))
1925       ans2=w7*(16*(p3p7*p3p6*p2p8)*(fmb*fmc+fmc2)+16*(p6p8*p3p7*p2p3)
1926      . *(fmb*fmc-fmc*hbcm+fmc2)+(p3p7*p3p6*p2p8*p2p3)*(64*ffmcfmb+32)
1927      . +16*(-2*ffmcfmb*p2p3*p3p5*p3p7*p6p8+2*ffmcfmb*p2p3*p3p6*p3p7*
1928      . p5p8-2*ffmcfmb*p2p3s2*p3p6*p7p8+2*ffmcfmb*p2p3s2*p3p7*p6p8+fmb
1929      . *hbcm*p2p3*p2p8*p6p7+2*fmc*hbcm*p2p5*p3p7*p6p8+2*fmc*hbcm*p2p8
1930      . *p3p7*p4p6+hbcm2*p2p5*p2p8*p6p7+2*p1p8*p2p3s2*p6p7+8*p2p3*p2p8
1931      . *p3p7*p4p6+2*p2p3s2*p2p8*p6p7-2*p2p3s2*p4p6*p7p8+2*p2p3s2*p4p7
1932      . *p6p8-2*p2p3s2*p4p8*p6p7))+ans3+ans6
1933       ans1=w2*(32*(p5p6*p3p7*p2p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p5p8
1934      . *p3p7*p3p6)*(fmb*fmc-fmc2)+16*(p6p8*p3p7*p3p5)*(-fmb*fmc-fmc*
1935      . hbcm+fmc2)+32*(p3p7*p3p6*p2p8)*(3*fmb*fmc+fmb*hbcm)+16*(p6p8*
1936      . p3p7)*(-2*ffmcfmb*p3p5s2-fmb*fmc*hbcm2+fmb*fmc2*hbcm+fmb2*fmc*
1937      . hbcm)+(p3p7*p3p6*p3p5*p2p8)*(64*ffmcfmb+32)+16*(-2*ffmcfmb*
1938      . p2p3*p3p5*p3p6*p7p8+2*ffmcfmb*p2p3*p3p5*p3p7*p6p8+2*ffmcfmb*
1939      . p3p5*p3p6*p3p7*p5p8-2*fmb*fmc*p2p3*p3p6*p7p8+2*fmb*fmc*p2p3*
1940      . p3p7*p6p8+2*fmb*hbcm*p1p8*p2p3*p6p7+2*fmb*hbcm*p2p3*p2p8*p6p7-
1941      . 2*fmb*hbcm*p2p3*p4p6*p7p8+2*fmb*hbcm*p2p3*p4p7*p6p8-2*fmb*hbcm
1942      . *p2p3*p4p8*p6p7-fmb*hbcm*p2p3*p5p8*p6p7+10*fmb*hbcm*p2p8*p3p7*
1943      . p4p6-2*fmc*hbcm*p3p7*p4p6*p5p8-2*fmc*hbcm*p3p7*p5p6*p5p8-hbcm2
1944      . *p2p5*p5p8*p6p7+2*p1p8*p2p3*p3p5*p6p7+2*p2p3*p2p8*p3p5*p6p7-2*
1945      . p2p3*p3p5*p4p6*p7p8+2*p2p3*p3p5*p4p7*p6p8-2*p2p3*p3p5*p4p8*
1946      . p6p7+8*p2p8*p3p5*p3p7*p4p6))+ans2
1947       ans=ccc*ans1
1948       b(12)=ans
1949       b(13)=ccc*(8*w7*(-3*fmb*p2p3*p2p8+hbcm*p1p2*p2p8-3*hbcm*p2p5*
1950      . p2p8)+w17*(8*(p2p3*p1p8)*(3*fmc-2*hbcm)+24*(p2p8*p2p3)*(-fmb+2
1951      . *fmc)+8*(p2p8*p1p3)*(-3*fmb+3*fmc+2*hbcm)+8*(-6*fmc*p2p3*p5p8-
1952      . hbcm*p1p2*p1p8-5*hbcm*p1p2*p2p8+6*hbcm*p1p2*p5p8-3*hbcm*p1p8*
1953      . p2p5-3*hbcm*p2p5*p2p8))+w2*(8*(p5p8*p2p3)*(-3*fmc+4*hbcm)+8*(
1954      . p3p5*p2p8)*(-3*fmb+3*fmc-4*hbcm)+8*p2p8*(4*fmb*fmc*hbcm-3*fmb*
1955      . hbcm2-4*fmb2*hbcm)+8*(-hbcm*p1p2*p5p8+2*hbcm*p1p5*p2p8+2*hbcm*
1956      . p2p5*p2p8+3*hbcm*p2p5*p5p8))+(96*p5p8*(fb3*fmc+fb4*fmc)+4*p2p8
1957      . *(-24*fb3*fmc+16*fb3*hbcm-24*fb4*fmb+5*hbcm)+32*p1p8*(-fb3*fmc
1958      . -fb4*fmc)))
1959       b(14)=ccc*(8*w7*(2*ffmcfmb*p2p3s2+p1p2*p2p3-4*p2p3*p2p5-3*
1960      . p2p3s2)+w2*(8*p2p5*(-4*fmb*hbcm+fmc*hbcm-hbcm2)+8*p2p3*(3*fmb*
1961      . fmc-4*fmb*hbcm)+(p3p5*p2p3)*(16*ffmcfmb-24)+8*(fmb*hbcm*p1p2+
1962      . p1p2*p3p5-4*p2p5*p3p5))+w17*(8*p1p2*(-3*fmb*hbcm-3*fmc*hbcm+2*
1963      . hbcm2)+8*p2p3*(3*fmb*fmc-2*fmc*hbcm+3*fmc2)+(p2p3*p1p3)*(16*
1964      . ffmcfmb-24)+8*(2*ffmcfmb*p2p3s2+p1p2*p1p3+p1p2*p2p3-4*p1p3*
1965      . p2p5-4*p2p3*p2p5-3*p2p3s2))+(p2p3*(64*fb4*ffmcfmb-96*fb4-24)+
1966      . 16*(-3*fb3*fmb*fmc+2*fb3*fmc*hbcm-3*fb3*fmc2-3*fb4*fmb*fmc+2*
1967      . fb4*fmc*hbcm-3*fb4*fmc2+2*fb4*p1p2-8*fb4*p2p5)))
1968       ans1=(w7*(8*(p2p8*p2p3)*(-2*fmc*hbcm+3*hbcm2)+8*(hbcm2*p1p2*
1969      . p2p8-2*hbcm2*p2p5*p2p8-2*p1p3*p2p3*p2p8+2*p1p8*p2p3s2+6*p2p3*
1970      . p2p8*p3p5-6*p2p3s2*p5p8))+w17*(8*(p2p8*p2p3)*(2*fmc*hbcm+3*
1971      . hbcm2)+8*(p2p8*p1p3)*(2*fmb*hbcm+2*fmc*hbcm+3*hbcm2)+8*(-2*fmb
1972      . *hbcm*p1p8*p2p3-4*fmc*hbcm*p2p3*p5p8-hbcm2*p1p2*p1p8-3*hbcm2*
1973      . p1p2*p2p8+4*hbcm2*p1p2*p5p8-2*hbcm2*p1p8*p2p5-2*hbcm2*p2p5*
1974      . p2p8+2*p1p3*p1p8*p2p3-2*p1p3*p2p3*p2p8-6*p1p3*p2p3*p5p8+6*p1p3
1975      . *p2p8*p3p5-2*p1p3s2*p2p8+2*p1p8*p2p3s2+6*p2p3*p2p8*p3p5-6*
1976      . p2p3s2*p5p8))+w2*(8*(p3p5*p2p8)*(4*fmb*hbcm-4*fmc*hbcm+3*hbcm2
1977      . )+16*(p5p8*p2p3)*(-2*fmb*hbcm+fmc*hbcm)+8*p2p8*(-3*fmb*fmc*
1978      . hbcm2+4*fmb*hbcm3-3*fmb2*hbcm2+6*p3p5s2)+8*(-2*fmb*hbcm*p1p3*
1979      . p2p8+2*fmb*hbcm*p1p8*p2p3-hbcm2*p1p2*p5p8+2*hbcm2*p1p5*p2p8+2*
1980      . hbcm2*p2p5*p2p8+2*hbcm2*p2p5*p5p8-2*p1p3*p2p8*p3p5+2*p1p8*p2p3
1981      . *p3p5-6*p2p3*p3p5*p5p8))+(64*p5p8*(fb3*fmc*hbcm+fb4*fmc*hbcm)+
1982      . 32*p1p8*(-fb3*fmc*hbcm-fb4*fmc*hbcm)+16*p2p8*(4*fb3*fmb*hbcm-4
1983      . *fb4*fmc*hbcm+6*fb4*hbcm2+hbcm2)+64*(-fb4*p1p3*p2p8+fb4*p1p8*
1984      . p2p3-3*fb4*p2p3*p5p8+3*fb4*p2p8*p3p5)))
1985       ans=ccc*ans1
1986       b(15)=ans
1987       ans=ccc*(8*w7*(3*fmb*p2p3s2-hbcm*p1p2*p2p3+3*hbcm*p2p3*p2p5)+w2
1988      . *(8*p2p5*(-3*fmb*hbcm2-fmc*hbcm2+hbcm3)+16*p2p3*(-fmb*fmc*hbcm
1989      . +2*fmb2*hbcm)+8*(fmb*hbcm2*p1p2+3*fmb*p2p3*p3p5+hbcm*p1p2*p3p5
1990      . -2*hbcm*p1p5*p2p3-2*hbcm*p2p3*p2p5-3*hbcm*p2p5*p3p5))+w17*(24*
1991      . (p2p3*p1p3)*(fmb-2*fmc)+8*p1p2*(-2*fmb*hbcm2+2*fmc*hbcm2-3*
1992      . hbcm3)+8*p2p3*(2*fmb*fmc*hbcm+3*fmc*hbcm2-2*fmc2*hbcm)+8*(3*
1993      . fmb*p2p3s2+6*fmc*p2p3*p3p5-6*fmc*p2p3s2+hbcm*p1p2*p1p3+5*hbcm*
1994      . p1p2*p2p3-6*hbcm*p1p2*p3p5+3*hbcm*p1p3*p2p5+3*hbcm*p2p3*p2p5))
1995      . +(96*p3p5*(-fb3*fmc-fb4*fmc)+4*p2p3*(16*fb3*fmc+24*fb4*fmb-5*
1996      . hbcm)+32*p1p3*(fb3*fmc+fb4*fmc)+16*(-2*fb3*fmb*fmc*hbcm-3*fb3*
1997      . fmc*hbcm2+2*fb3*fmc2*hbcm-2*fb3*hbcm*p1p2+6*fb3*hbcm*p2p5-2*
1998      . fb4*fmb*fmc*hbcm-3*fb4*fmc*hbcm2+2*fb4*fmc2*hbcm)))
1999       b(16)=ans
2000       b(17)=ccc*(w7*(8*(p3p6*p2p8)*(fmc+hbcm)+8*(p6p8*p2p3)*(fmb+fmc-
2001      . hbcm)+24*hbcm*p2p8*p4p6)+w17*(8*(p3p6*p2p8)*(3*fmc+hbcm)+8*(
2002      . p3p6*p1p8)*(3*fmc+hbcm)+8*(p6p8*p2p3)*(fmb-fmc-hbcm)+8*(p6p8*
2003      . p1p3)*(fmb-fmc-hbcm)+8*(-6*fmc*p3p6*p5p8+2*hbcm*p1p2*p6p8+3*
2004      . hbcm*p1p8*p4p6+3*hbcm*p2p8*p4p6))+w2*(8*(p5p8*p3p6)*(-3*fmc-
2005      . hbcm)+8*(p6p8*p3p5)*(fmb-fmc+hbcm)+8*p6p8*(-fmb*fmc*hbcm+fmb*
2006      . hbcm2+fmb2*hbcm)+8*(-5*hbcm*p4p6*p5p8-2*hbcm*p5p6*p5p8))+4*
2007      . p6p8*(8*fb3*fmc-8*fb3*hbcm+8*fb4*fmb-7*hbcm))
2008       b(18)=ccc*(w2*(8*p5p6*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*p3p6*(-3*fmb
2009      . *fmc-fmb*hbcm)+(p3p6*p3p5)*(-16*ffmcfmb-8)+8*(-5*fmb*hbcm*p4p6
2010      . -4*p3p5*p4p6))+w7*((p3p6*p2p3)*(-16*ffmcfmb-8)-32*p2p3*p4p6)+
2011      . w17*(8*p3p6*(-3*fmb*fmc+2*fmc*hbcm-3*fmc2)+(p3p6*p2p3)*(-16*
2012      . ffmcfmb-8)+(p3p6*p1p3)*(-16*ffmcfmb-8)+32*(-p1p3*p4p6-p2p3*
2013      . p4p6))+(p3p6*(-64*fb4*ffmcfmb-32*fb4+24)-128*fb4*p4p6))
2014       b(19)=ccc*(w7*(4*p2p8*(2*fmb*hbcm2-2*fmc*hbcm2+3*hbcm3)+8*(-
2015      . hbcm*p1p3*p2p8+hbcm*p1p8*p2p3-3*hbcm*p2p3*p5p8+3*hbcm*p2p8*
2016      . p3p5))+w2*(4*p5p8*(4*fmb*hbcm2+4*fmc*hbcm2-5*hbcm3)+8*(-fmb*
2017      . hbcm2*p1p8-fmb*hbcm2*p2p8+hbcm*p1p3*p5p8-hbcm*p1p8*p3p5+hbcm*
2018      . p2p3*p5p8-hbcm*p2p8*p3p5))+w17*(4*p2p8*(2*fmb*hbcm2-2*fmc*
2019      . hbcm2+3*hbcm3)+4*p1p8*(2*fmb*hbcm2-2*fmc*hbcm2+3*hbcm3)+24*(-
2020      . hbcm*p1p3*p5p8+hbcm*p1p8*p3p5-hbcm*p2p3*p5p8+hbcm*p2p8*p3p5))+
2021      . 32*(fb3*hbcm*p1p8+fb3*hbcm*p2p8-3*fb3*hbcm*p5p8))
2022       b(20)=ccc*(w7*(4*p2p8*(3*fmb*hbcm+3*fmc*hbcm-2*hbcm2)+8*(-p1p8*
2023      . p2p3-p2p3*p2p8+4*p2p3*p5p8))+w2*(4*p5p8*(5*fmb*hbcm-5*fmc*hbcm
2024      . +4*hbcm2)+8*(-fmb*hbcm*p1p8-fmb*hbcm*p2p8-p1p8*p3p5-p2p8*p3p5+
2025      . 4*p3p5*p5p8))+w17*(4*p2p8*(3*fmb*hbcm+3*fmc*hbcm-2*hbcm2)+4*
2026      . p1p8*(3*fmb*hbcm+3*fmc*hbcm-2*hbcm2)+8*(-p1p3*p1p8-p1p3*p2p8+4
2027      . *p1p3*p5p8-p1p8*p2p3-p2p3*p2p8+4*p2p3*p5p8))+32*(-fb4*p1p8-fb4
2028      . *p2p8+4*fb4*p5p8))
2029       b(21)=ccc*(w7*(8*(p3p7*p2p8)*(-3*fmc+2*hbcm)+8*(p7p8*p2p3)*(3*
2030      . fmb+fmc-2*hbcm)+8*(-2*fmc*p1p8*p3p7+6*fmc*p3p7*p5p8+3*hbcm*
2031      . p2p8*p5p7))+w17*(8*(p3p7*p2p8)*(-3*fmc+2*hbcm)+8*(p3p7*p1p8)*(
2032      . -3*fmc+2*hbcm)+8*(p7p8*p2p3)*(3*fmb-3*fmc-2*hbcm)+8*(p7p8*p1p3
2033      . )*(3*fmb-3*fmc-2*hbcm)+8*(6*fmc*p3p7*p5p8+4*hbcm*p1p2*p7p8+3*
2034      . hbcm*p1p8*p5p7+3*hbcm*p2p8*p5p7))+w2*(8*(p5p8*p3p7)*(3*fmc-4*
2035      . hbcm)+8*(p7p8*p3p5)*(3*fmb-3*fmc+4*hbcm)+8*p7p8*(-4*fmb*fmc*
2036      . hbcm+3*fmb*hbcm2+4*fmb2*hbcm)+8*(-2*hbcm*p1p5*p7p8-2*hbcm*p2p5
2037      . *p7p8-3*hbcm*p5p7*p5p8))+4*p7p8*(16*fb3*fmc-16*fb3*hbcm+24*fb4
2038      . *fmb-8*fb4*fmc-5*hbcm))
2039       b(22)=ccc*(4*w7*p2p3*(4*fmb+2*fmc-3*hbcm)+w17*(4*p2p3*(4*fmb-4*
2040      . fmc-3*hbcm)+4*p1p3*(4*fmb-4*fmc-3*hbcm)+24*hbcm*p1p2)+w2*(4*
2041      . p3p5*(4*fmb-4*fmc+5*hbcm)+4*(-5*fmb*fmc*hbcm+4*fmb*hbcm2+5*
2042      . fmb2*hbcm-2*hbcm*p1p5-2*hbcm*p2p5))+8*(6*fb3*fmc-6*fb3*hbcm+8*
2043      . fb4*fmb-2*fb4*fmc-3*hbcm))
2044       b(23)=ccc*(w2*(8*p5p7*(4*fmb*hbcm-fmc*hbcm+hbcm2)+8*p3p7*(-3*
2045      . fmb*fmc+4*fmb*hbcm)+(p3p7*p3p5)*(-16*ffmcfmb+24)+32*p3p5*p5p7)
2046      . +w7*(8*p3p7*(-3*fmb*fmc+2*fmc*hbcm-3*fmc2)+(p3p7*p2p3)*(-16*
2047      . ffmcfmb+24)+32*p2p3*p5p7)+w17*(8*p3p7*(-3*fmb*fmc+2*fmc*hbcm-3
2048      . *fmc2)+(p3p7*p2p3)*(-16*ffmcfmb+24)+(p3p7*p1p3)*(-16*ffmcfmb+
2049      . 24)+32*(p1p3*p5p7+p2p3*p5p7))+(p3p7*(-64*fb4*ffmcfmb+96*fb4+24
2050      . )+128*fb4*p5p7))
2051       b(24)=ccc*(w7*(4*p2p3*(-3*fmb*hbcm+fmc*hbcm-4*hbcm2)+8*(p1p3*
2052      . p2p3-4*p2p3*p3p5+p2p3s2))+w17*(4*p2p3*(-3*fmb*hbcm-3*fmc*hbcm-
2053      . 4*hbcm2)+4*p1p3*(-3*fmb*hbcm-3*fmc*hbcm-4*hbcm2)+8*(2*hbcm2*
2054      . p1p2+2*p1p3*p2p3-4*p1p3*p3p5+p1p3s2-4*p2p3*p3p5+p2p3s2))+w2*(4
2055      . *p3p5*(-5*fmb*hbcm+5*fmc*hbcm-4*hbcm2)+4*(4*fmb*fmc*hbcm2+2*
2056      . fmb*hbcm*p1p3+2*fmb*hbcm*p2p3-5*fmb*hbcm3+4*fmb2*hbcm2-2*hbcm2
2057      . *p1p5-2*hbcm2*p2p5+2*p1p3*p3p5+2*p2p3*p3p5-8*p3p5s2))+16*(-3*
2058      . fb3*fmb*hbcm-fb3*fmc*hbcm+2*fb4*fmc*hbcm-4*fb4*hbcm2+2*fb4*
2059      . p1p3+2*fb4*p2p3-8*fb4*p3p5-hbcm2))
2060       b(25)=ccc*(w7*(8*(p3p7*p2p3)*(-3*fmb+2*fmc)+8*p3p7*(-2*fmb*fmc*
2061      . hbcm-3*fmc*hbcm2+2*fmc2*hbcm)+8*(2*fmc*p1p3*p3p7-6*fmc*p3p5*
2062      . p3p7-3*hbcm*p2p3*p5p7))+w2*(8*p5p7*(3*fmb*hbcm2+fmc*hbcm2-
2063      . hbcm3)+16*p3p7*(fmb*fmc*hbcm-2*fmb2*hbcm)+8*(-3*fmb*p3p5*p3p7+
2064      . 2*hbcm*p1p5*p3p7+2*hbcm*p2p5*p3p7+3*hbcm*p3p5*p5p7))+w17*(24*(
2065      . p3p7*p2p3)*(-fmb+2*fmc)+24*(p3p7*p1p3)*(-fmb+2*fmc)+8*p3p7*(-2
2066      . *fmb*fmc*hbcm-3*fmc*hbcm2+2*fmc2*hbcm)+8*(-6*fmc*p3p5*p3p7-4*
2067      . hbcm*p1p2*p3p7-3*hbcm*p1p3*p5p7-3*hbcm*p2p3*p5p7))+(4*p3p7*(-8
2068      . *fb3*fmc-24*fb4*fmb+8*fb4*fmc+5*hbcm)-96*fb3*hbcm*p5p7))
2069       b(26)=ccc*(w7*(8*(p3p6*p2p3)*(-fmb-2*fmc)-24*hbcm*p2p3*p4p6)+w2
2070      . *(8*(p3p6*p3p5)*(-fmb+4*fmc)+8*p5p6*(fmb*hbcm2-fmc*hbcm2+hbcm3
2071      . )+8*p3p6*(3*fmb*fmc*hbcm-fmb2*hbcm)+8*(4*fmb*hbcm2*p4p6+5*hbcm
2072      . *p3p5*p4p6+2*hbcm*p3p5*p5p6))+w17*(8*(p3p6*p2p3)*(-fmb-2*fmc)+
2073      . 8*(p3p6*p1p3)*(-fmb-2*fmc)+8*p3p6*(2*fmb*fmc*hbcm+3*fmc*hbcm2-
2074      . 2*fmc2*hbcm)+8*(6*fmc*p3p5*p3p6-2*hbcm*p1p2*p3p6-3*hbcm*p1p3*
2075      . p4p6-3*hbcm*p2p3*p4p6))+(4*p3p6*(-16*fb3*fmc-8*fb4*fmb+7*hbcm)
2076      . -96*fb3*hbcm*p4p6))
2077       ans2=(16*p7p8*(-4*fb3*fmb*hbcm-2*fb3*fmc*hbcm+2*fb4*fmc*hbcm-6*
2078      . fb4*hbcm2-hbcm2)+64*(fb4*p1p3*p7p8-fb4*p1p8*p3p7+fb4*p2p3*p7p8
2079      . -fb4*p2p8*p3p7-3*fb4*p3p5*p7p8+3*fb4*p3p7*p5p8))
2080       ans1=w7*(8*(p7p8*p2p3)*(-2*fmb*hbcm-3*hbcm2)+16*(fmb*hbcm*p2p8*
2081      . p3p7-fmc*hbcm*p1p8*p3p7+2*fmc*hbcm*p3p7*p5p8+hbcm2*p2p8*p5p7+
2082      . p1p3*p2p3*p7p8-p1p8*p2p3*p3p7-p2p3*p2p8*p3p7-3*p2p3*p3p5*p7p8+
2083      . 3*p2p3*p3p7*p5p8+p2p3s2*p7p8))+w17*(16*p7p8*(p1p3s2+p2p3s2)+8*
2084      . (p7p8*p2p3)*(-2*fmb*hbcm-2*fmc*hbcm-3*hbcm2)+8*(p7p8*p1p3)*(-2
2085      . *fmb*hbcm-2*fmc*hbcm-3*hbcm2)+16*(fmb*hbcm*p1p8*p3p7+fmb*hbcm*
2086      . p2p8*p3p7+2*fmc*hbcm*p3p7*p5p8+hbcm2*p1p2*p7p8+hbcm2*p1p8*p5p7
2087      . +hbcm2*p2p8*p5p7-p1p3*p1p8*p3p7+2*p1p3*p2p3*p7p8-p1p3*p2p8*
2088      . p3p7-3*p1p3*p3p5*p7p8+3*p1p3*p3p7*p5p8-p1p8*p2p3*p3p7-p2p3*
2089      . p2p8*p3p7-3*p2p3*p3p5*p7p8+3*p2p3*p3p7*p5p8))+w2*(16*(p5p8*
2090      . p3p7)*(2*fmb*hbcm-fmc*hbcm)+8*(p7p8*p3p5)*(-4*fmb*hbcm+4*fmc*
2091      . hbcm-3*hbcm2)+8*p7p8*(3*fmb*fmc*hbcm2-4*fmb*hbcm3+3*fmb2*hbcm2
2092      . -6*p3p5s2)+16*(fmb*hbcm*p1p3*p7p8-fmb*hbcm*p1p8*p3p7+fmb*hbcm*
2093      . p2p3*p7p8-fmb*hbcm*p2p8*p3p7-hbcm2*p1p5*p7p8-hbcm2*p2p5*p7p8-
2094      . hbcm2*p5p7*p5p8+p1p3*p3p5*p7p8-p1p8*p3p5*p3p7+p2p3*p3p5*p7p8-
2095      . p2p8*p3p5*p3p7+3*p3p5*p3p7*p5p8))+ans2
2096       ans=ccc*ans1
2097       b(27)=ans
2098       ans=ccc*(w7*(8*(p3p6*p2p8)*(-fmb*hbcm-fmc*hbcm)+8*(p6p8*p2p3)*(
2099      . fmb*hbcm-fmc*hbcm-hbcm2)+16*(-hbcm2*p2p8*p4p6+p1p3*p2p3*p6p8-
2100      . p2p3*p3p4*p6p8-p2p3*p3p6*p5p8+p2p3s2*p6p8))+w17*(16*p6p8*(
2101      . p1p3s2+p2p3s2)+8*(p3p6*p2p8)*(-fmb*hbcm-3*fmc*hbcm)+8*(p6p8*
2102      . p2p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p3p6*p1p8)*(-fmb*hbcm-3*fmc
2103      . *hbcm)+8*(p6p8*p1p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(2*fmc*hbcm*
2104      . p3p6*p5p8-hbcm2*p1p2*p6p8-hbcm2*p1p8*p4p6-hbcm2*p2p8*p4p6+2*
2105      . p1p3*p2p3*p6p8-p1p3*p3p4*p6p8-p1p3*p3p6*p5p8-p2p3*p3p4*p6p8-
2106      . p2p3*p3p6*p5p8))+w2*(8*(p5p8*p3p6)*(-fmb*hbcm+3*fmc*hbcm)+8*(
2107      . p6p8*p3p5)*(-fmb*hbcm-fmc*hbcm-hbcm2)+8*p6p8*(-fmb*fmc*hbcm2-
2108      . fmb*hbcm3-fmb2*hbcm2)+16*(fmb*hbcm*p1p3*p6p8+fmb*hbcm*p2p3*
2109      . p6p8-fmb*hbcm*p3p4*p6p8+2*hbcm2*p4p6*p5p8+hbcm2*p5p6*p5p8+p1p3
2110      . *p3p5*p6p8+p2p3*p3p5*p6p8-p3p4*p3p5*p6p8-p3p5*p3p6*p5p8))+(16*
2111      . p6p8*(2*fb3*fmb*hbcm-2*fb4*fmc*hbcm-2*fb4*hbcm2+hbcm2)+64*(fb4
2112      . *p1p3*p6p8+fb4*p2p3*p6p8-fb4*p3p4*p6p8-fb4*p3p6*p5p8)))
2113       b(28)=ans
2114       ans2=((p3p7*p3p6)*(-128*fb4*ffmcfmb+48)+16*p6p7*(-2*fb3*fmb*
2115      . hbcm+2*fb4*fmc*hbcm+2*fb4*hbcm2-hbcm2)+64*(-fb4*p1p3*p6p7-fb4*
2116      . p2p3*p6p7+fb4*p3p4*p6p7+fb4*p3p6*p5p7-3*fb4*p3p7*p4p6))
2117       ans1=w2*(16*(p5p7*p3p6)*(fmb*hbcm-fmc*hbcm)+8*(p6p7*p3p5)*(fmb*
2118      . hbcm+fmc*hbcm+hbcm2)+8*p6p7*(fmb*fmc*hbcm2+fmb*hbcm3+fmb2*
2119      . hbcm2)+16*(-2*ffmcfmb*p3p5*p3p6*p3p7-3*fmb*fmc*p3p6*p3p7-fmb*
2120      . hbcm*p1p3*p6p7-fmb*hbcm*p2p3*p6p7+fmb*hbcm*p3p4*p6p7-4*fmb*
2121      . hbcm*p3p7*p4p6-fmb*hbcm*p3p7*p5p6-hbcm2*p4p6*p5p7-hbcm2*p5p6*
2122      . p5p7-p1p3*p3p5*p6p7-p2p3*p3p5*p6p7+p3p4*p3p5*p6p7+p3p5*p3p6*
2123      . p5p7-3*p3p5*p3p7*p4p6))+w7*(8*(p6p7*p2p3)*(-fmb*hbcm+fmc*hbcm+
2124      . hbcm2)+16*(p3p7*p3p6)*(-fmb*fmc-fmc2)+16*(-2*ffmcfmb*p2p3*p3p6
2125      . *p3p7-2*fmc*hbcm*p3p7*p4p6-p1p3*p2p3*p6p7+p2p3*p3p4*p6p7+p2p3*
2126      . p3p6*p5p7-3*p2p3*p3p7*p4p6-p2p3s2*p6p7))+w17*(16*p6p7*(-p1p3s2
2127      . -p2p3s2)+8*(p6p7*p2p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p6p7*p1p3
2128      . )*(-fmb*hbcm-fmc*hbcm+hbcm2)+48*(p3p7*p3p6)*(-fmb*fmc-fmc2)+16
2129      . *(-2*ffmcfmb*p1p3*p3p6*p3p7-2*ffmcfmb*p2p3*p3p6*p3p7-2*fmc*
2130      . hbcm*p3p6*p5p7-2*fmc*hbcm*p3p7*p4p6+hbcm2*p1p2*p6p7-2*p1p3*
2131      . p2p3*p6p7+p1p3*p3p4*p6p7+p1p3*p3p6*p5p7-3*p1p3*p3p7*p4p6+p2p3*
2132      . p3p4*p6p7+p2p3*p3p6*p5p7-3*p2p3*p3p7*p4p6))+ans2
2133       ans=ccc*ans1
2134       b(29)=ans
2135       ans2=w17*(16*(p6p8*p3p7*p2p3)*(fmb-2*fmc)+16*(p7p8*p3p6*p2p3)*(
2136      . -fmb-fmc)+16*(p6p8*p3p7*p1p3)*(fmb-2*fmc)+16*(p7p8*p3p6*p1p3)*
2137      . (-fmb-fmc)+8*(p6p7*p2p8)*(fmb*hbcm2-fmc*hbcm2+hbcm3)+8*(p6p7*
2138      . p1p8)*(fmb*hbcm2-fmc*hbcm2+hbcm3)+16*(p6p8*p3p7)*(fmb*fmc*hbcm
2139      . +fmc*hbcm2-fmc2*hbcm)+16*(p7p8*p3p6)*(fmb*fmc*hbcm+2*fmc*hbcm2
2140      . -fmc2*hbcm)+16*(3*fmc*p1p8*p3p6*p3p7+3*fmc*p2p8*p3p6*p3p7+4*
2141      . fmc*p3p5*p3p6*p7p8+2*fmc*p3p5*p3p7*p6p8-6*fmc*p3p6*p3p7*p5p8-2
2142      . *hbcm*p1p2*p3p6*p7p8+2*hbcm*p1p2*p3p7*p6p8-2*hbcm*p1p3*p4p6*
2143      . p7p8+hbcm*p1p3*p5p7*p6p8-hbcm*p1p3*p5p8*p6p7+hbcm*p1p8*p3p5*
2144      . p6p7-hbcm*p1p8*p3p6*p5p7+2*hbcm*p1p8*p3p7*p4p6-2*hbcm*p2p3*
2145      . p4p6*p7p8+hbcm*p2p3*p5p7*p6p8-hbcm*p2p3*p5p8*p6p7+hbcm*p2p8*
2146      . p3p5*p6p7-hbcm*p2p8*p3p6*p5p7+2*hbcm*p2p8*p3p7*p4p6))+(8*(p6p8
2147      . *p3p7)*(8*fb4*fmb-3*hbcm)+8*(p7p8*p3p6)*(-8*fb3*fmc-8*fb4*fmb+
2148      . 3*hbcm)+64*(-2*fb3*hbcm*p4p6*p7p8+fb3*hbcm*p5p7*p6p8-fb3*hbcm*
2149      . p5p8*p6p7))
2150       ans1=w7*(16*(p7p8*p3p6*p2p3)*(-fmb-fmc)+8*(p6p7*p2p8)*(fmb*
2151      . hbcm2-fmc*hbcm2+hbcm3)+16*(p6p8*p3p7)*(fmb*fmc*hbcm+fmc*hbcm2-
2152      . fmc2*hbcm)+16*(fmb*p2p3*p3p7*p6p8+fmc*p2p8*p3p6*p3p7+2*fmc*
2153      . p3p5*p3p7*p6p8-2*fmc*p3p6*p3p7*p5p8-2*hbcm*p2p3*p4p6*p7p8+hbcm
2154      . *p2p3*p5p7*p6p8-hbcm*p2p3*p5p8*p6p7+hbcm*p2p8*p3p5*p6p7-hbcm*
2155      . p2p8*p3p6*p5p7+2*hbcm*p2p8*p3p7*p4p6))+w2*(16*(p7p8*p3p6*p3p5)
2156      . *(-fmb+3*fmc)+8*(p6p7*p5p8)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+16*(
2157      . p7p8*p5p6)*(fmb*hbcm2-fmc*hbcm2+hbcm3)+16*(p7p8*p3p6)*(2*fmb*
2158      . fmc*hbcm-fmb2*hbcm)+16*(3*fmb*hbcm2*p4p6*p7p8-fmb*hbcm2*p5p7*
2159      . p6p8+fmb*p3p5*p3p7*p6p8+fmb2*hbcm*p3p7*p6p8-3*fmc*p3p6*p3p7*
2160      . p5p8+4*hbcm*p3p5*p4p6*p7p8+2*hbcm*p3p5*p5p6*p7p8-hbcm*p3p5*
2161      . p5p7*p6p8+hbcm*p3p6*p5p7*p5p8-4*hbcm*p3p7*p4p6*p5p8-2*hbcm*
2162      . p3p7*p5p6*p5p8))+ans2
2163       ans=ccc*ans1
2164       b(30)=ans
2165       ans2=w17*(8*(p6p7*p2p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p6p7*p1p8
2166      . )*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p6p8*p3p7)*(-fmb*fmc+fmc*hbcm
2167      . -fmc2)+16*(p7p8*p3p6)*(-2*fmb*fmc+fmc*hbcm-2*fmc2)+(p7p8*p3p6*
2168      . p2p3)*(-16*ffmcfmb-16)+(p7p8*p3p6*p1p3)*(-16*ffmcfmb-16)+16*(-
2169      . ffmcfmb*p1p3*p3p7*p6p8-ffmcfmb*p2p3*p3p7*p6p8-p1p3*p1p8*p6p7-
2170      . p1p3*p2p8*p6p7-3*p1p3*p4p6*p7p8-p1p3*p4p7*p6p8+p1p3*p4p8*p6p7-
2171      . p1p8*p2p3*p6p7-p2p3*p2p8*p6p7-3*p2p3*p4p6*p7p8-p2p3*p4p7*p6p8+
2172      . p2p3*p4p8*p6p7))+((p6p8*p3p7)*(-64*fb4*ffmcfmb+24)+(p7p8*p3p6)
2173      . *(-64*fb4*ffmcfmb-64*fb4+24)+64*(-fb4*p1p8*p6p7-fb4*p2p8*p6p7-
2174      . 3*fb4*p4p6*p7p8-fb4*p4p7*p6p8+fb4*p4p8*p6p7))
2175       ans1=w2*(8*(p6p7*p5p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p7p8*p5p6)
2176      . *(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p7p8*p3p6)*(-2*fmb*fmc-fmb*
2177      . hbcm)+(p7p8*p3p6*p3p5)*(-16*ffmcfmb-16)+16*(-ffmcfmb*p3p5*p3p7
2178      . *p6p8-fmb*fmc*p3p7*p6p8-fmb*hbcm*p1p8*p6p7-fmb*hbcm*p2p8*p6p7-
2179      . 4*fmb*hbcm*p4p6*p7p8-fmb*hbcm*p4p7*p6p8+fmb*hbcm*p4p8*p6p7-
2180      . p1p8*p3p5*p6p7-p2p8*p3p5*p6p7-3*p3p5*p4p6*p7p8-p3p5*p4p7*p6p8+
2181      . p3p5*p4p8*p6p7))+w7*(8*(p6p7*p2p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+
2182      . 16*(p6p8*p3p7)*(-fmb*fmc+fmc*hbcm-fmc2)+(p7p8*p3p6*p2p3)*(-16*
2183      . ffmcfmb-16)+16*(-ffmcfmb*p2p3*p3p7*p6p8-p1p8*p2p3*p6p7-p2p3*
2184      . p2p8*p6p7-3*p2p3*p4p6*p7p8-p2p3*p4p7*p6p8+p2p3*p4p8*p6p7))+
2185      . ans2
2186       ans=ccc*ans1
2187       b(31)=ans
2188       b(32)=ccc*(w17*(8*(p6p7*p2p3)*(fmb-fmc-hbcm)+8*(p6p7*p1p3)*(fmb
2189      . -fmc-hbcm)+16*(-3*fmc*p3p6*p3p7-3*fmc*p3p6*p5p7-3*fmc*p3p7*
2190      . p4p6+hbcm*p1p2*p6p7))+w2*(16*(p5p6*p3p7)*(fmc-hbcm)+8*(p6p7*
2191      . p3p5)*(fmb-fmc+hbcm)+8*p6p7*(-fmb*fmc*hbcm+fmb*hbcm2+fmb2*hbcm
2192      . )+16*(-fmc*p3p6*p5p7-hbcm*p4p6*p5p7-hbcm*p5p6*p5p7))+w7*(8*(
2193      . p6p7*p2p3)*(fmb+fmc-hbcm)+16*(p3p7*p3p6)*(-ffmcfmb*fmc-fmc)-48
2194      . *fmc*p3p7*p4p6)+8*p6p7*(4*fb3*fmc-4*fb3*hbcm+4*fb4*fmb-3*hbcm)
2195      . )
2196       do 200 n=1,32
2197          c(n,1)=c(n,1)-0.1818181818181818d0*b(n)
2198          c(n,2)=c(n,2)-0.05883183899358491d0*b(n)
2199          c(n,3)=c(n,3)-0.2077659977796572d0*b(n)
2200 200   continue
2201       return
2202         end
2203
2204       subroutine amp15_3p1(cc)
2205       implicit double precision(a-h,o-z)
2206       implicit integer (i-n)
2207       dimension b(32)
2208 #include "inclcon.h"
2209 #include "inclppp.h"
2210 #include "inclamp.h"
2211       do 100 n=1,32
2212          b(n)=0.0d0
2213 100   continue
2214       ccc=cc/((4*ffmcfmb*p1p3*p2p5)*(2*ffmcfmb*p2p3-2*ffmcfmb*p3p5+
2215      . fmb2-2*fmc*hbcm+fmc2+hbcm2-2*p2p3-2*p2p5+2*p3p5))
2216       b(1)=ccc*(w16*(16*(p3p6*p2p5)*(fmc+hbcm)+16*(3*hbcm*p2p5*p4p6+
2217      . hbcm*p2p5*p5p6))+16*fmc*p2p5*p3p6*w12)
2218       b(2)=ccc*(w16*(16*(p5p7*p5p6)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(
2219      . p5p7*p3p6)*(fmb*fmc+fmb*hbcm)+16*(3*fmb*hbcm*p4p6*p5p7-p2p3*
2220      . p3p6*p5p7-2*p2p3*p4p6*p5p7+p3p5*p3p6*p5p7+2*p3p5*p4p6*p5p7))+
2221      . w12*(16*(p5p7*p3p6)*(fmb*fmc+fmc2)+16*(p1p3*p3p6*p5p7+2*p1p3*
2222      . p4p6*p5p7))+64*(fb4*p3p6*p5p7+2*fb4*p4p6*p5p7))
2223       b(3)=ccc*(w12*(16*(p5p7*p3p6*p1p8)*(-fmc-hbcm)+16*(p6p8*p5p7*
2224      . p1p3)*(-fmb+fmc+hbcm)+16*(-2*fmc*p2p8*p3p6*p5p7+2*fmc*p3p6*
2225      . p5p7*p5p8-hbcm*p1p8*p4p6*p5p7))+w16*(16*(p5p8*p5p7*p3p6)*(fmc+
2226      . hbcm)+16*(p5p7*p3p6*p2p8)*(-fmc-hbcm)+16*(p6p8*p5p7*p3p5)*(-
2227      . fmb+fmc-hbcm)+16*(p6p8*p5p7*p2p3)*(fmb-fmc+hbcm)+16*(p6p8*p5p7
2228      . )*(fmb*fmc*hbcm-fmb*hbcm2-fmb2*hbcm)+16*(2*hbcm*p2p5*p5p7*p6p8
2229      . -3*hbcm*p2p8*p4p6*p5p7-2*hbcm*p2p8*p5p6*p5p7+3*hbcm*p4p6*p5p7*
2230      . p5p8+2*hbcm*p5p6*p5p7*p5p8))+8*(p6p8*p5p7)*(-8*fb3*fmc+8*fb3*
2231      . hbcm-8*fb4*fmb+hbcm))
2232       b(4)=ccc*(8*w12*(p5p7*p1p3)*(-2*fmb+2*fmc+hbcm)+w16*(8*(p5p7*
2233      . p3p5)*(-2*fmb+2*fmc-3*hbcm)+8*(p5p7*p2p3)*(2*fmb-2*fmc+3*hbcm)
2234      . +8*p5p7*(3*fmb*fmc*hbcm-2*fmb*hbcm2-3*fmb2*hbcm)+16*(-hbcm*
2235      . p1p2*p5p7+hbcm*p1p5*p5p7+3*hbcm*p2p5*p5p7))+32*p5p7*(-fb3*fmc+
2236      . fb3*hbcm-2*fb4*fmb+fb4*fmc))
2237       b(5)=ccc*(w16*(8*(p5p8*p5p7)*(-3*fmb*hbcm+3*fmc*hbcm-2*hbcm2)+8
2238      . *(p5p7*p2p8)*(3*fmb*hbcm-3*fmc*hbcm+2*hbcm2)+16*(fmb*hbcm*p1p8
2239      . *p5p7-p1p8*p2p3*p5p7+p1p8*p3p5*p5p7-2*p2p3*p2p8*p5p7+2*p2p3*
2240      . p5p7*p5p8+2*p2p8*p3p5*p5p7-2*p3p5*p5p7*p5p8))+w12*(8*(p5p7*
2241      . p1p8)*(-fmb*hbcm-fmc*hbcm)+16*(p1p3*p1p8*p5p7+2*p1p3*p2p8*p5p7
2242      . -2*p1p3*p5p7*p5p8))+64*(fb4*p1p8*p5p7+2*fb4*p2p8*p5p7-2*fb4*
2243      . p5p7*p5p8))
2244       b(6)=ccc*(w12*(8*(p5p7*p1p3)*(fmb*hbcm+fmc*hbcm+2*hbcm2)+16*(-2
2245      . *p1p3*p2p3*p5p7+2*p1p3*p3p5*p5p7-p1p3s2*p5p7))+w16*(8*(p5p7*
2246      . p3p5)*(3*fmb*hbcm-3*fmc*hbcm+2*hbcm2)+8*(p5p7*p2p3)*(-3*fmb*
2247      . hbcm+3*fmc*hbcm-2*hbcm2)+8*p5p7*(-2*fmb*fmc*hbcm2+3*fmb*hbcm3-
2248      . 2*fmb2*hbcm2+4*p2p3s2+4*p3p5s2)+16*(-fmb*hbcm*p1p3*p5p7-hbcm2*
2249      . p1p2*p5p7+hbcm2*p1p5*p5p7+2*hbcm2*p2p5*p5p7+p1p3*p2p3*p5p7-
2250      . p1p3*p3p5*p5p7-4*p2p3*p3p5*p5p7))+(32*p5p7*(fb3*fmb*hbcm+fb3*
2251      . fmc*hbcm+2*fb4*hbcm2)+64*(-fb4*p1p3*p5p7-2*fb4*p2p3*p5p7+2*fb4
2252      . *p3p5*p5p7)))
2253       b(7)=ccc*(8*w12*(-2*hbcm*p1p3*p2p8*p5p7+2*hbcm*p1p3*p5p7*p5p8+2
2254      . *hbcm*p1p8*p2p3*p5p7-2*hbcm*p1p8*p3p5*p5p7-hbcm3*p1p8*p5p7)+
2255      . w16*(8*(p5p8*p5p7)*(-2*fmb*hbcm2-2*fmc*hbcm2+3*hbcm3)+8*(p5p7*
2256      . p2p8)*(2*fmb*hbcm2+2*fmc*hbcm2-3*hbcm3)+16*(fmb*hbcm2*p1p8*
2257      . p5p7+hbcm*p1p3*p2p8*p5p7-hbcm*p1p3*p5p7*p5p8-hbcm*p1p8*p2p3*
2258      . p5p7+hbcm*p1p8*p3p5*p5p7))+64*(-fb3*hbcm*p1p8*p5p7-fb3*hbcm*
2259      . p2p8*p5p7+fb3*hbcm*p5p7*p5p8))
2260       b(8)=ccc*(16*w12*(p1p2*p1p3*p6p8-p1p3*p2p3*p6p8-p1p3*p2p4*p6p8)
2261      . +w16*(16*(p6p8*p2p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(fmb*hbcm*
2262      . p1p2*p6p8-fmb*hbcm*p2p3*p6p8-fmb*hbcm*p2p4*p6p8-p1p2*p2p3*p6p8
2263      . +p1p2*p3p5*p6p8+p2p3*p2p4*p6p8-p2p3*p3p5*p6p8+p2p3s2*p6p8-p2p4
2264      . *p3p5*p6p8))+64*(fb4*p1p2*p6p8-fb4*p2p3*p6p8-fb4*p2p4*p6p8))
2265       b(9)=ccc*(16*w16*(fmc*hbcm*p2p5*p3p6+2*hbcm2*p2p5*p4p6+hbcm2*
2266      . p2p5*p5p6+p2p3*p2p5*p3p6-p2p5*p3p5*p3p6)+16*(-4*fb4*p2p5*p3p6-
2267      . p1p3*p2p5*p3p6*w12))
2268       b(10)=ccc*(16*w12*(-hbcm*p1p3*p2p5*p6p8+hbcm*p1p8*p2p5*p3p6)+
2269      . w16*(16*(p6p8*p2p5)*(fmc*hbcm2-hbcm3)+16*(hbcm*p2p3*p2p5*p6p8-
2270      . hbcm*p2p5*p2p8*p3p6-hbcm*p2p5*p3p5*p6p8+hbcm*p2p5*p3p6*p5p8))-
2271      . 64*fb3*hbcm*p2p5*p6p8)
2272       b(11)=ccc*(16*w12*(fmb*p1p3*p3p6*p5p7-fmc*hbcm2*p3p6*p5p7+2*fmc
2273      . *p2p3*p3p6*p5p7-2*fmc*p3p5*p3p6*p5p7+hbcm*p1p3*p4p6*p5p7)+w16*
2274      . (16*(p5p7*p3p6*p3p5)*(fmb-2*fmc)+16*(p5p7*p3p6*p2p3)*(-fmb+2*
2275      . fmc)+16*(p5p7*p5p6)*(-fmb*hbcm2+fmc*hbcm2-hbcm3)+16*(p5p7*p3p6
2276      . )*(-fmb*fmc*hbcm+fmb2*hbcm)+16*(-2*fmb*hbcm2*p4p6*p5p7+3*hbcm*
2277      . p2p3*p4p6*p5p7+2*hbcm*p2p3*p5p6*p5p7-2*hbcm*p2p5*p3p6*p5p7-3*
2278      . hbcm*p3p5*p4p6*p5p7-2*hbcm*p3p5*p5p6*p5p7))+(8*(p5p7*p3p6)*(8*
2279      . fb4*fmb-hbcm)+64*fb3*hbcm*p4p6*p5p7))
2280       ans2=(16*(p6p8*p5p7)*(-4*fb3*fmb*hbcm+4*fb4*fmc*hbcm-4*fb4*
2281      . hbcm2-hbcm2)+128*(fb4*p2p3*p3p7*p6p8+fb4*p2p3*p4p7*p6p8+2*fb4*
2282      . p2p3*p5p7*p6p8+fb4*p2p5*p3p6*p7p8-fb4*p2p5*p3p7*p6p8-fb4*p2p8*
2283      . p3p6*p5p7-fb4*p3p5*p5p7*p6p8+fb4*p3p6*p5p7*p5p8))
2284       ans1=w12*(16*(p5p7*p3p6*p1p8)*(fmb*hbcm+fmc*hbcm)+16*(p6p8*p5p7
2285      . *p1p3)*(-fmb*hbcm-fmc*hbcm-hbcm2)+32*(p1p3*p2p3*p3p7*p6p8+p1p3
2286      . *p2p3*p4p7*p6p8+2*p1p3*p2p3*p5p7*p6p8+p1p3*p2p5*p3p6*p7p8-p1p3
2287      . *p2p5*p3p7*p6p8-p1p3*p2p8*p3p6*p5p7-p1p3*p3p5*p5p7*p6p8+p1p3*
2288      . p3p6*p5p7*p5p8))+w16*(32*(p6p8*p3p7*p2p5)*(fmc*hbcm-hbcm2)+16*
2289      . (p5p8*p5p7*p3p6)*(fmb*hbcm-fmc*hbcm)+16*(p6p8*p5p7*p3p5)*(-fmb
2290      . *hbcm+fmc*hbcm-hbcm2)+16*(p5p7*p3p6*p2p8)*(-fmb*hbcm+fmc*hbcm)
2291      . +16*(p6p8*p5p7*p2p3)*(3*fmb*hbcm-fmc*hbcm+hbcm2)+16*(p6p8*p5p7
2292      . )*(fmb*fmc*hbcm2-fmb*hbcm3+fmb2*hbcm2-4*p2p3s2-2*p3p5s2)+32*(
2293      . fmb*hbcm*p2p3*p3p7*p6p8+fmb*hbcm*p2p3*p4p7*p6p8-fmc*hbcm*p2p5*
2294      . p3p6*p7p8-2*hbcm2*p2p5*p4p6*p7p8-hbcm2*p2p5*p5p6*p7p8-hbcm2*
2295      . p2p5*p5p7*p6p8+hbcm2*p2p8*p4p6*p5p7+hbcm2*p2p8*p5p6*p5p7-hbcm2
2296      . *p4p6*p5p7*p5p8-hbcm2*p5p6*p5p7*p5p8-p2p3*p2p5*p3p6*p7p8+p2p3*
2297      . p2p5*p3p7*p6p8+p2p3*p2p8*p3p6*p5p7+p2p3*p3p5*p3p7*p6p8+p2p3*
2298      . p3p5*p4p7*p6p8+3*p2p3*p3p5*p5p7*p6p8-p2p3*p3p6*p5p7*p5p8-
2299      . p2p3s2*p3p7*p6p8-p2p3s2*p4p7*p6p8+p2p5*p3p5*p3p6*p7p8-p2p5*
2300      . p3p5*p3p7*p6p8-p2p8*p3p5*p3p6*p5p7+p3p5*p3p6*p5p7*p5p8))+ans2
2301       ans=ccc*ans1
2302       b(12)=ans
2303       b(13)=ccc*(8*w16*(2*hbcm*p1p8*p2p5+3*hbcm*p2p5*p2p8-3*hbcm*p2p5
2304      . *p5p8)-8*hbcm*p1p8*p2p5*w12)
2305       b(14)=ccc*(w16*(8*p2p5*(3*fmc*hbcm-2*hbcm2)+16*(p2p3*p2p5-p2p5*
2306      . p3p5))+16*(-4*fb4*p2p5-p1p3*p2p5*w12))
2307       b(15)=16*ccc*w16*(hbcm2*p1p8*p2p5+hbcm2*p2p5*p2p8-hbcm2*p2p5*
2308      . p5p8)
2309       b(16)=ccc*(w16*(8*p2p5*(-2*fmc*hbcm2+3*hbcm3)+8*(-2*hbcm*p1p3*
2310      . p2p5-3*hbcm*p2p3*p2p5+3*hbcm*p2p5*p3p5))+8*(4*fb3*hbcm*p2p5+
2311      . hbcm*p1p3*p2p5*w12))
2312       b(17)=ccc*(w12*(8*(p3p6*p1p8)*(fmc+hbcm)+8*(p6p8*p1p3)*(fmb-fmc
2313      . -hbcm)+8*(2*fmc*p2p8*p3p6-2*fmc*p3p6*p5p8+hbcm*p1p8*p4p6))+w16
2314      . *(8*(p5p8*p3p6)*(-fmc-hbcm)+8*(p3p6*p2p8)*(fmc+hbcm)+8*(p6p8*
2315      . p3p5)*(fmb-fmc+hbcm)+8*(p6p8*p2p3)*(-fmb+fmc-hbcm)+8*p6p8*(-
2316      . fmb*fmc*hbcm+fmb*hbcm2+fmb2*hbcm)+8*(-2*hbcm*p2p5*p6p8+3*hbcm*
2317      . p2p8*p4p6+2*hbcm*p2p8*p5p6-3*hbcm*p4p6*p5p8-2*hbcm*p5p6*p5p8))
2318      . +4*p6p8*(8*fb3*fmc-8*fb3*hbcm+8*fb4*fmb-hbcm))
2319       b(18)=ccc*(w16*(8*p5p6*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*p3p6*(-fmb*
2320      . fmc-fmb*hbcm)+8*(-3*fmb*hbcm*p4p6+p2p3*p3p6+2*p2p3*p4p6-p3p5*
2321      . p3p6-2*p3p5*p4p6))+w12*(8*p3p6*(-fmb*fmc-fmc2)+8*(-p1p3*p3p6-2
2322      . *p1p3*p4p6))+32*(-fb4*p3p6-2*fb4*p4p6))
2323       b(19)=ccc*(4*w12*(2*hbcm*p1p3*p2p8-2*hbcm*p1p3*p5p8-2*hbcm*p1p8
2324      . *p2p3+2*hbcm*p1p8*p3p5+hbcm3*p1p8)+w16*(4*p5p8*(2*fmb*hbcm2+2*
2325      . fmc*hbcm2-3*hbcm3)+4*p2p8*(-2*fmb*hbcm2-2*fmc*hbcm2+3*hbcm3)+8
2326      . *(-fmb*hbcm2*p1p8-hbcm*p1p3*p2p8+hbcm*p1p3*p5p8+hbcm*p1p8*p2p3
2327      . -hbcm*p1p8*p3p5))+32*(fb3*hbcm*p1p8+fb3*hbcm*p2p8-fb3*hbcm*
2328      . p5p8))
2329       b(20)=ccc*(w16*(4*p5p8*(3*fmb*hbcm-3*fmc*hbcm+2*hbcm2)+4*p2p8*(
2330      . -3*fmb*hbcm+3*fmc*hbcm-2*hbcm2)+8*(-fmb*hbcm*p1p8+p1p8*p2p3-
2331      . p1p8*p3p5+2*p2p3*p2p8-2*p2p3*p5p8-2*p2p8*p3p5+2*p3p5*p5p8))+
2332      . w12*(4*p1p8*(fmb*hbcm+fmc*hbcm)+8*(-p1p3*p1p8-2*p1p3*p2p8+2*
2333      . p1p3*p5p8))+32*(-fb4*p1p8-2*fb4*p2p8+2*fb4*p5p8))
2334       b(22)=ccc*(4*w12*p1p3*(2*fmb-2*fmc-hbcm)+w16*(4*p3p5*(2*fmb-2*
2335      . fmc+3*hbcm)+4*p2p3*(-2*fmb+2*fmc-3*hbcm)+4*(-3*fmb*fmc*hbcm+2*
2336      . fmb*hbcm2+3*fmb2*hbcm+2*hbcm*p1p2-2*hbcm*p1p5-6*hbcm*p2p5))+16
2337      . *(fb3*fmc-fb3*hbcm+2*fb4*fmb-fb4*fmc))
2338       b(24)=ccc*(w12*(4*p1p3*(-fmb*hbcm-fmc*hbcm-2*hbcm2)+8*(2*p1p3*
2339      . p2p3-2*p1p3*p3p5+p1p3s2))+w16*(4*p3p5*(-3*fmb*hbcm+3*fmc*hbcm-
2340      . 2*hbcm2)+4*p2p3*(3*fmb*hbcm-3*fmc*hbcm+2*hbcm2)+4*(2*fmb*fmc*
2341      . hbcm2+2*fmb*hbcm*p1p3-3*fmb*hbcm3+2*fmb2*hbcm2+2*hbcm2*p1p2-2*
2342      . hbcm2*p1p5-4*hbcm2*p2p5-2*p1p3*p2p3+2*p1p3*p3p5+8*p2p3*p3p5-4*
2343      . p2p3s2-4*p3p5s2))+16*(-fb3*fmb*hbcm-fb3*fmc*hbcm-2*fb4*hbcm2+2
2344      . *fb4*p1p3+4*fb4*p2p3-4*fb4*p3p5))
2345       b(26)=ccc*(8*w12*(-fmb*p1p3*p3p6+fmc*hbcm2*p3p6-2*fmc*p2p3*p3p6
2346      . +2*fmc*p3p5*p3p6-hbcm*p1p3*p4p6)+w16*(8*(p3p6*p3p5)*(-fmb+2*
2347      . fmc)+8*(p3p6*p2p3)*(fmb-2*fmc)+8*p5p6*(fmb*hbcm2-fmc*hbcm2+
2348      . hbcm3)+8*p3p6*(fmb*fmc*hbcm-fmb2*hbcm)+8*(2*fmb*hbcm2*p4p6-3*
2349      . hbcm*p2p3*p4p6-2*hbcm*p2p3*p5p6+2*hbcm*p2p5*p3p6+3*hbcm*p3p5*
2350      . p4p6+2*hbcm*p3p5*p5p6))+(4*p3p6*(-8*fb4*fmb+hbcm)-32*fb3*hbcm*
2351      . p4p6))
2352       ans=ccc*(w12*(8*(p3p6*p1p8)*(-fmb*hbcm-fmc*hbcm)+8*(p6p8*p1p3)*
2353      . (fmb*hbcm+fmc*hbcm-hbcm2)+16*(p1p3*p2p8*p3p6-p1p3*p3p4*p6p8-
2354      . p1p3*p3p6*p5p8+p1p3s2*p6p8))+w16*(8*(p5p8*p3p6)*(-fmb*hbcm+fmc
2355      . *hbcm)+8*(p6p8*p3p5)*(-fmb*hbcm-fmc*hbcm-hbcm2)+8*(p3p6*p2p8)*
2356      . (fmb*hbcm-fmc*hbcm)+8*(p6p8*p2p3)*(fmb*hbcm+fmc*hbcm+hbcm2)+8*
2357      . p6p8*(-fmb*fmc*hbcm2-fmb*hbcm3-fmb2*hbcm2)+16*(fmb*hbcm*p1p3*
2358      . p6p8-fmb*hbcm*p3p4*p6p8+hbcm2*p2p5*p6p8-hbcm2*p2p8*p4p6-hbcm2*
2359      . p2p8*p5p6+hbcm2*p4p6*p5p8+hbcm2*p5p6*p5p8-p1p3*p2p3*p6p8+p1p3*
2360      . p3p5*p6p8-p2p3*p2p8*p3p6+p2p3*p3p4*p6p8+p2p3*p3p6*p5p8+p2p8*
2361      . p3p5*p3p6-p3p4*p3p5*p6p8-p3p5*p3p6*p5p8))+(8*p6p8*(4*fb3*fmb*
2362      . hbcm-4*fb4*fmc*hbcm-4*fb4*hbcm2+hbcm2)+64*(fb4*p1p3*p6p8+fb4*
2363      . p2p8*p3p6-fb4*p3p4*p6p8-fb4*p3p6*p5p8)))
2364       b(28)=ans
2365       b(31)=ccc*(16*w12*(-p1p3*p3p7*p6p8-p1p3*p4p7*p6p8-p1p3*p5p7*
2366      . p6p8)+16*w16*(-fmb*hbcm*p3p7*p6p8-fmb*hbcm*p4p7*p6p8-fmb*hbcm*
2367      . p5p7*p6p8+p2p3*p3p7*p6p8+p2p3*p4p7*p6p8+p2p3*p5p7*p6p8-p3p5*
2368      . p3p7*p6p8-p3p5*p4p7*p6p8-p3p5*p5p7*p6p8)+64*(-fb4*p3p7*p6p8-
2369      . fb4*p4p7*p6p8-fb4*p5p7*p6p8))
2370       do 200 n=1,32
2371          c(n,2)=c(n,2)+0.09245003270420485d0*b(n)
2372          c(n,3)=c(n,3)-0.02077659977796572d0*b(n)
2373 200   continue
2374       return
2375         end
2376
2377       subroutine amp14_3p1(cc)
2378       implicit double precision(a-h,o-z)
2379       implicit integer (i-n)
2380       dimension b(32)
2381 #include "inclcon.h"
2382 #include "inclppp.h"
2383 #include "inclamp.h"
2384       do 100 n=1,32
2385          b(n)=0.0d0
2386 100   continue
2387       ccc=cc/((-2*p2p5)*(2*ffmcfmb*p3p4+2*fmc2)*(2*ffmcfmb*p1p3-fmb2-
2388      . 2*fmc*hbcm+fmc2+hbcm2-2*p1p3))
2389       b(1)=ccc*(16*w13*(p3p6*p2p5)*(-fmc+hbcm)+16*hbcm*p2p5*p4p6*w1)
2390       b(2)=ccc*(w1*(16*(p5p7*p3p6)*(-fmc*hbcm-fmc2)+16*(-3*fmc*hbcm*
2391      . p4p6*p5p7-p3p4*p3p6*p5p7-2*p3p4*p4p6*p5p7))+w13*(32*(p5p7*p4p6
2392      . )*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p5p7*p3p6)*(-fmb*fmc-fmc2+
2393      . hbcm2)+16*(-p1p3*p3p6*p5p7-2*p1p3*p4p6*p5p7))+64*(fb4*p3p6*
2394      . p5p7+2*fb4*p4p6*p5p7))
2395       b(3)=ccc*(w13*(32*(p5p8*p5p7*p3p6)*(-fmc+hbcm)+32*(p5p7*p3p6*
2396      . p2p8)*(fmc-hbcm)+16*(p5p7*p3p6*p1p8)*(fmc-hbcm)+16*(p6p8*p5p7*
2397      . p1p3)*(fmb-fmc)+16*(p6p8*p5p7)*(-fmb*hbcm2+fmb2*hbcm+fmc*hbcm2
2398      . -fmc2*hbcm)-16*hbcm*p1p8*p4p6*p5p7)+w1*(16*(p5p7*p4p8*p3p6)*(
2399      . fmc+hbcm)+16*(p6p8*p5p7*p3p4)*(fmb-fmc-2*hbcm)+16*(p6p8*p5p7)*
2400      . (fmb*fmc*hbcm-3*fmc2*hbcm)+16*(2*hbcm*p1p4*p5p7*p6p8-2*hbcm*
2401      . p1p8*p4p6*p5p7-2*hbcm*p2p8*p4p6*p5p7+3*hbcm*p4p6*p4p8*p5p7+2*
2402      . hbcm*p4p6*p5p7*p5p8))+8*(p6p8*p5p7)*(-8*fb4*fmb+8*fb4*fmc-hbcm
2403      . ))
2404       b(4)=ccc*(w13*(8*(p5p7*p1p3)*(fmb-3*fmc+2*hbcm)+8*p5p7*(-fmb*
2405      . hbcm2+2*fmb2*hbcm+3*fmc*hbcm2-2*fmc2*hbcm-hbcm3))+w1*(8*(p5p7*
2406      . p3p4)*(fmb-3*fmc-2*hbcm)+8*p5p7*(fmb*fmc*hbcm-5*fmc2*hbcm)+16*
2407      . hbcm*p1p4*p5p7)+32*p5p7*(fb3*fmc-fb4*fmb+2*fb4*fmc))
2408       b(5)=ccc*(w1*(8*(p5p7*p4p8)*(fmb*hbcm+fmc*hbcm)+16*(-2*fmc*hbcm
2409      . *p1p8*p5p7-3*fmc*hbcm*p2p8*p5p7+3*fmc*hbcm*p5p7*p5p8-p1p8*p3p4
2410      . *p5p7-2*p2p8*p3p4*p5p7+2*p3p4*p5p7*p5p8))+w13*(32*(p5p8*p5p7)*
2411      . (fmb*hbcm+fmc*hbcm-hbcm2)+32*(p5p7*p2p8)*(-fmb*hbcm-fmc*hbcm+
2412      . hbcm2)+8*(p5p7*p1p8)*(-3*fmb*hbcm-3*fmc*hbcm+2*hbcm2)+16*(-
2413      . p1p3*p1p8*p5p7-2*p1p3*p2p8*p5p7+2*p1p3*p5p7*p5p8))+64*(fb4*
2414      . p1p8*p5p7+2*fb4*p2p8*p5p7-2*fb4*p5p7*p5p8))
2415       b(6)=ccc*(w13*(32*(p5p7*p3p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(
2416      . p5p7*p2p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p5p7*p1p3)*(3*fmb*hbcm
2417      . +3*fmc*hbcm-4*hbcm2)+8*p5p7*(2*fmb*fmc*hbcm2-3*fmb*hbcm3+fmb2*
2418      . hbcm2-3*fmc*hbcm3+fmc2*hbcm2+2*hbcm4+2*p1p3s2)+32*(p1p3*p2p3*
2419      . p5p7-p1p3*p3p5*p5p7))+w1*(8*(p5p7*p3p4)*(-fmb*hbcm-fmc*hbcm-4*
2420      . hbcm2)+8*p5p7*(-fmb*fmc*hbcm2-4*fmc*hbcm3-fmc2*hbcm2)+16*(2*
2421      . fmc*hbcm*p1p3*p5p7+3*fmc*hbcm*p2p3*p5p7-3*fmc*hbcm*p3p5*p5p7+
2422      . hbcm2*p1p4*p5p7+p1p3*p3p4*p5p7+2*p2p3*p3p4*p5p7-2*p3p4*p3p5*
2423      . p5p7))+(32*p5p7*(fb3*fmb*hbcm+fb3*fmc*hbcm+2*fb4*hbcm2)+64*(-
2424      . fb4*p1p3*p5p7-2*fb4*p2p3*p5p7+2*fb4*p3p5*p5p7)))
2425       b(7)=ccc*(w1*(8*(p5p7*p4p8)*(fmb*hbcm2-3*fmc*hbcm2+4*hbcm3)+16*
2426      . (fmc*hbcm2*p1p8*p5p7+2*fmc*hbcm2*p2p8*p5p7-2*fmc*hbcm2*p5p7*
2427      . p5p8-2*hbcm*p1p3*p4p8*p5p7+2*hbcm*p1p8*p3p4*p5p7-3*hbcm*p2p3*
2428      . p4p8*p5p7+3*hbcm*p2p8*p3p4*p5p7-3*hbcm*p3p4*p5p7*p5p8+3*hbcm*
2429      . p3p5*p4p8*p5p7))+w13*(16*(p5p8*p5p7)*(fmb*hbcm2+fmc*hbcm2-
2430      . hbcm3)+16*(p5p7*p2p8)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+8*(p5p7*
2431      . p1p8)*(-fmb*hbcm2-fmc*hbcm2)+16*(-hbcm*p1p3*p2p8*p5p7+hbcm*
2432      . p1p3*p5p7*p5p8+hbcm*p1p8*p2p3*p5p7-hbcm*p1p8*p3p5*p5p7))+64*(-
2433      . fb3*hbcm*p2p8*p5p7+fb3*hbcm*p5p7*p5p8))
2434       b(8)=ccc*(16*w1*(-2*fmc*hbcm*p1p2*p6p8+2*fmc*hbcm*p2p3*p6p8+2*
2435      . fmc*hbcm*p2p4*p6p8-p1p2*p3p4*p6p8+p2p3*p3p4*p6p8+p2p4*p3p4*
2436      . p6p8)+w13*(16*(p6p8*p2p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p8*
2437      . p2p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p8*p1p2)*(-fmb*hbcm-fmc*
2438      . hbcm+hbcm2)+16*(-p1p2*p1p3*p6p8+p1p3*p2p3*p6p8+p1p3*p2p4*p6p8)
2439      . )+64*(fb4*p1p2*p6p8-fb4*p2p3*p6p8-fb4*p2p4*p6p8))
2440       b(9)=ccc*(16*w1*(2*fmc*hbcm*p2p5*p3p6+hbcm2*p2p5*p4p6+p2p5*p3p4
2441      . *p3p6)+w13*(16*(p3p6*p2p5)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*p1p3*
2442      . p2p5*p3p6)-64*fb4*p2p5*p3p6)
2443       b(10)=16*ccc*w1*(fmc*hbcm2*p2p5*p6p8+2*hbcm*p2p5*p3p4*p6p8-2*
2444      . hbcm*p2p5*p3p6*p4p8)
2445       b(11)=ccc*(w13*(32*(p5p7*p3p6*p3p5)*(fmc-hbcm)+32*(p5p7*p3p6*
2446      . p2p3)*(-fmc+hbcm)+16*(p5p7*p3p6*p1p3)*(-fmb+hbcm)+16*(p5p7*
2447      . p4p6)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+16*(p5p7*p3p6)*(fmb*hbcm2-
2448      . fmb2*hbcm+fmc2*hbcm-hbcm3)+16*hbcm*p1p3*p4p6*p5p7)+w1*(16*(
2449      . p5p7*p3p6*p3p4)*(-fmb+hbcm)+16*(p5p7*p3p6)*(-fmb*fmc*hbcm-fmc*
2450      . hbcm2+3*fmc2*hbcm)+16*(2*hbcm*p1p3*p4p6*p5p7-2*hbcm*p1p4*p3p6*
2451      . p5p7+2*hbcm*p2p3*p4p6*p5p7-3*hbcm*p3p4*p4p6*p5p7-2*hbcm*p3p5*
2452      . p4p6*p5p7-2*hbcm3*p4p6*p5p7))+(8*(p5p7*p3p6)*(-8*fb3*fmc+8*fb3
2453      . *hbcm+8*fb4*fmb-8*fb4*fmc+hbcm)+64*fb3*hbcm*p4p6*p5p7))
2454       ans2=w1*(16*(p5p7*p4p8*p3p6)*(-fmb*hbcm-fmc*hbcm-hbcm2)+16*(
2455      . p6p8*p5p7*p3p4)*(fmb*hbcm+fmc*hbcm+2*hbcm2)+16*(p6p8*p5p7)*(
2456      . fmb*fmc*hbcm2+2*fmc*hbcm3+fmc2*hbcm2)+32*(-fmc*hbcm*p1p3*p5p7*
2457      . p6p8+fmc*hbcm*p1p8*p3p6*p5p7-2*fmc*hbcm*p2p3*p3p7*p6p8-2*fmc*
2458      . hbcm*p2p3*p4p7*p6p8-4*fmc*hbcm*p2p3*p5p7*p6p8-2*fmc*hbcm*p2p5*
2459      . p3p6*p7p8+2*fmc*hbcm*p2p5*p3p7*p6p8+2*fmc*hbcm*p2p8*p3p6*p5p7+
2460      . 2*fmc*hbcm*p3p5*p5p7*p6p8-2*fmc*hbcm*p3p6*p5p7*p5p8-hbcm2*p1p4
2461      . *p5p7*p6p8+hbcm2*p1p8*p4p6*p5p7-hbcm2*p2p5*p4p6*p7p8+hbcm2*
2462      . p2p8*p4p6*p5p7-hbcm2*p4p6*p4p8*p5p7-hbcm2*p4p6*p5p7*p5p8-p2p3*
2463      . p3p4*p3p7*p6p8-p2p3*p3p4*p4p7*p6p8-2*p2p3*p3p4*p5p7*p6p8-p2p5*
2464      . p3p4*p3p6*p7p8+p2p5*p3p4*p3p7*p6p8+p2p8*p3p4*p3p6*p5p7+p3p4*
2465      . p3p5*p5p7*p6p8-p3p4*p3p6*p5p7*p5p8))+(16*(p6p8*p5p7)*(-4*fb3*
2466      . fmb*hbcm-4*fb4*fmc*hbcm+hbcm2)+128*(fb4*p2p3*p3p7*p6p8+fb4*
2467      . p2p3*p4p7*p6p8+2*fb4*p2p3*p5p7*p6p8+fb4*p2p5*p3p6*p7p8-fb4*
2468      . p2p5*p3p7*p6p8-fb4*p2p8*p3p6*p5p7-fb4*p3p5*p5p7*p6p8+fb4*p3p6*
2469      . p5p7*p5p8))
2470       ans1=w13*(16*(p6p8*p5p7)*(fmb*hbcm3+fmc*hbcm3-hbcm4)+32*(p5p8*
2471      . p5p7*p3p6)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p6p8*p5p7*p3p5)*(fmb
2472      . *hbcm+fmc*hbcm-hbcm2)+32*(p5p7*p3p6*p2p8)*(fmb*hbcm+fmc*hbcm-
2473      . hbcm2)+32*(p6p8*p3p7*p2p5)*(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p7p8*
2474      . p3p6*p2p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)+64*(p6p8*p5p7*p2p3)*(-
2475      . fmb*hbcm-fmc*hbcm+hbcm2)+32*(p6p8*p4p7*p2p3)*(-fmb*hbcm-fmc*
2476      . hbcm+hbcm2)+32*(p6p8*p3p7*p2p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*
2477      . (p5p7*p3p6*p1p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p8*p5p7*p1p3)
2478      . *(-fmb*hbcm-fmc*hbcm+2*hbcm2)+32*(-p1p3*p2p3*p3p7*p6p8-p1p3*
2479      . p2p3*p4p7*p6p8-2*p1p3*p2p3*p5p7*p6p8-p1p3*p2p5*p3p6*p7p8+p1p3*
2480      . p2p5*p3p7*p6p8+p1p3*p2p8*p3p6*p5p7+p1p3*p3p5*p5p7*p6p8-p1p3*
2481      . p3p6*p5p7*p5p8))+ans2
2482       ans=ccc*ans1
2483       b(12)=ans
2484       b(13)=8*ccc*(-hbcm*p1p8*p2p5*w13+3*hbcm*p2p5*p4p8*w1)
2485       b(14)=ccc*(8*w1*(3*fmc*hbcm*p2p5+2*p2p5*p3p4)+w13*(16*p2p5*(fmb
2486      . *hbcm+fmc*hbcm-hbcm2)+16*p1p3*p2p5)-64*fb4*p2p5)
2487       b(15)=16*ccc*hbcm2*p2p5*p4p8*w1
2488       b(16)=ccc*(8*w1*(-2*fmc*hbcm2*p2p5-3*hbcm*p2p5*p3p4)+w13*(8*
2489      . p2p5*(fmb*hbcm2+fmc*hbcm2-hbcm3)+8*hbcm*p1p3*p2p5)+32*fb3*hbcm
2490      . *p2p5)
2491       b(17)=ccc*(w13*(16*(p5p8*p3p6)*(fmc-hbcm)+16*(p3p6*p2p8)*(-fmc+
2492      . hbcm)+8*(p3p6*p1p8)*(-fmc+hbcm)+8*(p6p8*p1p3)*(-fmb+fmc)+8*
2493      . p6p8*(fmb*hbcm2-fmb2*hbcm-fmc*hbcm2+fmc2*hbcm)+8*hbcm*p1p8*
2494      . p4p6)+w1*(8*(p4p8*p3p6)*(-fmc-hbcm)+8*(p6p8*p3p4)*(-fmb+fmc+2*
2495      . hbcm)+8*p6p8*(-fmb*fmc*hbcm+3*fmc2*hbcm)+8*(-2*hbcm*p1p4*p6p8+
2496      . 2*hbcm*p1p8*p4p6+2*hbcm*p2p8*p4p6-3*hbcm*p4p6*p4p8-2*hbcm*p4p6
2497      . *p5p8))+4*p6p8*(8*fb4*fmb-8*fb4*fmc+hbcm))
2498       b(18)=ccc*(w1*(8*p3p6*(fmc*hbcm+fmc2)+8*(3*fmc*hbcm*p4p6+p3p4*
2499      . p3p6+2*p3p4*p4p6))+w13*(16*p4p6*(fmb*hbcm+fmc*hbcm-hbcm2)+8*
2500      . p3p6*(fmb*fmc+fmc2-hbcm2)+8*(p1p3*p3p6+2*p1p3*p4p6))+32*(-fb4*
2501      . p3p6-2*fb4*p4p6))
2502       b(19)=ccc*(w1*(4*p4p8*(-fmb*hbcm2+3*fmc*hbcm2-4*hbcm3)+8*(-fmc*
2503      . hbcm2*p1p8-2*fmc*hbcm2*p2p8+2*fmc*hbcm2*p5p8+2*hbcm*p1p3*p4p8-
2504      . 2*hbcm*p1p8*p3p4+3*hbcm*p2p3*p4p8-3*hbcm*p2p8*p3p4+3*hbcm*p3p4
2505      . *p5p8-3*hbcm*p3p5*p4p8))+w13*(8*p5p8*(-fmb*hbcm2-fmc*hbcm2+
2506      . hbcm3)+8*p2p8*(fmb*hbcm2+fmc*hbcm2-hbcm3)+4*p1p8*(fmb*hbcm2+
2507      . fmc*hbcm2)+8*(hbcm*p1p3*p2p8-hbcm*p1p3*p5p8-hbcm*p1p8*p2p3+
2508      . hbcm*p1p8*p3p5))+32*(fb3*hbcm*p2p8-fb3*hbcm*p5p8))
2509       b(20)=ccc*(w1*(4*p4p8*(-fmb*hbcm-fmc*hbcm)+8*(2*fmc*hbcm*p1p8+3
2510      . *fmc*hbcm*p2p8-3*fmc*hbcm*p5p8+p1p8*p3p4+2*p2p8*p3p4-2*p3p4*
2511      . p5p8))+w13*(16*p5p8*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*p2p8*(fmb*
2512      . hbcm+fmc*hbcm-hbcm2)+4*p1p8*(3*fmb*hbcm+3*fmc*hbcm-2*hbcm2)+8*
2513      . (p1p3*p1p8+2*p1p3*p2p8-2*p1p3*p5p8))+32*(-fb4*p1p8-2*fb4*p2p8+
2514      . 2*fb4*p5p8))
2515       b(22)=ccc*(w13*(4*p1p3*(-fmb+3*fmc-2*hbcm)+4*(fmb*hbcm2-2*fmb2*
2516      . hbcm-3*fmc*hbcm2+2*fmc2*hbcm+hbcm3))+w1*(4*p3p4*(-fmb+3*fmc+2*
2517      . hbcm)+4*(-fmb*fmc*hbcm+5*fmc2*hbcm-2*hbcm*p1p4))+16*(-fb3*fmc+
2518      . fb4*fmb-2*fb4*fmc))
2519       b(24)=ccc*(w13*(16*p3p5*(fmb*hbcm+fmc*hbcm-hbcm2)+16*p2p3*(-fmb
2520      . *hbcm-fmc*hbcm+hbcm2)+4*p1p3*(-3*fmb*hbcm-3*fmc*hbcm+4*hbcm2)+
2521      . 4*(-2*fmb*fmc*hbcm2+3*fmb*hbcm3-fmb2*hbcm2+3*fmc*hbcm3-fmc2*
2522      . hbcm2-2*hbcm4-4*p1p3*p2p3+4*p1p3*p3p5-2*p1p3s2))+w1*(4*p3p4*(
2523      . fmb*hbcm+fmc*hbcm+4*hbcm2)+4*(fmb*fmc*hbcm2-4*fmc*hbcm*p1p3-6*
2524      . fmc*hbcm*p2p3+6*fmc*hbcm*p3p5+4*fmc*hbcm3+fmc2*hbcm2-2*hbcm2*
2525      . p1p4-2*p1p3*p3p4-4*p2p3*p3p4+4*p3p4*p3p5))+16*(-fb3*fmb*hbcm-
2526      . fb3*fmc*hbcm-2*fb4*hbcm2+2*fb4*p1p3+4*fb4*p2p3-4*fb4*p3p5))
2527       b(26)=ccc*(w13*(16*(p3p6*p3p5)*(-fmc+hbcm)+16*(p3p6*p2p3)*(fmc-
2528      . hbcm)+8*(p3p6*p1p3)*(fmb-hbcm)+8*p4p6*(-fmb*hbcm2-fmc*hbcm2+
2529      . hbcm3)+8*p3p6*(-fmb*hbcm2+fmb2*hbcm-fmc2*hbcm+hbcm3)-8*hbcm*
2530      . p1p3*p4p6)+w1*(8*(p3p6*p3p4)*(fmb-hbcm)+8*p3p6*(fmb*fmc*hbcm+
2531      . fmc*hbcm2-3*fmc2*hbcm)+8*(-2*hbcm*p1p3*p4p6+2*hbcm*p1p4*p3p6-2
2532      . *hbcm*p2p3*p4p6+3*hbcm*p3p4*p4p6+2*hbcm*p3p5*p4p6+2*hbcm3*p4p6
2533      . ))+(4*p3p6*(8*fb3*fmc-8*fb3*hbcm-8*fb4*fmb+8*fb4*fmc-hbcm)-32*
2534      . fb3*hbcm*p4p6))
2535       ans=ccc*(w13*(8*p6p8*(fmb*hbcm3+fmc*hbcm3-hbcm4-2*p1p3s2)+16*(
2536      . p5p8*p3p6)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p8*p3p4)*(fmb*hbcm+
2537      . fmc*hbcm-hbcm2)+16*(p3p6*p2p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(
2538      . p3p6*p1p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p6p8*p1p3)*(-fmb*hbcm
2539      . -fmc*hbcm+2*hbcm2)+16*(-p1p3*p2p8*p3p6+p1p3*p3p4*p6p8+p1p3*
2540      . p3p6*p5p8))+w1*(8*(p4p8*p3p6)*(fmb*hbcm+fmc*hbcm+hbcm2)+8*(
2541      . p6p8*p3p4)*(-fmb*hbcm+3*fmc*hbcm)+8*p6p8*(-fmb*fmc*hbcm2+2*fmc
2542      . *hbcm3-fmc2*hbcm2+2*p3p4s2)+16*(-fmc*hbcm*p1p3*p6p8-fmc*hbcm*
2543      . p1p8*p3p6-2*fmc*hbcm*p2p8*p3p6+2*fmc*hbcm*p3p6*p5p8+hbcm2*p1p4
2544      . *p6p8-hbcm2*p1p8*p4p6-hbcm2*p2p8*p4p6+hbcm2*p4p6*p4p8+hbcm2*
2545      . p4p6*p5p8-p1p3*p3p4*p6p8-p2p8*p3p4*p3p6+p3p4*p3p6*p5p8))+(8*
2546      . p6p8*(4*fb3*fmb*hbcm+4*fb4*fmc*hbcm-8*fb4*hbcm2-hbcm2)+64*(fb4
2547      . *p1p3*p6p8+fb4*p2p8*p3p6-fb4*p3p4*p6p8-fb4*p3p6*p5p8)))
2548       b(28)=ans
2549       b(31)=ccc*(16*w1*(2*fmc*hbcm*p3p7*p6p8+2*fmc*hbcm*p4p7*p6p8+2*
2550      . fmc*hbcm*p5p7*p6p8+p3p4*p3p7*p6p8+p3p4*p4p7*p6p8+p3p4*p5p7*
2551      . p6p8)+w13*(16*(p6p8*p5p7)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p8*
2552      . p4p7)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p8*p3p7)*(fmb*hbcm+fmc*
2553      . hbcm-hbcm2)+16*(p1p3*p3p7*p6p8+p1p3*p4p7*p6p8+p1p3*p5p7*p6p8))
2554      . +64*(-fb4*p3p7*p6p8-fb4*p4p7*p6p8-fb4*p5p7*p6p8))
2555       do 200 n=1,32
2556          c(n,2)=c(n,2)+0.09245003270420485d0*b(n)
2557          c(n,3)=c(n,3)-0.02077659977796572d0*b(n)
2558 200   continue
2559       return
2560         end
2561
2562       subroutine amp13_3p1(cc)
2563       implicit double precision(a-h,o-z)
2564       implicit integer (i-n)
2565       dimension b(32)
2566 #include "inclcon.h"
2567 #include "inclppp.h"
2568 #include "inclamp.h"
2569       do 100 n=1,32
2570          b(n)=0.0d0
2571 100   continue
2572       ccc=cc/((-2*p2p5)*(2*ffmcfmb*p3p4+2*fmc2)*(-fmb2+fmc2+hbcm2+2*
2573      . p3p4))
2574       b(3)=ccc*(w1*(16*(p6p8*p5p7)*(fmb*fmc*hbcm-fmc2*hbcm)-16*hbcm*
2575      . p3p4*p5p7*p6p8)-64*fb3*hbcm*p5p7*p6p8)
2576       b(4)=ccc*(w1*(8*p5p7*(fmb*fmc*hbcm-fmc2*hbcm)-8*hbcm*p3p4*p5p7)
2577      . -32*fb3*hbcm*p5p7)
2578       b(5)=8*ccc*w1*(p5p7*p4p8)*(fmb*hbcm-fmc*hbcm)
2579       b(6)=ccc*(w1*(8*(p5p7*p3p4)*(-fmb*hbcm+fmc*hbcm)+8*fmc*hbcm3*
2580      . p5p7)+32*p5p7*(-fb3*fmb*hbcm-fb3*fmc*hbcm))
2581       b(7)=8*ccc*(p5p7*p4p8)*(8*fb3*hbcm-hbcm3*w1)
2582       b(11)=ccc*(w1*(16*(p5p7*p3p6)*(-fmb*fmc*hbcm+fmc2*hbcm)+16*hbcm
2583      . *p3p4*p3p6*p5p7)+64*fb3*hbcm*p3p6*p5p7)
2584       b(12)=ccc*(w1*(16*(p5p7*p4p8*p3p6)*(-fmb*hbcm+fmc*hbcm)+16*(
2585      . p6p8*p5p7*p3p4)*(fmb*hbcm-fmc*hbcm)-16*fmc*hbcm3*p5p7*p6p8)+64
2586      . *(p6p8*p5p7)*(fb3*fmb*hbcm+fb3*fmc*hbcm))
2587       b(17)=ccc*(w1*(8*p6p8*(-fmb*fmc*hbcm+fmc2*hbcm)+8*hbcm*p3p4*
2588      . p6p8)+32*fb3*hbcm*p6p8)
2589       b(19)=4*ccc*p4p8*(-8*fb3*hbcm+hbcm3*w1)
2590       b(20)=4*ccc*w1*p4p8*(-fmb*hbcm+fmc*hbcm)
2591       b(22)=ccc*(4*w1*(-fmb*fmc*hbcm+fmc2*hbcm+hbcm*p3p4)+16*fb3*hbcm
2592      . )
2593       b(24)=ccc*(w1*(4*p3p4*(fmb*hbcm-fmc*hbcm)-4*fmc*hbcm3)+16*(fb3*
2594      . fmb*hbcm+fb3*fmc*hbcm))
2595       b(26)=ccc*(w1*(8*p3p6*(fmb*fmc*hbcm-fmc2*hbcm)-8*hbcm*p3p4*p3p6
2596      . )-32*fb3*hbcm*p3p6)
2597       b(28)=ccc*(w1*(8*(p4p8*p3p6)*(fmb*hbcm-fmc*hbcm)+8*(p6p8*p3p4)*
2598      . (-fmb*hbcm+fmc*hbcm)+8*fmc*hbcm3*p6p8)+32*p6p8*(-fb3*fmb*hbcm-
2599      . fb3*fmc*hbcm))
2600       do 200 n=1,32
2601          c(n,2)=c(n,2)-0.7396002616336388d0*b(n)
2602          c(n,3)=c(n,3)+0.1662127982237257d0*b(n)
2603 200   continue
2604       return
2605         end
2606
2607       subroutine amp12_3p1(cc)
2608       implicit double precision(a-h,o-z)
2609       implicit integer (i-n)
2610       dimension b(32)
2611 #include "inclcon.h"
2612 #include "inclppp.h"
2613 #include "inclamp.h"
2614       do 100 n=1,32
2615          b(n)=0.0d0
2616 100   continue
2617       ccc=cc/((4*ffmcfmb*p1p5*p2p3)*(2*ffmcfmb*p1p3-2*ffmcfmb*p3p5+
2618      . fmb2-2*fmc*hbcm+fmc2+hbcm2-2*p1p3-2*p1p5+2*p3p5))
2619       b(1)=ccc*(16*w15*(-hbcm*p1p2*p3p6-hbcm*p1p2*p4p6-hbcm*p1p2*p5p6
2620      . +hbcm*p2p5*p3p6+hbcm*p2p5*p4p6+hbcm*p2p5*p5p6)+(32*p5p6*(-fb3*
2621      . fmc-fb4*fmc)+32*p4p6*(-fb3*fmc-fb4*fmc)+32*p3p6*(-fb3*fmc-fb4*
2622      . fmc)))
2623       b(2)=ccc*(16*w7*(-2*p2p3*p2p4*p6p7-p2p3s2*p6p7)+w15*(16*(p6p7*
2624      . p2p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p6p7*p1p2)*(fmb*hbcm+fmc*
2625      . hbcm-hbcm2)+16*(fmb*fmc*p3p6*p3p7+fmb*fmc*p3p7*p4p6+fmb*fmc*
2626      . p3p7*p5p6-fmb*hbcm*p2p3*p6p7-3*fmb*hbcm*p2p4*p6p7+p1p3*p2p3*
2627      . p6p7+2*p1p3*p2p4*p6p7-p2p3*p3p5*p6p7-2*p2p4*p3p5*p6p7))+(32*
2628      . p6p7*(fb3*fmb*fmc+fb3*fmc2+fb4*fmb*fmc+fb4*fmc2)+64*(-fb4*p2p3
2629      . *p6p7-2*fb4*p2p4*p6p7)))
2630       ans2=(64*(p6p7*p5p8)*(fb3*fmc+fb4*fmc)+64*(p6p8*p5p7)*(-fb3*fmc
2631      . -fb4*fmc)+8*(p6p8*p3p7)*(-8*fb3*fmc-hbcm)+64*(p6p7*p2p8)*(-fb3
2632      . *fmc-fb4*fmb)+64*(p6p7*p1p8)*(-fb3*fmc-fb4*fmc)+8*(hbcm*p3p6*
2633      . p7p8+hbcm*p4p6*p7p8+hbcm*p5p6*p7p8))
2634       ans1=w7*(16*(p6p7*p2p8*p2p3)*(-fmb+fmc)+16*(2*fmc*p1p2*p3p7*
2635      . p6p8-fmc*p2p3*p3p7*p6p8-2*fmc*p2p5*p3p7*p6p8+fmc*p2p8*p3p6*
2636      . p3p7+fmc*p2p8*p3p7*p4p6+fmc*p2p8*p3p7*p5p6+hbcm*p1p2*p2p8*p6p7
2637      . -hbcm*p2p5*p2p8*p6p7))+w15*(16*(p6p7*p3p5*p2p8)*(-fmb+fmc-2*
2638      . hbcm)+16*(p6p7*p2p8*p1p3)*(fmb-fmc+2*hbcm)+16*(p6p8*p3p7)*(fmb
2639      . *fmc2-fmb2*fmc)+16*(p6p7*p2p8)*(2*fmb*fmc*hbcm-fmb*hbcm2-2*
2640      . fmb2*hbcm)+16*(fmc*p1p3*p3p7*p6p8+2*fmc*p1p5*p3p7*p6p8-fmc*
2641      . p1p8*p3p6*p3p7-fmc*p1p8*p3p7*p4p6-fmc*p1p8*p3p7*p5p6-fmc*p3p5*
2642      . p3p7*p6p8+fmc*p3p6*p3p7*p5p8+fmc*p3p7*p4p6*p5p8+fmc*p3p7*p5p6*
2643      . p5p8+hbcm*p1p2*p1p8*p6p7-2*hbcm*p1p2*p2p8*p6p7+2*hbcm*p1p2*
2644      . p3p6*p7p8-2*hbcm*p1p2*p3p7*p6p8+2*hbcm*p1p2*p4p6*p7p8+2*hbcm*
2645      . p1p2*p5p6*p7p8-hbcm*p1p2*p5p8*p6p7+4*hbcm*p1p5*p2p8*p6p7-2*
2646      . hbcm*p1p8*p2p3*p6p7-hbcm*p1p8*p2p5*p6p7-2*hbcm*p2p3*p5p7*p6p8+
2647      . 2*hbcm*p2p3*p5p8*p6p7+2*hbcm*p2p5*p2p8*p6p7-2*hbcm*p2p5*p3p6*
2648      . p7p8+2*hbcm*p2p5*p3p7*p6p8-2*hbcm*p2p5*p4p6*p7p8-2*hbcm*p2p5*
2649      . p5p6*p7p8+hbcm*p2p5*p5p8*p6p7+2*hbcm*p2p8*p3p6*p5p7+2*hbcm*
2650      . p2p8*p4p6*p5p7+2*hbcm*p2p8*p5p6*p5p7))+ans2
2651       ans=ccc*ans1
2652       b(3)=ans
2653       b(4)=ccc*(8*w7*(2*fmc*p1p2*p3p7-fmc*p2p3*p3p7-2*fmc*p2p5*p3p7)+
2654      . w15*(8*p3p7*(fmb*fmc2-fmb2*fmc)+8*(fmc*p1p3*p3p7+2*fmc*p1p5*
2655      . p3p7-fmc*p3p5*p3p7-2*hbcm*p1p2*p3p7-2*hbcm*p2p3*p5p7+2*hbcm*
2656      . p2p5*p3p7))+(32*p5p7*(-fb3*fmc-fb4*fmc)+4*p3p7*(-8*fb3*fmc-
2657      . hbcm)))
2658       b(5)=ccc*(w7*(8*(p3p7*p2p8)*(fmb*fmc+fmc2)+16*(-p1p2*p2p3*p7p8+
2659      . p2p3*p2p5*p7p8-p2p3*p2p8*p5p7))+w15*(16*(p5p7*p2p8)*(-fmb*hbcm
2660      . +fmc*hbcm-hbcm2)+16*(p7p8*p2p5)*(fmb*hbcm-fmc*hbcm+hbcm2)+16*(
2661      . p7p8*p1p2)*(-fmb*hbcm+fmc*hbcm-hbcm2)+8*(p5p8*p3p7)*(-fmb*fmc+
2662      . fmc2)+16*(p3p7*p2p8)*(fmb*fmc-fmb*hbcm)+8*(p3p7*p1p8)*(fmb*fmc
2663      . -fmc2)+16*(fmb*hbcm*p2p3*p7p8+p1p2*p1p3*p7p8-p1p2*p3p5*p7p8-
2664      . p1p3*p2p5*p7p8+p1p3*p2p8*p5p7+p2p5*p3p5*p7p8-p2p8*p3p5*p5p7))+
2665      . (4*p7p8*(8*fb3*fmc*hbcm+8*fb4*fmc*hbcm+fmb*hbcm+fmc*hbcm-2*
2666      . hbcm2)+64*(-fb4*p1p2*p7p8+fb4*p2p5*p7p8-fb4*p2p8*p5p7)))
2667       b(6)=ccc*(w7*(8*(p3p7*p2p3)*(-fmb*fmc-fmc2)+16*(p1p2*p2p3*p3p7-
2668      . p2p3*p2p5*p3p7+p2p3s2*p5p7))+w15*(16*(p3p7*p2p5)*(-fmb*hbcm+
2669      . fmc*hbcm)+16*(p5p7*p2p3)*(fmb*hbcm-fmc*hbcm)+16*(p3p7*p1p2)*(
2670      . fmb*hbcm-fmc*hbcm)+8*(p3p7*p3p5)*(fmb*fmc-fmc2)+8*(p3p7*p1p3)*
2671      . (-fmb*fmc+fmc2)+8*(fmb*fmc*hbcm2*p3p7-2*fmb*fmc*p2p3*p3p7-2*
2672      . p1p2*p1p3*p3p7+2*p1p2*p3p5*p3p7-2*p1p3*p2p3*p5p7+2*p1p3*p2p5*
2673      . p3p7+2*p2p3*p3p5*p5p7-2*p2p5*p3p5*p3p7))+(4*p3p7*(-8*fb3*fmb*
2674      . fmc-8*fb3*fmc2-fmb*hbcm-fmc*hbcm)+64*(fb4*p1p2*p3p7+fb4*p2p3*
2675      . p5p7-fb4*p2p5*p3p7)))
2676       ans=ccc*(8*w7*(fmc*hbcm2*p2p8*p3p7-2*fmc*p1p3*p2p8*p3p7+2*fmc*
2677      . p1p8*p2p3*p3p7-2*fmc*p2p3*p3p7*p5p8+2*fmc*p2p8*p3p5*p3p7)+w15*
2678      . (16*(p5p7*p2p8)*(-fmc*hbcm2+hbcm3)+16*(p7p8*p2p5)*(fmc*hbcm2-
2679      . hbcm3)+16*(p7p8*p1p2)*(-fmc*hbcm2+hbcm3)+16*(p3p7*p2p8)*(-fmb*
2680      . fmc*hbcm+fmb2*hbcm)+16*(p7p8*p2p3)*(fmb*fmc*hbcm-fmb2*hbcm)+8*
2681      . (-fmc*hbcm2*p1p8*p3p7+fmc*hbcm2*p3p7*p5p8-2*fmc*p1p3*p2p8*p3p7
2682      . +2*fmc*p1p8*p2p3*p3p7-2*fmc*p2p3*p3p7*p5p8+2*fmc*p2p8*p3p5*
2683      . p3p7-4*hbcm*p1p2*p2p3*p7p8+4*hbcm*p1p2*p2p8*p3p7+4*hbcm*p1p5*
2684      . p2p3*p7p8-4*hbcm*p1p5*p2p8*p3p7+4*hbcm*p2p3*p2p5*p7p8-4*hbcm*
2685      . p2p5*p2p8*p3p7))+(8*(p5p8*p3p7)*(-8*fb3*fmc-hbcm)+8*(p3p7*p2p8
2686      . )*(8*fb3*fmc+hbcm)+8*(p3p7*p1p8)*(8*fb3*fmc+hbcm)+4*p7p8*(-8*
2687      . fb3*fmb*fmc*hbcm+8*fb3*fmc2*hbcm-8*fb4*fmb*fmc*hbcm+8*fb4*fmc2
2688      . *hbcm+2*fmb*hbcm2-2*fmc*hbcm2+hbcm3)+8*(-hbcm*p1p3*p7p8-hbcm*
2689      . p2p3*p7p8+hbcm*p3p5*p7p8)))
2690       b(7)=ans
2691       b(8)=ccc*(16*w7*(-2*p2p3*p2p4*p6p8-p2p3*p2p8*p3p6-p2p3*p2p8*
2692      . p4p6-p2p3*p2p8*p5p6-p2p3s2*p6p8)+w15*(16*(p6p8*p2p5)*(-fmb*
2693      . hbcm-fmc*hbcm+hbcm2)+16*(p6p8*p1p2)*(fmb*hbcm+fmc*hbcm-hbcm2)+
2694      . 16*(-fmb*hbcm*p2p3*p6p8-3*fmb*hbcm*p2p4*p6p8-2*fmb*hbcm*p2p8*
2695      . p3p6-2*fmb*hbcm*p2p8*p4p6-2*fmb*hbcm*p2p8*p5p6+p1p3*p2p3*p6p8+
2696      . 2*p1p3*p2p4*p6p8+p1p3*p2p8*p3p6+p1p3*p2p8*p4p6+p1p3*p2p8*p5p6-
2697      . p2p3*p3p5*p6p8-2*p2p4*p3p5*p6p8-p2p8*p3p5*p3p6-p2p8*p3p5*p4p6-
2698      . p2p8*p3p5*p5p6))+(32*p6p8*(fb3*fmb*fmc+fb3*fmc2+fb4*fmb*fmc+
2699      . fb4*fmc2)+64*(-fb4*p2p3*p6p8-2*fb4*p2p4*p6p8-fb4*p2p8*p3p6-fb4
2700      . *p2p8*p4p6-fb4*p2p8*p5p6)))
2701       b(9)=ccc*(16*w7*(2*p1p2*p2p3*p3p6-2*p2p3*p2p5*p3p6+p2p3s2*p4p6+
2702      . p2p3s2*p5p6)+w15*(16*(p3p6*p2p5)*(-2*fmb*hbcm+fmc*hbcm)+16*(
2703      . p3p6*p1p2)*(2*fmb*hbcm-fmc*hbcm)+16*(2*fmb*hbcm*p2p3*p4p6+2*
2704      . fmb*hbcm*p2p3*p5p6-hbcm2*p1p2*p4p6-hbcm2*p1p2*p5p6+hbcm2*p2p5*
2705      . p4p6+hbcm2*p2p5*p5p6-2*p1p2*p1p3*p3p6+2*p1p2*p3p5*p3p6-p1p3*
2706      . p2p3*p4p6-p1p3*p2p3*p5p6+2*p1p3*p2p5*p3p6+p2p3*p3p5*p4p6+p2p3*
2707      . p3p5*p5p6-2*p2p5*p3p5*p3p6))+(32*p3p6*(-fb3*fmb*fmc-fb3*fmc2-
2708      . fb4*fmb*fmc-fb4*fmc2)+64*(2*fb4*p1p2*p3p6+fb4*p2p3*p4p6+fb4*
2709      . p2p3*p5p6-2*fb4*p2p5*p3p6)))
2710       ans2=(64*(p5p8*p3p6)*(-fb3*fmc-fb4*fmc)+64*(p6p8*p3p5)*(fb3*fmc
2711      . +fb4*fmc)+64*(p3p6*p2p8)*(fb3*fmc+fb4*fmb)+64*(p6p8*p2p3)*(-
2712      . fb3*fmc-fb4*fmb)+64*(p3p6*p1p8)*(fb3*fmc+fb4*fmc)+64*(p6p8*
2713      . p1p3)*(-fb3*fmc-fb4*fmc)+32*p6p8*(fb3*fmc*hbcm2+fb4*fmc*hbcm2)
2714      . +64*(fb3*hbcm*p1p2*p6p8-fb3*hbcm*p2p5*p6p8))
2715       ans1=w7*(16*p6p8*(-fmb*p2p3s2+fmc*p2p3s2)+16*(p3p6*p2p8*p2p3)*(
2716      . fmb-fmc)+16*(hbcm*p1p2*p2p3*p6p8-hbcm*p1p2*p2p8*p3p6-hbcm*p2p3
2717      . *p2p5*p6p8+hbcm*p2p5*p2p8*p3p6))+w15*(16*(p3p6*p3p5*p2p8)*(fmb
2718      . -fmc)+16*(p6p8*p3p5*p2p3)*(-fmb+fmc)+16*(p3p6*p2p8*p1p3)*(-fmb
2719      . +fmc)+16*(p6p8*p2p3*p1p3)*(fmb-fmc)+16*(p6p8*p2p5)*(fmb*hbcm2+
2720      . fmc*hbcm2-hbcm3)+16*(p6p8*p1p2)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+
2721      . 32*(p3p6*p2p8)*(-fmb*fmc*hbcm+fmb2*hbcm)+32*(p6p8*p2p3)*(fmb*
2722      . fmc*hbcm-fmb2*hbcm)+16*(-fmb*hbcm2*p2p8*p4p6-fmb*hbcm2*p2p8*
2723      . p5p6+hbcm*p1p2*p1p3*p6p8-hbcm*p1p2*p1p8*p3p6-2*hbcm*p1p2*p2p3*
2724      . p6p8+2*hbcm*p1p2*p2p8*p3p6-hbcm*p1p2*p3p5*p6p8+hbcm*p1p2*p3p6*
2725      . p5p8-hbcm*p1p3*p2p5*p6p8+2*hbcm*p1p3*p2p8*p4p6+2*hbcm*p1p3*
2726      . p2p8*p5p6+4*hbcm*p1p5*p2p3*p6p8-4*hbcm*p1p5*p2p8*p3p6-2*hbcm*
2727      . p1p8*p2p3*p4p6-2*hbcm*p1p8*p2p3*p5p6+hbcm*p1p8*p2p5*p3p6+2*
2728      . hbcm*p2p3*p2p5*p6p8+2*hbcm*p2p3*p4p6*p5p8+2*hbcm*p2p3*p5p6*
2729      . p5p8-2*hbcm*p2p5*p2p8*p3p6+hbcm*p2p5*p3p5*p6p8-hbcm*p2p5*p3p6*
2730      . p5p8-2*hbcm*p2p8*p3p5*p4p6-2*hbcm*p2p8*p3p5*p5p6))+ans2
2731       ans=ccc*ans1
2732       b(10)=ans
2733       ans2=(8*(p5p6*p3p7)*(-8*fb3*fmc-hbcm)+8*(p4p6*p3p7)*(-8*fb3*fmc
2734      . -hbcm)+64*(p5p7*p3p6)*(fb3*fmc+fb4*fmc)+64*(p6p7*p3p5)*(-fb3*
2735      . fmc-fb4*fmc)+64*(p6p7*p2p3)*(fb3*fmc+fb4*fmb)+64*(p6p7*p1p3)*(
2736      . fb3*fmc+fb4*fmc)+32*p6p7*(-fb3*fmc*hbcm2-fb4*fmc*hbcm2)+64*(-
2737      . fb3*hbcm*p1p2*p6p7+fb3*hbcm*p2p5*p6p7))
2738       ans1=w7*(16*p6p7*(fmb*p2p3s2-fmc*p2p3s2)+16*(-2*fmc*p1p2*p3p6*
2739      . p3p7-fmc*p2p3*p3p7*p4p6-fmc*p2p3*p3p7*p5p6+2*fmc*p2p5*p3p6*
2740      . p3p7-hbcm*p1p2*p2p3*p6p7+hbcm*p2p3*p2p5*p6p7))+w15*(16*(p6p7*
2741      . p3p5*p2p3)*(fmb-fmc)+16*(p6p7*p2p3*p1p3)*(-fmb+fmc)+16*(p6p7*
2742      . p2p5)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+16*(p6p7*p1p2)*(fmb*hbcm2+
2743      . fmc*hbcm2-hbcm3)+16*(p3p7*p3p6)*(-fmb*fmc2+fmb2*fmc)+32*(p6p7*
2744      . p2p3)*(-fmb*fmc*hbcm+fmb2*hbcm)+16*(fmc*p1p3*p3p7*p4p6+fmc*
2745      . p1p3*p3p7*p5p6-2*fmc*p1p5*p3p6*p3p7-fmc*p3p5*p3p7*p4p6-fmc*
2746      . p3p5*p3p7*p5p6-hbcm*p1p2*p1p3*p6p7+2*hbcm*p1p2*p2p3*p6p7+hbcm*
2747      . p1p2*p3p5*p6p7-2*hbcm*p1p2*p3p7*p4p6-2*hbcm*p1p2*p3p7*p5p6+
2748      . hbcm*p1p3*p2p5*p6p7-4*hbcm*p1p5*p2p3*p6p7-2*hbcm*p2p3*p2p5*
2749      . p6p7-2*hbcm*p2p3*p4p6*p5p7-2*hbcm*p2p3*p5p6*p5p7-hbcm*p2p5*
2750      . p3p5*p6p7+2*hbcm*p2p5*p3p7*p4p6+2*hbcm*p2p5*p3p7*p5p6))+ans2
2751       ans=ccc*ans1
2752       b(11)=ans
2753       ans4=16*(-fmb*fmc*hbcm2*p3p7*p6p8-2*fmb*hbcm*p1p2*p3p6*p7p8+4*
2754      . fmb*hbcm*p2p3*p2p8*p6p7-2*fmb*hbcm*p2p3*p4p6*p7p8+6*fmb*hbcm*
2755      . p2p3*p4p7*p6p8-6*fmb*hbcm*p2p3*p4p8*p6p7-2*fmb*hbcm*p2p3*p5p6*
2756      . p7p8+2*fmb*hbcm*p2p5*p3p6*p7p8+4*fmb*hbcm*p2p8*p3p6*p3p7-2*fmb
2757      . *hbcm*p2p8*p3p6*p5p7+6*fmb*hbcm*p2p8*p3p7*p4p6+6*fmb*hbcm*p2p8
2758      . *p3p7*p5p6+2*hbcm2*p1p5*p2p8*p6p7+2*p1p2*p1p3*p3p6*p7p8-2*p1p2
2759      . *p1p3*p3p7*p6p8-2*p1p2*p3p5*p3p6*p7p8+2*p1p2*p3p5*p3p7*p6p8-2*
2760      . p1p3*p1p8*p2p3*p6p7-2*p1p3*p2p3*p2p8*p6p7-2*p1p3*p2p3*p3p7*
2761      . p6p8+2*p1p3*p2p3*p4p6*p7p8-4*p1p3*p2p3*p4p7*p6p8+4*p1p3*p2p3*
2762      . p4p8*p6p7+2*p1p3*p2p3*p5p6*p7p8-2*p1p3*p2p3*p5p7*p6p8+2*p1p3*
2763      . p2p3*p5p8*p6p7-2*p1p3*p2p5*p3p6*p7p8+2*p1p3*p2p5*p3p7*p6p8-4*
2764      . p1p3*p2p8*p3p5*p6p7-2*p1p3*p2p8*p3p6*p3p7+2*p1p3*p2p8*p3p6*
2765      . p5p7-4*p1p3*p2p8*p3p7*p4p6-4*p1p3*p2p8*p3p7*p5p6+2*p1p8*p2p3*
2766      . p3p5*p6p7+2*p2p3*p2p8*p3p5*p6p7+2*p2p3*p3p5*p3p7*p6p8-2*p2p3*
2767      . p3p5*p4p6*p7p8+4*p2p3*p3p5*p4p7*p6p8-4*p2p3*p3p5*p4p8*p6p7-2*
2768      . p2p3*p3p5*p5p6*p7p8+2*p2p3*p3p5*p5p7*p6p8-2*p2p3*p3p5*p5p8*
2769      . p6p7+2*p2p5*p3p5*p3p6*p7p8-2*p2p5*p3p5*p3p7*p6p8+2*p2p8*p3p5*
2770      . p3p6*p3p7-2*p2p8*p3p5*p3p6*p5p7+4*p2p8*p3p5*p3p7*p4p6+4*p2p8*
2771      . p3p5*p3p7*p5p6)
2772       ans3=16*(p6p7*p3p5*p2p8)*(fmb*hbcm-fmc*hbcm+hbcm2)+32*(p6p8*
2773      . p3p7*p2p5)*(-fmb*hbcm-hbcm2)+32*(p6p7*p5p8*p2p3)*(-2*fmb*hbcm-
2774      . fmc*hbcm)+32*(p6p8*p5p7*p2p3)*(2*fmb*hbcm+fmc*hbcm)+32*(p6p7*
2775      . p2p3*p1p8)*(2*fmb*hbcm+fmc*hbcm)+16*(p6p7*p2p8*p1p3)*(-fmb*
2776      . hbcm+fmc*hbcm-hbcm2)+32*(p6p8*p3p7*p1p2)*(fmb*hbcm+hbcm2)+16*(
2777      . p5p8*p3p7*p3p6)*(fmb*fmc-fmc2)+16*(p6p8*p3p7*p3p5)*(-fmb*fmc+
2778      . fmc2)+32*(p6p8*p3p7*p2p3)*(fmb*fmc+fmb*hbcm)+16*(p3p7*p3p6*
2779      . p1p8)*(-fmb*fmc+fmc2)+16*(p6p8*p3p7*p1p3)*(fmb*fmc-fmc2)+16*(
2780      . p6p7*p2p8)*(-fmb*fmc*hbcm2+fmb*hbcm3-fmb2*hbcm2+2*p1p3s2+2*
2781      . p3p5s2)+ans4
2782       ans2=w15*ans3
2783       ans5=(8*(p6p8*p3p7)*(-8*fb4*fmb*fmc-8*fb4*fmc2+fmb*hbcm+fmc*
2784      . hbcm)+16*(p7p8*p5p6)*(4*fb3*fmc*hbcm+4*fb4*fmc*hbcm-hbcm2)+16*
2785      . (p7p8*p4p6)*(4*fb3*fmc*hbcm+4*fb4*fmc*hbcm-hbcm2)+64*(p6p7*
2786      . p2p8)*(fb3*fmb*hbcm+fb3*fmc*hbcm+fb4*hbcm2)+8*(p7p8*p3p6)*(8*
2787      . fb3*fmb*fmc+8*fb3*fmc2+8*fb4*fmb*fmc+8*fb4*fmc2-fmb*hbcm-fmc*
2788      . hbcm)+128*(-fb4*p1p2*p3p6*p7p8+fb4*p1p2*p3p7*p6p8-fb4*p1p3*
2789      . p2p8*p6p7+fb4*p1p8*p2p3*p6p7+fb4*p2p3*p2p8*p6p7+fb4*p2p3*p3p7*
2790      . p6p8-fb4*p2p3*p4p6*p7p8+2*fb4*p2p3*p4p7*p6p8-2*fb4*p2p3*p4p8*
2791      . p6p7-fb4*p2p3*p5p6*p7p8+fb4*p2p3*p5p7*p6p8-fb4*p2p3*p5p8*p6p7+
2792      . fb4*p2p5*p3p6*p7p8-fb4*p2p5*p3p7*p6p8+fb4*p2p8*p3p5*p6p7+fb4*
2793      . p2p8*p3p6*p3p7-fb4*p2p8*p3p6*p5p7+2*fb4*p2p8*p3p7*p4p6+2*fb4*
2794      . p2p8*p3p7*p5p6))
2795       ans1=w7*(16*(p6p7*p2p8*p2p3)*(fmb*hbcm+fmc*hbcm+hbcm2)+16*(p3p7
2796      . *p3p6*p2p8)*(fmb*fmc+fmc2)+16*(p6p8*p3p7*p2p3)*(fmb*fmc+fmc2)+
2797      . 32*(-p1p2*p2p3*p3p6*p7p8+p1p2*p2p3*p3p7*p6p8-p1p3*p2p3*p2p8*
2798      . p6p7+p1p8*p2p3s2*p6p7+p2p3*p2p5*p3p6*p7p8-p2p3*p2p5*p3p7*p6p8+
2799      . p2p3*p2p8*p3p5*p6p7+p2p3*p2p8*p3p6*p3p7-p2p3*p2p8*p3p6*p5p7+2*
2800      . p2p3*p2p8*p3p7*p4p6+2*p2p3*p2p8*p3p7*p5p6+p2p3s2*p2p8*p6p7+
2801      . p2p3s2*p3p7*p6p8-p2p3s2*p4p6*p7p8+2*p2p3s2*p4p7*p6p8-2*p2p3s2*
2802      . p4p8*p6p7-p2p3s2*p5p6*p7p8+p2p3s2*p5p7*p6p8-p2p3s2*p5p8*p6p7))
2803      . +ans2+ans5
2804       ans=ccc*ans1
2805       b(12)=ans
2806       b(13)=ccc*(w7*(8*(p2p8*p2p3)*(-fmb+fmc)+8*(hbcm*p1p2*p2p8-hbcm*
2807      . p2p5*p2p8))+w15*(8*(p3p5*p2p8)*(-fmb+fmc-2*hbcm)+8*(p2p8*p1p3)
2808      . *(fmb-fmc+2*hbcm)+8*p2p8*(2*fmb*fmc*hbcm-fmb*hbcm2-2*fmb2*hbcm
2809      . )+8*(hbcm*p1p2*p1p8-2*hbcm*p1p2*p2p8-hbcm*p1p2*p5p8+4*hbcm*
2810      . p1p5*p2p8-2*hbcm*p1p8*p2p3-hbcm*p1p8*p2p5+2*hbcm*p2p3*p5p8+2*
2811      . hbcm*p2p5*p2p8+hbcm*p2p5*p5p8))+(32*p5p8*(fb3*fmc+fb4*fmc)+32*
2812      . p2p8*(-fb3*fmc-fb4*fmb)+32*p1p8*(-fb3*fmc-fb4*fmc)))
2813       b(14)=ccc*(8*w7*(2*p1p2*p2p3-2*p2p3*p2p5-p2p3s2)+w15*(8*p2p5*(-
2814      . 2*fmb*hbcm+fmc*hbcm-hbcm2)+8*p1p2*(2*fmb*hbcm-fmc*hbcm+hbcm2)+
2815      . 8*(-2*fmb*hbcm*p2p3-2*p1p2*p1p3+2*p1p2*p3p5+p1p3*p2p3+2*p1p3*
2816      . p2p5-p2p3*p3p5-2*p2p5*p3p5))+16*(-fb3*fmb*fmc-fb3*fmc2-fb4*fmb
2817      . *fmc-fb4*fmc2+4*fb4*p1p2-2*fb4*p2p3-4*fb4*p2p5))
2818       b(15)=ccc*(8*w7*(hbcm2*p2p3*p2p8-2*p1p3*p2p3*p2p8+2*p1p8*p2p3s2
2819      . +2*p2p3*p2p8*p3p5-2*p2p3s2*p5p8)+w15*(8*(p3p5*p2p8)*(2*fmb*
2820      . hbcm-2*fmc*hbcm+hbcm2)+16*(p5p8*p2p3)*(-fmb*hbcm+fmc*hbcm)+16*
2821      . (p2p3*p1p8)*(fmb*hbcm-fmc*hbcm)+8*(p2p8*p1p3)*(-2*fmb*hbcm+2*
2822      . fmc*hbcm-hbcm2)+8*p2p8*(-fmb*fmc*hbcm2+2*fmb*hbcm3-fmb2*hbcm2+
2823      . 2*p1p3s2+2*p3p5s2)+16*(-hbcm2*p1p2*p2p8+hbcm2*p1p5*p2p8+hbcm2*
2824      . p2p5*p2p8-p1p3*p1p8*p2p3+p1p3*p2p3*p5p8-2*p1p3*p2p8*p3p5+p1p8*
2825      . p2p3*p3p5-p2p3*p3p5*p5p8))+32*(fb4*hbcm2*p2p8-2*fb4*p1p3*p2p8+
2826      . 2*fb4*p1p8*p2p3-2*fb4*p2p3*p5p8+2*fb4*p2p8*p3p5))
2827       b(16)=ccc*(8*w7*(fmb*p2p3s2-fmc*p2p3s2-hbcm*p1p2*p2p3+hbcm*p2p3
2828      . *p2p5)+w15*(8*(p3p5*p2p3)*(fmb-fmc)+8*(p2p3*p1p3)*(-fmb+fmc)+8
2829      . *p2p5*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+8*p1p2*(fmb*hbcm2+fmc*hbcm2
2830      . -hbcm3)+16*p2p3*(-fmb*fmc*hbcm+fmb2*hbcm)+8*(-hbcm*p1p2*p1p3+2
2831      . *hbcm*p1p2*p2p3+hbcm*p1p2*p3p5+hbcm*p1p3*p2p5-4*hbcm*p1p5*p2p3
2832      . -2*hbcm*p2p3*p2p5-hbcm*p2p5*p3p5))+(32*p3p5*(-fb3*fmc-fb4*fmc)
2833      . +32*p2p3*(fb3*fmc+fb4*fmb)+32*p1p3*(fb3*fmc+fb4*fmc)+16*(-fb3*
2834      . fmc*hbcm2-2*fb3*hbcm*p1p2+2*fb3*hbcm*p2p5-fb4*fmc*hbcm2)))
2835       b(17)=ccc*(w7*(8*(p6p8*p2p3)*(2*fmb-2*fmc-hbcm)+8*(hbcm*p2p8*
2836      . p3p6+hbcm*p2p8*p4p6+hbcm*p2p8*p5p6))+w15*(8*(p6p8*p3p5)*(2*fmb
2837      . -2*fmc+3*hbcm)+8*(p6p8*p1p3)*(-2*fmb+2*fmc-3*hbcm)+8*p6p8*(-3*
2838      . fmb*fmc*hbcm+2*fmb*hbcm2+3*fmb2*hbcm)+8*(2*hbcm*p1p2*p6p8-6*
2839      . hbcm*p1p5*p6p8+3*hbcm*p1p8*p3p6+3*hbcm*p1p8*p4p6+3*hbcm*p1p8*
2840      . p5p6-2*hbcm*p2p5*p6p8-3*hbcm*p3p6*p5p8-3*hbcm*p4p6*p5p8-3*hbcm
2841      . *p5p6*p5p8))+32*p6p8*(fb3*fmc-fb3*hbcm+2*fb4*fmb-fb4*fmc))
2842       b(18)=ccc*(16*w7*(-p2p3*p3p6-p2p3*p4p6-p2p3*p5p6)+8*w15*(-3*fmb
2843      . *hbcm*p3p6-3*fmb*hbcm*p4p6-3*fmb*hbcm*p5p6+2*p1p3*p3p6+2*p1p3*
2844      . p4p6+2*p1p3*p5p6-2*p3p5*p3p6-2*p3p5*p4p6-2*p3p5*p5p6)+64*(-fb4
2845      . *p3p6-fb4*p4p6-fb4*p5p6))
2846       b(19)=ccc*(4*w7*(-2*hbcm*p1p3*p2p8+2*hbcm*p1p8*p2p3-2*hbcm*p2p3
2847      . *p5p8+2*hbcm*p2p8*p3p5+hbcm3*p2p8)+w15*(4*p5p8*(2*fmb*hbcm2+2*
2848      . fmc*hbcm2-3*hbcm3)+4*p1p8*(-2*fmb*hbcm2-2*fmc*hbcm2+3*hbcm3)+8
2849      . *(-fmb*hbcm2*p2p8+hbcm*p1p3*p2p8-hbcm*p1p8*p2p3+hbcm*p2p3*p5p8
2850      . -hbcm*p2p8*p3p5))+32*(fb3*hbcm*p1p8+fb3*hbcm*p2p8-fb3*hbcm*
2851      . p5p8))
2852       b(20)=ccc*(w7*(4*p2p8*(fmb*hbcm+fmc*hbcm)+8*(-2*p1p8*p2p3-p2p3*
2853      . p2p8+2*p2p3*p5p8))+w15*(4*p5p8*(3*fmb*hbcm-3*fmc*hbcm+2*hbcm2)
2854      . +4*p1p8*(-3*fmb*hbcm+3*fmc*hbcm-2*hbcm2)+8*(-fmb*hbcm*p2p8+2*
2855      . p1p3*p1p8+p1p3*p2p8-2*p1p3*p5p8-2*p1p8*p3p5-p2p8*p3p5+2*p3p5*
2856      . p5p8))+32*(-2*fb4*p1p8-fb4*p2p8+2*fb4*p5p8))
2857       b(21)=ccc*(w7*(8*(p7p8*p2p3)*(fmb-fmc)+8*(-2*fmc*p1p8*p3p7-fmc*
2858      . p2p8*p3p7+2*fmc*p3p7*p5p8+hbcm*p2p8*p5p7))+w15*(8*(p5p8*p3p7)*
2859      . (fmc-2*hbcm)+8*(p3p7*p1p8)*(-fmc+2*hbcm)+8*(p7p8*p3p5)*(fmb-
2860      . fmc+2*hbcm)+8*(p7p8*p1p3)*(-fmb+fmc-2*hbcm)+8*p7p8*(-2*fmb*fmc
2861      . *hbcm+fmb*hbcm2+2*fmb2*hbcm)+8*(2*hbcm*p1p2*p7p8-4*hbcm*p1p5*
2862      . p7p8+hbcm*p1p8*p5p7-2*hbcm*p2p5*p7p8-hbcm*p5p7*p5p8))+4*p7p8*(
2863      . 8*fb4*fmb-8*fb4*fmc+hbcm))
2864       b(22)=ccc*(4*w7*p2p3*(2*fmb-2*fmc-hbcm)+w15*(4*p3p5*(2*fmb-2*
2865      . fmc+3*hbcm)+4*p1p3*(-2*fmb+2*fmc-3*hbcm)+4*(-3*fmb*fmc*hbcm+2*
2866      . fmb*hbcm2+3*fmb2*hbcm+2*hbcm*p1p2-6*hbcm*p1p5-2*hbcm*p2p5))+16
2867      . *(fb3*fmc-fb3*hbcm+2*fb4*fmb-fb4*fmc))
2868       b(23)=ccc*(w7*(8*p3p7*(-fmb*fmc-fmc2)+8*(p2p3*p3p7+2*p2p3*p5p7)
2869      . )+w15*(8*p5p7*(2*fmb*hbcm-fmc*hbcm+hbcm2)+8*p3p7*(-fmb*fmc+2*
2870      . fmb*hbcm)+8*(-p1p3*p3p7-2*p1p3*p5p7+p3p5*p3p7+2*p3p5*p5p7))+32
2871      . *(fb4*p3p7+2*fb4*p5p7))
2872       b(24)=ccc*(w7*(4*p2p3*(-fmb*hbcm-fmc*hbcm-2*hbcm2)+8*(2*p1p3*
2873      . p2p3-2*p2p3*p3p5+p2p3s2))+w15*(4*p3p5*(-3*fmb*hbcm+3*fmc*hbcm-
2874      . 2*hbcm2)+4*p1p3*(3*fmb*hbcm-3*fmc*hbcm+2*hbcm2)+4*(2*fmb*fmc*
2875      . hbcm2+2*fmb*hbcm*p2p3-3*fmb*hbcm3+2*fmb2*hbcm2+2*hbcm2*p1p2-4*
2876      . hbcm2*p1p5-2*hbcm2*p2p5-2*p1p3*p2p3+8*p1p3*p3p5-4*p1p3s2+2*
2877      . p2p3*p3p5-4*p3p5s2))+16*(-fb3*fmb*hbcm-fb3*fmc*hbcm-2*fb4*
2878      . hbcm2+4*fb4*p1p3+2*fb4*p2p3-4*fb4*p3p5))
2879       b(25)=ccc*(w7*(8*(p3p7*p2p3)*(-fmb+2*fmc)+8*(-fmc*hbcm2*p3p7+2*
2880      . fmc*p1p3*p3p7-2*fmc*p3p5*p3p7-hbcm*p2p3*p5p7))+w15*(8*p5p7*(
2881      . fmb*hbcm2+fmc*hbcm2-hbcm3)+16*p3p7*(fmb*fmc*hbcm-fmb2*hbcm)+8*
2882      . (fmb*p1p3*p3p7-fmb*p3p5*p3p7-2*hbcm*p1p2*p3p7-hbcm*p1p3*p5p7+4
2883      . *hbcm*p1p5*p3p7+2*hbcm*p2p5*p3p7+hbcm*p3p5*p5p7))+(4*p3p7*(-8*
2884      . fb3*fmc-8*fb4*fmb+8*fb4*fmc-hbcm)-32*fb3*hbcm*p5p7))
2885       b(26)=ccc*(w7*(16*(p3p6*p2p3)*(-fmb+fmc)+8*(-hbcm*p2p3*p4p6-
2886      . hbcm*p2p3*p5p6))+w15*(16*(p3p6*p3p5)*(-fmb+fmc)+16*(p3p6*p1p3)
2887      . *(fmb-fmc)+24*p3p6*(fmb*fmc*hbcm-fmb2*hbcm)+8*(2*fmb*hbcm2*
2888      . p4p6+2*fmb*hbcm2*p5p6-2*hbcm*p1p2*p3p6-3*hbcm*p1p3*p4p6-3*hbcm
2889      . *p1p3*p5p6+6*hbcm*p1p5*p3p6+2*hbcm*p2p5*p3p6+3*hbcm*p3p5*p4p6+
2890      . 3*hbcm*p3p5*p5p6))+(32*p3p6*(-fb3*fmc-2*fb4*fmb+fb4*fmc)+32*(-
2891      . fb3*hbcm*p4p6-fb3*hbcm*p5p6)))
2892       ans=ccc*(8*w7*(-hbcm2*p2p3*p7p8+2*p1p3*p2p3*p7p8-2*p1p8*p2p3*
2893      . p3p7-2*p2p3*p2p8*p3p7-2*p2p3*p3p5*p7p8+2*p2p3*p3p7*p5p8+2*
2894      . p2p3s2*p7p8)+w15*(16*(p5p8*p3p7)*(fmb*hbcm-fmc*hbcm)+8*(p7p8*
2895      . p3p5)*(-2*fmb*hbcm+2*fmc*hbcm-hbcm2)+16*(p3p7*p1p8)*(-fmb*hbcm
2896      . +fmc*hbcm)+8*(p7p8*p1p3)*(2*fmb*hbcm-2*fmc*hbcm+hbcm2)+8*p7p8*
2897      . (fmb*fmc*hbcm2-2*fmb*hbcm3+fmb2*hbcm2-2*p1p3s2-2*p3p5s2)+16*(
2898      . fmb*hbcm*p2p3*p7p8-fmb*hbcm*p2p8*p3p7+hbcm2*p1p2*p7p8-hbcm2*
2899      . p1p5*p7p8-hbcm2*p2p5*p7p8+p1p3*p1p8*p3p7-p1p3*p2p3*p7p8+p1p3*
2900      . p2p8*p3p7+2*p1p3*p3p5*p7p8-p1p3*p3p7*p5p8-p1p8*p3p5*p3p7+p2p3*
2901      . p3p5*p7p8-p2p8*p3p5*p3p7+p3p5*p3p7*p5p8))+(8*p7p8*(-4*fb3*fmc*
2902      . hbcm-4*fb4*fmc*hbcm-4*fb4*hbcm2+hbcm2)+64*(fb4*p1p3*p7p8-fb4*
2903      . p1p8*p3p7+fb4*p2p3*p7p8-fb4*p2p8*p3p7-fb4*p3p5*p7p8+fb4*p3p7*
2904      . p5p8)))
2905       b(27)=ans
2906       ans=ccc*(w7*(8*(p3p6*p2p8)*(-fmb*hbcm-fmc*hbcm)+8*(p6p8*p2p3)*(
2907      . fmb*hbcm+fmc*hbcm-2*hbcm2)+16*(2*p1p8*p2p3*p3p6+p2p3*p2p8*p3p6
2908      . -2*p2p3*p3p4*p6p8-2*p2p3*p3p6*p5p8+p2p3s2*p6p8))+w15*(24*(p5p8
2909      . *p3p6)*(-fmb*hbcm+fmc*hbcm)+8*(p6p8*p3p5)*(-3*fmb*hbcm-3*fmc*
2910      . hbcm-2*hbcm2)+24*(p3p6*p1p8)*(fmb*hbcm-fmc*hbcm)+8*(p6p8*p1p3)
2911      . *(3*fmb*hbcm+3*fmc*hbcm+2*hbcm2)+8*p6p8*(-2*fmb*fmc*hbcm2-3*
2912      . fmb*hbcm3-2*fmb2*hbcm2)+16*(2*fmb*hbcm*p2p3*p6p8+fmb*hbcm*p2p8
2913      . *p3p6-3*fmb*hbcm*p3p4*p6p8-hbcm2*p1p2*p6p8+2*hbcm2*p1p5*p6p8-
2914      . hbcm2*p1p8*p4p6-hbcm2*p1p8*p5p6+hbcm2*p2p5*p6p8+hbcm2*p4p6*
2915      . p5p8+hbcm2*p5p6*p5p8-2*p1p3*p1p8*p3p6-p1p3*p2p3*p6p8-p1p3*p2p8
2916      . *p3p6+2*p1p3*p3p4*p6p8+2*p1p3*p3p6*p5p8+2*p1p8*p3p5*p3p6+p2p3*
2917      . p3p5*p6p8+p2p8*p3p5*p3p6-2*p3p4*p3p5*p6p8-2*p3p5*p3p6*p5p8))+(
2918      . 32*p6p8*(fb3*fmb*hbcm+fb3*fmc*hbcm-2*fb4*hbcm2)+64*(2*fb4*p1p8
2919      . *p3p6+fb4*p2p3*p6p8+fb4*p2p8*p3p6-2*fb4*p3p4*p6p8-2*fb4*p3p6*
2920      . p5p8)))
2921       b(28)=ans
2922       ans=ccc*(w7*(8*(p6p7*p2p3)*(-fmb*hbcm-fmc*hbcm+2*hbcm2)+16*(
2923      . p3p7*p3p6)*(-fmb*fmc-fmc2)+16*(2*p2p3*p3p4*p6p7+2*p2p3*p3p6*
2924      . p5p7-p2p3*p3p7*p4p6-p2p3*p3p7*p5p6-p2p3s2*p6p7))+w15*(16*(p5p7
2925      . *p3p6)*(2*fmb*hbcm-fmc*hbcm)+8*(p6p7*p3p5)*(3*fmb*hbcm+3*fmc*
2926      . hbcm+2*hbcm2)+8*(p6p7*p1p3)*(-3*fmb*hbcm-3*fmc*hbcm-2*hbcm2)+8
2927      . *p6p7*(2*fmb*fmc*hbcm2+3*fmb*hbcm3+2*fmb2*hbcm2)+16*(-fmb*fmc*
2928      . p3p6*p3p7-2*fmb*hbcm*p2p3*p6p7+3*fmb*hbcm*p3p4*p6p7-2*fmb*hbcm
2929      . *p3p7*p4p6-2*fmb*hbcm*p3p7*p5p6+hbcm2*p1p2*p6p7-2*hbcm2*p1p5*
2930      . p6p7-hbcm2*p2p5*p6p7-hbcm2*p4p6*p5p7-hbcm2*p5p6*p5p7+p1p3*p2p3
2931      . *p6p7-2*p1p3*p3p4*p6p7-2*p1p3*p3p6*p5p7+p1p3*p3p7*p4p6+p1p3*
2932      . p3p7*p5p6-p2p3*p3p5*p6p7+2*p3p4*p3p5*p6p7+2*p3p5*p3p6*p5p7-
2933      . p3p5*p3p7*p4p6-p3p5*p3p7*p5p6))+(32*p6p7*(-fb3*fmb*hbcm-fb3*
2934      . fmc*hbcm+2*fb4*hbcm2)+64*(-fb4*p2p3*p6p7+2*fb4*p3p4*p6p7+2*fb4
2935      . *p3p6*p5p7-fb4*p3p7*p4p6-fb4*p3p7*p5p6)))
2936       b(29)=ans
2937       ans3=(8*(p7p8*p3p6)*(-8*fb4*fmb+8*fb4*fmc-hbcm)+8*(p6p8*p3p7)*(
2938      . 8*fb3*fmc+8*fb4*fmb-8*fb4*fmc+hbcm)+64*(fb3*hbcm*p1p8*p6p7+fb3
2939      . *hbcm*p2p8*p6p7+fb3*hbcm*p5p7*p6p8-fb3*hbcm*p5p8*p6p7))
2940       ans2=w15*(16*(p7p8*p3p6*p3p5)*(-fmb+fmc)+16*(p7p8*p3p6*p1p3)*(
2941      . fmb-fmc)+8*(p6p7*p5p8)*(2*fmb*hbcm2+2*fmc*hbcm2-3*hbcm3)+16*(
2942      . p6p8*p5p7)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+8*(p6p7*p1p8)*(-2*fmb*
2943      . hbcm2-2*fmc*hbcm2+3*hbcm3)+32*(p6p8*p3p7)*(-fmb*fmc*hbcm+fmb2*
2944      . hbcm)+32*(p7p8*p3p6)*(fmb*fmc*hbcm-fmb2*hbcm)+16*(-fmb*hbcm2*
2945      . p2p8*p6p7+fmb*hbcm2*p4p6*p7p8+fmb*hbcm2*p5p6*p7p8-fmb*p1p3*
2946      . p3p7*p6p8+fmb*p3p5*p3p7*p6p8+fmc*p1p8*p3p6*p3p7-fmc*p3p6*p3p7*
2947      . p5p8-2*hbcm*p1p2*p3p6*p7p8+2*hbcm*p1p2*p3p7*p6p8+hbcm*p1p3*
2948      . p2p8*p6p7-2*hbcm*p1p3*p4p6*p7p8-2*hbcm*p1p3*p5p6*p7p8+hbcm*
2949      . p1p3*p5p7*p6p8+4*hbcm*p1p5*p3p6*p7p8-4*hbcm*p1p5*p3p7*p6p8-
2950      . hbcm*p1p8*p2p3*p6p7-hbcm*p1p8*p3p6*p5p7+2*hbcm*p1p8*p3p7*p4p6+
2951      . 2*hbcm*p1p8*p3p7*p5p6+hbcm*p2p3*p5p8*p6p7+2*hbcm*p2p5*p3p6*
2952      . p7p8-2*hbcm*p2p5*p3p7*p6p8-hbcm*p2p8*p3p5*p6p7+2*hbcm*p3p5*
2953      . p4p6*p7p8+2*hbcm*p3p5*p5p6*p7p8-hbcm*p3p5*p5p7*p6p8+hbcm*p3p6*
2954      . p5p7*p5p8-2*hbcm*p3p7*p4p6*p5p8-2*hbcm*p3p7*p5p6*p5p8))+ans3
2955       ans1=w7*(16*(p6p8*p3p7*p2p3)*(fmb-2*fmc)+16*(p7p8*p3p6*p2p3)*(-
2956      . fmb+fmc)+8*(2*fmc*hbcm2*p3p7*p6p8-4*fmc*p1p3*p3p7*p6p8+4*fmc*
2957      . p1p8*p3p6*p3p7+2*fmc*p2p8*p3p6*p3p7+4*fmc*p3p5*p3p7*p6p8-4*fmc
2958      . *p3p6*p3p7*p5p8-2*hbcm*p1p3*p2p8*p6p7+2*hbcm*p1p8*p2p3*p6p7+2*
2959      . hbcm*p2p3*p5p7*p6p8-2*hbcm*p2p3*p5p8*p6p7+2*hbcm*p2p8*p3p5*
2960      . p6p7-2*hbcm*p2p8*p3p6*p5p7+hbcm3*p2p8*p6p7))+ans2
2961       ans=ccc*ans1
2962       b(30)=ans
2963       ans=ccc*(w7*(8*(p6p7*p2p8)*(-fmb*hbcm-fmc*hbcm)+16*(p6p8*p3p7)*
2964      . (-fmb*fmc-fmc2)+16*(-p2p3*p2p8*p6p7-p2p3*p3p6*p7p8-p2p3*p3p7*
2965      . p6p8-p2p3*p4p6*p7p8-2*p2p3*p4p7*p6p8+2*p2p3*p4p8*p6p7-p2p3*
2966      . p5p6*p7p8))+w15*(8*(p6p7*p5p8)*(3*fmb*hbcm+3*fmc*hbcm-2*hbcm2)
2967      . +16*(p6p8*p5p7)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p6p7*p1p8)*(-3*
2968      . fmb*hbcm-3*fmc*hbcm+2*hbcm2)+16*(p6p8*p3p7)*(-fmb*fmc-fmb*hbcm
2969      . )+16*(-2*fmb*hbcm*p2p8*p6p7-2*fmb*hbcm*p3p6*p7p8-2*fmb*hbcm*
2970      . p4p6*p7p8-3*fmb*hbcm*p4p7*p6p8+3*fmb*hbcm*p4p8*p6p7-2*fmb*hbcm
2971      . *p5p6*p7p8+p1p3*p2p8*p6p7+p1p3*p3p6*p7p8+p1p3*p3p7*p6p8+p1p3*
2972      . p4p6*p7p8+2*p1p3*p4p7*p6p8-2*p1p3*p4p8*p6p7+p1p3*p5p6*p7p8-
2973      . p2p8*p3p5*p6p7-p3p5*p3p6*p7p8-p3p5*p3p7*p6p8-p3p5*p4p6*p7p8-2*
2974      . p3p5*p4p7*p6p8+2*p3p5*p4p8*p6p7-p3p5*p5p6*p7p8))+64*(-fb4*p2p8
2975      . *p6p7-fb4*p3p6*p7p8-fb4*p3p7*p6p8-fb4*p4p6*p7p8-2*fb4*p4p7*
2976      . p6p8+2*fb4*p4p8*p6p7-fb4*p5p6*p7p8))
2977       b(31)=ans
2978       b(32)=ccc*(w7*(8*(p6p7*p2p3)*(2*fmb-2*fmc-hbcm)+16*(-fmc*p3p6*
2979      . p3p7-fmc*p3p7*p4p6-fmc*p3p7*p5p6))+w15*(8*(p6p7*p3p5)*(2*fmb-2
2980      . *fmc+3*hbcm)+8*(p6p7*p1p3)*(-2*fmb+2*fmc-3*hbcm)+8*p6p7*(-3*
2981      . fmb*fmc*hbcm+2*fmb*hbcm2+3*fmb2*hbcm)+16*(hbcm*p1p2*p6p7-3*
2982      . hbcm*p1p5*p6p7-hbcm*p2p5*p6p7-hbcm*p3p6*p5p7-hbcm*p4p6*p5p7-
2983      . hbcm*p5p6*p5p7))+32*p6p7*(fb3*fmc-fb3*hbcm+2*fb4*fmb-fb4*fmc))
2984       do 200 n=1,32
2985          c(n,1)=c(n,1)+0.09090909090909091d0*b(n)
2986          c(n,2)=c(n,2)-0.01680909685530997d0*b(n)
2987          c(n,3)=c(n,3)-0.02077659977796572d0*b(n)
2988 200   continue
2989       return
2990         end
2991
2992       subroutine amp11_3p1(cc)
2993       implicit double precision(a-h,o-z)
2994       implicit integer (i-n)
2995       dimension b(32)
2996 #include "inclcon.h"
2997 #include "inclppp.h"
2998 #include "inclamp.h"
2999       do 100 n=1,32
3000          b(n)=0.0d0
3001 100   continue
3002       ccc=cc/((-2*p1p5)*(2*ffmcfmb*p3p4+2*fmc2)*(2*ffmcfmb*p2p3-fmb2-
3003      . 2*fmc*hbcm+fmc2+hbcm2-2*p2p3))
3004       b(1)=ccc*(w8*(8*(p5p6*p2p3)*(-fmb-fmc+hbcm)+8*(p4p6*p2p3)*(-fmb
3005      . -fmc+hbcm)+8*(p3p6*p2p3)*(-fmb-fmc+hbcm))+w1*(8*(p5p6*p3p4)*(-
3006      . fmb-fmc+hbcm)+8*(p4p6*p3p4)*(-fmb-fmc+hbcm)+8*(p3p6*p3p4)*(-
3007      . fmb-fmc+hbcm)+16*p5p6*(-fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+16*
3008      . p4p6*(-fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+16*p3p6*(-fmb*fmc*
3009      . hbcm+fmc*hbcm2-fmc2*hbcm)+16*(hbcm*p2p4*p3p6+hbcm*p2p4*p4p6+
3010      . hbcm*p2p4*p5p6))+(32*p5p6*(fb3*fmc-fb3*hbcm+fb4*fmb)+32*p4p6*(
3011      . fb3*fmc-fb3*hbcm+fb4*fmb)+32*p3p6*(fb3*fmc-fb3*hbcm+fb4*fmb)))
3012       ans=ccc*(w8*(32*(p6p7*p2p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p6p7*
3013      . p2p3)*(2*fmb*fmc+fmb*hbcm+fmb2+fmc*hbcm+fmc2-2*hbcm2)+16*(2*
3014      . p2p3*p2p4*p6p7+p2p3s2*p6p7))+w1*(16*(p5p6*p3p7)*(fmc*hbcm-fmc2
3015      . )+16*(p4p6*p3p7)*(fmc*hbcm-fmc2)+16*(p3p7*p3p6)*(fmc*hbcm-fmc2
3016      . )+16*(p5p6*p4p7)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p4p7*p4p6)*(-
3017      . fmb*hbcm-fmc*hbcm+hbcm2)+16*(p4p7*p3p6)*(-fmb*hbcm-fmc*hbcm+
3018      . hbcm2)+16*(p6p7*p2p4)*(-fmb*hbcm+2*fmc*hbcm+hbcm2)+8*(p6p7*
3019      . p3p4)*(2*fmb*fmc+fmb*hbcm+fmb2+fmc*hbcm+fmc2-2*hbcm2)+8*p6p7*(
3020      . -fmb*fmc*hbcm2+4*fmb*fmc2*hbcm+2*fmb2*fmc*hbcm-fmc*hbcm3-fmc2*
3021      . hbcm2+2*fmc3*hbcm)+16*(2*fmc*hbcm*p2p3*p6p7+p2p3*p3p4*p6p7+2*
3022      . p2p4*p3p4*p6p7))+(32*p6p7*(-fb3*fmb*fmc+fb3*fmb*hbcm+fb3*fmc*
3023      . hbcm-fb3*fmc2-fb4*fmb*fmc-fb4*fmb2)+64*(-fb4*p2p3*p6p7-2*fb4*
3024      . p2p4*p6p7)))
3025       b(2)=ans
3026       ans4=16*(-2*fmc*p2p8*p3p4*p6p7+2*hbcm*p1p2*p4p7*p6p8-3*hbcm*
3027      . p1p2*p4p8*p6p7+2*hbcm*p1p8*p2p4*p6p7+hbcm*p2p3*p4p8*p6p7+2*
3028      . hbcm*p2p4*p2p8*p6p7+2*hbcm*p2p4*p5p7*p6p8-2*hbcm*p2p4*p5p8*
3029      . p6p7-2*hbcm*p2p5*p4p7*p6p8+3*hbcm*p2p5*p4p8*p6p7)
3030       ans3=16*(p5p6*p4p8*p3p7)*(fmc-hbcm)+16*(p4p8*p4p6*p3p7)*(fmc-
3031      . hbcm)+16*(p4p8*p3p7*p3p6)*(fmc-hbcm)+16*(p6p8*p4p7)*(fmb2*hbcm
3032      . +2*fmc*hbcm2-fmc2*hbcm-hbcm3)+16*(p6p7*p5p8*p3p4)*(fmb+fmc-
3033      . hbcm)+16*(p6p8*p5p7*p3p4)*(-fmb-fmc+hbcm)+16*(p7p8*p5p6*p3p4)*
3034      . (fmb+fmc-hbcm)+16*(p7p8*p4p6*p3p4)*(fmb+fmc-hbcm)+16*(p6p8*
3035      . p3p7*p3p4)*(-fmb-2*fmc+2*hbcm)+16*(p7p8*p3p6*p3p4)*(fmb+fmc-
3036      . hbcm)+16*(p6p7*p3p4*p1p8)*(-fmb-fmc+hbcm)+8*(p6p7*p4p8)*(fmb*
3037      . hbcm2-2*fmb2*hbcm-3*fmc*hbcm2+2*fmc2*hbcm+hbcm3)+32*(p6p7*p5p8
3038      . )*(fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+32*(p6p8*p5p7)*(-fmb*fmc*
3039      . hbcm+fmc*hbcm2-fmc2*hbcm)+16*(p7p8*p5p6)*(fmb*fmc*hbcm-fmc*
3040      . hbcm2+fmc2*hbcm)+16*(p7p8*p4p6)*(fmb*fmc*hbcm-fmc*hbcm2+fmc2*
3041      . hbcm)+16*(p6p8*p3p7)*(-2*fmb*fmc*hbcm+fmb*fmc2+fmc*hbcm2-fmc3)
3042      . +16*(p7p8*p3p6)*(fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+16*(p6p7*
3043      . p2p8)*(-fmb*fmc*hbcm+fmc*hbcm2-3*fmc2*hbcm)+32*(p6p7*p1p8)*(-
3044      . fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+ans4
3045       ans2=w1*ans3
3046       ans5=(8*(p6p8*p3p7)*(8*fb4*fmb+hbcm)+64*(p6p7*p5p8)*(-fb3*fmc+
3047      . fb3*hbcm-fb4*fmb)+64*(p6p8*p5p7)*(fb3*fmc-fb3*hbcm+fb4*fmb)+8*
3048      . (p7p8*p5p6)*(-8*fb3*fmc+8*fb3*hbcm-8*fb4*fmb-hbcm)+8*(p7p8*
3049      . p4p6)*(-8*fb3*fmc+8*fb3*hbcm-8*fb4*fmb-hbcm)+8*(p7p8*p3p6)*(-8
3050      . *fb3*fmc+8*fb3*hbcm-8*fb4*fmb-hbcm)+64*(p6p7*p2p8)*(fb3*fmc+
3051      . fb4*fmc)+64*(p6p7*p1p8)*(fb3*fmc-fb3*hbcm+fb4*fmb))
3052       ans1=w8*(16*(p5p6*p3p7*p2p8)*(-fmc+hbcm)+16*(p4p6*p3p7*p2p8)*(-
3053      . fmc+hbcm)+16*(p3p7*p3p6*p2p8)*(-fmc+hbcm)+32*(p6p8*p3p7*p2p5)*
3054      . (fmc-hbcm)+16*(p6p7*p2p8*p2p3)*(-2*fmc+hbcm)+32*(p6p8*p3p7*
3055      . p1p2)*(-fmc+hbcm)+16*(p6p7*p5p8*p2p3)*(fmb+fmc-hbcm)+16*(p6p8*
3056      . p5p7*p2p3)*(-fmb-fmc+hbcm)+16*(p7p8*p5p6*p2p3)*(fmb+fmc-hbcm)+
3057      . 16*(p7p8*p4p6*p2p3)*(fmb+fmc-hbcm)+16*(p7p8*p3p6*p2p3)*(fmb+
3058      . fmc-hbcm)+16*(p6p7*p2p3*p1p8)*(-fmb-fmc+hbcm)+8*(p6p7*p2p8)*(-
3059      . fmb*hbcm2+2*fmb2*hbcm+3*fmc*hbcm2-2*fmc2*hbcm-hbcm3)+16*(-fmb*
3060      . p2p3*p3p7*p6p8+hbcm*p1p2*p2p8*p6p7-hbcm*p2p5*p2p8*p6p7))+ans2+
3061      . ans5
3062       ans=ccc*ans1
3063       b(3)=ans
3064       b(4)=ccc*(w8*(16*(p3p7*p2p5)*(fmc-hbcm)+16*(p3p7*p1p2)*(-fmc+
3065      . hbcm)+8*(p5p7*p2p3)*(-fmb-fmc+hbcm)-8*fmb*p2p3*p3p7)+w1*(8*
3066      . p4p7*(fmb2*hbcm+2*fmc*hbcm2-fmc2*hbcm-hbcm3)+8*(p5p7*p3p4)*(-
3067      . fmb-fmc+hbcm)+8*(p3p7*p3p4)*(-fmb-2*fmc+2*hbcm)+16*p5p7*(-fmb*
3068      . fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+8*p3p7*(-2*fmb*fmc*hbcm+fmb*fmc2
3069      . +fmc*hbcm2-fmc3)+16*(hbcm*p1p2*p4p7+hbcm*p2p4*p5p7-hbcm*p2p5*
3070      . p4p7))+(4*p3p7*(8*fb4*fmb+hbcm)+32*p5p7*(fb3*fmc-fb3*hbcm+fb4*
3071      . fmb)))
3072       ans2=(4*p7p8*(-8*fb3*fmb*fmc+8*fb3*fmc*hbcm-8*fb3*fmc2-8*fb4*
3073      . fmb*fmc-8*fb4*fmb2-8*fb4*fmc*hbcm+8*fb4*hbcm2-fmb*hbcm-fmc*
3074      . hbcm+2*hbcm2)+64*(-fb4*p1p2*p7p8+fb4*p2p5*p7p8-fb4*p2p8*p5p7))
3075       ans1=w1*(16*(p5p8*p3p7)*(-fmc*hbcm+fmc2)+16*(p3p7*p2p8)*(fmc*
3076      . hbcm-fmc2)+16*(p3p7*p1p8)*(fmc*hbcm-fmc2)+16*(p5p7*p4p8)*(-fmb
3077      . *hbcm-fmc*hbcm+hbcm2)+16*(p5p8*p4p7)*(fmb*hbcm+fmc*hbcm-hbcm2)
3078      . +16*(p4p7*p2p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p4p7*p1p8)*(-
3079      . fmb*hbcm-fmc*hbcm+hbcm2)+8*p7p8*(2*fmb*fmc2*hbcm+fmb2*fmc*hbcm
3080      . -fmc*hbcm3+fmc3*hbcm)+8*(p4p8*p3p7)*(fmb*fmc-2*fmb*hbcm-2*fmc*
3081      . hbcm+fmc2+hbcm2)+8*(p7p8*p3p4)*(2*fmb*fmc+fmb2+fmc2-hbcm2)+16*
3082      . (fmc*hbcm*p1p2*p7p8-fmc*hbcm*p2p5*p7p8+fmc*hbcm*p2p8*p5p7+p1p2
3083      . *p3p4*p7p8-p2p5*p3p4*p7p8+p2p8*p3p4*p5p7))+w8*(16*(p5p7*p2p8)*
3084      . (fmb*hbcm+fmc*hbcm-hbcm2)+16*(p7p8*p2p5)*(-fmb*hbcm-fmc*hbcm+
3085      . hbcm2)+16*(p7p8*p1p2)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p3p7*p2p8)*
3086      . (-fmb*fmc+2*fmb*hbcm+2*fmc*hbcm-fmc2-hbcm2)+8*(p7p8*p2p3)*(2*
3087      . fmb*fmc-2*fmb*hbcm+fmb2-2*fmc*hbcm+fmc2+hbcm2)+16*(p1p2*p2p3*
3088      . p7p8-p2p3*p2p5*p7p8+p2p3*p2p8*p5p7))+ans2
3089       ans=ccc*ans1
3090       b(5)=ans
3091       ans2=(4*p3p7*(8*fb4*fmb*fmc+8*fb4*fmb2+fmb*hbcm+fmc*hbcm)+64*(
3092      . fb4*p1p2*p3p7+fb4*p2p3*p5p7-fb4*p2p5*p3p7))
3093       ans1=w8*(16*(p3p7*p2p5)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p5p7*p2p3
3094      . )*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p3p7*p1p2)*(-fmb*hbcm-fmc*
3095      . hbcm+hbcm2)+8*(p3p7*p2p3)*(-fmb*fmc-fmb2)+16*(-p1p2*p2p3*p3p7+
3096      . p2p3*p2p5*p3p7-p2p3s2*p5p7))+w1*(16*(p3p7*p3p5)*(fmc*hbcm-fmc2
3097      . )+16*(p3p7*p2p3)*(-fmc*hbcm+fmc2)+16*(p3p7*p1p3)*(-fmc*hbcm+
3098      . fmc2)+16*(p4p7*p3p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p5p7*p3p4)
3099      . *(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p4p7*p2p3)*(fmb*hbcm+fmc*hbcm-
3100      . hbcm2)+16*(p4p7*p1p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p3p7*p3p4)*
3101      . (-3*fmb*fmc+2*fmb*hbcm-fmb2+2*fmc*hbcm-2*fmc2)+8*p5p7*(fmb*fmc
3102      . *hbcm2-fmc*hbcm3+fmc2*hbcm2)+8*p4p7*(2*fmb*fmc*hbcm2-2*fmb*
3103      . hbcm3+fmb2*hbcm2-2*fmc*hbcm3+fmc2*hbcm2+hbcm4)+8*p3p7*(fmb*fmc
3104      . *hbcm2-2*fmb*fmc2*hbcm-fmb2*fmc*hbcm+fmc*hbcm3-fmc3*hbcm)+16*(
3105      . -fmc*hbcm*p1p2*p3p7-fmc*hbcm*p2p3*p5p7+fmc*hbcm*p2p5*p3p7+
3106      . hbcm2*p1p2*p4p7+hbcm2*p2p4*p5p7-hbcm2*p2p5*p4p7-p1p2*p3p4*p3p7
3107      . -p2p3*p3p4*p5p7+p2p5*p3p4*p3p7))+ans2
3108       ans=ccc*ans1
3109       b(6)=ans
3110       ans4=16*(p7p8*p1p3)*(-fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+16*(-
3111      . fmc*hbcm2*p1p2*p7p8+fmc*hbcm2*p2p5*p7p8-fmc*hbcm2*p2p8*p5p7-
3112      . hbcm*p1p2*p3p4*p7p8+hbcm*p1p2*p3p7*p4p8+hbcm*p2p3*p4p8*p5p7+
3113      . hbcm*p2p5*p3p4*p7p8-hbcm*p2p5*p3p7*p4p8-hbcm*p2p8*p3p4*p5p7)
3114       ans3=16*(p4p8*p3p7*p3p5)*(fmc-hbcm)+16*(p4p8*p3p7*p2p3)*(-fmc+
3115      . hbcm)+16*(p4p8*p3p7*p1p3)*(-fmc+hbcm)+16*(p5p8*p3p7*p3p4)*(-
3116      . fmb-2*fmc+2*hbcm)+16*(p7p8*p3p5*p3p4)*(fmb+fmc-hbcm)+16*(p3p7*
3117      . p3p4*p2p8)*(fmb+2*fmc-2*hbcm)+16*(p7p8*p3p4*p2p3)*(-fmb-fmc+
3118      . hbcm)+16*(p3p7*p3p4*p1p8)*(fmb+2*fmc-2*hbcm)+16*(p7p8*p3p4*
3119      . p1p3)*(-fmb-fmc+hbcm)+8*(p5p7*p4p8)*(-fmb*hbcm2-fmc*hbcm2+
3120      . hbcm3)+16*(p5p8*p4p7)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+8*(p4p8*p3p7
3121      . )*(-fmb*hbcm2+fmb2*hbcm+2*fmc*hbcm2-fmc2*hbcm-hbcm3)+8*(p7p8*
3122      . p3p4)*(2*fmb*hbcm2-fmb2*hbcm+fmc2*hbcm-hbcm3)+16*(p4p7*p2p8)*(
3123      . -fmb*hbcm2-fmc*hbcm2+hbcm3)+16*(p4p7*p1p8)*(-fmb*hbcm2-fmc*
3124      . hbcm2+hbcm3)+8*p7p8*(2*fmb*fmc*hbcm3-fmb2*fmc*hbcm2-fmc*hbcm4+
3125      . fmc3*hbcm2)+16*(p5p8*p3p7)*(-fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)
3126      . +16*(p7p8*p3p5)*(fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+16*(p3p7*
3127      . p2p8)*(fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+16*(p7p8*p2p3)*(-fmb*
3128      . fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+16*(p3p7*p1p8)*(fmb*fmc*hbcm-fmc
3129      . *hbcm2+fmc2*hbcm)+ans4
3130       ans2=w1*ans3
3131       ans5=(8*(p5p8*p3p7)*(8*fb4*fmb+hbcm)+8*(p3p7*p2p8)*(-8*fb4*fmb-
3132      . hbcm)+8*(p3p7*p1p8)*(-8*fb4*fmb-hbcm)+8*(p7p8*p3p5)*(-8*fb3*
3133      . fmc+8*fb3*hbcm-8*fb4*fmb-hbcm)+8*(p7p8*p2p3)*(8*fb3*fmc-8*fb3*
3134      . hbcm+8*fb4*fmb+hbcm)+8*(p7p8*p1p3)*(8*fb3*fmc-8*fb3*hbcm+8*fb4
3135      . *fmb+hbcm)+4*p7p8*(-8*fb3*fmb*fmc*hbcm+8*fb3*fmb2*hbcm-8*fb3*
3136      . fmc*hbcm2+8*fb3*hbcm3+8*fb4*fmb*fmc*hbcm-16*fb4*fmb*hbcm2+8*
3137      . fb4*fmc*hbcm2-8*fb4*fmc2*hbcm-2*fmb*hbcm2+2*fmc*hbcm2-hbcm3)+
3138      . 64*(fb3*hbcm*p1p2*p7p8-fb3*hbcm*p2p5*p7p8+fb3*hbcm*p2p8*p5p7))
3139       ans1=w8*(16*(p3p7*p3p5*p2p8)*(-fmc+hbcm)+16*(p3p7*p2p8*p1p3)*(
3140      . fmc-hbcm)+8*(p7p8*p2p3)*(fmb2*hbcm+2*fmc*hbcm2-fmc2*hbcm-hbcm3
3141      . )+16*p7p8*(-fmb*p2p3s2-fmc*p2p3s2+hbcm*p2p3s2)+16*(p7p8*p3p5*
3142      . p2p3)*(fmb+fmc-hbcm)+16*(p3p7*p2p8*p2p3)*(fmb+fmc-hbcm)+16*(
3143      . p7p8*p2p3*p1p3)*(-fmb-fmc+hbcm)+8*(p5p7*p2p8)*(fmb*hbcm2+fmc*
3144      . hbcm2-hbcm3)+8*(p3p7*p2p8)*(fmb*hbcm2-fmb2*hbcm-2*fmc*hbcm2+
3145      . fmc2*hbcm+hbcm3)+16*(p7p8*p2p5)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+
3146      . 16*(p7p8*p1p2)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+16*(fmb*p1p8*p2p3*
3147      . p3p7-fmb*p2p3*p3p7*p5p8+hbcm*p1p2*p2p3*p7p8-hbcm*p1p2*p2p8*
3148      . p3p7-hbcm*p2p3*p2p5*p7p8+hbcm*p2p5*p2p8*p3p7))+ans2+ans5
3149       ans=ccc*ans1
3150       b(7)=ans
3151       ans=ccc*(w8*(16*(p5p6*p2p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p4p6*
3152      . p2p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p3p6*p2p8)*(fmb*hbcm+fmc*
3153      . hbcm-hbcm2)+32*(p6p8*p2p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p6p8*
3154      . p2p3)*(2*fmb*fmc+fmb*hbcm+fmb2+fmc*hbcm+fmc2-2*hbcm2)+16*(2*
3155      . p2p3*p2p4*p6p8+p2p3*p2p8*p3p6+p2p3*p2p8*p4p6+p2p3*p2p8*p5p6+
3156      . p2p3s2*p6p8))+w1*(16*(p5p6*p4p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16
3157      . *(p4p8*p4p6)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p4p8*p3p6)*(-fmb*
3158      . hbcm-fmc*hbcm+hbcm2)+16*(p6p8*p2p4)*(-fmb*hbcm+2*fmc*hbcm+
3159      . hbcm2)+8*(p6p8*p3p4)*(2*fmb*fmc+fmb*hbcm+fmb2+fmc*hbcm+fmc2-2*
3160      . hbcm2)+8*p6p8*(-fmb*fmc*hbcm2+4*fmb*fmc2*hbcm+2*fmb2*fmc*hbcm-
3161      . fmc*hbcm3-fmc2*hbcm2+2*fmc3*hbcm)+16*(2*fmc*hbcm*p2p3*p6p8+fmc
3162      . *hbcm*p2p8*p3p6+fmc*hbcm*p2p8*p4p6+fmc*hbcm*p2p8*p5p6+p2p3*
3163      . p3p4*p6p8+2*p2p4*p3p4*p6p8+p2p8*p3p4*p3p6+p2p8*p3p4*p4p6+p2p8*
3164      . p3p4*p5p6))+(32*p6p8*(-fb3*fmb*fmc+fb3*fmb*hbcm+fb3*fmc*hbcm-
3165      . fb3*fmc2-fb4*fmb*fmc-fb4*fmb2)+64*(-fb4*p2p3*p6p8-2*fb4*p2p4*
3166      . p6p8-fb4*p2p8*p3p6-fb4*p2p8*p4p6-fb4*p2p8*p5p6)))
3167       b(8)=ans
3168       ans=ccc*(w8*(32*(p3p6*p2p5)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p5p6*
3169      . p2p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p4p6*p2p3)*(-fmb*hbcm-fmc
3170      . *hbcm+hbcm2)+32*(p3p6*p1p2)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p3p6
3171      . *p2p3)*(-2*fmb*fmc+fmb*hbcm-fmb2+fmc*hbcm-fmc2)+16*(-2*p1p2*
3172      . p2p3*p3p6+2*p2p3*p2p5*p3p6-p2p3s2*p4p6-p2p3s2*p5p6))+w1*(16*(
3173      . p5p6*p3p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p4p6*p3p4)*(fmb*hbcm+
3174      . fmc*hbcm-hbcm2)+16*(p3p6*p2p4)*(fmb*hbcm+fmc*hbcm)+8*(p3p6*
3175      . p3p4)*(-2*fmb*fmc+fmb*hbcm-fmb2+fmc*hbcm-fmc2)+8*p5p6*(fmb*fmc
3176      . *hbcm2-fmc*hbcm3+fmc2*hbcm2)+8*p4p6*(fmb*fmc*hbcm2-fmc*hbcm3+
3177      . fmc2*hbcm2)+16*p3p6*(fmb*fmc*hbcm2-2*fmb*fmc2*hbcm-fmb2*fmc*
3178      . hbcm+fmc2*hbcm2-fmc3*hbcm)+16*(-3*fmc*hbcm*p1p2*p3p6-fmc*hbcm*
3179      . p2p3*p4p6-fmc*hbcm*p2p3*p5p6+3*fmc*hbcm*p2p5*p3p6+hbcm2*p2p4*
3180      . p4p6+hbcm2*p2p4*p5p6-2*p1p2*p3p4*p3p6-p2p3*p3p4*p4p6-p2p3*p3p4
3181      . *p5p6+2*p2p5*p3p4*p3p6))+(32*p3p6*(fb3*fmb*fmc-fb3*fmb*hbcm-
3182      . fb3*fmc*hbcm+fb3*fmc2+fb4*fmb*fmc+fb4*fmb2)+64*(2*fb4*p1p2*
3183      . p3p6+fb4*p2p3*p4p6+fb4*p2p3*p5p6-2*fb4*p2p5*p3p6)))
3184       b(9)=ans
3185       ans4=16*(-2*fmc*hbcm2*p1p2*p6p8+2*fmc*hbcm2*p2p5*p6p8-fmc*hbcm2
3186      . *p2p8*p4p6-fmc*hbcm2*p2p8*p5p6-3*hbcm*p1p2*p3p4*p6p8+3*hbcm*
3187      . p1p2*p3p6*p4p8+2*hbcm*p1p3*p2p4*p6p8-2*hbcm*p1p8*p2p4*p3p6+2*
3188      . hbcm*p2p3*p2p4*p6p8+hbcm*p2p3*p4p6*p4p8+hbcm*p2p3*p4p8*p5p6-2*
3189      . hbcm*p2p4*p2p8*p3p6-2*hbcm*p2p4*p3p5*p6p8+2*hbcm*p2p4*p3p6*
3190      . p5p8+3*hbcm*p2p5*p3p4*p6p8-3*hbcm*p2p5*p3p6*p4p8-hbcm*p2p8*
3191      . p3p4*p4p6-hbcm*p2p8*p3p4*p5p6)
3192       ans3=16*(p3p6*p3p4*p2p8)*(2*fmc-hbcm)+16*(p6p8*p3p4*p2p3)*(-2*
3193      . fmc+hbcm)+16*(p5p8*p3p6*p3p4)*(-fmb-fmc+hbcm)+16*(p6p8*p3p5*
3194      . p3p4)*(fmb+fmc-hbcm)+16*(p3p6*p3p4*p1p8)*(fmb+fmc-hbcm)+16*(
3195      . p6p8*p3p4*p1p3)*(-fmb-fmc+hbcm)+8*(p5p6*p4p8)*(-fmb*hbcm2-fmc*
3196      . hbcm2+hbcm3)+8*(p4p8*p4p6)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+16*(
3197      . p4p8*p3p6)*(-fmb*hbcm2+fmb2*hbcm+fmc*hbcm2-fmc2*hbcm)+8*(p6p8*
3198      . p3p4)*(3*fmb*hbcm2-2*fmb2*hbcm-fmc*hbcm2+2*fmc2*hbcm-hbcm3)+16
3199      . *(p6p8*p2p4)*(-fmb*hbcm2+fmc*hbcm2-hbcm3)+8*p6p8*(3*fmb*fmc*
3200      . hbcm3-fmb2*fmc*hbcm2-2*fmc*hbcm4+fmc2*hbcm3+fmc3*hbcm2)+32*(
3201      . p5p8*p3p6)*(-fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+32*(p6p8*p3p5)*
3202      . (fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+16*(p3p6*p2p8)*(fmb*fmc*
3203      . hbcm-2*fmc*hbcm2+3*fmc2*hbcm)+16*(p6p8*p2p3)*(-fmb*fmc*hbcm+2*
3204      . fmc*hbcm2-3*fmc2*hbcm)+32*(p3p6*p1p8)*(fmb*fmc*hbcm-fmc*hbcm2+
3205      . fmc2*hbcm)+32*(p6p8*p1p3)*(-fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+
3206      . ans4
3207       ans2=w1*ans3
3208       ans5=(64*(p5p8*p3p6)*(fb3*fmc-fb3*hbcm+fb4*fmb)+64*(p6p8*p3p5)*
3209      . (-fb3*fmc+fb3*hbcm-fb4*fmb)+64*(p3p6*p2p8)*(-fb3*fmc+fb3*hbcm-
3210      . fb4*fmc)+64*(p6p8*p2p3)*(fb3*fmc-fb3*hbcm+fb4*fmc)+64*(p3p6*
3211      . p1p8)*(-fb3*fmc+fb3*hbcm-fb4*fmb)+64*(p6p8*p1p3)*(fb3*fmc-fb3*
3212      . hbcm+fb4*fmb)+32*p6p8*(-fb3*fmc*hbcm2+fb3*hbcm3-fb4*fmb*hbcm2)
3213      . +64*(fb3*hbcm*p1p2*p6p8-fb3*hbcm*p2p5*p6p8+fb3*hbcm*p2p8*p4p6+
3214      . fb3*hbcm*p2p8*p5p6))
3215       ans1=w8*(16*p6p8*(-2*fmc*p2p3s2+hbcm*p2p3s2)+16*(p3p6*p2p8*p2p3
3216      . )*(2*fmc-hbcm)+16*(p5p8*p3p6*p2p3)*(-fmb-fmc+hbcm)+16*(p6p8*
3217      . p3p5*p2p3)*(fmb+fmc-hbcm)+16*(p3p6*p2p3*p1p8)*(fmb+fmc-hbcm)+
3218      . 16*(p6p8*p2p3*p1p3)*(-fmb-fmc+hbcm)+8*(p5p6*p2p8)*(fmb*hbcm2+
3219      . fmc*hbcm2-hbcm3)+8*(p4p6*p2p8)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+16*
3220      . (p3p6*p2p8)*(fmb*hbcm2-fmb2*hbcm-fmc*hbcm2+fmc2*hbcm)+16*(p6p8
3221      . *p2p5)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+8*(p6p8*p2p3)*(-fmb*hbcm2+
3222      . 2*fmb2*hbcm+3*fmc*hbcm2-2*fmc2*hbcm-hbcm3)+16*(p6p8*p1p2)*(fmb
3223      . *hbcm2+fmc*hbcm2-hbcm3)+16*(hbcm*p1p2*p2p3*p6p8-hbcm*p1p2*p2p8
3224      . *p3p6-hbcm*p2p3*p2p5*p6p8+hbcm*p2p5*p2p8*p3p6))+ans2+ans5
3225       ans=ccc*ans1
3226       b(10)=ans
3227       ans4=16*(2*fmc*hbcm2*p1p2*p6p7-2*fmc*hbcm2*p2p5*p6p7+3*hbcm*
3228      . p1p2*p3p4*p6p7-2*hbcm*p1p2*p3p6*p4p7-2*hbcm*p1p3*p2p4*p6p7-2*
3229      . hbcm*p2p3*p2p4*p6p7+2*hbcm*p2p4*p3p5*p6p7-2*hbcm*p2p4*p3p6*
3230      . p5p7-3*hbcm*p2p5*p3p4*p6p7+2*hbcm*p2p5*p3p6*p4p7)
3231       ans3=16*(p6p7*p3p4*p2p3)*(2*fmc-hbcm)+16*(p5p6*p3p7*p3p4)*(-fmb
3232      . -2*fmc+2*hbcm)+16*(p4p6*p3p7*p3p4)*(-fmb-2*fmc+2*hbcm)+16*(
3233      . p5p7*p3p6*p3p4)*(fmb+fmc-hbcm)+16*(p6p7*p3p5*p3p4)*(-fmb-fmc+
3234      . hbcm)+16*(p6p7*p3p4*p1p3)*(fmb+fmc-hbcm)+16*(p5p6*p4p7)*(fmb*
3235      . hbcm2+fmc*hbcm2-hbcm3)+16*(p4p7*p4p6)*(fmb*hbcm2+fmc*hbcm2-
3236      . hbcm3)+16*(p4p7*p3p6)*(fmb*hbcm2-fmb2*hbcm-fmc*hbcm2+fmc2*hbcm
3237      . )+8*(p6p7*p3p4)*(-3*fmb*hbcm2+2*fmb2*hbcm+fmc*hbcm2-2*fmc2*
3238      . hbcm+hbcm3)+16*(p6p7*p2p4)*(fmb*hbcm2-fmc*hbcm2+hbcm3)+8*p6p7*
3239      . (-3*fmb*fmc*hbcm3+fmb2*fmc*hbcm2+2*fmc*hbcm4-fmc2*hbcm3-fmc3*
3240      . hbcm2)+16*(p5p6*p3p7)*(-fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+16*(
3241      . p4p6*p3p7)*(-fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+32*(p5p7*p3p6)*
3242      . (fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+16*(p3p7*p3p6)*(fmb*fmc*
3243      . hbcm-fmb*fmc2-fmc2*hbcm+fmc3)+32*(p6p7*p3p5)*(-fmb*fmc*hbcm+
3244      . fmc*hbcm2-fmc2*hbcm)+16*(p6p7*p2p3)*(fmb*fmc*hbcm-2*fmc*hbcm2+
3245      . 3*fmc2*hbcm)+32*(p6p7*p1p3)*(fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)
3246      . +ans4
3247       ans2=w1*ans3
3248       ans5=(8*(p5p6*p3p7)*(8*fb4*fmb+hbcm)+8*(p4p6*p3p7)*(8*fb4*fmb+
3249      . hbcm)+64*(p5p7*p3p6)*(-fb3*fmc+fb3*hbcm-fb4*fmb)+64*(p6p7*p3p5
3250      . )*(fb3*fmc-fb3*hbcm+fb4*fmb)+64*(p6p7*p2p3)*(-fb3*fmc+fb3*hbcm
3251      . -fb4*fmc)+64*(p6p7*p1p3)*(-fb3*fmc+fb3*hbcm-fb4*fmb)+32*p6p7*(
3252      . fb3*fmc*hbcm2-fb3*hbcm3+fb4*fmb*hbcm2)+64*(-fb3*hbcm*p1p2*p6p7
3253      . +fb3*hbcm*p2p5*p6p7))
3254       ans1=w8*(32*(p3p7*p3p6*p2p5)*(-fmc+hbcm)+16*p6p7*(2*fmc*p2p3s2-
3255      . hbcm*p2p3s2)+32*(p3p7*p3p6*p1p2)*(fmc-hbcm)+16*(p5p7*p3p6*p2p3
3256      . )*(fmb+fmc-hbcm)+16*(p6p7*p3p5*p2p3)*(-fmb-fmc+hbcm)+16*(p6p7*
3257      . p2p3*p1p3)*(fmb+fmc-hbcm)+16*(p6p7*p2p5)*(fmb*hbcm2+fmc*hbcm2-
3258      . hbcm3)+8*(p6p7*p2p3)*(fmb*hbcm2-2*fmb2*hbcm-3*fmc*hbcm2+2*fmc2
3259      . *hbcm+hbcm3)+16*(p6p7*p1p2)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+16*(-
3260      . fmb*p2p3*p3p7*p4p6-fmb*p2p3*p3p7*p5p6-hbcm*p1p2*p2p3*p6p7+hbcm
3261      . *p2p3*p2p5*p6p7))+ans2+ans5
3262       ans=ccc*ans1
3263       b(11)=ans
3264       ans4=8*(p6p7*p2p8)*(2*fmb*fmc*hbcm2-3*fmb*hbcm3+fmb2*hbcm2-3*
3265      . fmc*hbcm3+fmc2*hbcm2+2*hbcm4-4*p2p3s2)+32*(p1p2*p2p3*p3p6*p7p8
3266      . -p1p2*p2p3*p3p7*p6p8+p1p3*p2p3*p2p8*p6p7-p1p8*p2p3s2*p6p7-p2p3
3267      . *p2p5*p3p6*p7p8+p2p3*p2p5*p3p7*p6p8-p2p3*p2p8*p3p5*p6p7-p2p3*
3268      . p2p8*p3p6*p3p7+p2p3*p2p8*p3p6*p5p7-2*p2p3*p2p8*p3p7*p4p6-2*
3269      . p2p3*p2p8*p3p7*p5p6-p2p3s2*p3p7*p6p8+p2p3s2*p4p6*p7p8-2*p2p3s2
3270      . *p4p7*p6p8+2*p2p3s2*p4p8*p6p7+p2p3s2*p5p6*p7p8-p2p3s2*p5p7*
3271      . p6p8+p2p3s2*p5p8*p6p7)
3272       ans3=48*(p5p6*p3p7*p2p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+48*(p4p6*
3273      . p3p7*p2p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p5p7*p3p6*p2p8)*(fmb
3274      . *hbcm+fmc*hbcm-hbcm2)+32*(p6p7*p3p5*p2p8)*(-fmb*hbcm-fmc*hbcm+
3275      . hbcm2)+32*(p6p8*p3p7*p2p5)*(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p7p8*
3276      . p3p6*p2p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p6p7*p5p8*p2p3)*(fmb
3277      . *hbcm+fmc*hbcm-hbcm2)+32*(p6p8*p5p7*p2p3)*(-fmb*hbcm-fmc*hbcm+
3278      . hbcm2)+16*(p7p8*p5p6*p2p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+64*(p6p7*
3279      . p4p8*p2p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+64*(p6p8*p4p7*p2p3)*(-fmb
3280      . *hbcm-fmc*hbcm+hbcm2)+16*(p7p8*p4p6*p2p3)*(fmb*hbcm+fmc*hbcm-
3281      . hbcm2)+16*(p6p7*p2p8*p2p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p6p7
3282      . *p2p3*p1p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p6p7*p2p8*p1p3)*(
3283      . fmb*hbcm+fmc*hbcm-hbcm2)+32*(p6p8*p3p7*p1p2)*(-fmb*hbcm-fmc*
3284      . hbcm+hbcm2)+32*(p7p8*p3p6*p1p2)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(
3285      . p3p7*p3p6*p2p8)*(-fmb*fmc-fmb*hbcm-fmc*hbcm-fmc2+2*hbcm2)+16*(
3286      . p6p8*p3p7*p2p3)*(-fmb*fmc-fmb*hbcm-fmc*hbcm-fmc2+2*hbcm2)+ans4
3287       ans2=w8*ans3
3288       ans8=32*(2*fmc*hbcm*p1p2*p3p6*p7p8-2*fmc*hbcm*p1p2*p3p7*p6p8+2*
3289      . fmc*hbcm*p1p3*p2p8*p6p7-2*fmc*hbcm*p1p8*p2p3*p6p7-fmc*hbcm*
3290      . p2p3*p2p8*p6p7+fmc*hbcm*p2p3*p4p6*p7p8+fmc*hbcm*p2p3*p5p6*p7p8
3291      . -2*fmc*hbcm*p2p3*p5p7*p6p8+2*fmc*hbcm*p2p3*p5p8*p6p7-2*fmc*
3292      . hbcm*p2p5*p3p6*p7p8+2*fmc*hbcm*p2p5*p3p7*p6p8-2*fmc*hbcm*p2p8*
3293      . p3p5*p6p7-fmc*hbcm*p2p8*p3p6*p3p7+2*fmc*hbcm*p2p8*p3p6*p5p7-2*
3294      . fmc*hbcm*p2p8*p3p7*p4p6-2*fmc*hbcm*p2p8*p3p7*p5p6-hbcm2*p1p2*
3295      . p4p7*p6p8+hbcm2*p1p2*p4p8*p6p7-hbcm2*p1p8*p2p4*p6p7-hbcm2*p2p4
3296      . *p4p6*p7p8-hbcm2*p2p4*p5p6*p7p8-hbcm2*p2p4*p5p7*p6p8+hbcm2*
3297      . p2p4*p5p8*p6p7+hbcm2*p2p5*p4p7*p6p8-hbcm2*p2p5*p4p8*p6p7+hbcm2
3298      . *p2p8*p4p6*p4p7+hbcm2*p2p8*p4p7*p5p6+p1p2*p3p4*p3p6*p7p8-p1p2*
3299      . p3p4*p3p7*p6p8+p1p3*p2p8*p3p4*p6p7-p1p8*p2p3*p3p4*p6p7-p2p3*
3300      . p2p8*p3p4*p6p7-p2p3*p3p4*p3p7*p6p8+p2p3*p3p4*p4p6*p7p8-2*p2p3*
3301      . p3p4*p4p7*p6p8+2*p2p3*p3p4*p4p8*p6p7+p2p3*p3p4*p5p6*p7p8-p2p3*
3302      . p3p4*p5p7*p6p8+p2p3*p3p4*p5p8*p6p7-p2p5*p3p4*p3p6*p7p8+p2p5*
3303      . p3p4*p3p7*p6p8-p2p8*p3p4*p3p5*p6p7-p2p8*p3p4*p3p6*p3p7+p2p8*
3304      . p3p4*p3p6*p5p7-2*p2p8*p3p4*p3p7*p4p6-2*p2p8*p3p4*p3p7*p5p6)
3305       ans7=32*(p6p7*p3p4*p1p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p6p7*
3306      . p4p8*p1p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p6p8*p4p7*p1p3)*(-fmb
3307      . *hbcm-fmc*hbcm+hbcm2)+16*(p6p8*p3p7)*(-2*fmb*fmc2*hbcm-fmb2*
3308      . fmc*hbcm+fmc2*hbcm2-fmc3*hbcm)+16*(p4p8*p3p7*p3p6)*(-fmb*fmc+3
3309      . *fmb*hbcm+3*fmc*hbcm-fmc2-2*hbcm2)+16*(p6p8*p3p7*p3p4)*(fmb*
3310      . fmc-3*fmb*hbcm-3*fmc*hbcm+fmc2+2*hbcm2)+16*(p6p7*p5p8)*(fmb*
3311      . fmc*hbcm2-fmc*hbcm3+fmc2*hbcm2)+16*(p6p8*p5p7)*(-fmb*fmc*hbcm2
3312      . +fmc*hbcm3-fmc2*hbcm2)+8*(p6p7*p4p8)*(2*fmb*fmc*hbcm2-3*fmb*
3313      . hbcm3+fmb2*hbcm2-3*fmc*hbcm3+fmc2*hbcm2+2*hbcm4)+16*(p6p8*p4p7
3314      . )*(-2*fmb*fmc*hbcm2+2*fmb*hbcm3-fmb2*hbcm2+2*fmc*hbcm3-fmc2*
3315      . hbcm2-hbcm4)+16*(p7p8*p3p6)*(-fmb*fmc*hbcm2+2*fmb*fmc2*hbcm+
3316      . fmb2*fmc*hbcm-fmc2*hbcm2+fmc3*hbcm)+16*(p6p7*p2p8)*(-fmb*fmc*
3317      . hbcm2-2*fmc*hbcm3-fmc2*hbcm2)+16*(p6p7*p1p8)*(-fmb*fmc*hbcm2+
3318      . fmc*hbcm3-fmc2*hbcm2)+ans8
3319       ans6=32*(p5p8*p3p7*p3p6)*(fmc*hbcm-fmc2)+32*(p6p8*p3p7*p3p5)*(-
3320      . fmc*hbcm+fmc2)+32*(p6p8*p3p7*p2p3)*(-fmc*hbcm-fmc2)+32*(p3p7*
3321      . p3p6*p1p8)*(-fmc*hbcm+fmc2)+32*(p6p8*p3p7*p1p3)*(fmc*hbcm-fmc2
3322      . )+16*(p5p6*p4p8*p3p7)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p4p8*p4p6*
3323      . p3p7)*(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p5p7*p4p8*p3p6)*(fmb*hbcm+
3324      . fmc*hbcm-hbcm2)+32*(p5p8*p4p7*p3p6)*(-fmb*hbcm-fmc*hbcm+hbcm2)
3325      . +32*(p6p7*p4p8*p3p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p6p8*p4p7*
3326      . p3p5)*(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p6p7*p5p8*p3p4)*(fmb*hbcm+
3327      . fmc*hbcm-hbcm2)+32*(p6p8*p5p7*p3p4)*(-fmb*hbcm-fmc*hbcm+hbcm2)
3328      . +16*(p7p8*p5p6*p3p4)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p7p8*p4p6*
3329      . p3p4)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p4p7*p3p6*p2p8)*(fmb*hbcm
3330      . +fmc*hbcm)+16*(p6p7*p3p4*p2p8)*(-2*fmb*hbcm-2*fmc*hbcm-hbcm2)+
3331      . 32*(p6p8*p3p7*p2p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p7p8*p3p6*
3332      . p2p4)*(-fmb*hbcm-fmc*hbcm)+16*(p6p7*p4p8*p2p3)*(fmb*hbcm+7*fmc
3333      . *hbcm-2*hbcm2)+32*(p6p8*p4p7*p2p3)*(-fmb*hbcm-4*fmc*hbcm+hbcm2
3334      . )+32*(p4p7*p3p6*p1p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+ans7
3335       ans5=w1*ans6
3336       ans9=(8*(p7p8*p3p6)*(fmb*hbcm+fmc*hbcm)+16*(p7p8*p5p6)*(-4*fb3*
3337      . fmb*hbcm-4*fb4*fmc*hbcm+4*fb4*hbcm2+hbcm2)+16*(p7p8*p4p6)*(-4*
3338      . fb3*fmb*hbcm-4*fb4*fmc*hbcm+4*fb4*hbcm2+hbcm2)+8*(p6p8*p3p7)*(
3339      . 8*fb3*fmb*fmc-8*fb3*fmb*hbcm-8*fb3*fmc*hbcm+8*fb3*fmc2-fmb*
3340      . hbcm-fmc*hbcm)+64*(fb4*hbcm2*p2p8*p6p7-2*fb4*p1p2*p3p6*p7p8+2*
3341      . fb4*p1p2*p3p7*p6p8-2*fb4*p1p3*p2p8*p6p7+2*fb4*p1p8*p2p3*p6p7+2
3342      . *fb4*p2p3*p2p8*p6p7+2*fb4*p2p3*p3p7*p6p8-2*fb4*p2p3*p4p6*p7p8+
3343      . 4*fb4*p2p3*p4p7*p6p8-4*fb4*p2p3*p4p8*p6p7-2*fb4*p2p3*p5p6*p7p8
3344      . +2*fb4*p2p3*p5p7*p6p8-2*fb4*p2p3*p5p8*p6p7+2*fb4*p2p5*p3p6*
3345      . p7p8-2*fb4*p2p5*p3p7*p6p8+2*fb4*p2p8*p3p5*p6p7+2*fb4*p2p8*p3p6
3346      . *p3p7-2*fb4*p2p8*p3p6*p5p7+4*fb4*p2p8*p3p7*p4p6+4*fb4*p2p8*
3347      . p3p7*p5p6))
3348       ans1=ans2+ans5+ans9
3349       ans=ccc*ans1
3350       b(12)=ans
3351       ans=ccc*(w8*(8*(p2p8*p2p3)*(-2*fmc+hbcm)+8*(p5p8*p2p3)*(fmb+fmc
3352      . -hbcm)+8*(p2p3*p1p8)*(-fmb-fmc+hbcm)+4*p2p8*(-fmb*hbcm2+2*fmb2
3353      . *hbcm+3*fmc*hbcm2-2*fmc2*hbcm-hbcm3)+8*(hbcm*p1p2*p2p8-hbcm*
3354      . p2p5*p2p8))+w1*(8*(p5p8*p3p4)*(fmb+fmc-hbcm)+8*(p3p4*p1p8)*(-
3355      . fmb-fmc+hbcm)+4*p4p8*(fmb*hbcm2-2*fmb2*hbcm-3*fmc*hbcm2+2*fmc2
3356      . *hbcm+hbcm3)+16*p5p8*(fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+8*p2p8
3357      . *(-fmb*fmc*hbcm+fmc*hbcm2-3*fmc2*hbcm)+16*p1p8*(-fmb*fmc*hbcm+
3358      . fmc*hbcm2-fmc2*hbcm)+8*(-2*fmc*p2p8*p3p4-3*hbcm*p1p2*p4p8+2*
3359      . hbcm*p1p8*p2p4+hbcm*p2p3*p4p8+2*hbcm*p2p4*p2p8-2*hbcm*p2p4*
3360      . p5p8+3*hbcm*p2p5*p4p8))+(32*p5p8*(-fb3*fmc+fb3*hbcm-fb4*fmb)+
3361      . 32*p2p8*(fb3*fmc+fb4*fmc)+32*p1p8*(fb3*fmc-fb3*hbcm+fb4*fmb)))
3362       b(13)=ans
3363       b(14)=ccc*(w8*(16*p2p5*(fmb*hbcm+fmc*hbcm-hbcm2)+16*p1p2*(-fmb*
3364      . hbcm-fmc*hbcm+hbcm2)+4*p2p3*(-2*fmb*fmc+3*fmb*hbcm-fmb2+3*fmc*
3365      . hbcm-fmc2-2*hbcm2)+8*(-2*p1p2*p2p3+2*p2p3*p2p5+p2p3s2))+w1*(8*
3366      . p2p4*(fmb*hbcm+fmc*hbcm-hbcm2)+4*p3p4*(-2*fmb*fmc-fmb*hbcm-
3367      . fmb2-fmc*hbcm-fmc2+2*hbcm2)+4*(fmb*fmc*hbcm2-4*fmb*fmc2*hbcm-2
3368      . *fmb2*fmc*hbcm-6*fmc*hbcm*p1p2+2*fmc*hbcm*p2p3+6*fmc*hbcm*p2p5
3369      . +fmc*hbcm3+fmc2*hbcm2-2*fmc3*hbcm-4*p1p2*p3p4+2*p2p3*p3p4+4*
3370      . p2p5*p3p4))+16*(fb3*fmb*fmc-fb3*fmb*hbcm-fb3*fmc*hbcm+fb3*fmc2
3371      . +fb4*fmb*fmc+fb4*fmb2+4*fb4*p1p2-2*fb4*p2p3-4*fb4*p2p5))
3372       ans2=w1*(16*(p4p8*p3p5)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p5p8*p3p4
3373      . )*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p3p4*p2p8)*(fmb*hbcm+fmc*hbcm-
3374      . 3*hbcm2)+8*(p4p8*p2p3)*(-fmb*hbcm-fmc*hbcm+2*hbcm2)+16*(p3p4*
3375      . p1p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p4p8*p1p3)*(-fmb*hbcm-fmc*
3376      . hbcm+hbcm2)+8*p5p8*(-fmb*fmc*hbcm2+fmc*hbcm3-fmc2*hbcm2)+4*
3377      . p4p8*(-2*fmb*fmc*hbcm2+3*fmb*hbcm3-fmb2*hbcm2+3*fmc*hbcm3-fmc2
3378      . *hbcm2-2*hbcm4)+8*p1p8*(fmb*fmc*hbcm2-fmc*hbcm3+fmc2*hbcm2)+16
3379      . *(fmc*hbcm*p1p3*p2p8-fmc*hbcm*p1p8*p2p3+fmc*hbcm*p2p3*p5p8-fmc
3380      . *hbcm*p2p8*p3p5-fmc*hbcm3*p2p8-hbcm2*p1p2*p4p8+hbcm2*p1p8*p2p4
3381      . +hbcm2*p2p4*p2p8-hbcm2*p2p4*p5p8+hbcm2*p2p5*p4p8+p1p3*p2p8*
3382      . p3p4-p1p8*p2p3*p3p4+p2p3*p3p4*p5p8-p2p8*p3p4*p3p5))+(32*p2p8*(
3383      . fb3*fmb*hbcm+fb3*fmc*hbcm+fb4*hbcm2)+64*(-fb4*p1p3*p2p8+fb4*
3384      . p1p8*p2p3-fb4*p2p3*p5p8+fb4*p2p8*p3p5))
3385       ans1=w8*(16*(p3p5*p2p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p5p8*
3386      . p2p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p2p3*p1p8)*(-fmb*hbcm-fmc*
3387      . hbcm+hbcm2)+16*(p2p8*p1p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+4*p2p8*(2
3388      . *fmb*fmc*hbcm2-3*fmb*hbcm3+fmb2*hbcm2-3*fmc*hbcm3+fmc2*hbcm2+2
3389      . *hbcm4)+8*(-hbcm2*p2p3*p2p8+2*p1p3*p2p3*p2p8-2*p1p8*p2p3s2-2*
3390      . p2p3*p2p8*p3p5+2*p2p3s2*p5p8))+ans2
3391       ans=ccc*ans1
3392       b(15)=ans
3393       ans=ccc*(w8*(8*(p3p5*p2p3)*(-fmb-fmc+hbcm)+8*(p2p3*p1p3)*(fmb+
3394      . fmc-hbcm)+8*p2p5*(fmb*hbcm2+fmc*hbcm2-hbcm3)+4*p2p3*(fmb*hbcm2
3395      . -2*fmb2*hbcm-3*fmc*hbcm2+2*fmc2*hbcm+hbcm3)+8*p1p2*(-fmb*hbcm2
3396      . -fmc*hbcm2+hbcm3)+8*(2*fmc*p2p3s2-hbcm*p1p2*p2p3+hbcm*p2p3*
3397      . p2p5-hbcm*p2p3s2))+w1*(8*(p3p4*p2p3)*(2*fmc-hbcm)+8*(p3p5*p3p4
3398      . )*(-fmb-fmc+hbcm)+8*(p3p4*p1p3)*(fmb+fmc-hbcm)+4*p3p4*(-3*fmb*
3399      . hbcm2+2*fmb2*hbcm+fmc*hbcm2-2*fmc2*hbcm+hbcm3)+8*p2p4*(fmb*
3400      . hbcm2-fmc*hbcm2+hbcm3)+16*p3p5*(-fmb*fmc*hbcm+fmc*hbcm2-fmc2*
3401      . hbcm)+8*p2p3*(fmb*fmc*hbcm-2*fmc*hbcm2+3*fmc2*hbcm)+16*p1p3*(
3402      . fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+4*(-3*fmb*fmc*hbcm3+fmb2*fmc
3403      . *hbcm2+4*fmc*hbcm2*p1p2-4*fmc*hbcm2*p2p5+2*fmc*hbcm4-fmc2*
3404      . hbcm3-fmc3*hbcm2+6*hbcm*p1p2*p3p4-4*hbcm*p1p3*p2p4-4*hbcm*p2p3
3405      . *p2p4+4*hbcm*p2p4*p3p5-6*hbcm*p2p5*p3p4))+(32*p3p5*(fb3*fmc-
3406      . fb3*hbcm+fb4*fmb)+32*p2p3*(-fb3*fmc+fb3*hbcm-fb4*fmc)+32*p1p3*
3407      . (-fb3*fmc+fb3*hbcm-fb4*fmb)+16*(fb3*fmc*hbcm2-2*fb3*hbcm*p1p2+
3408      . 2*fb3*hbcm*p2p5-fb3*hbcm3+fb4*fmb*hbcm2)))
3409       b(16)=ans
3410       b(17)=ccc*(w8*(8*(p6p8*p2p3)*(-fmb+3*fmc-2*hbcm)+8*p6p8*(fmb*
3411      . hbcm2-2*fmb2*hbcm-3*fmc*hbcm2+2*fmc2*hbcm+hbcm3)+8*(hbcm*p2p8*
3412      . p3p6+hbcm*p2p8*p4p6+hbcm*p2p8*p5p6))+w1*(8*(p6p8*p3p4)*(-fmb+3
3413      . *fmc+2*hbcm)+8*p6p8*(-fmb*fmc*hbcm+5*fmc2*hbcm)+8*(-2*hbcm*
3414      . p2p4*p6p8-3*hbcm*p3p6*p4p8-3*hbcm*p4p6*p4p8-3*hbcm*p4p8*p5p6))
3415      . +32*p6p8*(-fb3*fmc+fb4*fmb-2*fb4*fmc))
3416       b(18)=ccc*(8*w1*(3*fmc*hbcm*p3p6+3*fmc*hbcm*p4p6+3*fmc*hbcm*
3417      . p5p6+2*p3p4*p3p6+2*p3p4*p4p6+2*p3p4*p5p6)+w8*(16*p5p6*(fmb*
3418      . hbcm+fmc*hbcm-hbcm2)+16*p4p6*(fmb*hbcm+fmc*hbcm-hbcm2)+16*p3p6
3419      . *(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p2p3*p3p6+p2p3*p4p6+p2p3*p5p6))
3420      . +64*(-fb4*p3p6-fb4*p4p6-fb4*p5p6))
3421       b(19)=ccc*(w1*(4*p4p8*(-fmb*hbcm2+3*fmc*hbcm2-4*hbcm3)+8*(-2*
3422      . fmc*hbcm2*p1p8-fmc*hbcm2*p2p8+2*fmc*hbcm2*p5p8+3*hbcm*p1p3*
3423      . p4p8-3*hbcm*p1p8*p3p4+2*hbcm*p2p3*p4p8-2*hbcm*p2p8*p3p4+3*hbcm
3424      . *p3p4*p5p8-3*hbcm*p3p5*p4p8))+w8*(8*p5p8*(-fmb*hbcm2-fmc*hbcm2
3425      . +hbcm3)+4*p2p8*(fmb*hbcm2+fmc*hbcm2)+8*p1p8*(fmb*hbcm2+fmc*
3426      . hbcm2-hbcm3)+8*(-hbcm*p1p3*p2p8+hbcm*p1p8*p2p3-hbcm*p2p3*p5p8+
3427      . hbcm*p2p8*p3p5))+32*(fb3*hbcm*p1p8-fb3*hbcm*p5p8))
3428       b(20)=ccc*(w1*(4*p4p8*(-fmb*hbcm-fmc*hbcm)+8*(3*fmc*hbcm*p1p8+2
3429      . *fmc*hbcm*p2p8-3*fmc*hbcm*p5p8+2*p1p8*p3p4+p2p8*p3p4-2*p3p4*
3430      . p5p8))+w8*(16*p5p8*(-fmb*hbcm-fmc*hbcm+hbcm2)+4*p2p8*(3*fmb*
3431      . hbcm+3*fmc*hbcm-2*hbcm2)+16*p1p8*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(
3432      . 2*p1p8*p2p3+p2p3*p2p8-2*p2p3*p5p8))+32*(-2*fb4*p1p8-fb4*p2p8+2
3433      . *fb4*p5p8))
3434       b(21)=ccc*(w1*(8*(p4p8*p3p7)*(fmc-2*hbcm)+8*(2*fmc*p3p4*p7p8+2*
3435      . fmc2*hbcm*p7p8-2*hbcm*p1p8*p4p7-2*hbcm*p2p8*p4p7+2*hbcm*p4p7*
3436      . p5p8-3*hbcm*p4p8*p5p7))+w8*(16*(p5p8*p3p7)*(-fmc+hbcm)+16*(
3437      . p7p8*p2p3)*(fmc-hbcm)+16*(p3p7*p1p8)*(fmc-hbcm)+8*p7p8*(-fmb2*
3438      . hbcm-2*fmc*hbcm2+fmc2*hbcm+hbcm3)+8*(fmc*p2p8*p3p7+hbcm*p2p8*
3439      . p5p7))+4*p7p8*(-8*fb3*fmc-8*fb4*fmc-hbcm))
3440       b(22)=ccc*(w8*(4*p2p3*(-fmb+3*fmc-2*hbcm)+4*(fmb*hbcm2-2*fmb2*
3441      . hbcm-3*fmc*hbcm2+2*fmc2*hbcm+hbcm3))+w1*(4*p3p4*(-fmb+3*fmc+2*
3442      . hbcm)+4*(-fmb*fmc*hbcm+5*fmc2*hbcm-2*hbcm*p2p4))+16*(-fb3*fmc+
3443      . fb4*fmb-2*fb4*fmc))
3444       b(23)=ccc*(w1*(8*p3p7*(-2*fmc*hbcm+fmc2)+8*(-3*fmc*hbcm*p5p7-
3445      . p3p4*p3p7-2*p3p4*p5p7))+w8*(16*p5p7*(-fmb*hbcm-fmc*hbcm+hbcm2)
3446      . +8*p3p7*(fmb*fmc-2*fmb*hbcm-2*fmc*hbcm+fmc2+hbcm2)+8*(-p2p3*
3447      . p3p7-2*p2p3*p5p7))+32*(fb4*p3p7+2*fb4*p5p7))
3448       b(24)=ccc*(w8*(16*p3p5*(fmb*hbcm+fmc*hbcm-hbcm2)+4*p2p3*(-3*fmb
3449      . *hbcm-3*fmc*hbcm+4*hbcm2)+16*p1p3*(-fmb*hbcm-fmc*hbcm+hbcm2)+4
3450      . *(-2*fmb*fmc*hbcm2+3*fmb*hbcm3-fmb2*hbcm2+3*fmc*hbcm3-fmc2*
3451      . hbcm2-2*hbcm4-4*p1p3*p2p3+4*p2p3*p3p5-2*p2p3s2))+w1*(4*p3p4*(
3452      . fmb*hbcm+fmc*hbcm+4*hbcm2)+4*(fmb*fmc*hbcm2-6*fmc*hbcm*p1p3-4*
3453      . fmc*hbcm*p2p3+6*fmc*hbcm*p3p5+4*fmc*hbcm3+fmc2*hbcm2-2*hbcm2*
3454      . p2p4-4*p1p3*p3p4-2*p2p3*p3p4+4*p3p4*p3p5))+16*(-fb3*fmb*hbcm-
3455      . fb3*fmc*hbcm-2*fb4*hbcm2+4*fb4*p1p3+2*fb4*p2p3-4*fb4*p3p5))
3456       b(25)=ccc*(w1*(8*(p3p7*p3p4)*(-3*fmc+2*hbcm)+16*p4p7*(fmc*hbcm2
3457      . -hbcm3)+8*p3p7*(fmc*hbcm2-2*fmc2*hbcm)+8*(2*fmc*hbcm2*p5p7+2*
3458      . hbcm*p1p3*p4p7+2*hbcm*p2p3*p4p7+3*hbcm*p3p4*p5p7-2*hbcm*p3p5*
3459      . p4p7))+w8*(16*(p3p7*p3p5)*(fmc-hbcm)+8*(p3p7*p2p3)*(-3*fmc+2*
3460      . hbcm)+16*(p3p7*p1p3)*(-fmc+hbcm)+8*p5p7*(-fmb*hbcm2-fmc*hbcm2+
3461      . hbcm3)+8*p3p7*(-fmb*hbcm2+fmb2*hbcm+2*fmc*hbcm2-fmc2*hbcm-
3462      . hbcm3)-8*hbcm*p2p3*p5p7)+(4*p3p7*(8*fb4*fmc+hbcm)-32*fb3*hbcm*
3463      . p5p7))
3464       b(26)=ccc*(w8*(8*(p3p6*p2p3)*(fmb-3*fmc+hbcm)+8*p5p6*(-fmb*
3465      . hbcm2-fmc*hbcm2+hbcm3)+8*p4p6*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+16*
3466      . p3p6*(-fmb*hbcm2+fmb2*hbcm+fmc*hbcm2-fmc2*hbcm)+8*(-hbcm*p2p3*
3467      . p4p6-hbcm*p2p3*p5p6))+w1*(8*(p3p6*p3p4)*(fmb-3*fmc+hbcm)+8*
3468      . p3p6*(fmb*fmc*hbcm+2*fmc*hbcm2-5*fmc2*hbcm)+8*(2*fmc*hbcm2*
3469      . p4p6+2*fmc*hbcm2*p5p6+2*hbcm*p2p4*p3p6+3*hbcm*p3p4*p4p6+3*hbcm
3470      . *p3p4*p5p6))+(32*p3p6*(fb3*fmc-fb3*hbcm-fb4*fmb+2*fb4*fmc)+32*
3471      . (-fb3*hbcm*p4p6-fb3*hbcm*p5p6)))
3472       ans=ccc*(8*w1*(-2*fmc*hbcm*p1p3*p7p8+2*fmc*hbcm*p1p8*p3p7-2*fmc
3473      . *hbcm*p2p3*p7p8+2*fmc*hbcm*p2p8*p3p7+2*fmc*hbcm*p3p5*p7p8-2*
3474      . fmc*hbcm*p3p7*p5p8+2*fmc*hbcm3*p7p8-2*hbcm2*p1p8*p4p7-2*hbcm2*
3475      . p2p8*p4p7+2*hbcm2*p3p4*p7p8-hbcm2*p3p7*p4p8+2*hbcm2*p4p7*p5p8-
3476      . 2*hbcm2*p4p8*p5p7-2*p1p3*p3p4*p7p8+2*p1p8*p3p4*p3p7-2*p2p3*
3477      . p3p4*p7p8+2*p2p8*p3p4*p3p7+2*p3p4*p3p5*p7p8-2*p3p4*p3p7*p5p8)+
3478      . w8*(16*(p5p8*p3p7)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p7p8*p3p5)*(
3479      . fmb*hbcm+fmc*hbcm-hbcm2)+8*(p3p7*p2p8)*(2*fmb*hbcm+2*fmc*hbcm-
3480      . hbcm2)+16*(p7p8*p2p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p3p7*p1p8
3481      . )*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p7p8*p1p3)*(-fmb*hbcm-fmc*hbcm
3482      . +hbcm2)+8*p7p8*(-2*fmb*fmc*hbcm2+2*fmb*hbcm3-fmb2*hbcm2+2*fmc*
3483      . hbcm3-fmc2*hbcm2-hbcm4-2*p2p3s2)+16*(-p1p3*p2p3*p7p8+p1p8*p2p3
3484      . *p3p7+p2p3*p2p8*p3p7+p2p3*p3p5*p7p8-p2p3*p3p7*p5p8))+(8*p7p8*(
3485      . -4*fb3*fmc*hbcm+4*fb4*fmc*hbcm-8*fb4*hbcm2-hbcm2)+64*(fb4*p1p3
3486      . *p7p8-fb4*p1p8*p3p7+fb4*p2p3*p7p8-fb4*p2p8*p3p7-fb4*p3p5*p7p8+
3487      . fb4*p3p7*p5p8)))
3488       b(27)=ans
3489       ans=ccc*(w8*(32*(p5p8*p3p6)*(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p6p8*
3490      . p3p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p3p6*p2p8)*(-3*fmb*hbcm-3*
3491      . fmc*hbcm+2*hbcm2)+8*(p6p8*p2p3)*(-fmb*hbcm-fmc*hbcm+4*hbcm2)+
3492      . 32*(p3p6*p1p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*p6p8*(2*fmb*fmc*
3493      . hbcm2+fmb*hbcm3+fmb2*hbcm2+fmc*hbcm3+fmc2*hbcm2-2*hbcm4-2*
3494      . p2p3s2)+16*(-2*p1p8*p2p3*p3p6-p2p3*p2p8*p3p6+2*p2p3*p3p4*p6p8+
3495      . 2*p2p3*p3p6*p5p8))+w1*(8*(p4p8*p3p6)*(fmb*hbcm+fmc*hbcm+2*
3496      . hbcm2)+8*(p6p8*p3p4)*(-fmb*hbcm+5*fmc*hbcm)+8*p6p8*(-fmb*fmc*
3497      . hbcm2+2*fmc*hbcm3-fmc2*hbcm2+4*p3p4s2)+16*(-3*fmc*hbcm*p1p8*
3498      . p3p6-fmc*hbcm*p2p3*p6p8-2*fmc*hbcm*p2p8*p3p6+3*fmc*hbcm*p3p6*
3499      . p5p8+hbcm2*p2p4*p6p8+hbcm2*p4p6*p4p8+hbcm2*p4p8*p5p6-2*p1p8*
3500      . p3p4*p3p6-p2p3*p3p4*p6p8-p2p8*p3p4*p3p6+2*p3p4*p3p6*p5p8))+(32
3501      . *p6p8*(fb3*fmb*hbcm+fb3*fmc*hbcm-2*fb4*hbcm2)+64*(2*fb4*p1p8*
3502      . p3p6+fb4*p2p3*p6p8+fb4*p2p8*p3p6-2*fb4*p3p4*p6p8-2*fb4*p3p6*
3503      . p5p8)))
3504       b(28)=ans
3505       ans=ccc*(w8*(16*(p5p6*p3p7)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p4p6*
3506      . p3p7)*(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p5p7*p3p6)*(-fmb*hbcm-fmc*
3507      . hbcm+hbcm2)+32*(p6p7*p3p4)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p6p7*
3508      . p2p3)*(fmb*hbcm+fmc*hbcm-4*hbcm2)+16*(p3p7*p3p6)*(fmb*fmc-fmb*
3509      . hbcm-fmc*hbcm+fmc2)+8*p6p7*(-2*fmb*fmc*hbcm2-fmb*hbcm3-fmb2*
3510      . hbcm2-fmc*hbcm3-fmc2*hbcm2+2*hbcm4+2*p2p3s2)+16*(-2*p2p3*p3p4*
3511      . p6p7-2*p2p3*p3p6*p5p7+p2p3*p3p7*p4p6+p2p3*p3p7*p5p6))+w1*(16*(
3512      . p3p7*p3p6)*(-fmc*hbcm+fmc2)+8*(p6p7*p3p4)*(fmb*hbcm-5*fmc*hbcm
3513      . )+8*p6p7*(fmb*fmc*hbcm2-2*fmc*hbcm3+fmc2*hbcm2-4*p3p4s2)+16*(
3514      . fmc*hbcm*p2p3*p6p7-3*fmc*hbcm*p3p6*p5p7+fmc*hbcm*p3p7*p4p6+fmc
3515      . *hbcm*p3p7*p5p6-hbcm2*p2p4*p6p7-hbcm2*p3p6*p4p7-hbcm2*p4p6*
3516      . p4p7-hbcm2*p4p7*p5p6+p2p3*p3p4*p6p7-2*p3p4*p3p6*p5p7+p3p4*p3p7
3517      . *p4p6+p3p4*p3p7*p5p6))+(32*p6p7*(-fb3*fmb*hbcm-fb3*fmc*hbcm+2*
3518      . fb4*hbcm2)+64*(-fb4*p2p3*p6p7+2*fb4*p3p4*p6p7+2*fb4*p3p6*p5p7-
3519      . fb4*p3p7*p4p6-fb4*p3p7*p5p6)))
3520       b(29)=ans
3521       ans2=w8*(32*(p5p8*p3p7*p3p6)*(fmc-hbcm)+32*(p6p8*p3p7*p3p5)*(-
3522      . fmc+hbcm)+16*(p3p7*p3p6*p2p8)*(-fmc+hbcm)+16*(p6p8*p3p7*p2p3)*
3523      . (3*fmc-2*hbcm)+16*(p7p8*p3p6*p2p3)*(-2*fmc+hbcm)+32*(p3p7*p3p6
3524      . *p1p8)*(-fmc+hbcm)+32*(p6p8*p3p7*p1p3)*(fmc-hbcm)+16*(p6p7*
3525      . p5p8)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+16*(p6p8*p5p7)*(fmb*hbcm2+
3526      . fmc*hbcm2-hbcm3)+16*(p7p8*p5p6)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+
3527      . 16*(p7p8*p4p6)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+16*(p6p8*p3p7)*(
3528      . fmb*hbcm2-fmb2*hbcm-2*fmc*hbcm2+fmc2*hbcm+hbcm3)+16*(p7p8*p3p6
3529      . )*(-fmb*hbcm2+fmb2*hbcm+fmc*hbcm2-fmc2*hbcm)+8*(p6p7*p2p8)*(
3530      . fmb*hbcm2+fmc*hbcm2)+16*(p6p7*p1p8)*(fmb*hbcm2+fmc*hbcm2-hbcm3
3531      . )+16*(-hbcm*p1p3*p2p8*p6p7+hbcm*p1p8*p2p3*p6p7-hbcm*p2p3*p4p6*
3532      . p7p8-hbcm*p2p3*p5p6*p7p8+hbcm*p2p3*p5p7*p6p8-hbcm*p2p3*p5p8*
3533      . p6p7+hbcm*p2p8*p3p5*p6p7-hbcm*p2p8*p3p6*p5p7+hbcm*p2p8*p3p7*
3534      . p4p6+hbcm*p2p8*p3p7*p5p6))+(8*(p6p8*p3p7)*(-8*fb4*fmc-hbcm)+8*
3535      . (p7p8*p3p6)*(8*fb3*fmc-8*fb3*hbcm+8*fb4*fmc+hbcm)+64*(fb3*hbcm
3536      . *p1p8*p6p7-fb3*hbcm*p4p6*p7p8-fb3*hbcm*p5p6*p7p8+fb3*hbcm*p5p7
3537      . *p6p8-fb3*hbcm*p5p8*p6p7))
3538       ans1=w1*(16*(p4p8*p3p7*p3p6)*(-fmc+hbcm)+16*(p6p8*p3p7*p3p4)*(3
3539      . *fmc-2*hbcm)+16*(p7p8*p3p6*p3p4)*(-2*fmc+hbcm)+32*(p6p8*p4p7)*
3540      . (-fmc*hbcm2+hbcm3)+16*(p6p8*p3p7)*(-fmc*hbcm2+2*fmc2*hbcm)+16*
3541      . (p7p8*p3p6)*(fmc*hbcm2-2*fmc2*hbcm)+8*(p6p7*p4p8)*(-fmb*hbcm2+
3542      . 3*fmc*hbcm2-4*hbcm3)+16*(-2*fmc*hbcm2*p1p8*p6p7-fmc*hbcm2*p2p8
3543      . *p6p7+fmc*hbcm2*p4p6*p7p8+fmc*hbcm2*p5p6*p7p8-2*fmc*hbcm2*p5p7
3544      . *p6p8+2*fmc*hbcm2*p5p8*p6p7-2*hbcm*p1p3*p4p7*p6p8+3*hbcm*p1p3*
3545      . p4p8*p6p7-3*hbcm*p1p8*p3p4*p6p7+2*hbcm*p1p8*p3p6*p4p7-2*hbcm*
3546      . p2p3*p4p7*p6p8+2*hbcm*p2p3*p4p8*p6p7-2*hbcm*p2p8*p3p4*p6p7+2*
3547      . hbcm*p2p8*p3p6*p4p7+hbcm*p3p4*p4p6*p7p8+hbcm*p3p4*p5p6*p7p8-3*
3548      . hbcm*p3p4*p5p7*p6p8+3*hbcm*p3p4*p5p8*p6p7+2*hbcm*p3p5*p4p7*
3549      . p6p8-3*hbcm*p3p5*p4p8*p6p7-2*hbcm*p3p6*p4p7*p5p8+3*hbcm*p3p6*
3550      . p4p8*p5p7-hbcm*p3p7*p4p6*p4p8-hbcm*p3p7*p4p8*p5p6))+ans2
3551       ans=ccc*ans1
3552       b(30)=ans
3553       ans=ccc*(w1*(16*(p6p8*p3p7)*(fmc*hbcm+fmc2)+8*(p6p7*p4p8)*(fmb*
3554      . hbcm-5*fmc*hbcm)+16*(fmc*hbcm*p2p8*p6p7+fmc*hbcm*p3p6*p7p8+fmc
3555      . *hbcm*p4p6*p7p8+3*fmc*hbcm*p4p7*p6p8+fmc*hbcm*p5p6*p7p8+p2p8*
3556      . p3p4*p6p7+p3p4*p3p6*p7p8+p3p4*p3p7*p6p8+p3p4*p4p6*p7p8+2*p3p4*
3557      . p4p7*p6p8-2*p3p4*p4p8*p6p7+p3p4*p5p6*p7p8))+w8*(16*(p7p8*p5p6)
3558      . *(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p6p7*p4p8)*(-fmb*hbcm-fmc*hbcm+
3559      . hbcm2)+32*(p6p8*p4p7)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p7p8*p4p6)
3560      . *(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p7p8*p3p6)*(fmb*hbcm+fmc*hbcm-
3561      . hbcm2)+8*(p6p7*p2p8)*(fmb*hbcm+fmc*hbcm-2*hbcm2)+16*(p6p8*p3p7
3562      . )*(fmb*fmc+fmc2-hbcm2)+16*(p2p3*p2p8*p6p7+p2p3*p3p6*p7p8+p2p3*
3563      . p3p7*p6p8+p2p3*p4p6*p7p8+2*p2p3*p4p7*p6p8-2*p2p3*p4p8*p6p7+
3564      . p2p3*p5p6*p7p8))+64*(-fb4*p2p8*p6p7-fb4*p3p6*p7p8-fb4*p3p7*
3565      . p6p8-fb4*p4p6*p7p8-2*fb4*p4p7*p6p8+2*fb4*p4p8*p6p7-fb4*p5p6*
3566      . p7p8))
3567       b(31)=ans
3568       b(32)=ccc*(w8*(16*(p5p6*p3p7)*(fmc-hbcm)+16*(p4p6*p3p7)*(fmc-
3569      . hbcm)+16*(p3p7*p3p6)*(fmc-hbcm)+8*(p6p7*p2p3)*(-fmb+3*fmc-2*
3570      . hbcm)+8*p6p7*(fmb*hbcm2-2*fmb2*hbcm-3*fmc*hbcm2+2*fmc2*hbcm+
3571      . hbcm3))+w1*(8*(p6p7*p3p4)*(-fmb+3*fmc+2*hbcm)+8*p6p7*(-fmb*fmc
3572      . *hbcm+5*fmc2*hbcm)+16*(-hbcm*p2p4*p6p7-hbcm*p3p6*p4p7-hbcm*
3573      . p4p6*p4p7-hbcm*p4p7*p5p6))+32*p6p7*(-fb3*fmc+fb4*fmb-2*fb4*fmc
3574      . ))
3575       do 200 n=1,32
3576          c(n,1)=c(n,1)+0.09090909090909091d0*b(n)
3577          c(n,2)=c(n,2)-0.01680909685530997d0*b(n)
3578          c(n,3)=c(n,3)-0.02077659977796572d0*b(n)
3579 200   continue
3580       return
3581         end
3582
3583       subroutine amp19_3p1(cc)
3584       implicit double precision(a-h,o-z)
3585       implicit integer (i-n)
3586       dimension b(32)
3587 #include "inclcon.h"
3588 #include "inclppp.h"
3589 #include "inclamp.h"
3590       do 100 n=1,32
3591          b(n)=0.0d0
3592 100   continue
3593       ccc=cc/((-2*ffmcfmb*p2p3)*(-2*ffmcfmb*p2p3+2*ffmcfmb*p3p4+2*
3594      . fmc2-2*p2p4)*(2*ffmcfmb*p1p3-fmb2-2*fmc*hbcm+fmc2+hbcm2-2*p1p3
3595      . ))
3596       b(1)=ccc*(w11*(16*(p3p6*p2p4)*(2*fmc+hbcm)+16*(-hbcm*p1p2*p4p6+
3597      . hbcm*p2p3*p4p6+4*hbcm*p2p4*p4p6+hbcm*p2p5*p4p6))+w13*(48*(p3p6
3598      . *p2p5)*(-fmc+hbcm)+32*(p3p6*p2p3)*(-fmc+hbcm)+32*(p3p6*p1p2)*(
3599      . fmc-hbcm))+(96*p4p6*(-fb3*fmc-fb4*fmc)+32*p3p6*(-fb3*ffmcfmb*
3600      . fmc-fb3*fmc-fb4*ffmcfmb*fmc-fb4*fmc)))
3601       ans=ccc*(16*w7*(ffmcfmb*p2p3*p3p6*p3p7+2*ffmcfmb*p2p3*p3p7*p4p6
3602      . +p1p2*p2p3*p6p7-3*p2p3*p2p4*p6p7-p2p3s2*p6p7)+w11*(16*(p6p7*
3603      . p2p4)*(-fmb*hbcm+3*fmc*hbcm)+16*(p3p7*p3p6)*(-ffmcfmb*fmc2-
3604      . fmc2)+16*(ffmcfmb*p2p3*p3p6*p3p7+2*ffmcfmb*p2p3*p3p7*p4p6-
3605      . ffmcfmb*p3p4*p3p6*p3p7-2*ffmcfmb*p3p4*p3p7*p4p6-fmc*hbcm*p1p2*
3606      . p6p7+fmc*hbcm*p2p3*p6p7-3*fmc2*p3p7*p4p6+p1p2*p2p3*p6p7-p1p2*
3607      . p3p4*p6p7-3*p2p3*p2p4*p6p7+p2p3*p3p4*p6p7-p2p3s2*p6p7+3*p2p4*
3608      . p3p4*p6p7))+w13*(48*(p6p7*p2p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(
3609      . p6p7*p2p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p7*p1p2)*(-fmb*hbcm
3610      . -fmc*hbcm+hbcm2)+32*(p4p6*p3p7)*(-fmb*fmc+fmc*hbcm-fmc2)+16*(
3611      . p3p7*p3p6)*(-ffmcfmb*fmb*fmc-ffmcfmb*fmc2+fmc*hbcm)+16*(-
3612      . ffmcfmb*p1p3*p3p6*p3p7-2*ffmcfmb*p1p3*p3p7*p4p6-p1p2*p1p3*p6p7
3613      . +p1p3*p2p3*p6p7+3*p1p3*p2p4*p6p7))+((p4p6*p3p7)*(128*fb4*
3614      . ffmcfmb+16)+(p3p7*p3p6)*(64*fb4*ffmcfmb+8)+32*p6p7*(fb3*fmb*
3615      . fmc+fb3*fmc2+fb4*fmb*fmc+fb4*fmc2)+64*(fb4*p1p2*p6p7-fb4*p2p3*
3616      . p6p7-3*fb4*p2p4*p6p7)))
3617       b(2)=ans
3618       ans3=w13*(64*(p5p7*p3p6*p2p8)*(-fmc+hbcm)+64*(p7p8*p3p6*p2p5)*(
3619      . fmc-hbcm)+32*(p7p8*p3p6*p2p3)*(fmc-hbcm)+32*(p7p8*p3p6*p1p2)*(
3620      . -fmc+hbcm)+16*(p6p7*p2p8*p1p3)*(fmb-3*fmc+2*hbcm)+16*(p6p7*
3621      . p2p8)*(-fmb*hbcm2+2*fmb2*hbcm+3*fmc*hbcm2-2*fmc2*hbcm-hbcm3)+
3622      . 16*(p6p8*p3p7)*(-fmb*fmc*hbcm+fmb2*fmc+fmc2*hbcm-fmc3)+32*(
3623      . p5p8*p3p7*p3p6)*(-ffmcfmb*fmc+fmc)+32*(p3p7*p3p6*p2p8)*(
3624      . ffmcfmb*fmc-2*fmc+hbcm)+16*(p3p7*p3p6*p1p8)*(ffmcfmb*fmc-fmc)+
3625      . 16*(p6p8*p3p7*p1p3)*(ffmcfmb*fmb-ffmcfmb*fmc)+16*(-fmc*p1p8*
3626      . p3p7*p4p6+hbcm*p1p2*p1p8*p6p7-hbcm*p1p8*p2p3*p6p7-2*hbcm*p1p8*
3627      . p2p5*p6p7))+(128*(p6p7*p5p8)*(fb3*fmc+fb4*fmc)+128*(p6p8*p5p7)
3628      . *(-fb3*fmc-fb4*fmc)+8*(p7p8*p4p6)*(16*fb3*fmc+16*fb4*fmc-hbcm)
3629      . +8*(p6p8*p3p7)*(-8*fb3*fmc-8*fb4*ffmcfmb*fmb+8*fb4*ffmcfmb*fmc
3630      . -8*fb4*fmc-fmb)+8*(p7p8*p3p6)*(8*fb3*fmc+8*fb4*fmc+fmc-hbcm)+
3631      . 64*(p6p7*p2p8)*(-fb3*fmc-fb4*fmb)+64*(p6p7*p1p8)*(-fb3*fmc-fb4
3632      . *fmc))
3633       ans2=w11*(16*(p4p6*p3p7*p2p8)*(fmc+2*hbcm)+32*(p4p7*p3p6*p2p8)*
3634      . (fmc+hbcm)+32*(p7p8*p3p6*p2p4)*(-fmc-hbcm)+16*(p6p7*p3p4*p2p8)
3635      . *(fmb-3*fmc-2*hbcm)+16*(p6p7*p2p8*p2p3)*(-fmb+3*fmc-hbcm)+16*(
3636      . p6p8*p3p7)*(fmb*fmc2-3*fmc3)+16*(p6p7*p2p8)*(fmb*fmc*hbcm-5*
3637      . fmc2*hbcm)+16*(p4p8*p3p7*p3p6)*(ffmcfmb*fmc+fmc)+16*(p3p7*p3p6
3638      . *p2p8)*(ffmcfmb*fmc+fmc)+16*(p6p8*p3p7*p3p4)*(ffmcfmb*fmb-
3639      . ffmcfmb*fmc-2*fmc)+16*(p6p8*p3p7*p2p3)*(-ffmcfmb*fmb+ffmcfmb*
3640      . fmc-2*fmc)+16*(2*fmc*p1p2*p3p7*p6p8+2*fmc*p1p4*p3p7*p6p8-2*fmc
3641      . *p1p8*p3p7*p4p6-4*fmc*p2p5*p3p7*p6p8+3*fmc*p3p7*p4p6*p4p8+2*
3642      . fmc*p3p7*p4p6*p5p8+hbcm*p1p2*p2p8*p6p7+2*hbcm*p1p2*p4p6*p7p8+4
3643      . *hbcm*p1p2*p4p7*p6p8-3*hbcm*p1p2*p4p8*p6p7+2*hbcm*p1p4*p2p8*
3644      . p6p7+4*hbcm*p1p8*p2p4*p6p7-2*hbcm*p2p3*p4p6*p7p8-4*hbcm*p2p3*
3645      . p4p7*p6p8+3*hbcm*p2p3*p4p8*p6p7+6*hbcm*p2p4*p2p8*p6p7+4*hbcm*
3646      . p2p4*p3p7*p6p8-6*hbcm*p2p4*p4p6*p7p8+6*hbcm*p2p4*p5p7*p6p8-6*
3647      . hbcm*p2p4*p5p8*p6p7-2*hbcm*p2p5*p2p8*p6p7-2*hbcm*p2p5*p4p6*
3648      . p7p8-6*hbcm*p2p5*p4p7*p6p8+4*hbcm*p2p5*p4p8*p6p7+6*hbcm*p2p8*
3649      . p4p6*p4p7+2*hbcm*p2p8*p4p6*p5p7))+ans3
3650       ans1=w7*(16*(p6p7*p2p8*p2p3)*(-fmb+3*fmc-hbcm)+16*(p3p7*p3p6*
3651      . p2p8)*(ffmcfmb*fmc+fmc)+16*(p6p8*p3p7*p2p3)*(-ffmcfmb*fmb+
3652      . ffmcfmb*fmc-2*fmc)+16*(2*fmc*p1p2*p3p7*p6p8-4*fmc*p2p5*p3p7*
3653      . p6p8+3*fmc*p2p8*p3p7*p4p6+hbcm*p1p2*p2p8*p6p7-2*hbcm*p2p5*p2p8
3654      . *p6p7))+ans2
3655       ans=ccc*ans1
3656       b(3)=ans
3657       b(4)=ccc*(w7*(8*(p3p7*p2p3)*(-ffmcfmb*fmb+3*ffmcfmb*fmc-4*fmc)+
3658      . 16*(2*fmc*p1p2*p3p7-3*fmc*p2p5*p3p7))+w11*(8*p3p7*(fmb*fmc2-5*
3659      . fmc3)+8*(p3p7*p3p4)*(ffmcfmb*fmb-3*ffmcfmb*fmc-2*fmc)+8*(p3p7*
3660      . p2p3)*(-ffmcfmb*fmb+3*ffmcfmb*fmc-4*fmc)+16*(2*fmc*p1p2*p3p7+
3661      . fmc*p1p4*p3p7-3*fmc*p2p5*p3p7+3*hbcm*p1p2*p4p7-3*hbcm*p2p3*
3662      . p4p7+3*hbcm*p2p4*p3p7+4*hbcm*p2p4*p5p7-4*hbcm*p2p5*p4p7))+w13*
3663      . (8*p3p7*(-fmb*fmc*hbcm+2*fmb2*fmc-fmc*hbcm2+3*fmc2*hbcm-2*fmc3
3664      . )+8*(p3p7*p1p3)*(ffmcfmb*fmb-3*ffmcfmb*fmc+2*fmc))+(96*p5p7*(-
3665      . fb3*fmc-fb4*fmc)+4*p3p7*(8*fb3*ffmcfmb*fmc-16*fb3*fmc-8*fb4*
3666      . ffmcfmb*fmb+16*fb4*ffmcfmb*fmc-16*fb4*fmc-fmb+3*fmc)))
3667       ans2=w13*(48*(p5p7*p2p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+48*(p7p8*
3668      . p2p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p7p8*p2p3)*(-fmb*hbcm-fmc
3669      . *hbcm+hbcm2)+32*(p7p8*p1p2)*(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p5p8
3670      . *p3p7)*(fmb*fmc-fmc*hbcm+fmc2)+32*(p3p7*p2p8)*(-fmb*fmc+fmb*
3671      . hbcm+2*fmc*hbcm-fmc2-hbcm2)+8*(p3p7*p1p8)*(-3*fmb*fmc+2*fmc*
3672      . hbcm-3*fmc2)+(p3p7*p2p8*p1p3)*(-32*ffmcfmb+32)+16*(-ffmcfmb*
3673      . p1p3*p1p8*p3p7+2*ffmcfmb*p1p3*p3p7*p5p8+2*p1p2*p1p3*p7p8-2*
3674      . p1p3*p2p3*p7p8-3*p1p3*p2p5*p7p8+3*p1p3*p2p8*p5p7))+((p5p8*p3p7
3675      . )*(-128*fb4*ffmcfmb-16)+(p3p7*p2p8)*(128*fb4*ffmcfmb-128*fb4+
3676      . 16)+(p3p7*p1p8)*(64*fb4*ffmcfmb+8)+4*p7p8*(8*fb3*fmb*fmc+8*fb3
3677      . *fmc2+8*fb4*fmb*fmc+8*fb4*fmc2-fmb*hbcm-fmc*hbcm)+64*(-2*fb4*
3678      . p1p2*p7p8+2*fb4*p2p3*p7p8+3*fb4*p2p5*p7p8-3*fb4*p2p8*p5p7))
3679       ans1=w7*(8*(p3p7*p2p8)*(fmb*fmc+fmc2)+(p3p7*p2p8*p2p3)*(32*
3680      . ffmcfmb-32)+16*(ffmcfmb*p1p8*p2p3*p3p7-2*ffmcfmb*p2p3*p3p7*
3681      . p5p8-2*p1p2*p2p3*p7p8+3*p2p3*p2p5*p7p8-3*p2p3*p2p8*p5p7+2*
3682      . p2p3s2*p7p8))+w11*(16*(p4p7*p2p8)*(fmb*hbcm+fmc*hbcm)+16*(p7p8
3683      . *p2p4)*(-fmb*hbcm-fmc*hbcm)+8*(p4p8*p3p7)*(fmb*fmc+fmc2)+8*(
3684      . p3p7*p2p8)*(fmb*fmc+6*fmc*hbcm-5*fmc2)+(p3p7*p3p4*p2p8)*(-32*
3685      . ffmcfmb+32)+(p3p7*p2p8*p2p3)*(32*ffmcfmb-32)+16*(ffmcfmb*p1p8*
3686      . p2p3*p3p7-ffmcfmb*p1p8*p3p4*p3p7-2*ffmcfmb*p2p3*p3p7*p5p8+2*
3687      . ffmcfmb*p3p4*p3p7*p5p8+3*fmc*hbcm*p1p2*p7p8-3*fmc*hbcm*p2p3*
3688      . p7p8-4*fmc*hbcm*p2p5*p7p8+4*fmc*hbcm*p2p8*p5p7-2*fmc2*p1p8*
3689      . p3p7+3*fmc2*p3p7*p5p8-2*p1p2*p2p3*p7p8+2*p1p2*p3p4*p7p8+3*p2p3
3690      . *p2p5*p7p8-3*p2p3*p2p8*p5p7-2*p2p3*p3p4*p7p8+2*p2p3s2*p7p8-3*
3691      . p2p5*p3p4*p7p8+3*p2p8*p3p4*p5p7))+ans2
3692       ans=ccc*ans1
3693       b(5)=ans
3694       ans2=w11*(16*(p3p7*p2p4)*(fmb*hbcm+fmc*hbcm+2*hbcm2)+16*(p4p7*
3695      . p2p3)*(-fmb*hbcm-fmc*hbcm-2*hbcm2)+8*(p3p7*p3p4)*(-fmb*fmc-4*
3696      . fmc*hbcm-fmc2)+8*(p3p7*p2p3)*(-fmb*fmc+5*fmc2)+8*p3p7*(-4*
3697      . ffmcfmb*p2p3s2-fmb*fmc2*hbcm-4*fmc2*hbcm2-fmc3*hbcm)+16*(-
3698      . ffmcfmb*p1p3*p2p3*p3p7+ffmcfmb*p1p3*p3p4*p3p7+2*ffmcfmb*p2p3*
3699      . p3p4*p3p7+2*ffmcfmb*p2p3*p3p5*p3p7-2*ffmcfmb*p3p4*p3p5*p3p7-2*
3700      . fmc*hbcm*p1p2*p3p7+fmc*hbcm*p1p4*p3p7-4*fmc*hbcm*p2p3*p5p7+2*
3701      . fmc*hbcm*p2p5*p3p7+2*fmc2*p1p3*p3p7-3*fmc2*p3p5*p3p7+2*hbcm2*
3702      . p1p2*p4p7+3*hbcm2*p2p4*p5p7-3*hbcm2*p2p5*p4p7+2*p1p2*p2p3*p3p7
3703      . -2*p1p2*p3p4*p3p7-3*p2p3*p2p5*p3p7-3*p2p3*p3p4*p5p7+3*p2p3s2*
3704      . p5p7+3*p2p5*p3p4*p3p7))+((p3p7*p3p5)*(128*fb4*ffmcfmb+16)+(
3705      . p3p7*p2p3)*(-128*fb4*ffmcfmb-16)+(p3p7*p1p3)*(-64*fb4*ffmcfmb-
3706      . 8)+64*p5p7*(-fb3*fmc*hbcm-fb4*fmc*hbcm)+4*p3p7*(-8*fb3*fmc*
3707      . hbcm-8*fb4*fmb*fmc+8*fb4*fmc*hbcm-8*fb4*fmc2+fmb*hbcm+fmc*hbcm
3708      . +2*hbcm2)+64*(2*fb4*p1p2*p3p7+3*fb4*p2p3*p5p7-3*fb4*p2p5*p3p7)
3709      . )
3710       ans1=w7*(8*(p3p7*p2p3)*(-fmb*fmc-fmc2)+16*(-ffmcfmb*p1p3*p2p3*
3711      . p3p7+2*ffmcfmb*p2p3*p3p5*p3p7-2*ffmcfmb*p2p3s2*p3p7+fmc*hbcm*
3712      . p1p2*p3p7-2*fmc*hbcm*p2p5*p3p7+2*p1p2*p2p3*p3p7-3*p2p3*p2p5*
3713      . p3p7+3*p2p3s2*p5p7))+w13*(48*(p3p7*p2p5)*(fmb*hbcm+fmc*hbcm-
3714      . hbcm2)+48*(p5p7*p2p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p3p7*p1p2
3715      . )*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p3p7*p3p5)*(-fmb*fmc+fmc*hbcm
3716      . -fmc2)+32*(p3p7*p2p3)*(fmb*fmc-fmc*hbcm+fmc2)+8*(p3p7*p1p3)*(3
3717      . *fmb*fmc-4*fmc*hbcm+3*fmc2)+8*p3p7*(2*ffmcfmb*p1p3s2-3*fmb*fmc
3718      . *hbcm2+2*fmb*fmc2*hbcm+fmb2*fmc*hbcm+2*fmc*hbcm3-3*fmc2*hbcm2+
3719      . fmc3*hbcm)+16*(2*ffmcfmb*p1p3*p2p3*p3p7-2*ffmcfmb*p1p3*p3p5*
3720      . p3p7-2*p1p2*p1p3*p3p7-3*p1p3*p2p3*p5p7+3*p1p3*p2p5*p3p7))+ans2
3721       ans=ccc*ans1
3722       b(6)=ans
3723       ans4=16*(-2*fmc*hbcm2*p1p2*p7p8+3*fmc*hbcm2*p2p5*p7p8-3*fmc*
3724      . hbcm2*p2p8*p5p7-2*fmc*p1p3*p2p8*p3p7-2*fmc*p1p3*p3p7*p4p8+2*
3725      . fmc*p1p8*p2p3*p3p7+2*fmc*p1p8*p3p4*p3p7-3*fmc*p2p3*p3p7*p4p8-3
3726      . *fmc*p2p3*p3p7*p5p8+3*fmc*p2p8*p3p5*p3p7-3*fmc*p3p4*p3p7*p5p8+
3727      . 3*fmc*p3p5*p3p7*p4p8+fmc2*hbcm*p1p8*p3p7-2*fmc2*hbcm*p3p7*p5p8
3728      . +hbcm*p1p2*p2p3*p7p8-hbcm*p1p2*p2p8*p3p7-3*hbcm*p1p2*p3p4*p7p8
3729      . +3*hbcm*p1p2*p3p7*p4p8+4*hbcm*p1p3*p2p4*p7p8-4*hbcm*p1p3*p2p8*
3730      . p4p7+2*hbcm*p1p4*p2p3*p7p8-2*hbcm*p1p4*p2p8*p3p7+4*hbcm*p1p8*
3731      . p2p3*p4p7-4*hbcm*p1p8*p2p4*p3p7+6*hbcm*p2p3*p2p4*p7p8-2*hbcm*
3732      . p2p3*p2p5*p7p8-6*hbcm*p2p3*p4p7*p5p8+4*hbcm*p2p3*p4p8*p5p7-6*
3733      . hbcm*p2p4*p2p8*p3p7-6*hbcm*p2p4*p3p5*p7p8+6*hbcm*p2p4*p3p7*
3734      . p5p8+2*hbcm*p2p5*p2p8*p3p7+4*hbcm*p2p5*p3p4*p7p8-4*hbcm*p2p5*
3735      . p3p7*p4p8-4*hbcm*p2p8*p3p4*p5p7+6*hbcm*p2p8*p3p5*p4p7)
3736       ans3=16*(p3p7*p3p4*p2p8)*(-fmb+6*fmc-hbcm)+16*p7p8*(-fmb*p2p3s2
3737      . +3*fmc*p2p3s2-hbcm*p2p3s2)+16*(p7p8*p3p4*p2p3)*(fmb-3*fmc+hbcm
3738      . )+16*(p3p7*p2p8*p2p3)*(fmb-3*fmc+hbcm)+16*(p4p7*p2p8)*(fmb*
3739      . hbcm2-3*fmc*hbcm2+4*hbcm3)+16*(p7p8*p2p4)*(-fmb*hbcm2+3*fmc*
3740      . hbcm2-4*hbcm3)+8*(p4p8*p3p7)*(fmb*fmc*hbcm+4*fmc*hbcm2-3*fmc2*
3741      . hbcm)+8*(p3p7*p2p8)*(-fmb*fmc*hbcm+11*fmc2*hbcm)+16*(p7p8*p2p3
3742      . )*(fmb*fmc*hbcm+2*fmc*hbcm2-5*fmc2*hbcm)+ans4
3743       ans2=w11*ans3
3744       ans6=(8*(p3p7*p2p8)*(8*fb3*hbcm+8*fb4*fmb-hbcm)+8*(p5p8*p3p7)*(
3745      . -8*fb3*fmc-16*fb4*fmc+hbcm)+8*(p7p8*p3p5)*(16*fb3*fmc+16*fb4*
3746      . fmc-hbcm)+8*(p7p8*p2p3)*(-8*fb3*fmc-8*fb3*hbcm-8*fb4*fmb+hbcm)
3747      . +64*(p3p7*p1p8)*(fb3*fmc+fb4*fmc)+64*(p7p8*p1p3)*(-fb3*fmc-fb4
3748      . *fmc)+4*p7p8*(8*fb3*fmb*fmc*hbcm+16*fb3*fmc*hbcm2-8*fb3*fmc2*
3749      . hbcm+8*fb4*fmb*fmc*hbcm+16*fb4*fmc*hbcm2-8*fb4*fmc2*hbcm-fmb*
3750      . hbcm2-fmc*hbcm2)+64*(fb3*hbcm*p1p2*p7p8-2*fb3*hbcm*p2p5*p7p8+2
3751      . *fb3*hbcm*p2p8*p5p7))
3752       ans5=w13*(16*(p3p7*p2p8*p1p3)*(-fmb+2*fmc-hbcm)+16*(p7p8*p2p3*
3753      . p1p3)*(fmb-3*fmc+hbcm)+32*(p5p7*p2p8)*(fmb*hbcm2+fmc*hbcm2-
3754      . hbcm3)+32*(p7p8*p2p5)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+32*(p7p8*
3755      . p2p3)*(-fmb*hbcm2+fmb2*hbcm+fmc*hbcm2-fmc2*hbcm)+16*(p7p8*p1p2
3756      . )*(fmb*hbcm2+fmc*hbcm2-hbcm3)+16*(p5p8*p3p7)*(fmb*fmc*hbcm-fmc
3757      . *hbcm2+fmc2*hbcm)+16*(p3p7*p2p8)*(-fmb*fmc*hbcm+2*fmb*hbcm2-2*
3758      . fmb2*hbcm-fmc*hbcm2+fmc2*hbcm)+8*(p3p7*p1p8)*(-fmb*fmc*hbcm-
3759      . fmc2*hbcm)+16*(fmc*p1p3*p3p7*p5p8+fmc*p1p8*p2p3*p3p7-fmc*p1p8*
3760      . p3p5*p3p7+hbcm*p1p2*p1p3*p7p8-hbcm*p1p2*p1p8*p3p7-2*hbcm*p1p3*
3761      . p2p5*p7p8+2*hbcm*p1p3*p2p8*p5p7-2*hbcm*p1p8*p2p3*p5p7+2*hbcm*
3762      . p1p8*p2p5*p3p7))+ans6
3763       ans1=w7*(16*p7p8*(-fmb*p2p3s2+3*fmc*p2p3s2-hbcm*p2p3s2)+16*(
3764      . p3p7*p2p8*p2p3)*(fmb-3*fmc+hbcm)+8*(p3p7*p2p8)*(fmb*fmc*hbcm+4
3765      . *fmc*hbcm2-3*fmc2*hbcm)+16*(-2*fmc*p1p3*p2p8*p3p7+2*fmc*p1p8*
3766      . p2p3*p3p7-3*fmc*p2p3*p3p7*p5p8+3*fmc*p2p8*p3p5*p3p7+hbcm*p1p2*
3767      . p2p3*p7p8-hbcm*p1p2*p2p8*p3p7-2*hbcm*p2p3*p2p5*p7p8+2*hbcm*
3768      . p2p5*p2p8*p3p7))+ans2+ans5
3769       ans=ccc*ans1
3770       b(7)=ans
3771       ans=ccc*(w7*((p3p6*p2p8*p2p3)*(-16*ffmcfmb-16)+16*(p1p2*p2p3*
3772      . p6p8-3*p2p3*p2p4*p6p8-3*p2p3*p2p8*p4p6-p2p3s2*p6p8))+w11*(16*(
3773      . p3p6*p2p8)*(fmc*hbcm+2*fmc2)+16*(p6p8*p2p4)*(-fmb*hbcm+3*fmc*
3774      . hbcm)+(p3p6*p3p4*p2p8)*(16*ffmcfmb+16)+(p3p6*p2p8*p2p3)*(-16*
3775      . ffmcfmb-16)+16*(-fmc*hbcm*p1p2*p6p8+fmc*hbcm*p2p3*p6p8+4*fmc*
3776      . hbcm*p2p8*p4p6+p1p2*p2p3*p6p8-p1p2*p3p4*p6p8-3*p2p3*p2p4*p6p8-
3777      . 3*p2p3*p2p8*p4p6+p2p3*p3p4*p6p8-p2p3s2*p6p8+3*p2p4*p3p4*p6p8+3
3778      . *p2p8*p3p4*p4p6))+w13*(48*(p4p6*p2p8)*(fmb*hbcm+fmc*hbcm-hbcm2
3779      . )+48*(p6p8*p2p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p8*p2p3)*(fmb
3780      . *hbcm+fmc*hbcm-hbcm2)+16*(p6p8*p1p2)*(-fmb*hbcm-fmc*hbcm+hbcm2
3781      . )+16*(p3p6*p2p8)*(2*fmb*fmc-fmc*hbcm+2*fmc2-hbcm2)+(p3p6*p2p8*
3782      . p1p3)*(16*ffmcfmb+16)+16*(-p1p2*p1p3*p6p8+p1p3*p2p3*p6p8+3*
3783      . p1p3*p2p4*p6p8+3*p1p3*p2p8*p4p6))+((p3p6*p2p8)*(-64*fb4*
3784      . ffmcfmb-64*fb4-8)+32*p6p8*(fb3*fmb*fmc+fb3*fmc2+fb4*fmb*fmc+
3785      . fb4*fmc2)+64*(fb4*p1p2*p6p8-fb4*p2p3*p6p8-3*fb4*p2p4*p6p8-3*
3786      . fb4*p2p8*p4p6)))
3787       b(8)=ans
3788       ans=ccc*(w7*(16*p3p6*(ffmcfmb*p2p3s2-p2p3s2)+16*(2*p1p2*p2p3*
3789      . p3p6-3*p2p3*p2p5*p3p6+3*p2p3s2*p4p6))+w11*(16*(p4p6*p2p3)*(-4*
3790      . fmc*hbcm+hbcm2)+32*(p3p6*p2p3)*(fmc*hbcm-fmc2)+16*(p3p6*p2p4)*
3791      . (fmb*hbcm+2*fmc*hbcm+hbcm2)+16*p3p6*(ffmcfmb*p2p3s2-p2p3s2)+(
3792      . p3p6*p3p4*p2p3)*(-16*ffmcfmb+16)+16*(-3*fmc*hbcm*p1p2*p3p6+4*
3793      . fmc*hbcm*p2p5*p3p6-hbcm2*p1p2*p4p6+3*hbcm2*p2p4*p4p6+hbcm2*
3794      . p2p5*p4p6+2*p1p2*p2p3*p3p6-2*p1p2*p3p4*p3p6-3*p2p3*p2p5*p3p6-3
3795      . *p2p3*p3p4*p4p6+3*p2p3s2*p4p6+3*p2p5*p3p4*p3p6))+w13*(16*(p3p6
3796      . *p2p5)*(3*fmb*hbcm+fmc*hbcm-hbcm2)+48*(p4p6*p2p3)*(-fmb*hbcm-
3797      . fmc*hbcm+hbcm2)+16*(p3p6*p1p2)*(-2*fmb*hbcm-fmc*hbcm+hbcm2)+32
3798      . *(p3p6*p2p3)*(-fmb*fmc+fmb*hbcm+fmc*hbcm-fmc2)+(p3p6*p2p3*p1p3
3799      . )*(-16*ffmcfmb+16)+16*(-2*p1p2*p1p3*p3p6-3*p1p3*p2p3*p4p6+3*
3800      . p1p3*p2p5*p3p6))+((p3p6*p2p3)*(64*fb4*ffmcfmb-64*fb4+8)+64*
3801      . p4p6*(-fb3*fmc*hbcm-fb4*fmc*hbcm)+32*p3p6*(-fb3*fmb*fmc-fb3*
3802      . fmc*hbcm-fb3*fmc2-fb4*fmb*fmc-fb4*fmc*hbcm-fb4*fmc2)+64*(2*fb4
3803      . *p1p2*p3p6+3*fb4*p2p3*p4p6-3*fb4*p2p5*p3p6)))
3804       b(9)=ans
3805       ans3=(128*(p5p8*p3p6)*(-fb3*fmc-fb4*fmc)+128*(p6p8*p3p5)*(fb3*
3806      . fmc+fb4*fmc)+64*(p3p6*p2p8)*(fb3*fmc+fb3*hbcm+fb4*fmb)+64*(
3807      . p6p8*p2p3)*(-fb3*fmc-fb3*hbcm-fb4*fmb)+64*(p3p6*p1p8)*(fb3*fmc
3808      . +fb4*fmc)+64*(p6p8*p1p3)*(-fb3*fmc-fb4*fmc)+32*p6p8*(fb3*fmb*
3809      . fmc*hbcm+2*fb3*fmc*hbcm2-fb3*fmc2*hbcm+fb4*fmb*fmc*hbcm+2*fb4*
3810      . fmc*hbcm2-fb4*fmc2*hbcm)+64*(fb3*hbcm*p1p2*p6p8-2*fb3*hbcm*
3811      . p2p5*p6p8+2*fb3*hbcm*p2p8*p4p6))
3812       ans2=w11*(32*(p4p8*p3p6*p2p3)*(fmc-hbcm)+16*(p4p6*p2p8)*(-fmc*
3813      . hbcm2-2*hbcm3)+16*(p3p6*p3p4*p2p8)*(-fmb+fmc+hbcm)+16*p6p8*(-
3814      . fmb*p2p3s2+3*fmc*p2p3s2-hbcm*p2p3s2)+16*(p6p8*p3p4*p2p3)*(fmb-
3815      . 3*fmc+hbcm)+16*(p3p6*p2p8*p2p3)*(fmb-3*fmc+hbcm)+16*(p6p8*p2p4
3816      . )*(-fmb*hbcm2+3*fmc*hbcm2-4*hbcm3)+16*(p3p6*p2p8)*(-fmb*fmc*
3817      . hbcm-fmc*hbcm2+4*fmc2*hbcm)+16*(p6p8*p2p3)*(fmb*fmc*hbcm+2*fmc
3818      . *hbcm2-5*fmc2*hbcm)+16*(-2*fmc*hbcm2*p1p2*p6p8+3*fmc*hbcm2*
3819      . p2p5*p6p8+hbcm*p1p2*p2p3*p6p8-hbcm*p1p2*p2p8*p3p6-3*hbcm*p1p2*
3820      . p3p4*p6p8+3*hbcm*p1p2*p3p6*p4p8+4*hbcm*p1p3*p2p4*p6p8+2*hbcm*
3821      . p1p3*p2p8*p4p6+2*hbcm*p1p4*p2p3*p6p8-2*hbcm*p1p4*p2p8*p3p6-2*
3822      . hbcm*p1p8*p2p3*p4p6-4*hbcm*p1p8*p2p4*p3p6+6*hbcm*p2p3*p2p4*
3823      . p6p8-2*hbcm*p2p3*p2p5*p6p8+4*hbcm*p2p3*p4p6*p4p8+2*hbcm*p2p3*
3824      . p4p6*p5p8-6*hbcm*p2p4*p2p8*p3p6-6*hbcm*p2p4*p3p5*p6p8+6*hbcm*
3825      . p2p4*p3p6*p5p8+2*hbcm*p2p5*p2p8*p3p6+4*hbcm*p2p5*p3p4*p6p8-4*
3826      . hbcm*p2p5*p3p6*p4p8-4*hbcm*p2p8*p3p4*p4p6-2*hbcm*p2p8*p3p5*
3827      . p4p6))+ans3
3828       ans1=w7*(16*p6p8*(-fmb*p2p3s2+3*fmc*p2p3s2-hbcm*p2p3s2)+16*(
3829      . p3p6*p2p8*p2p3)*(fmb-3*fmc+hbcm)+16*(hbcm*p1p2*p2p3*p6p8-hbcm*
3830      . p1p2*p2p8*p3p6-2*hbcm*p2p3*p2p5*p6p8+2*hbcm*p2p5*p2p8*p3p6))+
3831      . w13*(64*(p3p6*p3p5*p2p8)*(fmc-hbcm)+64*(p5p8*p3p6*p2p3)*(-fmc+
3832      . hbcm)+32*(p3p6*p2p3*p1p8)*(fmc-hbcm)+16*(p3p6*p2p8*p1p3)*(-fmb
3833      . +fmc+hbcm)+16*(p6p8*p2p3*p1p3)*(fmb-3*fmc+hbcm)+32*(p4p6*p2p8)
3834      . *(fmb*hbcm2+fmc*hbcm2-hbcm3)+32*(p6p8*p2p5)*(-fmb*hbcm2-fmc*
3835      . hbcm2+hbcm3)+32*(p6p8*p2p3)*(-fmb*hbcm2+fmb2*hbcm+fmc*hbcm2-
3836      . fmc2*hbcm)+16*(p6p8*p1p2)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+16*(p3p6
3837      . *p2p8)*(fmb*fmc*hbcm+fmb*hbcm2-2*fmb2*hbcm+fmc*hbcm2+fmc2*hbcm
3838      . -2*hbcm3)+16*(hbcm*p1p2*p1p3*p6p8-hbcm*p1p2*p1p8*p3p6-2*hbcm*
3839      . p1p3*p2p5*p6p8+2*hbcm*p1p3*p2p8*p4p6-2*hbcm*p1p8*p2p3*p4p6+2*
3840      . hbcm*p1p8*p2p5*p3p6))+ans2
3841       ans=ccc*ans1
3842       b(10)=ans
3843       ans3=w13*(64*(p3p7*p3p6*p2p5)*(-fmc+hbcm)+64*(p5p7*p3p6*p2p3)*(
3844      . fmc-hbcm)+32*(p3p7*p3p6*p1p2)*(fmc-hbcm)+16*(p6p7*p2p3*p1p3)*(
3845      . -fmb+3*fmc-hbcm)+32*(p6p7*p2p5)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+32
3846      . *(p6p7*p2p3)*(fmb*hbcm2-fmb2*hbcm-fmc*hbcm2+fmc2*hbcm)+16*(
3847      . p6p7*p1p2)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+16*(p4p6*p3p7)*(fmb*
3848      . fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+16*(p3p7*p3p6)*(fmb*fmc*hbcm-
3849      . fmb2*fmc-fmc*hbcm2+fmc3)+32*(p3p7*p3p6*p3p5)*(ffmcfmb*fmc-fmc)
3850      . +32*(p3p7*p3p6*p2p3)*(-ffmcfmb*fmc+fmc)+16*(p3p7*p3p6*p1p3)*(-
3851      . ffmcfmb*fmb+fmc)+16*(fmc*p1p3*p3p7*p4p6-hbcm*p1p2*p1p3*p6p7+2*
3852      . hbcm*p1p3*p2p5*p6p7))+(8*(p4p6*p3p7)*(-8*fb3*fmc-16*fb4*fmc+
3853      . hbcm)+128*(p5p7*p3p6)*(fb3*fmc+fb4*fmc)+128*(p6p7*p3p5)*(-fb3*
3854      . fmc-fb4*fmc)+64*(p6p7*p2p3)*(fb3*fmc+fb3*hbcm+fb4*fmb)+64*(
3855      . p6p7*p1p3)*(fb3*fmc+fb4*fmc)+32*p6p7*(-fb3*fmb*fmc*hbcm-2*fb3*
3856      . fmc*hbcm2+fb3*fmc2*hbcm-fb4*fmb*fmc*hbcm-2*fb4*fmc*hbcm2+fb4*
3857      . fmc2*hbcm)+8*(p3p7*p3p6)*(-8*fb3*ffmcfmb*fmc+8*fb3*fmc+8*fb4*
3858      . ffmcfmb*fmb-8*fb4*ffmcfmb*fmc+fmb-fmc+hbcm)+64*(-fb3*hbcm*p1p2
3859      . *p6p7+2*fb3*hbcm*p2p5*p6p7))
3860       ans2=w11*(32*(p3p7*p3p6*p2p4)*(fmc-hbcm)+32*(p4p7*p3p6*p2p3)*(-
3861      . fmc+hbcm)+16*p6p7*(fmb*p2p3s2-3*fmc*p2p3s2+hbcm*p2p3s2)+16*(
3862      . p6p7*p3p4*p2p3)*(-fmb+3*fmc-hbcm)+16*(p6p7*p2p4)*(fmb*hbcm2-3*
3863      . fmc*hbcm2+4*hbcm3)+16*(p3p7*p3p6)*(-fmb*fmc2-fmc2*hbcm+3*fmc3)
3864      . +16*(p6p7*p2p3)*(-fmb*fmc*hbcm-2*fmc*hbcm2+5*fmc2*hbcm)+16*(
3865      . p3p7*p3p6*p3p4)*(-ffmcfmb*fmb+fmc)+16*(p3p7*p3p6*p2p3)*(
3866      . ffmcfmb*fmb-2*ffmcfmb*fmc+fmc)+16*(2*fmc*hbcm2*p1p2*p6p7-3*fmc
3867      . *hbcm2*p2p5*p6p7-2*fmc*hbcm2*p3p7*p4p6-2*fmc*p1p2*p3p6*p3p7+2*
3868      . fmc*p1p3*p3p7*p4p6-2*fmc*p1p4*p3p6*p3p7-fmc*p2p3*p3p7*p4p6+4*
3869      . fmc*p2p5*p3p6*p3p7-3*fmc*p3p4*p3p7*p4p6-2*fmc*p3p5*p3p7*p4p6-
3870      . hbcm*p1p2*p2p3*p6p7+3*hbcm*p1p2*p3p4*p6p7-4*hbcm*p1p2*p3p6*
3871      . p4p7-2*hbcm*p1p2*p3p7*p4p6-4*hbcm*p1p3*p2p4*p6p7-2*hbcm*p1p4*
3872      . p2p3*p6p7-6*hbcm*p2p3*p2p4*p6p7+2*hbcm*p2p3*p2p5*p6p7-6*hbcm*
3873      . p2p3*p4p6*p4p7-2*hbcm*p2p3*p4p6*p5p7+6*hbcm*p2p4*p3p5*p6p7-6*
3874      . hbcm*p2p4*p3p6*p5p7+6*hbcm*p2p4*p3p7*p4p6-4*hbcm*p2p5*p3p4*
3875      . p6p7+6*hbcm*p2p5*p3p6*p4p7+2*hbcm*p2p5*p3p7*p4p6))+ans3
3876       ans1=w7*(16*p6p7*(fmb*p2p3s2-3*fmc*p2p3s2+hbcm*p2p3s2)+16*(p3p7
3877      . *p3p6*p2p3)*(ffmcfmb*fmb-2*ffmcfmb*fmc+fmc)+16*(-2*fmc*p1p2*
3878      . p3p6*p3p7-3*fmc*p2p3*p3p7*p4p6+4*fmc*p2p5*p3p6*p3p7-hbcm*p1p2*
3879      . p2p3*p6p7+2*hbcm*p2p3*p2p5*p6p7))+ans2
3880       ans=ccc*ans1
3881       b(11)=ans
3882       ans6=-2*p1p3*p2p3*p2p8*p6p7+2*p1p3*p2p8*p3p4*p6p7-4*p1p8*p2p3*
3883      . p3p4*p6p7+4*p1p8*p2p3s2*p6p7+2*p2p3*p2p5*p3p6*p7p8-2*p2p3*p2p5
3884      . *p3p7*p6p8-4*p2p3*p2p8*p3p4*p6p7+2*p2p3*p2p8*p3p5*p6p7-2*p2p3*
3885      . p2p8*p3p6*p5p7+8*p2p3*p2p8*p3p7*p4p6+2*p2p3*p3p4*p4p6*p7p8-6*
3886      . p2p3*p3p4*p4p7*p6p8+6*p2p3*p3p4*p4p8*p6p7-2*p2p3*p3p4*p5p7*
3887      . p6p8+2*p2p3*p3p4*p5p8*p6p7-2*p2p3s2*p4p6*p7p8+6*p2p3s2*p4p7*
3888      . p6p8-6*p2p3s2*p4p8*p6p7+2*p2p3s2*p5p7*p6p8-2*p2p3s2*p5p8*p6p7-
3889      . 2*p2p5*p3p4*p3p6*p7p8+2*p2p5*p3p4*p3p7*p6p8-2*p2p8*p3p4*p3p5*
3890      . p6p7+2*p2p8*p3p4*p3p6*p5p7-8*p2p8*p3p4*p3p7*p4p6
3891       ans5=4*ffmcfmb*p2p3*p2p8*p3p6*p3p7-2*ffmcfmb*p2p3*p3p5*p3p7*
3892      . p6p8+2*ffmcfmb*p2p3*p3p6*p3p7*p5p8-4*ffmcfmb*p2p8*p3p4*p3p6*
3893      . p3p7+2*ffmcfmb*p3p4*p3p5*p3p7*p6p8-2*ffmcfmb*p3p4*p3p6*p3p7*
3894      . p5p8+2*fmc*hbcm*p1p2*p3p6*p7p8-2*fmc*hbcm*p1p2*p3p7*p6p8+2*fmc
3895      . *hbcm*p1p3*p2p8*p6p7-2*fmc*hbcm*p1p4*p3p7*p6p8-4*fmc*hbcm*p1p8
3896      . *p2p3*p6p7+2*fmc*hbcm*p1p8*p3p7*p4p6+2*fmc*hbcm*p2p3*p4p6*p7p8
3897      . -2*fmc*hbcm*p2p3*p5p7*p6p8+2*fmc*hbcm*p2p3*p5p8*p6p7-2*fmc*
3898      . hbcm*p2p4*p3p6*p7p8-2*fmc*hbcm*p2p5*p3p6*p7p8+4*fmc*hbcm*p2p5*
3899      . p3p7*p6p8-2*fmc*hbcm*p2p8*p3p5*p6p7+2*fmc*hbcm*p2p8*p3p6*p4p7+
3900      . 2*fmc*hbcm*p2p8*p3p6*p5p7-8*fmc*hbcm*p2p8*p3p7*p4p6-2*fmc*hbcm
3901      . *p3p7*p4p6*p4p8-2*fmc*hbcm*p3p7*p4p6*p5p8-2*fmc2*p1p3*p3p7*
3902      . p6p8+2*fmc2*p1p8*p3p6*p3p7+4*fmc2*p3p5*p3p7*p6p8-4*fmc2*p3p6*
3903      . p3p7*p5p8-2*hbcm2*p1p2*p4p7*p6p8+2*hbcm2*p1p2*p4p8*p6p7-2*
3904      . hbcm2*p1p8*p2p4*p6p7-2*hbcm2*p2p4*p3p7*p6p8-2*hbcm2*p2p4*p4p6*
3905      . p7p8-4*hbcm2*p2p4*p5p7*p6p8+4*hbcm2*p2p4*p5p8*p6p7+hbcm2*p2p5*
3906      . p2p8*p6p7+4*hbcm2*p2p5*p4p7*p6p8-3*hbcm2*p2p5*p4p8*p6p7-2*
3907      . hbcm2*p2p8*p3p4*p6p7+2*hbcm2*p2p8*p4p6*p4p7-2*p1p2*p2p3*p3p6*
3908      . p7p8+2*p1p2*p2p3*p3p7*p6p8+2*p1p2*p3p4*p3p6*p7p8-2*p1p2*p3p4*
3909      . p3p7*p6p8+ans6
3910       ans4=16*ans5
3911       ans3=32*(p6p7*p2p8)*(-fmc*hbcm3+2*p2p3s2)+32*(p7p8*p3p6*p2p3)*(
3912      . -fmc*hbcm+fmc2)+16*(p6p7*p4p8*p2p3)*(-fmb*hbcm+7*fmc*hbcm-2*
3913      . hbcm2)+32*(p6p8*p4p7*p2p3)*(fmb*hbcm-3*fmc*hbcm+hbcm2)+16*(
3914      . p6p7*p2p8*p2p3)*(fmb*hbcm-5*fmc*hbcm+2*hbcm2)+16*(p4p8*p3p7*
3915      . p3p6)*(-fmb*fmc-fmc*hbcm-fmc2)+16*(p6p8*p3p7*p3p4)*(fmb*fmc+2*
3916      . fmc*hbcm+fmc2)+16*(p3p7*p3p6*p2p8)*(fmb*fmc+fmc*hbcm-5*fmc2)+
3917      . 16*(p6p8*p3p7*p2p3)*(fmb*fmc-2*fmc*hbcm-3*fmc2)+16*(p6p8*p3p7)
3918      . *(2*ffmcfmb*p2p3s2+fmb*fmc2*hbcm+2*fmc2*hbcm2+fmc3*hbcm+2*
3919      . p2p3s2)+32*(p7p8*p3p6)*(-ffmcfmb*p2p3s2+p2p3s2)+(p6p8*p3p7*
3920      . p3p4*p2p3)*(-32*ffmcfmb-32)+(p7p8*p3p6*p3p4*p2p3)*(32*ffmcfmb-
3921      . 32)+ans4
3922       ans2=w11*ans3
3923       ans9=16*(p6p7*p2p8)*(2*fmb*fmc*hbcm2-2*fmb*hbcm3+fmb2*hbcm2-2*
3924      . fmc*hbcm3+fmc2*hbcm2+hbcm4+2*p1p3s2)+(p6p8*p3p7*p2p3*p1p3)*(-
3925      . 32*ffmcfmb-32)+(p7p8*p3p6*p2p3*p1p3)*(32*ffmcfmb-32)+16*(-4*
3926      . ffmcfmb*p1p3*p2p8*p3p6*p3p7+2*ffmcfmb*p1p3*p3p5*p3p7*p6p8-2*
3927      . ffmcfmb*p1p3*p3p6*p3p7*p5p8+2*fmb*hbcm*p1p2*p3p6*p7p8-2*fmb*
3928      . hbcm*p2p5*p3p6*p7p8+2*fmb*hbcm*p2p8*p3p6*p5p7+hbcm2*p1p8*p2p5*
3929      . p6p7+2*p1p2*p1p3*p3p6*p7p8-2*p1p2*p1p3*p3p7*p6p8-4*p1p3*p1p8*
3930      . p2p3*p6p7-4*p1p3*p2p3*p2p8*p6p7+2*p1p3*p2p3*p4p6*p7p8-6*p1p3*
3931      . p2p3*p4p7*p6p8+6*p1p3*p2p3*p4p8*p6p7-2*p1p3*p2p3*p5p7*p6p8+2*
3932      . p1p3*p2p3*p5p8*p6p7-2*p1p3*p2p5*p3p6*p7p8+2*p1p3*p2p5*p3p7*
3933      . p6p8-2*p1p3*p2p8*p3p5*p6p7+2*p1p3*p2p8*p3p6*p5p7-8*p1p3*p2p8*
3934      . p3p7*p4p6)
3935       ans8=128*(p4p6*p3p7*p2p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p6p7*
3936      . p3p5*p2p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p6p8*p3p7*p2p5)*(fmb
3937      . *hbcm+fmc*hbcm-hbcm2)+32*(p6p7*p5p8*p2p3)*(fmb*hbcm+fmc*hbcm-
3938      . hbcm2)+32*(p6p8*p5p7*p2p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+96*(p6p7
3939      . *p4p8*p2p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+96*(p6p8*p4p7*p2p3)*(-
3940      . fmb*hbcm-fmc*hbcm+hbcm2)+32*(p7p8*p4p6*p2p3)*(fmb*hbcm+fmc*
3941      . hbcm-hbcm2)+64*(p6p7*p2p8*p2p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*
3942      . (p6p7*p2p3*p1p8)*(-3*fmb*hbcm-3*fmc*hbcm+4*hbcm2)+32*(p6p7*
3943      . p2p8*p1p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p6p8*p3p7*p1p2)*(-fmb
3944      . *hbcm-fmc*hbcm+hbcm2)+32*(p5p8*p3p7*p3p6)*(-fmb*fmc+fmc*hbcm-
3945      . fmc2)+32*(p6p8*p3p7*p3p5)*(fmb*fmc-fmc*hbcm+fmc2)+32*(p3p7*
3946      . p3p6*p2p8)*(-3*fmb*fmc+fmb*hbcm+2*fmc*hbcm-3*fmc2+hbcm2)+32*(
3947      . p6p8*p3p7*p2p3)*(-fmb*fmc-fmb*hbcm-fmc2+hbcm2)+32*(p7p8*p3p6*
3948      . p2p3)*(fmb*fmc-fmb*hbcm-fmc*hbcm+fmc2)+16*(p3p7*p3p6*p1p8)*(
3949      . fmb*fmc-fmc*hbcm+fmc2)+16*(p6p8*p3p7*p1p3)*(-fmb*fmc+2*fmc*
3950      . hbcm-fmc2)+16*(p6p8*p3p7)*(fmb*fmc*hbcm2-fmc*hbcm3+fmc2*hbcm2)
3951      . +ans9
3952       ans7=w13*ans8
3953       ans10=((p5p8*p3p7*p3p6)*(128*fb4*ffmcfmb+16)+(p6p8*p3p7*p3p5)*(
3954      . -128*fb4*ffmcfmb-16)+(p3p7*p3p6*p2p8)*(256*fb4*ffmcfmb+32)+(
3955      . p6p8*p3p7*p2p3)*(128*fb4*ffmcfmb+128*fb4+16)+(p7p8*p3p6*p2p3)*
3956      . (-128*fb4*ffmcfmb+128*fb4-16)+8*(p7p8*p3p6)*(8*fb3*fmc2+8*fb4*
3957      . fmc2+fmb*hbcm-fmc*hbcm+hbcm2)+64*(p6p7*p5p8)*(-fb3*fmc*hbcm-
3958      . fb4*fmc*hbcm)+64*(p6p8*p5p7)*(fb3*fmc*hbcm+fb4*fmc*hbcm)+64*(
3959      . p7p8*p4p6)*(fb3*fmc*hbcm+fb4*fmc*hbcm)+64*(p6p7*p2p8)*(fb3*fmc
3960      . *hbcm-fb4*fmc*hbcm+2*fb4*hbcm2)+8*(p6p8*p3p7)*(-8*fb3*fmb*fmc-
3961      . 8*fb4*fmc2-fmb*hbcm+fmc*hbcm)+128*(-fb4*p1p2*p3p6*p7p8+fb4*
3962      . p1p2*p3p7*p6p8-fb4*p1p3*p2p8*p6p7+2*fb4*p1p8*p2p3*p6p7+2*fb4*
3963      . p2p3*p2p8*p6p7-fb4*p2p3*p4p6*p7p8+3*fb4*p2p3*p4p7*p6p8-3*fb4*
3964      . p2p3*p4p8*p6p7+fb4*p2p3*p5p7*p6p8-fb4*p2p3*p5p8*p6p7+fb4*p2p5*
3965      . p3p6*p7p8-fb4*p2p5*p3p7*p6p8+fb4*p2p8*p3p5*p6p7-fb4*p2p8*p3p6*
3966      . p5p7+4*fb4*p2p8*p3p7*p4p6))
3967       ans1=w7*(16*(p6p7*p2p8*p2p3)*(fmb*hbcm+fmc*hbcm+2*hbcm2)+16*(
3968      . p3p7*p3p6*p2p8)*(fmb*fmc+fmc*hbcm+fmc2)+16*(p6p8*p3p7*p2p3)*(
3969      . fmb*fmc+fmc2)+32*(p6p8*p3p7)*(ffmcfmb*p2p3s2+p2p3s2)+32*(p7p8*
3970      . p3p6)*(-ffmcfmb*p2p3s2+p2p3s2)+16*(4*ffmcfmb*p2p3*p2p8*p3p6*
3971      . p3p7-2*ffmcfmb*p2p3*p3p5*p3p7*p6p8+2*ffmcfmb*p2p3*p3p6*p3p7*
3972      . p5p8+2*fmc*hbcm*p2p5*p3p7*p6p8+2*fmc*hbcm*p2p8*p3p7*p4p6+hbcm2
3973      . *p2p5*p2p8*p6p7-2*p1p2*p2p3*p3p6*p7p8+2*p1p2*p2p3*p3p7*p6p8-2*
3974      . p1p3*p2p3*p2p8*p6p7+4*p1p8*p2p3s2*p6p7+2*p2p3*p2p5*p3p6*p7p8-2
3975      . *p2p3*p2p5*p3p7*p6p8+2*p2p3*p2p8*p3p5*p6p7-2*p2p3*p2p8*p3p6*
3976      . p5p7+8*p2p3*p2p8*p3p7*p4p6+4*p2p3s2*p2p8*p6p7-2*p2p3s2*p4p6*
3977      . p7p8+6*p2p3s2*p4p7*p6p8-6*p2p3s2*p4p8*p6p7+2*p2p3s2*p5p7*p6p8-
3978      . 2*p2p3s2*p5p8*p6p7))+ans2+ans7+ans10
3979       ans=ccc*ans1
3980       b(12)=ans
3981       b(13)=ccc*(w7*(8*(p2p8*p2p3)*(-fmb+5*fmc-2*hbcm)+8*(2*hbcm*p1p2
3982      . *p2p8-3*hbcm*p2p5*p2p8))+w13*(8*(p2p8*p1p3)*(fmb-5*fmc+4*hbcm)
3983      . +8*p2p8*(-fmb*hbcm2+3*fmb2*hbcm+5*fmc*hbcm2-3*fmc2*hbcm-2*
3984      . hbcm3)+8*(2*hbcm*p1p2*p1p8-2*hbcm*p1p8*p2p3-3*hbcm*p1p8*p2p5))
3985      . +w11*(8*(p3p4*p2p8)*(fmb-5*fmc-2*hbcm)+8*(p2p8*p2p3)*(-fmb+5*
3986      . fmc-2*hbcm)+8*p2p8*(fmb*fmc*hbcm-7*fmc2*hbcm)+8*(2*hbcm*p1p2*
3987      . p2p8-4*hbcm*p1p2*p4p8+2*hbcm*p1p4*p2p8+6*hbcm*p1p8*p2p4+4*hbcm
3988      . *p2p3*p4p8+8*hbcm*p2p4*p2p8-8*hbcm*p2p4*p5p8-3*hbcm*p2p5*p2p8+
3989      . 5*hbcm*p2p5*p4p8))+(96*p5p8*(fb3*fmc+fb4*fmc)+32*p2p8*(-fb3*
3990      . fmc-fb4*fmb)+64*p1p8*(-fb3*fmc-fb4*fmc)))
3991       b(14)=ccc*(8*w7*(3*p1p2*p2p3-4*p2p3*p2p5-3*p2p3s2)+w11*(8*p2p4*
3992      . (fmb*hbcm+fmc*hbcm)+8*(-4*fmc*hbcm*p1p2+4*fmc*hbcm*p2p3+5*fmc*
3993      . hbcm*p2p5+3*p1p2*p2p3-3*p1p2*p3p4-4*p2p3*p2p5+3*p2p3*p3p4-3*
3994      . p2p3s2+4*p2p5*p3p4))+w13*(32*p2p5*(fmb*hbcm+fmc*hbcm-hbcm2)+24
3995      . *p2p3*(fmb*hbcm+fmc*hbcm-hbcm2)+24*p1p2*(-fmb*hbcm-fmc*hbcm+
3996      . hbcm2)+8*(-3*p1p2*p1p3+3*p1p3*p2p3+4*p1p3*p2p5))+16*(-fb3*fmb*
3997      . fmc-fb3*fmc2-fb4*fmb*fmc-fb4*fmc2+6*fb4*p1p2-6*fb4*p2p3-8*fb4*
3998      . p2p5))
3999       ans2=(64*p5p8*(fb3*fmc*hbcm+fb4*fmc*hbcm)+32*p1p8*(-fb3*fmc*
4000      . hbcm-fb4*fmc*hbcm)+32*p2p8*(fb3*fmb*hbcm-3*fb4*fmc*hbcm+4*fb4*
4001      . hbcm2)+64*(-2*fb4*p1p3*p2p8+2*fb4*p1p8*p2p3-3*fb4*p2p3*p5p8+3*
4002      . fb4*p2p8*p3p5))
4003       ans1=8*w7*(hbcm2*p1p2*p2p8+3*hbcm2*p2p3*p2p8-2*hbcm2*p2p5*p2p8-
4004      . 4*p1p3*p2p3*p2p8+4*p1p8*p2p3s2+6*p2p3*p2p8*p3p5-6*p2p3s2*p5p8)
4005      . +w13*(48*(p3p5*p2p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+48*(p5p8*p2p3)
4006      . *(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p2p3*p1p8)*(-5*fmb*hbcm-5*fmc*
4007      . hbcm+3*hbcm2)+8*(p2p8*p1p3)*(5*fmb*hbcm+5*fmc*hbcm-6*hbcm2)+8*
4008      . p2p8*(4*fmb*fmc*hbcm2-5*fmb*hbcm3+2*fmb2*hbcm2-5*fmc*hbcm3+2*
4009      . fmc2*hbcm2+3*hbcm4+4*p1p3s2)+8*(hbcm2*p1p2*p1p8-2*hbcm2*p1p8*
4010      . p2p5-4*p1p3*p1p8*p2p3+6*p1p3*p2p3*p5p8-6*p1p3*p2p8*p3p5))+w11*
4011      . (8*(p3p4*p2p8)*(-fmb*hbcm-fmc*hbcm-6*hbcm2)+8*(p4p8*p2p3)*(fmb
4012      . *hbcm+fmc*hbcm+3*hbcm2)+8*p2p8*(-fmb*fmc*hbcm2-6*fmc*hbcm3-
4013      . fmc2*hbcm2)+8*(6*fmc*hbcm*p1p3*p2p8-6*fmc*hbcm*p1p8*p2p3+8*fmc
4014      . *hbcm*p2p3*p5p8-8*fmc*hbcm*p2p8*p3p5+hbcm2*p1p2*p2p8-3*hbcm2*
4015      . p1p2*p4p8+2*hbcm2*p1p4*p2p8+4*hbcm2*p1p8*p2p4+3*hbcm2*p2p3*
4016      . p2p8+6*hbcm2*p2p4*p2p8-6*hbcm2*p2p4*p5p8-2*hbcm2*p2p5*p2p8+4*
4017      . hbcm2*p2p5*p4p8-4*p1p3*p2p3*p2p8+4*p1p3*p2p8*p3p4-4*p1p8*p2p3*
4018      . p3p4+4*p1p8*p2p3s2+6*p2p3*p2p8*p3p5+6*p2p3*p3p4*p5p8-6*p2p3s2*
4019      . p5p8-6*p2p8*p3p4*p3p5))+ans2
4020       ans=ccc*ans1
4021       b(15)=ans
4022       ans=ccc*(8*w7*(fmb*p2p3s2-5*fmc*p2p3s2-2*hbcm*p1p2*p2p3+3*hbcm*
4023      . p2p3*p2p5+2*hbcm*p2p3s2)+w13*(8*(p2p3*p1p3)*(-fmb+5*fmc-2*hbcm
4024      . )+24*p2p5*(fmb*hbcm2+fmc*hbcm2-hbcm3)+24*p2p3*(fmb*hbcm2-fmb2*
4025      . hbcm-fmc*hbcm2+fmc2*hbcm)+16*p1p2*(-fmb*hbcm2-fmc*hbcm2+hbcm3)
4026      . +8*(-2*hbcm*p1p2*p1p3+3*hbcm*p1p3*p2p5))+w11*(8*(p3p4*p2p3)*(-
4027      . fmb+5*fmc-2*hbcm)+8*p2p4*(fmb*hbcm2-5*fmc*hbcm2+6*hbcm3)+8*
4028      . p2p3*(-fmb*fmc*hbcm-3*fmc*hbcm2+7*fmc2*hbcm)+8*(fmb*p2p3s2+3*
4029      . fmc*hbcm2*p1p2-4*fmc*hbcm2*p2p5-5*fmc*p2p3s2-2*hbcm*p1p2*p2p3+
4030      . 4*hbcm*p1p2*p3p4-6*hbcm*p1p3*p2p4-2*hbcm*p1p4*p2p3-8*hbcm*p2p3
4031      . *p2p4+3*hbcm*p2p3*p2p5+2*hbcm*p2p3s2+8*hbcm*p2p4*p3p5-5*hbcm*
4032      . p2p5*p3p4))+(96*p3p5*(-fb3*fmc-fb4*fmc)+32*p2p3*(fb3*fmc+2*fb3
4033      . *hbcm+fb4*fmb)+64*p1p3*(fb3*fmc+fb4*fmc)+16*(-fb3*fmb*fmc*hbcm
4034      . -4*fb3*fmc*hbcm2+3*fb3*fmc2*hbcm-4*fb3*hbcm*p1p2+6*fb3*hbcm*
4035      . p2p5-fb4*fmb*fmc*hbcm-4*fb4*fmc*hbcm2+3*fb4*fmc2*hbcm)))
4036       b(16)=ans
4037       b(17)=ccc*(w7*(8*(p3p6*p2p8)*(fmc+hbcm)+8*(p6p8*p2p3)*(fmb-5*
4038      . fmc)+24*hbcm*p2p8*p4p6)+w13*(48*(p5p8*p3p6)*(fmc-hbcm)+16*(
4039      . p3p6*p2p8)*(-fmc+hbcm)+8*(p3p6*p1p8)*(-3*fmc+5*hbcm)+8*(p6p8*
4040      . p1p3)*(-fmb+5*fmc-4*hbcm)+8*p6p8*(fmb*hbcm2-3*fmb2*hbcm-5*fmc*
4041      . hbcm2+3*fmc2*hbcm+2*hbcm3)+24*hbcm*p1p8*p4p6)+w11*(8*(p4p8*
4042      . p3p6)*(-3*fmc-hbcm)+8*(p3p6*p2p8)*(fmc+hbcm)+8*(p6p8*p3p4)*(-
4043      . fmb+5*fmc+2*hbcm)+8*(p6p8*p2p3)*(fmb-5*fmc)+8*p6p8*(-fmb*fmc*
4044      . hbcm+7*fmc2*hbcm)+8*(-2*hbcm*p1p4*p6p8+2*hbcm*p1p8*p4p6-6*hbcm
4045      . *p2p4*p6p8+3*hbcm*p2p8*p4p6-5*hbcm*p4p6*p4p8-2*hbcm*p4p6*p5p8)
4046      . )+4*p6p8*(8*fb4*fmb-8*fb4*fmc-hbcm))
4047       b(18)=ccc*(w7*((p3p6*p2p3)*(-16*ffmcfmb-8)-32*p2p3*p4p6)+w11*(8
4048      . *p3p6*(fmc*hbcm+3*fmc2)+(p3p6*p3p4)*(16*ffmcfmb+8)+(p3p6*p2p3)
4049      . *(-16*ffmcfmb-8)+8*(5*fmc*hbcm*p4p6-4*p2p3*p4p6+4*p3p4*p4p6))+
4050      . w13*(32*p4p6*(fmb*hbcm+fmc*hbcm-hbcm2)+8*p3p6*(3*fmb*fmc-2*fmc
4051      . *hbcm+3*fmc2-hbcm2)+(p3p6*p1p3)*(16*ffmcfmb+8)+32*p1p3*p4p6)+(
4052      . p3p6*(-64*fb4*ffmcfmb-32*fb4-8)-128*fb4*p4p6))
4053       b(19)=ccc*(w7*(4*p2p8*(fmb*hbcm2-3*fmc*hbcm2+4*hbcm3)+8*(-2*
4054      . hbcm*p1p3*p2p8+2*hbcm*p1p8*p2p3-3*hbcm*p2p3*p5p8+3*hbcm*p2p8*
4055      . p3p5))+w11*(4*p4p8*(-fmb*hbcm2+7*fmc*hbcm2-8*hbcm3)+4*p2p8*(
4056      . fmb*hbcm2-5*fmc*hbcm2+4*hbcm3)+8*(-3*fmc*hbcm2*p1p8+4*fmc*
4057      . hbcm2*p5p8-2*hbcm*p1p3*p2p8+4*hbcm*p1p3*p4p8+2*hbcm*p1p8*p2p3-
4058      . 4*hbcm*p1p8*p3p4+hbcm*p2p3*p4p8-3*hbcm*p2p3*p5p8-hbcm*p2p8*
4059      . p3p4+3*hbcm*p2p8*p3p5+5*hbcm*p3p4*p5p8-5*hbcm*p3p5*p4p8))+w13*
4060      . (24*p5p8*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+8*p2p8*(fmb*hbcm2+fmc*
4061      . hbcm2-hbcm3)+4*p1p8*(5*fmb*hbcm2+fmc*hbcm2)+8*(hbcm*p1p3*p2p8-
4062      . 3*hbcm*p1p3*p5p8-hbcm*p1p8*p2p3+3*hbcm*p1p8*p3p5))+32*(2*fb3*
4063      . hbcm*p1p8+fb3*hbcm*p2p8-3*fb3*hbcm*p5p8))
4064       b(20)=ccc*(w7*(4*p2p8*(fmb*hbcm+fmc*hbcm)+8*(-3*p1p8*p2p3-p2p3*
4065      . p2p8+4*p2p3*p5p8))+w11*(4*p4p8*(-fmb*hbcm-fmc*hbcm)+4*p2p8*(
4066      . fmb*hbcm+3*fmc*hbcm)+8*(4*fmc*hbcm*p1p8-5*fmc*hbcm*p5p8-3*p1p8
4067      . *p2p3+3*p1p8*p3p4-p2p3*p2p8+4*p2p3*p5p8+p2p8*p3p4-4*p3p4*p5p8)
4068      . )+w13*(32*p5p8*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*p2p8*(fmb*hbcm+fmc
4069      . *hbcm-hbcm2)+4*p1p8*(7*fmb*hbcm+7*fmc*hbcm-6*hbcm2)+8*(3*p1p3*
4070      . p1p8+p1p3*p2p8-4*p1p3*p5p8))+32*(-3*fb4*p1p8-fb4*p2p8+4*fb4*
4071      . p5p8))
4072       b(21)=ccc*(w7*(8*(p3p7*p2p8)*(-3*fmc+2*hbcm)+8*(p7p8*p2p3)*(fmb
4073      . -5*fmc)+8*(-4*fmc*p1p8*p3p7+6*fmc*p3p7*p5p8+3*hbcm*p2p8*p5p7))
4074      . +w13*(8*(p3p7*p1p8)*(-fmc+2*hbcm)+8*(p7p8*p1p3)*(-fmb+5*fmc-4*
4075      . hbcm)+8*p7p8*(fmb*hbcm2-3*fmb2*hbcm-5*fmc*hbcm2+3*fmc2*hbcm+2*
4076      . hbcm3)+24*hbcm*p1p8*p5p7)+w11*(8*(p4p8*p3p7)*(3*fmc-4*hbcm)+8*
4077      . (p3p7*p2p8)*(-3*fmc+2*hbcm)+8*(p7p8*p3p4)*(-fmb+5*fmc+2*hbcm)+
4078      . 8*(p7p8*p2p3)*(fmb-5*fmc)+8*p7p8*(-fmb*fmc*hbcm+7*fmc2*hbcm)+8
4079      . *(-4*fmc*p1p8*p3p7+6*fmc*p3p7*p5p8-2*hbcm*p1p4*p7p8-6*hbcm*
4080      . p1p8*p4p7-6*hbcm*p2p4*p7p8-2*hbcm*p2p8*p4p7+3*hbcm*p2p8*p5p7+8
4081      . *hbcm*p4p7*p5p8-5*hbcm*p4p8*p5p7))+4*p7p8*(8*fb4*fmb-8*fb4*fmc
4082      . -hbcm))
4083       b(22)=ccc*(4*w7*p2p3*(fmb-7*fmc)+w13*(4*p1p3*(-fmb+7*fmc-6*hbcm
4084      . )+4*(fmb*hbcm2-4*fmb2*hbcm-7*fmc*hbcm2+4*fmc2*hbcm+3*hbcm3))+
4085      . w11*(4*p3p4*(-fmb+7*fmc+2*hbcm)+4*p2p3*(fmb-7*fmc)+4*(-fmb*fmc
4086      . *hbcm+9*fmc2*hbcm-2*hbcm*p1p4-8*hbcm*p2p4))+16*(fb4*fmb-fb4*
4087      . fmc))
4088       b(23)=ccc*(w7*(8*p3p7*(-fmb*fmc-fmc2)+(p3p7*p2p3)*(-16*ffmcfmb+
4089      . 24)+32*p2p3*p5p7)+w11*(8*p4p7*(-fmb*hbcm-fmc*hbcm)+8*p3p7*(-
4090      . fmb*fmc-4*fmc*hbcm+2*fmc2)+(p3p7*p3p4)*(16*ffmcfmb-24)+(p3p7*
4091      . p2p3)*(-16*ffmcfmb+24)+8*(-5*fmc*hbcm*p5p7+4*p2p3*p5p7-4*p3p4*
4092      . p5p7))+w13*(32*p5p7*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*p3p7*(2*fmb*
4093      . fmc-3*fmb*hbcm-5*fmc*hbcm+2*fmc2+3*hbcm2)+(p3p7*p1p3)*(16*
4094      . ffmcfmb-24)-32*p1p3*p5p7)+(p3p7*(-64*fb4*ffmcfmb+96*fb4-8)+128
4095      . *fb4*p5p7))
4096       ans=ccc*(w7*(4*p2p3*(-fmb*hbcm-fmc*hbcm-6*hbcm2)+8*(3*p1p3*p2p3
4097      . -4*p2p3*p3p5+p2p3s2))+w13*(32*p3p5*(fmb*hbcm+fmc*hbcm-hbcm2)+8
4098      . *p2p3*(-fmb*hbcm-fmc*hbcm+hbcm2)+4*p1p3*(-7*fmb*hbcm-7*fmc*
4099      . hbcm+8*hbcm2)+4*(-6*fmb*fmc*hbcm2+7*fmb*hbcm3-3*fmb2*hbcm2+7*
4100      . fmc*hbcm3-3*fmc2*hbcm2-4*hbcm4-2*p1p3*p2p3+8*p1p3*p3p5-6*
4101      . p1p3s2))+w11*(4*p3p4*(fmb*hbcm+fmc*hbcm+8*hbcm2)+4*p2p3*(-fmb*
4102      . hbcm-3*fmc*hbcm-6*hbcm2)+4*(fmb*fmc*hbcm2-8*fmc*hbcm*p1p3+10*
4103      . fmc*hbcm*p3p5+8*fmc*hbcm3+fmc2*hbcm2-2*hbcm2*p1p4-6*hbcm2*p2p4
4104      . +6*p1p3*p2p3-6*p1p3*p3p4-2*p2p3*p3p4-8*p2p3*p3p5+2*p2p3s2+8*
4105      . p3p4*p3p5))+16*(-fb3*fmb*hbcm-fb3*fmc*hbcm+4*fb4*fmc*hbcm-6*
4106      . fb4*hbcm2+6*fb4*p1p3+2*fb4*p2p3-8*fb4*p3p5))
4107       b(24)=ans
4108       ans=ccc*(w11*(8*p3p7*(-fmc*hbcm2-6*fmc2*hbcm)+8*(p3p7*p3p4)*(
4109      . fmb-8*fmc+2*hbcm)+8*(p3p7*p2p3)*(-fmb+8*fmc-2*hbcm)+8*p4p7*(-
4110      . fmb*hbcm2+5*fmc*hbcm2-6*hbcm3)+8*(4*fmc*hbcm2*p5p7+4*fmc*p1p3*
4111      . p3p7-6*fmc*p3p5*p3p7+6*hbcm*p1p3*p4p7+2*hbcm*p1p4*p3p7+2*hbcm*
4112      . p2p3*p4p7-3*hbcm*p2p3*p5p7+6*hbcm*p2p4*p3p7+5*hbcm*p3p4*p5p7-8
4113      . *hbcm*p3p5*p4p7))+w7*(8*(p3p7*p2p3)*(-fmb+8*fmc-2*hbcm)+8*p3p7
4114      . *(-fmb*fmc*hbcm-4*fmc*hbcm2+3*fmc2*hbcm)+8*(4*fmc*p1p3*p3p7-6*
4115      . fmc*p3p5*p3p7-3*hbcm*p2p3*p5p7))+w13*(8*(p3p7*p1p3)*(fmb-4*fmc
4116      . +2*hbcm)+24*p5p7*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+8*p3p7*(fmb*fmc*
4117      . hbcm-3*fmb*hbcm2+3*fmb2*hbcm+2*fmc*hbcm2-2*fmc2*hbcm)-24*hbcm*
4118      . p1p3*p5p7)+(4*p3p7*(8*fb3*fmc-16*fb3*hbcm-8*fb4*fmb+8*fb4*fmc+
4119      . hbcm)-96*fb3*hbcm*p5p7))
4120       b(25)=ans
4121       b(26)=ccc*(w7*(8*(p3p6*p2p3)*(-fmb+4*fmc-hbcm)-24*hbcm*p2p3*
4122      . p4p6)+w13*(48*(p3p6*p3p5)*(-fmc+hbcm)+16*(p3p6*p2p3)*(fmc-hbcm
4123      . )+8*(p3p6*p1p3)*(fmb-2*fmc-hbcm)+24*p4p6*(-fmb*hbcm2-fmc*hbcm2
4124      . +hbcm3)+8*p3p6*(-2*fmb*fmc*hbcm-fmb*hbcm2+3*fmb2*hbcm-2*fmc*
4125      . hbcm2-fmc2*hbcm+3*hbcm3)-24*hbcm*p1p3*p4p6)+w11*(16*p4p6*(fmc*
4126      . hbcm2+hbcm3)+8*(p3p6*p3p4)*(fmb-2*fmc-hbcm)+8*(p3p6*p2p3)*(-
4127      . fmb+4*fmc-hbcm)+8*p3p6*(fmb*fmc*hbcm+fmc*hbcm2-5*fmc2*hbcm)+8*
4128      . (-2*hbcm*p1p3*p4p6+2*hbcm*p1p4*p3p6-3*hbcm*p2p3*p4p6+6*hbcm*
4129      . p2p4*p3p6+5*hbcm*p3p4*p4p6+2*hbcm*p3p5*p4p6))+(4*p3p6*(-8*fb3*
4130      . fmc-8*fb3*hbcm-8*fb4*fmb+8*fb4*fmc+hbcm)-96*fb3*hbcm*p4p6))
4131       ans2=w11*(8*(p4p8*p3p7)*(-fmb*hbcm+fmc*hbcm-3*hbcm2)+8*(p7p8*
4132      . p3p4)*(fmb*hbcm+fmc*hbcm+6*hbcm2)+8*(p3p7*p2p8)*(fmb*hbcm+fmc*
4133      . hbcm+hbcm2)+8*(p7p8*p2p3)*(-fmb*hbcm-3*fmc*hbcm-4*hbcm2)+8*
4134      . p7p8*(fmb*fmc*hbcm2+6*fmc*hbcm3+fmc2*hbcm2+2*p2p3s2)+16*(-3*
4135      . fmc*hbcm*p1p3*p7p8+2*fmc*hbcm*p1p8*p3p7+4*fmc*hbcm*p3p5*p7p8-2
4136      . *fmc*hbcm*p3p7*p5p8-hbcm2*p1p4*p7p8-2*hbcm2*p1p8*p4p7-2*hbcm2*
4137      . p2p4*p7p8-hbcm2*p2p8*p4p7+hbcm2*p2p8*p5p7+3*hbcm2*p4p7*p5p8-2*
4138      . hbcm2*p4p8*p5p7+2*p1p3*p2p3*p7p8-2*p1p3*p3p4*p7p8-2*p1p8*p2p3*
4139      . p3p7+2*p1p8*p3p4*p3p7-p2p3*p2p8*p3p7-p2p3*p3p4*p7p8-3*p2p3*
4140      . p3p5*p7p8+3*p2p3*p3p7*p5p8+p2p8*p3p4*p3p7+3*p3p4*p3p5*p7p8-3*
4141      . p3p4*p3p7*p5p8))+(32*p7p8*(-fb3*fmb*hbcm-fb3*fmc*hbcm+2*fb4*
4142      . fmc*hbcm-4*fb4*hbcm2)+64*(2*fb4*p1p3*p7p8-2*fb4*p1p8*p3p7+fb4*
4143      . p2p3*p7p8-fb4*p2p8*p3p7-3*fb4*p3p5*p7p8+3*fb4*p3p7*p5p8))
4144       ans1=w7*(8*(p3p7*p2p8)*(fmb*hbcm-fmc*hbcm+hbcm2)+8*(p7p8*p2p3)*
4145      . (-fmb*hbcm-fmc*hbcm-4*hbcm2)+16*(-fmc*hbcm*p1p8*p3p7+2*fmc*
4146      . hbcm*p3p7*p5p8+hbcm2*p2p8*p5p7+2*p1p3*p2p3*p7p8-2*p1p8*p2p3*
4147      . p3p7-p2p3*p2p8*p3p7-3*p2p3*p3p5*p7p8+3*p2p3*p3p7*p5p8+p2p3s2*
4148      . p7p8))+w13*(48*(p5p8*p3p7)*(-fmb*hbcm-fmc*hbcm+hbcm2)+48*(p7p8
4149      . *p3p5)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p3p7*p2p8)*(fmb*hbcm+fmc*
4150      . hbcm-hbcm2)+16*(p7p8*p2p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p3p7*
4151      . p1p8)*(5*fmb*hbcm+5*fmc*hbcm-3*hbcm2)+8*(p7p8*p1p3)*(-5*fmb*
4152      . hbcm-5*fmc*hbcm+6*hbcm2)+8*p7p8*(-4*fmb*fmc*hbcm2+5*fmb*hbcm3-
4153      . 2*fmb2*hbcm2+5*fmc*hbcm3-2*fmc2*hbcm2-3*hbcm4-4*p1p3s2)+16*(
4154      . hbcm2*p1p8*p5p7+2*p1p3*p1p8*p3p7-p1p3*p2p3*p7p8+p1p3*p2p8*p3p7
4155      . +3*p1p3*p3p5*p7p8-3*p1p3*p3p7*p5p8))+ans2
4156       ans=ccc*ans1
4157       b(27)=ans
4158       ans2=w11*(8*(p4p8*p3p6)*(fmb*hbcm+3*fmc*hbcm+hbcm2)+8*(p6p8*
4159      . p3p4)*(-fmb*hbcm+7*fmc*hbcm)+8*(p3p6*p2p8)*(-fmb*hbcm-3*fmc*
4160      . hbcm-hbcm2)+8*(p6p8*p2p3)*(fmb*hbcm-5*fmc*hbcm-2*hbcm2)+8*p6p8
4161      . *(-fmb*fmc*hbcm2+2*fmc*hbcm3-fmc2*hbcm2+4*p2p3s2+6*p3p4s2)+16*
4162      . (-fmc*hbcm*p1p3*p6p8-3*fmc*hbcm*p1p8*p3p6+4*fmc*hbcm*p3p6*p5p8
4163      . +hbcm2*p1p4*p6p8-hbcm2*p1p8*p4p6+2*hbcm2*p2p4*p6p8-hbcm2*p2p8*
4164      . p4p6+2*hbcm2*p4p6*p4p8+hbcm2*p4p6*p5p8+p1p3*p2p3*p6p8-p1p3*
4165      . p3p4*p6p8+2*p1p8*p2p3*p3p6-2*p1p8*p3p4*p3p6+p2p3*p2p8*p3p6-5*
4166      . p2p3*p3p4*p6p8-3*p2p3*p3p6*p5p8-p2p8*p3p4*p3p6+3*p3p4*p3p6*
4167      . p5p8))+(32*p6p8*(fb3*fmb*hbcm+fb3*fmc*hbcm-2*fb4*fmc*hbcm-2*
4168      . fb4*hbcm2)+64*(fb4*p1p3*p6p8+2*fb4*p1p8*p3p6+2*fb4*p2p3*p6p8+
4169      . fb4*p2p8*p3p6-3*fb4*p3p4*p6p8-3*fb4*p3p6*p5p8))
4170       ans1=w7*(8*(p3p6*p2p8)*(-fmb*hbcm-fmc*hbcm-hbcm2)+8*(p6p8*p2p3)
4171      . *(fmb*hbcm+fmc*hbcm-2*hbcm2)+16*(-hbcm2*p2p8*p4p6+p1p3*p2p3*
4172      . p6p8+2*p1p8*p2p3*p3p6+p2p3*p2p8*p3p6-3*p2p3*p3p4*p6p8-3*p2p3*
4173      . p3p6*p5p8+2*p2p3s2*p6p8))+w13*(16*(p5p8*p3p6)*(3*fmb*hbcm+fmc*
4174      . hbcm-hbcm2)+48*(p6p8*p3p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p6p8*
4175      . p2p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p3p6*p1p8)*(-5*fmb*hbcm-3*
4176      . fmc*hbcm+hbcm2)+8*(p6p8*p1p3)*(-fmb*hbcm-fmc*hbcm+6*hbcm2)+8*
4177      . p6p8*(4*fmb*fmc*hbcm2+fmb*hbcm3+2*fmb2*hbcm2+fmc*hbcm3+2*fmc2*
4178      . hbcm2-3*hbcm4-2*p1p3s2)+16*(-fmb*hbcm*p2p8*p3p6-hbcm2*p1p8*
4179      . p4p6-2*p1p3*p1p8*p3p6-2*p1p3*p2p3*p6p8-p1p3*p2p8*p3p6+3*p1p3*
4180      . p3p4*p6p8+3*p1p3*p3p6*p5p8))+ans2
4181       ans=ccc*ans1
4182       b(28)=ans
4183       ans2=w13*(48*(p4p6*p3p7)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p5p7*
4184      . p3p6)*(-3*fmb*hbcm-fmc*hbcm+hbcm2)+48*(p6p7*p3p4)*(-fmb*hbcm-
4185      . fmc*hbcm+hbcm2)+32*(p6p7*p2p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(
4186      . p6p7*p1p3)*(fmb*hbcm+fmc*hbcm-6*hbcm2)+16*(p3p7*p3p6)*(3*fmb*
4187      . fmc-2*fmb*hbcm-3*fmc*hbcm+3*fmc2)+8*p6p7*(-4*fmb*fmc*hbcm2-fmb
4188      . *hbcm3-2*fmb2*hbcm2-fmc*hbcm3-2*fmc2*hbcm2+3*hbcm4+2*p1p3s2)+(
4189      . p3p7*p3p6*p1p3)*(32*ffmcfmb-16)+16*(2*p1p3*p2p3*p6p7-3*p1p3*
4190      . p3p4*p6p7-3*p1p3*p3p6*p5p7+3*p1p3*p3p7*p4p6))+((p3p7*p3p6)*(-
4191      . 128*fb4*ffmcfmb+64*fb4-16)+32*p6p7*(-fb3*fmb*hbcm-fb3*fmc*hbcm
4192      . +2*fb4*fmc*hbcm+2*fb4*hbcm2)+64*(-fb4*p1p3*p6p7-2*fb4*p2p3*
4193      . p6p7+3*fb4*p3p4*p6p7+3*fb4*p3p6*p5p7-3*fb4*p3p7*p4p6))
4194       ans1=w7*(8*(p6p7*p2p3)*(-fmb*hbcm-fmc*hbcm+2*hbcm2)+16*(p3p7*
4195      . p3p6)*(-fmb*fmc-fmc*hbcm-fmc2)+(p3p7*p3p6*p2p3)*(-32*ffmcfmb+
4196      . 16)+16*(-2*fmc*hbcm*p3p7*p4p6-p1p3*p2p3*p6p7+3*p2p3*p3p4*p6p7+
4197      . 3*p2p3*p3p6*p5p7-3*p2p3*p3p7*p4p6-2*p2p3s2*p6p7))+w11*(16*(
4198      . p4p6*p3p7)*(3*fmc*hbcm-hbcm2)+16*(p4p7*p3p6)*(-fmb*hbcm-2*fmc*
4199      . hbcm-hbcm2)+8*(p6p7*p3p4)*(fmb*hbcm-7*fmc*hbcm)+8*(p6p7*p2p3)*
4200      . (-fmb*hbcm+5*fmc*hbcm+2*hbcm2)+16*(p3p7*p3p6)*(-fmb*fmc-3*fmc*
4201      . hbcm+3*fmc2)+8*p6p7*(fmb*fmc*hbcm2-2*fmc*hbcm3+fmc2*hbcm2-4*
4202      . p2p3s2-6*p3p4s2)+(p3p7*p3p6*p3p4)*(32*ffmcfmb-16)+(p3p7*p3p6*
4203      . p2p3)*(-32*ffmcfmb+16)+16*(fmc*hbcm*p1p3*p6p7-4*fmc*hbcm*p3p6*
4204      . p5p7-hbcm2*p1p4*p6p7-2*hbcm2*p2p4*p6p7-3*hbcm2*p4p6*p4p7-hbcm2
4205      . *p4p6*p5p7-p1p3*p2p3*p6p7+p1p3*p3p4*p6p7+5*p2p3*p3p4*p6p7+3*
4206      . p2p3*p3p6*p5p7-3*p2p3*p3p7*p4p6-3*p3p4*p3p6*p5p7+3*p3p4*p3p7*
4207      . p4p6))+ans2
4208       ans=ccc*ans1
4209       b(29)=ans
4210       ans5=16*(-2*fmc*hbcm2*p1p8*p6p7-3*fmc*hbcm2*p5p7*p6p8+3*fmc*
4211      . hbcm2*p5p8*p6p7-2*fmc*p1p3*p3p7*p6p8+2*fmc*p1p8*p3p6*p3p7+2*
4212      . fmc*p2p8*p3p6*p3p7+4*fmc*p3p5*p3p7*p6p8-4*fmc*p3p6*p3p7*p5p8+5
4213      . *fmc2*hbcm*p3p7*p6p8-hbcm*p1p3*p2p8*p6p7-2*hbcm*p1p3*p4p6*p7p8
4214      . -4*hbcm*p1p3*p4p7*p6p8+3*hbcm*p1p3*p4p8*p6p7+2*hbcm*p1p4*p3p6*
4215      . p7p8-2*hbcm*p1p4*p3p7*p6p8+hbcm*p1p8*p2p3*p6p7-3*hbcm*p1p8*
4216      . p3p4*p6p7+4*hbcm*p1p8*p3p6*p4p7+2*hbcm*p1p8*p3p7*p4p6-2*hbcm*
4217      . p2p3*p4p6*p7p8-2*hbcm*p2p3*p4p7*p6p8+hbcm*p2p3*p4p8*p6p7+2*
4218      . hbcm*p2p3*p5p7*p6p8-2*hbcm*p2p3*p5p8*p6p7+4*hbcm*p2p4*p3p6*
4219      . p7p8-4*hbcm*p2p4*p3p7*p6p8-hbcm*p2p8*p3p4*p6p7+2*hbcm*p2p8*
4220      . p3p5*p6p7+2*hbcm*p2p8*p3p6*p4p7-2*hbcm*p2p8*p3p6*p5p7+2*hbcm*
4221      . p2p8*p3p7*p4p6+4*hbcm*p3p4*p4p6*p7p8-4*hbcm*p3p4*p5p7*p6p8+4*
4222      . hbcm*p3p4*p5p8*p6p7+2*hbcm*p3p5*p4p6*p7p8+6*hbcm*p3p5*p4p7*
4223      . p6p8-4*hbcm*p3p5*p4p8*p6p7-6*hbcm*p3p6*p4p7*p5p8+4*hbcm*p3p6*
4224      . p4p8*p5p7-4*hbcm*p3p7*p4p6*p4p8-2*hbcm*p3p7*p4p6*p5p8)
4225       ans4=32*(p4p8*p3p7*p3p6)*(-2*fmc+hbcm)+16*(p7p8*p4p6)*(fmc*
4226      . hbcm2+2*hbcm3)+16*(p6p8*p3p7*p3p4)*(-fmb+5*fmc-hbcm)+16*(p7p8*
4227      . p3p6*p3p4)*(fmb-fmc-hbcm)+16*(p6p8*p3p7*p2p3)*(fmb-5*fmc+hbcm)
4228      . +16*(p7p8*p3p6*p2p3)*(-fmb+3*fmc-hbcm)+8*(p6p7*p4p8)*(-fmb*
4229      . hbcm2+5*fmc*hbcm2-6*hbcm3)+16*(p6p8*p4p7)*(fmb*hbcm2-3*fmc*
4230      . hbcm2+4*hbcm3)+8*(p6p7*p2p8)*(fmb*hbcm2-3*fmc*hbcm2+2*hbcm3)+
4231      . 16*(p7p8*p3p6)*(fmb*fmc*hbcm+fmc*hbcm2-4*fmc2*hbcm)+ans5
4232       ans3=w11*ans4
4233       ans6=(64*(p6p8*p3p7)*(fb3*hbcm+fb4*fmb-fb4*fmc)+64*(p7p8*p3p6)*
4234      . (-fb3*hbcm-fb4*fmb+fb4*fmc)+64*(fb3*hbcm*p1p8*p6p7+fb3*hbcm*
4235      . p2p8*p6p7-2*fb3*hbcm*p4p6*p7p8+2*fb3*hbcm*p5p7*p6p8-2*fb3*hbcm
4236      . *p5p8*p6p7))
4237       ans2=w13*(64*(p5p8*p3p7*p3p6)*(fmc-hbcm)+64*(p7p8*p3p6*p3p5)*(-
4238      . fmc+hbcm)+32*(p3p7*p3p6*p2p8)*(-fmc+hbcm)+32*(p7p8*p3p6*p2p3)*
4239      . (fmc-hbcm)+32*(p3p7*p3p6*p1p8)*(-fmc+hbcm)+16*(p6p8*p3p7*p1p3)
4240      . *(-fmb+3*fmc-hbcm)+16*(p7p8*p3p6*p1p3)*(fmb-fmc-hbcm)+32*(p6p7
4241      . *p5p8)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+32*(p6p8*p5p7)*(fmb*hbcm2+
4242      . fmc*hbcm2-hbcm3)+32*(p7p8*p4p6)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+
4243      . 32*(p6p8*p3p7)*(fmb*hbcm2-fmb2*hbcm-fmc*hbcm2+fmc2*hbcm)+16*(
4244      . p6p7*p2p8)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+8*(p6p7*p1p8)*(3*fmb*
4245      . hbcm2+fmc*hbcm2)+16*(p7p8*p3p6)*(-fmb*fmc*hbcm-fmb*hbcm2+2*
4246      . fmb2*hbcm-fmc*hbcm2-fmc2*hbcm+2*hbcm3)+16*(hbcm*p1p3*p2p8*p6p7
4247      . -2*hbcm*p1p3*p4p6*p7p8+2*hbcm*p1p3*p5p7*p6p8-2*hbcm*p1p3*p5p8*
4248      . p6p7-hbcm*p1p8*p2p3*p6p7+2*hbcm*p1p8*p3p5*p6p7-2*hbcm*p1p8*
4249      . p3p6*p5p7+2*hbcm*p1p8*p3p7*p4p6))+ans3+ans6
4250       ans1=w7*(16*(p6p8*p3p7*p2p3)*(fmb-5*fmc+hbcm)+16*(p7p8*p3p6*
4251      . p2p3)*(-fmb+3*fmc-hbcm)+8*(p6p7*p2p8)*(fmb*hbcm2-fmc*hbcm2+2*
4252      . hbcm3)+16*(p6p8*p3p7)*(fmb*fmc*hbcm+2*fmc*hbcm2-fmc2*hbcm)+16*
4253      . (-2*fmc*p1p3*p3p7*p6p8+2*fmc*p1p8*p3p6*p3p7+2*fmc*p2p8*p3p6*
4254      . p3p7+4*fmc*p3p5*p3p7*p6p8-4*fmc*p3p6*p3p7*p5p8-hbcm*p1p3*p2p8*
4255      . p6p7+hbcm*p1p8*p2p3*p6p7-2*hbcm*p2p3*p4p6*p7p8+2*hbcm*p2p3*
4256      . p5p7*p6p8-2*hbcm*p2p3*p5p8*p6p7+2*hbcm*p2p8*p3p5*p6p7-2*hbcm*
4257      . p2p8*p3p6*p5p7+2*hbcm*p2p8*p3p7*p4p6))+ans2
4258       ans=ccc*ans1
4259       b(30)=ans
4260       ans2=w13*(48*(p6p7*p4p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+48*(p6p8*
4261      . p4p7)*(fmb*hbcm+fmc*hbcm-hbcm2)+48*(p7p8*p4p6)*(fmb*hbcm+fmc*
4262      . hbcm-hbcm2)+32*(p6p7*p2p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p6p7*
4263      . p1p8)*(fmb*hbcm+fmc*hbcm-2*hbcm2)+16*(p6p8*p3p7)*(fmb*fmc+fmb*
4264      . hbcm+fmc2-hbcm2)+16*(p7p8*p3p6)*(2*fmb*fmc-fmc*hbcm+2*fmc2-
4265      . hbcm2)+(p6p8*p3p7*p1p3)*(16*ffmcfmb+16)+(p7p8*p3p6*p1p3)*(16*
4266      . ffmcfmb+16)+16*(p1p3*p1p8*p6p7+2*p1p3*p2p8*p6p7+3*p1p3*p4p6*
4267      . p7p8+3*p1p3*p4p7*p6p8-3*p1p3*p4p8*p6p7))+((p6p8*p3p7)*(-64*fb4
4268      . *ffmcfmb-64*fb4-8)+(p7p8*p3p6)*(-64*fb4*ffmcfmb-64*fb4-8)+64*(
4269      . -fb4*p1p8*p6p7-2*fb4*p2p8*p6p7-3*fb4*p4p6*p7p8-3*fb4*p4p7*p6p8
4270      . +3*fb4*p4p8*p6p7))
4271       ans1=w7*(8*(p6p7*p2p8)*(-fmb*hbcm-fmc*hbcm)+16*(p6p8*p3p7)*(-
4272      . fmb*fmc-fmc2)+(p6p8*p3p7*p2p3)*(-16*ffmcfmb-16)+(p7p8*p3p6*
4273      . p2p3)*(-16*ffmcfmb-16)+16*(-p1p8*p2p3*p6p7-2*p2p3*p2p8*p6p7-3*
4274      . p2p3*p4p6*p7p8-3*p2p3*p4p7*p6p8+3*p2p3*p4p8*p6p7))+w11*(16*(
4275      . p7p8*p3p6)*(fmc*hbcm+2*fmc2)+8*(p6p7*p4p8)*(fmb*hbcm-7*fmc*
4276      . hbcm)+16*(p6p8*p4p7)*(-fmb*hbcm+3*fmc*hbcm)+8*(p6p7*p2p8)*(-
4277      . fmb*hbcm+5*fmc*hbcm)+16*(p6p8*p3p7)*(-fmb*fmc+fmc*hbcm+fmc2)+(
4278      . p6p8*p3p7*p3p4)*(16*ffmcfmb+16)+(p7p8*p3p6*p3p4)*(16*ffmcfmb+
4279      . 16)+(p6p8*p3p7*p2p3)*(-16*ffmcfmb-16)+(p7p8*p3p6*p2p3)*(-16*
4280      . ffmcfmb-16)+16*(fmc*hbcm*p1p8*p6p7+4*fmc*hbcm*p4p6*p7p8-p1p8*
4281      . p2p3*p6p7+p1p8*p3p4*p6p7-2*p2p3*p2p8*p6p7-3*p2p3*p4p6*p7p8-3*
4282      . p2p3*p4p7*p6p8+3*p2p3*p4p8*p6p7+2*p2p8*p3p4*p6p7+3*p3p4*p4p6*
4283      . p7p8+3*p3p4*p4p7*p6p8-3*p3p4*p4p8*p6p7))+ans2
4284       ans=ccc*ans1
4285       b(31)=ans
4286       b(32)=ccc*(w7*(8*(p6p7*p2p3)*(fmb-5*fmc)+16*(p3p7*p3p6)*(-
4287      . ffmcfmb*fmc-fmc)-48*fmc*p3p7*p4p6)+w13*(48*(p5p7*p3p6)*(fmc-
4288      . hbcm)+8*(p6p7*p1p3)*(-fmb+5*fmc-4*hbcm)+8*p6p7*(fmb*hbcm2-3*
4289      . fmb2*hbcm-5*fmc*hbcm2+3*fmc2*hbcm+2*hbcm3)+16*(p3p7*p3p6)*(-
4290      . ffmcfmb*fmc+3*fmc-2*hbcm))+w11*(16*(p4p6*p3p7)*(-2*fmc-hbcm)+
4291      . 16*(p4p7*p3p6)*(-2*fmc-hbcm)+8*(p6p7*p3p4)*(-fmb+5*fmc+2*hbcm)
4292      . +8*(p6p7*p2p3)*(fmb-5*fmc)+8*p6p7*(-fmb*fmc*hbcm+7*fmc2*hbcm)+
4293      . 16*(p3p7*p3p6)*(-ffmcfmb*fmc-fmc)+16*(-hbcm*p1p4*p6p7-3*hbcm*
4294      . p2p4*p6p7-4*hbcm*p4p6*p4p7-hbcm*p4p6*p5p7))+32*p6p7*(fb4*fmb-
4295      . fb4*fmc))
4296       do 200 n=1,32
4297          c(n,1)=c(n,1)-0.09090909090909091d0*b(n)
4298          c(n,2)=c(n,2)-0.1680909685530997d0*b(n)
4299          c(n,3)=c(n,3)-0.2077659977796572d0*b(n)
4300 200   continue
4301       return
4302         end
4303
4304       subroutine amp1s1_3p1(cc)
4305       implicit double precision(a-h,o-z)
4306       implicit integer (i-n)
4307       dimension b(12)
4308 #include "inclcon.h"
4309 #include "inclppp.h"
4310 #include "inclamp.h"
4311       do 100 n=1,12
4312          b(n)=0.0d0
4313 100   continue
4314       ccc=cc/((-2*ffmcfmb*p3p5+fmb2-2*fmc*hbcm+fmc2+hbcm2+2*p3p5)*(2*
4315      . ffmcfmb*p3p4+2*fmc2))
4316       b(1)=4*ccc*(hbcm*p4p6*w1-hbcm*p5p6*w2)
4317       b(2)=ccc*(4*w1*(3*fmc*hbcm*p6p7+p3p4*p6p7)+4*w2*(-3*fmb*hbcm*
4318      . p6p7-p3p5*p6p7)-16*fb4*p6p7)
4319       b(3)=ccc*(4*w2*(2*hbcm*p5p6*p7p8-3*hbcm*p5p8*p6p7)+4*w1*(2*hbcm
4320      . *p4p7*p6p8-3*hbcm*p4p8*p6p7))
4321       b(4)=4*ccc*(hbcm*p4p7*w1-hbcm*p5p7*w2)
4322       b(5)=ccc*(4*w1*(fmc*hbcm*p7p8+p3p4*p7p8)+4*w2*(-fmb*hbcm*p7p8-
4323      . p3p5*p7p8)-16*fb4*p7p8)
4324       b(6)=ccc*(4*w1*(-fmc*hbcm*p3p7+hbcm2*p4p7-p3p4*p3p7)+4*w2*(fmb*
4325      . hbcm*p3p7-hbcm2*p5p7+p3p5*p3p7)+16*fb4*p3p7)
4326       b(7)=ccc*(4*w1*(-fmc*hbcm2*p7p8-hbcm*p3p4*p7p8+hbcm*p3p7*p4p8)+
4327      . 4*w2*(-fmb*hbcm2*p7p8-hbcm*p3p5*p7p8+hbcm*p3p7*p5p8)+16*fb3*
4328      . hbcm*p7p8)
4329       b(8)=ccc*(4*w1*(fmc*hbcm*p6p8+p3p4*p6p8)+4*w2*(-fmb*hbcm*p6p8-
4330      . p3p5*p6p8)-16*fb4*p6p8)
4331       b(9)=ccc*(4*w1*(-fmc*hbcm*p3p6+hbcm2*p4p6-p3p4*p3p6)+4*w2*(fmb*
4332      . hbcm*p3p6-hbcm2*p5p6+p3p5*p3p6)+16*fb4*p3p6)
4333       b(10)=ccc*(4*w1*(-fmc*hbcm2*p6p8-hbcm*p3p4*p6p8+hbcm*p3p6*p4p8)
4334      . +4*w2*(-fmb*hbcm2*p6p8-hbcm*p3p5*p6p8+hbcm*p3p6*p5p8)+16*fb3*
4335      . hbcm*p6p8)
4336       b(11)=ccc*(4*w1*(fmc*hbcm2*p6p7+3*hbcm*p3p4*p6p7-2*hbcm*p3p6*
4337      . p4p7)+4*w2*(fmb*hbcm2*p6p7+3*hbcm*p3p5*p6p7-2*hbcm*p3p7*p5p6)+
4338      . 16*fb3*hbcm*p6p7)
4339       b(12)=ccc*(4*w1*(-2*hbcm2*p4p6*p7p8-2*hbcm2*p4p7*p6p8+hbcm2*
4340      . p4p8*p6p7)+4*hbcm2*p5p8*p6p7*w2)
4341       do 200 n=1,12
4342          c(n,1)=c(n,1)+1d0*b(n)
4343 200   continue
4344       return
4345         end
4346
4347       subroutine amp27_3p1(cc)
4348       implicit double precision(a-h,o-z)
4349       implicit integer (i-n)
4350       dimension b(32)
4351 #include "inclcon.h"
4352 #include "inclppp.h"
4353 #include "inclamp.h"
4354       do 100 n=1,32
4355          b(n)=0.0d0
4356 100   continue
4357       ccc=cc/((-2*p2p5)*(2*ffmcfmb*p3p4+2*fmc2)*(2*ffmcfmb*p2p3-2*
4358      . ffmcfmb*p3p5+fmb2-2*fmc*hbcm+fmc2+hbcm2-2*p2p3-2*p2p5+2*p3p5))
4359       b(1)=ccc*(16*w16*(-fmc*p2p5*p3p6-2*hbcm*p2p5*p4p6)-8*hbcm*p2p5*
4360      . p4p6*w1)
4361       b(2)=ccc*(w1*(8*(p5p7*p4p6)*(-fmb*hbcm+3*fmc*hbcm+hbcm2)+8*(-2*
4362      . fmc*hbcm*p5p6*p5p7+2*fmc2*p3p6*p5p7+p3p4*p3p6*p5p7+3*p3p4*p4p6
4363      . *p5p7-p3p4*p5p6*p5p7))+w16*(16*(p5p7*p5p6)*(-fmc*hbcm+hbcm2)+8
4364      . *(-2*fmb*fmc*p3p6*p5p7-4*fmb*hbcm*p4p6*p5p7+p2p3*p3p6*p5p7+3*
4365      . p2p3*p4p6*p5p7-p2p3*p5p6*p5p7-p3p5*p3p6*p5p7-3*p3p5*p4p6*p5p7+
4366      . p3p5*p5p6*p5p7))+32*(-fb4*p3p6*p5p7-3*fb4*p4p6*p5p7+fb4*p5p6*
4367      . p5p7))
4368       b(3)=ccc*(w16*(16*(p6p8*p5p7*p3p5)*(fmb-fmc+hbcm)+16*(p6p8*p5p7
4369      . *p2p3)*(-fmb+fmc-hbcm)+16*(p6p8*p5p7)*(-fmb*fmc*hbcm+fmb*hbcm2
4370      . +fmb2*hbcm)+16*(fmc*p2p8*p3p6*p5p7-fmc*p3p6*p5p7*p5p8-2*hbcm*
4371      . p2p5*p5p7*p6p8+2*hbcm*p2p8*p4p6*p5p7+hbcm*p2p8*p5p6*p5p7-2*
4372      . hbcm*p4p6*p5p7*p5p8-hbcm*p5p6*p5p7*p5p8))+w1*(16*(p6p8*p5p7*
4373      . p3p4)*(-fmb+fmc)+16*(p6p8*p5p7)*(-fmb*fmc*hbcm+fmc*hbcm2)+16*(
4374      . -fmc*p3p6*p4p8*p5p7-hbcm*p1p4*p5p7*p6p8+hbcm*p1p8*p4p6*p5p7+
4375      . hbcm*p2p4*p5p7*p6p8+hbcm*p2p8*p4p6*p5p7-hbcm*p4p5*p5p7*p6p8-
4376      . hbcm*p4p6*p4p8*p5p7-hbcm*p4p6*p5p7*p5p8+hbcm*p4p8*p5p6*p5p7))+
4377      . 32*(p6p8*p5p7)*(fb3*fmc-2*fb3*hbcm+2*fb4*fmb-fb4*fmc))
4378       b(4)=ccc*(w16*(4*(p5p7*p3p5)*(3*fmb-5*fmc+3*hbcm)+4*(p5p7*p2p3)
4379      . *(-3*fmb+5*fmc-3*hbcm)+12*p5p7*(-fmb*fmc*hbcm+fmb*hbcm2+fmb2*
4380      . hbcm)+8*(hbcm*p1p2*p5p7-hbcm*p1p5*p5p7+hbcm*p2p4*p5p7-3*hbcm*
4381      . p2p5*p5p7-hbcm*p4p5*p5p7))+w1*(4*(p5p7*p3p4)*(-3*fmb+5*fmc+
4382      . hbcm)+12*p5p7*(-fmb*fmc*hbcm+fmc*hbcm2+fmc2*hbcm)+8*(-hbcm*
4383      . p1p4*p5p7+hbcm*p2p4*p5p7-hbcm*p4p5*p5p7))+48*p5p7*(-fb3*hbcm+
4384      . fb4*fmb-fb4*fmc))
4385       b(5)=ccc*(w1*(4*(p5p7*p4p8)*(-3*fmb*hbcm-fmc*hbcm+3*hbcm2)+8*(
4386      . fmc*hbcm*p1p8*p5p7+3*fmc*hbcm*p2p8*p5p7-3*fmc*hbcm*p5p7*p5p8+
4387      . p1p8*p3p4*p5p7+3*p2p8*p3p4*p5p7+p3p4*p4p8*p5p7-3*p3p4*p5p7*
4388      . p5p8))+w16*(12*(p5p8*p5p7)*(fmb*hbcm-fmc*hbcm+hbcm2)+12*(p5p7*
4389      . p2p8)*(-fmb*hbcm+fmc*hbcm-hbcm2)+8*(-fmb*hbcm*p1p8*p5p7-fmb*
4390      . hbcm*p4p8*p5p7+p1p8*p2p3*p5p7-p1p8*p3p5*p5p7+3*p2p3*p2p8*p5p7+
4391      . p2p3*p4p8*p5p7-3*p2p3*p5p7*p5p8-3*p2p8*p3p5*p5p7-p3p5*p4p8*
4392      . p5p7+3*p3p5*p5p7*p5p8))+32*(-fb4*p1p8*p5p7-3*fb4*p2p8*p5p7-fb4
4393      . *p4p8*p5p7+3*fb4*p5p7*p5p8))
4394       ans=ccc*(w16*(12*(p5p7*p3p5)*(-fmb*hbcm+fmc*hbcm-hbcm2)+12*(
4395      . p5p7*p2p3)*(fmb*hbcm-fmc*hbcm+hbcm2)+4*p5p7*(5*fmb*fmc*hbcm2-3
4396      . *fmb*hbcm3+3*fmb2*hbcm2-6*p2p3s2-6*p3p5s2)+8*(fmb*hbcm*p1p3*
4397      . p5p7+fmb*hbcm*p3p4*p5p7+hbcm2*p1p2*p5p7-hbcm2*p1p5*p5p7+hbcm2*
4398      . p2p4*p5p7-3*hbcm2*p2p5*p5p7-hbcm2*p4p5*p5p7-p1p3*p2p3*p5p7+
4399      . p1p3*p3p5*p5p7-p2p3*p3p4*p5p7+6*p2p3*p3p5*p5p7+p3p4*p3p5*p5p7)
4400      . )+w1*(4*(p5p7*p3p4)*(3*fmb*hbcm+fmc*hbcm+hbcm2)+4*p5p7*(3*fmb*
4401      . fmc*hbcm2+3*fmc*hbcm3+fmc2*hbcm2-2*p3p4s2)+8*(-fmc*hbcm*p1p3*
4402      . p5p7-3*fmc*hbcm*p2p3*p5p7+3*fmc*hbcm*p3p5*p5p7-hbcm2*p1p4*p5p7
4403      . +hbcm2*p2p4*p5p7-hbcm2*p4p5*p5p7-p1p3*p3p4*p5p7-3*p2p3*p3p4*
4404      . p5p7+3*p3p4*p3p5*p5p7))+(8*p5p7*(-6*fb3*fmb*hbcm-6*fb3*fmc*
4405      . hbcm+4*fb4*fmc*hbcm-6*fb4*hbcm2-hbcm2)+32*(fb4*p1p3*p5p7+3*fb4
4406      . *p2p3*p5p7+fb4*p3p4*p5p7-3*fb4*p3p5*p5p7)))
4407       b(6)=ans
4408       b(7)=ccc*(w1*(12*(p5p7*p4p8)*(-fmb*hbcm2+fmc*hbcm2-hbcm3)+8*(-
4409      . fmc*hbcm2*p1p8*p5p7-3*fmc*hbcm2*p2p8*p5p7+3*fmc*hbcm2*p5p7*
4410      . p5p8+hbcm*p1p3*p4p8*p5p7-hbcm*p1p8*p3p4*p5p7+3*hbcm*p2p3*p4p8*
4411      . p5p7-3*hbcm*p2p8*p3p4*p5p7+3*hbcm*p3p4*p5p7*p5p8-3*hbcm*p3p5*
4412      . p4p8*p5p7))+w16*(4*(p5p8*p5p7)*(3*fmb*hbcm2+5*fmc*hbcm2-3*
4413      . hbcm3)+4*(p5p7*p2p8)*(-3*fmb*hbcm2-5*fmc*hbcm2+3*hbcm3)+8*(-
4414      . fmb*hbcm2*p1p8*p5p7-fmb*hbcm2*p4p8*p5p7-hbcm*p1p3*p2p8*p5p7+
4415      . hbcm*p1p3*p5p7*p5p8+hbcm*p1p8*p2p3*p5p7-hbcm*p1p8*p3p5*p5p7+
4416      . hbcm*p2p3*p4p8*p5p7-hbcm*p2p8*p3p4*p5p7+hbcm*p3p4*p5p7*p5p8-
4417      . hbcm*p3p5*p4p8*p5p7))+32*(fb3*hbcm*p1p8*p5p7+3*fb3*hbcm*p2p8*
4418      . p5p7+fb3*hbcm*p4p8*p5p7-3*fb3*hbcm*p5p7*p5p8))
4419       b(8)=ccc*(8*w1*(fmc*hbcm*p1p2*p6p8-fmc*hbcm*p2p3*p6p8-fmc*hbcm*
4420      . p2p4*p6p8+fmc*hbcm*p2p5*p6p8+p1p2*p3p4*p6p8-p2p3*p3p4*p6p8-
4421      . p2p4*p3p4*p6p8+p2p5*p3p4*p6p8)+w16*(8*(p6p8*p2p5)*(fmb*hbcm+2*
4422      . fmc*hbcm-2*hbcm2)+8*(-fmb*hbcm*p1p2*p6p8+fmb*hbcm*p2p3*p6p8+
4423      . fmb*hbcm*p2p4*p6p8+p1p2*p2p3*p6p8-p1p2*p3p5*p6p8-p2p3*p2p4*
4424      . p6p8+p2p3*p2p5*p6p8+p2p3*p3p5*p6p8-p2p3s2*p6p8+p2p4*p3p5*p6p8-
4425      . p2p5*p3p5*p6p8))+32*(-fb4*p1p2*p6p8+fb4*p2p3*p6p8+fb4*p2p4*
4426      . p6p8-fb4*p2p5*p6p8))
4427       b(9)=ccc*(w16*(8*(p3p6*p2p5)*(-2*fmc*hbcm+hbcm2)+8*(-3*hbcm2*
4428      . p2p5*p4p6-hbcm2*p2p5*p5p6-2*p2p3*p2p5*p3p6+2*p2p5*p3p5*p3p6))+
4429      . 8*w1*(-2*fmc*hbcm*p2p5*p3p6-hbcm2*p2p5*p4p6-2*p2p5*p3p4*p3p6)+
4430      . 64*fb4*p2p5*p3p6)
4431       b(10)=ccc*(w16*(16*(p6p8*p2p5)*(-fmc*hbcm2+hbcm3)+16*(-hbcm*
4432      . p2p3*p2p5*p6p8+hbcm*p2p5*p2p8*p3p6+hbcm*p2p5*p3p5*p6p8-hbcm*
4433      . p2p5*p3p6*p5p8))+16*w1*(-fmc*hbcm2*p2p5*p6p8-hbcm*p2p5*p3p4*
4434      . p6p8+hbcm*p2p5*p3p6*p4p8)+64*fb3*hbcm*p2p5*p6p8)
4435       b(11)=ccc*(w16*(16*(p5p7*p3p6*p3p5)*(-fmb+2*fmc-hbcm)+16*(p5p7*
4436      . p3p6*p2p3)*(fmb-2*fmc+hbcm)+8*(p5p7*p5p6)*(fmb*hbcm2-2*fmc*
4437      . hbcm2+2*hbcm3)+8*(p5p7*p3p6)*(2*fmb*fmc*hbcm-fmb*hbcm2-2*fmb2*
4438      . hbcm)+8*(3*fmb*hbcm2*p4p6*p5p7-4*hbcm*p2p3*p4p6*p5p7-2*hbcm*
4439      . p2p3*p5p6*p5p7+4*hbcm*p2p5*p3p6*p5p7+4*hbcm*p3p5*p4p6*p5p7+2*
4440      . hbcm*p3p5*p5p6*p5p7))+w1*(8*(p5p7*p4p6)*(fmb*hbcm2+hbcm3)+8*(
4441      . p5p7*p3p6)*(2*fmb*fmc*hbcm-fmc*hbcm2)+8*(2*fmb*p3p4*p3p6*p5p7-
4442      . fmc*hbcm2*p5p6*p5p7-2*hbcm*p1p3*p4p6*p5p7+2*hbcm*p1p4*p3p6*
4443      . p5p7-2*hbcm*p2p3*p4p6*p5p7-2*hbcm*p2p4*p3p6*p5p7+2*hbcm*p3p4*
4444      . p4p6*p5p7-2*hbcm*p3p4*p5p6*p5p7+2*hbcm*p3p5*p4p6*p5p7+2*hbcm*
4445      . p3p6*p4p5*p5p7))+(32*(p5p7*p3p6)*(fb3*fmc-2*fb4*fmb+fb4*fmc)-
4446      . 64*fb3*hbcm*p4p6*p5p7))
4447       ans2=w1*(8*(p5p7*p4p8*p3p6)*(2*fmb*hbcm+2*fmc*hbcm-hbcm2)+16*(
4448      . p6p8*p5p7*p3p4)*(-fmb*hbcm-fmc*hbcm)+16*(p6p8*p5p7)*(-fmb*fmc*
4449      . hbcm2-fmc*hbcm3)+8*(2*fmc*hbcm*p2p3*p3p7*p6p8+2*fmc*hbcm*p2p3*
4450      . p4p7*p6p8+6*fmc*hbcm*p2p3*p5p7*p6p8+4*fmc*hbcm*p2p5*p3p6*p7p8-
4451      . 4*fmc*hbcm*p2p5*p3p7*p6p8-4*fmc*hbcm*p2p8*p3p6*p5p7-4*fmc*hbcm
4452      . *p3p5*p5p7*p6p8+4*fmc*hbcm*p3p6*p5p7*p5p8+2*hbcm2*p1p4*p5p7*
4453      . p6p8-2*hbcm2*p1p8*p4p6*p5p7-2*hbcm2*p2p4*p5p7*p6p8+2*hbcm2*
4454      . p2p5*p4p6*p7p8-2*hbcm2*p2p8*p4p6*p5p7+2*hbcm2*p4p5*p5p7*p6p8+
4455      . hbcm2*p4p6*p4p8*p5p7+2*hbcm2*p4p6*p5p7*p5p8-hbcm2*p4p8*p5p6*
4456      . p5p7+2*p2p3*p3p4*p3p7*p6p8+2*p2p3*p3p4*p4p7*p6p8+6*p2p3*p3p4*
4457      . p5p7*p6p8+4*p2p5*p3p4*p3p6*p7p8-4*p2p5*p3p4*p3p7*p6p8-4*p2p8*
4458      . p3p4*p3p6*p5p7-4*p3p4*p3p5*p5p7*p6p8+4*p3p4*p3p6*p5p7*p5p8))+(
4459      . 8*(p6p8*p5p7)*(8*fb3*fmb*hbcm+4*fb3*fmc*hbcm-4*fb4*fmc*hbcm+8*
4460      . fb4*hbcm2+hbcm2)+64*(-fb4*p2p3*p3p7*p6p8-fb4*p2p3*p4p7*p6p8-3*
4461      . fb4*p2p3*p5p7*p6p8-2*fb4*p2p5*p3p6*p7p8+2*fb4*p2p5*p3p7*p6p8+2
4462      . *fb4*p2p8*p3p6*p5p7+2*fb4*p3p5*p5p7*p6p8-2*fb4*p3p6*p5p7*p5p8)
4463      . )
4464       ans1=w16*(32*(p6p8*p3p7*p2p5)*(-fmc*hbcm+hbcm2)+16*(p7p8*p3p6*
4465      . p2p5)*(2*fmc*hbcm-hbcm2)+8*(p5p8*p5p7*p3p6)*(-2*fmb*hbcm+2*fmc
4466      . *hbcm-hbcm2)+16*(p6p8*p5p7*p3p5)*(fmb*hbcm-fmc*hbcm+hbcm2)+8*(
4467      . p5p7*p3p6*p2p8)*(2*fmb*hbcm-2*fmc*hbcm+hbcm2)+16*(p6p8*p5p7*
4468      . p2p3)*(-2*fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p8*p5p7)*(-fmb*fmc*
4469      . hbcm2+fmb*hbcm3-fmb2*hbcm2+3*p2p3s2+2*p3p5s2)+8*(-2*fmb*hbcm*
4470      . p2p3*p3p7*p6p8-2*fmb*hbcm*p2p3*p4p7*p6p8+6*hbcm2*p2p5*p4p6*
4471      . p7p8+2*hbcm2*p2p5*p5p6*p7p8+4*hbcm2*p2p5*p5p7*p6p8-3*hbcm2*
4472      . p2p8*p4p6*p5p7-3*hbcm2*p2p8*p5p6*p5p7+3*hbcm2*p4p6*p5p7*p5p8+3
4473      . *hbcm2*p5p6*p5p7*p5p8+4*p2p3*p2p5*p3p6*p7p8-4*p2p3*p2p5*p3p7*
4474      . p6p8-4*p2p3*p2p8*p3p6*p5p7-2*p2p3*p3p5*p3p7*p6p8-2*p2p3*p3p5*
4475      . p4p7*p6p8-10*p2p3*p3p5*p5p7*p6p8+4*p2p3*p3p6*p5p7*p5p8+2*
4476      . p2p3s2*p3p7*p6p8+2*p2p3s2*p4p7*p6p8-4*p2p5*p3p5*p3p6*p7p8+4*
4477      . p2p5*p3p5*p3p7*p6p8+4*p2p8*p3p5*p3p6*p5p7-4*p3p5*p3p6*p5p7*
4478      . p5p8))+ans2
4479       ans=ccc*ans1
4480       b(12)=ans
4481       b(13)=ccc*(4*w16*(-2*hbcm*p1p8*p2p5-3*hbcm*p2p5*p2p8-2*hbcm*
4482      . p2p5*p4p8+3*hbcm*p2p5*p5p8)-12*hbcm*p2p5*p4p8*w1)
4483       b(14)=ccc*(w16*(12*p2p5*(-fmc*hbcm+hbcm2)+12*(-p2p3*p2p5+p2p5*
4484      . p3p5))+12*w1*(-fmc*hbcm*p2p5-p2p5*p3p4)+48*fb4*p2p5)
4485       b(15)=ccc*(4*w16*(-2*hbcm2*p1p8*p2p5-3*hbcm2*p2p5*p2p8-2*hbcm2*
4486      . p2p5*p4p8+3*hbcm2*p2p5*p5p8)-12*hbcm2*p2p5*p4p8*w1)
4487       b(16)=ccc*(w16*(4*p2p5*(5*fmc*hbcm2-3*hbcm3)+4*(2*hbcm*p1p3*
4488      . p2p5+3*hbcm*p2p3*p2p5+2*hbcm*p2p5*p3p4-3*hbcm*p2p5*p3p5))+12*
4489      . w1*(fmc*hbcm2*p2p5+hbcm*p2p5*p3p4)-48*fb3*hbcm*p2p5)
4490       b(17)=ccc*(w16*(8*(p6p8*p3p5)*(-fmb+fmc-hbcm)+8*(p6p8*p2p3)*(
4491      . fmb-fmc+hbcm)+8*p6p8*(fmb*fmc*hbcm-fmb*hbcm2-fmb2*hbcm)+8*(-
4492      . fmc*p2p8*p3p6+fmc*p3p6*p5p8+2*hbcm*p2p5*p6p8-2*hbcm*p2p8*p4p6-
4493      . hbcm*p2p8*p5p6+2*hbcm*p4p6*p5p8+hbcm*p5p6*p5p8))+w1*(8*(p6p8*
4494      . p3p4)*(fmb-fmc)+8*p6p8*(fmb*fmc*hbcm-fmc*hbcm2)+8*(fmc*p3p6*
4495      . p4p8+hbcm*p1p4*p6p8-hbcm*p1p8*p4p6-hbcm*p2p4*p6p8-hbcm*p2p8*
4496      . p4p6+hbcm*p4p5*p6p8+hbcm*p4p6*p4p8+hbcm*p4p6*p5p8-hbcm*p4p8*
4497      . p5p6))+16*p6p8*(-fb3*fmc+2*fb3*hbcm-2*fb4*fmb+fb4*fmc))
4498       b(18)=ccc*(w1*(4*p4p6*(fmb*hbcm-3*fmc*hbcm-hbcm2)+4*(2*fmc*hbcm
4499      . *p5p6-2*fmc2*p3p6-p3p4*p3p6-3*p3p4*p4p6+p3p4*p5p6))+w16*(8*
4500      . p5p6*(fmc*hbcm-hbcm2)+4*(2*fmb*fmc*p3p6+4*fmb*hbcm*p4p6-p2p3*
4501      . p3p6-3*p2p3*p4p6+p2p3*p5p6+p3p5*p3p6+3*p3p5*p4p6-p3p5*p5p6))+
4502      . 16*(fb4*p3p6+3*fb4*p4p6-fb4*p5p6))
4503       b(19)=ccc*(w1*(6*p4p8*(fmb*hbcm2-fmc*hbcm2+hbcm3)+4*(fmc*hbcm2*
4504      . p1p8+3*fmc*hbcm2*p2p8-3*fmc*hbcm2*p5p8-hbcm*p1p3*p4p8+hbcm*
4505      . p1p8*p3p4-3*hbcm*p2p3*p4p8+3*hbcm*p2p8*p3p4-3*hbcm*p3p4*p5p8+3
4506      . *hbcm*p3p5*p4p8))+w16*(2*p5p8*(-3*fmb*hbcm2-5*fmc*hbcm2+3*
4507      . hbcm3)+2*p2p8*(3*fmb*hbcm2+5*fmc*hbcm2-3*hbcm3)+4*(fmb*hbcm2*
4508      . p1p8+fmb*hbcm2*p4p8+hbcm*p1p3*p2p8-hbcm*p1p3*p5p8-hbcm*p1p8*
4509      . p2p3+hbcm*p1p8*p3p5-hbcm*p2p3*p4p8+hbcm*p2p8*p3p4-hbcm*p3p4*
4510      . p5p8+hbcm*p3p5*p4p8))+16*(-fb3*hbcm*p1p8-3*fb3*hbcm*p2p8-fb3*
4511      . hbcm*p4p8+3*fb3*hbcm*p5p8))
4512       b(20)=ccc*(w1*(2*p4p8*(3*fmb*hbcm+fmc*hbcm-3*hbcm2)+4*(-fmc*
4513      . hbcm*p1p8-3*fmc*hbcm*p2p8+3*fmc*hbcm*p5p8-p1p8*p3p4-3*p2p8*
4514      . p3p4-p3p4*p4p8+3*p3p4*p5p8))+w16*(6*p5p8*(-fmb*hbcm+fmc*hbcm-
4515      . hbcm2)+6*p2p8*(fmb*hbcm-fmc*hbcm+hbcm2)+4*(fmb*hbcm*p1p8+fmb*
4516      . hbcm*p4p8-p1p8*p2p3+p1p8*p3p5-3*p2p3*p2p8-p2p3*p4p8+3*p2p3*
4517      . p5p8+3*p2p8*p3p5+p3p5*p4p8-3*p3p5*p5p8))+16*(fb4*p1p8+3*fb4*
4518      . p2p8+fb4*p4p8-3*fb4*p5p8))
4519       b(22)=ccc*(w16*(2*p3p5*(-3*fmb+5*fmc-3*hbcm)+2*p2p3*(3*fmb-5*
4520      . fmc+3*hbcm)+2*(3*fmb*fmc*hbcm-3*fmb*hbcm2-3*fmb2*hbcm-2*hbcm*
4521      . p1p2+2*hbcm*p1p5-2*hbcm*p2p4+6*hbcm*p2p5+2*hbcm*p4p5))+w1*(2*
4522      . p3p4*(3*fmb-5*fmc-hbcm)+2*(3*fmb*fmc*hbcm-3*fmc*hbcm2-3*fmc2*
4523      . hbcm+2*hbcm*p1p4-2*hbcm*p2p4+2*hbcm*p4p5))+24*(fb3*hbcm-fb4*
4524      . fmb+fb4*fmc))
4525       b(24)=ccc*(w16*(6*p3p5*(fmb*hbcm-fmc*hbcm+hbcm2)+6*p2p3*(-fmb*
4526      . hbcm+fmc*hbcm-hbcm2)+2*(-5*fmb*fmc*hbcm2-2*fmb*hbcm*p1p3-2*fmb
4527      . *hbcm*p3p4+3*fmb*hbcm3-3*fmb2*hbcm2-2*hbcm2*p1p2+2*hbcm2*p1p5-
4528      . 2*hbcm2*p2p4+6*hbcm2*p2p5+2*hbcm2*p4p5+2*p1p3*p2p3-2*p1p3*p3p5
4529      . +2*p2p3*p3p4-12*p2p3*p3p5+6*p2p3s2-2*p3p4*p3p5+6*p3p5s2))+w1*(
4530      . 2*p3p4*(-3*fmb*hbcm-fmc*hbcm-hbcm2)+2*(-3*fmb*fmc*hbcm2+2*fmc*
4531      . hbcm*p1p3+6*fmc*hbcm*p2p3-6*fmc*hbcm*p3p5-3*fmc*hbcm3-fmc2*
4532      . hbcm2+2*hbcm2*p1p4-2*hbcm2*p2p4+2*hbcm2*p4p5+2*p1p3*p3p4+6*
4533      . p2p3*p3p4-6*p3p4*p3p5+2*p3p4s2))+4*(6*fb3*fmb*hbcm+6*fb3*fmc*
4534      . hbcm-4*fb4*fmc*hbcm+6*fb4*hbcm2-4*fb4*p1p3-12*fb4*p2p3-4*fb4*
4535      . p3p4+12*fb4*p3p5+hbcm2))
4536       b(26)=ccc*(w16*(8*(p3p6*p3p5)*(fmb-2*fmc+hbcm)+8*(p3p6*p2p3)*(-
4537      . fmb+2*fmc-hbcm)+4*p5p6*(-fmb*hbcm2+2*fmc*hbcm2-2*hbcm3)+4*p3p6
4538      . *(-2*fmb*fmc*hbcm+fmb*hbcm2+2*fmb2*hbcm)+4*(-3*fmb*hbcm2*p4p6+
4539      . 4*hbcm*p2p3*p4p6+2*hbcm*p2p3*p5p6-4*hbcm*p2p5*p3p6-4*hbcm*p3p5
4540      . *p4p6-2*hbcm*p3p5*p5p6))+w1*(4*p4p6*(-fmb*hbcm2-hbcm3)+4*p3p6*
4541      . (-2*fmb*fmc*hbcm+fmc*hbcm2)+4*(-2*fmb*p3p4*p3p6+fmc*hbcm2*p5p6
4542      . +2*hbcm*p1p3*p4p6-2*hbcm*p1p4*p3p6+2*hbcm*p2p3*p4p6+2*hbcm*
4543      . p2p4*p3p6-2*hbcm*p3p4*p4p6+2*hbcm*p3p4*p5p6-2*hbcm*p3p5*p4p6-2
4544      . *hbcm*p3p6*p4p5))+(16*p3p6*(-fb3*fmc+2*fb4*fmb-fb4*fmc)+32*fb3
4545      . *hbcm*p4p6))
4546       ans2=(4*p6p8*(-8*fb3*fmb*hbcm-4*fb3*fmc*hbcm+4*fb4*fmc*hbcm-
4547      . hbcm2)+32*(-fb4*p1p3*p6p8+fb4*p2p3*p6p8-2*fb4*p2p8*p3p6+fb4*
4548      . p3p4*p6p8-fb4*p3p5*p6p8+2*fb4*p3p6*p5p8))
4549       ans1=w16*(4*(p5p8*p3p6)*(2*fmb*hbcm-2*fmc*hbcm+hbcm2)+4*(p3p6*
4550      . p2p8)*(-2*fmb*hbcm+2*fmc*hbcm-hbcm2)+8*p6p8*(fmb*fmc*hbcm2+
4551      . fmb2*hbcm2-p2p3s2-p3p5s2)+4*(-2*fmb*hbcm*p1p3*p6p8+2*fmb*hbcm*
4552      . p3p4*p6p8-2*fmc*hbcm*p2p3*p6p8+2*fmc*hbcm*p3p5*p6p8-4*hbcm2*
4553      . p2p5*p6p8+3*hbcm2*p2p8*p4p6+3*hbcm2*p2p8*p5p6-3*hbcm2*p4p6*
4554      . p5p8-3*hbcm2*p5p6*p5p8+2*p1p3*p2p3*p6p8-2*p1p3*p3p5*p6p8+4*
4555      . p2p3*p2p8*p3p6-2*p2p3*p3p4*p6p8+4*p2p3*p3p5*p6p8-4*p2p3*p3p6*
4556      . p5p8-4*p2p8*p3p5*p3p6+2*p3p4*p3p5*p6p8+4*p3p5*p3p6*p5p8))+w1*(
4557      . 4*(p4p8*p3p6)*(-2*fmb*hbcm-2*fmc*hbcm+hbcm2)+8*(p6p8*p3p4)*(
4558      . fmb*hbcm-hbcm2)+8*p6p8*(fmb*fmc*hbcm2-p3p4s2)+4*(2*fmc*hbcm*
4559      . p1p3*p6p8-2*fmc*hbcm*p2p3*p6p8+4*fmc*hbcm*p2p8*p3p6+2*fmc*hbcm
4560      . *p3p5*p6p8-4*fmc*hbcm*p3p6*p5p8-2*hbcm2*p1p4*p6p8+2*hbcm2*p1p8
4561      . *p4p6+2*hbcm2*p2p4*p6p8+2*hbcm2*p2p8*p4p6-2*hbcm2*p4p5*p6p8-
4562      . hbcm2*p4p6*p4p8-2*hbcm2*p4p6*p5p8+hbcm2*p4p8*p5p6+2*p1p3*p3p4*
4563      . p6p8-2*p2p3*p3p4*p6p8+4*p2p8*p3p4*p3p6+2*p3p4*p3p5*p6p8-4*p3p4
4564      . *p3p6*p5p8))+ans2
4565       ans=ccc*ans1
4566       b(28)=ans
4567       b(31)=ccc*(8*w1*(-fmc*hbcm*p3p7*p6p8-fmc*hbcm*p4p7*p6p8-fmc*
4568      . hbcm*p5p7*p6p8-p3p4*p3p7*p6p8-p3p4*p4p7*p6p8-p3p4*p5p7*p6p8)+8
4569      . *w16*(fmb*hbcm*p3p7*p6p8+fmb*hbcm*p4p7*p6p8+fmb*hbcm*p5p7*p6p8
4570      . -p2p3*p3p7*p6p8-p2p3*p4p7*p6p8-p2p3*p5p7*p6p8+p3p5*p3p7*p6p8+
4571      . p3p5*p4p7*p6p8+p3p5*p5p7*p6p8)+32*(fb4*p3p7*p6p8+fb4*p4p7*p6p8
4572      . +fb4*p5p7*p6p8))
4573       do 200 n=1,32
4574          c(n,2)=c(n,2)-0.8320502943378437d0*b(n)
4575          c(n,3)=c(n,3)+0.1869893980016914d0*b(n)
4576 200   continue
4577       return
4578         end
4579
4580       subroutine amp26_3p1(cc)
4581       implicit double precision(a-h,o-z)
4582       implicit integer (i-n)
4583       dimension b(32)
4584 #include "inclcon.h"
4585 #include "inclppp.h"
4586 #include "inclamp.h"
4587       do 100 n=1,32
4588          b(n)=0.0d0
4589 100   continue
4590       ccc=cc/((-2*p2p4)*(-2*ffmcfmb*p3p5+fmb2-2*fmc*hbcm+fmc2+hbcm2+2
4591      . *p3p5)*(-2*ffmcfmb*p2p3+2*ffmcfmb*p3p4+2*fmc2-2*p2p4))
4592       b(1)=ccc*(8*w2*(-hbcm*p1p2*p5p6+hbcm*p2p3*p5p6+hbcm*p2p5*p5p6)+
4593      . 8*w11*(2*fmc*p2p4*p3p6-hbcm*p1p2*p4p6+hbcm*p2p3*p4p6+3*hbcm*
4594      . p2p4*p4p6-2*hbcm*p2p4*p5p6+hbcm*p2p5*p4p6))
4595       b(2)=ccc*(w11*(8*(p4p7*p4p6)*(-fmb*hbcm+3*fmc*hbcm+hbcm2)+24*(
4596      . p6p7*p2p4)*(-fmb*hbcm+hbcm2)+8*(-2*fmc*hbcm*p4p7*p5p6+2*fmc2*
4597      . p3p6*p4p7-3*p2p3*p2p4*p6p7-p2p3*p3p6*p4p7-3*p2p3*p4p6*p4p7+
4598      . p2p3*p4p7*p5p6+3*p2p4*p3p4*p6p7+p3p4*p3p6*p4p7+3*p3p4*p4p6*
4599      . p4p7-p3p4*p4p7*p5p6))+w2*(16*(p5p6*p4p7)*(-fmc*hbcm+hbcm2)+8*(
4600      . -2*fmb*fmc*p3p6*p4p7-3*fmb*hbcm*p2p4*p6p7-4*fmb*hbcm*p4p6*p4p7
4601      . -3*p2p4*p3p5*p6p7-p3p5*p3p6*p4p7-3*p3p5*p4p6*p4p7+p3p5*p4p7*
4602      . p5p6))+32*(-3*fb4*p2p4*p6p7-fb4*p3p6*p4p7-3*fb4*p4p6*p4p7+fb4*
4603      . p4p7*p5p6))
4604       ans2=w11*(16*(p6p8*p4p7*p3p4)*(-fmb+fmc)+8*(p6p7*p3p4*p2p8)*(3*
4605      . fmb-5*fmc-hbcm)+16*(p6p8*p4p7*p2p3)*(fmb-fmc)+8*(p6p7*p2p8*
4606      . p2p3)*(-3*fmb+5*fmc-hbcm)+16*(p6p8*p4p7)*(-fmb*fmc*hbcm+fmc*
4607      . hbcm2)+24*(p6p7*p2p8)*(fmb*fmc*hbcm-fmc*hbcm2-fmc2*hbcm)+8*(-4
4608      . *fmc*p2p4*p3p6*p7p8+2*fmc*p2p8*p3p6*p4p7-2*fmc*p3p6*p4p7*p4p8+
4609      . 2*hbcm*p1p2*p4p6*p7p8+2*hbcm*p1p2*p4p7*p6p8-2*hbcm*p1p2*p4p8*
4610      . p6p7+2*hbcm*p1p4*p2p8*p6p7-2*hbcm*p1p4*p4p7*p6p8+2*hbcm*p1p8*
4611      . p2p4*p6p7+2*hbcm*p1p8*p4p6*p4p7-2*hbcm*p2p3*p4p6*p7p8+2*hbcm*
4612      . p2p3*p4p8*p6p7+5*hbcm*p2p4*p2p8*p6p7+2*hbcm*p2p4*p3p7*p6p8-6*
4613      . hbcm*p2p4*p4p6*p7p8+hbcm*p2p4*p4p8*p6p7+4*hbcm*p2p4*p5p6*p7p8+
4614      . 2*hbcm*p2p4*p5p7*p6p8-6*hbcm*p2p4*p5p8*p6p7-4*hbcm*p2p5*p2p8*
4615      . p6p7-2*hbcm*p2p5*p4p6*p7p8+2*hbcm*p2p5*p4p7*p6p8+2*hbcm*p2p5*
4616      . p4p8*p6p7+2*hbcm*p2p8*p3p7*p4p6+2*hbcm*p2p8*p4p5*p6p7+4*hbcm*
4617      . p2p8*p4p6*p4p7+2*hbcm*p2p8*p4p6*p5p7-2*hbcm*p2p8*p4p7*p5p6-2*
4618      . hbcm*p4p5*p4p7*p6p8-2*hbcm*p4p6*p4p7*p4p8-2*hbcm*p4p6*p4p7*
4619      . p5p8+2*hbcm*p4p7*p4p8*p5p6))+(96*(p6p7*p2p8)*(fb3*hbcm-fb4*fmb
4620      . +fb4*fmc)+32*(p6p8*p4p7)*(fb3*fmc-2*fb3*hbcm+2*fb4*fmb-fb4*fmc
4621      . ))
4622       ans1=w2*(16*(p6p8*p4p7*p3p5)*(fmb-fmc+hbcm)+8*(p6p7*p3p5*p2p8)*
4623      . (-3*fmb+5*fmc-3*hbcm)+16*(p6p8*p4p7)*(-fmb*fmc*hbcm+fmb*hbcm2+
4624      . fmb2*hbcm)+24*(p6p7*p2p8)*(fmb*fmc*hbcm-fmb*hbcm2-fmb2*hbcm)+8
4625      . *(-2*fmc*p3p6*p4p7*p5p8+2*hbcm*p1p2*p5p6*p7p8-2*hbcm*p1p2*p5p8
4626      . *p6p7+2*hbcm*p1p5*p2p8*p6p7-2*hbcm*p2p3*p5p6*p7p8+2*hbcm*p2p3*
4627      . p5p8*p6p7-hbcm*p2p4*p5p8*p6p7-2*hbcm*p2p5*p2p8*p6p7-2*hbcm*
4628      . p2p5*p5p6*p7p8+2*hbcm*p2p5*p5p8*p6p7+2*hbcm*p2p8*p3p7*p5p6+2*
4629      . hbcm*p2p8*p4p5*p6p7+2*hbcm*p2p8*p4p7*p5p6+2*hbcm*p2p8*p5p6*
4630      . p5p7-4*hbcm*p4p6*p4p7*p5p8-2*hbcm*p4p7*p5p6*p5p8))+ans2
4631       ans=ccc*ans1
4632       b(3)=ans
4633       b(4)=ccc*(w2*(4*(p4p7*p3p5)*(3*fmb-5*fmc+3*hbcm)+12*p4p7*(-fmb*
4634      . fmc*hbcm+fmb*hbcm2+fmb2*hbcm)+8*(-hbcm*p1p5*p4p7+hbcm*p2p5*
4635      . p4p7-hbcm*p4p5*p4p7))+w11*(4*(p4p7*p3p4)*(-3*fmb+5*fmc+hbcm)+4
4636      . *(p4p7*p2p3)*(3*fmb-5*fmc-hbcm)+12*p4p7*(-fmb*fmc*hbcm+fmc*
4637      . hbcm2+fmc2*hbcm)+8*(hbcm*p1p2*p4p7-hbcm*p1p4*p4p7+2*hbcm*p2p4*
4638      . p3p7-hbcm*p2p4*p4p7+2*hbcm*p2p4*p5p7+hbcm*p2p5*p4p7-hbcm*p4p5*
4639      . p4p7))+48*p4p7*(-fb3*hbcm+fb4*fmb-fb4*fmc))
4640       ans2=32*(-2*fb4*p1p2*p7p8-fb4*p1p8*p4p7+2*fb4*p2p3*p7p8-fb4*
4641      . p2p4*p7p8+2*fb4*p2p5*p7p8-2*fb4*p2p8*p3p7-fb4*p2p8*p4p7-2*fb4*
4642      . p2p8*p5p7-fb4*p4p7*p4p8+3*fb4*p4p7*p5p8)
4643       ans1=w11*(4*(p4p8*p4p7)*(-3*fmb*hbcm-fmc*hbcm+3*hbcm2)+4*(p4p7*
4644      . p2p8)*(3*fmb*hbcm+5*fmc*hbcm-3*hbcm2)+8*(p7p8*p2p4)*(-3*fmb*
4645      . hbcm-2*fmc*hbcm+3*hbcm2)+8*(2*fmc*hbcm*p1p2*p7p8+fmc*hbcm*p1p8
4646      . *p4p7-2*fmc*hbcm*p2p3*p7p8-2*fmc*hbcm*p2p5*p7p8+2*fmc*hbcm*
4647      . p2p8*p3p7+2*fmc*hbcm*p2p8*p5p7-3*fmc*hbcm*p4p7*p5p8-2*p1p2*
4648      . p2p3*p7p8+2*p1p2*p3p4*p7p8-p1p8*p2p3*p4p7+p1p8*p3p4*p4p7-p2p3*
4649      . p2p4*p7p8+2*p2p3*p2p5*p7p8-2*p2p3*p2p8*p3p7-p2p3*p2p8*p4p7-2*
4650      . p2p3*p2p8*p5p7-2*p2p3*p3p4*p7p8-p2p3*p4p7*p4p8+3*p2p3*p4p7*
4651      . p5p8+2*p2p3s2*p7p8+p2p4*p3p4*p7p8-2*p2p5*p3p4*p7p8+2*p2p8*p3p4
4652      . *p3p7+p2p8*p3p4*p4p7+2*p2p8*p3p4*p5p7+p3p4*p4p7*p4p8-3*p3p4*
4653      . p4p7*p5p8))+w2*(12*(p5p8*p4p7)*(fmb*hbcm-fmc*hbcm+hbcm2)+8*(-2
4654      . *fmb*hbcm*p1p2*p7p8-fmb*hbcm*p1p8*p4p7+2*fmb*hbcm*p2p3*p7p8-
4655      . fmb*hbcm*p2p4*p7p8+2*fmb*hbcm*p2p5*p7p8-2*fmb*hbcm*p2p8*p3p7-
4656      . fmb*hbcm*p2p8*p4p7-2*fmb*hbcm*p2p8*p5p7-fmb*hbcm*p4p7*p4p8-2*
4657      . p1p2*p3p5*p7p8-p1p8*p3p5*p4p7+2*p2p3*p3p5*p7p8-p2p4*p3p5*p7p8+
4658      . 2*p2p5*p3p5*p7p8-2*p2p8*p3p5*p3p7-p2p8*p3p5*p4p7-2*p2p8*p3p5*
4659      . p5p7-p3p5*p4p7*p4p8+3*p3p5*p4p7*p5p8))+ans2
4660       ans=ccc*ans1
4661       b(5)=ans
4662       ans2=(8*p4p7*(-6*fb3*fmb*hbcm-6*fb3*fmc*hbcm+4*fb4*fmc*hbcm-6*
4663      . fb4*hbcm2-hbcm2)+32*(2*fb4*p1p2*p3p7+fb4*p1p3*p4p7+fb4*p2p3*
4664      . p4p7+2*fb4*p2p3*p5p7+fb4*p2p4*p3p7-2*fb4*p2p5*p3p7+fb4*p3p4*
4665      . p4p7-3*fb4*p3p5*p4p7))
4666       ans1=w2*(12*(p4p7*p3p5)*(-fmb*hbcm+fmc*hbcm-hbcm2)+4*p4p7*(5*
4667      . fmb*fmc*hbcm2-3*fmb*hbcm3+3*fmb2*hbcm2-6*p3p5s2)+8*(2*fmb*hbcm
4668      . *p1p2*p3p7+fmb*hbcm*p1p3*p4p7+fmb*hbcm*p2p3*p4p7+2*fmb*hbcm*
4669      . p2p3*p5p7+fmb*hbcm*p2p4*p3p7-2*fmb*hbcm*p2p5*p3p7+fmb*hbcm*
4670      . p3p4*p4p7-hbcm2*p1p5*p4p7+hbcm2*p2p5*p4p7-hbcm2*p4p5*p4p7+2*
4671      . p1p2*p3p5*p3p7+p1p3*p3p5*p4p7+p2p3*p3p5*p4p7+2*p2p3*p3p5*p5p7+
4672      . p2p4*p3p5*p3p7-2*p2p5*p3p5*p3p7+p3p4*p3p5*p4p7))+w11*(4*(p4p7*
4673      . p3p4)*(3*fmb*hbcm+fmc*hbcm+hbcm2)+8*(p3p7*p2p4)*(3*fmb*hbcm+2*
4674      . fmc*hbcm-hbcm2)+4*(p4p7*p2p3)*(-3*fmb*hbcm-5*fmc*hbcm-hbcm2)+4
4675      . *p4p7*(3*fmb*fmc*hbcm2+3*fmc*hbcm3+fmc2*hbcm2+2*p2p3s2-2*
4676      . p3p4s2)+8*(-2*fmc*hbcm*p1p2*p3p7-fmc*hbcm*p1p3*p4p7-2*fmc*hbcm
4677      . *p2p3*p5p7+2*fmc*hbcm*p2p5*p3p7+3*fmc*hbcm*p3p5*p4p7+hbcm2*
4678      . p1p2*p4p7-hbcm2*p1p4*p4p7-hbcm2*p2p4*p4p7+2*hbcm2*p2p4*p5p7+
4679      . hbcm2*p2p5*p4p7-hbcm2*p4p5*p4p7+2*p1p2*p2p3*p3p7-2*p1p2*p3p4*
4680      . p3p7+p1p3*p2p3*p4p7-p1p3*p3p4*p4p7+p2p3*p2p4*p3p7-2*p2p3*p2p5*
4681      . p3p7-2*p2p3*p3p4*p5p7-3*p2p3*p3p5*p4p7+2*p2p3s2*p5p7-p2p4*p3p4
4682      . *p3p7+2*p2p5*p3p4*p3p7+3*p3p4*p3p5*p4p7))+ans2
4683       ans=ccc*ans1
4684       b(6)=ans
4685       ans4=8*(-2*fmc*hbcm2*p1p2*p7p8-fmc*hbcm2*p1p8*p4p7+2*fmc*hbcm2*
4686      . p2p5*p7p8-2*fmc*hbcm2*p2p8*p5p7+3*fmc*hbcm2*p4p7*p5p8-2*hbcm*
4687      . p1p2*p3p4*p7p8+2*hbcm*p1p2*p3p7*p4p8+2*hbcm*p1p3*p2p4*p7p8-
4688      . hbcm*p1p3*p2p8*p4p7+hbcm*p1p3*p4p7*p4p8+2*hbcm*p1p4*p2p3*p7p8-
4689      . 2*hbcm*p1p4*p2p8*p3p7+hbcm*p1p8*p2p3*p4p7-2*hbcm*p1p8*p2p4*
4690      . p3p7-hbcm*p1p8*p3p4*p4p7+5*hbcm*p2p3*p2p4*p7p8-4*hbcm*p2p3*
4691      . p2p5*p7p8+2*hbcm*p2p3*p4p5*p7p8+2*hbcm*p2p3*p4p7*p4p8-3*hbcm*
4692      . p2p3*p4p7*p5p8+2*hbcm*p2p3*p4p8*p5p7-5*hbcm*p2p4*p2p8*p3p7+
4693      . hbcm*p2p4*p3p4*p7p8-6*hbcm*p2p4*p3p5*p7p8-hbcm*p2p4*p3p7*p4p8+
4694      . 6*hbcm*p2p4*p3p7*p5p8+4*hbcm*p2p5*p2p8*p3p7+2*hbcm*p2p5*p3p4*
4695      . p7p8-2*hbcm*p2p5*p3p7*p4p8-2*hbcm*p2p8*p3p4*p4p7-2*hbcm*p2p8*
4696      . p3p4*p5p7+3*hbcm*p2p8*p3p5*p4p7-2*hbcm*p2p8*p3p7*p4p5+3*hbcm*
4697      . p3p4*p4p7*p5p8-3*hbcm*p3p5*p4p7*p4p8)
4698       ans3=8*(p3p7*p3p4*p2p8)*(-3*fmb+5*fmc-hbcm)+8*p7p8*(-3*fmb*
4699      . p2p3s2+5*fmc*p2p3s2-hbcm*p2p3s2)+8*(p7p8*p3p4*p2p3)*(3*fmb-5*
4700      . fmc+hbcm)+8*(p3p7*p2p8*p2p3)*(3*fmb-5*fmc+hbcm)+12*(p4p8*p4p7)
4701      . *(-fmb*hbcm2+fmc*hbcm2-hbcm3)+4*(p4p7*p2p8)*(3*fmb*hbcm2-7*fmc
4702      . *hbcm2+3*hbcm3)+8*(p7p8*p2p4)*(-3*fmb*hbcm2+4*fmc*hbcm2-3*
4703      . hbcm3)+8*(p3p7*p2p8)*(-3*fmb*fmc*hbcm+fmc*hbcm2+3*fmc2*hbcm)+8
4704      . *(p7p8*p2p3)*(3*fmb*fmc*hbcm-fmc*hbcm2-3*fmc2*hbcm)+ans4
4705       ans2=w11*ans3
4706       ans5=(32*(p3p7*p2p8)*(-fb3*hbcm+3*fb4*fmb-3*fb4*fmc)+32*(p7p8*
4707      . p2p3)*(fb3*hbcm-3*fb4*fmb+3*fb4*fmc)+32*(2*fb3*hbcm*p1p2*p7p8+
4708      . fb3*hbcm*p1p8*p4p7+fb3*hbcm*p2p4*p7p8-2*fb3*hbcm*p2p5*p7p8+fb3
4709      . *hbcm*p2p8*p4p7+2*fb3*hbcm*p2p8*p5p7+fb3*hbcm*p4p7*p4p8-3*fb3*
4710      . hbcm*p4p7*p5p8))
4711       ans1=w2*(8*(p3p7*p3p5*p2p8)*(3*fmb-5*fmc+hbcm)+8*(p7p8*p3p5*
4712      . p2p3)*(-3*fmb+5*fmc-hbcm)+4*(p5p8*p4p7)*(3*fmb*hbcm2+5*fmc*
4713      . hbcm2-3*hbcm3)+8*(p3p7*p2p8)*(-3*fmb*fmc*hbcm+fmb*hbcm2+3*fmb2
4714      . *hbcm)+8*(p7p8*p2p3)*(3*fmb*fmc*hbcm-fmb*hbcm2-3*fmb2*hbcm)+8*
4715      . (-2*fmb*hbcm2*p1p2*p7p8-fmb*hbcm2*p1p8*p4p7-fmb*hbcm2*p2p4*
4716      . p7p8+2*fmb*hbcm2*p2p5*p7p8-fmb*hbcm2*p2p8*p4p7-2*fmb*hbcm2*
4717      . p2p8*p5p7-fmb*hbcm2*p4p7*p4p8-2*hbcm*p1p2*p3p5*p7p8+2*hbcm*
4718      . p1p2*p3p7*p5p8+hbcm*p1p3*p4p7*p5p8+2*hbcm*p1p5*p2p3*p7p8-2*
4719      . hbcm*p1p5*p2p8*p3p7-hbcm*p1p8*p3p5*p4p7-2*hbcm*p2p3*p2p5*p7p8+
4720      . 2*hbcm*p2p3*p4p5*p7p8+hbcm*p2p3*p4p7*p5p8+2*hbcm*p2p3*p5p7*
4721      . p5p8-hbcm*p2p4*p3p5*p7p8+hbcm*p2p4*p3p7*p5p8+2*hbcm*p2p5*p2p8*
4722      . p3p7+2*hbcm*p2p5*p3p5*p7p8-2*hbcm*p2p5*p3p7*p5p8-hbcm*p2p8*
4723      . p3p5*p4p7-2*hbcm*p2p8*p3p5*p5p7-2*hbcm*p2p8*p3p7*p4p5+hbcm*
4724      . p3p4*p4p7*p5p8-hbcm*p3p5*p4p7*p4p8))+ans2+ans5
4725       ans=ccc*ans1
4726       b(7)=ans
4727       b(8)=ccc*(w11*(8*(p4p6*p2p8)*(-fmb*hbcm+3*fmc*hbcm+hbcm2)+8*(
4728      . p6p8*p2p4)*(-2*fmb*hbcm-fmc*hbcm+2*hbcm2)+8*(-2*fmc*hbcm*p2p8*
4729      . p5p6+2*fmc2*p2p8*p3p6-p2p3*p2p4*p6p8-p2p3*p2p8*p3p6-3*p2p3*
4730      . p2p8*p4p6+p2p3*p2p8*p5p6+p2p4*p3p4*p6p8+p2p8*p3p4*p3p6+3*p2p8*
4731      . p3p4*p4p6-p2p8*p3p4*p5p6))+w2*(16*(p5p6*p2p8)*(-fmc*hbcm+hbcm2
4732      . )+8*(-2*fmb*fmc*p2p8*p3p6-fmb*hbcm*p2p4*p6p8-4*fmb*hbcm*p2p8*
4733      . p4p6-p2p4*p3p5*p6p8-p2p8*p3p5*p3p6-3*p2p8*p3p5*p4p6+p2p8*p3p5*
4734      . p5p6))+32*(-fb4*p2p4*p6p8-fb4*p2p8*p3p6-3*fb4*p2p8*p4p6+fb4*
4735      . p2p8*p5p6))
4736       b(9)=ccc*(w11*(8*(p3p6*p2p3)*(fmc*hbcm-2*fmc2)+8*(p3p6*p2p4)*(2
4737      . *fmb*hbcm+2*fmc*hbcm-hbcm2)+8*(p4p6*p2p3)*(fmb*hbcm-3*fmc*hbcm
4738      . )+8*(-fmc*hbcm*p1p2*p3p6+2*fmc*hbcm*p2p3*p5p6+fmc*hbcm*p2p5*
4739      . p3p6-hbcm2*p1p2*p4p6+2*hbcm2*p2p4*p4p6-hbcm2*p2p4*p5p6+hbcm2*
4740      . p2p5*p4p6+p1p2*p2p3*p3p6-p1p2*p3p4*p3p6-p2p3*p2p5*p3p6-3*p2p3*
4741      . p3p4*p4p6+p2p3*p3p4*p5p6+3*p2p3s2*p4p6-p2p3s2*p5p6+p2p5*p3p4*
4742      . p3p6))+w2*(8*(p5p6*p2p3)*(2*fmc*hbcm-hbcm2)+8*(p3p6*p2p3)*(2*
4743      . fmb*fmc-fmb*hbcm)+8*(fmb*hbcm*p1p2*p3p6+4*fmb*hbcm*p2p3*p4p6-
4744      . fmb*hbcm*p2p5*p3p6-hbcm2*p1p2*p5p6+hbcm2*p2p5*p5p6+p1p2*p3p5*
4745      . p3p6+3*p2p3*p3p5*p4p6-p2p3*p3p5*p5p6-p2p5*p3p5*p3p6))+32*(fb4*
4746      . p1p2*p3p6+3*fb4*p2p3*p4p6-fb4*p2p3*p5p6-fb4*p2p5*p3p6))
4747       ans3=(32*(p3p6*p2p8)*(-fb3*fmc+2*fb4*fmb-fb4*fmc)+32*(p6p8*p2p3
4748      . )*(-fb3*fmc+fb3*hbcm-2*fb4*fmb+fb4*fmc)+32*(fb3*hbcm*p1p2*p6p8
4749      . -fb3*hbcm*p2p5*p6p8+2*fb3*hbcm*p2p8*p4p6))
4750       ans2=w11*(8*(p4p8*p3p6*p2p3)*(2*fmc-hbcm)+8*p6p8*(-2*fmb*p2p3s2
4751      . +2*fmc*p2p3s2-hbcm*p2p3s2)+8*(p6p8*p3p4*p2p3)*(2*fmb-2*fmc+
4752      . hbcm)+8*(p3p6*p2p8*p2p3)*(2*fmb-2*fmc+hbcm)+8*(p4p6*p2p8)*(-
4753      . fmb*hbcm2-hbcm3)+16*(p6p8*p2p4)*(-fmb*hbcm2+fmc*hbcm2-hbcm3)+8
4754      . *(p3p6*p2p8)*(-2*fmb*fmc*hbcm+fmc*hbcm2)+8*(p6p8*p2p3)*(2*fmb*
4755      . fmc*hbcm-fmc*hbcm2)+8*(-2*fmb*p2p8*p3p4*p3p6-fmc*hbcm2*p1p2*
4756      . p6p8+fmc*hbcm2*p2p5*p6p8+fmc*hbcm2*p2p8*p5p6-hbcm*p1p2*p2p3*
4757      . p6p8+hbcm*p1p2*p2p8*p3p6-hbcm*p1p2*p3p4*p6p8+hbcm*p1p2*p3p6*
4758      . p4p8+2*hbcm*p1p3*p2p8*p4p6+2*hbcm*p1p4*p2p3*p6p8-2*hbcm*p1p4*
4759      . p2p8*p3p6-2*hbcm*p1p8*p2p3*p4p6+2*hbcm*p2p3*p2p4*p6p8-3*hbcm*
4760      . p2p3*p2p5*p6p8+2*hbcm*p2p3*p4p5*p6p8+2*hbcm*p2p3*p4p6*p4p8+2*
4761      . hbcm*p2p3*p4p6*p5p8-2*hbcm*p2p3*p4p8*p5p6-2*hbcm*p2p4*p2p8*
4762      . p3p6-4*hbcm*p2p4*p3p5*p6p8+4*hbcm*p2p4*p3p6*p5p8+3*hbcm*p2p5*
4763      . p2p8*p3p6+hbcm*p2p5*p3p4*p6p8-hbcm*p2p5*p3p6*p4p8-2*hbcm*p2p8*
4764      . p3p4*p4p6+2*hbcm*p2p8*p3p4*p5p6-2*hbcm*p2p8*p3p5*p4p6-2*hbcm*
4765      . p2p8*p3p6*p4p5))+ans3
4766       ans1=w2*(8*(p5p8*p3p6*p2p3)*(2*fmc-hbcm)+16*(p3p6*p3p5*p2p8)*(
4767      . fmb-2*fmc+hbcm)+8*(p6p8*p3p5*p2p3)*(-2*fmb+2*fmc-hbcm)+8*(p5p6
4768      . *p2p8)*(-fmb*hbcm2+2*fmc*hbcm2-2*hbcm3)+8*(p3p6*p2p8)*(-2*fmb*
4769      . fmc*hbcm+fmb*hbcm2+2*fmb2*hbcm)+8*(p6p8*p2p3)*(2*fmb*fmc*hbcm-
4770      . fmb*hbcm2-2*fmb2*hbcm)+8*(-fmb*hbcm2*p1p2*p6p8+fmb*hbcm2*p2p5*
4771      . p6p8-3*fmb*hbcm2*p2p8*p4p6-hbcm*p1p2*p3p5*p6p8+hbcm*p1p2*p3p6*
4772      . p5p8+4*hbcm*p2p3*p4p6*p5p8+2*hbcm*p2p3*p5p6*p5p8+hbcm*p2p5*
4773      . p3p5*p6p8-hbcm*p2p5*p3p6*p5p8-4*hbcm*p2p8*p3p5*p4p6-2*hbcm*
4774      . p2p8*p3p5*p5p6))+ans2
4775       ans=ccc*ans1
4776       b(10)=ans
4777       ans3=(32*(p6p7*p2p3)*(-fb3*hbcm+3*fb4*fmb-3*fb4*fmc)+32*(p4p7*
4778      . p3p6)*(fb3*fmc-2*fb4*fmb+fb4*fmc)+32*(-2*fb3*hbcm*p1p2*p6p7-
4779      . fb3*hbcm*p2p4*p6p7+2*fb3*hbcm*p2p5*p6p7-2*fb3*hbcm*p4p6*p4p7))
4780       ans2=w11*(16*(p3p7*p3p6*p2p4)*(2*fmc-hbcm)+8*p6p7*(3*fmb*p2p3s2
4781      . -5*fmc*p2p3s2+hbcm*p2p3s2)+8*(p6p7*p3p4*p2p3)*(-3*fmb+5*fmc-
4782      . hbcm)+8*(p4p7*p4p6)*(fmb*hbcm2+hbcm3)+8*(p6p7*p2p4)*(3*fmb*
4783      . hbcm2-4*fmc*hbcm2+3*hbcm3)+8*(p4p7*p3p6)*(2*fmb*fmc*hbcm-fmc*
4784      . hbcm2)+8*(p6p7*p2p3)*(-3*fmb*fmc*hbcm+fmc*hbcm2+3*fmc2*hbcm)+8
4785      . *(-2*fmb*p2p3*p3p6*p4p7+2*fmb*p3p4*p3p6*p4p7+2*fmc*hbcm2*p1p2*
4786      . p6p7-2*fmc*hbcm2*p2p5*p6p7-fmc*hbcm2*p4p7*p5p6+2*hbcm*p1p2*
4787      . p3p4*p6p7-2*hbcm*p1p2*p3p6*p4p7-2*hbcm*p1p2*p3p7*p4p6-2*hbcm*
4788      . p1p3*p2p4*p6p7-2*hbcm*p1p3*p4p6*p4p7-2*hbcm*p1p4*p2p3*p6p7+2*
4789      . hbcm*p1p4*p3p6*p4p7-5*hbcm*p2p3*p2p4*p6p7+4*hbcm*p2p3*p2p5*
4790      . p6p7-2*hbcm*p2p3*p4p5*p6p7-4*hbcm*p2p3*p4p6*p4p7-2*hbcm*p2p3*
4791      . p4p6*p5p7+2*hbcm*p2p3*p4p7*p5p6-hbcm*p2p4*p3p4*p6p7+6*hbcm*
4792      . p2p4*p3p5*p6p7-2*hbcm*p2p4*p3p6*p5p7+6*hbcm*p2p4*p3p7*p4p6-4*
4793      . hbcm*p2p4*p3p7*p5p6-2*hbcm*p2p5*p3p4*p6p7-2*hbcm*p2p5*p3p6*
4794      . p4p7+2*hbcm*p2p5*p3p7*p4p6+2*hbcm*p3p4*p4p6*p4p7-2*hbcm*p3p4*
4795      . p4p7*p5p6+2*hbcm*p3p5*p4p6*p4p7+2*hbcm*p3p6*p4p5*p4p7))+ans3
4796       ans1=w2*(16*(p4p7*p3p6*p3p5)*(-fmb+2*fmc-hbcm)+8*(p6p7*p3p5*
4797      . p2p3)*(3*fmb-5*fmc+hbcm)+8*(p5p6*p4p7)*(fmb*hbcm2-2*fmc*hbcm2+
4798      . 2*hbcm3)+8*(p4p7*p3p6)*(2*fmb*fmc*hbcm-fmb*hbcm2-2*fmb2*hbcm)+
4799      . 8*(p6p7*p2p3)*(-3*fmb*fmc*hbcm+fmb*hbcm2+3*fmb2*hbcm)+8*(2*fmb
4800      . *hbcm2*p1p2*p6p7+fmb*hbcm2*p2p4*p6p7-2*fmb*hbcm2*p2p5*p6p7+3*
4801      . fmb*hbcm2*p4p6*p4p7+2*hbcm*p1p2*p3p5*p6p7-2*hbcm*p1p2*p3p7*
4802      . p5p6-2*hbcm*p1p5*p2p3*p6p7+2*hbcm*p2p3*p2p5*p6p7-2*hbcm*p2p3*
4803      . p4p5*p6p7-2*hbcm*p2p3*p4p7*p5p6-2*hbcm*p2p3*p5p6*p5p7+hbcm*
4804      . p2p4*p3p5*p6p7-2*hbcm*p2p5*p3p5*p6p7+2*hbcm*p2p5*p3p7*p5p6+4*
4805      . hbcm*p3p5*p4p6*p4p7+2*hbcm*p3p5*p4p7*p5p6))+ans2
4806       ans=ccc*ans1
4807       b(11)=ans
4808       ans4=8*(-2*fmc*hbcm*p1p8*p2p3*p6p7-2*fmc*hbcm*p2p3*p5p8*p6p7+4*
4809      . fmc*hbcm*p2p8*p3p7*p5p6-4*fmc*hbcm*p3p5*p4p7*p6p8+4*fmc*hbcm*
4810      . p3p6*p4p7*p5p8-4*fmc2*p2p8*p3p6*p3p7-2*hbcm2*p1p2*p2p8*p6p7-2*
4811      . hbcm2*p1p2*p4p7*p6p8+2*hbcm2*p1p2*p4p8*p6p7+2*hbcm2*p1p4*p4p7*
4812      . p6p8-2*hbcm2*p1p8*p2p4*p6p7-2*hbcm2*p1p8*p4p6*p4p7+hbcm2*p2p4*
4813      . p2p8*p6p7-2*hbcm2*p2p4*p3p7*p6p8-hbcm2*p2p4*p4p8*p6p7-2*hbcm2*
4814      . p2p4*p5p7*p6p8+6*hbcm2*p2p4*p5p8*p6p7+2*hbcm2*p2p5*p2p8*p6p7-2
4815      . *hbcm2*p2p5*p4p7*p6p8-2*hbcm2*p2p5*p4p8*p6p7-hbcm2*p2p8*p4p6*
4816      . p4p7+hbcm2*p2p8*p4p7*p5p6+2*hbcm2*p4p5*p4p7*p6p8+hbcm2*p4p6*
4817      . p4p7*p4p8+2*hbcm2*p4p6*p4p7*p5p8-hbcm2*p4p7*p4p8*p5p6-2*p1p8*
4818      . p2p3*p3p4*p6p7+2*p1p8*p2p3s2*p6p7-6*p2p3*p2p8*p3p4*p6p7+2*p2p3
4819      . *p2p8*p3p6*p3p7+6*p2p3*p2p8*p3p7*p4p6-2*p2p3*p2p8*p3p7*p5p6+6*
4820      . p2p3*p3p4*p4p8*p6p7-2*p2p3*p3p4*p5p8*p6p7+4*p2p3*p3p5*p4p7*
4821      . p6p8-4*p2p3*p3p6*p4p7*p5p8+6*p2p3s2*p2p8*p6p7-6*p2p3s2*p4p8*
4822      . p6p7+2*p2p3s2*p5p8*p6p7-2*p2p8*p3p4*p3p6*p3p7-6*p2p8*p3p4*p3p7
4823      . *p4p6+2*p2p8*p3p4*p3p7*p5p6-4*p3p4*p3p5*p4p7*p6p8+4*p3p4*p3p6*
4824      . p4p7*p5p8)
4825       ans3=8*(p4p8*p4p7*p3p6)*(2*fmb*hbcm+2*fmc*hbcm-hbcm2)+16*(p6p8*
4826      . p4p7*p3p4)*(-fmb*hbcm-fmc*hbcm)+16*(p4p6*p3p7*p2p8)*(fmb*hbcm-
4827      . 3*fmc*hbcm-hbcm2)+8*(p4p7*p3p6*p2p8)*(-2*fmb*hbcm-2*fmc*hbcm+
4828      . hbcm2)+8*(p6p7*p4p8*p2p3)*(-3*fmb*hbcm+3*fmc*hbcm+hbcm2)+16*(
4829      . p6p8*p4p7*p2p3)*(fmb*hbcm+fmc*hbcm)+8*(p6p7*p2p8*p2p3)*(3*fmb*
4830      . hbcm-3*fmc*hbcm-hbcm2)+16*(p6p8*p4p7)*(-fmb*fmc*hbcm2-fmc*
4831      . hbcm3)+ans4
4832       ans2=w11*ans3
4833       ans5=(8*(p6p8*p4p7)*(8*fb3*fmb*hbcm+4*fb3*fmc*hbcm-4*fb4*fmc*
4834      . hbcm+8*fb4*hbcm2+hbcm2)+64*(fb4*p1p8*p2p3*p6p7+3*fb4*p2p3*p2p8
4835      . *p6p7-3*fb4*p2p3*p4p8*p6p7+fb4*p2p3*p5p8*p6p7+fb4*p2p8*p3p6*
4836      . p3p7+3*fb4*p2p8*p3p7*p4p6-fb4*p2p8*p3p7*p5p6+2*fb4*p3p5*p4p7*
4837      . p6p8-2*fb4*p3p6*p4p7*p5p8))
4838       ans1=w2*(32*(p5p6*p3p7*p2p8)*(fmc*hbcm-hbcm2)+8*(p5p8*p4p7*p3p6
4839      . )*(-2*fmb*hbcm+2*fmc*hbcm-hbcm2)+16*(p6p8*p4p7*p3p5)*(fmb*hbcm
4840      . -fmc*hbcm+hbcm2)+8*(p6p7*p5p8*p2p3)*(-fmb*hbcm-3*fmc*hbcm+
4841      . hbcm2)+16*(p6p8*p4p7)*(-fmb*fmc*hbcm2+fmb*hbcm3-fmb2*hbcm2+2*
4842      . p3p5s2)+8*(4*fmb*fmc*p2p8*p3p6*p3p7+2*fmb*hbcm*p1p8*p2p3*p6p7+
4843      . 6*fmb*hbcm*p2p3*p2p8*p6p7-6*fmb*hbcm*p2p3*p4p8*p6p7+8*fmb*hbcm
4844      . *p2p8*p3p7*p4p6+2*hbcm2*p1p2*p5p8*p6p7+hbcm2*p2p4*p5p8*p6p7-2*
4845      . hbcm2*p2p5*p5p8*p6p7+3*hbcm2*p4p6*p4p7*p5p8+3*hbcm2*p4p7*p5p6*
4846      . p5p8+2*p1p8*p2p3*p3p5*p6p7+6*p2p3*p2p8*p3p5*p6p7-6*p2p3*p3p5*
4847      . p4p8*p6p7+2*p2p3*p3p5*p5p8*p6p7+2*p2p8*p3p5*p3p6*p3p7+6*p2p8*
4848      . p3p5*p3p7*p4p6-2*p2p8*p3p5*p3p7*p5p6-4*p3p5*p3p6*p4p7*p5p8))+
4849      . ans2+ans5
4850       ans=ccc*ans1
4851       b(12)=ans
4852       b(13)=ccc*(w2*(4*(p3p5*p2p8)*(-3*fmb+5*fmc-3*hbcm)+12*p2p8*(fmb
4853      . *fmc*hbcm-fmb*hbcm2-fmb2*hbcm)+4*(-2*hbcm*p1p2*p5p8+2*hbcm*
4854      . p1p5*p2p8+2*hbcm*p2p3*p5p8-hbcm*p2p4*p5p8-2*hbcm*p2p5*p2p8+2*
4855      . hbcm*p2p5*p5p8+2*hbcm*p2p8*p4p5))+w11*(4*(p3p4*p2p8)*(3*fmb-5*
4856      . fmc-hbcm)+4*(p2p8*p2p3)*(-3*fmb+5*fmc-hbcm)+12*p2p8*(fmb*fmc*
4857      . hbcm-fmc*hbcm2-fmc2*hbcm)+4*(-2*hbcm*p1p2*p4p8+2*hbcm*p1p4*
4858      . p2p8+2*hbcm*p1p8*p2p4+2*hbcm*p2p3*p4p8+5*hbcm*p2p4*p2p8+hbcm*
4859      . p2p4*p4p8-6*hbcm*p2p4*p5p8-4*hbcm*p2p5*p2p8+2*hbcm*p2p5*p4p8+2
4860      . *hbcm*p2p8*p4p5))+48*p2p8*(fb3*hbcm-fb4*fmb+fb4*fmc))
4861       b(14)=ccc*(w11*(4*p2p4*(3*fmb*hbcm+2*fmc*hbcm-3*hbcm2)+4*(-2*
4862      . fmc*hbcm*p1p2+2*fmc*hbcm*p2p3+2*fmc*hbcm*p2p5+2*p1p2*p2p3-2*
4863      . p1p2*p3p4+p2p3*p2p4-2*p2p3*p2p5+2*p2p3*p3p4-2*p2p3s2-p2p4*p3p4
4864      . +2*p2p5*p3p4))+4*w2*(2*fmb*hbcm*p1p2-2*fmb*hbcm*p2p3+fmb*hbcm*
4865      . p2p4-2*fmb*hbcm*p2p5+2*p1p2*p3p5-2*p2p3*p3p5+p2p4*p3p5-2*p2p5*
4866      . p3p5)+16*(2*fb4*p1p2-2*fb4*p2p3+fb4*p2p4-2*fb4*p2p5))
4867       ans2=(8*p2p8*(6*fb3*fmb*hbcm+6*fb3*fmc*hbcm-4*fb4*fmc*hbcm+6*
4868      . fb4*hbcm2+hbcm2)+32*(-fb4*p1p3*p2p8+fb4*p1p8*p2p3+fb4*p2p3*
4869      . p4p8-3*fb4*p2p3*p5p8-fb4*p2p8*p3p4+3*fb4*p2p8*p3p5))
4870       ans1=w2*(12*(p3p5*p2p8)*(fmb*hbcm-fmc*hbcm+hbcm2)+4*(p5p8*p2p3)
4871      . *(-3*fmb*hbcm+3*fmc*hbcm-hbcm2)+4*p2p8*(-5*fmb*fmc*hbcm2+3*fmb
4872      . *hbcm3-3*fmb2*hbcm2+6*p3p5s2)+4*(-2*fmb*hbcm*p1p3*p2p8+2*fmb*
4873      . hbcm*p1p8*p2p3+2*fmb*hbcm*p2p3*p4p8-2*fmb*hbcm*p2p8*p3p4-2*
4874      . hbcm2*p1p2*p5p8+2*hbcm2*p1p5*p2p8-hbcm2*p2p4*p5p8-2*hbcm2*p2p5
4875      . *p2p8+2*hbcm2*p2p5*p5p8+2*hbcm2*p2p8*p4p5-2*p1p3*p2p8*p3p5+2*
4876      . p1p8*p2p3*p3p5+2*p2p3*p3p5*p4p8-6*p2p3*p3p5*p5p8-2*p2p8*p3p4*
4877      . p3p5))+w11*(4*(p3p4*p2p8)*(-3*fmb*hbcm-fmc*hbcm-hbcm2)+4*(p4p8
4878      . *p2p3)*(3*fmb*hbcm+fmc*hbcm-hbcm2)+4*p2p8*(-3*fmb*fmc*hbcm2-3*
4879      . fmc*hbcm3-fmc2*hbcm2+2*p3p4s2)+4*(2*fmc*hbcm*p1p3*p2p8-2*fmc*
4880      . hbcm*p1p8*p2p3+6*fmc*hbcm*p2p3*p5p8-6*fmc*hbcm*p2p8*p3p5-2*
4881      . hbcm2*p1p2*p4p8+2*hbcm2*p1p4*p2p8+2*hbcm2*p1p8*p2p4+2*hbcm2*
4882      . p2p3*p2p8+5*hbcm2*p2p4*p2p8+hbcm2*p2p4*p4p8-6*hbcm2*p2p4*p5p8-
4883      . 4*hbcm2*p2p5*p2p8+2*hbcm2*p2p5*p4p8+2*hbcm2*p2p8*p4p5-2*p1p3*
4884      . p2p3*p2p8+2*p1p3*p2p8*p3p4-2*p1p8*p2p3*p3p4+2*p1p8*p2p3s2-2*
4885      . p2p3*p2p8*p3p4+6*p2p3*p2p8*p3p5-2*p2p3*p3p4*p4p8+6*p2p3*p3p4*
4886      . p5p8+2*p2p3s2*p4p8-6*p2p3s2*p5p8-6*p2p8*p3p4*p3p5))+ans2
4887       ans=ccc*ans1
4888       b(15)=ans
4889       b(16)=ccc*(w2*(4*(p3p5*p2p3)*(3*fmb-5*fmc+hbcm)+4*p2p3*(-3*fmb*
4890      . fmc*hbcm+fmb*hbcm2+3*fmb2*hbcm)+4*(2*fmb*hbcm2*p1p2+fmb*hbcm2*
4891      . p2p4-2*fmb*hbcm2*p2p5+2*hbcm*p1p2*p3p5-2*hbcm*p1p5*p2p3+2*hbcm
4892      . *p2p3*p2p5-2*hbcm*p2p3*p4p5+hbcm*p2p4*p3p5-2*hbcm*p2p5*p3p5))+
4893      . w11*(4*(p3p4*p2p3)*(-3*fmb+5*fmc-hbcm)+4*p2p4*(3*fmb*hbcm2-4*
4894      . fmc*hbcm2+3*hbcm3)+4*p2p3*(-3*fmb*fmc*hbcm+fmc*hbcm2+3*fmc2*
4895      . hbcm)+4*(3*fmb*p2p3s2+2*fmc*hbcm2*p1p2-2*fmc*hbcm2*p2p5-5*fmc*
4896      . p2p3s2+2*hbcm*p1p2*p3p4-2*hbcm*p1p3*p2p4-2*hbcm*p1p4*p2p3-5*
4897      . hbcm*p2p3*p2p4+4*hbcm*p2p3*p2p5-2*hbcm*p2p3*p4p5+hbcm*p2p3s2-
4898      . hbcm*p2p4*p3p4+6*hbcm*p2p4*p3p5-2*hbcm*p2p5*p3p4))+(16*p2p3*(-
4899      . fb3*hbcm+3*fb4*fmb-3*fb4*fmc)+16*(-2*fb3*hbcm*p1p2-fb3*hbcm*
4900      . p2p4+2*fb3*hbcm*p2p5)))
4901       b(17)=ccc*(w2*(8*(p6p8*p3p5)*(fmb-fmc+hbcm)+8*p6p8*(-fmb*fmc*
4902      . hbcm+fmb*hbcm2+fmb2*hbcm)+8*(-fmc*p3p6*p5p8-2*hbcm*p4p6*p5p8-
4903      . hbcm*p5p6*p5p8))+w11*(8*(p6p8*p3p4)*(-fmb+fmc)+8*(p6p8*p2p3)*(
4904      . fmb-fmc)+8*p6p8*(-fmb*fmc*hbcm+fmc*hbcm2)+8*(fmc*p2p8*p3p6-fmc
4905      . *p3p6*p4p8+hbcm*p1p2*p6p8-hbcm*p1p4*p6p8+hbcm*p1p8*p4p6-hbcm*
4906      . p2p4*p6p8+hbcm*p2p5*p6p8+hbcm*p2p8*p4p6-hbcm*p2p8*p5p6-hbcm*
4907      . p4p5*p6p8-hbcm*p4p6*p4p8-hbcm*p4p6*p5p8+hbcm*p4p8*p5p6))+16*
4908      . p6p8*(fb3*fmc-2*fb3*hbcm+2*fb4*fmb-fb4*fmc))
4909       b(18)=ccc*(w11*(4*p4p6*(-fmb*hbcm+3*fmc*hbcm+hbcm2)+4*(-2*fmc*
4910      . hbcm*p5p6+2*fmc2*p3p6-p2p3*p3p6-3*p2p3*p4p6+p2p3*p5p6+p3p4*
4911      . p3p6+3*p3p4*p4p6-p3p4*p5p6))+w2*(8*p5p6*(-fmc*hbcm+hbcm2)+4*(-
4912      . 2*fmb*fmc*p3p6-4*fmb*hbcm*p4p6-p3p5*p3p6-3*p3p5*p4p6+p3p5*p5p6
4913      . ))+16*(-fb4*p3p6-3*fb4*p4p6+fb4*p5p6))
4914       b(19)=ccc*(w11*(6*p4p8*(-fmb*hbcm2+fmc*hbcm2-hbcm3)+6*p2p8*(fmb
4915      . *hbcm2-fmc*hbcm2+hbcm3)+4*(-fmc*hbcm2*p1p8+3*fmc*hbcm2*p5p8-
4916      . hbcm*p1p3*p2p8+hbcm*p1p3*p4p8+hbcm*p1p8*p2p3-hbcm*p1p8*p3p4-3*
4917      . hbcm*p2p3*p5p8+3*hbcm*p2p8*p3p5+3*hbcm*p3p4*p5p8-3*hbcm*p3p5*
4918      . p4p8))+w2*(2*p5p8*(3*fmb*hbcm2+5*fmc*hbcm2-3*hbcm3)+4*(-fmb*
4919      . hbcm2*p1p8+fmb*hbcm2*p2p8-fmb*hbcm2*p4p8+hbcm*p1p3*p5p8-hbcm*
4920      . p1p8*p3p5-hbcm*p2p3*p5p8+hbcm*p2p8*p3p5+hbcm*p3p4*p5p8-hbcm*
4921      . p3p5*p4p8))+16*(fb3*hbcm*p1p8-fb3*hbcm*p2p8+fb3*hbcm*p4p8-3*
4922      . fb3*hbcm*p5p8))
4923       b(20)=ccc*(w11*(2*p4p8*(-3*fmb*hbcm-fmc*hbcm+3*hbcm2)+2*p2p8*(3
4924      . *fmb*hbcm+fmc*hbcm-3*hbcm2)+4*(fmc*hbcm*p1p8-3*fmc*hbcm*p5p8-
4925      . p1p8*p2p3+p1p8*p3p4+p2p3*p2p8-p2p3*p4p8+3*p2p3*p5p8-p2p8*p3p4+
4926      . p3p4*p4p8-3*p3p4*p5p8))+w2*(6*p5p8*(fmb*hbcm-fmc*hbcm+hbcm2)+4
4927      . *(-fmb*hbcm*p1p8+fmb*hbcm*p2p8-fmb*hbcm*p4p8-p1p8*p3p5+p2p8*
4928      . p3p5-p3p5*p4p8+3*p3p5*p5p8))+16*(-fb4*p1p8+fb4*p2p8-fb4*p4p8+3
4929      . *fb4*p5p8))
4930       b(21)=ccc*(w2*(4*(p7p8*p3p5)*(3*fmb-5*fmc+3*hbcm)+12*p7p8*(-fmb
4931      . *fmc*hbcm+fmb*hbcm2+fmb2*hbcm)+8*(-hbcm*p1p5*p7p8+hbcm*p2p5*
4932      . p7p8-hbcm*p3p7*p5p8-hbcm*p4p5*p7p8-hbcm*p4p7*p5p8-hbcm*p5p7*
4933      . p5p8))+w11*(4*(p7p8*p3p4)*(-3*fmb+5*fmc+hbcm)+4*(p7p8*p2p3)*(3
4934      . *fmb-5*fmc-hbcm)+12*p7p8*(-fmb*fmc*hbcm+fmc*hbcm2+fmc2*hbcm)+8
4935      . *(hbcm*p1p2*p7p8-hbcm*p1p4*p7p8-3*hbcm*p2p4*p7p8+hbcm*p2p5*
4936      . p7p8+hbcm*p2p8*p3p7+hbcm*p2p8*p4p7+hbcm*p2p8*p5p7-hbcm*p3p7*
4937      . p4p8-hbcm*p4p5*p7p8-hbcm*p4p7*p4p8-hbcm*p4p8*p5p7))+48*p7p8*(-
4938      . fb3*hbcm+fb4*fmb-fb4*fmc))
4939       b(22)=ccc*(w2*(2*p3p5*(3*fmb-5*fmc+3*hbcm)+2*(-3*fmb*fmc*hbcm+3
4940      . *fmb*hbcm2+3*fmb2*hbcm-2*hbcm*p1p5+2*hbcm*p2p5-2*hbcm*p4p5))+
4941      . w11*(2*p3p4*(-3*fmb+5*fmc+hbcm)+2*p2p3*(3*fmb-5*fmc-hbcm)+2*(-
4942      . 3*fmb*fmc*hbcm+3*fmc*hbcm2+3*fmc2*hbcm+2*hbcm*p1p2-2*hbcm*p1p4
4943      . -6*hbcm*p2p4+2*hbcm*p2p5-2*hbcm*p4p5))+24*(-fb3*hbcm+fb4*fmb-
4944      . fb4*fmc))
4945       b(23)=ccc*(8*w11*(-fmc*hbcm*p3p7-fmc*hbcm*p4p7-fmc*hbcm*p5p7+
4946      . p2p3*p3p7+p2p3*p4p7+p2p3*p5p7-p3p4*p3p7-p3p4*p4p7-p3p4*p5p7)+8
4947      . *w2*(fmb*hbcm*p3p7+fmb*hbcm*p4p7+fmb*hbcm*p5p7+p3p5*p3p7+p3p5*
4948      . p4p7+p3p5*p5p7)+32*(fb4*p3p7+fb4*p4p7+fb4*p5p7))
4949       b(24)=ccc*(w2*(6*p3p5*(-fmb*hbcm+fmc*hbcm-hbcm2)+2*(5*fmb*fmc*
4950      . hbcm2+2*fmb*hbcm*p1p3-2*fmb*hbcm*p2p3+2*fmb*hbcm*p3p4-3*fmb*
4951      . hbcm3+3*fmb2*hbcm2-2*hbcm2*p1p5+2*hbcm2*p2p5-2*hbcm2*p4p5+2*
4952      . p1p3*p3p5-2*p2p3*p3p5+2*p3p4*p3p5-6*p3p5s2))+w11*(2*p3p4*(3*
4953      . fmb*hbcm+fmc*hbcm+hbcm2)+2*p2p3*(-3*fmb*hbcm-fmc*hbcm-hbcm2)+2
4954      . *(3*fmb*fmc*hbcm2-2*fmc*hbcm*p1p3+6*fmc*hbcm*p3p5+3*fmc*hbcm3+
4955      . fmc2*hbcm2+2*hbcm2*p1p2-2*hbcm2*p1p4-6*hbcm2*p2p4+2*hbcm2*p2p5
4956      . -2*hbcm2*p4p5+2*p1p3*p2p3-2*p1p3*p3p4+4*p2p3*p3p4-6*p2p3*p3p5-
4957      . 2*p2p3s2+6*p3p4*p3p5-2*p3p4s2))+4*(-6*fb3*fmb*hbcm-6*fb3*fmc*
4958      . hbcm+4*fb4*fmc*hbcm-6*fb4*hbcm2+4*fb4*p1p3-4*fb4*p2p3+4*fb4*
4959      . p3p4-12*fb4*p3p5-hbcm2))
4960       b(25)=ccc*(w2*(4*(p3p7*p3p5)*(-3*fmb+5*fmc-hbcm)+4*p3p7*(3*fmb*
4961      . fmc*hbcm-fmb*hbcm2-3*fmb2*hbcm)+8*(fmb*hbcm2*p4p7+fmb*hbcm2*
4962      . p5p7+hbcm*p1p5*p3p7-hbcm*p2p5*p3p7+hbcm*p3p5*p4p7+hbcm*p3p5*
4963      . p5p7+hbcm*p3p7*p4p5))+w11*(4*(p3p7*p3p4)*(3*fmb-5*fmc+hbcm)+4*
4964      . (p3p7*p2p3)*(-3*fmb+5*fmc-hbcm)+4*p3p7*(3*fmb*fmc*hbcm-fmc*
4965      . hbcm2-3*fmc2*hbcm)+8*(fmc*hbcm2*p4p7+fmc*hbcm2*p5p7-hbcm*p1p2*
4966      . p3p7+hbcm*p1p4*p3p7-hbcm*p2p3*p4p7-hbcm*p2p3*p5p7+3*hbcm*p2p4*
4967      . p3p7-hbcm*p2p5*p3p7+hbcm*p3p4*p4p7+hbcm*p3p4*p5p7+hbcm*p3p7*
4968      . p4p5))+(16*p3p7*(fb3*hbcm-3*fb4*fmb+3*fb4*fmc)+32*(-fb3*hbcm*
4969      . p4p7-fb3*hbcm*p5p7)))
4970       b(26)=ccc*(w2*(8*(p3p6*p3p5)*(-fmb+2*fmc-hbcm)+4*p5p6*(fmb*
4971      . hbcm2-2*fmc*hbcm2+2*hbcm3)+4*p3p6*(2*fmb*fmc*hbcm-fmb*hbcm2-2*
4972      . fmb2*hbcm)+4*(3*fmb*hbcm2*p4p6+4*hbcm*p3p5*p4p6+2*hbcm*p3p5*
4973      . p5p6))+w11*(4*p4p6*(fmb*hbcm2+hbcm3)+4*p3p6*(2*fmb*fmc*hbcm-
4974      . fmc*hbcm2)+4*(-2*fmb*p2p3*p3p6+2*fmb*p3p4*p3p6-fmc*hbcm2*p5p6-
4975      . 2*hbcm*p1p2*p3p6-2*hbcm*p1p3*p4p6+2*hbcm*p1p4*p3p6-2*hbcm*p2p3
4976      . *p4p6+2*hbcm*p2p3*p5p6+2*hbcm*p2p4*p3p6-2*hbcm*p2p5*p3p6+2*
4977      . hbcm*p3p4*p4p6-2*hbcm*p3p4*p5p6+2*hbcm*p3p5*p4p6+2*hbcm*p3p6*
4978      . p4p5))+(16*p3p6*(fb3*fmc-2*fb4*fmb+fb4*fmc)-32*fb3*hbcm*p4p6))
4979       ans2=w11*(4*(p4p8*p3p7)*(-3*fmb*hbcm-fmc*hbcm+hbcm2)+4*(p7p8*
4980      . p3p4)*(3*fmb*hbcm+fmc*hbcm+hbcm2)+4*(p3p7*p2p8)*(3*fmb*hbcm+
4981      . fmc*hbcm-hbcm2)+4*(p7p8*p2p3)*(-3*fmb*hbcm-fmc*hbcm-hbcm2)+4*
4982      . p7p8*(3*fmb*fmc*hbcm2+3*fmc*hbcm3+fmc2*hbcm2-2*p2p3s2-2*p3p4s2
4983      . )+8*(-fmc*hbcm*p1p3*p7p8+fmc*hbcm*p1p8*p3p7+3*fmc*hbcm*p3p5*
4984      . p7p8-3*fmc*hbcm*p3p7*p5p8+hbcm2*p1p2*p7p8-hbcm2*p1p4*p7p8-3*
4985      . hbcm2*p2p4*p7p8+hbcm2*p2p5*p7p8+hbcm2*p2p8*p4p7+hbcm2*p2p8*
4986      . p5p7-hbcm2*p4p5*p7p8-hbcm2*p4p7*p4p8-hbcm2*p4p8*p5p7+p1p3*p2p3
4987      . *p7p8-p1p3*p3p4*p7p8-p1p8*p2p3*p3p7+p1p8*p3p4*p3p7+p2p3*p2p8*
4988      . p3p7+2*p2p3*p3p4*p7p8-3*p2p3*p3p5*p7p8-p2p3*p3p7*p4p8+3*p2p3*
4989      . p3p7*p5p8-p2p8*p3p4*p3p7+3*p3p4*p3p5*p7p8+p3p4*p3p7*p4p8-3*
4990      . p3p4*p3p7*p5p8))+(8*p7p8*(-6*fb3*fmb*hbcm-6*fb3*fmc*hbcm+4*fb4
4991      . *fmc*hbcm-6*fb4*hbcm2-hbcm2)+32*(fb4*p1p3*p7p8-fb4*p1p8*p3p7-
4992      . fb4*p2p3*p7p8+fb4*p2p8*p3p7+fb4*p3p4*p7p8-3*fb4*p3p5*p7p8-fb4*
4993      . p3p7*p4p8+3*fb4*p3p7*p5p8))
4994       ans1=w2*(4*(p5p8*p3p7)*(3*fmb*hbcm-3*fmc*hbcm+hbcm2)+12*(p7p8*
4995      . p3p5)*(-fmb*hbcm+fmc*hbcm-hbcm2)+4*p7p8*(5*fmb*fmc*hbcm2-3*fmb
4996      . *hbcm3+3*fmb2*hbcm2-6*p3p5s2)+8*(fmb*hbcm*p1p3*p7p8-fmb*hbcm*
4997      . p1p8*p3p7-fmb*hbcm*p2p3*p7p8+fmb*hbcm*p2p8*p3p7+fmb*hbcm*p3p4*
4998      . p7p8-fmb*hbcm*p3p7*p4p8-hbcm2*p1p5*p7p8+hbcm2*p2p5*p7p8-hbcm2*
4999      . p4p5*p7p8-hbcm2*p4p7*p5p8-hbcm2*p5p7*p5p8+p1p3*p3p5*p7p8-p1p8*
5000      . p3p5*p3p7-p2p3*p3p5*p7p8+p2p8*p3p5*p3p7+p3p4*p3p5*p7p8-p3p5*
5001      . p3p7*p4p8+3*p3p5*p3p7*p5p8))+ans2
5002       ans=ccc*ans1
5003       b(27)=ans
5004       ans=ccc*(w2*(4*(p5p8*p3p6)*(-2*fmb*hbcm+2*fmc*hbcm-hbcm2)+8*
5005      . p6p8*(-fmb*fmc*hbcm2-fmb2*hbcm2+p3p5s2)+4*(2*fmb*hbcm*p1p3*
5006      . p6p8+2*fmb*hbcm*p2p3*p6p8-2*fmb*hbcm*p3p4*p6p8-2*fmc*hbcm*p3p5
5007      . *p6p8+3*hbcm2*p4p6*p5p8+3*hbcm2*p5p6*p5p8+2*p1p3*p3p5*p6p8+2*
5008      . p2p3*p3p5*p6p8-2*p3p4*p3p5*p6p8-4*p3p5*p3p6*p5p8))+w11*(4*(
5009      . p4p8*p3p6)*(2*fmb*hbcm+2*fmc*hbcm-hbcm2)+8*(p6p8*p3p4)*(-fmb*
5010      . hbcm+hbcm2)+4*(p3p6*p2p8)*(-2*fmb*hbcm-2*fmc*hbcm+hbcm2)+8*(
5011      . p6p8*p2p3)*(fmb*hbcm-hbcm2)+8*p6p8*(-fmb*fmc*hbcm2+p2p3s2+
5012      . p3p4s2)+4*(-2*fmc*hbcm*p1p3*p6p8-2*fmc*hbcm*p3p5*p6p8+4*fmc*
5013      . hbcm*p3p6*p5p8-2*hbcm2*p1p2*p6p8+2*hbcm2*p1p4*p6p8-2*hbcm2*
5014      . p1p8*p4p6+2*hbcm2*p2p4*p6p8-2*hbcm2*p2p5*p6p8-hbcm2*p2p8*p4p6+
5015      . hbcm2*p2p8*p5p6+2*hbcm2*p4p5*p6p8+hbcm2*p4p6*p4p8+2*hbcm2*p4p6
5016      . *p5p8-hbcm2*p4p8*p5p6+2*p1p3*p2p3*p6p8-2*p1p3*p3p4*p6p8-4*p2p3
5017      . *p3p4*p6p8+2*p2p3*p3p5*p6p8-4*p2p3*p3p6*p5p8-2*p3p4*p3p5*p6p8+
5018      . 4*p3p4*p3p6*p5p8))+(4*p6p8*(8*fb3*fmb*hbcm+4*fb3*fmc*hbcm-4*
5019      . fb4*fmc*hbcm+hbcm2)+32*(fb4*p1p3*p6p8+fb4*p2p3*p6p8-fb4*p3p4*
5020      . p6p8+fb4*p3p5*p6p8-2*fb4*p3p6*p5p8)))
5021       b(28)=ans
5022       ans2=w11*(8*(p3p7*p3p6)*(-fmc*hbcm+2*fmc2)+8*(p4p6*p3p7)*(-fmb*
5023      . hbcm+3*fmc*hbcm)+12*(p6p7*p3p4)*(fmb*hbcm-fmc*hbcm-hbcm2)+12*(
5024      . p6p7*p2p3)*(-fmb*hbcm+fmc*hbcm+hbcm2)+4*p6p7*(3*fmb*fmc*hbcm2-
5025      . fmc*hbcm3+fmc2*hbcm2-6*p2p3s2-6*p3p4s2)+8*(fmc*hbcm*p1p3*p6p7+
5026      . fmc*hbcm*p3p5*p6p7-fmc*hbcm*p3p6*p4p7-fmc*hbcm*p3p6*p5p7-2*fmc
5027      . *hbcm*p3p7*p5p6+hbcm2*p1p2*p6p7-hbcm2*p1p4*p6p7-3*hbcm2*p2p4*
5028      . p6p7+hbcm2*p2p5*p6p7-hbcm2*p4p5*p6p7-hbcm2*p4p6*p4p7-hbcm2*
5029      . p4p6*p5p7-p1p3*p2p3*p6p7+p1p3*p3p4*p6p7+6*p2p3*p3p4*p6p7-p2p3*
5030      . p3p5*p6p7+p2p3*p3p6*p4p7+p2p3*p3p6*p5p7-3*p2p3*p3p7*p4p6+p2p3*
5031      . p3p7*p5p6+p3p4*p3p5*p6p7-p3p4*p3p6*p4p7-p3p4*p3p6*p5p7+3*p3p4*
5032      . p3p7*p4p6-p3p4*p3p7*p5p6))+(8*p6p7*(-6*fb3*fmb*hbcm-6*fb3*fmc*
5033      . hbcm+4*fb4*fmc*hbcm+2*fb4*hbcm2-hbcm2)+32*(-fb4*p1p3*p6p7-3*
5034      . fb4*p2p3*p6p7+3*fb4*p3p4*p6p7-fb4*p3p5*p6p7+fb4*p3p6*p4p7+fb4*
5035      . p3p6*p5p7-3*fb4*p3p7*p4p6+fb4*p3p7*p5p6))
5036       ans1=w2*(8*(p5p6*p3p7)*(-2*fmc*hbcm+hbcm2)+4*(p6p7*p3p5)*(fmb*
5037      . hbcm+3*fmc*hbcm+hbcm2)+8*(p3p7*p3p6)*(-2*fmb*fmc+fmb*hbcm)+4*
5038      . p6p7*(5*fmb*fmc*hbcm2+fmb*hbcm3+3*fmb2*hbcm2-2*p3p5s2)+8*(-fmb
5039      . *hbcm*p1p3*p6p7-3*fmb*hbcm*p2p3*p6p7+3*fmb*hbcm*p3p4*p6p7+fmb*
5040      . hbcm*p3p6*p4p7+fmb*hbcm*p3p6*p5p7-4*fmb*hbcm*p3p7*p4p6-hbcm2*
5041      . p1p5*p6p7+hbcm2*p2p5*p6p7-hbcm2*p4p5*p6p7-hbcm2*p4p7*p5p6-
5042      . hbcm2*p5p6*p5p7-p1p3*p3p5*p6p7-3*p2p3*p3p5*p6p7+3*p3p4*p3p5*
5043      . p6p7+p3p5*p3p6*p4p7+p3p5*p3p6*p5p7-3*p3p5*p3p7*p4p6+p3p5*p3p7*
5044      . p5p6))+ans2
5045       ans=ccc*ans1
5046       b(29)=ans
5047       ans4=8*(-2*fmb*p2p3*p3p6*p7p8+2*fmb*p3p4*p3p6*p7p8-fmc*hbcm2*
5048      . p1p8*p6p7-fmc*hbcm2*p4p7*p6p8-fmc*hbcm2*p5p6*p7p8-fmc*hbcm2*
5049      . p5p7*p6p8+3*fmc*hbcm2*p5p8*p6p7-2*hbcm*p1p2*p3p6*p7p8+2*hbcm*
5050      . p1p2*p3p7*p6p8-hbcm*p1p3*p2p8*p6p7-2*hbcm*p1p3*p4p6*p7p8+hbcm*
5051      . p1p3*p4p8*p6p7+2*hbcm*p1p4*p3p6*p7p8-2*hbcm*p1p4*p3p7*p6p8+
5052      . hbcm*p1p8*p2p3*p6p7-hbcm*p1p8*p3p4*p6p7+2*hbcm*p1p8*p3p7*p4p6-
5053      . 2*hbcm*p2p3*p4p6*p7p8+hbcm*p2p3*p4p7*p6p8+2*hbcm*p2p3*p5p6*
5054      . p7p8+hbcm*p2p3*p5p7*p6p8-3*hbcm*p2p3*p5p8*p6p7+2*hbcm*p2p4*
5055      . p3p6*p7p8-2*hbcm*p2p4*p3p7*p6p8-2*hbcm*p2p5*p3p6*p7p8+2*hbcm*
5056      . p2p5*p3p7*p6p8+3*hbcm*p2p8*p3p5*p6p7-hbcm*p2p8*p3p6*p4p7-hbcm*
5057      . p2p8*p3p6*p5p7+2*hbcm*p2p8*p3p7*p4p6-2*hbcm*p2p8*p3p7*p5p6+2*
5058      . hbcm*p3p4*p4p6*p7p8-hbcm*p3p4*p4p7*p6p8-2*hbcm*p3p4*p5p6*p7p8-
5059      . hbcm*p3p4*p5p7*p6p8+3*hbcm*p3p4*p5p8*p6p7+2*hbcm*p3p5*p4p6*
5060      . p7p8-3*hbcm*p3p5*p4p8*p6p7+2*hbcm*p3p6*p4p5*p7p8+hbcm*p3p6*
5061      . p4p7*p4p8+hbcm*p3p6*p4p8*p5p7-2*hbcm*p3p7*p4p5*p6p8-2*hbcm*
5062      . p3p7*p4p6*p4p8-2*hbcm*p3p7*p4p6*p5p8+2*hbcm*p3p7*p4p8*p5p6)
5063       ans3=8*(p4p8*p3p7*p3p6)*(-2*fmc+hbcm)+8*(p3p7*p3p6*p2p8)*(2*fmc
5064      . -hbcm)+8*(p6p8*p3p7*p3p4)*(-2*fmb+2*fmc-hbcm)+8*(p6p8*p3p7*
5065      . p2p3)*(2*fmb-2*fmc+hbcm)+12*(p6p7*p4p8)*(-fmb*hbcm2+fmc*hbcm2-
5066      . hbcm3)+8*(p7p8*p4p6)*(fmb*hbcm2+hbcm3)+12*(p6p7*p2p8)*(fmb*
5067      . hbcm2-fmc*hbcm2+hbcm3)+8*(p6p8*p3p7)*(-2*fmb*fmc*hbcm+fmc*
5068      . hbcm2)+8*(p7p8*p3p6)*(2*fmb*fmc*hbcm-fmc*hbcm2)+ans4
5069       ans2=w11*ans3
5070       ans5=(32*(p6p8*p3p7)*(fb3*fmc-fb3*hbcm+2*fb4*fmb-fb4*fmc)+32*(
5071      . p7p8*p3p6)*(fb3*fmc-2*fb4*fmb+fb4*fmc)+32*(fb3*hbcm*p1p8*p6p7-
5072      . fb3*hbcm*p2p8*p6p7-2*fb3*hbcm*p4p6*p7p8+fb3*hbcm*p4p7*p6p8+fb3
5073      . *hbcm*p4p8*p6p7+fb3*hbcm*p5p7*p6p8-3*fb3*hbcm*p5p8*p6p7))
5074       ans1=w2*(8*(p5p8*p3p7*p3p6)*(-2*fmc+hbcm)+8*(p6p8*p3p7*p3p5)*(2
5075      . *fmb-2*fmc+hbcm)+16*(p7p8*p3p6*p3p5)*(-fmb+2*fmc-hbcm)+4*(p6p7
5076      . *p5p8)*(3*fmb*hbcm2+5*fmc*hbcm2-3*hbcm3)+8*(p7p8*p5p6)*(fmb*
5077      . hbcm2-2*fmc*hbcm2+2*hbcm3)+8*(p6p8*p3p7)*(-2*fmb*fmc*hbcm+fmb*
5078      . hbcm2+2*fmb2*hbcm)+8*(p7p8*p3p6)*(2*fmb*fmc*hbcm-fmb*hbcm2-2*
5079      . fmb2*hbcm)+8*(-fmb*hbcm2*p1p8*p6p7+fmb*hbcm2*p2p8*p6p7+3*fmb*
5080      . hbcm2*p4p6*p7p8-fmb*hbcm2*p4p7*p6p8-fmb*hbcm2*p4p8*p6p7-fmb*
5081      . hbcm2*p5p7*p6p8+hbcm*p1p3*p5p8*p6p7-hbcm*p1p8*p3p5*p6p7-hbcm*
5082      . p2p3*p5p8*p6p7+hbcm*p2p8*p3p5*p6p7+hbcm*p3p4*p5p8*p6p7+4*hbcm*
5083      . p3p5*p4p6*p7p8-hbcm*p3p5*p4p7*p6p8-hbcm*p3p5*p4p8*p6p7+2*hbcm*
5084      . p3p5*p5p6*p7p8-hbcm*p3p5*p5p7*p6p8+hbcm*p3p6*p4p7*p5p8+hbcm*
5085      . p3p6*p5p7*p5p8-4*hbcm*p3p7*p4p6*p5p8-2*hbcm*p3p7*p5p6*p5p8))+
5086      . ans2+ans5
5087       ans=ccc*ans1
5088       b(30)=ans
5089       ans=ccc*(w11*(12*(p6p7*p4p8)*(fmb*hbcm-fmc*hbcm-hbcm2)+8*(p7p8*
5090      . p4p6)*(-fmb*hbcm+3*fmc*hbcm+hbcm2)+12*(p6p7*p2p8)*(-fmb*hbcm+
5091      . fmc*hbcm+hbcm2)+8*(fmc*hbcm*p1p8*p6p7-2*fmc*hbcm*p5p6*p7p8+fmc
5092      . *hbcm*p5p8*p6p7+2*fmc2*p3p6*p7p8-p1p8*p2p3*p6p7+p1p8*p3p4*p6p7
5093      . -3*p2p3*p2p8*p6p7-p2p3*p3p6*p7p8-3*p2p3*p4p6*p7p8+3*p2p3*p4p8*
5094      . p6p7+p2p3*p5p6*p7p8-p2p3*p5p8*p6p7+3*p2p8*p3p4*p6p7+p3p4*p3p6*
5095      . p7p8+3*p3p4*p4p6*p7p8-3*p3p4*p4p8*p6p7-p3p4*p5p6*p7p8+p3p4*
5096      . p5p8*p6p7))+w2*(16*(p7p8*p5p6)*(-fmc*hbcm+hbcm2)+4*(p6p7*p5p8)
5097      . *(fmb*hbcm+3*fmc*hbcm-3*hbcm2)+8*(-2*fmb*fmc*p3p6*p7p8-fmb*
5098      . hbcm*p1p8*p6p7-3*fmb*hbcm*p2p8*p6p7-4*fmb*hbcm*p4p6*p7p8+3*fmb
5099      . *hbcm*p4p8*p6p7-p1p8*p3p5*p6p7-3*p2p8*p3p5*p6p7-p3p5*p3p6*p7p8
5100      . -3*p3p5*p4p6*p7p8+3*p3p5*p4p8*p6p7+p3p5*p5p6*p7p8-p3p5*p5p8*
5101      . p6p7))+32*(-fb4*p1p8*p6p7-3*fb4*p2p8*p6p7-fb4*p3p6*p7p8-3*fb4*
5102      . p4p6*p7p8+3*fb4*p4p8*p6p7+fb4*p5p6*p7p8-fb4*p5p8*p6p7))
5103       b(31)=ans
5104       b(32)=ccc*(w2*(4*(p6p7*p3p5)*(3*fmb-5*fmc+3*hbcm)+12*p6p7*(-fmb
5105      . *fmc*hbcm+fmb*hbcm2+fmb2*hbcm)+8*(-hbcm*p1p5*p6p7+hbcm*p2p5*
5106      . p6p7-hbcm*p3p7*p5p6-hbcm*p4p5*p6p7-hbcm*p4p7*p5p6-hbcm*p5p6*
5107      . p5p7))+w11*(4*(p6p7*p3p4)*(-3*fmb+5*fmc+hbcm)+4*(p6p7*p2p3)*(3
5108      . *fmb-5*fmc-hbcm)+12*p6p7*(-fmb*fmc*hbcm+fmc*hbcm2+fmc2*hbcm)+8
5109      . *(hbcm*p1p2*p6p7-hbcm*p1p4*p6p7-3*hbcm*p2p4*p6p7+hbcm*p2p5*
5110      . p6p7-hbcm*p3p7*p4p6-hbcm*p4p5*p6p7-hbcm*p4p6*p4p7-hbcm*p4p6*
5111      . p5p7))+48*p6p7*(-fb3*hbcm+fb4*fmb-fb4*fmc))
5112       do 200 n=1,32
5113          c(n,1)=c(n,1)+0.8181818181818182d0*b(n)
5114          c(n,2)=c(n,2)-0.1512818716977898d0*b(n)
5115          c(n,3)=c(n,3)-0.1869893980016914d0*b(n)
5116 200   continue
5117       return
5118         end
5119
5120       subroutine amp25_3p1(cc)
5121       implicit double precision(a-h,o-z)
5122       implicit integer (i-n)
5123       dimension b(32)
5124 #include "inclcon.h"
5125 #include "inclppp.h"
5126 #include "inclamp.h"
5127       do 100 n=1,32
5128          b(n)=0.0d0
5129 100   continue
5130       ccc=cc/((2*p1p2)*(2*ffmcfmb*p3p4+2*fmc2)*(2*ffmcfmb*p1p3+2*
5131      . ffmcfmb*p2p3-fmb2-2*fmc*hbcm+fmc2+hbcm2+2*p1p2-2*p1p3-2*p2p3))
5132       ans=ccc*(w20*(32*(p6p7*p2p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+4*(p6p7*
5133      . p1p3)*(fmb*hbcm+fmb2+fmc*hbcm-fmc2)+8*(p6p7*p1p2)*(-fmb*hbcm-
5134      . fmc*hbcm+2*hbcm2)+4*(p6p7*p2p3)*(4*fmb*fmc+fmb*hbcm+fmb2+fmc*
5135      . hbcm+3*fmc2-4*hbcm2)+16*(-p1p2*p1p3*p6p7-p1p2*p2p3*p6p7+p1p3*
5136      . p2p3*p6p7+2*p1p3*p2p4*p6p7+2*p2p3*p2p4*p6p7+p2p3s2*p6p7))+w1*(
5137      . 8*(p6p7*p2p3)*(3*fmc*hbcm+fmc2)+8*(p6p7*p1p3)*(fmc*hbcm-fmc2)+
5138      . 8*(p6p7*p2p4)*(-fmb*hbcm+5*fmc*hbcm+hbcm2)+8*(p6p7*p1p4)*(-fmb
5139      . *hbcm-fmc*hbcm+hbcm2)+4*(p6p7*p3p4)*(2*fmb*fmc+fmb*hbcm+fmb2+
5140      . fmc*hbcm+fmc2-2*hbcm2)+4*p6p7*(-fmb*fmc*hbcm2+4*fmb*fmc2*hbcm+
5141      . 2*fmb2*fmc*hbcm-fmc*hbcm3-fmc2*hbcm2+2*fmc3*hbcm)+8*(-3*fmc*
5142      . hbcm*p1p2*p6p7-2*p1p2*p3p4*p6p7+2*p2p3*p3p4*p6p7+4*p2p4*p3p4*
5143      . p6p7))+(16*p6p7*(-fb3*fmb*fmc+fb3*fmb*hbcm+fb3*fmc*hbcm-fb3*
5144      . fmc2-fb4*fmb*fmc-fb4*fmb2)+64*(fb4*p1p2*p6p7-fb4*p2p3*p6p7-2*
5145      . fb4*p2p4*p6p7)))
5146       b(2)=ans
5147       ans=ccc*(w20*(8*(p6p7*p2p8*p2p3)*(-5*fmc+3*hbcm)+8*(p6p7*p2p3*
5148      . p1p8)*(-fmc-hbcm)+24*(p6p7*p2p8*p1p3)*(-fmc+hbcm)+8*(p6p7*p1p8
5149      . *p1p3)*(fmc-hbcm)+8*(p6p7*p5p8*p2p3)*(fmb+3*fmc-3*hbcm)+8*(
5150      . p6p7*p5p8*p1p3)*(fmb-fmc+hbcm)+4*(p6p7*p2p8)*(-fmb*hbcm2+4*
5151      . fmb2*hbcm+7*fmc*hbcm2-4*fmc2*hbcm-3*hbcm3)+4*(p6p7*p1p8)*(-fmb
5152      . *hbcm2-fmc*hbcm2+hbcm3)+8*(hbcm*p1p2*p1p8*p6p7-3*hbcm*p1p2*
5153      . p2p8*p6p7+2*hbcm*p1p2*p5p8*p6p7-2*hbcm*p1p8*p2p5*p6p7-2*hbcm*
5154      . p2p5*p2p8*p6p7))+w1*(8*(p6p7*p4p8*p2p3)*(-fmc+3*hbcm)+8*(p6p7*
5155      . p4p8*p1p3)*(fmc-hbcm)+8*(p6p7*p5p8*p3p4)*(fmb+fmc-hbcm)+4*(
5156      . p6p7*p4p8)*(fmb*hbcm2-2*fmb2*hbcm-3*fmc*hbcm2+2*fmc2*hbcm+
5157      . hbcm3)+16*(p6p7*p5p8)*(fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+8*(
5158      . p6p7*p2p8)*(-fmb*fmc*hbcm+fmc*hbcm2-5*fmc2*hbcm)+8*(p6p7*p1p8)
5159      . *(-fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+8*(-4*fmc*p2p8*p3p4*p6p7-
5160      . 3*hbcm*p1p2*p4p8*p6p7+4*hbcm*p1p8*p2p4*p6p7+4*hbcm*p2p4*p2p8*
5161      . p6p7-4*hbcm*p2p4*p5p8*p6p7+6*hbcm*p2p5*p4p8*p6p7))+(32*(p6p7*
5162      . p5p8)*(-fb3*fmc+fb3*hbcm-fb4*fmb)+4*(p6p7*p2p8)*(16*fb3*fmc+16
5163      . *fb4*fmc+hbcm)-4*hbcm*p1p8*p6p7))
5164       b(3)=ans
5165       ans2=w1*(8*(p6p7*p3p4*p2p3)*(5*fmc-3*hbcm)+8*(p6p7*p3p4*p1p3)*(
5166      . -fmc+hbcm)+8*(p6p7*p3p5*p3p4)*(-fmb-fmc+hbcm)+4*(p6p7*p3p4)*(-
5167      . 3*fmb*hbcm2+2*fmb2*hbcm+fmc*hbcm2-2*fmc2*hbcm+hbcm3)+8*(p6p7*
5168      . p2p4)*(fmb*hbcm2-3*fmc*hbcm2+3*hbcm3)+8*(p6p7*p1p4)*(fmb*hbcm2
5169      . +fmc*hbcm2-hbcm3)+4*p6p7*(-3*fmb*fmc*hbcm3+fmb2*fmc*hbcm2+2*
5170      . fmc*hbcm4-fmc2*hbcm3-fmc3*hbcm2)+16*(p6p7*p3p5)*(-fmb*fmc*hbcm
5171      . +fmc*hbcm2-fmc2*hbcm)+8*(p6p7*p2p3)*(fmb*fmc*hbcm-3*fmc*hbcm2+
5172      . 5*fmc2*hbcm)+8*(p6p7*p1p3)*(fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+
5173      . 8*(2*fmc*hbcm2*p1p2*p6p7-4*fmc*hbcm2*p2p5*p6p7+3*hbcm*p1p2*
5174      . p3p4*p6p7-4*hbcm*p1p3*p2p4*p6p7-4*hbcm*p2p3*p2p4*p6p7+4*hbcm*
5175      . p2p4*p3p5*p6p7-6*hbcm*p2p5*p3p4*p6p7))+(32*(p6p7*p3p5)*(fb3*
5176      . fmc-fb3*hbcm+fb4*fmb)+4*(p6p7*p2p3)*(-8*fb3*fmc+8*fb3*hbcm-16*
5177      . fb4*fmc-hbcm)+4*(p6p7*p1p3)*(-8*fb3*fmc+8*fb3*hbcm+hbcm)+16*
5178      . p6p7*(fb3*fmc*hbcm2-fb3*hbcm3+fb4*fmb*hbcm2)+32*(-fb3*hbcm*
5179      . p1p2*p6p7+2*fb3*hbcm*p2p5*p6p7))
5180       ans1=w20*(8*p6p7*(-fmc*p1p3s2+5*fmc*p2p3s2+hbcm*p1p3s2-3*hbcm*
5181      . p2p3s2)+16*(p6p7*p2p3*p1p3)*(2*fmc-hbcm)+8*(p6p7*p3p5*p2p3)*(-
5182      . fmb-3*fmc+3*hbcm)+8*(p6p7*p3p5*p1p3)*(-fmb+fmc-hbcm)+16*(p6p7*
5183      . p2p5)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+4*(p6p7*p2p3)*(3*fmb*hbcm2-4
5184      . *fmb2*hbcm-7*fmc*hbcm2+4*fmc2*hbcm+3*hbcm3)+4*(p6p7*p1p3)*(-
5185      . fmb*hbcm2+fmc*hbcm2-hbcm3)+8*(p6p7*p1p2)*(-fmb*hbcm2-fmc*hbcm2
5186      . )+8*(-hbcm*p1p2*p1p3*p6p7+3*hbcm*p1p2*p2p3*p6p7-2*hbcm*p1p2*
5187      . p3p5*p6p7+2*hbcm*p1p3*p2p5*p6p7+2*hbcm*p2p3*p2p5*p6p7))+ans2
5188       ans=ccc*ans1
5189       b(11)=ans
5190       ans2=w20*(32*(p6p7*p3p5*p2p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(
5191      . p6p7*p5p8*p2p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+64*(p6p7*p4p8*p2p3)*
5192      . (fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p7*p2p8*p2p3)*(-fmb*hbcm-fmc*
5193      . hbcm+hbcm2)+16*(p6p7*p2p3*p1p8)*(-2*fmb*hbcm-2*fmc*hbcm+3*
5194      . hbcm2)+16*(p6p7*p2p8*p1p3)*(fmb*hbcm+fmc*hbcm-2*hbcm2)+4*(p6p7
5195      . *p2p8)*(2*fmb*fmc*hbcm2-5*fmb*hbcm3+fmb2*hbcm2-5*fmc*hbcm3+
5196      . fmc2*hbcm2+4*hbcm4-8*p2p3s2)+4*(p6p7*p1p8)*(2*fmb*fmc*hbcm2-
5197      . fmb*hbcm3+fmb2*hbcm2-fmc*hbcm3+fmc2*hbcm2-8*p2p3s2)+16*(-hbcm2
5198      . *p1p2*p1p8*p6p7+hbcm2*p1p2*p2p8*p6p7-2*p1p3*p1p8*p2p3*p6p7-2*
5199      . p1p3*p2p3*p2p8*p6p7+4*p1p3*p2p3*p4p8*p6p7+2*p1p3*p2p3*p5p8*
5200      . p6p7-2*p1p3*p2p8*p3p5*p6p7-2*p2p3*p2p8*p3p5*p6p7+4*p2p3s2*p4p8
5201      . *p6p7+2*p2p3s2*p5p8*p6p7))+(8*(p6p7*p2p8)*(4*fb3*fmb*hbcm+4*
5202      . fb4*fmc*hbcm+4*fb4*hbcm2-hbcm2)+8*(p6p7*p1p8)*(-4*fb3*fmb*hbcm
5203      . -4*fb4*fmc*hbcm+4*fb4*hbcm2+hbcm2)+128*(fb4*p1p8*p2p3*p6p7+fb4
5204      . *p2p3*p2p8*p6p7-2*fb4*p2p3*p4p8*p6p7-fb4*p2p3*p5p8*p6p7+fb4*
5205      . p2p8*p3p5*p6p7))
5206       ans1=w1*(16*(p6p7*p4p8*p3p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(
5207      . p6p7*p5p8*p3p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+24*(p6p7*p3p4*p2p8)*
5208      . (-fmb*hbcm-fmc*hbcm-hbcm2)+8*(p6p7*p4p8*p2p3)*(fmb*hbcm+13*fmc
5209      . *hbcm-3*hbcm2)+8*(p6p7*p3p4*p1p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8
5210      . *(p6p7*p4p8*p1p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p6p7*p5p8)*(fmb
5211      . *fmc*hbcm2-fmc*hbcm3+fmc2*hbcm2)+4*(p6p7*p4p8)*(2*fmb*fmc*
5212      . hbcm2-3*fmb*hbcm3+fmb2*hbcm2-3*fmc*hbcm3+fmc2*hbcm2+2*hbcm4)+
5213      . 16*(p6p7*p2p8)*(-fmb*fmc*hbcm2-2*fmc*hbcm3-fmc2*hbcm2)+16*(2*
5214      . fmc*hbcm*p1p3*p2p8*p6p7-4*fmc*hbcm*p1p8*p2p3*p6p7-2*fmc*hbcm*
5215      . p2p3*p2p8*p6p7+4*fmc*hbcm*p2p3*p5p8*p6p7-4*fmc*hbcm*p2p8*p3p5*
5216      . p6p7+hbcm2*p1p2*p4p8*p6p7+2*hbcm2*p1p4*p2p8*p6p7-2*hbcm2*p1p8*
5217      . p2p4*p6p7+2*hbcm2*p2p4*p5p8*p6p7-2*hbcm2*p2p5*p4p8*p6p7-2*p1p8
5218      . *p2p3*p3p4*p6p7-2*p2p3*p2p8*p3p4*p6p7+4*p2p3*p3p4*p4p8*p6p7+2*
5219      . p2p3*p3p4*p5p8*p6p7-2*p2p8*p3p4*p3p5*p6p7))+ans2
5220       ans=ccc*ans1
5221       b(12)=ans
5222       b(29)=ccc*(w20*(32*(p6p7*p3p4)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(
5223      . p6p7*p2p3)*(fmb*hbcm+fmc*hbcm-4*hbcm2)+8*(p6p7*p1p3)*(fmb*hbcm
5224      . +fmc*hbcm-4*hbcm2)+8*p6p7*(-2*fmb*fmc*hbcm2-fmb*hbcm3-fmb2*
5225      . hbcm2-fmc*hbcm3-fmc2*hbcm2+2*hbcm4+2*p1p3s2+2*p2p3s2)+32*(p1p3
5226      . *p2p3*p6p7-p1p3*p3p4*p6p7-p2p3*p3p4*p6p7))+w1*(8*(p6p7*p3p4)*(
5227      . fmb*hbcm-5*fmc*hbcm)+8*p6p7*(fmb*fmc*hbcm2-2*fmc*hbcm3+fmc2*
5228      . hbcm2-4*p3p4s2)+16*(fmc*hbcm*p1p3*p6p7+fmc*hbcm*p2p3*p6p7-
5229      . hbcm2*p1p4*p6p7-hbcm2*p2p4*p6p7+p1p3*p3p4*p6p7+p2p3*p3p4*p6p7)
5230      . )+(32*p6p7*(-fb3*fmb*hbcm-fb3*fmc*hbcm+2*fb4*hbcm2)+64*(-fb4*
5231      . p1p3*p6p7-fb4*p2p3*p6p7+2*fb4*p3p4*p6p7)))
5232       b(30)=ccc*(w1*(8*(p6p7*p4p8)*(-fmb*hbcm2+3*fmc*hbcm2-4*hbcm3)+
5233      . 16*(-fmc*hbcm2*p1p8*p6p7-fmc*hbcm2*p2p8*p6p7+2*fmc*hbcm2*p5p8*
5234      . p6p7+2*hbcm*p1p3*p4p8*p6p7-2*hbcm*p1p8*p3p4*p6p7+2*hbcm*p2p3*
5235      . p4p8*p6p7-2*hbcm*p2p8*p3p4*p6p7+3*hbcm*p3p4*p5p8*p6p7-3*hbcm*
5236      . p3p5*p4p8*p6p7))+w20*(16*(p6p7*p5p8)*(-fmb*hbcm2-fmc*hbcm2+
5237      . hbcm3)+8*(p6p7*p2p8)*(fmb*hbcm2+fmc*hbcm2)+8*(p6p7*p1p8)*(fmb*
5238      . hbcm2+fmc*hbcm2)+16*(-hbcm*p1p3*p5p8*p6p7+hbcm*p1p8*p3p5*p6p7-
5239      . hbcm*p2p3*p5p8*p6p7+hbcm*p2p8*p3p5*p6p7))-64*fb3*hbcm*p5p8*
5240      . p6p7)
5241       b(31)=ccc*(w1*(8*(p6p7*p4p8)*(fmb*hbcm-5*fmc*hbcm)+16*(fmc*hbcm
5242      . *p1p8*p6p7+fmc*hbcm*p2p8*p6p7+p1p8*p3p4*p6p7+p2p8*p3p4*p6p7-2*
5243      . p3p4*p4p8*p6p7))+w20*(32*(p6p7*p4p8)*(-fmb*hbcm-fmc*hbcm+hbcm2
5244      . )+8*(p6p7*p2p8)*(fmb*hbcm+fmc*hbcm-2*hbcm2)+8*(p6p7*p1p8)*(fmb
5245      . *hbcm+fmc*hbcm-2*hbcm2)+16*(p1p3*p1p8*p6p7+p1p3*p2p8*p6p7-2*
5246      . p1p3*p4p8*p6p7+p1p8*p2p3*p6p7+p2p3*p2p8*p6p7-2*p2p3*p4p8*p6p7)
5247      . )+64*(-fb4*p1p8*p6p7-fb4*p2p8*p6p7+2*fb4*p4p8*p6p7))
5248       b(32)=ccc*(w20*(8*(p6p7*p2p3)*(-fmb+3*fmc-2*hbcm)+8*(p6p7*p1p3)
5249      . *(-fmb+3*fmc-2*hbcm)+8*p6p7*(fmb*hbcm2-2*fmb2*hbcm-3*fmc*hbcm2
5250      . +2*fmc2*hbcm+hbcm3)+16*hbcm*p1p2*p6p7)+w1*(8*(p6p7*p3p4)*(-fmb
5251      . +3*fmc+2*hbcm)+8*p6p7*(-fmb*fmc*hbcm+5*fmc2*hbcm)+16*(-hbcm*
5252      . p1p4*p6p7-hbcm*p2p4*p6p7))+32*p6p7*(-fb3*fmc+fb4*fmb-2*fb4*fmc
5253      . ))
5254       do 200 n=1,32
5255          c(n,1)=c(n,1)+0.09090909090909091d0*b(n)
5256          c(n,2)=c(n,2)-0.1092591295595148d0*b(n)
5257 200   continue
5258       return
5259         end
5260
5261       subroutine amp24_3p1(cc)
5262       implicit double precision(a-h,o-z)
5263       implicit integer (i-n)
5264       dimension b(32)
5265 #include "inclcon.h"
5266 #include "inclppp.h"
5267 #include "inclamp.h"
5268       do 100 n=1,32
5269          b(n)=0.0d0
5270 100   continue
5271       ccc=cc/((2*p1p2)*(2*ffmcfmb*p3p4+2*fmc2)*(-fmb2+fmc2+hbcm2+2*
5272      . p3p4))
5273       b(2)=w1*ccc*(4*p6p7*(-fmb2*fmc*hbcm+fmc*hbcm3+fmc3*hbcm)+8*fmc*
5274      . hbcm*p3p4*p6p7)
5275       b(3)=ccc*(w1*(8*(p6p7*p5p8)*(-fmb*fmc*hbcm+fmc2*hbcm)+4*(p6p7*
5276      . p4p8)*(-2*fmb*fmc*hbcm+fmb2*hbcm+fmc2*hbcm-hbcm3)+8*(p6p7*p2p8
5277      . )*(fmb*fmc*hbcm-fmc2*hbcm)+8*(p6p7*p1p8)*(fmb*fmc*hbcm-fmc2*
5278      . hbcm)+8*(-hbcm*p1p8*p3p4*p6p7-hbcm*p2p8*p3p4*p6p7+hbcm*p3p4*
5279      . p5p8*p6p7))+32*(-fb3*hbcm*p1p8*p6p7-fb3*hbcm*p2p8*p6p7+fb3*
5280      . hbcm*p4p8*p6p7+fb3*hbcm*p5p8*p6p7))
5281       b(11)=ccc*(w1*(8*p6p7*(fmb*fmc*hbcm3-fmc2*hbcm3)+8*(p6p7*p3p5)*
5282      . (fmb*fmc*hbcm-fmc2*hbcm)+4*(p6p7*p3p4)*(2*fmb*fmc*hbcm-fmb2*
5283      . hbcm-fmc2*hbcm-hbcm3)+8*(p6p7*p2p3)*(-fmb*fmc*hbcm+fmc2*hbcm)+
5284      . 8*(p6p7*p1p3)*(-fmb*fmc*hbcm+fmc2*hbcm)+8*(hbcm*p1p3*p3p4*p6p7
5285      . +hbcm*p2p3*p3p4*p6p7-hbcm*p3p4*p3p5*p6p7))+(16*p6p7*(-fb3*fmb2
5286      . *hbcm+fb3*fmc2*hbcm-fb3*hbcm3)+32*(fb3*hbcm*p1p3*p6p7+fb3*hbcm
5287      . *p2p3*p6p7-fb3*hbcm*p3p5*p6p7)))
5288       b(12)=ccc*(w1*(8*(p6p7*p4p8*p3p5)*(fmb*hbcm-fmc*hbcm)+8*(p6p7*
5289      . p5p8*p3p4)*(-fmb*hbcm+fmc*hbcm)+8*(p6p7*p3p4*p2p8)*(-fmb*hbcm+
5290      . fmc*hbcm)+8*(p6p7*p4p8*p2p3)*(-fmb*hbcm+fmc*hbcm)+8*(p6p7*p3p4
5291      . *p1p8)*(fmb*hbcm-fmc*hbcm)+8*(p6p7*p4p8*p1p3)*(-fmb*hbcm+fmc*
5292      . hbcm)+8*(fmb*hbcm3*p4p8*p6p7-fmc*hbcm3*p1p8*p6p7+fmc*hbcm3*
5293      . p2p8*p6p7+fmc*hbcm3*p5p8*p6p7))+(32*(p6p7*p5p8)*(-fb3*fmb*hbcm
5294      . -fb3*fmc*hbcm)+32*(p6p7*p4p8)*(-fb3*fmb*hbcm-fb3*fmc*hbcm)+32*
5295      . (p6p7*p2p8)*(-fb3*fmb*hbcm-fb3*fmc*hbcm)+32*(p6p7*p1p8)*(fb3*
5296      . fmb*hbcm+fb3*fmc*hbcm)))
5297       b(29)=ccc*(w1*(8*(p6p7*p3p4)*(fmb*hbcm-fmc*hbcm)-8*fmc*hbcm3*
5298      . p6p7)+32*p6p7*(fb3*fmb*hbcm+fb3*fmc*hbcm))
5299       b(30)=8*ccc*(p6p7*p4p8)*(-8*fb3*hbcm+hbcm3*w1)
5300       b(31)=8*ccc*w1*(p6p7*p4p8)*(fmb*hbcm-fmc*hbcm)
5301       b(32)=ccc*(w1*(8*p6p7*(-fmb*fmc*hbcm+fmc2*hbcm)+8*hbcm*p3p4*
5302      . p6p7)+32*fb3*hbcm*p6p7)
5303       do 200 n=1,32
5304          c(n,1)=c(n,1)-0.7272727272727273d0*b(n)
5305          c(n,2)=c(n,2)+0.8740730364761186d0*b(n)
5306 200   continue
5307       return
5308         end
5309
5310       subroutine amp23_3p1(cc)
5311       implicit double precision(a-h,o-z)
5312       implicit integer (i-n)
5313       dimension b(32)
5314 #include "inclcon.h"
5315 #include "inclppp.h"
5316 #include "inclamp.h"
5317       do 100 n=1,32
5318          b(n)=0.0d0
5319 100   continue
5320       ccc=cc/((2*p1p2)*(-2*ffmcfmb*p3p5+fmb2-2*fmc*hbcm+fmc2+hbcm2+2*
5321      . p3p5)*(fmb2-fmc2+hbcm2+2*p3p5))
5322       b(2)=w2*ccc*(4*p6p7*(-fmb*fmc2*hbcm+fmb*hbcm3+fmb3*hbcm)+8*fmb*
5323      . hbcm*p3p5*p6p7)
5324       b(3)=ccc*(w2*(4*(p6p7*p5p8)*(fmb2*hbcm-fmc2*hbcm+hbcm3)+16*(
5325      . p6p7*p2p8)*(fmb*fmc*hbcm-fmb2*hbcm)+8*(-2*hbcm*p2p8*p3p5*p6p7+
5326      . hbcm*p3p5*p5p8*p6p7))-64*fb3*hbcm*p2p8*p6p7)
5327       b(11)=ccc*(w2*(4*(p6p7*p3p5)*(-fmb2*hbcm+fmc2*hbcm-hbcm3)+16*(
5328      . p6p7*p2p3)*(-fmb*fmc*hbcm+fmb2*hbcm)+8*(2*hbcm*p2p3*p3p5*p6p7-
5329      . hbcm*p3p5s2*p6p7))+(16*p6p7*(-fb3*fmb2*hbcm+fb3*fmc2*hbcm-fb3*
5330      . hbcm3)+32*(2*fb3*hbcm*p2p3*p6p7-fb3*hbcm*p3p5*p6p7)))
5331       b(12)=16*ccc*w2*(p6p7*p5p8*p2p3)*(fmb*hbcm-fmc*hbcm)
5332       b(29)=ccc*(w2*(8*(p6p7*p3p5)*(-fmb*hbcm+fmc*hbcm)-8*fmb*hbcm3*
5333      . p6p7)+32*p6p7*(fb3*fmb*hbcm+fb3*fmc*hbcm))
5334       b(30)=8*ccc*(p6p7*p5p8)*(8*fb3*hbcm-hbcm3*w2)
5335       b(31)=8*ccc*w2*(p6p7*p5p8)*(-fmb*hbcm+fmc*hbcm)
5336       b(32)=ccc*(w2*(8*p6p7*(-fmb*fmc*hbcm+fmb2*hbcm)+8*hbcm*p3p5*
5337      . p6p7)+32*fb3*hbcm*p6p7)
5338       do 200 n=1,32
5339          c(n,1)=c(n,1)-0.7272727272727273d0*b(n)
5340          c(n,2)=c(n,2)+0.8740730364761186d0*b(n)
5341 200   continue
5342       return
5343         end
5344
5345       subroutine amp22_3p1(cc)
5346       implicit double precision(a-h,o-z)
5347       implicit integer (i-n)
5348       dimension b(32)
5349 #include "inclcon.h"
5350 #include "inclppp.h"
5351 #include "inclamp.h"
5352       do 100 n=1,32
5353          b(n)=0.0d0
5354 100   continue
5355       ccc=cc/((2*p1p2)*(-2*ffmcfmb*p3p5+fmb2-2*fmc*hbcm+fmc2+hbcm2+2*
5356      . p3p5)*(-2*ffmcfmb*p1p3-2*ffmcfmb*p2p3+2*p1p2))
5357       b(2)=ccc*(w2*(16*(p6p7*p2p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p6p7
5358      . *p2p3)*(-fmb*fmc-2*fmb*hbcm)+8*(fmb*fmc*p1p3*p6p7+3*fmb*hbcm*
5359      . p1p2*p6p7-6*fmb*hbcm*p2p4*p6p7+2*p1p2*p3p5*p6p7-2*p2p3*p3p5*
5360      . p6p7-4*p2p4*p3p5*p6p7))+w17*(8*(p6p7*p1p2)*(fmb*hbcm+fmc*hbcm)
5361      . +8*(p6p7*p2p3)*(-fmb*fmc-fmc2)+8*(p6p7*p1p3)*(fmb*fmc+fmc2)+16
5362      . *(p1p2*p1p3*p6p7+p1p2*p2p3*p6p7-p1p3*p2p3*p6p7-2*p1p3*p2p4*
5363      . p6p7-2*p2p3*p2p4*p6p7-p2p3s2*p6p7))+(16*p6p7*(fb3*fmb*fmc+fb3*
5364      . fmc2+fb4*fmb*fmc+fb4*fmc2)+64*(fb4*p1p2*p6p7-fb4*p2p3*p6p7-2*
5365      . fb4*p2p4*p6p7)))
5366       b(3)=ccc*(w17*(8*(p6p7*p2p8*p2p3)*(-2*fmb+3*fmc)+8*(p6p7*p2p8*
5367      . p1p3)*(-2*fmb+fmc)+8*(-fmc*p1p3*p1p8*p6p7+2*fmc*p1p3*p5p8*p6p7
5368      . +fmc*p1p8*p2p3*p6p7-2*fmc*p2p3*p5p8*p6p7-hbcm*p1p2*p1p8*p6p7-
5369      . hbcm*p1p2*p2p8*p6p7+2*hbcm*p1p2*p5p8*p6p7-2*hbcm*p1p8*p2p5*
5370      . p6p7-2*hbcm*p2p5*p2p8*p6p7))+w2*(8*(p6p7*p5p8*p2p3)*(-fmc+4*
5371      . hbcm)+16*(p6p7*p3p5*p2p8)*(-fmb+fmc-2*hbcm)+16*(p6p7*p2p8)*(2*
5372      . fmb*fmc*hbcm-fmb*hbcm2-2*fmb2*hbcm)+8*(fmc*p1p3*p5p8*p6p7-3*
5373      . hbcm*p1p2*p5p8*p6p7+4*hbcm*p1p5*p2p8*p6p7+4*hbcm*p2p5*p2p8*
5374      . p6p7+2*hbcm*p2p5*p5p8*p6p7))+(32*(p6p7*p5p8)*(fb3*fmc+fb4*fmc)
5375      . +4*(p6p7*p2p8)*(-8*fb3*fmc-16*fb4*fmb+8*fb4*fmc-hbcm)+4*(p6p7*
5376      . p1p8)*(-8*fb3*fmc-8*fb4*fmc+hbcm)))
5377       ans=ccc*(w17*(8*p6p7*(2*fmb*p2p3s2+fmc*p1p3s2-3*fmc*p2p3s2)+16*
5378      . (p6p7*p2p3*p1p3)*(fmb-fmc)+8*(-fmc*hbcm2*p1p3*p6p7+fmc*hbcm2*
5379      . p2p3*p6p7-2*fmc*p1p3*p3p5*p6p7+2*fmc*p2p3*p3p5*p6p7+hbcm*p1p2*
5380      . p1p3*p6p7+hbcm*p1p2*p2p3*p6p7-2*hbcm*p1p2*p3p5*p6p7+2*hbcm*
5381      . p1p3*p2p5*p6p7+2*hbcm*p2p3*p2p5*p6p7-hbcm3*p1p2*p6p7))+w2*(8*(
5382      . p6p7*p3p5*p2p3)*(2*fmb-fmc)+16*(p6p7*p2p5)*(-fmb*hbcm2-fmc*
5383      . hbcm2+hbcm3)+32*(p6p7*p2p3)*(-fmb*fmc*hbcm+fmb2*hbcm)+8*(2*fmb
5384      . *hbcm2*p1p2*p6p7-fmc*p1p3*p3p5*p6p7+3*hbcm*p1p2*p3p5*p6p7-4*
5385      . hbcm*p1p5*p2p3*p6p7-4*hbcm*p2p3*p2p5*p6p7-2*hbcm*p2p5*p3p5*
5386      . p6p7))+(4*(p6p7*p1p3)*(8*fb4*fmc-hbcm)+32*(p6p7*p3p5)*(-fb3*
5387      . fmc-fb4*fmc)+4*(p6p7*p2p3)*(16*fb3*fmc+16*fb4*fmb-8*fb4*fmc+
5388      . hbcm)+16*p6p7*(-fb3*fmc*hbcm2-fb4*fmc*hbcm2)+32*(-fb3*hbcm*
5389      . p1p2*p6p7+2*fb3*hbcm*p2p5*p6p7)))
5390       b(11)=ans
5391       ans=ccc*(w17*(16*(p6p7*p2p8*p2p3)*(fmb*hbcm+fmc*hbcm+hbcm2)+16*
5392      . (p6p7*p2p8*p1p3)*(fmb*hbcm+fmc*hbcm+hbcm2)+16*(hbcm2*p1p2*p1p8
5393      . *p6p7-hbcm2*p1p2*p2p8*p6p7+2*p1p3*p1p8*p2p3*p6p7+2*p1p3*p2p3*
5394      . p2p8*p6p7-4*p1p3*p2p3*p4p8*p6p7-2*p1p3*p2p3*p5p8*p6p7+2*p1p3*
5395      . p2p8*p3p5*p6p7+2*p1p8*p2p3s2*p6p7+2*p2p3*p2p8*p3p5*p6p7+2*
5396      . p2p3s2*p2p8*p6p7-4*p2p3s2*p4p8*p6p7-2*p2p3s2*p5p8*p6p7))+w2*(
5397      . 16*(p6p7*p3p5*p2p8)*(fmb*hbcm-fmc*hbcm+hbcm2)+32*(p6p7*p5p8*
5398      . p2p3)*(-2*fmb*hbcm-fmc*hbcm)+16*(p6p7*p2p8)*(-fmb*fmc*hbcm2+
5399      . fmb*hbcm3-fmb2*hbcm2+2*p3p5s2)+16*(4*fmb*hbcm*p1p8*p2p3*p6p7+4
5400      . *fmb*hbcm*p2p3*p2p8*p6p7-6*fmb*hbcm*p2p3*p4p8*p6p7+hbcm2*p1p2*
5401      . p5p8*p6p7+2*p1p8*p2p3*p3p5*p6p7+2*p2p3*p2p8*p3p5*p6p7-4*p2p3*
5402      . p3p5*p4p8*p6p7-2*p2p3*p3p5*p5p8*p6p7))+(8*(p6p7*p1p8)*(4*fb3*
5403      . fmc*hbcm+4*fb4*fmc*hbcm-hbcm2)+8*(p6p7*p2p8)*(8*fb3*fmb*hbcm+4
5404      . *fb3*fmc*hbcm-4*fb4*fmc*hbcm+8*fb4*hbcm2+hbcm2)+128*(fb4*p1p8*
5405      . p2p3*p6p7+fb4*p2p3*p2p8*p6p7-2*fb4*p2p3*p4p8*p6p7-fb4*p2p3*
5406      . p5p8*p6p7+fb4*p2p8*p3p5*p6p7)))
5407       b(12)=ans
5408       b(29)=ccc*(w17*(16*p6p7*(-p1p3s2-p2p3s2)+8*(p6p7*p2p3)*(-fmb*
5409      . hbcm-fmc*hbcm+2*hbcm2)+8*(p6p7*p1p3)*(-fmb*hbcm-fmc*hbcm+2*
5410      . hbcm2)+32*(-p1p3*p2p3*p6p7+p1p3*p3p4*p6p7+p2p3*p3p4*p6p7))+w2*
5411      . (8*(p6p7*p3p5)*(3*fmb*hbcm+3*fmc*hbcm+2*hbcm2)+8*p6p7*(2*fmb*
5412      . fmc*hbcm2+3*fmb*hbcm3+2*fmb2*hbcm2)+16*(-2*fmb*hbcm*p1p3*p6p7-
5413      . 2*fmb*hbcm*p2p3*p6p7+3*fmb*hbcm*p3p4*p6p7-hbcm2*p1p5*p6p7-
5414      . hbcm2*p2p5*p6p7-p1p3*p3p5*p6p7-p2p3*p3p5*p6p7+2*p3p4*p3p5*p6p7
5415      . ))+(32*p6p7*(-fb3*fmb*hbcm-fb3*fmc*hbcm+2*fb4*hbcm2)+64*(-fb4*
5416      . p1p3*p6p7-fb4*p2p3*p6p7+2*fb4*p3p4*p6p7)))
5417       b(30)=ccc*(8*w17*(-2*hbcm*p1p3*p5p8*p6p7+2*hbcm*p1p8*p3p5*p6p7-
5418      . 2*hbcm*p2p3*p5p8*p6p7+2*hbcm*p2p8*p3p5*p6p7+hbcm3*p1p8*p6p7+
5419      . hbcm3*p2p8*p6p7)+w2*(8*(p6p7*p5p8)*(2*fmb*hbcm2+2*fmc*hbcm2-3*
5420      . hbcm3)+16*(-fmb*hbcm2*p1p8*p6p7-fmb*hbcm2*p2p8*p6p7+hbcm*p1p3*
5421      . p5p8*p6p7-hbcm*p1p8*p3p5*p6p7+hbcm*p2p3*p5p8*p6p7-hbcm*p2p8*
5422      . p3p5*p6p7))+64*(fb3*hbcm*p1p8*p6p7+fb3*hbcm*p2p8*p6p7-fb3*hbcm
5423      . *p5p8*p6p7))
5424       b(31)=ccc*(w2*(8*(p6p7*p5p8)*(3*fmb*hbcm+3*fmc*hbcm-2*hbcm2)+16
5425      . *(-2*fmb*hbcm*p1p8*p6p7-2*fmb*hbcm*p2p8*p6p7+3*fmb*hbcm*p4p8*
5426      . p6p7-p1p8*p3p5*p6p7-p2p8*p3p5*p6p7+2*p3p5*p4p8*p6p7))+w17*(8*(
5427      . p6p7*p2p8)*(-fmb*hbcm-fmc*hbcm)+8*(p6p7*p1p8)*(-fmb*hbcm-fmc*
5428      . hbcm)+16*(-p1p3*p1p8*p6p7-p1p3*p2p8*p6p7+2*p1p3*p4p8*p6p7-p1p8
5429      . *p2p3*p6p7-p2p3*p2p8*p6p7+2*p2p3*p4p8*p6p7))+64*(-fb4*p1p8*
5430      . p6p7-fb4*p2p8*p6p7+2*fb4*p4p8*p6p7))
5431       b(32)=ccc*(w17*(8*(p6p7*p2p3)*(2*fmb-2*fmc-hbcm)+8*(p6p7*p1p3)*
5432      . (2*fmb-2*fmc-hbcm)+16*hbcm*p1p2*p6p7)+w2*(8*(p6p7*p3p5)*(2*fmb
5433      . -2*fmc+3*hbcm)+8*p6p7*(-3*fmb*fmc*hbcm+2*fmb*hbcm2+3*fmb2*hbcm
5434      . )+16*(-hbcm*p1p5*p6p7-hbcm*p2p5*p6p7))+32*p6p7*(fb3*fmc-fb3*
5435      . hbcm+2*fb4*fmb-fb4*fmc))
5436       do 200 n=1,32
5437          c(n,1)=c(n,1)+0.09090909090909091d0*b(n)
5438          c(n,2)=c(n,2)-0.1092591295595148d0*b(n)
5439 200   continue
5440       return
5441         end
5442
5443       subroutine amp21_3p1(cc)
5444       implicit double precision(a-h,o-z)
5445       implicit integer (i-n)
5446       dimension b(32)
5447 #include "inclcon.h"
5448 #include "inclppp.h"
5449 #include "inclamp.h"
5450       do 100 n=1,32
5451          b(n)=0.0d0
5452 100   continue
5453       ccc=cc/((-2*ffmcfmb*p1p3)*(-2*ffmcfmb*p1p3+2*ffmcfmb*p3p4+2*
5454      . fmc2-2*p1p4)*(2*ffmcfmb*p2p3-fmb2-2*fmc*hbcm+fmc2+hbcm2-2*p2p3
5455      . ))
5456       ans=ccc*(w8*(24*(p4p6*p2p3)*(-fmb-fmc+hbcm)+8*(p3p6*p2p3)*(-
5457      . ffmcfmb*fmb-ffmcfmb*fmc-fmb+hbcm))+w5*(24*(p4p6*p3p4)*(-fmb-
5458      . fmc+hbcm)+24*(p4p6*p1p3)*(fmb+fmc-hbcm)+16*p3p6*(-fmb*fmc2-
5459      . fmb2*fmc+fmc*hbcm2-fmc2*hbcm)+8*p4p6*(-4*fmb*fmc*hbcm+fmb*
5460      . hbcm2-3*fmb2*hbcm-fmc*hbcm2-fmc2*hbcm+2*hbcm3)+8*(p3p6*p3p4)*(
5461      . -ffmcfmb*fmb-ffmcfmb*fmc-fmb+hbcm)+8*(p3p6*p1p3)*(ffmcfmb*fmb+
5462      . ffmcfmb*fmc+fmb-hbcm)+16*(-fmc*p1p2*p3p6+fmc*p2p3*p3p6+fmc*
5463      . p2p4*p3p6+3*fmc*p2p5*p3p6-hbcm*p1p2*p4p6+hbcm*p2p3*p4p6+hbcm*
5464      . p2p4*p4p6+4*hbcm*p2p5*p4p6))+w12*(24*(p4p6*p1p3)*(fmb+fmc-hbcm
5465      . )+8*p3p6*(fmb*fmc*hbcm-2*fmb2*fmc+fmc*hbcm2-3*fmc2*hbcm+2*fmc3
5466      . )+8*(p3p6*p1p3)*(ffmcfmb*fmb+ffmcfmb*fmc+fmb-hbcm)+16*(-fmc*
5467      . p1p2*p3p6+fmc*p2p3*p3p6+3*fmc*p2p5*p3p6))+(96*p4p6*(fb3*fmc-
5468      . fb3*hbcm+fb4*fmb)+4*p3p6*(8*fb3*ffmcfmb*fmc-8*fb3*hbcm+8*fb4*
5469      . ffmcfmb*fmb+8*fb4*fmb+fmb+fmc-hbcm)))
5470       b(1)=ans
5471       ans3=w12*(32*(p5p7*p3p6)*(-fmb*fmc+fmc*hbcm-fmc2)+8*(p6p7*p1p3)
5472      . *(-2*fmb*fmc-fmb2-fmc2+hbcm2)+(p4p6*p3p7*p1p3)*(32*ffmcfmb-32)
5473      . +(p3p7*p3p6*p1p3)*(16*ffmcfmb-16)+16*(p3p7*p3p6)*(ffmcfmb*fmb*
5474      . fmc+ffmcfmb*fmc2-2*fmb*fmc+fmc*hbcm-2*fmc2)+16*(p1p2*p1p3*p6p7
5475      . -p1p3*p2p3*p6p7-p1p3*p2p4*p6p7))+(32*p6p7*(-fb4*fmb2-2*fb4*fmc
5476      . *hbcm+fb4*fmc2+fb4*hbcm2)+(p4p6*p3p7)*(128*fb4*ffmcfmb-128*fb4
5477      . +16)+(p3p7*p3p6)*(64*fb4*ffmcfmb-64*fb4+8)+64*(fb4*p1p2*p6p7-
5478      . fb4*p2p3*p6p7-fb4*p2p4*p6p7))
5479       ans2=w5*(48*(p5p7*p4p6)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p4p7*
5480      . p4p6)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p6p7*p1p4)*(-fmb*hbcm-fmc
5481      . *hbcm+hbcm2)+8*p6p7*(2*fmb*fmc2*hbcm+fmb2*fmc*hbcm-fmc*hbcm3+
5482      . fmc3*hbcm)+16*(p4p6*p3p7)*(2*fmb*fmc-3*fmb*hbcm-fmc*hbcm-fmc2+
5483      . 2*hbcm2)+32*(p5p7*p3p6)*(-fmb*fmc+fmc*hbcm-fmc2)+16*(p4p7*p3p6
5484      . )*(-fmb*fmc+fmc*hbcm-fmc2)+8*(p6p7*p3p4)*(2*fmb*fmc+fmb2+fmc2-
5485      . hbcm2)+8*(p6p7*p1p3)*(-2*fmb*fmc-fmb2-fmc2+hbcm2)+(p4p6*p3p7*
5486      . p3p4)*(-32*ffmcfmb+32)+(p3p7*p3p6*p3p4)*(-16*ffmcfmb+16)+(p4p6
5487      . *p3p7*p1p3)*(32*ffmcfmb-32)+(p3p7*p3p6*p1p3)*(16*ffmcfmb-16)+
5488      . 16*(p3p7*p3p6)*(ffmcfmb*fmb*fmc-2*fmb*fmc+2*fmc*hbcm-2*fmc2)+
5489      . 16*(-fmc*hbcm*p1p2*p6p7+fmc*hbcm*p2p3*p6p7+fmc*hbcm*p2p4*p6p7+
5490      . p1p2*p1p3*p6p7-p1p2*p3p4*p6p7-p1p3*p2p3*p6p7-p1p3*p2p4*p6p7+
5491      . p2p3*p3p4*p6p7+p2p4*p3p4*p6p7))+ans3
5492       ans1=w8*(16*(p6p7*p2p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p7*p1p2
5493      . )*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p6p7*p2p3)*(2*fmb*fmc+fmb2+
5494      . fmc2-hbcm2)+(p4p6*p3p7*p2p3)*(-32*ffmcfmb+32)+(p3p7*p3p6*p2p3)
5495      . *(-16*ffmcfmb+16)+16*(-p1p2*p2p3*p6p7+p2p3*p2p4*p6p7+p2p3s2*
5496      . p6p7))+ans2
5497       ans=ccc*ans1
5498       b(2)=ans
5499       ans4=16*(p3p7*p3p6*p1p8)*(-ffmcfmb*fmc+hbcm)+16*(p6p8*p3p7*p3p4
5500      . )*(ffmcfmb*fmb-ffmcfmb*fmc-fmb+hbcm)+16*(p7p8*p3p6*p3p4)*(
5501      . ffmcfmb*fmb+ffmcfmb*fmc-fmc)+16*(p6p8*p3p7*p1p3)*(-ffmcfmb*fmb
5502      . +ffmcfmb*fmc+fmb-hbcm)+16*(p7p8*p3p6*p1p3)*(-ffmcfmb*fmb-
5503      . ffmcfmb*fmc+fmc)+16*(-2*fmc*p2p5*p3p6*p7p8+2*fmc*p2p8*p3p6*
5504      . p5p7-hbcm*p1p8*p2p5*p6p7-2*hbcm*p2p5*p4p6*p7p8+hbcm*p2p5*p4p8*
5505      . p6p7+2*hbcm*p2p8*p4p6*p5p7)
5506       ans3=64*(p5p8*p4p6*p3p7)*(fmc-hbcm)+48*(p4p8*p4p6*p3p7)*(fmc-
5507      . hbcm)+64*(p4p6*p3p7*p2p8)*(-fmc+hbcm)+48*(p4p6*p3p7*p1p8)*(-
5508      . fmc+hbcm)+32*(p6p8*p3p7*p1p4)*(fmc-hbcm)+8*(p6p7*p4p8)*(-fmb2*
5509      . hbcm-2*fmc*hbcm2+fmc2*hbcm+hbcm3)+8*(p6p7*p1p8)*(fmb2*hbcm+2*
5510      . fmc*hbcm2-fmc2*hbcm-hbcm3)+16*(p6p7*p5p8*p3p4)*(fmb+fmc-hbcm)+
5511      . 16*(p6p8*p5p7*p3p4)*(-fmb-fmc+hbcm)+16*(p7p8*p4p6*p3p4)*(fmb+
5512      . fmc-hbcm)+16*(p6p7*p3p4*p2p8)*(-fmb-fmc+hbcm)+16*(p6p7*p5p8*
5513      . p1p3)*(-fmb-fmc+hbcm)+16*(p6p8*p5p7*p1p3)*(fmb+fmc-hbcm)+16*(
5514      . p7p8*p4p6*p1p3)*(-fmb-fmc+hbcm)+16*(p6p7*p2p8*p1p3)*(fmb+fmc-
5515      . hbcm)+16*(p7p8*p3p6)*(fmb*fmc2+fmb2*fmc-fmc*hbcm2+fmc2*hbcm)+
5516      . 16*(p6p7*p5p8)*(fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+16*(p6p8*
5517      . p5p7)*(-fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+16*(p7p8*p4p6)*(fmb*
5518      . fmc*hbcm+fmb2*hbcm+fmc*hbcm2-hbcm3)+16*(p6p8*p3p7)*(-fmb*fmc*
5519      . hbcm+fmb*fmc2+fmc*hbcm2-fmc3)+16*(p6p7*p2p8)*(-fmb*fmc*hbcm+
5520      . fmc*hbcm2-fmc2*hbcm)+32*(p5p8*p3p7*p3p6)*(ffmcfmb*fmc-fmc)+16*
5521      . (p4p8*p3p7*p3p6)*(ffmcfmb*fmc-hbcm)+32*(p3p7*p3p6*p2p8)*(-
5522      . ffmcfmb*fmc+fmc)+ans4
5523       ans2=w5*ans3
5524       ans5=w12*(16*(p4p6*p3p7*p1p8)*(-fmc+hbcm)+8*(p6p7*p1p8)*(fmb2*
5525      . hbcm+2*fmc*hbcm2-fmc2*hbcm-hbcm3)+16*(p7p8*p3p6)*(fmb2*fmc-fmc
5526      . *hbcm2+2*fmc2*hbcm-fmc3)+16*(p6p7*p5p8*p1p3)*(-fmb-fmc+hbcm)+
5527      . 16*(p6p8*p5p7*p1p3)*(fmb+fmc-hbcm)+16*(p7p8*p4p6*p1p3)*(-fmb-
5528      . fmc+hbcm)+16*(p6p7*p2p8*p1p3)*(fmb+fmc-hbcm)+32*(p5p8*p3p7*
5529      . p3p6)*(ffmcfmb*fmc-fmc)+32*(p3p7*p3p6*p2p8)*(-ffmcfmb*fmc+fmc)
5530      . +16*(p3p7*p3p6*p1p8)*(-ffmcfmb*fmc+hbcm)+16*(p6p8*p3p7*p1p3)*(
5531      . -ffmcfmb*fmb+ffmcfmb*fmc+fmb-hbcm)+16*(p7p8*p3p6*p1p3)*(-
5532      . ffmcfmb*fmb-ffmcfmb*fmc+fmc)+16*(-2*fmc*p2p5*p3p6*p7p8+2*fmc*
5533      . p2p8*p3p6*p5p7-hbcm*p1p8*p2p5*p6p7))+(64*(p6p7*p5p8)*(-fb3*fmc
5534      . +fb3*hbcm-fb4*fmb)+64*(p6p8*p5p7)*(fb3*fmc-fb3*hbcm+fb4*fmb)+8
5535      . *(p7p8*p4p6)*(-8*fb3*fmc+8*fb3*hbcm-8*fb4*fmb+hbcm)+64*(p6p7*
5536      . p2p8)*(fb3*fmc-fb3*hbcm+fb4*fmb)+8*(p6p8*p3p7)*(-8*fb3*ffmcfmb
5537      . *fmc+16*fb3*fmc-8*fb3*hbcm-8*fb4*ffmcfmb*fmb+8*fb4*fmb-fmb+2*
5538      . fmc-2*hbcm)+8*(p7p8*p3p6)*(-8*fb3*ffmcfmb*fmc+8*fb3*fmc-8*fb4*
5539      . ffmcfmb*fmb-fmb-2*fmc+2*hbcm))
5540       ans1=w8*(48*(p4p6*p3p7*p2p8)*(-fmc+hbcm)+32*(p6p8*p3p7*p2p5)*(
5541      . fmc-hbcm)+8*(p6p7*p2p8)*(fmb2*hbcm+2*fmc*hbcm2-fmc2*hbcm-hbcm3
5542      . )+16*(p6p7*p5p8*p2p3)*(fmb+fmc-hbcm)+16*(p6p8*p5p7*p2p3)*(-fmb
5543      . -fmc+hbcm)+16*(p7p8*p4p6*p2p3)*(fmb+fmc-hbcm)+16*(p6p7*p2p8*
5544      . p2p3)*(-fmb-fmc+hbcm)+16*(p3p7*p3p6*p2p8)*(-ffmcfmb*fmc+hbcm)+
5545      . 16*(p6p8*p3p7*p2p3)*(ffmcfmb*fmb-ffmcfmb*fmc-fmb+2*fmc-hbcm)+
5546      . 16*(p7p8*p3p6*p2p3)*(ffmcfmb*fmb+ffmcfmb*fmc-fmc)-16*hbcm*p2p5
5547      . *p2p8*p6p7)+ans2+ans5
5548       ans=ccc*ans1
5549       b(3)=ans
5550       ans=ccc*(w8*(48*(p3p7*p2p5)*(fmc-hbcm)+16*(p3p7*p1p2)*(-fmc+
5551      . hbcm)+24*(p5p7*p2p3)*(-fmb-fmc+hbcm)+8*(p3p7*p2p3)*(2*ffmcfmb*
5552      . fmb-2*ffmcfmb*fmc-3*fmb+4*fmc-2*hbcm))+w5*(32*(p3p7*p1p4)*(fmc
5553      . -hbcm)+8*p4p7*(fmb2*hbcm+2*fmc*hbcm2-fmc2*hbcm-hbcm3)+24*(p5p7
5554      . *p3p4)*(-fmb-fmc+hbcm)+24*(p5p7*p1p3)*(fmb+fmc-hbcm)+32*p5p7*(
5555      . -fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+8*p3p7*(-4*fmb*fmc*hbcm+3*
5556      . fmb*fmc2+3*fmc*hbcm2-3*fmc3)+8*(p3p7*p3p4)*(2*ffmcfmb*fmb-2*
5557      . ffmcfmb*fmc-3*fmb-2*fmc+4*hbcm)+8*(p3p7*p1p3)*(-2*ffmcfmb*fmb+
5558      . 2*ffmcfmb*fmc+3*fmb-2*hbcm)+16*(hbcm*p2p4*p5p7-hbcm*p2p5*p4p7)
5559      . )+w12*(24*(p5p7*p1p3)*(fmb+fmc-hbcm)+8*(p3p7*p1p3)*(-2*ffmcfmb
5560      . *fmb+2*ffmcfmb*fmc+3*fmb-2*hbcm))+(96*p5p7*(fb3*fmc-fb3*hbcm+
5561      . fb4*fmb)+4*p3p7*(-8*fb3*ffmcfmb*fmc+24*fb3*fmc-16*fb3*hbcm-16*
5562      . fb4*ffmcfmb*fmb+8*fb4*ffmcfmb*fmc+24*fb4*fmb-8*fb4*fmc-2*fmb+2
5563      . *fmc-hbcm)))
5564       b(4)=ans
5565       ans3=w12*(16*(p5p7*p1p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p3p7*p1p8
5566      . )*(-fmb*fmc+2*fmb*hbcm+2*fmc*hbcm-fmc2-hbcm2)+8*(p7p8*p1p3)*(-
5567      . 2*fmb*fmc-fmb2-fmc2+hbcm2)+(p5p8*p3p7*p1p3)*(-32*ffmcfmb+32)+(
5568      . p3p7*p2p8*p1p3)*(32*ffmcfmb-32)+(p3p7*p1p8*p1p3)*(16*ffmcfmb-
5569      . 16)+16*(p1p3*p2p5*p7p8-p1p3*p2p8*p5p7))+(4*p7p8*(-8*fb4*fmb2-
5570      . 16*fb4*fmc*hbcm+8*fb4*fmc2+8*fb4*hbcm2+fmb*hbcm+fmc*hbcm)+(
5571      . p5p8*p3p7)*(-128*fb4*ffmcfmb+128*fb4-16)+(p3p7*p2p8)*(128*fb4*
5572      . ffmcfmb-128*fb4+16)+(p3p7*p1p8)*(64*fb4*ffmcfmb-64*fb4+8)+64*(
5573      . fb4*p2p5*p7p8-fb4*p2p8*p5p7))
5574       ans2=w5*(48*(p5p8*p3p7)*(-fmc*hbcm+fmc2)+48*(p3p7*p2p8)*(fmc*
5575      . hbcm-fmc2)+32*(p5p7*p4p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p5p8*
5576      . p4p7)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p4p7*p2p8)*(-fmb*hbcm-fmc*
5577      . hbcm+hbcm2)+16*(p5p7*p1p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p7p8*
5578      . p1p4)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*p7p8*(2*fmb*fmc2*hbcm+fmb2*
5579      . fmc*hbcm-fmc*hbcm3+fmc3*hbcm)+8*(p4p8*p3p7)*(3*fmb*fmc-4*fmb*
5580      . hbcm-6*fmc*hbcm+3*fmc2+3*hbcm2)+8*(p7p8*p3p4)*(2*fmb*fmc+fmb2+
5581      . fmc2-hbcm2)+8*(p3p7*p1p8)*(-fmb*fmc+2*fmb*hbcm+4*fmc*hbcm-3*
5582      . fmc2-hbcm2)+8*(p7p8*p1p3)*(-2*fmb*fmc-fmb2-fmc2+hbcm2)+(p5p8*
5583      . p3p7*p3p4)*(32*ffmcfmb-32)+(p3p7*p3p4*p2p8)*(-32*ffmcfmb+32)+(
5584      . p3p7*p3p4*p1p8)*(-16*ffmcfmb+16)+(p5p8*p3p7*p1p3)*(-32*ffmcfmb
5585      . +32)+(p3p7*p2p8*p1p3)*(32*ffmcfmb-32)+(p3p7*p1p8*p1p3)*(16*
5586      . ffmcfmb-16)+16*(-fmc*hbcm*p2p5*p7p8+fmc*hbcm*p2p8*p5p7+p1p3*
5587      . p2p5*p7p8-p1p3*p2p8*p5p7-p2p5*p3p4*p7p8+p2p8*p3p4*p5p7))+ans3
5588       ans1=w8*(32*(p5p7*p2p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p7p8*p2p5
5589      . )*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p3p7*p2p8)*(-3*fmb*fmc+4*fmb*
5590      . hbcm+6*fmc*hbcm-3*fmc2-3*hbcm2)+8*(p7p8*p2p3)*(2*fmb*fmc-2*fmb
5591      . *hbcm+fmb2-2*fmc*hbcm+fmc2+hbcm2)+(p5p8*p3p7*p2p3)*(32*ffmcfmb
5592      . -32)+(p3p7*p2p8*p2p3)*(-32*ffmcfmb+32)+(p3p7*p2p3*p1p8)*(-16*
5593      . ffmcfmb+16)+16*(-p2p3*p2p5*p7p8+p2p3*p2p8*p5p7))+ans2
5594       ans=ccc*ans1
5595       b(5)=ans
5596       ans3=w12*(16*(p5p7*p1p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p3p7*
5597      . p1p3)*(3*fmb*fmc-2*fmb*hbcm+fmb2+2*fmc2-2*hbcm2)+16*p3p7*(-
5598      . ffmcfmb*p1p3s2+p1p3s2)+(p3p7*p3p5*p1p3)*(32*ffmcfmb-32)+(p3p7*
5599      . p2p3*p1p3)*(-32*ffmcfmb+32)+16*(p1p3*p2p3*p5p7-p1p3*p2p5*p3p7)
5600      . )+((p3p7*p3p5)*(128*fb4*ffmcfmb-128*fb4+16)+(p3p7*p2p3)*(-128*
5601      . fb4*ffmcfmb+128*fb4-16)+(p3p7*p1p3)*(-64*fb4*ffmcfmb+64*fb4-8)
5602      . +64*p5p7*(-fb3*fmb*hbcm-fb4*fmc*hbcm+fb4*hbcm2)+4*p3p7*(8*fb3*
5603      . fmb*fmc-16*fb3*fmb*hbcm-8*fb3*fmc*hbcm+8*fb3*fmc2+8*fb4*fmb2+
5604      . 24*fb4*fmc*hbcm-8*fb4*fmc2-16*fb4*hbcm2-fmb*hbcm-fmc*hbcm+2*
5605      . hbcm2)+64*(fb4*p2p3*p5p7-fb4*p2p5*p3p7))
5606       ans2=w5*(48*(p3p7*p3p5)*(fmc*hbcm-fmc2)+48*(p3p7*p2p3)*(-fmc*
5607      . hbcm+fmc2)+16*(p4p7*p3p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p5p7*
5608      . p3p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p4p7*p2p3)*(fmb*hbcm+fmc*
5609      . hbcm-hbcm2)+16*(p3p7*p1p4)*(fmb*hbcm+2*fmc*hbcm-2*hbcm2)+16*(
5610      . p5p7*p1p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p3p7*p3p4)*(-5*fmb*
5611      . fmc+4*fmb*hbcm-fmb2+2*fmc*hbcm-4*fmc2+2*hbcm2)+8*(p3p7*p1p3)*(
5612      . 3*fmb*fmc-2*fmb*hbcm+fmb2-2*fmc*hbcm+4*fmc2-2*hbcm2)+24*p5p7*(
5613      . fmb*fmc*hbcm2-fmc*hbcm3+fmc2*hbcm2)+8*p4p7*(2*fmb*fmc*hbcm2-2*
5614      . fmb*hbcm3+fmb2*hbcm2-2*fmc*hbcm3+fmc2*hbcm2+hbcm4)+(p3p7*p3p5*
5615      . p3p4)*(-32*ffmcfmb+32)+(p3p7*p3p4*p2p3)*(32*ffmcfmb-32)+8*p3p7
5616      . *(-2*ffmcfmb*p1p3s2+3*fmb*fmc*hbcm2-4*fmb*fmc2*hbcm-fmb2*fmc*
5617      . hbcm+3*fmc*hbcm3-3*fmc3*hbcm+2*p1p3s2)+(p3p7*p3p5*p1p3)*(32*
5618      . ffmcfmb-32)+(p3p7*p3p4*p1p3)*(16*ffmcfmb-16)+(p3p7*p2p3*p1p3)*
5619      . (-32*ffmcfmb+32)+16*(-fmc*hbcm*p2p3*p5p7+fmc*hbcm*p2p5*p3p7+
5620      . hbcm2*p2p4*p5p7-hbcm2*p2p5*p4p7+p1p3*p2p3*p5p7-p1p3*p2p5*p3p7-
5621      . p2p3*p3p4*p5p7+p2p5*p3p4*p3p7))+ans3
5622       ans1=w8*(16*(p3p7*p1p2)*(-fmc*hbcm+hbcm2)+16*(p3p7*p2p5)*(fmb*
5623      . hbcm+3*fmc*hbcm-3*hbcm2)+32*(p5p7*p2p3)*(-fmb*hbcm-fmc*hbcm+
5624      . hbcm2)+8*(p3p7*p2p3)*(fmb*fmc-2*fmb*hbcm-fmb2-4*fmc*hbcm+2*
5625      . fmc2+2*hbcm2)+32*p3p7*(ffmcfmb*p2p3s2-p2p3s2)+(p3p7*p3p5*p2p3)
5626      . *(-32*ffmcfmb+32)+(p3p7*p2p3*p1p3)*(16*ffmcfmb-16)+16*(p2p3*
5627      . p2p5*p3p7-p2p3s2*p5p7))+ans2
5628       ans=ccc*ans1
5629       b(6)=ans
5630       ans4=16*(p5p8*p3p7)*(-fmb*fmc*hbcm+3*fmc*hbcm2-3*fmc2*hbcm)+8*(
5631      . p4p8*p3p7)*(2*fmb*fmc*hbcm-3*fmb*hbcm2+fmb2*hbcm+6*fmc*hbcm2-3
5632      . *fmc2*hbcm-3*hbcm3)+16*(p7p8*p3p5)*(fmb*fmc*hbcm-fmc*hbcm2+
5633      . fmc2*hbcm)+16*(p3p7*p2p8)*(fmb*fmc*hbcm-3*fmc*hbcm2+3*fmc2*
5634      . hbcm)+16*(p7p8*p2p3)*(-fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+16*(
5635      . fmc*hbcm2*p2p5*p7p8-fmc*hbcm2*p2p8*p5p7-hbcm*p1p3*p2p5*p7p8+
5636      . hbcm*p1p3*p2p8*p5p7-hbcm*p1p8*p2p3*p5p7+hbcm*p1p8*p2p5*p3p7+
5637      . hbcm*p2p3*p4p8*p5p7+hbcm*p2p5*p3p4*p7p8-hbcm*p2p5*p3p7*p4p8-
5638      . hbcm*p2p8*p3p4*p5p7)
5639       ans3=48*(p4p8*p3p7*p3p5)*(fmc-hbcm)+48*(p4p8*p3p7*p2p3)*(-fmc+
5640      . hbcm)+16*(p3p7*p3p5*p1p8)*(-fmc+hbcm)+16*(p3p7*p3p4*p1p8)*(fmc
5641      . -hbcm)+16*(p3p7*p2p3*p1p8)*(fmc-hbcm)+16*(p4p8*p3p7*p1p3)*(-
5642      . fmc+hbcm)+16*(p5p8*p3p7*p3p4)*(-fmb-4*fmc+4*hbcm)+16*(p7p8*
5643      . p3p5*p3p4)*(fmb+fmc-hbcm)+16*(p3p7*p3p4*p2p8)*(fmb+4*fmc-4*
5644      . hbcm)+16*(p7p8*p3p4*p2p3)*(-fmb-fmc+hbcm)+16*(p5p8*p3p7*p1p3)*
5645      . (fmb+2*fmc-2*hbcm)+16*(p7p8*p3p5*p1p3)*(-fmb-fmc+hbcm)+16*(
5646      . p3p7*p2p8*p1p3)*(-fmb-2*fmc+2*hbcm)+16*(p7p8*p2p3*p1p3)*(fmb+
5647      . fmc-hbcm)+24*(p5p7*p4p8)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+16*(p5p8
5648      . *p4p7)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+8*(p7p8*p3p4)*(2*fmb*hbcm2-
5649      . fmb2*hbcm+fmc2*hbcm-hbcm3)+16*(p4p7*p2p8)*(-fmb*hbcm2-fmc*
5650      . hbcm2+hbcm3)+8*(p5p7*p1p8)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+8*(p3p7
5651      . *p1p8)*(fmb*hbcm2-fmb2*hbcm-4*fmc*hbcm2+3*fmc2*hbcm+hbcm3)+16*
5652      . (p7p8*p1p4)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+8*(p7p8*p1p3)*(-2*fmb
5653      . *hbcm2+fmb2*hbcm-fmc2*hbcm+hbcm3)+8*p7p8*(2*fmb*fmc*hbcm3-fmb2
5654      . *fmc*hbcm2-fmc*hbcm4+fmc3*hbcm2)+ans4
5655       ans2=w5*ans3
5656       ans5=(8*(p5p8*p3p7)*(16*fb3*fmc-16*fb3*hbcm+8*fb4*fmb-hbcm)+8*(
5657      . p7p8*p3p5)*(-8*fb3*fmc+8*fb3*hbcm-8*fb4*fmb+hbcm)+8*(p3p7*p2p8
5658      . )*(-16*fb3*fmc+16*fb3*hbcm-8*fb4*fmb+hbcm)+8*(p7p8*p2p3)*(8*
5659      . fb3*fmc-8*fb3*hbcm+8*fb4*fmb-hbcm)+8*(p3p7*p1p8)*(-8*fb3*fmc+8
5660      . *fb3*hbcm+hbcm)+4*p7p8*(8*fb3*fmb2*hbcm-16*fb3*fmc*hbcm2+8*fb3
5661      . *fmc2*hbcm+8*fb3*hbcm3+16*fb4*fmb*fmc*hbcm-16*fb4*fmb*hbcm2+
5662      . hbcm3)+8*(-8*fb3*hbcm*p2p5*p7p8+8*fb3*hbcm*p2p8*p5p7-hbcm*p1p3
5663      . *p7p8))
5664       ans1=w12*(16*(p3p7*p3p5*p1p8)*(-fmc+hbcm)+16*(p3p7*p2p3*p1p8)*(
5665      . fmc-hbcm)+16*(p5p8*p3p7*p1p3)*(fmb+2*fmc-2*hbcm)+16*(p7p8*p3p5
5666      . *p1p3)*(-fmb-fmc+hbcm)+16*(p3p7*p2p8*p1p3)*(-fmb-2*fmc+2*hbcm)
5667      . +16*(p7p8*p2p3*p1p3)*(fmb+fmc-hbcm)+8*(p5p7*p1p8)*(fmb*hbcm2+
5668      . fmc*hbcm2-hbcm3)+8*(p3p7*p1p8)*(fmb*hbcm2-fmb2*hbcm-2*fmc*
5669      . hbcm2+fmc2*hbcm+hbcm3)+8*(p7p8*p1p3)*(-2*fmb*hbcm2+fmb2*hbcm-
5670      . fmc2*hbcm+hbcm3)+16*(-hbcm*p1p3*p2p5*p7p8+hbcm*p1p3*p2p8*p5p7-
5671      . hbcm*p1p8*p2p3*p5p7+hbcm*p1p8*p2p5*p3p7))+w8*(48*(p3p7*p3p5*
5672      . p2p8)*(-fmc+hbcm)+16*(p3p7*p2p3*p1p8)*(-fmc+hbcm)+16*(p3p7*
5673      . p2p8*p1p3)*(fmc-hbcm)+8*(p7p8*p2p3)*(fmb2*hbcm+2*fmc*hbcm2-
5674      . fmc2*hbcm-hbcm3)+16*p7p8*(-fmb*p2p3s2-fmc*p2p3s2+hbcm*p2p3s2)+
5675      . 16*(p5p8*p3p7*p2p3)*(-fmb+2*fmc-2*hbcm)+16*(p7p8*p3p5*p2p3)*(
5676      . fmb+fmc-hbcm)+16*(p3p7*p2p8*p2p3)*(fmb+fmc-hbcm)+24*(p5p7*p2p8
5677      . )*(fmb*hbcm2+fmc*hbcm2-hbcm3)+16*(p7p8*p2p5)*(-fmb*hbcm2-fmc*
5678      . hbcm2+hbcm3)+8*(p3p7*p2p8)*(-2*fmb*fmc*hbcm+3*fmb*hbcm2-fmb2*
5679      . hbcm-6*fmc*hbcm2+3*fmc2*hbcm+3*hbcm3)+16*(-hbcm*p2p3*p2p5*p7p8
5680      . +hbcm*p2p5*p2p8*p3p7))+ans2+ans5
5681       ans=ccc*ans1
5682       b(7)=ans
5683       ans3=w12*(16*(p4p6*p1p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p5p8*
5684      . p3p6)*(-fmb*fmc+fmc*hbcm-fmc2)+16*(p3p6*p2p8)*(fmb*fmc-fmc*
5685      . hbcm+fmc2)+8*(p3p6*p1p8)*(2*fmb*fmc+fmb*hbcm-fmc*hbcm+2*fmc2-
5686      . hbcm2)+8*(p6p8*p1p3)*(-2*fmb*fmc-fmb2-fmc2+hbcm2)+16*(-ffmcfmb
5687      . *p1p3*p2p8*p3p6+p1p2*p1p3*p6p8-p1p3*p2p3*p6p8-p1p3*p2p4*p6p8-
5688      . p1p3*p2p8*p4p6))+(32*p6p8*(-fb4*fmb2-2*fb4*fmc*hbcm+fb4*fmc2+
5689      . fb4*hbcm2)+(p3p6*p2p8)*(-64*fb4*ffmcfmb-8)+64*(fb4*p1p2*p6p8-
5690      . fb4*p2p3*p6p8-fb4*p2p4*p6p8-fb4*p2p8*p4p6))
5691       ans2=w5*(48*(p5p8*p4p6)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p4p8*
5692      . p4p6)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p4p6*p2p8)*(2*fmb*hbcm+3*
5693      . fmc*hbcm-2*hbcm2)+32*(p4p6*p1p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*
5694      . (p6p8*p1p4)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*p6p8*(2*fmb*fmc2*hbcm
5695      . +fmb2*fmc*hbcm-fmc*hbcm3+fmc3*hbcm)+32*(p5p8*p3p6)*(-fmb*fmc+
5696      . fmc*hbcm-fmc2)+8*(p4p8*p3p6)*(-2*fmb*fmc-fmb*hbcm+fmc*hbcm-2*
5697      . fmc2+hbcm2)+8*(p6p8*p3p4)*(2*fmb*fmc+fmb2+fmc2-hbcm2)+16*(p3p6
5698      . *p2p8)*(fmb*fmc-fmc*hbcm+2*fmc2)+8*(p3p6*p1p8)*(2*fmb*fmc+fmb*
5699      . hbcm-fmc*hbcm+2*fmc2-hbcm2)+8*(p6p8*p1p3)*(-2*fmb*fmc-fmb2-
5700      . fmc2+hbcm2)+16*(-ffmcfmb*p1p3*p2p8*p3p6+ffmcfmb*p2p8*p3p4*p3p6
5701      . -fmc*hbcm*p1p2*p6p8+fmc*hbcm*p2p3*p6p8+fmc*hbcm*p2p4*p6p8+p1p2
5702      . *p1p3*p6p8-p1p2*p3p4*p6p8-p1p3*p2p3*p6p8-p1p3*p2p4*p6p8-p1p3*
5703      . p2p8*p4p6+p2p3*p3p4*p6p8+p2p4*p3p4*p6p8+p2p8*p3p4*p4p6))+ans3
5704       ans1=w8*(32*(p4p6*p2p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p8*p2p4
5705      . )*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p8*p1p2)*(-fmb*hbcm-fmc*hbcm
5706      . +hbcm2)+8*(p3p6*p2p8)*(2*fmb*fmc+fmb*hbcm-fmc*hbcm+2*fmc2-
5707      . hbcm2)+8*(p6p8*p2p3)*(2*fmb*fmc+fmb2+fmc2-hbcm2)+16*(ffmcfmb*
5708      . p2p3*p2p8*p3p6-p1p2*p2p3*p6p8+p2p3*p2p4*p6p8+p2p3*p2p8*p4p6+
5709      . p2p3s2*p6p8))+ans2
5710       ans=ccc*ans1
5711       b(8)=ans
5712       ans2=w12*(16*(p4p6*p1p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p3p6*
5713      . p1p3)*(-fmb*hbcm+fmb2+fmc*hbcm-fmc2)+32*(p3p6*p3p5)*(fmb*fmc-
5714      . fmc*hbcm+fmc2)+16*(p3p6*p2p3)*(-fmb*fmc+2*fmc*hbcm-fmc2)+8*
5715      . p3p6*(3*fmb*fmc*hbcm2-2*fmb*fmc2*hbcm-fmb2*fmc*hbcm-2*fmc*
5716      . hbcm3+3*fmc2*hbcm2-fmc3*hbcm)+16*(ffmcfmb*p1p3*p2p3*p3p6-fmc*
5717      . hbcm*p1p2*p3p6+2*fmc*hbcm*p2p5*p3p6+p1p3*p2p3*p4p6-p1p3*p2p5*
5718      . p3p6))+((p3p6*p2p3)*(64*fb4*ffmcfmb+8)+64*p4p6*(-fb3*fmb*hbcm-
5719      . fb4*fmc*hbcm+fb4*hbcm2)+32*p3p6*(-fb3*fmb*hbcm+fb4*fmb2+fb4*
5720      . fmc*hbcm-fb4*fmc2)+64*(fb4*p2p3*p4p6-fb4*p2p5*p3p6))
5721       ans1=w8*(16*(p3p6*p2p5)*(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p4p6*p2p3
5722      . )*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p3p6*p2p3)*(-4*fmb*fmc+fmb*
5723      . hbcm-fmb2+3*fmc*hbcm-3*fmc2)+16*(-ffmcfmb*p2p3s2*p3p6+p2p3*
5724      . p2p5*p3p6-p2p3s2*p4p6))+w5*(48*(p4p6*p3p5)*(fmb*hbcm+fmc*hbcm-
5725      . hbcm2)+32*(p4p6*p3p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p3p6*p3p4)*
5726      . (fmb*hbcm-fmb2-fmc*hbcm+fmc2)+16*(p4p6*p2p3)*(-2*fmb*hbcm-3*
5727      . fmc*hbcm+3*hbcm2)+16*(p3p6*p1p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+32*
5728      . (p4p6*p1p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p3p6*p1p3)*(-fmb*
5729      . hbcm+fmb2+fmc*hbcm-fmc2)+32*(p3p6*p3p5)*(fmb*fmc-fmc*hbcm+fmc2
5730      . )+16*(p3p6*p2p3)*(-fmb*fmc+2*fmc*hbcm-2*fmc2)+8*p4p6*(-fmb*fmc
5731      . *hbcm2+5*fmb*hbcm3-2*fmb2*hbcm2+2*fmc*hbcm3+fmc2*hbcm2-3*hbcm4
5732      . )+8*p3p6*(4*fmb*fmc*hbcm2-3*fmb*fmc2*hbcm-2*fmb2*fmc*hbcm-2*
5733      . fmc*hbcm3+3*fmc2*hbcm2-fmc3*hbcm)+16*(ffmcfmb*p1p3*p2p3*p3p6-
5734      . ffmcfmb*p2p3*p3p4*p3p6-fmc*hbcm*p1p2*p3p6+fmc*hbcm*p2p4*p3p6+3
5735      . *fmc*hbcm*p2p5*p3p6-hbcm2*p1p2*p4p6+hbcm2*p2p4*p4p6+3*hbcm2*
5736      . p2p5*p4p6+p1p3*p2p3*p4p6-p1p3*p2p5*p3p6-p2p3*p3p4*p4p6+p2p5*
5737      . p3p4*p3p6))+ans2
5738       ans=ccc*ans1
5739       b(9)=ans
5740       ans4=8*(p3p6*p1p8)*(fmb*fmc*hbcm+fmb*hbcm2-fmb2*hbcm-2*fmc*
5741      . hbcm2+2*fmc2*hbcm)+16*(fmc*hbcm2*p2p5*p6p8-fmc*p1p8*p2p3*p3p6+
5742      . fmc*p2p3*p3p6*p4p8+2*fmc*p2p3*p3p6*p5p8-2*fmc*p2p8*p3p5*p3p6-
5743      . hbcm*p1p3*p2p5*p6p8+hbcm*p1p3*p2p8*p4p6-hbcm*p1p8*p2p3*p4p6+
5744      . hbcm*p1p8*p2p5*p3p6+hbcm*p2p3*p4p6*p4p8+2*hbcm*p2p3*p4p6*p5p8+
5745      . hbcm*p2p5*p3p4*p6p8-hbcm*p2p5*p3p6*p4p8-hbcm*p2p8*p3p4*p4p6-2*
5746      . hbcm*p2p8*p3p5*p4p6)
5747       ans3=16*(p5p8*p3p6*p3p4)*(-fmb-fmc+hbcm)+16*(p6p8*p3p5*p3p4)*(
5748      . fmb+fmc-hbcm)+16*(p3p6*p3p4*p2p8)*(fmb-hbcm)+16*(p6p8*p3p4*
5749      . p2p3)*(-fmb-fmc+hbcm)+16*(p5p8*p3p6*p1p3)*(fmb+fmc-hbcm)+16*(
5750      . p6p8*p3p5*p1p3)*(-fmb-fmc+hbcm)+16*(p3p6*p2p8*p1p3)*(-fmb+hbcm
5751      . )+16*(p6p8*p2p3*p1p3)*(fmb+fmc-hbcm)+32*(p5p8*p4p6)*(-fmb*
5752      . hbcm2-fmc*hbcm2+hbcm3)+24*(p4p8*p4p6)*(-fmb*hbcm2-fmc*hbcm2+
5753      . hbcm3)+8*(p6p8*p3p4)*(2*fmb*hbcm2-fmb2*hbcm+fmc2*hbcm-hbcm3)+
5754      . 16*(p4p6*p2p8)*(fmb*hbcm2+2*fmc*hbcm2-3*hbcm3)+24*(p4p6*p1p8)*
5755      . (fmb*hbcm2+fmc*hbcm2-hbcm3)+16*(p6p8*p1p4)*(-fmb*hbcm2-fmc*
5756      . hbcm2+hbcm3)+8*(p6p8*p1p3)*(-2*fmb*hbcm2+fmb2*hbcm-fmc2*hbcm+
5757      . hbcm3)+8*p6p8*(2*fmb*fmc*hbcm3-fmb2*fmc*hbcm2-fmc*hbcm4+fmc3*
5758      . hbcm2)+32*(p5p8*p3p6)*(-fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+8*(
5759      . p4p8*p3p6)*(-fmb*fmc*hbcm-fmb*hbcm2+fmb2*hbcm+2*fmc*hbcm2-2*
5760      . fmc2*hbcm)+16*(p6p8*p3p5)*(fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+
5761      . 16*(p3p6*p2p8)*(fmb*fmc*hbcm-3*fmc*hbcm2+2*fmc2*hbcm)+16*(p6p8
5762      . *p2p3)*(-fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+ans4
5763       ans2=w5*ans3
5764       ans5=w12*(32*(p3p6*p2p8)*(-fmc*hbcm2+fmc2*hbcm)+16*(p5p8*p3p6*
5765      . p1p3)*(fmb+fmc-hbcm)+16*(p6p8*p3p5*p1p3)*(-fmb-fmc+hbcm)+16*(
5766      . p3p6*p2p8*p1p3)*(-fmb+hbcm)+16*(p6p8*p2p3*p1p3)*(fmb+fmc-hbcm)
5767      . +8*(p4p6*p1p8)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+8*(p6p8*p1p3)*(-2*
5768      . fmb*hbcm2+fmb2*hbcm-fmc2*hbcm+hbcm3)+16*(p5p8*p3p6)*(-fmb*fmc*
5769      . hbcm+fmc*hbcm2-fmc2*hbcm)+8*(p3p6*p1p8)*(fmb*fmc*hbcm+fmb*
5770      . hbcm2-fmb2*hbcm-2*fmc*hbcm2+2*fmc2*hbcm)+16*(-fmc*p1p8*p2p3*
5771      . p3p6+2*fmc*p2p3*p3p6*p5p8-2*fmc*p2p8*p3p5*p3p6-hbcm*p1p3*p2p5*
5772      . p6p8+hbcm*p1p3*p2p8*p4p6-hbcm*p1p8*p2p3*p4p6+hbcm*p1p8*p2p5*
5773      . p3p6))+(8*(p3p6*p2p8)*(8*fb3*hbcm-8*fb4*fmb+hbcm)+64*(p5p8*
5774      . p3p6)*(fb3*fmc-fb3*hbcm+fb4*fmb)+64*(p6p8*p3p5)*(-fb3*fmc+fb3*
5775      . hbcm-fb4*fmb)+8*(p6p8*p2p3)*(8*fb3*fmc-8*fb3*hbcm+8*fb4*fmb-
5776      . hbcm)+4*p6p8*(8*fb3*fmb2*hbcm-16*fb3*fmc*hbcm2+8*fb3*fmc2*hbcm
5777      . +8*fb3*hbcm3+16*fb4*fmb*fmc*hbcm-16*fb4*fmb*hbcm2-fmb*hbcm2-
5778      . fmc*hbcm2+hbcm3)+64*(-fb3*hbcm*p2p5*p6p8+fb3*hbcm*p2p8*p4p6))
5779       ans1=w8*(8*(p6p8*p2p3)*(fmb2*hbcm+2*fmc*hbcm2-fmc2*hbcm-hbcm3)+
5780      . 16*p6p8*(-fmb*p2p3s2-fmc*p2p3s2+hbcm*p2p3s2)+16*(p5p8*p3p6*
5781      . p2p3)*(-fmb-fmc+hbcm)+16*(p6p8*p3p5*p2p3)*(fmb+fmc-hbcm)+16*(
5782      . p3p6*p2p8*p2p3)*(fmb+fmc-hbcm)+24*(p4p6*p2p8)*(fmb*hbcm2+fmc*
5783      . hbcm2-hbcm3)+16*(p6p8*p2p5)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+8*(
5784      . p3p6*p2p8)*(fmb*fmc*hbcm+fmb*hbcm2-fmb2*hbcm-2*fmc*hbcm2+2*
5785      . fmc2*hbcm)+16*(-hbcm*p2p3*p2p5*p6p8+hbcm*p2p5*p2p8*p3p6))+ans2
5786      . +ans5
5787       ans=ccc*ans1
5788       b(10)=ans
5789       ans4=16*(p6p7*p3p5)*(-fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+16*(
5790      . p6p7*p2p3)*(fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+32*(p3p7*p3p6*
5791      . p3p5)*(-ffmcfmb*fmc+fmc)+32*(p3p7*p3p6*p2p3)*(ffmcfmb*fmc-fmc)
5792      . +16*(p3p7*p3p6*p3p4)*(-2*ffmcfmb*fmb-ffmcfmb*fmc+fmb+fmc)+16*(
5793      . p3p7*p3p6*p1p3)*(2*ffmcfmb*fmb+ffmcfmb*fmc-fmb-fmc)+16*(-fmc*
5794      . hbcm2*p2p5*p6p7-2*fmc*p2p3*p3p6*p5p7+2*fmc*p2p5*p3p6*p3p7+hbcm
5795      . *p1p3*p2p5*p6p7-2*hbcm*p2p3*p4p6*p5p7-hbcm*p2p5*p3p4*p6p7+2*
5796      . hbcm*p2p5*p3p7*p4p6)
5797       ans3=64*(p4p6*p3p7*p3p5)*(-fmc+hbcm)+64*(p4p6*p3p7*p2p3)*(fmc-
5798      . hbcm)+32*(p3p7*p3p6*p1p4)*(-fmc+hbcm)+16*(p4p6*p3p7*p3p4)*(-
5799      . fmb-4*fmc+4*hbcm)+16*(p5p7*p3p6*p3p4)*(fmb+fmc-hbcm)+16*(p6p7*
5800      . p3p5*p3p4)*(-fmb-fmc+hbcm)+16*(p6p7*p3p4*p2p3)*(fmb+fmc-hbcm)+
5801      . 16*(p4p6*p3p7*p1p3)*(fmb+4*fmc-4*hbcm)+16*(p5p7*p3p6*p1p3)*(-
5802      . fmb-fmc+hbcm)+16*(p6p7*p3p5*p1p3)*(fmb+fmc-hbcm)+16*(p6p7*p2p3
5803      . *p1p3)*(-fmb-fmc+hbcm)+32*(p5p7*p4p6)*(fmb*hbcm2+fmc*hbcm2-
5804      . hbcm3)+16*(p4p7*p4p6)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+8*(p6p7*p3p4
5805      . )*(-2*fmb*hbcm2+fmb2*hbcm-fmc2*hbcm+hbcm3)+16*(p6p7*p1p4)*(fmb
5806      . *hbcm2+fmc*hbcm2-hbcm3)+8*(p6p7*p1p3)*(2*fmb*hbcm2-fmb2*hbcm+
5807      . fmc2*hbcm-hbcm3)+8*p6p7*(-2*fmb*fmc*hbcm3+fmb2*fmc*hbcm2+fmc*
5808      . hbcm4-fmc3*hbcm2)+16*(p4p6*p3p7)*(-2*fmb*fmc*hbcm+2*fmb*hbcm2-
5809      . fmb2*hbcm-fmc*hbcm2-fmc2*hbcm+2*hbcm3)+32*(p5p7*p3p6)*(fmb*fmc
5810      . *hbcm-fmc*hbcm2+fmc2*hbcm)+16*(p4p7*p3p6)*(fmb*fmc*hbcm-fmc*
5811      . hbcm2+fmc2*hbcm)+16*(p3p7*p3p6)*(2*fmb*fmc*hbcm-2*fmb*fmc2-
5812      . fmb2*fmc+fmc*hbcm2-2*fmc2*hbcm+fmc3)+ans4
5813       ans2=w5*ans3
5814       ans5=w12*(16*(p4p6*p3p7*p1p3)*(fmb+2*fmc-2*hbcm)+16*(p5p7*p3p6*
5815      . p1p3)*(-fmb-fmc+hbcm)+16*(p6p7*p3p5*p1p3)*(fmb+fmc-hbcm)+16*(
5816      . p6p7*p2p3*p1p3)*(-fmb-fmc+hbcm)+8*(p6p7*p1p3)*(2*fmb*hbcm2-
5817      . fmb2*hbcm+fmc2*hbcm-hbcm3)+16*(p5p7*p3p6)*(fmb*fmc*hbcm-fmc*
5818      . hbcm2+fmc2*hbcm)+16*(p3p7*p3p6)*(fmb*fmc*hbcm-fmb2*fmc+fmc*
5819      . hbcm2-2*fmc2*hbcm+fmc3)+32*(p3p7*p3p6*p3p5)*(-ffmcfmb*fmc+fmc)
5820      . +32*(p3p7*p3p6*p2p3)*(ffmcfmb*fmc-fmc)+16*(p3p7*p3p6*p1p3)*(2*
5821      . ffmcfmb*fmb+ffmcfmb*fmc-fmb-fmc)+16*(-2*fmc*p2p3*p3p6*p5p7+2*
5822      . fmc*p2p5*p3p6*p3p7+hbcm*p1p3*p2p5*p6p7))+(8*(p4p6*p3p7)*(16*
5823      . fb3*fmc-16*fb3*hbcm+8*fb4*fmb-hbcm)+64*(p5p7*p3p6)*(-fb3*fmc+
5824      . fb3*hbcm-fb4*fmb)+64*(p6p7*p3p5)*(fb3*fmc-fb3*hbcm+fb4*fmb)+64
5825      . *(p6p7*p2p3)*(-fb3*fmc+fb3*hbcm-fb4*fmb)+32*p6p7*(-fb3*fmb2*
5826      . hbcm+2*fb3*fmc*hbcm2-fb3*fmc2*hbcm-fb3*hbcm3-2*fb4*fmb*fmc*
5827      . hbcm+2*fb4*fmb*hbcm2)+16*(p3p7*p3p6)*(4*fb3*ffmcfmb*fmc-4*fb3*
5828      . fmc+8*fb4*ffmcfmb*fmb-4*fb4*fmb+fmb)+64*fb3*hbcm*p2p5*p6p7)
5829       ans1=w8*(32*(p3p7*p3p6*p2p5)*(-fmc+hbcm)+8*(p6p7*p2p3)*(-fmb2*
5830      . hbcm-2*fmc*hbcm2+fmc2*hbcm+hbcm3)+16*p6p7*(fmb*p2p3s2+fmc*
5831      . p2p3s2-hbcm*p2p3s2)+16*(p4p6*p3p7*p2p3)*(-fmb+2*fmc-2*hbcm)+16
5832      . *(p5p7*p3p6*p2p3)*(fmb+fmc-hbcm)+16*(p6p7*p3p5*p2p3)*(-fmb-fmc
5833      . +hbcm)+16*(p6p7*p2p5)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+16*(p3p7*
5834      . p3p6*p2p3)*(-2*ffmcfmb*fmb+ffmcfmb*fmc+fmb-fmc)+16*hbcm*p2p3*
5835      . p2p5*p6p7)+ans2+ans5
5836       ans=ccc*ans1
5837       b(11)=ans
5838       ans4=16*(-4*ffmcfmb*p2p3*p2p8*p3p6*p3p7+2*ffmcfmb*p2p3s2*p3p6*
5839      . p7p8-2*ffmcfmb*p2p3s2*p3p7*p6p8+2*fmb*hbcm*p2p5*p3p7*p6p8+
5840      . hbcm2*p2p5*p2p8*p6p7-2*p1p8*p2p3s2*p6p7-2*p2p3*p2p5*p3p6*p7p8+
5841      . 2*p2p3*p2p5*p3p7*p6p8-2*p2p3*p2p8*p3p5*p6p7+2*p2p3*p2p8*p3p6*
5842      . p5p7-4*p2p3*p2p8*p3p7*p4p6+2*p2p3s2*p4p6*p7p8-2*p2p3s2*p4p7*
5843      . p6p8+2*p2p3s2*p4p8*p6p7-2*p2p3s2*p5p7*p6p8+2*p2p3s2*p5p8*p6p7)
5844       ans3=16*(p4p6*p3p7*p2p8)*(-5*fmb*hbcm-7*fmc*hbcm+7*hbcm2)+16*(
5845      . p5p7*p3p6*p2p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p7*p3p5*p2p8)*
5846      . (-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p7p8*p3p6*p2p5)*(-fmb*hbcm-fmc*
5847      . hbcm+hbcm2)+16*(p6p7*p5p8*p2p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(
5848      . p6p8*p5p7*p2p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p6p7*p4p8*p2p3)
5849      . *(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p6p8*p4p7*p2p3)*(-fmb*hbcm-fmc*
5850      . hbcm+hbcm2)+48*(p7p8*p4p6*p2p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+32*(
5851      . p6p7*p2p3*p1p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p3p7*p3p6*p2p8)
5852      . *(-4*fmb*fmc+3*fmc*hbcm-4*fmc2+hbcm2)+16*(p6p8*p3p7*p2p3)*(-3*
5853      . fmb*fmc+fmb*hbcm-fmb2+2*fmc*hbcm-2*fmc2)+16*(p7p8*p3p6*p2p3)*(
5854      . 3*fmb*fmc-fmb*hbcm+fmb2-2*fmc*hbcm+2*fmc2)+8*(p6p7*p2p8)*(2*
5855      . fmb*fmc*hbcm2-2*fmb*hbcm3+fmb2*hbcm2-2*fmc*hbcm3+fmc2*hbcm2+
5856      . hbcm4)+(p5p8*p3p7*p3p6*p2p3)*(-32*ffmcfmb+32)+(p6p8*p3p7*p3p5*
5857      . p2p3)*(32*ffmcfmb-32)+ans4
5858       ans2=w8*ans3
5859       ans11=-2*p2p8*p3p4*p3p5*p6p7+2*p2p8*p3p4*p3p6*p5p7-4*p2p8*p3p4*
5860      . p3p7*p4p6
5861       ans10=-2*ffmcfmb*p1p3*p2p3*p3p6*p7p8+2*ffmcfmb*p1p3*p2p3*p3p7*
5862      . p6p8+4*ffmcfmb*p1p3*p2p8*p3p6*p3p7+2*ffmcfmb*p2p3*p3p4*p3p6*
5863      . p7p8-2*ffmcfmb*p2p3*p3p4*p3p7*p6p8-4*ffmcfmb*p2p8*p3p4*p3p6*
5864      . p3p7+2*fmb*fmc*p3p6*p3p7*p5p8+2*fmb*hbcm*p1p4*p3p7*p6p8+2*fmc*
5865      . hbcm*p1p2*p3p6*p7p8-2*fmc*hbcm*p2p3*p4p7*p6p8-2*fmc*hbcm*p2p3*
5866      . p5p7*p6p8+2*fmc*hbcm*p2p3*p5p8*p6p7-2*fmc*hbcm*p2p4*p3p6*p7p8-
5867      . 4*fmc*hbcm*p2p5*p3p6*p7p8+2*fmc*hbcm*p2p5*p3p7*p6p8-2*fmc*hbcm
5868      . *p2p8*p3p5*p6p7+2*fmc*hbcm*p2p8*p3p6*p4p7+4*fmc*hbcm*p2p8*p3p6
5869      . *p5p7-2*fmc2*p2p3*p3p7*p6p8+2*hbcm2*p1p2*p4p6*p7p8+2*hbcm2*
5870      . p1p4*p2p8*p6p7+hbcm2*p1p8*p2p5*p6p7-2*hbcm2*p2p4*p4p6*p7p8-4*
5871      . hbcm2*p2p5*p4p6*p7p8-hbcm2*p2p5*p4p8*p6p7+2*hbcm2*p2p8*p4p6*
5872      . p4p7+4*hbcm2*p2p8*p4p6*p5p7+2*p1p3*p1p8*p2p3*p6p7-2*p1p3*p2p3*
5873      . p4p6*p7p8+2*p1p3*p2p3*p4p7*p6p8-2*p1p3*p2p3*p4p8*p6p7+2*p1p3*
5874      . p2p3*p5p7*p6p8-2*p1p3*p2p3*p5p8*p6p7+2*p1p3*p2p5*p3p6*p7p8-2*
5875      . p1p3*p2p5*p3p7*p6p8+2*p1p3*p2p8*p3p5*p6p7-2*p1p3*p2p8*p3p6*
5876      . p5p7+4*p1p3*p2p8*p3p7*p4p6-2*p1p8*p2p3*p3p4*p6p7+2*p2p3*p3p4*
5877      . p4p6*p7p8-2*p2p3*p3p4*p4p7*p6p8+2*p2p3*p3p4*p4p8*p6p7-2*p2p3*
5878      . p3p4*p5p7*p6p8+2*p2p3*p3p4*p5p8*p6p7-2*p2p5*p3p4*p3p6*p7p8+2*
5879      . p2p5*p3p4*p3p7*p6p8+ans11
5880       ans9=16*ans10
5881       ans8=8*(p6p7*p1p8)*(-2*fmb*fmc*hbcm2+2*fmb*hbcm3-fmb2*hbcm2+2*
5882      . fmc*hbcm3-fmc2*hbcm2-hbcm4)+(p5p8*p3p7*p3p6*p3p4)*(-32*ffmcfmb
5883      . +32)+(p6p8*p3p7*p3p5*p3p4)*(32*ffmcfmb-32)+(p5p8*p3p7*p3p6*
5884      . p1p3)*(32*ffmcfmb-32)+(p6p8*p3p7*p3p5*p1p3)*(-32*ffmcfmb+32)+
5885      . ans9
5886       ans7=16*(p6p7*p3p5*p1p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p7*
5887      . p2p3*p1p8)*(-fmb*hbcm-3*fmc*hbcm+hbcm2)+32*(p7p8*p3p6*p1p4)*(-
5888      . fmb*hbcm-fmc*hbcm+hbcm2)+16*(p6p7*p5p8*p1p3)*(-fmb*hbcm-fmc*
5889      . hbcm+hbcm2)+16*(p6p8*p5p7*p1p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+48*(
5890      . p7p8*p4p6*p1p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p7*p2p8*p1p3)*
5891      . (fmb*hbcm+fmc*hbcm+hbcm2)+32*(p7p8*p3p6*p3p5)*(-fmb*fmc+fmc*
5892      . hbcm-fmc2)+16*(p6p8*p3p7*p3p4)*(-fmb*fmc-fmb*hbcm-fmb2)+16*(
5893      . p7p8*p3p6*p3p4)*(fmb*fmc-fmb*hbcm+fmb2)+16*(p6p8*p3p7*p1p3)*(
5894      . fmb*fmc+fmb*hbcm+fmb2)+16*(p7p8*p3p6*p1p3)*(-fmb*fmc+fmb*hbcm-
5895      . fmb2)+16*(p6p7*p5p8)*(fmb*fmc*hbcm2-fmc*hbcm3+fmc2*hbcm2)+16*(
5896      . p6p8*p5p7)*(-fmb*fmc*hbcm2+fmc*hbcm3-fmc2*hbcm2)+8*(p6p7*p4p8)
5897      . *(2*fmb*fmc*hbcm2-2*fmb*hbcm3+fmb2*hbcm2-2*fmc*hbcm3+fmc2*
5898      . hbcm2+hbcm4)+16*(p6p8*p3p7)*(-fmb*fmc*hbcm2-fmb*fmc2*hbcm-fmb2
5899      . *fmc*hbcm)+16*(p7p8*p3p6)*(-2*fmb*fmc*hbcm2+2*fmb*fmc2*hbcm+
5900      . fmb2*fmc*hbcm+fmc*hbcm3-2*fmc2*hbcm2+fmc3*hbcm)+16*(p6p7*p2p8)
5901      . *(-fmb*fmc*hbcm2-fmc*hbcm3-fmc2*hbcm2)+ans8
5902       ans6=32*(p6p8*p3p7*p3p5)*(-fmc*hbcm+fmc2)+32*(p3p7*p3p6*p2p8)*(
5903      . fmc*hbcm-2*fmc2)+32*(p7p8*p3p6*p2p3)*(-fmc*hbcm+fmc2)+16*(p7p8
5904      . *p4p6)*(-3*fmb*hbcm3+fmb2*hbcm2-fmc*hbcm3-fmc2*hbcm2+2*hbcm4)+
5905      . 32*(p5p8*p4p6*p3p7)*(2*fmb*hbcm+fmc*hbcm-hbcm2)+16*(p4p8*p4p6*
5906      . p3p7)*(3*fmb*hbcm+fmc*hbcm-hbcm2)+16*(p5p7*p4p8*p3p6)*(fmb*
5907      . hbcm+fmc*hbcm-hbcm2)+16*(p4p8*p3p7*p3p6)*(2*fmb*hbcm+fmc*hbcm-
5908      . hbcm2)+16*(p6p7*p4p8*p3p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)+64*(p7p8
5909      . *p4p6*p3p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p6p7*p5p8*p3p4)*(
5910      . fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p8*p5p7*p3p4)*(-fmb*hbcm-fmc*
5911      . hbcm+hbcm2)+48*(p7p8*p4p6*p3p4)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*
5912      . (p4p6*p3p7*p2p8)*(-fmb*hbcm-3*fmc*hbcm+2*hbcm2)+16*(p6p7*p3p4*
5913      . p2p8)*(-fmb*hbcm-fmc*hbcm-hbcm2)+16*(p6p7*p4p8*p2p3)*(fmb*hbcm
5914      . +3*fmc*hbcm-hbcm2)+32*(p7p8*p4p6*p2p3)*(fmb*hbcm+2*fmc*hbcm-2*
5915      . hbcm2)+16*(p4p6*p3p7*p1p8)*(-3*fmb*hbcm-fmc*hbcm+hbcm2)+16*(
5916      . p5p7*p3p6*p1p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p3p7*p3p6*p1p8)
5917      . *(-2*fmb*hbcm-fmc*hbcm+hbcm2)+ans7
5918       ans5=w5*ans6
5919       ans14=16*(-2*ffmcfmb*p1p3*p2p3*p3p6*p7p8+2*ffmcfmb*p1p3*p2p3*
5920      . p3p7*p6p8+4*ffmcfmb*p1p3*p2p8*p3p6*p3p7+2*fmc*hbcm*p1p2*p3p6*
5921      . p7p8-2*fmc*hbcm*p2p3*p3p6*p7p8-2*fmc*hbcm*p2p5*p3p6*p7p8+2*fmc
5922      . *hbcm*p2p8*p3p6*p3p7+2*fmc*hbcm*p2p8*p3p6*p5p7+hbcm2*p1p8*p2p5
5923      . *p6p7+2*p1p3*p1p8*p2p3*p6p7-2*p1p3*p2p3*p4p6*p7p8+2*p1p3*p2p3*
5924      . p4p7*p6p8-2*p1p3*p2p3*p4p8*p6p7+2*p1p3*p2p3*p5p7*p6p8-2*p1p3*
5925      . p2p3*p5p8*p6p7+2*p1p3*p2p5*p3p6*p7p8-2*p1p3*p2p5*p3p7*p6p8+2*
5926      . p1p3*p2p8*p3p5*p6p7-2*p1p3*p2p8*p3p6*p5p7+4*p1p3*p2p8*p3p7*
5927      . p4p6)
5928       ans13=16*(p4p6*p3p7*p1p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p5p7*
5929      . p3p6*p1p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p3p7*p3p6*p1p8)*(-2*
5930      . fmb*hbcm-fmc*hbcm+hbcm2)+16*(p6p7*p3p5*p1p8)*(fmb*hbcm+fmc*
5931      . hbcm-hbcm2)+16*(p6p7*p2p3*p1p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*
5932      . (p6p7*p5p8*p1p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p6p8*p5p7*p1p3
5933      . )*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p7p8*p4p6*p1p3)*(fmb*hbcm+fmc*
5934      . hbcm-hbcm2)+16*(p6p7*p2p8*p1p3)*(fmb*hbcm+fmc*hbcm+hbcm2)+32*(
5935      . p5p8*p3p7*p3p6)*(fmb*fmc-fmc*hbcm+fmc2)+32*(p7p8*p3p6*p3p5)*(-
5936      . fmb*fmc+fmc*hbcm-fmc2)+16*(p6p8*p3p7*p1p3)*(fmb*fmc+fmb*hbcm+
5937      . fmb2)+16*(p7p8*p3p6*p1p3)*(-fmb*fmc+fmb*hbcm-fmb2)+16*(p7p8*
5938      . p3p6)*(-fmb*fmc*hbcm2+fmc*hbcm3-fmc2*hbcm2)+8*(p6p7*p1p8)*(-2*
5939      . fmb*fmc*hbcm2+2*fmb*hbcm3-fmb2*hbcm2+2*fmc*hbcm3-fmc2*hbcm2-
5940      . hbcm4)+(p5p8*p3p7*p3p6*p1p3)*(32*ffmcfmb-32)+(p6p8*p3p7*p3p5*
5941      . p1p3)*(-32*ffmcfmb+32)+ans14
5942       ans12=w12*ans13
5943       ans15=((p5p8*p3p7*p3p6)*(128*fb4*ffmcfmb-128*fb4+16)+(p6p8*p3p7
5944      . *p3p5)*(-128*fb4*ffmcfmb+128*fb4-16)+(p3p7*p3p6*p2p8)*(256*fb4
5945      . *ffmcfmb+32)+(p6p8*p3p7*p2p3)*(128*fb4*ffmcfmb+16)+(p7p8*p3p6*
5946      . p2p3)*(-128*fb4*ffmcfmb-16)+64*(p6p7*p5p8)*(-fb3*fmb*hbcm-fb4*
5947      . fmc*hbcm+fb4*hbcm2)+64*(p6p8*p5p7)*(fb3*fmb*hbcm+fb4*fmc*hbcm-
5948      . fb4*hbcm2)+64*(p7p8*p4p6)*(fb3*fmb*hbcm+fb4*fmc*hbcm-fb4*hbcm2
5949      . )+64*(p6p7*p2p8)*(fb3*fmb*hbcm-fb4*fmc*hbcm+fb4*hbcm2)+16*(
5950      . p6p8*p3p7)*(-4*fb3*fmb*fmc+4*fb3*fmb*hbcm+4*fb4*fmb2+fmb*hbcm)
5951      . +8*(p7p8*p3p6)*(-8*fb3*fmb*fmc+8*fb3*fmb*hbcm-8*fb4*fmb2-2*fmb
5952      . *hbcm+hbcm2)+128*(fb4*p1p8*p2p3*p6p7-fb4*p2p3*p4p6*p7p8+fb4*
5953      . p2p3*p4p7*p6p8-fb4*p2p3*p4p8*p6p7+fb4*p2p3*p5p7*p6p8-fb4*p2p3*
5954      . p5p8*p6p7+fb4*p2p5*p3p6*p7p8-fb4*p2p5*p3p7*p6p8+fb4*p2p8*p3p5*
5955      . p6p7-fb4*p2p8*p3p6*p5p7+2*fb4*p2p8*p3p7*p4p6))
5956       ans1=ans2+ans5+ans12+ans15
5957       ans=ccc*ans1
5958       b(12)=ans
5959       ans2=w5*(24*(p5p8*p3p4)*(fmb+fmc-hbcm)+16*(p3p4*p2p8)*(-fmb-2*
5960      . fmc+hbcm)+8*(p3p4*p1p8)*(-fmb-fmc+hbcm)+24*(p5p8*p1p3)*(-fmb-
5961      . fmc+hbcm)+16*(p2p8*p1p3)*(fmb+2*fmc-hbcm)+8*(p1p8*p1p3)*(fmb+
5962      . fmc-hbcm)+4*p4p8*(fmb*hbcm2-4*fmb2*hbcm-7*fmc*hbcm2+4*fmc2*
5963      . hbcm+3*hbcm3)+32*p5p8*(fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+8*
5964      . p2p8*(-3*fmb*fmc*hbcm+3*fmc*hbcm2-5*fmc2*hbcm)+4*p1p8*(-2*fmb*
5965      . fmc*hbcm-fmb*hbcm2+2*fmb2*hbcm+5*fmc*hbcm2-4*fmc2*hbcm-hbcm3)+
5966      . 8*(hbcm*p1p2*p1p8-hbcm*p1p2*p4p8+2*hbcm*p1p4*p2p8-hbcm*p1p8*
5967      . p2p3-3*hbcm*p1p8*p2p5+hbcm*p2p3*p4p8+2*hbcm*p2p4*p2p8-2*hbcm*
5968      . p2p4*p5p8+5*hbcm*p2p5*p4p8))+(96*p5p8*(-fb3*fmc+fb3*hbcm-fb4*
5969      . fmb)+64*p2p8*(fb3*fmc-fb3*hbcm+fb4*fmb)+32*p1p8*(fb3*fmc-fb3*
5970      . hbcm+fb4*fmb))
5971       ans1=w8*(24*(p5p8*p2p3)*(fmb+fmc-hbcm)+8*(p2p8*p2p3)*(-2*fmb-4*
5972      . fmc+3*hbcm)+8*(p2p3*p1p8)*(-fmb-fmc+hbcm)+4*p2p8*(-fmb*hbcm2+4
5973      . *fmb2*hbcm+7*fmc*hbcm2-4*fmc2*hbcm-3*hbcm3)+8*(hbcm*p1p2*p2p8-
5974      . 3*hbcm*p2p5*p2p8))+w12*(24*(p5p8*p1p3)*(-fmb-fmc+hbcm)+16*(
5975      . p2p8*p1p3)*(fmb+2*fmc-hbcm)+8*(p1p8*p1p3)*(fmb+fmc-hbcm)+4*
5976      . p1p8*(-fmb*hbcm2+2*fmb2*hbcm+3*fmc*hbcm2-2*fmc2*hbcm-hbcm3)+8*
5977      . (hbcm*p1p2*p1p8-hbcm*p1p8*p2p3-3*hbcm*p1p8*p2p5))+ans2
5978       ans=ccc*ans1
5979       b(13)=ans
5980       ans=ccc*(w8*(32*p2p5*(fmb*hbcm+fmc*hbcm-hbcm2)+8*p1p2*(-fmb*
5981      . hbcm-fmc*hbcm+hbcm2)+4*p2p3*(-6*fmb*fmc+7*fmb*hbcm-3*fmb2+7*
5982      . fmc*hbcm-3*fmc2-4*hbcm2)+8*(-p1p2*p2p3+4*p2p3*p2p5+p2p3s2))+
5983      . w12*(4*p1p3*(6*fmb*fmc-fmb*hbcm+3*fmb2-fmc*hbcm+3*fmc2-2*hbcm2
5984      . )+8*(p1p2*p1p3-p1p3*p2p3-4*p1p3*p2p5))+w5*(8*p2p4*(fmb*hbcm+
5985      . fmc*hbcm-hbcm2)+24*p1p4*(fmb*hbcm+fmc*hbcm-hbcm2)+4*p3p4*(-6*
5986      . fmb*fmc-fmb*hbcm-3*fmb2-fmc*hbcm-3*fmc2+4*hbcm2)+4*p1p3*(6*fmb
5987      . *fmc-fmb*hbcm+3*fmb2-fmc*hbcm+3*fmc2-2*hbcm2)+4*(fmb*fmc*hbcm2
5988      . -8*fmb*fmc2*hbcm-4*fmb2*fmc*hbcm-2*fmc*hbcm*p1p2+2*fmc*hbcm*
5989      . p2p3+10*fmc*hbcm*p2p5+3*fmc*hbcm3+fmc2*hbcm2-4*fmc3*hbcm+2*
5990      . p1p2*p1p3-2*p1p2*p3p4-2*p1p3*p2p3-8*p1p3*p2p5+2*p2p3*p3p4+8*
5991      . p2p5*p3p4))+16*(fb3*fmb*fmc-fb3*fmb*hbcm-fb3*fmc*hbcm+fb3*fmc2
5992      . +fb4*fmb*fmc+3*fb4*fmb2+4*fb4*fmc*hbcm-2*fb4*fmc2-2*fb4*hbcm2+
5993      . 2*fb4*p1p2-2*fb4*p2p3-8*fb4*p2p5))
5994       b(14)=ans
5995       ans3=w12*(16*(p3p5*p1p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p2p3*
5996      . p1p8)*(fmb*hbcm+fmc*hbcm-2*hbcm2)+16*(p5p8*p1p3)*(fmb*hbcm+fmc
5997      . *hbcm-hbcm2)+8*(p2p8*p1p3)*(-fmb*hbcm-fmc*hbcm+3*hbcm2)+4*p1p8
5998      . *(2*fmb*fmc*hbcm2-3*fmb*hbcm3+fmb2*hbcm2-3*fmc*hbcm3+fmc2*
5999      . hbcm2+2*hbcm4)+8*(hbcm2*p1p2*p1p8-2*hbcm2*p1p8*p2p5-2*p1p3*
6000      . p2p3*p5p8+2*p1p3*p2p8*p3p5))+(64*p5p8*(fb3*fmb*hbcm+fb4*fmc*
6001      . hbcm-fb4*hbcm2)+32*p2p8*(-fb3*fmb*hbcm-3*fb4*fmc*hbcm+3*fb4*
6002      . hbcm2)+32*p1p8*(-fb3*fmb*hbcm-fb4*fmc*hbcm+fb4*hbcm2)+64*(-fb4
6003      . *p2p3*p5p8+fb4*p2p8*p3p5))
6004       ans2=w5*(32*(p4p8*p3p5)*(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p5p8*p3p4
6005      . )*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p3p4*p2p8)*(3*fmb*hbcm+3*fmc*
6006      . hbcm-5*hbcm2)+8*(p4p8*p2p3)*(-3*fmb*hbcm-3*fmc*hbcm+4*hbcm2)+
6007      . 16*(p3p5*p1p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p3p4*p1p8)*(fmb*
6008      . hbcm+fmc*hbcm-hbcm2)+8*(p2p3*p1p8)*(fmb*hbcm+fmc*hbcm-2*hbcm2)
6009      . +16*(p5p8*p1p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p4p8*p1p3)*(-fmb*
6010      . hbcm-fmc*hbcm+hbcm2)+8*(p2p8*p1p3)*(-fmb*hbcm-fmc*hbcm+3*hbcm2
6011      . )+24*p5p8*(-fmb*fmc*hbcm2+fmc*hbcm3-fmc2*hbcm2)+4*p4p8*(-6*fmb
6012      . *fmc*hbcm2+7*fmb*hbcm3-3*fmb2*hbcm2+7*fmc*hbcm3-3*fmc2*hbcm2-4
6013      . *hbcm4)+16*p2p8*(fmb*fmc*hbcm2-2*fmc*hbcm3+fmc2*hbcm2)+4*p1p8*
6014      . (4*fmb*fmc*hbcm2-3*fmb*hbcm3+fmb2*hbcm2-5*fmc*hbcm3+3*fmc2*
6015      . hbcm2+2*hbcm4)+8*(2*fmc*hbcm*p2p3*p5p8-2*fmc*hbcm*p2p8*p3p5+
6016      . hbcm2*p1p2*p1p8-hbcm2*p1p2*p4p8+2*hbcm2*p1p4*p2p8-2*hbcm2*p1p8
6017      . *p2p5+2*hbcm2*p2p4*p2p8-2*hbcm2*p2p4*p5p8+4*hbcm2*p2p5*p4p8-2*
6018      . p1p3*p2p3*p5p8+2*p1p3*p2p8*p3p5+2*p2p3*p3p4*p5p8-2*p2p8*p3p4*
6019      . p3p5))+ans3
6020       ans1=w8*(32*(p3p5*p2p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p5p8*
6021      . p2p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p2p3*p1p8)*(-fmb*hbcm-fmc*
6022      . hbcm+hbcm2)+8*(p2p8*p1p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+4*p2p8*(6*
6023      . fmb*fmc*hbcm2-7*fmb*hbcm3+3*fmb2*hbcm2-7*fmc*hbcm3+3*fmc2*
6024      . hbcm2+4*hbcm4)+8*(hbcm2*p1p2*p2p8-hbcm2*p2p3*p2p8-2*hbcm2*p2p5
6025      . *p2p8-2*p2p3*p2p8*p3p5+2*p2p3s2*p5p8))+ans2
6026       ans=ccc*ans1
6027       b(15)=ans
6028       ans3=(96*p3p5*(fb3*fmc-fb3*hbcm+fb4*fmb)+32*p2p3*(-2*fb3*fmc+3*
6029      . fb3*hbcm-2*fb4*fmb)+32*p1p3*(-fb3*fmc+fb3*hbcm-fb4*fmb)+16*(
6030      . fb3*fmb*fmc*hbcm-2*fb3*fmb2*hbcm+4*fb3*fmc*hbcm2-fb3*fmc2*hbcm
6031      . -2*fb3*hbcm*p1p2+6*fb3*hbcm*p2p5-3*fb3*hbcm3-3*fb4*fmb*fmc*
6032      . hbcm+5*fb4*fmb*hbcm2-fb4*fmc*hbcm2+fb4*fmc2*hbcm))
6033       ans2=w5*(24*(p3p5*p3p4)*(-fmb-fmc+hbcm)+8*(p3p4*p2p3)*(2*fmb+4*
6034      . fmc-3*hbcm)+24*(p3p5*p1p3)*(fmb+fmc-hbcm)+8*(p3p4*p1p3)*(fmb+
6035      . fmc-hbcm)+8*(p2p3*p1p3)*(-2*fmb-4*fmc+3*hbcm)+4*p3p4*(-7*fmb*
6036      . hbcm2+4*fmb2*hbcm+fmc*hbcm2-4*fmc2*hbcm+3*hbcm3)+8*p2p4*(fmb*
6037      . hbcm2-fmc*hbcm2+hbcm3)+16*p1p4*(fmb*hbcm2+fmc*hbcm2-hbcm3)+32*
6038      . p3p5*(-fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+8*p2p3*(3*fmb*fmc*
6039      . hbcm-4*fmc*hbcm2+5*fmc2*hbcm)+4*p1p3*(2*fmb*fmc*hbcm+5*fmb*
6040      . hbcm2-2*fmb2*hbcm-fmc*hbcm2+4*fmc2*hbcm-3*hbcm3)+4*(-7*fmb*fmc
6041      . *hbcm3-2*fmb*p1p3s2+3*fmb2*fmc*hbcm2+2*fmc*hbcm2*p1p2-8*fmc*
6042      . hbcm2*p2p5+4*fmc*hbcm4-2*fmc*p1p3s2-fmc2*hbcm3-3*fmc3*hbcm2-2*
6043      . hbcm*p1p2*p1p3+2*hbcm*p1p2*p3p4+6*hbcm*p1p3*p2p5+2*hbcm*p1p3s2
6044      . -4*hbcm*p1p4*p2p3-4*hbcm*p2p3*p2p4+4*hbcm*p2p4*p3p5-10*hbcm*
6045      . p2p5*p3p4))+ans3
6046       ans1=w12*(24*(p3p5*p1p3)*(fmb+fmc-hbcm)+8*(p2p3*p1p3)*(-2*fmb-4
6047      . *fmc+3*hbcm)+4*p1p3*(5*fmb*hbcm2-2*fmb2*hbcm+fmc*hbcm2+2*fmc2*
6048      . hbcm-3*hbcm3)+8*(-fmb*p1p3s2-fmc*p1p3s2-hbcm*p1p2*p1p3+3*hbcm*
6049      . p1p3*p2p5+hbcm*p1p3s2))+w8*(24*(p3p5*p2p3)*(-fmb-fmc+hbcm)+8*(
6050      . p2p3*p1p3)*(fmb+fmc-hbcm)+24*p2p5*(fmb*hbcm2+fmc*hbcm2-hbcm3)+
6051      . 4*p2p3*(fmb*hbcm2-4*fmb2*hbcm-7*fmc*hbcm2+4*fmc2*hbcm+3*hbcm3)
6052      . +8*p1p2*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+8*(2*fmb*p2p3s2+4*fmc*
6053      . p2p3s2-hbcm*p1p2*p2p3+3*hbcm*p2p3*p2p5-3*hbcm*p2p3s2))+ans2
6054       ans=ccc*ans1
6055       b(16)=ans
6056       b(17)=ccc*(w5*(8*(p4p8*p3p6)*(-3*fmc-hbcm)+8*(p3p6*p1p8)*(3*fmc
6057      . +hbcm)+8*(-2*fmc*p1p3*p6p8+4*fmc*p2p8*p3p6+2*fmc*p3p4*p6p8-6*
6058      . fmc*p3p6*p5p8+2*fmc2*hbcm*p6p8-2*hbcm*p1p4*p6p8+5*hbcm*p1p8*
6059      . p4p6+6*hbcm*p2p8*p4p6-5*hbcm*p4p6*p4p8-8*hbcm*p4p6*p5p8))+w12*
6060      . (8*(p3p6*p1p8)*(3*fmc+hbcm)+8*(-2*fmc*p1p3*p6p8+4*fmc*p2p8*
6061      . p3p6-6*fmc*p3p6*p5p8+3*hbcm*p1p8*p4p6))+w8*(8*(p3p6*p2p8)*(fmc
6062      . +hbcm)+16*(p6p8*p2p3)*(fmc-hbcm)+8*p6p8*(-fmb2*hbcm-2*fmc*
6063      . hbcm2+fmc2*hbcm+hbcm3)+24*hbcm*p2p8*p4p6)+4*hbcm*p6p8)
6064       b(18)=ccc*(w8*(32*p4p6*(fmb*hbcm+fmc*hbcm-hbcm2)+8*p3p6*(2*fmb*
6065      . fmc+fmb*hbcm-fmc*hbcm+2*fmc2-hbcm2)+(p3p6*p2p3)*(16*ffmcfmb+8)
6066      . +32*p2p3*p4p6)+w5*(8*p4p6*(-fmb*hbcm+4*fmc*hbcm)+8*p3p6*(-fmb*
6067      . fmc+fmc*hbcm+2*fmc2)+(p3p6*p3p4)*(16*ffmcfmb+8)+(p3p6*p1p3)*(-
6068      . 16*ffmcfmb-8)+32*(-p1p3*p4p6+p3p4*p4p6))+w12*(8*p3p6*(-fmb*fmc
6069      . -fmc2)+(p3p6*p1p3)*(-16*ffmcfmb-8)-32*p1p3*p4p6)+(p3p6*(-64*
6070      . fb4*ffmcfmb-32*fb4-8)-128*fb4*p4p6))
6071       b(19)=ccc*(w8*(24*p5p8*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+4*p2p8*(5*
6072      . fmb*hbcm2+fmc*hbcm2)+8*p1p8*(fmb*hbcm2+fmc*hbcm2-hbcm3)+8*(-
6073      . hbcm*p1p3*p2p8+hbcm*p1p8*p2p3-3*hbcm*p2p3*p5p8+3*hbcm*p2p8*
6074      . p3p5))+w5*(4*p4p8*(-fmb*hbcm2+7*fmc*hbcm2-8*hbcm3)+4*p1p8*(fmb
6075      . *hbcm2-5*fmc*hbcm2+4*hbcm3)+8*(-3*fmc*hbcm2*p2p8+4*fmc*hbcm2*
6076      . p5p8+2*hbcm*p1p3*p2p8+hbcm*p1p3*p4p8-3*hbcm*p1p3*p5p8-2*hbcm*
6077      . p1p8*p2p3-hbcm*p1p8*p3p4+3*hbcm*p1p8*p3p5+4*hbcm*p2p3*p4p8-4*
6078      . hbcm*p2p8*p3p4+5*hbcm*p3p4*p5p8-5*hbcm*p3p5*p4p8))+w12*(4*p1p8
6079      . *(fmb*hbcm2-3*fmc*hbcm2+4*hbcm3)+8*(2*hbcm*p1p3*p2p8-3*hbcm*
6080      . p1p3*p5p8-2*hbcm*p1p8*p2p3+3*hbcm*p1p8*p3p5))+32*(fb3*hbcm*
6081      . p1p8+2*fb3*hbcm*p2p8-3*fb3*hbcm*p5p8))
6082       b(20)=ccc*(w8*(32*p5p8*(-fmb*hbcm-fmc*hbcm+hbcm2)+4*p2p8*(7*fmb
6083      . *hbcm+7*fmc*hbcm-6*hbcm2)+8*p1p8*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(
6084      . p1p8*p2p3+3*p2p3*p2p8-4*p2p3*p5p8))+w5*(4*p4p8*(-fmb*hbcm-fmc*
6085      . hbcm)+4*p1p8*(fmb*hbcm+3*fmc*hbcm)+8*(4*fmc*hbcm*p2p8-5*fmc*
6086      . hbcm*p5p8-p1p3*p1p8-3*p1p3*p2p8+4*p1p3*p5p8+p1p8*p3p4+3*p2p8*
6087      . p3p4-4*p3p4*p5p8))+w12*(4*p1p8*(fmb*hbcm+fmc*hbcm)+8*(-p1p3*
6088      . p1p8-3*p1p3*p2p8+4*p1p3*p5p8))+32*(-fb4*p1p8-3*fb4*p2p8+4*fb4*
6089      . p5p8))
6090       b(21)=ccc*(w5*(8*(p4p8*p3p7)*(3*fmc-4*hbcm)+8*(p3p7*p1p8)*(-fmc
6091      . +2*hbcm)+8*(-2*fmc*p1p3*p7p8+2*fmc*p3p4*p7p8+2*fmc2*hbcm*p7p8-
6092      . 2*hbcm*p1p4*p7p8+3*hbcm*p1p8*p5p7-2*hbcm*p2p8*p4p7+2*hbcm*p4p7
6093      . *p5p8-5*hbcm*p4p8*p5p7))+w12*(8*(p3p7*p1p8)*(-fmc+2*hbcm)+8*(-
6094      . 2*fmc*p1p3*p7p8+3*hbcm*p1p8*p5p7))+w8*(48*(p5p8*p3p7)*(-fmc+
6095      . hbcm)+8*(p3p7*p2p8)*(3*fmc-2*hbcm)+16*(p7p8*p2p3)*(fmc-hbcm)+
6096      . 16*(p3p7*p1p8)*(fmc-hbcm)+8*p7p8*(-fmb2*hbcm-2*fmc*hbcm2+fmc2*
6097      . hbcm+hbcm3)+24*hbcm*p2p8*p5p7)+4*hbcm*p7p8)
6098       b(22)=ccc*(4*w12*p1p3*(fmb-7*fmc)+w8*(4*p2p3*(-fmb+7*fmc-6*hbcm
6099      . )+4*(fmb*hbcm2-4*fmb2*hbcm-7*fmc*hbcm2+4*fmc2*hbcm+3*hbcm3))+
6100      . w5*(4*p3p4*(-fmb+7*fmc+2*hbcm)+4*p1p3*(fmb-7*fmc)+4*(-fmb*fmc*
6101      . hbcm+9*fmc2*hbcm-8*hbcm*p1p4-2*hbcm*p2p4))+16*(fb4*fmb-fb4*fmc
6102      . ))
6103       b(23)=ccc*(w8*(32*p5p7*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*p3p7*(3*fmb
6104      . *fmc-4*fmb*hbcm-6*fmc*hbcm+3*fmc2+3*hbcm2)+(p3p7*p2p3)*(16*
6105      . ffmcfmb-24)-32*p2p3*p5p7)+w5*(8*p3p7*(-4*fmc*hbcm+3*fmc2)+(
6106      . p3p7*p3p4)*(16*ffmcfmb-24)+(p3p7*p1p3)*(-16*ffmcfmb+24)+8*(-5*
6107      . fmc*hbcm*p5p7+4*p1p3*p5p7-4*p3p4*p5p7))+w12*((p3p7*p1p3)*(-16*
6108      . ffmcfmb+24)+32*p1p3*p5p7)+(p3p7*(-64*fb4*ffmcfmb+96*fb4-8)+128
6109      . *fb4*p5p7))
6110       ans=ccc*(w12*(4*p1p3*(-fmb*hbcm-fmc*hbcm-6*hbcm2)+8*(3*p1p3*
6111      . p2p3-4*p1p3*p3p5+p1p3s2))+w8*(32*p3p5*(fmb*hbcm+fmc*hbcm-hbcm2
6112      . )+4*p2p3*(-7*fmb*hbcm-7*fmc*hbcm+8*hbcm2)+8*p1p3*(-fmb*hbcm-
6113      . fmc*hbcm+hbcm2)+4*(-6*fmb*fmc*hbcm2+7*fmb*hbcm3-3*fmb2*hbcm2+7
6114      . *fmc*hbcm3-3*fmc2*hbcm2-4*hbcm4-2*p1p3*p2p3+8*p2p3*p3p5-6*
6115      . p2p3s2))+w5*(4*p3p4*(fmb*hbcm+fmc*hbcm+8*hbcm2)+4*p1p3*(-fmb*
6116      . hbcm-3*fmc*hbcm-6*hbcm2)+4*(fmb*fmc*hbcm2-8*fmc*hbcm*p2p3+10*
6117      . fmc*hbcm*p3p5+8*fmc*hbcm3+fmc2*hbcm2-6*hbcm2*p1p4-2*hbcm2*p2p4
6118      . +6*p1p3*p2p3-2*p1p3*p3p4-8*p1p3*p3p5+2*p1p3s2-6*p2p3*p3p4+8*
6119      . p3p4*p3p5))+16*(-fb3*fmb*hbcm-fb3*fmc*hbcm+4*fb4*fmc*hbcm-6*
6120      . fb4*hbcm2+2*fb4*p1p3+6*fb4*p2p3-8*fb4*p3p5))
6121       b(24)=ans
6122       b(25)=ccc*(w12*(8*(p3p7*p1p3)*(3*fmc-2*hbcm)-24*hbcm*p1p3*p5p7)
6123      . +w5*(8*(p3p7*p3p4)*(-5*fmc+4*hbcm)+8*(p3p7*p1p3)*(3*fmc-2*hbcm
6124      . )+16*p4p7*(fmc*hbcm2-hbcm3)+8*p3p7*(3*fmc*hbcm2-4*fmc2*hbcm)+8
6125      . *(4*fmc*hbcm2*p5p7-3*hbcm*p1p3*p5p7+2*hbcm*p1p4*p3p7+2*hbcm*
6126      . p2p3*p4p7+5*hbcm*p3p4*p5p7-2*hbcm*p3p5*p4p7))+w8*(48*(p3p7*
6127      . p3p5)*(fmc-hbcm)+8*(p3p7*p2p3)*(-5*fmc+4*hbcm)+16*(p3p7*p1p3)*
6128      . (-fmc+hbcm)+24*p5p7*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+8*p3p7*(2*fmb
6129      . *fmc*hbcm-3*fmb*hbcm2+fmb2*hbcm+6*fmc*hbcm2-3*fmc2*hbcm-3*
6130      . hbcm3)-24*hbcm*p2p3*p5p7)+(4*p3p7*(8*fb3*fmc-16*fb3*hbcm-hbcm)
6131      . -96*fb3*hbcm*p5p7))
6132       b(26)=ccc*(w8*(8*(p3p6*p2p3)*(-3*fmc+hbcm)+24*p4p6*(-fmb*hbcm2-
6133      . fmc*hbcm2+hbcm3)+8*p3p6*(-fmb*fmc*hbcm-fmb*hbcm2+fmb2*hbcm+2*
6134      . fmc*hbcm2-2*fmc2*hbcm)-24*hbcm*p2p3*p4p6)+w5*(8*(p3p6*p3p4)*(
6135      . fmc+hbcm)+8*(p3p6*p1p3)*(-fmc-hbcm)+8*p4p6*(fmb*hbcm2-fmc*
6136      . hbcm2+6*hbcm3)+8*p3p6*(fmb*fmc*hbcm+5*fmc*hbcm2-3*fmc2*hbcm)+8
6137      . *(-4*fmc*p2p3*p3p6+6*fmc*p3p5*p3p6-5*hbcm*p1p3*p4p6+2*hbcm*
6138      . p1p4*p3p6-6*hbcm*p2p3*p4p6+5*hbcm*p3p4*p4p6+8*hbcm*p3p5*p4p6))
6139      . +w12*(8*(p3p6*p1p3)*(-fmc-hbcm)+8*p3p6*(fmb*fmc*hbcm+4*fmc*
6140      . hbcm2-3*fmc2*hbcm)+8*(-4*fmc*p2p3*p3p6+6*fmc*p3p5*p3p6-3*hbcm*
6141      . p1p3*p4p6))+(4*p3p6*(-8*fb3*fmc-8*fb3*hbcm-hbcm)-96*fb3*hbcm*
6142      . p4p6))
6143       ans2=(64*p7p8*(fb4*fmc*hbcm-fb4*hbcm2)+64*(fb4*p2p3*p7p8-fb4*
6144      . p2p8*p3p7-fb4*p3p5*p7p8+fb4*p3p7*p5p8))
6145       ans1=8*w12*(-2*hbcm2*p1p3*p7p8+hbcm2*p1p8*p3p7+2*hbcm2*p1p8*
6146      . p5p7+2*p1p3*p2p3*p7p8-2*p1p3*p2p8*p3p7-2*p1p3*p3p5*p7p8+2*p1p3
6147      . *p3p7*p5p8)+w5*(8*(p4p8*p3p7)*(2*fmc*hbcm-3*hbcm2)+8*(-2*fmc*
6148      . hbcm*p2p3*p7p8+2*fmc*hbcm*p2p8*p3p7+2*fmc*hbcm*p3p5*p7p8-2*fmc
6149      . *hbcm*p3p7*p5p8+2*fmc*hbcm3*p7p8-2*hbcm2*p1p3*p7p8-2*hbcm2*
6150      . p1p4*p7p8+hbcm2*p1p8*p3p7+2*hbcm2*p1p8*p5p7-2*hbcm2*p2p8*p4p7+
6151      . 2*hbcm2*p3p4*p7p8+2*hbcm2*p4p7*p5p8-4*hbcm2*p4p8*p5p7+2*p1p3*
6152      . p2p3*p7p8-2*p1p3*p2p8*p3p7-2*p1p3*p3p5*p7p8+2*p1p3*p3p7*p5p8-2
6153      . *p2p3*p3p4*p7p8+2*p2p8*p3p4*p3p7+2*p3p4*p3p5*p7p8-2*p3p4*p3p7*
6154      . p5p8))+w8*(16*(p3p7*p1p8)*(fmc*hbcm-hbcm2)+16*(p5p8*p3p7)*(-
6155      . fmb*hbcm-3*fmc*hbcm+3*hbcm2)+16*(p7p8*p3p5)*(fmb*hbcm+fmc*hbcm
6156      . -hbcm2)+8*(p3p7*p2p8)*(2*fmb*hbcm+4*fmc*hbcm-3*hbcm2)+16*(p7p8
6157      . *p2p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*p7p8*(-2*fmb*fmc*hbcm2+2*
6158      . fmb*hbcm3-fmb2*hbcm2+2*fmc*hbcm3-fmc2*hbcm2-hbcm4-2*p2p3s2)+16
6159      . *(hbcm2*p2p8*p5p7+p2p3*p2p8*p3p7+p2p3*p3p5*p7p8-p2p3*p3p7*p5p8
6160      . ))+ans2
6161       ans=ccc*ans1
6162       b(27)=ans
6163       ans=ccc*(w12*(8*(p3p6*p1p8)*(-2*fmc*hbcm-hbcm2)+16*(-fmc*hbcm*
6164      . p2p8*p3p6+2*fmc*hbcm*p3p6*p5p8-hbcm2*p1p8*p4p6+p1p3*p2p8*p3p6-
6165      . p1p3*p3p4*p6p8-p1p3*p3p6*p5p8+p1p3s2*p6p8))+w5*(16*p6p8*(
6166      . p1p3s2+p3p4s2)+8*(p4p8*p3p6)*(2*fmc*hbcm+hbcm2)+8*(p3p6*p1p8)*
6167      . (-2*fmc*hbcm-hbcm2)+16*(-fmc*hbcm*p1p3*p6p8-2*fmc*hbcm*p2p8*
6168      . p3p6+fmc*hbcm*p3p4*p6p8+3*fmc*hbcm*p3p6*p5p8+hbcm2*p1p4*p6p8-2
6169      . *hbcm2*p1p8*p4p6-2*hbcm2*p2p8*p4p6+2*hbcm2*p4p6*p4p8+3*hbcm2*
6170      . p4p6*p5p8+p1p3*p2p8*p3p6-2*p1p3*p3p4*p6p8-p1p3*p3p6*p5p8-p2p8*
6171      . p3p4*p3p6+p3p4*p3p6*p5p8))+w8*(16*(p5p8*p3p6)*(fmb*hbcm+fmc*
6172      . hbcm-hbcm2)+16*(p6p8*p3p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p3p6*
6173      . p2p8)*(-2*fmb*hbcm-2*fmc*hbcm+hbcm2)+16*(p6p8*p1p3)*(-fmb*hbcm
6174      . -fmc*hbcm+hbcm2)+8*p6p8*(2*fmb*fmc*hbcm2+fmb2*hbcm2+fmc2*hbcm2
6175      . -hbcm4)+16*(hbcm2*p2p3*p6p8-hbcm2*p2p8*p4p6-p1p3*p2p3*p6p8-
6176      . p2p3*p2p8*p3p6+p2p3*p3p4*p6p8+p2p3*p3p6*p5p8))+64*(-fb4*fmc*
6177      . hbcm*p6p8+fb4*p1p3*p6p8+fb4*p2p8*p3p6-fb4*p3p4*p6p8-fb4*p3p6*
6178      . p5p8))
6179       b(28)=ans
6180       ans2=((p3p7*p3p6)*(-128*fb4*ffmcfmb+64*fb4-16)+64*(fb4*fmc*hbcm
6181      . *p6p7-fb4*p1p3*p6p7+fb4*p3p4*p6p7+fb4*p3p6*p5p7-fb4*p3p7*p4p6)
6182      . )
6183       ans1=w8*(16*(p4p6*p3p7)*(fmb*hbcm+3*fmc*hbcm-3*hbcm2)+16*(p5p7*
6184      . p3p6)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p6p7*p3p4)*(-fmb*hbcm-fmc
6185      . *hbcm+hbcm2)+16*(p6p7*p1p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p3p7
6186      . *p3p6)*(2*fmb*fmc-fmb*hbcm-2*fmc*hbcm+2*fmc2)+8*p6p7*(-2*fmb*
6187      . fmc*hbcm2-fmb2*hbcm2-fmc2*hbcm2+hbcm4)+(p3p7*p3p6*p2p3)*(32*
6188      . ffmcfmb-16)+16*(-hbcm2*p2p3*p6p7+p1p3*p2p3*p6p7-p2p3*p3p4*p6p7
6189      . -p2p3*p3p6*p5p7+p2p3*p3p7*p4p6))+w5*(16*p6p7*(-p1p3s2-p3p4s2)+
6190      . 32*(p4p6*p3p7)*(fmc*hbcm-hbcm2)+32*(p3p7*p3p6)*(-fmc*hbcm+fmc2
6191      . )+(p3p7*p3p6*p3p4)*(32*ffmcfmb-16)+(p3p7*p3p6*p1p3)*(-32*
6192      . ffmcfmb+16)+16*(fmc*hbcm*p1p3*p6p7-fmc*hbcm*p3p4*p6p7-fmc*hbcm
6193      . *p3p6*p4p7-3*fmc*hbcm*p3p6*p5p7-hbcm2*p1p4*p6p7-hbcm2*p4p6*
6194      . p4p7-3*hbcm2*p4p6*p5p7+2*p1p3*p3p4*p6p7+p1p3*p3p6*p5p7-p1p3*
6195      . p3p7*p4p6-p3p4*p3p6*p5p7+p3p4*p3p7*p4p6))+w12*((p3p7*p3p6*p1p3
6196      . )*(-32*ffmcfmb+16)+16*(-fmc*hbcm*p3p6*p3p7-2*fmc*hbcm*p3p6*
6197      . p5p7+p1p3*p3p4*p6p7+p1p3*p3p6*p5p7-p1p3*p3p7*p4p6-p1p3s2*p6p7)
6198      . )+ans2
6199       ans=ccc*ans1
6200       b(29)=ans
6201       ans3=(16*(p6p8*p3p7)*(-4*fb3*fmc+4*fb3*hbcm+hbcm)+16*(p7p8*p3p6
6202      . )*(-4*fb3*fmc-hbcm)+64*(fb3*hbcm*p2p8*p6p7-fb3*hbcm*p4p6*p7p8+
6203      . fb3*hbcm*p5p7*p6p8-fb3*hbcm*p5p8*p6p7))
6204       ans2=w12*(16*(p3p7*p3p6*p1p8)*(2*fmc-hbcm)+16*(p6p8*p3p7*p1p3)*
6205      . (-fmc+hbcm)+32*(p7p8*p3p6)*(fmc*hbcm2-fmc2*hbcm)+16*(p6p7*p1p8
6206      . )*(-fmc*hbcm2+hbcm3)+16*(-fmc*p1p3*p3p6*p7p8-2*fmc*p2p3*p3p6*
6207      . p7p8+2*fmc*p2p8*p3p6*p3p7+2*fmc*p3p5*p3p6*p7p8-2*fmc*p3p6*p3p7
6208      . *p5p8+hbcm*p1p3*p2p8*p6p7-hbcm*p1p3*p4p6*p7p8+hbcm*p1p3*p5p7*
6209      . p6p8-hbcm*p1p3*p5p8*p6p7-hbcm*p1p8*p2p3*p6p7+hbcm*p1p8*p3p5*
6210      . p6p7-hbcm*p1p8*p3p6*p5p7+hbcm*p1p8*p3p7*p4p6))+w8*(32*(p5p8*
6211      . p3p7*p3p6)*(fmc-hbcm)+32*(p6p8*p3p7*p3p5)*(-fmc+hbcm)+16*(p6p8
6212      . *p3p7*p2p3)*(fmc-hbcm)+16*(p6p7*p5p8)*(-fmb*hbcm2-fmc*hbcm2+
6213      . hbcm3)+16*(p6p8*p5p7)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+16*(p7p8*
6214      . p4p6)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+16*(p6p8*p3p7)*(-fmb*fmc*
6215      . hbcm+fmb*hbcm2-2*fmc*hbcm2+fmc2*hbcm+hbcm3)+16*(p7p8*p3p6)*(-
6216      . fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+16*(fmb*hbcm2*p2p8*p6p7-fmc*
6217      . p2p3*p3p6*p7p8-hbcm*p2p3*p4p6*p7p8+hbcm*p2p3*p5p7*p6p8-hbcm*
6218      . p2p3*p5p8*p6p7+hbcm*p2p8*p3p5*p6p7+hbcm*p2p8*p3p6*p3p7-hbcm*
6219      . p2p8*p3p6*p5p7+hbcm*p2p8*p3p7*p4p6))+ans3
6220       ans1=w5*(16*(p4p8*p3p7*p3p6)*(-2*fmc+hbcm)+16*(p6p8*p3p7*p3p4)*
6221      . (fmc-hbcm)+16*(p3p7*p3p6*p1p8)*(2*fmc-hbcm)+16*(p6p8*p3p7*p1p3
6222      . )*(-fmc+hbcm)+16*(p6p7*p4p8)*(fmc*hbcm2-hbcm3)+16*(p7p8*p4p6)*
6223      . (-fmc*hbcm2+2*hbcm3)+16*(p6p8*p3p7)*(-fmc*hbcm2+fmc2*hbcm)+16*
6224      . (p7p8*p3p6)*(2*fmc*hbcm2-fmc2*hbcm)+16*(p6p7*p1p8)*(-fmc*hbcm2
6225      . +hbcm3)+16*(-fmc*hbcm2*p2p8*p6p7-fmc*hbcm2*p5p7*p6p8+fmc*hbcm2
6226      . *p5p8*p6p7-fmc*p1p3*p3p6*p7p8-2*fmc*p2p3*p3p6*p7p8+2*fmc*p2p8*
6227      . p3p6*p3p7+fmc*p3p4*p3p6*p7p8+2*fmc*p3p5*p3p6*p7p8-2*fmc*p3p6*
6228      . p3p7*p5p8+hbcm*p1p3*p2p8*p6p7-hbcm*p1p3*p4p6*p7p8+hbcm*p1p3*
6229      . p5p7*p6p8-hbcm*p1p3*p5p8*p6p7-hbcm*p1p8*p2p3*p6p7+hbcm*p1p8*
6230      . p3p5*p6p7-hbcm*p1p8*p3p6*p5p7+hbcm*p1p8*p3p7*p4p6-2*hbcm*p2p3*
6231      . p4p6*p7p8+hbcm*p2p3*p4p8*p6p7-hbcm*p2p8*p3p4*p6p7+2*hbcm*p2p8*
6232      . p3p7*p4p6+hbcm*p3p4*p4p6*p7p8-hbcm*p3p4*p5p7*p6p8+hbcm*p3p4*
6233      . p5p8*p6p7+2*hbcm*p3p5*p4p6*p7p8-hbcm*p3p5*p4p8*p6p7+hbcm*p3p6*
6234      . p4p8*p5p7-hbcm*p3p7*p4p6*p4p8-2*hbcm*p3p7*p4p6*p5p8))+ans2
6235       ans=ccc*ans1
6236       b(30)=ans
6237       ans=ccc*(w8*(16*(p6p7*p4p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p6p8
6238      . *p4p7)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p7p8*p4p6)*(fmb*hbcm+fmc*
6239      . hbcm-hbcm2)+16*(p6p7*p1p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p8*
6240      . p3p7)*(fmb*fmc-fmc*hbcm+fmc2)+16*(p7p8*p3p6)*(fmb*fmc-fmc*hbcm
6241      . +fmc2)+16*(ffmcfmb*p2p3*p3p6*p7p8+ffmcfmb*p2p3*p3p7*p6p8+p1p8*
6242      . p2p3*p6p7+p2p3*p4p6*p7p8+p2p3*p4p7*p6p8-p2p3*p4p8*p6p7))+16*w5
6243      . *(-ffmcfmb*p1p3*p3p6*p7p8-ffmcfmb*p1p3*p3p7*p6p8+ffmcfmb*p3p4*
6244      . p3p6*p7p8+ffmcfmb*p3p4*p3p7*p6p8+fmc*hbcm*p1p8*p6p7+fmc*hbcm*
6245      . p4p6*p7p8+fmc*hbcm*p4p7*p6p8-fmc*hbcm*p4p8*p6p7+fmc2*p3p6*p7p8
6246      . +fmc2*p3p7*p6p8-p1p3*p1p8*p6p7-p1p3*p4p6*p7p8-p1p3*p4p7*p6p8+
6247      . p1p3*p4p8*p6p7+p1p8*p3p4*p6p7+p3p4*p4p6*p7p8+p3p4*p4p7*p6p8-
6248      . p3p4*p4p8*p6p7)+16*w12*(-ffmcfmb*p1p3*p3p6*p7p8-ffmcfmb*p1p3*
6249      . p3p7*p6p8-p1p3*p1p8*p6p7-p1p3*p4p6*p7p8-p1p3*p4p7*p6p8+p1p3*
6250      . p4p8*p6p7)+((p6p8*p3p7)*(-64*fb4*ffmcfmb-8)+(p7p8*p3p6)*(-64*
6251      . fb4*ffmcfmb-8)+64*(-fb4*p1p8*p6p7-fb4*p4p6*p7p8-fb4*p4p7*p6p8+
6252      . fb4*p4p8*p6p7)))
6253       b(31)=ans
6254       b(32)=ccc*(w8*(48*(p4p6*p3p7)*(fmc-hbcm)+16*(p6p7*p2p3)*(fmc-
6255      . hbcm)+8*p6p7*(-fmb2*hbcm-2*fmc*hbcm2+fmc2*hbcm+hbcm3)+16*(p3p7
6256      . *p3p6)*(ffmcfmb*fmc-hbcm))+w5*(16*(p4p6*p3p7)*(2*fmc-3*hbcm)+
6257      . 16*(p3p7*p3p6)*(ffmcfmb*fmc-2*fmc)+16*(-fmc*p1p3*p6p7+fmc*p3p4
6258      . *p6p7-fmc*p3p6*p4p7-3*fmc*p3p6*p5p7+fmc2*hbcm*p6p7-hbcm*p1p4*
6259      . p6p7-hbcm*p4p6*p4p7-4*hbcm*p4p6*p5p7))+w12*(16*(p3p7*p3p6)*(
6260      . ffmcfmb*fmc-2*fmc)+16*(-fmc*p1p3*p6p7-3*fmc*p3p6*p5p7)))
6261       do 200 n=1,32
6262          c(n,1)=c(n,1)-0.1818181818181818d0*b(n)
6263          c(n,2)=c(n,2)-0.05883183899358491d0*b(n)
6264          c(n,3)=c(n,3)-0.2077659977796572d0*b(n)
6265 200   continue
6266       return
6267         end
6268
6269       subroutine amp20_3p1(cc)
6270       implicit double precision(a-h,o-z)
6271       implicit integer (i-n)
6272       dimension b(32)
6273 #include "inclcon.h"
6274 #include "inclppp.h"
6275 #include "inclamp.h"
6276       do 100 n=1,32
6277          b(n)=0.0d0
6278 100   continue
6279       ccc=cc/((2*ffmcfmb*p3p4+2*fmc2)*(2*ffmcfmb*p1p3-fmb2-2*fmc*hbcm
6280      . +fmc2+hbcm2-2*p1p3)*(2*ffmcfmb*p3p4+2*ffmcfmb*p3p5+2*fmc2+2*
6281      . p4p5))
6282       ans=ccc*(w1*(16*p3p6*(-fmc2*hbcm+fmc3)+16*(-fmc*hbcm2*p4p6+fmc*
6283      . p1p3*p4p6-fmc*p1p4*p3p6-fmc*p3p4*p4p6-fmc*p3p4*p5p6+fmc*p3p6*
6284      . p4p5-fmc2*hbcm*p5p6+hbcm*p4p5*p4p6))+w18*(16*(p4p5*p3p6)*(-fmc
6285      . -hbcm)+16*(p4p6*p3p5)*(-fmc-3*hbcm)+16*(p5p6*p3p4)*(-fmc+3*
6286      . hbcm)+16*p4p6*(-3*fmb2*hbcm-fmc*hbcm2)+16*p3p6*(-2*fmb2*fmc-
6287      . fmc2*hbcm+fmc3)+16*(2*fmc*hbcm2*p5p6+fmc*p1p3*p4p6-2*fmc*p1p3*
6288      . p5p6-fmc*p1p4*p3p6+2*fmc*p1p5*p3p6-fmc*p3p4*p4p6-3*fmc*p3p5*
6289      . p3p6-fmc*p3p5*p5p6-3*hbcm*p1p4*p5p6+3*hbcm*p1p5*p4p6-3*hbcm*
6290      . p4p5*p4p6))+w13*(16*(p3p6*p3p5)*(-fmc+hbcm)+32*(p3p6*p3p4)*(
6291      . fmc-hbcm)+16*(p3p6*p1p5)*(fmc-hbcm)+32*(p3p6*p1p4)*(-fmc+hbcm)
6292      . +16*(p5p6*p1p3)*(-fmc+hbcm)+32*(p4p6*p1p3)*(fmc-hbcm)+8*p5p6*(
6293      . fmb2*hbcm+2*fmc*hbcm2-fmc2*hbcm-hbcm3)+16*p4p6*(-fmb2*hbcm-2*
6294      . fmc*hbcm2+fmc2*hbcm+hbcm3)+8*p3p6*(-3*fmb2*fmc+2*fmb2*hbcm-fmc
6295      . *hbcm2-2*fmc2*hbcm+3*fmc3))+(32*p5p6*(fb3*fmc+fb4*fmc)+16*p4p6
6296      . *(2*fb3*fmc+2*fb4*fmc-3*hbcm)+8*p3p6*(4*fb3*fmc+4*fb4*fmc-fmc-
6297      . 3*hbcm)))
6298       b(1)=ans
6299       ans4=(8*p6p7*(-8*fb4*fmc*hbcm+2*fmb*hbcm+2*fmc*hbcm-hbcm2)+(
6300      . p4p6*p3p7)*(128*fb4*ffmcfmb+64*fb4+16)+(p5p7*p3p6)*(64*fb4*
6301      . ffmcfmb+8)+(p4p7*p3p6)*(64*fb4*ffmcfmb+64*fb4+8)+(p3p7*p3p6)*(
6302      . 128*fb4*ffmcfmb+16)+(p6p7*p1p3)*(64*fb4*ffmcfmb+8)+64*(fb4*
6303      . p1p4*p6p7-fb4*p3p4*p6p7+3*fb4*p4p6*p4p7+2*fb4*p4p6*p5p7-fb4*
6304      . p5p6*p5p7))
6305       ans3=w13*(16*(p5p7*p5p6)*(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p5p7*
6306      . p4p6)*(-fmb*hbcm-fmc*hbcm+hbcm2)+48*(p4p7*p4p6)*(-fmb*hbcm-fmc
6307      . *hbcm+hbcm2)+16*(p6p7*p3p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p7
6308      . *p1p4)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p4p6*p3p7)*(-2*fmb*fmc-
6309      . fmb*hbcm+fmc*hbcm-2*fmc2+hbcm2)+16*(p5p7*p3p6)*(-2*fmb*fmc+fmb
6310      . *hbcm+2*fmc*hbcm-2*fmc2)+16*(p4p7*p3p6)*(-2*fmb*fmc+fmc*hbcm-2
6311      . *fmc2+hbcm2)+16*(p6p7*p1p3)*(-fmb*fmc+2*fmc*hbcm-fmc2)+16*p6p7
6312      . *(-ffmcfmb*p1p3s2+fmb*fmc*hbcm2-fmc*hbcm3+fmc2*hbcm2)+(p4p6*
6313      . p3p7*p1p3)*(-32*ffmcfmb-16)+(p4p7*p3p6*p1p3)*(-16*ffmcfmb-16)+
6314      . 16*(p3p7*p3p6)*(-ffmcfmb*fmb*fmc-ffmcfmb*fmc2-fmb*fmc+2*fmc*
6315      . hbcm-fmc2)+16*(-2*ffmcfmb*p1p3*p3p6*p3p7-ffmcfmb*p1p3*p3p6*
6316      . p5p7-p1p3*p1p4*p6p7+p1p3*p3p4*p6p7-3*p1p3*p4p6*p4p7-2*p1p3*
6317      . p4p6*p5p7+p1p3*p5p6*p5p7))+ans4
6318       ans2=w18*(16*(p5p6*p4p7)*(-fmb*hbcm-fmc*hbcm)+48*(p5p7*p4p6)*(-
6319      . fmb*hbcm-fmc*hbcm)+64*(p4p7*p4p6)*(-fmb*hbcm-fmc*hbcm)+16*(
6320      . p6p7*p3p4)*(fmb*hbcm+2*fmc*hbcm)+16*(p6p7*p1p4)*(-fmb*hbcm-fmc
6321      . *hbcm)+16*(p5p6*p3p7)*(-fmb*fmc-fmc2)+16*(p4p6*p3p7)*(-3*fmb*
6322      . fmc-fmb*hbcm-fmc*hbcm-3*fmc2)+32*(p5p7*p3p6)*(-fmb*fmc-fmc2)+
6323      . 16*(p4p7*p3p6)*(-2*fmb*fmc-fmb*hbcm-fmc*hbcm-2*fmc2)+16*(p6p7*
6324      . p1p3)*(-fmb*fmc-fmc2)+16*p6p7*(fmb*fmc*hbcm2+fmc2*hbcm2+p3p4s2
6325      . )+(p4p6*p3p7*p3p5)*(-32*ffmcfmb-16)+(p4p7*p3p6*p3p5)*(-16*
6326      . ffmcfmb-16)+(p4p6*p3p7*p3p4)*(-32*ffmcfmb-16)+(p4p7*p3p6*p3p4)
6327      . *(-16*ffmcfmb-16)+16*(p3p7*p3p6)*(-ffmcfmb*fmb*fmc-ffmcfmb*
6328      . fmc2-2*fmb*fmc-2*fmc2)+16*(-ffmcfmb*p1p3*p3p4*p6p7-ffmcfmb*
6329      . p1p3*p3p5*p6p7-2*ffmcfmb*p3p4*p3p6*p3p7-ffmcfmb*p3p4*p3p6*p5p7
6330      . -2*ffmcfmb*p3p5*p3p6*p3p7-ffmcfmb*p3p5*p3p6*p5p7+fmc*hbcm*p3p5
6331      . *p6p7-p1p4*p3p4*p6p7-p1p4*p3p5*p6p7+p3p4*p3p5*p6p7-3*p3p4*p4p6
6332      . *p4p7-2*p3p4*p4p6*p5p7+p3p4*p5p6*p5p7-3*p3p5*p4p6*p4p7-2*p3p5*
6333      . p4p6*p5p7+p3p5*p5p6*p5p7))+ans3
6334       ans1=w1*(16*p6p7*(fmc2*hbcm2+p3p4s2)+16*(p4p6*p3p7)*(-fmc*hbcm-
6335      . 3*fmc2)+16*(p4p7*p3p6)*(-fmc*hbcm-2*fmc2)+(p4p6*p3p7*p3p4)*(-
6336      . 32*ffmcfmb-16)+(p4p7*p3p6*p3p4)*(-16*ffmcfmb-16)+16*(p3p7*p3p6
6337      . )*(-ffmcfmb*fmc2-2*fmc2)+16*(-ffmcfmb*p1p3*p3p4*p6p7-2*ffmcfmb
6338      . *p3p4*p3p6*p3p7-ffmcfmb*p3p4*p3p6*p5p7-fmc*hbcm*p1p4*p6p7+2*
6339      . fmc*hbcm*p3p4*p6p7-4*fmc*hbcm*p4p6*p4p7-3*fmc*hbcm*p4p6*p5p7+
6340      . fmc*hbcm*p5p6*p5p7-fmc2*p1p3*p6p7-2*fmc2*p3p6*p5p7-p1p4*p3p4*
6341      . p6p7-3*p3p4*p4p6*p4p7-2*p3p4*p4p6*p5p7+p3p4*p5p6*p5p7))+ans2
6342       ans=ccc*ans1
6343       b(2)=ans
6344       ans6=2*hbcm*p4p6*p4p7*p4p8-4*hbcm*p4p6*p4p7*p5p8+7*hbcm*p4p6*
6345      . p4p8*p5p7+hbcm*p4p6*p5p7*p5p8-6*hbcm*p4p7*p5p6*p5p8+5*hbcm*
6346      . p4p8*p5p6*p5p7-hbcm*p5p6*p5p7*p5p8
6347       ans5=2*fmb2*fmc*p3p6*p7p8+2*fmb2*hbcm*p4p6*p7p8-2*fmc*hbcm2*
6348      . p5p6*p7p8-2*fmc*p1p3*p4p7*p6p8+fmc*p1p3*p4p8*p6p7+2*fmc*p1p3*
6349      . p5p6*p7p8+2*fmc*p1p3*p5p7*p6p8-fmc*p1p3*p5p8*p6p7+2*fmc*p1p4*
6350      . p3p7*p6p8-2*fmc*p1p5*p3p6*p7p8-2*fmc*p1p5*p3p7*p6p8-2*fmc*p1p8
6351      . *p3p4*p6p7-2*fmc*p1p8*p3p5*p6p7+2*fmc*p1p8*p3p6*p4p7-2*fmc*
6352      . p1p8*p3p6*p5p7-2*fmc*p1p8*p3p7*p4p6+2*fmc*p1p8*p3p7*p5p6-2*fmc
6353      . *p2p8*p3p4*p6p7-2*fmc*p2p8*p3p5*p6p7+2*fmc*p2p8*p3p6*p4p7-4*
6354      . fmc*p2p8*p3p6*p5p7-2*fmc*p2p8*p3p7*p4p6+4*fmc*p2p8*p3p7*p5p6+2
6355      . *fmc*p3p5*p3p6*p7p8+2*fmc*p3p5*p5p8*p6p7+2*fmc*p3p6*p4p5*p7p8-
6356      . 4*fmc*p3p7*p5p6*p5p8-2*fmc2*hbcm*p1p8*p6p7-2*fmc2*hbcm*p2p8*
6357      . p6p7+hbcm*p1p4*p4p8*p6p7+2*hbcm*p1p4*p5p6*p7p8+4*hbcm*p1p4*
6358      . p5p7*p6p8-hbcm*p1p4*p5p8*p6p7-2*hbcm*p1p5*p4p6*p7p8-4*hbcm*
6359      . p1p5*p4p7*p6p8+2*hbcm*p1p5*p4p8*p6p7-2*hbcm*p1p8*p4p5*p6p7-4*
6360      . hbcm*p1p8*p4p6*p5p7+4*hbcm*p1p8*p4p7*p5p6-2*hbcm*p2p8*p4p5*
6361      . p6p7-6*hbcm*p2p8*p4p6*p5p7+6*hbcm*p2p8*p4p7*p5p6-2*hbcm*p3p4*
6362      . p5p6*p7p8+2*hbcm*p3p5*p4p6*p7p8+hbcm*p3p6*p4p7*p4p8-2*hbcm*
6363      . p3p7*p4p5*p6p8+2*hbcm*p3p7*p4p8*p5p6+2*hbcm*p4p5*p4p6*p7p8-4*
6364      . hbcm*p4p5*p5p7*p6p8+2*hbcm*p4p5*p5p8*p6p7+ans6
6365       ans4=16*ans5
6366       ans3=16*(p5p8*p4p6*p3p7)*(-fmc-hbcm)+16*(p4p8*p4p6*p3p7)*(3*fmc
6367      . +hbcm)+32*(p5p7*p4p8*p3p6)*(2*fmc+hbcm)+16*(p5p8*p4p7*p3p6)*(-
6368      . 4*fmc-hbcm)+32*(p6p7*p4p8*p3p5)*(fmc-hbcm)+16*(p6p7*p5p8*p3p4)
6369      . *(2*fmc+hbcm)+16*(p6p7*p4p8*p3p4)*(2*fmc-hbcm)+16*(p6p7*p5p8)*
6370      . (fmc*hbcm2+2*fmc2*hbcm)+16*(p6p8*p5p7)*(fmb2*hbcm-2*fmc*hbcm2-
6371      . 5*fmc2*hbcm)+16*(p6p7*p4p8)*(-2*fmb2*hbcm-fmc*hbcm2+2*fmc2*
6372      . hbcm)+16*(p6p8*p4p7)*(5*fmb2*hbcm+2*fmc*hbcm2-5*fmc2*hbcm)+16*
6373      . (p6p8*p3p7)*(3*fmb2*fmc-2*fmc2*hbcm-3*fmc3)+16*(p6p8*p5p7*p3p5
6374      . )*(fmb-3*fmc)+16*(p6p8*p4p7*p3p5)*(fmb-3*fmc+4*hbcm)+16*(p6p8*
6375      . p5p7*p3p4)*(fmb-3*fmc-4*hbcm)+16*(p6p8*p4p7*p3p4)*(fmb-3*fmc)+
6376      . 16*(p5p8*p3p7*p3p6)*(-ffmcfmb*fmc-2*fmc)+16*(p4p8*p3p7*p3p6)*(
6377      . ffmcfmb*fmc+2*fmc)+16*(p6p8*p3p7*p3p5)*(ffmcfmb*fmb-ffmcfmb*
6378      . fmc)+16*(p6p8*p3p7*p3p4)*(ffmcfmb*fmb-ffmcfmb*fmc-4*fmc)+ans4
6379       ans2=w18*ans3
6380       ans10=16*(fmc*hbcm2*p1p8*p6p7-fmc*p1p3*p1p8*p6p7-hbcm*p1p4*p1p8
6381      . *p6p7+hbcm*p1p8*p3p4*p6p7-2*hbcm*p1p8*p4p6*p4p7-hbcm*p1p8*p4p6
6382      . *p5p7+hbcm*p1p8*p5p6*p5p7)
6383       ans9=64*(p5p7*p4p8*p3p6)*(fmc-hbcm)+64*(p5p8*p4p7*p3p6)*(-fmc+
6384      . hbcm)+32*(p4p8*p3p7*p3p6)*(fmc-hbcm)+32*(p7p8*p3p6*p3p4)*(-fmc
6385      . +hbcm)+32*(p5p7*p3p6*p2p8)*(-fmc+hbcm)+64*(p4p7*p3p6*p2p8)*(
6386      . fmc-hbcm)+16*(p4p6*p3p7*p1p8)*(-fmc-hbcm)+32*(p5p7*p3p6*p1p8)*
6387      . (-fmc+hbcm)+16*(p4p7*p3p6*p1p8)*(2*fmc-3*hbcm)+32*(p7p8*p3p6*
6388      . p1p4)*(fmc-hbcm)+32*(p6p7*p4p8*p1p3)*(fmc-hbcm)+32*(p7p8*p4p6*
6389      . p1p3)*(-fmc+hbcm)+16*(p6p7*p4p8)*(-fmb2*hbcm-2*fmc*hbcm2+fmc2*
6390      . hbcm+hbcm3)+16*(p7p8*p4p6)*(fmb2*hbcm+2*fmc*hbcm2-fmc2*hbcm-
6391      . hbcm3)+16*(p7p8*p3p6)*(fmb2*fmc+fmc*hbcm2-fmc3)+16*(p6p8*p5p7*
6392      . p1p3)*(fmb+fmc-2*hbcm)+16*(p6p8*p4p7*p1p3)*(fmb-3*fmc+2*hbcm)+
6393      . 16*(p6p8*p5p7)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+16*(p6p8*p4p7)*(-
6394      . fmb*hbcm2+2*fmb2*hbcm+3*fmc*hbcm2-2*fmc2*hbcm-hbcm3)+16*(p6p8*
6395      . p3p7)*(-fmb*fmc*hbcm+fmb2*fmc+fmc2*hbcm-fmc3)+32*(p5p8*p3p7*
6396      . p3p6)*(-ffmcfmb*fmc+fmc)+32*(p3p7*p3p6*p2p8)*(ffmcfmb*fmc-fmc)
6397      . +16*(p3p7*p3p6*p1p8)*(ffmcfmb*fmc-2*fmc)+16*(p6p8*p3p7*p1p3)*(
6398      . ffmcfmb*fmb-ffmcfmb*fmc)+ans10
6399       ans8=w13*ans9
6400       ans11=(8*(p7p8*p3p6)*(fmc+3*hbcm)+16*(p6p7*p5p8)*(-4*fb3*fmc-4*
6401      . fb4*fmc+3*hbcm)+64*(p6p8*p5p7)*(fb3*fmc-fb4*fmb+2*fb4*fmc-hbcm
6402      . )+64*(p6p7*p4p8)*(-fb3*fmc-fb4*fmc)+64*(p6p8*p4p7)*(fb3*fmc-
6403      . fb4*fmb+2*fb4*fmc)+8*(p6p8*p3p7)*(8*fb3*fmc-8*fb4*ffmcfmb*fmb+
6404      . 8*fb4*ffmcfmb*fmc+8*fb4*fmc-fmb-3*hbcm)+16*(p6p7*p2p8)*(4*fb3*
6405      . fmc+4*fb4*fmc-3*hbcm)+8*(p6p7*p1p8)*(8*fb3*fmc+8*fb4*fmc-3*
6406      . hbcm)+40*hbcm*p4p6*p7p8)
6407       ans7=w1*(16*(p4p8*p4p6*p3p7)*(3*fmc+hbcm)+16*(p6p7*p4p8*p3p4)*(
6408      . 2*fmc-hbcm)+16*(p6p7*p4p8)*(-fmc*hbcm2+2*fmc2*hbcm)+16*(p6p8*
6409      . p5p7*p3p4)*(fmb-3*fmc)+16*(p6p8*p4p7*p3p4)*(fmb-3*fmc)+16*(
6410      . p6p8*p3p7)*(fmb*fmc2-2*fmc2*hbcm-3*fmc3)+16*(p6p8*p5p7)*(fmb*
6411      . fmc*hbcm-3*fmc2*hbcm)+16*(p6p8*p4p7)*(fmb*fmc*hbcm+2*fmc*hbcm2
6412      . -5*fmc2*hbcm)+16*(p4p8*p3p7*p3p6)*(ffmcfmb*fmc+2*fmc)+16*(p6p8
6413      . *p3p7*p3p4)*(ffmcfmb*fmb-ffmcfmb*fmc-4*fmc)+16*(-2*fmc*p1p3*
6414      . p4p7*p6p8+fmc*p1p3*p4p8*p6p7+2*fmc*p1p4*p3p7*p6p8-2*fmc*p1p8*
6415      . p3p4*p6p7+2*fmc*p1p8*p3p6*p4p7-2*fmc*p1p8*p3p7*p4p6-2*fmc*p2p8
6416      . *p3p4*p6p7+2*fmc*p2p8*p3p6*p4p7-2*fmc*p2p8*p3p7*p4p6+2*fmc*
6417      . p3p4*p5p8*p6p7-2*fmc*p3p6*p4p7*p5p8+2*fmc*p3p6*p4p8*p5p7+2*fmc
6418      . *p3p7*p4p6*p5p8-2*fmc2*hbcm*p1p8*p6p7-2*fmc2*hbcm*p2p8*p6p7+2*
6419      . fmc2*hbcm*p5p8*p6p7+hbcm*p1p4*p4p8*p6p7+hbcm*p3p6*p4p7*p4p8+2*
6420      . hbcm*p4p5*p5p7*p6p8+2*hbcm*p4p6*p4p7*p4p8+hbcm*p4p6*p4p8*p5p7-
6421      . hbcm*p4p8*p5p6*p5p7))+ans8+ans11
6422       ans1=ans2+ans7
6423       ans=ccc*ans1
6424       b(3)=ans
6425       ans2=w13*(8*(p5p7*p1p3)*(fmb+fmc-2*hbcm)+8*(p4p7*p1p3)*(fmb-5*
6426      . fmc+4*hbcm)+8*p5p7*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+8*p4p7*(-fmb*
6427      . hbcm2+3*fmb2*hbcm+5*fmc*hbcm2-3*fmc2*hbcm-2*hbcm3)+8*p3p7*(-
6428      . fmb*fmc*hbcm+2*fmb2*fmc-fmc*hbcm2+3*fmc2*hbcm-2*fmc3)+8*(p3p7*
6429      . p1p3)*(ffmcfmb*fmb-3*ffmcfmb*fmc+2*fmc))+(16*p5p7*(4*fb3*fmc-2
6430      . *fb4*fmb+6*fb4*fmc-3*hbcm)+32*p4p7*(2*fb3*fmc-fb4*fmb+3*fb4*
6431      . fmc)+4*p3p7*(8*fb3*ffmcfmb*fmc+8*fb3*fmc-8*fb4*ffmcfmb*fmb+16*
6432      . fb4*ffmcfmb*fmc+8*fb4*fmc-fmb+3*fmc-6*hbcm))
6433       ans1=w18*(8*p5p7*(fmb2*hbcm-4*fmc*hbcm2-7*fmc2*hbcm)+8*p4p7*(7*
6434      . fmb2*hbcm+2*fmc*hbcm2-7*fmc2*hbcm)+8*p3p7*(5*fmb2*fmc-2*fmc2*
6435      . hbcm-5*fmc3)+8*(p5p7*p3p5)*(fmb-5*fmc)+8*(p4p7*p3p5)*(fmb-5*
6436      . fmc+6*hbcm)+8*(p5p7*p3p4)*(fmb-5*fmc-6*hbcm)+8*(p4p7*p3p4)*(
6437      . fmb-5*fmc)+8*(p3p7*p3p5)*(ffmcfmb*fmb-3*ffmcfmb*fmc+2*fmc)+8*(
6438      . p3p7*p3p4)*(ffmcfmb*fmb-3*ffmcfmb*fmc-4*fmc)+16*(-fmc*p1p3*
6439      . p4p7+2*fmc*p1p3*p5p7+fmc*p1p4*p3p7-2*fmc*p1p5*p3p7+3*hbcm*p1p4
6440      . *p5p7-3*hbcm*p1p5*p4p7-hbcm*p3p7*p4p5-3*hbcm*p4p5*p5p7))+w1*(8
6441      . *(p5p7*p3p4)*(fmb-5*fmc)+8*(p4p7*p3p4)*(fmb-5*fmc)+8*p3p7*(fmb
6442      . *fmc2-2*fmc2*hbcm-5*fmc3)+8*p5p7*(fmb*fmc*hbcm-5*fmc2*hbcm)+8*
6443      . p4p7*(fmb*fmc*hbcm+2*fmc*hbcm2-7*fmc2*hbcm)+8*(p3p7*p3p4)*(
6444      . ffmcfmb*fmb-3*ffmcfmb*fmc-4*fmc)+16*(-fmc*p1p3*p4p7+fmc*p1p4*
6445      . p3p7+hbcm*p4p5*p5p7))+ans2
6446       ans=ccc*ans1
6447       b(4)=ans
6448       ans4=(4*p7p8*(-16*fb4*fmc*hbcm+3*fmb*hbcm+3*fmc*hbcm-2*hbcm2)+(
6449      . p5p8*p3p7)*(-128*fb4*ffmcfmb-16)+(p3p7*p2p8)*(128*fb4*ffmcfmb+
6450      . 16)+(p3p7*p1p8)*(64*fb4*ffmcfmb+8)+(p7p8*p1p3)*(64*fb4*ffmcfmb
6451      . +8)+64*(fb4*p1p4*p7p8+2*fb4*p1p8*p4p7-fb4*p1p8*p5p7+3*fb4*p2p8
6452      . *p4p7-fb4*p2p8*p5p7-fb4*p3p4*p7p8+fb4*p3p7*p4p8-3*fb4*p4p7*
6453      . p5p8+3*fb4*p4p8*p5p7))
6454       ans3=w13*(48*(p5p7*p4p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+48*(p5p8*
6455      . p4p7)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p4p8*p3p7)*(-fmb*hbcm-fmc*
6456      . hbcm+hbcm2)+16*(p7p8*p3p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p5p7*
6457      . p2p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+48*(p4p7*p2p8)*(-fmb*hbcm-fmc*
6458      . hbcm+hbcm2)+8*(p5p7*p1p8)*(fmb*hbcm+fmc*hbcm-2*hbcm2)+8*(p4p7*
6459      . p1p8)*(-5*fmb*hbcm-5*fmc*hbcm+4*hbcm2)+16*(p7p8*p1p4)*(-fmb*
6460      . hbcm-fmc*hbcm+hbcm2)+32*(p5p8*p3p7)*(fmb*fmc-fmc*hbcm+fmc2)+32
6461      . *(p3p7*p2p8)*(-fmb*fmc+fmc*hbcm-fmc2)+8*(p3p7*p1p8)*(-3*fmb*
6462      . fmc+2*fmc*hbcm-3*fmc2)+16*(p7p8*p1p3)*(-fmb*fmc+2*fmc*hbcm-
6463      . fmc2)+16*p7p8*(-ffmcfmb*p1p3s2+fmb*fmc*hbcm2-fmc*hbcm3+fmc2*
6464      . hbcm2)+16*(-ffmcfmb*p1p3*p1p8*p3p7-2*ffmcfmb*p1p3*p2p8*p3p7+2*
6465      . ffmcfmb*p1p3*p3p7*p5p8-p1p3*p1p4*p7p8-2*p1p3*p1p8*p4p7+p1p3*
6466      . p1p8*p5p7-3*p1p3*p2p8*p4p7+p1p3*p2p8*p5p7+p1p3*p3p4*p7p8-p1p3*
6467      . p3p7*p4p8+3*p1p3*p4p7*p5p8-3*p1p3*p4p8*p5p7))+ans4
6468       ans2=w1*(16*p7p8*(fmc2*hbcm2+p3p4s2)+8*(p5p7*p4p8)*(fmb*hbcm-7*
6469      . fmc*hbcm)+8*(p4p8*p4p7)*(fmb*hbcm+fmc*hbcm)+8*(p4p8*p3p7)*(fmb
6470      . *fmc-2*fmc*hbcm+fmc2)+16*(-ffmcfmb*p1p3*p3p4*p7p8-ffmcfmb*p1p8
6471      . *p3p4*p3p7-2*ffmcfmb*p2p8*p3p4*p3p7+2*ffmcfmb*p3p4*p3p7*p5p8-
6472      . fmc*hbcm*p1p4*p7p8-3*fmc*hbcm*p1p8*p4p7+fmc*hbcm*p1p8*p5p7-4*
6473      . fmc*hbcm*p2p8*p4p7+fmc*hbcm*p2p8*p5p7+2*fmc*hbcm*p3p4*p7p8+4*
6474      . fmc*hbcm*p4p7*p5p8-fmc2*p1p3*p7p8-2*fmc2*p1p8*p3p7-3*fmc2*p2p8
6475      . *p3p7+3*fmc2*p3p7*p5p8-p1p4*p3p4*p7p8-2*p1p8*p3p4*p4p7+p1p8*
6476      . p3p4*p5p7-3*p2p8*p3p4*p4p7+p2p8*p3p4*p5p7-p3p4*p3p7*p4p8+3*
6477      . p3p4*p4p7*p5p8-3*p3p4*p4p8*p5p7))+ans3
6478       ans1=w18*(8*(p5p8*p5p7)*(fmb*hbcm+fmc*hbcm)+40*(p5p7*p4p8)*(-
6479      . fmb*hbcm-fmc*hbcm)+56*(p5p8*p4p7)*(fmb*hbcm+fmc*hbcm)+8*(p4p8*
6480      . p4p7)*(fmb*hbcm+fmc*hbcm)+16*(p7p8*p3p4)*(fmb*hbcm+2*fmc*hbcm)
6481      . +64*(p4p7*p2p8)*(-fmb*hbcm-fmc*hbcm)+48*(p4p7*p1p8)*(-fmb*hbcm
6482      . -fmc*hbcm)+16*(p7p8*p1p4)*(-fmb*hbcm-fmc*hbcm)+40*(p5p8*p3p7)*
6483      . (fmb*fmc+fmc2)+8*(p4p8*p3p7)*(fmb*fmc-2*fmb*hbcm-2*fmc*hbcm+
6484      . fmc2)+48*(p3p7*p2p8)*(-fmb*fmc-fmc2)+32*(p3p7*p1p8)*(-fmb*fmc-
6485      . fmc2)+16*(p7p8*p1p3)*(-fmb*fmc-fmc2)+16*p7p8*(fmb*fmc*hbcm2+
6486      . fmc2*hbcm2+p3p4s2)+16*(-ffmcfmb*p1p3*p3p4*p7p8-ffmcfmb*p1p3*
6487      . p3p5*p7p8-ffmcfmb*p1p8*p3p4*p3p7-ffmcfmb*p1p8*p3p5*p3p7-2*
6488      . ffmcfmb*p2p8*p3p4*p3p7-2*ffmcfmb*p2p8*p3p5*p3p7+2*ffmcfmb*p3p4
6489      . *p3p7*p5p8+2*ffmcfmb*p3p5*p3p7*p5p8+fmc*hbcm*p3p5*p7p8-p1p4*
6490      . p3p4*p7p8-p1p4*p3p5*p7p8-2*p1p8*p3p4*p4p7+p1p8*p3p4*p5p7-2*
6491      . p1p8*p3p5*p4p7+p1p8*p3p5*p5p7-3*p2p8*p3p4*p4p7+p2p8*p3p4*p5p7-
6492      . 3*p2p8*p3p5*p4p7+p2p8*p3p5*p5p7+p3p4*p3p5*p7p8-p3p4*p3p7*p4p8+
6493      . 3*p3p4*p4p7*p5p8-3*p3p4*p4p8*p5p7-p3p5*p3p7*p4p8+3*p3p5*p4p7*
6494      . p5p8-3*p3p5*p4p8*p5p7))+ans2
6495       ans=ccc*ans1
6496       b(5)=ans
6497       ans4=16*(2*ffmcfmb*p1p3*p3p4*p3p7+2*ffmcfmb*p1p3*p3p5*p3p7+2*
6498      . ffmcfmb*p2p3*p3p4*p3p7+2*ffmcfmb*p2p3*p3p5*p3p7-2*ffmcfmb*p3p4
6499      . *p3p5*p3p7+fmc*hbcm*p1p3*p5p7-fmc*hbcm*p1p5*p3p7+2*hbcm2*p1p4*
6500      . p5p7-2*hbcm2*p1p5*p4p7-hbcm2*p3p7*p4p5-2*hbcm2*p4p5*p5p7+2*
6501      . p1p3*p3p4*p4p7-p1p3*p3p4*p5p7+2*p1p3*p3p5*p4p7-p1p3*p3p5*p5p7+
6502      . p1p4*p3p4*p3p7+p1p4*p3p5*p3p7+3*p2p3*p3p4*p4p7-p2p3*p3p4*p5p7+
6503      . 3*p2p3*p3p5*p4p7-p2p3*p3p5*p5p7-3*p3p4*p3p5*p4p7+3*p3p4*p3p5*
6504      . p5p7)
6505       ans3=8*(p5p7*p3p5)*(-fmb*hbcm-fmc*hbcm+2*hbcm2)+56*(p4p7*p3p5)*
6506      . (-fmb*hbcm-fmc*hbcm)+8*(p5p7*p3p4)*(5*fmb*hbcm+5*fmc*hbcm-2*
6507      . hbcm2)+8*(p4p7*p3p4)*(-fmb*hbcm-fmc*hbcm-4*hbcm2)+64*(p4p7*
6508      . p2p3)*(fmb*hbcm+fmc*hbcm)+16*(p3p7*p1p4)*(fmb*hbcm+2*fmc*hbcm)
6509      . +16*(p4p7*p1p3)*(3*fmb*hbcm+2*fmc*hbcm)+8*(p3p7*p3p5)*(-5*fmb*
6510      . fmc-2*fmc*hbcm-5*fmc2)+8*(p3p7*p3p4)*(-fmb*fmc-6*fmc*hbcm-fmc2
6511      . )+48*(p3p7*p2p3)*(fmb*fmc+fmc2)+48*(p3p7*p1p3)*(fmb*fmc+fmc2)+
6512      . 8*p5p7*(4*fmb*fmc*hbcm2+fmb2*hbcm2-2*fmc*hbcm3-fmc2*hbcm2+6*
6513      . p3p4s2)+8*p4p7*(4*fmb*fmc*hbcm2-6*fmb*hbcm3+5*fmb2*hbcm2-4*fmc
6514      . *hbcm3-fmc2*hbcm2-6*p3p5s2)+8*p3p7*(-4*ffmcfmb*p3p5s2-4*fmb*
6515      . fmc*hbcm2+2*fmb*fmc2*hbcm+3*fmb2*fmc*hbcm-6*fmc2*hbcm2-fmc3*
6516      . hbcm)+ans4
6517       ans2=w18*ans3
6518       ans7=((p3p7*p3p5)*(128*fb4*ffmcfmb+16)+(p3p7*p2p3)*(-128*fb4*
6519      . ffmcfmb-16)+(p3p7*p1p3)*(-128*fb4*ffmcfmb-16)+32*p5p7*(fb3*fmb
6520      . *hbcm+2*fb3*fmc*hbcm-fb4*fmc*hbcm-2*fb4*hbcm2-hbcm2)+32*p4p7*(
6521      . fb3*fmb*hbcm+2*fb3*fmc*hbcm-fb4*fmc*hbcm+4*fb4*hbcm2)+4*p3p7*(
6522      . 8*fb3*fmb*fmc+8*fb3*fmc*hbcm+8*fb3*fmc2+24*fb4*fmc*hbcm-3*fmb*
6523      . hbcm-3*fmc*hbcm)+64*(-2*fb4*p1p3*p4p7+fb4*p1p3*p5p7-fb4*p1p4*
6524      . p3p7-3*fb4*p2p3*p4p7+fb4*p2p3*p5p7-3*fb4*p3p4*p5p7+3*fb4*p3p5*
6525      . p4p7))
6526       ans6=w13*(48*(p4p7*p3p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)+48*(p5p7*
6527      . p3p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p5p7*p2p3)*(-fmb*hbcm-fmc*
6528      . hbcm+hbcm2)+48*(p4p7*p2p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p3p7*
6529      . p1p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p5p7*p1p3)*(-fmb*hbcm+3*fmc
6530      . *hbcm+2*hbcm2)+8*(p4p7*p1p3)*(5*fmb*hbcm+5*fmc*hbcm-6*hbcm2)+
6531      . 32*(p3p7*p3p5)*(-fmb*fmc+fmc*hbcm-fmc2)+32*(p3p7*p2p3)*(fmb*
6532      . fmc-fmc*hbcm+fmc2)+8*(p3p7*p1p3)*(5*fmb*fmc-6*fmc*hbcm+5*fmc2)
6533      . +8*p5p7*(4*fmb*fmc*hbcm2+fmb*hbcm3-3*fmc*hbcm3+4*fmc2*hbcm2-
6534      . hbcm4-2*p1p3s2)+8*p4p7*(4*fmb*fmc*hbcm2-5*fmb*hbcm3+2*fmb2*
6535      . hbcm2-5*fmc*hbcm3+2*fmc2*hbcm2+3*hbcm4+4*p1p3s2)+8*p3p7*(4*
6536      . ffmcfmb*p1p3s2-3*fmb*fmc*hbcm2+2*fmb*fmc2*hbcm+fmb2*fmc*hbcm+2
6537      . *fmc*hbcm3-3*fmc2*hbcm2+fmc3*hbcm)+16*(2*ffmcfmb*p1p3*p2p3*
6538      . p3p7-2*ffmcfmb*p1p3*p3p5*p3p7+p1p3*p1p4*p3p7+3*p1p3*p2p3*p4p7-
6539      . p1p3*p2p3*p5p7+3*p1p3*p3p4*p5p7-3*p1p3*p3p5*p4p7))+ans7
6540       ans5=w1*(8*(p5p7*p3p4)*(-fmb*hbcm+7*fmc*hbcm+2*hbcm2)+8*(p4p7*
6541      . p3p4)*(-fmb*hbcm-fmc*hbcm-4*hbcm2)+8*p3p7*(-fmb*fmc2*hbcm-6*
6542      . fmc2*hbcm2-fmc3*hbcm)+8*(p3p7*p3p4)*(-fmb*fmc-6*fmc*hbcm-fmc2)
6543      . +8*p5p7*(-fmb*fmc*hbcm2+2*fmc*hbcm3+fmc2*hbcm2+6*p3p4s2)+8*
6544      . p4p7*(-fmb*fmc*hbcm2-4*fmc*hbcm3-fmc2*hbcm2)+16*(2*ffmcfmb*
6545      . p1p3*p3p4*p3p7+2*ffmcfmb*p2p3*p3p4*p3p7-2*ffmcfmb*p3p4*p3p5*
6546      . p3p7+2*fmc*hbcm*p1p3*p4p7-fmc*hbcm*p1p3*p5p7+2*fmc*hbcm*p1p4*
6547      . p3p7+4*fmc*hbcm*p2p3*p4p7-fmc*hbcm*p2p3*p5p7-4*fmc*hbcm*p3p5*
6548      . p4p7+3*fmc2*p1p3*p3p7+3*fmc2*p2p3*p3p7-3*fmc2*p3p5*p3p7+hbcm2*
6549      . p4p5*p5p7+2*p1p3*p3p4*p4p7-p1p3*p3p4*p5p7+p1p4*p3p4*p3p7+3*
6550      . p2p3*p3p4*p4p7-p2p3*p3p4*p5p7-3*p3p4*p3p5*p4p7))+ans6
6551       ans1=ans2+ans5
6552       ans=ccc*ans1
6553       b(6)=ans
6554       ans4=16*(-2*fmb*hbcm2*p1p8*p4p7+2*fmc*hbcm2*p1p5*p7p8+2*fmc*
6555      . hbcm2*p1p8*p5p7+4*fmc*hbcm2*p2p8*p5p7-fmc*p1p3*p3p4*p7p8-3*fmc
6556      . *p1p3*p3p5*p7p8-3*fmc*p1p3*p3p7*p4p8+3*fmc*p1p3*p3p7*p5p8+4*
6557      . fmc*p1p8*p3p4*p3p7-2*fmc*p2p3*p3p4*p7p8-2*fmc*p2p3*p3p5*p7p8-3
6558      . *fmc*p2p3*p3p7*p4p8+3*fmc*p2p3*p3p7*p5p8+5*fmc*p2p8*p3p4*p3p7-
6559      . fmc*p2p8*p3p5*p3p7-5*fmc*p3p4*p3p7*p5p8-2*fmc*p3p5*p3p7*p5p8-2
6560      . *fmc2*hbcm*p2p3*p7p8-2*hbcm*p1p3*p4p5*p7p8-hbcm*p1p3*p4p7*p4p8
6561      . +3*hbcm*p1p3*p4p7*p5p8-3*hbcm*p1p3*p4p8*p5p7+hbcm*p1p3*p5p7*
6562      . p5p8+hbcm*p1p4*p3p4*p7p8-hbcm*p1p4*p3p5*p7p8-hbcm*p1p4*p3p7*
6563      . p4p8+hbcm*p1p4*p3p7*p5p8+2*hbcm*p1p5*p3p4*p7p8-2*hbcm*p1p5*
6564      . p3p7*p4p8+hbcm*p1p8*p3p4*p4p7+3*hbcm*p1p8*p3p4*p5p7-3*hbcm*
6565      . p1p8*p3p5*p4p7-hbcm*p1p8*p3p5*p5p7+2*hbcm*p1p8*p3p7*p4p5-2*
6566      . hbcm*p2p3*p4p5*p7p8-2*hbcm*p2p3*p4p7*p4p8+4*hbcm*p2p3*p4p7*
6567      . p5p8-5*hbcm*p2p3*p4p8*p5p7+hbcm*p2p3*p5p7*p5p8+2*hbcm*p2p8*
6568      . p3p4*p4p7+5*hbcm*p2p8*p3p4*p5p7-4*hbcm*p2p8*p3p5*p4p7-hbcm*
6569      . p2p8*p3p5*p5p7+2*hbcm*p2p8*p3p7*p4p5-2*hbcm*p3p4*p4p7*p5p8-2*
6570      . hbcm*p3p4*p5p7*p5p8+2*hbcm*p3p5*p4p5*p7p8+2*hbcm*p3p5*p4p7*
6571      . p4p8+2*hbcm*p3p5*p4p8*p5p7-2*hbcm*p3p7*p4p5*p5p8)
6572       ans3=16*(p4p8*p3p7*p3p5)*(fmc+hbcm)+16*(p4p8*p3p7*p3p4)*(-2*fmc
6573      . +hbcm)+16*(p7p8*p3p5*p3p4)*(4*fmc-hbcm)+32*(p7p8*p4p5)*(-fmc*
6574      . hbcm2+hbcm3)+16*(p7p8*p3p5)*(fmc*hbcm2+2*fmc2*hbcm)+8*(p5p8*
6575      . p5p7)*(fmb*hbcm2-fmc*hbcm2-2*hbcm3)+8*(p5p7*p4p8)*(-3*fmb*
6576      . hbcm2-5*fmc*hbcm2+6*hbcm3)+8*(p5p8*p4p7)*(5*fmb*hbcm2+3*fmc*
6577      . hbcm2-6*hbcm3)+8*(p4p8*p4p7)*(fmb*hbcm2-fmc*hbcm2+2*hbcm3)+16*
6578      . (p7p8*p3p4)*(fmb*hbcm2-2*fmb2*hbcm+2*fmc2*hbcm)+16*(p4p7*p2p8)
6579      . *(-3*fmb*hbcm2+fmc*hbcm2)+16*(p7p8*p1p4)*(-fmb*hbcm2+fmc*hbcm2
6580      . )+16*p7p8*(fmb*fmc*hbcm3-2*fmb2*fmc*hbcm2+2*fmc*p3p4s2+2*fmc*
6581      . p3p5s2+fmc2*hbcm3-hbcm*p3p4s2)+8*(p5p8*p3p7)*(3*fmb*fmc*hbcm-4
6582      . *fmc*hbcm2-5*fmc2*hbcm)+8*(p4p8*p3p7)*(fmb*fmc*hbcm-2*fmb*
6583      . hbcm2+4*fmb2*hbcm+6*fmc*hbcm2-7*fmc2*hbcm)+32*(p3p7*p2p8)*(-
6584      . fmb*fmc*hbcm+2*fmc2*hbcm)+16*(p3p7*p1p8)*(-fmb*fmc*hbcm+3*fmc2
6585      . *hbcm)+16*(p7p8*p1p3)*(-fmb*fmc*hbcm-fmc2*hbcm)+ans4
6586       ans2=w18*ans3
6587       ans7=16*(fmc*p1p3*p1p8*p3p7-fmc*p1p3*p2p8*p3p7+fmc*p1p3*p3p7*
6588      . p5p8+fmc*p1p8*p2p3*p3p7-fmc*p1p8*p3p5*p3p7-hbcm*p1p3*p1p4*p7p8
6589      . -2*hbcm*p1p3*p2p8*p4p7+hbcm*p1p3*p2p8*p5p7+2*hbcm*p1p3*p4p7*
6590      . p5p8-2*hbcm*p1p3*p4p8*p5p7+hbcm*p1p4*p1p8*p3p7+2*hbcm*p1p8*
6591      . p2p3*p4p7-hbcm*p1p8*p2p3*p5p7+2*hbcm*p1p8*p3p4*p5p7-2*hbcm*
6592      . p1p8*p3p5*p4p7)
6593       ans6=16*(p4p8*p3p7*p1p3)*(-2*fmc+hbcm)+16*(p7p8*p3p4*p1p3)*(2*
6594      . fmc-hbcm)+32*(p5p7*p4p8)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+32*(p5p8
6595      . *p4p7)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+16*(p4p8*p3p7)*(-fmb*hbcm2+
6596      . fmb2*hbcm+fmc*hbcm2-fmc2*hbcm)+16*(p7p8*p3p4)*(fmb*hbcm2-fmb2*
6597      . hbcm-fmc*hbcm2+fmc2*hbcm)+16*(p5p7*p2p8)*(fmb*hbcm2+fmc*hbcm2-
6598      . hbcm3)+32*(p4p7*p2p8)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+8*(p5p7*
6599      . p1p8)*(fmb*hbcm2+3*fmc*hbcm2)+8*(p4p7*p1p8)*(-3*fmb*hbcm2-fmc*
6600      . hbcm2)+16*(p7p8*p1p4)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+16*p7p8*(
6601      . fmb*fmc*hbcm3-fmb2*fmc*hbcm2-fmc*p1p3s2-fmc2*hbcm3+fmc3*hbcm2)
6602      . +16*(p5p8*p3p7)*(fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+16*(p3p7*
6603      . p2p8)*(-fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+8*(p3p7*p1p8)*(-fmb*
6604      . fmc*hbcm-fmc2*hbcm)+16*(p7p8*p1p3)*(-fmb*fmc*hbcm+fmc2*hbcm)+
6605      . ans7
6606       ans5=w13*ans6
6607       ans8=(8*(p7p8*p1p3)*(8*fb4*fmc-3*hbcm)+4*p7p8*(-16*fb4*fmc*
6608      . hbcm2+3*fmb*hbcm2-5*fmc*hbcm2+6*hbcm3)+8*(p5p8*p3p7)*(16*fb3*
6609      . fmc+8*fb4*fmc-5*hbcm)+64*(p4p8*p3p7)*(fb3*fmc-fb3*hbcm+fb4*fmc
6610      . )+8*(p7p8*p3p5)*(-8*fb3*fmc-8*fb4*fmc+5*hbcm)+64*(p7p8*p3p4)*(
6611      . -fb3*fmc+fb3*hbcm-fb4*fmc)+8*(p3p7*p2p8)*(-16*fb3*fmc-8*fb4*
6612      . fmc+5*hbcm)+8*(p7p8*p2p3)*(8*fb3*fmc+8*fb4*fmc-5*hbcm)+8*(p3p7
6613      . *p1p8)*(-8*fb3*fmc-8*fb4*fmc+3*hbcm)+64*(-fb3*hbcm*p1p4*p7p8-
6614      . fb3*hbcm*p1p8*p4p7+fb3*hbcm*p1p8*p5p7-2*fb3*hbcm*p2p8*p4p7+fb3
6615      . *hbcm*p2p8*p5p7+2*fb3*hbcm*p4p7*p5p8-2*fb3*hbcm*p4p8*p5p7))
6616       ans1=w1*(16*p7p8*(2*fmc*p3p4s2+fmc2*hbcm3-hbcm*p3p4s2)+16*(p4p8
6617      . *p3p7*p3p4)*(-2*fmc+hbcm)+8*(p5p7*p4p8)*(fmb*hbcm2+fmc*hbcm2-2
6618      . *hbcm3)+8*(p4p8*p4p7)*(fmb*hbcm2-fmc*hbcm2+2*hbcm3)+8*(p4p8*
6619      . p3p7)*(fmb*fmc*hbcm+6*fmc*hbcm2-7*fmc2*hbcm)+16*(fmc*hbcm2*
6620      . p1p4*p7p8-fmc*hbcm2*p1p8*p5p7+fmc*hbcm2*p2p8*p4p7-fmc*hbcm2*
6621      . p2p8*p5p7-fmc*hbcm2*p4p7*p5p8-fmc*p1p3*p3p4*p7p8-3*fmc*p1p3*
6622      . p3p7*p4p8+4*fmc*p1p8*p3p4*p3p7-2*fmc*p2p3*p3p4*p7p8-3*fmc*p2p3
6623      . *p3p7*p4p8+5*fmc*p2p8*p3p4*p3p7+2*fmc*p3p4*p3p5*p7p8-5*fmc*
6624      . p3p4*p3p7*p5p8+3*fmc*p3p5*p3p7*p4p8-fmc2*hbcm*p1p3*p7p8+3*fmc2
6625      . *hbcm*p1p8*p3p7-2*fmc2*hbcm*p2p3*p7p8+4*fmc2*hbcm*p2p8*p3p7+2*
6626      . fmc2*hbcm*p3p4*p7p8+2*fmc2*hbcm*p3p5*p7p8-4*fmc2*hbcm*p3p7*
6627      . p5p8-hbcm*p1p3*p4p7*p4p8+hbcm*p1p3*p4p8*p5p7+hbcm*p1p4*p3p4*
6628      . p7p8-hbcm*p1p4*p3p7*p4p8+hbcm*p1p8*p3p4*p4p7-hbcm*p1p8*p3p4*
6629      . p5p7-2*hbcm*p2p3*p4p7*p4p8+hbcm*p2p3*p4p8*p5p7+2*hbcm*p2p8*
6630      . p3p4*p4p7-hbcm*p2p8*p3p4*p5p7-2*hbcm*p3p4*p4p7*p5p8+2*hbcm*
6631      . p3p5*p4p7*p4p8))+ans2+ans5+ans8
6632       ans=ccc*ans1
6633       b(7)=ans
6634       ans4=16*(-ffmcfmb*p1p3*p3p4*p6p8-ffmcfmb*p1p3*p3p5*p6p8+ffmcfmb
6635      . *p1p8*p3p4*p3p6+ffmcfmb*p1p8*p3p5*p3p6+2*ffmcfmb*p2p8*p3p4*
6636      . p3p6+2*ffmcfmb*p2p8*p3p5*p3p6-ffmcfmb*p3p4*p3p6*p5p8-ffmcfmb*
6637      . p3p5*p3p6*p5p8-2*p1p4*p3p4*p6p8-2*p1p4*p3p5*p6p8+p1p5*p3p4*
6638      . p6p8+p1p5*p3p5*p6p8+2*p1p8*p3p4*p4p6-p1p8*p3p4*p5p6+2*p1p8*
6639      . p3p5*p4p6-p1p8*p3p5*p5p6+3*p2p8*p3p4*p4p6-p2p8*p3p4*p5p6+3*
6640      . p2p8*p3p5*p4p6-p2p8*p3p5*p5p6+p3p4*p3p5*p6p8-3*p3p4*p4p6*p4p8-
6641      . 2*p3p4*p4p6*p5p8+p3p4*p5p6*p5p8-3*p3p5*p4p6*p4p8-2*p3p5*p4p6*
6642      . p5p8+p3p5*p5p6*p5p8)
6643       ans3=16*(p6p8*p3p5)*(-fmb2+fmc*hbcm+fmc2)+16*(p5p6*p4p8)*(-fmb*
6644      . hbcm-fmc*hbcm)+48*(p5p8*p4p6)*(-fmb*hbcm-fmc*hbcm)+64*(p4p8*
6645      . p4p6)*(-fmb*hbcm-fmc*hbcm)+16*(p6p8*p4p5)*(fmb*hbcm+fmc*hbcm)+
6646      . 16*(p6p8*p3p4)*(3*fmb*hbcm-fmb2+4*fmc*hbcm+fmc2)+64*(p4p6*p2p8
6647      . )*(fmb*hbcm+fmc*hbcm)+48*(p4p6*p1p8)*(fmb*hbcm+fmc*hbcm)+48*(
6648      . p6p8*p1p4)*(-fmb*hbcm-fmc*hbcm)+32*(p5p8*p3p6)*(-fmb*fmc-fmc2)
6649      . +16*(p4p8*p3p6)*(-2*fmb*fmc-fmb*hbcm-fmc*hbcm-2*fmc2)+48*(p3p6
6650      . *p2p8)*(fmb*fmc+fmc2)+32*(p3p6*p1p8)*(fmb*fmc+fmc2)+32*(p6p8*
6651      . p1p3)*(-fmb*fmc-fmc2)+16*p6p8*(2*fmb*fmc*hbcm2+fmb*fmc2*hbcm+2
6652      . *fmc2*hbcm2+fmc3*hbcm+2*p3p4s2-p3p5s2)+(p4p8*p3p6*p3p5)*(-16*
6653      . ffmcfmb-16)+(p4p8*p3p6*p3p4)*(-16*ffmcfmb-16)+ans4
6654       ans2=w18*ans3
6655       ans8=16*(ffmcfmb*p1p3*p1p8*p3p6+2*ffmcfmb*p1p3*p2p8*p3p6-
6656      . ffmcfmb*p1p3*p3p6*p5p8-2*p1p3*p1p4*p6p8+p1p3*p1p5*p6p8+2*p1p3*
6657      . p1p8*p4p6-p1p3*p1p8*p5p6+3*p1p3*p2p8*p4p6-p1p3*p2p8*p5p6+2*
6658      . p1p3*p3p4*p6p8-p1p3*p3p5*p6p8-3*p1p3*p4p6*p4p8-2*p1p3*p4p6*
6659      . p5p8+p1p3*p5p6*p5p8)
6660       ans7=16*(p5p8*p5p6)*(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p5p8*p4p6)*(-
6661      . fmb*hbcm-fmc*hbcm+hbcm2)+48*(p4p8*p4p6)*(-fmb*hbcm-fmc*hbcm+
6662      . hbcm2)+16*(p6p8*p3p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p6p8*p3p4
6663      . )*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p5p6*p2p8)*(-fmb*hbcm-fmc*hbcm
6664      . +hbcm2)+48*(p4p6*p2p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p5p6*p1p8
6665      . )*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p4p6*p1p8)*(fmb*hbcm+fmc*hbcm
6666      . -hbcm2)+16*(p6p8*p1p5)*(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p6p8*p1p4
6667      . )*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p5p8*p3p6)*(-2*fmb*fmc+fmb*
6668      . hbcm+2*fmc*hbcm-2*fmc2)+16*(p4p8*p3p6)*(-2*fmb*fmc+fmc*hbcm-2*
6669      . fmc2+hbcm2)+16*(p3p6*p2p8)*(3*fmb*fmc-fmb*hbcm-3*fmc*hbcm+3*
6670      . fmc2)+16*(p3p6*p1p8)*(2*fmb*fmc-fmb*hbcm-2*fmc*hbcm+2*fmc2)+16
6671      . *(p6p8*p1p3)*(-2*fmb*fmc+fmb*hbcm-fmb2+3*fmc*hbcm-fmc2)+8*p6p8
6672      . *(-2*ffmcfmb*p1p3s2+4*fmb*fmc*hbcm2+fmb*fmc2*hbcm-fmb*hbcm3-
6673      . fmb2*fmc*hbcm+2*fmb2*hbcm2-fmb3*hbcm-3*fmc*hbcm3+2*fmc2*hbcm2+
6674      . fmc3*hbcm)+(p4p8*p3p6*p1p3)*(-16*ffmcfmb-16)+ans8
6675       ans6=w13*ans7
6676       ans9=(8*p6p8*(8*fb4*fmb2-8*fb4*fmc*hbcm-8*fb4*fmc2+3*fmb*hbcm+3
6677      . *fmc*hbcm-hbcm2)+(p5p8*p3p6)*(64*fb4*ffmcfmb+8)+(p4p8*p3p6)*(
6678      . 64*fb4*ffmcfmb+64*fb4+8)+(p3p6*p2p8)*(-128*fb4*ffmcfmb-16)+(
6679      . p3p6*p1p8)*(-64*fb4*ffmcfmb-8)+(p6p8*p1p3)*(64*fb4*ffmcfmb+8)+
6680      . 64*(2*fb4*p1p4*p6p8-fb4*p1p5*p6p8-2*fb4*p1p8*p4p6+fb4*p1p8*
6681      . p5p6-3*fb4*p2p8*p4p6+fb4*p2p8*p5p6-2*fb4*p3p4*p6p8+fb4*p3p5*
6682      . p6p8+3*fb4*p4p6*p4p8+2*fb4*p4p6*p5p8-fb4*p5p6*p5p8))
6683       ans5=w1*(16*(p4p8*p3p6)*(-fmc*hbcm-2*fmc2)+16*(p6p8*p3p4)*(-
6684      . fmb2+4*fmc*hbcm+fmc2)+16*p6p8*(-fmb2*fmc*hbcm+2*fmc2*hbcm2+
6685      . fmc3*hbcm+2*p3p4s2)+(p4p8*p3p6*p3p4)*(-16*ffmcfmb-16)+16*(-
6686      . ffmcfmb*p1p3*p3p4*p6p8+ffmcfmb*p1p8*p3p4*p3p6+2*ffmcfmb*p2p8*
6687      . p3p4*p3p6-ffmcfmb*p3p4*p3p6*p5p8-3*fmc*hbcm*p1p4*p6p8+fmc*hbcm
6688      . *p1p5*p6p8+3*fmc*hbcm*p1p8*p4p6-fmc*hbcm*p1p8*p5p6+4*fmc*hbcm*
6689      . p2p8*p4p6-fmc*hbcm*p2p8*p5p6-fmc*hbcm*p3p5*p6p8-4*fmc*hbcm*
6690      . p4p6*p4p8-3*fmc*hbcm*p4p6*p5p8+fmc*hbcm*p5p6*p5p8-2*fmc2*p1p3*
6691      . p6p8+2*fmc2*p1p8*p3p6+3*fmc2*p2p8*p3p6-2*fmc2*p3p6*p5p8-2*p1p4
6692      . *p3p4*p6p8+p1p5*p3p4*p6p8+2*p1p8*p3p4*p4p6-p1p8*p3p4*p5p6+3*
6693      . p2p8*p3p4*p4p6-p2p8*p3p4*p5p6-p3p4*p3p5*p6p8-3*p3p4*p4p6*p4p8-
6694      . 2*p3p4*p4p6*p5p8+p3p4*p5p6*p5p8))+ans6+ans9
6695       ans1=ans2+ans5
6696       ans=ccc*ans1
6697       b(8)=ans
6698       ans4=16*(-2*ffmcfmb*p2p3*p3p4*p3p6-2*ffmcfmb*p2p3*p3p5*p3p6+2*
6699      . ffmcfmb*p3p4*p3p5*p3p6-fmc*hbcm*p1p3*p5p6+fmc*hbcm*p1p5*p3p6-2
6700      . *hbcm2*p1p4*p5p6+2*hbcm2*p1p5*p4p6-hbcm2*p3p5*p5p6-2*hbcm2*
6701      . p4p5*p4p6-2*p1p3*p3p4*p4p6+p1p3*p3p4*p5p6-2*p1p3*p3p5*p4p6+
6702      . p1p3*p3p5*p5p6+2*p1p4*p3p4*p3p6+2*p1p4*p3p5*p3p6-p1p5*p3p4*
6703      . p3p6-p1p5*p3p5*p3p6-3*p2p3*p3p4*p4p6+p2p3*p3p4*p5p6-3*p2p3*
6704      . p3p5*p4p6+p2p3*p3p5*p5p6+5*p3p4*p3p5*p4p6-p3p4*p3p5*p5p6)
6705       ans3=16*(p4p5*p3p6)*(-fmb*hbcm-fmc*hbcm-hbcm2)+48*(p4p6*p3p5)*(
6706      . fmb*hbcm+fmc*hbcm)+16*(p5p6*p3p4)*(fmb*hbcm+fmc*hbcm+hbcm2)+32
6707      . *(p4p6*p3p4)*(2*fmb*hbcm+2*fmc*hbcm+hbcm2)+64*(p4p6*p2p3)*(-
6708      . fmb*hbcm-fmc*hbcm)+16*(p3p6*p1p4)*(3*fmb*hbcm+2*fmc*hbcm)+16*(
6709      . p4p6*p1p3)*(-3*fmb*hbcm-2*fmc*hbcm)+16*(p3p6*p3p5)*(2*fmb*fmc+
6710      . fmb2-fmc*hbcm+fmc2)+16*(p3p6*p3p4)*(2*fmb*fmc-2*fmb*hbcm+fmb2-
6711      . fmc*hbcm+fmc2)+48*(p3p6*p2p3)*(-fmb*fmc-fmc2)+16*p5p6*(fmb*fmc
6712      . *hbcm2+fmc*hbcm3+fmc2*hbcm2-p3p5s2)+16*p4p6*(fmb*fmc*hbcm2+3*
6713      . fmb*hbcm3-2*fmb2*hbcm2+2*fmc*hbcm3+fmc2*hbcm2+3*p3p4s2+2*
6714      . p3p5s2)+16*p3p6*(ffmcfmb*p3p4s2+ffmcfmb*p3p5s2+fmb*fmc*hbcm2-
6715      . fmb*fmc2*hbcm-fmb2*fmc*hbcm-p3p4s2+p3p5s2)+ans4
6716       ans2=w18*ans3
6717       ans8=16*(-2*ffmcfmb*p1p3*p2p3*p3p6-fmb*hbcm*p1p5*p3p6+2*p1p3*
6718      . p1p4*p3p6-p1p3*p1p5*p3p6-3*p1p3*p2p3*p4p6+p1p3*p2p3*p5p6+3*
6719      . p1p3*p3p4*p4p6+2*p1p3*p3p5*p4p6-p1p3*p3p5*p5p6)
6720       ans7=16*(p3p6*p1p3)*(fmb2+fmc*hbcm-fmc2)+16*(p5p6*p3p5)*(-fmb*
6721      . hbcm-fmc*hbcm+hbcm2)+32*(p4p6*p3p5)*(fmb*hbcm+fmc*hbcm-hbcm2)+
6722      . 48*(p4p6*p3p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p5p6*p2p3)*(fmb*
6723      . hbcm+fmc*hbcm-hbcm2)+48*(p4p6*p2p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)
6724      . +16*(p3p6*p1p4)*(2*fmb*hbcm+fmc*hbcm-hbcm2)+16*(p5p6*p1p3)*(
6725      . fmb*hbcm+fmc*hbcm-hbcm2)+16*(p4p6*p1p3)*(-2*fmb*hbcm+3*hbcm2)+
6726      . 32*(p3p6*p3p5)*(fmb*fmc-fmc*hbcm+fmc2)+32*(p3p6*p3p4)*(fmb*fmc
6727      . -fmb*hbcm-fmc*hbcm+fmc2)+16*(p3p6*p2p3)*(-3*fmb*fmc+fmb*hbcm+3
6728      . *fmc*hbcm-3*fmc2)+8*p5p6*(2*fmb*fmc*hbcm2-2*fmb*hbcm3+fmb2*
6729      . hbcm2-2*fmc*hbcm3+fmc2*hbcm2+hbcm4+2*p1p3s2)+8*p4p6*(2*fmb*fmc
6730      . *hbcm2+4*fmb*hbcm3-fmb2*hbcm2+3*fmc2*hbcm2-3*hbcm4-4*p1p3s2)+8
6731      . *p3p6*(2*fmb*fmc*hbcm2-fmb*fmc2*hbcm-fmb*hbcm3-fmb2*fmc*hbcm+
6732      . fmb3*hbcm-3*fmc*hbcm3+2*fmc2*hbcm2+fmc3*hbcm)+(p3p6*p3p5*p1p3)
6733      . *(16*ffmcfmb+16)+(p3p6*p3p4*p1p3)*(16*ffmcfmb-16)+ans8
6734       ans6=w13*ans7
6735       ans9=((p3p6*p3p5)*(-64*fb4*ffmcfmb-64*fb4-8)+(p3p6*p3p4)*(-64*
6736      . fb4*ffmcfmb+64*fb4-8)+(p3p6*p2p3)*(128*fb4*ffmcfmb+16)+32*p5p6
6737      . *(fb3*fmc*hbcm-fb4*fmc*hbcm+2*fb4*hbcm2)+32*p4p6*(fb3*fmc*hbcm
6738      . -fb4*fmc*hbcm-4*fb4*hbcm2-hbcm2)+8*p3p6*(4*fb3*fmc*hbcm-8*fb4*
6739      . fmb2-4*fb4*fmc*hbcm+8*fb4*fmc2-3*fmb*hbcm-3*fmc*hbcm-2*hbcm2)+
6740      . 64*(2*fb4*p1p3*p4p6-fb4*p1p3*p5p6-2*fb4*p1p4*p3p6+fb4*p1p5*
6741      . p3p6+3*fb4*p2p3*p4p6-fb4*p2p3*p5p6-3*fb4*p3p4*p4p6-2*fb4*p3p5*
6742      . p4p6+fb4*p3p5*p5p6))
6743       ans5=w1*(16*p4p6*(2*fmc*hbcm3+fmc2*hbcm2+3*p3p4s2)+16*(p3p6*
6744      . p3p5)*(fmc*hbcm+2*fmc2)+32*(p4p6*p3p4)*(2*fmc*hbcm+hbcm2)+16*(
6745      . p3p6*p3p4)*(fmb2-fmc*hbcm+fmc2)+16*p3p6*(ffmcfmb*p3p4s2+fmb2*
6746      . fmc*hbcm-p3p4s2)+(p3p6*p3p5*p3p4)*(16*ffmcfmb+16)+16*(-2*
6747      . ffmcfmb*p2p3*p3p4*p3p6-2*fmc*hbcm*p1p3*p4p6+fmc*hbcm*p1p3*p5p6
6748      . +2*fmc*hbcm*p1p4*p3p6-fmc*hbcm*p1p5*p3p6-4*fmc*hbcm*p2p3*p4p6+
6749      . fmc*hbcm*p2p3*p5p6+3*fmc*hbcm*p3p5*p4p6-fmc*hbcm*p3p5*p5p6+fmc
6750      . *hbcm*p3p6*p4p5-fmc*hbcm3*p5p6-3*fmc2*p2p3*p3p6-hbcm2*p3p4*
6751      . p5p6+hbcm2*p4p5*p4p6-2*p1p3*p3p4*p4p6+p1p3*p3p4*p5p6+2*p1p4*
6752      . p3p4*p3p6-p1p5*p3p4*p3p6-3*p2p3*p3p4*p4p6+p2p3*p3p4*p5p6+2*
6753      . p3p4*p3p5*p4p6-p3p4*p3p5*p5p6))+ans6+ans9
6754       ans1=ans2+ans5
6755       ans=ccc*ans1
6756       b(9)=ans
6757       ans5=16*(-2*fmb*hbcm2*p1p4*p6p8+2*fmb*hbcm2*p1p8*p4p6+2*fmc*
6758      . hbcm2*p1p5*p6p8-2*fmc*hbcm2*p1p8*p5p6-4*fmc*hbcm2*p2p8*p5p6+3*
6759      . fmc*p2p3*p3p6*p4p8-3*fmc*p2p3*p3p6*p5p8-2*hbcm*p1p3*p4p5*p6p8+
6760      . hbcm*p1p3*p4p6*p4p8-3*hbcm*p1p3*p4p6*p5p8+3*hbcm*p1p3*p4p8*
6761      . p5p6-hbcm*p1p3*p5p6*p5p8+hbcm*p1p4*p3p4*p6p8-3*hbcm*p1p4*p3p5*
6762      . p6p8-hbcm*p1p4*p3p6*p4p8+3*hbcm*p1p4*p3p6*p5p8+3*hbcm*p1p5*
6763      . p3p4*p6p8-hbcm*p1p5*p3p5*p6p8-3*hbcm*p1p5*p3p6*p4p8+hbcm*p1p5*
6764      . p3p6*p5p8-hbcm*p1p8*p3p4*p4p6-3*hbcm*p1p8*p3p4*p5p6+3*hbcm*
6765      . p1p8*p3p5*p4p6+hbcm*p1p8*p3p5*p5p6+2*hbcm*p1p8*p3p6*p4p5-4*
6766      . hbcm*p2p3*p4p5*p6p8+2*hbcm*p2p3*p4p6*p4p8-4*hbcm*p2p3*p4p6*
6767      . p5p8+5*hbcm*p2p3*p4p8*p5p6-hbcm*p2p3*p5p6*p5p8-2*hbcm*p2p8*
6768      . p3p4*p4p6-5*hbcm*p2p8*p3p4*p5p6+4*hbcm*p2p8*p3p5*p4p6+hbcm*
6769      . p2p8*p3p5*p5p6+4*hbcm*p2p8*p3p6*p4p5+5*hbcm*p3p4*p4p6*p5p8+5*
6770      . hbcm*p3p4*p5p6*p5p8+4*hbcm*p3p5*p4p5*p6p8-5*hbcm*p3p5*p4p6*
6771      . p4p8-5*hbcm*p3p5*p4p8*p5p6-4*hbcm*p3p6*p4p5*p5p8)
6772       ans4=16*p6p8*(fmb*fmc*hbcm3+fmb*fmc2*hbcm2-fmb*p3p4s2-fmb*
6773      . p3p5s2-2*fmb2*fmc*hbcm2-fmb2*hbcm3+3*fmc*p3p4s2+3*fmc*p3p5s2+2
6774      . *fmc2*hbcm3+fmc3*hbcm2-hbcm*p3p4s2+hbcm*p3p5s2)+16*(p5p8*p3p6)
6775      . *(-fmb*fmc*hbcm+fmc*hbcm2-3*fmc2*hbcm)+16*(p4p8*p3p6)*(-fmb*
6776      . fmc*hbcm-fmb*hbcm2+4*fmb2*hbcm-3*fmc2*hbcm)+16*(p3p6*p2p8)*(2*
6777      . fmb*fmc*hbcm-fmb2*hbcm+3*fmc2*hbcm)+16*(p3p6*p1p8)*(fmb*fmc*
6778      . hbcm-fmb2*hbcm+2*fmc2*hbcm)+16*(p6p8*p1p3)*(-fmb*fmc*hbcm+fmb2
6779      . *hbcm-2*fmc2*hbcm)+ans5
6780       ans3=16*(p5p8*p5p6)*(3*fmc*hbcm2+hbcm3)+16*(p6p8*p2p3)*(fmb2*
6781      . hbcm-5*fmc2*hbcm)+16*(p5p8*p3p6*p3p5)*(fmb-3*fmc-hbcm)+16*(
6782      . p4p8*p3p6*p3p5)*(fmb-7*fmc+2*hbcm)+16*(p5p8*p3p6*p3p4)*(fmb+
6783      . fmc-2*hbcm)+16*(p4p8*p3p6*p3p4)*(fmb-3*fmc+hbcm)+32*(p6p8*p3p5
6784      . *p3p4)*(-fmb+3*fmc)+16*(p3p6*p3p5*p2p8)*(-fmb+8*fmc)+16*(p3p6*
6785      . p3p4*p2p8)*(-fmb+2*fmc)+16*(p6p8*p3p5*p2p3)*(fmb-5*fmc)+16*(
6786      . p6p8*p3p4*p2p3)*(fmb-5*fmc)+16*(p3p6*p3p5*p1p8)*(-fmb+5*fmc)+
6787      . 16*(p3p6*p3p4*p1p8)*(-fmb+fmc)+16*(p6p8*p3p5*p1p3)*(fmb-5*fmc)
6788      . +16*(p6p8*p3p4*p1p3)*(fmb-fmc)+16*(p5p6*p4p8)*(-fmb*hbcm2+2*
6789      . fmc*hbcm2-3*hbcm3)+16*(p5p8*p4p6)*(-2*fmb*hbcm2+fmc*hbcm2+3*
6790      . hbcm3)+16*(p4p8*p4p6)*(-3*fmb*hbcm2-hbcm3)+16*(p6p8*p4p5)*(fmb
6791      . *hbcm2-fmc*hbcm2+2*hbcm3)+16*(p6p8*p3p5)*(-fmb*hbcm2+3*fmc*
6792      . hbcm2+4*fmc2*hbcm)+16*(p6p8*p3p4)*(fmb*hbcm2-4*fmb2*hbcm+fmc*
6793      . hbcm2+4*fmc2*hbcm)+16*(p4p6*p2p8)*(3*fmb*hbcm2-fmc*hbcm2)+ans4
6794       ans2=w18*ans3
6795       ans8=8*p6p8*(2*fmb*fmc*hbcm3+fmb*fmc2*hbcm2+fmb*hbcm4+2*fmb*
6796      . p1p3s2-3*fmb2*fmc*hbcm2-fmb3*hbcm2-fmc*hbcm4-2*fmc*p1p3s2-2*
6797      . fmc2*hbcm3+3*fmc3*hbcm2)+16*(p5p8*p3p6)*(-fmb*fmc*hbcm+fmc2*
6798      . hbcm-hbcm3)+16*(p4p8*p3p6)*(-fmb*fmc*hbcm-fmb*hbcm2+2*fmb2*
6799      . hbcm-fmc*hbcm2-fmc2*hbcm+2*hbcm3)+16*(p3p6*p2p8)*(2*fmb*fmc*
6800      . hbcm-fmb2*hbcm+fmc*hbcm2-fmc2*hbcm)+16*(p3p6*p1p8)*(fmb*fmc*
6801      . hbcm+fmc*hbcm2-fmc2*hbcm)+16*(p6p8*p1p3)*(-fmb*fmc*hbcm-fmb*
6802      . hbcm2+fmc*hbcm2+fmc2*hbcm)+16*(-fmb*hbcm2*p1p8*p5p6-fmc*p1p8*
6803      . p2p3*p3p6-hbcm*p1p3*p1p4*p6p8+hbcm*p1p3*p1p5*p6p8+2*hbcm*p1p3*
6804      . p2p8*p4p6-hbcm*p1p3*p2p8*p5p6-2*hbcm*p1p3*p4p6*p4p8-hbcm*p1p3*
6805      . p4p6*p5p8+hbcm*p1p3*p5p6*p5p8+hbcm*p1p4*p1p8*p3p6-hbcm*p1p5*
6806      . p1p8*p3p6-2*hbcm*p1p8*p2p3*p4p6+hbcm*p1p8*p2p3*p5p6+2*hbcm*
6807      . p1p8*p3p4*p4p6+hbcm*p1p8*p3p5*p4p6-hbcm*p1p8*p3p5*p5p6)
6808       ans7=64*(p4p8*p3p6*p3p5)*(-fmc+hbcm)+64*(p5p8*p3p6*p3p4)*(fmc-
6809      . hbcm)+32*(p3p6*p3p5*p2p8)*(fmc-hbcm)+64*(p3p6*p3p4*p2p8)*(-fmc
6810      . +hbcm)+32*(p5p8*p3p6*p2p3)*(-fmc+hbcm)+64*(p4p8*p3p6*p2p3)*(
6811      . fmc-hbcm)+16*(p3p6*p3p5*p1p8)*(2*fmc-hbcm)+32*(p3p6*p3p4*p1p8)
6812      . *(-fmc+hbcm)+16*(p5p8*p3p6*p1p3)*(fmb-fmc)+16*(p4p8*p3p6*p1p3)
6813      . *(fmb-fmc-hbcm)+16*(p6p8*p3p5*p1p3)*(-fmb-fmc+hbcm)+16*(p6p8*
6814      . p3p4*p1p3)*(-fmb+3*fmc-hbcm)+16*(p3p6*p2p8*p1p3)*(-fmb+2*fmc)+
6815      . 16*(p6p8*p2p3*p1p3)*(fmb-fmc)+16*(p3p6*p1p8*p1p3)*(-fmb+fmc)+
6816      . 16*(p5p8*p5p6)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+16*(p5p8*p4p6)*(-
6817      . fmb*hbcm2-fmc*hbcm2+hbcm3)+32*(p4p8*p4p6)*(-fmb*hbcm2-fmc*
6818      . hbcm2+hbcm3)+32*(p6p8*p3p4)*(fmb*hbcm2-fmb2*hbcm-fmc*hbcm2+
6819      . fmc2*hbcm)+16*(p5p6*p2p8)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+32*(
6820      . p4p6*p2p8)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+16*(p6p8*p2p3)*(-fmb*
6821      . hbcm2+fmb2*hbcm+fmc*hbcm2-fmc2*hbcm)+16*(p4p6*p1p8)*(fmb*hbcm2
6822      . +2*fmc*hbcm2)+16*(p6p8*p1p5)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+16*(
6823      . p6p8*p1p4)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+ans8
6824       ans6=w13*ans7
6825       ans11=16*(-fmc*hbcm2*p1p5*p6p8+fmc*hbcm2*p1p8*p5p6-fmc*hbcm2*
6826      . p2p8*p4p6+fmc*hbcm2*p2p8*p5p6-fmc*hbcm2*p5p6*p5p8+3*fmc*p2p3*
6827      . p3p6*p4p8+2*hbcm*p1p3*p4p5*p6p8+hbcm*p1p3*p4p6*p4p8-hbcm*p1p3*
6828      . p4p8*p5p6+hbcm*p1p4*p3p4*p6p8-hbcm*p1p4*p3p6*p4p8-hbcm*p1p5*
6829      . p3p4*p6p8+hbcm*p1p5*p3p6*p4p8-hbcm*p1p8*p3p4*p4p6+hbcm*p1p8*
6830      . p3p4*p5p6-2*hbcm*p1p8*p3p6*p4p5+2*hbcm*p2p3*p4p5*p6p8+2*hbcm*
6831      . p2p3*p4p6*p4p8-hbcm*p2p3*p4p8*p5p6-2*hbcm*p2p8*p3p4*p4p6+hbcm*
6832      . p2p8*p3p4*p5p6-2*hbcm*p2p8*p3p6*p4p5+hbcm*p3p4*p4p6*p5p8-hbcm*
6833      . p3p4*p5p6*p5p8-2*hbcm*p3p5*p4p5*p6p8-hbcm*p3p5*p4p6*p4p8+hbcm*
6834      . p3p5*p4p8*p5p6+2*hbcm*p3p6*p4p5*p5p8-hbcm3*p4p6*p4p8)
6835       ans10=16*(p4p8*p3p6*p3p5)*(-2*fmc-hbcm)+16*(p5p6*p4p8)*(-fmc*
6836      . hbcm2+hbcm3)+32*(p6p8*p4p5)*(fmc*hbcm2-hbcm3)+16*(p5p8*p3p6*
6837      . p3p4)*(fmb-fmc)+16*(p4p8*p3p6*p3p4)*(fmb-3*fmc+hbcm)+16*(p6p8*
6838      . p3p5*p3p4)*(-fmb+3*fmc+hbcm)+16*(p3p6*p3p4*p2p8)*(-fmb+2*fmc)+
6839      . 16*(p6p8*p3p4*p2p3)*(fmb-5*fmc)+16*(p3p6*p3p4*p1p8)*(-fmb+fmc)
6840      . +16*(p6p8*p3p4*p1p3)*(fmb-fmc)+16*p6p8*(-fmb*fmc*hbcm3-fmb*
6841      . p3p4s2+fmb2*fmc*hbcm2+3*fmc*p3p4s2+2*fmc2*hbcm3+fmc3*hbcm2-
6842      . hbcm*p3p4s2)+16*(p5p8*p3p6)*(fmb*fmc*hbcm-2*fmc2*hbcm)+16*(
6843      . p4p8*p3p6)*(fmb*fmc*hbcm-fmb2*hbcm-3*fmc2*hbcm)+16*(p6p8*p3p5)
6844      . *(-fmb*fmc*hbcm+fmc*hbcm2+3*fmc2*hbcm)+16*(p6p8*p3p4)*(-fmb*
6845      . fmc*hbcm-fmb*hbcm2+fmb2*hbcm+fmc*hbcm2+4*fmc2*hbcm)+16*(p3p6*
6846      . p2p8)*(-fmb*fmc*hbcm+3*fmc2*hbcm)+16*(p6p8*p2p3)*(fmb*fmc*hbcm
6847      . -5*fmc2*hbcm)+16*(p3p6*p1p8)*(-fmb*fmc*hbcm+2*fmc2*hbcm)+16*(
6848      . p6p8*p1p3)*(fmb*fmc*hbcm-2*fmc2*hbcm)+ans11
6849       ans9=w1*ans10
6850       ans12=(64*(p5p8*p3p6)*(fb3*fmc-fb4*fmb+2*fb4*fmc-hbcm)+64*(p4p8
6851      . *p3p6)*(fb3*fmc-fb3*hbcm-fb4*fmb+2*fb4*fmc)+64*(p6p8*p3p5)*(-
6852      . fb3*fmc-fb3*hbcm+fb4*fmb-2*fb4*fmc+hbcm)+64*(p6p8*p3p4)*(-fb3*
6853      . fmc+fb3*hbcm+fb4*fmb-2*fb4*fmc)+8*(p3p6*p2p8)*(-8*fb3*fmc+8*
6854      . fb4*fmb-24*fb4*fmc+7*hbcm)+8*(p6p8*p2p3)*(16*fb3*fmc-8*fb4*fmb
6855      . +24*fb4*fmc-7*hbcm)+32*(p3p6*p1p8)*(-2*fb3*fmc+2*fb4*fmb-4*fb4
6856      . *fmc+hbcm)+32*(p6p8*p1p3)*(2*fb3*fmc-2*fb4*fmb+4*fb4*fmc-hbcm)
6857      . +16*p6p8*(-4*fb3*fmb2*hbcm-4*fb3*fmc*hbcm2+4*fb3*fmc2*hbcm+4*
6858      . fb4*fmb*hbcm2-8*fb4*fmc*hbcm2+fmb*hbcm2-fmc*hbcm2+2*hbcm3)+64*
6859      . (-fb3*hbcm*p1p4*p6p8+fb3*hbcm*p1p5*p6p8+fb3*hbcm*p1p8*p4p6-fb3
6860      . *hbcm*p1p8*p5p6+2*fb3*hbcm*p2p8*p4p6-fb3*hbcm*p2p8*p5p6-2*fb3*
6861      . hbcm*p4p6*p4p8-fb3*hbcm*p4p6*p5p8+fb3*hbcm*p5p6*p5p8))
6862       ans1=ans2+ans6+ans9+ans12
6863       ans=ccc*ans1
6864       b(10)=ans
6865       ans4=16*(p3p7*p3p6)*(2*fmb*fmc*hbcm-5*fmb2*fmc+3*fmc3)+16*(p6p7
6866      . *p1p3)*(fmb*fmc*hbcm+fmc2*hbcm)+16*(p3p7*p3p6*p3p5)*(-ffmcfmb*
6867      . fmb+2*ffmcfmb*fmc)+16*(p3p7*p3p6*p3p4)*(-ffmcfmb*fmb+2*fmc)+16
6868      . *(-2*fmc*hbcm2*p1p5*p6p7-4*fmc*hbcm2*p5p6*p5p7+fmc*p1p3*p3p4*
6869      . p6p7+3*fmc*p1p3*p3p5*p6p7+2*fmc*p1p3*p3p7*p4p6-4*fmc*p1p3*p3p7
6870      . *p5p6-2*fmc*p1p4*p3p6*p3p7+4*fmc*p1p5*p3p6*p3p7+2*fmc*p2p3*
6871      . p3p4*p6p7+2*fmc*p2p3*p3p5*p6p7-2*fmc*p2p3*p3p6*p4p7+4*fmc*p2p3
6872      . *p3p6*p5p7+2*fmc*p2p3*p3p7*p4p6-4*fmc*p2p3*p3p7*p5p6+4*fmc*
6873      . p3p5*p3p7*p5p6+2*fmc2*hbcm*p2p3*p6p7+2*hbcm*p1p3*p4p5*p6p7+4*
6874      . hbcm*p1p3*p4p6*p5p7-4*hbcm*p1p3*p4p7*p5p6-hbcm*p1p4*p3p4*p6p7+
6875      . hbcm*p1p4*p3p5*p6p7-4*hbcm*p1p4*p3p6*p5p7-2*hbcm*p1p4*p3p7*
6876      . p5p6-2*hbcm*p1p5*p3p4*p6p7+4*hbcm*p1p5*p3p6*p4p7+2*hbcm*p1p5*
6877      . p3p7*p4p6+2*hbcm*p2p3*p4p5*p6p7+6*hbcm*p2p3*p4p6*p5p7-6*hbcm*
6878      . p2p3*p4p7*p5p6-2*hbcm*p3p4*p4p6*p4p7-7*hbcm*p3p4*p4p6*p5p7-5*
6879      . hbcm*p3p4*p5p6*p5p7-2*hbcm*p3p5*p4p5*p6p7+4*hbcm*p3p5*p4p6*
6880      . p4p7-hbcm*p3p5*p4p6*p5p7+6*hbcm*p3p5*p4p7*p5p6+hbcm*p3p5*p5p6*
6881      . p5p7+4*hbcm*p3p6*p4p5*p5p7-2*hbcm*p3p7*p4p5*p4p6)
6882       ans3=32*(p4p5*p3p7*p3p6)*(-fmc+hbcm)+16*(p4p6*p3p7*p3p5)*(fmc-
6883      . hbcm)+16*(p4p6*p3p7*p3p4)*(-3*fmc-hbcm)+16*(p6p7*p3p5*p3p4)*(-
6884      . 4*fmc+hbcm)+32*(p6p7*p4p5)*(fmc*hbcm2-hbcm3)+16*(p6p7*p3p5)*(-
6885      . fmc*hbcm2-2*fmc2*hbcm)+16*(p5p7*p3p6*p3p5)*(-fmb+3*fmc)+16*(
6886      . p4p7*p3p6*p3p5)*(-fmb+7*fmc-3*hbcm)+16*(p5p7*p3p6*p3p4)*(-fmb-
6887      . fmc+2*hbcm)+16*(p4p7*p3p6*p3p4)*(-fmb+3*fmc-hbcm)+16*(p5p6*
6888      . p4p7)*(fmb*hbcm2-3*fmc*hbcm2+4*hbcm3)+32*(p5p7*p4p6)*(fmb*
6889      . hbcm2-fmc*hbcm2-2*hbcm3)+16*(p4p7*p4p6)*(3*fmb*hbcm2-fmc*hbcm2
6890      . )+16*(p6p7*p3p4)*(-fmb*hbcm2+2*fmb2*hbcm-2*fmc2*hbcm)+16*(p6p7
6891      . *p1p4)*(fmb*hbcm2-fmc*hbcm2)+16*p6p7*(-fmb*fmc*hbcm3+2*fmb2*
6892      . fmc*hbcm2-2*fmc*p3p4s2-2*fmc*p3p5s2-fmc2*hbcm3+hbcm*p3p4s2)+16
6893      . *(p5p6*p3p7)*(fmb*fmc*hbcm+2*fmc*hbcm2-fmc2*hbcm)+16*(p4p6*
6894      . p3p7)*(2*fmb*fmc*hbcm+fmb*hbcm2-2*fmb2*hbcm-3*fmc*hbcm2)+16*(
6895      . p5p7*p3p6)*(fmb*fmc*hbcm-fmb2*hbcm-2*fmc*hbcm2+4*fmc2*hbcm)+16
6896      . *(p4p7*p3p6)*(fmb*fmc*hbcm+fmb*hbcm2-5*fmb2*hbcm-fmc*hbcm2+4*
6897      . fmc2*hbcm)+ans4
6898       ans2=w18*ans3
6899       ans8=16*(p3p7*p3p6*p1p3)*(-ffmcfmb*fmb+2*fmc)+16*(hbcm*p1p3*
6900      . p1p4*p6p7+2*hbcm*p1p3*p4p6*p4p7+hbcm*p1p3*p4p6*p5p7-hbcm*p1p3*
6901      . p5p6*p5p7)
6902       ans7=64*(p4p7*p3p6*p3p5)*(fmc-hbcm)+64*(p5p7*p3p6*p3p4)*(-fmc+
6903      . hbcm)+32*(p5p7*p3p6*p2p3)*(fmc-hbcm)+64*(p4p7*p3p6*p2p3)*(-fmc
6904      . +hbcm)+32*(p3p7*p3p6*p1p4)*(-fmc+hbcm)+16*(p4p6*p3p7*p1p3)*(3*
6905      . fmc-hbcm)+16*(p6p7*p3p4*p1p3)*(-2*fmc+hbcm)+16*(p5p7*p3p6*p1p3
6906      . )*(-fmb+fmc)+16*(p4p7*p3p6*p1p3)*(-fmb+fmc+hbcm)+16*(p5p7*p5p6
6907      . )*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+16*(p5p7*p4p6)*(fmb*hbcm2+fmc*
6908      . hbcm2-hbcm3)+32*(p4p7*p4p6)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+16*(
6909      . p6p7*p3p4)*(-fmb*hbcm2+fmb2*hbcm+fmc*hbcm2-fmc2*hbcm)+16*(p6p7
6910      . *p1p4)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+16*p6p7*(-fmb*fmc*hbcm3+
6911      . fmb2*fmc*hbcm2+fmc*p1p3s2+fmc2*hbcm3-fmc3*hbcm2)+16*(p4p6*p3p7
6912      . )*(fmb*fmc*hbcm+fmb*hbcm2-fmb2*hbcm-2*fmc*hbcm2+2*fmc2*hbcm)+
6913      . 16*(p5p7*p3p6)*(fmb*fmc*hbcm-fmc2*hbcm+hbcm3)+16*(p4p7*p3p6)*(
6914      . fmb*fmc*hbcm+fmb*hbcm2-2*fmb2*hbcm+fmc*hbcm2+fmc2*hbcm-2*hbcm3
6915      . )+16*(p3p7*p3p6)*(2*fmb*fmc*hbcm-2*fmb2*fmc-fmc*hbcm2-fmc2*
6916      . hbcm+2*fmc3)+16*(p6p7*p1p3)*(fmb*fmc*hbcm-fmc2*hbcm)+32*(p3p7*
6917      . p3p6*p3p5)*(ffmcfmb*fmc-fmc)+32*(p3p7*p3p6*p2p3)*(-ffmcfmb*fmc
6918      . +fmc)+ans8
6919       ans6=w13*ans7
6920       ans9=(8*(p6p7*p1p3)*(-8*fb4*fmc+3*hbcm)+8*p6p7*(8*fb4*fmc*hbcm2
6921      . -2*fmb*hbcm2+2*fmc*hbcm2-3*hbcm3)+8*(p4p6*p3p7)*(8*fb3*fmc+8*
6922      . fb3*hbcm-5*hbcm)+64*(p5p7*p3p6)*(-fb3*fmc+fb4*fmb-2*fb4*fmc+
6923      . hbcm)+64*(p4p7*p3p6)*(-fb3*fmc+fb3*hbcm+fb4*fmb-2*fb4*fmc)+16*
6924      . (p6p7*p3p5)*(4*fb3*fmc+4*fb4*fmc-3*hbcm)+64*(p6p7*p3p4)*(fb3*
6925      . fmc-fb3*hbcm+fb4*fmc)+16*(p6p7*p2p3)*(-4*fb3*fmc-4*fb4*fmc+3*
6926      . hbcm)+8*(p3p7*p3p6)*(-8*fb3*ffmcfmb*fmc+8*fb3*fmc+8*fb4*
6927      . ffmcfmb*fmb-8*fb4*ffmcfmb*fmc-8*fb4*fmc+fmb-fmc)+64*(fb3*hbcm*
6928      . p1p4*p6p7+2*fb3*hbcm*p4p6*p4p7+fb3*hbcm*p4p6*p5p7-fb3*hbcm*
6929      . p5p6*p5p7))
6930       ans5=w1*(16*p6p7*(-2*fmc*p3p4s2-fmc2*hbcm3+hbcm*p3p4s2)+16*(
6931      . p4p6*p3p7*p3p4)*(-3*fmc-hbcm)+16*(p5p7*p3p6*p3p4)*(-fmb+fmc)+
6932      . 16*(p4p7*p3p6*p3p4)*(-fmb+3*fmc-hbcm)+16*(p3p7*p3p6)*(-fmb*
6933      . fmc2+3*fmc3)+16*(p5p7*p3p6)*(-fmb*fmc*hbcm+2*fmc2*hbcm)+16*(
6934      . p4p7*p3p6)*(-fmb*fmc*hbcm-fmc*hbcm2+4*fmc2*hbcm)+16*(p3p7*p3p6
6935      . *p3p4)*(-ffmcfmb*fmb+2*fmc)+16*(-fmc*hbcm2*p1p4*p6p7-3*fmc*
6936      . hbcm2*p3p7*p4p6-fmc*hbcm2*p4p6*p4p7+fmc*hbcm2*p5p6*p5p7+fmc*
6937      . p1p3*p3p4*p6p7+2*fmc*p1p3*p3p7*p4p6-2*fmc*p1p4*p3p6*p3p7+2*fmc
6938      . *p2p3*p3p4*p6p7-2*fmc*p2p3*p3p6*p4p7+2*fmc*p2p3*p3p7*p4p6-2*
6939      . fmc*p3p4*p3p5*p6p7+2*fmc*p3p5*p3p6*p4p7-2*fmc*p3p5*p3p7*p4p6+
6940      . fmc2*hbcm*p1p3*p6p7+2*fmc2*hbcm*p2p3*p6p7-2*fmc2*hbcm*p3p4*
6941      . p6p7-2*fmc2*hbcm*p3p5*p6p7-hbcm*p1p4*p3p4*p6p7-2*hbcm*p3p4*
6942      . p4p6*p4p7-hbcm*p3p4*p4p6*p5p7+hbcm*p3p4*p5p6*p5p7-2*hbcm*p3p6*
6943      . p4p5*p5p7))+ans6+ans9
6944       ans1=ans2+ans5
6945       ans=ccc*ans1
6946       b(11)=ans
6947       ans8=2*p1p5*p3p4*p3p6*p7p8-2*p1p5*p3p4*p3p7*p6p8+2*p1p5*p3p5*
6948      . p3p6*p7p8-2*p1p5*p3p5*p3p7*p6p8-2*p1p8*p3p4*p3p5*p6p7+2*p1p8*
6949      . p3p4*p3p6*p4p7-2*p1p8*p3p4*p3p6*p5p7-2*p1p8*p3p4*p3p7*p4p6+2*
6950      . p1p8*p3p4*p3p7*p5p6+2*p1p8*p3p5*p3p6*p4p7-2*p1p8*p3p5*p3p6*
6951      . p5p7-2*p1p8*p3p5*p3p7*p4p6+2*p1p8*p3p5*p3p7*p5p6+4*p2p3*p3p4*
6952      . p4p6*p7p8-4*p2p3*p3p4*p4p7*p6p8+2*p2p3*p3p4*p4p8*p6p7-2*p2p3*
6953      . p3p4*p5p6*p7p8+2*p2p3*p3p4*p5p7*p6p8+4*p2p3*p3p5*p4p6*p7p8-4*
6954      . p2p3*p3p5*p4p7*p6p8+2*p2p3*p3p5*p4p8*p6p7-2*p2p3*p3p5*p5p6*
6955      . p7p8+2*p2p3*p3p5*p5p7*p6p8-6*p2p8*p3p4*p3p7*p4p6+2*p2p8*p3p4*
6956      . p3p7*p5p6-6*p2p8*p3p5*p3p7*p4p6+2*p2p8*p3p5*p3p7*p5p6-2*p3p4*
6957      . p3p5*p3p6*p7p8-6*p3p4*p3p5*p4p6*p7p8+4*p3p4*p3p5*p4p7*p6p8-2*
6958      . p3p4*p3p5*p4p8*p6p7+2*p3p4*p3p5*p5p6*p7p8-4*p3p4*p3p5*p5p7*
6959      . p6p8+2*p3p4*p3p5*p5p8*p6p7+4*p3p4*p3p6*p3p7*p4p8-4*p3p4*p3p6*
6960      . p4p7*p5p8+4*p3p4*p3p6*p4p8*p5p7+4*p3p4*p3p7*p4p6*p4p8+2*p3p4*
6961      . p3p7*p4p6*p5p8-2*p3p4*p3p7*p5p6*p5p8+4*p3p5*p3p6*p3p7*p4p8-4*
6962      . p3p5*p3p6*p4p7*p5p8+4*p3p5*p3p6*p4p8*p5p7+4*p3p5*p3p7*p4p6*
6963      . p4p8+2*p3p5*p3p7*p4p6*p5p8-2*p3p5*p3p7*p5p6*p5p8
6964       ans7=2*ffmcfmb*p2p3*p3p4*p3p6*p7p8-2*ffmcfmb*p2p3*p3p4*p3p7*
6965      . p6p8+2*ffmcfmb*p2p3*p3p5*p3p6*p7p8-2*ffmcfmb*p2p3*p3p5*p3p7*
6966      . p6p8-4*ffmcfmb*p2p8*p3p4*p3p6*p3p7-4*ffmcfmb*p2p8*p3p5*p3p6*
6967      . p3p7-2*ffmcfmb*p3p4*p3p6*p3p7*p5p8-2*ffmcfmb*p3p5*p3p6*p3p7*
6968      . p5p8-fmb*hbcm*p3p6*p5p7*p5p8+fmc*hbcm*p1p3*p5p8*p6p7+2*fmc*
6969      . hbcm*p3p7*p5p6*p5p8-hbcm2*p1p4*p4p8*p6p7+2*hbcm2*p1p4*p5p6*
6970      . p7p8-2*hbcm2*p1p4*p5p7*p6p8+hbcm2*p1p4*p5p8*p6p7-2*hbcm2*p1p5*
6971      . p4p6*p7p8+2*hbcm2*p1p5*p4p7*p6p8-2*hbcm2*p1p5*p4p8*p6p7+2*
6972      . hbcm2*p1p8*p4p5*p6p7+2*hbcm2*p1p8*p4p6*p5p7-2*hbcm2*p1p8*p4p7*
6973      . p5p6-hbcm2*p3p4*p4p8*p6p7+2*hbcm2*p3p5*p5p6*p7p8+2*hbcm2*p4p5*
6974      . p4p6*p7p8+2*hbcm2*p4p5*p5p7*p6p8-2*hbcm2*p4p5*p5p8*p6p7-hbcm2*
6975      . p4p6*p4p7*p4p8+3*hbcm2*p4p6*p4p7*p5p8-4*hbcm2*p4p6*p4p8*p5p7+4
6976      . *hbcm2*p4p7*p5p6*p5p8-3*hbcm2*p4p8*p5p6*p5p7+hbcm2*p5p6*p5p7*
6977      . p5p8+2*p1p3*p3p4*p4p6*p7p8-2*p1p3*p3p4*p4p7*p6p8+2*p1p3*p3p4*
6978      . p4p8*p6p7-2*p1p3*p3p4*p5p6*p7p8+2*p1p3*p3p4*p5p7*p6p8+2*p1p3*
6979      . p3p5*p4p6*p7p8-2*p1p3*p3p5*p4p7*p6p8+2*p1p3*p3p5*p4p8*p6p7-2*
6980      . p1p3*p3p5*p5p6*p7p8+2*p1p3*p3p5*p5p7*p6p8-2*p1p4*p3p4*p3p6*
6981      . p7p8+2*p1p4*p3p4*p3p7*p6p8-2*p1p4*p3p5*p3p6*p7p8+2*p1p4*p3p5*
6982      . p3p7*p6p8+ans8
6983       ans6=16*ans7
6984       ans5=16*(p6p8*p4p7)*(-2*fmb*fmc*hbcm2+4*fmb*hbcm3-3*fmb2*hbcm2+
6985      . 2*fmc*hbcm3+fmc2*hbcm2+4*p3p5s2)+32*(p7p8*p4p6)*(-fmb*fmc*
6986      . hbcm2-2*fmb*hbcm3+fmb2*hbcm2-fmc*hbcm3-fmc2*hbcm2-2*p3p4s2-
6987      . p3p5s2)+32*(p7p8*p3p6)*(-fmb*fmc*hbcm2+fmb*fmc2*hbcm-p3p5s2)+
6988      . 32*(p6p7*p1p8)*(-fmb*fmc*hbcm2-p3p4s2)+16*(p6p8*p3p7)*(2*
6989      . ffmcfmb*p3p5s2-2*fmb*fmc*hbcm2-2*fmb*fmc2*hbcm-fmb2*fmc*hbcm-
6990      . fmc3*hbcm-4*p3p4s2+2*p3p5s2)+(p6p8*p3p7*p3p5*p3p4)*(32*ffmcfmb
6991      . -32)+ans6
6992       ans4=32*(p4p7*p3p6*p1p8)*(2*fmb*hbcm+fmc*hbcm)+32*(p6p7*p3p4*
6993      . p1p8)*(-fmb*hbcm-fmc*hbcm)+32*(p6p8*p3p7*p1p4)*(2*fmb*hbcm+fmc
6994      . *hbcm)+32*(p7p8*p3p6*p1p4)*(-2*fmb*hbcm-fmc*hbcm)+16*(p6p7*
6995      . p4p8*p1p3)*(2*fmb*hbcm+fmc*hbcm)+32*(p6p8*p4p7*p1p3)*(-2*fmb*
6996      . hbcm-fmc*hbcm)+32*(p7p8*p4p6*p1p3)*(2*fmb*hbcm+fmc*hbcm)+16*(
6997      . p5p8*p3p7*p3p6)*(-fmb*fmc+2*fmc*hbcm-fmc2)+16*(p4p8*p3p7*p3p6)
6998      . *(fmb*fmc+4*fmb*hbcm+2*fmc*hbcm+fmc2)+16*(p6p8*p3p7*p3p5)*(3*
6999      . fmb*fmc+2*fmb2+fmc2)+32*(p7p8*p3p6*p3p5)*(-fmb*fmc-fmb2)+16*(
7000      . p6p8*p3p7*p3p4)*(fmb*fmc-6*fmb*hbcm+2*fmb2-4*fmc*hbcm-fmc2)+32
7001      . *(p7p8*p3p6*p3p4)*(-fmb*fmc+fmb*hbcm-fmb2)+96*(p3p7*p3p6*p2p8)
7002      . *(-fmb*fmc-fmc2)+64*(p6p8*p3p7*p2p3)*(-fmb*fmc-fmc2)+64*(p7p8*
7003      . p3p6*p2p3)*(fmb*fmc+fmc2)+16*(p6p7*p5p8)*(2*fmb*fmc*hbcm2-fmc*
7004      . hbcm3+2*p3p4s2)+16*(p6p8*p5p7)*(-2*fmb*fmc*hbcm2-fmb2*hbcm2+
7005      . fmc2*hbcm2-4*p3p4s2)+32*(p7p8*p5p6)*(-fmb*fmc*hbcm2-fmc2*hbcm2
7006      . +p3p5s2)+16*(p6p7*p4p8)*(2*fmb*fmc*hbcm2-2*fmb*hbcm3+2*fmb2*
7007      . hbcm2-fmc*hbcm3-2*p3p5s2)+ans5
7008       ans3=32*(p5p6*p4p8*p3p7)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p5p8*
7009      . p4p6*p3p7)*(4*fmb*hbcm+4*fmc*hbcm+hbcm2)+16*(p4p8*p4p6*p3p7)*(
7010      . 6*fmb*hbcm+4*fmc*hbcm-hbcm2)+32*(p6p8*p4p5*p3p7)*(-fmb*hbcm-
7011      . fmc*hbcm+hbcm2)+16*(p5p7*p4p8*p3p6)*(3*fmb*hbcm+2*fmc*hbcm-2*
7012      . hbcm2)+16*(p5p8*p4p7*p3p6)*(-5*fmb*hbcm-2*fmc*hbcm+hbcm2)+16*(
7013      . p4p8*p4p7*p3p6)*(-fmb*hbcm-hbcm2)+32*(p7p8*p4p5*p3p6)*(fmb*
7014      . hbcm+hbcm2)+16*(p6p8*p5p7*p3p5)*(fmb*hbcm+fmc*hbcm-2*hbcm2)+32
7015      . *(p6p7*p4p8*p3p5)*(-fmb*hbcm-fmc*hbcm)+80*(p6p8*p4p7*p3p5)*(
7016      . fmb*hbcm+fmc*hbcm)+64*(p7p8*p4p6*p3p5)*(-fmb*hbcm-fmc*hbcm)+16
7017      . *(p6p7*p5p8*p3p4)*(2*fmb*hbcm+2*fmc*hbcm-hbcm2)+48*(p6p8*p5p7*
7018      . p3p4)*(-fmb*hbcm-fmc*hbcm)+32*(p7p8*p5p6*p3p4)*(-fmb*hbcm-fmc*
7019      . hbcm)+16*(p6p8*p4p7*p3p4)*(fmb*hbcm+fmc*hbcm+2*hbcm2)+32*(p7p8
7020      . *p4p6*p3p4)*(-3*fmb*hbcm-3*fmc*hbcm-hbcm2)+128*(p4p6*p3p7*p2p8
7021      . )*(-fmb*hbcm-fmc*hbcm)+32*(p6p7*p4p8*p2p3)*(fmb*hbcm+fmc*hbcm)
7022      . +96*(p6p8*p4p7*p2p3)*(-fmb*hbcm-fmc*hbcm)+96*(p7p8*p4p6*p2p3)*
7023      . (fmb*hbcm+fmc*hbcm)+32*(p4p6*p3p7*p1p8)*(-2*fmb*hbcm-fmc*hbcm)
7024      . +ans4
7025       ans2=w18*ans3
7026       ans13=-hbcm2*p3p4*p4p8*p6p7+2*hbcm2*p3p4*p5p6*p7p8-2*hbcm2*p4p5
7027      . *p4p6*p7p8-2*hbcm2*p4p5*p5p7*p6p8-hbcm2*p4p6*p4p7*p4p8+hbcm2*
7028      . p4p8*p5p6*p5p7+2*p1p3*p3p4*p4p6*p7p8-2*p1p3*p3p4*p4p7*p6p8+2*
7029      . p1p3*p3p4*p4p8*p6p7-2*p1p3*p3p4*p5p6*p7p8+2*p1p3*p3p4*p5p7*
7030      . p6p8-2*p1p4*p3p4*p3p6*p7p8+2*p1p4*p3p4*p3p7*p6p8+2*p1p5*p3p4*
7031      . p3p6*p7p8-2*p1p5*p3p4*p3p7*p6p8+2*p1p8*p3p4*p3p6*p4p7-2*p1p8*
7032      . p3p4*p3p6*p5p7-2*p1p8*p3p4*p3p7*p4p6+2*p1p8*p3p4*p3p7*p5p6-2*
7033      . p1p8*p3p4s2*p6p7+4*p2p3*p3p4*p4p6*p7p8-4*p2p3*p3p4*p4p7*p6p8+2
7034      . *p2p3*p3p4*p4p8*p6p7-2*p2p3*p3p4*p5p6*p7p8+2*p2p3*p3p4*p5p7*
7035      . p6p8-6*p2p8*p3p4*p3p7*p4p6+2*p2p8*p3p4*p3p7*p5p6-2*p3p4*p3p5*
7036      . p3p6*p7p8-2*p3p4*p3p5*p4p6*p7p8+4*p3p4*p3p5*p4p7*p6p8-2*p3p4*
7037      . p3p5*p4p8*p6p7+2*p3p4*p3p5*p5p6*p7p8+4*p3p4*p3p6*p3p7*p4p8-4*
7038      . p3p4*p3p6*p4p7*p5p8+4*p3p4*p3p6*p4p8*p5p7+4*p3p4*p3p7*p4p6*
7039      . p4p8+2*p3p4*p3p7*p4p6*p5p8-2*p3p4*p3p7*p5p6*p5p8+2*p3p4s2*p5p8
7040      . *p6p7
7041       ans12=2*ffmcfmb*p2p3*p3p4*p3p6*p7p8-2*ffmcfmb*p2p3*p3p4*p3p7*
7042      . p6p8-4*ffmcfmb*p2p8*p3p4*p3p6*p3p7-2*ffmcfmb*p3p4*p3p6*p3p7*
7043      . p5p8-2*fmb2*fmc*hbcm*p3p6*p7p8-2*fmb2*p3p4*p3p6*p7p8+2*fmc*
7044      . hbcm*p1p3*p4p6*p7p8-2*fmc*hbcm*p1p3*p4p7*p6p8+fmc*hbcm*p1p3*
7045      . p4p8*p6p7-2*fmc*hbcm*p1p3*p5p6*p7p8+2*fmc*hbcm*p1p3*p5p7*p6p8-
7046      . 2*fmc*hbcm*p1p4*p3p6*p7p8+2*fmc*hbcm*p1p4*p3p7*p6p8+2*fmc*hbcm
7047      . *p1p5*p3p6*p7p8-2*fmc*hbcm*p1p5*p3p7*p6p8-2*fmc*hbcm*p1p8*p3p4
7048      . *p6p7+2*fmc*hbcm*p1p8*p3p6*p4p7-2*fmc*hbcm*p1p8*p3p6*p5p7-2*
7049      . fmc*hbcm*p1p8*p3p7*p4p6+2*fmc*hbcm*p1p8*p3p7*p5p6+6*fmc*hbcm*
7050      . p2p3*p4p6*p7p8-6*fmc*hbcm*p2p3*p4p7*p6p8+2*fmc*hbcm*p2p3*p4p8*
7051      . p6p7-2*fmc*hbcm*p2p3*p5p6*p7p8+2*fmc*hbcm*p2p3*p5p7*p6p8-8*fmc
7052      . *hbcm*p2p8*p3p7*p4p6+2*fmc*hbcm*p2p8*p3p7*p5p6+2*fmc*hbcm*p3p4
7053      . *p5p8*p6p7-4*fmc*hbcm*p3p5*p4p6*p7p8+6*fmc*hbcm*p3p5*p4p7*p6p8
7054      . -2*fmc*hbcm*p3p5*p4p8*p6p7+2*fmc*hbcm*p3p5*p5p6*p7p8-2*fmc*
7055      . hbcm*p3p6*p4p5*p7p8-4*fmc*hbcm*p3p6*p4p7*p5p8+2*fmc*hbcm*p3p7*
7056      . p4p6*p5p8-2*fmc*hbcm*p3p7*p5p6*p5p8-fmc*hbcm3*p4p8*p6p7+2*fmc*
7057      . hbcm3*p5p6*p7p8+4*fmc2*p2p3*p3p6*p7p8-4*fmc2*p2p3*p3p7*p6p8-6*
7058      . fmc2*p2p8*p3p6*p3p7-2*fmc2*p3p6*p3p7*p5p8-hbcm2*p1p4*p4p8*p6p7
7059      . +ans13
7060       ans11=16*ans12
7061       ans10=32*(p7p8*p4p6)*(-fmc*hbcm3-fmc2*hbcm2-2*p3p4s2)+16*(p4p8*
7062      . p4p6*p3p7)*(4*fmc*hbcm-hbcm2)+32*(p6p8*p3p7*p3p5)*(fmc*hbcm+2*
7063      . fmc2)+32*(p7p8*p3p6*p3p5)*(-fmc*hbcm-fmc2)+32*(p7p8*p4p6*p3p4)
7064      . *(-3*fmc*hbcm-hbcm2)+16*(p5p7*p4p8*p3p6)*(-fmb*hbcm+4*fmc*hbcm
7065      . )+16*(p4p8*p4p7*p3p6)*(-fmb*hbcm-hbcm2)+16*(p6p8*p5p7*p3p4)*(
7066      . fmb*hbcm-5*fmc*hbcm-2*hbcm2)+16*(p6p8*p4p7*p3p4)*(fmb*hbcm+fmc
7067      . *hbcm+2*hbcm2)+16*(p6p8*p3p7)*(fmb*fmc2*hbcm+2*fmb2*fmc*hbcm-
7068      . fmc3*hbcm-4*p3p4s2)+16*(p4p8*p3p7*p3p6)*(-fmb*fmc+2*fmc*hbcm+
7069      . fmc2)+16*(p6p8*p3p7*p3p4)*(fmb*fmc+2*fmb2-4*fmc*hbcm-fmc2)+16*
7070      . (p6p8*p5p7)*(fmb*fmc*hbcm2-2*fmc*hbcm3-fmc2*hbcm2-4*p3p4s2)+16
7071      . *(p6p8*p4p7)*(fmb*fmc*hbcm2+2*fmc*hbcm3+fmc2*hbcm2)+(p6p8*p3p7
7072      . *p3p5*p3p4)*(32*ffmcfmb+32)+ans11
7073       ans9=w1*ans10
7074       ans18=16*(2*ffmcfmb*p1p3*p2p3*p3p6*p7p8-2*ffmcfmb*p1p3*p2p3*
7075      . p3p7*p6p8-4*ffmcfmb*p1p3*p2p8*p3p6*p3p7-2*ffmcfmb*p1p3*p3p6*
7076      . p3p7*p5p8+2*fmb*hbcm*p1p5*p3p6*p7p8-fmb*hbcm*p1p8*p3p6*p5p7-2*
7077      . fmb*hbcm*p3p6*p3p7*p5p8-fmc*hbcm*p1p3*p1p8*p6p7+2*fmc*hbcm*
7078      . p1p3*p5p8*p6p7+hbcm2*p1p4*p1p8*p6p7+hbcm2*p1p8*p4p6*p4p7-hbcm2
7079      . *p1p8*p5p6*p5p7-2*p1p3*p1p4*p3p6*p7p8+2*p1p3*p1p4*p3p7*p6p8+2*
7080      . p1p3*p1p5*p3p6*p7p8-2*p1p3*p1p5*p3p7*p6p8-2*p1p3*p1p8*p3p4*
7081      . p6p7+2*p1p3*p1p8*p3p6*p4p7-2*p1p3*p1p8*p3p6*p5p7-2*p1p3*p1p8*
7082      . p3p7*p4p6+2*p1p3*p1p8*p3p7*p5p6+4*p1p3*p2p3*p4p6*p7p8-4*p1p3*
7083      . p2p3*p4p7*p6p8+2*p1p3*p2p3*p4p8*p6p7-2*p1p3*p2p3*p5p6*p7p8+2*
7084      . p1p3*p2p3*p5p7*p6p8-6*p1p3*p2p8*p3p7*p4p6+2*p1p3*p2p8*p3p7*
7085      . p5p6-4*p1p3*p3p4*p3p7*p6p8-4*p1p3*p3p4*p4p6*p7p8-4*p1p3*p3p4*
7086      . p5p7*p6p8+2*p1p3*p3p4*p5p8*p6p7-2*p1p3*p3p5*p3p6*p7p8-2*p1p3*
7087      . p3p5*p4p6*p7p8+4*p1p3*p3p5*p4p7*p6p8-2*p1p3*p3p5*p4p8*p6p7+2*
7088      . p1p3*p3p5*p5p6*p7p8+4*p1p3*p3p6*p3p7*p4p8-4*p1p3*p3p6*p4p7*
7089      . p5p8+4*p1p3*p3p6*p4p8*p5p7+4*p1p3*p3p7*p4p6*p4p8+2*p1p3*p3p7*
7090      . p4p6*p5p8-2*p1p3*p3p7*p5p6*p5p8)
7091       ans17=16*(p3p7*p3p6*p1p8)*(-fmb*fmc+2*fmb*hbcm+2*fmc*hbcm-fmc2)
7092      . +16*(p6p8*p3p7*p1p3)*(fmb*fmc-2*fmb*hbcm+2*fmb2-2*fmc*hbcm-
7093      . fmc2)+32*(p6p7*p5p8)*(fmb*fmc*hbcm2-fmc*hbcm3+fmc2*hbcm2)+16*(
7094      . p6p8*p5p7)*(-2*fmb*fmc*hbcm2-fmb*hbcm3+fmc*hbcm3-2*fmc2*hbcm2+
7095      . hbcm4+2*p1p3s2)+16*(p7p8*p5p6)*(-2*fmb*fmc*hbcm2+2*fmb*hbcm3-
7096      . fmb2*hbcm2+2*fmc*hbcm3-fmc2*hbcm2-hbcm4-2*p1p3s2)+16*(p6p7*
7097      . p4p8)*(2*fmb*fmc*hbcm2-2*fmb*hbcm3+fmb2*hbcm2-2*fmc*hbcm3+fmc2
7098      . *hbcm2+hbcm4+2*p1p3s2)+16*(p6p8*p4p7)*(-2*fmb*fmc*hbcm2+3*fmb*
7099      . hbcm3-fmb2*hbcm2+3*fmc*hbcm3-fmc2*hbcm2-2*hbcm4-2*p1p3s2)+32*(
7100      . p7p8*p4p6)*(-fmb*fmc*hbcm2-fmb*hbcm3-fmc2*hbcm2+hbcm4+p1p3s2)+
7101      . 16*(p6p8*p3p7)*(-3*fmb*fmc*hbcm2-fmb*fmc2*hbcm+fmb*hbcm3+fmb2*
7102      . fmc*hbcm-2*fmb2*hbcm2+fmb3*hbcm+2*fmc*hbcm3-fmc2*hbcm2-fmc3*
7103      . hbcm)+16*(p7p8*p3p6)*(-2*fmb*fmc*hbcm2+fmb*fmc2*hbcm+fmb*hbcm3
7104      . -fmb3*hbcm+2*fmc*hbcm3-2*fmc2*hbcm2)+16*(p6p7*p1p8)*(-2*fmb*
7105      . fmc*hbcm2+fmc*hbcm3-2*fmc2*hbcm2)+(p6p8*p3p7*p3p5*p1p3)*(32*
7106      . ffmcfmb+32)+ans18
7107       ans16=32*(p5p6*p3p7*p1p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p4p6*
7108      . p3p7*p1p8)*(-2*fmb*hbcm-2*fmc*hbcm+3*hbcm2)+16*(p4p7*p3p6*p1p8
7109      . )*(3*fmb*hbcm+2*fmc*hbcm-hbcm2)+16*(p6p7*p3p4*p1p8)*(-2*fmb*
7110      . hbcm-2*fmc*hbcm+hbcm2)+32*(p6p8*p3p7*p1p5)*(-fmb*hbcm-fmc*hbcm
7111      . +hbcm2)+32*(p6p8*p3p7*p1p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p7p8
7112      . *p3p6*p1p4)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p6p8*p5p7*p1p3)*(
7113      . fmb*hbcm-fmc*hbcm-2*hbcm2)+32*(p7p8*p5p6*p1p3)*(-fmb*hbcm-fmc*
7114      . hbcm+hbcm2)+32*(p6p7*p4p8*p1p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(
7115      . p6p8*p4p7*p1p3)*(-3*fmb*hbcm-3*fmc*hbcm+4*hbcm2)+32*(p7p8*p4p6
7116      . *p1p3)*(fmb*hbcm-2*hbcm2)+32*(p4p8*p3p7*p3p6)*(fmb*fmc+fmb*
7117      . hbcm+fmc2-hbcm2)+32*(p6p8*p3p7*p3p5)*(fmb*fmc+fmb*hbcm+fmc2-
7118      . hbcm2)+32*(p7p8*p3p6*p3p5)*(-fmb*fmc+fmc*hbcm-fmc2)+32*(p7p8*
7119      . p3p6*p3p4)*(-fmb*fmc+fmb*hbcm+fmc*hbcm-fmc2)+32*(p3p7*p3p6*
7120      . p2p8)*(-3*fmb*fmc+fmb*hbcm+3*fmc*hbcm-3*fmc2)+32*(p6p8*p3p7*
7121      . p2p3)*(-fmb*fmc+fmc*hbcm-fmc2)+32*(p7p8*p3p6*p2p3)*(2*fmb*fmc-
7122      . fmb*hbcm-2*fmc*hbcm+2*fmc2)+ans17
7123       ans15=32*(p7p8*p3p6*p1p3)*(-fmb2-fmc*hbcm+fmc2)+32*(p5p8*p5p6*
7124      . p3p7)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p5p8*p4p6*p3p7)*(fmb*hbcm
7125      . +fmc*hbcm-hbcm2)+64*(p4p8*p4p6*p3p7)*(fmb*hbcm+fmc*hbcm-hbcm2)
7126      . +32*(p5p7*p4p8*p3p6)*(2*fmb*hbcm+fmc*hbcm-hbcm2)+32*(p5p8*p4p7
7127      . *p3p6)*(-2*fmb*hbcm-fmc*hbcm+hbcm2)+32*(p7p8*p5p6*p3p5)*(fmb*
7128      . hbcm+fmc*hbcm-hbcm2)+32*(p6p7*p4p8*p3p5)*(-fmb*hbcm-fmc*hbcm+
7129      . hbcm2)+64*(p6p8*p4p7*p3p5)*(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p7p8*
7130      . p4p6*p3p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p6p7*p5p8*p3p4)*(fmb
7131      . *hbcm+fmc*hbcm-hbcm2)+64*(p6p8*p5p7*p3p4)*(-fmb*hbcm-fmc*hbcm+
7132      . hbcm2)+64*(p7p8*p4p6*p3p4)*(-fmb*hbcm-fmc*hbcm+hbcm2)+64*(p6p8
7133      . *p3p7*p3p4)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p5p6*p3p7*p2p8)*(
7134      . fmb*hbcm+fmc*hbcm-hbcm2)+96*(p4p6*p3p7*p2p8)*(-fmb*hbcm-fmc*
7135      . hbcm+hbcm2)+32*(p6p8*p5p7*p2p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+32*(
7136      . p7p8*p5p6*p2p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p6p7*p4p8*p2p3)
7137      . *(fmb*hbcm+fmc*hbcm-hbcm2)+64*(p6p8*p4p7*p2p3)*(-fmb*hbcm-fmc*
7138      . hbcm+hbcm2)+64*(p7p8*p4p6*p2p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+
7139      . ans16
7140       ans14=w13*ans15
7141       ans20=128*(-fb4*p1p3*p4p6*p7p8+fb4*p1p3*p4p7*p6p8-fb4*p1p3*p4p8
7142      . *p6p7+fb4*p1p3*p5p6*p7p8-fb4*p1p3*p5p7*p6p8+fb4*p1p4*p3p6*p7p8
7143      . -fb4*p1p4*p3p7*p6p8-fb4*p1p5*p3p6*p7p8+fb4*p1p5*p3p7*p6p8+fb4*
7144      . p1p8*p3p4*p6p7-fb4*p1p8*p3p6*p4p7+fb4*p1p8*p3p6*p5p7+fb4*p1p8*
7145      . p3p7*p4p6-fb4*p1p8*p3p7*p5p6-2*fb4*p2p3*p4p6*p7p8+2*fb4*p2p3*
7146      . p4p7*p6p8-fb4*p2p3*p4p8*p6p7+fb4*p2p3*p5p6*p7p8-fb4*p2p3*p5p7*
7147      . p6p8+3*fb4*p2p8*p3p7*p4p6-fb4*p2p8*p3p7*p5p6+2*fb4*p3p4*p3p7*
7148      . p6p8+2*fb4*p3p4*p4p6*p7p8+2*fb4*p3p4*p5p7*p6p8-fb4*p3p4*p5p8*
7149      . p6p7+fb4*p3p5*p3p6*p7p8+fb4*p3p5*p4p6*p7p8-2*fb4*p3p5*p4p7*
7150      . p6p8+fb4*p3p5*p4p8*p6p7-fb4*p3p5*p5p6*p7p8-2*fb4*p3p6*p3p7*
7151      . p4p8+2*fb4*p3p6*p4p7*p5p8-2*fb4*p3p6*p4p8*p5p7-2*fb4*p3p7*p4p6
7152      . *p4p8-fb4*p3p7*p4p6*p5p8+fb4*p3p7*p5p6*p5p8)
7153       ans19=(p5p8*p3p7*p3p6)*(128*fb4*ffmcfmb+16)+(p6p8*p3p7*p3p5)*(-
7154      . 128*fb4*ffmcfmb-128*fb4-16)+(p3p7*p3p6*p2p8)*(256*fb4*ffmcfmb+
7155      . 32)+(p6p8*p3p7*p2p3)*(128*fb4*ffmcfmb+16)+(p7p8*p3p6*p2p3)*(-
7156      . 128*fb4*ffmcfmb-16)+32*(p6p7*p5p8)*(2*fb3*fmc*hbcm-2*fb4*fmc*
7157      . hbcm-hbcm2)+64*(p7p8*p5p6)*(-fb3*fmc*hbcm+fb4*fmc*hbcm-2*fb4*
7158      . hbcm2)+64*(p6p7*p4p8)*(fb3*fmc*hbcm-fb4*fmc*hbcm+2*fb4*hbcm2)+
7159      . 32*(p7p8*p4p6)*(-2*fb3*fmc*hbcm+2*fb4*fmc*hbcm+4*fb4*hbcm2+
7160      . hbcm2)+8*(p7p8*p3p6)*(-8*fb3*fmc*hbcm+16*fb4*fmb2+8*fb4*fmc*
7161      . hbcm-16*fb4*fmc2+3*fmb*hbcm+3*fmc*hbcm+hbcm2)+8*(p6p7*p1p8)*(-
7162      . 8*fb3*fmc*hbcm+8*fb4*fmc*hbcm+hbcm2)+8*(p6p8*p5p7)*(-8*fb3*fmb
7163      . *hbcm-8*fb3*fmc*hbcm+16*fb4*hbcm2+5*hbcm2)+8*(p6p8*p4p7)*(-8*
7164      . fb3*fmb*hbcm-8*fb3*fmc*hbcm-16*fb4*hbcm2+hbcm2)+8*(p6p8*p3p7)*
7165      . (-8*fb3*fmb*fmc-8*fb3*fmc*hbcm-16*fb4*fmb2+8*fb4*fmc*hbcm+8*
7166      . fb4*fmc2-3*fmb*hbcm-fmc*hbcm+hbcm2)+ans20
7167       ans1=ans2+ans9+ans14+ans19
7168       ans=ccc*ans1
7169       b(12)=ans
7170       ans2=w1*(8*(p5p8*p3p4)*(-fmb+5*fmc)+8*(p4p8*p3p4)*(-fmb+5*fmc-2
7171      . *hbcm)+8*(p3p4*p2p8)*(fmb-7*fmc)+8*(p3p4*p1p8)*(fmb-5*fmc)+8*
7172      . p5p8*(-fmb*fmc*hbcm+5*fmc2*hbcm)+8*p4p8*(-fmb*fmc*hbcm+fmb2*
7173      . hbcm-3*fmc*hbcm2+6*fmc2*hbcm)+8*p2p8*(fmb*fmc*hbcm-7*fmc2*hbcm
7174      . )+8*p1p8*(fmb*fmc*hbcm-5*fmc2*hbcm)+8*(3*fmc*p1p3*p4p8+2*hbcm*
7175      . p1p4*p4p8-hbcm*p1p5*p4p8+2*hbcm*p1p8*p4p5+2*hbcm*p2p8*p4p5+
7176      . hbcm*p3p5*p4p8-2*hbcm*p4p5*p5p8))+(16*p5p8*(-4*fb3*fmc+2*fb4*
7177      . fmb-6*fb4*fmc+3*hbcm)+32*p4p8*(-2*fb3*fmc+fb4*fmb-3*fb4*fmc)+
7178      . 16*p2p8*(6*fb3*fmc-2*fb4*fmb+8*fb4*fmc-3*hbcm)+4*p1p8*(16*fb3*
7179      . fmc-8*fb4*fmb+24*fb4*fmc-7*hbcm))
7180       ans1=w18*(24*p5p8*(fmc*hbcm2+2*fmc2*hbcm)+24*p4p8*(-2*fmb2*hbcm
7181      . -fmc*hbcm2+2*fmc2*hbcm)+8*p2p8*(fmb2*hbcm-7*fmc2*hbcm)+8*p1p8*
7182      . (fmb2*hbcm-5*fmc2*hbcm)+8*(p5p8*p3p5)*(-fmb+5*fmc+hbcm)+8*(
7183      . p4p8*p3p5)*(-fmb+5*fmc-5*hbcm)+8*(p5p8*p3p4)*(-fmb+5*fmc+4*
7184      . hbcm)+8*(p4p8*p3p4)*(-fmb+5*fmc-2*hbcm)+8*(p3p5*p2p8)*(fmb-7*
7185      . fmc)+8*(p3p4*p2p8)*(fmb-7*fmc)+8*(p3p5*p1p8)*(fmb-5*fmc)+8*(
7186      . p3p4*p1p8)*(fmb-5*fmc)+8*(3*fmc*p1p3*p4p8-3*fmc*p1p3*p5p8+2*
7187      . hbcm*p1p4*p4p8-4*hbcm*p1p4*p5p8+5*hbcm*p1p5*p4p8-hbcm*p1p5*
7188      . p5p8-4*hbcm*p1p8*p4p5-6*hbcm*p2p8*p4p5+6*hbcm*p4p5*p5p8))+w13*
7189      . (8*(p5p8*p1p3)*(-fmb-fmc+2*hbcm)+8*(p4p8*p1p3)*(-fmb+5*fmc-4*
7190      . hbcm)+8*(p2p8*p1p3)*(fmb-fmc)+8*(p1p8*p1p3)*(fmb-2*fmc)+8*p5p8
7191      . *(fmb*hbcm2+fmc*hbcm2-hbcm3)+8*p4p8*(fmb*hbcm2-3*fmb2*hbcm-5*
7192      . fmc*hbcm2+3*fmc2*hbcm+2*hbcm3)+8*p2p8*(-fmb*hbcm2+fmb2*hbcm+
7193      . fmc*hbcm2-fmc2*hbcm)+8*p1p8*(-fmb*hbcm2+2*fmc*hbcm2)+8*(-2*
7194      . hbcm*p1p4*p1p8+hbcm*p1p5*p1p8+2*hbcm*p1p8*p3p4-hbcm*p1p8*p3p5)
7195      . )+ans2
7196       ans=ccc*ans1
7197       b(13)=ans
7198       ans2=(p1p3*(-64*fb4*ffmcfmb-8)+8*(-4*fb4*fmb2+8*fb4*fmc*hbcm+4*
7199      . fb4*fmc2-12*fb4*p1p4+4*fb4*p1p5+12*fb4*p3p4-4*fb4*p3p5-2*fmb*
7200      . hbcm-2*fmc*hbcm+hbcm2))
7201       ans1=w13*(8*p3p5*(fmb*hbcm+fmc*hbcm-hbcm2)+24*p3p4*(-fmb*hbcm-
7202      . fmc*hbcm+hbcm2)+8*p1p5*(-fmb*hbcm-fmc*hbcm+hbcm2)+24*p1p4*(fmb
7203      . *hbcm+fmc*hbcm-hbcm2)+8*p1p3*(3*fmb*fmc-fmb*hbcm+fmb2-5*fmc*
7204      . hbcm+2*fmc2)+4*(4*ffmcfmb*p1p3s2-6*fmb*fmc*hbcm2-fmb*fmc2*hbcm
7205      . +fmb*hbcm3+fmb2*fmc*hbcm-2*fmb2*hbcm2+fmb3*hbcm+5*fmc*hbcm3-4*
7206      . fmc2*hbcm2-fmc3*hbcm+6*p1p3*p1p4-2*p1p3*p1p5-6*p1p3*p3p4+2*
7207      . p1p3*p3p5))+w18*(8*p3p5*(fmb2-2*fmc*hbcm-fmc2)+8*p4p5*(-fmb*
7208      . hbcm-fmc*hbcm)+8*p3p4*(-4*fmb*hbcm+fmb2-6*fmc*hbcm-fmc2)+32*
7209      . p1p4*(fmb*hbcm+fmc*hbcm)+24*p1p3*(fmb*fmc+fmc2)+8*(2*ffmcfmb*
7210      . p1p3*p3p4+2*ffmcfmb*p1p3*p3p5-3*fmb*fmc*hbcm2-fmb*fmc2*hbcm-3*
7211      . fmc2*hbcm2-fmc3*hbcm+3*p1p4*p3p4+3*p1p4*p3p5-p1p5*p3p4-p1p5*
7212      . p3p5-2*p3p4*p3p5-3*p3p4s2+p3p5s2))+w1*(8*p3p4*(fmb2-6*fmc*hbcm
7213      . -fmc2)+8*(2*ffmcfmb*p1p3*p3p4+fmb2*fmc*hbcm+4*fmc*hbcm*p1p4-
7214      . fmc*hbcm*p1p5+fmc*hbcm*p3p5-3*fmc2*hbcm2+3*fmc2*p1p3-fmc3*hbcm
7215      . +3*p1p4*p3p4-p1p5*p3p4+p3p4*p3p5-3*p3p4s2))+ans2
7216       ans=ccc*ans1
7217       b(14)=ans
7218       ans3=(8*(p4p8*p3p5)*(6*fmb*hbcm+6*fmc*hbcm+hbcm2)+8*(p5p8*p3p4)
7219      . *(-6*fmb*hbcm-6*fmc*hbcm+hbcm2)+8*(p3p5*p2p8)*(-fmb*hbcm-fmc*
7220      . hbcm)+56*(p3p4*p2p8)*(fmb*hbcm+fmc*hbcm)+8*(p5p8*p2p3)*(fmb*
7221      . hbcm+fmc*hbcm)+56*(p4p8*p2p3)*(-fmb*hbcm-fmc*hbcm)+8*(p3p5*
7222      . p1p8)*(-fmb*hbcm-fmc*hbcm)+40*(p3p4*p1p8)*(fmb*hbcm+fmc*hbcm)+
7223      . 8*(p5p8*p1p3)*(fmb*hbcm-fmc*hbcm)+8*(p4p8*p1p3)*(-5*fmb*hbcm-3
7224      . *fmc*hbcm)+8*p5p8*(-4*fmb*fmc*hbcm2-fmb*hbcm3+fmc*hbcm3-6*
7225      . p3p4s2)+8*p4p8*(-4*fmb*fmc*hbcm2+5*fmb*hbcm3-4*fmb2*hbcm2+3*
7226      . fmc*hbcm3+6*p3p5s2)+8*p2p8*(6*fmb*fmc*hbcm2+fmb2*hbcm2+fmc2*
7227      . hbcm2+6*p3p4s2-2*p3p5s2)+8*p1p8*(4*fmb*fmc*hbcm2+fmb2*hbcm2+
7228      . fmc2*hbcm2+4*p3p4s2-2*p3p5s2)+8*(hbcm2*p1p4*p4p8-3*hbcm2*p1p4*
7229      . p5p8+3*hbcm2*p1p5*p4p8-hbcm2*p1p5*p5p8-2*hbcm2*p1p8*p4p5-4*
7230      . hbcm2*p2p8*p4p5+3*hbcm2*p3p4*p4p8-hbcm2*p3p5*p5p8+4*hbcm2*p4p5
7231      . *p5p8-4*p1p3*p3p4*p4p8+2*p1p3*p3p4*p5p8-4*p1p3*p3p5*p4p8+2*
7232      . p1p3*p3p5*p5p8+2*p1p8*p3p4*p3p5-6*p2p3*p3p4*p4p8+2*p2p3*p3p4*
7233      . p5p8-6*p2p3*p3p5*p4p8+2*p2p3*p3p5*p5p8+4*p2p8*p3p4*p3p5+6*p3p4
7234      . *p3p5*p4p8-6*p3p4*p3p5*p5p8))
7235       ans2=w18*ans3
7236       ans6=8*(2*fmc*hbcm*p1p3*p1p8-hbcm2*p1p4*p1p8+hbcm2*p1p5*p1p8+4*
7237      . p1p3*p1p8*p3p4-2*p1p3*p1p8*p3p5-6*p1p3*p2p3*p4p8+2*p1p3*p2p3*
7238      . p5p8+6*p1p3*p2p8*p3p4-2*p1p3*p2p8*p3p5-6*p1p3*p3p4*p5p8+6*p1p3
7239      . *p3p5*p4p8)
7240       ans5=48*(p4p8*p3p5)*(fmb*hbcm+fmc*hbcm-hbcm2)+48*(p5p8*p3p4)*(-
7241      . fmb*hbcm-fmc*hbcm+hbcm2)+16*(p3p5*p2p8)*(-fmb*hbcm-fmc*hbcm+
7242      . hbcm2)+48*(p3p4*p2p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p5p8*p2p3)
7243      . *(fmb*hbcm+fmc*hbcm-hbcm2)+48*(p4p8*p2p3)*(-fmb*hbcm-fmc*hbcm+
7244      . hbcm2)+8*(p3p5*p1p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p3p4*p1p8)*
7245      . (5*fmb*hbcm+5*fmc*hbcm-3*hbcm2)+8*(p2p3*p1p8)*(-fmb*hbcm-fmc*
7246      . hbcm)+8*(p5p8*p1p3)*(fmb*hbcm-3*fmc*hbcm-2*hbcm2)+8*(p4p8*p1p3
7247      . )*(-5*fmb*hbcm-5*fmc*hbcm+6*hbcm2)+8*(p2p8*p1p3)*(fmb*hbcm+5*
7248      . fmc*hbcm)+8*p5p8*(-4*fmb*fmc*hbcm2-fmb*hbcm3+3*fmc*hbcm3-4*
7249      . fmc2*hbcm2+hbcm4+2*p1p3s2)+8*p4p8*(-4*fmb*fmc*hbcm2+5*fmb*
7250      . hbcm3-2*fmb2*hbcm2+5*fmc*hbcm3-2*fmc2*hbcm2-3*hbcm4-4*p1p3s2)+
7251      . 8*p2p8*(6*fmb*fmc*hbcm2-fmb*hbcm3+fmb2*hbcm2-5*fmc*hbcm3+5*
7252      . fmc2*hbcm2)+16*p1p8*(2*fmb*fmc*hbcm2-fmc*hbcm3+2*fmc2*hbcm2)+
7253      . ans6
7254       ans4=w13*ans5
7255       ans8=(32*p5p8*(-fb3*fmb*hbcm-2*fb3*fmc*hbcm+fb4*fmc*hbcm+2*fb4*
7256      . hbcm2+hbcm2)+32*p4p8*(-fb3*fmb*hbcm-2*fb3*fmc*hbcm+fb4*fmc*
7257      . hbcm-4*fb4*hbcm2)+32*p2p8*(fb3*fmb*hbcm+3*fb3*fmc*hbcm-2*fb4*
7258      . fmc*hbcm-hbcm2)+16*p1p8*(2*fb3*fmb*hbcm+4*fb3*fmc*hbcm-2*fb4*
7259      . fmc*hbcm-hbcm2)+64*(2*fb4*p1p3*p4p8-fb4*p1p3*p5p8-2*fb4*p1p8*
7260      . p3p4+fb4*p1p8*p3p5+3*fb4*p2p3*p4p8-fb4*p2p3*p5p8-3*fb4*p2p8*
7261      . p3p4+fb4*p2p8*p3p5+3*fb4*p3p4*p5p8-3*fb4*p3p5*p4p8))
7262       ans7=w1*(8*(p4p8*p3p5)*(-fmb*hbcm+7*fmc*hbcm+hbcm2)+8*(p5p8*
7263      . p3p4)*(fmb*hbcm-7*fmc*hbcm-2*hbcm2)+8*(p3p4*p2p8)*(-fmb*hbcm+7
7264      . *fmc*hbcm)+8*(p4p8*p2p3)*(fmb*hbcm-7*fmc*hbcm)+8*(p3p4*p1p8)*(
7265      . -fmb*hbcm+5*fmc*hbcm)+8*(p4p8*p1p3)*(fmb*hbcm-3*fmc*hbcm)+8*
7266      . p5p8*(fmb*fmc*hbcm2-2*fmc*hbcm3-fmc2*hbcm2-6*p3p4s2)+8*p4p8*(
7267      . fmb*fmc*hbcm2-fmb*hbcm3+fmb2*hbcm2+3*fmc*hbcm3)+8*p2p8*(-fmb*
7268      . fmc*hbcm2+fmc2*hbcm2+6*p3p4s2)+8*p1p8*(-fmb*fmc*hbcm2+fmc2*
7269      . hbcm2+4*p3p4s2)+8*(2*fmc*hbcm*p1p3*p5p8-2*fmc*hbcm*p1p8*p3p5+2
7270      . *fmc*hbcm*p2p3*p5p8-2*fmc*hbcm*p2p8*p3p5+hbcm2*p1p4*p4p8-hbcm2
7271      . *p1p5*p4p8+2*hbcm2*p1p8*p4p5+2*hbcm2*p2p8*p4p5+3*hbcm2*p3p4*
7272      . p4p8-2*hbcm2*p4p5*p5p8-4*p1p3*p3p4*p4p8+2*p1p3*p3p4*p5p8-2*
7273      . p1p8*p3p4*p3p5-6*p2p3*p3p4*p4p8+2*p2p3*p3p4*p5p8-2*p2p8*p3p4*
7274      . p3p5+6*p3p4*p3p5*p4p8))+ans8
7275       ans1=ans2+ans4+ans7
7276       ans=ccc*ans1
7277       b(15)=ans
7278       ans3=w1*(16*p4p5*(-fmc*hbcm2+hbcm3)+8*(p3p5*p3p4)*(fmb-5*fmc-
7279      . hbcm)+8*(p3p4*p2p3)*(-fmb+7*fmc)+8*(p3p4*p1p3)*(-fmb+2*fmc)+8*
7280      . p3p5*(fmb*fmc*hbcm-fmc*hbcm2-5*fmc2*hbcm)+8*p3p4*(fmb*fmc*hbcm
7281      . +fmb*hbcm2-fmb2*hbcm-fmc*hbcm2-6*fmc2*hbcm)+8*p2p3*(-fmb*fmc*
7282      . hbcm+7*fmc2*hbcm)+8*p1p3*(-fmb*fmc*hbcm+3*fmc2*hbcm)+8*(fmb*
7283      . fmc*hbcm3+fmb*p3p4s2-fmb2*fmc*hbcm2-fmc*hbcm2*p1p4+fmc*hbcm2*
7284      . p1p5-5*fmc*p3p4s2-3*fmc2*hbcm3-fmc3*hbcm2-2*hbcm*p1p3*p4p5-2*
7285      . hbcm*p1p4*p3p4+hbcm*p1p5*p3p4-2*hbcm*p2p3*p4p5+2*hbcm*p3p4s2+2
7286      . *hbcm*p3p5*p4p5))+(16*p3p5*(4*fb3*fmc+2*fb3*hbcm-2*fb4*fmb+6*
7287      . fb4*fmc-3*hbcm)+32*p3p4*(2*fb3*fmc-2*fb3*hbcm-fb4*fmb+3*fb4*
7288      . fmc)+16*p2p3*(-6*fb3*fmc+2*fb4*fmb-8*fb4*fmc+3*hbcm)+4*p1p3*(-
7289      . 8*fb3*fmc+8*fb4*fmb-24*fb4*fmc+7*hbcm)+4*(8*fb3*fmb2*hbcm+8*
7290      . fb3*fmc*hbcm2-8*fb3*fmc2*hbcm+16*fb3*hbcm*p1p4-8*fb3*hbcm*p1p5
7291      . -8*fb4*fmb*hbcm2+24*fb4*fmc*hbcm2-3*fmb*hbcm2+5*fmc*hbcm2-7*
7292      . hbcm3))
7293       ans2=w13*(8*(p3p5*p1p3)*(fmb+fmc-hbcm)+8*(p3p4*p1p3)*(fmb-5*fmc
7294      . +2*hbcm)+8*(p2p3*p1p3)*(-fmb+fmc)+24*p3p4*(-fmb*hbcm2+fmb2*
7295      . hbcm+fmc*hbcm2-fmc2*hbcm)+8*p2p3*(fmb*hbcm2-fmb2*hbcm-fmc*
7296      . hbcm2+fmc2*hbcm)+8*p1p5*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+16*p1p4*(
7297      . fmb*hbcm2+fmc*hbcm2-hbcm3)+8*p1p3*(2*fmb*fmc*hbcm+fmb*hbcm2-
7298      . fmc*hbcm2-2*fmc2*hbcm)+4*(-4*fmb*fmc*hbcm3-fmb*fmc2*hbcm2-fmb*
7299      . hbcm4-2*fmb*p1p3s2+5*fmb2*fmc*hbcm2+fmb3*hbcm2+fmc*hbcm4+4*fmc
7300      . *p1p3s2+4*fmc2*hbcm3-5*fmc3*hbcm2+4*hbcm*p1p3*p1p4-2*hbcm*p1p3
7301      . *p1p5))+ans3
7302       ans1=w18*(8*p2p3*(-fmb2*hbcm+7*fmc2*hbcm)+8*(p3p5*p3p4)*(2*fmb-
7303      . 10*fmc+hbcm)+8*(p3p5*p2p3)*(-fmb+7*fmc)+8*(p3p4*p2p3)*(-fmb+7*
7304      . fmc)+8*(p3p5*p1p3)*(-fmb+8*fmc)+8*(p3p4*p1p3)*(-fmb+2*fmc)+8*
7305      . p4p5*(-fmb*hbcm2+3*fmc*hbcm2-4*hbcm3)+8*p3p5*(fmb*hbcm2-4*fmc*
7306      . hbcm2-6*fmc2*hbcm)+8*p3p4*(-2*fmb*hbcm2+6*fmb2*hbcm-fmc*hbcm2-
7307      . 6*fmc2*hbcm)+8*p1p4*(3*fmb*hbcm2-fmc*hbcm2)+8*p1p3*(2*fmb*fmc*
7308      . hbcm-fmb2*hbcm+3*fmc2*hbcm)+8*(-2*fmb*fmc*hbcm3-fmb*fmc2*hbcm2
7309      . +fmb*p3p4s2+fmb*p3p5s2+4*fmb2*fmc*hbcm2+fmb2*hbcm3-4*fmc*hbcm2
7310      . *p1p5-5*fmc*p3p4s2-5*fmc*p3p5s2-3*fmc2*hbcm3-fmc3*hbcm2+4*hbcm
7311      . *p1p3*p4p5-2*hbcm*p1p4*p3p4+4*hbcm*p1p4*p3p5-5*hbcm*p1p5*p3p4+
7312      . hbcm*p1p5*p3p5+6*hbcm*p2p3*p4p5+2*hbcm*p3p4s2-6*hbcm*p3p5*p4p5
7313      . -hbcm*p3p5s2))+ans2
7314       ans=ccc*ans1
7315       b(16)=ans
7316       b(17)=ccc*(w18*(8*p6p8*(-fmb2*hbcm+5*fmc2*hbcm)+8*(p6p8*p3p5)*(
7317      . -fmb+5*fmc)+8*(p6p8*p3p4)*(-fmb+5*fmc)+8*(-3*fmc*p3p6*p4p8+3*
7318      . fmc*p3p6*p5p8+4*hbcm*p4p5*p6p8-2*hbcm*p4p6*p4p8+4*hbcm*p4p6*
7319      . p5p8-5*hbcm*p4p8*p5p6+hbcm*p5p6*p5p8))+w13*(16*(p5p8*p3p6)*(
7320      . fmc-hbcm)+32*(p4p8*p3p6)*(-fmc+hbcm)+8*(p6p8*p1p3)*(-fmb+fmc)+
7321      . 8*p6p8*(fmb*hbcm2-fmb2*hbcm-fmc*hbcm2+fmc2*hbcm)+8*(fmc*p1p8*
7322      . p3p6+2*hbcm*p1p8*p4p6-hbcm*p1p8*p5p6))+w1*(8*(p6p8*p3p4)*(-fmb
7323      . +5*fmc)+8*p6p8*(-fmb*fmc*hbcm+5*fmc2*hbcm)+8*(-3*fmc*p3p6*p4p8
7324      . -2*hbcm*p4p5*p6p8-2*hbcm*p4p6*p4p8+hbcm*p4p8*p5p6))+4*p6p8*(-
7325      . 16*fb3*fmc+8*fb4*fmb-24*fb4*fmc+7*hbcm))
7326       b(18)=ccc*(w18*(32*p4p6*(fmb*hbcm+fmc*hbcm)+24*p3p6*(fmb*fmc+
7327      . fmc2)+8*(2*ffmcfmb*p3p4*p3p6+2*ffmcfmb*p3p5*p3p6+3*p3p4*p4p6-
7328      . p3p4*p5p6+3*p3p5*p4p6-p3p5*p5p6))+8*w1*(2*ffmcfmb*p3p4*p3p6+4*
7329      . fmc*hbcm*p4p6-fmc*hbcm*p5p6+3*fmc2*p3p6+3*p3p4*p4p6-p3p4*p5p6)
7330      . +w13*(8*p5p6*(-fmb*hbcm-fmc*hbcm+hbcm2)+24*p4p6*(fmb*hbcm+fmc*
7331      . hbcm-hbcm2)+8*p3p6*(3*fmb*fmc-fmb*hbcm-3*fmc*hbcm+3*fmc2)+8*(2
7332      . *ffmcfmb*p1p3*p3p6+3*p1p3*p4p6-p1p3*p5p6))+(p3p6*(-64*fb4*
7333      . ffmcfmb-8)+32*(-3*fb4*p4p6+fb4*p5p6)))
7334       b(19)=ccc*(w18*(4*p5p8*(-fmb*hbcm2-5*fmc*hbcm2)+4*p4p8*(5*fmb*
7335      . hbcm2+fmc*hbcm2)+24*(-hbcm*p3p4*p5p8+hbcm*p3p5*p4p8))+w1*(4*
7336      . p4p8*(-fmb*hbcm2+fmc*hbcm2)+8*(fmc*hbcm2*p5p8+hbcm*p3p4*p5p8-
7337      . hbcm*p3p5*p4p8))+w13*(8*p5p8*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+16*
7338      . p4p8*(fmb*hbcm2+fmc*hbcm2-hbcm3)+4*p1p8*(fmb*hbcm2-3*fmc*hbcm2
7339      . )+8*(2*hbcm*p1p3*p4p8-hbcm*p1p3*p5p8-2*hbcm*p1p8*p3p4+hbcm*
7340      . p1p8*p3p5))+32*(2*fb3*hbcm*p4p8-fb3*hbcm*p5p8))
7341       b(20)=ccc*(w18*(4*p5p8*(-fmb*hbcm-fmc*hbcm)+28*p4p8*(fmb*hbcm+
7342      . fmc*hbcm)+8*(3*p3p4*p4p8-p3p4*p5p8+3*p3p5*p4p8-p3p5*p5p8))+w1*
7343      . (4*p4p8*(-fmb*hbcm+7*fmc*hbcm)+8*(-fmc*hbcm*p5p8+3*p3p4*p4p8-
7344      . p3p4*p5p8))+w13*(8*p5p8*(-fmb*hbcm-fmc*hbcm+hbcm2)+24*p4p8*(
7345      . fmb*hbcm+fmc*hbcm-hbcm2)+4*p1p8*(fmb*hbcm+fmc*hbcm)+8*(3*p1p3*
7346      . p4p8-p1p3*p5p8))+32*(-3*fb4*p4p8+fb4*p5p8))
7347       b(21)=ccc*(8*w18*(2*fmc*p3p4*p7p8+2*fmc*p3p5*p7p8+3*fmc*p3p7*
7348      . p4p8-3*fmc*p3p7*p5p8+2*fmc2*hbcm*p7p8+2*hbcm*p4p5*p7p8+2*hbcm*
7349      . p4p7*p4p8-4*hbcm*p4p7*p5p8+5*hbcm*p4p8*p5p7-hbcm*p5p7*p5p8)+8*
7350      . w1*(2*fmc*p3p4*p7p8+3*fmc*p3p7*p4p8+2*fmc2*hbcm*p7p8+2*hbcm*
7351      . p4p7*p4p8-hbcm*p4p8*p5p7)+8*w13*(-fmc*p1p8*p3p7-2*hbcm*p1p8*
7352      . p4p7+hbcm*p1p8*p5p7)+4*p7p8*(-8*fb3*fmc-8*fb4*fmc+5*hbcm))
7353       b(22)=ccc*(w18*(4*p3p5*(-fmb+7*fmc)+4*p3p4*(-fmb+7*fmc)+4*(-
7354      . fmb2*hbcm+7*fmc2*hbcm+6*hbcm*p4p5))+w13*(4*p1p3*(-fmb+fmc)+4*(
7355      . fmb*hbcm2-fmb2*hbcm-fmc*hbcm2+fmc2*hbcm))+w1*(4*p3p4*(-fmb+7*
7356      . fmc)+4*(-fmb*fmc*hbcm+7*fmc2*hbcm-2*hbcm*p4p5))+8*(-6*fb3*fmc+
7357      . 2*fb4*fmb-8*fb4*fmc+3*hbcm))
7358       b(23)=ccc*(w18*(32*p4p7*(fmb*hbcm+fmc*hbcm)+24*p3p7*(fmb*fmc+
7359      . fmc2)+8*(2*ffmcfmb*p3p4*p3p7+2*ffmcfmb*p3p5*p3p7+3*p3p4*p4p7-
7360      . p3p4*p5p7+3*p3p5*p4p7-p3p5*p5p7))+8*w1*(2*ffmcfmb*p3p4*p3p7+4*
7361      . fmc*hbcm*p4p7-fmc*hbcm*p5p7+3*fmc2*p3p7+3*p3p4*p4p7-p3p4*p5p7)
7362      . +w13*(8*p5p7*(-fmb*hbcm-fmc*hbcm+hbcm2)+24*p4p7*(fmb*hbcm+fmc*
7363      . hbcm-hbcm2)+16*p3p7*(fmb*fmc-fmc*hbcm+fmc2)+8*(2*ffmcfmb*p1p3*
7364      . p3p7+3*p1p3*p4p7-p1p3*p5p7))+(p3p7*(-64*fb4*ffmcfmb-8)+32*(-3*
7365      . fb4*p4p7+fb4*p5p7)))
7366       b(24)=ccc*(w18*(4*p3p5*(fmb*hbcm+fmc*hbcm)+28*p3p4*(-fmb*hbcm-
7367      . fmc*hbcm)+4*(-6*fmb*fmc*hbcm2-fmb2*hbcm2-fmc2*hbcm2+4*hbcm2*
7368      . p4p5-4*p3p4*p3p5-6*p3p4s2+2*p3p5s2))+w13*(8*p3p5*(fmb*hbcm+fmc
7369      . *hbcm-hbcm2)+24*p3p4*(-fmb*hbcm-fmc*hbcm+hbcm2)+4*p1p3*(-fmb*
7370      . hbcm-5*fmc*hbcm)+4*(-6*fmb*fmc*hbcm2+fmb*hbcm3-fmb2*hbcm2+5*
7371      . fmc*hbcm3-5*fmc2*hbcm2-6*p1p3*p3p4+2*p1p3*p3p5))+w1*(4*p3p4*(
7372      . fmb*hbcm-7*fmc*hbcm)+4*(fmb*fmc*hbcm2+2*fmc*hbcm*p3p5-fmc2*
7373      . hbcm2-2*hbcm2*p4p5+2*p3p4*p3p5-6*p3p4s2))+16*(-fb3*fmb*hbcm-3*
7374      . fb3*fmc*hbcm+2*fb4*fmc*hbcm+6*fb4*p3p4-2*fb4*p3p5+hbcm2))
7375       b(25)=ccc*(8*w1*(-fmc*hbcm2*p4p7+fmc*hbcm2*p5p7-5*fmc*p3p4*p3p7
7376      . -4*fmc2*hbcm*p3p7-2*hbcm*p3p4*p4p7+hbcm*p3p4*p5p7)+w18*(8*p4p7
7377      . *(3*fmb*hbcm2-fmc*hbcm2)+16*p3p7*(fmb*fmc*hbcm-2*fmc2*hbcm)+8*
7378      . (-4*fmc*hbcm2*p5p7-5*fmc*p3p4*p3p7+fmc*p3p5*p3p7-2*hbcm*p3p4*
7379      . p4p7-5*hbcm*p3p4*p5p7+4*hbcm*p3p5*p4p7+hbcm*p3p5*p5p7-2*hbcm*
7380      . p3p7*p4p5))+w13*(8*p5p7*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+16*p4p7*(
7381      . fmb*hbcm2+fmc*hbcm2-hbcm3)+8*p3p7*(fmb*fmc*hbcm-fmc*hbcm2+fmc2
7382      . *hbcm)+8*(fmc*p1p3*p3p7+2*hbcm*p1p3*p4p7-hbcm*p1p3*p5p7))+(4*
7383      . p3p7*(16*fb3*fmc+8*fb4*fmc-5*hbcm)+32*(2*fb3*hbcm*p4p7-fb3*
7384      . hbcm*p5p7)))
7385       ans=ccc*(w18*(8*(p3p6*p3p5)*(fmb-8*fmc)+8*(p3p6*p3p4)*(fmb-2*
7386      . fmc)+8*p4p6*(-3*fmb*hbcm2+fmc*hbcm2)+8*p3p6*(-2*fmb*fmc*hbcm+
7387      . fmb2*hbcm-3*fmc2*hbcm)+8*(4*fmc*hbcm2*p5p6+2*hbcm*p3p4*p4p6+5*
7388      . hbcm*p3p4*p5p6-4*hbcm*p3p5*p4p6-hbcm*p3p5*p5p6-4*hbcm*p3p6*
7389      . p4p5))+w13*(16*(p3p6*p3p5)*(-fmc+hbcm)+32*(p3p6*p3p4)*(fmc-
7390      . hbcm)+8*(p3p6*p1p3)*(fmb-2*fmc)+8*p5p6*(fmb*hbcm2+fmc*hbcm2-
7391      . hbcm3)+16*p4p6*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+8*p3p6*(-2*fmb*fmc
7392      . *hbcm+fmb2*hbcm-fmc*hbcm2+fmc2*hbcm)+8*(-2*hbcm*p1p3*p4p6+hbcm
7393      . *p1p3*p5p6))+w1*(8*(p3p6*p3p4)*(fmb-2*fmc)+8*p3p6*(fmb*fmc*
7394      . hbcm-3*fmc2*hbcm)+8*(fmc*hbcm2*p4p6-fmc*hbcm2*p5p6+2*hbcm*p3p4
7395      . *p4p6-hbcm*p3p4*p5p6+2*hbcm*p3p6*p4p5))+(4*p3p6*(8*fb3*fmc-8*
7396      . fb4*fmb+24*fb4*fmc-7*hbcm)+32*(-2*fb3*hbcm*p4p6+fb3*hbcm*p5p6)
7397      . ))
7398       b(26)=ans
7399       b(27)=ccc*(8*w1*(-2*fmc*hbcm*p3p4*p7p8+4*fmc*hbcm*p3p7*p4p8+
7400      . hbcm2*p4p7*p4p8-hbcm2*p4p8*p5p7+2*p3p4*p3p7*p4p8-2*p3p4s2*p7p8
7401      . )+w18*(16*(p4p8*p3p7)*(fmb*hbcm+2*fmc*hbcm)+16*(p7p8*p3p4)*(-
7402      . fmb*hbcm-fmc*hbcm)+16*p7p8*(-fmb*fmc*hbcm2-p3p4s2)+8*(-2*fmc*
7403      . hbcm*p3p7*p5p8+2*hbcm2*p4p5*p7p8+hbcm2*p4p7*p4p8-3*hbcm2*p4p7*
7404      . p5p8+3*hbcm2*p4p8*p5p7-hbcm2*p5p7*p5p8-2*p3p4*p3p5*p7p8+2*p3p4
7405      . *p3p7*p4p8+2*p3p5*p3p7*p4p8))+w13*(16*(p4p8*p3p7)*(fmb*hbcm+
7406      . fmc*hbcm-hbcm2)+16*(p7p8*p3p4)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*
7407      . p7p8*(-fmb*fmc*hbcm2+fmc*hbcm3-fmc2*hbcm2)+8*(-2*fmc*hbcm*p1p3
7408      . *p7p8-hbcm2*p1p8*p4p7+hbcm2*p1p8*p5p7-2*p1p3*p3p4*p7p8+2*p1p3*
7409      . p3p7*p4p8))+(16*p7p8*(-2*fb3*fmc*hbcm+2*fb4*fmc*hbcm+hbcm2)+64
7410      . *(fb4*p3p4*p7p8-fb4*p3p7*p4p8)))
7411       ans2=w1*(8*(p4p8*p3p6)*(fmb*hbcm-3*fmc*hbcm)+8*(p6p8*p3p4)*(-
7412      . fmb*hbcm+5*fmc*hbcm)+8*p6p8*(-fmb*fmc*hbcm2+fmc2*hbcm2+4*
7413      . p3p4s2)+8*(-2*fmc*hbcm*p3p5*p6p8+2*fmc*hbcm*p3p6*p5p8+2*hbcm2*
7414      . p4p5*p6p8+hbcm2*p4p6*p4p8-hbcm2*p4p8*p5p6-2*p3p4*p3p5*p6p8-4*
7415      . p3p4*p3p6*p4p8+2*p3p4*p3p6*p5p8))+(16*p6p8*(2*fb3*fmb*hbcm+4*
7416      . fb3*fmc*hbcm-2*fb4*fmc*hbcm-hbcm2)+64*(-2*fb4*p3p4*p6p8+fb4*
7417      . p3p5*p6p8+2*fb4*p3p6*p4p8-fb4*p3p6*p5p8))
7418       ans1=w18*(8*(p5p8*p3p6)*(fmb*hbcm-fmc*hbcm)+8*(p4p8*p3p6)*(-5*
7419      . fmb*hbcm-3*fmc*hbcm)+8*(p6p8*p3p5)*(-fmb*hbcm-fmc*hbcm)+40*(
7420      . p6p8*p3p4)*(fmb*hbcm+fmc*hbcm)+8*p6p8*(4*fmb*fmc*hbcm2+fmb2*
7421      . hbcm2+fmc2*hbcm2+4*p3p4s2-2*p3p5s2)+8*(-2*hbcm2*p4p5*p6p8+
7422      . hbcm2*p4p6*p4p8-3*hbcm2*p4p6*p5p8+3*hbcm2*p4p8*p5p6-hbcm2*p5p6
7423      . *p5p8+2*p3p4*p3p5*p6p8-4*p3p4*p3p6*p4p8+2*p3p4*p3p6*p5p8-4*
7424      . p3p5*p3p6*p4p8+2*p3p5*p3p6*p5p8))+w13*(16*(p4p8*p3p6)*(-2*fmb*
7425      . hbcm-fmc*hbcm+hbcm2)+16*(p6p8*p3p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)
7426      . +32*(p6p8*p3p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p3p6*p1p8)*(-fmb*
7427      . hbcm-fmc*hbcm)+8*(p6p8*p1p3)*(fmb*hbcm+3*fmc*hbcm)+8*p6p8*(4*
7428      . fmb*fmc*hbcm2-fmb*hbcm3+fmb2*hbcm2-3*fmc*hbcm3+3*fmc2*hbcm2)+8
7429      . *(2*fmb*hbcm*p3p6*p5p8-hbcm2*p1p8*p4p6+hbcm2*p1p8*p5p6+4*p1p3*
7430      . p3p4*p6p8-2*p1p3*p3p5*p6p8-4*p1p3*p3p6*p4p8+2*p1p3*p3p6*p5p8))
7431      . +ans2
7432       ans=ccc*ans1
7433       b(28)=ans
7434       ans2=((p3p7*p3p6)*(-128*fb4*ffmcfmb-16)+16*p6p7*(-2*fb3*fmc*
7435      . hbcm+2*fb4*fmc*hbcm+hbcm2)+64*(fb4*p3p4*p6p7-2*fb4*p3p6*p4p7+
7436      . fb4*p3p6*p5p7-fb4*p3p7*p4p6))
7437       ans1=w18*(16*(p4p6*p3p7)*(fmb*hbcm+2*fmc*hbcm)+16*(p4p7*p3p6)*(
7438      . 3*fmb*hbcm+2*fmc*hbcm)+16*(p6p7*p3p4)*(-fmb*hbcm-fmc*hbcm)+48*
7439      . (p3p7*p3p6)*(fmb*fmc+fmc2)+16*p6p7*(-fmb*fmc*hbcm2-p3p4s2)+16*
7440      . (2*ffmcfmb*p3p4*p3p6*p3p7+2*ffmcfmb*p3p5*p3p6*p3p7+fmc*hbcm*
7441      . p3p6*p5p7-fmc*hbcm*p3p7*p5p6+hbcm2*p4p5*p6p7+2*hbcm2*p4p6*p5p7
7442      . -2*hbcm2*p4p7*p5p6-p3p4*p3p5*p6p7+2*p3p4*p3p6*p4p7-p3p4*p3p6*
7443      . p5p7+p3p4*p3p7*p4p6+2*p3p5*p3p6*p4p7-p3p5*p3p6*p5p7+p3p5*p3p7*
7444      . p4p6))+16*w1*(2*ffmcfmb*p3p4*p3p6*p3p7-fmc*hbcm*p3p4*p6p7+2*
7445      . fmc*hbcm*p3p6*p4p7-fmc*hbcm*p3p6*p5p7+2*fmc*hbcm*p3p7*p4p6+3*
7446      . fmc2*p3p6*p3p7+2*p3p4*p3p6*p4p7-p3p4*p3p6*p5p7+p3p4*p3p7*p4p6-
7447      . p3p4s2*p6p7)+w13*(16*(p4p6*p3p7)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*
7448      . (p4p7*p3p6)*(2*fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p7*p3p4)*(-fmb*
7449      . hbcm-fmc*hbcm+hbcm2)+32*(p3p7*p3p6)*(fmb*fmc-fmc*hbcm+fmc2)+16
7450      . *p6p7*(-fmb*fmc*hbcm2+fmc*hbcm3-fmc2*hbcm2)+16*(2*ffmcfmb*p1p3
7451      . *p3p6*p3p7-fmb*hbcm*p3p6*p5p7-fmc*hbcm*p1p3*p6p7-p1p3*p3p4*
7452      . p6p7+2*p1p3*p3p6*p4p7-p1p3*p3p6*p5p7+p1p3*p3p7*p4p6))+ans2
7453       ans=ccc*ans1
7454       b(29)=ans
7455       ans2=w13*(32*(p4p8*p3p7*p3p6)*(-fmc+hbcm)+32*(p7p8*p3p6*p3p4)*(
7456      . fmc-hbcm)+16*(p6p8*p5p7)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+16*(p6p7*
7457      . p4p8)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+16*(p6p8*p4p7)*(-fmb*hbcm2-
7458      . fmc*hbcm2+hbcm3)+16*(p7p8*p4p6)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+
7459      . 16*(p7p8*p3p6)*(-fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+16*(-fmc*
7460      . hbcm2*p1p8*p6p7-fmc*p1p3*p3p6*p7p8+fmc*p1p8*p3p6*p3p7-hbcm*
7461      . p1p3*p4p6*p7p8-hbcm*p1p3*p4p7*p6p8+hbcm*p1p3*p4p8*p6p7+hbcm*
7462      . p1p3*p5p7*p6p8-hbcm*p1p8*p3p4*p6p7+hbcm*p1p8*p3p6*p4p7-hbcm*
7463      . p1p8*p3p6*p5p7+hbcm*p1p8*p3p7*p4p6))+(8*(p7p8*p3p6)*(8*fb4*fmc
7464      . -3*hbcm)+8*(p6p8*p3p7)*(-8*fb3*fmc-8*fb4*fmc+3*hbcm)+64*(-fb3*
7465      . hbcm*p4p6*p7p8-fb3*hbcm*p4p7*p6p8+fb3*hbcm*p4p8*p6p7+fb3*hbcm*
7466      . p5p7*p6p8))
7467       ans1=16*w1*(fmc*hbcm2*p4p6*p7p8-fmc*hbcm2*p5p7*p6p8-fmc*p3p4*
7468      . p3p6*p7p8+4*fmc*p3p4*p3p7*p6p8-3*fmc*p3p6*p3p7*p4p8-fmc2*hbcm*
7469      . p3p6*p7p8+3*fmc2*hbcm*p3p7*p6p8+hbcm*p3p4*p4p6*p7p8+hbcm*p3p4*
7470      . p4p7*p6p8-hbcm*p3p4*p5p7*p6p8-hbcm*p3p6*p4p7*p4p8+hbcm*p3p6*
7471      . p4p8*p5p7-hbcm*p3p7*p4p6*p4p8)+w18*(16*(p7p8*p4p6)*(-fmb*hbcm2
7472      . +fmc*hbcm2)+16*(p6p8*p3p7)*(-fmb*fmc*hbcm+3*fmc2*hbcm)+16*(
7473      . p7p8*p3p6)*(-fmb*fmc*hbcm-fmc2*hbcm)+16*(-2*fmb*hbcm2*p4p7*
7474      . p6p8+fmb*hbcm2*p4p8*p6p7+2*fmc*hbcm2*p5p6*p7p8+2*fmc*hbcm2*
7475      . p5p7*p6p8-fmc*hbcm2*p5p8*p6p7-fmc*p3p4*p3p6*p7p8+4*fmc*p3p4*
7476      . p3p7*p6p8-3*fmc*p3p5*p3p6*p7p8-3*fmc*p3p6*p3p7*p4p8+3*fmc*p3p6
7477      . *p3p7*p5p8+hbcm*p3p4*p4p6*p7p8+hbcm*p3p4*p4p7*p6p8+2*hbcm*p3p4
7478      . *p5p6*p7p8+3*hbcm*p3p4*p5p7*p6p8-hbcm*p3p4*p5p8*p6p7-hbcm*p3p5
7479      . *p4p6*p7p8-3*hbcm*p3p5*p4p7*p6p8+hbcm*p3p5*p4p8*p6p7-hbcm*p3p5
7480      . *p5p7*p6p8-2*hbcm*p3p6*p4p5*p7p8-hbcm*p3p6*p4p7*p4p8+3*hbcm*
7481      . p3p6*p4p7*p5p8-3*hbcm*p3p6*p4p8*p5p7+hbcm*p3p6*p5p7*p5p8+2*
7482      . hbcm*p3p7*p4p5*p6p8-hbcm*p3p7*p4p6*p4p8+hbcm*p3p7*p4p6*p5p8-2*
7483      . hbcm*p3p7*p4p8*p5p6))+ans2
7484       ans=ccc*ans1
7485       b(30)=ans
7486       ans2=((p6p8*p3p7)*(-64*fb4*ffmcfmb-8)+(p7p8*p3p6)*(-64*fb4*
7487      . ffmcfmb-8)+64*(-fb4*p4p6*p7p8-2*fb4*p4p7*p6p8+fb4*p4p8*p6p7+
7488      . fb4*p5p7*p6p8))
7489       ans1=w18*(16*(p6p7*p4p8)*(-fmb*hbcm-fmc*hbcm)+48*(p6p8*p4p7)*(
7490      . fmb*hbcm+fmc*hbcm)+16*(p7p8*p4p6)*(fmb*hbcm+fmc*hbcm)+32*(p6p8
7491      . *p3p7)*(fmb*fmc+fmc2)+16*(p7p8*p3p6)*(fmb*fmc+fmc2)+16*(
7492      . ffmcfmb*p3p4*p3p6*p7p8+ffmcfmb*p3p4*p3p7*p6p8+ffmcfmb*p3p5*
7493      . p3p6*p7p8+ffmcfmb*p3p5*p3p7*p6p8+p3p4*p4p6*p7p8+2*p3p4*p4p7*
7494      . p6p8-p3p4*p4p8*p6p7-p3p4*p5p7*p6p8+p3p5*p4p6*p7p8+2*p3p5*p4p7*
7495      . p6p8-p3p5*p4p8*p6p7-p3p5*p5p7*p6p8))+16*w1*(ffmcfmb*p3p4*p3p6*
7496      . p7p8+ffmcfmb*p3p4*p3p7*p6p8+fmc*hbcm*p4p6*p7p8+3*fmc*hbcm*p4p7
7497      . *p6p8-fmc*hbcm*p4p8*p6p7-fmc*hbcm*p5p7*p6p8+fmc2*p3p6*p7p8+2*
7498      . fmc2*p3p7*p6p8+p3p4*p4p6*p7p8+2*p3p4*p4p7*p6p8-p3p4*p4p8*p6p7-
7499      . p3p4*p5p7*p6p8)+w13*(16*(p6p8*p5p7)*(-fmb*hbcm-fmc*hbcm+hbcm2)
7500      . +16*(p6p7*p4p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p6p8*p4p7)*(fmb
7501      . *hbcm+fmc*hbcm-hbcm2)+16*(p7p8*p4p6)*(fmb*hbcm+fmc*hbcm-hbcm2)
7502      . +16*(p6p8*p3p7)*(fmb*fmc-fmc*hbcm+fmc2)+16*(p7p8*p3p6)*(fmb*
7503      . fmc-fmc*hbcm+fmc2)+16*(ffmcfmb*p1p3*p3p6*p7p8+ffmcfmb*p1p3*
7504      . p3p7*p6p8+p1p3*p4p6*p7p8+2*p1p3*p4p7*p6p8-p1p3*p4p8*p6p7-p1p3*
7505      . p5p7*p6p8))+ans2
7506       ans=ccc*ans1
7507       b(31)=ans
7508       b(32)=ccc*(16*w18*(fmc*p3p4*p6p7+fmc*p3p5*p6p7-fmc*p3p6*p4p7+2*
7509      . fmc*p3p6*p5p7+fmc*p3p7*p4p6-2*fmc*p3p7*p5p6+fmc2*hbcm*p6p7+
7510      . hbcm*p4p5*p6p7+3*hbcm*p4p6*p5p7-3*hbcm*p4p7*p5p6)+16*w1*(fmc*
7511      . p3p4*p6p7-fmc*p3p6*p4p7+fmc*p3p7*p4p6+fmc2*hbcm*p6p7)+w13*(16*
7512      . (p5p7*p3p6)*(fmc-hbcm)+32*(p4p7*p3p6)*(-fmc+hbcm)+16*(p3p7*
7513      . p3p6)*(-ffmcfmb*fmc+fmc))+8*p6p7*(-4*fb3*fmc-4*fb4*fmc+3*hbcm)
7514      . )
7515       do 200 n=1,32
7516          c(n,1)=c(n,1)-0.1818181818181818d0*b(n)
7517          c(n,2)=c(n,2)-0.05883183899358491d0*b(n)
7518          c(n,3)=c(n,3)-0.2077659977796572d0*b(n)
7519 200   continue
7520       return
7521         end
7522
7523       subroutine amp2_3p1(cc)
7524       implicit double precision(a-h,o-z)
7525       implicit integer (i-n)
7526       dimension b(26)
7527 #include "inclcon.h"
7528 #include "inclppp.h"
7529 #include "inclamp.h"
7530       do 100 n=1,26
7531          b(n)=0.0d0
7532 100   continue
7533       ccc=cc/((4*p1p4*p2p5)*(-2*ffmcfmb*p1p3+2*ffmcfmb*p3p4+2*fmc2-2*
7534      . p1p4))
7535       b(4)=ccc*(w5*(8*p5p7*(fmb*fmc*hbcm-fmc2*hbcm)+8*(hbcm*p1p3*p5p7
7536      . +2*hbcm*p1p4*p5p7-hbcm*p3p4*p5p7))-32*fb3*hbcm*p5p7)
7537       b(5)=w5*ccc*(8*(p5p7*p4p8)*(fmb*hbcm+fmc*hbcm)+8*(p5p7*p1p8)*(-
7538      . fmb*hbcm-fmc*hbcm)+16*(-fmc*hbcm*p2p8*p5p7+fmc*hbcm*p5p7*p5p8)
7539      . )
7540       b(6)=ccc*(w5*(8*(p5p7*p3p4)*(-fmb*hbcm-fmc*hbcm)+8*(p5p7*p1p3)*
7541      . (fmb*hbcm+fmc*hbcm)+8*(2*fmc*hbcm*p2p3*p5p7-2*fmc*hbcm*p3p5*
7542      . p5p7-fmc*hbcm3*p5p7))+32*p5p7*(-fb3*fmb*hbcm-fb3*fmc*hbcm))
7543       b(7)=ccc*(8*w5*(-2*hbcm*p1p3*p2p8*p5p7+2*hbcm*p1p3*p5p7*p5p8+2*
7544      . hbcm*p1p8*p2p3*p5p7-2*hbcm*p1p8*p3p5*p5p7-2*hbcm*p2p3*p4p8*
7545      . p5p7+2*hbcm*p2p8*p3p4*p5p7-2*hbcm*p3p4*p5p7*p5p8+2*hbcm*p3p5*
7546      . p4p8*p5p7-hbcm3*p1p8*p5p7+hbcm3*p4p8*p5p7)+64*(fb3*hbcm*p2p8*
7547      . p5p7-fb3*hbcm*p5p7*p5p8))
7548       b(13)=8*ccc*w5*(-hbcm*p1p8*p2p5+hbcm*p2p5*p4p8)
7549       b(14)=8*ccc*fmc*hbcm*p2p5*w5
7550       b(16)=ccc*(8*w5*(hbcm*p1p3*p2p5-hbcm*p2p5*p3p4)-32*fb3*hbcm*
7551      . p2p5)
7552       b(19)=ccc*(4*w5*(2*hbcm*p1p3*p2p8-2*hbcm*p1p3*p5p8-2*hbcm*p1p8*
7553      . p2p3+2*hbcm*p1p8*p3p5+2*hbcm*p2p3*p4p8-2*hbcm*p2p8*p3p4+2*hbcm
7554      . *p3p4*p5p8-2*hbcm*p3p5*p4p8+hbcm3*p1p8-hbcm3*p4p8)+32*(-fb3*
7555      . hbcm*p2p8+fb3*hbcm*p5p8))
7556       b(20)=w5*ccc*(4*p4p8*(-fmb*hbcm-fmc*hbcm)+4*p1p8*(fmb*hbcm+fmc*
7557      . hbcm)+8*(fmc*hbcm*p2p8-fmc*hbcm*p5p8))
7558       b(22)=ccc*(4*w5*(-fmb*fmc*hbcm+fmc2*hbcm-hbcm*p1p3-2*hbcm*p1p4+
7559      . hbcm*p3p4)+16*fb3*hbcm)
7560       b(24)=ccc*(w5*(4*p3p4*(fmb*hbcm+fmc*hbcm)+4*p1p3*(-fmb*hbcm-fmc
7561      . *hbcm)+4*(-2*fmc*hbcm*p2p3+2*fmc*hbcm*p3p5+fmc*hbcm3))+16*(fb3
7562      . *fmb*hbcm+fb3*fmc*hbcm))
7563       do 200 n=1,26
7564          c(n,2)=c(n,2)-0.7396002616336388d0*b(n)
7565          c(n,3)=c(n,3)+0.1662127982237257d0*b(n)
7566 200   continue
7567       return
7568         end
7569
7570       subroutine amp1s2_3p1(cc)
7571       implicit double precision(a-h,o-z)
7572       implicit integer (i-n)
7573       dimension b(16)
7574 #include "inclcon.h"
7575 #include "inclppp.h"
7576 #include "inclamp.h"
7577       do 100 n=1,16
7578          b(n)=0.0d0
7579 100   continue
7580       ccc=cc/((-2*ffmcfmb*p3p5+fmb2-2*fmc*hbcm+fmc2+hbcm2+2*p3p5)*(2*
7581      . ffmcfmb*p3p4+2*fmc2))
7582       b(1)=4*ccc*(-hbcm*p4p6*w1-2*hbcm*p5p6*w2)
7583       b(2)=ccc*(4*w1*(3*fmc*hbcm*p6p7+2*p3p4*p6p7)+4*w2*(-3*fmb*hbcm*
7584      . p6p7-2*p3p5*p6p7)-32*fb4*p6p7)
7585       b(3)=ccc*(4*w2*(4*hbcm*p5p6*p7p8-3*hbcm*p5p8*p6p7)+4*w1*(4*hbcm
7586      . *p4p7*p6p8-3*hbcm*p4p8*p6p7))
7587       b(4)=4*ccc*(2*hbcm*p4p7*w1+hbcm*p5p7*w2)
7588       b(5)=ccc*(8*w1*(fmc*hbcm*p7p8+p3p4*p7p8)+8*w2*(-fmb*hbcm*p7p8-
7589      . p3p5*p7p8)-32*fb4*p7p8)
7590       b(6)=ccc*(8*w1*(-fmc*hbcm*p3p7+hbcm2*p4p7-p3p4*p3p7)+4*w2*(2*
7591      . fmb*hbcm*p3p7+hbcm2*p5p7+2*p3p5*p3p7)+32*fb4*p3p7)
7592       b(7)=ccc*(8*w1*(-fmc*hbcm2*p7p8-hbcm*p3p4*p7p8+hbcm*p3p7*p4p8)+
7593      . 8*w2*(-fmb*hbcm2*p7p8-hbcm*p3p5*p7p8+hbcm*p3p7*p5p8)+32*fb3*
7594      . hbcm*p7p8)
7595       b(8)=ccc*(8*w1*(fmc*hbcm*p6p8+p3p4*p6p8)+8*w2*(-fmb*hbcm*p6p8-
7596      . p3p5*p6p8)-32*fb4*p6p8)
7597       b(9)=ccc*(4*w1*(-2*fmc*hbcm*p3p6-hbcm2*p4p6-2*p3p4*p3p6)+8*w2*(
7598      . fmb*hbcm*p3p6-hbcm2*p5p6+p3p5*p3p6)+32*fb4*p3p6)
7599       b(10)=ccc*(8*w1*(-fmc*hbcm2*p6p8-hbcm*p3p4*p6p8+hbcm*p3p6*p4p8)
7600      . +8*w2*(-fmb*hbcm2*p6p8-hbcm*p3p5*p6p8+hbcm*p3p6*p5p8)+32*fb3*
7601      . hbcm*p6p8)
7602       b(11)=ccc*(4*w1*(2*fmc*hbcm2*p6p7+3*hbcm*p3p4*p6p7-4*hbcm*p3p6*
7603      . p4p7)+4*w2*(2*fmb*hbcm2*p6p7+3*hbcm*p3p5*p6p7-4*hbcm*p3p7*p5p6
7604      . )-16*fb3*hbcm*p6p7)
7605       b(12)=ccc*(8*w1*(hbcm2*p4p6*p7p8-2*hbcm2*p4p7*p6p8+hbcm2*p4p8*
7606      . p6p7)+8*hbcm2*p5p8*p6p7*w2)
7607       b(13)=6*ccc*(-hbcm*p4p8*w1-hbcm*p5p8*w2)
7608       b(14)=ccc*(6*w1*(-fmc*hbcm-p3p4)+6*w2*(fmb*hbcm+p3p5)+24*fb4)
7609       b(15)=6*ccc*(-hbcm2*p4p8*w1-hbcm2*p5p8*w2)
7610       b(16)=ccc*(6*w1*(fmc*hbcm2+hbcm*p3p4)+6*w2*(fmb*hbcm2+hbcm*p3p5
7611      . )-24*fb3*hbcm)
7612       do 200 n=1,16
7613          c(n,1)=c(n,1)-0.8181818181818182d0*b(n)
7614          c(n,2)=c(n,2)+0.9833321660356334d0*b(n)
7615 200   continue
7616       return
7617         end
7618
7619       subroutine amp28_3p1(cc)
7620       implicit double precision(a-h,o-z)
7621       implicit integer (i-n)
7622       dimension b(32)
7623 #include "inclcon.h"
7624 #include "inclppp.h"
7625 #include "inclamp.h"
7626       do 100 n=1,32
7627          b(n)=0.0d0
7628 100   continue
7629       ccc=cc/((-2*ffmcfmb*p2p3)*(-2*ffmcfmb*p3p5+fmb2-2*fmc*hbcm+fmc2
7630      . +hbcm2+2*p3p5)*(-2*ffmcfmb*p2p3+2*ffmcfmb*p3p4+2*fmc2-2*p2p4))
7631       b(1)=ccc*(w11*(8*(p3p6*p2p4)*(4*fmc-hbcm)+8*(-hbcm*p1p2*p4p6+
7632      . hbcm*p2p3*p4p6+4*hbcm*p2p4*p4p6-3*hbcm*p2p4*p5p6+hbcm*p2p5*
7633      . p4p6))+w2*(8*(p3p6*p2p5)*(2*fmc-hbcm)+8*(p5p6*p2p3)*(-fmc+2*
7634      . hbcm)+8*(hbcm*p2p5*p4p6+hbcm*p2p5*p5p6))+(32*p5p6*(fb3*fmc+fb4
7635      . *fmc)+64*p4p6*(-fb3*fmc-fb4*fmc)+32*p3p6*(-fb3*ffmcfmb*fmc-fb4
7636      . *ffmcfmb*fmc)))
7637       ans2=((p5p6*p3p7)*(-32*fb4*ffmcfmb-4)+(p4p6*p3p7)*(96*fb4*
7638      . ffmcfmb+12)+(p3p7*p3p6)*(32*fb4*ffmcfmb+4)+(p6p7*p2p3)*(-32*
7639      . fb4*ffmcfmb+32*fb4-4)+32*p6p7*(fb3*fmb*fmc-fb3*fmc*hbcm+fb3*
7640      . fmc2+fb4*fmb*fmc-fb4*fmc*hbcm+fb4*fmc2)+32*(fb4*p1p2*p6p7-fb4*
7641      . p2p4*p6p7+fb4*p2p5*p6p7))
7642       ans1=w7*(8*p6p7*(-ffmcfmb*p2p3s2+p2p3s2)+8*(ffmcfmb*p2p3*p3p6*
7643      . p3p7+3*ffmcfmb*p2p3*p3p7*p4p6-ffmcfmb*p2p3*p3p7*p5p6+p1p2*p2p3
7644      . *p6p7-p2p3*p2p4*p6p7+p2p3*p2p5*p6p7))+w11*(8*(p6p7*p2p3)*(-fmc
7645      . *hbcm+fmc2)+8*(p6p7*p2p4)*(-2*fmb*hbcm-fmc*hbcm+2*hbcm2)+8*(
7646      . p4p6*p3p7)*(fmb*fmc-fmc*hbcm-3*fmc2)+8*p6p7*(-ffmcfmb*p2p3s2+
7647      . p2p3s2)+(p6p7*p3p4*p2p3)*(8*ffmcfmb-8)+8*(-2*ffmcfmb*fmc2*p3p6
7648      . *p3p7+ffmcfmb*p2p3*p3p6*p3p7+3*ffmcfmb*p2p3*p3p7*p4p6-ffmcfmb*
7649      . p2p3*p3p7*p5p6-ffmcfmb*p3p4*p3p6*p3p7-3*ffmcfmb*p3p4*p3p7*p4p6
7650      . +ffmcfmb*p3p4*p3p7*p5p6-fmc*hbcm*p1p2*p6p7-fmc*hbcm*p2p5*p6p7+
7651      . 2*fmc2*p3p7*p5p6+p1p2*p2p3*p6p7-p1p2*p3p4*p6p7-p2p3*p2p4*p6p7+
7652      . p2p3*p2p5*p6p7+p2p4*p3p4*p6p7-p2p5*p3p4*p6p7))+w2*(16*(p5p6*
7653      . p3p7)*(-fmc*hbcm+fmc2)+8*(p6p7*p2p3)*(-fmb*fmc+fmb*hbcm)+(p6p7
7654      . *p3p5*p2p3)*(-8*ffmcfmb+8)+8*(2*ffmcfmb*fmb*fmc*p3p6*p3p7+
7655      . ffmcfmb*p3p5*p3p6*p3p7+3*ffmcfmb*p3p5*p3p7*p4p6-ffmcfmb*p3p5*
7656      . p3p7*p5p6+4*fmb*fmc*p3p7*p4p6+fmb*hbcm*p1p2*p6p7-fmb*hbcm*p2p4
7657      . *p6p7+fmb*hbcm*p2p5*p6p7+p1p2*p3p5*p6p7-p2p4*p3p5*p6p7+p2p5*
7658      . p3p5*p6p7))+ans2
7659       ans=ccc*ans1
7660       b(2)=ans
7661       ans3=(8*(p6p8*p3p7)*(-8*fb4*ffmcfmb*fmb+8*fb4*ffmcfmb*fmc-8*fb4
7662      . *fmc-fmb+hbcm)+64*(p6p7*p5p8)*(fb3*fmc+fb4*fmc)+64*(p6p8*p5p7)
7663      . *(-fb3*fmc-fb4*fmc)+32*(p7p8*p5p6)*(-fb3*fmc-fb4*fmc)+8*(p7p8*
7664      . p4p6)*(12*fb3*fmc+12*fb4*fmc-hbcm)+8*(p7p8*p3p6)*(4*fb3*fmc+4*
7665      . fb4*fmc+fmc-hbcm)+4*(p6p7*p2p8)*(-16*fb3*fmc+16*fb3*hbcm-16*
7666      . fb4*fmb-5*hbcm))
7667       ans2=w11*(16*(p4p6*p3p7*p2p8)*(fmc+hbcm)+16*(p6p8*p3p7*p2p4)*(-
7668      . fmc+2*hbcm)+8*(p6p7*p4p8*p2p3)*(-fmc+2*hbcm)+16*(p6p8*p4p7*
7669      . p2p3)*(fmc-2*hbcm)+16*(p6p7*p3p4*p2p8)*(fmb-fmc)+8*(p6p7*p2p8*
7670      . p2p3)*(-2*fmb+fmc)+16*(p6p8*p3p7)*(fmb*fmc2-fmc2*hbcm)+16*(
7671      . p6p7*p2p8)*(fmb*fmc*hbcm-fmc*hbcm2)+16*(p6p8*p3p7*p3p4)*(
7672      . ffmcfmb*fmb-ffmcfmb*fmc)+16*(p6p8*p3p7*p2p3)*(-ffmcfmb*fmb+
7673      . ffmcfmb*fmc-fmc)+16*(ffmcfmb*fmc*p2p8*p3p6*p3p7+ffmcfmb*fmc*
7674      . p3p6*p3p7*p4p8+fmc*p1p4*p3p7*p6p8-fmc*p1p8*p3p7*p4p6-2*fmc*
7675      . p2p4*p3p6*p7p8-2*fmc*p2p5*p3p7*p6p8+2*fmc*p2p8*p3p6*p4p7-fmc*
7676      . p2p8*p3p7*p5p6+fmc*p3p7*p4p5*p6p8+fmc*p3p7*p4p6*p4p8+fmc*p3p7*
7677      . p4p6*p5p8-fmc*p3p7*p4p8*p5p6+hbcm*p1p2*p4p6*p7p8+hbcm*p1p4*
7678      . p2p8*p6p7-hbcm*p2p3*p4p6*p7p8+hbcm*p2p4*p2p8*p6p7-3*hbcm*p2p4*
7679      . p4p6*p7p8+2*hbcm*p2p4*p5p6*p7p8+2*hbcm*p2p4*p5p7*p6p8-2*hbcm*
7680      . p2p4*p5p8*p6p7-hbcm*p2p5*p2p8*p6p7-hbcm*p2p5*p4p6*p7p8-2*hbcm*
7681      . p2p5*p4p7*p6p8+hbcm*p2p5*p4p8*p6p7+hbcm*p2p8*p4p5*p6p7+3*hbcm*
7682      . p2p8*p4p6*p4p7+hbcm*p2p8*p4p6*p5p7-2*hbcm*p2p8*p4p7*p5p6))+
7683      . ans3
7684       ans1=w2*(32*(p5p6*p3p7*p2p8)*(-fmc+hbcm)+16*(p5p7*p3p6*p2p8)*(2
7685      . *fmc-hbcm)+16*(p7p8*p3p6*p2p5)*(-2*fmc+hbcm)+8*(p6p7*p5p8*p2p3
7686      . )*(-fmc+2*hbcm)+16*(p7p8*p5p6*p2p3)*(fmc-2*hbcm)+16*(p6p7*p3p5
7687      . *p2p8)*(-fmb+fmc-hbcm)+16*(p6p8*p3p7)*(-fmb*fmc*hbcm+fmb*fmc2-
7688      . fmb2*fmc)+16*(p6p7*p2p8)*(fmb*fmc*hbcm-fmb*hbcm2-fmb2*hbcm)+16
7689      . *(p6p8*p3p7*p3p5)*(-ffmcfmb*fmb+ffmcfmb*fmc-fmc)+16*(ffmcfmb*
7690      . fmc*p3p6*p3p7*p5p8+2*fmc*p3p7*p4p6*p5p8+fmc*p3p7*p5p6*p5p8-
7691      . hbcm*p2p5*p4p6*p7p8-hbcm*p2p5*p5p6*p7p8+hbcm*p2p5*p5p8*p6p7+
7692      . hbcm*p2p8*p4p6*p5p7+hbcm*p2p8*p5p6*p5p7))+w7*(8*(p6p7*p2p8*
7693      . p2p3)*(-2*fmb+fmc)+16*(p6p8*p3p7*p2p3)*(-ffmcfmb*fmb+ffmcfmb*
7694      . fmc-fmc)+16*(ffmcfmb*fmc*p2p8*p3p6*p3p7-2*fmc*p2p5*p3p7*p6p8+2
7695      . *fmc*p2p8*p3p7*p4p6-fmc*p2p8*p3p7*p5p6-hbcm*p2p5*p2p8*p6p7))+
7696      . ans2
7697       ans=ccc*ans1
7698       b(3)=ans
7699       ans=ccc*(w2*(12*p3p7*(-fmb*fmc*hbcm+fmb*fmc2-fmb2*fmc)+4*(p3p7*
7700      . p3p5)*(-3*ffmcfmb*fmb+5*ffmcfmb*fmc-3*fmc)+8*(fmc*p1p5*p3p7-
7701      . fmc*p2p5*p3p7+fmc*p3p7*p4p5))+w7*(4*(p3p7*p2p3)*(-3*ffmcfmb*
7702      . fmb+5*ffmcfmb*fmc-3*fmc)+8*(fmc*p1p2*p3p7+fmc*p2p4*p3p7-3*fmc*
7703      . p2p5*p3p7))+w11*(8*(p4p7*p2p3)*(fmc-3*hbcm)+12*p3p7*(fmb*fmc2-
7704      . fmc2*hbcm-fmc3)+4*(p3p7*p3p4)*(3*ffmcfmb*fmb-5*ffmcfmb*fmc-fmc
7705      . )+4*(p3p7*p2p3)*(-3*ffmcfmb*fmb+5*ffmcfmb*fmc-3*fmc)+8*(fmc*
7706      . p1p2*p3p7+fmc*p1p4*p3p7-3*fmc*p2p5*p3p7+fmc*p3p7*p4p5+hbcm*
7707      . p1p2*p4p7+3*hbcm*p2p4*p3p7+3*hbcm*p2p4*p5p7-3*hbcm*p2p5*p4p7))
7708      . +(48*p5p7*(-fb3*fmc-fb4*fmc)+16*p4p7*(fb3*fmc+fb4*fmc)+2*p3p7*
7709      . (8*fb3*ffmcfmb*fmc-24*fb4*ffmcfmb*fmb+32*fb4*ffmcfmb*fmc-24*
7710      . fb4*fmc-3*fmb+3*fmc+3*hbcm)))
7711       b(4)=ans
7712       ans3=((p5p8*p3p7)*(-96*fb4*ffmcfmb-12)+(p4p8*p3p7)*(32*fb4*
7713      . ffmcfmb+4)+(p3p7*p2p8)*(96*fb4*ffmcfmb-96*fb4+12)+(p7p8*p2p3)*
7714      . (-32*fb4*ffmcfmb+96*fb4-4)+(p3p7*p1p8)*(32*fb4*ffmcfmb+4)+6*
7715      . p7p8*(8*fb3*fmb*fmc-8*fb3*fmc*hbcm+8*fb3*fmc2+8*fb4*fmb*fmc-8*
7716      . fb4*fmc*hbcm+8*fb4*fmc2-fmb*hbcm-fmc*hbcm+hbcm2)+32*(-fb4*p1p2
7717      . *p7p8-fb4*p2p4*p7p8+3*fb4*p2p5*p7p8+fb4*p2p8*p4p7-3*fb4*p2p8*
7718      . p5p7))
7719       ans2=w11*(8*(p7p8*p2p3)*(-3*fmc*hbcm+fmc2)+8*(p4p7*p2p8)*(3*fmb
7720      . *hbcm+2*fmc*hbcm-3*hbcm2)+8*(p7p8*p2p4)*(-3*fmb*hbcm-2*fmc*
7721      . hbcm+3*hbcm2)+4*(p4p8*p3p7)*(3*fmb*fmc-3*fmc*hbcm+fmc2)+12*(
7722      . p3p7*p2p8)*(fmb*fmc+fmc*hbcm-fmc2)+(p3p7*p3p4*p2p8)*(-24*
7723      . ffmcfmb+24)+8*p7p8*(-ffmcfmb*p2p3s2+3*p2p3s2)+(p7p8*p3p4*p2p3)
7724      . *(8*ffmcfmb-24)+(p3p7*p2p8*p2p3)*(24*ffmcfmb-24)+8*(ffmcfmb*
7725      . p1p8*p2p3*p3p7-ffmcfmb*p1p8*p3p4*p3p7+ffmcfmb*p2p3*p3p7*p4p8-3
7726      . *ffmcfmb*p2p3*p3p7*p5p8-ffmcfmb*p3p4*p3p7*p4p8+3*ffmcfmb*p3p4*
7727      . p3p7*p5p8+fmc*hbcm*p1p2*p7p8-3*fmc*hbcm*p2p5*p7p8+3*fmc*hbcm*
7728      . p2p8*p5p7-fmc2*p1p8*p3p7+3*fmc2*p3p7*p5p8-p1p2*p2p3*p7p8+p1p2*
7729      . p3p4*p7p8-p2p3*p2p4*p7p8+3*p2p3*p2p5*p7p8+p2p3*p2p8*p4p7-3*
7730      . p2p3*p2p8*p5p7+p2p4*p3p4*p7p8-3*p2p5*p3p4*p7p8-p2p8*p3p4*p4p7+
7731      . 3*p2p8*p3p4*p5p7))+ans3
7732       ans1=w2*(12*(p5p8*p3p7)*(-fmb*fmc-fmc*hbcm+fmc2)+24*(p3p7*p2p8)
7733      . *(fmb*fmc-fmb*hbcm)+8*(p7p8*p2p3)*(-fmb*fmc+3*fmb*hbcm)+(p3p7*
7734      . p3p5*p2p8)*(24*ffmcfmb-24)+(p7p8*p3p5*p2p3)*(-8*ffmcfmb+24)+8*
7735      . (ffmcfmb*p1p8*p3p5*p3p7+ffmcfmb*p3p5*p3p7*p4p8-3*ffmcfmb*p3p5*
7736      . p3p7*p5p8+fmb*fmc*p1p8*p3p7+fmb*fmc*p3p7*p4p8-fmb*hbcm*p1p2*
7737      . p7p8-fmb*hbcm*p2p4*p7p8+3*fmb*hbcm*p2p5*p7p8+fmb*hbcm*p2p8*
7738      . p4p7-3*fmb*hbcm*p2p8*p5p7-p1p2*p3p5*p7p8-p2p4*p3p5*p7p8+3*p2p5
7739      . *p3p5*p7p8+p2p8*p3p5*p4p7-3*p2p8*p3p5*p5p7))+w7*(12*(p3p7*p2p8
7740      . )*(fmb*fmc-fmc*hbcm+fmc2)+8*p7p8*(-ffmcfmb*p2p3s2+3*p2p3s2)+(
7741      . p3p7*p2p8*p2p3)*(24*ffmcfmb-24)+8*(ffmcfmb*p1p8*p2p3*p3p7+
7742      . ffmcfmb*p2p3*p3p7*p4p8-3*ffmcfmb*p2p3*p3p7*p5p8-p1p2*p2p3*p7p8
7743      . -p2p3*p2p4*p7p8+3*p2p3*p2p5*p7p8+p2p3*p2p8*p4p7-3*p2p3*p2p8*
7744      . p5p7))+ans2
7745       ans=ccc*ans1
7746       b(5)=ans
7747       ans3=((p3p7*p3p5)*(96*fb4*ffmcfmb+12)+(p3p7*p3p4)*(-32*fb4*
7748      . ffmcfmb-4)+(p3p7*p2p3)*(-64*fb4*ffmcfmb-8)+(p3p7*p1p3)*(-32*
7749      . fb4*ffmcfmb-4)+2*p3p7*(8*fb3*fmc2-24*fb4*fmb*fmc+24*fb4*fmc*
7750      . hbcm-32*fb4*fmc2+3*fmb*hbcm+5*fmc*hbcm+3*hbcm2)+48*p5p7*(-fb3*
7751      . fmc*hbcm-fb4*fmc*hbcm)+16*p4p7*(fb3*fmc*hbcm+fb4*fmc*hbcm)+32*
7752      . (fb4*p1p2*p3p7-fb4*p2p3*p4p7+3*fb4*p2p3*p5p7+fb4*p2p4*p3p7-3*
7753      . fb4*p2p5*p3p7))
7754       ans2=w11*(8*(p3p7*p2p4)*(3*fmb*hbcm+2*fmc*hbcm)+8*(p4p7*p2p3)*(
7755      . -3*fmb*hbcm-fmc*hbcm)+4*(p3p7*p3p4)*(-3*fmb*fmc-fmc*hbcm-fmc2)
7756      . +4*(p3p7*p2p3)*(-3*fmb*fmc+3*fmc*hbcm+fmc2)+4*p3p7*(-4*ffmcfmb
7757      . *p2p3s2+2*ffmcfmb*p3p4s2-3*fmb*fmc2*hbcm-3*fmc2*hbcm2-fmc3*
7758      . hbcm)+8*(-ffmcfmb*p1p3*p2p3*p3p7+ffmcfmb*p1p3*p3p4*p3p7+
7759      . ffmcfmb*p2p3*p3p4*p3p7+3*ffmcfmb*p2p3*p3p5*p3p7-3*ffmcfmb*p3p4
7760      . *p3p5*p3p7+fmc*hbcm*p1p4*p3p7-3*fmc*hbcm*p2p3*p5p7+fmc*hbcm*
7761      . p3p7*p4p5+fmc2*p1p3*p3p7-3*fmc2*p3p5*p3p7+hbcm2*p1p2*p4p7+3*
7762      . hbcm2*p2p4*p5p7-3*hbcm2*p2p5*p4p7+p1p2*p2p3*p3p7-p1p2*p3p4*
7763      . p3p7+p2p3*p2p4*p3p7-3*p2p3*p2p5*p3p7+p2p3*p3p4*p4p7-3*p2p3*
7764      . p3p4*p5p7-p2p3s2*p4p7+3*p2p3s2*p5p7-p2p4*p3p4*p3p7+3*p2p5*p3p4
7765      . *p3p7))+ans3
7766       ans1=w2*(8*(p3p7*p2p5)*(-3*fmb*hbcm-fmc*hbcm)+12*(p3p7*p3p5)*(
7767      . fmb*fmc+fmc*hbcm-fmc2)+4*p3p7*(6*ffmcfmb*p3p5s2+3*fmb*fmc*
7768      . hbcm2-5*fmb*fmc2*hbcm-3*fmb2*fmc*hbcm)+8*(-ffmcfmb*p1p3*p3p5*
7769      . p3p7-2*ffmcfmb*p2p3*p3p5*p3p7-ffmcfmb*p3p4*p3p5*p3p7-fmb*fmc*
7770      . p1p3*p3p7-2*fmb*fmc*p2p3*p3p7-fmb*fmc*p3p4*p3p7+fmb*hbcm*p1p2*
7771      . p3p7-fmb*hbcm*p2p3*p4p7+3*fmb*hbcm*p2p3*p5p7+fmb*hbcm*p2p4*
7772      . p3p7+fmc*hbcm*p1p5*p3p7+fmc*hbcm*p3p7*p4p5+p1p2*p3p5*p3p7-p2p3
7773      . *p3p5*p4p7+3*p2p3*p3p5*p5p7+p2p4*p3p5*p3p7-3*p2p5*p3p5*p3p7))+
7774      . w7*(12*(p3p7*p2p3)*(-fmb*fmc+fmc*hbcm-fmc2)+8*(-ffmcfmb*p1p3*
7775      . p2p3*p3p7-ffmcfmb*p2p3*p3p4*p3p7+3*ffmcfmb*p2p3*p3p5*p3p7-2*
7776      . ffmcfmb*p2p3s2*p3p7+fmc*hbcm*p1p2*p3p7+fmc*hbcm*p2p4*p3p7-3*
7777      . fmc*hbcm*p2p5*p3p7+p1p2*p2p3*p3p7+p2p3*p2p4*p3p7-3*p2p3*p2p5*
7778      . p3p7-p2p3s2*p4p7+3*p2p3s2*p5p7))+ans2
7779       ans=ccc*ans1
7780       b(6)=ans
7781       ans4=8*(-fmc*hbcm2*p1p2*p7p8+3*fmc*hbcm2*p2p5*p7p8-3*fmc*hbcm2*
7782      . p2p8*p5p7-fmc*p1p3*p2p8*p3p7-fmc*p1p3*p3p7*p4p8+fmc*p1p8*p2p3*
7783      . p3p7+fmc*p1p8*p3p4*p3p7-fmc*p2p3*p3p7*p4p8-3*fmc*p2p3*p3p7*
7784      . p5p8+3*fmc*p2p8*p3p5*p3p7-3*fmc*p3p4*p3p7*p5p8+3*fmc*p3p5*p3p7
7785      . *p4p8+fmc2*hbcm*p1p8*p3p7-3*fmc2*hbcm*p3p7*p5p8+hbcm*p1p2*p2p3
7786      . *p7p8-hbcm*p1p2*p2p8*p3p7-hbcm*p1p2*p3p4*p7p8+hbcm*p1p2*p3p7*
7787      . p4p8+2*hbcm*p1p3*p2p4*p7p8-2*hbcm*p1p3*p2p8*p4p7+2*hbcm*p1p4*
7788      . p2p3*p7p8-2*hbcm*p1p4*p2p8*p3p7+2*hbcm*p1p8*p2p3*p4p7-2*hbcm*
7789      . p1p8*p2p4*p3p7+5*hbcm*p2p3*p2p4*p7p8-3*hbcm*p2p3*p2p5*p7p8+2*
7790      . hbcm*p2p3*p4p5*p7p8+hbcm*p2p3*p4p7*p4p8-6*hbcm*p2p3*p4p7*p5p8+
7791      . 3*hbcm*p2p3*p4p8*p5p7-5*hbcm*p2p4*p2p8*p3p7+hbcm*p2p4*p3p4*
7792      . p7p8-6*hbcm*p2p4*p3p5*p7p8-hbcm*p2p4*p3p7*p4p8+6*hbcm*p2p4*
7793      . p3p7*p5p8+3*hbcm*p2p5*p2p8*p3p7+3*hbcm*p2p5*p3p4*p7p8-3*hbcm*
7794      . p2p5*p3p7*p4p8-hbcm*p2p8*p3p4*p4p7-3*hbcm*p2p8*p3p4*p5p7+6*
7795      . hbcm*p2p8*p3p5*p4p7-2*hbcm*p2p8*p3p7*p4p5)
7796       ans3=8*(p3p7*p3p4*p2p8)*(-3*fmb+7*fmc-2*hbcm)+8*p7p8*(-3*fmb*
7797      . p2p3s2+4*fmc*p2p3s2)+8*(p7p8*p3p4*p2p3)*(3*fmb-6*fmc+2*hbcm)+8
7798      . *(p3p7*p2p8*p2p3)*(3*fmb-4*fmc)+8*(p4p7*p2p8)*(3*fmb*hbcm2-4*
7799      . fmc*hbcm2+3*hbcm3)+8*(p7p8*p2p4)*(-3*fmb*hbcm2+4*fmc*hbcm2-3*
7800      . hbcm3)+12*(p4p8*p3p7)*(fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+4*(
7801      . p3p7*p2p8)*(-3*fmb*fmc*hbcm+3*fmc*hbcm2+7*fmc2*hbcm)+8*(p7p8*
7802      . p2p3)*(3*fmb*fmc*hbcm-4*fmc2*hbcm)+ans4
7803       ans2=w11*ans3
7804       ans6=(12*(p5p8*p3p7)*(-8*fb4*fmc+hbcm)+4*(p4p8*p3p7)*(8*fb4*fmc
7805      . -hbcm)+4*(p3p7*p1p8)*(8*fb4*fmc-hbcm)+12*(p7p8*p3p5)*(8*fb3*
7806      . fmc+8*fb4*fmc-hbcm)+4*(p7p8*p3p4)*(-8*fb3*fmc-8*fb4*fmc+hbcm)+
7807      . 32*(p3p7*p2p8)*(-fb3*fmc+3*fb4*fmb-fb4*fmc)+32*(p7p8*p2p3)*(-
7808      . fb3*fmc-3*fb4*fmb+fb4*fmc)+4*(p7p8*p1p3)*(-8*fb3*fmc-8*fb4*fmc
7809      . +hbcm)+2*p7p8*(24*fb3*fmb*fmc*hbcm+24*fb3*fmc*hbcm2-40*fb3*
7810      . fmc2*hbcm+24*fb4*fmb*fmc*hbcm+24*fb4*fmc*hbcm2-40*fb4*fmc2*
7811      . hbcm-3*fmb*hbcm2+5*fmc*hbcm2-3*hbcm3)+32*(fb3*hbcm*p1p2*p7p8+
7812      . fb3*hbcm*p2p4*p7p8-3*fb3*hbcm*p2p5*p7p8-fb3*hbcm*p2p8*p4p7+3*
7813      . fb3*hbcm*p2p8*p5p7))
7814       ans5=w2*(8*(p3p7*p3p5*p2p8)*(3*fmb-2*fmc)+8*(p7p8*p3p5*p2p3)*(-
7815      . 3*fmb+4*fmc)+4*(p5p8*p3p7)*(-3*fmb*fmc*hbcm+3*fmc*hbcm2-5*fmc2
7816      . *hbcm)+8*(p7p8*p2p3)*(2*fmb*fmc*hbcm-3*fmb2*hbcm)+8*(fmb*fmc*
7817      . hbcm*p1p8*p3p7+fmb*fmc*hbcm*p3p7*p4p8-fmb*hbcm2*p1p2*p7p8-fmb*
7818      . hbcm2*p2p4*p7p8+3*fmb*hbcm2*p2p5*p7p8+fmb*hbcm2*p2p8*p4p7-3*
7819      . fmb*hbcm2*p2p8*p5p7+3*fmb2*hbcm*p2p8*p3p7-fmc*p1p3*p3p7*p5p8+
7820      . fmc*p1p8*p3p5*p3p7-2*fmc*p2p3*p3p7*p5p8-fmc*p3p4*p3p7*p5p8+fmc
7821      . *p3p5*p3p7*p4p8-hbcm*p1p2*p3p5*p7p8+hbcm*p1p2*p3p7*p5p8+2*hbcm
7822      . *p1p5*p2p3*p7p8-2*hbcm*p1p5*p2p8*p3p7-2*hbcm*p2p3*p2p5*p7p8+2*
7823      . hbcm*p2p3*p4p5*p7p8-hbcm*p2p3*p4p7*p5p8+3*hbcm*p2p3*p5p7*p5p8-
7824      . hbcm*p2p4*p3p5*p7p8+hbcm*p2p4*p3p7*p5p8+2*hbcm*p2p5*p2p8*p3p7+
7825      . 3*hbcm*p2p5*p3p5*p7p8-3*hbcm*p2p5*p3p7*p5p8+hbcm*p2p8*p3p5*
7826      . p4p7-3*hbcm*p2p8*p3p5*p5p7-2*hbcm*p2p8*p3p7*p4p5))+ans6
7827       ans1=w7*(8*p7p8*(-3*fmb*p2p3s2+4*fmc*p2p3s2)+8*(p3p7*p2p8*p2p3)
7828      . *(3*fmb-4*fmc)+4*(p3p7*p2p8)*(3*fmb*fmc*hbcm+3*fmc*hbcm2-5*
7829      . fmc2*hbcm)+8*(-fmc*p1p3*p2p8*p3p7+fmc*p1p8*p2p3*p3p7+fmc*p2p3*
7830      . p3p7*p4p8-3*fmc*p2p3*p3p7*p5p8-fmc*p2p8*p3p4*p3p7+3*fmc*p2p8*
7831      . p3p5*p3p7+hbcm*p1p2*p2p3*p7p8-hbcm*p1p2*p2p8*p3p7+hbcm*p2p3*
7832      . p2p4*p7p8-3*hbcm*p2p3*p2p5*p7p8-hbcm*p2p4*p2p8*p3p7+3*hbcm*
7833      . p2p5*p2p8*p3p7))+ans2+ans5
7834       ans=ccc*ans1
7835       b(7)=ans
7836       ans2=((p3p6*p2p8)*(-64*fb4*ffmcfmb-8)+(p6p8*p2p3)*(-32*fb4*
7837      . ffmcfmb+32*fb4-4)+32*p6p8*(fb3*fmb*fmc-fb3*fmc*hbcm+fb3*fmc2+
7838      . fb4*fmb*fmc-fb4*fmc*hbcm+fb4*fmc2)+32*(fb4*p1p2*p6p8-fb4*p2p4*
7839      . p6p8+fb4*p2p5*p6p8-4*fb4*p2p8*p4p6+2*fb4*p2p8*p5p6))
7840       ans1=w2*(8*(p5p6*p2p8)*(fmb*hbcm-2*fmc*hbcm+2*hbcm2)+8*(p3p6*
7841      . p2p8)*(-4*fmb*fmc+fmb*hbcm)+8*(p6p8*p2p3)*(-fmb*fmc+fmb*hbcm)+
7842      . (p6p8*p3p5*p2p3)*(-8*ffmcfmb+8)+8*(-2*ffmcfmb*p2p8*p3p5*p3p6+
7843      . fmb*hbcm*p1p2*p6p8-fmb*hbcm*p2p4*p6p8+fmb*hbcm*p2p5*p6p8-5*fmb
7844      . *hbcm*p2p8*p4p6+p1p2*p3p5*p6p8-p2p4*p3p5*p6p8+p2p5*p3p5*p6p8-4
7845      . *p2p8*p3p5*p4p6+2*p2p8*p3p5*p5p6))+w7*(8*p6p8*(-ffmcfmb*p2p3s2
7846      . +p2p3s2)+8*(-2*ffmcfmb*p2p3*p2p8*p3p6+p1p2*p2p3*p6p8-p2p3*p2p4
7847      . *p6p8+p2p3*p2p5*p6p8-4*p2p3*p2p8*p4p6+2*p2p3*p2p8*p5p6))+w11*(
7848      . 8*(p3p6*p2p8)*(-fmc*hbcm+4*fmc2)+8*(p6p8*p2p3)*(-fmc*hbcm+fmc2
7849      . )+8*(p4p6*p2p8)*(-fmb*hbcm+4*fmc*hbcm+hbcm2)+8*(p6p8*p2p4)*(-2
7850      . *fmb*hbcm-fmc*hbcm+2*hbcm2)+8*p6p8*(-ffmcfmb*p2p3s2+p2p3s2)+(
7851      . p6p8*p3p4*p2p3)*(8*ffmcfmb-8)+8*(-2*ffmcfmb*p2p3*p2p8*p3p6+2*
7852      . ffmcfmb*p2p8*p3p4*p3p6-fmc*hbcm*p1p2*p6p8-fmc*hbcm*p2p5*p6p8-3
7853      . *fmc*hbcm*p2p8*p5p6+p1p2*p2p3*p6p8-p1p2*p3p4*p6p8-p2p3*p2p4*
7854      . p6p8+p2p3*p2p5*p6p8-4*p2p3*p2p8*p4p6+2*p2p3*p2p8*p5p6+p2p4*
7855      . p3p4*p6p8-p2p5*p3p4*p6p8+4*p2p8*p3p4*p4p6-2*p2p8*p3p4*p5p6))+
7856      . ans2
7857       ans=ccc*ans1
7858       b(8)=ans
7859       ans2=((p3p6*p2p3)*(96*fb4*ffmcfmb-64*fb4+12)+16*p5p6*(fb3*fmc*
7860      . hbcm+fb4*fmc*hbcm)+48*p4p6*(-fb3*fmc*hbcm-fb4*fmc*hbcm)+16*
7861      . p3p6*(-2*fb3*fmb*fmc+fb3*fmc*hbcm-2*fb3*fmc2-2*fb4*fmb*fmc+fb4
7862      . *fmc*hbcm-2*fb4*fmc2)+64*(2*fb4*p2p3*p4p6-fb4*p2p3*p5p6-fb4*
7863      . p2p5*p3p6))
7864       ans1=w7*(8*p3p6*(3*ffmcfmb*p2p3s2-2*p2p3s2)+16*(-p2p3*p2p5*p3p6
7865      . +2*p2p3s2*p4p6-p2p3s2*p5p6))+w2*(8*(p3p6*p2p5)*(-2*fmb*hbcm+2*
7866      . fmc*hbcm-hbcm2)+8*(p5p6*p2p3)*(-fmb*hbcm+fmc*hbcm)+8*(p3p6*
7867      . p2p3)*(5*fmb*fmc-3*fmb*hbcm)+(p3p6*p3p5*p2p3)*(24*ffmcfmb-16)+
7868      . 8*(5*fmb*hbcm*p2p3*p4p6+hbcm2*p2p5*p4p6+hbcm2*p2p5*p5p6+4*p2p3
7869      . *p3p5*p4p6-2*p2p3*p3p5*p5p6-2*p2p5*p3p5*p3p6))+w11*(8*(p3p6*
7870      . p2p3)*(3*fmc*hbcm-5*fmc2)+16*(p3p6*p2p4)*(fmb*hbcm+2*fmc*hbcm-
7871      . hbcm2)+8*(p4p6*p2p3)*(fmb*hbcm-4*fmc*hbcm)+8*p3p6*(3*ffmcfmb*
7872      . p2p3s2-2*p2p3s2)+(p3p6*p3p4*p2p3)*(-24*ffmcfmb+16)+8*(3*fmc*
7873      . hbcm*p2p3*p5p6+2*fmc*hbcm*p2p5*p3p6-hbcm2*p1p2*p4p6+3*hbcm2*
7874      . p2p4*p4p6-2*hbcm2*p2p4*p5p6+hbcm2*p2p5*p4p6-2*p2p3*p2p5*p3p6-4
7875      . *p2p3*p3p4*p4p6+2*p2p3*p3p4*p5p6+4*p2p3s2*p4p6-2*p2p3s2*p5p6+2
7876      . *p2p5*p3p4*p3p6))+ans2
7877       ans=ccc*ans1
7878       b(9)=ans
7879       ans3=(64*(p5p8*p3p6)*(-fb3*fmc-fb4*fmc)+64*(p6p8*p3p5)*(fb3*fmc
7880      . +fb4*fmc)+4*(p3p6*p2p8)*(16*fb3*fmc-8*fb3*hbcm+16*fb4*fmb+5*
7881      . hbcm)+4*(p6p8*p2p3)*(-8*fb3*fmc-16*fb4*fmb-5*hbcm)+32*p6p8*(
7882      . fb3*fmb*fmc*hbcm+fb3*fmc*hbcm2-fb3*fmc2*hbcm+fb4*fmb*fmc*hbcm+
7883      . fb4*fmc*hbcm2-fb4*fmc2*hbcm)+32*(-2*fb3*hbcm*p2p5*p6p8+3*fb3*
7884      . hbcm*p2p8*p4p6-fb3*hbcm*p2p8*p5p6))
7885       ans2=w11*(8*(p4p8*p3p6*p2p3)*(5*fmc-3*hbcm)+8*(p3p6*p3p4*p2p8)*
7886      . (-2*fmb-2*fmc+hbcm)+8*p6p8*(-2*fmb*p2p3s2+fmc*p2p3s2)+8*(p6p8*
7887      . p3p4*p2p3)*(2*fmb-3*fmc+2*hbcm)+8*(p3p6*p2p8*p2p3)*(2*fmb-fmc)
7888      . +8*(p4p6*p2p8)*(-fmb*hbcm2-fmc*hbcm2-hbcm3)+16*(p6p8*p2p4)*(-
7889      . fmb*hbcm2+fmc*hbcm2-hbcm3)+16*(p3p6*p2p8)*(-fmb*fmc*hbcm+fmc*
7890      . hbcm2-fmc2*hbcm)+8*(p6p8*p2p3)*(2*fmb*fmc*hbcm-fmc2*hbcm)+8*(2
7891      . *fmc*hbcm2*p2p5*p6p8+2*fmc*hbcm2*p2p8*p5p6+2*hbcm*p1p3*p2p8*
7892      . p4p6+2*hbcm*p1p4*p2p3*p6p8-2*hbcm*p1p4*p2p8*p3p6-2*hbcm*p1p8*
7893      . p2p3*p4p6+2*hbcm*p2p3*p2p4*p6p8-2*hbcm*p2p3*p2p5*p6p8+2*hbcm*
7894      . p2p3*p4p5*p6p8+3*hbcm*p2p3*p4p6*p4p8+2*hbcm*p2p3*p4p6*p5p8-3*
7895      . hbcm*p2p3*p4p8*p5p6-2*hbcm*p2p4*p2p8*p3p6-4*hbcm*p2p4*p3p5*
7896      . p6p8+4*hbcm*p2p4*p3p6*p5p8+2*hbcm*p2p5*p2p8*p3p6+2*hbcm*p2p5*
7897      . p3p4*p6p8-2*hbcm*p2p5*p3p6*p4p8-3*hbcm*p2p8*p3p4*p4p6+3*hbcm*
7898      . p2p8*p3p4*p5p6-2*hbcm*p2p8*p3p5*p4p6-2*hbcm*p2p8*p3p6*p4p5))+
7899      . ans3
7900       ans1=w7*(8*p6p8*(-2*fmb*p2p3s2+fmc*p2p3s2)+8*(p3p6*p2p8*p2p3)*(
7901      . 2*fmb-fmc)+16*(-hbcm*p2p3*p2p5*p6p8+hbcm*p2p5*p2p8*p3p6))+w2*(
7902      . 8*(p5p8*p3p6*p2p3)*(5*fmc-3*hbcm)+16*(p5p6*p2p8)*(fmc*hbcm2-
7903      . hbcm3)+8*(p3p6*p3p5*p2p8)*(2*fmb-6*fmc+3*hbcm)+8*(p6p8*p3p5*
7904      . p2p3)*(-2*fmb+fmc)+16*(p3p6*p2p8)*(-2*fmb*fmc*hbcm+fmb*hbcm2+
7905      . fmb2*hbcm)+8*(p6p8*p2p3)*(fmb*fmc*hbcm-2*fmb2*hbcm)+8*(2*fmb*
7906      . hbcm2*p2p5*p6p8-4*fmb*hbcm2*p2p8*p4p6+5*hbcm*p2p3*p4p6*p5p8+
7907      . hbcm*p2p3*p5p6*p5p8+2*hbcm*p2p5*p3p5*p6p8-2*hbcm*p2p5*p3p6*
7908      . p5p8-5*hbcm*p2p8*p3p5*p4p6-hbcm*p2p8*p3p5*p5p6))+ans2
7909       ans=ccc*ans1
7910       b(10)=ans
7911       ans3=(32*(p5p6*p3p7)*(fb3*fmc+fb4*fmc)+8*(p4p6*p3p7)*(-4*fb3*
7912      . fmc-12*fb4*fmc+hbcm)+64*(p5p7*p3p6)*(fb3*fmc+fb4*fmc)+64*(p6p7
7913      . *p3p5)*(-fb3*fmc-fb4*fmc)+4*(p6p7*p2p3)*(8*fb3*fmc+16*fb4*fmb+
7914      . 5*hbcm)+32*p6p7*(-fb3*fmb*fmc*hbcm-fb3*fmc*hbcm2+fb3*fmc2*hbcm
7915      . -fb4*fmb*fmc*hbcm-fb4*fmc*hbcm2+fb4*fmc2*hbcm)+8*(p3p7*p3p6)*(
7916      . -8*fb3*ffmcfmb*fmc+4*fb3*fmc+8*fb4*ffmcfmb*fmb-8*fb4*ffmcfmb*
7917      . fmc+4*fb4*fmc+fmb-fmc)+64*fb3*hbcm*p2p5*p6p7)
7918       ans2=w11*(16*(p3p7*p3p6*p2p4)*(3*fmc-2*hbcm)+16*(p4p7*p3p6*p2p3
7919      . )*(-3*fmc+2*hbcm)+8*p6p7*(2*fmb*p2p3s2-fmc*p2p3s2)+8*(p6p7*
7920      . p3p4*p2p3)*(-2*fmb+3*fmc-2*hbcm)+16*(p6p7*p2p4)*(fmb*hbcm2-fmc
7921      . *hbcm2+hbcm3)+8*(p3p7*p3p6)*(-2*fmb*fmc2+fmc2*hbcm)+8*(p4p6*
7922      . p3p7)*(-fmb*fmc*hbcm-fmc*hbcm2)+8*(p6p7*p2p3)*(-2*fmb*fmc*hbcm
7923      . +fmc2*hbcm)+16*(p3p7*p3p6*p2p3)*(ffmcfmb*fmb-2*ffmcfmb*fmc+fmc
7924      . )+8*(-2*ffmcfmb*fmb*p3p4*p3p6*p3p7-2*fmc*hbcm2*p2p5*p6p7+2*fmc
7925      . *p1p3*p3p7*p4p6-2*fmc*p1p4*p3p6*p3p7-2*fmc*p2p3*p3p7*p4p6+2*
7926      . fmc*p2p3*p3p7*p5p6+4*fmc*p2p5*p3p6*p3p7-2*fmc*p3p4*p3p7*p4p6+2
7927      . *fmc*p3p4*p3p7*p5p6-2*fmc*p3p5*p3p7*p4p6-2*fmc*p3p6*p3p7*p4p5+
7928      . fmc2*hbcm*p3p7*p5p6-2*hbcm*p1p2*p3p7*p4p6-2*hbcm*p1p4*p2p3*
7929      . p6p7-2*hbcm*p2p3*p2p4*p6p7+2*hbcm*p2p3*p2p5*p6p7-2*hbcm*p2p3*
7930      . p4p5*p6p7-6*hbcm*p2p3*p4p6*p4p7-2*hbcm*p2p3*p4p6*p5p7+4*hbcm*
7931      . p2p3*p4p7*p5p6+4*hbcm*p2p4*p3p5*p6p7-4*hbcm*p2p4*p3p6*p5p7+6*
7932      . hbcm*p2p4*p3p7*p4p6-4*hbcm*p2p4*p3p7*p5p6-2*hbcm*p2p5*p3p4*
7933      . p6p7+4*hbcm*p2p5*p3p6*p4p7+2*hbcm*p2p5*p3p7*p4p6))+ans3
7934       ans1=w2*(16*(p3p7*p3p6*p2p5)*(2*fmc-hbcm)+16*(p5p7*p3p6*p2p3)*(
7935      . -2*fmc+hbcm)+8*(p6p7*p3p5*p2p3)*(2*fmb-fmc)+8*(p5p6*p3p7)*(-
7936      . fmb*fmc*hbcm-2*fmc*hbcm2+2*fmc2*hbcm)+8*(p3p7*p3p6)*(fmb*fmc*
7937      . hbcm-2*fmb*fmc2+2*fmb2*fmc)+8*(p6p7*p2p3)*(-fmb*fmc*hbcm+2*
7938      . fmb2*hbcm)+16*(p3p7*p3p6*p3p5)*(ffmcfmb*fmb-2*ffmcfmb*fmc+fmc)
7939      . +8*(-3*fmb*fmc*hbcm*p3p7*p4p6-2*fmb*hbcm2*p2p5*p6p7+2*fmc*p2p3
7940      . *p3p7*p5p6-4*fmc*p3p5*p3p7*p4p6-2*fmc*p3p5*p3p7*p5p6-2*hbcm*
7941      . p2p3*p4p6*p5p7-2*hbcm*p2p3*p5p6*p5p7-2*hbcm*p2p5*p3p5*p6p7+2*
7942      . hbcm*p2p5*p3p7*p4p6+2*hbcm*p2p5*p3p7*p5p6))+w7*(8*p6p7*(2*fmb*
7943      . p2p3s2-fmc*p2p3s2)+16*(p3p7*p3p6*p2p3)*(ffmcfmb*fmb-2*ffmcfmb*
7944      . fmc+fmc)+16*(-2*fmc*p2p3*p3p7*p4p6+fmc*p2p3*p3p7*p5p6+2*fmc*
7945      . p2p5*p3p6*p3p7+hbcm*p2p3*p2p5*p6p7))+ans2
7946       ans=ccc*ans1
7947       b(11)=ans
7948       ans7=2*p2p3s2*p5p8*p6p7-10*p2p8*p3p4*p3p7*p4p6+6*p2p8*p3p4*p3p7
7949      . *p5p6
7950       ans6=-4*ffmcfmb*p2p3*p3p5*p3p7*p6p8+4*ffmcfmb*p2p3*p3p6*p3p7*
7951      . p5p8+4*ffmcfmb*p3p4*p3p5*p3p7*p6p8-4*ffmcfmb*p3p4*p3p6*p3p7*
7952      . p5p8+4*fmb*hbcm*p2p3*p4p7*p6p8-2*fmc*hbcm*p1p4*p3p7*p6p8-2*fmc
7953      . *hbcm*p1p8*p2p3*p6p7+2*fmc*hbcm*p1p8*p3p7*p4p6+2*fmc*hbcm*p2p3
7954      . *p4p6*p7p8-2*fmc*hbcm*p2p3*p5p6*p7p8+2*fmc*hbcm*p2p3*p5p7*p6p8
7955      . -2*fmc*hbcm*p2p3*p5p8*p6p7+4*fmc*hbcm*p2p5*p3p7*p6p8+7*fmc*
7956      . hbcm*p2p8*p3p7*p5p6-2*fmc*hbcm*p3p7*p4p5*p6p8-fmc*hbcm*p3p7*
7957      . p4p6*p4p8-2*fmc*hbcm*p3p7*p4p6*p5p8+fmc*hbcm*p3p7*p4p8*p5p6+4*
7958      . fmc2*p3p5*p3p7*p6p8-4*fmc2*p3p6*p3p7*p5p8-2*hbcm2*p2p4*p4p6*
7959      . p7p8+2*hbcm2*p2p4*p5p6*p7p8-4*hbcm2*p2p4*p5p7*p6p8+4*hbcm2*
7960      . p2p4*p5p8*p6p7+2*hbcm2*p2p5*p2p8*p6p7+4*hbcm2*p2p5*p4p7*p6p8-2
7961      . *hbcm2*p2p5*p4p8*p6p7+2*hbcm2*p2p8*p4p6*p4p7-2*hbcm2*p2p8*p4p7
7962      . *p5p6-2*p1p8*p2p3*p3p4*p6p7+2*p1p8*p2p3s2*p6p7-2*p2p3*p2p8*
7963      . p3p4*p6p7+10*p2p3*p2p8*p3p7*p4p6-6*p2p3*p2p8*p3p7*p5p6+2*p2p3*
7964      . p3p4*p4p6*p7p8-2*p2p3*p3p4*p4p7*p6p8+2*p2p3*p3p4*p4p8*p6p7-2*
7965      . p2p3*p3p4*p5p6*p7p8+2*p2p3*p3p4*p5p7*p6p8-2*p2p3*p3p4*p5p8*
7966      . p6p7+2*p2p3s2*p2p8*p6p7-2*p2p3s2*p4p6*p7p8+2*p2p3s2*p4p7*p6p8-
7967      . 2*p2p3s2*p4p8*p6p7+2*p2p3s2*p5p6*p7p8-2*p2p3s2*p5p7*p6p8+ans7
7968       ans5=8*ans6
7969       ans4=16*(p4p7*p3p6*p2p8)*(2*fmc*hbcm-hbcm2)+16*(p6p8*p3p7*p2p4)
7970      . *(fmc*hbcm-2*hbcm2)+16*(p7p8*p3p6*p2p4)*(-2*fmc*hbcm+hbcm2)+16
7971      . *(p7p8*p3p6*p2p3)*(-fmc*hbcm+2*fmc2)+8*(p4p6*p3p7*p2p8)*(2*fmb
7972      . *hbcm-9*fmc*hbcm-2*hbcm2)+8*(p6p7*p4p8*p2p3)*(-2*fmb*hbcm+fmc*
7973      . hbcm)+8*(p6p7*p2p8*p2p3)*(2*fmb*hbcm-fmc*hbcm)+8*(p4p8*p3p7*
7974      . p3p6)*(-2*fmb*fmc+fmc*hbcm-2*fmc2)+16*(p6p8*p3p7*p3p4)*(fmb*
7975      . fmc+fmc2)+8*(p3p7*p3p6*p2p8)*(2*fmb*fmc+3*fmc*hbcm-10*fmc2)+16
7976      . *(p6p8*p3p7*p2p3)*(fmb*fmc-fmc2)+(p3p7*p3p6*p3p4*p2p8)*(-64*
7977      . ffmcfmb+16)+16*(p6p8*p3p7)*(2*ffmcfmb*p2p3s2+fmb*fmc2*hbcm+
7978      . fmc2*hbcm2-p2p3s2)+16*(p7p8*p3p6)*(-2*ffmcfmb*p2p3s2+p2p3s2)+(
7979      . p6p8*p3p7*p3p4*p2p3)*(-32*ffmcfmb+16)+(p7p8*p3p6*p3p4*p2p3)*(
7980      . 32*ffmcfmb-16)+(p3p7*p3p6*p2p8*p2p3)*(64*ffmcfmb-16)+ans5
7981       ans3=w11*ans4
7982       ans8=((p5p8*p3p7*p3p6)*(128*fb4*ffmcfmb+16)+(p6p8*p3p7*p3p5)*(-
7983      . 128*fb4*ffmcfmb-16)+(p3p7*p3p6*p2p8)*(256*fb4*ffmcfmb-64*fb4+
7984      . 32)+(p6p8*p3p7*p2p3)*(128*fb4*ffmcfmb-64*fb4+16)+(p7p8*p3p6*
7985      . p2p3)*(-128*fb4*ffmcfmb+64*fb4-16)+64*(p6p7*p5p8)*(-fb3*fmc*
7986      . hbcm-fb4*fmc*hbcm)+64*(p6p8*p5p7)*(fb3*fmc*hbcm+fb4*fmc*hbcm)+
7987      . 4*(p7p8*p5p6)*(-8*fb3*fmc*hbcm-8*fb4*fmc*hbcm+hbcm2)+4*(p7p8*
7988      . p4p6)*(8*fb3*fmc*hbcm+8*fb4*fmc*hbcm+hbcm2)+4*(p7p8*p3p6)*(-8*
7989      . fb3*fmc*hbcm+16*fb3*fmc2-8*fb4*fmc*hbcm+16*fb4*fmc2+2*fmb*hbcm
7990      . -2*fmc*hbcm+hbcm2)+8*(p6p8*p3p7)*(-8*fb3*fmb*fmc+8*fb3*fmc*
7991      . hbcm-8*fb3*fmc2-fmb*hbcm-fmc*hbcm-hbcm2)+4*(16*fb4*p1p8*p2p3*
7992      . p6p7+16*fb4*p2p3*p2p8*p6p7-16*fb4*p2p3*p4p6*p7p8+16*fb4*p2p3*
7993      . p4p7*p6p8-16*fb4*p2p3*p4p8*p6p7+16*fb4*p2p3*p5p6*p7p8-16*fb4*
7994      . p2p3*p5p7*p6p8+16*fb4*p2p3*p5p8*p6p7+80*fb4*p2p8*p3p7*p4p6-48*
7995      . fb4*p2p8*p3p7*p5p6-5*hbcm2*p2p8*p6p7))
7996       ans2=w7*(8*(p6p7*p2p8*p2p3)*(2*fmb*hbcm+fmc*hbcm)+8*(p3p7*p3p6*
7997      . p2p8)*(2*fmb*fmc-fmc*hbcm+2*fmc2)+16*(p6p8*p3p7*p2p3)*(fmb*fmc
7998      . -fmc*hbcm+fmc2)+16*(p6p8*p3p7)*(2*ffmcfmb*p2p3s2-p2p3s2)+16*(
7999      . p7p8*p3p6)*(-2*ffmcfmb*p2p3s2+p2p3s2)+(p3p7*p3p6*p2p8*p2p3)*(
8000      . 64*ffmcfmb-16)+8*(-4*ffmcfmb*p2p3*p3p5*p3p7*p6p8+4*ffmcfmb*
8001      . p2p3*p3p6*p3p7*p5p8+4*fmc*hbcm*p2p5*p3p7*p6p8+3*fmc*hbcm*p2p8*
8002      . p3p7*p4p6-fmc*hbcm*p2p8*p3p7*p5p6+2*hbcm2*p2p5*p2p8*p6p7+2*
8003      . p1p8*p2p3s2*p6p7+10*p2p3*p2p8*p3p7*p4p6-6*p2p3*p2p8*p3p7*p5p6+
8004      . 2*p2p3s2*p2p8*p6p7-2*p2p3s2*p4p6*p7p8+2*p2p3s2*p4p7*p6p8-2*
8005      . p2p3s2*p4p8*p6p7+2*p2p3s2*p5p6*p7p8-2*p2p3s2*p5p7*p6p8+2*
8006      . p2p3s2*p5p8*p6p7))+ans3+ans8
8007       ans1=w2*(32*(p5p6*p3p7*p2p8)*(-fmb*hbcm+fmc*hbcm-hbcm2)+8*(p5p8
8008      . *p3p7*p3p6)*(2*fmb*fmc+fmc*hbcm-2*fmc2)+16*(p6p8*p3p7*p3p5)*(-
8009      . fmb*fmc-fmc*hbcm+fmc2)+32*(p3p7*p3p6*p2p8)*(3*fmb*fmc-fmb*hbcm
8010      . )+16*(p6p8*p3p7*p2p3)*(2*fmb*fmc-fmb*hbcm)+16*(p7p8*p3p6*p2p3)
8011      . *(-2*fmb*fmc+fmb*hbcm)+16*(p6p8*p3p7)*(-2*ffmcfmb*p3p5s2-fmb*
8012      . fmc*hbcm2+fmb*fmc2*hbcm+fmb2*fmc*hbcm)+(p3p7*p3p6*p3p5*p2p8)*(
8013      . 64*ffmcfmb-16)+(p6p8*p3p7*p3p5*p2p3)*(32*ffmcfmb-16)+(p7p8*
8014      . p3p6*p3p5*p2p3)*(-32*ffmcfmb+16)+8*(4*ffmcfmb*p3p5*p3p6*p3p7*
8015      . p5p8+2*fmb*hbcm*p1p8*p2p3*p6p7+2*fmb*hbcm*p2p3*p2p8*p6p7-2*fmb
8016      . *hbcm*p2p3*p4p6*p7p8+2*fmb*hbcm*p2p3*p4p7*p6p8-2*fmb*hbcm*p2p3
8017      . *p4p8*p6p7+2*fmb*hbcm*p2p3*p5p6*p7p8-2*fmb*hbcm*p2p3*p5p7*p6p8
8018      . +12*fmb*hbcm*p2p8*p3p7*p4p6-fmc*hbcm*p2p3*p5p8*p6p7-3*fmc*hbcm
8019      . *p3p7*p4p6*p5p8-3*fmc*hbcm*p3p7*p5p6*p5p8-2*hbcm2*p2p5*p5p8*
8020      . p6p7+2*p1p8*p2p3*p3p5*p6p7+2*p2p3*p2p8*p3p5*p6p7-2*p2p3*p3p5*
8021      . p4p6*p7p8+2*p2p3*p3p5*p4p7*p6p8-2*p2p3*p3p5*p4p8*p6p7+2*p2p3*
8022      . p3p5*p5p6*p7p8-2*p2p3*p3p5*p5p7*p6p8+2*p2p3*p3p5*p5p8*p6p7+10*
8023      . p2p8*p3p5*p3p7*p4p6-6*p2p8*p3p5*p3p7*p5p6))+ans2
8024       ans=ccc*ans1
8025       b(12)=ans
8026       ans=ccc*(w7*(4*(p2p8*p2p3)*(-3*fmb+4*fmc)+4*(hbcm*p1p2*p2p8+
8027      . hbcm*p2p4*p2p8-3*hbcm*p2p5*p2p8))+w2*(4*(p5p8*p2p3)*(-fmc+3*
8028      . hbcm)+4*(p3p5*p2p8)*(-3*fmb+5*fmc-3*hbcm)+12*p2p8*(fmb*fmc*
8029      . hbcm-fmb*hbcm2-fmb2*hbcm)+4*(-hbcm*p1p2*p5p8+2*hbcm*p1p5*p2p8-
8030      . hbcm*p2p4*p5p8-2*hbcm*p2p5*p2p8+3*hbcm*p2p5*p5p8+2*hbcm*p2p8*
8031      . p4p5))+w11*(4*(p4p8*p2p3)*(-fmc+3*hbcm)+4*(p3p4*p2p8)*(3*fmb-5
8032      . *fmc-hbcm)+4*(p2p8*p2p3)*(-3*fmb+4*fmc)+12*p2p8*(fmb*fmc*hbcm-
8033      . fmc*hbcm2-fmc2*hbcm)+4*(hbcm*p1p2*p2p8-hbcm*p1p2*p4p8+2*hbcm*
8034      . p1p4*p2p8+2*hbcm*p1p8*p2p4+5*hbcm*p2p4*p2p8+hbcm*p2p4*p4p8-6*
8035      . hbcm*p2p4*p5p8-3*hbcm*p2p5*p2p8+3*hbcm*p2p5*p4p8+2*hbcm*p2p8*
8036      . p4p5))+(48*p5p8*(fb3*fmc+fb4*fmc)+16*p4p8*(-fb3*fmc-fb4*fmc)+2
8037      . *p2p8*(-16*fb3*fmc+24*fb3*hbcm-24*fb4*fmb+8*fb4*fmc-7*hbcm)+16
8038      . *p1p8*(-fb3*fmc-fb4*fmc)))
8039       b(13)=ans
8040       b(14)=ccc*(4*w7*(ffmcfmb*p2p3s2+p1p2*p2p3+p2p3*p2p4-3*p2p3*p2p5
8041      . -3*p2p3s2)+w2*(4*p2p3*(fmb*fmc-3*fmb*hbcm)+(p3p5*p2p3)*(4*
8042      . ffmcfmb-12)+4*(fmb*hbcm*p1p2+fmb*hbcm*p2p4-3*fmb*hbcm*p2p5+
8043      . p1p2*p3p5+p2p4*p3p5-3*p2p5*p3p5))+w11*(4*p2p3*(3*fmc*hbcm-fmc2
8044      . )+4*p2p4*(3*fmb*hbcm+2*fmc*hbcm-3*hbcm2)+(p3p4*p2p3)*(-4*
8045      . ffmcfmb+12)+4*(ffmcfmb*p2p3s2-fmc*hbcm*p1p2+3*fmc*hbcm*p2p5+
8046      . p1p2*p2p3-p1p2*p3p4+p2p3*p2p4-3*p2p3*p2p5-3*p2p3s2-p2p4*p3p4+3
8047      . *p2p5*p3p4))+(p2p3*(16*fb4*ffmcfmb-48*fb4+2)+8*(-3*fb3*fmb*fmc
8048      . +3*fb3*fmc*hbcm-3*fb3*fmc2-3*fb4*fmb*fmc+3*fb4*fmc*hbcm-3*fb4*
8049      . fmc2+2*fb4*p1p2+2*fb4*p2p4-6*fb4*p2p5)))
8050       ans2=w11*(4*(p2p8*p2p3)*(-fmc*hbcm+3*hbcm2)+4*(p3p4*p2p8)*(-3*
8051      . fmb*hbcm-fmc*hbcm-hbcm2)+4*p2p8*(-3*fmb*fmc*hbcm2-3*fmc*hbcm3-
8052      . fmc2*hbcm2+2*p3p4s2)+4*(3*fmb*hbcm*p2p3*p4p8+2*fmc*hbcm*p1p3*
8053      . p2p8-2*fmc*hbcm*p1p8*p2p3+6*fmc*hbcm*p2p3*p5p8-6*fmc*hbcm*p2p8
8054      . *p3p5+hbcm2*p1p2*p2p8-hbcm2*p1p2*p4p8+2*hbcm2*p1p4*p2p8+2*
8055      . hbcm2*p1p8*p2p4+5*hbcm2*p2p4*p2p8+hbcm2*p2p4*p4p8-6*hbcm2*p2p4
8056      . *p5p8-3*hbcm2*p2p5*p2p8+3*hbcm2*p2p5*p4p8+2*hbcm2*p2p8*p4p5-2*
8057      . p1p3*p2p3*p2p8+2*p1p3*p2p8*p3p4-2*p1p8*p2p3*p3p4+2*p1p8*p2p3s2
8058      . -2*p2p3*p2p8*p3p4+6*p2p3*p2p8*p3p5-2*p2p3*p3p4*p4p8+6*p2p3*
8059      . p3p4*p5p8+2*p2p3s2*p4p8-6*p2p3s2*p5p8-6*p2p8*p3p4*p3p5))+(48*
8060      . p5p8*(fb3*fmc*hbcm+fb4*fmc*hbcm)+16*p4p8*(-fb3*fmc*hbcm-fb4*
8061      . fmc*hbcm)+16*p1p8*(-fb3*fmc*hbcm-fb4*fmc*hbcm)+2*p2p8*(24*fb3*
8062      . fmb*hbcm+8*fb3*fmc*hbcm-32*fb4*fmc*hbcm+24*fb4*hbcm2-3*hbcm2)+
8063      . 32*(-fb4*p1p3*p2p8+fb4*p1p8*p2p3+fb4*p2p3*p4p8-3*fb4*p2p3*p5p8
8064      . -fb4*p2p8*p3p4+3*fb4*p2p8*p3p5))
8065       ans1=w7*(4*(p2p8*p2p3)*(-fmc*hbcm+3*hbcm2)+4*(hbcm2*p1p2*p2p8+
8066      . hbcm2*p2p4*p2p8-3*hbcm2*p2p5*p2p8-2*p1p3*p2p3*p2p8+2*p1p8*
8067      . p2p3s2-2*p2p3*p2p8*p3p4+6*p2p3*p2p8*p3p5+2*p2p3s2*p4p8-6*
8068      . p2p3s2*p5p8))+w2*(12*(p3p5*p2p8)*(fmb*hbcm-fmc*hbcm+hbcm2)+4*(
8069      . p5p8*p2p3)*(-3*fmb*hbcm+2*fmc*hbcm)+4*p2p8*(-5*fmb*fmc*hbcm2+3
8070      . *fmb*hbcm3-3*fmb2*hbcm2+6*p3p5s2)+4*(-2*fmb*hbcm*p1p3*p2p8+2*
8071      . fmb*hbcm*p1p8*p2p3+2*fmb*hbcm*p2p3*p4p8-2*fmb*hbcm*p2p8*p3p4-
8072      . hbcm2*p1p2*p5p8+2*hbcm2*p1p5*p2p8-hbcm2*p2p4*p5p8-2*hbcm2*p2p5
8073      . *p2p8+3*hbcm2*p2p5*p5p8+2*hbcm2*p2p8*p4p5-2*p1p3*p2p8*p3p5+2*
8074      . p1p8*p2p3*p3p5+2*p2p3*p3p5*p4p8-6*p2p3*p3p5*p5p8-2*p2p8*p3p4*
8075      . p3p5))+ans2
8076       ans=ccc*ans1
8077       b(15)=ans
8078       ans=ccc*(4*w7*(3*fmb*p2p3s2-4*fmc*p2p3s2-hbcm*p1p2*p2p3-hbcm*
8079      . p2p3*p2p4+3*hbcm*p2p3*p2p5)+w2*(4*(p3p5*p2p3)*(3*fmb-4*fmc)+4*
8080      . p2p3*(-2*fmb*fmc*hbcm+3*fmb2*hbcm)+4*(fmb*hbcm2*p1p2+fmb*hbcm2
8081      . *p2p4-3*fmb*hbcm2*p2p5+hbcm*p1p2*p3p5-2*hbcm*p1p5*p2p3+2*hbcm*
8082      . p2p3*p2p5-2*hbcm*p2p3*p4p5+hbcm*p2p4*p3p5-3*hbcm*p2p5*p3p5))+
8083      . w11*(4*(p3p4*p2p3)*(-3*fmb+6*fmc-2*hbcm)+4*p2p4*(3*fmb*hbcm2-4
8084      . *fmc*hbcm2+3*hbcm3)+4*p2p3*(-3*fmb*fmc*hbcm+4*fmc2*hbcm)+4*(3*
8085      . fmb*p2p3s2+fmc*hbcm2*p1p2-3*fmc*hbcm2*p2p5-4*fmc*p2p3s2-hbcm*
8086      . p1p2*p2p3+hbcm*p1p2*p3p4-2*hbcm*p1p3*p2p4-2*hbcm*p1p4*p2p3-5*
8087      . hbcm*p2p3*p2p4+3*hbcm*p2p3*p2p5-2*hbcm*p2p3*p4p5-hbcm*p2p4*
8088      . p3p4+6*hbcm*p2p4*p3p5-3*hbcm*p2p5*p3p4))+(48*p3p5*(-fb3*fmc-
8089      . fb4*fmc)+16*p3p4*(fb3*fmc+fb4*fmc)+2*p2p3*(8*fb3*fmc+24*fb4*
8090      . fmb-8*fb4*fmc+7*hbcm)+16*p1p3*(fb3*fmc+fb4*fmc)+8*(-3*fb3*fmb*
8091      . fmc*hbcm-3*fb3*fmc*hbcm2+5*fb3*fmc2*hbcm-2*fb3*hbcm*p1p2-2*fb3
8092      . *hbcm*p2p4+6*fb3*hbcm*p2p5-3*fb4*fmb*fmc*hbcm-3*fb4*fmc*hbcm2+
8093      . 5*fb4*fmc2*hbcm)))
8094       b(16)=ans
8095       b(17)=ccc*(w7*(8*(p6p8*p2p3)*(fmb-hbcm)+8*(fmc*p2p8*p3p6+2*hbcm
8096      . *p2p8*p4p6-hbcm*p2p8*p5p6))+w2*(8*(p5p8*p3p6)*(-3*fmc+hbcm)+8*
8097      . (p6p8*p3p5)*(fmb-fmc+hbcm)+8*p6p8*(-fmb*fmc*hbcm+fmb*hbcm2+
8098      . fmb2*hbcm)-24*hbcm*p4p6*p5p8)+w11*(8*(p4p8*p3p6)*(-3*fmc+hbcm)
8099      . +8*(p6p8*p3p4)*(-fmb+fmc)+8*(p6p8*p2p3)*(fmb-hbcm)+8*p6p8*(-
8100      . fmb*fmc*hbcm+fmc*hbcm2)+8*(fmc*p2p8*p3p6-hbcm*p1p4*p6p8+hbcm*
8101      . p1p8*p4p6-hbcm*p2p4*p6p8+hbcm*p2p8*p4p6-hbcm*p2p8*p5p6-hbcm*
8102      . p4p5*p6p8-2*hbcm*p4p6*p4p8-hbcm*p4p6*p5p8+2*hbcm*p4p8*p5p6))+
8103      . 16*p6p8*(2*fb3*fmc-2*fb3*hbcm+2*fb4*fmb+hbcm))
8104       b(18)=ccc*(w2*(8*p5p6*(fmb*hbcm-fmc*hbcm+hbcm2)+8*p3p6*(-3*fmb*
8105      . fmc+fmb*hbcm)+(p3p6*p3p5)*(-16*ffmcfmb+4)+4*(-6*fmb*hbcm*p4p6-
8106      . 5*p3p5*p4p6+3*p3p5*p5p6))+w7*((p3p6*p2p3)*(-16*ffmcfmb+4)+4*(-
8107      . 5*p2p3*p4p6+3*p2p3*p5p6))+w11*(8*p3p6*(-fmc*hbcm+3*fmc2)+4*
8108      . p4p6*(-fmb*hbcm+5*fmc*hbcm+hbcm2)+(p3p6*p3p4)*(16*ffmcfmb-4)+(
8109      . p3p6*p2p3)*(-16*ffmcfmb+4)+4*(-4*fmc*hbcm*p5p6-5*p2p3*p4p6+3*
8110      . p2p3*p5p6+5*p3p4*p4p6-3*p3p4*p5p6))+(p3p6*(-64*fb4*ffmcfmb+16*
8111      . fb4-8)+16*(-5*fb4*p4p6+3*fb4*p5p6)))
8112       b(19)=ccc*(w7*(2*p2p8*(3*fmb*hbcm2-5*fmc*hbcm2+3*hbcm3)+4*(-
8113      . hbcm*p1p3*p2p8+hbcm*p1p8*p2p3+hbcm*p2p3*p4p8-3*hbcm*p2p3*p5p8-
8114      . hbcm*p2p8*p3p4+3*hbcm*p2p8*p3p5))+w11*(6*p4p8*(-fmb*hbcm2+fmc*
8115      . hbcm2-hbcm3)+6*p2p8*(fmb*hbcm2-fmc*hbcm2+hbcm3)+4*(-fmc*hbcm2*
8116      . p1p8+3*fmc*hbcm2*p5p8-hbcm*p1p3*p2p8+hbcm*p1p3*p4p8+hbcm*p1p8*
8117      . p2p3-hbcm*p1p8*p3p4-3*hbcm*p2p3*p5p8+3*hbcm*p2p8*p3p5+3*hbcm*
8118      . p3p4*p5p8-3*hbcm*p3p5*p4p8))+w2*(2*p5p8*(3*fmb*hbcm2+5*fmc*
8119      . hbcm2-3*hbcm3)+4*(-fmb*hbcm2*p1p8+fmb*hbcm2*p2p8-fmb*hbcm2*
8120      . p4p8+hbcm*p1p3*p5p8-hbcm*p1p8*p3p5-hbcm*p2p3*p5p8+hbcm*p2p8*
8121      . p3p5+hbcm*p3p4*p5p8-hbcm*p3p5*p4p8))+16*(fb3*hbcm*p1p8-fb3*
8122      . hbcm*p2p8+fb3*hbcm*p4p8-3*fb3*hbcm*p5p8))
8123       b(20)=ccc*(w7*(6*p2p8*(fmb*hbcm+fmc*hbcm-hbcm2)+4*(-p1p8*p2p3+
8124      . p2p3*p2p8-p2p3*p4p8+3*p2p3*p5p8))+w11*(2*p4p8*(-3*fmb*hbcm-fmc
8125      . *hbcm+3*hbcm2)+2*p2p8*(3*fmb*hbcm+fmc*hbcm-3*hbcm2)+4*(fmc*
8126      . hbcm*p1p8-3*fmc*hbcm*p5p8-p1p8*p2p3+p1p8*p3p4+p2p3*p2p8-p2p3*
8127      . p4p8+3*p2p3*p5p8-p2p8*p3p4+p3p4*p4p8-3*p3p4*p5p8))+w2*(6*p5p8*
8128      . (fmb*hbcm-fmc*hbcm+hbcm2)+4*(-fmb*hbcm*p1p8+fmb*hbcm*p2p8-fmb*
8129      . hbcm*p4p8-p1p8*p3p5+p2p8*p3p5-p3p5*p4p8+3*p3p5*p5p8))+16*(-fb4
8130      . *p1p8+fb4*p2p8-fb4*p4p8+3*fb4*p5p8))
8131       ans=ccc*(w7*(4*(p3p7*p2p8)*(-2*fmc+3*hbcm)+12*(p7p8*p2p3)*(fmb-
8132      . fmc-hbcm)+4*(-2*fmc*p1p8*p3p7-2*fmc*p3p7*p4p8+6*fmc*p3p7*p5p8-
8133      . hbcm*p2p8*p4p7+3*hbcm*p2p8*p5p7))+w2*(4*(p5p8*p3p7)*(4*fmc-3*
8134      . hbcm)+4*(p7p8*p3p5)*(3*fmb-5*fmc+3*hbcm)+12*p7p8*(-fmb*fmc*
8135      . hbcm+fmb*hbcm2+fmb2*hbcm)+4*(-2*hbcm*p1p5*p7p8+2*hbcm*p2p5*
8136      . p7p8-2*hbcm*p4p5*p7p8+hbcm*p4p7*p5p8-3*hbcm*p5p7*p5p8))+w11*(4
8137      . *(p4p8*p3p7)*(2*fmc-3*hbcm)+4*(p3p7*p2p8)*(-2*fmc+3*hbcm)+4*(
8138      . p7p8*p3p4)*(-3*fmb+5*fmc+hbcm)+12*(p7p8*p2p3)*(fmb-fmc-hbcm)+
8139      . 12*p7p8*(-fmb*fmc*hbcm+fmc*hbcm2+fmc2*hbcm)+4*(-2*fmc*p1p8*
8140      . p3p7+6*fmc*p3p7*p5p8-2*hbcm*p1p4*p7p8-2*hbcm*p1p8*p4p7-6*hbcm*
8141      . p2p4*p7p8+hbcm*p2p8*p4p7+3*hbcm*p2p8*p5p7-2*hbcm*p4p5*p7p8-
8142      . hbcm*p4p7*p4p8+6*hbcm*p4p7*p5p8-3*hbcm*p4p8*p5p7))+8*p7p8*(6*
8143      . fb3*fmc-6*fb3*hbcm+6*fb4*fmb+hbcm))
8144       b(21)=ans
8145       b(22)=ccc*(6*w7*p2p3*(fmb-fmc-hbcm)+w2*(2*p3p5*(3*fmb-5*fmc+3*
8146      . hbcm)+2*(-3*fmb*fmc*hbcm+3*fmb*hbcm2+3*fmb2*hbcm-2*hbcm*p1p5+2
8147      . *hbcm*p2p5-2*hbcm*p4p5))+w11*(2*p3p4*(-3*fmb+5*fmc+hbcm)+6*
8148      . p2p3*(fmb-fmc-hbcm)+2*(-3*fmb*fmc*hbcm+3*fmc*hbcm2+3*fmc2*hbcm
8149      . -2*hbcm*p1p4-6*hbcm*p2p4-2*hbcm*p4p5))+12*(2*fb3*fmc-2*fb3*
8150      . hbcm+2*fb4*fmb+hbcm))
8151       b(23)=ccc*(w2*(4*p3p7*(-4*fmb*fmc+3*fmb*hbcm)+(p3p7*p3p5)*(-16*
8152      . ffmcfmb+12)+4*(-fmb*hbcm*p4p7+3*fmb*hbcm*p5p7-p3p5*p4p7+3*p3p5
8153      . *p5p7))+w7*(12*p3p7*(-fmb*fmc+fmc*hbcm-fmc2)+(p3p7*p2p3)*(-16*
8154      . ffmcfmb+12)+4*(-p2p3*p4p7+3*p2p3*p5p7))+w11*(4*p4p7*(-3*fmb*
8155      . hbcm-2*fmc*hbcm+3*hbcm2)+4*p3p7*(-3*fmb*fmc+fmc2)+(p3p7*p3p4)*
8156      . (16*ffmcfmb-12)+(p3p7*p2p3)*(-16*ffmcfmb+12)+4*(-3*fmc*hbcm*
8157      . p5p7-p2p3*p4p7+3*p2p3*p5p7+p3p4*p4p7-3*p3p4*p5p7))+(p3p7*(-64*
8158      . fb4*ffmcfmb+48*fb4-8)+16*(-fb4*p4p7+3*fb4*p5p7)))
8159       ans=ccc*(w7*(2*p2p3*(-3*fmb*hbcm-fmc*hbcm-3*hbcm2)+4*(p1p3*p2p3
8160      . +p2p3*p3p4-3*p2p3*p3p5-p2p3s2))+w2*(6*p3p5*(-fmb*hbcm+fmc*hbcm
8161      . -hbcm2)+2*(5*fmb*fmc*hbcm2+2*fmb*hbcm*p1p3-2*fmb*hbcm*p2p3+2*
8162      . fmb*hbcm*p3p4-3*fmb*hbcm3+3*fmb2*hbcm2-2*hbcm2*p1p5+2*hbcm2*
8163      . p2p5-2*hbcm2*p4p5+2*p1p3*p3p5-2*p2p3*p3p5+2*p3p4*p3p5-6*p3p5s2
8164      . ))+w11*(2*p3p4*(3*fmb*hbcm+fmc*hbcm+hbcm2)+2*p2p3*(-3*fmb*hbcm
8165      . +fmc*hbcm-3*hbcm2)+2*(3*fmb*fmc*hbcm2-2*fmc*hbcm*p1p3+6*fmc*
8166      . hbcm*p3p5+3*fmc*hbcm3+fmc2*hbcm2-2*hbcm2*p1p4-6*hbcm2*p2p4-2*
8167      . hbcm2*p4p5+2*p1p3*p2p3-2*p1p3*p3p4+4*p2p3*p3p4-6*p2p3*p3p5-2*
8168      . p2p3s2+6*p3p4*p3p5-2*p3p4s2))+8*(-3*fb3*fmb*hbcm+5*fb4*fmc*
8169      . hbcm-3*fb4*hbcm2+2*fb4*p1p3-2*fb4*p2p3+2*fb4*p3p4-6*fb4*p3p5+
8170      . hbcm2))
8171       b(24)=ans
8172       ans=ccc*(w11*(4*p3p7*(-3*fmc*hbcm2-2*fmc2*hbcm)+4*(p3p7*p3p4)*(
8173      . 3*fmb-7*fmc+2*hbcm)+4*(p3p7*p2p3)*(-3*fmb+5*fmc)+4*p4p7*(-3*
8174      . fmb*hbcm2+4*fmc*hbcm2-3*hbcm3)+4*(3*fmc*hbcm2*p5p7+2*fmc*p1p3*
8175      . p3p7-6*fmc*p3p5*p3p7+2*hbcm*p1p3*p4p7+2*hbcm*p1p4*p3p7-hbcm*
8176      . p2p3*p4p7-3*hbcm*p2p3*p5p7+6*hbcm*p2p4*p3p7+hbcm*p3p4*p4p7+3*
8177      . hbcm*p3p4*p5p7-6*hbcm*p3p5*p4p7+2*hbcm*p3p7*p4p5))+w7*(4*(p3p7
8178      . *p2p3)*(-3*fmb+5*fmc)+4*p3p7*(-3*fmb*fmc*hbcm-3*fmc*hbcm2+5*
8179      . fmc2*hbcm)+4*(2*fmc*p1p3*p3p7+2*fmc*p3p4*p3p7-6*fmc*p3p5*p3p7+
8180      . hbcm*p2p3*p4p7-3*hbcm*p2p3*p5p7))+w2*(4*(p3p7*p3p5)*(-3*fmb+
8181      . fmc)+4*p3p7*(-fmb*fmc*hbcm-3*fmb2*hbcm)+4*(-fmb*hbcm2*p4p7+3*
8182      . fmb*hbcm2*p5p7+2*hbcm*p1p5*p3p7-2*hbcm*p2p5*p3p7-hbcm*p3p5*
8183      . p4p7+3*hbcm*p3p5*p5p7+2*hbcm*p3p7*p4p5))+(8*p3p7*(2*fb3*fmc-6*
8184      . fb4*fmb-hbcm)+16*(fb3*hbcm*p4p7-3*fb3*hbcm*p5p7)))
8185       b(25)=ans
8186       b(26)=ccc*(w7*(8*(p3p6*p2p3)*(-fmb-fmc+hbcm)+8*(-2*hbcm*p2p3*
8187      . p4p6+hbcm*p2p3*p5p6))+w2*(8*(p3p6*p3p5)*(-fmb+4*fmc-2*hbcm)+4*
8188      . p5p6*(-fmb*hbcm2-2*fmc*hbcm2+2*hbcm3)+4*p3p6*(6*fmb*fmc*hbcm-3
8189      . *fmb*hbcm2-2*fmb2*hbcm)+4*(5*fmb*hbcm2*p4p6+6*hbcm*p3p5*p4p6))
8190      . +w11*(8*(p3p6*p3p4)*(fmb+2*fmc-hbcm)+8*(p3p6*p2p3)*(-fmb-fmc+
8191      . hbcm)+4*p4p6*(fmb*hbcm2+2*fmc*hbcm2+hbcm3)+4*p3p6*(2*fmb*fmc*
8192      . hbcm-3*fmc*hbcm2+4*fmc2*hbcm)+4*(-3*fmc*hbcm2*p5p6-2*hbcm*p1p3
8193      . *p4p6+2*hbcm*p1p4*p3p6-2*hbcm*p2p3*p4p6+2*hbcm*p2p3*p5p6+2*
8194      . hbcm*p2p4*p3p6+4*hbcm*p3p4*p4p6-4*hbcm*p3p4*p5p6+2*hbcm*p3p5*
8195      . p4p6+2*hbcm*p3p6*p4p5))+(16*p3p6*(-4*fb3*fmc+2*fb3*hbcm-2*fb4*
8196      . fmb-hbcm)+32*(-2*fb3*hbcm*p4p6+fb3*hbcm*p5p6)))
8197       ans2=w11*(4*(p4p8*p3p7)*(-3*fmb*hbcm+fmc*hbcm)+4*(p7p8*p3p4)*(3
8198      . *fmb*hbcm+fmc*hbcm+hbcm2)+4*(p3p7*p2p8)*(3*fmb*hbcm-fmc*hbcm)+
8199      . 4*(p7p8*p2p3)*(-3*fmb*hbcm+fmc*hbcm-3*hbcm2)+4*p7p8*(3*fmb*fmc
8200      . *hbcm2+3*fmc*hbcm3+fmc2*hbcm2-2*p2p3s2-2*p3p4s2)+4*(-2*fmc*
8201      . hbcm*p1p3*p7p8+6*fmc*hbcm*p3p5*p7p8-2*hbcm2*p1p4*p7p8-2*hbcm2*
8202      . p1p8*p4p7-6*hbcm2*p2p4*p7p8+hbcm2*p2p8*p4p7+3*hbcm2*p2p8*p5p7-
8203      . 2*hbcm2*p4p5*p7p8-hbcm2*p4p7*p4p8+6*hbcm2*p4p7*p5p8-3*hbcm2*
8204      . p4p8*p5p7+2*p1p3*p2p3*p7p8-2*p1p3*p3p4*p7p8-2*p1p8*p2p3*p3p7+2
8205      . *p1p8*p3p4*p3p7+2*p2p3*p2p8*p3p7+4*p2p3*p3p4*p7p8-6*p2p3*p3p5*
8206      . p7p8-2*p2p3*p3p7*p4p8+6*p2p3*p3p7*p5p8-2*p2p8*p3p4*p3p7+6*p3p4
8207      . *p3p5*p7p8+2*p3p4*p3p7*p4p8-6*p3p4*p3p7*p5p8))+(16*p7p8*(-3*
8208      . fb3*fmb*hbcm+5*fb4*fmc*hbcm-3*fb4*hbcm2)+32*(fb4*p1p3*p7p8-fb4
8209      . *p1p8*p3p7-fb4*p2p3*p7p8+fb4*p2p8*p3p7+fb4*p3p4*p7p8-3*fb4*
8210      . p3p5*p7p8-fb4*p3p7*p4p8+3*fb4*p3p7*p5p8))
8211       ans1=w7*(4*(p3p7*p2p8)*(3*fmb*hbcm+fmc*hbcm)+4*(p7p8*p2p3)*(-3*
8212      . fmb*hbcm-fmc*hbcm-3*hbcm2)+4*(-2*fmc*hbcm*p1p8*p3p7-2*fmc*hbcm
8213      . *p3p7*p4p8+6*fmc*hbcm*p3p7*p5p8-hbcm2*p2p8*p4p7+3*hbcm2*p2p8*
8214      . p5p7+2*p1p3*p2p3*p7p8-2*p1p8*p2p3*p3p7+2*p2p3*p2p8*p3p7+2*p2p3
8215      . *p3p4*p7p8-6*p2p3*p3p5*p7p8-2*p2p3*p3p7*p4p8+6*p2p3*p3p7*p5p8-
8216      . 2*p2p3s2*p7p8))+w2*(4*(p5p8*p3p7)*(3*fmb*hbcm+fmc*hbcm)+12*(
8217      . p7p8*p3p5)*(-fmb*hbcm+fmc*hbcm-hbcm2)+4*p7p8*(5*fmb*fmc*hbcm2-
8218      . 3*fmb*hbcm3+3*fmb2*hbcm2-6*p3p5s2)+4*(2*fmb*hbcm*p1p3*p7p8-2*
8219      . fmb*hbcm*p1p8*p3p7-2*fmb*hbcm*p2p3*p7p8+2*fmb*hbcm*p2p8*p3p7+2
8220      . *fmb*hbcm*p3p4*p7p8-2*fmb*hbcm*p3p7*p4p8-2*hbcm2*p1p5*p7p8+2*
8221      . hbcm2*p2p5*p7p8-2*hbcm2*p4p5*p7p8+hbcm2*p4p7*p5p8-3*hbcm2*p5p7
8222      . *p5p8+2*p1p3*p3p5*p7p8-2*p1p8*p3p5*p3p7-2*p2p3*p3p5*p7p8+2*
8223      . p2p8*p3p5*p3p7+2*p3p4*p3p5*p7p8-2*p3p5*p3p7*p4p8+6*p3p5*p3p7*
8224      . p5p8))+ans2
8225       ans=ccc*ans1
8226       b(27)=ans
8227       ans2=(4*p6p8*(8*fb3*fmb*hbcm-8*fb4*fmc*hbcm-3*hbcm2)+32*(fb4*
8228      . p1p3*p6p8+fb4*p2p3*p6p8-fb4*p3p4*p6p8+fb4*p3p5*p6p8-2*fb4*p3p6
8229      . *p5p8))
8230       ans1=w7*(4*(p3p6*p2p8)*(-2*fmb*hbcm-2*fmc*hbcm+hbcm2)+4*(2*fmb*
8231      . hbcm*p2p3*p6p8-3*hbcm2*p2p8*p4p6+hbcm2*p2p8*p5p6+2*p1p3*p2p3*
8232      . p6p8-2*p2p3*p3p4*p6p8+2*p2p3*p3p5*p6p8-4*p2p3*p3p6*p5p8+2*
8233      . p2p3s2*p6p8))+w2*(4*(p5p8*p3p6)*(-2*fmb*hbcm+6*fmc*hbcm-3*
8234      . hbcm2)+8*p6p8*(-fmb*fmc*hbcm2-fmb2*hbcm2+p3p5s2)+4*(2*fmb*hbcm
8235      . *p1p3*p6p8+2*fmb*hbcm*p2p3*p6p8-2*fmb*hbcm*p3p4*p6p8-2*fmc*
8236      . hbcm*p3p5*p6p8+5*hbcm2*p4p6*p5p8+hbcm2*p5p6*p5p8+2*p1p3*p3p5*
8237      . p6p8+2*p2p3*p3p5*p6p8-2*p3p4*p3p5*p6p8-4*p3p5*p3p6*p5p8))+w11*
8238      . (4*(p4p8*p3p6)*(2*fmb*hbcm+6*fmc*hbcm-3*hbcm2)+8*(p6p8*p3p4)*(
8239      . -fmb*hbcm+hbcm2)+4*(p3p6*p2p8)*(-2*fmb*hbcm-2*fmc*hbcm+hbcm2)+
8240      . 8*(p6p8*p2p3)*(fmb*hbcm-fmc*hbcm)+8*p6p8*(-fmb*fmc*hbcm2+
8241      . p2p3s2+p3p4s2)+4*(-2*fmc*hbcm*p1p3*p6p8-2*fmc*hbcm*p3p5*p6p8+4
8242      . *fmc*hbcm*p3p6*p5p8+2*hbcm2*p1p4*p6p8-2*hbcm2*p1p8*p4p6+2*
8243      . hbcm2*p2p4*p6p8-hbcm2*p2p8*p4p6+hbcm2*p2p8*p5p6+2*hbcm2*p4p5*
8244      . p6p8+3*hbcm2*p4p6*p4p8+2*hbcm2*p4p6*p5p8-3*hbcm2*p4p8*p5p6+2*
8245      . p1p3*p2p3*p6p8-2*p1p3*p3p4*p6p8-4*p2p3*p3p4*p6p8+2*p2p3*p3p5*
8246      . p6p8-4*p2p3*p3p6*p5p8-2*p3p4*p3p5*p6p8+4*p3p4*p3p6*p5p8))+ans2
8247       ans=ccc*ans1
8248       b(28)=ans
8249       ans2=w11*(8*(p4p6*p3p7)*(-fmb*hbcm+3*fmc*hbcm)+16*(p4p7*p3p6)*(
8250      . -fmb*hbcm-2*fmc*hbcm+hbcm2)+8*(p6p7*p3p4)*(fmb*hbcm-hbcm2)+8*(
8251      . p6p7*p2p3)*(-fmb*hbcm+fmc*hbcm)+16*(p3p7*p3p6)*(-fmb*fmc-fmc*
8252      . hbcm+2*fmc2)+8*p6p7*(fmb*fmc*hbcm2-p2p3s2-p3p4s2)+(p3p7*p3p6*
8253      . p3p4)*(32*ffmcfmb-16)+(p3p7*p3p6*p2p3)*(-32*ffmcfmb+16)+8*(fmc
8254      . *hbcm*p1p3*p6p7+fmc*hbcm*p3p5*p6p7-2*fmc*hbcm*p3p6*p5p7-2*fmc*
8255      . hbcm*p3p7*p5p6-hbcm2*p1p4*p6p7-hbcm2*p2p4*p6p7-hbcm2*p4p5*p6p7
8256      . -3*hbcm2*p4p6*p4p7-hbcm2*p4p6*p5p7+2*hbcm2*p4p7*p5p6-p1p3*p2p3
8257      . *p6p7+p1p3*p3p4*p6p7+2*p2p3*p3p4*p6p7-p2p3*p3p5*p6p7+2*p2p3*
8258      . p3p6*p5p7-4*p2p3*p3p7*p4p6+2*p2p3*p3p7*p5p6+p3p4*p3p5*p6p7-2*
8259      . p3p4*p3p6*p5p7+4*p3p4*p3p7*p4p6-2*p3p4*p3p7*p5p6))+((p3p7*p3p6
8260      . )*(-128*fb4*ffmcfmb+64*fb4-16)+4*p6p7*(-8*fb3*fmb*hbcm+8*fb4*
8261      . fmc*hbcm+3*hbcm2)+32*(-fb4*p1p3*p6p7-fb4*p2p3*p6p7+fb4*p3p4*
8262      . p6p7-fb4*p3p5*p6p7+2*fb4*p3p6*p5p7-4*fb4*p3p7*p4p6+2*fb4*p3p7*
8263      . p5p6))
8264       ans1=w2*(8*(p5p7*p3p6)*(2*fmb*hbcm-2*fmc*hbcm+hbcm2)+24*(p3p7*
8265      . p3p6)*(-2*fmb*fmc+fmb*hbcm)+8*p6p7*(fmb*fmc*hbcm2+fmb2*hbcm2-
8266      . p3p5s2)+(p3p7*p3p6*p3p5)*(-32*ffmcfmb+16)+8*(-fmb*hbcm*p1p3*
8267      . p6p7-fmb*hbcm*p2p3*p6p7+fmb*hbcm*p3p4*p6p7-5*fmb*hbcm*p3p7*
8268      . p4p6+fmb*hbcm*p3p7*p5p6+fmc*hbcm*p3p5*p6p7-hbcm2*p4p6*p5p7-
8269      . hbcm2*p5p6*p5p7-p1p3*p3p5*p6p7-p2p3*p3p5*p6p7+p3p4*p3p5*p6p7+2
8270      . *p3p5*p3p6*p5p7-4*p3p5*p3p7*p4p6+2*p3p5*p3p7*p5p6))+w7*(8*(
8271      . p3p7*p3p6)*(-2*fmb*fmc+fmc*hbcm-2*fmc2)+(p3p7*p3p6*p2p3)*(-32*
8272      . ffmcfmb+16)+8*(-fmb*hbcm*p2p3*p6p7-3*fmc*hbcm*p3p7*p4p6+fmc*
8273      . hbcm*p3p7*p5p6-p1p3*p2p3*p6p7+p2p3*p3p4*p6p7-p2p3*p3p5*p6p7+2*
8274      . p2p3*p3p6*p5p7-4*p2p3*p3p7*p4p6+2*p2p3*p3p7*p5p6-p2p3s2*p6p7))
8275      . +ans2
8276       ans=ccc*ans1
8277       b(29)=ans
8278       ans4=8*(2*fmc*hbcm2*p3p7*p6p8-2*fmc*hbcm2*p5p6*p7p8-2*fmc*hbcm2
8279      . *p5p7*p6p8+2*fmc*hbcm2*p5p8*p6p7+4*fmc*p3p5*p3p7*p6p8-4*fmc*
8280      . p3p6*p3p7*p5p8-2*hbcm*p1p3*p4p6*p7p8+2*hbcm*p1p4*p3p6*p7p8-2*
8281      . hbcm*p1p4*p3p7*p6p8+2*hbcm*p1p8*p3p7*p4p6-hbcm*p2p3*p4p6*p7p8+
8282      . hbcm*p2p3*p5p6*p7p8+2*hbcm*p2p3*p5p7*p6p8-2*hbcm*p2p3*p5p8*
8283      . p6p7+2*hbcm*p2p4*p3p6*p7p8-2*hbcm*p2p4*p3p7*p6p8+2*hbcm*p2p8*
8284      . p3p5*p6p7-2*hbcm*p2p8*p3p6*p5p7+hbcm*p2p8*p3p7*p4p6-hbcm*p2p8*
8285      . p3p7*p5p6+3*hbcm*p3p4*p4p6*p7p8-3*hbcm*p3p4*p5p6*p7p8-2*hbcm*
8286      . p3p4*p5p7*p6p8+2*hbcm*p3p4*p5p8*p6p7+2*hbcm*p3p5*p4p6*p7p8+4*
8287      . hbcm*p3p5*p4p7*p6p8-2*hbcm*p3p5*p4p8*p6p7+2*hbcm*p3p6*p4p5*
8288      . p7p8-4*hbcm*p3p6*p4p7*p5p8+2*hbcm*p3p6*p4p8*p5p7-2*hbcm*p3p7*
8289      . p4p5*p6p8-3*hbcm*p3p7*p4p6*p4p8-2*hbcm*p3p7*p4p6*p5p8+3*hbcm*
8290      . p3p7*p4p8*p5p6)
8291       ans3=24*(p4p8*p3p7*p3p6)*(-2*fmc+hbcm)+8*(p3p7*p3p6*p2p8)*(2*
8292      . fmc-hbcm)+16*(p6p8*p3p7*p3p4)*(-fmb+2*fmc-hbcm)+8*(p7p8*p3p6*
8293      . p3p4)*(2*fmb+2*fmc-hbcm)+16*(p6p8*p3p7*p2p3)*(fmb-fmc)+8*(p7p8
8294      . *p3p6*p2p3)*(-2*fmb+hbcm)+8*(p6p7*p4p8)*(-fmb*hbcm2+fmc*hbcm2-
8295      . hbcm3)+16*(p6p8*p4p7)*(fmb*hbcm2-fmc*hbcm2+hbcm3)+8*(p7p8*p4p6
8296      . )*(fmb*hbcm2+fmc*hbcm2+hbcm3)+8*(p6p7*p2p8)*(fmb*hbcm2-fmc*
8297      . hbcm2+hbcm3)+16*(p7p8*p3p6)*(fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)
8298      . +ans4
8299       ans2=w11*ans3
8300       ans5=(16*(p6p8*p3p7)*(4*fb4*fmb+hbcm)+16*(p7p8*p3p6)*(-4*fb3*
8301      . fmc+2*fb3*hbcm-4*fb4*fmb-hbcm)+32*(-3*fb3*hbcm*p4p6*p7p8+fb3*
8302      . hbcm*p5p6*p7p8+2*fb3*hbcm*p5p7*p6p8-2*fb3*hbcm*p5p8*p6p7))
8303       ans1=w7*(8*(p3p7*p3p6*p2p8)*(2*fmc-hbcm)+16*(p6p8*p3p7*p2p3)*(
8304      . fmb-fmc)+8*(p7p8*p3p6*p2p3)*(-2*fmb+hbcm)+8*(p6p7*p2p8)*(fmb*
8305      . hbcm2-fmc*hbcm2+hbcm3)+16*(p6p8*p3p7)*(fmb*fmc*hbcm+fmc*hbcm2-
8306      . fmc2*hbcm)+8*(4*fmc*p3p5*p3p7*p6p8-4*fmc*p3p6*p3p7*p5p8-3*hbcm
8307      . *p2p3*p4p6*p7p8+hbcm*p2p3*p5p6*p7p8+2*hbcm*p2p3*p5p7*p6p8-2*
8308      . hbcm*p2p3*p5p8*p6p7+2*hbcm*p2p8*p3p5*p6p7-2*hbcm*p2p8*p3p6*
8309      . p5p7+3*hbcm*p2p8*p3p7*p4p6-hbcm*p2p8*p3p7*p5p6))+w2*(24*(p5p8*
8310      . p3p7*p3p6)*(-2*fmc+hbcm)+16*(p7p8*p5p6)*(-fmc*hbcm2+hbcm3)+8*(
8311      . p7p8*p3p6*p3p5)*(-2*fmb+6*fmc-3*hbcm)+8*(p6p7*p5p8)*(fmb*hbcm2
8312      . +fmc*hbcm2-hbcm3)+16*(p7p8*p3p6)*(2*fmb*fmc*hbcm-fmb*hbcm2-
8313      . fmb2*hbcm)+8*(4*fmb*hbcm2*p4p6*p7p8-2*fmb*hbcm2*p5p7*p6p8+2*
8314      . fmb*p3p5*p3p7*p6p8+2*fmb2*hbcm*p3p7*p6p8+5*hbcm*p3p5*p4p6*p7p8
8315      . +hbcm*p3p5*p5p6*p7p8-2*hbcm*p3p5*p5p7*p6p8+2*hbcm*p3p6*p5p7*
8316      . p5p8-5*hbcm*p3p7*p4p6*p5p8-hbcm*p3p7*p5p6*p5p8))+ans2+ans5
8317       ans=ccc*ans1
8318       b(30)=ans
8319       ans2=w11*(8*(p7p8*p3p6)*(-fmc*hbcm+4*fmc2)+8*(p6p7*p4p8)*(fmb*
8320      . hbcm-hbcm2)+8*(p6p8*p4p7)*(-2*fmb*hbcm-fmc*hbcm+2*hbcm2)+8*(
8321      . p7p8*p4p6)*(-fmb*hbcm+4*fmc*hbcm+hbcm2)+8*(p6p7*p2p8)*(-fmb*
8322      . hbcm+hbcm2)+8*(p6p8*p3p7)*(-2*fmb*fmc+fmc*hbcm)+(p6p8*p3p7*
8323      . p3p4)*(16*ffmcfmb-8)+(p6p8*p3p7*p2p3)*(-16*ffmcfmb+8)+8*(-2*
8324      . ffmcfmb*p2p3*p3p6*p7p8+2*ffmcfmb*p3p4*p3p6*p7p8+fmc*hbcm*p1p8*
8325      . p6p7-3*fmc*hbcm*p5p6*p7p8-fmc*hbcm*p5p7*p6p8+fmc*hbcm*p5p8*
8326      . p6p7-p1p8*p2p3*p6p7+p1p8*p3p4*p6p7-p2p3*p2p8*p6p7-4*p2p3*p4p6*
8327      . p7p8-p2p3*p4p7*p6p8+p2p3*p4p8*p6p7+2*p2p3*p5p6*p7p8+p2p3*p5p7*
8328      . p6p8-p2p3*p5p8*p6p7+p2p8*p3p4*p6p7+4*p3p4*p4p6*p7p8+p3p4*p4p7*
8329      . p6p8-p3p4*p4p8*p6p7-2*p3p4*p5p6*p7p8-p3p4*p5p7*p6p8+p3p4*p5p8*
8330      . p6p7))+((p6p8*p3p7)*(-64*fb4*ffmcfmb+32*fb4-8)+(p7p8*p3p6)*(-
8331      . 64*fb4*ffmcfmb-8)+32*(-fb4*p1p8*p6p7-fb4*p2p8*p6p7-4*fb4*p4p6*
8332      . p7p8-fb4*p4p7*p6p8+fb4*p4p8*p6p7+2*fb4*p5p6*p7p8+fb4*p5p7*p6p8
8333      . -fb4*p5p8*p6p7))
8334       ans1=w2*(8*(p6p7*p5p8)*(fmc*hbcm-hbcm2)+8*(p7p8*p5p6)*(fmb*hbcm
8335      . -2*fmc*hbcm+2*hbcm2)+8*(p6p8*p3p7)*(-2*fmb*fmc+fmb*hbcm)+8*(
8336      . p7p8*p3p6)*(-4*fmb*fmc+fmb*hbcm)+(p6p8*p3p7*p3p5)*(-16*ffmcfmb
8337      . +8)+8*(-2*ffmcfmb*p3p5*p3p6*p7p8-fmb*hbcm*p1p8*p6p7-fmb*hbcm*
8338      . p2p8*p6p7-5*fmb*hbcm*p4p6*p7p8-fmb*hbcm*p4p7*p6p8+fmb*hbcm*
8339      . p4p8*p6p7+fmb*hbcm*p5p7*p6p8-p1p8*p3p5*p6p7-p2p8*p3p5*p6p7-4*
8340      . p3p5*p4p6*p7p8-p3p5*p4p7*p6p8+p3p5*p4p8*p6p7+2*p3p5*p5p6*p7p8+
8341      . p3p5*p5p7*p6p8-p3p5*p5p8*p6p7))+w7*(8*(p6p7*p2p8)*(-fmb*hbcm-
8342      . fmc*hbcm+hbcm2)+16*(p6p8*p3p7)*(-fmb*fmc+fmc*hbcm-fmc2)+(p6p8*
8343      . p3p7*p2p3)*(-16*ffmcfmb+8)+8*(-2*ffmcfmb*p2p3*p3p6*p7p8-p1p8*
8344      . p2p3*p6p7-p2p3*p2p8*p6p7-4*p2p3*p4p6*p7p8-p2p3*p4p7*p6p8+p2p3*
8345      . p4p8*p6p7+2*p2p3*p5p6*p7p8+p2p3*p5p7*p6p8-p2p3*p5p8*p6p7))+
8346      . ans2
8347       ans=ccc*ans1
8348       b(31)=ans
8349       b(32)=ccc*(w2*(16*(p5p6*p3p7)*(fmc-hbcm)+8*(p5p7*p3p6)*(-2*fmc+
8350      . hbcm)+8*(p6p7*p3p5)*(fmb-fmc+hbcm)+8*p6p7*(-fmb*fmc*hbcm+fmb*
8351      . hbcm2+fmb2*hbcm)+8*(-hbcm*p4p6*p5p7-hbcm*p5p6*p5p7))+w7*(8*(
8352      . p6p7*p2p3)*(fmb-hbcm)+16*(-ffmcfmb*fmc*p3p6*p3p7-2*fmc*p3p7*
8353      . p4p6+fmc*p3p7*p5p6))+w11*(8*(p4p6*p3p7)*(-2*fmc-hbcm)+8*(p4p7*
8354      . p3p6)*(-4*fmc+hbcm)+8*(p6p7*p3p4)*(-fmb+fmc)+8*(p6p7*p2p3)*(
8355      . fmb-hbcm)+8*p6p7*(-fmb*fmc*hbcm+fmc*hbcm2)+8*(-2*ffmcfmb*fmc*
8356      . p3p6*p3p7+2*fmc*p3p7*p5p6-hbcm*p1p4*p6p7-hbcm*p2p4*p6p7-hbcm*
8357      . p4p5*p6p7-4*hbcm*p4p6*p4p7-hbcm*p4p6*p5p7+3*hbcm*p4p7*p5p6))+4
8358      . *p6p7*(8*fb3*fmc-8*fb3*hbcm+8*fb4*fmb+5*hbcm))
8359       do 200 n=1,32
8360          c(n,1)=c(n,1)-0.1818181818181818d0*b(n)
8361          c(n,2)=c(n,2)-0.1512818716977898d0*b(n)
8362          c(n,3)=c(n,3)-0.1869893980016914d0*b(n)
8363 200   continue
8364       return
8365         end
8366
8367       subroutine amp29_3p1(cc)
8368       implicit double precision(a-h,o-z)
8369       implicit integer (i-n)
8370       dimension b(32)
8371 #include "inclcon.h"
8372 #include "inclppp.h"
8373 #include "inclamp.h"
8374       do 100 n=1,32
8375          b(n)=0.0d0
8376 100   continue
8377       ccc=cc/((-2*ffmcfmb*p1p3+2*ffmcfmb*p3p4+2*fmc2-2*p1p4)*(2*
8378      . ffmcfmb*p3p4+2*fmc2)*(2*ffmcfmb*p2p3-fmb2-2*fmc*hbcm+fmc2+
8379      . hbcm2-2*p2p3))
8380       ans=ccc*(w1*(24*(p4p6*p3p4)*(-fmb-fmc+hbcm)+4*p4p6*(-8*fmb*fmc*
8381      . hbcm-fmb2*hbcm+6*fmc*hbcm2-7*fmc2*hbcm+hbcm3)+8*p3p6*(-fmb*fmc
8382      . *hbcm-2*fmb*fmc2+fmc*hbcm2+fmc2*hbcm-2*fmc3)+8*(p3p6*p3p4)*(-
8383      . ffmcfmb*fmb-ffmcfmb*fmc-fmb+hbcm)+8*(-fmc*p2p3*p4p6+2*fmc*p2p4
8384      . *p3p6-hbcm*p1p2*p4p6+hbcm*p2p4*p4p6+hbcm*p2p5*p4p6))+w8*(24*(
8385      . p4p6*p2p3)*(-fmb-fmc+hbcm)+8*(p3p6*p2p3)*(-ffmcfmb*fmb-ffmcfmb
8386      . *fmc-fmb+hbcm))+w5*(24*(p4p6*p3p4)*(-fmb-fmc+hbcm)+24*(p4p6*
8387      . p1p3)*(fmb+fmc-hbcm)+16*p3p6*(-fmb*fmc2-fmb2*fmc+fmc*hbcm2-
8388      . fmc2*hbcm)+8*p4p6*(-4*fmb*fmc*hbcm+fmb*hbcm2-3*fmb2*hbcm-fmc*
8389      . hbcm2-fmc2*hbcm+2*hbcm3)+8*(p3p6*p3p4)*(-ffmcfmb*fmb-ffmcfmb*
8390      . fmc-fmb+hbcm)+8*(p3p6*p1p3)*(ffmcfmb*fmb+ffmcfmb*fmc+fmb-hbcm)
8391      . +16*(-fmc*p1p2*p3p6+fmc*p2p3*p3p6+fmc*p2p4*p3p6+3*fmc*p2p5*
8392      . p3p6-hbcm*p1p2*p4p6+hbcm*p2p3*p4p6+hbcm*p2p4*p4p6+4*hbcm*p2p5*
8393      . p4p6))+(96*p4p6*(fb3*fmc-fb3*hbcm+fb4*fmb)+4*p3p6*(8*fb3*
8394      . ffmcfmb*fmc-8*fb3*hbcm+8*fb4*ffmcfmb*fmb+8*fb4*fmb+fmb+fmc-
8395      . hbcm)))
8396       b(1)=ans
8397       ans3=((p4p6*p3p7)*(128*fb4*ffmcfmb-128*fb4+16)+(p3p7*p3p6)*(64*
8398      . fb4*ffmcfmb-64*fb4+8)+4*p6p7*(-4*fb3*fmb*fmc+4*fb3*fmc*hbcm-4*
8399      . fb3*fmc2-4*fb4*fmb*fmc-8*fb4*fmb2-12*fb4*fmc*hbcm+4*fb4*fmc2+8
8400      . *fb4*hbcm2+fmb*hbcm+fmc*hbcm-hbcm2)+64*(fb4*p1p2*p6p7-fb4*p2p3
8401      . *p6p7-fb4*p2p4*p6p7))
8402       ans2=w5*(48*(p5p7*p4p6)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p4p7*
8403      . p4p6)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p6p7*p1p4)*(-fmb*hbcm-fmc
8404      . *hbcm+hbcm2)+8*p6p7*(2*fmb*fmc2*hbcm+fmb2*fmc*hbcm-fmc*hbcm3+
8405      . fmc3*hbcm)+16*(p4p6*p3p7)*(2*fmb*fmc-3*fmb*hbcm-fmc*hbcm-fmc2+
8406      . 2*hbcm2)+32*(p5p7*p3p6)*(-fmb*fmc+fmc*hbcm-fmc2)+16*(p4p7*p3p6
8407      . )*(-fmb*fmc+fmc*hbcm-fmc2)+8*(p6p7*p3p4)*(2*fmb*fmc+fmb2+fmc2-
8408      . hbcm2)+8*(p6p7*p1p3)*(-2*fmb*fmc-fmb2-fmc2+hbcm2)+(p4p6*p3p7*
8409      . p3p4)*(-32*ffmcfmb+32)+(p3p7*p3p6*p3p4)*(-16*ffmcfmb+16)+(p4p6
8410      . *p3p7*p1p3)*(32*ffmcfmb-32)+(p3p7*p3p6*p1p3)*(16*ffmcfmb-16)+
8411      . 16*(p3p7*p3p6)*(ffmcfmb*fmb*fmc-2*fmb*fmc+2*fmc*hbcm-2*fmc2)+
8412      . 16*(-fmc*hbcm*p1p2*p6p7+fmc*hbcm*p2p3*p6p7+fmc*hbcm*p2p4*p6p7+
8413      . p1p2*p1p3*p6p7-p1p2*p3p4*p6p7-p1p3*p2p3*p6p7-p1p3*p2p4*p6p7+
8414      . p2p3*p3p4*p6p7+p2p4*p3p4*p6p7))+ans3
8415       ans1=w8*(16*(p6p7*p2p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p7*p1p2
8416      . )*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p6p7*p2p3)*(2*fmb*fmc+fmb2+
8417      . fmc2-hbcm2)+(p4p6*p3p7*p2p3)*(-32*ffmcfmb+32)+(p3p7*p3p6*p2p3)
8418      . *(-16*ffmcfmb+16)+16*(-p1p2*p2p3*p6p7+p2p3*p2p4*p6p7+p2p3s2*
8419      . p6p7))+w1*(8*(p5p7*p4p6)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p4p7*
8420      . p4p6)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p6p7*p1p4)*(-fmb*hbcm-fmc
8421      . *hbcm+hbcm2)+8*p6p7*(2*fmb*fmc2*hbcm+fmb2*fmc*hbcm-fmc*hbcm3+
8422      . fmc3*hbcm)+8*(p4p6*p3p7)*(2*fmb*fmc-fmb*hbcm+3*fmc*hbcm-4*fmc2
8423      . +hbcm2)+16*(p4p7*p3p6)*(-fmb*fmc+fmc*hbcm-fmc2)+8*(p6p7*p3p4)*
8424      . (2*fmb*fmc+fmb2+fmc2-hbcm2)+(p4p6*p3p7*p3p4)*(-32*ffmcfmb+32)+
8425      . (p3p7*p3p6*p3p4)*(-16*ffmcfmb+16)+16*(p3p7*p3p6)*(-ffmcfmb*
8426      . fmc2+fmc*hbcm)+16*(-fmc*hbcm*p1p2*p6p7+fmc*hbcm*p2p3*p6p7+fmc*
8427      . hbcm*p2p4*p6p7-p1p2*p3p4*p6p7+p2p3*p3p4*p6p7+p2p4*p3p4*p6p7))+
8428      . ans2
8429       ans=ccc*ans1
8430       b(2)=ans
8431       ans5=16*(p3p7*p3p6*p1p8)*(-ffmcfmb*fmc+hbcm)+16*(p6p8*p3p7*p3p4
8432      . )*(ffmcfmb*fmb-ffmcfmb*fmc-fmb+hbcm)+16*(p7p8*p3p6*p3p4)*(
8433      . ffmcfmb*fmb+ffmcfmb*fmc-fmc)+16*(p6p8*p3p7*p1p3)*(-ffmcfmb*fmb
8434      . +ffmcfmb*fmc+fmb-hbcm)+16*(p7p8*p3p6*p1p3)*(-ffmcfmb*fmb-
8435      . ffmcfmb*fmc+fmc)+16*(-2*fmc*p2p5*p3p6*p7p8+2*fmc*p2p8*p3p6*
8436      . p5p7-hbcm*p1p8*p2p5*p6p7-2*hbcm*p2p5*p4p6*p7p8+hbcm*p2p5*p4p8*
8437      . p6p7+2*hbcm*p2p8*p4p6*p5p7)
8438       ans4=64*(p5p8*p4p6*p3p7)*(fmc-hbcm)+48*(p4p8*p4p6*p3p7)*(fmc-
8439      . hbcm)+64*(p4p6*p3p7*p2p8)*(-fmc+hbcm)+48*(p4p6*p3p7*p1p8)*(-
8440      . fmc+hbcm)+32*(p6p8*p3p7*p1p4)*(fmc-hbcm)+8*(p6p7*p4p8)*(-fmb2*
8441      . hbcm-2*fmc*hbcm2+fmc2*hbcm+hbcm3)+8*(p6p7*p1p8)*(fmb2*hbcm+2*
8442      . fmc*hbcm2-fmc2*hbcm-hbcm3)+16*(p6p7*p5p8*p3p4)*(fmb+fmc-hbcm)+
8443      . 16*(p6p8*p5p7*p3p4)*(-fmb-fmc+hbcm)+16*(p7p8*p4p6*p3p4)*(fmb+
8444      . fmc-hbcm)+16*(p6p7*p3p4*p2p8)*(-fmb-fmc+hbcm)+16*(p6p7*p5p8*
8445      . p1p3)*(-fmb-fmc+hbcm)+16*(p6p8*p5p7*p1p3)*(fmb+fmc-hbcm)+16*(
8446      . p7p8*p4p6*p1p3)*(-fmb-fmc+hbcm)+16*(p6p7*p2p8*p1p3)*(fmb+fmc-
8447      . hbcm)+16*(p7p8*p3p6)*(fmb*fmc2+fmb2*fmc-fmc*hbcm2+fmc2*hbcm)+
8448      . 16*(p6p7*p5p8)*(fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+16*(p6p8*
8449      . p5p7)*(-fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+16*(p7p8*p4p6)*(fmb*
8450      . fmc*hbcm+fmb2*hbcm+fmc*hbcm2-hbcm3)+16*(p6p8*p3p7)*(-fmb*fmc*
8451      . hbcm+fmb*fmc2+fmc*hbcm2-fmc3)+16*(p6p7*p2p8)*(-fmb*fmc*hbcm+
8452      . fmc*hbcm2-fmc2*hbcm)+32*(p5p8*p3p7*p3p6)*(ffmcfmb*fmc-fmc)+16*
8453      . (p4p8*p3p7*p3p6)*(ffmcfmb*fmc-hbcm)+32*(p3p7*p3p6*p2p8)*(-
8454      . ffmcfmb*fmc+fmc)+ans5
8455       ans3=w5*ans4
8456       ans6=(64*(p6p7*p5p8)*(-fb3*fmc+fb3*hbcm-fb4*fmb)+64*(p6p8*p5p7)
8457      . *(fb3*fmc-fb3*hbcm+fb4*fmb)+8*(p7p8*p4p6)*(-8*fb3*fmc+8*fb3*
8458      . hbcm-8*fb4*fmb+hbcm)+64*(p6p7*p2p8)*(fb3*fmc-fb3*hbcm+fb4*fmb)
8459      . +8*(p6p8*p3p7)*(-4*fb3*ffmcfmb*fmc+12*fb3*fmc-8*fb3*hbcm-8*fb4
8460      . *ffmcfmb*fmb+4*fb4*ffmcfmb*fmc+8*fb4*fmb-4*fb4*fmc-fmb+fmc-
8461      . hbcm)+8*(p7p8*p3p6)*(-8*fb3*ffmcfmb*fmc+8*fb3*fmc-8*fb4*
8462      . ffmcfmb*fmb-fmb-2*fmc+2*hbcm))
8463       ans2=w8*(48*(p4p6*p3p7*p2p8)*(-fmc+hbcm)+32*(p6p8*p3p7*p2p5)*(
8464      . fmc-hbcm)+8*(p6p7*p2p8)*(fmb2*hbcm+2*fmc*hbcm2-fmc2*hbcm-hbcm3
8465      . )+16*(p6p7*p5p8*p2p3)*(fmb+fmc-hbcm)+16*(p6p8*p5p7*p2p3)*(-fmb
8466      . -fmc+hbcm)+16*(p7p8*p4p6*p2p3)*(fmb+fmc-hbcm)+16*(p6p7*p2p8*
8467      . p2p3)*(-fmb-fmc+hbcm)+16*(p3p7*p3p6*p2p8)*(-ffmcfmb*fmc+hbcm)+
8468      . 16*(p6p8*p3p7*p2p3)*(ffmcfmb*fmb-ffmcfmb*fmc-fmb+2*fmc-hbcm)+
8469      . 16*(p7p8*p3p6*p2p3)*(ffmcfmb*fmb+ffmcfmb*fmc-fmc)-16*hbcm*p2p5
8470      . *p2p8*p6p7)+ans3+ans6
8471       ans1=w1*(16*(p5p8*p4p6*p3p7)*(fmc-hbcm)+32*(p4p8*p4p6*p3p7)*(
8472      . fmc-hbcm)+16*(p4p6*p3p7*p2p8)*(-fmc+hbcm)+16*(p4p6*p3p7*p1p8)*
8473      . (-fmc+hbcm)+32*(p6p8*p3p7*p1p4)*(fmc-hbcm)+8*(p6p7*p4p8)*(-
8474      . fmb2*hbcm-2*fmc*hbcm2+fmc2*hbcm+hbcm3)+16*(p6p7*p5p8*p3p4)*(
8475      . fmb+fmc-hbcm)+16*(p6p8*p5p7*p3p4)*(-fmb-fmc+hbcm)+16*(p7p8*
8476      . p4p6*p3p4)*(fmb+fmc-hbcm)+16*(p6p7*p3p4*p2p8)*(-fmb-fmc+hbcm)+
8477      . 16*(p7p8*p3p6)*(fmb*fmc2-fmc2*hbcm+fmc3)+16*(p6p7*p5p8)*(fmb*
8478      . fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+16*(p6p8*p5p7)*(-fmb*fmc*hbcm+
8479      . fmc*hbcm2-fmc2*hbcm)+16*(p7p8*p4p6)*(fmb*fmc*hbcm-fmc*hbcm2+
8480      . fmc2*hbcm)+16*(p6p8*p3p7)*(-fmb*fmc*hbcm+fmb*fmc2+fmc*hbcm2-
8481      . fmc3)+16*(p6p7*p2p8)*(-fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+16*(
8482      . p4p8*p3p7*p3p6)*(ffmcfmb*fmc-hbcm)+16*(p6p8*p3p7*p3p4)*(
8483      . ffmcfmb*fmb-ffmcfmb*fmc-fmb+hbcm)+16*(p7p8*p3p6*p3p4)*(ffmcfmb
8484      . *fmb+ffmcfmb*fmc-fmc)+16*hbcm*p2p5*p4p8*p6p7)+ans2
8485       ans=ccc*ans1
8486       b(3)=ans
8487       ans2=w5*(24*(p3p7*p1p4)*(fmc-hbcm)+12*(p5p7*p3p4)*(-fmb-fmc+
8488      . hbcm)+4*(p4p7*p3p4)*(fmb+fmc-hbcm)+12*(p5p7*p1p3)*(fmb+fmc-
8489      . hbcm)+4*(p4p7*p1p3)*(-fmb-fmc+hbcm)+12*p5p7*(-fmb*fmc*hbcm+fmc
8490      . *hbcm2-fmc2*hbcm)+4*p4p7*(fmb*fmc*hbcm+fmb2*hbcm+fmc*hbcm2-
8491      . hbcm3)+4*p3p7*(-3*fmb*fmc*hbcm+4*fmb*fmc2+fmb2*fmc+4*fmc*hbcm2
8492      . +fmc2*hbcm-5*fmc3)+4*(p3p7*p3p4)*(4*ffmcfmb*fmb-4*ffmcfmb*fmc-
8493      . 3*fmb-fmc+5*hbcm)+4*(p3p7*p1p3)*(-4*ffmcfmb*fmb+4*ffmcfmb*fmc+
8494      . 3*fmb-3*fmc-hbcm)+8*(fmc*p2p3*p5p7-fmc*p2p5*p3p7+hbcm*p1p2*
8495      . p5p7+hbcm*p2p4*p5p7-hbcm*p2p5*p4p7))+(48*p5p7*(fb3*fmc-fb3*
8496      . hbcm+fb4*fmb)+16*p4p7*(-fb3*fmc+fb3*hbcm-fb4*fmb)+4*p3p7*(-4*
8497      . fb3*ffmcfmb*fmc+16*fb3*fmc-12*fb3*hbcm-16*fb4*ffmcfmb*fmb+12*
8498      . fb4*ffmcfmb*fmc+12*fb4*fmb-12*fb4*fmc-2*fmb+fmc-hbcm))
8499       ans1=w1*(16*(p3p7*p1p4)*(fmc-hbcm)+12*(p5p7*p3p4)*(-fmb-fmc+
8500      . hbcm)+4*(p4p7*p3p4)*(fmb+fmc-hbcm)+12*p5p7*(-fmb*fmc*hbcm+fmc*
8501      . hbcm2-fmc2*hbcm)+4*p4p7*(fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+4*
8502      . p3p7*(-3*fmb*fmc*hbcm+4*fmb*fmc2+3*fmc*hbcm2+fmc2*hbcm-4*fmc3)
8503      . +4*(p3p7*p3p4)*(4*ffmcfmb*fmb-4*ffmcfmb*fmc-3*fmb+fmc+3*hbcm))
8504      . +w8*(24*(p3p7*p2p5)*(fmc-hbcm)+8*(p3p7*p2p4)*(-fmc+hbcm)+8*(
8505      . p3p7*p1p2)*(-fmc+hbcm)+12*(p5p7*p2p3)*(-fmb-fmc+hbcm)+4*(p4p7*
8506      . p2p3)*(fmb+fmc-hbcm)+4*(p3p7*p2p3)*(4*ffmcfmb*fmb-4*ffmcfmb*
8507      . fmc-3*fmb+7*fmc-3*hbcm))+ans2
8508       ans=ccc*ans1
8509       b(4)=ans
8510       ans2=w5*(20*(p5p7*p4p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p5p8*p4p7
8511      . )*(fmb*hbcm+fmc*hbcm-hbcm2)+4*(p4p8*p4p7)*(fmb*hbcm+fmc*hbcm-
8512      . hbcm2)+8*(p4p7*p2p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+4*(p5p7*p1p8)*
8513      . (fmb*hbcm+fmc*hbcm-hbcm2)+4*(p4p7*p1p8)*(-fmb*hbcm-fmc*hbcm+
8514      . hbcm2)+8*(p5p8*p3p7)*(fmb*fmc-4*fmc*hbcm+4*fmc2)+4*(p4p8*p3p7)
8515      . *(6*fmb*fmc-5*fmb*hbcm-9*fmc*hbcm+4*fmc2+5*hbcm2)+8*(p3p7*p2p8
8516      . )*(-fmb*fmc+4*fmc*hbcm-4*fmc2)+4*(p3p7*p1p8)*(-2*fmb*fmc+fmb*
8517      . hbcm+5*fmc*hbcm-4*fmc2-hbcm2)+(p5p8*p3p7*p3p4)*(24*ffmcfmb-24)
8518      . +(p4p8*p3p7*p3p4)*(-8*ffmcfmb+8)+(p3p7*p3p4*p2p8)*(-24*ffmcfmb
8519      . +24)+(p3p7*p3p4*p1p8)*(-8*ffmcfmb+8)+(p5p8*p3p7*p1p3)*(-24*
8520      . ffmcfmb+24)+(p4p8*p3p7*p1p3)*(8*ffmcfmb-8)+(p3p7*p2p8*p1p3)*(
8521      . 24*ffmcfmb-24)+(p3p7*p1p8*p1p3)*(8*ffmcfmb-8))+(16*p7p8*(fmb*
8522      . hbcm+fmc*hbcm-hbcm2)+(p5p8*p3p7)*(-96*fb4*ffmcfmb+96*fb4-12)+(
8523      . p4p8*p3p7)*(32*fb4*ffmcfmb-32*fb4+4)+(p3p7*p2p8)*(96*fb4*
8524      . ffmcfmb-96*fb4+12)+(p3p7*p1p8)*(32*fb4*ffmcfmb-32*fb4+4))
8525       ans1=w1*(24*(p5p8*p3p7)*(-fmc*hbcm+fmc2)+24*(p3p7*p2p8)*(fmc*
8526      . hbcm-fmc2)+8*(p3p7*p1p8)*(fmc*hbcm-fmc2)+12*(p5p7*p4p8)*(-fmb*
8527      . hbcm-fmc*hbcm+hbcm2)+4*(p4p8*p4p7)*(fmb*hbcm+fmc*hbcm-hbcm2)+4
8528      . *(p4p8*p3p7)*(4*fmb*fmc-3*fmb*hbcm-5*fmc*hbcm+2*fmc2+3*hbcm2)+
8529      . (p5p8*p3p7*p3p4)*(24*ffmcfmb-24)+(p4p8*p3p7*p3p4)*(-8*ffmcfmb+
8530      . 8)+(p3p7*p3p4*p2p8)*(-24*ffmcfmb+24)+(p3p7*p3p4*p1p8)*(-8*
8531      . ffmcfmb+8))+w8*(12*(p5p7*p2p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+4*(
8532      . p4p7*p2p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+4*(p3p7*p2p8)*(-4*fmb*
8533      . fmc+3*fmb*hbcm+7*fmc*hbcm-4*fmc2-3*hbcm2)+(p5p8*p3p7*p2p3)*(24
8534      . *ffmcfmb-24)+(p4p8*p3p7*p2p3)*(-8*ffmcfmb+8)+(p3p7*p2p8*p2p3)*
8535      . (-24*ffmcfmb+24)+(p3p7*p2p3*p1p8)*(-8*ffmcfmb+8))+ans2
8536       ans=ccc*ans1
8537       b(5)=ans
8538       ans3=((p3p7*p3p5)*(96*fb4*ffmcfmb-96*fb4+12)+(p3p7*p3p4)*(-32*
8539      . fb4*ffmcfmb+32*fb4-4)+(p3p7*p2p3)*(-96*fb4*ffmcfmb+96*fb4-12)+
8540      . (p3p7*p1p3)*(-32*fb4*ffmcfmb+32*fb4-4)+48*p5p7*(-fb3*fmb*hbcm-
8541      . fb4*fmc*hbcm+fb4*hbcm2)+16*p4p7*(fb3*fmb*hbcm+fb4*fmc*hbcm-fb4
8542      . *hbcm2)+4*p3p7*(16*fb3*fmb*fmc-12*fb3*fmb*hbcm-12*fb3*fmc*hbcm
8543      . +12*fb3*fmc2+16*fb4*fmc*hbcm-4*fb4*fmc2-12*fb4*hbcm2-4*fmb*
8544      . hbcm-3*fmc*hbcm+2*hbcm2))
8545       ans2=w5*(24*(p3p7*p1p4)*(fmc*hbcm-hbcm2)+8*(p4p7*p3p5)*(-fmb*
8546      . hbcm-fmc*hbcm+hbcm2)+20*(p5p7*p3p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+
8547      . 4*(p4p7*p3p4)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p4p7*p2p3)*(fmb*
8548      . hbcm+fmc*hbcm-hbcm2)+4*(p5p7*p1p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+
8549      . 4*(p4p7*p1p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p3p7*p3p5)*(-fmb*
8550      . fmc+4*fmc*hbcm-4*fmc2)+4*(p3p7*p3p4)*(-6*fmb*fmc+5*fmb*hbcm+
8551      . fmc*hbcm-4*fmc2+3*hbcm2)+8*(p3p7*p2p3)*(fmb*fmc-4*fmc*hbcm+4*
8552      . fmc2)+4*(p3p7*p1p3)*(2*fmb*fmc-fmb*hbcm-fmc*hbcm+4*fmc2-3*
8553      . hbcm2)+20*p5p7*(fmb*fmc*hbcm2-fmc*hbcm3+fmc2*hbcm2)+4*p4p7*(
8554      . fmb*fmc*hbcm2-2*fmb*hbcm3+fmb2*hbcm2-fmc*hbcm3+hbcm4)+(p3p7*
8555      . p3p5*p3p4)*(-24*ffmcfmb+24)+(p3p7*p3p4*p2p3)*(24*ffmcfmb-24)+4
8556      . *p3p7*(-2*ffmcfmb*p1p3s2+2*ffmcfmb*p3p4s2+3*fmb*fmc*hbcm2-4*
8557      . fmb*fmc2*hbcm+fmb2*fmc*hbcm+4*fmc*hbcm3+fmc2*hbcm2-5*fmc3*hbcm
8558      . +2*p1p3s2-2*p3p4s2)+(p3p7*p3p5*p1p3)*(24*ffmcfmb-24)+(p3p7*
8559      . p2p3*p1p3)*(-24*ffmcfmb+24)+8*(fmc*hbcm*p2p3*p5p7-fmc*hbcm*
8560      . p2p5*p3p7+hbcm2*p1p2*p5p7+hbcm2*p2p4*p5p7-hbcm2*p2p5*p4p7))+
8561      . ans3
8562       ans1=w1*(24*(p3p7*p3p5)*(fmc*hbcm-fmc2)+24*(p3p7*p2p3)*(-fmc*
8563      . hbcm+fmc2)+16*(p3p7*p1p4)*(fmc*hbcm-hbcm2)+8*(p3p7*p1p3)*(-fmc
8564      . *hbcm+fmc2)+12*(p5p7*p3p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+4*(p4p7*
8565      . p3p4)*(-fmb*hbcm-fmc*hbcm+hbcm2)+4*(p3p7*p3p4)*(-4*fmb*fmc+3*
8566      . fmb*hbcm-fmc*hbcm-2*fmc2+3*hbcm2)+12*p5p7*(fmb*fmc*hbcm2-fmc*
8567      . hbcm3+fmc2*hbcm2)+4*p4p7*(-fmb*fmc*hbcm2+fmc*hbcm3-fmc2*hbcm2)
8568      . +4*p3p7*(2*ffmcfmb*p3p4s2+3*fmb*fmc*hbcm2-4*fmb*fmc2*hbcm+3*
8569      . fmc*hbcm3+fmc2*hbcm2-4*fmc3*hbcm-2*p3p4s2)+(p3p7*p3p5*p3p4)*(-
8570      . 24*ffmcfmb+24)+(p3p7*p3p4*p2p3)*(24*ffmcfmb-24)+(p3p7*p3p4*
8571      . p1p3)*(8*ffmcfmb-8))+w8*(24*(p3p7*p2p5)*(fmc*hbcm-hbcm2)+8*(
8572      . p3p7*p2p4)*(-fmc*hbcm+hbcm2)+8*(p3p7*p1p2)*(-fmc*hbcm+hbcm2)+
8573      . 12*(p5p7*p2p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+4*(p4p7*p2p3)*(fmb*
8574      . hbcm+fmc*hbcm-hbcm2)+4*(p3p7*p2p3)*(4*fmb*fmc-3*fmb*hbcm-7*fmc
8575      . *hbcm+4*fmc2+3*hbcm2)+24*p3p7*(ffmcfmb*p2p3s2-p2p3s2)+(p3p7*
8576      . p3p5*p2p3)*(-24*ffmcfmb+24)+(p3p7*p3p4*p2p3)*(8*ffmcfmb-8)+(
8577      . p3p7*p2p3*p1p3)*(8*ffmcfmb-8))+ans2
8578       ans=ccc*ans1
8579       b(6)=ans
8580       ans3=(4*p7p8*(4*fmb*hbcm2-hbcm3)+12*(p5p8*p3p7)*(8*fb3*fmc-8*
8581      . fb3*hbcm-hbcm)+4*(p4p8*p3p7)*(-8*fb3*fmc+8*fb3*hbcm+hbcm)+12*(
8582      . p3p7*p2p8)*(-8*fb3*fmc+8*fb3*hbcm+hbcm)+4*(p3p7*p1p8)*(-8*fb3*
8583      . fmc+8*fb3*hbcm+hbcm)+4*(-hbcm*p1p3*p7p8-3*hbcm*p2p3*p7p8-hbcm*
8584      . p3p4*p7p8+3*hbcm*p3p5*p7p8))
8585       ans2=w5*(40*(p4p8*p3p7*p3p5)*(fmc-hbcm)+40*(p5p8*p3p7*p3p4)*(-
8586      . fmc+hbcm)+40*(p3p7*p3p4*p2p8)*(fmc-hbcm)+40*(p4p8*p3p7*p2p3)*(
8587      . -fmc+hbcm)+8*(p3p7*p3p5*p1p8)*(-fmc+hbcm)+16*(p3p7*p3p4*p1p8)*
8588      . (fmc-hbcm)+8*(p3p7*p2p3*p1p8)*(fmc-hbcm)+8*(p5p8*p3p7*p1p3)*(
8589      . fmc-hbcm)+16*(p4p8*p3p7*p1p3)*(-fmc+hbcm)+8*(p3p7*p2p8*p1p3)*(
8590      . -fmc+hbcm)+20*(p5p7*p4p8)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+8*(p5p8
8591      . *p4p7)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+4*(p4p8*p4p7)*(fmb*hbcm2+
8592      . fmc*hbcm2-hbcm3)+8*(p4p7*p2p8)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+4*
8593      . (p5p7*p1p8)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+4*(p4p7*p1p8)*(-fmb*
8594      . hbcm2-fmc*hbcm2+hbcm3)+8*(p5p8*p3p7)*(fmb*fmc*hbcm+4*fmc*hbcm2
8595      . -4*fmc2*hbcm)+4*(p4p8*p3p7)*(6*fmb*fmc*hbcm-5*fmb*hbcm2+9*fmc*
8596      . hbcm2-4*fmc2*hbcm-5*hbcm3)+8*(p3p7*p2p8)*(-fmb*fmc*hbcm-4*fmc*
8597      . hbcm2+4*fmc2*hbcm)+4*(p3p7*p1p8)*(-2*fmb*fmc*hbcm+fmb*hbcm2-5*
8598      . fmc*hbcm2+4*fmc2*hbcm+hbcm3))+ans3
8599       ans1=w1*(24*(p4p8*p3p7*p3p5)*(fmc-hbcm)+24*(p5p8*p3p7*p3p4)*(-
8600      . fmc+hbcm)+24*(p3p7*p3p4*p2p8)*(fmc-hbcm)+24*(p4p8*p3p7*p2p3)*(
8601      . -fmc+hbcm)+8*(p3p7*p3p4*p1p8)*(fmc-hbcm)+8*(p4p8*p3p7*p1p3)*(-
8602      . fmc+hbcm)+24*(p5p8*p3p7)*(fmc*hbcm2-fmc2*hbcm)+24*(p3p7*p2p8)*
8603      . (-fmc*hbcm2+fmc2*hbcm)+8*(p3p7*p1p8)*(-fmc*hbcm2+fmc2*hbcm)+12
8604      . *(p5p7*p4p8)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+4*(p4p8*p4p7)*(fmb*
8605      . hbcm2+fmc*hbcm2-hbcm3)+4*(p4p8*p3p7)*(4*fmb*fmc*hbcm-3*fmb*
8606      . hbcm2+5*fmc*hbcm2-2*fmc2*hbcm-3*hbcm3))+w8*(24*(p3p7*p3p5*p2p8
8607      . )*(-fmc+hbcm)+8*(p3p7*p3p4*p2p8)*(fmc-hbcm)+24*(p5p8*p3p7*p2p3
8608      . )*(fmc-hbcm)+8*(p4p8*p3p7*p2p3)*(-fmc+hbcm)+8*(p3p7*p2p3*p1p8)
8609      . *(-fmc+hbcm)+8*(p3p7*p2p8*p1p3)*(fmc-hbcm)+12*(p5p7*p2p8)*(fmb
8610      . *hbcm2+fmc*hbcm2-hbcm3)+4*(p4p7*p2p8)*(-fmb*hbcm2-fmc*hbcm2+
8611      . hbcm3)+4*(p3p7*p2p8)*(-4*fmb*fmc*hbcm+3*fmb*hbcm2-7*fmc*hbcm2+
8612      . 4*fmc2*hbcm+3*hbcm3))+ans2
8613       ans=ccc*ans1
8614       b(7)=ans
8615       ans3=((p3p6*p2p8)*(-64*fb4*ffmcfmb-8)+4*p6p8*(-4*fb3*fmb*fmc+4*
8616      . fb3*fmc*hbcm-4*fb3*fmc2-4*fb4*fmb*fmc-8*fb4*fmb2-12*fb4*fmc*
8617      . hbcm+4*fb4*fmc2+8*fb4*hbcm2+fmb*hbcm+fmc*hbcm-hbcm2)+64*(fb4*
8618      . p1p2*p6p8-fb4*p2p3*p6p8-fb4*p2p4*p6p8-fb4*p2p8*p4p6))
8619       ans2=w5*(48*(p5p8*p4p6)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p4p8*
8620      . p4p6)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p4p6*p2p8)*(2*fmb*hbcm+3*
8621      . fmc*hbcm-2*hbcm2)+32*(p4p6*p1p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*
8622      . (p6p8*p1p4)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*p6p8*(2*fmb*fmc2*hbcm
8623      . +fmb2*fmc*hbcm-fmc*hbcm3+fmc3*hbcm)+32*(p5p8*p3p6)*(-fmb*fmc+
8624      . fmc*hbcm-fmc2)+8*(p4p8*p3p6)*(-2*fmb*fmc-fmb*hbcm+fmc*hbcm-2*
8625      . fmc2+hbcm2)+8*(p6p8*p3p4)*(2*fmb*fmc+fmb2+fmc2-hbcm2)+16*(p3p6
8626      . *p2p8)*(fmb*fmc-fmc*hbcm+2*fmc2)+8*(p3p6*p1p8)*(2*fmb*fmc+fmb*
8627      . hbcm-fmc*hbcm+2*fmc2-hbcm2)+8*(p6p8*p1p3)*(-2*fmb*fmc-fmb2-
8628      . fmc2+hbcm2)+16*(-ffmcfmb*p1p3*p2p8*p3p6+ffmcfmb*p2p8*p3p4*p3p6
8629      . -fmc*hbcm*p1p2*p6p8+fmc*hbcm*p2p3*p6p8+fmc*hbcm*p2p4*p6p8+p1p2
8630      . *p1p3*p6p8-p1p2*p3p4*p6p8-p1p3*p2p3*p6p8-p1p3*p2p4*p6p8-p1p3*
8631      . p2p8*p4p6+p2p3*p3p4*p6p8+p2p4*p3p4*p6p8+p2p8*p3p4*p4p6))+ans3
8632       ans1=w1*(8*(p5p8*p4p6)*(-fmb*hbcm-fmc*hbcm+hbcm2)+24*(p4p8*p4p6
8633      . )*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p4p6*p2p8)*(fmb*hbcm+3*fmc*
8634      . hbcm-hbcm2)+8*(p4p6*p1p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p8*
8635      . p1p4)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*p6p8*(2*fmb*fmc2*hbcm+fmb2*
8636      . fmc*hbcm-fmc*hbcm3+fmc3*hbcm)+8*(p4p8*p3p6)*(-2*fmb*fmc-fmb*
8637      . hbcm+fmc*hbcm-2*fmc2+hbcm2)+8*(p6p8*p3p4)*(2*fmb*fmc+fmb2+fmc2
8638      . -hbcm2)+16*(ffmcfmb*p2p8*p3p4*p3p6-fmc*hbcm*p1p2*p6p8+fmc*hbcm
8639      . *p2p3*p6p8+fmc*hbcm*p2p4*p6p8+fmc2*p2p8*p3p6-p1p2*p3p4*p6p8+
8640      . p2p3*p3p4*p6p8+p2p4*p3p4*p6p8+p2p8*p3p4*p4p6))+w8*(32*(p4p6*
8641      . p2p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p8*p2p4)*(fmb*hbcm+fmc*
8642      . hbcm-hbcm2)+16*(p6p8*p1p2)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p3p6*
8643      . p2p8)*(2*fmb*fmc+fmb*hbcm-fmc*hbcm+2*fmc2-hbcm2)+8*(p6p8*p2p3)
8644      . *(2*fmb*fmc+fmb2+fmc2-hbcm2)+16*(ffmcfmb*p2p3*p2p8*p3p6-p1p2*
8645      . p2p3*p6p8+p2p3*p2p4*p6p8+p2p3*p2p8*p4p6+p2p3s2*p6p8))+ans2
8646       ans=ccc*ans1
8647       b(8)=ans
8648       ans3=((p3p6*p2p3)*(64*fb4*ffmcfmb+8)+64*p4p6*(-fb3*fmb*hbcm-fb4
8649      . *fmc*hbcm+fb4*hbcm2)+4*p3p6*(4*fb3*fmb*fmc-8*fb3*fmb*hbcm-4*
8650      . fb3*fmc*hbcm+4*fb3*fmc2+4*fb4*fmb*fmc+8*fb4*fmb2+4*fb4*fmc*
8651      . hbcm-4*fb4*fmc2-fmb*hbcm-fmc*hbcm+hbcm2)+64*(fb4*p2p3*p4p6-fb4
8652      . *p2p5*p3p6))
8653       ans2=w5*(48*(p4p6*p3p5)*(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p4p6*p3p4
8654      . )*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p3p6*p3p4)*(fmb*hbcm-fmb2-fmc*
8655      . hbcm+fmc2)+16*(p4p6*p2p3)*(-2*fmb*hbcm-3*fmc*hbcm+3*hbcm2)+16*
8656      . (p3p6*p1p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p4p6*p1p3)*(-fmb*
8657      . hbcm-fmc*hbcm+hbcm2)+8*(p3p6*p1p3)*(-fmb*hbcm+fmb2+fmc*hbcm-
8658      . fmc2)+32*(p3p6*p3p5)*(fmb*fmc-fmc*hbcm+fmc2)+16*(p3p6*p2p3)*(-
8659      . fmb*fmc+2*fmc*hbcm-2*fmc2)+8*p4p6*(-fmb*fmc*hbcm2+5*fmb*hbcm3-
8660      . 2*fmb2*hbcm2+2*fmc*hbcm3+fmc2*hbcm2-3*hbcm4)+8*p3p6*(4*fmb*fmc
8661      . *hbcm2-3*fmb*fmc2*hbcm-2*fmb2*fmc*hbcm-2*fmc*hbcm3+3*fmc2*
8662      . hbcm2-fmc3*hbcm)+16*(ffmcfmb*p1p3*p2p3*p3p6-ffmcfmb*p2p3*p3p4*
8663      . p3p6-fmc*hbcm*p1p2*p3p6+fmc*hbcm*p2p4*p3p6+3*fmc*hbcm*p2p5*
8664      . p3p6-hbcm2*p1p2*p4p6+hbcm2*p2p4*p4p6+3*hbcm2*p2p5*p4p6+p1p3*
8665      . p2p3*p4p6-p1p3*p2p5*p3p6-p2p3*p3p4*p4p6+p2p5*p3p4*p3p6))+ans3
8666       ans1=w8*(16*(p3p6*p2p5)*(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p4p6*p2p3
8667      . )*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p3p6*p2p3)*(-4*fmb*fmc+fmb*
8668      . hbcm-fmb2+3*fmc*hbcm-3*fmc2)+16*(-ffmcfmb*p2p3s2*p3p6+p2p3*
8669      . p2p5*p3p6-p2p3s2*p4p6))+w1*(8*(p4p6*p3p5)*(fmb*hbcm+fmc*hbcm-
8670      . hbcm2)+24*(p4p6*p3p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p3p6*p3p4)*
8671      . (fmb*hbcm-fmb2-fmc*hbcm+fmc2)+8*(p4p6*p2p3)*(-fmb*hbcm-4*fmc*
8672      . hbcm+hbcm2)+16*(p3p6*p1p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p4p6*
8673      . p1p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+4*p4p6*(2*fmb*fmc*hbcm2+2*fmb
8674      . *hbcm3-fmb2*hbcm2-2*fmc*hbcm3+3*fmc2*hbcm2-hbcm4)+8*p3p6*(fmb*
8675      . fmc*hbcm2-fmb*fmc2*hbcm-fmb2*fmc*hbcm)+8*(-2*ffmcfmb*p2p3*p3p4
8676      . *p3p6+2*fmc*hbcm*p2p4*p3p6+2*fmc*hbcm*p2p5*p3p6-2*fmc2*p2p3*
8677      . p3p6-hbcm2*p1p2*p4p6+hbcm2*p2p4*p4p6+hbcm2*p2p5*p4p6-2*p2p3*
8678      . p3p4*p4p6+2*p2p5*p3p4*p3p6))+ans2
8679       ans=ccc*ans1
8680       b(9)=ans
8681       ans5=8*(p3p6*p1p8)*(fmb*fmc*hbcm+fmb*hbcm2-fmb2*hbcm-2*fmc*
8682      . hbcm2+2*fmc2*hbcm)+16*(fmc*hbcm2*p2p5*p6p8-fmc*p1p8*p2p3*p3p6+
8683      . fmc*p2p3*p3p6*p4p8+2*fmc*p2p3*p3p6*p5p8-2*fmc*p2p8*p3p5*p3p6-
8684      . hbcm*p1p3*p2p5*p6p8+hbcm*p1p3*p2p8*p4p6-hbcm*p1p8*p2p3*p4p6+
8685      . hbcm*p1p8*p2p5*p3p6+hbcm*p2p3*p4p6*p4p8+2*hbcm*p2p3*p4p6*p5p8+
8686      . hbcm*p2p5*p3p4*p6p8-hbcm*p2p5*p3p6*p4p8-hbcm*p2p8*p3p4*p4p6-2*
8687      . hbcm*p2p8*p3p5*p4p6)
8688       ans4=16*(p5p8*p3p6*p3p4)*(-fmb-fmc+hbcm)+16*(p6p8*p3p5*p3p4)*(
8689      . fmb+fmc-hbcm)+16*(p3p6*p3p4*p2p8)*(fmb-hbcm)+16*(p6p8*p3p4*
8690      . p2p3)*(-fmb-fmc+hbcm)+16*(p5p8*p3p6*p1p3)*(fmb+fmc-hbcm)+16*(
8691      . p6p8*p3p5*p1p3)*(-fmb-fmc+hbcm)+16*(p3p6*p2p8*p1p3)*(-fmb+hbcm
8692      . )+16*(p6p8*p2p3*p1p3)*(fmb+fmc-hbcm)+32*(p5p8*p4p6)*(-fmb*
8693      . hbcm2-fmc*hbcm2+hbcm3)+24*(p4p8*p4p6)*(-fmb*hbcm2-fmc*hbcm2+
8694      . hbcm3)+8*(p6p8*p3p4)*(2*fmb*hbcm2-fmb2*hbcm+fmc2*hbcm-hbcm3)+
8695      . 16*(p4p6*p2p8)*(fmb*hbcm2+2*fmc*hbcm2-3*hbcm3)+24*(p4p6*p1p8)*
8696      . (fmb*hbcm2+fmc*hbcm2-hbcm3)+16*(p6p8*p1p4)*(-fmb*hbcm2-fmc*
8697      . hbcm2+hbcm3)+8*(p6p8*p1p3)*(-2*fmb*hbcm2+fmb2*hbcm-fmc2*hbcm+
8698      . hbcm3)+8*p6p8*(2*fmb*fmc*hbcm3-fmb2*fmc*hbcm2-fmc*hbcm4+fmc3*
8699      . hbcm2)+32*(p5p8*p3p6)*(-fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+8*(
8700      . p4p8*p3p6)*(-fmb*fmc*hbcm-fmb*hbcm2+fmb2*hbcm+2*fmc*hbcm2-2*
8701      . fmc2*hbcm)+16*(p6p8*p3p5)*(fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+
8702      . 16*(p3p6*p2p8)*(fmb*fmc*hbcm-3*fmc*hbcm2+2*fmc2*hbcm)+16*(p6p8
8703      . *p2p3)*(-fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+ans5
8704       ans3=w5*ans4
8705       ans6=(8*(p3p6*p2p8)*(8*fb3*hbcm-8*fb4*fmb+hbcm)+64*(p5p8*p3p6)*
8706      . (fb3*fmc-fb3*hbcm+fb4*fmb)+64*(p6p8*p3p5)*(-fb3*fmc+fb3*hbcm-
8707      . fb4*fmb)+8*(p6p8*p2p3)*(8*fb3*fmc-8*fb3*hbcm+8*fb4*fmb-hbcm)+
8708      . 16*p6p8*(-fb3*fmb*fmc*hbcm+2*fb3*fmb2*hbcm-3*fb3*fmc*hbcm2+fb3
8709      . *fmc2*hbcm+2*fb3*hbcm3+3*fb4*fmb*fmc*hbcm-4*fb4*fmb*hbcm2+fb4*
8710      . fmc*hbcm2-fb4*fmc2*hbcm)+64*(-fb3*hbcm*p2p5*p6p8+fb3*hbcm*p2p8
8711      . *p4p6))
8712       ans2=w1*(16*(p5p8*p3p6*p3p4)*(-fmb-fmc+hbcm)+16*(p6p8*p3p5*p3p4
8713      . )*(fmb+fmc-hbcm)+16*(p3p6*p3p4*p2p8)*(fmb-hbcm)+16*(p6p8*p3p4*
8714      . p2p3)*(-fmb-fmc+hbcm)+8*(p5p8*p4p6)*(-fmb*hbcm2-fmc*hbcm2+
8715      . hbcm3)+16*(p4p8*p4p6)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+8*(p6p8*
8716      . p3p4)*(2*fmb*hbcm2-fmb2*hbcm+fmc2*hbcm-hbcm3)+8*(p4p6*p2p8)*(
8717      . fmb*hbcm2-fmc*hbcm2-hbcm3)+8*(p4p6*p1p8)*(fmb*hbcm2+fmc*hbcm2-
8718      . hbcm3)+16*(p6p8*p1p4)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+8*p6p8*(2*
8719      . fmb*fmc*hbcm3-fmb2*fmc*hbcm2-fmc*hbcm4+fmc3*hbcm2)+16*(p5p8*
8720      . p3p6)*(-fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+8*(p4p8*p3p6)*(-fmb*
8721      . fmc*hbcm-fmb*hbcm2+fmb2*hbcm+2*fmc*hbcm2-2*fmc2*hbcm)+16*(p6p8
8722      . *p3p5)*(fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+16*(p3p6*p2p8)*(fmb*
8723      . fmc*hbcm-fmc*hbcm2)+16*(p6p8*p2p3)*(-fmb*fmc*hbcm+fmc*hbcm2-
8724      . fmc2*hbcm)+16*(fmc*hbcm2*p2p5*p6p8+fmc*p2p3*p3p6*p4p8+hbcm*
8725      . p2p3*p4p6*p4p8+hbcm*p2p5*p3p4*p6p8-hbcm*p2p5*p3p6*p4p8-hbcm*
8726      . p2p8*p3p4*p4p6))+ans3+ans6
8727       ans1=w8*(8*(p6p8*p2p3)*(fmb2*hbcm+2*fmc*hbcm2-fmc2*hbcm-hbcm3)+
8728      . 16*p6p8*(-fmb*p2p3s2-fmc*p2p3s2+hbcm*p2p3s2)+16*(p5p8*p3p6*
8729      . p2p3)*(-fmb-fmc+hbcm)+16*(p6p8*p3p5*p2p3)*(fmb+fmc-hbcm)+16*(
8730      . p3p6*p2p8*p2p3)*(fmb+fmc-hbcm)+24*(p4p6*p2p8)*(fmb*hbcm2+fmc*
8731      . hbcm2-hbcm3)+16*(p6p8*p2p5)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+8*(
8732      . p3p6*p2p8)*(fmb*fmc*hbcm+fmb*hbcm2-fmb2*hbcm-2*fmc*hbcm2+2*
8733      . fmc2*hbcm)+16*(-hbcm*p2p3*p2p5*p6p8+hbcm*p2p5*p2p8*p3p6))+ans2
8734       ans=ccc*ans1
8735       b(10)=ans
8736       ans5=16*(p6p7*p3p5)*(-fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+16*(
8737      . p6p7*p2p3)*(fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+32*(p3p7*p3p6*
8738      . p3p5)*(-ffmcfmb*fmc+fmc)+32*(p3p7*p3p6*p2p3)*(ffmcfmb*fmc-fmc)
8739      . +16*(p3p7*p3p6*p3p4)*(-2*ffmcfmb*fmb-ffmcfmb*fmc+fmb+fmc)+16*(
8740      . p3p7*p3p6*p1p3)*(2*ffmcfmb*fmb+ffmcfmb*fmc-fmb-fmc)+16*(-fmc*
8741      . hbcm2*p2p5*p6p7-2*fmc*p2p3*p3p6*p5p7+2*fmc*p2p5*p3p6*p3p7+hbcm
8742      . *p1p3*p2p5*p6p7-2*hbcm*p2p3*p4p6*p5p7-hbcm*p2p5*p3p4*p6p7+2*
8743      . hbcm*p2p5*p3p7*p4p6)
8744       ans4=64*(p4p6*p3p7*p3p5)*(-fmc+hbcm)+64*(p4p6*p3p7*p2p3)*(fmc-
8745      . hbcm)+32*(p3p7*p3p6*p1p4)*(-fmc+hbcm)+16*(p4p6*p3p7*p3p4)*(-
8746      . fmb-4*fmc+4*hbcm)+16*(p5p7*p3p6*p3p4)*(fmb+fmc-hbcm)+16*(p6p7*
8747      . p3p5*p3p4)*(-fmb-fmc+hbcm)+16*(p6p7*p3p4*p2p3)*(fmb+fmc-hbcm)+
8748      . 16*(p4p6*p3p7*p1p3)*(fmb+4*fmc-4*hbcm)+16*(p5p7*p3p6*p1p3)*(-
8749      . fmb-fmc+hbcm)+16*(p6p7*p3p5*p1p3)*(fmb+fmc-hbcm)+16*(p6p7*p2p3
8750      . *p1p3)*(-fmb-fmc+hbcm)+32*(p5p7*p4p6)*(fmb*hbcm2+fmc*hbcm2-
8751      . hbcm3)+16*(p4p7*p4p6)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+8*(p6p7*p3p4
8752      . )*(-2*fmb*hbcm2+fmb2*hbcm-fmc2*hbcm+hbcm3)+16*(p6p7*p1p4)*(fmb
8753      . *hbcm2+fmc*hbcm2-hbcm3)+8*(p6p7*p1p3)*(2*fmb*hbcm2-fmb2*hbcm+
8754      . fmc2*hbcm-hbcm3)+8*p6p7*(-2*fmb*fmc*hbcm3+fmb2*fmc*hbcm2+fmc*
8755      . hbcm4-fmc3*hbcm2)+16*(p4p6*p3p7)*(-2*fmb*fmc*hbcm+2*fmb*hbcm2-
8756      . fmb2*hbcm-fmc*hbcm2-fmc2*hbcm+2*hbcm3)+32*(p5p7*p3p6)*(fmb*fmc
8757      . *hbcm-fmc*hbcm2+fmc2*hbcm)+16*(p4p7*p3p6)*(fmb*fmc*hbcm-fmc*
8758      . hbcm2+fmc2*hbcm)+16*(p3p7*p3p6)*(2*fmb*fmc*hbcm-2*fmb*fmc2-
8759      . fmb2*fmc+fmc*hbcm2-2*fmc2*hbcm+fmc3)+ans5
8760       ans3=w5*ans4
8761       ans6=(8*(p4p6*p3p7)*(16*fb3*fmc-16*fb3*hbcm+8*fb4*fmb-hbcm)+64*
8762      . (p5p7*p3p6)*(-fb3*fmc+fb3*hbcm-fb4*fmb)+64*(p6p7*p3p5)*(fb3*
8763      . fmc-fb3*hbcm+fb4*fmb)+64*(p6p7*p2p3)*(-fb3*fmc+fb3*hbcm-fb4*
8764      . fmb)+4*p6p7*(4*fb3*fmb*fmc*hbcm-8*fb3*fmb2*hbcm+12*fb3*fmc*
8765      . hbcm2-4*fb3*fmc2*hbcm-8*fb3*hbcm3-12*fb4*fmb*fmc*hbcm+16*fb4*
8766      . fmb*hbcm2-4*fb4*fmc*hbcm2+4*fb4*fmc2*hbcm-fmb*hbcm2-fmc*hbcm2+
8767      . hbcm3)+8*(p3p7*p3p6)*(4*fb3*ffmcfmb*fmc-4*fb3*fmc+16*fb4*
8768      . ffmcfmb*fmb-4*fb4*ffmcfmb*fmc-8*fb4*fmb+4*fb4*fmc+2*fmb+fmc-
8769      . hbcm)+64*fb3*hbcm*p2p5*p6p7)
8770       ans2=w8*(32*(p3p7*p3p6*p2p5)*(-fmc+hbcm)+8*(p6p7*p2p3)*(-fmb2*
8771      . hbcm-2*fmc*hbcm2+fmc2*hbcm+hbcm3)+16*p6p7*(fmb*p2p3s2+fmc*
8772      . p2p3s2-hbcm*p2p3s2)+16*(p4p6*p3p7*p2p3)*(-fmb+2*fmc-2*hbcm)+16
8773      . *(p5p7*p3p6*p2p3)*(fmb+fmc-hbcm)+16*(p6p7*p3p5*p2p3)*(-fmb-fmc
8774      . +hbcm)+16*(p6p7*p2p5)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+16*(p3p7*
8775      . p3p6*p2p3)*(-2*ffmcfmb*fmb+ffmcfmb*fmc+fmb-fmc)+16*hbcm*p2p3*
8776      . p2p5*p6p7)+ans3+ans6
8777       ans1=w1*(16*(p4p6*p3p7*p3p5)*(-fmc+hbcm)+16*(p4p6*p3p7*p2p3)*(
8778      . fmc-hbcm)+32*(p3p7*p3p6*p1p4)*(-fmc+hbcm)+16*(p4p6*p3p7*p1p3)*
8779      . (fmc-hbcm)+16*(p4p6*p3p7*p3p4)*(-fmb-3*fmc+3*hbcm)+16*(p5p7*
8780      . p3p6*p3p4)*(fmb+fmc-hbcm)+16*(p6p7*p3p5*p3p4)*(-fmb-fmc+hbcm)+
8781      . 16*(p6p7*p3p4*p2p3)*(fmb+fmc-hbcm)+8*(p5p7*p4p6)*(fmb*hbcm2+
8782      . fmc*hbcm2-hbcm3)+8*(p4p7*p4p6)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+8*(
8783      . p6p7*p3p4)*(-2*fmb*hbcm2+fmb2*hbcm-fmc2*hbcm+hbcm3)+16*(p6p7*
8784      . p1p4)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+8*p6p7*(-2*fmb*fmc*hbcm3+
8785      . fmb2*fmc*hbcm2+fmc*hbcm4-fmc3*hbcm2)+8*(p4p6*p3p7)*(-4*fmb*fmc
8786      . *hbcm+fmb*hbcm2+3*fmc*hbcm2-4*fmc2*hbcm+hbcm3)+16*(p5p7*p3p6)*
8787      . (fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+16*(p4p7*p3p6)*(fmb*fmc*
8788      . hbcm-fmc*hbcm2+fmc2*hbcm)+16*(p3p7*p3p6)*(fmb*fmc*hbcm-2*fmb*
8789      . fmc2)+16*(p6p7*p3p5)*(-fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+16*(
8790      . p6p7*p2p3)*(fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+16*(p3p7*p3p6*
8791      . p3p4)*(-2*ffmcfmb*fmb-ffmcfmb*fmc+fmb+fmc)+16*(-fmc*hbcm2*p2p5
8792      . *p6p7-hbcm*p2p5*p3p4*p6p7))+ans2
8793       ans=ccc*ans1
8794       b(11)=ans
8795       ans5=16*(2*ffmcfmb*p2p3*p3p4*p3p6*p7p8-2*ffmcfmb*p2p3*p3p4*p3p7
8796      . *p6p8-4*ffmcfmb*p2p8*p3p4*p3p6*p3p7+2*fmb*hbcm*p1p4*p3p7*p6p8-
8797      . fmb*hbcm*p1p8*p3p7*p4p6+fmb*hbcm*p3p7*p4p6*p5p8-2*fmc*hbcm*
8798      . p1p8*p2p3*p6p7-2*fmc*hbcm*p2p3*p4p7*p6p8-2*fmc*hbcm*p2p3*p5p7*
8799      . p6p8+2*fmc*hbcm*p2p3*p5p8*p6p7-2*fmc*hbcm*p2p4*p3p6*p7p8-2*fmc
8800      . *hbcm*p2p5*p3p6*p7p8+2*fmc*hbcm*p2p5*p3p7*p6p8-2*fmc*hbcm*p2p8
8801      . *p3p5*p6p7+2*fmc*hbcm*p2p8*p3p6*p4p7+2*fmc*hbcm*p2p8*p3p6*p5p7
8802      . +2*fmc2*p2p3*p3p6*p7p8-2*fmc2*p2p3*p3p7*p6p8-4*fmc2*p2p8*p3p6*
8803      . p3p7+hbcm2*p1p2*p4p6*p7p8+2*hbcm2*p1p4*p2p8*p6p7-hbcm2*p2p4*
8804      . p4p6*p7p8-hbcm2*p2p5*p4p6*p7p8-hbcm2*p2p5*p4p8*p6p7+hbcm2*p2p8
8805      . *p4p6*p4p7+hbcm2*p2p8*p4p6*p5p7-2*p1p8*p2p3*p3p4*p6p7+2*p2p3*
8806      . p3p4*p4p6*p7p8-2*p2p3*p3p4*p4p7*p6p8+2*p2p3*p3p4*p4p8*p6p7-2*
8807      . p2p3*p3p4*p5p7*p6p8+2*p2p3*p3p4*p5p8*p6p7-2*p2p5*p3p4*p3p6*
8808      . p7p8+2*p2p5*p3p4*p3p7*p6p8-2*p2p8*p3p4*p3p5*p6p7+2*p2p8*p3p4*
8809      . p3p6*p5p7-4*p2p8*p3p4*p3p7*p4p6)
8810       ans4=16*(p6p8*p5p7)*(-fmb*fmc*hbcm2+fmc*hbcm3-fmc2*hbcm2)+8*(
8811      . p6p7*p4p8)*(2*fmb*fmc*hbcm2-2*fmb*hbcm3+fmb2*hbcm2-2*fmc*hbcm3
8812      . +fmc2*hbcm2+hbcm4)+16*(p6p8*p3p7)*(-fmb*fmc*hbcm2-fmb*fmc2*
8813      . hbcm-fmb2*fmc*hbcm)+16*(p7p8*p3p6)*(-fmb*fmc*hbcm2+2*fmb*fmc2*
8814      . hbcm+fmb2*fmc*hbcm-fmc2*hbcm2+fmc3*hbcm)+16*(p6p7*p2p8)*(-fmb*
8815      . fmc*hbcm2-fmc*hbcm3-fmc2*hbcm2)+(p5p8*p3p7*p3p6*p3p4)*(-32*
8816      . ffmcfmb+32)+(p6p8*p3p7*p3p5*p3p4)*(32*ffmcfmb-32)+ans5
8817       ans3=32*(p5p8*p3p7*p3p6)*(fmc*hbcm-fmc2)+32*(p6p8*p3p7*p3p5)*(-
8818      . fmc*hbcm+fmc2)+8*(p7p8*p4p6)*(-2*fmb*hbcm3+fmb2*hbcm2-fmc2*
8819      . hbcm2+hbcm4)+16*(p4p8*p4p6*p3p7)*(2*fmb*hbcm+fmc*hbcm-hbcm2)+
8820      . 16*(p5p7*p4p8*p3p6)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p4p8*p3p7*
8821      . p3p6)*(2*fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p7*p4p8*p3p5)*(-fmb*
8822      . hbcm-fmc*hbcm+hbcm2)+16*(p7p8*p4p6*p3p5)*(-fmb*hbcm-fmc*hbcm+
8823      . hbcm2)+16*(p6p7*p5p8*p3p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p8*
8824      . p5p7*p3p4)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p7p8*p4p6*p3p4)*(-
8825      . fmb*hbcm-fmc*hbcm+hbcm2)+16*(p4p6*p3p7*p2p8)*(-fmb*hbcm-6*fmc*
8826      . hbcm+hbcm2)+16*(p6p7*p3p4*p2p8)*(-fmb*hbcm-fmc*hbcm-hbcm2)+16*
8827      . (p6p7*p4p8*p2p3)*(fmb*hbcm+3*fmc*hbcm-hbcm2)+16*(p7p8*p4p6*
8828      . p2p3)*(fmb*hbcm+4*fmc*hbcm-hbcm2)+32*(p7p8*p3p6*p1p4)*(-fmb*
8829      . hbcm-fmc*hbcm+hbcm2)+16*(p7p8*p4p6*p1p3)*(fmb*hbcm+fmc*hbcm-
8830      . hbcm2)+16*(p6p8*p3p7*p3p4)*(-fmb*fmc-fmb*hbcm-fmb2)+16*(p7p8*
8831      . p3p6*p3p4)*(fmb*fmc-fmb*hbcm+fmb2)+16*(p6p7*p5p8)*(fmb*fmc*
8832      . hbcm2-fmc*hbcm3+fmc2*hbcm2)+ans4
8833       ans2=w1*ans3
8834       ans8=16*(-4*ffmcfmb*p2p3*p2p8*p3p6*p3p7+2*ffmcfmb*p2p3s2*p3p6*
8835      . p7p8-2*ffmcfmb*p2p3s2*p3p7*p6p8+2*fmb*hbcm*p2p5*p3p7*p6p8+
8836      . hbcm2*p2p5*p2p8*p6p7-2*p1p8*p2p3s2*p6p7-2*p2p3*p2p5*p3p6*p7p8+
8837      . 2*p2p3*p2p5*p3p7*p6p8-2*p2p3*p2p8*p3p5*p6p7+2*p2p3*p2p8*p3p6*
8838      . p5p7-4*p2p3*p2p8*p3p7*p4p6+2*p2p3s2*p4p6*p7p8-2*p2p3s2*p4p7*
8839      . p6p8+2*p2p3s2*p4p8*p6p7-2*p2p3s2*p5p7*p6p8+2*p2p3s2*p5p8*p6p7)
8840       ans7=16*(p4p6*p3p7*p2p8)*(-5*fmb*hbcm-7*fmc*hbcm+7*hbcm2)+16*(
8841      . p5p7*p3p6*p2p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p7*p3p5*p2p8)*
8842      . (-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p7p8*p3p6*p2p5)*(-fmb*hbcm-fmc*
8843      . hbcm+hbcm2)+16*(p6p7*p5p8*p2p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(
8844      . p6p8*p5p7*p2p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p6p7*p4p8*p2p3)
8845      . *(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p6p8*p4p7*p2p3)*(-fmb*hbcm-fmc*
8846      . hbcm+hbcm2)+48*(p7p8*p4p6*p2p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+32*(
8847      . p6p7*p2p3*p1p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p3p7*p3p6*p2p8)
8848      . *(-4*fmb*fmc+3*fmc*hbcm-4*fmc2+hbcm2)+16*(p6p8*p3p7*p2p3)*(-3*
8849      . fmb*fmc+fmb*hbcm-fmb2+2*fmc*hbcm-2*fmc2)+16*(p7p8*p3p6*p2p3)*(
8850      . 3*fmb*fmc-fmb*hbcm+fmb2-2*fmc*hbcm+2*fmc2)+8*(p6p7*p2p8)*(2*
8851      . fmb*fmc*hbcm2-2*fmb*hbcm3+fmb2*hbcm2-2*fmc*hbcm3+fmc2*hbcm2+
8852      . hbcm4)+(p5p8*p3p7*p3p6*p2p3)*(-32*ffmcfmb+32)+(p6p8*p3p7*p3p5*
8853      . p2p3)*(32*ffmcfmb-32)+ans8
8854       ans6=w8*ans7
8855       ans15=-2*p2p8*p3p4*p3p5*p6p7+2*p2p8*p3p4*p3p6*p5p7-4*p2p8*p3p4*
8856      . p3p7*p4p6
8857       ans14=-2*ffmcfmb*p1p3*p2p3*p3p6*p7p8+2*ffmcfmb*p1p3*p2p3*p3p7*
8858      . p6p8+4*ffmcfmb*p1p3*p2p8*p3p6*p3p7+2*ffmcfmb*p2p3*p3p4*p3p6*
8859      . p7p8-2*ffmcfmb*p2p3*p3p4*p3p7*p6p8-4*ffmcfmb*p2p8*p3p4*p3p6*
8860      . p3p7+2*fmb*fmc*p3p6*p3p7*p5p8+2*fmb*hbcm*p1p4*p3p7*p6p8+2*fmc*
8861      . hbcm*p1p2*p3p6*p7p8-2*fmc*hbcm*p2p3*p4p7*p6p8-2*fmc*hbcm*p2p3*
8862      . p5p7*p6p8+2*fmc*hbcm*p2p3*p5p8*p6p7-2*fmc*hbcm*p2p4*p3p6*p7p8-
8863      . 4*fmc*hbcm*p2p5*p3p6*p7p8+2*fmc*hbcm*p2p5*p3p7*p6p8-2*fmc*hbcm
8864      . *p2p8*p3p5*p6p7+2*fmc*hbcm*p2p8*p3p6*p4p7+4*fmc*hbcm*p2p8*p3p6
8865      . *p5p7-2*fmc2*p2p3*p3p7*p6p8+2*hbcm2*p1p2*p4p6*p7p8+2*hbcm2*
8866      . p1p4*p2p8*p6p7+hbcm2*p1p8*p2p5*p6p7-2*hbcm2*p2p4*p4p6*p7p8-4*
8867      . hbcm2*p2p5*p4p6*p7p8-hbcm2*p2p5*p4p8*p6p7+2*hbcm2*p2p8*p4p6*
8868      . p4p7+4*hbcm2*p2p8*p4p6*p5p7+2*p1p3*p1p8*p2p3*p6p7-2*p1p3*p2p3*
8869      . p4p6*p7p8+2*p1p3*p2p3*p4p7*p6p8-2*p1p3*p2p3*p4p8*p6p7+2*p1p3*
8870      . p2p3*p5p7*p6p8-2*p1p3*p2p3*p5p8*p6p7+2*p1p3*p2p5*p3p6*p7p8-2*
8871      . p1p3*p2p5*p3p7*p6p8+2*p1p3*p2p8*p3p5*p6p7-2*p1p3*p2p8*p3p6*
8872      . p5p7+4*p1p3*p2p8*p3p7*p4p6-2*p1p8*p2p3*p3p4*p6p7+2*p2p3*p3p4*
8873      . p4p6*p7p8-2*p2p3*p3p4*p4p7*p6p8+2*p2p3*p3p4*p4p8*p6p7-2*p2p3*
8874      . p3p4*p5p7*p6p8+2*p2p3*p3p4*p5p8*p6p7-2*p2p5*p3p4*p3p6*p7p8+2*
8875      . p2p5*p3p4*p3p7*p6p8+ans15
8876       ans13=16*ans14
8877       ans12=8*(p6p7*p1p8)*(-2*fmb*fmc*hbcm2+2*fmb*hbcm3-fmb2*hbcm2+2*
8878      . fmc*hbcm3-fmc2*hbcm2-hbcm4)+(p5p8*p3p7*p3p6*p3p4)*(-32*ffmcfmb
8879      . +32)+(p6p8*p3p7*p3p5*p3p4)*(32*ffmcfmb-32)+(p5p8*p3p7*p3p6*
8880      . p1p3)*(32*ffmcfmb-32)+(p6p8*p3p7*p3p5*p1p3)*(-32*ffmcfmb+32)+
8881      . ans13
8882       ans11=16*(p6p7*p3p5*p1p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p7*
8883      . p2p3*p1p8)*(-fmb*hbcm-3*fmc*hbcm+hbcm2)+32*(p7p8*p3p6*p1p4)*(-
8884      . fmb*hbcm-fmc*hbcm+hbcm2)+16*(p6p7*p5p8*p1p3)*(-fmb*hbcm-fmc*
8885      . hbcm+hbcm2)+16*(p6p8*p5p7*p1p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+48*(
8886      . p7p8*p4p6*p1p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p7*p2p8*p1p3)*
8887      . (fmb*hbcm+fmc*hbcm+hbcm2)+32*(p7p8*p3p6*p3p5)*(-fmb*fmc+fmc*
8888      . hbcm-fmc2)+16*(p6p8*p3p7*p3p4)*(-fmb*fmc-fmb*hbcm-fmb2)+16*(
8889      . p7p8*p3p6*p3p4)*(fmb*fmc-fmb*hbcm+fmb2)+16*(p6p8*p3p7*p1p3)*(
8890      . fmb*fmc+fmb*hbcm+fmb2)+16*(p7p8*p3p6*p1p3)*(-fmb*fmc+fmb*hbcm-
8891      . fmb2)+16*(p6p7*p5p8)*(fmb*fmc*hbcm2-fmc*hbcm3+fmc2*hbcm2)+16*(
8892      . p6p8*p5p7)*(-fmb*fmc*hbcm2+fmc*hbcm3-fmc2*hbcm2)+8*(p6p7*p4p8)
8893      . *(2*fmb*fmc*hbcm2-2*fmb*hbcm3+fmb2*hbcm2-2*fmc*hbcm3+fmc2*
8894      . hbcm2+hbcm4)+16*(p6p8*p3p7)*(-fmb*fmc*hbcm2-fmb*fmc2*hbcm-fmb2
8895      . *fmc*hbcm)+16*(p7p8*p3p6)*(-2*fmb*fmc*hbcm2+2*fmb*fmc2*hbcm+
8896      . fmb2*fmc*hbcm+fmc*hbcm3-2*fmc2*hbcm2+fmc3*hbcm)+16*(p6p7*p2p8)
8897      . *(-fmb*fmc*hbcm2-fmc*hbcm3-fmc2*hbcm2)+ans12
8898       ans10=32*(p6p8*p3p7*p3p5)*(-fmc*hbcm+fmc2)+32*(p3p7*p3p6*p2p8)*
8899      . (fmc*hbcm-2*fmc2)+32*(p7p8*p3p6*p2p3)*(-fmc*hbcm+fmc2)+16*(
8900      . p7p8*p4p6)*(-3*fmb*hbcm3+fmb2*hbcm2-fmc*hbcm3-fmc2*hbcm2+2*
8901      . hbcm4)+32*(p5p8*p4p6*p3p7)*(2*fmb*hbcm+fmc*hbcm-hbcm2)+16*(
8902      . p4p8*p4p6*p3p7)*(3*fmb*hbcm+fmc*hbcm-hbcm2)+16*(p5p7*p4p8*p3p6
8903      . )*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p4p8*p3p7*p3p6)*(2*fmb*hbcm+
8904      . fmc*hbcm-hbcm2)+16*(p6p7*p4p8*p3p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)
8905      . +64*(p7p8*p4p6*p3p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p6p7*p5p8*
8906      . p3p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p8*p5p7*p3p4)*(-fmb*hbcm
8907      . -fmc*hbcm+hbcm2)+48*(p7p8*p4p6*p3p4)*(-fmb*hbcm-fmc*hbcm+hbcm2
8908      . )+32*(p4p6*p3p7*p2p8)*(-fmb*hbcm-3*fmc*hbcm+2*hbcm2)+16*(p6p7*
8909      . p3p4*p2p8)*(-fmb*hbcm-fmc*hbcm-hbcm2)+16*(p6p7*p4p8*p2p3)*(fmb
8910      . *hbcm+3*fmc*hbcm-hbcm2)+32*(p7p8*p4p6*p2p3)*(fmb*hbcm+2*fmc*
8911      . hbcm-2*hbcm2)+16*(p4p6*p3p7*p1p8)*(-3*fmb*hbcm-fmc*hbcm+hbcm2)
8912      . +16*(p5p7*p3p6*p1p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p3p7*p3p6*
8913      . p1p8)*(-2*fmb*hbcm-fmc*hbcm+hbcm2)+ans11
8914       ans9=w5*ans10
8915       ans16=((p5p8*p3p7*p3p6)*(128*fb4*ffmcfmb-128*fb4+16)+(p6p8*p3p7
8916      . *p3p5)*(-128*fb4*ffmcfmb+128*fb4-16)+(p3p7*p3p6*p2p8)*(256*fb4
8917      . *ffmcfmb+32)+(p6p8*p3p7*p2p3)*(128*fb4*ffmcfmb+16)+(p7p8*p3p6*
8918      . p2p3)*(-128*fb4*ffmcfmb-16)+64*(p6p7*p5p8)*(-fb3*fmb*hbcm-fb4*
8919      . fmc*hbcm+fb4*hbcm2)+64*(p6p8*p5p7)*(fb3*fmb*hbcm+fb4*fmc*hbcm-
8920      . fb4*hbcm2)+64*(p7p8*p4p6)*(fb3*fmb*hbcm+fb4*fmc*hbcm-fb4*hbcm2
8921      . )+8*(p6p7*p2p8)*(8*fb3*fmb*hbcm+4*fb3*fmc*hbcm-4*fb4*fmc*hbcm+
8922      . 8*fb4*hbcm2-hbcm2)+8*(p6p8*p3p7)*(-4*fb3*fmb*fmc+8*fb3*fmb*
8923      . hbcm+4*fb4*fmb*fmc+8*fb4*fmb2+fmb*hbcm)+8*(p7p8*p3p6)*(-12*fb3
8924      . *fmb*fmc+8*fb3*fmb*hbcm+4*fb3*fmc*hbcm-4*fb3*fmc2-4*fb4*fmb*
8925      . fmc-8*fb4*fmb2+4*fb4*fmc*hbcm-4*fb4*fmc2-fmb*hbcm+fmc*hbcm)+
8926      . 128*(fb4*p1p8*p2p3*p6p7-fb4*p2p3*p4p6*p7p8+fb4*p2p3*p4p7*p6p8-
8927      . fb4*p2p3*p4p8*p6p7+fb4*p2p3*p5p7*p6p8-fb4*p2p3*p5p8*p6p7+fb4*
8928      . p2p5*p3p6*p7p8-fb4*p2p5*p3p7*p6p8+fb4*p2p8*p3p5*p6p7-fb4*p2p8*
8929      . p3p6*p5p7+2*fb4*p2p8*p3p7*p4p6))
8930       ans1=ans2+ans6+ans9+ans16
8931       ans=ccc*ans1
8932       b(12)=ans
8933       ans2=w1*(12*(p5p8*p3p4)*(fmb+fmc-hbcm)+4*(p4p8*p3p4)*(-fmb-fmc+
8934      . hbcm)+12*(p3p4*p2p8)*(-fmb-fmc+hbcm)+4*(p3p4*p1p8)*(-fmb-fmc+
8935      . hbcm)+12*p5p8*(fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+2*p4p8*(-2*
8936      . fmb*fmc*hbcm-3*fmb2*hbcm-4*fmc*hbcm2+fmc2*hbcm+3*hbcm3)+12*
8937      . p2p8*(-fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+4*p1p8*(-fmb*fmc*hbcm
8938      . +fmc*hbcm2-fmc2*hbcm)+4*(-fmc*p2p3*p4p8-hbcm*p1p2*p4p8-hbcm*
8939      . p2p4*p4p8+3*hbcm*p2p5*p4p8))+(48*p5p8*(-fb3*fmc+fb3*hbcm-fb4*
8940      . fmb)+16*p4p8*(fb3*fmc-fb3*hbcm+fb4*fmb)+2*p2p8*(24*fb3*fmc-24*
8941      . fb3*hbcm+24*fb4*fmb-5*hbcm)+16*p1p8*(fb3*fmc-fb3*hbcm+fb4*fmb)
8942      . )
8943       ans1=w8*(6*p2p8*(fmb2*hbcm+2*fmc*hbcm2-fmc2*hbcm-hbcm3)+12*(
8944      . p5p8*p2p3)*(fmb+fmc-hbcm)+4*(p4p8*p2p3)*(-fmb-fmc+hbcm)+4*(
8945      . p2p8*p2p3)*(-3*fmb-2*fmc+3*hbcm)+4*(p2p3*p1p8)*(-fmb-fmc+hbcm)
8946      . +4*(hbcm*p1p2*p2p8+hbcm*p2p4*p2p8-3*hbcm*p2p5*p2p8))+w5*(12*(
8947      . p5p8*p3p4)*(fmb+fmc-hbcm)+4*(p4p8*p3p4)*(-fmb-fmc+hbcm)+12*(
8948      . p3p4*p2p8)*(-fmb-fmc+hbcm)+4*(p3p4*p1p8)*(-fmb-fmc+hbcm)+12*(
8949      . p5p8*p1p3)*(-fmb-fmc+hbcm)+4*(p4p8*p1p3)*(fmb+fmc-hbcm)+12*(
8950      . p2p8*p1p3)*(fmb+fmc-hbcm)+4*(p1p8*p1p3)*(fmb+fmc-hbcm)+12*p5p8
8951      . *(fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+2*p4p8*(-2*fmb*fmc*hbcm-5*
8952      . fmb2*hbcm-8*fmc*hbcm2+3*fmc2*hbcm+5*hbcm3)+12*p2p8*(-fmb*fmc*
8953      . hbcm+fmc*hbcm2-fmc2*hbcm)+2*p1p8*(-2*fmb*fmc*hbcm+fmb2*hbcm+4*
8954      . fmc*hbcm2-3*fmc2*hbcm-hbcm3)+4*(fmc*p1p8*p2p3+2*fmc*p2p3*p2p8-
8955      . fmc*p2p3*p4p8-2*fmc*p2p3*p5p8+hbcm*p1p2*p1p8+2*hbcm*p1p2*p2p8-
8956      . hbcm*p1p2*p4p8-2*hbcm*p1p2*p5p8+hbcm*p1p8*p2p4-hbcm*p1p8*p2p5+
8957      . 2*hbcm*p2p4*p2p8-hbcm*p2p4*p4p8-2*hbcm*p2p4*p5p8+5*hbcm*p2p5*
8958      . p4p8))+ans2
8959       ans=ccc*ans1
8960       b(13)=ans
8961       ans2=w5*(4*p2p4*(fmb*hbcm-hbcm2)+12*p1p4*(fmb*hbcm+fmc*hbcm-
8962      . hbcm2)+4*p1p2*(fmb*hbcm-hbcm2)+2*p3p4*(-8*fmb*fmc-2*fmb*hbcm-3
8963      . *fmb2-5*fmc2+5*hbcm2)+4*p2p3*(fmb*fmc-fmc*hbcm)+2*p1p3*(8*fmb*
8964      . fmc-2*fmb*hbcm+3*fmb2-4*fmc*hbcm+5*fmc2-hbcm2)+2*(2*ffmcfmb*
8965      . p1p3*p2p3-2*ffmcfmb*p2p3*p3p4-2*fmb*fmc*hbcm2-8*fmb*fmc2*hbcm-
8966      . 3*fmb2*fmc*hbcm+6*fmc*hbcm*p2p5+5*fmc*hbcm3-5*fmc3*hbcm+2*p1p2
8967      . *p1p3-2*p1p2*p3p4+2*p1p3*p2p4-6*p1p3*p2p5-2*p2p4*p3p4+6*p2p5*
8968      . p3p4))+(p2p3*(16*fb4*ffmcfmb+2)+2*(12*fb3*fmb*fmc-12*fb3*fmc*
8969      . hbcm+12*fb3*fmc2+12*fb4*fmb*fmc+12*fb4*fmb2+12*fb4*fmc*hbcm-12
8970      . *fb4*hbcm2+8*fb4*p1p2+8*fb4*p2p4-24*fb4*p2p5-3*fmb*hbcm-3*fmc*
8971      . hbcm+3*hbcm2))
8972       ans1=w8*(12*p2p5*(fmb*hbcm+fmc*hbcm-hbcm2)+4*p2p4*(-fmb*hbcm-
8973      . fmc*hbcm+hbcm2)+4*p1p2*(-fmb*hbcm-fmc*hbcm+hbcm2)+2*p2p3*(-8*
8974      . fmb*fmc+6*fmb*hbcm-3*fmb2+8*fmc*hbcm-5*fmc2-3*hbcm2)+4*(-
8975      . ffmcfmb*p2p3s2-p1p2*p2p3-p2p3*p2p4+3*p2p3*p2p5))+w1*(8*p1p4*(
8976      . fmb*hbcm+fmc*hbcm-hbcm2)+2*p3p4*(-8*fmb*fmc-3*fmb2+2*fmc*hbcm-
8977      . 5*fmc2+3*hbcm2)+2*(-2*ffmcfmb*p2p3*p3p4-8*fmb*fmc2*hbcm-3*fmb2
8978      . *fmc*hbcm-2*fmc*hbcm*p1p2-2*fmc*hbcm*p2p4+6*fmc*hbcm*p2p5+3*
8979      . fmc*hbcm3+2*fmc2*hbcm2-2*fmc2*p2p3-5*fmc3*hbcm-2*p1p2*p3p4-2*
8980      . p2p4*p3p4+6*p2p5*p3p4))+ans2
8981       ans=ccc*ans1
8982       b(14)=ans
8983       ans3=w1*(12*(p4p8*p3p5)*(fmb*hbcm+fmc*hbcm-hbcm2)+12*(p5p8*p3p4
8984      . )*(-fmb*hbcm-fmc*hbcm+hbcm2)+12*(p3p4*p2p8)*(fmb*hbcm+fmc*hbcm
8985      . -hbcm2)+4*(p4p8*p2p3)*(-3*fmb*hbcm-4*fmc*hbcm+3*hbcm2)+4*(p3p4
8986      . *p1p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+4*(p4p8*p1p3)*(-fmb*hbcm-fmc*
8987      . hbcm+hbcm2)+12*p5p8*(-fmb*fmc*hbcm2+fmc*hbcm3-fmc2*hbcm2)+6*
8988      . p4p8*(-2*fmb*fmc*hbcm2+2*fmb*hbcm3-fmb2*hbcm2+2*fmc*hbcm3-fmc2
8989      . *hbcm2-hbcm4)+12*p2p8*(fmb*fmc*hbcm2-fmc*hbcm3+fmc2*hbcm2)+4*
8990      . p1p8*(fmb*fmc*hbcm2-fmc*hbcm3+fmc2*hbcm2)+4*(-hbcm2*p1p2*p4p8-
8991      . hbcm2*p2p4*p4p8+3*hbcm2*p2p5*p4p8))+(48*p5p8*(fb3*fmb*hbcm+fb4
8992      . *fmc*hbcm-fb4*hbcm2)+16*p4p8*(-fb3*fmb*hbcm-fb4*fmc*hbcm+fb4*
8993      . hbcm2)+2*p2p8*(-24*fb3*fmb*hbcm-24*fb4*fmc*hbcm+24*fb4*hbcm2-5
8994      . *hbcm2)+16*p1p8*(-fb3*fmb*hbcm-fb4*fmc*hbcm+fb4*hbcm2))
8995       ans2=w5*(20*(p4p8*p3p5)*(fmb*hbcm+fmc*hbcm-hbcm2)+20*(p5p8*p3p4
8996      . )*(-fmb*hbcm-fmc*hbcm+hbcm2)+20*(p3p4*p2p8)*(fmb*hbcm+fmc*hbcm
8997      . -hbcm2)+4*(p4p8*p2p3)*(-5*fmb*hbcm-6*fmc*hbcm+5*hbcm2)+4*(p3p5
8998      . *p1p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p3p4*p1p8)*(fmb*hbcm+fmc*
8999      . hbcm-hbcm2)+4*(p2p3*p1p8)*(fmb*hbcm+2*fmc*hbcm-hbcm2)+4*(p5p8*
9000      . p1p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p4p8*p1p3)*(-fmb*hbcm-fmc*
9001      . hbcm+hbcm2)+4*(p2p8*p1p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+20*p5p8*(
9002      . -fmb*fmc*hbcm2+fmc*hbcm3-fmc2*hbcm2)+10*p4p8*(-2*fmb*fmc*hbcm2
9003      . +2*fmb*hbcm3-fmb2*hbcm2+2*fmc*hbcm3-fmc2*hbcm2-hbcm4)+20*p2p8*
9004      . (fmb*fmc*hbcm2-fmc*hbcm3+fmc2*hbcm2)+2*p1p8*(6*fmb*fmc*hbcm2-2
9005      . *fmb*hbcm3+fmb2*hbcm2-6*fmc*hbcm3+5*fmc2*hbcm2+hbcm4)+4*(2*fmc
9006      . *hbcm*p2p3*p2p8-2*fmc*hbcm*p2p3*p5p8+hbcm2*p1p2*p1p8+2*hbcm2*
9007      . p1p2*p2p8-hbcm2*p1p2*p4p8-2*hbcm2*p1p2*p5p8+hbcm2*p1p8*p2p4-
9008      . hbcm2*p1p8*p2p5+2*hbcm2*p2p4*p2p8-hbcm2*p2p4*p4p8-2*hbcm2*p2p4
9009      . *p5p8+5*hbcm2*p2p5*p4p8))+ans3
9010       ans1=w8*(12*(p3p5*p2p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+4*(p3p4*p2p8
9011      . )*(fmb*hbcm+fmc*hbcm-hbcm2)+12*(p5p8*p2p3)*(fmb*hbcm+fmc*hbcm-
9012      . hbcm2)+4*(p4p8*p2p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+4*(p2p3*p1p8)*
9013      . (-fmb*hbcm-fmc*hbcm+hbcm2)+4*(p2p8*p1p3)*(fmb*hbcm+fmc*hbcm-
9014      . hbcm2)+2*p2p8*(8*fmb*fmc*hbcm2-6*fmb*hbcm3+3*fmb2*hbcm2-8*fmc*
9015      . hbcm3+5*fmc2*hbcm2+3*hbcm4)+4*(fmc*hbcm*p2p3*p2p8+hbcm2*p1p2*
9016      . p2p8+hbcm2*p2p4*p2p8-3*hbcm2*p2p5*p2p8))+ans2
9017       ans=ccc*ans1
9018       b(15)=ans
9019       ans3=w1*(12*(p3p5*p3p4)*(-fmb-fmc+hbcm)+4*(p3p4*p2p3)*(3*fmb+4*
9020      . fmc-3*hbcm)+4*(p3p4*p1p3)*(fmb+fmc-hbcm)+8*p1p4*(fmb*hbcm2+fmc
9021      . *hbcm2-hbcm3)+12*p3p5*(-fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+2*
9022      . p3p4*(2*fmb*fmc*hbcm-6*fmb*hbcm2+3*fmb2*hbcm-2*fmc*hbcm2-fmc2*
9023      . hbcm+3*hbcm3)+4*p2p3*(3*fmb*fmc*hbcm-3*fmc*hbcm2+4*fmc2*hbcm)+
9024      . 4*p1p3*(fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+2*(-6*fmb*fmc*hbcm3+
9025      . 2*fmb*p3p4s2+3*fmb2*fmc*hbcm2+2*fmc*hbcm2*p1p2+2*fmc*hbcm2*
9026      . p2p4-6*fmc*hbcm2*p2p5+3*fmc*hbcm4+2*fmc*p3p4s2-3*fmc3*hbcm2+2*
9027      . hbcm*p1p2*p3p4+2*hbcm*p2p4*p3p4-6*hbcm*p2p5*p3p4-2*hbcm*p3p4s2
9028      . ))+(48*p3p5*(fb3*fmc-fb3*hbcm+fb4*fmb)+16*p3p4*(-fb3*fmc+fb3*
9029      . hbcm-fb4*fmb)+2*p2p3*(-32*fb3*fmc+24*fb3*hbcm-24*fb4*fmb+5*
9030      . hbcm)+16*p1p3*(-fb3*fmc+fb3*hbcm-fb4*fmb)+2*(12*fb3*fmb*fmc*
9031      . hbcm-12*fb3*fmb2*hbcm+20*fb3*fmc*hbcm2-8*fb3*fmc2*hbcm-8*fb3*
9032      . hbcm*p1p2-8*fb3*hbcm*p2p4+24*fb3*hbcm*p2p5-12*fb3*hbcm3-20*fb4
9033      . *fmb*fmc*hbcm+24*fb4*fmb*hbcm2-12*fb4*fmc*hbcm2+12*fb4*fmc2*
9034      . hbcm-fmb*hbcm2-fmc*hbcm2+hbcm3))
9035       ans2=w5*(12*(p3p5*p3p4)*(-fmb-fmc+hbcm)+4*(p3p4*p2p3)*(3*fmb+4*
9036      . fmc-3*hbcm)+12*(p3p5*p1p3)*(fmb+fmc-hbcm)+4*(p2p3*p1p3)*(-3*
9037      . fmb-4*fmc+3*hbcm)+4*p2p4*(fmb*hbcm2+hbcm3)+12*p1p4*(fmb*hbcm2+
9038      . fmc*hbcm2-hbcm3)+4*p1p2*(fmb*hbcm2+hbcm3)+12*p3p5*(-fmb*fmc*
9039      . hbcm+fmc*hbcm2-fmc2*hbcm)+2*p3p4*(2*fmb*fmc*hbcm-8*fmb*hbcm2+5
9040      . *fmb2*hbcm-3*fmc2*hbcm+3*hbcm3)+4*p2p3*(4*fmb*fmc*hbcm-2*fmc*
9041      . hbcm2+3*fmc2*hbcm)+2*p1p3*(2*fmb*fmc*hbcm+4*fmb*hbcm2-fmb2*
9042      . hbcm+3*fmc2*hbcm-3*hbcm3)+2*(-8*fmb*fmc*hbcm3-2*fmb*p1p3s2+2*
9043      . fmb*p3p4s2+5*fmb2*fmc*hbcm2-10*fmc*hbcm2*p2p5+3*fmc*hbcm4-2*
9044      . fmc*p1p3s2+4*fmc*p2p3*p3p5-4*fmc*p2p3s2+2*fmc*p3p4s2+2*fmc2*
9045      . hbcm3-5*fmc3*hbcm2-2*hbcm*p1p2*p1p3-4*hbcm*p1p2*p2p3+2*hbcm*
9046      . p1p2*p3p4+4*hbcm*p1p2*p3p5-2*hbcm*p1p3*p2p4+2*hbcm*p1p3*p2p5+2
9047      . *hbcm*p1p3s2-4*hbcm*p2p3*p2p4+2*hbcm*p2p4*p3p4+4*hbcm*p2p4*
9048      . p3p5-10*hbcm*p2p5*p3p4-2*hbcm*p3p4s2))+ans3
9049       ans1=w8*(6*p2p3*(-fmb2*hbcm-2*fmc*hbcm2+fmc2*hbcm+hbcm3)+12*(
9050      . p3p5*p2p3)*(-fmb-fmc+hbcm)+4*(p3p4*p2p3)*(fmb+fmc-hbcm)+4*(
9051      . p2p3*p1p3)*(fmb+fmc-hbcm)+12*p2p5*(fmb*hbcm2+fmc*hbcm2-hbcm3)+
9052      . 4*p2p4*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+4*p1p2*(-fmb*hbcm2-fmc*
9053      . hbcm2+hbcm3)+4*(3*fmb*p2p3s2+2*fmc*p2p3s2-hbcm*p1p2*p2p3-hbcm*
9054      . p2p3*p2p4+3*hbcm*p2p3*p2p5-3*hbcm*p2p3s2))+ans2
9055       ans=ccc*ans1
9056       b(16)=ans
9057       b(17)=ccc*(w1*(8*(p4p8*p3p6)*(-3*fmc-hbcm)+8*(2*fmc*p3p4*p6p8+2
9058      . *fmc2*hbcm*p6p8-2*hbcm*p1p4*p6p8+hbcm*p1p8*p4p6+hbcm*p2p8*p4p6
9059      . -4*hbcm*p4p6*p4p8-hbcm*p4p6*p5p8))+w5*(8*(p4p8*p3p6)*(-3*fmc-
9060      . hbcm)+8*(p3p6*p1p8)*(3*fmc+hbcm)+8*(-2*fmc*p1p3*p6p8+4*fmc*
9061      . p2p8*p3p6+2*fmc*p3p4*p6p8-6*fmc*p3p6*p5p8+2*fmc2*hbcm*p6p8-2*
9062      . hbcm*p1p4*p6p8+5*hbcm*p1p8*p4p6+6*hbcm*p2p8*p4p6-5*hbcm*p4p6*
9063      . p4p8-8*hbcm*p4p6*p5p8))+w8*(8*(p3p6*p2p8)*(fmc+hbcm)+16*(p6p8*
9064      . p2p3)*(fmc-hbcm)+8*p6p8*(-fmb2*hbcm-2*fmc*hbcm2+fmc2*hbcm+
9065      . hbcm3)+24*hbcm*p2p8*p4p6)+8*p6p8*(-2*fb3*fmc-2*fb4*fmc+hbcm))
9066       b(18)=ccc*(w1*(8*p3p6*(fmc*hbcm+3*fmc2)+(p3p6*p3p4)*(16*ffmcfmb
9067      . +8)+8*(5*fmc*hbcm*p4p6+4*p3p4*p4p6))+w8*(32*p4p6*(fmb*hbcm+fmc
9068      . *hbcm-hbcm2)+8*p3p6*(2*fmb*fmc+fmb*hbcm-fmc*hbcm+2*fmc2-hbcm2)
9069      . +(p3p6*p2p3)*(16*ffmcfmb+8)+32*p2p3*p4p6)+w5*(8*p4p6*(-fmb*
9070      . hbcm+4*fmc*hbcm)+8*p3p6*(-fmb*fmc+fmc*hbcm+2*fmc2)+(p3p6*p3p4)
9071      . *(16*ffmcfmb+8)+(p3p6*p1p3)*(-16*ffmcfmb-8)+32*(-p1p3*p4p6+
9072      . p3p4*p4p6))+(p3p6*(-64*fb4*ffmcfmb-32*fb4-8)-128*fb4*p4p6))
9073       ans=ccc*(w5*(20*p4p8*(fmc*hbcm2-hbcm3)+4*p1p8*(-3*fmc*hbcm2+
9074      . hbcm3)+4*(-5*fmc*hbcm2*p2p8+5*fmc*hbcm2*p5p8+hbcm*p1p3*p2p8+2*
9075      . hbcm*p1p3*p4p8-hbcm*p1p3*p5p8-hbcm*p1p8*p2p3-2*hbcm*p1p8*p3p4+
9076      . hbcm*p1p8*p3p5+5*hbcm*p2p3*p4p8-5*hbcm*p2p8*p3p4+5*hbcm*p3p4*
9077      . p5p8-5*hbcm*p3p5*p4p8))+w1*(12*p4p8*(fmc*hbcm2-hbcm3)+4*(-fmc*
9078      . hbcm2*p1p8-3*fmc*hbcm2*p2p8+3*fmc*hbcm2*p5p8+hbcm*p1p3*p4p8-
9079      . hbcm*p1p8*p3p4+3*hbcm*p2p3*p4p8-3*hbcm*p2p8*p3p4+3*hbcm*p3p4*
9080      . p5p8-3*hbcm*p3p5*p4p8))+w8*(12*p5p8*(-fmb*hbcm2-fmc*hbcm2+
9081      . hbcm3)+4*p4p8*(fmb*hbcm2+fmc*hbcm2-hbcm3)+4*p2p8*(3*fmb*hbcm2-
9082      . fmc*hbcm2)+4*p1p8*(fmb*hbcm2+fmc*hbcm2-hbcm3)+4*(-hbcm*p1p3*
9083      . p2p8+hbcm*p1p8*p2p3+hbcm*p2p3*p4p8-3*hbcm*p2p3*p5p8-hbcm*p2p8*
9084      . p3p4+3*hbcm*p2p8*p3p5))+16*(fb3*hbcm*p1p8+3*fb3*hbcm*p2p8+fb3*
9085      . hbcm*p4p8-3*fb3*hbcm*p5p8))
9086       b(19)=ans
9087       b(20)=ccc*(4*w5*(fmc*hbcm*p1p8+3*fmc*hbcm*p2p8+fmc*hbcm*p4p8-3*
9088      . fmc*hbcm*p5p8-p1p3*p1p8-3*p1p3*p2p8-p1p3*p4p8+3*p1p3*p5p8+p1p8
9089      . *p3p4+3*p2p8*p3p4+p3p4*p4p8-3*p3p4*p5p8)+4*w1*(fmc*hbcm*p1p8+3
9090      . *fmc*hbcm*p2p8+fmc*hbcm*p4p8-3*fmc*hbcm*p5p8+p1p8*p3p4+3*p2p8*
9091      . p3p4+p3p4*p4p8-3*p3p4*p5p8)+w8*(12*p5p8*(-fmb*hbcm-fmc*hbcm+
9092      . hbcm2)+4*p4p8*(fmb*hbcm+fmc*hbcm-hbcm2)+12*p2p8*(fmb*hbcm+fmc*
9093      . hbcm-hbcm2)+4*p1p8*(fmb*hbcm+fmc*hbcm-hbcm2)+4*(p1p8*p2p3+3*
9094      . p2p3*p2p8+p2p3*p4p8-3*p2p3*p5p8))+16*(-fb4*p1p8-3*fb4*p2p8-fb4
9095      . *p4p8+3*fb4*p5p8))
9096       b(21)=ccc*(w1*(4*(p4p8*p3p7)*(4*fmc-3*hbcm)+4*(hbcm*p4p7*p4p8-3
9097      . *hbcm*p4p8*p5p7))+w8*(24*(p5p8*p3p7)*(-fmc+hbcm)+8*(p4p8*p3p7)
9098      . *(fmc-hbcm)+4*(p3p7*p2p8)*(2*fmc-3*hbcm)+8*(p3p7*p1p8)*(fmc-
9099      . hbcm)+4*(-hbcm*p2p8*p4p7+3*hbcm*p2p8*p5p7))+w5*(4*(p4p8*p3p7)*
9100      . (6*fmc-5*hbcm)+4*(p3p7*p1p8)*(-2*fmc+hbcm)+4*(-2*fmc*p2p8*p3p7
9101      . +2*fmc*p3p7*p5p8-hbcm*p1p8*p4p7+hbcm*p1p8*p5p7-2*hbcm*p2p8*
9102      . p4p7+hbcm*p4p7*p4p8+2*hbcm*p4p7*p5p8-5*hbcm*p4p8*p5p7))+16*
9103      . hbcm*p7p8)
9104       b(22)=ccc*(8*w1*(2*fmc*p3p4+2*fmc2*hbcm-hbcm*p1p4)+w5*(4*p3p4*(
9105      . 4*fmc+hbcm)+4*p1p3*(-4*fmc+hbcm)+4*(fmc*hbcm2-fmc*p2p3+4*fmc2*
9106      . hbcm-hbcm*p1p2-3*hbcm*p1p4-hbcm*p2p4))+w8*(12*p2p3*(fmc-hbcm)+
9107      . 6*(-fmb2*hbcm-2*fmc*hbcm2+fmc2*hbcm+hbcm3))+12*(-2*fb3*fmc-2*
9108      . fb4*fmc+hbcm))
9109       b(23)=ccc*(w1*(4*p3p7*(-3*fmc*hbcm+4*fmc2)+(p3p7*p3p4)*(16*
9110      . ffmcfmb-12)+4*(fmc*hbcm*p4p7-3*fmc*hbcm*p5p7+p3p4*p4p7-3*p3p4*
9111      . p5p7))+w8*(12*p5p7*(-fmb*hbcm-fmc*hbcm+hbcm2)+4*p4p7*(fmb*hbcm
9112      . +fmc*hbcm-hbcm2)+4*p3p7*(4*fmb*fmc-3*fmb*hbcm-7*fmc*hbcm+4*
9113      . fmc2+3*hbcm2)+(p3p7*p2p3)*(16*ffmcfmb-12)+4*(p2p3*p4p7-3*p2p3*
9114      . p5p7))+w5*(4*p3p7*(-3*fmc*hbcm+4*fmc2)+(p3p7*p3p4)*(16*ffmcfmb
9115      . -12)+(p3p7*p1p3)*(-16*ffmcfmb+12)+4*(fmc*hbcm*p4p7-3*fmc*hbcm*
9116      . p5p7-p1p3*p4p7+3*p1p3*p5p7+p3p4*p4p7-3*p3p4*p5p7))+(p3p7*(-64*
9117      . fb4*ffmcfmb+48*fb4-8)+16*(-fb4*p4p7+3*fb4*p5p7)))
9118       ans=ccc*(w5*(4*p3p4*(-fmc*hbcm+4*hbcm2)+4*p1p3*(-fmc*hbcm-2*
9119      . hbcm2)+4*(-4*fmc*hbcm*p2p3+3*fmc*hbcm*p3p5+4*fmc*hbcm3-hbcm2*
9120      . p1p2-3*hbcm2*p1p4-hbcm2*p2p4+3*p1p3*p2p3-3*p1p3*p3p5+p1p3s2-3*
9121      . p2p3*p3p4+3*p3p4*p3p5-p3p4s2))+w1*(4*p3p4*(-fmc*hbcm+3*hbcm2)+
9122      . 4*(-fmc*hbcm*p1p3-3*fmc*hbcm*p2p3+3*fmc*hbcm*p3p5+3*fmc*hbcm3-
9123      . 2*hbcm2*p1p4-p1p3*p3p4-3*p2p3*p3p4+3*p3p4*p3p5-p3p4s2))+w8*(12
9124      . *p3p5*(fmb*hbcm+fmc*hbcm-hbcm2)+4*p3p4*(-fmb*hbcm-fmc*hbcm+
9125      . hbcm2)+4*p2p3*(-3*fmb*hbcm-4*fmc*hbcm+3*hbcm2)+4*p1p3*(-fmb*
9126      . hbcm-fmc*hbcm+hbcm2)+2*(-8*fmb*fmc*hbcm2+6*fmb*hbcm3-3*fmb2*
9127      . hbcm2+8*fmc*hbcm3-5*fmc2*hbcm2-3*hbcm4-2*p1p3*p2p3-2*p2p3*p3p4
9128      . +6*p2p3*p3p5-6*p2p3s2))+8*(-3*fb3*fmc*hbcm+5*fb4*fmc*hbcm-6*
9129      . fb4*hbcm2+2*fb4*p1p3+6*fb4*p2p3+2*fb4*p3p4-6*fb4*p3p5+hbcm2))
9130       b(24)=ans
9131       ans=ccc*(w5*(4*(p3p7*p3p4)*(-6*fmc+5*hbcm)+4*(p3p7*p1p3)*(2*fmc
9132      . -hbcm)+4*p4p7*(fmc*hbcm2-2*hbcm3)+4*p3p7*(3*fmc*hbcm2-4*fmc2*
9133      . hbcm)+4*(5*fmc*hbcm2*p5p7+2*fmc*p2p3*p3p7-2*fmc*p3p5*p3p7+hbcm
9134      . *p1p3*p4p7-hbcm*p1p3*p5p7+2*hbcm*p2p3*p4p7-hbcm*p3p4*p4p7+5*
9135      . hbcm*p3p4*p5p7-2*hbcm*p3p5*p4p7))+w1*(4*(p3p7*p3p4)*(-4*fmc+3*
9136      . hbcm)+4*p3p7*(3*fmc*hbcm2-4*fmc2*hbcm)+4*(-fmc*hbcm2*p4p7+3*
9137      . fmc*hbcm2*p5p7-hbcm*p3p4*p4p7+3*hbcm*p3p4*p5p7))+w8*(24*(p3p7*
9138      . p3p5)*(fmc-hbcm)+8*(p3p7*p3p4)*(-fmc+hbcm)+4*(p3p7*p2p3)*(-2*
9139      . fmc+3*hbcm)+8*(p3p7*p1p3)*(-fmc+hbcm)+12*p5p7*(-fmb*hbcm2-fmc*
9140      . hbcm2+hbcm3)+4*p4p7*(fmb*hbcm2+fmc*hbcm2-hbcm3)+4*p3p7*(4*fmb*
9141      . fmc*hbcm-3*fmb*hbcm2+7*fmc*hbcm2-4*fmc2*hbcm-3*hbcm3)+4*(hbcm*
9142      . p2p3*p4p7-3*hbcm*p2p3*p5p7))+(16*p3p7*(4*fb3*fmc-3*fb3*hbcm-
9143      . hbcm)+16*(fb3*hbcm*p4p7-3*fb3*hbcm*p5p7)))
9144       b(25)=ans
9145       b(26)=ccc*(w1*(8*(p3p6*p3p4)*(fmc+hbcm)+8*p4p6*(2*fmc*hbcm2+
9146      . hbcm3)+8*(fmc*hbcm2*p3p6-hbcm*p1p3*p4p6+2*hbcm*p1p4*p3p6-hbcm*
9147      . p2p3*p4p6+4*hbcm*p3p4*p4p6+hbcm*p3p5*p4p6))+w8*(8*(p3p6*p2p3)*
9148      . (-3*fmc+hbcm)+24*p4p6*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+8*p3p6*(-
9149      . fmb*fmc*hbcm-fmb*hbcm2+fmb2*hbcm+2*fmc*hbcm2-2*fmc2*hbcm)-24*
9150      . hbcm*p2p3*p4p6)+w5*(8*(p3p6*p3p4)*(fmc+hbcm)+8*(p3p6*p1p3)*(-
9151      . fmc-hbcm)+8*p4p6*(fmb*hbcm2-fmc*hbcm2+6*hbcm3)+8*p3p6*(fmb*fmc
9152      . *hbcm+5*fmc*hbcm2-3*fmc2*hbcm)+8*(-4*fmc*p2p3*p3p6+6*fmc*p3p5*
9153      . p3p6-5*hbcm*p1p3*p4p6+2*hbcm*p1p4*p3p6-6*hbcm*p2p3*p4p6+5*hbcm
9154      . *p3p4*p4p6+8*hbcm*p3p5*p4p6))+(8*p3p6*(-2*fb3*fmc-4*fb3*hbcm+2
9155      . *fb4*fmc-hbcm)-96*fb3*hbcm*p4p6))
9156       b(27)=ccc*(w1*(4*(p4p8*p3p7)*(4*fmc*hbcm-3*hbcm2)+4*(hbcm2*p4p7
9157      . *p4p8-3*hbcm2*p4p8*p5p7))+w8*(24*(p5p8*p3p7)*(-fmc*hbcm+hbcm2)
9158      . +8*(p4p8*p3p7)*(fmc*hbcm-hbcm2)+4*(p3p7*p2p8)*(2*fmc*hbcm-3*
9159      . hbcm2)+8*(p3p7*p1p8)*(fmc*hbcm-hbcm2)+4*(-hbcm2*p2p8*p4p7+3*
9160      . hbcm2*p2p8*p5p7))+w5*(4*(p4p8*p3p7)*(6*fmc*hbcm-5*hbcm2)+4*(
9161      . p3p7*p1p8)*(-2*fmc*hbcm+hbcm2)+4*(-2*fmc*hbcm*p2p8*p3p7+2*fmc*
9162      . hbcm*p3p7*p5p8-hbcm2*p1p8*p4p7+hbcm2*p1p8*p5p7-2*hbcm2*p2p8*
9163      . p4p7+hbcm2*p4p7*p4p8+2*hbcm2*p4p7*p5p8-5*hbcm2*p4p8*p5p7))+16*
9164      . hbcm2*p7p8)
9165       ans2=(4*p6p8*(4*fb3*fmc*hbcm-12*fb4*fmc*hbcm-hbcm2)+64*(fb4*
9166      . p1p3*p6p8+fb4*p2p8*p3p6-fb4*p3p4*p6p8-fb4*p3p6*p5p8))
9167       ans1=w5*(16*p6p8*(p1p3s2+p3p4s2)+8*(p4p8*p3p6)*(2*fmc*hbcm+
9168      . hbcm2)+8*(p3p6*p1p8)*(-2*fmc*hbcm-hbcm2)+16*(-fmc*hbcm*p1p3*
9169      . p6p8-2*fmc*hbcm*p2p8*p3p6+fmc*hbcm*p3p4*p6p8+3*fmc*hbcm*p3p6*
9170      . p5p8+hbcm2*p1p4*p6p8-2*hbcm2*p1p8*p4p6-2*hbcm2*p2p8*p4p6+2*
9171      . hbcm2*p4p6*p4p8+3*hbcm2*p4p6*p5p8+p1p3*p2p8*p3p6-2*p1p3*p3p4*
9172      . p6p8-p1p3*p3p6*p5p8-p2p8*p3p4*p3p6+p3p4*p3p6*p5p8))+w1*(8*(
9173      . p4p8*p3p6)*(2*fmc*hbcm+hbcm2)+8*(-2*fmc*hbcm*p1p3*p6p8-2*fmc*
9174      . hbcm*p2p8*p3p6+2*fmc*hbcm*p3p4*p6p8+2*fmc*hbcm*p3p6*p5p8+2*
9175      . hbcm2*p1p4*p6p8-hbcm2*p1p8*p4p6-hbcm2*p2p8*p4p6+3*hbcm2*p4p6*
9176      . p4p8+hbcm2*p4p6*p5p8-2*p1p3*p3p4*p6p8-2*p2p8*p3p4*p3p6+2*p3p4*
9177      . p3p6*p5p8+2*p3p4s2*p6p8))+w8*(16*(p5p8*p3p6)*(fmb*hbcm+fmc*
9178      . hbcm-hbcm2)+16*(p6p8*p3p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p3p6*
9179      . p2p8)*(-2*fmb*hbcm-2*fmc*hbcm+hbcm2)+16*(p6p8*p1p3)*(-fmb*hbcm
9180      . -fmc*hbcm+hbcm2)+8*p6p8*(2*fmb*fmc*hbcm2+fmb2*hbcm2+fmc2*hbcm2
9181      . -hbcm4)+16*(hbcm2*p2p3*p6p8-hbcm2*p2p8*p4p6-p1p3*p2p3*p6p8-
9182      . p2p3*p2p8*p3p6+p2p3*p3p4*p6p8+p2p3*p3p6*p5p8))+ans2
9183       ans=ccc*ans1
9184       b(28)=ans
9185       ans2=w5*(16*p6p7*(-p1p3s2-p3p4s2)+32*(p4p6*p3p7)*(fmc*hbcm-
9186      . hbcm2)+32*(p3p7*p3p6)*(-fmc*hbcm+fmc2)+(p3p7*p3p6*p3p4)*(32*
9187      . ffmcfmb-16)+(p3p7*p3p6*p1p3)*(-32*ffmcfmb+16)+16*(fmc*hbcm*
9188      . p1p3*p6p7-fmc*hbcm*p3p4*p6p7-fmc*hbcm*p3p6*p4p7-3*fmc*hbcm*
9189      . p3p6*p5p7-hbcm2*p1p4*p6p7-hbcm2*p4p6*p4p7-3*hbcm2*p4p6*p5p7+2*
9190      . p1p3*p3p4*p6p7+p1p3*p3p6*p5p7-p1p3*p3p7*p4p6-p3p4*p3p6*p5p7+
9191      . p3p4*p3p7*p4p6))+((p3p7*p3p6)*(-128*fb4*ffmcfmb+64*fb4-16)+4*
9192      . p6p7*(-4*fb3*fmc*hbcm+12*fb4*fmc*hbcm+hbcm2)+64*(-fb4*p1p3*
9193      . p6p7+fb4*p3p4*p6p7+fb4*p3p6*p5p7-fb4*p3p7*p4p6))
9194       ans1=w1*(8*(p4p6*p3p7)*(4*fmc*hbcm-hbcm2)+16*(p3p7*p3p6)*(-fmc*
9195      . hbcm+2*fmc2)+(p3p7*p3p6*p3p4)*(32*ffmcfmb-16)+8*(2*fmc*hbcm*
9196      . p1p3*p6p7-2*fmc*hbcm*p3p4*p6p7-2*fmc*hbcm*p3p6*p4p7-2*fmc*hbcm
9197      . *p3p6*p5p7-2*hbcm2*p1p4*p6p7-hbcm2*p4p6*p4p7-hbcm2*p4p6*p5p7+2
9198      . *p1p3*p3p4*p6p7-2*p3p4*p3p6*p5p7+2*p3p4*p3p7*p4p6-2*p3p4s2*
9199      . p6p7))+w8*(16*(p4p6*p3p7)*(fmb*hbcm+3*fmc*hbcm-3*hbcm2)+16*(
9200      . p5p7*p3p6)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p6p7*p3p4)*(-fmb*
9201      . hbcm-fmc*hbcm+hbcm2)+16*(p6p7*p1p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+
9202      . 16*(p3p7*p3p6)*(2*fmb*fmc-fmb*hbcm-2*fmc*hbcm+2*fmc2)+8*p6p7*(
9203      . -2*fmb*fmc*hbcm2-fmb2*hbcm2-fmc2*hbcm2+hbcm4)+(p3p7*p3p6*p2p3)
9204      . *(32*ffmcfmb-16)+16*(-hbcm2*p2p3*p6p7+p1p3*p2p3*p6p7-p2p3*p3p4
9205      . *p6p7-p2p3*p3p6*p5p7+p2p3*p3p7*p4p6))+ans2
9206       ans=ccc*ans1
9207       b(29)=ans
9208       ans3=w8*(32*(p5p8*p3p7*p3p6)*(fmc-hbcm)+32*(p6p8*p3p7*p3p5)*(-
9209      . fmc+hbcm)+16*(p6p8*p3p7*p2p3)*(fmc-hbcm)+16*(p6p7*p5p8)*(-fmb*
9210      . hbcm2-fmc*hbcm2+hbcm3)+16*(p6p8*p5p7)*(fmb*hbcm2+fmc*hbcm2-
9211      . hbcm3)+16*(p7p8*p4p6)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+16*(p6p8*
9212      . p3p7)*(-fmb*fmc*hbcm+fmb*hbcm2-2*fmc*hbcm2+fmc2*hbcm+hbcm3)+16
9213      . *(p7p8*p3p6)*(-fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+16*(fmb*hbcm2
9214      . *p2p8*p6p7-fmc*p2p3*p3p6*p7p8-hbcm*p2p3*p4p6*p7p8+hbcm*p2p3*
9215      . p5p7*p6p8-hbcm*p2p3*p5p8*p6p7+hbcm*p2p8*p3p5*p6p7+hbcm*p2p8*
9216      . p3p6*p3p7-hbcm*p2p8*p3p6*p5p7+hbcm*p2p8*p3p7*p4p6))+(16*(p6p8*
9217      . p3p7)*(-4*fb3*fmc+4*fb3*hbcm+hbcm)+16*(p7p8*p3p6)*(-4*fb3*fmc-
9218      . hbcm)+64*(fb3*hbcm*p2p8*p6p7-fb3*hbcm*p4p6*p7p8+fb3*hbcm*p5p7*
9219      . p6p8-fb3*hbcm*p5p8*p6p7))
9220       ans2=w5*(16*(p4p8*p3p7*p3p6)*(-2*fmc+hbcm)+16*(p6p8*p3p7*p3p4)*
9221      . (fmc-hbcm)+16*(p3p7*p3p6*p1p8)*(2*fmc-hbcm)+16*(p6p8*p3p7*p1p3
9222      . )*(-fmc+hbcm)+16*(p6p7*p4p8)*(fmc*hbcm2-hbcm3)+16*(p7p8*p4p6)*
9223      . (-fmc*hbcm2+2*hbcm3)+16*(p6p8*p3p7)*(-fmc*hbcm2+fmc2*hbcm)+16*
9224      . (p7p8*p3p6)*(2*fmc*hbcm2-fmc2*hbcm)+16*(p6p7*p1p8)*(-fmc*hbcm2
9225      . +hbcm3)+16*(-fmc*hbcm2*p2p8*p6p7-fmc*hbcm2*p5p7*p6p8+fmc*hbcm2
9226      . *p5p8*p6p7-fmc*p1p3*p3p6*p7p8-2*fmc*p2p3*p3p6*p7p8+2*fmc*p2p8*
9227      . p3p6*p3p7+fmc*p3p4*p3p6*p7p8+2*fmc*p3p5*p3p6*p7p8-2*fmc*p3p6*
9228      . p3p7*p5p8+hbcm*p1p3*p2p8*p6p7-hbcm*p1p3*p4p6*p7p8+hbcm*p1p3*
9229      . p5p7*p6p8-hbcm*p1p3*p5p8*p6p7-hbcm*p1p8*p2p3*p6p7+hbcm*p1p8*
9230      . p3p5*p6p7-hbcm*p1p8*p3p6*p5p7+hbcm*p1p8*p3p7*p4p6-2*hbcm*p2p3*
9231      . p4p6*p7p8+hbcm*p2p3*p4p8*p6p7-hbcm*p2p8*p3p4*p6p7+2*hbcm*p2p8*
9232      . p3p7*p4p6+hbcm*p3p4*p4p6*p7p8-hbcm*p3p4*p5p7*p6p8+hbcm*p3p4*
9233      . p5p8*p6p7+2*hbcm*p3p5*p4p6*p7p8-hbcm*p3p5*p4p8*p6p7+hbcm*p3p6*
9234      . p4p8*p5p7-hbcm*p3p7*p4p6*p4p8-2*hbcm*p3p7*p4p6*p5p8))+ans3
9235       ans1=w1*(16*(p4p8*p3p7*p3p6)*(-2*fmc+hbcm)+16*(p6p8*p3p7*p3p4)*
9236      . (fmc-hbcm)+16*(p6p7*p4p8)*(fmc*hbcm2-hbcm3)+16*(p6p8*p3p7)*(-
9237      . fmc*hbcm2+fmc2*hbcm)+16*(-fmc*hbcm2*p2p8*p6p7+fmc*hbcm2*p4p6*
9238      . p7p8-fmc*hbcm2*p5p7*p6p8+fmc*hbcm2*p5p8*p6p7+fmc*p3p4*p3p6*
9239      . p7p8+fmc2*hbcm*p3p6*p7p8+hbcm*p2p3*p4p8*p6p7-hbcm*p2p8*p3p4*
9240      . p6p7+hbcm*p3p4*p4p6*p7p8-hbcm*p3p4*p5p7*p6p8+hbcm*p3p4*p5p8*
9241      . p6p7-hbcm*p3p5*p4p8*p6p7+hbcm*p3p6*p4p8*p5p7-hbcm*p3p7*p4p6*
9242      . p4p8))+ans2
9243       ans=ccc*ans1
9244       b(30)=ans
9245       ans=ccc*(16*w1*(ffmcfmb*p3p4*p3p6*p7p8+ffmcfmb*p3p4*p3p7*p6p8+
9246      . fmc*hbcm*p1p8*p6p7+fmc*hbcm*p4p6*p7p8+fmc*hbcm*p4p7*p6p8-fmc*
9247      . hbcm*p4p8*p6p7+fmc2*p3p6*p7p8+fmc2*p3p7*p6p8+p1p8*p3p4*p6p7+
9248      . p3p4*p4p6*p7p8+p3p4*p4p7*p6p8-p3p4*p4p8*p6p7)+w8*(16*(p6p7*
9249      . p4p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p6p8*p4p7)*(fmb*hbcm+fmc*
9250      . hbcm-hbcm2)+16*(p7p8*p4p6)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p7*
9251      . p1p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p8*p3p7)*(fmb*fmc-fmc*
9252      . hbcm+fmc2)+16*(p7p8*p3p6)*(fmb*fmc-fmc*hbcm+fmc2)+16*(ffmcfmb*
9253      . p2p3*p3p6*p7p8+ffmcfmb*p2p3*p3p7*p6p8+p1p8*p2p3*p6p7+p2p3*p4p6
9254      . *p7p8+p2p3*p4p7*p6p8-p2p3*p4p8*p6p7))+16*w5*(-ffmcfmb*p1p3*
9255      . p3p6*p7p8-ffmcfmb*p1p3*p3p7*p6p8+ffmcfmb*p3p4*p3p6*p7p8+
9256      . ffmcfmb*p3p4*p3p7*p6p8+fmc*hbcm*p1p8*p6p7+fmc*hbcm*p4p6*p7p8+
9257      . fmc*hbcm*p4p7*p6p8-fmc*hbcm*p4p8*p6p7+fmc2*p3p6*p7p8+fmc2*p3p7
9258      . *p6p8-p1p3*p1p8*p6p7-p1p3*p4p6*p7p8-p1p3*p4p7*p6p8+p1p3*p4p8*
9259      . p6p7+p1p8*p3p4*p6p7+p3p4*p4p6*p7p8+p3p4*p4p7*p6p8-p3p4*p4p8*
9260      . p6p7)+((p6p8*p3p7)*(-64*fb4*ffmcfmb-8)+(p7p8*p3p6)*(-64*fb4*
9261      . ffmcfmb-8)+64*(-fb4*p1p8*p6p7-fb4*p4p6*p7p8-fb4*p4p7*p6p8+fb4*
9262      . p4p8*p6p7)))
9263       b(31)=ans
9264       b(32)=ccc*(w1*(8*(p4p6*p3p7)*(2*fmc-hbcm)+8*(2*fmc*p3p4*p6p7-2*
9265      . fmc*p3p6*p4p7+2*fmc2*hbcm*p6p7-2*hbcm*p1p4*p6p7-hbcm*p4p6*p4p7
9266      . -hbcm*p4p6*p5p7))+w8*(48*(p4p6*p3p7)*(fmc-hbcm)+16*(p6p7*p2p3)
9267      . *(fmc-hbcm)+8*p6p7*(-fmb2*hbcm-2*fmc*hbcm2+fmc2*hbcm+hbcm3)+16
9268      . *(p3p7*p3p6)*(ffmcfmb*fmc-hbcm))+w5*(16*(p4p6*p3p7)*(2*fmc-3*
9269      . hbcm)+16*(p3p7*p3p6)*(ffmcfmb*fmc-2*fmc)+16*(-fmc*p1p3*p6p7+
9270      . fmc*p3p4*p6p7-fmc*p3p6*p4p7-3*fmc*p3p6*p5p7+fmc2*hbcm*p6p7-
9271      . hbcm*p1p4*p6p7-hbcm*p4p6*p4p7-4*hbcm*p4p6*p5p7))+4*p6p7*(-4*
9272      . fb3*fmc-4*fb4*fmc+hbcm))
9273       do 200 n=1,32
9274          c(n,1)=c(n,1)-0.1818181818181818d0*b(n)
9275          c(n,2)=c(n,2)-0.1512818716977898d0*b(n)
9276          c(n,3)=c(n,3)-0.1869893980016914d0*b(n)
9277 200   continue
9278       return
9279         end
9280
9281       subroutine amp8_3p1(cc)
9282       implicit double precision(a-h,o-z)
9283       implicit integer (i-n)
9284       dimension b(32)
9285 #include "inclcon.h"
9286 #include "inclppp.h"
9287 #include "inclamp.h"
9288       do 100 n=1,32
9289          b(n)=0.0d0
9290 100   continue
9291       ccc=cc/((4*ffmcfmb*p1p3*p2p4)*(-2*ffmcfmb*p3p5+fmb2-2*fmc*hbcm+
9292      . fmc2+hbcm2+2*p3p5))
9293       b(1)=ccc*(16*w2*(-hbcm*p1p2*p5p6+hbcm*p2p3*p5p6+hbcm*p2p5*p5p6)
9294      . +16*w12*(-fmc*p1p2*p3p6+fmc*p2p3*p3p6+fmc*p2p5*p3p6))
9295       b(2)=ccc*(w2*(16*(p5p6*p4p7)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(
9296      . p4p7*p3p6)*(-fmb*fmc-fmb*hbcm)+16*(-3*fmb*hbcm*p2p4*p6p7-3*fmb
9297      . *hbcm*p4p6*p4p7-2*p2p4*p3p5*p6p7-p3p5*p3p6*p4p7-2*p3p5*p4p6*
9298      . p4p7))+w12*(16*(p4p7*p3p6)*(-fmb*fmc-fmc2)+16*(-2*p1p3*p2p4*
9299      . p6p7-p1p3*p3p6*p4p7-2*p1p3*p4p6*p4p7))+64*(-2*fb4*p2p4*p6p7-
9300      . fb4*p3p6*p4p7-2*fb4*p4p6*p4p7))
9301       ans=ccc*(w12*(16*(p4p7*p3p6*p1p8)*(fmc+hbcm)+16*(p6p8*p4p7*p1p3
9302      . )*(fmb-fmc-hbcm)+16*(p6p7*p2p8*p1p3)*(-2*fmb+2*fmc+hbcm)+16*(2
9303      . *fmc*p1p2*p3p6*p7p8-2*fmc*p2p3*p3p6*p7p8-2*fmc*p2p5*p3p6*p7p8+
9304      . 2*fmc*p2p8*p3p6*p3p7+2*fmc*p2p8*p3p6*p4p7+2*fmc*p2p8*p3p6*p5p7
9305      . -2*fmc*p3p6*p4p7*p5p8+hbcm*p1p2*p1p8*p6p7-hbcm*p1p8*p2p3*p6p7-
9306      . hbcm*p1p8*p2p5*p6p7+hbcm*p1p8*p4p6*p4p7))+w2*(16*(p5p8*p4p7*
9307      . p3p6)*(-fmc-hbcm)+16*(p6p8*p4p7*p3p5)*(fmb-fmc+hbcm)+16*(p6p7*
9308      . p3p5*p2p8)*(-2*fmb+2*fmc-3*hbcm)+16*(p6p8*p4p7)*(-fmb*fmc*hbcm
9309      . +fmb*hbcm2+fmb2*hbcm)+16*(p6p7*p2p8)*(3*fmb*fmc*hbcm-2*fmb*
9310      . hbcm2-3*fmb2*hbcm)+16*(2*hbcm*p1p2*p5p6*p7p8-3*hbcm*p1p2*p5p8*
9311      . p6p7+2*hbcm*p1p5*p2p8*p6p7-2*hbcm*p2p3*p5p6*p7p8+3*hbcm*p2p3*
9312      . p5p8*p6p7-2*hbcm*p2p5*p5p6*p7p8+3*hbcm*p2p5*p5p8*p6p7+2*hbcm*
9313      . p2p8*p3p7*p5p6+2*hbcm*p2p8*p4p7*p5p6+2*hbcm*p2p8*p5p6*p5p7-3*
9314      . hbcm*p4p6*p4p7*p5p8-2*hbcm*p4p7*p5p6*p5p8))+(8*(p6p8*p4p7)*(8*
9315      . fb3*fmc-8*fb3*hbcm+8*fb4*fmb-hbcm)+64*(p6p7*p2p8)*(-fb3*fmc+
9316      . fb3*hbcm-2*fb4*fmb+fb4*fmc)))
9317       b(3)=ans
9318       b(4)=ccc*(8*w12*(p4p7*p1p3)*(2*fmb-2*fmc-hbcm)+w2*(8*(p4p7*p3p5
9319      . )*(2*fmb-2*fmc+3*hbcm)+8*p4p7*(-3*fmb*fmc*hbcm+2*fmb*hbcm2+3*
9320      . fmb2*hbcm)-16*hbcm*p1p5*p4p7)+32*p4p7*(fb3*fmc-fb3*hbcm+2*fb4*
9321      . fmb-fb4*fmc))
9322       b(5)=ccc*(w12*(8*(p4p7*p1p8)*(fmb*hbcm+fmc*hbcm)+16*(-2*p1p2*
9323      . p1p3*p7p8-p1p3*p1p8*p4p7+2*p1p3*p2p3*p7p8+2*p1p3*p2p5*p7p8-2*
9324      . p1p3*p2p8*p3p7-2*p1p3*p2p8*p4p7-2*p1p3*p2p8*p5p7+2*p1p3*p4p7*
9325      . p5p8))+w2*(8*(p5p8*p4p7)*(3*fmb*hbcm-3*fmc*hbcm+2*hbcm2)+16*(-
9326      . 3*fmb*hbcm*p1p2*p7p8-fmb*hbcm*p1p8*p4p7+3*fmb*hbcm*p2p3*p7p8+3
9327      . *fmb*hbcm*p2p5*p7p8-3*fmb*hbcm*p2p8*p3p7-3*fmb*hbcm*p2p8*p4p7-
9328      . 3*fmb*hbcm*p2p8*p5p7-2*p1p2*p3p5*p7p8-p1p8*p3p5*p4p7+2*p2p3*
9329      . p3p5*p7p8+2*p2p5*p3p5*p7p8-2*p2p8*p3p5*p3p7-2*p2p8*p3p5*p4p7-2
9330      . *p2p8*p3p5*p5p7+2*p3p5*p4p7*p5p8))+64*(-2*fb4*p1p2*p7p8-fb4*
9331      . p1p8*p4p7+2*fb4*p2p3*p7p8+2*fb4*p2p5*p7p8-2*fb4*p2p8*p3p7-2*
9332      . fb4*p2p8*p4p7-2*fb4*p2p8*p5p7+2*fb4*p4p7*p5p8))
9333       b(6)=ccc*(w12*(8*(p4p7*p1p3)*(-fmb*hbcm-fmc*hbcm-2*hbcm2)+16*(2
9334      . *p1p2*p1p3*p3p7+2*p1p3*p2p3*p4p7+2*p1p3*p2p3*p5p7-2*p1p3*p2p5*
9335      . p3p7-2*p1p3*p3p5*p4p7+p1p3s2*p4p7))+w2*(8*(p4p7*p3p5)*(-3*fmb*
9336      . hbcm+3*fmc*hbcm-2*hbcm2)+8*p4p7*(2*fmb*fmc*hbcm2-3*fmb*hbcm3+2
9337      . *fmb2*hbcm2-4*p3p5s2)+16*(3*fmb*hbcm*p1p2*p3p7+fmb*hbcm*p1p3*
9338      . p4p7+3*fmb*hbcm*p2p3*p4p7+3*fmb*hbcm*p2p3*p5p7-3*fmb*hbcm*p2p5
9339      . *p3p7-hbcm2*p1p5*p4p7+2*p1p2*p3p5*p3p7+p1p3*p3p5*p4p7+2*p2p3*
9340      . p3p5*p4p7+2*p2p3*p3p5*p5p7-2*p2p5*p3p5*p3p7))+(32*p4p7*(-fb3*
9341      . fmb*hbcm-fb3*fmc*hbcm-2*fb4*hbcm2)+64*(2*fb4*p1p2*p3p7+fb4*
9342      . p1p3*p4p7+2*fb4*p2p3*p4p7+2*fb4*p2p3*p5p7-2*fb4*p2p5*p3p7-2*
9343      . fb4*p3p5*p4p7)))
9344       ans2=(64*(p3p7*p2p8)*(fb3*fmc+2*fb4*fmb-fb4*fmc)+64*(p7p8*p2p3)
9345      . *(-fb3*fmc-2*fb4*fmb+fb4*fmc)+64*(fb3*hbcm*p1p2*p7p8+fb3*hbcm*
9346      . p1p8*p4p7-fb3*hbcm*p2p5*p7p8+fb3*hbcm*p2p8*p4p7+fb3*hbcm*p2p8*
9347      . p5p7-fb3*hbcm*p4p7*p5p8))
9348       ans1=w12*(32*(p3p7*p2p8*p1p3)*(fmb-fmc)+32*(p7p8*p2p3*p1p3)*(-
9349      . fmb+fmc)+8*(2*hbcm*p1p2*p1p3*p7p8-2*hbcm*p1p2*p1p8*p3p7-2*hbcm
9350      . *p1p3*p2p5*p7p8+2*hbcm*p1p3*p2p8*p4p7+2*hbcm*p1p3*p2p8*p5p7-2*
9351      . hbcm*p1p3*p4p7*p5p8-2*hbcm*p1p8*p2p3*p4p7-2*hbcm*p1p8*p2p3*
9352      . p5p7+2*hbcm*p1p8*p2p5*p3p7+2*hbcm*p1p8*p3p5*p4p7+hbcm3*p1p8*
9353      . p4p7))+w2*(32*(p3p7*p3p5*p2p8)*(fmb-fmc)+32*(p7p8*p3p5*p2p3)*(
9354      . -fmb+fmc)+8*(p5p8*p4p7)*(2*fmb*hbcm2+2*fmc*hbcm2-3*hbcm3)+48*(
9355      . p3p7*p2p8)*(-fmb*fmc*hbcm+fmb2*hbcm)+48*(p7p8*p2p3)*(fmb*fmc*
9356      . hbcm-fmb2*hbcm)+16*(-2*fmb*hbcm2*p1p2*p7p8-fmb*hbcm2*p1p8*p4p7
9357      . +2*fmb*hbcm2*p2p5*p7p8-2*fmb*hbcm2*p2p8*p4p7-2*fmb*hbcm2*p2p8*
9358      . p5p7-3*hbcm*p1p2*p3p5*p7p8+3*hbcm*p1p2*p3p7*p5p8+hbcm*p1p3*
9359      . p4p7*p5p8+2*hbcm*p1p5*p2p3*p7p8-2*hbcm*p1p5*p2p8*p3p7-hbcm*
9360      . p1p8*p3p5*p4p7+3*hbcm*p2p3*p4p7*p5p8+3*hbcm*p2p3*p5p7*p5p8+3*
9361      . hbcm*p2p5*p3p5*p7p8-3*hbcm*p2p5*p3p7*p5p8-3*hbcm*p2p8*p3p5*
9362      . p4p7-3*hbcm*p2p8*p3p5*p5p7))+ans2
9363       ans=ccc*ans1
9364       b(7)=ans
9365       b(8)=ccc*(w2*(16*(p5p6*p2p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(
9366      . p3p6*p2p8)*(-fmb*fmc-fmb*hbcm)+16*(-fmb*hbcm*p2p4*p6p8-3*fmb*
9367      . hbcm*p2p8*p4p6-p2p4*p3p5*p6p8-p2p8*p3p5*p3p6-2*p2p8*p3p5*p4p6)
9368      . )+w12*(16*(p3p6*p2p8)*(-fmb*fmc-fmc2)+16*(-p1p3*p2p4*p6p8-p1p3
9369      . *p2p8*p3p6-2*p1p3*p2p8*p4p6))+64*(-fb4*p2p4*p6p8-fb4*p2p8*p3p6
9370      . -2*fb4*p2p8*p4p6))
9371       b(9)=ccc*(w2*(16*(p5p6*p2p3)*(fmb*hbcm+fmc*hbcm)+16*(fmb*fmc*
9372      . p2p3*p3p6+fmb*hbcm*p1p2*p3p6+3*fmb*hbcm*p2p3*p4p6-fmb*hbcm*
9373      . p2p5*p3p6-hbcm2*p1p2*p5p6+hbcm2*p2p5*p5p6+p1p2*p3p5*p3p6+2*
9374      . p2p3*p3p5*p4p6-p2p5*p3p5*p3p6))+w12*(16*(p3p6*p2p3)*(fmb*fmc+
9375      . fmc2)+16*(p1p2*p1p3*p3p6+2*p1p3*p2p3*p4p6-p1p3*p2p5*p3p6))+64*
9376      . (fb4*p1p2*p3p6+2*fb4*p2p3*p4p6-fb4*p2p5*p3p6))
9377       ans=ccc*(w12*(16*(p6p8*p2p3*p1p3)*(-fmb+fmc)+16*(fmb*p1p3*p2p8*
9378      . p3p6-fmc*hbcm2*p2p8*p3p6-fmc*p1p8*p2p3*p3p6+2*fmc*p2p3*p3p6*
9379      . p5p8-2*fmc*p2p8*p3p5*p3p6+hbcm*p1p2*p1p3*p6p8-hbcm*p1p2*p1p8*
9380      . p3p6-hbcm*p1p3*p2p5*p6p8+hbcm*p1p3*p2p8*p4p6-hbcm*p1p8*p2p3*
9381      . p4p6+hbcm*p1p8*p2p5*p3p6))+w2*(16*(p3p6*p3p5*p2p8)*(fmb-2*fmc)
9382      . +16*(p6p8*p3p5*p2p3)*(-fmb+fmc)+16*(p5p6*p2p8)*(-fmb*hbcm2+fmc
9383      . *hbcm2-hbcm3)+16*(p3p6*p2p8)*(-fmb*fmc*hbcm+fmb2*hbcm)+16*(
9384      . p6p8*p2p3)*(fmb*fmc*hbcm-fmb2*hbcm)+16*(-fmb*hbcm2*p1p2*p6p8+
9385      . fmb*hbcm2*p2p5*p6p8-2*fmb*hbcm2*p2p8*p4p6+fmc*p2p3*p3p6*p5p8-
9386      . hbcm*p1p2*p3p5*p6p8+hbcm*p1p2*p3p6*p5p8+3*hbcm*p2p3*p4p6*p5p8+
9387      . 2*hbcm*p2p3*p5p6*p5p8+hbcm*p2p5*p3p5*p6p8-hbcm*p2p5*p3p6*p5p8-
9388      . 3*hbcm*p2p8*p3p5*p4p6-2*hbcm*p2p8*p3p5*p5p6))+(8*(p3p6*p2p8)*(
9389      . 8*fb4*fmb-hbcm)+8*(p6p8*p2p3)*(-8*fb3*fmc-8*fb4*fmb+hbcm)+64*(
9390      . fb3*hbcm*p1p2*p6p8-fb3*hbcm*p2p5*p6p8+fb3*hbcm*p2p8*p4p6)))
9391       b(10)=ans
9392       ans=ccc*(w12*(32*(p6p7*p2p3*p1p3)*(fmb-fmc)+16*(-fmb*p1p3*p3p6*
9393      . p4p7+fmc*hbcm2*p3p6*p4p7-2*fmc*p1p2*p3p6*p3p7-2*fmc*p2p3*p3p6*
9394      . p4p7-2*fmc*p2p3*p3p6*p5p7+2*fmc*p2p5*p3p6*p3p7+2*fmc*p3p5*p3p6
9395      . *p4p7-hbcm*p1p2*p1p3*p6p7+hbcm*p1p3*p2p5*p6p7-hbcm*p1p3*p4p6*
9396      . p4p7))+w2*(16*(p4p7*p3p6*p3p5)*(-fmb+2*fmc)+32*(p6p7*p3p5*p2p3
9397      . )*(fmb-fmc)+16*(p5p6*p4p7)*(fmb*hbcm2-fmc*hbcm2+hbcm3)+16*(
9398      . p4p7*p3p6)*(fmb*fmc*hbcm-fmb2*hbcm)+48*(p6p7*p2p3)*(-fmb*fmc*
9399      . hbcm+fmb2*hbcm)+16*(2*fmb*hbcm2*p1p2*p6p7-2*fmb*hbcm2*p2p5*
9400      . p6p7+2*fmb*hbcm2*p4p6*p4p7+3*hbcm*p1p2*p3p5*p6p7-2*hbcm*p1p2*
9401      . p3p7*p5p6-2*hbcm*p1p5*p2p3*p6p7-2*hbcm*p2p3*p4p7*p5p6-2*hbcm*
9402      . p2p3*p5p6*p5p7-3*hbcm*p2p5*p3p5*p6p7+2*hbcm*p2p5*p3p7*p5p6+3*
9403      . hbcm*p3p5*p4p6*p4p7+2*hbcm*p3p5*p4p7*p5p6))+(8*(p4p7*p3p6)*(-8
9404      . *fb4*fmb+hbcm)+64*(p6p7*p2p3)*(fb3*fmc+2*fb4*fmb-fb4*fmc)+64*(
9405      . -fb3*hbcm*p1p2*p6p7+fb3*hbcm*p2p5*p6p7-fb3*hbcm*p4p6*p4p7)))
9406       b(11)=ans
9407       ans2=(16*(p6p8*p4p7)*(4*fb3*fmb*hbcm-4*fb4*fmc*hbcm+4*fb4*hbcm2
9408      . +hbcm2)+128*(fb4*p1p8*p2p3*p6p7+2*fb4*p2p3*p2p8*p6p7-2*fb4*
9409      . p2p3*p4p8*p6p7+fb4*p2p8*p3p6*p3p7+2*fb4*p2p8*p3p7*p4p6+fb4*
9410      . p3p5*p4p7*p6p8-fb4*p3p6*p4p7*p5p8))
9411       ans1=w12*(16*(p4p7*p3p6*p1p8)*(-fmb*hbcm-fmc*hbcm)+16*(p6p7*
9412      . p2p3*p1p8)*(fmb*hbcm+fmc*hbcm)+16*(p6p8*p4p7*p1p3)*(fmb*hbcm+
9413      . fmc*hbcm+hbcm2)+32*(p3p7*p3p6*p2p8)*(fmb*fmc+fmc2)+32*(p1p3*
9414      . p1p8*p2p3*p6p7+2*p1p3*p2p3*p2p8*p6p7-2*p1p3*p2p3*p4p8*p6p7+
9415      . p1p3*p2p8*p3p6*p3p7+2*p1p3*p2p8*p3p7*p4p6+p1p3*p3p5*p4p7*p6p8-
9416      . p1p3*p3p6*p4p7*p5p8))+w2*(16*(p5p8*p4p7*p3p6)*(-fmb*hbcm+fmc*
9417      . hbcm)+16*(p6p8*p4p7*p3p5)*(fmb*hbcm-fmc*hbcm+hbcm2)+32*(p5p6*
9418      . p3p7*p2p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+48*(p6p7*p5p8*p2p3)*(-fmb
9419      . *hbcm-fmc*hbcm)+32*(p3p7*p3p6*p2p8)*(fmb*fmc+fmb*hbcm)+16*(
9420      . p6p8*p4p7)*(-fmb*fmc*hbcm2+fmb*hbcm3-fmb2*hbcm2+2*p3p5s2)+32*(
9421      . 2*fmb*hbcm*p1p8*p2p3*p6p7+3*fmb*hbcm*p2p3*p2p8*p6p7-3*fmb*hbcm
9422      . *p2p3*p4p8*p6p7+3*fmb*hbcm*p2p8*p3p7*p4p6+hbcm2*p1p2*p5p8*p6p7
9423      . -hbcm2*p2p5*p5p8*p6p7+hbcm2*p4p6*p4p7*p5p8+hbcm2*p4p7*p5p6*
9424      . p5p8+p1p8*p2p3*p3p5*p6p7+2*p2p3*p2p8*p3p5*p6p7-2*p2p3*p3p5*
9425      . p4p8*p6p7+p2p8*p3p5*p3p6*p3p7+2*p2p8*p3p5*p3p7*p4p6-p3p5*p3p6*
9426      . p4p7*p5p8))+ans2
9427       ans=ccc*ans1
9428       b(12)=ans
9429       b(13)=ccc*(w12*(8*(p2p8*p1p3)*(-2*fmb+2*fmc+hbcm)+8*(hbcm*p1p2*
9430      . p1p8-hbcm*p1p8*p2p3-hbcm*p1p8*p2p5))+w2*(8*(p3p5*p2p8)*(-2*fmb
9431      . +2*fmc-3*hbcm)+8*p2p8*(3*fmb*fmc*hbcm-2*fmb*hbcm2-3*fmb2*hbcm)
9432      . +8*(-3*hbcm*p1p2*p5p8+2*hbcm*p1p5*p2p8+3*hbcm*p2p3*p5p8+3*hbcm
9433      . *p2p5*p5p8))+32*p2p8*(-fb3*fmc+fb3*hbcm-2*fb4*fmb+fb4*fmc))
9434       b(14)=ccc*(16*w12*(p1p2*p1p3-p1p3*p2p3-p1p3*p2p5)+8*w2*(3*fmb*
9435      . hbcm*p1p2-3*fmb*hbcm*p2p3-3*fmb*hbcm*p2p5+2*p1p2*p3p5-2*p2p3*
9436      . p3p5-2*p2p5*p3p5)+64*(fb4*p1p2-fb4*p2p3-fb4*p2p5))
9437       b(15)=ccc*(w12*(8*(p2p3*p1p8)*(-fmb*hbcm-fmc*hbcm)+8*(p2p8*p1p3
9438      . )*(fmb*hbcm+fmc*hbcm+2*hbcm2)+16*(p1p3*p1p8*p2p3-2*p1p3*p2p3*
9439      . p5p8+2*p1p3*p2p8*p3p5-p1p3s2*p2p8))+w2*(8*(p3p5*p2p8)*(3*fmb*
9440      . hbcm-3*fmc*hbcm+2*hbcm2)+24*(p5p8*p2p3)*(-fmb*hbcm+fmc*hbcm)+8
9441      . *p2p8*(-2*fmb*fmc*hbcm2+3*fmb*hbcm3-2*fmb2*hbcm2+4*p3p5s2)+16*
9442      . (-fmb*hbcm*p1p3*p2p8+fmb*hbcm*p1p8*p2p3-hbcm2*p1p2*p5p8+hbcm2*
9443      . p1p5*p2p8+hbcm2*p2p5*p5p8-p1p3*p2p8*p3p5+p1p8*p2p3*p3p5-2*p2p3
9444      . *p3p5*p5p8))+(32*p2p8*(fb3*fmb*hbcm+fb3*fmc*hbcm+2*fb4*hbcm2)+
9445      . 64*(-fb4*p1p3*p2p8+fb4*p1p8*p2p3-2*fb4*p2p3*p5p8+2*fb4*p2p8*
9446      . p3p5)))
9447       b(16)=ccc*(w12*(16*(p2p3*p1p3)*(fmb-fmc)+8*(-hbcm*p1p2*p1p3+
9448      . hbcm*p1p3*p2p5))+w2*(16*(p3p5*p2p3)*(fmb-fmc)+24*p2p3*(-fmb*
9449      . fmc*hbcm+fmb2*hbcm)+8*(2*fmb*hbcm2*p1p2-2*fmb*hbcm2*p2p5+3*
9450      . hbcm*p1p2*p3p5-2*hbcm*p1p5*p2p3-3*hbcm*p2p5*p3p5))+(32*p2p3*(
9451      . fb3*fmc+2*fb4*fmb-fb4*fmc)+32*(-fb3*hbcm*p1p2+fb3*hbcm*p2p5)))
9452       b(17)=ccc*(w12*(8*(p3p6*p1p8)*(fmc+hbcm)+8*(p6p8*p1p3)*(fmb-fmc
9453      . -hbcm)+8*(-2*fmc*p3p6*p5p8+hbcm*p1p8*p4p6))+w2*(8*(p5p8*p3p6)*
9454      . (-fmc-hbcm)+8*(p6p8*p3p5)*(fmb-fmc+hbcm)+8*p6p8*(-fmb*fmc*hbcm
9455      . +fmb*hbcm2+fmb2*hbcm)+8*(-3*hbcm*p4p6*p5p8-2*hbcm*p5p6*p5p8))+
9456      . 4*p6p8*(8*fb3*fmc-8*fb3*hbcm+8*fb4*fmb-hbcm))
9457       b(18)=ccc*(w2*(8*p5p6*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*p3p6*(-fmb*
9458      . fmc-fmb*hbcm)+8*(-3*fmb*hbcm*p4p6-p3p5*p3p6-2*p3p5*p4p6))+w12*
9459      . (8*p3p6*(-fmb*fmc-fmc2)+8*(-p1p3*p3p6-2*p1p3*p4p6))+32*(-fb4*
9460      . p3p6-2*fb4*p4p6))
9461       b(19)=ccc*(4*w12*(-2*hbcm*p1p3*p5p8+2*hbcm*p1p8*p3p5+hbcm3*p1p8
9462      . )+w2*(4*p5p8*(2*fmb*hbcm2+2*fmc*hbcm2-3*hbcm3)+8*(-fmb*hbcm2*
9463      . p1p8+hbcm*p1p3*p5p8-hbcm*p1p8*p3p5))+32*(fb3*hbcm*p1p8-fb3*
9464      . hbcm*p5p8))
9465       b(20)=ccc*(w2*(4*p5p8*(3*fmb*hbcm-3*fmc*hbcm+2*hbcm2)+8*(-fmb*
9466      . hbcm*p1p8-p1p8*p3p5+2*p3p5*p5p8))+w12*(4*p1p8*(fmb*hbcm+fmc*
9467      . hbcm)+8*(-p1p3*p1p8+2*p1p3*p5p8))+32*(-fb4*p1p8+2*fb4*p5p8))
9468       b(21)=ccc*(w12*(8*(p7p8*p1p3)*(2*fmb-2*fmc-hbcm)+8*(hbcm*p1p8*
9469      . p3p7+hbcm*p1p8*p4p7+hbcm*p1p8*p5p7))+w2*(8*(p7p8*p3p5)*(2*fmb-
9470      . 2*fmc+3*hbcm)+8*p7p8*(-3*fmb*fmc*hbcm+2*fmb*hbcm2+3*fmb2*hbcm)
9471      . +8*(-2*hbcm*p1p5*p7p8-3*hbcm*p3p7*p5p8-3*hbcm*p4p7*p5p8-3*hbcm
9472      . *p5p7*p5p8))+32*p7p8*(fb3*fmc-fb3*hbcm+2*fb4*fmb-fb4*fmc))
9473       b(22)=ccc*(4*w12*p1p3*(2*fmb-2*fmc-hbcm)+w2*(4*p3p5*(2*fmb-2*
9474      . fmc+3*hbcm)+4*(-3*fmb*fmc*hbcm+2*fmb*hbcm2+3*fmb2*hbcm-2*hbcm*
9475      . p1p5))+16*(fb3*fmc-fb3*hbcm+2*fb4*fmb-fb4*fmc))
9476       b(23)=ccc*(16*w12*(p1p3*p3p7+p1p3*p4p7+p1p3*p5p7)+8*w2*(3*fmb*
9477      . hbcm*p3p7+3*fmb*hbcm*p4p7+3*fmb*hbcm*p5p7+2*p3p5*p3p7+2*p3p5*
9478      . p4p7+2*p3p5*p5p7)+64*(fb4*p3p7+fb4*p4p7+fb4*p5p7))
9479       b(24)=ccc*(w12*(4*p1p3*(-fmb*hbcm-fmc*hbcm-2*hbcm2)+8*(-2*p1p3*
9480      . p3p5+p1p3s2))+w2*(4*p3p5*(-3*fmb*hbcm+3*fmc*hbcm-2*hbcm2)+4*(2
9481      . *fmb*fmc*hbcm2+2*fmb*hbcm*p1p3-3*fmb*hbcm3+2*fmb2*hbcm2-2*
9482      . hbcm2*p1p5+2*p1p3*p3p5-4*p3p5s2))+16*(-fb3*fmb*hbcm-fb3*fmc*
9483      . hbcm-2*fb4*hbcm2+2*fb4*p1p3-4*fb4*p3p5))
9484       b(25)=ccc*(w12*(16*(p3p7*p1p3)*(-fmb+fmc)+8*(-hbcm*p1p3*p4p7-
9485      . hbcm*p1p3*p5p7))+w2*(16*(p3p7*p3p5)*(-fmb+fmc)+24*p3p7*(fmb*
9486      . fmc*hbcm-fmb2*hbcm)+8*(2*fmb*hbcm2*p4p7+2*fmb*hbcm2*p5p7+2*
9487      . hbcm*p1p5*p3p7+3*hbcm*p3p5*p4p7+3*hbcm*p3p5*p5p7))+(32*p3p7*(-
9488      . fb3*fmc-2*fb4*fmb+fb4*fmc)+32*(-fb3*hbcm*p4p7-fb3*hbcm*p5p7)))
9489       b(26)=ccc*(8*w12*(-fmb*p1p3*p3p6+fmc*hbcm2*p3p6+2*fmc*p3p5*p3p6
9490      . -hbcm*p1p3*p4p6)+w2*(8*(p3p6*p3p5)*(-fmb+2*fmc)+8*p5p6*(fmb*
9491      . hbcm2-fmc*hbcm2+hbcm3)+8*p3p6*(fmb*fmc*hbcm-fmb2*hbcm)+8*(2*
9492      . fmb*hbcm2*p4p6+3*hbcm*p3p5*p4p6+2*hbcm*p3p5*p5p6))+(4*p3p6*(-8
9493      . *fb4*fmb+hbcm)-32*fb3*hbcm*p4p6))
9494       b(27)=ccc*(w12*(8*(p3p7*p1p8)*(fmb*hbcm+fmc*hbcm)+8*(p7p8*p1p3)
9495      . *(-fmb*hbcm-fmc*hbcm-2*hbcm2)+16*(-p1p3*p1p8*p3p7-2*p1p3*p3p5*
9496      . p7p8+2*p1p3*p3p7*p5p8+p1p3s2*p7p8))+w2*(24*(p5p8*p3p7)*(fmb*
9497      . hbcm-fmc*hbcm)+8*(p7p8*p3p5)*(-3*fmb*hbcm+3*fmc*hbcm-2*hbcm2)+
9498      . 8*p7p8*(2*fmb*fmc*hbcm2-3*fmb*hbcm3+2*fmb2*hbcm2-4*p3p5s2)+16*
9499      . (fmb*hbcm*p1p3*p7p8-fmb*hbcm*p1p8*p3p7-hbcm2*p1p5*p7p8-hbcm2*
9500      . p4p7*p5p8-hbcm2*p5p7*p5p8+p1p3*p3p5*p7p8-p1p8*p3p5*p3p7+2*p3p5
9501      . *p3p7*p5p8))+(32*p7p8*(-fb3*fmb*hbcm-fb3*fmc*hbcm-2*fb4*hbcm2)
9502      . +64*(fb4*p1p3*p7p8-fb4*p1p8*p3p7-2*fb4*p3p5*p7p8+2*fb4*p3p7*
9503      . p5p8)))
9504       b(28)=ccc*(w12*(8*(p3p6*p1p8)*(-fmb*hbcm-fmc*hbcm)+8*(p6p8*p1p3
9505      . )*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p1p3*p2p3*p6p8-p1p3*p3p4*p6p8-
9506      . p1p3*p3p6*p5p8+p1p3s2*p6p8))+w2*(8*(p5p8*p3p6)*(-fmb*hbcm+fmc*
9507      . hbcm)+8*(p6p8*p3p5)*(-fmb*hbcm-fmc*hbcm-hbcm2)+8*p6p8*(-fmb*
9508      . fmc*hbcm2-fmb*hbcm3-fmb2*hbcm2)+16*(fmb*hbcm*p1p3*p6p8+fmb*
9509      . hbcm*p2p3*p6p8-fmb*hbcm*p3p4*p6p8+hbcm2*p4p6*p5p8+hbcm2*p5p6*
9510      . p5p8+p1p3*p3p5*p6p8+p2p3*p3p5*p6p8-p3p4*p3p5*p6p8-p3p5*p3p6*
9511      . p5p8))+(8*p6p8*(4*fb3*fmb*hbcm-4*fb4*fmc*hbcm-4*fb4*hbcm2+
9512      . hbcm2)+64*(fb4*p1p3*p6p8+fb4*p2p3*p6p8-fb4*p3p4*p6p8-fb4*p3p6*
9513      . p5p8)))
9514       ans=ccc*(w12*(8*(p6p7*p1p3)*(-fmb*hbcm-fmc*hbcm+2*hbcm2)+16*(
9515      . p3p7*p3p6)*(-fmb*fmc-fmc2)+16*(-2*p1p3*p2p3*p6p7+2*p1p3*p3p4*
9516      . p6p7+p1p3*p3p6*p4p7+p1p3*p3p6*p5p7-2*p1p3*p3p7*p4p6-p1p3s2*
9517      . p6p7))+w2*(16*(p5p6*p3p7)*(-fmb*hbcm-fmc*hbcm)+8*(p6p7*p3p5)*(
9518      . 3*fmb*hbcm+3*fmc*hbcm+2*hbcm2)+8*p6p7*(2*fmb*fmc*hbcm2+3*fmb*
9519      . hbcm3+2*fmb2*hbcm2)+16*(-fmb*fmc*p3p6*p3p7-2*fmb*hbcm*p1p3*
9520      . p6p7-3*fmb*hbcm*p2p3*p6p7+3*fmb*hbcm*p3p4*p6p7+fmb*hbcm*p3p6*
9521      . p4p7+fmb*hbcm*p3p6*p5p7-3*fmb*hbcm*p3p7*p4p6-hbcm2*p1p5*p6p7-
9522      . hbcm2*p4p7*p5p6-hbcm2*p5p6*p5p7-p1p3*p3p5*p6p7-2*p2p3*p3p5*
9523      . p6p7+2*p3p4*p3p5*p6p7+p3p5*p3p6*p4p7+p3p5*p3p6*p5p7-2*p3p5*
9524      . p3p7*p4p6))+(32*p6p7*(-fb3*fmb*hbcm-fb3*fmc*hbcm+2*fb4*hbcm2)+
9525      . 64*(-fb4*p1p3*p6p7-2*fb4*p2p3*p6p7+2*fb4*p3p4*p6p7+fb4*p3p6*
9526      . p4p7+fb4*p3p6*p5p7-2*fb4*p3p7*p4p6)))
9527       b(29)=ans
9528       ans1=w12*(16*(p6p8*p3p7*p1p3)*(fmb-fmc)+8*(-2*fmb*p1p3*p3p6*
9529      . p7p8+2*fmc*hbcm2*p3p6*p7p8+2*fmc*p1p8*p3p6*p3p7+4*fmc*p3p5*
9530      . p3p6*p7p8-4*fmc*p3p6*p3p7*p5p8-2*hbcm*p1p3*p4p6*p7p8+2*hbcm*
9531      . p1p3*p4p7*p6p8+2*hbcm*p1p3*p5p7*p6p8-2*hbcm*p1p3*p5p8*p6p7+2*
9532      . hbcm*p1p8*p3p5*p6p7-2*hbcm*p1p8*p3p6*p4p7-2*hbcm*p1p8*p3p6*
9533      . p5p7+2*hbcm*p1p8*p3p7*p4p6+hbcm3*p1p8*p6p7))+w2*(16*(p6p8*p3p7
9534      . *p3p5)*(fmb-fmc)+16*(p7p8*p3p6*p3p5)*(-fmb+2*fmc)+8*(p6p7*p5p8
9535      . )*(2*fmb*hbcm2+2*fmc*hbcm2-3*hbcm3)+16*(p7p8*p5p6)*(fmb*hbcm2-
9536      . fmc*hbcm2+hbcm3)+16*(p6p8*p3p7)*(-fmb*fmc*hbcm+fmb2*hbcm)+16*(
9537      . p7p8*p3p6)*(fmb*fmc*hbcm-fmb2*hbcm)+16*(-fmb*hbcm2*p1p8*p6p7+2
9538      . *fmb*hbcm2*p4p6*p7p8-fmb*hbcm2*p4p7*p6p8-fmb*hbcm2*p5p7*p6p8-
9539      . fmc*p3p6*p3p7*p5p8+hbcm*p1p3*p5p8*p6p7-hbcm*p1p8*p3p5*p6p7+3*
9540      . hbcm*p3p5*p4p6*p7p8-hbcm*p3p5*p4p7*p6p8+2*hbcm*p3p5*p5p6*p7p8-
9541      . hbcm*p3p5*p5p7*p6p8+hbcm*p3p6*p4p7*p5p8+hbcm*p3p6*p5p7*p5p8-3*
9542      . hbcm*p3p7*p4p6*p5p8-2*hbcm*p3p7*p5p6*p5p8))+(8*(p7p8*p3p6)*(-8
9543      . *fb4*fmb+hbcm)+8*(p6p8*p3p7)*(8*fb3*fmc+8*fb4*fmb-hbcm)+64*(
9544      . fb3*hbcm*p1p8*p6p7-fb3*hbcm*p4p6*p7p8+fb3*hbcm*p4p7*p6p8+fb3*
9545      . hbcm*p5p7*p6p8-fb3*hbcm*p5p8*p6p7))
9546       ans=ccc*ans1
9547       b(30)=ans
9548       b(31)=ccc*(w2*(8*(p6p7*p5p8)*(3*fmb*hbcm+3*fmc*hbcm-2*hbcm2)+16
9549      . *(p7p8*p5p6)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p7p8*p3p6)*(-fmb*
9550      . fmc-fmb*hbcm)+16*(-2*fmb*hbcm*p1p8*p6p7-3*fmb*hbcm*p2p8*p6p7-3
9551      . *fmb*hbcm*p4p6*p7p8+3*fmb*hbcm*p4p8*p6p7-p1p8*p3p5*p6p7-2*p2p8
9552      . *p3p5*p6p7-p3p5*p3p6*p7p8-2*p3p5*p4p6*p7p8+2*p3p5*p4p8*p6p7))+
9553      . w12*(8*(p6p7*p1p8)*(-fmb*hbcm-fmc*hbcm)+16*(p7p8*p3p6)*(-fmb*
9554      . fmc-fmc2)+16*(-p1p3*p1p8*p6p7-2*p1p3*p2p8*p6p7-p1p3*p3p6*p7p8-
9555      . 2*p1p3*p4p6*p7p8+2*p1p3*p4p8*p6p7))+64*(-fb4*p1p8*p6p7-2*fb4*
9556      . p2p8*p6p7-fb4*p3p6*p7p8-2*fb4*p4p6*p7p8+2*fb4*p4p8*p6p7))
9557       b(32)=ccc*(w12*(8*(p6p7*p1p3)*(2*fmb-2*fmc-hbcm)+16*(-fmc*p3p6*
9558      . p3p7-fmc*p3p6*p4p7-fmc*p3p6*p5p7))+w2*(8*(p6p7*p3p5)*(2*fmb-2*
9559      . fmc+3*hbcm)+8*p6p7*(-3*fmb*fmc*hbcm+2*fmb*hbcm2+3*fmb2*hbcm)+
9560      . 16*(-hbcm*p1p5*p6p7-hbcm*p3p7*p5p6-hbcm*p4p7*p5p6-hbcm*p5p6*
9561      . p5p7))+32*p6p7*(fb3*fmc-fb3*hbcm+2*fb4*fmb-fb4*fmc))
9562       do 200 n=1,32
9563          c(n,1)=c(n,1)+0.09090909090909091d0*b(n)
9564          c(n,2)=c(n,2)-0.01680909685530997d0*b(n)
9565          c(n,3)=c(n,3)-0.02077659977796572d0*b(n)
9566 200   continue
9567       return
9568         end
9569
9570       subroutine amp7_3p1(cc)
9571       implicit double precision(a-h,o-z)
9572       implicit integer (i-n)
9573       dimension b(32)
9574 #include "inclcon.h"
9575 #include "inclppp.h"
9576 #include "inclamp.h"
9577       do 100 n=1,32
9578          b(n)=0.0d0
9579 100   continue
9580       ccc=cc/((-2*p2p4)*(-2*ffmcfmb*p3p5+fmb2-2*fmc*hbcm+fmc2+hbcm2+2
9581      . *p3p5)*(fmb2-fmc2+hbcm2+2*p3p5))
9582       b(3)=ccc*(w2*(16*(p6p7*p2p8)*(fmb*fmc*hbcm-fmb2*hbcm)-16*hbcm*
9583      . p2p8*p3p5*p6p7)-64*fb3*hbcm*p2p8*p6p7)
9584       b(4)=ccc*(w2*(8*p4p7*(-fmb*fmc*hbcm+fmb2*hbcm)+8*hbcm*p3p5*p4p7
9585      . )+32*fb3*hbcm*p4p7)
9586       b(5)=8*ccc*w2*(p5p8*p4p7)*(fmb*hbcm-fmc*hbcm)
9587       b(6)=ccc*(w2*(8*(p4p7*p3p5)*(-fmb*hbcm+fmc*hbcm)-8*fmb*hbcm3*
9588      . p4p7)+32*p4p7*(fb3*fmb*hbcm+fb3*fmc*hbcm))
9589       b(7)=ccc*(w2*(16*(p3p7*p2p8)*(-fmb*fmc*hbcm+fmb2*hbcm)+16*(p7p8
9590      . *p2p3)*(fmb*fmc*hbcm-fmb2*hbcm)+8*(-2*hbcm*p2p3*p3p5*p7p8+2*
9591      . hbcm*p2p8*p3p5*p3p7-hbcm3*p4p7*p5p8))+64*(-fb3*hbcm*p2p3*p7p8+
9592      . fb3*hbcm*p2p8*p3p7+fb3*hbcm*p4p7*p5p8))
9593       b(11)=ccc*(w2*(16*(p6p7*p2p3)*(-fmb*fmc*hbcm+fmb2*hbcm)+16*hbcm
9594      . *p2p3*p3p5*p6p7)+64*fb3*hbcm*p2p3*p6p7)
9595       b(12)=16*ccc*w2*(p6p7*p5p8*p2p3)*(fmb*hbcm-fmc*hbcm)
9596       b(13)=ccc*(w2*(8*p2p8*(fmb*fmc*hbcm-fmb2*hbcm)-8*hbcm*p2p8*p3p5
9597      . )-32*fb3*hbcm*p2p8)
9598       b(15)=ccc*(w2*(8*(p3p5*p2p8)*(fmb*hbcm-fmc*hbcm)+8*(p5p8*p2p3)*
9599      . (-fmb*hbcm+fmc*hbcm)+8*fmb*hbcm3*p2p8)+32*p2p8*(-fb3*fmb*hbcm-
9600      . fb3*fmc*hbcm))
9601       b(16)=ccc*(w2*(8*p2p3*(-fmb*fmc*hbcm+fmb2*hbcm)+8*hbcm*p2p3*
9602      . p3p5)+32*fb3*hbcm*p2p3)
9603       b(19)=4*ccc*p5p8*(8*fb3*hbcm-hbcm3*w2)
9604       b(20)=4*ccc*w2*p5p8*(fmb*hbcm-fmc*hbcm)
9605       b(21)=ccc*(w2*(8*p7p8*(-fmb*fmc*hbcm+fmb2*hbcm)+8*hbcm*p3p5*
9606      . p7p8)+32*fb3*hbcm*p7p8)
9607       b(22)=ccc*(4*w2*(-fmb*fmc*hbcm+fmb2*hbcm+hbcm*p3p5)+16*fb3*hbcm
9608      . )
9609       b(24)=ccc*(w2*(4*p3p5*(-fmb*hbcm+fmc*hbcm)-4*fmb*hbcm3)+16*(fb3
9610      . *fmb*hbcm+fb3*fmc*hbcm))
9611       b(25)=ccc*(w2*(8*p3p7*(fmb*fmc*hbcm-fmb2*hbcm)-8*hbcm*p3p5*p3p7
9612      . )-32*fb3*hbcm*p3p7)
9613       b(27)=ccc*(w2*(8*(p5p8*p3p7)*(fmb*hbcm-fmc*hbcm)+8*(p7p8*p3p5)*
9614      . (-fmb*hbcm+fmc*hbcm)-8*fmb*hbcm3*p7p8)+32*p7p8*(fb3*fmb*hbcm+
9615      . fb3*fmc*hbcm))
9616       b(29)=ccc*(w2*(8*(p6p7*p3p5)*(-fmb*hbcm+fmc*hbcm)-8*fmb*hbcm3*
9617      . p6p7)+32*p6p7*(fb3*fmb*hbcm+fb3*fmc*hbcm))
9618       b(30)=8*ccc*(p6p7*p5p8)*(8*fb3*hbcm-hbcm3*w2)
9619       b(31)=8*ccc*w2*(p6p7*p5p8)*(-fmb*hbcm+fmc*hbcm)
9620       b(32)=ccc*(w2*(8*p6p7*(-fmb*fmc*hbcm+fmb2*hbcm)+8*hbcm*p3p5*
9621      . p6p7)+32*fb3*hbcm*p6p7)
9622       do 200 n=1,32
9623          c(n,1)=c(n,1)-0.7272727272727273d0*b(n)
9624          c(n,2)=c(n,2)+0.1344727748424798d0*b(n)
9625          c(n,3)=c(n,3)+0.1662127982237257d0*b(n)
9626 200   continue
9627       return
9628         end
9629
9630       subroutine amp6_3p1(cc)
9631       implicit double precision(a-h,o-z)
9632       implicit integer (i-n)
9633       dimension b(32)
9634 #include "inclcon.h"
9635 #include "inclppp.h"
9636 #include "inclamp.h"
9637       do 100 n=1,32
9638          b(n)=0.0d0
9639 100   continue
9640       ccc=cc/((4*p1p5*p2p4)*(-2*ffmcfmb*p2p3+2*ffmcfmb*p3p4+2*fmc2-2*
9641      . p2p4))
9642       b(1)=16*ccc*w11*(hbcm*p2p4*p3p6+hbcm*p2p4*p4p6+hbcm*p2p4*p5p6)
9643       b(2)=16*ccc*w11*(-fmb*hbcm*p2p4*p6p7+fmc*hbcm*p3p6*p4p7+fmc*
9644      . hbcm*p4p6*p4p7+fmc*hbcm*p4p7*p5p6)
9645       b(3)=ccc*(w11*(16*(p6p8*p4p7)*(-fmb*fmc*hbcm+fmc2*hbcm)+16*(
9646      . p6p7*p2p8)*(fmb*fmc*hbcm-fmc2*hbcm)+16*(hbcm*p1p2*p2p8*p6p7-
9647      . hbcm*p1p2*p4p8*p6p7+2*hbcm*p1p8*p2p4*p6p7-hbcm*p2p3*p4p7*p6p8+
9648      . hbcm*p2p3*p4p8*p6p7+2*hbcm*p2p4*p2p8*p6p7-2*hbcm*p2p4*p3p6*
9649      . p7p8+2*hbcm*p2p4*p3p7*p6p8-2*hbcm*p2p4*p4p6*p7p8-2*hbcm*p2p4*
9650      . p5p6*p7p8+2*hbcm*p2p4*p5p7*p6p8-2*hbcm*p2p4*p5p8*p6p7-hbcm*
9651      . p2p5*p2p8*p6p7+hbcm*p2p5*p4p8*p6p7-hbcm*p2p8*p3p4*p6p7+hbcm*
9652      . p2p8*p3p6*p4p7+hbcm*p2p8*p4p6*p4p7+hbcm*p2p8*p4p7*p5p6+hbcm*
9653      . p3p4*p4p7*p6p8-hbcm*p3p6*p4p7*p4p8-hbcm*p4p6*p4p7*p4p8-hbcm*
9654      . p4p7*p4p8*p5p6))+64*(-fb3*hbcm*p2p8*p6p7+fb3*hbcm*p4p7*p6p8))
9655       b(4)=ccc*(w11*(8*p4p7*(-fmb*fmc*hbcm+fmc2*hbcm)+8*(-hbcm*p2p3*
9656      . p4p7+2*hbcm*p2p4*p3p7+2*hbcm*p2p4*p5p7+hbcm*p3p4*p4p7))+32*fb3
9657      . *hbcm*p4p7)
9658       b(5)=w11*ccc*(8*(p4p8*p4p7)*(-fmb*hbcm-fmc*hbcm)+8*(p4p7*p2p8)*
9659      . (fmb*hbcm+3*fmc*hbcm)+16*(p7p8*p2p4)*(-fmb*hbcm-fmc*hbcm)+16*(
9660      . fmc*hbcm*p1p2*p7p8+fmc*hbcm*p1p8*p4p7-fmc*hbcm*p2p3*p7p8-fmc*
9661      . hbcm*p2p5*p7p8+fmc*hbcm*p2p8*p3p7+fmc*hbcm*p2p8*p5p7-fmc*hbcm*
9662      . p4p7*p5p8))
9663       b(6)=ccc*(w11*(8*(p4p7*p3p4)*(fmb*hbcm+fmc*hbcm)+16*(p3p7*p2p4)
9664      . *(fmb*hbcm+fmc*hbcm)+8*(p4p7*p2p3)*(-fmb*hbcm-3*fmc*hbcm)+8*(-
9665      . 2*fmc*hbcm*p1p2*p3p7-2*fmc*hbcm*p1p3*p4p7-2*fmc*hbcm*p2p3*p5p7
9666      . +2*fmc*hbcm*p2p5*p3p7+2*fmc*hbcm*p3p5*p4p7+fmc*hbcm3*p4p7))+32
9667      . *p4p7*(fb3*fmb*hbcm+fb3*fmc*hbcm))
9668       ans=ccc*(w11*(16*(p3p7*p2p8)*(-fmb*fmc*hbcm+fmc2*hbcm)+16*(p7p8
9669      . *p2p3)*(fmb*fmc*hbcm-fmc2*hbcm)+8*(2*hbcm*p1p2*p2p3*p7p8-2*
9670      . hbcm*p1p2*p2p8*p3p7-2*hbcm*p1p2*p3p4*p7p8+2*hbcm*p1p2*p3p7*
9671      . p4p8+4*hbcm*p1p3*p2p4*p7p8-2*hbcm*p1p3*p2p8*p4p7+2*hbcm*p1p3*
9672      . p4p7*p4p8+2*hbcm*p1p8*p2p3*p4p7-4*hbcm*p1p8*p2p4*p3p7-2*hbcm*
9673      . p1p8*p3p4*p4p7+4*hbcm*p2p3*p2p4*p7p8-2*hbcm*p2p3*p2p5*p7p8+2*
9674      . hbcm*p2p3*p4p7*p4p8-2*hbcm*p2p3*p4p7*p5p8+2*hbcm*p2p3*p4p8*
9675      . p5p7-4*hbcm*p2p4*p2p8*p3p7-4*hbcm*p2p4*p3p5*p7p8+4*hbcm*p2p4*
9676      . p3p7*p5p8+2*hbcm*p2p5*p2p8*p3p7+2*hbcm*p2p5*p3p4*p7p8-2*hbcm*
9677      . p2p5*p3p7*p4p8-2*hbcm*p2p8*p3p4*p4p7-2*hbcm*p2p8*p3p4*p5p7+2*
9678      . hbcm*p2p8*p3p5*p4p7+2*hbcm*p3p4*p4p7*p5p8-2*hbcm*p3p5*p4p7*
9679      . p4p8-2*hbcm3*p2p4*p7p8+hbcm3*p2p8*p4p7-hbcm3*p4p7*p4p8))+64*(-
9680      . fb3*hbcm*p1p2*p7p8-fb3*hbcm*p1p8*p4p7+fb3*hbcm*p2p5*p7p8-fb3*
9681      . hbcm*p2p8*p4p7-fb3*hbcm*p2p8*p5p7+fb3*hbcm*p4p7*p5p8))
9682       b(7)=ans
9683       b(8)=16*ccc*w11*(-fmb*hbcm*p2p4*p6p8+fmc*hbcm*p2p8*p3p6+fmc*
9684      . hbcm*p2p8*p4p6+fmc*hbcm*p2p8*p5p6)
9685       b(9)=w11*ccc*(16*(p3p6*p2p4)*(fmb*hbcm+fmc*hbcm)+16*(-fmc*hbcm*
9686      . p1p2*p3p6-fmc*hbcm*p2p3*p4p6-fmc*hbcm*p2p3*p5p6+fmc*hbcm*p2p5*
9687      . p3p6))
9688       b(10)=ccc*(w11*(16*(p3p6*p2p8)*(-fmb*fmc*hbcm+fmc2*hbcm)+16*(
9689      . p6p8*p2p3)*(fmb*fmc*hbcm-fmc2*hbcm)+16*(hbcm*p1p2*p2p3*p6p8-
9690      . hbcm*p1p2*p2p8*p3p6-hbcm*p1p2*p3p4*p6p8+hbcm*p1p2*p3p6*p4p8+2*
9691      . hbcm*p1p3*p2p4*p6p8-2*hbcm*p1p8*p2p4*p3p6+2*hbcm*p2p3*p2p4*
9692      . p6p8-hbcm*p2p3*p2p5*p6p8+hbcm*p2p3*p4p6*p4p8+hbcm*p2p3*p4p8*
9693      . p5p6-2*hbcm*p2p4*p2p8*p3p6-2*hbcm*p2p4*p3p5*p6p8+2*hbcm*p2p4*
9694      . p3p6*p5p8+hbcm*p2p5*p2p8*p3p6+hbcm*p2p5*p3p4*p6p8-hbcm*p2p5*
9695      . p3p6*p4p8-hbcm*p2p8*p3p4*p4p6-hbcm*p2p8*p3p4*p5p6-hbcm3*p2p4*
9696      . p6p8))+64*(-fb3*hbcm*p1p2*p6p8+fb3*hbcm*p2p5*p6p8-fb3*hbcm*
9697      . p2p8*p4p6-fb3*hbcm*p2p8*p5p6))
9698       b(11)=ccc*(w11*(16*(p4p7*p3p6)*(fmb*fmc*hbcm-fmc2*hbcm)+16*(
9699      . p6p7*p2p3)*(-fmb*fmc*hbcm+fmc2*hbcm)+16*(-hbcm*p1p2*p2p3*p6p7+
9700      . hbcm*p1p2*p3p4*p6p7-2*hbcm*p1p3*p2p4*p6p7-2*hbcm*p2p3*p2p4*
9701      . p6p7+hbcm*p2p3*p2p5*p6p7-hbcm*p2p3*p4p6*p4p7-hbcm*p2p3*p4p7*
9702      . p5p6+2*hbcm*p2p4*p3p5*p6p7-2*hbcm*p2p4*p3p6*p5p7+2*hbcm*p2p4*
9703      . p3p7*p4p6+2*hbcm*p2p4*p3p7*p5p6-hbcm*p2p5*p3p4*p6p7+hbcm*p3p4*
9704      . p4p6*p4p7+hbcm*p3p4*p4p7*p5p6+hbcm3*p2p4*p6p7))+64*(fb3*hbcm*
9705      . p1p2*p6p7-fb3*hbcm*p2p5*p6p7+fb3*hbcm*p4p6*p4p7+fb3*hbcm*p4p7*
9706      . p5p6))
9707       b(12)=ccc*(w11*(16*(p4p8*p4p7*p3p6)*(fmb*hbcm+fmc*hbcm)+16*(
9708      . p6p8*p4p7*p3p4)*(-fmb*hbcm-fmc*hbcm)+16*(p4p7*p3p6*p2p8)*(-fmb
9709      . *hbcm-fmc*hbcm)+16*(p6p7*p4p8*p2p3)*(-fmb*hbcm+fmc*hbcm)+16*(
9710      . p6p8*p4p7*p2p3)*(fmb*hbcm+fmc*hbcm)+16*(p6p7*p2p8*p2p3)*(fmb*
9711      . hbcm-fmc*hbcm)+16*(2*fmc*hbcm*p1p3*p4p7*p6p8-2*fmc*hbcm*p1p8*
9712      . p3p6*p4p7-2*fmc*hbcm*p2p8*p3p6*p3p7-2*fmc*hbcm*p2p8*p3p7*p4p6-
9713      . 2*fmc*hbcm*p2p8*p3p7*p5p6-2*fmc*hbcm*p3p5*p4p7*p6p8+2*fmc*hbcm
9714      . *p3p6*p4p7*p5p8-fmc*hbcm3*p4p7*p6p8))+64*(p6p8*p4p7)*(-fb3*fmb
9715      . *hbcm-fb3*fmc*hbcm))
9716       b(13)=ccc*(w11*(8*p2p8*(fmb*fmc*hbcm-fmc2*hbcm)+8*(hbcm*p1p2*
9717      . p2p8-hbcm*p1p2*p4p8+2*hbcm*p1p8*p2p4+hbcm*p2p3*p4p8+2*hbcm*
9718      . p2p4*p2p8-2*hbcm*p2p4*p5p8-hbcm*p2p5*p2p8+hbcm*p2p5*p4p8-hbcm*
9719      . p2p8*p3p4))-32*fb3*hbcm*p2p8)
9720       b(14)=w11*ccc*(8*p2p4*(fmb*hbcm+fmc*hbcm)+8*(-fmc*hbcm*p1p2+fmc
9721      . *hbcm*p2p3+fmc*hbcm*p2p5))
9722       b(15)=ccc*(w11*(8*(p3p4*p2p8)*(-fmb*hbcm-fmc*hbcm)+8*(p4p8*p2p3
9723      . )*(fmb*hbcm+fmc*hbcm)+8*(2*fmc*hbcm*p1p3*p2p8-2*fmc*hbcm*p1p8*
9724      . p2p3+2*fmc*hbcm*p2p3*p5p8-2*fmc*hbcm*p2p8*p3p5-fmc*hbcm3*p2p8)
9725      . )+32*p2p8*(-fb3*fmb*hbcm-fb3*fmc*hbcm))
9726       b(16)=ccc*(w11*(8*p2p3*(-fmb*fmc*hbcm+fmc2*hbcm)+8*(-hbcm*p1p2*
9727      . p2p3+hbcm*p1p2*p3p4-2*hbcm*p1p3*p2p4-2*hbcm*p2p3*p2p4+hbcm*
9728      . p2p3*p2p5+2*hbcm*p2p4*p3p5-hbcm*p2p5*p3p4+hbcm3*p2p4))+32*(fb3
9729      . *hbcm*p1p2-fb3*hbcm*p2p5))
9730       b(17)=ccc*(w11*(8*p6p8*(-fmb*fmc*hbcm+fmc2*hbcm)+8*(-hbcm*p2p3*
9731      . p6p8-2*hbcm*p2p4*p6p8+hbcm*p2p8*p3p6+hbcm*p2p8*p4p6+hbcm*p2p8*
9732      . p5p6+hbcm*p3p4*p6p8-hbcm*p3p6*p4p8-hbcm*p4p6*p4p8-hbcm*p4p8*
9733      . p5p6))+32*fb3*hbcm*p6p8)
9734       b(18)=8*ccc*w11*(fmc*hbcm*p3p6+fmc*hbcm*p4p6+fmc*hbcm*p5p6)
9735       b(19)=ccc*(4*w11*(-2*hbcm*p1p3*p2p8+2*hbcm*p1p3*p4p8+2*hbcm*
9736      . p1p8*p2p3-2*hbcm*p1p8*p3p4-2*hbcm*p2p3*p5p8+2*hbcm*p2p8*p3p5+2
9737      . *hbcm*p3p4*p5p8-2*hbcm*p3p5*p4p8+hbcm3*p2p8-hbcm3*p4p8)+32*(-
9738      . fb3*hbcm*p1p8+fb3*hbcm*p5p8))
9739       b(20)=w11*ccc*(4*p4p8*(-fmb*hbcm-fmc*hbcm)+4*p2p8*(fmb*hbcm+fmc
9740      . *hbcm)+8*(fmc*hbcm*p1p8-fmc*hbcm*p5p8))
9741       b(21)=ccc*(w11*(8*p7p8*(-fmb*fmc*hbcm+fmc2*hbcm)+8*(-hbcm*p2p3*
9742      . p7p8-2*hbcm*p2p4*p7p8+hbcm*p2p8*p3p7+hbcm*p2p8*p4p7+hbcm*p2p8*
9743      . p5p7+hbcm*p3p4*p7p8-hbcm*p3p7*p4p8-hbcm*p4p7*p4p8-hbcm*p4p8*
9744      . p5p7))+32*fb3*hbcm*p7p8)
9745       b(22)=ccc*(4*w11*(-fmb*fmc*hbcm+fmc2*hbcm-hbcm*p2p3-2*hbcm*p2p4
9746      . +hbcm*p3p4)+16*fb3*hbcm)
9747       b(23)=8*ccc*w11*(-fmc*hbcm*p3p7-fmc*hbcm*p4p7-fmc*hbcm*p5p7)
9748       b(24)=ccc*(w11*(4*p3p4*(fmb*hbcm+fmc*hbcm)+4*p2p3*(-fmb*hbcm-
9749      . fmc*hbcm)+4*(-2*fmc*hbcm*p1p3+2*fmc*hbcm*p3p5+fmc*hbcm3))+16*(
9750      . fb3*fmb*hbcm+fb3*fmc*hbcm))
9751       b(25)=ccc*(w11*(8*p3p7*(fmb*fmc*hbcm-fmc2*hbcm)+8*(-hbcm*p2p3*
9752      . p4p7-hbcm*p2p3*p5p7+2*hbcm*p2p4*p3p7+hbcm*p3p4*p4p7+hbcm*p3p4*
9753      . p5p7))+32*(fb3*hbcm*p4p7+fb3*hbcm*p5p7))
9754       b(26)=ccc*(w11*(8*p3p6*(fmb*fmc*hbcm-fmc2*hbcm)+8*(-hbcm*p2p3*
9755      . p4p6-hbcm*p2p3*p5p6+2*hbcm*p2p4*p3p6+hbcm*p3p4*p4p6+hbcm*p3p4*
9756      . p5p6))+32*(fb3*hbcm*p4p6+fb3*hbcm*p5p6))
9757       b(27)=ccc*(w11*(8*(p4p8*p3p7)*(-fmb*hbcm-fmc*hbcm)+8*(p7p8*p3p4
9758      . )*(fmb*hbcm+fmc*hbcm)+8*(p3p7*p2p8)*(fmb*hbcm+fmc*hbcm)+8*(
9759      . p7p8*p2p3)*(-fmb*hbcm-fmc*hbcm)+8*(-2*fmc*hbcm*p1p3*p7p8+2*fmc
9760      . *hbcm*p1p8*p3p7+2*fmc*hbcm*p3p5*p7p8-2*fmc*hbcm*p3p7*p5p8+fmc*
9761      . hbcm3*p7p8))+32*p7p8*(fb3*fmb*hbcm+fb3*fmc*hbcm))
9762       b(28)=ccc*(w11*(8*(p4p8*p3p6)*(fmb*hbcm+fmc*hbcm)+8*(p6p8*p3p4)
9763      . *(-fmb*hbcm+fmc*hbcm)+8*(p3p6*p2p8)*(-fmb*hbcm-fmc*hbcm)+8*(
9764      . p6p8*p2p3)*(fmb*hbcm-fmc*hbcm)+8*(-2*fmc*hbcm*p1p8*p3p6+2*fmc*
9765      . hbcm*p3p6*p5p8+fmc*hbcm3*p6p8))+32*p6p8*(-fb3*fmb*hbcm-fb3*fmc
9766      . *hbcm))
9767       b(29)=ccc*(w11*(8*(p6p7*p3p4)*(fmb*hbcm-fmc*hbcm)+8*(p6p7*p2p3)
9768      . *(-fmb*hbcm+fmc*hbcm)+8*(-2*fmc*hbcm*p3p6*p4p7-2*fmc*hbcm*p3p6
9769      . *p5p7+2*fmc*hbcm*p3p7*p4p6+2*fmc*hbcm*p3p7*p5p6-fmc*hbcm3*p6p7
9770      . ))+32*p6p7*(fb3*fmb*hbcm+fb3*fmc*hbcm))
9771       b(30)=ccc*(w11*(16*(p6p8*p3p7)*(-fmb*fmc*hbcm+fmc2*hbcm)+16*(
9772      . p7p8*p3p6)*(fmb*fmc*hbcm-fmc2*hbcm)+8*(-2*hbcm*p1p3*p2p8*p6p7+
9773      . 2*hbcm*p1p3*p4p8*p6p7+2*hbcm*p1p8*p2p3*p6p7-2*hbcm*p1p8*p3p4*
9774      . p6p7-2*hbcm*p2p3*p4p6*p7p8+2*hbcm*p2p3*p4p7*p6p8-2*hbcm*p2p3*
9775      . p5p6*p7p8+2*hbcm*p2p3*p5p7*p6p8-2*hbcm*p2p3*p5p8*p6p7+4*hbcm*
9776      . p2p4*p3p6*p7p8-4*hbcm*p2p4*p3p7*p6p8+2*hbcm*p2p8*p3p5*p6p7-2*
9777      . hbcm*p2p8*p3p6*p4p7-2*hbcm*p2p8*p3p6*p5p7+2*hbcm*p2p8*p3p7*
9778      . p4p6+2*hbcm*p2p8*p3p7*p5p6+2*hbcm*p3p4*p4p6*p7p8-2*hbcm*p3p4*
9779      . p4p7*p6p8+2*hbcm*p3p4*p5p6*p7p8-2*hbcm*p3p4*p5p7*p6p8+2*hbcm*
9780      . p3p4*p5p8*p6p7-2*hbcm*p3p5*p4p8*p6p7+2*hbcm*p3p6*p4p7*p4p8+2*
9781      . hbcm*p3p6*p4p8*p5p7-2*hbcm*p3p7*p4p6*p4p8-2*hbcm*p3p7*p4p8*
9782      . p5p6+hbcm3*p2p8*p6p7-hbcm3*p4p8*p6p7))+64*(-fb3*hbcm*p1p8*p6p7
9783      . +fb3*hbcm*p4p6*p7p8-fb3*hbcm*p4p7*p6p8+fb3*hbcm*p5p6*p7p8-fb3*
9784      . hbcm*p5p7*p6p8+fb3*hbcm*p5p8*p6p7))
9785       b(31)=w11*ccc*(8*(p6p7*p4p8)*(fmb*hbcm-fmc*hbcm)+8*(p6p7*p2p8)*
9786      . (-fmb*hbcm+fmc*hbcm)+16*(fmc*hbcm*p3p6*p7p8+fmc*hbcm*p4p6*p7p8
9787      . +fmc*hbcm*p5p6*p7p8))
9788       b(32)=ccc*(w11*(8*p6p7*(-fmb*fmc*hbcm+fmc2*hbcm)+8*(-hbcm*p2p3*
9789      . p6p7-2*hbcm*p2p4*p6p7+hbcm*p3p4*p6p7))+32*fb3*hbcm*p6p7)
9790       do 200 n=1,32
9791          c(n,1)=c(n,1)-0.7272727272727273d0*b(n)
9792          c(n,2)=c(n,2)+0.1344727748424798d0*b(n)
9793          c(n,3)=c(n,3)+0.1662127982237257d0*b(n)
9794 200   continue
9795       return
9796         end
9797
9798       subroutine amp5_3p1(cc)
9799       implicit double precision(a-h,o-z)
9800       implicit integer (i-n)
9801       dimension b(32)
9802 #include "inclcon.h"
9803 #include "inclppp.h"
9804 #include "inclamp.h"
9805       do 100 n=1,32
9806          b(n)=0.0d0
9807 100   continue
9808       ccc=cc/((-2*p1p4)*(-2*ffmcfmb*p1p3+2*ffmcfmb*p3p4+2*fmc2-2*p1p4
9809      . )*(2*ffmcfmb*p2p3-fmb2-2*fmc*hbcm+fmc2+hbcm2-2*p2p3))
9810       b(4)=ccc*(w8*(16*(p3p7*p2p5)*(fmc-hbcm)+8*(p5p7*p2p3)*(-fmb-fmc
9811      . +hbcm)-8*fmb*p2p3*p3p7)+w5*(16*(p3p7*p1p4)*(fmc-hbcm)+8*p4p7*(
9812      . fmb2*hbcm+2*fmc*hbcm2-fmc2*hbcm-hbcm3)+8*(p5p7*p3p4)*(-fmb-fmc
9813      . +hbcm)+8*(p3p7*p3p4)*(-fmb-2*fmc+2*hbcm)+8*(p5p7*p1p3)*(fmb+
9814      . fmc-hbcm)+8*(p3p7*p1p3)*(fmb+2*fmc-2*hbcm)+16*p5p7*(-fmb*fmc*
9815      . hbcm+fmc*hbcm2-fmc2*hbcm)+8*p3p7*(-2*fmb*fmc*hbcm+fmb*fmc2+fmc
9816      . *hbcm2-fmc3)+16*(-hbcm*p1p2*p5p7+hbcm*p2p4*p5p7-hbcm*p2p5*p4p7
9817      . ))+(4*p3p7*(8*fb4*fmb+hbcm)+32*p5p7*(fb3*fmc-fb3*hbcm+fb4*fmb)
9818      . ))
9819       ans2=(4*p7p8*(-8*fb3*fmb*fmc+8*fb3*fmc*hbcm-8*fb3*fmc2-8*fb4*
9820      . fmb*fmc-8*fb4*fmb2-8*fb4*fmc*hbcm+8*fb4*hbcm2-fmb*hbcm-fmc*
9821      . hbcm+2*hbcm2)+64*(fb4*p2p5*p7p8-fb4*p2p8*p5p7))
9822       ans1=w8*(16*(p5p7*p2p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p7p8*p2p5
9823      . )*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p3p7*p2p8)*(-fmb*fmc+2*fmb*
9824      . hbcm+2*fmc*hbcm-fmc2-hbcm2)+8*(p7p8*p2p3)*(2*fmb*fmc-2*fmb*
9825      . hbcm+fmb2-2*fmc*hbcm+fmc2+hbcm2)+16*(-p2p3*p2p5*p7p8+p2p3*p2p8
9826      . *p5p7))+w5*(16*(p5p8*p3p7)*(-fmc*hbcm+fmc2)+16*(p3p7*p2p8)*(
9827      . fmc*hbcm-fmc2)+16*(p5p7*p4p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(
9828      . p5p8*p4p7)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p4p7*p2p8)*(-fmb*hbcm
9829      . -fmc*hbcm+hbcm2)+16*(p5p7*p1p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(
9830      . p7p8*p1p4)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*p7p8*(2*fmb*fmc2*hbcm+
9831      . fmb2*fmc*hbcm-fmc*hbcm3+fmc3*hbcm)+8*(p4p8*p3p7)*(fmb*fmc-2*
9832      . fmb*hbcm-2*fmc*hbcm+fmc2+hbcm2)+8*(p7p8*p3p4)*(2*fmb*fmc+fmb2+
9833      . fmc2-hbcm2)+8*(p3p7*p1p8)*(-fmb*fmc+2*fmb*hbcm+2*fmc*hbcm-fmc2
9834      . -hbcm2)+8*(p7p8*p1p3)*(-2*fmb*fmc-fmb2-fmc2+hbcm2)+16*(-fmc*
9835      . hbcm*p2p5*p7p8+fmc*hbcm*p2p8*p5p7+p1p3*p2p5*p7p8-p1p3*p2p8*
9836      . p5p7-p2p5*p3p4*p7p8+p2p8*p3p4*p5p7))+ans2
9837       ans=ccc*ans1
9838       b(5)=ans
9839       ans2=(4*p3p7*(8*fb4*fmb*fmc+8*fb4*fmb2+fmb*hbcm+fmc*hbcm)+64*(
9840      . fb4*p2p3*p5p7-fb4*p2p5*p3p7))
9841       ans1=w8*(16*(p3p7*p2p5)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p5p7*p2p3
9842      . )*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p3p7*p2p3)*(-fmb*fmc-fmb2)+16*
9843      . (p2p3*p2p5*p3p7-p2p3s2*p5p7))+w5*(16*(p3p7*p3p5)*(fmc*hbcm-
9844      . fmc2)+16*(p3p7*p2p3)*(-fmc*hbcm+fmc2)+16*(p4p7*p3p5)*(-fmb*
9845      . hbcm-fmc*hbcm+hbcm2)+16*(p5p7*p3p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+
9846      . 16*(p4p7*p2p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p3p7*p1p4)*(fmb*
9847      . hbcm+fmc*hbcm-hbcm2)+16*(p5p7*p1p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)
9848      . +8*(p3p7*p3p4)*(-3*fmb*fmc+2*fmb*hbcm-fmb2+2*fmc*hbcm-2*fmc2)+
9849      . 8*(p3p7*p1p3)*(3*fmb*fmc-2*fmb*hbcm+fmb2-2*fmc*hbcm+2*fmc2)+8*
9850      . p5p7*(fmb*fmc*hbcm2-fmc*hbcm3+fmc2*hbcm2)+8*p4p7*(2*fmb*fmc*
9851      . hbcm2-2*fmb*hbcm3+fmb2*hbcm2-2*fmc*hbcm3+fmc2*hbcm2+hbcm4)+8*
9852      . p3p7*(fmb*fmc*hbcm2-2*fmb*fmc2*hbcm-fmb2*fmc*hbcm+fmc*hbcm3-
9853      . fmc3*hbcm)+16*(-fmc*hbcm*p2p3*p5p7+fmc*hbcm*p2p5*p3p7-hbcm2*
9854      . p1p2*p5p7+hbcm2*p2p4*p5p7-hbcm2*p2p5*p4p7+p1p3*p2p3*p5p7-p1p3*
9855      . p2p5*p3p7-p2p3*p3p4*p5p7+p2p5*p3p4*p3p7))+ans2
9856       ans=ccc*ans1
9857       b(6)=ans
9858       ans4=16*(p5p8*p3p7)*(-fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+16*(
9859      . p7p8*p3p5)*(fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+16*(p3p7*p2p8)*(
9860      . fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+16*(p7p8*p2p3)*(-fmb*fmc*
9861      . hbcm+fmc*hbcm2-fmc2*hbcm)+16*(fmc*hbcm2*p2p5*p7p8-fmc*hbcm2*
9862      . p2p8*p5p7-hbcm*p1p3*p2p5*p7p8+hbcm*p1p3*p2p8*p5p7-hbcm*p1p8*
9863      . p2p3*p5p7+hbcm*p1p8*p2p5*p3p7+hbcm*p2p3*p4p8*p5p7+hbcm*p2p5*
9864      . p3p4*p7p8-hbcm*p2p5*p3p7*p4p8-hbcm*p2p8*p3p4*p5p7)
9865       ans3=16*(p4p8*p3p7*p3p5)*(fmc-hbcm)+16*(p4p8*p3p7*p2p3)*(-fmc+
9866      . hbcm)+16*(p3p7*p3p5*p1p8)*(-fmc+hbcm)+16*(p3p7*p2p3*p1p8)*(fmc
9867      . -hbcm)+16*(p5p8*p3p7*p3p4)*(-fmb-2*fmc+2*hbcm)+16*(p7p8*p3p5*
9868      . p3p4)*(fmb+fmc-hbcm)+16*(p3p7*p3p4*p2p8)*(fmb+2*fmc-2*hbcm)+16
9869      . *(p7p8*p3p4*p2p3)*(-fmb-fmc+hbcm)+16*(p5p8*p3p7*p1p3)*(fmb+2*
9870      . fmc-2*hbcm)+16*(p7p8*p3p5*p1p3)*(-fmb-fmc+hbcm)+16*(p3p7*p2p8*
9871      . p1p3)*(-fmb-2*fmc+2*hbcm)+16*(p7p8*p2p3*p1p3)*(fmb+fmc-hbcm)+8
9872      . *(p5p7*p4p8)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+16*(p5p8*p4p7)*(fmb*
9873      . hbcm2+fmc*hbcm2-hbcm3)+8*(p4p8*p3p7)*(-fmb*hbcm2+fmb2*hbcm+2*
9874      . fmc*hbcm2-fmc2*hbcm-hbcm3)+8*(p7p8*p3p4)*(2*fmb*hbcm2-fmb2*
9875      . hbcm+fmc2*hbcm-hbcm3)+16*(p4p7*p2p8)*(-fmb*hbcm2-fmc*hbcm2+
9876      . hbcm3)+8*(p5p7*p1p8)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+8*(p3p7*p1p8)
9877      . *(fmb*hbcm2-fmb2*hbcm-2*fmc*hbcm2+fmc2*hbcm+hbcm3)+16*(p7p8*
9878      . p1p4)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+8*(p7p8*p1p3)*(-2*fmb*hbcm2
9879      . +fmb2*hbcm-fmc2*hbcm+hbcm3)+8*p7p8*(2*fmb*fmc*hbcm3-fmb2*fmc*
9880      . hbcm2-fmc*hbcm4+fmc3*hbcm2)+ans4
9881       ans2=w5*ans3
9882       ans5=(8*(p5p8*p3p7)*(8*fb4*fmb+hbcm)+8*(p3p7*p2p8)*(-8*fb4*fmb-
9883      . hbcm)+8*(p7p8*p3p5)*(-8*fb3*fmc+8*fb3*hbcm-8*fb4*fmb-hbcm)+8*(
9884      . p7p8*p2p3)*(8*fb3*fmc-8*fb3*hbcm+8*fb4*fmb+hbcm)+4*p7p8*(-8*
9885      . fb3*fmb*fmc*hbcm+8*fb3*fmb2*hbcm-8*fb3*fmc*hbcm2+8*fb3*hbcm3+8
9886      . *fb4*fmb*fmc*hbcm-16*fb4*fmb*hbcm2+8*fb4*fmc*hbcm2-8*fb4*fmc2*
9887      . hbcm-2*fmb*hbcm2+2*fmc*hbcm2-hbcm3)+64*(-fb3*hbcm*p2p5*p7p8+
9888      . fb3*hbcm*p2p8*p5p7))
9889       ans1=w8*(16*(p3p7*p3p5*p2p8)*(-fmc+hbcm)+8*(p7p8*p2p3)*(fmb2*
9890      . hbcm+2*fmc*hbcm2-fmc2*hbcm-hbcm3)+16*p7p8*(-fmb*p2p3s2-fmc*
9891      . p2p3s2+hbcm*p2p3s2)+16*(p7p8*p3p5*p2p3)*(fmb+fmc-hbcm)+16*(
9892      . p3p7*p2p8*p2p3)*(fmb+fmc-hbcm)+8*(p5p7*p2p8)*(fmb*hbcm2+fmc*
9893      . hbcm2-hbcm3)+8*(p3p7*p2p8)*(fmb*hbcm2-fmb2*hbcm-2*fmc*hbcm2+
9894      . fmc2*hbcm+hbcm3)+16*(p7p8*p2p5)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+
9895      . 16*(-fmb*p2p3*p3p7*p5p8-hbcm*p2p3*p2p5*p7p8+hbcm*p2p5*p2p8*
9896      . p3p7))+ans2+ans5
9897       ans=ccc*ans1
9898       b(7)=ans
9899       b(13)=ccc*(w8*(8*(p2p8*p2p3)*(-2*fmc+hbcm)+8*(p5p8*p2p3)*(fmb+
9900      . fmc-hbcm)+4*p2p8*(-fmb*hbcm2+2*fmb2*hbcm+3*fmc*hbcm2-2*fmc2*
9901      . hbcm-hbcm3)-8*hbcm*p2p5*p2p8)+w5*(8*(p5p8*p3p4)*(fmb+fmc-hbcm)
9902      . +8*(p5p8*p1p3)*(-fmb-fmc+hbcm)+4*p4p8*(fmb*hbcm2-2*fmb2*hbcm-3
9903      . *fmc*hbcm2+2*fmc2*hbcm+hbcm3)+4*p1p8*(-fmb*hbcm2+2*fmb2*hbcm+3
9904      . *fmc*hbcm2-2*fmc2*hbcm-hbcm3)+16*p5p8*(fmb*fmc*hbcm-fmc*hbcm2+
9905      . fmc2*hbcm)+8*p2p8*(-fmb*fmc*hbcm+fmc*hbcm2-3*fmc2*hbcm)+8*(2*
9906      . fmc*p1p3*p2p8-2*fmc*p2p8*p3p4-2*hbcm*p1p2*p2p8+2*hbcm*p1p2*
9907      . p5p8+2*hbcm*p1p4*p2p8-hbcm*p1p8*p2p3-3*hbcm*p1p8*p2p5+hbcm*
9908      . p2p3*p4p8+2*hbcm*p2p4*p2p8-2*hbcm*p2p4*p5p8+3*hbcm*p2p5*p4p8))
9909      . +(32*p5p8*(-fb3*fmc+fb3*hbcm-fb4*fmb)+32*p2p8*(fb3*fmc+fb4*fmc
9910      . )))
9911       b(14)=ccc*(w8*(16*p2p5*(fmb*hbcm+fmc*hbcm-hbcm2)+4*p2p3*(-2*fmb
9912      . *fmc+3*fmb*hbcm-fmb2+3*fmc*hbcm-fmc2-2*hbcm2)+8*(2*p2p3*p2p5+
9913      . p2p3s2))+w5*(8*p2p4*(fmb*hbcm+fmc*hbcm-hbcm2)+16*p1p4*(fmb*
9914      . hbcm+fmc*hbcm-hbcm2)+8*p1p2*(-fmb*hbcm-fmc*hbcm+hbcm2)+4*p3p4*
9915      . (-2*fmb*fmc-fmb*hbcm-fmb2-fmc*hbcm-fmc2+2*hbcm2)+4*p1p3*(2*fmb
9916      . *fmc+fmb*hbcm+fmb2+fmc*hbcm+fmc2-2*hbcm2)+4*(fmb*fmc*hbcm2-4*
9917      . fmb*fmc2*hbcm-2*fmb2*fmc*hbcm+2*fmc*hbcm*p2p3+6*fmc*hbcm*p2p5+
9918      . fmc*hbcm3+fmc2*hbcm2-2*fmc3*hbcm-2*p1p3*p2p3-4*p1p3*p2p5+2*
9919      . p2p3*p3p4+4*p2p5*p3p4))+16*(fb3*fmb*fmc-fb3*fmb*hbcm-fb3*fmc*
9920      . hbcm+fb3*fmc2+fb4*fmb*fmc+fb4*fmb2-2*fb4*p2p3-4*fb4*p2p5))
9921       ans2=w5*(16*(p4p8*p3p5)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p5p8*p3p4
9922      . )*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p3p4*p2p8)*(fmb*hbcm+fmc*hbcm-
9923      . 3*hbcm2)+8*(p4p8*p2p3)*(-fmb*hbcm-fmc*hbcm+2*hbcm2)+16*(p3p5*
9924      . p1p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p2p3*p1p8)*(fmb*hbcm+fmc*
9925      . hbcm-2*hbcm2)+16*(p5p8*p1p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p2p8
9926      . *p1p3)*(-fmb*hbcm-fmc*hbcm+3*hbcm2)+8*p5p8*(-fmb*fmc*hbcm2+fmc
9927      . *hbcm3-fmc2*hbcm2)+4*p4p8*(-2*fmb*fmc*hbcm2+3*fmb*hbcm3-fmb2*
9928      . hbcm2+3*fmc*hbcm3-fmc2*hbcm2-2*hbcm4)+4*p1p8*(2*fmb*fmc*hbcm2-
9929      . 3*fmb*hbcm3+fmb2*hbcm2-3*fmc*hbcm3+fmc2*hbcm2+2*hbcm4)+16*(fmc
9930      . *hbcm*p2p3*p5p8-fmc*hbcm*p2p8*p3p5-fmc*hbcm3*p2p8-hbcm2*p1p2*
9931      . p2p8+hbcm2*p1p2*p5p8+hbcm2*p1p4*p2p8-hbcm2*p1p8*p2p5+hbcm2*
9932      . p2p4*p2p8-hbcm2*p2p4*p5p8+hbcm2*p2p5*p4p8-p1p3*p2p3*p5p8+p1p3*
9933      . p2p8*p3p5+p2p3*p3p4*p5p8-p2p8*p3p4*p3p5))+(32*p2p8*(fb3*fmb*
9934      . hbcm+fb3*fmc*hbcm+fb4*hbcm2)+64*(-fb4*p2p3*p5p8+fb4*p2p8*p3p5)
9935      . )
9936       ans1=w8*(16*(p3p5*p2p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p5p8*
9937      . p2p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+4*p2p8*(2*fmb*fmc*hbcm2-3*fmb*
9938      . hbcm3+fmb2*hbcm2-3*fmc*hbcm3+fmc2*hbcm2+2*hbcm4)+8*(-hbcm2*
9939      . p2p3*p2p8-2*p2p3*p2p8*p3p5+2*p2p3s2*p5p8))+ans2
9940       ans=ccc*ans1
9941       b(15)=ans
9942       ans=ccc*(w8*(8*(p3p5*p2p3)*(-fmb-fmc+hbcm)+8*p2p5*(fmb*hbcm2+
9943      . fmc*hbcm2-hbcm3)+4*p2p3*(fmb*hbcm2-2*fmb2*hbcm-3*fmc*hbcm2+2*
9944      . fmc2*hbcm+hbcm3)+8*(2*fmc*p2p3s2+hbcm*p2p3*p2p5-hbcm*p2p3s2))+
9945      . w5*(8*(p3p4*p2p3)*(2*fmc-hbcm)+8*(p2p3*p1p3)*(-2*fmc+hbcm)+8*(
9946      . p3p5*p3p4)*(-fmb-fmc+hbcm)+8*(p3p5*p1p3)*(fmb+fmc-hbcm)+4*p3p4
9947      . *(-3*fmb*hbcm2+2*fmb2*hbcm+fmc*hbcm2-2*fmc2*hbcm+hbcm3)+8*p2p4
9948      . *(fmb*hbcm2-fmc*hbcm2+hbcm3)+8*p1p4*(fmb*hbcm2+fmc*hbcm2-hbcm3
9949      . )+4*p1p3*(3*fmb*hbcm2-2*fmb2*hbcm-fmc*hbcm2+2*fmc2*hbcm-hbcm3)
9950      . +8*p1p2*(-fmb*hbcm2+fmc*hbcm2-hbcm3)+16*p3p5*(-fmb*fmc*hbcm+
9951      . fmc*hbcm2-fmc2*hbcm)+8*p2p3*(fmb*fmc*hbcm-2*fmc*hbcm2+3*fmc2*
9952      . hbcm)+4*(-3*fmb*fmc*hbcm3+fmb2*fmc*hbcm2-4*fmc*hbcm2*p2p5+2*
9953      . fmc*hbcm4-fmc2*hbcm3-fmc3*hbcm2+4*hbcm*p1p2*p2p3-4*hbcm*p1p2*
9954      . p3p5+6*hbcm*p1p3*p2p5-4*hbcm*p1p4*p2p3-4*hbcm*p2p3*p2p4+4*hbcm
9955      . *p2p4*p3p5-6*hbcm*p2p5*p3p4))+(32*p3p5*(fb3*fmc-fb3*hbcm+fb4*
9956      . fmb)+32*p2p3*(-fb3*fmc+fb3*hbcm-fb4*fmc)+16*(fb3*fmc*hbcm2+2*
9957      . fb3*hbcm*p2p5-fb3*hbcm3+fb4*fmb*hbcm2)))
9958       b(16)=ans
9959       b(19)=ccc*(w8*(8*p5p8*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+4*p2p8*(fmb*
9960      . hbcm2+fmc*hbcm2)+8*(-hbcm*p2p3*p5p8+hbcm*p2p8*p3p5))+w5*(4*
9961      . p4p8*(-fmb*hbcm2+3*fmc*hbcm2-4*hbcm3)+4*p1p8*(fmb*hbcm2-3*fmc*
9962      . hbcm2+4*hbcm3)+8*(-fmc*hbcm2*p2p8+2*fmc*hbcm2*p5p8+2*hbcm*p1p3
9963      . *p2p8-3*hbcm*p1p3*p5p8-2*hbcm*p1p8*p2p3+3*hbcm*p1p8*p3p5+2*
9964      . hbcm*p2p3*p4p8-2*hbcm*p2p8*p3p4+3*hbcm*p3p4*p5p8-3*hbcm*p3p5*
9965      . p4p8))-32*fb3*hbcm*p5p8)
9966       b(20)=ccc*(w8*(16*p5p8*(-fmb*hbcm-fmc*hbcm+hbcm2)+4*p2p8*(3*fmb
9967      . *hbcm+3*fmc*hbcm-2*hbcm2)+8*(p2p3*p2p8-2*p2p3*p5p8))+w5*(4*
9968      . p4p8*(-fmb*hbcm-fmc*hbcm)+4*p1p8*(fmb*hbcm+fmc*hbcm)+8*(2*fmc*
9969      . hbcm*p2p8-3*fmc*hbcm*p5p8-p1p3*p2p8+2*p1p3*p5p8+p2p8*p3p4-2*
9970      . p3p4*p5p8))+32*(-fb4*p2p8+2*fb4*p5p8))
9971       b(21)=ccc*(w5*(8*(p4p8*p3p7)*(fmc-2*hbcm)+8*(p3p7*p1p8)*(-fmc+2
9972      . *hbcm)+8*(-2*fmc*p1p3*p7p8+2*fmc*p3p4*p7p8+2*fmc2*hbcm*p7p8-2*
9973      . hbcm*p1p4*p7p8+3*hbcm*p1p8*p5p7-2*hbcm*p2p8*p4p7+2*hbcm*p4p7*
9974      . p5p8-3*hbcm*p4p8*p5p7))+w8*(16*(p5p8*p3p7)*(-fmc+hbcm)+16*(
9975      . p7p8*p2p3)*(fmc-hbcm)+8*p7p8*(-fmb2*hbcm-2*fmc*hbcm2+fmc2*hbcm
9976      . +hbcm3)+8*(fmc*p2p8*p3p7+hbcm*p2p8*p5p7))+4*p7p8*(-8*fb3*fmc-8
9977      . *fb4*fmc-hbcm))
9978       b(22)=ccc*(w8*(4*p2p3*(-fmb+3*fmc-2*hbcm)+4*(fmb*hbcm2-2*fmb2*
9979      . hbcm-3*fmc*hbcm2+2*fmc2*hbcm+hbcm3))+w5*(4*p3p4*(-fmb+3*fmc+2*
9980      . hbcm)+4*p1p3*(fmb-3*fmc-2*hbcm)+4*(-fmb*fmc*hbcm+5*fmc2*hbcm+2
9981      . *hbcm*p1p2-6*hbcm*p1p4-2*hbcm*p2p4))+16*(-fb3*fmc+fb4*fmb-2*
9982      . fb4*fmc))
9983       b(23)=ccc*(w5*(8*p3p7*(-2*fmc*hbcm+fmc2)+8*(-3*fmc*hbcm*p5p7+
9984      . p1p3*p3p7+2*p1p3*p5p7-p3p4*p3p7-2*p3p4*p5p7))+w8*(16*p5p7*(-
9985      . fmb*hbcm-fmc*hbcm+hbcm2)+8*p3p7*(fmb*fmc-2*fmb*hbcm-2*fmc*hbcm
9986      . +fmc2+hbcm2)+8*(-p2p3*p3p7-2*p2p3*p5p7))+32*(fb4*p3p7+2*fb4*
9987      . p5p7))
9988       b(24)=ccc*(w8*(16*p3p5*(fmb*hbcm+fmc*hbcm-hbcm2)+4*p2p3*(-3*fmb
9989      . *hbcm-3*fmc*hbcm+4*hbcm2)+4*(-2*fmb*fmc*hbcm2+3*fmb*hbcm3-fmb2
9990      . *hbcm2+3*fmc*hbcm3-fmc2*hbcm2-2*hbcm4+4*p2p3*p3p5-2*p2p3s2))+
9991      . w5*(4*p3p4*(fmb*hbcm+fmc*hbcm+4*hbcm2)+4*p1p3*(-fmb*hbcm-fmc*
9992      . hbcm-4*hbcm2)+4*(fmb*fmc*hbcm2-4*fmc*hbcm*p2p3+6*fmc*hbcm*p3p5
9993      . +4*fmc*hbcm3+fmc2*hbcm2+2*hbcm2*p1p2-4*hbcm2*p1p4-2*hbcm2*p2p4
9994      . +2*p1p3*p2p3-4*p1p3*p3p5-2*p2p3*p3p4+4*p3p4*p3p5))+16*(-fb3*
9995      . fmb*hbcm-fb3*fmc*hbcm-2*fb4*hbcm2+2*fb4*p2p3-4*fb4*p3p5))
9996       b(25)=ccc*(w5*(8*(p3p7*p3p4)*(-3*fmc+2*hbcm)+8*(p3p7*p1p3)*(3*
9997      . fmc-2*hbcm)+16*p4p7*(fmc*hbcm2-hbcm3)+8*p3p7*(fmc*hbcm2-2*fmc2
9998      . *hbcm)+8*(2*fmc*hbcm2*p5p7-3*hbcm*p1p3*p5p7+2*hbcm*p1p4*p3p7+2
9999      . *hbcm*p2p3*p4p7+3*hbcm*p3p4*p5p7-2*hbcm*p3p5*p4p7))+w8*(16*(
10000      . p3p7*p3p5)*(fmc-hbcm)+8*(p3p7*p2p3)*(-3*fmc+2*hbcm)+8*p5p7*(-
10001      . fmb*hbcm2-fmc*hbcm2+hbcm3)+8*p3p7*(-fmb*hbcm2+fmb2*hbcm+2*fmc*
10002      . hbcm2-fmc2*hbcm-hbcm3)-8*hbcm*p2p3*p5p7)+(4*p3p7*(8*fb4*fmc+
10003      . hbcm)-32*fb3*hbcm*p5p7))
10004       ans=ccc*(8*w5*(-2*fmc*hbcm*p2p3*p7p8+2*fmc*hbcm*p2p8*p3p7+2*fmc
10005      . *hbcm*p3p5*p7p8-2*fmc*hbcm*p3p7*p5p8+2*fmc*hbcm3*p7p8-2*hbcm2*
10006      . p1p3*p7p8-2*hbcm2*p1p4*p7p8+hbcm2*p1p8*p3p7+2*hbcm2*p1p8*p5p7-
10007      . 2*hbcm2*p2p8*p4p7+2*hbcm2*p3p4*p7p8-hbcm2*p3p7*p4p8+2*hbcm2*
10008      . p4p7*p5p8-2*hbcm2*p4p8*p5p7+2*p1p3*p2p3*p7p8-2*p1p3*p2p8*p3p7-
10009      . 2*p1p3*p3p5*p7p8+2*p1p3*p3p7*p5p8-2*p2p3*p3p4*p7p8+2*p2p8*p3p4
10010      . *p3p7+2*p3p4*p3p5*p7p8-2*p3p4*p3p7*p5p8)+w8*(16*(p5p8*p3p7)*(-
10011      . fmb*hbcm-fmc*hbcm+hbcm2)+16*(p7p8*p3p5)*(fmb*hbcm+fmc*hbcm-
10012      . hbcm2)+8*(p3p7*p2p8)*(2*fmb*hbcm+2*fmc*hbcm-hbcm2)+16*(p7p8*
10013      . p2p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*p7p8*(-2*fmb*fmc*hbcm2+2*
10014      . fmb*hbcm3-fmb2*hbcm2+2*fmc*hbcm3-fmc2*hbcm2-hbcm4-2*p2p3s2)+16
10015      . *(p2p3*p2p8*p3p7+p2p3*p3p5*p7p8-p2p3*p3p7*p5p8))+(8*p7p8*(-4*
10016      . fb3*fmc*hbcm+4*fb4*fmc*hbcm-8*fb4*hbcm2-hbcm2)+64*(fb4*p2p3*
10017      . p7p8-fb4*p2p8*p3p7-fb4*p3p5*p7p8+fb4*p3p7*p5p8)))
10018       b(27)=ans
10019       do 200 n=1,32
10020          c(n,2)=c(n,2)+0.09245003270420485d0*b(n)
10021          c(n,3)=c(n,3)-0.02077659977796572d0*b(n)
10022 200   continue
10023       return
10024         end
10025
10026       subroutine amp4_3p1(cc)
10027       implicit double precision(a-h,o-z)
10028       implicit integer (i-n)
10029       dimension b(32)
10030 #include "inclcon.h"
10031 #include "inclppp.h"
10032 #include "inclamp.h"
10033       do 100 n=1,32
10034          b(n)=0.0d0
10035 100   continue
10036       ccc=cc/((4*ffmcfmb*p1p4*p2p3)*(-2*ffmcfmb*p3p5+fmb2-2*fmc*hbcm+
10037      . fmc2+hbcm2+2*p3p5))
10038       b(4)=ccc*(8*w7*(-fmc*p2p3*p3p7-2*fmc*p2p5*p3p7)+w2*(8*p3p7*(fmb
10039      . *fmc2-fmb2*fmc)+8*(-fmc*p3p5*p3p7-2*hbcm*p2p3*p5p7+2*hbcm*p2p5
10040      . *p3p7))+(32*p5p7*(-fb3*fmc-fb4*fmc)+4*p3p7*(-8*fb3*fmc-hbcm)))
10041       b(5)=ccc*(w7*(8*(p3p7*p2p8)*(fmb*fmc+fmc2)+16*(p2p3*p2p5*p7p8-
10042      . p2p3*p2p8*p5p7))+w2*(16*(p5p7*p2p8)*(-fmb*hbcm+fmc*hbcm-hbcm2)
10043      . +16*(p7p8*p2p5)*(fmb*hbcm-fmc*hbcm+hbcm2)+8*(p5p8*p3p7)*(-fmb*
10044      . fmc+fmc2)+16*(p3p7*p2p8)*(fmb*fmc-fmb*hbcm)+16*(fmb*hbcm*p2p3*
10045      . p7p8+p2p5*p3p5*p7p8-p2p8*p3p5*p5p7))+(4*p7p8*(8*fb3*fmc*hbcm+8
10046      . *fb4*fmc*hbcm+fmb*hbcm+fmc*hbcm-2*hbcm2)+64*(fb4*p2p5*p7p8-fb4
10047      . *p2p8*p5p7)))
10048       b(6)=ccc*(w7*(8*(p3p7*p2p3)*(-fmb*fmc-fmc2)+16*(-p2p3*p2p5*p3p7
10049      . +p2p3s2*p5p7))+w2*(16*(p3p7*p2p5)*(-fmb*hbcm+fmc*hbcm)+16*(
10050      . p5p7*p2p3)*(fmb*hbcm-fmc*hbcm)+8*(p3p7*p3p5)*(fmb*fmc-fmc2)+8*
10051      . (fmb*fmc*hbcm2*p3p7-2*fmb*fmc*p2p3*p3p7+2*p2p3*p3p5*p5p7-2*
10052      . p2p5*p3p5*p3p7))+(4*p3p7*(-8*fb3*fmb*fmc-8*fb3*fmc2-fmb*hbcm-
10053      . fmc*hbcm)+64*(fb4*p2p3*p5p7-fb4*p2p5*p3p7)))
10054       b(7)=ccc*(8*w7*(fmc*hbcm2*p2p8*p3p7-2*fmc*p2p3*p3p7*p5p8+2*fmc*
10055      . p2p8*p3p5*p3p7)+w2*(16*(p5p7*p2p8)*(-fmc*hbcm2+hbcm3)+16*(p7p8
10056      . *p2p5)*(fmc*hbcm2-hbcm3)+16*(p3p7*p2p8)*(-fmb*fmc*hbcm+fmb2*
10057      . hbcm)+16*(p7p8*p2p3)*(fmb*fmc*hbcm-fmb2*hbcm)+8*(fmc*hbcm2*
10058      . p3p7*p5p8-2*fmc*p2p3*p3p7*p5p8+2*fmc*p2p8*p3p5*p3p7+4*hbcm*
10059      . p2p3*p2p5*p7p8-4*hbcm*p2p5*p2p8*p3p7))+(8*(p5p8*p3p7)*(-8*fb3*
10060      . fmc-hbcm)+8*(p3p7*p2p8)*(8*fb3*fmc+hbcm)+4*p7p8*(-8*fb3*fmb*
10061      . fmc*hbcm+8*fb3*fmc2*hbcm-8*fb4*fmb*fmc*hbcm+8*fb4*fmc2*hbcm+2*
10062      . fmb*hbcm2-2*fmc*hbcm2+hbcm3)+8*(-hbcm*p2p3*p7p8+hbcm*p3p5*p7p8
10063      . )))
10064       b(13)=ccc*(w7*(8*(p2p8*p2p3)*(-fmb+fmc)-8*hbcm*p2p5*p2p8)+w2*(8
10065      . *(p3p5*p2p8)*(-fmb+fmc-2*hbcm)+8*p2p8*(2*fmb*fmc*hbcm-fmb*
10066      . hbcm2-2*fmb2*hbcm)+8*(2*hbcm*p2p3*p5p8+2*hbcm*p2p5*p2p8+hbcm*
10067      . p2p5*p5p8))+(32*p5p8*(fb3*fmc+fb4*fmc)+32*p2p8*(-fb3*fmc-fb4*
10068      . fmb)))
10069       b(14)=ccc*(8*w7*(-2*p2p3*p2p5-p2p3s2)+w2*(8*p2p5*(-2*fmb*hbcm+
10070      . fmc*hbcm-hbcm2)+8*(-2*fmb*hbcm*p2p3-p2p3*p3p5-2*p2p5*p3p5))+16
10071      . *(-fb3*fmb*fmc-fb3*fmc2-fb4*fmb*fmc-fb4*fmc2-2*fb4*p2p3-4*fb4*
10072      . p2p5))
10073       b(15)=ccc*(8*w7*(hbcm2*p2p3*p2p8+2*p2p3*p2p8*p3p5-2*p2p3s2*p5p8
10074      . )+w2*(8*(p3p5*p2p8)*(2*fmb*hbcm-2*fmc*hbcm+hbcm2)+16*(p5p8*
10075      . p2p3)*(-fmb*hbcm+fmc*hbcm)+8*p2p8*(-fmb*fmc*hbcm2+2*fmb*hbcm3-
10076      . fmb2*hbcm2+2*p3p5s2)+16*(hbcm2*p2p5*p2p8-p2p3*p3p5*p5p8))+32*(
10077      . fb4*hbcm2*p2p8-2*fb4*p2p3*p5p8+2*fb4*p2p8*p3p5))
10078       b(16)=ccc*(8*w7*(fmb*p2p3s2-fmc*p2p3s2+hbcm*p2p3*p2p5)+w2*(8*(
10079      . p3p5*p2p3)*(fmb-fmc)+8*p2p5*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+16*
10080      . p2p3*(-fmb*fmc*hbcm+fmb2*hbcm)+8*(-2*hbcm*p2p3*p2p5-hbcm*p2p5*
10081      . p3p5))+(32*p3p5*(-fb3*fmc-fb4*fmc)+32*p2p3*(fb3*fmc+fb4*fmb)+
10082      . 16*(-fb3*fmc*hbcm2+2*fb3*hbcm*p2p5-fb4*fmc*hbcm2)))
10083       b(19)=ccc*(4*w7*(-2*hbcm*p2p3*p5p8+2*hbcm*p2p8*p3p5+hbcm3*p2p8)
10084      . +w2*(4*p5p8*(2*fmb*hbcm2+2*fmc*hbcm2-3*hbcm3)+8*(-fmb*hbcm2*
10085      . p2p8+hbcm*p2p3*p5p8-hbcm*p2p8*p3p5))+32*(fb3*hbcm*p2p8-fb3*
10086      . hbcm*p5p8))
10087       b(20)=ccc*(w7*(4*p2p8*(fmb*hbcm+fmc*hbcm)+8*(-p2p3*p2p8+2*p2p3*
10088      . p5p8))+w2*(4*p5p8*(3*fmb*hbcm-3*fmc*hbcm+2*hbcm2)+8*(-fmb*hbcm
10089      . *p2p8-p2p8*p3p5+2*p3p5*p5p8))+32*(-fb4*p2p8+2*fb4*p5p8))
10090       b(21)=ccc*(w7*(8*(p7p8*p2p3)*(fmb-fmc)+8*(-fmc*p2p8*p3p7+2*fmc*
10091      . p3p7*p5p8+hbcm*p2p8*p5p7))+w2*(8*(p5p8*p3p7)*(fmc-2*hbcm)+8*(
10092      . p7p8*p3p5)*(fmb-fmc+2*hbcm)+8*p7p8*(-2*fmb*fmc*hbcm+fmb*hbcm2+
10093      . 2*fmb2*hbcm)+8*(-2*hbcm*p2p5*p7p8-hbcm*p5p7*p5p8))+4*p7p8*(8*
10094      . fb4*fmb-8*fb4*fmc+hbcm))
10095       b(22)=ccc*(4*w7*p2p3*(2*fmb-2*fmc-hbcm)+w2*(4*p3p5*(2*fmb-2*fmc
10096      . +3*hbcm)+4*(-3*fmb*fmc*hbcm+2*fmb*hbcm2+3*fmb2*hbcm-2*hbcm*
10097      . p2p5))+16*(fb3*fmc-fb3*hbcm+2*fb4*fmb-fb4*fmc))
10098       b(23)=ccc*(w7*(8*p3p7*(-fmb*fmc-fmc2)+8*(p2p3*p3p7+2*p2p3*p5p7)
10099      . )+w2*(8*p5p7*(2*fmb*hbcm-fmc*hbcm+hbcm2)+8*p3p7*(-fmb*fmc+2*
10100      . fmb*hbcm)+8*(p3p5*p3p7+2*p3p5*p5p7))+32*(fb4*p3p7+2*fb4*p5p7))
10101       b(24)=ccc*(w7*(4*p2p3*(-fmb*hbcm-fmc*hbcm-2*hbcm2)+8*(-2*p2p3*
10102      . p3p5+p2p3s2))+w2*(4*p3p5*(-3*fmb*hbcm+3*fmc*hbcm-2*hbcm2)+4*(2
10103      . *fmb*fmc*hbcm2+2*fmb*hbcm*p2p3-3*fmb*hbcm3+2*fmb2*hbcm2-2*
10104      . hbcm2*p2p5+2*p2p3*p3p5-4*p3p5s2))+16*(-fb3*fmb*hbcm-fb3*fmc*
10105      . hbcm-2*fb4*hbcm2+2*fb4*p2p3-4*fb4*p3p5))
10106       b(25)=ccc*(w7*(8*(p3p7*p2p3)*(-fmb+2*fmc)+8*(-fmc*hbcm2*p3p7-2*
10107      . fmc*p3p5*p3p7-hbcm*p2p3*p5p7))+w2*(8*p5p7*(fmb*hbcm2+fmc*hbcm2
10108      . -hbcm3)+16*p3p7*(fmb*fmc*hbcm-fmb2*hbcm)+8*(-fmb*p3p5*p3p7+2*
10109      . hbcm*p2p5*p3p7+hbcm*p3p5*p5p7))+(4*p3p7*(-8*fb3*fmc-8*fb4*fmb+
10110      . 8*fb4*fmc-hbcm)-32*fb3*hbcm*p5p7))
10111       b(27)=ccc*(8*w7*(-hbcm2*p2p3*p7p8-2*p2p3*p2p8*p3p7-2*p2p3*p3p5*
10112      . p7p8+2*p2p3*p3p7*p5p8+2*p2p3s2*p7p8)+w2*(16*(p5p8*p3p7)*(fmb*
10113      . hbcm-fmc*hbcm)+8*(p7p8*p3p5)*(-2*fmb*hbcm+2*fmc*hbcm-hbcm2)+8*
10114      . p7p8*(fmb*fmc*hbcm2-2*fmb*hbcm3+fmb2*hbcm2-2*p3p5s2)+16*(fmb*
10115      . hbcm*p2p3*p7p8-fmb*hbcm*p2p8*p3p7-hbcm2*p2p5*p7p8+p2p3*p3p5*
10116      . p7p8-p2p8*p3p5*p3p7+p3p5*p3p7*p5p8))+(8*p7p8*(-4*fb3*fmc*hbcm-
10117      . 4*fb4*fmc*hbcm-4*fb4*hbcm2+hbcm2)+64*(fb4*p2p3*p7p8-fb4*p2p8*
10118      . p3p7-fb4*p3p5*p7p8+fb4*p3p7*p5p8)))
10119       do 200 n=1,32
10120          c(n,2)=c(n,2)+0.09245003270420485d0*b(n)
10121          c(n,3)=c(n,3)-0.02077659977796572d0*b(n)
10122 200   continue
10123       return
10124         end
10125
10126       subroutine amp36_3p1(cc)
10127       implicit double precision(a-h,o-z)
10128       implicit integer (i-n)
10129       dimension b(32)
10130 #include "inclcon.h"
10131 #include "inclppp.h"
10132 #include "inclamp.h"
10133       do 100 n=1,32
10134          b(n)=0.0d0
10135 100   continue
10136       ccc=cc/((-2*ffmcfmb*p3p5+fmb2-2*fmc*hbcm+fmc2+hbcm2+2*p3p5)*(-2
10137      . *ffmcfmb*p1p3+2*ffmcfmb*p3p4+2*fmc2-2*p1p4)*(2*ffmcfmb*p3p4+2*
10138      . fmc2))
10139       ans2=w5*(4*p4p6*(fmb2*hbcm-2*fmc*hbcm2-fmc2*hbcm+hbcm3)+4*(p5p6
10140      . *p3p4)*(fmb-fmc-hbcm)+4*(p5p6*p1p3)*(-fmb+fmc+hbcm)+4*p5p6*(
10141      . fmb*fmc*hbcm-fmc*hbcm2-fmc2*hbcm)+4*p3p6*(fmb*fmc*hbcm-fmb*
10142      . fmc2+fmb2*fmc-2*fmc2*hbcm)+4*(p3p6*p3p4)*(-ffmcfmb*fmb-ffmcfmb
10143      . *fmc+fmb-hbcm)+4*(p3p6*p1p3)*(ffmcfmb*fmb+ffmcfmb*fmc-fmb+hbcm
10144      . )+8*(-fmc*p1p2*p3p6+fmc*p1p3*p4p6-fmc*p1p5*p3p6+fmc*p2p3*p3p6+
10145      . fmc*p2p4*p3p6+2*fmc*p2p5*p3p6-fmc*p3p4*p4p6+fmc*p3p5*p3p6+fmc*
10146      . p3p6*p4p5-hbcm*p1p2*p4p6+hbcm*p1p4*p3p6+hbcm*p1p4*p4p6+hbcm*
10147      . p1p4*p5p6-hbcm*p1p5*p4p6+hbcm*p2p3*p4p6+hbcm*p2p4*p4p6+2*hbcm*
10148      . p2p5*p4p6+hbcm*p3p5*p4p6+hbcm*p4p5*p4p6))+(2*p5p6*(-4*fb3*fmc+
10149      . 8*fb3*hbcm-8*fb4*fmb+4*fb4*fmc-hbcm)+2*p3p6*(4*fb3*ffmcfmb*fmc
10150      . -12*fb3*fmc+8*fb3*hbcm+8*fb4*ffmcfmb*fmb-4*fb4*ffmcfmb*fmc-8*
10151      . fb4*fmb+4*fb4*fmc+fmb-6*hbcm)-24*hbcm*p4p6)
10152       ans1=w2*(4*(p5p6*p3p5)*(-fmb+fmc-hbcm)+4*p5p6*(fmb*fmc*hbcm-fmb
10153      . *hbcm2-fmb2*hbcm)+4*p3p6*(2*fmb*fmc*hbcm-fmb*fmc2-fmb*hbcm2+
10154      . fmb2*fmc-fmb2*hbcm)+4*(p3p6*p3p5)*(ffmcfmb*fmb+ffmcfmb*fmc-fmb
10155      . +2*fmc-hbcm)+8*(-fmc*p1p5*p3p6+fmc*p2p5*p3p6+fmc*p3p5*p4p6+fmc
10156      . *p3p6*p4p5-hbcm*p1p5*p4p6+hbcm*p2p5*p4p6+hbcm*p4p5*p4p6))+w1*(
10157      . 4*(p4p6*p3p4)*(-fmc+hbcm)+8*(p3p6*p1p4)*(-fmc+hbcm)+4*(p4p6*
10158      . p1p3)*(fmc-hbcm)+4*p4p6*(-fmc*hbcm2+fmc2*hbcm)+4*(p5p6*p3p4)*(
10159      . fmb-fmc-hbcm)+4*p5p6*(fmb*fmc*hbcm-fmc*hbcm2-fmc2*hbcm)+4*p3p6
10160      . *(fmb*fmc*hbcm-fmb*fmc2-fmc*hbcm2+fmc3)+4*(p3p6*p3p4)*(-
10161      . ffmcfmb*fmb-ffmcfmb*fmc+fmb+2*fmc-hbcm)+4*(-fmc*p2p3*p4p6+2*
10162      . fmc*p2p4*p3p6-fmc*p3p5*p4p6+2*fmc*p3p6*p4p5-hbcm*p1p2*p4p6+2*
10163      . hbcm*p1p4*p5p6-hbcm*p1p5*p4p6+hbcm*p2p4*p4p6+hbcm*p4p5*p4p6))+
10164      . ans2
10165       ans=ccc*ans1
10166       b(1)=ans
10167       ans4=8*(-fmc*hbcm*p1p2*p6p7+fmc*hbcm*p2p3*p6p7+fmc*hbcm*p2p4*
10168      . p6p7+fmc*hbcm*p5p6*p5p7+p1p2*p1p3*p6p7-p1p2*p3p4*p6p7+p1p3*
10169      . p1p4*p6p7-p1p3*p2p3*p6p7-p1p3*p2p4*p6p7-2*p1p3*p3p4*p6p7+3*
10170      . p1p3*p4p6*p4p7-2*p1p3*p4p6*p5p7-p1p3*p5p6*p5p7-p1p4*p3p4*p6p7+
10171      . p2p3*p3p4*p6p7+p2p4*p3p4*p6p7-3*p3p4*p4p6*p4p7+2*p3p4*p4p6*
10172      . p5p7+p3p4*p5p6*p5p7)
10173       ans3=8*(p5p7*p4p6)*(-2*fmb*hbcm+fmc*hbcm+hbcm2)+8*(p4p7*p4p6)*(
10174      . 2*fmb*hbcm-2*fmc*hbcm-hbcm2)+8*(p6p7*p1p4)*(-fmb*hbcm-2*fmc*
10175      . hbcm+hbcm2)+8*p6p7*(fmb*fmc2*hbcm+fmc3*hbcm+p1p3s2+p3p4s2)+8*(
10176      . p4p6*p3p7)*(4*fmb*fmc-2*fmb*hbcm-2*fmc*hbcm-2*fmc2+hbcm2)+8*(
10177      . p5p7*p3p6)*(-fmb*fmc+2*fmc*hbcm-fmc2)+8*(p4p7*p3p6)*(fmb*fmc-
10178      . fmc*hbcm-fmc2)+8*(p6p7*p3p4)*(fmb*fmc+fmc*hbcm+fmc2)+8*(p6p7*
10179      . p1p3)*(-fmb*fmc-fmc*hbcm-fmc2)+(p4p6*p3p7*p3p4)*(-32*ffmcfmb+8
10180      . )+(p5p7*p3p6*p3p4)*(-8*ffmcfmb+16)+(p4p7*p3p6*p3p4)*(-8*
10181      . ffmcfmb-8)+(p3p7*p3p6*p3p4)*(-24*ffmcfmb+8)+(p4p6*p3p7*p1p3)*(
10182      . 32*ffmcfmb-8)+(p5p7*p3p6*p1p3)*(8*ffmcfmb-16)+(p4p7*p3p6*p1p3)
10183      . *(8*ffmcfmb+8)+(p3p7*p3p6*p1p3)*(24*ffmcfmb-8)+8*(p3p7*p3p6)*(
10184      . 2*ffmcfmb*fmb*fmc-fmb*fmc+fmc*hbcm-3*fmc2)+ans4
10185       ans2=w5*ans3
10186       ans6=((p4p6*p3p7)*(128*fb4*ffmcfmb-32*fb4+16)+(p5p7*p3p6)*(32*
10187      . fb4*ffmcfmb-64*fb4+4)+(p4p7*p3p6)*(32*fb4*ffmcfmb+32*fb4+4)+(
10188      . p3p7*p3p6)*(96*fb4*ffmcfmb-32*fb4+12)+2*p6p7*(-4*fb3*fmb*fmc+4
10189      . *fb3*fmc*hbcm-4*fb3*fmc2-4*fb4*fmb*fmc-12*fb4*fmc*hbcm-4*fb4*
10190      . fmc2+3*fmb*hbcm+3*fmc*hbcm-3*hbcm2)+32*(fb4*p1p2*p6p7+fb4*p1p3
10191      . *p6p7+fb4*p1p4*p6p7-fb4*p2p3*p6p7-fb4*p2p4*p6p7-fb4*p3p4*p6p7+
10192      . 3*fb4*p4p6*p4p7-2*fb4*p4p6*p5p7-fb4*p5p6*p5p7))
10193       ans5=w2*(8*(p5p6*p4p7)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p5p7*p4p6)*
10194      . (-2*fmb*hbcm+fmc*hbcm-hbcm2)+8*(p6p7*p4p5)*(-fmb*hbcm-fmc*hbcm
10195      . +hbcm2)+8*(p5p7*p3p6)*(-fmb*hbcm+fmc*hbcm-hbcm2)+8*(p6p7*p2p5)
10196      . *(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p6p7*p1p5)*(fmb*hbcm+fmc*hbcm-
10197      . hbcm2)+8*(p5p6*p3p7)*(2*fmb*fmc-fmb*hbcm-3*fmc*hbcm+2*fmc2+
10198      . hbcm2)+16*(p4p6*p3p7)*(3*fmb*fmc-fmb*hbcm)+8*(p4p7*p3p6)*(2*
10199      . fmb*fmc+fmb*hbcm)+8*(p6p7*p3p5)*(-fmb*fmc-fmc2)+(p4p6*p3p7*
10200      . p3p5)*(32*ffmcfmb-8)+(p5p7*p3p6*p3p5)*(8*ffmcfmb-16)+(p4p7*
10201      . p3p6*p3p5)*(8*ffmcfmb+8)+(p3p7*p3p6*p3p5)*(24*ffmcfmb-8)+8*(
10202      . p3p7*p3p6)*(2*ffmcfmb*fmb*fmc+2*fmb*fmc-fmb*hbcm)+8*(-fmb*fmc*
10203      . hbcm2*p6p7+fmb*hbcm*p1p2*p6p7+fmb*hbcm*p1p3*p6p7+fmb*hbcm*p1p4
10204      . *p6p7-fmb*hbcm*p2p3*p6p7-fmb*hbcm*p2p4*p6p7-fmb*hbcm*p3p4*p6p7
10205      . +4*fmb*hbcm*p4p6*p4p7-fmb*hbcm*p5p6*p5p7+p1p2*p3p5*p6p7+p1p3*
10206      . p3p5*p6p7+p1p4*p3p5*p6p7-p2p3*p3p5*p6p7-p2p4*p3p5*p6p7-p3p4*
10207      . p3p5*p6p7+3*p3p5*p4p6*p4p7-2*p3p5*p4p6*p5p7-p3p5*p5p6*p5p7))+
10208      . ans6
10209       ans1=w1*(4*(p5p7*p4p6)*(-fmb*hbcm+5*fmc*hbcm+hbcm2)+8*(p6p7*
10210      . p1p4)*(-fmb*hbcm-2*fmc*hbcm+hbcm2)+8*p6p7*(fmb*fmc2*hbcm+fmc3*
10211      . hbcm+p3p4s2)+4*(p4p6*p3p7)*(3*fmb*fmc-fmb*hbcm-9*fmc2+hbcm2)+8
10212      . *(p4p7*p3p6)*(-fmb*fmc-3*fmc2)+8*(p6p7*p3p4)*(fmb*fmc+fmc*hbcm
10213      . +fmc2)+(p4p6*p3p7*p3p4)*(-32*ffmcfmb+8)+(p5p7*p3p6*p3p4)*(-8*
10214      . ffmcfmb+16)+(p4p7*p3p6*p3p4)*(-8*ffmcfmb-8)+(p3p7*p3p6*p3p4)*(
10215      . -24*ffmcfmb+8)+8*(p3p7*p3p6)*(-2*ffmcfmb*fmc2+fmc*hbcm-2*fmc2)
10216      . +8*(-fmc*hbcm*p1p2*p6p7-fmc*hbcm*p1p3*p6p7+fmc*hbcm*p2p3*p6p7+
10217      . fmc*hbcm*p2p4*p6p7+2*fmc*hbcm*p3p6*p5p7-4*fmc*hbcm*p4p6*p4p7+
10218      . fmc*hbcm*p5p6*p5p7-p1p2*p3p4*p6p7-p1p3*p3p4*p6p7-p1p4*p3p4*
10219      . p6p7+p2p3*p3p4*p6p7+p2p4*p3p4*p6p7-3*p3p4*p4p6*p4p7+2*p3p4*
10220      . p4p6*p5p7+p3p4*p5p6*p5p7))+ans2+ans5
10221       ans=ccc*ans1
10222       b(2)=ans
10223       ans4=8*(-fmc*hbcm2*p5p8*p6p7+2*fmc*p1p5*p3p6*p7p8-2*fmc*p2p5*
10224      . p3p6*p7p8+2*fmc*p2p8*p3p5*p6p7-2*fmc*p3p5*p5p8*p6p7-2*fmc*p3p6
10225      . *p4p5*p7p8+hbcm*p1p3*p5p8*p6p7+hbcm*p1p4*p5p8*p6p7-2*hbcm*p1p5
10226      . *p2p8*p6p7+2*hbcm*p1p5*p4p6*p7p8+2*hbcm*p1p5*p5p8*p6p7+2*hbcm*
10227      . p2p5*p2p8*p6p7-2*hbcm*p2p5*p4p6*p7p8-hbcm*p2p5*p5p8*p6p7+2*
10228      . hbcm*p2p8*p4p5*p6p7+2*hbcm*p2p8*p4p6*p5p7-2*hbcm*p2p8*p4p7*
10229      . p5p6-hbcm*p3p4*p5p8*p6p7-2*hbcm*p4p5*p4p6*p7p8-2*hbcm*p4p5*
10230      . p5p8*p6p7+4*hbcm*p4p6*p4p7*p5p8-hbcm*p4p6*p5p7*p5p8+2*hbcm*
10231      . p4p7*p5p6*p5p8-hbcm*p5p6*p5p7*p5p8)
10232       ans3=16*(p5p8*p5p6*p3p7)*(2*fmc-hbcm)+16*(p5p8*p4p6*p3p7)*(3*
10233      . fmc-hbcm)+8*(p5p8*p4p7*p3p6)*(2*fmc+hbcm)+16*(p5p6*p3p7*p2p8)*
10234      . (-2*fmc+hbcm)+16*(p5p7*p3p6*p2p8)*(2*fmc-hbcm)+8*(p6p8*p5p7*
10235      . p3p5)*(fmb-fmc+hbcm)+8*(p6p7*p4p8*p3p5)*(fmb-fmc+hbcm)+8*(p6p8
10236      . *p4p7*p3p5)*(-fmb+fmc-hbcm)+8*(p7p8*p4p6*p3p5)*(-fmb-fmc-hbcm)
10237      . +8*(p6p7*p3p5*p1p8)*(-fmb+fmc-hbcm)+8*(p6p8*p5p7)*(-fmb*fmc*
10238      . hbcm+fmb*hbcm2+fmb2*hbcm)+8*(p6p7*p4p8)*(-fmb*fmc*hbcm+fmb*
10239      . hbcm2+fmb2*hbcm)+8*(p6p8*p4p7)*(fmb*fmc*hbcm-fmb*hbcm2-fmb2*
10240      . hbcm)+8*(p7p8*p4p6)*(fmb*fmc*hbcm-fmb*hbcm2-fmb2*hbcm)+8*(p6p8
10241      . *p3p7)*(-3*fmb*fmc*hbcm+2*fmb*fmc2+fmb*hbcm2-2*fmb2*fmc+fmb2*
10242      . hbcm)+8*(p7p8*p3p6)*(-fmb*fmc*hbcm+fmb*fmc2-fmb2*fmc)+8*(p6p7*
10243      . p1p8)*(fmb*fmc*hbcm-fmb*hbcm2-fmb2*hbcm)+8*(p5p8*p3p7*p3p6)*(2
10244      . *ffmcfmb*fmc+2*fmc-hbcm)+8*(p6p8*p3p7*p3p5)*(-2*ffmcfmb*fmb+2*
10245      . ffmcfmb*fmc+fmb-3*fmc+hbcm)+8*(p7p8*p3p6*p3p5)*(-ffmcfmb*fmb-
10246      . ffmcfmb*fmc-fmc)+ans4
10247       ans2=w2*ans3
10248       ans7=8*(2*fmc*p1p8*p3p6*p4p7-2*fmc*p2p8*p3p4*p6p7+2*fmc*p2p8*
10249      . p3p6*p4p7+2*fmc*p3p4*p5p8*p6p7-2*fmc*p3p6*p4p7*p5p8-2*fmc2*
10250      . hbcm*p2p8*p6p7+2*fmc2*hbcm*p5p8*p6p7+hbcm*p1p3*p4p8*p6p7+2*
10251      . hbcm*p1p4*p1p8*p6p7+2*hbcm*p1p4*p2p8*p6p7+2*hbcm*p1p4*p4p7*
10252      . p6p8-hbcm*p1p4*p4p8*p6p7-2*hbcm*p1p4*p5p7*p6p8-2*hbcm*p1p4*
10253      . p5p8*p6p7+hbcm*p1p8*p4p6*p5p7+hbcm*p2p5*p4p8*p6p7+hbcm*p2p8*
10254      . p4p6*p5p7+hbcm*p3p6*p4p7*p4p8-2*hbcm*p3p6*p4p8*p5p7+2*hbcm*
10255      . p4p6*p4p7*p4p8-2*hbcm*p4p6*p4p8*p5p7-hbcm*p4p6*p5p7*p5p8-hbcm*
10256      . p4p8*p5p6*p5p7)
10257       ans6=8*(p5p8*p4p6*p3p7)*(3*fmc-hbcm)+8*(p4p8*p4p6*p3p7)*(5*fmc-
10258      . hbcm)+8*(p4p6*p3p7*p2p8)*(-3*fmc+hbcm)+8*(p4p6*p3p7*p1p8)*(-3*
10259      . fmc+hbcm)+16*(p6p8*p3p7*p1p4)*(2*fmc-hbcm)+8*(p6p8*p5p7*p3p4)*
10260      . (-fmb+fmc+hbcm)+8*(p6p7*p4p8*p3p4)*(-fmb+fmc)+8*(p6p8*p4p7*
10261      . p3p4)*(fmb-fmc-hbcm)+8*(p7p8*p4p6*p3p4)*(fmb+fmc-hbcm)+8*(p6p7
10262      . *p3p4*p1p8)*(fmb-fmc-hbcm)+8*(p7p8*p3p6)*(fmb*fmc2-fmc2*hbcm+
10263      . fmc3)+8*(p6p8*p5p7)*(-fmb*fmc*hbcm+fmc*hbcm2+fmc2*hbcm)+8*(
10264      . p6p7*p4p8)*(-fmb*fmc*hbcm+fmc2*hbcm)+8*(p6p8*p4p7)*(fmb*fmc*
10265      . hbcm-fmc*hbcm2-fmc2*hbcm)+8*(p7p8*p4p6)*(fmb*fmc*hbcm-fmc*
10266      . hbcm2+fmc2*hbcm)+8*(p6p8*p3p7)*(-fmb*fmc*hbcm+2*fmb*fmc2+fmc*
10267      . hbcm2-fmc2*hbcm-2*fmc3)+8*(p6p7*p1p8)*(fmb*fmc*hbcm-fmc*hbcm2-
10268      . fmc2*hbcm)+8*(p4p8*p3p7*p3p6)*(2*ffmcfmb*fmc+2*fmc-hbcm)+8*(
10269      . p6p8*p3p7*p3p4)*(2*ffmcfmb*fmb-2*ffmcfmb*fmc-fmb-fmc+hbcm)+8*(
10270      . p7p8*p3p6*p3p4)*(ffmcfmb*fmb+ffmcfmb*fmc-fmc)+ans7
10271       ans5=w1*ans6
10272       ans10=16*(p3p7*p3p6*p2p8)*(-2*ffmcfmb*fmc+fmc)+8*(p3p7*p3p6*
10273      . p1p8)*(-2*ffmcfmb*fmc+hbcm)+8*(p6p8*p3p7*p3p4)*(2*ffmcfmb*fmb-
10274      . 2*ffmcfmb*fmc-fmb-fmc+hbcm)+8*(p7p8*p3p6*p3p4)*(ffmcfmb*fmb+
10275      . ffmcfmb*fmc+fmc)+8*(p6p8*p3p7*p1p3)*(-2*ffmcfmb*fmb+2*ffmcfmb*
10276      . fmc+fmb+fmc-hbcm)+8*(p7p8*p3p6*p1p3)*(-ffmcfmb*fmb-ffmcfmb*fmc
10277      . -fmc)+8*(2*fmc*p1p3*p2p8*p6p7-2*fmc*p1p3*p5p8*p6p7-2*fmc*p1p4*
10278      . p3p6*p7p8-2*fmc*p2p5*p3p6*p7p8-2*fmc*p2p8*p3p4*p6p7-2*fmc*p2p8
10279      . *p3p6*p4p7+6*fmc*p2p8*p3p6*p5p7+2*fmc*p3p4*p5p8*p6p7+2*fmc*
10280      . p3p6*p4p7*p5p8-2*fmc*p3p6*p5p7*p5p8-2*fmc2*hbcm*p2p8*p6p7+2*
10281      . fmc2*hbcm*p5p8*p6p7+hbcm*p1p4*p1p8*p6p7+2*hbcm*p1p4*p2p8*p6p7-
10282      . 2*hbcm*p1p4*p4p6*p7p8+2*hbcm*p1p4*p4p7*p6p8-hbcm*p1p4*p4p8*
10283      . p6p7-2*hbcm*p1p4*p5p7*p6p8-2*hbcm*p1p4*p5p8*p6p7-hbcm*p1p8*
10284      . p2p5*p6p7-hbcm*p1p8*p3p6*p4p7-2*hbcm*p1p8*p4p6*p4p7+5*hbcm*
10285      . p1p8*p4p6*p5p7+hbcm*p1p8*p5p6*p5p7-2*hbcm*p2p5*p4p6*p7p8+hbcm*
10286      . p2p5*p4p8*p6p7-4*hbcm*p2p8*p4p6*p4p7+8*hbcm*p2p8*p4p6*p5p7+
10287      . hbcm*p3p6*p4p7*p4p8+2*hbcm*p4p6*p4p7*p4p8+4*hbcm*p4p6*p4p7*
10288      . p5p8-5*hbcm*p4p6*p4p8*p5p7-4*hbcm*p4p6*p5p7*p5p8-hbcm*p4p8*
10289      . p5p6*p5p7)
10290       ans9=32*(p5p8*p4p6*p3p7)*(2*fmc-hbcm)+16*(p4p8*p4p6*p3p7)*(3*
10291      . fmc-2*hbcm)+16*(p5p7*p4p8*p3p6)*(-fmc-hbcm)+32*(p4p6*p3p7*p2p8
10292      . )*(-2*fmc+hbcm)+16*(p4p6*p3p7*p1p8)*(-3*fmc+2*hbcm)+16*(p5p7*
10293      . p3p6*p1p8)*(fmc+hbcm)+16*(p6p8*p3p7*p1p4)*(2*fmc-hbcm)+8*(p6p8
10294      . *p5p7*p3p4)*(-fmb+fmc+hbcm)+8*(p6p7*p4p8*p3p4)*(-fmb+fmc)+8*(
10295      . p6p8*p4p7*p3p4)*(fmb-fmc-hbcm)+8*(p7p8*p4p6*p3p4)*(fmb+fmc+
10296      . hbcm)+8*(p6p7*p3p4*p1p8)*(fmb-fmc)+8*(p6p8*p5p7*p1p3)*(fmb-fmc
10297      . -hbcm)+8*(p6p7*p4p8*p1p3)*(fmb-fmc)+8*(p6p8*p4p7*p1p3)*(-fmb+
10298      . fmc+hbcm)+8*(p7p8*p4p6*p1p3)*(-fmb-fmc-hbcm)+8*(p6p7*p1p8*p1p3
10299      . )*(-fmb+fmc)+8*(p7p8*p3p6)*(fmb*fmc2+fmc2*hbcm+fmc3)+8*(p6p8*
10300      . p5p7)*(-fmb*fmc*hbcm+fmc*hbcm2+fmc2*hbcm)+8*(p6p7*p4p8)*(-fmb*
10301      . fmc*hbcm+fmc2*hbcm)+8*(p6p8*p4p7)*(fmb*fmc*hbcm-fmc*hbcm2-fmc2
10302      . *hbcm)+8*(p7p8*p4p6)*(fmb*fmc*hbcm+fmc*hbcm2+fmc2*hbcm)+8*(
10303      . p6p8*p3p7)*(-fmb*fmc*hbcm+2*fmb*fmc2+fmc*hbcm2-fmc2*hbcm-2*
10304      . fmc3)+8*(p6p7*p1p8)*(fmb*fmc*hbcm-fmc2*hbcm)+16*(p5p8*p3p7*
10305      . p3p6)*(2*ffmcfmb*fmc-fmc)+8*(p4p8*p3p7*p3p6)*(2*ffmcfmb*fmc-
10306      . hbcm)+ans10
10307       ans8=w5*ans9
10308       ans11=(4*(p6p7*p5p8)*(-4*fb3*fmc-4*fb4*fmc+3*hbcm)+4*(p6p8*p5p7
10309      . )*(4*fb3*fmc-8*fb3*hbcm+8*fb4*fmb-4*fb4*fmc-5*hbcm)+4*(p6p7*
10310      . p4p8)*(4*fb3*fmc-8*fb3*hbcm+8*fb4*fmb-4*fb4*fmc+hbcm)+4*(p6p8*
10311      . p4p7)*(-4*fb3*fmc+8*fb3*hbcm-8*fb4*fmb+4*fb4*fmc-hbcm)+16*(
10312      . p7p8*p4p6)*(-2*fb3*fmc+2*fb3*hbcm-2*fb4*fmb+hbcm)+4*(p6p7*p2p8
10313      . )*(4*fb3*fmc+4*fb4*fmc-3*hbcm)+4*(p6p7*p1p8)*(-4*fb3*fmc+8*fb3
10314      . *hbcm-8*fb4*fmb+4*fb4*fmc-hbcm)+4*(p6p8*p3p7)*(-8*fb3*ffmcfmb*
10315      . fmc+20*fb3*fmc-8*fb3*hbcm-16*fb4*ffmcfmb*fmb+8*fb4*ffmcfmb*fmc
10316      . +8*fb4*fmb-4*fb4*fmc-2*fmb+2*fmc-3*hbcm)+4*(p7p8*p3p6)*(-8*fb3
10317      . *ffmcfmb*fmc+8*fb3*fmc-8*fb4*ffmcfmb*fmb-fmb-fmc+3*hbcm))
10318       ans1=ans2+ans5+ans8+ans11
10319       ans=ccc*ans1
10320       b(3)=ans
10321       ans2=w5*(4*(p3p7*p1p4)*(5*fmc-3*hbcm)+2*(p5p7*p3p4)*(-3*fmb+3*
10322      . fmc+7*hbcm)+8*(p4p7*p3p4)*(fmb-fmc-hbcm)+2*(p5p7*p1p3)*(3*fmb-
10323      . 7*fmc+hbcm)+8*(p4p7*p1p3)*(-fmb+fmc)+2*p5p7*(-3*fmb*fmc*hbcm+7
10324      . *fmc*hbcm2+3*fmc2*hbcm)+8*p4p7*(fmb*fmc*hbcm-fmc*hbcm2-fmc2*
10325      . hbcm)+2*p3p7*(-3*fmb*fmc*hbcm+7*fmb*fmc2+5*fmc*hbcm2-4*fmc2*
10326      . hbcm-9*fmc3)+2*(p3p7*p3p4)*(7*ffmcfmb*fmb-9*ffmcfmb*fmc-3*fmb-
10327      . 4*fmc+5*hbcm)+2*(p3p7*p1p3)*(-7*ffmcfmb*fmb+9*ffmcfmb*fmc+3*
10328      . fmb-4*fmc-hbcm)+4*(fmc*p2p3*p5p7-fmc*p2p5*p3p7+fmc*p3p5*p5p7+
10329      . hbcm*p1p2*p5p7+2*hbcm*p1p4*p4p7-3*hbcm*p1p4*p5p7+hbcm*p1p5*
10330      . p5p7+hbcm*p2p4*p5p7-hbcm*p2p5*p4p7+hbcm*p4p5*p5p7))+(6*p5p7*(-
10331      . 4*fb3*hbcm+4*fb4*fmb-4*fb4*fmc-3*hbcm)+4*p4p7*(-2*fb3*fmc+8*
10332      . fb3*hbcm-8*fb4*fmb+6*fb4*fmc-hbcm)+p3p7*(-8*fb3*ffmcfmb*fmc+56
10333      . *fb3*fmc-24*fb3*hbcm-56*fb4*ffmcfmb*fmb+48*fb4*ffmcfmb*fmc+24*
10334      . fb4*fmb-24*fb4*fmc-7*fmb+7*fmc-11*hbcm))
10335       ans1=w2*(4*(p4p5*p3p7)*(fmc-hbcm)+4*(p5p7*p3p4)*(-fmc+hbcm)+4*(
10336      . p3p7*p1p5)*(3*fmc-hbcm)+4*(p5p7*p1p3)*(-fmc+hbcm)+6*(p5p7*p3p5
10337      . )*(fmb-fmc+hbcm)+8*(p4p7*p3p5)*(-fmb+fmc-hbcm)+2*p5p7*(-3*fmb*
10338      . fmc*hbcm+3*fmb*hbcm2+3*fmb2*hbcm+2*fmc*hbcm2-2*fmc2*hbcm)+8*
10339      . p4p7*(fmb*fmc*hbcm-fmb*hbcm2-fmb2*hbcm)+2*p3p7*(-10*fmb*fmc*
10340      . hbcm+7*fmb*fmc2+3*fmb*hbcm2-7*fmb2*fmc+3*fmb2*hbcm)+2*(p3p7*
10341      . p3p5)*(-7*ffmcfmb*fmb+9*ffmcfmb*fmc+3*fmb-12*fmc+3*hbcm)+4*(
10342      . fmc*p2p3*p5p7-fmc*p2p5*p3p7+hbcm*p1p2*p5p7+2*hbcm*p1p5*p4p7+
10343      . hbcm*p2p4*p5p7-hbcm*p2p5*p4p7))+w1*(8*(p3p7*p1p4)*(2*fmc-hbcm)
10344      . +2*(p5p7*p3p4)*(-3*fmb+5*fmc+3*hbcm)+8*(p4p7*p3p4)*(fmb-fmc-
10345      . hbcm)+2*p5p7*(-3*fmb*fmc*hbcm+3*fmc*hbcm2+5*fmc2*hbcm)+8*p4p7*
10346      . (fmb*fmc*hbcm-fmc*hbcm2-fmc2*hbcm)+2*p3p7*(-3*fmb*fmc*hbcm+7*
10347      . fmb*fmc2+3*fmc*hbcm2-2*fmc2*hbcm-9*fmc3)+2*(p3p7*p3p4)*(7*
10348      . ffmcfmb*fmb-9*ffmcfmb*fmc-3*fmb-2*fmc+3*hbcm)+8*(hbcm*p1p4*
10349      . p4p7-hbcm*p1p4*p5p7))+ans2
10350       ans=ccc*ans1
10351       b(4)=ans
10352       ans4=(11*p7p8*(fmb*hbcm+fmc*hbcm-hbcm2)+(p5p8*p3p7)*(-112*fb4*
10353      . ffmcfmb+48*fb4-14)+(p4p8*p3p7)*(16*fb4*ffmcfmb-16*fb4+2)+(p3p7
10354      . *p2p8)*(112*fb4*ffmcfmb-48*fb4+14)+(p3p7*p1p8)*(48*fb4*ffmcfmb
10355      . -16*fb4+6)+16*(2*fb4*p1p8*p4p7-fb4*p1p8*p5p7+4*fb4*p2p8*p4p7-3
10356      . *fb4*p2p8*p5p7-4*fb4*p4p7*p5p8-fb4*p4p8*p5p7+3*fb4*p5p7*p5p8))
10357       ans3=w5*(4*(p5p8*p3p7)*(-3*fmc*hbcm+7*fmc2)+4*(p3p7*p2p8)*(3*
10358      . fmc*hbcm-7*fmc2)+2*(p5p7*p4p8)*(-5*fmb*hbcm-3*fmc*hbcm+5*hbcm2
10359      . )+8*(p4p8*p4p7)*(fmb*hbcm+fmc*hbcm-hbcm2)+2*(p5p7*p1p8)*(fmb*
10360      . hbcm+3*fmc*hbcm-hbcm2)+2*(p4p8*p3p7)*(9*fmb*fmc-5*fmb*hbcm-12*
10361      . fmc*hbcm+7*fmc2+5*hbcm2)+2*(p3p7*p1p8)*(-fmb*fmc+fmb*hbcm+4*
10362      . fmc*hbcm-7*fmc2-hbcm2)+(p5p8*p3p7*p3p4)*(28*ffmcfmb-12)+(p4p8*
10363      . p3p7*p3p4)*(-4*ffmcfmb+4)+(p3p7*p3p4*p2p8)*(-28*ffmcfmb+12)+(
10364      . p3p7*p3p4*p1p8)*(-12*ffmcfmb+4)+(p5p8*p3p7*p1p3)*(-28*ffmcfmb+
10365      . 12)+(p4p8*p3p7*p1p3)*(4*ffmcfmb-4)+(p3p7*p2p8*p1p3)*(28*
10366      . ffmcfmb-12)+(p3p7*p1p8*p1p3)*(12*ffmcfmb-4)+4*(-2*fmc*hbcm*
10367      . p1p8*p4p7-4*fmc*hbcm*p2p8*p4p7+3*fmc*hbcm*p2p8*p5p7+4*fmc*hbcm
10368      . *p4p7*p5p8-3*fmc*hbcm*p5p7*p5p8+2*p1p3*p1p8*p4p7-p1p3*p1p8*
10369      . p5p7+4*p1p3*p2p8*p4p7-3*p1p3*p2p8*p5p7-4*p1p3*p4p7*p5p8-p1p3*
10370      . p4p8*p5p7+3*p1p3*p5p7*p5p8-2*p1p8*p3p4*p4p7+p1p8*p3p4*p5p7-4*
10371      . p2p8*p3p4*p4p7+3*p2p8*p3p4*p5p7+4*p3p4*p4p7*p5p8+p3p4*p4p8*
10372      . p5p7-3*p3p4*p5p7*p5p8))+ans4
10373       ans2=w1*(4*(p5p8*p3p7)*(-3*fmc*hbcm+7*fmc2)+4*(p3p7*p2p8)*(3*
10374      . fmc*hbcm-7*fmc2)+4*(p3p7*p1p8)*(fmc*hbcm-3*fmc2)+2*(p5p7*p4p8)
10375      . *(-3*fmb*hbcm-fmc*hbcm+3*hbcm2)+8*(p4p8*p4p7)*(fmb*hbcm+fmc*
10376      . hbcm-hbcm2)+2*(p4p8*p3p7)*(7*fmb*fmc-3*fmb*hbcm-8*fmc*hbcm+5*
10377      . fmc2+3*hbcm2)+(p5p8*p3p7*p3p4)*(28*ffmcfmb-12)+(p4p8*p3p7*p3p4
10378      . )*(-4*ffmcfmb+4)+(p3p7*p3p4*p2p8)*(-28*ffmcfmb+12)+(p3p7*p3p4*
10379      . p1p8)*(-12*ffmcfmb+4)+4*(-2*fmc*hbcm*p1p8*p4p7+fmc*hbcm*p1p8*
10380      . p5p7-4*fmc*hbcm*p2p8*p4p7+3*fmc*hbcm*p2p8*p5p7+4*fmc*hbcm*p4p7
10381      . *p5p8-3*fmc*hbcm*p5p7*p5p8-2*p1p8*p3p4*p4p7+p1p8*p3p4*p5p7-4*
10382      . p2p8*p3p4*p4p7+3*p2p8*p3p4*p5p7+4*p3p4*p4p7*p5p8+p3p4*p4p8*
10383      . p5p7-3*p3p4*p5p7*p5p8))+ans3
10384       ans1=w2*(6*(p5p8*p5p7)*(fmb*hbcm-fmc*hbcm+hbcm2)+8*(p5p8*p4p7)*
10385      . (-fmb*hbcm+fmc*hbcm-hbcm2)+2*(p5p8*p3p7)*(-7*fmb*fmc+3*fmb*
10386      . hbcm-10*fmc*hbcm+7*fmc2+3*hbcm2)+4*(p4p8*p3p7)*(fmb*fmc-fmb*
10387      . hbcm)+4*(p3p7*p2p8)*(7*fmb*fmc-3*fmb*hbcm)+4*(p3p7*p1p8)*(3*
10388      . fmb*fmc-fmb*hbcm)+(p5p8*p3p7*p3p5)*(-28*ffmcfmb+12)+(p4p8*p3p7
10389      . *p3p5)*(4*ffmcfmb-4)+(p3p7*p3p5*p2p8)*(28*ffmcfmb-12)+(p3p7*
10390      . p3p5*p1p8)*(12*ffmcfmb-4)+4*(2*fmb*hbcm*p1p8*p4p7-fmb*hbcm*
10391      . p1p8*p5p7+4*fmb*hbcm*p2p8*p4p7-3*fmb*hbcm*p2p8*p5p7-fmb*hbcm*
10392      . p4p8*p5p7+2*p1p8*p3p5*p4p7-p1p8*p3p5*p5p7+4*p2p8*p3p5*p4p7-3*
10393      . p2p8*p3p5*p5p7-4*p3p5*p4p7*p5p8-p3p5*p4p8*p5p7+3*p3p5*p5p7*
10394      . p5p8))+ans2
10395       ans=ccc*ans1
10396       b(5)=ans
10397       ans4=4*(-2*fmb*hbcm*p1p3*p4p7-4*fmb*hbcm*p2p3*p4p7-fmc*hbcm*
10398      . p2p5*p3p7+hbcm2*p1p2*p5p7+2*hbcm2*p1p5*p4p7+hbcm2*p2p4*p5p7-
10399      . hbcm2*p2p5*p4p7-2*p1p3*p3p5*p4p7+p1p3*p3p5*p5p7-4*p2p3*p3p5*
10400      . p4p7+3*p2p3*p3p5*p5p7+p3p4*p3p5*p5p7)
10401       ans3=4*(p4p5*p3p7)*(fmc*hbcm-hbcm2)+4*(p3p7*p1p5)*(3*fmc*hbcm-
10402      . hbcm2)+2*(p5p7*p3p5)*(-3*fmb*hbcm+5*fmc*hbcm-3*hbcm2)+8*(p4p7*
10403      . p3p5)*(fmb*hbcm-fmc*hbcm+hbcm2)+4*(p5p7*p3p4)*(fmb*hbcm-fmc*
10404      . hbcm+hbcm2)+4*(p5p7*p2p3)*(3*fmb*hbcm+fmc*hbcm)+4*(p5p7*p1p3)*
10405      . (fmb*hbcm-fmc*hbcm+hbcm2)+2*(p3p7*p3p5)*(7*fmb*fmc-3*fmb*hbcm+
10406      . 10*fmc*hbcm-7*fmc2-3*hbcm2)+4*(p3p7*p3p4)*(-fmb*fmc+fmb*hbcm)+
10407      . 4*(p3p7*p2p3)*(-7*fmb*fmc+3*fmb*hbcm)+4*(p3p7*p1p3)*(-3*fmb*
10408      . fmc+fmb*hbcm)+2*p5p7*(5*fmb*fmc*hbcm2-3*fmb*hbcm3+3*fmb2*hbcm2
10409      . +2*fmc*hbcm3-2*fmc2*hbcm2-6*p3p5s2)+8*p4p7*(-fmb*fmc*hbcm2+fmb
10410      . *hbcm3-fmb2*hbcm2+2*p3p5s2)+2*p3p7*(14*ffmcfmb*p3p5s2+12*fmb*
10411      . fmc*hbcm2-9*fmb*fmc2*hbcm-3*fmb*hbcm3-7*fmb2*fmc*hbcm+3*fmb2*
10412      . hbcm2-6*p3p5s2)+(p3p7*p3p5*p3p4)*(-4*ffmcfmb+4)+(p3p7*p3p5*
10413      . p2p3)*(-28*ffmcfmb+12)+(p3p7*p3p5*p1p3)*(-12*ffmcfmb+4)+ans4
10414       ans2=w2*ans3
10415       ans8=4*(2*ffmcfmb*p1p3*p3p4*p3p7+4*fmc*hbcm*p2p3*p4p7-2*fmc*
10416      . hbcm*p2p3*p5p7-fmc*hbcm*p2p5*p3p7-4*fmc*hbcm*p3p5*p4p7+4*fmc*
10417      . hbcm*p3p5*p5p7+hbcm2*p1p2*p5p7+2*hbcm2*p1p4*p4p7-3*hbcm2*p1p4*
10418      . p5p7+hbcm2*p1p5*p5p7+hbcm2*p2p4*p5p7-hbcm2*p2p5*p4p7+hbcm2*
10419      . p4p5*p5p7-4*p1p3*p2p3*p4p7+3*p1p3*p2p3*p5p7+2*p1p3*p3p4*p4p7+4
10420      . *p1p3*p3p5*p4p7-3*p1p3*p3p5*p5p7+4*p2p3*p3p4*p4p7-3*p2p3*p3p4*
10421      . p5p7-4*p3p4*p3p5*p4p7+3*p3p4*p3p5*p5p7)
10422       ans7=4*(p3p7*p3p5)*(3*fmc*hbcm-7*fmc2)+4*(p3p7*p2p3)*(-3*fmc*
10423      . hbcm+7*fmc2)+4*(p3p7*p1p4)*(5*fmc*hbcm-3*hbcm2)+8*(p4p7*p1p3)*
10424      . (fmc*hbcm+hbcm2)+2*(p5p7*p3p4)*(5*fmb*hbcm+fmc*hbcm+5*hbcm2)+8
10425      . *(p4p7*p3p4)*(-fmb*hbcm-fmc*hbcm-hbcm2)+2*(p5p7*p1p3)*(-fmb*
10426      . hbcm-5*fmc*hbcm-hbcm2)+2*(p3p7*p3p4)*(-9*fmb*fmc+5*fmb*hbcm-4*
10427      . fmc*hbcm-7*fmc2+3*hbcm2)+2*(p3p7*p1p3)*(fmb*fmc-fmb*hbcm+4*fmc
10428      . *hbcm+7*fmc2-3*hbcm2)+2*p5p7*(5*fmb*fmc*hbcm2+5*fmc*hbcm3+3*
10429      . fmc2*hbcm2+2*p1p3s2-2*p3p4s2)+8*p4p7*(-fmb*fmc*hbcm2-fmc*hbcm3
10430      . -fmc2*hbcm2-p1p3s2)+(p3p7*p3p5*p3p4)*(-28*ffmcfmb+12)+(p3p7*
10431      . p3p4*p2p3)*(28*ffmcfmb-12)+2*p3p7*(-6*ffmcfmb*p1p3s2+2*ffmcfmb
10432      . *p3p4s2+5*fmb*fmc*hbcm2-9*fmb*fmc2*hbcm+3*fmc*hbcm3-2*fmc2*
10433      . hbcm2-9*fmc3*hbcm+2*p1p3s2-2*p3p4s2)+(p3p7*p3p5*p1p3)*(28*
10434      . ffmcfmb-12)+(p3p7*p2p3*p1p3)*(-28*ffmcfmb+12)+ans8
10435       ans6=w5*ans7
10436       ans9=((p3p7*p3p5)*(112*fb4*ffmcfmb-48*fb4+14)+(p3p7*p3p4)*(-16*
10437      . fb4*ffmcfmb+16*fb4-2)+(p3p7*p2p3)*(-112*fb4*ffmcfmb+48*fb4-14)
10438      . +(p3p7*p1p3)*(-48*fb4*ffmcfmb+16*fb4-6)+2*p5p7*(-12*fb3*fmb*
10439      . hbcm-12*fb3*fmc*hbcm+8*fb4*fmc*hbcm-12*fb4*hbcm2-11*hbcm2)+8*
10440      . p4p7*(4*fb3*fmb*hbcm+3*fb3*fmc*hbcm-fb4*fmc*hbcm+4*fb4*hbcm2)+
10441      . p3p7*(56*fb3*fmb*fmc-24*fb3*fmb*hbcm-24*fb3*fmc*hbcm+48*fb3*
10442      . fmc2+72*fb4*fmc*hbcm-24*fb4*fmc2-24*fb4*hbcm2-11*fmb*hbcm-5*
10443      . fmc*hbcm+3*hbcm2)+16*(-2*fb4*p1p3*p4p7+fb4*p1p3*p5p7-4*fb4*
10444      . p2p3*p4p7+3*fb4*p2p3*p5p7+fb4*p3p4*p5p7+4*fb4*p3p5*p4p7-3*fb4*
10445      . p3p5*p5p7))
10446       ans5=w1*(4*(p3p7*p3p5)*(3*fmc*hbcm-7*fmc2)+4*(p3p7*p2p3)*(-3*
10447      . fmc*hbcm+7*fmc2)+8*(p3p7*p1p4)*(2*fmc*hbcm-hbcm2)+4*(p3p7*p1p3
10448      . )*(-fmc*hbcm+3*fmc2)+2*(p5p7*p3p4)*(3*fmb*hbcm+fmc*hbcm+3*
10449      . hbcm2)+8*(p4p7*p3p4)*(-fmb*hbcm-fmc*hbcm-hbcm2)+2*(p3p7*p3p4)*
10450      . (-7*fmb*fmc+3*fmb*hbcm-6*fmc*hbcm-5*fmc2+3*hbcm2)+2*p5p7*(3*
10451      . fmb*fmc*hbcm2+3*fmc*hbcm3+3*fmc2*hbcm2-2*p3p4s2)+8*p4p7*(-fmb*
10452      . fmc*hbcm2-fmc*hbcm3-fmc2*hbcm2)+2*p3p7*(2*ffmcfmb*p3p4s2+3*fmb
10453      . *fmc*hbcm2-7*fmb*fmc2*hbcm+3*fmc*hbcm3-4*fmc2*hbcm2-7*fmc3*
10454      . hbcm-2*p3p4s2)+(p3p7*p3p5*p3p4)*(-28*ffmcfmb+12)+(p3p7*p3p4*
10455      . p2p3)*(28*ffmcfmb-12)+(p3p7*p3p4*p1p3)*(12*ffmcfmb-4)+4*(2*fmc
10456      . *hbcm*p1p3*p4p7-fmc*hbcm*p1p3*p5p7+4*fmc*hbcm*p2p3*p4p7-3*fmc*
10457      . hbcm*p2p3*p5p7-4*fmc*hbcm*p3p5*p4p7+3*fmc*hbcm*p3p5*p5p7+2*
10458      . hbcm2*p1p4*p4p7-2*hbcm2*p1p4*p5p7+2*p1p3*p3p4*p4p7-p1p3*p3p4*
10459      . p5p7+4*p2p3*p3p4*p4p7-3*p2p3*p3p4*p5p7-4*p3p4*p3p5*p4p7+3*p3p4
10460      . *p3p5*p5p7))+ans6+ans9
10461       ans1=ans2+ans5
10462       ans=ccc*ans1
10463       b(6)=ans
10464       ans4=4*(2*fmc*hbcm2*p1p8*p4p7+4*fmc*hbcm2*p2p8*p4p7-5*fmc*hbcm2
10465      . *p2p8*p5p7-4*fmc*hbcm2*p4p7*p5p8+5*fmc*hbcm2*p5p7*p5p8+hbcm*
10466      . p1p3*p2p8*p5p7-2*hbcm*p1p3*p4p7*p4p8+2*hbcm*p1p3*p4p8*p5p7-
10467      . hbcm*p1p3*p5p7*p5p8-hbcm*p1p8*p2p3*p5p7+2*hbcm*p1p8*p3p4*p4p7-
10468      . 2*hbcm*p1p8*p3p4*p5p7+hbcm*p1p8*p3p5*p5p7-4*hbcm*p2p3*p4p7*
10469      . p4p8+5*hbcm*p2p3*p4p8*p5p7+4*hbcm*p2p8*p3p4*p4p7-5*hbcm*p2p8*
10470      . p3p4*p5p7-4*hbcm*p3p4*p4p7*p5p8+5*hbcm*p3p4*p5p7*p5p8+4*hbcm*
10471      . p3p5*p4p7*p4p8-5*hbcm*p3p5*p4p8*p5p7)
10472       ans3=4*(p4p8*p3p7*p3p5)*(9*fmc-5*hbcm)+4*(p5p8*p3p7*p3p4)*(-9*
10473      . fmc+5*hbcm)+4*(p3p7*p3p4*p2p8)*(9*fmc-5*hbcm)+4*(p4p8*p3p7*
10474      . p2p3)*(-9*fmc+5*hbcm)+4*(p3p7*p3p5*p1p8)*(-fmc+hbcm)+8*(p3p7*
10475      . p3p4*p1p8)*(2*fmc-hbcm)+4*(p3p7*p2p3*p1p8)*(fmc-hbcm)+4*(p5p8*
10476      . p3p7*p1p3)*(fmc-hbcm)+8*(p4p8*p3p7*p1p3)*(-2*fmc+hbcm)+4*(p3p7
10477      . *p2p8*p1p3)*(-fmc+hbcm)+4*(p5p8*p3p7)*(5*fmc*hbcm2-9*fmc2*hbcm
10478      . )+4*(p3p7*p2p8)*(-5*fmc*hbcm2+9*fmc2*hbcm)+10*(p5p7*p4p8)*(-
10479      . fmb*hbcm2+fmc*hbcm2-hbcm3)+8*(p4p8*p4p7)*(fmb*hbcm2-fmc*hbcm2+
10480      . hbcm3)+2*(p5p7*p1p8)*(fmb*hbcm2-5*fmc*hbcm2+hbcm3)+2*(p4p8*
10481      . p3p7)*(9*fmb*fmc*hbcm-5*fmb*hbcm2+14*fmc*hbcm2-9*fmc2*hbcm-5*
10482      . hbcm3)+2*(p3p7*p1p8)*(-fmb*fmc*hbcm+fmb*hbcm2-6*fmc*hbcm2+9*
10483      . fmc2*hbcm+hbcm3)+ans4
10484       ans2=w5*ans3
10485       ans6=(p7p8*(11*fmb*hbcm2-5*fmc*hbcm2+11*hbcm3)+2*(p5p8*p3p7)*(
10486      . 56*fb3*fmc-24*fb3*hbcm-11*hbcm)+2*(p4p8*p3p7)*(-8*fb3*fmc+8*
10487      . fb3*hbcm-3*hbcm)+2*(p3p7*p2p8)*(-56*fb3*fmc+24*fb3*hbcm+11*
10488      . hbcm)+2*(p3p7*p1p8)*(-24*fb3*fmc+8*fb3*hbcm+7*hbcm)+2*(-16*fb3
10489      . *hbcm*p1p8*p4p7+8*fb3*hbcm*p1p8*p5p7-32*fb3*hbcm*p2p8*p4p7+24*
10490      . fb3*hbcm*p2p8*p5p7+32*fb3*hbcm*p4p7*p5p8+8*fb3*hbcm*p4p8*p5p7-
10491      . 24*fb3*hbcm*p5p7*p5p8-7*hbcm*p1p3*p7p8-11*hbcm*p2p3*p7p8+3*
10492      . hbcm*p3p4*p7p8+11*hbcm*p3p5*p7p8))
10493       ans5=w2*(4*(p4p8*p3p7*p3p5)*(fmc-hbcm)+4*(p5p8*p3p7*p3p4)*(-fmc
10494      . +hbcm)+4*(p3p7*p3p5*p2p8)*(7*fmc-3*hbcm)+4*(p5p8*p3p7*p2p3)*(-
10495      . 7*fmc+3*hbcm)+4*(p3p7*p3p5*p1p8)*(3*fmc-hbcm)+4*(p5p8*p3p7*
10496      . p1p3)*(-3*fmc+hbcm)+2*(p5p8*p5p7)*(3*fmb*hbcm2+5*fmc*hbcm2-3*
10497      . hbcm3)+8*(p5p8*p4p7)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+2*(p5p8*p3p7
10498      . )*(-7*fmb*fmc*hbcm+3*fmb*hbcm2+12*fmc*hbcm2-9*fmc2*hbcm-3*
10499      . hbcm3)+4*(p4p8*p3p7)*(fmb*fmc*hbcm-fmb*hbcm2)+4*(p3p7*p2p8)*(7
10500      . *fmb*fmc*hbcm-3*fmb*hbcm2)+4*(p3p7*p1p8)*(3*fmb*fmc*hbcm-fmb*
10501      . hbcm2)+4*(2*fmb*hbcm2*p1p8*p4p7-fmb*hbcm2*p1p8*p5p7+4*fmb*
10502      . hbcm2*p2p8*p4p7-3*fmb*hbcm2*p2p8*p5p7-fmb*hbcm2*p4p8*p5p7-2*
10503      . hbcm*p1p3*p4p7*p5p8+hbcm*p1p3*p5p7*p5p8+2*hbcm*p1p8*p3p5*p4p7-
10504      . hbcm*p1p8*p3p5*p5p7-4*hbcm*p2p3*p4p7*p5p8+3*hbcm*p2p3*p5p7*
10505      . p5p8+4*hbcm*p2p8*p3p5*p4p7-3*hbcm*p2p8*p3p5*p5p7+hbcm*p3p4*
10506      . p5p7*p5p8-hbcm*p3p5*p4p8*p5p7))+ans6
10507       ans1=w1*(4*(p4p8*p3p7*p3p5)*(7*fmc-3*hbcm)+4*(p5p8*p3p7*p3p4)*(
10508      . -7*fmc+3*hbcm)+4*(p3p7*p3p4*p2p8)*(7*fmc-3*hbcm)+4*(p4p8*p3p7*
10509      . p2p3)*(-7*fmc+3*hbcm)+4*(p3p7*p3p4*p1p8)*(3*fmc-hbcm)+4*(p4p8*
10510      . p3p7*p1p3)*(-3*fmc+hbcm)+4*(p5p8*p3p7)*(3*fmc*hbcm2-7*fmc2*
10511      . hbcm)+4*(p3p7*p2p8)*(-3*fmc*hbcm2+7*fmc2*hbcm)+4*(p3p7*p1p8)*(
10512      . -fmc*hbcm2+3*fmc2*hbcm)+6*(p5p7*p4p8)*(-fmb*hbcm2+fmc*hbcm2-
10513      . hbcm3)+8*(p4p8*p4p7)*(fmb*hbcm2-fmc*hbcm2+hbcm3)+2*(p4p8*p3p7)
10514      . *(7*fmb*fmc*hbcm-3*fmb*hbcm2+10*fmc*hbcm2-7*fmc2*hbcm-3*hbcm3)
10515      . +4*(2*fmc*hbcm2*p1p8*p4p7-fmc*hbcm2*p1p8*p5p7+4*fmc*hbcm2*p2p8
10516      . *p4p7-3*fmc*hbcm2*p2p8*p5p7-4*fmc*hbcm2*p4p7*p5p8+3*fmc*hbcm2*
10517      . p5p7*p5p8-2*hbcm*p1p3*p4p7*p4p8+hbcm*p1p3*p4p8*p5p7+2*hbcm*
10518      . p1p8*p3p4*p4p7-hbcm*p1p8*p3p4*p5p7-4*hbcm*p2p3*p4p7*p4p8+3*
10519      . hbcm*p2p3*p4p8*p5p7+4*hbcm*p2p8*p3p4*p4p7-3*hbcm*p2p8*p3p4*
10520      . p5p7-4*hbcm*p3p4*p4p7*p5p8+3*hbcm*p3p4*p5p7*p5p8+4*hbcm*p3p5*
10521      . p4p7*p4p8-3*hbcm*p3p5*p4p8*p5p7))+ans2+ans5
10522       ans=ccc*ans1
10523       b(7)=ans
10524       ans3=(10*p6p8*(fmb*hbcm+fmc*hbcm-hbcm2)+(p5p8*p3p6)*(32*fb4*
10525      . ffmcfmb-32*fb4+4)+(p4p8*p3p6)*(32*fb4*ffmcfmb+4)+(p3p6*p2p8)*(
10526      . -96*fb4*ffmcfmb+32*fb4-12)+(p3p6*p1p8)*(-32*fb4*ffmcfmb-4)+32*
10527      . (-fb4*p1p8*p4p6-2*fb4*p2p8*p4p6+fb4*p2p8*p5p6+fb4*p4p6*p4p8-
10528      . fb4*p5p6*p5p8))
10529       ans2=w5*(8*(p5p8*p3p6)*(fmc*hbcm-fmc2)+4*(p5p6*p4p8)*(fmb*hbcm+
10530      . fmc*hbcm-hbcm2)+8*(p4p8*p4p6)*(fmb*hbcm-hbcm2)+16*(p4p6*p2p8)*
10531      . (-fmb*hbcm+hbcm2)+4*(p5p6*p1p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(
10532      . p4p6*p1p8)*(-fmb*hbcm+hbcm2)+4*(p4p8*p3p6)*(fmb*fmc+fmb*hbcm-
10533      . fmc2-hbcm2)+8*(p3p6*p2p8)*(-2*fmb*fmc+fmc*hbcm+fmc2)+4*(p3p6*
10534      . p1p8)*(-fmb*fmc-fmb*hbcm+fmc2+hbcm2)+(p5p8*p3p6*p3p4)*(-8*
10535      . ffmcfmb+8)+(p3p6*p3p4*p2p8)*(24*ffmcfmb-8)+(p5p8*p3p6*p1p3)*(8
10536      . *ffmcfmb-8)+(p3p6*p2p8*p1p3)*(-24*ffmcfmb+8)+8*(-ffmcfmb*p1p3*
10537      . p1p8*p3p6+ffmcfmb*p1p3*p3p6*p4p8+ffmcfmb*p1p8*p3p4*p3p6-
10538      . ffmcfmb*p3p4*p3p6*p4p8-fmc*hbcm*p2p8*p5p6+fmc*hbcm*p5p6*p5p8-
10539      . p1p3*p1p8*p4p6-2*p1p3*p2p8*p4p6+p1p3*p2p8*p5p6+p1p3*p4p6*p4p8-
10540      . p1p3*p5p6*p5p8+p1p8*p3p4*p4p6+2*p2p8*p3p4*p4p6-p2p8*p3p4*p5p6-
10541      . p3p4*p4p6*p4p8+p3p4*p5p6*p5p8))+ans3
10542       ans1=w2*(4*(p5p8*p5p6)*(-fmb*hbcm+fmc*hbcm-hbcm2)+4*(p5p8*p3p6)
10543      . *(fmb*fmc-fmb*hbcm+2*fmc*hbcm-fmc2-hbcm2)+8*(p3p6*p2p8)*(-3*
10544      . fmb*fmc+fmb*hbcm)+(p5p8*p3p6*p3p5)*(8*ffmcfmb-8)+(p3p6*p3p5*
10545      . p2p8)*(-24*ffmcfmb+8)+8*(-ffmcfmb*p1p8*p3p5*p3p6+ffmcfmb*p3p5*
10546      . p3p6*p4p8-fmb*fmc*p1p8*p3p6+fmb*fmc*p3p6*p4p8-fmb*hbcm*p1p8*
10547      . p4p6-2*fmb*hbcm*p2p8*p4p6+fmb*hbcm*p2p8*p5p6+fmb*hbcm*p4p6*
10548      . p4p8-p1p8*p3p5*p4p6-2*p2p8*p3p5*p4p6+p2p8*p3p5*p5p6+p3p5*p4p6*
10549      . p4p8-p3p5*p5p6*p5p8))+w1*(8*(p5p8*p3p6)*(fmc*hbcm-fmc2)+8*(
10550      . p3p6*p2p8)*(-fmc*hbcm+3*fmc2)+4*(p5p6*p4p8)*(fmb*hbcm+fmc*hbcm
10551      . -hbcm2)+4*(p4p8*p3p6)*(-fmb*fmc+fmb*hbcm+2*fmc*hbcm-3*fmc2-
10552      . hbcm2)+(p5p8*p3p6*p3p4)*(-8*ffmcfmb+8)+(p3p6*p3p4*p2p8)*(24*
10553      . ffmcfmb-8)+8*(ffmcfmb*p1p8*p3p4*p3p6-ffmcfmb*p3p4*p3p6*p4p8+
10554      . fmc*hbcm*p1p8*p4p6+2*fmc*hbcm*p2p8*p4p6-fmc*hbcm*p2p8*p5p6-fmc
10555      . *hbcm*p4p6*p4p8+fmc*hbcm*p5p6*p5p8+fmc2*p1p8*p3p6+p1p8*p3p4*
10556      . p4p6+2*p2p8*p3p4*p4p6-p2p8*p3p4*p5p6-p3p4*p4p6*p4p8+p3p4*p5p6*
10557      . p5p8))+ans2
10558       ans=ccc*ans1
10559       b(8)=ans
10560       ans5=8*(-2*ffmcfmb*p1p3*p3p4*p3p6-fmc*hbcm*p1p2*p3p6-fmc*hbcm*
10561      . p1p5*p3p6+fmc*hbcm*p2p3*p5p6+fmc*hbcm*p2p4*p3p6+2*fmc*hbcm*
10562      . p2p5*p3p6-fmc*hbcm*p3p5*p5p6+fmc*hbcm*p3p6*p4p5+fmc2*p3p5*p3p6
10563      . -hbcm2*p1p2*p4p6+hbcm2*p1p4*p3p6+hbcm2*p1p4*p4p6+hbcm2*p1p4*
10564      . p5p6-hbcm2*p1p5*p4p6+hbcm2*p2p4*p4p6+2*hbcm2*p2p5*p4p6+hbcm2*
10565      . p3p5*p4p6+hbcm2*p4p5*p4p6+2*p1p3*p2p3*p4p6-p1p3*p2p3*p5p6-2*
10566      . p1p3*p3p4*p4p6+p1p3*p3p5*p5p6-2*p2p3*p3p4*p4p6+p2p3*p3p4*p5p6-
10567      . p3p4*p3p5*p5p6)
10568       ans4=4*(p5p6*p3p4)*(-fmb*hbcm-fmc*hbcm-hbcm2)+8*(p4p6*p3p4)*(-
10569      . fmb*hbcm+hbcm2)+8*(p4p6*p2p3)*(2*fmb*hbcm-hbcm2)+4*(p5p6*p1p3)
10570      . *(fmb*hbcm+fmc*hbcm+hbcm2)+8*(p4p6*p1p3)*(fmb*hbcm-hbcm2)+4*(
10571      . p3p6*p3p4)*(-fmb*fmc-fmb*hbcm+2*fmc*hbcm+fmc2-hbcm2)+8*(p3p6*
10572      . p2p3)*(2*fmb*fmc-fmc2)+4*(p3p6*p1p3)*(fmb*fmc+fmb*hbcm-2*fmc*
10573      . hbcm-fmc2+hbcm2)+4*p5p6*(-fmb*fmc*hbcm2-fmc*hbcm3-fmc2*hbcm2)+
10574      . 4*p4p6*(-2*fmb*fmc*hbcm2+fmb2*hbcm2-fmc2*hbcm2+hbcm4+2*p1p3s2+
10575      . 2*p3p4s2)+(p3p6*p3p5*p3p4)*(8*ffmcfmb-8)+(p3p6*p3p4*p2p3)*(-24
10576      . *ffmcfmb+8)+4*p3p6*(2*ffmcfmb*p1p3s2+2*ffmcfmb*p3p4s2-fmb*fmc*
10577      . hbcm2-fmb*fmc2*hbcm+fmb2*fmc*hbcm)+(p3p6*p3p5*p1p3)*(-8*
10578      . ffmcfmb+8)+(p3p6*p2p3*p1p3)*(24*ffmcfmb-8)+ans5
10579       ans3=w5*ans4
10580       ans6=(16*p4p6*(-2*fb4*fmc*hbcm-hbcm2)+(p3p6*p3p5)*(-32*fb4*
10581      . ffmcfmb+32*fb4-4)+(p3p6*p3p4)*(-32*fb4*ffmcfmb-4)+(p3p6*p2p3)*
10582      . (96*fb4*ffmcfmb-32*fb4+12)+(p3p6*p1p3)*(32*fb4*ffmcfmb+4)+2*
10583      . p5p6*(8*fb3*fmb*hbcm+4*fb3*fmc*hbcm-4*fb4*fmc*hbcm+8*fb4*hbcm2
10584      . -hbcm2)+2*p3p6*(-8*fb3*fmb*fmc+8*fb3*fmb*hbcm+4*fb3*fmc*hbcm-4
10585      . *fb3*fmc2-12*fb4*fmc*hbcm-12*fb4*fmc2+8*fb4*hbcm2-5*fmb*hbcm-2
10586      . *fmc*hbcm-2*hbcm2)+32*(fb4*p1p3*p4p6+2*fb4*p2p3*p4p6-fb4*p2p3*
10587      . p5p6-fb4*p3p4*p4p6+fb4*p3p5*p5p6))
10588       ans2=w1*(4*p4p6*(-fmc*hbcm3+3*fmc2*hbcm2+2*p3p4s2)+8*(p3p6*p3p5
10589      . )*(-fmc*hbcm+fmc2)+4*(p4p6*p3p4)*(3*fmc*hbcm+hbcm2)+8*(p3p6*
10590      . p2p3)*(fmc*hbcm-3*fmc2)+8*(p3p6*p1p4)*(-fmc*hbcm+hbcm2)+4*(
10591      . p4p6*p1p3)*(-fmc*hbcm-hbcm2)+4*(p5p6*p3p4)*(-fmb*hbcm-fmc*hbcm
10592      . -hbcm2)+4*(p3p6*p3p4)*(fmb*fmc-fmb*hbcm+2*fmc*hbcm+3*fmc2-
10593      . hbcm2)+4*p5p6*(-fmb*fmc*hbcm2-fmc*hbcm3-fmc2*hbcm2)+4*p3p6*(2*
10594      . ffmcfmb*p3p4s2-fmb*fmc*hbcm2+fmb*fmc2*hbcm-fmc*hbcm3+3*fmc3*
10595      . hbcm)+(p3p6*p3p5*p3p4)*(8*ffmcfmb-8)+(p3p6*p3p4*p2p3)*(-24*
10596      . ffmcfmb+8)+4*(-2*ffmcfmb*p1p3*p3p4*p3p6-5*fmc*hbcm*p2p3*p4p6+2
10597      . *fmc*hbcm*p2p3*p5p6+2*fmc*hbcm*p2p4*p3p6-fmc*hbcm*p3p5*p4p6-2*
10598      . fmc*hbcm*p3p5*p5p6+2*fmc*hbcm*p3p6*p4p5-2*fmc2*p1p3*p3p6-hbcm2
10599      . *p1p2*p4p6+2*hbcm2*p1p4*p5p6-hbcm2*p1p5*p4p6+hbcm2*p2p4*p4p6+
10600      . hbcm2*p4p5*p4p6-2*p1p3*p3p4*p4p6-4*p2p3*p3p4*p4p6+2*p2p3*p3p4*
10601      . p5p6-2*p3p4*p3p5*p5p6))+ans3+ans6
10602       ans1=w2*(4*(p5p6*p3p5)*(fmb*hbcm-fmc*hbcm+hbcm2)+4*(p3p6*p3p5)*
10603      . (-fmb*fmc+fmb*hbcm-2*fmc*hbcm+fmc2+hbcm2)+8*(p3p6*p2p3)*(3*fmb
10604      . *fmc-fmb*hbcm)+4*p5p6*(-fmb*fmc*hbcm2+fmb*hbcm3-fmb2*hbcm2+2*
10605      . p3p5s2)+4*p3p6*(-2*ffmcfmb*p3p5s2-2*fmb*fmc*hbcm2-fmb*fmc2*
10606      . hbcm+fmb*hbcm3+fmb2*fmc*hbcm-fmb2*hbcm2+2*p3p5s2)+(p3p6*p3p5*
10607      . p2p3)*(24*ffmcfmb-8)+8*(ffmcfmb*p1p3*p3p5*p3p6-ffmcfmb*p3p4*
10608      . p3p5*p3p6-fmb*fmc*hbcm2*p4p6+fmb*fmc*p1p3*p3p6-fmb*fmc*p3p4*
10609      . p3p6+fmb*hbcm*p1p3*p4p6+2*fmb*hbcm*p2p3*p4p6-fmb*hbcm*p2p3*
10610      . p5p6-fmb*hbcm*p3p4*p4p6-fmc*hbcm*p1p5*p3p6+fmc*hbcm*p2p5*p3p6+
10611      . fmc*hbcm*p3p6*p4p5-hbcm2*p1p5*p4p6+hbcm2*p2p5*p4p6+hbcm2*p4p5*
10612      . p4p6+p1p3*p3p5*p4p6+2*p2p3*p3p5*p4p6-p2p3*p3p5*p5p6-p3p4*p3p5*
10613      . p4p6))+ans2
10614       ans=ccc*ans1
10615       b(9)=ans
10616       ans4=8*(fmc*hbcm2*p2p8*p5p6-2*fmc*hbcm2*p4p6*p5p8-fmc*hbcm2*
10617      . p5p6*p5p8+4*fmc*p2p3*p3p6*p5p8-4*fmc*p2p8*p3p5*p3p6-hbcm*p1p3*
10618      . p2p8*p5p6+2*hbcm*p1p3*p4p6*p5p8+hbcm*p1p3*p5p6*p5p8+hbcm*p1p8*
10619      . p2p3*p5p6-2*hbcm*p1p8*p3p5*p4p6-hbcm*p1p8*p3p5*p5p6+4*hbcm*
10620      . p2p3*p4p6*p5p8-hbcm*p2p3*p4p8*p5p6+hbcm*p2p8*p3p4*p5p6-4*hbcm*
10621      . p2p8*p3p5*p4p6-2*hbcm*p3p4*p4p6*p5p8-hbcm*p3p4*p5p6*p5p8+2*
10622      . hbcm*p3p5*p4p6*p4p8+hbcm*p3p5*p4p8*p5p6)
10623       ans3=8*(p4p8*p3p6*p3p5)*(fmc+hbcm)+8*(p5p8*p3p6*p3p4)*(-fmc-
10624      . hbcm)+8*(p3p6*p3p4*p2p8)*(-fmc+hbcm)+8*(p4p8*p3p6*p2p3)*(fmc-
10625      . hbcm)+8*(p3p6*p3p5*p1p8)*(-fmc-hbcm)+8*(p3p6*p2p3*p1p8)*(-fmc+
10626      . hbcm)+8*(p5p8*p3p6*p1p3)*(fmc+hbcm)+8*(p3p6*p2p8*p1p3)*(fmc-
10627      . hbcm)+8*(p5p8*p3p6)*(-fmc*hbcm2-fmc2*hbcm)+4*(p5p6*p4p8)*(fmb*
10628      . hbcm2-fmc*hbcm2+hbcm3)+8*(p4p8*p4p6)*(fmb*hbcm2-fmc*hbcm2+
10629      . hbcm3)+16*(p4p6*p2p8)*(-fmb*hbcm2+fmc*hbcm2-hbcm3)+4*(p5p6*
10630      . p1p8)*(-fmb*hbcm2+fmc*hbcm2-hbcm3)+8*(p4p6*p1p8)*(-fmb*hbcm2+
10631      . fmc*hbcm2-hbcm3)+4*(p4p8*p3p6)*(fmb*fmc*hbcm+fmb*hbcm2-fmc2*
10632      . hbcm+hbcm3)+8*(p3p6*p2p8)*(-2*fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm
10633      . )+4*(p3p6*p1p8)*(-fmb*fmc*hbcm-fmb*hbcm2+fmc2*hbcm-hbcm3)+ans4
10634       ans2=w5*ans3
10635       ans5=w2*(8*(p3p6*p3p5*p2p8)*(-3*fmc+hbcm)+8*(p5p8*p3p6*p2p3)*(3
10636      . *fmc-hbcm)+4*(p5p8*p5p6)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+4*(p5p8*
10637      . p3p6)*(fmb*fmc*hbcm-fmb*hbcm2-2*fmc*hbcm2-fmc2*hbcm+hbcm3)+8*(
10638      . p3p6*p2p8)*(-3*fmb*fmc*hbcm+fmb*hbcm2)+8*(-fmb*fmc*hbcm*p1p8*
10639      . p3p6+fmb*fmc*hbcm*p3p6*p4p8-fmb*hbcm2*p1p8*p4p6-2*fmb*hbcm2*
10640      . p2p8*p4p6+fmb*hbcm2*p2p8*p5p6+fmb*hbcm2*p4p6*p4p8-fmc*hbcm2*
10641      . p4p6*p5p8+fmc*p1p3*p3p6*p5p8-fmc*p1p8*p3p5*p3p6-fmc*p3p4*p3p6*
10642      . p5p8+fmc*p3p5*p3p6*p4p8+hbcm*p1p3*p4p6*p5p8-hbcm*p1p8*p3p5*
10643      . p4p6+2*hbcm*p2p3*p4p6*p5p8-hbcm*p2p3*p5p6*p5p8-2*hbcm*p2p8*
10644      . p3p5*p4p6+hbcm*p2p8*p3p5*p5p6-hbcm*p3p4*p4p6*p5p8+hbcm*p3p5*
10645      . p4p6*p4p8))+(2*p6p8*(5*fmb*hbcm2-3*fmc*hbcm2+5*hbcm3)+4*(p5p8*
10646      . p3p6)*(-8*fb3*fmc+8*fb3*hbcm-5*hbcm)+4*(p4p8*p3p6)*(-8*fb3*fmc
10647      . -hbcm)+4*(p3p6*p2p8)*(24*fb3*fmc-8*fb3*hbcm+7*hbcm)+4*(p3p6*
10648      . p1p8)*(8*fb3*fmc+hbcm)+4*(8*fb3*hbcm*p1p8*p4p6+16*fb3*hbcm*
10649      . p2p8*p4p6-8*fb3*hbcm*p2p8*p5p6-8*fb3*hbcm*p4p6*p4p8+8*fb3*hbcm
10650      . *p5p6*p5p8-hbcm*p1p3*p6p8-7*hbcm*p2p3*p6p8+hbcm*p3p4*p6p8+5*
10651      . hbcm*p3p5*p6p8))
10652       ans1=w1*(8*(p4p8*p3p6*p3p5)*(-fmc+hbcm)+8*(p5p8*p3p6*p3p4)*(fmc
10653      . -hbcm)+8*(p3p6*p3p4*p2p8)*(-3*fmc+hbcm)+8*(p4p8*p3p6*p2p3)*(3*
10654      . fmc-hbcm)+8*(p5p8*p3p6)*(-fmc*hbcm2+fmc2*hbcm)+8*(p3p6*p2p8)*(
10655      . fmc*hbcm2-3*fmc2*hbcm)+4*(p5p6*p4p8)*(fmb*hbcm2-fmc*hbcm2+
10656      . hbcm3)+4*(p4p8*p3p6)*(-fmb*fmc*hbcm+fmb*hbcm2-2*fmc*hbcm2+fmc2
10657      . *hbcm+hbcm3)+8*(-fmc*hbcm2*p1p8*p4p6-2*fmc*hbcm2*p2p8*p4p6+fmc
10658      . *hbcm2*p2p8*p5p6-fmc*hbcm2*p5p6*p5p8+fmc*p1p3*p3p6*p4p8-fmc*
10659      . p1p8*p3p4*p3p6-fmc2*hbcm*p1p8*p3p6+hbcm*p1p3*p4p6*p4p8-hbcm*
10660      . p1p8*p3p4*p4p6+2*hbcm*p2p3*p4p6*p4p8-hbcm*p2p3*p4p8*p5p6-2*
10661      . hbcm*p2p8*p3p4*p4p6+hbcm*p2p8*p3p4*p5p6-hbcm*p3p4*p5p6*p5p8+
10662      . hbcm*p3p5*p4p8*p5p6))+ans2+ans5
10663       ans=ccc*ans1
10664       b(10)=ans
10665       ans4=8*(-fmb*hbcm2*p1p4*p6p7-3*fmb*hbcm2*p4p6*p4p7+fmb*hbcm2*
10666      . p5p6*p5p7+fmc*hbcm2*p3p5*p6p7-2*fmc*p1p5*p3p6*p3p7-2*fmc*p2p3*
10667      . p3p5*p6p7+2*fmc*p2p5*p3p6*p3p7+2*fmc*p3p6*p3p7*p4p5-hbcm*p1p4*
10668      . p3p5*p6p7+2*hbcm*p1p5*p2p3*p6p7-2*hbcm*p1p5*p3p5*p6p7-2*hbcm*
10669      . p1p5*p3p7*p4p6-2*hbcm*p2p3*p2p5*p6p7-2*hbcm*p2p3*p4p5*p6p7-2*
10670      . hbcm*p2p3*p4p6*p5p7+2*hbcm*p2p3*p4p7*p5p6+hbcm*p2p5*p3p5*p6p7+
10671      . 2*hbcm*p2p5*p3p7*p4p6+2*hbcm*p3p5*p4p5*p6p7-4*hbcm*p3p5*p4p6*
10672      . p4p7+hbcm*p3p5*p4p6*p5p7-2*hbcm*p3p5*p4p7*p5p6+hbcm*p3p5*p5p6*
10673      . p5p7+2*hbcm*p3p7*p4p5*p4p6)
10674       ans3=16*(p5p6*p3p7*p3p5)*(-2*fmc+hbcm)+16*(p5p6*p3p7*p2p3)*(2*
10675      . fmc-hbcm)+16*(p5p7*p3p6*p2p3)*(-2*fmc+hbcm)+8*(p6p7*p2p5)*(-
10676      . fmc*hbcm2+hbcm3)+8*(p5p7*p3p6)*(-fmb2*hbcm+fmc*hbcm2-hbcm3)+8*
10677      . (p4p6*p3p7*p3p5)*(fmb-5*fmc+3*hbcm)+8*(p5p7*p3p6*p3p5)*(-fmb+
10678      . fmc-hbcm)+8*(p4p7*p3p6*p3p5)*(fmb-3*fmc)+8*(p6p7*p3p5*p3p4)*(-
10679      . fmb+fmc)+8*(p6p7*p3p5*p1p3)*(fmb-fmc)+8*(p5p6*p4p7)*(-fmb*
10680      . hbcm2+fmc*hbcm2-hbcm3)+8*(p5p7*p4p6)*(fmb*hbcm2+fmc*hbcm2-
10681      . hbcm3)+8*(p6p7*p4p5)*(fmb*hbcm2-fmc*hbcm2+hbcm3)+8*(p6p7*p1p5)
10682      . *(-fmb*hbcm2+fmc*hbcm2-hbcm3)+8*p6p7*(fmb*fmc2*hbcm2-fmb2*fmc*
10683      . hbcm2+2*fmc*p3p5s2)+8*(p5p6*p3p7)*(-2*fmb*fmc*hbcm+fmb*hbcm2-3
10684      . *fmc*hbcm2+2*fmc2*hbcm+hbcm3)+8*(p4p6*p3p7)*(-5*fmb*fmc*hbcm+2
10685      . *fmb*hbcm2+fmb2*hbcm)+8*(p4p7*p3p6)*(-2*fmb*fmc*hbcm+fmb2*hbcm
10686      . )+8*(p3p7*p3p6)*(fmb*fmc*hbcm-3*fmb*fmc2+3*fmb2*fmc-fmb2*hbcm)
10687      . +8*(p6p7*p3p4)*(fmb*fmc*hbcm-fmb2*hbcm)+8*(p6p7*p1p3)*(-fmb*
10688      . fmc*hbcm+fmb2*hbcm)+8*(p3p7*p3p6*p3p5)*(3*ffmcfmb*fmb-3*
10689      . ffmcfmb*fmc-fmb+2*fmc)+ans4
10690       ans2=w2*ans3
10691       ans7=8*(-fmc*hbcm2*p2p5*p6p7-fmc*hbcm2*p4p6*p4p7+fmc*hbcm2*p5p6
10692      . *p5p7-2*fmc*p1p3*p3p6*p4p7+2*fmc*p2p3*p3p4*p6p7-2*fmc*p2p3*
10693      . p3p6*p4p7-2*fmc*p3p4*p3p5*p6p7+2*fmc*p3p5*p3p6*p4p7+2*fmc2*
10694      . hbcm*p2p3*p6p7-2*fmc2*hbcm*p3p5*p6p7-2*hbcm*p1p3*p1p4*p6p7-
10695      . hbcm*p1p3*p4p6*p5p7-2*hbcm*p1p4*p2p3*p6p7+hbcm*p1p4*p3p4*p6p7+
10696      . 2*hbcm*p1p4*p3p5*p6p7-2*hbcm*p1p4*p3p6*p4p7+2*hbcm*p1p4*p3p6*
10697      . p5p7-hbcm*p2p3*p4p6*p5p7-hbcm*p2p5*p3p4*p6p7-2*hbcm*p3p4*p4p6*
10698      . p4p7+2*hbcm*p3p4*p4p6*p5p7+hbcm*p3p4*p5p6*p5p7+hbcm*p3p5*p4p6*
10699      . p5p7)
10700       ans6=8*(p4p6*p3p7*p3p5)*(-3*fmc+hbcm)+8*(p4p6*p3p7*p2p3)*(3*fmc
10701      . -hbcm)+16*(p3p7*p3p6*p1p4)*(-2*fmc+hbcm)+8*(p4p6*p3p7*p1p3)*(3
10702      . *fmc-hbcm)+8*(p4p7*p3p6)*(fmc*hbcm2+fmc2*hbcm)+8*p6p7*(fmb*
10703      . p3p4s2-fmc*p3p4s2-fmc2*hbcm3)+8*(p4p6*p3p7*p3p4)*(-fmb-6*fmc+2
10704      . *hbcm)+8*(p5p7*p3p6*p3p4)*(fmb-fmc+hbcm)+8*(p4p7*p3p6*p3p4)*(-
10705      . fmb+fmc)+8*(p6p7*p3p4*p1p3)*(-fmb+fmc)+4*(p5p7*p4p6)*(fmb*
10706      . hbcm2+fmc*hbcm2+hbcm3)+8*(p6p7*p1p4)*(fmb*hbcm2+hbcm3)+4*(p4p6
10707      . *p3p7)*(-5*fmb*fmc*hbcm+fmb*hbcm2-2*fmc*hbcm2-5*fmc2*hbcm+
10708      . hbcm3)+8*(p5p7*p3p6)*(fmb*fmc*hbcm+fmc*hbcm2-2*fmc2*hbcm)+8*(
10709      . p3p7*p3p6)*(fmb*fmc*hbcm-3*fmb*fmc2-fmc2*hbcm+fmc3)+8*(p6p7*
10710      . p3p4)*(fmb*fmc*hbcm-fmc*hbcm2-fmc2*hbcm)+8*(p6p7*p1p3)*(-fmb*
10711      . fmc*hbcm+fmc2*hbcm)+8*(p3p7*p3p6*p3p4)*(-3*ffmcfmb*fmb-ffmcfmb
10712      . *fmc+fmb)+ans7
10713       ans5=w1*ans6
10714       ans10=8*(p3p7*p3p6*p1p3)*(3*ffmcfmb*fmb+ffmcfmb*fmc-fmb)+8*(-
10715      . fmc*hbcm2*p2p5*p6p7+fmc*hbcm2*p5p6*p5p7-2*fmc*p1p3*p2p3*p6p7+2
10716      . *fmc*p1p3*p3p5*p6p7+2*fmc*p2p3*p3p4*p6p7+2*fmc*p2p3*p3p6*p4p7-
10717      . 6*fmc*p2p3*p3p6*p5p7+2*fmc*p2p5*p3p6*p3p7-2*fmc*p3p4*p3p5*p6p7
10718      . -2*fmc*p3p5*p3p6*p4p7+2*fmc*p3p5*p3p6*p5p7+2*fmc2*hbcm*p2p3*
10719      . p6p7-2*fmc2*hbcm*p3p5*p6p7-hbcm*p1p3*p1p4*p6p7+hbcm*p1p3*p2p5*
10720      . p6p7+2*hbcm*p1p3*p4p6*p4p7-5*hbcm*p1p3*p4p6*p5p7-hbcm*p1p3*
10721      . p5p6*p5p7-2*hbcm*p1p4*p2p3*p6p7+hbcm*p1p4*p3p4*p6p7+2*hbcm*
10722      . p1p4*p3p5*p6p7-2*hbcm*p1p4*p3p6*p4p7+2*hbcm*p1p4*p3p6*p5p7+2*
10723      . hbcm*p1p4*p3p7*p4p6+4*hbcm*p2p3*p4p6*p4p7-8*hbcm*p2p3*p4p6*
10724      . p5p7-hbcm*p2p5*p3p4*p6p7+2*hbcm*p2p5*p3p7*p4p6-2*hbcm*p3p4*
10725      . p4p6*p4p7+5*hbcm*p3p4*p4p6*p5p7+hbcm*p3p4*p5p6*p5p7-4*hbcm*
10726      . p3p5*p4p6*p4p7+4*hbcm*p3p5*p4p6*p5p7)
10727       ans9=32*(p4p6*p3p7*p3p5)*(-2*fmc+hbcm)+32*(p4p6*p3p7*p2p3)*(2*
10728      . fmc-hbcm)+16*(p3p7*p3p6*p1p4)*(-fmc+hbcm)+8*(p4p6*p3p7*p3p4)*(
10729      . -fmb-7*fmc+3*hbcm)+8*(p5p7*p3p6*p3p4)*(fmb+fmc+hbcm)+8*(p4p7*
10730      . p3p6*p3p4)*(-fmb+fmc)+8*p6p7*(fmb*p1p3s2+fmb*p3p4s2-fmc*p1p3s2
10731      . -fmc*p3p4s2-fmc2*hbcm3)+8*(p4p6*p3p7*p1p3)*(fmb+7*fmc-3*hbcm)+
10732      . 8*(p5p7*p3p6*p1p3)*(-fmb-fmc-hbcm)+8*(p4p7*p3p6*p1p3)*(fmb-fmc
10733      . )+16*(p6p7*p3p4*p1p3)*(-fmb+fmc)+8*(p5p7*p4p6)*(fmb*hbcm2+3*
10734      . fmc*hbcm2+2*hbcm3)+8*(p4p7*p4p6)*(-fmb*hbcm2-2*hbcm3)+8*(p6p7*
10735      . p1p4)*(fmb*hbcm2+hbcm3)+8*(p4p6*p3p7)*(-3*fmb*fmc*hbcm+fmb*
10736      . hbcm2-3*fmc*hbcm2-3*fmc2*hbcm+2*hbcm3)+8*(p5p7*p3p6)*(fmb*fmc*
10737      . hbcm+2*fmc*hbcm2)+8*(p4p7*p3p6)*(-fmb*fmc*hbcm-fmc*hbcm2+2*
10738      . fmc2*hbcm)+8*(p3p7*p3p6)*(fmb*fmc*hbcm-3*fmb*fmc2+fmc*hbcm2-3*
10739      . fmc2*hbcm+fmc3)+8*(p6p7*p3p4)*(fmb*fmc*hbcm-fmc*hbcm2-fmc2*
10740      . hbcm)+8*(p6p7*p1p3)*(-fmb*fmc*hbcm+fmc*hbcm2+fmc2*hbcm)+16*(
10741      . p3p7*p3p6*p3p5)*(-2*ffmcfmb*fmc+fmc)+16*(p3p7*p3p6*p2p3)*(2*
10742      . ffmcfmb*fmc-fmc)+8*(p3p7*p3p6*p3p4)*(-3*ffmcfmb*fmb-ffmcfmb*
10743      . fmc+fmb)+ans10
10744       ans8=w5*ans9
10745       ans11=(16*(p4p6*p3p7)*(6*fb3*fmc-2*fb3*hbcm+2*fb4*fmb-hbcm)+4*(
10746      . p5p7*p3p6)*(12*fb3*fmc-8*fb3*hbcm-8*fb4*fmb+4*fb4*fmc+5*hbcm)+
10747      . 4*(p4p7*p3p6)*(4*fb3*fmc+8*fb4*fmb-4*fb4*fmc+hbcm)+4*(p3p7*
10748      . p3p6)*(4*fb3*fmc+24*fb4*ffmcfmb*fmb-8*fb4*ffmcfmb*fmc-8*fb4*
10749      . fmb+4*fb4*fmc+3*fmb-fmc)+4*(p6p7*p3p5)*(4*fb3*fmc+4*fb4*fmc-3*
10750      . hbcm)+4*(p6p7*p3p4)*(-4*fb3*fmc-8*fb4*fmb+4*fb4*fmc-hbcm)+4*(
10751      . p6p7*p2p3)*(-4*fb3*fmc-4*fb4*fmc+3*hbcm)+4*(p6p7*p1p3)*(4*fb3*
10752      . fmc+8*fb4*fmb-4*fb4*fmc+hbcm)+2*p6p7*(4*fb3*fmb*fmc*hbcm+4*fb3
10753      . *fmc*hbcm2-12*fb3*fmc2*hbcm-12*fb4*fmb*fmc*hbcm+4*fb4*fmc*
10754      . hbcm2+4*fb4*fmc2*hbcm-3*fmb*hbcm2+fmc*hbcm2-3*hbcm3)+32*(fb3*
10755      . hbcm*p1p4*p6p7+fb3*hbcm*p2p5*p6p7+2*fb3*hbcm*p4p6*p4p7-fb3*
10756      . hbcm*p4p6*p5p7-fb3*hbcm*p5p6*p5p7))
10757       ans1=ans2+ans5+ans8+ans11
10758       ans=ccc*ans1
10759       b(11)=ans
10760       ans5=8*(4*ffmcfmb*p3p5*p3p6*p3p7*p5p8+4*fmb*hbcm*p1p8*p2p3*p6p7
10761      . -2*fmb*hbcm*p2p3*p4p6*p7p8+2*fmb*hbcm*p2p3*p4p7*p6p8-4*fmb*
10762      . hbcm*p2p3*p4p8*p6p7+2*fmb*hbcm*p2p3*p5p6*p7p8-2*fmb*hbcm*p2p3*
10763      . p5p7*p6p8-2*fmb*hbcm*p2p3*p5p8*p6p7+6*fmb*hbcm*p2p8*p3p7*p4p6-
10764      . 2*fmb*hbcm*p2p8*p3p7*p5p6-hbcm2*p1p4*p5p8*p6p7-2*hbcm2*p1p5*
10765      . p5p8*p6p7+hbcm2*p2p5*p5p8*p6p7+2*hbcm2*p4p5*p5p8*p6p7-3*hbcm2*
10766      . p4p6*p4p7*p5p8-2*hbcm2*p4p7*p5p6*p5p8+hbcm2*p5p6*p5p7*p5p8+2*
10767      . p1p3*p3p5*p5p8*p6p7+4*p1p8*p2p3*p3p5*p6p7-2*p2p3*p3p5*p4p6*
10768      . p7p8+2*p2p3*p3p5*p4p7*p6p8-4*p2p3*p3p5*p4p8*p6p7+2*p2p3*p3p5*
10769      . p5p6*p7p8-2*p2p3*p3p5*p5p7*p6p8-2*p2p3*p3p5*p5p8*p6p7+6*p2p8*
10770      . p3p5*p3p7*p4p6-2*p2p8*p3p5*p3p7*p5p6-2*p3p4*p3p5*p5p8*p6p7+2*
10771      . p3p5*p3p6*p4p7*p5p8-2*p3p5*p3p6*p5p7*p5p8+2*p3p5*p3p7*p4p6*
10772      . p5p8+2*p3p5*p3p7*p5p6*p5p8)
10773       ans4=8*(p7p8*p5p6)*(fmb*fmc*hbcm2-fmb*hbcm3+fmb2*hbcm2-2*p3p5s2
10774      . )+8*(p6p7*p4p8)*(-fmb*fmc*hbcm2+fmb*hbcm3-fmb2*hbcm2+2*p3p5s2)
10775      . +8*(p6p8*p4p7)*(fmb*fmc*hbcm2-fmb*hbcm3+fmb2*hbcm2-2*p3p5s2)+8
10776      . *(p7p8*p4p6)*(fmb*fmc*hbcm2-fmb*hbcm3+fmb2*hbcm2-2*p3p5s2)+8*(
10777      . p7p8*p3p6)*(fmb*fmc*hbcm2-fmb*hbcm3+fmb2*hbcm2-2*p3p5s2)+8*(
10778      . p6p7*p2p8)*(-fmb*fmc*hbcm2+fmb*hbcm3-fmb2*hbcm2+2*p3p5s2)+8*(
10779      . p6p7*p1p8)*(fmb*fmc*hbcm2-fmb*hbcm3+fmb2*hbcm2-2*p3p5s2)+8*(
10780      . p6p8*p3p7)*(-4*ffmcfmb*p3p5s2-3*fmb*fmc*hbcm2+2*fmb*fmc2*hbcm+
10781      . fmb*hbcm3+2*fmb2*fmc*hbcm-fmb2*hbcm2+2*p3p5s2)+(p3p7*p3p6*p3p5
10782      . *p2p8)*(64*ffmcfmb-16)+(p6p8*p3p7*p3p5*p2p3)*(32*ffmcfmb-16)+(
10783      . p7p8*p3p6*p3p5*p2p3)*(-32*ffmcfmb+16)+ans5
10784       ans3=8*(p5p8*p5p6*p3p7)*(fmb*hbcm-5*fmc*hbcm+3*hbcm2)+8*(p5p8*
10785      . p4p6*p3p7)*(fmb*hbcm-5*fmc*hbcm+2*hbcm2)+8*(p5p8*p5p7*p3p6)*(-
10786      . fmb*hbcm-hbcm2)+8*(p5p8*p4p7*p3p6)*(fmb*hbcm-2*fmc*hbcm)+8*(
10787      . p6p8*p5p7*p3p5)*(fmb*hbcm-fmc*hbcm+hbcm2)+8*(p7p8*p5p6*p3p5)*(
10788      . -fmb*hbcm+fmc*hbcm-hbcm2)+8*(p6p7*p4p8*p3p5)*(fmb*hbcm-fmc*
10789      . hbcm+hbcm2)+8*(p6p8*p4p7*p3p5)*(-fmb*hbcm+fmc*hbcm-hbcm2)+8*(
10790      . p7p8*p4p6*p3p5)*(-fmb*hbcm+fmc*hbcm-hbcm2)+8*(p7p8*p3p6*p3p5)*
10791      . (-fmb*hbcm+fmc*hbcm-hbcm2)+8*(p6p7*p5p8*p3p4)*(-fmb*hbcm+fmc*
10792      . hbcm)+8*(p6p7*p3p5*p2p8)*(fmb*hbcm-fmc*hbcm+hbcm2)+8*(p6p7*
10793      . p3p5*p1p8)*(-fmb*hbcm+fmc*hbcm-hbcm2)+8*(p6p7*p5p8*p1p3)*(fmb*
10794      . hbcm-fmc*hbcm)+8*(p5p8*p3p7*p3p6)*(2*fmb*fmc-fmc*hbcm-2*fmc2+
10795      . hbcm2)+8*(p6p8*p3p7*p3p5)*(-2*fmb*fmc+fmb*hbcm-3*fmc*hbcm+2*
10796      . fmc2+hbcm2)+16*(p3p7*p3p6*p2p8)*(4*fmb*fmc-fmb*hbcm)+16*(p6p8*
10797      . p3p7*p2p3)*(2*fmb*fmc-fmb*hbcm)+16*(p7p8*p3p6*p2p3)*(-2*fmb*
10798      . fmc+fmb*hbcm)+8*(p6p7*p5p8)*(-fmb*fmc*hbcm2+fmc2*hbcm2)+8*(
10799      . p6p8*p5p7)*(-fmb*fmc*hbcm2+fmb*hbcm3-fmb2*hbcm2+2*p3p5s2)+ans4
10800       ans2=w2*ans3
10801       ans11=-hbcm2*p4p6*p4p7*p4p8+hbcm2*p4p6*p4p8*p5p7+hbcm2*p4p6*
10802      . p5p7*p5p8+hbcm2*p4p8*p5p6*p5p7-2*p1p3*p3p4*p5p8*p6p7-4*p1p8*
10803      . p2p3*p3p4*p6p7+2*p1p8*p3p4*p3p5*p6p7+2*p2p3*p3p4*p4p6*p7p8-2*
10804      . p2p3*p3p4*p4p7*p6p8+4*p2p3*p3p4*p4p8*p6p7-2*p2p3*p3p4*p5p6*
10805      . p7p8+2*p2p3*p3p4*p5p7*p6p8+2*p2p3*p3p4*p5p8*p6p7-2*p2p8*p3p4*
10806      . p3p5*p6p7-6*p2p8*p3p4*p3p7*p4p6+2*p2p8*p3p4*p3p7*p5p6+2*p3p4*
10807      . p3p5*p3p6*p7p8+2*p3p4*p3p5*p4p6*p7p8+2*p3p4*p3p5*p4p7*p6p8-2*
10808      . p3p4*p3p5*p4p8*p6p7+2*p3p4*p3p5*p5p6*p7p8-2*p3p4*p3p5*p5p7*
10809      . p6p8-2*p3p4*p3p6*p4p7*p5p8+2*p3p4*p3p6*p5p7*p5p8-2*p3p4*p3p7*
10810      . p4p6*p5p8-2*p3p4*p3p7*p5p6*p5p8+2*p3p4s2*p5p8*p6p7
10811       ans10=-4*ffmcfmb*p3p4*p3p6*p3p7*p5p8+fmb*hbcm*p3p4*p4p6*p7p8-
10812      . fmb*hbcm*p3p6*p4p7*p4p8-2*fmc*hbcm*p1p3*p5p8*p6p7-4*fmc*hbcm*
10813      . p1p8*p2p3*p6p7+2*fmc*hbcm*p1p8*p3p5*p6p7-2*fmc*hbcm*p1p8*p3p6*
10814      . p4p7+3*fmc*hbcm*p2p3*p4p6*p7p8-2*fmc*hbcm*p2p3*p4p7*p6p8+4*fmc
10815      . *hbcm*p2p3*p4p8*p6p7-2*fmc*hbcm*p2p3*p5p6*p7p8+2*fmc*hbcm*p2p3
10816      . *p5p7*p6p8+2*fmc*hbcm*p2p3*p5p8*p6p7-2*fmc*hbcm*p2p4*p3p6*p7p8
10817      . -2*fmc*hbcm*p2p8*p3p5*p6p7+2*fmc*hbcm*p2p8*p3p6*p4p7-7*fmc*
10818      . hbcm*p2p8*p3p7*p4p6+2*fmc*hbcm*p2p8*p3p7*p5p6+2*fmc*hbcm*p3p4*
10819      . p5p8*p6p7+2*fmc*hbcm*p3p5*p3p6*p7p8+3*fmc*hbcm*p3p5*p4p6*p7p8+
10820      . 2*fmc*hbcm*p3p5*p4p7*p6p8-2*fmc*hbcm*p3p5*p4p8*p6p7+2*fmc*hbcm
10821      . *p3p5*p5p6*p7p8-2*fmc*hbcm*p3p5*p5p7*p6p8-2*fmc*hbcm*p3p6*p4p5
10822      . *p7p8+2*fmc*hbcm*p3p6*p5p7*p5p8-2*fmc*hbcm*p3p7*p5p6*p5p8-fmc*
10823      . hbcm3*p4p8*p6p7-4*fmc2*p3p6*p3p7*p5p8+hbcm2*p1p2*p4p6*p7p8-2*
10824      . hbcm2*p1p4*p1p8*p6p7+2*hbcm2*p1p4*p2p8*p6p7-2*hbcm2*p1p4*p4p7*
10825      . p6p8+hbcm2*p1p4*p4p8*p6p7-2*hbcm2*p1p4*p5p6*p7p8+2*hbcm2*p1p4*
10826      . p5p7*p6p8+2*hbcm2*p1p4*p5p8*p6p7+hbcm2*p1p5*p4p6*p7p8-hbcm2*
10827      . p1p8*p4p6*p5p7-hbcm2*p2p4*p4p6*p7p8-hbcm2*p2p5*p4p8*p6p7+hbcm2
10828      . *p2p8*p4p6*p4p7-hbcm2*p3p4*p4p8*p6p7-hbcm2*p4p5*p4p6*p7p8+
10829      . ans11
10830       ans9=8*ans10
10831       ans8=8*(p7p8*p5p6)*(fmb*fmc*hbcm2+fmc*hbcm3+fmc2*hbcm2)+8*(p6p8
10832      . *p4p7)*(fmb*fmc*hbcm2+fmc*hbcm3+fmc2*hbcm2)+8*(p7p8*p4p6)*(fmb
10833      . *fmc*hbcm2+2*fmc*hbcm3-2*fmc2*hbcm2)+8*(p6p8*p3p7)*(-fmb*fmc*
10834      . hbcm2+2*fmb*fmc2*hbcm-fmc*hbcm3+fmc2*hbcm2+2*fmc3*hbcm)+8*(
10835      . p7p8*p3p6)*(fmb*fmc*hbcm2+fmc*hbcm3+fmc2*hbcm2-2*fmc3*hbcm)+8*
10836      . (p6p7*p2p8)*(-fmb*fmc*hbcm2-fmc*hbcm3-fmc2*hbcm2)+8*(p6p7*p1p8
10837      . )*(fmb*fmc*hbcm2+fmc*hbcm3+fmc2*hbcm2)+(p6p8*p3p7*p3p5*p3p4)*(
10838      . 32*ffmcfmb-16)+(p3p7*p3p6*p3p4*p2p8)*(-64*ffmcfmb+16)+(p6p8*
10839      . p3p7*p3p4*p2p3)*(-32*ffmcfmb+16)+(p7p8*p3p6*p3p4*p2p3)*(32*
10840      . ffmcfmb-16)+ans9
10841       ans7=8*(p5p8*p4p6*p3p7)*(-5*fmc*hbcm+hbcm2)+16*(p6p8*p3p7*p3p5)
10842      . *(-fmc*hbcm+2*fmc2)+16*(p3p7*p3p6*p2p8)*(fmc*hbcm-4*fmc2)+16*(
10843      . p6p8*p3p7*p2p3)*(fmc*hbcm-2*fmc2)+16*(p7p8*p3p6*p2p3)*(-fmc*
10844      . hbcm+2*fmc2)+8*(p4p6*p3p7*p1p8)*(3*fmc*hbcm-hbcm2)+16*(p6p8*
10845      . p3p7*p1p4)*(-2*fmc*hbcm+hbcm2)+16*(p7p8*p3p6*p1p4)*(fmc*hbcm-
10846      . hbcm2)+8*(p7p8*p4p6*p1p3)*(-fmc*hbcm+hbcm2)+8*(p5p6*p4p8*p3p7)
10847      . *(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p4p8*p4p6*p3p7)*(-fmb*hbcm-4*
10848      . fmc*hbcm+hbcm2)+8*(p5p7*p4p8*p3p6)*(fmb*hbcm+hbcm2)+8*(p6p8*
10849      . p5p7*p3p4)*(-fmb*hbcm-fmc*hbcm-hbcm2)+8*(p7p8*p5p6*p3p4)*(fmb*
10850      . hbcm+fmc*hbcm+hbcm2)+8*(p6p8*p4p7*p3p4)*(fmb*hbcm+fmc*hbcm+
10851      . hbcm2)+8*(p7p8*p3p6*p3p4)*(fmb*hbcm-fmc*hbcm+hbcm2)+8*(p6p7*
10852      . p3p4*p2p8)*(-fmb*hbcm-fmc*hbcm-hbcm2)+8*(p6p7*p3p4*p1p8)*(fmb*
10853      . hbcm+fmc*hbcm+hbcm2)+8*(p6p7*p4p8*p1p3)*(-fmb*hbcm-fmc*hbcm)+8
10854      . *(p4p8*p3p7*p3p6)*(-2*fmb*fmc-fmc*hbcm-2*fmc2+hbcm2)+8*(p6p8*
10855      . p3p7*p3p4)*(2*fmb*fmc-fmb*hbcm+fmc*hbcm+2*fmc2-hbcm2)+8*(p6p8*
10856      . p5p7)*(-fmb*fmc*hbcm2-fmc*hbcm3-fmc2*hbcm2)+ans8
10857       ans6=w1*ans7
10858       ans19=2*p3p4*p3p5*p3p6*p7p8+2*p3p4*p3p5*p4p6*p7p8+2*p3p4*p3p5*
10859      . p4p7*p6p8-2*p3p4*p3p5*p4p8*p6p7+2*p3p4*p3p5*p5p6*p7p8-2*p3p4*
10860      . p3p5*p5p7*p6p8-2*p3p4*p3p6*p4p7*p5p8+2*p3p4*p3p6*p5p7*p5p8-2*
10861      . p3p4*p3p7*p4p6*p5p8-2*p3p4*p3p7*p5p6*p5p8
10862       ans18=hbcm2*p1p8*p3p4*p6p7+hbcm2*p1p8*p4p6*p4p7-4*hbcm2*p1p8*
10863      . p4p6*p5p7-hbcm2*p1p8*p5p6*p5p7-2*hbcm2*p2p4*p4p6*p7p8-2*hbcm2*
10864      . p2p5*p4p6*p7p8-hbcm2*p2p5*p4p8*p6p7+2*hbcm2*p2p8*p4p6*p4p7+2*
10865      . hbcm2*p2p8*p4p6*p5p7-hbcm2*p3p4*p4p8*p6p7-2*hbcm2*p4p5*p4p6*
10866      . p7p8-hbcm2*p4p6*p4p7*p4p8-2*hbcm2*p4p6*p4p7*p5p8+4*hbcm2*p4p6*
10867      . p4p8*p5p7+2*hbcm2*p4p6*p5p7*p5p8+hbcm2*p4p8*p5p6*p5p7+4*p1p3*
10868      . p1p8*p2p3*p6p7-2*p1p3*p1p8*p3p5*p6p7-2*p1p3*p2p3*p4p6*p7p8+2*
10869      . p1p3*p2p3*p4p7*p6p8-4*p1p3*p2p3*p4p8*p6p7+2*p1p3*p2p3*p5p6*
10870      . p7p8-2*p1p3*p2p3*p5p7*p6p8-2*p1p3*p2p3*p5p8*p6p7+2*p1p3*p2p8*
10871      . p3p5*p6p7+6*p1p3*p2p8*p3p7*p4p6-2*p1p3*p2p8*p3p7*p5p6-4*p1p3*
10872      . p3p4*p5p8*p6p7-2*p1p3*p3p5*p3p6*p7p8-2*p1p3*p3p5*p4p6*p7p8-2*
10873      . p1p3*p3p5*p4p7*p6p8+2*p1p3*p3p5*p4p8*p6p7-2*p1p3*p3p5*p5p6*
10874      . p7p8+2*p1p3*p3p5*p5p7*p6p8+2*p1p3*p3p6*p4p7*p5p8-2*p1p3*p3p6*
10875      . p5p7*p5p8+2*p1p3*p3p7*p4p6*p5p8+2*p1p3*p3p7*p5p6*p5p8-4*p1p8*
10876      . p2p3*p3p4*p6p7+2*p1p8*p3p4*p3p5*p6p7+2*p2p3*p3p4*p4p6*p7p8-2*
10877      . p2p3*p3p4*p4p7*p6p8+4*p2p3*p3p4*p4p8*p6p7-2*p2p3*p3p4*p5p6*
10878      . p7p8+2*p2p3*p3p4*p5p7*p6p8+2*p2p3*p3p4*p5p8*p6p7-2*p2p8*p3p4*
10879      . p3p5*p6p7-6*p2p8*p3p4*p3p7*p4p6+2*p2p8*p3p4*p3p7*p5p6+ans19
10880       ans17=4*ffmcfmb*p1p3*p3p6*p3p7*p5p8-4*ffmcfmb*p3p4*p3p6*p3p7*
10881      . p5p8-4*fmb*fmc*p2p3*p3p6*p7p8+fmb*hbcm*p1p8*p3p6*p4p7-fmb*hbcm
10882      . *p3p6*p4p7*p4p8+2*fmc*hbcm*p1p2*p3p6*p7p8-2*fmc*hbcm*p1p3*p5p8
10883      . *p6p7+2*fmc*hbcm*p1p5*p3p6*p7p8-4*fmc*hbcm*p1p8*p2p3*p6p7+2*
10884      . fmc*hbcm*p1p8*p3p5*p6p7-2*fmc*hbcm*p2p3*p4p7*p6p8+4*fmc*hbcm*
10885      . p2p3*p4p8*p6p7-2*fmc*hbcm*p2p3*p5p6*p7p8+2*fmc*hbcm*p2p3*p5p7*
10886      . p6p8+2*fmc*hbcm*p2p3*p5p8*p6p7-2*fmc*hbcm*p2p4*p3p6*p7p8-2*fmc
10887      . *hbcm*p2p5*p3p6*p7p8-2*fmc*hbcm*p2p8*p3p5*p6p7+2*fmc*hbcm*p2p8
10888      . *p3p6*p4p7+2*fmc*hbcm*p2p8*p3p6*p5p7+2*fmc*hbcm*p2p8*p3p7*p5p6
10889      . +2*fmc*hbcm*p3p4*p5p8*p6p7+2*fmc*hbcm*p3p5*p4p7*p6p8-2*fmc*
10890      . hbcm*p3p5*p4p8*p6p7+2*fmc*hbcm*p3p5*p5p6*p7p8-2*fmc*hbcm*p3p5*
10891      . p5p7*p6p8-2*fmc*hbcm*p3p6*p4p5*p7p8-2*fmc*hbcm*p3p6*p4p7*p5p8+
10892      . 2*fmc*hbcm*p3p6*p5p7*p5p8-2*fmc*hbcm*p3p7*p5p6*p5p8+fmc*hbcm3*
10893      . p1p8*p6p7-fmc*hbcm3*p4p8*p6p7-4*fmc2*p3p6*p3p7*p5p8+2*hbcm2*
10894      . p1p2*p4p6*p7p8-hbcm2*p1p3*p1p8*p6p7+hbcm2*p1p3*p4p8*p6p7-hbcm2
10895      . *p1p4*p1p8*p6p7+2*hbcm2*p1p4*p2p8*p6p7-2*hbcm2*p1p4*p4p7*p6p8+
10896      . hbcm2*p1p4*p4p8*p6p7-2*hbcm2*p1p4*p5p6*p7p8+2*hbcm2*p1p4*p5p7*
10897      . p6p8+2*hbcm2*p1p4*p5p8*p6p7+2*hbcm2*p1p5*p4p6*p7p8+hbcm2*p1p8*
10898      . p2p5*p6p7+ans18
10899       ans16=8*ans17
10900       ans15=(p3p7*p3p6*p3p4*p2p8)*(-64*ffmcfmb+16)+(p6p8*p3p7*p3p4*
10901      . p2p3)*(-32*ffmcfmb+16)+(p7p8*p3p6*p3p4*p2p3)*(32*ffmcfmb-16)+(
10902      . p6p8*p3p7*p3p5*p1p3)*(-32*ffmcfmb+16)+(p3p7*p3p6*p2p8*p1p3)*(
10903      . 64*ffmcfmb-16)+(p6p8*p3p7*p2p3*p1p3)*(32*ffmcfmb-16)+(p7p8*
10904      . p3p6*p2p3*p1p3)*(-32*ffmcfmb+16)+ans16
10905       ans14=8*(p7p8*p5p6*p1p3)*(-fmb*hbcm-fmc*hbcm-hbcm2)+8*(p6p8*
10906      . p4p7*p1p3)*(-fmb*hbcm-fmc*hbcm-hbcm2)+8*(p7p8*p4p6*p1p3)*(-fmb
10907      . *hbcm-fmc*hbcm+hbcm2)+8*(p7p8*p3p6*p1p3)*(-fmb*hbcm+fmc*hbcm-
10908      . hbcm2)+8*(p6p7*p2p8*p1p3)*(fmb*hbcm+fmc*hbcm+hbcm2)+8*(p4p8*
10909      . p3p7*p3p6)*(-2*fmb*fmc+fmc*hbcm-2*fmc2+hbcm2)+8*(p6p8*p3p7*
10910      . p3p4)*(2*fmb*fmc-fmb*hbcm+fmc*hbcm+2*fmc2-hbcm2)+16*(p3p7*p3p6
10911      . *p2p8)*(3*fmb*fmc-fmc*hbcm-fmc2)+8*(p3p7*p3p6*p1p8)*(2*fmb*fmc
10912      . -fmc*hbcm+2*fmc2-hbcm2)+8*(p6p8*p3p7*p1p3)*(-2*fmb*fmc+fmb*
10913      . hbcm-fmc*hbcm-2*fmc2+hbcm2)+8*(p6p8*p5p7)*(-fmb*fmc*hbcm2-fmc*
10914      . hbcm3-fmc2*hbcm2)+8*(p7p8*p5p6)*(fmb*fmc*hbcm2+fmc*hbcm3+fmc2*
10915      . hbcm2)+8*(p6p8*p4p7)*(fmb*fmc*hbcm2+fmc*hbcm3+fmc2*hbcm2)+8*(
10916      . p7p8*p4p6)*(fmb*fmc*hbcm2-fmb2*hbcm2+fmc*hbcm3-hbcm4)+8*(p6p8*
10917      . p3p7)*(-fmb*fmc*hbcm2+2*fmb*fmc2*hbcm-fmc*hbcm3+fmc2*hbcm2+2*
10918      . fmc3*hbcm)+8*(p7p8*p3p6)*(fmb*fmc*hbcm2-fmb2*fmc*hbcm+fmc2*
10919      . hbcm2-fmc3*hbcm)+8*(p6p7*p2p8)*(-fmb*fmc*hbcm2-fmc*hbcm3-fmc2*
10920      . hbcm2)+(p6p8*p3p7*p3p5*p3p4)*(32*ffmcfmb-16)+ans15
10921       ans13=16*(p6p7*p5p8)*(p1p3s2+p3p4s2)+16*(p5p8*p4p6*p3p7)*(-3*
10922      . fmc*hbcm+hbcm2)+16*(p7p8*p4p6*p3p5)*(fmc*hbcm-hbcm2)+16*(p6p8*
10923      . p3p7*p3p5)*(-fmc*hbcm+2*fmc2)+16*(p6p8*p3p7*p2p3)*(fmc*hbcm-2*
10924      . fmc2)+16*(p6p8*p3p7*p1p4)*(-2*fmc*hbcm+hbcm2)+16*(p7p8*p3p6*
10925      . p1p4)*(fmc*hbcm-hbcm2)+8*(p5p6*p4p8*p3p7)*(-fmb*hbcm-fmc*hbcm+
10926      . hbcm2)+8*(p4p8*p4p6*p3p7)*(-fmb*hbcm-5*fmc*hbcm+4*hbcm2)+8*(
10927      . p5p7*p4p8*p3p6)*(fmb*hbcm+2*fmc*hbcm+hbcm2)+8*(p6p8*p5p7*p3p4)
10928      . *(-fmb*hbcm-fmc*hbcm-hbcm2)+8*(p7p8*p5p6*p3p4)*(fmb*hbcm+fmc*
10929      . hbcm+hbcm2)+8*(p6p8*p4p7*p3p4)*(fmb*hbcm+fmc*hbcm+hbcm2)+8*(
10930      . p7p8*p4p6*p3p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p7p8*p3p6*p3p4)*(
10931      . fmb*hbcm-fmc*hbcm+hbcm2)+16*(p4p6*p3p7*p2p8)*(3*fmb*hbcm-2*
10932      . hbcm2)+8*(p6p7*p3p4*p2p8)*(-fmb*hbcm-fmc*hbcm-hbcm2)+16*(p7p8*
10933      . p4p6*p2p3)*(-2*fmb*hbcm-fmc*hbcm+hbcm2)+8*(p5p6*p3p7*p1p8)*(
10934      . fmb*hbcm+fmc*hbcm-hbcm2)+8*(p4p6*p3p7*p1p8)*(fmb*hbcm+5*fmc*
10935      . hbcm-4*hbcm2)+8*(p5p7*p3p6*p1p8)*(-fmb*hbcm-2*fmc*hbcm-hbcm2)+
10936      . 8*(p6p8*p5p7*p1p3)*(fmb*hbcm+fmc*hbcm+hbcm2)+ans14
10937       ans12=w5*ans13
10938       ans21=8*(p6p8*p3p7)*(-8*fb3*fmb*fmc+4*fb3*fmb*hbcm+2*fb3*fmc*
10939      . hbcm-4*fb3*fmc2-10*fb4*fmc*hbcm+4*fb4*fmc2+4*fb4*hbcm2-fmb*
10940      . hbcm-2*fmc*hbcm+2*hbcm2)+64*(fb4*p1p3*p5p8*p6p7+2*fb4*p1p8*
10941      . p2p3*p6p7-fb4*p1p8*p3p5*p6p7-fb4*p2p3*p4p6*p7p8+fb4*p2p3*p4p7*
10942      . p6p8-2*fb4*p2p3*p4p8*p6p7+fb4*p2p3*p5p6*p7p8-fb4*p2p3*p5p7*
10943      . p6p8-fb4*p2p3*p5p8*p6p7+fb4*p2p8*p3p5*p6p7+3*fb4*p2p8*p3p7*
10944      . p4p6-fb4*p2p8*p3p7*p5p6-fb4*p3p4*p5p8*p6p7-fb4*p3p5*p3p6*p7p8-
10945      . fb4*p3p5*p4p6*p7p8-fb4*p3p5*p4p7*p6p8+fb4*p3p5*p4p8*p6p7-fb4*
10946      . p3p5*p5p6*p7p8+fb4*p3p5*p5p7*p6p8+fb4*p3p6*p4p7*p5p8-fb4*p3p6*
10947      . p5p7*p5p8+fb4*p3p7*p4p6*p5p8+fb4*p3p7*p5p6*p5p8)
10948       ans20=(p5p8*p3p7*p3p6)*(128*fb4*ffmcfmb+16)+(p6p8*p3p7*p3p5)*(-
10949      . 128*fb4*ffmcfmb+64*fb4-16)+(p3p7*p3p6*p2p8)*(256*fb4*ffmcfmb-
10950      . 64*fb4+32)+(p6p8*p3p7*p2p3)*(128*fb4*ffmcfmb-64*fb4+16)+(p7p8*
10951      . p3p6*p2p3)*(-128*fb4*ffmcfmb+64*fb4-16)+4*(p6p7*p5p8)*(4*fb3*
10952      . fmc*hbcm-12*fb4*fmc*hbcm-3*hbcm2)+8*(p6p8*p5p7)*(4*fb3*fmb*
10953      . hbcm+2*fb3*fmc*hbcm-2*fb4*fmc*hbcm+4*fb4*hbcm2+3*hbcm2)+4*(
10954      . p7p8*p5p6)*(-8*fb3*fmb*hbcm-4*fb3*fmc*hbcm+4*fb4*fmc*hbcm-8*
10955      . fb4*hbcm2+hbcm2)+4*(p6p7*p4p8)*(8*fb3*fmb*hbcm+4*fb3*fmc*hbcm-
10956      . 4*fb4*fmc*hbcm+8*fb4*hbcm2-hbcm2)+16*(p6p8*p4p7)*(-2*fb3*fmb*
10957      . hbcm-fb3*fmc*hbcm+fb4*fmc*hbcm-2*fb4*hbcm2)+8*(p7p8*p4p6)*(-4*
10958      . fb3*fmb*hbcm+4*fb4*fmc*hbcm-4*fb4*hbcm2+3*hbcm2)+4*(p7p8*p3p6)
10959      . *(-8*fb3*fmb*hbcm-4*fb3*fmc*hbcm+4*fb3*fmc2+4*fb4*fmc*hbcm+4*
10960      . fb4*fmc2-8*fb4*hbcm2+2*fmb*hbcm+fmc*hbcm+hbcm2)+4*(p6p7*p2p8)*
10961      . (8*fb3*fmb*hbcm+4*fb3*fmc*hbcm-4*fb4*fmc*hbcm+8*fb4*hbcm2-
10962      . hbcm2)+4*(p6p7*p1p8)*(-8*fb3*fmb*hbcm-4*fb3*fmc*hbcm+4*fb4*fmc
10963      . *hbcm-8*fb4*hbcm2+hbcm2)+ans21
10964       ans1=ans2+ans6+ans12+ans20
10965       ans=ccc*ans1
10966       b(12)=ans
10967       ans2=w5*(4*(p5p8*p3p4)*(fmc-hbcm)+2*(p4p8*p3p4)*(fmc-hbcm)+4*(
10968      . p3p4*p2p8)*(-fmc+hbcm)+2*(p3p4*p1p8)*(-fmc+hbcm)+4*(p5p8*p1p3)
10969      . *(fmc-hbcm)+2*(p4p8*p1p3)*(fmc-hbcm)+4*(p2p8*p1p3)*(-fmc+hbcm)
10970      . +2*(p1p8*p1p3)*(-fmc+hbcm)+4*p5p8*(-fmc*hbcm2+fmc2*hbcm)+2*
10971      . p4p8*(-fmc*hbcm2+fmc2*hbcm)+4*p2p8*(fmc*hbcm2-fmc2*hbcm)+2*
10972      . p1p8*(fmc*hbcm2-fmc2*hbcm)+2*(fmc*p1p8*p2p3+fmc*p1p8*p3p5+2*
10973      . fmc*p2p3*p2p8-fmc*p2p3*p4p8-2*fmc*p2p3*p5p8+2*fmc*p2p8*p3p5-
10974      . fmc*p3p5*p4p8-2*fmc*p3p5*p5p8+hbcm*p1p2*p1p8+2*hbcm*p1p2*p2p8-
10975      . hbcm*p1p2*p4p8-2*hbcm*p1p2*p5p8+hbcm*p1p5*p1p8+2*hbcm*p1p5*
10976      . p2p8-hbcm*p1p5*p4p8-2*hbcm*p1p5*p5p8+hbcm*p1p8*p2p4+hbcm*p1p8*
10977      . p4p5+2*hbcm*p2p4*p2p8-hbcm*p2p4*p4p8-2*hbcm*p2p4*p5p8+2*hbcm*
10978      . p2p8*p4p5-hbcm*p4p5*p4p8-2*hbcm*p4p5*p5p8))+(-11*hbcm*p1p8-29*
10979      . hbcm*p2p8+hbcm*p4p8+19*hbcm*p5p8)
10980       ans1=w2*(2*(p5p8*p3p4)*(fmc-hbcm)+2*(p5p8*p1p3)*(fmc-hbcm)+2*
10981      . p5p8*(-fmc*hbcm2+fmc2*hbcm)+2*(-fmc*p2p3*p5p8-fmc*p3p5*p5p8-
10982      . hbcm*p1p2*p5p8-hbcm*p1p5*p5p8-hbcm*p2p4*p5p8-hbcm*p4p5*p5p8))+
10983      . w1*(2*(p4p8*p3p4)*(fmc-hbcm)+2*(p4p8*p1p3)*(fmc-hbcm)+2*p4p8*(
10984      . -fmc*hbcm2+fmc2*hbcm)+2*(-fmc*p2p3*p4p8-fmc*p3p5*p4p8-hbcm*
10985      . p1p2*p4p8-hbcm*p1p5*p4p8-hbcm*p2p4*p4p8-hbcm*p4p5*p4p8))+ans2
10986       ans=ccc*ans1
10987       b(13)=ans
10988       ans2=w5*(2*p4p5*(fmb*hbcm-hbcm2)+2*p2p4*(fmb*hbcm-hbcm2)+2*p1p5
10989      . *(fmb*hbcm-hbcm2)+2*p1p2*(fmb*hbcm-hbcm2)+2*p3p5*(fmb*fmc-fmc*
10990      . hbcm)+2*p3p4*(-fmb*fmc+fmb*hbcm+fmc2-hbcm2)+2*p2p3*(fmb*fmc-
10991      . fmc*hbcm)+2*p1p3*(-fmb*fmc+fmb*hbcm+2*fmc*hbcm-fmc2-hbcm2)+2*(
10992      . ffmcfmb*p1p3*p2p3+ffmcfmb*p1p3*p3p5-ffmcfmb*p1p3s2-ffmcfmb*
10993      . p2p3*p3p4-ffmcfmb*p3p4*p3p5+ffmcfmb*p3p4s2+fmb*fmc*hbcm2-fmb*
10994      . fmc2*hbcm-fmc*hbcm3+fmc2*hbcm2+p1p2*p1p3-p1p2*p3p4+p1p3*p1p5+
10995      . p1p3*p2p4+p1p3*p4p5+p1p3s2-p1p5*p3p4-p2p4*p3p4-p3p4*p4p5-
10996      . p3p4s2))+(p3p4*(-8*fb4*ffmcfmb+8*fb4-1)+p1p3*(-8*fb4*ffmcfmb+8
10997      . *fb4-1)+(8*fb4*ffmcfmb*p2p3+8*fb4*ffmcfmb*p3p5+8*fb4*fmc*hbcm-
10998      . 8*fb4*fmc2+8*fb4*p1p2+8*fb4*p1p5+8*fb4*p2p4+8*fb4*p4p5-9*fmb*
10999      . hbcm-11*fmc*hbcm+10*hbcm2+p2p3+p3p5))
11000       ans1=w2*(2*p3p5*(fmb*fmc+fmc*hbcm-fmc2)+2*p3p4*(-fmb*fmc+fmb*
11001      . hbcm)+2*p1p3*(-fmb*fmc+fmb*hbcm)+(p3p5*p3p4)*(-2*ffmcfmb+2)+(
11002      . p3p5*p1p3)*(-2*ffmcfmb+2)+2*(ffmcfmb*p2p3*p3p5+ffmcfmb*p3p5s2+
11003      . fmb*fmc*hbcm2+fmb*fmc*p2p3-fmb*fmc2*hbcm+fmb*hbcm*p1p2+fmb*
11004      . hbcm*p1p5+fmb*hbcm*p2p4+fmb*hbcm*p4p5+p1p2*p3p5+p1p5*p3p5+p2p4
11005      . *p3p5+p3p5*p4p5))+w1*(4*p3p4*(-fmc*hbcm+fmc2)+2*p1p3*(-fmc*
11006      . hbcm+fmc2)+(p3p4*p1p3)*(2*ffmcfmb-2)+2*(-ffmcfmb*p2p3*p3p4-
11007      . ffmcfmb*p3p4*p3p5+ffmcfmb*p3p4s2-fmc*hbcm*p1p2-fmc*hbcm*p1p5-
11008      . fmc*hbcm*p2p4-fmc*hbcm*p4p5-fmc2*hbcm2-fmc2*p2p3-fmc2*p3p5+
11009      . fmc3*hbcm-p1p2*p3p4-p1p5*p3p4-p2p4*p3p4-p3p4*p4p5-p3p4s2))+
11010      . ans2
11011       ans=ccc*ans1
11012       b(14)=ans
11013       ans2=w5*(4*p5p8*(-fmc*hbcm3+fmc2*hbcm2)+2*p4p8*(-fmc*hbcm3+fmc2
11014      . *hbcm2)+4*p2p8*(fmc*hbcm3-fmc2*hbcm2)+2*p1p8*(fmc*hbcm3-fmc2*
11015      . hbcm2)+4*(p5p8*p3p4)*(fmc*hbcm-hbcm2)+2*(p4p8*p3p4)*(fmc*hbcm-
11016      . hbcm2)+4*(p3p4*p2p8)*(-fmc*hbcm+hbcm2)+2*(p3p4*p1p8)*(-fmc*
11017      . hbcm+hbcm2)+4*(p5p8*p1p3)*(fmc*hbcm-hbcm2)+2*(p4p8*p1p3)*(fmc*
11018      . hbcm-hbcm2)+4*(p2p8*p1p3)*(-fmc*hbcm+hbcm2)+2*(p1p8*p1p3)*(-
11019      . fmc*hbcm+hbcm2)+2*(fmc*hbcm*p1p8*p2p3+fmc*hbcm*p1p8*p3p5+2*fmc
11020      . *hbcm*p2p3*p2p8-fmc*hbcm*p2p3*p4p8-2*fmc*hbcm*p2p3*p5p8+2*fmc*
11021      . hbcm*p2p8*p3p5-fmc*hbcm*p3p5*p4p8-2*fmc*hbcm*p3p5*p5p8+hbcm2*
11022      . p1p2*p1p8+2*hbcm2*p1p2*p2p8-hbcm2*p1p2*p4p8-2*hbcm2*p1p2*p5p8+
11023      . hbcm2*p1p5*p1p8+2*hbcm2*p1p5*p2p8-hbcm2*p1p5*p4p8-2*hbcm2*p1p5
11024      . *p5p8+hbcm2*p1p8*p2p4+hbcm2*p1p8*p4p5+2*hbcm2*p2p4*p2p8-hbcm2*
11025      . p2p4*p4p8-2*hbcm2*p2p4*p5p8+2*hbcm2*p2p8*p4p5-hbcm2*p4p5*p4p8-
11026      . 2*hbcm2*p4p5*p5p8))+(-11*hbcm2*p1p8-29*hbcm2*p2p8+hbcm2*p4p8+
11027      . 19*hbcm2*p5p8)
11028       ans1=w2*(2*p5p8*(-fmc*hbcm3+fmc2*hbcm2)+2*(p5p8*p3p4)*(fmc*hbcm
11029      . -hbcm2)+2*(p5p8*p1p3)*(fmc*hbcm-hbcm2)+2*(-fmc*hbcm*p2p3*p5p8-
11030      . fmc*hbcm*p3p5*p5p8-hbcm2*p1p2*p5p8-hbcm2*p1p5*p5p8-hbcm2*p2p4*
11031      . p5p8-hbcm2*p4p5*p5p8))+w1*(2*p4p8*(-fmc*hbcm3+fmc2*hbcm2)+2*(
11032      . p4p8*p3p4)*(fmc*hbcm-hbcm2)+2*(p4p8*p1p3)*(fmc*hbcm-hbcm2)+2*(
11033      . -fmc*hbcm*p2p3*p4p8-fmc*hbcm*p3p5*p4p8-hbcm2*p1p2*p4p8-hbcm2*
11034      . p1p5*p4p8-hbcm2*p2p4*p4p8-hbcm2*p4p5*p4p8))+ans2
11035       ans=ccc*ans1
11036       b(15)=ans
11037       ans3=w2*(2*(p3p5*p3p4)*(-fmc+hbcm)+2*(p3p5*p1p3)*(-fmc+hbcm)+2*
11038      . p3p5*(fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+2*p3p4*(-fmb*fmc*hbcm+
11039      . fmb*hbcm2)+2*p1p3*(-fmb*fmc*hbcm+fmb*hbcm2)+2*(fmb*fmc*hbcm*
11040      . p2p3+fmb*fmc*hbcm3-fmb*fmc2*hbcm2+fmb*hbcm2*p1p2+fmb*hbcm2*
11041      . p1p5+fmb*hbcm2*p2p4+fmb*hbcm2*p4p5+fmc*p2p3*p3p5+fmc*p3p5s2+
11042      . hbcm*p1p2*p3p5+hbcm*p1p5*p3p5+hbcm*p2p4*p3p5+hbcm*p3p5*p4p5))+
11043      . (p3p5*(-8*fb3*fmc-19*hbcm)+p3p4*(8*fb3*fmc-8*fb3*hbcm-hbcm)+
11044      . p2p3*(-8*fb3*fmc+29*hbcm)+p1p3*(8*fb3*fmc-8*fb3*hbcm+11*hbcm)+
11045      . (-8*fb3*fmc*hbcm2+8*fb3*fmc2*hbcm-8*fb3*hbcm*p1p2-8*fb3*hbcm*
11046      . p1p5-8*fb3*hbcm*p2p4-8*fb3*hbcm*p4p5-9*fmb*hbcm2+9*fmc*hbcm2-
11047      . 10*hbcm3))
11048       ans2=w5*(2*(p3p5*p3p4)*(-fmc+2*hbcm)+2*(p3p4*p2p3)*(3*fmc-2*
11049      . hbcm)+2*(p3p5*p1p3)*(-3*fmc+2*hbcm)+2*(p2p3*p1p3)*(fmc-2*hbcm)
11050      . +2*p4p5*(fmb*hbcm2+hbcm3)+2*p2p4*(fmb*hbcm2+hbcm3)+2*p1p5*(fmb
11051      . *hbcm2+hbcm3)+2*p1p2*(fmb*hbcm2+hbcm3)+2*p3p5*(fmb*fmc*hbcm+3*
11052      . fmc*hbcm2-2*fmc2*hbcm)+2*p3p4*(-fmb*fmc*hbcm+fmb*hbcm2-fmc2*
11053      . hbcm+hbcm3)+2*p2p3*(fmb*fmc*hbcm-fmc*hbcm2+2*fmc2*hbcm)+2*p1p3
11054      . *(-fmb*fmc*hbcm+fmb*hbcm2-2*fmc*hbcm2+fmc2*hbcm+hbcm3)+2*(fmb*
11055      . fmc*hbcm3-fmb*fmc2*hbcm2+fmc*hbcm4+fmc*p1p3s2-2*fmc*p2p3s2-fmc
11056      . *p3p4s2+2*fmc*p3p5s2-fmc2*hbcm3-hbcm*p1p2*p1p3-2*hbcm*p1p2*
11057      . p2p3+hbcm*p1p2*p3p4+2*hbcm*p1p2*p3p5-hbcm*p1p3*p1p5-hbcm*p1p3*
11058      . p2p4-hbcm*p1p3*p4p5-hbcm*p1p3s2-2*hbcm*p1p5*p2p3+hbcm*p1p5*
11059      . p3p4+2*hbcm*p1p5*p3p5-2*hbcm*p2p3*p2p4-2*hbcm*p2p3*p4p5+hbcm*
11060      . p2p4*p3p4+2*hbcm*p2p4*p3p5+hbcm*p3p4*p4p5+hbcm*p3p4s2+2*hbcm*
11061      . p3p5*p4p5))+ans3
11062       ans1=w1*(2*(p3p4*p1p3)*(-fmc+hbcm)+4*p3p4*(fmc*hbcm2-fmc2*hbcm)
11063      . +2*p1p3*(fmc*hbcm2-fmc2*hbcm)+2*(fmc*hbcm2*p1p2+fmc*hbcm2*p1p5
11064      . +fmc*hbcm2*p2p4+fmc*hbcm2*p4p5+fmc*p2p3*p3p4+fmc*p3p4*p3p5-fmc
11065      . *p3p4s2+fmc2*hbcm*p2p3+fmc2*hbcm*p3p5+fmc2*hbcm3-fmc3*hbcm2+
11066      . hbcm*p1p2*p3p4+hbcm*p1p5*p3p4+hbcm*p2p4*p3p4+hbcm*p3p4*p4p5+
11067      . hbcm*p3p4s2))+ans2
11068       ans=ccc*ans1
11069       b(16)=ans
11070       b(17)=ccc*(w2*(4*(p5p8*p3p6)*(-4*fmc+hbcm)+4*(-3*hbcm*p4p6*p5p8
11071      . +hbcm*p5p6*p5p8))+w1*(4*(p4p8*p3p6)*(-4*fmc+hbcm)+4*(-3*hbcm*
11072      . p4p6*p4p8+hbcm*p4p8*p5p6))+w5*(4*(p4p8*p3p6)*(-2*fmc+hbcm)+4*(
11073      . p3p6*p1p8)*(2*fmc-hbcm)+4*(2*fmc*p2p8*p3p6-6*fmc*p3p6*p5p8+
11074      . hbcm*p1p8*p4p6-hbcm*p1p8*p5p6+2*hbcm*p2p8*p4p6-hbcm*p4p6*p4p8-
11075      . 6*hbcm*p4p6*p5p8+hbcm*p4p8*p5p6))+16*hbcm*p6p8)
11076       b(18)=ccc*(w2*(4*p3p6*(-4*fmb*fmc+fmb*hbcm)+(p3p6*p3p5)*(-16*
11077      . ffmcfmb+4)+4*(-3*fmb*hbcm*p4p6+fmb*hbcm*p5p6-3*p3p5*p4p6+p3p5*
11078      . p5p6))+w1*(4*p3p6*(-fmc*hbcm+4*fmc2)+(p3p6*p3p4)*(16*ffmcfmb-4
11079      . )+4*(3*fmc*hbcm*p4p6-fmc*hbcm*p5p6+3*p3p4*p4p6-p3p4*p5p6))+w5*
11080      . (12*p4p6*(-fmb*hbcm+hbcm2)+4*p3p6*(-3*fmb*fmc+2*fmc*hbcm+fmc2)
11081      . +(p3p6*p3p4)*(16*ffmcfmb-4)+(p3p6*p1p3)*(-16*ffmcfmb+4)+4*(-
11082      . fmc*hbcm*p5p6-3*p1p3*p4p6+p1p3*p5p6+3*p3p4*p4p6-p3p4*p5p6))+(
11083      . p3p6*(-64*fb4*ffmcfmb+16*fb4-8)+16*(-3*fb4*p4p6+fb4*p5p6)))
11084       b(21)=ccc*(w2*(2*(p5p8*p3p7)*(8*fmc-3*hbcm)+2*(5*hbcm*p4p7*p5p8
11085      . -3*hbcm*p5p7*p5p8))+w1*(2*(p4p8*p3p7)*(8*fmc-3*hbcm)+2*(5*hbcm
11086      . *p4p7*p4p8-3*hbcm*p4p8*p5p7))+w5*(10*(p4p8*p3p7)*(2*fmc-hbcm)+
11087      . 2*(p3p7*p1p8)*(-2*fmc+hbcm)+2*(-2*fmc*p2p8*p3p7+2*fmc*p3p7*
11088      . p5p8-hbcm*p1p8*p4p7+hbcm*p1p8*p5p7-2*hbcm*p2p8*p4p7+5*hbcm*
11089      . p4p7*p4p8+2*hbcm*p4p7*p5p8-5*hbcm*p4p8*p5p7))+16*hbcm*p7p8)
11090       b(22)=ccc*(w5*(2*p3p4*(fmc-hbcm)+2*p1p3*(fmc-hbcm)+2*(-fmc*
11091      . hbcm2-fmc*p2p3-fmc*p3p5+fmc2*hbcm-hbcm*p1p2-hbcm*p1p5-hbcm*
11092      . p2p4-hbcm*p4p5))+18*hbcm)
11093       b(23)=ccc*(w2*(2*p3p7*(-8*fmb*fmc+3*fmb*hbcm)+(p3p7*p3p5)*(-16*
11094      . ffmcfmb+6)+2*(-5*fmb*hbcm*p4p7+3*fmb*hbcm*p5p7-5*p3p5*p4p7+3*
11095      . p3p5*p5p7))+w1*(2*p3p7*(-3*fmc*hbcm+8*fmc2)+(p3p7*p3p4)*(16*
11096      . ffmcfmb-6)+2*(5*fmc*hbcm*p4p7-3*fmc*hbcm*p5p7+5*p3p4*p4p7-3*
11097      . p3p4*p5p7))+w5*(2*p4p7*(-fmb*hbcm+4*fmc*hbcm+hbcm2)+2*p3p7*(-
11098      . fmb*fmc-2*fmc*hbcm+7*fmc2)+(p3p7*p3p4)*(16*ffmcfmb-6)+(p3p7*
11099      . p1p3)*(-16*ffmcfmb+6)+2*(-3*fmc*hbcm*p5p7-5*p1p3*p4p7+3*p1p3*
11100      . p5p7+5*p3p4*p4p7-3*p3p4*p5p7))+(p3p7*(-64*fb4*ffmcfmb+24*fb4-8
11101      . )+8*(-5*fb4*p4p7+3*fb4*p5p7)))
11102       b(24)=ccc*(w5*(2*p3p4*(fmc*hbcm-hbcm2)+2*p1p3*(fmc*hbcm-hbcm2)+
11103      . 2*(-fmc*hbcm*p2p3-fmc*hbcm*p3p5-fmc*hbcm3+fmc2*hbcm2-hbcm2*
11104      . p1p2-hbcm2*p1p5-hbcm2*p2p4-hbcm2*p4p5))+18*hbcm2)
11105       b(25)=ccc*(w1*(2*(p3p7*p3p4)*(-8*fmc+3*hbcm)+2*p3p7*(3*fmc*
11106      . hbcm2-8*fmc2*hbcm)+2*(-5*fmc*hbcm2*p4p7+3*fmc*hbcm2*p5p7-5*
11107      . hbcm*p3p4*p4p7+3*hbcm*p3p4*p5p7))+w5*(10*(p3p7*p3p4)*(-2*fmc+
11108      . hbcm)+2*(p3p7*p1p3)*(2*fmc-hbcm)+2*p4p7*(-fmb*hbcm2-4*fmc*
11109      . hbcm2-hbcm3)+2*p3p7*(-fmb*fmc*hbcm+4*fmc*hbcm2-9*fmc2*hbcm)+2*
11110      . (5*fmc*hbcm2*p5p7+2*fmc*p2p3*p3p7-2*fmc*p3p5*p3p7+hbcm*p1p3*
11111      . p4p7-hbcm*p1p3*p5p7+2*hbcm*p2p3*p4p7-5*hbcm*p3p4*p4p7+5*hbcm*
11112      . p3p4*p5p7-2*hbcm*p3p5*p4p7))+w2*(2*(p3p7*p3p5)*(-8*fmc+3*hbcm)
11113      . +2*p3p7*(-8*fmb*fmc*hbcm+3*fmb*hbcm2)+2*(-5*fmb*hbcm2*p4p7+3*
11114      . fmb*hbcm2*p5p7-5*hbcm*p3p5*p4p7+3*hbcm*p3p5*p5p7))+(8*p3p7*(8*
11115      . fb3*fmc-3*fb3*hbcm-2*hbcm)+8*(5*fb3*hbcm*p4p7-3*fb3*hbcm*p5p7)
11116      . ))
11117       b(26)=ccc*(w1*(4*(p3p6*p3p4)*(4*fmc-hbcm)+4*p3p6*(-fmc*hbcm2+4*
11118      . fmc2*hbcm)+4*(3*fmc*hbcm2*p4p6-fmc*hbcm2*p5p6+3*hbcm*p3p4*p4p6
11119      . -hbcm*p3p4*p5p6))+w5*(4*(p3p6*p3p4)*(2*fmc-hbcm)+4*(p3p6*p1p3)
11120      . *(-2*fmc+hbcm)+4*p4p6*(3*fmb*hbcm2-2*fmc*hbcm2+3*hbcm3)+4*p3p6
11121      . *(3*fmb*fmc*hbcm+2*fmc*hbcm2-fmc2*hbcm)+4*(-fmc*hbcm2*p5p6-2*
11122      . fmc*p2p3*p3p6+6*fmc*p3p5*p3p6-hbcm*p1p3*p4p6+hbcm*p1p3*p5p6-2*
11123      . hbcm*p2p3*p4p6+hbcm*p3p4*p4p6-hbcm*p3p4*p5p6+6*hbcm*p3p5*p4p6)
11124      . )+w2*(4*(p3p6*p3p5)*(4*fmc-hbcm)+4*p3p6*(4*fmb*fmc*hbcm-fmb*
11125      . hbcm2)+4*(3*fmb*hbcm2*p4p6-fmb*hbcm2*p5p6+3*hbcm*p3p5*p4p6-
11126      . hbcm*p3p5*p5p6))+(16*p3p6*(-4*fb3*fmc+fb3*hbcm-hbcm)+16*(-3*
11127      . fb3*hbcm*p4p6+fb3*hbcm*p5p6)))
11128       b(27)=ccc*(w2*(2*(p5p8*p3p7)*(8*fmc*hbcm-3*hbcm2)+2*(5*hbcm2*
11129      . p4p7*p5p8-3*hbcm2*p5p7*p5p8))+w1*(2*(p4p8*p3p7)*(8*fmc*hbcm-3*
11130      . hbcm2)+2*(5*hbcm2*p4p7*p4p8-3*hbcm2*p4p8*p5p7))+w5*(10*(p4p8*
11131      . p3p7)*(2*fmc*hbcm-hbcm2)+2*(p3p7*p1p8)*(-2*fmc*hbcm+hbcm2)+2*(
11132      . -2*fmc*hbcm*p2p8*p3p7+2*fmc*hbcm*p3p7*p5p8-hbcm2*p1p8*p4p7+
11133      . hbcm2*p1p8*p5p7-2*hbcm2*p2p8*p4p7+5*hbcm2*p4p7*p4p8+2*hbcm2*
11134      . p4p7*p5p8-5*hbcm2*p4p8*p5p7))+16*hbcm2*p7p8)
11135       b(28)=ccc*(w2*(4*(p5p8*p3p6)*(4*fmc*hbcm-hbcm2)+4*(3*hbcm2*p4p6
11136      . *p5p8-hbcm2*p5p6*p5p8))+w1*(4*(p4p8*p3p6)*(4*fmc*hbcm-hbcm2)+4
11137      . *(3*hbcm2*p4p6*p4p8-hbcm2*p4p8*p5p6))+w5*(4*(p4p8*p3p6)*(2*fmc
11138      . *hbcm-hbcm2)+4*(p3p6*p1p8)*(-2*fmc*hbcm+hbcm2)+4*(-2*fmc*hbcm*
11139      . p2p8*p3p6+6*fmc*hbcm*p3p6*p5p8-hbcm2*p1p8*p4p6+hbcm2*p1p8*p5p6
11140      . -2*hbcm2*p2p8*p4p6+hbcm2*p4p6*p4p8+6*hbcm2*p4p6*p5p8-hbcm2*
11141      . p4p8*p5p6))-16*hbcm2*p6p8)
11142       ans2=w5*(8*(p4p6*p3p7)*(-fmb*hbcm+3*fmc*hbcm-hbcm2)+4*(p6p7*
11143      . p3p4)*(fmb*hbcm-3*fmc*hbcm-hbcm2)+4*(p6p7*p1p3)*(-fmb*hbcm+3*
11144      . fmc*hbcm+hbcm2)+8*(p3p7*p3p6)*(-fmb*fmc-fmc*hbcm+3*fmc2)+4*
11145      . p6p7*(fmb*fmc*hbcm2-fmc*hbcm3+fmc2*hbcm2-4*p1p3s2-4*p3p4s2)+(
11146      . p3p7*p3p6*p3p4)*(32*ffmcfmb-8)+(p3p7*p3p6*p1p3)*(-32*ffmcfmb+8
11147      . )+8*(-4*fmc*hbcm*p3p6*p5p7-2*hbcm2*p1p4*p6p7-4*hbcm2*p4p6*p5p7
11148      . +4*p1p3*p3p4*p6p7-p1p3*p3p6*p4p7+p1p3*p3p6*p5p7-2*p1p3*p3p7*
11149      . p4p6+p3p4*p3p6*p4p7-p3p4*p3p6*p5p7+2*p3p4*p3p7*p4p6))+((p3p7*
11150      . p3p6)*(-128*fb4*ffmcfmb+32*fb4-16)+8*p6p7*(-2*fb3*fmb*hbcm-2*
11151      . fb3*fmc*hbcm+4*fb4*fmc*hbcm+2*fb4*hbcm2+hbcm2)+32*(-2*fb4*p1p3
11152      . *p6p7+2*fb4*p3p4*p6p7-fb4*p3p6*p4p7+fb4*p3p6*p5p7-2*fb4*p3p7*
11153      . p4p6))
11154       ans1=w2*(8*(p5p6*p3p7)*(2*fmc*hbcm-hbcm2)+8*(p5p7*p3p6)*(fmb*
11155      . hbcm-2*fmc*hbcm+hbcm2)+4*(p6p7*p3p5)*(fmb*hbcm+fmc*hbcm+hbcm2)
11156      . +8*(p3p7*p3p6)*(-4*fmb*fmc+fmb*hbcm)+4*p6p7*(3*fmb*fmc*hbcm2+
11157      . fmb*hbcm3+fmb2*hbcm2)+(p3p7*p3p6*p3p5)*(-32*ffmcfmb+8)+8*(-2*
11158      . fmb*hbcm*p1p3*p6p7+2*fmb*hbcm*p3p4*p6p7-fmb*hbcm*p3p6*p4p7-2*
11159      . fmb*hbcm*p3p7*p4p6+hbcm2*p1p5*p6p7-hbcm2*p2p5*p6p7-hbcm2*p4p5*
11160      . p6p7-hbcm2*p4p6*p5p7+hbcm2*p4p7*p5p6-2*p1p3*p3p5*p6p7+2*p3p4*
11161      . p3p5*p6p7-p3p5*p3p6*p4p7+p3p5*p3p6*p5p7-2*p3p5*p3p7*p4p6))+w1*
11162      . (4*(p4p6*p3p7)*(8*fmc*hbcm-hbcm2)+8*(p3p7*p3p6)*(-fmc*hbcm+4*
11163      . fmc2)+4*(p6p7*p3p4)*(fmb*hbcm-3*fmc*hbcm-hbcm2)+4*p6p7*(fmb*
11164      . fmc*hbcm2-fmc*hbcm3+fmc2*hbcm2-4*p3p4s2)+(p3p7*p3p6*p3p4)*(32*
11165      . ffmcfmb-8)+4*(4*fmc*hbcm*p1p3*p6p7-2*fmc*hbcm*p3p6*p4p7-2*fmc*
11166      . hbcm*p3p6*p5p7-4*hbcm2*p1p4*p6p7-hbcm2*p4p6*p4p7-hbcm2*p4p6*
11167      . p5p7+4*p1p3*p3p4*p6p7+2*p3p4*p3p6*p4p7-2*p3p4*p3p6*p5p7+4*p3p4
11168      . *p3p7*p4p6))+ans2
11169       ans=ccc*ans1
11170       b(29)=ans
11171       ans3=w2*(8*(p5p8*p3p7*p3p6)*(-4*fmc+hbcm)+8*(p6p8*p3p7*p3p5)*(2
11172      . *fmc-hbcm)+4*(p6p7*p5p8)*(fmb*hbcm2+3*fmc*hbcm2-hbcm3)+8*(p6p8
11173      . *p3p7)*(2*fmb*fmc*hbcm-fmb*hbcm2)+8*(2*fmb*fmc*hbcm*p3p6*p7p8+
11174      . fmb*hbcm2*p1p8*p6p7-fmb*hbcm2*p2p8*p6p7+2*fmb*hbcm2*p4p6*p7p8+
11175      . fmb*hbcm2*p4p7*p6p8-fmb*hbcm2*p4p8*p6p7-fmb*hbcm2*p5p7*p6p8+2*
11176      . fmc*p3p5*p3p6*p7p8-hbcm*p1p3*p5p8*p6p7+hbcm*p1p8*p3p5*p6p7+
11177      . hbcm*p2p3*p5p8*p6p7-hbcm*p2p8*p3p5*p6p7+hbcm*p3p4*p5p8*p6p7+2*
11178      . hbcm*p3p5*p4p6*p7p8+hbcm*p3p5*p4p7*p6p8-hbcm*p3p5*p4p8*p6p7-
11179      . hbcm*p3p5*p5p7*p6p8-hbcm*p3p6*p4p7*p5p8+hbcm*p3p6*p5p7*p5p8-2*
11180      . hbcm*p3p7*p4p6*p5p8))+(16*(p6p8*p3p7)*(-4*fb3*fmc+2*fb3*hbcm+
11181      . hbcm)+16*(p7p8*p3p6)*(-4*fb3*fmc-hbcm)+32*(-fb3*hbcm*p1p8*p6p7
11182      . +fb3*hbcm*p2p8*p6p7-2*fb3*hbcm*p4p6*p7p8-fb3*hbcm*p4p7*p6p8+
11183      . fb3*hbcm*p4p8*p6p7+fb3*hbcm*p5p7*p6p8-fb3*hbcm*p5p8*p6p7))
11184       ans2=w5*(8*(p4p8*p3p7*p3p6)*(-2*fmc+hbcm)+8*(p6p8*p3p7*p3p4)*(2
11185      . *fmc-hbcm)+8*(p3p7*p3p6*p1p8)*(2*fmc-hbcm)+8*(p6p8*p3p7*p1p3)*
11186      . (-2*fmc+hbcm)+8*(p6p8*p3p7)*(-fmc*hbcm2+2*fmc2*hbcm)+4*(p6p7*
11187      . p4p8)*(-fmb*hbcm2+fmc*hbcm2-hbcm3)+8*(p7p8*p4p6)*(fmb*hbcm2-
11188      . fmc*hbcm2+hbcm3)+4*(p6p7*p1p8)*(fmb*hbcm2-fmc*hbcm2+hbcm3)+8*(
11189      . p7p8*p3p6)*(fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+8*(-fmc*hbcm2*
11190      . p2p8*p6p7+fmc*hbcm2*p4p7*p6p8-fmc*hbcm2*p5p7*p6p8+fmc*hbcm2*
11191      . p5p8*p6p7-2*fmc*p2p3*p3p6*p7p8+2*fmc*p2p8*p3p6*p3p7+2*fmc*p3p5
11192      . *p3p6*p7p8-2*fmc*p3p6*p3p7*p5p8+hbcm*p1p3*p2p8*p6p7-hbcm*p1p3*
11193      . p4p7*p6p8+hbcm*p1p3*p5p7*p6p8-hbcm*p1p3*p5p8*p6p7-hbcm*p1p8*
11194      . p2p3*p6p7+hbcm*p1p8*p3p5*p6p7+hbcm*p1p8*p3p6*p4p7-hbcm*p1p8*
11195      . p3p6*p5p7-2*hbcm*p2p3*p4p6*p7p8+hbcm*p2p3*p4p8*p6p7-hbcm*p2p8*
11196      . p3p4*p6p7+2*hbcm*p2p8*p3p7*p4p6+hbcm*p3p4*p4p7*p6p8-hbcm*p3p4*
11197      . p5p7*p6p8+hbcm*p3p4*p5p8*p6p7+2*hbcm*p3p5*p4p6*p7p8-hbcm*p3p5*
11198      . p4p8*p6p7-hbcm*p3p6*p4p7*p4p8+hbcm*p3p6*p4p8*p5p7-2*hbcm*p3p7*
11199      . p4p6*p5p8))+ans3
11200       ans1=w1*(8*(p4p8*p3p7*p3p6)*(-4*fmc+hbcm)+8*(p6p8*p3p7*p3p4)*(2
11201      . *fmc-hbcm)+8*(p6p8*p3p7)*(-fmc*hbcm2+2*fmc2*hbcm)+4*(p6p7*p4p8
11202      . )*(-fmb*hbcm2+fmc*hbcm2-hbcm3)+8*(fmc*hbcm2*p1p8*p6p7-fmc*
11203      . hbcm2*p2p8*p6p7+2*fmc*hbcm2*p4p6*p7p8+fmc*hbcm2*p4p7*p6p8-fmc*
11204      . hbcm2*p5p7*p6p8+fmc*hbcm2*p5p8*p6p7+2*fmc*p3p4*p3p6*p7p8+2*
11205      . fmc2*hbcm*p3p6*p7p8-hbcm*p1p3*p4p8*p6p7+hbcm*p1p8*p3p4*p6p7+
11206      . hbcm*p2p3*p4p8*p6p7-hbcm*p2p8*p3p4*p6p7+2*hbcm*p3p4*p4p6*p7p8+
11207      . hbcm*p3p4*p4p7*p6p8-hbcm*p3p4*p5p7*p6p8+hbcm*p3p4*p5p8*p6p7-
11208      . hbcm*p3p5*p4p8*p6p7-hbcm*p3p6*p4p7*p4p8+hbcm*p3p6*p4p8*p5p7-2*
11209      . hbcm*p3p7*p4p6*p4p8))+ans2
11210       ans=ccc*ans1
11211       b(30)=ans
11212       ans2=w5*(8*(p6p8*p3p7)*(-fmc*hbcm+2*fmc2)+4*(p6p7*p4p8)*(fmb*
11213      . hbcm-3*fmc*hbcm-hbcm2)+8*(p7p8*p4p6)*(-fmb*hbcm+fmc*hbcm+hbcm2
11214      . )+4*(p6p7*p1p8)*(-fmb*hbcm+3*fmc*hbcm+hbcm2)+8*(p7p8*p3p6)*(-
11215      . fmb*fmc+fmc*hbcm+fmc2)+(p6p8*p3p7*p3p4)*(16*ffmcfmb-8)+(p6p8*
11216      . p3p7*p1p3)*(-16*ffmcfmb+8)+8*(-2*ffmcfmb*p1p3*p3p6*p7p8+2*
11217      . ffmcfmb*p3p4*p3p6*p7p8+fmc*hbcm*p4p7*p6p8-fmc*hbcm*p5p7*p6p8-2
11218      . *p1p3*p1p8*p6p7-2*p1p3*p4p6*p7p8-p1p3*p4p7*p6p8+2*p1p3*p4p8*
11219      . p6p7+p1p3*p5p7*p6p8+2*p1p8*p3p4*p6p7+2*p3p4*p4p6*p7p8+p3p4*
11220      . p4p7*p6p8-2*p3p4*p4p8*p6p7-p3p4*p5p7*p6p8))+((p6p8*p3p7)*(-64*
11221      . fb4*ffmcfmb+32*fb4-8)+(p7p8*p3p6)*(-64*fb4*ffmcfmb-8)+32*(-2*
11222      . fb4*p1p8*p6p7-2*fb4*p4p6*p7p8-fb4*p4p7*p6p8+2*fb4*p4p8*p6p7+
11223      . fb4*p5p7*p6p8))
11224       ans1=w2*(4*(p6p7*p5p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p6p8*p3p7)*
11225      . (-2*fmb*fmc+fmb*hbcm)+(p6p8*p3p7*p3p5)*(-16*ffmcfmb+8)+8*(-2*
11226      . ffmcfmb*p3p5*p3p6*p7p8-2*fmb*fmc*p3p6*p7p8-2*fmb*hbcm*p1p8*
11227      . p6p7-2*fmb*hbcm*p4p6*p7p8-fmb*hbcm*p4p7*p6p8+2*fmb*hbcm*p4p8*
11228      . p6p7+fmb*hbcm*p5p7*p6p8-2*p1p8*p3p5*p6p7-2*p3p5*p4p6*p7p8-p3p5
11229      . *p4p7*p6p8+2*p3p5*p4p8*p6p7+p3p5*p5p7*p6p8))+w1*(8*(p6p8*p3p7)
11230      . *(-fmc*hbcm+2*fmc2)+4*(p6p7*p4p8)*(fmb*hbcm-3*fmc*hbcm-hbcm2)+
11231      . (p6p8*p3p7*p3p4)*(16*ffmcfmb-8)+8*(2*ffmcfmb*p3p4*p3p6*p7p8+2*
11232      . fmc*hbcm*p1p8*p6p7+2*fmc*hbcm*p4p6*p7p8+fmc*hbcm*p4p7*p6p8-fmc
11233      . *hbcm*p5p7*p6p8+2*fmc2*p3p6*p7p8+2*p1p8*p3p4*p6p7+2*p3p4*p4p6*
11234      . p7p8+p3p4*p4p7*p6p8-2*p3p4*p4p8*p6p7-p3p4*p5p7*p6p8))+ans2
11235       ans=ccc*ans1
11236       b(31)=ans
11237       ans=ccc*(w2*(8*(p5p6*p3p7)*(2*fmc-hbcm)+8*(p5p7*p3p6)*(-2*fmc+
11238      . hbcm)+4*(p6p7*p3p5)*(fmb-3*fmc+hbcm)+4*p6p7*(-fmb*fmc*hbcm+fmb
11239      . *hbcm2+fmb2*hbcm)+8*(hbcm*p1p5*p6p7-hbcm*p2p5*p6p7-hbcm*p4p5*
11240      . p6p7-hbcm*p4p6*p5p7+hbcm*p4p7*p5p6))+w1*(4*(p4p6*p3p7)*(4*fmc-
11241      . hbcm)+4*(p6p7*p3p4)*(-fmb+3*fmc+hbcm)+4*p6p7*(-fmb*fmc*hbcm+
11242      . fmc*hbcm2+3*fmc2*hbcm)+4*(-4*fmc*p3p6*p4p7-4*hbcm*p1p4*p6p7-
11243      . hbcm*p4p6*p4p7-hbcm*p4p6*p5p7))+w5*(8*(p4p6*p3p7)*(4*fmc-3*
11244      . hbcm)+4*(p6p7*p3p4)*(-fmb+3*fmc+hbcm)+4*(p6p7*p1p3)*(fmb-3*fmc
11245      . -hbcm)+4*p6p7*(-fmb*fmc*hbcm+fmc*hbcm2+3*fmc2*hbcm)+16*(p3p7*
11246      . p3p6)*(ffmcfmb*fmc-fmc)+8*(-4*fmc*p3p6*p5p7-2*hbcm*p1p4*p6p7+
11247      . hbcm*p4p6*p4p7-5*hbcm*p4p6*p5p7))+8*p6p7*(-2*fb3*hbcm+2*fb4*
11248      . fmb-2*fb4*fmc+hbcm))
11249       b(32)=ans
11250       do 200 n=1,32
11251          c(n,1)=c(n,1)+0.1818181818181818d0*b(n)
11252          c(n,2)=c(n,2)+0.9833321660356334d0*b(n)
11253 200   continue
11254       return
11255         end
11256
11257       subroutine amp35_3p1(cc)
11258       implicit double precision(a-h,o-z)
11259       implicit integer (i-n)
11260       dimension b(32)
11261 #include "inclcon.h"
11262 #include "inclppp.h"
11263 #include "inclamp.h"
11264       do 100 n=1,32
11265          b(n)=0.0d0
11266 100   continue
11267       ccc=cc/((-2*ffmcfmb*p3p5+fmb2-2*fmc*hbcm+fmc2+hbcm2+2*p3p5)*(-2
11268      . *ffmcfmb*p2p3+2*ffmcfmb*p3p4+2*fmc2-2*p2p4)*(2*ffmcfmb*p3p4+2*
11269      . fmc2))
11270       ans2=w11*(4*(p3p6*p2p4)*(5*fmc-3*hbcm)+2*(p4p6*p3p4)*(-fmb+fmc+
11271      . hbcm)+2*(p4p6*p2p3)*(fmb-fmc+hbcm)+2*p3p6*(-fmb*fmc2+3*fmc2*
11272      . hbcm-fmc3)+2*p4p6*(-fmb*fmc*hbcm+fmc*hbcm2+fmc2*hbcm)+2*(p3p6*
11273      . p3p4)*(-ffmcfmb*fmb-ffmcfmb*fmc+3*fmc)+2*(p3p6*p2p3)*(ffmcfmb*
11274      . fmb+ffmcfmb*fmc-fmc)+4*(-fmc*p1p2*p3p6-fmc*p2p3*p5p6+fmc*p2p5*
11275      . p3p6+fmc*p3p4*p5p6+fmc2*hbcm*p5p6-hbcm*p1p2*p4p6+2*hbcm*p2p4*
11276      . p4p6-3*hbcm*p2p4*p5p6+hbcm*p2p5*p4p6))+(8*p4p6*(-fb3*fmc-fb3*
11277      . hbcm+fb4*fmb-2*fb4*fmc-2*hbcm)+p3p6*(-8*fb3*ffmcfmb*fmc-8*fb3*
11278      . fmc+8*fb4*ffmcfmb*fmb-16*fb4*ffmcfmb*fmc+fmb-fmc-7*hbcm)+6*
11279      . hbcm*p5p6)
11280       ans1=w2*(4*(p4p5*p3p6)*(fmc-hbcm)+4*(p5p6*p3p4)*(-fmc+hbcm)+4*(
11281      . p3p6*p2p5)*(3*fmc-hbcm)+4*(p5p6*p2p3)*(-fmc+hbcm)+4*p5p6*(fmc*
11282      . hbcm2-fmc2*hbcm)+2*(p4p6*p3p5)*(fmb-fmc+hbcm)+2*p4p6*(-fmb*fmc
11283      . *hbcm+fmb*hbcm2+fmb2*hbcm)+2*p3p6*(fmb*fmc*hbcm-fmb*fmc2+fmb2*
11284      . fmc)+2*(p3p6*p3p5)*(ffmcfmb*fmb+ffmcfmb*fmc-fmc)+4*(fmc*p1p3*
11285      . p5p6-fmc*p1p5*p3p6+hbcm*p1p2*p5p6+hbcm*p1p4*p5p6-hbcm*p1p5*
11286      . p4p6+2*hbcm*p2p5*p4p6))+w1*(8*(p3p6*p2p4)*(2*fmc-hbcm)+2*(p4p6
11287      . *p3p4)*(-fmb+fmc+hbcm)+2*p3p6*(-fmb*fmc2+3*fmc2*hbcm-fmc3)+2*
11288      . p4p6*(-fmb*fmc*hbcm+fmc*hbcm2+fmc2*hbcm)+2*(p3p6*p3p4)*(-
11289      . ffmcfmb*fmb-ffmcfmb*fmc+3*fmc)+4*(fmc*p3p4*p5p6+fmc2*hbcm*p5p6
11290      . +2*hbcm*p2p4*p4p6-2*hbcm*p2p4*p5p6))+ans2
11291       ans=ccc*ans1
11292       b(1)=ans
11293       ans4=4*(ffmcfmb*p1p3*p2p3*p6p7-ffmcfmb*p1p3*p3p4*p6p7+ffmcfmb*
11294      . p2p3*p3p5*p6p7+3*ffmcfmb*p2p3*p3p6*p3p7+ffmcfmb*p2p3*p3p6*p5p7
11295      . -2*ffmcfmb*p2p3*p3p7*p5p6-ffmcfmb*p3p4*p3p5*p6p7-3*ffmcfmb*
11296      . p3p4*p3p6*p3p7-ffmcfmb*p3p4*p3p6*p5p7+2*ffmcfmb*p3p4*p3p7*p5p6
11297      . -fmc*hbcm*p1p2*p6p7-fmc*hbcm*p1p4*p6p7-fmc*hbcm*p2p5*p6p7-fmc*
11298      . hbcm*p4p5*p6p7-fmc*hbcm*p4p6*p5p7+5*fmc*hbcm*p4p7*p5p6-fmc2*
11299      . p1p3*p6p7-fmc2*p3p5*p6p7-fmc2*p3p6*p5p7+4*fmc2*p3p7*p5p6+p1p2*
11300      . p2p3*p6p7-p1p2*p3p4*p6p7+p1p4*p2p3*p6p7-p1p4*p3p4*p6p7+4*p2p3*
11301      . p2p4*p6p7+p2p3*p2p5*p6p7+p2p3*p4p5*p6p7+6*p2p3*p4p6*p4p7+p2p3*
11302      . p4p6*p5p7-3*p2p3*p4p7*p5p6-4*p2p4*p3p4*p6p7-p2p5*p3p4*p6p7-
11303      . p3p4*p4p5*p6p7-6*p3p4*p4p6*p4p7-p3p4*p4p6*p5p7+3*p3p4*p4p7*
11304      . p5p6)
11305       ans3=8*(p6p7*p3p4)*(-fmc*hbcm+fmc2)+4*(p4p7*p4p6)*(fmb*hbcm-7*
11306      . fmc*hbcm-hbcm2)+8*(p6p7*p2p4)*(fmb*hbcm-fmc*hbcm-hbcm2)+4*(
11307      . p4p6*p3p7)*(2*fmb*fmc-3*fmc*hbcm-6*fmc2)+4*(p4p7*p3p6)*(-fmb*
11308      . fmc+2*fmc*hbcm-6*fmc2)+(p4p6*p3p7*p3p4)*(-24*ffmcfmb-4)+(p4p7*
11309      . p3p6*p3p4)*(-4*ffmcfmb-4)+4*p6p7*(-ffmcfmb*p2p3s2+ffmcfmb*
11310      . p3p4s2-fmc2*hbcm2+fmc3*hbcm+p2p3s2-p3p4s2)+(p4p6*p3p7*p2p3)*(
11311      . 24*ffmcfmb+4)+(p4p7*p3p6*p2p3)*(4*ffmcfmb+4)+4*(p3p7*p3p6)*(-4
11312      . *ffmcfmb*fmc2-fmc2)+ans4
11313       ans2=w11*ans3
11314       ans7=((p5p6*p3p7)*(-32*fb4*ffmcfmb-4)+(p4p6*p3p7)*(96*fb4*
11315      . ffmcfmb+16*fb4+12)+(p5p7*p3p6)*(16*fb4*ffmcfmb+2)+(p4p7*p3p6)*
11316      . (16*fb4*ffmcfmb+16*fb4+2)+(p3p7*p3p6)*(48*fb4*ffmcfmb+6)+(p6p7
11317      . *p3p5)*(16*fb4*ffmcfmb+2)+(p6p7*p3p4)*(-16*fb4*ffmcfmb+16*fb4-
11318      . 2)+(p6p7*p2p3)*(-16*fb4*ffmcfmb+16*fb4-2)+(p6p7*p1p3)*(16*fb4*
11319      . ffmcfmb+2)+2*p6p7*(-4*fb3*fmb*fmc+4*fb3*fmc*hbcm-4*fb3*fmc2-4*
11320      . fb4*fmb*fmc+12*fb4*fmc*hbcm-12*fb4*fmc2+8*fmb*hbcm+6*fmc*hbcm-
11321      . 7*hbcm2)+16*(fb4*p1p2*p6p7+fb4*p1p4*p6p7+4*fb4*p2p4*p6p7+fb4*
11322      . p2p5*p6p7+fb4*p4p5*p6p7+6*fb4*p4p6*p4p7+fb4*p4p6*p5p7-3*fb4*
11323      . p4p7*p5p6))
11324       ans6=w2*(16*(p5p6*p3p7)*(-fmc*hbcm+fmc2)+4*(p5p6*p4p7)*(-fmb*
11325      . hbcm+4*fmc*hbcm-4*hbcm2)+4*(p4p6*p3p7)*(8*fmb*fmc+fmb*hbcm)+4*
11326      . (p4p7*p3p6)*(5*fmb*fmc-fmb*hbcm)+4*(p6p7*p3p5)*(fmb*fmc+fmc*
11327      . hbcm-fmc2)+4*(p6p7*p3p4)*(-fmb*fmc+fmb*hbcm)+4*(p6p7*p2p3)*(-
11328      . fmb*fmc+fmb*hbcm)+4*p6p7*(ffmcfmb*p3p5s2+fmb*fmc*hbcm2-fmb*
11329      . fmc2*hbcm)+(p4p6*p3p7*p3p5)*(24*ffmcfmb+4)+(p4p7*p3p6*p3p5)*(4
11330      . *ffmcfmb+4)+(p6p7*p3p5*p3p4)*(-4*ffmcfmb+4)+(p6p7*p3p5*p2p3)*(
11331      . -4*ffmcfmb+4)+4*(p3p7*p3p6)*(4*ffmcfmb*fmb*fmc+fmb*fmc)+4*(
11332      . ffmcfmb*p1p3*p3p5*p6p7+3*ffmcfmb*p3p5*p3p6*p3p7+ffmcfmb*p3p5*
11333      . p3p6*p5p7-2*ffmcfmb*p3p5*p3p7*p5p6+fmb*fmc*p1p3*p6p7+fmb*fmc*
11334      . p3p6*p5p7+fmb*hbcm*p1p2*p6p7+fmb*hbcm*p1p4*p6p7+4*fmb*hbcm*
11335      . p2p4*p6p7+fmb*hbcm*p2p5*p6p7+fmb*hbcm*p4p5*p6p7+8*fmb*hbcm*
11336      . p4p6*p4p7+fmb*hbcm*p4p6*p5p7+p1p2*p3p5*p6p7+p1p4*p3p5*p6p7+4*
11337      . p2p4*p3p5*p6p7+p2p5*p3p5*p6p7+p3p5*p4p5*p6p7+6*p3p5*p4p6*p4p7+
11338      . p3p5*p4p6*p5p7-3*p3p5*p4p7*p5p6))+ans7
11339       ans5=w1*(8*(p6p7*p3p4)*(-fmc*hbcm+fmc2)+4*(p6p7*p2p3)*(-fmc*
11340      . hbcm+fmc2)+4*(p4p7*p4p6)*(fmb*hbcm-7*fmc*hbcm-hbcm2)+8*(p6p7*
11341      . p2p4)*(fmb*hbcm-fmc*hbcm-hbcm2)+4*(p4p6*p3p7)*(2*fmb*fmc-3*fmc
11342      . *hbcm-6*fmc2)+4*(p4p7*p3p6)*(-fmb*fmc+2*fmc*hbcm-6*fmc2)+4*
11343      . p6p7*(ffmcfmb*p3p4s2-fmc2*hbcm2+fmc3*hbcm-p3p4s2)+(p4p6*p3p7*
11344      . p3p4)*(-24*ffmcfmb-4)+(p4p7*p3p6*p3p4)*(-4*ffmcfmb-4)+(p6p7*
11345      . p3p4*p2p3)*(4*ffmcfmb-4)+4*(p3p7*p3p6)*(-4*ffmcfmb*fmc2-fmc2)+
11346      . 4*(-ffmcfmb*p1p3*p3p4*p6p7-ffmcfmb*p3p4*p3p5*p6p7-3*ffmcfmb*
11347      . p3p4*p3p6*p3p7-ffmcfmb*p3p4*p3p6*p5p7+2*ffmcfmb*p3p4*p3p7*p5p6
11348      . -fmc*hbcm*p1p2*p6p7-fmc*hbcm*p1p4*p6p7-fmc*hbcm*p2p5*p6p7-fmc*
11349      . hbcm*p4p5*p6p7-fmc*hbcm*p4p6*p5p7+5*fmc*hbcm*p4p7*p5p6-fmc2*
11350      . p1p3*p6p7-fmc2*p3p5*p6p7-fmc2*p3p6*p5p7+4*fmc2*p3p7*p5p6-p1p2*
11351      . p3p4*p6p7-p1p4*p3p4*p6p7-4*p2p4*p3p4*p6p7-p2p5*p3p4*p6p7-p3p4*
11352      . p4p5*p6p7-6*p3p4*p4p6*p4p7-p3p4*p4p6*p5p7+3*p3p4*p4p7*p5p6))+
11353      . ans6
11354       ans1=ans2+ans5
11355       ans=ccc*ans1
11356       b(2)=ans
11357       ans4=4*(-2*fmc*p1p3*p5p6*p7p8+fmc*p1p3*p5p8*p6p7+2*fmc*p1p5*
11358      . p3p6*p7p8+fmc*p3p5*p5p8*p6p7+fmc*p3p6*p5p7*p5p8+4*fmc*p3p7*
11359      . p5p6*p5p8-2*hbcm*p1p2*p5p6*p7p8+3*hbcm*p1p2*p5p8*p6p7-2*hbcm*
11360      . p1p4*p5p6*p7p8+hbcm*p1p4*p5p8*p6p7-4*hbcm*p1p5*p2p8*p6p7+2*
11361      . hbcm*p1p5*p4p6*p7p8+2*hbcm*p2p4*p5p8*p6p7+4*hbcm*p2p5*p2p8*
11362      . p6p7-4*hbcm*p2p5*p4p6*p7p8-hbcm*p2p5*p5p8*p6p7-4*hbcm*p2p8*
11363      . p4p5*p6p7+4*hbcm*p2p8*p4p6*p5p7-4*hbcm*p2p8*p4p7*p5p6+hbcm*
11364      . p4p5*p5p8*p6p7+8*hbcm*p4p6*p4p7*p5p8+hbcm*p4p6*p5p7*p5p8+3*
11365      . hbcm*p4p7*p5p6*p5p8)
11366       ans3=4*(p5p8*p4p6*p3p7)*(8*fmc+hbcm)+4*(p5p8*p4p7*p3p6)*(5*fmc-
11367      . hbcm)+8*(p7p8*p4p5*p3p6)*(-fmc+hbcm)+4*(p6p7*p5p8*p3p4)*(-fmc+
11368      . hbcm)+8*(p7p8*p5p6*p3p4)*(fmc-hbcm)+16*(p5p6*p3p7*p2p8)*(-2*
11369      . fmc+hbcm)+16*(p5p7*p3p6*p2p8)*(2*fmc-hbcm)+8*(p7p8*p3p6*p2p5)*
11370      . (-3*fmc+hbcm)+4*(p6p7*p5p8*p2p3)*(-fmc-hbcm)+8*(p7p8*p5p6*p2p3
11371      . )*(fmc-hbcm)+4*(p6p7*p5p8)*(fmc*hbcm2-fmc2*hbcm)+8*(p7p8*p5p6)
11372      . *(-fmc*hbcm2+fmc2*hbcm)+16*(p6p8*p4p7*p3p5)*(-fmb+fmc-hbcm)+4*
11373      . (p7p8*p4p6*p3p5)*(-fmb+fmc-hbcm)+8*(p6p7*p3p5*p2p8)*(fmb-3*fmc
11374      . +hbcm)+16*(p6p8*p4p7)*(fmb*fmc*hbcm-fmb*hbcm2-fmb2*hbcm)+4*(
11375      . p7p8*p4p6)*(fmb*fmc*hbcm-fmb*hbcm2-fmb2*hbcm)+16*(p6p8*p3p7)*(
11376      . -fmb*fmc*hbcm+fmb*fmc2-fmb2*fmc)+4*(p7p8*p3p6)*(-fmb*fmc*hbcm+
11377      . fmb*fmc2-fmb2*fmc)+8*(p6p7*p2p8)*(-fmb*fmc*hbcm+fmb*hbcm2+fmb2
11378      . *hbcm)+4*(p5p8*p3p7*p3p6)*(4*ffmcfmb*fmc+fmc)+16*(p6p8*p3p7*
11379      . p3p5)*(-ffmcfmb*fmb+ffmcfmb*fmc-fmc)+4*(p7p8*p3p6*p3p5)*(-
11380      . ffmcfmb*fmb-ffmcfmb*fmc+fmc)+ans4
11381       ans2=w2*ans3
11382       ans7=4*(-2*fmc*p1p3*p4p7*p6p8+fmc*p1p3*p4p8*p6p7+4*fmc*p1p4*
11383      . p3p7*p6p8+2*fmc*p1p8*p3p6*p4p7-4*fmc*p1p8*p3p7*p4p6+2*fmc*p2p8
11384      . *p3p6*p4p7-4*fmc*p2p8*p3p7*p4p6-2*fmc*p3p4*p5p6*p7p8-2*fmc*
11385      . p3p5*p4p7*p6p8+fmc*p3p5*p4p8*p6p7-2*fmc*p3p6*p4p7*p5p8+fmc*
11386      . p3p6*p4p8*p5p7+4*fmc*p3p7*p4p5*p6p8+4*fmc*p3p7*p4p6*p5p8-4*fmc
11387      . *p3p7*p4p8*p5p6-2*fmc2*hbcm*p5p6*p7p8-2*hbcm*p1p2*p4p7*p6p8+3*
11388      . hbcm*p1p2*p4p8*p6p7+2*hbcm*p1p4*p4p7*p6p8+hbcm*p1p4*p4p8*p6p7-
11389      . 4*hbcm*p1p8*p2p4*p6p7-2*hbcm*p1p8*p4p6*p4p7-4*hbcm*p2p4*p2p8*
11390      . p6p7-2*hbcm*p2p4*p4p8*p6p7+4*hbcm*p2p4*p5p7*p6p8+4*hbcm*p2p4*
11391      . p5p8*p6p7-2*hbcm*p2p5*p4p7*p6p8-hbcm*p2p5*p4p8*p6p7-2*hbcm*
11392      . p2p8*p4p6*p4p7+2*hbcm*p4p5*p4p7*p6p8+hbcm*p4p5*p4p8*p6p7+4*
11393      . hbcm*p4p6*p4p7*p4p8+2*hbcm*p4p6*p4p7*p5p8+hbcm*p4p6*p4p8*p5p7-
11394      . 3*hbcm*p4p7*p4p8*p5p6)
11395       ans6=4*(p4p8*p4p6*p3p7)*(4*fmc+hbcm)+4*(p4p8*p4p7*p3p6)*(3*fmc+
11396      . hbcm)+4*(p6p7*p4p8*p3p4)*(-fmc+hbcm)+16*(p6p8*p3p7*p2p4)*(-fmc
11397      . +hbcm)+4*(p6p7*p4p8*p2p3)*(-fmc-hbcm)+8*(p6p8*p4p7*p2p3)*(fmc-
11398      . hbcm)+4*(p6p7*p4p8)*(fmc*hbcm2-fmc2*hbcm)+8*(p6p8*p4p7*p3p4)*(
11399      . 2*fmb-fmc-hbcm)+4*(p7p8*p4p6*p3p4)*(fmb-fmc-hbcm)+8*(p6p7*p3p4
11400      . *p2p8)*(-fmb+3*fmc+hbcm)+16*(p6p8*p3p7)*(fmb*fmc2-fmc2*hbcm)+4
11401      . *(p7p8*p3p6)*(fmb*fmc2-3*fmc2*hbcm+fmc3)+8*(p6p8*p4p7)*(2*fmb*
11402      . fmc*hbcm-3*fmc*hbcm2+fmc2*hbcm)+4*(p7p8*p4p6)*(fmb*fmc*hbcm-
11403      . fmc*hbcm2-fmc2*hbcm)+8*(p6p7*p2p8)*(-fmb*fmc*hbcm+fmc*hbcm2+3*
11404      . fmc2*hbcm)+4*(p4p8*p3p7*p3p6)*(4*ffmcfmb*fmc+fmc)+16*(p6p8*
11405      . p3p7*p3p4)*(ffmcfmb*fmb-ffmcfmb*fmc)+4*(p7p8*p3p6*p3p4)*(
11406      . ffmcfmb*fmb+ffmcfmb*fmc-3*fmc)+ans7
11407       ans5=w1*ans6
11408       ans10=4*(p7p8*p3p6*p2p3)*(-ffmcfmb*fmb-ffmcfmb*fmc+fmc)+4*(2*
11409      . fmc*p1p2*p3p6*p7p8+fmc*p1p3*p2p8*p6p7-2*fmc*p1p3*p4p7*p6p8+fmc
11410      . *p1p3*p4p8*p6p7+4*fmc*p1p4*p3p7*p6p8+2*fmc*p1p8*p3p6*p4p7-4*
11411      . fmc*p1p8*p3p7*p4p6+2*fmc*p2p3*p5p6*p7p8-2*fmc*p2p5*p3p6*p7p8-8
11412      . *fmc*p2p5*p3p7*p6p8+fmc*p2p8*p3p5*p6p7+fmc*p2p8*p3p6*p5p7-4*
11413      . fmc*p2p8*p3p7*p5p6-2*fmc*p3p4*p5p6*p7p8-2*fmc*p3p5*p4p7*p6p8+
11414      . fmc*p3p5*p4p8*p6p7-2*fmc*p3p6*p4p7*p5p8+fmc*p3p6*p4p8*p5p7+4*
11415      . fmc*p3p7*p4p5*p6p8+4*fmc*p3p7*p4p6*p5p8-4*fmc*p3p7*p4p8*p5p6-2
11416      . *fmc2*hbcm*p5p6*p7p8-hbcm*p1p2*p2p8*p6p7+2*hbcm*p1p2*p4p6*p7p8
11417      . -2*hbcm*p1p2*p4p7*p6p8+3*hbcm*p1p2*p4p8*p6p7+hbcm*p1p4*p2p8*
11418      . p6p7+2*hbcm*p1p4*p4p7*p6p8+hbcm*p1p4*p4p8*p6p7-4*hbcm*p1p8*
11419      . p2p4*p6p7-2*hbcm*p1p8*p4p6*p4p7-6*hbcm*p2p4*p2p8*p6p7-2*hbcm*
11420      . p2p4*p4p8*p6p7+2*hbcm*p2p4*p5p6*p7p8+4*hbcm*p2p4*p5p7*p6p8+4*
11421      . hbcm*p2p4*p5p8*p6p7+3*hbcm*p2p5*p2p8*p6p7-2*hbcm*p2p5*p4p6*
11422      . p7p8-10*hbcm*p2p5*p4p7*p6p8-hbcm*p2p5*p4p8*p6p7+hbcm*p2p8*p4p5
11423      . *p6p7+6*hbcm*p2p8*p4p6*p4p7+hbcm*p2p8*p4p6*p5p7-5*hbcm*p2p8*
11424      . p4p7*p5p6+2*hbcm*p4p5*p4p7*p6p8+hbcm*p4p5*p4p8*p6p7+4*hbcm*
11425      . p4p6*p4p7*p4p8+2*hbcm*p4p6*p4p7*p5p8+hbcm*p4p6*p4p8*p5p7-3*
11426      . hbcm*p4p7*p4p8*p5p6)
11427       ans9=4*(p4p8*p4p6*p3p7)*(4*fmc+hbcm)+4*(p4p8*p4p7*p3p6)*(3*fmc+
11428      . hbcm)+4*(p6p7*p4p8*p3p4)*(-fmc+hbcm)+4*(p4p6*p3p7*p2p8)*(4*fmc
11429      . +hbcm)+4*(p4p7*p3p6*p2p8)*(7*fmc-hbcm)+16*(p6p8*p3p7*p2p4)*(-
11430      . fmc+hbcm)+8*(p7p8*p3p6*p2p4)*(-fmc+hbcm)+4*(p6p7*p4p8*p2p3)*(-
11431      . fmc-hbcm)+4*(p6p7*p4p8)*(fmc*hbcm2-fmc2*hbcm)+8*(p6p8*p4p7*
11432      . p3p4)*(2*fmb-fmc-hbcm)+4*(p7p8*p4p6*p3p4)*(fmb-fmc-hbcm)+4*(
11433      . p6p7*p3p4*p2p8)*(-2*fmb+5*fmc+3*hbcm)+8*(p6p8*p4p7*p2p3)*(-2*
11434      . fmb+3*fmc-3*hbcm)+4*(p7p8*p4p6*p2p3)*(-fmb+fmc-hbcm)+4*(p6p7*
11435      . p2p8*p2p3)*(2*fmb-7*fmc+hbcm)+16*(p6p8*p3p7)*(fmb*fmc2-fmc2*
11436      . hbcm)+4*(p7p8*p3p6)*(fmb*fmc2-3*fmc2*hbcm+fmc3)+8*(p6p8*p4p7)*
11437      . (2*fmb*fmc*hbcm-3*fmc*hbcm2+fmc2*hbcm)+4*(p7p8*p4p6)*(fmb*fmc*
11438      . hbcm-fmc*hbcm2-fmc2*hbcm)+4*(p6p7*p2p8)*(-2*fmb*fmc*hbcm+3*fmc
11439      . *hbcm2+5*fmc2*hbcm)+4*(p4p8*p3p7*p3p6)*(4*ffmcfmb*fmc+fmc)+4*(
11440      . p3p7*p3p6*p2p8)*(4*ffmcfmb*fmc+fmc)+16*(p6p8*p3p7*p3p4)*(
11441      . ffmcfmb*fmb-ffmcfmb*fmc)+4*(p7p8*p3p6*p3p4)*(ffmcfmb*fmb+
11442      . ffmcfmb*fmc-3*fmc)+16*(p6p8*p3p7*p2p3)*(-ffmcfmb*fmb+ffmcfmb*
11443      . fmc-fmc)+ans10
11444       ans8=w11*ans9
11445       ans11=(4*(p7p8*p4p6)*(4*fb3*hbcm-4*fb4*fmb+4*fb4*fmc+5*hbcm)+2*
11446      . (p6p7*p5p8)*(-8*fb3*fmc-8*fb4*fmc+15*hbcm)+2*(p6p8*p5p7)*(-8*
11447      . fb3*fmc-8*fb4*fmc-9*hbcm)+8*(p7p8*p5p6)*(2*fb3*fmc+2*fb4*fmc-
11448      . hbcm)+2*(p6p7*p4p8)*(8*fb3*fmc+8*fb4*fmc+hbcm)+2*(p6p8*p4p7)*(
11449      . -16*fb3*fmc+32*fb3*hbcm-32*fb4*fmb+16*fb4*fmc-3*hbcm)+2*(p6p7*
11450      . p2p8)*(-8*fb3*fmc-16*fb3*hbcm+16*fb4*fmb-24*fb4*fmc-19*hbcm)+2
11451      . *(p6p7*p1p8)*(8*fb3*fmc+8*fb4*fmc-5*hbcm)+2*(p6p8*p3p7)*(-8*
11452      . fb3*ffmcfmb*fmc+24*fb3*fmc-32*fb4*ffmcfmb*fmb+24*fb4*ffmcfmb*
11453      . fmc-8*fb4*fmc-4*fmb+2*fmc-5*hbcm)+2*(p7p8*p3p6)*(-8*fb3*
11454      . ffmcfmb*fmc+16*fb3*fmc-8*fb4*ffmcfmb*fmb+8*fb4*fmc-fmb+fmc+5*
11455      . hbcm))
11456       ans1=ans2+ans5+ans8+ans11
11457       ans=ccc*ans1
11458       b(3)=ans
11459       ans2=w11*(4*(p4p7*p3p4)*(3*fmb-4*fmc-2*hbcm)+4*(p4p7*p2p3)*(-3*
11460      . fmb+6*fmc-4*hbcm)+12*p3p7*(fmb*fmc2-fmc2*hbcm-fmc3)+4*p4p7*(3*
11461      . fmb*fmc*hbcm-4*fmc*hbcm2-2*fmc2*hbcm)+4*(p3p7*p3p4)*(3*ffmcfmb
11462      . *fmb-5*ffmcfmb*fmc-fmc)+4*(p3p7*p2p3)*(-3*ffmcfmb*fmb+5*
11463      . ffmcfmb*fmc-3*fmc)+4*(2*fmc*p1p2*p3p7-fmc*p1p3*p4p7+2*fmc*p1p4
11464      . *p3p7-6*fmc*p2p5*p3p7-fmc*p3p5*p4p7+2*fmc*p3p7*p4p5+hbcm*p1p2*
11465      . p4p7+hbcm*p1p4*p4p7+2*hbcm*p2p4*p3p7+2*hbcm*p2p4*p4p7+2*hbcm*
11466      . p2p4*p5p7-7*hbcm*p2p5*p4p7+hbcm*p4p5*p4p7))+(48*p4p7*(fb3*hbcm
11467      . -fb4*fmb+fb4*fmc)+2*p5p7*(-4*fb3*fmc-4*fb4*fmc-7*hbcm)+2*p3p7*
11468      . (4*fb3*ffmcfmb*fmc+20*fb3*fmc-24*fb4*ffmcfmb*fmb+28*fb4*
11469      . ffmcfmb*fmc-4*fb4*fmc-3*fmb+4*fmc-4*hbcm))
11470       ans1=w2*(4*(p4p7*p3p5)*(-3*fmb+5*fmc-3*hbcm)+12*p4p7*(fmb*fmc*
11471      . hbcm-fmb*hbcm2-fmb2*hbcm)+12*p3p7*(-fmb*fmc*hbcm+fmb*fmc2-fmb2
11472      . *fmc)+4*(p3p7*p3p5)*(-3*ffmcfmb*fmb+5*ffmcfmb*fmc-3*fmc)+8*(
11473      . fmc*p1p5*p3p7-fmc*p2p5*p3p7+fmc*p3p7*p4p5+hbcm*p1p5*p4p7-hbcm*
11474      . p2p5*p4p7+hbcm*p4p5*p4p7))+w1*(8*(p3p7*p2p4)*(-fmc+hbcm)+4*(
11475      . p4p7*p2p3)*(fmc-hbcm)+4*(p4p7*p3p4)*(3*fmb-4*fmc-2*hbcm)+12*
11476      . p3p7*(fmb*fmc2-fmc2*hbcm-fmc3)+4*p4p7*(3*fmb*fmc*hbcm-4*fmc*
11477      . hbcm2-2*fmc2*hbcm)+4*(p3p7*p3p4)*(3*ffmcfmb*fmb-5*ffmcfmb*fmc-
11478      . fmc)+4*(-fmc*p1p3*p4p7+2*fmc*p1p4*p3p7-fmc*p3p5*p4p7+2*fmc*
11479      . p3p7*p4p5-hbcm*p1p2*p4p7+hbcm*p1p4*p4p7+2*hbcm*p2p4*p5p7-hbcm*
11480      . p2p5*p4p7+hbcm*p4p5*p4p7))+ans2
11481       ans=ccc*ans1
11482       b(4)=ans
11483       ans5=4*(ffmcfmb*p1p3*p2p3*p7p8-ffmcfmb*p1p3*p3p4*p7p8+2*ffmcfmb
11484      . *p1p8*p2p3*p3p7-2*ffmcfmb*p1p8*p3p4*p3p7+ffmcfmb*p2p3*p3p5*
11485      . p7p8+2*ffmcfmb*p2p3*p3p7*p4p8-6*ffmcfmb*p2p3*p3p7*p5p8-ffmcfmb
11486      . *p3p4*p3p5*p7p8-2*ffmcfmb*p3p4*p3p7*p4p8+6*ffmcfmb*p3p4*p3p7*
11487      . p5p8-fmc*hbcm*p1p2*p7p8-fmc*hbcm*p1p4*p7p8-2*fmc*hbcm*p1p8*
11488      . p4p7-fmc*hbcm*p2p5*p7p8+2*fmc*hbcm*p2p8*p5p7-fmc*hbcm*p4p5*
11489      . p7p8+6*fmc*hbcm*p4p7*p5p8-fmc2*p1p3*p7p8-2*fmc2*p1p8*p3p7-fmc2
11490      . *p3p5*p7p8+6*fmc2*p3p7*p5p8+p1p2*p2p3*p7p8-p1p2*p3p4*p7p8+p1p4
11491      . *p2p3*p7p8-p1p4*p3p4*p7p8+2*p1p8*p2p3*p4p7-2*p1p8*p3p4*p4p7+
11492      . p2p3*p2p5*p7p8+4*p2p3*p2p8*p4p7-2*p2p3*p2p8*p5p7+p2p3*p4p5*
11493      . p7p8+2*p2p3*p4p7*p4p8-6*p2p3*p4p7*p5p8-p2p5*p3p4*p7p8-4*p2p8*
11494      . p3p4*p4p7+2*p2p8*p3p4*p5p7-p3p4*p4p5*p7p8-2*p3p4*p4p7*p4p8+6*
11495      . p3p4*p4p7*p5p8)
11496       ans4=8*(p7p8*p3p4)*(-fmc*hbcm+fmc2)+4*(p4p8*p4p7)*(3*fmb*hbcm+
11497      . fmc*hbcm-3*hbcm2)+4*(p4p7*p2p8)*(3*fmb*hbcm-fmc*hbcm-3*hbcm2)+
11498      . 4*(p4p8*p3p7)*(3*fmb*fmc-3*fmc*hbcm+fmc2)+4*(p3p7*p2p8)*(3*fmb
11499      . *fmc-fmc*hbcm-3*fmc2)+(p3p7*p3p4*p2p8)*(-24*ffmcfmb+8)+4*p7p8*
11500      . (-ffmcfmb*p2p3s2+ffmcfmb*p3p4s2-fmc2*hbcm2+fmc3*hbcm+p2p3s2-
11501      . p3p4s2)+(p3p7*p2p8*p2p3)*(24*ffmcfmb-8)+ans5
11502       ans3=w11*ans4
11503       ans6=(2*p7p8*(8*fb4*fmc*hbcm-8*fb4*fmc2+6*fmb*hbcm+4*fmc*hbcm-5
11504      . *hbcm2)+(p5p8*p3p7)*(-96*fb4*ffmcfmb-12)+(p4p8*p3p7)*(32*fb4*
11505      . ffmcfmb+4)+(p7p8*p3p5)*(16*fb4*ffmcfmb+2)+(p7p8*p3p4)*(-16*fb4
11506      . *ffmcfmb+16*fb4-2)+(p3p7*p2p8)*(96*fb4*ffmcfmb-32*fb4+12)+(
11507      . p7p8*p2p3)*(-16*fb4*ffmcfmb+16*fb4-2)+(p3p7*p1p8)*(32*fb4*
11508      . ffmcfmb+4)+(p7p8*p1p3)*(16*fb4*ffmcfmb+2)+16*(fb4*p1p2*p7p8+
11509      . fb4*p1p4*p7p8+2*fb4*p1p8*p4p7+fb4*p2p5*p7p8+4*fb4*p2p8*p4p7-2*
11510      . fb4*p2p8*p5p7+fb4*p4p5*p7p8+2*fb4*p4p7*p4p8-6*fb4*p4p7*p5p8))
11511       ans2=w1*(8*(p7p8*p3p4)*(-fmc*hbcm+fmc2)+8*(p3p7*p2p8)*(fmc*hbcm
11512      . -3*fmc2)+4*(p7p8*p2p3)*(-fmc*hbcm+fmc2)+4*(p4p8*p4p7)*(3*fmb*
11513      . hbcm+fmc*hbcm-3*hbcm2)+4*(p4p8*p3p7)*(3*fmb*fmc-3*fmc*hbcm+
11514      . fmc2)+4*p7p8*(ffmcfmb*p3p4s2-fmc2*hbcm2+fmc3*hbcm-p3p4s2)+(
11515      . p3p7*p3p4*p2p8)*(-24*ffmcfmb+8)+(p7p8*p3p4*p2p3)*(4*ffmcfmb-4)
11516      . +4*(-ffmcfmb*p1p3*p3p4*p7p8-2*ffmcfmb*p1p8*p3p4*p3p7-ffmcfmb*
11517      . p3p4*p3p5*p7p8-2*ffmcfmb*p3p4*p3p7*p4p8+6*ffmcfmb*p3p4*p3p7*
11518      . p5p8-fmc*hbcm*p1p2*p7p8-fmc*hbcm*p1p4*p7p8-2*fmc*hbcm*p1p8*
11519      . p4p7-fmc*hbcm*p2p5*p7p8-4*fmc*hbcm*p2p8*p4p7+2*fmc*hbcm*p2p8*
11520      . p5p7-fmc*hbcm*p4p5*p7p8+6*fmc*hbcm*p4p7*p5p8-fmc2*p1p3*p7p8-2*
11521      . fmc2*p1p8*p3p7-fmc2*p3p5*p7p8+6*fmc2*p3p7*p5p8-p1p2*p3p4*p7p8-
11522      . p1p4*p3p4*p7p8-2*p1p8*p3p4*p4p7-p2p5*p3p4*p7p8-4*p2p8*p3p4*
11523      . p4p7+2*p2p8*p3p4*p5p7-p3p4*p4p5*p7p8-2*p3p4*p4p7*p4p8+6*p3p4*
11524      . p4p7*p5p8))+ans3+ans6
11525       ans1=w2*(12*(p5p8*p4p7)*(-fmb*hbcm+fmc*hbcm-hbcm2)+12*(p5p8*
11526      . p3p7)*(-fmb*fmc-fmc*hbcm+fmc2)+4*(p7p8*p3p5)*(fmb*fmc+fmc*hbcm
11527      . -fmc2)+4*(p7p8*p3p4)*(-fmb*fmc+fmb*hbcm)+8*(p3p7*p2p8)*(3*fmb*
11528      . fmc-fmb*hbcm)+4*(p7p8*p2p3)*(-fmb*fmc+fmb*hbcm)+4*p7p8*(
11529      . ffmcfmb*p3p5s2+fmb*fmc*hbcm2-fmb*fmc2*hbcm)+(p7p8*p3p5*p3p4)*(
11530      . -4*ffmcfmb+4)+(p3p7*p3p5*p2p8)*(24*ffmcfmb-8)+(p7p8*p3p5*p2p3)
11531      . *(-4*ffmcfmb+4)+4*(ffmcfmb*p1p3*p3p5*p7p8+2*ffmcfmb*p1p8*p3p5*
11532      . p3p7+2*ffmcfmb*p3p5*p3p7*p4p8-6*ffmcfmb*p3p5*p3p7*p5p8+fmb*fmc
11533      . *p1p3*p7p8+2*fmb*fmc*p1p8*p3p7+2*fmb*fmc*p3p7*p4p8+fmb*hbcm*
11534      . p1p2*p7p8+fmb*hbcm*p1p4*p7p8+2*fmb*hbcm*p1p8*p4p7+fmb*hbcm*
11535      . p2p5*p7p8+4*fmb*hbcm*p2p8*p4p7-2*fmb*hbcm*p2p8*p5p7+fmb*hbcm*
11536      . p4p5*p7p8+2*fmb*hbcm*p4p7*p4p8+p1p2*p3p5*p7p8+p1p4*p3p5*p7p8+2
11537      . *p1p8*p3p5*p4p7+p2p5*p3p5*p7p8+4*p2p8*p3p5*p4p7-2*p2p8*p3p5*
11538      . p5p7+p3p5*p4p5*p7p8+2*p3p5*p4p7*p4p8-6*p3p5*p4p7*p5p8))+ans2
11539       ans=ccc*ans1
11540       b(5)=ans
11541       ans4=((p3p7*p3p5)*(80*fb4*ffmcfmb+10)+(p3p7*p3p4)*(-16*fb4*
11542      . ffmcfmb-16*fb4-2)+(p3p7*p2p3)*(-80*fb4*ffmcfmb+16*fb4-10)+(
11543      . p3p7*p1p3)*(-48*fb4*ffmcfmb-6)+2*p5p7*(-4*fb3*fmc*hbcm-4*fb4*
11544      . fmc*hbcm-7*hbcm2)+8*p4p7*(6*fb3*fmb*hbcm+6*fb3*fmc*hbcm-4*fb4*
11545      . fmc*hbcm+6*fb4*hbcm2+hbcm2)+2*p3p7*(24*fb3*fmb*fmc-4*fb3*fmc*
11546      . hbcm+28*fb3*fmc2+12*fb4*fmc*hbcm-4*fb4*fmc2-6*fmb*hbcm-fmc*
11547      . hbcm+4*hbcm2)+16*(-fb4*p1p2*p3p7-2*fb4*p1p3*p4p7-fb4*p1p4*p3p7
11548      . -4*fb4*p2p3*p4p7+2*fb4*p2p3*p5p7-fb4*p2p5*p3p7-2*fb4*p3p4*p4p7
11549      . +6*fb4*p3p5*p4p7-fb4*p3p7*p4p5))
11550       ans3=w11*(4*(p4p7*p3p4)*(-3*fmb*hbcm-2*hbcm2)+4*(p4p7*p2p3)*(-3
11551      . *fmb*hbcm+2*fmc*hbcm+2*hbcm2)+4*(p3p7*p3p4)*(-3*fmb*fmc+fmc*
11552      . hbcm-3*fmc2)+4*(p3p7*p2p3)*(-3*fmb*fmc+fmc*hbcm+3*fmc2)+4*p4p7
11553      . *(-3*fmb*fmc*hbcm2-4*fmc*hbcm3-4*p2p3s2+2*p3p4s2)+4*p3p7*(-5*
11554      . ffmcfmb*p2p3s2+ffmcfmb*p3p4s2-3*fmb*fmc2*hbcm-2*fmc2*hbcm2-2*
11555      . fmc3*hbcm+p2p3s2+p3p4s2)+(p3p7*p3p4*p2p3)*(16*ffmcfmb-8)+4*(-3
11556      . *ffmcfmb*p1p3*p2p3*p3p7+3*ffmcfmb*p1p3*p3p4*p3p7+5*ffmcfmb*
11557      . p2p3*p3p5*p3p7-5*ffmcfmb*p3p4*p3p5*p3p7+3*fmc*hbcm*p1p2*p3p7+
11558      . fmc*hbcm*p1p3*p4p7+3*fmc*hbcm*p1p4*p3p7-2*fmc*hbcm*p2p3*p5p7-5
11559      . *fmc*hbcm*p2p5*p3p7-7*fmc*hbcm*p3p5*p4p7+3*fmc*hbcm*p3p7*p4p5+
11560      . 3*fmc2*p1p3*p3p7-5*fmc2*p3p5*p3p7+hbcm2*p1p2*p4p7+hbcm2*p1p4*
11561      . p4p7+2*hbcm2*p2p4*p3p7+2*hbcm2*p2p4*p4p7+2*hbcm2*p2p4*p5p7-7*
11562      . hbcm2*p2p5*p4p7+hbcm2*p4p5*p4p7-p1p2*p2p3*p3p7+p1p2*p3p4*p3p7-
11563      . 2*p1p3*p2p3*p4p7+2*p1p3*p3p4*p4p7-p1p4*p2p3*p3p7+p1p4*p3p4*
11564      . p3p7-p2p3*p2p5*p3p7+2*p2p3*p3p4*p4p7-2*p2p3*p3p4*p5p7+6*p2p3*
11565      . p3p5*p4p7-p2p3*p3p7*p4p5+2*p2p3s2*p5p7+p2p5*p3p4*p3p7-6*p3p4*
11566      . p3p5*p4p7+p3p4*p3p7*p4p5))+ans4
11567       ans2=w1*(8*(p3p7*p2p4)*(-fmc*hbcm+hbcm2)+4*(p4p7*p2p3)*(5*fmc*
11568      . hbcm-hbcm2)+4*(p3p7*p2p3)*(-fmc*hbcm+5*fmc2)+4*(p4p7*p3p4)*(-3
11569      . *fmb*hbcm-2*hbcm2)+4*(p3p7*p3p4)*(-3*fmb*fmc+fmc*hbcm-3*fmc2)+
11570      . 4*p4p7*(-3*fmb*fmc*hbcm2-4*fmc*hbcm3+2*p3p4s2)+4*p3p7*(ffmcfmb
11571      . *p3p4s2-3*fmb*fmc2*hbcm-2*fmc2*hbcm2-2*fmc3*hbcm+p3p4s2)+(p3p7
11572      . *p3p4*p2p3)*(20*ffmcfmb-4)+4*(3*ffmcfmb*p1p3*p3p4*p3p7-5*
11573      . ffmcfmb*p3p4*p3p5*p3p7+fmc*hbcm*p1p2*p3p7+fmc*hbcm*p1p3*p4p7+3
11574      . *fmc*hbcm*p1p4*p3p7-2*fmc*hbcm*p2p3*p5p7+fmc*hbcm*p2p5*p3p7-7*
11575      . fmc*hbcm*p3p5*p4p7+3*fmc*hbcm*p3p7*p4p5+3*fmc2*p1p3*p3p7-5*
11576      . fmc2*p3p5*p3p7-hbcm2*p1p2*p4p7+hbcm2*p1p4*p4p7+2*hbcm2*p2p4*
11577      . p5p7-hbcm2*p2p5*p4p7+hbcm2*p4p5*p4p7+p1p2*p3p4*p3p7+2*p1p3*
11578      . p3p4*p4p7+p1p4*p3p4*p3p7+4*p2p3*p3p4*p4p7-2*p2p3*p3p4*p5p7+
11579      . p2p5*p3p4*p3p7-6*p3p4*p3p5*p4p7+p3p4*p3p7*p4p5))+ans3
11580       ans1=w2*(4*(p4p5*p3p7)*(-fmb*hbcm+2*fmc*hbcm)+12*(p4p7*p3p5)*(
11581      . fmb*hbcm-fmc*hbcm+hbcm2)+4*(p3p7*p2p5)*(-fmb*hbcm-2*fmc*hbcm)+
11582      . 8*(p3p7*p3p5)*(fmb*fmc+fmc*hbcm-fmc2)+4*(p3p7*p3p4)*(-fmb*fmc-
11583      . fmb*hbcm)+4*(p3p7*p2p3)*(-5*fmb*fmc+fmb*hbcm)+4*p4p7*(-5*fmb*
11584      . fmc*hbcm2+3*fmb*hbcm3-3*fmb2*hbcm2+6*p3p5s2)+4*p3p7*(5*ffmcfmb
11585      . *p3p5s2+2*fmb*fmc*hbcm2-4*fmb*fmc2*hbcm-3*fmb2*fmc*hbcm)+(p3p7
11586      . *p3p5*p3p4)*(-4*ffmcfmb-4)+(p3p7*p3p5*p2p3)*(-20*ffmcfmb+4)+4*
11587      . (-3*ffmcfmb*p1p3*p3p5*p3p7-3*fmb*fmc*p1p3*p3p7-fmb*hbcm*p1p2*
11588      . p3p7-2*fmb*hbcm*p1p3*p4p7-fmb*hbcm*p1p4*p3p7-4*fmb*hbcm*p2p3*
11589      . p4p7+2*fmb*hbcm*p2p3*p5p7-2*fmb*hbcm*p3p4*p4p7+2*fmc*hbcm*p1p5
11590      . *p3p7+2*hbcm2*p1p5*p4p7-2*hbcm2*p2p5*p4p7+2*hbcm2*p4p5*p4p7-
11591      . p1p2*p3p5*p3p7-2*p1p3*p3p5*p4p7-p1p4*p3p5*p3p7-4*p2p3*p3p5*
11592      . p4p7+2*p2p3*p3p5*p5p7-p2p5*p3p5*p3p7-2*p3p4*p3p5*p4p7-p3p5*
11593      . p3p7*p4p5))+ans2
11594       ans=ccc*ans1
11595       b(6)=ans
11596       ans4=4*(fmc*hbcm2*p1p2*p7p8+fmc*hbcm2*p1p4*p7p8+2*fmc*hbcm2*
11597      . p1p8*p4p7+fmc*hbcm2*p2p5*p7p8+4*fmc*hbcm2*p2p8*p4p7-2*fmc*
11598      . hbcm2*p2p8*p5p7+fmc*hbcm2*p4p5*p7p8-6*fmc*hbcm2*p4p7*p5p8+fmc*
11599      . p1p3*p3p4*p7p8-3*fmc*p1p3*p3p7*p4p8+2*fmc*p1p8*p3p4*p3p7+fmc*
11600      . p3p4*p3p5*p7p8-6*fmc*p3p4*p3p7*p5p8+5*fmc*p3p5*p3p7*p4p8+fmc2*
11601      . hbcm*p1p3*p7p8+2*fmc2*hbcm*p1p8*p3p7+fmc2*hbcm*p3p5*p7p8-6*
11602      . fmc2*hbcm*p3p7*p5p8+hbcm*p1p2*p3p4*p7p8-hbcm*p1p2*p3p7*p4p8-2*
11603      . hbcm*p1p3*p4p7*p4p8+hbcm*p1p4*p3p4*p7p8-hbcm*p1p4*p3p7*p4p8+2*
11604      . hbcm*p1p8*p3p4*p4p7-4*hbcm*p2p3*p4p7*p4p8+2*hbcm*p2p3*p4p8*
11605      . p5p7+hbcm*p2p5*p3p4*p7p8-hbcm*p2p5*p3p7*p4p8+4*hbcm*p2p8*p3p4*
11606      . p4p7-2*hbcm*p2p8*p3p4*p5p7+hbcm*p3p4*p4p5*p7p8-6*hbcm*p3p4*
11607      . p4p7*p5p8+6*hbcm*p3p5*p4p7*p4p8-hbcm*p3p7*p4p5*p4p8)
11608       ans3=4*p7p8*(-fmc*p3p4s2+fmc2*hbcm3-fmc3*hbcm2+hbcm*p3p4s2)+4*(
11609      . p4p8*p3p7*p3p4)*(fmc-hbcm)+8*(p3p7*p3p4*p2p8)*(3*fmc-hbcm)+4*(
11610      . p4p8*p3p7*p2p3)*(-5*fmc+hbcm)+4*(p7p8*p3p4*p2p3)*(-fmc+hbcm)+8
11611      . *(p7p8*p3p4)*(fmc*hbcm2-fmc2*hbcm)+8*(p3p7*p2p8)*(-fmc*hbcm2+3
11612      . *fmc2*hbcm)+4*(p7p8*p2p3)*(fmc*hbcm2-fmc2*hbcm)+12*(p4p8*p4p7)
11613      . *(fmb*hbcm2-fmc*hbcm2+hbcm3)+4*(p4p8*p3p7)*(3*fmb*fmc*hbcm+2*
11614      . fmc*hbcm2-2*fmc2*hbcm)+ans4
11615       ans2=w1*ans3
11616       ans7=4*(fmc*hbcm2*p1p2*p7p8+fmc*hbcm2*p1p4*p7p8+2*fmc*hbcm2*
11617      . p1p8*p4p7+fmc*hbcm2*p2p5*p7p8-2*fmc*hbcm2*p2p8*p5p7+fmc*hbcm2*
11618      . p4p5*p7p8-6*fmc*hbcm2*p4p7*p5p8+fmc*p1p3*p2p3*p7p8-3*fmc*p1p3*
11619      . p2p8*p3p7+fmc*p1p3*p3p4*p7p8-3*fmc*p1p3*p3p7*p4p8+2*fmc*p1p8*
11620      . p2p3*p3p7+2*fmc*p1p8*p3p4*p3p7+fmc*p2p3*p3p5*p7p8-6*fmc*p2p3*
11621      . p3p7*p5p8+5*fmc*p2p8*p3p5*p3p7+fmc*p3p4*p3p5*p7p8-6*fmc*p3p4*
11622      . p3p7*p5p8+5*fmc*p3p5*p3p7*p4p8+fmc2*hbcm*p1p3*p7p8+2*fmc2*hbcm
11623      . *p1p8*p3p7+fmc2*hbcm*p3p5*p7p8-6*fmc2*hbcm*p3p7*p5p8+hbcm*p1p2
11624      . *p2p3*p7p8-hbcm*p1p2*p2p8*p3p7+hbcm*p1p2*p3p4*p7p8-hbcm*p1p2*
11625      . p3p7*p4p8-2*hbcm*p1p3*p2p8*p4p7-2*hbcm*p1p3*p4p7*p4p8+hbcm*
11626      . p1p4*p2p3*p7p8-hbcm*p1p4*p2p8*p3p7+hbcm*p1p4*p3p4*p7p8-hbcm*
11627      . p1p4*p3p7*p4p8+2*hbcm*p1p8*p2p3*p4p7+2*hbcm*p1p8*p3p4*p4p7+
11628      . hbcm*p2p3*p2p5*p7p8+hbcm*p2p3*p4p5*p7p8-2*hbcm*p2p3*p4p7*p4p8-
11629      . 6*hbcm*p2p3*p4p7*p5p8+2*hbcm*p2p3*p4p8*p5p7-hbcm*p2p5*p2p8*
11630      . p3p7+hbcm*p2p5*p3p4*p7p8-hbcm*p2p5*p3p7*p4p8+2*hbcm*p2p8*p3p4*
11631      . p4p7-2*hbcm*p2p8*p3p4*p5p7+6*hbcm*p2p8*p3p5*p4p7-hbcm*p2p8*
11632      . p3p7*p4p5+hbcm*p3p4*p4p5*p7p8-6*hbcm*p3p4*p4p7*p5p8+6*hbcm*
11633      . p3p5*p4p7*p4p8-hbcm*p3p7*p4p5*p4p8)
11634       ans6=4*(p4p8*p3p7*p3p4)*(fmc-hbcm)+4*(p3p7*p3p4*p2p8)*(5*fmc-3*
11635      . hbcm)+4*p7p8*(-fmc*p2p3s2-fmc*p3p4s2+fmc2*hbcm3-fmc3*hbcm2+
11636      . hbcm*p2p3s2+hbcm*p3p4s2)+4*(p4p8*p3p7*p2p3)*(-3*fmc+hbcm)+8*(
11637      . p7p8*p3p4*p2p3)*(-fmc+hbcm)+4*(p3p7*p2p8*p2p3)*(fmc-hbcm)+8*(
11638      . p7p8*p3p4)*(fmc*hbcm2-fmc2*hbcm)+8*(p7p8*p2p3)*(fmc*hbcm2-fmc2
11639      . *hbcm)+12*(p4p8*p4p7)*(fmb*hbcm2-fmc*hbcm2+hbcm3)+4*(p4p7*p2p8
11640      . )*(3*fmb*hbcm2-fmc*hbcm2+3*hbcm3)+4*(p4p8*p3p7)*(3*fmb*fmc*
11641      . hbcm+2*fmc*hbcm2-2*fmc2*hbcm)+4*(p3p7*p2p8)*(3*fmb*fmc*hbcm+2*
11642      . fmc2*hbcm)+ans7
11643       ans5=w11*ans6
11644       ans10=4*(fmb*fmc*hbcm*p1p3*p7p8+2*fmb*fmc*hbcm*p1p8*p3p7+2*fmb*
11645      . fmc*hbcm*p3p7*p4p8+fmb*hbcm2*p1p2*p7p8+fmb*hbcm2*p1p4*p7p8+2*
11646      . fmb*hbcm2*p1p8*p4p7+fmb*hbcm2*p2p5*p7p8+4*fmb*hbcm2*p2p8*p4p7-
11647      . 2*fmb*hbcm2*p2p8*p5p7+fmb*hbcm2*p4p5*p7p8+2*fmb*hbcm2*p4p7*
11648      . p4p8+fmc*p1p3*p3p5*p7p8-3*fmc*p1p3*p3p7*p5p8+2*fmc*p1p8*p3p5*
11649      . p3p7+2*fmc*p3p5*p3p7*p4p8-fmc*p3p5*p3p7*p5p8+hbcm*p1p2*p3p5*
11650      . p7p8-hbcm*p1p2*p3p7*p5p8-2*hbcm*p1p3*p4p7*p5p8+hbcm*p1p4*p3p5*
11651      . p7p8-hbcm*p1p4*p3p7*p5p8+2*hbcm*p1p8*p3p5*p4p7-4*hbcm*p2p3*
11652      . p4p7*p5p8+2*hbcm*p2p3*p5p7*p5p8+hbcm*p2p5*p3p5*p7p8-hbcm*p2p5*
11653      . p3p7*p5p8+4*hbcm*p2p8*p3p5*p4p7-2*hbcm*p2p8*p3p5*p5p7-2*hbcm*
11654      . p3p4*p4p7*p5p8+hbcm*p3p5*p4p5*p7p8+2*hbcm*p3p5*p4p7*p4p8-hbcm*
11655      . p3p7*p4p5*p5p8)
11656       ans9=4*(p5p8*p3p7*p3p4)*(-fmc-hbcm)+4*(p7p8*p3p5*p3p4)*(-fmc+
11657      . hbcm)+8*(p3p7*p3p5*p2p8)*(3*fmc-hbcm)+4*(p5p8*p3p7*p2p3)*(-5*
11658      . fmc+hbcm)+4*(p7p8*p3p5*p2p3)*(-fmc+hbcm)+4*(p5p8*p4p7)*(-3*fmb
11659      . *hbcm2-5*fmc*hbcm2+3*hbcm3)+4*p7p8*(fmb*fmc*hbcm3-fmb*fmc2*
11660      . hbcm2+fmc*p3p5s2)+4*(p5p8*p3p7)*(-3*fmb*fmc*hbcm+2*fmc*hbcm2-4
11661      . *fmc2*hbcm)+4*(p7p8*p3p5)*(fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+4
11662      . *(p7p8*p3p4)*(-fmb*fmc*hbcm+fmb*hbcm2)+8*(p3p7*p2p8)*(3*fmb*
11663      . fmc*hbcm-fmb*hbcm2)+4*(p7p8*p2p3)*(-fmb*fmc*hbcm+fmb*hbcm2)+
11664      . ans10
11665       ans8=w2*ans9
11666       ans11=(2*(p5p8*p3p7)*(48*fb3*fmc-11*hbcm)+2*(p4p8*p3p7)*(-16*
11667      . fb3*fmc-hbcm)+2*(p7p8*p3p5)*(-8*fb3*fmc+11*hbcm)+2*(p7p8*p3p4)
11668      . *(8*fb3*fmc-8*fb3*hbcm+hbcm)+2*(p3p7*p2p8)*(-48*fb3*fmc+16*fb3
11669      . *hbcm+11*hbcm)+2*(p7p8*p2p3)*(8*fb3*fmc-8*fb3*hbcm-11*hbcm)+2*
11670      . (p3p7*p1p8)*(-16*fb3*fmc+5*hbcm)+2*(p7p8*p1p3)*(-8*fb3*fmc-5*
11671      . hbcm)+2*p7p8*(-8*fb3*fmc*hbcm2+8*fb3*fmc2*hbcm+6*fmb*hbcm2-4*
11672      . fmc*hbcm2+5*hbcm3)+16*(-fb3*hbcm*p1p2*p7p8-fb3*hbcm*p1p4*p7p8-
11673      . 2*fb3*hbcm*p1p8*p4p7-fb3*hbcm*p2p5*p7p8-4*fb3*hbcm*p2p8*p4p7+2
11674      . *fb3*hbcm*p2p8*p5p7-fb3*hbcm*p4p5*p7p8-2*fb3*hbcm*p4p7*p4p8+6*
11675      . fb3*hbcm*p4p7*p5p8))
11676       ans1=ans2+ans5+ans8+ans11
11677       ans=ccc*ans1
11678       b(7)=ans
11679       ans5=4*(ffmcfmb*p1p3*p2p3*p6p8-ffmcfmb*p1p3*p3p4*p6p8-ffmcfmb*
11680      . p1p8*p2p3*p3p6+ffmcfmb*p1p8*p3p4*p3p6+ffmcfmb*p2p3*p3p5*p6p8+
11681      . ffmcfmb*p2p3*p3p6*p5p8-ffmcfmb*p3p4*p3p5*p6p8-ffmcfmb*p3p4*
11682      . p3p6*p5p8-fmc*hbcm*p1p2*p6p8-fmc*hbcm*p1p4*p6p8+fmc*hbcm*p1p8*
11683      . p4p6-fmc*hbcm*p2p5*p6p8-2*fmc*hbcm*p2p8*p5p6-fmc*hbcm*p4p5*
11684      . p6p8-fmc*hbcm*p4p6*p5p8+fmc*hbcm*p4p8*p5p6-fmc2*p1p3*p6p8+fmc2
11685      . *p1p8*p3p6-fmc2*p3p5*p6p8-fmc2*p3p6*p5p8+p1p2*p2p3*p6p8-p1p2*
11686      . p3p4*p6p8+p1p4*p2p3*p6p8-p1p4*p3p4*p6p8-p1p8*p2p3*p4p6+p1p8*
11687      . p3p4*p4p6+p2p3*p2p5*p6p8-3*p2p3*p2p8*p4p6+2*p2p3*p2p8*p5p6+
11688      . p2p3*p4p5*p6p8+p2p3*p4p6*p5p8-p2p3*p4p8*p5p6-p2p5*p3p4*p6p8+3*
11689      . p2p8*p3p4*p4p6-2*p2p8*p3p4*p5p6-p3p4*p4p5*p6p8-p3p4*p4p6*p5p8+
11690      . p3p4*p4p8*p5p6)
11691       ans4=8*(p6p8*p3p4)*(-fmc*hbcm+fmc2)+2*(p4p8*p4p6)*(-fmb*hbcm-
11692      . fmc*hbcm+hbcm2)+2*(p4p6*p2p8)*(-fmb*hbcm+5*fmc*hbcm+hbcm2)+2*(
11693      . p4p8*p3p6)*(-fmb*fmc+3*fmc*hbcm-3*fmc2)+2*(p3p6*p2p8)*(-fmb*
11694      . fmc-3*fmc*hbcm+9*fmc2)+(p4p8*p3p6*p3p4)*(-4*ffmcfmb+4)+(p3p6*
11695      . p3p4*p2p8)*(20*ffmcfmb-8)+4*p6p8*(-ffmcfmb*p2p3s2+ffmcfmb*
11696      . p3p4s2-fmc2*hbcm2+fmc3*hbcm+p2p3s2-p3p4s2)+(p4p8*p3p6*p2p3)*(4
11697      . *ffmcfmb-4)+(p3p6*p2p8*p2p3)*(-20*ffmcfmb+8)+ans5
11698       ans3=w11*ans4
11699       ans6=(p6p8*(16*fb4*fmc*hbcm-16*fb4*fmc2+13*fmb*hbcm+9*fmc*hbcm-
11700      . 11*hbcm2)+(p5p8*p3p6)*(16*fb4*ffmcfmb+2)+(p4p8*p3p6)*(16*fb4*
11701      . ffmcfmb-16*fb4+2)+(p6p8*p3p5)*(16*fb4*ffmcfmb+2)+(p6p8*p3p4)*(
11702      . -16*fb4*ffmcfmb+16*fb4-2)+(p3p6*p2p8)*(-80*fb4*ffmcfmb+32*fb4-
11703      . 10)+(p6p8*p2p3)*(-16*fb4*ffmcfmb+16*fb4-2)+(p3p6*p1p8)*(-16*
11704      . fb4*ffmcfmb-2)+(p6p8*p1p3)*(16*fb4*ffmcfmb+2)+16*(fb4*p1p2*
11705      . p6p8+fb4*p1p4*p6p8-fb4*p1p8*p4p6+fb4*p2p5*p6p8-3*fb4*p2p8*p4p6
11706      . +2*fb4*p2p8*p5p6+fb4*p4p5*p6p8+fb4*p4p6*p5p8-fb4*p4p8*p5p6))
11707       ans2=w1*(8*(p6p8*p3p4)*(-fmc*hbcm+fmc2)+4*(p3p6*p2p8)*(-2*fmc*
11708      . hbcm+5*fmc2)+4*(p6p8*p2p3)*(-fmc*hbcm+fmc2)+2*(p4p8*p4p6)*(-
11709      . fmb*hbcm-fmc*hbcm+hbcm2)+2*(p4p8*p3p6)*(-fmb*fmc+3*fmc*hbcm-3*
11710      . fmc2)+4*p6p8*(ffmcfmb*p3p4s2-fmc2*hbcm2+fmc3*hbcm-p3p4s2)+(
11711      . p4p8*p3p6*p3p4)*(-4*ffmcfmb+4)+(p3p6*p3p4*p2p8)*(20*ffmcfmb-8)
11712      . +(p6p8*p3p4*p2p3)*(4*ffmcfmb-4)+4*(-ffmcfmb*p1p3*p3p4*p6p8+
11713      . ffmcfmb*p1p8*p3p4*p3p6-ffmcfmb*p3p4*p3p5*p6p8-ffmcfmb*p3p4*
11714      . p3p6*p5p8-fmc*hbcm*p1p2*p6p8-fmc*hbcm*p1p4*p6p8+fmc*hbcm*p1p8*
11715      . p4p6-fmc*hbcm*p2p5*p6p8+3*fmc*hbcm*p2p8*p4p6-2*fmc*hbcm*p2p8*
11716      . p5p6-fmc*hbcm*p4p5*p6p8-fmc*hbcm*p4p6*p5p8+fmc*hbcm*p4p8*p5p6-
11717      . fmc2*p1p3*p6p8+fmc2*p1p8*p3p6-fmc2*p3p5*p6p8-fmc2*p3p6*p5p8-
11718      . p1p2*p3p4*p6p8-p1p4*p3p4*p6p8+p1p8*p3p4*p4p6-p2p5*p3p4*p6p8+3*
11719      . p2p8*p3p4*p4p6-2*p2p8*p3p4*p5p6-p3p4*p4p5*p6p8-p3p4*p4p6*p5p8+
11720      . p3p4*p4p8*p5p6))+ans3+ans6
11721       ans1=w2*(2*(p5p8*p4p6)*(fmb*hbcm-fmc*hbcm+hbcm2)+2*(p5p8*p3p6)*
11722      . (fmb*fmc+fmc*hbcm-fmc2)+4*(p4p8*p3p6)*(fmb*fmc-fmb*hbcm)+4*(
11723      . p6p8*p3p5)*(fmb*fmc+fmc*hbcm-fmc2)+4*(p6p8*p3p4)*(-fmb*fmc+fmb
11724      . *hbcm)+4*(p3p6*p2p8)*(-5*fmb*fmc+2*fmb*hbcm)+4*(p6p8*p2p3)*(-
11725      . fmb*fmc+fmb*hbcm)+4*p6p8*(ffmcfmb*p3p5s2+fmb*fmc*hbcm2-fmb*
11726      . fmc2*hbcm)+(p4p8*p3p6*p3p5)*(4*ffmcfmb-4)+(p6p8*p3p5*p3p4)*(-4
11727      . *ffmcfmb+4)+(p3p6*p3p5*p2p8)*(-20*ffmcfmb+8)+(p6p8*p3p5*p2p3)*
11728      . (-4*ffmcfmb+4)+4*(ffmcfmb*p1p3*p3p5*p6p8-ffmcfmb*p1p8*p3p5*
11729      . p3p6+ffmcfmb*p3p5*p3p6*p5p8+fmb*fmc*p1p3*p6p8-fmb*fmc*p1p8*
11730      . p3p6+fmb*hbcm*p1p2*p6p8+fmb*hbcm*p1p4*p6p8-fmb*hbcm*p1p8*p4p6+
11731      . fmb*hbcm*p2p5*p6p8-3*fmb*hbcm*p2p8*p4p6+2*fmb*hbcm*p2p8*p5p6+
11732      . fmb*hbcm*p4p5*p6p8-fmb*hbcm*p4p8*p5p6+p1p2*p3p5*p6p8+p1p4*p3p5
11733      . *p6p8-p1p8*p3p5*p4p6+p2p5*p3p5*p6p8-3*p2p8*p3p5*p4p6+2*p2p8*
11734      . p3p5*p5p6+p3p5*p4p5*p6p8+p3p5*p4p6*p5p8-p3p5*p4p8*p5p6))+ans2
11735       ans=ccc*ans1
11736       b(8)=ans
11737       ans4=(2*p5p6*(8*fb4*fmc*hbcm+hbcm2)+(p3p6*p3p5)*(-32*fb4*
11738      . ffmcfmb-4)+(p3p6*p2p3)*(96*fb4*ffmcfmb-48*fb4+12)+4*p4p6*(-2*
11739      . fb3*fmb*hbcm-4*fb3*fmc*hbcm-2*fb4*fmc*hbcm-2*fb4*hbcm2-3*hbcm2
11740      . )+p3p6*(-8*fb3*fmb*fmc-16*fb3*fmc2-8*fb4*fmc*hbcm-8*fb4*fmc2-
11741      . 13*fmb*hbcm-3*fmc*hbcm-hbcm2)+16*(-fb4*p1p2*p3p6+fb4*p1p3*p4p6
11742      . -fb4*p1p4*p3p6+3*fb4*p2p3*p4p6-2*fb4*p2p3*p5p6-fb4*p2p5*p3p6+
11743      . fb4*p3p4*p5p6-fb4*p3p5*p4p6-fb4*p3p6*p4p5))
11744       ans3=w1*(8*(p3p6*p2p4)*(2*fmc*hbcm-hbcm2)+12*(p3p6*p2p3)*(fmc*
11745      . hbcm-2*fmc2)+2*(p4p6*p3p4)*(fmb*hbcm+fmc*hbcm+hbcm2)+2*p3p6*(
11746      . fmb*fmc2*hbcm+3*fmc2*hbcm2-fmc3*hbcm)+2*(p3p6*p3p4)*(fmb*fmc+3
11747      . *fmc*hbcm-fmc2)+2*p4p6*(fmb*fmc*hbcm2+fmc*hbcm3+fmc2*hbcm2)+(
11748      . p3p6*p3p4*p2p3)*(-24*ffmcfmb+12)+4*(2*ffmcfmb*p3p4*p3p5*p3p6+
11749      . fmc*hbcm*p1p2*p3p6-fmc*hbcm*p1p3*p4p6+fmc*hbcm*p1p4*p3p6-3*fmc
11750      . *hbcm*p2p3*p4p6+2*fmc*hbcm*p2p3*p5p6+fmc*hbcm*p2p5*p3p6-fmc*
11751      . hbcm*p3p4*p5p6+fmc*hbcm*p3p5*p4p6+fmc*hbcm*p3p6*p4p5+2*fmc2*
11752      . p3p5*p3p6+2*hbcm2*p2p4*p4p6-2*hbcm2*p2p4*p5p6+p1p2*p3p4*p3p6-
11753      . p1p3*p3p4*p4p6+p1p4*p3p4*p3p6-3*p2p3*p3p4*p4p6+2*p2p3*p3p4*
11754      . p5p6+p2p5*p3p4*p3p6+p3p4*p3p5*p4p6+p3p4*p3p6*p4p5-p3p4s2*p5p6)
11755      . )+ans4
11756       ans2=w11*(4*p5p6*(-2*p2p3s2-p3p4s2)+4*(p3p6*p2p4)*(5*fmc*hbcm-3
11757      . *hbcm2)+2*(p4p6*p3p4)*(fmb*hbcm+fmc*hbcm+hbcm2)+2*(p4p6*p2p3)*
11758      . (fmb*hbcm-5*fmc*hbcm-hbcm2)+2*(p3p6*p3p4)*(fmb*fmc+3*fmc*hbcm-
11759      . fmc2)+2*(p3p6*p2p3)*(fmb*fmc+3*fmc*hbcm-9*fmc2)+2*p4p6*(fmb*
11760      . fmc*hbcm2+fmc*hbcm3+fmc2*hbcm2+6*p2p3s2)+2*p3p6*(12*ffmcfmb*
11761      . p2p3s2+fmb*fmc2*hbcm+3*fmc2*hbcm2-fmc3*hbcm-6*p2p3s2)+(p3p6*
11762      . p3p4*p2p3)*(-24*ffmcfmb+12)+4*(-2*ffmcfmb*p2p3*p3p5*p3p6+2*
11763      . ffmcfmb*p3p4*p3p5*p3p6-fmc*hbcm*p1p3*p4p6+fmc*hbcm*p1p4*p3p6+2
11764      . *fmc*hbcm*p2p3*p5p6+2*fmc*hbcm*p2p5*p3p6-fmc*hbcm*p3p4*p5p6+
11765      . fmc*hbcm*p3p5*p4p6+fmc*hbcm*p3p6*p4p5+2*fmc2*p3p5*p3p6-hbcm2*
11766      . p1p2*p4p6+2*hbcm2*p2p4*p4p6-3*hbcm2*p2p4*p5p6+hbcm2*p2p5*p4p6-
11767      . p1p2*p2p3*p3p6+p1p2*p3p4*p3p6+p1p3*p2p3*p4p6-p1p3*p3p4*p4p6-
11768      . p1p4*p2p3*p3p6+p1p4*p3p4*p3p6-p2p3*p2p5*p3p6-3*p2p3*p3p4*p4p6+
11769      . 3*p2p3*p3p4*p5p6-p2p3*p3p5*p4p6-p2p3*p3p6*p4p5+p2p5*p3p4*p3p6+
11770      . p3p4*p3p5*p4p6+p3p4*p3p6*p4p5))+ans3
11771       ans1=w2*(4*(p4p5*p3p6)*(-fmb*hbcm+fmc*hbcm-hbcm2)+2*(p4p6*p3p5)
11772      . *(-fmb*hbcm+fmc*hbcm-hbcm2)+4*(p5p6*p3p4)*(fmb*hbcm-fmc*hbcm+
11773      . hbcm2)+4*(p3p6*p2p5)*(-fmb*hbcm+3*fmc*hbcm-hbcm2)+4*(p5p6*p2p3
11774      . )*(-2*fmb*hbcm-fmc*hbcm+hbcm2)+6*(p3p6*p3p5)*(-fmb*fmc-fmc*
11775      . hbcm+fmc2)+12*(p3p6*p2p3)*(2*fmb*fmc-fmb*hbcm)+4*p5p6*(fmb*fmc
11776      . *hbcm2+fmc*hbcm3-fmc2*hbcm2)+2*p4p6*(fmb*fmc*hbcm2-fmb*hbcm3+
11777      . fmb2*hbcm2-2*p3p5s2)+2*p3p6*(-4*ffmcfmb*p3p5s2-fmb*fmc*hbcm2+
11778      . fmb*fmc2*hbcm+fmb2*fmc*hbcm)+(p3p6*p3p5*p2p3)*(24*ffmcfmb-12)+
11779      . 4*(-fmb*hbcm*p1p2*p3p6+fmb*hbcm*p1p3*p4p6-fmb*hbcm*p1p4*p3p6+3
11780      . *fmb*hbcm*p2p3*p4p6+fmc*hbcm*p1p3*p5p6-fmc*hbcm*p1p5*p3p6+fmc*
11781      . hbcm*p3p5*p5p6+hbcm2*p1p2*p5p6+hbcm2*p1p4*p5p6-hbcm2*p1p5*p4p6
11782      . +2*hbcm2*p2p5*p4p6-p1p2*p3p5*p3p6+p1p3*p3p5*p4p6-p1p4*p3p5*
11783      . p3p6+3*p2p3*p3p5*p4p6-2*p2p3*p3p5*p5p6-p2p5*p3p5*p3p6+p3p4*
11784      . p3p5*p5p6-p3p5*p3p6*p4p5))+ans2
11785       ans=ccc*ans1
11786       b(9)=ans
11787       ans4=4*(fmc*hbcm2*p1p2*p6p8+fmc*hbcm2*p1p4*p6p8-fmc*hbcm2*p1p8*
11788      . p4p6+fmc*hbcm2*p2p5*p6p8+3*fmc*hbcm2*p2p8*p5p6+fmc*hbcm2*p4p5*
11789      . p6p8+fmc*hbcm2*p4p6*p5p8+fmc*p1p3*p2p3*p6p8+fmc*p1p3*p3p4*p6p8
11790      . -fmc*p1p8*p2p3*p3p6-fmc*p1p8*p3p4*p3p6+fmc*p2p3*p3p5*p6p8+fmc*
11791      . p2p3*p3p6*p5p8-2*fmc*p2p8*p3p5*p3p6+fmc*p3p4*p3p5*p6p8+fmc*
11792      . p3p4*p3p6*p5p8-2*fmc*p3p5*p3p6*p4p8+fmc2*hbcm*p1p3*p6p8-fmc2*
11793      . hbcm*p1p8*p3p6+fmc2*hbcm*p3p5*p6p8+fmc2*hbcm*p3p6*p5p8+hbcm*
11794      . p1p2*p2p3*p6p8-hbcm*p1p2*p2p8*p3p6+hbcm*p1p2*p3p4*p6p8-hbcm*
11795      . p1p2*p3p6*p4p8+hbcm*p1p3*p2p8*p4p6+hbcm*p1p3*p4p6*p4p8+hbcm*
11796      . p1p4*p2p3*p6p8-hbcm*p1p4*p2p8*p3p6+hbcm*p1p4*p3p4*p6p8-hbcm*
11797      . p1p4*p3p6*p4p8-hbcm*p1p8*p2p3*p4p6-hbcm*p1p8*p3p4*p4p6+hbcm*
11798      . p2p3*p2p5*p6p8+hbcm*p2p3*p4p5*p6p8+3*hbcm*p2p3*p4p6*p4p8+hbcm*
11799      . p2p3*p4p6*p5p8-3*hbcm*p2p3*p4p8*p5p6-hbcm*p2p5*p2p8*p3p6+hbcm*
11800      . p2p5*p3p4*p6p8-hbcm*p2p5*p3p6*p4p8-3*hbcm*p2p8*p3p4*p4p6+3*
11801      . hbcm*p2p8*p3p4*p5p6-hbcm*p2p8*p3p5*p4p6-hbcm*p2p8*p3p6*p4p5+
11802      . hbcm*p3p4*p4p5*p6p8+hbcm*p3p4*p4p6*p5p8-hbcm*p3p5*p4p6*p4p8-
11803      . hbcm*p3p6*p4p5*p4p8)
11804       ans3=4*(p4p8*p3p6*p3p4)*(fmc-hbcm)+4*(p3p6*p3p4*p2p8)*(-5*fmc+2
11805      . *hbcm)+4*p6p8*(-fmc*p2p3s2-fmc*p3p4s2+fmc2*hbcm3-fmc3*hbcm2+
11806      . hbcm*p2p3s2+hbcm*p3p4s2)+4*(p4p8*p3p6*p2p3)*(7*fmc-4*hbcm)+8*(
11807      . p6p8*p3p4*p2p3)*(-fmc+hbcm)+4*(p3p6*p2p8*p2p3)*(fmc-hbcm)+8*(
11808      . p6p8*p3p4)*(fmc*hbcm2-fmc2*hbcm)+8*(p6p8*p2p3)*(fmc*hbcm2-fmc2
11809      . *hbcm)+2*(p4p8*p4p6)*(-fmb*hbcm2+fmc*hbcm2-hbcm3)+2*(p4p6*p2p8
11810      . )*(-fmb*hbcm2-5*fmc*hbcm2-hbcm3)+2*(p4p8*p3p6)*(-fmb*fmc*hbcm-
11811      . 3*fmc*hbcm2+3*fmc2*hbcm)+2*(p3p6*p2p8)*(-fmb*fmc*hbcm+3*fmc*
11812      . hbcm2-9*fmc2*hbcm)+ans4
11813       ans2=w11*ans3
11814       ans7=4*(fmb*fmc*hbcm*p1p3*p6p8-fmb*fmc*hbcm*p1p8*p3p6+fmb*hbcm2
11815      . *p1p2*p6p8+fmb*hbcm2*p1p4*p6p8-fmb*hbcm2*p1p8*p4p6+fmb*hbcm2*
11816      . p2p5*p6p8-3*fmb*hbcm2*p2p8*p4p6+2*fmb*hbcm2*p2p8*p5p6+fmb*
11817      . hbcm2*p4p5*p6p8-fmb*hbcm2*p4p8*p5p6+fmc*hbcm2*p5p6*p5p8+fmc*
11818      . p1p3*p3p5*p6p8-fmc*p1p8*p3p5*p3p6-fmc*p3p5*p3p6*p5p8+hbcm*p1p2
11819      . *p3p5*p6p8-hbcm*p1p2*p3p6*p5p8+hbcm*p1p3*p4p6*p5p8+hbcm*p1p4*
11820      . p3p5*p6p8-hbcm*p1p4*p3p6*p5p8-hbcm*p1p8*p3p5*p4p6+3*hbcm*p2p3*
11821      . p4p6*p5p8-2*hbcm*p2p3*p5p6*p5p8+hbcm*p2p5*p3p5*p6p8-hbcm*p2p5*
11822      . p3p6*p5p8-3*hbcm*p2p8*p3p5*p4p6+2*hbcm*p2p8*p3p5*p5p6+hbcm*
11823      . p3p4*p5p6*p5p8+hbcm*p3p5*p4p5*p6p8-hbcm*p3p5*p4p8*p5p6-hbcm*
11824      . p3p6*p4p5*p5p8)
11825       ans6=4*(p4p8*p3p6*p3p5)*(fmc-hbcm)+4*(p6p8*p3p5*p3p4)*(-fmc+
11826      . hbcm)+4*(p3p6*p3p5*p2p8)*(-5*fmc+2*hbcm)+12*(p5p8*p3p6*p2p3)*(
11827      . 2*fmc-hbcm)+4*(p6p8*p3p5*p2p3)*(-fmc+hbcm)+2*(p5p8*p4p6)*(fmb*
11828      . hbcm2+fmc*hbcm2-hbcm3)+4*p6p8*(fmb*fmc*hbcm3-fmb*fmc2*hbcm2+
11829      . fmc*p3p5s2)+2*(p5p8*p3p6)*(fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+4
11830      . *(p4p8*p3p6)*(fmb*fmc*hbcm-fmb*hbcm2)+4*(p6p8*p3p5)*(fmb*fmc*
11831      . hbcm+fmc*hbcm2-fmc2*hbcm)+4*(p6p8*p3p4)*(-fmb*fmc*hbcm+fmb*
11832      . hbcm2)+4*(p3p6*p2p8)*(-5*fmb*fmc*hbcm+2*fmb*hbcm2)+4*(p6p8*
11833      . p2p3)*(-fmb*fmc*hbcm+fmb*hbcm2)+ans7
11834       ans5=w2*ans6
11835       ans8=(8*(p5p8*p3p6)*(-2*fb3*fmc-3*hbcm)+4*(p4p8*p3p6)*(-4*fb3*
11836      . fmc+4*fb3*hbcm-hbcm)+8*(p6p8*p3p5)*(-2*fb3*fmc+3*hbcm)+4*(p6p8
11837      . *p3p4)*(4*fb3*fmc-4*fb3*hbcm+hbcm)+16*(p3p6*p2p8)*(5*fb3*fmc-2
11838      . *fb3*hbcm+2*hbcm)+16*(p6p8*p2p3)*(fb3*fmc-fb3*hbcm-2*hbcm)+4*(
11839      . p3p6*p1p8)*(4*fb3*fmc+hbcm)+4*(p6p8*p1p3)*(-4*fb3*fmc-hbcm)+
11840      . p6p8*(-16*fb3*fmc*hbcm2+16*fb3*fmc2*hbcm+13*fmb*hbcm2-7*fmc*
11841      . hbcm2+11*hbcm3)+16*(-fb3*hbcm*p1p2*p6p8-fb3*hbcm*p1p4*p6p8+fb3
11842      . *hbcm*p1p8*p4p6-fb3*hbcm*p2p5*p6p8+3*fb3*hbcm*p2p8*p4p6-2*fb3*
11843      . hbcm*p2p8*p5p6-fb3*hbcm*p4p5*p6p8-fb3*hbcm*p4p6*p5p8+fb3*hbcm*
11844      . p4p8*p5p6))
11845       ans1=w1*(4*p6p8*(-fmc*p3p4s2+fmc2*hbcm3-fmc3*hbcm2+hbcm*p3p4s2)
11846      . +4*(p4p8*p3p6*p3p4)*(fmc-hbcm)+4*(p3p6*p3p4*p2p8)*(-5*fmc+2*
11847      . hbcm)+12*(p4p8*p3p6*p2p3)*(2*fmc-hbcm)+4*(p6p8*p3p4*p2p3)*(-
11848      . fmc+hbcm)+8*(p6p8*p3p4)*(fmc*hbcm2-fmc2*hbcm)+4*(p3p6*p2p8)*(2
11849      . *fmc*hbcm2-5*fmc2*hbcm)+4*(p6p8*p2p3)*(fmc*hbcm2-fmc2*hbcm)+2*
11850      . (p4p8*p4p6)*(-fmb*hbcm2+fmc*hbcm2-hbcm3)+2*(p4p8*p3p6)*(-fmb*
11851      . fmc*hbcm-3*fmc*hbcm2+3*fmc2*hbcm)+4*(fmc*hbcm2*p1p2*p6p8+fmc*
11852      . hbcm2*p1p4*p6p8-fmc*hbcm2*p1p8*p4p6+fmc*hbcm2*p2p5*p6p8-3*fmc*
11853      . hbcm2*p2p8*p4p6+2*fmc*hbcm2*p2p8*p5p6+fmc*hbcm2*p4p5*p6p8+fmc*
11854      . hbcm2*p4p6*p5p8+fmc*p1p3*p3p4*p6p8-fmc*p1p8*p3p4*p3p6+fmc*p3p4
11855      . *p3p5*p6p8+fmc*p3p4*p3p6*p5p8-2*fmc*p3p5*p3p6*p4p8+fmc2*hbcm*
11856      . p1p3*p6p8-fmc2*hbcm*p1p8*p3p6+fmc2*hbcm*p3p5*p6p8+fmc2*hbcm*
11857      . p3p6*p5p8+hbcm*p1p2*p3p4*p6p8-hbcm*p1p2*p3p6*p4p8+hbcm*p1p3*
11858      . p4p6*p4p8+hbcm*p1p4*p3p4*p6p8-hbcm*p1p4*p3p6*p4p8-hbcm*p1p8*
11859      . p3p4*p4p6+3*hbcm*p2p3*p4p6*p4p8-2*hbcm*p2p3*p4p8*p5p6+hbcm*
11860      . p2p5*p3p4*p6p8-hbcm*p2p5*p3p6*p4p8-3*hbcm*p2p8*p3p4*p4p6+2*
11861      . hbcm*p2p8*p3p4*p5p6+hbcm*p3p4*p4p5*p6p8+hbcm*p3p4*p4p6*p5p8-
11862      . hbcm*p3p5*p4p6*p4p8-hbcm*p3p6*p4p5*p4p8))+ans2+ans5+ans8
11863       ans=ccc*ans1
11864       b(10)=ans
11865       ans4=4*(-fmb*fmc*hbcm*p1p3*p6p7-fmb*fmc*hbcm*p3p6*p5p7-3*fmb*
11866      . hbcm2*p1p2*p6p7-fmb*hbcm2*p1p4*p6p7-2*fmb*hbcm2*p2p4*p6p7+fmb*
11867      . hbcm2*p2p5*p6p7-fmb*hbcm2*p4p5*p6p7-6*fmb*hbcm2*p4p6*p4p7-fmb*
11868      . hbcm2*p4p6*p5p7-fmc*p1p3*p3p5*p6p7+2*fmc*p1p3*p3p7*p5p6-2*fmc*
11869      . p1p5*p3p6*p3p7-fmc*p3p5*p3p6*p5p7-4*fmc*p3p5*p3p7*p5p6-3*hbcm*
11870      . p1p2*p3p5*p6p7+2*hbcm*p1p2*p3p7*p5p6-hbcm*p1p4*p3p5*p6p7+2*
11871      . hbcm*p1p4*p3p7*p5p6+4*hbcm*p1p5*p2p3*p6p7-2*hbcm*p1p5*p3p7*
11872      . p4p6-4*hbcm*p2p3*p2p5*p6p7+4*hbcm*p2p3*p4p5*p6p7-4*hbcm*p2p3*
11873      . p4p6*p5p7+4*hbcm*p2p3*p4p7*p5p6-2*hbcm*p2p4*p3p5*p6p7+hbcm*
11874      . p2p5*p3p5*p6p7+4*hbcm*p2p5*p3p7*p4p6-hbcm*p3p5*p4p5*p6p7-8*
11875      . hbcm*p3p5*p4p6*p4p7-hbcm*p3p5*p4p6*p5p7-3*hbcm*p3p5*p4p7*p5p6)
11876       ans3=8*(p4p5*p3p7*p3p6)*(fmc-hbcm)+8*(p5p6*p3p7*p3p4)*(-fmc+
11877      . hbcm)+4*(p6p7*p3p5*p3p4)*(fmc-hbcm)+8*(p3p7*p3p6*p2p5)*(3*fmc-
11878      . hbcm)+8*(p5p6*p3p7*p2p3)*(3*fmc-hbcm)+16*(p5p7*p3p6*p2p3)*(-2*
11879      . fmc+hbcm)+4*(p4p6*p3p7*p3p5)*(fmb-9*fmc)+4*(p4p7*p3p6*p3p5)*(4
11880      . *fmb-9*fmc+5*hbcm)+4*(p6p7*p3p5*p2p3)*(-2*fmb+7*fmc-hbcm)+4*(
11881      . p5p6*p4p7)*(-fmb*hbcm2+4*fmc*hbcm2-4*hbcm3)+4*p6p7*(-fmb*fmc*
11882      . hbcm3+fmb*fmc2*hbcm2-fmc*p3p5s2)+8*(p5p6*p3p7)*(-fmb*fmc*hbcm-
11883      . fmc*hbcm2+fmc2*hbcm)+4*(p4p6*p3p7)*(-7*fmb*fmc*hbcm+fmb2*hbcm)
11884      . +4*(p4p7*p3p6)*(-5*fmb*fmc*hbcm+3*fmb*hbcm2+4*fmb2*hbcm)+4*(
11885      . p3p7*p3p6)*(2*fmb*fmc*hbcm-5*fmb*fmc2+5*fmb2*fmc)+4*(p6p7*p3p5
11886      . )*(-fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+4*(p6p7*p3p4)*(fmb*fmc*
11887      . hbcm-fmb*hbcm2)+4*(p6p7*p2p3)*(3*fmb*fmc*hbcm-fmb*hbcm2-2*fmb2
11888      . *hbcm)+4*(p3p7*p3p6*p3p5)*(5*ffmcfmb*fmb-7*ffmcfmb*fmc+2*fmc)+
11889      . ans4
11890       ans2=w2*ans3
11891       ans7=4*(-3*fmc*hbcm2*p1p2*p6p7-fmc*hbcm2*p1p4*p6p7+fmc*hbcm2*
11892      . p2p5*p6p7-fmc*hbcm2*p4p5*p6p7-fmc*hbcm2*p4p6*p5p7+fmc*hbcm2*
11893      . p4p7*p5p6-fmc*p1p3*p3p4*p6p7+4*fmc*p1p3*p3p7*p4p6-4*fmc*p1p4*
11894      . p3p6*p3p7+4*fmc*p2p3*p3p7*p4p6-fmc*p3p4*p3p5*p6p7-fmc*p3p4*
11895      . p3p6*p5p7+6*fmc*p3p4*p3p7*p5p6+4*fmc*p3p5*p3p6*p4p7-4*fmc*p3p5
11896      . *p3p7*p4p6-4*fmc*p3p6*p3p7*p4p5-fmc2*hbcm*p1p3*p6p7-fmc2*hbcm*
11897      . p3p5*p6p7-fmc2*hbcm*p3p6*p5p7+4*fmc2*hbcm*p3p7*p5p6-3*hbcm*
11898      . p1p2*p3p4*p6p7+2*hbcm*p1p2*p3p6*p4p7+4*hbcm*p1p3*p2p4*p6p7+2*
11899      . hbcm*p1p3*p4p6*p4p7-hbcm*p1p4*p3p4*p6p7-2*hbcm*p1p4*p3p6*p4p7+
11900      . 4*hbcm*p2p3*p2p4*p6p7+2*hbcm*p2p3*p4p6*p4p7+2*hbcm*p2p4*p3p4*
11901      . p6p7-4*hbcm*p2p4*p3p5*p6p7-4*hbcm*p2p4*p3p6*p5p7+hbcm*p2p5*
11902      . p3p4*p6p7+2*hbcm*p2p5*p3p6*p4p7-hbcm*p3p4*p4p5*p6p7-4*hbcm*
11903      . p3p4*p4p6*p4p7-hbcm*p3p4*p4p6*p5p7+3*hbcm*p3p4*p4p7*p5p6-2*
11904      . hbcm*p3p5*p4p6*p4p7-2*hbcm*p3p6*p4p5*p4p7)
11905       ans6=4*p6p7*(fmc*p3p4s2-fmc2*hbcm3+fmc3*hbcm2-hbcm*p3p4s2)+16*(
11906      . p3p7*p3p6*p2p4)*(fmc-hbcm)+8*(p4p7*p3p6*p2p3)*(-2*fmc+hbcm)+8*
11907      . (p6p7*p3p4)*(-fmc*hbcm2+fmc2*hbcm)+4*(p4p6*p3p7*p3p4)*(-fmb-3*
11908      . fmc)+4*(p4p7*p3p6*p3p4)*(-4*fmb-fmc+hbcm)+4*(p6p7*p3p4*p2p3)*(
11909      . 2*fmb-5*fmc-hbcm)+4*(p4p7*p4p6)*(-fmb*hbcm2-fmc*hbcm2-hbcm3)+8
11910      . *(p6p7*p2p4)*(-fmb*hbcm2+2*fmc*hbcm2-hbcm3)+4*(p3p7*p3p6)*(-5*
11911      . fmb*fmc2+4*fmc2*hbcm-fmc3)+4*(p4p6*p3p7)*(-3*fmb*fmc*hbcm-2*
11912      . fmc*hbcm2+fmc2*hbcm)+4*(p4p7*p3p6)*(-3*fmb*fmc*hbcm+4*fmc*
11913      . hbcm2-2*fmc2*hbcm)+4*(p6p7*p2p3)*(2*fmb*fmc*hbcm-fmc*hbcm2-5*
11914      . fmc2*hbcm)+4*(p3p7*p3p6*p3p4)*(-5*ffmcfmb*fmb-ffmcfmb*fmc+2*
11915      . fmc)+ans7
11916       ans5=w1*ans6
11917       ans12=3*hbcm*p3p4*p4p7*p5p6-2*hbcm*p3p5*p4p6*p4p7-2*hbcm*p3p6*
11918      . p4p5*p4p7
11919       ans11=-3*fmc*hbcm2*p1p2*p6p7-fmc*hbcm2*p1p4*p6p7+fmc*hbcm2*p2p5
11920      . *p6p7-fmc*hbcm2*p4p5*p6p7-fmc*hbcm2*p4p6*p5p7+fmc*hbcm2*p4p7*
11921      . p5p6-2*fmc*p1p2*p3p6*p3p7-fmc*p1p3*p2p3*p6p7-fmc*p1p3*p3p4*
11922      . p6p7+4*fmc*p1p3*p3p7*p4p6-4*fmc*p1p4*p3p6*p3p7-fmc*p2p3*p3p5*
11923      . p6p7-fmc*p2p3*p3p6*p5p7+2*fmc*p2p3*p3p7*p5p6+10*fmc*p2p5*p3p6*
11924      . p3p7-fmc*p3p4*p3p5*p6p7-fmc*p3p4*p3p6*p5p7+6*fmc*p3p4*p3p7*
11925      . p5p6+4*fmc*p3p5*p3p6*p4p7-4*fmc*p3p5*p3p7*p4p6-4*fmc*p3p6*p3p7
11926      . *p4p5-fmc2*hbcm*p1p3*p6p7-fmc2*hbcm*p3p5*p6p7-fmc2*hbcm*p3p6*
11927      . p5p7+4*fmc2*hbcm*p3p7*p5p6+hbcm*p1p2*p2p3*p6p7-3*hbcm*p1p2*
11928      . p3p4*p6p7+2*hbcm*p1p2*p3p6*p4p7-2*hbcm*p1p2*p3p7*p4p6+4*hbcm*
11929      . p1p3*p2p4*p6p7+2*hbcm*p1p3*p4p6*p4p7-hbcm*p1p4*p2p3*p6p7-hbcm*
11930      . p1p4*p3p4*p6p7-2*hbcm*p1p4*p3p6*p4p7+6*hbcm*p2p3*p2p4*p6p7-3*
11931      . hbcm*p2p3*p2p5*p6p7-hbcm*p2p3*p4p5*p6p7-6*hbcm*p2p3*p4p6*p4p7-
11932      . hbcm*p2p3*p4p6*p5p7+5*hbcm*p2p3*p4p7*p5p6+2*hbcm*p2p4*p3p4*
11933      . p6p7-4*hbcm*p2p4*p3p5*p6p7-4*hbcm*p2p4*p3p6*p5p7-2*hbcm*p2p4*
11934      . p3p7*p5p6+hbcm*p2p5*p3p4*p6p7+10*hbcm*p2p5*p3p6*p4p7+2*hbcm*
11935      . p2p5*p3p7*p4p6-hbcm*p3p4*p4p5*p6p7-4*hbcm*p3p4*p4p6*p4p7-hbcm*
11936      . p3p4*p4p6*p5p7+ans12
11937       ans10=4*ans11
11938       ans9=24*(p3p7*p3p6*p2p4)*(fmc-hbcm)+8*(p6p7*p3p4)*(-fmc*hbcm2+
11939      . fmc2*hbcm)+4*(p4p6*p3p7*p3p4)*(-fmb-3*fmc)+4*(p4p7*p3p6*p3p4)*
11940      . (-4*fmb-fmc+hbcm)+4*p6p7*(-2*fmb*p2p3s2+7*fmc*p2p3s2+fmc*
11941      . p3p4s2-fmc2*hbcm3+fmc3*hbcm2-hbcm*p2p3s2-hbcm*p3p4s2)+4*(p4p6*
11942      . p3p7*p2p3)*(fmb-5*fmc)+4*(p4p7*p3p6*p2p3)*(4*fmb-13*fmc+7*hbcm
11943      . )+8*(p6p7*p3p4*p2p3)*(fmb-2*fmc-hbcm)+4*(p4p7*p4p6)*(-fmb*
11944      . hbcm2-fmc*hbcm2-hbcm3)+8*(p6p7*p2p4)*(-fmb*hbcm2+2*fmc*hbcm2-
11945      . hbcm3)+4*(p3p7*p3p6)*(-5*fmb*fmc2+4*fmc2*hbcm-fmc3)+4*(p4p6*
11946      . p3p7)*(-3*fmb*fmc*hbcm-2*fmc*hbcm2+fmc2*hbcm)+4*(p4p7*p3p6)*(-
11947      . 3*fmb*fmc*hbcm+4*fmc*hbcm2-2*fmc2*hbcm)+8*(p6p7*p2p3)*(fmb*fmc
11948      . *hbcm-fmc*hbcm2-2*fmc2*hbcm)+4*(p3p7*p3p6*p3p4)*(-5*ffmcfmb*
11949      . fmb-ffmcfmb*fmc+2*fmc)+4*(p3p7*p3p6*p2p3)*(5*ffmcfmb*fmb-7*
11950      . ffmcfmb*fmc+2*fmc)+ans10
11951       ans8=w11*ans9
11952       ans13=(2*(p6p7*p1p3)*(-8*fb4*fmc+5*hbcm)+2*(p6p7*p2p3)*(8*fb3*
11953      . hbcm-16*fb4*fmb+24*fb4*fmc+19*hbcm)+8*(p5p6*p3p7)*(-2*fb3*fmc-
11954      . 2*fb4*fmc+hbcm)+4*(p4p6*p3p7)*(16*fb3*fmc+4*fb4*fmb-4*fb4*fmc-
11955      . 5*hbcm)+2*(p5p7*p3p6)*(16*fb3*fmc+8*fb4*fmc+9*hbcm)+2*(p4p7*
11956      . p3p6)*(-8*fb3*fmc-8*fb3*hbcm+32*fb4*fmb-16*fb4*fmc+3*hbcm)+2*(
11957      . p6p7*p3p5)*(16*fb3*fmc+8*fb4*fmc-15*hbcm)+2*(p6p7*p3p4)*(-16*
11958      . fb3*fmc+8*fb3*hbcm-8*fb4*fmc-hbcm)+2*p6p7*(4*fb3*fmb*fmc*hbcm+
11959      . 12*fb3*fmc*hbcm2-20*fb3*fmc2*hbcm+4*fb4*fmb*fmc*hbcm+4*fb4*fmc
11960      . *hbcm2-12*fb4*fmc2*hbcm-8*fmb*hbcm2+6*fmc*hbcm2-7*hbcm3)+2*(
11961      . p3p7*p3p6)*(-16*fb3*ffmcfmb*fmc+40*fb4*ffmcfmb*fmb-24*fb4*
11962      . ffmcfmb*fmc+5*fmb-3*fmc)+16*(3*fb3*hbcm*p1p2*p6p7+fb3*hbcm*
11963      . p1p4*p6p7+2*fb3*hbcm*p2p4*p6p7-fb3*hbcm*p2p5*p6p7+fb3*hbcm*
11964      . p4p5*p6p7+4*fb3*hbcm*p4p6*p4p7+fb3*hbcm*p4p6*p5p7-fb3*hbcm*
11965      . p4p7*p5p6))
11966       ans1=ans2+ans5+ans8+ans13
11967       ans=ccc*ans1
11968       b(11)=ans
11969       ans4=4*(8*ffmcfmb*p3p5*p3p6*p3p7*p5p8-8*fmb*hbcm*p2p3*p2p8*p6p7
11970      . -4*fmb*hbcm*p2p3*p4p6*p7p8+4*fmb*hbcm*p2p3*p4p7*p6p8+8*fmb*
11971      . hbcm*p2p3*p4p8*p6p7+4*fmb*hbcm*p2p3*p5p6*p7p8-4*fmb*hbcm*p2p3*
11972      . p5p7*p6p8+10*fmb*hbcm*p2p8*p3p7*p4p6-6*fmb*hbcm*p2p8*p3p7*p5p6
11973      . -fmc*hbcm*p1p3*p5p8*p6p7-fmc*hbcm*p3p5*p5p8*p6p7-fmc*hbcm*p3p6
11974      . *p5p7*p5p8-6*fmc*hbcm*p3p7*p5p6*p5p8-3*hbcm2*p1p2*p5p8*p6p7-
11975      . hbcm2*p1p4*p5p8*p6p7-2*hbcm2*p2p4*p5p8*p6p7+hbcm2*p2p5*p5p8*
11976      . p6p7-hbcm2*p4p5*p5p8*p6p7-6*hbcm2*p4p6*p4p7*p5p8-hbcm2*p4p6*
11977      . p5p7*p5p8-5*hbcm2*p4p7*p5p6*p5p8-8*p2p3*p2p8*p3p5*p6p7-4*p2p3*
11978      . p3p5*p4p6*p7p8+4*p2p3*p3p5*p4p7*p6p8+8*p2p3*p3p5*p4p8*p6p7+4*
11979      . p2p3*p3p5*p5p6*p7p8-4*p2p3*p3p5*p5p7*p6p8+10*p2p8*p3p5*p3p7*
11980      . p4p6-6*p2p8*p3p5*p3p7*p5p6+8*p3p5*p3p6*p4p7*p5p8)
11981       ans3=4*(p6p7*p5p8)*(-fmc*hbcm3+fmc2*hbcm2)+4*(p5p8*p4p6*p3p7)*(
11982      . -6*fmc*hbcm-hbcm2)+4*(p6p7*p5p8*p3p4)*(fmc*hbcm-hbcm2)+4*(p5p8
11983      . *p4p7*p3p6)*(4*fmb*hbcm-5*fmc*hbcm+3*hbcm2)+16*(p6p8*p4p7*p3p5
11984      . )*(-fmb*hbcm+fmc*hbcm-hbcm2)+4*(p6p7*p5p8*p2p3)*(2*fmb*hbcm+3*
11985      . fmc*hbcm-hbcm2)+4*(p5p8*p3p7*p3p6)*(4*fmb*fmc+fmc*hbcm-4*fmc2)
11986      . +16*(p6p8*p3p7*p3p5)*(-fmb*fmc-fmc*hbcm+fmc2)+8*(p3p7*p3p6*
11987      . p2p8)*(8*fmb*fmc-3*fmb*hbcm)+16*(p6p8*p3p7*p2p3)*(2*fmb*fmc-
11988      . fmb*hbcm)+16*(p7p8*p3p6*p2p3)*(-2*fmb*fmc+fmb*hbcm)+16*(p6p8*
11989      . p4p7)*(fmb*fmc*hbcm2-fmb*hbcm3+fmb2*hbcm2-2*p3p5s2)+16*(p6p8*
11990      . p3p7)*(-2*ffmcfmb*p3p5s2-fmb*fmc*hbcm2+fmb*fmc2*hbcm+fmb2*fmc*
11991      . hbcm)+(p3p7*p3p6*p3p5*p2p8)*(64*ffmcfmb-24)+(p6p8*p3p7*p3p5*
11992      . p2p3)*(32*ffmcfmb-16)+(p7p8*p3p6*p3p5*p2p3)*(-32*ffmcfmb+16)+
11993      . ans4
11994       ans2=w2*ans3
11995       ans9=-4*p2p3*p3p4*p4p7*p6p8-8*p2p3*p3p4*p4p8*p6p7-4*p2p3*p3p4*
11996      . p5p6*p7p8+4*p2p3*p3p4*p5p7*p6p8-10*p2p8*p3p4*p3p7*p4p6+6*p2p8*
11997      . p3p4*p3p7*p5p6+8*p3p4*p3p5*p4p7*p6p8-8*p3p4*p3p6*p4p7*p5p8
11998       ans8=8*ffmcfmb*p3p4*p3p5*p3p7*p6p8-8*ffmcfmb*p3p4*p3p6*p3p7*
11999      . p5p8+2*fmc*hbcm*p1p3*p4p7*p6p8-fmc*hbcm*p1p3*p4p8*p6p7-4*fmc*
12000      . hbcm*p1p4*p3p7*p6p8-2*fmc*hbcm*p1p8*p3p6*p4p7+4*fmc*hbcm*p1p8*
12001      . p3p7*p4p6+8*fmc*hbcm*p2p3*p2p8*p6p7+4*fmc*hbcm*p2p3*p4p6*p7p8-
12002      . 4*fmc*hbcm*p2p3*p5p6*p7p8+4*fmc*hbcm*p2p3*p5p7*p6p8-14*fmc*
12003      . hbcm*p2p8*p3p7*p4p6+6*fmc*hbcm*p2p8*p3p7*p5p6+10*fmc*hbcm*p3p5
12004      . *p4p7*p6p8-fmc*hbcm*p3p5*p4p8*p6p7-6*fmc*hbcm*p3p6*p4p7*p5p8-
12005      . fmc*hbcm*p3p6*p4p8*p5p7-4*fmc*hbcm*p3p7*p4p5*p6p8-4*fmc*hbcm*
12006      . p3p7*p4p6*p5p8+2*fmc*hbcm*p3p7*p4p8*p5p6+8*fmc2*p3p5*p3p7*p6p8
12007      . -8*fmc2*p3p6*p3p7*p5p8+2*hbcm2*p1p2*p4p7*p6p8-3*hbcm2*p1p2*
12008      . p4p8*p6p7-2*hbcm2*p1p4*p4p7*p6p8-hbcm2*p1p4*p4p8*p6p7+4*hbcm2*
12009      . p1p8*p2p4*p6p7+2*hbcm2*p1p8*p4p6*p4p7-4*hbcm2*p2p4*p2p8*p6p7-4
12010      . *hbcm2*p2p4*p4p6*p7p8+2*hbcm2*p2p4*p4p8*p6p7+4*hbcm2*p2p4*p5p6
12011      . *p7p8-4*hbcm2*p2p4*p5p7*p6p8-4*hbcm2*p2p4*p5p8*p6p7+2*hbcm2*
12012      . p2p5*p4p7*p6p8+hbcm2*p2p5*p4p8*p6p7-2*hbcm2*p2p8*p4p7*p5p6-2*
12013      . hbcm2*p4p5*p4p7*p6p8-hbcm2*p4p5*p4p8*p6p7-2*hbcm2*p4p6*p4p7*
12014      . p4p8-2*hbcm2*p4p6*p4p7*p5p8-hbcm2*p4p6*p4p8*p5p7+hbcm2*p4p7*
12015      . p4p8*p5p6+8*p2p3*p2p8*p3p4*p6p7+4*p2p3*p3p4*p4p6*p7p8+ans9
12016       ans7=4*ans8
12017       ans6=4*(p6p7*p4p8)*(-fmc*hbcm3+fmc2*hbcm2)+4*(p4p8*p4p6*p3p7)*(
12018      . -2*fmc*hbcm-hbcm2)+4*(p6p7*p4p8*p3p4)*(fmc*hbcm-hbcm2)+8*(p4p7
12019      . *p3p6*p2p8)*(3*fmc*hbcm-hbcm2)+8*(p3p7*p3p6*p2p8)*(3*fmc*hbcm-
12020      . 8*fmc2)+16*(p6p8*p3p7*p2p4)*(fmc*hbcm-hbcm2)+16*(p7p8*p3p6*
12021      . p2p4)*(-2*fmc*hbcm+hbcm2)+8*(p6p8*p4p7*p2p3)*(-3*fmc*hbcm+
12022      . hbcm2)+16*(p6p8*p3p7*p2p3)*(fmc*hbcm-2*fmc2)+16*(p7p8*p3p6*
12023      . p2p3)*(-fmc*hbcm+2*fmc2)+4*(p4p8*p4p7*p3p6)*(-4*fmb*hbcm-3*fmc
12024      . *hbcm+hbcm2)+8*(p6p8*p4p7*p3p4)*(2*fmb*hbcm+fmc*hbcm+hbcm2)+4*
12025      . (p6p7*p4p8*p2p3)*(2*fmb*hbcm-5*fmc*hbcm-hbcm2)+16*(p6p8*p3p7)*
12026      . (fmb*fmc2*hbcm+fmc2*hbcm2)+4*(p4p8*p3p7*p3p6)*(-4*fmb*fmc+fmc*
12027      . hbcm-4*fmc2)+16*(p6p8*p3p7*p3p4)*(fmb*fmc+fmc2)+8*(p6p8*p4p7)*
12028      . (2*fmb*fmc*hbcm2+3*fmc*hbcm3-fmc2*hbcm2)+(p3p7*p3p6*p3p4*p2p8)
12029      . *(-64*ffmcfmb+24)+(p6p8*p3p7*p3p4*p2p3)*(-32*ffmcfmb+16)+(p7p8
12030      . *p3p6*p3p4*p2p3)*(32*ffmcfmb-16)+ans7
12031       ans5=w1*ans6
12032       ans15=-5*hbcm2*p2p8*p4p7*p5p6-2*hbcm2*p4p5*p4p7*p6p8-hbcm2*p4p5
12033      . *p4p8*p6p7-2*hbcm2*p4p6*p4p7*p4p8-2*hbcm2*p4p6*p4p7*p5p8-hbcm2
12034      . *p4p6*p4p8*p5p7+hbcm2*p4p7*p4p8*p5p6+8*p2p3*p2p8*p3p4*p6p7+10*
12035      . p2p3*p2p8*p3p7*p4p6-6*p2p3*p2p8*p3p7*p5p6+4*p2p3*p3p4*p4p6*
12036      . p7p8-4*p2p3*p3p4*p4p7*p6p8-8*p2p3*p3p4*p4p8*p6p7-4*p2p3*p3p4*
12037      . p5p6*p7p8+4*p2p3*p3p4*p5p7*p6p8-8*p2p3*p3p5*p4p7*p6p8+8*p2p3*
12038      . p3p6*p4p7*p5p8-4*p2p3s2*p4p6*p7p8+4*p2p3s2*p5p6*p7p8-4*p2p3s2*
12039      . p5p7*p6p8-10*p2p8*p3p4*p3p7*p4p6+6*p2p8*p3p4*p3p7*p5p6+8*p3p4*
12040      . p3p5*p4p7*p6p8-8*p3p4*p3p6*p4p7*p5p8
12041       ans14=-8*ffmcfmb*p2p3*p3p5*p3p7*p6p8+8*ffmcfmb*p2p3*p3p6*p3p7*
12042      . p5p8+8*ffmcfmb*p3p4*p3p5*p3p7*p6p8-8*ffmcfmb*p3p4*p3p6*p3p7*
12043      . p5p8+fmc*hbcm*p1p3*p2p8*p6p7+2*fmc*hbcm*p1p3*p4p7*p6p8-fmc*
12044      . hbcm*p1p3*p4p8*p6p7-4*fmc*hbcm*p1p4*p3p7*p6p8-2*fmc*hbcm*p1p8*
12045      . p3p6*p4p7+4*fmc*hbcm*p1p8*p3p7*p4p6+4*fmc*hbcm*p2p3*p4p6*p7p8-
12046      . 4*fmc*hbcm*p2p3*p5p6*p7p8+4*fmc*hbcm*p2p3*p5p7*p6p8+8*fmc*hbcm
12047      . *p2p5*p3p7*p6p8+fmc*hbcm*p2p8*p3p5*p6p7+fmc*hbcm*p2p8*p3p6*
12048      . p5p7+4*fmc*hbcm*p2p8*p3p7*p5p6+10*fmc*hbcm*p3p5*p4p7*p6p8-fmc*
12049      . hbcm*p3p5*p4p8*p6p7-6*fmc*hbcm*p3p6*p4p7*p5p8-fmc*hbcm*p3p6*
12050      . p4p8*p5p7-4*fmc*hbcm*p3p7*p4p5*p6p8-4*fmc*hbcm*p3p7*p4p6*p5p8+
12051      . 2*fmc*hbcm*p3p7*p4p8*p5p6+8*fmc2*p3p5*p3p7*p6p8-8*fmc2*p3p6*
12052      . p3p7*p5p8+3*hbcm2*p1p2*p2p8*p6p7+2*hbcm2*p1p2*p4p7*p6p8-3*
12053      . hbcm2*p1p2*p4p8*p6p7+hbcm2*p1p4*p2p8*p6p7-2*hbcm2*p1p4*p4p7*
12054      . p6p8-hbcm2*p1p4*p4p8*p6p7+4*hbcm2*p1p8*p2p4*p6p7+2*hbcm2*p1p8*
12055      . p4p6*p4p7-2*hbcm2*p2p4*p2p8*p6p7-4*hbcm2*p2p4*p4p6*p7p8+2*
12056      . hbcm2*p2p4*p4p8*p6p7+4*hbcm2*p2p4*p5p6*p7p8-4*hbcm2*p2p4*p5p7*
12057      . p6p8-4*hbcm2*p2p4*p5p8*p6p7-hbcm2*p2p5*p2p8*p6p7+10*hbcm2*p2p5
12058      . *p4p7*p6p8+hbcm2*p2p5*p4p8*p6p7+hbcm2*p2p8*p4p5*p6p7+6*hbcm2*
12059      . p2p8*p4p6*p4p7+hbcm2*p2p8*p4p6*p5p7+ans15
12060       ans13=4*ans14
12061       ans12=16*(p6p8*p3p7)*(2*ffmcfmb*p2p3s2+fmb*fmc2*hbcm+fmc2*hbcm2
12062      . -p2p3s2)+16*(p7p8*p3p6)*(-2*ffmcfmb*p2p3s2+p2p3s2)+(p6p8*p3p7*
12063      . p3p4*p2p3)*(-32*ffmcfmb+16)+(p7p8*p3p6*p3p4*p2p3)*(32*ffmcfmb-
12064      . 16)+(p3p7*p3p6*p2p8*p2p3)*(64*ffmcfmb-24)+ans13
12065       ans11=4*(p6p7*p4p8)*(-fmc*hbcm3+fmc2*hbcm2+8*p2p3s2)+4*(p6p7*
12066      . p2p8)*(fmc*hbcm3-fmc2*hbcm2-8*p2p3s2)+4*(p4p8*p4p6*p3p7)*(-2*
12067      . fmc*hbcm-hbcm2)+4*(p6p7*p4p8*p3p4)*(fmc*hbcm-hbcm2)+4*(p6p7*
12068      . p3p4*p2p8)*(-fmc*hbcm+hbcm2)+16*(p6p8*p3p7*p2p4)*(fmc*hbcm-
12069      . hbcm2)+16*(p7p8*p3p6*p2p4)*(-2*fmc*hbcm+hbcm2)+16*(p7p8*p3p6*
12070      . p2p3)*(-fmc*hbcm+2*fmc2)+4*(p4p8*p4p7*p3p6)*(-4*fmb*hbcm-3*fmc
12071      . *hbcm+hbcm2)+8*(p6p8*p4p7*p3p4)*(2*fmb*hbcm+fmc*hbcm+hbcm2)+4*
12072      . (p4p6*p3p7*p2p8)*(2*fmb*hbcm-6*fmc*hbcm-hbcm2)+4*(p4p7*p3p6*
12073      . p2p8)*(4*fmb*hbcm+11*fmc*hbcm-5*hbcm2)+4*(p6p7*p4p8*p2p3)*(2*
12074      . fmb*hbcm-5*fmc*hbcm-hbcm2)+8*(p6p8*p4p7*p2p3)*(2*fmb*hbcm-fmc*
12075      . hbcm-hbcm2)+4*(p6p7*p2p8*p2p3)*(-2*fmb*hbcm+5*fmc*hbcm+hbcm2)+
12076      . 4*(p4p8*p3p7*p3p6)*(-4*fmb*fmc+fmc*hbcm-4*fmc2)+16*(p6p8*p3p7*
12077      . p3p4)*(fmb*fmc+fmc2)+4*(p3p7*p3p6*p2p8)*(6*fmb*fmc+3*fmc*hbcm-
12078      . 10*fmc2)+16*(p6p8*p3p7*p2p3)*(fmb*fmc-fmc2)+8*(p6p8*p4p7)*(2*
12079      . fmb*fmc*hbcm2+3*fmc*hbcm3-fmc2*hbcm2+2*p2p3s2)+(p3p7*p3p6*p3p4
12080      . *p2p8)*(-64*ffmcfmb+24)+ans12
12081       ans10=w11*ans11
12082       ans17=32*(-4*fb4*p2p3*p2p8*p6p7-2*fb4*p2p3*p4p6*p7p8+2*fb4*p2p3
12083      . *p4p7*p6p8+4*fb4*p2p3*p4p8*p6p7+2*fb4*p2p3*p5p6*p7p8-2*fb4*
12084      . p2p3*p5p7*p6p8+5*fb4*p2p8*p3p7*p4p6-3*fb4*p2p8*p3p7*p5p6-4*fb4
12085      . *p3p5*p4p7*p6p8+4*fb4*p3p6*p4p7*p5p8)
12086       ans16=(p5p8*p3p7*p3p6)*(128*fb4*ffmcfmb+16)+(p6p8*p3p7*p3p5)*(-
12087      . 128*fb4*ffmcfmb-16)+(p3p7*p3p6*p2p8)*(256*fb4*ffmcfmb-96*fb4+
12088      . 32)+(p6p8*p3p7*p2p3)*(128*fb4*ffmcfmb-64*fb4+16)+(p7p8*p3p6*
12089      . p2p3)*(-128*fb4*ffmcfmb+64*fb4-16)+2*(p6p7*p5p8)*(8*fb3*fmc*
12090      . hbcm+8*fb4*fmc*hbcm-15*hbcm2)+2*(p6p8*p5p7)*(8*fb3*fmc*hbcm+8*
12091      . fb4*fmc*hbcm+9*hbcm2)+16*(p7p8*p5p6)*(-fb3*fmc*hbcm-fb4*fmc*
12092      . hbcm)+2*(p6p7*p4p8)*(-8*fb3*fmc*hbcm-8*fb4*fmc*hbcm-hbcm2)+8*(
12093      . p7p8*p4p6)*(2*fb3*fmc*hbcm+2*fb4*fmc*hbcm+hbcm2)+8*(p7p8*p3p6)
12094      . *(-2*fb3*fmc*hbcm+4*fb3*fmc2-2*fb4*fmc*hbcm+4*fb4*fmc2+fmb*
12095      . hbcm)+2*(p6p7*p2p8)*(8*fb3*fmc*hbcm+8*fb4*fmc*hbcm-9*hbcm2)+2*
12096      . (p6p7*p1p8)*(-8*fb3*fmc*hbcm-8*fb4*fmc*hbcm+5*hbcm2)+2*(p6p8*
12097      . p4p7)*(-32*fb3*fmb*hbcm-16*fb3*fmc*hbcm+16*fb4*fmc*hbcm-32*fb4
12098      . *hbcm2-hbcm2)+2*(p6p8*p3p7)*(-32*fb3*fmb*fmc+8*fb3*fmc*hbcm-24
12099      . *fb3*fmc2-24*fb4*fmc*hbcm+8*fb4*fmc2-4*fmb*hbcm-6*fmc*hbcm+5*
12100      . hbcm2)+ans17
12101       ans1=ans2+ans5+ans10+ans16
12102       ans=ccc*ans1
12103       b(12)=ans
12104       ans=ccc*(w2*(2*(p5p8*p3p4)*(-fmc+hbcm)+2*(p5p8*p2p3)*(-fmc+hbcm
12105      . )+2*p5p8*(fmc*hbcm2-fmc2*hbcm)+2*(fmc*p1p3*p5p8+fmc*p3p5*p5p8+
12106      . hbcm*p1p2*p5p8+hbcm*p1p4*p5p8+hbcm*p2p5*p5p8+hbcm*p4p5*p5p8))+
12107      . w1*(2*(p4p8*p3p4)*(-fmc+hbcm)+2*(p4p8*p2p3)*(-fmc+hbcm)+2*p4p8
12108      . *(fmc*hbcm2-fmc2*hbcm)+2*(fmc*p1p3*p4p8+fmc*p3p5*p4p8+hbcm*
12109      . p1p2*p4p8+hbcm*p1p4*p4p8+hbcm*p2p5*p4p8+hbcm*p4p5*p4p8))+w11*(
12110      . 2*(p4p8*p3p4)*(-fmc+hbcm)+2*(p3p4*p2p8)*(-fmc+hbcm)+2*(p4p8*
12111      . p2p3)*(-fmc+hbcm)+2*(p2p8*p2p3)*(-fmc+hbcm)+2*p4p8*(fmc*hbcm2-
12112      . fmc2*hbcm)+2*p2p8*(fmc*hbcm2-fmc2*hbcm)+2*(fmc*p1p3*p2p8+fmc*
12113      . p1p3*p4p8+fmc*p2p8*p3p5+fmc*p3p5*p4p8+hbcm*p1p2*p2p8+hbcm*p1p2
12114      . *p4p8+hbcm*p1p4*p2p8+hbcm*p1p4*p4p8+hbcm*p2p5*p2p8+hbcm*p2p5*
12115      . p4p8+hbcm*p2p8*p4p5+hbcm*p4p5*p4p8))+(-7*hbcm*p1p8-25*hbcm*
12116      . p2p8-hbcm*p4p8+17*hbcm*p5p8))
12117       b(13)=ans
12118       ans2=(p3p5*(-8*fb4*ffmcfmb-1)+8*p3p4*(fb4*ffmcfmb-fb4)+8*p2p3*(
12119      . fb4*ffmcfmb-fb4)+p1p3*(-8*fb4*ffmcfmb-1)+(-8*fb4*fmc*hbcm+8*
12120      . fb4*fmc2-8*fb4*p1p2-8*fb4*p1p4-8*fb4*p2p5-8*fb4*p4p5-9*fmb*
12121      . hbcm-7*fmc*hbcm+8*hbcm2+p2p3+p3p4))
12122       ans1=w2*(2*p3p5*(-fmb*fmc-fmc*hbcm+fmc2)+2*p3p4*(fmb*fmc-fmb*
12123      . hbcm)+2*p2p3*(fmb*fmc-fmb*hbcm)+(p3p5*p3p4)*(2*ffmcfmb-2)+(
12124      . p3p5*p2p3)*(2*ffmcfmb-2)+2*(-ffmcfmb*p1p3*p3p5-ffmcfmb*p3p5s2-
12125      . fmb*fmc*hbcm2-fmb*fmc*p1p3+fmb*fmc2*hbcm-fmb*hbcm*p1p2-fmb*
12126      . hbcm*p1p4-fmb*hbcm*p2p5-fmb*hbcm*p4p5-p1p2*p3p5-p1p4*p3p5-p2p5
12127      . *p3p5-p3p5*p4p5))+w1*(4*p3p4*(fmc*hbcm-fmc2)+2*p2p3*(fmc*hbcm-
12128      . fmc2)+(p3p4*p2p3)*(-2*ffmcfmb+2)+2*(ffmcfmb*p1p3*p3p4+ffmcfmb*
12129      . p3p4*p3p5-ffmcfmb*p3p4s2+fmc*hbcm*p1p2+fmc*hbcm*p1p4+fmc*hbcm*
12130      . p2p5+fmc*hbcm*p4p5+fmc2*hbcm2+fmc2*p1p3+fmc2*p3p5-fmc3*hbcm+
12131      . p1p2*p3p4+p1p4*p3p4+p2p5*p3p4+p3p4*p4p5+p3p4s2))+w11*(4*p3p4*(
12132      . fmc*hbcm-fmc2)+2*(-ffmcfmb*p1p3*p2p3+ffmcfmb*p1p3*p3p4-ffmcfmb
12133      . *p2p3*p3p5+ffmcfmb*p2p3s2+ffmcfmb*p3p4*p3p5-ffmcfmb*p3p4s2+fmc
12134      . *hbcm*p1p2+fmc*hbcm*p1p4+fmc*hbcm*p2p5+fmc*hbcm*p4p5+fmc2*
12135      . hbcm2+fmc2*p1p3+fmc2*p3p5-fmc3*hbcm-p1p2*p2p3+p1p2*p3p4-p1p4*
12136      . p2p3+p1p4*p3p4-p2p3*p2p5-p2p3*p4p5-p2p3s2+p2p5*p3p4+p3p4*p4p5+
12137      . p3p4s2))+ans2
12138       ans=ccc*ans1
12139       b(14)=ans
12140       ans=ccc*(w2*(2*p5p8*(fmc*hbcm3-fmc2*hbcm2)+2*(p5p8*p3p4)*(-fmc*
12141      . hbcm+hbcm2)+2*(p5p8*p2p3)*(-fmc*hbcm+hbcm2)+2*(fmc*hbcm*p1p3*
12142      . p5p8+fmc*hbcm*p3p5*p5p8+hbcm2*p1p2*p5p8+hbcm2*p1p4*p5p8+hbcm2*
12143      . p2p5*p5p8+hbcm2*p4p5*p5p8))+w1*(2*p4p8*(fmc*hbcm3-fmc2*hbcm2)+
12144      . 2*(p4p8*p3p4)*(-fmc*hbcm+hbcm2)+2*(p4p8*p2p3)*(-fmc*hbcm+hbcm2
12145      . )+2*(fmc*hbcm*p1p3*p4p8+fmc*hbcm*p3p5*p4p8+hbcm2*p1p2*p4p8+
12146      . hbcm2*p1p4*p4p8+hbcm2*p2p5*p4p8+hbcm2*p4p5*p4p8))+w11*(2*p4p8*
12147      . (fmc*hbcm3-fmc2*hbcm2)+2*p2p8*(fmc*hbcm3-fmc2*hbcm2)+2*(p4p8*
12148      . p3p4)*(-fmc*hbcm+hbcm2)+2*(p3p4*p2p8)*(-fmc*hbcm+hbcm2)+2*(
12149      . p4p8*p2p3)*(-fmc*hbcm+hbcm2)+2*(p2p8*p2p3)*(-fmc*hbcm+hbcm2)+2
12150      . *(fmc*hbcm*p1p3*p2p8+fmc*hbcm*p1p3*p4p8+fmc*hbcm*p2p8*p3p5+fmc
12151      . *hbcm*p3p5*p4p8+hbcm2*p1p2*p2p8+hbcm2*p1p2*p4p8+hbcm2*p1p4*
12152      . p2p8+hbcm2*p1p4*p4p8+hbcm2*p2p5*p2p8+hbcm2*p2p5*p4p8+hbcm2*
12153      . p2p8*p4p5+hbcm2*p4p5*p4p8))+(-7*hbcm2*p1p8-25*hbcm2*p2p8-hbcm2
12154      . *p4p8+17*hbcm2*p5p8))
12155       b(15)=ans
12156       ans2=w2*(2*(p3p5*p3p4)*(fmc-hbcm)+2*(p3p5*p2p3)*(fmc-hbcm)+2*
12157      . p3p5*(-fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+2*p3p4*(fmb*fmc*hbcm-
12158      . fmb*hbcm2)+2*p2p3*(fmb*fmc*hbcm-fmb*hbcm2)+2*(-fmb*fmc*hbcm*
12159      . p1p3-fmb*fmc*hbcm3+fmb*fmc2*hbcm2-fmb*hbcm2*p1p2-fmb*hbcm2*
12160      . p1p4-fmb*hbcm2*p2p5-fmb*hbcm2*p4p5-fmc*p1p3*p3p5-fmc*p3p5s2-
12161      . hbcm*p1p2*p3p5-hbcm*p1p4*p3p5-hbcm*p2p5*p3p5-hbcm*p3p5*p4p5))+
12162      . (p3p5*(8*fb3*fmc-17*hbcm)+p3p4*(-8*fb3*fmc+8*fb3*hbcm+hbcm)+
12163      . p2p3*(-8*fb3*fmc+8*fb3*hbcm+25*hbcm)+p1p3*(8*fb3*fmc+7*hbcm)+(
12164      . 8*fb3*fmc*hbcm2-8*fb3*fmc2*hbcm+8*fb3*hbcm*p1p2+8*fb3*hbcm*
12165      . p1p4+8*fb3*hbcm*p2p5+8*fb3*hbcm*p4p5-9*fmb*hbcm2+9*fmc*hbcm2-8
12166      . *hbcm3))
12167       ans1=w11*(4*(p3p4*p2p3)*(fmc-hbcm)+4*p3p4*(-fmc*hbcm2+fmc2*hbcm
12168      . )+4*p2p3*(-fmc*hbcm2+fmc2*hbcm)+2*(-fmc*hbcm2*p1p2-fmc*hbcm2*
12169      . p1p4-fmc*hbcm2*p2p5-fmc*hbcm2*p4p5-fmc*p1p3*p2p3-fmc*p1p3*p3p4
12170      . -fmc*p2p3*p3p5+fmc*p2p3s2-fmc*p3p4*p3p5+fmc*p3p4s2-fmc2*hbcm*
12171      . p1p3-fmc2*hbcm*p3p5-fmc2*hbcm3+fmc3*hbcm2-hbcm*p1p2*p2p3-hbcm*
12172      . p1p2*p3p4-hbcm*p1p4*p2p3-hbcm*p1p4*p3p4-hbcm*p2p3*p2p5-hbcm*
12173      . p2p3*p4p5-hbcm*p2p3s2-hbcm*p2p5*p3p4-hbcm*p3p4*p4p5-hbcm*
12174      . p3p4s2))+w1*(2*(p3p4*p2p3)*(fmc-hbcm)+4*p3p4*(-fmc*hbcm2+fmc2*
12175      . hbcm)+2*p2p3*(-fmc*hbcm2+fmc2*hbcm)+2*(-fmc*hbcm2*p1p2-fmc*
12176      . hbcm2*p1p4-fmc*hbcm2*p2p5-fmc*hbcm2*p4p5-fmc*p1p3*p3p4-fmc*
12177      . p3p4*p3p5+fmc*p3p4s2-fmc2*hbcm*p1p3-fmc2*hbcm*p3p5-fmc2*hbcm3+
12178      . fmc3*hbcm2-hbcm*p1p2*p3p4-hbcm*p1p4*p3p4-hbcm*p2p5*p3p4-hbcm*
12179      . p3p4*p4p5-hbcm*p3p4s2))+ans2
12180       ans=ccc*ans1
12181       b(16)=ans
12182       b(17)=ccc*(w2*(2*(p5p8*p3p6)*(-8*fmc+3*hbcm)+2*(-5*hbcm*p4p6*
12183      . p5p8+3*hbcm*p5p6*p5p8))+w1*(2*(p4p8*p3p6)*(-8*fmc+3*hbcm)+2*(-
12184      . 5*hbcm*p4p6*p4p8+3*hbcm*p4p8*p5p6))+w11*(10*(p4p8*p3p6)*(-2*
12185      . fmc+hbcm)+4*(p6p8*p3p4)*(fmc-hbcm)+2*(p3p6*p2p8)*(2*fmc-hbcm)+
12186      . 4*(p6p8*p2p3)*(fmc-hbcm)+4*p6p8*(-fmc*hbcm2+fmc2*hbcm)+2*(-2*
12187      . fmc*p1p3*p6p8+2*fmc*p1p8*p3p6-2*fmc*p3p5*p6p8-2*fmc*p3p6*p5p8-
12188      . 2*hbcm*p1p2*p6p8-2*hbcm*p1p4*p6p8+2*hbcm*p1p8*p4p6-2*hbcm*p2p5
12189      . *p6p8+hbcm*p2p8*p4p6-hbcm*p2p8*p5p6-2*hbcm*p4p5*p6p8-5*hbcm*
12190      . p4p6*p4p8-2*hbcm*p4p6*p5p8+5*hbcm*p4p8*p5p6))+20*hbcm*p6p8)
12191       b(18)=ccc*(w2*(2*p3p6*(-8*fmb*fmc+3*fmb*hbcm)+(p3p6*p3p5)*(-16*
12192      . ffmcfmb+6)+2*(-5*fmb*hbcm*p4p6+3*fmb*hbcm*p5p6-5*p3p5*p4p6+3*
12193      . p3p5*p5p6))+w1*(2*p3p6*(-3*fmc*hbcm+8*fmc2)+(p3p6*p3p4)*(16*
12194      . ffmcfmb-6)+2*(5*fmc*hbcm*p4p6-3*fmc*hbcm*p5p6+5*p3p4*p4p6-3*
12195      . p3p4*p5p6))+w11*(2*p4p6*(-fmb*hbcm+4*fmc*hbcm+hbcm2)+2*p3p6*(-
12196      . fmb*fmc-2*fmc*hbcm+7*fmc2)+(p3p6*p3p4)*(16*ffmcfmb-6)+(p3p6*
12197      . p2p3)*(-16*ffmcfmb+6)+2*(-3*fmc*hbcm*p5p6-5*p2p3*p4p6+3*p2p3*
12198      . p5p6+5*p3p4*p4p6-3*p3p4*p5p6))+(p3p6*(-64*fb4*ffmcfmb+24*fb4-8
12199      . )+8*(-5*fb4*p4p6+3*fb4*p5p6)))
12200       b(21)=ccc*(w2*(4*(p5p8*p3p7)*(4*fmc-hbcm)+4*(3*hbcm*p4p7*p5p8-
12201      . hbcm*p5p7*p5p8))+w1*(4*(p4p8*p3p7)*(4*fmc-hbcm)+4*(3*hbcm*p4p7
12202      . *p4p8-hbcm*p4p8*p5p7))+w11*(4*(p4p8*p3p7)*(2*fmc-hbcm)+4*(p7p8
12203      . *p3p4)*(fmc-hbcm)+4*(p3p7*p2p8)*(-2*fmc+hbcm)+4*(p7p8*p2p3)*(
12204      . fmc-hbcm)+4*p7p8*(-fmc*hbcm2+fmc2*hbcm)+4*(-fmc*p1p3*p7p8-2*
12205      . fmc*p1p8*p3p7-fmc*p3p5*p7p8+6*fmc*p3p7*p5p8-hbcm*p1p2*p7p8-
12206      . hbcm*p1p4*p7p8-2*hbcm*p1p8*p4p7-hbcm*p2p5*p7p8-hbcm*p2p8*p4p7+
12207      . hbcm*p2p8*p5p7-hbcm*p4p5*p7p8+hbcm*p4p7*p4p8+6*hbcm*p4p7*p5p8-
12208      . hbcm*p4p8*p5p7))+20*hbcm*p7p8)
12209       b(22)=ccc*(w11*(2*p3p4*(fmc-hbcm)+2*p2p3*(fmc-hbcm)+2*(-fmc*
12210      . hbcm2-fmc*p1p3-fmc*p3p5+fmc2*hbcm-hbcm*p1p2-hbcm*p1p4-hbcm*
12211      . p2p5-hbcm*p4p5))+18*hbcm)
12212       b(23)=ccc*(w2*(4*p3p7*(-4*fmb*fmc+fmb*hbcm)+(p3p7*p3p5)*(-16*
12213      . ffmcfmb+4)+4*(-3*fmb*hbcm*p4p7+fmb*hbcm*p5p7-3*p3p5*p4p7+p3p5*
12214      . p5p7))+w1*(4*p3p7*(-fmc*hbcm+4*fmc2)+(p3p7*p3p4)*(16*ffmcfmb-4
12215      . )+4*(3*fmc*hbcm*p4p7-fmc*hbcm*p5p7+3*p3p4*p4p7-p3p4*p5p7))+w11
12216      . *(12*p4p7*(-fmb*hbcm+hbcm2)+4*p3p7*(-3*fmb*fmc+2*fmc*hbcm+fmc2
12217      . )+(p3p7*p3p4)*(16*ffmcfmb-4)+(p3p7*p2p3)*(-16*ffmcfmb+4)+4*(-
12218      . fmc*hbcm*p5p7-3*p2p3*p4p7+p2p3*p5p7+3*p3p4*p4p7-p3p4*p5p7))+(
12219      . p3p7*(-64*fb4*ffmcfmb+16*fb4-8)+16*(-3*fb4*p4p7+fb4*p5p7)))
12220       b(24)=ccc*(w11*(2*p3p4*(fmc*hbcm-hbcm2)+2*p2p3*(fmc*hbcm-hbcm2)
12221      . +2*(-fmc*hbcm*p1p3-fmc*hbcm*p3p5-fmc*hbcm3+fmc2*hbcm2-hbcm2*
12222      . p1p2-hbcm2*p1p4-hbcm2*p2p5-hbcm2*p4p5))+18*hbcm2)
12223       b(25)=ccc*(w1*(4*(p3p7*p3p4)*(-4*fmc+hbcm)+4*p3p7*(fmc*hbcm2-4*
12224      . fmc2*hbcm)+4*(-3*fmc*hbcm2*p4p7+fmc*hbcm2*p5p7-3*hbcm*p3p4*
12225      . p4p7+hbcm*p3p4*p5p7))+w2*(4*(p3p7*p3p5)*(-4*fmc+hbcm)+4*p3p7*(
12226      . -4*fmb*fmc*hbcm+fmb*hbcm2)+4*(-3*fmb*hbcm2*p4p7+fmb*hbcm2*p5p7
12227      . -3*hbcm*p3p5*p4p7+hbcm*p3p5*p5p7))+w11*(4*(p3p7*p3p4)*(-3*fmc+
12228      . 2*hbcm)+4*p4p7*(-3*fmb*hbcm2+2*fmc*hbcm2-3*hbcm3)+4*p3p7*(-3*
12229      . fmb*fmc*hbcm-fmc*hbcm2)+4*(fmc*hbcm2*p5p7+3*fmc*p1p3*p3p7+fmc*
12230      . p2p3*p3p7-5*fmc*p3p5*p3p7+hbcm*p1p2*p3p7+2*hbcm*p1p3*p4p7+hbcm
12231      . *p1p4*p3p7+hbcm*p2p3*p4p7-hbcm*p2p3*p5p7+hbcm*p2p5*p3p7-hbcm*
12232      . p3p4*p4p7+hbcm*p3p4*p5p7-6*hbcm*p3p5*p4p7+hbcm*p3p7*p4p5))+(4*
12233      . p3p7*(16*fb3*fmc-4*fb3*hbcm-5*hbcm)+16*(3*fb3*hbcm*p4p7-fb3*
12234      . hbcm*p5p7)))
12235       ans=ccc*(w1*(2*(p3p6*p3p4)*(8*fmc-3*hbcm)+2*p3p6*(-3*fmc*hbcm2+
12236      . 8*fmc2*hbcm)+2*(5*fmc*hbcm2*p4p6-3*fmc*hbcm2*p5p6+5*hbcm*p3p4*
12237      . p4p6-3*hbcm*p3p4*p5p6))+w2*(2*(p3p6*p3p5)*(8*fmc-3*hbcm)+2*
12238      . p3p6*(8*fmb*fmc*hbcm-3*fmb*hbcm2)+2*(5*fmb*hbcm2*p4p6-3*fmb*
12239      . hbcm2*p5p6+5*hbcm*p3p5*p4p6-3*hbcm*p3p5*p5p6))+w11*(2*(p3p6*
12240      . p3p4)*(8*fmc-3*hbcm)+2*(p3p6*p2p3)*(-4*fmc+3*hbcm)+2*p4p6*(fmb
12241      . *hbcm2+4*fmc*hbcm2+hbcm3)+2*p3p6*(fmb*fmc*hbcm-2*fmc*hbcm2+7*
12242      . fmc2*hbcm)+2*(-5*fmc*hbcm2*p5p6+4*fmc*p3p5*p3p6+2*hbcm*p1p2*
12243      . p3p6-2*hbcm*p1p3*p4p6+2*hbcm*p1p4*p3p6-hbcm*p2p3*p4p6+hbcm*
12244      . p2p3*p5p6+2*hbcm*p2p5*p3p6+5*hbcm*p3p4*p4p6-5*hbcm*p3p4*p5p6+2
12245      . *hbcm*p3p5*p4p6+2*hbcm*p3p6*p4p5))+(4*p3p6*(-16*fb3*fmc+6*fb3*
12246      . hbcm-5*hbcm)+8*(-5*fb3*hbcm*p4p6+3*fb3*hbcm*p5p6)))
12247       b(26)=ans
12248       b(27)=ccc*(w2*(4*(p5p8*p3p7)*(4*fmc*hbcm-hbcm2)+4*(3*hbcm2*p4p7
12249      . *p5p8-hbcm2*p5p7*p5p8))+w1*(4*(p4p8*p3p7)*(4*fmc*hbcm-hbcm2)+4
12250      . *(3*hbcm2*p4p7*p4p8-hbcm2*p4p8*p5p7))+w11*(4*p7p8*(-fmc*hbcm3+
12251      . fmc2*hbcm2)+4*(p4p8*p3p7)*(2*fmc*hbcm-hbcm2)+4*(p7p8*p3p4)*(
12252      . fmc*hbcm-hbcm2)+4*(p3p7*p2p8)*(-2*fmc*hbcm+hbcm2)+4*(p7p8*p2p3
12253      . )*(fmc*hbcm-hbcm2)+4*(-fmc*hbcm*p1p3*p7p8-2*fmc*hbcm*p1p8*p3p7
12254      . -fmc*hbcm*p3p5*p7p8+6*fmc*hbcm*p3p7*p5p8-hbcm2*p1p2*p7p8-hbcm2
12255      . *p1p4*p7p8-2*hbcm2*p1p8*p4p7-hbcm2*p2p5*p7p8-hbcm2*p2p8*p4p7+
12256      . hbcm2*p2p8*p5p7-hbcm2*p4p5*p7p8+hbcm2*p4p7*p4p8+6*hbcm2*p4p7*
12257      . p5p8-hbcm2*p4p8*p5p7))+20*hbcm2*p7p8)
12258       b(28)=ccc*(w2*(2*(p5p8*p3p6)*(8*fmc*hbcm-3*hbcm2)+2*(5*hbcm2*
12259      . p4p6*p5p8-3*hbcm2*p5p6*p5p8))+w1*(2*(p4p8*p3p6)*(8*fmc*hbcm-3*
12260      . hbcm2)+2*(5*hbcm2*p4p6*p4p8-3*hbcm2*p4p8*p5p6))+w11*(4*p6p8*(
12261      . fmc*hbcm3-fmc2*hbcm2)+10*(p4p8*p3p6)*(2*fmc*hbcm-hbcm2)+4*(
12262      . p6p8*p3p4)*(-fmc*hbcm+hbcm2)+2*(p3p6*p2p8)*(-2*fmc*hbcm+hbcm2)
12263      . +4*(p6p8*p2p3)*(-fmc*hbcm+hbcm2)+2*(2*fmc*hbcm*p1p3*p6p8-2*fmc
12264      . *hbcm*p1p8*p3p6+2*fmc*hbcm*p3p5*p6p8+2*fmc*hbcm*p3p6*p5p8+2*
12265      . hbcm2*p1p2*p6p8+2*hbcm2*p1p4*p6p8-2*hbcm2*p1p8*p4p6+2*hbcm2*
12266      . p2p5*p6p8-hbcm2*p2p8*p4p6+hbcm2*p2p8*p5p6+2*hbcm2*p4p5*p6p8+5*
12267      . hbcm2*p4p6*p4p8+2*hbcm2*p4p6*p5p8-5*hbcm2*p4p8*p5p6))-20*hbcm2
12268      . *p6p8)
12269       ans2=w11*(4*(p4p7*p3p6)*(-4*fmb*hbcm-7*fmc*hbcm+4*hbcm2)+4*(
12270      . p6p7*p3p4)*(-fmb*hbcm+4*fmc*hbcm)+4*(p6p7*p2p3)*(fmb*hbcm-2*
12271      . fmc*hbcm-2*hbcm2)+4*(p3p7*p3p6)*(-5*fmb*fmc-fmc*hbcm+3*fmc2)+4
12272      . *p6p7*(-fmb*fmc*hbcm2+4*p2p3s2+4*p3p4s2)+(p3p7*p3p6*p3p4)*(32*
12273      . ffmcfmb-12)+(p3p7*p3p6*p2p3)*(-32*ffmcfmb+12)+4*(-fmb*hbcm*
12274      . p3p7*p4p6-fmc*hbcm*p1p3*p6p7-fmc*hbcm*p3p5*p6p7-3*fmc*hbcm*
12275      . p3p6*p5p7+fmc*hbcm*p3p7*p5p6-hbcm2*p1p2*p6p7-hbcm2*p1p4*p6p7+4
12276      . *hbcm2*p2p4*p6p7-hbcm2*p2p5*p6p7-hbcm2*p4p5*p6p7-5*hbcm2*p4p6*
12277      . p4p7-hbcm2*p4p6*p5p7+4*hbcm2*p4p7*p5p6-8*p2p3*p3p4*p6p7-2*p2p3
12278      . *p3p6*p4p7+2*p2p3*p3p6*p5p7-3*p2p3*p3p7*p4p6+p2p3*p3p7*p5p6+2*
12279      . p3p4*p3p6*p4p7-2*p3p4*p3p6*p5p7+3*p3p4*p3p7*p4p6-p3p4*p3p7*
12280      . p5p6))+((p3p7*p3p6)*(-128*fb4*ffmcfmb+48*fb4-16)+4*p6p7*(4*fb3
12281      . *fmb*hbcm+4*fb3*fmc*hbcm-8*fb4*fmc*hbcm-4*fb4*hbcm2+7*hbcm2)+
12282      . 16*(4*fb4*p2p3*p6p7-4*fb4*p3p4*p6p7-2*fb4*p3p6*p4p7+2*fb4*p3p6
12283      . *p5p7-3*fb4*p3p7*p4p6+fb4*p3p7*p5p6))
12284       ans1=w2*(4*(p5p6*p3p7)*(fmb*hbcm+4*fmc*hbcm-2*hbcm2)+8*(p5p7*
12285      . p3p6)*(fmb*hbcm-2*fmc*hbcm+hbcm2)+4*(p6p7*p3p5)*(-fmb*hbcm-fmc
12286      . *hbcm-hbcm2)+4*(p3p7*p3p6)*(-8*fmb*fmc+3*fmb*hbcm)+4*p6p7*(-3*
12287      . fmb*fmc*hbcm2-fmb*hbcm3-fmb2*hbcm2)+(p3p7*p3p6*p3p5)*(-32*
12288      . ffmcfmb+12)+4*(4*fmb*hbcm*p2p3*p6p7-4*fmb*hbcm*p3p4*p6p7-2*fmb
12289      . *hbcm*p3p6*p4p7-3*fmb*hbcm*p3p7*p4p6+2*hbcm2*p1p5*p6p7-2*hbcm2
12290      . *p2p5*p6p7+2*hbcm2*p4p5*p6p7-2*hbcm2*p4p6*p5p7+2*hbcm2*p4p7*
12291      . p5p6+4*p2p3*p3p5*p6p7-4*p3p4*p3p5*p6p7-2*p3p5*p3p6*p4p7+2*p3p5
12292      . *p3p6*p5p7-3*p3p5*p3p7*p4p6+p3p5*p3p7*p5p6))+w1*(4*(p4p7*p3p6)
12293      . *(-2*fmc*hbcm+hbcm2)+4*(p3p7*p3p6)*(-3*fmc*hbcm+8*fmc2)+4*(
12294      . p6p7*p3p4)*(-fmb*hbcm+3*fmc*hbcm+hbcm2)+4*p6p7*(-fmb*fmc*hbcm2
12295      . +fmc*hbcm3-fmc2*hbcm2+4*p3p4s2)+(p3p7*p3p6*p3p4)*(32*ffmcfmb-
12296      . 12)+4*(-4*fmc*hbcm*p2p3*p6p7-2*fmc*hbcm*p3p6*p5p7+7*fmc*hbcm*
12297      . p3p7*p4p6-fmc*hbcm*p3p7*p5p6+4*hbcm2*p2p4*p6p7+hbcm2*p4p6*p4p7
12298      . +hbcm2*p4p7*p5p6-4*p2p3*p3p4*p6p7+2*p3p4*p3p6*p4p7-2*p3p4*p3p6
12299      . *p5p7+3*p3p4*p3p7*p4p6-p3p4*p3p7*p5p6))+ans2
12300       ans=ccc*ans1
12301       b(29)=ans
12302       ans5=4*(2*fmc*hbcm2*p1p8*p6p7-3*fmc*hbcm2*p5p6*p7p8-2*fmc*hbcm2
12303      . *p5p7*p6p8-2*fmc*hbcm2*p5p8*p6p7-2*fmc*p1p3*p3p7*p6p8+2*fmc*
12304      . p1p8*p3p6*p3p7-2*fmc*p2p3*p3p7*p6p8+4*fmc*p3p5*p3p6*p7p8+6*fmc
12305      . *p3p5*p3p7*p6p8-10*fmc*p3p6*p3p7*p5p8+2*hbcm*p1p2*p3p6*p7p8-2*
12306      . hbcm*p1p2*p3p7*p6p8+2*hbcm*p1p3*p2p8*p6p7-2*hbcm*p1p3*p4p6*
12307      . p7p8-2*hbcm*p1p3*p4p8*p6p7+2*hbcm*p1p4*p3p6*p7p8-2*hbcm*p1p4*
12308      . p3p7*p6p8-2*hbcm*p1p8*p2p3*p6p7+2*hbcm*p1p8*p3p4*p6p7+2*hbcm*
12309      . p1p8*p3p7*p4p6+hbcm*p2p3*p3p6*p7p8+hbcm*p2p3*p4p6*p7p8-2*hbcm*
12310      . p2p3*p4p7*p6p8-hbcm*p2p3*p5p6*p7p8+2*hbcm*p2p3*p5p7*p6p8+2*
12311      . hbcm*p2p3*p5p8*p6p7+2*hbcm*p2p5*p3p6*p7p8-2*hbcm*p2p5*p3p7*
12312      . p6p8-2*hbcm*p2p8*p3p5*p6p7+2*hbcm*p2p8*p3p6*p4p7-2*hbcm*p2p8*
12313      . p3p6*p5p7-hbcm*p2p8*p3p7*p4p6+hbcm*p2p8*p3p7*p5p6+3*hbcm*p3p4*
12314      . p4p6*p7p8+2*hbcm*p3p4*p4p7*p6p8-3*hbcm*p3p4*p5p6*p7p8-2*hbcm*
12315      . p3p4*p5p7*p6p8-2*hbcm*p3p4*p5p8*p6p7+2*hbcm*p3p5*p4p6*p7p8+8*
12316      . hbcm*p3p5*p4p7*p6p8+2*hbcm*p3p5*p4p8*p6p7+2*hbcm*p3p6*p4p5*
12317      . p7p8-2*hbcm*p3p6*p4p7*p4p8-8*hbcm*p3p6*p4p7*p5p8+2*hbcm*p3p6*
12318      . p4p8*p5p7-2*hbcm*p3p7*p4p5*p6p8-3*hbcm*p3p7*p4p6*p4p8-2*hbcm*
12319      . p3p7*p4p6*p5p8+3*hbcm*p3p7*p4p8*p5p6)
12320       ans4=20*(p4p8*p3p7*p3p6)*(-2*fmc+hbcm)+8*(p6p8*p3p7*p3p4)*(3*
12321      . fmc-2*hbcm)+4*(p7p8*p3p6*p3p4)*(4*fmc-hbcm)+4*(p3p7*p3p6*p2p8)
12322      . *(2*fmc-hbcm)+4*(p6p7*p4p8)*(fmb*hbcm2-fmc*hbcm2+hbcm3)+8*(
12323      . p6p8*p4p7)*(2*fmb*hbcm2-fmc*hbcm2+2*hbcm3)+4*(p7p8*p4p6)*(fmb*
12324      . hbcm2+2*fmc*hbcm2+hbcm3)+4*(p6p7*p2p8)*(-fmb*hbcm2+fmc*hbcm2-
12325      . hbcm3)+8*(p6p8*p3p7)*(2*fmb*fmc*hbcm+fmc2*hbcm)+4*(p7p8*p3p6)*
12326      . (fmb*fmc*hbcm+3*fmc2*hbcm)+ans5
12327       ans3=w11*ans4
12328       ans6=(8*(p6p8*p3p7)*(-8*fb3*fmc+4*fb3*hbcm+3*hbcm)+8*(p7p8*p3p6
12329      . )*(-8*fb3*fmc+2*fb3*hbcm-3*hbcm)+16*(-2*fb3*hbcm*p1p8*p6p7+2*
12330      . fb3*hbcm*p2p8*p6p7-3*fb3*hbcm*p4p6*p7p8-2*fb3*hbcm*p4p7*p6p8-2
12331      . *fb3*hbcm*p4p8*p6p7+fb3*hbcm*p5p6*p7p8+2*fb3*hbcm*p5p7*p6p8+2*
12332      . fb3*hbcm*p5p8*p6p7))
12333       ans2=w2*(4*(p5p8*p3p7*p3p6)*(-8*fmc+3*hbcm)+8*(p6p8*p3p7*p3p5)*
12334      . (2*fmc-hbcm)+4*(p7p8*p3p6*p3p5)*(4*fmc-hbcm)+4*(p6p7*p5p8)*(-
12335      . fmb*hbcm2-3*fmc*hbcm2+hbcm3)+8*(p6p8*p3p7)*(2*fmb*fmc*hbcm-fmb
12336      . *hbcm2)+4*(p7p8*p3p6)*(4*fmb*fmc*hbcm-fmb*hbcm2)+4*(2*fmb*
12337      . hbcm2*p1p8*p6p7-2*fmb*hbcm2*p2p8*p6p7+3*fmb*hbcm2*p4p6*p7p8+2*
12338      . fmb*hbcm2*p4p7*p6p8+2*fmb*hbcm2*p4p8*p6p7-fmb*hbcm2*p5p6*p7p8-
12339      . 2*fmb*hbcm2*p5p7*p6p8-2*hbcm*p1p3*p5p8*p6p7+2*hbcm*p1p8*p3p5*
12340      . p6p7+2*hbcm*p2p3*p5p8*p6p7-2*hbcm*p2p8*p3p5*p6p7-2*hbcm*p3p4*
12341      . p5p8*p6p7+3*hbcm*p3p5*p4p6*p7p8+2*hbcm*p3p5*p4p7*p6p8+2*hbcm*
12342      . p3p5*p4p8*p6p7-hbcm*p3p5*p5p6*p7p8-2*hbcm*p3p5*p5p7*p6p8-2*
12343      . hbcm*p3p6*p4p7*p5p8+2*hbcm*p3p6*p5p7*p5p8-3*hbcm*p3p7*p4p6*
12344      . p5p8+hbcm*p3p7*p5p6*p5p8))+ans3+ans6
12345       ans1=w1*(4*(p4p8*p3p7*p3p6)*(-8*fmc+3*hbcm)+8*(p6p8*p3p7*p3p4)*
12346      . (2*fmc-hbcm)+4*(p7p8*p3p6*p3p4)*(4*fmc-hbcm)+8*(p6p8*p3p7)*(-
12347      . fmc*hbcm2+2*fmc2*hbcm)+4*(p7p8*p3p6)*(-fmc*hbcm2+4*fmc2*hbcm)+
12348      . 4*(p6p7*p4p8)*(fmb*hbcm2-fmc*hbcm2+hbcm3)+4*(2*fmc*hbcm2*p1p8*
12349      . p6p7-2*fmc*hbcm2*p2p8*p6p7+3*fmc*hbcm2*p4p6*p7p8+2*fmc*hbcm2*
12350      . p4p7*p6p8-fmc*hbcm2*p5p6*p7p8-2*fmc*hbcm2*p5p7*p6p8-2*fmc*
12351      . hbcm2*p5p8*p6p7-2*hbcm*p1p3*p4p8*p6p7+2*hbcm*p1p8*p3p4*p6p7+2*
12352      . hbcm*p2p3*p4p8*p6p7-2*hbcm*p2p8*p3p4*p6p7+3*hbcm*p3p4*p4p6*
12353      . p7p8+2*hbcm*p3p4*p4p7*p6p8-hbcm*p3p4*p5p6*p7p8-2*hbcm*p3p4*
12354      . p5p7*p6p8-2*hbcm*p3p4*p5p8*p6p7+2*hbcm*p3p5*p4p8*p6p7-2*hbcm*
12355      . p3p6*p4p7*p4p8+2*hbcm*p3p6*p4p8*p5p7-3*hbcm*p3p7*p4p6*p4p8+
12356      . hbcm*p3p7*p4p8*p5p6))+ans2
12357       ans=ccc*ans1
12358       b(30)=ans
12359       ans2=w11*(4*(p6p7*p4p8)*(-fmb*hbcm+3*fmc*hbcm+hbcm2)+8*(p6p8*
12360      . p4p7)*(-2*fmb*hbcm-fmc*hbcm+2*hbcm2)+4*(p7p8*p4p6)*(-fmb*hbcm+
12361      . 2*fmc*hbcm+hbcm2)+4*(p6p7*p2p8)*(fmb*hbcm-3*fmc*hbcm-hbcm2)+8*
12362      . (p6p8*p3p7)*(-2*fmb*fmc+fmc*hbcm)+4*(p7p8*p3p6)*(-fmb*fmc+3*
12363      . fmc2)+(p6p8*p3p7*p3p4)*(16*ffmcfmb-8)+(p7p8*p3p6*p3p4)*(16*
12364      . ffmcfmb-4)+(p6p8*p3p7*p2p3)*(-16*ffmcfmb+8)+(p7p8*p3p6*p2p3)*(
12365      . -16*ffmcfmb+4)+4*(-fmc*hbcm*p5p6*p7p8-2*fmc*hbcm*p5p7*p6p8+4*
12366      . p2p3*p2p8*p6p7-3*p2p3*p4p6*p7p8-2*p2p3*p4p7*p6p8-4*p2p3*p4p8*
12367      . p6p7+p2p3*p5p6*p7p8+2*p2p3*p5p7*p6p8-4*p2p8*p3p4*p6p7+3*p3p4*
12368      . p4p6*p7p8+2*p3p4*p4p7*p6p8+4*p3p4*p4p8*p6p7-p3p4*p5p6*p7p8-2*
12369      . p3p4*p5p7*p6p8))+((p6p8*p3p7)*(-64*fb4*ffmcfmb+32*fb4-8)+(p7p8
12370      . *p3p6)*(-64*fb4*ffmcfmb+16*fb4-8)+16*(4*fb4*p2p8*p6p7-3*fb4*
12371      . p4p6*p7p8-2*fb4*p4p7*p6p8-4*fb4*p4p8*p6p7+fb4*p5p6*p7p8+2*fb4*
12372      . p5p7*p6p8))
12373       ans1=w2*(4*(p6p7*p5p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p6p8*p3p7)
12374      . *(-2*fmb*fmc+fmb*hbcm)+4*(p7p8*p3p6)*(-4*fmb*fmc+fmb*hbcm)+(
12375      . p6p8*p3p7*p3p5)*(-16*ffmcfmb+8)+(p7p8*p3p6*p3p5)*(-16*ffmcfmb+
12376      . 4)+4*(4*fmb*hbcm*p2p8*p6p7-3*fmb*hbcm*p4p6*p7p8-2*fmb*hbcm*
12377      . p4p7*p6p8-4*fmb*hbcm*p4p8*p6p7+fmb*hbcm*p5p6*p7p8+2*fmb*hbcm*
12378      . p5p7*p6p8+4*p2p8*p3p5*p6p7-3*p3p5*p4p6*p7p8-2*p3p5*p4p7*p6p8-4
12379      . *p3p5*p4p8*p6p7+p3p5*p5p6*p7p8+2*p3p5*p5p7*p6p8))+w1*(8*(p6p8*
12380      . p3p7)*(-fmc*hbcm+2*fmc2)+4*(p7p8*p3p6)*(-fmc*hbcm+4*fmc2)+4*(
12381      . p6p7*p4p8)*(-fmb*hbcm+3*fmc*hbcm+hbcm2)+(p6p8*p3p7*p3p4)*(16*
12382      . ffmcfmb-8)+(p7p8*p3p6*p3p4)*(16*ffmcfmb-4)+4*(-4*fmc*hbcm*p2p8
12383      . *p6p7+3*fmc*hbcm*p4p6*p7p8+2*fmc*hbcm*p4p7*p6p8-fmc*hbcm*p5p6*
12384      . p7p8-2*fmc*hbcm*p5p7*p6p8-4*p2p8*p3p4*p6p7+3*p3p4*p4p6*p7p8+2*
12385      . p3p4*p4p7*p6p8+4*p3p4*p4p8*p6p7-p3p4*p5p6*p7p8-2*p3p4*p5p7*
12386      . p6p8))+ans2
12387       ans=ccc*ans1
12388       b(31)=ans
12389       ans=ccc*(w2*(8*(p5p6*p3p7)*(2*fmc-hbcm)+8*(p5p7*p3p6)*(-2*fmc+
12390      . hbcm)+4*(p6p7*p3p5)*(-fmb+3*fmc-hbcm)+4*p6p7*(fmb*fmc*hbcm-fmb
12391      . *hbcm2-fmb2*hbcm)+8*(hbcm*p1p5*p6p7-hbcm*p2p5*p6p7+hbcm*p4p5*
12392      . p6p7-hbcm*p4p6*p5p7+hbcm*p4p7*p5p6))+w1*(4*(p4p7*p3p6)*(-4*fmc
12393      . +hbcm)+4*(p6p7*p3p4)*(fmb-3*fmc-hbcm)+4*p6p7*(fmb*fmc*hbcm-fmc
12394      . *hbcm2-3*fmc2*hbcm)+4*(4*fmc*p3p7*p4p6+4*hbcm*p2p4*p6p7+hbcm*
12395      . p4p6*p4p7+hbcm*p4p7*p5p6))+w11*(4*(p4p6*p3p7)*(-4*fmc-hbcm)+4*
12396      . (p4p7*p3p6)*(-9*fmc+2*hbcm)+4*(p6p7*p3p4)*(fmb-2*fmc-2*hbcm)+4
12397      . *(p6p7*p2p3)*(-fmb+4*fmc)+4*p6p7*(fmb*fmc*hbcm-2*fmc*hbcm2-2*
12398      . fmc2*hbcm)+4*(p3p7*p3p6)*(-4*ffmcfmb*fmc-fmc)+4*(-fmc*p1p3*
12399      . p6p7-fmc*p3p5*p6p7-fmc*p3p6*p5p7+4*fmc*p3p7*p5p6-hbcm*p1p2*
12400      . p6p7-hbcm*p1p4*p6p7+4*hbcm*p2p4*p6p7-hbcm*p2p5*p6p7-hbcm*p4p5*
12401      . p6p7-7*hbcm*p4p6*p4p7-hbcm*p4p6*p5p7+6*hbcm*p4p7*p5p6))+4*p6p7
12402      . *(4*fb3*hbcm-4*fb4*fmb+4*fb4*fmc+7*hbcm))
12403       b(32)=ans
12404       do 200 n=1,32
12405          c(n,1)=c(n,1)+1.0d0*b(n)
12406 200   continue
12407       return
12408         end
12409
12410       subroutine amp34_3p1(cc)
12411       implicit double precision(a-h,o-z)
12412       implicit integer (i-n)
12413       dimension b(32)
12414 #include "inclcon.h"
12415 #include "inclppp.h"
12416 #include "inclamp.h"
12417       do 100 n=1,32
12418          b(n)=0.0d0
12419 100   continue
12420       ccc=cc/((2*p1p2)*(-2*ffmcfmb*p3p5+fmb2-2*fmc*hbcm+fmc2+hbcm2+2*
12421      . p3p5)*(2*ffmcfmb*p3p4+2*fmc2))
12422       ans2=w2*(4*(p6p7*p4p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)+4*(p6p7*p2p5)
12423      . *(-fmb*hbcm-3*fmc*hbcm+3*hbcm2)+4*(p6p7*p1p5)*(-fmb*hbcm+fmc*
12424      . hbcm-hbcm2)+2*(p6p7*p3p5)*(-2*fmb*fmc+2*fmb*hbcm+fmb2-3*fmc2+
12425      . hbcm2)+4*(p6p7*p2p3)*(-2*fmb*fmc-fmb*hbcm)+4*(p6p7*p1p3)*(2*
12426      . fmb*fmc-fmb*hbcm)+2*p6p7*(-2*fmb*fmc*hbcm2-fmb*fmc2*hbcm+fmb*
12427      . hbcm3+fmb3*hbcm+2*p3p5s2)+4*(2*fmb*hbcm*p1p2*p6p7+2*fmb*hbcm*
12428      . p1p4*p6p7-6*fmb*hbcm*p2p4*p6p7-fmb*hbcm*p3p4*p6p7+2*p1p2*p3p5*
12429      . p6p7+p1p4*p3p5*p6p7-p1p5*p3p5*p6p7-2*p2p3*p3p5*p6p7-5*p2p4*
12430      . p3p5*p6p7+p2p5*p3p5*p6p7-p3p4*p3p5*p6p7))+(4*p6p7*(2*fb4*fmb2-
12431      . 4*fb4*fmc*hbcm-2*fb4*fmc2+2*fb4*hbcm2+hbcm2)+16*(2*fb4*p1p2*
12432      . p6p7+fb4*p1p4*p6p7-fb4*p1p5*p6p7-2*fb4*p2p3*p6p7-5*fb4*p2p4*
12433      . p6p7+fb4*p2p5*p6p7-fb4*p3p4*p6p7+fb4*p3p5*p6p7))
12434       ans1=w1*(4*(p6p7*p2p3)*(fmc*hbcm+2*fmc2)+4*(p6p7*p1p3)*(fmc*
12435      . hbcm-2*fmc2)+2*p6p7*(-fmb2*fmc*hbcm-fmc*hbcm3+2*fmc2*hbcm2+
12436      . fmc3*hbcm+2*p3p4s2)+4*(p6p7*p4p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8
12437      . *(p6p7*p2p4)*(-fmb*hbcm+2*fmc*hbcm+hbcm2)+2*(p6p7*p3p4)*(2*fmb
12438      . *fmc-2*fmb*hbcm-fmb2+3*fmc2+hbcm2)+4*(-2*fmc*hbcm*p1p2*p6p7-2*
12439      . fmc*hbcm*p1p4*p6p7+2*fmc*hbcm*p1p5*p6p7-2*fmc*hbcm*p2p5*p6p7-
12440      . fmc*hbcm*p3p5*p6p7-2*p1p2*p3p4*p6p7-p1p4*p3p4*p6p7+p1p5*p3p4*
12441      . p6p7+2*p2p3*p3p4*p6p7+5*p2p4*p3p4*p6p7-p2p5*p3p4*p6p7-p3p4*
12442      . p3p5*p6p7))+ans2
12443       ans=ccc*ans1
12444       b(2)=ans
12445       ans2=w1*(8*(p6p7*p5p8*p3p4)*(fmc-hbcm)+4*(p6p7*p4p8*p2p3)*(-2*
12446      . fmc+3*hbcm)+4*(p6p7*p4p8*p1p3)*(2*fmc-hbcm)+4*(p6p7*p4p8*p3p4)
12447      . *(-fmb+fmc)+4*(p6p7*p3p4*p2p8)*(3*fmb-7*fmc-hbcm)+4*(p6p7*p3p4
12448      . *p1p8)*(fmb-fmc+hbcm)+2*(p6p7*p4p8)*(-2*fmb*fmc*hbcm+fmb2*hbcm
12449      . +fmc2*hbcm+hbcm3)+4*(p6p7*p2p8)*(3*fmb*fmc*hbcm-3*fmc*hbcm2-5*
12450      . fmc2*hbcm)+4*(p6p7*p1p8)*(fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+4*
12451      . (-2*hbcm*p1p2*p4p8*p6p7-2*hbcm*p1p5*p4p8*p6p7+4*hbcm*p1p8*p2p4
12452      . *p6p7+2*hbcm*p1p8*p4p5*p6p7+4*hbcm*p2p4*p2p8*p6p7-4*hbcm*p2p4*
12453      . p5p8*p6p7+6*hbcm*p2p5*p4p8*p6p7+2*hbcm*p2p8*p4p5*p6p7+hbcm*
12454      . p3p5*p4p8*p6p7-2*hbcm*p4p5*p5p8*p6p7))+(16*(p6p7*p4p8)*(-fb3*
12455      . hbcm+fb4*fmb-fb4*fmc)+16*(p6p7*p2p8)*(fb3*fmc+3*fb3*hbcm-3*fb4
12456      . *fmb+4*fb4*fmc)+16*(p6p7*p1p8)*(-fb3*fmc+fb3*hbcm-fb4*fmb))
12457       ans1=w2*(4*(p6p7*p5p8*p3p5)*(-2*fmc+hbcm)+4*(p6p7*p5p8*p2p3)*(-
12458      . 2*fmc+3*hbcm)+4*(p6p7*p5p8*p1p3)*(2*fmc-hbcm)+2*(p6p7*p5p8)*(
12459      . fmb2*hbcm-2*fmc*hbcm2-fmc2*hbcm+hbcm3)+4*(p6p7*p4p8*p3p5)*(fmb
12460      . -fmc+hbcm)+4*(p6p7*p3p5*p2p8)*(-3*fmb+7*fmc-3*hbcm)+4*(p6p7*
12461      . p3p5*p1p8)*(-fmb+fmc-hbcm)+4*(p6p7*p4p8)*(-fmb*fmc*hbcm+fmb*
12462      . hbcm2+fmb2*hbcm)+12*(p6p7*p2p8)*(fmb*fmc*hbcm-fmb*hbcm2-fmb2*
12463      . hbcm)+4*(p6p7*p1p8)*(fmb*fmc*hbcm-fmb*hbcm2-fmb2*hbcm)+4*(-2*
12464      . hbcm*p1p2*p5p8*p6p7+2*hbcm*p1p4*p5p8*p6p7+4*hbcm*p1p5*p2p8*
12465      . p6p7-2*hbcm*p2p4*p5p8*p6p7+4*hbcm*p2p5*p2p8*p6p7+4*hbcm*p2p8*
12466      . p4p5*p6p7-hbcm*p3p4*p5p8*p6p7-2*hbcm*p4p5*p5p8*p6p7))+ans2
12467       ans=ccc*ans1
12468       b(3)=ans
12469       ans3=(16*(p6p7*p3p4)*(-fb4*fmb+fb4*fmc)+16*(p6p7*p2p3)*(fb3*fmc
12470      . -2*fb3*hbcm+3*fb4*fmb-4*fb4*fmc)+16*(p6p7*p1p3)*(-fb3*fmc+fb4*
12471      . fmb)+4*p6p7*(2*fb3*fmb2*hbcm-2*fb3*fmc2*hbcm+2*fb3*hbcm3-4*fb4
12472      . *fmb*fmc*hbcm+4*fb4*fmc2*hbcm+fmb*hbcm2-fmc*hbcm2)+16*(-2*fb3*
12473      . hbcm*p1p2*p6p7+4*fb3*hbcm*p2p5*p6p7+fb3*hbcm*p3p5*p6p7))
12474       ans2=w1*(4*(p6p7*p3p5*p3p4)*(-2*fmc+hbcm)+4*(p6p7*p3p4*p2p3)*(-
12475      . 3*fmb+9*fmc-2*hbcm)+4*(p6p7*p3p4*p1p3)*(-fmb-fmc)+4*(p6p7*p4p5
12476      . )*(fmb*hbcm2-fmc*hbcm2+hbcm3)+4*(p6p7*p2p4)*(2*fmb*hbcm2-3*fmc
12477      . *hbcm2+2*hbcm3)+2*p6p7*(2*fmb*fmc2*hbcm2+2*fmb*p3p4s2-fmb2*fmc
12478      . *hbcm2-fmc*hbcm4-2*fmc*p3p4s2-fmc3*hbcm2)+2*(p6p7*p3p4)*(2*fmb
12479      . *fmc*hbcm+2*fmb*hbcm2-fmb2*hbcm-4*fmc*hbcm2-fmc2*hbcm+hbcm3)+4
12480      . *(p6p7*p2p3)*(-3*fmb*fmc*hbcm+fmc*hbcm2+5*fmc2*hbcm)+4*(p6p7*
12481      . p1p3)*(-fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+4*(2*fmc*hbcm2*p1p2*
12482      . p6p7+fmc*hbcm2*p1p4*p6p7+fmc*hbcm2*p1p5*p6p7-5*fmc*hbcm2*p2p5*
12483      . p6p7-fmc*hbcm2*p3p5*p6p7+2*hbcm*p1p2*p3p4*p6p7-4*hbcm*p1p3*
12484      . p2p4*p6p7-2*hbcm*p1p3*p4p5*p6p7+2*hbcm*p1p5*p3p4*p6p7-4*hbcm*
12485      . p2p3*p2p4*p6p7-2*hbcm*p2p3*p4p5*p6p7+4*hbcm*p2p4*p3p5*p6p7-6*
12486      . hbcm*p2p5*p3p4*p6p7+2*hbcm*p3p5*p4p5*p6p7))+ans3
12487       ans1=w2*(4*(p6p7*p1p5)*(fmc*hbcm2-hbcm3)+4*(p6p7*p3p5*p3p4)*(-
12488      . fmb+fmc)+4*(p6p7*p3p5*p2p3)*(3*fmb-5*fmc)+4*(p6p7*p3p5*p1p3)*(
12489      . fmb-3*fmc+2*hbcm)+4*(p6p7*p4p5)*(fmb*hbcm2-fmc*hbcm2+hbcm3)+2*
12490      . (p6p7*p3p5)*(-2*fmb*hbcm2-fmb2*hbcm+2*fmc*hbcm2+fmc2*hbcm-
12491      . hbcm3)+4*(p6p7*p2p5)*(-2*fmb*hbcm2-3*fmc*hbcm2+3*hbcm3)+2*p6p7
12492      . *(3*fmb*fmc2*hbcm2-fmb*hbcm4-2*fmb2*fmc*hbcm2-fmb3*hbcm2+4*fmc
12493      . *p3p5s2-2*hbcm*p3p5s2)+4*(p6p7*p3p4)*(fmb*fmc*hbcm-fmb2*hbcm)+
12494      . 4*(p6p7*p2p3)*(-3*fmb*fmc*hbcm+fmb*hbcm2+3*fmb2*hbcm)+4*(p6p7*
12495      . p1p3)*(-fmb*fmc*hbcm+fmb*hbcm2+fmb2*hbcm)+4*(2*fmb*hbcm2*p1p2*
12496      . p6p7-fmb*hbcm2*p1p4*p6p7+fmb*hbcm2*p2p4*p6p7+2*hbcm*p1p2*p3p5*
12497      . p6p7-2*hbcm*p1p4*p3p5*p6p7-4*hbcm*p1p5*p2p3*p6p7-4*hbcm*p2p3*
12498      . p2p5*p6p7-4*hbcm*p2p3*p4p5*p6p7+2*hbcm*p2p4*p3p5*p6p7+2*hbcm*
12499      . p3p5*p4p5*p6p7))+ans2
12500       ans=ccc*ans1
12501       b(11)=ans
12502       ans4=4*(-2*fmc*hbcm*p1p3*p5p8*p6p7-4*fmc*hbcm*p1p8*p2p3*p6p7+2*
12503      . fmc*hbcm*p1p8*p3p5*p6p7-4*fmc*hbcm*p2p3*p2p8*p6p7+2*fmc*hbcm*
12504      . p2p3*p5p8*p6p7-6*fmc*hbcm*p2p8*p3p5*p6p7+2*hbcm2*p1p2*p4p8*
12505      . p6p7+4*hbcm2*p1p4*p2p8*p6p7+hbcm2*p1p4*p4p8*p6p7+hbcm2*p1p5*
12506      . p4p8*p6p7-4*hbcm2*p1p8*p2p4*p6p7-2*hbcm2*p1p8*p4p5*p6p7-hbcm2*
12507      . p2p4*p4p8*p6p7+4*hbcm2*p2p4*p5p8*p6p7-5*hbcm2*p2p5*p4p8*p6p7+2
12508      . *hbcm2*p2p8*p4p5*p6p7-hbcm2*p3p4*p4p8*p6p7+2*hbcm2*p4p5*p5p8*
12509      . p6p7-2*p1p3*p3p4*p5p8*p6p7-4*p1p8*p2p3*p3p4*p6p7+2*p1p8*p3p4*
12510      . p3p5*p6p7-4*p2p3*p2p8*p3p4*p6p7+12*p2p3*p3p4*p4p8*p6p7+2*p2p3*
12511      . p3p4*p5p8*p6p7-6*p2p8*p3p4*p3p5*p6p7-2*p3p4*p3p5*p4p8*p6p7)
12512       ans3=8*(p6p7*p5p8)*(fmc2*hbcm2+p3p4s2)+4*(p6p7*p4p8*p3p5)*(-2*
12513      . fmc*hbcm-hbcm2)+8*(p6p7*p5p8*p3p4)*(fmc*hbcm+hbcm2)+2*(p6p7*
12514      . p4p8)*(-fmb2*hbcm2-2*fmc*hbcm3+fmc2*hbcm2-hbcm4)+4*(p6p7*p3p4*
12515      . p2p8)*(-3*fmb*hbcm-3*fmc*hbcm-hbcm2)+4*(p6p7*p4p8*p2p3)*(-3*
12516      . fmb*hbcm+9*fmc*hbcm+hbcm2)+4*(p6p7*p3p4*p1p8)*(fmb*hbcm+fmc*
12517      . hbcm-hbcm2)+4*(p6p7*p4p8*p1p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+4*(
12518      . p6p7*p2p8)*(-3*fmb*fmc*hbcm2-3*fmc*hbcm3-fmc2*hbcm2)+4*(p6p7*
12519      . p1p8)*(fmb*fmc*hbcm2+fmc*hbcm3-fmc2*hbcm2)+ans4
12520       ans2=w1*ans3
12521       ans5=(8*(p6p7*p5p8)*(-4*fb4*fmc*hbcm+hbcm2)+16*(p6p7*p4p8)*(fb3
12522      . *fmb*hbcm+fb3*fmc*hbcm+fb4*hbcm2)+4*(p6p7*p2p8)*(12*fb3*fmb*
12523      . hbcm+8*fb3*fmc*hbcm-4*fb4*fmc*hbcm+12*fb4*hbcm2+hbcm2)+4*(p6p7
12524      . *p1p8)*(-4*fb3*fmb*hbcm+4*fb4*fmc*hbcm-4*fb4*hbcm2-hbcm2)+32*(
12525      . fb4*p1p3*p5p8*p6p7+2*fb4*p1p8*p2p3*p6p7-fb4*p1p8*p3p5*p6p7+2*
12526      . fb4*p2p3*p2p8*p6p7-6*fb4*p2p3*p4p8*p6p7-fb4*p2p3*p5p8*p6p7+3*
12527      . fb4*p2p8*p3p5*p6p7-fb4*p3p4*p5p8*p6p7+fb4*p3p5*p4p8*p6p7))
12528       ans1=w2*(4*(p6p7*p4p8*p3p5)*(fmb*hbcm-fmc*hbcm+hbcm2)+4*(p6p7*
12529      . p5p8*p3p4)*(-fmb*hbcm+fmc*hbcm)+12*(p6p7*p3p5*p2p8)*(fmb*hbcm-
12530      . fmc*hbcm+hbcm2)+4*(p6p7*p5p8*p2p3)*(-5*fmb*hbcm-3*fmc*hbcm+
12531      . hbcm2)+4*(p6p7*p3p5*p1p8)*(-fmb*hbcm+fmc*hbcm-hbcm2)+4*(p6p7*
12532      . p5p8*p1p3)*(fmb*hbcm-fmc*hbcm+hbcm2)+2*(p6p7*p5p8)*(-2*fmb*fmc
12533      . *hbcm2-fmb2*hbcm2+3*fmc2*hbcm2-hbcm4)+4*(p6p7*p4p8)*(-fmb*fmc*
12534      . hbcm2+fmb*hbcm3-fmb2*hbcm2+2*p3p5s2)+12*(p6p7*p2p8)*(-fmb*fmc*
12535      . hbcm2+fmb*hbcm3-fmb2*hbcm2+2*p3p5s2)+4*(p6p7*p1p8)*(fmb*fmc*
12536      . hbcm2-fmb*hbcm3+fmb2*hbcm2-2*p3p5s2)+4*(4*fmb*hbcm*p1p8*p2p3*
12537      . p6p7+4*fmb*hbcm*p2p3*p2p8*p6p7-12*fmb*hbcm*p2p3*p4p8*p6p7+2*
12538      . hbcm2*p1p2*p5p8*p6p7-hbcm2*p1p4*p5p8*p6p7-hbcm2*p1p5*p5p8*p6p7
12539      . +hbcm2*p2p4*p5p8*p6p7+hbcm2*p2p5*p5p8*p6p7-hbcm2*p3p5*p5p8*
12540      . p6p7+2*hbcm2*p4p5*p5p8*p6p7+2*p1p3*p3p5*p5p8*p6p7+4*p1p8*p2p3*
12541      . p3p5*p6p7+4*p2p3*p2p8*p3p5*p6p7-12*p2p3*p3p5*p4p8*p6p7-2*p2p3*
12542      . p3p5*p5p8*p6p7-2*p3p4*p3p5*p5p8*p6p7))+ans2+ans5
12543       ans=ccc*ans1
12544       b(12)=ans
12545       b(29)=ccc*(w2*(4*(p6p7*p3p5)*(fmb*hbcm+3*fmc*hbcm+hbcm2)+4*p6p7
12546      . *(5*fmb*fmc*hbcm2+fmb*hbcm3+3*fmb2*hbcm2-2*p3p5s2)+8*(-fmb*
12547      . hbcm*p1p3*p6p7-fmb*hbcm*p2p3*p6p7+3*fmb*hbcm*p3p4*p6p7-hbcm2*
12548      . p1p5*p6p7-hbcm2*p2p5*p6p7-hbcm2*p4p5*p6p7-p1p3*p3p5*p6p7-p2p3*
12549      . p3p5*p6p7+3*p3p4*p3p5*p6p7))+w1*(12*(p6p7*p3p4)*(fmb*hbcm-fmc*
12550      . hbcm-hbcm2)+4*p6p7*(3*fmb*fmc*hbcm2-fmc*hbcm3+fmc2*hbcm2-6*
12551      . p3p4s2)+8*(fmc*hbcm*p1p3*p6p7+fmc*hbcm*p2p3*p6p7+fmc*hbcm*p3p5
12552      . *p6p7-hbcm2*p1p4*p6p7-hbcm2*p2p4*p6p7-hbcm2*p4p5*p6p7+p1p3*
12553      . p3p4*p6p7+p2p3*p3p4*p6p7+p3p4*p3p5*p6p7))+(8*p6p7*(-6*fb3*fmb*
12554      . hbcm-6*fb3*fmc*hbcm+4*fb4*fmc*hbcm+2*fb4*hbcm2-hbcm2)+32*(-fb4
12555      . *p1p3*p6p7-fb4*p2p3*p6p7+3*fb4*p3p4*p6p7-fb4*p3p5*p6p7)))
12556       b(30)=ccc*(w1*(12*(p6p7*p4p8)*(-fmb*hbcm2+fmc*hbcm2-hbcm3)+8*(-
12557      . fmc*hbcm2*p1p8*p6p7-fmc*hbcm2*p2p8*p6p7+3*fmc*hbcm2*p5p8*p6p7+
12558      . hbcm*p1p3*p4p8*p6p7-hbcm*p1p8*p3p4*p6p7+hbcm*p2p3*p4p8*p6p7-
12559      . hbcm*p2p8*p3p4*p6p7+3*hbcm*p3p4*p5p8*p6p7-3*hbcm*p3p5*p4p8*
12560      . p6p7))+w2*(4*(p6p7*p5p8)*(3*fmb*hbcm2+5*fmc*hbcm2-3*hbcm3)+8*(
12561      . -fmb*hbcm2*p1p8*p6p7-fmb*hbcm2*p2p8*p6p7-fmb*hbcm2*p4p8*p6p7+
12562      . hbcm*p1p3*p5p8*p6p7-hbcm*p1p8*p3p5*p6p7+hbcm*p2p3*p5p8*p6p7-
12563      . hbcm*p2p8*p3p5*p6p7+hbcm*p3p4*p5p8*p6p7-hbcm*p3p5*p4p8*p6p7))+
12564      . 32*(fb3*hbcm*p1p8*p6p7+fb3*hbcm*p2p8*p6p7+fb3*hbcm*p4p8*p6p7-3
12565      . *fb3*hbcm*p5p8*p6p7))
12566       b(31)=ccc*(w1*(12*(p6p7*p4p8)*(fmb*hbcm-fmc*hbcm-hbcm2)+8*(fmc*
12567      . hbcm*p1p8*p6p7+fmc*hbcm*p2p8*p6p7+fmc*hbcm*p5p8*p6p7+p1p8*p3p4
12568      . *p6p7+p2p8*p3p4*p6p7-3*p3p4*p4p8*p6p7+p3p4*p5p8*p6p7))+w2*(4*(
12569      . p6p7*p5p8)*(fmb*hbcm+3*fmc*hbcm-3*hbcm2)+8*(-fmb*hbcm*p1p8*
12570      . p6p7-fmb*hbcm*p2p8*p6p7+3*fmb*hbcm*p4p8*p6p7-p1p8*p3p5*p6p7-
12571      . p2p8*p3p5*p6p7+3*p3p5*p4p8*p6p7-p3p5*p5p8*p6p7))+32*(-fb4*p1p8
12572      . *p6p7-fb4*p2p8*p6p7+3*fb4*p4p8*p6p7-fb4*p5p8*p6p7))
12573       b(32)=ccc*(w2*(4*(p6p7*p3p5)*(3*fmb-5*fmc+3*hbcm)+12*p6p7*(-fmb
12574      . *fmc*hbcm+fmb*hbcm2+fmb2*hbcm)+8*(-hbcm*p1p5*p6p7-hbcm*p2p5*
12575      . p6p7-hbcm*p4p5*p6p7))+w1*(4*(p6p7*p3p4)*(-3*fmb+5*fmc+hbcm)+12
12576      . *p6p7*(-fmb*fmc*hbcm+fmc*hbcm2+fmc2*hbcm)+8*(-hbcm*p1p4*p6p7-
12577      . hbcm*p2p4*p6p7-hbcm*p4p5*p6p7))+48*p6p7*(-fb3*hbcm+fb4*fmb-fb4
12578      . *fmc))
12579       do 200 n=1,32
12580          c(n,1)=c(n,1)-0.8181818181818182d0*b(n)
12581          c(n,2)=c(n,2)+0.9833321660356334d0*b(n)
12582 200   continue
12583       return
12584         end
12585
12586       subroutine amp33_3p1(cc)
12587       implicit double precision(a-h,o-z)
12588       implicit integer (i-n)
12589       dimension b(32)
12590 #include "inclcon.h"
12591 #include "inclppp.h"
12592 #include "inclamp.h"
12593       do 100 n=1,32
12594          b(n)=0.0d0
12595 100   continue
12596       ccc=cc/((-2*ffmcfmb*p2p3+2*ffmcfmb*p3p4+2*fmc2-2*p2p4)*(2*
12597      . ffmcfmb*p3p4+2*fmc2)*(2*ffmcfmb*p1p3-fmb2-2*fmc*hbcm+fmc2+
12598      . hbcm2-2*p1p3))
12599       b(1)=ccc*(16*w1*(fmc*p2p4*p3p6+hbcm*p2p4*p4p6)+8*w11*(-fmc*p1p2
12600      . *p3p6+fmc*p2p3*p3p6+3*fmc*p2p4*p3p6+fmc*p2p5*p3p6-hbcm*p1p2*
12601      . p4p6+hbcm*p2p3*p4p6+3*hbcm*p2p4*p4p6+hbcm*p2p5*p4p6)+w13*(8*(
12602      . p3p6*p3p4)*(fmc-hbcm)+24*(p3p6*p2p5)*(-fmc+hbcm)+16*(p3p6*p2p3
12603      . )*(-fmc+hbcm)+8*(p3p6*p1p4)*(-fmc+hbcm)+8*(p4p6*p1p3)*(fmc-
12604      . hbcm)+16*(p3p6*p1p2)*(fmc-hbcm)+4*p4p6*(-fmb2*hbcm-2*fmc*hbcm2
12605      . +fmc2*hbcm+hbcm3)+4*p3p6*(-fmb2*fmc-fmc*hbcm2+fmc3))+(8*p4p6*(
12606      . -2*fb3*fmc-2*fb4*fmc-3*hbcm)+4*p3p6*(-4*fb3*ffmcfmb*fmc-4*fb4*
12607      . ffmcfmb*fmc-fmc-3*hbcm)))
12608       ans4=(4*p6p7*(-8*fb4*fmc*hbcm+3*fmb*hbcm+3*fmc*hbcm-hbcm2)+(
12609      . p4p6*p3p7)*(128*fb4*ffmcfmb+32*fb4+16)+(p5p7*p3p6)*(32*fb4*
12610      . ffmcfmb+4)+(p4p7*p3p6)*(32*fb4*ffmcfmb+64*fb4+4)+(p3p7*p3p6)*(
12611      . 96*fb4*ffmcfmb+12)+(p6p7*p1p3)*(32*fb4*ffmcfmb+4)+32*(fb4*p1p2
12612      . *p6p7+fb4*p1p4*p6p7-fb4*p2p3*p6p7-fb4*p2p4*p6p7-fb4*p3p4*p6p7+
12613      . 5*fb4*p4p6*p4p7+fb4*p4p6*p5p7))
12614       ans3=w13*(8*(p5p7*p4p6)*(-fmb*hbcm-fmc*hbcm+hbcm2)+40*(p4p7*
12615      . p4p6)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p6p7*p3p4)*(fmb*hbcm+fmc*
12616      . hbcm-hbcm2)+8*(p6p7*p2p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p6p7*
12617      . p2p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p6p7*p1p4)*(-fmb*hbcm-fmc*
12618      . hbcm+hbcm2)+8*(p6p7*p1p2)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p4p6*
12619      . p3p7)*(-4*fmb*fmc-fmb*hbcm+3*fmc*hbcm-4*fmc2+hbcm2)+8*(p5p7*
12620      . p3p6)*(-fmb*fmc+fmc*hbcm-fmc2)+8*(p4p7*p3p6)*(-3*fmb*fmc+fmc*
12621      . hbcm-3*fmc2+2*hbcm2)+8*(p6p7*p1p3)*(-fmb*fmc+2*fmc*hbcm-fmc2)+
12622      . 8*p6p7*(-ffmcfmb*p1p3s2+fmb*fmc*hbcm2-fmc*hbcm3+fmc2*hbcm2)+(
12623      . p4p6*p3p7*p1p3)*(-32*ffmcfmb-8)+(p4p7*p3p6*p1p3)*(-8*ffmcfmb-
12624      . 16)+8*(p3p7*p3p6)*(-2*ffmcfmb*fmb*fmc-2*ffmcfmb*fmc2-fmb*fmc+3
12625      . *fmc*hbcm-fmc2)+8*(-3*ffmcfmb*p1p3*p3p6*p3p7-ffmcfmb*p1p3*p3p6
12626      . *p5p7-p1p2*p1p3*p6p7-p1p3*p1p4*p6p7+p1p3*p2p3*p6p7+p1p3*p2p4*
12627      . p6p7+p1p3*p3p4*p6p7-5*p1p3*p4p6*p4p7-p1p3*p4p6*p5p7))+ans4
12628       ans2=w1*(8*p6p7*(fmc2*hbcm2+p3p4s2)+8*(p4p6*p3p7)*(-fmc*hbcm-6*
12629      . fmc2)+8*(p4p7*p3p6)*(-2*fmc*hbcm-3*fmc2)+(p4p6*p3p7*p3p4)*(-32
12630      . *ffmcfmb-8)+(p4p7*p3p6*p3p4)*(-8*ffmcfmb-16)+8*(p3p7*p3p6)*(-2
12631      . *ffmcfmb*fmc2-3*fmc2)+8*(-ffmcfmb*p1p3*p3p4*p6p7-3*ffmcfmb*
12632      . p3p4*p3p6*p3p7-ffmcfmb*p3p4*p3p6*p5p7-fmc*hbcm*p1p2*p6p7-fmc*
12633      . hbcm*p1p4*p6p7+fmc*hbcm*p2p3*p6p7+fmc*hbcm*p2p4*p6p7+2*fmc*
12634      . hbcm*p3p4*p6p7-7*fmc*hbcm*p4p6*p4p7-fmc*hbcm*p4p6*p5p7-fmc2*
12635      . p1p3*p6p7-fmc2*p3p6*p5p7-p1p2*p3p4*p6p7-p1p4*p3p4*p6p7+p2p3*
12636      . p3p4*p6p7+p2p4*p3p4*p6p7-5*p3p4*p4p6*p4p7-p3p4*p4p6*p5p7))+
12637      . ans3
12638       ans1=w11*(8*p6p7*(fmc2*hbcm2-p2p3s2+p3p4s2)+8*(p4p6*p3p7)*(-fmc
12639      . *hbcm-6*fmc2)+8*(p4p7*p3p6)*(-2*fmc*hbcm-3*fmc2)+(p4p6*p3p7*
12640      . p3p4)*(-32*ffmcfmb-8)+(p4p7*p3p6*p3p4)*(-8*ffmcfmb-16)+(p4p6*
12641      . p3p7*p2p3)*(32*ffmcfmb+8)+(p4p7*p3p6*p2p3)*(8*ffmcfmb+16)+8*(
12642      . p3p7*p3p6)*(-2*ffmcfmb*fmc2-3*fmc2)+8*(ffmcfmb*p1p3*p2p3*p6p7-
12643      . ffmcfmb*p1p3*p3p4*p6p7+3*ffmcfmb*p2p3*p3p6*p3p7+ffmcfmb*p2p3*
12644      . p3p6*p5p7-3*ffmcfmb*p3p4*p3p6*p3p7-ffmcfmb*p3p4*p3p6*p5p7-fmc*
12645      . hbcm*p1p2*p6p7-fmc*hbcm*p1p4*p6p7+fmc*hbcm*p2p4*p6p7+2*fmc*
12646      . hbcm*p3p4*p6p7-7*fmc*hbcm*p4p6*p4p7-fmc*hbcm*p4p6*p5p7-fmc2*
12647      . p1p3*p6p7-fmc2*p3p6*p5p7+p1p2*p2p3*p6p7-p1p2*p3p4*p6p7+p1p4*
12648      . p2p3*p6p7-p1p4*p3p4*p6p7-p2p3*p2p4*p6p7+5*p2p3*p4p6*p4p7+p2p3*
12649      . p4p6*p5p7+p2p4*p3p4*p6p7-5*p3p4*p4p6*p4p7-p3p4*p4p6*p5p7))+
12650      . ans2
12651       ans=ccc*ans1
12652       b(2)=ans
12653       ans4=8*(2*fmc*p1p2*p3p6*p7p8+4*fmc*p1p2*p3p7*p6p8+fmc*p1p3*p2p8
12654      . *p6p7-2*fmc*p1p3*p4p7*p6p8+fmc*p1p3*p4p8*p6p7+4*fmc*p1p4*p3p7*
12655      . p6p8+2*fmc*p1p8*p2p3*p6p7-2*fmc*p1p8*p3p4*p6p7+2*fmc*p1p8*p3p6
12656      . *p4p7-4*fmc*p1p8*p3p7*p4p6+2*fmc*p2p3*p2p8*p6p7-2*fmc*p2p3*
12657      . p3p6*p7p8+2*fmc*p2p3*p5p7*p6p8-2*fmc*p2p3*p5p8*p6p7-2*fmc*p2p4
12658      . *p3p6*p7p8-2*fmc*p2p5*p3p6*p7p8-8*fmc*p2p5*p3p7*p6p8+fmc*p2p8*
12659      . p3p6*p5p7-2*fmc*p3p4*p5p7*p6p8+2*fmc*p3p4*p5p8*p6p7-2*fmc*p3p6
12660      . *p4p7*p5p8+fmc*p3p6*p4p8*p5p7+4*fmc*p3p7*p4p6*p5p8-2*fmc2*hbcm
12661      . *p1p8*p6p7-2*fmc2*hbcm*p5p7*p6p8+2*fmc2*hbcm*p5p8*p6p7+2*hbcm*
12662      . p1p2*p4p6*p7p8+6*hbcm*p1p2*p4p7*p6p8-2*hbcm*p1p2*p4p8*p6p7+
12663      . hbcm*p1p4*p2p8*p6p7+2*hbcm*p1p4*p4p7*p6p8+hbcm*p1p4*p4p8*p6p7+
12664      . 2*hbcm*p1p8*p2p4*p6p7-2*hbcm*p1p8*p4p6*p4p7-2*hbcm*p2p3*p4p6*
12665      . p7p8+2*hbcm*p2p4*p2p8*p6p7+2*hbcm*p2p4*p3p7*p6p8-2*hbcm*p2p4*
12666      . p4p6*p7p8+6*hbcm*p2p4*p5p7*p6p8-2*hbcm*p2p4*p5p8*p6p7+hbcm*
12667      . p2p5*p2p8*p6p7-2*hbcm*p2p5*p4p6*p7p8-12*hbcm*p2p5*p4p7*p6p8+3*
12668      . hbcm*p2p5*p4p8*p6p7+5*hbcm*p2p8*p4p6*p4p7+hbcm*p2p8*p4p6*p5p7+
12669      . 5*hbcm*p4p6*p4p7*p4p8+2*hbcm*p4p6*p4p7*p5p8+hbcm*p4p6*p4p8*
12670      . p5p7)
12671       ans3=8*(p4p8*p4p6*p3p7)*(6*fmc+hbcm)+8*(p4p8*p4p7*p3p6)*(fmc+2*
12672      . hbcm)+8*(p6p7*p4p8*p3p4)*(2*fmc-hbcm)+8*(p4p6*p3p7*p2p8)*(2*
12673      . fmc+hbcm)+8*(p4p7*p3p6*p2p8)*(5*fmc+2*hbcm)+8*(p6p7*p3p4*p2p8)
12674      . *(-2*fmc-hbcm)+16*(p6p7*p4p8*p2p3)*(-fmc+hbcm)+8*(p6p7*p4p8)*(
12675      . -fmc*hbcm2+2*fmc2*hbcm)+8*(p6p7*p2p8)*(-fmc*hbcm2-2*fmc2*hbcm)
12676      . +16*(p6p8*p4p7*p3p4)*(fmb-2*fmc-hbcm)+16*(p6p8*p4p7*p2p3)*(-
12677      . fmb+2*fmc-3*hbcm)+16*(p6p8*p3p7)*(fmb*fmc2-fmc2*hbcm-3*fmc3)+
12678      . 16*(p6p8*p4p7)*(fmb*fmc*hbcm+fmc*hbcm2-4*fmc2*hbcm)+8*(p4p8*
12679      . p3p7*p3p6)*(2*ffmcfmb*fmc+3*fmc)+8*(p3p7*p3p6*p2p8)*(2*ffmcfmb
12680      . *fmc+3*fmc)+16*(p6p8*p3p7*p3p4)*(ffmcfmb*fmb-ffmcfmb*fmc-3*fmc
12681      . )+16*(p6p8*p3p7*p2p3)*(-ffmcfmb*fmb+ffmcfmb*fmc-fmc)+ans4
12682       ans2=w11*ans3
12683       ans7=8*(fmc*hbcm2*p1p8*p6p7-fmc*p1p3*p1p8*p6p7-fmc*p1p8*p3p6*
12684      . p5p7-hbcm*p1p4*p1p8*p6p7-hbcm*p1p8*p2p5*p6p7+hbcm*p1p8*p3p4*
12685      . p6p7-3*hbcm*p1p8*p4p6*p4p7-hbcm*p1p8*p4p6*p5p7)
12686       ans6=16*(p5p7*p4p8*p3p6)*(fmc-hbcm)+48*(p5p8*p4p7*p3p6)*(-fmc+
12687      . hbcm)+16*(p4p8*p3p7*p3p6)*(fmc-hbcm)+16*(p7p8*p3p6*p3p4)*(-fmc
12688      . +hbcm)+32*(p5p7*p3p6*p2p8)*(-fmc+hbcm)+48*(p4p7*p3p6*p2p8)*(
12689      . fmc-hbcm)+16*(p7p8*p3p6*p2p5)*(fmc-hbcm)+8*(p4p6*p3p7*p1p8)*(-
12690      . 2*fmc-hbcm)+8*(p4p7*p3p6*p1p8)*(3*fmc-4*hbcm)+16*(p7p8*p3p6*
12691      . p1p4)*(fmc-hbcm)+16*(p6p7*p4p8*p1p3)*(fmc-hbcm)+16*(p7p8*p4p6*
12692      . p1p3)*(-fmc+hbcm)+8*(p6p7*p4p8)*(-fmb2*hbcm-2*fmc*hbcm2+fmc2*
12693      . hbcm+hbcm3)+8*(p7p8*p4p6)*(fmb2*hbcm+2*fmc*hbcm2-fmc2*hbcm-
12694      . hbcm3)+8*(p7p8*p3p6)*(fmb2*fmc+fmc*hbcm2-fmc3)+16*(p6p8*p4p7*
12695      . p1p3)*(fmb-2*fmc+hbcm)+8*(p6p8*p4p7)*(-2*fmb*hbcm2+3*fmb2*hbcm
12696      . +4*fmc*hbcm2-3*fmc2*hbcm-hbcm3)+16*(p6p8*p3p7)*(-fmb*fmc*hbcm+
12697      . fmb2*fmc+fmc2*hbcm-fmc3)+32*(p5p8*p3p7*p3p6)*(-ffmcfmb*fmc+fmc
12698      . )+32*(p3p7*p3p6*p2p8)*(ffmcfmb*fmc-fmc)+8*(p3p7*p3p6*p1p8)*(2*
12699      . ffmcfmb*fmc-3*fmc)+16*(p6p8*p3p7*p1p3)*(ffmcfmb*fmb-ffmcfmb*
12700      . fmc)+ans7
12701       ans5=w13*ans6
12702       ans8=(8*(p7p8*p3p6)*(fmc+2*hbcm)+8*(p6p7*p5p8)*(-4*fb3*fmc-4*
12703      . fb4*fmc+5*hbcm)+32*(p6p7*p4p8)*(-fb3*fmc-fb4*fmc)+4*(p6p8*p4p7
12704      . )*(8*fb3*fmc-16*fb4*fmb+24*fb4*fmc-hbcm)+4*(p6p8*p3p7)*(8*fb3*
12705      . fmc-16*fb4*ffmcfmb*fmb+16*fb4*ffmcfmb*fmc+8*fb4*fmc-2*fmb-5*
12706      . hbcm)+8*(p6p7*p2p8)*(4*fb3*fmc+4*fb4*fmc-5*hbcm)+4*(p6p7*p1p8)
12707      . *(8*fb3*fmc+8*fb4*fmc-5*hbcm)+4*(8*hbcm*p4p6*p7p8-7*hbcm*p5p7*
12708      . p6p8))
12709       ans1=w1*(8*(p4p8*p4p6*p3p7)*(6*fmc+hbcm)+8*(p4p8*p4p7*p3p6)*(
12710      . fmc+2*hbcm)+8*(p6p7*p4p8*p3p4)*(2*fmc-hbcm)+8*(p6p7*p4p8)*(-
12711      . fmc*hbcm2+2*fmc2*hbcm)+16*(p6p8*p4p7*p3p4)*(fmb-2*fmc-hbcm)+16
12712      . *(p6p8*p3p7)*(fmb*fmc2-fmc2*hbcm-3*fmc3)+16*(p6p8*p4p7)*(fmb*
12713      . fmc*hbcm+fmc*hbcm2-4*fmc2*hbcm)+8*(p4p8*p3p7*p3p6)*(2*ffmcfmb*
12714      . fmc+3*fmc)+16*(p6p8*p3p7*p3p4)*(ffmcfmb*fmb-ffmcfmb*fmc-3*fmc)
12715      . +8*(-2*fmc*p1p3*p4p7*p6p8+fmc*p1p3*p4p8*p6p7+4*fmc*p1p4*p3p7*
12716      . p6p8-2*fmc*p1p8*p3p4*p6p7+2*fmc*p1p8*p3p6*p4p7-4*fmc*p1p8*p3p7
12717      . *p4p6-2*fmc*p2p8*p3p4*p6p7+2*fmc*p2p8*p3p6*p4p7-4*fmc*p2p8*
12718      . p3p7*p4p6-2*fmc*p3p4*p5p7*p6p8+2*fmc*p3p4*p5p8*p6p7-2*fmc*p3p6
12719      . *p4p7*p5p8+fmc*p3p6*p4p8*p5p7+4*fmc*p3p7*p4p6*p5p8-2*fmc2*hbcm
12720      . *p1p8*p6p7-2*fmc2*hbcm*p2p8*p6p7-2*fmc2*hbcm*p5p7*p6p8+2*fmc2*
12721      . hbcm*p5p8*p6p7+2*hbcm*p1p4*p4p7*p6p8+hbcm*p1p4*p4p8*p6p7-2*
12722      . hbcm*p1p8*p4p6*p4p7+4*hbcm*p2p4*p5p7*p6p8-2*hbcm*p2p5*p4p7*
12723      . p6p8+hbcm*p2p5*p4p8*p6p7-2*hbcm*p2p8*p4p6*p4p7+5*hbcm*p4p6*
12724      . p4p7*p4p8+2*hbcm*p4p6*p4p7*p5p8+hbcm*p4p6*p4p8*p5p7))+ans2+
12725      . ans5+ans8
12726       ans=ccc*ans1
12727       b(3)=ans
12728       ans2=(16*p4p7*(3*fb3*fmc-2*fb4*fmb+5*fb4*fmc)+4*p3p7*(8*fb3*
12729      . ffmcfmb*fmc+4*fb3*fmc-8*fb4*ffmcfmb*fmb+16*fb4*ffmcfmb*fmc+4*
12730      . fb4*fmc-fmb+3*fmc-5*hbcm)-24*hbcm*p5p7)
12731       ans1=w1*(8*(p4p7*p3p4)*(fmb-4*fmc-hbcm)+8*p3p7*(fmb*fmc2-fmc2*
12732      . hbcm-5*fmc3)+8*p4p7*(fmb*fmc*hbcm+fmc*hbcm2-6*fmc2*hbcm)+8*(
12733      . p3p7*p3p4)*(ffmcfmb*fmb-3*ffmcfmb*fmc-3*fmc)+8*(-fmc*p1p3*p4p7
12734      . +2*fmc*p1p4*p3p7-fmc*p3p4*p5p7-fmc2*hbcm*p5p7+hbcm*p1p4*p4p7+2
12735      . *hbcm*p2p4*p5p7-hbcm*p2p5*p4p7))+w11*(8*(p4p7*p3p4)*(fmb-4*fmc
12736      . -hbcm)+8*(p4p7*p2p3)*(-fmb+4*fmc-5*hbcm)+8*p3p7*(fmb*fmc2-fmc2
12737      . *hbcm-5*fmc3)+8*p4p7*(fmb*fmc*hbcm+fmc*hbcm2-6*fmc2*hbcm)+8*(
12738      . p3p7*p3p4)*(ffmcfmb*fmb-3*ffmcfmb*fmc-3*fmc)+8*(p3p7*p2p3)*(-
12739      . ffmcfmb*fmb+3*ffmcfmb*fmc-3*fmc)+8*(4*fmc*p1p2*p3p7-fmc*p1p3*
12740      . p4p7+2*fmc*p1p4*p3p7+fmc*p2p3*p5p7-6*fmc*p2p5*p3p7-fmc*p3p4*
12741      . p5p7-fmc2*hbcm*p5p7+5*hbcm*p1p2*p4p7+hbcm*p1p4*p4p7+hbcm*p2p4*
12742      . p3p7+3*hbcm*p2p4*p5p7-8*hbcm*p2p5*p4p7))+w13*(8*(p4p7*p1p3)*(
12743      . fmb-4*fmc+3*hbcm)+4*p4p7*(-2*fmb*hbcm2+5*fmb2*hbcm+8*fmc*hbcm2
12744      . -5*fmc2*hbcm-3*hbcm3)+8*p3p7*(-fmb*fmc*hbcm+2*fmb2*fmc-fmc*
12745      . hbcm2+3*fmc2*hbcm-2*fmc3)+8*(p3p7*p1p3)*(ffmcfmb*fmb-3*ffmcfmb
12746      . *fmc+2*fmc))+ans2
12747       ans=ccc*ans1
12748       b(4)=ans
12749       ans4=(4*p7p8*(-8*fb4*fmc*hbcm+2*fmb*hbcm+2*fmc*hbcm-hbcm2)+(
12750      . p5p8*p3p7)*(-128*fb4*ffmcfmb-16)+(p3p7*p2p8)*(128*fb4*ffmcfmb+
12751      . 16)+(p3p7*p1p8)*(64*fb4*ffmcfmb+8)+(p7p8*p1p3)*(32*fb4*ffmcfmb
12752      . +4)+32*(fb4*p1p4*p7p8+3*fb4*p1p8*p4p7+fb4*p2p5*p7p8+5*fb4*p2p8
12753      . *p4p7-2*fb4*p2p8*p5p7-fb4*p3p4*p7p8+fb4*p3p7*p4p8-5*fb4*p4p7*
12754      . p5p8+fb4*p4p8*p5p7))
12755       ans3=w13*(8*(p5p7*p4p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+40*(p5p8*
12756      . p4p7)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p4p8*p3p7)*(-fmb*hbcm-fmc*
12757      . hbcm+hbcm2)+8*(p7p8*p3p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p5p7*
12758      . p2p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+40*(p4p7*p2p8)*(-fmb*hbcm-fmc*
12759      . hbcm+hbcm2)+8*(p7p8*p2p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p4p7*
12760      . p1p8)*(-4*fmb*hbcm-4*fmc*hbcm+3*hbcm2)+8*(p7p8*p1p4)*(-fmb*
12761      . hbcm-fmc*hbcm+hbcm2)+32*(p5p8*p3p7)*(fmb*fmc-fmc*hbcm+fmc2)+32
12762      . *(p3p7*p2p8)*(-fmb*fmc+fmc*hbcm-fmc2)+8*(p3p7*p1p8)*(-3*fmb*
12763      . fmc+2*fmc*hbcm-3*fmc2)+8*(p7p8*p1p3)*(-fmb*fmc+2*fmc*hbcm-fmc2
12764      . )+8*p7p8*(-ffmcfmb*p1p3s2+fmb*fmc*hbcm2-fmc*hbcm3+fmc2*hbcm2)+
12765      . 8*(-2*ffmcfmb*p1p3*p1p8*p3p7-4*ffmcfmb*p1p3*p2p8*p3p7+4*
12766      . ffmcfmb*p1p3*p3p7*p5p8-p1p3*p1p4*p7p8-3*p1p3*p1p8*p4p7-p1p3*
12767      . p2p5*p7p8-5*p1p3*p2p8*p4p7+2*p1p3*p2p8*p5p7+p1p3*p3p4*p7p8-
12768      . p1p3*p3p7*p4p8+5*p1p3*p4p7*p5p8-p1p3*p4p8*p5p7))+ans4
12769       ans2=w11*(8*p7p8*(fmc2*hbcm2+p3p4s2)+8*(p4p8*p4p7)*(fmb*hbcm+
12770      . fmc*hbcm)+8*(p4p7*p2p8)*(fmb*hbcm-6*fmc*hbcm)+8*(p4p8*p3p7)*(
12771      . fmb*fmc-fmc*hbcm+fmc2)+8*(p3p7*p2p8)*(fmb*fmc-5*fmc2)+8*(
12772      . ffmcfmb*p1p3*p2p3*p7p8-ffmcfmb*p1p3*p3p4*p7p8+2*ffmcfmb*p1p8*
12773      . p2p3*p3p7-2*ffmcfmb*p1p8*p3p4*p3p7+4*ffmcfmb*p2p3*p2p8*p3p7-4*
12774      . ffmcfmb*p2p3*p3p7*p5p8-4*ffmcfmb*p2p8*p3p4*p3p7+4*ffmcfmb*p3p4
12775      . *p3p7*p5p8-fmc*hbcm*p1p4*p7p8-5*fmc*hbcm*p1p8*p4p7-fmc*hbcm*
12776      . p2p3*p7p8-fmc*hbcm*p2p5*p7p8+2*fmc*hbcm*p2p8*p5p7+2*fmc*hbcm*
12777      . p3p4*p7p8+7*fmc*hbcm*p4p7*p5p8-fmc*hbcm*p4p8*p5p7-fmc2*p1p3*
12778      . p7p8-4*fmc2*p1p8*p3p7+6*fmc2*p3p7*p5p8+p1p4*p2p3*p7p8-p1p4*
12779      . p3p4*p7p8+3*p1p8*p2p3*p4p7-3*p1p8*p3p4*p4p7+p2p3*p2p5*p7p8+5*
12780      . p2p3*p2p8*p4p7-2*p2p3*p2p8*p5p7-p2p3*p3p4*p7p8+p2p3*p3p7*p4p8-
12781      . 5*p2p3*p4p7*p5p8+p2p3*p4p8*p5p7-p2p5*p3p4*p7p8-5*p2p8*p3p4*
12782      . p4p7+2*p2p8*p3p4*p5p7-p3p4*p3p7*p4p8+5*p3p4*p4p7*p5p8-p3p4*
12783      . p4p8*p5p7))+ans3
12784       ans1=w1*(8*p7p8*(fmc2*hbcm2+p3p4s2)+8*(p4p8*p4p7)*(fmb*hbcm+fmc
12785      . *hbcm)+8*(p4p8*p3p7)*(fmb*fmc-fmc*hbcm+fmc2)+8*(-ffmcfmb*p1p3*
12786      . p3p4*p7p8-2*ffmcfmb*p1p8*p3p4*p3p7-4*ffmcfmb*p2p8*p3p4*p3p7+4*
12787      . ffmcfmb*p3p4*p3p7*p5p8-fmc*hbcm*p1p4*p7p8-5*fmc*hbcm*p1p8*p4p7
12788      . -fmc*hbcm*p2p5*p7p8-7*fmc*hbcm*p2p8*p4p7+2*fmc*hbcm*p2p8*p5p7+
12789      . 2*fmc*hbcm*p3p4*p7p8+7*fmc*hbcm*p4p7*p5p8-fmc*hbcm*p4p8*p5p7-
12790      . fmc2*p1p3*p7p8-4*fmc2*p1p8*p3p7-6*fmc2*p2p8*p3p7+6*fmc2*p3p7*
12791      . p5p8-p1p4*p3p4*p7p8-3*p1p8*p3p4*p4p7-p2p5*p3p4*p7p8-5*p2p8*
12792      . p3p4*p4p7+2*p2p8*p3p4*p5p7-p3p4*p3p7*p4p8+5*p3p4*p4p7*p5p8-
12793      . p3p4*p4p8*p5p7))+ans2
12794       ans=ccc*ans1
12795       b(5)=ans
12796       ans4=(16*p5p7*(-2*fb4*fmc*hbcm-hbcm2)+(p3p7*p3p5)*(128*fb4*
12797      . ffmcfmb+16)+(p3p7*p2p3)*(-128*fb4*ffmcfmb-16)+(p3p7*p1p3)*(-96
12798      . *fb4*ffmcfmb-12)+16*p4p7*(2*fb3*fmb*hbcm+3*fb3*fmc*hbcm-fb4*
12799      . fmc*hbcm+6*fb4*hbcm2)+8*p3p7*(4*fb3*fmb*fmc+2*fb3*fmc*hbcm+4*
12800      . fb3*fmc2+10*fb4*fmc*hbcm-fmb*hbcm-fmc*hbcm)+32*(-3*fb4*p1p3*
12801      . p4p7-fb4*p1p4*p3p7-5*fb4*p2p3*p4p7+2*fb4*p2p3*p5p7-fb4*p2p5*
12802      . p3p7-fb4*p3p4*p5p7+5*fb4*p3p5*p4p7))
12803       ans3=w11*(8*p5p7*(2*p2p3s2+p3p4s2)+8*(p4p7*p3p4)*(-fmb*hbcm-fmc
12804      . *hbcm-4*hbcm2)+8*(p4p7*p2p3)*(-fmb*hbcm+6*fmc*hbcm)+8*(p3p7*
12805      . p3p4)*(-fmb*fmc-5*fmc*hbcm-fmc2)+8*(p3p7*p2p3)*(-fmb*fmc+fmc*
12806      . hbcm+5*fmc2)+8*p4p7*(-fmb*fmc*hbcm2-4*fmc*hbcm3-fmc2*hbcm2-5*
12807      . p2p3s2)+8*p3p7*(-4*ffmcfmb*p2p3s2-fmb*fmc2*hbcm-5*fmc2*hbcm2-
12808      . fmc3*hbcm)+8*(-3*ffmcfmb*p1p3*p2p3*p3p7+3*ffmcfmb*p1p3*p3p4*
12809      . p3p7+4*ffmcfmb*p2p3*p3p4*p3p7+4*ffmcfmb*p2p3*p3p5*p3p7-4*
12810      . ffmcfmb*p3p4*p3p5*p3p7+2*fmc*hbcm*p1p2*p3p7+4*fmc*hbcm*p1p3*
12811      . p4p7+3*fmc*hbcm*p1p4*p3p7-2*fmc*hbcm*p2p3*p5p7-3*fmc*hbcm*p2p5
12812      . *p3p7+fmc*hbcm*p3p4*p5p7-7*fmc*hbcm*p3p5*p4p7+5*fmc2*p1p3*p3p7
12813      . -6*fmc2*p3p5*p3p7+3*hbcm2*p1p2*p4p7+hbcm2*p1p4*p4p7+hbcm2*p2p4
12814      . *p3p7+3*hbcm2*p2p4*p5p7-6*hbcm2*p2p5*p4p7-3*p1p3*p2p3*p4p7+3*
12815      . p1p3*p3p4*p4p7-p1p4*p2p3*p3p7+p1p4*p3p4*p3p7-p2p3*p2p5*p3p7+5*
12816      . p2p3*p3p4*p4p7-3*p2p3*p3p4*p5p7+5*p2p3*p3p5*p4p7+p2p5*p3p4*
12817      . p3p7-5*p3p4*p3p5*p4p7))+ans4
12818       ans2=w13*(40*(p4p7*p3p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p5p7*
12819      . p3p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p3p7*p2p5)*(fmb*hbcm+fmc*
12820      . hbcm-hbcm2)+16*(p5p7*p2p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+40*(p4p7
12821      . *p2p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p3p7*p1p4)*(fmb*hbcm+fmc*
12822      . hbcm-hbcm2)+8*(p4p7*p1p3)*(4*fmb*hbcm+4*fmc*hbcm-5*hbcm2)+32*(
12823      . p3p7*p3p5)*(-fmb*fmc+fmc*hbcm-fmc2)+32*(p3p7*p2p3)*(fmb*fmc-
12824      . fmc*hbcm+fmc2)+8*(p3p7*p1p3)*(4*fmb*fmc-5*fmc*hbcm+4*fmc2)+8*
12825      . p5p7*(fmb*fmc*hbcm2-fmc*hbcm3+fmc2*hbcm2)+4*p4p7*(6*fmb*fmc*
12826      . hbcm2-8*fmb*hbcm3+3*fmb2*hbcm2-8*fmc*hbcm3+3*fmc2*hbcm2+5*
12827      . hbcm4+6*p1p3s2)+8*p3p7*(3*ffmcfmb*p1p3s2-3*fmb*fmc*hbcm2+2*fmb
12828      . *fmc2*hbcm+fmb2*fmc*hbcm+2*fmc*hbcm3-3*fmc2*hbcm2+fmc3*hbcm)+8
12829      . *(4*ffmcfmb*p1p3*p2p3*p3p7-4*ffmcfmb*p1p3*p3p5*p3p7+fmc*hbcm*
12830      . p1p3*p5p7+p1p3*p1p4*p3p7+5*p1p3*p2p3*p4p7-2*p1p3*p2p3*p5p7+
12831      . p1p3*p2p5*p3p7+p1p3*p3p4*p5p7-5*p1p3*p3p5*p4p7))+ans3
12832       ans1=w1*(8*(p4p7*p3p4)*(-fmb*hbcm-fmc*hbcm-4*hbcm2)+8*p3p7*(-
12833      . fmb*fmc2*hbcm-5*fmc2*hbcm2-fmc3*hbcm)+8*(p3p7*p3p4)*(-fmb*fmc-
12834      . 5*fmc*hbcm-fmc2)+8*p4p7*(-fmb*fmc*hbcm2-4*fmc*hbcm3-fmc2*hbcm2
12835      . )+8*(3*ffmcfmb*p1p3*p3p4*p3p7+4*ffmcfmb*p2p3*p3p4*p3p7-4*
12836      . ffmcfmb*p3p4*p3p5*p3p7+4*fmc*hbcm*p1p3*p4p7+3*fmc*hbcm*p1p4*
12837      . p3p7+7*fmc*hbcm*p2p3*p4p7-2*fmc*hbcm*p2p3*p5p7+fmc*hbcm*p2p5*
12838      . p3p7+fmc*hbcm*p3p4*p5p7-7*fmc*hbcm*p3p5*p4p7+5*fmc2*p1p3*p3p7+
12839      . 6*fmc2*p2p3*p3p7-6*fmc2*p3p5*p3p7+hbcm2*p1p4*p4p7+2*hbcm2*p2p4
12840      . *p5p7-hbcm2*p2p5*p4p7+3*p1p3*p3p4*p4p7+p1p4*p3p4*p3p7+5*p2p3*
12841      . p3p4*p4p7-2*p2p3*p3p4*p5p7+p2p5*p3p4*p3p7-5*p3p4*p3p5*p4p7+
12842      . p3p4s2*p5p7))+ans2
12843       ans=ccc*ans1
12844       b(6)=ans
12845       ans5=-2*fmc*hbcm2*p1p2*p7p8+fmc*hbcm2*p1p4*p7p8+fmc*hbcm2*p1p8*
12846      . p4p7+3*fmc*hbcm2*p2p5*p7p8-3*fmc*hbcm2*p2p8*p5p7-3*fmc*hbcm2*
12847      . p4p7*p5p8+3*fmc*p1p3*p2p3*p7p8-5*fmc*p1p3*p2p8*p3p7-fmc*p1p3*
12848      . p3p4*p7p8-5*fmc*p1p3*p3p7*p4p8+2*fmc*p1p8*p2p3*p3p7+6*fmc*p1p8
12849      . *p3p4*p3p7-2*fmc*p2p3*p2p8*p3p7-2*fmc*p2p3*p3p5*p7p8-4*fmc*
12850      . p2p3*p3p7*p5p8+8*fmc*p2p8*p3p4*p3p7+6*fmc*p2p8*p3p5*p3p7+2*fmc
12851      . *p3p4*p3p5*p7p8-8*fmc*p3p4*p3p7*p5p8+6*fmc*p3p5*p3p7*p4p8-fmc2
12852      . *hbcm*p1p3*p7p8+4*fmc2*hbcm*p1p8*p3p7+2*fmc2*hbcm*p3p4*p7p8+2*
12853      . fmc2*hbcm*p3p5*p7p8-6*fmc2*hbcm*p3p7*p5p8-2*hbcm*p1p2*p3p4*
12854      . p7p8+2*hbcm*p1p2*p3p7*p4p8+2*hbcm*p1p3*p2p4*p7p8-5*hbcm*p1p3*
12855      . p2p8*p4p7-3*hbcm*p1p3*p4p7*p4p8+hbcm*p1p4*p2p3*p7p8-hbcm*p1p4*
12856      . p2p8*p3p7+hbcm*p1p4*p3p4*p7p8-hbcm*p1p4*p3p7*p4p8+5*hbcm*p1p8*
12857      . p2p3*p4p7-2*hbcm*p1p8*p2p4*p3p7+3*hbcm*p1p8*p3p4*p4p7+2*hbcm*
12858      . p2p3*p2p4*p7p8+hbcm*p2p3*p2p5*p7p8-5*hbcm*p2p3*p4p7*p4p8-7*
12859      . hbcm*p2p3*p4p7*p5p8+3*hbcm*p2p3*p4p8*p5p7-2*hbcm*p2p4*p2p8*
12860      . p3p7-2*hbcm*p2p4*p3p5*p7p8+2*hbcm*p2p4*p3p7*p5p8-hbcm*p2p5*
12861      . p2p8*p3p7+3*hbcm*p2p5*p3p4*p7p8-3*hbcm*p2p5*p3p7*p4p8+5*hbcm*
12862      . p2p8*p3p4*p4p7-3*hbcm*p2p8*p3p4*p5p7+7*hbcm*p2p8*p3p5*p4p7-5*
12863      . hbcm*p3p4*p4p7*p5p8+5*hbcm*p3p5*p4p7*p4p8
12864       ans4=8*ans5
12865       ans3=8*(p4p8*p3p7*p3p4)*(-2*fmc+hbcm)+8*p7p8*(2*fmc*p2p3s2+2*
12866      . fmc*p3p4s2+fmc2*hbcm3-hbcm*p3p4s2)+8*(p4p8*p3p7*p2p3)*(-4*fmc-
12867      . hbcm)+8*(p7p8*p3p4*p2p3)*(-4*fmc+hbcm)+16*(p7p8*p2p4)*(fmc*
12868      . hbcm2-hbcm3)+8*(p7p8*p2p3)*(-fmc*hbcm2-2*fmc2*hbcm)+8*(p4p8*
12869      . p4p7)*(fmb*hbcm2-2*fmc*hbcm2+3*hbcm3)+8*(p4p7*p2p8)*(fmb*hbcm2
12870      . -fmc*hbcm2+5*hbcm3)+8*(p4p8*p3p7)*(fmb*fmc*hbcm+5*fmc*hbcm2-5*
12871      . fmc2*hbcm)+8*(p3p7*p2p8)*(fmb*fmc*hbcm+4*fmc*hbcm2+3*fmc2*hbcm
12872      . )+ans4
12873       ans2=w11*ans3
12874       ans8=8*(fmc*hbcm2*p1p8*p5p7+fmc*p1p3*p1p8*p3p7-2*fmc*p1p3*p2p8*
12875      . p3p7+2*fmc*p1p3*p3p7*p5p8+2*fmc*p1p8*p2p3*p3p7-2*fmc*p1p8*p3p5
12876      . *p3p7-hbcm*p1p3*p1p4*p7p8-hbcm*p1p3*p2p5*p7p8-3*hbcm*p1p3*p2p8
12877      . *p4p7+2*hbcm*p1p3*p2p8*p5p7+3*hbcm*p1p3*p4p7*p5p8-hbcm*p1p3*
12878      . p4p8*p5p7+hbcm*p1p4*p1p8*p3p7+3*hbcm*p1p8*p2p3*p4p7-2*hbcm*
12879      . p1p8*p2p3*p5p7+hbcm*p1p8*p2p5*p3p7+hbcm*p1p8*p3p4*p5p7-3*hbcm*
12880      . p1p8*p3p5*p4p7)
12881       ans7=8*(p4p8*p3p7*p1p3)*(-2*fmc+hbcm)+8*(p7p8*p3p4*p1p3)*(2*fmc
12882      . -hbcm)+8*(p5p7*p4p8)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+24*(p5p8*
12883      . p4p7)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+8*(p4p8*p3p7)*(-fmb*hbcm2+
12884      . fmb2*hbcm+fmc*hbcm2-fmc2*hbcm)+8*(p7p8*p3p4)*(fmb*hbcm2-fmb2*
12885      . hbcm-fmc*hbcm2+fmc2*hbcm)+16*(p5p7*p2p8)*(fmb*hbcm2+fmc*hbcm2-
12886      . hbcm3)+24*(p4p7*p2p8)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+8*(p7p8*
12887      . p2p5)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+8*(p4p7*p1p8)*(-2*fmb*hbcm2
12888      . -fmc*hbcm2)+8*(p7p8*p1p4)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+8*p7p8*
12889      . (fmb*fmc*hbcm3-fmb2*fmc*hbcm2-fmc*p1p3s2-fmc2*hbcm3+fmc3*hbcm2
12890      . )+16*(p5p8*p3p7)*(fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+16*(p3p7*
12891      . p2p8)*(-fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+8*(p3p7*p1p8)*(-fmb*
12892      . fmc*hbcm-fmc2*hbcm)+8*(p7p8*p1p3)*(-fmb*fmc*hbcm+fmc2*hbcm)+
12893      . ans8
12894       ans6=w13*ans7
12895       ans9=(4*(p7p8*p1p3)*(8*fb4*fmc-5*hbcm)+4*p7p8*(-8*fb4*fmc*hbcm2
12896      . +2*fmb*hbcm2-4*fmc*hbcm2+5*hbcm3)+32*(p5p8*p3p7)*(3*fb3*fmc+
12897      . fb4*fmc-hbcm)+32*(p4p8*p3p7)*(fb3*fmc-fb3*hbcm+fb4*fmc)+32*(
12898      . p7p8*p3p5)*(-fb3*fmc-fb4*fmc+hbcm)+32*(p7p8*p3p4)*(-fb3*fmc+
12899      . fb3*hbcm-fb4*fmc)+32*(p3p7*p2p8)*(-3*fb3*fmc-fb4*fmc+hbcm)+32*
12900      . (p7p8*p2p3)*(fb3*fmc+fb4*fmc-hbcm)+4*(p3p7*p1p8)*(-8*fb3*fmc-8
12901      . *fb4*fmc+5*hbcm)+32*(-fb3*hbcm*p1p4*p7p8-fb3*hbcm*p1p8*p4p7-
12902      . fb3*hbcm*p2p5*p7p8-3*fb3*hbcm*p2p8*p4p7+2*fb3*hbcm*p2p8*p5p7+3
12903      . *fb3*hbcm*p4p7*p5p8-fb3*hbcm*p4p8*p5p7))
12904       ans1=w1*(8*p7p8*(2*fmc*p3p4s2+fmc2*hbcm3-hbcm*p3p4s2)+8*(p4p8*
12905      . p3p7*p3p4)*(-2*fmc+hbcm)+8*(p4p8*p4p7)*(fmb*hbcm2-2*fmc*hbcm2+
12906      . 3*hbcm3)+8*(p4p8*p3p7)*(fmb*fmc*hbcm+5*fmc*hbcm2-5*fmc2*hbcm)+
12907      . 8*(fmc*hbcm2*p1p4*p7p8+fmc*hbcm2*p1p8*p4p7+fmc*hbcm2*p2p5*p7p8
12908      . +3*fmc*hbcm2*p2p8*p4p7-2*fmc*hbcm2*p2p8*p5p7-3*fmc*hbcm2*p4p7*
12909      . p5p8-fmc*p1p3*p3p4*p7p8-5*fmc*p1p3*p3p7*p4p8+6*fmc*p1p8*p3p4*
12910      . p3p7-2*fmc*p2p3*p3p4*p7p8-6*fmc*p2p3*p3p7*p4p8+8*fmc*p2p8*p3p4
12911      . *p3p7+2*fmc*p3p4*p3p5*p7p8-8*fmc*p3p4*p3p7*p5p8+6*fmc*p3p5*
12912      . p3p7*p4p8-fmc2*hbcm*p1p3*p7p8+4*fmc2*hbcm*p1p8*p3p7-2*fmc2*
12913      . hbcm*p2p3*p7p8+6*fmc2*hbcm*p2p8*p3p7+2*fmc2*hbcm*p3p4*p7p8+2*
12914      . fmc2*hbcm*p3p5*p7p8-6*fmc2*hbcm*p3p7*p5p8-3*hbcm*p1p3*p4p7*
12915      . p4p8+hbcm*p1p4*p3p4*p7p8-hbcm*p1p4*p3p7*p4p8+3*hbcm*p1p8*p3p4*
12916      . p4p7-5*hbcm*p2p3*p4p7*p4p8+2*hbcm*p2p3*p4p8*p5p7+hbcm*p2p5*
12917      . p3p4*p7p8-hbcm*p2p5*p3p7*p4p8+5*hbcm*p2p8*p3p4*p4p7-2*hbcm*
12918      . p2p8*p3p4*p5p7-5*hbcm*p3p4*p4p7*p5p8+5*hbcm*p3p5*p4p7*p4p8))+
12919      . ans2+ans6+ans9
12920       ans=ccc*ans1
12921       b(7)=ans
12922       ans4=(4*p6p8*(-8*fb4*fmc*hbcm+3*fmb*hbcm+3*fmc*hbcm-hbcm2)+(
12923      . p5p8*p3p6)*(32*fb4*ffmcfmb+4)+(p4p8*p3p6)*(32*fb4*ffmcfmb+4)+(
12924      . p3p6*p2p8)*(-96*fb4*ffmcfmb-12)+(p3p6*p1p8)*(-32*fb4*ffmcfmb-4
12925      . )+(p6p8*p1p3)*(32*fb4*ffmcfmb+4)+32*(fb4*p1p2*p6p8+fb4*p1p4*
12926      . p6p8-fb4*p1p8*p4p6-fb4*p2p3*p6p8-3*fb4*p2p4*p6p8-3*fb4*p2p8*
12927      . p4p6-fb4*p3p4*p6p8+fb4*p4p6*p4p8+fb4*p4p6*p5p8))
12928       ans3=w13*(8*(p5p8*p4p6)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p4p8*p4p6
12929      . )*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p6p8*p3p4)*(fmb*hbcm+fmc*hbcm-
12930      . hbcm2)+24*(p4p6*p2p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+24*(p6p8*p2p4)
12931      . *(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p6p8*p2p3)*(fmb*hbcm+fmc*hbcm-
12932      . hbcm2)+8*(p4p6*p1p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p6p8*p1p4)*(
12933      . -fmb*hbcm-fmc*hbcm+hbcm2)+8*(p6p8*p1p2)*(-fmb*hbcm-fmc*hbcm+
12934      . hbcm2)+8*(p5p8*p3p6)*(-fmb*fmc+fmc*hbcm-fmc2)+8*(p4p8*p3p6)*(-
12935      . fmb*fmc+fmc*hbcm-fmc2)+24*(p3p6*p2p8)*(fmb*fmc-fmc*hbcm+fmc2)+
12936      . 8*(p3p6*p1p8)*(fmb*fmc-fmc*hbcm+fmc2)+8*(p6p8*p1p3)*(-fmb*fmc+
12937      . 2*fmc*hbcm-fmc2)+8*p6p8*(-ffmcfmb*p1p3s2+fmb*fmc*hbcm2-fmc*
12938      . hbcm3+fmc2*hbcm2)+8*(ffmcfmb*p1p3*p1p8*p3p6+3*ffmcfmb*p1p3*
12939      . p2p8*p3p6-ffmcfmb*p1p3*p3p6*p4p8-ffmcfmb*p1p3*p3p6*p5p8-p1p2*
12940      . p1p3*p6p8-p1p3*p1p4*p6p8+p1p3*p1p8*p4p6+p1p3*p2p3*p6p8+3*p1p3*
12941      . p2p4*p6p8+3*p1p3*p2p8*p4p6+p1p3*p3p4*p6p8-p1p3*p4p6*p4p8-p1p3*
12942      . p4p6*p5p8))+ans4
12943       ans2=w11*(8*p6p8*(fmc2*hbcm2-p2p3s2+p3p4s2)+8*(ffmcfmb*p1p3*
12944      . p2p3*p6p8-ffmcfmb*p1p3*p3p4*p6p8-ffmcfmb*p1p8*p2p3*p3p6+
12945      . ffmcfmb*p1p8*p3p4*p3p6-3*ffmcfmb*p2p3*p2p8*p3p6+ffmcfmb*p2p3*
12946      . p3p6*p4p8+ffmcfmb*p2p3*p3p6*p5p8+3*ffmcfmb*p2p8*p3p4*p3p6-
12947      . ffmcfmb*p3p4*p3p6*p4p8-ffmcfmb*p3p4*p3p6*p5p8-fmc*hbcm*p1p2*
12948      . p6p8-fmc*hbcm*p1p4*p6p8+fmc*hbcm*p1p8*p4p6+3*fmc*hbcm*p2p4*
12949      . p6p8+3*fmc*hbcm*p2p8*p4p6+2*fmc*hbcm*p3p4*p6p8-fmc*hbcm*p4p6*
12950      . p4p8-fmc*hbcm*p4p6*p5p8-fmc2*p1p3*p6p8+fmc2*p1p8*p3p6+3*fmc2*
12951      . p2p8*p3p6-fmc2*p3p6*p4p8-fmc2*p3p6*p5p8+p1p2*p2p3*p6p8-p1p2*
12952      . p3p4*p6p8+p1p4*p2p3*p6p8-p1p4*p3p4*p6p8-p1p8*p2p3*p4p6+p1p8*
12953      . p3p4*p4p6-3*p2p3*p2p4*p6p8-3*p2p3*p2p8*p4p6+p2p3*p4p6*p4p8+
12954      . p2p3*p4p6*p5p8+3*p2p4*p3p4*p6p8+3*p2p8*p3p4*p4p6-p3p4*p4p6*
12955      . p4p8-p3p4*p4p6*p5p8))+ans3
12956       ans1=w1*(8*p6p8*(fmc2*hbcm2+p3p4s2)+8*(-ffmcfmb*p1p3*p3p4*p6p8+
12957      . ffmcfmb*p1p8*p3p4*p3p6+3*ffmcfmb*p2p8*p3p4*p3p6-ffmcfmb*p3p4*
12958      . p3p6*p4p8-ffmcfmb*p3p4*p3p6*p5p8-fmc*hbcm*p1p2*p6p8-fmc*hbcm*
12959      . p1p4*p6p8+fmc*hbcm*p1p8*p4p6+fmc*hbcm*p2p3*p6p8+3*fmc*hbcm*
12960      . p2p4*p6p8+3*fmc*hbcm*p2p8*p4p6+2*fmc*hbcm*p3p4*p6p8-fmc*hbcm*
12961      . p4p6*p4p8-fmc*hbcm*p4p6*p5p8-fmc2*p1p3*p6p8+fmc2*p1p8*p3p6+3*
12962      . fmc2*p2p8*p3p6-fmc2*p3p6*p4p8-fmc2*p3p6*p5p8-p1p2*p3p4*p6p8-
12963      . p1p4*p3p4*p6p8+p1p8*p3p4*p4p6+p2p3*p3p4*p6p8+3*p2p4*p3p4*p6p8+
12964      . 3*p2p8*p3p4*p4p6-p3p4*p4p6*p4p8-p3p4*p4p6*p5p8))+ans2
12965       ans=ccc*ans1
12966       b(8)=ans
12967       ans4=((p3p6*p3p5)*(-32*fb4*ffmcfmb-4)+(p3p6*p3p4)*(-32*fb4*
12968      . ffmcfmb+32*fb4-4)+(p3p6*p2p3)*(96*fb4*ffmcfmb-64*fb4+12)+4*
12969      . p3p6*(-4*fb3*fmc2-4*fb4*fmc2-3*fmb*hbcm-2*fmc*hbcm-3*hbcm2)+16
12970      . *p4p6*(-fb3*fmc*hbcm-fb4*fmc*hbcm-2*fb4*hbcm2-hbcm2)+32*(2*fb4
12971      . *p1p2*p3p6+fb4*p1p3*p4p6-fb4*p1p4*p3p6+3*fb4*p2p3*p4p6-3*fb4*
12972      . p2p5*p3p6-fb4*p3p4*p4p6-fb4*p3p5*p4p6))
12973       ans3=w13*(4*p3p6*(-fmb2*fmc*hbcm-fmc*hbcm3+fmc3*hbcm)+4*p4p6*(2
12974      . *fmb*hbcm3-fmb2*hbcm2+fmc2*hbcm2-hbcm4-2*p1p3s2)+8*(p4p6*p3p5)
12975      . *(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p4p6*p3p4)*(fmb*hbcm+fmc*hbcm-
12976      . hbcm2)+24*(p4p6*p2p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p4p6*p1p3)
12977      . *(-fmb*hbcm+hbcm2)+8*(p3p6*p3p5)*(fmb*fmc-fmc*hbcm+fmc2)+8*(
12978      . p3p6*p3p4)*(fmb*fmc-fmb*hbcm-fmc*hbcm+fmc2)+8*(p3p6*p2p3)*(-3*
12979      . fmb*fmc+2*fmb*hbcm+3*fmc*hbcm-3*fmc2)+(p3p6*p3p4*p1p3)*(8*
12980      . ffmcfmb-8)+(p3p6*p2p3*p1p3)*(-24*ffmcfmb+16)+8*(ffmcfmb*p1p3*
12981      . p3p5*p3p6-2*fmb*hbcm*p1p2*p3p6+fmb*hbcm*p1p4*p3p6+3*fmb*hbcm*
12982      . p2p5*p3p6-2*p1p2*p1p3*p3p6+p1p3*p1p4*p3p6-3*p1p3*p2p3*p4p6+3*
12983      . p1p3*p2p5*p3p6+p1p3*p3p4*p4p6+p1p3*p3p5*p4p6))+ans4
12984       ans2=w1*(8*p4p6*(fmc*hbcm3+p3p4s2)+8*(p4p6*p3p4)*(fmc*hbcm+
12985      . hbcm2)+8*(p3p6*p3p4)*(-fmc*hbcm+fmc2)+8*(p3p6*p2p3)*(2*fmc*
12986      . hbcm-3*fmc2)+8*p3p6*(ffmcfmb*p3p4s2-p3p4s2)+(p3p6*p3p4*p2p3)*(
12987      . -24*ffmcfmb+16)+8*(ffmcfmb*p3p4*p3p5*p3p6-2*fmc*hbcm*p1p2*p3p6
12988      . -fmc*hbcm*p1p3*p4p6+fmc*hbcm*p1p4*p3p6-3*fmc*hbcm*p2p3*p4p6+2*
12989      . fmc*hbcm*p2p4*p3p6+3*fmc*hbcm*p2p5*p3p6+fmc*hbcm*p3p5*p4p6+
12990      . fmc2*p3p5*p3p6+2*hbcm2*p2p4*p4p6-2*p1p2*p3p4*p3p6-p1p3*p3p4*
12991      . p4p6+p1p4*p3p4*p3p6-3*p2p3*p3p4*p4p6+3*p2p5*p3p4*p3p6+p3p4*
12992      . p3p5*p4p6))+ans3
12993       ans1=w11*(8*p4p6*(fmc*hbcm3+3*p2p3s2+p3p4s2)+8*(p4p6*p3p4)*(fmc
12994      . *hbcm+hbcm2)+8*(p3p6*p3p4)*(-fmc*hbcm+fmc2)+24*(p3p6*p2p3)*(
12995      . fmc*hbcm-fmc2)+8*p3p6*(3*ffmcfmb*p2p3s2+ffmcfmb*p3p4s2-2*
12996      . p2p3s2-p3p4s2)+(p3p6*p3p4*p2p3)*(-32*ffmcfmb+24)+8*(-ffmcfmb*
12997      . p2p3*p3p5*p3p6+ffmcfmb*p3p4*p3p5*p3p6-3*fmc*hbcm*p1p2*p3p6-fmc
12998      . *hbcm*p1p3*p4p6+fmc*hbcm*p1p4*p3p6-3*fmc*hbcm*p2p3*p4p6+3*fmc*
12999      . hbcm*p2p4*p3p6+4*fmc*hbcm*p2p5*p3p6+fmc*hbcm*p3p5*p4p6+fmc2*
13000      . p3p5*p3p6-hbcm2*p1p2*p4p6+3*hbcm2*p2p4*p4p6+hbcm2*p2p5*p4p6+2*
13001      . p1p2*p2p3*p3p6-2*p1p2*p3p4*p3p6+p1p3*p2p3*p4p6-p1p3*p3p4*p4p6-
13002      . p1p4*p2p3*p3p6+p1p4*p3p4*p3p6-3*p2p3*p2p5*p3p6-4*p2p3*p3p4*
13003      . p4p6-p2p3*p3p5*p4p6+3*p2p5*p3p4*p3p6+p3p4*p3p5*p4p6))+ans2
13004       ans=ccc*ans1
13005       b(9)=ans
13006       ans4=8*(-4*fmc*hbcm2*p1p2*p6p8+fmc*hbcm2*p1p4*p6p8-fmc*hbcm2*
13007      . p1p8*p4p6+5*fmc*hbcm2*p2p5*p6p8+fmc*hbcm2*p4p6*p5p8+3*fmc*p1p3
13008      . *p2p3*p6p8-fmc*p1p3*p3p4*p6p8-3*fmc*p1p8*p2p3*p3p6+fmc*p1p8*
13009      . p3p4*p3p6-2*fmc*p2p3*p3p5*p6p8+3*fmc*p2p3*p3p6*p5p8-fmc*p2p8*
13010      . p3p5*p3p6+2*fmc*p3p4*p3p5*p6p8-fmc*p3p4*p3p6*p5p8-fmc*p3p5*
13011      . p3p6*p4p8-fmc2*hbcm*p1p3*p6p8+fmc2*hbcm*p1p8*p3p6+3*fmc2*hbcm*
13012      . p2p8*p3p6+2*fmc2*hbcm*p3p4*p6p8+2*fmc2*hbcm*p3p5*p6p8-fmc2*
13013      . hbcm*p3p6*p4p8-fmc2*hbcm*p3p6*p5p8+2*hbcm*p1p2*p2p3*p6p8-2*
13014      . hbcm*p1p2*p2p8*p3p6-4*hbcm*p1p2*p3p4*p6p8+4*hbcm*p1p2*p3p6*
13015      . p4p8+6*hbcm*p1p3*p2p4*p6p8+hbcm*p1p3*p2p8*p4p6+hbcm*p1p3*p4p6*
13016      . p4p8+hbcm*p1p4*p2p3*p6p8-hbcm*p1p4*p2p8*p3p6+hbcm*p1p4*p3p4*
13017      . p6p8-hbcm*p1p4*p3p6*p4p8-hbcm*p1p8*p2p3*p4p6-6*hbcm*p1p8*p2p4*
13018      . p3p6-hbcm*p1p8*p3p4*p4p6+6*hbcm*p2p3*p2p4*p6p8-hbcm*p2p3*p2p5*
13019      . p6p8+4*hbcm*p2p3*p4p6*p4p8+hbcm*p2p3*p4p6*p5p8-6*hbcm*p2p4*
13020      . p2p8*p3p6-6*hbcm*p2p4*p3p5*p6p8+6*hbcm*p2p4*p3p6*p5p8+hbcm*
13021      . p2p5*p2p8*p3p6+5*hbcm*p2p5*p3p4*p6p8-5*hbcm*p2p5*p3p6*p4p8-4*
13022      . hbcm*p2p8*p3p4*p4p6-hbcm*p2p8*p3p5*p4p6+hbcm*p3p4*p4p6*p5p8-
13023      . hbcm*p3p5*p4p6*p4p8)
13024       ans3=8*(p4p8*p3p6*p3p4)*(-2*fmc+hbcm)+8*(p3p6*p3p4*p2p8)*(2*fmc
13025      . +hbcm)+8*p6p8*(6*fmc*p2p3s2+2*fmc*p3p4s2+fmc2*hbcm3-2*hbcm*
13026      . p2p3s2-hbcm*p3p4s2)+16*(p4p8*p3p6*p2p3)*(3*fmc-2*hbcm)+8*(p6p8
13027      . *p3p4*p2p3)*(-8*fmc+3*hbcm)+16*(p3p6*p2p8*p2p3)*(-3*fmc+hbcm)+
13028      . 8*(p4p8*p4p6)*(fmc*hbcm2-hbcm3)+8*(p4p6*p2p8)*(-3*fmc*hbcm2-
13029      . hbcm3)+48*(p6p8*p2p4)*(fmc*hbcm2-hbcm3)+8*(p6p8*p2p3)*(fmc*
13030      . hbcm2-6*fmc2*hbcm)+ans4
13031       ans2=w11*ans3
13032       ans8=8*(p3p6*p2p8)*(3*fmb*fmc*hbcm-2*fmb2*hbcm+3*fmc*hbcm2-fmc2
13033      . *hbcm-2*hbcm3)+8*(p3p6*p1p8)*(fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm
13034      . )+8*(p6p8*p1p3)*(-fmb*fmc*hbcm+fmc2*hbcm)+8*(fmc*p1p3*p1p8*
13035      . p3p6+3*fmc*p1p3*p2p8*p3p6-fmc*p1p3*p3p6*p4p8-fmc*p1p3*p3p6*
13036      . p5p8+fmc*p1p8*p3p5*p3p6+2*hbcm*p1p2*p1p3*p6p8-2*hbcm*p1p2*p1p8
13037      . *p3p6-hbcm*p1p3*p1p4*p6p8-3*hbcm*p1p3*p2p5*p6p8+3*hbcm*p1p3*
13038      . p2p8*p4p6-hbcm*p1p3*p4p6*p4p8-hbcm*p1p3*p4p6*p5p8+hbcm*p1p4*
13039      . p1p8*p3p6-3*hbcm*p1p8*p2p3*p4p6+3*hbcm*p1p8*p2p5*p3p6+hbcm*
13040      . p1p8*p3p4*p4p6+hbcm*p1p8*p3p5*p4p6)
13041       ans7=16*(p4p8*p3p6*p3p5)*(-fmc+hbcm)+16*(p5p8*p3p6*p3p4)*(fmc-
13042      . hbcm)+32*(p3p6*p3p5*p2p8)*(fmc-hbcm)+16*(p3p6*p3p4*p2p8)*(-fmc
13043      . +hbcm)+32*(p5p8*p3p6*p2p3)*(-fmc+hbcm)+16*(p4p8*p3p6*p2p3)*(
13044      . fmc-hbcm)+8*(p3p6*p3p4*p1p8)*(-fmc+hbcm)+8*(p3p6*p2p3*p1p8)*(
13045      . fmc-2*hbcm)+8*(p6p8*p3p4*p1p3)*(2*fmc-hbcm)+16*(p6p8*p2p3*p1p3
13046      . )*(-2*fmc+hbcm)+8*(p5p8*p4p6)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+8*(
13047      . p4p8*p4p6)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+8*(p6p8*p3p4)*(fmb*
13048      . hbcm2-fmb2*hbcm-fmc*hbcm2+fmc2*hbcm)+24*(p4p6*p2p8)*(fmb*hbcm2
13049      . +fmc*hbcm2-hbcm3)+24*(p6p8*p2p5)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+
13050      . 16*(p6p8*p2p3)*(-fmb*hbcm2+fmb2*hbcm+fmc*hbcm2-fmc2*hbcm)+8*(
13051      . p4p6*p1p8)*(fmb*hbcm2+fmc*hbcm2)+8*(p6p8*p1p4)*(-fmb*hbcm2-fmc
13052      . *hbcm2+hbcm3)+16*(p6p8*p1p2)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+8*
13053      . p6p8*(fmb*fmc*hbcm3-fmb2*fmc*hbcm2-fmc*p1p3s2-fmc2*hbcm3+fmc3*
13054      . hbcm2)+8*(p5p8*p3p6)*(-fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+8*(
13055      . p4p8*p3p6)*(-fmb*fmc*hbcm+fmb2*hbcm-fmc*hbcm2+hbcm3)+ans8
13056       ans6=w13*ans7
13057       ans9=(4*(p4p8*p3p6)*(8*fb4*fmc+hbcm)+4*(p5p8*p3p6)*(-8*fb3*fmc-
13058      . 7*hbcm)+4*(p6p8*p3p4)*(-8*fb3*fmc+8*fb3*hbcm-8*fb4*fmc-hbcm)+4
13059      . *(p3p6*p2p8)*(8*fb3*fmc-16*fb4*fmc+5*hbcm)+4*(p6p8*p2p3)*(16*
13060      . fb3*fmc-16*fb3*hbcm+16*fb4*fmc-5*hbcm)+8*(p3p6*p1p8)*(4*fb3*
13061      . fmc+hbcm)+8*(p6p8*p1p3)*(-4*fb3*fmc-hbcm)+4*p6p8*(8*fb3*fmc*
13062      . hbcm2-8*fb3*fmc2*hbcm-8*fb4*fmc2*hbcm+3*fmb*hbcm2-fmc*hbcm2+2*
13063      . hbcm3)+4*(16*fb3*hbcm*p1p2*p6p8-8*fb3*hbcm*p1p4*p6p8+8*fb3*
13064      . hbcm*p1p8*p4p6-24*fb3*hbcm*p2p5*p6p8+24*fb3*hbcm*p2p8*p4p6-8*
13065      . fb3*hbcm*p4p6*p4p8-8*fb3*hbcm*p4p6*p5p8+7*hbcm*p3p5*p6p8))
13066       ans5=w1*(8*p6p8*(2*fmc*p3p4s2+fmc2*hbcm3-hbcm*p3p4s2)+8*(p4p8*
13067      . p3p6*p3p4)*(-2*fmc+hbcm)+8*(p4p8*p3p6*p2p3)*(3*fmc-2*hbcm)+16*
13068      . (p6p8*p3p4*p2p3)*(-3*fmc+hbcm)+8*(p4p8*p4p6)*(fmc*hbcm2-hbcm3)
13069      . +32*(p6p8*p2p4)*(fmc*hbcm2-hbcm3)+16*(p6p8*p2p3)*(fmc*hbcm2-3*
13070      . fmc2*hbcm)+8*(-2*fmc*hbcm2*p1p2*p6p8+fmc*hbcm2*p1p4*p6p8-fmc*
13071      . hbcm2*p1p8*p4p6+3*fmc*hbcm2*p2p5*p6p8-3*fmc*hbcm2*p2p8*p4p6+
13072      . fmc*hbcm2*p4p6*p5p8-fmc*p1p3*p3p4*p6p8+fmc*p1p8*p3p4*p3p6+3*
13073      . fmc*p2p8*p3p4*p3p6+2*fmc*p3p4*p3p5*p6p8-fmc*p3p4*p3p6*p5p8-fmc
13074      . *p3p5*p3p6*p4p8-fmc2*hbcm*p1p3*p6p8+fmc2*hbcm*p1p8*p3p6+3*fmc2
13075      . *hbcm*p2p8*p3p6+2*fmc2*hbcm*p3p4*p6p8+2*fmc2*hbcm*p3p5*p6p8-
13076      . fmc2*hbcm*p3p6*p4p8-fmc2*hbcm*p3p6*p5p8-2*hbcm*p1p2*p3p4*p6p8+
13077      . 2*hbcm*p1p2*p3p6*p4p8+4*hbcm*p1p3*p2p4*p6p8+hbcm*p1p3*p4p6*
13078      . p4p8+hbcm*p1p4*p3p4*p6p8-hbcm*p1p4*p3p6*p4p8-4*hbcm*p1p8*p2p4*
13079      . p3p6-hbcm*p1p8*p3p4*p4p6+4*hbcm*p2p3*p2p4*p6p8+3*hbcm*p2p3*
13080      . p4p6*p4p8-4*hbcm*p2p4*p2p8*p3p6-4*hbcm*p2p4*p3p5*p6p8+4*hbcm*
13081      . p2p4*p3p6*p5p8+3*hbcm*p2p5*p3p4*p6p8-3*hbcm*p2p5*p3p6*p4p8-3*
13082      . hbcm*p2p8*p3p4*p4p6+hbcm*p3p4*p4p6*p5p8-hbcm*p3p5*p4p6*p4p8))+
13083      . ans6+ans9
13084       ans1=ans2+ans5
13085       ans=ccc*ans1
13086       b(10)=ans
13087       ans4=8*(2*fmc*hbcm2*p1p2*p6p7-fmc*hbcm2*p1p4*p6p7-3*fmc*hbcm2*
13088      . p2p5*p6p7-5*fmc*hbcm2*p3p7*p4p6-fmc*hbcm2*p4p6*p5p7-6*fmc*p1p2
13089      . *p3p6*p3p7-3*fmc*p1p3*p2p3*p6p7+fmc*p1p3*p3p4*p6p7+4*fmc*p1p3*
13090      . p3p7*p4p6-4*fmc*p1p4*p3p6*p3p7+2*fmc*p2p3*p3p5*p6p7-3*fmc*p2p3
13091      . *p3p6*p5p7+10*fmc*p2p5*p3p6*p3p7-2*fmc*p3p4*p3p5*p6p7+fmc*p3p4
13092      . *p3p6*p5p7+2*fmc*p3p5*p3p6*p4p7-4*fmc*p3p5*p3p7*p4p6+fmc2*hbcm
13093      . *p1p3*p6p7-2*fmc2*hbcm*p3p4*p6p7-2*fmc2*hbcm*p3p5*p6p7+fmc2*
13094      . hbcm*p3p6*p5p7+2*hbcm*p1p2*p3p4*p6p7-6*hbcm*p1p2*p3p6*p4p7-2*
13095      . hbcm*p1p2*p3p7*p4p6-2*hbcm*p1p3*p2p4*p6p7+2*hbcm*p1p3*p4p6*
13096      . p4p7-hbcm*p1p4*p2p3*p6p7-hbcm*p1p4*p3p4*p6p7-2*hbcm*p1p4*p3p6*
13097      . p4p7-2*hbcm*p2p3*p2p4*p6p7-hbcm*p2p3*p2p5*p6p7-5*hbcm*p2p3*
13098      . p4p6*p4p7-hbcm*p2p3*p4p6*p5p7+2*hbcm*p2p4*p3p5*p6p7-6*hbcm*
13099      . p2p4*p3p6*p5p7+2*hbcm*p2p4*p3p7*p4p6-3*hbcm*p2p5*p3p4*p6p7+12*
13100      . hbcm*p2p5*p3p6*p4p7+2*hbcm*p2p5*p3p7*p4p6-5*hbcm*p3p4*p4p6*
13101      . p4p7-hbcm*p3p4*p4p6*p5p7-2*hbcm*p3p5*p4p6*p4p7)
13102       ans3=8*(p4p6*p3p7*p3p4)*(-6*fmc-hbcm)+16*(p3p7*p3p6*p2p4)*(fmc-
13103      . hbcm)+8*p6p7*(-2*fmc*p2p3s2-2*fmc*p3p4s2-fmc2*hbcm3+hbcm*
13104      . p3p4s2)+8*(p4p6*p3p7*p2p3)*(-2*fmc+hbcm)+8*(p6p7*p3p4*p2p3)*(4
13105      . *fmc-hbcm)+8*(p4p7*p4p6)*(-fmc*hbcm2-2*hbcm3)+16*(p6p7*p2p4)*(
13106      . -fmc*hbcm2+hbcm3)+8*(p6p7*p2p3)*(fmc*hbcm2+2*fmc2*hbcm)+8*(
13107      . p4p7*p3p6*p3p4)*(-2*fmb+3*fmc)+8*(p4p7*p3p6*p2p3)*(2*fmb-9*fmc
13108      . +4*hbcm)+8*(p3p7*p3p6)*(-2*fmb*fmc2-fmc2*hbcm+6*fmc3)+8*(p4p7*
13109      . p3p6)*(-2*fmb*fmc*hbcm-2*fmc*hbcm2+7*fmc2*hbcm)+8*(p3p7*p3p6*
13110      . p3p4)*(-2*ffmcfmb*fmb+3*fmc)+8*(p3p7*p3p6*p2p3)*(2*ffmcfmb*fmb
13111      . -4*ffmcfmb*fmc+fmc)+ans4
13112       ans2=w11*ans3
13113       ans7=8*(p3p7*p3p6*p1p3)*(-2*ffmcfmb*fmb+3*fmc)+8*(fmc*p1p3*p3p6
13114      . *p5p7+hbcm*p1p3*p1p4*p6p7+hbcm*p1p3*p2p5*p6p7+3*hbcm*p1p3*p4p6
13115      . *p4p7+hbcm*p1p3*p4p6*p5p7)
13116       ans6=48*(p4p7*p3p6*p3p5)*(fmc-hbcm)+16*(p5p7*p3p6*p3p4)*(-fmc+
13117      . hbcm)+16*(p3p7*p3p6*p2p5)*(-fmc+hbcm)+32*(p5p7*p3p6*p2p3)*(fmc
13118      . -hbcm)+48*(p4p7*p3p6*p2p3)*(-fmc+hbcm)+16*(p3p7*p3p6*p1p4)*(-
13119      . fmc+hbcm)+8*(p4p6*p3p7*p1p3)*(4*fmc-hbcm)+8*(p6p7*p3p4*p1p3)*(
13120      . -2*fmc+hbcm)+8*(p4p7*p3p6*p1p3)*(-2*fmb+fmc+2*hbcm)+8*(p5p7*
13121      . p4p6)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+24*(p4p7*p4p6)*(fmb*hbcm2+
13122      . fmc*hbcm2-hbcm3)+8*(p6p7*p3p4)*(-fmb*hbcm2+fmb2*hbcm+fmc*hbcm2
13123      . -fmc2*hbcm)+8*(p6p7*p2p5)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+8*(p6p7*
13124      . p1p4)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+8*p6p7*(-fmb*fmc*hbcm3+fmb2*
13125      . fmc*hbcm2+fmc*p1p3s2+fmc2*hbcm3-fmc3*hbcm2)+8*(p4p6*p3p7)*(2*
13126      . fmb*fmc*hbcm+fmb*hbcm2-fmb2*hbcm-3*fmc*hbcm2+3*fmc2*hbcm)+8*(
13127      . p5p7*p3p6)*(fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+8*(p4p7*p3p6)*(
13128      . fmb*fmc*hbcm+2*fmb*hbcm2-3*fmb2*hbcm+fmc*hbcm2+2*fmc2*hbcm-3*
13129      . hbcm3)+8*(p3p7*p3p6)*(3*fmb*fmc*hbcm-3*fmb2*fmc-2*fmc*hbcm2-
13130      . fmc2*hbcm+3*fmc3)+8*(p6p7*p1p3)*(fmb*fmc*hbcm-fmc2*hbcm)+32*(
13131      . p3p7*p3p6*p3p5)*(ffmcfmb*fmc-fmc)+32*(p3p7*p3p6*p2p3)*(-
13132      . ffmcfmb*fmc+fmc)+ans7
13133       ans5=w13*ans6
13134       ans8=(4*(p6p7*p1p3)*(-8*fb4*fmc+5*hbcm)+4*p6p7*(8*fb4*fmc*hbcm2
13135      . -3*fmb*hbcm2+3*fmc*hbcm2-5*hbcm3)+32*(p4p6*p3p7)*(2*fb3*fmc+
13136      . fb3*hbcm-hbcm)+4*(p5p7*p3p6)*(8*fb3*fmc+7*hbcm)+4*(p4p7*p3p6)*
13137      . (-16*fb3*fmc+16*fb3*hbcm+16*fb4*fmb-24*fb4*fmc+hbcm)+8*(p6p7*
13138      . p3p5)*(4*fb3*fmc+4*fb4*fmc-5*hbcm)+32*(p6p7*p3p4)*(fb3*fmc-fb3
13139      . *hbcm+fb4*fmc)+8*(p6p7*p2p3)*(-4*fb3*fmc-4*fb4*fmc+5*hbcm)+4*(
13140      . p3p7*p3p6)*(-16*fb3*ffmcfmb*fmc+16*fb3*fmc+16*fb4*ffmcfmb*fmb-
13141      . 16*fb4*ffmcfmb*fmc-8*fb4*fmc+2*fmb-2*fmc+hbcm)+32*(fb3*hbcm*
13142      . p1p4*p6p7+fb3*hbcm*p2p5*p6p7+3*fb3*hbcm*p4p6*p4p7+fb3*hbcm*
13143      . p4p6*p5p7))
13144       ans1=w1*(8*p6p7*(-2*fmc*p3p4s2-fmc2*hbcm3+hbcm*p3p4s2)+8*(p4p6*
13145      . p3p7*p3p4)*(-6*fmc-hbcm)+8*(p4p7*p4p6)*(-fmc*hbcm2-2*hbcm3)+8*
13146      . (p4p7*p3p6*p3p4)*(-2*fmb+3*fmc)+8*(p3p7*p3p6)*(-2*fmb*fmc2-
13147      . fmc2*hbcm+6*fmc3)+8*(p4p7*p3p6)*(-2*fmb*fmc*hbcm-2*fmc*hbcm2+7
13148      . *fmc2*hbcm)+8*(p3p7*p3p6*p3p4)*(-2*ffmcfmb*fmb+3*fmc)+8*(-fmc*
13149      . hbcm2*p1p4*p6p7-fmc*hbcm2*p2p5*p6p7-5*fmc*hbcm2*p3p7*p4p6-fmc*
13150      . hbcm2*p4p6*p5p7+fmc*p1p3*p3p4*p6p7+4*fmc*p1p3*p3p7*p4p6-4*fmc*
13151      . p1p4*p3p6*p3p7+2*fmc*p2p3*p3p4*p6p7-2*fmc*p2p3*p3p6*p4p7+4*fmc
13152      . *p2p3*p3p7*p4p6-2*fmc*p3p4*p3p5*p6p7+fmc*p3p4*p3p6*p5p7+2*fmc*
13153      . p3p5*p3p6*p4p7-4*fmc*p3p5*p3p7*p4p6+fmc2*hbcm*p1p3*p6p7+2*fmc2
13154      . *hbcm*p2p3*p6p7-2*fmc2*hbcm*p3p4*p6p7-2*fmc2*hbcm*p3p5*p6p7+
13155      . fmc2*hbcm*p3p6*p5p7+2*hbcm*p1p3*p4p6*p4p7-hbcm*p1p4*p3p4*p6p7-
13156      . 2*hbcm*p1p4*p3p6*p4p7+2*hbcm*p2p3*p4p6*p4p7-4*hbcm*p2p4*p3p6*
13157      . p5p7-hbcm*p2p5*p3p4*p6p7+2*hbcm*p2p5*p3p6*p4p7-5*hbcm*p3p4*
13158      . p4p6*p4p7-hbcm*p3p4*p4p6*p5p7-2*hbcm*p3p5*p4p6*p4p7))+ans2+
13159      . ans5+ans8
13160       ans=ccc*ans1
13161       b(11)=ans
13162       ans6=-2*hbcm2*p2p8*p3p4*p6p7+2*hbcm2*p2p8*p4p6*p4p7-hbcm2*p3p4*
13163      . p4p8*p6p7-3*hbcm2*p4p6*p4p7*p4p8-2*hbcm2*p4p6*p4p7*p5p8-hbcm2*
13164      . p4p6*p4p8*p5p7+4*p1p2*p3p4*p3p6*p7p8-4*p1p2*p3p4*p3p7*p6p8+2*
13165      . p1p3*p2p8*p3p4*p6p7-2*p1p3*p3p4*p4p7*p6p8+2*p1p3*p3p4*p4p8*
13166      . p6p7-2*p1p8*p2p3*p3p4*p6p7+2*p1p8*p3p4*p3p6*p4p7-2*p1p8*p3p4s2
13167      . *p6p7+4*p2p3*p3p4*p4p6*p7p8-12*p2p3*p3p4*p4p7*p6p8+4*p2p3*p3p4
13168      . *p4p8*p6p7-2*p2p3*p3p4*p5p7*p6p8+2*p2p3*p3p4*p5p8*p6p7-4*p2p5*
13169      . p3p4*p3p6*p7p8+4*p2p5*p3p4*p3p7*p6p8-2*p2p8*p3p4*p3p5*p6p7+2*
13170      . p2p8*p3p4*p3p6*p5p7-8*p2p8*p3p4*p3p7*p4p6+6*p3p4*p3p5*p4p7*
13171      . p6p8-2*p3p4*p3p5*p4p8*p6p7+2*p3p4*p3p6*p3p7*p4p8-6*p3p4*p3p6*
13172      . p4p7*p5p8+2*p3p4*p3p6*p4p8*p5p7-2*p3p4s2*p5p7*p6p8+2*p3p4s2*
13173      . p5p8*p6p7
13174       ans5=4*ffmcfmb*p3p4*p3p5*p3p7*p6p8-4*ffmcfmb*p3p4*p3p6*p3p7*
13175      . p5p8+4*fmc*hbcm*p1p2*p3p6*p7p8-4*fmc*hbcm*p1p2*p3p7*p6p8+2*fmc
13176      . *hbcm*p1p3*p2p8*p6p7-4*fmc*hbcm*p1p3*p4p7*p6p8+fmc*hbcm*p1p3*
13177      . p4p8*p6p7-4*fmc*hbcm*p1p4*p3p7*p6p8-2*fmc*hbcm*p1p8*p2p3*p6p7-
13178      . 2*fmc*hbcm*p1p8*p3p4*p6p7+4*fmc*hbcm*p1p8*p3p6*p4p7+4*fmc*hbcm
13179      . *p1p8*p3p7*p4p6+4*fmc*hbcm*p2p3*p4p6*p7p8-16*fmc*hbcm*p2p3*
13180      . p4p7*p6p8+4*fmc*hbcm*p2p3*p4p8*p6p7-2*fmc*hbcm*p2p3*p5p7*p6p8+
13181      . 2*fmc*hbcm*p2p3*p5p8*p6p7-4*fmc*hbcm*p2p4*p3p6*p7p8-4*fmc*hbcm
13182      . *p2p5*p3p6*p7p8+4*fmc*hbcm*p2p5*p3p7*p6p8-2*fmc*hbcm*p2p8*p3p5
13183      . *p6p7+2*fmc*hbcm*p2p8*p3p6*p4p7+2*fmc*hbcm*p2p8*p3p6*p5p7-8*
13184      . fmc*hbcm*p2p8*p3p7*p4p6-2*fmc*hbcm*p3p4*p5p7*p6p8+2*fmc*hbcm*
13185      . p3p4*p5p8*p6p7+10*fmc*hbcm*p3p5*p4p7*p6p8-2*fmc*hbcm*p3p5*p4p8
13186      . *p6p7-8*fmc*hbcm*p3p6*p4p7*p5p8+fmc*hbcm*p3p6*p4p8*p5p7-4*fmc*
13187      . hbcm*p3p7*p4p6*p5p8-2*fmc*hbcm3*p2p8*p6p7-fmc*hbcm3*p4p8*p6p7-
13188      . 4*fmc2*p1p3*p3p7*p6p8+4*fmc2*p1p8*p3p6*p3p7+8*fmc2*p3p5*p3p7*
13189      . p6p8-8*fmc2*p3p6*p3p7*p5p8-2*hbcm2*p1p4*p4p7*p6p8-hbcm2*p1p4*
13190      . p4p8*p6p7+2*hbcm2*p1p8*p4p6*p4p7-4*hbcm2*p2p4*p4p6*p7p8-4*
13191      . hbcm2*p2p4*p5p7*p6p8+2*hbcm2*p2p5*p4p7*p6p8-hbcm2*p2p5*p4p8*
13192      . p6p7+ans6
13193       ans4=8*ans5
13194       ans3=8*(p4p8*p4p6*p3p7)*(-4*fmc*hbcm-hbcm2)+16*(p3p7*p3p6*p2p8)
13195      . *(fmc*hbcm-4*fmc2)+16*(p6p8*p3p7*p2p3)*(-fmc*hbcm-4*fmc2)+32*(
13196      . p7p8*p3p6*p2p3)*(-fmc*hbcm+fmc2)+8*(p4p8*p4p7*p3p6)*(-2*fmb*
13197      . hbcm-fmc*hbcm-2*hbcm2)+16*(p6p8*p4p7*p3p4)*(fmb*hbcm+fmc*hbcm+
13198      . 2*hbcm2)+16*(p6p8*p3p7)*(fmb*fmc2*hbcm+2*fmc2*hbcm2+fmc3*hbcm-
13199      . p3p4s2)+8*(p4p8*p3p7*p3p6)*(-2*fmb*fmc-fmc*hbcm-2*fmc2)+16*(
13200      . p6p8*p3p7*p3p4)*(fmb*fmc+fmc*hbcm+fmc2)+16*(p6p8*p4p7)*(fmb*
13201      . fmc*hbcm2+2*fmc*hbcm3+fmc2*hbcm2)+(p3p7*p3p6*p3p4*p2p8)*(-64*
13202      . ffmcfmb+16)+(p6p8*p3p7*p3p4*p2p3)*(-32*ffmcfmb-16)+(p7p8*p3p6*
13203      . p3p4*p2p3)*(32*ffmcfmb-32)+ans4
13204       ans2=w1*ans3
13205       ans11=-2*hbcm2*p2p4*p3p7*p6p8-4*hbcm2*p2p4*p4p6*p7p8-6*hbcm2*
13206      . p2p4*p5p7*p6p8+2*hbcm2*p2p4*p5p8*p6p7-hbcm2*p2p5*p2p8*p6p7+8*
13207      . hbcm2*p2p5*p4p7*p6p8-3*hbcm2*p2p5*p4p8*p6p7-3*hbcm2*p2p8*p3p4*
13208      . p6p7+7*hbcm2*p2p8*p4p6*p4p7+hbcm2*p2p8*p4p6*p5p7-hbcm2*p3p4*
13209      . p4p8*p6p7-3*hbcm2*p4p6*p4p7*p4p8-2*hbcm2*p4p6*p4p7*p5p8-hbcm2*
13210      . p4p6*p4p8*p5p7-4*p1p2*p2p3*p3p6*p7p8+4*p1p2*p2p3*p3p7*p6p8+4*
13211      . p1p2*p3p4*p3p6*p7p8-4*p1p2*p3p4*p3p7*p6p8-2*p1p3*p2p3*p2p8*
13212      . p6p7+2*p1p3*p2p3*p4p7*p6p8-2*p1p3*p2p3*p4p8*p6p7+2*p1p3*p2p8*
13213      . p3p4*p6p7-2*p1p3*p3p4*p4p7*p6p8+2*p1p3*p3p4*p4p8*p6p7-2*p1p8*
13214      . p2p3*p3p6*p4p7+2*p1p8*p3p4*p3p6*p4p7+4*p2p3*p2p5*p3p6*p7p8-4*
13215      . p2p3*p2p5*p3p7*p6p8+2*p2p3*p2p8*p3p5*p6p7-2*p2p3*p2p8*p3p6*
13216      . p5p7+8*p2p3*p2p8*p3p7*p4p6+4*p2p3*p3p4*p4p6*p7p8-12*p2p3*p3p4*
13217      . p4p7*p6p8+4*p2p3*p3p4*p4p8*p6p7-6*p2p3*p3p5*p4p7*p6p8+2*p2p3*
13218      . p3p5*p4p8*p6p7-2*p2p3*p3p6*p3p7*p4p8+6*p2p3*p3p6*p4p7*p5p8-2*
13219      . p2p3*p3p6*p4p8*p5p7-4*p2p3s2*p4p6*p7p8-4*p2p5*p3p4*p3p6*p7p8+4
13220      . *p2p5*p3p4*p3p7*p6p8-2*p2p8*p3p4*p3p5*p6p7+2*p2p8*p3p4*p3p6*
13221      . p5p7-8*p2p8*p3p4*p3p7*p4p6+6*p3p4*p3p5*p4p7*p6p8-2*p3p4*p3p5*
13222      . p4p8*p6p7+2*p3p4*p3p6*p3p7*p4p8-6*p3p4*p3p6*p4p7*p5p8+2*p3p4*
13223      . p3p6*p4p8*p5p7
13224       ans10=-4*ffmcfmb*p2p3*p3p4*p3p7*p6p8-4*ffmcfmb*p2p3*p3p5*p3p7*
13225      . p6p8+4*ffmcfmb*p2p3*p3p6*p3p7*p5p8+4*ffmcfmb*p3p4*p3p5*p3p7*
13226      . p6p8-4*ffmcfmb*p3p4*p3p6*p3p7*p5p8+4*fmc*hbcm*p1p2*p3p6*p7p8-4
13227      . *fmc*hbcm*p1p2*p3p7*p6p8+3*fmc*hbcm*p1p3*p2p8*p6p7-4*fmc*hbcm*
13228      . p1p3*p4p7*p6p8+fmc*hbcm*p1p3*p4p8*p6p7-4*fmc*hbcm*p1p4*p3p7*
13229      . p6p8-2*fmc*hbcm*p1p8*p2p3*p6p7-2*fmc*hbcm*p1p8*p3p4*p6p7+4*fmc
13230      . *hbcm*p1p8*p3p6*p4p7+4*fmc*hbcm*p1p8*p3p7*p4p6+4*fmc*hbcm*p2p3
13231      . *p4p6*p7p8+4*fmc*hbcm*p2p3*p4p8*p6p7-2*fmc*hbcm*p2p3*p5p7*p6p8
13232      . +2*fmc*hbcm*p2p3*p5p8*p6p7-4*fmc*hbcm*p2p4*p3p6*p7p8-4*fmc*
13233      . hbcm*p2p5*p3p6*p7p8+8*fmc*hbcm*p2p5*p3p7*p6p8-2*fmc*hbcm*p2p8*
13234      . p3p5*p6p7+3*fmc*hbcm*p2p8*p3p6*p5p7-2*fmc*hbcm*p3p4*p5p7*p6p8+
13235      . 2*fmc*hbcm*p3p4*p5p8*p6p7+10*fmc*hbcm*p3p5*p4p7*p6p8-2*fmc*
13236      . hbcm*p3p5*p4p8*p6p7-8*fmc*hbcm*p3p6*p4p7*p5p8+fmc*hbcm*p3p6*
13237      . p4p8*p5p7-4*fmc*hbcm*p3p7*p4p6*p5p8-3*fmc*hbcm3*p2p8*p6p7-4*
13238      . fmc2*p1p3*p3p7*p6p8+4*fmc2*p1p8*p3p6*p3p7+8*fmc2*p3p5*p3p7*
13239      . p6p8-8*fmc2*p3p6*p3p7*p5p8+2*hbcm2*p1p2*p2p8*p6p7-2*hbcm2*p1p2
13240      . *p4p7*p6p8+2*hbcm2*p1p2*p4p8*p6p7+hbcm2*p1p4*p2p8*p6p7-2*hbcm2
13241      . *p1p4*p4p7*p6p8-hbcm2*p1p4*p4p8*p6p7-2*hbcm2*p1p8*p2p4*p6p7+2*
13242      . hbcm2*p1p8*p4p6*p4p7+ans11
13243       ans9=8*ans10
13244       ans8=16*(p6p7*p5p8)*(-p2p3s2+p3p4s2)+16*(p6p8*p5p7)*(p2p3s2-
13245      . p3p4s2)+16*(p6p7*p1p8)*(p2p3s2-p3p4s2)+8*(p6p7*p4p8)*(-fmc*
13246      . hbcm3-4*p2p3s2)+8*(p4p8*p4p6*p3p7)*(-4*fmc*hbcm-hbcm2)+8*(p4p6
13247      . *p3p7*p2p8)*(-4*fmc*hbcm+hbcm2)+32*(p7p8*p3p6*p2p3)*(-fmc*hbcm
13248      . +fmc2)+8*(p4p8*p4p7*p3p6)*(-2*fmb*hbcm-fmc*hbcm-2*hbcm2)+16*(
13249      . p6p8*p4p7*p3p4)*(fmb*hbcm+fmc*hbcm+2*hbcm2)+8*(p4p7*p3p6*p2p8)
13250      . *(2*fmb*hbcm+5*fmc*hbcm+2*hbcm2)+16*(p6p8*p4p7*p2p3)*(fmb*hbcm
13251      . -7*fmc*hbcm)+8*(p4p8*p3p7*p3p6)*(-2*fmb*fmc-fmc*hbcm-2*fmc2)+
13252      . 16*(p6p8*p3p7*p3p4)*(fmb*fmc+fmc*hbcm+fmc2)+8*(p3p7*p3p6*p2p8)
13253      . *(2*fmb*fmc+5*fmc*hbcm-6*fmc2)+16*(p6p8*p3p7*p2p3)*(fmb*fmc-
13254      . fmc*hbcm-3*fmc2)+16*(p6p8*p4p7)*(fmb*fmc*hbcm2+2*fmc*hbcm3+
13255      . fmc2*hbcm2+6*p2p3s2)+(p3p7*p3p6*p3p4*p2p8)*(-64*ffmcfmb+16)+16
13256      . *(p6p8*p3p7)*(2*ffmcfmb*p2p3s2+fmb*fmc2*hbcm+2*fmc2*hbcm2+fmc3
13257      . *hbcm+p2p3s2-p3p4s2)+32*(p7p8*p3p6)*(-ffmcfmb*p2p3s2+p2p3s2)+(
13258      . p7p8*p3p6*p3p4*p2p3)*(32*ffmcfmb-32)+(p3p7*p3p6*p2p8*p2p3)*(64
13259      . *ffmcfmb-16)+ans9
13260       ans7=w11*ans8
13261       ans15=8*(4*ffmcfmb*p1p3*p3p5*p3p7*p6p8-4*ffmcfmb*p1p3*p3p6*p3p7
13262      . *p5p8+4*fmb*hbcm*p1p2*p3p6*p7p8-4*fmb*hbcm*p2p5*p3p6*p7p8+2*
13263      . fmb*hbcm*p2p8*p3p6*p5p7+2*fmb*hbcm*p3p6*p3p7*p4p8+2*fmb*hbcm*
13264      . p3p6*p4p8*p5p7-fmc*hbcm*p1p3*p1p8*p6p7-2*fmc*hbcm*p1p3*p5p7*
13265      . p6p8+2*fmc*hbcm*p1p3*p5p8*p6p7+fmc*hbcm*p1p8*p3p6*p5p7+hbcm2*
13266      . p1p4*p1p8*p6p7+hbcm2*p1p8*p2p5*p6p7+hbcm2*p1p8*p3p7*p4p6+hbcm2
13267      . *p1p8*p4p6*p4p7+hbcm2*p1p8*p4p6*p5p7+4*p1p2*p1p3*p3p6*p7p8-4*
13268      . p1p2*p1p3*p3p7*p6p8-2*p1p3*p1p8*p2p3*p6p7-2*p1p3*p1p8*p3p4*
13269      . p6p7+2*p1p3*p1p8*p3p6*p4p7+4*p1p3*p2p3*p4p6*p7p8-12*p1p3*p2p3*
13270      . p4p7*p6p8+4*p1p3*p2p3*p4p8*p6p7-2*p1p3*p2p3*p5p7*p6p8+2*p1p3*
13271      . p2p3*p5p8*p6p7-4*p1p3*p2p5*p3p6*p7p8+4*p1p3*p2p5*p3p7*p6p8-2*
13272      . p1p3*p2p8*p3p5*p6p7+2*p1p3*p2p8*p3p6*p5p7-8*p1p3*p2p8*p3p7*
13273      . p4p6-2*p1p3*p3p4*p3p7*p6p8-2*p1p3*p3p4*p5p7*p6p8+2*p1p3*p3p4*
13274      . p5p8*p6p7+6*p1p3*p3p5*p4p7*p6p8-2*p1p3*p3p5*p4p8*p6p7+2*p1p3*
13275      . p3p6*p3p7*p4p8-6*p1p3*p3p6*p4p7*p5p8+2*p1p3*p3p6*p4p8*p5p7)
13276       ans14=32*(p6p8*p3p7*p1p2)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p5p8*
13277      . p3p7*p3p6)*(-fmb*fmc+fmc*hbcm-fmc2)+32*(p6p8*p3p7*p3p5)*(fmb*
13278      . fmc-fmc*hbcm+fmc2)+16*(p3p7*p3p6*p2p8)*(-4*fmb*fmc+fmb*hbcm+4*
13279      . fmc*hbcm-4*fmc2)+16*(p6p8*p3p7*p2p3)*(-2*fmb*fmc-fmb*hbcm+fmc*
13280      . hbcm-2*fmc2+hbcm2)+32*(p7p8*p3p6*p2p3)*(fmb*fmc-fmb*hbcm-fmc*
13281      . hbcm+fmc2)+8*(p3p7*p3p6*p1p8)*(2*fmb*fmc-fmc*hbcm+2*fmc2)+16*(
13282      . p6p8*p3p7*p1p3)*(-fmb*fmc+fmc*hbcm-fmc2)+16*(p6p7*p5p8)*(fmb*
13283      . fmc*hbcm2-fmc*hbcm3+fmc2*hbcm2)+16*(p6p8*p5p7)*(-fmb*fmc*hbcm2
13284      . +fmc*hbcm3-fmc2*hbcm2)+8*(p6p7*p4p8)*(2*fmb*fmc*hbcm2-2*fmb*
13285      . hbcm3+fmb2*hbcm2-2*fmc*hbcm3+fmc2*hbcm2+hbcm4+2*p1p3s2)+8*(
13286      . p6p8*p4p7)*(-2*fmb*fmc*hbcm2+4*fmb*hbcm3-fmb2*hbcm2+4*fmc*
13287      . hbcm3-fmc2*hbcm2-3*hbcm4-2*p1p3s2)+8*(p6p7*p2p8)*(2*fmb*fmc*
13288      . hbcm2-2*fmb*hbcm3+fmb2*hbcm2-2*fmc*hbcm3+fmc2*hbcm2+hbcm4+2*
13289      . p1p3s2)+8*(p6p7*p1p8)*(-2*fmb*fmc*hbcm2+fmc*hbcm3-2*fmc2*hbcm2
13290      . )+(p3p7*p3p6*p2p8*p1p3)*(-64*ffmcfmb+16)+(p6p8*p3p7*p2p3*p1p3)
13291      . *(-32*ffmcfmb-16)+(p7p8*p3p6*p2p3*p1p3)*(32*ffmcfmb-32)+ans15
13292       ans13=16*(p5p8*p4p7*p3p6)*(-3*fmb*hbcm-2*fmc*hbcm+2*hbcm2)+16*(
13293      . p6p7*p4p8*p3p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)+48*(p6p8*p4p7*p3p5)
13294      . *(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p7*p5p8*p3p4)*(fmb*hbcm+fmc*
13295      . hbcm-hbcm2)+16*(p6p8*p5p7*p3p4)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*
13296      . (p6p8*p3p7*p3p4)*(-fmb*hbcm-fmc*hbcm+hbcm2)+64*(p4p6*p3p7*p2p8
13297      . )*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p6p7*p3p5*p2p8)*(-fmb*hbcm-
13298      . fmc*hbcm+hbcm2)+32*(p6p8*p3p7*p2p5)*(fmb*hbcm+fmc*hbcm-hbcm2)+
13299      . 16*(p6p7*p5p8*p2p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p8*p5p7*
13300      . p2p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p6p7*p4p8*p2p3)*(fmb*hbcm
13301      . +fmc*hbcm-hbcm2)+96*(p6p8*p4p7*p2p3)*(-fmb*hbcm-fmc*hbcm+hbcm2
13302      . )+32*(p7p8*p4p6*p2p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p4p7*p3p6*
13303      . p1p8)*(4*fmb*hbcm+3*fmc*hbcm-2*hbcm2)+8*(p6p7*p3p4*p1p8)*(-2*
13304      . fmb*hbcm-2*fmc*hbcm+hbcm2)+16*(p6p7*p2p3*p1p8)*(-fmb*hbcm-fmc*
13305      . hbcm+hbcm2)+16*(p6p7*p4p8*p1p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(
13306      . p6p8*p4p7*p1p3)*(-2*fmb*hbcm-2*fmc*hbcm+3*hbcm2)+16*(p6p7*p2p8
13307      . *p1p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+ans14
13308       ans12=w13*ans13
13309       ans17=64*(-2*fb4*p1p2*p3p6*p7p8+2*fb4*p1p2*p3p7*p6p8-fb4*p1p3*
13310      . p2p8*p6p7+fb4*p1p3*p4p7*p6p8-fb4*p1p3*p4p8*p6p7+fb4*p1p8*p2p3*
13311      . p6p7+fb4*p1p8*p3p4*p6p7-fb4*p1p8*p3p6*p4p7-2*fb4*p2p3*p4p6*
13312      . p7p8+6*fb4*p2p3*p4p7*p6p8-2*fb4*p2p3*p4p8*p6p7+fb4*p2p3*p5p7*
13313      . p6p8-fb4*p2p3*p5p8*p6p7+2*fb4*p2p5*p3p6*p7p8-2*fb4*p2p5*p3p7*
13314      . p6p8+fb4*p2p8*p3p5*p6p7-fb4*p2p8*p3p6*p5p7+4*fb4*p2p8*p3p7*
13315      . p4p6+fb4*p3p4*p3p7*p6p8+fb4*p3p4*p5p7*p6p8-fb4*p3p4*p5p8*p6p7-
13316      . 3*fb4*p3p5*p4p7*p6p8+fb4*p3p5*p4p8*p6p7-fb4*p3p6*p3p7*p4p8+3*
13317      . fb4*p3p6*p4p7*p5p8-fb4*p3p6*p4p8*p5p7)
13318       ans16=4*(p6p8*p5p7)*(16*fb4*fmc*hbcm+3*hbcm2)+(p5p8*p3p7*p3p6)*
13319      . (128*fb4*ffmcfmb+16)+(p6p8*p3p7*p3p5)*(-128*fb4*ffmcfmb-16)+(
13320      . p3p7*p3p6*p2p8)*(256*fb4*ffmcfmb-64*fb4+32)+(p6p8*p3p7*p2p3)*(
13321      . 128*fb4*ffmcfmb+64*fb4+16)+(p7p8*p3p6*p2p3)*(-128*fb4*ffmcfmb+
13322      . 128*fb4-16)+8*(p7p8*p3p6)*(4*fb3*fmc2+4*fb4*fmc2+fmb*hbcm+
13323      . hbcm2)+8*(p6p7*p5p8)*(4*fb3*fmc*hbcm-4*fb4*fmc*hbcm-3*hbcm2)+
13324      . 32*(p6p7*p4p8)*(fb3*fmc*hbcm-fb4*fmc*hbcm+2*fb4*hbcm2)+8*(p7p8
13325      . *p4p6)*(4*fb3*fmc*hbcm+4*fb4*fmc*hbcm+hbcm2)+32*(p6p7*p2p8)*(
13326      . fb3*fmc*hbcm-fb4*fmc*hbcm+2*fb4*hbcm2)+4*(p6p7*p1p8)*(-8*fb3*
13327      . fmc*hbcm+8*fb4*fmc*hbcm+hbcm2)+4*(p6p8*p4p7)*(-16*fb3*fmb*hbcm
13328      . -8*fb3*fmc*hbcm-8*fb4*fmc*hbcm-16*fb4*hbcm2+3*hbcm2)+4*(p6p8*
13329      . p3p7)*(-16*fb3*fmb*fmc-8*fb3*fmc*hbcm+8*fb4*fmc*hbcm-16*fb4*
13330      . fmc2-2*fmb*hbcm+2*fmc*hbcm+hbcm2)+ans17
13331       ans1=ans2+ans7+ans12+ans16
13332       ans=ccc*ans1
13333       b(12)=ans
13334       ans2=w13*(8*(p4p8*p1p3)*(fmc-hbcm)+16*(p2p8*p1p3)*(-fmc+hbcm)+4
13335      . *p4p8*(-fmb2*hbcm-2*fmc*hbcm2+fmc2*hbcm+hbcm3)+8*p2p8*(fmb2*
13336      . hbcm+2*fmc*hbcm2-fmc2*hbcm-hbcm3)+4*(fmc*hbcm2*p1p8-fmc*p1p3*
13337      . p1p8+2*hbcm*p1p2*p1p8-hbcm*p1p4*p1p8-2*hbcm*p1p8*p2p3-3*hbcm*
13338      . p1p8*p2p5+hbcm*p1p8*p3p4))+(16*p4p8*(-fb3*fmc-fb4*fmc)+8*p2p8*
13339      . (4*fb3*fmc+4*fb4*fmc-3*hbcm)+2*(-7*hbcm*p1p8+12*hbcm*p5p8))
13340       ans1=w1*(4*(p4p8*p3p4)*(2*fmc-hbcm)+4*p4p8*(-fmc*hbcm2+2*fmc2*
13341      . hbcm)+4*(fmc*p1p3*p4p8-2*fmc*p1p8*p3p4-6*fmc*p2p8*p3p4+2*fmc*
13342      . p3p4*p5p8-2*fmc2*hbcm*p1p8-6*fmc2*hbcm*p2p8+2*fmc2*hbcm*p5p8-2
13343      . *hbcm*p1p2*p4p8+hbcm*p1p4*p4p8+4*hbcm*p1p8*p2p4+2*hbcm*p2p3*
13344      . p4p8+4*hbcm*p2p4*p2p8-4*hbcm*p2p4*p5p8+3*hbcm*p2p5*p4p8))+w11*
13345      . (4*(p4p8*p3p4)*(2*fmc-hbcm)+4*(p3p4*p2p8)*(-6*fmc-hbcm)+8*(
13346      . p4p8*p2p3)*(-fmc+2*hbcm)+8*(p2p8*p2p3)*(3*fmc-hbcm)+4*p4p8*(-
13347      . fmc*hbcm2+2*fmc2*hbcm)+4*p2p8*(-fmc*hbcm2-6*fmc2*hbcm)+4*(fmc*
13348      . p1p3*p2p8+fmc*p1p3*p4p8+2*fmc*p1p8*p2p3-2*fmc*p1p8*p3p4-2*fmc*
13349      . p2p3*p5p8+2*fmc*p3p4*p5p8-2*fmc2*hbcm*p1p8+2*fmc2*hbcm*p5p8+2*
13350      . hbcm*p1p2*p2p8-4*hbcm*p1p2*p4p8+hbcm*p1p4*p2p8+hbcm*p1p4*p4p8+
13351      . 6*hbcm*p1p8*p2p4+6*hbcm*p2p4*p2p8-6*hbcm*p2p4*p5p8-hbcm*p2p5*
13352      . p2p8+5*hbcm*p2p5*p4p8))+ans2
13353       ans=ccc*ans1
13354       b(13)=ans
13355       ans=ccc*(w13*(4*p3p4*(-fmb*hbcm-fmc*hbcm+hbcm2)+12*p2p5*(fmb*
13356      . hbcm+fmc*hbcm-hbcm2)+8*p2p3*(fmb*hbcm+fmc*hbcm-hbcm2)+4*p1p4*(
13357      . fmb*hbcm+fmc*hbcm-hbcm2)+8*p1p2*(-fmb*hbcm-fmc*hbcm+hbcm2)+4*
13358      . p1p3*(fmb*fmc-2*fmc*hbcm+fmc2)+4*(ffmcfmb*p1p3s2-fmb*fmc*hbcm2
13359      . +fmc*hbcm3-fmc2*hbcm2-2*p1p2*p1p3+p1p3*p1p4+2*p1p3*p2p3+3*p1p3
13360      . *p2p5-p1p3*p3p4))+4*w1*(ffmcfmb*p1p3*p3p4-2*fmc*hbcm*p1p2+fmc*
13361      . hbcm*p1p4+2*fmc*hbcm*p2p3+3*fmc*hbcm*p2p5-2*fmc*hbcm*p3p4-fmc2
13362      . *hbcm2+fmc2*p1p3-2*p1p2*p3p4+p1p4*p3p4+2*p2p3*p3p4+3*p2p5*p3p4
13363      . -p3p4s2)+4*w11*(-ffmcfmb*p1p3*p2p3+ffmcfmb*p1p3*p3p4-2*fmc*
13364      . hbcm*p1p2+fmc*hbcm*p1p4+3*fmc*hbcm*p2p3+3*fmc*hbcm*p2p5-2*fmc*
13365      . hbcm*p3p4-fmc2*hbcm2+fmc2*p1p3+2*p1p2*p2p3-2*p1p2*p3p4-p1p4*
13366      . p2p3+p1p4*p3p4-3*p2p3*p2p5+3*p2p3*p3p4-2*p2p3s2+3*p2p5*p3p4-
13367      . p3p4s2)+(p1p3*(-16*fb4*ffmcfmb-2)+2*(8*fb4*fmc*hbcm+16*fb4*
13368      . p1p2-8*fb4*p1p4-16*fb4*p2p3-24*fb4*p2p5+8*fb4*p3p4-3*fmb*hbcm-
13369      . 3*fmc*hbcm+hbcm2)))
13370       b(14)=ans
13371       ans4=(16*p5p8*(2*fb4*fmc*hbcm+hbcm2)+2*p1p8*(-16*fb4*fmc*hbcm-3
13372      . *hbcm2)+16*p4p8*(-fb3*fmc*hbcm+fb4*fmc*hbcm-2*fb4*hbcm2)+16*
13373      . p2p8*(2*fb3*fmc*hbcm-4*fb4*fmc*hbcm+4*fb4*hbcm2-hbcm2)+32*(-2*
13374      . fb4*p1p3*p2p8+fb4*p1p3*p4p8+2*fb4*p1p8*p2p3-fb4*p1p8*p3p4+fb4*
13375      . p2p3*p4p8-2*fb4*p2p3*p5p8-fb4*p2p8*p3p4+2*fb4*p2p8*p3p5+fb4*
13376      . p3p4*p5p8-fb4*p3p5*p4p8))
13377       ans3=w13*(8*(p4p8*p3p5)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p5p8*p3p4)
13378      . *(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p3p5*p2p8)*(-fmb*hbcm-fmc*hbcm
13379      . +hbcm2)+8*(p3p4*p2p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p5p8*p2p3)
13380      . *(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p4p8*p2p3)*(-fmb*hbcm-fmc*hbcm+
13381      . hbcm2)+4*(p3p4*p1p8)*(2*fmb*hbcm+2*fmc*hbcm-hbcm2)+8*(p2p3*
13382      . p1p8)*(-2*fmb*hbcm-2*fmc*hbcm+hbcm2)+8*(p4p8*p1p3)*(-fmb*hbcm-
13383      . fmc*hbcm+hbcm2)+8*(p2p8*p1p3)*(2*fmb*hbcm+3*fmc*hbcm-2*hbcm2)+
13384      . 8*p5p8*(-fmb*fmc*hbcm2+fmc*hbcm3-fmc2*hbcm2)+4*p4p8*(-2*fmb*
13385      . fmc*hbcm2+2*fmb*hbcm3-fmb2*hbcm2+2*fmc*hbcm3-fmc2*hbcm2-hbcm4-
13386      . 2*p1p3s2)+8*p2p8*(3*fmb*fmc*hbcm2-2*fmb*hbcm3+fmb2*hbcm2-3*fmc
13387      . *hbcm3+2*fmc2*hbcm2+hbcm4+2*p1p3s2)+4*p1p8*(2*fmb*fmc*hbcm2-
13388      . fmc*hbcm3+2*fmc2*hbcm2)+4*(fmc*hbcm*p1p3*p1p8-2*fmc*hbcm*p1p3*
13389      . p5p8+2*hbcm2*p1p2*p1p8-hbcm2*p1p4*p1p8-3*hbcm2*p1p8*p2p5-4*
13390      . p1p3*p1p8*p2p3+2*p1p3*p1p8*p3p4-2*p1p3*p2p3*p4p8+4*p1p3*p2p3*
13391      . p5p8+2*p1p3*p2p8*p3p4-4*p1p3*p2p8*p3p5-2*p1p3*p3p4*p5p8+2*p1p3
13392      . *p3p5*p4p8))+ans4
13393       ans2=w1*(8*p2p8*(-2*fmc*hbcm3+p3p4s2)+8*(p3p4*p2p8)*(fmc*hbcm-2
13394      . *hbcm2)+8*(p4p8*p2p3)*(-fmc*hbcm+hbcm2)+4*(4*fmc*hbcm*p1p3*
13395      . p2p8-fmc*hbcm*p1p3*p4p8-4*fmc*hbcm*p1p8*p2p3+2*fmc*hbcm*p1p8*
13396      . p3p4+4*fmc*hbcm*p2p3*p5p8-4*fmc*hbcm*p2p8*p3p5-2*fmc*hbcm*p3p4
13397      . *p5p8+2*fmc*hbcm*p3p5*p4p8+fmc*hbcm3*p4p8-2*hbcm2*p1p2*p4p8+
13398      . hbcm2*p1p4*p4p8+4*hbcm2*p1p8*p2p4+4*hbcm2*p2p4*p2p8-4*hbcm2*
13399      . p2p4*p5p8+3*hbcm2*p2p5*p4p8+hbcm2*p3p4*p4p8+4*p1p3*p2p8*p3p4-2
13400      . *p1p3*p3p4*p4p8-4*p1p8*p2p3*p3p4+2*p1p8*p3p4s2-2*p2p3*p3p4*
13401      . p4p8+4*p2p3*p3p4*p5p8-4*p2p8*p3p4*p3p5+2*p3p4*p3p5*p4p8-2*
13402      . p3p4s2*p5p8))+ans3
13403       ans1=w11*(8*p5p8*(-2*p2p3s2-p3p4s2)+8*p1p8*(2*p2p3s2+p3p4s2)+4*
13404      . p4p8*(fmc*hbcm3+2*p2p3s2)+4*p2p8*(-5*fmc*hbcm3+2*p3p4s2)+4*(
13405      . p3p4*p2p8)*(2*fmc*hbcm-5*hbcm2)+8*(p4p8*p2p3)*(-fmc*hbcm+hbcm2
13406      . )+4*(5*fmc*hbcm*p1p3*p2p8-fmc*hbcm*p1p3*p4p8-4*fmc*hbcm*p1p8*
13407      . p2p3+2*fmc*hbcm*p1p8*p3p4+4*fmc*hbcm*p2p3*p5p8-4*fmc*hbcm*p2p8
13408      . *p3p5-2*fmc*hbcm*p3p4*p5p8+2*fmc*hbcm*p3p5*p4p8+2*hbcm2*p1p2*
13409      . p2p8-4*hbcm2*p1p2*p4p8+hbcm2*p1p4*p2p8+hbcm2*p1p4*p4p8+6*hbcm2
13410      . *p1p8*p2p4+2*hbcm2*p2p3*p2p8+6*hbcm2*p2p4*p2p8-6*hbcm2*p2p4*
13411      . p5p8-hbcm2*p2p5*p2p8+5*hbcm2*p2p5*p4p8+hbcm2*p3p4*p4p8-4*p1p3*
13412      . p2p3*p2p8+2*p1p3*p2p3*p4p8+4*p1p3*p2p8*p3p4-2*p1p3*p3p4*p4p8-6
13413      . *p1p8*p2p3*p3p4-2*p2p3*p2p8*p3p4+4*p2p3*p2p8*p3p5-2*p2p3*p3p4*
13414      . p4p8+6*p2p3*p3p4*p5p8-2*p2p3*p3p5*p4p8-4*p2p8*p3p4*p3p5+2*p3p4
13415      . *p3p5*p4p8))+ans2
13416       ans=ccc*ans1
13417       b(15)=ans
13418       ans2=w13*(4*(p3p4*p1p3)*(-2*fmc+hbcm)+8*(p2p3*p1p3)*(2*fmc-hbcm
13419      . )+4*p3p4*(-fmb*hbcm2+fmb2*hbcm+fmc*hbcm2-fmc2*hbcm)+12*p2p5*(
13420      . fmb*hbcm2+fmc*hbcm2-hbcm3)+8*p2p3*(fmb*hbcm2-fmb2*hbcm-fmc*
13421      . hbcm2+fmc2*hbcm)+4*p1p4*(fmb*hbcm2+fmc*hbcm2-hbcm3)+8*p1p2*(-
13422      . fmb*hbcm2-fmc*hbcm2+hbcm3)+4*p1p3*(fmb*fmc*hbcm-fmc2*hbcm)+4*(
13423      . -fmb*fmc*hbcm3+fmb2*fmc*hbcm2+fmc*p1p3s2+fmc2*hbcm3-fmc3*hbcm2
13424      . -2*hbcm*p1p2*p1p3+hbcm*p1p3*p1p4+3*hbcm*p1p3*p2p5))+(16*p3p4*(
13425      . fb3*fmc-fb3*hbcm+fb4*fmc)+8*p2p3*(-4*fb3*fmc+4*fb3*hbcm-4*fb4*
13426      . fmc+3*hbcm)+2*p1p3*(8*fb3*fmc+7*hbcm)+2*(-8*fb3*fmc*hbcm2+8*
13427      . fb3*fmc2*hbcm-16*fb3*hbcm*p1p2+8*fb3*hbcm*p1p4+24*fb3*hbcm*
13428      . p2p5+8*fb4*fmc2*hbcm-3*fmb*hbcm2+5*fmc*hbcm2-12*hbcm*p3p5-7*
13429      . hbcm3))
13430       ans1=w11*(4*(p3p4*p2p3)*(8*fmc-3*hbcm)+24*p2p4*(-fmc*hbcm2+
13431      . hbcm3)+4*p2p3*(-fmc*hbcm2+6*fmc2*hbcm)+4*(4*fmc*hbcm2*p1p2-fmc
13432      . *hbcm2*p1p4-5*fmc*hbcm2*p2p5-3*fmc*p1p3*p2p3+fmc*p1p3*p3p4+2*
13433      . fmc*p2p3*p3p5-6*fmc*p2p3s2-2*fmc*p3p4*p3p5-2*fmc*p3p4s2+fmc2*
13434      . hbcm*p1p3-2*fmc2*hbcm*p3p4-2*fmc2*hbcm*p3p5-fmc2*hbcm3-2*hbcm*
13435      . p1p2*p2p3+4*hbcm*p1p2*p3p4-6*hbcm*p1p3*p2p4-hbcm*p1p4*p2p3-
13436      . hbcm*p1p4*p3p4-6*hbcm*p2p3*p2p4+hbcm*p2p3*p2p5+2*hbcm*p2p3s2+6
13437      . *hbcm*p2p4*p3p5-5*hbcm*p2p5*p3p4+hbcm*p3p4s2))+w1*(8*(p3p4*
13438      . p2p3)*(3*fmc-hbcm)+16*p2p4*(-fmc*hbcm2+hbcm3)+8*p2p3*(-fmc*
13439      . hbcm2+3*fmc2*hbcm)+4*(2*fmc*hbcm2*p1p2-fmc*hbcm2*p1p4-3*fmc*
13440      . hbcm2*p2p5+fmc*p1p3*p3p4-2*fmc*p3p4*p3p5-2*fmc*p3p4s2+fmc2*
13441      . hbcm*p1p3-2*fmc2*hbcm*p3p4-2*fmc2*hbcm*p3p5-fmc2*hbcm3+2*hbcm*
13442      . p1p2*p3p4-4*hbcm*p1p3*p2p4-hbcm*p1p4*p3p4-4*hbcm*p2p3*p2p4+4*
13443      . hbcm*p2p4*p3p5-3*hbcm*p2p5*p3p4+hbcm*p3p4s2))+ans2
13444       ans=ccc*ans1
13445       b(16)=ans
13446       b(17)=ccc*(16*w1*(2*fmc*p3p4*p6p8-fmc*p3p6*p4p8+2*fmc2*hbcm*
13447      . p6p8-hbcm*p2p4*p6p8-hbcm*p4p6*p4p8)+w11*(8*(p6p8*p3p4)*(4*fmc+
13448      . hbcm)+8*(p6p8*p2p3)*(-4*fmc+hbcm)+8*p6p8*(fmc*hbcm2+4*fmc2*
13449      . hbcm)+8*(-fmc*p1p3*p6p8+fmc*p1p8*p3p6+fmc*p2p8*p3p6-3*fmc*p3p6
13450      . *p4p8-fmc*p3p6*p5p8-hbcm*p1p2*p6p8-hbcm*p1p4*p6p8+hbcm*p1p8*
13451      . p4p6-3*hbcm*p2p4*p6p8+hbcm*p2p8*p4p6-3*hbcm*p4p6*p4p8-hbcm*
13452      . p4p6*p5p8))+w13*(24*(p5p8*p3p6)*(fmc-hbcm)+8*(p4p8*p3p6)*(-fmc
13453      . +hbcm)+8*(p3p6*p2p8)*(-fmc+hbcm)+8*(p3p6*p1p8)*(-fmc+3*hbcm)+
13454      . 24*(p6p8*p1p3)*(fmc-hbcm)+12*p6p8*(-fmb2*hbcm-2*fmc*hbcm2+fmc2
13455      . *hbcm+hbcm3)+16*hbcm*p1p8*p4p6)+8*p6p8*(-6*fb3*fmc-6*fb4*fmc+
13456      . hbcm))
13457       b(18)=ccc*(16*w1*(ffmcfmb*p3p4*p3p6+fmc*hbcm*p4p6+fmc2*p3p6+
13458      . p3p4*p4p6)+16*w11*(-ffmcfmb*p2p3*p3p6+ffmcfmb*p3p4*p3p6+fmc*
13459      . hbcm*p4p6+fmc2*p3p6-p2p3*p4p6+p3p4*p4p6)+w13*(16*p4p6*(fmb*
13460      . hbcm+fmc*hbcm-hbcm2)+16*p3p6*(fmb*fmc-fmc*hbcm+fmc2)+16*(
13461      . ffmcfmb*p1p3*p3p6+p1p3*p4p6))+(p3p6*(-64*fb4*ffmcfmb-8)-64*fb4
13462      . *p4p6))
13463       ans=ccc*(w11*(20*p4p8*(fmc*hbcm2-hbcm3)+4*p2p8*(-3*fmc*hbcm2+
13464      . hbcm3)+4*(-5*fmc*hbcm2*p1p8+5*fmc*hbcm2*p5p8-hbcm*p1p3*p2p8+5*
13465      . hbcm*p1p3*p4p8+hbcm*p1p8*p2p3-5*hbcm*p1p8*p3p4+2*hbcm*p2p3*
13466      . p4p8-hbcm*p2p3*p5p8-2*hbcm*p2p8*p3p4+hbcm*p2p8*p3p5+5*hbcm*
13467      . p3p4*p5p8-5*hbcm*p3p5*p4p8))+w1*(12*p4p8*(fmc*hbcm2-hbcm3)+4*(
13468      . -3*fmc*hbcm2*p1p8-fmc*hbcm2*p2p8+3*fmc*hbcm2*p5p8+3*hbcm*p1p3*
13469      . p4p8-3*hbcm*p1p8*p3p4+hbcm*p2p3*p4p8-hbcm*p2p8*p3p4+3*hbcm*
13470      . p3p4*p5p8-3*hbcm*p3p5*p4p8))+w13*(12*p5p8*(-fmb*hbcm2-fmc*
13471      . hbcm2+hbcm3)+4*p4p8*(fmb*hbcm2+fmc*hbcm2-hbcm3)+4*p2p8*(fmb*
13472      . hbcm2+fmc*hbcm2-hbcm3)+4*p1p8*(3*fmb*hbcm2-fmc*hbcm2)+4*(hbcm*
13473      . p1p3*p2p8+hbcm*p1p3*p4p8-3*hbcm*p1p3*p5p8-hbcm*p1p8*p2p3-hbcm*
13474      . p1p8*p3p4+3*hbcm*p1p8*p3p5))+16*(3*fb3*hbcm*p1p8+fb3*hbcm*p2p8
13475      . +fb3*hbcm*p4p8-3*fb3*hbcm*p5p8))
13476       b(19)=ans
13477       b(20)=ccc*(4*w11*(3*fmc*hbcm*p1p8+fmc*hbcm*p2p8+fmc*hbcm*p4p8-3
13478      . *fmc*hbcm*p5p8-3*p1p8*p2p3+3*p1p8*p3p4-p2p3*p2p8-p2p3*p4p8+3*
13479      . p2p3*p5p8+p2p8*p3p4+p3p4*p4p8-3*p3p4*p5p8)+4*w1*(3*fmc*hbcm*
13480      . p1p8+fmc*hbcm*p2p8+fmc*hbcm*p4p8-3*fmc*hbcm*p5p8+3*p1p8*p3p4+
13481      . p2p8*p3p4+p3p4*p4p8-3*p3p4*p5p8)+w13*(12*p5p8*(-fmb*hbcm-fmc*
13482      . hbcm+hbcm2)+4*p4p8*(fmb*hbcm+fmc*hbcm-hbcm2)+4*p2p8*(fmb*hbcm+
13483      . fmc*hbcm-hbcm2)+12*p1p8*(fmb*hbcm+fmc*hbcm-hbcm2)+4*(3*p1p3*
13484      . p1p8+p1p3*p2p8+p1p3*p4p8-3*p1p3*p5p8))+16*(-3*fb4*p1p8-fb4*
13485      . p2p8-fb4*p4p8+3*fb4*p5p8))
13486       ans=ccc*(w1*(4*(p4p8*p3p7)*(6*fmc-hbcm)+4*(4*fmc*p3p4*p7p8+4*
13487      . fmc2*hbcm*p7p8-2*hbcm*p1p8*p4p7-2*hbcm*p2p8*p4p7+5*hbcm*p4p7*
13488      . p4p8+2*hbcm*p4p7*p5p8-3*hbcm*p4p8*p5p7))+w11*(12*(p4p8*p3p7)*(
13489      . 2*fmc-hbcm)+8*(p7p8*p3p4)*(2*fmc+hbcm)+4*(p3p7*p2p8)*(-6*fmc-
13490      . hbcm)+8*(p7p8*p2p3)*(-2*fmc+hbcm)+8*p7p8*(fmc*hbcm2+2*fmc2*
13491      . hbcm)+4*(-2*fmc*p1p3*p7p8-8*fmc*p1p8*p3p7+12*fmc*p3p7*p5p8-2*
13492      . hbcm*p1p2*p7p8-2*hbcm*p1p4*p7p8-12*hbcm*p1p8*p4p7-2*hbcm*p2p4*
13493      . p7p8-9*hbcm*p2p8*p4p7+hbcm*p2p8*p5p7+5*hbcm*p4p7*p4p8+16*hbcm*
13494      . p4p7*p5p8-5*hbcm*p4p8*p5p7))+w13*(4*(p3p7*p1p8)*(-2*fmc+hbcm)+
13495      . 8*(p7p8*p1p3)*(fmc-hbcm)+4*p7p8*(-fmb2*hbcm-2*fmc*hbcm2+fmc2*
13496      . hbcm+hbcm3)+12*(-hbcm*p1p8*p4p7+hbcm*p1p8*p5p7))+16*p7p8*(-2*
13497      . fb3*fmc-2*fb4*fmc+hbcm))
13498       b(21)=ans
13499       b(22)=ccc*(8*w1*(2*fmc*p3p4+2*fmc2*hbcm-hbcm*p2p4)+w11*(4*p3p4*
13500      . (4*fmc+hbcm)+4*p2p3*(-4*fmc+hbcm)+4*(fmc*hbcm2-fmc*p1p3+4*fmc2
13501      . *hbcm-hbcm*p1p2-hbcm*p1p4-3*hbcm*p2p4))+w13*(12*p1p3*(fmc-hbcm
13502      . )+6*(-fmb2*hbcm-2*fmc*hbcm2+fmc2*hbcm+hbcm3))+12*(-2*fb3*fmc-2
13503      . *fb4*fmc+hbcm))
13504       b(23)=ccc*(w1*(4*p3p7*(-fmc*hbcm+6*fmc2)+(p3p7*p3p4)*(16*
13505      . ffmcfmb-4)+4*(7*fmc*hbcm*p4p7-3*fmc*hbcm*p5p7+5*p3p4*p4p7-3*
13506      . p3p4*p5p7))+w11*(4*p4p7*(-2*fmb*hbcm+5*fmc*hbcm)+4*p3p7*(-2*
13507      . fmb*fmc-fmc*hbcm+4*fmc2)+(p3p7*p3p4)*(16*ffmcfmb-4)+(p3p7*p2p3
13508      . )*(-16*ffmcfmb+4)+4*(-3*fmc*hbcm*p5p7-5*p2p3*p4p7+3*p2p3*p5p7+
13509      . 5*p3p4*p4p7-3*p3p4*p5p7))+w13*(12*p5p7*(-fmb*hbcm-fmc*hbcm+
13510      . hbcm2)+20*p4p7*(fmb*hbcm+fmc*hbcm-hbcm2)+4*p3p7*(4*fmb*fmc-fmb
13511      . *hbcm-5*fmc*hbcm+4*fmc2+hbcm2)+(p3p7*p1p3)*(16*ffmcfmb-4)+4*(5
13512      . *p1p3*p4p7-3*p1p3*p5p7))+(p3p7*(-64*fb4*ffmcfmb+16*fb4-8)+16*(
13513      . -5*fb4*p4p7+3*fb4*p5p7)))
13514       ans=ccc*(w11*(4*p3p4*(-fmc*hbcm+4*hbcm2)+4*p2p3*(-fmc*hbcm-2*
13515      . hbcm2)+4*(-4*fmc*hbcm*p1p3+3*fmc*hbcm*p3p5+4*fmc*hbcm3-hbcm2*
13516      . p1p2-hbcm2*p1p4-3*hbcm2*p2p4+3*p1p3*p2p3-3*p1p3*p3p4-3*p2p3*
13517      . p3p5+p2p3s2+3*p3p4*p3p5-p3p4s2))+w1*(4*p3p4*(-fmc*hbcm+3*hbcm2
13518      . )+4*(-3*fmc*hbcm*p1p3-fmc*hbcm*p2p3+3*fmc*hbcm*p3p5+3*fmc*
13519      . hbcm3-2*hbcm2*p2p4-3*p1p3*p3p4-p2p3*p3p4+3*p3p4*p3p5-p3p4s2))+
13520      . w13*(12*p3p5*(fmb*hbcm+fmc*hbcm-hbcm2)+4*p3p4*(-fmb*hbcm-fmc*
13521      . hbcm+hbcm2)+4*p2p3*(-fmb*hbcm-fmc*hbcm+hbcm2)+4*p1p3*(-3*fmb*
13522      . hbcm-4*fmc*hbcm+3*hbcm2)+2*(-8*fmb*fmc*hbcm2+6*fmb*hbcm3-3*
13523      . fmb2*hbcm2+8*fmc*hbcm3-5*fmc2*hbcm2-3*hbcm4-2*p1p3*p2p3-2*p1p3
13524      . *p3p4+6*p1p3*p3p5-6*p1p3s2))+8*(-3*fb3*fmc*hbcm+5*fb4*fmc*hbcm
13525      . -6*fb4*hbcm2+6*fb4*p1p3+2*fb4*p2p3+2*fb4*p3p4-6*fb4*p3p5+hbcm2
13526      . ))
13527       b(24)=ans
13528       ans=ccc*(w1*(4*(p3p7*p3p4)*(-10*fmc+hbcm)+4*p4p7*(-fmc*hbcm2-2*
13529      . hbcm3)+4*p3p7*(fmc*hbcm2-8*fmc2*hbcm)+4*(3*fmc*hbcm2*p5p7+2*
13530      . hbcm*p1p3*p4p7+2*hbcm*p2p3*p4p7-5*hbcm*p3p4*p4p7+3*hbcm*p3p4*
13531      . p5p7-2*hbcm*p3p5*p4p7))+w13*(12*p5p7*(-fmb*hbcm2-fmc*hbcm2+
13532      . hbcm3)+12*p4p7*(fmb*hbcm2+fmc*hbcm2-hbcm3)+4*p3p7*(2*fmb*fmc*
13533      . hbcm-fmb*hbcm2+fmb2*hbcm-fmc*hbcm2+fmc2*hbcm)+4*(hbcm*p1p3*
13534      . p3p7+3*hbcm*p1p3*p4p7-3*hbcm*p1p3*p5p7))+w11*(4*(p3p7*p3p4)*(-
13535      . 10*fmc+hbcm)+4*(p3p7*p2p3)*(10*fmc-hbcm)+4*p4p7*(-2*fmb*hbcm2+
13536      . 7*fmc*hbcm2-12*hbcm3)+4*p3p7*(-2*fmb*fmc*hbcm-7*fmc*hbcm2-2*
13537      . fmc2*hbcm)+4*(5*fmc*hbcm2*p5p7+10*fmc*p1p3*p3p7-12*fmc*p3p5*
13538      . p3p7+2*hbcm*p1p2*p3p7+12*hbcm*p1p3*p4p7+2*hbcm*p1p4*p3p7+9*
13539      . hbcm*p2p3*p4p7-hbcm*p2p3*p5p7+2*hbcm*p2p4*p3p7-5*hbcm*p3p4*
13540      . p4p7+5*hbcm*p3p4*p5p7-16*hbcm*p3p5*p4p7))+(16*p3p7*(4*fb3*fmc-
13541      . fb3*hbcm+2*fb4*fmc-hbcm)+48*(fb3*hbcm*p4p7-fb3*hbcm*p5p7)))
13542       b(25)=ans
13543       b(26)=ccc*(w11*(8*(p3p6*p3p4)*(-fmc-hbcm)+8*(p3p6*p2p3)*(3*fmc-
13544      . hbcm)+8*p4p6*(2*fmc*hbcm2+hbcm3)+8*(fmc*p3p5*p3p6-2*fmc2*hbcm*
13545      . p3p6+hbcm*p1p2*p3p6-hbcm*p1p3*p4p6+hbcm*p1p4*p3p6-hbcm*p2p3*
13546      . p4p6+3*hbcm*p2p4*p3p6+3*hbcm*p3p4*p4p6+hbcm*p3p5*p4p6))+16*w1*
13547      . (fmc*hbcm2*p4p6-fmc*p3p4*p3p6-fmc2*hbcm*p3p6+hbcm*p2p4*p3p6+
13548      . hbcm*p3p4*p4p6)+w13*(24*(p3p6*p3p5)*(-fmc+hbcm)+8*(p3p6*p3p4)*
13549      . (fmc-hbcm)+8*(p3p6*p2p3)*(fmc-hbcm)+16*p4p6*(-fmb*hbcm2-fmc*
13550      . hbcm2+hbcm3)+4*p3p6*(-4*fmb*fmc*hbcm+3*fmb2*hbcm-4*fmc*hbcm2+
13551      . fmc2*hbcm+3*hbcm3)+16*(-fmc*p1p3*p3p6-hbcm*p1p3*p4p6))+(8*p3p6
13552      . *(-2*fb3*fmc+6*fb4*fmc-hbcm)-64*fb3*hbcm*p4p6))
13553       ans3=w13*(8*(p5p8*p3p7)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p4p8*p3p7
13554      . )*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p7p8*p3p5)*(fmb*hbcm+fmc*hbcm-
13555      . hbcm2)+8*(p7p8*p3p4)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p3p7*p2p8)*
13556      . (fmb*hbcm+fmc*hbcm-hbcm2)+8*(p7p8*p2p3)*(-fmb*hbcm-fmc*hbcm+
13557      . hbcm2)+4*(p3p7*p1p8)*(2*fmb*hbcm+2*fmc*hbcm-hbcm2)+8*(p7p8*
13558      . p1p3)*(-fmb*hbcm-2*fmc*hbcm+hbcm2)+4*p7p8*(-4*fmb*fmc*hbcm2+2*
13559      . fmb*hbcm3-fmb2*hbcm2+4*fmc*hbcm3-3*fmc2*hbcm2-hbcm4-2*p1p3s2)+
13560      . 4*(-hbcm2*p1p8*p4p7+3*hbcm2*p1p8*p5p7+2*p1p3*p1p8*p3p7-2*p1p3*
13561      . p2p3*p7p8+2*p1p3*p2p8*p3p7-2*p1p3*p3p4*p7p8+2*p1p3*p3p5*p7p8+2
13562      . *p1p3*p3p7*p4p8-2*p1p3*p3p7*p5p8))+(4*p7p8*(-8*fb3*fmc*hbcm+8*
13563      . fb4*fmc*hbcm-8*fb4*hbcm2+3*hbcm2)+32*(fb4*p1p3*p7p8-fb4*p1p8*
13564      . p3p7+fb4*p2p3*p7p8-fb4*p2p8*p3p7+fb4*p3p4*p7p8-fb4*p3p5*p7p8-
13565      . fb4*p3p7*p4p8+fb4*p3p7*p5p8))
13566       ans2=w1*(8*p7p8*(fmc*hbcm3-p3p4s2)+4*(p4p8*p3p7)*(6*fmc*hbcm-
13567      . hbcm2)+8*(p7p8*p3p4)*(-fmc*hbcm+hbcm2)+4*(-2*fmc*hbcm*p1p3*
13568      . p7p8+2*fmc*hbcm*p1p8*p3p7-2*fmc*hbcm*p2p3*p7p8+2*fmc*hbcm*p2p8
13569      . *p3p7+2*fmc*hbcm*p3p5*p7p8-2*fmc*hbcm*p3p7*p5p8-2*hbcm2*p1p8*
13570      . p4p7-2*hbcm2*p2p8*p4p7+3*hbcm2*p4p7*p4p8+2*hbcm2*p4p7*p5p8-3*
13571      . hbcm2*p4p8*p5p7-2*p1p3*p3p4*p7p8+2*p1p8*p3p4*p3p7-2*p2p3*p3p4*
13572      . p7p8+2*p2p8*p3p4*p3p7+2*p3p4*p3p5*p7p8+2*p3p4*p3p7*p4p8-2*p3p4
13573      . *p3p7*p5p8))+ans3
13574       ans1=w11*(8*p7p8*(2*fmc*hbcm3+p2p3s2-p3p4s2)+12*(p4p8*p3p7)*(2*
13575      . fmc*hbcm-hbcm2)+8*(p7p8*p3p4)*(-fmc*hbcm+2*hbcm2)+4*(p3p7*p2p8
13576      . )*(-2*fmc*hbcm-hbcm2)+4*(-4*fmc*hbcm*p1p3*p7p8-2*fmc*hbcm*p1p8
13577      . *p3p7-2*fmc*hbcm*p2p3*p7p8+2*fmc*hbcm*p3p5*p7p8+6*fmc*hbcm*
13578      . p3p7*p5p8-2*hbcm2*p1p2*p7p8-2*hbcm2*p1p4*p7p8-8*hbcm2*p1p8*
13579      . p4p7-2*hbcm2*p2p4*p7p8-7*hbcm2*p2p8*p4p7+hbcm2*p2p8*p5p7+3*
13580      . hbcm2*p4p7*p4p8+12*hbcm2*p4p7*p5p8-5*hbcm2*p4p8*p5p7+2*p1p3*
13581      . p2p3*p7p8-2*p1p3*p3p4*p7p8-2*p1p8*p2p3*p3p7+2*p1p8*p3p4*p3p7-2
13582      . *p2p3*p2p8*p3p7-2*p2p3*p3p5*p7p8-2*p2p3*p3p7*p4p8+2*p2p3*p3p7*
13583      . p5p8+2*p2p8*p3p4*p3p7+2*p3p4*p3p5*p7p8+2*p3p4*p3p7*p4p8-2*p3p4
13584      . *p3p7*p5p8))+ans2
13585       ans=ccc*ans1
13586       b(27)=ans
13587       ans2=w13*(8*(p6p8*p1p3)*(fmc*hbcm+3*hbcm2)+32*(p6p8*p3p4)*(fmb*
13588      . hbcm+fmc*hbcm-hbcm2)+16*(p6p8*p2p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)
13589      . +8*(p3p6*p1p8)*(-3*fmb*hbcm-2*fmc*hbcm)+4*p6p8*(8*fmb*fmc*
13590      . hbcm2+3*fmb2*hbcm2-2*fmc*hbcm3+5*fmc2*hbcm2-3*hbcm4)+8*(-fmb*
13591      . hbcm*p2p8*p3p6-fmb*hbcm*p3p6*p4p8+3*fmb*hbcm*p3p6*p5p8-2*hbcm2
13592      . *p1p8*p4p6-3*p1p3*p1p8*p3p6-2*p1p3*p2p3*p6p8-p1p3*p2p8*p3p6+4*
13593      . p1p3*p3p4*p6p8-p1p3*p3p6*p4p8+3*p1p3*p3p6*p5p8))+(16*p6p8*(3*
13594      . fb3*fmc*hbcm-5*fb4*fmc*hbcm)+32*(3*fb4*p1p8*p3p6+2*fb4*p2p3*
13595      . p6p8+fb4*p2p8*p3p6-4*fb4*p3p4*p6p8+fb4*p3p6*p4p8-3*fb4*p3p6*
13596      . p5p8))
13597       ans1=8*w1*(-3*fmc*hbcm*p1p8*p3p6-2*fmc*hbcm*p2p3*p6p8-fmc*hbcm*
13598      . p2p8*p3p6+4*fmc*hbcm*p3p4*p6p8+fmc*hbcm*p3p6*p4p8+3*fmc*hbcm*
13599      . p3p6*p5p8+2*hbcm2*p2p4*p6p8+2*hbcm2*p4p6*p4p8-3*p1p8*p3p4*p3p6
13600      . -2*p2p3*p3p4*p6p8-p2p8*p3p4*p3p6-p3p4*p3p6*p4p8+3*p3p4*p3p6*
13601      . p5p8+4*p3p4s2*p6p8)+w11*(8*p6p8*(-fmc*hbcm3+2*p2p3s2+4*p3p4s2)
13602      . +8*(p6p8*p3p4)*(4*fmc*hbcm-hbcm2)+8*(p6p8*p2p3)*(-2*fmc*hbcm-
13603      . hbcm2)+8*(fmc*hbcm*p1p3*p6p8-4*fmc*hbcm*p1p8*p3p6-2*fmc*hbcm*
13604      . p2p8*p3p6+2*fmc*hbcm*p3p6*p4p8+4*fmc*hbcm*p3p6*p5p8+hbcm2*p1p2
13605      . *p6p8+hbcm2*p1p4*p6p8-hbcm2*p1p8*p4p6+3*hbcm2*p2p4*p6p8-hbcm2*
13606      . p2p8*p4p6+3*hbcm2*p4p6*p4p8+hbcm2*p4p6*p5p8+3*p1p8*p2p3*p3p6-3
13607      . *p1p8*p3p4*p3p6+p2p3*p2p8*p3p6-6*p2p3*p3p4*p6p8+p2p3*p3p6*p4p8
13608      . -3*p2p3*p3p6*p5p8-p2p8*p3p4*p3p6-p3p4*p3p6*p4p8+3*p3p4*p3p6*
13609      . p5p8))+ans2
13610       ans=ccc*ans1
13611       b(28)=ans
13612       ans2=w13*(8*(p6p7*p1p3)*(-fmc*hbcm-hbcm2)+16*(p4p6*p3p7)*(fmb*
13613      . hbcm+fmc*hbcm-hbcm2)+8*(p4p7*p3p6)*(3*fmb*hbcm+2*fmc*hbcm-2*
13614      . hbcm2)+16*(p6p7*p3p4)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p3p7*p3p6)
13615      . *(4*fmb*fmc-fmb*hbcm-4*fmc*hbcm+4*fmc2)+4*p6p7*(-4*fmb*fmc*
13616      . hbcm2-fmb2*hbcm2+2*fmc*hbcm3-3*fmc2*hbcm2+hbcm4)+(p3p7*p3p6*
13617      . p1p3)*(32*ffmcfmb-8)+8*(-3*fmb*hbcm*p3p6*p5p7-2*p1p3*p3p4*p6p7
13618      . +3*p1p3*p3p6*p4p7-3*p1p3*p3p6*p5p7+2*p1p3*p3p7*p4p6))+((p3p7*
13619      . p3p6)*(-128*fb4*ffmcfmb+32*fb4-16)+4*p6p7*(-8*fb3*fmc*hbcm+8*
13620      . fb4*fmc*hbcm+3*hbcm2)+32*(2*fb4*p3p4*p6p7-3*fb4*p3p6*p4p7+3*
13621      . fb4*p3p6*p5p7-2*fb4*p3p7*p4p6))
13622       ans1=w1*(8*(p3p7*p3p6)*(-fmc*hbcm+6*fmc2)+(p3p7*p3p6*p3p4)*(32*
13623      . ffmcfmb-8)+8*(-2*fmc*hbcm*p3p4*p6p7+3*fmc*hbcm*p3p6*p4p7-3*fmc
13624      . *hbcm*p3p6*p5p7+4*fmc*hbcm*p3p7*p4p6+3*p3p4*p3p6*p4p7-3*p3p4*
13625      . p3p6*p5p7+2*p3p4*p3p7*p4p6-2*p3p4s2*p6p7))+w11*(8*p6p7*(fmc*
13626      . hbcm3-2*p3p4s2)+8*(p6p7*p3p4)*(-2*fmc*hbcm+hbcm2)+16*(p4p7*
13627      . p3p6)*(-fmb*hbcm-hbcm2)+16*(p3p7*p3p6)*(-fmb*fmc-2*fmc*hbcm+2*
13628      . fmc2)+(p3p7*p3p6*p3p4)*(32*ffmcfmb-8)+(p3p7*p3p6*p2p3)*(-32*
13629      . ffmcfmb+8)+8*(-fmc*hbcm*p1p3*p6p7-4*fmc*hbcm*p3p6*p5p7-hbcm2*
13630      . p1p2*p6p7-hbcm2*p1p4*p6p7+hbcm2*p2p3*p6p7-hbcm2*p2p4*p6p7-
13631      . hbcm2*p3p7*p4p6-5*hbcm2*p4p6*p4p7-hbcm2*p4p6*p5p7+2*p2p3*p3p4*
13632      . p6p7-3*p2p3*p3p6*p4p7+3*p2p3*p3p6*p5p7-2*p2p3*p3p7*p4p6+3*p3p4
13633      . *p3p6*p4p7-3*p3p4*p3p6*p5p7+2*p3p4*p3p7*p4p6))+ans2
13634       ans=ccc*ans1
13635       b(29)=ans
13636       ans4=8*(-3*fmc*hbcm2*p1p8*p6p7-5*fmc*hbcm2*p5p7*p6p8+3*fmc*
13637      . hbcm2*p5p8*p6p7-6*fmc*p1p3*p3p7*p6p8+6*fmc*p1p8*p3p6*p3p7+2*
13638      . fmc*p3p5*p3p6*p7p8+8*fmc*p3p5*p3p7*p6p8-10*fmc*p3p6*p3p7*p5p8-
13639      . 2*fmc2*hbcm*p3p6*p7p8+2*hbcm*p1p2*p3p6*p7p8-2*hbcm*p1p2*p3p7*
13640      . p6p8+hbcm*p1p3*p2p8*p6p7-2*hbcm*p1p3*p4p6*p7p8-8*hbcm*p1p3*
13641      . p4p7*p6p8+3*hbcm*p1p3*p4p8*p6p7+2*hbcm*p1p4*p3p6*p7p8-2*hbcm*
13642      . p1p4*p3p7*p6p8-hbcm*p1p8*p2p3*p6p7-3*hbcm*p1p8*p3p4*p6p7+8*
13643      . hbcm*p1p8*p3p6*p4p7+2*hbcm*p1p8*p3p7*p4p6-7*hbcm*p2p3*p4p7*
13644      . p6p8+2*hbcm*p2p3*p4p8*p6p7+hbcm*p2p3*p5p7*p6p8+hbcm*p2p3*p5p8*
13645      . p6p7+2*hbcm*p2p4*p3p6*p7p8-2*hbcm*p2p4*p3p7*p6p8-2*hbcm*p2p8*
13646      . p3p4*p6p7-hbcm*p2p8*p3p5*p6p7+7*hbcm*p2p8*p3p6*p4p7-hbcm*p2p8*
13647      . p3p6*p5p7-2*hbcm*p3p4*p3p6*p7p8+4*hbcm*p3p4*p4p6*p7p8+3*hbcm*
13648      . p3p4*p4p7*p6p8-5*hbcm*p3p4*p5p7*p6p8+3*hbcm*p3p4*p5p8*p6p7+2*
13649      . hbcm*p3p5*p4p6*p7p8+12*hbcm*p3p5*p4p7*p6p8-3*hbcm*p3p5*p4p8*
13650      . p6p7-3*hbcm*p3p6*p4p7*p4p8-12*hbcm*p3p6*p4p7*p5p8+5*hbcm*p3p6*
13651      . p4p8*p5p7-4*hbcm*p3p7*p4p6*p4p8-2*hbcm*p3p7*p4p6*p5p8)
13652       ans3=8*(p4p8*p3p7*p3p6)*(-8*fmc+3*hbcm)+8*(p6p8*p3p7*p3p4)*(8*
13653      . fmc-hbcm)+8*(p3p7*p3p6*p2p8)*(4*fmc+hbcm)+8*(p6p8*p3p7*p2p3)*(
13654      . -8*fmc+hbcm)+16*(p7p8*p3p6*p2p3)*(2*fmc-hbcm)+24*(p6p7*p4p8)*(
13655      . fmc*hbcm2-hbcm3)+16*(p7p8*p4p6)*(fmc*hbcm2+hbcm3)+8*(p6p7*p2p8
13656      . )*(-fmc*hbcm2-hbcm3)+8*(p6p8*p4p7)*(2*fmb*hbcm2-5*fmc*hbcm2+8*
13657      . hbcm3)+8*(p6p8*p3p7)*(2*fmb*fmc*hbcm+3*fmc*hbcm2+4*fmc2*hbcm)+
13658      . ans4
13659       ans2=w11*ans3
13660       ans6=(16*(p7p8*p3p6)*(4*fb4*fmc-hbcm)+16*(p6p8*p3p7)*(-4*fb3*
13661      . fmc+2*fb3*hbcm-4*fb4*fmc+hbcm)+32*(fb3*hbcm*p1p8*p6p7+fb3*hbcm
13662      . *p2p8*p6p7-2*fb3*hbcm*p4p6*p7p8-fb3*hbcm*p4p7*p6p8+fb3*hbcm*
13663      . p4p8*p6p7+3*fb3*hbcm*p5p7*p6p8-fb3*hbcm*p5p8*p6p7))
13664       ans5=w13*(16*(p5p8*p3p7*p3p6)*(fmc-hbcm)+16*(p4p8*p3p7*p3p6)*(-
13665      . fmc+hbcm)+16*(p7p8*p3p6*p3p5)*(-fmc+hbcm)+16*(p7p8*p3p6*p3p4)*
13666      . (fmc-hbcm)+16*(p3p7*p3p6*p2p8)*(-fmc+hbcm)+16*(p7p8*p3p6*p2p3)
13667      . *(fmc-hbcm)+8*(p6p8*p3p7*p1p3)*(2*fmc-hbcm)+8*(p6p7*p5p8)*(-
13668      . fmb*hbcm2-fmc*hbcm2+hbcm3)+24*(p6p8*p5p7)*(fmb*hbcm2+fmc*hbcm2
13669      . -hbcm3)+8*(p6p7*p4p8)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+8*(p6p8*p4p7
13670      . )*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+16*(p7p8*p4p6)*(-fmb*hbcm2-fmc*
13671      . hbcm2+hbcm3)+8*(p6p8*p3p7)*(fmb*hbcm2-fmb2*hbcm-fmc*hbcm2+fmc2
13672      . *hbcm)+8*(p6p7*p2p8)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+8*(p6p7*p1p8)
13673      . *(fmb*hbcm2-fmc*hbcm2)+8*(p7p8*p3p6)*(-2*fmb*fmc*hbcm+fmb2*
13674      . hbcm-2*fmc*hbcm2+fmc2*hbcm+hbcm3)+8*(-2*fmc*p1p3*p3p6*p7p8+
13675      . hbcm*p1p3*p2p8*p6p7-2*hbcm*p1p3*p4p6*p7p8-hbcm*p1p3*p4p7*p6p8+
13676      . hbcm*p1p3*p4p8*p6p7+3*hbcm*p1p3*p5p7*p6p8-hbcm*p1p3*p5p8*p6p7-
13677      . hbcm*p1p8*p2p3*p6p7-hbcm*p1p8*p3p4*p6p7+hbcm*p1p8*p3p5*p6p7+
13678      . hbcm*p1p8*p3p6*p3p7+hbcm*p1p8*p3p6*p4p7-3*hbcm*p1p8*p3p6*p5p7+
13679      . 2*hbcm*p1p8*p3p7*p4p6))+ans6
13680       ans1=w1*(8*(p4p8*p3p7*p3p6)*(-6*fmc+hbcm)+8*(p6p8*p3p7*p3p4)*(8
13681      . *fmc-hbcm)+8*(p6p7*p4p8)*(fmc*hbcm2-hbcm3)+8*(p6p8*p4p7)*(-fmc
13682      . *hbcm2+2*hbcm3)+8*(p6p8*p3p7)*(-fmc*hbcm2+6*fmc2*hbcm)+8*(-fmc
13683      . *hbcm2*p1p8*p6p7-fmc*hbcm2*p2p8*p6p7+2*fmc*hbcm2*p4p6*p7p8-3*
13684      . fmc*hbcm2*p5p7*p6p8+fmc*hbcm2*p5p8*p6p7-2*fmc*p3p4*p3p6*p7p8-2
13685      . *fmc2*hbcm*p3p6*p7p8-2*hbcm*p1p3*p4p7*p6p8+hbcm*p1p3*p4p8*p6p7
13686      . -hbcm*p1p8*p3p4*p6p7+2*hbcm*p1p8*p3p6*p4p7-2*hbcm*p2p3*p4p7*
13687      . p6p8+hbcm*p2p3*p4p8*p6p7-hbcm*p2p8*p3p4*p6p7+2*hbcm*p2p8*p3p6*
13688      . p4p7+2*hbcm*p3p4*p4p6*p7p8+3*hbcm*p3p4*p4p7*p6p8-3*hbcm*p3p4*
13689      . p5p7*p6p8+hbcm*p3p4*p5p8*p6p7+2*hbcm*p3p5*p4p7*p6p8-hbcm*p3p5*
13690      . p4p8*p6p7-3*hbcm*p3p6*p4p7*p4p8-2*hbcm*p3p6*p4p7*p5p8+3*hbcm*
13691      . p3p6*p4p8*p5p7-2*hbcm*p3p7*p4p6*p4p8))+ans2+ans5
13692       ans=ccc*ans1
13693       b(30)=ans
13694       ans2=((p6p8*p3p7)*(-64*fb4*ffmcfmb-64*fb4-8)+(p7p8*p3p6)*(-64*
13695      . fb4*ffmcfmb-8)+64*(-fb4*p4p6*p7p8-3*fb4*p4p7*p6p8+fb4*p4p8*
13696      . p6p7))
13697       ans1=w1*(16*(p6p8*p3p7)*(fmc*hbcm+2*fmc2)+(p6p8*p3p7*p3p4)*(16*
13698      . ffmcfmb+16)+16*(ffmcfmb*p3p4*p3p6*p7p8+fmc*hbcm*p4p6*p7p8+4*
13699      . fmc*hbcm*p4p7*p6p8-fmc*hbcm*p4p8*p6p7+fmc2*p3p6*p7p8+p3p4*p4p6
13700      . *p7p8+3*p3p4*p4p7*p6p8-p3p4*p4p8*p6p7))+w11*(16*(p6p8*p4p7)*(-
13701      . fmb*hbcm+3*fmc*hbcm)+16*(p6p8*p3p7)*(-fmb*fmc+fmc*hbcm+fmc2)+(
13702      . p6p8*p3p7*p3p4)*(16*ffmcfmb+16)+(p6p8*p3p7*p2p3)*(-16*ffmcfmb-
13703      . 16)+16*(-ffmcfmb*p2p3*p3p6*p7p8+ffmcfmb*p3p4*p3p6*p7p8+fmc*
13704      . hbcm*p4p6*p7p8-fmc*hbcm*p4p8*p6p7+fmc2*p3p6*p7p8-p2p3*p4p6*
13705      . p7p8-3*p2p3*p4p7*p6p8+p2p3*p4p8*p6p7+p3p4*p4p6*p7p8+3*p3p4*
13706      . p4p7*p6p8-p3p4*p4p8*p6p7))+w13*(16*(p6p7*p4p8)*(-fmb*hbcm-fmc*
13707      . hbcm+hbcm2)+48*(p6p8*p4p7)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p7p8*
13708      . p4p6)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p8*p3p7)*(fmb*fmc+fmb*
13709      . hbcm+fmc2-hbcm2)+16*(p7p8*p3p6)*(fmb*fmc-fmc*hbcm+fmc2)+(p6p8*
13710      . p3p7*p1p3)*(16*ffmcfmb+16)+16*(ffmcfmb*p1p3*p3p6*p7p8+p1p3*
13711      . p4p6*p7p8+3*p1p3*p4p7*p6p8-p1p3*p4p8*p6p7))+ans2
13712       ans=ccc*ans1
13713       b(31)=ans
13714       b(32)=ccc*(16*w1*(fmc*p3p4*p6p7-fmc*p3p6*p4p7+fmc*p3p7*p4p6+
13715      . fmc2*hbcm*p6p7)+w13*(24*(p5p7*p3p6)*(fmc-hbcm)+24*(p4p7*p3p6)*
13716      . (-fmc+hbcm)+8*(p6p7*p1p3)*(fmc-hbcm)+4*p6p7*(-fmb2*hbcm-2*fmc*
13717      . hbcm2+fmc2*hbcm+hbcm3)+8*(p3p7*p3p6)*(-2*ffmcfmb*fmc+3*fmc-
13718      . hbcm))+w11*(8*(p4p6*p3p7)*(-4*fmc-hbcm)+8*(p4p7*p3p6)*(-5*fmc-
13719      . 2*hbcm)+8*(p6p7*p3p4)*(2*fmc+hbcm)+8*(p6p7*p2p3)*(-2*fmc+hbcm)
13720      . +8*p6p7*(fmc*hbcm2+2*fmc2*hbcm)+8*(p3p7*p3p6)*(-2*ffmcfmb*fmc-
13721      . 3*fmc)+8*(-fmc*p1p3*p6p7-fmc*p3p6*p5p7-hbcm*p1p2*p6p7-hbcm*
13722      . p1p4*p6p7-hbcm*p2p4*p6p7-7*hbcm*p4p6*p4p7-hbcm*p4p6*p5p7))+4*
13723      . p6p7*(-8*fb3*fmc-8*fb4*fmc+5*hbcm))
13724       do 200 n=1,32
13725          c(n,1)=c(n,1)-0.1818181818181818d0*b(n)
13726          c(n,2)=c(n,2)-0.1512818716977898d0*b(n)
13727          c(n,3)=c(n,3)-0.1869893980016914d0*b(n)
13728 200   continue
13729       return
13730         end
13731
13732       subroutine amp32_3p1(cc)
13733       implicit double precision(a-h,o-z)
13734       implicit integer (i-n)
13735       dimension b(32)
13736 #include "inclcon.h"
13737 #include "inclppp.h"
13738 #include "inclamp.h"
13739       do 100 n=1,32
13740          b(n)=0.0d0
13741 100   continue
13742       ccc=cc/((-2*ffmcfmb*p1p3)*(-2*ffmcfmb*p3p5+fmb2-2*fmc*hbcm+fmc2
13743      . +hbcm2+2*p3p5)*(-2*ffmcfmb*p1p3+2*ffmcfmb*p3p4+2*fmc2-2*p1p4))
13744       ans2=w12*(4*p3p6*(fmb2*fmc+fmc*hbcm2-2*fmc2*hbcm-fmc3)+4*(p5p6*
13745      . p1p3)*(-fmb+fmc+hbcm)+4*(p3p6*p1p3)*(ffmcfmb*fmb+ffmcfmb*fmc-
13746      . fmb+hbcm)+8*(-fmc*p1p2*p3p6+fmc*p1p4*p3p6-fmc*p1p5*p3p6+fmc*
13747      . p2p3*p3p6+2*fmc*p2p5*p3p6-fmc*p3p4*p3p6+fmc*p3p5*p3p6))+(16*
13748      . p5p6*(-fb3*fmc+fb3*hbcm-fb4*fmb)+2*p3p6*(8*fb3*ffmcfmb*fmc-16*
13749      . fb3*fmc+8*fb3*hbcm+8*fb4*ffmcfmb*fmb-8*fb4*fmb+fmb-fmc-5*hbcm)
13750      . -24*hbcm*p4p6)
13751       ans1=w2*(4*(p5p6*p3p5)*(-fmb+fmc-hbcm)+4*p5p6*(fmb*fmc*hbcm-fmb
13752      . *hbcm2-fmb2*hbcm)+4*p3p6*(2*fmb*fmc*hbcm-fmb*fmc2-fmb*hbcm2+
13753      . fmb2*fmc-fmb2*hbcm)+4*(p3p6*p3p5)*(ffmcfmb*fmb+ffmcfmb*fmc-fmb
13754      . +2*fmc-hbcm)+8*(-fmc*p1p5*p3p6+fmc*p2p5*p3p6+fmc*p3p5*p4p6+fmc
13755      . *p3p6*p4p5-hbcm*p1p5*p4p6+hbcm*p2p5*p4p6+hbcm*p4p5*p4p6))+w5*(
13756      . 4*p4p6*(fmb2*hbcm-2*fmc*hbcm2-fmc2*hbcm+hbcm3)+4*(p5p6*p3p4)*(
13757      . fmb-fmc-hbcm)+4*(p5p6*p1p3)*(-fmb+fmc+hbcm)+4*p5p6*(fmb*fmc*
13758      . hbcm-fmc*hbcm2-fmc2*hbcm)+4*p3p6*(fmb*fmc*hbcm-fmb*fmc2+fmb2*
13759      . fmc-2*fmc2*hbcm)+4*(p3p6*p3p4)*(-ffmcfmb*fmb-ffmcfmb*fmc+fmb-
13760      . hbcm)+4*(p3p6*p1p3)*(ffmcfmb*fmb+ffmcfmb*fmc-fmb+hbcm)+8*(-fmc
13761      . *p1p2*p3p6+fmc*p1p3*p4p6-fmc*p1p5*p3p6+fmc*p2p3*p3p6+fmc*p2p4*
13762      . p3p6+2*fmc*p2p5*p3p6-fmc*p3p4*p4p6+fmc*p3p5*p3p6+fmc*p3p6*p4p5
13763      . -hbcm*p1p2*p4p6+hbcm*p1p4*p3p6+hbcm*p1p4*p4p6+hbcm*p1p4*p5p6-
13764      . hbcm*p1p5*p4p6+hbcm*p2p3*p4p6+hbcm*p2p4*p4p6+2*hbcm*p2p5*p4p6+
13765      . hbcm*p3p5*p4p6+hbcm*p4p5*p4p6))+ans2
13766       ans=ccc*ans1
13767       b(1)=ans
13768       ans4=8*(-fmc*hbcm*p1p2*p6p7+fmc*hbcm*p2p3*p6p7+fmc*hbcm*p2p4*
13769      . p6p7+fmc*hbcm*p5p6*p5p7+p1p2*p1p3*p6p7-p1p2*p3p4*p6p7+p1p3*
13770      . p1p4*p6p7-p1p3*p2p3*p6p7-p1p3*p2p4*p6p7-2*p1p3*p3p4*p6p7+3*
13771      . p1p3*p4p6*p4p7-2*p1p3*p4p6*p5p7-p1p3*p5p6*p5p7-p1p4*p3p4*p6p7+
13772      . p2p3*p3p4*p6p7+p2p4*p3p4*p6p7-3*p3p4*p4p6*p4p7+2*p3p4*p4p6*
13773      . p5p7+p3p4*p5p6*p5p7)
13774       ans3=8*(p5p7*p4p6)*(-2*fmb*hbcm+fmc*hbcm+hbcm2)+8*(p4p7*p4p6)*(
13775      . 2*fmb*hbcm-2*fmc*hbcm-hbcm2)+8*(p6p7*p1p4)*(-fmb*hbcm-2*fmc*
13776      . hbcm+hbcm2)+8*p6p7*(fmb*fmc2*hbcm+fmc3*hbcm+p1p3s2+p3p4s2)+8*(
13777      . p4p6*p3p7)*(4*fmb*fmc-2*fmb*hbcm-2*fmc*hbcm-2*fmc2+hbcm2)+8*(
13778      . p5p7*p3p6)*(-fmb*fmc+2*fmc*hbcm-fmc2)+8*(p4p7*p3p6)*(fmb*fmc-
13779      . fmc*hbcm-fmc2)+8*(p6p7*p3p4)*(fmb*fmc+fmc*hbcm+fmc2)+8*(p6p7*
13780      . p1p3)*(-fmb*fmc-fmc*hbcm-fmc2)+(p4p6*p3p7*p3p4)*(-32*ffmcfmb+8
13781      . )+(p5p7*p3p6*p3p4)*(-8*ffmcfmb+16)+(p4p7*p3p6*p3p4)*(-8*
13782      . ffmcfmb-8)+(p3p7*p3p6*p3p4)*(-24*ffmcfmb+8)+(p4p6*p3p7*p1p3)*(
13783      . 32*ffmcfmb-8)+(p5p7*p3p6*p1p3)*(8*ffmcfmb-16)+(p4p7*p3p6*p1p3)
13784      . *(8*ffmcfmb+8)+(p3p7*p3p6*p1p3)*(24*ffmcfmb-8)+8*(p3p7*p3p6)*(
13785      . 2*ffmcfmb*fmb*fmc-fmb*fmc+fmc*hbcm-3*fmc2)+ans4
13786       ans2=w5*ans3
13787       ans6=w12*(8*(p5p7*p3p6)*(-fmb*fmc-fmc2)+8*(p4p7*p3p6)*(2*fmb*
13788      . fmc-fmc*hbcm+2*fmc2)+8*(p6p7*p1p3)*(-fmb*fmc-fmc2)+(p4p6*p3p7*
13789      . p1p3)*(32*ffmcfmb-8)+(p5p7*p3p6*p1p3)*(8*ffmcfmb-16)+(p4p7*
13790      . p3p6*p1p3)*(8*ffmcfmb+8)+(p3p7*p3p6*p1p3)*(24*ffmcfmb-8)+8*(
13791      . p3p7*p3p6)*(2*ffmcfmb*fmb*fmc+2*ffmcfmb*fmc2-fmb*fmc-fmc2)+8*(
13792      . p1p2*p1p3*p6p7+p1p3*p1p4*p6p7-p1p3*p2p3*p6p7-p1p3*p2p4*p6p7-
13793      . p1p3*p3p4*p6p7+3*p1p3*p4p6*p4p7-2*p1p3*p4p6*p5p7-p1p3*p5p6*
13794      . p5p7+p1p3s2*p6p7))+(4*p6p7*(-8*fb4*fmc*hbcm+fmb*hbcm+fmc*hbcm-
13795      . hbcm2)+(p4p6*p3p7)*(128*fb4*ffmcfmb-32*fb4+16)+(p5p7*p3p6)*(32
13796      . *fb4*ffmcfmb-64*fb4+4)+(p4p7*p3p6)*(32*fb4*ffmcfmb+32*fb4+4)+(
13797      . p3p7*p3p6)*(96*fb4*ffmcfmb-32*fb4+12)+32*(fb4*p1p2*p6p7+fb4*
13798      . p1p3*p6p7+fb4*p1p4*p6p7-fb4*p2p3*p6p7-fb4*p2p4*p6p7-fb4*p3p4*
13799      . p6p7+3*fb4*p4p6*p4p7-2*fb4*p4p6*p5p7-fb4*p5p6*p5p7))
13800       ans5=w2*(8*(p5p6*p4p7)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p5p7*p4p6)*
13801      . (-2*fmb*hbcm+fmc*hbcm-hbcm2)+8*(p6p7*p4p5)*(-fmb*hbcm-fmc*hbcm
13802      . +hbcm2)+8*(p5p7*p3p6)*(-fmb*hbcm+fmc*hbcm-hbcm2)+8*(p6p7*p2p5)
13803      . *(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p6p7*p1p5)*(fmb*hbcm+fmc*hbcm-
13804      . hbcm2)+8*(p5p6*p3p7)*(2*fmb*fmc-fmb*hbcm-3*fmc*hbcm+2*fmc2+
13805      . hbcm2)+16*(p4p6*p3p7)*(3*fmb*fmc-fmb*hbcm)+8*(p4p7*p3p6)*(2*
13806      . fmb*fmc+fmb*hbcm)+8*(p6p7*p3p5)*(-fmb*fmc-fmc2)+(p4p6*p3p7*
13807      . p3p5)*(32*ffmcfmb-8)+(p5p7*p3p6*p3p5)*(8*ffmcfmb-16)+(p4p7*
13808      . p3p6*p3p5)*(8*ffmcfmb+8)+(p3p7*p3p6*p3p5)*(24*ffmcfmb-8)+8*(
13809      . p3p7*p3p6)*(2*ffmcfmb*fmb*fmc+2*fmb*fmc-fmb*hbcm)+8*(-fmb*fmc*
13810      . hbcm2*p6p7+fmb*hbcm*p1p2*p6p7+fmb*hbcm*p1p3*p6p7+fmb*hbcm*p1p4
13811      . *p6p7-fmb*hbcm*p2p3*p6p7-fmb*hbcm*p2p4*p6p7-fmb*hbcm*p3p4*p6p7
13812      . +4*fmb*hbcm*p4p6*p4p7-fmb*hbcm*p5p6*p5p7+p1p2*p3p5*p6p7+p1p3*
13813      . p3p5*p6p7+p1p4*p3p5*p6p7-p2p3*p3p5*p6p7-p2p4*p3p5*p6p7-p3p4*
13814      . p3p5*p6p7+3*p3p5*p4p6*p4p7-2*p3p5*p4p6*p5p7-p3p5*p5p6*p5p7))+
13815      . ans6
13816       ans1=ans2+ans5
13817       ans=ccc*ans1
13818       b(2)=ans
13819       ans4=8*(-fmc*hbcm2*p5p8*p6p7+2*fmc*p1p5*p3p6*p7p8-2*fmc*p2p5*
13820      . p3p6*p7p8+2*fmc*p2p8*p3p5*p6p7-2*fmc*p3p5*p5p8*p6p7-2*fmc*p3p6
13821      . *p4p5*p7p8+hbcm*p1p3*p5p8*p6p7+hbcm*p1p4*p5p8*p6p7-2*hbcm*p1p5
13822      . *p2p8*p6p7+2*hbcm*p1p5*p4p6*p7p8+2*hbcm*p1p5*p5p8*p6p7+2*hbcm*
13823      . p2p5*p2p8*p6p7-2*hbcm*p2p5*p4p6*p7p8-hbcm*p2p5*p5p8*p6p7+2*
13824      . hbcm*p2p8*p4p5*p6p7+2*hbcm*p2p8*p4p6*p5p7-2*hbcm*p2p8*p4p7*
13825      . p5p6-hbcm*p3p4*p5p8*p6p7-2*hbcm*p4p5*p4p6*p7p8-2*hbcm*p4p5*
13826      . p5p8*p6p7+4*hbcm*p4p6*p4p7*p5p8-hbcm*p4p6*p5p7*p5p8+2*hbcm*
13827      . p4p7*p5p6*p5p8-hbcm*p5p6*p5p7*p5p8)
13828       ans3=16*(p5p8*p5p6*p3p7)*(2*fmc-hbcm)+16*(p5p8*p4p6*p3p7)*(3*
13829      . fmc-hbcm)+8*(p5p8*p4p7*p3p6)*(2*fmc+hbcm)+16*(p5p6*p3p7*p2p8)*
13830      . (-2*fmc+hbcm)+16*(p5p7*p3p6*p2p8)*(2*fmc-hbcm)+8*(p6p8*p5p7*
13831      . p3p5)*(fmb-fmc+hbcm)+8*(p6p7*p4p8*p3p5)*(fmb-fmc+hbcm)+8*(p6p8
13832      . *p4p7*p3p5)*(-fmb+fmc-hbcm)+8*(p7p8*p4p6*p3p5)*(-fmb-fmc-hbcm)
13833      . +8*(p6p7*p3p5*p1p8)*(-fmb+fmc-hbcm)+8*(p6p8*p5p7)*(-fmb*fmc*
13834      . hbcm+fmb*hbcm2+fmb2*hbcm)+8*(p6p7*p4p8)*(-fmb*fmc*hbcm+fmb*
13835      . hbcm2+fmb2*hbcm)+8*(p6p8*p4p7)*(fmb*fmc*hbcm-fmb*hbcm2-fmb2*
13836      . hbcm)+8*(p7p8*p4p6)*(fmb*fmc*hbcm-fmb*hbcm2-fmb2*hbcm)+8*(p6p8
13837      . *p3p7)*(-3*fmb*fmc*hbcm+2*fmb*fmc2+fmb*hbcm2-2*fmb2*fmc+fmb2*
13838      . hbcm)+8*(p7p8*p3p6)*(-fmb*fmc*hbcm+fmb*fmc2-fmb2*fmc)+8*(p6p7*
13839      . p1p8)*(fmb*fmc*hbcm-fmb*hbcm2-fmb2*hbcm)+8*(p5p8*p3p7*p3p6)*(2
13840      . *ffmcfmb*fmc+2*fmc-hbcm)+8*(p6p8*p3p7*p3p5)*(-2*ffmcfmb*fmb+2*
13841      . ffmcfmb*fmc+fmb-3*fmc+hbcm)+8*(p7p8*p3p6*p3p5)*(-ffmcfmb*fmb-
13842      . ffmcfmb*fmc-fmc)+ans4
13843       ans2=w2*ans3
13844       ans7=16*(p3p7*p3p6*p2p8)*(-2*ffmcfmb*fmc+fmc)+8*(p3p7*p3p6*p1p8
13845      . )*(-2*ffmcfmb*fmc+hbcm)+8*(p6p8*p3p7*p3p4)*(2*ffmcfmb*fmb-2*
13846      . ffmcfmb*fmc-fmb-fmc+hbcm)+8*(p7p8*p3p6*p3p4)*(ffmcfmb*fmb+
13847      . ffmcfmb*fmc+fmc)+8*(p6p8*p3p7*p1p3)*(-2*ffmcfmb*fmb+2*ffmcfmb*
13848      . fmc+fmb+fmc-hbcm)+8*(p7p8*p3p6*p1p3)*(-ffmcfmb*fmb-ffmcfmb*fmc
13849      . -fmc)+8*(2*fmc*p1p3*p2p8*p6p7-2*fmc*p1p3*p5p8*p6p7-2*fmc*p1p4*
13850      . p3p6*p7p8-2*fmc*p2p5*p3p6*p7p8-2*fmc*p2p8*p3p4*p6p7-2*fmc*p2p8
13851      . *p3p6*p4p7+6*fmc*p2p8*p3p6*p5p7+2*fmc*p3p4*p5p8*p6p7+2*fmc*
13852      . p3p6*p4p7*p5p8-2*fmc*p3p6*p5p7*p5p8-2*fmc2*hbcm*p2p8*p6p7+2*
13853      . fmc2*hbcm*p5p8*p6p7+hbcm*p1p4*p1p8*p6p7+2*hbcm*p1p4*p2p8*p6p7-
13854      . 2*hbcm*p1p4*p4p6*p7p8+2*hbcm*p1p4*p4p7*p6p8-hbcm*p1p4*p4p8*
13855      . p6p7-2*hbcm*p1p4*p5p7*p6p8-2*hbcm*p1p4*p5p8*p6p7-hbcm*p1p8*
13856      . p2p5*p6p7-hbcm*p1p8*p3p6*p4p7-2*hbcm*p1p8*p4p6*p4p7+5*hbcm*
13857      . p1p8*p4p6*p5p7+hbcm*p1p8*p5p6*p5p7-2*hbcm*p2p5*p4p6*p7p8+hbcm*
13858      . p2p5*p4p8*p6p7-4*hbcm*p2p8*p4p6*p4p7+8*hbcm*p2p8*p4p6*p5p7+
13859      . hbcm*p3p6*p4p7*p4p8+2*hbcm*p4p6*p4p7*p4p8+4*hbcm*p4p6*p4p7*
13860      . p5p8-5*hbcm*p4p6*p4p8*p5p7-4*hbcm*p4p6*p5p7*p5p8-hbcm*p4p8*
13861      . p5p6*p5p7)
13862       ans6=32*(p5p8*p4p6*p3p7)*(2*fmc-hbcm)+16*(p4p8*p4p6*p3p7)*(3*
13863      . fmc-2*hbcm)+16*(p5p7*p4p8*p3p6)*(-fmc-hbcm)+32*(p4p6*p3p7*p2p8
13864      . )*(-2*fmc+hbcm)+16*(p4p6*p3p7*p1p8)*(-3*fmc+2*hbcm)+16*(p5p7*
13865      . p3p6*p1p8)*(fmc+hbcm)+16*(p6p8*p3p7*p1p4)*(2*fmc-hbcm)+8*(p6p8
13866      . *p5p7*p3p4)*(-fmb+fmc+hbcm)+8*(p6p7*p4p8*p3p4)*(-fmb+fmc)+8*(
13867      . p6p8*p4p7*p3p4)*(fmb-fmc-hbcm)+8*(p7p8*p4p6*p3p4)*(fmb+fmc+
13868      . hbcm)+8*(p6p7*p3p4*p1p8)*(fmb-fmc)+8*(p6p8*p5p7*p1p3)*(fmb-fmc
13869      . -hbcm)+8*(p6p7*p4p8*p1p3)*(fmb-fmc)+8*(p6p8*p4p7*p1p3)*(-fmb+
13870      . fmc+hbcm)+8*(p7p8*p4p6*p1p3)*(-fmb-fmc-hbcm)+8*(p6p7*p1p8*p1p3
13871      . )*(-fmb+fmc)+8*(p7p8*p3p6)*(fmb*fmc2+fmc2*hbcm+fmc3)+8*(p6p8*
13872      . p5p7)*(-fmb*fmc*hbcm+fmc*hbcm2+fmc2*hbcm)+8*(p6p7*p4p8)*(-fmb*
13873      . fmc*hbcm+fmc2*hbcm)+8*(p6p8*p4p7)*(fmb*fmc*hbcm-fmc*hbcm2-fmc2
13874      . *hbcm)+8*(p7p8*p4p6)*(fmb*fmc*hbcm+fmc*hbcm2+fmc2*hbcm)+8*(
13875      . p6p8*p3p7)*(-fmb*fmc*hbcm+2*fmb*fmc2+fmc*hbcm2-fmc2*hbcm-2*
13876      . fmc3)+8*(p6p7*p1p8)*(fmb*fmc*hbcm-fmc2*hbcm)+16*(p5p8*p3p7*
13877      . p3p6)*(2*ffmcfmb*fmc-fmc)+8*(p4p8*p3p7*p3p6)*(2*ffmcfmb*fmc-
13878      . hbcm)+ans7
13879       ans5=w5*ans6
13880       ans9=(8*(p6p8*p5p7)*(4*fb3*fmc-4*fb3*hbcm+4*fb4*fmb-3*hbcm)+32*
13881      . (p6p7*p4p8)*(fb3*fmc-fb3*hbcm+fb4*fmb)+32*(p6p8*p4p7)*(-fb3*
13882      . fmc+fb3*hbcm-fb4*fmb)+16*(p7p8*p4p6)*(-2*fb3*fmc+2*fb3*hbcm-2*
13883      . fb4*fmb+hbcm)+32*(p6p7*p1p8)*(-fb3*fmc+fb3*hbcm-fb4*fmb)+8*(
13884      . p6p8*p3p7)*(-8*fb3*ffmcfmb*fmc+12*fb3*fmc-4*fb3*hbcm-8*fb4*
13885      . ffmcfmb*fmb+4*fb4*fmb-fmb+2*fmc-2*hbcm)+4*(p7p8*p3p6)*(-8*fb3*
13886      . ffmcfmb*fmc+8*fb3*fmc-8*fb4*ffmcfmb*fmb-fmb-fmc+3*hbcm)+8*(-
13887      . hbcm*p2p8*p6p7+hbcm*p5p8*p6p7))
13888       ans8=w12*(16*(p5p7*p3p6*p1p8)*(fmc+hbcm)+8*(p4p7*p3p6*p1p8)*(-2
13889      . *fmc-hbcm)+8*(p6p8*p5p7*p1p3)*(fmb-fmc-hbcm)+8*(p6p7*p4p8*p1p3
13890      . )*(fmb-fmc-hbcm)+8*(p6p8*p4p7*p1p3)*(-fmb+fmc+hbcm)+8*(p7p8*
13891      . p4p6*p1p3)*(-fmb-fmc+hbcm)+8*(p6p7*p1p8*p1p3)*(-fmb+fmc)+16*(
13892      . p5p8*p3p7*p3p6)*(2*ffmcfmb*fmc-fmc)+16*(p3p7*p3p6*p2p8)*(-2*
13893      . ffmcfmb*fmc+fmc)+8*(p3p7*p3p6*p1p8)*(-2*ffmcfmb*fmc+hbcm)+8*(
13894      . p6p8*p3p7*p1p3)*(-2*ffmcfmb*fmb+2*ffmcfmb*fmc+fmb+fmc-hbcm)+8*
13895      . (p7p8*p3p6*p1p3)*(-ffmcfmb*fmb-ffmcfmb*fmc-fmc)+8*(fmc*hbcm2*
13896      . p1p8*p6p7+2*fmc*p1p3*p2p8*p6p7-2*fmc*p1p3*p5p8*p6p7-2*fmc*p1p4
13897      . *p3p6*p7p8-2*fmc*p1p8*p3p7*p4p6-2*fmc*p2p5*p3p6*p7p8-4*fmc*
13898      . p2p8*p3p6*p4p7+6*fmc*p2p8*p3p6*p5p7+2*fmc*p3p4*p3p6*p7p8-2*fmc
13899      . *p3p6*p3p7*p4p8+4*fmc*p3p6*p4p7*p5p8-2*fmc*p3p6*p4p8*p5p7-2*
13900      . fmc*p3p6*p5p7*p5p8+2*fmc2*hbcm*p3p6*p7p8-hbcm*p1p4*p1p8*p6p7-
13901      . hbcm*p1p8*p2p5*p6p7+hbcm*p1p8*p3p4*p6p7-2*hbcm*p1p8*p4p6*p4p7+
13902      . hbcm*p1p8*p4p6*p5p7+hbcm*p1p8*p5p6*p5p7))+ans9
13903       ans1=ans2+ans5+ans8
13904       ans=ccc*ans1
13905       b(3)=ans
13906       ans2=w5*(8*(p3p7*p1p4)*(4*fmc-hbcm)+4*(p5p7*p3p4)*(-2*fmb+5*
13907      . hbcm)+4*(p4p7*p3p4)*(3*fmb-3*fmc-2*hbcm)+4*(p5p7*p1p3)*(2*fmb-
13908      . 2*fmc-hbcm)+12*(p4p7*p1p3)*(-fmb+fmc)+4*p5p7*(-3*fmb*fmc*hbcm+
13909      . 2*fmc*hbcm2+3*fmc2*hbcm)+4*p4p7*(4*fmb*fmc*hbcm-fmc*hbcm2-4*
13910      . fmc2*hbcm)+4*p3p7*(-3*fmb*fmc*hbcm+6*fmb*fmc2+2*fmc*hbcm2-3*
13911      . fmc2*hbcm-6*fmc3)+4*(p3p7*p3p4)*(4*ffmcfmb*fmb-4*ffmcfmb*fmc-2
13912      . *fmb-6*fmc+3*hbcm)+4*(p3p7*p1p3)*(-4*ffmcfmb*fmb+4*ffmcfmb*fmc
13913      . +2*fmb+2*fmc-hbcm)+8*(2*hbcm*p1p4*p4p7-2*hbcm*p1p4*p5p7+hbcm*
13914      . p2p4*p5p7-hbcm*p2p5*p4p7+hbcm*p4p5*p5p7))+w12*(4*(p5p7*p1p3)*(
13915      . 2*fmb-2*fmc-hbcm)+4*(p4p7*p1p3)*(-3*fmb+3*fmc+2*hbcm)+4*(p3p7*
13916      . p1p3)*(-4*ffmcfmb*fmb+4*ffmcfmb*fmc+2*fmb+2*fmc-hbcm))+(8*p5p7
13917      . *(2*fb3*fmc-2*fb3*hbcm+4*fb4*fmb-2*fb4*fmc-3*hbcm)+16*p4p7*(-2
13918      . *fb3*fmc+2*fb3*hbcm-3*fb4*fmb+fb4*fmc)+8*p3p7*(-4*fb3*ffmcfmb*
13919      . fmc+6*fb3*fmc-2*fb3*hbcm-8*fb4*ffmcfmb*fmb+4*fb4*ffmcfmb*fmc+4
13920      . *fb4*fmb-2*fb4*fmc-fmb+fmc-hbcm))
13921       ans1=w2*(16*(p3p7*p1p5)*(fmc-hbcm)+8*(p5p7*p1p3)*(-fmc+hbcm)+4*
13922      . (p5p7*p3p5)*(2*fmb+hbcm)+4*(p4p7*p3p5)*(-3*fmb+3*fmc-4*hbcm)+4
13923      . *p5p7*(-3*fmb*fmc*hbcm+2*fmb*hbcm2+2*fmb2*hbcm+fmc2*hbcm-hbcm3
13924      . )+4*p4p7*(4*fmb*fmc*hbcm-3*fmb*hbcm2-4*fmb2*hbcm)+4*p3p7*(-7*
13925      . fmb*fmc*hbcm+6*fmb*fmc2+2*fmb*hbcm2-6*fmb2*fmc+3*fmb2*hbcm)+4*
13926      . (p3p7*p3p5)*(-4*ffmcfmb*fmb+4*ffmcfmb*fmc+2*fmb-6*fmc+3*hbcm)+
13927      . 8*(hbcm*p1p2*p5p7+hbcm*p1p5*p4p7-hbcm*p1p5*p5p7-hbcm*p2p3*p5p7
13928      . +hbcm*p2p5*p3p7+hbcm*p3p7*p4p5+hbcm*p4p5*p5p7))+ans2
13929       ans=ccc*ans1
13930       b(4)=ans
13931       ans4=8*(-fmc*hbcm*p2p5*p7p8-4*fmc*hbcm*p2p8*p4p7+5*fmc*hbcm*
13932      . p2p8*p5p7+4*fmc*hbcm*p4p7*p5p8-3*fmc*hbcm*p5p7*p5p8+p1p3*p1p4*
13933      . p7p8+p1p3*p1p8*p4p7-2*p1p3*p1p8*p5p7+p1p3*p2p5*p7p8+3*p1p3*
13934      . p2p8*p4p7-4*p1p3*p2p8*p5p7-2*p1p3*p3p4*p7p8+p1p3*p3p7*p4p8-3*
13935      . p1p3*p4p7*p5p8+p1p3*p4p8*p5p7+2*p1p3*p5p7*p5p8-p1p4*p3p4*p7p8-
13936      . p1p8*p3p4*p4p7+2*p1p8*p3p4*p5p7-p2p5*p3p4*p7p8-3*p2p8*p3p4*
13937      . p4p7+4*p2p8*p3p4*p5p7-p3p4*p3p7*p4p8+3*p3p4*p4p7*p5p8-p3p4*
13938      . p4p8*p5p7-2*p3p4*p5p7*p5p8)
13939       ans3=24*(p5p8*p3p7)*(-fmc*hbcm+2*fmc2)+24*(p3p7*p2p8)*(fmc*hbcm
13940      . -2*fmc2)+4*(p4p7*p1p8)*(-2*fmc*hbcm-hbcm2)+4*(p5p7*p4p8)*(-3*
13941      . fmb*hbcm-5*fmc*hbcm+2*hbcm2)+4*(p4p8*p4p7)*(2*fmb*hbcm+2*fmc*
13942      . hbcm-hbcm2)+4*(p5p7*p1p8)*(fmb*hbcm+5*fmc*hbcm)+8*(p7p8*p1p4)*
13943      . (-fmb*hbcm-2*fmc*hbcm+hbcm2)+8*p7p8*(fmb*fmc2*hbcm+fmc3*hbcm+
13944      . p1p3s2+p3p4s2)+4*(p4p8*p3p7)*(6*fmb*fmc-3*fmb*hbcm-9*fmc*hbcm+
13945      . 6*fmc2+2*hbcm2)+8*(p7p8*p3p4)*(fmb*fmc+fmc*hbcm+fmc2)+4*(p3p7*
13946      . p1p8)*(-2*fmb*fmc+fmb*hbcm+5*fmc*hbcm-6*fmc2)+8*(p7p8*p1p3)*(-
13947      . fmb*fmc-fmc*hbcm-fmc2)+(p5p8*p3p7*p3p4)*(32*ffmcfmb-16)+(p3p7*
13948      . p3p4*p2p8)*(-32*ffmcfmb+16)+(p3p7*p3p4*p1p8)*(-16*ffmcfmb+16)+
13949      . (p5p8*p3p7*p1p3)*(-32*ffmcfmb+16)+(p3p7*p2p8*p1p3)*(32*ffmcfmb
13950      . -16)+(p3p7*p1p8*p1p3)*(16*ffmcfmb-16)+ans4
13951       ans2=w5*ans3
13952       ans5=w12*(4*(p5p7*p1p8)*(fmb*hbcm+fmc*hbcm)+4*(p4p7*p1p8)*(-2*
13953      . fmb*hbcm-2*fmc*hbcm+hbcm2)+4*(p3p7*p1p8)*(-2*fmb*fmc+fmb*hbcm+
13954      . fmc*hbcm-2*fmc2)+8*(p7p8*p1p3)*(-fmb*fmc-fmc2)+(p5p8*p3p7*p1p3
13955      . )*(-32*ffmcfmb+16)+(p3p7*p2p8*p1p3)*(32*ffmcfmb-16)+(p3p7*p1p8
13956      . *p1p3)*(16*ffmcfmb-16)+8*(p1p3*p1p4*p7p8+p1p3*p1p8*p4p7-2*p1p3
13957      . *p1p8*p5p7+p1p3*p2p5*p7p8+3*p1p3*p2p8*p4p7-4*p1p3*p2p8*p5p7-
13958      . p1p3*p3p4*p7p8+p1p3*p3p7*p4p8-3*p1p3*p4p7*p5p8+p1p3*p4p8*p5p7+
13959      . 2*p1p3*p5p7*p5p8+p1p3s2*p7p8))+(4*p7p8*(-8*fb4*fmc*hbcm+2*fmb*
13960      . hbcm+2*fmc*hbcm-hbcm2)+(p5p8*p3p7)*(-128*fb4*ffmcfmb+64*fb4-16
13961      . )+(p3p7*p2p8)*(128*fb4*ffmcfmb-64*fb4+16)+(p3p7*p1p8)*(64*fb4*
13962      . ffmcfmb-64*fb4+8)+32*(fb4*p1p3*p7p8+fb4*p1p4*p7p8+fb4*p1p8*
13963      . p4p7-2*fb4*p1p8*p5p7+fb4*p2p5*p7p8+3*fb4*p2p8*p4p7-4*fb4*p2p8*
13964      . p5p7-fb4*p3p4*p7p8+fb4*p3p7*p4p8-3*fb4*p4p7*p5p8+fb4*p4p8*p5p7
13965      . +2*fb4*p5p7*p5p8))
13966       ans1=w2*(8*(p7p8*p2p5)*(-fmc*hbcm+hbcm2)+4*(p5p8*p5p7)*(3*fmb*
13967      . hbcm-3*fmc*hbcm+2*hbcm2)+4*(p5p8*p4p7)*(-4*fmb*hbcm+4*fmc*hbcm
13968      . -3*hbcm2)+8*(p7p8*p4p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p5p7*
13969      . p2p8)*(-3*fmb*hbcm+2*fmc*hbcm-2*hbcm2)+8*(p7p8*p1p5)*(fmb*hbcm
13970      . +fmc*hbcm-hbcm2)+4*(p5p8*p3p7)*(-6*fmb*fmc+3*fmb*hbcm-7*fmc*
13971      . hbcm+6*fmc2+2*hbcm2)+8*(p7p8*p3p5)*(-fmb*fmc-fmc2)+24*(p3p7*
13972      . p2p8)*(2*fmb*fmc-fmb*hbcm)+16*(p3p7*p1p8)*(fmb*fmc-fmb*hbcm)+(
13973      . p5p8*p3p7*p3p5)*(-32*ffmcfmb+16)+(p3p7*p3p5*p2p8)*(32*ffmcfmb-
13974      . 16)+(p3p7*p3p5*p1p8)*(16*ffmcfmb-16)+8*(-fmb*fmc*hbcm2*p7p8+
13975      . fmb*hbcm*p1p3*p7p8+fmb*hbcm*p1p4*p7p8+fmb*hbcm*p1p8*p4p7-2*fmb
13976      . *hbcm*p1p8*p5p7+4*fmb*hbcm*p2p8*p4p7-fmb*hbcm*p3p4*p7p8+fmb*
13977      . hbcm*p3p7*p4p8+fmb*hbcm*p4p8*p5p7+p1p3*p3p5*p7p8+p1p4*p3p5*
13978      . p7p8+p1p8*p3p5*p4p7-2*p1p8*p3p5*p5p7+p2p5*p3p5*p7p8+3*p2p8*
13979      . p3p5*p4p7-4*p2p8*p3p5*p5p7-p3p4*p3p5*p7p8+p3p5*p3p7*p4p8-3*
13980      . p3p5*p4p7*p5p8+p3p5*p4p8*p5p7+2*p3p5*p5p7*p5p8))+ans2+ans5
13981       ans=ccc*ans1
13982       b(5)=ans
13983       ans4=8*(4*fmc*hbcm*p2p3*p4p7-5*fmc*hbcm*p2p3*p5p7+fmc*hbcm*p2p5
13984      . *p3p7-4*fmc*hbcm*p3p5*p4p7+3*fmc*hbcm*p3p5*p5p7+hbcm2*p1p4*
13985      . p4p7-hbcm2*p1p4*p5p7+hbcm2*p2p4*p5p7-hbcm2*p2p5*p4p7+hbcm2*
13986      . p4p5*p5p7-p1p3*p1p4*p3p7-3*p1p3*p2p3*p4p7+4*p1p3*p2p3*p5p7-
13987      . p1p3*p2p5*p3p7+p1p3*p3p4*p4p7-3*p1p3*p3p4*p5p7+3*p1p3*p3p5*
13988      . p4p7-2*p1p3*p3p5*p5p7+p1p4*p3p4*p3p7+3*p2p3*p3p4*p4p7-4*p2p3*
13989      . p3p4*p5p7+p2p5*p3p4*p3p7-3*p3p4*p3p5*p4p7+2*p3p4*p3p5*p5p7)
13990       ans3=24*(p3p7*p3p5)*(fmc*hbcm-2*fmc2)+24*(p3p7*p2p3)*(-fmc*hbcm
13991      . +2*fmc2)+4*(p4p7*p1p3)*(2*fmc*hbcm+3*hbcm2)+4*(p5p7*p3p4)*(3*
13992      . fmb*hbcm+5*fmc*hbcm+4*hbcm2)+4*(p4p7*p3p4)*(-2*fmb*hbcm-2*fmc*
13993      . hbcm-3*hbcm2)+8*(p3p7*p1p4)*(fmb*hbcm+4*fmc*hbcm-hbcm2)+4*(
13994      . p5p7*p1p3)*(-fmb*hbcm-7*fmc*hbcm-2*hbcm2)+4*(p3p7*p3p4)*(-8*
13995      . fmb*fmc+3*fmb*hbcm-fmc*hbcm-8*fmc2+2*hbcm2)+4*(p3p7*p1p3)*(4*
13996      . fmb*fmc-fmb*hbcm+fmc*hbcm+8*fmc2-2*hbcm2)+4*p5p7*(2*fmb*fmc*
13997      . hbcm2+3*fmc*hbcm3+4*fmc2*hbcm2+4*p1p3s2+2*p3p4s2)+4*p4p7*(-fmb
13998      . *fmc*hbcm2-4*fmc*hbcm3-fmc2*hbcm2-2*p1p3s2)+(p3p7*p3p5*p3p4)*(
13999      . -32*ffmcfmb+16)+(p3p7*p3p4*p2p3)*(32*ffmcfmb-16)+4*p3p7*(-4*
14000      . ffmcfmb*p1p3s2+2*fmb*fmc*hbcm2-6*fmb*fmc2*hbcm+3*fmc*hbcm3-4*
14001      . fmc2*hbcm2-6*fmc3*hbcm+2*p1p3s2)+(p3p7*p3p5*p1p3)*(32*ffmcfmb-
14002      . 16)+(p3p7*p3p4*p1p3)*(16*ffmcfmb-8)+(p3p7*p2p3*p1p3)*(-32*
14003      . ffmcfmb+16)+ans4
14004       ans2=w5*ans3
14005       ans5=w12*(4*(p5p7*p1p3)*(-fmb*hbcm-3*fmc*hbcm-2*hbcm2)+4*(p4p7*
14006      . p1p3)*(2*fmb*hbcm+2*fmc*hbcm+3*hbcm2)+4*(p3p7*p1p3)*(4*fmb*fmc
14007      . -fmb*hbcm+3*fmc*hbcm+4*fmc2-2*hbcm2)+8*p3p7*(-2*ffmcfmb*p1p3s2
14008      . +p1p3s2)+(p3p7*p3p5*p1p3)*(32*ffmcfmb-16)+(p3p7*p2p3*p1p3)*(-
14009      . 32*ffmcfmb+16)+8*(-p1p3*p1p4*p3p7-3*p1p3*p2p3*p4p7+4*p1p3*p2p3
14010      . *p5p7-p1p3*p2p5*p3p7-p1p3*p3p4*p5p7+3*p1p3*p3p5*p4p7-2*p1p3*
14011      . p3p5*p5p7-p1p3s2*p4p7+2*p1p3s2*p5p7))+((p3p7*p3p5)*(128*fb4*
14012      . ffmcfmb-64*fb4+16)+(p3p7*p2p3)*(-128*fb4*ffmcfmb+64*fb4-16)+(
14013      . p3p7*p1p3)*(-64*fb4*ffmcfmb+32*fb4-8)+16*p5p7*(-fb3*fmb*hbcm-
14014      . fb3*fmc*hbcm-2*fb4*fmc*hbcm-2*fb4*hbcm2-hbcm2)+16*p4p7*(2*fb3*
14015      . fmb*hbcm+fb3*fmc*hbcm-fb4*fmc*hbcm+3*fb4*hbcm2)+8*p3p7*(4*fb3*
14016      . fmb*fmc-2*fb3*fmb*hbcm-2*fb3*fmc*hbcm+4*fb3*fmc2+8*fb4*fmc*
14017      . hbcm-4*fb4*hbcm2-fmb*hbcm-fmc*hbcm+hbcm2)+32*(-fb4*p1p3*p4p7+2
14018      . *fb4*p1p3*p5p7-fb4*p1p4*p3p7-3*fb4*p2p3*p4p7+4*fb4*p2p3*p5p7-
14019      . fb4*p2p5*p3p7-fb4*p3p4*p5p7+3*fb4*p3p5*p4p7-2*fb4*p3p5*p5p7))
14020       ans1=w2*(4*p5p7*(-3*fmb*hbcm3+fmb2*hbcm2+fmc2*hbcm2-hbcm4-4*
14021      . p3p5s2)+8*(p4p5*p3p7)*(fmb*hbcm+fmc*hbcm)+4*(p5p7*p3p5)*(-3*
14022      . fmb*hbcm+3*fmc*hbcm-4*hbcm2)+4*(p4p7*p3p5)*(4*fmb*hbcm-4*fmc*
14023      . hbcm+3*hbcm2)+8*(p5p7*p2p3)*(3*fmb*hbcm-2*fmc*hbcm+hbcm2)+8*(
14024      . p3p7*p1p5)*(-fmb*hbcm+fmc*hbcm-hbcm2)+8*(p5p7*p1p3)*(2*fmb*
14025      . hbcm-fmc*hbcm+hbcm2)+4*(p3p7*p3p5)*(8*fmb*fmc-3*fmb*hbcm+7*fmc
14026      . *hbcm-4*fmc2-2*hbcm2)+24*(p3p7*p2p3)*(-2*fmb*fmc+fmb*hbcm)+8*(
14027      . p3p7*p1p3)*(-2*fmb*fmc+fmb*hbcm)+4*p4p7*(-3*fmb*fmc*hbcm2+4*
14028      . fmb*hbcm3-3*fmb2*hbcm2+6*p3p5s2)+4*p3p7*(8*ffmcfmb*p3p5s2+8*
14029      . fmb*fmc*hbcm2-4*fmb*fmc2*hbcm-3*fmb*hbcm3-4*fmb2*fmc*hbcm+2*
14030      . fmb2*hbcm2-4*p3p5s2)+(p3p7*p3p5*p2p3)*(-32*ffmcfmb+16)+(p3p7*
14031      . p3p5*p1p3)*(-16*ffmcfmb+8)+8*(-fmb*hbcm*p1p3*p4p7-fmb*hbcm*
14032      . p1p4*p3p7-4*fmb*hbcm*p2p3*p4p7-fmb*hbcm*p3p4*p5p7+fmc*hbcm*
14033      . p2p5*p3p7+hbcm2*p1p2*p5p7+hbcm2*p1p5*p4p7-hbcm2*p1p5*p5p7+
14034      . hbcm2*p4p5*p5p7-p1p3*p3p5*p4p7+2*p1p3*p3p5*p5p7-p1p4*p3p5*p3p7
14035      . -3*p2p3*p3p5*p4p7+4*p2p3*p3p5*p5p7-p2p5*p3p5*p3p7-p3p4*p3p5*
14036      . p5p7))+ans2+ans5
14037       ans=ccc*ans1
14038       b(6)=ans
14039       ans4=8*(p7p8*p1p3)*(fmb*fmc*hbcm-fmc*hbcm2-fmc2*hbcm)+8*(fmc*
14040      . hbcm2*p2p5*p7p8+fmc*hbcm2*p2p8*p4p7-4*fmc*hbcm2*p2p8*p5p7-fmc*
14041      . hbcm2*p4p7*p5p8+2*fmc*hbcm2*p5p7*p5p8+2*fmc*p1p3*p2p3*p7p8-2*
14042      . fmc*p1p3*p3p5*p7p8-2*fmc*p2p3*p3p4*p7p8+2*fmc*p3p4*p3p5*p7p8-2
14043      . *fmc2*hbcm*p2p3*p7p8+2*fmc2*hbcm*p3p5*p7p8+hbcm*p1p3*p1p4*p7p8
14044      . -hbcm*p1p3*p2p5*p7p8+3*hbcm*p1p3*p2p8*p5p7-hbcm*p1p3*p4p7*p4p8
14045      . +hbcm*p1p3*p4p8*p5p7-hbcm*p1p3*p5p7*p5p8-hbcm*p1p4*p1p8*p3p7+2
14046      . *hbcm*p1p4*p2p3*p7p8-2*hbcm*p1p4*p2p8*p3p7-hbcm*p1p4*p3p4*p7p8
14047      . -2*hbcm*p1p4*p3p5*p7p8+hbcm*p1p4*p3p7*p4p8+2*hbcm*p1p4*p3p7*
14048      . p5p8-3*hbcm*p1p8*p2p3*p5p7+hbcm*p1p8*p2p5*p3p7+hbcm*p1p8*p3p4*
14049      . p4p7-hbcm*p1p8*p3p4*p5p7+hbcm*p1p8*p3p5*p5p7-2*hbcm*p2p3*p4p7*
14050      . p4p8+5*hbcm*p2p3*p4p8*p5p7+hbcm*p2p5*p3p4*p7p8-hbcm*p2p5*p3p7*
14051      . p4p8+2*hbcm*p2p8*p3p4*p4p7-5*hbcm*p2p8*p3p4*p5p7-2*hbcm*p3p4*
14052      . p4p7*p5p8+3*hbcm*p3p4*p5p7*p5p8+2*hbcm*p3p5*p4p7*p4p8-3*hbcm*
14053      . p3p5*p4p8*p5p7)
14054       ans3=24*(p4p8*p3p7*p3p5)*(2*fmc-hbcm)+8*(p5p8*p3p7*p3p4)*(-8*
14055      . fmc+3*hbcm)+8*(p3p7*p3p4*p2p8)*(8*fmc-3*hbcm)+24*(p4p8*p3p7*
14056      . p2p3)*(-2*fmc+hbcm)+8*(p3p7*p3p5*p1p8)*(-2*fmc+hbcm)+8*(p3p7*
14057      . p2p3*p1p8)*(2*fmc-hbcm)+8*(p5p8*p3p7*p1p3)*(4*fmc-hbcm)+8*(
14058      . p3p7*p2p8*p1p3)*(-4*fmc+hbcm)+16*(p5p8*p3p7)*(fmc*hbcm2-3*fmc2
14059      . *hbcm)+16*(p3p7*p2p8)*(-fmc*hbcm2+3*fmc2*hbcm)+4*(p5p7*p1p8)*(
14060      . -2*fmc*hbcm2+hbcm3)+8*(p4p8*p3p7*p3p4)*(fmb-fmc)+8*(p3p7*p3p4*
14061      . p1p8)*(-fmb+3*fmc-hbcm)+8*p7p8*(-fmb*p1p3s2-fmb*p3p4s2+fmc*
14062      . p1p3s2+fmc*p3p4s2+fmc2*hbcm3)+8*(p4p8*p3p7*p1p3)*(-fmb-fmc+
14063      . hbcm)+16*(p7p8*p3p4*p1p3)*(fmb-fmc)+8*(p3p7*p1p8*p1p3)*(fmb-
14064      . fmc)+4*(p5p7*p4p8)*(-2*fmb*hbcm2+2*fmc*hbcm2-3*hbcm3)+4*(p4p8*
14065      . p4p7)*(fmb*hbcm2-fmc*hbcm2+2*hbcm3)+4*(p4p7*p1p8)*(fmb*hbcm2+
14066      . fmc*hbcm2)+8*(p7p8*p1p4)*(-fmb*hbcm2-hbcm3)+4*(p4p8*p3p7)*(6*
14067      . fmb*fmc*hbcm-2*fmb*hbcm2+8*fmc*hbcm2-6*fmc2*hbcm-3*hbcm3)+8*(
14068      . p7p8*p3p4)*(-fmb*fmc*hbcm+fmc*hbcm2+fmc2*hbcm)+4*(p3p7*p1p8)*(
14069      . -2*fmb*fmc*hbcm-4*fmc*hbcm2+6*fmc2*hbcm+hbcm3)+ans4
14070       ans2=w5*ans3
14071       ans7=8*(fmb*hbcm2*p1p4*p7p8+fmb*hbcm2*p1p8*p4p7-2*fmb*hbcm2*
14072      . p1p8*p5p7+3*fmb*hbcm2*p2p8*p4p7+fmb*hbcm2*p4p8*p5p7-fmc*hbcm2*
14073      . p3p5*p7p8+2*fmc*p2p3*p3p5*p7p8+2*fmc*p3p5*p3p7*p5p8-hbcm*p1p3*
14074      . p4p7*p5p8+2*hbcm*p1p3*p5p7*p5p8+hbcm*p1p4*p3p5*p7p8-hbcm*p1p4*
14075      . p3p7*p5p8-2*hbcm*p1p5*p2p3*p7p8+2*hbcm*p1p5*p2p8*p3p7+2*hbcm*
14076      . p1p5*p3p5*p7p8-2*hbcm*p1p5*p3p7*p5p8+hbcm*p1p8*p3p5*p4p7-2*
14077      . hbcm*p1p8*p3p5*p5p7+2*hbcm*p2p3*p2p5*p7p8+2*hbcm*p2p3*p4p5*
14078      . p7p8-4*hbcm*p2p3*p4p7*p5p8+hbcm*p2p3*p5p7*p5p8-2*hbcm*p2p5*
14079      . p2p8*p3p7-hbcm*p2p5*p3p5*p7p8+hbcm*p2p5*p3p7*p5p8+4*hbcm*p2p8*
14080      . p3p5*p4p7-hbcm*p2p8*p3p5*p5p7-2*hbcm*p2p8*p3p7*p4p5-hbcm*p3p4*
14081      . p5p7*p5p8-2*hbcm*p3p5*p4p5*p7p8+hbcm*p3p5*p4p8*p5p7+2*hbcm*
14082      . p3p7*p4p5*p5p8)
14083       ans6=8*(p3p7*p3p5*p2p8)*(4*fmc-3*hbcm)+24*(p5p8*p3p7*p2p3)*(-2*
14084      . fmc+hbcm)+8*(p5p8*p3p7*p1p3)*(-2*fmc+hbcm)+8*(p7p8*p2p5)*(fmc*
14085      . hbcm2-hbcm3)+8*(p4p8*p3p7*p3p5)*(-fmb+fmc)+8*(p7p8*p3p5*p3p4)*
14086      . (fmb-fmc)+8*(p3p7*p3p5*p1p8)*(fmb+fmc-hbcm)+8*(p7p8*p3p5*p1p3)
14087      . *(-fmb+fmc)+4*(p5p8*p5p7)*(2*fmb*hbcm2-3*hbcm3)+4*(p5p8*p4p7)*
14088      . (-3*fmb*hbcm2-3*fmc*hbcm2+4*hbcm3)+8*(p7p8*p4p5)*(-fmb*hbcm2+
14089      . fmc*hbcm2-hbcm3)+16*(p5p7*p2p8)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+8
14090      . *(p7p8*p1p5)*(fmb*hbcm2-fmc*hbcm2+hbcm3)+8*p7p8*(-fmb*fmc2*
14091      . hbcm2+fmb2*fmc*hbcm2-2*fmc*p3p5s2)+4*(p5p8*p3p7)*(-4*fmb*fmc*
14092      . hbcm+2*fmb*hbcm2+8*fmc*hbcm2-4*fmc2*hbcm-3*hbcm3)+8*(p4p8*p3p7
14093      . )*(fmb*fmc*hbcm-fmb2*hbcm)+8*(p7p8*p3p4)*(-fmb*fmc*hbcm+fmb2*
14094      . hbcm)+16*(p3p7*p2p8)*(2*fmb*fmc*hbcm-fmb*hbcm2)+8*(p3p7*p1p8)*
14095      . (fmb*fmc*hbcm-fmb*hbcm2+fmb2*hbcm)+8*(p7p8*p1p3)*(fmb*fmc*hbcm
14096      . -fmb2*hbcm)+ans7
14097       ans5=w2*ans6
14098       ans8=(4*p7p8*(8*fb3*fmc2*hbcm+8*fb4*fmb*fmc*hbcm+fmb*hbcm2-fmc*
14099      . hbcm2+2*hbcm3)+16*(p5p8*p3p7)*(4*fb3*fmc-2*fb3*hbcm-hbcm)+32*(
14100      . p4p8*p3p7)*(-fb3*fmc-fb4*fmb)+32*(p7p8*p3p4)*(fb3*fmc+fb4*fmb)
14101      . +16*(p3p7*p2p8)*(-4*fb3*fmc+2*fb3*hbcm+hbcm)+8*(p3p7*p1p8)*(-4
14102      . *fb3*fmc+4*fb3*hbcm+4*fb4*fmb+hbcm)+8*(p7p8*p1p3)*(-4*fb3*fmc-
14103      . 4*fb4*fmb-hbcm)+16*(-2*fb3*hbcm*p1p4*p7p8-2*fb3*hbcm*p1p8*p4p7
14104      . +4*fb3*hbcm*p1p8*p5p7-2*fb3*hbcm*p2p5*p7p8-4*fb3*hbcm*p2p8*
14105      . p4p7+6*fb3*hbcm*p2p8*p5p7+4*fb3*hbcm*p4p7*p5p8-2*fb3*hbcm*p4p8
14106      . *p5p7-2*fb3*hbcm*p5p7*p5p8-hbcm*p2p3*p7p8+hbcm*p3p5*p7p8))
14107       ans1=w12*(8*(p3p7*p3p5*p1p8)*(-2*fmc+hbcm)+8*(p3p7*p2p3*p1p8)*(
14108      . 2*fmc-hbcm)+8*(p5p8*p3p7*p1p3)*(4*fmc-hbcm)+8*(p3p7*p2p8*p1p3)
14109      . *(-4*fmc+hbcm)+4*(p5p7*p1p8)*(2*fmc*hbcm2+hbcm3)+4*(p3p7*p1p8)
14110      . *(-2*fmc*hbcm2+hbcm3)+8*p7p8*(-fmb*p1p3s2+fmc*p1p3s2)+8*(p4p8*
14111      . p3p7*p1p3)*(-fmb+fmc)+8*(p7p8*p3p4*p1p3)*(fmb-fmc)+8*(p3p7*
14112      . p1p8*p1p3)*(fmb-fmc)+4*(p4p7*p1p8)*(-fmb*hbcm2+fmc*hbcm2-2*
14113      . hbcm3)+8*(-fmc*hbcm2*p1p3*p7p8+2*fmc*p1p3*p2p3*p7p8-2*fmc*p1p3
14114      . *p3p5*p7p8-hbcm*p1p3*p1p4*p7p8-hbcm*p1p3*p2p5*p7p8-2*hbcm*p1p3
14115      . *p2p8*p4p7+3*hbcm*p1p3*p2p8*p5p7+2*hbcm*p1p3*p4p7*p5p8-hbcm*
14116      . p1p3*p4p8*p5p7-hbcm*p1p3*p5p7*p5p8+hbcm*p1p4*p1p8*p3p7+2*hbcm*
14117      . p1p8*p2p3*p4p7-3*hbcm*p1p8*p2p3*p5p7+hbcm*p1p8*p2p5*p3p7+hbcm*
14118      . p1p8*p3p4*p5p7-2*hbcm*p1p8*p3p5*p4p7+hbcm*p1p8*p3p5*p5p7))+
14119      . ans2+ans5+ans8
14120       ans=ccc*ans1
14121       b(7)=ans
14122       ans3=w12*(4*(p5p6*p1p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p4p8*p3p6
14123      . )*(fmb*fmc-fmc*hbcm+fmc2)+16*(p3p6*p2p8)*(-fmb*fmc+fmc*hbcm-
14124      . fmc2)+4*(p3p6*p1p8)*(-fmb*fmc-fmb*hbcm-fmc2+hbcm2)+(p5p8*p3p6*
14125      . p1p3)*(8*ffmcfmb-8)+(p3p6*p2p8*p1p3)*(-24*ffmcfmb+8)+8*(-
14126      . ffmcfmb*p1p3*p1p8*p3p6+ffmcfmb*p1p3*p3p6*p4p8-p1p3*p1p8*p4p6-2
14127      . *p1p3*p2p8*p4p6+p1p3*p2p8*p5p6+p1p3*p4p6*p4p8-p1p3*p5p6*p5p8))
14128      . +(10*p6p8*(fmb*hbcm+fmc*hbcm-hbcm2)+(p5p8*p3p6)*(32*fb4*
14129      . ffmcfmb-32*fb4+4)+(p4p8*p3p6)*(32*fb4*ffmcfmb+4)+(p3p6*p2p8)*(
14130      . -96*fb4*ffmcfmb+32*fb4-12)+(p3p6*p1p8)*(-32*fb4*ffmcfmb-4)+32*
14131      . (-fb4*p1p8*p4p6-2*fb4*p2p8*p4p6+fb4*p2p8*p5p6+fb4*p4p6*p4p8-
14132      . fb4*p5p6*p5p8))
14133       ans2=w5*(8*(p5p8*p3p6)*(fmc*hbcm-fmc2)+4*(p5p6*p4p8)*(fmb*hbcm+
14134      . fmc*hbcm-hbcm2)+8*(p4p8*p4p6)*(fmb*hbcm-hbcm2)+16*(p4p6*p2p8)*
14135      . (-fmb*hbcm+hbcm2)+4*(p5p6*p1p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(
14136      . p4p6*p1p8)*(-fmb*hbcm+hbcm2)+4*(p4p8*p3p6)*(fmb*fmc+fmb*hbcm-
14137      . fmc2-hbcm2)+8*(p3p6*p2p8)*(-2*fmb*fmc+fmc*hbcm+fmc2)+4*(p3p6*
14138      . p1p8)*(-fmb*fmc-fmb*hbcm+fmc2+hbcm2)+(p5p8*p3p6*p3p4)*(-8*
14139      . ffmcfmb+8)+(p3p6*p3p4*p2p8)*(24*ffmcfmb-8)+(p5p8*p3p6*p1p3)*(8
14140      . *ffmcfmb-8)+(p3p6*p2p8*p1p3)*(-24*ffmcfmb+8)+8*(-ffmcfmb*p1p3*
14141      . p1p8*p3p6+ffmcfmb*p1p3*p3p6*p4p8+ffmcfmb*p1p8*p3p4*p3p6-
14142      . ffmcfmb*p3p4*p3p6*p4p8-fmc*hbcm*p2p8*p5p6+fmc*hbcm*p5p6*p5p8-
14143      . p1p3*p1p8*p4p6-2*p1p3*p2p8*p4p6+p1p3*p2p8*p5p6+p1p3*p4p6*p4p8-
14144      . p1p3*p5p6*p5p8+p1p8*p3p4*p4p6+2*p2p8*p3p4*p4p6-p2p8*p3p4*p5p6-
14145      . p3p4*p4p6*p4p8+p3p4*p5p6*p5p8))+ans3
14146       ans1=w2*(4*(p5p8*p5p6)*(-fmb*hbcm+fmc*hbcm-hbcm2)+4*(p5p8*p3p6)
14147      . *(fmb*fmc-fmb*hbcm+2*fmc*hbcm-fmc2-hbcm2)+8*(p3p6*p2p8)*(-3*
14148      . fmb*fmc+fmb*hbcm)+(p5p8*p3p6*p3p5)*(8*ffmcfmb-8)+(p3p6*p3p5*
14149      . p2p8)*(-24*ffmcfmb+8)+8*(-ffmcfmb*p1p8*p3p5*p3p6+ffmcfmb*p3p5*
14150      . p3p6*p4p8-fmb*fmc*p1p8*p3p6+fmb*fmc*p3p6*p4p8-fmb*hbcm*p1p8*
14151      . p4p6-2*fmb*hbcm*p2p8*p4p6+fmb*hbcm*p2p8*p5p6+fmb*hbcm*p4p6*
14152      . p4p8-p1p8*p3p5*p4p6-2*p2p8*p3p5*p4p6+p2p8*p3p5*p5p6+p3p5*p4p6*
14153      . p4p8-p3p5*p5p6*p5p8))+ans2
14154       ans=ccc*ans1
14155       b(8)=ans
14156       ans4=8*(-2*ffmcfmb*p1p3*p3p4*p3p6-fmc*hbcm*p1p2*p3p6-fmc*hbcm*
14157      . p1p5*p3p6+fmc*hbcm*p2p3*p5p6+fmc*hbcm*p2p4*p3p6+2*fmc*hbcm*
14158      . p2p5*p3p6-fmc*hbcm*p3p5*p5p6+fmc*hbcm*p3p6*p4p5+fmc2*p3p5*p3p6
14159      . -hbcm2*p1p2*p4p6+hbcm2*p1p4*p3p6+hbcm2*p1p4*p4p6+hbcm2*p1p4*
14160      . p5p6-hbcm2*p1p5*p4p6+hbcm2*p2p4*p4p6+2*hbcm2*p2p5*p4p6+hbcm2*
14161      . p3p5*p4p6+hbcm2*p4p5*p4p6+2*p1p3*p2p3*p4p6-p1p3*p2p3*p5p6-2*
14162      . p1p3*p3p4*p4p6+p1p3*p3p5*p5p6-2*p2p3*p3p4*p4p6+p2p3*p3p4*p5p6-
14163      . p3p4*p3p5*p5p6)
14164       ans3=4*(p5p6*p3p4)*(-fmb*hbcm-fmc*hbcm-hbcm2)+8*(p4p6*p3p4)*(-
14165      . fmb*hbcm+hbcm2)+8*(p4p6*p2p3)*(2*fmb*hbcm-hbcm2)+4*(p5p6*p1p3)
14166      . *(fmb*hbcm+fmc*hbcm+hbcm2)+8*(p4p6*p1p3)*(fmb*hbcm-hbcm2)+4*(
14167      . p3p6*p3p4)*(-fmb*fmc-fmb*hbcm+2*fmc*hbcm+fmc2-hbcm2)+8*(p3p6*
14168      . p2p3)*(2*fmb*fmc-fmc2)+4*(p3p6*p1p3)*(fmb*fmc+fmb*hbcm-2*fmc*
14169      . hbcm-fmc2+hbcm2)+4*p5p6*(-fmb*fmc*hbcm2-fmc*hbcm3-fmc2*hbcm2)+
14170      . 4*p4p6*(-2*fmb*fmc*hbcm2+fmb2*hbcm2-fmc2*hbcm2+hbcm4+2*p1p3s2+
14171      . 2*p3p4s2)+(p3p6*p3p5*p3p4)*(8*ffmcfmb-8)+(p3p6*p3p4*p2p3)*(-24
14172      . *ffmcfmb+8)+4*p3p6*(2*ffmcfmb*p1p3s2+2*ffmcfmb*p3p4s2-fmb*fmc*
14173      . hbcm2-fmb*fmc2*hbcm+fmb2*fmc*hbcm)+(p3p6*p3p5*p1p3)*(-8*
14174      . ffmcfmb+8)+(p3p6*p2p3*p1p3)*(24*ffmcfmb-8)+ans4
14175       ans2=w5*ans3
14176       ans5=w12*(4*(p5p6*p1p3)*(fmb*hbcm+fmc*hbcm+hbcm2)+8*(p3p6*p3p4)
14177      . *(-fmb*fmc-fmc2)+8*(p3p6*p2p3)*(2*fmb*fmc-fmc*hbcm+2*fmc2)+4*(
14178      . p3p6*p1p3)*(fmb*fmc+fmb*hbcm-2*fmc*hbcm+fmc2+hbcm2)+4*p3p6*(2*
14179      . ffmcfmb*p1p3s2-2*fmb*fmc2*hbcm+fmb2*fmc*hbcm+fmc*hbcm3-3*fmc3*
14180      . hbcm)+(p3p6*p3p5*p1p3)*(-8*ffmcfmb+8)+(p3p6*p2p3*p1p3)*(24*
14181      . ffmcfmb-8)+8*(-ffmcfmb*p1p3*p3p4*p3p6-fmc*hbcm*p1p2*p3p6-fmc*
14182      . hbcm*p1p3*p4p6+fmc*hbcm*p1p4*p3p6-fmc*hbcm*p1p5*p3p6+2*fmc*
14183      . hbcm*p2p5*p3p6+fmc*hbcm*p3p5*p3p6+2*p1p3*p2p3*p4p6-p1p3*p2p3*
14184      . p5p6-p1p3*p3p4*p4p6+p1p3*p3p5*p5p6+p1p3s2*p4p6))+(16*p4p6*(-2*
14185      . fb4*fmc*hbcm-hbcm2)+(p3p6*p3p5)*(-32*fb4*ffmcfmb+32*fb4-4)+(
14186      . p3p6*p3p4)*(-32*fb4*ffmcfmb-4)+(p3p6*p2p3)*(96*fb4*ffmcfmb-32*
14187      . fb4+12)+(p3p6*p1p3)*(32*fb4*ffmcfmb+4)+16*p5p6*(fb3*fmb*hbcm-
14188      . fb4*fmc*hbcm+fb4*hbcm2)+2*p3p6*(-8*fb3*fmb*fmc+8*fb3*fmb*hbcm-
14189      . 16*fb4*fmc*hbcm-8*fb4*fmc2+8*fb4*hbcm2-5*fmb*hbcm-3*fmc*hbcm-
14190      . hbcm2)+32*(fb4*p1p3*p4p6+2*fb4*p2p3*p4p6-fb4*p2p3*p5p6-fb4*
14191      . p3p4*p4p6+fb4*p3p5*p5p6))
14192       ans1=w2*(4*(p5p6*p3p5)*(fmb*hbcm-fmc*hbcm+hbcm2)+4*(p3p6*p3p5)*
14193      . (-fmb*fmc+fmb*hbcm-2*fmc*hbcm+fmc2+hbcm2)+8*(p3p6*p2p3)*(3*fmb
14194      . *fmc-fmb*hbcm)+4*p5p6*(-fmb*fmc*hbcm2+fmb*hbcm3-fmb2*hbcm2+2*
14195      . p3p5s2)+4*p3p6*(-2*ffmcfmb*p3p5s2-2*fmb*fmc*hbcm2-fmb*fmc2*
14196      . hbcm+fmb*hbcm3+fmb2*fmc*hbcm-fmb2*hbcm2+2*p3p5s2)+(p3p6*p3p5*
14197      . p2p3)*(24*ffmcfmb-8)+8*(ffmcfmb*p1p3*p3p5*p3p6-ffmcfmb*p3p4*
14198      . p3p5*p3p6-fmb*fmc*hbcm2*p4p6+fmb*fmc*p1p3*p3p6-fmb*fmc*p3p4*
14199      . p3p6+fmb*hbcm*p1p3*p4p6+2*fmb*hbcm*p2p3*p4p6-fmb*hbcm*p2p3*
14200      . p5p6-fmb*hbcm*p3p4*p4p6-fmc*hbcm*p1p5*p3p6+fmc*hbcm*p2p5*p3p6+
14201      . fmc*hbcm*p3p6*p4p5-hbcm2*p1p5*p4p6+hbcm2*p2p5*p4p6+hbcm2*p4p5*
14202      . p4p6+p1p3*p3p5*p4p6+2*p2p3*p3p5*p4p6-p2p3*p3p5*p5p6-p3p4*p3p5*
14203      . p4p6))+ans2+ans5
14204       ans=ccc*ans1
14205       b(9)=ans
14206       ans4=8*(fmc*hbcm2*p2p8*p5p6-2*fmc*hbcm2*p4p6*p5p8-fmc*hbcm2*
14207      . p5p6*p5p8+4*fmc*p2p3*p3p6*p5p8-4*fmc*p2p8*p3p5*p3p6-hbcm*p1p3*
14208      . p2p8*p5p6+2*hbcm*p1p3*p4p6*p5p8+hbcm*p1p3*p5p6*p5p8+hbcm*p1p8*
14209      . p2p3*p5p6-2*hbcm*p1p8*p3p5*p4p6-hbcm*p1p8*p3p5*p5p6+4*hbcm*
14210      . p2p3*p4p6*p5p8-hbcm*p2p3*p4p8*p5p6+hbcm*p2p8*p3p4*p5p6-4*hbcm*
14211      . p2p8*p3p5*p4p6-2*hbcm*p3p4*p4p6*p5p8-hbcm*p3p4*p5p6*p5p8+2*
14212      . hbcm*p3p5*p4p6*p4p8+hbcm*p3p5*p4p8*p5p6)
14213       ans3=8*(p4p8*p3p6*p3p5)*(fmc+hbcm)+8*(p5p8*p3p6*p3p4)*(-fmc-
14214      . hbcm)+8*(p3p6*p3p4*p2p8)*(-fmc+hbcm)+8*(p4p8*p3p6*p2p3)*(fmc-
14215      . hbcm)+8*(p3p6*p3p5*p1p8)*(-fmc-hbcm)+8*(p3p6*p2p3*p1p8)*(-fmc+
14216      . hbcm)+8*(p5p8*p3p6*p1p3)*(fmc+hbcm)+8*(p3p6*p2p8*p1p3)*(fmc-
14217      . hbcm)+8*(p5p8*p3p6)*(-fmc*hbcm2-fmc2*hbcm)+4*(p5p6*p4p8)*(fmb*
14218      . hbcm2-fmc*hbcm2+hbcm3)+8*(p4p8*p4p6)*(fmb*hbcm2-fmc*hbcm2+
14219      . hbcm3)+16*(p4p6*p2p8)*(-fmb*hbcm2+fmc*hbcm2-hbcm3)+4*(p5p6*
14220      . p1p8)*(-fmb*hbcm2+fmc*hbcm2-hbcm3)+8*(p4p6*p1p8)*(-fmb*hbcm2+
14221      . fmc*hbcm2-hbcm3)+4*(p4p8*p3p6)*(fmb*fmc*hbcm+fmb*hbcm2-fmc2*
14222      . hbcm+hbcm3)+8*(p3p6*p2p8)*(-2*fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm
14223      . )+4*(p3p6*p1p8)*(-fmb*fmc*hbcm-fmb*hbcm2+fmc2*hbcm-hbcm3)+ans4
14224       ans2=w5*ans3
14225       ans7=(2*p6p8*(5*fmb*hbcm2-3*fmc*hbcm2+5*hbcm3)+4*(p5p8*p3p6)*(-
14226      . 8*fb3*fmc+8*fb3*hbcm-5*hbcm)+4*(p4p8*p3p6)*(-8*fb3*fmc-hbcm)+4
14227      . *(p3p6*p2p8)*(24*fb3*fmc-8*fb3*hbcm+7*hbcm)+4*(p3p6*p1p8)*(8*
14228      . fb3*fmc+hbcm)+4*(8*fb3*hbcm*p1p8*p4p6+16*fb3*hbcm*p2p8*p4p6-8*
14229      . fb3*hbcm*p2p8*p5p6-8*fb3*hbcm*p4p6*p4p8+8*fb3*hbcm*p5p6*p5p8-
14230      . hbcm*p1p3*p6p8-7*hbcm*p2p3*p6p8+hbcm*p3p4*p6p8+5*hbcm*p3p5*
14231      . p6p8))
14232       ans6=w12*(8*(p3p6*p3p5*p1p8)*(-fmc-hbcm)+8*(p3p6*p2p3*p1p8)*(-
14233      . fmc+hbcm)+8*(p5p8*p3p6*p1p3)*(fmc+hbcm)+8*(p3p6*p2p8*p1p3)*(
14234      . fmc-hbcm)+4*(p5p6*p1p8)*(-fmb*hbcm2+fmc*hbcm2-hbcm3)+8*(p4p8*
14235      . p3p6)*(fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+16*(p3p6*p2p8)*(-fmb*
14236      . fmc*hbcm-fmc*hbcm2+2*fmc2*hbcm)+4*(p3p6*p1p8)*(-fmb*fmc*hbcm-
14237      . fmb*hbcm2+3*fmc2*hbcm-hbcm3)+8*(fmc*hbcm2*p1p8*p4p6-fmc*p1p3*
14238      . p3p6*p4p8+fmc*p1p8*p3p4*p3p6-2*fmc*p2p3*p3p6*p4p8+4*fmc*p2p3*
14239      . p3p6*p5p8+2*fmc*p2p8*p3p4*p3p6-4*fmc*p2p8*p3p5*p3p6-2*fmc*p3p4
14240      . *p3p6*p5p8+2*fmc*p3p5*p3p6*p4p8-2*fmc2*hbcm*p3p6*p5p8+2*hbcm*
14241      . p1p3*p2p8*p4p6-hbcm*p1p3*p2p8*p5p6-hbcm*p1p3*p4p6*p4p8+hbcm*
14242      . p1p3*p5p6*p5p8-2*hbcm*p1p8*p2p3*p4p6+hbcm*p1p8*p2p3*p5p6+hbcm*
14243      . p1p8*p3p4*p4p6-hbcm*p1p8*p3p5*p5p6))+ans7
14244       ans5=w2*(8*(p3p6*p3p5*p2p8)*(-3*fmc+hbcm)+8*(p5p8*p3p6*p2p3)*(3
14245      . *fmc-hbcm)+4*(p5p8*p5p6)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+4*(p5p8*
14246      . p3p6)*(fmb*fmc*hbcm-fmb*hbcm2-2*fmc*hbcm2-fmc2*hbcm+hbcm3)+8*(
14247      . p3p6*p2p8)*(-3*fmb*fmc*hbcm+fmb*hbcm2)+8*(-fmb*fmc*hbcm*p1p8*
14248      . p3p6+fmb*fmc*hbcm*p3p6*p4p8-fmb*hbcm2*p1p8*p4p6-2*fmb*hbcm2*
14249      . p2p8*p4p6+fmb*hbcm2*p2p8*p5p6+fmb*hbcm2*p4p6*p4p8-fmc*hbcm2*
14250      . p4p6*p5p8+fmc*p1p3*p3p6*p5p8-fmc*p1p8*p3p5*p3p6-fmc*p3p4*p3p6*
14251      . p5p8+fmc*p3p5*p3p6*p4p8+hbcm*p1p3*p4p6*p5p8-hbcm*p1p8*p3p5*
14252      . p4p6+2*hbcm*p2p3*p4p6*p5p8-hbcm*p2p3*p5p6*p5p8-2*hbcm*p2p8*
14253      . p3p5*p4p6+hbcm*p2p8*p3p5*p5p6-hbcm*p3p4*p4p6*p5p8+hbcm*p3p5*
14254      . p4p6*p4p8))+ans6
14255       ans1=ans2+ans5
14256       ans=ccc*ans1
14257       b(10)=ans
14258       ans4=8*(-fmb*hbcm2*p1p4*p6p7-3*fmb*hbcm2*p4p6*p4p7+fmb*hbcm2*
14259      . p5p6*p5p7+fmc*hbcm2*p3p5*p6p7-2*fmc*p1p5*p3p6*p3p7-2*fmc*p2p3*
14260      . p3p5*p6p7+2*fmc*p2p5*p3p6*p3p7+2*fmc*p3p6*p3p7*p4p5-hbcm*p1p4*
14261      . p3p5*p6p7+2*hbcm*p1p5*p2p3*p6p7-2*hbcm*p1p5*p3p5*p6p7-2*hbcm*
14262      . p1p5*p3p7*p4p6-2*hbcm*p2p3*p2p5*p6p7-2*hbcm*p2p3*p4p5*p6p7-2*
14263      . hbcm*p2p3*p4p6*p5p7+2*hbcm*p2p3*p4p7*p5p6+hbcm*p2p5*p3p5*p6p7+
14264      . 2*hbcm*p2p5*p3p7*p4p6+2*hbcm*p3p5*p4p5*p6p7-4*hbcm*p3p5*p4p6*
14265      . p4p7+hbcm*p3p5*p4p6*p5p7-2*hbcm*p3p5*p4p7*p5p6+hbcm*p3p5*p5p6*
14266      . p5p7+2*hbcm*p3p7*p4p5*p4p6)
14267       ans3=16*(p5p6*p3p7*p3p5)*(-2*fmc+hbcm)+16*(p5p6*p3p7*p2p3)*(2*
14268      . fmc-hbcm)+16*(p5p7*p3p6*p2p3)*(-2*fmc+hbcm)+8*(p6p7*p2p5)*(-
14269      . fmc*hbcm2+hbcm3)+8*(p5p7*p3p6)*(-fmb2*hbcm+fmc*hbcm2-hbcm3)+8*
14270      . (p4p6*p3p7*p3p5)*(fmb-5*fmc+3*hbcm)+8*(p5p7*p3p6*p3p5)*(-fmb+
14271      . fmc-hbcm)+8*(p4p7*p3p6*p3p5)*(fmb-3*fmc)+8*(p6p7*p3p5*p3p4)*(-
14272      . fmb+fmc)+8*(p6p7*p3p5*p1p3)*(fmb-fmc)+8*(p5p6*p4p7)*(-fmb*
14273      . hbcm2+fmc*hbcm2-hbcm3)+8*(p5p7*p4p6)*(fmb*hbcm2+fmc*hbcm2-
14274      . hbcm3)+8*(p6p7*p4p5)*(fmb*hbcm2-fmc*hbcm2+hbcm3)+8*(p6p7*p1p5)
14275      . *(-fmb*hbcm2+fmc*hbcm2-hbcm3)+8*p6p7*(fmb*fmc2*hbcm2-fmb2*fmc*
14276      . hbcm2+2*fmc*p3p5s2)+8*(p5p6*p3p7)*(-2*fmb*fmc*hbcm+fmb*hbcm2-3
14277      . *fmc*hbcm2+2*fmc2*hbcm+hbcm3)+8*(p4p6*p3p7)*(-5*fmb*fmc*hbcm+2
14278      . *fmb*hbcm2+fmb2*hbcm)+8*(p4p7*p3p6)*(-2*fmb*fmc*hbcm+fmb2*hbcm
14279      . )+8*(p3p7*p3p6)*(fmb*fmc*hbcm-3*fmb*fmc2+3*fmb2*fmc-fmb2*hbcm)
14280      . +8*(p6p7*p3p4)*(fmb*fmc*hbcm-fmb2*hbcm)+8*(p6p7*p1p3)*(-fmb*
14281      . fmc*hbcm+fmb2*hbcm)+8*(p3p7*p3p6*p3p5)*(3*ffmcfmb*fmb-3*
14282      . ffmcfmb*fmc-fmb+2*fmc)+ans4
14283       ans2=w2*ans3
14284       ans7=8*(p3p7*p3p6*p1p3)*(3*ffmcfmb*fmb+ffmcfmb*fmc-fmb)+8*(-fmc
14285      . *hbcm2*p2p5*p6p7+fmc*hbcm2*p5p6*p5p7-2*fmc*p1p3*p2p3*p6p7+2*
14286      . fmc*p1p3*p3p5*p6p7+2*fmc*p2p3*p3p4*p6p7+2*fmc*p2p3*p3p6*p4p7-6
14287      . *fmc*p2p3*p3p6*p5p7+2*fmc*p2p5*p3p6*p3p7-2*fmc*p3p4*p3p5*p6p7-
14288      . 2*fmc*p3p5*p3p6*p4p7+2*fmc*p3p5*p3p6*p5p7+2*fmc2*hbcm*p2p3*
14289      . p6p7-2*fmc2*hbcm*p3p5*p6p7-hbcm*p1p3*p1p4*p6p7+hbcm*p1p3*p2p5*
14290      . p6p7+2*hbcm*p1p3*p4p6*p4p7-5*hbcm*p1p3*p4p6*p5p7-hbcm*p1p3*
14291      . p5p6*p5p7-2*hbcm*p1p4*p2p3*p6p7+hbcm*p1p4*p3p4*p6p7+2*hbcm*
14292      . p1p4*p3p5*p6p7-2*hbcm*p1p4*p3p6*p4p7+2*hbcm*p1p4*p3p6*p5p7+2*
14293      . hbcm*p1p4*p3p7*p4p6+4*hbcm*p2p3*p4p6*p4p7-8*hbcm*p2p3*p4p6*
14294      . p5p7-hbcm*p2p5*p3p4*p6p7+2*hbcm*p2p5*p3p7*p4p6-2*hbcm*p3p4*
14295      . p4p6*p4p7+5*hbcm*p3p4*p4p6*p5p7+hbcm*p3p4*p5p6*p5p7-4*hbcm*
14296      . p3p5*p4p6*p4p7+4*hbcm*p3p5*p4p6*p5p7)
14297       ans6=32*(p4p6*p3p7*p3p5)*(-2*fmc+hbcm)+32*(p4p6*p3p7*p2p3)*(2*
14298      . fmc-hbcm)+16*(p3p7*p3p6*p1p4)*(-fmc+hbcm)+8*(p4p6*p3p7*p3p4)*(
14299      . -fmb-7*fmc+3*hbcm)+8*(p5p7*p3p6*p3p4)*(fmb+fmc+hbcm)+8*(p4p7*
14300      . p3p6*p3p4)*(-fmb+fmc)+8*p6p7*(fmb*p1p3s2+fmb*p3p4s2-fmc*p1p3s2
14301      . -fmc*p3p4s2-fmc2*hbcm3)+8*(p4p6*p3p7*p1p3)*(fmb+7*fmc-3*hbcm)+
14302      . 8*(p5p7*p3p6*p1p3)*(-fmb-fmc-hbcm)+8*(p4p7*p3p6*p1p3)*(fmb-fmc
14303      . )+16*(p6p7*p3p4*p1p3)*(-fmb+fmc)+8*(p5p7*p4p6)*(fmb*hbcm2+3*
14304      . fmc*hbcm2+2*hbcm3)+8*(p4p7*p4p6)*(-fmb*hbcm2-2*hbcm3)+8*(p6p7*
14305      . p1p4)*(fmb*hbcm2+hbcm3)+8*(p4p6*p3p7)*(-3*fmb*fmc*hbcm+fmb*
14306      . hbcm2-3*fmc*hbcm2-3*fmc2*hbcm+2*hbcm3)+8*(p5p7*p3p6)*(fmb*fmc*
14307      . hbcm+2*fmc*hbcm2)+8*(p4p7*p3p6)*(-fmb*fmc*hbcm-fmc*hbcm2+2*
14308      . fmc2*hbcm)+8*(p3p7*p3p6)*(fmb*fmc*hbcm-3*fmb*fmc2+fmc*hbcm2-3*
14309      . fmc2*hbcm+fmc3)+8*(p6p7*p3p4)*(fmb*fmc*hbcm-fmc*hbcm2-fmc2*
14310      . hbcm)+8*(p6p7*p1p3)*(-fmb*fmc*hbcm+fmc*hbcm2+fmc2*hbcm)+16*(
14311      . p3p7*p3p6*p3p5)*(-2*ffmcfmb*fmc+fmc)+16*(p3p7*p3p6*p2p3)*(2*
14312      . ffmcfmb*fmc-fmc)+8*(p3p7*p3p6*p3p4)*(-3*ffmcfmb*fmb-ffmcfmb*
14313      . fmc+fmb)+ans7
14314       ans5=w5*ans6
14315       ans9=(4*p6p7*(-8*fb3*fmc2*hbcm-8*fb4*fmb*fmc*hbcm-fmb*hbcm2+fmc
14316      . *hbcm2-hbcm3)+16*(p4p6*p3p7)*(6*fb3*fmc-2*fb3*hbcm+2*fb4*fmb-
14317      . hbcm)+8*(p5p7*p3p6)*(4*fb3*fmc-4*fb3*hbcm-4*fb4*fmb+3*hbcm)+32
14318      . *(p4p7*p3p6)*(fb3*fmc+fb4*fmb)+32*(p6p7*p3p4)*(-fb3*fmc-fb4*
14319      . fmb)+32*(p6p7*p1p3)*(fb3*fmc+fb4*fmb)+4*(p3p7*p3p6)*(8*fb3*
14320      . ffmcfmb*fmc+24*fb4*ffmcfmb*fmb-8*fb4*fmb+3*fmb-3*fmc+hbcm)+8*(
14321      . 4*fb3*hbcm*p1p4*p6p7+4*fb3*hbcm*p2p5*p6p7+8*fb3*hbcm*p4p6*p4p7
14322      . -4*fb3*hbcm*p4p6*p5p7-4*fb3*hbcm*p5p6*p5p7+hbcm*p2p3*p6p7-hbcm
14323      . *p3p5*p6p7))
14324       ans8=w12*(8*(p5p7*p3p6)*(fmc*hbcm2+2*fmc2*hbcm)+8*(p3p7*p3p6)*(
14325      . fmc*hbcm2-2*fmc2*hbcm)+8*p6p7*(fmb*p1p3s2-fmc*p1p3s2)+8*(p4p6*
14326      . p3p7*p1p3)*(fmb+3*fmc-hbcm)+8*(p5p7*p3p6*p1p3)*(-fmb-fmc-hbcm)
14327      . +8*(p4p7*p3p6*p1p3)*(fmb+fmc)+8*(p6p7*p3p4*p1p3)*(-fmb+fmc)+8*
14328      . (p4p7*p3p6)*(-fmb*fmc*hbcm-2*fmc*hbcm2+fmc2*hbcm)+16*(p3p7*
14329      . p3p6*p3p5)*(-2*ffmcfmb*fmc+fmc)+16*(p3p7*p3p6*p2p3)*(2*ffmcfmb
14330      . *fmc-fmc)+8*(p3p7*p3p6*p1p3)*(3*ffmcfmb*fmb+ffmcfmb*fmc-fmb)+8
14331      . *(fmc*hbcm2*p1p3*p6p7-2*fmc*p1p3*p2p3*p6p7+2*fmc*p1p3*p3p5*
14332      . p6p7+2*fmc*p1p4*p3p6*p3p7+4*fmc*p2p3*p3p6*p4p7-6*fmc*p2p3*p3p6
14333      . *p5p7+2*fmc*p2p5*p3p6*p3p7+2*fmc*p3p4*p3p6*p5p7-4*fmc*p3p5*
14334      . p3p6*p4p7+2*fmc*p3p5*p3p6*p5p7+hbcm*p1p3*p1p4*p6p7+hbcm*p1p3*
14335      . p2p5*p6p7+2*hbcm*p1p3*p4p6*p4p7-hbcm*p1p3*p4p6*p5p7-hbcm*p1p3*
14336      . p5p6*p5p7))+ans9
14337       ans1=ans2+ans5+ans8
14338       ans=ccc*ans1
14339       b(11)=ans
14340       ans5=8*(4*ffmcfmb*p3p5*p3p6*p3p7*p5p8+4*fmb*hbcm*p1p8*p2p3*p6p7
14341      . -2*fmb*hbcm*p2p3*p4p6*p7p8+2*fmb*hbcm*p2p3*p4p7*p6p8-4*fmb*
14342      . hbcm*p2p3*p4p8*p6p7+2*fmb*hbcm*p2p3*p5p6*p7p8-2*fmb*hbcm*p2p3*
14343      . p5p7*p6p8-2*fmb*hbcm*p2p3*p5p8*p6p7+6*fmb*hbcm*p2p8*p3p7*p4p6-
14344      . 2*fmb*hbcm*p2p8*p3p7*p5p6-hbcm2*p1p4*p5p8*p6p7-2*hbcm2*p1p5*
14345      . p5p8*p6p7+hbcm2*p2p5*p5p8*p6p7+2*hbcm2*p4p5*p5p8*p6p7-3*hbcm2*
14346      . p4p6*p4p7*p5p8-2*hbcm2*p4p7*p5p6*p5p8+hbcm2*p5p6*p5p7*p5p8+2*
14347      . p1p3*p3p5*p5p8*p6p7+4*p1p8*p2p3*p3p5*p6p7-2*p2p3*p3p5*p4p6*
14348      . p7p8+2*p2p3*p3p5*p4p7*p6p8-4*p2p3*p3p5*p4p8*p6p7+2*p2p3*p3p5*
14349      . p5p6*p7p8-2*p2p3*p3p5*p5p7*p6p8-2*p2p3*p3p5*p5p8*p6p7+6*p2p8*
14350      . p3p5*p3p7*p4p6-2*p2p8*p3p5*p3p7*p5p6-2*p3p4*p3p5*p5p8*p6p7+2*
14351      . p3p5*p3p6*p4p7*p5p8-2*p3p5*p3p6*p5p7*p5p8+2*p3p5*p3p7*p4p6*
14352      . p5p8+2*p3p5*p3p7*p5p6*p5p8)
14353       ans4=8*(p7p8*p5p6)*(fmb*fmc*hbcm2-fmb*hbcm3+fmb2*hbcm2-2*p3p5s2
14354      . )+8*(p6p7*p4p8)*(-fmb*fmc*hbcm2+fmb*hbcm3-fmb2*hbcm2+2*p3p5s2)
14355      . +8*(p6p8*p4p7)*(fmb*fmc*hbcm2-fmb*hbcm3+fmb2*hbcm2-2*p3p5s2)+8
14356      . *(p7p8*p4p6)*(fmb*fmc*hbcm2-fmb*hbcm3+fmb2*hbcm2-2*p3p5s2)+8*(
14357      . p7p8*p3p6)*(fmb*fmc*hbcm2-fmb*hbcm3+fmb2*hbcm2-2*p3p5s2)+8*(
14358      . p6p7*p2p8)*(-fmb*fmc*hbcm2+fmb*hbcm3-fmb2*hbcm2+2*p3p5s2)+8*(
14359      . p6p7*p1p8)*(fmb*fmc*hbcm2-fmb*hbcm3+fmb2*hbcm2-2*p3p5s2)+8*(
14360      . p6p8*p3p7)*(-4*ffmcfmb*p3p5s2-3*fmb*fmc*hbcm2+2*fmb*fmc2*hbcm+
14361      . fmb*hbcm3+2*fmb2*fmc*hbcm-fmb2*hbcm2+2*p3p5s2)+(p3p7*p3p6*p3p5
14362      . *p2p8)*(64*ffmcfmb-16)+(p6p8*p3p7*p3p5*p2p3)*(32*ffmcfmb-16)+(
14363      . p7p8*p3p6*p3p5*p2p3)*(-32*ffmcfmb+16)+ans5
14364       ans3=8*(p5p8*p5p6*p3p7)*(fmb*hbcm-5*fmc*hbcm+3*hbcm2)+8*(p5p8*
14365      . p4p6*p3p7)*(fmb*hbcm-5*fmc*hbcm+2*hbcm2)+8*(p5p8*p5p7*p3p6)*(-
14366      . fmb*hbcm-hbcm2)+8*(p5p8*p4p7*p3p6)*(fmb*hbcm-2*fmc*hbcm)+8*(
14367      . p6p8*p5p7*p3p5)*(fmb*hbcm-fmc*hbcm+hbcm2)+8*(p7p8*p5p6*p3p5)*(
14368      . -fmb*hbcm+fmc*hbcm-hbcm2)+8*(p6p7*p4p8*p3p5)*(fmb*hbcm-fmc*
14369      . hbcm+hbcm2)+8*(p6p8*p4p7*p3p5)*(-fmb*hbcm+fmc*hbcm-hbcm2)+8*(
14370      . p7p8*p4p6*p3p5)*(-fmb*hbcm+fmc*hbcm-hbcm2)+8*(p7p8*p3p6*p3p5)*
14371      . (-fmb*hbcm+fmc*hbcm-hbcm2)+8*(p6p7*p5p8*p3p4)*(-fmb*hbcm+fmc*
14372      . hbcm)+8*(p6p7*p3p5*p2p8)*(fmb*hbcm-fmc*hbcm+hbcm2)+8*(p6p7*
14373      . p3p5*p1p8)*(-fmb*hbcm+fmc*hbcm-hbcm2)+8*(p6p7*p5p8*p1p3)*(fmb*
14374      . hbcm-fmc*hbcm)+8*(p5p8*p3p7*p3p6)*(2*fmb*fmc-fmc*hbcm-2*fmc2+
14375      . hbcm2)+8*(p6p8*p3p7*p3p5)*(-2*fmb*fmc+fmb*hbcm-3*fmc*hbcm+2*
14376      . fmc2+hbcm2)+16*(p3p7*p3p6*p2p8)*(4*fmb*fmc-fmb*hbcm)+16*(p6p8*
14377      . p3p7*p2p3)*(2*fmb*fmc-fmb*hbcm)+16*(p7p8*p3p6*p2p3)*(-2*fmb*
14378      . fmc+fmb*hbcm)+8*(p6p7*p5p8)*(-fmb*fmc*hbcm2+fmc2*hbcm2)+8*(
14379      . p6p8*p5p7)*(-fmb*fmc*hbcm2+fmb*hbcm3-fmb2*hbcm2+2*p3p5s2)+ans4
14380       ans2=w2*ans3
14381       ans13=2*p3p4*p3p5*p3p6*p7p8+2*p3p4*p3p5*p4p6*p7p8+2*p3p4*p3p5*
14382      . p4p7*p6p8-2*p3p4*p3p5*p4p8*p6p7+2*p3p4*p3p5*p5p6*p7p8-2*p3p4*
14383      . p3p5*p5p7*p6p8-2*p3p4*p3p6*p4p7*p5p8+2*p3p4*p3p6*p5p7*p5p8-2*
14384      . p3p4*p3p7*p4p6*p5p8-2*p3p4*p3p7*p5p6*p5p8
14385       ans12=hbcm2*p1p8*p3p4*p6p7+hbcm2*p1p8*p4p6*p4p7-4*hbcm2*p1p8*
14386      . p4p6*p5p7-hbcm2*p1p8*p5p6*p5p7-2*hbcm2*p2p4*p4p6*p7p8-2*hbcm2*
14387      . p2p5*p4p6*p7p8-hbcm2*p2p5*p4p8*p6p7+2*hbcm2*p2p8*p4p6*p4p7+2*
14388      . hbcm2*p2p8*p4p6*p5p7-hbcm2*p3p4*p4p8*p6p7-2*hbcm2*p4p5*p4p6*
14389      . p7p8-hbcm2*p4p6*p4p7*p4p8-2*hbcm2*p4p6*p4p7*p5p8+4*hbcm2*p4p6*
14390      . p4p8*p5p7+2*hbcm2*p4p6*p5p7*p5p8+hbcm2*p4p8*p5p6*p5p7+4*p1p3*
14391      . p1p8*p2p3*p6p7-2*p1p3*p1p8*p3p5*p6p7-2*p1p3*p2p3*p4p6*p7p8+2*
14392      . p1p3*p2p3*p4p7*p6p8-4*p1p3*p2p3*p4p8*p6p7+2*p1p3*p2p3*p5p6*
14393      . p7p8-2*p1p3*p2p3*p5p7*p6p8-2*p1p3*p2p3*p5p8*p6p7+2*p1p3*p2p8*
14394      . p3p5*p6p7+6*p1p3*p2p8*p3p7*p4p6-2*p1p3*p2p8*p3p7*p5p6-4*p1p3*
14395      . p3p4*p5p8*p6p7-2*p1p3*p3p5*p3p6*p7p8-2*p1p3*p3p5*p4p6*p7p8-2*
14396      . p1p3*p3p5*p4p7*p6p8+2*p1p3*p3p5*p4p8*p6p7-2*p1p3*p3p5*p5p6*
14397      . p7p8+2*p1p3*p3p5*p5p7*p6p8+2*p1p3*p3p6*p4p7*p5p8-2*p1p3*p3p6*
14398      . p5p7*p5p8+2*p1p3*p3p7*p4p6*p5p8+2*p1p3*p3p7*p5p6*p5p8-4*p1p8*
14399      . p2p3*p3p4*p6p7+2*p1p8*p3p4*p3p5*p6p7+2*p2p3*p3p4*p4p6*p7p8-2*
14400      . p2p3*p3p4*p4p7*p6p8+4*p2p3*p3p4*p4p8*p6p7-2*p2p3*p3p4*p5p6*
14401      . p7p8+2*p2p3*p3p4*p5p7*p6p8+2*p2p3*p3p4*p5p8*p6p7-2*p2p8*p3p4*
14402      . p3p5*p6p7-6*p2p8*p3p4*p3p7*p4p6+2*p2p8*p3p4*p3p7*p5p6+ans13
14403       ans11=4*ffmcfmb*p1p3*p3p6*p3p7*p5p8-4*ffmcfmb*p3p4*p3p6*p3p7*
14404      . p5p8-4*fmb*fmc*p2p3*p3p6*p7p8+fmb*hbcm*p1p8*p3p6*p4p7-fmb*hbcm
14405      . *p3p6*p4p7*p4p8+2*fmc*hbcm*p1p2*p3p6*p7p8-2*fmc*hbcm*p1p3*p5p8
14406      . *p6p7+2*fmc*hbcm*p1p5*p3p6*p7p8-4*fmc*hbcm*p1p8*p2p3*p6p7+2*
14407      . fmc*hbcm*p1p8*p3p5*p6p7-2*fmc*hbcm*p2p3*p4p7*p6p8+4*fmc*hbcm*
14408      . p2p3*p4p8*p6p7-2*fmc*hbcm*p2p3*p5p6*p7p8+2*fmc*hbcm*p2p3*p5p7*
14409      . p6p8+2*fmc*hbcm*p2p3*p5p8*p6p7-2*fmc*hbcm*p2p4*p3p6*p7p8-2*fmc
14410      . *hbcm*p2p5*p3p6*p7p8-2*fmc*hbcm*p2p8*p3p5*p6p7+2*fmc*hbcm*p2p8
14411      . *p3p6*p4p7+2*fmc*hbcm*p2p8*p3p6*p5p7+2*fmc*hbcm*p2p8*p3p7*p5p6
14412      . +2*fmc*hbcm*p3p4*p5p8*p6p7+2*fmc*hbcm*p3p5*p4p7*p6p8-2*fmc*
14413      . hbcm*p3p5*p4p8*p6p7+2*fmc*hbcm*p3p5*p5p6*p7p8-2*fmc*hbcm*p3p5*
14414      . p5p7*p6p8-2*fmc*hbcm*p3p6*p4p5*p7p8-2*fmc*hbcm*p3p6*p4p7*p5p8+
14415      . 2*fmc*hbcm*p3p6*p5p7*p5p8-2*fmc*hbcm*p3p7*p5p6*p5p8+fmc*hbcm3*
14416      . p1p8*p6p7-fmc*hbcm3*p4p8*p6p7-4*fmc2*p3p6*p3p7*p5p8+2*hbcm2*
14417      . p1p2*p4p6*p7p8-hbcm2*p1p3*p1p8*p6p7+hbcm2*p1p3*p4p8*p6p7-hbcm2
14418      . *p1p4*p1p8*p6p7+2*hbcm2*p1p4*p2p8*p6p7-2*hbcm2*p1p4*p4p7*p6p8+
14419      . hbcm2*p1p4*p4p8*p6p7-2*hbcm2*p1p4*p5p6*p7p8+2*hbcm2*p1p4*p5p7*
14420      . p6p8+2*hbcm2*p1p4*p5p8*p6p7+2*hbcm2*p1p5*p4p6*p7p8+hbcm2*p1p8*
14421      . p2p5*p6p7+ans12
14422       ans10=8*ans11
14423       ans9=(p3p7*p3p6*p3p4*p2p8)*(-64*ffmcfmb+16)+(p6p8*p3p7*p3p4*
14424      . p2p3)*(-32*ffmcfmb+16)+(p7p8*p3p6*p3p4*p2p3)*(32*ffmcfmb-16)+(
14425      . p6p8*p3p7*p3p5*p1p3)*(-32*ffmcfmb+16)+(p3p7*p3p6*p2p8*p1p3)*(
14426      . 64*ffmcfmb-16)+(p6p8*p3p7*p2p3*p1p3)*(32*ffmcfmb-16)+(p7p8*
14427      . p3p6*p2p3*p1p3)*(-32*ffmcfmb+16)+ans10
14428       ans8=8*(p7p8*p5p6*p1p3)*(-fmb*hbcm-fmc*hbcm-hbcm2)+8*(p6p8*p4p7
14429      . *p1p3)*(-fmb*hbcm-fmc*hbcm-hbcm2)+8*(p7p8*p4p6*p1p3)*(-fmb*
14430      . hbcm-fmc*hbcm+hbcm2)+8*(p7p8*p3p6*p1p3)*(-fmb*hbcm+fmc*hbcm-
14431      . hbcm2)+8*(p6p7*p2p8*p1p3)*(fmb*hbcm+fmc*hbcm+hbcm2)+8*(p4p8*
14432      . p3p7*p3p6)*(-2*fmb*fmc+fmc*hbcm-2*fmc2+hbcm2)+8*(p6p8*p3p7*
14433      . p3p4)*(2*fmb*fmc-fmb*hbcm+fmc*hbcm+2*fmc2-hbcm2)+16*(p3p7*p3p6
14434      . *p2p8)*(3*fmb*fmc-fmc*hbcm-fmc2)+8*(p3p7*p3p6*p1p8)*(2*fmb*fmc
14435      . -fmc*hbcm+2*fmc2-hbcm2)+8*(p6p8*p3p7*p1p3)*(-2*fmb*fmc+fmb*
14436      . hbcm-fmc*hbcm-2*fmc2+hbcm2)+8*(p6p8*p5p7)*(-fmb*fmc*hbcm2-fmc*
14437      . hbcm3-fmc2*hbcm2)+8*(p7p8*p5p6)*(fmb*fmc*hbcm2+fmc*hbcm3+fmc2*
14438      . hbcm2)+8*(p6p8*p4p7)*(fmb*fmc*hbcm2+fmc*hbcm3+fmc2*hbcm2)+8*(
14439      . p7p8*p4p6)*(fmb*fmc*hbcm2-fmb2*hbcm2+fmc*hbcm3-hbcm4)+8*(p6p8*
14440      . p3p7)*(-fmb*fmc*hbcm2+2*fmb*fmc2*hbcm-fmc*hbcm3+fmc2*hbcm2+2*
14441      . fmc3*hbcm)+8*(p7p8*p3p6)*(fmb*fmc*hbcm2-fmb2*fmc*hbcm+fmc2*
14442      . hbcm2-fmc3*hbcm)+8*(p6p7*p2p8)*(-fmb*fmc*hbcm2-fmc*hbcm3-fmc2*
14443      . hbcm2)+(p6p8*p3p7*p3p5*p3p4)*(32*ffmcfmb-16)+ans9
14444       ans7=16*(p6p7*p5p8)*(p1p3s2+p3p4s2)+16*(p5p8*p4p6*p3p7)*(-3*fmc
14445      . *hbcm+hbcm2)+16*(p7p8*p4p6*p3p5)*(fmc*hbcm-hbcm2)+16*(p6p8*
14446      . p3p7*p3p5)*(-fmc*hbcm+2*fmc2)+16*(p6p8*p3p7*p2p3)*(fmc*hbcm-2*
14447      . fmc2)+16*(p6p8*p3p7*p1p4)*(-2*fmc*hbcm+hbcm2)+16*(p7p8*p3p6*
14448      . p1p4)*(fmc*hbcm-hbcm2)+8*(p5p6*p4p8*p3p7)*(-fmb*hbcm-fmc*hbcm+
14449      . hbcm2)+8*(p4p8*p4p6*p3p7)*(-fmb*hbcm-5*fmc*hbcm+4*hbcm2)+8*(
14450      . p5p7*p4p8*p3p6)*(fmb*hbcm+2*fmc*hbcm+hbcm2)+8*(p6p8*p5p7*p3p4)
14451      . *(-fmb*hbcm-fmc*hbcm-hbcm2)+8*(p7p8*p5p6*p3p4)*(fmb*hbcm+fmc*
14452      . hbcm+hbcm2)+8*(p6p8*p4p7*p3p4)*(fmb*hbcm+fmc*hbcm+hbcm2)+8*(
14453      . p7p8*p4p6*p3p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p7p8*p3p6*p3p4)*(
14454      . fmb*hbcm-fmc*hbcm+hbcm2)+16*(p4p6*p3p7*p2p8)*(3*fmb*hbcm-2*
14455      . hbcm2)+8*(p6p7*p3p4*p2p8)*(-fmb*hbcm-fmc*hbcm-hbcm2)+16*(p7p8*
14456      . p4p6*p2p3)*(-2*fmb*hbcm-fmc*hbcm+hbcm2)+8*(p5p6*p3p7*p1p8)*(
14457      . fmb*hbcm+fmc*hbcm-hbcm2)+8*(p4p6*p3p7*p1p8)*(fmb*hbcm+5*fmc*
14458      . hbcm-4*hbcm2)+8*(p5p7*p3p6*p1p8)*(-fmb*hbcm-2*fmc*hbcm-hbcm2)+
14459      . 8*(p6p8*p5p7*p1p3)*(fmb*hbcm+fmc*hbcm+hbcm2)+ans8
14460       ans6=w5*ans7
14461       ans16=(p7p8*p3p6*p2p3*p1p3)*(-32*ffmcfmb+16)+8*(4*ffmcfmb*p1p3*
14462      . p3p6*p3p7*p5p8+2*fmc*hbcm*p1p2*p3p6*p7p8+2*fmc*hbcm*p1p5*p3p6*
14463      . p7p8-2*fmc*hbcm*p2p5*p3p6*p7p8+2*fmc*hbcm*p2p8*p3p6*p5p7-2*fmc
14464      . *hbcm*p3p5*p3p6*p7p8+2*fmc*hbcm*p3p6*p3p7*p4p8-2*fmc*hbcm*p3p6
14465      . *p4p7*p5p8+2*fmc*hbcm*p3p6*p4p8*p5p7-hbcm2*p1p3*p1p8*p6p7+
14466      . hbcm2*p1p4*p1p8*p6p7+hbcm2*p1p8*p2p5*p6p7+hbcm2*p1p8*p4p6*p4p7
14467      . -hbcm2*p1p8*p5p6*p5p7+4*p1p3*p1p8*p2p3*p6p7-2*p1p3*p1p8*p3p5*
14468      . p6p7-2*p1p3*p2p3*p4p6*p7p8+2*p1p3*p2p3*p4p7*p6p8-4*p1p3*p2p3*
14469      . p4p8*p6p7+2*p1p3*p2p3*p5p6*p7p8-2*p1p3*p2p3*p5p7*p6p8-2*p1p3*
14470      . p2p3*p5p8*p6p7+2*p1p3*p2p8*p3p5*p6p7+6*p1p3*p2p8*p3p7*p4p6-2*
14471      . p1p3*p2p8*p3p7*p5p6-2*p1p3*p3p4*p5p8*p6p7-2*p1p3*p3p5*p3p6*
14472      . p7p8-2*p1p3*p3p5*p4p6*p7p8-2*p1p3*p3p5*p4p7*p6p8+2*p1p3*p3p5*
14473      . p4p8*p6p7-2*p1p3*p3p5*p5p6*p7p8+2*p1p3*p3p5*p5p7*p6p8+2*p1p3*
14474      . p3p6*p4p7*p5p8-2*p1p3*p3p6*p5p7*p5p8+2*p1p3*p3p7*p4p6*p5p8+2*
14475      . p1p3*p3p7*p5p6*p5p8+2*p1p3s2*p5p8*p6p7)
14476       ans15=8*(p7p8*p3p6)*(-fmb2*fmc*hbcm-fmc*hbcm3+fmc3*hbcm)+8*(
14477      . p5p6*p3p7*p1p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p4p6*p3p7*p1p8)*(
14478      . fmb*hbcm+fmc*hbcm)+8*(p5p7*p3p6*p1p8)*(-fmb*hbcm-2*fmc*hbcm-
14479      . hbcm2)+8*(p4p7*p3p6*p1p8)*(fmb*hbcm+2*fmc*hbcm)+8*(p6p7*p3p4*
14480      . p1p8)*(-fmb*hbcm-fmc*hbcm)+8*(p6p8*p5p7*p1p3)*(fmb*hbcm+fmc*
14481      . hbcm+hbcm2)+8*(p7p8*p5p6*p1p3)*(-fmb*hbcm-fmc*hbcm-hbcm2)+8*(
14482      . p6p7*p4p8*p1p3)*(fmb*hbcm+fmc*hbcm+hbcm2)+8*(p6p8*p4p7*p1p3)*(
14483      . -fmb*hbcm-fmc*hbcm-hbcm2)+8*(p7p8*p4p6*p1p3)*(-fmb*hbcm+fmc*
14484      . hbcm-hbcm2)+8*(p7p8*p3p6*p1p3)*(-fmb*hbcm+fmc*hbcm-hbcm2)+8*(
14485      . p6p7*p2p8*p1p3)*(fmb*hbcm+fmc*hbcm+hbcm2)+16*(p3p7*p3p6*p2p8)*
14486      . (3*fmb*fmc-2*fmc*hbcm+3*fmc2)+16*(p7p8*p3p6*p2p3)*(-2*fmb*fmc+
14487      . fmc*hbcm-2*fmc2)+8*(p3p7*p3p6*p1p8)*(2*fmb*fmc-fmc*hbcm+2*fmc2
14488      . -hbcm2)+8*(p6p8*p3p7*p1p3)*(-2*fmb*fmc+fmb*hbcm-fmc*hbcm-2*
14489      . fmc2+hbcm2)+8*(p6p7*p1p8)*(-fmb*fmc*hbcm2-fmc2*hbcm2)+(p6p8*
14490      . p3p7*p3p5*p1p3)*(-32*ffmcfmb+16)+(p3p7*p3p6*p2p8*p1p3)*(64*
14491      . ffmcfmb-16)+(p6p8*p3p7*p2p3*p1p3)*(32*ffmcfmb-16)+ans16
14492       ans14=w12*ans15
14493       ans18=64*(fb4*p1p3*p5p8*p6p7+2*fb4*p1p8*p2p3*p6p7-fb4*p1p8*p3p5
14494      . *p6p7-fb4*p2p3*p4p6*p7p8+fb4*p2p3*p4p7*p6p8-2*fb4*p2p3*p4p8*
14495      . p6p7+fb4*p2p3*p5p6*p7p8-fb4*p2p3*p5p7*p6p8-fb4*p2p3*p5p8*p6p7+
14496      . fb4*p2p8*p3p5*p6p7+3*fb4*p2p8*p3p7*p4p6-fb4*p2p8*p3p7*p5p6-fb4
14497      . *p3p4*p5p8*p6p7-fb4*p3p5*p3p6*p7p8-fb4*p3p5*p4p6*p7p8-fb4*p3p5
14498      . *p4p7*p6p8+fb4*p3p5*p4p8*p6p7-fb4*p3p5*p5p6*p7p8+fb4*p3p5*p5p7
14499      . *p6p8+fb4*p3p6*p4p7*p5p8-fb4*p3p6*p5p7*p5p8+fb4*p3p7*p4p6*p5p8
14500      . +fb4*p3p7*p5p6*p5p8)
14501       ans17=8*(p6p7*p5p8)*(-8*fb4*fmc*hbcm-hbcm2)+(p5p8*p3p7*p3p6)*(
14502      . 128*fb4*ffmcfmb+16)+(p6p8*p3p7*p3p5)*(-128*fb4*ffmcfmb+64*fb4-
14503      . 16)+(p3p7*p3p6*p2p8)*(256*fb4*ffmcfmb-64*fb4+32)+(p6p8*p3p7*
14504      . p2p3)*(128*fb4*ffmcfmb-64*fb4+16)+(p7p8*p3p6*p2p3)*(-128*fb4*
14505      . ffmcfmb+64*fb4-16)+4*(p6p8*p5p7)*(8*fb3*fmb*hbcm-8*fb4*fmc*
14506      . hbcm+8*fb4*hbcm2+7*hbcm2)+32*(p7p8*p5p6)*(-fb3*fmb*hbcm+fb4*
14507      . fmc*hbcm-fb4*hbcm2)+32*(p6p7*p4p8)*(fb3*fmb*hbcm-fb4*fmc*hbcm+
14508      . fb4*hbcm2)+4*(p6p8*p4p7)*(-8*fb3*fmb*hbcm+8*fb4*fmc*hbcm-8*fb4
14509      . *hbcm2-hbcm2)+8*(p7p8*p4p6)*(-4*fb3*fmb*hbcm+4*fb4*fmc*hbcm-4*
14510      . fb4*hbcm2+3*hbcm2)+8*(p7p8*p3p6)*(-4*fb3*fmb*hbcm+4*fb4*fmc*
14511      . hbcm-4*fb4*hbcm2+fmb*hbcm+fmc*hbcm)+32*(p6p7*p2p8)*(fb3*fmb*
14512      . hbcm-fb4*fmc*hbcm+fb4*hbcm2)+32*(p6p7*p1p8)*(-fb3*fmb*hbcm+fb4
14513      . *fmc*hbcm-fb4*hbcm2)+4*(p6p8*p3p7)*(-16*fb3*fmb*fmc+8*fb3*fmb*
14514      . hbcm-24*fb4*fmc*hbcm+16*fb4*fmc2+8*fb4*hbcm2-2*fmb*hbcm-6*fmc*
14515      . hbcm+5*hbcm2)+ans18
14516       ans1=ans2+ans6+ans14+ans17
14517       ans=ccc*ans1
14518       b(12)=ans
14519       ans2=w2*(4*(p5p8*p3p5)*(-2*fmc+hbcm)+2*p5p8*(fmb2*hbcm-2*fmc*
14520      . hbcm2-fmc2*hbcm+hbcm3)+4*(p4p8*p3p5)*(fmb-fmc+hbcm)+8*(p3p5*
14521      . p2p8)*(-fmb+2*fmc-hbcm)+4*(p3p5*p1p8)*(-fmb+fmc-hbcm)+4*p4p8*(
14522      . -fmb*fmc*hbcm+fmb*hbcm2+fmb2*hbcm)+8*p2p8*(fmb*fmc*hbcm-fmb*
14523      . hbcm2-fmb2*hbcm)+4*p1p8*(fmb*fmc*hbcm-fmb*hbcm2-fmb2*hbcm)+4*(
14524      . fmc*p1p3*p5p8-hbcm*p1p2*p5p8+hbcm*p1p4*p5p8-2*hbcm*p1p5*p2p8+
14525      . hbcm*p1p5*p5p8+hbcm*p2p3*p5p8+2*hbcm*p2p5*p2p8+2*hbcm*p2p8*
14526      . p4p5-hbcm*p3p4*p5p8-2*hbcm*p4p5*p5p8))+(16*p4p8*(fb3*fmc-fb3*
14527      . hbcm+fb4*fmb)+8*p2p8*(-4*fb3*fmc+4*fb3*hbcm-4*fb4*fmb-3*hbcm)+
14528      . 2*p1p8*(-8*fb3*fmc+8*fb3*hbcm-8*fb4*fmb-5*hbcm)+24*hbcm*p5p8)
14529       ans1=w12*(2*p1p8*(-fmb2*hbcm+2*fmc*hbcm2+fmc2*hbcm-hbcm3)+4*(
14530      . p4p8*p1p3)*(fmb-fmc-hbcm)+8*(p2p8*p1p3)*(-fmb+fmc+hbcm)+4*(
14531      . p1p8*p1p3)*(-fmb+hbcm)+4*(hbcm*p1p2*p1p8-hbcm*p1p4*p1p8+hbcm*
14532      . p1p5*p1p8-hbcm*p1p8*p2p3-2*hbcm*p1p8*p2p5+hbcm*p1p8*p3p4-hbcm*
14533      . p1p8*p3p5))+w5*(8*(p5p8*p3p4)*(fmc-hbcm)+4*(p4p8*p3p4)*(-fmb+
14534      . fmc)+8*(p3p4*p2p8)*(fmb-2*fmc)+4*(p3p4*p1p8)*(fmb-fmc)+4*(p4p8
14535      . *p1p3)*(fmb-hbcm)+8*(p2p8*p1p3)*(-fmb+fmc+hbcm)+4*(p1p8*p1p3)*
14536      . (-fmb+hbcm)+2*p4p8*(-2*fmb*fmc*hbcm+fmb2*hbcm+fmc2*hbcm+hbcm3)
14537      . +8*p2p8*(fmb*fmc*hbcm-fmc*hbcm2-fmc2*hbcm)+2*p1p8*(2*fmb*fmc*
14538      . hbcm-fmb2*hbcm-fmc2*hbcm-hbcm3)+4*(hbcm*p1p2*p1p8-hbcm*p1p2*
14539      . p4p8+hbcm*p1p4*p1p8+4*hbcm*p1p4*p2p8-hbcm*p1p4*p4p8+hbcm*p1p5*
14540      . p1p8-hbcm*p1p5*p4p8-hbcm*p1p8*p2p3-2*hbcm*p1p8*p2p5-hbcm*p1p8*
14541      . p3p5+hbcm*p2p3*p4p8+2*hbcm*p2p4*p2p8-2*hbcm*p2p4*p5p8+2*hbcm*
14542      . p2p5*p4p8+2*hbcm*p2p8*p4p5+hbcm*p3p5*p4p8-2*hbcm*p4p5*p5p8))+
14543      . ans2
14544       ans=ccc*ans1
14545       b(13)=ans
14546       ans2=w5*(2*p1p3*(-fmb2+2*fmc*hbcm+3*fmc2-hbcm2)+4*p4p5*(fmb*
14547      . hbcm+fmc*hbcm-hbcm2)+4*p2p4*(fmb*hbcm+fmc*hbcm-hbcm2)+2*p3p4*(
14548      . -2*fmb*fmc+2*fmb*hbcm+fmb2-3*fmc2-hbcm2)+(p3p4*p1p3)*(4*
14549      . ffmcfmb+4)+2*(-2*ffmcfmb*p1p3s2+fmb2*fmc*hbcm-2*fmc*hbcm*p1p2+
14550      . 2*fmc*hbcm*p1p4-2*fmc*hbcm*p1p5+2*fmc*hbcm*p2p3+4*fmc*hbcm*
14551      . p2p5+2*fmc*hbcm*p3p5+fmc*hbcm3-2*fmc2*hbcm2-fmc3*hbcm+2*p1p2*
14552      . p1p3-2*p1p2*p3p4-2*p1p3*p1p4+2*p1p3*p1p5-2*p1p3*p2p3-4*p1p3*
14553      . p2p5-2*p1p3*p3p5+2*p1p4*p3p4-2*p1p5*p3p4+2*p2p3*p3p4+4*p2p5*
14554      . p3p4+2*p3p4*p3p5-2*p3p4s2))+(p1p3*(-16*fb4*ffmcfmb-2)+4*(-2*
14555      . fb4*fmb2+4*fb4*fmc*hbcm+2*fb4*fmc2-2*fb4*hbcm2+4*fb4*p1p2-4*
14556      . fb4*p1p4+4*fb4*p1p5-4*fb4*p2p3-8*fb4*p2p5+4*fb4*p3p4-4*fb4*
14557      . p3p5-3*fmb*hbcm-3*fmc*hbcm+2*hbcm2))
14558       ans1=w12*(2*p1p3*(-fmb2+2*fmc*hbcm+fmc2-hbcm2)+4*(-ffmcfmb*
14559      . p1p3s2+p1p2*p1p3-p1p3*p1p4+p1p3*p1p5-p1p3*p2p3-2*p1p3*p2p5+
14560      . p1p3*p3p4-p1p3*p3p5))+w2*(4*p1p5*(-fmc*hbcm+hbcm2)+4*p4p5*(fmb
14561      . *hbcm+fmc*hbcm-hbcm2)+4*p2p5*(-fmb*hbcm+fmc*hbcm-hbcm2)+2*p3p5
14562      . *(2*fmb*fmc-2*fmb*hbcm-fmb2+3*fmc2-hbcm2)+2*(-2*ffmcfmb*p1p3*
14563      . p3p5+2*fmb*fmc*hbcm2-2*fmb*fmc*p1p3+fmb*fmc2*hbcm+2*fmb*hbcm*
14564      . p1p2-2*fmb*hbcm*p1p4-2*fmb*hbcm*p2p3+2*fmb*hbcm*p3p4-fmb*hbcm3
14565      . -fmb3*hbcm+2*p1p2*p3p5-2*p1p4*p3p5+2*p1p5*p3p5-2*p2p3*p3p5-4*
14566      . p2p5*p3p5+2*p3p4*p3p5-2*p3p5s2))+ans2
14567       ans=ccc*ans1
14568       b(14)=ans
14569       ans4=4*(-2*fmb*hbcm*p2p8*p3p4+4*fmc*hbcm*p1p3*p5p8+4*fmc*hbcm*
14570      . p2p3*p5p8-4*fmc*hbcm*p2p8*p3p5+hbcm2*p1p2*p1p8-hbcm2*p1p2*p4p8
14571      . +hbcm2*p1p4*p1p8+4*hbcm2*p1p4*p2p8-hbcm2*p1p4*p4p8+hbcm2*p1p5*
14572      . p1p8-hbcm2*p1p5*p4p8-2*hbcm2*p1p8*p2p5-hbcm2*p1p8*p3p4+2*hbcm2
14573      . *p2p4*p2p8-2*hbcm2*p2p4*p5p8+2*hbcm2*p2p5*p4p8+2*hbcm2*p2p8*
14574      . p4p5+hbcm2*p3p4*p4p8-2*hbcm2*p4p5*p5p8-2*p1p3*p1p8*p2p3+2*p1p3
14575      . *p1p8*p3p5+2*p1p3*p2p3*p4p8-4*p1p3*p2p3*p5p8-4*p1p3*p2p8*p3p4+
14576      . 4*p1p3*p2p8*p3p5+4*p1p3*p3p4*p5p8-2*p1p3*p3p5*p4p8+2*p1p8*p2p3
14577      . *p3p4-2*p1p8*p3p4*p3p5-2*p2p3*p3p4*p4p8+4*p2p3*p3p4*p5p8-4*
14578      . p2p8*p3p4*p3p5+2*p3p4*p3p5*p4p8)
14579       ans3=8*p5p8*(-fmc2*hbcm2-p1p3s2-p3p4s2)+4*(p4p8*p3p5)*(2*fmc*
14580      . hbcm+hbcm2)+8*(p5p8*p3p4)*(-fmc*hbcm-hbcm2)+4*(p3p5*p1p8)*(-2*
14581      . fmc*hbcm-hbcm2)+4*(p4p8*p1p3)*(fmc*hbcm-2*hbcm2)+4*(p1p8*p1p3)
14582      . *(-fmc*hbcm+2*hbcm2)+2*p4p8*(fmb2*hbcm2+2*fmc*hbcm3-fmc2*hbcm2
14583      . +hbcm4)+2*p1p8*(-fmb2*hbcm2-2*fmc*hbcm3+fmc2*hbcm2-hbcm4)+4*(
14584      . p4p8*p2p3)*(2*fmb*hbcm-hbcm2)+4*(p2p3*p1p8)*(-2*fmb*hbcm+hbcm2
14585      . )+8*(p2p8*p1p3)*(fmb*hbcm-fmc*hbcm+hbcm2)+8*p2p8*(-fmb*fmc*
14586      . hbcm2-fmc*hbcm3+p1p3s2+p3p4s2)+ans4
14587       ans2=w5*ans3
14588       ans6=w12*(4*(p1p8*p1p3)*(-fmc*hbcm+2*hbcm2)+4*(p3p4*p1p8)*(fmb*
14589      . hbcm+fmc*hbcm)+4*(p2p3*p1p8)*(-2*fmb*hbcm-2*fmc*hbcm+hbcm2)+4*
14590      . (p4p8*p1p3)*(-fmb*hbcm-fmc*hbcm-hbcm2)+8*(p2p8*p1p3)*(fmb*hbcm
14591      . +hbcm2)+2*p1p8*(2*fmb*fmc*hbcm2-fmb2*hbcm2+3*fmc2*hbcm2-hbcm4)
14592      . +4*(2*fmc*hbcm*p1p3*p5p8+hbcm2*p1p2*p1p8-hbcm2*p1p4*p1p8+hbcm2
14593      . *p1p5*p1p8-2*hbcm2*p1p8*p2p5-hbcm2*p1p8*p3p5-2*p1p3*p1p8*p2p3+
14594      . 2*p1p3*p1p8*p3p5+2*p1p3*p2p3*p4p8-4*p1p3*p2p3*p5p8-2*p1p3*p2p8
14595      . *p3p4+4*p1p3*p2p8*p3p5+2*p1p3*p3p4*p5p8-2*p1p3*p3p5*p4p8+2*
14596      . p1p3s2*p2p8-2*p1p3s2*p5p8))+(16*p5p8*(2*fb4*fmc*hbcm+hbcm2)+16
14597      . *p4p8*(-fb3*fmb*hbcm+fb4*fmc*hbcm-fb4*hbcm2)+16*p2p8*(2*fb3*
14598      . fmb*hbcm-4*fb4*fmc*hbcm+2*fb4*hbcm2-hbcm2)+2*p1p8*(8*fb3*fmb*
14599      . hbcm-8*fb4*fmc*hbcm+8*fb4*hbcm2-5*hbcm2)+32*(fb4*p1p3*p2p8-fb4
14600      . *p1p3*p5p8-fb4*p1p8*p2p3+fb4*p1p8*p3p5+fb4*p2p3*p4p8-2*fb4*
14601      . p2p3*p5p8-fb4*p2p8*p3p4+2*fb4*p2p8*p3p5+fb4*p3p4*p5p8-fb4*p3p5
14602      . *p4p8))
14603       ans5=w2*(4*(p4p8*p3p5)*(-fmb*hbcm+fmc*hbcm-hbcm2)+4*(p5p8*p3p4)
14604      . *(fmb*hbcm-fmc*hbcm)+8*(p3p5*p2p8)*(fmb*hbcm-fmc*hbcm+hbcm2)+4
14605      . *(p5p8*p2p3)*(-2*fmb*hbcm+2*fmc*hbcm-hbcm2)+4*(p3p5*p1p8)*(fmb
14606      . *hbcm-fmc*hbcm+hbcm2)+4*(p5p8*p1p3)*(-fmb*hbcm+2*fmc*hbcm-
14607      . hbcm2)+2*p5p8*(2*fmb*fmc*hbcm2+fmb2*hbcm2-3*fmc2*hbcm2+hbcm4)+
14608      . 4*p4p8*(fmb*fmc*hbcm2-fmb*hbcm3+fmb2*hbcm2-2*p3p5s2)+8*p2p8*(-
14609      . 2*fmb*fmc*hbcm2+fmb*hbcm3-fmb2*hbcm2+2*p3p5s2)+4*p1p8*(-fmb*
14610      . fmc*hbcm2+fmb*hbcm3-fmb2*hbcm2+2*p3p5s2)+4*(2*fmb*hbcm*p1p3*
14611      . p2p8-2*fmb*hbcm*p1p8*p2p3+2*fmb*hbcm*p2p3*p4p8-2*fmb*hbcm*p2p8
14612      . *p3p4-hbcm2*p1p2*p5p8+hbcm2*p1p4*p5p8-2*hbcm2*p1p5*p2p8+hbcm2*
14613      . p1p5*p5p8+2*hbcm2*p2p5*p2p8+2*hbcm2*p2p8*p4p5+hbcm2*p3p5*p5p8-
14614      . 2*hbcm2*p4p5*p5p8+2*p1p3*p2p8*p3p5-2*p1p3*p3p5*p5p8-2*p1p8*
14615      . p2p3*p3p5+2*p2p3*p3p5*p4p8-4*p2p3*p3p5*p5p8-2*p2p8*p3p4*p3p5+2
14616      . *p3p4*p3p5*p5p8))+ans6
14617       ans1=ans2+ans5
14618       ans=ccc*ans1
14619       b(15)=ans
14620       ans3=(8*p3p5*(2*fb3*hbcm-3*hbcm)+16*p3p4*(-fb3*fmc-fb4*fmb)+8*
14621      . p2p3*(4*fb3*fmc-2*fb3*hbcm+4*fb4*fmb+3*hbcm)+2*p1p3*(16*fb3*
14622      . fmc-8*fb3*hbcm+8*fb4*fmb+5*hbcm)+4*(2*fb3*fmb2*hbcm-6*fb3*fmc2
14623      . *hbcm-4*fb3*hbcm*p1p2+4*fb3*hbcm*p1p4-4*fb3*hbcm*p1p5+8*fb3*
14624      . hbcm*p2p5+2*fb3*hbcm3-4*fb4*fmb*fmc*hbcm-2*fmb*hbcm2+2*fmc*
14625      . hbcm2-3*hbcm3))
14626       ans2=w2*(4*p1p5*(fmc*hbcm2-hbcm3)+4*(p3p5*p3p4)*(-fmb+fmc)+4*(
14627      . p3p5*p2p3)*(2*fmb-4*fmc+hbcm)+4*(p3p5*p1p3)*(fmb-2*fmc+hbcm)+4
14628      . *p4p5*(fmb*hbcm2-fmc*hbcm2+hbcm3)+2*p3p5*(-2*fmb*hbcm2-fmb2*
14629      . hbcm+2*fmc*hbcm2+fmc2*hbcm-hbcm3)+4*p2p5*(-fmb*hbcm2-fmc*hbcm2
14630      . +hbcm3)+4*p3p4*(fmb*fmc*hbcm-fmb2*hbcm)+4*p2p3*(-2*fmb*fmc*
14631      . hbcm+fmb*hbcm2+2*fmb2*hbcm)+4*p1p3*(-2*fmb*fmc*hbcm+fmb*hbcm2+
14632      . fmb2*hbcm)+2*(3*fmb*fmc2*hbcm2+2*fmb*hbcm2*p1p2-2*fmb*hbcm2*
14633      . p1p4-fmb*hbcm4-2*fmb2*fmc*hbcm2-fmb3*hbcm2+4*fmc*p3p5s2+2*hbcm
14634      . *p1p2*p3p5-2*hbcm*p1p4*p3p5+4*hbcm*p1p5*p2p3-2*hbcm*p1p5*p3p5-
14635      . 4*hbcm*p2p3*p2p5-4*hbcm*p2p3*p4p5+4*hbcm*p3p5*p4p5-2*hbcm*
14636      . p3p5s2))+w12*(4*(p3p4*p1p3)*(-fmb+fmc)+4*(p2p3*p1p3)*(2*fmb-2*
14637      . fmc-hbcm)+2*p1p3*(-2*fmb*fmc*hbcm+fmb2*hbcm+fmc2*hbcm+hbcm3)+4
14638      . *(fmb*p1p3s2-hbcm*p1p2*p1p3+hbcm*p1p3*p1p4-hbcm*p1p3*p1p5+2*
14639      . hbcm*p1p3*p2p5+hbcm*p1p3*p3p5-hbcm*p1p3s2))+ans3
14640       ans1=w5*(4*(p3p5*p3p4)*(-2*fmc+hbcm)+4*(p3p4*p2p3)*(-2*fmb+4*
14641      . fmc-hbcm)+4*(p3p4*p1p3)*(-2*fmb+fmc+hbcm)+4*(p2p3*p1p3)*(2*fmb
14642      . -2*fmc-hbcm)+4*p4p5*(fmb*hbcm2-fmc*hbcm2+hbcm3)+4*p2p4*(fmb*
14643      . hbcm2-fmc*hbcm2+hbcm3)+2*p3p4*(2*fmb*fmc*hbcm+2*fmb*hbcm2-fmb2
14644      . *hbcm-4*fmc*hbcm2-fmc2*hbcm+hbcm3)+4*p2p3*(-2*fmb*fmc*hbcm+fmc
14645      . *hbcm2+2*fmc2*hbcm)+2*p1p3*(-4*fmb*fmc*hbcm+fmb2*hbcm+2*fmc*
14646      . hbcm2+fmc2*hbcm+hbcm3)+2*(2*fmb*fmc2*hbcm2+2*fmb*p1p3s2+2*fmb*
14647      . p3p4s2-fmb2*fmc*hbcm2+2*fmc*hbcm2*p1p2+2*fmc*hbcm2*p1p4+2*fmc*
14648      . hbcm2*p1p5-4*fmc*hbcm2*p2p5-2*fmc*hbcm2*p3p5-fmc*hbcm4-2*fmc*
14649      . p3p4s2-fmc3*hbcm2-2*hbcm*p1p2*p1p3+2*hbcm*p1p2*p3p4-2*hbcm*
14650      . p1p3*p1p4-2*hbcm*p1p3*p1p5+4*hbcm*p1p3*p2p5+2*hbcm*p1p3*p3p5-2
14651      . *hbcm*p1p3s2-8*hbcm*p1p4*p2p3+2*hbcm*p1p4*p3p4+2*hbcm*p1p5*
14652      . p3p4-4*hbcm*p2p3*p2p4-4*hbcm*p2p3*p4p5+4*hbcm*p2p4*p3p5-4*hbcm
14653      . *p2p5*p3p4+4*hbcm*p3p5*p4p5))+ans2
14654       ans=ccc*ans1
14655       b(16)=ans
14656       b(17)=ccc*(w2*(4*(p5p8*p3p6)*(-4*fmc+hbcm)+4*(-3*hbcm*p4p6*p5p8
14657      . +hbcm*p5p6*p5p8))+w5*(4*(p4p8*p3p6)*(-2*fmc+hbcm)+4*(p3p6*p1p8
14658      . )*(2*fmc-hbcm)+4*(2*fmc*p2p8*p3p6-6*fmc*p3p6*p5p8+hbcm*p1p8*
14659      . p4p6-hbcm*p1p8*p5p6+2*hbcm*p2p8*p4p6-hbcm*p4p6*p4p8-6*hbcm*
14660      . p4p6*p5p8+hbcm*p4p8*p5p6))+w12*(4*(p3p6*p1p8)*(2*fmc-hbcm)+4*(
14661      . 2*fmc*p2p8*p3p6+2*fmc*p3p6*p4p8-6*fmc*p3p6*p5p8+3*hbcm*p1p8*
14662      . p4p6-hbcm*p1p8*p5p6))+16*hbcm*p6p8)
14663       b(18)=ccc*(w2*(4*p3p6*(-4*fmb*fmc+fmb*hbcm)+(p3p6*p3p5)*(-16*
14664      . ffmcfmb+4)+4*(-3*fmb*hbcm*p4p6+fmb*hbcm*p5p6-3*p3p5*p4p6+p3p5*
14665      . p5p6))+w5*(12*p4p6*(-fmb*hbcm+hbcm2)+4*p3p6*(-3*fmb*fmc+2*fmc*
14666      . hbcm+fmc2)+(p3p6*p3p4)*(16*ffmcfmb-4)+(p3p6*p1p3)*(-16*ffmcfmb
14667      . +4)+4*(-fmc*hbcm*p5p6-3*p1p3*p4p6+p1p3*p5p6+3*p3p4*p4p6-p3p4*
14668      . p5p6))+w12*(12*p3p6*(-fmb*fmc+fmc*hbcm-fmc2)+(p3p6*p1p3)*(-16*
14669      . ffmcfmb+4)+4*(-3*p1p3*p4p6+p1p3*p5p6))+(p3p6*(-64*fb4*ffmcfmb+
14670      . 16*fb4-8)+16*(-3*fb4*p4p6+fb4*p5p6)))
14671       b(19)=ccc*(w5*(6*p4p8*(-fmb*hbcm2+fmc*hbcm2-hbcm3)+6*p1p8*(fmb*
14672      . hbcm2-fmc*hbcm2+hbcm3)+4*(-fmc*hbcm2*p2p8+3*fmc*hbcm2*p5p8+
14673      . hbcm*p1p3*p2p8-3*hbcm*p1p3*p5p8-hbcm*p1p8*p2p3+3*hbcm*p1p8*
14674      . p3p5+hbcm*p2p3*p4p8-hbcm*p2p8*p3p4+3*hbcm*p3p4*p5p8-3*hbcm*
14675      . p3p5*p4p8))+w2*(2*p5p8*(3*fmb*hbcm2+5*fmc*hbcm2-3*hbcm3)+4*(
14676      . fmb*hbcm2*p1p8-fmb*hbcm2*p2p8-fmb*hbcm2*p4p8-hbcm*p1p3*p5p8+
14677      . hbcm*p1p8*p3p5+hbcm*p2p3*p5p8-hbcm*p2p8*p3p5+hbcm*p3p4*p5p8-
14678      . hbcm*p3p5*p4p8))+w12*(2*p1p8*(3*fmb*hbcm2-5*fmc*hbcm2+3*hbcm3)
14679      . +4*(hbcm*p1p3*p2p8+hbcm*p1p3*p4p8-3*hbcm*p1p3*p5p8-hbcm*p1p8*
14680      . p2p3-hbcm*p1p8*p3p4+3*hbcm*p1p8*p3p5))+16*(-fb3*hbcm*p1p8+fb3*
14681      . hbcm*p2p8+fb3*hbcm*p4p8-3*fb3*hbcm*p5p8))
14682       b(20)=ccc*(w5*(2*p4p8*(-3*fmb*hbcm-fmc*hbcm+3*hbcm2)+2*p1p8*(3*
14683      . fmb*hbcm+fmc*hbcm-3*hbcm2)+4*(fmc*hbcm*p2p8-3*fmc*hbcm*p5p8+
14684      . p1p3*p1p8-p1p3*p2p8-p1p3*p4p8+3*p1p3*p5p8-p1p8*p3p4+p2p8*p3p4+
14685      . p3p4*p4p8-3*p3p4*p5p8))+w2*(6*p5p8*(fmb*hbcm-fmc*hbcm+hbcm2)+4
14686      . *(fmb*hbcm*p1p8-fmb*hbcm*p2p8-fmb*hbcm*p4p8+p1p8*p3p5-p2p8*
14687      . p3p5-p3p5*p4p8+3*p3p5*p5p8))+w12*(6*p1p8*(fmb*hbcm+fmc*hbcm-
14688      . hbcm2)+4*(p1p3*p1p8-p1p3*p2p8-p1p3*p4p8+3*p1p3*p5p8))+16*(fb4*
14689      . p1p8-fb4*p2p8-fb4*p4p8+3*fb4*p5p8))
14690       b(21)=ccc*(w12*(8*(p3p7*p1p8)*(-fmc+hbcm)+4*(p7p8*p1p3)*(fmb-3*
14691      . fmc-hbcm)+8*(-hbcm*p1p8*p4p7+2*hbcm*p1p8*p5p7))+w5*(8*(p4p8*
14692      . p3p7)*(3*fmc-2*hbcm)+8*(p3p7*p1p8)*(-fmc+hbcm)+4*(p7p8*p3p4)*(
14693      . -fmb+3*fmc+hbcm)+4*(p7p8*p1p3)*(fmb-3*fmc-hbcm)+4*p7p8*(-fmb*
14694      . fmc*hbcm+fmc*hbcm2+3*fmc2*hbcm)+8*(-2*hbcm*p1p4*p7p8+2*hbcm*
14695      . p1p8*p5p7-hbcm*p2p8*p4p7+hbcm*p4p7*p4p8+hbcm*p4p7*p5p8-3*hbcm*
14696      . p4p8*p5p7))+w2*(8*(p5p8*p3p7)*(3*fmc-2*hbcm)+4*(p7p8*p3p5)*(
14697      . fmb-3*fmc+hbcm)+4*p7p8*(-fmb*fmc*hbcm+fmb*hbcm2+fmb2*hbcm)+8*(
14698      . hbcm*p1p5*p7p8-hbcm*p2p5*p7p8-hbcm*p4p5*p7p8+2*hbcm*p4p7*p5p8-
14699      . hbcm*p5p7*p5p8))+8*p7p8*(2*fb3*fmc-2*fb3*hbcm+2*fb4*fmb+hbcm))
14700       b(22)=ccc*(6*w12*p1p3*(fmb-fmc-hbcm)+w5*(2*p3p4*(-3*fmb+5*fmc+
14701      . hbcm)+6*p1p3*(fmb-fmc-hbcm)+2*(-3*fmb*fmc*hbcm+3*fmc*hbcm2+3*
14702      . fmc2*hbcm-6*hbcm*p1p4-2*hbcm*p2p4-2*hbcm*p4p5))+w2*(2*p3p5*(3*
14703      . fmb-5*fmc+3*hbcm)+2*(-3*fmb*fmc*hbcm+3*fmb*hbcm2+3*fmb2*hbcm+2
14704      . *hbcm*p1p5-2*hbcm*p2p5-2*hbcm*p4p5))+12*(2*fb3*fmc-2*fb3*hbcm+
14705      . 2*fb4*fmb+hbcm))
14706       b(23)=ccc*(w2*(8*p5p7*(2*fmb*hbcm-fmc*hbcm+hbcm2)+8*p3p7*(-3*
14707      . fmb*fmc+2*fmb*hbcm)+(p3p7*p3p5)*(-16*ffmcfmb+12)+4*(-4*fmb*
14708      . hbcm*p4p7-3*p3p5*p4p7+5*p3p5*p5p7))+w5*(8*p3p7*(-2*fmc*hbcm+3*
14709      . fmc2)+4*p4p7*(-fmb*hbcm+3*fmc*hbcm+hbcm2)+(p3p7*p3p4)*(16*
14710      . ffmcfmb-12)+(p3p7*p1p3)*(-16*ffmcfmb+12)+4*(-6*fmc*hbcm*p5p7-3
14711      . *p1p3*p4p7+5*p1p3*p5p7+3*p3p4*p4p7-5*p3p4*p5p7))+w12*((p3p7*
14712      . p1p3)*(-16*ffmcfmb+12)+4*(-3*p1p3*p4p7+5*p1p3*p5p7))+(p3p7*(-
14713      . 64*fb4*ffmcfmb+48*fb4-8)+16*(-3*fb4*p4p7+5*fb4*p5p7)))
14714       ans=ccc*(w12*(2*p1p3*(-3*fmb*hbcm-fmc*hbcm-3*hbcm2)+4*(p1p3*
14715      . p2p3+p1p3*p3p4-3*p1p3*p3p5-p1p3s2))+w5*(2*p3p4*(3*fmb*hbcm+fmc
14716      . *hbcm+hbcm2)+2*p1p3*(-3*fmb*hbcm+fmc*hbcm-3*hbcm2)+2*(3*fmb*
14717      . fmc*hbcm2-2*fmc*hbcm*p2p3+6*fmc*hbcm*p3p5+3*fmc*hbcm3+fmc2*
14718      . hbcm2-6*hbcm2*p1p4-2*hbcm2*p2p4-2*hbcm2*p4p5+2*p1p3*p2p3+4*
14719      . p1p3*p3p4-6*p1p3*p3p5-2*p1p3s2-2*p2p3*p3p4+6*p3p4*p3p5-2*
14720      . p3p4s2))+w2*(6*p3p5*(-fmb*hbcm+fmc*hbcm-hbcm2)+2*(5*fmb*fmc*
14721      . hbcm2-2*fmb*hbcm*p1p3+2*fmb*hbcm*p2p3+2*fmb*hbcm*p3p4-3*fmb*
14722      . hbcm3+3*fmb2*hbcm2+2*hbcm2*p1p5-2*hbcm2*p2p5-2*hbcm2*p4p5-2*
14723      . p1p3*p3p5+2*p2p3*p3p5+2*p3p4*p3p5-6*p3p5s2))+8*(-3*fb3*fmb*
14724      . hbcm+5*fb4*fmc*hbcm-3*fb4*hbcm2-2*fb4*p1p3+2*fb4*p2p3+2*fb4*
14725      . p3p4-6*fb4*p3p5+hbcm2))
14726       b(24)=ans
14727       b(25)=ccc*(w12*(4*(p3p7*p1p3)*(-fmb+5*fmc-hbcm)+8*(hbcm*p1p3*
14728      . p4p7-2*hbcm*p1p3*p5p7))+w5*(4*(p3p7*p3p4)*(fmb-9*fmc+3*hbcm)+4
14729      . *(p3p7*p1p3)*(-fmb+5*fmc-hbcm)+4*p4p7*(-fmb*hbcm2-hbcm3)+4*
14730      . p3p7*(fmb*fmc*hbcm+2*fmc*hbcm2-7*fmc2*hbcm)+4*(5*fmc*hbcm2*
14731      . p5p7-4*hbcm*p1p3*p5p7+4*hbcm*p1p4*p3p7+2*hbcm*p2p3*p4p7-2*hbcm
14732      . *p3p4*p4p7+6*hbcm*p3p4*p5p7-2*hbcm*p3p5*p4p7))+w2*(4*(p3p7*
14733      . p3p5)*(-fmb-3*fmc+3*hbcm)+4*p5p7*(3*fmb*hbcm2+2*fmc*hbcm2-2*
14734      . hbcm3)+4*p3p7*(-3*fmb*fmc*hbcm+2*fmb*hbcm2-fmb2*hbcm)+4*(-3*
14735      . fmb*hbcm2*p4p7-2*hbcm*p1p5*p3p7+2*hbcm*p2p5*p3p7-4*hbcm*p3p5*
14736      . p4p7+2*hbcm*p3p5*p5p7+2*hbcm*p3p7*p4p5))+(8*p3p7*(2*fb3*fmc-2*
14737      . fb3*hbcm-2*fb4*fmb-hbcm)+32*(fb3*hbcm*p4p7-2*fb3*hbcm*p5p7)))
14738       b(26)=ccc*(w5*(4*(p3p6*p3p4)*(2*fmc-hbcm)+4*(p3p6*p1p3)*(-2*fmc
14739      . +hbcm)+4*p4p6*(3*fmb*hbcm2-2*fmc*hbcm2+3*hbcm3)+4*p3p6*(3*fmb*
14740      . fmc*hbcm+2*fmc*hbcm2-fmc2*hbcm)+4*(-fmc*hbcm2*p5p6-2*fmc*p2p3*
14741      . p3p6+6*fmc*p3p5*p3p6-hbcm*p1p3*p4p6+hbcm*p1p3*p5p6-2*hbcm*p2p3
14742      . *p4p6+hbcm*p3p4*p4p6-hbcm*p3p4*p5p6+6*hbcm*p3p5*p4p6))+w2*(4*(
14743      . p3p6*p3p5)*(4*fmc-hbcm)+4*p3p6*(4*fmb*fmc*hbcm-fmb*hbcm2)+4*(3
14744      . *fmb*hbcm2*p4p6-fmb*hbcm2*p5p6+3*hbcm*p3p5*p4p6-hbcm*p3p5*p5p6
14745      . ))+w12*(4*(p3p6*p1p3)*(-2*fmc+hbcm)+4*p3p6*(3*fmb*fmc*hbcm+3*
14746      . fmc*hbcm2-5*fmc2*hbcm)+4*(-2*fmc*p2p3*p3p6-2*fmc*p3p4*p3p6+6*
14747      . fmc*p3p5*p3p6-3*hbcm*p1p3*p4p6+hbcm*p1p3*p5p6))+(16*p3p6*(-4*
14748      . fb3*fmc+fb3*hbcm-hbcm)+16*(-3*fb3*hbcm*p4p6+fb3*hbcm*p5p6)))
14749       ans2=w2*(4*(p5p8*p3p7)*(fmb*hbcm+3*fmc*hbcm-2*hbcm2)+4*(p7p8*
14750      . p3p5)*(-fmb*hbcm+fmc*hbcm-hbcm2)+4*p7p8*(3*fmb*fmc*hbcm2-fmb*
14751      . hbcm3+fmb2*hbcm2-2*p3p5s2)+4*(-2*fmb*hbcm*p1p3*p7p8+2*fmb*hbcm
14752      . *p1p8*p3p7+2*fmb*hbcm*p2p3*p7p8-2*fmb*hbcm*p2p8*p3p7+2*fmb*
14753      . hbcm*p3p4*p7p8-2*fmb*hbcm*p3p7*p4p8+2*hbcm2*p1p5*p7p8-2*hbcm2*
14754      . p2p5*p7p8-2*hbcm2*p4p5*p7p8+3*hbcm2*p4p7*p5p8-hbcm2*p5p7*p5p8-
14755      . 2*p1p3*p3p5*p7p8+2*p1p8*p3p5*p3p7+2*p2p3*p3p5*p7p8-2*p2p8*p3p5
14756      . *p3p7+2*p3p4*p3p5*p7p8-2*p3p5*p3p7*p4p8+2*p3p5*p3p7*p5p8))+(4*
14757      . p7p8*(-4*fb3*fmb*hbcm+12*fb4*fmc*hbcm-4*fb4*hbcm2+hbcm2)+32*(-
14758      . fb4*p1p3*p7p8+fb4*p1p8*p3p7+fb4*p2p3*p7p8-fb4*p2p8*p3p7+fb4*
14759      . p3p4*p7p8-fb4*p3p5*p7p8-fb4*p3p7*p4p8+fb4*p3p7*p5p8))
14760       ans1=w12*(4*(p3p7*p1p8)*(fmb*hbcm+fmc*hbcm)+4*(p7p8*p1p3)*(-fmb
14761      . *hbcm-fmc*hbcm-hbcm2)+4*(-hbcm2*p1p8*p4p7+3*hbcm2*p1p8*p5p7+2*
14762      . p1p3*p1p8*p3p7+2*p1p3*p2p3*p7p8-2*p1p3*p2p8*p3p7+2*p1p3*p3p4*
14763      . p7p8-2*p1p3*p3p5*p7p8-2*p1p3*p3p7*p4p8+2*p1p3*p3p7*p5p8-2*
14764      . p1p3s2*p7p8))+w5*(4*(p4p8*p3p7)*(-fmb*hbcm+5*fmc*hbcm-2*hbcm2)
14765      . +4*(p7p8*p3p4)*(fmb*hbcm-fmc*hbcm+hbcm2)+4*(p3p7*p1p8)*(fmb*
14766      . hbcm-fmc*hbcm)+4*(p7p8*p1p3)*(-fmb*hbcm+fmc*hbcm-hbcm2)+4*p7p8
14767      . *(fmb*fmc*hbcm2+fmc*hbcm3+fmc2*hbcm2-2*p1p3s2-2*p3p4s2)+4*(-2*
14768      . fmc*hbcm*p2p3*p7p8+2*fmc*hbcm*p2p8*p3p7+2*fmc*hbcm*p3p5*p7p8-2
14769      . *fmc*hbcm*p3p7*p5p8-4*hbcm2*p1p4*p7p8+hbcm2*p1p8*p4p7+3*hbcm2*
14770      . p1p8*p5p7-2*hbcm2*p2p8*p4p7+hbcm2*p4p7*p4p8+2*hbcm2*p4p7*p5p8-
14771      . 5*hbcm2*p4p8*p5p7+2*p1p3*p1p8*p3p7+2*p1p3*p2p3*p7p8-2*p1p3*
14772      . p2p8*p3p7+4*p1p3*p3p4*p7p8-2*p1p3*p3p5*p7p8-2*p1p3*p3p7*p4p8+2
14773      . *p1p3*p3p7*p5p8-2*p1p8*p3p4*p3p7-2*p2p3*p3p4*p7p8+2*p2p8*p3p4*
14774      . p3p7+2*p3p4*p3p5*p7p8+2*p3p4*p3p7*p4p8-2*p3p4*p3p7*p5p8))+ans2
14775       ans=ccc*ans1
14776       b(27)=ans
14777       b(28)=ccc*(w2*(4*(p5p8*p3p6)*(4*fmc*hbcm-hbcm2)+4*(3*hbcm2*p4p6
14778      . *p5p8-hbcm2*p5p6*p5p8))+w5*(4*(p4p8*p3p6)*(2*fmc*hbcm-hbcm2)+4
14779      . *(p3p6*p1p8)*(-2*fmc*hbcm+hbcm2)+4*(-2*fmc*hbcm*p2p8*p3p6+6*
14780      . fmc*hbcm*p3p6*p5p8-hbcm2*p1p8*p4p6+hbcm2*p1p8*p5p6-2*hbcm2*
14781      . p2p8*p4p6+hbcm2*p4p6*p4p8+6*hbcm2*p4p6*p5p8-hbcm2*p4p8*p5p6))+
14782      . w12*(4*(p3p6*p1p8)*(-2*fmc*hbcm+hbcm2)+4*(-2*fmc*hbcm*p2p8*
14783      . p3p6-2*fmc*hbcm*p3p6*p4p8+6*fmc*hbcm*p3p6*p5p8-3*hbcm2*p1p8*
14784      . p4p6+hbcm2*p1p8*p5p6))-16*hbcm2*p6p8)
14785       ans2=w12*(4*(p6p7*p1p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p3p7*p3p6
14786      . )*(-fmb*fmc-fmc2)+(p3p7*p3p6*p1p3)*(-32*ffmcfmb+8)+8*(fmc*hbcm
14787      . *p3p6*p4p7-3*fmc*hbcm*p3p6*p5p7+2*p1p3*p3p4*p6p7-p1p3*p3p6*
14788      . p4p7+p1p3*p3p6*p5p7-2*p1p3*p3p7*p4p6-2*p1p3s2*p6p7))+((p3p7*
14789      . p3p6)*(-128*fb4*ffmcfmb+32*fb4-16)+4*p6p7*(-4*fb3*fmb*hbcm+12*
14790      . fb4*fmc*hbcm+4*fb4*hbcm2+hbcm2)+32*(-2*fb4*p1p3*p6p7+2*fb4*
14791      . p3p4*p6p7-fb4*p3p6*p4p7+fb4*p3p6*p5p7-2*fb4*p3p7*p4p6))
14792       ans1=w2*(8*(p5p6*p3p7)*(2*fmc*hbcm-hbcm2)+8*(p5p7*p3p6)*(fmb*
14793      . hbcm-2*fmc*hbcm+hbcm2)+4*(p6p7*p3p5)*(fmb*hbcm+fmc*hbcm+hbcm2)
14794      . +8*(p3p7*p3p6)*(-4*fmb*fmc+fmb*hbcm)+4*p6p7*(3*fmb*fmc*hbcm2+
14795      . fmb*hbcm3+fmb2*hbcm2)+(p3p7*p3p6*p3p5)*(-32*ffmcfmb+8)+8*(-2*
14796      . fmb*hbcm*p1p3*p6p7+2*fmb*hbcm*p3p4*p6p7-fmb*hbcm*p3p6*p4p7-2*
14797      . fmb*hbcm*p3p7*p4p6+hbcm2*p1p5*p6p7-hbcm2*p2p5*p6p7-hbcm2*p4p5*
14798      . p6p7-hbcm2*p4p6*p5p7+hbcm2*p4p7*p5p6-2*p1p3*p3p5*p6p7+2*p3p4*
14799      . p3p5*p6p7-p3p5*p3p6*p4p7+p3p5*p3p6*p5p7-2*p3p5*p3p7*p4p6))+w5*
14800      . (8*(p4p6*p3p7)*(-fmb*hbcm+3*fmc*hbcm-hbcm2)+4*(p6p7*p3p4)*(fmb
14801      . *hbcm-3*fmc*hbcm-hbcm2)+4*(p6p7*p1p3)*(-fmb*hbcm+3*fmc*hbcm+
14802      . hbcm2)+8*(p3p7*p3p6)*(-fmb*fmc-fmc*hbcm+3*fmc2)+4*p6p7*(fmb*
14803      . fmc*hbcm2-fmc*hbcm3+fmc2*hbcm2-4*p1p3s2-4*p3p4s2)+(p3p7*p3p6*
14804      . p3p4)*(32*ffmcfmb-8)+(p3p7*p3p6*p1p3)*(-32*ffmcfmb+8)+8*(-4*
14805      . fmc*hbcm*p3p6*p5p7-2*hbcm2*p1p4*p6p7-4*hbcm2*p4p6*p5p7+4*p1p3*
14806      . p3p4*p6p7-p1p3*p3p6*p4p7+p1p3*p3p6*p5p7-2*p1p3*p3p7*p4p6+p3p4*
14807      . p3p6*p4p7-p3p4*p3p6*p5p7+2*p3p4*p3p7*p4p6))+ans2
14808       ans=ccc*ans1
14809       b(29)=ans
14810       ans3=w12*(8*(p3p7*p3p6*p1p8)*(2*fmc-hbcm)+8*(p6p8*p3p7*p1p3)*(-
14811      . 2*fmc+hbcm)+4*(p6p7*p1p8)*(fmb*hbcm2-3*fmc*hbcm2+hbcm3)+8*(
14812      . p7p8*p3p6)*(fmb*fmc*hbcm+fmc*hbcm2-3*fmc2*hbcm)+8*(-2*fmc*p2p3
14813      . *p3p6*p7p8+2*fmc*p2p8*p3p6*p3p7-2*fmc*p3p4*p3p6*p7p8+2*fmc*
14814      . p3p5*p3p6*p7p8+2*fmc*p3p6*p3p7*p4p8-2*fmc*p3p6*p3p7*p5p8+hbcm*
14815      . p1p3*p2p8*p6p7-2*hbcm*p1p3*p4p6*p7p8-hbcm*p1p3*p4p7*p6p8+hbcm*
14816      . p1p3*p4p8*p6p7+hbcm*p1p3*p5p7*p6p8-hbcm*p1p3*p5p8*p6p7-hbcm*
14817      . p1p8*p2p3*p6p7-hbcm*p1p8*p3p4*p6p7+hbcm*p1p8*p3p5*p6p7+hbcm*
14818      . p1p8*p3p6*p4p7-hbcm*p1p8*p3p6*p5p7+2*hbcm*p1p8*p3p7*p4p6))+(16
14819      . *(p6p8*p3p7)*(-4*fb3*fmc+2*fb3*hbcm+hbcm)+16*(p7p8*p3p6)*(-4*
14820      . fb3*fmc-hbcm)+32*(-fb3*hbcm*p1p8*p6p7+fb3*hbcm*p2p8*p6p7-2*fb3
14821      . *hbcm*p4p6*p7p8-fb3*hbcm*p4p7*p6p8+fb3*hbcm*p4p8*p6p7+fb3*hbcm
14822      . *p5p7*p6p8-fb3*hbcm*p5p8*p6p7))
14823       ans2=w2*(8*(p5p8*p3p7*p3p6)*(-4*fmc+hbcm)+8*(p6p8*p3p7*p3p5)*(2
14824      . *fmc-hbcm)+4*(p6p7*p5p8)*(fmb*hbcm2+3*fmc*hbcm2-hbcm3)+8*(p6p8
14825      . *p3p7)*(2*fmb*fmc*hbcm-fmb*hbcm2)+8*(2*fmb*fmc*hbcm*p3p6*p7p8+
14826      . fmb*hbcm2*p1p8*p6p7-fmb*hbcm2*p2p8*p6p7+2*fmb*hbcm2*p4p6*p7p8+
14827      . fmb*hbcm2*p4p7*p6p8-fmb*hbcm2*p4p8*p6p7-fmb*hbcm2*p5p7*p6p8+2*
14828      . fmc*p3p5*p3p6*p7p8-hbcm*p1p3*p5p8*p6p7+hbcm*p1p8*p3p5*p6p7+
14829      . hbcm*p2p3*p5p8*p6p7-hbcm*p2p8*p3p5*p6p7+hbcm*p3p4*p5p8*p6p7+2*
14830      . hbcm*p3p5*p4p6*p7p8+hbcm*p3p5*p4p7*p6p8-hbcm*p3p5*p4p8*p6p7-
14831      . hbcm*p3p5*p5p7*p6p8-hbcm*p3p6*p4p7*p5p8+hbcm*p3p6*p5p7*p5p8-2*
14832      . hbcm*p3p7*p4p6*p5p8))+ans3
14833       ans1=w5*(8*(p4p8*p3p7*p3p6)*(-2*fmc+hbcm)+8*(p6p8*p3p7*p3p4)*(2
14834      . *fmc-hbcm)+8*(p3p7*p3p6*p1p8)*(2*fmc-hbcm)+8*(p6p8*p3p7*p1p3)*
14835      . (-2*fmc+hbcm)+8*(p6p8*p3p7)*(-fmc*hbcm2+2*fmc2*hbcm)+4*(p6p7*
14836      . p4p8)*(-fmb*hbcm2+fmc*hbcm2-hbcm3)+8*(p7p8*p4p6)*(fmb*hbcm2-
14837      . fmc*hbcm2+hbcm3)+4*(p6p7*p1p8)*(fmb*hbcm2-fmc*hbcm2+hbcm3)+8*(
14838      . p7p8*p3p6)*(fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+8*(-fmc*hbcm2*
14839      . p2p8*p6p7+fmc*hbcm2*p4p7*p6p8-fmc*hbcm2*p5p7*p6p8+fmc*hbcm2*
14840      . p5p8*p6p7-2*fmc*p2p3*p3p6*p7p8+2*fmc*p2p8*p3p6*p3p7+2*fmc*p3p5
14841      . *p3p6*p7p8-2*fmc*p3p6*p3p7*p5p8+hbcm*p1p3*p2p8*p6p7-hbcm*p1p3*
14842      . p4p7*p6p8+hbcm*p1p3*p5p7*p6p8-hbcm*p1p3*p5p8*p6p7-hbcm*p1p8*
14843      . p2p3*p6p7+hbcm*p1p8*p3p5*p6p7+hbcm*p1p8*p3p6*p4p7-hbcm*p1p8*
14844      . p3p6*p5p7-2*hbcm*p2p3*p4p6*p7p8+hbcm*p2p3*p4p8*p6p7-hbcm*p2p8*
14845      . p3p4*p6p7+2*hbcm*p2p8*p3p7*p4p6+hbcm*p3p4*p4p7*p6p8-hbcm*p3p4*
14846      . p5p7*p6p8+hbcm*p3p4*p5p8*p6p7+2*hbcm*p3p5*p4p6*p7p8-hbcm*p3p5*
14847      . p4p8*p6p7-hbcm*p3p6*p4p7*p4p8+hbcm*p3p6*p4p8*p5p7-2*hbcm*p3p7*
14848      . p4p6*p5p8))+ans2
14849       ans=ccc*ans1
14850       b(30)=ans
14851       ans2=w12*(4*(p6p7*p1p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p7p8*p3p6
14852      . )*(-fmb*fmc+fmc*hbcm-fmc2)+(p6p8*p3p7*p1p3)*(-16*ffmcfmb+8)+8*
14853      . (-2*ffmcfmb*p1p3*p3p6*p7p8-2*p1p3*p1p8*p6p7-2*p1p3*p4p6*p7p8-
14854      . p1p3*p4p7*p6p8+2*p1p3*p4p8*p6p7+p1p3*p5p7*p6p8))+((p6p8*p3p7)*
14855      . (-64*fb4*ffmcfmb+32*fb4-8)+(p7p8*p3p6)*(-64*fb4*ffmcfmb-8)+32*
14856      . (-2*fb4*p1p8*p6p7-2*fb4*p4p6*p7p8-fb4*p4p7*p6p8+2*fb4*p4p8*
14857      . p6p7+fb4*p5p7*p6p8))
14858       ans1=w2*(4*(p6p7*p5p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p6p8*p3p7)*
14859      . (-2*fmb*fmc+fmb*hbcm)+(p6p8*p3p7*p3p5)*(-16*ffmcfmb+8)+8*(-2*
14860      . ffmcfmb*p3p5*p3p6*p7p8-2*fmb*fmc*p3p6*p7p8-2*fmb*hbcm*p1p8*
14861      . p6p7-2*fmb*hbcm*p4p6*p7p8-fmb*hbcm*p4p7*p6p8+2*fmb*hbcm*p4p8*
14862      . p6p7+fmb*hbcm*p5p7*p6p8-2*p1p8*p3p5*p6p7-2*p3p5*p4p6*p7p8-p3p5
14863      . *p4p7*p6p8+2*p3p5*p4p8*p6p7+p3p5*p5p7*p6p8))+w5*(8*(p6p8*p3p7)
14864      . *(-fmc*hbcm+2*fmc2)+4*(p6p7*p4p8)*(fmb*hbcm-3*fmc*hbcm-hbcm2)+
14865      . 8*(p7p8*p4p6)*(-fmb*hbcm+fmc*hbcm+hbcm2)+4*(p6p7*p1p8)*(-fmb*
14866      . hbcm+3*fmc*hbcm+hbcm2)+8*(p7p8*p3p6)*(-fmb*fmc+fmc*hbcm+fmc2)+
14867      . (p6p8*p3p7*p3p4)*(16*ffmcfmb-8)+(p6p8*p3p7*p1p3)*(-16*ffmcfmb+
14868      . 8)+8*(-2*ffmcfmb*p1p3*p3p6*p7p8+2*ffmcfmb*p3p4*p3p6*p7p8+fmc*
14869      . hbcm*p4p7*p6p8-fmc*hbcm*p5p7*p6p8-2*p1p3*p1p8*p6p7-2*p1p3*p4p6
14870      . *p7p8-p1p3*p4p7*p6p8+2*p1p3*p4p8*p6p7+p1p3*p5p7*p6p8+2*p1p8*
14871      . p3p4*p6p7+2*p3p4*p4p6*p7p8+p3p4*p4p7*p6p8-2*p3p4*p4p8*p6p7-
14872      . p3p4*p5p7*p6p8))+ans2
14873       ans=ccc*ans1
14874       b(31)=ans
14875       b(32)=ccc*(w2*(8*(p5p6*p3p7)*(2*fmc-hbcm)+8*(p5p7*p3p6)*(-2*fmc
14876      . +hbcm)+4*(p6p7*p3p5)*(fmb-3*fmc+hbcm)+4*p6p7*(-fmb*fmc*hbcm+
14877      . fmb*hbcm2+fmb2*hbcm)+8*(hbcm*p1p5*p6p7-hbcm*p2p5*p6p7-hbcm*
14878      . p4p5*p6p7-hbcm*p4p6*p5p7+hbcm*p4p7*p5p6))+w5*(8*(p4p6*p3p7)*(4
14879      . *fmc-3*hbcm)+4*(p6p7*p3p4)*(-fmb+3*fmc+hbcm)+4*(p6p7*p1p3)*(
14880      . fmb-3*fmc-hbcm)+4*p6p7*(-fmb*fmc*hbcm+fmc*hbcm2+3*fmc2*hbcm)+
14881      . 16*(p3p7*p3p6)*(ffmcfmb*fmc-fmc)+8*(-4*fmc*p3p6*p5p7-2*hbcm*
14882      . p1p4*p6p7+hbcm*p4p6*p4p7-5*hbcm*p4p6*p5p7))+w12*(4*(p6p7*p1p3)
14883      . *(fmb-3*fmc-hbcm)+16*(p3p7*p3p6)*(ffmcfmb*fmc-fmc)+16*(fmc*
14884      . p3p6*p4p7-2*fmc*p3p6*p5p7))+4*p6p7*(4*fb3*fmc-4*fb3*hbcm+4*fb4
14885      . *fmb+hbcm))
14886       do 200 n=1,32
14887          c(n,1)=c(n,1)-0.1818181818181818d0*b(n)
14888          c(n,2)=c(n,2)-0.1512818716977898d0*b(n)
14889          c(n,3)=c(n,3)-0.1869893980016914d0*b(n)
14890 200   continue
14891       return
14892         end
14893
14894       subroutine amp31_3p1(cc)
14895       implicit double precision(a-h,o-z)
14896       implicit integer (i-n)
14897       dimension b(32)
14898 #include "inclcon.h"
14899 #include "inclppp.h"
14900 #include "inclamp.h"
14901       do 100 n=1,32
14902          b(n)=0.0d0
14903 100   continue
14904       ccc=cc/((-2*p1p5)*(2*ffmcfmb*p3p4+2*fmc2)*(2*ffmcfmb*p1p3-2*
14905      . ffmcfmb*p3p5+fmb2-2*fmc*hbcm+fmc2+hbcm2-2*p1p3-2*p1p5+2*p3p5))
14906       ans2=(16*p5p6*(-fb3*hbcm+fb4*fmb-fb4*fmc)+16*p4p6*(-fb3*hbcm+
14907      . fb4*fmb-fb4*fmc)+16*p3p6*(-fb3*hbcm+fb4*fmb-fb4*fmc))
14908       ans1=w15*(4*(p5p6*p3p5)*(fmb-3*fmc+hbcm)+4*(p4p6*p3p5)*(fmb-3*
14909      . fmc+hbcm)+4*(p3p6*p3p5)*(fmb-3*fmc+hbcm)+4*(p5p6*p1p3)*(-fmb+3
14910      . *fmc-hbcm)+4*(p4p6*p1p3)*(-fmb+3*fmc-hbcm)+4*(p3p6*p1p3)*(-fmb
14911      . +3*fmc-hbcm)+4*p5p6*(-fmb*fmc*hbcm+fmb*hbcm2+fmb2*hbcm)+4*p4p6
14912      . *(-fmb*fmc*hbcm+fmb*hbcm2+fmb2*hbcm)+4*p3p6*(-fmb*fmc*hbcm+fmb
14913      . *hbcm2+fmb2*hbcm)+8*(hbcm*p1p2*p3p6+hbcm*p1p2*p4p6+hbcm*p1p2*
14914      . p5p6+hbcm*p1p4*p3p6+hbcm*p1p4*p4p6+hbcm*p1p4*p5p6-hbcm*p1p5*
14915      . p3p6-hbcm*p1p5*p4p6-hbcm*p1p5*p5p6-hbcm*p2p5*p3p6-hbcm*p2p5*
14916      . p4p6-hbcm*p2p5*p5p6-hbcm*p3p6*p4p5-hbcm*p4p5*p4p6-hbcm*p4p5*
14917      . p5p6))+w1*(4*(p5p6*p3p4)*(-fmb+3*fmc-hbcm)+4*(p4p6*p3p4)*(-fmb
14918      . +3*fmc-hbcm)+4*(p3p6*p3p4)*(-fmb+3*fmc-hbcm)+4*p5p6*(-fmb*fmc*
14919      . hbcm+fmc*hbcm2+fmc2*hbcm)+4*p4p6*(-fmb*fmc*hbcm+fmc*hbcm2+fmc2
14920      . *hbcm)+4*p3p6*(-fmb*fmc*hbcm+fmc*hbcm2+fmc2*hbcm)+8*(hbcm*p1p4
14921      . *p3p6+hbcm*p1p4*p4p6+hbcm*p1p4*p5p6-hbcm*p2p4*p3p6-hbcm*p2p4*
14922      . p4p6-hbcm*p2p4*p5p6-hbcm*p3p6*p4p5-hbcm*p4p5*p4p6-hbcm*p4p5*
14923      . p5p6))+ans2
14924       ans=ccc*ans1
14925       b(1)=ans
14926       ans4=8*(fmb*hbcm*p1p5*p6p7+fmb*hbcm*p2p3*p6p7+2*fmb*hbcm*p2p4*
14927      . p6p7+fmb*hbcm*p3p4*p6p7-2*fmb*hbcm*p3p6*p4p7-2*fmb*hbcm*p4p6*
14928      . p4p7-2*fmb*hbcm*p4p7*p5p6-p1p3*p1p5*p6p7-p1p3*p2p3*p6p7-2*p1p3
14929      . *p2p4*p6p7-p1p3*p3p4*p6p7+2*p1p3*p3p5*p6p7+p1p3*p3p6*p4p7-p1p3
14930      . *p3p6*p5p7+p1p3*p4p6*p4p7-p1p3*p4p6*p5p7+p1p3*p4p7*p5p6-p1p3*
14931      . p5p6*p5p7+p1p5*p3p5*p6p7+p2p3*p3p5*p6p7+2*p2p4*p3p5*p6p7+p3p4*
14932      . p3p5*p6p7-p3p5*p3p6*p4p7+p3p5*p3p6*p5p7-p3p5*p4p6*p4p7+p3p5*
14933      . p4p6*p5p7-p3p5*p4p7*p5p6+p3p5*p5p6*p5p7)
14934       ans3=8*(p5p7*p5p6)*(fmb*hbcm-fmc*hbcm+hbcm2)+8*(p5p7*p4p6)*(fmb
14935      . *hbcm-fmc*hbcm+hbcm2)+8*(p6p7*p4p5)*(fmb*hbcm+fmc*hbcm-hbcm2)+
14936      . 8*(p5p7*p3p6)*(fmb*hbcm-fmc*hbcm+hbcm2)+8*(p6p7*p2p5)*(fmb*
14937      . hbcm+fmc*hbcm-hbcm2)+8*(p6p7*p1p4)*(-fmb*hbcm-fmc*hbcm+hbcm2)+
14938      . 8*(p6p7*p1p2)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p5p6*p3p7)*(-2*fmb
14939      . *fmc+fmb*hbcm)+8*(p4p6*p3p7)*(-2*fmb*fmc+fmb*hbcm)+8*(p3p7*
14940      . p3p6)*(-2*fmb*fmc+fmb*hbcm)+4*(p6p7*p3p5)*(2*fmb*fmc-2*fmb*
14941      . hbcm-fmb2+3*fmc2-hbcm2)+4*(p6p7*p1p3)*(-2*fmb*fmc+2*fmb*hbcm+
14942      . fmb2-3*fmc2+hbcm2)+4*p6p7*(2*fmb*fmc*hbcm2+fmb*fmc2*hbcm-fmb*
14943      . hbcm3-fmb3*hbcm-2*p1p3s2-2*p3p5s2)+ans4
14944       ans2=w15*ans3
14945       ans5=(8*p6p7*(-2*fb4*fmb2+4*fb4*fmc*hbcm+2*fb4*fmc2-2*fb4*hbcm2
14946      . -hbcm2)+32*(fb4*p1p3*p6p7+fb4*p1p5*p6p7+fb4*p2p3*p6p7+2*fb4*
14947      . p2p4*p6p7+fb4*p3p4*p6p7-fb4*p3p5*p6p7-fb4*p3p6*p4p7+fb4*p3p6*
14948      . p5p7-fb4*p4p6*p4p7+fb4*p4p6*p5p7-fb4*p4p7*p5p6+fb4*p5p6*p5p7))
14949       ans1=w1*(8*(p5p6*p3p7)*(-fmc*hbcm+2*fmc2)+8*(p4p6*p3p7)*(-fmc*
14950      . hbcm+2*fmc2)+8*(p3p7*p3p6)*(-fmc*hbcm+2*fmc2)+4*p6p7*(fmb2*fmc
14951      . *hbcm+fmc*hbcm3-2*fmc2*hbcm2-fmc3*hbcm-2*p3p4s2)+8*(p6p7*p4p5)
14952      . *(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p6p7*p2p4)*(fmb*hbcm-fmc*hbcm-
14953      . hbcm2)+8*(p6p7*p1p4)*(-fmb*hbcm-fmc*hbcm+hbcm2)+4*(p6p7*p3p4)*
14954      . (-2*fmb*fmc+2*fmb*hbcm+fmb2-3*fmc2-hbcm2)+8*(-fmc*hbcm*p1p3*
14955      . p6p7-fmc*hbcm*p1p5*p6p7-fmc*hbcm*p2p3*p6p7+fmc*hbcm*p3p5*p6p7+
14956      . 2*fmc*hbcm*p3p6*p4p7-2*fmc*hbcm*p3p6*p5p7+2*fmc*hbcm*p4p6*p4p7
14957      . -2*fmc*hbcm*p4p6*p5p7+2*fmc*hbcm*p4p7*p5p6-2*fmc*hbcm*p5p6*
14958      . p5p7-p1p3*p3p4*p6p7-p1p5*p3p4*p6p7-p2p3*p3p4*p6p7-2*p2p4*p3p4*
14959      . p6p7+p3p4*p3p5*p6p7+p3p4*p3p6*p4p7-p3p4*p3p6*p5p7+p3p4*p4p6*
14960      . p4p7-p3p4*p4p6*p5p7+p3p4*p4p7*p5p6-p3p4*p5p6*p5p7))+ans2+ans5
14961       ans=ccc*ans1
14962       b(2)=ans
14963       ans7=2*hbcm*p4p5*p5p8*p6p7-2*hbcm*p4p6*p4p7*p5p8-2*hbcm*p4p7*
14964      . p5p6*p5p8
14965       ans6=-2*fmc*p1p3*p3p6*p7p8-2*fmc*p1p3*p4p6*p7p8-2*fmc*p1p3*p5p6
14966      . *p7p8+2*fmc*p3p5*p3p6*p7p8+2*fmc*p3p5*p4p6*p7p8+2*fmc*p3p5*
14967      . p5p6*p7p8+2*hbcm*p1p2*p2p8*p6p7-2*hbcm*p1p2*p3p6*p7p8+2*hbcm*
14968      . p1p2*p3p7*p6p8-2*hbcm*p1p2*p4p6*p7p8-2*hbcm*p1p2*p5p6*p7p8+
14969      . hbcm*p1p3*p3p7*p6p8+2*hbcm*p1p4*p1p8*p6p7+2*hbcm*p1p4*p2p8*
14970      . p6p7-2*hbcm*p1p4*p3p6*p7p8+2*hbcm*p1p4*p3p7*p6p8-2*hbcm*p1p4*
14971      . p4p6*p7p8-2*hbcm*p1p4*p5p6*p7p8+2*hbcm*p1p4*p5p7*p6p8-2*hbcm*
14972      . p1p4*p5p8*p6p7-hbcm*p1p5*p1p8*p6p7-4*hbcm*p1p5*p2p8*p6p7-4*
14973      . hbcm*p1p5*p4p7*p6p8+2*hbcm*p1p5*p4p8*p6p7+hbcm*p1p5*p5p8*p6p7+
14974      . hbcm*p1p8*p2p3*p6p7-hbcm*p1p8*p3p4*p6p7+2*hbcm*p1p8*p3p6*p4p7-
14975      . 2*hbcm*p1p8*p4p5*p6p7+2*hbcm*p1p8*p4p6*p4p7+2*hbcm*p1p8*p4p7*
14976      . p5p6+2*hbcm*p2p3*p5p7*p6p8-hbcm*p2p3*p5p8*p6p7-2*hbcm*p2p5*
14977      . p2p8*p6p7+2*hbcm*p2p5*p3p6*p7p8-2*hbcm*p2p5*p3p7*p6p8+2*hbcm*
14978      . p2p5*p4p6*p7p8+2*hbcm*p2p5*p5p6*p7p8-2*hbcm*p2p8*p3p6*p5p7-2*
14979      . hbcm*p2p8*p4p5*p6p7-2*hbcm*p2p8*p4p6*p5p7-2*hbcm*p2p8*p5p6*
14980      . p5p7+hbcm*p3p4*p5p8*p6p7-hbcm*p3p5*p3p7*p6p8+2*hbcm*p3p6*p4p5*
14981      . p7p8-2*hbcm*p3p6*p4p7*p5p8-2*hbcm*p3p7*p4p5*p6p8+2*hbcm*p4p5*
14982      . p4p6*p7p8+2*hbcm*p4p5*p5p6*p7p8-2*hbcm*p4p5*p5p7*p6p8+ans7
14983       ans5=8*ans6
14984       ans4=16*(p6p7*p2p8)*(-fmb*fmc*hbcm+fmb*hbcm2+fmb2*hbcm)+ans5
14985       ans3=8*(p5p8*p5p6*p3p7)*(-2*fmc+hbcm)+8*(p5p8*p4p6*p3p7)*(-2*
14986      . fmc+hbcm)+8*(p5p8*p3p7*p3p6)*(-2*fmc+hbcm)+8*(p6p7*p5p8*p3p5)*
14987      . (2*fmc-hbcm)+8*(p6p8*p5p7*p3p5)*(-2*fmc+hbcm)+8*(p5p6*p3p7*
14988      . p1p8)*(2*fmc-hbcm)+8*(p4p6*p3p7*p1p8)*(2*fmc-hbcm)+8*(p3p7*
14989      . p3p6*p1p8)*(2*fmc-hbcm)+8*(p6p7*p3p5*p1p8)*(-2*fmc+hbcm)+16*(
14990      . p6p8*p3p7*p1p5)*(-2*fmc+hbcm)+8*(p6p7*p5p8*p1p3)*(-2*fmc+hbcm)
14991      . +8*(p6p8*p5p7*p1p3)*(2*fmc-hbcm)+8*(p6p7*p1p8*p1p3)*(2*fmc-
14992      . hbcm)+4*(p6p7*p5p8)*(-fmb2*hbcm+2*fmc*hbcm2+fmc2*hbcm-hbcm3)+4
14993      . *(p6p7*p1p8)*(fmb2*hbcm-2*fmc*hbcm2-fmc2*hbcm+hbcm3)+8*(p6p7*
14994      . p4p8*p3p5)*(-fmb+fmc-hbcm)+8*(p6p8*p4p7*p3p5)*(fmb-fmc+2*hbcm)
14995      . +16*(p6p7*p3p5*p2p8)*(fmb-2*fmc+hbcm)+8*(p6p7*p4p8*p1p3)*(fmb-
14996      . fmc+hbcm)+8*(p6p8*p4p7*p1p3)*(-fmb+fmc-2*hbcm)+16*(p6p7*p2p8*
14997      . p1p3)*(-fmb+2*fmc-hbcm)+8*(p6p8*p5p7)*(fmb*fmc*hbcm-fmc2*hbcm+
14998      . hbcm3)+8*(p6p7*p4p8)*(fmb*fmc*hbcm-fmb*hbcm2-fmb2*hbcm)+8*(
14999      . p6p8*p4p7)*(-2*fmb*fmc*hbcm+fmb*hbcm2+2*fmb2*hbcm)+8*(p6p8*
15000      . p3p7)*(fmb*fmc*hbcm-2*fmb*fmc2+2*fmb2*fmc-fmb2*hbcm)+ans4
15001       ans2=w15*ans3
15002       ans10=8*(-2*fmc*p3p4*p3p6*p7p8-2*fmc*p3p4*p4p6*p7p8-2*fmc*p3p4*
15003      . p5p6*p7p8-2*fmc2*hbcm*p3p6*p7p8-2*fmc2*hbcm*p4p6*p7p8-2*fmc2*
15004      . hbcm*p5p6*p7p8-2*hbcm*p1p2*p4p7*p6p8+2*hbcm*p1p2*p4p8*p6p7+
15005      . hbcm*p1p3*p4p8*p6p7+2*hbcm*p1p4*p1p8*p6p7+2*hbcm*p1p4*p2p8*
15006      . p6p7+2*hbcm*p1p4*p5p7*p6p8-2*hbcm*p1p4*p5p8*p6p7+hbcm*p1p5*
15007      . p4p8*p6p7-2*hbcm*p1p8*p2p4*p6p7-2*hbcm*p1p8*p4p5*p6p7-hbcm*
15008      . p2p3*p4p8*p6p7-2*hbcm*p2p4*p2p8*p6p7-2*hbcm*p2p4*p5p7*p6p8+2*
15009      . hbcm*p2p4*p5p8*p6p7+2*hbcm*p2p5*p4p7*p6p8-2*hbcm*p2p5*p4p8*
15010      . p6p7-2*hbcm*p2p8*p4p5*p6p7-hbcm*p3p5*p4p8*p6p7+2*hbcm*p3p6*
15011      . p4p8*p5p7-2*hbcm*p4p5*p5p7*p6p8+2*hbcm*p4p5*p5p8*p6p7+2*hbcm*
15012      . p4p6*p4p8*p5p7+2*hbcm*p4p8*p5p6*p5p7)
15013       ans9=8*(p5p6*p4p8*p3p7)*(-2*fmc+hbcm)+8*(p4p8*p4p6*p3p7)*(-2*
15014      . fmc+hbcm)+8*(p4p8*p3p7*p3p6)*(-2*fmc+hbcm)+16*(p6p7*p5p8*p3p4)
15015      . *(-fmc+hbcm)+8*(p6p8*p5p7*p3p4)*(2*fmc-3*hbcm)+8*(p6p8*p3p7*
15016      . p3p4)*(4*fmc-hbcm)+16*(p6p7*p3p4*p1p8)*(fmc-hbcm)+8*(p6p7*p4p8
15017      . *p3p4)*(fmb-fmc)+8*(p6p8*p4p7*p3p4)*(-fmb+fmc)+16*(p6p7*p3p4*
15018      . p2p8)*(-fmb+2*fmc)+8*(p6p8*p5p7)*(fmb*fmc*hbcm-fmc2*hbcm)+4*(
15019      . p6p7*p4p8)*(2*fmb*fmc*hbcm-fmb2*hbcm-fmc2*hbcm-hbcm3)+8*(p6p8*
15020      . p4p7)*(-2*fmb*fmc*hbcm-fmc*hbcm2+2*fmc2*hbcm)+8*(p6p8*p3p7)*(
15021      . fmb*fmc*hbcm-2*fmb*fmc2+fmc2*hbcm+2*fmc3)+16*(p6p7*p2p8)*(-fmb
15022      . *fmc*hbcm+fmc*hbcm2+fmc2*hbcm)+ans10
15023       ans8=w1*ans9
15024       ans11=(32*(p6p8*p4p7)*(fb4*fmb-fb4*fmc)+32*(p6p7*p4p8)*(fb3*
15025      . hbcm-fb4*fmb+fb4*fmc)+64*(p6p7*p2p8)*(-fb3*hbcm+fb4*fmb-fb4*
15026      . fmc)+32*(p7p8*p5p6)*(fb3*fmc+fb4*fmc)+32*(p7p8*p4p6)*(fb3*fmc+
15027      . fb4*fmc)+32*(p6p8*p3p7)*(fb3*fmc-fb3*hbcm-fb4*fmc)+32*(p7p8*
15028      . p3p6)*(fb3*fmc+fb4*fmc)-32*fb3*hbcm*p5p7*p6p8)
15029       ans1=ans2+ans8+ans11
15030       ans=ccc*ans1
15031       b(3)=ans
15032       ans=ccc*(w15*(4*(p5p7*p3p5)*(-2*fmc+hbcm)+8*(p3p7*p1p5)*(-2*fmc
15033      . +hbcm)+4*(p5p7*p1p3)*(2*fmc-hbcm)+4*(p4p7*p3p5)*(fmb-fmc+2*
15034      . hbcm)+4*(p4p7*p1p3)*(-fmb+fmc-2*hbcm)+4*p5p7*(fmb*fmc*hbcm-
15035      . fmc2*hbcm+hbcm3)+4*p4p7*(-2*fmb*fmc*hbcm+fmb*hbcm2+2*fmb2*hbcm
15036      . )+4*p3p7*(fmb*fmc*hbcm-2*fmb*fmc2+2*fmb2*fmc-fmb2*hbcm)+4*(2*
15037      . hbcm*p1p2*p3p7+hbcm*p1p3*p3p7+2*hbcm*p1p4*p3p7+2*hbcm*p1p4*
15038      . p5p7-4*hbcm*p1p5*p4p7+2*hbcm*p2p3*p5p7-2*hbcm*p2p5*p3p7-hbcm*
15039      . p3p5*p3p7-2*hbcm*p3p7*p4p5-2*hbcm*p4p5*p5p7))+w1*(4*(p5p7*p3p4
15040      . )*(2*fmc-3*hbcm)+4*(p3p7*p3p4)*(4*fmc-hbcm)+4*(p4p7*p3p4)*(-
15041      . fmb+fmc)+4*p5p7*(fmb*fmc*hbcm-fmc2*hbcm)+4*p4p7*(-2*fmb*fmc*
15042      . hbcm-fmc*hbcm2+2*fmc2*hbcm)+4*p3p7*(fmb*fmc*hbcm-2*fmb*fmc2+
15043      . fmc2*hbcm+2*fmc3)+8*(-hbcm*p1p2*p4p7+hbcm*p1p4*p5p7-hbcm*p2p4*
15044      . p5p7+hbcm*p2p5*p4p7-hbcm*p4p5*p5p7))+(16*p4p7*(fb4*fmb-fb4*fmc
15045      . )+16*p3p7*(fb3*fmc-fb3*hbcm-fb4*fmc)-16*fb3*hbcm*p5p7))
15046       b(4)=ans
15047       ans3=(4*p7p8*(4*fb3*fmb*fmc-4*fb3*fmc*hbcm+4*fb3*fmc2+4*fb4*fmb
15048      . *fmc+4*fb4*fmc*hbcm+4*fb4*fmc2-hbcm2)+32*(fb4*p1p2*p7p8-fb4*
15049      . p1p8*p4p7-fb4*p2p5*p7p8-fb4*p2p8*p4p7+2*fb4*p2p8*p5p7+fb4*p3p4
15050      . *p7p8-fb4*p3p7*p4p8+fb4*p4p7*p5p8-fb4*p4p8*p5p7))
15051       ans2=w15*(8*(p7p8*p2p5)*(fmc*hbcm-hbcm2)+8*(p7p8*p1p2)*(-fmc*
15052      . hbcm+hbcm2)+4*(p5p8*p5p7)*(-fmb*hbcm+fmc*hbcm)+4*(p5p8*p4p7)*(
15053      . 2*fmb*hbcm-2*fmc*hbcm+hbcm2)+8*(p7p8*p4p5)*(fmb*hbcm+fmc*hbcm-
15054      . hbcm2)+8*(p5p7*p2p8)*(fmb*hbcm-2*fmc*hbcm+2*hbcm2)+4*(p5p7*
15055      . p1p8)*(fmb*hbcm-fmc*hbcm)+4*(p4p7*p1p8)*(-2*fmb*hbcm+2*fmc*
15056      . hbcm-hbcm2)+8*(p7p8*p1p4)*(-fmb*hbcm-fmc*hbcm+hbcm2)+4*(p5p8*
15057      . p3p7)*(2*fmb*fmc-fmb*hbcm+fmc*hbcm-2*fmc2)+8*(p7p8*p3p5)*(fmb*
15058      . fmc+fmc2)+8*(p3p7*p2p8)*(-2*fmb*fmc+fmb*hbcm)+4*(p3p7*p1p8)*(-
15059      . 2*fmb*fmc+fmb*hbcm-fmc*hbcm+2*fmc2)+8*(p7p8*p1p3)*(-fmb*fmc-
15060      . fmc2)+8*(fmb*fmc*hbcm2*p7p8-2*fmb*hbcm*p2p8*p4p7+fmb*hbcm*p3p4
15061      . *p7p8-fmb*hbcm*p3p7*p4p8-fmb*hbcm*p4p8*p5p7-p1p2*p1p3*p7p8+
15062      . p1p2*p3p5*p7p8+p1p3*p1p8*p4p7+p1p3*p2p5*p7p8+p1p3*p2p8*p4p7-2*
15063      . p1p3*p2p8*p5p7-p1p3*p3p4*p7p8+p1p3*p3p7*p4p8-p1p3*p4p7*p5p8+
15064      . p1p3*p4p8*p5p7-p1p8*p3p5*p4p7-p2p5*p3p5*p7p8-p2p8*p3p5*p4p7+2*
15065      . p2p8*p3p5*p5p7+p3p4*p3p5*p7p8-p3p5*p3p7*p4p8+p3p5*p4p7*p5p8-
15066      . p3p5*p4p8*p5p7))+ans3
15067       ans1=w1*(8*(p5p8*p3p7)*(fmc*hbcm-2*fmc2)+8*(p3p7*p2p8)*(-fmc*
15068      . hbcm+2*fmc2)+8*(p3p7*p1p8)*(-fmc*hbcm+2*fmc2)+4*(p5p7*p4p8)*(
15069      . fmb*hbcm+3*fmc*hbcm)+8*p7p8*(-fmb*fmc2*hbcm-fmc3*hbcm-p3p4s2)+
15070      . 4*(p4p8*p3p7)*(-2*fmb*fmc+fmb*hbcm+3*fmc*hbcm-2*fmc2)+8*(p7p8*
15071      . p3p4)*(-fmb*fmc-fmc*hbcm-fmc2)+4*(-2*fmc*hbcm*p1p2*p7p8+4*fmc*
15072      . hbcm*p1p8*p4p7-2*fmc*hbcm*p1p8*p5p7+2*fmc*hbcm*p2p5*p7p8+4*fmc
15073      . *hbcm*p2p8*p4p7-6*fmc*hbcm*p2p8*p5p7-4*fmc*hbcm*p4p7*p5p8+2*
15074      . fmc*hbcm*p5p7*p5p8-hbcm2*p4p7*p4p8-2*p1p2*p3p4*p7p8+2*p1p8*
15075      . p3p4*p4p7+2*p2p5*p3p4*p7p8+2*p2p8*p3p4*p4p7-4*p2p8*p3p4*p5p7+2
15076      . *p3p4*p3p7*p4p8-2*p3p4*p4p7*p5p8+2*p3p4*p4p8*p5p7))+ans2
15077       ans=ccc*ans1
15078       b(5)=ans
15079       ans3=(8*p5p7*(-2*fb3*fmb*hbcm-2*fb3*fmc*hbcm+4*fb4*fmc*hbcm-
15080      . hbcm2)+16*p3p7*(fb3*fmb*fmc-fb3*fmb*hbcm-fb3*fmc*hbcm+fb3*fmc2
15081      . -fb4*fmb*fmc-fb4*fmc2)+16*(-fb4*hbcm2*p4p7-2*fb4*p1p2*p3p7+2*
15082      . fb4*p1p3*p4p7+2*fb4*p2p3*p4p7-4*fb4*p2p3*p5p7+2*fb4*p2p5*p3p7+
15083      . 2*fb4*p3p4*p5p7-2*fb4*p3p5*p4p7))
15084       ans2=w15*(8*(p4p5*p3p7)*(-fmb*hbcm-fmc*hbcm)+4*(p5p7*p3p5)*(fmb
15085      . *hbcm-fmc*hbcm+2*hbcm2)+4*(p4p7*p3p5)*(-2*fmb*hbcm+2*fmc*hbcm-
15086      . hbcm2)+8*(p5p7*p2p3)*(-fmb*hbcm+2*fmc*hbcm-hbcm2)+8*(p3p7*p1p4
15087      . )*(fmb*hbcm+fmc*hbcm)+4*(p5p7*p1p3)*(-fmb*hbcm+fmc*hbcm-2*
15088      . hbcm2)+4*(p4p7*p1p3)*(2*fmb*hbcm-2*fmc*hbcm+hbcm2)+4*(p3p7*
15089      . p3p5)*(-4*fmb*fmc+fmb*hbcm-fmc*hbcm)+8*(p3p7*p2p3)*(2*fmb*fmc-
15090      . fmb*hbcm)+4*(p3p7*p1p3)*(4*fmb*fmc-fmb*hbcm+fmc*hbcm)+4*p5p7*(
15091      . 2*fmb*fmc*hbcm2+fmb*hbcm3+fmb2*hbcm2-fmc2*hbcm2+hbcm4)+4*p4p7*
15092      . (fmb*fmc*hbcm2-2*fmb*hbcm3+fmb2*hbcm2-2*p1p3s2-2*p3p5s2)+4*
15093      . p3p7*(-2*fmb*fmc*hbcm2+fmb*hbcm3)+8*(2*fmb*hbcm*p2p3*p4p7+fmb*
15094      . hbcm*p3p4*p5p7+fmc*hbcm*p1p2*p3p7-fmc*hbcm*p2p5*p3p7+hbcm2*
15095      . p1p4*p5p7-hbcm2*p1p5*p4p7-hbcm2*p1p5*p5p7-hbcm2*p4p5*p5p7+p1p2
15096      . *p1p3*p3p7-p1p2*p3p5*p3p7-p1p3*p2p3*p4p7+2*p1p3*p2p3*p5p7-p1p3
15097      . *p2p5*p3p7-p1p3*p3p4*p5p7+2*p1p3*p3p5*p4p7+p2p3*p3p5*p4p7-2*
15098      . p2p3*p3p5*p5p7+p2p5*p3p5*p3p7+p3p4*p3p5*p5p7))+ans3
15099       ans1=w1*(4*p5p7*(-fmc*hbcm3-2*fmc2*hbcm2-2*p3p4s2)+8*(p3p7*p3p5
15100      . )*(-fmc*hbcm+2*fmc2)+8*(p3p7*p2p3)*(fmc*hbcm-2*fmc2)+8*(p3p7*
15101      . p1p3)*(fmc*hbcm-2*fmc2)+4*(p5p7*p3p4)*(-fmb*hbcm-3*fmc*hbcm-2*
15102      . hbcm2)+4*p3p7*(2*fmb*fmc2*hbcm-fmc*hbcm3+2*fmc2*hbcm2+2*fmc3*
15103      . hbcm)+4*(p3p7*p3p4)*(4*fmb*fmc-fmb*hbcm-fmc*hbcm+4*fmc2)+4*
15104      . p4p7*(-fmb*fmc*hbcm2+2*fmc*hbcm3-fmc2*hbcm2)+4*(2*fmc*hbcm*
15105      . p1p2*p3p7-4*fmc*hbcm*p1p3*p4p7+2*fmc*hbcm*p1p3*p5p7-4*fmc*hbcm
15106      . *p2p3*p4p7+6*fmc*hbcm*p2p3*p5p7-2*fmc*hbcm*p2p5*p3p7+4*fmc*
15107      . hbcm*p3p5*p4p7-2*fmc*hbcm*p3p5*p5p7-2*hbcm2*p1p2*p4p7+2*hbcm2*
15108      . p1p4*p5p7-2*hbcm2*p2p4*p5p7+2*hbcm2*p2p5*p4p7+hbcm2*p3p4*p4p7-
15109      . 2*hbcm2*p4p5*p5p7+2*p1p2*p3p4*p3p7-2*p1p3*p3p4*p4p7-2*p2p3*
15110      . p3p4*p4p7+4*p2p3*p3p4*p5p7-2*p2p5*p3p4*p3p7+2*p3p4*p3p5*p4p7))
15111      . +ans2
15112       ans=ccc*ans1
15113       b(6)=ans
15114       ans4=8*(-fmb*hbcm2*p2p8*p4p7-fmb*hbcm2*p4p8*p5p7-fmc*hbcm2*p1p3
15115      . *p7p8+2*fmc*hbcm2*p1p5*p7p8+fmc*hbcm2*p3p5*p7p8-2*fmc*p1p3*
15116      . p1p8*p3p7+2*fmc*p1p3*p2p3*p7p8-4*fmc*p1p3*p3p5*p7p8+2*fmc*p1p3
15117      . *p3p7*p5p8+2*fmc*p1p8*p3p5*p3p7-2*fmc*p2p3*p3p5*p7p8-2*fmc*
15118      . p3p5*p3p7*p5p8+hbcm*p1p2*p1p3*p7p8-hbcm*p1p2*p1p8*p3p7+2*hbcm*
15119      . p1p2*p2p3*p7p8-2*hbcm*p1p2*p2p8*p3p7-hbcm*p1p2*p3p5*p7p8+hbcm*
15120      . p1p2*p3p7*p5p8+2*hbcm*p1p3*p1p4*p7p8-hbcm*p1p3*p2p5*p7p8-hbcm*
15121      . p1p3*p2p8*p3p7+2*hbcm*p1p3*p2p8*p4p7+hbcm*p1p3*p2p8*p5p7-2*
15122      . hbcm*p1p3*p4p5*p7p8+hbcm*p1p3*p4p8*p5p7-2*hbcm*p1p4*p1p8*p3p7+
15123      . 2*hbcm*p1p4*p2p3*p7p8-2*hbcm*p1p4*p2p8*p3p7-2*hbcm*p1p4*p3p5*
15124      . p7p8+2*hbcm*p1p4*p3p7*p5p8+2*hbcm*p1p5*p3p4*p7p8-2*hbcm*p1p5*
15125      . p3p7*p4p8-2*hbcm*p1p8*p2p3*p4p7-hbcm*p1p8*p2p3*p5p7+hbcm*p1p8*
15126      . p2p5*p3p7-hbcm*p1p8*p3p4*p5p7+2*hbcm*p1p8*p3p7*p4p5-2*hbcm*
15127      . p2p3*p2p5*p7p8-2*hbcm*p2p3*p4p5*p7p8+2*hbcm*p2p3*p4p7*p5p8+
15128      . hbcm*p2p3*p5p7*p5p8+2*hbcm*p2p5*p2p8*p3p7+hbcm*p2p5*p3p5*p7p8-
15129      . hbcm*p2p5*p3p7*p5p8+hbcm*p2p8*p3p5*p3p7-2*hbcm*p2p8*p3p5*p4p7-
15130      . hbcm*p2p8*p3p5*p5p7+2*hbcm*p2p8*p3p7*p4p5+hbcm*p3p4*p5p7*p5p8+
15131      . 2*hbcm*p3p5*p4p5*p7p8-hbcm*p3p5*p4p8*p5p7-2*hbcm*p3p7*p4p5*
15132      . p5p8)
15133       ans3=8*(p5p8*p3p7*p2p3)*(2*fmc-hbcm)+8*(p3p7*p2p3*p1p8)*(-2*fmc
15134      . +hbcm)+4*(p5p8*p5p7)*(2*fmc*hbcm2+hbcm3)+4*(p5p8*p3p7)*(-2*fmc
15135      . *hbcm2+hbcm3)+16*(p5p7*p2p8)*(fmc*hbcm2-hbcm3)+8*(p7p8*p2p5)*(
15136      . -fmc*hbcm2+hbcm3)+4*(p5p7*p1p8)*(-2*fmc*hbcm2-hbcm3)+4*(p3p7*
15137      . p1p8)*(2*fmc*hbcm2-hbcm3)+8*(p7p8*p1p2)*(fmc*hbcm2-hbcm3)+8*(
15138      . p4p8*p3p7*p3p5)*(fmb-fmc)+8*(p7p8*p3p5*p3p4)*(-fmb+fmc)+8*(
15139      . p4p8*p3p7*p1p3)*(-fmb+fmc)+8*(p7p8*p3p4*p1p3)*(fmb-fmc)+4*(
15140      . p5p8*p4p7)*(fmb*hbcm2+fmc*hbcm2-2*hbcm3)+8*(p7p8*p4p5)*(fmb*
15141      . hbcm2-fmc*hbcm2+hbcm3)+4*(p4p7*p1p8)*(-fmb*hbcm2-fmc*hbcm2+2*
15142      . hbcm3)+8*(p7p8*p1p4)*(-fmb*hbcm2+fmc*hbcm2-hbcm3)+8*p7p8*(fmb*
15143      . fmc2*hbcm2-fmb2*fmc*hbcm2+2*fmc*p1p3s2+2*fmc*p3p5s2)+8*(p4p8*
15144      . p3p7)*(-fmb*fmc*hbcm+fmb2*hbcm)+8*(p7p8*p3p4)*(fmb*fmc*hbcm-
15145      . fmb2*hbcm)+ans4
15146       ans2=w15*ans3
15147       ans6=(32*(p4p8*p3p7)*(fb4*fmb-fb4*fmc)+32*(p7p8*p3p4)*(-fb4*fmb
15148      . +fb4*fmc)+32*(p5p8*p3p7)*(fb3*fmc-fb3*hbcm-fb4*fmc)+32*(p7p8*
15149      . p3p5)*(fb3*fmc+fb4*fmc)+32*(p3p7*p2p8)*(-fb3*fmc+fb3*hbcm+fb4*
15150      . fmc)+32*(p7p8*p2p3)*(-fb3*fmc-fb4*fmc)+32*(p3p7*p1p8)*(-fb3*
15151      . fmc+fb3*hbcm+fb4*fmc)+32*(p7p8*p1p3)*(-fb3*fmc-fb4*fmc)+4*p7p8
15152      . *(4*fb3*fmb*fmc*hbcm+4*fb3*fmc*hbcm2-4*fb3*fmc2*hbcm-4*fb4*fmb
15153      . *fmc*hbcm+4*fb4*fmc*hbcm2+4*fb4*fmc2*hbcm+fmb*hbcm2-fmc*hbcm2)
15154      . +32*(-fb3*hbcm*p1p2*p7p8+fb3*hbcm*p1p8*p5p7+fb3*hbcm*p2p5*p7p8
15155      . -fb3*hbcm*p2p8*p5p7+fb3*hbcm*p4p8*p5p7-fb3*hbcm*p5p7*p5p8))
15156       ans5=w1*(8*(p4p8*p3p7*p3p5)*(-2*fmc+hbcm)+8*(p5p8*p3p7*p3p4)*(4
15157      . *fmc-hbcm)+8*(p3p7*p3p4*p2p8)*(-4*fmc+hbcm)+8*(p4p8*p3p7*p2p3)
15158      . *(2*fmc-hbcm)+8*(p3p7*p3p4*p1p8)*(-4*fmc+hbcm)+8*(p4p8*p3p7*
15159      . p1p3)*(2*fmc-hbcm)+8*p7p8*(fmb*p3p4s2-fmc*p3p4s2-fmc2*hbcm3)+8
15160      . *(p4p8*p3p7*p3p4)*(-fmb+fmc)+4*(p4p8*p4p7)*(fmb*hbcm2-fmc*
15161      . hbcm2)+4*(p4p8*p3p7)*(-2*fmb*fmc*hbcm-2*fmc*hbcm2+2*fmc2*hbcm+
15162      . hbcm3)+8*(p7p8*p3p4)*(fmb*fmc*hbcm-fmc*hbcm2-fmc2*hbcm)+4*(2*
15163      . fmc*hbcm2*p1p2*p7p8+2*fmc*hbcm2*p1p8*p4p7-2*fmc*hbcm2*p2p5*
15164      . p7p8+2*fmc*hbcm2*p2p8*p4p7+4*fmc*hbcm2*p2p8*p5p7-2*fmc*hbcm2*
15165      . p4p7*p5p8+4*fmc*p1p3*p3p4*p7p8+4*fmc*p2p3*p3p4*p7p8-4*fmc*p3p4
15166      . *p3p5*p7p8+4*fmc2*hbcm*p1p3*p7p8-4*fmc2*hbcm*p1p8*p3p7+4*fmc2*
15167      . hbcm*p2p3*p7p8-4*fmc2*hbcm*p2p8*p3p7-4*fmc2*hbcm*p3p5*p7p8+4*
15168      . fmc2*hbcm*p3p7*p5p8+2*hbcm*p1p2*p3p4*p7p8-2*hbcm*p1p2*p3p7*
15169      . p4p8-2*hbcm*p1p3*p4p8*p5p7+2*hbcm*p1p8*p3p4*p5p7-6*hbcm*p2p3*
15170      . p4p8*p5p7-2*hbcm*p2p5*p3p4*p7p8+2*hbcm*p2p5*p3p7*p4p8+6*hbcm*
15171      . p2p8*p3p4*p5p7-2*hbcm*p3p4*p5p7*p5p8+2*hbcm*p3p5*p4p8*p5p7+
15172      . hbcm3*p4p8*p5p7))+ans6
15173       ans1=ans2+ans5
15174       ans=ccc*ans1
15175       b(7)=ans
15176       ans4=8*(fmb*hbcm*p1p5*p6p8+fmb*hbcm*p2p3*p6p8+2*fmb*hbcm*p2p4*
15177      . p6p8+fmb*hbcm*p2p8*p3p6+fmb*hbcm*p2p8*p4p6+fmb*hbcm*p2p8*p5p6+
15178      . fmb*hbcm*p3p4*p6p8-fmb*hbcm*p3p6*p4p8-fmb*hbcm*p4p6*p4p8-fmb*
15179      . hbcm*p4p8*p5p6-p1p3*p1p5*p6p8+p1p3*p1p8*p3p6+p1p3*p1p8*p4p6+
15180      . p1p3*p1p8*p5p6-p1p3*p2p3*p6p8-2*p1p3*p2p4*p6p8-p1p3*p2p8*p3p6-
15181      . p1p3*p2p8*p4p6-p1p3*p2p8*p5p6-p1p3*p3p4*p6p8+2*p1p3*p3p5*p6p8+
15182      . p1p3*p3p6*p4p8-p1p3*p3p6*p5p8+p1p3*p4p6*p4p8-p1p3*p4p6*p5p8+
15183      . p1p3*p4p8*p5p6-p1p3*p5p6*p5p8+p1p5*p3p5*p6p8-p1p8*p3p5*p3p6-
15184      . p1p8*p3p5*p4p6-p1p8*p3p5*p5p6+p2p3*p3p5*p6p8+2*p2p4*p3p5*p6p8+
15185      . p2p8*p3p5*p3p6+p2p8*p3p5*p4p6+p2p8*p3p5*p5p6+p3p4*p3p5*p6p8-
15186      . p3p5*p3p6*p4p8+p3p5*p3p6*p5p8-p3p5*p4p6*p4p8+p3p5*p4p6*p5p8-
15187      . p3p5*p4p8*p5p6+p3p5*p5p6*p5p8)
15188       ans3=4*(p5p8*p5p6)*(fmb*hbcm-fmc*hbcm+hbcm2)+4*(p5p8*p4p6)*(fmb
15189      . *hbcm-fmc*hbcm+hbcm2)+8*(p6p8*p4p5)*(fmb*hbcm+fmc*hbcm-hbcm2)+
15190      . 4*(p5p8*p3p6)*(fmb*hbcm-fmc*hbcm+hbcm2)+8*(p6p8*p2p5)*(fmb*
15191      . hbcm+fmc*hbcm-hbcm2)+4*(p5p6*p1p8)*(-fmb*hbcm+fmc*hbcm-hbcm2)+
15192      . 4*(p4p6*p1p8)*(-fmb*hbcm+fmc*hbcm-hbcm2)+4*(p3p6*p1p8)*(-fmb*
15193      . hbcm+fmc*hbcm-hbcm2)+8*(p6p8*p1p4)*(-fmb*hbcm-fmc*hbcm+hbcm2)+
15194      . 8*(p6p8*p1p2)*(-fmb*hbcm-fmc*hbcm+hbcm2)+4*(p6p8*p3p5)*(2*fmb*
15195      . fmc-2*fmb*hbcm-fmb2+3*fmc2-hbcm2)+4*(p6p8*p1p3)*(-2*fmb*fmc+2*
15196      . fmb*hbcm+fmb2-3*fmc2+hbcm2)+4*p6p8*(2*fmb*fmc*hbcm2+fmb*fmc2*
15197      . hbcm-fmb*hbcm3-fmb3*hbcm-2*p1p3s2-2*p3p5s2)+ans4
15198       ans2=w15*ans3
15199       ans5=(8*p6p8*(-2*fb4*fmb2+4*fb4*fmc*hbcm+2*fb4*fmc2-2*fb4*hbcm2
15200      . -hbcm2)+32*(fb4*p1p3*p6p8+fb4*p1p5*p6p8-fb4*p1p8*p3p6-fb4*p1p8
15201      . *p4p6-fb4*p1p8*p5p6+fb4*p2p3*p6p8+2*fb4*p2p4*p6p8+fb4*p2p8*
15202      . p3p6+fb4*p2p8*p4p6+fb4*p2p8*p5p6+fb4*p3p4*p6p8-fb4*p3p5*p6p8-
15203      . fb4*p3p6*p4p8+fb4*p3p6*p5p8-fb4*p4p6*p4p8+fb4*p4p6*p5p8-fb4*
15204      . p4p8*p5p6+fb4*p5p6*p5p8))
15205       ans1=w1*(4*p6p8*(fmb2*fmc*hbcm+fmc*hbcm3-2*fmc2*hbcm2-fmc3*hbcm
15206      . -2*p3p4s2)+4*(p5p6*p4p8)*(-fmb*hbcm+fmc*hbcm+hbcm2)+4*(p4p8*
15207      . p4p6)*(-fmb*hbcm+fmc*hbcm+hbcm2)+8*(p6p8*p4p5)*(fmb*hbcm+fmc*
15208      . hbcm-hbcm2)+4*(p4p8*p3p6)*(-fmb*hbcm+fmc*hbcm+hbcm2)+8*(p6p8*
15209      . p2p4)*(fmb*hbcm-fmc*hbcm-hbcm2)+8*(p6p8*p1p4)*(-fmb*hbcm-fmc*
15210      . hbcm+hbcm2)+4*(p6p8*p3p4)*(-2*fmb*fmc+2*fmb*hbcm+fmb2-3*fmc2-
15211      . hbcm2)+8*(-fmc*hbcm*p1p3*p6p8-fmc*hbcm*p1p5*p6p8+fmc*hbcm*p1p8
15212      . *p3p6+fmc*hbcm*p1p8*p4p6+fmc*hbcm*p1p8*p5p6-fmc*hbcm*p2p3*p6p8
15213      . -fmc*hbcm*p2p8*p3p6-fmc*hbcm*p2p8*p4p6-fmc*hbcm*p2p8*p5p6+fmc*
15214      . hbcm*p3p5*p6p8-fmc*hbcm*p3p6*p5p8-fmc*hbcm*p4p6*p5p8-fmc*hbcm*
15215      . p5p6*p5p8-p1p3*p3p4*p6p8-p1p5*p3p4*p6p8+p1p8*p3p4*p3p6+p1p8*
15216      . p3p4*p4p6+p1p8*p3p4*p5p6-p2p3*p3p4*p6p8-2*p2p4*p3p4*p6p8-p2p8*
15217      . p3p4*p3p6-p2p8*p3p4*p4p6-p2p8*p3p4*p5p6+p3p4*p3p5*p6p8+p3p4*
15218      . p3p6*p4p8-p3p4*p3p6*p5p8+p3p4*p4p6*p4p8-p3p4*p4p6*p5p8+p3p4*
15219      . p4p8*p5p6-p3p4*p5p6*p5p8))+ans2+ans5
15220       ans=ccc*ans1
15221       b(8)=ans
15222       ans4=8*(-fmb*hbcm*p2p3*p4p6-fmb*hbcm*p2p3*p5p6+fmb*hbcm*p3p4*
15223      . p4p6+fmb*hbcm*p3p4*p5p6+hbcm2*p1p2*p4p6+hbcm2*p1p2*p5p6+hbcm2*
15224      . p1p4*p4p6+hbcm2*p1p4*p5p6-hbcm2*p1p5*p4p6-hbcm2*p1p5*p5p6-
15225      . hbcm2*p2p5*p4p6-hbcm2*p2p5*p5p6-hbcm2*p4p5*p4p6-hbcm2*p4p5*
15226      . p5p6+2*p1p2*p1p3*p3p6-2*p1p2*p3p5*p3p6+p1p3*p1p5*p3p6+p1p3*
15227      . p2p3*p4p6+p1p3*p2p3*p5p6-2*p1p3*p2p5*p3p6-p1p3*p3p4*p4p6-p1p3*
15228      . p3p4*p5p6+2*p1p3*p3p5*p4p6+2*p1p3*p3p5*p5p6-p1p5*p3p5*p3p6-
15229      . p2p3*p3p5*p4p6-p2p3*p3p5*p5p6+2*p2p5*p3p5*p3p6+p3p4*p3p5*p4p6+
15230      . p3p4*p3p5*p5p6)
15231       ans3=8*(p4p5*p3p6)*(-fmb*hbcm-fmc*hbcm)+4*(p5p6*p3p5)*(-fmb*
15232      . hbcm+fmc*hbcm-hbcm2)+4*(p4p6*p3p5)*(-fmb*hbcm+fmc*hbcm-hbcm2)+
15233      . 8*(p3p6*p2p5)*(fmb*hbcm-fmc*hbcm)+8*(p3p6*p1p5)*(-fmb*hbcm-
15234      . hbcm2)+8*(p3p6*p1p4)*(fmb*hbcm+fmc*hbcm)+4*(p5p6*p1p3)*(fmb*
15235      . hbcm-fmc*hbcm+hbcm2)+4*(p4p6*p1p3)*(fmb*hbcm-fmc*hbcm+hbcm2)+8
15236      . *(p3p6*p1p2)*(-fmb*hbcm+fmc*hbcm)+4*(p3p6*p3p5)*(-2*fmb*fmc+
15237      . fmb*hbcm+fmb2+fmc*hbcm-3*fmc2)+4*(p3p6*p1p3)*(2*fmb*fmc-fmb*
15238      . hbcm-fmb2-fmc*hbcm+3*fmc2)+4*p5p6*(3*fmb*fmc*hbcm2-fmb*hbcm3+
15239      . fmb2*hbcm2-2*p1p3s2-2*p3p5s2)+4*p4p6*(3*fmb*fmc*hbcm2-fmb*
15240      . hbcm3+fmb2*hbcm2-2*p1p3s2-2*p3p5s2)+4*p3p6*(fmb*fmc*hbcm2-fmb*
15241      . fmc2*hbcm+fmb2*hbcm2+fmb3*hbcm)+ans4
15242       ans2=w15*ans3
15243       ans6=(8*p5p6*(-2*fb3*fmb*hbcm-2*fb3*fmc*hbcm+4*fb4*fmc*hbcm-2*
15244      . fb4*hbcm2-hbcm2)+8*p4p6*(-2*fb3*fmb*hbcm-2*fb3*fmc*hbcm+4*fb4*
15245      . fmc*hbcm-2*fb4*hbcm2-hbcm2)+16*p3p6*(-fb3*fmb*hbcm-fb3*fmc*
15246      . hbcm+fb4*fmb2-fb4*fmc2)+32*(-2*fb4*p1p2*p3p6+fb4*p1p3*p4p6+fb4
15247      . *p1p3*p5p6-fb4*p1p5*p3p6-fb4*p2p3*p4p6-fb4*p2p3*p5p6+2*fb4*
15248      . p2p5*p3p6+fb4*p3p4*p4p6+fb4*p3p4*p5p6-fb4*p3p5*p4p6-fb4*p3p5*
15249      . p5p6))
15250       ans5=w1*(8*(p4p5*p3p6)*(-fmb*hbcm-fmc*hbcm)+4*(p5p6*p3p4)*(fmb*
15251      . hbcm-fmc*hbcm-hbcm2)+4*(p4p6*p3p4)*(fmb*hbcm-fmc*hbcm-hbcm2)+8
15252      . *(p3p6*p2p4)*(-fmb*hbcm-fmc*hbcm)+8*(p3p6*p1p4)*(fmb*hbcm+fmc*
15253      . hbcm)+4*(p3p6*p3p4)*(2*fmb*fmc-fmb*hbcm-fmb2-fmc*hbcm+3*fmc2)+
15254      . 4*p5p6*(fmb*fmc*hbcm2+fmc*hbcm3-fmc2*hbcm2-2*p3p4s2)+4*p4p6*(
15255      . fmb*fmc*hbcm2+fmc*hbcm3-fmc2*hbcm2-2*p3p4s2)+4*p3p6*(fmb*fmc*
15256      . hbcm2-fmb2*fmc*hbcm+fmc2*hbcm2+fmc3*hbcm)+8*(2*fmc*hbcm*p1p2*
15257      . p3p6-fmc*hbcm*p1p3*p4p6-fmc*hbcm*p1p3*p5p6+fmc*hbcm*p1p5*p3p6+
15258      . fmc*hbcm*p2p3*p4p6+fmc*hbcm*p2p3*p5p6-2*fmc*hbcm*p2p5*p3p6+fmc
15259      . *hbcm*p3p5*p4p6+fmc*hbcm*p3p5*p5p6+hbcm2*p1p4*p4p6+hbcm2*p1p4*
15260      . p5p6-hbcm2*p2p4*p4p6-hbcm2*p2p4*p5p6-hbcm2*p4p5*p4p6-hbcm2*
15261      . p4p5*p5p6+2*p1p2*p3p4*p3p6-p1p3*p3p4*p4p6-p1p3*p3p4*p5p6+p1p5*
15262      . p3p4*p3p6+p2p3*p3p4*p4p6+p2p3*p3p4*p5p6-2*p2p5*p3p4*p3p6+p3p4*
15263      . p3p5*p4p6+p3p4*p3p5*p5p6))+ans6
15264       ans1=ans2+ans5
15265       ans=ccc*ans1
15266       b(9)=ans
15267       ans5=8*(fmb*hbcm2*p2p8*p4p6+fmb*hbcm2*p2p8*p5p6-fmb*hbcm2*p4p6*
15268      . p4p8-fmb*hbcm2*p4p8*p5p6+2*hbcm*p1p2*p2p3*p6p8-2*hbcm*p1p2*
15269      . p2p8*p3p6+2*hbcm*p1p3*p1p4*p6p8-hbcm*p1p3*p1p5*p6p8-hbcm*p1p3*
15270      . p2p8*p4p6-hbcm*p1p3*p2p8*p5p6-2*hbcm*p1p3*p4p5*p6p8+hbcm*p1p3*
15271      . p4p6*p4p8+hbcm*p1p3*p4p8*p5p6-2*hbcm*p1p4*p1p8*p3p6+2*hbcm*
15272      . p1p4*p2p3*p6p8-2*hbcm*p1p4*p2p8*p3p6-2*hbcm*p1p4*p3p5*p6p8+2*
15273      . hbcm*p1p4*p3p6*p5p8+hbcm*p1p5*p1p8*p3p6-4*hbcm*p1p5*p2p3*p6p8+
15274      . 4*hbcm*p1p5*p2p8*p3p6+2*hbcm*p1p5*p3p4*p6p8+hbcm*p1p5*p3p5*
15275      . p6p8-2*hbcm*p1p5*p3p6*p4p8-hbcm*p1p5*p3p6*p5p8+hbcm*p1p8*p2p3*
15276      . p4p6+hbcm*p1p8*p2p3*p5p6-hbcm*p1p8*p3p4*p4p6-hbcm*p1p8*p3p4*
15277      . p5p6+2*hbcm*p1p8*p3p6*p4p5-2*hbcm*p2p3*p2p5*p6p8-2*hbcm*p2p3*
15278      . p4p5*p6p8-hbcm*p2p3*p4p6*p5p8-hbcm*p2p3*p5p6*p5p8+2*hbcm*p2p5*
15279      . p2p8*p3p6+hbcm*p2p8*p3p5*p4p6+hbcm*p2p8*p3p5*p5p6+2*hbcm*p2p8*
15280      . p3p6*p4p5+hbcm*p3p4*p4p6*p5p8+hbcm*p3p4*p5p6*p5p8+2*hbcm*p3p5*
15281      . p4p5*p6p8-hbcm*p3p5*p4p6*p4p8-hbcm*p3p5*p4p8*p5p6-2*hbcm*p3p6*
15282      . p4p5*p5p8)
15283       ans4=4*(p6p8*p1p3)*(2*fmb*hbcm2+fmb2*hbcm-2*fmc*hbcm2-fmc2*hbcm
15284      . +hbcm3)+8*(p6p8*p1p2)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+4*p6p8*(3*
15285      . fmb*fmc2*hbcm2-fmb*hbcm4-2*fmb2*fmc*hbcm2-fmb3*hbcm2+4*fmc*
15286      . p1p3s2+4*fmc*p3p5s2-2*hbcm*p1p3s2-2*hbcm*p3p5s2)+8*(p4p8*p3p6)
15287      . *(-fmb*fmc*hbcm+fmb2*hbcm)+8*(p6p8*p3p4)*(fmb*fmc*hbcm-fmb2*
15288      . hbcm)+8*(p3p6*p2p8)*(2*fmb*fmc*hbcm-fmb*hbcm2-2*fmb2*hbcm)+8*(
15289      . p6p8*p2p3)*(-2*fmb*fmc*hbcm+fmb*hbcm2+2*fmb2*hbcm)+ans5
15290       ans3=8*(p5p8*p3p6*p3p5)*(-2*fmc+hbcm)+8*(p3p6*p3p5*p1p8)*(2*fmc
15291      . -hbcm)+8*(p5p8*p3p6*p1p3)*(2*fmc-hbcm)+16*(p6p8*p3p5*p1p3)*(-2
15292      . *fmc+hbcm)+8*(p3p6*p1p8*p1p3)*(-2*fmc+hbcm)+8*(p4p8*p3p6*p3p5)
15293      . *(fmb-fmc)+8*(p6p8*p3p5*p3p4)*(-fmb+fmc)+8*(p3p6*p3p5*p2p8)*(-
15294      . 2*fmb+4*fmc-hbcm)+8*(p6p8*p3p5*p2p3)*(2*fmb-4*fmc+hbcm)+8*(
15295      . p4p8*p3p6*p1p3)*(-fmb+fmc)+8*(p6p8*p3p4*p1p3)*(fmb-fmc)+8*(
15296      . p3p6*p2p8*p1p3)*(2*fmb-4*fmc+hbcm)+8*(p6p8*p2p3*p1p3)*(-2*fmb+
15297      . 4*fmc-hbcm)+4*(p5p8*p5p6)*(fmb*hbcm2+3*fmc*hbcm2-hbcm3)+4*(
15298      . p5p8*p4p6)*(fmb*hbcm2+3*fmc*hbcm2-hbcm3)+8*(p6p8*p4p5)*(fmb*
15299      . hbcm2-fmc*hbcm2+hbcm3)+4*(p5p8*p3p6)*(fmb*hbcm2+fmb2*hbcm+fmc*
15300      . hbcm2-fmc2*hbcm)+4*(p6p8*p3p5)*(-2*fmb*hbcm2-fmb2*hbcm+2*fmc*
15301      . hbcm2+fmc2*hbcm-hbcm3)+8*(p6p8*p2p5)*(-fmb*hbcm2-fmc*hbcm2+
15302      . hbcm3)+4*(p5p6*p1p8)*(-fmb*hbcm2-3*fmc*hbcm2+hbcm3)+4*(p4p6*
15303      . p1p8)*(-fmb*hbcm2-3*fmc*hbcm2+hbcm3)+4*(p3p6*p1p8)*(-fmb*hbcm2
15304      . -fmb2*hbcm-fmc*hbcm2+fmc2*hbcm)+8*(p6p8*p1p5)*(fmb*hbcm2+2*fmc
15305      . *hbcm2)+8*(p6p8*p1p4)*(-fmb*hbcm2+fmc*hbcm2-hbcm3)+ans4
15306       ans2=w15*ans3
15307       ans8=8*(2*fmc*hbcm2*p1p2*p6p8+fmc*hbcm2*p1p3*p6p8+fmc*hbcm2*
15308      . p1p5*p6p8-fmc*hbcm2*p1p8*p3p6-fmc*hbcm2*p1p8*p4p6-fmc*hbcm2*
15309      . p1p8*p5p6-2*fmc*hbcm2*p2p5*p6p8+fmc*hbcm2*p2p8*p4p6+fmc*hbcm2*
15310      . p2p8*p5p6-fmc*hbcm2*p3p5*p6p8+fmc*hbcm2*p3p6*p5p8+fmc*hbcm2*
15311      . p4p6*p5p8+fmc*hbcm2*p5p6*p5p8+2*hbcm*p1p2*p3p4*p6p8-2*hbcm*
15312      . p1p2*p3p6*p4p8+2*hbcm*p1p3*p1p4*p6p8-2*hbcm*p1p3*p2p4*p6p8-2*
15313      . hbcm*p1p3*p4p5*p6p8+hbcm*p1p3*p4p6*p4p8+hbcm*p1p3*p4p8*p5p6-2*
15314      . hbcm*p1p4*p1p8*p3p6+2*hbcm*p1p4*p2p3*p6p8-2*hbcm*p1p4*p2p8*
15315      . p3p6-2*hbcm*p1p4*p3p5*p6p8+2*hbcm*p1p4*p3p6*p5p8+hbcm*p1p5*
15316      . p3p4*p6p8-hbcm*p1p5*p3p6*p4p8+2*hbcm*p1p8*p2p4*p3p6-hbcm*p1p8*
15317      . p3p4*p4p6-hbcm*p1p8*p3p4*p5p6+2*hbcm*p1p8*p3p6*p4p5-2*hbcm*
15318      . p2p3*p2p4*p6p8-2*hbcm*p2p3*p4p5*p6p8-hbcm*p2p3*p4p6*p4p8-hbcm*
15319      . p2p3*p4p8*p5p6+2*hbcm*p2p4*p2p8*p3p6+2*hbcm*p2p4*p3p5*p6p8-2*
15320      . hbcm*p2p4*p3p6*p5p8-2*hbcm*p2p5*p3p4*p6p8+2*hbcm*p2p5*p3p6*
15321      . p4p8+hbcm*p2p8*p3p4*p4p6+hbcm*p2p8*p3p4*p5p6+2*hbcm*p2p8*p3p6*
15322      . p4p5+hbcm*p3p4*p4p6*p5p8+hbcm*p3p4*p5p6*p5p8+2*hbcm*p3p5*p4p5*
15323      . p6p8-hbcm*p3p5*p4p6*p4p8-hbcm*p3p5*p4p8*p5p6-2*hbcm*p3p6*p4p5*
15324      . p5p8)
15325       ans7=8*(p5p8*p3p6*p3p4)*(2*fmc-hbcm)+8*(p6p8*p3p5*p3p4)*(-2*fmc
15326      . +hbcm)+8*(p3p6*p3p4*p1p8)*(-2*fmc+hbcm)+8*(p6p8*p3p4*p1p3)*(2*
15327      . fmc-hbcm)+8*(p4p8*p3p6*p3p4)*(-fmb+fmc)+8*(p3p6*p3p4*p2p8)*(2*
15328      . fmb-4*fmc+hbcm)+8*(p6p8*p3p4*p2p3)*(-2*fmb+4*fmc-hbcm)+4*(p5p6
15329      . *p4p8)*(-fmb*hbcm2+fmc*hbcm2-hbcm3)+4*(p4p8*p4p6)*(-fmb*hbcm2+
15330      . fmc*hbcm2-hbcm3)+8*(p6p8*p4p5)*(fmb*hbcm2-fmc*hbcm2+hbcm3)+8*(
15331      . p6p8*p2p4)*(fmb*hbcm2-fmc*hbcm2+hbcm3)+8*(p6p8*p1p4)*(-fmb*
15332      . hbcm2+fmc*hbcm2-hbcm3)+4*p6p8*(2*fmb*fmc2*hbcm2+2*fmb*p3p4s2-
15333      . fmb2*fmc*hbcm2-fmc*hbcm4-2*fmc*p3p4s2-fmc3*hbcm2)+4*(p4p8*p3p6
15334      . )*(-2*fmb*fmc*hbcm-fmb*hbcm2+fmb2*hbcm+fmc*hbcm2+fmc2*hbcm)+4*
15335      . (p6p8*p3p4)*(2*fmb*fmc*hbcm+2*fmb*hbcm2-fmb2*hbcm-4*fmc*hbcm2-
15336      . fmc2*hbcm+hbcm3)+8*(p3p6*p2p8)*(2*fmb*fmc*hbcm-fmc*hbcm2-2*
15337      . fmc2*hbcm)+8*(p6p8*p2p3)*(-2*fmb*fmc*hbcm+fmc*hbcm2+2*fmc2*
15338      . hbcm)+ans8
15339       ans6=w1*ans7
15340       ans9=(32*(p4p8*p3p6)*(fb4*fmb-fb4*fmc)+32*(p6p8*p3p4)*(-fb4*fmb
15341      . +fb4*fmc)+32*(p3p6*p2p8)*(fb3*hbcm-2*fb4*fmb+2*fb4*fmc)+32*(
15342      . p6p8*p2p3)*(-fb3*hbcm+2*fb4*fmb-2*fb4*fmc)+8*p6p8*(2*fb3*fmb2*
15343      . hbcm-2*fb3*fmc2*hbcm+2*fb3*hbcm3-4*fb4*fmb*fmc*hbcm+4*fb4*fmc2
15344      . *hbcm+fmb*hbcm2-fmc*hbcm2)+32*(-2*fb3*hbcm*p1p2*p6p8-fb3*hbcm*
15345      . p1p3*p6p8-fb3*hbcm*p1p5*p6p8+fb3*hbcm*p1p8*p3p6+fb3*hbcm*p1p8*
15346      . p4p6+fb3*hbcm*p1p8*p5p6+2*fb3*hbcm*p2p5*p6p8-fb3*hbcm*p2p8*
15347      . p4p6-fb3*hbcm*p2p8*p5p6+fb3*hbcm*p3p5*p6p8-fb3*hbcm*p3p6*p5p8+
15348      . fb3*hbcm*p4p6*p4p8-fb3*hbcm*p4p6*p5p8+fb3*hbcm*p4p8*p5p6-fb3*
15349      . hbcm*p5p6*p5p8))
15350       ans1=ans2+ans6+ans9
15351       ans=ccc*ans1
15352       b(10)=ans
15353       ans4=8*(p3p7*p3p6)*(-fmb*fmc*hbcm+2*fmb*fmc2-2*fmb2*fmc+fmb2*
15354      . hbcm)+8*(p6p7*p3p4)*(-fmb*fmc*hbcm+fmb2*hbcm)+8*(p6p7*p2p3)*(2
15355      . *fmb*fmc*hbcm-fmb*hbcm2-2*fmb2*hbcm)+8*(fmb*hbcm2*p4p6*p4p7+
15356      . fmb*hbcm2*p4p7*p5p6-2*hbcm*p1p2*p2p3*p6p7+2*hbcm*p1p2*p3p7*
15357      . p4p6+2*hbcm*p1p2*p3p7*p5p6-2*hbcm*p1p3*p1p4*p6p7+hbcm*p1p3*
15358      . p1p5*p6p7+hbcm*p1p3*p3p7*p4p6+hbcm*p1p3*p3p7*p5p6+2*hbcm*p1p3*
15359      . p4p5*p6p7-2*hbcm*p1p3*p4p6*p4p7-2*hbcm*p1p3*p4p7*p5p6-2*hbcm*
15360      . p1p4*p2p3*p6p7+2*hbcm*p1p4*p3p5*p6p7-2*hbcm*p1p4*p3p6*p5p7+2*
15361      . hbcm*p1p4*p3p7*p4p6+2*hbcm*p1p4*p3p7*p5p6+4*hbcm*p1p5*p2p3*
15362      . p6p7-2*hbcm*p1p5*p3p4*p6p7-hbcm*p1p5*p3p5*p6p7+4*hbcm*p1p5*
15363      . p3p6*p4p7+2*hbcm*p2p3*p2p5*p6p7+2*hbcm*p2p3*p4p5*p6p7+2*hbcm*
15364      . p2p3*p4p6*p5p7+2*hbcm*p2p3*p5p6*p5p7-2*hbcm*p2p5*p3p7*p4p6-2*
15365      . hbcm*p2p5*p3p7*p5p6-hbcm*p3p5*p3p7*p4p6-hbcm*p3p5*p3p7*p5p6-2*
15366      . hbcm*p3p5*p4p5*p6p7+2*hbcm*p3p5*p4p6*p4p7+2*hbcm*p3p5*p4p7*
15367      . p5p6+2*hbcm*p3p6*p4p5*p5p7-2*hbcm*p3p7*p4p5*p4p6-2*hbcm*p3p7*
15368      . p4p5*p5p6)
15369       ans3=8*(p5p7*p3p6*p3p5)*(2*fmc-hbcm)+16*(p3p7*p3p6*p1p5)*(2*fmc
15370      . -hbcm)+8*(p5p7*p3p6*p1p3)*(-2*fmc+hbcm)+16*(p6p7*p3p5*p1p3)*(2
15371      . *fmc-hbcm)+8*(p5p7*p5p6)*(-fmc*hbcm2+hbcm3)+8*(p5p7*p4p6)*(-
15372      . fmc*hbcm2+hbcm3)+8*(p4p7*p3p6*p3p5)*(-fmb+fmc)+8*(p6p7*p3p5*
15373      . p3p4)*(fmb-fmc)+8*(p6p7*p3p5*p2p3)*(-2*fmb+4*fmc-hbcm)+8*(p4p7
15374      . *p3p6*p1p3)*(fmb-fmc)+8*(p6p7*p3p4*p1p3)*(-fmb+fmc)+8*(p6p7*
15375      . p2p3*p1p3)*(2*fmb-4*fmc+hbcm)+8*(p6p7*p4p5)*(-fmb*hbcm2+fmc*
15376      . hbcm2-hbcm3)+4*(p6p7*p3p5)*(2*fmb*hbcm2+fmb2*hbcm-2*fmc*hbcm2-
15377      . fmc2*hbcm+hbcm3)+8*(p6p7*p2p5)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+8*(
15378      . p6p7*p1p5)*(-fmb*hbcm2-2*fmc*hbcm2)+8*(p6p7*p1p4)*(fmb*hbcm2-
15379      . fmc*hbcm2+hbcm3)+4*(p6p7*p1p3)*(-2*fmb*hbcm2-fmb2*hbcm+2*fmc*
15380      . hbcm2+fmc2*hbcm-hbcm3)+8*(p6p7*p1p2)*(-fmb*hbcm2-fmc*hbcm2+
15381      . hbcm3)+4*p6p7*(-3*fmb*fmc2*hbcm2+fmb*hbcm4+2*fmb2*fmc*hbcm2+
15382      . fmb3*hbcm2-4*fmc*p1p3s2-4*fmc*p3p5s2+2*hbcm*p1p3s2+2*hbcm*
15383      . p3p5s2)+8*(p5p7*p3p6)*(-fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+16*(
15384      . p4p7*p3p6)*(fmb*fmc*hbcm-fmb2*hbcm)+ans4
15385       ans2=w15*ans3
15386       ans7=8*(-2*fmc*hbcm2*p1p2*p6p7-fmc*hbcm2*p1p3*p6p7-fmc*hbcm2*
15387      . p1p5*p6p7+2*fmc*hbcm2*p2p5*p6p7+fmc*hbcm2*p3p5*p6p7-fmc*hbcm2*
15388      . p4p6*p4p7-fmc*hbcm2*p4p6*p5p7-fmc*hbcm2*p4p7*p5p6-fmc*hbcm2*
15389      . p5p6*p5p7+2*fmc2*hbcm*p3p7*p4p6+2*fmc2*hbcm*p3p7*p5p6-2*hbcm*
15390      . p1p2*p3p4*p6p7+2*hbcm*p1p2*p3p6*p4p7-2*hbcm*p1p3*p1p4*p6p7+2*
15391      . hbcm*p1p3*p2p4*p6p7+2*hbcm*p1p3*p4p5*p6p7-2*hbcm*p1p4*p2p3*
15392      . p6p7+2*hbcm*p1p4*p3p5*p6p7-2*hbcm*p1p4*p3p6*p5p7-hbcm*p1p5*
15393      . p3p4*p6p7+2*hbcm*p2p3*p2p4*p6p7+2*hbcm*p2p3*p4p5*p6p7-2*hbcm*
15394      . p2p4*p3p5*p6p7+2*hbcm*p2p4*p3p6*p5p7+2*hbcm*p2p5*p3p4*p6p7-2*
15395      . hbcm*p2p5*p3p6*p4p7-2*hbcm*p3p4*p4p6*p5p7-2*hbcm*p3p4*p5p6*
15396      . p5p7-2*hbcm*p3p5*p4p5*p6p7+2*hbcm*p3p6*p4p5*p5p7)
15397       ans6=8*(p5p6*p3p7*p3p4)*(4*fmc-hbcm)+8*(p4p6*p3p7*p3p4)*(4*fmc-
15398      . hbcm)+8*(p5p7*p3p6*p3p4)*(-2*fmc+hbcm)+8*(p6p7*p3p5*p3p4)*(2*
15399      . fmc-hbcm)+8*(p6p7*p3p4*p1p3)*(-2*fmc+hbcm)+8*(p4p7*p3p6*p3p4)*
15400      . (fmb-fmc)+8*(p6p7*p3p4*p2p3)*(2*fmb-4*fmc+hbcm)+8*(p6p7*p4p5)*
15401      . (-fmb*hbcm2+fmc*hbcm2-hbcm3)+8*(p6p7*p2p4)*(-fmb*hbcm2+fmc*
15402      . hbcm2-hbcm3)+8*(p6p7*p1p4)*(fmb*hbcm2-fmc*hbcm2+hbcm3)+4*p6p7*
15403      . (-2*fmb*fmc2*hbcm2-2*fmb*p3p4s2+fmb2*fmc*hbcm2+fmc*hbcm4+2*fmc
15404      . *p3p4s2+fmc3*hbcm2)+8*(p5p7*p3p6)*(-fmb*fmc*hbcm-fmc*hbcm2+
15405      . fmc2*hbcm)+16*(p4p7*p3p6)*(fmb*fmc*hbcm-fmc2*hbcm)+8*(p3p7*
15406      . p3p6)*(-fmb*fmc*hbcm+2*fmb*fmc2+fmc2*hbcm-2*fmc3)+4*(p6p7*p3p4
15407      . )*(-2*fmb*fmc*hbcm-2*fmb*hbcm2+fmb2*hbcm+4*fmc*hbcm2+fmc2*hbcm
15408      . -hbcm3)+8*(p6p7*p2p3)*(2*fmb*fmc*hbcm-fmc*hbcm2-2*fmc2*hbcm)+
15409      . ans7
15410       ans5=w1*ans6
15411       ans8=(32*(p4p7*p3p6)*(-fb4*fmb+fb4*fmc)+32*(p6p7*p3p4)*(fb4*fmb
15412      . -fb4*fmc)+32*(p6p7*p2p3)*(fb3*hbcm-2*fb4*fmb+2*fb4*fmc)+32*(
15413      . p5p6*p3p7)*(fb3*fmc-fb3*hbcm-fb4*fmc)+32*(p4p6*p3p7)*(fb3*fmc-
15414      . fb3*hbcm-fb4*fmc)+8*p6p7*(-2*fb3*fmb2*hbcm+2*fb3*fmc2*hbcm-2*
15415      . fb3*hbcm3+4*fb4*fmb*fmc*hbcm-4*fb4*fmc2*hbcm-fmb*hbcm2+fmc*
15416      . hbcm2)+32*(2*fb3*hbcm*p1p2*p6p7+fb3*hbcm*p1p3*p6p7+fb3*hbcm*
15417      . p1p5*p6p7-2*fb3*hbcm*p2p5*p6p7-fb3*hbcm*p3p5*p6p7+fb3*hbcm*
15418      . p3p6*p5p7))
15419       ans1=ans2+ans5+ans8
15420       ans=ccc*ans1
15421       b(11)=ans
15422       ans8=-2*p3p4*p3p5*p3p7*p6p8-2*p3p4*p3p5*p4p6*p7p8-2*p3p4*p3p5*
15423      . p4p7*p6p8+2*p3p4*p3p5*p4p8*p6p7-2*p3p4*p3p5*p5p6*p7p8-2*p3p4*
15424      . p3p6*p3p7*p4p8+2*p3p4*p3p6*p3p7*p5p8+2*p3p4*p3p6*p4p7*p5p8-2*
15425      . p3p4*p3p6*p4p8*p5p7+2*p3p4*p3p7*p4p6*p5p8+2*p3p4*p3p7*p5p6*
15426      . p5p8
15427       ans7=2*hbcm2*p1p4*p5p8*p6p7-hbcm2*p1p5*p4p8*p6p7+2*hbcm2*p1p8*
15428      . p2p4*p6p7+2*hbcm2*p1p8*p4p5*p6p7+2*hbcm2*p2p4*p4p6*p7p8+2*
15429      . hbcm2*p2p4*p5p6*p7p8+2*hbcm2*p2p4*p5p7*p6p8-2*hbcm2*p2p4*p5p8*
15430      . p6p7-2*hbcm2*p2p5*p4p7*p6p8+2*hbcm2*p2p5*p4p8*p6p7-2*hbcm2*
15431      . p2p8*p4p6*p4p7-2*hbcm2*p2p8*p4p7*p5p6-hbcm2*p3p4*p4p7*p6p8+
15432      . hbcm2*p3p4*p4p8*p6p7+2*hbcm2*p4p5*p4p6*p7p8+2*hbcm2*p4p5*p5p6*
15433      . p7p8+2*hbcm2*p4p5*p5p7*p6p8-2*hbcm2*p4p5*p5p8*p6p7-hbcm2*p4p6*
15434      . p4p7*p4p8-hbcm2*p4p6*p4p8*p5p7-hbcm2*p4p7*p4p8*p5p6-hbcm2*p4p8
15435      . *p5p6*p5p7-2*p1p2*p3p4*p3p6*p7p8+2*p1p2*p3p4*p3p7*p6p8-2*p1p3*
15436      . p2p8*p3p4*p6p7+2*p1p3*p3p4*p3p7*p6p8+2*p1p3*p3p4*p4p6*p7p8+2*
15437      . p1p3*p3p4*p4p7*p6p8-2*p1p3*p3p4*p4p8*p6p7+2*p1p3*p3p4*p5p6*
15438      . p7p8-2*p1p5*p3p4*p3p6*p7p8+2*p1p5*p3p4*p3p7*p6p8-2*p1p8*p3p4*
15439      . p3p6*p3p7-2*p1p8*p3p4*p3p6*p4p7-2*p1p8*p3p4*p3p7*p4p6-2*p1p8*
15440      . p3p4*p3p7*p5p6+2*p2p3*p2p8*p3p4*p6p7+2*p2p3*p3p4*p3p7*p6p8-2*
15441      . p2p3*p3p4*p4p6*p7p8+6*p2p3*p3p4*p4p7*p6p8-6*p2p3*p3p4*p4p8*
15442      . p6p7-2*p2p3*p3p4*p5p6*p7p8+2*p2p5*p3p4*p3p6*p7p8-2*p2p5*p3p4*
15443      . p3p7*p6p8+2*p2p8*p3p4*p3p5*p6p7+2*p2p8*p3p4*p3p6*p3p7-2*p2p8*
15444      . p3p4*p3p6*p5p7+4*p2p8*p3p4*p3p7*p4p6+4*p2p8*p3p4*p3p7*p5p6+
15445      . ans8
15446       ans6=-2*fmc*hbcm*p1p2*p3p6*p7p8+2*fmc*hbcm*p1p2*p3p7*p6p8-2*fmc
15447      . *hbcm*p1p3*p2p8*p6p7+2*fmc*hbcm*p1p3*p4p6*p7p8+4*fmc*hbcm*p1p3
15448      . *p4p7*p6p8+2*fmc*hbcm*p1p3*p5p6*p7p8-2*fmc*hbcm*p1p3*p5p7*p6p8
15449      . -2*fmc*hbcm*p1p5*p3p6*p7p8+2*fmc*hbcm*p1p5*p3p7*p6p8-4*fmc*
15450      . hbcm*p1p8*p3p6*p4p7+2*fmc*hbcm*p1p8*p3p6*p5p7-2*fmc*hbcm*p1p8*
15451      . p3p7*p4p6-2*fmc*hbcm*p1p8*p3p7*p5p6+2*fmc*hbcm*p2p3*p2p8*p6p7-
15452      . 2*fmc*hbcm*p2p3*p4p6*p7p8+8*fmc*hbcm*p2p3*p4p7*p6p8-2*fmc*hbcm
15453      . *p2p3*p5p6*p7p8-2*fmc*hbcm*p2p3*p5p7*p6p8+2*fmc*hbcm*p2p5*p3p6
15454      . *p7p8-2*fmc*hbcm*p2p5*p3p7*p6p8+2*fmc*hbcm*p2p8*p3p5*p6p7+2*
15455      . fmc*hbcm*p2p8*p3p6*p3p7-2*fmc*hbcm*p2p8*p3p6*p5p7+4*fmc*hbcm*
15456      . p2p8*p3p7*p4p6+4*fmc*hbcm*p2p8*p3p7*p5p6-2*fmc*hbcm*p3p5*p4p6*
15457      . p7p8-4*fmc*hbcm*p3p5*p4p7*p6p8-2*fmc*hbcm*p3p5*p5p6*p7p8+2*fmc
15458      . *hbcm*p3p5*p5p7*p6p8+4*fmc*hbcm*p3p6*p4p7*p5p8-2*fmc*hbcm*p3p6
15459      . *p5p7*p5p8+2*fmc*hbcm*p3p7*p4p6*p5p8+2*fmc*hbcm*p3p7*p5p6*p5p8
15460      . +4*fmc2*p1p3*p3p7*p6p8-4*fmc2*p1p8*p3p6*p3p7+4*fmc2*p2p3*p3p7*
15461      . p6p8-4*fmc2*p3p5*p3p7*p6p8+4*fmc2*p3p6*p3p7*p5p8+2*hbcm2*p1p2*
15462      . p4p7*p6p8-2*hbcm2*p1p2*p4p8*p6p7-2*hbcm2*p1p4*p1p8*p6p7-2*
15463      . hbcm2*p1p4*p4p6*p7p8-2*hbcm2*p1p4*p5p6*p7p8-2*hbcm2*p1p4*p5p7*
15464      . p6p8+ans7
15465       ans5=8*ans6
15466       ans4=16*(p6p8*p3p7*p1p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p7p8*
15467      . p3p6*p1p4)*(-fmb*hbcm-fmc*hbcm)+8*(p6p8*p3p7)*(-2*fmb*fmc2*
15468      . hbcm-fmb2*fmc*hbcm-fmc3*hbcm+2*p3p4s2)+8*(p4p8*p3p7*p3p6)*(2*
15469      . fmb*fmc-2*fmc*hbcm+2*fmc2-hbcm2)+8*(p6p8*p3p7*p3p4)*(-2*fmb*
15470      . fmc-fmb*hbcm-fmb2+fmc*hbcm-fmc2+hbcm2)+8*(p7p8*p5p6)*(-fmb*fmc
15471      . *hbcm2-fmc*hbcm3+fmc2*hbcm2)+8*(p6p8*p4p7)*(fmb*fmc*hbcm2-2*
15472      . fmc*hbcm3+fmc2*hbcm2)+8*(p7p8*p4p6)*(-fmb*fmc*hbcm2-fmc*hbcm3+
15473      . fmc2*hbcm2)+8*(p7p8*p3p6)*(-fmb*fmc*hbcm2+2*fmb*fmc2*hbcm+fmb2
15474      . *fmc*hbcm-fmc2*hbcm2+fmc3*hbcm)+8*(p6p7*p2p8)*(fmb*fmc*hbcm2+
15475      . fmc*hbcm3+fmc2*hbcm2)+ans5
15476       ans3=16*(p6p7*p5p8)*(-fmc2*hbcm2-p3p4s2)+16*(p6p7*p1p8)*(fmc2*
15477      . hbcm2+p3p4s2)+8*(p6p8*p5p7)*(fmc*hbcm3+2*fmc2*hbcm2+2*p3p4s2)+
15478      . 8*(p6p7*p4p8*p3p5)*(2*fmc*hbcm+hbcm2)+16*(p6p7*p5p8*p3p4)*(-
15479      . fmc*hbcm-hbcm2)+16*(p6p7*p3p4*p1p8)*(fmc*hbcm+hbcm2)+8*(p6p7*
15480      . p4p8*p1p3)*(-2*fmc*hbcm-hbcm2)+4*(p6p7*p4p8)*(fmb2*hbcm2+2*fmc
15481      . *hbcm3-fmc2*hbcm2+hbcm4)+8*(p5p6*p4p8*p3p7)*(fmb*hbcm+fmc*hbcm
15482      . -hbcm2)+8*(p4p8*p4p6*p3p7)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p8*
15483      . p4p5*p3p7)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p5p7*p4p8*p3p6)*(-fmb
15484      . *hbcm-3*fmc*hbcm-hbcm2)+16*(p7p8*p4p5*p3p6)*(fmb*hbcm+fmc*hbcm
15485      . )+8*(p6p8*p5p7*p3p4)*(fmb*hbcm+3*fmc*hbcm+2*hbcm2)+8*(p7p8*
15486      . p5p6*p3p4)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p7p8*p4p6*p3p4)*(-fmb
15487      . *hbcm-fmc*hbcm+hbcm2)+8*(p7p8*p3p6*p3p4)*(fmb*hbcm+fmb2+fmc*
15488      . hbcm-fmc2)+16*(p4p7*p3p6*p2p8)*(-fmb*hbcm-fmc*hbcm)+8*(p6p7*
15489      . p3p4*p2p8)*(fmb*hbcm+fmc*hbcm+hbcm2)+16*(p6p8*p3p7*p2p4)*(-fmb
15490      . *hbcm-fmc*hbcm+hbcm2)+16*(p7p8*p3p6*p2p4)*(fmb*hbcm+fmc*hbcm)+
15491      . 8*(p6p7*p4p8*p2p3)*(2*fmb*hbcm-4*fmc*hbcm-hbcm2)+ans4
15492       ans2=w1*ans3
15493       ans16=-2*p2p5*p3p5*p3p6*p7p8+2*p2p5*p3p5*p3p7*p6p8-2*p2p8*p3p5*
15494      . p3p6*p3p7+2*p2p8*p3p5*p3p6*p5p7-4*p2p8*p3p5*p3p7*p4p6-4*p2p8*
15495      . p3p5*p3p7*p5p6-2*p3p4*p3p5*p3p7*p6p8-2*p3p4*p3p5*p5p7*p6p8+2*
15496      . p3p4*p3p5*p5p8*p6p7+2*p3p5*p3p6*p3p7*p4p8-2*p3p5*p3p6*p3p7*
15497      . p5p8-2*p3p5*p3p6*p4p7*p5p8+2*p3p5*p3p6*p4p8*p5p7-2*p3p5*p3p7*
15498      . p4p6*p5p8-2*p3p5*p3p7*p5p6*p5p8
15499       ans15=2*p1p2*p3p5*p3p6*p7p8-2*p1p2*p3p5*p3p7*p6p8-2*p1p3*p1p5*
15500      . p3p6*p7p8+2*p1p3*p1p5*p3p7*p6p8+2*p1p3*p1p8*p3p4*p6p7-2*p1p3*
15501      . p1p8*p3p6*p3p7-2*p1p3*p1p8*p3p6*p4p7-2*p1p3*p1p8*p3p7*p4p6-2*
15502      . p1p3*p1p8*p3p7*p5p6+2*p1p3*p2p3*p2p8*p6p7+2*p1p3*p2p3*p3p7*
15503      . p6p8-2*p1p3*p2p3*p4p6*p7p8+6*p1p3*p2p3*p4p7*p6p8-6*p1p3*p2p3*
15504      . p4p8*p6p7-2*p1p3*p2p3*p5p6*p7p8+2*p1p3*p2p5*p3p6*p7p8-2*p1p3*
15505      . p2p5*p3p7*p6p8+4*p1p3*p2p8*p3p5*p6p7+2*p1p3*p2p8*p3p6*p3p7-2*
15506      . p1p3*p2p8*p3p6*p5p7+4*p1p3*p2p8*p3p7*p4p6+4*p1p3*p2p8*p3p7*
15507      . p5p6+2*p1p3*p3p4*p3p7*p6p8+2*p1p3*p3p4*p5p7*p6p8-2*p1p3*p3p4*
15508      . p5p8*p6p7-4*p1p3*p3p5*p3p7*p6p8-4*p1p3*p3p5*p4p6*p7p8-4*p1p3*
15509      . p3p5*p4p7*p6p8+4*p1p3*p3p5*p4p8*p6p7-4*p1p3*p3p5*p5p6*p7p8-2*
15510      . p1p3*p3p6*p3p7*p4p8+2*p1p3*p3p6*p3p7*p5p8+2*p1p3*p3p6*p4p7*
15511      . p5p8-2*p1p3*p3p6*p4p8*p5p7+2*p1p3*p3p7*p4p6*p5p8+2*p1p3*p3p7*
15512      . p5p6*p5p8+2*p1p5*p3p5*p3p6*p7p8-2*p1p5*p3p5*p3p7*p6p8-2*p1p8*
15513      . p3p4*p3p5*p6p7+2*p1p8*p3p5*p3p6*p3p7+2*p1p8*p3p5*p3p6*p4p7+2*
15514      . p1p8*p3p5*p3p7*p4p6+2*p1p8*p3p5*p3p7*p5p6-2*p2p3*p2p8*p3p5*
15515      . p6p7-2*p2p3*p3p5*p3p7*p6p8+2*p2p3*p3p5*p4p6*p7p8-6*p2p3*p3p5*
15516      . p4p7*p6p8+6*p2p3*p3p5*p4p8*p6p7+2*p2p3*p3p5*p5p6*p7p8+ans16
15517       ans14=-4*fmb*fmc*p2p3*p3p7*p6p8+2*fmb*hbcm*p1p2*p3p6*p7p8-2*fmb
15518      . *hbcm*p1p5*p3p7*p6p8-2*fmb*hbcm*p2p3*p2p8*p6p7+2*fmb*hbcm*p2p3
15519      . *p4p6*p7p8-8*fmb*hbcm*p2p3*p4p7*p6p8+6*fmb*hbcm*p2p3*p4p8*p6p7
15520      . +2*fmb*hbcm*p2p3*p5p6*p7p8-2*fmb*hbcm*p2p5*p3p6*p7p8-2*fmb*
15521      . hbcm*p2p8*p3p6*p3p7+2*fmb*hbcm*p2p8*p3p6*p5p7-4*fmb*hbcm*p2p8*
15522      . p3p7*p4p6-4*fmb*hbcm*p2p8*p3p7*p5p6-2*fmb*hbcm*p3p4*p3p7*p6p8-
15523      . 2*fmb*hbcm*p3p4*p5p7*p6p8+2*fmb*hbcm*p3p6*p3p7*p4p8+2*fmb*hbcm
15524      . *p3p6*p4p8*p5p7+hbcm2*p1p3*p1p8*p6p7-hbcm2*p1p3*p5p8*p6p7-2*
15525      . hbcm2*p1p4*p1p8*p6p7-2*hbcm2*p1p4*p3p7*p6p8-2*hbcm2*p1p4*p5p7*
15526      . p6p8+2*hbcm2*p1p4*p5p8*p6p7+hbcm2*p1p5*p1p8*p6p7-2*hbcm2*p1p5*
15527      . p2p8*p6p7+2*hbcm2*p1p5*p4p6*p7p8+2*hbcm2*p1p5*p4p7*p6p8-2*
15528      . hbcm2*p1p5*p4p8*p6p7+2*hbcm2*p1p5*p5p6*p7p8+2*hbcm2*p1p5*p5p7*
15529      . p6p8-hbcm2*p1p5*p5p8*p6p7-hbcm2*p1p8*p3p5*p6p7+2*hbcm2*p1p8*
15530      . p4p5*p6p7-hbcm2*p1p8*p4p6*p4p7-hbcm2*p1p8*p4p6*p5p7-hbcm2*p1p8
15531      . *p4p7*p5p6-hbcm2*p1p8*p5p6*p5p7+hbcm2*p3p5*p5p8*p6p7+2*hbcm2*
15532      . p3p7*p4p5*p6p8+2*hbcm2*p4p5*p5p7*p6p8-2*hbcm2*p4p5*p5p8*p6p7+
15533      . hbcm2*p4p6*p4p7*p5p8+hbcm2*p4p6*p5p7*p5p8+hbcm2*p4p7*p5p6*p5p8
15534      . +hbcm2*p5p6*p5p7*p5p8-2*p1p2*p1p3*p3p6*p7p8+2*p1p2*p1p3*p3p7*
15535      . p6p8+ans15
15536       ans13=8*ans14
15537       ans12=8*(p6p8*p4p7)*(-fmb*fmc*hbcm2+2*fmb*hbcm3-fmb2*hbcm2+2*
15538      . p1p3s2+2*p3p5s2)+8*(p7p8*p4p6)*(-fmb*fmc*hbcm2+fmb*hbcm3-fmb2*
15539      . hbcm2+2*p1p3s2+2*p3p5s2)+8*(p7p8*p3p6)*(-fmb*fmc*hbcm2+fmb*
15540      . fmc2*hbcm-fmb2*hbcm2-fmb3*hbcm)+8*(p6p7*p2p8)*(fmb*fmc*hbcm2-
15541      . fmb*hbcm3+fmb2*hbcm2-2*p1p3s2-2*p3p5s2)+4*(p6p7*p1p8)*(-2*fmb*
15542      . fmc*hbcm2-fmb2*hbcm2+3*fmc2*hbcm2-hbcm4)+ans13
15543       ans11=8*(p6p8*p5p7*p1p3)*(fmb*hbcm-fmc*hbcm+2*hbcm2)+8*(p7p8*
15544      . p5p6*p1p3)*(-fmb*hbcm+fmc*hbcm-hbcm2)+8*(p6p7*p4p8*p1p3)*(fmb*
15545      . hbcm-fmc*hbcm+hbcm2)+8*(p6p8*p4p7*p1p3)*(-2*fmb*hbcm+2*fmc*
15546      . hbcm-hbcm2)+8*(p7p8*p4p6*p1p3)*(-fmb*hbcm+fmc*hbcm-hbcm2)+8*(
15547      . p7p8*p3p6*p1p3)*(fmb*hbcm+fmb2+fmc*hbcm-fmc2)+8*(p6p7*p2p8*
15548      . p1p3)*(fmb*hbcm-fmc*hbcm+hbcm2)+16*(p6p8*p3p7*p1p2)*(-fmb*hbcm
15549      . -hbcm2)+8*(p6p8*p3p7)*(-fmb*fmc2*hbcm+fmb3*hbcm+2*p1p3s2+2*
15550      . p3p5s2)+8*(p5p8*p3p7*p3p6)*(-2*fmb*fmc+2*fmc2-hbcm2)+8*(p6p8*
15551      . p3p7*p3p5)*(2*fmb*fmc+fmb*hbcm+fmb2+fmc*hbcm-3*fmc2+hbcm2)+8*(
15552      . p3p7*p3p6*p1p8)*(2*fmb*fmc-2*fmc2+hbcm2)+8*(p6p8*p3p7*p1p3)*(-
15553      . 2*fmb*fmc-fmb*hbcm-fmb2-fmc*hbcm+3*fmc2-hbcm2)+4*(p6p7*p5p8)*(
15554      . 2*fmb*fmc*hbcm2+fmb2*hbcm2-3*fmc2*hbcm2+hbcm4)+8*(p6p8*p5p7)*(
15555      . -2*fmb*fmc*hbcm2-fmb*hbcm3-fmb2*hbcm2+fmc2*hbcm2-hbcm4)+8*(
15556      . p7p8*p5p6)*(-fmb*fmc*hbcm2+fmb*hbcm3-fmb2*hbcm2+2*p1p3s2+2*
15557      . p3p5s2)+8*(p6p7*p4p8)*(fmb*fmc*hbcm2-fmb*hbcm3+fmb2*hbcm2-2*
15558      . p1p3s2-2*p3p5s2)+ans12
15559       ans10=8*(p5p8*p5p6*p3p7)*(-fmb*hbcm+fmc*hbcm-hbcm2)+8*(p5p8*
15560      . p4p6*p3p7)*(-fmb*hbcm+fmc*hbcm-hbcm2)+8*(p5p8*p5p7*p3p6)*(fmb*
15561      . hbcm-fmc*hbcm+hbcm2)+16*(p5p8*p4p7*p3p6)*(-fmb*hbcm+fmc*hbcm)+
15562      . 8*(p6p8*p5p7*p3p5)*(-fmb*hbcm+fmc*hbcm-2*hbcm2)+8*(p7p8*p5p6*
15563      . p3p5)*(fmb*hbcm-fmc*hbcm+hbcm2)+8*(p6p7*p4p8*p3p5)*(-fmb*hbcm+
15564      . fmc*hbcm-hbcm2)+8*(p6p8*p4p7*p3p5)*(2*fmb*hbcm-2*fmc*hbcm+
15565      . hbcm2)+8*(p7p8*p4p6*p3p5)*(fmb*hbcm-fmc*hbcm+hbcm2)+8*(p7p8*
15566      . p3p6*p3p5)*(-fmb*hbcm-fmb2-fmc*hbcm+fmc2)+8*(p6p7*p5p8*p3p4)*(
15567      . fmb*hbcm-fmc*hbcm)+8*(p6p7*p3p5*p2p8)*(-fmb*hbcm+fmc*hbcm-
15568      . hbcm2)+16*(p6p8*p3p7*p2p5)*(fmb*hbcm+hbcm2)+8*(p6p7*p5p8*p2p3)
15569      . *(2*fmb*hbcm+2*fmc*hbcm-hbcm2)+16*(p6p8*p5p7*p2p3)*(-fmb*hbcm-
15570      . 2*fmc*hbcm+hbcm2)+8*(p5p6*p3p7*p1p8)*(fmb*hbcm-fmc*hbcm+hbcm2)
15571      . +8*(p4p6*p3p7*p1p8)*(fmb*hbcm-fmc*hbcm+hbcm2)+8*(p5p7*p3p6*
15572      . p1p8)*(-fmb*hbcm+fmc*hbcm-hbcm2)+16*(p4p7*p3p6*p1p8)*(fmb*hbcm
15573      . -fmc*hbcm)+8*(p6p7*p3p4*p1p8)*(-fmb*hbcm+fmc*hbcm)+8*(p6p7*
15574      . p2p3*p1p8)*(-2*fmb*hbcm-2*fmc*hbcm+hbcm2)+16*(p7p8*p3p6*p1p5)*
15575      . (fmb*hbcm+hbcm2)+ans11
15576       ans9=w15*ans10
15577       ans18=32*(fb4*hbcm2*p4p7*p6p8+2*fb4*p1p2*p3p6*p7p8-2*fb4*p1p2*
15578      . p3p7*p6p8+2*fb4*p1p3*p2p8*p6p7-2*fb4*p1p3*p3p7*p6p8-2*fb4*p1p3
15579      . *p4p6*p7p8-2*fb4*p1p3*p4p7*p6p8+2*fb4*p1p3*p4p8*p6p7-2*fb4*
15580      . p1p3*p5p6*p7p8+2*fb4*p1p5*p3p6*p7p8-2*fb4*p1p5*p3p7*p6p8-2*fb4
15581      . *p1p8*p3p4*p6p7+2*fb4*p1p8*p3p6*p3p7+2*fb4*p1p8*p3p6*p4p7+2*
15582      . fb4*p1p8*p3p7*p4p6+2*fb4*p1p8*p3p7*p5p6-2*fb4*p2p3*p2p8*p6p7-2
15583      . *fb4*p2p3*p3p7*p6p8+2*fb4*p2p3*p4p6*p7p8-6*fb4*p2p3*p4p7*p6p8+
15584      . 6*fb4*p2p3*p4p8*p6p7+2*fb4*p2p3*p5p6*p7p8-2*fb4*p2p5*p3p6*p7p8
15585      . +2*fb4*p2p5*p3p7*p6p8-2*fb4*p2p8*p3p5*p6p7-2*fb4*p2p8*p3p6*
15586      . p3p7+2*fb4*p2p8*p3p6*p5p7-4*fb4*p2p8*p3p7*p4p6-4*fb4*p2p8*p3p7
15587      . *p5p6-2*fb4*p3p4*p3p7*p6p8-2*fb4*p3p4*p5p7*p6p8+2*fb4*p3p4*
15588      . p5p8*p6p7+2*fb4*p3p5*p3p7*p6p8+2*fb4*p3p5*p4p6*p7p8+2*fb4*p3p5
15589      . *p4p7*p6p8-2*fb4*p3p5*p4p8*p6p7+2*fb4*p3p5*p5p6*p7p8+2*fb4*
15590      . p3p6*p3p7*p4p8-2*fb4*p3p6*p3p7*p5p8-2*fb4*p3p6*p4p7*p5p8+2*fb4
15591      . *p3p6*p4p8*p5p7-2*fb4*p3p7*p4p6*p5p8-2*fb4*p3p7*p5p6*p5p8)
15592       ans17=16*(p6p7*p5p8)*(4*fb4*fmc*hbcm-hbcm2)+16*(p6p7*p1p8)*(-4*
15593      . fb4*fmc*hbcm+hbcm2)+16*(p6p8*p5p7)*(2*fb3*fmb*hbcm+2*fb3*fmc*
15594      . hbcm-4*fb4*fmc*hbcm+hbcm2)+8*(p7p8*p5p6)*(4*fb3*fmb*hbcm-4*fb4
15595      . *fmc*hbcm+4*fb4*hbcm2+hbcm2)+32*(p6p7*p4p8)*(-fb3*fmb*hbcm-fb3
15596      . *fmc*hbcm-fb4*hbcm2)+8*(p7p8*p4p6)*(4*fb3*fmb*hbcm-4*fb4*fmc*
15597      . hbcm+4*fb4*hbcm2+hbcm2)+32*(p6p7*p2p8)*(-fb3*fmb*hbcm-fb3*fmc*
15598      . hbcm-fb4*hbcm2)+16*(p6p8*p3p7)*(-2*fb3*fmb*fmc+2*fb3*fmb*hbcm+
15599      . 2*fb3*fmc*hbcm-2*fb3*fmc2+2*fb4*fmb*fmc+2*fb4*fmb2-4*fb4*fmc*
15600      . hbcm+2*fb4*hbcm2+hbcm2)+32*(p7p8*p3p6)*(-fb3*fmb*fmc+fb3*fmb*
15601      . hbcm+fb3*fmc*hbcm-fb3*fmc2-fb4*fmb*fmc-fb4*fmb2)+ans18
15602       ans1=ans2+ans9+ans17
15603       ans=ccc*ans1
15604       b(12)=ans
15605       ans2=w1*(8*(p5p8*p3p4)*(-fmc+hbcm)+8*(p3p4*p1p8)*(fmc-hbcm)+4*(
15606      . p4p8*p3p4)*(fmb-fmc)+8*(p3p4*p2p8)*(-fmb+2*fmc)+2*p4p8*(2*fmb*
15607      . fmc*hbcm-fmb2*hbcm-fmc2*hbcm-hbcm3)+8*p2p8*(-fmb*fmc*hbcm+fmc*
15608      . hbcm2+fmc2*hbcm)+4*(2*hbcm*p1p2*p4p8+hbcm*p1p3*p4p8+2*hbcm*
15609      . p1p4*p1p8+2*hbcm*p1p4*p2p8-2*hbcm*p1p4*p5p8+hbcm*p1p5*p4p8-2*
15610      . hbcm*p1p8*p2p4-2*hbcm*p1p8*p4p5-hbcm*p2p3*p4p8-2*hbcm*p2p4*
15611      . p2p8+2*hbcm*p2p4*p5p8-2*hbcm*p2p5*p4p8-2*hbcm*p2p8*p4p5-hbcm*
15612      . p3p5*p4p8+2*hbcm*p4p5*p5p8))+(16*p4p8*(fb3*hbcm-fb4*fmb+fb4*
15613      . fmc)+32*p2p8*(-fb3*hbcm+fb4*fmb-fb4*fmc))
15614       ans1=w15*(4*(p5p8*p3p5)*(2*fmc-hbcm)+4*(p3p5*p1p8)*(-2*fmc+hbcm
15615      . )+4*(p5p8*p1p3)*(-2*fmc+hbcm)+4*(p1p8*p1p3)*(2*fmc-hbcm)+2*
15616      . p5p8*(-fmb2*hbcm+2*fmc*hbcm2+fmc2*hbcm-hbcm3)+2*p1p8*(fmb2*
15617      . hbcm-2*fmc*hbcm2-fmc2*hbcm+hbcm3)+4*(p4p8*p3p5)*(-fmb+fmc-hbcm
15618      . )+8*(p3p5*p2p8)*(fmb-2*fmc+hbcm)+4*(p4p8*p1p3)*(fmb-fmc+hbcm)+
15619      . 8*(p2p8*p1p3)*(-fmb+2*fmc-hbcm)+4*p4p8*(fmb*fmc*hbcm-fmb*hbcm2
15620      . -fmb2*hbcm)+8*p2p8*(-fmb*fmc*hbcm+fmb*hbcm2+fmb2*hbcm)+4*(2*
15621      . hbcm*p1p2*p2p8+2*hbcm*p1p4*p1p8+2*hbcm*p1p4*p2p8-2*hbcm*p1p4*
15622      . p5p8-hbcm*p1p5*p1p8-4*hbcm*p1p5*p2p8+2*hbcm*p1p5*p4p8+hbcm*
15623      . p1p5*p5p8+hbcm*p1p8*p2p3-hbcm*p1p8*p3p4-2*hbcm*p1p8*p4p5-hbcm*
15624      . p2p3*p5p8-2*hbcm*p2p5*p2p8-2*hbcm*p2p8*p4p5+hbcm*p3p4*p5p8+2*
15625      . hbcm*p4p5*p5p8))+ans2
15626       ans=ccc*ans1
15627       b(13)=ans
15628       ans2=4*(2*fb4*fmb2-4*fb4*fmc*hbcm-2*fb4*fmc2+2*fb4*hbcm2-8*fb4*
15629      . p1p2-4*fb4*p1p3-4*fb4*p1p5+4*fb4*p2p3+8*fb4*p2p5-4*fb4*p3p4+4*
15630      . fb4*p3p5+hbcm2)
15631       ans1=w1*(4*p4p5*(-fmb*hbcm-fmc*hbcm+hbcm2)+4*p2p4*(-fmb*hbcm-
15632      . fmc*hbcm+hbcm2)+4*p1p4*(fmb*hbcm+fmc*hbcm-hbcm2)+2*p3p4*(2*fmb
15633      . *fmc-2*fmb*hbcm-fmb2+3*fmc2+hbcm2)+2*(-fmb2*fmc*hbcm+4*fmc*
15634      . hbcm*p1p2+2*fmc*hbcm*p1p3+2*fmc*hbcm*p1p5-2*fmc*hbcm*p2p3-4*
15635      . fmc*hbcm*p2p5-2*fmc*hbcm*p3p5-fmc*hbcm3+2*fmc2*hbcm2+fmc3*hbcm
15636      . +4*p1p2*p3p4+2*p1p3*p3p4+2*p1p5*p3p4-2*p2p3*p3p4-4*p2p5*p3p4-2
15637      . *p3p4*p3p5+2*p3p4s2))+w15*(4*p4p5*(-fmb*hbcm-fmc*hbcm+hbcm2)+4
15638      . *p2p5*(fmb*hbcm-fmc*hbcm+hbcm2)+4*p1p4*(fmb*hbcm+fmc*hbcm-
15639      . hbcm2)+4*p1p2*(-fmb*hbcm+fmc*hbcm-hbcm2)+2*p3p5*(-2*fmb*fmc+2*
15640      . fmb*hbcm+fmb2-3*fmc2+hbcm2)+2*p1p3*(2*fmb*fmc-2*fmb*hbcm-fmb2+
15641      . 3*fmc2-hbcm2)+2*(-2*fmb*fmc*hbcm2-fmb*fmc2*hbcm-2*fmb*hbcm*
15642      . p1p5+2*fmb*hbcm*p2p3-2*fmb*hbcm*p3p4+fmb*hbcm3+fmb3*hbcm+4*
15643      . p1p2*p1p3-4*p1p2*p3p5+2*p1p3*p1p5-2*p1p3*p2p3-4*p1p3*p2p5+2*
15644      . p1p3*p3p4-4*p1p3*p3p5+2*p1p3s2-2*p1p5*p3p5+2*p2p3*p3p5+4*p2p5*
15645      . p3p5-2*p3p4*p3p5+2*p3p5s2))+ans2
15646       ans=ccc*ans1
15647       b(14)=ans
15648       ans4=4*(-2*fmb*hbcm*p2p3*p4p8+2*fmb*hbcm*p2p8*p3p4+2*hbcm2*p1p2
15649      . *p2p8-hbcm2*p1p3*p1p8+hbcm2*p1p3*p5p8+2*hbcm2*p1p4*p1p8+2*
15650      . hbcm2*p1p4*p2p8-2*hbcm2*p1p4*p5p8-hbcm2*p1p5*p1p8-4*hbcm2*p1p5
15651      . *p2p8+2*hbcm2*p1p5*p4p8+hbcm2*p1p5*p5p8+hbcm2*p1p8*p3p5-2*
15652      . hbcm2*p1p8*p4p5-2*hbcm2*p2p5*p2p8-2*hbcm2*p2p8*p4p5-hbcm2*p3p5
15653      . *p5p8+2*hbcm2*p4p5*p5p8+4*p1p3*p1p8*p2p3-2*p1p3*p1p8*p3p4+2*
15654      . p1p3*p2p3*p4p8-4*p1p3*p2p3*p5p8-2*p1p3*p2p8*p3p4+8*p1p3*p2p8*
15655      . p3p5+2*p1p3*p3p4*p5p8-4*p1p3*p3p5*p4p8-4*p1p8*p2p3*p3p5+2*p1p8
15656      . *p3p4*p3p5-2*p2p3*p3p5*p4p8+4*p2p3*p3p5*p5p8+2*p2p8*p3p4*p3p5-
15657      . 2*p3p4*p3p5*p5p8)
15658       ans3=4*(p4p8*p3p5)*(fmb*hbcm-fmc*hbcm+hbcm2)+4*(p5p8*p3p4)*(-
15659      . fmb*hbcm+fmc*hbcm)+8*(p3p5*p2p8)*(-fmb*hbcm+fmc*hbcm-hbcm2)+4*
15660      . (p5p8*p2p3)*(2*fmb*hbcm-2*fmc*hbcm+hbcm2)+4*(p3p4*p1p8)*(fmb*
15661      . hbcm-fmc*hbcm)+4*(p2p3*p1p8)*(-2*fmb*hbcm+2*fmc*hbcm-hbcm2)+4*
15662      . (p4p8*p1p3)*(-fmb*hbcm+fmc*hbcm-hbcm2)+8*(p2p8*p1p3)*(fmb*hbcm
15663      . -fmc*hbcm+hbcm2)+2*p5p8*(-2*fmb*fmc*hbcm2-fmb2*hbcm2+3*fmc2*
15664      . hbcm2-hbcm4)+4*p4p8*(-fmb*fmc*hbcm2+fmb*hbcm3-fmb2*hbcm2+2*
15665      . p1p3s2+2*p3p5s2)+8*p2p8*(2*fmb*fmc*hbcm2-fmb*hbcm3+fmb2*hbcm2-
15666      . 2*p1p3s2-2*p3p5s2)+2*p1p8*(2*fmb*fmc*hbcm2+fmb2*hbcm2-3*fmc2*
15667      . hbcm2+hbcm4)+ans4
15668       ans2=w15*ans3
15669       ans5=(8*p5p8*(-4*fb4*fmc*hbcm+hbcm2)+8*p1p8*(4*fb4*fmc*hbcm-
15670      . hbcm2)+16*p4p8*(fb3*fmb*hbcm+fb3*fmc*hbcm+fb4*hbcm2)+8*p2p8*(-
15671      . 4*fb3*fmb*hbcm-4*fb3*fmc*hbcm+4*fb4*fmc*hbcm-4*fb4*hbcm2-hbcm2
15672      . )+32*(2*fb4*p1p3*p2p8-fb4*p1p3*p4p8-2*fb4*p1p8*p2p3+fb4*p1p8*
15673      . p3p4-fb4*p2p3*p4p8+2*fb4*p2p3*p5p8+fb4*p2p8*p3p4-2*fb4*p2p8*
15674      . p3p5-fb4*p3p4*p5p8+fb4*p3p5*p4p8))
15675       ans1=w1*(8*p5p8*(fmc2*hbcm2+p3p4s2)+8*p1p8*(-fmc2*hbcm2-p3p4s2)
15676      . +4*(p4p8*p3p5)*(-2*fmc*hbcm-hbcm2)+8*(p5p8*p3p4)*(fmc*hbcm+
15677      . hbcm2)+8*(p3p4*p1p8)*(-fmc*hbcm-hbcm2)+4*(p4p8*p1p3)*(2*fmc*
15678      . hbcm+hbcm2)+2*p4p8*(-fmb2*hbcm2-2*fmc*hbcm3+fmc2*hbcm2-hbcm4)+
15679      . 4*(p4p8*p2p3)*(-2*fmb*hbcm+hbcm2)+8*p2p8*(fmb*fmc*hbcm2+fmc*
15680      . hbcm3-p3p4s2)+4*(2*fmb*hbcm*p2p8*p3p4-4*fmc*hbcm*p1p3*p2p8+4*
15681      . fmc*hbcm*p1p8*p2p3-4*fmc*hbcm*p2p3*p5p8+4*fmc*hbcm*p2p8*p3p5+2
15682      . *hbcm2*p1p2*p4p8+2*hbcm2*p1p4*p1p8+2*hbcm2*p1p4*p2p8-2*hbcm2*
15683      . p1p4*p5p8+hbcm2*p1p5*p4p8-2*hbcm2*p1p8*p2p4-2*hbcm2*p1p8*p4p5-
15684      . 2*hbcm2*p2p4*p2p8+2*hbcm2*p2p4*p5p8-2*hbcm2*p2p5*p4p8-2*hbcm2*
15685      . p2p8*p4p5-hbcm2*p3p4*p4p8+2*hbcm2*p4p5*p5p8-4*p1p3*p2p8*p3p4+2
15686      . *p1p3*p3p4*p4p8+4*p1p8*p2p3*p3p4+2*p2p3*p3p4*p4p8-4*p2p3*p3p4*
15687      . p5p8+4*p2p8*p3p4*p3p5-2*p3p4*p3p5*p4p8))+ans2+ans5
15688       ans=ccc*ans1
15689       b(15)=ans
15690       ans2=w1*(4*(p3p5*p3p4)*(2*fmc-hbcm)+4*(p3p4*p1p3)*(-2*fmc+hbcm)
15691      . +4*(p3p4*p2p3)*(2*fmb-4*fmc+hbcm)+4*p4p5*(-fmb*hbcm2+fmc*hbcm2
15692      . -hbcm3)+4*p2p4*(-fmb*hbcm2+fmc*hbcm2-hbcm3)+4*p1p4*(fmb*hbcm2-
15693      . fmc*hbcm2+hbcm3)+2*p3p4*(-2*fmb*fmc*hbcm-2*fmb*hbcm2+fmb2*hbcm
15694      . +4*fmc*hbcm2+fmc2*hbcm-hbcm3)+4*p2p3*(2*fmb*fmc*hbcm-fmc*hbcm2
15695      . -2*fmc2*hbcm)+2*(-2*fmb*fmc2*hbcm2-2*fmb*p3p4s2+fmb2*fmc*hbcm2
15696      . -4*fmc*hbcm2*p1p2-2*fmc*hbcm2*p1p3-2*fmc*hbcm2*p1p5+4*fmc*
15697      . hbcm2*p2p5+2*fmc*hbcm2*p3p5+fmc*hbcm4+2*fmc*p3p4s2+fmc3*hbcm2-
15698      . 4*hbcm*p1p2*p3p4-4*hbcm*p1p3*p1p4+4*hbcm*p1p3*p2p4+4*hbcm*p1p3
15699      . *p4p5-4*hbcm*p1p4*p2p3+4*hbcm*p1p4*p3p5-2*hbcm*p1p5*p3p4+4*
15700      . hbcm*p2p3*p2p4+4*hbcm*p2p3*p4p5-4*hbcm*p2p4*p3p5+4*hbcm*p2p5*
15701      . p3p4-4*hbcm*p3p5*p4p5))+(16*p3p4*(fb4*fmb-fb4*fmc)+16*p2p3*(
15702      . fb3*hbcm-2*fb4*fmb+2*fb4*fmc)+4*(-2*fb3*fmb2*hbcm+2*fb3*fmc2*
15703      . hbcm+8*fb3*hbcm*p1p2+4*fb3*hbcm*p1p3+4*fb3*hbcm*p1p5-8*fb3*
15704      . hbcm*p2p5-4*fb3*hbcm*p3p5-2*fb3*hbcm3+4*fb4*fmb*fmc*hbcm-4*fb4
15705      . *fmc2*hbcm-fmb*hbcm2+fmc*hbcm2))
15706       ans1=w15*(8*(p3p5*p1p3)*(2*fmc-hbcm)+4*(p3p5*p3p4)*(fmb-fmc)+4*
15707      . (p3p5*p2p3)*(-2*fmb+4*fmc-hbcm)+4*(p3p4*p1p3)*(-fmb+fmc)+4*(
15708      . p2p3*p1p3)*(2*fmb-4*fmc+hbcm)+4*p4p5*(-fmb*hbcm2+fmc*hbcm2-
15709      . hbcm3)+2*p3p5*(2*fmb*hbcm2+fmb2*hbcm-2*fmc*hbcm2-fmc2*hbcm+
15710      . hbcm3)+4*p2p5*(fmb*hbcm2+fmc*hbcm2-hbcm3)+4*p1p5*(-fmb*hbcm2-2
15711      . *fmc*hbcm2)+4*p1p4*(fmb*hbcm2-fmc*hbcm2+hbcm3)+2*p1p3*(-2*fmb*
15712      . hbcm2-fmb2*hbcm+2*fmc*hbcm2+fmc2*hbcm-hbcm3)+4*p1p2*(-fmb*
15713      . hbcm2-fmc*hbcm2+hbcm3)+4*p3p4*(-fmb*fmc*hbcm+fmb2*hbcm)+4*p2p3
15714      . *(2*fmb*fmc*hbcm-fmb*hbcm2-2*fmb2*hbcm)+2*(-3*fmb*fmc2*hbcm2+
15715      . fmb*hbcm4+2*fmb2*fmc*hbcm2+fmb3*hbcm2-4*fmc*p1p3s2-4*fmc*
15716      . p3p5s2-4*hbcm*p1p2*p2p3-4*hbcm*p1p3*p1p4+2*hbcm*p1p3*p1p5+4*
15717      . hbcm*p1p3*p4p5+2*hbcm*p1p3s2-4*hbcm*p1p4*p2p3+4*hbcm*p1p4*p3p5
15718      . +8*hbcm*p1p5*p2p3-4*hbcm*p1p5*p3p4-2*hbcm*p1p5*p3p5+4*hbcm*
15719      . p2p3*p2p5+4*hbcm*p2p3*p4p5-4*hbcm*p3p5*p4p5+2*hbcm*p3p5s2))+
15720      . ans2
15721       ans=ccc*ans1
15722       b(16)=ans
15723       b(17)=ccc*(w15*(4*(p6p8*p3p5)*(-3*fmb+5*fmc-3*hbcm)+4*(p6p8*
15724      . p1p3)*(3*fmb-5*fmc+3*hbcm)+12*p6p8*(fmb*fmc*hbcm-fmb*hbcm2-
15725      . fmb2*hbcm)+8*(-hbcm*p1p2*p6p8-hbcm*p1p4*p6p8+3*hbcm*p1p5*p6p8-
15726      . hbcm*p1p8*p3p6-hbcm*p1p8*p4p6-hbcm*p1p8*p5p6+hbcm*p2p5*p6p8+
15727      . hbcm*p3p6*p5p8+hbcm*p4p5*p6p8+hbcm*p4p6*p5p8+hbcm*p5p6*p5p8))+
15728      . w1*(4*(p6p8*p3p4)*(3*fmb-5*fmc-hbcm)+12*p6p8*(fmb*fmc*hbcm-fmc
15729      . *hbcm2-fmc2*hbcm)+8*(-hbcm*p1p4*p6p8+hbcm*p2p4*p6p8+hbcm*p3p6*
15730      . p4p8+hbcm*p4p5*p6p8+hbcm*p4p6*p4p8+hbcm*p4p8*p5p6))+48*p6p8*(
15731      . fb3*hbcm-fb4*fmb+fb4*fmc))
15732       b(18)=ccc*(8*w1*(-fmc*hbcm*p3p6-fmc*hbcm*p4p6-fmc*hbcm*p5p6-
15733      . p3p4*p3p6-p3p4*p4p6-p3p4*p5p6)+8*w15*(fmb*hbcm*p3p6+fmb*hbcm*
15734      . p4p6+fmb*hbcm*p5p6-p1p3*p3p6-p1p3*p4p6-p1p3*p5p6+p3p5*p3p6+
15735      . p3p5*p4p6+p3p5*p5p6)+32*(fb4*p3p6+fb4*p4p6+fb4*p5p6))
15736       b(19)=ccc*(w1*(6*p4p8*(fmb*hbcm2-fmc*hbcm2+hbcm3)+4*(3*fmc*
15737      . hbcm2*p1p8+fmc*hbcm2*p2p8-3*fmc*hbcm2*p5p8-3*hbcm*p1p3*p4p8+3*
15738      . hbcm*p1p8*p3p4-hbcm*p2p3*p4p8+hbcm*p2p8*p3p4-3*hbcm*p3p4*p5p8+
15739      . 3*hbcm*p3p5*p4p8))+w15*(2*p5p8*(-3*fmb*hbcm2-5*fmc*hbcm2+3*
15740      . hbcm3)+2*p1p8*(3*fmb*hbcm2+5*fmc*hbcm2-3*hbcm3)+4*(fmb*hbcm2*
15741      . p2p8+fmb*hbcm2*p4p8-hbcm*p1p3*p2p8-hbcm*p1p3*p4p8+hbcm*p1p8*
15742      . p2p3+hbcm*p1p8*p3p4-hbcm*p2p3*p5p8+hbcm*p2p8*p3p5-hbcm*p3p4*
15743      . p5p8+hbcm*p3p5*p4p8))+16*(-3*fb3*hbcm*p1p8-fb3*hbcm*p2p8-fb3*
15744      . hbcm*p4p8+3*fb3*hbcm*p5p8))
15745       b(20)=ccc*(w1*(2*p4p8*(3*fmb*hbcm+fmc*hbcm-3*hbcm2)+4*(-3*fmc*
15746      . hbcm*p1p8-fmc*hbcm*p2p8+3*fmc*hbcm*p5p8-3*p1p8*p3p4-p2p8*p3p4-
15747      . p3p4*p4p8+3*p3p4*p5p8))+w15*(6*p5p8*(-fmb*hbcm+fmc*hbcm-hbcm2)
15748      . +6*p1p8*(fmb*hbcm-fmc*hbcm+hbcm2)+4*(fmb*hbcm*p2p8+fmb*hbcm*
15749      . p4p8-3*p1p3*p1p8-p1p3*p2p8-p1p3*p4p8+3*p1p3*p5p8+3*p1p8*p3p5+
15750      . p2p8*p3p5+p3p5*p4p8-3*p3p5*p5p8))+16*(3*fb4*p1p8+fb4*p2p8+fb4*
15751      . p4p8-3*fb4*p5p8))
15752       b(21)=ccc*(w15*(8*(p5p8*p3p7)*(-fmc+hbcm)+8*(p3p7*p1p8)*(fmc-
15753      . hbcm)+4*(p7p8*p3p5)*(-fmb+3*fmc-hbcm)+4*(p7p8*p1p3)*(fmb-3*fmc
15754      . +hbcm)+4*p7p8*(fmb*fmc*hbcm-fmb*hbcm2-fmb2*hbcm)+8*(-hbcm*p1p2
15755      . *p7p8-hbcm*p1p4*p7p8+hbcm*p1p5*p7p8+hbcm*p1p8*p4p7+hbcm*p2p5*
15756      . p7p8+hbcm*p4p5*p7p8-hbcm*p4p7*p5p8))+w1*(8*(p4p8*p3p7)*(-fmc+
15757      . hbcm)+4*(p7p8*p3p4)*(fmb-3*fmc-hbcm)+4*p7p8*(fmb*fmc*hbcm-fmc*
15758      . hbcm2-3*fmc2*hbcm)+8*(hbcm*p1p8*p4p7+hbcm*p2p8*p4p7-hbcm*p4p7*
15759      . p5p8+2*hbcm*p4p8*p5p7))+16*p7p8*(fb3*fmc+fb3*hbcm-fb4*fmb+2*
15760      . fb4*fmc))
15761       b(22)=ccc*(w15*(2*p3p5*(-3*fmb+5*fmc-3*hbcm)+2*p1p3*(3*fmb-5*
15762      . fmc+3*hbcm)+2*(3*fmb*fmc*hbcm-3*fmb*hbcm2-3*fmb2*hbcm-2*hbcm*
15763      . p1p2-2*hbcm*p1p4+6*hbcm*p1p5+2*hbcm*p2p5+2*hbcm*p4p5))+w1*(2*
15764      . p3p4*(3*fmb-5*fmc-hbcm)+2*(3*fmb*fmc*hbcm-3*fmc*hbcm2-3*fmc2*
15765      . hbcm-2*hbcm*p1p4+2*hbcm*p2p4+2*hbcm*p4p5))+24*(fb3*hbcm-fb4*
15766      . fmb+fb4*fmc))
15767       b(23)=ccc*(w1*(8*p3p7*(fmc*hbcm-fmc2)+4*p4p7*(fmb*hbcm-fmc*hbcm
15768      . -hbcm2)+4*(4*fmc*hbcm*p5p7+p3p4*p3p7-p3p4*p4p7+3*p3p4*p5p7))+
15769      . w15*(8*p5p7*(-fmb*hbcm+fmc*hbcm-hbcm2)+8*p3p7*(fmb*fmc-fmb*
15770      . hbcm)+4*(2*fmb*hbcm*p4p7+p1p3*p3p7-p1p3*p4p7+3*p1p3*p5p7-p3p5*
15771      . p3p7+p3p5*p4p7-3*p3p5*p5p7))+16*(-fb4*p3p7+fb4*p4p7-3*fb4*p5p7
15772      . ))
15773       b(24)=ccc*(w15*(6*p3p5*(fmb*hbcm-fmc*hbcm+hbcm2)+6*p1p3*(-fmb*
15774      . hbcm+fmc*hbcm-hbcm2)+2*(-5*fmb*fmc*hbcm2-2*fmb*hbcm*p2p3-2*fmb
15775      . *hbcm*p3p4+3*fmb*hbcm3-3*fmb2*hbcm2-2*hbcm2*p1p2-2*hbcm2*p1p4+
15776      . 6*hbcm2*p1p5+2*hbcm2*p2p5+2*hbcm2*p4p5+2*p1p3*p2p3+2*p1p3*p3p4
15777      . -12*p1p3*p3p5+6*p1p3s2-2*p2p3*p3p5-2*p3p4*p3p5+6*p3p5s2))+w1*(
15778      . 2*p3p4*(-3*fmb*hbcm-fmc*hbcm-hbcm2)+2*(-3*fmb*fmc*hbcm2+6*fmc*
15779      . hbcm*p1p3+2*fmc*hbcm*p2p3-6*fmc*hbcm*p3p5-3*fmc*hbcm3-fmc2*
15780      . hbcm2-2*hbcm2*p1p4+2*hbcm2*p2p4+2*hbcm2*p4p5+6*p1p3*p3p4+2*
15781      . p2p3*p3p4-6*p3p4*p3p5+2*p3p4s2))+4*(6*fb3*fmb*hbcm+6*fb3*fmc*
15782      . hbcm-4*fb4*fmc*hbcm+6*fb4*hbcm2-12*fb4*p1p3-4*fb4*p2p3-4*fb4*
15783      . p3p4+12*fb4*p3p5+hbcm2))
15784       b(25)=ccc*(w15*(4*(p3p7*p3p5)*(fmb-fmc-hbcm)+4*(p3p7*p1p3)*(-
15785      . fmb+fmc+hbcm)+4*p5p7*(-fmb*hbcm2-2*fmc*hbcm2+2*hbcm3)+4*p3p7*(
15786      . -fmb*fmc*hbcm+fmb2*hbcm)+4*(fmb*hbcm2*p4p7+2*hbcm*p1p2*p3p7-2*
15787      . hbcm*p1p3*p4p7+2*hbcm*p1p4*p3p7-2*hbcm*p1p5*p3p7-2*hbcm*p2p5*
15788      . p3p7+2*hbcm*p3p5*p4p7-2*hbcm*p3p7*p4p5))+w1*(4*(p3p7*p3p4)*(-
15789      . fmb+5*fmc-hbcm)+4*p4p7*(fmb*hbcm2-2*fmc*hbcm2+hbcm3)+4*p3p7*(-
15790      . fmb*fmc*hbcm+3*fmc2*hbcm)+4*(-3*fmc*hbcm2*p5p7-2*hbcm*p1p3*
15791      . p4p7-2*hbcm*p2p3*p4p7-4*hbcm*p3p4*p5p7+2*hbcm*p3p5*p4p7))+(16*
15792      . p3p7*(fb3*fmc-fb3*hbcm+fb4*fmb-2*fb4*fmc)+32*fb3*hbcm*p5p7))
15793       b(26)=ccc*(w15*(4*(p3p6*p3p5)*(3*fmb-5*fmc+hbcm)+4*(p3p6*p1p3)*
15794      . (-3*fmb+5*fmc-hbcm)+4*p3p6*(-3*fmb*fmc*hbcm+fmb*hbcm2+3*fmb2*
15795      . hbcm)+8*(-fmb*hbcm2*p4p6-fmb*hbcm2*p5p6+hbcm*p1p2*p3p6+hbcm*
15796      . p1p3*p4p6+hbcm*p1p3*p5p6+hbcm*p1p4*p3p6-3*hbcm*p1p5*p3p6-hbcm*
15797      . p2p5*p3p6-hbcm*p3p5*p4p6-hbcm*p3p5*p5p6-hbcm*p3p6*p4p5))+w1*(4
15798      . *(p3p6*p3p4)*(-3*fmb+5*fmc-hbcm)+4*p3p6*(-3*fmb*fmc*hbcm+fmc*
15799      . hbcm2+3*fmc2*hbcm)+8*(-fmc*hbcm2*p4p6-fmc*hbcm2*p5p6+hbcm*p1p4
15800      . *p3p6-hbcm*p2p4*p3p6-hbcm*p3p4*p4p6-hbcm*p3p4*p5p6-hbcm*p3p6*
15801      . p4p5))+(16*p3p6*(-fb3*hbcm+3*fb4*fmb-3*fb4*fmc)+32*(fb3*hbcm*
15802      . p4p6+fb3*hbcm*p5p6)))
15803       ans2=w1*(4*(p4p8*p3p7)*(fmb*hbcm-fmc*hbcm)+4*(p7p8*p3p4)*(-fmb*
15804      . hbcm+fmc*hbcm-hbcm2)+4*p7p8*(-fmb*fmc*hbcm2-fmc*hbcm3-fmc2*
15805      . hbcm2+2*p3p4s2)+4*(2*fmc*hbcm*p1p3*p7p8-2*fmc*hbcm*p1p8*p3p7+2
15806      . *fmc*hbcm*p2p3*p7p8-2*fmc*hbcm*p2p8*p3p7-2*fmc*hbcm*p3p5*p7p8+
15807      . 2*fmc*hbcm*p3p7*p5p8+2*hbcm2*p1p8*p4p7+2*hbcm2*p2p8*p4p7+hbcm2
15808      . *p4p7*p4p8-2*hbcm2*p4p7*p5p8+3*hbcm2*p4p8*p5p7+2*p1p3*p3p4*
15809      . p7p8-2*p1p8*p3p4*p3p7+2*p2p3*p3p4*p7p8-2*p2p8*p3p4*p3p7-2*p3p4
15810      . *p3p5*p7p8-2*p3p4*p3p7*p4p8+2*p3p4*p3p7*p5p8))+(4*p7p8*(4*fb3*
15811      . fmb*hbcm+8*fb3*fmc*hbcm-4*fb4*fmc*hbcm+4*fb4*hbcm2+hbcm2)+32*(
15812      . -fb4*p1p3*p7p8+fb4*p1p8*p3p7-fb4*p2p3*p7p8+fb4*p2p8*p3p7-fb4*
15813      . p3p4*p7p8+fb4*p3p5*p7p8+fb4*p3p7*p4p8-fb4*p3p7*p5p8))
15814       ans1=w15*(4*(p5p8*p3p7)*(-fmb*hbcm+fmc*hbcm)+4*(p7p8*p3p5)*(fmb
15815      . *hbcm-fmc*hbcm+hbcm2)+4*(p3p7*p1p8)*(fmb*hbcm-fmc*hbcm)+4*(
15816      . p7p8*p1p3)*(-fmb*hbcm+fmc*hbcm-hbcm2)+4*p7p8*(-3*fmb*fmc*hbcm2
15817      . +fmb*hbcm3-fmb2*hbcm2+2*p1p3s2+2*p3p5s2)+4*(-2*fmb*hbcm*p2p3*
15818      . p7p8+2*fmb*hbcm*p2p8*p3p7-2*fmb*hbcm*p3p4*p7p8+2*fmb*hbcm*p3p7
15819      . *p4p8-2*hbcm2*p1p2*p7p8-2*hbcm2*p1p4*p7p8+2*hbcm2*p1p5*p7p8+
15820      . hbcm2*p1p8*p4p7+hbcm2*p1p8*p5p7+2*hbcm2*p2p5*p7p8+2*hbcm2*p4p5
15821      . *p7p8-hbcm2*p4p7*p5p8-hbcm2*p5p7*p5p8-2*p1p3*p1p8*p3p7+2*p1p3*
15822      . p2p3*p7p8-2*p1p3*p2p8*p3p7+2*p1p3*p3p4*p7p8-4*p1p3*p3p5*p7p8-2
15823      . *p1p3*p3p7*p4p8+2*p1p3*p3p7*p5p8+2*p1p8*p3p5*p3p7-2*p2p3*p3p5*
15824      . p7p8+2*p2p8*p3p5*p3p7-2*p3p4*p3p5*p7p8+2*p3p5*p3p7*p4p8-2*p3p5
15825      . *p3p7*p5p8))+ans2
15826       ans=ccc*ans1
15827       b(27)=ans
15828       ans2=w1*(4*(p4p8*p3p6)*(-3*fmb*hbcm-fmc*hbcm+hbcm2)+12*(p6p8*
15829      . p3p4)*(fmb*hbcm-fmc*hbcm-hbcm2)+4*p6p8*(3*fmb*fmc*hbcm2-fmc*
15830      . hbcm3+fmc2*hbcm2-6*p3p4s2)+8*(-fmc*hbcm*p1p3*p6p8+3*fmc*hbcm*
15831      . p1p8*p3p6+fmc*hbcm*p2p3*p6p8+fmc*hbcm*p2p8*p3p6+fmc*hbcm*p3p5*
15832      . p6p8-3*fmc*hbcm*p3p6*p5p8+hbcm2*p1p4*p6p8-hbcm2*p2p4*p6p8-
15833      . hbcm2*p4p5*p6p8-hbcm2*p4p6*p4p8-hbcm2*p4p8*p5p6-p1p3*p3p4*p6p8
15834      . +3*p1p8*p3p4*p3p6+p2p3*p3p4*p6p8+p2p8*p3p4*p3p6+p3p4*p3p5*p6p8
15835      . +p3p4*p3p6*p4p8-3*p3p4*p3p6*p5p8))+(8*p6p8*(-6*fb3*fmb*hbcm-6*
15836      . fb3*fmc*hbcm+4*fb4*fmc*hbcm+2*fb4*hbcm2-hbcm2)+32*(fb4*p1p3*
15837      . p6p8-3*fb4*p1p8*p3p6-fb4*p2p3*p6p8-fb4*p2p8*p3p6+3*fb4*p3p4*
15838      . p6p8-fb4*p3p5*p6p8-fb4*p3p6*p4p8+3*fb4*p3p6*p5p8))
15839       ans1=w15*(4*(p5p8*p3p6)*(3*fmb*hbcm-3*fmc*hbcm+hbcm2)+4*(p6p8*
15840      . p3p5)*(fmb*hbcm+3*fmc*hbcm+hbcm2)+4*(p3p6*p1p8)*(-3*fmb*hbcm+3
15841      . *fmc*hbcm-hbcm2)+4*(p6p8*p1p3)*(-fmb*hbcm-3*fmc*hbcm-hbcm2)+4*
15842      . p6p8*(5*fmb*fmc*hbcm2+fmb*hbcm3+3*fmb2*hbcm2-2*p1p3s2-2*p3p5s2
15843      . )+8*(-fmb*hbcm*p2p3*p6p8-fmb*hbcm*p2p8*p3p6+3*fmb*hbcm*p3p4*
15844      . p6p8-fmb*hbcm*p3p6*p4p8+hbcm2*p1p2*p6p8+hbcm2*p1p4*p6p8-3*
15845      . hbcm2*p1p5*p6p8+hbcm2*p1p8*p4p6+hbcm2*p1p8*p5p6-hbcm2*p2p5*
15846      . p6p8-hbcm2*p4p5*p6p8-hbcm2*p4p6*p5p8-hbcm2*p5p6*p5p8+3*p1p3*
15847      . p1p8*p3p6+p1p3*p2p3*p6p8+p1p3*p2p8*p3p6-3*p1p3*p3p4*p6p8+2*
15848      . p1p3*p3p5*p6p8+p1p3*p3p6*p4p8-3*p1p3*p3p6*p5p8-3*p1p8*p3p5*
15849      . p3p6-p2p3*p3p5*p6p8-p2p8*p3p5*p3p6+3*p3p4*p3p5*p6p8-p3p5*p3p6*
15850      . p4p8+3*p3p5*p3p6*p5p8))+ans2
15851       ans=ccc*ans1
15852       b(28)=ans
15853       ans2=w1*(8*(p3p7*p3p6)*(fmc*hbcm-2*fmc2)+8*(p4p7*p3p6)*(fmb*
15854      . hbcm-fmc*hbcm)+12*(p6p7*p3p4)*(-fmb*hbcm+fmc*hbcm+hbcm2)+4*
15855      . p6p7*(-3*fmb*fmc*hbcm2+fmc*hbcm3-fmc2*hbcm2+6*p3p4s2)+8*(fmc*
15856      . hbcm*p1p3*p6p7-fmc*hbcm*p2p3*p6p7-fmc*hbcm*p3p5*p6p7+4*fmc*
15857      . hbcm*p3p6*p5p7-fmc*hbcm*p3p7*p4p6-fmc*hbcm*p3p7*p5p6-hbcm2*
15858      . p1p4*p6p7+hbcm2*p2p4*p6p7+hbcm2*p4p5*p6p7+hbcm2*p4p6*p4p7+
15859      . hbcm2*p4p7*p5p6+p1p3*p3p4*p6p7-p2p3*p3p4*p6p7-p3p4*p3p5*p6p7-
15860      . p3p4*p3p6*p4p7+3*p3p4*p3p6*p5p7-p3p4*p3p7*p4p6-p3p4*p3p7*p5p6)
15861      . )+(8*p6p7*(6*fb3*fmb*hbcm+6*fb3*fmc*hbcm-4*fb4*fmc*hbcm-2*fb4*
15862      . hbcm2+hbcm2)+32*(-fb4*p1p3*p6p7+fb4*p2p3*p6p7-3*fb4*p3p4*p6p7+
15863      . fb4*p3p5*p6p7+fb4*p3p6*p4p7-3*fb4*p3p6*p5p7+fb4*p3p7*p4p6+fb4*
15864      . p3p7*p5p6))
15865       ans1=w15*(8*(p5p7*p3p6)*(-2*fmb*hbcm+2*fmc*hbcm-hbcm2)+4*(p6p7*
15866      . p3p5)*(-fmb*hbcm-3*fmc*hbcm-hbcm2)+4*(p6p7*p1p3)*(fmb*hbcm+3*
15867      . fmc*hbcm+hbcm2)+8*(p3p7*p3p6)*(2*fmb*fmc-fmb*hbcm)+4*p6p7*(-5*
15868      . fmb*fmc*hbcm2-fmb*hbcm3-3*fmb2*hbcm2+2*p1p3s2+2*p3p5s2)+8*(fmb
15869      . *hbcm*p2p3*p6p7-3*fmb*hbcm*p3p4*p6p7+2*fmb*hbcm*p3p6*p4p7+fmb*
15870      . hbcm*p3p7*p4p6+fmb*hbcm*p3p7*p5p6-hbcm2*p1p2*p6p7-hbcm2*p1p4*
15871      . p6p7+3*hbcm2*p1p5*p6p7+hbcm2*p2p5*p6p7+hbcm2*p4p5*p6p7+hbcm2*
15872      . p4p6*p5p7+hbcm2*p5p6*p5p7-p1p3*p2p3*p6p7+3*p1p3*p3p4*p6p7-2*
15873      . p1p3*p3p5*p6p7-p1p3*p3p6*p4p7+3*p1p3*p3p6*p5p7-p1p3*p3p7*p4p6-
15874      . p1p3*p3p7*p5p6+p2p3*p3p5*p6p7-3*p3p4*p3p5*p6p7+p3p5*p3p6*p4p7-
15875      . 3*p3p5*p3p6*p5p7+p3p5*p3p7*p4p6+p3p5*p3p7*p5p6))+ans2
15876       ans=ccc*ans1
15877       b(29)=ans
15878       ans4=8*(fmb*hbcm2*p2p8*p6p7-fmb*hbcm2*p4p6*p7p8-fmb*hbcm2*p4p7*
15879      . p6p8+fmb*hbcm2*p4p8*p6p7-fmb*hbcm2*p5p6*p7p8+2*hbcm*p1p2*p3p6*
15880      . p7p8-2*hbcm*p1p2*p3p7*p6p8-hbcm*p1p3*p2p8*p6p7+hbcm*p1p3*p4p6*
15881      . p7p8+2*hbcm*p1p3*p4p7*p6p8-hbcm*p1p3*p4p8*p6p7+hbcm*p1p3*p5p6*
15882      . p7p8+2*hbcm*p1p4*p3p6*p7p8-2*hbcm*p1p4*p3p7*p6p8-2*hbcm*p1p5*
15883      . p3p6*p7p8+2*hbcm*p1p5*p3p7*p6p8+hbcm*p1p8*p2p3*p6p7+hbcm*p1p8*
15884      . p3p4*p6p7-2*hbcm*p1p8*p3p6*p4p7-hbcm*p1p8*p3p7*p4p6-hbcm*p1p8*
15885      . p3p7*p5p6-hbcm*p2p3*p5p8*p6p7-2*hbcm*p2p5*p3p6*p7p8+2*hbcm*
15886      . p2p5*p3p7*p6p8+hbcm*p2p8*p3p5*p6p7-hbcm*p3p4*p5p8*p6p7-hbcm*
15887      . p3p5*p4p6*p7p8-2*hbcm*p3p5*p4p7*p6p8+hbcm*p3p5*p4p8*p6p7-hbcm*
15888      . p3p5*p5p6*p7p8-2*hbcm*p3p6*p4p5*p7p8+2*hbcm*p3p6*p4p7*p5p8+2*
15889      . hbcm*p3p7*p4p5*p6p8+hbcm*p3p7*p4p6*p5p8+hbcm*p3p7*p5p6*p5p8)
15890       ans3=8*(p5p8*p3p7*p3p6)*(2*fmc-hbcm)+8*(p3p7*p3p6*p1p8)*(-2*fmc
15891      . +hbcm)+8*(p6p8*p3p7*p3p5)*(-fmb+fmc+hbcm)+8*(p7p8*p3p6*p3p5)*(
15892      . fmb-3*fmc)+8*(p6p8*p3p7*p1p3)*(fmb-fmc-hbcm)+8*(p7p8*p3p6*p1p3
15893      . )*(-fmb+3*fmc)+4*(p6p7*p5p8)*(-3*fmb*hbcm2-5*fmc*hbcm2+3*hbcm3
15894      . )+8*(p6p8*p5p7)*(fmb*hbcm2+2*fmc*hbcm2-2*hbcm3)+4*(p6p7*p1p8)*
15895      . (3*fmb*hbcm2+5*fmc*hbcm2-3*hbcm3)+8*(p6p8*p3p7)*(fmb*fmc*hbcm-
15896      . fmb2*hbcm)+8*(p7p8*p3p6)*(-fmb*fmc*hbcm+fmb2*hbcm)+ans4
15897       ans2=w15*ans3
15898       ans5=w1*(8*(p4p8*p3p7*p3p6)*(2*fmc-hbcm)+8*(p6p8*p3p7*p3p4)*(
15899      . fmb-5*fmc+hbcm)+8*(p7p8*p3p6*p3p4)*(-fmb+3*fmc)+12*(p6p7*p4p8)
15900      . *(fmb*hbcm2-fmc*hbcm2+hbcm3)+8*(p6p8*p4p7)*(-fmb*hbcm2+2*fmc*
15901      . hbcm2-hbcm3)+8*(p6p8*p3p7)*(fmb*fmc*hbcm-3*fmc2*hbcm)+8*(p7p8*
15902      . p3p6)*(-fmb*fmc*hbcm+3*fmc2*hbcm)+8*(3*fmc*hbcm2*p1p8*p6p7+fmc
15903      . *hbcm2*p2p8*p6p7-fmc*hbcm2*p4p6*p7p8-fmc*hbcm2*p5p6*p7p8+3*fmc
15904      . *hbcm2*p5p7*p6p8-3*fmc*hbcm2*p5p8*p6p7+2*hbcm*p1p3*p4p7*p6p8-3
15905      . *hbcm*p1p3*p4p8*p6p7+3*hbcm*p1p8*p3p4*p6p7-2*hbcm*p1p8*p3p6*
15906      . p4p7+2*hbcm*p2p3*p4p7*p6p8-hbcm*p2p3*p4p8*p6p7+hbcm*p2p8*p3p4*
15907      . p6p7-2*hbcm*p2p8*p3p6*p4p7-hbcm*p3p4*p4p6*p7p8-hbcm*p3p4*p5p6*
15908      . p7p8+4*hbcm*p3p4*p5p7*p6p8-3*hbcm*p3p4*p5p8*p6p7-2*hbcm*p3p5*
15909      . p4p7*p6p8+3*hbcm*p3p5*p4p8*p6p7+2*hbcm*p3p6*p4p7*p5p8-4*hbcm*
15910      . p3p6*p4p8*p5p7+hbcm*p3p7*p4p6*p4p8+hbcm*p3p7*p4p8*p5p6))+(32*(
15911      . p6p8*p3p7)*(-fb3*fmc+fb3*hbcm-fb4*fmb+2*fb4*fmc)+32*(p7p8*p3p6
15912      . )*(-fb3*fmc+fb4*fmb-2*fb4*fmc)+32*(-3*fb3*hbcm*p1p8*p6p7-fb3*
15913      . hbcm*p2p8*p6p7+fb3*hbcm*p4p6*p7p8-fb3*hbcm*p4p8*p6p7+fb3*hbcm*
15914      . p5p6*p7p8-2*fb3*hbcm*p5p7*p6p8+3*fb3*hbcm*p5p8*p6p7))
15915       ans1=ans2+ans5
15916       ans=ccc*ans1
15917       b(30)=ans
15918       ans2=32*(-fb4*p1p8*p6p7+fb4*p2p8*p6p7+fb4*p3p6*p7p8+fb4*p3p7*
15919      . p6p8+fb4*p4p6*p7p8+3*fb4*p4p7*p6p8-3*fb4*p4p8*p6p7+fb4*p5p6*
15920      . p7p8-fb4*p5p7*p6p8+fb4*p5p8*p6p7)
15921       ans1=w1*(12*(p6p7*p4p8)*(-fmb*hbcm+fmc*hbcm+hbcm2)+8*(p6p8*p4p7
15922      . )*(fmb*hbcm-3*fmc*hbcm-hbcm2)+8*(fmc*hbcm*p1p8*p6p7-fmc*hbcm*
15923      . p2p8*p6p7-fmc*hbcm*p3p6*p7p8-fmc*hbcm*p4p6*p7p8-fmc*hbcm*p5p6*
15924      . p7p8+2*fmc*hbcm*p5p7*p6p8-fmc*hbcm*p5p8*p6p7-2*fmc2*p3p7*p6p8+
15925      . p1p8*p3p4*p6p7-p2p8*p3p4*p6p7-p3p4*p3p6*p7p8-p3p4*p3p7*p6p8-
15926      . p3p4*p4p6*p7p8-3*p3p4*p4p7*p6p8+3*p3p4*p4p8*p6p7-p3p4*p5p6*
15927      . p7p8+p3p4*p5p7*p6p8-p3p4*p5p8*p6p7))+w15*(16*(p6p8*p5p7)*(fmc*
15928      . hbcm-hbcm2)+4*(p6p7*p5p8)*(-fmb*hbcm-3*fmc*hbcm+3*hbcm2)+4*(
15929      . p6p7*p1p8)*(fmb*hbcm+3*fmc*hbcm-3*hbcm2)+8*(2*fmb*fmc*p3p7*
15930      . p6p8+fmb*hbcm*p2p8*p6p7+fmb*hbcm*p3p6*p7p8+fmb*hbcm*p4p6*p7p8+
15931      . 4*fmb*hbcm*p4p7*p6p8-3*fmb*hbcm*p4p8*p6p7+fmb*hbcm*p5p6*p7p8+
15932      . p1p3*p1p8*p6p7-p1p3*p2p8*p6p7-p1p3*p3p6*p7p8-p1p3*p3p7*p6p8-
15933      . p1p3*p4p6*p7p8-3*p1p3*p4p7*p6p8+3*p1p3*p4p8*p6p7-p1p3*p5p6*
15934      . p7p8+p1p3*p5p7*p6p8-p1p3*p5p8*p6p7-p1p8*p3p5*p6p7+p2p8*p3p5*
15935      . p6p7+p3p5*p3p6*p7p8+p3p5*p3p7*p6p8+p3p5*p4p6*p7p8+3*p3p5*p4p7*
15936      . p6p8-3*p3p5*p4p8*p6p7+p3p5*p5p6*p7p8-p3p5*p5p7*p6p8+p3p5*p5p8*
15937      . p6p7))+ans2
15938       ans=ccc*ans1
15939       b(31)=ans
15940       b(32)=ccc*(w15*(4*(p6p7*p3p5)*(-3*fmb+5*fmc-3*hbcm)+4*(p6p7*
15941      . p1p3)*(3*fmb-5*fmc+3*hbcm)+12*p6p7*(fmb*fmc*hbcm-fmb*hbcm2-
15942      . fmb2*hbcm)+8*(-hbcm*p1p2*p6p7-hbcm*p1p4*p6p7+3*hbcm*p1p5*p6p7+
15943      . hbcm*p2p5*p6p7+hbcm*p3p6*p5p7+hbcm*p4p5*p6p7+hbcm*p4p6*p5p7+
15944      . hbcm*p5p6*p5p7))+w1*(4*(p6p7*p3p4)*(3*fmb-5*fmc-hbcm)+12*p6p7*
15945      . (fmb*fmc*hbcm-fmc*hbcm2-fmc2*hbcm)+8*(-hbcm*p1p4*p6p7+hbcm*
15946      . p2p4*p6p7+hbcm*p3p6*p4p7+hbcm*p4p5*p6p7+hbcm*p4p6*p4p7+hbcm*
15947      . p4p7*p5p6))+48*p6p7*(fb3*hbcm-fb4*fmb+fb4*fmc))
15948       do 200 n=1,32
15949          c(n,1)=c(n,1)-0.8181818181818182d0*b(n)
15950          c(n,2)=c(n,2)+0.1512818716977898d0*b(n)
15951          c(n,3)=c(n,3)+0.1869893980016914d0*b(n)
15952 200   continue
15953       return
15954         end
15955
15956       subroutine amp30_3p1(cc)
15957       implicit double precision(a-h,o-z)
15958       implicit integer (i-n)
15959       dimension b(32)
15960 #include "inclcon.h"
15961 #include "inclppp.h"
15962 #include "inclamp.h"
15963       do 100 n=1,32
15964          b(n)=0.0d0
15965 100   continue
15966       ccc=cc/((-2*p1p4)*(-2*ffmcfmb*p3p5+fmb2-2*fmc*hbcm+fmc2+hbcm2+2
15967      . *p3p5)*(-2*ffmcfmb*p1p3+2*ffmcfmb*p3p4+2*fmc2-2*p1p4))
15968       ans=ccc*(w5*(4*(p5p7*p3p4)*(-2*fmc+3*hbcm)+4*(p3p7*p3p4)*(-4*
15969      . fmc+hbcm)+4*(p5p7*p1p3)*(2*fmc-3*hbcm)+4*(p3p7*p1p3)*(4*fmc-
15970      . hbcm)+4*(p4p7*p3p4)*(fmb-fmc)+4*(p4p7*p1p3)*(-fmb+fmc)+4*p5p7*
15971      . (-fmb*fmc*hbcm+fmc2*hbcm)+4*p4p7*(2*fmb*fmc*hbcm+fmc*hbcm2-2*
15972      . fmc2*hbcm)+4*p3p7*(-fmb*fmc*hbcm+2*fmb*fmc2-fmc2*hbcm-2*fmc3)+
15973      . 8*(2*fmc*p1p4*p3p7-hbcm*p1p2*p5p7+hbcm*p1p4*p4p7-hbcm*p1p4*
15974      . p5p7-hbcm*p1p5*p5p7+hbcm*p2p4*p5p7-hbcm*p2p5*p4p7+hbcm*p4p5*
15975      . p5p7))+w2*(4*(p5p7*p3p5)*(2*fmc-hbcm)+4*(p4p7*p3p5)*(-fmb+fmc-
15976      . 2*hbcm)+4*p5p7*(-fmb*fmc*hbcm+fmc2*hbcm-hbcm3)+4*p4p7*(2*fmb*
15977      . fmc*hbcm-fmb*hbcm2-2*fmb2*hbcm)+4*p3p7*(-fmb*fmc*hbcm+2*fmb*
15978      . fmc2-2*fmb2*fmc+fmb2*hbcm)+4*(-2*hbcm*p1p5*p3p7-2*hbcm*p1p5*
15979      . p5p7-2*hbcm*p2p3*p5p7+2*hbcm*p2p5*p3p7+hbcm*p3p5*p3p7+2*hbcm*
15980      . p3p7*p4p5+2*hbcm*p4p5*p5p7))+(16*p4p7*(-fb4*fmb+fb4*fmc)+16*
15981      . p3p7*(-fb3*fmc+fb3*hbcm+fb4*fmc)+16*fb3*hbcm*p5p7))
15982       b(4)=ans
15983       ans2=w2*(8*(p7p8*p2p5)*(-fmc*hbcm+hbcm2)+4*(p5p8*p5p7)*(fmb*
15984      . hbcm-fmc*hbcm)+4*(p5p8*p4p7)*(-2*fmb*hbcm+2*fmc*hbcm-hbcm2)+8*
15985      . (p7p8*p4p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p5p7*p2p8)*(-fmb*
15986      . hbcm+2*fmc*hbcm-2*hbcm2)+8*(p7p8*p1p5)*(fmb*hbcm+fmc*hbcm-
15987      . hbcm2)+4*(p5p8*p3p7)*(-2*fmb*fmc+fmb*hbcm-fmc*hbcm+2*fmc2)+8*(
15988      . p7p8*p3p5)*(-fmb*fmc-fmc2)+8*(p3p7*p2p8)*(2*fmb*fmc-fmb*hbcm)+
15989      . 8*(-fmb*fmc*hbcm2*p7p8+fmb*hbcm*p1p3*p7p8+fmb*hbcm*p1p4*p7p8-
15990      . fmb*hbcm*p1p8*p3p7-fmb*hbcm*p1p8*p5p7+2*fmb*hbcm*p2p8*p4p7-fmb
15991      . *hbcm*p3p4*p7p8+fmb*hbcm*p3p7*p4p8+fmb*hbcm*p4p8*p5p7+p1p3*
15992      . p3p5*p7p8+p1p4*p3p5*p7p8-p1p8*p3p5*p3p7-p1p8*p3p5*p5p7+p2p5*
15993      . p3p5*p7p8+p2p8*p3p5*p4p7-2*p2p8*p3p5*p5p7-p3p4*p3p5*p7p8+p3p5*
15994      . p3p7*p4p8-p3p5*p4p7*p5p8+p3p5*p4p8*p5p7))+(4*p7p8*(-4*fb3*fmb*
15995      . fmc+4*fb3*fmc*hbcm-4*fb3*fmc2-4*fb4*fmb*fmc-4*fb4*fmc*hbcm-4*
15996      . fb4*fmc2+hbcm2)+32*(fb4*p1p3*p7p8+fb4*p1p4*p7p8-fb4*p1p8*p3p7-
15997      . fb4*p1p8*p5p7+fb4*p2p5*p7p8+fb4*p2p8*p4p7-2*fb4*p2p8*p5p7-fb4*
15998      . p3p4*p7p8+fb4*p3p7*p4p8-fb4*p4p7*p5p8+fb4*p4p8*p5p7))
15999       ans1=w5*(8*(p5p8*p3p7)*(-fmc*hbcm+2*fmc2)+8*(p3p7*p2p8)*(fmc*
16000      . hbcm-2*fmc2)+4*(p5p7*p4p8)*(-fmb*hbcm-3*fmc*hbcm)+4*(p5p7*p1p8
16001      . )*(fmb*hbcm+3*fmc*hbcm)+8*(p7p8*p1p4)*(-fmb*hbcm-2*fmc*hbcm+
16002      . hbcm2)+8*p7p8*(fmb*fmc2*hbcm+fmc3*hbcm+p1p3s2+p3p4s2)+4*(p4p8*
16003      . p3p7)*(2*fmb*fmc-fmb*hbcm-3*fmc*hbcm+2*fmc2)+8*(p7p8*p3p4)*(
16004      . fmb*fmc+fmc*hbcm+fmc2)+4*(p3p7*p1p8)*(-2*fmb*fmc+fmb*hbcm+3*
16005      . fmc*hbcm-2*fmc2)+8*(p7p8*p1p3)*(-fmb*fmc-fmc*hbcm-fmc2)+4*(-2*
16006      . fmc*hbcm*p2p5*p7p8-4*fmc*hbcm*p2p8*p4p7+6*fmc*hbcm*p2p8*p5p7+4
16007      . *fmc*hbcm*p4p7*p5p8-2*fmc*hbcm*p5p7*p5p8-hbcm2*p1p8*p4p7+hbcm2
16008      . *p4p7*p4p8+2*p1p3*p1p4*p7p8-2*p1p3*p1p8*p3p7-2*p1p3*p1p8*p5p7+
16009      . 2*p1p3*p2p5*p7p8+2*p1p3*p2p8*p4p7-4*p1p3*p2p8*p5p7-4*p1p3*p3p4
16010      . *p7p8+2*p1p3*p3p7*p4p8-2*p1p3*p4p7*p5p8+2*p1p3*p4p8*p5p7-2*
16011      . p1p4*p3p4*p7p8+2*p1p8*p3p4*p3p7+2*p1p8*p3p4*p5p7-2*p2p5*p3p4*
16012      . p7p8-2*p2p8*p3p4*p4p7+4*p2p8*p3p4*p5p7-2*p3p4*p3p7*p4p8+2*p3p4
16013      . *p4p7*p5p8-2*p3p4*p4p8*p5p7))+ans2
16014       ans=ccc*ans1
16015       b(5)=ans
16016       ans2=w2*(8*(p4p5*p3p7)*(fmb*hbcm+fmc*hbcm)+4*(p5p7*p3p5)*(-fmb*
16017      . hbcm+fmc*hbcm-2*hbcm2)+4*(p4p7*p3p5)*(2*fmb*hbcm-2*fmc*hbcm+
16018      . hbcm2)+8*(p5p7*p2p3)*(fmb*hbcm-2*fmc*hbcm+hbcm2)+8*(p3p7*p1p5)
16019      . *(-fmb*hbcm-fmc*hbcm)+4*(p3p7*p3p5)*(4*fmb*fmc-fmb*hbcm+fmc*
16020      . hbcm)+8*(p3p7*p2p3)*(-2*fmb*fmc+fmb*hbcm)+4*p5p7*(-2*fmb*fmc*
16021      . hbcm2-fmb*hbcm3-fmb2*hbcm2+fmc2*hbcm2-hbcm4)+4*p4p7*(-fmb*fmc*
16022      . hbcm2+2*fmb*hbcm3-fmb2*hbcm2+2*p3p5s2)+4*p3p7*(2*fmb*fmc*hbcm2
16023      . -fmb*hbcm3)+8*(fmb*hbcm*p1p3*p5p7-fmb*hbcm*p1p4*p3p7-2*fmb*
16024      . hbcm*p2p3*p4p7-fmb*hbcm*p3p4*p5p7+fmc*hbcm*p2p5*p3p7-hbcm2*
16025      . p1p5*p5p7+hbcm2*p4p5*p5p7+p1p3*p3p5*p5p7-p1p4*p3p5*p3p7-p2p3*
16026      . p3p5*p4p7+2*p2p3*p3p5*p5p7-p2p5*p3p5*p3p7-p3p4*p3p5*p5p7))+(8*
16027      . p5p7*(2*fb3*fmb*hbcm+2*fb3*fmc*hbcm-4*fb4*fmc*hbcm+hbcm2)+16*
16028      . p3p7*(-fb3*fmb*fmc+fb3*fmb*hbcm+fb3*fmc*hbcm-fb3*fmc2+fb4*fmb*
16029      . fmc+fb4*fmc2)+16*(fb4*hbcm2*p4p7+2*fb4*p1p3*p5p7-2*fb4*p1p4*
16030      . p3p7-2*fb4*p2p3*p4p7+4*fb4*p2p3*p5p7-2*fb4*p2p5*p3p7-2*fb4*
16031      . p3p4*p5p7+2*fb4*p3p5*p4p7))
16032       ans1=w5*(4*p5p7*(fmc*hbcm3+2*fmc2*hbcm2+2*p1p3s2+2*p3p4s2)+8*(
16033      . p3p7*p3p5)*(fmc*hbcm-2*fmc2)+8*(p3p7*p2p3)*(-fmc*hbcm+2*fmc2)+
16034      . 4*(p5p7*p3p4)*(fmb*hbcm+3*fmc*hbcm+2*hbcm2)+8*(p3p7*p1p4)*(fmb
16035      . *hbcm+2*fmc*hbcm)+4*(p5p7*p1p3)*(-fmb*hbcm-3*fmc*hbcm-2*hbcm2)
16036      . +4*p3p7*(-2*fmb*fmc2*hbcm+fmc*hbcm3-2*fmc2*hbcm2-2*fmc3*hbcm)+
16037      . 4*(p3p7*p3p4)*(-4*fmb*fmc+fmb*hbcm+fmc*hbcm-4*fmc2)+4*(p3p7*
16038      . p1p3)*(4*fmb*fmc-fmb*hbcm-fmc*hbcm+4*fmc2)+4*p4p7*(fmb*fmc*
16039      . hbcm2-2*fmc*hbcm3+fmc2*hbcm2)+4*(4*fmc*hbcm*p2p3*p4p7-6*fmc*
16040      . hbcm*p2p3*p5p7+2*fmc*hbcm*p2p5*p3p7-4*fmc*hbcm*p3p5*p4p7+2*fmc
16041      . *hbcm*p3p5*p5p7-2*hbcm2*p1p2*p5p7+hbcm2*p1p3*p4p7-2*hbcm2*p1p5
16042      . *p5p7+2*hbcm2*p2p4*p5p7-2*hbcm2*p2p5*p4p7-hbcm2*p3p4*p4p7+2*
16043      . hbcm2*p4p5*p5p7-2*p1p3*p1p4*p3p7-2*p1p3*p2p3*p4p7+4*p1p3*p2p3*
16044      . p5p7-2*p1p3*p2p5*p3p7-4*p1p3*p3p4*p5p7+2*p1p3*p3p5*p4p7+2*p1p4
16045      . *p3p4*p3p7+2*p2p3*p3p4*p4p7-4*p2p3*p3p4*p5p7+2*p2p5*p3p4*p3p7-
16046      . 2*p3p4*p3p5*p4p7))+ans2
16047       ans=ccc*ans1
16048       b(6)=ans
16049       ans4=4*(2*fmc*hbcm2*p2p5*p7p8-2*fmc*hbcm2*p2p8*p4p7-4*fmc*hbcm2
16050      . *p2p8*p5p7+2*fmc*hbcm2*p4p7*p5p8+4*fmc*p1p3*p2p3*p7p8-4*fmc*
16051      . p1p3*p3p5*p7p8-4*fmc*p2p3*p3p4*p7p8+4*fmc*p3p4*p3p5*p7p8-4*
16052      . fmc2*hbcm*p2p3*p7p8+4*fmc2*hbcm*p2p8*p3p7+4*fmc2*hbcm*p3p5*
16053      . p7p8-4*fmc2*hbcm*p3p7*p5p8+2*hbcm*p1p3*p1p4*p7p8-2*hbcm*p1p3*
16054      . p2p5*p7p8+6*hbcm*p1p3*p2p8*p5p7-2*hbcm*p1p3*p5p7*p5p8-2*hbcm*
16055      . p1p4*p1p8*p3p7+4*hbcm*p1p4*p2p3*p7p8-4*hbcm*p1p4*p2p8*p3p7-2*
16056      . hbcm*p1p4*p3p4*p7p8-4*hbcm*p1p4*p3p5*p7p8+2*hbcm*p1p4*p3p7*
16057      . p4p8+4*hbcm*p1p4*p3p7*p5p8-6*hbcm*p1p8*p2p3*p5p7+2*hbcm*p1p8*
16058      . p2p5*p3p7+2*hbcm*p1p8*p3p5*p5p7+6*hbcm*p2p3*p4p8*p5p7+2*hbcm*
16059      . p2p5*p3p4*p7p8-2*hbcm*p2p5*p3p7*p4p8-6*hbcm*p2p8*p3p4*p5p7+2*
16060      . hbcm*p3p4*p5p7*p5p8-2*hbcm*p3p5*p4p8*p5p7+hbcm3*p1p8*p5p7-
16061      . hbcm3*p4p8*p5p7)
16062       ans3=8*(p4p8*p3p7*p3p5)*(2*fmc-hbcm)+8*(p5p8*p3p7*p3p4)*(-4*fmc
16063      . +hbcm)+8*(p3p7*p3p4*p2p8)*(4*fmc-hbcm)+8*(p4p8*p3p7*p2p3)*(-2*
16064      . fmc+hbcm)+8*(p3p7*p3p5*p1p8)*(-2*fmc+hbcm)+8*(p3p7*p2p3*p1p8)*
16065      . (2*fmc-hbcm)+8*(p5p8*p3p7*p1p3)*(4*fmc-hbcm)+8*(p3p7*p2p8*p1p3
16066      . )*(-4*fmc+hbcm)+8*(p4p8*p3p7*p3p4)*(fmb-fmc)+8*(p3p7*p3p4*p1p8
16067      . )*(-fmb+fmc)+8*p7p8*(-fmb*p1p3s2-fmb*p3p4s2+fmc*p1p3s2+fmc*
16068      . p3p4s2+fmc2*hbcm3)+8*(p4p8*p3p7*p1p3)*(-fmb+fmc)+16*(p7p8*p3p4
16069      . *p1p3)*(fmb-fmc)+8*(p3p7*p1p8*p1p3)*(fmb-fmc)+4*(p4p8*p4p7)*(-
16070      . fmb*hbcm2+fmc*hbcm2)+4*(p4p7*p1p8)*(fmb*hbcm2-fmc*hbcm2)+8*(
16071      . p7p8*p1p4)*(-fmb*hbcm2-hbcm3)+4*(p4p8*p3p7)*(2*fmb*fmc*hbcm+2*
16072      . fmc*hbcm2-2*fmc2*hbcm-hbcm3)+8*(p7p8*p3p4)*(-fmb*fmc*hbcm+fmc*
16073      . hbcm2+fmc2*hbcm)+4*(p3p7*p1p8)*(-2*fmb*fmc*hbcm-2*fmc*hbcm2+2*
16074      . fmc2*hbcm+hbcm3)+8*(p7p8*p1p3)*(fmb*fmc*hbcm-fmc*hbcm2-fmc2*
16075      . hbcm)+ans4
16076       ans2=w5*ans3
16077       ans7=8*(fmb*hbcm2*p1p4*p7p8-fmb*hbcm2*p1p8*p5p7+fmb*hbcm2*p2p8*
16078      . p4p7+fmb*hbcm2*p4p8*p5p7-fmc*hbcm2*p3p5*p7p8+2*fmc*p2p3*p3p5*
16079      . p7p8+2*fmc*p3p5*p3p7*p5p8+hbcm*p1p3*p5p7*p5p8+hbcm*p1p4*p3p5*
16080      . p7p8-hbcm*p1p4*p3p7*p5p8-2*hbcm*p1p5*p2p3*p7p8+2*hbcm*p1p5*
16081      . p2p8*p3p7+2*hbcm*p1p5*p3p5*p7p8-2*hbcm*p1p5*p3p7*p5p8-hbcm*
16082      . p1p8*p3p5*p5p7+2*hbcm*p2p3*p2p5*p7p8+2*hbcm*p2p3*p4p5*p7p8-2*
16083      . hbcm*p2p3*p4p7*p5p8-hbcm*p2p3*p5p7*p5p8-2*hbcm*p2p5*p2p8*p3p7-
16084      . hbcm*p2p5*p3p5*p7p8+hbcm*p2p5*p3p7*p5p8-hbcm*p2p8*p3p5*p3p7+2*
16085      . hbcm*p2p8*p3p5*p4p7+hbcm*p2p8*p3p5*p5p7-2*hbcm*p2p8*p3p7*p4p5-
16086      . hbcm*p3p4*p5p7*p5p8-2*hbcm*p3p5*p4p5*p7p8+hbcm*p3p5*p4p8*p5p7+
16087      . 2*hbcm*p3p7*p4p5*p5p8)
16088       ans6=8*(p5p8*p3p7*p2p3)*(-2*fmc+hbcm)+4*(p5p8*p5p7)*(-2*fmc*
16089      . hbcm2-hbcm3)+4*(p5p8*p3p7)*(2*fmc*hbcm2-hbcm3)+16*(p5p7*p2p8)*
16090      . (-fmc*hbcm2+hbcm3)+8*(p7p8*p2p5)*(fmc*hbcm2-hbcm3)+8*(p4p8*
16091      . p3p7*p3p5)*(-fmb+fmc)+8*(p7p8*p3p5*p3p4)*(fmb-fmc)+8*(p3p7*
16092      . p3p5*p1p8)*(fmb-fmc)+8*(p7p8*p3p5*p1p3)*(-fmb+fmc)+4*(p5p8*
16093      . p4p7)*(-fmb*hbcm2-fmc*hbcm2+2*hbcm3)+8*(p7p8*p4p5)*(-fmb*hbcm2
16094      . +fmc*hbcm2-hbcm3)+8*(p7p8*p1p5)*(fmb*hbcm2-fmc*hbcm2+hbcm3)+8*
16095      . p7p8*(-fmb*fmc2*hbcm2+fmb2*fmc*hbcm2-2*fmc*p3p5s2)+8*(p4p8*
16096      . p3p7)*(fmb*fmc*hbcm-fmb2*hbcm)+8*(p7p8*p3p4)*(-fmb*fmc*hbcm+
16097      . fmb2*hbcm)+8*(p3p7*p1p8)*(-fmb*fmc*hbcm+fmb2*hbcm)+8*(p7p8*
16098      . p1p3)*(fmb*fmc*hbcm-fmb2*hbcm)+ans7
16099       ans5=w2*ans6
16100       ans8=(32*(p4p8*p3p7)*(-fb4*fmb+fb4*fmc)+32*(p7p8*p3p4)*(fb4*fmb
16101      . -fb4*fmc)+32*(p3p7*p1p8)*(fb4*fmb-fb4*fmc)+32*(p7p8*p1p3)*(-
16102      . fb4*fmb+fb4*fmc)+32*(p5p8*p3p7)*(-fb3*fmc+fb3*hbcm+fb4*fmc)+32
16103      . *(p7p8*p3p5)*(-fb3*fmc-fb4*fmc)+32*(p3p7*p2p8)*(fb3*fmc-fb3*
16104      . hbcm-fb4*fmc)+32*(p7p8*p2p3)*(fb3*fmc+fb4*fmc)+4*p7p8*(-4*fb3*
16105      . fmb*fmc*hbcm-4*fb3*fmc*hbcm2+4*fb3*fmc2*hbcm+4*fb4*fmb*fmc*
16106      . hbcm-4*fb4*fmc*hbcm2-4*fb4*fmc2*hbcm-fmb*hbcm2+fmc*hbcm2)+32*(
16107      . -fb3*hbcm*p1p4*p7p8+fb3*hbcm*p1p8*p5p7-fb3*hbcm*p2p5*p7p8+fb3*
16108      . hbcm*p2p8*p5p7-fb3*hbcm*p4p8*p5p7+fb3*hbcm*p5p7*p5p8))
16109       ans1=ans2+ans5+ans8
16110       ans=ccc*ans1
16111       b(7)=ans
16112       ans2=w2*(4*(p5p8*p3p5)*(-2*fmc+hbcm)+2*p5p8*(fmb2*hbcm-2*fmc*
16113      . hbcm2-fmc2*hbcm+hbcm3)+4*(p4p8*p3p5)*(fmb-fmc+hbcm)+8*(p3p5*
16114      . p2p8)*(-fmb+2*fmc-hbcm)+4*(p3p5*p1p8)*(-fmb+fmc-hbcm)+4*p4p8*(
16115      . -fmb*fmc*hbcm+fmb*hbcm2+fmb2*hbcm)+8*p2p8*(fmb*fmc*hbcm-fmb*
16116      . hbcm2-fmb2*hbcm)+4*p1p8*(fmb*fmc*hbcm-fmb*hbcm2-fmb2*hbcm)+4*(
16117      . hbcm*p1p3*p5p8+hbcm*p1p4*p5p8-2*hbcm*p1p5*p2p8+2*hbcm*p1p5*
16118      . p5p8+hbcm*p2p3*p5p8+2*hbcm*p2p5*p2p8+2*hbcm*p2p8*p4p5-hbcm*
16119      . p3p4*p5p8-2*hbcm*p4p5*p5p8))+(16*p4p8*(-fb3*hbcm+fb4*fmb-fb4*
16120      . fmc)+32*p2p8*(fb3*hbcm-fb4*fmb+fb4*fmc)+16*p1p8*(fb3*hbcm-fb4*
16121      . fmb+fb4*fmc))
16122       ans1=w5*(8*(p5p8*p3p4)*(fmc-hbcm)+8*(p5p8*p1p3)*(-fmc+hbcm)+4*(
16123      . p4p8*p3p4)*(-fmb+fmc)+8*(p3p4*p2p8)*(fmb-2*fmc)+4*(p3p4*p1p8)*
16124      . (fmb-fmc)+4*(p4p8*p1p3)*(fmb-fmc)+8*(p2p8*p1p3)*(-fmb+2*fmc)+4
16125      . *(p1p8*p1p3)*(-fmb+fmc)+2*p4p8*(-2*fmb*fmc*hbcm+fmb2*hbcm+fmc2
16126      . *hbcm+hbcm3)+8*p2p8*(fmb*fmc*hbcm-fmc*hbcm2-fmc2*hbcm)+2*p1p8*
16127      . (2*fmb*fmc*hbcm-fmb2*hbcm-fmc2*hbcm-hbcm3)+4*(-2*hbcm*p1p2*
16128      . p2p8+2*hbcm*p1p2*p5p8+hbcm*p1p4*p1p8+4*hbcm*p1p4*p2p8-hbcm*
16129      . p1p4*p4p8-2*hbcm*p1p5*p2p8+2*hbcm*p1p5*p5p8-hbcm*p1p8*p2p3-2*
16130      . hbcm*p1p8*p2p5-hbcm*p1p8*p3p5+hbcm*p2p3*p4p8+2*hbcm*p2p4*p2p8-
16131      . 2*hbcm*p2p4*p5p8+2*hbcm*p2p5*p4p8+2*hbcm*p2p8*p4p5+hbcm*p3p5*
16132      . p4p8-2*hbcm*p4p5*p5p8))+ans2
16133       ans=ccc*ans1
16134       b(13)=ans
16135       ans2=4*(-2*fb4*fmb2+4*fb4*fmc*hbcm+2*fb4*fmc2-2*fb4*hbcm2-4*fb4
16136      . *p1p3-4*fb4*p1p4-4*fb4*p2p3-8*fb4*p2p5+4*fb4*p3p4-4*fb4*p3p5-
16137      . hbcm2)
16138       ans1=w5*(4*p4p5*(fmb*hbcm+fmc*hbcm-hbcm2)+4*p2p4*(fmb*hbcm+fmc*
16139      . hbcm-hbcm2)+4*p1p5*(-fmb*hbcm-fmc*hbcm+hbcm2)+4*p1p2*(-fmb*
16140      . hbcm-fmc*hbcm+hbcm2)+2*p3p4*(-2*fmb*fmc+2*fmb*hbcm+fmb2-3*fmc2
16141      . -hbcm2)+2*p1p3*(2*fmb*fmc-2*fmb*hbcm-fmb2+3*fmc2+hbcm2)+2*(
16142      . fmb2*fmc*hbcm+2*fmc*hbcm*p1p4+2*fmc*hbcm*p2p3+4*fmc*hbcm*p2p5+
16143      . 2*fmc*hbcm*p3p5+fmc*hbcm3-2*fmc2*hbcm2-fmc3*hbcm-2*p1p3*p1p4-2
16144      . *p1p3*p2p3-4*p1p3*p2p5+4*p1p3*p3p4-2*p1p3*p3p5-2*p1p3s2+2*p1p4
16145      . *p3p4+2*p2p3*p3p4+4*p2p5*p3p4+2*p3p4*p3p5-2*p3p4s2))+w2*(4*
16146      . p4p5*(fmb*hbcm+fmc*hbcm-hbcm2)+4*p2p5*(-fmb*hbcm+fmc*hbcm-
16147      . hbcm2)+4*p1p5*(-fmb*hbcm-fmc*hbcm+hbcm2)+2*p3p5*(2*fmb*fmc-2*
16148      . fmb*hbcm-fmb2+3*fmc2-hbcm2)+2*(2*fmb*fmc*hbcm2+fmb*fmc2*hbcm-2
16149      . *fmb*hbcm*p1p3-2*fmb*hbcm*p1p4-2*fmb*hbcm*p2p3+2*fmb*hbcm*p3p4
16150      . -fmb*hbcm3-fmb3*hbcm-2*p1p3*p3p5-2*p1p4*p3p5-2*p2p3*p3p5-4*
16151      . p2p5*p3p5+2*p3p4*p3p5-2*p3p5s2))+ans2
16152       ans=ccc*ans1
16153       b(14)=ans
16154       ans3=(8*p5p8*(4*fb4*fmc*hbcm-hbcm2)+16*p4p8*(-fb3*fmb*hbcm-fb3*
16155      . fmc*hbcm-fb4*hbcm2)+8*p2p8*(4*fb3*fmb*hbcm+4*fb3*fmc*hbcm-4*
16156      . fb4*fmc*hbcm+4*fb4*hbcm2+hbcm2)+16*p1p8*(fb3*fmb*hbcm+fb3*fmc*
16157      . hbcm+fb4*hbcm2)+32*(fb4*p1p3*p2p8-fb4*p1p3*p5p8-fb4*p1p8*p2p3+
16158      . fb4*p1p8*p3p5+fb4*p2p3*p4p8-2*fb4*p2p3*p5p8-fb4*p2p8*p3p4+2*
16159      . fb4*p2p8*p3p5+fb4*p3p4*p5p8-fb4*p3p5*p4p8))
16160       ans2=w2*(4*(p4p8*p3p5)*(-fmb*hbcm+fmc*hbcm-hbcm2)+4*(p5p8*p3p4)
16161      . *(fmb*hbcm-fmc*hbcm)+8*(p3p5*p2p8)*(fmb*hbcm-fmc*hbcm+hbcm2)+4
16162      . *(p5p8*p2p3)*(-2*fmb*hbcm+2*fmc*hbcm-hbcm2)+4*(p3p5*p1p8)*(fmb
16163      . *hbcm-fmc*hbcm+hbcm2)+4*(p5p8*p1p3)*(-fmb*hbcm+fmc*hbcm)+2*
16164      . p5p8*(2*fmb*fmc*hbcm2+fmb2*hbcm2-3*fmc2*hbcm2+hbcm4)+4*p4p8*(
16165      . fmb*fmc*hbcm2-fmb*hbcm3+fmb2*hbcm2-2*p3p5s2)+8*p2p8*(-2*fmb*
16166      . fmc*hbcm2+fmb*hbcm3-fmb2*hbcm2+2*p3p5s2)+4*p1p8*(-fmb*fmc*
16167      . hbcm2+fmb*hbcm3-fmb2*hbcm2+2*p3p5s2)+4*(2*fmb*hbcm*p1p3*p2p8-2
16168      . *fmb*hbcm*p1p8*p2p3+2*fmb*hbcm*p2p3*p4p8-2*fmb*hbcm*p2p8*p3p4+
16169      . hbcm2*p1p4*p5p8-2*hbcm2*p1p5*p2p8+2*hbcm2*p1p5*p5p8+2*hbcm2*
16170      . p2p5*p2p8+2*hbcm2*p2p8*p4p5+hbcm2*p3p5*p5p8-2*hbcm2*p4p5*p5p8+
16171      . 2*p1p3*p2p8*p3p5-2*p1p3*p3p5*p5p8-2*p1p8*p2p3*p3p5+2*p2p3*p3p5
16172      . *p4p8-4*p2p3*p3p5*p5p8-2*p2p8*p3p4*p3p5+2*p3p4*p3p5*p5p8))+
16173      . ans3
16174       ans1=w5*(8*p5p8*(-fmc2*hbcm2-p1p3s2-p3p4s2)+4*(p4p8*p3p5)*(2*
16175      . fmc*hbcm+hbcm2)+8*(p5p8*p3p4)*(-fmc*hbcm-hbcm2)+4*(p3p5*p1p8)*
16176      . (-2*fmc*hbcm-hbcm2)+8*(p5p8*p1p3)*(fmc*hbcm+hbcm2)+2*p4p8*(
16177      . fmb2*hbcm2+2*fmc*hbcm3-fmc2*hbcm2+hbcm4)+2*p1p8*(-fmb2*hbcm2-2
16178      . *fmc*hbcm3+fmc2*hbcm2-hbcm4)+4*(p4p8*p2p3)*(2*fmb*hbcm-hbcm2)+
16179      . 4*(p2p3*p1p8)*(-2*fmb*hbcm+hbcm2)+8*p2p8*(-fmb*fmc*hbcm2-fmc*
16180      . hbcm3+p1p3s2+p3p4s2)+4*(2*fmb*hbcm*p1p3*p2p8-2*fmb*hbcm*p2p8*
16181      . p3p4+4*fmc*hbcm*p2p3*p5p8-4*fmc*hbcm*p2p8*p3p5-2*hbcm2*p1p2*
16182      . p2p8+2*hbcm2*p1p2*p5p8+hbcm2*p1p3*p1p8-hbcm2*p1p3*p4p8+hbcm2*
16183      . p1p4*p1p8+4*hbcm2*p1p4*p2p8-hbcm2*p1p4*p4p8-2*hbcm2*p1p5*p2p8+
16184      . 2*hbcm2*p1p5*p5p8-2*hbcm2*p1p8*p2p5-hbcm2*p1p8*p3p4+2*hbcm2*
16185      . p2p4*p2p8-2*hbcm2*p2p4*p5p8+2*hbcm2*p2p5*p4p8+2*hbcm2*p2p8*
16186      . p4p5+hbcm2*p3p4*p4p8-2*hbcm2*p4p5*p5p8-2*p1p3*p1p8*p2p3+2*p1p3
16187      . *p1p8*p3p5+2*p1p3*p2p3*p4p8-4*p1p3*p2p3*p5p8-4*p1p3*p2p8*p3p4+
16188      . 4*p1p3*p2p8*p3p5+4*p1p3*p3p4*p5p8-2*p1p3*p3p5*p4p8+2*p1p8*p2p3
16189      . *p3p4-2*p1p8*p3p4*p3p5-2*p2p3*p3p4*p4p8+4*p2p3*p3p4*p5p8-4*
16190      . p2p8*p3p4*p3p5+2*p3p4*p3p5*p4p8))+ans2
16191       ans=ccc*ans1
16192       b(15)=ans
16193       ans2=w2*(4*(p3p5*p3p4)*(-fmb+fmc)+4*(p3p5*p2p3)*(2*fmb-4*fmc+
16194      . hbcm)+4*(p3p5*p1p3)*(fmb-fmc)+4*p4p5*(fmb*hbcm2-fmc*hbcm2+
16195      . hbcm3)+2*p3p5*(-2*fmb*hbcm2-fmb2*hbcm+2*fmc*hbcm2+fmc2*hbcm-
16196      . hbcm3)+4*p2p5*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+4*p1p5*(-fmb*hbcm2+
16197      . fmc*hbcm2-hbcm3)+4*p3p4*(fmb*fmc*hbcm-fmb2*hbcm)+4*p2p3*(-2*
16198      . fmb*fmc*hbcm+fmb*hbcm2+2*fmb2*hbcm)+4*p1p3*(-fmb*fmc*hbcm+fmb2
16199      . *hbcm)+2*(3*fmb*fmc2*hbcm2-2*fmb*hbcm2*p1p4-fmb*hbcm4-2*fmb2*
16200      . fmc*hbcm2-fmb3*hbcm2+4*fmc*p3p5s2-2*hbcm*p1p4*p3p5+4*hbcm*p1p5
16201      . *p2p3-4*hbcm*p1p5*p3p5-4*hbcm*p2p3*p2p5-4*hbcm*p2p3*p4p5+4*
16202      . hbcm*p3p5*p4p5-2*hbcm*p3p5s2))+(16*p3p4*(-fb4*fmb+fb4*fmc)+16*
16203      . p1p3*(fb4*fmb-fb4*fmc)+16*p2p3*(-fb3*hbcm+2*fb4*fmb-2*fb4*fmc)
16204      . +4*(2*fb3*fmb2*hbcm-2*fb3*fmc2*hbcm+4*fb3*hbcm*p1p4+8*fb3*hbcm
16205      . *p2p5+4*fb3*hbcm*p3p5+2*fb3*hbcm3-4*fb4*fmb*fmc*hbcm+4*fb4*
16206      . fmc2*hbcm+fmb*hbcm2-fmc*hbcm2))
16207       ans1=w5*(4*(p3p5*p3p4)*(-2*fmc+hbcm)+4*(p3p5*p1p3)*(2*fmc-hbcm)
16208      . +4*(p3p4*p2p3)*(-2*fmb+4*fmc-hbcm)+8*(p3p4*p1p3)*(-fmb+fmc)+4*
16209      . (p2p3*p1p3)*(2*fmb-4*fmc+hbcm)+4*p4p5*(fmb*hbcm2-fmc*hbcm2+
16210      . hbcm3)+4*p2p4*(fmb*hbcm2-fmc*hbcm2+hbcm3)+4*p1p5*(-fmb*hbcm2+
16211      . fmc*hbcm2-hbcm3)+4*p1p2*(-fmb*hbcm2+fmc*hbcm2-hbcm3)+2*p3p4*(2
16212      . *fmb*fmc*hbcm+2*fmb*hbcm2-fmb2*hbcm-4*fmc*hbcm2-fmc2*hbcm+
16213      . hbcm3)+4*p2p3*(-2*fmb*fmc*hbcm+fmc*hbcm2+2*fmc2*hbcm)+2*p1p3*(
16214      . -2*fmb*fmc*hbcm-2*fmb*hbcm2+fmb2*hbcm+4*fmc*hbcm2+fmc2*hbcm-
16215      . hbcm3)+2*(2*fmb*fmc2*hbcm2+2*fmb*p1p3s2+2*fmb*p3p4s2-fmb2*fmc*
16216      . hbcm2+2*fmc*hbcm2*p1p4-4*fmc*hbcm2*p2p5-2*fmc*hbcm2*p3p5-fmc*
16217      . hbcm4-2*fmc*p1p3s2-2*fmc*p3p4s2-fmc3*hbcm2+4*hbcm*p1p2*p2p3-4*
16218      . hbcm*p1p2*p3p5-2*hbcm*p1p3*p1p4+4*hbcm*p1p3*p2p5-8*hbcm*p1p4*
16219      . p2p3+2*hbcm*p1p4*p3p4+4*hbcm*p1p5*p2p3-4*hbcm*p1p5*p3p5-4*hbcm
16220      . *p2p3*p2p4-4*hbcm*p2p3*p4p5+4*hbcm*p2p4*p3p5-4*hbcm*p2p5*p3p4+
16221      . 4*hbcm*p3p5*p4p5))+ans2
16222       ans=ccc*ans1
16223       b(16)=ans
16224       b(19)=ccc*(w5*(6*p4p8*(-fmb*hbcm2+fmc*hbcm2-hbcm3)+6*p1p8*(fmb*
16225      . hbcm2-fmc*hbcm2+hbcm3)+4*(-fmc*hbcm2*p2p8+3*fmc*hbcm2*p5p8+
16226      . hbcm*p1p3*p2p8-3*hbcm*p1p3*p5p8-hbcm*p1p8*p2p3+3*hbcm*p1p8*
16227      . p3p5+hbcm*p2p3*p4p8-hbcm*p2p8*p3p4+3*hbcm*p3p4*p5p8-3*hbcm*
16228      . p3p5*p4p8))+w2*(2*p5p8*(3*fmb*hbcm2+5*fmc*hbcm2-3*hbcm3)+4*(
16229      . fmb*hbcm2*p1p8-fmb*hbcm2*p2p8-fmb*hbcm2*p4p8-hbcm*p1p3*p5p8+
16230      . hbcm*p1p8*p3p5+hbcm*p2p3*p5p8-hbcm*p2p8*p3p5+hbcm*p3p4*p5p8-
16231      . hbcm*p3p5*p4p8))+16*(-fb3*hbcm*p1p8+fb3*hbcm*p2p8+fb3*hbcm*
16232      . p4p8-3*fb3*hbcm*p5p8))
16233       b(20)=ccc*(w5*(2*p4p8*(-3*fmb*hbcm-fmc*hbcm+3*hbcm2)+2*p1p8*(3*
16234      . fmb*hbcm+fmc*hbcm-3*hbcm2)+4*(fmc*hbcm*p2p8-3*fmc*hbcm*p5p8+
16235      . p1p3*p1p8-p1p3*p2p8-p1p3*p4p8+3*p1p3*p5p8-p1p8*p3p4+p2p8*p3p4+
16236      . p3p4*p4p8-3*p3p4*p5p8))+w2*(6*p5p8*(fmb*hbcm-fmc*hbcm+hbcm2)+4
16237      . *(fmb*hbcm*p1p8-fmb*hbcm*p2p8-fmb*hbcm*p4p8+p1p8*p3p5-p2p8*
16238      . p3p5-p3p5*p4p8+3*p3p5*p5p8))+16*(fb4*p1p8-fb4*p2p8-fb4*p4p8+3*
16239      . fb4*p5p8))
16240       b(21)=ccc*(w5*(8*(p4p8*p3p7)*(fmc-hbcm)+8*(p3p7*p1p8)*(-fmc+
16241      . hbcm)+4*(p7p8*p3p4)*(-fmb+3*fmc+hbcm)+4*(p7p8*p1p3)*(fmb-3*fmc
16242      . -hbcm)+4*p7p8*(-fmb*fmc*hbcm+fmc*hbcm2+3*fmc2*hbcm)+8*(-2*hbcm
16243      . *p1p4*p7p8+2*hbcm*p1p8*p5p7-hbcm*p2p8*p4p7+hbcm*p4p7*p5p8-2*
16244      . hbcm*p4p8*p5p7))+w2*(8*(p5p8*p3p7)*(fmc-hbcm)+4*(p7p8*p3p5)*(
16245      . fmb-3*fmc+hbcm)+4*p7p8*(-fmb*fmc*hbcm+fmb*hbcm2+fmb2*hbcm)+8*(
16246      . hbcm*p1p5*p7p8-hbcm*p2p5*p7p8-hbcm*p4p5*p7p8+hbcm*p4p7*p5p8))+
16247      . 16*p7p8*(-fb3*fmc-fb3*hbcm+fb4*fmb-2*fb4*fmc))
16248       b(22)=ccc*(w5*(2*p3p4*(-3*fmb+5*fmc+hbcm)+2*p1p3*(3*fmb-5*fmc-
16249      . hbcm)+2*(-3*fmb*fmc*hbcm+3*fmc*hbcm2+3*fmc2*hbcm+2*hbcm*p1p2-6
16250      . *hbcm*p1p4+2*hbcm*p1p5-2*hbcm*p2p4-2*hbcm*p4p5))+w2*(2*p3p5*(3
16251      . *fmb-5*fmc+3*hbcm)+2*(-3*fmb*fmc*hbcm+3*fmb*hbcm2+3*fmb2*hbcm+
16252      . 2*hbcm*p1p5-2*hbcm*p2p5-2*hbcm*p4p5))+24*(-fb3*hbcm+fb4*fmb-
16253      . fb4*fmc))
16254       b(23)=ccc*(w5*(8*p3p7*(-fmc*hbcm+fmc2)+4*p4p7*(-fmb*hbcm+fmc*
16255      . hbcm+hbcm2)+4*(-4*fmc*hbcm*p5p7+p1p3*p3p7-p1p3*p4p7+3*p1p3*
16256      . p5p7-p3p4*p3p7+p3p4*p4p7-3*p3p4*p5p7))+w2*(8*p5p7*(fmb*hbcm-
16257      . fmc*hbcm+hbcm2)+8*p3p7*(-fmb*fmc+fmb*hbcm)+4*(-2*fmb*hbcm*p4p7
16258      . +p3p5*p3p7-p3p5*p4p7+3*p3p5*p5p7))+16*(fb4*p3p7-fb4*p4p7+3*fb4
16259      . *p5p7))
16260       b(24)=ccc*(w5*(2*p3p4*(3*fmb*hbcm+fmc*hbcm+hbcm2)+2*p1p3*(-3*
16261      . fmb*hbcm-fmc*hbcm-hbcm2)+2*(3*fmb*fmc*hbcm2-2*fmc*hbcm*p2p3+6*
16262      . fmc*hbcm*p3p5+3*fmc*hbcm3+fmc2*hbcm2+2*hbcm2*p1p2-6*hbcm2*p1p4
16263      . +2*hbcm2*p1p5-2*hbcm2*p2p4-2*hbcm2*p4p5+2*p1p3*p2p3+4*p1p3*
16264      . p3p4-6*p1p3*p3p5-2*p1p3s2-2*p2p3*p3p4+6*p3p4*p3p5-2*p3p4s2))+
16265      . w2*(6*p3p5*(-fmb*hbcm+fmc*hbcm-hbcm2)+2*(5*fmb*fmc*hbcm2-2*fmb
16266      . *hbcm*p1p3+2*fmb*hbcm*p2p3+2*fmb*hbcm*p3p4-3*fmb*hbcm3+3*fmb2*
16267      . hbcm2+2*hbcm2*p1p5-2*hbcm2*p2p5-2*hbcm2*p4p5-2*p1p3*p3p5+2*
16268      . p2p3*p3p5+2*p3p4*p3p5-6*p3p5s2))+4*(-6*fb3*fmb*hbcm-6*fb3*fmc*
16269      . hbcm+4*fb4*fmc*hbcm-6*fb4*hbcm2-4*fb4*p1p3+4*fb4*p2p3+4*fb4*
16270      . p3p4-12*fb4*p3p5-hbcm2))
16271       b(25)=ccc*(w5*(4*(p3p7*p3p4)*(fmb-5*fmc+hbcm)+4*(p3p7*p1p3)*(-
16272      . fmb+5*fmc-hbcm)+4*p4p7*(-fmb*hbcm2+2*fmc*hbcm2-hbcm3)+4*p3p7*(
16273      . fmb*fmc*hbcm-3*fmc2*hbcm)+4*(3*fmc*hbcm2*p5p7-4*hbcm*p1p3*p5p7
16274      . +4*hbcm*p1p4*p3p7+2*hbcm*p2p3*p4p7+4*hbcm*p3p4*p5p7-2*hbcm*
16275      . p3p5*p4p7))+w2*(4*(p3p7*p3p5)*(-fmb+fmc+hbcm)+4*p5p7*(fmb*
16276      . hbcm2+2*fmc*hbcm2-2*hbcm3)+4*p3p7*(fmb*fmc*hbcm-fmb2*hbcm)+4*(
16277      . -fmb*hbcm2*p4p7-2*hbcm*p1p5*p3p7+2*hbcm*p2p5*p3p7-2*hbcm*p3p5*
16278      . p4p7+2*hbcm*p3p7*p4p5))+(16*p3p7*(-fb3*fmc+fb3*hbcm-fb4*fmb+2*
16279      . fb4*fmc)-32*fb3*hbcm*p5p7))
16280       ans2=w2*(4*(p5p8*p3p7)*(fmb*hbcm-fmc*hbcm)+4*(p7p8*p3p5)*(-fmb*
16281      . hbcm+fmc*hbcm-hbcm2)+4*p7p8*(3*fmb*fmc*hbcm2-fmb*hbcm3+fmb2*
16282      . hbcm2-2*p3p5s2)+4*(-2*fmb*hbcm*p1p3*p7p8+2*fmb*hbcm*p1p8*p3p7+
16283      . 2*fmb*hbcm*p2p3*p7p8-2*fmb*hbcm*p2p8*p3p7+2*fmb*hbcm*p3p4*p7p8
16284      . -2*fmb*hbcm*p3p7*p4p8+2*hbcm2*p1p5*p7p8-2*hbcm2*p2p5*p7p8-2*
16285      . hbcm2*p4p5*p7p8+hbcm2*p4p7*p5p8+hbcm2*p5p7*p5p8-2*p1p3*p3p5*
16286      . p7p8+2*p1p8*p3p5*p3p7+2*p2p3*p3p5*p7p8-2*p2p8*p3p5*p3p7+2*p3p4
16287      . *p3p5*p7p8-2*p3p5*p3p7*p4p8+2*p3p5*p3p7*p5p8))+(4*p7p8*(-4*fb3
16288      . *fmb*hbcm-8*fb3*fmc*hbcm+4*fb4*fmc*hbcm-4*fb4*hbcm2-hbcm2)+32*
16289      . (-fb4*p1p3*p7p8+fb4*p1p8*p3p7+fb4*p2p3*p7p8-fb4*p2p8*p3p7+fb4*
16290      . p3p4*p7p8-fb4*p3p5*p7p8-fb4*p3p7*p4p8+fb4*p3p7*p5p8))
16291       ans1=w5*(4*(p4p8*p3p7)*(-fmb*hbcm+fmc*hbcm)+4*(p7p8*p3p4)*(fmb*
16292      . hbcm-fmc*hbcm+hbcm2)+4*(p3p7*p1p8)*(fmb*hbcm-fmc*hbcm)+4*(p7p8
16293      . *p1p3)*(-fmb*hbcm+fmc*hbcm-hbcm2)+4*p7p8*(fmb*fmc*hbcm2+fmc*
16294      . hbcm3+fmc2*hbcm2-2*p1p3s2-2*p3p4s2)+4*(-2*fmc*hbcm*p2p3*p7p8+2
16295      . *fmc*hbcm*p2p8*p3p7+2*fmc*hbcm*p3p5*p7p8-2*fmc*hbcm*p3p7*p5p8-
16296      . 4*hbcm2*p1p4*p7p8+hbcm2*p1p8*p4p7+3*hbcm2*p1p8*p5p7-2*hbcm2*
16297      . p2p8*p4p7-hbcm2*p4p7*p4p8+2*hbcm2*p4p7*p5p8-3*hbcm2*p4p8*p5p7+
16298      . 2*p1p3*p1p8*p3p7+2*p1p3*p2p3*p7p8-2*p1p3*p2p8*p3p7+4*p1p3*p3p4
16299      . *p7p8-2*p1p3*p3p5*p7p8-2*p1p3*p3p7*p4p8+2*p1p3*p3p7*p5p8-2*
16300      . p1p8*p3p4*p3p7-2*p2p3*p3p4*p7p8+2*p2p8*p3p4*p3p7+2*p3p4*p3p5*
16301      . p7p8+2*p3p4*p3p7*p4p8-2*p3p4*p3p7*p5p8))+ans2
16302       ans=ccc*ans1
16303       b(27)=ans
16304       do 200 n=1,32
16305          c(n,2)=c(n,2)+0.8320502943378437d0*b(n)
16306          c(n,3)=c(n,3)-0.1869893980016914d0*b(n)
16307 200   continue
16308       return
16309         end
16310
16311       subroutine amp3_3p1(cc)
16312       implicit double precision(a-h,o-z)
16313       implicit integer (i-n)
16314       dimension b(27)
16315 #include "inclcon.h"
16316 #include "inclppp.h"
16317 #include "inclamp.h"
16318       do 100 n=1,27
16319          b(n)=0.0d0
16320 100   continue
16321       ccc=cc/((-2*p1p4)*(-2*ffmcfmb*p3p5+fmb2-2*fmc*hbcm+fmc2+hbcm2+2
16322      . *p3p5)*(fmb2-fmc2+hbcm2+2*p3p5))
16323       b(4)=ccc*(w2*(8*p5p7*(fmb*fmc*hbcm-fmb2*hbcm)+8*p3p7*(fmb*fmc*
16324      . hbcm-fmb2*hbcm)+8*(-hbcm*p3p5*p3p7-hbcm*p3p5*p5p7))+32*(-fb3*
16325      . hbcm*p3p7-fb3*hbcm*p5p7))
16326       b(5)=w2*ccc*(8*(p5p8*p5p7)*(-fmb*hbcm+fmc*hbcm)+8*(p5p8*p3p7)*(
16327      . -fmb*hbcm+fmc*hbcm)+8*p7p8*(-fmb*fmc2*hbcm+fmb*hbcm3+fmb3*hbcm
16328      . )+16*fmb*hbcm*p3p5*p7p8)
16329       b(6)=ccc*(w2*(8*(p5p7*p3p5)*(fmb*hbcm-fmc*hbcm)+8*(p3p7*p3p5)*(
16330      . -fmb*hbcm-fmc*hbcm)+8*p3p7*(fmb*fmc2*hbcm-fmb3*hbcm)+8*fmb*
16331      . hbcm3*p5p7)+(32*p5p7*(-fb3*fmb*hbcm-fb3*fmc*hbcm)+32*p3p7*(-
16332      . fb3*fmb*hbcm-fb3*fmc*hbcm)))
16333       b(7)=ccc*(w2*(8*(p5p8*p3p7)*(-fmb2*hbcm+fmc2*hbcm)+8*(p7p8*p3p5
16334      . )*(fmb2*hbcm-fmc2*hbcm+hbcm3)+16*(p3p7*p2p8)*(-fmb*fmc*hbcm+
16335      . fmb2*hbcm)+16*(p7p8*p2p3)*(fmb*fmc*hbcm-fmb2*hbcm)+8*(-2*hbcm*
16336      . p2p3*p3p5*p7p8+2*hbcm*p2p8*p3p5*p3p7-2*hbcm*p3p5*p3p7*p5p8+2*
16337      . hbcm*p3p5s2*p7p8+hbcm3*p5p7*p5p8))+(32*p7p8*(fb3*fmb2*hbcm-fb3
16338      . *fmc2*hbcm+fb3*hbcm3)+64*(-fb3*hbcm*p2p3*p7p8+fb3*hbcm*p2p8*
16339      . p3p7+fb3*hbcm*p3p5*p7p8-fb3*hbcm*p3p7*p5p8-fb3*hbcm*p5p7*p5p8)
16340      . ))
16341       b(13)=ccc*(w2*(4*p5p8*(fmb2*hbcm-fmc2*hbcm+hbcm3)+8*p2p8*(fmb*
16342      . fmc*hbcm-fmb2*hbcm)+8*(-hbcm*p2p8*p3p5+hbcm*p3p5*p5p8))-32*fb3
16343      . *hbcm*p2p8)
16344       b(14)=4*ccc*w2*(fmb*fmc2*hbcm-2*fmb*hbcm*p3p5-fmb*hbcm3-fmb3*
16345      . hbcm)
16346       b(15)=ccc*(w2*(8*(p3p5*p2p8)*(fmb*hbcm-fmc*hbcm)+8*(p5p8*p2p3)*
16347      . (-fmb*hbcm+fmc*hbcm)+8*fmb*hbcm3*p2p8)+32*p2p8*(-fb3*fmb*hbcm-
16348      . fb3*fmc*hbcm))
16349       b(16)=ccc*(w2*(4*p3p5*(-fmb2*hbcm+fmc2*hbcm-hbcm3)+8*p2p3*(-fmb
16350      . *fmc*hbcm+fmb2*hbcm)+8*(hbcm*p2p3*p3p5-hbcm*p3p5s2))+16*(-fb3*
16351      . fmb2*hbcm+fb3*fmc2*hbcm+2*fb3*hbcm*p2p3-2*fb3*hbcm*p3p5-fb3*
16352      . hbcm3))
16353       b(19)=4*ccc*p5p8*(8*fb3*hbcm-hbcm3*w2)
16354       b(20)=4*ccc*w2*p5p8*(fmb*hbcm-fmc*hbcm)
16355       b(21)=ccc*(w2*(8*p7p8*(-fmb*fmc*hbcm+fmb2*hbcm)+8*hbcm*p3p5*
16356      . p7p8)+32*fb3*hbcm*p7p8)
16357       b(22)=ccc*(4*w2*(-fmb*fmc*hbcm+fmb2*hbcm+hbcm*p3p5)+16*fb3*hbcm
16358      . )
16359       b(24)=ccc*(w2*(4*p3p5*(-fmb*hbcm+fmc*hbcm)-4*fmb*hbcm3)+16*(fb3
16360      . *fmb*hbcm+fb3*fmc*hbcm))
16361       b(25)=ccc*(w2*(8*p3p7*(fmb*fmc*hbcm-fmb2*hbcm)-8*hbcm*p3p5*p3p7
16362      . )-32*fb3*hbcm*p3p7)
16363       b(27)=ccc*(w2*(8*(p5p8*p3p7)*(fmb*hbcm-fmc*hbcm)+8*(p7p8*p3p5)*
16364      . (-fmb*hbcm+fmc*hbcm)-8*fmb*hbcm3*p7p8)+32*p7p8*(fb3*fmb*hbcm+
16365      . fb3*fmc*hbcm))
16366       do 200 n=1,27
16367          c(n,2)=c(n,2)-0.7396002616336388d0*b(n)
16368          c(n,3)=c(n,3)+0.1662127982237257d0*b(n)
16369 200   continue
16370       return
16371         end
16372
16373       subroutine amp9_3p1(cc)
16374       implicit double precision(a-h,o-z)
16375       implicit integer (i-n)
16376       dimension b(32)
16377 #include "inclcon.h"
16378 #include "inclppp.h"
16379 #include "inclamp.h"
16380       do 100 n=1,32
16381          b(n)=0.0d0
16382 100   continue
16383       ccc=cc/((-2*p2p4)*(-2*ffmcfmb*p2p3+2*ffmcfmb*p3p4+2*fmc2-2*p2p4
16384      . )*(2*ffmcfmb*p1p3-fmb2-2*fmc*hbcm+fmc2+hbcm2-2*p1p3))
16385       b(1)=ccc*(w11*(16*(p3p6*p2p4)*(fmc+hbcm)+16*(-hbcm*p1p2*p4p6+
16386      . hbcm*p2p3*p4p6+3*hbcm*p2p4*p4p6+hbcm*p2p5*p4p6))+w13*(16*(p3p6
16387      . *p2p5)*(-fmc+hbcm)+16*(p3p6*p2p3)*(-fmc+hbcm)+16*(p3p6*p1p2)*(
16388      . fmc-hbcm)))
16389       b(2)=ccc*(w11*(16*(p4p7*p3p6)*(fmc*hbcm+fmc2)+16*(p6p7*p2p4)*(-
16390      . fmb*hbcm+2*fmc*hbcm)+16*(3*fmc*hbcm*p4p6*p4p7-2*p2p3*p2p4*p6p7
16391      . -p2p3*p3p6*p4p7-2*p2p3*p4p6*p4p7+2*p2p4*p3p4*p6p7+p3p4*p3p6*
16392      . p4p7+2*p3p4*p4p6*p4p7))+w13*(32*(p4p7*p4p6)*(fmb*hbcm+fmc*hbcm
16393      . -hbcm2)+32*(p6p7*p2p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p4p7*p3p6
16394      . )*(fmb*fmc+fmc2-hbcm2)+16*(2*p1p3*p2p4*p6p7+p1p3*p3p6*p4p7+2*
16395      . p1p3*p4p6*p4p7))+64*(-2*fb4*p2p4*p6p7-fb4*p3p6*p4p7-2*fb4*p4p6
16396      . *p4p7))
16397       ans2=w11*(16*(p4p8*p4p7*p3p6)*(-fmc-hbcm)+16*(p4p7*p3p6*p2p8)*(
16398      . fmc+hbcm)+32*(p7p8*p3p6*p2p4)*(-fmc-hbcm)+16*(p6p8*p4p7*p3p4)*
16399      . (-fmb+fmc+2*hbcm)+16*(p6p7*p3p4*p2p8)*(fmb-3*fmc-2*hbcm)+16*(
16400      . p6p8*p4p7*p2p3)*(fmb-fmc-2*hbcm)+16*(p6p7*p2p8*p2p3)*(-fmb+3*
16401      . fmc-hbcm)+16*(p6p8*p4p7)*(-fmb*fmc*hbcm+3*fmc2*hbcm)+16*(p6p7*
16402      . p2p8)*(fmb*fmc*hbcm-5*fmc2*hbcm)+16*(hbcm*p1p2*p2p8*p6p7+2*
16403      . hbcm*p1p2*p4p6*p7p8+2*hbcm*p1p2*p4p7*p6p8-3*hbcm*p1p2*p4p8*
16404      . p6p7+2*hbcm*p1p4*p2p8*p6p7-2*hbcm*p1p4*p4p7*p6p8+4*hbcm*p1p8*
16405      . p2p4*p6p7+2*hbcm*p1p8*p4p6*p4p7-2*hbcm*p2p3*p4p6*p7p8+3*hbcm*
16406      . p2p3*p4p8*p6p7+6*hbcm*p2p4*p2p8*p6p7+4*hbcm*p2p4*p3p7*p6p8-6*
16407      . hbcm*p2p4*p4p6*p7p8+4*hbcm*p2p4*p5p7*p6p8-6*hbcm*p2p4*p5p8*
16408      . p6p7-3*hbcm*p2p5*p2p8*p6p7-2*hbcm*p2p5*p4p6*p7p8+3*hbcm*p2p5*
16409      . p4p8*p6p7+2*hbcm*p2p8*p3p7*p4p6+5*hbcm*p2p8*p4p6*p4p7+2*hbcm*
16410      . p2p8*p4p6*p5p7-3*hbcm*p4p6*p4p7*p4p8-2*hbcm*p4p6*p4p7*p5p8))+(
16411      . 8*(p6p8*p4p7)*(8*fb4*fmb-8*fb4*fmc+hbcm)+64*(p6p7*p2p8)*(fb3*
16412      . fmc-fb4*fmb+2*fb4*fmc))
16413       ans1=w13*(32*(p5p8*p4p7*p3p6)*(fmc-hbcm)+32*(p5p7*p3p6*p2p8)*(-
16414      . fmc+hbcm)+32*(p4p7*p3p6*p2p8)*(-fmc+hbcm)+32*(p3p7*p3p6*p2p8)*
16415      . (-fmc+hbcm)+32*(p7p8*p3p6*p2p5)*(fmc-hbcm)+32*(p7p8*p3p6*p2p3)
16416      . *(fmc-hbcm)+16*(p4p7*p3p6*p1p8)*(-fmc+hbcm)+32*(p7p8*p3p6*p1p2
16417      . )*(-fmc+hbcm)+16*(p6p8*p4p7*p1p3)*(-fmb+fmc)+16*(p6p7*p2p8*
16418      . p1p3)*(fmb-3*fmc+2*hbcm)+16*(p6p8*p4p7)*(fmb*hbcm2-fmb2*hbcm-
16419      . fmc*hbcm2+fmc2*hbcm)+16*(p6p7*p2p8)*(-fmb*hbcm2+2*fmb2*hbcm+3*
16420      . fmc*hbcm2-2*fmc2*hbcm-hbcm3)+16*(hbcm*p1p2*p1p8*p6p7-hbcm*p1p8
16421      . *p2p3*p6p7-hbcm*p1p8*p2p5*p6p7+hbcm*p1p8*p4p6*p4p7))+ans2
16422       ans=ccc*ans1
16423       b(3)=ans
16424       b(4)=ccc*(w13*(8*(p4p7*p1p3)*(-fmb+3*fmc-2*hbcm)+8*p4p7*(fmb*
16425      . hbcm2-2*fmb2*hbcm-3*fmc*hbcm2+2*fmc2*hbcm+hbcm3))+w11*(8*(p4p7
16426      . *p3p4)*(-fmb+3*fmc+2*hbcm)+8*(p4p7*p2p3)*(fmb-3*fmc-2*hbcm)+8*
16427      . p4p7*(-fmb*fmc*hbcm+5*fmc2*hbcm)+16*(hbcm*p1p2*p4p7-hbcm*p1p4*
16428      . p4p7+3*hbcm*p2p4*p3p7+3*hbcm*p2p4*p5p7))+32*p4p7*(-fb3*fmc+fb4
16429      . *fmb-2*fb4*fmc))
16430       ans2=64*(-2*fb4*p1p2*p7p8-fb4*p1p8*p4p7+2*fb4*p2p3*p7p8+2*fb4*
16431      . p2p5*p7p8-2*fb4*p2p8*p3p7-2*fb4*p2p8*p4p7-2*fb4*p2p8*p5p7+2*
16432      . fb4*p4p7*p5p8)
16433       ans1=w11*(8*(p4p8*p4p7)*(-fmb*hbcm-fmc*hbcm)+8*(p4p7*p2p8)*(fmb
16434      . *hbcm+7*fmc*hbcm)+16*(p7p8*p2p4)*(-fmb*hbcm-fmc*hbcm)+16*(3*
16435      . fmc*hbcm*p1p2*p7p8+2*fmc*hbcm*p1p8*p4p7-3*fmc*hbcm*p2p3*p7p8-3
16436      . *fmc*hbcm*p2p5*p7p8+3*fmc*hbcm*p2p8*p3p7+3*fmc*hbcm*p2p8*p5p7-
16437      . 3*fmc*hbcm*p4p7*p5p8-2*p1p2*p2p3*p7p8+2*p1p2*p3p4*p7p8-p1p8*
16438      . p2p3*p4p7+p1p8*p3p4*p4p7+2*p2p3*p2p5*p7p8-2*p2p3*p2p8*p3p7-2*
16439      . p2p3*p2p8*p4p7-2*p2p3*p2p8*p5p7-2*p2p3*p3p4*p7p8+2*p2p3*p4p7*
16440      . p5p8+2*p2p3s2*p7p8-2*p2p5*p3p4*p7p8+2*p2p8*p3p4*p3p7+2*p2p8*
16441      . p3p4*p4p7+2*p2p8*p3p4*p5p7-2*p3p4*p4p7*p5p8))+w13*(32*(p5p8*
16442      . p4p7)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p5p7*p2p8)*(fmb*hbcm+fmc*
16443      . hbcm-hbcm2)+32*(p4p7*p2p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p3p7*
16444      . p2p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p7p8*p2p5)*(-fmb*hbcm-fmc*
16445      . hbcm+hbcm2)+32*(p7p8*p2p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p4p7*
16446      . p1p8)*(3*fmb*hbcm+3*fmc*hbcm-2*hbcm2)+32*(p7p8*p1p2)*(fmb*hbcm
16447      . +fmc*hbcm-hbcm2)+16*(2*p1p2*p1p3*p7p8+p1p3*p1p8*p4p7-2*p1p3*
16448      . p2p3*p7p8-2*p1p3*p2p5*p7p8+2*p1p3*p2p8*p3p7+2*p1p3*p2p8*p4p7+2
16449      . *p1p3*p2p8*p5p7-2*p1p3*p4p7*p5p8))+ans2
16450       ans=ccc*ans1
16451       b(5)=ans
16452       ans2=(32*p4p7*(-fb3*fmb*hbcm-fb3*fmc*hbcm-2*fb4*hbcm2)+64*(2*
16453      . fb4*p1p2*p3p7+fb4*p1p3*p4p7+2*fb4*p2p3*p4p7+2*fb4*p2p3*p5p7-2*
16454      . fb4*p2p5*p3p7-2*fb4*p3p5*p4p7))
16455       ans1=w13*(32*(p4p7*p3p5)*(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p3p7*
16456      . p2p5)*(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p5p7*p2p3)*(-fmb*hbcm-fmc*
16457      . hbcm+hbcm2)+32*(p4p7*p2p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p4p7*
16458      . p1p3)*(-3*fmb*hbcm-3*fmc*hbcm+4*hbcm2)+32*(p3p7*p1p2)*(-fmb*
16459      . hbcm-fmc*hbcm+hbcm2)+8*p4p7*(-2*fmb*fmc*hbcm2+3*fmb*hbcm3-fmb2
16460      . *hbcm2+3*fmc*hbcm3-fmc2*hbcm2-2*hbcm4-2*p1p3s2)+32*(-p1p2*p1p3
16461      . *p3p7-p1p3*p2p3*p4p7-p1p3*p2p3*p5p7+p1p3*p2p5*p3p7+p1p3*p3p5*
16462      . p4p7))+w11*(8*(p4p7*p3p4)*(fmb*hbcm+fmc*hbcm+4*hbcm2)+16*(p3p7
16463      . *p2p4)*(fmb*hbcm+fmc*hbcm+2*hbcm2)+8*(p4p7*p2p3)*(-fmb*hbcm-7*
16464      . fmc*hbcm-4*hbcm2)+8*p4p7*(fmb*fmc*hbcm2+4*fmc*hbcm3+fmc2*hbcm2
16465      . +4*p2p3s2)+16*(-3*fmc*hbcm*p1p2*p3p7-2*fmc*hbcm*p1p3*p4p7-3*
16466      . fmc*hbcm*p2p3*p5p7+3*fmc*hbcm*p2p5*p3p7+3*fmc*hbcm*p3p5*p4p7+
16467      . hbcm2*p1p2*p4p7-hbcm2*p1p4*p4p7+2*hbcm2*p2p4*p5p7+2*p1p2*p2p3*
16468      . p3p7-2*p1p2*p3p4*p3p7+p1p3*p2p3*p4p7-p1p3*p3p4*p4p7-2*p2p3*
16469      . p2p5*p3p7-2*p2p3*p3p4*p4p7-2*p2p3*p3p4*p5p7-2*p2p3*p3p5*p4p7+2
16470      . *p2p3s2*p5p7+2*p2p5*p3p4*p3p7+2*p3p4*p3p5*p4p7))+ans2
16471       ans=ccc*ans1
16472       b(6)=ans
16473       ans4=16*(-2*fmc*hbcm2*p1p2*p7p8-fmc*hbcm2*p1p8*p4p7+2*fmc*hbcm2
16474      . *p2p5*p7p8-2*fmc*hbcm2*p2p8*p5p7+2*fmc*hbcm2*p4p7*p5p8+hbcm*
16475      . p1p2*p2p3*p7p8-hbcm*p1p2*p2p8*p3p7-3*hbcm*p1p2*p3p4*p7p8+3*
16476      . hbcm*p1p2*p3p7*p4p8+4*hbcm*p1p3*p2p4*p7p8-2*hbcm*p1p3*p2p8*
16477      . p4p7+2*hbcm*p1p3*p4p7*p4p8+2*hbcm*p1p4*p2p3*p7p8-2*hbcm*p1p4*
16478      . p2p8*p3p7+2*hbcm*p1p8*p2p3*p4p7-4*hbcm*p1p8*p2p4*p3p7-2*hbcm*
16479      . p1p8*p3p4*p4p7+6*hbcm*p2p3*p2p4*p7p8-3*hbcm*p2p3*p2p5*p7p8+3*
16480      . hbcm*p2p3*p4p7*p4p8-3*hbcm*p2p3*p4p7*p5p8+3*hbcm*p2p3*p4p8*
16481      . p5p7-6*hbcm*p2p4*p2p8*p3p7-6*hbcm*p2p4*p3p5*p7p8+6*hbcm*p2p4*
16482      . p3p7*p5p8+3*hbcm*p2p5*p2p8*p3p7+3*hbcm*p2p5*p3p4*p7p8-3*hbcm*
16483      . p2p5*p3p7*p4p8-3*hbcm*p2p8*p3p4*p4p7-3*hbcm*p2p8*p3p4*p5p7+3*
16484      . hbcm*p2p8*p3p5*p4p7+3*hbcm*p3p4*p4p7*p5p8-3*hbcm*p3p5*p4p7*
16485      . p4p8)
16486       ans3=16*(p3p7*p3p4*p2p8)*(-fmb+3*fmc-hbcm)+16*p7p8*(-fmb*p2p3s2
16487      . +3*fmc*p2p3s2-hbcm*p2p3s2)+16*(p7p8*p3p4*p2p3)*(fmb-3*fmc+hbcm
16488      . )+16*(p3p7*p2p8*p2p3)*(fmb-3*fmc+hbcm)+8*(p4p8*p4p7)*(-fmb*
16489      . hbcm2+3*fmc*hbcm2-4*hbcm3)+8*(p4p7*p2p8)*(fmb*hbcm2-7*fmc*
16490      . hbcm2+4*hbcm3)+16*(p7p8*p2p4)*(-fmb*hbcm2+3*fmc*hbcm2-4*hbcm3)
16491      . +16*(p3p7*p2p8)*(-fmb*fmc*hbcm-2*fmc*hbcm2+5*fmc2*hbcm)+16*(
16492      . p7p8*p2p3)*(fmb*fmc*hbcm+2*fmc*hbcm2-5*fmc2*hbcm)+ans4
16493       ans2=w11*ans3
16494       ans5=(64*(p3p7*p2p8)*(-fb3*fmc+fb3*hbcm+fb4*fmb-2*fb4*fmc)+64*(
16495      . p7p8*p2p3)*(fb3*fmc-fb3*hbcm-fb4*fmb+2*fb4*fmc)+64*(fb3*hbcm*
16496      . p1p2*p7p8-fb3*hbcm*p2p5*p7p8+fb3*hbcm*p2p8*p4p7+fb3*hbcm*p2p8*
16497      . p5p7-fb3*hbcm*p4p7*p5p8))
16498       ans1=w13*(16*(p3p7*p2p8*p1p3)*(-fmb+3*fmc-hbcm)+16*(p7p8*p2p3*
16499      . p1p3)*(fmb-3*fmc+hbcm)+16*(p5p8*p4p7)*(-fmb*hbcm2-fmc*hbcm2+
16500      . hbcm3)+16*(p5p7*p2p8)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+16*(p4p7*
16501      . p2p8)*(fmb*hbcm2+fmc*hbcm2-hbcm3)+32*(p3p7*p2p8)*(fmb*hbcm2-
16502      . fmb2*hbcm-fmc*hbcm2+fmc2*hbcm)+16*(p7p8*p2p5)*(-fmb*hbcm2-fmc*
16503      . hbcm2+hbcm3)+32*(p7p8*p2p3)*(-fmb*hbcm2+fmb2*hbcm+fmc*hbcm2-
16504      . fmc2*hbcm)+8*(p4p7*p1p8)*(fmb*hbcm2+fmc*hbcm2)+16*(p7p8*p1p2)*
16505      . (fmb*hbcm2+fmc*hbcm2-hbcm3)+16*(hbcm*p1p2*p1p3*p7p8-hbcm*p1p2*
16506      . p1p8*p3p7-hbcm*p1p3*p2p5*p7p8+hbcm*p1p3*p2p8*p4p7+hbcm*p1p3*
16507      . p2p8*p5p7-hbcm*p1p3*p4p7*p5p8-hbcm*p1p8*p2p3*p4p7-hbcm*p1p8*
16508      . p2p3*p5p7+hbcm*p1p8*p2p5*p3p7+hbcm*p1p8*p3p5*p4p7))+ans2+ans5
16509       ans=ccc*ans1
16510       b(7)=ans
16511       b(8)=ccc*(w11*(16*(p3p6*p2p8)*(fmc*hbcm+fmc2)+16*(p6p8*p2p4)*(-
16512      . fmb*hbcm+fmc*hbcm)+16*(3*fmc*hbcm*p2p8*p4p6-p2p3*p2p4*p6p8-
16513      . p2p3*p2p8*p3p6-2*p2p3*p2p8*p4p6+p2p4*p3p4*p6p8+p2p8*p3p4*p3p6+
16514      . 2*p2p8*p3p4*p4p6))+w13*(32*(p4p6*p2p8)*(fmb*hbcm+fmc*hbcm-
16515      . hbcm2)+16*(p6p8*p2p4)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p3p6*p2p8)
16516      . *(fmb*fmc+fmc2-hbcm2)+16*(p1p3*p2p4*p6p8+p1p3*p2p8*p3p6+2*p1p3
16517      . *p2p8*p4p6))+64*(-fb4*p2p4*p6p8-fb4*p2p8*p3p6-2*fb4*p2p8*p4p6)
16518      . )
16519       b(9)=ccc*(w11*(16*(p4p6*p2p3)*(-3*fmc*hbcm+hbcm2)+16*(p3p6*p2p3
16520      . )*(fmc*hbcm-fmc2)+16*(p3p6*p2p4)*(fmb*hbcm+fmc*hbcm+hbcm2)+16*
16521      . (-2*fmc*hbcm*p1p2*p3p6+2*fmc*hbcm*p2p5*p3p6-hbcm2*p1p2*p4p6+2*
16522      . hbcm2*p2p4*p4p6+hbcm2*p2p5*p4p6+p1p2*p2p3*p3p6-p1p2*p3p4*p3p6-
16523      . p2p3*p2p5*p3p6-2*p2p3*p3p4*p4p6+2*p2p3s2*p4p6+p2p5*p3p4*p3p6))
16524      . +w13*(16*(p3p6*p2p5)*(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p4p6*p2p3)*
16525      . (-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p3p6*p1p2)*(-fmb*hbcm-fmc*hbcm+
16526      . hbcm2)+16*(p3p6*p2p3)*(-fmb*fmc+fmb*hbcm+fmc*hbcm-fmc2)+16*(-
16527      . p1p2*p1p3*p3p6-2*p1p3*p2p3*p4p6+p1p3*p2p5*p3p6))+64*(fb4*p1p2*
16528      . p3p6+2*fb4*p2p3*p4p6-fb4*p2p5*p3p6))
16529       ans2=w11*(16*(p4p8*p3p6*p2p3)*(fmc-hbcm)+16*(p3p6*p3p4*p2p8)*(-
16530      . fmb+hbcm)+16*p6p8*(-fmb*p2p3s2+fmc*p2p3s2)+16*(p6p8*p3p4*p2p3)
16531      . *(fmb-fmc)+16*(p3p6*p2p8*p2p3)*(fmb-fmc)+16*(p6p8*p2p4)*(-fmb*
16532      . hbcm2+fmc*hbcm2-2*hbcm3)+16*(p3p6*p2p8)*(-fmb*fmc*hbcm-fmc*
16533      . hbcm2+3*fmc2*hbcm)+16*(p6p8*p2p3)*(fmb*fmc*hbcm+fmc*hbcm2-3*
16534      . fmc2*hbcm)+16*(-fmc*hbcm2*p1p2*p6p8+fmc*hbcm2*p2p5*p6p8-2*hbcm
16535      . *p1p2*p3p4*p6p8+2*hbcm*p1p2*p3p6*p4p8+2*hbcm*p1p3*p2p4*p6p8+2*
16536      . hbcm*p1p3*p2p8*p4p6+2*hbcm*p1p4*p2p3*p6p8-2*hbcm*p1p4*p2p8*
16537      . p3p6-2*hbcm*p1p8*p2p3*p4p6-2*hbcm*p1p8*p2p4*p3p6+4*hbcm*p2p3*
16538      . p2p4*p6p8-2*hbcm*p2p3*p2p5*p6p8+3*hbcm*p2p3*p4p6*p4p8+2*hbcm*
16539      . p2p3*p4p6*p5p8-4*hbcm*p2p4*p2p8*p3p6-4*hbcm*p2p4*p3p5*p6p8+4*
16540      . hbcm*p2p4*p3p6*p5p8+2*hbcm*p2p5*p2p8*p3p6+2*hbcm*p2p5*p3p4*
16541      . p6p8-2*hbcm*p2p5*p3p6*p4p8-3*hbcm*p2p8*p3p4*p4p6-2*hbcm*p2p8*
16542      . p3p5*p4p6-2*hbcm3*p2p8*p4p6))+(8*(p6p8*p2p3)*(-8*fb4*fmb+8*fb4
16543      . *fmc-hbcm)+8*(p3p6*p2p8)*(-8*fb3*fmc+8*fb3*hbcm+8*fb4*fmb-8*
16544      . fb4*fmc+hbcm)+64*fb3*hbcm*p2p8*p4p6)
16545       ans1=w13*(32*(p3p6*p3p5*p2p8)*(fmc-hbcm)+32*(p5p8*p3p6*p2p3)*(-
16546      . fmc+hbcm)+16*(p3p6*p2p3*p1p8)*(fmc-hbcm)+16*(p3p6*p2p8*p1p3)*(
16547      . -fmb+hbcm)+16*(p6p8*p2p3*p1p3)*(fmb-fmc)+16*(p4p6*p2p8)*(fmb*
16548      . hbcm2+fmc*hbcm2-hbcm3)+16*(p3p6*p2p8)*(fmb*hbcm2-fmb2*hbcm+
16549      . fmc2*hbcm-hbcm3)+16*(p6p8*p2p3)*(-fmb*hbcm2+fmb2*hbcm+fmc*
16550      . hbcm2-fmc2*hbcm)+16*(hbcm*p1p3*p2p8*p4p6-hbcm*p1p8*p2p3*p4p6))
16551      . +ans2
16552       ans=ccc*ans1
16553       b(10)=ans
16554       ans2=w11*(32*(p3p7*p3p6*p2p4)*(fmc-hbcm)+16*(p4p7*p3p6*p3p4)*(
16555      . fmb-hbcm)+16*p6p7*(fmb*p2p3s2-3*fmc*p2p3s2+hbcm*p2p3s2)+16*(
16556      . p4p7*p3p6*p2p3)*(-fmb+hbcm)+16*(p6p7*p3p4*p2p3)*(-fmb+3*fmc-
16557      . hbcm)+16*(p6p7*p2p4)*(fmb*hbcm2-3*fmc*hbcm2+4*hbcm3)+16*(p4p7*
16558      . p3p6)*(fmb*fmc*hbcm+fmc*hbcm2-3*fmc2*hbcm)+16*(p6p7*p2p3)*(-
16559      . fmb*fmc*hbcm-2*fmc*hbcm2+5*fmc2*hbcm)+16*(2*fmc*hbcm2*p1p2*
16560      . p6p7-2*fmc*hbcm2*p2p5*p6p7-hbcm*p1p2*p2p3*p6p7+3*hbcm*p1p2*
16561      . p3p4*p6p7-2*hbcm*p1p2*p3p6*p4p7-2*hbcm*p1p2*p3p7*p4p6-4*hbcm*
16562      . p1p3*p2p4*p6p7-2*hbcm*p1p3*p4p6*p4p7-2*hbcm*p1p4*p2p3*p6p7+2*
16563      . hbcm*p1p4*p3p6*p4p7-6*hbcm*p2p3*p2p4*p6p7+3*hbcm*p2p3*p2p5*
16564      . p6p7-5*hbcm*p2p3*p4p6*p4p7-2*hbcm*p2p3*p4p6*p5p7+6*hbcm*p2p4*
16565      . p3p5*p6p7-4*hbcm*p2p4*p3p6*p5p7+6*hbcm*p2p4*p3p7*p4p6-3*hbcm*
16566      . p2p5*p3p4*p6p7+2*hbcm*p2p5*p3p7*p4p6+3*hbcm*p3p4*p4p6*p4p7+2*
16567      . hbcm*p3p5*p4p6*p4p7+2*hbcm3*p4p6*p4p7))+(8*(p4p7*p3p6)*(8*fb3*
16568      . fmc-8*fb3*hbcm-8*fb4*fmb+8*fb4*fmc-hbcm)+64*(p6p7*p2p3)*(-fb3*
16569      . fmc+fb3*hbcm+fb4*fmb-2*fb4*fmc)+64*(-fb3*hbcm*p1p2*p6p7+fb3*
16570      . hbcm*p2p5*p6p7-fb3*hbcm*p4p6*p4p7))
16571       ans1=w13*(32*(p4p7*p3p6*p3p5)*(-fmc+hbcm)+32*(p3p7*p3p6*p2p5)*(
16572      . -fmc+hbcm)+32*(p5p7*p3p6*p2p3)*(fmc-hbcm)+32*(p4p7*p3p6*p2p3)*
16573      . (fmc-hbcm)+32*(p3p7*p3p6*p1p2)*(fmc-hbcm)+16*(p4p7*p3p6*p1p3)*
16574      . (fmb-hbcm)+16*(p6p7*p2p3*p1p3)*(-fmb+3*fmc-hbcm)+16*(p4p7*p4p6
16575      . )*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+16*(p4p7*p3p6)*(-fmb*hbcm2+fmb2
16576      . *hbcm-fmc2*hbcm+hbcm3)+16*(p6p7*p2p5)*(fmb*hbcm2+fmc*hbcm2-
16577      . hbcm3)+32*(p6p7*p2p3)*(fmb*hbcm2-fmb2*hbcm-fmc*hbcm2+fmc2*hbcm
16578      . )+16*(p6p7*p1p2)*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+16*(-hbcm*p1p2*
16579      . p1p3*p6p7+hbcm*p1p3*p2p5*p6p7-hbcm*p1p3*p4p6*p4p7))+ans2
16580       ans=ccc*ans1
16581       b(11)=ans
16582       ans4=32*(fmc*hbcm*p1p3*p4p7*p6p8-fmc*hbcm*p1p8*p2p3*p6p7-fmc*
16583      . hbcm*p1p8*p3p6*p4p7-3*fmc*hbcm*p2p8*p3p7*p4p6-2*fmc*hbcm*p3p5*
16584      . p4p7*p6p8+2*fmc*hbcm*p3p6*p4p7*p5p8-hbcm2*p1p2*p2p8*p6p7-hbcm2
16585      . *p1p2*p4p7*p6p8+hbcm2*p1p2*p4p8*p6p7+hbcm2*p1p4*p4p7*p6p8-
16586      . hbcm2*p1p8*p2p4*p6p7-hbcm2*p1p8*p4p6*p4p7-hbcm2*p2p4*p3p7*p6p8
16587      . -hbcm2*p2p4*p5p7*p6p8+2*hbcm2*p2p4*p5p8*p6p7+hbcm2*p2p5*p2p8*
16588      . p6p7-hbcm2*p2p5*p4p8*p6p7-hbcm2*p2p8*p4p6*p4p7+hbcm2*p4p6*p4p7
16589      . *p4p8+hbcm2*p4p6*p4p7*p5p8-p1p8*p2p3*p3p4*p6p7+p1p8*p2p3s2*
16590      . p6p7-2*p2p3*p2p8*p3p4*p6p7+p2p3*p2p8*p3p6*p3p7+2*p2p3*p2p8*
16591      . p3p7*p4p6+2*p2p3*p3p4*p4p8*p6p7+p2p3*p3p5*p4p7*p6p8-p2p3*p3p6*
16592      . p4p7*p5p8+2*p2p3s2*p2p8*p6p7-2*p2p3s2*p4p8*p6p7-p2p8*p3p4*p3p6
16593      . *p3p7-2*p2p8*p3p4*p3p7*p4p6-p3p4*p3p5*p4p7*p6p8+p3p4*p3p6*p4p7
16594      . *p5p8)
16595       ans3=32*(p3p7*p3p6*p2p8)*(-fmc*hbcm-fmc2)+16*(p4p8*p4p7*p3p6)*(
16596      . fmb*hbcm+fmc*hbcm+hbcm2)+16*(p6p8*p4p7*p3p4)*(-fmb*hbcm-fmc*
16597      . hbcm-2*hbcm2)+16*(p4p7*p3p6*p2p8)*(-fmb*hbcm-fmc*hbcm-hbcm2)+
16598      . 16*(p6p7*p4p8*p2p3)*(-fmb*hbcm+5*fmc*hbcm-2*hbcm2)+16*(p6p8*
16599      . p4p7*p2p3)*(fmb*hbcm+fmc*hbcm+2*hbcm2)+16*(p6p7*p2p8*p2p3)*(
16600      . fmb*hbcm-5*fmc*hbcm+2*hbcm2)+16*(p6p8*p4p7)*(-fmb*fmc*hbcm2-2*
16601      . fmc*hbcm3-fmc2*hbcm2)+ans4
16602       ans2=w11*ans3
16603       ans5=(16*(p6p8*p4p7)*(4*fb3*fmb*hbcm+4*fb4*fmc*hbcm-hbcm2)+128*
16604      . (fb4*p1p8*p2p3*p6p7+2*fb4*p2p3*p2p8*p6p7-2*fb4*p2p3*p4p8*p6p7+
16605      . fb4*p2p8*p3p6*p3p7+2*fb4*p2p8*p3p7*p4p6+fb4*p3p5*p4p7*p6p8-fb4
16606      . *p3p6*p4p7*p5p8))
16607       ans1=w13*(16*(p6p8*p4p7)*(-fmb*hbcm3-fmc*hbcm3+hbcm4)+32*(p5p8*
16608      . p4p7*p3p6)*(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p6p8*p4p7*p3p5)*(-fmb
16609      . *hbcm-fmc*hbcm+hbcm2)+64*(p4p6*p3p7*p2p8)*(-fmb*hbcm-fmc*hbcm+
16610      . hbcm2)+64*(p6p7*p4p8*p2p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+64*(p6p7*
16611      . p2p8*p2p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p4p7*p3p6*p1p8)*(-
16612      . fmb*hbcm-fmc*hbcm+hbcm2)+16*(p6p7*p2p3*p1p8)*(-fmb*hbcm-fmc*
16613      . hbcm+2*hbcm2)+16*(p6p8*p4p7*p1p3)*(fmb*hbcm+fmc*hbcm-2*hbcm2)+
16614      . 32*(p3p7*p3p6*p2p8)*(-fmb*fmc-fmc2+hbcm2)+32*(-p1p3*p1p8*p2p3*
16615      . p6p7-2*p1p3*p2p3*p2p8*p6p7+2*p1p3*p2p3*p4p8*p6p7-p1p3*p2p8*
16616      . p3p6*p3p7-2*p1p3*p2p8*p3p7*p4p6-p1p3*p3p5*p4p7*p6p8+p1p3*p3p6*
16617      . p4p7*p5p8))+ans2+ans5
16618       ans=ccc*ans1
16619       b(12)=ans
16620       b(13)=ccc*(w13*(8*(p2p8*p1p3)*(fmb-3*fmc+2*hbcm)+8*p2p8*(-fmb*
16621      . hbcm2+2*fmb2*hbcm+3*fmc*hbcm2-2*fmc2*hbcm-hbcm3)+8*(hbcm*p1p2*
16622      . p1p8-hbcm*p1p8*p2p3-hbcm*p1p8*p2p5))+w11*(8*(p3p4*p2p8)*(fmb-3
16623      . *fmc-2*hbcm)+8*(p2p8*p2p3)*(-fmb+3*fmc-hbcm)+8*p2p8*(fmb*fmc*
16624      . hbcm-5*fmc2*hbcm)+8*(hbcm*p1p2*p2p8-3*hbcm*p1p2*p4p8+2*hbcm*
16625      . p1p4*p2p8+4*hbcm*p1p8*p2p4+3*hbcm*p2p3*p4p8+6*hbcm*p2p4*p2p8-6
16626      . *hbcm*p2p4*p5p8-3*hbcm*p2p5*p2p8+3*hbcm*p2p5*p4p8))+32*p2p8*(
16627      . fb3*fmc-fb4*fmb+2*fb4*fmc))
16628       b(14)=ccc*(w11*(8*p2p4*(fmb*hbcm+fmc*hbcm)+8*(-3*fmc*hbcm*p1p2+
16629      . 3*fmc*hbcm*p2p3+3*fmc*hbcm*p2p5+2*p1p2*p2p3-2*p1p2*p3p4-2*p2p3
16630      . *p2p5+2*p2p3*p3p4-2*p2p3s2+2*p2p5*p3p4))+w13*(16*p2p5*(fmb*
16631      . hbcm+fmc*hbcm-hbcm2)+16*p2p3*(fmb*hbcm+fmc*hbcm-hbcm2)+16*p1p2
16632      . *(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(-p1p2*p1p3+p1p3*p2p3+p1p3*p2p5
16633      . ))+64*(fb4*p1p2-fb4*p2p3-fb4*p2p5))
16634       ans=ccc*(w13*(32*(p3p5*p2p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(
16635      . p5p8*p2p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p2p3*p1p8)*(-3*fmb*
16636      . hbcm-3*fmc*hbcm+2*hbcm2)+8*(p2p8*p1p3)*(3*fmb*hbcm+3*fmc*hbcm-
16637      . 4*hbcm2)+8*p2p8*(2*fmb*fmc*hbcm2-3*fmb*hbcm3+fmb2*hbcm2-3*fmc*
16638      . hbcm3+fmc2*hbcm2+2*hbcm4+2*p1p3s2)+16*(-p1p3*p1p8*p2p3+2*p1p3*
16639      . p2p3*p5p8-2*p1p3*p2p8*p3p5))+w11*(8*(p3p4*p2p8)*(-fmb*hbcm-fmc
16640      . *hbcm-4*hbcm2)+8*(p4p8*p2p3)*(fmb*hbcm+fmc*hbcm+2*hbcm2)+8*
16641      . p2p8*(-fmb*fmc*hbcm2-4*fmc*hbcm3-fmc2*hbcm2)+16*(2*fmc*hbcm*
16642      . p1p3*p2p8-2*fmc*hbcm*p1p8*p2p3+3*fmc*hbcm*p2p3*p5p8-3*fmc*hbcm
16643      . *p2p8*p3p5-hbcm2*p1p2*p4p8+hbcm2*p1p4*p2p8+hbcm2*p1p8*p2p4+
16644      . hbcm2*p2p3*p2p8+2*hbcm2*p2p4*p2p8-2*hbcm2*p2p4*p5p8-hbcm2*p2p5
16645      . *p2p8+hbcm2*p2p5*p4p8-p1p3*p2p3*p2p8+p1p3*p2p8*p3p4-p1p8*p2p3*
16646      . p3p4+p1p8*p2p3s2+2*p2p3*p2p8*p3p5+2*p2p3*p3p4*p5p8-2*p2p3s2*
16647      . p5p8-2*p2p8*p3p4*p3p5))+(32*p2p8*(fb3*fmb*hbcm+fb3*fmc*hbcm+2*
16648      . fb4*hbcm2)+64*(-fb4*p1p3*p2p8+fb4*p1p8*p2p3-2*fb4*p2p3*p5p8+2*
16649      . fb4*p2p8*p3p5)))
16650       b(15)=ans
16651       b(16)=ccc*(w13*(8*(p2p3*p1p3)*(-fmb+3*fmc-hbcm)+8*p2p5*(fmb*
16652      . hbcm2+fmc*hbcm2-hbcm3)+16*p2p3*(fmb*hbcm2-fmb2*hbcm-fmc*hbcm2+
16653      . fmc2*hbcm)+8*p1p2*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+8*(-hbcm*p1p2*
16654      . p1p3+hbcm*p1p3*p2p5))+w11*(8*(p3p4*p2p3)*(-fmb+3*fmc-hbcm)+8*
16655      . p2p4*(fmb*hbcm2-3*fmc*hbcm2+4*hbcm3)+8*p2p3*(-fmb*fmc*hbcm-2*
16656      . fmc*hbcm2+5*fmc2*hbcm)+8*(fmb*p2p3s2+2*fmc*hbcm2*p1p2-2*fmc*
16657      . hbcm2*p2p5-3*fmc*p2p3s2-hbcm*p1p2*p2p3+3*hbcm*p1p2*p3p4-4*hbcm
16658      . *p1p3*p2p4-2*hbcm*p1p4*p2p3-6*hbcm*p2p3*p2p4+3*hbcm*p2p3*p2p5+
16659      . hbcm*p2p3s2+6*hbcm*p2p4*p3p5-3*hbcm*p2p5*p3p4))+(32*p2p3*(-fb3
16660      . *fmc+fb3*hbcm+fb4*fmb-2*fb4*fmc)+32*(-fb3*hbcm*p1p2+fb3*hbcm*
16661      . p2p5)))
16662       b(17)=ccc*(w13*(16*(p5p8*p3p6)*(fmc-hbcm)+8*(p3p6*p1p8)*(-fmc+
16663      . hbcm)+8*(p6p8*p1p3)*(-fmb+fmc)+8*p6p8*(fmb*hbcm2-fmb2*hbcm-fmc
16664      . *hbcm2+fmc2*hbcm)+8*hbcm*p1p8*p4p6)+w11*(8*(p4p8*p3p6)*(-fmc-
16665      . hbcm)+8*(p3p6*p2p8)*(fmc+hbcm)+8*(p6p8*p3p4)*(-fmb+fmc+2*hbcm)
16666      . +8*(p6p8*p2p3)*(fmb-fmc-2*hbcm)+8*p6p8*(-fmb*fmc*hbcm+3*fmc2*
16667      . hbcm)+8*(2*hbcm*p1p2*p6p8-2*hbcm*p1p4*p6p8+2*hbcm*p1p8*p4p6-4*
16668      . hbcm*p2p4*p6p8+3*hbcm*p2p8*p4p6-3*hbcm*p4p6*p4p8-2*hbcm*p4p6*
16669      . p5p8))+4*p6p8*(8*fb4*fmb-8*fb4*fmc+hbcm))
16670       b(18)=ccc*(w11*(8*p3p6*(fmc*hbcm+fmc2)+8*(3*fmc*hbcm*p4p6-p2p3*
16671      . p3p6-2*p2p3*p4p6+p3p4*p3p6+2*p3p4*p4p6))+w13*(16*p4p6*(fmb*
16672      . hbcm+fmc*hbcm-hbcm2)+8*p3p6*(fmb*fmc+fmc2-hbcm2)+8*(p1p3*p3p6+
16673      . 2*p1p3*p4p6))+32*(-fb4*p3p6-2*fb4*p4p6))
16674       b(19)=ccc*(w11*(4*p4p8*(-fmb*hbcm2+3*fmc*hbcm2-4*hbcm3)+4*p2p8*
16675      . (fmb*hbcm2-3*fmc*hbcm2+4*hbcm3)+8*(-fmc*hbcm2*p1p8+2*fmc*hbcm2
16676      . *p5p8-2*hbcm*p1p3*p2p8+2*hbcm*p1p3*p4p8+2*hbcm*p1p8*p2p3-2*
16677      . hbcm*p1p8*p3p4-3*hbcm*p2p3*p5p8+3*hbcm*p2p8*p3p5+3*hbcm*p3p4*
16678      . p5p8-3*hbcm*p3p5*p4p8))+w13*(8*p5p8*(-fmb*hbcm2-fmc*hbcm2+
16679      . hbcm3)+4*p1p8*(fmb*hbcm2+fmc*hbcm2)+8*(-hbcm*p1p3*p5p8+hbcm*
16680      . p1p8*p3p5))-32*fb3*hbcm*p5p8)
16681       b(20)=ccc*(w11*(4*p4p8*(-fmb*hbcm-fmc*hbcm)+4*p2p8*(fmb*hbcm+
16682      . fmc*hbcm)+8*(2*fmc*hbcm*p1p8-3*fmc*hbcm*p5p8-p1p8*p2p3+p1p8*
16683      . p3p4+2*p2p3*p5p8-2*p3p4*p5p8))+w13*(16*p5p8*(-fmb*hbcm-fmc*
16684      . hbcm+hbcm2)+4*p1p8*(3*fmb*hbcm+3*fmc*hbcm-2*hbcm2)+8*(p1p3*
16685      . p1p8-2*p1p3*p5p8))+32*(-fb4*p1p8+2*fb4*p5p8))
16686       b(21)=ccc*(w13*(8*(p7p8*p1p3)*(-fmb+3*fmc-2*hbcm)+8*p7p8*(fmb*
16687      . hbcm2-2*fmb2*hbcm-3*fmc*hbcm2+2*fmc2*hbcm+hbcm3)+8*(hbcm*p1p8*
16688      . p3p7+hbcm*p1p8*p4p7+hbcm*p1p8*p5p7))+w11*(8*(p7p8*p3p4)*(-fmb+
16689      . 3*fmc+2*hbcm)+8*(p7p8*p2p3)*(fmb-3*fmc-2*hbcm)+8*p7p8*(-fmb*
16690      . fmc*hbcm+5*fmc2*hbcm)+8*(2*hbcm*p1p2*p7p8-2*hbcm*p1p4*p7p8-6*
16691      . hbcm*p2p4*p7p8+3*hbcm*p2p8*p3p7+3*hbcm*p2p8*p4p7+3*hbcm*p2p8*
16692      . p5p7-3*hbcm*p3p7*p4p8-3*hbcm*p4p7*p4p8-3*hbcm*p4p8*p5p7))+32*
16693      . p7p8*(-fb3*fmc+fb4*fmb-2*fb4*fmc))
16694       b(22)=ccc*(w13*(4*p1p3*(-fmb+3*fmc-2*hbcm)+4*(fmb*hbcm2-2*fmb2*
16695      . hbcm-3*fmc*hbcm2+2*fmc2*hbcm+hbcm3))+w11*(4*p3p4*(-fmb+3*fmc+2
16696      . *hbcm)+4*p2p3*(fmb-3*fmc-2*hbcm)+4*(-fmb*fmc*hbcm+5*fmc2*hbcm+
16697      . 2*hbcm*p1p2-2*hbcm*p1p4-6*hbcm*p2p4))+16*(-fb3*fmc+fb4*fmb-2*
16698      . fb4*fmc))
16699       b(23)=ccc*(8*w11*(-3*fmc*hbcm*p3p7-3*fmc*hbcm*p4p7-3*fmc*hbcm*
16700      . p5p7+2*p2p3*p3p7+2*p2p3*p4p7+2*p2p3*p5p7-2*p3p4*p3p7-2*p3p4*
16701      . p4p7-2*p3p4*p5p7)+w13*(16*p5p7*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*
16702      . p4p7*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*p3p7*(-fmb*hbcm-fmc*hbcm+
16703      . hbcm2)+16*(-p1p3*p3p7-p1p3*p4p7-p1p3*p5p7))+64*(fb4*p3p7+fb4*
16704      . p4p7+fb4*p5p7))
16705       b(24)=ccc*(w13*(16*p3p5*(fmb*hbcm+fmc*hbcm-hbcm2)+4*p1p3*(-3*
16706      . fmb*hbcm-3*fmc*hbcm+4*hbcm2)+4*(-2*fmb*fmc*hbcm2+3*fmb*hbcm3-
16707      . fmb2*hbcm2+3*fmc*hbcm3-fmc2*hbcm2-2*hbcm4+4*p1p3*p3p5-2*p1p3s2
16708      . ))+w11*(4*p3p4*(fmb*hbcm+fmc*hbcm+4*hbcm2)+4*p2p3*(-fmb*hbcm-
16709      . fmc*hbcm-4*hbcm2)+4*(fmb*fmc*hbcm2-4*fmc*hbcm*p1p3+6*fmc*hbcm*
16710      . p3p5+4*fmc*hbcm3+fmc2*hbcm2+2*hbcm2*p1p2-2*hbcm2*p1p4-4*hbcm2*
16711      . p2p4+2*p1p3*p2p3-2*p1p3*p3p4-4*p2p3*p3p5+4*p3p4*p3p5))+16*(-
16712      . fb3*fmb*hbcm-fb3*fmc*hbcm-2*fb4*hbcm2+2*fb4*p1p3-4*fb4*p3p5))
16713       b(25)=ccc*(w13*(8*(p3p7*p1p3)*(fmb-3*fmc+hbcm)+8*p5p7*(-fmb*
16714      . hbcm2-fmc*hbcm2+hbcm3)+8*p4p7*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+16*
16715      . p3p7*(-fmb*hbcm2+fmb2*hbcm+fmc*hbcm2-fmc2*hbcm)+8*(-hbcm*p1p3*
16716      . p4p7-hbcm*p1p3*p5p7))+w11*(8*(p3p7*p3p4)*(fmb-3*fmc+hbcm)+8*(
16717      . p3p7*p2p3)*(-fmb+3*fmc-hbcm)+8*p3p7*(fmb*fmc*hbcm+2*fmc*hbcm2-
16718      . 5*fmc2*hbcm)+8*(2*fmc*hbcm2*p4p7+2*fmc*hbcm2*p5p7-2*hbcm*p1p2*
16719      . p3p7+2*hbcm*p1p4*p3p7-3*hbcm*p2p3*p4p7-3*hbcm*p2p3*p5p7+6*hbcm
16720      . *p2p4*p3p7+3*hbcm*p3p4*p4p7+3*hbcm*p3p4*p5p7))+(32*p3p7*(fb3*
16721      . fmc-fb3*hbcm-fb4*fmb+2*fb4*fmc)+32*(-fb3*hbcm*p4p7-fb3*hbcm*
16722      . p5p7)))
16723       b(26)=ccc*(w13*(16*(p3p6*p3p5)*(-fmc+hbcm)+8*(p3p6*p1p3)*(fmb-
16724      . hbcm)+8*p4p6*(-fmb*hbcm2-fmc*hbcm2+hbcm3)+8*p3p6*(-fmb*hbcm2+
16725      . fmb2*hbcm-fmc2*hbcm+hbcm3)-8*hbcm*p1p3*p4p6)+w11*(8*(p3p6*p3p4
16726      . )*(fmb-hbcm)+8*(p3p6*p2p3)*(-fmb+hbcm)+8*p3p6*(fmb*fmc*hbcm+
16727      . fmc*hbcm2-3*fmc2*hbcm)+8*(-2*hbcm*p1p2*p3p6-2*hbcm*p1p3*p4p6+2
16728      . *hbcm*p1p4*p3p6-3*hbcm*p2p3*p4p6+4*hbcm*p2p4*p3p6+3*hbcm*p3p4*
16729      . p4p6+2*hbcm*p3p5*p4p6+2*hbcm3*p4p6))+(4*p3p6*(8*fb3*fmc-8*fb3*
16730      . hbcm-8*fb4*fmb+8*fb4*fmc-hbcm)-32*fb3*hbcm*p4p6))
16731       ans2=(32*p7p8*(-fb3*fmb*hbcm-fb3*fmc*hbcm-2*fb4*hbcm2)+64*(fb4*
16732      . p1p3*p7p8-fb4*p1p8*p3p7-2*fb4*p3p5*p7p8+2*fb4*p3p7*p5p8))
16733       ans1=w13*(32*(p5p8*p3p7)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(p7p8*
16734      . p3p5)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p3p7*p1p8)*(3*fmb*hbcm+3*
16735      . fmc*hbcm-2*hbcm2)+8*(p7p8*p1p3)*(-3*fmb*hbcm-3*fmc*hbcm+4*
16736      . hbcm2)+8*p7p8*(-2*fmb*fmc*hbcm2+3*fmb*hbcm3-fmb2*hbcm2+3*fmc*
16737      . hbcm3-fmc2*hbcm2-2*hbcm4-2*p1p3s2)+16*(p1p3*p1p8*p3p7+2*p1p3*
16738      . p3p5*p7p8-2*p1p3*p3p7*p5p8))+w11*(8*(p4p8*p3p7)*(-fmb*hbcm-fmc
16739      . *hbcm-2*hbcm2)+8*(p7p8*p3p4)*(fmb*hbcm+fmc*hbcm+4*hbcm2)+8*(
16740      . p3p7*p2p8)*(fmb*hbcm+fmc*hbcm+2*hbcm2)+8*(p7p8*p2p3)*(-fmb*
16741      . hbcm-fmc*hbcm-4*hbcm2)+8*p7p8*(fmb*fmc*hbcm2+4*fmc*hbcm3+fmc2*
16742      . hbcm2)+16*(-2*fmc*hbcm*p1p3*p7p8+2*fmc*hbcm*p1p8*p3p7+3*fmc*
16743      . hbcm*p3p5*p7p8-3*fmc*hbcm*p3p7*p5p8+hbcm2*p1p2*p7p8-hbcm2*p1p4
16744      . *p7p8-2*hbcm2*p2p4*p7p8+hbcm2*p2p8*p4p7+hbcm2*p2p8*p5p7-hbcm2*
16745      . p4p7*p4p8-hbcm2*p4p8*p5p7+p1p3*p2p3*p7p8-p1p3*p3p4*p7p8-p1p8*
16746      . p2p3*p3p7+p1p8*p3p4*p3p7-2*p2p3*p3p5*p7p8+2*p2p3*p3p7*p5p8+2*
16747      . p3p4*p3p5*p7p8-2*p3p4*p3p7*p5p8))+ans2
16748       ans=ccc*ans1
16749       b(27)=ans
16750       ans=ccc*(w13*(8*p6p8*(fmb*hbcm3+fmc*hbcm3-hbcm4-2*p1p3s2)+16*(
16751      . p5p8*p3p6)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p6p8*p3p4)*(fmb*hbcm+
16752      . fmc*hbcm-hbcm2)+16*(p6p8*p2p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(
16753      . p3p6*p1p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p6p8*p1p3)*(-fmb*hbcm
16754      . -fmc*hbcm+2*hbcm2)+16*(-p1p3*p2p3*p6p8+p1p3*p3p4*p6p8+p1p3*
16755      . p3p6*p5p8))+w11*(8*(p4p8*p3p6)*(fmb*hbcm+fmc*hbcm+hbcm2)+8*(
16756      . p6p8*p3p4)*(-fmb*hbcm+3*fmc*hbcm)+8*(p3p6*p2p8)*(-fmb*hbcm-fmc
16757      . *hbcm-hbcm2)+8*(p6p8*p2p3)*(fmb*hbcm-3*fmc*hbcm)+8*p6p8*(-fmb*
16758      . fmc*hbcm2+2*fmc*hbcm3-fmc2*hbcm2+2*p2p3s2+2*p3p4s2)+16*(-fmc*
16759      . hbcm*p1p3*p6p8-fmc*hbcm*p1p8*p3p6+2*fmc*hbcm*p3p6*p5p8-hbcm2*
16760      . p1p2*p6p8+hbcm2*p1p4*p6p8-hbcm2*p1p8*p4p6+hbcm2*p2p4*p6p8-
16761      . hbcm2*p2p8*p4p6+hbcm2*p4p6*p4p8+hbcm2*p4p6*p5p8+p1p3*p2p3*p6p8
16762      . -p1p3*p3p4*p6p8-2*p2p3*p3p4*p6p8-p2p3*p3p6*p5p8+p3p4*p3p6*p5p8
16763      . ))+(8*p6p8*(4*fb3*fmb*hbcm+4*fb4*fmc*hbcm-8*fb4*hbcm2-hbcm2)+
16764      . 64*(fb4*p1p3*p6p8+fb4*p2p3*p6p8-fb4*p3p4*p6p8-fb4*p3p6*p5p8)))
16765       b(28)=ans
16766       ans2=(32*p6p7*(-fb3*fmb*hbcm-fb3*fmc*hbcm+2*fb4*hbcm2)+64*(-fb4
16767      . *p1p3*p6p7-2*fb4*p2p3*p6p7+2*fb4*p3p4*p6p7+fb4*p3p6*p4p7+fb4*
16768      . p3p6*p5p7-2*fb4*p3p7*p4p6))
16769       ans1=w13*(32*(p4p6*p3p7)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p5p7*
16770      . p3p6)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p4p7*p3p6)*(-fmb*hbcm-fmc
16771      . *hbcm+hbcm2)+32*(p6p7*p3p4)*(-fmb*hbcm-fmc*hbcm+hbcm2)+32*(
16772      . p6p7*p2p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p6p7*p1p3)*(fmb*hbcm+
16773      . fmc*hbcm-4*hbcm2)+16*(p3p7*p3p6)*(fmb*fmc-fmb*hbcm-fmc*hbcm+
16774      . fmc2)+8*p6p7*(-2*fmb*fmc*hbcm2-fmb*hbcm3-fmb2*hbcm2-fmc*hbcm3-
16775      . fmc2*hbcm2+2*hbcm4+2*p1p3s2)+16*(2*p1p3*p2p3*p6p7-2*p1p3*p3p4*
16776      . p6p7-p1p3*p3p6*p4p7-p1p3*p3p6*p5p7+2*p1p3*p3p7*p4p6))+w11*(16*
16777      . (p4p6*p3p7)*(3*fmc*hbcm-hbcm2)+16*(p3p7*p3p6)*(-fmc*hbcm+fmc2)
16778      . +8*(p6p7*p3p4)*(fmb*hbcm-5*fmc*hbcm)+8*(p6p7*p2p3)*(-fmb*hbcm+
16779      . 5*fmc*hbcm)+8*p6p7*(fmb*fmc*hbcm2-2*fmc*hbcm3+fmc2*hbcm2-4*
16780      . p2p3s2-4*p3p4s2)+16*(fmc*hbcm*p1p3*p6p7-2*fmc*hbcm*p3p6*p4p7-2
16781      . *fmc*hbcm*p3p6*p5p7+hbcm2*p1p2*p6p7-hbcm2*p1p4*p6p7-2*hbcm2*
16782      . p2p4*p6p7-hbcm2*p4p6*p4p7-hbcm2*p4p6*p5p7-p1p3*p2p3*p6p7+p1p3*
16783      . p3p4*p6p7+4*p2p3*p3p4*p6p7+p2p3*p3p6*p4p7+p2p3*p3p6*p5p7-2*
16784      . p2p3*p3p7*p4p6-p3p4*p3p6*p4p7-p3p4*p3p6*p5p7+2*p3p4*p3p7*p4p6)
16785      . )+ans2
16786       ans=ccc*ans1
16787       b(29)=ans
16788       ans4=16*(-fmc*hbcm2*p1p8*p6p7-fmc*hbcm2*p4p7*p6p8-fmc*hbcm2*
16789      . p5p7*p6p8+2*fmc*hbcm2*p5p8*p6p7-2*hbcm*p1p2*p3p6*p7p8+2*hbcm*
16790      . p1p2*p3p7*p6p8-2*hbcm*p1p3*p2p8*p6p7-2*hbcm*p1p3*p4p6*p7p8+2*
16791      . hbcm*p1p3*p4p8*p6p7+2*hbcm*p1p4*p3p6*p7p8-2*hbcm*p1p4*p3p7*
16792      . p6p8+2*hbcm*p1p8*p2p3*p6p7-2*hbcm*p1p8*p3p4*p6p7+2*hbcm*p1p8*
16793      . p3p7*p4p6-3*hbcm*p2p3*p4p6*p7p8+2*hbcm*p2p3*p4p7*p6p8+2*hbcm*
16794      . p2p3*p5p7*p6p8-3*hbcm*p2p3*p5p8*p6p7+4*hbcm*p2p4*p3p6*p7p8-4*
16795      . hbcm*p2p4*p3p7*p6p8+3*hbcm*p2p8*p3p5*p6p7-2*hbcm*p2p8*p3p6*
16796      . p4p7-2*hbcm*p2p8*p3p6*p5p7+3*hbcm*p2p8*p3p7*p4p6+3*hbcm*p3p4*
16797      . p4p6*p7p8-2*hbcm*p3p4*p4p7*p6p8-2*hbcm*p3p4*p5p7*p6p8+3*hbcm*
16798      . p3p4*p5p8*p6p7+2*hbcm*p3p5*p4p6*p7p8-3*hbcm*p3p5*p4p8*p6p7+2*
16799      . hbcm*p3p6*p4p7*p4p8+2*hbcm*p3p6*p4p8*p5p7-3*hbcm*p3p7*p4p6*
16800      . p4p8-2*hbcm*p3p7*p4p6*p5p8+2*hbcm3*p4p6*p7p8)
16801       ans3=16*(p4p8*p3p7*p3p6)*(-fmc+hbcm)+16*(p3p7*p3p6*p2p8)*(fmc-
16802      . hbcm)+16*(p6p8*p3p7*p3p4)*(-fmb+fmc)+16*(p7p8*p3p6*p3p4)*(fmb-
16803      . hbcm)+16*(p6p8*p3p7*p2p3)*(fmb-fmc)+16*(p7p8*p3p6*p2p3)*(-fmb+
16804      . hbcm)+8*(p6p7*p4p8)*(-fmb*hbcm2+3*fmc*hbcm2-4*hbcm3)+8*(p6p7*
16805      . p2p8)*(fmb*hbcm2-3*fmc*hbcm2+4*hbcm3)+16*(p6p8*p3p7)*(-fmb*fmc
16806      . *hbcm-fmc*hbcm2+3*fmc2*hbcm)+16*(p7p8*p3p6)*(fmb*fmc*hbcm+fmc*
16807      . hbcm2-3*fmc2*hbcm)+ans4
16808       ans2=w11*ans3
16809       ans5=(8*(p6p8*p3p7)*(8*fb4*fmb-8*fb4*fmc+hbcm)+8*(p7p8*p3p6)*(8
16810      . *fb3*fmc-8*fb3*hbcm-8*fb4*fmb+8*fb4*fmc-hbcm)+64*(-fb3*hbcm*
16811      . p4p6*p7p8-fb3*hbcm*p5p8*p6p7))
16812       ans1=w13*(32*(p5p8*p3p7*p3p6)*(fmc-hbcm)+32*(p7p8*p3p6*p3p5)*(-
16813      . fmc+hbcm)+16*(p3p7*p3p6*p1p8)*(-fmc+hbcm)+16*(p6p8*p3p7*p1p3)*
16814      . (-fmb+fmc)+16*(p7p8*p3p6*p1p3)*(fmb-hbcm)+16*(p6p7*p5p8)*(-fmb
16815      . *hbcm2-fmc*hbcm2+hbcm3)+16*(p7p8*p4p6)*(-fmb*hbcm2-fmc*hbcm2+
16816      . hbcm3)+16*(p6p8*p3p7)*(fmb*hbcm2-fmb2*hbcm-fmc*hbcm2+fmc2*hbcm
16817      . )+16*(p7p8*p3p6)*(-fmb*hbcm2+fmb2*hbcm-fmc2*hbcm+hbcm3)+8*(
16818      . p6p7*p1p8)*(fmb*hbcm2+fmc*hbcm2)+16*(-hbcm*p1p3*p4p6*p7p8-hbcm
16819      . *p1p3*p5p8*p6p7+hbcm*p1p8*p3p5*p6p7+hbcm*p1p8*p3p7*p4p6))+ans2
16820      . +ans5
16821       ans=ccc*ans1
16822       b(30)=ans
16823       b(31)=ccc*(w11*(16*(p7p8*p3p6)*(fmc*hbcm+fmc2)+8*(p6p7*p4p8)*(
16824      . fmb*hbcm-5*fmc*hbcm)+8*(p6p7*p2p8)*(-fmb*hbcm+5*fmc*hbcm)+16*(
16825      . fmc*hbcm*p1p8*p6p7+3*fmc*hbcm*p4p6*p7p8-p1p8*p2p3*p6p7+p1p8*
16826      . p3p4*p6p7-2*p2p3*p2p8*p6p7-p2p3*p3p6*p7p8-2*p2p3*p4p6*p7p8+2*
16827      . p2p3*p4p8*p6p7+2*p2p8*p3p4*p6p7+p3p4*p3p6*p7p8+2*p3p4*p4p6*
16828      . p7p8-2*p3p4*p4p8*p6p7))+w13*(32*(p6p7*p4p8)*(-fmb*hbcm-fmc*
16829      . hbcm+hbcm2)+32*(p7p8*p4p6)*(fmb*hbcm+fmc*hbcm-hbcm2)+32*(p6p7*
16830      . p2p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p6p7*p1p8)*(fmb*hbcm+fmc*
16831      . hbcm-2*hbcm2)+16*(p7p8*p3p6)*(fmb*fmc+fmc2-hbcm2)+16*(p1p3*
16832      . p1p8*p6p7+2*p1p3*p2p8*p6p7+p1p3*p3p6*p7p8+2*p1p3*p4p6*p7p8-2*
16833      . p1p3*p4p8*p6p7))+64*(-fb4*p1p8*p6p7-2*fb4*p2p8*p6p7-fb4*p3p6*
16834      . p7p8-2*fb4*p4p6*p7p8+2*fb4*p4p8*p6p7))
16835       b(32)=ccc*(w13*(16*(p5p7*p3p6)*(fmc-hbcm)+16*(p4p7*p3p6)*(fmc-
16836      . hbcm)+16*(p3p7*p3p6)*(fmc-hbcm)+8*(p6p7*p1p3)*(-fmb+3*fmc-2*
16837      . hbcm)+8*p6p7*(fmb*hbcm2-2*fmb2*hbcm-3*fmc*hbcm2+2*fmc2*hbcm+
16838      . hbcm3))+w11*(8*(p6p7*p3p4)*(-fmb+3*fmc+2*hbcm)+8*(p6p7*p2p3)*(
16839      . fmb-3*fmc-2*hbcm)+8*p6p7*(-fmb*fmc*hbcm+5*fmc2*hbcm)+16*(hbcm*
16840      . p1p2*p6p7-hbcm*p1p4*p6p7-3*hbcm*p2p4*p6p7-hbcm*p3p7*p4p6-hbcm*
16841      . p4p6*p4p7-hbcm*p4p6*p5p7))+32*p6p7*(-fb3*fmc+fb4*fmb-2*fb4*fmc
16842      . ))
16843       do 200 n=1,32
16844          c(n,1)=c(n,1)+0.09090909090909091d0*b(n)
16845          c(n,2)=c(n,2)-0.01680909685530997d0*b(n)
16846          c(n,3)=c(n,3)-0.02077659977796572d0*b(n)
16847 200   continue
16848       return
16849         end
16850
16851       double precision function ams1_3p1(n)
16852       implicit double precision(a-h,o-z)
16853       implicit integer (i-n)
16854 #include "inclppp.h"
16855 #include "inclcon.h"
16856 #include "inclamp.h"
16857       b1=p10p10
16858       b2=p9p9
16859       b3=b1+b2
16860       b4=-2*p4p10*p5p10
16861       b5=b4
16862       b6=-2*epspn0
16863       b7=-2*p4p9*p5p9
16864       b8=b7
16865       aa1=b3*p4p5+b5+b6+b8
16866       b1=-p10p10
16867       b2=p9p9
16868       b3=b1+b2
16869       b4=2*c(12,n)*p0p9
16870       b5=-p12p12
16871       b6=p11p11
16872       b7=c(12,n)**2+b3+b4+b5+b6
16873       b8=2*p0p10*p5p12
16874       b9=b8
16875       b10=-2*p0p12*p5p10
16876       b11=b10
16877       b12=2*p10p12
16878       b13=-2*p9p11
16879       b14=b12+b13
16880       b15=-2*epspn3
16881       b16=-2*epspn6
16882       b17=2*p0p11*p5p9
16883       b18=b17
16884       b19=-2*p0p9*p5p11
16885       b20=b19
16886       b21=-2*c(12,n)*p5p11
16887       aa2=b11+b14*p0p5+b15+b16+b18+b20+b21+b7*fmb+b9
16888       b1=4*p0p10*p4p10
16889       b2=b1
16890       b3=4*epspn1
16891       b4=4*p0p9*p4p9
16892       b5=b4
16893       b6=2*c(12,n)*p4p9
16894       aa3=b2+b3+b5+b6
16895       b1=-2*p10p10
16896       b2=-2*p9p9
16897       b3=b1+b2
16898       b4=-2*c(12,n)*p5p9
16899       aa4=b3*p0p5+b4
16900       b1=-2*p0p10*p4p12
16901       b2=b1
16902       b3=-2*p0p12*p4p10
16903       b4=b3
16904       b5=2*p10p12
16905       b6=2*p9p11
16906       b7=b5+b6
16907       b8=2*epspn2
16908       b9=-2*epspn5
16909       b10=-2*p0p11*p4p9
16910       b11=b10
16911       b12=-2*p0p9*p4p11
16912       b13=b12
16913       b14=-2*c(12,n)*p4p11
16914       aa5=b11+b13+b14+b2+b4+b7*p0p4+b8+b9
16915       aa6=2*c(12,n)*epspn4
16916       b1=2*c(12,n)*p0p9*p4p5
16917       aa7=b1
16918       b1=-p12p12
16919       b2=-p11p11
16920       aa8=c(12,n)**2+b1+b2
16921       b1=2*p4p12*p5p12
16922       aa9=b1
16923       aa10=-2*epspn7
16924       b1=2*p4p11*p5p11
16925       aa11=b1
16926       ams1_3p1=aa1+aa10+aa11+aa2*fmc+aa3*p0p5+aa4*p0p4+aa5*fmb+aa6+aa7+
16927      . aa8*p4p5+aa9
16928       return
16929         end
16930