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