bin/BCVEGPY/pj0amp.F

0001 c...this is the 36 amplitude for (3p0) 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_3p0(cc)
0008       implicit double precision(a-h,o-z)
0009       implicit integer (i-n)
0010       dimension b(16)
0011 #include "inclcon.h"
0012 #include "inclppp.h"
0013 #include "inclamp.h"
0014       do 100 n=1,16
0015          b(n)=0.0d0
0016 100   continue
0017       ccc=cc/((-2*p1p5)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2)*(-fmb2
0018      . +fmc2+hbcm2+2*p3p4))
0019       b(1)=ccc*(w1*(8*p6p7*(2*fmb*p3p4s2-fmb2*fmc*hbcm2-fmc*hbcm4-2*
0020      . fmc*p3p4s2+fmc3*hbcm2)+16*(p6p7*p3p5*p3p4)*(fmb-fmc)+16*(p6p7*
0021      . p3p4*p2p3)*(-fmb+fmc)+16*(p6p7*p3p4*p1p3)*(-fmb+fmc)+16*(p6p7*
0022      . p3p4)*(fmb*hbcm2-fmc*hbcm2)+16*(fmc*hbcm2*p1p3*p6p7+fmc*hbcm2*
0023      . p2p3*p6p7-fmc*hbcm2*p3p5*p6p7))+(32*(p6p7*p3p4)*(-fb2*fmb+fb2*
0024      . fmc)+32*(p6p7*p3p5)*(2*fb1*hbcm-fb2*fmb+fb2*fmc)+32*(p6p7*p2p3
0025      . )*(-2*fb1*hbcm+fb2*fmb-fb2*fmc)+32*(p6p7*p1p3)*(-2*fb1*hbcm+
0026      . fb2*fmb-fb2*fmc)+32*p6p7*(fb1*fmb2*hbcm-fb1*fmc2*hbcm+fb1*
0027      . hbcm3-fb2*fmb*hbcm2+fb2*fmc*hbcm2)))
0028       b(2)=ccc*(w1*(8*(p5p7*p3p4)*(-fmb+fmc)+8*fmc*hbcm2*p5p7)+16*
0029      . p5p7*(-2*fb1*hbcm+fb2*fmb-fb2*fmc))
0030       b(3)=ccc*(w1*(8*(p5p6*p3p4)*(-fmb+fmc)+8*(p4p6*p3p4)*(-fmb+fmc)
0031      . +8*(p3p6*p3p4)*(-fmb+fmc)+8*(fmc*hbcm2*p3p6+fmc*hbcm2*p4p6+fmc
0032      . *hbcm2*p5p6))+(16*p5p6*(-2*fb1*hbcm+fb2*fmb-fb2*fmc)+16*p4p6*(
0033      . -2*fb1*hbcm+fb2*fmb-fb2*fmc)+16*p3p6*(-2*fb1*hbcm+fb2*fmb-fb2*
0034      . fmc)))
0035       b(4)=ccc*(w1*(8*(p6p7*p3p4)*(fmb2-fmc2-hbcm2)-16*p3p4s2*p6p7)+(
0036      . 16*p6p7*(-fb2*fmb2+fb2*fmc2+fb2*hbcm2)+32*fb2*p3p4*p6p7))
0037       b(5)=ccc*(w1*(8*p5p7*(fmb*fmc*hbcm2+fmc2*hbcm2-2*p3p4s2)-8*
0038      . hbcm2*p3p4*p5p7)+(16*p5p7*(-2*fb1*fmb*hbcm-2*fb1*fmc*hbcm+fb2*
0039      . hbcm2)+32*fb2*p3p4*p5p7))
0040       b(6)=ccc*(w1*(8*(p3p6*p3p4)*(-fmb2+fmc2)+8*p5p6*(fmb*fmc*hbcm2+
0041      . fmc2*hbcm2-2*p3p4s2)+8*p4p6*(fmb*fmc*hbcm2+fmc2*hbcm2-2*p3p4s2
0042      . )+8*p3p6*(fmb*fmc*hbcm2+fmc2*hbcm2)+8*(-hbcm2*p3p4*p4p6-hbcm2*
0043      . p3p4*p5p6))+(16*p5p6*(-2*fb1*fmb*hbcm-2*fb1*fmc*hbcm+fb2*hbcm2
0044      . )+16*p4p6*(-2*fb1*fmb*hbcm-2*fb1*fmc*hbcm+fb2*hbcm2)+16*p3p6*(
0045      . -2*fb1*fmb*hbcm-2*fb1*fmc*hbcm+fb2*fmb2-fb2*fmc2)+32*(fb2*p3p4
0046      . *p4p6+fb2*p3p4*p5p6)))
0047       b(7)=ccc*(w1*(4*p3p4*(fmb2-fmc2-hbcm2)-8*p3p4s2)+8*(-fb2*fmb2+
0048      . fb2*fmc2+fb2*hbcm2+2*fb2*p3p4))
0049       b(8)=ccc*(w1*(8*(p3p5*p3p4)*(-fmb+fmc)+8*(p3p4*p2p3)*(fmb-fmc)+
0050      . 8*(p3p4*p1p3)*(fmb-fmc)+8*p3p4*(-fmb*hbcm2+fmc*hbcm2)+4*(-2*
0051      . fmb*p3p4s2+fmb2*fmc*hbcm2-2*fmc*hbcm2*p1p3-2*fmc*hbcm2*p2p3+2*
0052      . fmc*hbcm2*p3p5+fmc*hbcm4+2*fmc*p3p4s2-fmc3*hbcm2))+(16*p3p4*(
0053      . fb2*fmb-fb2*fmc)+16*p3p5*(-2*fb1*hbcm+fb2*fmb-fb2*fmc)+16*p2p3
0054      . *(2*fb1*hbcm-fb2*fmb+fb2*fmc)+16*p1p3*(2*fb1*hbcm-fb2*fmb+fb2*
0055      . fmc)+16*(-fb1*fmb2*hbcm+fb1*fmc2*hbcm-fb1*hbcm3+fb2*fmb*hbcm2-
0056      . fb2*fmc*hbcm2)))
0057       b(9)=ccc*(w1*(8*(p3p6*p3p4)*(fmb-fmc)-8*fmc*hbcm2*p3p6)+16*p3p6
0058      . *(2*fb1*hbcm-fb2*fmb+fb2*fmc))
0059       b(11)=ccc*(4*w1*(-fmb*fmc*hbcm2-fmc2*hbcm2+hbcm2*p3p4+2*p3p4s2)
0060      . +8*(2*fb1*fmb*hbcm+2*fb1*fmc*hbcm-fb2*hbcm2-2*fb2*p3p4))
0061       b(13)=ccc*(w1*(4*p3p4*(-fmb+fmc)+4*fmc*hbcm2)+8*(-2*fb1*hbcm+
0062      . fb2*fmb-fb2*fmc))
0063       b(15)=ccc*(w1*(8*p6p7*(-fmb*fmc*hbcm2-fmc2*hbcm2+2*p3p4s2)+8*
0064      . hbcm2*p3p4*p6p7)+(16*p6p7*(2*fb1*fmb*hbcm+2*fb1*fmc*hbcm-fb2*
0065      . hbcm2)-32*fb2*p3p4*p6p7))
0066       b(16)=ccc*(w1*(8*(p6p7*p3p4)*(fmb-fmc)-8*fmc*hbcm2*p6p7)+16*
0067      . p6p7*(2*fb1*hbcm-fb2*fmb+fb2*fmc))
0068       do 200 n=1,16
0069          c(n,1)=c(n,1)-0.7272727272727273d0*b(n)
0070          c(n,2)=c(n,2)+0.1344727748424798d0*b(n)
0071          c(n,3)=c(n,3)+0.1662127982237257d0*b(n)
0072 200   continue
0073       return
0074       end
0075
0076       subroutine amp18_3p0(cc)
0077       implicit double precision(a-h,o-z)
0078       implicit integer (i-n)
0079       dimension b(16)
0080 #include "inclcon.h"
0081 #include "inclppp.h"
0082 #include "inclamp.h"
0083       do 100 n=1,16
0084          b(n)=0.0d0
0085 100   continue
0086       ccc=cc/((ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2)*(ffmcfmb**2*
0087      . hbcm2-2*ffmcfmb*hbcm2+2*ffmcfmb*p2p3-fmb2+hbcm2-2*p2p3)*(
0088      . ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+2*ffmcfmb*p3p5+fmc2+2*p4p5))
0089       ans4=8*(p6p7*p3p5)*(ffmcfmb**2*hbcm3-ffmcfmb*hbcm3+fmb*hbcm2-
0090      . fmb2*hbcm)+8*(p6p7*p3p4)*(-ffmcfmb**2*hbcm3+ffmcfmb*hbcm3-fmb*
0091      . hbcm2+fmb2*hbcm)+16*(p3p7*p3p6*p3p5)*(ffmcfmb**2*hbcm+ffmcfmb*
0092      . fmc-ffmcfmb*hbcm-fmc)+16*(p3p7*p3p6*p3p4)*(ffmcfmb**2*hbcm+
0093      . ffmcfmb*fmc-ffmcfmb*hbcm-fmc)+16*(fmb*p3p4*p3p7*p4p6+fmb*p3p5*
0094      . p3p7*p4p6-fmc*p2p3*p3p5*p6p7-2*hbcm*p2p3*p4p5*p6p7-2*hbcm*p2p3
0095      . *p4p6*p5p7+2*hbcm*p2p3*p4p7*p5p6+2*hbcm*p2p4*p3p5*p6p7+2*hbcm*
0096      . p2p4*p3p6*p5p7-2*hbcm*p2p4*p3p7*p5p6-hbcm*p2p5*p3p4*p6p7+hbcm*
0097      . p2p5*p3p5*p6p7-2*hbcm*p2p5*p3p6*p4p7+2*hbcm*p2p5*p3p7*p4p6)
0098       ans3=16*(p4p6*p3p7)*(fmb*fmc*hbcm+fmb*hbcm2-fmb2*hbcm)+16*(p6p7
0099      . *p4p5)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+16*(p6p7*p2p4)*(
0100      . ffmcfmb*hbcm3+fmb*hbcm2)+32*(p4p5*p3p7*p3p6)*(ffmcfmb*hbcm-
0101      . hbcm)+16*(p5p6*p3p7*p3p5)*(-ffmcfmb*hbcm+hbcm)+16*(p4p7*p3p6*
0102      . p3p5)*(-ffmcfmb*hbcm-fmb+hbcm)+16*(p5p6*p3p7*p3p4)*(-ffmcfmb*
0103      . hbcm+hbcm)+16*(p4p7*p3p6*p3p4)*(-ffmcfmb*hbcm-fmb+hbcm)+16*(
0104      . p6p7*p3p5*p3p4)*(ffmcfmb*hbcm+fmb-hbcm)+16*(p6p7*p3p4*p2p3)*(-
0105      . 2*ffmcfmb*hbcm-fmc)+16*(p5p7*p3p6)*(-ffmcfmb*fmc*hbcm2-fmb*fmc
0106      . *hbcm+fmc*hbcm2)+8*p6p7*(-ffmcfmb*fmb2*hbcm3-ffmcfmb*fmc2*
0107      . hbcm3+2*ffmcfmb*hbcm*p3p5s2-fmb*fmc2*hbcm2+2*fmb*p3p5s2+fmb2*
0108      . hbcm3-fmb3*hbcm2+fmc2*hbcm3-2*hbcm*p3p5s2)+16*(p6p7*p2p3)*(
0109      . ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm-fmc2*hbcm)+16
0110      . *(p3p7*p3p6)*(ffmcfmb*fmb*fmc*hbcm+ffmcfmb*fmc2*hbcm-fmb*fmc*
0111      . hbcm-fmc2*hbcm)+16*(p5p6*p3p7)*(-ffmcfmb**2*hbcm3+ffmcfmb*
0112      . hbcm3+fmb*fmc*hbcm)+16*(p4p7*p3p6)*(-ffmcfmb**2*hbcm3-ffmcfmb*
0113      . fmc*hbcm2+ffmcfmb*hbcm3-fmb*fmc*hbcm-fmb*hbcm2+fmb2*hbcm+fmc*
0114      . hbcm2)+ans4
0115       ans2=w18*ans3
0116       ans6=w8*(16*(p6p7*p2p5)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+32*(
0117      . p3p7*p3p6*p2p4)*(ffmcfmb*hbcm-hbcm)+16*(p5p6*p3p7*p2p3)*(
0118      . ffmcfmb*hbcm-hbcm)+16*(p4p7*p3p6*p2p3)*(-ffmcfmb*hbcm-fmb+hbcm
0119      . )+16*(p6p7*p3p5*p2p3)*(ffmcfmb*hbcm+fmb-hbcm)+8*(p6p7*p2p3)*(
0120      . ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*hbcm2-2*ffmcfmb*fmc*hbcm2-
0121      . ffmcfmb*hbcm3-2*fmb*fmc*hbcm-fmb*hbcm2+fmb2*hbcm+2*fmc*hbcm2)+
0122      . 16*(p3p7*p3p6*p2p3)*(ffmcfmb**2*hbcm+ffmcfmb*fmc-ffmcfmb*hbcm-
0123      . fmc)+16*(fmb*p2p3*p3p7*p4p6-fmc*p2p3s2*p6p7-hbcm*p2p3*p2p5*
0124      . p6p7))+(16*(p4p6*p3p7)*(-2*fb2*fmb-hbcm)+8*(p5p6*p3p7)*(4*fb1*
0125      . ffmcfmb*hbcm-4*fb1*hbcm-hbcm)+8*(p4p7*p3p6)*(4*fb1*ffmcfmb*
0126      . hbcm-4*fb1*hbcm+4*fb2*fmb+hbcm)+8*(p6p7*p3p5)*(-4*fb1*ffmcfmb*
0127      . hbcm+4*fb1*hbcm-4*fb2*fmb-hbcm)+4*p6p7*(-4*fb1*ffmcfmb**2*
0128      . hbcm3+4*fb1*ffmcfmb*hbcm3+4*fb1*fmb2*hbcm-4*fb2*fmb*hbcm2+2*
0129      . ffmcfmb*hbcm3+2*fmb*hbcm2-3*hbcm3)+8*(p3p7*p3p6)*(4*fb1*
0130      . ffmcfmb**2*hbcm-4*fb1*ffmcfmb*hbcm-4*fb2*ffmcfmb*fmc+4*fb2*fmc
0131      . -4*ffmcfmb*hbcm-fmc+3*hbcm)+32*(-fb1*hbcm*p2p5*p6p7+fb2*fmc*
0132      . p2p3*p6p7))
0133       ans5=w1*(16*(p6p7*p4p5)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+16*(
0134      . p5p6*p3p7*p3p4)*(-ffmcfmb*hbcm+hbcm)+16*(p4p7*p3p6*p3p4)*(-
0135      . ffmcfmb*hbcm-fmb+hbcm)+16*(p6p7*p3p5*p3p4)*(ffmcfmb*hbcm+fmb-
0136      . hbcm)+16*(p6p7*p3p4*p2p3)*(-2*ffmcfmb*hbcm-fmc)+16*(p3p7*p3p6)
0137      . *(ffmcfmb*fmc2*hbcm-fmc2*hbcm)+16*(p5p6*p3p7)*(-ffmcfmb*fmc*
0138      . hbcm2+fmc*hbcm2)+16*(p6p7*p3p5)*(ffmcfmb*fmc*hbcm2+fmb*fmc*
0139      . hbcm-fmc*hbcm2)+16*(p6p7*p2p3)*(-ffmcfmb*fmc*hbcm2-fmc2*hbcm)+
0140      . 16*(p4p6*p3p7)*(ffmcfmb*fmb*hbcm2+fmb*fmc*hbcm)+8*p6p7*(-
0141      . ffmcfmb*fmb*fmc*hbcm3-ffmcfmb*fmc2*hbcm3+fmb*fmc*hbcm3-fmb*
0142      . fmc2*hbcm2-fmb2*fmc*hbcm2+fmc2*hbcm3)+16*(p4p7*p3p6)*(-ffmcfmb
0143      . **2*hbcm3-ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3-
0144      . fmb*fmc*hbcm+fmc*hbcm2)+8*(p6p7*p3p4)*(-ffmcfmb**2*hbcm3-2*
0145      . ffmcfmb*fmb*hbcm2+ffmcfmb*hbcm3+fmb*hbcm2-fmb2*hbcm)+16*(p3p7*
0146      . p3p6*p3p4)*(ffmcfmb**2*hbcm+ffmcfmb*fmc-ffmcfmb*hbcm-fmc)+16*(
0147      . ffmcfmb*hbcm3*p2p4*p6p7+fmb*p3p4*p3p7*p4p6+fmc*hbcm2*p2p5*p6p7
0148      . +hbcm*p2p5*p3p4*p6p7))+ans6
0149       ans1=ans2+ans5
0150       ans=ccc*ans1
0151       b(1)=ans
0152       ans2=w1*(16*(p4p5*p3p7)*(ffmcfmb*hbcm-hbcm)+8*(p5p7*p3p4)*(-
0153      . ffmcfmb*hbcm-fmb+hbcm)+8*(p4p7*p3p4)*(ffmcfmb*hbcm+fmb-hbcm)+8
0154      . *p5p7*(-ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm+fmc*hbcm2)+8*(p3p7*p3p4
0155      . )*(ffmcfmb*fmb-ffmcfmb*fmc-fmb+fmc)+8*p3p7*(2*ffmcfmb*fmb*fmc*
0156      . hbcm-fmb*fmc*hbcm)+8*p4p7*(ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2+
0157      . ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3+fmb*fmc*hbcm-fmc*hbcm2)+16*(
0158      . ffmcfmb*hbcm*p2p3*p4p7-ffmcfmb*hbcm*p2p4*p3p7))+(4*p3p7*(-4*
0159      . fb2*ffmcfmb*fmb+4*fb2*ffmcfmb*fmc+4*fb2*fmb-4*fb2*fmc-fmb+fmc)
0160      . +4*p5p7*(4*fb1*ffmcfmb*hbcm-4*fb1*hbcm+4*fb2*fmb+hbcm)+4*p4p7*
0161      . (-4*fb1*ffmcfmb*hbcm+4*fb1*hbcm-4*fb2*fmb-hbcm))
0162       ans1=w8*(16*(p3p7*p2p5)*(ffmcfmb*hbcm-hbcm)+16*(p3p7*p2p4)*(-
0163      . ffmcfmb*hbcm+hbcm)+8*(p5p7*p2p3)*(-ffmcfmb*hbcm-fmb+hbcm)+8*(
0164      . p4p7*p2p3)*(ffmcfmb*hbcm+fmb-hbcm)+8*(p3p7*p2p3)*(ffmcfmb*fmb-
0165      . ffmcfmb*fmc-fmb+fmc))+w18*(8*p3p7*(fmb*fmc*hbcm-fmb2*hbcm)+8*(
0166      . p5p7*p3p5)*(-ffmcfmb*hbcm-fmb+hbcm)+8*(p4p7*p3p5)*(ffmcfmb*
0167      . hbcm+fmb-hbcm)+8*(p5p7*p3p4)*(-ffmcfmb*hbcm-fmb+hbcm)+8*(p4p7*
0168      . p3p4)*(ffmcfmb*hbcm+fmb-hbcm)+8*(p3p7*p3p5)*(ffmcfmb*fmb-
0169      . ffmcfmb*fmc-fmb+fmc)+8*(p3p7*p3p4)*(ffmcfmb*fmb-ffmcfmb*fmc-
0170      . fmb+fmc)+8*p5p7*(-ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*
0171      . fmc*hbcm2+ffmcfmb*hbcm3+fmb*fmc*hbcm-fmc*hbcm2)+8*p4p7*(
0172      . ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2-ffmcfmb*
0173      . hbcm3+fmb*fmc*hbcm+2*fmb*hbcm2-2*fmb2*hbcm-fmc*hbcm2)+16*(
0174      . ffmcfmb*hbcm*p2p3*p4p7-ffmcfmb*hbcm*p2p3*p5p7-ffmcfmb*hbcm*
0175      . p2p4*p3p7+ffmcfmb*hbcm*p2p5*p3p7-2*hbcm*p2p4*p5p7+2*hbcm*p2p5*
0176      . p4p7))+ans2
0177       ans=ccc*ans1
0178       b(2)=ans
0179       ans2=w18*(8*(p5p6*p3p5)*(ffmcfmb*hbcm+fmb-hbcm)+8*(p4p6*p3p5)*(
0180      . -ffmcfmb*hbcm-fmb+hbcm)+8*(p5p6*p3p4)*(ffmcfmb*hbcm+fmb-hbcm)+
0181      . 8*(p4p6*p3p4)*(-ffmcfmb*hbcm-fmb+hbcm)+8*p5p6*(ffmcfmb**2*
0182      . hbcm3+ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3-fmb*
0183      . fmc*hbcm+fmc*hbcm2)+8*p4p6*(-ffmcfmb**2*hbcm3+ffmcfmb*fmb*
0184      . hbcm2-ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3-fmb*fmc*hbcm-2*fmb*hbcm2
0185      . +2*fmb2*hbcm+fmc*hbcm2)+8*p3p6*(ffmcfmb**2*fmb*hbcm2-ffmcfmb**
0186      . 2*fmc*hbcm2-ffmcfmb*fmb*fmc*hbcm-ffmcfmb*fmb*hbcm2+ffmcfmb*
0187      . fmb2*hbcm+ffmcfmb*fmc*hbcm2)+16*(-ffmcfmb*hbcm*p2p3*p4p6+
0188      . ffmcfmb*hbcm*p2p3*p5p6+ffmcfmb*hbcm*p2p4*p3p6-ffmcfmb*hbcm*
0189      . p2p5*p3p6+2*hbcm*p2p4*p5p6-2*hbcm*p2p5*p4p6))+(4*p5p6*(-4*fb1*
0190      . ffmcfmb*hbcm+4*fb1*hbcm-4*fb2*fmb-hbcm)+4*p4p6*(4*fb1*ffmcfmb*
0191      . hbcm-4*fb1*hbcm+4*fb2*fmb+hbcm))
0192       ans1=w8*(8*(p5p6*p2p3)*(ffmcfmb*hbcm+fmb-hbcm)+8*(p4p6*p2p3)*(-
0193      . ffmcfmb*hbcm-fmb+hbcm))+w1*(8*(p5p6*p3p4)*(ffmcfmb*hbcm+fmb-
0194      . hbcm)+8*(p4p6*p3p4)*(-ffmcfmb*hbcm-fmb+hbcm)+8*p5p6*(ffmcfmb*
0195      . fmc*hbcm2+fmb*fmc*hbcm-fmc*hbcm2)+8*p4p6*(-ffmcfmb**2*hbcm3-
0196      . ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3-fmb*fmc*hbcm
0197      . +fmc*hbcm2)+8*p3p6*(-ffmcfmb**2*fmc*hbcm2-ffmcfmb*fmb*fmc*hbcm
0198      . +ffmcfmb*fmc*hbcm2)+16*(-ffmcfmb*hbcm*p2p3*p4p6+ffmcfmb*hbcm*
0199      . p2p4*p3p6))+ans2
0200       ans=ccc*ans1
0201       b(3)=ans
0202       ans3=((p5p6*p3p7)*(-32*fb2*ffmcfmb+32*fb2-8)+(p3p7*p3p6)*(-32*
0203      . fb2*ffmcfmb**2+32*fb2*ffmcfmb-16*ffmcfmb+8)+4*p6p7*(-4*fb1*
0204      . ffmcfmb*fmb*hbcm-4*fb1*ffmcfmb*fmc*hbcm+4*fb1*fmb*hbcm+4*fb1*
0205      . fmc*hbcm-4*fb2*fmb*fmc-4*fb2*fmb2+2*ffmcfmb*hbcm2+fmb*hbcm-fmc
0206      . *hbcm-2*hbcm2)+32*(-fb2*p2p4*p6p7+fb2*p2p5*p6p7))
0207       ans2=w18*((p5p6*p3p7*p3p5)*(16*ffmcfmb-16)+(p5p6*p3p7*p3p4)*(16
0208      . *ffmcfmb-16)+16*(p5p6*p4p7)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16
0209      . *(p5p7*p4p6)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(p6p7*p2p5)*(-
0210      . ffmcfmb*hbcm2+fmc*hbcm)+16*(p6p7*p2p4)*(ffmcfmb*hbcm2+2*fmb*
0211      . hbcm+fmc*hbcm)+8*(p6p7*p3p5)*(ffmcfmb*fmb*hbcm+ffmcfmb*fmc*
0212      . hbcm+fmb*fmc-fmb*hbcm+fmb2-fmc*hbcm)+8*(p6p7*p3p4)*(ffmcfmb*
0213      . fmb*hbcm+ffmcfmb*fmc*hbcm+fmb*fmc-fmb*hbcm+fmb2-fmc*hbcm)+16*(
0214      . p6p7*p2p3)*(ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm)+16*(p3p7*p3p6*
0215      . p3p5)*(ffmcfmb**2-ffmcfmb)+16*(p3p7*p3p6*p3p4)*(ffmcfmb**2-
0216      . ffmcfmb)+16*(p4p7*p3p6)*(-ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm+
0217      . ffmcfmb*hbcm2)+8*p6p7*(ffmcfmb**2*fmb*hbcm3+ffmcfmb**2*fmc*
0218      . hbcm3-ffmcfmb*fmb*hbcm3-ffmcfmb*fmc*hbcm3+fmb*fmc*hbcm2-fmb2*
0219      . fmc*hbcm+fmb2*hbcm2-fmb3*hbcm)+16*(fmb*hbcm*p3p7*p4p6+p2p4*
0220      . p3p4*p6p7+p2p4*p3p5*p6p7-p2p5*p3p4*p6p7-p2p5*p3p5*p6p7))+ans3
0221       ans1=w8*((p5p6*p3p7*p2p3)*(16*ffmcfmb-16)+16*(p6p7*p2p5)*(-
0222      . ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(p6p7*p2p4)*(ffmcfmb*hbcm2+
0223      . fmb*hbcm-hbcm2)+8*(p6p7*p2p3)*(ffmcfmb*fmb*hbcm+ffmcfmb*fmc*
0224      . hbcm+fmb*fmc-fmb*hbcm+fmb2-fmc*hbcm)+16*(p3p7*p3p6*p2p3)*(
0225      . ffmcfmb**2-ffmcfmb)+16*(p2p3*p2p4*p6p7-p2p3*p2p5*p6p7))+w1*((
0226      . p5p6*p3p7*p3p4)*(16*ffmcfmb-16)+16*(p6p7*p4p5)*(-ffmcfmb*hbcm2
0227      . -fmb*hbcm+hbcm2)+16*(p6p7*p2p4)*(ffmcfmb*hbcm2+fmc*hbcm)+16*(
0228      . p5p6*p3p7)*(ffmcfmb*fmc*hbcm-fmc*hbcm)+8*(p6p7*p3p4)*(ffmcfmb*
0229      . fmb*hbcm+ffmcfmb*fmc*hbcm+fmb*fmc-fmb*hbcm+fmb2-fmc*hbcm)+16*(
0230      . p3p7*p3p6*p3p4)*(ffmcfmb**2-ffmcfmb)+16*(p4p7*p3p6)*(-ffmcfmb
0231      . **2*hbcm2-ffmcfmb*fmb*hbcm+ffmcfmb*hbcm2)+8*p6p7*(ffmcfmb**2*
0232      . fmc*hbcm3+2*ffmcfmb*fmb*fmc*hbcm2-ffmcfmb*fmc*hbcm3-fmb*fmc*
0233      . hbcm2+fmb2*fmc*hbcm)+16*(ffmcfmb*fmb*hbcm*p3p7*p4p6+ffmcfmb*
0234      . fmc*hbcm*p2p3*p6p7-fmc*hbcm*p2p5*p6p7+p2p4*p3p4*p6p7-p2p5*p3p4
0235      . *p6p7))+ans2
0236       ans=ccc*ans1
0237       b(4)=ans
0238       ans3=((p3p7*p3p5)*(32*fb2*ffmcfmb-32*fb2+8)+4*p5p7*(-4*fb1*fmb*
0239      . hbcm-4*fb2*ffmcfmb*hbcm2+4*fb2*hbcm2+hbcm2)+4*p3p7*(4*fb1*
0240      . ffmcfmb*fmb*hbcm+4*fb1*ffmcfmb*fmc*hbcm-4*fb1*fmb*hbcm-4*fb1*
0241      . fmc*hbcm+4*fb2*ffmcfmb**2*hbcm2-4*fb2*ffmcfmb*hbcm2+4*fb2*fmb*
0242      . fmc-fmb*hbcm+fmc*hbcm+hbcm2)+32*(-fb2*p2p3*p4p7+fb2*p2p4*p3p7)
0243      . )
0244       ans2=w18*((p3p7*p3p5*p3p4)*(-16*ffmcfmb+16)+8*(p5p7*p3p5)*(
0245      . ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(p4p7*p3p5)*(ffmcfmb*hbcm2+
0246      . fmb*hbcm-hbcm2)+8*(p5p7*p3p4)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+
0247      . 16*(p3p7*p2p5)*(ffmcfmb*hbcm2-fmc*hbcm)+16*(p3p7*p2p4)*(-
0248      . ffmcfmb*hbcm2-fmb*hbcm-fmc*hbcm)+16*(p5p7*p2p3)*(-ffmcfmb*
0249      . hbcm2+fmc*hbcm)+16*(p4p7*p2p3)*(ffmcfmb*hbcm2+fmb*hbcm+fmc*
0250      . hbcm)+8*p4p7*(ffmcfmb**2*hbcm4-ffmcfmb*hbcm4+fmb*hbcm3-fmb2*
0251      . hbcm2)+8*(p3p7*p3p5)*(-ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm-
0252      . ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-fmb*fmc+fmb*hbcm+fmc*hbcm)+8*(
0253      . p3p7*p3p4)*(-ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm-ffmcfmb*fmc*
0254      . hbcm+ffmcfmb*hbcm2-fmb*fmc-fmb*hbcm+fmc*hbcm)+8*p3p7*(-ffmcfmb
0255      . **2*fmb*hbcm3-ffmcfmb**2*fmc*hbcm3+ffmcfmb*fmb*hbcm3+ffmcfmb*
0256      . fmc*hbcm3-2*ffmcfmb*p3p5s2-fmb*fmc*hbcm2-fmb*fmc2*hbcm+fmb2*
0257      . fmc*hbcm-fmb2*hbcm2+2*p3p5s2)+16*(-fmb*hbcm*p3p7*p4p5-hbcm2*
0258      . p2p4*p5p7+hbcm2*p2p5*p4p7+p2p3*p3p4*p4p7+p2p3*p3p5*p4p7-p2p4*
0259      . p3p4*p3p7-p2p4*p3p5*p3p7))+ans3
0260       ans1=w8*((p3p7*p3p5*p2p3)*(-16*ffmcfmb+16)+16*(p3p7*p2p5)*(
0261      . ffmcfmb*hbcm2-hbcm2)+16*(p3p7*p2p4)*(-ffmcfmb*hbcm2-fmb*hbcm+
0262      . hbcm2)+8*(p5p7*p2p3)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(p4p7*
0263      . p2p3)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(p3p7*p2p3)*(-ffmcfmb**
0264      . 2*hbcm2+ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-fmb*
0265      . fmc-fmb*hbcm-fmc*hbcm)+16*(-p2p3*p2p4*p3p7+p2p3s2*p4p7))+w1*((
0266      . p3p7*p3p5*p3p4)*(-16*ffmcfmb+16)+16*(p4p5*p3p7)*(ffmcfmb*hbcm2
0267      . -hbcm2)+8*(p5p7*p3p4)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(p3p7*
0268      . p2p4)*(-ffmcfmb*hbcm2-fmc*hbcm)+16*(p4p7*p2p3)*(ffmcfmb*hbcm2+
0269      . fmc*hbcm)+8*p5p7*(ffmcfmb*fmc*hbcm3+fmb*fmc*hbcm2-fmc*hbcm3)+
0270      . 16*(p3p7*p3p5)*(-ffmcfmb*fmc*hbcm+fmc*hbcm)+8*p4p7*(ffmcfmb**2
0271      . *hbcm4+ffmcfmb*fmb*hbcm3-ffmcfmb*hbcm4)+8*(p3p7*p3p4)*(-
0272      . ffmcfmb**2*hbcm2-3*ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm+ffmcfmb*
0273      . hbcm2-fmb*fmc+fmb*hbcm+fmc*hbcm)+8*p3p7*(-ffmcfmb**2*fmc*hbcm3
0274      . -2*ffmcfmb*fmb*fmc*hbcm2+ffmcfmb*fmc*hbcm3+fmb*fmc*hbcm2-fmb*
0275      . fmc2*hbcm)+16*(p2p3*p3p4*p4p7-p2p4*p3p4*p3p7))+ans2
0276       ans=ccc*ans1
0277       b(5)=ans
0278       ans3=((p3p6*p2p3)*(32*fb2*ffmcfmb+8)+4*p5p6*(4*fb1*fmb*hbcm+4*
0279      . fb2*ffmcfmb*hbcm2-4*fb2*hbcm2-hbcm2)+4*p3p6*(8*fb1*ffmcfmb*fmb
0280      . *hbcm+4*fb1*ffmcfmb*fmc*hbcm-4*fb1*fmb*hbcm-4*fb1*fmc*hbcm+4*
0281      . fb2*ffmcfmb**2*hbcm2-4*fb2*ffmcfmb*hbcm2+4*fb2*fmb*fmc+4*fb2*
0282      . fmb2-2*ffmcfmb*hbcm2+fmc*hbcm+hbcm2)+32*(fb2*p2p3*p4p6+fb2*
0283      . p2p4*p3p6-fb2*p2p5*p3p6))
0284       ans2=w18*(16*(p3p6*p2p4)*(-2*fmb*hbcm-fmc*hbcm)+8*(p5p6*p3p5)*(
0285      . -ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(p4p6*p3p5)*(-ffmcfmb*hbcm2-
0286      . fmb*hbcm+hbcm2)+8*(p5p6*p3p4)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+
0287      . 16*(p3p6*p2p5)*(ffmcfmb*hbcm2-fmc*hbcm)+16*(p5p6*p2p3)*(
0288      . ffmcfmb*hbcm2-fmc*hbcm)+16*(p4p6*p2p3)*(-ffmcfmb*hbcm2-fmb*
0289      . hbcm-fmc*hbcm)+32*(p3p6*p2p3)*(-ffmcfmb*fmb*hbcm-ffmcfmb*fmc*
0290      . hbcm)+8*p4p6*(-ffmcfmb**2*hbcm4+ffmcfmb*hbcm4-fmb*hbcm3+fmb2*
0291      . hbcm2)+8*(p3p6*p3p5)*(-ffmcfmb**2*hbcm2-2*ffmcfmb*fmb*hbcm-
0292      . ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-fmb*fmc+fmb*hbcm-fmb2+fmc*hbcm)
0293      . +8*(p3p6*p3p4)*(ffmcfmb**2*hbcm2-ffmcfmb*fmc*hbcm-ffmcfmb*
0294      . hbcm2-fmb*fmc+fmb*hbcm-fmb2+fmc*hbcm)+8*p3p6*(-ffmcfmb**2*fmb*
0295      . hbcm3-ffmcfmb**2*fmc*hbcm3+ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*hbcm3
0296      . -fmb*fmc*hbcm2+fmb2*fmc*hbcm-fmb2*hbcm2+fmb3*hbcm)+16*(-
0297      . ffmcfmb*p2p3*p3p4*p3p6-ffmcfmb*p2p3*p3p5*p3p6+hbcm2*p2p4*p5p6-
0298      . hbcm2*p2p5*p4p6-p2p3*p3p4*p4p6-p2p3*p3p5*p4p6-p2p4*p3p4*p3p6-
0299      . p2p4*p3p5*p3p6+p2p5*p3p4*p3p6+p2p5*p3p5*p3p6))+ans3
0300       ans1=w8*(16*(p3p6*p2p5)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(p3p6
0301      . *p2p4)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(p5p6*p2p3)*(ffmcfmb*
0302      . hbcm2+fmb*hbcm-hbcm2)+16*(p4p6*p2p3)*(-ffmcfmb*hbcm2-fmb*hbcm+
0303      . hbcm2)+8*(p3p6*p2p3)*(-ffmcfmb**2*hbcm2-2*ffmcfmb*fmb*hbcm-
0304      . ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-fmb*fmc+fmb*hbcm-fmb2+fmc*hbcm)
0305      . +16*(-ffmcfmb*p2p3s2*p3p6-p2p3*p2p4*p3p6+p2p3*p2p5*p3p6-p2p3s2
0306      . *p4p6))+w1*(16*(p4p5*p3p6)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(
0307      . p5p6*p3p4)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(p4p6*p2p3)*(-
0308      . ffmcfmb*hbcm2-fmc*hbcm)+8*p5p6*(-ffmcfmb*fmc*hbcm3-fmb*fmc*
0309      . hbcm2+fmc*hbcm3)+8*p4p6*(-ffmcfmb**2*hbcm4-ffmcfmb*fmb*hbcm3+
0310      . ffmcfmb*hbcm4)+8*(p3p6*p3p4)*(ffmcfmb**2*hbcm2-ffmcfmb*fmc*
0311      . hbcm-ffmcfmb*hbcm2-fmb*fmc+fmb*hbcm-fmb2+fmc*hbcm)+8*p3p6*(-
0312      . ffmcfmb**2*fmc*hbcm3-2*ffmcfmb*fmb*fmc*hbcm2+ffmcfmb*fmc*hbcm3
0313      . +fmb*fmc*hbcm2-fmb2*fmc*hbcm)+16*(-2*ffmcfmb*fmc*hbcm*p2p3*
0314      . p3p6-ffmcfmb*p2p3*p3p4*p3p6-fmc*hbcm*p2p4*p3p6+fmc*hbcm*p2p5*
0315      . p3p6-p2p3*p3p4*p4p6-p2p4*p3p4*p3p6+p2p5*p3p4*p3p6))+ans2
0316       ans=ccc*ans1
0317       b(6)=ans
0318       ans2=w18*(8*p4p5*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*p2p5*(-
0319      . ffmcfmb*hbcm2+fmc*hbcm)+8*p2p4*(ffmcfmb*hbcm2+3*fmb*hbcm+2*fmc
0320      . *hbcm)+16*p2p3*(ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm)+4*p3p5*(
0321      . ffmcfmb**2*hbcm2+2*ffmcfmb*fmb*hbcm+2*ffmcfmb*fmc*hbcm-ffmcfmb
0322      . *hbcm2+2*fmb*fmc-fmb*hbcm+fmb2-2*fmc*hbcm)+4*p3p4*(ffmcfmb**2*
0323      . hbcm2+2*ffmcfmb*fmb*hbcm+2*ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2+2*
0324      . fmb*fmc-fmb*hbcm+fmb2-2*fmc*hbcm)+4*(2*ffmcfmb**2*fmb*hbcm3+2*
0325      . ffmcfmb**2*fmc*hbcm3-2*ffmcfmb*fmb*hbcm3+ffmcfmb*fmb2*hbcm2-2*
0326      . ffmcfmb*fmc*hbcm3+ffmcfmb*fmc2*hbcm2+2*ffmcfmb*p2p3*p3p4+2*
0327      . ffmcfmb*p2p3*p3p5+2*fmb*fmc*hbcm2+fmb*fmc2*hbcm-2*fmb2*fmc*
0328      . hbcm+fmb2*hbcm2-fmb3*hbcm-fmc2*hbcm2+4*p2p4*p3p4+4*p2p4*p3p5-2
0329      . *p2p5*p3p4-2*p2p5*p3p5))+(p2p3*(-16*fb2*ffmcfmb-4)+2*(-8*fb1*
0330      . ffmcfmb*fmb*hbcm-8*fb1*ffmcfmb*fmc*hbcm+4*fb1*fmb*hbcm+8*fb1*
0331      . fmc*hbcm-4*fb2*ffmcfmb**2*hbcm2+4*fb2*ffmcfmb*hbcm2-8*fb2*fmb*
0332      . fmc-4*fb2*fmb2-16*fb2*p2p4+8*fb2*p2p5+2*ffmcfmb*hbcm2-2*fmc*
0333      . hbcm-hbcm2))
0334       ans1=w8*(8*p2p5*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*p2p4*(
0335      . ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+4*p2p3*(ffmcfmb**2*hbcm2+2*
0336      . ffmcfmb*fmb*hbcm+2*ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2+2*fmb*fmc-
0337      . fmb*hbcm+fmb2-2*fmc*hbcm)+8*(ffmcfmb*p2p3s2+2*p2p3*p2p4-p2p3*
0338      . p2p5))+w1*(8*p4p5*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*p2p4*(
0339      . ffmcfmb*hbcm2+2*fmc*hbcm)+4*p3p4*(ffmcfmb**2*hbcm2+2*ffmcfmb*
0340      . fmb*hbcm+2*ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2+2*fmb*fmc-fmb*hbcm+
0341      . fmb2-2*fmc*hbcm)+4*(2*ffmcfmb**2*fmc*hbcm3+3*ffmcfmb*fmb*fmc*
0342      . hbcm2+4*ffmcfmb*fmc*hbcm*p2p3-2*ffmcfmb*fmc*hbcm3+ffmcfmb*fmc2
0343      . *hbcm2+2*ffmcfmb*p2p3*p3p4-fmb*fmc*hbcm2+fmb*fmc2*hbcm+fmb2*
0344      . fmc*hbcm-2*fmc*hbcm*p2p5-fmc2*hbcm2+4*p2p4*p3p4-2*p2p5*p3p4))+
0345      . ans2
0346       ans=ccc*ans1
0347       b(7)=ans
0348       ans3=(4*p3p5*(4*fb1*ffmcfmb*hbcm-4*fb1*hbcm+4*fb2*fmb+hbcm)+4*
0349      . p3p4*(-4*fb1*ffmcfmb*hbcm+4*fb1*hbcm-4*fb2*fmb-hbcm)+4*p2p3*(-
0350      . 4*fb1*ffmcfmb*hbcm-4*fb2*fmc+3*hbcm)+2*(4*fb1*fmb*fmc*hbcm-4*
0351      . fb1*fmb2*hbcm-8*fb1*hbcm*p2p4+8*fb1*hbcm*p2p5-4*fb2*ffmcfmb*
0352      . fmb*hbcm2+4*fb2*ffmcfmb*fmc*hbcm2+4*fb2*fmb*hbcm2-4*fb2*fmc*
0353      . hbcm2+fmb*hbcm2-fmc*hbcm2))
0354       ans2=w18*(8*p2p5*(ffmcfmb*hbcm3+fmc*hbcm2)+8*p2p4*(-ffmcfmb*
0355      . hbcm3-2*fmb*hbcm2+fmc*hbcm2)+8*(p3p5*p2p3)*(-ffmcfmb*hbcm+fmc)
0356      . +8*(p3p4*p2p3)*(3*ffmcfmb*hbcm+fmc)+8*p2p3*(-2*ffmcfmb*fmb*
0357      . hbcm2+2*ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm+fmc2*hbcm)+4*p3p5*(-2*
0358      . ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+2*ffmcfmb
0359      . *hbcm3+fmb*fmc*hbcm-fmb*hbcm2+fmb2*hbcm-fmc*hbcm2)+4*p3p4*(2*
0360      . ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2-2*ffmcfmb
0361      . *hbcm3+fmb*fmc*hbcm+3*fmb*hbcm2-3*fmb2*hbcm-fmc*hbcm2)+4*(-
0362      . ffmcfmb**2*fmb*hbcm4+ffmcfmb**2*fmc*hbcm4+ffmcfmb*fmb*hbcm4-
0363      . ffmcfmb*fmc*hbcm4+2*ffmcfmb*hbcm*p3p4s2-2*ffmcfmb*hbcm*p3p5s2+
0364      . fmb*fmc*hbcm3+2*fmb*p3p4s2-2*fmb*p3p5s2-fmb2*fmc*hbcm2-fmb2*
0365      . hbcm3+fmb3*hbcm2+4*hbcm*p2p3*p4p5+2*hbcm*p2p4*p3p4-6*hbcm*p2p4
0366      . *p3p5+6*hbcm*p2p5*p3p4-2*hbcm*p2p5*p3p5-2*hbcm*p3p4s2+2*hbcm*
0367      . p3p5s2))+ans3
0368       ans1=w8*(8*p2p5*(ffmcfmb*hbcm3+fmb*hbcm2-hbcm3)+8*p2p4*(-
0369      . ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+8*(p3p5*p2p3)*(-ffmcfmb*hbcm-
0370      . fmb+hbcm)+8*(p3p4*p2p3)*(ffmcfmb*hbcm+fmb-hbcm)+4*p2p3*(-2*
0371      . ffmcfmb**2*hbcm3-3*ffmcfmb*fmb*hbcm2+3*ffmcfmb*fmc*hbcm2+2*
0372      . ffmcfmb*hbcm3+3*fmb*fmc*hbcm+fmb*hbcm2-fmb2*hbcm-3*fmc*hbcm2)+
0373      . 8*(-ffmcfmb*hbcm*p2p3s2+fmc*p2p3s2-hbcm*p2p3*p2p4+hbcm*p2p3*
0374      . p2p5))+w1*(8*p4p5*(ffmcfmb*hbcm3+fmb*hbcm2-hbcm3)+8*p2p4*(-
0375      . ffmcfmb*hbcm3+fmc*hbcm2)+8*(p3p5*p3p4)*(-ffmcfmb*hbcm-fmb+hbcm
0376      . )+8*(p3p4*p2p3)*(3*ffmcfmb*hbcm+fmc)+8*p3p5*(-ffmcfmb*fmc*
0377      . hbcm2-fmb*fmc*hbcm+fmc*hbcm2)+8*p2p3*(2*ffmcfmb*fmc*hbcm2+fmc2
0378      . *hbcm)+4*p3p4*(2*ffmcfmb**2*hbcm3+3*ffmcfmb*fmb*hbcm2+ffmcfmb*
0379      . fmc*hbcm2-2*ffmcfmb*hbcm3+fmb*fmc*hbcm-fmb*hbcm2+fmb2*hbcm-fmc
0380      . *hbcm2)+4*(ffmcfmb**2*fmc*hbcm4+2*ffmcfmb*fmb*fmc*hbcm3-
0381      . ffmcfmb*fmc*hbcm4+2*ffmcfmb*hbcm*p3p4s2-fmb*fmc*hbcm3+2*fmb*
0382      . p3p4s2+fmb2*fmc*hbcm2-2*fmc*hbcm2*p2p5+2*hbcm*p2p4*p3p4-2*hbcm
0383      . *p2p5*p3p4-2*hbcm*p3p4s2))+ans2
0384       ans=ccc*ans1
0385       b(8)=ans
0386       ans=ccc*(w1*(8*p4p6*(ffmcfmb*hbcm3-fmc*hbcm2)+8*(p3p6*p3p4)*(-
0387      . ffmcfmb*hbcm-fmb+2*fmc)+8*p3p6*(ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm
0388      . +fmc2*hbcm)+8*(fmc*hbcm2*p5p6-hbcm*p3p4*p4p6+hbcm*p3p4*p5p6-2*
0389      . hbcm*p3p6*p4p5))+w18*(8*p5p6*(-ffmcfmb*hbcm3-fmc*hbcm2)+8*p4p6
0390      . *(ffmcfmb*hbcm3+2*fmb*hbcm2-fmc*hbcm2)+8*(p3p6*p3p5)*(3*
0391      . ffmcfmb*hbcm-fmb+2*fmc)+8*(p3p6*p3p4)*(-ffmcfmb*hbcm-fmb+2*fmc
0392      . )+8*p3p6*(-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+2*fmb*fmc*hbcm-
0393      . fmb2*hbcm+fmc2*hbcm)+8*(-hbcm*p3p4*p4p6-3*hbcm*p3p4*p5p6+3*
0394      . hbcm*p3p5*p4p6+hbcm*p3p5*p5p6+2*hbcm*p3p6*p4p5))+w8*(8*p5p6*(-
0395      . ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+8*p4p6*(ffmcfmb*hbcm3+fmb*hbcm2
0396      . -hbcm3)+8*(p3p6*p2p3)*(-ffmcfmb*hbcm-fmb+2*fmc)+8*p3p6*(-
0397      . ffmcfmb**2*hbcm3-2*ffmcfmb*fmb*hbcm2+2*ffmcfmb*fmc*hbcm2+
0398      . ffmcfmb*hbcm3+2*fmb*fmc*hbcm+fmb*hbcm2-fmb2*hbcm-2*fmc*hbcm2)+
0399      . 8*(hbcm*p2p3*p4p6-hbcm*p2p3*p5p6))+(4*p3p6*(-4*fb1*ffmcfmb*
0400      . hbcm+4*fb2*fmb-8*fb2*fmc+3*hbcm)+16*(fb1*hbcm*p4p6-fb1*hbcm*
0401      . p5p6)))
0402       b(9)=ans
0403       b(10)=ccc*(w1*(8*p4p6*(ffmcfmb*hbcm2+2*fmc*hbcm)+8*(2*ffmcfmb*
0404      . fmc*hbcm*p3p6+ffmcfmb*p3p4*p3p6-fmc*hbcm*p5p6+2*p3p4*p4p6-p3p4
0405      . *p5p6))+w18*(16*p5p6*(-ffmcfmb*hbcm2+fmc*hbcm)+8*p4p6*(ffmcfmb
0406      . *hbcm2+3*fmb*hbcm+2*fmc*hbcm)+16*p3p6*(ffmcfmb*fmb*hbcm+
0407      . ffmcfmb*fmc*hbcm)+8*(ffmcfmb*p3p4*p3p6+ffmcfmb*p3p5*p3p6+2*
0408      . p3p4*p4p6-p3p4*p5p6+2*p3p5*p4p6-p3p5*p5p6))+w8*(8*p5p6*(-
0409      . ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*p4p6*(ffmcfmb*hbcm2+fmb*hbcm-
0410      . hbcm2)+8*p3p6*(ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm-ffmcfmb*hbcm2
0411      . )+8*(ffmcfmb*p2p3*p3p6+2*p2p3*p4p6-p2p3*p5p6))+(p3p6*(-16*fb2*
0412      . ffmcfmb-4)+16*(-2*fb2*p4p6+fb2*p5p6)))
0413       ans=ccc*(w1*(4*p3p4*(-3*ffmcfmb*hbcm2+fmb*hbcm-2*fmc*hbcm)+4*(-
0414      . 2*ffmcfmb*fmc*hbcm3+fmb*fmc*hbcm2+2*fmc*hbcm*p3p5+fmc2*hbcm2-2
0415      . *hbcm2*p4p5+2*p3p4*p3p5-4*p3p4s2))+w18*(4*p3p5*(3*ffmcfmb*
0416      . hbcm2+fmb*hbcm-2*fmc*hbcm)+4*p3p4*(-3*ffmcfmb*hbcm2-5*fmb*hbcm
0417      . -2*fmc*hbcm)+4*(-2*ffmcfmb*fmb*hbcm3-2*ffmcfmb*fmc*hbcm3-2*fmb
0418      . *fmc*hbcm2-fmb2*hbcm2+fmc2*hbcm2+2*hbcm2*p4p5-2*p3p4*p3p5-4*
0419      . p3p4s2+2*p3p5s2))+w8*(8*p3p5*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16
0420      . *p3p4*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+4*p2p3*(-ffmcfmb*hbcm2-
0421      . fmb*hbcm-2*fmc*hbcm)+4*(-ffmcfmb**2*hbcm4-2*ffmcfmb*fmb*hbcm3-
0422      . 2*ffmcfmb*fmc*hbcm3+ffmcfmb*hbcm4-2*fmb*fmc*hbcm2+fmb*hbcm3-
0423      . fmb2*hbcm2+2*fmc*hbcm3-4*p2p3*p3p4+2*p2p3*p3p5))+2*(-4*fb1*fmb
0424      . *hbcm-8*fb1*fmc*hbcm+4*fb2*ffmcfmb*hbcm2+16*fb2*p3p4-8*fb2*
0425      . p3p5+3*hbcm2))
0426       b(11)=ans
0427       ans=ccc*(w1*(8*p4p7*(ffmcfmb*hbcm3-fmc*hbcm2)+8*(p3p7*p3p4)*(-3
0428      . *ffmcfmb*hbcm-fmc)+8*p3p7*(-2*ffmcfmb*fmc*hbcm2-fmc2*hbcm)+8*(
0429      . fmc*hbcm2*p5p7-hbcm*p3p4*p4p7+hbcm*p3p4*p5p7))+w18*(8*p5p7*(-
0430      . ffmcfmb*hbcm3-fmc*hbcm2)+8*p4p7*(ffmcfmb*hbcm3+2*fmb*hbcm2-fmc
0431      . *hbcm2)+8*(p3p7*p3p5)*(ffmcfmb*hbcm-fmc)+8*(p3p7*p3p4)*(-3*
0432      . ffmcfmb*hbcm-fmc)+8*p3p7*(2*ffmcfmb*fmb*hbcm2-2*ffmcfmb*fmc*
0433      . hbcm2-fmb*fmc*hbcm-fmc2*hbcm)+8*(-hbcm*p3p4*p4p7-3*hbcm*p3p4*
0434      . p5p7+3*hbcm*p3p5*p4p7+hbcm*p3p5*p5p7-2*hbcm*p3p7*p4p5))+w8*(8*
0435      . p5p7*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+8*p4p7*(ffmcfmb*hbcm3+
0436      . fmb*hbcm2-hbcm3)+16*(p3p7*p3p5)*(ffmcfmb*hbcm-hbcm)+16*(p3p7*
0437      . p3p4)*(-ffmcfmb*hbcm+hbcm)+8*(p3p7*p2p3)*(ffmcfmb*hbcm-fmc)+8*
0438      . p3p7*(ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*hbcm2-2*ffmcfmb*fmc*hbcm2
0439      . -ffmcfmb*hbcm3-fmb*fmc*hbcm-fmb*hbcm2+2*fmc*hbcm2)+8*(hbcm*
0440      . p2p3*p4p7-hbcm*p2p3*p5p7))+(4*p3p7*(4*fb1*ffmcfmb*hbcm+4*fb2*
0441      . fmc-3*hbcm)+16*(fb1*hbcm*p4p7-fb1*hbcm*p5p7)))
0442       b(12)=ans
0443       b(13)=ccc*(w1*(4*p3p4*(-2*ffmcfmb*hbcm+fmb-3*fmc)+4*(-3*ffmcfmb
0444      . *fmc*hbcm2+fmb*fmc*hbcm-2*fmc2*hbcm+2*hbcm*p4p5))+w18*(4*p3p5*
0445      . (-2*ffmcfmb*hbcm+fmb-3*fmc)+4*p3p4*(-2*ffmcfmb*hbcm+fmb-3*fmc)
0446      . +4*(3*ffmcfmb*fmb*hbcm2-3*ffmcfmb*fmc*hbcm2-3*fmb*fmc*hbcm+
0447      . fmb2*hbcm-2*fmc2*hbcm-4*hbcm*p4p5))+w8*(4*p2p3*(2*ffmcfmb*hbcm
0448      . +fmb-3*fmc)+4*(2*ffmcfmb**2*hbcm3+3*ffmcfmb*fmb*hbcm2-3*
0449      . ffmcfmb*fmc*hbcm2-2*ffmcfmb*hbcm3-3*fmb*fmc*hbcm-fmb*hbcm2+
0450      . fmb2*hbcm+3*fmc*hbcm2))+4*(4*fb1*ffmcfmb*hbcm-2*fb2*fmb+6*fb2*
0451      . fmc-3*hbcm))
0452       b(14)=ccc*(w1*(8*p4p7*(-ffmcfmb*hbcm2-2*fmc*hbcm)+8*(-2*ffmcfmb
0453      . *fmc*hbcm*p3p7-ffmcfmb*p3p4*p3p7+fmc*hbcm*p5p7-2*p3p4*p4p7+
0454      . p3p4*p5p7))+w8*(8*p5p7*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*p4p7*
0455      . (-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*p3p7*(-2*ffmcfmb*fmb*hbcm-2*
0456      . ffmcfmb*fmc*hbcm+fmb*hbcm+2*fmc*hbcm)+8*(-ffmcfmb*p2p3*p3p7-2*
0457      . p2p3*p4p7+p2p3*p5p7))+w18*(16*p5p7*(ffmcfmb*hbcm2-fmc*hbcm)+8*
0458      . p4p7*(-ffmcfmb*hbcm2-3*fmb*hbcm-2*fmc*hbcm)+16*p3p7*(-ffmcfmb*
0459      . fmb*hbcm-ffmcfmb*fmc*hbcm)+8*(-ffmcfmb*p3p4*p3p7-ffmcfmb*p3p5*
0460      . p3p7-2*p3p4*p4p7+p3p4*p5p7-2*p3p5*p4p7+p3p5*p5p7))+(p3p7*(16*
0461      . fb2*ffmcfmb+4)+16*(2*fb2*p4p7-fb2*p5p7)))
0462       ans2=w18*(16*(p4p7*p3p6)*(2*fmb*hbcm+fmc*hbcm)+16*(p5p6*p3p7)*(
0463      . -ffmcfmb*hbcm2+fmc*hbcm)+16*(p4p6*p3p7)*(ffmcfmb*hbcm2+fmb*
0464      . hbcm+fmc*hbcm)+16*(p5p7*p3p6)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(
0465      . p6p7*p3p5)*(2*ffmcfmb*hbcm2+fmb*hbcm-fmc*hbcm)+8*(p6p7*p3p4)*(
0466      . -2*ffmcfmb*hbcm2-3*fmb*hbcm-fmc*hbcm)+8*p6p7*(-ffmcfmb*fmb*
0467      . hbcm3-ffmcfmb*fmc*hbcm3-fmb*fmc*hbcm2-fmb2*hbcm2-2*p3p4s2+2*
0468      . p3p5s2)+32*(p3p7*p3p6)*(ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm)+16*
0469      . (ffmcfmb*p3p4*p3p6*p3p7+ffmcfmb*p3p5*p3p6*p3p7+hbcm2*p4p6*p5p7
0470      . -hbcm2*p4p7*p5p6+p3p4*p3p6*p4p7-p3p4*p3p6*p5p7+p3p4*p3p7*p4p6+
0471      . p3p5*p3p6*p4p7-p3p5*p3p6*p5p7+p3p5*p3p7*p4p6))+((p3p7*p3p6)*(-
0472      . 32*fb2*ffmcfmb-8)+8*p6p7*(-2*fb1*fmb*hbcm-2*fb1*fmc*hbcm+hbcm2
0473      . )+32*(fb2*p3p4*p6p7-fb2*p3p5*p6p7-fb2*p3p6*p4p7+fb2*p3p6*p5p7-
0474      . fb2*p3p7*p4p6))
0475       ans1=w1*(16*(p4p6*p3p7)*(ffmcfmb*hbcm2+fmc*hbcm)+8*(p6p7*p3p4)*
0476      . (-2*ffmcfmb*hbcm2+fmb*hbcm-fmc*hbcm)+8*p6p7*(-ffmcfmb*fmc*
0477      . hbcm3+fmb*fmc*hbcm2-2*p3p4s2)+16*(2*ffmcfmb*fmc*hbcm*p3p6*p3p7
0478      . +ffmcfmb*p3p4*p3p6*p3p7+fmc*hbcm*p3p5*p6p7+fmc*hbcm*p3p6*p4p7-
0479      . fmc*hbcm*p3p6*p5p7-hbcm2*p4p5*p6p7+p3p4*p3p5*p6p7+p3p4*p3p6*
0480      . p4p7-p3p4*p3p6*p5p7+p3p4*p3p7*p4p6))+w8*(8*(p6p7*p2p3)*(-fmb*
0481      . hbcm-fmc*hbcm)+16*(p5p6*p3p7)*(-ffmcfmb*hbcm2+hbcm2)+16*(p4p6*
0482      . p3p7)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(p5p7*p3p6)*(-ffmcfmb*
0483      . hbcm2-fmb*hbcm+hbcm2)+16*(p4p7*p3p6)*(ffmcfmb*hbcm2+fmb*hbcm-
0484      . hbcm2)+16*(p6p7*p3p5)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(p6p7*
0485      . p3p4)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*p6p7*(-ffmcfmb*fmb*
0486      . hbcm3-ffmcfmb*fmc*hbcm3-fmb*fmc*hbcm2+fmb*hbcm3-fmb2*hbcm2+fmc
0487      . *hbcm3)+16*(p3p7*p3p6)*(2*ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm-
0488      . fmb*hbcm-fmc*hbcm)+16*(ffmcfmb*p2p3*p3p6*p3p7-p2p3*p3p4*p6p7+
0489      . p2p3*p3p5*p6p7+p2p3*p3p6*p4p7-p2p3*p3p6*p5p7+p2p3*p3p7*p4p6))+
0490      . ans2
0491       ans=ccc*ans1
0492       b(15)=ans
0493       ans=ccc*(w1*(8*(p6p7*p3p4)*(ffmcfmb*hbcm-fmb+2*fmc)+8*p6p7*(2*
0494      . ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm+fmc2*hbcm)+16*(-ffmcfmb*hbcm*
0495      . p3p6*p4p7+ffmcfmb*hbcm*p3p7*p4p6-hbcm*p4p5*p6p7))+w18*(8*(p6p7
0496      . *p3p5)*(ffmcfmb*hbcm-fmb+2*fmc)+8*(p6p7*p3p4)*(ffmcfmb*hbcm-
0497      . fmb+2*fmc)+8*p6p7*(-2*ffmcfmb*fmb*hbcm2+2*ffmcfmb*fmc*hbcm2+2*
0498      . fmb*fmc*hbcm-fmb2*hbcm+fmc2*hbcm)+16*(-ffmcfmb*hbcm*p3p6*p4p7+
0499      . ffmcfmb*hbcm*p3p6*p5p7+ffmcfmb*hbcm*p3p7*p4p6-ffmcfmb*hbcm*
0500      . p3p7*p5p6+hbcm*p4p5*p6p7+2*hbcm*p4p6*p5p7-2*hbcm*p4p7*p5p6))+
0501      . w8*(16*(p5p6*p3p7)*(-ffmcfmb*hbcm+hbcm)+16*(p4p6*p3p7)*(
0502      . ffmcfmb*hbcm-hbcm)+8*(p6p7*p2p3)*(-ffmcfmb*hbcm-fmb+2*fmc)+8*
0503      . p6p7*(-ffmcfmb**2*hbcm3-2*ffmcfmb*fmb*hbcm2+2*ffmcfmb*fmc*
0504      . hbcm2+ffmcfmb*hbcm3+2*fmb*fmc*hbcm+fmb*hbcm2-fmb2*hbcm-2*fmc*
0505      . hbcm2))+4*p6p7*(-4*fb1*ffmcfmb*hbcm+4*fb2*fmb-8*fb2*fmc+3*hbcm
0506      . ))
0507       b(16)=ans
0508       do 200 n=1,16
0509          c(n,1)=c(n,1)-0.09090909090909091d0*b(n)
0510          c(n,2)=c(n,2)-0.1680909685530997d0*b(n)
0511          c(n,3)=c(n,3)-0.2077659977796572d0*b(n)
0512 200   continue
0513       return
0514       end
0515
0516       subroutine amp17_3p0(cc)
0517       implicit double precision(a-h,o-z)
0518       implicit integer (i-n)
0519       dimension b(16)
0520 #include "inclcon.h"
0521 #include "inclppp.h"
0522 #include "inclamp.h"
0523       do 100 n=1,16
0524          b(n)=0.0d0
0525 100   continue
0526       ccc=cc/((ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*p3p5+fmb2+
0527      . hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3-2*ffmcfmb*p2p3-
0528      . fmc2+2*p1p2)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3-fmc2))
0529       ans4=(32*(p6p7*p2p3)*(-fb2*fmb+fb2*fmc-hbcm)+8*(p6p7*p1p3)*(4*
0530      . fb1*ffmcfmb*hbcm-hbcm)+8*p6p7*(-2*fb1*ffmcfmb**2*hbcm3+2*fb1*
0531      . fmc2*hbcm-ffmcfmb*hbcm3+fmb*hbcm2+2*hbcm3)+8*(p3p7*p3p6)*(4*
0532      . fb1*ffmcfmb**2*hbcm-4*fb2*ffmcfmb*fmc+4*ffmcfmb*hbcm-fmc+4*
0533      . hbcm)+32*(-fb1*hbcm*p2p5*p6p7+hbcm*p3p5*p6p7+hbcm*p3p6*p5p7+
0534      . hbcm*p3p7*p4p6))
0535       ans3=w12*(16*(p6p7*p2p5)*(ffmcfmb*hbcm3-fmc*hbcm2)+16*(p6p7*
0536      . p2p3*p1p3)*(-2*ffmcfmb*hbcm-fmb+fmc)+8*p6p7*(-ffmcfmb**2*hbcm5
0537      . -2*ffmcfmb*hbcm*p1p3s2+fmc2*hbcm3)+16*(p4p6*p3p7)*(-ffmcfmb**2
0538      . *hbcm3+fmc2*hbcm)+16*(p5p7*p3p6)*(-ffmcfmb**2*hbcm3+fmc2*hbcm)
0539      . +16*(p6p7*p3p5)*(-ffmcfmb**2*hbcm3+fmc2*hbcm)+16*(p6p7*p2p3)*(
0540      . ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-fmb*fmc*
0541      . hbcm)+8*(p6p7*p1p3)*(ffmcfmb**2*hbcm3+2*ffmcfmb*hbcm3-fmc2*
0542      . hbcm)+16*(p3p7*p3p6*p1p3)*(ffmcfmb**2*hbcm-ffmcfmb*fmc+2*
0543      . ffmcfmb*hbcm)+16*(p3p7*p3p6)*(-ffmcfmb**2*fmb*hbcm2+ffmcfmb**2
0544      . *fmc*hbcm2-ffmcfmb**2*hbcm3+fmc2*hbcm)+16*(2*ffmcfmb*hbcm*p1p3
0545      . *p3p5*p6p7+2*ffmcfmb*hbcm*p1p3*p3p6*p5p7+2*ffmcfmb*hbcm*p1p3*
0546      . p3p7*p4p6+2*ffmcfmb*hbcm*p2p3*p3p6*p5p7-2*ffmcfmb*hbcm*p2p5*
0547      . p3p6*p3p7-hbcm*p1p3*p2p5*p6p7))+ans4
0548       ans2=w17*(16*(p6p7*p2p5)*(ffmcfmb*hbcm3-fmc*hbcm2)+16*(p6p7*
0549      . p2p3*p1p3)*(-ffmcfmb*hbcm-fmb+fmc)+8*p6p7*(-ffmcfmb**2*hbcm5-2
0550      . *ffmcfmb*hbcm*p1p3s2-2*fmb*p2p3s2+2*fmc*p2p3s2+fmc2*hbcm3)+16*
0551      . (p4p6*p3p7)*(-ffmcfmb**2*hbcm3+fmc2*hbcm)+16*(p5p7*p3p6)*(-
0552      . ffmcfmb**2*hbcm3+fmc2*hbcm)+16*(p6p7*p3p5)*(-ffmcfmb**2*hbcm3+
0553      . fmc2*hbcm)+8*(p6p7*p2p3)*(ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*hbcm2
0554      . -2*ffmcfmb*fmc*hbcm2-2*fmb*fmc*hbcm+fmc2*hbcm)+8*(p6p7*p1p3)*(
0555      . ffmcfmb**2*hbcm3+2*ffmcfmb*hbcm3-fmc2*hbcm)+16*(p3p7*p3p6*p2p3
0556      . )*(ffmcfmb**2*hbcm-ffmcfmb*fmc+2*ffmcfmb*hbcm)+16*(p3p7*p3p6*
0557      . p1p3)*(ffmcfmb**2*hbcm-ffmcfmb*fmc+2*ffmcfmb*hbcm)+16*(p3p7*
0558      . p3p6)*(-ffmcfmb**2*fmb*hbcm2+ffmcfmb**2*fmc*hbcm2-ffmcfmb**2*
0559      . hbcm3+fmc2*hbcm)+16*(-2*ffmcfmb*hbcm*p1p2*p3p6*p3p7+2*ffmcfmb*
0560      . hbcm*p1p3*p3p5*p6p7+2*ffmcfmb*hbcm*p1p3*p3p6*p5p7+2*ffmcfmb*
0561      . hbcm*p1p3*p3p7*p4p6+2*ffmcfmb*hbcm*p2p3*p3p6*p5p7+2*ffmcfmb*
0562      . hbcm*p2p3*p3p7*p4p6-hbcm*p1p3*p2p5*p6p7-hbcm*p2p3*p2p5*p6p7))+
0563      . ans3
0564       ans1=w2*(16*(p6p7*p3p5*p2p3)*(-fmb+fmc)+16*(p6p7*p2p5)*(ffmcfmb
0565      . *hbcm3+fmb*hbcm2-hbcm3)+32*(p3p7*p3p6*p2p5)*(-ffmcfmb*hbcm-
0566      . hbcm)+32*(p5p7*p3p6*p2p3)*(ffmcfmb*hbcm+hbcm)+16*(p5p6*p3p7)*(
0567      . ffmcfmb*fmb*hbcm2+ffmcfmb*hbcm3-fmc2*hbcm)+16*(p6p7*p2p3)*(
0568      . ffmcfmb*fmb*hbcm2+fmb*fmc*hbcm-2*fmb2*hbcm)+16*(p5p7*p3p6)*(-
0569      . ffmcfmb**2*hbcm3+fmc2*hbcm)+8*(p6p7*p3p5)*(-ffmcfmb**2*hbcm3+
0570      . fmc2*hbcm)+16*(p3p7*p3p6*p3p5)*(ffmcfmb**2*hbcm-ffmcfmb*fmc+2*
0571      . ffmcfmb*hbcm)+16*(p3p7*p3p6)*(-ffmcfmb**2*fmb*hbcm2-ffmcfmb*
0572      . fmb*fmc*hbcm+ffmcfmb*fmb*hbcm2+ffmcfmb*fmb2*hbcm)+16*(ffmcfmb*
0573      . fmb*hbcm2*p3p7*p4p6+ffmcfmb*hbcm*p1p3*p3p5*p6p7+2*ffmcfmb*hbcm
0574      . *p1p3*p3p6*p5p7-2*ffmcfmb*hbcm*p1p3*p3p7*p5p6-2*ffmcfmb*hbcm*
0575      . p1p5*p3p6*p3p7-2*ffmcfmb*hbcm*p2p3*p3p7*p5p6+2*ffmcfmb*hbcm*
0576      . p3p5*p3p7*p4p6+2*ffmcfmb*hbcm*p3p5*p3p7*p5p6-fmb*hbcm2*p1p2*
0577      . p6p7-2*hbcm*p1p2*p3p5*p6p7-2*hbcm*p1p2*p3p6*p5p7+2*hbcm*p1p2*
0578      . p3p7*p5p6+2*hbcm*p1p5*p2p3*p6p7+2*hbcm*p2p3*p2p5*p6p7+2*hbcm*
0579      . p2p3*p4p6*p5p7+2*hbcm*p2p3*p5p6*p5p7+hbcm*p2p5*p3p5*p6p7-2*
0580      . hbcm*p2p5*p3p7*p4p6-2*hbcm*p2p5*p3p7*p5p6))+ans2
0581       ans=ccc*ans1
0582       b(1)=ans
0583       ans=ccc*(w2*(8*(p3p7*p3p5)*(-ffmcfmb*fmb+ffmcfmb*fmc-2*ffmcfmb*
0584      . hbcm)+8*p5p7*(ffmcfmb**2*hbcm3-fmc2*hbcm)+8*p3p7*(ffmcfmb**2*
0585      . fmb*hbcm2+ffmcfmb*fmb*fmc*hbcm-ffmcfmb*fmb*hbcm2-2*ffmcfmb*
0586      . fmb2*hbcm)+16*(-ffmcfmb*hbcm*p1p3*p5p7+ffmcfmb*hbcm*p1p5*p3p7+
0587      . hbcm*p1p2*p5p7-hbcm*p2p3*p5p7+hbcm*p2p5*p3p7))+w17*(8*(p3p7*
0588      . p2p3)*(-ffmcfmb*fmb+ffmcfmb*fmc-2*ffmcfmb*hbcm)+8*(p3p7*p1p3)*
0589      . (-ffmcfmb*fmb+ffmcfmb*fmc-2*ffmcfmb*hbcm)+16*p5p7*(ffmcfmb**2*
0590      . hbcm3-fmc2*hbcm)+8*p3p7*(ffmcfmb**2*fmb*hbcm2-ffmcfmb**2*fmc*
0591      . hbcm2+ffmcfmb**2*hbcm3-ffmcfmb*fmb*fmc*hbcm+ffmcfmb*fmc2*hbcm-
0592      . fmc2*hbcm)+16*(ffmcfmb*hbcm*p1p2*p3p7-2*ffmcfmb*hbcm*p1p3*p5p7
0593      . -2*ffmcfmb*hbcm*p2p5*p3p7))+w12*(8*(p3p7*p1p3)*(-ffmcfmb*fmb+
0594      . ffmcfmb*fmc-2*ffmcfmb*hbcm)+16*p5p7*(ffmcfmb**2*hbcm3-fmc2*
0595      . hbcm)+8*p3p7*(ffmcfmb**2*fmb*hbcm2-ffmcfmb**2*fmc*hbcm2+
0596      . ffmcfmb**2*hbcm3-ffmcfmb*fmb*fmc*hbcm+ffmcfmb*fmc2*hbcm-fmc2*
0597      . hbcm)-32*ffmcfmb*hbcm*p1p3*p5p7)+(4*p3p7*(-4*fb2*ffmcfmb*fmb+4
0598      . *fb2*ffmcfmb*fmc-fmb+fmc-4*hbcm)-32*hbcm*p5p7))
0599       b(2)=ans
0600       b(3)=ccc*(w2*(8*p5p6*(-ffmcfmb**2*hbcm3+fmc2*hbcm)+16*(ffmcfmb*
0601      . hbcm*p1p3*p5p6+ffmcfmb*hbcm*p2p5*p3p6-hbcm*p1p2*p5p6+hbcm*p2p3
0602      . *p5p6+hbcm*p2p5*p4p6+hbcm*p2p5*p5p6))+w17*(16*p4p6*(ffmcfmb**2
0603      . *hbcm3-fmc2*hbcm)+8*p3p6*(ffmcfmb**2*hbcm3-fmc2*hbcm)+16*(-
0604      . ffmcfmb*hbcm*p1p2*p3p6-ffmcfmb*hbcm*p1p3*p3p6-2*ffmcfmb*hbcm*
0605      . p1p3*p4p6+ffmcfmb*hbcm*p2p3*p3p6+2*ffmcfmb*hbcm*p2p5*p3p6))+
0606      . w12*(16*p4p6*(ffmcfmb**2*hbcm3-fmc2*hbcm)+8*p3p6*(ffmcfmb**2*
0607      . hbcm3-fmc2*hbcm)+16*(-ffmcfmb*hbcm*p1p2*p3p6-ffmcfmb*hbcm*p1p3
0608      . *p3p6-2*ffmcfmb*hbcm*p1p3*p4p6+ffmcfmb*hbcm*p2p3*p3p6+2*
0609      . ffmcfmb*hbcm*p2p5*p3p6))+16*(-hbcm*p3p6-2*hbcm*p4p6))
0610       ans2=w12*(32*(p6p7*p2p4)*(ffmcfmb*hbcm2-fmc*hbcm)+16*(p6p7*p2p3
0611      . )*(ffmcfmb*hbcm2-fmc*hbcm)+16*(p6p7*p1p2)*(-ffmcfmb*hbcm2+fmc*
0612      . hbcm)+16*(p6p7*p1p3)*(ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm)+16*(
0613      . p3p7*p3p6*p1p3)*(-ffmcfmb**2+ffmcfmb)+16*(p4p6*p3p7)*(-ffmcfmb
0614      . **2*hbcm2+ffmcfmb*fmc*hbcm)+8*p6p7*(-ffmcfmb**2*fmb*hbcm3-
0615      . ffmcfmb**2*fmc*hbcm3+fmb*fmc2*hbcm+fmc3*hbcm)+16*(ffmcfmb*fmc*
0616      . hbcm*p3p6*p3p7+ffmcfmb*p1p3*p3p7*p4p6+p1p2*p1p3*p6p7-p1p3*p2p3
0617      . *p6p7-2*p1p3*p2p4*p6p7))+(8*p6p7*(ffmcfmb*hbcm2+2*fmb*hbcm+fmc
0618      . *hbcm-hbcm2)+(p4p6*p3p7)*(32*fb2*ffmcfmb+8)+(p3p7*p3p6)*(-32*
0619      . fb2*ffmcfmb**2+32*fb2*ffmcfmb-16*ffmcfmb+8)+32*(fb2*p1p2*p6p7-
0620      . fb2*p2p3*p6p7-2*fb2*p2p4*p6p7))
0621       ans1=w2*(16*(p6p7*p2p5)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(
0622      . p3p7*p3p6*p3p5)*(-ffmcfmb**2+ffmcfmb)+16*(p5p6*p3p7)*(ffmcfmb
0623      . **2*hbcm2+ffmcfmb*fmb*hbcm-ffmcfmb*hbcm2)+8*p6p7*(-ffmcfmb**2*
0624      . fmb*hbcm3+fmb*fmc2*hbcm)+16*(ffmcfmb*fmb*hbcm*p1p3*p6p7+
0625      . ffmcfmb*fmb*hbcm*p3p6*p3p7+2*ffmcfmb*fmb*hbcm*p3p7*p4p6+
0626      . ffmcfmb*p3p5*p3p7*p4p6+fmb*hbcm*p1p2*p6p7-fmb*hbcm*p2p3*p6p7-3
0627      . *fmb*hbcm*p2p4*p6p7+p1p2*p3p5*p6p7-p2p3*p3p5*p6p7-2*p2p4*p3p5*
0628      . p6p7))+w17*(32*(p6p7*p2p4)*(ffmcfmb*hbcm2-fmc*hbcm)+16*(p6p7*
0629      . p2p3)*(ffmcfmb*hbcm2-fmc*hbcm)+16*(p6p7*p1p2)*(-ffmcfmb*hbcm2+
0630      . fmc*hbcm)+16*(p6p7*p1p3)*(ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm)+
0631      . 16*(p3p7*p3p6*p2p3)*(-ffmcfmb**2+ffmcfmb)+16*(p3p7*p3p6*p1p3)*
0632      . (-ffmcfmb**2+ffmcfmb)+16*(p4p6*p3p7)*(-ffmcfmb**2*hbcm2+
0633      . ffmcfmb*fmc*hbcm)+8*p6p7*(-ffmcfmb**2*fmb*hbcm3-ffmcfmb**2*fmc
0634      . *hbcm3+fmb*fmc2*hbcm+fmc3*hbcm-2*p2p3s2)+16*(ffmcfmb*fmc*hbcm*
0635      . p3p6*p3p7+ffmcfmb*p1p3*p3p7*p4p6+ffmcfmb*p2p3*p3p7*p4p6+p1p2*
0636      . p1p3*p6p7+p1p2*p2p3*p6p7-p1p3*p2p3*p6p7-2*p1p3*p2p4*p6p7-2*
0637      . p2p3*p2p4*p6p7))+ans2
0638       ans=ccc*ans1
0639       b(4)=ans
0640       ans3=w12*(32*(p3p7*p2p5)*(ffmcfmb*hbcm2-fmc*hbcm)+32*(p5p7*p2p3
0641      . )*(-ffmcfmb*hbcm2+fmc*hbcm)+16*(p3p7*p1p2)*(-ffmcfmb*hbcm2+fmc
0642      . *hbcm)+8*p5p7*(ffmcfmb**2*hbcm4-fmc2*hbcm2)+16*(p3p7*p3p5)*(-
0643      . ffmcfmb**2*hbcm2+ffmcfmb*fmc*hbcm)+16*(p3p7*p2p3)*(ffmcfmb**2*
0644      . hbcm2-ffmcfmb*fmc*hbcm)+8*(p3p7*p1p3)*(ffmcfmb**2*hbcm2-2*
0645      . ffmcfmb*fmb*hbcm-3*ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2)+8*p3p7*(
0646      . ffmcfmb**2*fmb*hbcm3+ffmcfmb**2*fmc*hbcm3-ffmcfmb**2*hbcm4+
0647      . ffmcfmb*fmc*hbcm3-2*ffmcfmb*p1p3s2-fmb*fmc2*hbcm-fmc3*hbcm)+16
0648      . *(-ffmcfmb*hbcm2*p1p3*p5p7-ffmcfmb*p1p3*p2p3*p3p7+ffmcfmb*p1p3
0649      . *p3p5*p3p7+p1p2*p1p3*p3p7+2*p1p3*p2p3*p5p7-2*p1p3*p2p5*p3p7))+
0650      . ((p3p7*p3p5)*(32*fb2*ffmcfmb+8)+(p3p7*p2p3)*(-32*fb2*ffmcfmb-8
0651      . )+(p3p7*p1p3)*(-32*fb2*ffmcfmb-8)+4*p3p7*(4*fb1*ffmcfmb*fmc*
0652      . hbcm+4*fb2*ffmcfmb**2*hbcm2+4*fb2*ffmcfmb*hbcm2-2*ffmcfmb*
0653      . hbcm2-4*fmb*hbcm-3*fmc*hbcm+hbcm2)+16*(2*fb2*p1p2*p3p7+4*fb2*
0654      . p2p3*p5p7-4*fb2*p2p5*p3p7-hbcm2*p5p7))
0655       ans2=w17*(16*(p3p7*p2p5)*(ffmcfmb*hbcm2-2*fmc*hbcm)+32*(p5p7*
0656      . p2p3)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*p5p7*(ffmcfmb**2*hbcm4-fmc2*
0657      . hbcm2+4*p2p3s2)+16*(p3p7*p3p5)*(-ffmcfmb**2*hbcm2+ffmcfmb*fmc*
0658      . hbcm)+8*(p3p7*p2p3)*(ffmcfmb**2*hbcm2-2*ffmcfmb*fmb*hbcm-3*
0659      . ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2)+8*(p3p7*p1p3)*(ffmcfmb**2*
0660      . hbcm2-2*ffmcfmb*fmb*hbcm-3*ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2)+8*
0661      . p3p7*(ffmcfmb**2*fmb*hbcm3+ffmcfmb**2*fmc*hbcm3-ffmcfmb**2*
0662      . hbcm4+ffmcfmb*fmc*hbcm3-2*ffmcfmb*p1p3s2-2*ffmcfmb*p2p3s2-fmb*
0663      . fmc2*hbcm-fmc3*hbcm)+16*(-ffmcfmb*hbcm2*p1p3*p5p7-2*ffmcfmb*
0664      . p1p3*p2p3*p3p7+ffmcfmb*p1p3*p3p5*p3p7+ffmcfmb*p2p3*p3p5*p3p7+
0665      . fmc*hbcm*p1p2*p3p7+p1p2*p1p3*p3p7+p1p2*p2p3*p3p7+2*p1p3*p2p3*
0666      . p5p7-2*p1p3*p2p5*p3p7-2*p2p3*p2p5*p3p7))+ans3
0667       ans1=w2*(16*(p3p7*p2p5)*(ffmcfmb*hbcm2-2*fmb*hbcm)+16*(p5p7*
0668      . p2p3)*(-ffmcfmb*hbcm2+2*fmb*hbcm)+8*p5p7*(ffmcfmb**2*hbcm4-
0669      . fmc2*hbcm2)+8*(p3p7*p3p5)*(-ffmcfmb**2*hbcm2+2*ffmcfmb*fmb*
0670      . hbcm-ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2)+8*p3p7*(ffmcfmb**2*fmb*
0671      . hbcm3-ffmcfmb*fmb*fmc*hbcm2+2*ffmcfmb*fmb*hbcm3-ffmcfmb*fmb2*
0672      . hbcm2+2*ffmcfmb*p3p5s2-fmb*fmc2*hbcm)+16*(-2*ffmcfmb*fmb*hbcm*
0673      . p1p3*p3p7-2*ffmcfmb*fmb*hbcm*p2p3*p3p7-ffmcfmb*hbcm2*p1p3*p5p7
0674      . +ffmcfmb*hbcm2*p1p5*p3p7-ffmcfmb*p1p3*p3p5*p3p7-ffmcfmb*p2p3*
0675      . p3p5*p3p7+2*fmb*hbcm*p1p2*p3p7+hbcm2*p1p2*p5p7+p1p2*p3p5*p3p7+
0676      . 2*p2p3*p3p5*p5p7-2*p2p5*p3p5*p3p7))+ans2
0677       ans=ccc*ans1
0678       b(5)=ans
0679       ans2=w12*(16*(p3p6*p2p5)*(2*ffmcfmb*hbcm2-fmc*hbcm)+32*(p4p6*
0680      . p2p3)*(-ffmcfmb*hbcm2+fmc*hbcm)+16*(p3p6*p1p2)*(-ffmcfmb*hbcm2
0681      . +fmc*hbcm)+16*(p3p6*p2p3)*(ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm)+
0682      . 8*p4p6*(ffmcfmb**2*hbcm4-fmc2*hbcm2)+8*(p3p6*p1p3)*(ffmcfmb**2
0683      . *hbcm2-2*ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*hbcm-fmc2)+8*p3p6*(
0684      . ffmcfmb**2*fmb*hbcm3+ffmcfmb**2*fmc*hbcm3-2*ffmcfmb*p1p3s2-fmb
0685      . *fmc2*hbcm-fmc3*hbcm)+16*(-ffmcfmb*hbcm2*p1p3*p4p6+p1p2*p1p3*
0686      . p3p6+2*p1p3*p2p3*p4p6-p1p3*p2p5*p3p6))+((p3p6*p1p3)*(-32*fb2*
0687      . ffmcfmb-8)+8*p3p6*(2*fb2*ffmcfmb**2*hbcm2-2*fb2*fmc2-2*fmb*
0688      . hbcm-fmc*hbcm)+16*(2*fb2*p1p2*p3p6+4*fb2*p2p3*p4p6-2*fb2*p2p5*
0689      . p3p6-hbcm2*p4p6))
0690       ans1=w2*(16*(p3p6*p2p5)*(ffmcfmb*hbcm2-fmb*hbcm)+16*(p5p6*p2p3)
0691      . *(ffmcfmb*hbcm2+fmb*hbcm)+8*p5p6*(-ffmcfmb**2*hbcm4+fmc2*hbcm2
0692      . )+8*(p3p6*p3p5)*(ffmcfmb**2*hbcm2-fmc2)+8*p3p6*(ffmcfmb**2*fmb
0693      . *hbcm3-fmb*fmc2*hbcm)+16*(-ffmcfmb*fmb*hbcm*p1p3*p3p6+ffmcfmb*
0694      . fmb*hbcm*p2p3*p3p6+ffmcfmb*hbcm2*p1p3*p5p6-ffmcfmb*p1p3*p3p5*
0695      . p3p6+fmb*hbcm*p1p2*p3p6+3*fmb*hbcm*p2p3*p4p6-hbcm2*p1p2*p5p6+
0696      . hbcm2*p2p5*p4p6+hbcm2*p2p5*p5p6+p1p2*p3p5*p3p6+2*p2p3*p3p5*
0697      . p4p6-p2p5*p3p5*p3p6))+w17*(16*(p3p6*p2p5)*(2*ffmcfmb*hbcm2-fmc
0698      . *hbcm)+32*(p4p6*p2p3)*(-ffmcfmb*hbcm2+fmc*hbcm)+16*(p3p6*p1p2)
0699      . *(-ffmcfmb*hbcm2+fmc*hbcm)+8*p4p6*(ffmcfmb**2*hbcm4-fmc2*hbcm2
0700      . +4*p2p3s2)+8*(p3p6*p2p3)*(ffmcfmb**2*hbcm2+2*ffmcfmb*fmb*hbcm+
0701      . 2*ffmcfmb*fmc*hbcm-fmc2)+8*(p3p6*p1p3)*(ffmcfmb**2*hbcm2-2*
0702      . ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*hbcm-fmc2)+8*p3p6*(ffmcfmb**2*
0703      . fmb*hbcm3+ffmcfmb**2*fmc*hbcm3-2*ffmcfmb*p1p3s2-fmb*fmc2*hbcm-
0704      . fmc3*hbcm)+16*(-ffmcfmb*hbcm2*p1p3*p4p6-ffmcfmb*p1p3*p2p3*p3p6
0705      . +p1p2*p1p3*p3p6+p1p2*p2p3*p3p6+2*p1p3*p2p3*p4p6-p1p3*p2p5*p3p6
0706      . -p2p3*p2p5*p3p6))+ans2
0707       ans=ccc*ans1
0708       b(6)=ans
0709       ans2=w12*(24*p2p5*(-ffmcfmb*hbcm2+fmc*hbcm)+16*p2p3*(-ffmcfmb*
0710      . hbcm2+fmc*hbcm)+16*p1p2*(ffmcfmb*hbcm2-fmc*hbcm)+4*p1p3*(-
0711      . ffmcfmb**2*hbcm2+4*ffmcfmb*fmb*hbcm+4*ffmcfmb*fmc*hbcm-2*
0712      . ffmcfmb*hbcm2+fmc2)+4*(-2*ffmcfmb**2*fmb*hbcm3-2*ffmcfmb**2*
0713      . fmc*hbcm3+ffmcfmb**2*hbcm4+2*ffmcfmb*p1p3s2+2*fmb*fmc2*hbcm-
0714      . fmc2*hbcm2+2*fmc3*hbcm-4*p1p2*p1p3+4*p1p3*p2p3+6*p1p3*p2p5))+(
0715      . p1p3*(16*fb2*ffmcfmb+4)+4*(-2*fb2*ffmcfmb**2*hbcm2+2*fb2*fmc2-
0716      . 8*fb2*p1p2+8*fb2*p2p3+12*fb2*p2p5+ffmcfmb*hbcm2+4*fmb*hbcm+3*
0717      . fmc*hbcm-2*hbcm2))
0718       ans1=w2*(8*p2p5*(-ffmcfmb*hbcm2+3*fmb*hbcm+hbcm2)+4*p3p5*(-
0719      . ffmcfmb**2*hbcm2+fmc2)+8*(-ffmcfmb**2*fmb*hbcm3+2*ffmcfmb*fmb*
0720      . hbcm*p1p3+ffmcfmb*p1p3*p3p5+fmb*fmc2*hbcm-3*fmb*hbcm*p1p2+3*
0721      . fmb*hbcm*p2p3-2*p1p2*p3p5+2*p2p3*p3p5+3*p2p5*p3p5))+w17*((p2p3
0722      . *p1p3)*(8*ffmcfmb+16)+24*p2p5*(-ffmcfmb*hbcm2+fmc*hbcm)+16*
0723      . p1p2*(ffmcfmb*hbcm2-fmc*hbcm)+4*p2p3*(-ffmcfmb**2*hbcm2-4*
0724      . ffmcfmb*hbcm2+4*fmc*hbcm+fmc2)+4*p1p3*(-ffmcfmb**2*hbcm2+4*
0725      . ffmcfmb*fmb*hbcm+4*ffmcfmb*fmc*hbcm-2*ffmcfmb*hbcm2+fmc2)+4*(-
0726      . 2*ffmcfmb**2*fmb*hbcm3-2*ffmcfmb**2*fmc*hbcm3+ffmcfmb**2*hbcm4
0727      . +2*ffmcfmb*p1p3s2+2*fmb*fmc2*hbcm-fmc2*hbcm2+2*fmc3*hbcm-4*
0728      . p1p2*p1p3-4*p1p2*p2p3+6*p1p3*p2p5+6*p2p3*p2p5+4*p2p3s2))+ans2
0729       ans=ccc*ans1
0730       b(7)=ans
0731       ans2=w12*(16*p2p5*(-ffmcfmb*hbcm3+fmc*hbcm2)+8*p1p2*(ffmcfmb*
0732      . hbcm3-fmc*hbcm2)+8*(p2p3*p1p3)*(3*ffmcfmb*hbcm+2*fmb-fmc)+16*
0733      . p3p5*(ffmcfmb**2*hbcm3-fmc2*hbcm)+16*p2p3*(-ffmcfmb**2*hbcm3-
0734      . ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm)+8*p1p3*(-
0735      . ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2-2*ffmcfmb
0736      . *hbcm3+fmc2*hbcm)+4*(ffmcfmb**2*fmb*hbcm4-ffmcfmb**2*fmc*hbcm4
0737      . +2*ffmcfmb**2*hbcm5-8*ffmcfmb*hbcm*p1p3*p3p5+4*ffmcfmb*hbcm*
0738      . p1p3s2-fmb*fmc2*hbcm2-2*fmc2*hbcm3+fmc3*hbcm2-2*hbcm*p1p2*p1p3
0739      . +4*hbcm*p1p3*p2p5))+(4*p2p3*(4*fb1*ffmcfmb*hbcm+8*fb2*fmb-4*
0740      . fb2*fmc+7*hbcm)+8*(-2*fb1*hbcm*p1p2+4*fb1*hbcm*p2p5-fmb*hbcm2+
0741      . fmc*hbcm2+2*hbcm*p1p3-4*hbcm*p3p5-2*hbcm3))
0742       ans1=w2*(8*p2p5*(-ffmcfmb*hbcm3-2*fmb*hbcm2+hbcm3)+8*(p3p5*p2p3
0743      . )*(-ffmcfmb*hbcm+2*fmb-fmc)+8*p2p3*(-2*ffmcfmb*fmb*hbcm2-fmb*
0744      . fmc*hbcm+3*fmb2*hbcm)+8*p3p5*(ffmcfmb**2*hbcm3-fmc2*hbcm)+4*(
0745      . ffmcfmb**2*fmb*hbcm4-2*ffmcfmb*fmb*hbcm2*p1p3-4*ffmcfmb*hbcm*
0746      . p1p3*p3p5-fmb*fmc2*hbcm2+4*fmb*hbcm2*p1p2+6*hbcm*p1p2*p3p5-4*
0747      . hbcm*p1p5*p2p3-4*hbcm*p2p3*p2p5-4*hbcm*p2p5*p3p5))+w17*(16*
0748      . p2p5*(-ffmcfmb*hbcm3+fmc*hbcm2)+8*p1p2*(ffmcfmb*hbcm3-fmc*
0749      . hbcm2)+8*(p2p3*p1p3)*(ffmcfmb*hbcm+2*fmb-fmc)+16*p3p5*(ffmcfmb
0750      . **2*hbcm3-fmc2*hbcm)+8*p2p3*(-ffmcfmb**2*hbcm3-2*ffmcfmb*fmb*
0751      . hbcm2+2*ffmcfmb*fmc*hbcm2+2*fmb*fmc*hbcm-fmc2*hbcm)+8*p1p3*(-
0752      . ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2-2*ffmcfmb
0753      . *hbcm3+fmc2*hbcm)+4*(ffmcfmb**2*fmb*hbcm4-ffmcfmb**2*fmc*hbcm4
0754      . +2*ffmcfmb**2*hbcm5-8*ffmcfmb*hbcm*p1p3*p3p5+4*ffmcfmb*hbcm*
0755      . p1p3s2-2*ffmcfmb*hbcm*p2p3s2-fmb*fmc2*hbcm2+4*fmb*p2p3s2-2*fmc
0756      . *p2p3s2-2*fmc2*hbcm3+fmc3*hbcm2-2*hbcm*p1p2*p1p3+2*hbcm*p1p2*
0757      . p2p3+4*hbcm*p1p3*p2p5+4*hbcm*p2p3*p2p5))+ans2
0758       ans=ccc*ans1
0759       b(8)=ans
0760       ans=ccc*(w2*(8*p5p6*(ffmcfmb*hbcm3-fmb*hbcm2-hbcm3)+8*(p3p6*
0761      . p3p5)*(-3*ffmcfmb*hbcm+fmb)+8*p3p6*(-2*ffmcfmb*fmb*hbcm2+fmb2*
0762      . hbcm)+8*(-3*fmb*hbcm2*p4p6-4*hbcm*p3p5*p4p6-2*hbcm*p3p5*p5p6))
0763      . +w17*(16*p4p6*(-ffmcfmb*hbcm3+fmc*hbcm2)+8*(p3p6*p2p3)*(
0764      . ffmcfmb*hbcm+fmb)+8*(p3p6*p1p3)*(ffmcfmb*hbcm+fmb)+8*p3p6*(-2*
0765      . ffmcfmb*fmb*hbcm2+2*ffmcfmb*fmc*hbcm2-2*ffmcfmb*hbcm3+fmb*fmc*
0766      . hbcm-fmc2*hbcm)+16*(-2*ffmcfmb*hbcm*p3p5*p3p6+hbcm*p1p2*p3p6+
0767      . hbcm*p1p3*p4p6+hbcm*p2p3*p4p6))+w12*(16*p4p6*(-ffmcfmb*hbcm3+
0768      . fmc*hbcm2)+8*(p3p6*p1p3)*(3*ffmcfmb*hbcm+fmb)+8*p3p6*(-ffmcfmb
0769      . **2*hbcm3-2*ffmcfmb*fmb*hbcm2+2*ffmcfmb*fmc*hbcm2-2*ffmcfmb*
0770      . hbcm3+fmb*fmc*hbcm)+16*(ffmcfmb*hbcm*p2p3*p3p6-2*ffmcfmb*hbcm*
0771      . p3p5*p3p6+hbcm*p1p3*p4p6))+(4*p3p6*(4*fb1*ffmcfmb*hbcm+4*fb2*
0772      . fmb+3*hbcm)+32*fb1*hbcm*p4p6))
0773       b(9)=ans
0774       b(10)=ccc*(w2*((p3p6*p3p5)*(-8*ffmcfmb-8)+8*p5p6*(-ffmcfmb*
0775      . hbcm2-fmb*hbcm+hbcm2)+8*p3p6*(-2*ffmcfmb*fmb*hbcm-fmb*hbcm)+8*
0776      . (-4*fmb*hbcm*p4p6-3*p3p5*p4p6))+w17*((p3p6*p2p3)*(-8*ffmcfmb-8
0777      . )+(p3p6*p1p3)*(-8*ffmcfmb-8)+24*p4p6*(ffmcfmb*hbcm2-fmc*hbcm)+
0778      . 8*p3p6*(-2*ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*hbcm+2*ffmcfmb*hbcm2
0779      . -fmc*hbcm)+24*(-p1p3*p4p6-p2p3*p4p6))+w12*((p3p6*p1p3)*(-8*
0780      . ffmcfmb-8)+24*p4p6*(ffmcfmb*hbcm2-fmc*hbcm)+8*p3p6*(-2*ffmcfmb
0781      . *fmb*hbcm-2*ffmcfmb*fmc*hbcm+2*ffmcfmb*hbcm2-fmc*hbcm)-24*p1p3
0782      . *p4p6)+(p3p6*(-16*fb2*ffmcfmb-16*fb2-4)-48*fb2*p4p6))
0783       ans=ccc*(w2*(4*p3p5*(3*ffmcfmb*hbcm2-4*fmb*hbcm+fmc*hbcm-3*
0784      . hbcm2)+4*(2*ffmcfmb*fmb*hbcm3+fmb*fmc*hbcm2+2*fmb*hbcm*p1p3+2*
0785      . fmb*hbcm*p2p3-4*fmb*hbcm3+3*fmb2*hbcm2-2*hbcm2*p1p5-2*hbcm2*
0786      . p2p5+2*p1p3*p3p5+2*p2p3*p3p5-6*p3p5s2))+w17*(24*p3p5*(ffmcfmb*
0787      . hbcm2-fmc*hbcm)+4*p2p3*(-3*ffmcfmb*hbcm2-2*fmb*hbcm+fmc*hbcm-3
0788      . *hbcm2)+4*p1p3*(-3*ffmcfmb*hbcm2-2*fmb*hbcm+fmc*hbcm-3*hbcm2)+
0789      . 4*(2*ffmcfmb*fmb*hbcm3+2*ffmcfmb*fmc*hbcm3+3*ffmcfmb*hbcm4-2*
0790      . fmb*fmc*hbcm2-3*fmc*hbcm3-2*fmc2*hbcm2+2*hbcm2*p1p2+4*p1p3*
0791      . p2p3-6*p1p3*p3p5+2*p1p3s2-6*p2p3*p3p5+2*p2p3s2))+w12*(24*p3p5*
0792      . (ffmcfmb*hbcm2-fmc*hbcm)+8*p2p3*(-ffmcfmb*hbcm2+fmc*hbcm)+4*
0793      . p1p3*(-ffmcfmb*hbcm2-2*fmb*hbcm+fmc*hbcm-3*hbcm2)+4*(-ffmcfmb
0794      . **2*hbcm4+2*ffmcfmb*fmb*hbcm3+2*ffmcfmb*fmc*hbcm3+3*ffmcfmb*
0795      . hbcm4-2*fmb*fmc*hbcm2-3*fmc*hbcm3-fmc2*hbcm2+2*p1p3*p2p3-6*
0796      . p1p3*p3p5+2*p1p3s2))+2*(-8*fb1*fmb*hbcm-4*fb1*fmc*hbcm+4*fb2*
0797      . ffmcfmb*hbcm2-12*fb2*hbcm2+8*fb2*p1p3+8*fb2*p2p3-24*fb2*p3p5+3
0798      . *hbcm2))
0799       b(11)=ans
0800       ans=ccc*(w2*(8*p5p7*(ffmcfmb*hbcm3+2*fmb*hbcm2-hbcm3)+8*(p3p7*
0801      . p3p5)*(-ffmcfmb*hbcm-2*fmb+fmc)+8*p3p7*(ffmcfmb*fmb*hbcm2+fmb*
0802      . fmc*hbcm-3*fmb2*hbcm)+16*(hbcm*p1p5*p3p7+hbcm*p2p5*p3p7+hbcm*
0803      . p3p5*p5p7))+w17*(16*p5p7*(ffmcfmb*hbcm3-fmc*hbcm2)+8*(p3p7*
0804      . p2p3)*(3*ffmcfmb*hbcm-2*fmb+fmc)+8*(p3p7*p1p3)*(3*ffmcfmb*hbcm
0805      . -2*fmb+fmc)+8*p3p7*(ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-2*
0806      . ffmcfmb*hbcm3-2*fmb*fmc*hbcm+2*fmc2*hbcm)+16*(-2*ffmcfmb*hbcm*
0807      . p3p5*p3p7-hbcm*p1p2*p3p7-hbcm*p1p3*p5p7-hbcm*p2p3*p5p7))+w12*(
0808      . 16*p5p7*(ffmcfmb*hbcm3-fmc*hbcm2)+8*(p3p7*p1p3)*(-ffmcfmb*hbcm
0809      . -2*fmb+fmc)+8*p3p7*(ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*hbcm2-2*
0810      . ffmcfmb*fmc*hbcm2-2*fmb*fmc*hbcm+fmc2*hbcm)-16*hbcm*p1p3*p5p7)
0811      . +(4*p3p7*(-4*fb1*ffmcfmb*hbcm-8*fb2*fmb+4*fb2*fmc-3*hbcm)-32*
0812      . fb1*hbcm*p5p7))
0813       b(12)=ans
0814       b(13)=ccc*(w2*(4*p3p5*(2*ffmcfmb*hbcm-3*fmb+fmc-4*hbcm)+4*(3*
0815      . ffmcfmb*fmb*hbcm2+fmb*fmc*hbcm-3*fmb*hbcm2-4*fmb2*hbcm+2*hbcm*
0816      . p1p5+2*hbcm*p2p5))+w17*(4*p2p3*(2*ffmcfmb*hbcm-3*fmb+fmc+2*
0817      . hbcm)+4*p1p3*(2*ffmcfmb*hbcm-3*fmb+fmc+2*hbcm)+4*(3*ffmcfmb*
0818      . fmb*hbcm2-3*ffmcfmb*fmc*hbcm2-2*ffmcfmb*hbcm3-3*fmb*fmc*hbcm+2
0819      . *fmc*hbcm2+3*fmc2*hbcm-4*hbcm*p1p2))+w12*(4*p1p3*(-2*ffmcfmb*
0820      . hbcm-3*fmb+fmc+2*hbcm)+4*(2*ffmcfmb**2*hbcm3+3*ffmcfmb*fmb*
0821      . hbcm2-3*ffmcfmb*fmc*hbcm2-2*ffmcfmb*hbcm3-3*fmb*fmc*hbcm+2*fmc
0822      . *hbcm2+fmc2*hbcm))+4*(-4*fb1*ffmcfmb*hbcm+4*fb1*hbcm-6*fb2*fmb
0823      . +2*fb2*fmc-3*hbcm))
0824       b(14)=ccc*(w2*((p3p7*p3p5)*(8*ffmcfmb-16)+8*p5p7*(ffmcfmb*hbcm2
0825      . -3*fmb*hbcm-hbcm2)+8*p3p7*(2*ffmcfmb*fmb*hbcm-3*fmb*hbcm)-24*
0826      . p3p5*p5p7)+w17*((p3p7*p2p3)*(8*ffmcfmb-16)+(p3p7*p1p3)*(8*
0827      . ffmcfmb-16)+24*p5p7*(ffmcfmb*hbcm2-fmc*hbcm)+8*p3p7*(2*ffmcfmb
0828      . *fmb*hbcm+2*ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-2*fmc*hbcm)+24*(-
0829      . p1p3*p5p7-p2p3*p5p7))+w12*((p3p7*p1p3)*(8*ffmcfmb-16)+24*p5p7*
0830      . (ffmcfmb*hbcm2-fmc*hbcm)+8*p3p7*(-ffmcfmb**2*hbcm2+ffmcfmb*fmc
0831      . *hbcm+2*ffmcfmb*hbcm2-2*fmc*hbcm)-24*p1p3*p5p7)+(p3p7*(16*fb2*
0832      . ffmcfmb-32*fb2+4)-48*fb2*p5p7))
0833       ans3=w12*(32*(p4p6*p3p7)*(ffmcfmb*hbcm2-fmc*hbcm)+16*(p5p7*p3p6
0834      . )*(-2*ffmcfmb*hbcm2+fmc*hbcm)+32*(p6p7*p3p4)*(-ffmcfmb*hbcm2+
0835      . fmc*hbcm)+16*(p6p7*p2p3)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p6p7*p1p3
0836      . )*(2*ffmcfmb*hbcm2-fmb*hbcm-3*fmc*hbcm+2*hbcm2)+8*p6p7*(
0837      . ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*hbcm3-2*ffmcfmb*hbcm4-fmb*fmc*
0838      . hbcm2+2*fmc*hbcm3-fmc2*hbcm2-2*p1p3s2)+16*(p3p7*p3p6)*(-
0839      . ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*hbcm)+16*(-ffmcfmb*p1p3*p3p6*
0840      . p3p7-p1p3*p2p3*p6p7+2*p1p3*p3p4*p6p7+p1p3*p3p6*p5p7-2*p1p3*
0841      . p3p7*p4p6))+((p3p7*p3p6)*(-32*fb2*ffmcfmb-8)+8*p6p7*(-2*fb1*
0842      . fmb*hbcm-2*fb1*fmc*hbcm+4*fb2*hbcm2+hbcm2)+32*(-fb2*p1p3*p6p7-
0843      . fb2*p2p3*p6p7+2*fb2*p3p4*p6p7+fb2*p3p6*p5p7-2*fb2*p3p7*p4p6))
0844       ans2=w17*(16*(p4p6*p3p7)*(ffmcfmb*hbcm2-2*fmc*hbcm)+16*(p5p7*
0845      . p3p6)*(-2*ffmcfmb*hbcm2+fmc*hbcm)+32*(p6p7*p3p4)*(-ffmcfmb*
0846      . hbcm2+fmc*hbcm)+8*(p6p7*p2p3)*(2*ffmcfmb*hbcm2-fmb*hbcm-3*fmc*
0847      . hbcm+2*hbcm2)+8*(p6p7*p1p3)*(2*ffmcfmb*hbcm2-fmb*hbcm-3*fmc*
0848      . hbcm+2*hbcm2)+8*p6p7*(ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*hbcm3-2*
0849      . ffmcfmb*hbcm4-fmb*fmc*hbcm2+2*fmc*hbcm3-fmc2*hbcm2-2*p1p3s2-2*
0850      . p2p3s2)+32*(p3p7*p3p6)*(-ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm)+16
0851      . *(-ffmcfmb*p1p3*p3p6*p3p7-ffmcfmb*p2p3*p3p6*p3p7-2*p1p3*p2p3*
0852      . p6p7+2*p1p3*p3p4*p6p7+p1p3*p3p6*p5p7-2*p1p3*p3p7*p4p6+2*p2p3*
0853      . p3p4*p6p7+p2p3*p3p6*p5p7-2*p2p3*p3p7*p4p6))+ans3
0854       ans1=w2*(16*(p5p7*p3p6)*(-ffmcfmb*hbcm2+fmb*hbcm)+8*(p6p7*p3p5)
0855      . *(2*ffmcfmb*hbcm2+3*fmb*hbcm+fmc*hbcm+2*hbcm2)+8*p6p7*(ffmcfmb
0856      . *fmb*hbcm3+fmb*fmc*hbcm2+3*fmb*hbcm3+2*fmb2*hbcm2)+16*(-2*
0857      . ffmcfmb*fmb*hbcm*p3p6*p3p7-ffmcfmb*p3p5*p3p6*p3p7-2*fmb*hbcm*
0858      . p1p3*p6p7-2*fmb*hbcm*p2p3*p6p7+3*fmb*hbcm*p3p4*p6p7-3*fmb*hbcm
0859      . *p3p7*p4p6-fmb*hbcm*p3p7*p5p6-hbcm2*p1p5*p6p7-hbcm2*p2p5*p6p7-
0860      . hbcm2*p4p6*p5p7-hbcm2*p5p6*p5p7-p1p3*p3p5*p6p7-p2p3*p3p5*p6p7+
0861      . 2*p3p4*p3p5*p6p7+p3p5*p3p6*p5p7-2*p3p5*p3p7*p4p6))+ans2
0862       ans=ccc*ans1
0863       b(15)=ans
0864       ans=ccc*(w2*(16*(p5p6*p3p7)*(ffmcfmb*hbcm-hbcm)+8*(p6p7*p3p5)*(
0865      . -ffmcfmb*hbcm+2*fmb-fmc+3*hbcm)+8*p6p7*(-2*ffmcfmb*fmb*hbcm2-
0866      . fmb*fmc*hbcm+2*fmb*hbcm2+3*fmb2*hbcm)+16*(-ffmcfmb*hbcm*p3p6*
0867      . p5p7-hbcm*p1p5*p6p7-hbcm*p2p5*p6p7-hbcm*p4p6*p5p7-hbcm*p5p6*
0868      . p5p7))+w17*(8*(p6p7*p2p3)*(-ffmcfmb*hbcm+2*fmb-fmc-hbcm)+8*(
0869      . p6p7*p1p3)*(-ffmcfmb*hbcm+2*fmb-fmc-hbcm)+8*p6p7*(-2*ffmcfmb*
0870      . fmb*hbcm2+2*ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3+2*fmb*fmc*hbcm-fmc
0871      . *hbcm2-2*fmc2*hbcm)+16*(-2*ffmcfmb*hbcm*p3p6*p3p7-2*ffmcfmb*
0872      . hbcm*p3p6*p5p7-2*ffmcfmb*hbcm*p3p7*p4p6+hbcm*p1p2*p6p7))+w12*(
0873      . 8*(p6p7*p1p3)*(ffmcfmb*hbcm+2*fmb-fmc-hbcm)+8*p6p7*(-ffmcfmb**
0874      . 2*hbcm3-2*ffmcfmb*fmb*hbcm2+2*ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3+
0875      . 2*fmb*fmc*hbcm-fmc*hbcm2-fmc2*hbcm)+16*(-ffmcfmb*hbcm*p3p6*
0876      . p3p7-2*ffmcfmb*hbcm*p3p6*p5p7))+4*p6p7*(4*fb1*ffmcfmb*hbcm-4*
0877      . fb1*hbcm+8*fb2*fmb-4*fb2*fmc+3*hbcm))
0878       b(16)=ans
0879       do 200 n=1,16
0880          c(n,1)=c(n,1)-0.09090909090909091d0*b(n)
0881          c(n,2)=c(n,2)-0.1680909685530997d0*b(n)
0882          c(n,3)=c(n,3)-0.2077659977796572d0*b(n)
0883 200   continue
0884       return
0885       end
0886
0887       subroutine amp16_3p0(cc)
0888       implicit double precision(a-h,o-z)
0889       implicit integer (i-n)
0890       dimension b(16)
0891 #include "inclcon.h"
0892 #include "inclppp.h"
0893 #include "inclamp.h"
0894       do 100 n=1,16
0895          b(n)=0.0d0
0896 100   continue
0897       ccc=cc/((ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*p3p5+fmb2+
0898      . hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3-2*ffmcfmb*p2p3-
0899      . fmc2+2*p1p2)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p2p3-fmc2))
0900       ans4=16*(-2*ffmcfmb*hbcm*p1p5*p3p6*p3p7+2*ffmcfmb*hbcm*p3p5*
0901      . p3p7*p5p6+fmb*hbcm2*p2p5*p6p7-fmb*p2p3*p3p5*p6p7-fmb2*hbcm*
0902      . p2p3*p6p7+2*hbcm*p2p3*p3p6*p5p7+2*hbcm*p2p3*p4p6*p5p7+2*hbcm*
0903      . p2p3*p5p6*p5p7+hbcm*p2p5*p3p5*p6p7-2*hbcm*p2p5*p3p7*p4p6-2*
0904      . hbcm*p2p5*p3p7*p5p6)
0905       ans3=16*(p5p7*p5p6)*(-ffmcfmb*hbcm3+fmc*hbcm2)+16*(p5p7*p4p6)*(
0906      . -ffmcfmb*hbcm3+fmc*hbcm2)+16*(p4p6*p3p7*p3p5)*(ffmcfmb*hbcm+
0907      . fmc)+16*(p5p7*p3p6*p3p5)*(-ffmcfmb*hbcm+fmc)+32*(p3p7*p3p6*
0908      . p2p5)*(-ffmcfmb*hbcm-hbcm)+16*(p4p6*p3p7)*(-ffmcfmb*fmb*hbcm2+
0909      . 2*fmb*fmc*hbcm)+16*(p5p7*p3p6)*(-ffmcfmb*fmb*hbcm2-ffmcfmb*
0910      . hbcm3+fmb*fmc*hbcm+fmc*hbcm2)+16*(p5p6*p3p7)*(-ffmcfmb**2*
0911      . hbcm3+ffmcfmb*hbcm3+fmb*fmc*hbcm)+8*(p6p7*p3p5)*(ffmcfmb**2*
0912      . hbcm3-ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3+fmb*
0913      . fmc*hbcm+fmc*hbcm2)+16*(p3p7*p3p6*p3p5)*(ffmcfmb**2*hbcm-
0914      . ffmcfmb*fmc+ffmcfmb*hbcm+fmc)+8*p6p7*(ffmcfmb**2*fmb*hbcm4-
0915      . ffmcfmb*fmb*fmc*hbcm3-ffmcfmb*fmb*hbcm4+ffmcfmb*fmb2*hbcm3-2*
0916      . ffmcfmb*hbcm*p3p5s2+fmb*fmc*hbcm3-fmb2*fmc*hbcm2+2*fmc*p3p5s2)
0917      . +16*(p3p7*p3p6)*(-ffmcfmb**2*fmb*hbcm2-ffmcfmb*fmb*fmc*hbcm-
0918      . ffmcfmb*fmb*hbcm2+ffmcfmb*fmb2*hbcm+2*fmb*fmc*hbcm)+ans4
0919       ans2=w2*ans3
0920       ans7=8*p6p7*(ffmcfmb**2*fmb*hbcm4-ffmcfmb**2*fmc*hbcm4+ffmcfmb
0921      . **2*hbcm5+4*ffmcfmb*hbcm*p2p3s2-fmb*fmc2*hbcm2-2*fmb*p2p3s2-
0922      . fmc2*hbcm3+fmc3*hbcm2)+16*(p3p7*p3p6)*(-ffmcfmb**2*fmb*hbcm2+
0923      . ffmcfmb**2*fmc*hbcm2+ffmcfmb**2*hbcm3-fmc2*hbcm)+16*(-2*hbcm*
0924      . p1p2*p2p3*p6p7+2*hbcm*p1p2*p3p5*p6p7+2*hbcm*p1p2*p3p6*p5p7+2*
0925      . hbcm*p1p2*p3p7*p4p6-hbcm*p1p3*p2p5*p6p7-hbcm*p2p3*p2p5*p6p7)
0926       ans6=16*(p6p7*p1p2)*(fmb*hbcm2-fmc*hbcm2+hbcm3)+16*(p6p7*p2p5)*
0927      . (ffmcfmb*hbcm3-fmc*hbcm2)+16*(p4p6*p3p7*p2p3)*(-ffmcfmb*hbcm+
0928      . fmc)+16*(p5p7*p3p6*p2p3)*(-ffmcfmb*hbcm+fmc)+16*(p6p7*p3p5*
0929      . p2p3)*(-3*ffmcfmb*hbcm+fmc)+16*(p4p6*p3p7*p1p3)*(-ffmcfmb*hbcm
0930      . +fmc)+16*(p5p7*p3p6*p1p3)*(-ffmcfmb*hbcm+fmc)+16*(p6p7*p3p5*
0931      . p1p3)*(-ffmcfmb*hbcm+fmc)+16*(p6p7*p2p3*p1p3)*(2*ffmcfmb*hbcm-
0932      . fmb)+32*(p3p7*p3p6*p1p2)*(-ffmcfmb*hbcm+hbcm)+16*(p4p6*p3p7)*(
0933      . ffmcfmb**2*hbcm3-fmc2*hbcm)+16*(p5p7*p3p6)*(ffmcfmb**2*hbcm3-
0934      . fmc2*hbcm)+16*(p6p7*p3p5)*(ffmcfmb**2*hbcm3-fmc2*hbcm)+8*(p6p7
0935      . *p2p3)*(-ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2-
0936      . 3*ffmcfmb*hbcm3-fmb*fmc*hbcm+fmc*hbcm2+2*fmc2*hbcm)+8*(p6p7*
0937      . p1p3)*(-ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2-
0938      . ffmcfmb*hbcm3+fmb*fmc*hbcm+fmc*hbcm2)+16*(p3p7*p3p6*p2p3)*(
0939      . ffmcfmb**2*hbcm-ffmcfmb*fmc-ffmcfmb*hbcm+fmc)+16*(p3p7*p3p6*
0940      . p1p3)*(ffmcfmb**2*hbcm-ffmcfmb*fmc-ffmcfmb*hbcm+fmc)+ans7
0941       ans5=w17*ans6
0942       ans8=(8*(p4p6*p3p7)*(4*fb1*ffmcfmb*hbcm+4*fb2*fmc-hbcm)+8*(p5p7
0943      . *p3p6)*(4*fb1*ffmcfmb*hbcm+4*fb2*fmc-hbcm)+8*(p6p7*p3p5)*(4*
0944      . fb1*ffmcfmb*hbcm+4*fb2*fmc-hbcm)+4*p6p7*(-4*fb1*ffmcfmb**2*
0945      . hbcm3+4*fb1*ffmcfmb*hbcm3+4*fb1*fmb*fmc*hbcm+4*fb2*ffmcfmb*fmb
0946      . *hbcm2-4*fb2*ffmcfmb*fmc*hbcm2+4*fb2*fmc*hbcm2-2*ffmcfmb*hbcm3
0947      . -fmb*hbcm2+3*fmc*hbcm2-hbcm3)+8*(p3p7*p3p6)*(4*fb1*ffmcfmb**2*
0948      . hbcm+4*fb1*ffmcfmb*hbcm-4*fb2*ffmcfmb*fmc+4*fb2*fmc+4*ffmcfmb*
0949      . hbcm-fmc-hbcm)+32*(-fb1*hbcm*p2p5*p6p7-fb2*fmb*p2p3*p6p7))
0950       ans1=w7*(16*(p6p7*p2p5)*(ffmcfmb*hbcm3-fmc*hbcm2)+16*(p4p6*p3p7
0951      . *p2p3)*(ffmcfmb*hbcm+fmc)+16*(p5p7*p3p6*p2p3)*(-ffmcfmb*hbcm+
0952      . fmc)+16*(p6p7*p3p5*p2p3)*(-ffmcfmb*hbcm+fmc)+8*(p6p7*p2p3)*(
0953      . ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-ffmcfmb*
0954      . hbcm3-fmb*fmc*hbcm+fmc*hbcm2)+16*(p3p7*p3p6*p2p3)*(ffmcfmb**2*
0955      . hbcm-ffmcfmb*fmc+ffmcfmb*hbcm+fmc)+16*(-2*ffmcfmb*hbcm*p1p2*
0956      . p3p6*p3p7+2*ffmcfmb*hbcm*p2p5*p3p6*p3p7-fmb*p2p3s2*p6p7-hbcm*
0957      . p2p3*p2p5*p6p7))+ans2+ans5+ans8
0958       ans=ccc*ans1
0959       b(1)=ans
0960       ans2=(8*p5p7*(-4*fb1*ffmcfmb*hbcm-4*fb2*fmc+hbcm)+4*p3p7*(-4*
0961      . fb1*ffmcfmb*hbcm-4*fb2*ffmcfmb*fmb+4*fb2*ffmcfmb*fmc-4*fb2*fmc
0962      . -fmb+fmc+hbcm))
0963       ans1=w7*(16*(p5p7*p2p3)*(ffmcfmb*hbcm-fmc)+8*(p3p7*p2p3)*(-
0964      . ffmcfmb*fmb+ffmcfmb*fmc-ffmcfmb*hbcm-fmc)+16*(ffmcfmb*hbcm*
0965      . p1p2*p3p7-2*ffmcfmb*hbcm*p2p5*p3p7))+w2*(16*(p5p7*p3p5)*(
0966      . ffmcfmb*hbcm-fmc)+16*(p5p7*p2p3)*(ffmcfmb*hbcm-hbcm)+8*(p3p7*
0967      . p3p5)*(-ffmcfmb*fmb+ffmcfmb*fmc-ffmcfmb*hbcm-fmc)+8*p3p7*(2*
0968      . ffmcfmb*fmb*fmc*hbcm+ffmcfmb*fmb*hbcm2-2*ffmcfmb*fmb2*hbcm-2*
0969      . fmb*fmc*hbcm)+8*p5p7*(-ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*hbcm2+
0970      . ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3-2*fmb*fmc*hbcm-fmc*hbcm2)+16*(
0971      . ffmcfmb*hbcm*p1p5*p3p7+hbcm*p2p5*p3p7))+w17*(16*(p5p7*p2p3)*(3
0972      . *ffmcfmb*hbcm-fmc)+16*(p5p7*p1p3)*(ffmcfmb*hbcm-fmc)+16*(p3p7*
0973      . p1p2)*(ffmcfmb*hbcm-hbcm)+8*(p3p7*p2p3)*(-ffmcfmb*fmb+ffmcfmb*
0974      . fmc+ffmcfmb*hbcm-fmc)+8*(p3p7*p1p3)*(-ffmcfmb*fmb+ffmcfmb*fmc+
0975      . ffmcfmb*hbcm-fmc)+16*p5p7*(-ffmcfmb**2*hbcm3+fmc2*hbcm)+8*p3p7
0976      . *(-ffmcfmb**2*hbcm3+fmc2*hbcm)+32*(-ffmcfmb*hbcm*p2p5*p3p7-
0977      . hbcm*p1p2*p5p7))+ans2
0978       ans=ccc*ans1
0979       b(2)=ans
0980       ans=ccc*(w7*(16*(p4p6*p2p3)*(ffmcfmb*hbcm-fmc)+8*(p3p6*p2p3)*(
0981      . ffmcfmb*hbcm-fmc))+w2*(16*(p4p6*p3p5)*(ffmcfmb*hbcm-fmc)+8*(
0982      . p3p6*p3p5)*(ffmcfmb*hbcm-fmc)+16*(p5p6*p2p3)*(-ffmcfmb*hbcm+
0983      . hbcm)+24*p4p6*(ffmcfmb*fmb*hbcm2-fmb*fmc*hbcm)+8*p5p6*(ffmcfmb
0984      . **2*hbcm3+ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3-
0985      . fmb*fmc*hbcm+fmc*hbcm2)+8*p3p6*(ffmcfmb**2*fmb*hbcm2-ffmcfmb*
0986      . fmb*fmc*hbcm+ffmcfmb*fmb*hbcm2-fmb*fmc*hbcm)+16*(ffmcfmb*hbcm*
0987      . p2p5*p3p6+hbcm*p2p5*p4p6+hbcm*p2p5*p5p6))+w17*(16*(p4p6*p2p3)*
0988      . (3*ffmcfmb*hbcm-fmc)+8*(p3p6*p2p3)*(5*ffmcfmb*hbcm-fmc)+16*(
0989      . p4p6*p1p3)*(ffmcfmb*hbcm-fmc)+8*(p3p6*p1p3)*(ffmcfmb*hbcm-fmc)
0990      . +16*(p3p6*p1p2)*(-ffmcfmb*hbcm-hbcm)+16*p4p6*(-ffmcfmb**2*
0991      . hbcm3+fmc2*hbcm)+8*p3p6*(ffmcfmb**2*fmb*hbcm2-ffmcfmb**2*fmc*
0992      . hbcm2-ffmcfmb**2*hbcm3-ffmcfmb*fmb*fmc*hbcm+ffmcfmb*fmc2*hbcm+
0993      . fmc2*hbcm)+32*(ffmcfmb*hbcm*p2p5*p3p6-hbcm*p1p2*p4p6))+(8*p4p6
0994      . *(-4*fb1*ffmcfmb*hbcm-4*fb2*fmc+hbcm)+4*p3p6*(-4*fb1*ffmcfmb*
0995      . hbcm-4*fb2*fmc+hbcm)))
0996       b(3)=ans
0997       ans3=((p4p6*p3p7)*(32*fb2*ffmcfmb+8)+(p6p7*p2p3)*(-32*fb2*
0998      . ffmcfmb-8)+(p3p7*p3p6)*(-32*fb2*ffmcfmb**2+32*fb2*ffmcfmb-16*
0999      . ffmcfmb+8)+4*p6p7*(4*fb1*ffmcfmb*fmb*hbcm+4*fb1*ffmcfmb*fmc*
1000      . hbcm-4*fb1*fmc*hbcm+4*fb2*ffmcfmb**2*hbcm2-4*fb2*ffmcfmb*hbcm2
1001      . +4*fb2*fmb*fmc-fmb*hbcm-fmc*hbcm+hbcm2)+32*(fb2*p1p2*p6p7-fb2*
1002      . p2p4*p6p7))
1003       ans2=w17*(16*(p6p7*p2p4)*(ffmcfmb*hbcm2-fmc*hbcm)+16*(p6p7*p1p2
1004      . )*(-ffmcfmb*hbcm2+fmb*hbcm+2*fmc*hbcm-hbcm2)+16*(p3p7*p3p6*
1005      . p2p3)*(-ffmcfmb**2+ffmcfmb)+16*(p3p7*p3p6*p1p3)*(-ffmcfmb**2+
1006      . ffmcfmb)+16*(p5p7*p3p6)*(ffmcfmb**2*hbcm2-ffmcfmb*fmc*hbcm)+8*
1007      . (p6p7*p2p3)*(ffmcfmb**2*hbcm2-3*ffmcfmb*fmb*hbcm-3*ffmcfmb*fmc
1008      . *hbcm+3*ffmcfmb*hbcm2+fmb*fmc-fmc*hbcm)+8*(p6p7*p1p3)*(ffmcfmb
1009      . **2*hbcm2-ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2+fmb*
1010      . fmc-fmc*hbcm)+8*p6p7*(ffmcfmb**2*fmb*hbcm3+ffmcfmb**2*fmc*
1011      . hbcm3-ffmcfmb**2*hbcm4-2*ffmcfmb*p2p3s2-fmb*fmc2*hbcm+fmc2*
1012      . hbcm2-fmc3*hbcm)+16*(ffmcfmb**2*hbcm2*p3p6*p3p7-ffmcfmb*p1p3*
1013      . p2p3*p6p7+ffmcfmb*p1p3*p3p7*p4p6+ffmcfmb*p2p3*p3p7*p4p6+p1p2*
1014      . p1p3*p6p7+p1p2*p2p3*p6p7-p1p3*p2p4*p6p7-p2p3*p2p4*p6p7))+ans3
1015       ans1=w7*(16*(p6p7*p2p4)*(ffmcfmb*hbcm2-fmc*hbcm)+16*(p6p7*p1p2)
1016      . *(-ffmcfmb*hbcm2+fmc*hbcm)+16*(p3p7*p3p6*p2p3)*(-ffmcfmb**2+
1017      . ffmcfmb)+8*(p6p7*p2p3)*(ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm-
1018      . ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2+fmb*fmc-fmc*hbcm)+16*(ffmcfmb*
1019      . p2p3*p3p7*p4p6-ffmcfmb*p2p3s2*p6p7+p1p2*p2p3*p6p7-p2p3*p2p4*
1020      . p6p7))+w2*(16*(p5p7*p5p6)*(ffmcfmb*hbcm2-fmc*hbcm)+16*(p5p7*
1021      . p4p6)*(ffmcfmb*hbcm2-fmc*hbcm)+16*(p5p6*p3p7)*(ffmcfmb*fmb*
1022      . hbcm+ffmcfmb*fmc*hbcm-fmc*hbcm)+16*(p3p7*p3p6*p3p5)*(-ffmcfmb
1023      . **2+ffmcfmb)+16*(p5p7*p3p6)*(ffmcfmb**2*hbcm2-ffmcfmb*fmc*hbcm
1024      . )+8*(p6p7*p3p5)*(ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm-ffmcfmb*fmc
1025      . *hbcm-ffmcfmb*hbcm2+fmb*fmc+fmc*hbcm)+8*p6p7*(ffmcfmb**2*fmb*
1026      . hbcm3-ffmcfmb*fmb*fmc*hbcm2-ffmcfmb*fmb*hbcm3-ffmcfmb*fmb2*
1027      . hbcm2+fmb*fmc*hbcm2+fmb2*fmc*hbcm)+16*(-ffmcfmb*fmb*hbcm*p2p3*
1028      . p6p7+ffmcfmb*fmb*hbcm*p3p6*p3p7+2*ffmcfmb*fmb*hbcm*p3p7*p4p6-
1029      . ffmcfmb*p2p3*p3p5*p6p7+ffmcfmb*p3p5*p3p7*p4p6+fmb*hbcm*p1p2*
1030      . p6p7-fmb*hbcm*p2p4*p6p7+p1p2*p3p5*p6p7-p2p4*p3p5*p6p7))+ans2
1031       ans=ccc*ans1
1032       b(4)=ans
1033       ans2=w17*(16*(p3p7*p2p5)*(ffmcfmb*hbcm2-2*fmc*hbcm)+8*(p5p7*
1034      . p2p3)*(-ffmcfmb*hbcm2+3*fmc*hbcm)+8*(p5p7*p1p3)*(ffmcfmb*hbcm2
1035      . -fmc*hbcm)+8*(p3p7*p2p3)*(ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+
1036      . ffmcfmb*hbcm2-fmb*fmc-fmc2)+8*(p3p7*p1p3)*(ffmcfmb*fmb*hbcm+
1037      . ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-fmb*fmc-fmc2)+8*p5p7*(-ffmcfmb
1038      . **2*hbcm4+fmc2*hbcm2+4*p2p3s2)+8*p3p7*(-ffmcfmb**2*fmb*hbcm3-
1039      . ffmcfmb**2*fmc*hbcm3-2*ffmcfmb*p1p3s2-2*ffmcfmb*p2p3s2+fmb*
1040      . fmc2*hbcm+fmc3*hbcm)+16*(-2*ffmcfmb*p1p3*p2p3*p3p7+ffmcfmb*
1041      . p1p3*p3p5*p3p7+ffmcfmb*p2p3*p3p5*p3p7-fmb*hbcm*p1p2*p3p7-hbcm2
1042      . *p1p2*p5p7+p1p2*p1p3*p3p7+p1p2*p2p3*p3p7+2*p1p3*p2p3*p5p7-2*
1043      . p1p3*p2p5*p3p7-2*p2p3*p2p5*p3p7))+((p3p7*p3p5)*(32*fb2*ffmcfmb
1044      . +8)+(p3p7*p2p3)*(-32*fb2*ffmcfmb-8)+(p3p7*p1p3)*(-32*fb2*
1045      . ffmcfmb-8)+4*p5p7*(-4*fb1*fmc*hbcm-4*fb2*ffmcfmb*hbcm2+hbcm2)+
1046      . 4*p3p7*(-4*fb1*ffmcfmb*fmb*hbcm-4*fb1*ffmcfmb*fmc*hbcm+4*fb2*
1047      . ffmcfmb*hbcm2-4*fb2*fmb*fmc-4*fb2*fmc2+2*ffmcfmb*hbcm2+fmb*
1048      . hbcm+fmc*hbcm+hbcm2)+32*(fb2*p1p2*p3p7+2*fb2*p2p3*p5p7-2*fb2*
1049      . p2p5*p3p7))
1050       ans1=w7*(16*(p3p7*p2p5)*(ffmcfmb*hbcm2-2*fmc*hbcm)+24*(p5p7*
1051      . p2p3)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(p3p7*p2p3)*(-ffmcfmb*fmb*
1052      . hbcm-ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-fmb*fmc-fmc2)+16*(-ffmcfmb
1053      . *p1p3*p2p3*p3p7+ffmcfmb*p2p3*p3p5*p3p7-ffmcfmb*p2p3s2*p3p7+fmc
1054      . *hbcm*p1p2*p3p7+p1p2*p2p3*p3p7-2*p2p3*p2p5*p3p7+2*p2p3s2*p5p7)
1055      . )+w2*(16*(p3p7*p2p5)*(-2*fmb*hbcm+fmc*hbcm)+8*(p5p7*p3p5)*(-
1056      . ffmcfmb*hbcm2+fmc*hbcm)+8*(p3p7*p3p5)*(3*ffmcfmb*fmb*hbcm-
1057      . ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-fmb*fmc-fmc2)+8*p5p7*(-ffmcfmb
1058      . **2*hbcm4-ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*hbcm3+ffmcfmb*hbcm4+
1059      . fmb*fmc*hbcm2-fmc*hbcm3)+8*p3p7*(-ffmcfmb**2*fmb*hbcm3+ffmcfmb
1060      . *fmb*fmc*hbcm2+2*ffmcfmb*fmb*hbcm3+ffmcfmb*fmb2*hbcm2+2*
1061      . ffmcfmb*p3p5s2-fmb*fmc2*hbcm-2*fmb2*fmc*hbcm)+16*(-ffmcfmb*fmb
1062      . *hbcm*p1p3*p3p7-ffmcfmb*fmb*hbcm*p2p3*p3p7-ffmcfmb*p1p3*p3p5*
1063      . p3p7-ffmcfmb*p2p3*p3p5*p3p7+fmb*hbcm*p1p2*p3p7+2*fmb*hbcm*p2p3
1064      . *p5p7+fmc*hbcm*p1p5*p3p7+p1p2*p3p5*p3p7+2*p2p3*p3p5*p5p7-2*
1065      . p2p5*p3p5*p3p7))+ans2
1066       ans=ccc*ans1
1067       b(5)=ans
1068       ans2=w17*(16*(p3p6*p1p2)*(-fmb*hbcm-fmc*hbcm)+16*(p3p6*p2p5)*(2
1069      . *ffmcfmb*hbcm2-fmc*hbcm)+8*(p4p6*p2p3)*(-ffmcfmb*hbcm2+3*fmc*
1070      . hbcm)+8*(p4p6*p1p3)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p3p6*p2p3)*(5*
1071      . ffmcfmb*fmb*hbcm+4*ffmcfmb*fmc*hbcm-fmb*fmc)+8*(p3p6*p1p3)*(
1072      . ffmcfmb*fmb*hbcm-fmb*fmc)+8*p4p6*(-ffmcfmb**2*hbcm4+fmc2*hbcm2
1073      . +4*p2p3s2)+16*(p3p6*p3p5)*(-ffmcfmb**2*hbcm2+ffmcfmb*fmc*hbcm)
1074      . +8*p3p6*(-ffmcfmb**2*fmb*hbcm3-ffmcfmb**2*fmc*hbcm3-ffmcfmb**2
1075      . *hbcm4+ffmcfmb*fmc*hbcm3+2*ffmcfmb*p2p3s2+fmb*fmc2*hbcm+fmc3*
1076      . hbcm)+16*(ffmcfmb*p1p3*p2p3*p3p6-hbcm2*p1p2*p4p6+2*p1p3*p2p3*
1077      . p4p6-p1p3*p2p5*p3p6-p2p3*p2p5*p3p6))+((p3p6*p2p3)*(32*fb2*
1078      . ffmcfmb+8)+4*p4p6*(-4*fb1*fmc*hbcm-4*fb2*ffmcfmb*hbcm2+hbcm2)+
1079      . 4*p3p6*(-4*fb1*ffmcfmb*fmb*hbcm-4*fb2*fmb*fmc+fmb*hbcm)+32*(2*
1080      . fb2*p2p3*p4p6-fb2*p2p5*p3p6))
1081       ans1=w7*(16*(p3p6*p2p5)*(ffmcfmb*hbcm2-fmc*hbcm)+24*(p4p6*p2p3)
1082      . *(-ffmcfmb*hbcm2+fmc*hbcm)+8*(p3p6*p2p3)*(-2*ffmcfmb**2*hbcm2+
1083      . ffmcfmb*fmb*hbcm+2*ffmcfmb*fmc*hbcm-fmb*fmc)+16*(ffmcfmb*
1084      . p2p3s2*p3p6-p2p3*p2p5*p3p6+2*p2p3s2*p4p6))+w2*(16*(p5p6*p3p5)*
1085      . (-ffmcfmb*hbcm2+fmc*hbcm)+24*(p4p6*p3p5)*(-ffmcfmb*hbcm2+fmc*
1086      . hbcm)+16*(p3p6*p2p5)*(ffmcfmb*hbcm2-fmb*hbcm)+16*p4p6*(-
1087      . ffmcfmb*fmb*hbcm3+fmb*fmc*hbcm2)+8*p5p6*(ffmcfmb**2*hbcm4-
1088      . ffmcfmb*fmb*hbcm3-ffmcfmb*fmc*hbcm3-ffmcfmb*hbcm4+fmb*fmc*
1089      . hbcm2+fmc*hbcm3)+8*(p3p6*p3p5)*(-2*ffmcfmb**2*hbcm2+ffmcfmb*
1090      . fmb*hbcm+2*ffmcfmb*fmc*hbcm-fmb*fmc)+8*p3p6*(-ffmcfmb**2*fmb*
1091      . hbcm3+ffmcfmb*fmb*fmc*hbcm2+ffmcfmb*fmb2*hbcm2-fmb2*fmc*hbcm)+
1092      . 16*(2*ffmcfmb*fmb*hbcm*p2p3*p3p6+ffmcfmb*p2p3*p3p5*p3p6+3*fmb*
1093      . hbcm*p2p3*p4p6+fmb*hbcm*p2p3*p5p6+hbcm2*p2p5*p4p6+hbcm2*p2p5*
1094      . p5p6+2*p2p3*p3p5*p4p6-p2p5*p3p5*p3p6))+ans2
1095       ans=ccc*ans1
1096       b(6)=ans
1097       ans2=w17*((p2p3*p1p3)*(-8*ffmcfmb+16)+24*p2p5*(-ffmcfmb*hbcm2+
1098      . fmc*hbcm)+8*p1p2*(ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm-hbcm2)+4*
1099      . p2p3*(ffmcfmb**2*hbcm2-6*ffmcfmb*fmb*hbcm-6*ffmcfmb*fmc*hbcm-
1100      . ffmcfmb*hbcm2+2*fmb*fmc+3*fmc*hbcm+fmc2)+4*p1p3*(ffmcfmb**2*
1101      . hbcm2-2*ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2+2*
1102      . fmb*fmc-fmc*hbcm+fmc2)+4*(2*ffmcfmb**2*fmb*hbcm3+2*ffmcfmb**2*
1103      . fmc*hbcm3-ffmcfmb**2*hbcm4-2*ffmcfmb*p2p3s2-2*fmb*fmc2*hbcm+
1104      . fmc2*hbcm2-2*fmc3*hbcm-2*p1p2*p1p3-2*p1p2*p2p3+6*p1p3*p2p5+6*
1105      . p2p3*p2p5+4*p2p3s2))+(p2p3*(-16*fb2*ffmcfmb+32*fb2-4)+2*(8*fb1
1106      . *ffmcfmb*fmb*hbcm+8*fb1*ffmcfmb*fmc*hbcm-4*fb1*fmc*hbcm+4*fb2*
1107      . ffmcfmb**2*hbcm2-4*fb2*ffmcfmb*hbcm2+8*fb2*fmb*fmc+4*fb2*fmc2-
1108      . 8*fb2*p1p2+24*fb2*p2p5-2*ffmcfmb*hbcm2-2*fmb*hbcm+hbcm2))
1109       ans1=w7*(24*p2p5*(-ffmcfmb*hbcm2+fmc*hbcm)+8*p1p2*(ffmcfmb*
1110      . hbcm2-fmc*hbcm)+4*p2p3*(ffmcfmb**2*hbcm2-2*ffmcfmb*fmb*hbcm-2*
1111      . ffmcfmb*fmc*hbcm-3*ffmcfmb*hbcm2+2*fmb*fmc+3*fmc*hbcm+fmc2)+8*
1112      . (-ffmcfmb*p2p3s2-p1p2*p2p3+3*p2p3*p2p5+2*p2p3s2))+w2*(8*p2p5*(
1113      . 3*fmb*hbcm-fmc*hbcm+hbcm2)+(p3p5*p2p3)*(-8*ffmcfmb+16)+8*p1p5*
1114      . (ffmcfmb*hbcm2-fmc*hbcm)+8*p2p3*(-2*ffmcfmb*fmb*hbcm+3*fmb*
1115      . hbcm)+4*p3p5*(ffmcfmb**2*hbcm2-2*ffmcfmb*fmb*hbcm-2*ffmcfmb*
1116      . fmc*hbcm-3*ffmcfmb*hbcm2+2*fmb*fmc+3*fmc*hbcm+fmc2)+4*(2*
1117      . ffmcfmb**2*fmb*hbcm3-3*ffmcfmb*fmb*fmc*hbcm2-2*ffmcfmb*fmb*
1118      . hbcm3-3*ffmcfmb*fmb2*hbcm2+2*fmb*fmc*hbcm2+fmb*fmc2*hbcm-2*fmb
1119      . *hbcm*p1p2+3*fmb2*fmc*hbcm-2*p1p2*p3p5+6*p2p5*p3p5))+ans2
1120       ans=ccc*ans1
1121       b(7)=ans
1122       ans3=(8*p3p5*(-4*fb1*ffmcfmb*hbcm-4*fb2*fmc+hbcm)+8*p2p3*(4*fb1
1123      . *ffmcfmb*hbcm+4*fb2*fmb+hbcm)+4*p1p3*(4*fb1*ffmcfmb*hbcm+4*fb2
1124      . *fmc-hbcm)+2*(-8*fb1*ffmcfmb*hbcm3-4*fb1*fmb*fmc*hbcm+4*fb1*
1125      . fmc2*hbcm-8*fb1*hbcm*p1p2+16*fb1*hbcm*p2p5-4*fb2*ffmcfmb*fmb*
1126      . hbcm2+4*fb2*ffmcfmb*fmc*hbcm2-8*fb2*fmc*hbcm2+fmb*hbcm2-fmc*
1127      . hbcm2+2*hbcm3))
1128       ans2=w17*(16*p2p5*(-ffmcfmb*hbcm3+fmc*hbcm2)+8*p1p2*(ffmcfmb*
1129      . hbcm3-fmb*hbcm2-2*hbcm3)+16*(p3p5*p2p3)*(3*ffmcfmb*hbcm-fmc)+
1130      . 16*(p3p5*p1p3)*(ffmcfmb*hbcm-fmc)+8*(p2p3*p1p3)*(-5*ffmcfmb*
1131      . hbcm+2*fmb+fmc)+16*p3p5*(-ffmcfmb**2*hbcm3+fmc2*hbcm)+4*p2p3*(
1132      . 2*ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+6*
1133      . ffmcfmb*hbcm3+3*fmb*fmc*hbcm-2*fmc*hbcm2-5*fmc2*hbcm)+4*p1p3*(
1134      . 2*ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2+2*
1135      . ffmcfmb*hbcm3-fmb*fmc*hbcm-2*fmc*hbcm2-fmc2*hbcm)+4*(-ffmcfmb
1136      . **2*fmb*hbcm4+ffmcfmb**2*fmc*hbcm4-2*ffmcfmb**2*hbcm5-2*
1137      . ffmcfmb*hbcm*p1p3s2-8*ffmcfmb*hbcm*p2p3s2+fmb*fmc2*hbcm2+4*fmb
1138      . *p2p3s2+2*fmc*p1p3s2+2*fmc2*hbcm3-fmc3*hbcm2+2*hbcm*p1p2*p1p3+
1139      . 6*hbcm*p1p2*p2p3-8*hbcm*p1p2*p3p5+4*hbcm*p1p3*p2p5+4*hbcm*p2p3
1140      . *p2p5))+ans3
1141       ans1=w7*(16*p2p5*(-ffmcfmb*hbcm3+fmc*hbcm2)+8*p1p2*(ffmcfmb*
1142      . hbcm3-fmc*hbcm2)+16*(p3p5*p2p3)*(ffmcfmb*hbcm-fmc)+8*(p2p3*
1143      . p1p3)*(-ffmcfmb*hbcm+fmc)+4*p2p3*(-2*ffmcfmb**2*hbcm3-3*
1144      . ffmcfmb*fmb*hbcm2+3*ffmcfmb*fmc*hbcm2+2*ffmcfmb*hbcm3+3*fmb*
1145      . fmc*hbcm-2*fmc*hbcm2-fmc2*hbcm)+8*(2*fmb*p2p3s2-hbcm*p1p2*p2p3
1146      . +2*hbcm*p2p3*p2p5))+w2*(8*p2p5*(-2*fmb*hbcm2-fmc*hbcm2+hbcm3)+
1147      . 8*p1p5*(ffmcfmb*hbcm3-fmc*hbcm2)+8*(p3p5*p1p3)*(-ffmcfmb*hbcm+
1148      . fmc)+8*p2p3*(-2*ffmcfmb*fmb*hbcm2+3*fmb2*hbcm)+8*p1p3*(-
1149      . ffmcfmb*fmb*hbcm2+fmb*fmc*hbcm)+4*p3p5*(-2*ffmcfmb**2*hbcm3+3*
1150      . ffmcfmb*fmb*hbcm2+3*ffmcfmb*fmc*hbcm2+2*ffmcfmb*hbcm3-3*fmb*
1151      . fmc*hbcm-2*fmc*hbcm2-fmc2*hbcm)+4*(-ffmcfmb**2*fmb*hbcm4+2*
1152      . ffmcfmb*fmb*fmc*hbcm3+3*ffmcfmb*fmb*hbcm4-2*ffmcfmb*fmb2*hbcm3
1153      . +4*ffmcfmb*hbcm*p3p5s2-3*fmb*fmc*hbcm3-fmb*fmc2*hbcm2+2*fmb*
1154      . hbcm2*p1p2+4*fmb*p2p3*p3p5+2*fmb2*fmc*hbcm2-4*fmc*p3p5s2+2*
1155      . hbcm*p1p2*p3p5-4*hbcm*p1p5*p2p3-4*hbcm*p2p3*p2p5-4*hbcm*p2p5*
1156      . p3p5))+ans2
1157       ans=ccc*ans1
1158       b(8)=ans
1159       b(9)=ccc*(w2*(8*p5p6*(ffmcfmb*hbcm3-fmb*hbcm2-hbcm3)+8*(p3p6*
1160      . p3p5)*(-3*ffmcfmb*hbcm+fmb)+8*p3p6*(-2*ffmcfmb*fmb*hbcm2+fmb2*
1161      . hbcm)+8*(-3*fmb*hbcm2*p4p6-4*hbcm*p3p5*p4p6-2*hbcm*p3p5*p5p6))
1162      . +w17*(16*p4p6*(-ffmcfmb*hbcm3+fmc*hbcm2)+8*(p3p6*p2p3)*(
1163      . ffmcfmb*hbcm+fmb)+8*(p3p6*p1p3)*(ffmcfmb*hbcm+fmb)+8*p3p6*(-2*
1164      . ffmcfmb*fmb*hbcm2+2*ffmcfmb*fmc*hbcm2-2*ffmcfmb*hbcm3+fmb*fmc*
1165      . hbcm-fmc2*hbcm)+16*(-2*ffmcfmb*hbcm*p3p5*p3p6+hbcm*p1p2*p3p6+
1166      . hbcm*p1p3*p4p6+hbcm*p2p3*p4p6))+w7*(16*p4p6*(-ffmcfmb*hbcm3+
1167      . fmc*hbcm2)+8*(p3p6*p2p3)*(ffmcfmb*hbcm+fmb)+8*p3p6*(-ffmcfmb**
1168      . 2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm)+16*
1169      . hbcm*p2p3*p4p6)+(4*p3p6*(4*fb1*ffmcfmb*hbcm+4*fb2*fmb+3*hbcm)+
1170      . 32*fb1*hbcm*p4p6))
1171       b(10)=ccc*(w2*((p3p6*p3p5)*(-8*ffmcfmb-8)+8*p5p6*(-ffmcfmb*
1172      . hbcm2-fmb*hbcm+hbcm2)+8*p3p6*(-2*ffmcfmb*fmb*hbcm-fmb*hbcm)+8*
1173      . (-4*fmb*hbcm*p4p6-3*p3p5*p4p6))+w17*((p3p6*p2p3)*(-8*ffmcfmb-8
1174      . )+(p3p6*p1p3)*(-8*ffmcfmb-8)+24*p4p6*(ffmcfmb*hbcm2-fmc*hbcm)+
1175      . 8*p3p6*(-2*ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*hbcm+2*ffmcfmb*hbcm2
1176      . -fmc*hbcm)+24*(-p1p3*p4p6-p2p3*p4p6))+w7*((p3p6*p2p3)*(-8*
1177      . ffmcfmb-8)+24*p4p6*(ffmcfmb*hbcm2-fmc*hbcm)+8*p3p6*(ffmcfmb**2
1178      . *hbcm2-ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-fmc*hbcm)-24*p2p3*p4p6)+
1179      . (p3p6*(-16*fb2*ffmcfmb-16*fb2-4)-48*fb2*p4p6))
1180       ans=ccc*(w2*(4*p3p5*(3*ffmcfmb*hbcm2-4*fmb*hbcm+fmc*hbcm-3*
1181      . hbcm2)+4*(2*ffmcfmb*fmb*hbcm3+fmb*fmc*hbcm2+2*fmb*hbcm*p1p3+2*
1182      . fmb*hbcm*p2p3-4*fmb*hbcm3+3*fmb2*hbcm2-2*hbcm2*p1p5-2*hbcm2*
1183      . p2p5+2*p1p3*p3p5+2*p2p3*p3p5-6*p3p5s2))+w17*(24*p3p5*(ffmcfmb*
1184      . hbcm2-fmc*hbcm)+4*p2p3*(-3*ffmcfmb*hbcm2-2*fmb*hbcm+fmc*hbcm-3
1185      . *hbcm2)+4*p1p3*(-3*ffmcfmb*hbcm2-2*fmb*hbcm+fmc*hbcm-3*hbcm2)+
1186      . 4*(2*ffmcfmb*fmb*hbcm3+2*ffmcfmb*fmc*hbcm3+3*ffmcfmb*hbcm4-2*
1187      . fmb*fmc*hbcm2-3*fmc*hbcm3-2*fmc2*hbcm2+2*hbcm2*p1p2+4*p1p3*
1188      . p2p3-6*p1p3*p3p5+2*p1p3s2-6*p2p3*p3p5+2*p2p3s2))+w7*(24*p3p5*(
1189      . ffmcfmb*hbcm2-fmc*hbcm)+4*p2p3*(-ffmcfmb*hbcm2-2*fmb*hbcm+fmc*
1190      . hbcm-3*hbcm2)+8*p1p3*(-ffmcfmb*hbcm2+fmc*hbcm)+4*(-ffmcfmb**2*
1191      . hbcm4+2*ffmcfmb*fmb*hbcm3+2*ffmcfmb*fmc*hbcm3+3*ffmcfmb*hbcm4-
1192      . 2*fmb*fmc*hbcm2-3*fmc*hbcm3-fmc2*hbcm2+2*p1p3*p2p3-6*p2p3*p3p5
1193      . +2*p2p3s2))+2*(-8*fb1*fmb*hbcm-4*fb1*fmc*hbcm+4*fb2*ffmcfmb*
1194      . hbcm2-12*fb2*hbcm2+8*fb2*p1p3+8*fb2*p2p3-24*fb2*p3p5+3*hbcm2))
1195       b(11)=ans
1196       ans=ccc*(w2*(8*p5p7*(ffmcfmb*hbcm3+2*fmb*hbcm2-hbcm3)+8*(p3p7*
1197      . p3p5)*(-ffmcfmb*hbcm-2*fmb+fmc)+8*p3p7*(ffmcfmb*fmb*hbcm2+fmb*
1198      . fmc*hbcm-3*fmb2*hbcm)+16*(hbcm*p1p5*p3p7+hbcm*p2p5*p3p7+hbcm*
1199      . p3p5*p5p7))+w17*(16*p5p7*(ffmcfmb*hbcm3-fmc*hbcm2)+8*(p3p7*
1200      . p2p3)*(3*ffmcfmb*hbcm-2*fmb+fmc)+8*(p3p7*p1p3)*(3*ffmcfmb*hbcm
1201      . -2*fmb+fmc)+8*p3p7*(ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-2*
1202      . ffmcfmb*hbcm3-2*fmb*fmc*hbcm+2*fmc2*hbcm)+16*(-2*ffmcfmb*hbcm*
1203      . p3p5*p3p7-hbcm*p1p2*p3p7-hbcm*p1p3*p5p7-hbcm*p2p3*p5p7))+w7*(
1204      . 16*p5p7*(ffmcfmb*hbcm3-fmc*hbcm2)+8*(p3p7*p2p3)*(ffmcfmb*hbcm-
1205      . 2*fmb+fmc)+8*p3p7*(ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2-ffmcfmb*
1206      . fmc*hbcm2-2*ffmcfmb*hbcm3-2*fmb*fmc*hbcm+fmc2*hbcm)+16*(
1207      . ffmcfmb*hbcm*p1p3*p3p7-2*ffmcfmb*hbcm*p3p5*p3p7-hbcm*p2p3*p5p7
1208      . ))+(4*p3p7*(-4*fb1*ffmcfmb*hbcm-8*fb2*fmb+4*fb2*fmc-3*hbcm)-32
1209      . *fb1*hbcm*p5p7))
1210       b(12)=ans
1211       b(13)=ccc*(w2*(4*p3p5*(2*ffmcfmb*hbcm-3*fmb+fmc-4*hbcm)+4*(3*
1212      . ffmcfmb*fmb*hbcm2+fmb*fmc*hbcm-3*fmb*hbcm2-4*fmb2*hbcm+2*hbcm*
1213      . p1p5+2*hbcm*p2p5))+w17*(4*p2p3*(2*ffmcfmb*hbcm-3*fmb+fmc+2*
1214      . hbcm)+4*p1p3*(2*ffmcfmb*hbcm-3*fmb+fmc+2*hbcm)+4*(3*ffmcfmb*
1215      . fmb*hbcm2-3*ffmcfmb*fmc*hbcm2-2*ffmcfmb*hbcm3-3*fmb*fmc*hbcm+2
1216      . *fmc*hbcm2+3*fmc2*hbcm-4*hbcm*p1p2))+w7*(4*p2p3*(-2*ffmcfmb*
1217      . hbcm-3*fmb+fmc+2*hbcm)+4*(2*ffmcfmb**2*hbcm3+3*ffmcfmb*fmb*
1218      . hbcm2-3*ffmcfmb*fmc*hbcm2-2*ffmcfmb*hbcm3-3*fmb*fmc*hbcm+2*fmc
1219      . *hbcm2+fmc2*hbcm))+4*(-4*fb1*ffmcfmb*hbcm+4*fb1*hbcm-6*fb2*fmb
1220      . +2*fb2*fmc-3*hbcm))
1221       b(14)=ccc*(w7*((p3p7*p2p3)*(8*ffmcfmb-16)+24*p5p7*(ffmcfmb*
1222      . hbcm2-fmc*hbcm)+8*p3p7*(2*ffmcfmb*fmb*hbcm+2*ffmcfmb*fmc*hbcm+
1223      . ffmcfmb*hbcm2-2*fmc*hbcm)-24*p2p3*p5p7)+w2*((p3p7*p3p5)*(8*
1224      . ffmcfmb-16)+8*p5p7*(ffmcfmb*hbcm2-3*fmb*hbcm-hbcm2)+8*p3p7*(2*
1225      . ffmcfmb*fmb*hbcm-3*fmb*hbcm)-24*p3p5*p5p7)+w17*((p3p7*p2p3)*(8
1226      . *ffmcfmb-16)+(p3p7*p1p3)*(8*ffmcfmb-16)+24*p5p7*(ffmcfmb*hbcm2
1227      . -fmc*hbcm)+8*p3p7*(2*ffmcfmb*fmb*hbcm+2*ffmcfmb*fmc*hbcm+
1228      . ffmcfmb*hbcm2-2*fmc*hbcm)+24*(-p1p3*p5p7-p2p3*p5p7))+(p3p7*(16
1229      . *fb2*ffmcfmb-32*fb2+4)-48*fb2*p5p7))
1230       ans2=w7*(16*(p4p6*p3p7)*(ffmcfmb*hbcm2-2*fmc*hbcm)+16*(p5p7*
1231      . p3p6)*(-ffmcfmb*hbcm2+fmc*hbcm)+16*(p6p7*p3p4)*(-ffmcfmb*hbcm2
1232      . +fmc*hbcm)+8*(p6p7*p2p3)*(3*ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm+
1233      . hbcm2)+16*(p6p7*p1p3)*(ffmcfmb*hbcm2-fmc*hbcm)+8*p6p7*(-
1234      . ffmcfmb**2*hbcm4+ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*hbcm3-ffmcfmb*
1235      . hbcm4-fmb*fmc*hbcm2+fmc*hbcm3-2*p2p3s2)+16*(p3p7*p3p6)*(
1236      . ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm)+16*(-
1237      . ffmcfmb*p2p3*p3p6*p3p7-p1p3*p2p3*p6p7+p2p3*p3p4*p6p7+p2p3*p3p6
1238      . *p5p7-2*p2p3*p3p7*p4p6))+((p3p7*p3p6)*(-32*fb2*ffmcfmb-8)+4*
1239      . p6p7*(-4*fb1*fmb*hbcm+4*fb2*ffmcfmb*hbcm2+4*fb2*hbcm2+hbcm2)+
1240      . 32*(-fb2*p1p3*p6p7-fb2*p2p3*p6p7+fb2*p3p4*p6p7+fb2*p3p6*p5p7-2
1241      . *fb2*p3p7*p4p6))
1242       ans1=w2*(16*(p5p7*p3p6)*(-ffmcfmb*hbcm2+fmb*hbcm)+8*(p6p7*p3p5)
1243      . *(ffmcfmb*hbcm2+fmb*hbcm+hbcm2)+8*p6p7*(ffmcfmb*fmb*hbcm3+fmb*
1244      . hbcm3+fmb2*hbcm2)+16*(-2*ffmcfmb*fmb*hbcm*p3p6*p3p7-ffmcfmb*
1245      . p3p5*p3p6*p3p7-fmb*hbcm*p1p3*p6p7-fmb*hbcm*p2p3*p6p7+fmb*hbcm*
1246      . p3p4*p6p7-3*fmb*hbcm*p3p7*p4p6-fmb*hbcm*p3p7*p5p6-hbcm2*p4p6*
1247      . p5p7-hbcm2*p5p6*p5p7-p1p3*p3p5*p6p7-p2p3*p3p5*p6p7+p3p4*p3p5*
1248      . p6p7+p3p5*p3p6*p5p7-2*p3p5*p3p7*p4p6))+w17*(16*(p4p6*p3p7)*(
1249      . ffmcfmb*hbcm2-2*fmc*hbcm)+16*(p5p7*p3p6)*(-2*ffmcfmb*hbcm2+fmc
1250      . *hbcm)+16*(p6p7*p3p4)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(p6p7*p2p3)*
1251      . (ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm+hbcm2)+8*(p6p7*p1p3)*(
1252      . ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm+hbcm2)+8*p6p7*(ffmcfmb*fmb*
1253      . hbcm3+ffmcfmb*fmc*hbcm3-ffmcfmb*hbcm4-fmb*fmc*hbcm2+fmc*hbcm3-
1254      . fmc2*hbcm2-2*p1p3s2-2*p2p3s2)+32*(p3p7*p3p6)*(-ffmcfmb*fmb*
1255      . hbcm-ffmcfmb*fmc*hbcm)+16*(-ffmcfmb*p1p3*p3p6*p3p7-ffmcfmb*
1256      . p2p3*p3p6*p3p7+hbcm2*p1p2*p6p7-2*p1p3*p2p3*p6p7+p1p3*p3p4*p6p7
1257      . +p1p3*p3p6*p5p7-2*p1p3*p3p7*p4p6+p2p3*p3p4*p6p7+p2p3*p3p6*p5p7
1258      . -2*p2p3*p3p7*p4p6))+ans2
1259       ans=ccc*ans1
1260       b(15)=ans
1261       b(16)=ccc*(w2*(16*(p5p6*p3p7)*(ffmcfmb*hbcm-hbcm)+8*(p6p7*p3p5)
1262      . *(-ffmcfmb*hbcm+fmb+hbcm)+8*p6p7*(-ffmcfmb*fmb*hbcm2+fmb*hbcm2
1263      . +fmb2*hbcm)+16*(-ffmcfmb*hbcm*p3p6*p5p7-hbcm*p4p6*p5p7-hbcm*
1264      . p5p6*p5p7))+w17*(8*(p6p7*p2p3)*(-ffmcfmb*hbcm+fmb-hbcm)+8*(
1265      . p6p7*p1p3)*(-ffmcfmb*hbcm+fmb-hbcm)+8*p6p7*(-ffmcfmb*fmb*hbcm2
1266      . +ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3+fmb*fmc*hbcm-fmc*hbcm2-fmc2*
1267      . hbcm)+16*(-2*ffmcfmb*hbcm*p3p6*p3p7-2*ffmcfmb*hbcm*p3p6*p5p7-2
1268      . *ffmcfmb*hbcm*p3p7*p4p6+hbcm*p1p2*p6p7))+w7*(8*(p6p7*p2p3)*(
1269      . ffmcfmb*hbcm+fmb-hbcm)+8*p6p7*(-ffmcfmb**2*hbcm3-ffmcfmb*fmb*
1270      . hbcm2+ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3+fmb*fmc*hbcm-fmc*hbcm2)+
1271      . 16*(-ffmcfmb*hbcm*p3p6*p3p7-2*ffmcfmb*hbcm*p3p7*p4p6))+4*p6p7*
1272      . (4*fb1*ffmcfmb*hbcm-4*fb1*hbcm+4*fb2*fmb+3*hbcm))
1273       do 200 n=1,16
1274          c(n,1)=c(n,1)-0.1818181818181818d0*b(n)
1275          c(n,2)=c(n,2)-0.05883183899358491d0*b(n)
1276          c(n,3)=c(n,3)-0.2077659977796572d0*b(n)
1277 200   continue
1278       return
1279       end
1280
1281       subroutine amp15_3p0(cc)
1282       implicit double precision(a-h,o-z)
1283       implicit integer (i-n)
1284       dimension b(16)
1285 #include "inclcon.h"
1286 #include "inclppp.h"
1287 #include "inclamp.h"
1288       do 100 n=1,16
1289          b(n)=0.0d0
1290 100   continue
1291       ccc=cc/((-2*p2p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2+2*ffmcfmb*
1292      . p2p3-2*ffmcfmb*p3p5+fmb2+hbcm2-2*p2p3-2*p2p5+2*p3p5)*(ffmcfmb
1293      . **2*hbcm2-2*ffmcfmb*p1p3-fmc2))
1294       b(1)=ccc*(w16*(16*(p5p7*p5p6)*(-ffmcfmb*hbcm3+fmb*hbcm2+hbcm3)+
1295      . 16*(p5p7*p3p6*p3p5)*(ffmcfmb*hbcm-fmc+2*hbcm)+16*(p5p7*p3p6*
1296      . p2p3)*(-ffmcfmb*hbcm+fmc-2*hbcm)+16*(p5p7*p3p6)*(-ffmcfmb*fmb*
1297      . hbcm2-fmb*fmc*hbcm+fmb*hbcm2+fmb2*hbcm)+16*(fmb*hbcm2*p4p6*
1298      . p5p7+2*hbcm*p1p2*p3p6*p5p7-2*hbcm*p1p5*p3p6*p5p7-2*hbcm*p2p3*
1299      . p4p6*p5p7-2*hbcm*p2p3*p5p6*p5p7-2*hbcm*p2p5*p3p6*p5p7+2*hbcm*
1300      . p3p5*p4p6*p5p7+2*hbcm*p3p5*p5p6*p5p7))+w12*(16*(p5p7*p3p6*p1p3
1301      . )*(ffmcfmb*hbcm-fmc)+16*(p5p7*p3p6)*(-ffmcfmb*fmb*hbcm2+
1302      . ffmcfmb*fmc*hbcm2))+8*(p5p7*p3p6)*(4*fb1*ffmcfmb*hbcm-4*fb2*
1303      . fmc+3*hbcm))
1304       b(2)=ccc*(w16*(8*(p5p7*p3p5)*(-fmb+fmc-2*hbcm)+8*(p5p7*p2p3)*(
1305      . fmb-fmc+2*hbcm)+8*p5p7*(ffmcfmb*fmb*hbcm2+fmb*fmc*hbcm-fmb*
1306      . hbcm2-2*fmb2*hbcm)+16*(-hbcm*p1p2*p5p7+hbcm*p1p5*p5p7+2*hbcm*
1307      . p2p5*p5p7))+w12*(8*(p5p7*p1p3)*(-fmb+fmc)+8*p5p7*(ffmcfmb*fmb*
1308      . hbcm2-ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm+fmc2*hbcm))+16*p5p7*(-fb2
1309      . *fmb+fb2*fmc))
1310       b(3)=16*ccc*w16*(hbcm*p2p5*p3p6+2*hbcm*p2p5*p4p6+hbcm*p2p5*p5p6
1311      . )
1312       b(4)=ccc*(w16*((p5p7*p3p6*p3p5)*(-16*ffmcfmb+16)+(p5p7*p3p6*
1313      . p2p3)*(16*ffmcfmb-16)+16*(p5p7*p5p6)*(ffmcfmb*hbcm2+fmb*hbcm-
1314      . hbcm2)+16*(fmb*hbcm*p3p6*p5p7+2*fmb*hbcm*p4p6*p5p7-p2p3*p4p6*
1315      . p5p7+p3p5*p4p6*p5p7))+w12*((p5p7*p3p6*p1p3)*(-16*ffmcfmb+16)+
1316      . 16*(p5p7*p4p6)*(-ffmcfmb*hbcm2+fmc*hbcm)+16*(fmc*hbcm*p3p6*
1317      . p5p7+p1p3*p4p6*p5p7))+((p5p7*p3p6)*(-32*fb2*ffmcfmb+32*fb2-8)+
1318      . 32*fb2*p4p6*p5p7))
1319       b(5)=ccc*(w16*(8*p5p7*(-fmb*fmc*hbcm2+2*fmb*hbcm3-fmb2*hbcm2+2*
1320      . p2p3s2+2*p3p5s2)+8*(p5p7*p3p5)*(-ffmcfmb*hbcm2+2*fmb*hbcm-fmc*
1321      . hbcm+hbcm2)+8*(p5p7*p2p3)*(ffmcfmb*hbcm2-2*fmb*hbcm+fmc*hbcm-
1322      . hbcm2)+16*(-fmb*hbcm*p1p3*p5p7-hbcm2*p1p2*p5p7+hbcm2*p1p5*p5p7
1323      . +hbcm2*p2p5*p5p7+p1p3*p2p3*p5p7-p1p3*p3p5*p5p7-2*p2p3*p3p5*
1324      . p5p7))+w12*(8*p5p7*(-ffmcfmb*hbcm4+fmc*hbcm3-2*p1p3s2)+16*(
1325      . p5p7*p3p5)*(-ffmcfmb*hbcm2+fmc*hbcm)+16*(p5p7*p2p3)*(ffmcfmb*
1326      . hbcm2-fmc*hbcm)+8*(p5p7*p1p3)*(ffmcfmb*hbcm2-fmc*hbcm+hbcm2)+
1327      . 16*(-p1p3*p2p3*p5p7+p1p3*p3p5*p5p7))+(4*p5p7*(4*fb1*fmc*hbcm+4
1328      . *fb2*ffmcfmb*hbcm2+4*fb2*hbcm2-hbcm2)+32*(-fb2*p1p3*p5p7-fb2*
1329      . p2p3*p5p7+fb2*p3p5*p5p7)))
1330       b(6)=ccc*(16*w16*(hbcm2*p2p5*p4p6+hbcm2*p2p5*p5p6+p2p3*p2p5*
1331      . p3p6-p2p5*p3p5*p3p6)+16*w12*(-fmc*hbcm*p2p5*p3p6-p1p3*p2p5*
1332      . p3p6)-32*fb2*p2p5*p3p6)
1333       b(7)=ccc*(w16*(8*p2p5*(-ffmcfmb*hbcm2-fmc*hbcm+hbcm2)+8*(-p2p3*
1334      . p2p5+p2p5*p3p5))+w12*(8*p2p5*(-ffmcfmb*hbcm2+fmc*hbcm)+8*p1p3*
1335      . p2p5)+16*fb2*p2p5)
1336       b(8)=w16*ccc*(8*p2p5*(-fmc*hbcm2+2*hbcm3)+16*(-hbcm*p1p3*p2p5-
1337      . hbcm*p2p3*p2p5+hbcm*p2p5*p3p5))
1338       b(9)=ccc*(w16*(8*p5p6*(ffmcfmb*hbcm3-fmb*hbcm2-hbcm3)+8*(p3p6*
1339      . p3p5)*(-ffmcfmb*hbcm+fmb)+8*(p3p6*p2p3)*(ffmcfmb*hbcm-fmb)+8*(
1340      . -fmb*hbcm2*p4p6+fmb2*hbcm*p3p6+2*hbcm*p2p3*p4p6+2*hbcm*p2p3*
1341      . p5p6-2*hbcm*p2p5*p3p6-2*hbcm*p3p5*p4p6-2*hbcm*p3p5*p5p6))+w12*
1342      . (8*p3p6*(fmb*fmc*hbcm-fmc2*hbcm)+8*(p3p6*p1p3)*(-ffmcfmb*hbcm+
1343      . fmb))+4*p3p6*(-4*fb1*ffmcfmb*hbcm+4*fb2*fmb-3*hbcm))
1344       b(10)=ccc*(w16*((p3p6*p3p5)*(8*ffmcfmb-8)+(p3p6*p2p3)*(-8*
1345      . ffmcfmb+8)+8*p5p6*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(-fmb*hbcm
1346      . *p3p6-2*fmb*hbcm*p4p6+p2p3*p4p6-p3p5*p4p6))+w12*((p3p6*p1p3)*(
1347      . 8*ffmcfmb-8)+8*p4p6*(ffmcfmb*hbcm2-fmc*hbcm)+8*(-fmc*hbcm*p3p6
1348      . -p1p3*p4p6))+(p3p6*(16*fb2*ffmcfmb-16*fb2+4)-16*fb2*p4p6))
1349       b(11)=ccc*(w16*(4*p3p5*(ffmcfmb*hbcm2-2*fmb*hbcm+fmc*hbcm-hbcm2
1350      . )+4*p2p3*(-ffmcfmb*hbcm2+2*fmb*hbcm-fmc*hbcm+hbcm2)+4*(fmb*fmc
1351      . *hbcm2+2*fmb*hbcm*p1p3-2*fmb*hbcm3+fmb2*hbcm2+2*hbcm2*p1p2-2*
1352      . hbcm2*p1p5-2*hbcm2*p2p5-2*p1p3*p2p3+2*p1p3*p3p5+4*p2p3*p3p5-2*
1353      . p2p3s2-2*p3p5s2))+w12*(8*p3p5*(ffmcfmb*hbcm2-fmc*hbcm)+8*p2p3*
1354      . (-ffmcfmb*hbcm2+fmc*hbcm)+4*p1p3*(-ffmcfmb*hbcm2+fmc*hbcm-
1355      . hbcm2)+4*(ffmcfmb*hbcm4-fmc*hbcm3+2*p1p3*p2p3-2*p1p3*p3p5+2*
1356      . p1p3s2))+2*(-4*fb1*fmc*hbcm-4*fb2*ffmcfmb*hbcm2-4*fb2*hbcm2+8*
1357      . fb2*p1p3+8*fb2*p2p3-8*fb2*p3p5+hbcm2))
1358       b(13)=ccc*(w16*(4*p3p5*(-fmb+fmc-2*hbcm)+4*p2p3*(fmb-fmc+2*hbcm
1359      . )+4*(ffmcfmb*fmb*hbcm2+fmb*fmc*hbcm-fmb*hbcm2-2*fmb2*hbcm-2*
1360      . hbcm*p1p2+2*hbcm*p1p5+4*hbcm*p2p5))+w12*(4*p1p3*(-fmb+fmc)+4*(
1361      . ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm+fmc2*hbcm))+8
1362      . *(-fb2*fmb+fb2*fmc))
1363       do 200 n=1,16
1364          c(n,2)=c(n,2)+0.09245003270420485d0*b(n)
1365          c(n,3)=c(n,3)-0.02077659977796572d0*b(n)
1366 200   continue
1367       return
1368       end
1369
1370       subroutine amp14_3p0(cc)
1371       implicit double precision(a-h,o-z)
1372       implicit integer (i-n)
1373       dimension b(16)
1374 #include "inclcon.h"
1375 #include "inclppp.h"
1376 #include "inclamp.h"
1377       do 100 n=1,16
1378          b(n)=0.0d0
1379 100   continue
1380       ccc=cc/((-2*p2p5)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2)*(
1381      . ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2+2*ffmcfmb*p1p3-fmb2+hbcm2-2*
1382      . p1p3))
1383       b(1)=ccc*(w1*(16*(p5p7*p3p6)*(fmc*hbcm2+fmc2*hbcm)+16*(p5p7*
1384      . p4p6)*(-ffmcfmb*hbcm3+2*hbcm3)+16*(p5p7*p3p6*p3p4)*(ffmcfmb*
1385      . hbcm+fmc+hbcm)+32*(-hbcm*p1p3*p4p6*p5p7-hbcm*p2p3*p4p6*p5p7+
1386      . hbcm*p3p4*p4p6*p5p7+hbcm*p3p5*p4p6*p5p7))+w13*(16*(p5p7*p3p6)*
1387      . (fmb*fmc*hbcm-fmb2*hbcm)+16*(p5p7*p3p6*p1p3)*(ffmcfmb*hbcm+fmc
1388      . -hbcm))+8*(p5p7*p3p6)*(4*fb1*ffmcfmb*hbcm-4*fb1*hbcm-4*fb2*fmc
1389      . -3*hbcm))
1390       b(2)=ccc*(w1*(8*(p5p7*p3p4)*(fmb-fmc-2*hbcm)+8*p5p7*(-ffmcfmb*
1391      . fmc*hbcm2+fmb*fmc*hbcm-2*fmc2*hbcm)+16*hbcm*p1p4*p5p7)+w13*(8*
1392      . (p5p7*p1p3)*(fmb-fmc)+8*p5p7*(ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*
1393      . hbcm2-fmb*fmc*hbcm-fmb*hbcm2+fmb2*hbcm+fmc*hbcm2))+16*p5p7*(-
1394      . fb2*fmb+fb2*fmc))
1395       b(3)=16*ccc*hbcm*p2p5*p4p6*w1
1396       b(4)=ccc*(w1*((p5p7*p3p6*p3p4)*(16*ffmcfmb-16)+16*(p5p7*p4p6)*(
1397      . -ffmcfmb*hbcm2-fmc*hbcm)+16*(-fmc*hbcm*p3p6*p5p7-p3p4*p4p6*
1398      . p5p7))+w13*((p5p7*p3p6*p1p3)*(16*ffmcfmb-16)+16*(p5p7*p4p6)*(-
1399      . ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(p5p7*p3p6)*(-ffmcfmb*hbcm2+
1400      . hbcm2)-16*p1p3*p4p6*p5p7)+((p5p7*p3p6)*(-32*fb2*ffmcfmb+32*fb2
1401      . -8)+32*fb2*p4p6*p5p7))
1402       b(5)=ccc*(w1*(8*p5p7*(-fmb*fmc*hbcm2-2*fmc*hbcm3-fmc2*hbcm2)+8*
1403      . (p5p7*p3p4)*(ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm-2*hbcm2)+16*(
1404      . fmc*hbcm*p1p3*p5p7+2*fmc*hbcm*p2p3*p5p7-2*fmc*hbcm*p3p5*p5p7+
1405      . hbcm2*p1p4*p5p7+p2p3*p3p4*p5p7-p3p4*p3p5*p5p7))+w13*(8*p5p7*(-
1406      . ffmcfmb*hbcm4-fmb*hbcm3+hbcm4)+16*(p5p7*p3p5)*(-ffmcfmb*hbcm2-
1407      . fmb*hbcm+hbcm2)+16*(p5p7*p2p3)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+
1408      . 8*(p5p7*p1p3)*(ffmcfmb*hbcm2+fmb*hbcm-2*hbcm2)+16*(p1p3*p2p3*
1409      . p5p7-p1p3*p3p5*p5p7))+(4*p5p7*(4*fb1*fmb*hbcm+4*fb2*ffmcfmb*
1410      . hbcm2-hbcm2)+32*(-fb2*p2p3*p5p7+fb2*p3p5*p5p7)))
1411       b(6)=ccc*(16*w1*(fmc*hbcm*p2p5*p3p6+hbcm2*p2p5*p4p6)+16*w13*(
1412      . p3p6*p2p5)*(ffmcfmb*hbcm2-hbcm2))
1413       b(7)=ccc*(8*w1*(-2*fmc*hbcm*p2p5-p2p5*p3p4)+w13*(8*p2p5*(-
1414      . ffmcfmb*hbcm2-fmb*hbcm+hbcm2)-8*p1p3*p2p5)+16*fb2*p2p5)
1415       b(8)=8*ccc*w1*(-fmc*hbcm2*p2p5-2*hbcm*p2p5*p3p4)
1416       b(9)=ccc*(w1*(8*p4p6*(ffmcfmb*hbcm3-2*hbcm3)+8*(p3p6*p3p4)*(-
1417      . ffmcfmb*hbcm-fmb+hbcm)+8*p3p6*(ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm-
1418      . fmc*hbcm2+fmc2*hbcm)+16*(hbcm*p1p3*p4p6-hbcm*p1p4*p3p6+hbcm*
1419      . p2p3*p4p6-hbcm*p3p4*p4p6-hbcm*p3p5*p4p6))+w13*(8*(p3p6*p1p3)*(
1420      . -ffmcfmb*hbcm-fmb+hbcm)+8*p3p6*(-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc
1421      . *hbcm2+fmb*hbcm2-fmc*hbcm2))+4*p3p6*(-4*fb1*ffmcfmb*hbcm+4*fb1
1422      . *hbcm+4*fb2*fmb+3*hbcm))
1423       b(10)=ccc*(w1*((p3p6*p3p4)*(-8*ffmcfmb+8)+8*p4p6*(ffmcfmb*hbcm2
1424      . +fmc*hbcm)+8*(fmc*hbcm*p3p6+p3p4*p4p6))+w13*((p3p6*p1p3)*(-8*
1425      . ffmcfmb+8)+8*p4p6*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*p3p6*(
1426      . ffmcfmb*hbcm2-hbcm2)+8*p1p3*p4p6)+(p3p6*(16*fb2*ffmcfmb-16*fb2
1427      . +4)-16*fb2*p4p6))
1428       b(11)=ccc*(w1*(4*p3p4*(-ffmcfmb*hbcm2+fmb*hbcm+2*fmc*hbcm+2*
1429      . hbcm2)+4*(fmb*fmc*hbcm2-2*fmc*hbcm*p1p3-4*fmc*hbcm*p2p3+4*fmc*
1430      . hbcm*p3p5+2*fmc*hbcm3+fmc2*hbcm2-2*hbcm2*p1p4-2*p2p3*p3p4+2*
1431      . p3p4*p3p5))+w13*(8*p3p5*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*p2p3*
1432      . (-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+4*p1p3*(-ffmcfmb*hbcm2-fmb*
1433      . hbcm+2*hbcm2)+4*(ffmcfmb*hbcm4+fmb*hbcm3-hbcm4-2*p1p3*p2p3+2*
1434      . p1p3*p3p5))+2*(-4*fb1*fmb*hbcm-4*fb2*ffmcfmb*hbcm2+8*fb2*p2p3-
1435      . 8*fb2*p3p5+hbcm2))
1436       b(13)=ccc*(w1*(4*p3p4*(fmb-fmc-2*hbcm)+4*(-ffmcfmb*fmc*hbcm2+
1437      . fmb*fmc*hbcm-2*fmc2*hbcm+2*hbcm*p1p4))+w13*(4*p1p3*(fmb-fmc)+4
1438      . *(ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm-fmb*hbcm2+
1439      . fmb2*hbcm+fmc*hbcm2))+8*(-fb2*fmb+fb2*fmc))
1440       do 200 n=1,16
1441          c(n,2)=c(n,2)+0.09245003270420485d0*b(n)
1442          c(n,3)=c(n,3)-0.02077659977796572d0*b(n)
1443 200   continue
1444       return
1445       end
1446
1447       subroutine amp13_3p0(cc)
1448       implicit double precision(a-h,o-z)
1449       implicit integer (i-n)
1450       dimension b(16)
1451 #include "inclcon.h"
1452 #include "inclppp.h"
1453 #include "inclamp.h"
1454       do 100 n=1,16
1455          b(n)=0.0d0
1456 100   continue
1457       ccc=cc/((-2*p2p5)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2)*(-fmb2
1458      . +fmc2+hbcm2+2*p3p4))
1459       b(2)=ccc*(w1*(8*(p5p7*p3p4)*(-fmb+fmc)+8*fmc*hbcm2*p5p7)+16*
1460      . p5p7*(-2*fb1*hbcm+fb2*fmb-fb2*fmc))
1461       b(5)=ccc*(w1*(8*p5p7*(fmb*fmc*hbcm2+fmc2*hbcm2-2*p3p4s2)-8*
1462      . hbcm2*p3p4*p5p7)+(16*p5p7*(-2*fb1*fmb*hbcm-2*fb1*fmc*hbcm+fb2*
1463      . hbcm2)+32*fb2*p3p4*p5p7))
1464       b(9)=ccc*(w1*(8*(p3p6*p3p4)*(fmb-fmc)-8*fmc*hbcm2*p3p6)+16*p3p6
1465      . *(2*fb1*hbcm-fb2*fmb+fb2*fmc))
1466       b(11)=ccc*(4*w1*(-fmb*fmc*hbcm2-fmc2*hbcm2+hbcm2*p3p4+2*p3p4s2)
1467      . +8*(2*fb1*fmb*hbcm+2*fb1*fmc*hbcm-fb2*hbcm2-2*fb2*p3p4))
1468       b(13)=ccc*(w1*(4*p3p4*(-fmb+fmc)+4*fmc*hbcm2)+8*(-2*fb1*hbcm+
1469      . fb2*fmb-fb2*fmc))
1470       do 200 n=1,16
1471          c(n,2)=c(n,2)-0.7396002616336388d0*b(n)
1472          c(n,3)=c(n,3)+0.1662127982237257d0*b(n)
1473 200   continue
1474       return
1475       end
1476
1477       subroutine amp12_3p0(cc)
1478       implicit double precision(a-h,o-z)
1479       implicit integer (i-n)
1480       dimension b(16)
1481 #include "inclcon.h"
1482 #include "inclppp.h"
1483 #include "inclamp.h"
1484       do 100 n=1,16
1485          b(n)=0.0d0
1486 100   continue
1487       ccc=cc/((-2*p1p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2+2*ffmcfmb*
1488      . p1p3-2*ffmcfmb*p3p5+fmb2+hbcm2-2*p1p3-2*p1p5+2*p3p5)*(ffmcfmb
1489      . **2*hbcm2-2*ffmcfmb*p2p3-fmc2))
1490       ans3=(4*p6p7*(-4*fb1*fmb*fmc*hbcm+4*fb1*fmc2*hbcm-4*fb2*ffmcfmb
1491      . *fmb*hbcm2+4*fb2*ffmcfmb*fmc*hbcm2+fmb*hbcm2-fmc*hbcm2)+8*(
1492      . p5p6*p3p7)*(4*fb1*ffmcfmb*hbcm-4*fb2*fmc+3*hbcm)+8*(p4p6*p3p7)
1493      . *(4*fb1*ffmcfmb*hbcm-4*fb2*fmc+3*hbcm)+8*(p3p7*p3p6)*(4*fb1*
1494      . ffmcfmb*hbcm-4*fb2*fmc+3*hbcm))
1495       ans2=w15*(16*(p6p7*p2p5)*(fmc*hbcm2-hbcm3)+16*(p6p7*p1p2)*(-fmc
1496      . *hbcm2+hbcm3)+16*(p5p7*p5p6)*(-ffmcfmb*hbcm3+fmc*hbcm2)+16*(
1497      . p5p7*p4p6)*(-ffmcfmb*hbcm3+fmc*hbcm2)+16*(p5p7*p3p6)*(-ffmcfmb
1498      . *hbcm3+fmc*hbcm2)+16*(p5p6*p3p7*p3p5)*(ffmcfmb*hbcm-fmc)+16*(
1499      . p4p6*p3p7*p3p5)*(ffmcfmb*hbcm-fmc)+16*(p3p7*p3p6*p3p5)*(
1500      . ffmcfmb*hbcm-fmc)+16*(p5p6*p3p7*p1p3)*(-ffmcfmb*hbcm+fmc)+16*(
1501      . p4p6*p3p7*p1p3)*(-ffmcfmb*hbcm+fmc)+16*(p3p7*p3p6*p1p3)*(-
1502      . ffmcfmb*hbcm+fmc)+8*p6p7*(-ffmcfmb*fmb*hbcm4+fmb*fmc*hbcm3)+8*
1503      . (p6p7*p3p5)*(-ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm
1504      . +fmc2*hbcm)+16*(p6p7*p2p3)*(ffmcfmb*fmb*hbcm2-fmb2*hbcm)+8*(
1505      . p6p7*p1p3)*(ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm-
1506      . fmc2*hbcm)+16*(-ffmcfmb*fmb*hbcm2*p3p6*p3p7-ffmcfmb*fmb*hbcm2*
1507      . p3p7*p4p6-ffmcfmb*fmb*hbcm2*p3p7*p5p6-2*hbcm*p1p2*p2p3*p6p7+2*
1508      . hbcm*p1p2*p3p6*p3p7+2*hbcm*p1p2*p3p7*p4p6+2*hbcm*p1p2*p3p7*
1509      . p5p6+2*hbcm*p1p5*p2p3*p6p7+2*hbcm*p2p3*p2p5*p6p7+2*hbcm*p2p3*
1510      . p3p6*p5p7+2*hbcm*p2p3*p4p6*p5p7+2*hbcm*p2p3*p5p6*p5p7-2*hbcm*
1511      . p2p5*p3p6*p3p7-2*hbcm*p2p5*p3p7*p4p6-2*hbcm*p2p5*p3p7*p5p6))+
1512      . ans3
1513       ans1=w7*(16*(p5p6*p3p7*p2p3)*(ffmcfmb*hbcm-fmc)+16*(p4p6*p3p7*
1514      . p2p3)*(ffmcfmb*hbcm-fmc)+16*(p3p7*p3p6*p2p3)*(ffmcfmb*hbcm-fmc
1515      . )+8*(p6p7*p2p3)*(ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-fmb*fmc*
1516      . hbcm+fmc2*hbcm))+ans2
1517       ans=ccc*ans1
1518       b(1)=ans
1519       b(2)=ccc*(8*w7*(p3p7*p2p3)*(ffmcfmb*fmb-ffmcfmb*fmc-ffmcfmb*
1520      . hbcm+fmc)+w15*(8*p5p7*(ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3-fmc*
1521      . hbcm2-fmc2*hbcm)+8*(p3p7*p3p5)*(ffmcfmb*fmb-ffmcfmb*fmc-
1522      . ffmcfmb*hbcm+fmc)+8*(p3p7*p1p3)*(-ffmcfmb*fmb+ffmcfmb*fmc+
1523      . ffmcfmb*hbcm-fmc)+8*(ffmcfmb*fmb*hbcm2*p3p7-2*hbcm*p1p2*p3p7-2
1524      . *hbcm*p2p3*p5p7+2*hbcm*p2p5*p3p7))+4*p3p7*(-4*fb1*ffmcfmb*hbcm
1525      . +4*fb2*ffmcfmb*fmb-4*fb2*ffmcfmb*fmc+4*fb2*fmc+fmb-fmc-3*hbcm)
1526      . )
1527       b(3)=w15*ccc*(8*p5p6*(ffmcfmb*fmb*hbcm2-fmb*fmc*hbcm)+8*p4p6*(
1528      . ffmcfmb*fmb*hbcm2-fmb*fmc*hbcm)+8*p3p6*(ffmcfmb*fmb*hbcm2-fmb*
1529      . fmc*hbcm)+16*(-hbcm*p1p2*p3p6-hbcm*p1p2*p4p6-hbcm*p1p2*p5p6+
1530      . hbcm*p2p5*p3p6+hbcm*p2p5*p4p6+hbcm*p2p5*p5p6))
1531       ans2=((p5p6*p3p7)*(-32*fb2*ffmcfmb-8)+(p4p6*p3p7)*(-32*fb2*
1532      . ffmcfmb-8)+(p3p7*p3p6)*(-32*fb2*ffmcfmb-8)+4*p6p7*(4*fb1*fmc*
1533      . hbcm+4*fb2*ffmcfmb*hbcm2-hbcm2)+32*(-fb2*p2p3*p6p7-fb2*p2p4*
1534      . p6p7))
1535       ans1=w7*(16*(p6p7*p2p4)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p6p7*p2p3)*
1536      . (ffmcfmb*hbcm2-fmc*hbcm)+16*(-ffmcfmb*p2p3*p3p6*p3p7-ffmcfmb*
1537      . p2p3*p3p7*p4p6-ffmcfmb*p2p3*p3p7*p5p6-p2p3*p2p4*p6p7-p2p3s2*
1538      . p6p7))+w15*(16*(p6p7*p2p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p6p7
1539      . *p1p2)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(p5p7*p5p6)*(ffmcfmb*hbcm2
1540      . -fmc*hbcm)+16*(p5p7*p4p6)*(ffmcfmb*hbcm2-fmc*hbcm)+16*(p5p7*
1541      . p3p6)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p6p7*p3p5)*(-ffmcfmb*hbcm2+
1542      . fmc*hbcm)+16*(p6p7*p1p5)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p6p7*p1p3
1543      . )*(ffmcfmb*hbcm2-fmc*hbcm)+8*p6p7*(-ffmcfmb*fmb*fmc*hbcm2-
1544      . ffmcfmb*fmb2*hbcm2+fmb*fmc2*hbcm+fmb2*fmc*hbcm)+16*(ffmcfmb*
1545      . p1p3*p3p6*p3p7+ffmcfmb*p1p3*p3p7*p4p6+ffmcfmb*p1p3*p3p7*p5p6-
1546      . ffmcfmb*p3p5*p3p6*p3p7-ffmcfmb*p3p5*p3p7*p4p6-ffmcfmb*p3p5*
1547      . p3p7*p5p6-fmb*hbcm*p2p3*p6p7-2*fmb*hbcm*p2p4*p6p7+p1p3*p2p3*
1548      . p6p7+p1p3*p2p4*p6p7-p2p3*p3p5*p6p7-p2p4*p3p5*p6p7))+ans2
1549       ans=ccc*ans1
1550       b(4)=ans
1551       ans2=((p3p7*p3p5)*(-32*fb2*ffmcfmb-8)+(p3p7*p2p3)*(32*fb2*
1552      . ffmcfmb+8)+(p3p7*p1p3)*(32*fb2*ffmcfmb+8)+4*p5p7*(4*fb1*fmc*
1553      . hbcm+4*fb2*ffmcfmb*hbcm2-hbcm2)+4*p3p7*(-4*fb1*ffmcfmb*fmb*
1554      . hbcm-4*fb1*ffmcfmb*fmc*hbcm-4*fb2*ffmcfmb*hbcm2+4*fb2*fmb*fmc+
1555      . 4*fb2*fmc2-3*fmb*hbcm-3*fmc*hbcm-hbcm2))
1556       ans1=w7*(8*(p5p7*p2p3)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(p3p7*p2p3)*
1557      . (-ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2+fmb*fmc+fmc2
1558      . )+16*(-ffmcfmb*hbcm2*p1p2*p3p7+ffmcfmb*hbcm2*p2p5*p3p7+ffmcfmb
1559      . *p1p3*p2p3*p3p7-ffmcfmb*p2p3*p3p5*p3p7+ffmcfmb*p2p3s2*p3p7))+
1560      . w15*(8*(p5p7*p3p5)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p5p7*p1p3)*(-
1561      . ffmcfmb*hbcm2+fmc*hbcm)+8*p5p7*(ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*
1562      . hbcm3+ffmcfmb*hbcm4-fmb*fmc*hbcm2-fmc*hbcm3-fmc2*hbcm2)+8*(
1563      . p3p7*p3p5)*(-ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2+
1564      . fmb*fmc+fmc2)+8*(p3p7*p1p3)*(ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm
1565      . +ffmcfmb*hbcm2-fmb*fmc-fmc2)+8*p3p7*(ffmcfmb*fmb*fmc*hbcm2+
1566      . ffmcfmb*fmb2*hbcm2-2*ffmcfmb*p1p3s2-2*ffmcfmb*p3p5s2)+16*(-
1567      . ffmcfmb*hbcm2*p1p5*p3p7-ffmcfmb*hbcm2*p2p3*p5p7-ffmcfmb*p1p3*
1568      . p2p3*p3p7+2*ffmcfmb*p1p3*p3p5*p3p7+ffmcfmb*p2p3*p3p5*p3p7-fmc*
1569      . hbcm*p1p2*p3p7+fmc*hbcm*p2p5*p3p7))+ans2
1570       ans=ccc*ans1
1571       b(5)=ans
1572       ans=ccc*(w7*(16*(p3p6*p2p5)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p5p6*
1573      . p2p3)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(p4p6*p2p3)*(-ffmcfmb*hbcm2+
1574      . fmc*hbcm)+16*(p3p6*p1p2)*(-ffmcfmb*hbcm2+fmc*hbcm)+16*(p1p2*
1575      . p2p3*p3p6-p2p3*p2p5*p3p6))+w15*(16*(p3p6*p2p5)*(-fmb*hbcm+fmc*
1576      . hbcm)+16*(p3p6*p1p2)*(fmb*hbcm-fmc*hbcm)+8*(p5p6*p3p5)*(-
1577      . ffmcfmb*hbcm2+fmc*hbcm)+8*(p4p6*p3p5)*(-ffmcfmb*hbcm2+fmc*hbcm
1578      . )+16*(p3p6*p1p5)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(p5p6*p1p3)*(
1579      . ffmcfmb*hbcm2-fmc*hbcm)+8*(p4p6*p1p3)*(ffmcfmb*hbcm2-fmc*hbcm)
1580      . +8*p3p6*(ffmcfmb*fmb*fmc*hbcm2+ffmcfmb*fmb2*hbcm2-fmb*fmc2*
1581      . hbcm-fmb2*fmc*hbcm)+16*(fmb*hbcm*p2p3*p4p6+fmb*hbcm*p2p3*p5p6-
1582      . hbcm2*p1p2*p4p6-hbcm2*p1p2*p5p6+hbcm2*p2p5*p4p6+hbcm2*p2p5*
1583      . p5p6-p1p2*p1p3*p3p6+p1p2*p3p5*p3p6+p1p3*p2p5*p3p6-p2p5*p3p5*
1584      . p3p6))+(4*p5p6*(4*fb1*fmc*hbcm+4*fb2*ffmcfmb*hbcm2-hbcm2)+4*
1585      . p4p6*(4*fb1*fmc*hbcm+4*fb2*ffmcfmb*hbcm2-hbcm2)+32*(fb2*p1p2*
1586      . p3p6-fb2*p2p5*p3p6)))
1587       b(6)=ans
1588       b(7)=ccc*(w7*(8*p2p5*(-ffmcfmb*hbcm2+fmc*hbcm)+4*p2p3*(-ffmcfmb
1589      . *hbcm2+fmc*hbcm)+8*p1p2*(ffmcfmb*hbcm2-fmc*hbcm)+8*(-p1p2*p2p3
1590      . +p2p3*p2p5))+w15*(8*p2p5*(fmb*hbcm-fmc*hbcm+hbcm2)+8*p1p2*(-
1591      . fmb*hbcm+fmc*hbcm-hbcm2)+4*p3p5*(-ffmcfmb*hbcm2+fmc*hbcm)+8*
1592      . p1p5*(ffmcfmb*hbcm2-fmc*hbcm)+4*p1p3*(ffmcfmb*hbcm2-fmc*hbcm)+
1593      . 4*(-ffmcfmb*fmb*fmc*hbcm2-ffmcfmb*fmb2*hbcm2+fmb*fmc2*hbcm+2*
1594      . fmb*hbcm*p2p3+fmb2*fmc*hbcm+2*p1p2*p1p3-2*p1p2*p3p5-2*p1p3*
1595      . p2p5+2*p2p5*p3p5))+2*(4*fb1*fmc*hbcm+4*fb2*ffmcfmb*hbcm2-8*fb2
1596      . *p1p2+8*fb2*p2p5-hbcm2))
1597       b(8)=ccc*(4*w7*p2p3*(-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+fmb*
1598      . fmc*hbcm-fmc2*hbcm)+w15*(8*p2p5*(-fmc*hbcm2+hbcm3)+8*p1p2*(fmc
1599      . *hbcm2-hbcm3)+4*p3p5*(ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2-fmb*
1600      . fmc*hbcm-fmc2*hbcm)+8*p2p3*(-ffmcfmb*fmb*hbcm2+fmb2*hbcm)+4*
1601      . p1p3*(-ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm+fmc2*
1602      . hbcm)+4*(ffmcfmb*fmb*hbcm4-fmb*fmc*hbcm3+4*hbcm*p1p2*p2p3-4*
1603      . hbcm*p1p5*p2p3-4*hbcm*p2p3*p2p5))+2*(4*fb1*fmb*fmc*hbcm-4*fb1*
1604      . fmc2*hbcm+4*fb2*ffmcfmb*fmb*hbcm2-4*fb2*ffmcfmb*fmc*hbcm2-fmb*
1605      . hbcm2+fmc*hbcm2))
1606       b(9)=ccc*(w7*(8*(p3p6*p2p3)*(fmb-fmc)+8*p3p6*(-ffmcfmb*fmb*
1607      . hbcm2+ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm-fmc2*hbcm))+w15*(8*(p3p6*
1608      . p3p5)*(fmb-fmc)+8*(p3p6*p1p3)*(-fmb+fmc)+8*p3p6*(-ffmcfmb*fmb*
1609      . hbcm2-fmb*fmc*hbcm+2*fmb2*hbcm)+8*(-fmb*hbcm2*p4p6-fmb*hbcm2*
1610      . p5p6+2*hbcm*p1p2*p3p6+2*hbcm*p1p3*p4p6+2*hbcm*p1p3*p5p6-4*hbcm
1611      . *p1p5*p3p6-2*hbcm*p2p5*p3p6-2*hbcm*p3p5*p4p6-2*hbcm*p3p5*p5p6)
1612      . )+16*p3p6*(fb2*fmb-fb2*fmc))
1613       b(10)=ccc*(8*w15*(-2*fmb*hbcm*p3p6-2*fmb*hbcm*p4p6-2*fmb*hbcm*
1614      . p5p6+p1p3*p3p6+p1p3*p4p6+p1p3*p5p6-p3p5*p3p6-p3p5*p4p6-p3p5*
1615      . p5p6)+w7*(8*p5p6*(ffmcfmb*hbcm2-fmc*hbcm)+8*p4p6*(ffmcfmb*
1616      . hbcm2-fmc*hbcm)+8*p3p6*(ffmcfmb*hbcm2-fmc*hbcm)+8*(-p2p3*p3p6-
1617      . p2p3*p4p6-p2p3*p5p6))+16*(-fb2*p3p6-fb2*p4p6-fb2*p5p6))
1618       b(11)=ccc*(w7*(8*p3p5*(ffmcfmb*hbcm2-fmc*hbcm)+4*p2p3*(-ffmcfmb
1619      . *hbcm2+fmc*hbcm-hbcm2)+8*p1p3*(-ffmcfmb*hbcm2+fmc*hbcm)+4*(
1620      . ffmcfmb*hbcm4-fmc*hbcm3+2*p1p3*p2p3-2*p2p3*p3p5+2*p2p3s2))+w15
1621      . *(4*p3p5*(ffmcfmb*hbcm2-2*fmb*hbcm+fmc*hbcm-hbcm2)+4*p1p3*(-
1622      . ffmcfmb*hbcm2+2*fmb*hbcm-fmc*hbcm+hbcm2)+4*(fmb*fmc*hbcm2+2*
1623      . fmb*hbcm*p2p3-2*fmb*hbcm3+fmb2*hbcm2+2*hbcm2*p1p2-2*hbcm2*p1p5
1624      . -2*hbcm2*p2p5-2*p1p3*p2p3+4*p1p3*p3p5-2*p1p3s2+2*p2p3*p3p5-2*
1625      . p3p5s2))+2*(-4*fb1*fmc*hbcm-4*fb2*ffmcfmb*hbcm2-4*fb2*hbcm2+8*
1626      . fb2*p1p3+8*fb2*p2p3-8*fb2*p3p5+hbcm2))
1627       b(12)=ccc*(w7*(8*(p3p7*p2p3)*(-ffmcfmb*hbcm+fmc)+8*p3p7*(
1628      . ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2))+w15*(8*p5p7*(ffmcfmb*
1629      . hbcm3-hbcm3)+8*(p3p7*p3p5)*(-ffmcfmb*hbcm+fmc)+8*(p3p7*p1p3)*(
1630      . ffmcfmb*hbcm-fmc)+8*p3p7*(ffmcfmb*fmb*hbcm2+fmb*fmc*hbcm-fmb2*
1631      . hbcm)+16*(-hbcm*p1p2*p3p7+hbcm*p1p5*p3p7+hbcm*p2p5*p3p7))+4*
1632      . p3p7*(-4*fb1*ffmcfmb*hbcm+4*fb2*fmc-3*hbcm))
1633       b(13)=ccc*(w7*(4*p2p3*(-fmb+fmc)+4*(ffmcfmb*fmb*hbcm2-ffmcfmb*
1634      . fmc*hbcm2-fmb*fmc*hbcm+fmc2*hbcm))+w15*(4*p3p5*(-fmb+fmc-2*
1635      . hbcm)+4*p1p3*(fmb-fmc+2*hbcm)+4*(ffmcfmb*fmb*hbcm2+fmb*fmc*
1636      . hbcm-fmb*hbcm2-2*fmb2*hbcm-2*hbcm*p1p2+4*hbcm*p1p5+2*hbcm*p2p5
1637      . ))+8*(-fb2*fmb+fb2*fmc))
1638       b(14)=ccc*(w15*(8*p5p7*(ffmcfmb*hbcm2-fmb*hbcm-hbcm2)+8*(
1639      . ffmcfmb*p1p3*p3p7-ffmcfmb*p3p5*p3p7-fmb*hbcm*p3p7+p1p3*p5p7-
1640      . p3p5*p5p7))+w7*(8*p5p7*(ffmcfmb*hbcm2-fmc*hbcm)+8*(ffmcfmb*
1641      . hbcm2*p3p7-ffmcfmb*p2p3*p3p7-p2p3*p5p7))+(p3p7*(-16*fb2*
1642      . ffmcfmb-4)-16*fb2*p5p7))
1643       ans=ccc*(w7*(8*p6p7*(-ffmcfmb*hbcm4+fmc*hbcm3)+16*(p5p7*p3p6)*(
1644      . -ffmcfmb*hbcm2+fmc*hbcm)+16*(p6p7*p3p4)*(-ffmcfmb*hbcm2+fmc*
1645      . hbcm)+8*(p6p7*p2p3)*(ffmcfmb*hbcm2-fmc*hbcm+hbcm2)+16*(ffmcfmb
1646      . *hbcm2*p3p7*p4p6+ffmcfmb*hbcm2*p3p7*p5p6+ffmcfmb*p2p3*p3p6*
1647      . p3p7+p2p3*p3p4*p6p7+p2p3*p3p6*p5p7))+w15*(8*p6p7*(fmb*fmc*
1648      . hbcm2+2*fmb*hbcm3+fmb2*hbcm2)+16*(p5p7*p3p6)*(-ffmcfmb*hbcm2+
1649      . fmb*hbcm)+8*(p6p7*p3p5)*(ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm+
1650      . hbcm2)+8*(p6p7*p1p3)*(-ffmcfmb*hbcm2-2*fmb*hbcm-fmc*hbcm-hbcm2
1651      . )+16*(-ffmcfmb*p1p3*p3p6*p3p7+ffmcfmb*p3p5*p3p6*p3p7-fmb*hbcm*
1652      . p2p3*p6p7+2*fmb*hbcm*p3p4*p6p7-fmb*hbcm*p3p7*p4p6-fmb*hbcm*
1653      . p3p7*p5p6+hbcm2*p1p2*p6p7-hbcm2*p1p5*p6p7-hbcm2*p2p5*p6p7-
1654      . hbcm2*p4p6*p5p7-hbcm2*p5p6*p5p7-p1p3*p3p4*p6p7-p1p3*p3p6*p5p7+
1655      . p3p4*p3p5*p6p7+p3p5*p3p6*p5p7))+((p3p7*p3p6)*(32*fb2*ffmcfmb+8
1656      . )+4*p6p7*(-4*fb1*fmc*hbcm-4*fb2*ffmcfmb*hbcm2+4*fb2*hbcm2+
1657      . hbcm2)+32*(fb2*p3p4*p6p7+fb2*p3p6*p5p7)))
1658       b(15)=ans
1659       b(16)=ccc*(w7*(8*(p6p7*p2p3)*(fmb-fmc)+8*p6p7*(-ffmcfmb*fmb*
1660      . hbcm2+ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm-fmc2*hbcm))+w15*(8*(p6p7*
1661      . p3p5)*(fmb-fmc+2*hbcm)+8*(p6p7*p1p3)*(-fmb+fmc-2*hbcm)+8*p6p7*
1662      . (-ffmcfmb*fmb*hbcm2-fmb*fmc*hbcm+fmb*hbcm2+2*fmb2*hbcm)+16*(
1663      . hbcm*p1p2*p6p7-2*hbcm*p1p5*p6p7-hbcm*p2p5*p6p7-hbcm*p3p6*p5p7-
1664      . hbcm*p4p6*p5p7-hbcm*p5p6*p5p7))+16*p6p7*(fb2*fmb-fb2*fmc))
1665       do 200 n=1,16
1666          c(n,1)=c(n,1)+0.09090909090909091d0*b(n)
1667          c(n,2)=c(n,2)-0.01680909685530997d0*b(n)
1668          c(n,3)=c(n,3)-0.02077659977796572d0*b(n)
1669 200   continue
1670       return
1671       end
1672
1673       subroutine amp11_3p0(cc)
1674       implicit double precision(a-h,o-z)
1675       implicit integer (i-n)
1676       dimension b(16)
1677 #include "inclcon.h"
1678 #include "inclppp.h"
1679 #include "inclamp.h"
1680       do 100 n=1,16
1681          b(n)=0.0d0
1682 100   continue
1683       ccc=cc/((-2*p1p5)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2)*(
1684      . ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2+2*ffmcfmb*p2p3-fmb2+hbcm2-2*
1685      . p2p3))
1686       ans2=w8*(16*p6p7*(fmb*p2p3s2-fmc*p2p3s2)+16*(p5p6*p3p7*p2p3)*(
1687      . ffmcfmb*hbcm+fmb-hbcm)+16*(p4p6*p3p7*p2p3)*(ffmcfmb*hbcm+fmb-
1688      . hbcm)+16*(p3p7*p3p6*p2p3)*(ffmcfmb*hbcm+fmb-hbcm)+8*(p6p7*p2p3
1689      . )*(ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm-fmb*hbcm2+
1690      . fmb2*hbcm+fmc*hbcm2))+(32*(p6p7*p2p3)*(-fb2*fmb+fb2*fmc)+4*
1691      . p6p7*(4*fb1*fmb*fmc*hbcm-4*fb1*fmb2*hbcm-4*fb2*ffmcfmb*fmb*
1692      . hbcm2+4*fb2*ffmcfmb*fmc*hbcm2+4*fb2*fmb*hbcm2-4*fb2*fmc*hbcm2+
1693      . fmb*hbcm2-fmc*hbcm2)+8*(p5p6*p3p7)*(4*fb1*ffmcfmb*hbcm-4*fb1*
1694      . hbcm-4*fb2*fmb-3*hbcm)+8*(p4p6*p3p7)*(4*fb1*ffmcfmb*hbcm-4*fb1
1695      . *hbcm-4*fb2*fmb-3*hbcm)+8*(p3p7*p3p6)*(4*fb1*ffmcfmb*hbcm-4*
1696      . fb1*hbcm-4*fb2*fmb-3*hbcm))
1697       ans1=w1*(16*(p6p7*p3p4*p2p3)*(fmb-fmc)+16*(p6p7*p2p4)*(-fmb*
1698      . hbcm2+fmc*hbcm2-hbcm3)+16*(p5p6*p4p7)*(-ffmcfmb*hbcm3-fmb*
1699      . hbcm2+hbcm3)+16*(p4p7*p4p6)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+
1700      . 16*(p4p7*p3p6)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+16*(p5p6*p3p7*
1701      . p3p4)*(ffmcfmb*hbcm+fmb-hbcm)+16*(p4p6*p3p7*p3p4)*(ffmcfmb*
1702      . hbcm+fmb-hbcm)+16*(p3p7*p3p6*p3p4)*(ffmcfmb*hbcm+fmb-hbcm)+8*
1703      . p6p7*(ffmcfmb*fmc*hbcm4+fmb*fmc*hbcm3-fmc*hbcm4)+16*(p6p7*p3p5
1704      . )*(ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm-fmc*hbcm2)+16*(p6p7*p2p3)*(-
1705      . ffmcfmb*fmc*hbcm2+fmc*hbcm2-fmc2*hbcm)+16*(p6p7*p1p3)*(-
1706      . ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm+fmc*hbcm2)+8*(p6p7*p3p4)*(-
1707      . ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm+fmb*hbcm2-
1708      . fmb2*hbcm-fmc*hbcm2)+16*(fmb*fmc*hbcm*p3p6*p3p7+fmb*fmc*hbcm*
1709      . p3p7*p4p6+fmb*fmc*hbcm*p3p7*p5p6-fmc*hbcm2*p1p2*p6p7+fmc*hbcm2
1710      . *p2p5*p6p7-2*hbcm*p1p2*p3p4*p6p7+2*hbcm*p1p3*p2p4*p6p7+2*hbcm*
1711      . p2p3*p2p4*p6p7-2*hbcm*p2p4*p3p5*p6p7+2*hbcm*p2p5*p3p4*p6p7))+
1712      . ans2
1713       ans=ccc*ans1
1714       b(1)=ans
1715       b(2)=ccc*(8*w8*(p3p7*p2p3)*(-ffmcfmb*fmb+ffmcfmb*fmc-ffmcfmb*
1716      . hbcm-fmc+hbcm)+w1*(8*p5p7*(-ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm+fmc
1717      . *hbcm2)+8*(p3p7*p3p4)*(-ffmcfmb*fmb+ffmcfmb*fmc-ffmcfmb*hbcm-
1718      . fmc+hbcm)+8*p4p7*(ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2+ffmcfmb*
1719      . hbcm3-fmb*fmc*hbcm+fmb2*hbcm+fmc*hbcm2-hbcm3)+8*(-fmb*fmc*hbcm
1720      . *p3p7+2*hbcm*p1p2*p4p7+2*hbcm*p2p4*p5p7-2*hbcm*p2p5*p4p7))+4*
1721      . p3p7*(-4*fb1*ffmcfmb*hbcm+4*fb1*hbcm+4*fb2*ffmcfmb*fmb-4*fb2*
1722      . ffmcfmb*fmc+4*fb2*fmc+fmb-fmc+3*hbcm))
1723       b(3)=w1*ccc*(8*p5p6*(-ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm+fmc*hbcm2)
1724      . +8*p4p6*(-ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm+fmc*hbcm2)+8*p3p6*(-
1725      . ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm+fmc*hbcm2)+16*(hbcm*p2p4*p3p6+
1726      . hbcm*p2p4*p4p6+hbcm*p2p4*p5p6))
1727       ans=ccc*(w8*((p5p6*p3p7*p2p3)*(16*ffmcfmb-16)+(p4p6*p3p7*p2p3)*
1728      . (16*ffmcfmb-16)+(p3p7*p3p6*p2p3)*(16*ffmcfmb-16)+16*(p6p7*p2p4
1729      . )*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(p6p7*p2p3)*(ffmcfmb*hbcm2+
1730      . fmb*hbcm-hbcm2)+16*p2p3*p2p4*p6p7)+w1*(16*(p6p7*p2p4)*(-fmb*
1731      . hbcm+fmc*hbcm+hbcm2)+(p5p6*p3p7*p3p4)*(16*ffmcfmb-16)+(p4p6*
1732      . p3p7*p3p4)*(16*ffmcfmb-16)+(p3p7*p3p6*p3p4)*(16*ffmcfmb-16)+16
1733      . *(p5p6*p4p7)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(p4p7*p4p6)*(-
1734      . ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(p4p7*p3p6)*(-ffmcfmb*hbcm2-
1735      . fmb*hbcm+hbcm2)+8*(p6p7*p3p4)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8
1736      . *p6p7*(ffmcfmb*fmb*fmc*hbcm2+ffmcfmb*fmc2*hbcm2-fmb*fmc*hbcm2+
1737      . fmb*fmc2*hbcm+fmb2*fmc*hbcm-fmc2*hbcm2)+16*(fmc*hbcm*p2p3*p6p7
1738      . +p2p4*p3p4*p6p7))+((p5p6*p3p7)*(-32*fb2*ffmcfmb+32*fb2-8)+(
1739      . p4p6*p3p7)*(-32*fb2*ffmcfmb+32*fb2-8)+(p3p7*p3p6)*(-32*fb2*
1740      . ffmcfmb+32*fb2-8)+4*p6p7*(4*fb1*fmb*hbcm+4*fb2*ffmcfmb*hbcm2-4
1741      . *fb2*hbcm2-hbcm2)-32*fb2*p2p4*p6p7))
1742       b(4)=ans
1743       ans2=w8*(16*p3p7*(-ffmcfmb*p2p3s2+p2p3s2)+(p3p7*p3p5*p2p3)*(16*
1744      . ffmcfmb-16)+(p3p7*p2p3*p1p3)*(-16*ffmcfmb+16)+8*(p5p7*p2p3)*(-
1745      . ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(p3p7*p2p3)*(-ffmcfmb*fmb*hbcm
1746      . -ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-fmb*fmc+fmb*hbcm-fmb2+fmc*hbcm
1747      . -hbcm2)+16*(-fmb*hbcm*p1p2*p3p7+fmb*hbcm*p2p5*p3p7-p1p2*p2p3*
1748      . p3p7+p2p3*p2p5*p3p7-p2p3s2*p5p7))+((p3p7*p3p5)*(-32*fb2*
1749      . ffmcfmb+32*fb2-8)+(p3p7*p2p3)*(32*fb2*ffmcfmb-32*fb2+8)+(p3p7*
1750      . p1p3)*(32*fb2*ffmcfmb-32*fb2+8)+4*p5p7*(4*fb1*fmb*hbcm+4*fb2*
1751      . ffmcfmb*hbcm2-4*fb2*hbcm2-hbcm2)+4*p3p7*(-4*fb1*ffmcfmb*fmb*
1752      . hbcm-4*fb1*ffmcfmb*fmc*hbcm+4*fb1*fmb*hbcm+4*fb1*fmc*hbcm-4*
1753      . fb2*ffmcfmb*hbcm2+4*fb2*fmb*fmc+4*fb2*fmb2+4*fb2*hbcm2+3*fmb*
1754      . hbcm+3*fmc*hbcm-hbcm2)+32*(fb2*p1p2*p3p7+fb2*p2p3*p5p7-fb2*
1755      . p2p5*p3p7))
1756       ans1=w1*(8*p3p7*(-fmb*fmc2*hbcm-fmb2*fmc*hbcm)+(p3p7*p3p5*p3p4)
1757      . *(16*ffmcfmb-16)+(p3p7*p3p4*p2p3)*(-16*ffmcfmb+16)+(p3p7*p3p4*
1758      . p1p3)*(-16*ffmcfmb+16)+16*(p4p7*p3p5)*(-ffmcfmb*hbcm2-fmb*hbcm
1759      . +hbcm2)+8*(p5p7*p3p4)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(p4p7*
1760      . p2p3)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(p4p7*p1p3)*(ffmcfmb*
1761      . hbcm2+fmb*hbcm-hbcm2)+8*p4p7*(ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*
1762      . hbcm3-ffmcfmb*hbcm4+fmb*fmc*hbcm2-2*fmb*hbcm3+fmb2*hbcm2-fmc*
1763      . hbcm3+hbcm4)+8*(p3p7*p3p4)*(-ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm
1764      . +ffmcfmb*hbcm2-fmb*fmc+fmb*hbcm-fmb2+fmc*hbcm-hbcm2)+16*(-fmc*
1765      . hbcm*p1p2*p3p7-fmc*hbcm*p2p3*p5p7+fmc*hbcm*p2p5*p3p7+hbcm2*
1766      . p1p2*p4p7+hbcm2*p2p4*p5p7-hbcm2*p2p5*p4p7-p1p2*p3p4*p3p7-p2p3*
1767      . p3p4*p5p7+p2p5*p3p4*p3p7))+ans2
1768       ans=ccc*ans1
1769       b(5)=ans
1770       ans=ccc*(w8*(16*(p3p6*p2p5)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(
1771      . p5p6*p2p3)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(p4p6*p2p3)*(-
1772      . ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(p3p6*p1p2)*(-ffmcfmb*hbcm2-
1773      . fmb*hbcm+hbcm2)+16*(-p1p2*p2p3*p3p6+p2p3*p2p5*p3p6-p2p3s2*p4p6
1774      . -p2p3s2*p5p6))+w1*(16*(p3p6*p2p4)*(fmb*hbcm+fmc*hbcm)+8*(p5p6*
1775      . p3p4)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(p4p6*p3p4)*(ffmcfmb*
1776      . hbcm2+fmb*hbcm-hbcm2)+8*p3p6*(-ffmcfmb*fmb*fmc*hbcm2-ffmcfmb*
1777      . fmc2*hbcm2+fmb*fmc*hbcm2-fmb*fmc2*hbcm-fmb2*fmc*hbcm+fmc2*
1778      . hbcm2)+16*(-2*fmc*hbcm*p1p2*p3p6-fmc*hbcm*p2p3*p4p6-fmc*hbcm*
1779      . p2p3*p5p6+2*fmc*hbcm*p2p5*p3p6+hbcm2*p2p4*p4p6+hbcm2*p2p4*p5p6
1780      . -p1p2*p3p4*p3p6-p2p3*p3p4*p4p6-p2p3*p3p4*p5p6+p2p5*p3p4*p3p6))
1781      . +(4*p5p6*(4*fb1*fmb*hbcm+4*fb2*ffmcfmb*hbcm2-4*fb2*hbcm2-hbcm2
1782      . )+4*p4p6*(4*fb1*fmb*hbcm+4*fb2*ffmcfmb*hbcm2-4*fb2*hbcm2-hbcm2
1783      . )+32*(fb2*p1p2*p3p6+fb2*p2p3*p4p6+fb2*p2p3*p5p6-fb2*p2p5*p3p6)
1784      . ))
1785       b(6)=ans
1786       b(7)=ccc*(w8*(8*p2p5*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+4*p2p3*(-
1787      . ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*p1p2*(ffmcfmb*hbcm2+fmb*hbcm-
1788      . hbcm2)+8*(p1p2*p2p3-p2p3*p2p5-p2p3s2))+w1*(8*p2p4*(-fmb*hbcm-
1789      . fmc*hbcm+hbcm2)+4*p3p4*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+4*(
1790      . ffmcfmb*fmb*fmc*hbcm2+ffmcfmb*fmc2*hbcm2-fmb*fmc*hbcm2+fmb*
1791      . fmc2*hbcm+fmb2*fmc*hbcm+4*fmc*hbcm*p1p2-2*fmc*hbcm*p2p3-4*fmc*
1792      . hbcm*p2p5-fmc2*hbcm2+2*p1p2*p3p4-2*p2p3*p3p4-2*p2p5*p3p4))+2*(
1793      . 4*fb1*fmb*hbcm+4*fb2*ffmcfmb*hbcm2-4*fb2*hbcm2-8*fb2*p1p2+8*
1794      . fb2*p2p3+8*fb2*p2p5-hbcm2))
1795       ans=ccc*(w1*(8*(p3p4*p2p3)*(-fmb+fmc)+8*p2p4*(fmb*hbcm2-fmc*
1796      . hbcm2+hbcm3)+8*p3p5*(-ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm+fmc*hbcm2
1797      . )+8*p2p3*(ffmcfmb*fmc*hbcm2-fmc*hbcm2+fmc2*hbcm)+8*p1p3*(
1798      . ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm-fmc*hbcm2)+4*p3p4*(ffmcfmb*fmb*
1799      . hbcm2-ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm-fmb*hbcm2+fmb2*hbcm+fmc*
1800      . hbcm2)+4*(-ffmcfmb*fmc*hbcm4-fmb*fmc*hbcm3+2*fmc*hbcm2*p1p2-2*
1801      . fmc*hbcm2*p2p5+fmc*hbcm4+4*hbcm*p1p2*p3p4-4*hbcm*p1p3*p2p4-4*
1802      . hbcm*p2p3*p2p4+4*hbcm*p2p4*p3p5-4*hbcm*p2p5*p3p4))+w8*(4*p2p3*
1803      . (-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm+fmb*hbcm2-
1804      . fmb2*hbcm-fmc*hbcm2)+8*(-fmb*p2p3s2+fmc*p2p3s2))+(16*p2p3*(fb2
1805      . *fmb-fb2*fmc)+2*(-4*fb1*fmb*fmc*hbcm+4*fb1*fmb2*hbcm+4*fb2*
1806      . ffmcfmb*fmb*hbcm2-4*fb2*ffmcfmb*fmc*hbcm2-4*fb2*fmb*hbcm2+4*
1807      . fb2*fmc*hbcm2-fmb*hbcm2+fmc*hbcm2)))
1808       b(8)=ans
1809       b(9)=ccc*(w1*(8*(p3p6*p3p4)*(-fmb+fmc)+8*p3p6*(ffmcfmb*fmc*
1810      . hbcm2-fmb*fmc*hbcm-fmc*hbcm2+2*fmc2*hbcm)+8*(-fmc*hbcm2*p4p6-
1811      . fmc*hbcm2*p5p6-2*hbcm*p2p4*p3p6-2*hbcm*p3p4*p4p6-2*hbcm*p3p4*
1812      . p5p6))+w8*(8*(p3p6*p2p3)*(-fmb+fmc)+8*p3p6*(-ffmcfmb*fmb*hbcm2
1813      . +ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm+fmb*hbcm2-fmb2*hbcm-fmc*hbcm2)
1814      . )+16*p3p6*(fb2*fmb-fb2*fmc))
1815       b(10)=ccc*(8*w1*(2*fmc*hbcm*p3p6+2*fmc*hbcm*p4p6+2*fmc*hbcm*
1816      . p5p6+p3p4*p3p6+p3p4*p4p6+p3p4*p5p6)+w8*(8*p5p6*(ffmcfmb*hbcm2+
1817      . fmb*hbcm-hbcm2)+8*p4p6*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*p3p6*(
1818      . ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(p2p3*p3p6+p2p3*p4p6+p2p3*p5p6
1819      . ))+16*(-fb2*p3p6-fb2*p4p6-fb2*p5p6))
1820       b(11)=ccc*(w1*(4*p3p4*(-ffmcfmb*hbcm2+fmb*hbcm+2*fmc*hbcm+2*
1821      . hbcm2)+4*(fmb*fmc*hbcm2-4*fmc*hbcm*p1p3-2*fmc*hbcm*p2p3+4*fmc*
1822      . hbcm*p3p5+2*fmc*hbcm3+fmc2*hbcm2-2*hbcm2*p2p4-2*p1p3*p3p4+2*
1823      . p3p4*p3p5))+w8*(8*p3p5*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+4*p2p3*(
1824      . -ffmcfmb*hbcm2-fmb*hbcm+2*hbcm2)+8*p1p3*(-ffmcfmb*hbcm2-fmb*
1825      . hbcm+hbcm2)+4*(ffmcfmb*hbcm4+fmb*hbcm3-hbcm4-2*p1p3*p2p3+2*
1826      . p2p3*p3p5))+2*(-4*fb1*fmb*hbcm-4*fb2*ffmcfmb*hbcm2+8*fb2*p1p3-
1827      . 8*fb2*p3p5+hbcm2))
1828       b(12)=ccc*(w1*(8*p4p7*(ffmcfmb*hbcm3+fmc*hbcm2-2*hbcm3)+8*(p3p7
1829      . *p3p4)*(-ffmcfmb*hbcm-fmc+hbcm)+8*(fmc*hbcm2*p5p7-fmc2*hbcm*
1830      . p3p7+2*hbcm*p1p3*p4p7+2*hbcm*p2p3*p4p7+2*hbcm*p3p4*p5p7-2*hbcm
1831      . *p3p5*p4p7))+w8*(8*p3p7*(-fmb*fmc*hbcm+fmb2*hbcm)+8*(p3p7*p2p3
1832      . )*(-ffmcfmb*hbcm-fmc+hbcm))+4*p3p7*(-4*fb1*ffmcfmb*hbcm+4*fb1*
1833      . hbcm+4*fb2*fmc+3*hbcm))
1834       b(13)=ccc*(w1*(4*p3p4*(fmb-fmc-2*hbcm)+4*(-ffmcfmb*fmc*hbcm2+
1835      . fmb*fmc*hbcm-2*fmc2*hbcm+2*hbcm*p2p4))+w8*(4*p2p3*(fmb-fmc)+4*
1836      . (ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm-fmb*hbcm2+
1837      . fmb2*hbcm+fmc*hbcm2))+8*(-fb2*fmb+fb2*fmc))
1838       b(14)=ccc*(w8*(8*p5p7*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(ffmcfmb
1839      . *p2p3*p3p7+fmb*hbcm*p3p7+p2p3*p5p7))+w1*(8*p4p7*(-ffmcfmb*
1840      . hbcm2+fmc*hbcm)+8*(ffmcfmb*p3p4*p3p7+fmc*hbcm*p3p7+2*fmc*hbcm*
1841      . p5p7+p3p4*p5p7))+(p3p7*(-16*fb2*ffmcfmb-4)-16*fb2*p5p7))
1842       ans=ccc*(w1*(8*p6p7*(fmb*fmc*hbcm2-2*fmc*hbcm3+fmc2*hbcm2-2*
1843      . p3p4s2)+(p3p7*p3p6*p3p4)*(-16*ffmcfmb+16)+16*(p4p7*p3p6)*(
1844      . ffmcfmb*hbcm2-fmc*hbcm-hbcm2)+8*(p6p7*p3p4)*(-ffmcfmb*hbcm2+
1845      . fmb*hbcm-2*fmc*hbcm)+16*(fmc*hbcm*p2p3*p6p7-2*fmc*hbcm*p3p6*
1846      . p5p7+fmc*hbcm*p3p7*p4p6+fmc*hbcm*p3p7*p5p6-hbcm2*p2p4*p6p7-
1847      . hbcm2*p4p6*p4p7-hbcm2*p4p7*p5p6+p2p3*p3p4*p6p7-p3p4*p3p6*p5p7+
1848      . p3p4*p3p7*p4p6+p3p4*p3p7*p5p6))+w8*((p3p7*p3p6*p2p3)*(-16*
1849      . ffmcfmb+16)+8*p6p7*(-ffmcfmb*hbcm4-fmb*hbcm3+hbcm4+2*p2p3s2)+
1850      . 16*(p5p7*p3p6)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(p6p7*p3p4)*
1851      . (-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(p6p7*p2p3)*(ffmcfmb*hbcm2+
1852      . fmb*hbcm-2*hbcm2)+16*(fmb*hbcm*p3p7*p4p6+fmb*hbcm*p3p7*p5p6-
1853      . p2p3*p3p4*p6p7-p2p3*p3p6*p5p7+p2p3*p3p7*p4p6+p2p3*p3p7*p5p6))+
1854      . ((p3p7*p3p6)*(32*fb2*ffmcfmb-32*fb2+8)+4*p6p7*(-4*fb1*fmb*hbcm
1855      . -4*fb2*ffmcfmb*hbcm2+8*fb2*hbcm2+hbcm2)+32*(-fb2*p2p3*p6p7+fb2
1856      . *p3p4*p6p7+fb2*p3p6*p5p7-fb2*p3p7*p4p6-fb2*p3p7*p5p6)))
1857       b(15)=ans
1858       b(16)=ccc*(w1*(8*(p6p7*p3p4)*(-fmb+fmc+2*hbcm)+8*p6p7*(ffmcfmb*
1859      . fmc*hbcm2-fmb*fmc*hbcm+2*fmc2*hbcm)+16*(-hbcm*p2p4*p6p7-hbcm*
1860      . p3p6*p4p7-hbcm*p4p6*p4p7-hbcm*p4p7*p5p6))+w8*(8*(p6p7*p2p3)*(-
1861      . fmb+fmc)+8*p6p7*(-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+fmb*fmc*
1862      . hbcm+fmb*hbcm2-fmb2*hbcm-fmc*hbcm2))+16*p6p7*(fb2*fmb-fb2*fmc)
1863      . )
1864       do 200 n=1,16
1865          c(n,1)=c(n,1)+0.09090909090909091d0*b(n)
1866          c(n,2)=c(n,2)-0.01680909685530997d0*b(n)
1867          c(n,3)=c(n,3)-0.02077659977796572d0*b(n)
1868 200   continue
1869       return
1870       end
1871
1872       subroutine amp19_3p0(cc)
1873       implicit double precision(a-h,o-z)
1874       implicit integer (i-n)
1875       dimension b(16)
1876 #include "inclcon.h"
1877 #include "inclppp.h"
1878 #include "inclamp.h"
1879       do 100 n=1,16
1880          b(n)=0.0d0
1881 100   continue
1882       ccc=cc/((ffmcfmb**2*hbcm2-2*ffmcfmb*p2p3+2*ffmcfmb*p3p4+fmc2-2*
1883      . p2p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p2p3-fmc2)*(ffmcfmb**2*hbcm2
1884      . -2*ffmcfmb*hbcm2+2*ffmcfmb*p1p3-fmb2+hbcm2-2*p1p3))
1885       ans4=8*p6p7*(-ffmcfmb*fmb*fmc*hbcm3-2*ffmcfmb*fmc*hbcm4+ffmcfmb
1886      . *fmc2*hbcm3+2*ffmcfmb*hbcm*p2p3s2+fmb*fmc2*hbcm2-2*fmb*p2p3s2+
1887      . 2*fmc2*hbcm3-fmc3*hbcm2)+8*(p6p7*p3p4)*(-ffmcfmb**2*hbcm3+
1888      . ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2+2*ffmcfmb*hbcm3-fmb*fmc*
1889      . hbcm-2*fmc*hbcm2+2*fmc2*hbcm)+8*(p6p7*p2p3)*(-ffmcfmb**2*hbcm3
1890      . +ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm+2*fmc*hbcm2-
1891      . 6*fmc2*hbcm)+16*(-2*ffmcfmb*hbcm*p1p2*p3p6*p3p7-2*ffmcfmb*hbcm
1892      . *p1p3*p3p7*p4p6+2*ffmcfmb*hbcm*p2p5*p3p6*p3p7+2*ffmcfmb*hbcm*
1893      . p3p5*p3p7*p4p6-fmc*hbcm2*p1p2*p6p7-2*hbcm*p1p2*p3p4*p6p7-2*
1894      . hbcm*p1p2*p3p6*p4p7+2*hbcm*p1p2*p3p7*p4p6+2*hbcm*p1p3*p2p4*
1895      . p6p7+2*hbcm*p1p4*p2p3*p6p7+4*hbcm*p2p3*p2p4*p6p7-hbcm*p2p3*
1896      . p2p5*p6p7+4*hbcm*p2p3*p3p6*p4p7+4*hbcm*p2p3*p4p6*p4p7+2*hbcm*
1897      . p2p3*p4p6*p5p7-4*hbcm*p2p4*p3p5*p6p7-4*hbcm*p2p4*p3p6*p3p7-2*
1898      . hbcm*p2p4*p3p6*p5p7-4*hbcm*p2p4*p3p7*p4p6+3*hbcm*p2p5*p3p4*
1899      . p6p7+2*hbcm*p2p5*p3p6*p4p7-2*hbcm*p2p5*p3p7*p4p6)
1900       ans3=16*(p6p7*p2p4)*(-fmb*hbcm2+fmc*hbcm2-2*hbcm3)+16*(p5p7*
1901      . p4p6)*(-ffmcfmb*hbcm3+fmc*hbcm2)+16*(p4p7*p4p6)*(-ffmcfmb*
1902      . hbcm3+fmc*hbcm2)+16*(p6p7*p2p5)*(ffmcfmb*hbcm3+fmc*hbcm2)+16*(
1903      . p6p7*p1p4)*(-ffmcfmb*hbcm3+fmc*hbcm2)+16*(p4p6*p3p7*p3p4)*(3*
1904      . ffmcfmb*hbcm-fmc)+16*(p5p7*p3p6*p3p4)*(ffmcfmb*hbcm-fmc)+16*(
1905      . p6p7*p3p5*p3p4)*(ffmcfmb*hbcm-fmc)+16*(p4p6*p3p7*p2p3)*(-
1906      . ffmcfmb*hbcm+fmc)+16*(p5p7*p3p6*p2p3)*(-ffmcfmb*hbcm+fmc)+16*(
1907      . p6p7*p3p5*p2p3)*(-ffmcfmb*hbcm+fmc)+16*(p6p7*p3p4*p2p3)*(-
1908      . ffmcfmb*hbcm+fmb)+16*(p3p7*p3p6*p3p4)*(2*ffmcfmb*fmc+3*ffmcfmb
1909      . *hbcm-2*fmc)+16*(p3p7*p3p6*p2p3)*(-2*ffmcfmb*fmc+ffmcfmb*hbcm+
1910      . 2*fmc)+16*(p4p6*p3p7)*(-2*ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3+fmc*
1911      . hbcm2+fmc2*hbcm)+16*(p5p7*p3p6)*(-ffmcfmb*fmc*hbcm2+fmc2*hbcm)
1912      . +16*(p4p7*p3p6)*(-ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3+fmc*hbcm2+
1913      . fmc2*hbcm)+16*(p3p7*p3p6)*(-ffmcfmb*fmc*hbcm2+ffmcfmb*fmc2*
1914      . hbcm+2*fmc2*hbcm)+32*(p6p7*p3p5)*(-ffmcfmb*fmc*hbcm2+fmc2*hbcm
1915      . )+16*(p6p7*p1p3)*(ffmcfmb*fmc*hbcm2-fmc2*hbcm)+ans4
1916       ans2=w11*ans3
1917       ans7=8*(p6p7*p1p3)*(-ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb
1918      . *fmc*hbcm2+2*ffmcfmb*hbcm3+fmb*fmc*hbcm-2*fmc*hbcm2)-16*hbcm*
1919      . p1p3*p2p5*p6p7
1920       ans6=16*(p6p7*p2p5)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+32*(p3p7*
1921      . p3p6*p2p5)*(ffmcfmb*hbcm-hbcm)+32*(p5p7*p3p6*p2p3)*(-ffmcfmb*
1922      . hbcm+hbcm)+16*(p4p6*p3p7*p1p3)*(ffmcfmb*hbcm-fmc)+16*(p5p7*
1923      . p3p6*p1p3)*(ffmcfmb*hbcm-fmc)+16*(p6p7*p3p5*p1p3)*(ffmcfmb*
1924      . hbcm-fmc)+16*(p6p7*p2p3*p1p3)*(-ffmcfmb*hbcm+fmb)+16*(p3p7*
1925      . p3p6*p1p3)*(2*ffmcfmb*fmc+ffmcfmb*hbcm-2*fmc)+8*p6p7*(ffmcfmb
1926      . **2*hbcm5+ffmcfmb*fmb*hbcm4-ffmcfmb*fmc*hbcm4-ffmcfmb*hbcm5-
1927      . fmb*fmc*hbcm3+fmc*hbcm4)+16*(p4p6*p3p7)*(ffmcfmb**2*hbcm3+
1928      . ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3-fmb*fmc*hbcm
1929      . +fmc*hbcm2)+16*(p5p7*p3p6)*(ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2
1930      . -ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3-fmb*fmc*hbcm+fmc*hbcm2)+16*(
1931      . p3p7*p3p6)*(ffmcfmb**2*hbcm3+ffmcfmb*fmb*fmc*hbcm+ffmcfmb*fmb*
1932      . hbcm2-ffmcfmb*fmb2*hbcm-ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3-fmb*
1933      . fmc*hbcm+fmc*hbcm2)+16*(p6p7*p3p5)*(ffmcfmb**2*hbcm3+ffmcfmb*
1934      . fmb*hbcm2-ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3-fmb*fmc*hbcm+fmc*
1935      . hbcm2)+16*(p6p7*p2p3)*(-ffmcfmb**2*hbcm3+ffmcfmb*hbcm3-fmb*
1936      . hbcm2+fmb2*hbcm)+ans7
1937       ans5=w13*ans6
1938       ans8=(8*(p4p6*p3p7)*(4*fb1*ffmcfmb*hbcm+4*fb2*fmc-hbcm)+8*(p5p7
1939      . *p3p6)*(4*fb1*ffmcfmb*hbcm+4*fb2*fmc-hbcm)+8*(p3p7*p3p6)*(4*
1940      . fb1*ffmcfmb*hbcm-8*fb2*ffmcfmb*fmc+8*fb2*fmc-2*fmc-3*hbcm)+8*(
1941      . p6p7*p3p5)*(4*fb1*ffmcfmb*hbcm+4*fb2*fmc-hbcm)+8*(p6p7*p2p3)*(
1942      . -4*fb1*ffmcfmb*hbcm-4*fb2*fmb+hbcm)+4*p6p7*(4*fb1*ffmcfmb**2*
1943      . hbcm3+4*fb1*fmb*fmc*hbcm+4*fb2*ffmcfmb*fmb*hbcm2+4*fb2*ffmcfmb
1944      . *fmc*hbcm2-fmb*hbcm2-fmc*hbcm2)-32*fb1*hbcm*p2p5*p6p7)
1945       ans1=w7*(16*(p6p7*p2p5)*(ffmcfmb*hbcm3-fmc*hbcm2)+16*p6p7*(
1946      . ffmcfmb*hbcm*p2p3s2-fmb*p2p3s2)+16*(p4p6*p3p7*p2p3)*(ffmcfmb*
1947      . hbcm+fmc)+16*(p5p7*p3p6*p2p3)*(-ffmcfmb*hbcm+fmc)+16*(p6p7*
1948      . p3p5*p2p3)*(-ffmcfmb*hbcm+fmc)+16*(p3p7*p3p6*p2p3)*(-2*ffmcfmb
1949      . *fmc+ffmcfmb*hbcm+2*fmc)+8*(p6p7*p2p3)*(-ffmcfmb**2*hbcm3+
1950      . ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm+2*fmc2*hbcm)+
1951      . 16*(-2*ffmcfmb*hbcm*p1p2*p3p6*p3p7+2*ffmcfmb*hbcm*p2p5*p3p6*
1952      . p3p7-hbcm*p2p3*p2p5*p6p7))+ans2+ans5+ans8
1953       ans=ccc*ans1
1954       b(1)=ans
1955       ans2=w13*(16*(p5p7*p1p3)*(-ffmcfmb*hbcm+fmc)+8*(p3p7*p1p3)*(
1956      . ffmcfmb*fmb-ffmcfmb*fmc-ffmcfmb*hbcm+fmc)+16*p5p7*(-ffmcfmb**2
1957      . *hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3+fmb*
1958      . fmc*hbcm-fmc*hbcm2)+8*p3p7*(ffmcfmb**2*fmb*hbcm2-ffmcfmb**2*
1959      . fmc*hbcm2-ffmcfmb**2*hbcm3-ffmcfmb*fmb*fmc*hbcm-2*ffmcfmb*fmb*
1960      . hbcm2+ffmcfmb*fmb2*hbcm+2*ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3+fmb*
1961      . fmc*hbcm-fmc*hbcm2))+(8*p5p7*(-4*fb1*ffmcfmb*hbcm-4*fb2*fmc+
1962      . hbcm)+4*p3p7*(-4*fb1*ffmcfmb*hbcm-4*fb2*ffmcfmb*fmb+4*fb2*
1963      . ffmcfmb*fmc-4*fb2*fmc-fmb+fmc+hbcm))
1964       ans1=w7*(16*(p5p7*p2p3)*(ffmcfmb*hbcm-fmc)+8*(p3p7*p2p3)*(-
1965      . ffmcfmb*fmb+ffmcfmb*fmc-ffmcfmb*hbcm-fmc)+16*(ffmcfmb*hbcm*
1966      . p1p2*p3p7-2*ffmcfmb*hbcm*p2p5*p3p7))+w11*(16*(p5p7*p3p4)*(-
1967      . ffmcfmb*hbcm+fmc)+16*(p5p7*p2p3)*(ffmcfmb*hbcm-fmc)+24*p5p7*(
1968      . ffmcfmb*fmc*hbcm2-fmc2*hbcm)+8*(p3p7*p3p4)*(ffmcfmb*fmb-
1969      . ffmcfmb*fmc-3*ffmcfmb*hbcm+fmc)+8*(p3p7*p2p3)*(-ffmcfmb*fmb+
1970      . ffmcfmb*fmc-ffmcfmb*hbcm-fmc)+8*p4p7*(ffmcfmb**2*hbcm3-ffmcfmb
1971      . *fmb*hbcm2+ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm-2*fmc2*hbcm)+8*p3p7*
1972      . (-ffmcfmb**2*fmc*hbcm2+ffmcfmb*fmb*fmc*hbcm+2*ffmcfmb*fmc*
1973      . hbcm2-2*ffmcfmb*fmc2*hbcm-2*fmc2*hbcm)+16*(ffmcfmb*hbcm*p1p2*
1974      . p3p7+ffmcfmb*hbcm*p1p4*p3p7-2*ffmcfmb*hbcm*p2p5*p3p7+2*hbcm*
1975      . p1p2*p4p7-2*hbcm*p2p3*p4p7+2*hbcm*p2p4*p3p7+3*hbcm*p2p4*p5p7-3
1976      . *hbcm*p2p5*p4p7))+ans2
1977       ans=ccc*ans1
1978       b(2)=ans
1979       ans=ccc*(w7*(16*(p4p6*p2p3)*(ffmcfmb*hbcm-fmc)+8*(p3p6*p2p3)*(
1980      . ffmcfmb*hbcm-fmc))+w11*(16*(p4p6*p3p4)*(-ffmcfmb*hbcm+fmc)+8*(
1981      . p3p6*p3p4)*(-ffmcfmb*hbcm+fmc)+16*(p3p6*p2p4)*(ffmcfmb*hbcm+
1982      . hbcm)+16*(p4p6*p2p3)*(ffmcfmb*hbcm-fmc+hbcm)+8*(p3p6*p2p3)*(
1983      . ffmcfmb*hbcm-fmc)+8*p4p6*(-ffmcfmb**2*hbcm3+3*ffmcfmb*fmc*
1984      . hbcm2-2*fmc2*hbcm)+8*p3p6*(ffmcfmb**2*fmc*hbcm2+ffmcfmb*fmc*
1985      . hbcm2-ffmcfmb*fmc2*hbcm-fmc2*hbcm)+16*(-hbcm*p1p2*p4p6+3*hbcm*
1986      . p2p4*p4p6+hbcm*p2p5*p4p6))+w13*(32*(p3p6*p2p5)*(-ffmcfmb*hbcm+
1987      . hbcm)+16*(p3p6*p2p3)*(-ffmcfmb*hbcm+hbcm)+16*(p4p6*p1p3)*(-
1988      . ffmcfmb*hbcm+fmc)+8*(p3p6*p1p3)*(-ffmcfmb*hbcm+fmc)+16*(p3p6*
1989      . p1p2)*(ffmcfmb*hbcm-hbcm)+16*p4p6*(-ffmcfmb**2*hbcm3-ffmcfmb*
1990      . fmb*hbcm2+ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3+fmb*fmc*hbcm-fmc*
1991      . hbcm2)+8*p3p6*(-ffmcfmb**2*fmb*hbcm2+ffmcfmb**2*fmc*hbcm2-
1992      . ffmcfmb**2*hbcm3+ffmcfmb*fmb*fmc*hbcm-ffmcfmb*fmc2*hbcm+
1993      . ffmcfmb*hbcm3-fmc*hbcm2+fmc2*hbcm))+(8*p4p6*(-4*fb1*ffmcfmb*
1994      . hbcm-4*fb2*fmc+hbcm)+4*p3p6*(-4*fb1*ffmcfmb*hbcm-4*fb2*fmc+
1995      . hbcm)))
1996       b(3)=ans
1997       ans3=w13*(32*(p6p7*p2p4)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(
1998      . p6p7*p2p3)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(p6p7*p1p2)*(-
1999      . ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(p6p7*p1p3)*(ffmcfmb*fmb*hbcm+
2000      . ffmcfmb*fmc*hbcm-fmb*fmc-fmc2)+16*(p3p7*p3p6*p1p3)*(ffmcfmb**2
2001      . -ffmcfmb)+16*(p4p6*p3p7)*(-ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm+
2002      . ffmcfmb*hbcm2)+16*(p5p7*p3p6)*(-ffmcfmb**2*hbcm2+ffmcfmb*fmc*
2003      . hbcm+ffmcfmb*hbcm2-fmc*hbcm)+16*(p3p7*p3p6)*(-ffmcfmb**2*hbcm2
2004      . +ffmcfmb*hbcm2)+8*p6p7*(ffmcfmb**2*fmb*hbcm3+ffmcfmb**2*fmc*
2005      . hbcm3-ffmcfmb*fmb*hbcm3+ffmcfmb*fmb2*hbcm2-ffmcfmb*fmc*hbcm3-
2006      . ffmcfmb*fmc2*hbcm2+fmb*fmc*hbcm2-fmb*fmc2*hbcm-fmb2*fmc*hbcm+
2007      . fmc2*hbcm2)+16*(-ffmcfmb*p1p3*p3p7*p4p6-p1p2*p1p3*p6p7+p1p3*
2008      . p2p3*p6p7+2*p1p3*p2p4*p6p7))+((p4p6*p3p7)*(32*fb2*ffmcfmb+8)+(
2009      . p3p7*p3p6)*(-32*fb2*ffmcfmb**2+32*fb2*ffmcfmb-16*ffmcfmb+8)+4*
2010      . p6p7*(4*fb1*ffmcfmb*fmb*hbcm+4*fb1*ffmcfmb*fmc*hbcm+4*fb2*fmb*
2011      . fmc+4*fb2*fmc2-fmb*hbcm-fmc*hbcm)+32*(fb2*p1p2*p6p7-fb2*p2p3*
2012      . p6p7-2*fb2*p2p4*p6p7))
2013       ans2=w11*(16*(p5p7*p4p6)*(ffmcfmb*hbcm2-fmc*hbcm)+32*(p4p7*p4p6
2014      . )*(ffmcfmb*hbcm2-fmc*hbcm)+16*(p4p7*p3p6)*(ffmcfmb*hbcm2-fmc*
2015      . hbcm)+16*(p6p7*p2p4)*(3*ffmcfmb*hbcm2-fmb*hbcm-fmc*hbcm)+16*(
2016      . p6p7*p1p4)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p6p7*p3p4)*(ffmcfmb*fmb
2017      . *hbcm+ffmcfmb*fmc*hbcm-2*ffmcfmb*hbcm2-fmb*fmc+2*fmc*hbcm-fmc2
2018      . )+8*(p6p7*p2p3)*(-ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm+2*ffmcfmb*
2019      . hbcm2+fmb*fmc+fmc2)+16*(p3p7*p3p6*p3p4)*(ffmcfmb**2-ffmcfmb)+
2020      . 16*(p3p7*p3p6*p2p3)*(-ffmcfmb**2+ffmcfmb)+16*(p4p6*p3p7)*(-
2021      . ffmcfmb**2*hbcm2-ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-fmc*hbcm)+8*
2022      . p6p7*(ffmcfmb**2*fmc*hbcm3-ffmcfmb*fmb*fmc*hbcm2-3*ffmcfmb*
2023      . fmc2*hbcm2+fmb*fmc2*hbcm+2*fmc3*hbcm-2*p2p3s2)+16*(-ffmcfmb*
2024      . fmc*hbcm*p3p6*p3p7-ffmcfmb*hbcm2*p1p2*p6p7+ffmcfmb*p2p3*p3p7*
2025      . p4p6-ffmcfmb*p3p4*p3p7*p4p6+p1p2*p2p3*p6p7-p1p2*p3p4*p6p7-2*
2026      . p2p3*p2p4*p6p7+p2p3*p3p4*p6p7+2*p2p4*p3p4*p6p7))+ans3
2027       ans1=w7*(32*(p6p7*p2p4)*(ffmcfmb*hbcm2-fmc*hbcm)+16*(p6p7*p1p2)
2028      . *(-ffmcfmb*hbcm2+fmc*hbcm)+8*(p6p7*p2p3)*(-ffmcfmb*fmb*hbcm-
2029      . ffmcfmb*fmc*hbcm+2*ffmcfmb*hbcm2+fmb*fmc-2*fmc*hbcm+fmc2)+16*(
2030      . p3p7*p3p6*p2p3)*(-ffmcfmb**2+ffmcfmb)+16*(ffmcfmb*p2p3*p3p7*
2031      . p4p6+p1p2*p2p3*p6p7-2*p2p3*p2p4*p6p7-p2p3s2*p6p7))+ans2
2032       ans=ccc*ans1
2033       b(4)=ans
2034       ans4=16*(ffmcfmb*fmc*hbcm*p1p3*p3p7-2*ffmcfmb*fmc*hbcm*p3p5*
2035      . p3p7+ffmcfmb*p2p3*p3p4*p3p7+ffmcfmb*p2p3*p3p5*p3p7-ffmcfmb*
2036      . p3p4*p3p5*p3p7+fmc*hbcm*p1p4*p3p7+hbcm2*p1p2*p4p7+2*hbcm2*p2p4
2037      . *p5p7-2*hbcm2*p2p5*p4p7+p1p2*p2p3*p3p7-p1p2*p3p4*p3p7-2*p2p3*
2038      . p2p5*p3p7-2*p2p3*p3p4*p5p7+2*p2p5*p3p4*p3p7)
2039       ans3=32*(p4p7*p3p5)*(ffmcfmb*hbcm2-fmc*hbcm)+24*(p5p7*p3p4)*(-
2040      . ffmcfmb*hbcm2+fmc*hbcm)+16*(p3p7*p2p5)*(ffmcfmb*hbcm2+fmc*hbcm
2041      . )+16*(p3p7*p2p4)*(-ffmcfmb*hbcm2+fmb*hbcm+2*fmc*hbcm+hbcm2)+24
2042      . *(p5p7*p2p3)*(-ffmcfmb*hbcm2-fmc*hbcm)+16*(p4p7*p2p3)*(-
2043      . ffmcfmb*hbcm2-fmb*hbcm-hbcm2)+16*(p4p7*p1p3)*(-ffmcfmb*hbcm2+
2044      . fmc*hbcm)+16*(p3p7*p1p2)*(-ffmcfmb*hbcm2-fmc*hbcm)+16*p5p7*(
2045      . ffmcfmb*fmc*hbcm3-fmc2*hbcm2+2*p2p3s2)+8*p4p7*(ffmcfmb*fmb*
2046      . hbcm3+ffmcfmb*fmc*hbcm3+2*ffmcfmb*hbcm4-fmb*fmc*hbcm2-2*fmc*
2047      . hbcm3-fmc2*hbcm2)+8*(p3p7*p3p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*
2048      . fmb*hbcm-3*ffmcfmb*fmc*hbcm-2*ffmcfmb*hbcm2+fmb*fmc+fmc2)+8*(
2049      . p3p7*p2p3)*(ffmcfmb**2*hbcm2+3*ffmcfmb*fmc*hbcm-fmb*fmc-fmc2)+
2050      . 8*p3p7*(-ffmcfmb**2*fmc*hbcm3-ffmcfmb*fmc*hbcm3+2*ffmcfmb*fmc2
2051      . *hbcm2-2*ffmcfmb*p2p3s2-fmb*fmc2*hbcm-fmc2*hbcm2-2*fmc3*hbcm)+
2052      . ans4
2053       ans2=w11*ans3
2054       ans6=((p3p7*p3p5)*(32*fb2*ffmcfmb+8)+(p3p7*p2p3)*(-32*fb2*
2055      . ffmcfmb-8)+4*p5p7*(-4*fb1*fmc*hbcm-4*fb2*ffmcfmb*hbcm2+hbcm2)+
2056      . 4*p3p7*(-4*fb1*ffmcfmb*fmc*hbcm+4*fb2*ffmcfmb**2*hbcm2-4*fb2*
2057      . fmb*fmc-4*fb2*fmc2+2*fmb*hbcm+fmc*hbcm)+32*(fb2*p1p2*p3p7+2*
2058      . fb2*p2p3*p5p7-2*fb2*p2p5*p3p7))
2059       ans5=w13*(32*(p3p7*p2p5)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+32*(
2060      . p5p7*p2p3)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(p5p7*p1p3)*(
2061      . ffmcfmb*hbcm2-fmc*hbcm)+16*(p3p7*p1p2)*(-ffmcfmb*hbcm2-fmb*
2062      . hbcm+hbcm2)+8*p5p7*(ffmcfmb**2*hbcm4+ffmcfmb*fmb*hbcm3-ffmcfmb
2063      . *fmc*hbcm3-ffmcfmb*hbcm4-fmb*fmc*hbcm2+fmc*hbcm3)+16*(p3p7*
2064      . p3p5)*(-ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm+ffmcfmb*hbcm2)+16*(
2065      . p3p7*p2p3)*(ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm-ffmcfmb*hbcm2)+8
2066      . *(p3p7*p1p3)*(ffmcfmb**2*hbcm2-ffmcfmb*fmc*hbcm-2*ffmcfmb*
2067      . hbcm2+fmb*fmc+fmc2)+8*p3p7*(-ffmcfmb**2*fmb*hbcm3-ffmcfmb**2*
2068      . fmc*hbcm3-ffmcfmb**2*hbcm4-ffmcfmb*fmb2*hbcm2+ffmcfmb*fmc*
2069      . hbcm3+ffmcfmb*fmc2*hbcm2+ffmcfmb*hbcm4-fmb*fmc*hbcm2+fmb*fmc2*
2070      . hbcm+fmb2*fmc*hbcm-fmc2*hbcm2)+16*(ffmcfmb*p1p3*p2p3*p3p7-
2071      . ffmcfmb*p1p3*p3p5*p3p7-p1p2*p1p3*p3p7-2*p1p3*p2p3*p5p7+2*p1p3*
2072      . p2p5*p3p7))+ans6
2073       ans1=w7*(16*(p3p7*p2p5)*(ffmcfmb*hbcm2-2*fmc*hbcm)+24*(p5p7*
2074      . p2p3)*(-ffmcfmb*hbcm2+fmc*hbcm)+16*(p3p7*p1p2)*(-ffmcfmb*hbcm2
2075      . +fmc*hbcm)+8*(p3p7*p2p3)*(ffmcfmb**2*hbcm2-ffmcfmb*fmc*hbcm-
2076      . fmb*fmc-fmc2)+16*(ffmcfmb*p2p3*p3p5*p3p7-ffmcfmb*p2p3s2*p3p7+
2077      . p1p2*p2p3*p3p7-2*p2p3*p2p5*p3p7+2*p2p3s2*p5p7))+ans2+ans5
2078       ans=ccc*ans1
2079       b(5)=ans
2080       ans4=(4*p4p6*(-4*fb1*fmc*hbcm-4*fb2*ffmcfmb*hbcm2+hbcm2)+4*p3p6
2081      . *(-4*fb1*ffmcfmb*fmb*hbcm-4*fb1*fmc*hbcm+4*fb2*ffmcfmb**2*
2082      . hbcm2-4*fb2*ffmcfmb*hbcm2-4*fb2*fmb*fmc-4*fb2*fmc2+fmb*hbcm+
2083      . hbcm2)+32*(fb2*p1p2*p3p6+2*fb2*p2p3*p4p6-2*fb2*p2p5*p3p6))
2084       ans3=w13*(16*(p3p6*p2p5)*(ffmcfmb*hbcm2+2*fmb*hbcm-hbcm2)+32*(
2085      . p4p6*p2p3)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(p4p6*p1p3)*(
2086      . ffmcfmb*hbcm2-fmc*hbcm)+16*(p3p6*p1p2)*(-ffmcfmb*hbcm2-fmb*
2087      . hbcm+hbcm2)+8*p4p6*(ffmcfmb**2*hbcm4+ffmcfmb*fmb*hbcm3-ffmcfmb
2088      . *fmc*hbcm3-ffmcfmb*hbcm4-fmb*fmc*hbcm2+fmc*hbcm3)+16*(p3p6*
2089      . p3p5)*(ffmcfmb**2*hbcm2-ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2+fmc*
2090      . hbcm)+16*(p3p6*p2p3)*(-ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm+
2091      . ffmcfmb*hbcm2+fmb*hbcm)+8*(p3p6*p1p3)*(-ffmcfmb**2*hbcm2-
2092      . ffmcfmb*fmb*hbcm+ffmcfmb*hbcm2+fmb*fmc-fmc*hbcm+fmc2)+8*p3p6*(
2093      . -ffmcfmb**2*fmb*hbcm3-ffmcfmb**2*fmc*hbcm3+ffmcfmb**2*hbcm4+
2094      . ffmcfmb*fmb*hbcm3-ffmcfmb*fmb2*hbcm2+ffmcfmb*fmc2*hbcm2-
2095      . ffmcfmb*hbcm4-fmb*fmc*hbcm2+fmb*fmc2*hbcm+fmb2*fmc*hbcm+fmc*
2096      . hbcm3-fmc2*hbcm2)+16*(-p1p2*p1p3*p3p6-2*p1p3*p2p3*p4p6+2*p1p3*
2097      . p2p5*p3p6))+ans4
2098       ans2=w11*(16*(p4p6*p3p5)*(-ffmcfmb*hbcm2+fmc*hbcm)+24*(p4p6*
2099      . p3p4)*(-ffmcfmb*hbcm2+fmc*hbcm)+16*(p3p6*p2p5)*(2*ffmcfmb*
2100      . hbcm2+fmc*hbcm)+16*(p3p6*p2p4)*(-ffmcfmb*hbcm2+fmb*hbcm+2*fmc*
2101      . hbcm+hbcm2)+8*(p4p6*p2p3)*(-3*ffmcfmb*hbcm2-3*fmc*hbcm+2*hbcm2
2102      . )+16*(p3p6*p1p4)*(-ffmcfmb*hbcm2+fmc*hbcm)+16*(p4p6*p1p3)*(
2103      . ffmcfmb*hbcm2-fmc*hbcm)+16*(p3p6*p1p2)*(-ffmcfmb*hbcm2-fmc*
2104      . hbcm)+8*p4p6*(ffmcfmb**2*hbcm4-2*ffmcfmb*hbcm4+2*fmc*hbcm3-
2105      . fmc2*hbcm2+4*p2p3s2)+8*(p3p6*p3p4)*(-ffmcfmb**2*hbcm2-ffmcfmb*
2106      . fmb*hbcm+ffmcfmb*hbcm2+fmb*fmc-fmc*hbcm+fmc2)+8*(p3p6*p2p3)*(-
2107      . ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm+ffmcfmb*hbcm2-fmb*fmc+fmc*
2108      . hbcm-fmc2)+8*p3p6*(-ffmcfmb**2*fmc*hbcm3+ffmcfmb*fmb*fmc*hbcm2
2109      . +ffmcfmb*fmc*hbcm3+3*ffmcfmb*fmc2*hbcm2-fmb*fmc2*hbcm-fmc2*
2110      . hbcm2-2*fmc3*hbcm)+16*(-hbcm2*p1p2*p4p6+2*hbcm2*p2p4*p4p6+
2111      . hbcm2*p2p5*p4p6+p1p2*p2p3*p3p6-p1p2*p3p4*p3p6-2*p2p3*p2p5*p3p6
2112      . -2*p2p3*p3p4*p4p6+2*p2p5*p3p4*p3p6))+ans3
2113       ans1=w7*(32*(p3p6*p2p5)*(ffmcfmb*hbcm2-fmc*hbcm)+24*(p4p6*p2p3)
2114      . *(-ffmcfmb*hbcm2+fmc*hbcm)+16*(p3p6*p1p2)*(-ffmcfmb*hbcm2+fmc*
2115      . hbcm)+8*(p3p6*p2p3)*(-ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm+2*
2116      . ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-fmb*fmc-fmc*hbcm-fmc2)+16*(p1p2
2117      . *p2p3*p3p6-2*p2p3*p2p5*p3p6+2*p2p3s2*p4p6))+ans2
2118       ans=ccc*ans1
2119       b(6)=ans
2120       ans2=w13*(24*p2p5*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*p2p3*(-
2121      . ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*p1p2*(ffmcfmb*hbcm2+fmb*hbcm-
2122      . hbcm2)+4*p1p3*(-ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm+3*ffmcfmb*
2123      . fmc*hbcm+2*ffmcfmb*hbcm2-fmb*fmc-2*fmc*hbcm-2*fmc2)+4*(2*
2124      . ffmcfmb**2*fmb*hbcm3+2*ffmcfmb**2*fmc*hbcm3+ffmcfmb**2*hbcm4-
2125      . ffmcfmb*fmb*hbcm3+2*ffmcfmb*fmb2*hbcm2-3*ffmcfmb*fmc*hbcm3-2*
2126      . ffmcfmb*fmc2*hbcm2-ffmcfmb*hbcm4+fmb*fmc*hbcm2-2*fmb*fmc2*hbcm
2127      . -2*fmb2*fmc*hbcm+fmc*hbcm3+2*fmc2*hbcm2+4*p1p2*p1p3-4*p1p3*
2128      . p2p3-6*p1p3*p2p5))+2*(4*fb1*ffmcfmb*fmb*hbcm+4*fb1*ffmcfmb*fmc
2129      . *hbcm-4*fb2*ffmcfmb**2*hbcm2+4*fb2*fmb*fmc+8*fb2*fmc2-16*fb2*
2130      . p1p2+16*fb2*p2p3+24*fb2*p2p5+2*ffmcfmb*hbcm2-fmb*hbcm-3*fmc*
2131      . hbcm)
2132       ans1=w7*(24*p2p5*(-ffmcfmb*hbcm2+fmc*hbcm)+16*p1p2*(ffmcfmb*
2133      . hbcm2-fmc*hbcm)+4*p2p3*(ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm-3*
2134      . ffmcfmb*fmc*hbcm-4*ffmcfmb*hbcm2+fmb*fmc+4*fmc*hbcm+2*fmc2)+8*
2135      . (-2*p1p2*p2p3+3*p2p3*p2p5+2*p2p3s2))+w11*(8*p2p5*(-3*ffmcfmb*
2136      . hbcm2-fmc*hbcm)+8*p2p4*(2*ffmcfmb*hbcm2-fmb*hbcm-3*fmc*hbcm)+8
2137      . *p1p4*(ffmcfmb*hbcm2-fmc*hbcm)+8*p1p2*(2*ffmcfmb*hbcm2+fmc*
2138      . hbcm)+4*p3p4*(-ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm+3*ffmcfmb*fmc
2139      . *hbcm-2*ffmcfmb*hbcm2-fmb*fmc+2*fmc*hbcm-2*fmc2)+4*p2p3*(
2140      . ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm-3*ffmcfmb*fmc*hbcm-4*ffmcfmb
2141      . *hbcm2+fmb*fmc-2*fmc*hbcm+2*fmc2)+4*(2*ffmcfmb**2*fmc*hbcm3-
2142      . ffmcfmb*fmb*fmc*hbcm2-5*ffmcfmb*fmc2*hbcm2+fmb*fmc2*hbcm+3*
2143      . fmc3*hbcm-4*p1p2*p2p3+4*p1p2*p3p4+6*p2p3*p2p5-4*p2p3*p3p4+4*
2144      . p2p3s2-6*p2p5*p3p4))+ans2
2145       ans=ccc*ans1
2146       b(7)=ans
2147       ans4=(8*p3p5*(-4*fb1*ffmcfmb*hbcm-4*fb2*fmc+hbcm)+4*p2p3*(4*fb1
2148      . *ffmcfmb*hbcm+4*fb1*hbcm+4*fb2*fmb-3*hbcm)+4*p1p3*(4*fb1*
2149      . ffmcfmb*hbcm+4*fb2*fmc-hbcm)+2*(-8*fb1*ffmcfmb*hbcm3-4*fb1*fmb
2150      . *fmc*hbcm+4*fb1*fmc2*hbcm-8*fb1*hbcm*p1p2+16*fb1*hbcm*p2p5-4*
2151      . fb2*ffmcfmb*fmb*hbcm2+4*fb2*ffmcfmb*fmc*hbcm2-8*fb2*fmc*hbcm2+
2152      . fmb*hbcm2-fmc*hbcm2+2*hbcm3))
2153       ans3=w13*(16*p2p5*(ffmcfmb*hbcm3+fmb*hbcm2-hbcm3)+8*p1p2*(-
2154      . ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+16*(p3p5*p1p3)*(-ffmcfmb*hbcm+
2155      . fmc)+8*(p2p3*p1p3)*(3*ffmcfmb*hbcm-fmb-hbcm)+16*p3p5*(-ffmcfmb
2156      . **2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3+
2157      . fmb*fmc*hbcm-fmc*hbcm2)+16*p2p3*(ffmcfmb**2*hbcm3-ffmcfmb*
2158      . hbcm3+fmb*hbcm2-fmb2*hbcm)+4*p1p3*(2*ffmcfmb**2*hbcm3+3*
2159      . ffmcfmb*fmb*hbcm2-3*ffmcfmb*fmc*hbcm2-4*ffmcfmb*hbcm3-3*fmb*
2160      . fmc*hbcm+4*fmc*hbcm2+fmc2*hbcm)+4*(ffmcfmb**2*fmb*hbcm4-
2161      . ffmcfmb**2*fmc*hbcm4-2*ffmcfmb**2*hbcm5-2*ffmcfmb*fmb*fmc*
2162      . hbcm3-3*ffmcfmb*fmb*hbcm4+ffmcfmb*fmb2*hbcm3+3*ffmcfmb*fmc*
2163      . hbcm4+ffmcfmb*fmc2*hbcm3+2*ffmcfmb*hbcm*p1p3s2+2*ffmcfmb*hbcm5
2164      . +3*fmb*fmc*hbcm3+fmb*fmc2*hbcm2-fmb2*fmc*hbcm2-2*fmc*hbcm4-2*
2165      . fmc*p1p3s2-fmc2*hbcm3-2*hbcm*p1p2*p1p3+4*hbcm*p1p3*p2p5))+ans4
2166       ans2=w11*(8*p2p5*(-2*ffmcfmb*hbcm3-fmc*hbcm2)+8*p2p4*(-ffmcfmb*
2167      . hbcm3+fmb*hbcm2-2*fmc*hbcm2+4*hbcm3)+8*p1p4*(ffmcfmb*hbcm3-fmc
2168      . *hbcm2)+8*p1p2*(ffmcfmb*hbcm3+fmc*hbcm2)+16*(p3p5*p3p4)*(-
2169      . ffmcfmb*hbcm+fmc)+16*(p3p5*p2p3)*(ffmcfmb*hbcm-fmc)+8*(p3p4*
2170      . p2p3)*(3*ffmcfmb*hbcm-fmb-hbcm)+8*(p3p4*p1p3)*(ffmcfmb*hbcm-
2171      . fmc)+8*(p2p3*p1p3)*(-ffmcfmb*hbcm+fmc)+24*p3p5*(ffmcfmb*fmc*
2172      . hbcm2-fmc2*hbcm)+16*p1p3*(-ffmcfmb*fmc*hbcm2+fmc2*hbcm)+4*p3p4
2173      . *(2*ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2-4*
2174      . ffmcfmb*hbcm3+fmb*fmc*hbcm+4*fmc*hbcm2-3*fmc2*hbcm)+4*p2p3*(2*
2175      . ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-fmb*fmc*
2176      . hbcm-4*fmc*hbcm2+9*fmc2*hbcm)+4*(-ffmcfmb**2*fmc*hbcm4+ffmcfmb
2177      . *fmb*fmc*hbcm3+4*ffmcfmb*fmc*hbcm4-ffmcfmb*fmc2*hbcm3-6*
2178      . ffmcfmb*hbcm*p2p3s2-fmb*fmc2*hbcm2+2*fmb*p2p3s2-4*fmc2*hbcm3+2
2179      . *fmc3*hbcm2-2*hbcm*p1p2*p2p3+6*hbcm*p1p2*p3p4-8*hbcm*p1p3*p2p4
2180      . -4*hbcm*p1p4*p2p3-12*hbcm*p2p3*p2p4+4*hbcm*p2p3*p2p5+2*hbcm*
2181      . p2p3s2+12*hbcm*p2p4*p3p5-8*hbcm*p2p5*p3p4))+ans3
2182       ans1=w7*(16*p2p5*(-ffmcfmb*hbcm3+fmc*hbcm2)+8*p1p2*(ffmcfmb*
2183      . hbcm3-fmc*hbcm2)+16*(p3p5*p2p3)*(ffmcfmb*hbcm-fmc)+8*(p2p3*
2184      . p1p3)*(-ffmcfmb*hbcm+fmc)+4*p2p3*(2*ffmcfmb**2*hbcm3-ffmcfmb*
2185      . fmb*hbcm2+ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm-3*fmc2*hbcm)+8*(-3*
2186      . ffmcfmb*hbcm*p2p3s2+fmb*p2p3s2-hbcm*p1p2*p2p3+2*hbcm*p2p3*p2p5
2187      . +hbcm*p2p3s2))+ans2
2188       ans=ccc*ans1
2189       b(8)=ans
2190       ans=ccc*(w7*(16*p4p6*(-ffmcfmb*hbcm3+fmc*hbcm2)+8*(p3p6*p2p3)*(
2191      . -2*ffmcfmb*hbcm+fmb-fmc+hbcm)+8*p3p6*(ffmcfmb**2*hbcm3-ffmcfmb
2192      . *fmb*hbcm2+ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3+fmb*fmc*hbcm+fmc*
2193      . hbcm2-2*fmc2*hbcm)+16*hbcm*p2p3*p4p6)+w13*(8*(p3p6*p1p3)*(-fmb
2194      . +fmc+hbcm)+16*p4p6*(ffmcfmb*hbcm3+fmb*hbcm2-hbcm3)+32*(p3p6*
2195      . p3p5)*(ffmcfmb*hbcm-hbcm)+16*(p3p6*p2p3)*(-ffmcfmb*hbcm+hbcm)+
2196      . 8*p3p6*(ffmcfmb**2*hbcm3+ffmcfmb*hbcm3+fmb*fmc*hbcm+fmb*hbcm2-
2197      . 2*fmb2*hbcm-2*hbcm3)+16*hbcm*p1p3*p4p6)+w11*(8*p4p6*(-fmc*
2198      . hbcm2-2*hbcm3)+8*(p3p6*p3p4)*(-fmb+fmc+hbcm)+8*(p3p6*p2p3)*(-2
2199      . *ffmcfmb*hbcm+fmb-fmc+hbcm)+8*p3p6*(ffmcfmb**2*hbcm3-ffmcfmb*
2200      . fmb*hbcm2-ffmcfmb*hbcm3+3*fmc2*hbcm)+16*(hbcm*p1p3*p4p6-hbcm*
2201      . p1p4*p3p6+hbcm*p2p3*p4p6-2*hbcm*p2p4*p3p6-2*hbcm*p3p4*p4p6-
2202      . hbcm*p3p5*p4p6))+(8*p3p6*(2*fb1*hbcm+2*fb2*fmb-2*fb2*fmc-hbcm)
2203      . +32*fb1*hbcm*p4p6))
2204       b(9)=ans
2205       b(10)=ccc*(w7*((p3p6*p2p3)*(-8*ffmcfmb-8)+24*p4p6*(ffmcfmb*
2206      . hbcm2-fmc*hbcm)+8*p3p6*(ffmcfmb**2*hbcm2-ffmcfmb*fmc*hbcm+
2207      . ffmcfmb*hbcm2-fmc*hbcm)-24*p2p3*p4p6)+w13*((p3p6*p1p3)*(8*
2208      . ffmcfmb+8)+24*p4p6*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*p3p6*(
2209      . ffmcfmb**2*hbcm2+2*ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm-fmc*hbcm-
2210      . hbcm2)+24*p1p3*p4p6)+w11*((p3p6*p3p4)*(8*ffmcfmb+8)+(p3p6*p2p3
2211      . )*(-8*ffmcfmb-8)+8*p4p6*(3*ffmcfmb*hbcm2+fmc*hbcm)+8*p3p6*(
2212      . ffmcfmb**2*hbcm2+ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2)+24*(-p2p3*
2213      . p4p6+p3p4*p4p6))+(p3p6*(-16*fb2*ffmcfmb-16*fb2-4)-48*fb2*p4p6)
2214      . )
2215       ans2=4*(-2*fb1*fmb*hbcm-2*fb1*fmc*hbcm+4*fb2*ffmcfmb*hbcm2-8*
2216      . fb2*hbcm2+8*fb2*p1p3+4*fb2*p2p3-12*fb2*p3p5-hbcm2)
2217       ans1=w7*(24*p3p5*(ffmcfmb*hbcm2-fmc*hbcm)+4*p2p3*(-2*ffmcfmb*
2218      . hbcm2-fmb*hbcm+fmc*hbcm-4*hbcm2)+16*p1p3*(-ffmcfmb*hbcm2+fmc*
2219      . hbcm)+4*(-ffmcfmb**2*hbcm4+ffmcfmb*fmb*hbcm3+3*ffmcfmb*fmc*
2220      . hbcm3+4*ffmcfmb*hbcm4-fmb*fmc*hbcm2-4*fmc*hbcm3-2*fmc2*hbcm2+4
2221      . *p1p3*p2p3-6*p2p3*p3p5+2*p2p3s2))+w13*(24*p3p5*(ffmcfmb*hbcm2+
2222      . fmb*hbcm-hbcm2)+8*p2p3*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+4*p1p3*
2223      . (-4*ffmcfmb*hbcm2-5*fmb*hbcm-fmc*hbcm+6*hbcm2)+4*(-ffmcfmb**2*
2224      . hbcm4-3*ffmcfmb*fmb*hbcm3-ffmcfmb*fmc*hbcm3+4*ffmcfmb*hbcm4-
2225      . fmb*fmc*hbcm2+5*fmb*hbcm3-2*fmb2*hbcm2+fmc*hbcm3-3*hbcm4-2*
2226      . p1p3*p2p3+6*p1p3*p3p5-4*p1p3s2))+w11*(4*p3p4*(fmb*hbcm+fmc*
2227      . hbcm+6*hbcm2)+8*p3p5*(3*ffmcfmb*hbcm2+fmc*hbcm)+4*p2p3*(-2*
2228      . ffmcfmb*hbcm2-fmb*hbcm-fmc*hbcm-4*hbcm2)+8*p1p3*(-2*ffmcfmb*
2229      . hbcm2-fmc*hbcm)+4*(-ffmcfmb**2*hbcm4+ffmcfmb*fmb*hbcm3-ffmcfmb
2230      . *fmc*hbcm3+4*ffmcfmb*hbcm4+2*fmc*hbcm3+3*fmc2*hbcm2-2*hbcm2*
2231      . p1p4-4*hbcm2*p2p4+4*p1p3*p2p3-4*p1p3*p3p4-2*p2p3*p3p4-6*p2p3*
2232      . p3p5+2*p2p3s2+6*p3p4*p3p5))+ans2
2233       ans=ccc*ans1
2234       b(11)=ans
2235       ans=ccc*(w7*(16*p5p7*(ffmcfmb*hbcm3-fmc*hbcm2)+8*(p3p7*p2p3)*(4
2236      . *ffmcfmb*hbcm-fmb+fmc-hbcm)+8*p3p7*(-ffmcfmb**2*hbcm3-ffmcfmb*
2237      . hbcm3-fmb*fmc*hbcm-fmc*hbcm2+2*fmc2*hbcm)+16*(ffmcfmb*hbcm*
2238      . p1p3*p3p7-2*ffmcfmb*hbcm*p3p5*p3p7-hbcm*p2p3*p5p7))+w13*(16*
2239      . p5p7*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+8*(p3p7*p1p3)*(-2*
2240      . ffmcfmb*hbcm+fmb-fmc+hbcm)+8*p3p7*(-ffmcfmb**2*hbcm3+ffmcfmb*
2241      . fmb*hbcm2-ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3-fmb*fmc*hbcm-2*fmb*
2242      . hbcm2+2*fmb2*hbcm+fmc*hbcm2)-16*hbcm*p1p3*p5p7)+w11*(8*p5p7*(2
2243      . *ffmcfmb*hbcm3+fmc*hbcm2)+8*p4p7*(2*ffmcfmb*hbcm3-fmb*hbcm2+
2244      . fmc*hbcm2-4*hbcm3)+8*(p3p7*p3p4)*(-4*ffmcfmb*hbcm+fmb-fmc+hbcm
2245      . )+8*(p3p7*p2p3)*(4*ffmcfmb*hbcm-fmb+fmc-hbcm)+8*p3p7*(-ffmcfmb
2246      . **2*hbcm3-ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3+fmc*hbcm2-3*fmc2*
2247      . hbcm)+16*(ffmcfmb*hbcm*p1p3*p3p7-2*ffmcfmb*hbcm*p3p5*p3p7+2*
2248      . hbcm*p1p3*p4p7+hbcm*p1p4*p3p7+hbcm*p2p3*p4p7-hbcm*p2p3*p5p7+2*
2249      . hbcm*p2p4*p3p7+2*hbcm*p3p4*p5p7-3*hbcm*p3p5*p4p7))+(8*p3p7*(-2
2250      . *fb1*hbcm-2*fb2*fmb+2*fb2*fmc+hbcm)-32*fb1*hbcm*p5p7))
2251       b(12)=ans
2252       b(13)=ccc*(w7*(4*p2p3*(4*ffmcfmb*hbcm-fmb+fmc)+4*(-2*ffmcfmb**2
2253      . *hbcm3+ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm+3*fmc2
2254      . *hbcm))+w13*(4*p1p3*(-4*ffmcfmb*hbcm+fmb-fmc+4*hbcm)+4*(-2*
2255      . ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2+4*ffmcfmb
2256      . *hbcm3-fmb*fmc*hbcm-fmb*hbcm2+3*fmb2*hbcm+fmc*hbcm2-2*hbcm3))+
2257      . w11*(4*p3p4*(-4*ffmcfmb*hbcm+fmb-fmc-2*hbcm)+4*p2p3*(4*ffmcfmb
2258      . *hbcm-fmb+fmc)+4*(-2*ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2-
2259      . ffmcfmb*fmc*hbcm2-4*fmc2*hbcm+2*hbcm*p1p4+6*hbcm*p2p4))+8*(-
2260      . fb2*fmb+fb2*fmc+hbcm))
2261       b(14)=ccc*(w7*((p3p7*p2p3)*(8*ffmcfmb-16)+24*p5p7*(ffmcfmb*
2262      . hbcm2-fmc*hbcm)+8*p3p7*(-ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm+2*
2263      . ffmcfmb*fmc*hbcm+2*ffmcfmb*hbcm2-2*fmc*hbcm)-24*p2p3*p5p7)+w13
2264      . *((p3p7*p1p3)*(-8*ffmcfmb+16)+24*p5p7*(ffmcfmb*hbcm2+fmb*hbcm-
2265      . hbcm2)+8*p3p7*(-ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm+3*ffmcfmb*
2266      . hbcm2+2*fmb*hbcm-2*hbcm2)+24*p1p3*p5p7)+w11*(8*p4p7*(fmb*hbcm+
2267      . fmc*hbcm)+(p3p7*p3p4)*(-8*ffmcfmb+16)+(p3p7*p2p3)*(8*ffmcfmb-
2268      . 16)+8*p5p7*(3*ffmcfmb*hbcm2+fmc*hbcm)+8*p3p7*(-ffmcfmb**2*
2269      . hbcm2+ffmcfmb*fmb*hbcm+2*ffmcfmb*hbcm2+fmc*hbcm)+24*(-p2p3*
2270      . p5p7+p3p4*p5p7))+(p3p7*(16*fb2*ffmcfmb-32*fb2+4)-48*fb2*p5p7))
2271       ans3=w11*(16*(p4p7*p3p6)*(-fmb*hbcm-fmc*hbcm-hbcm2)+16*(p4p6*
2272      . p3p7)*(2*ffmcfmb*hbcm2+fmc*hbcm-hbcm2)+16*(p5p7*p3p6)*(-2*
2273      . ffmcfmb*hbcm2-fmc*hbcm)+8*(p6p7*p3p4)*(-4*ffmcfmb*hbcm2+fmb*
2274      . hbcm-fmc*hbcm)+8*(p6p7*p2p3)*(2*ffmcfmb*hbcm2-fmb*hbcm+fmc*
2275      . hbcm+2*hbcm2)+8*p6p7*(ffmcfmb*fmb*hbcm3-ffmcfmb*fmc*hbcm3-2*
2276      . ffmcfmb*hbcm4+2*fmc2*hbcm2-2*p2p3s2-4*p3p4s2)+16*(p3p7*p3p6)*(
2277      . ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm-ffmcfmb*
2278      . hbcm2-fmc*hbcm)+16*(ffmcfmb*hbcm2*p1p3*p6p7-hbcm2*p1p4*p6p7-
2279      . hbcm2*p2p4*p6p7-2*hbcm2*p4p6*p4p7-hbcm2*p4p6*p5p7-p1p3*p2p3*
2280      . p6p7+p1p3*p3p4*p6p7+3*p2p3*p3p4*p6p7+2*p2p3*p3p6*p5p7-2*p2p3*
2281      . p3p7*p4p6-2*p3p4*p3p6*p5p7+2*p3p4*p3p7*p4p6))+(16*p6p7*(-fb1*
2282      . fmb*hbcm-fb1*fmc*hbcm+2*fb2*hbcm2)+32*(-fb2*p1p3*p6p7-fb2*p2p3
2283      . *p6p7+2*fb2*p3p4*p6p7+2*fb2*p3p6*p5p7-2*fb2*p3p7*p4p6))
2284       ans2=w13*(32*(p4p6*p3p7)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(
2285      . p5p7*p3p6)*(-ffmcfmb*hbcm2-2*fmb*hbcm+hbcm2)+32*(p6p7*p3p4)*(-
2286      . ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(p6p7*p2p3)*(ffmcfmb*hbcm2+
2287      . fmb*hbcm-hbcm2)+8*(p6p7*p1p3)*(2*ffmcfmb*hbcm2+fmb*hbcm-fmc*
2288      . hbcm-4*hbcm2)+8*p6p7*(-ffmcfmb*fmb*hbcm3-ffmcfmb*fmc*hbcm3-2*
2289      . ffmcfmb*hbcm4-fmb*fmc*hbcm2-fmb*hbcm3-fmb2*hbcm2+fmc*hbcm3+2*
2290      . hbcm4+2*p1p3s2)+16*(p3p7*p3p6)*(ffmcfmb**2*hbcm2+ffmcfmb*fmb*
2291      . hbcm+ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2-fmb*hbcm-fmc*hbcm)+16*(
2292      . p1p3*p2p3*p6p7-2*p1p3*p3p4*p6p7-2*p1p3*p3p6*p5p7+2*p1p3*p3p7*
2293      . p4p6))+ans3
2294       ans1=w7*(16*(p4p6*p3p7)*(ffmcfmb*hbcm2-2*fmc*hbcm)+32*(p5p7*
2295      . p3p6)*(-ffmcfmb*hbcm2+fmc*hbcm)+32*(p6p7*p3p4)*(-ffmcfmb*hbcm2
2296      . +fmc*hbcm)+8*(p6p7*p2p3)*(2*ffmcfmb*hbcm2-fmb*hbcm-3*fmc*hbcm+
2297      . 2*hbcm2)+16*(p6p7*p1p3)*(ffmcfmb*hbcm2-fmc*hbcm)+8*p6p7*(
2298      . ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*hbcm3-2*ffmcfmb*hbcm4-fmb*fmc*
2299      . hbcm2+2*fmc*hbcm3-fmc2*hbcm2-2*p2p3s2)+16*(p3p7*p3p6)*(ffmcfmb
2300      . **2*hbcm2-ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2)+16*
2301      . (-p1p3*p2p3*p6p7+2*p2p3*p3p4*p6p7+2*p2p3*p3p6*p5p7-2*p2p3*p3p7
2302      . *p4p6))+ans2
2303       ans=ccc*ans1
2304       b(15)=ans
2305       ans=ccc*(w7*(8*(p6p7*p2p3)*(-2*ffmcfmb*hbcm+fmb-fmc)+8*p6p7*(
2306      . ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+fmb*fmc*
2307      . hbcm-2*fmc2*hbcm)+16*(-ffmcfmb*hbcm*p3p6*p3p7-2*ffmcfmb*hbcm*
2308      . p3p7*p4p6))+w13*(32*(p5p7*p3p6)*(ffmcfmb*hbcm-hbcm)+16*(p3p7*
2309      . p3p6)*(ffmcfmb*hbcm-hbcm)+8*(p6p7*p1p3)*(2*ffmcfmb*hbcm-fmb+
2310      . fmc-2*hbcm)+8*p6p7*(ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb
2311      . *fmc*hbcm2-2*ffmcfmb*hbcm3+fmb*fmc*hbcm+fmb*hbcm2-2*fmb2*hbcm-
2312      . fmc*hbcm2+hbcm3))+w11*(16*(p4p6*p3p7)*(-ffmcfmb*hbcm-hbcm)+16*
2313      . (p4p7*p3p6)*(-ffmcfmb*hbcm-hbcm)+8*(p6p7*p3p4)*(2*ffmcfmb*hbcm
2314      . -fmb+fmc+2*hbcm)+8*(p6p7*p2p3)*(-2*ffmcfmb*hbcm+fmb-fmc)+8*
2315      . p6p7*(ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+3*
2316      . fmc2*hbcm)+16*(-ffmcfmb*hbcm*p3p6*p3p7-hbcm*p1p4*p6p7-2*hbcm*
2317      . p2p4*p6p7-3*hbcm*p4p6*p4p7-hbcm*p4p6*p5p7))+8*p6p7*(2*fb2*fmb-
2318      . 2*fb2*fmc-hbcm))
2319       b(16)=ans
2320       do 200 n=1,16
2321          c(n,1)=c(n,1)-0.09090909090909091d0*b(n)
2322          c(n,2)=c(n,2)-0.1680909685530997d0*b(n)
2323          c(n,3)=c(n,3)-0.2077659977796572d0*b(n)
2324 200   continue
2325       return
2326       end
2327
2328       subroutine amp1s1_3p0(cc)
2329       implicit double precision(a-h,o-z)
2330       implicit integer (i-n)
2331       dimension b(6)
2332 #include "inclcon.h"
2333 #include "inclppp.h"
2334 #include "inclamp.h"
2335       do 100 n=1,6
2336          b(n)=0.0d0
2337 100   continue
2338       ccc=cc/((ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*p3p5+fmb2+
2339      . hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2))
2340       b(1)=ccc*(4*w1*(fmc*hbcm2*p6p7-hbcm*p3p4*p6p7)+4*w2*(fmb*hbcm2*
2341      . p6p7-hbcm*p3p5*p6p7+2*hbcm*p3p6*p5p7+2*hbcm*p3p7*p5p6)-24*fb1*
2342      . hbcm*p6p7)
2343       b(2)=4*ccc*(hbcm*p4p7*w1-hbcm*p5p7*w2)
2344       b(3)=4*ccc*(hbcm*p4p6*w1-hbcm*p5p6*w2)
2345       b(4)=ccc*(4*w1*(fmc*hbcm*p6p7-p3p4*p6p7)+4*w2*(-fmb*hbcm*p6p7+
2346      . p3p5*p6p7)+8*fb2*p6p7)
2347       b(5)=ccc*(4*w1*(-fmc*hbcm*p3p7+hbcm2*p4p7-p3p4*p3p7)+4*w2*(fmb*
2348      . hbcm*p3p7-hbcm2*p5p7+p3p5*p3p7)+8*fb2*p3p7)
2349       b(6)=ccc*(4*w1*(-fmc*hbcm*p3p6+hbcm2*p4p6-p3p4*p3p6)+4*w2*(fmb*
2350      . hbcm*p3p6-hbcm2*p5p6+p3p5*p3p6)+8*fb2*p3p6)
2351       do 200 n=1,6
2352          c(n,1)=c(n,1)+1.0d0*b(n)
2353 200   continue
2354       return
2355       end
2356
2357       subroutine amp27_3p0(cc)
2358       implicit double precision(a-h,o-z)
2359       implicit integer (i-n)
2360       dimension b(16)
2361 #include "inclcon.h"
2362 #include "inclppp.h"
2363 #include "inclamp.h"
2364       do 100 n=1,16
2365          b(n)=0.0d0
2366 100   continue
2367       ccc=cc/((-2*p2p5)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2)*(
2368      . ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2+2*ffmcfmb*p2p3-2*ffmcfmb*p3p5
2369      . +fmb2+hbcm2-2*p2p3-2*p2p5+2*p3p5))
2370       ans=ccc*(w1*(8*(p5p7*p4p6)*(ffmcfmb*hbcm3-fmb*hbcm2-hbcm3)+8*(
2371      . p5p7*p3p6*p3p4)*(-ffmcfmb*hbcm+fmb-2*fmc-2*hbcm)+8*(p5p7*p3p6)
2372      . *(ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm-3*fmc*hbcm2-2*fmc2*hbcm)+8*(2
2373      . *hbcm*p1p3*p4p6*p5p7+2*hbcm*p2p3*p4p6*p5p7-hbcm*p3p4*p4p6*p5p7
2374      . +hbcm*p3p4*p5p6*p5p7-2*hbcm*p3p5*p4p6*p5p7))+w16*(8*(p5p7*p5p6
2375      . )*(ffmcfmb*hbcm3-2*fmb*hbcm2+fmc*hbcm2-2*hbcm3)+8*(p5p7*p3p6*
2376      . p3p5)*(ffmcfmb*hbcm-fmb+2*fmc-2*hbcm)+8*(p5p7*p3p6*p2p3)*(-
2377      . ffmcfmb*hbcm+fmb-2*fmc+2*hbcm)+8*(p5p7*p3p6)*(ffmcfmb*fmb*
2378      . hbcm2+2*fmb*fmc*hbcm-3*fmb*hbcm2-fmb2*hbcm)+8*(-2*fmb*hbcm2*
2379      . p4p6*p5p7-2*hbcm*p1p2*p3p6*p5p7+2*hbcm*p1p5*p3p6*p5p7+3*hbcm*
2380      . p2p3*p4p6*p5p7+3*hbcm*p2p3*p5p6*p5p7-2*hbcm*p2p4*p3p6*p5p7+2*
2381      . hbcm*p2p5*p3p6*p5p7-3*hbcm*p3p5*p4p6*p5p7-3*hbcm*p3p5*p5p6*
2382      . p5p7+2*hbcm*p3p6*p4p5*p5p7))+(4*(p5p7*p3p6)*(-12*fb1*ffmcfmb*
2383      . hbcm+16*fb1*hbcm-4*fb2*fmb+8*fb2*fmc+3*hbcm)+16*(fb1*hbcm*p4p6
2384      . *p5p7+fb1*hbcm*p5p6*p5p7)))
2385       b(1)=ans
2386       b(2)=ccc*(w1*(12*p5p7*(-fmb*fmc*hbcm+fmc*hbcm2+fmc2*hbcm)+4*(
2387      . p5p7*p3p4)*(2*ffmcfmb*hbcm-3*fmb+3*fmc+hbcm)+8*(-hbcm*p1p4*
2388      . p5p7+hbcm*p2p4*p5p7-hbcm*p4p5*p5p7))+w16*(12*p5p7*(-fmb*fmc*
2389      . hbcm+fmb*hbcm2+fmb2*hbcm)+4*(p5p7*p3p5)*(-2*ffmcfmb*hbcm+3*fmb
2390      . -3*fmc+3*hbcm)+4*(p5p7*p2p3)*(2*ffmcfmb*hbcm-3*fmb+3*fmc-3*
2391      . hbcm)+8*(hbcm*p1p2*p5p7-hbcm*p1p5*p5p7+hbcm*p2p4*p5p7-3*hbcm*
2392      . p2p5*p5p7-hbcm*p4p5*p5p7))+12*p5p7*(-2*fb1*hbcm+2*fb2*fmb-2*
2393      . fb2*fmc-hbcm))
2394       b(3)=ccc*(8*w16*(-hbcm*p2p5*p3p6-3*hbcm*p2p5*p4p6-hbcm*p2p5*
2395      . p5p6)-8*hbcm*p2p5*p4p6*w1)
2396       b(4)=ccc*(w16*((p5p7*p3p6*p3p5)*(16*ffmcfmb-16)+(p5p7*p3p6*p2p3
2397      . )*(-16*ffmcfmb+16)+8*(p5p7*p5p6)*(-ffmcfmb*hbcm2-fmb*hbcm-fmc*
2398      . hbcm+2*hbcm2)+8*(-fmb*hbcm*p3p6*p5p7-3*fmb*hbcm*p4p6*p5p7+2*
2399      . p2p3*p4p6*p5p7-2*p3p5*p4p6*p5p7))+w1*((p5p7*p3p6*p3p4)*(-16*
2400      . ffmcfmb+16)+8*(p5p7*p4p6)*(ffmcfmb*hbcm2-fmb*hbcm+fmc*hbcm+
2401      . hbcm2)+8*(fmc*hbcm*p3p6*p5p7-fmc*hbcm*p5p6*p5p7+2*p3p4*p4p6*
2402      . p5p7))+((p5p7*p3p6)*(32*fb2*ffmcfmb-32*fb2+8)-32*fb2*p4p6*p5p7
2403      . ))
2404       ans=ccc*(w1*(4*(p5p7*p3p4)*(3*fmb*hbcm+fmc*hbcm+hbcm2)+4*p5p7*(
2405      . -2*ffmcfmb*fmc*hbcm3+3*fmb*fmc*hbcm2+3*fmc*hbcm3+3*fmc2*hbcm2-
2406      . 2*p3p4s2)+8*(-fmc*hbcm*p1p3*p5p7-3*fmc*hbcm*p2p3*p5p7+3*fmc*
2407      . hbcm*p3p5*p5p7-hbcm2*p1p4*p5p7+hbcm2*p2p4*p5p7-hbcm2*p4p5*p5p7
2408      . -p1p3*p3p4*p5p7-3*p2p3*p3p4*p5p7+3*p3p4*p3p5*p5p7))+w16*(12*(
2409      . p5p7*p3p5)*(-fmb*hbcm+fmc*hbcm-hbcm2)+12*(p5p7*p2p3)*(fmb*hbcm
2410      . -fmc*hbcm+hbcm2)+4*p5p7*(2*ffmcfmb*fmb*hbcm3+3*fmb*fmc*hbcm2-3
2411      . *fmb*hbcm3+3*fmb2*hbcm2-6*p2p3s2-6*p3p5s2)+8*(fmb*hbcm*p1p3*
2412      . p5p7+fmb*hbcm*p3p4*p5p7+hbcm2*p1p2*p5p7-hbcm2*p1p5*p5p7+hbcm2*
2413      . p2p4*p5p7-3*hbcm2*p2p5*p5p7-hbcm2*p4p5*p5p7-p1p3*p2p3*p5p7+
2414      . p1p3*p3p5*p5p7-p2p3*p3p4*p5p7+6*p2p3*p3p5*p5p7+p3p4*p3p5*p5p7)
2415      . )+(4*p5p7*(-6*fb1*fmb*hbcm-6*fb1*fmc*hbcm+4*fb2*ffmcfmb*hbcm2-
2416      . 6*fb2*hbcm2-5*hbcm2)+16*(fb2*p1p3*p5p7+3*fb2*p2p3*p5p7+fb2*
2417      . p3p4*p5p7-3*fb2*p3p5*p5p7)))
2418       b(5)=ans
2419       b(6)=ccc*(8*w1*(-2*fmc*hbcm*p2p5*p3p6-hbcm2*p2p5*p4p6-2*p2p5*
2420      . p3p4*p3p6)+w16*(8*(p3p6*p2p5)*(ffmcfmb*hbcm2-fmc*hbcm)+16*(-
2421      . hbcm2*p2p5*p4p6-hbcm2*p2p5*p5p6-p2p3*p2p5*p3p6+p2p5*p3p5*p3p6)
2422      . )+32*fb2*p2p5*p3p6)
2423       b(7)=ccc*(w16*(12*p2p5*(fmc*hbcm-hbcm2)+12*(p2p3*p2p5-p2p5*p3p5
2424      . ))+12*w1*(fmc*hbcm*p2p5+p2p5*p3p4)-24*fb2*p2p5)
2425       b(8)=ccc*(12*w1*(fmc*hbcm2*p2p5+hbcm*p2p5*p3p4)+w16*(4*p2p5*(2*
2426      . ffmcfmb*hbcm3+3*fmc*hbcm2-3*hbcm3)+4*(2*hbcm*p1p3*p2p5+3*hbcm*
2427      . p2p3*p2p5+2*hbcm*p2p5*p3p4-3*hbcm*p2p5*p3p5))-24*fb1*hbcm*p2p5
2428      . )
2429       b(9)=ccc*(w1*(4*p4p6*(-ffmcfmb*hbcm3+fmb*hbcm2+hbcm3)+4*(p3p6*
2430      . p3p4)*(-ffmcfmb*hbcm+2*fmb-fmc+hbcm)+4*p3p6*(-ffmcfmb*fmc*
2431      . hbcm2+2*fmb*fmc*hbcm-fmc2*hbcm)+4*(-2*hbcm*p1p3*p4p6+2*hbcm*
2432      . p1p4*p3p6-2*hbcm*p2p3*p4p6-2*hbcm*p2p4*p3p6+hbcm*p3p4*p4p6-
2433      . hbcm*p3p4*p5p6+2*hbcm*p3p5*p4p6+2*hbcm*p3p6*p4p5))+w16*(4*p5p6
2434      . *(-ffmcfmb*hbcm3+2*fmb*hbcm2-fmc*hbcm2+2*hbcm3)+4*(p3p6*p3p5)*
2435      . (ffmcfmb*hbcm-2*fmb+fmc-hbcm)+4*(p3p6*p2p3)*(-ffmcfmb*hbcm+2*
2436      . fmb-fmc+hbcm)+4*p3p6*(-ffmcfmb*fmb*hbcm2+fmb*fmc*hbcm-2*fmb2*
2437      . hbcm)+4*(2*fmb*hbcm2*p4p6-3*hbcm*p2p3*p4p6-3*hbcm*p2p3*p5p6+4*
2438      . hbcm*p2p5*p3p6+3*hbcm*p3p5*p4p6+3*hbcm*p3p5*p5p6))+(2*p3p6*(12
2439      . *fb1*ffmcfmb*hbcm-4*fb1*hbcm-8*fb2*fmb+4*fb2*fmc+3*hbcm)+8*(-
2440      . fb1*hbcm*p4p6-fb1*hbcm*p5p6)))
2441       b(10)=ccc*(w16*((p3p6*p3p5)*(-8*ffmcfmb+8)+(p3p6*p2p3)*(8*
2442      . ffmcfmb-8)+4*p5p6*(ffmcfmb*hbcm2+fmb*hbcm+fmc*hbcm-2*hbcm2)+4*
2443      . (fmb*hbcm*p3p6+3*fmb*hbcm*p4p6-2*p2p3*p4p6+2*p3p5*p4p6))+w1*((
2444      . p3p6*p3p4)*(8*ffmcfmb-8)+4*p4p6*(-ffmcfmb*hbcm2+fmb*hbcm-fmc*
2445      . hbcm-hbcm2)+4*(-fmc*hbcm*p3p6+fmc*hbcm*p5p6-2*p3p4*p4p6))+(
2446      . p3p6*(-16*fb2*ffmcfmb+16*fb2-4)+16*fb2*p4p6))
2447       b(11)=ccc*(w1*(2*p3p4*(-3*fmb*hbcm-fmc*hbcm-hbcm2)+2*(2*ffmcfmb
2448      . *fmc*hbcm3-3*fmb*fmc*hbcm2+2*fmc*hbcm*p1p3+6*fmc*hbcm*p2p3-6*
2449      . fmc*hbcm*p3p5-3*fmc*hbcm3-3*fmc2*hbcm2+2*hbcm2*p1p4-2*hbcm2*
2450      . p2p4+2*hbcm2*p4p5+2*p1p3*p3p4+6*p2p3*p3p4-6*p3p4*p3p5+2*p3p4s2
2451      . ))+w16*(6*p3p5*(fmb*hbcm-fmc*hbcm+hbcm2)+6*p2p3*(-fmb*hbcm+fmc
2452      . *hbcm-hbcm2)+2*(-2*ffmcfmb*fmb*hbcm3-3*fmb*fmc*hbcm2-2*fmb*
2453      . hbcm*p1p3-2*fmb*hbcm*p3p4+3*fmb*hbcm3-3*fmb2*hbcm2-2*hbcm2*
2454      . p1p2+2*hbcm2*p1p5-2*hbcm2*p2p4+6*hbcm2*p2p5+2*hbcm2*p4p5+2*
2455      . p1p3*p2p3-2*p1p3*p3p5+2*p2p3*p3p4-12*p2p3*p3p5+6*p2p3s2-2*p3p4
2456      . *p3p5+6*p3p5s2))+2*(6*fb1*fmb*hbcm+6*fb1*fmc*hbcm-4*fb2*
2457      . ffmcfmb*hbcm2+6*fb2*hbcm2-4*fb2*p1p3-12*fb2*p2p3-4*fb2*p3p4+12
2458      . *fb2*p3p5+5*hbcm2))
2459       b(13)=ccc*(w1*(2*p3p4*(2*ffmcfmb*hbcm-3*fmb+3*fmc+hbcm)+2*(-3*
2460      . fmb*fmc*hbcm+3*fmc*hbcm2+3*fmc2*hbcm-2*hbcm*p1p4+2*hbcm*p2p4-2
2461      . *hbcm*p4p5))+w16*(2*p3p5*(-2*ffmcfmb*hbcm+3*fmb-3*fmc+3*hbcm)+
2462      . 2*p2p3*(2*ffmcfmb*hbcm-3*fmb+3*fmc-3*hbcm)+2*(-3*fmb*fmc*hbcm+
2463      . 3*fmb*hbcm2+3*fmb2*hbcm+2*hbcm*p1p2-2*hbcm*p1p5+2*hbcm*p2p4-6*
2464      . hbcm*p2p5-2*hbcm*p4p5))+6*(-2*fb1*hbcm+2*fb2*fmb-2*fb2*fmc-
2465      . hbcm))
2466       do 200 n=1,16
2467          c(n,2)=c(n,2)-0.8320502943378437d0*b(n)
2468          c(n,3)=c(n,3)+0.1869893980016914d0*b(n)
2469 200   continue
2470       return
2471       end
2472
2473       subroutine amp26_3p0(cc)
2474       implicit double precision(a-h,o-z)
2475       implicit integer (i-n)
2476       dimension b(16)
2477 #include "inclcon.h"
2478 #include "inclppp.h"
2479 #include "inclamp.h"
2480       do 100 n=1,16
2481          b(n)=0.0d0
2482 100   continue
2483       ccc=cc/((-2*p2p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*
2484      . p3p5+fmb2+hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p2p3+2*
2485      . ffmcfmb*p3p4+fmc2-2*p2p4))
2486       ans2=w2*(8*(p6p7*p2p3)*(3*fmb*fmc*hbcm-fmb*hbcm2-3*fmb2*hbcm)+8
2487      . *(p5p6*p4p7)*(ffmcfmb*hbcm3-2*fmb*hbcm2+fmc*hbcm2-2*hbcm3)+8*(
2488      . p4p7*p3p6*p3p5)*(ffmcfmb*hbcm-fmb+2*fmc-2*hbcm)+8*(p6p7*p3p5*
2489      . p2p3)*(2*ffmcfmb*hbcm-3*fmb+3*fmc-hbcm)+8*(p4p7*p3p6)*(ffmcfmb
2490      . *fmb*hbcm2+2*fmb*fmc*hbcm-3*fmb*hbcm2-fmb2*hbcm)+8*(-2*fmb*
2491      . hbcm2*p1p2*p6p7-fmb*hbcm2*p2p4*p6p7+2*fmb*hbcm2*p2p5*p6p7-2*
2492      . fmb*hbcm2*p4p6*p4p7-2*hbcm*p1p2*p3p5*p6p7+2*hbcm*p1p2*p3p7*
2493      . p5p6+2*hbcm*p1p5*p2p3*p6p7+2*hbcm*p1p5*p3p6*p4p7-2*hbcm*p2p3*
2494      . p2p5*p6p7+2*hbcm*p2p3*p4p5*p6p7+2*hbcm*p2p3*p4p7*p5p6+2*hbcm*
2495      . p2p3*p5p6*p5p7-hbcm*p2p4*p3p5*p6p7+2*hbcm*p2p5*p3p5*p6p7-2*
2496      . hbcm*p2p5*p3p6*p4p7-2*hbcm*p2p5*p3p7*p5p6-3*hbcm*p3p5*p4p6*
2497      . p4p7-3*hbcm*p3p5*p4p7*p5p6+2*hbcm*p3p6*p4p5*p4p7))+(8*(p6p7*
2498      . p2p3)*(2*fb1*hbcm-6*fb2*fmb+6*fb2*fmc+3*hbcm)+4*(p4p7*p3p6)*(-
2499      . 12*fb1*ffmcfmb*hbcm+16*fb1*hbcm-4*fb2*fmb+8*fb2*fmc+3*hbcm)+16
2500      . *(2*fb1*hbcm*p1p2*p6p7+fb1*hbcm*p2p4*p6p7-2*fb1*hbcm*p2p5*p6p7
2501      . +fb1*hbcm*p4p6*p4p7+fb1*hbcm*p4p7*p5p6))
2502       ans1=w11*(8*(p6p7*p2p3)*(3*fmb*fmc*hbcm-fmc*hbcm2-3*fmc2*hbcm)+
2503      . 8*(p4p7*p4p6)*(ffmcfmb*hbcm3-fmb*hbcm2-hbcm3)+8*(p6p7*p2p4)*(2
2504      . *ffmcfmb*hbcm3-3*fmb*hbcm2+2*fmc*hbcm2-3*hbcm3)+8*(p4p7*p3p6*
2505      . p3p4)*(-ffmcfmb*hbcm+fmb-2*fmc-2*hbcm)+8*p6p7*(2*ffmcfmb*hbcm*
2506      . p2p3s2-3*fmb*p2p3s2+3*fmc*p2p3s2-hbcm*p2p3s2)+8*(p4p7*p3p6*
2507      . p2p3)*(ffmcfmb*hbcm-fmb+2*fmc+2*hbcm)+8*(p6p7*p3p4*p2p3)*(-2*
2508      . ffmcfmb*hbcm+3*fmb-3*fmc+hbcm)+8*(p4p7*p3p6)*(ffmcfmb*fmc*
2509      . hbcm2+fmb*fmc*hbcm-3*fmc*hbcm2-2*fmc2*hbcm)+8*(-2*fmc*hbcm2*
2510      . p1p2*p6p7+2*fmc*hbcm2*p2p5*p6p7-2*hbcm*p1p2*p3p4*p6p7+2*hbcm*
2511      . p1p2*p3p7*p4p6+2*hbcm*p1p3*p2p4*p6p7+2*hbcm*p1p3*p4p6*p4p7+2*
2512      . hbcm*p1p4*p2p3*p6p7+5*hbcm*p2p3*p2p4*p6p7-4*hbcm*p2p3*p2p5*
2513      . p6p7+2*hbcm*p2p3*p4p5*p6p7+3*hbcm*p2p3*p4p6*p4p7+2*hbcm*p2p3*
2514      . p4p6*p5p7-hbcm*p2p3*p4p7*p5p6+hbcm*p2p4*p3p4*p6p7-6*hbcm*p2p4*
2515      . p3p5*p6p7-4*hbcm*p2p4*p3p6*p3p7+2*hbcm*p2p4*p3p6*p4p7-2*hbcm*
2516      . p2p4*p3p6*p5p7-4*hbcm*p2p4*p3p7*p4p6+2*hbcm*p2p4*p3p7*p5p6+2*
2517      . hbcm*p2p5*p3p4*p6p7-2*hbcm*p2p5*p3p7*p4p6-hbcm*p3p4*p4p6*p4p7+
2518      . hbcm*p3p4*p4p7*p5p6-2*hbcm*p3p5*p4p6*p4p7))+ans2
2519       ans=ccc*ans1
2520       b(1)=ans
2521       b(2)=ccc*(w2*(12*p4p7*(-fmb*fmc*hbcm+fmb*hbcm2+fmb2*hbcm)+4*(
2522      . p4p7*p3p5)*(-2*ffmcfmb*hbcm+3*fmb-3*fmc+3*hbcm)+8*(-hbcm*p1p5*
2523      . p4p7+hbcm*p2p5*p4p7-hbcm*p4p5*p4p7))+w11*(12*p4p7*(-fmb*fmc*
2524      . hbcm+fmc*hbcm2+fmc2*hbcm)+4*(p4p7*p3p4)*(2*ffmcfmb*hbcm-3*fmb+
2525      . 3*fmc+hbcm)+4*(p4p7*p2p3)*(-2*ffmcfmb*hbcm+3*fmb-3*fmc-hbcm)+8
2526      . *(hbcm*p1p2*p4p7-hbcm*p1p4*p4p7+2*hbcm*p2p4*p3p7-hbcm*p2p4*
2527      . p4p7+2*hbcm*p2p4*p5p7+hbcm*p2p5*p4p7-hbcm*p4p5*p4p7))+12*p4p7*
2528      . (-2*fb1*hbcm+2*fb2*fmb-2*fb2*fmc-hbcm))
2529       b(3)=ccc*(8*w2*(-hbcm*p1p2*p5p6+hbcm*p2p3*p5p6+hbcm*p2p5*p5p6)+
2530      . 8*w11*(-hbcm*p1p2*p4p6+hbcm*p2p3*p4p6+hbcm*p2p4*p3p6+2*hbcm*
2531      . p2p4*p4p6-hbcm*p2p4*p5p6+hbcm*p2p5*p4p6))
2532       b(4)=ccc*(w2*((p4p7*p3p6*p3p5)*(16*ffmcfmb-16)+8*(p5p6*p4p7)*(-
2533      . ffmcfmb*hbcm2-fmb*hbcm-fmc*hbcm+2*hbcm2)+8*(-3*fmb*hbcm*p2p4*
2534      . p6p7-fmb*hbcm*p3p6*p4p7-3*fmb*hbcm*p4p6*p4p7-3*p2p4*p3p5*p6p7-
2535      . 2*p3p5*p4p6*p4p7))+w11*(24*(p6p7*p2p4)*(-fmb*hbcm+hbcm2)+(p4p7
2536      . *p3p6*p3p4)*(-16*ffmcfmb+16)+(p4p7*p3p6*p2p3)*(16*ffmcfmb-16)+
2537      . 8*(p4p7*p4p6)*(ffmcfmb*hbcm2-fmb*hbcm+fmc*hbcm+hbcm2)+8*(fmc*
2538      . hbcm*p3p6*p4p7-fmc*hbcm*p4p7*p5p6-3*p2p3*p2p4*p6p7-2*p2p3*p4p6
2539      . *p4p7+3*p2p4*p3p4*p6p7+2*p3p4*p4p6*p4p7))+((p4p7*p3p6)*(32*fb2
2540      . *ffmcfmb-32*fb2+8)+16*(-3*fb2*p2p4*p6p7-2*fb2*p4p6*p4p7)))
2541       ans2=w2*(12*(p4p7*p3p5)*(-fmb*hbcm+fmc*hbcm-hbcm2)+4*p4p7*(2*
2542      . ffmcfmb*fmb*hbcm3+3*fmb*fmc*hbcm2-3*fmb*hbcm3+3*fmb2*hbcm2-6*
2543      . p3p5s2)+8*(2*fmb*hbcm*p1p2*p3p7+fmb*hbcm*p1p3*p4p7+fmb*hbcm*
2544      . p2p3*p4p7+2*fmb*hbcm*p2p3*p5p7+fmb*hbcm*p2p4*p3p7-2*fmb*hbcm*
2545      . p2p5*p3p7+fmb*hbcm*p3p4*p4p7-hbcm2*p1p5*p4p7+hbcm2*p2p5*p4p7-
2546      . hbcm2*p4p5*p4p7+2*p1p2*p3p5*p3p7+p1p3*p3p5*p4p7+p2p3*p3p5*p4p7
2547      . +2*p2p3*p3p5*p5p7+p2p4*p3p5*p3p7-2*p2p5*p3p5*p3p7+p3p4*p3p5*
2548      . p4p7))+(4*p4p7*(-6*fb1*fmb*hbcm-6*fb1*fmc*hbcm+4*fb2*ffmcfmb*
2549      . hbcm2-6*fb2*hbcm2-5*hbcm2)+16*(2*fb2*p1p2*p3p7+fb2*p1p3*p4p7+
2550      . fb2*p2p3*p4p7+2*fb2*p2p3*p5p7+fb2*p2p4*p3p7-2*fb2*p2p5*p3p7+
2551      . fb2*p3p4*p4p7-3*fb2*p3p5*p4p7))
2552       ans1=w11*(4*(p4p7*p3p4)*(3*fmb*hbcm+fmc*hbcm+hbcm2)+8*(p3p7*
2553      . p2p4)*(3*fmb*hbcm+2*fmc*hbcm-hbcm2)+4*(p4p7*p2p3)*(-3*fmb*hbcm
2554      . -5*fmc*hbcm-hbcm2)+4*p4p7*(-2*ffmcfmb*fmc*hbcm3+3*fmb*fmc*
2555      . hbcm2+3*fmc*hbcm3+3*fmc2*hbcm2+2*p2p3s2-2*p3p4s2)+8*(-2*fmc*
2556      . hbcm*p1p2*p3p7-fmc*hbcm*p1p3*p4p7-2*fmc*hbcm*p2p3*p5p7+2*fmc*
2557      . hbcm*p2p5*p3p7+3*fmc*hbcm*p3p5*p4p7+hbcm2*p1p2*p4p7-hbcm2*p1p4
2558      . *p4p7-hbcm2*p2p4*p4p7+2*hbcm2*p2p4*p5p7+hbcm2*p2p5*p4p7-hbcm2*
2559      . p4p5*p4p7+2*p1p2*p2p3*p3p7-2*p1p2*p3p4*p3p7+p1p3*p2p3*p4p7-
2560      . p1p3*p3p4*p4p7+p2p3*p2p4*p3p7-2*p2p3*p2p5*p3p7-2*p2p3*p3p4*
2561      . p5p7-3*p2p3*p3p5*p4p7+2*p2p3s2*p5p7-p2p4*p3p4*p3p7+2*p2p5*p3p4
2562      . *p3p7+3*p3p4*p3p5*p4p7))+ans2
2563       ans=ccc*ans1
2564       b(5)=ans
2565       b(6)=ccc*(w2*((p3p6*p3p5*p2p3)*(-16*ffmcfmb+8)+8*(p5p6*p2p3)*(
2566      . ffmcfmb*hbcm2+fmb*hbcm+fmc*hbcm-hbcm2)+8*(fmb*hbcm*p1p2*p3p6+3
2567      . *fmb*hbcm*p2p3*p4p6-fmb*hbcm*p2p5*p3p6-hbcm2*p1p2*p5p6+hbcm2*
2568      . p2p5*p5p6+p1p2*p3p5*p3p6+2*p2p3*p3p5*p4p6-p2p5*p3p5*p3p6))+w11
2569      . *(8*p3p6*(-2*ffmcfmb*p2p3s2+p2p3s2)+(p3p6*p3p4*p2p3)*(16*
2570      . ffmcfmb-8)+8*(p3p6*p2p4)*(-ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm)+
2571      . 8*(p4p6*p2p3)*(-ffmcfmb*hbcm2+fmb*hbcm-fmc*hbcm)+8*(-fmc*hbcm*
2572      . p1p2*p3p6+fmc*hbcm*p2p3*p5p6+fmc*hbcm*p2p5*p3p6-hbcm2*p1p2*
2573      . p4p6+hbcm2*p2p4*p4p6+hbcm2*p2p5*p4p6+p1p2*p2p3*p3p6-p1p2*p3p4*
2574      . p3p6-p2p3*p2p5*p3p6-2*p2p3*p3p4*p4p6+2*p2p3s2*p4p6+p2p5*p3p4*
2575      . p3p6))+((p3p6*p2p3)*(-32*fb2*ffmcfmb+16*fb2-8)+16*(fb2*p1p2*
2576      . p3p6+2*fb2*p2p3*p4p6-fb2*p2p5*p3p6)))
2577       b(7)=ccc*(w11*(4*p2p4*(-3*fmb*hbcm-2*fmc*hbcm+3*hbcm2)+4*(2*fmc
2578      . *hbcm*p1p2-2*fmc*hbcm*p2p3-2*fmc*hbcm*p2p5-2*p1p2*p2p3+2*p1p2*
2579      . p3p4-p2p3*p2p4+2*p2p3*p2p5-2*p2p3*p3p4+2*p2p3s2+p2p4*p3p4-2*
2580      . p2p5*p3p4))+4*w2*(-2*fmb*hbcm*p1p2+2*fmb*hbcm*p2p3-fmb*hbcm*
2581      . p2p4+2*fmb*hbcm*p2p5-2*p1p2*p3p5+2*p2p3*p3p5-p2p4*p3p5+2*p2p5*
2582      . p3p5)+8*(-2*fb2*p1p2+2*fb2*p2p3-fb2*p2p4+2*fb2*p2p5))
2583       ans=ccc*(w2*(4*p2p3*(-3*fmb*fmc*hbcm+fmb*hbcm2+3*fmb2*hbcm)+4*(
2584      . p3p5*p2p3)*(-2*ffmcfmb*hbcm+3*fmb-3*fmc+hbcm)+4*(2*fmb*hbcm2*
2585      . p1p2+fmb*hbcm2*p2p4-2*fmb*hbcm2*p2p5+2*hbcm*p1p2*p3p5-2*hbcm*
2586      . p1p5*p2p3+2*hbcm*p2p3*p2p5-2*hbcm*p2p3*p4p5+hbcm*p2p4*p3p5-2*
2587      . hbcm*p2p5*p3p5))+w11*(4*p2p3*(-3*fmb*fmc*hbcm+fmc*hbcm2+3*fmc2
2588      . *hbcm)+4*p2p4*(-2*ffmcfmb*hbcm3+3*fmb*hbcm2-2*fmc*hbcm2+3*
2589      . hbcm3)+4*(p3p4*p2p3)*(2*ffmcfmb*hbcm-3*fmb+3*fmc-hbcm)+4*(-2*
2590      . ffmcfmb*hbcm*p2p3s2+3*fmb*p2p3s2+2*fmc*hbcm2*p1p2-2*fmc*hbcm2*
2591      . p2p5-3*fmc*p2p3s2+2*hbcm*p1p2*p3p4-2*hbcm*p1p3*p2p4-2*hbcm*
2592      . p1p4*p2p3-5*hbcm*p2p3*p2p4+4*hbcm*p2p3*p2p5-2*hbcm*p2p3*p4p5+
2593      . hbcm*p2p3s2-hbcm*p2p4*p3p4+6*hbcm*p2p4*p3p5-2*hbcm*p2p5*p3p4))
2594      . +(4*p2p3*(-2*fb1*hbcm+6*fb2*fmb-6*fb2*fmc-3*hbcm)+8*(-2*fb1*
2595      . hbcm*p1p2-fb1*hbcm*p2p4+2*fb1*hbcm*p2p5)))
2596       b(8)=ans
2597       b(9)=ccc*(w11*(4*p4p6*(ffmcfmb*hbcm3-fmb*hbcm2-hbcm3)+4*(p3p6*
2598      . p3p4)*(ffmcfmb*hbcm-2*fmb+fmc-hbcm)+4*(p3p6*p2p3)*(-ffmcfmb*
2599      . hbcm+2*fmb-fmc+hbcm)+4*p3p6*(ffmcfmb*fmc*hbcm2-2*fmb*fmc*hbcm+
2600      . fmc2*hbcm)+4*(2*hbcm*p1p2*p3p6+2*hbcm*p1p3*p4p6-2*hbcm*p1p4*
2601      . p3p6+hbcm*p2p3*p4p6-hbcm*p2p3*p5p6-2*hbcm*p2p4*p3p6+2*hbcm*
2602      . p2p5*p3p6-hbcm*p3p4*p4p6+hbcm*p3p4*p5p6-2*hbcm*p3p5*p4p6-2*
2603      . hbcm*p3p6*p4p5))+w2*(4*p5p6*(ffmcfmb*hbcm3-2*fmb*hbcm2+fmc*
2604      . hbcm2-2*hbcm3)+4*(p3p6*p3p5)*(-ffmcfmb*hbcm+2*fmb-fmc+hbcm)+4*
2605      . p3p6*(ffmcfmb*fmb*hbcm2-fmb*fmc*hbcm+2*fmb2*hbcm)+4*(-2*fmb*
2606      . hbcm2*p4p6-3*hbcm*p3p5*p4p6-3*hbcm*p3p5*p5p6))+(2*p3p6*(-12*
2607      . fb1*ffmcfmb*hbcm+4*fb1*hbcm+8*fb2*fmb-4*fb2*fmc-3*hbcm)+8*(fb1
2608      . *hbcm*p4p6+fb1*hbcm*p5p6)))
2609       b(10)=ccc*(w2*((p3p6*p3p5)*(8*ffmcfmb-8)+4*p5p6*(-ffmcfmb*hbcm2
2610      . -fmb*hbcm-fmc*hbcm+2*hbcm2)+4*(-fmb*hbcm*p3p6-3*fmb*hbcm*p4p6-
2611      . 2*p3p5*p4p6))+w11*((p3p6*p3p4)*(-8*ffmcfmb+8)+(p3p6*p2p3)*(8*
2612      . ffmcfmb-8)+4*p4p6*(ffmcfmb*hbcm2-fmb*hbcm+fmc*hbcm+hbcm2)+4*(
2613      . fmc*hbcm*p3p6-fmc*hbcm*p5p6-2*p2p3*p4p6+2*p3p4*p4p6))+(p3p6*(
2614      . 16*fb2*ffmcfmb-16*fb2+4)-16*fb2*p4p6))
2615       b(11)=ccc*(w11*(2*p3p4*(3*fmb*hbcm+fmc*hbcm+hbcm2)+2*p2p3*(-3*
2616      . fmb*hbcm-fmc*hbcm-hbcm2)+2*(-2*ffmcfmb*fmc*hbcm3+3*fmb*fmc*
2617      . hbcm2-2*fmc*hbcm*p1p3+6*fmc*hbcm*p3p5+3*fmc*hbcm3+3*fmc2*hbcm2
2618      . +2*hbcm2*p1p2-2*hbcm2*p1p4-6*hbcm2*p2p4+2*hbcm2*p2p5-2*hbcm2*
2619      . p4p5+2*p1p3*p2p3-2*p1p3*p3p4+4*p2p3*p3p4-6*p2p3*p3p5-2*p2p3s2+
2620      . 6*p3p4*p3p5-2*p3p4s2))+w2*(6*p3p5*(-fmb*hbcm+fmc*hbcm-hbcm2)+2
2621      . *(2*ffmcfmb*fmb*hbcm3+3*fmb*fmc*hbcm2+2*fmb*hbcm*p1p3-2*fmb*
2622      . hbcm*p2p3+2*fmb*hbcm*p3p4-3*fmb*hbcm3+3*fmb2*hbcm2-2*hbcm2*
2623      . p1p5+2*hbcm2*p2p5-2*hbcm2*p4p5+2*p1p3*p3p5-2*p2p3*p3p5+2*p3p4*
2624      . p3p5-6*p3p5s2))+2*(-6*fb1*fmb*hbcm-6*fb1*fmc*hbcm+4*fb2*
2625      . ffmcfmb*hbcm2-6*fb2*hbcm2+4*fb2*p1p3-4*fb2*p2p3+4*fb2*p3p4-12*
2626      . fb2*p3p5-5*hbcm2))
2627       b(12)=ccc*(w2*(4*p3p7*(3*fmb*fmc*hbcm-fmb*hbcm2-3*fmb2*hbcm)+4*
2628      . (p3p7*p3p5)*(2*ffmcfmb*hbcm-3*fmb+3*fmc-hbcm)+8*(fmb*hbcm2*
2629      . p4p7+fmb*hbcm2*p5p7+hbcm*p1p5*p3p7-hbcm*p2p5*p3p7+hbcm*p3p5*
2630      . p4p7+hbcm*p3p5*p5p7+hbcm*p3p7*p4p5))+w11*(4*p3p7*(3*fmb*fmc*
2631      . hbcm-fmc*hbcm2-3*fmc2*hbcm)+4*(p3p7*p3p4)*(-2*ffmcfmb*hbcm+3*
2632      . fmb-3*fmc+hbcm)+4*(p3p7*p2p3)*(2*ffmcfmb*hbcm-3*fmb+3*fmc-hbcm
2633      . )+8*(fmc*hbcm2*p4p7+fmc*hbcm2*p5p7-hbcm*p1p2*p3p7+hbcm*p1p4*
2634      . p3p7-hbcm*p2p3*p4p7-hbcm*p2p3*p5p7+3*hbcm*p2p4*p3p7-hbcm*p2p5*
2635      . p3p7+hbcm*p3p4*p4p7+hbcm*p3p4*p5p7+hbcm*p3p7*p4p5))+(4*p3p7*(2
2636      . *fb1*hbcm-6*fb2*fmb+6*fb2*fmc+3*hbcm)+16*(-fb1*hbcm*p4p7-fb1*
2637      . hbcm*p5p7)))
2638       b(13)=ccc*(w2*(2*p3p5*(2*ffmcfmb*hbcm-3*fmb+3*fmc-3*hbcm)+2*(3*
2639      . fmb*fmc*hbcm-3*fmb*hbcm2-3*fmb2*hbcm+2*hbcm*p1p5-2*hbcm*p2p5+2
2640      . *hbcm*p4p5))+w11*(2*p3p4*(-2*ffmcfmb*hbcm+3*fmb-3*fmc-hbcm)+2*
2641      . p2p3*(2*ffmcfmb*hbcm-3*fmb+3*fmc+hbcm)+2*(3*fmb*fmc*hbcm-3*fmc
2642      . *hbcm2-3*fmc2*hbcm-2*hbcm*p1p2+2*hbcm*p1p4+6*hbcm*p2p4-2*hbcm*
2643      . p2p5+2*hbcm*p4p5))+6*(2*fb1*hbcm-2*fb2*fmb+2*fb2*fmc+hbcm))
2644       b(14)=ccc*(8*w11*(fmc*hbcm*p3p7+fmc*hbcm*p4p7+fmc*hbcm*p5p7-
2645      . p2p3*p3p7-p2p3*p4p7-p2p3*p5p7+p3p4*p3p7+p3p4*p4p7+p3p4*p5p7)+8
2646      . *w2*(-fmb*hbcm*p3p7-fmb*hbcm*p4p7-fmb*hbcm*p5p7-p3p5*p3p7-p3p5
2647      . *p4p7-p3p5*p5p7)+16*(-fb2*p3p7-fb2*p4p7-fb2*p5p7))
2648       ans2=w2*(4*(p6p7*p3p5)*(fmb*hbcm+3*fmc*hbcm+hbcm2)+(p3p7*p3p6*
2649      . p3p5)*(16*ffmcfmb-8)+8*(p5p6*p3p7)*(-ffmcfmb*hbcm2-fmb*hbcm-
2650      . fmc*hbcm+hbcm2)+4*p6p7*(2*ffmcfmb*fmb*hbcm3+3*fmb*fmc*hbcm2+
2651      . fmb*hbcm3+3*fmb2*hbcm2-2*p3p5s2)+8*(-fmb*hbcm*p1p3*p6p7-3*fmb*
2652      . hbcm*p2p3*p6p7+3*fmb*hbcm*p3p4*p6p7+fmb*hbcm*p3p6*p4p7+fmb*
2653      . hbcm*p3p6*p5p7-3*fmb*hbcm*p3p7*p4p6-hbcm2*p1p5*p6p7+hbcm2*p2p5
2654      . *p6p7-hbcm2*p4p5*p6p7-hbcm2*p4p7*p5p6-hbcm2*p5p6*p5p7-p1p3*
2655      . p3p5*p6p7-3*p2p3*p3p5*p6p7+3*p3p4*p3p5*p6p7+p3p5*p3p6*p4p7+
2656      . p3p5*p3p6*p5p7-2*p3p5*p3p7*p4p6))+((p3p7*p3p6)*(32*fb2*ffmcfmb
2657      . -16*fb2+8)+4*p6p7*(-6*fb1*fmb*hbcm-6*fb1*fmc*hbcm+4*fb2*
2658      . ffmcfmb*hbcm2+2*fb2*hbcm2-5*hbcm2)+16*(-fb2*p1p3*p6p7-3*fb2*
2659      . p2p3*p6p7+3*fb2*p3p4*p6p7-fb2*p3p5*p6p7+fb2*p3p6*p4p7+fb2*p3p6
2660      . *p5p7-2*fb2*p3p7*p4p6))
2661       ans1=w11*(12*(p6p7*p3p4)*(fmb*hbcm-fmc*hbcm-hbcm2)+12*(p6p7*
2662      . p2p3)*(-fmb*hbcm+fmc*hbcm+hbcm2)+(p3p7*p3p6*p3p4)*(-16*ffmcfmb
2663      . +8)+(p3p7*p3p6*p2p3)*(16*ffmcfmb-8)+8*(p4p6*p3p7)*(ffmcfmb*
2664      . hbcm2-fmb*hbcm+fmc*hbcm)+4*p6p7*(-2*ffmcfmb*fmc*hbcm3+3*fmb*
2665      . fmc*hbcm2-fmc*hbcm3+3*fmc2*hbcm2-6*p2p3s2-6*p3p4s2)+8*(fmc*
2666      . hbcm*p1p3*p6p7+fmc*hbcm*p3p5*p6p7-fmc*hbcm*p3p6*p4p7-fmc*hbcm*
2667      . p3p6*p5p7-fmc*hbcm*p3p7*p5p6+hbcm2*p1p2*p6p7-hbcm2*p1p4*p6p7-3
2668      . *hbcm2*p2p4*p6p7+hbcm2*p2p5*p6p7-hbcm2*p4p5*p6p7-hbcm2*p4p6*
2669      . p4p7-hbcm2*p4p6*p5p7-p1p3*p2p3*p6p7+p1p3*p3p4*p6p7+6*p2p3*p3p4
2670      . *p6p7-p2p3*p3p5*p6p7+p2p3*p3p6*p4p7+p2p3*p3p6*p5p7-2*p2p3*p3p7
2671      . *p4p6+p3p4*p3p5*p6p7-p3p4*p3p6*p4p7-p3p4*p3p6*p5p7+2*p3p4*p3p7
2672      . *p4p6))+ans2
2673       ans=ccc*ans1
2674       b(15)=ans
2675       b(16)=ccc*(w2*(12*p6p7*(-fmb*fmc*hbcm+fmb*hbcm2+fmb2*hbcm)+4*(
2676      . p6p7*p3p5)*(-2*ffmcfmb*hbcm+3*fmb-3*fmc+3*hbcm)+8*(-hbcm*p1p5*
2677      . p6p7+hbcm*p2p5*p6p7-hbcm*p3p7*p5p6-hbcm*p4p5*p6p7-hbcm*p4p7*
2678      . p5p6-hbcm*p5p6*p5p7))+w11*(12*p6p7*(-fmb*fmc*hbcm+fmc*hbcm2+
2679      . fmc2*hbcm)+4*(p6p7*p3p4)*(2*ffmcfmb*hbcm-3*fmb+3*fmc+hbcm)+4*(
2680      . p6p7*p2p3)*(-2*ffmcfmb*hbcm+3*fmb-3*fmc-hbcm)+8*(hbcm*p1p2*
2681      . p6p7-hbcm*p1p4*p6p7-3*hbcm*p2p4*p6p7+hbcm*p2p5*p6p7-hbcm*p3p7*
2682      . p4p6-hbcm*p4p5*p6p7-hbcm*p4p6*p4p7-hbcm*p4p6*p5p7))+12*p6p7*(-
2683      . 2*fb1*hbcm+2*fb2*fmb-2*fb2*fmc-hbcm))
2684       do 200 n=1,16
2685          c(n,1)=c(n,1)+0.8181818181818182d0*b(n)
2686          c(n,2)=c(n,2)-0.1512818716977898d0*b(n)
2687          c(n,3)=c(n,3)-0.1869893980016914d0*b(n)
2688 200   continue
2689       return
2690       end
2691
2692       subroutine amp25_3p0(cc)
2693       implicit double precision(a-h,o-z)
2694       implicit integer (i-n)
2695       dimension b(16)
2696 #include "inclcon.h"
2697 #include "inclppp.h"
2698 #include "inclamp.h"
2699       do 100 n=1,16
2700          b(n)=0.0d0
2701 100   continue
2702       ccc=cc/((2*p1p2)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2)*(
2703      . ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2+2*ffmcfmb*p1p3+2*ffmcfmb*p2p3
2704      . -fmb2+hbcm2+2*p1p2-2*p1p3-2*p2p3))
2705       ans2=w20*(16*(p6p7*p2p3*p1p3)*(fmb-fmc)+8*(p6p7*p1p2)*(-fmb*
2706      . hbcm2+fmc*hbcm2)+8*p6p7*(ffmcfmb*hbcm*p1p3s2-ffmcfmb*hbcm*
2707      . p2p3s2+fmb*p1p3s2+fmb*p2p3s2-2*fmc*p2p3s2-hbcm*p1p3s2+hbcm*
2708      . p2p3s2)+4*(p6p7*p2p3)*(ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-3*
2709      . fmb*fmc*hbcm-fmb*hbcm2+3*fmb2*hbcm+fmc*hbcm2)+4*(p6p7*p1p3)*(
2710      . ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm-fmb*hbcm2-
2711      . fmb2*hbcm+fmc*hbcm2)+16*(hbcm*p1p2*p1p3*p6p7-hbcm*p1p2*p2p3*
2712      . p6p7))+(2*p6p7*(4*fb1*fmb*fmc*hbcm-4*fb1*fmb2*hbcm-4*fb2*
2713      . ffmcfmb*fmb*hbcm2+4*fb2*ffmcfmb*fmc*hbcm2+4*fb2*fmb*hbcm2-4*
2714      . fb2*fmc*hbcm2+fmb*hbcm2-fmc*hbcm2)+4*(p6p7*p2p3)*(-4*fb1*
2715      . ffmcfmb*hbcm+4*fb1*hbcm-4*fb2*fmb+8*fb2*fmc+3*hbcm)+4*(p6p7*
2716      . p1p3)*(4*fb1*ffmcfmb*hbcm-4*fb1*hbcm-4*fb2*fmb-3*hbcm))
2717       ans1=w1*(8*(p6p7*p2p4)*(ffmcfmb*hbcm3-fmb*hbcm2+2*fmc*hbcm2-3*
2718      . hbcm3)+8*(p6p7*p1p4)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+8*(p6p7*
2719      . p3p4*p2p3)*(-ffmcfmb*hbcm+fmb-2*fmc+hbcm)+8*(p6p7*p3p4*p1p3)*(
2720      . ffmcfmb*hbcm+fmb-hbcm)+4*p6p7*(ffmcfmb*fmc*hbcm4+fmb*fmc*hbcm3
2721      . -fmc*hbcm4)+8*(p6p7*p3p5)*(ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm-fmc*
2722      . hbcm2)+8*(p6p7*p2p3)*(-ffmcfmb*fmc*hbcm2+fmc*hbcm2-2*fmc2*hbcm
2723      . )+8*(p6p7*p1p3)*(-ffmcfmb*fmc*hbcm2+fmc*hbcm2)+4*(p6p7*p3p4)*(
2724      . -ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm+fmb*hbcm2-
2725      . fmb2*hbcm-fmc*hbcm2)+8*(-fmc*hbcm2*p1p2*p6p7+2*fmc*hbcm2*p2p5*
2726      . p6p7-2*hbcm*p1p2*p3p4*p6p7+4*hbcm*p1p3*p2p4*p6p7+4*hbcm*p2p3*
2727      . p2p4*p6p7-4*hbcm*p2p4*p3p5*p6p7+4*hbcm*p2p5*p3p4*p6p7))+ans2
2728       ans=ccc*ans1
2729       b(1)=ans
2730       ans=ccc*(w20*(8*p6p7*(ffmcfmb*p1p3s2-ffmcfmb*p2p3s2-p1p3s2+
2731      . p2p3s2)+16*(p6p7*p2p4)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+4*(p6p7*
2732      . p2p3)*(3*ffmcfmb*hbcm2+fmb*hbcm-3*hbcm2)+4*(p6p7*p1p3)*(-
2733      . ffmcfmb*hbcm2+fmb*hbcm+hbcm2)+8*(p6p7*p1p2)*(-ffmcfmb*hbcm2-
2734      . fmb*hbcm+2*hbcm2)+8*(-p1p2*p1p3*p6p7-p1p2*p2p3*p6p7+2*p1p3*
2735      . p2p4*p6p7+2*p2p3*p2p4*p6p7))+w1*((p6p7*p3p4*p2p3)*(-8*ffmcfmb+
2736      . 8)+(p6p7*p3p4*p1p3)*(8*ffmcfmb-8)+4*(p6p7*p3p4)*(ffmcfmb*hbcm2
2737      . +fmb*hbcm-hbcm2)+8*(p6p7*p2p4)*(ffmcfmb*hbcm2-fmb*hbcm+2*fmc*
2738      . hbcm+hbcm2)+8*(p6p7*p1p4)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+4*
2739      . p6p7*(ffmcfmb*fmb*fmc*hbcm2+ffmcfmb*fmc2*hbcm2-fmb*fmc*hbcm2+
2740      . fmb*fmc2*hbcm+fmb2*fmc*hbcm-fmc2*hbcm2)+8*(-2*fmc*hbcm*p1p2*
2741      . p6p7+2*fmc*hbcm*p2p3*p6p7-p1p2*p3p4*p6p7+2*p2p4*p3p4*p6p7))+((
2742      . p6p7*p2p3)*(16*fb2*ffmcfmb-16*fb2+4)+(p6p7*p1p3)*(-16*fb2*
2743      . ffmcfmb+16*fb2-4)+2*p6p7*(4*fb1*fmb*hbcm+4*fb2*ffmcfmb*hbcm2-4
2744      . *fb2*hbcm2-hbcm2)+16*(fb2*p1p2*p6p7-2*fb2*p2p4*p6p7)))
2745       b(4)=ans
2746       b(15)=ccc*(w1*(8*p6p7*(fmb*fmc*hbcm2-2*fmc*hbcm3+fmc2*hbcm2-2*
2747      . p3p4s2)+8*(p6p7*p3p4)*(-ffmcfmb*hbcm2+fmb*hbcm-2*fmc*hbcm)+16*
2748      . (fmc*hbcm*p1p3*p6p7+fmc*hbcm*p2p3*p6p7-hbcm2*p1p4*p6p7-hbcm2*
2749      . p2p4*p6p7+p1p3*p3p4*p6p7+p2p3*p3p4*p6p7))+w20*(8*p6p7*(-
2750      . ffmcfmb*hbcm4-fmb*hbcm3+hbcm4+2*p1p3s2+2*p2p3s2)+16*(p6p7*p3p4
2751      . )*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(p6p7*p2p3)*(ffmcfmb*hbcm2
2752      . +fmb*hbcm-2*hbcm2)+8*(p6p7*p1p3)*(ffmcfmb*hbcm2+fmb*hbcm-2*
2753      . hbcm2)+16*(-hbcm2*p1p2*p6p7+2*p1p3*p2p3*p6p7-p1p3*p3p4*p6p7-
2754      . p2p3*p3p4*p6p7))+(4*p6p7*(-4*fb1*fmb*hbcm-4*fb2*ffmcfmb*hbcm2+
2755      . 8*fb2*hbcm2+hbcm2)+32*(-fb2*p1p3*p6p7-fb2*p2p3*p6p7+fb2*p3p4*
2756      . p6p7)))
2757       b(16)=ccc*(w1*(8*(p6p7*p3p4)*(-fmb+fmc+2*hbcm)+8*p6p7*(ffmcfmb*
2758      . fmc*hbcm2-fmb*fmc*hbcm+2*fmc2*hbcm)+16*(-hbcm*p1p4*p6p7-hbcm*
2759      . p2p4*p6p7))+w20*(8*(p6p7*p2p3)*(-fmb+fmc)+8*(p6p7*p1p3)*(-fmb+
2760      . fmc)+8*p6p7*(-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm
2761      . +fmb*hbcm2-fmb2*hbcm-fmc*hbcm2))+16*p6p7*(fb2*fmb-fb2*fmc))
2762       do 200 n=1,16
2763          c(n,1)=c(n,1)+0.09090909090909091d0*b(n)
2764          c(n,2)=c(n,2)-0.1092591295595148d0*b(n)
2765 200   continue
2766       return
2767       end
2768
2769       subroutine amp24_3p0(cc)
2770       implicit double precision(a-h,o-z)
2771       implicit integer (i-n)
2772       dimension b(16)
2773 #include "inclcon.h"
2774 #include "inclppp.h"
2775 #include "inclamp.h"
2776       do 100 n=1,16
2777          b(n)=0.0d0
2778 100   continue
2779       ccc=cc/((2*p1p2)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2)*(-fmb2+
2780      . fmc2+hbcm2+2*p3p4))
2781       b(1)=ccc*(w1*(4*p6p7*(2*fmb*p3p4s2-fmb2*fmc*hbcm2-fmc*hbcm4-2*
2782      . fmc*p3p4s2+fmc3*hbcm2)+8*(p6p7*p3p5*p3p4)*(fmb-fmc)+8*(p6p7*
2783      . p3p4*p2p3)*(-fmb+fmc)+8*(p6p7*p3p4*p1p3)*(-fmb+fmc)+8*(p6p7*
2784      . p3p4)*(fmb*hbcm2-fmc*hbcm2)+8*(fmc*hbcm2*p1p3*p6p7+fmc*hbcm2*
2785      . p2p3*p6p7-fmc*hbcm2*p3p5*p6p7))+(16*(p6p7*p3p4)*(-fb2*fmb+fb2*
2786      . fmc)+16*(p6p7*p3p5)*(2*fb1*hbcm-fb2*fmb+fb2*fmc)+16*(p6p7*p2p3
2787      . )*(-2*fb1*hbcm+fb2*fmb-fb2*fmc)+16*(p6p7*p1p3)*(-2*fb1*hbcm+
2788      . fb2*fmb-fb2*fmc)+16*p6p7*(fb1*fmb2*hbcm-fb1*fmc2*hbcm+fb1*
2789      . hbcm3-fb2*fmb*hbcm2+fb2*fmc*hbcm2)))
2790       b(4)=ccc*(w1*(4*(p6p7*p3p4)*(fmb2-fmc2-hbcm2)-8*p3p4s2*p6p7)+(8
2791      . *p6p7*(-fb2*fmb2+fb2*fmc2+fb2*hbcm2)+16*fb2*p3p4*p6p7))
2792       b(15)=ccc*(w1*(8*p6p7*(-fmb*fmc*hbcm2-fmc2*hbcm2+2*p3p4s2)+8*
2793      . hbcm2*p3p4*p6p7)+(16*p6p7*(2*fb1*fmb*hbcm+2*fb1*fmc*hbcm-fb2*
2794      . hbcm2)-32*fb2*p3p4*p6p7))
2795       b(16)=ccc*(w1*(8*(p6p7*p3p4)*(fmb-fmc)-8*fmc*hbcm2*p6p7)+16*
2796      . p6p7*(2*fb1*hbcm-fb2*fmb+fb2*fmc))
2797       do 200 n=1,16
2798          c(n,1)=c(n,1)-0.7272727272727273d0*b(n)
2799          c(n,2)=c(n,2)+0.8740730364761186d0*b(n)
2800 200   continue
2801       return
2802       end
2803
2804       subroutine amp23_3p0(cc)
2805       implicit double precision(a-h,o-z)
2806       implicit integer (i-n)
2807       dimension b(16)
2808 #include "inclcon.h"
2809 #include "inclppp.h"
2810 #include "inclamp.h"
2811       do 100 n=1,16
2812          b(n)=0.0d0
2813 100   continue
2814       ccc=cc/((2*p1p2)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*
2815      . p3p5+fmb2+hbcm2+2*p3p5)*(fmb2-fmc2+hbcm2+2*p3p5))
2816       b(1)=ccc*(w2*(16*(p6p7*p3p5*p2p3)*(fmb-fmc)+4*p6p7*(fmb*fmc2*
2817      . hbcm2-fmb*hbcm4-fmb3*hbcm2)+8*(2*fmb*hbcm2*p2p3*p6p7-fmb*hbcm2
2818      . *p3p5*p6p7))+(32*(p6p7*p2p3)*(-2*fb1*hbcm+fb2*fmb-fb2*fmc)+16*
2819      . p6p7*(fb1*fmb2*hbcm-fb1*fmc2*hbcm+fb1*hbcm3)+32*fb1*hbcm*p3p5*
2820      . p6p7))
2821       b(4)=ccc*(w2*(4*(p6p7*p3p5)*(-fmb2+fmc2-hbcm2)-8*p3p5s2*p6p7)+(
2822      . 8*p6p7*(-fb2*fmb2+fb2*fmc2-fb2*hbcm2)-16*fb2*p3p5*p6p7))
2823       b(15)=ccc*(w2*(8*p6p7*(-fmb*fmc*hbcm2-fmb2*hbcm2+2*p3p5s2)+8*
2824      . hbcm2*p3p5*p6p7)+(16*p6p7*(2*fb1*fmb*hbcm+2*fb1*fmc*hbcm+fb2*
2825      . hbcm2)+32*fb2*p3p5*p6p7))
2826       b(16)=ccc*(w2*(8*(p6p7*p3p5)*(-fmb+fmc)-8*fmb*hbcm2*p6p7)+16*
2827      . p6p7*(2*fb1*hbcm-fb2*fmb+fb2*fmc))
2828       do 200 n=1,16
2829          c(n,1)=c(n,1)-0.7272727272727273d0*b(n)
2830          c(n,2)=c(n,2)+0.8740730364761186d0*b(n)
2831 200   continue
2832       return
2833       end
2834
2835       subroutine amp22_3p0(cc)
2836       implicit double precision(a-h,o-z)
2837       implicit integer (i-n)
2838       dimension b(16)
2839 #include "inclcon.h"
2840 #include "inclppp.h"
2841 #include "inclamp.h"
2842       do 100 n=1,16
2843          b(n)=0.0d0
2844 100   continue
2845       ccc=cc/((2*p1p2)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*
2846      . p3p5+fmb2+hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3-2*
2847      . ffmcfmb*p2p3-fmc2+2*p1p2))
2848       ans=ccc*(w2*(8*(p6p7*p2p5)*(ffmcfmb*hbcm3+fmc*hbcm2-2*hbcm3)+8*
2849      . (p6p7*p1p5)*(-ffmcfmb*hbcm3+fmc*hbcm2)+8*(p6p7*p3p5*p2p3)*(-
2850      . ffmcfmb*hbcm+fmc)+8*(p6p7*p3p5*p1p3)*(ffmcfmb*hbcm-fmc)+4*p6p7
2851      . *(-ffmcfmb*fmb*hbcm4+fmb*fmc*hbcm3)+4*(p6p7*p3p5)*(-ffmcfmb*
2852      . fmb*hbcm2-ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm+fmc2*hbcm)+8*(p6p7*
2853      . p2p3)*(2*ffmcfmb*fmb*hbcm2+fmb*fmc*hbcm-2*fmb2*hbcm)+8*(-fmb*
2854      . fmc*hbcm*p1p3*p6p7-fmb*hbcm2*p1p2*p6p7-2*hbcm*p1p2*p3p5*p6p7+4
2855      . *hbcm*p1p5*p2p3*p6p7+4*hbcm*p2p3*p2p5*p6p7))+w17*(8*(p6p7*p1p2
2856      . )*(-fmb*hbcm2+fmc*hbcm2)+8*p6p7*(ffmcfmb*hbcm*p1p3s2-ffmcfmb*
2857      . hbcm*p2p3s2-fmc*p1p3s2+fmc*p2p3s2)+4*(p6p7*p2p3)*(3*ffmcfmb*
2858      . fmb*hbcm2-3*ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm+fmc2*hbcm)+4*(p6p7*
2859      . p1p3)*(-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm+fmc2*
2860      . hbcm)+16*(-hbcm*p1p2*p1p3*p6p7+hbcm*p1p2*p2p3*p6p7))+(2*p6p7*(
2861      . -4*fb1*fmb*fmc*hbcm+4*fb1*fmc2*hbcm-4*fb2*ffmcfmb*fmb*hbcm2+4*
2862      . fb2*ffmcfmb*fmc*hbcm2+fmb*hbcm2-fmc*hbcm2)+4*(p6p7*p2p3)*(-4*
2863      . fb1*ffmcfmb*hbcm+4*fb2*fmc-3*hbcm)+4*(p6p7*p1p3)*(4*fb1*
2864      . ffmcfmb*hbcm-4*fb2*fmc+3*hbcm)))
2865       b(1)=ans
2866       ans=ccc*(w17*(8*p6p7*(-ffmcfmb*p1p3s2+ffmcfmb*p2p3s2-2*p2p3s2)+
2867      . 16*(p6p7*p2p4)*(ffmcfmb*hbcm2-fmc*hbcm)+4*(p6p7*p2p3)*(ffmcfmb
2868      . *hbcm2-3*fmc*hbcm)+4*(p6p7*p1p3)*(ffmcfmb*hbcm2+fmc*hbcm)+8*(
2869      . p6p7*p1p2)*(-ffmcfmb*hbcm2+fmc*hbcm+hbcm2)+8*(p1p2*p1p3*p6p7+
2870      . p1p2*p2p3*p6p7-2*p1p3*p2p3*p6p7-2*p1p3*p2p4*p6p7-2*p2p3*p2p4*
2871      . p6p7))+w2*((p6p7*p3p5*p2p3)*(8*ffmcfmb-16)+4*(p6p7*p3p5)*(-
2872      . ffmcfmb*hbcm2+fmc*hbcm)+8*(p6p7*p2p5)*(-ffmcfmb*hbcm2-2*fmb*
2873      . hbcm-fmc*hbcm+2*hbcm2)+8*(p6p7*p1p5)*(ffmcfmb*hbcm2-fmc*hbcm)+
2874      . 4*p6p7*(-ffmcfmb*fmb*fmc*hbcm2-ffmcfmb*fmb2*hbcm2+fmb*fmc2*
2875      . hbcm+fmb2*fmc*hbcm)+8*(-ffmcfmb*p1p3*p3p5*p6p7+2*fmb*hbcm*p1p2
2876      . *p6p7-2*fmb*hbcm*p2p3*p6p7-4*fmb*hbcm*p2p4*p6p7+p1p2*p3p5*p6p7
2877      . -2*p2p4*p3p5*p6p7))+((p6p7*p2p3)*(16*fb2*ffmcfmb-32*fb2+4)+(
2878      . p6p7*p1p3)*(-16*fb2*ffmcfmb-4)+2*p6p7*(4*fb1*fmc*hbcm+4*fb2*
2879      . ffmcfmb*hbcm2-hbcm2)+16*(fb2*p1p2*p6p7-2*fb2*p2p4*p6p7)))
2880       b(4)=ans
2881       b(15)=ccc*(w2*(8*p6p7*(fmb*fmc*hbcm2+2*fmb*hbcm3+fmb2*hbcm2)+8*
2882      . (p6p7*p3p5)*(ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm+hbcm2)+16*(-fmb
2883      . *hbcm*p1p3*p6p7-fmb*hbcm*p2p3*p6p7+2*fmb*hbcm*p3p4*p6p7-hbcm2*
2884      . p1p5*p6p7-hbcm2*p2p5*p6p7+p3p4*p3p5*p6p7))+w17*(8*p6p7*(-
2885      . ffmcfmb*hbcm4+fmc*hbcm3)+16*(p6p7*p3p4)*(-ffmcfmb*hbcm2+fmc*
2886      . hbcm)+8*(p6p7*p2p3)*(ffmcfmb*hbcm2-fmc*hbcm+hbcm2)+8*(p6p7*
2887      . p1p3)*(ffmcfmb*hbcm2-fmc*hbcm+hbcm2)+16*(-hbcm2*p1p2*p6p7+p1p3
2888      . *p3p4*p6p7+p2p3*p3p4*p6p7))+(4*p6p7*(-4*fb1*fmc*hbcm-4*fb2*
2889      . ffmcfmb*hbcm2+4*fb2*hbcm2+hbcm2)+32*fb2*p3p4*p6p7))
2890       b(16)=ccc*(w2*(8*(p6p7*p3p5)*(fmb-fmc+2*hbcm)+8*p6p7*(-ffmcfmb*
2891      . fmb*hbcm2-fmb*fmc*hbcm+fmb*hbcm2+2*fmb2*hbcm)+16*(-hbcm*p1p5*
2892      . p6p7-hbcm*p2p5*p6p7))+w17*(8*(p6p7*p2p3)*(fmb-fmc)+8*(p6p7*
2893      . p1p3)*(fmb-fmc)+8*p6p7*(-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+
2894      . fmb*fmc*hbcm-fmc2*hbcm))+16*p6p7*(fb2*fmb-fb2*fmc))
2895       do 200 n=1,16
2896          c(n,1)=c(n,1)+0.09090909090909091d0*b(n)
2897          c(n,2)=c(n,2)-0.1092591295595148d0*b(n)
2898 200   continue
2899       return
2900       end
2901
2902       subroutine amp21_3p0(cc)
2903       implicit double precision(a-h,o-z)
2904       implicit integer (i-n)
2905       dimension b(16)
2906 #include "inclcon.h"
2907 #include "inclppp.h"
2908 #include "inclamp.h"
2909       do 100 n=1,16
2910          b(n)=0.0d0
2911 100   continue
2912       ccc=cc/((ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3+2*ffmcfmb*p3p4+fmc2-2*
2913      . p1p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3-fmc2)*(ffmcfmb**2*hbcm2
2914      . -2*ffmcfmb*hbcm2+2*ffmcfmb*p2p3-fmb2+hbcm2-2*p2p3))
2915       ans4=16*(p3p7*p3p6)*(ffmcfmb**2*hbcm3-ffmcfmb*fmb*fmc*hbcm+
2916      . ffmcfmb*fmb*hbcm2+ffmcfmb*fmb2*hbcm+ffmcfmb*fmc*hbcm2+ffmcfmb*
2917      . fmc2*hbcm-ffmcfmb*hbcm3+fmb*fmc*hbcm-fmc*hbcm2-fmc2*hbcm)+16*(
2918      . p6p7*p3p5)*(ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2-ffmcfmb*hbcm3)+
2919      . 8*(p6p7*p3p4)*(ffmcfmb**2*hbcm3+2*fmb*hbcm2-fmb2*hbcm-hbcm3)+
2920      . 16*(p6p7*p2p3)*(-ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*
2921      . hbcm3)+8*(p6p7*p1p3)*(-ffmcfmb**2*hbcm3-2*fmb*hbcm2+fmb2*hbcm+
2922      . hbcm3)+8*p6p7*(-ffmcfmb**2*fmb*hbcm4+ffmcfmb**2*hbcm5+2*
2923      . ffmcfmb*fmb*hbcm4-ffmcfmb*fmb2*hbcm3+ffmcfmb*fmc2*hbcm3-
2924      . ffmcfmb*hbcm5+fmb*fmc2*hbcm2-fmc2*hbcm3)+16*(2*ffmcfmb*hbcm*
2925      . p2p3*p3p6*p5p7-2*ffmcfmb*hbcm*p2p5*p3p6*p3p7+ffmcfmb*hbcm3*
2926      . p2p5*p6p7-hbcm*p1p3*p2p5*p6p7+2*hbcm*p2p3*p4p6*p5p7-2*hbcm*
2927      . p2p4*p3p6*p5p7+hbcm*p2p5*p3p4*p6p7+2*hbcm*p2p5*p3p6*p4p7-2*
2928      . hbcm*p2p5*p3p7*p4p6)
2929       ans3=16*(p5p7*p4p6)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+16*(p4p7*
2930      . p4p6)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+16*(p6p7*p1p4)*(-
2931      . ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+32*(p4p6*p3p7*p3p5)*(ffmcfmb*
2932      . hbcm-hbcm)+16*(p4p6*p3p7*p3p4)*(3*ffmcfmb*hbcm+fmb-3*hbcm)+16*
2933      . (p5p7*p3p6*p3p4)*(ffmcfmb*hbcm+fmb-hbcm)+16*(p6p7*p3p5*p3p4)*(
2934      . ffmcfmb*hbcm+fmb-hbcm)+32*(p4p6*p3p7*p2p3)*(-ffmcfmb*hbcm+hbcm
2935      . )+16*(p6p7*p3p4*p2p3)*(-ffmcfmb*hbcm-fmb+hbcm)+16*(p4p6*p3p7*
2936      . p1p3)*(-3*ffmcfmb*hbcm-fmb+3*hbcm)+16*(p5p7*p3p6*p1p3)*(-
2937      . ffmcfmb*hbcm-fmb+hbcm)+16*(p6p7*p3p5*p1p3)*(-ffmcfmb*hbcm-fmb+
2938      . hbcm)+16*(p6p7*p2p3*p1p3)*(ffmcfmb*hbcm+fmb-hbcm)+16*(p3p7*
2939      . p3p6*p3p4)*(ffmcfmb*fmb+ffmcfmb*fmc+3*ffmcfmb*hbcm+fmb-fmc-3*
2940      . hbcm)+16*(p3p7*p3p6*p1p3)*(-ffmcfmb*fmb-ffmcfmb*fmc-ffmcfmb*
2941      . hbcm-fmb+fmc+hbcm)+16*(p4p7*p3p6)*(-ffmcfmb*fmb*hbcm2-ffmcfmb*
2942      . hbcm3-fmb2*hbcm+hbcm3)+16*(p4p6*p3p7)*(ffmcfmb**2*hbcm3+
2943      . ffmcfmb*fmb*hbcm2-fmb*hbcm2+fmb2*hbcm-hbcm3)+16*(p5p7*p3p6)*(
2944      . ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2-ffmcfmb*
2945      . hbcm3+fmb*fmc*hbcm-fmc*hbcm2)+ans4
2946       ans2=w5*ans3
2947       ans7=8*p6p7*(-ffmcfmb**2*fmb*hbcm4+ffmcfmb**2*fmc*hbcm4+ffmcfmb
2948      . **2*hbcm5+2*ffmcfmb*fmb*fmc*hbcm3+2*ffmcfmb*fmb*hbcm4-ffmcfmb*
2949      . fmb2*hbcm3-2*ffmcfmb*fmc*hbcm4-ffmcfmb*fmc2*hbcm3-ffmcfmb*
2950      . hbcm5-2*fmb*fmc*hbcm3-fmb*fmc2*hbcm2+fmb2*fmc*hbcm2+fmc*hbcm4+
2951      . fmc2*hbcm3)+16*(2*ffmcfmb*hbcm*p2p3*p3p6*p5p7-2*ffmcfmb*hbcm*
2952      . p2p5*p3p6*p3p7-hbcm*p1p3*p2p5*p6p7)
2953       ans6=16*(p6p7*p2p5)*(ffmcfmb*hbcm3-fmc*hbcm2)+16*(p4p6*p3p7*
2954      . p1p3)*(-ffmcfmb*hbcm-fmb+hbcm)+16*(p5p7*p3p6*p1p3)*(-ffmcfmb*
2955      . hbcm-fmb+hbcm)+16*(p6p7*p3p5*p1p3)*(-ffmcfmb*hbcm-fmb+hbcm)+16
2956      . *(p6p7*p2p3*p1p3)*(ffmcfmb*hbcm+fmb-hbcm)+16*(p3p7*p3p6*p1p3)*
2957      . (-ffmcfmb*fmb-ffmcfmb*fmc-ffmcfmb*hbcm-fmb+fmc+hbcm)+16*(p4p6*
2958      . p3p7)*(ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-
2959      . ffmcfmb*hbcm3-fmb*fmc*hbcm+fmc*hbcm2)+16*(p5p7*p3p6)*(ffmcfmb
2960      . **2*hbcm3+ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3-
2961      . fmb*fmc*hbcm+fmc*hbcm2)+16*(p3p7*p3p6)*(ffmcfmb**2*hbcm3-
2962      . ffmcfmb*fmb*fmc*hbcm+ffmcfmb*fmb*hbcm2+ffmcfmb*fmb2*hbcm-
2963      . ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3-fmb*fmc*hbcm+fmc*hbcm2)+16*(
2964      . p6p7*p3p5)*(ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*
2965      . hbcm2-ffmcfmb*hbcm3-fmb*fmc*hbcm+fmc*hbcm2)+16*(p6p7*p2p3)*(-
2966      . ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+ffmcfmb*
2967      . hbcm3+fmb*fmc*hbcm-fmc*hbcm2)+8*(p6p7*p1p3)*(-ffmcfmb**2*hbcm3
2968      . -2*fmb*hbcm2+fmb2*hbcm+hbcm3)+ans7
2969       ans5=w12*ans6
2970       ans8=(8*(p4p6*p3p7)*(-4*fb1*ffmcfmb*hbcm+4*fb1*hbcm-4*fb2*fmb-
2971      . hbcm)+8*(p5p7*p3p6)*(-4*fb1*ffmcfmb*hbcm+4*fb1*hbcm-4*fb2*fmb-
2972      . hbcm)+8*(p3p7*p3p6)*(-4*fb1*ffmcfmb*hbcm+4*fb1*hbcm-4*fb2*
2973      . ffmcfmb*fmb-4*fb2*ffmcfmb*fmc-4*fb2*fmb+4*fb2*fmc-fmb-fmc-3*
2974      . hbcm)+8*(p6p7*p3p5)*(-4*fb1*ffmcfmb*hbcm+4*fb1*hbcm-4*fb2*fmb-
2975      . hbcm)+8*(p6p7*p2p3)*(4*fb1*ffmcfmb*hbcm-4*fb1*hbcm+4*fb2*fmb+
2976      . hbcm)+8*p6p7*(2*fb1*ffmcfmb**2*hbcm3-4*fb1*ffmcfmb*hbcm3+2*fb1
2977      . *fmb2*hbcm+2*fb1*hbcm3+4*fb2*ffmcfmb*fmb*hbcm2-4*fb2*fmb*hbcm2
2978      . -fmb*hbcm2)-32*fb1*hbcm*p2p5*p6p7)
2979       ans1=w8*(16*(p6p7*p2p5)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+32*(
2980      . p3p7*p3p6*p2p5)*(-ffmcfmb*hbcm+hbcm)+16*p6p7*(-ffmcfmb*hbcm*
2981      . p2p3s2-fmb*p2p3s2+hbcm*p2p3s2)+16*(p4p6*p3p7*p2p3)*(-ffmcfmb*
2982      . hbcm+fmb+hbcm)+16*(p5p7*p3p6*p2p3)*(ffmcfmb*hbcm+fmb-hbcm)+16*
2983      . (p6p7*p3p5*p2p3)*(ffmcfmb*hbcm+fmb-hbcm)+32*(p3p7*p3p6*p1p2)*(
2984      . ffmcfmb*hbcm-hbcm)+16*(p3p7*p3p6*p2p3)*(ffmcfmb*fmb+ffmcfmb*
2985      . fmc-ffmcfmb*hbcm+fmb-fmc+hbcm)+8*(p6p7*p2p3)*(-ffmcfmb**2*
2986      . hbcm3+2*ffmcfmb*hbcm3+fmb2*hbcm-hbcm3)-16*hbcm*p2p3*p2p5*p6p7)
2987      . +ans2+ans5+ans8
2988       ans=ccc*ans1
2989       b(1)=ans
2990       ans2=w12*(16*(p5p7*p1p3)*(ffmcfmb*hbcm+fmb-hbcm)+8*(p3p7*p1p3)*
2991      . (-ffmcfmb*fmb+ffmcfmb*fmc+ffmcfmb*hbcm+2*fmb-fmc-hbcm)+16*p5p7
2992      . *(-ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+
2993      . ffmcfmb*hbcm3+fmb*fmc*hbcm-fmc*hbcm2)+8*p3p7*(ffmcfmb**2*fmb*
2994      . hbcm2-ffmcfmb**2*fmc*hbcm2-ffmcfmb**2*hbcm3-ffmcfmb*fmb*fmc*
2995      . hbcm-2*ffmcfmb*fmb*hbcm2+2*ffmcfmb*fmc*hbcm2+ffmcfmb*fmc2*hbcm
2996      . +ffmcfmb*hbcm3+2*fmb*fmc*hbcm-fmc*hbcm2-fmc2*hbcm))+(8*p5p7*(4
2997      . *fb1*ffmcfmb*hbcm-4*fb1*hbcm+4*fb2*fmb+hbcm)+4*p3p7*(4*fb1*
2998      . ffmcfmb*hbcm-4*fb1*hbcm-4*fb2*ffmcfmb*fmb+4*fb2*ffmcfmb*fmc+8*
2999      . fb2*fmb-4*fb2*fmc-fmb+fmc+hbcm))
3000       ans1=w8*(32*(p3p7*p2p5)*(ffmcfmb*hbcm-hbcm)+16*(p5p7*p2p3)*(-
3001      . ffmcfmb*hbcm-fmb+hbcm)+16*(p3p7*p1p2)*(-ffmcfmb*hbcm+hbcm)+8*(
3002      . p3p7*p2p3)*(ffmcfmb*fmb-ffmcfmb*fmc+ffmcfmb*hbcm-2*fmb+fmc-
3003      . hbcm))+w5*(16*(p5p7*p3p4)*(-ffmcfmb*hbcm-fmb+hbcm)+16*(p3p7*
3004      . p1p4)*(ffmcfmb*hbcm-hbcm)+16*(p5p7*p1p3)*(ffmcfmb*hbcm+fmb-
3005      . hbcm)+8*(p3p7*p3p4)*(ffmcfmb*fmb-ffmcfmb*fmc-3*ffmcfmb*hbcm-2*
3006      . fmb+fmc+3*hbcm)+8*(p3p7*p1p3)*(-ffmcfmb*fmb+ffmcfmb*fmc+
3007      . ffmcfmb*hbcm+2*fmb-fmc-hbcm)+8*p5p7*(-2*ffmcfmb**2*hbcm3-2*
3008      . ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2+2*ffmcfmb*hbcm3-fmb*fmc*
3009      . hbcm+fmc*hbcm2)+8*p4p7*(-ffmcfmb**2*hbcm3+2*ffmcfmb*hbcm3+fmb2
3010      . *hbcm-hbcm3)+8*p3p7*(ffmcfmb**2*fmb*hbcm2-ffmcfmb**2*hbcm3+
3011      . ffmcfmb*fmb*fmc*hbcm-2*ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-2*
3012      . ffmcfmb*fmc2*hbcm+ffmcfmb*hbcm3-fmb*fmc*hbcm+fmc*hbcm2+2*fmc2*
3013      . hbcm)+16*(hbcm*p2p4*p5p7-hbcm*p2p5*p4p7))+ans2
3014       ans=ccc*ans1
3015       b(2)=ans
3016       ans2=(8*p4p6*(4*fb1*ffmcfmb*hbcm-4*fb1*hbcm+4*fb2*fmb+hbcm)+4*
3017      . p3p6*(4*fb1*ffmcfmb*hbcm-4*fb1*hbcm+4*fb2*fmb+hbcm))
3018       ans1=w8*(16*(p4p6*p2p3)*(-ffmcfmb*hbcm-fmb+hbcm)+8*(p3p6*p2p3)*
3019      . (-ffmcfmb*hbcm-fmb+hbcm))+w5*(16*(p4p6*p3p4)*(-ffmcfmb*hbcm-
3020      . fmb+hbcm)+8*(p3p6*p3p4)*(-ffmcfmb*hbcm-fmb+hbcm)+16*(p4p6*p1p3
3021      . )*(ffmcfmb*hbcm+fmb-hbcm)+8*(p3p6*p1p3)*(ffmcfmb*hbcm+fmb-hbcm
3022      . )+8*p4p6*(-ffmcfmb**2*hbcm3-3*ffmcfmb*fmb*hbcm2+fmb*hbcm2-2*
3023      . fmb2*hbcm+hbcm3)+8*p3p6*(-ffmcfmb**2*fmb*hbcm2-ffmcfmb**2*
3024      . hbcm3-ffmcfmb*fmb2*hbcm+ffmcfmb*hbcm3)+16*(-ffmcfmb*hbcm*p1p2*
3025      . p3p6+ffmcfmb*hbcm*p2p3*p3p6+ffmcfmb*hbcm*p2p4*p3p6+2*ffmcfmb*
3026      . hbcm*p2p5*p3p6-hbcm*p1p2*p4p6+hbcm*p2p3*p4p6+hbcm*p2p4*p4p6+3*
3027      . hbcm*p2p5*p4p6))+w12*(16*(p4p6*p1p3)*(ffmcfmb*hbcm+fmb-hbcm)+8
3028      . *(p3p6*p1p3)*(ffmcfmb*hbcm+fmb-hbcm)+16*p4p6*(-ffmcfmb**2*
3029      . hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3+fmb*
3030      . fmc*hbcm-fmc*hbcm2)+8*p3p6*(-ffmcfmb**2*fmb*hbcm2+ffmcfmb**2*
3031      . fmc*hbcm2-ffmcfmb**2*hbcm3+ffmcfmb*fmb*fmc*hbcm-ffmcfmb*fmb2*
3032      . hbcm+ffmcfmb*hbcm3+fmb*fmc*hbcm-fmc*hbcm2)+16*(-ffmcfmb*hbcm*
3033      . p1p2*p3p6+ffmcfmb*hbcm*p2p3*p3p6+2*ffmcfmb*hbcm*p2p5*p3p6))+
3034      . ans2
3035       ans=ccc*ans1
3036       b(3)=ans
3037       ans3=(p4p6*p3p7*p3p4)*(-16*ffmcfmb+16)+(p4p6*p3p7*p1p3)*(16*
3038      . ffmcfmb-16)+32*(p5p7*p4p6)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*
3039      . (p4p7*p4p6)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(p6p7*p1p4)*(-
3040      . ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+(p3p7*p3p6*p3p4)*(16*ffmcfmb**2-
3041      . 32*ffmcfmb+16)+(p3p7*p3p6*p1p3)*(-16*ffmcfmb**2+32*ffmcfmb-16)
3042      . +16*(p4p6*p3p7)*(-ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm-2*fmb*hbcm
3043      . +hbcm2)+16*(p5p7*p3p6)*(-ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm+
3044      . ffmcfmb*hbcm2)+16*(p4p7*p3p6)*(-ffmcfmb**2*hbcm2-ffmcfmb*fmb*
3045      . hbcm+ffmcfmb*hbcm2)+16*(p3p7*p3p6)*(-ffmcfmb**2*hbcm2-ffmcfmb*
3046      . fmb*hbcm+ffmcfmb*hbcm2)+8*(p6p7*p3p4)*(ffmcfmb**2*hbcm2+2*
3047      . ffmcfmb*fmb*hbcm+fmb2-hbcm2)+8*(p6p7*p1p3)*(-ffmcfmb**2*hbcm2-
3048      . 2*ffmcfmb*fmb*hbcm-fmb2+hbcm2)+8*p6p7*(ffmcfmb**2*fmb*hbcm3+
3049      . ffmcfmb**2*hbcm4+ffmcfmb*fmb2*hbcm2+ffmcfmb*fmc2*hbcm2-ffmcfmb
3050      . *hbcm4+fmb*fmc2*hbcm-fmc2*hbcm2)+16*(-ffmcfmb*hbcm2*p1p2*p6p7+
3051      . ffmcfmb*hbcm2*p2p3*p6p7+ffmcfmb*hbcm2*p2p4*p6p7+p1p2*p1p3*p6p7
3052      . -p1p2*p3p4*p6p7-p1p3*p2p3*p6p7-p1p3*p2p4*p6p7+p2p3*p3p4*p6p7+
3053      . p2p4*p3p4*p6p7)
3054       ans2=w5*ans3
3055       ans5=((p4p6*p3p7)*(32*fb2*ffmcfmb-32*fb2+8)+(p3p7*p3p6)*(-32*
3056      . fb2*ffmcfmb**2+64*fb2*ffmcfmb-32*fb2-16*ffmcfmb+16)+8*p6p7*(2*
3057      . fb2*ffmcfmb**2*hbcm2-4*fb2*ffmcfmb*hbcm2-2*fb2*fmb2+2*fb2*
3058      . hbcm2-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+32*(fb2*p1p2*p6p7-fb2*p2p3
3059      . *p6p7-fb2*p2p4*p6p7))
3060       ans4=w12*((p4p6*p3p7*p1p3)*(16*ffmcfmb-16)+16*(p6p7*p2p4)*(
3061      . ffmcfmb*hbcm2-fmc*hbcm)+16*(p6p7*p2p3)*(ffmcfmb*hbcm2-fmc*hbcm
3062      . )+16*(p6p7*p1p2)*(-ffmcfmb*hbcm2+fmc*hbcm)+(p3p7*p3p6*p1p3)*(-
3063      . 16*ffmcfmb**2+32*ffmcfmb-16)+16*(p4p6*p3p7)*(-ffmcfmb**2*hbcm2
3064      . +ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-fmc*hbcm)+16*(p5p7*p3p6)*(-
3065      . ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm+ffmcfmb*hbcm2)+16*(p3p7*p3p6
3066      . )*(-ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+ffmcfmb
3067      . *hbcm2-fmc*hbcm)+8*(p6p7*p1p3)*(-ffmcfmb**2*hbcm2-2*ffmcfmb*
3068      . fmb*hbcm-fmb2+hbcm2)+8*p6p7*(ffmcfmb**2*fmb*hbcm3+ffmcfmb**2*
3069      . fmc*hbcm3+ffmcfmb**2*hbcm4+ffmcfmb*fmb2*hbcm2-2*ffmcfmb*fmc*
3070      . hbcm3-ffmcfmb*fmc2*hbcm2-ffmcfmb*hbcm4-fmb*fmc2*hbcm-fmb2*fmc*
3071      . hbcm+fmc*hbcm3+fmc2*hbcm2)+16*(p1p2*p1p3*p6p7-p1p3*p2p3*p6p7-
3072      . p1p3*p2p4*p6p7))+ans5
3073       ans1=w8*((p4p6*p3p7*p2p3)*(-16*ffmcfmb+16)+16*(p6p7*p2p4)*(
3074      . ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(p6p7*p1p2)*(-ffmcfmb*hbcm2-
3075      . fmb*hbcm+hbcm2)+(p3p7*p3p6*p2p3)*(16*ffmcfmb**2-32*ffmcfmb+16)
3076      . +8*(p6p7*p2p3)*(ffmcfmb**2*hbcm2+2*ffmcfmb*fmb*hbcm+fmb2-hbcm2
3077      . )+16*(-p1p2*p2p3*p6p7+p2p3*p2p4*p6p7+p2p3s2*p6p7))+ans2+ans4
3078       ans=ccc*ans1
3079       b(4)=ans
3080       ans4=8*p3p7*(-ffmcfmb**2*fmb*hbcm3-ffmcfmb**2*hbcm4-ffmcfmb*fmb
3081      . *fmc*hbcm2+ffmcfmb*fmb*hbcm3-ffmcfmb*fmb2*hbcm2-ffmcfmb*fmc*
3082      . hbcm3-2*ffmcfmb*fmc2*hbcm2+ffmcfmb*hbcm4-2*ffmcfmb*p1p3s2+fmb*
3083      . fmc*hbcm2-fmb*fmc2*hbcm+fmc*hbcm3+2*fmc2*hbcm2+2*p1p3s2)+16*(-
3084      . ffmcfmb*hbcm2*p2p3*p5p7+ffmcfmb*hbcm2*p2p5*p3p7+hbcm2*p2p4*
3085      . p5p7-hbcm2*p2p5*p4p7+p1p3*p2p3*p5p7-p1p3*p2p5*p3p7-p2p3*p3p4*
3086      . p5p7+p2p5*p3p4*p3p7)
3087       ans3=(p3p7*p3p5*p3p4)*(-16*ffmcfmb+16)+(p3p7*p3p4*p2p3)*(16*
3088      . ffmcfmb-16)+(p3p7*p3p5*p1p3)*(16*ffmcfmb-16)+(p3p7*p3p4*p1p3)*
3089      . (16*ffmcfmb-16)+(p3p7*p2p3*p1p3)*(-16*ffmcfmb+16)+16*(p4p7*
3090      . p3p5)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+24*(p5p7*p3p4)*(ffmcfmb*
3091      . hbcm2+fmb*hbcm-hbcm2)+16*(p4p7*p2p3)*(ffmcfmb*hbcm2+fmb*hbcm-
3092      . hbcm2)+16*(p3p7*p1p4)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(p5p7*
3093      . p1p3)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*p5p7*(ffmcfmb**2*hbcm4
3094      . +ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*hbcm3-ffmcfmb*hbcm4+fmb*fmc*
3095      . hbcm2-fmc*hbcm3)+8*p4p7*(ffmcfmb**2*hbcm4+2*ffmcfmb*fmb*hbcm3-
3096      . 2*ffmcfmb*hbcm4-2*fmb*hbcm3+fmb2*hbcm2+hbcm4)+16*(p3p7*p3p5)*(
3097      . -ffmcfmb**2*hbcm2-ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2+fmc*hbcm)+8*(
3098      . p3p7*p3p4)*(-2*ffmcfmb**2*hbcm2-4*ffmcfmb*fmb*hbcm-ffmcfmb*fmc
3099      . *hbcm+ffmcfmb*hbcm2+3*fmb*hbcm-fmb2+fmc*hbcm+hbcm2)+16*(p3p7*
3100      . p2p3)*(ffmcfmb**2*hbcm2+ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2-fmc*
3101      . hbcm)+8*(p3p7*p1p3)*(2*ffmcfmb**2*hbcm2+2*ffmcfmb*fmb*hbcm+
3102      . ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2-fmb*hbcm+fmb2-fmc*hbcm-hbcm2)+
3103      . ans4
3104       ans2=w5*ans3
3105       ans6=((p3p7*p3p5)*(32*fb2*ffmcfmb-32*fb2+8)+(p3p7*p2p3)*(-32*
3106      . fb2*ffmcfmb+32*fb2-8)+(p3p7*p1p3)*(-32*fb2*ffmcfmb+32*fb2-8)+4
3107      . *p5p7*(-4*fb1*fmb*hbcm-4*fb2*ffmcfmb*hbcm2+4*fb2*hbcm2+hbcm2)+
3108      . 4*p3p7*(4*fb1*ffmcfmb*fmc*hbcm-4*fb1*fmb*hbcm-4*fb1*fmc*hbcm+4
3109      . *fb2*ffmcfmb*hbcm2+4*fb2*fmb2-4*fb2*hbcm2+2*ffmcfmb*hbcm2+2*
3110      . fmb*hbcm-fmc*hbcm+hbcm2)+32*(fb2*p2p3*p5p7-fb2*p2p5*p3p7))
3111       ans5=w12*((p3p7*p3p5*p1p3)*(16*ffmcfmb-16)+(p3p7*p2p3*p1p3)*(-
3112      . 16*ffmcfmb+16)+16*(p3p7*p2p5)*(ffmcfmb*hbcm2-fmc*hbcm)+16*(
3113      . p5p7*p2p3)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(p5p7*p1p3)*(-ffmcfmb*
3114      . hbcm2-fmb*hbcm+hbcm2)+8*p5p7*(ffmcfmb**2*hbcm4+ffmcfmb*fmb*
3115      . hbcm3-ffmcfmb*fmc*hbcm3-ffmcfmb*hbcm4-fmb*fmc*hbcm2+fmc*hbcm3)
3116      . +16*(p3p7*p3p5)*(-ffmcfmb**2*hbcm2+ffmcfmb*fmc*hbcm+ffmcfmb*
3117      . hbcm2-fmc*hbcm)+16*(p3p7*p2p3)*(ffmcfmb**2*hbcm2-ffmcfmb*fmc*
3118      . hbcm-ffmcfmb*hbcm2+fmc*hbcm)+8*(p3p7*p1p3)*(2*ffmcfmb**2*hbcm2
3119      . +2*ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2-fmb*hbcm+
3120      . fmb2+fmc*hbcm-hbcm2)+8*p3p7*(-ffmcfmb**2*fmb*hbcm3-ffmcfmb**2*
3121      . fmc*hbcm3-ffmcfmb**2*hbcm4+ffmcfmb*fmb*hbcm3-ffmcfmb*fmb2*
3122      . hbcm2+2*ffmcfmb*fmc*hbcm3+ffmcfmb*fmc2*hbcm2+ffmcfmb*hbcm4-2*
3123      . ffmcfmb*p1p3s2-fmb*fmc*hbcm2+fmb*fmc2*hbcm+fmb2*fmc*hbcm-fmc*
3124      . hbcm3-fmc2*hbcm2+2*p1p3s2)+16*(p1p3*p2p3*p5p7-p1p3*p2p5*p3p7))
3125      . +ans6
3126       ans1=w8*(16*p3p7*(ffmcfmb*p2p3s2-p2p3s2)+(p3p7*p3p5*p2p3)*(-16*
3127      . ffmcfmb+16)+(p3p7*p2p3*p1p3)*(16*ffmcfmb-16)+16*(p3p7*p2p5)*(2
3128      . *ffmcfmb*hbcm2+fmb*hbcm-2*hbcm2)+24*(p5p7*p2p3)*(-ffmcfmb*
3129      . hbcm2-fmb*hbcm+hbcm2)+16*(p3p7*p1p2)*(-ffmcfmb*hbcm2+hbcm2)+8*
3130      . (p3p7*p2p3)*(ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2-fmb*hbcm-fmb2-fmc*
3131      . hbcm+hbcm2)+16*(p2p3*p2p5*p3p7-p2p3s2*p5p7))+ans2+ans5
3132       ans=ccc*ans1
3133       b(5)=ans
3134       ans3=w12*(16*(p3p6*p2p5)*(2*ffmcfmb*hbcm2-fmc*hbcm)+16*(p4p6*
3135      . p2p3)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(p4p6*p1p3)*(-ffmcfmb*hbcm2-
3136      . fmb*hbcm+hbcm2)+8*(p3p6*p1p3)*(ffmcfmb*fmb*hbcm-fmb*hbcm+fmb2)
3137      . +8*p4p6*(ffmcfmb**2*hbcm4+ffmcfmb*fmb*hbcm3-ffmcfmb*fmc*hbcm3-
3138      . ffmcfmb*hbcm4-fmb*fmc*hbcm2+fmc*hbcm3)+16*(p3p6*p3p5)*(ffmcfmb
3139      . **2*hbcm2+ffmcfmb*fmb*hbcm-ffmcfmb*hbcm2)+16*(p3p6*p2p3)*(-
3140      . ffmcfmb**2*hbcm2+ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2)+8*p3p6*(-
3141      . ffmcfmb**2*fmb*hbcm3-ffmcfmb**2*fmc*hbcm3+ffmcfmb**2*hbcm4+2*
3142      . ffmcfmb*fmb*hbcm3-ffmcfmb*fmb2*hbcm2+ffmcfmb*fmc*hbcm3+ffmcfmb
3143      . *fmc2*hbcm2-ffmcfmb*hbcm4-fmb*fmc*hbcm2+fmb*fmc2*hbcm+fmb2*fmc
3144      . *hbcm-fmc2*hbcm2)+16*(-ffmcfmb*hbcm2*p1p2*p3p6+ffmcfmb*p1p3*
3145      . p2p3*p3p6+p1p3*p2p3*p4p6-p1p3*p2p5*p3p6))+((p3p6*p2p3)*(32*fb2
3146      . *ffmcfmb+8)+4*p4p6*(-4*fb1*fmb*hbcm-4*fb2*ffmcfmb*hbcm2+4*fb2*
3147      . hbcm2+hbcm2)+4*p3p6*(4*fb1*ffmcfmb*fmb*hbcm-4*fb1*fmb*hbcm+4*
3148      . fb2*fmb2+2*ffmcfmb*hbcm2+3*fmb*hbcm-2*hbcm2)+32*(fb2*p2p3*p4p6
3149      . -fb2*p2p5*p3p6))
3150       ans2=w5*(32*(p4p6*p3p5)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+24*(p4p6
3151      . *p3p4)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(p4p6*p2p3)*(-2*
3152      . ffmcfmb*hbcm2-fmb*hbcm+2*hbcm2)+16*(p3p6*p1p4)*(ffmcfmb*hbcm2+
3153      . fmb*hbcm-hbcm2)+24*(p4p6*p1p3)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)
3154      . +8*(p3p6*p3p4)*(-ffmcfmb*fmb*hbcm+fmb*hbcm-fmb2)+8*(p3p6*p1p3)
3155      . *(ffmcfmb*fmb*hbcm-fmb*hbcm+fmb2)+8*p4p6*(ffmcfmb**2*hbcm4+
3156      . ffmcfmb*hbcm4+3*fmb*hbcm3-fmb2*hbcm2-2*hbcm4)+16*(p3p6*p3p5)*(
3157      . ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm-ffmcfmb*hbcm2)+16*(p3p6*p2p3
3158      . )*(-ffmcfmb**2*hbcm2+ffmcfmb*hbcm2)+8*p3p6*(-ffmcfmb**2*fmb*
3159      . hbcm3+ffmcfmb**2*hbcm4+2*ffmcfmb*fmb*hbcm3-ffmcfmb*fmb2*hbcm2-
3160      . ffmcfmb*fmc2*hbcm2-ffmcfmb*hbcm4-fmb*fmc2*hbcm+fmc2*hbcm2)+16*
3161      . (-ffmcfmb*hbcm2*p1p2*p3p6+ffmcfmb*hbcm2*p2p4*p3p6+2*ffmcfmb*
3162      . hbcm2*p2p5*p3p6+ffmcfmb*p1p3*p2p3*p3p6-ffmcfmb*p2p3*p3p4*p3p6-
3163      . hbcm2*p1p2*p4p6+hbcm2*p2p4*p4p6+2*hbcm2*p2p5*p4p6+p1p3*p2p3*
3164      . p4p6-p1p3*p2p5*p3p6-p2p3*p3p4*p4p6+p2p5*p3p4*p3p6))+ans3
3165       ans1=w8*(16*(p3p6*p2p5)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+24*(p4p6
3166      . *p2p3)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(p3p6*p2p3)*(-2*
3167      . ffmcfmb**2*hbcm2-3*ffmcfmb*fmb*hbcm+2*ffmcfmb*hbcm2+fmb*hbcm-
3168      . fmb2)+16*(-ffmcfmb*p2p3s2*p3p6+p2p3*p2p5*p3p6-p2p3s2*p4p6))+
3169      . ans2
3170       ans=ccc*ans1
3171       b(6)=ans
3172       ans2=w12*(24*p2p5*(-ffmcfmb*hbcm2+fmc*hbcm)+8*p2p3*(-ffmcfmb*
3173      . hbcm2+fmc*hbcm)+8*p1p2*(ffmcfmb*hbcm2-fmc*hbcm)+4*p1p3*(-
3174      . ffmcfmb**2*hbcm2-3*ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm-fmb*fmc+
3175      . fmb*hbcm-2*fmb2+fmc*hbcm+hbcm2)+4*(2*ffmcfmb**2*fmb*hbcm3+2*
3176      . ffmcfmb**2*fmc*hbcm3+ffmcfmb**2*hbcm4-ffmcfmb*fmb*hbcm3+2*
3177      . ffmcfmb*fmb2*hbcm2-3*ffmcfmb*fmc*hbcm3-2*ffmcfmb*fmc2*hbcm2-
3178      . ffmcfmb*hbcm4+fmb*fmc*hbcm2-2*fmb*fmc2*hbcm-2*fmb2*fmc*hbcm+
3179      . fmc*hbcm3+2*fmc2*hbcm2-2*p1p2*p1p3+2*p1p3*p2p3+6*p1p3*p2p5))+2
3180      . *(-4*fb1*ffmcfmb*fmb*hbcm-4*fb1*ffmcfmb*fmc*hbcm+4*fb1*fmb*
3181      . hbcm+4*fb1*fmc*hbcm+4*fb2*ffmcfmb**2*hbcm2-8*fb2*ffmcfmb*hbcm2
3182      . -4*fb2*fmb*fmc-8*fb2*fmb2+4*fb2*hbcm2-8*fb2*p1p2+8*fb2*p2p3+24
3183      . *fb2*p2p5-2*ffmcfmb*hbcm2-3*fmb*hbcm-fmc*hbcm+2*hbcm2)
3184       ans1=w8*(24*p2p5*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*p1p2*(
3185      . ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+4*p2p3*(ffmcfmb**2*hbcm2+3*
3186      . ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm-4*ffmcfmb*hbcm2+fmb*fmc-5*
3187      . fmb*hbcm+2*fmb2-fmc*hbcm+3*hbcm2)+8*(p1p2*p2p3-3*p2p3*p2p5-
3188      . p2p3s2))+w5*(8*p2p5*(-3*ffmcfmb*hbcm2-fmc*hbcm)+8*p2p4*(-
3189      . ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*p1p4*(-ffmcfmb*hbcm2-fmb*hbcm
3190      . +hbcm2)+4*p3p4*(ffmcfmb**2*hbcm2+3*ffmcfmb*fmb*hbcm+ffmcfmb*
3191      . fmc*hbcm+2*ffmcfmb*hbcm2+fmb*fmc+fmb*hbcm+2*fmb2-fmc*hbcm-3*
3192      . hbcm2)+4*p1p3*(-ffmcfmb**2*hbcm2-3*ffmcfmb*fmb*hbcm-ffmcfmb*
3193      . fmc*hbcm-fmb*fmc+fmb*hbcm-2*fmb2+fmc*hbcm+hbcm2)+4*(2*ffmcfmb
3194      . **2*fmb*hbcm3+ffmcfmb**2*hbcm4+ffmcfmb*fmb*fmc*hbcm2-ffmcfmb*
3195      . fmb*hbcm3+2*ffmcfmb*fmb2*hbcm2+ffmcfmb*fmc*hbcm3+3*ffmcfmb*
3196      . fmc2*hbcm2+2*ffmcfmb*hbcm2*p1p2-2*ffmcfmb*hbcm2*p2p3-ffmcfmb*
3197      . hbcm4+3*fmb*fmc2*hbcm+fmb2*fmc*hbcm-fmc*hbcm3-3*fmc2*hbcm2-2*
3198      . p1p2*p1p3+2*p1p2*p3p4+2*p1p3*p2p3+6*p1p3*p2p5-2*p2p3*p3p4-6*
3199      . p2p5*p3p4))+ans2
3200       ans=ccc*ans1
3201       b(7)=ans
3202       ans4=4*(ffmcfmb**2*fmb*hbcm4-2*ffmcfmb**2*hbcm5+ffmcfmb*fmb*fmc
3203      . *hbcm3-3*ffmcfmb*fmb*hbcm4+ffmcfmb*fmb2*hbcm3-ffmcfmb*fmc*
3204      . hbcm4-2*ffmcfmb*fmc2*hbcm3-2*ffmcfmb*hbcm*p1p3s2+2*ffmcfmb*
3205      . hbcm3*p1p2+2*ffmcfmb*hbcm5-2*fmb*fmc*hbcm3-2*fmb*fmc2*hbcm2-2*
3206      . fmb*p1p3s2+fmb2*fmc*hbcm2+fmc*hbcm4+2*fmc2*hbcm3-2*hbcm*p1p2*
3207      . p1p3+2*hbcm*p1p2*p3p4+4*hbcm*p1p3*p2p5+2*hbcm*p1p3s2-4*hbcm*
3208      . p1p4*p2p3-4*hbcm*p2p3*p2p4+4*hbcm*p2p4*p3p5-8*hbcm*p2p5*p3p4)
3209       ans3=8*p2p5*(-2*ffmcfmb*hbcm3-fmc*hbcm2)+8*p2p4*(-ffmcfmb*hbcm3
3210      . +fmb*hbcm2+hbcm3)+8*p1p4*(ffmcfmb*hbcm3+fmb*hbcm2-hbcm3)+16*(
3211      . p3p5*p3p4)*(-ffmcfmb*hbcm-fmb+hbcm)+8*(p3p4*p2p3)*(3*ffmcfmb*
3212      . hbcm+fmb-2*hbcm)+16*(p3p5*p1p3)*(ffmcfmb*hbcm+fmb-hbcm)+8*(
3213      . p3p4*p1p3)*(ffmcfmb*hbcm+fmb-hbcm)+8*(p2p3*p1p3)*(-3*ffmcfmb*
3214      . hbcm-fmb+2*hbcm)+8*p3p5*(-2*ffmcfmb**2*hbcm3-2*ffmcfmb*fmb*
3215      . hbcm2-ffmcfmb*fmc*hbcm2+2*ffmcfmb*hbcm3-fmb*fmc*hbcm+fmc*hbcm2
3216      . )+4*p3p4*(-2*ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*
3217      . hbcm2-fmb*fmc*hbcm-5*fmb*hbcm2+3*fmb2*hbcm+fmc*hbcm2+2*hbcm3)+
3218      . 8*p2p3*(2*ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2
3219      . -2*ffmcfmb*hbcm3+fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+4*p1p3*(2*
3220      . ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+fmb*fmc*
3221      . hbcm+3*fmb*hbcm2-fmb2*hbcm-fmc*hbcm2-2*hbcm3)+ans4
3222       ans2=w5*ans3
3223       ans6=(8*p3p5*(4*fb1*ffmcfmb*hbcm-4*fb1*hbcm+4*fb2*fmb+hbcm)+4*
3224      . p2p3*(-4*fb1*ffmcfmb*hbcm+8*fb1*hbcm-4*fb2*fmb-3*hbcm)+4*p1p3*
3225      . (-4*fb1*ffmcfmb*hbcm+4*fb1*hbcm-4*fb2*fmb-hbcm)+2*(8*fb1*
3226      . ffmcfmb*hbcm3+4*fb1*fmb*fmc*hbcm-4*fb1*fmb2*hbcm-8*fb1*hbcm*
3227      . p1p2+16*fb1*hbcm*p2p5-8*fb1*hbcm3-4*fb2*ffmcfmb*fmb*hbcm2+4*
3228      . fb2*ffmcfmb*fmc*hbcm2+12*fb2*fmb*hbcm2-4*fb2*fmc*hbcm2+fmb*
3229      . hbcm2-fmc*hbcm2+2*hbcm3))
3230       ans5=w12*(16*p2p5*(-ffmcfmb*hbcm3+fmc*hbcm2)+8*p1p2*(ffmcfmb*
3231      . hbcm3-fmc*hbcm2)+16*(p3p5*p1p3)*(ffmcfmb*hbcm+fmb-hbcm)+8*(
3232      . p2p3*p1p3)*(-3*ffmcfmb*hbcm-fmb+2*hbcm)+16*p3p5*(-ffmcfmb**2*
3233      . hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3+fmb*
3234      . fmc*hbcm-fmc*hbcm2)+8*p2p3*(2*ffmcfmb**2*hbcm3+ffmcfmb*fmb*
3235      . hbcm2-ffmcfmb*fmc*hbcm2-2*ffmcfmb*hbcm3-fmb*fmc*hbcm+2*fmc*
3236      . hbcm2-fmc2*hbcm)+4*p1p3*(2*ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2-
3237      . ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm+3*fmb*hbcm2-fmb2*hbcm+fmc*hbcm2
3238      . -2*hbcm3)+4*(ffmcfmb**2*fmb*hbcm4-ffmcfmb**2*fmc*hbcm4-2*
3239      . ffmcfmb**2*hbcm5-2*ffmcfmb*fmb*fmc*hbcm3-3*ffmcfmb*fmb*hbcm4+
3240      . ffmcfmb*fmb2*hbcm3+3*ffmcfmb*fmc*hbcm4+ffmcfmb*fmc2*hbcm3-2*
3241      . ffmcfmb*hbcm*p1p3s2+2*ffmcfmb*hbcm5+3*fmb*fmc*hbcm3+fmb*fmc2*
3242      . hbcm2-2*fmb*p1p3s2-fmb2*fmc*hbcm2-2*fmc*hbcm4-fmc2*hbcm3-2*
3243      . hbcm*p1p2*p1p3+4*hbcm*p1p3*p2p5+2*hbcm*p1p3s2))+ans6
3244       ans1=w8*(16*p2p5*(ffmcfmb*hbcm3+fmb*hbcm2-hbcm3)+8*p1p2*(-
3245      . ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+16*(p3p5*p2p3)*(-ffmcfmb*hbcm-
3246      . fmb+hbcm)+8*(p2p3*p1p3)*(ffmcfmb*hbcm+fmb-hbcm)+4*p2p3*(2*
3247      . ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2-4*ffmcfmb
3248      . *hbcm3+fmb*fmc*hbcm+fmb*hbcm2-3*fmb2*hbcm-fmc*hbcm2+2*hbcm3)+8
3249      . *(3*ffmcfmb*hbcm*p2p3s2+fmb*p2p3s2-hbcm*p1p2*p2p3+2*hbcm*p2p3*
3250      . p2p5-2*hbcm*p2p3s2))+ans2+ans5
3251       ans=ccc*ans1
3252       b(8)=ans
3253       b(9)=ccc*(w8*(16*p4p6*(ffmcfmb*hbcm3+fmb*hbcm2-hbcm3)+8*(p3p6*
3254      . p2p3)*(2*ffmcfmb*hbcm-hbcm)+8*p3p6*(ffmcfmb**2*hbcm3-ffmcfmb*
3255      . hbcm3+fmb*hbcm2-fmb2*hbcm)+16*hbcm*p2p3*p4p6)+w5*(8*p4p6*(-fmb
3256      . *hbcm2-4*hbcm3)+8*p3p6*(ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2-3*
3257      . ffmcfmb*hbcm3+fmc2*hbcm)+8*(2*ffmcfmb*hbcm*p2p3*p3p6-4*ffmcfmb
3258      . *hbcm*p3p5*p3p6+hbcm*p1p3*p3p6+4*hbcm*p1p3*p4p6-2*hbcm*p1p4*
3259      . p3p6+4*hbcm*p2p3*p4p6-hbcm*p3p4*p3p6-4*hbcm*p3p4*p4p6-6*hbcm*
3260      . p3p5*p4p6))+w12*(16*p4p6*(-ffmcfmb*hbcm3+fmc*hbcm2)+8*p3p6*(
3261      . ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2-3*ffmcfmb
3262      . *hbcm3+fmc*hbcm2-fmc2*hbcm)+8*(2*ffmcfmb*hbcm*p2p3*p3p6-4*
3263      . ffmcfmb*hbcm*p3p5*p3p6+hbcm*p1p3*p3p6+2*hbcm*p1p3*p4p6))+(8*
3264      . p3p6*(2*fb1*hbcm-hbcm)+32*fb1*hbcm*p4p6))
3265       b(10)=ccc*(w8*((p3p6*p2p3)*(8*ffmcfmb+8)+24*p4p6*(ffmcfmb*hbcm2
3266      . +fmb*hbcm-hbcm2)+8*p3p6*(ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm+fmb
3267      . *hbcm-hbcm2)+24*p2p3*p4p6)+w5*((p3p6*p3p4)*(8*ffmcfmb+8)+(p3p6
3268      . *p1p3)*(-8*ffmcfmb-8)+8*p4p6*(3*ffmcfmb*hbcm2-fmb*hbcm)+8*p3p6
3269      . *(ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm+ffmcfmb*hbcm2)+24*(-p1p3*
3270      . p4p6+p3p4*p4p6))+w12*((p3p6*p1p3)*(-8*ffmcfmb-8)+24*p4p6*(
3271      . ffmcfmb*hbcm2-fmc*hbcm)+8*p3p6*(ffmcfmb**2*hbcm2-ffmcfmb*fmb*
3272      . hbcm-2*ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-fmc*hbcm)-24*p1p3*p4p6)+
3273      . (p3p6*(-16*fb2*ffmcfmb-16*fb2-4)-48*fb2*p4p6))
3274       ans2=4*(-2*fb1*fmb*hbcm-2*fb1*fmc*hbcm+4*fb2*ffmcfmb*hbcm2-8*
3275      . fb2*hbcm2+4*fb2*p1p3+8*fb2*p2p3-12*fb2*p3p5-hbcm2)
3276       ans1=w8*(24*p3p5*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+4*p2p3*(-4*
3277      . ffmcfmb*hbcm2-5*fmb*hbcm-fmc*hbcm+6*hbcm2)+8*p1p3*(-ffmcfmb*
3278      . hbcm2-fmb*hbcm+hbcm2)+4*(-ffmcfmb**2*hbcm4-3*ffmcfmb*fmb*hbcm3
3279      . -ffmcfmb*fmc*hbcm3+4*ffmcfmb*hbcm4-fmb*fmc*hbcm2+5*fmb*hbcm3-2
3280      . *fmb2*hbcm2+fmc*hbcm3-3*hbcm4-2*p1p3*p2p3+6*p2p3*p3p5-4*p2p3s2
3281      . ))+w5*(4*p3p4*(fmb*hbcm+fmc*hbcm+6*hbcm2)+8*p3p5*(3*ffmcfmb*
3282      . hbcm2+fmc*hbcm)+8*p2p3*(-2*ffmcfmb*hbcm2-fmc*hbcm)+4*p1p3*(-2*
3283      . ffmcfmb*hbcm2-fmb*hbcm-fmc*hbcm-4*hbcm2)+4*(-ffmcfmb**2*hbcm4+
3284      . ffmcfmb*fmb*hbcm3-ffmcfmb*fmc*hbcm3+4*ffmcfmb*hbcm4+2*fmc*
3285      . hbcm3+3*fmc2*hbcm2-4*hbcm2*p1p4-2*hbcm2*p2p4+4*p1p3*p2p3-2*
3286      . p1p3*p3p4-6*p1p3*p3p5+2*p1p3s2-4*p2p3*p3p4+6*p3p4*p3p5))+w12*(
3287      . 24*p3p5*(ffmcfmb*hbcm2-fmc*hbcm)+16*p2p3*(-ffmcfmb*hbcm2+fmc*
3288      . hbcm)+4*p1p3*(-2*ffmcfmb*hbcm2-fmb*hbcm+fmc*hbcm-4*hbcm2)+4*(-
3289      . ffmcfmb**2*hbcm4+ffmcfmb*fmb*hbcm3+3*ffmcfmb*fmc*hbcm3+4*
3290      . ffmcfmb*hbcm4-fmb*fmc*hbcm2-4*fmc*hbcm3-2*fmc2*hbcm2+4*p1p3*
3291      . p2p3-6*p1p3*p3p5+2*p1p3s2))+ans2
3292       ans=ccc*ans1
3293       b(11)=ans
3294       ans=ccc*(w8*(16*p5p7*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+32*(p3p7*
3295      . p3p5)*(ffmcfmb*hbcm-hbcm)+8*(p3p7*p2p3)*(-4*ffmcfmb*hbcm+3*
3296      . hbcm)+16*(p3p7*p1p3)*(-ffmcfmb*hbcm+hbcm)+8*p3p7*(-ffmcfmb**2*
3297      . hbcm3+ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2+3*ffmcfmb*hbcm3-2*
3298      . fmb*hbcm2+fmb2*hbcm+fmc*hbcm2-2*hbcm3)-16*hbcm*p2p3*p5p7)+w5*(
3299      . 8*p5p7*(2*ffmcfmb*hbcm3+fmc*hbcm2)+16*p4p7*(ffmcfmb*hbcm3-
3300      . hbcm3)+8*(p3p7*p3p4)*(-4*ffmcfmb*hbcm+3*hbcm)+8*(p3p7*p1p3)*(2
3301      . *ffmcfmb*hbcm-hbcm)+8*p3p7*(-ffmcfmb**2*hbcm3-ffmcfmb*fmc*
3302      . hbcm2+ffmcfmb*hbcm3+fmc*hbcm2-fmc2*hbcm)+16*(-hbcm*p1p3*p5p7+
3303      . hbcm*p1p4*p3p7+hbcm*p2p3*p4p7+2*hbcm*p3p4*p5p7-hbcm*p3p5*p4p7)
3304      . )+w12*(16*p5p7*(ffmcfmb*hbcm3-fmc*hbcm2)+8*(p3p7*p1p3)*(2*
3305      . ffmcfmb*hbcm-hbcm)+8*p3p7*(-ffmcfmb**2*hbcm3+ffmcfmb*hbcm3-fmc
3306      . *hbcm2+fmc2*hbcm)-16*hbcm*p1p3*p5p7)+(8*p3p7*(-2*fb1*hbcm+hbcm
3307      . )-32*fb1*hbcm*p5p7))
3308       b(12)=ans
3309       b(13)=ccc*(w8*(4*p2p3*(-4*ffmcfmb*hbcm+fmb-fmc+4*hbcm)+4*(-2*
3310      . ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2+4*ffmcfmb
3311      . *hbcm3-fmb*fmc*hbcm-fmb*hbcm2+3*fmb2*hbcm+fmc*hbcm2-2*hbcm3))+
3312      . w5*(4*p3p4*(-4*ffmcfmb*hbcm+fmb-fmc-2*hbcm)+4*p1p3*(4*ffmcfmb*
3313      . hbcm-fmb+fmc)+4*(-2*ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2-ffmcfmb
3314      . *fmc*hbcm2-4*fmc2*hbcm+6*hbcm*p1p4+2*hbcm*p2p4))+w12*(4*p1p3*(
3315      . 4*ffmcfmb*hbcm-fmb+fmc)+4*(-2*ffmcfmb**2*hbcm3+ffmcfmb*fmb*
3316      . hbcm2-ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm+3*fmc2*hbcm))+8*(-fb2*fmb
3317      . +fb2*fmc+hbcm))
3318       b(14)=ccc*(w8*((p3p7*p2p3)*(-8*ffmcfmb+16)+24*p5p7*(ffmcfmb*
3319      . hbcm2+fmb*hbcm-hbcm2)+8*p3p7*(-ffmcfmb**2*hbcm2-2*ffmcfmb*fmb*
3320      . hbcm-ffmcfmb*fmc*hbcm+3*ffmcfmb*hbcm2+3*fmb*hbcm+fmc*hbcm-2*
3321      . hbcm2)+24*p2p3*p5p7)+w5*((p3p7*p3p4)*(-8*ffmcfmb+16)+(p3p7*
3322      . p1p3)*(8*ffmcfmb-16)+8*p5p7*(3*ffmcfmb*hbcm2+fmc*hbcm)+8*p3p7*
3323      . (-ffmcfmb**2*hbcm2-ffmcfmb*fmc*hbcm+2*ffmcfmb*hbcm2+fmc*hbcm)+
3324      . 24*(-p1p3*p5p7+p3p4*p5p7))+w12*((p3p7*p1p3)*(8*ffmcfmb-16)+24*
3325      . p5p7*(ffmcfmb*hbcm2-fmc*hbcm)+8*p3p7*(-ffmcfmb**2*hbcm2+
3326      . ffmcfmb*fmc*hbcm+2*ffmcfmb*hbcm2-2*fmc*hbcm)-24*p1p3*p5p7)+(
3327      . p3p7*(16*fb2*ffmcfmb-32*fb2+4)-48*fb2*p5p7))
3328       ans2=w12*((p3p7*p3p6*p1p3)*(-32*ffmcfmb+16)+16*(p4p6*p3p7)*(
3329      . ffmcfmb*hbcm2-fmc*hbcm)+16*(p5p7*p3p6)*(-2*ffmcfmb*hbcm2+fmc*
3330      . hbcm)+16*(p6p7*p3p4)*(-ffmcfmb*hbcm2+fmc*hbcm)+16*(p6p7*p1p3)*
3331      . (ffmcfmb*hbcm2-fmc*hbcm)+8*p6p7*(-ffmcfmb**2*hbcm4+2*ffmcfmb*
3332      . fmc*hbcm3-fmc2*hbcm2-2*p1p3s2)+16*(p3p7*p3p6)*(ffmcfmb**2*
3333      . hbcm2-2*ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2+fmc*hbcm)+16*(p1p3*p3p4
3334      . *p6p7+p1p3*p3p6*p5p7-p1p3*p3p7*p4p6))+((p3p7*p3p6)*(-64*fb2*
3335      . ffmcfmb+32*fb2-16)+8*p6p7*(4*fb2*ffmcfmb*hbcm2-hbcm2)+32*(-fb2
3336      . *p1p3*p6p7+fb2*p3p4*p6p7+fb2*p3p6*p5p7-fb2*p3p7*p4p6))
3337       ans1=w8*((p3p7*p3p6*p2p3)*(32*ffmcfmb-16)+16*(p4p6*p3p7)*(2*
3338      . ffmcfmb*hbcm2+fmb*hbcm-2*hbcm2)+16*(p5p7*p3p6)*(-ffmcfmb*hbcm2
3339      . -fmb*hbcm+hbcm2)+16*(p6p7*p3p4)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2
3340      . )+16*(p6p7*p1p3)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*p6p7*(-
3341      . ffmcfmb**2*hbcm4-2*ffmcfmb*fmb*hbcm3-fmb2*hbcm2+hbcm4)+16*(
3342      . p3p7*p3p6)*(ffmcfmb**2*hbcm2+2*ffmcfmb*fmb*hbcm-ffmcfmb*hbcm2-
3343      . fmb*hbcm)+16*(-hbcm2*p2p3*p6p7+p1p3*p2p3*p6p7-p2p3*p3p4*p6p7-
3344      . p2p3*p3p6*p5p7+p2p3*p3p7*p4p6))+w5*((p3p7*p3p6*p3p4)*(32*
3345      . ffmcfmb-16)+(p3p7*p3p6*p1p3)*(-32*ffmcfmb+16)+16*(p4p6*p3p7)*(
3346      . ffmcfmb*hbcm2-hbcm2)+8*p6p7*(-ffmcfmb**2*hbcm4+fmc2*hbcm2-2*
3347      . p1p3s2-2*p3p4s2)+16*(p3p7*p3p6)*(ffmcfmb**2*hbcm2-ffmcfmb*
3348      . hbcm2)+16*(ffmcfmb*hbcm2*p1p3*p6p7-ffmcfmb*hbcm2*p3p4*p6p7-
3349      . ffmcfmb*hbcm2*p3p6*p4p7-2*ffmcfmb*hbcm2*p3p6*p5p7-hbcm2*p1p4*
3350      . p6p7-hbcm2*p4p6*p4p7-2*hbcm2*p4p6*p5p7+2*p1p3*p3p4*p6p7+p1p3*
3351      . p3p6*p5p7-p1p3*p3p7*p4p6-p3p4*p3p6*p5p7+p3p4*p3p7*p4p6))+ans2
3352       ans=ccc*ans1
3353       b(15)=ans
3354       b(16)=ccc*(w8*(32*(p4p6*p3p7)*(ffmcfmb*hbcm-hbcm)+16*(p3p7*p3p6
3355      . )*(ffmcfmb*hbcm-hbcm)+16*(p6p7*p2p3)*(ffmcfmb*hbcm-hbcm)+8*
3356      . p6p7*(ffmcfmb**2*hbcm3-2*ffmcfmb*hbcm3-fmb2*hbcm+hbcm3))+w5*(
3357      . 16*(p4p6*p3p7)*(ffmcfmb*hbcm-2*hbcm)+8*p6p7*(ffmcfmb**2*hbcm3+
3358      . fmc2*hbcm)+16*(-ffmcfmb*hbcm*p1p3*p6p7+ffmcfmb*hbcm*p3p4*p6p7-
3359      . ffmcfmb*hbcm*p3p6*p3p7-ffmcfmb*hbcm*p3p6*p4p7-2*ffmcfmb*hbcm*
3360      . p3p6*p5p7-hbcm*p1p4*p6p7-hbcm*p4p6*p4p7-3*hbcm*p4p6*p5p7))+w12
3361      . *(8*p6p7*(ffmcfmb**2*hbcm3-fmc2*hbcm)+16*(-ffmcfmb*hbcm*p1p3*
3362      . p6p7-ffmcfmb*hbcm*p3p6*p3p7-2*ffmcfmb*hbcm*p3p6*p5p7))-8*hbcm*
3363      . p6p7)
3364       do 200 n=1,16
3365          c(n,1)=c(n,1)-0.1818181818181818d0*b(n)
3366          c(n,2)=c(n,2)-0.05883183899358491d0*b(n)
3367          c(n,3)=c(n,3)-0.2077659977796572d0*b(n)
3368 200   continue
3369       return
3370       end
3371
3372       subroutine amp20_3p0(cc)
3373       implicit double precision(a-h,o-z)
3374       implicit integer (i-n)
3375       dimension b(16)
3376 #include "inclcon.h"
3377 #include "inclppp.h"
3378 #include "inclamp.h"
3379       do 100 n=1,16
3380          b(n)=0.0d0
3381 100   continue
3382       ccc=cc/((ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2)*(ffmcfmb**2*
3383      . hbcm2-2*ffmcfmb*hbcm2+2*ffmcfmb*p1p3-fmb2+hbcm2-2*p1p3)*(
3384      . ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+2*ffmcfmb*p3p5+fmc2+2*p4p5))
3385       ans4=16*(2*ffmcfmb*hbcm*p1p3*p3p6*p4p7-2*ffmcfmb*hbcm*p1p3*p3p7
3386      . *p4p6+2*ffmcfmb*hbcm*p2p3*p3p6*p4p7-2*ffmcfmb*hbcm*p2p3*p3p7*
3387      . p4p6-2*ffmcfmb*hbcm*p3p5*p3p6*p4p7+2*ffmcfmb*hbcm*p3p5*p3p7*
3388      . p4p6-ffmcfmb*hbcm3*p4p6*p5p7+fmc*hbcm2*p1p4*p6p7-fmc*hbcm2*
3389      . p5p6*p5p7-fmc*p1p3*p3p4*p6p7-fmc2*hbcm*p1p3*p6p7+hbcm*p1p4*
3390      . p3p4*p6p7+hbcm*p3p4*p4p6*p4p7-hbcm*p3p4*p5p6*p5p7)
3391       ans3=16*(p4p7*p3p6*p3p4)*(fmc+hbcm)+16*(p4p7*p4p6)*(-ffmcfmb*
3392      . hbcm3+fmc*hbcm2)+16*(p4p6*p3p7*p3p4)*(2*ffmcfmb*hbcm+hbcm)+16*
3393      . (p5p7*p3p6*p3p4)*(2*ffmcfmb*hbcm+fmc)+16*(p6p7*p3p5*p3p4)*(
3394      . ffmcfmb*hbcm+fmc)+16*(p6p7*p3p4*p2p3)*(-ffmcfmb*hbcm-fmc)+16*(
3395      . p5p7*p3p6)*(ffmcfmb*fmc*hbcm2+fmc2*hbcm)+16*(p4p7*p3p6)*(
3396      . ffmcfmb*fmc*hbcm2-2*ffmcfmb*hbcm3+fmc*hbcm2+fmc2*hbcm)+16*(
3397      . p3p7*p3p6)*(2*ffmcfmb*fmc*hbcm2+ffmcfmb*fmc2*hbcm)+16*(p6p7*
3398      . p3p5)*(ffmcfmb*fmc*hbcm2+fmc2*hbcm)+16*(p6p7*p2p3)*(-ffmcfmb*
3399      . fmc*hbcm2-fmc2*hbcm)+16*(p4p6*p3p7)*(-ffmcfmb**2*hbcm3+2*
3400      . ffmcfmb*hbcm3+fmc*hbcm2)+8*(p6p7*p3p4)*(ffmcfmb**2*hbcm3+2*
3401      . ffmcfmb*fmc*hbcm2+fmc2*hbcm)+16*(p3p7*p3p6*p3p4)*(ffmcfmb**2*
3402      . hbcm+ffmcfmb*fmc+2*ffmcfmb*hbcm)+8*p6p7*(ffmcfmb**2*fmc*hbcm4+
3403      . 2*ffmcfmb*hbcm*p3p4s2+2*fmc*p3p4s2+2*fmc2*hbcm3-fmc3*hbcm2-2*
3404      . hbcm*p3p4s2)+ans4
3405       ans2=w1*ans3
3406       ans8=16*(2*ffmcfmb*hbcm*p1p3*p3p6*p4p7-2*ffmcfmb*hbcm*p1p3*p3p6
3407      . *p5p7-2*ffmcfmb*hbcm*p1p3*p3p7*p4p6+2*ffmcfmb*hbcm*p1p3*p3p7*
3408      . p5p6+2*ffmcfmb*hbcm*p2p3*p3p6*p4p7-2*ffmcfmb*hbcm*p2p3*p3p6*
3409      . p5p7-2*ffmcfmb*hbcm*p2p3*p3p7*p4p6+2*ffmcfmb*hbcm*p2p3*p3p7*
3410      . p5p6-2*ffmcfmb*hbcm*p3p5*p3p7*p5p6+2*ffmcfmb*hbcm*p3p6*p3p7*
3411      . p4p5-fmc*p1p3*p3p4*p6p7+fmc*p3p5*p3p6*p5p7-2*hbcm*p1p3*p4p5*
3412      . p6p7-2*hbcm*p1p3*p4p6*p5p7+2*hbcm*p1p3*p4p7*p5p6+hbcm*p1p4*
3413      . p3p4*p6p7-hbcm*p1p4*p3p5*p6p7-2*hbcm*p1p4*p3p6*p5p7+2*hbcm*
3414      . p1p4*p3p7*p5p6+2*hbcm*p1p5*p3p4*p6p7+2*hbcm*p1p5*p3p6*p4p7-2*
3415      . hbcm*p1p5*p3p7*p4p6-2*hbcm*p2p3*p4p5*p6p7-4*hbcm*p2p3*p4p6*
3416      . p5p7+4*hbcm*p2p3*p4p7*p5p6+hbcm*p3p4*p4p6*p4p7+4*hbcm*p3p4*
3417      . p4p6*p5p7+3*hbcm*p3p4*p5p6*p5p7+hbcm*p3p5*p3p7*p4p6+2*hbcm*
3418      . p3p5*p4p5*p6p7-3*hbcm*p3p5*p4p6*p4p7-4*hbcm*p3p5*p4p7*p5p6-
3419      . hbcm*p3p5*p5p6*p5p7+2*hbcm*p3p6*p4p5*p5p7+2*hbcm*p3p7*p4p5*
3420      . p4p6)
3421       ans7=16*(p3p7*p3p6)*(ffmcfmb*fmb*fmc*hbcm-2*ffmcfmb*fmb*hbcm2+2
3422      . *ffmcfmb*fmc*hbcm2+ffmcfmb*fmc2*hbcm)+16*(p4p6*p3p7)*(-ffmcfmb
3423      . **2*hbcm3-ffmcfmb*fmb*hbcm2+2*ffmcfmb*hbcm3-fmb*hbcm2+2*fmb2*
3424      . hbcm+fmc*hbcm2)+16*(p5p7*p3p6)*(-ffmcfmb**2*hbcm3-ffmcfmb*fmb*
3425      . hbcm2+ffmcfmb*fmc*hbcm2+3*ffmcfmb*hbcm3+fmb*fmc*hbcm+fmc*hbcm2
3426      . +2*fmc2*hbcm)+8*(p6p7*p3p5)*(-ffmcfmb**2*hbcm3-2*ffmcfmb*fmb*
3427      . hbcm2+2*ffmcfmb*fmc*hbcm2+2*ffmcfmb*hbcm3+2*fmb*fmc*hbcm+3*
3428      . fmc2*hbcm)+8*(p6p7*p3p4)*(ffmcfmb**2*hbcm3-2*ffmcfmb*fmb*hbcm2
3429      . +2*ffmcfmb*fmc*hbcm2+2*fmb*fmc*hbcm+2*fmb*hbcm2-4*fmb2*hbcm+
3430      . fmc2*hbcm)+16*(p3p7*p3p6*p3p5)*(ffmcfmb**2*hbcm+ffmcfmb*fmc-2*
3431      . ffmcfmb*hbcm)+16*(p3p7*p3p6*p3p4)*(ffmcfmb**2*hbcm+ffmcfmb*fmc
3432      . +2*ffmcfmb*hbcm)+8*p6p7*(-ffmcfmb**2*fmb*hbcm4+ffmcfmb**2*fmc*
3433      . hbcm4-2*ffmcfmb*fmb2*hbcm3+2*ffmcfmb*hbcm*p3p4s2+2*ffmcfmb*
3434      . hbcm*p3p5s2+2*fmb*fmc*hbcm3+fmb*fmc2*hbcm2-2*fmb2*fmc*hbcm2+2*
3435      . fmc*p3p4s2+2*fmc*p3p5s2+2*fmc2*hbcm3-fmc3*hbcm2-2*hbcm*p3p4s2)
3436      . +ans8
3437       ans6=16*(p4p7*p3p6*p3p4)*(fmc+hbcm)+16*(p5p6*p4p7)*(-fmb*hbcm2+
3438      . fmc*hbcm2-2*hbcm3)+16*(p5p7*p4p6)*(-fmb*hbcm2+fmc*hbcm2+2*
3439      . hbcm3)+16*(p6p7*p1p4)*(-fmb*hbcm2+fmc*hbcm2)+16*(p6p7*p1p3)*(-
3440      . fmb*fmc*hbcm-fmc2*hbcm)+16*(p5p7*p5p6)*(ffmcfmb*hbcm3+fmc*
3441      . hbcm2)+16*(p4p7*p4p6)*(-ffmcfmb*hbcm3-2*fmb*hbcm2+fmc*hbcm2)+
3442      . 16*(p6p7*p4p5)*(-ffmcfmb*hbcm3-fmc*hbcm2+2*hbcm3)+16*(p6p7*
3443      . p1p5)*(ffmcfmb*hbcm3+fmc*hbcm2)+16*(p4p7*p3p6*p3p5)*(-2*
3444      . ffmcfmb*hbcm+fmc-3*hbcm)+16*(p4p6*p3p7*p3p4)*(2*ffmcfmb*hbcm+
3445      . hbcm)+16*(p5p7*p3p6*p3p4)*(2*ffmcfmb*hbcm+fmc+4*hbcm)+16*(p6p7
3446      . *p3p5*p3p4)*(2*ffmcfmb*hbcm+2*fmc-hbcm)+16*(p6p7*p3p5*p2p3)*(-
3447      . ffmcfmb*hbcm-fmc)+16*(p6p7*p3p4*p2p3)*(-ffmcfmb*hbcm-fmc)+16*(
3448      . p6p7*p3p5*p1p3)*(-2*ffmcfmb*hbcm-fmc)+16*(p5p6*p3p7)*(-ffmcfmb
3449      . *fmb*hbcm2-ffmcfmb*hbcm3+fmc*hbcm2-fmc2*hbcm)+16*(p4p7*p3p6)*(
3450      . -ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2-2*ffmcfmb*hbcm3+fmb*fmc*
3451      . hbcm-fmb*hbcm2-2*fmb2*hbcm+fmc*hbcm2+fmc2*hbcm)+16*(p6p7*p2p3)
3452      . *(ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm-fmc2*hbcm)+
3453      . ans7
3454       ans5=w18*ans6
3455       ans11=16*(p5p7*p3p6)*(-ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+
3456      . ffmcfmb*fmc*hbcm2+3*ffmcfmb*hbcm3+fmb*fmc*hbcm+fmb*hbcm2-fmc*
3457      . hbcm2-2*hbcm3)+16*(p3p7*p3p6)*(-ffmcfmb**2*hbcm3+ffmcfmb*fmb*
3458      . fmc*hbcm-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2-ffmcfmb*fmc2*hbcm
3459      . +ffmcfmb*hbcm3-fmc*hbcm2+fmc2*hbcm)+16*(p6p7*p3p5)*(-ffmcfmb**
3460      . 2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3+fmb*
3461      . fmc*hbcm-fmc*hbcm2)+16*(p6p7*p2p3)*(ffmcfmb**2*hbcm3+ffmcfmb*
3462      . fmb*hbcm2-ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3-fmb*fmc*hbcm+fmc*
3463      . hbcm2)+8*(p6p7*p1p3)*(ffmcfmb**2*hbcm3-2*ffmcfmb*hbcm3-2*fmb*
3464      . fmc*hbcm+2*fmc*hbcm2+fmc2*hbcm)+16*(p3p7*p3p6*p1p3)*(ffmcfmb**
3465      . 2*hbcm+ffmcfmb*fmc-2*ffmcfmb*hbcm)+8*p6p7*(-ffmcfmb**2*fmb*
3466      . hbcm4+ffmcfmb**2*fmc*hbcm4-ffmcfmb**2*hbcm5-ffmcfmb*fmb2*hbcm3
3467      . +ffmcfmb*fmc2*hbcm3+ffmcfmb*hbcm5+2*fmb*fmc*hbcm3+fmb*fmc2*
3468      . hbcm2-fmb2*fmc*hbcm2-fmc*hbcm4-2*fmc*p1p3s2-fmc2*hbcm3)+16*(-
3469      . hbcm*p1p3*p1p4*p6p7-hbcm*p1p3*p4p6*p4p7+hbcm*p1p3*p5p6*p5p7)
3470       ans10=16*(p5p7*p5p6)*(ffmcfmb*hbcm3+fmb*hbcm2-hbcm3)+16*(p4p7*
3471      . p4p6)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+16*(p6p7*p1p4)*(-
3472      . ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+32*(p4p7*p3p6*p3p5)*(-ffmcfmb*
3473      . hbcm+hbcm)+32*(p5p7*p3p6*p3p4)*(ffmcfmb*hbcm-hbcm)+32*(p5p7*
3474      . p3p6*p2p3)*(-ffmcfmb*hbcm+hbcm)+32*(p4p7*p3p6*p2p3)*(ffmcfmb*
3475      . hbcm-hbcm)+32*(p3p7*p3p6*p1p4)*(ffmcfmb*hbcm-hbcm)+16*(p4p6*
3476      . p3p7*p1p3)*(-2*ffmcfmb*hbcm+hbcm)+16*(p5p7*p3p6*p1p3)*(-2*
3477      . ffmcfmb*hbcm+fmc+2*hbcm)+16*(p4p7*p3p6*p1p3)*(2*ffmcfmb*hbcm+
3478      . fmc-3*hbcm)+16*(p6p7*p3p5*p1p3)*(-ffmcfmb*hbcm+fmc)+16*(p6p7*
3479      . p3p4*p1p3)*(ffmcfmb*hbcm+fmc-hbcm)+16*(p6p7*p2p3*p1p3)*(
3480      . ffmcfmb*hbcm-fmc)+16*(p4p7*p3p6)*(-ffmcfmb*fmb*hbcm2+ffmcfmb*
3481      . fmc*hbcm2-2*ffmcfmb*hbcm3+fmb*fmc*hbcm-fmb2*hbcm-fmc*hbcm2+2*
3482      . hbcm3)+16*(p6p7*p3p4)*(-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+
3483      . fmb*fmc*hbcm+fmb*hbcm2-fmb2*hbcm-fmc*hbcm2)+16*(p4p6*p3p7)*(-
3484      . ffmcfmb**2*hbcm3+ffmcfmb*hbcm3-fmb*hbcm2+fmb2*hbcm)+ans11
3485       ans9=w13*ans10
3486       ans12=(16*(p5p7*p3p6)*(-2*fb2*fmc+hbcm)+32*(p4p6*p3p7)*(-fb1*
3487      . hbcm+hbcm)+16*(p4p7*p3p6)*(-2*fb1*hbcm-2*fb2*fmc-hbcm)+8*(p6p7
3488      . *p3p5)*(-4*fb1*ffmcfmb*hbcm-4*fb2*fmc+3*hbcm)+8*(p6p7*p3p4)*(-
3489      . 4*fb1*ffmcfmb*hbcm+4*fb1*hbcm-4*fb2*fmc-hbcm)+8*(p6p7*p2p3)*(4
3490      . *fb1*ffmcfmb*hbcm+4*fb2*fmc-3*hbcm)+8*p6p7*(-2*fb1*ffmcfmb**2*
3491      . hbcm3+2*fb1*fmc2*hbcm-4*fb2*fmc*hbcm2+ffmcfmb*hbcm3+2*fmb*
3492      . hbcm2-fmc*hbcm2)+8*(p3p7*p3p6)*(4*fb1*ffmcfmb**2*hbcm-8*fb1*
3493      . ffmcfmb*hbcm-4*fb2*ffmcfmb*fmc-4*ffmcfmb*hbcm-fmc+6*hbcm)+32*(
3494      . -fb1*hbcm*p1p4*p6p7-fb1*hbcm*p4p6*p4p7+fb1*hbcm*p5p6*p5p7+fb2*
3495      . fmc*p1p3*p6p7))
3496       ans1=ans2+ans5+ans9+ans12
3497       ans=ccc*ans1
3498       b(1)=ans
3499       ans3=w13*(8*(p5p7*p1p3)*(3*ffmcfmb*hbcm+fmb-2*fmc-2*hbcm)+8*(
3500      . p4p7*p1p3)*(-ffmcfmb*hbcm+fmb-2*fmc+2*hbcm)+8*(p3p7*p1p3)*(
3501      . ffmcfmb*fmb-ffmcfmb*fmc+ffmcfmb*hbcm-fmc)+8*p4p7*(2*ffmcfmb*
3502      . fmb*hbcm2-2*ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3-2*fmb*fmc*hbcm-fmb
3503      . *hbcm2+2*fmb2*hbcm+2*fmc*hbcm2-hbcm3)+8*p5p7*(2*ffmcfmb**2*
3504      . hbcm3+2*ffmcfmb*fmb*hbcm2-2*ffmcfmb*fmc*hbcm2-3*ffmcfmb*hbcm3-
3505      . 2*fmb*fmc*hbcm-fmb*hbcm2+2*fmc*hbcm2+hbcm3)+8*p3p7*(ffmcfmb**2
3506      . *fmb*hbcm2-ffmcfmb**2*fmc*hbcm2+ffmcfmb**2*hbcm3-ffmcfmb*fmb*
3507      . fmc*hbcm+ffmcfmb*fmb2*hbcm-ffmcfmb*hbcm3-fmb*fmc*hbcm+fmc*
3508      . hbcm2))+(4*p5p7*(4*fb1*ffmcfmb*hbcm-4*fb2*fmb+8*fb2*fmc-7*hbcm
3509      . )+4*p4p7*(4*fb1*ffmcfmb*hbcm-4*fb2*fmb+8*fb2*fmc+hbcm)+4*p3p7*
3510      . (4*fb1*ffmcfmb*hbcm-4*fb2*ffmcfmb*fmb+4*fb2*ffmcfmb*fmc+4*fb2*
3511      . fmc-fmb+fmc-3*hbcm))
3512       ans2=w18*(8*(p5p7*p3p5)*(-ffmcfmb*hbcm+fmb-2*fmc)+8*(p4p7*p3p5)
3513      . *(-ffmcfmb*hbcm+fmb-2*fmc+4*hbcm)+8*(p5p7*p3p4)*(-ffmcfmb*hbcm
3514      . +fmb-2*fmc-4*hbcm)+8*(p4p7*p3p4)*(-ffmcfmb*hbcm+fmb-2*fmc)+8*(
3515      . p3p7*p3p5)*(ffmcfmb*fmb-ffmcfmb*fmc+ffmcfmb*hbcm-fmc)+8*(p3p7*
3516      . p3p4)*(ffmcfmb*fmb-ffmcfmb*fmc-3*ffmcfmb*hbcm-fmc)+8*p5p7*(
3517      . ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*hbcm2-2*ffmcfmb*fmc*hbcm2-2*
3518      . ffmcfmb*hbcm3-2*fmb*fmc*hbcm+fmb2*hbcm-4*fmc2*hbcm)+8*p4p7*(-
3519      . ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*hbcm2-2*ffmcfmb*fmc*hbcm2+2*
3520      . ffmcfmb*hbcm3-2*fmb*fmc*hbcm+5*fmb2*hbcm-2*fmc2*hbcm)+8*p3p7*(
3521      . ffmcfmb**2*fmb*hbcm2-ffmcfmb**2*fmc*hbcm2-ffmcfmb*fmb*fmc*hbcm
3522      . +ffmcfmb*fmb*hbcm2+3*ffmcfmb*fmb2*hbcm-ffmcfmb*fmc*hbcm2-2*
3523      . ffmcfmb*fmc2*hbcm-fmb*fmc*hbcm-fmc2*hbcm)+16*(-ffmcfmb*hbcm*
3524      . p1p3*p4p7+ffmcfmb*hbcm*p1p3*p5p7+ffmcfmb*hbcm*p1p4*p3p7-
3525      . ffmcfmb*hbcm*p1p5*p3p7+2*hbcm*p1p4*p5p7-2*hbcm*p1p5*p4p7-hbcm*
3526      . p3p7*p4p5-2*hbcm*p4p5*p5p7))+ans3
3527       ans1=w1*(8*(p5p7*p3p4)*(-ffmcfmb*hbcm+fmb-2*fmc)+8*(p4p7*p3p4)*
3528      . (-ffmcfmb*hbcm+fmb-2*fmc)+8*p5p7*(-2*ffmcfmb*fmc*hbcm2+fmb*fmc
3529      . *hbcm-fmc2*hbcm)+8*(p3p7*p3p4)*(ffmcfmb*fmb-ffmcfmb*fmc-3*
3530      . ffmcfmb*hbcm-fmc)+8*p4p7*(-ffmcfmb**2*hbcm3-2*ffmcfmb*fmc*
3531      . hbcm2+2*ffmcfmb*hbcm3+fmb*fmc*hbcm-2*fmc2*hbcm)+8*p3p7*(-
3532      . ffmcfmb**2*fmc*hbcm2+ffmcfmb*fmb*fmc*hbcm-ffmcfmb*fmc*hbcm2-2*
3533      . ffmcfmb*fmc2*hbcm-fmc2*hbcm)+16*(-ffmcfmb*hbcm*p1p3*p4p7+
3534      . ffmcfmb*hbcm*p1p4*p3p7+hbcm*p4p5*p5p7))+ans2
3535       ans=ccc*ans1
3536       b(2)=ans
3537       ans3=w13*(16*(p3p6*p3p5)*(-ffmcfmb*hbcm+hbcm)+16*(p3p6*p3p4)*(
3538      . ffmcfmb*hbcm-hbcm)+16*(p3p6*p1p5)*(ffmcfmb*hbcm-hbcm)+16*(p3p6
3539      . *p1p4)*(-ffmcfmb*hbcm+hbcm)+8*(p5p6*p1p3)*(-ffmcfmb*hbcm-fmc+2
3540      . *hbcm)+8*(p4p6*p1p3)*(3*ffmcfmb*hbcm-fmc-2*hbcm)+8*(p3p6*p1p3)
3541      . *(ffmcfmb*hbcm-fmc)+8*p5p6*(ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*
3542      . hbcm2+ffmcfmb*hbcm3-fmb*fmc*hbcm+fmb2*hbcm+fmc*hbcm2-hbcm3)+8*
3543      . p4p6*(2*ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-3
3544      . *ffmcfmb*hbcm3-fmb*fmc*hbcm-fmb2*hbcm+fmc*hbcm2+hbcm3)+8*p3p6*
3545      . (ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2-2*ffmcfmb*fmb2*hbcm-
3546      . ffmcfmb*fmc*hbcm2+2*ffmcfmb*fmc2*hbcm-ffmcfmb*hbcm3-fmb*fmc*
3547      . hbcm+2*fmb2*hbcm+fmc*hbcm2-2*fmc2*hbcm))+(4*p5p6*(4*fb1*
3548      . ffmcfmb*hbcm+4*fb2*fmc+hbcm)+4*p4p6*(4*fb1*ffmcfmb*hbcm+4*fb2*
3549      . fmc-7*hbcm)+4*p3p6*(4*fb1*ffmcfmb*hbcm+4*fb2*fmc-3*hbcm))
3550       ans2=w1*(8*(p5p6*p3p4)*(-ffmcfmb*hbcm-fmc)+8*(p4p6*p3p4)*(-
3551      . ffmcfmb*hbcm-fmc)+8*(p3p6*p3p4)*(ffmcfmb*hbcm-fmc)+8*p5p6*(-
3552      . ffmcfmb*fmc*hbcm2-fmc2*hbcm)+8*p3p6*(-ffmcfmb*fmc*hbcm2+2*
3553      . ffmcfmb*fmc2*hbcm-fmc2*hbcm)+8*p4p6*(ffmcfmb**2*hbcm3-ffmcfmb*
3554      . fmc*hbcm2-2*ffmcfmb*hbcm3)+16*(ffmcfmb*hbcm*p1p3*p4p6-ffmcfmb*
3555      . hbcm*p1p4*p3p6+ffmcfmb*hbcm*p3p6*p4p5+hbcm*p4p5*p4p6))+ans3
3556       ans1=w18*(8*(p5p6*p3p5)*(-ffmcfmb*hbcm-fmc)+8*(p4p6*p3p5)*(-
3557      . ffmcfmb*hbcm-fmc-4*hbcm)+8*(p3p6*p3p5)*(-3*ffmcfmb*hbcm-fmc)+8
3558      . *(p5p6*p3p4)*(-ffmcfmb*hbcm-fmc+4*hbcm)+8*(p4p6*p3p4)*(-
3559      . ffmcfmb*hbcm-fmc)+8*(p3p6*p3p4)*(ffmcfmb*hbcm-fmc)+8*p3p6*(
3560      . ffmcfmb*fmb*hbcm2-2*ffmcfmb*fmb2*hbcm-ffmcfmb*fmc*hbcm2+2*
3561      . ffmcfmb*fmc2*hbcm-fmb*fmc*hbcm-fmc2*hbcm)+8*p5p6*(-ffmcfmb**2*
3562      . hbcm3+ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2+2*ffmcfmb*hbcm3-fmb*
3563      . fmc*hbcm+2*fmc2*hbcm)+8*p4p6*(ffmcfmb**2*hbcm3+ffmcfmb*fmb*
3564      . hbcm2-ffmcfmb*fmc*hbcm2-2*ffmcfmb*hbcm3-fmb*fmc*hbcm-4*fmb2*
3565      . hbcm)+16*(ffmcfmb*hbcm*p1p3*p4p6-ffmcfmb*hbcm*p1p3*p5p6-
3566      . ffmcfmb*hbcm*p1p4*p3p6+ffmcfmb*hbcm*p1p5*p3p6-2*hbcm*p1p4*p5p6
3567      . +2*hbcm*p1p5*p4p6-hbcm*p3p6*p4p5-2*hbcm*p4p5*p4p6))+ans2
3568       ans=ccc*ans1
3569       b(3)=ans
3570       ans4=8*(p6p7*p3p4)*(-ffmcfmb**2*hbcm2+2*ffmcfmb*hbcm2+2*fmb*
3571      . hbcm+2*fmc*hbcm+fmc2)+8*p6p7*(-ffmcfmb**2*fmb*hbcm3-ffmcfmb**2
3572      . *fmc*hbcm3+2*ffmcfmb*fmb*hbcm3-2*ffmcfmb*fmb2*hbcm2+2*ffmcfmb*
3573      . fmc*hbcm3+fmb*fmc2*hbcm+2*fmb2*fmc*hbcm+fmc3*hbcm+2*p3p4s2)+16
3574      . *(-ffmcfmb*p1p3*p3p4*p6p7-ffmcfmb*p1p3*p3p5*p6p7-p1p4*p3p4*
3575      . p6p7-p1p4*p3p5*p6p7+p3p4*p3p5*p6p7-p3p4*p3p6*p4p7-2*p3p4*p4p6*
3576      . p4p7-p3p4*p4p6*p5p7+p3p4*p5p6*p5p7-p3p5*p3p6*p4p7-2*p3p5*p4p6*
3577      . p4p7-p3p5*p4p6*p5p7+p3p5*p5p6*p5p7)
3578       ans3=32*(p5p7*p4p6)*(-fmb*hbcm-fmc*hbcm)+16*(p6p7*p1p4)*(-fmb*
3579      . hbcm-fmc*hbcm)+(p4p6*p3p7*p3p5)*(-16*ffmcfmb-16)+(p4p6*p3p7*
3580      . p3p4)*(-16*ffmcfmb-16)+32*(p5p7*p5p6)*(ffmcfmb*hbcm2-fmc*hbcm)
3581      . +16*(p5p6*p4p7)*(ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm)+16*(p4p7*
3582      . p4p6)*(-ffmcfmb*hbcm2-3*fmb*hbcm-2*fmc*hbcm)+16*(p6p7*p4p5)*(-
3583      . ffmcfmb*hbcm2+fmc*hbcm)+16*(p6p7*p1p5)*(ffmcfmb*hbcm2-fmc*hbcm
3584      . )+16*(p5p6*p3p7)*(-ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm+ffmcfmb*
3585      . hbcm2-fmc*hbcm)+16*(p5p7*p3p6)*(-ffmcfmb*fmb*hbcm-ffmcfmb*fmc*
3586      . hbcm+ffmcfmb*hbcm2-fmc*hbcm)+16*(p4p7*p3p6)*(-ffmcfmb*fmb*hbcm
3587      . -ffmcfmb*fmc*hbcm-fmb*hbcm-fmc*hbcm)+32*(p3p7*p3p6)*(-ffmcfmb*
3588      . fmb*hbcm-ffmcfmb*fmc*hbcm)+16*(p6p7*p1p3)*(-ffmcfmb*fmb*hbcm-
3589      . ffmcfmb*fmc*hbcm)+16*(p3p7*p3p6*p3p5)*(ffmcfmb**2-2*ffmcfmb)+
3590      . 16*(p3p7*p3p6*p3p4)*(ffmcfmb**2-2*ffmcfmb)+16*(p4p6*p3p7)*(-
3591      . ffmcfmb**2*hbcm2-2*ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm-fmb*hbcm-
3592      . fmc*hbcm)+8*(p6p7*p3p5)*(-ffmcfmb**2*hbcm2+2*fmc*hbcm+fmc2)+
3593      . ans4
3594       ans2=w18*ans3
3595       ans7=16*(-p1p3*p1p4*p6p7+p1p3*p3p4*p6p7-p1p3*p3p6*p4p7-2*p1p3*
3596      . p4p6*p4p7-p1p3*p4p6*p5p7+p1p3*p5p6*p5p7)
3597       ans6=(p4p6*p3p7*p1p3)*(-16*ffmcfmb-16)+16*(p5p7*p5p6)*(ffmcfmb*
3598      . hbcm2+fmb*hbcm-hbcm2)+16*(p5p7*p4p6)*(-ffmcfmb*hbcm2-fmb*hbcm+
3599      . hbcm2)+32*(p4p7*p4p6)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(p6p7
3600      . *p3p4)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(p6p7*p1p4)*(-ffmcfmb
3601      . *hbcm2-fmb*hbcm+hbcm2)+16*(p5p7*p3p6)*(-ffmcfmb*fmb*hbcm-
3602      . ffmcfmb*fmc*hbcm+fmb*hbcm+fmc*hbcm)+16*(p4p7*p3p6)*(-ffmcfmb*
3603      . fmb*hbcm-ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2+fmc*hbcm+hbcm2)+16*(
3604      . p3p7*p3p6*p1p3)*(ffmcfmb**2-2*ffmcfmb)+16*(p4p6*p3p7)*(-
3605      . ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm-fmb*hbcm+hbcm2)+16*(p3p7*
3606      . p3p6)*(-ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm+
3607      . ffmcfmb*hbcm2+fmc*hbcm)+8*(p6p7*p1p3)*(-ffmcfmb**2*hbcm2-2*
3608      . ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*hbcm+2*ffmcfmb*hbcm2+2*fmc*hbcm
3609      . +fmc2)+8*p6p7*(-ffmcfmb**2*fmb*hbcm3-ffmcfmb**2*fmc*hbcm3+
3610      . ffmcfmb**2*hbcm4+2*ffmcfmb*fmb*hbcm3-ffmcfmb*fmb2*hbcm2+2*
3611      . ffmcfmb*fmc*hbcm3+ffmcfmb*fmc2*hbcm2-ffmcfmb*hbcm4-2*ffmcfmb*
3612      . p1p3s2+fmb*fmc2*hbcm+fmb2*fmc*hbcm-fmc*hbcm3-fmc2*hbcm2)+ans7
3613       ans5=w13*ans6
3614       ans8=((p4p6*p3p7)*(32*fb2*ffmcfmb+32*fb2+8)+(p6p7*p1p3)*(32*fb2
3615      . *ffmcfmb+8)+(p3p7*p3p6)*(-32*fb2*ffmcfmb**2+64*fb2*ffmcfmb-16*
3616      . ffmcfmb+16)+8*p6p7*(2*fb2*ffmcfmb**2*hbcm2-4*fb2*ffmcfmb*hbcm2
3617      . -2*fb2*fmc2+2*fmb*hbcm+2*fmc*hbcm-hbcm2)+32*(fb2*p1p4*p6p7-fb2
3618      . *p3p4*p6p7+fb2*p3p6*p4p7+2*fb2*p4p6*p4p7+fb2*p4p6*p5p7-fb2*
3619      . p5p6*p5p7))
3620       ans1=w1*((p4p6*p3p7*p3p4)*(-16*ffmcfmb-16)+16*(p5p7*p4p6)*(-
3621      . ffmcfmb*hbcm2-fmc*hbcm)+16*(p4p7*p4p6)*(-ffmcfmb*hbcm2-2*fmc*
3622      . hbcm)+16*(p4p7*p3p6)*(-ffmcfmb*fmc*hbcm-fmc*hbcm)+16*(p3p7*
3623      . p3p6*p3p4)*(ffmcfmb**2-2*ffmcfmb)+16*(p4p6*p3p7)*(-ffmcfmb**2*
3624      . hbcm2-ffmcfmb*fmc*hbcm-fmc*hbcm)+8*(p6p7*p3p4)*(-ffmcfmb**2*
3625      . hbcm2+2*ffmcfmb*hbcm2+2*fmc*hbcm+fmc2)+8*p6p7*(-ffmcfmb**2*fmc
3626      . *hbcm3+2*ffmcfmb*fmc*hbcm3+fmc3*hbcm+2*p3p4s2)+16*(-ffmcfmb*
3627      . fmc*hbcm*p1p3*p6p7-2*ffmcfmb*fmc*hbcm*p3p6*p3p7-ffmcfmb*fmc*
3628      . hbcm*p3p6*p5p7-ffmcfmb*p1p3*p3p4*p6p7-fmc*hbcm*p1p4*p6p7+fmc*
3629      . hbcm*p5p6*p5p7-p1p4*p3p4*p6p7-p3p4*p3p6*p4p7-2*p3p4*p4p6*p4p7-
3630      . p3p4*p4p6*p5p7+p3p4*p5p6*p5p7))+ans2+ans5+ans8
3631       ans=ccc*ans1
3632       b(4)=ans
3633       ans4=8*(p3p7*p3p4)*(2*ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm-2*
3634      . ffmcfmb*fmc*hbcm-3*ffmcfmb*hbcm2-fmc*hbcm-fmc2)+8*p3p7*(
3635      . ffmcfmb**2*fmb*hbcm3+ffmcfmb**2*fmc*hbcm3-3*ffmcfmb*fmb*hbcm3+
3636      . 3*ffmcfmb*fmb2*hbcm2-3*ffmcfmb*fmc*hbcm3-ffmcfmb*fmc2*hbcm2-2*
3637      . ffmcfmb*p3p5s2+fmb*fmc*hbcm2-fmb*fmc2*hbcm-2*fmb2*fmc*hbcm-
3638      . fmc2*hbcm2-fmc3*hbcm)+16*(ffmcfmb*p1p3*p3p4*p3p7+ffmcfmb*p1p3*
3639      . p3p5*p3p7+ffmcfmb*p2p3*p3p4*p3p7+ffmcfmb*p2p3*p3p5*p3p7-
3640      . ffmcfmb*p3p4*p3p5*p3p7+hbcm2*p1p4*p5p7-hbcm2*p1p5*p4p7-hbcm2*
3641      . p4p5*p5p7+p1p3*p3p4*p4p7-p1p3*p3p4*p5p7+p1p3*p3p5*p4p7-p1p3*
3642      . p3p5*p5p7+p1p4*p3p4*p3p7+p1p4*p3p5*p3p7+2*p2p3*p3p4*p4p7-p2p3*
3643      . p3p4*p5p7+2*p2p3*p3p5*p4p7-p2p3*p3p5*p5p7-2*p3p4*p3p5*p4p7+2*
3644      . p3p4*p3p5*p5p7)
3645       ans3=8*(p5p7*p3p5)*(-fmb*hbcm-fmc*hbcm+2*hbcm2)+8*(p4p7*p3p4)*(
3646      . -fmb*hbcm-fmc*hbcm-2*hbcm2)+16*(p4p7*p1p3)*(2*fmb*hbcm+fmc*
3647      . hbcm)+16*(p4p5*p3p7)*(ffmcfmb*hbcm2-fmc*hbcm-hbcm2)+8*(p4p7*
3648      . p3p5)*(-4*ffmcfmb*hbcm2-5*fmb*hbcm-fmc*hbcm)+8*(p5p7*p3p4)*(4*
3649      . ffmcfmb*hbcm2+3*fmb*hbcm-fmc*hbcm)+32*(p5p7*p2p3)*(-ffmcfmb*
3650      . hbcm2+fmc*hbcm)+16*(p4p7*p2p3)*(ffmcfmb*hbcm2+3*fmb*hbcm+2*fmc
3651      . *hbcm)+16*(p3p7*p1p5)*(-ffmcfmb*hbcm2+fmc*hbcm)+16*(p3p7*p1p4)
3652      . *(ffmcfmb*hbcm2+fmb*hbcm+fmc*hbcm)+16*(p5p7*p1p3)*(-ffmcfmb*
3653      . hbcm2+fmc*hbcm)+8*p5p7*(ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*hbcm3+2*
3654      . ffmcfmb*hbcm4+fmb*fmc*hbcm2+fmb2*hbcm2-2*fmc*hbcm3-2*fmc2*
3655      . hbcm2+4*p3p4s2)+8*(p3p7*p3p5)*(-3*ffmcfmb*fmb*hbcm-2*ffmcfmb*
3656      . fmc*hbcm-ffmcfmb*hbcm2-fmc*hbcm-fmc2)+32*(p3p7*p2p3)*(ffmcfmb*
3657      . fmb*hbcm+ffmcfmb*fmc*hbcm)+32*(p3p7*p1p3)*(ffmcfmb*fmb*hbcm+
3658      . ffmcfmb*fmc*hbcm)+8*p4p7*(-ffmcfmb**2*hbcm4+ffmcfmb*fmb*hbcm3+
3659      . ffmcfmb*fmc*hbcm3+fmb*fmc*hbcm2-4*fmb*hbcm3+3*fmb2*hbcm2-2*fmc
3660      . *hbcm3-fmc2*hbcm2-4*p3p5s2)+ans4
3661       ans2=w18*ans3
3662       ans7=8*p3p7*(ffmcfmb**2*fmb*hbcm3+ffmcfmb**2*fmc*hbcm3-ffmcfmb
3663      . **2*hbcm4-2*ffmcfmb*fmb*hbcm3+ffmcfmb*fmb2*hbcm2-ffmcfmb*fmc*
3664      . hbcm3-ffmcfmb*fmc2*hbcm2+ffmcfmb*hbcm4+2*ffmcfmb*p1p3s2+fmb*
3665      . fmc*hbcm2-fmb*fmc2*hbcm-fmb2*fmc*hbcm+fmc2*hbcm2)+16*(ffmcfmb*
3666      . p1p3*p2p3*p3p7-ffmcfmb*p1p3*p3p5*p3p7+p1p3*p1p4*p3p7+2*p1p3*
3667      . p2p3*p4p7-p1p3*p2p3*p5p7+2*p1p3*p3p4*p5p7-2*p1p3*p3p5*p4p7)
3668       ans6=8*(p5p7*p1p3)*(-fmb*hbcm+fmc*hbcm+2*hbcm2)+32*(p4p7*p3p5)*
3669      . (-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+32*(p5p7*p3p4)*(ffmcfmb*hbcm2+
3670      . fmb*hbcm-hbcm2)+16*(p5p7*p2p3)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)
3671      . +32*(p4p7*p2p3)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(p3p7*p1p4)*
3672      . (ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(p4p7*p1p3)*(2*ffmcfmb*hbcm2+
3673      . 3*fmb*hbcm+fmc*hbcm-4*hbcm2)+8*p4p7*(ffmcfmb*fmb*hbcm3+ffmcfmb
3674      . *fmc*hbcm3-2*ffmcfmb*hbcm4+fmb*fmc*hbcm2-3*fmb*hbcm3+fmb2*
3675      . hbcm2-fmc*hbcm3+2*hbcm4+2*p1p3s2)+8*p5p7*(ffmcfmb**2*hbcm4+
3676      . ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*hbcm3+fmb*fmc*hbcm2+fmb*hbcm3-
3677      . fmc*hbcm3-hbcm4-2*p1p3s2)+16*(p3p7*p3p5)*(-ffmcfmb**2*hbcm2-
3678      . ffmcfmb*fmb*hbcm+ffmcfmb*hbcm2)+16*(p3p7*p2p3)*(ffmcfmb**2*
3679      . hbcm2+ffmcfmb*fmb*hbcm-ffmcfmb*hbcm2)+8*(p3p7*p1p3)*(2*ffmcfmb
3680      . **2*hbcm2+3*ffmcfmb*fmb*hbcm+2*ffmcfmb*fmc*hbcm-3*ffmcfmb*
3681      . hbcm2-fmc*hbcm-fmc2)+ans7
3682       ans5=w13*ans6
3683       ans8=((p3p7*p3p5)*(32*fb2*ffmcfmb+8)+(p3p7*p2p3)*(-32*fb2*
3684      . ffmcfmb-8)+(p3p7*p1p3)*(-32*fb2*ffmcfmb-8)+16*p5p7*(fb1*fmb*
3685      . hbcm+fb1*fmc*hbcm-2*fb2*hbcm2-hbcm2)+16*p4p7*(fb1*fmb*hbcm+fb1
3686      . *fmc*hbcm+2*fb2*hbcm2)+4*p3p7*(4*fb1*ffmcfmb*fmb*hbcm+4*fb1*
3687      . fmc*hbcm+4*fb2*ffmcfmb*hbcm2+4*fb2*fmc2-3*fmb*hbcm-4*fmc*hbcm+
3688      . hbcm2)+32*(-fb2*p1p3*p4p7+fb2*p1p3*p5p7-fb2*p1p4*p3p7-2*fb2*
3689      . p2p3*p4p7+fb2*p2p3*p5p7-2*fb2*p3p4*p5p7+2*fb2*p3p5*p4p7))
3690       ans1=w1*(8*(p4p7*p3p4)*(-fmb*hbcm-fmc*hbcm-2*hbcm2)+16*(p4p7*
3691      . p3p5)*(-ffmcfmb*hbcm2-2*fmc*hbcm)+8*(p5p7*p3p4)*(2*ffmcfmb*
3692      . hbcm2-fmb*hbcm+3*fmc*hbcm+2*hbcm2)+16*(p4p7*p2p3)*(ffmcfmb*
3693      . hbcm2+2*fmc*hbcm)+16*(p3p7*p1p4)*(ffmcfmb*hbcm2+fmc*hbcm)+8*
3694      . p5p7*(ffmcfmb*fmc*hbcm3-fmb*fmc*hbcm2+2*fmc*hbcm3+4*p3p4s2)+8*
3695      . p4p7*(-ffmcfmb**2*hbcm4+ffmcfmb*fmc*hbcm3-fmb*fmc*hbcm2-2*fmc*
3696      . hbcm3-fmc2*hbcm2)+8*(p3p7*p3p4)*(2*ffmcfmb**2*hbcm2-ffmcfmb*
3697      . fmb*hbcm-2*ffmcfmb*fmc*hbcm-3*ffmcfmb*hbcm2-fmc*hbcm-fmc2)+8*
3698      . p3p7*(ffmcfmb**2*fmc*hbcm3-ffmcfmb*fmb*fmc*hbcm2-3*ffmcfmb*fmc
3699      . *hbcm3-ffmcfmb*fmc2*hbcm2-fmc2*hbcm2-fmc3*hbcm)+16*(2*ffmcfmb*
3700      . fmc*hbcm*p1p3*p3p7+2*ffmcfmb*fmc*hbcm*p2p3*p3p7-2*ffmcfmb*fmc*
3701      . hbcm*p3p5*p3p7+ffmcfmb*p1p3*p3p4*p3p7+ffmcfmb*p2p3*p3p4*p3p7-
3702      . ffmcfmb*p3p4*p3p5*p3p7+fmc*hbcm*p1p3*p4p7-fmc*hbcm*p1p3*p5p7-
3703      . fmc*hbcm*p2p3*p5p7+hbcm2*p4p5*p5p7+p1p3*p3p4*p4p7-p1p3*p3p4*
3704      . p5p7+p1p4*p3p4*p3p7+2*p2p3*p3p4*p4p7-p2p3*p3p4*p5p7-2*p3p4*
3705      . p3p5*p4p7))+ans2+ans5+ans8
3706       ans=ccc*ans1
3707       b(5)=ans
3708       ans4=8*p4p6*(ffmcfmb**2*hbcm4+ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*
3709      . hbcm3+fmb*fmc*hbcm2+4*fmb*hbcm3-2*fmb2*hbcm2+2*fmc*hbcm3+4*
3710      . p3p4s2+2*p3p5s2)+8*p3p6*(ffmcfmb**2*fmb*hbcm3+ffmcfmb**2*fmc*
3711      . hbcm3+ffmcfmb*fmb*hbcm3+2*ffmcfmb*fmb2*hbcm2+ffmcfmb*fmc*hbcm3
3712      . +fmb*fmc*hbcm2-3*fmb*fmc2*hbcm-2*fmb2*fmc*hbcm-fmc2*hbcm2-fmc3
3713      . *hbcm+2*p3p5s2)+16*(-ffmcfmb*p2p3*p3p4*p3p6-ffmcfmb*p2p3*p3p5*
3714      . p3p6-hbcm2*p1p4*p5p6+hbcm2*p1p5*p4p6-hbcm2*p4p5*p4p6-p1p3*p3p4
3715      . *p4p6+p1p3*p3p4*p5p6-p1p3*p3p5*p4p6+p1p3*p3p5*p5p6+p1p4*p3p4*
3716      . p3p6+p1p4*p3p5*p3p6-p1p5*p3p4*p3p6-p1p5*p3p5*p3p6-2*p2p3*p3p4*
3717      . p4p6+p2p3*p3p4*p5p6-2*p2p3*p3p5*p4p6+p2p3*p3p5*p5p6+p3p4*p3p5*
3718      . p3p6+3*p3p4*p3p5*p4p6-p3p4*p3p5*p5p6)
3719       ans3=16*(p3p6*p1p4)*(2*fmb*hbcm+fmc*hbcm)+16*(p4p6*p1p3)*(-2*
3720      . fmb*hbcm-fmc*hbcm)+16*(p4p5*p3p6)*(ffmcfmb*hbcm2-fmb*hbcm-fmc*
3721      . hbcm-hbcm2)+8*(p5p6*p3p5)*(-3*ffmcfmb*hbcm2+3*fmc*hbcm-2*hbcm2
3722      . )+8*(p4p6*p3p5)*(ffmcfmb*hbcm2+4*fmb*hbcm+3*fmc*hbcm)+8*(p5p6*
3723      . p3p4)*(-ffmcfmb*hbcm2+2*fmb*hbcm+3*fmc*hbcm)+8*(p4p6*p3p4)*(3*
3724      . ffmcfmb*hbcm2+6*fmb*hbcm+3*fmc*hbcm+2*hbcm2)+32*(p5p6*p2p3)*(
3725      . ffmcfmb*hbcm2-fmc*hbcm)+16*(p4p6*p2p3)*(-ffmcfmb*hbcm2-3*fmb*
3726      . hbcm-2*fmc*hbcm)+16*(p3p6*p1p5)*(-ffmcfmb*hbcm2+fmc*hbcm)+16*(
3727      . p5p6*p1p3)*(ffmcfmb*hbcm2-fmc*hbcm)+8*p5p6*(ffmcfmb*fmb*hbcm3+
3728      . ffmcfmb*fmc*hbcm3-2*ffmcfmb*hbcm4+fmb*fmc*hbcm2+2*fmc*hbcm3+
3729      . fmc2*hbcm2-2*p3p5s2)+8*(p3p6*p3p5)*(2*ffmcfmb*fmb*hbcm+2*
3730      . ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2+2*fmb2-fmc*hbcm-2*fmc2)+8*(p3p6
3731      . *p3p4)*(2*ffmcfmb*fmb*hbcm+2*ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-2*
3732      . fmb*hbcm+2*fmb2-fmc*hbcm-2*fmc2)+32*(p3p6*p2p3)*(-ffmcfmb*fmb*
3733      . hbcm-ffmcfmb*fmc*hbcm)+ans4
3734       ans2=w18*ans3
3735       ans7=8*p3p6*(ffmcfmb**2*fmb*hbcm3+ffmcfmb**2*fmc*hbcm3+ffmcfmb*
3736      . fmb*hbcm3+ffmcfmb*fmb2*hbcm2+ffmcfmb*fmc*hbcm3-ffmcfmb*fmc2*
3737      . hbcm2+fmb*fmc*hbcm2-2*fmb*fmc2*hbcm-fmb*hbcm3-fmb2*fmc*hbcm+
3738      . fmb3*hbcm-2*fmc*hbcm3+fmc2*hbcm2)+16*(-ffmcfmb*p1p3*p2p3*p3p6-
3739      . fmb*hbcm*p1p5*p3p6+p1p3*p1p4*p3p6-p1p3*p1p5*p3p6-2*p1p3*p2p3*
3740      . p4p6+p1p3*p2p3*p5p6+2*p1p3*p3p4*p4p6+p1p3*p3p5*p3p6+p1p3*p3p5*
3741      . p4p6-p1p3*p3p5*p5p6)
3742       ans6=16*(p5p6*p3p5)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(p4p6*
3743      . p3p5)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+32*(p4p6*p3p4)*(ffmcfmb*
3744      . hbcm2+fmb*hbcm-hbcm2)+16*(p5p6*p2p3)*(ffmcfmb*hbcm2+fmb*hbcm-
3745      . hbcm2)+32*(p4p6*p2p3)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(p3p6
3746      . *p1p4)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(p5p6*p1p3)*(ffmcfmb*
3747      . hbcm2+2*fmb*hbcm+fmc*hbcm-2*hbcm2)+8*(p4p6*p1p3)*(-ffmcfmb*
3748      . hbcm2-2*fmb*hbcm+fmc*hbcm+4*hbcm2)+8*(p3p6*p1p3)*(ffmcfmb*
3749      . hbcm2+2*fmb2+fmc*hbcm-2*fmc2)+8*p5p6*(ffmcfmb*fmb*hbcm3+
3750      . ffmcfmb*fmc*hbcm3-ffmcfmb*hbcm4+fmb*fmc*hbcm2-2*fmb*hbcm3+fmb2
3751      . *hbcm2-fmc*hbcm3+hbcm4+2*p1p3s2)+16*(p3p6*p3p5)*(ffmcfmb*fmb*
3752      . hbcm+ffmcfmb*fmc*hbcm-fmc*hbcm)+16*(p3p6*p3p4)*(ffmcfmb*fmb*
3753      . hbcm+ffmcfmb*fmc*hbcm-fmb*hbcm-fmc*hbcm)+16*(p3p6*p2p3)*(-2*
3754      . ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*hbcm+fmb*hbcm+2*fmc*hbcm)+8*
3755      . p4p6*(ffmcfmb**2*hbcm4+ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*hbcm3+
3756      . ffmcfmb*hbcm4+fmb*fmc*hbcm2+2*fmb*hbcm3-fmc*hbcm3-2*hbcm4-2*
3757      . p1p3s2)+ans7
3758       ans5=w13*ans6
3759       ans8=((p3p6*p2p3)*(32*fb2*ffmcfmb+8)+4*p5p6*(4*fb1*fmc*hbcm-4*
3760      . fb2*ffmcfmb*hbcm2+8*fb2*hbcm2+hbcm2)+4*p4p6*(4*fb1*fmc*hbcm-4*
3761      . fb2*ffmcfmb*hbcm2-8*fb2*hbcm2-3*hbcm2)+4*p3p6*(4*fb1*fmc*hbcm-
3762      . 4*fb2*ffmcfmb*hbcm2-8*fb2*fmb2+8*fb2*fmc2+2*ffmcfmb*hbcm2-4*
3763      . fmb*hbcm-4*fmc*hbcm-hbcm2)+32*(fb2*p1p3*p4p6-fb2*p1p3*p5p6-fb2
3764      . *p1p4*p3p6+fb2*p1p5*p3p6+2*fb2*p2p3*p4p6-fb2*p2p3*p5p6-2*fb2*
3765      . p3p4*p4p6-fb2*p3p5*p3p6-fb2*p3p5*p4p6+fb2*p3p5*p5p6))
3766       ans1=w1*(16*(p4p6*p3p5)*(ffmcfmb*hbcm2+fmc*hbcm)+8*(p5p6*p3p4)*
3767      . (ffmcfmb*hbcm2-fmc*hbcm-2*hbcm2)+8*(p4p6*p3p4)*(3*ffmcfmb*
3768      . hbcm2+3*fmc*hbcm+2*hbcm2)+16*(p4p6*p2p3)*(-ffmcfmb*hbcm2-2*fmc
3769      . *hbcm)+8*p5p6*(ffmcfmb*fmc*hbcm3-2*fmc*hbcm3-fmc2*hbcm2)+16*(
3770      . p3p6*p3p5)*(ffmcfmb*fmc*hbcm+fmc*hbcm)+8*(p3p6*p3p4)*(2*
3771      . ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2+2*fmb2-fmc*hbcm-2*fmc2)+8*p4p6*
3772      . (ffmcfmb**2*hbcm4+ffmcfmb*fmc*hbcm3+2*fmc*hbcm3+4*p3p4s2)+8*
3773      . p3p6*(ffmcfmb**2*fmc*hbcm3+ffmcfmb*fmc*hbcm3+2*fmb2*fmc*hbcm-
3774      . fmc2*hbcm2-fmc3*hbcm)+16*(-2*ffmcfmb*fmc*hbcm*p2p3*p3p6-
3775      . ffmcfmb*p2p3*p3p4*p3p6-fmc*hbcm*p1p3*p4p6+fmc*hbcm*p1p3*p5p6+
3776      . fmc*hbcm*p1p4*p3p6-fmc*hbcm*p1p5*p3p6+fmc*hbcm*p2p3*p5p6-fmc*
3777      . hbcm*p3p5*p5p6+fmc*hbcm*p3p6*p4p5+hbcm2*p4p5*p4p6-p1p3*p3p4*
3778      . p4p6+p1p3*p3p4*p5p6+p1p4*p3p4*p3p6-p1p5*p3p4*p3p6-2*p2p3*p3p4*
3779      . p4p6+p2p3*p3p4*p5p6+p3p4*p3p5*p3p6+p3p4*p3p5*p4p6-p3p4*p3p5*
3780      . p5p6))+ans2+ans5+ans8
3781       ans=ccc*ans1
3782       b(6)=ans
3783       ans2=w13*(8*p3p5*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*p3p4*(
3784      . ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*p1p5*(ffmcfmb*hbcm2+fmb*hbcm-
3785      . hbcm2)+16*p1p4*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+4*p1p3*(-
3786      . ffmcfmb**2*hbcm2-4*ffmcfmb*fmb*hbcm-4*ffmcfmb*fmc*hbcm+2*
3787      . ffmcfmb*hbcm2+2*fmb*hbcm-2*fmb2+4*fmc*hbcm+3*fmc2)+4*(-2*
3788      . ffmcfmb**2*fmb*hbcm3-2*ffmcfmb**2*fmc*hbcm3+ffmcfmb**2*hbcm4+4
3789      . *ffmcfmb*fmb*hbcm3-3*ffmcfmb*fmb2*hbcm2+4*ffmcfmb*fmc*hbcm3+3*
3790      . ffmcfmb*fmc2*hbcm2-ffmcfmb*hbcm4-2*ffmcfmb*p1p3s2+3*fmb*fmc2*
3791      . hbcm-fmb*hbcm3+2*fmb2*fmc*hbcm+2*fmb2*hbcm2-fmb3*hbcm-2*fmc*
3792      . hbcm3-3*fmc2*hbcm2-4*p1p3*p1p4+2*p1p3*p1p5+4*p1p3*p3p4-2*p1p3*
3793      . p3p5))+(p1p3*(16*fb2*ffmcfmb+4)+4*(2*fb2*ffmcfmb**2*hbcm2-4*
3794      . fb2*ffmcfmb*hbcm2+4*fb2*fmb2-6*fb2*fmc2+8*fb2*p1p4-4*fb2*p1p5-
3795      . 8*fb2*p3p4+4*fb2*p3p5-ffmcfmb*hbcm2+3*fmb*hbcm+4*fmc*hbcm-
3796      . hbcm2))
3797       ans1=w1*(8*p4p5*(ffmcfmb*hbcm2-fmc*hbcm)+8*p1p4*(-ffmcfmb*hbcm2
3798      . -2*fmc*hbcm)+4*p3p4*(-ffmcfmb**2*hbcm2+4*ffmcfmb*hbcm2-2*fmb2+
3799      . 4*fmc*hbcm+3*fmc2)+8*(-ffmcfmb**2*fmc*hbcm3-2*ffmcfmb*fmc*hbcm
3800      . *p1p3+2*ffmcfmb*fmc*hbcm3+ffmcfmb*fmc2*hbcm2-ffmcfmb*p1p3*p3p4
3801      . -fmb2*fmc*hbcm+fmc*hbcm*p1p5-fmc*hbcm*p3p5+fmc3*hbcm-2*p1p4*
3802      . p3p4+p1p5*p3p4-p3p4*p3p5+2*p3p4s2))+w18*(8*p4p5*(-ffmcfmb*
3803      . hbcm2+fmb*hbcm+2*fmc*hbcm)+16*p1p5*(ffmcfmb*hbcm2-fmc*hbcm)+8*
3804      . p1p4*(-ffmcfmb*hbcm2-3*fmb*hbcm-2*fmc*hbcm)+16*p1p3*(-ffmcfmb*
3805      . fmb*hbcm-ffmcfmb*fmc*hbcm)+4*p3p5*(-ffmcfmb**2*hbcm2-2*ffmcfmb
3806      . *hbcm2-2*fmb2+4*fmc*hbcm+3*fmc2)+4*p3p4*(-ffmcfmb**2*hbcm2+4*
3807      . ffmcfmb*hbcm2+6*fmb*hbcm-2*fmb2+4*fmc*hbcm+3*fmc2)+8*(-ffmcfmb
3808      . **2*fmb*hbcm3-ffmcfmb**2*fmc*hbcm3+2*ffmcfmb*fmb*hbcm3-2*
3809      . ffmcfmb*fmb2*hbcm2+2*ffmcfmb*fmc*hbcm3+ffmcfmb*fmc2*hbcm2-
3810      . ffmcfmb*p1p3*p3p4-ffmcfmb*p1p3*p3p5+2*fmb*fmc2*hbcm+2*fmb2*fmc
3811      . *hbcm+fmc3*hbcm-2*p1p4*p3p4-2*p1p4*p3p5+p1p5*p3p4+p1p5*p3p5+
3812      . p3p4*p3p5+2*p3p4s2-p3p5s2))+ans2
3813       ans=ccc*ans1
3814       b(7)=ans
3815       ans4=4*(ffmcfmb**2*fmb*hbcm4-ffmcfmb**2*fmc*hbcm4+2*ffmcfmb*fmb
3816      . *hbcm4+2*ffmcfmb*fmb2*hbcm3-2*ffmcfmb*fmc*hbcm4-2*ffmcfmb*fmc2
3817      . *hbcm3-2*ffmcfmb*hbcm*p3p4s2-2*ffmcfmb*hbcm*p3p5s2-4*fmb*fmc*
3818      . hbcm3-3*fmb*fmc2*hbcm2+2*fmb*p3p4s2+2*fmb*p3p5s2+2*fmb2*fmc*
3819      . hbcm2+2*fmb2*hbcm3-4*fmc*p3p4s2-4*fmc*p3p5s2-2*fmc2*hbcm3+fmc3
3820      . *hbcm2+4*hbcm*p1p3*p4p5-2*hbcm*p1p4*p3p4+6*hbcm*p1p4*p3p5-6*
3821      . hbcm*p1p5*p3p4+2*hbcm*p1p5*p3p5+8*hbcm*p2p3*p4p5+2*hbcm*p3p4s2
3822      . -8*hbcm*p3p5*p4p5-2*hbcm*p3p5s2)
3823       ans3=8*p4p5*(-fmb*hbcm2+fmc*hbcm2-2*hbcm3)+8*p1p5*(-ffmcfmb*
3824      . hbcm3-fmc*hbcm2)+8*p1p4*(ffmcfmb*hbcm3+2*fmb*hbcm2-fmc*hbcm2)+
3825      . 16*(p3p5*p3p4)*(-ffmcfmb*hbcm+fmb-2*fmc)+8*(p3p5*p2p3)*(2*
3826      . ffmcfmb*hbcm-fmb+3*fmc)+8*(p3p4*p2p3)*(2*ffmcfmb*hbcm-fmb+3*
3827      . fmc)+8*(p3p5*p1p3)*(3*ffmcfmb*hbcm-fmb+2*fmc)+8*(p3p4*p1p3)*(-
3828      . ffmcfmb*hbcm-fmb+2*fmc)+8*p2p3*(-3*ffmcfmb*fmb*hbcm2+3*ffmcfmb
3829      . *fmc*hbcm2+3*fmb*fmc*hbcm-fmb2*hbcm+2*fmc2*hbcm)+8*p1p3*(-
3830      . ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+2*fmb*fmc*hbcm-fmb2*hbcm+
3831      . fmc2*hbcm)+8*p3p5*(ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*hbcm2-2*
3832      . ffmcfmb*fmc*hbcm2-2*ffmcfmb*hbcm3-2*fmb*fmc*hbcm+fmb*hbcm2-fmc
3833      . *hbcm2-3*fmc2*hbcm)+8*p3p4*(-ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*
3834      . hbcm2-2*ffmcfmb*fmc*hbcm2-2*fmb*fmc*hbcm-fmb*hbcm2+4*fmb2*hbcm
3835      . -fmc*hbcm2-fmc2*hbcm)+ans4
3836       ans2=w18*ans3
3837       ans7=4*(ffmcfmb**2*fmb*hbcm4-ffmcfmb**2*fmc*hbcm4+2*ffmcfmb**2*
3838      . hbcm5+2*ffmcfmb*fmb*hbcm4+2*ffmcfmb*fmb2*hbcm3-2*ffmcfmb*fmc*
3839      . hbcm4-2*ffmcfmb*fmc2*hbcm3-2*ffmcfmb*hbcm*p1p3s2-2*ffmcfmb*
3840      . hbcm5-4*fmb*fmc*hbcm3-2*fmb*fmc2*hbcm2-fmb*hbcm4-2*fmb*p1p3s2+
3841      . fmb2*fmc*hbcm2+fmb3*hbcm2+3*fmc*hbcm4+4*fmc*p1p3s2+2*fmc2*
3842      . hbcm3+2*hbcm*p1p3*p1p4-2*hbcm*p1p3*p1p5)
3843       ans6=8*p1p5*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+8*p1p4*(ffmcfmb*
3844      . hbcm3+fmb*hbcm2-hbcm3)+8*(p3p5*p1p3)*(3*ffmcfmb*hbcm+fmb-2*fmc
3845      . -hbcm)+8*(p3p4*p1p3)*(-ffmcfmb*hbcm+fmb-2*fmc+hbcm)+8*(p2p3*
3846      . p1p3)*(-2*ffmcfmb*hbcm-fmb+3*fmc)+16*p3p4*(ffmcfmb*fmb*hbcm2-
3847      . ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm-fmb*hbcm2+fmb2*hbcm+fmc*hbcm2)+
3848      . 16*p3p5*(ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-
3849      . ffmcfmb*hbcm3-fmb*fmc*hbcm+fmc*hbcm2)+8*p2p3*(-2*ffmcfmb**2*
3850      . hbcm3-3*ffmcfmb*fmb*hbcm2+3*ffmcfmb*fmc*hbcm2+2*ffmcfmb*hbcm3+
3851      . 3*fmb*fmc*hbcm+fmb*hbcm2-fmb2*hbcm-3*fmc*hbcm2)+8*p1p3*(-
3852      . ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+2*ffmcfmb
3853      . *hbcm3+2*fmb*fmc*hbcm+fmb*hbcm2-3*fmc*hbcm2-fmc2*hbcm)+ans7
3854       ans5=w13*ans6
3855       ans8=(4*p3p5*(4*fb1*ffmcfmb*hbcm+4*fb1*hbcm-4*fb2*fmb+8*fb2*fmc
3856      . -7*hbcm)+4*p3p4*(4*fb1*ffmcfmb*hbcm-4*fb1*hbcm-4*fb2*fmb+8*fb2
3857      . *fmc+hbcm)+8*p2p3*(-4*fb1*ffmcfmb*hbcm+2*fb2*fmb-6*fb2*fmc+3*
3858      . hbcm)+4*p1p3*(-4*fb1*ffmcfmb*hbcm+4*fb2*fmb-8*fb2*fmc+3*hbcm)+
3859      . 4*(4*fb1*ffmcfmb*hbcm3+4*fb1*fmb2*hbcm-4*fb1*fmc2*hbcm+4*fb1*
3860      . hbcm*p1p4-4*fb1*hbcm*p1p5-4*fb2*fmb*hbcm2+8*fb2*fmc*hbcm2-2*
3861      . fmb*hbcm2+2*fmc*hbcm2-3*hbcm3))
3862       ans1=w1*(8*p4p5*(-ffmcfmb*hbcm3-fmc*hbcm2+2*hbcm3)+8*p1p4*(
3863      . ffmcfmb*hbcm3-fmc*hbcm2)+8*(p3p5*p3p4)*(-ffmcfmb*hbcm+fmb-2*
3864      . fmc-hbcm)+8*(p3p4*p2p3)*(2*ffmcfmb*hbcm-fmb+3*fmc)+8*(p3p4*
3865      . p1p3)*(-ffmcfmb*hbcm-fmb+2*fmc)+8*p3p5*(-2*ffmcfmb*fmc*hbcm2+
3866      . fmb*fmc*hbcm-fmc*hbcm2-fmc2*hbcm)+8*p2p3*(3*ffmcfmb*fmc*hbcm2-
3867      . fmb*fmc*hbcm+2*fmc2*hbcm)+8*p1p3*(ffmcfmb*fmc*hbcm2-fmb*fmc*
3868      . hbcm+fmc2*hbcm)+8*p3p4*(-ffmcfmb**2*hbcm3-2*ffmcfmb*fmc*hbcm2+
3869      . fmb*fmc*hbcm+fmb*hbcm2-fmb2*hbcm-fmc*hbcm2-fmc2*hbcm)+4*(-
3870      . ffmcfmb**2*fmc*hbcm4-2*ffmcfmb*fmc*hbcm4-2*ffmcfmb*fmc2*hbcm3-
3871      . 2*ffmcfmb*hbcm*p3p4s2+2*fmb*fmc*hbcm3+2*fmb*p3p4s2-2*fmb2*fmc*
3872      . hbcm2+2*fmc*hbcm2*p1p5-4*fmc*p3p4s2-2*fmc2*hbcm3+fmc3*hbcm2-4*
3873      . hbcm*p1p3*p4p5-2*hbcm*p1p4*p3p4+2*hbcm*p1p5*p3p4-4*hbcm*p2p3*
3874      . p4p5+2*hbcm*p3p4s2+4*hbcm*p3p5*p4p5))+ans2+ans5+ans8
3875       ans=ccc*ans1
3876       b(8)=ans
3877       ans=ccc*(w1*(8*p4p6*(ffmcfmb*hbcm3-fmc*hbcm2)+8*(p3p6*p3p4)*(-
3878      . ffmcfmb*hbcm-fmb+2*fmc)+8*p3p6*(ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm
3879      . +fmc2*hbcm)+8*(fmc*hbcm2*p5p6-hbcm*p3p4*p4p6+hbcm*p3p4*p5p6-2*
3880      . hbcm*p3p6*p4p5))+w18*(8*p5p6*(-ffmcfmb*hbcm3-fmc*hbcm2)+8*p4p6
3881      . *(ffmcfmb*hbcm3+2*fmb*hbcm2-fmc*hbcm2)+8*(p3p6*p3p5)*(3*
3882      . ffmcfmb*hbcm-fmb+2*fmc)+8*(p3p6*p3p4)*(-ffmcfmb*hbcm-fmb+2*fmc
3883      . )+8*p3p6*(-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+2*fmb*fmc*hbcm-
3884      . fmb2*hbcm+fmc2*hbcm)+8*(-hbcm*p3p4*p4p6-3*hbcm*p3p4*p5p6+3*
3885      . hbcm*p3p5*p4p6+hbcm*p3p5*p5p6+2*hbcm*p3p6*p4p5))+w13*(8*p5p6*(
3886      . -ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+8*p4p6*(ffmcfmb*hbcm3+fmb*
3887      . hbcm2-hbcm3)+16*(p3p6*p3p5)*(ffmcfmb*hbcm-hbcm)+16*(p3p6*p3p4)
3888      . *(-ffmcfmb*hbcm+hbcm)+8*(p3p6*p1p3)*(-ffmcfmb*hbcm-fmb+2*fmc)+
3889      . 8*p3p6*(-ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+
3890      . ffmcfmb*hbcm3+2*fmb*fmc*hbcm-fmb2*hbcm-fmc*hbcm2)+8*(hbcm*p1p3
3891      . *p4p6-hbcm*p1p3*p5p6))+(4*p3p6*(-4*fb1*ffmcfmb*hbcm+4*fb2*fmb-
3892      . 8*fb2*fmc+3*hbcm)+16*(fb1*hbcm*p4p6-fb1*hbcm*p5p6)))
3893       b(9)=ans
3894       b(10)=ccc*(w1*(8*p4p6*(ffmcfmb*hbcm2+2*fmc*hbcm)+8*(2*ffmcfmb*
3895      . fmc*hbcm*p3p6+ffmcfmb*p3p4*p3p6-fmc*hbcm*p5p6+2*p3p4*p4p6-p3p4
3896      . *p5p6))+w18*(16*p5p6*(-ffmcfmb*hbcm2+fmc*hbcm)+8*p4p6*(ffmcfmb
3897      . *hbcm2+3*fmb*hbcm+2*fmc*hbcm)+16*p3p6*(ffmcfmb*fmb*hbcm+
3898      . ffmcfmb*fmc*hbcm)+8*(ffmcfmb*p3p4*p3p6+ffmcfmb*p3p5*p3p6+2*
3899      . p3p4*p4p6-p3p4*p5p6+2*p3p5*p4p6-p3p5*p5p6))+w13*(8*p5p6*(-
3900      . ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*p4p6*(ffmcfmb*hbcm2+fmb*hbcm-
3901      . hbcm2)+8*p3p6*(2*ffmcfmb*fmb*hbcm+2*ffmcfmb*fmc*hbcm-fmb*hbcm-
3902      . 2*fmc*hbcm)+8*(ffmcfmb*p1p3*p3p6+2*p1p3*p4p6-p1p3*p5p6))+(p3p6
3903      . *(-16*fb2*ffmcfmb-4)+16*(-2*fb2*p4p6+fb2*p5p6)))
3904       ans=ccc*(w1*(4*p3p4*(-3*ffmcfmb*hbcm2+fmb*hbcm-2*fmc*hbcm)+4*(-
3905      . 2*ffmcfmb*fmc*hbcm3+fmb*fmc*hbcm2+2*fmc*hbcm*p3p5+fmc2*hbcm2-2
3906      . *hbcm2*p4p5+2*p3p4*p3p5-4*p3p4s2))+w18*(4*p3p5*(3*ffmcfmb*
3907      . hbcm2+fmb*hbcm-2*fmc*hbcm)+4*p3p4*(-3*ffmcfmb*hbcm2-5*fmb*hbcm
3908      . -2*fmc*hbcm)+4*(-2*ffmcfmb*fmb*hbcm3-2*ffmcfmb*fmc*hbcm3-2*fmb
3909      . *fmc*hbcm2-fmb2*hbcm2+fmc2*hbcm2+2*hbcm2*p4p5-2*p3p4*p3p5-4*
3910      . p3p4s2+2*p3p5s2))+w13*(8*p3p5*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+
3911      . 16*p3p4*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+4*p1p3*(-ffmcfmb*hbcm2
3912      . -fmb*hbcm-2*fmc*hbcm)+4*(-ffmcfmb**2*hbcm4-2*ffmcfmb*fmb*hbcm3
3913      . -2*ffmcfmb*fmc*hbcm3+ffmcfmb*hbcm4-2*fmb*fmc*hbcm2+fmb*hbcm3-
3914      . fmb2*hbcm2+2*fmc*hbcm3-4*p1p3*p3p4+2*p1p3*p3p5))+2*(-4*fb1*fmb
3915      . *hbcm-8*fb1*fmc*hbcm+4*fb2*ffmcfmb*hbcm2+16*fb2*p3p4-8*fb2*
3916      . p3p5+3*hbcm2))
3917       b(11)=ans
3918       ans=ccc*(w1*(8*p4p7*(ffmcfmb*hbcm3-fmc*hbcm2)+8*(p3p7*p3p4)*(-3
3919      . *ffmcfmb*hbcm-fmc)+8*p3p7*(-2*ffmcfmb*fmc*hbcm2-fmc2*hbcm)+8*(
3920      . fmc*hbcm2*p5p7-hbcm*p3p4*p4p7+hbcm*p3p4*p5p7))+w18*(8*p5p7*(-
3921      . ffmcfmb*hbcm3-fmc*hbcm2)+8*p4p7*(ffmcfmb*hbcm3+2*fmb*hbcm2-fmc
3922      . *hbcm2)+8*(p3p7*p3p5)*(ffmcfmb*hbcm-fmc)+8*(p3p7*p3p4)*(-3*
3923      . ffmcfmb*hbcm-fmc)+8*p3p7*(2*ffmcfmb*fmb*hbcm2-2*ffmcfmb*fmc*
3924      . hbcm2-fmb*fmc*hbcm-fmc2*hbcm)+8*(-hbcm*p3p4*p4p7-3*hbcm*p3p4*
3925      . p5p7+3*hbcm*p3p5*p4p7+hbcm*p3p5*p5p7-2*hbcm*p3p7*p4p5))+w13*(8
3926      . *p5p7*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+8*p4p7*(ffmcfmb*hbcm3+
3927      . fmb*hbcm2-hbcm3)+8*(p3p7*p1p3)*(ffmcfmb*hbcm-fmc)+8*p3p7*(
3928      . ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-ffmcfmb*
3929      . hbcm3-fmb*fmc*hbcm+fmc*hbcm2)+8*(hbcm*p1p3*p4p7-hbcm*p1p3*p5p7
3930      . ))+(4*p3p7*(4*fb1*ffmcfmb*hbcm+4*fb2*fmc-3*hbcm)+16*(fb1*hbcm*
3931      . p4p7-fb1*hbcm*p5p7)))
3932       b(12)=ans
3933       b(13)=ccc*(w1*(4*p3p4*(-2*ffmcfmb*hbcm+fmb-3*fmc)+4*(-3*ffmcfmb
3934      . *fmc*hbcm2+fmb*fmc*hbcm-2*fmc2*hbcm+2*hbcm*p4p5))+w18*(4*p3p5*
3935      . (-2*ffmcfmb*hbcm+fmb-3*fmc)+4*p3p4*(-2*ffmcfmb*hbcm+fmb-3*fmc)
3936      . +4*(3*ffmcfmb*fmb*hbcm2-3*ffmcfmb*fmc*hbcm2-3*fmb*fmc*hbcm+
3937      . fmb2*hbcm-2*fmc2*hbcm-4*hbcm*p4p5))+w13*(4*p1p3*(2*ffmcfmb*
3938      . hbcm+fmb-3*fmc)+4*(2*ffmcfmb**2*hbcm3+3*ffmcfmb*fmb*hbcm2-3*
3939      . ffmcfmb*fmc*hbcm2-2*ffmcfmb*hbcm3-3*fmb*fmc*hbcm-fmb*hbcm2+
3940      . fmb2*hbcm+3*fmc*hbcm2))+4*(4*fb1*ffmcfmb*hbcm-2*fb2*fmb+6*fb2*
3941      . fmc-3*hbcm))
3942       b(14)=ccc*(w1*(8*p4p7*(-ffmcfmb*hbcm2-2*fmc*hbcm)+8*(-2*ffmcfmb
3943      . *fmc*hbcm*p3p7-ffmcfmb*p3p4*p3p7+fmc*hbcm*p5p7-2*p3p4*p4p7+
3944      . p3p4*p5p7))+w18*(16*p5p7*(ffmcfmb*hbcm2-fmc*hbcm)+8*p4p7*(-
3945      . ffmcfmb*hbcm2-3*fmb*hbcm-2*fmc*hbcm)+16*p3p7*(-ffmcfmb*fmb*
3946      . hbcm-ffmcfmb*fmc*hbcm)+8*(-ffmcfmb*p3p4*p3p7-ffmcfmb*p3p5*p3p7
3947      . -2*p3p4*p4p7+p3p4*p5p7-2*p3p5*p4p7+p3p5*p5p7))+w13*(8*p5p7*(
3948      . ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*p4p7*(-ffmcfmb*hbcm2-fmb*hbcm
3949      . +hbcm2)+8*p3p7*(-ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm+ffmcfmb*
3950      . hbcm2)+8*(-ffmcfmb*p1p3*p3p7-2*p1p3*p4p7+p1p3*p5p7))+(p3p7*(16
3951      . *fb2*ffmcfmb+4)+16*(2*fb2*p4p7-fb2*p5p7)))
3952       ans2=w13*(16*(p4p6*p3p7)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(
3953      . p4p7*p3p6)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(p6p7*p3p4)*(-
3954      . ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(p6p7*p1p3)*(-ffmcfmb*hbcm2-
3955      . fmc*hbcm)+8*p6p7*(-ffmcfmb**2*hbcm4-ffmcfmb*fmb*hbcm3-ffmcfmb*
3956      . fmc*hbcm3+ffmcfmb*hbcm4-fmb*fmc*hbcm2+fmc*hbcm3)+16*(p3p7*p3p6
3957      . )*(ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm-ffmcfmb*
3958      . hbcm2-fmc*hbcm)+16*(ffmcfmb*p1p3*p3p6*p3p7-fmb*hbcm*p3p6*p5p7-
3959      . p1p3*p3p4*p6p7+p1p3*p3p6*p4p7-p1p3*p3p6*p5p7+p1p3*p3p7*p4p6))+
3960      . ((p3p7*p3p6)*(-32*fb2*ffmcfmb-8)+4*p6p7*(-4*fb1*fmc*hbcm+4*fb2
3961      . *ffmcfmb*hbcm2+hbcm2)+32*(fb2*p3p4*p6p7-fb2*p3p6*p4p7+fb2*p3p6
3962      . *p5p7-fb2*p3p7*p4p6))
3963       ans1=w1*(16*(p4p6*p3p7)*(ffmcfmb*hbcm2+fmc*hbcm)+8*(p6p7*p3p4)*
3964      . (-ffmcfmb*hbcm2-fmc*hbcm)+8*p6p7*(-ffmcfmb*fmc*hbcm3+fmc2*
3965      . hbcm2-2*p3p4s2)+16*(2*ffmcfmb*fmc*hbcm*p3p6*p3p7+ffmcfmb*p3p4*
3966      . p3p6*p3p7+fmc*hbcm*p3p6*p4p7-fmc*hbcm*p3p6*p5p7+p3p4*p3p6*p4p7
3967      . -p3p4*p3p6*p5p7+p3p4*p3p7*p4p6))+w18*(16*(p4p7*p3p6)*(2*fmb*
3968      . hbcm+fmc*hbcm)+16*(p5p6*p3p7)*(-ffmcfmb*hbcm2+fmc*hbcm)+16*(
3969      . p4p6*p3p7)*(ffmcfmb*hbcm2+fmb*hbcm+fmc*hbcm)+16*(p5p7*p3p6)*(-
3970      . ffmcfmb*hbcm2+fmc*hbcm)+8*(p6p7*p3p5)*(ffmcfmb*hbcm2-fmc*hbcm)
3971      . +8*(p6p7*p3p4)*(-ffmcfmb*hbcm2-2*fmb*hbcm-fmc*hbcm)+8*p6p7*(-
3972      . ffmcfmb*fmb*hbcm3-ffmcfmb*fmc*hbcm3-fmb*fmc*hbcm2+fmc2*hbcm2-2
3973      . *p3p4s2)+32*(p3p7*p3p6)*(ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm)+16
3974      . *(ffmcfmb*p3p4*p3p6*p3p7+ffmcfmb*p3p5*p3p6*p3p7+hbcm2*p4p5*
3975      . p6p7+hbcm2*p4p6*p5p7-hbcm2*p4p7*p5p6-p3p4*p3p5*p6p7+p3p4*p3p6*
3976      . p4p7-p3p4*p3p6*p5p7+p3p4*p3p7*p4p6+p3p5*p3p6*p4p7-p3p5*p3p6*
3977      . p5p7+p3p5*p3p7*p4p6))+ans2
3978       ans=ccc*ans1
3979       b(15)=ans
3980       b(16)=ccc*(w1*(8*(p6p7*p3p4)*(ffmcfmb*hbcm+fmc)+8*p6p7*(ffmcfmb
3981      . *fmc*hbcm2+fmc2*hbcm)+16*(-ffmcfmb*hbcm*p3p6*p4p7+ffmcfmb*hbcm
3982      . *p3p7*p4p6))+w18*(8*(p6p7*p3p5)*(ffmcfmb*hbcm+fmc)+8*(p6p7*
3983      . p3p4)*(ffmcfmb*hbcm+fmc)+8*p6p7*(-ffmcfmb*fmb*hbcm2+ffmcfmb*
3984      . fmc*hbcm2+fmb*fmc*hbcm+fmc2*hbcm)+16*(-ffmcfmb*hbcm*p3p6*p4p7+
3985      . ffmcfmb*hbcm*p3p6*p5p7+ffmcfmb*hbcm*p3p7*p4p6-ffmcfmb*hbcm*
3986      . p3p7*p5p6+hbcm*p4p5*p6p7+2*hbcm*p4p6*p5p7-2*hbcm*p4p7*p5p6))+
3987      . w13*(16*(p5p7*p3p6)*(ffmcfmb*hbcm-hbcm)+16*(p4p7*p3p6)*(-
3988      . ffmcfmb*hbcm+hbcm)+8*(p6p7*p1p3)*(-ffmcfmb*hbcm+fmc)+8*p6p7*(-
3989      . ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+ffmcfmb*
3990      . hbcm3+fmb*fmc*hbcm-fmc*hbcm2))+4*p6p7*(-4*fb1*ffmcfmb*hbcm-4*
3991      . fb2*fmc+3*hbcm))
3992       do 200 n=1,16
3993          c(n,1)=c(n,1)-0.1818181818181818d0*b(n)
3994          c(n,2)=c(n,2)-0.05883183899358491d0*b(n)
3995          c(n,3)=c(n,3)-0.2077659977796572d0*b(n)
3996 200   continue
3997       return
3998       end
3999
4000       subroutine amp2_3p0(cc)
4001       implicit double precision(a-h,o-z)
4002       implicit integer (i-n)
4003       dimension b(14)
4004 #include "inclcon.h"
4005 #include "inclppp.h"
4006 #include "inclamp.h"
4007       do 100 n=1,14
4008          b(n)=0.0d0
4009 100   continue
4010       ccc=cc/((4*p1p4*p2p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3+2*
4011      . ffmcfmb*p3p4+fmc2-2*p1p4))
4012       b(1)=ccc*(w5*(16*(p5p7*p3p6*p3p4)*(fmb-fmc)+16*(p5p7*p3p6*p1p3)
4013      . *(-fmb+fmc)-16*fmc*hbcm2*p3p6*p5p7)+32*(p5p7*p3p6)*(2*fb1*hbcm
4014      . -fb2*fmb+fb2*fmc))
4015       b(2)=ccc*(w5*(8*(p5p7*p3p4)*(-fmb+fmc)+8*(p5p7*p1p3)*(fmb-fmc)+
4016      . 8*fmc*hbcm2*p5p7)+16*p5p7*(-2*fb1*hbcm+fb2*fmb-fb2*fmc))
4017       b(5)=ccc*(w5*(8*p5p7*(fmb*fmc*hbcm2+fmc2*hbcm2)+8*(-hbcm2*p1p3*
4018      . p5p7-2*hbcm2*p1p4*p5p7+hbcm2*p3p4*p5p7+2*p1p3*p2p3*p5p7-2*p1p3
4019      . *p3p5*p5p7-2*p2p3*p3p4*p5p7+2*p3p4*p3p5*p5p7))+(16*p5p7*(-2*
4020      . fb1*fmb*hbcm-2*fb1*fmc*hbcm-fb2*hbcm2)+32*(fb2*p2p3*p5p7-fb2*
4021      . p3p5*p5p7)))
4022       b(7)=ccc*(8*w5*(-p1p3*p2p5+p2p5*p3p4)-16*fb2*p2p5)
4023       b(8)=8*ccc*p2p5*(-4*fb1*hbcm+fmc*hbcm2*w5)
4024       b(11)=ccc*(4*w5*(-fmb*fmc*hbcm2-fmc2*hbcm2+hbcm2*p1p3+2*hbcm2*
4025      . p1p4-hbcm2*p3p4-2*p1p3*p2p3+2*p1p3*p3p5+2*p2p3*p3p4-2*p3p4*
4026      . p3p5)+8*(2*fb1*fmb*hbcm+2*fb1*fmc*hbcm+fb2*hbcm2-2*fb2*p2p3+2*
4027      . fb2*p3p5))
4028       b(13)=ccc*(w5*(4*p3p4*(-fmb+fmc)+4*p1p3*(fmb-fmc)+4*fmc*hbcm2)+
4029      . 8*(-2*fb1*hbcm+fb2*fmb-fb2*fmc))
4030       do 200 n=1,14
4031          c(n,2)=c(n,2)-0.7396002616336388d0*b(n)
4032          c(n,3)=c(n,3)+0.1662127982237257d0*b(n)
4033 200   continue
4034       return
4035       end
4036
4037       subroutine amp1s2_3p0(cc)
4038       implicit double precision(a-h,o-z)
4039       implicit integer (i-n)
4040       dimension b(8)
4041 #include "inclcon.h"
4042 #include "inclppp.h"
4043 #include "inclamp.h"
4044       do 100 n=1,8
4045          b(n)=0.0d0
4046 100   continue
4047       ccc=cc/((ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*p3p5+fmb2+
4048      . hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2))
4049       b(1)=ccc*(4*w1*(-fmc*hbcm2*p6p7-2*hbcm*p3p4*p6p7)+4*w2*(-fmb*
4050      . hbcm2*p6p7-2*hbcm*p3p5*p6p7-2*hbcm*p3p6*p5p7+4*hbcm*p3p7*p5p6)
4051      . )
4052       b(2)=4*ccc*(2*hbcm*p4p7*w1+hbcm*p5p7*w2)
4053       b(3)=4*ccc*(-hbcm*p4p6*w1-2*hbcm*p5p6*w2)
4054       b(4)=ccc*(4*w1*(2*fmc*hbcm*p6p7+p3p4*p6p7)+4*w2*(-2*fmb*hbcm*
4055      . p6p7-p3p5*p6p7)-8*fb2*p6p7)
4056       b(5)=ccc*(8*w1*(-fmc*hbcm*p3p7+hbcm2*p4p7-p3p4*p3p7)+4*w2*(2*
4057      . fmb*hbcm*p3p7+hbcm2*p5p7+2*p3p5*p3p7)+16*fb2*p3p7)
4058       b(6)=ccc*(4*w1*(-2*fmc*hbcm*p3p6-hbcm2*p4p6-2*p3p4*p3p6)+8*w2*(
4059      . fmb*hbcm*p3p6-hbcm2*p5p6+p3p5*p3p6)+16*fb2*p3p6)
4060       b(7)=ccc*(6*w1*(fmc*hbcm+p3p4)+6*w2*(-fmb*hbcm-p3p5)-12*fb2)
4061       b(8)=ccc*(6*w1*(fmc*hbcm2+hbcm*p3p4)+6*w2*(fmb*hbcm2+hbcm*p3p5)
4062      . -12*fb1*hbcm)
4063       do 200 n=1,8
4064          c(n,1)=c(n,1)-0.8181818181818182d0*b(n)
4065          c(n,2)=c(n,2)+0.9833321660356334d0*b(n)
4066 200   continue
4067       return
4068       end
4069
4070       subroutine amp28_3p0(cc)
4071       implicit double precision(a-h,o-z)
4072       implicit integer (i-n)
4073       dimension b(16)
4074 #include "inclcon.h"
4075 #include "inclppp.h"
4076 #include "inclamp.h"
4077       do 100 n=1,16
4078          b(n)=0.0d0
4079 100   continue
4080       ccc=cc/((ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*p3p5+fmb2+
4081      . hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p2p3+2*ffmcfmb*p3p4+
4082      . fmc2-2*p2p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p2p3-fmc2))
4083       ans5=8*(-2*ffmcfmb*hbcm*p1p2*p3p6*p3p7-2*ffmcfmb*hbcm*p1p3*p3p7
4084      . *p4p6-ffmcfmb*hbcm*p2p3*p3p7*p5p6+2*ffmcfmb*hbcm*p2p5*p3p6*
4085      . p3p7-ffmcfmb*hbcm*p3p4*p3p7*p5p6+2*ffmcfmb*hbcm*p3p5*p3p7*p4p6
4086      . +2*ffmcfmb*hbcm3*p2p5*p6p7-2*hbcm*p1p2*p3p6*p4p7+2*hbcm*p1p2*
4087      . p3p7*p4p6+2*hbcm*p1p4*p2p3*p6p7+2*hbcm*p2p3*p2p4*p6p7-2*hbcm*
4088      . p2p3*p2p5*p6p7+2*hbcm*p2p3*p4p5*p6p7+4*hbcm*p2p3*p4p6*p4p7+2*
4089      . hbcm*p2p3*p4p6*p5p7-2*hbcm*p2p3*p4p7*p5p6-4*hbcm*p2p4*p3p5*
4090      . p6p7-2*hbcm*p2p4*p3p6*p5p7-4*hbcm*p2p4*p3p7*p4p6+2*hbcm*p2p4*
4091      . p3p7*p5p6+2*hbcm*p2p5*p3p4*p6p7+2*hbcm*p2p5*p3p6*p4p7-2*hbcm*
4092      . p2p5*p3p7*p4p6)
4093       ans4=4*(p6p7*p3p4)*(ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*hbcm2-2*
4094      . ffmcfmb*fmc*hbcm2-2*fmb*fmc*hbcm+fmc2*hbcm)+4*(p6p7*p2p3)*(
4095      . ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*hbcm2-2*ffmcfmb*hbcm3+2*fmb*fmc
4096      . *hbcm+2*fmc*hbcm2-3*fmc2*hbcm)+8*(p3p7*p3p6*p3p4)*(-ffmcfmb**2
4097      . *hbcm-ffmcfmb*fmb+4*ffmcfmb*fmc+5*ffmcfmb*hbcm-3*fmc)+8*(p3p7*
4098      . p3p6*p2p3)*(ffmcfmb**2*hbcm+ffmcfmb*fmb-4*ffmcfmb*fmc-ffmcfmb*
4099      . hbcm+3*fmc)+4*p6p7*(ffmcfmb**2*fmc*hbcm4-2*ffmcfmb*fmb*fmc*
4100      . hbcm3-2*ffmcfmb*fmc*hbcm4+2*ffmcfmb*hbcm*p2p3s2+2*fmb*fmc2*
4101      . hbcm2-4*fmb*p2p3s2+2*fmc2*hbcm3-fmc3*hbcm2)+8*(p3p7*p3p6)*(-
4102      . ffmcfmb**2*fmc*hbcm2-ffmcfmb*fmb*fmc*hbcm+ffmcfmb*fmc*hbcm2+2*
4103      . ffmcfmb*fmc2*hbcm+2*fmc2*hbcm)+ans5
4104       ans3=8*(p5p7*p4p6)*(-ffmcfmb*hbcm3+fmc*hbcm2)+8*(p4p7*p4p6)*(-
4105      . ffmcfmb*hbcm3+fmc*hbcm2)+8*(p6p7*p4p5)*(-ffmcfmb*hbcm3+fmc*
4106      . hbcm2)+8*(p6p7*p2p4)*(ffmcfmb*hbcm3-2*fmb*hbcm2+fmc*hbcm2-2*
4107      . hbcm3)+8*(p6p7*p1p4)*(-ffmcfmb*hbcm3+fmc*hbcm2)+8*(p4p6*p3p7*
4108      . p3p4)*(3*ffmcfmb*hbcm-2*fmc)+8*(p5p7*p3p6*p3p4)*(ffmcfmb*hbcm-
4109      . fmc)+8*(p4p7*p3p6*p3p4)*(-ffmcfmb*hbcm+fmc)+16*(p6p7*p3p5*p3p4
4110      . )*(ffmcfmb*hbcm-fmc)+16*(p3p7*p3p6*p2p4)*(-ffmcfmb*hbcm-2*hbcm
4111      . )+8*(p4p6*p3p7*p2p3)*(-ffmcfmb*hbcm+2*fmc)+8*(p5p7*p3p6*p2p3)*
4112      . (-ffmcfmb*hbcm+fmc)+8*(p4p7*p3p6*p2p3)*(ffmcfmb*hbcm-fmc+4*
4113      . hbcm)+16*(p6p7*p3p5*p2p3)*(-ffmcfmb*hbcm+fmc)+8*(p6p7*p3p4*
4114      . p2p3)*(-3*ffmcfmb*hbcm+2*fmb+2*hbcm)+8*(p5p6*p3p7)*(ffmcfmb*
4115      . fmc*hbcm2-fmc2*hbcm)+8*(p4p6*p3p7)*(-2*ffmcfmb*fmc*hbcm2+
4116      . ffmcfmb*hbcm3+fmb*fmc*hbcm+fmc2*hbcm)+8*(p5p7*p3p6)*(-ffmcfmb*
4117      . fmc*hbcm2+fmc2*hbcm)+16*(p6p7*p3p5)*(-ffmcfmb*fmc*hbcm2+fmc2*
4118      . hbcm)+8*(p4p7*p3p6)*(ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2-2*
4119      . ffmcfmb*fmc*hbcm2-3*ffmcfmb*hbcm3-fmb*fmc*hbcm+3*fmc*hbcm2+
4120      . fmc2*hbcm)+ans4
4121       ans2=w11*ans3
4122       ans8=4*p6p7*(ffmcfmb**2*fmb*hbcm4-2*ffmcfmb*fmb*fmc*hbcm3-2*
4123      . ffmcfmb*fmb*hbcm4+2*ffmcfmb*fmb2*hbcm3-4*ffmcfmb*hbcm*p3p5s2+2
4124      . *fmb*fmc*hbcm3+fmb*fmc2*hbcm2-2*fmb2*fmc*hbcm2+4*fmc*p3p5s2)+8
4125      . *(p3p7*p3p6)*(-ffmcfmb**2*fmb*hbcm2-2*ffmcfmb*fmb*fmc*hbcm+
4126      . ffmcfmb*fmb*hbcm2+ffmcfmb*fmb2*hbcm+2*fmb*fmc*hbcm)+8*(-2*
4127      . ffmcfmb*hbcm*p1p5*p3p6*p3p7-2*ffmcfmb*hbcm*p2p3*p3p7*p5p6+3*
4128      . ffmcfmb*hbcm*p3p5*p3p7*p5p6-2*ffmcfmb*hbcm*p3p6*p3p7*p4p5+2*
4129      . fmb*hbcm2*p2p5*p6p7+2*hbcm*p2p3*p4p6*p5p7+2*hbcm*p2p3*p5p6*
4130      . p5p7+2*hbcm*p2p5*p3p5*p6p7-2*hbcm*p2p5*p3p7*p4p6-2*hbcm*p2p5*
4131      . p3p7*p5p6)
4132       ans7=8*(p5p7*p5p6)*(-ffmcfmb*hbcm3+fmc*hbcm2)+8*(p5p7*p4p6)*(-
4133      . ffmcfmb*hbcm3+fmc*hbcm2)+8*(p4p6*p3p7*p3p5)*(ffmcfmb*hbcm+2*
4134      . fmc)+8*(p5p7*p3p6*p3p5)*(-ffmcfmb*hbcm+fmc)+8*(p4p7*p3p6*p3p5)
4135      . *(ffmcfmb*hbcm-fmc)+16*(p3p7*p3p6*p2p5)*(-ffmcfmb*hbcm+hbcm)+
4136      . 16*(p5p7*p3p6*p2p3)*(2*ffmcfmb*hbcm-hbcm)+8*(p6p7*p3p5*p2p3)*(
4137      . ffmcfmb*hbcm-2*fmb)+8*(p4p6*p3p7)*(-ffmcfmb*fmb*hbcm2+3*fmb*
4138      . fmc*hbcm)+8*(p4p7*p3p6)*(ffmcfmb*fmb*hbcm2-fmb*fmc*hbcm)+8*(
4139      . p6p7*p2p3)*(ffmcfmb*fmb*hbcm2-2*fmb2*hbcm)+8*(p5p6*p3p7)*(-
4140      . ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2+2*ffmcfmb*hbcm3+fmb*fmc*
4141      . hbcm-fmc2*hbcm)+8*(p5p7*p3p6)*(-2*ffmcfmb**2*hbcm3-ffmcfmb*fmb
4142      . *hbcm2+2*ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3+fmb*fmc*hbcm-fmc*
4143      . hbcm2)+4*(p6p7*p3p5)*(ffmcfmb**2*hbcm3-2*ffmcfmb*fmb*hbcm2-2*
4144      . ffmcfmb*fmc*hbcm2-2*ffmcfmb*hbcm3+2*fmb*fmc*hbcm+2*fmc*hbcm2+
4145      . fmc2*hbcm)+8*(p3p7*p3p6*p3p5)*(ffmcfmb**2*hbcm+ffmcfmb*fmb-4*
4146      . ffmcfmb*fmc-ffmcfmb*hbcm+3*fmc)+ans8
4147       ans6=w2*ans7
4148       ans9=(4*(p5p6*p3p7)*(-4*fb1*ffmcfmb*hbcm-hbcm)+4*(p4p6*p3p7)*(4
4149      . *fb1*ffmcfmb*hbcm+8*fb2*fmc-3*hbcm)+4*(p5p7*p3p6)*(4*fb1*
4150      . ffmcfmb*hbcm+4*fb2*fmc-hbcm)+4*(p4p7*p3p6)*(-4*fb1*ffmcfmb*
4151      . hbcm-4*fb2*fmc+hbcm)+8*(p6p7*p3p5)*(4*fb1*ffmcfmb*hbcm+4*fb2*
4152      . fmc-hbcm)+4*(p6p7*p2p3)*(-4*fb1*ffmcfmb*hbcm-8*fb2*fmb+hbcm)+4
4153      . *p6p7*(-2*fb1*ffmcfmb**2*hbcm3+4*fb1*ffmcfmb*hbcm3+4*fb1*fmb*
4154      . fmc*hbcm-2*fb1*fmc2*hbcm+4*fb2*ffmcfmb*fmb*hbcm2-4*fb2*ffmcfmb
4155      . *fmc*hbcm2+4*fb2*fmc*hbcm2-2*ffmcfmb*hbcm3-fmb*hbcm2+3*fmc*
4156      . hbcm2-hbcm3)+4*(p3p7*p3p6)*(4*fb1*ffmcfmb**2*hbcm-4*fb1*
4157      . ffmcfmb*hbcm+4*fb2*ffmcfmb*fmb-16*fb2*ffmcfmb*fmc+12*fb2*fmc+4
4158      . *ffmcfmb*hbcm+fmb-4*fmc-7*hbcm)-32*fb1*hbcm*p2p5*p6p7)
4159       ans1=w7*(16*(p6p7*p2p5)*(ffmcfmb*hbcm3-fmc*hbcm2)+8*p6p7*(
4160      . ffmcfmb*hbcm*p2p3s2-2*fmb*p2p3s2)+8*(p4p6*p3p7*p2p3)*(ffmcfmb*
4161      . hbcm+2*fmc)+8*(p5p7*p3p6*p2p3)*(-ffmcfmb*hbcm+fmc)+8*(p4p7*
4162      . p3p6*p2p3)*(ffmcfmb*hbcm-fmc)+16*(p6p7*p3p5*p2p3)*(-ffmcfmb*
4163      . hbcm+fmc)+4*(p6p7*p2p3)*(ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*hbcm2-
4164      . 2*ffmcfmb*fmc*hbcm2-2*ffmcfmb*hbcm3-2*fmb*fmc*hbcm+2*fmc*hbcm2
4165      . +fmc2*hbcm)+8*(p3p7*p3p6*p2p3)*(ffmcfmb**2*hbcm+ffmcfmb*fmb-4*
4166      . ffmcfmb*fmc-ffmcfmb*hbcm+3*fmc)+8*(-2*ffmcfmb*hbcm*p1p2*p3p6*
4167      . p3p7-ffmcfmb*hbcm*p2p3*p3p7*p5p6-2*ffmcfmb*hbcm*p2p4*p3p6*p3p7
4168      . +2*ffmcfmb*hbcm*p2p5*p3p6*p3p7-2*hbcm*p2p3*p2p5*p6p7))+ans2+
4169      . ans6+ans9
4170       ans=ccc*ans1
4171       b(1)=ans
4172       ans2=w2*(12*(p5p7*p3p5)*(ffmcfmb*hbcm-fmc)+4*(p4p7*p3p5)*(-
4173      . ffmcfmb*hbcm+fmc)+12*p5p7*(ffmcfmb*fmb*hbcm2-fmb*fmc*hbcm)+4*
4174      . p4p7*(-ffmcfmb*fmb*hbcm2+fmb*fmc*hbcm)+4*(p3p7*p3p5)*(ffmcfmb
4175      . **2*hbcm-3*ffmcfmb*fmb+4*ffmcfmb*fmc-3*fmc)+4*p3p7*(-ffmcfmb**
4176      . 2*fmb*hbcm2+4*ffmcfmb*fmb*fmc*hbcm-3*ffmcfmb*fmb2*hbcm-3*fmb*
4177      . fmc*hbcm)+8*(ffmcfmb*hbcm*p1p5*p3p7-ffmcfmb*hbcm*p2p5*p3p7+
4178      . ffmcfmb*hbcm*p3p7*p4p5))+(6*p5p7*(-4*fb1*ffmcfmb*hbcm-4*fb2*
4179      . fmc+hbcm)+2*p4p7*(4*fb1*ffmcfmb*hbcm+4*fb2*fmc-hbcm)+2*p3p7*(4
4180      . *fb1*ffmcfmb**2*hbcm-12*fb2*ffmcfmb*fmb+16*fb2*ffmcfmb*fmc-12*
4181      . fb2*fmc+4*ffmcfmb*hbcm-3*fmb+4*fmc+6*hbcm))
4182       ans1=w7*(12*(p5p7*p2p3)*(ffmcfmb*hbcm-fmc)+4*(p4p7*p2p3)*(-
4183      . ffmcfmb*hbcm+fmc)+4*(p3p7*p2p3)*(ffmcfmb**2*hbcm-3*ffmcfmb*fmb
4184      . +4*ffmcfmb*fmc-3*fmc)+8*(ffmcfmb*hbcm*p1p2*p3p7+ffmcfmb*hbcm*
4185      . p2p4*p3p7-3*ffmcfmb*hbcm*p2p5*p3p7))+w11*(12*(p5p7*p3p4)*(-
4186      . ffmcfmb*hbcm+fmc)+4*(p4p7*p3p4)*(ffmcfmb*hbcm-fmc)+12*(p5p7*
4187      . p2p3)*(ffmcfmb*hbcm-fmc)+4*(p4p7*p2p3)*(ffmcfmb*hbcm+fmc-6*
4188      . hbcm)+12*p5p7*(ffmcfmb*fmc*hbcm2-fmc2*hbcm)+4*p4p7*(-3*ffmcfmb
4189      . *fmb*hbcm2+2*ffmcfmb*fmc*hbcm2+3*ffmcfmb*hbcm3+3*fmb*fmc*hbcm-
4190      . 3*fmc*hbcm2-2*fmc2*hbcm)+4*(p3p7*p3p4)*(-ffmcfmb**2*hbcm+3*
4191      . ffmcfmb*fmb-4*ffmcfmb*fmc-4*ffmcfmb*hbcm+3*fmc)+4*(p3p7*p2p3)*
4192      . (ffmcfmb**2*hbcm-3*ffmcfmb*fmb+4*ffmcfmb*fmc-3*fmc)+4*p3p7*(-
4193      . ffmcfmb**2*fmc*hbcm2+3*ffmcfmb*fmb*fmc*hbcm-2*ffmcfmb*fmc2*
4194      . hbcm-3*fmc2*hbcm)+8*(ffmcfmb*hbcm*p1p2*p3p7+ffmcfmb*hbcm*p1p4*
4195      . p3p7-3*ffmcfmb*hbcm*p2p5*p3p7+ffmcfmb*hbcm*p3p7*p4p5+hbcm*p1p2
4196      . *p4p7+3*hbcm*p2p4*p3p7+3*hbcm*p2p4*p5p7-3*hbcm*p2p5*p4p7))+
4197      . ans2
4198       ans=ccc*ans1
4199       b(2)=ans
4200       ans2=w2*(4*(p5p6*p3p5)*(-ffmcfmb*hbcm+fmc)+12*(p4p6*p3p5)*(
4201      . ffmcfmb*hbcm-fmc)+4*(p3p6*p3p5)*(ffmcfmb*hbcm-fmc)+8*(p3p6*
4202      . p2p5)*(2*ffmcfmb*hbcm-hbcm)+8*(p5p6*p2p3)*(-ffmcfmb*hbcm+2*
4203      . hbcm)+16*p4p6*(ffmcfmb*fmb*hbcm2-fmb*fmc*hbcm)+4*p5p6*(ffmcfmb
4204      . **2*hbcm3-2*ffmcfmb*fmc*hbcm2-2*ffmcfmb*hbcm3+2*fmc*hbcm2+fmc2
4205      . *hbcm)+8*p3p6*(ffmcfmb**2*fmb*hbcm2-ffmcfmb*fmb*fmc*hbcm)+8*(
4206      . hbcm*p2p5*p4p6+hbcm*p2p5*p5p6))+(2*p5p6*(4*fb1*ffmcfmb*hbcm+4*
4207      . fb2*fmc-hbcm)+6*p4p6*(-4*fb1*ffmcfmb*hbcm-4*fb2*fmc+hbcm)+2*
4208      . p3p6*(-4*fb1*ffmcfmb*hbcm-4*fb2*fmc+hbcm))
4209       ans1=w7*(4*(p5p6*p2p3)*(-ffmcfmb*hbcm+fmc)+12*(p4p6*p2p3)*(
4210      . ffmcfmb*hbcm-fmc)+4*(p3p6*p2p3)*(ffmcfmb*hbcm-fmc))+w11*(4*(
4211      . p5p6*p3p4)*(ffmcfmb*hbcm-fmc)+12*(p4p6*p3p4)*(-ffmcfmb*hbcm+
4212      . fmc)+4*(p3p6*p3p4)*(-ffmcfmb*hbcm+fmc)+4*(p5p6*p2p3)*(-ffmcfmb
4213      . *hbcm+fmc)+4*(p4p6*p2p3)*(3*ffmcfmb*hbcm-3*fmc+2*hbcm)+4*(p3p6
4214      . *p2p3)*(ffmcfmb*hbcm-fmc)+8*p5p6*(-ffmcfmb*fmc*hbcm2+fmc2*hbcm
4215      . )+4*p4p6*(-ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2+3*ffmcfmb*fmc*
4216      . hbcm2-ffmcfmb*hbcm3-fmb*fmc*hbcm+fmc*hbcm2-2*fmc2*hbcm)+8*p3p6
4217      . *(ffmcfmb**2*fmc*hbcm2-ffmcfmb*fmc2*hbcm)+8*(2*ffmcfmb*hbcm*
4218      . p2p4*p3p6-hbcm*p1p2*p4p6+3*hbcm*p2p4*p4p6-2*hbcm*p2p4*p5p6+
4219      . hbcm*p2p5*p4p6))+ans2
4220       ans=ccc*ans1
4221       b(3)=ans
4222       ans4=8*(-ffmcfmb*fmc*hbcm*p3p6*p3p7+ffmcfmb*fmc*hbcm*p3p7*p5p6-
4223      . ffmcfmb*hbcm2*p1p2*p6p7-ffmcfmb*hbcm2*p2p5*p6p7+2*ffmcfmb*p2p3
4224      . *p3p7*p4p6-2*ffmcfmb*p3p4*p3p7*p4p6+p1p2*p2p3*p6p7-p1p2*p3p4*
4225      . p6p7-p2p3*p2p4*p6p7+p2p3*p2p5*p6p7+p2p4*p3p4*p6p7-p2p5*p3p4*
4226      . p6p7)
4227       ans3=8*(p6p7*p2p4)*(-2*fmb*hbcm-fmc*hbcm+2*hbcm2)+(p6p7*p3p4*
4228      . p2p3)*(8*ffmcfmb-8)+8*(p5p6*p4p7)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*
4229      . (p5p7*p4p6)*(ffmcfmb*hbcm2-fmc*hbcm)+16*(p4p7*p4p6)*(ffmcfmb*
4230      . hbcm2-fmc*hbcm)+8*(p6p7*p4p5)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p4p7
4231      . *p3p6)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p6p7*p1p4)*(ffmcfmb*hbcm2-
4232      . fmc*hbcm)+16*(p3p7*p3p6*p3p4)*(ffmcfmb**2-ffmcfmb)+16*(p3p7*
4233      . p3p6*p2p3)*(-ffmcfmb**2+ffmcfmb)+8*(p4p6*p3p7)*(-ffmcfmb**2*
4234      . hbcm2+ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm-fmc*hbcm)+4*(p6p7*p3p4
4235      . )*(-ffmcfmb**2*hbcm2+2*ffmcfmb*fmb*hbcm+2*ffmcfmb*fmc*hbcm-2*
4236      . fmb*fmc-fmc2)+4*(p6p7*p2p3)*(ffmcfmb**2*hbcm2-2*ffmcfmb*fmb*
4237      . hbcm+2*fmb*fmc-2*fmc*hbcm+fmc2)+4*p6p7*(-ffmcfmb**2*fmc*hbcm3-
4238      . 2*ffmcfmb*fmb*fmc*hbcm2+2*ffmcfmb*fmc*hbcm3-2*ffmcfmb*p2p3s2+2
4239      . *fmb*fmc2*hbcm-2*fmc2*hbcm2+fmc3*hbcm+2*p2p3s2)+ans4
4240       ans2=w11*ans3
4241       ans6=((p4p6*p3p7)*(32*fb2*ffmcfmb+8)+(p6p7*p2p3)*(-16*fb2*
4242      . ffmcfmb+16*fb2-4)+(p3p7*p3p6)*(-32*fb2*ffmcfmb**2+32*fb2*
4243      . ffmcfmb-16*ffmcfmb+8)+4*p6p7*(4*fb1*ffmcfmb*fmb*hbcm+4*fb1*
4244      . ffmcfmb*fmc*hbcm-4*fb1*fmc*hbcm+2*fb2*ffmcfmb**2*hbcm2-4*fb2*
4245      . ffmcfmb*hbcm2+4*fb2*fmb*fmc+2*fb2*fmc2-fmb*hbcm-fmc*hbcm+hbcm2
4246      . )+16*(fb2*p1p2*p6p7-fb2*p2p4*p6p7+fb2*p2p5*p6p7))
4247       ans5=w2*((p6p7*p3p5*p2p3)*(-8*ffmcfmb+8)+8*(p5p7*p5p6)*(ffmcfmb
4248      . *hbcm2-fmc*hbcm)+8*(p5p7*p4p6)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(
4249      . p5p6*p3p7)*(ffmcfmb*fmb*hbcm+2*ffmcfmb*fmc*hbcm-2*fmc*hbcm)+8*
4250      . (p6p7*p2p3)*(-ffmcfmb*fmb*hbcm+fmb*hbcm)+16*(p3p7*p3p6*p3p5)*(
4251      . -ffmcfmb**2+ffmcfmb)+8*(p5p7*p3p6)*(2*ffmcfmb**2*hbcm2-2*
4252      . ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2+fmc*hbcm)+4*(p6p7*p3p5)*(
4253      . ffmcfmb**2*hbcm2-2*ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*hbcm-2*
4254      . ffmcfmb*hbcm2+2*fmb*fmc+2*fmc*hbcm+fmc2)+4*p6p7*(ffmcfmb**2*
4255      . fmb*hbcm3-2*ffmcfmb*fmb*fmc*hbcm2-2*ffmcfmb*fmb*hbcm3-2*
4256      . ffmcfmb*fmb2*hbcm2+2*fmb*fmc*hbcm2+fmb*fmc2*hbcm+2*fmb2*fmc*
4257      . hbcm)+8*(ffmcfmb*fmb*hbcm*p3p6*p3p7+3*ffmcfmb*fmb*hbcm*p3p7*
4258      . p4p6+2*ffmcfmb*p3p5*p3p7*p4p6+fmb*hbcm*p1p2*p6p7-fmb*hbcm*p2p4
4259      . *p6p7+fmb*hbcm*p2p5*p6p7+p1p2*p3p5*p6p7-p2p4*p3p5*p6p7+p2p5*
4260      . p3p5*p6p7))+ans6
4261       ans1=w7*(8*p6p7*(-ffmcfmb*p2p3s2+p2p3s2)+8*(p6p7*p2p5)*(-
4262      . ffmcfmb*hbcm2+fmc*hbcm)+8*(p6p7*p2p4)*(ffmcfmb*hbcm2-fmc*hbcm)
4263      . +8*(p6p7*p1p2)*(-ffmcfmb*hbcm2+fmc*hbcm)+16*(p3p7*p3p6*p2p3)*(
4264      . -ffmcfmb**2+ffmcfmb)+4*(p6p7*p2p3)*(ffmcfmb**2*hbcm2-2*ffmcfmb
4265      . *fmb*hbcm-2*ffmcfmb*fmc*hbcm+2*fmb*fmc+fmc2)+8*(2*ffmcfmb*p2p3
4266      . *p3p7*p4p6+p1p2*p2p3*p6p7-p2p3*p2p4*p6p7+p2p3*p2p5*p6p7))+ans2
4267      . +ans5
4268       ans=ccc*ans1
4269       b(4)=ans
4270       ans4=8*(ffmcfmb*fmc*hbcm*p1p3*p3p7-3*ffmcfmb*fmc*hbcm*p3p5*p3p7
4271      . -ffmcfmb*p1p3*p2p3*p3p7+ffmcfmb*p1p3*p3p4*p3p7+ffmcfmb*p2p3*
4272      . p3p4*p3p7+3*ffmcfmb*p2p3*p3p5*p3p7-3*ffmcfmb*p3p4*p3p5*p3p7+
4273      . fmc*hbcm*p1p4*p3p7+fmc*hbcm*p3p7*p4p5+hbcm2*p1p2*p4p7+3*hbcm2*
4274      . p2p4*p5p7-3*hbcm2*p2p5*p4p7+p1p2*p2p3*p3p7-p1p2*p3p4*p3p7+p2p3
4275      . *p2p4*p3p7-3*p2p3*p2p5*p3p7+p2p3*p3p4*p4p7-3*p2p3*p3p4*p5p7-
4276      . p2p4*p3p4*p3p7+3*p2p5*p3p4*p3p7)
4277       ans3=24*(p4p7*p3p5)*(ffmcfmb*hbcm2-fmc*hbcm)+12*(p5p7*p3p4)*(-
4278      . ffmcfmb*hbcm2+fmc*hbcm)+4*(p4p7*p3p4)*(-ffmcfmb*hbcm2+fmc*hbcm
4279      . )+8*(p3p7*p2p4)*(-ffmcfmb*hbcm2+3*fmb*hbcm+3*fmc*hbcm)+12*(
4280      . p5p7*p2p3)*(-ffmcfmb*hbcm2-fmc*hbcm)+4*(p4p7*p2p3)*(-ffmcfmb*
4281      . hbcm2-6*fmb*hbcm-fmc*hbcm)+8*(p4p7*p1p3)*(-ffmcfmb*hbcm2+fmc*
4282      . hbcm)+12*p5p7*(ffmcfmb*fmc*hbcm3-fmc2*hbcm2+2*p2p3s2)+4*p4p7*(
4283      . -2*ffmcfmb**2*hbcm4+3*ffmcfmb*fmb*hbcm3+4*ffmcfmb*fmc*hbcm3+3*
4284      . ffmcfmb*hbcm4-3*fmb*fmc*hbcm2-3*fmc*hbcm3-2*fmc2*hbcm2-2*
4285      . p2p3s2)+4*(p3p7*p3p4)*(3*ffmcfmb**2*hbcm2-6*ffmcfmb*fmb*hbcm-7
4286      . *ffmcfmb*fmc*hbcm-3*ffmcfmb*hbcm2+3*fmb*fmc+2*fmc*hbcm+3*fmc2)
4287      . +4*(p3p7*p2p3)*(-ffmcfmb**2*hbcm2+5*ffmcfmb*fmc*hbcm+3*ffmcfmb
4288      . *hbcm2-3*fmb*fmc-3*fmc2)+4*p3p7*(ffmcfmb**2*fmc*hbcm3-3*
4289      . ffmcfmb*fmc*hbcm3+ffmcfmb*fmc2*hbcm2-4*ffmcfmb*p2p3s2+2*
4290      . ffmcfmb*p3p4s2-3*fmb*fmc2*hbcm-3*fmc3*hbcm)+ans4
4291       ans2=w11*ans3
4292       ans6=((p3p7*p3p5)*(48*fb2*ffmcfmb+12)+(p3p7*p3p4)*(-16*fb2*
4293      . ffmcfmb-4)+(p3p7*p2p3)*(-32*fb2*ffmcfmb-8)+(p3p7*p1p3)*(-16*
4294      . fb2*ffmcfmb-4)+6*p5p7*(-4*fb1*fmc*hbcm-4*fb2*ffmcfmb*hbcm2+
4295      . hbcm2)+2*p4p7*(4*fb1*fmc*hbcm+4*fb2*ffmcfmb*hbcm2-hbcm2)+2*
4296      . p3p7*(4*fb1*ffmcfmb*fmc*hbcm-4*fb2*ffmcfmb**2*hbcm2+12*fb2*
4297      . ffmcfmb*hbcm2-12*fb2*fmb*fmc-12*fb2*fmc2+2*ffmcfmb*hbcm2+6*fmb
4298      . *hbcm+11*fmc*hbcm+3*hbcm2)+16*(fb2*p1p2*p3p7-fb2*p2p3*p4p7+3*
4299      . fb2*p2p3*p5p7+fb2*p2p4*p3p7-3*fb2*p2p5*p3p7))
4300       ans5=w2*(8*(p3p7*p2p5)*(-3*fmb*hbcm-fmc*hbcm)+12*(p5p7*p3p5)*(-
4301      . ffmcfmb*hbcm2+fmc*hbcm)+4*(p4p7*p3p5)*(ffmcfmb*hbcm2-fmc*hbcm)
4302      . +12*p5p7*(-ffmcfmb*fmb*hbcm3+fmb*fmc*hbcm2)+4*p4p7*(ffmcfmb*
4303      . fmb*hbcm3-fmb*fmc*hbcm2)+4*(p3p7*p3p5)*(-ffmcfmb**2*hbcm2+6*
4304      . ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+3*ffmcfmb*hbcm2-3*fmb*fmc-3*
4305      . fmc2)+4*p3p7*(-ffmcfmb**2*fmb*hbcm3-ffmcfmb*fmb*fmc*hbcm2+3*
4306      . ffmcfmb*fmb*hbcm3+6*ffmcfmb*p3p5s2-3*fmb*fmc2*hbcm-3*fmb2*fmc*
4307      . hbcm)+8*(-ffmcfmb*fmb*hbcm*p1p3*p3p7-2*ffmcfmb*fmb*hbcm*p2p3*
4308      . p3p7-ffmcfmb*fmb*hbcm*p3p4*p3p7-ffmcfmb*p1p3*p3p5*p3p7-2*
4309      . ffmcfmb*p2p3*p3p5*p3p7-ffmcfmb*p3p4*p3p5*p3p7+fmb*hbcm*p1p2*
4310      . p3p7-fmb*hbcm*p2p3*p4p7+3*fmb*hbcm*p2p3*p5p7+fmb*hbcm*p2p4*
4311      . p3p7+fmc*hbcm*p1p5*p3p7+fmc*hbcm*p3p7*p4p5+p1p2*p3p5*p3p7-p2p3
4312      . *p3p5*p4p7+3*p2p3*p3p5*p5p7+p2p4*p3p5*p3p7-3*p2p5*p3p5*p3p7))+
4313      . ans6
4314       ans1=w7*(12*(p5p7*p2p3)*(-ffmcfmb*hbcm2+fmc*hbcm)+4*(p4p7*p2p3)
4315      . *(ffmcfmb*hbcm2-fmc*hbcm)+4*(p3p7*p2p3)*(-ffmcfmb**2*hbcm2+
4316      . ffmcfmb*fmc*hbcm+3*ffmcfmb*hbcm2-3*fmb*fmc-3*fmc2)+8*(-ffmcfmb
4317      . *p1p3*p2p3*p3p7-ffmcfmb*p2p3*p3p4*p3p7+3*ffmcfmb*p2p3*p3p5*
4318      . p3p7-2*ffmcfmb*p2p3s2*p3p7+fmc*hbcm*p1p2*p3p7+fmc*hbcm*p2p4*
4319      . p3p7-3*fmc*hbcm*p2p5*p3p7+p1p2*p2p3*p3p7+p2p3*p2p4*p3p7-3*p2p3
4320      . *p2p5*p3p7-p2p3s2*p4p7+3*p2p3s2*p5p7))+ans2+ans5
4321       ans=ccc*ans1
4322       b(5)=ans
4323       ans4=8*(2*ffmcfmb*hbcm2*p2p5*p3p6-hbcm2*p1p2*p4p6+2*hbcm2*p2p4*
4324      . p4p6-hbcm2*p2p4*p5p6+hbcm2*p2p5*p4p6-2*p2p3*p2p5*p3p6-3*p2p3*
4325      . p3p4*p4p6+p2p3*p3p4*p5p6+2*p2p5*p3p4*p3p6)
4326       ans3=(p3p6*p3p4*p2p3)*(-8*ffmcfmb+8)+8*(p4p5*p3p6)*(-ffmcfmb*
4327      . hbcm2+fmc*hbcm)+8*(p4p6*p3p5)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(
4328      . p5p6*p3p4)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p4p6*p3p4)*(-ffmcfmb*
4329      . hbcm2+fmc*hbcm)+8*(p3p6*p2p4)*(ffmcfmb*hbcm2+2*fmb*hbcm+fmc*
4330      . hbcm-hbcm2)+8*(p5p6*p2p3)*(ffmcfmb*hbcm2+fmc*hbcm)+8*(p4p6*
4331      . p2p3)*(-2*ffmcfmb*hbcm2+fmb*hbcm-fmc*hbcm)+8*(p3p6*p1p4)*(-
4332      . ffmcfmb*hbcm2+fmc*hbcm)+8*(p4p6*p1p3)*(ffmcfmb*hbcm2-fmc*hbcm)
4333      . +4*p5p6*(-ffmcfmb*fmc*hbcm3+fmc2*hbcm2-2*p2p3s2)+4*p4p6*(
4334      . ffmcfmb**2*hbcm4-ffmcfmb*fmb*hbcm3-ffmcfmb*hbcm4+fmb*fmc*hbcm2
4335      . +fmc*hbcm3-fmc2*hbcm2+6*p2p3s2)+4*(p3p6*p3p4)*(-ffmcfmb**2*
4336      . hbcm2-2*ffmcfmb*fmb*hbcm+2*fmb*fmc+fmc2)+4*(p3p6*p2p3)*(-3*
4337      . ffmcfmb**2*hbcm2+2*ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*hbcm+2*
4338      . ffmcfmb*hbcm2-2*fmb*fmc+2*fmc*hbcm-fmc2)+4*p3p6*(ffmcfmb**2*
4339      . fmc*hbcm3+2*ffmcfmb*fmb*fmc*hbcm2-ffmcfmb*fmc*hbcm3+2*ffmcfmb*
4340      . p2p3s2-2*fmb*fmc2*hbcm+fmc2*hbcm2-fmc3*hbcm-2*p2p3s2)+ans4
4341       ans2=w11*ans3
4342       ans5=w2*((p3p6*p3p5*p2p3)*(8*ffmcfmb-8)+8*(p5p6*p3p5)*(-ffmcfmb
4343      . *hbcm2+fmc*hbcm)+16*(p4p6*p3p5)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(
4344      . p3p6*p2p5)*(2*ffmcfmb*hbcm2-2*fmb*hbcm-hbcm2)+12*p4p6*(-
4345      . ffmcfmb*fmb*hbcm3+fmb*fmc*hbcm2)+8*(p3p6*p2p3)*(3*ffmcfmb*fmb*
4346      . hbcm-2*fmb*hbcm)+4*p5p6*(ffmcfmb**2*hbcm4-ffmcfmb*fmb*hbcm3-2*
4347      . ffmcfmb*fmc*hbcm3-2*ffmcfmb*hbcm4+fmb*fmc*hbcm2+2*fmc*hbcm3+
4348      . fmc2*hbcm2)+4*(p3p6*p3p5)*(-3*ffmcfmb**2*hbcm2+2*ffmcfmb*fmb*
4349      . hbcm+4*ffmcfmb*fmc*hbcm+2*ffmcfmb*hbcm2-2*fmb*fmc-2*fmc*hbcm-
4350      . fmc2)+4*p3p6*(-ffmcfmb**2*fmb*hbcm3+2*ffmcfmb*fmb*fmc*hbcm2+
4351      . ffmcfmb*fmb*hbcm3+2*ffmcfmb*fmb2*hbcm2-fmb*fmc*hbcm2-fmb*fmc2*
4352      . hbcm-2*fmb2*fmc*hbcm)+8*(ffmcfmb*hbcm2*p2p3*p5p6+4*fmb*hbcm*
4353      . p2p3*p4p6+hbcm2*p2p5*p4p6+hbcm2*p2p5*p5p6+3*p2p3*p3p5*p4p6-
4354      . p2p3*p3p5*p5p6-2*p2p5*p3p5*p3p6))+((p3p6*p2p3)*(16*fb2*ffmcfmb
4355      . -16*fb2+4)+4*p4p6*(-4*fb1*fmc*hbcm-4*fb2*ffmcfmb*hbcm2+hbcm2)+
4356      . 4*p3p6*(-4*fb1*ffmcfmb*fmb*hbcm+2*fb2*ffmcfmb**2*hbcm2-4*fb2*
4357      . fmb*fmc-2*fb2*fmc2+fmb*hbcm)+16*(3*fb2*p2p3*p4p6-fb2*p2p3*p5p6
4358      . -2*fb2*p2p5*p3p6))
4359       ans1=w7*(8*p3p6*(ffmcfmb*p2p3s2-p2p3s2)+16*(p3p6*p2p5)*(ffmcfmb
4360      . *hbcm2-fmc*hbcm)+8*(p5p6*p2p3)*(ffmcfmb*hbcm2-fmc*hbcm)+16*(
4361      . p4p6*p2p3)*(-ffmcfmb*hbcm2+fmc*hbcm)+4*(p3p6*p2p3)*(-3*ffmcfmb
4362      . **2*hbcm2+2*ffmcfmb*fmb*hbcm+4*ffmcfmb*fmc*hbcm+2*ffmcfmb*
4363      . hbcm2-2*fmb*fmc-2*fmc*hbcm-fmc2)+8*(-2*p2p3*p2p5*p3p6+3*p2p3s2
4364      . *p4p6-p2p3s2*p5p6))+ans2+ans5
4365       ans=ccc*ans1
4366       b(6)=ans
4367       ans2=w11*((p3p4*p2p3)*(4*ffmcfmb-12)+4*p4p5*(ffmcfmb*hbcm2-fmc*
4368      . hbcm)+4*p2p4*(ffmcfmb*hbcm2-3*fmb*hbcm-3*fmc*hbcm+3*hbcm2)+4*
4369      . p1p4*(ffmcfmb*hbcm2-fmc*hbcm)+2*p3p4*(-2*ffmcfmb**2*hbcm2+3*
4370      . ffmcfmb*fmb*hbcm+5*ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2-3*fmb*fmc+
4371      . fmc*hbcm-3*fmc2)+2*p2p3*(2*ffmcfmb**2*hbcm2-3*ffmcfmb*fmb*hbcm
4372      . -3*ffmcfmb*fmc*hbcm-3*ffmcfmb*hbcm2+3*fmb*fmc-3*fmc*hbcm+3*
4373      . fmc2)+2*(-3*ffmcfmb*fmb*fmc*hbcm2+3*ffmcfmb*fmc*hbcm3-3*
4374      . ffmcfmb*fmc2*hbcm2+2*ffmcfmb*hbcm2*p1p2-6*ffmcfmb*hbcm2*p2p5-2
4375      . *ffmcfmb*p2p3s2+3*fmb*fmc2*hbcm-3*fmc2*hbcm2+3*fmc3*hbcm-2*
4376      . p1p2*p2p3+2*p1p2*p3p4-2*p2p3*p2p4+6*p2p3*p2p5+6*p2p3s2+2*p2p4*
4377      . p3p4-6*p2p5*p3p4))+(p2p3*(-8*fb2*ffmcfmb+24*fb2-2)+(12*fb1*
4378      . ffmcfmb*fmb*hbcm+12*fb1*ffmcfmb*fmc*hbcm-12*fb1*fmc*hbcm-12*
4379      . fb2*ffmcfmb*hbcm2+12*fb2*fmb*fmc+12*fb2*fmc2-8*fb2*p1p2-8*fb2*
4380      . p2p4+24*fb2*p2p5-3*fmb*hbcm-3*fmc*hbcm+3*hbcm2))
4381       ans1=w2*((p3p5*p2p3)*(-4*ffmcfmb+12)+4*p4p5*(ffmcfmb*hbcm2-fmc*
4382      . hbcm)+4*p2p5*(-ffmcfmb*hbcm2+3*fmb*hbcm+fmc*hbcm)+4*p1p5*(
4383      . ffmcfmb*hbcm2-fmc*hbcm)+4*p2p3*(-ffmcfmb*fmb*hbcm+3*fmb*hbcm)+
4384      . 2*p3p5*(2*ffmcfmb**2*hbcm2-3*ffmcfmb*fmb*hbcm-5*ffmcfmb*fmc*
4385      . hbcm-3*ffmcfmb*hbcm2+3*fmb*fmc+3*fmc*hbcm+3*fmc2)+2*(-3*
4386      . ffmcfmb*fmb*fmc*hbcm2-3*ffmcfmb*fmb*hbcm3-3*ffmcfmb*fmb2*hbcm2
4387      . +3*fmb*fmc*hbcm2+3*fmb*fmc2*hbcm-2*fmb*hbcm*p1p2-2*fmb*hbcm*
4388      . p2p4+3*fmb2*fmc*hbcm-2*p1p2*p3p5-2*p2p4*p3p5+6*p2p5*p3p5))+w7*
4389      . (12*p2p5*(-ffmcfmb*hbcm2+fmc*hbcm)+4*p2p4*(ffmcfmb*hbcm2-fmc*
4390      . hbcm)+4*p1p2*(ffmcfmb*hbcm2-fmc*hbcm)+2*p2p3*(2*ffmcfmb**2*
4391      . hbcm2-3*ffmcfmb*fmb*hbcm-5*ffmcfmb*fmc*hbcm-3*ffmcfmb*hbcm2+3*
4392      . fmb*fmc+3*fmc*hbcm+3*fmc2)+4*(-ffmcfmb*p2p3s2-p1p2*p2p3-p2p3*
4393      . p2p4+3*p2p3*p2p5+3*p2p3s2))+ans2
4394       ans=ccc*ans1
4395       b(7)=ans
4396       ans4=2*(-2*ffmcfmb**2*fmc*hbcm4+3*ffmcfmb*fmb*fmc*hbcm3+3*
4397      . ffmcfmb*fmc*hbcm4-ffmcfmb*fmc2*hbcm3-6*ffmcfmb*hbcm*p2p3s2+2*
4398      . ffmcfmb*hbcm*p3p4s2+2*ffmcfmb*hbcm3*p1p2-6*ffmcfmb*hbcm3*p2p5-
4399      . 3*fmb*fmc2*hbcm2+6*fmb*p2p3s2-2*fmc*p2p3s2-2*fmc*p3p4s2-3*fmc2
4400      . *hbcm3+3*fmc3*hbcm2-2*hbcm*p1p2*p2p3+2*hbcm*p1p2*p3p4-4*hbcm*
4401      . p1p3*p2p4-4*hbcm*p1p4*p2p3-10*hbcm*p2p3*p2p4+6*hbcm*p2p3*p2p5-
4402      . 4*hbcm*p2p3*p4p5-2*hbcm*p2p4*p3p4+12*hbcm*p2p4*p3p5-6*hbcm*
4403      . p2p5*p3p4)
4404       ans3=4*p4p5*(ffmcfmb*hbcm3-fmc*hbcm2)+4*p2p4*(-ffmcfmb*hbcm3+3*
4405      . fmb*hbcm2-3*fmc*hbcm2+3*hbcm3)+4*p1p4*(ffmcfmb*hbcm3-fmc*hbcm2
4406      . )+12*(p3p5*p3p4)*(-ffmcfmb*hbcm+fmc)+12*(p3p5*p2p3)*(ffmcfmb*
4407      . hbcm-fmc)+4*(p3p4*p2p3)*(4*ffmcfmb*hbcm-3*fmb+2*fmc-2*hbcm)+4*
4408      . (p3p4*p1p3)*(ffmcfmb*hbcm-fmc)+4*(p2p3*p1p3)*(-ffmcfmb*hbcm+
4409      . fmc)+12*p3p5*(ffmcfmb*fmc*hbcm2-fmc2*hbcm)+4*p1p3*(-ffmcfmb*
4410      . fmc*hbcm2+fmc2*hbcm)+2*p3p4*(-3*ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*
4411      . hbcm2-ffmcfmb*hbcm3+3*fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+2*p2p3
4412      . *(-3*ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+3*ffmcfmb*hbcm3-3*fmb
4413      . *fmc*hbcm-3*fmc*hbcm2+7*fmc2*hbcm)+ans4
4414       ans2=w11*ans3
4415       ans6=(6*p3p5*(-4*fb1*ffmcfmb*hbcm-4*fb2*fmc+hbcm)+2*p3p4*(4*fb1
4416      . *ffmcfmb*hbcm+4*fb2*fmc-hbcm)+2*p2p3*(4*fb1*ffmcfmb*hbcm+12*
4417      . fb2*fmb-4*fb2*fmc-hbcm)+2*p1p3*(4*fb1*ffmcfmb*hbcm+4*fb2*fmc-
4418      . hbcm)+(8*fb1*ffmcfmb**2*hbcm3-12*fb1*ffmcfmb*hbcm3-12*fb1*fmb*
4419      . fmc*hbcm+12*fb1*fmc2*hbcm-8*fb1*hbcm*p1p2-8*fb1*hbcm*p2p4+24*
4420      . fb1*hbcm*p2p5-12*fb2*ffmcfmb*fmb*hbcm2+20*fb2*ffmcfmb*fmc*
4421      . hbcm2-12*fb2*fmc*hbcm2+2*ffmcfmb*hbcm3+3*fmb*hbcm2-7*fmc*hbcm2
4422      . +3*hbcm3))
4423       ans5=w2*(4*p4p5*(ffmcfmb*hbcm3-fmc*hbcm2)+4*p2p5*(-ffmcfmb*
4424      . hbcm3-3*fmb*hbcm2+fmc*hbcm2)+4*p1p5*(ffmcfmb*hbcm3-fmc*hbcm2)+
4425      . 4*(p3p5*p3p4)*(-ffmcfmb*hbcm+fmc)+4*(p3p5*p2p3)*(-3*ffmcfmb*
4426      . hbcm+3*fmb-fmc)+4*(p3p5*p1p3)*(-ffmcfmb*hbcm+fmc)+6*p3p5*(
4427      . ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3-fmb*fmc*hbcm
4428      . -fmc*hbcm2-fmc2*hbcm)+4*p3p4*(-ffmcfmb*fmb*hbcm2+fmb*fmc*hbcm)
4429      . +4*p2p3*(-ffmcfmb*fmb*hbcm2-fmb*fmc*hbcm+3*fmb2*hbcm)+4*p1p3*(
4430      . -ffmcfmb*fmb*hbcm2+fmb*fmc*hbcm)+2*(-2*ffmcfmb**2*fmb*hbcm4+5*
4431      . ffmcfmb*fmb*fmc*hbcm3+3*ffmcfmb*fmb*hbcm4-3*ffmcfmb*fmb2*hbcm3
4432      . +6*ffmcfmb*hbcm*p3p5s2-3*fmb*fmc*hbcm3-3*fmb*fmc2*hbcm2+2*fmb*
4433      . hbcm2*p1p2+2*fmb*hbcm2*p2p4+3*fmb2*fmc*hbcm2-6*fmc*p3p5s2+2*
4434      . hbcm*p1p2*p3p5-4*hbcm*p1p5*p2p3+4*hbcm*p2p3*p2p5-4*hbcm*p2p3*
4435      . p4p5+2*hbcm*p2p4*p3p5-6*hbcm*p2p5*p3p5))+ans6
4436       ans1=w7*(12*p2p5*(-ffmcfmb*hbcm3+fmc*hbcm2)+4*p2p4*(ffmcfmb*
4437      . hbcm3-fmc*hbcm2)+4*p1p2*(ffmcfmb*hbcm3-fmc*hbcm2)+12*(p3p5*
4438      . p2p3)*(ffmcfmb*hbcm-fmc)+4*(p3p4*p2p3)*(-ffmcfmb*hbcm+fmc)+4*(
4439      . p2p3*p1p3)*(-ffmcfmb*hbcm+fmc)+6*p2p3*(-ffmcfmb*fmb*hbcm2+
4440      . ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3+fmb*fmc*hbcm-fmc*hbcm2-fmc2*
4441      . hbcm)+4*(-3*ffmcfmb*hbcm*p2p3s2+3*fmb*p2p3s2-fmc*p2p3s2-hbcm*
4442      . p1p2*p2p3-hbcm*p2p3*p2p4+3*hbcm*p2p3*p2p5))+ans2+ans5
4443       ans=ccc*ans1
4444       b(8)=ans
4445       ans=ccc*(w2*(8*p5p6*(ffmcfmb*hbcm3-hbcm3)+4*(p3p6*p3p5)*(-6*
4446      . ffmcfmb*hbcm+2*fmb+3*hbcm)+8*p3p6*(-2*ffmcfmb*fmb*hbcm2+fmb*
4447      . hbcm2+fmb2*hbcm)+4*(-4*fmb*hbcm2*p4p6-5*hbcm*p3p5*p4p6-hbcm*
4448      . p3p5*p5p6))+w7*(4*(p3p6*p2p3)*(2*fmb-hbcm)+4*p5p6*(ffmcfmb*
4449      . hbcm3-fmc*hbcm2)+12*p4p6*(-ffmcfmb*hbcm3+fmc*hbcm2)+4*p3p6*(-
4450      . ffmcfmb**2*hbcm3-2*ffmcfmb*fmb*hbcm2+2*ffmcfmb*fmc*hbcm2+
4451      . ffmcfmb*hbcm3+2*fmb*fmc*hbcm-fmc*hbcm2-fmc2*hbcm)+4*(3*hbcm*
4452      . p2p3*p4p6-hbcm*p2p3*p5p6))+w11*(4*(p3p6*p2p3)*(2*fmb-hbcm)+4*
4453      . p4p6*(-fmb*hbcm2-fmc*hbcm2-hbcm3)+4*p5p6*(ffmcfmb*hbcm3+fmc*
4454      . hbcm2)+4*(p3p6*p3p4)*(-2*ffmcfmb*hbcm-2*fmb+hbcm)+4*p3p6*(-
4455      . ffmcfmb**2*hbcm3-2*ffmcfmb*fmb*hbcm2-2*ffmcfmb*fmc*hbcm2+
4456      . ffmcfmb*hbcm3+fmc*hbcm2+fmc2*hbcm)+4*(2*hbcm*p1p3*p4p6-2*hbcm*
4457      . p1p4*p3p6+hbcm*p2p3*p4p6-hbcm*p2p3*p5p6-2*hbcm*p2p4*p3p6-3*
4458      . hbcm*p3p4*p4p6+3*hbcm*p3p4*p5p6-2*hbcm*p3p5*p4p6-2*hbcm*p3p6*
4459      . p4p5))+(8*p3p6*(2*fb1*ffmcfmb*hbcm-fb1*hbcm+2*fb2*fmb+hbcm)+8*
4460      . (3*fb1*hbcm*p4p6-fb1*hbcm*p5p6)))
4461       b(9)=ans
4462       b(10)=ccc*(w2*(4*p5p6*(-2*ffmcfmb*hbcm2+fmb*hbcm+2*hbcm2)+4*
4463      . p3p6*(-4*ffmcfmb*fmb*hbcm+fmb*hbcm)+4*(-2*ffmcfmb*p3p5*p3p6-5*
4464      . fmb*hbcm*p4p6-4*p3p5*p4p6+2*p3p5*p5p6))+w7*(8*p5p6*(-ffmcfmb*
4465      . hbcm2+fmc*hbcm)+16*p4p6*(ffmcfmb*hbcm2-fmc*hbcm)+8*p3p6*(
4466      . ffmcfmb**2*hbcm2-ffmcfmb*fmc*hbcm)+8*(-ffmcfmb*p2p3*p3p6-2*
4467      . p2p3*p4p6+p2p3*p5p6))+w11*(4*p5p6*(-2*ffmcfmb*hbcm2-fmc*hbcm)+
4468      . 4*p4p6*(3*ffmcfmb*hbcm2-fmb*hbcm+fmc*hbcm+hbcm2)+4*p3p6*(2*
4469      . ffmcfmb**2*hbcm2+2*ffmcfmb*fmc*hbcm-fmc*hbcm)+8*(-ffmcfmb*p2p3
4470      . *p3p6+ffmcfmb*p3p4*p3p6-2*p2p3*p4p6+p2p3*p5p6+2*p3p4*p4p6-p3p4
4471      . *p5p6))+(p3p6*(-16*fb2*ffmcfmb-4)+16*(-2*fb2*p4p6+fb2*p5p6)))
4472       ans2=(-12*fb1*fmb*hbcm+20*fb2*ffmcfmb*hbcm2-12*fb2*hbcm2+8*fb2*
4473      . p1p3-8*fb2*p2p3+8*fb2*p3p4-24*fb2*p3p5-hbcm2)
4474       ans1=w2*(6*p3p5*(ffmcfmb*hbcm2-fmb*hbcm-hbcm2)+2*(5*ffmcfmb*fmb
4475      . *hbcm3+2*fmb*hbcm*p1p3-2*fmb*hbcm*p2p3+2*fmb*hbcm*p3p4-3*fmb*
4476      . hbcm3+3*fmb2*hbcm2-2*hbcm2*p1p5+2*hbcm2*p2p5-2*hbcm2*p4p5+2*
4477      . p1p3*p3p5-2*p2p3*p3p5+2*p3p4*p3p5-6*p3p5s2))+w7*(12*p3p5*(
4478      . ffmcfmb*hbcm2-fmc*hbcm)+4*p3p4*(-ffmcfmb*hbcm2+fmc*hbcm)+2*
4479      . p2p3*(ffmcfmb*hbcm2-3*fmb*hbcm-2*fmc*hbcm-3*hbcm2)+4*p1p3*(-
4480      . ffmcfmb*hbcm2+fmc*hbcm)+2*(-2*ffmcfmb**2*hbcm4+3*ffmcfmb*fmb*
4481      . hbcm3+5*ffmcfmb*fmc*hbcm3+3*ffmcfmb*hbcm4-3*fmb*fmc*hbcm2-3*
4482      . fmc*hbcm3-3*fmc2*hbcm2+2*p1p3*p2p3+2*p2p3*p3p4-6*p2p3*p3p5-2*
4483      . p2p3s2))+w11*(2*p3p4*(ffmcfmb*hbcm2+3*fmb*hbcm+hbcm2)+2*p2p3*(
4484      . ffmcfmb*hbcm2-3*fmb*hbcm-3*hbcm2)+2*(-2*ffmcfmb**2*hbcm4+3*
4485      . ffmcfmb*fmb*hbcm3-2*ffmcfmb*hbcm2*p1p3+6*ffmcfmb*hbcm2*p3p5+3*
4486      . ffmcfmb*hbcm4+3*fmc2*hbcm2-2*hbcm2*p1p4-6*hbcm2*p2p4-2*hbcm2*
4487      . p4p5+2*p1p3*p2p3-2*p1p3*p3p4+4*p2p3*p3p4-6*p2p3*p3p5-2*p2p3s2+
4488      . 6*p3p4*p3p5-2*p3p4s2))+ans2
4489       ans=ccc*ans1
4490       b(11)=ans
4491       ans2=(2*p3p7*(4*fb1*ffmcfmb*hbcm-12*fb2*fmb+5*hbcm)+8*(fb1*hbcm
4492      . *p4p7-3*fb1*hbcm*p5p7))
4493       ans1=w2*(4*(p3p7*p3p5)*(ffmcfmb*hbcm-3*fmb)+4*p3p7*(-ffmcfmb*
4494      . fmb*hbcm2-3*fmb2*hbcm)+4*(-fmb*hbcm2*p4p7+3*fmb*hbcm2*p5p7+2*
4495      . hbcm*p1p5*p3p7-2*hbcm*p2p5*p3p7-hbcm*p3p5*p4p7+3*hbcm*p3p5*
4496      . p5p7+2*hbcm*p3p7*p4p5))+w7*(12*p5p7*(ffmcfmb*hbcm3-fmc*hbcm2)+
4497      . 4*p4p7*(-ffmcfmb*hbcm3+fmc*hbcm2)+4*(p3p7*p2p3)*(5*ffmcfmb*
4498      . hbcm-3*fmb)+4*p3p7*(ffmcfmb**2*hbcm3+ffmcfmb*fmc*hbcm2-3*
4499      . ffmcfmb*hbcm3-3*fmb*fmc*hbcm+3*fmc2*hbcm)+4*(2*ffmcfmb*hbcm*
4500      . p1p3*p3p7+2*ffmcfmb*hbcm*p3p4*p3p7-6*ffmcfmb*hbcm*p3p5*p3p7+
4501      . hbcm*p2p3*p4p7-3*hbcm*p2p3*p5p7))+w11*(4*p4p7*(4*ffmcfmb*hbcm3
4502      . -3*fmb*hbcm2-3*hbcm3)+4*(p3p7*p3p4)*(-7*ffmcfmb*hbcm+3*fmb+2*
4503      . hbcm)+4*(p3p7*p2p3)*(5*ffmcfmb*hbcm-3*fmb)+4*p3p7*(ffmcfmb**2*
4504      . hbcm3-3*ffmcfmb*hbcm3-3*fmc2*hbcm)+4*(2*ffmcfmb*hbcm*p1p3*p3p7
4505      . -6*ffmcfmb*hbcm*p3p5*p3p7+3*ffmcfmb*hbcm3*p5p7+2*hbcm*p1p3*
4506      . p4p7+2*hbcm*p1p4*p3p7-hbcm*p2p3*p4p7-3*hbcm*p2p3*p5p7+6*hbcm*
4507      . p2p4*p3p7+hbcm*p3p4*p4p7+3*hbcm*p3p4*p5p7-6*hbcm*p3p5*p4p7+2*
4508      . hbcm*p3p7*p4p5))+ans2
4509       ans=ccc*ans1
4510       b(12)=ans
4511       b(13)=ccc*(w7*(6*p2p3*(ffmcfmb*hbcm-fmb+hbcm)+6*(ffmcfmb*fmb*
4512      . hbcm2-ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3-fmb*fmc*hbcm+fmc*hbcm2+
4513      . fmc2*hbcm))+w2*(2*p3p5*(5*ffmcfmb*hbcm-3*fmb-3*hbcm)+2*(3*
4514      . ffmcfmb*fmb*hbcm2-3*fmb*hbcm2-3*fmb2*hbcm+2*hbcm*p1p5-2*hbcm*
4515      . p2p5+2*hbcm*p4p5))+w11*(2*p3p4*(-5*ffmcfmb*hbcm+3*fmb-hbcm)+6*
4516      . p2p3*(ffmcfmb*hbcm-fmb+hbcm)+2*(3*ffmcfmb*fmb*hbcm2-3*ffmcfmb*
4517      . hbcm3-3*fmc2*hbcm+2*hbcm*p1p4+6*hbcm*p2p4+2*hbcm*p4p5))+3*(-4*
4518      . fb1*ffmcfmb*hbcm+4*fb1*hbcm-4*fb2*fmb-hbcm))
4519       b(14)=ccc*(w2*((p3p7*p3p5)*(16*ffmcfmb-12)+4*p3p7*(4*ffmcfmb*
4520      . fmb*hbcm-3*fmb*hbcm)+4*(fmb*hbcm*p4p7-3*fmb*hbcm*p5p7+p3p5*
4521      . p4p7-3*p3p5*p5p7))+w7*((p3p7*p2p3)*(16*ffmcfmb-12)+12*p5p7*(
4522      . ffmcfmb*hbcm2-fmc*hbcm)+4*p4p7*(-ffmcfmb*hbcm2+fmc*hbcm)+4*
4523      . p3p7*(-ffmcfmb**2*hbcm2+3*ffmcfmb*fmb*hbcm+4*ffmcfmb*fmc*hbcm-
4524      . 3*fmc*hbcm)+4*(p2p3*p4p7-3*p2p3*p5p7))+w11*((p3p7*p3p4)*(-16*
4525      . ffmcfmb+12)+(p3p7*p2p3)*(16*ffmcfmb-12)+4*p4p7*(2*ffmcfmb*
4526      . hbcm2+3*fmb*hbcm-3*hbcm2)+4*p3p7*(-ffmcfmb**2*hbcm2+3*ffmcfmb*
4527      . fmb*hbcm)+4*(3*ffmcfmb*hbcm2*p5p7+p2p3*p4p7-3*p2p3*p5p7-p3p4*
4528      . p4p7+3*p3p4*p5p7))+(p3p7*(32*fb2*ffmcfmb-24*fb2+8)+8*(fb2*p4p7
4529      . -3*fb2*p5p7)))
4530       ans3=w11*(8*(p6p7*p3p4)*(fmb*hbcm-hbcm2)+(p3p7*p3p6*p3p4)*(16*
4531      . ffmcfmb-8)+(p3p7*p3p6*p2p3)*(-16*ffmcfmb+8)+8*(p5p6*p3p7)*(-
4532      . ffmcfmb*hbcm2-fmc*hbcm)+8*(p4p6*p3p7)*(2*ffmcfmb*hbcm2-fmb*
4533      . hbcm+fmc*hbcm)+8*(p4p7*p3p6)*(-2*ffmcfmb*hbcm2-2*fmb*hbcm+
4534      . hbcm2)+8*(p6p7*p2p3)*(ffmcfmb*hbcm2-fmb*hbcm)+4*p6p7*(-ffmcfmb
4535      . **2*hbcm4+2*ffmcfmb*fmb*hbcm3+fmc2*hbcm2-2*p2p3s2-2*p3p4s2)+8*
4536      . (p3p7*p3p6)*(2*ffmcfmb**2*hbcm2-2*ffmcfmb*fmb*hbcm+2*ffmcfmb*
4537      . fmc*hbcm-ffmcfmb*hbcm2-fmc*hbcm)+8*(ffmcfmb*hbcm2*p1p3*p6p7+
4538      . ffmcfmb*hbcm2*p3p5*p6p7-2*ffmcfmb*hbcm2*p3p6*p5p7-hbcm2*p1p4*
4539      . p6p7-hbcm2*p2p4*p6p7-hbcm2*p4p5*p6p7-2*hbcm2*p4p6*p4p7-hbcm2*
4540      . p4p6*p5p7+hbcm2*p4p7*p5p6-p1p3*p2p3*p6p7+p1p3*p3p4*p6p7+2*p2p3
4541      . *p3p4*p6p7-p2p3*p3p5*p6p7+2*p2p3*p3p6*p5p7-3*p2p3*p3p7*p4p6+
4542      . p2p3*p3p7*p5p6+p3p4*p3p5*p6p7-2*p3p4*p3p6*p5p7+3*p3p4*p3p7*
4543      . p4p6-p3p4*p3p7*p5p6))+((p3p7*p3p6)*(-32*fb2*ffmcfmb+16*fb2-8)+
4544      . 16*p6p7*(-fb1*fmb*hbcm+fb2*ffmcfmb*hbcm2)+16*(-fb2*p1p3*p6p7-
4545      . fb2*p2p3*p6p7+fb2*p3p4*p6p7-fb2*p3p5*p6p7+2*fb2*p3p6*p5p7-3*
4546      . fb2*p3p7*p4p6+fb2*p3p7*p5p6))
4547       ans2=w7*((p3p7*p3p6*p2p3)*(-16*ffmcfmb+8)+8*(p5p6*p3p7)*(-
4548      . ffmcfmb*hbcm2+fmc*hbcm)+8*(p4p6*p3p7)*(ffmcfmb*hbcm2-3*fmc*
4549      . hbcm)+16*(p5p7*p3p6)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(p6p7*p3p5)*(
4550      . ffmcfmb*hbcm2-fmc*hbcm)+8*(p6p7*p3p4)*(-ffmcfmb*hbcm2+fmc*hbcm
4551      . )+8*(p6p7*p2p3)*(ffmcfmb*hbcm2-fmb*hbcm-fmc*hbcm)+8*(p6p7*p1p3
4552      . )*(ffmcfmb*hbcm2-fmc*hbcm)+4*p6p7*(-ffmcfmb**2*hbcm4+2*ffmcfmb
4553      . *fmb*hbcm3+2*ffmcfmb*fmc*hbcm3-2*fmb*fmc*hbcm2-fmc2*hbcm2-2*
4554      . p2p3s2)+8*(p3p7*p3p6)*(2*ffmcfmb**2*hbcm2-2*ffmcfmb*fmb*hbcm-2
4555      . *ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2+fmc*hbcm)+8*(-p1p3*p2p3*p6p7+
4556      . p2p3*p3p4*p6p7-p2p3*p3p5*p6p7+2*p2p3*p3p6*p5p7-3*p2p3*p3p7*
4557      . p4p6+p2p3*p3p7*p5p6))+ans3
4558       ans1=w2*((p3p7*p3p6*p3p5)*(-16*ffmcfmb+8)+8*(p5p7*p3p6)*(-2*
4559      . ffmcfmb*hbcm2+2*fmb*hbcm+hbcm2)+8*p6p7*(ffmcfmb*fmb*hbcm3+fmb2
4560      . *hbcm2-p3p5s2)+16*(p3p7*p3p6)*(-2*ffmcfmb*fmb*hbcm+fmb*hbcm)+8
4561      . *(ffmcfmb*hbcm2*p3p5*p6p7-fmb*hbcm*p1p3*p6p7-fmb*hbcm*p2p3*
4562      . p6p7+fmb*hbcm*p3p4*p6p7-4*fmb*hbcm*p3p7*p4p6-hbcm2*p4p6*p5p7-
4563      . hbcm2*p5p6*p5p7-p1p3*p3p5*p6p7-p2p3*p3p5*p6p7+p3p4*p3p5*p6p7+2
4564      . *p3p5*p3p6*p5p7-3*p3p5*p3p7*p4p6+p3p5*p3p7*p5p6))+ans2
4565       ans=ccc*ans1
4566       b(15)=ans
4567       ans=ccc*(w2*(16*(p5p6*p3p7)*(ffmcfmb*hbcm-hbcm)+8*(p5p7*p3p6)*(
4568      . -2*ffmcfmb*hbcm+hbcm)+8*(p6p7*p3p5)*(-ffmcfmb*hbcm+fmb+hbcm)+8
4569      . *p6p7*(-ffmcfmb*fmb*hbcm2+fmb*hbcm2+fmb2*hbcm)+8*(-hbcm*p4p6*
4570      . p5p7-hbcm*p5p6*p5p7))+w7*(8*(p6p7*p2p3)*(fmb-hbcm)+4*p6p7*(-
4571      . ffmcfmb**2*hbcm3-2*ffmcfmb*fmb*hbcm2+2*ffmcfmb*fmc*hbcm2+2*
4572      . ffmcfmb*hbcm3+2*fmb*fmc*hbcm-2*fmc*hbcm2-fmc2*hbcm)+8*(-
4573      . ffmcfmb*hbcm*p3p6*p3p7-3*ffmcfmb*hbcm*p3p7*p4p6+ffmcfmb*hbcm*
4574      . p3p7*p5p6))+w11*(8*(p6p7*p2p3)*(fmb-hbcm)+8*(p4p6*p3p7)*(-
4575      . ffmcfmb*hbcm-hbcm)+8*(p6p7*p3p4)*(ffmcfmb*hbcm-fmb)+4*p6p7*(-
4576      . ffmcfmb**2*hbcm3-2*ffmcfmb*fmb*hbcm2+2*ffmcfmb*hbcm3+fmc2*hbcm
4577      . )+8*(-ffmcfmb*hbcm*p3p6*p3p7-2*ffmcfmb*hbcm*p3p6*p4p7+ffmcfmb*
4578      . hbcm*p3p7*p5p6-hbcm*p1p4*p6p7-hbcm*p2p4*p6p7-hbcm*p4p5*p6p7-3*
4579      . hbcm*p4p6*p4p7-hbcm*p4p6*p5p7+2*hbcm*p4p7*p5p6))+8*p6p7*(2*fb1
4580      . *ffmcfmb*hbcm-2*fb1*hbcm+2*fb2*fmb+hbcm))
4581       b(16)=ans
4582       do 200 n=1,16
4583          c(n,1)=c(n,1)-0.1818181818181818d0*b(n)
4584          c(n,2)=c(n,2)-0.1512818716977898d0*b(n)
4585          c(n,3)=c(n,3)-0.1869893980016914d0*b(n)
4586 200   continue
4587       return
4588       end
4589
4590       subroutine amp9_3p0(cc)
4591       implicit double precision(a-h,o-z)
4592       implicit integer (i-n)
4593       dimension b(16)
4594 #include "inclcon.h"
4595 #include "inclppp.h"
4596 #include "inclamp.h"
4597       do 100 n=1,16
4598          b(n)=0.0d0
4599 100   continue
4600       ccc=cc/((-2*p2p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p2p3+2*ffmcfmb*
4601      . p3p4+fmc2-2*p2p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2+2*ffmcfmb*
4602      . p1p3-fmb2+hbcm2-2*p1p3))
4603       ans2=(32*(p6p7*p2p3)*(-fb2*fmb+fb2*fmc)+8*(p4p7*p3p6)*(-4*fb1*
4604      . ffmcfmb*hbcm+4*fb1*hbcm+4*fb2*fmc+3*hbcm))
4605       ans1=w11*(16*(p4p7*p3p6)*(-fmc*hbcm2-fmc2*hbcm)+16*p6p7*(-fmb*
4606      . p2p3s2+fmc*p2p3s2)+16*(p6p7*p3p4*p2p3)*(fmb-fmc)+16*(p6p7*p2p4
4607      . )*(-fmb*hbcm2+fmc*hbcm2-2*hbcm3)+16*(p4p7*p4p6)*(ffmcfmb*hbcm3
4608      . -2*hbcm3)+16*(p4p7*p3p6*p3p4)*(-ffmcfmb*hbcm-fmc-hbcm)+16*(
4609      . p4p7*p3p6*p2p3)*(ffmcfmb*hbcm+fmc+hbcm)+16*(p6p7*p2p3)*(-
4610      . ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm+fmc*hbcm2-2*fmc2*hbcm)+16*(-fmc
4611      . *hbcm2*p1p2*p6p7+fmc*hbcm2*p2p5*p6p7-2*hbcm*p1p2*p3p4*p6p7+2*
4612      . hbcm*p1p2*p3p7*p4p6+2*hbcm*p1p3*p2p4*p6p7+2*hbcm*p1p3*p4p6*
4613      . p4p7+2*hbcm*p1p4*p2p3*p6p7+4*hbcm*p2p3*p2p4*p6p7-2*hbcm*p2p3*
4614      . p2p5*p6p7+4*hbcm*p2p3*p4p6*p4p7+2*hbcm*p2p3*p4p6*p5p7-4*hbcm*
4615      . p2p4*p3p5*p6p7-4*hbcm*p2p4*p3p6*p3p7-2*hbcm*p2p4*p3p6*p5p7-4*
4616      . hbcm*p2p4*p3p7*p4p6+2*hbcm*p2p5*p3p4*p6p7-2*hbcm*p2p5*p3p7*
4617      . p4p6-2*hbcm*p3p4*p4p6*p4p7-2*hbcm*p3p5*p4p6*p4p7))+w13*(16*(
4618      . p6p7*p2p3*p1p3)*(fmb-fmc)+16*(p4p7*p3p6)*(-fmb*fmc*hbcm+fmb2*
4619      . hbcm)+16*(p4p7*p3p6*p1p3)*(-ffmcfmb*hbcm-fmc+hbcm)+16*(p6p7*
4620      . p2p3)*(ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm-fmb*
4621      . hbcm2+fmb2*hbcm+fmc*hbcm2))+ans2
4622       ans=ccc*ans1
4623       b(1)=ans
4624       b(2)=ccc*(w11*(8*(p4p7*p3p4)*(-fmb+fmc+2*hbcm)+8*(p4p7*p2p3)*(
4625      . fmb-fmc-2*hbcm)+8*p4p7*(ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm+2*fmc2*
4626      . hbcm)+16*(hbcm*p1p2*p4p7-hbcm*p1p4*p4p7+2*hbcm*p2p4*p3p7+2*
4627      . hbcm*p2p4*p5p7))+w13*(8*(p4p7*p1p3)*(-fmb+fmc)+8*p4p7*(-
4628      . ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm+fmb*hbcm2-
4629      . fmb2*hbcm-fmc*hbcm2))+16*p4p7*(fb2*fmb-fb2*fmc))
4630       b(3)=16*ccc*w11*(-hbcm*p1p2*p4p6+hbcm*p2p3*p4p6+hbcm*p2p4*p3p6+
4631      . 2*hbcm*p2p4*p4p6+hbcm*p2p5*p4p6)
4632       b(4)=ccc*(w13*((p4p7*p3p6*p1p3)*(-16*ffmcfmb+16)+16*(p4p7*p4p6)
4633      . *(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(p4p7*p3p6)*(ffmcfmb*hbcm2-
4634      . hbcm2)+16*(p6p7*p2p4)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(p1p3*
4635      . p2p4*p6p7+p1p3*p4p6*p4p7))+w11*((p4p7*p3p6*p3p4)*(-16*ffmcfmb+
4636      . 16)+(p4p7*p3p6*p2p3)*(16*ffmcfmb-16)+16*(p4p7*p4p6)*(ffmcfmb*
4637      . hbcm2+fmc*hbcm)+16*(p6p7*p2p4)*(ffmcfmb*hbcm2-fmb*hbcm)+16*(
4638      . fmc*hbcm*p3p6*p4p7-p2p3*p2p4*p6p7-p2p3*p4p6*p4p7+p2p4*p3p4*
4639      . p6p7+p3p4*p4p6*p4p7))+((p4p7*p3p6)*(32*fb2*ffmcfmb-32*fb2+8)+
4640      . 32*(-fb2*p2p4*p6p7-fb2*p4p6*p4p7)))
4641       ans2=(4*p4p7*(-4*fb1*fmb*hbcm-4*fb2*ffmcfmb*hbcm2+hbcm2)+32*(
4642      . fb2*p1p2*p3p7+fb2*p2p3*p4p7+fb2*p2p3*p5p7-fb2*p2p5*p3p7-fb2*
4643      . p3p5*p4p7))
4644       ans1=w11*(8*p4p7*(fmb*fmc*hbcm2+2*fmc*hbcm3+fmc2*hbcm2+2*p2p3s2
4645      . )+8*(p4p7*p3p4)*(-ffmcfmb*hbcm2+fmb*hbcm+2*fmc*hbcm+2*hbcm2)+
4646      . 16*(p3p7*p2p4)*(-ffmcfmb*hbcm2+fmb*hbcm+2*fmc*hbcm+hbcm2)+8*(
4647      . p4p7*p2p3)*(ffmcfmb*hbcm2-fmb*hbcm-6*fmc*hbcm-2*hbcm2)+16*(-2*
4648      . fmc*hbcm*p1p2*p3p7-fmc*hbcm*p1p3*p4p7-2*fmc*hbcm*p2p3*p5p7+2*
4649      . fmc*hbcm*p2p5*p3p7+2*fmc*hbcm*p3p5*p4p7+hbcm2*p1p2*p4p7-hbcm2*
4650      . p1p4*p4p7+hbcm2*p2p4*p5p7+p1p2*p2p3*p3p7-p1p2*p3p4*p3p7-p2p3*
4651      . p2p5*p3p7-p2p3*p3p4*p4p7-p2p3*p3p4*p5p7-p2p3*p3p5*p4p7+p2p3s2*
4652      . p5p7+p2p5*p3p4*p3p7+p3p4*p3p5*p4p7))+w13*(8*p4p7*(ffmcfmb*
4653      . hbcm4+fmb*hbcm3-hbcm4)+16*(p4p7*p3p5)*(ffmcfmb*hbcm2+fmb*hbcm-
4654      . hbcm2)+16*(p3p7*p2p5)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(p5p7*
4655      . p2p3)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(p4p7*p2p3)*(-ffmcfmb
4656      . *hbcm2-fmb*hbcm+hbcm2)+8*(p4p7*p1p3)*(-ffmcfmb*hbcm2-fmb*hbcm+
4657      . 2*hbcm2)+16*(p3p7*p1p2)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(-
4658      . p1p2*p1p3*p3p7-p1p3*p2p3*p4p7-p1p3*p2p3*p5p7+p1p3*p2p5*p3p7+
4659      . p1p3*p3p5*p4p7))+ans2
4660       ans=ccc*ans1
4661       b(5)=ans
4662       b(6)=ccc*(w11*(16*p3p6*(-ffmcfmb*p2p3s2+p2p3s2)+(p3p6*p3p4*p2p3
4663      . )*(16*ffmcfmb-16)+16*(p3p6*p2p4)*(-ffmcfmb*hbcm2+fmb*hbcm+fmc*
4664      . hbcm+hbcm2)+16*(p4p6*p2p3)*(-ffmcfmb*hbcm2-fmc*hbcm+hbcm2)+16*
4665      . (-fmc*hbcm*p1p2*p3p6+fmc*hbcm*p2p5*p3p6-hbcm2*p1p2*p4p6+hbcm2*
4666      . p2p4*p4p6+hbcm2*p2p5*p4p6-p2p3*p3p4*p4p6+p2p3s2*p4p6))+w13*((
4667      . p3p6*p2p3*p1p3)*(16*ffmcfmb-16)+16*(p3p6*p2p5)*(ffmcfmb*hbcm2-
4668      . hbcm2)+16*(p4p6*p2p3)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(p3p6
4669      . *p1p2)*(-ffmcfmb*hbcm2+hbcm2)-16*p1p3*p2p3*p4p6)+((p3p6*p2p3)*
4670      . (-32*fb2*ffmcfmb+32*fb2-8)+32*fb2*p2p3*p4p6))
4671       b(7)=ccc*(w11*(8*p2p4*(ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm)+8*(2*
4672      . fmc*hbcm*p1p2-2*fmc*hbcm*p2p3-2*fmc*hbcm*p2p5-p1p2*p2p3+p1p2*
4673      . p3p4+p2p3*p2p5-p2p3*p3p4+p2p3s2-p2p5*p3p4))+w13*(8*p2p5*(-
4674      . ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*p2p3*(-ffmcfmb*hbcm2-fmb*hbcm+
4675      . hbcm2)+8*p1p2*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(p1p2*p1p3-p1p3
4676      . *p2p3-p1p3*p2p5))+16*(-fb2*p1p2+fb2*p2p3+fb2*p2p5))
4677       b(8)=ccc*(w11*(8*(p3p4*p2p3)*(-fmb+fmc)+8*p2p4*(fmb*hbcm2-fmc*
4678      . hbcm2+2*hbcm3)+8*p2p3*(ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm-fmc*
4679      . hbcm2+2*fmc2*hbcm)+8*(fmb*p2p3s2+fmc*hbcm2*p1p2-fmc*hbcm2*p2p5
4680      . -fmc*p2p3s2+2*hbcm*p1p2*p3p4-2*hbcm*p1p3*p2p4-2*hbcm*p1p4*p2p3
4681      . -4*hbcm*p2p3*p2p4+2*hbcm*p2p3*p2p5+4*hbcm*p2p4*p3p5-2*hbcm*
4682      . p2p5*p3p4))+w13*(8*(p2p3*p1p3)*(-fmb+fmc)+8*p2p3*(-ffmcfmb*fmb
4683      . *hbcm2+ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm+fmb*hbcm2-fmb2*hbcm-fmc*
4684      . hbcm2))+16*p2p3*(fb2*fmb-fb2*fmc))
4685       b(9)=ccc*(w11*(8*p4p6*(ffmcfmb*hbcm3-2*hbcm3)+8*(p3p6*p3p4)*(-
4686      . ffmcfmb*hbcm-fmb+hbcm)+8*(p3p6*p2p3)*(ffmcfmb*hbcm+fmb-hbcm)+8
4687      . *p3p6*(ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm-fmc*hbcm2+fmc2*hbcm)+16*
4688      . (hbcm*p1p2*p3p6+hbcm*p1p3*p4p6-hbcm*p1p4*p3p6+hbcm*p2p3*p4p6-
4689      . hbcm*p2p4*p3p6-hbcm*p3p4*p4p6-hbcm*p3p5*p4p6))+w13*(8*(p3p6*
4690      . p1p3)*(-ffmcfmb*hbcm-fmb+hbcm)+8*p3p6*(-ffmcfmb*fmb*hbcm2+
4691      . ffmcfmb*fmc*hbcm2+fmb*hbcm2-fmc*hbcm2))+4*p3p6*(-4*fb1*ffmcfmb
4692      . *hbcm+4*fb1*hbcm+4*fb2*fmb+3*hbcm))
4693       b(10)=ccc*(w11*((p3p6*p3p4)*(-8*ffmcfmb+8)+(p3p6*p2p3)*(8*
4694      . ffmcfmb-8)+8*p4p6*(ffmcfmb*hbcm2+fmc*hbcm)+8*(fmc*hbcm*p3p6-
4695      . p2p3*p4p6+p3p4*p4p6))+w13*((p3p6*p1p3)*(-8*ffmcfmb+8)+8*p4p6*(
4696      . ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*p3p6*(ffmcfmb*hbcm2-hbcm2)+8*
4697      . p1p3*p4p6)+(p3p6*(16*fb2*ffmcfmb-16*fb2+4)-16*fb2*p4p6))
4698       b(11)=ccc*(w11*(4*p3p4*(-ffmcfmb*hbcm2+fmb*hbcm+2*fmc*hbcm+2*
4699      . hbcm2)+4*p2p3*(ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm-2*hbcm2)+4*(
4700      . fmb*fmc*hbcm2-2*fmc*hbcm*p1p3+4*fmc*hbcm*p3p5+2*fmc*hbcm3+fmc2
4701      . *hbcm2+2*hbcm2*p1p2-2*hbcm2*p1p4-2*hbcm2*p2p4-2*p2p3*p3p5+2*
4702      . p3p4*p3p5))+w13*(8*p3p5*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+4*p1p3*
4703      . (-ffmcfmb*hbcm2-fmb*hbcm+2*hbcm2)+4*(ffmcfmb*hbcm4+fmb*hbcm3-
4704      . hbcm4+2*p1p3*p3p5))+2*(-4*fb1*fmb*hbcm-4*fb2*ffmcfmb*hbcm2-8*
4705      . fb2*p3p5+hbcm2))
4706       b(12)=ccc*(w11*(8*(p3p7*p3p4)*(fmb-fmc)+8*(p3p7*p2p3)*(-fmb+fmc
4707      . )+8*p3p7*(-ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm+fmc*hbcm2-2*fmc2*
4708      . hbcm)+8*(fmc*hbcm2*p4p7+fmc*hbcm2*p5p7-2*hbcm*p1p2*p3p7+2*hbcm
4709      . *p1p4*p3p7-2*hbcm*p2p3*p4p7-2*hbcm*p2p3*p5p7+4*hbcm*p2p4*p3p7+
4710      . 2*hbcm*p3p4*p4p7+2*hbcm*p3p4*p5p7))+w13*(8*(p3p7*p1p3)*(fmb-
4711      . fmc)+8*p3p7*(ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm-
4712      . fmb*hbcm2+fmb2*hbcm+fmc*hbcm2))+16*p3p7*(-fb2*fmb+fb2*fmc))
4713       b(13)=ccc*(w11*(4*p3p4*(fmb-fmc-2*hbcm)+4*p2p3*(-fmb+fmc+2*hbcm
4714      . )+4*(-ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm-2*fmc2*hbcm-2*hbcm*p1p2+2
4715      . *hbcm*p1p4+4*hbcm*p2p4))+w13*(4*p1p3*(fmb-fmc)+4*(ffmcfmb*fmb*
4716      . hbcm2-ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm-fmb*hbcm2+fmb2*hbcm+fmc*
4717      . hbcm2))+8*(-fb2*fmb+fb2*fmc))
4718       b(14)=ccc*(8*w11*(2*fmc*hbcm*p3p7+2*fmc*hbcm*p4p7+2*fmc*hbcm*
4719      . p5p7-p2p3*p3p7-p2p3*p4p7-p2p3*p5p7+p3p4*p3p7+p3p4*p4p7+p3p4*
4720      . p5p7)+w13*(8*p5p7*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*p4p7*(
4721      . ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*p3p7*(ffmcfmb*hbcm2+fmb*hbcm-
4722      . hbcm2)+8*(p1p3*p3p7+p1p3*p4p7+p1p3*p5p7))+16*(-fb2*p3p7-fb2*
4723      . p4p7-fb2*p5p7))
4724       ans2=((p3p7*p3p6)*(32*fb2*ffmcfmb-32*fb2+8)+4*p6p7*(-4*fb1*fmb*
4725      . hbcm-4*fb2*ffmcfmb*hbcm2+8*fb2*hbcm2+hbcm2)+32*(-fb2*p1p3*p6p7
4726      . -fb2*p2p3*p6p7+fb2*p3p4*p6p7-fb2*p3p7*p4p6))
4727       ans1=w11*(8*p6p7*(fmb*fmc*hbcm2-2*fmc*hbcm3+fmc2*hbcm2-2*p2p3s2
4728      . -2*p3p4s2)+(p3p7*p3p6*p3p4)*(-16*ffmcfmb+16)+(p3p7*p3p6*p2p3)*
4729      . (16*ffmcfmb-16)+16*(p4p6*p3p7)*(ffmcfmb*hbcm2+fmc*hbcm-hbcm2)+
4730      . 8*(p6p7*p3p4)*(-ffmcfmb*hbcm2+fmb*hbcm-2*fmc*hbcm)+8*(p6p7*
4731      . p2p3)*(ffmcfmb*hbcm2-fmb*hbcm+2*fmc*hbcm)+16*(fmc*hbcm*p1p3*
4732      . p6p7-fmc*hbcm*p3p6*p4p7-fmc*hbcm*p3p6*p5p7+hbcm2*p1p2*p6p7-
4733      . hbcm2*p1p4*p6p7-hbcm2*p2p4*p6p7-hbcm2*p4p6*p4p7-hbcm2*p4p6*
4734      . p5p7-p1p3*p2p3*p6p7+p1p3*p3p4*p6p7+2*p2p3*p3p4*p6p7-p2p3*p3p7*
4735      . p4p6+p3p4*p3p7*p4p6))+w13*((p3p7*p3p6*p1p3)*(-16*ffmcfmb+16)+8
4736      . *p6p7*(-ffmcfmb*hbcm4-fmb*hbcm3+hbcm4+2*p1p3s2)+16*(p4p6*p3p7)
4737      . *(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(p5p7*p3p6)*(-ffmcfmb*hbcm2
4738      . +hbcm2)+16*(p4p7*p3p6)*(-ffmcfmb*hbcm2+hbcm2)+16*(p6p7*p3p4)*(
4739      . -ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(p6p7*p2p3)*(ffmcfmb*hbcm2+
4740      . fmb*hbcm-hbcm2)+8*(p6p7*p1p3)*(ffmcfmb*hbcm2+fmb*hbcm-2*hbcm2)
4741      . +16*(p1p3*p2p3*p6p7-p1p3*p3p4*p6p7+p1p3*p3p7*p4p6))+ans2
4742       ans=ccc*ans1
4743       b(15)=ans
4744       b(16)=ccc*(w11*(8*(p6p7*p3p4)*(-fmb+fmc+2*hbcm)+8*(p6p7*p2p3)*(
4745      . fmb-fmc-2*hbcm)+8*p6p7*(ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm+2*fmc2*
4746      . hbcm)+16*(hbcm*p1p2*p6p7-hbcm*p1p4*p6p7-2*hbcm*p2p4*p6p7-hbcm*
4747      . p3p7*p4p6-hbcm*p4p6*p4p7-hbcm*p4p6*p5p7))+w13*(8*(p6p7*p1p3)*(
4748      . -fmb+fmc)+8*p6p7*(-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+fmb*fmc
4749      . *hbcm+fmb*hbcm2-fmb2*hbcm-fmc*hbcm2))+16*p6p7*(fb2*fmb-fb2*fmc
4750      . ))
4751       do 200 n=1,16
4752          c(n,1)=c(n,1)+0.09090909090909091d0*b(n)
4753          c(n,2)=c(n,2)-0.01680909685530997d0*b(n)
4754          c(n,3)=c(n,3)-0.02077659977796572d0*b(n)
4755 200   continue
4756       return
4757       end
4758
4759       subroutine amp8_3p0(cc)
4760       implicit double precision(a-h,o-z)
4761       implicit integer (i-n)
4762       dimension b(16)
4763 #include "inclcon.h"
4764 #include "inclppp.h"
4765 #include "inclamp.h"
4766       do 100 n=1,16
4767          b(n)=0.0d0
4768 100   continue
4769       ccc=cc/((-2*p2p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*
4770      . p3p5+fmb2+hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3-fmc2)
4771      . )
4772       ans=ccc*(w2*(16*(p6p7*p3p5*p2p3)*(-fmb+fmc)+16*(p5p6*p4p7)*(
4773      . ffmcfmb*hbcm3-fmb*hbcm2-hbcm3)+16*(p4p7*p3p6*p3p5)*(-ffmcfmb*
4774      . hbcm+fmc-2*hbcm)+16*(p4p7*p3p6)*(ffmcfmb*fmb*hbcm2+fmb*fmc*
4775      . hbcm-fmb*hbcm2-fmb2*hbcm)+16*(p6p7*p2p3)*(ffmcfmb*fmb*hbcm2+
4776      . fmb*fmc*hbcm-2*fmb2*hbcm)+16*(-fmb*hbcm2*p1p2*p6p7+fmb*hbcm2*
4777      . p2p5*p6p7-fmb*hbcm2*p4p6*p4p7-2*hbcm*p1p2*p3p5*p6p7+2*hbcm*
4778      . p1p2*p3p7*p5p6+2*hbcm*p1p5*p2p3*p6p7+2*hbcm*p1p5*p3p6*p4p7+2*
4779      . hbcm*p2p3*p4p7*p5p6+2*hbcm*p2p3*p5p6*p5p7+2*hbcm*p2p5*p3p5*
4780      . p6p7-2*hbcm*p2p5*p3p7*p5p6-2*hbcm*p3p5*p4p6*p4p7-2*hbcm*p3p5*
4781      . p4p7*p5p6))+w12*(16*(p6p7*p2p3*p1p3)*(-fmb+fmc)+16*(p4p7*p3p6*
4782      . p1p3)*(-ffmcfmb*hbcm+fmc)+16*(p4p7*p3p6)*(ffmcfmb*fmb*hbcm2-
4783      . ffmcfmb*fmc*hbcm2)+16*(p6p7*p2p3)*(ffmcfmb*fmb*hbcm2-ffmcfmb*
4784      . fmc*hbcm2-fmb*fmc*hbcm+fmc2*hbcm))+(32*(p6p7*p2p3)*(-fb2*fmb+
4785      . fb2*fmc)+8*(p4p7*p3p6)*(-4*fb1*ffmcfmb*hbcm+4*fb2*fmc-3*hbcm))
4786      . )
4787       b(1)=ans
4788       b(2)=ccc*(w2*(8*(p4p7*p3p5)*(fmb-fmc+2*hbcm)+8*p4p7*(-ffmcfmb*
4789      . fmb*hbcm2-fmb*fmc*hbcm+fmb*hbcm2+2*fmb2*hbcm)-16*hbcm*p1p5*
4790      . p4p7)+w12*(8*(p4p7*p1p3)*(fmb-fmc)+8*p4p7*(-ffmcfmb*fmb*hbcm2+
4791      . ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm-fmc2*hbcm))+16*p4p7*(fb2*fmb-
4792      . fb2*fmc))
4793       b(3)=16*ccc*w2*(-hbcm*p1p2*p5p6+hbcm*p2p3*p5p6+hbcm*p2p5*p5p6)
4794       b(4)=ccc*(w2*((p4p7*p3p6*p3p5)*(16*ffmcfmb-16)+16*(p5p6*p4p7)*(
4795      . -ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(-2*fmb*hbcm*p2p4*p6p7-fmb*
4796      . hbcm*p3p6*p4p7-2*fmb*hbcm*p4p6*p4p7-p2p4*p3p5*p6p7-p3p5*p4p6*
4797      . p4p7))+w12*((p4p7*p3p6*p1p3)*(16*ffmcfmb-16)+16*(p4p7*p4p6)*(
4798      . ffmcfmb*hbcm2-fmc*hbcm)+16*(p6p7*p2p4)*(ffmcfmb*hbcm2-fmc*hbcm
4799      . )+16*(-fmc*hbcm*p3p6*p4p7-p1p3*p2p4*p6p7-p1p3*p4p6*p4p7))+((
4800      . p4p7*p3p6)*(32*fb2*ffmcfmb-32*fb2+8)+32*(-fb2*p2p4*p6p7-fb2*
4801      . p4p6*p4p7)))
4802       ans=ccc*(w2*(8*p4p7*(fmb*fmc*hbcm2-2*fmb*hbcm3+fmb2*hbcm2-2*
4803      . p3p5s2)+8*(p4p7*p3p5)*(ffmcfmb*hbcm2-2*fmb*hbcm+fmc*hbcm-hbcm2
4804      . )+16*(2*fmb*hbcm*p1p2*p3p7+fmb*hbcm*p1p3*p4p7+2*fmb*hbcm*p2p3*
4805      . p4p7+2*fmb*hbcm*p2p3*p5p7-2*fmb*hbcm*p2p5*p3p7-hbcm2*p1p5*p4p7
4806      . +p1p2*p3p5*p3p7+p1p3*p3p5*p4p7+p2p3*p3p5*p4p7+p2p3*p3p5*p5p7-
4807      . p2p5*p3p5*p3p7))+w12*(8*p4p7*(ffmcfmb*hbcm4-fmc*hbcm3+2*p1p3s2
4808      . )+16*(p4p7*p3p5)*(ffmcfmb*hbcm2-fmc*hbcm)+16*(p3p7*p2p5)*(
4809      . ffmcfmb*hbcm2-fmc*hbcm)+16*(p5p7*p2p3)*(-ffmcfmb*hbcm2+fmc*
4810      . hbcm)+16*(p4p7*p2p3)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(p4p7*p1p3)*(
4811      . -ffmcfmb*hbcm2+fmc*hbcm-hbcm2)+16*(p3p7*p1p2)*(-ffmcfmb*hbcm2+
4812      . fmc*hbcm)+16*(p1p2*p1p3*p3p7+p1p3*p2p3*p4p7+p1p3*p2p3*p5p7-
4813      . p1p3*p2p5*p3p7-p1p3*p3p5*p4p7))+(4*p4p7*(-4*fb1*fmc*hbcm-4*fb2
4814      . *ffmcfmb*hbcm2-4*fb2*hbcm2+hbcm2)+32*(fb2*p1p2*p3p7+fb2*p1p3*
4815      . p4p7+fb2*p2p3*p4p7+fb2*p2p3*p5p7-fb2*p2p5*p3p7-fb2*p3p5*p4p7))
4816      . )
4817       b(5)=ans
4818       b(6)=ccc*(w2*(16*(p5p6*p2p3)*(ffmcfmb*hbcm2+fmb*hbcm)+16*(-
4819      . ffmcfmb*p2p3*p3p5*p3p6+fmb*hbcm*p1p2*p3p6+2*fmb*hbcm*p2p3*p4p6
4820      . -fmb*hbcm*p2p5*p3p6-hbcm2*p1p2*p5p6+hbcm2*p2p5*p5p6+p1p2*p3p5*
4821      . p3p6+p2p3*p3p5*p4p6-p2p5*p3p5*p3p6))+w12*(16*(p4p6*p2p3)*(-
4822      . ffmcfmb*hbcm2+fmc*hbcm)+16*(-ffmcfmb*p1p3*p2p3*p3p6+fmc*hbcm*
4823      . p1p2*p3p6-fmc*hbcm*p2p5*p3p6+p1p2*p1p3*p3p6+p1p3*p2p3*p4p6-
4824      . p1p3*p2p5*p3p6))+((p3p6*p2p3)*(-32*fb2*ffmcfmb-8)+32*(fb2*p1p2
4825      . *p3p6+fb2*p2p3*p4p6-fb2*p2p5*p3p6)))
4826       b(7)=ccc*(8*w2*(-2*fmb*hbcm*p1p2+2*fmb*hbcm*p2p3+2*fmb*hbcm*
4827      . p2p5-p1p2*p3p5+p2p3*p3p5+p2p5*p3p5)+w12*(8*p2p5*(-ffmcfmb*
4828      . hbcm2+fmc*hbcm)+8*p2p3*(-ffmcfmb*hbcm2+fmc*hbcm)+8*p1p2*(
4829      . ffmcfmb*hbcm2-fmc*hbcm)+8*(-p1p2*p1p3+p1p3*p2p3+p1p3*p2p5))+16
4830      . *(-fb2*p1p2+fb2*p2p3+fb2*p2p5))
4831       b(8)=ccc*(w2*(8*(p3p5*p2p3)*(fmb-fmc)+8*p2p3*(-ffmcfmb*fmb*
4832      . hbcm2-fmb*fmc*hbcm+2*fmb2*hbcm)+8*(fmb*hbcm2*p1p2-fmb*hbcm2*
4833      . p2p5+2*hbcm*p1p2*p3p5-2*hbcm*p1p5*p2p3-2*hbcm*p2p5*p3p5))+w12*
4834      . (8*(p2p3*p1p3)*(fmb-fmc)+8*p2p3*(-ffmcfmb*fmb*hbcm2+ffmcfmb*
4835      . fmc*hbcm2+fmb*fmc*hbcm-fmc2*hbcm))+16*p2p3*(fb2*fmb-fb2*fmc))
4836       b(9)=ccc*(w2*(8*p5p6*(ffmcfmb*hbcm3-fmb*hbcm2-hbcm3)+8*(p3p6*
4837      . p3p5)*(-ffmcfmb*hbcm+fmb)+8*(-fmb*hbcm2*p4p6+fmb2*hbcm*p3p6-2*
4838      . hbcm*p3p5*p4p6-2*hbcm*p3p5*p5p6))+w12*(8*p3p6*(fmb*fmc*hbcm-
4839      . fmc2*hbcm)+8*(p3p6*p1p3)*(-ffmcfmb*hbcm+fmb))+4*p3p6*(-4*fb1*
4840      . ffmcfmb*hbcm+4*fb2*fmb-3*hbcm))
4841       b(10)=ccc*(w2*((p3p6*p3p5)*(8*ffmcfmb-8)+8*p5p6*(-ffmcfmb*hbcm2
4842      . -fmb*hbcm+hbcm2)+8*(-fmb*hbcm*p3p6-2*fmb*hbcm*p4p6-p3p5*p4p6))
4843      . +w12*((p3p6*p1p3)*(8*ffmcfmb-8)+8*p4p6*(ffmcfmb*hbcm2-fmc*hbcm
4844      . )+8*(-fmc*hbcm*p3p6-p1p3*p4p6))+(p3p6*(16*fb2*ffmcfmb-16*fb2+4
4845      . )-16*fb2*p4p6))
4846       b(11)=ccc*(w2*(4*p3p5*(ffmcfmb*hbcm2-2*fmb*hbcm+fmc*hbcm-hbcm2)
4847      . +4*(fmb*fmc*hbcm2+2*fmb*hbcm*p1p3-2*fmb*hbcm3+fmb2*hbcm2-2*
4848      . hbcm2*p1p5+2*p1p3*p3p5-2*p3p5s2))+w12*(8*p3p5*(ffmcfmb*hbcm2-
4849      . fmc*hbcm)+4*p1p3*(-ffmcfmb*hbcm2+fmc*hbcm-hbcm2)+4*(ffmcfmb*
4850      . hbcm4-fmc*hbcm3-2*p1p3*p3p5+2*p1p3s2))+2*(-4*fb1*fmc*hbcm-4*
4851      . fb2*ffmcfmb*hbcm2-4*fb2*hbcm2+8*fb2*p1p3-8*fb2*p3p5+hbcm2))
4852       b(12)=ccc*(w2*(8*(p3p7*p3p5)*(-fmb+fmc)+8*p3p7*(ffmcfmb*fmb*
4853      . hbcm2+fmb*fmc*hbcm-2*fmb2*hbcm)+8*(fmb*hbcm2*p4p7+fmb*hbcm2*
4854      . p5p7+2*hbcm*p1p5*p3p7+2*hbcm*p3p5*p4p7+2*hbcm*p3p5*p5p7))+w12*
4855      . (8*(p3p7*p1p3)*(-fmb+fmc)+8*p3p7*(ffmcfmb*fmb*hbcm2-ffmcfmb*
4856      . fmc*hbcm2-fmb*fmc*hbcm+fmc2*hbcm))+16*p3p7*(-fb2*fmb+fb2*fmc))
4857       b(13)=ccc*(w2*(4*p3p5*(-fmb+fmc-2*hbcm)+4*(ffmcfmb*fmb*hbcm2+
4858      . fmb*fmc*hbcm-fmb*hbcm2-2*fmb2*hbcm+2*hbcm*p1p5))+w12*(4*p1p3*(
4859      . -fmb+fmc)+4*(ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm+
4860      . fmc2*hbcm))+8*(-fb2*fmb+fb2*fmc))
4861       b(14)=ccc*(8*w2*(-2*fmb*hbcm*p3p7-2*fmb*hbcm*p4p7-2*fmb*hbcm*
4862      . p5p7-p3p5*p3p7-p3p5*p4p7-p3p5*p5p7)+w12*(8*p5p7*(ffmcfmb*hbcm2
4863      . -fmc*hbcm)+8*p4p7*(ffmcfmb*hbcm2-fmc*hbcm)+8*p3p7*(ffmcfmb*
4864      . hbcm2-fmc*hbcm)+8*(-p1p3*p3p7-p1p3*p4p7-p1p3*p5p7))+16*(-fb2*
4865      . p3p7-fb2*p4p7-fb2*p5p7))
4866       ans=ccc*(w2*(8*p6p7*(fmb*fmc*hbcm2+2*fmb*hbcm3+fmb2*hbcm2)+16*(
4867      . p5p6*p3p7)*(-ffmcfmb*hbcm2-fmb*hbcm)+8*(p6p7*p3p5)*(ffmcfmb*
4868      . hbcm2+2*fmb*hbcm+fmc*hbcm+hbcm2)+16*(ffmcfmb*p3p5*p3p6*p3p7-
4869      . fmb*hbcm*p1p3*p6p7-2*fmb*hbcm*p2p3*p6p7+2*fmb*hbcm*p3p4*p6p7+
4870      . fmb*hbcm*p3p6*p4p7+fmb*hbcm*p3p6*p5p7-2*fmb*hbcm*p3p7*p4p6-
4871      . hbcm2*p1p5*p6p7-hbcm2*p4p7*p5p6-hbcm2*p5p6*p5p7-p2p3*p3p5*p6p7
4872      . +p3p4*p3p5*p6p7+p3p5*p3p6*p4p7+p3p5*p3p6*p5p7-p3p5*p3p7*p4p6))
4873      . +w12*(8*p6p7*(-ffmcfmb*hbcm4+fmc*hbcm3)+16*(p4p6*p3p7)*(
4874      . ffmcfmb*hbcm2-fmc*hbcm)+16*(p6p7*p3p4)*(-ffmcfmb*hbcm2+fmc*
4875      . hbcm)+16*(p6p7*p2p3)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p6p7*p1p3)*(
4876      . ffmcfmb*hbcm2-fmc*hbcm+hbcm2)+16*(ffmcfmb*p1p3*p3p6*p3p7+fmc*
4877      . hbcm*p3p6*p4p7+fmc*hbcm*p3p6*p5p7-p1p3*p2p3*p6p7+p1p3*p3p4*
4878      . p6p7+p1p3*p3p6*p4p7+p1p3*p3p6*p5p7-p1p3*p3p7*p4p6))+((p3p7*
4879      . p3p6)*(32*fb2*ffmcfmb+8)+4*p6p7*(-4*fb1*fmc*hbcm-4*fb2*ffmcfmb
4880      . *hbcm2+4*fb2*hbcm2+hbcm2)+32*(-fb2*p2p3*p6p7+fb2*p3p4*p6p7+fb2
4881      . *p3p6*p4p7+fb2*p3p6*p5p7-fb2*p3p7*p4p6)))
4882       b(15)=ans
4883       b(16)=ccc*(w2*(8*(p6p7*p3p5)*(fmb-fmc+2*hbcm)+8*p6p7*(-ffmcfmb*
4884      . fmb*hbcm2-fmb*fmc*hbcm+fmb*hbcm2+2*fmb2*hbcm)+16*(-hbcm*p1p5*
4885      . p6p7-hbcm*p3p7*p5p6-hbcm*p4p7*p5p6-hbcm*p5p6*p5p7))+w12*(8*(
4886      . p6p7*p1p3)*(fmb-fmc)+8*p6p7*(-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*
4887      . hbcm2+fmb*fmc*hbcm-fmc2*hbcm))+16*p6p7*(fb2*fmb-fb2*fmc))
4888       do 200 n=1,16
4889          c(n,1)=c(n,1)+0.09090909090909091d0*b(n)
4890          c(n,2)=c(n,2)-0.01680909685530997d0*b(n)
4891          c(n,3)=c(n,3)-0.02077659977796572d0*b(n)
4892 200   continue
4893       return
4894       end
4895
4896       subroutine amp7_3p0(cc)
4897       implicit double precision(a-h,o-z)
4898       implicit integer (i-n)
4899       dimension b(16)
4900 #include "inclcon.h"
4901 #include "inclppp.h"
4902 #include "inclamp.h"
4903       do 100 n=1,16
4904          b(n)=0.0d0
4905 100   continue
4906       ccc=cc/((-2*p2p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*
4907      . p3p5+fmb2+hbcm2+2*p3p5)*(fmb2-fmc2+hbcm2+2*p3p5))
4908       b(1)=ccc*(w2*(16*(p4p7*p3p6*p3p5)*(fmb-fmc)+16*(p6p7*p3p5*p2p3)
4909      . *(fmb-fmc)+16*(fmb*hbcm2*p2p3*p6p7+fmb*hbcm2*p3p6*p4p7))+(32*(
4910      . p4p7*p3p6)*(-2*fb1*hbcm+fb2*fmb-fb2*fmc)+32*(p6p7*p2p3)*(-2*
4911      . fb1*hbcm+fb2*fmb-fb2*fmc)))
4912       b(2)=ccc*(w2*(8*(p4p7*p3p5)*(-fmb+fmc)-8*fmb*hbcm2*p4p7)+16*
4913      . p4p7*(2*fb1*hbcm-fb2*fmb+fb2*fmc))
4914       b(5)=ccc*(w2*(8*p4p7*(-fmb*fmc*hbcm2-fmb2*hbcm2+2*p3p5s2)+8*
4915      . hbcm2*p3p5*p4p7)+(16*p4p7*(2*fb1*fmb*hbcm+2*fb1*fmc*hbcm+fb2*
4916      . hbcm2)+32*fb2*p3p5*p4p7))
4917       b(8)=ccc*(w2*(8*(p3p5*p2p3)*(-fmb+fmc)-8*fmb*hbcm2*p2p3)+16*
4918      . p2p3*(2*fb1*hbcm-fb2*fmb+fb2*fmc))
4919       b(11)=ccc*(4*w2*(-fmb*fmc*hbcm2-fmb2*hbcm2+hbcm2*p3p5+2*p3p5s2)
4920      . +8*(2*fb1*fmb*hbcm+2*fb1*fmc*hbcm+fb2*hbcm2+2*fb2*p3p5))
4921       b(12)=ccc*(w2*(8*(p3p7*p3p5)*(fmb-fmc)+8*fmb*hbcm2*p3p7)+16*
4922      . p3p7*(-2*fb1*hbcm+fb2*fmb-fb2*fmc))
4923       b(13)=ccc*(w2*(4*p3p5*(fmb-fmc)+4*fmb*hbcm2)+8*(-2*fb1*hbcm+fb2
4924      . *fmb-fb2*fmc))
4925       b(15)=ccc*(w2*(8*p6p7*(-fmb*fmc*hbcm2-fmb2*hbcm2+2*p3p5s2)+8*
4926      . hbcm2*p3p5*p6p7)+(16*p6p7*(2*fb1*fmb*hbcm+2*fb1*fmc*hbcm+fb2*
4927      . hbcm2)+32*fb2*p3p5*p6p7))
4928       b(16)=ccc*(w2*(8*(p6p7*p3p5)*(-fmb+fmc)-8*fmb*hbcm2*p6p7)+16*
4929      . p6p7*(2*fb1*hbcm-fb2*fmb+fb2*fmc))
4930       do 200 n=1,16
4931          c(n,1)=c(n,1)-0.7272727272727273d0*b(n)
4932          c(n,2)=c(n,2)+0.1344727748424798d0*b(n)
4933          c(n,3)=c(n,3)+0.1662127982237257d0*b(n)
4934 200   continue
4935       return
4936       end
4937
4938       subroutine amp6_3p0(cc)
4939       implicit double precision(a-h,o-z)
4940       implicit integer (i-n)
4941       dimension b(16)
4942 #include "inclcon.h"
4943 #include "inclppp.h"
4944 #include "inclamp.h"
4945       do 100 n=1,16
4946          b(n)=0.0d0
4947 100   continue
4948       ccc=cc/((4*p1p5*p2p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p2p3+2*
4949      . ffmcfmb*p3p4+fmc2-2*p2p4))
4950       b(1)=ccc*(w11*(16*p6p7*(fmb*p2p3s2-fmc*p2p3s2)+16*(p6p7*p3p4*
4951      . p2p3)*(-fmb+fmc)+16*(p6p7*p2p4)*(fmb*hbcm2-fmc*hbcm2)+16*(fmc*
4952      . hbcm2*p1p2*p6p7-fmc*hbcm2*p2p5*p6p7+fmc*hbcm2*p3p6*p4p7+fmc*
4953      . hbcm2*p4p6*p4p7+fmc*hbcm2*p4p7*p5p6))+(32*(p6p7*p2p3)*(fb2*fmb
4954      . -fb2*fmc)+64*(-fb1*hbcm*p1p2*p6p7+fb1*hbcm*p2p5*p6p7-fb1*hbcm*
4955      . p3p6*p4p7-fb1*hbcm*p4p6*p4p7-fb1*hbcm*p4p7*p5p6)))
4956       b(2)=ccc*(w11*(8*(p4p7*p3p4)*(fmb-fmc)+8*(p4p7*p2p3)*(-fmb+fmc)
4957      . -8*fmc*hbcm2*p4p7)+16*p4p7*(2*fb1*hbcm-fb2*fmb+fb2*fmc))
4958       b(4)=ccc*(16*w11*(-hbcm2*p2p4*p6p7+p2p3*p2p4*p6p7+p2p3*p3p6*
4959      . p4p7+p2p3*p4p6*p4p7+p2p3*p4p7*p5p6-p2p4*p3p4*p6p7-p3p4*p3p6*
4960      . p4p7-p3p4*p4p6*p4p7-p3p4*p4p7*p5p6)+32*(fb2*p2p4*p6p7+fb2*p3p6
4961      . *p4p7+fb2*p4p6*p4p7+fb2*p4p7*p5p6))
4962       b(5)=ccc*(w11*(8*p4p7*(-fmb*fmc*hbcm2-fmc2*hbcm2-2*p2p3s2)+8*(
4963      . hbcm2*p2p3*p4p7-2*hbcm2*p2p4*p5p7-hbcm2*p3p4*p4p7-2*p1p2*p2p3*
4964      . p3p7+2*p1p2*p3p4*p3p7-2*p1p3*p2p3*p4p7+2*p1p3*p3p4*p4p7+2*p2p3
4965      . *p2p5*p3p7+2*p2p3*p3p4*p4p7+2*p2p3*p3p4*p5p7+2*p2p3*p3p5*p4p7-
4966      . 2*p2p3s2*p5p7-2*p2p5*p3p4*p3p7-2*p3p4*p3p5*p4p7))+(16*p4p7*(2*
4967      . fb1*fmb*hbcm+2*fb1*fmc*hbcm+fb2*hbcm2)+32*(-fb2*p1p2*p3p7-fb2*
4968      . p1p3*p4p7-fb2*p2p3*p4p7-fb2*p2p3*p5p7+fb2*p2p5*p3p7+fb2*p3p5*
4969      . p4p7)))
4970       b(6)=ccc*(16*w11*(-hbcm2*p2p4*p4p6-hbcm2*p2p4*p5p6-p1p2*p2p3*
4971      . p3p6+p1p2*p3p4*p3p6+p2p3*p2p5*p3p6+p2p3*p3p4*p4p6+p2p3*p3p4*
4972      . p5p6-p2p3s2*p4p6-p2p3s2*p5p6-p2p5*p3p4*p3p6)+32*(-fb2*p1p2*
4973      . p3p6-fb2*p2p3*p4p6-fb2*p2p3*p5p6+fb2*p2p5*p3p6))
4974       b(7)=ccc*(8*w11*(-hbcm2*p2p4+p1p2*p2p3-p1p2*p3p4-p2p3*p2p5+p2p3
4975      . *p3p4-p2p3s2+p2p5*p3p4)+16*(fb2*p1p2-fb2*p2p3-fb2*p2p5))
4976       b(8)=ccc*(w11*(8*(p3p4*p2p3)*(fmb-fmc)+8*p2p4*(-fmb*hbcm2+fmc*
4977      . hbcm2)+8*(-fmb*p2p3s2-fmc*hbcm2*p1p2+fmc*hbcm2*p2p5+fmc*p2p3s2
4978      . ))+(16*p2p3*(-fb2*fmb+fb2*fmc)+32*(fb1*hbcm*p1p2-fb1*hbcm*p2p5
4979      . )))
4980       b(9)=ccc*(w11*(8*(p3p6*p3p4)*(fmb-fmc)+8*(p3p6*p2p3)*(-fmb+fmc)
4981      . +8*(fmc*hbcm2*p4p6+fmc*hbcm2*p5p6))+(16*p3p6*(-fb2*fmb+fb2*fmc
4982      . )+32*(-fb1*hbcm*p4p6-fb1*hbcm*p5p6)))
4983       b(10)=ccc*(8*w11*(p2p3*p3p6+p2p3*p4p6+p2p3*p5p6-p3p4*p3p6-p3p4*
4984      . p4p6-p3p4*p5p6)+16*(fb2*p3p6+fb2*p4p6+fb2*p5p6))
4985       b(11)=ccc*(4*w11*(-fmb*fmc*hbcm2-fmc2*hbcm2+hbcm2*p2p3+2*hbcm2*
4986      . p2p4-hbcm2*p3p4-2*p1p3*p2p3+2*p1p3*p3p4+2*p2p3*p3p5-2*p3p4*
4987      . p3p5)+8*(2*fb1*fmb*hbcm+2*fb1*fmc*hbcm+fb2*hbcm2-2*fb2*p1p3+2*
4988      . fb2*p3p5))
4989       b(12)=ccc*(w11*(8*(p3p7*p3p4)*(-fmb+fmc)+8*(p3p7*p2p3)*(fmb-fmc
4990      . )+8*(-fmc*hbcm2*p4p7-fmc*hbcm2*p5p7))+(16*p3p7*(fb2*fmb-fb2*
4991      . fmc)+32*(fb1*hbcm*p4p7+fb1*hbcm*p5p7)))
4992       b(13)=ccc*(w11*(4*p3p4*(-fmb+fmc)+4*p2p3*(fmb-fmc)+4*fmc*hbcm2)
4993      . +8*(-2*fb1*hbcm+fb2*fmb-fb2*fmc))
4994       b(14)=ccc*(8*w11*(p2p3*p3p7+p2p3*p4p7+p2p3*p5p7-p3p4*p3p7-p3p4*
4995      . p4p7-p3p4*p5p7)+16*(fb2*p3p7+fb2*p4p7+fb2*p5p7))
4996       b(15)=ccc*(w11*(8*p6p7*(-fmb*fmc*hbcm2-fmc2*hbcm2+2*p2p3s2+2*
4997      . p3p4s2)+8*(-hbcm2*p2p3*p6p7+2*hbcm2*p2p4*p6p7+hbcm2*p3p4*p6p7-
4998      . 4*p2p3*p3p4*p6p7-2*p2p3*p3p6*p4p7-2*p2p3*p3p6*p5p7+2*p2p3*p3p7
4999      . *p4p6+2*p2p3*p3p7*p5p6+2*p3p4*p3p6*p4p7+2*p3p4*p3p6*p5p7-2*
5000      . p3p4*p3p7*p4p6-2*p3p4*p3p7*p5p6))+(16*p6p7*(2*fb1*fmb*hbcm+2*
5001      . fb1*fmc*hbcm-fb2*hbcm2)+32*(fb2*p2p3*p6p7-fb2*p3p4*p6p7-fb2*
5002      . p3p6*p4p7-fb2*p3p6*p5p7+fb2*p3p7*p4p6+fb2*p3p7*p5p6)))
5003       b(16)=ccc*(w11*(8*(p6p7*p3p4)*(fmb-fmc)+8*(p6p7*p2p3)*(-fmb+fmc
5004      . )-8*fmc*hbcm2*p6p7)+16*p6p7*(2*fb1*hbcm-fb2*fmb+fb2*fmc))
5005       do 200 n=1,16
5006          c(n,1)=c(n,1)-0.7272727272727273d0*b(n)
5007          c(n,2)=c(n,2)+0.1344727748424798d0*b(n)
5008          c(n,3)=c(n,3)+0.1662127982237257d0*b(n)
5009 200   continue
5010       return
5011       end
5012
5013       subroutine amp5_3p0(cc)
5014       implicit double precision(a-h,o-z)
5015       implicit integer (i-n)
5016       dimension b(16)
5017 #include "inclcon.h"
5018 #include "inclppp.h"
5019 #include "inclamp.h"
5020       do 100 n=1,16
5021          b(n)=0.0d0
5022 100   continue
5023       ccc=cc/((-2*p1p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3+2*ffmcfmb*
5024      . p3p4+fmc2-2*p1p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2+2*ffmcfmb*
5025      . p2p3-fmb2+hbcm2-2*p2p3))
5026       b(1)=ccc*(16*w8*(p3p7*p3p6*p2p3)*(ffmcfmb*fmb-ffmcfmb*fmc+
5027      . ffmcfmb*hbcm+fmc-hbcm)+w5*(16*(p5p7*p3p6)*(ffmcfmb*fmc*hbcm2+
5028      . fmb*fmc*hbcm-fmc*hbcm2)+16*(p3p7*p3p6*p3p4)*(ffmcfmb*fmb-
5029      . ffmcfmb*fmc+ffmcfmb*hbcm+fmc-hbcm)+16*(p3p7*p3p6*p1p3)*(-
5030      . ffmcfmb*fmb+ffmcfmb*fmc-ffmcfmb*hbcm-fmc+hbcm)+16*(p4p7*p3p6)*
5031      . (-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3+fmb*fmc*
5032      . hbcm-fmb2*hbcm-fmc*hbcm2+hbcm3)+16*(fmb*fmc*hbcm*p3p6*p3p7+2*
5033      . hbcm*p1p2*p3p6*p5p7-2*hbcm*p2p4*p3p6*p5p7+2*hbcm*p2p5*p3p6*
5034      . p4p7))+8*(p3p7*p3p6)*(4*fb1*ffmcfmb*hbcm-4*fb1*hbcm-4*fb2*
5035      . ffmcfmb*fmb+4*fb2*ffmcfmb*fmc-4*fb2*fmc-fmb+fmc-3*hbcm))
5036       b(2)=ccc*(8*w8*(p3p7*p2p3)*(-ffmcfmb*fmb+ffmcfmb*fmc-ffmcfmb*
5037      . hbcm-fmc+hbcm)+w5*(8*p5p7*(-ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm+fmc
5038      . *hbcm2)+8*(p3p7*p3p4)*(-ffmcfmb*fmb+ffmcfmb*fmc-ffmcfmb*hbcm-
5039      . fmc+hbcm)+8*(p3p7*p1p3)*(ffmcfmb*fmb-ffmcfmb*fmc+ffmcfmb*hbcm+
5040      . fmc-hbcm)+8*p4p7*(ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2+ffmcfmb*
5041      . hbcm3-fmb*fmc*hbcm+fmb2*hbcm+fmc*hbcm2-hbcm3)+8*(-fmb*fmc*hbcm
5042      . *p3p7-2*hbcm*p1p2*p5p7+2*hbcm*p2p4*p5p7-2*hbcm*p2p5*p4p7))+4*
5043      . p3p7*(-4*fb1*ffmcfmb*hbcm+4*fb1*hbcm+4*fb2*ffmcfmb*fmb-4*fb2*
5044      . ffmcfmb*fmc+4*fb2*fmc+fmb-fmc+3*hbcm))
5045       ans3=((p3p7*p3p5)*(-32*fb2*ffmcfmb+32*fb2-8)+(p3p7*p2p3)*(32*
5046      . fb2*ffmcfmb-32*fb2+8)+4*p5p7*(4*fb1*fmb*hbcm+4*fb2*ffmcfmb*
5047      . hbcm2-4*fb2*hbcm2-hbcm2)+4*p3p7*(-4*fb1*ffmcfmb*fmb*hbcm-4*fb1
5048      . *ffmcfmb*fmc*hbcm+4*fb1*fmb*hbcm+4*fb1*fmc*hbcm-4*fb2*ffmcfmb*
5049      . hbcm2+4*fb2*fmb*fmc+4*fb2*fmb2+4*fb2*hbcm2+3*fmb*hbcm+3*fmc*
5050      . hbcm-hbcm2)+32*(fb2*p2p3*p5p7-fb2*p2p5*p3p7))
5051       ans2=w5*(8*p3p7*(-fmb*fmc2*hbcm-fmb2*fmc*hbcm)+(p3p7*p3p5*p3p4)
5052      . *(16*ffmcfmb-16)+(p3p7*p3p4*p2p3)*(-16*ffmcfmb+16)+(p3p7*p3p5*
5053      . p1p3)*(-16*ffmcfmb+16)+(p3p7*p2p3*p1p3)*(16*ffmcfmb-16)+16*(
5054      . p4p7*p3p5)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(p5p7*p3p4)*(
5055      . ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(p4p7*p2p3)*(ffmcfmb*hbcm2+
5056      . fmb*hbcm-hbcm2)+8*(p5p7*p1p3)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+
5057      . 8*p4p7*(ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*hbcm3-ffmcfmb*hbcm4+fmb*
5058      . fmc*hbcm2-2*fmb*hbcm3+fmb2*hbcm2-fmc*hbcm3+hbcm4)+8*(p3p7*p3p4
5059      . )*(-ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-fmb*fmc+
5060      . fmb*hbcm-fmb2+fmc*hbcm-hbcm2)+8*(p3p7*p1p3)*(ffmcfmb*fmb*hbcm+
5061      . ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2+fmb*fmc-fmb*hbcm+fmb2-fmc*hbcm+
5062      . hbcm2)+16*(fmb*hbcm*p1p4*p3p7-fmc*hbcm*p2p3*p5p7+fmc*hbcm*p2p5
5063      . *p3p7-hbcm2*p1p2*p5p7+hbcm2*p2p4*p5p7-hbcm2*p2p5*p4p7+p1p3*
5064      . p2p3*p5p7-p1p3*p2p5*p3p7-p2p3*p3p4*p5p7+p2p5*p3p4*p3p7))+ans3
5065       ans1=w8*(16*p3p7*(-ffmcfmb*p2p3s2+p2p3s2)+(p3p7*p3p5*p2p3)*(16*
5066      . ffmcfmb-16)+8*(p5p7*p2p3)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(
5067      . p3p7*p2p3)*(-ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-
5068      . fmb*fmc+fmb*hbcm-fmb2+fmc*hbcm-hbcm2)+16*(fmb*hbcm*p2p5*p3p7+
5069      . p2p3*p2p5*p3p7-p2p3s2*p5p7))+ans2
5070       ans=ccc*ans1
5071       b(5)=ans
5072       b(7)=ccc*(w8*(8*p2p5*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+4*p2p3*(-
5073      . ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(-p2p3*p2p5-p2p3s2))+w5*(8*
5074      . p2p4*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*p1p2*(fmb*hbcm+fmc*hbcm-
5075      . hbcm2)+4*p3p4*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*p1p4*(-ffmcfmb*
5076      . hbcm2-fmb*hbcm+hbcm2)+4*p1p3*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+4
5077      . *(ffmcfmb*fmb*fmc*hbcm2+ffmcfmb*fmc2*hbcm2-fmb*fmc*hbcm2+fmb*
5078      . fmc2*hbcm+fmb2*fmc*hbcm-2*fmc*hbcm*p2p3-4*fmc*hbcm*p2p5-fmc2*
5079      . hbcm2+2*p1p3*p2p3+2*p1p3*p2p5-2*p2p3*p3p4-2*p2p5*p3p4))+2*(4*
5080      . fb1*fmb*hbcm+4*fb2*ffmcfmb*hbcm2-4*fb2*hbcm2+8*fb2*p2p3+8*fb2*
5081      . p2p5-hbcm2))
5082       ans=ccc*(w8*(4*p2p3*(-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+fmb*
5083      . fmc*hbcm+fmb*hbcm2-fmb2*hbcm-fmc*hbcm2)+8*(-fmb*p2p3s2+fmc*
5084      . p2p3s2))+w5*(8*(p3p4*p2p3)*(-fmb+fmc)+8*(p2p3*p1p3)*(fmb-fmc)+
5085      . 8*p2p4*(fmb*hbcm2-fmc*hbcm2+hbcm3)+8*p1p2*(-fmb*hbcm2+fmc*
5086      . hbcm2-hbcm3)+8*p3p5*(-ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm+fmc*hbcm2
5087      . )+8*p2p3*(ffmcfmb*fmc*hbcm2-fmc*hbcm2+fmc2*hbcm)+4*p3p4*(
5088      . ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm-fmb*hbcm2+
5089      . fmb2*hbcm+fmc*hbcm2)+4*p1p3*(-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*
5090      . hbcm2+fmb*fmc*hbcm+fmb*hbcm2-fmb2*hbcm-fmc*hbcm2)+4*(-ffmcfmb*
5091      . fmc*hbcm4-fmb*fmc*hbcm3-2*fmc*hbcm2*p2p5+fmc*hbcm4+4*hbcm*p1p2
5092      . *p2p3-4*hbcm*p1p2*p3p5+4*hbcm*p1p3*p2p5-4*hbcm*p1p4*p2p3-4*
5093      . hbcm*p2p3*p2p4+4*hbcm*p2p4*p3p5-4*hbcm*p2p5*p3p4))+(16*p2p3*(
5094      . fb2*fmb-fb2*fmc)+2*(-4*fb1*fmb*fmc*hbcm+4*fb1*fmb2*hbcm+4*fb2*
5095      . ffmcfmb*fmb*hbcm2-4*fb2*ffmcfmb*fmc*hbcm2-4*fb2*fmb*hbcm2+4*
5096      . fb2*fmc*hbcm2-fmb*hbcm2+fmc*hbcm2)))
5097       b(8)=ans
5098       b(11)=ccc*(w8*(8*p3p5*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+4*p2p3*(-
5099      . ffmcfmb*hbcm2-fmb*hbcm+2*hbcm2)+4*(ffmcfmb*hbcm4+fmb*hbcm3-
5100      . hbcm4+2*p2p3*p3p5))+w5*(4*p3p4*(-ffmcfmb*hbcm2+fmb*hbcm+2*fmc*
5101      . hbcm+2*hbcm2)+4*p1p3*(ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm-2*
5102      . hbcm2)+4*(fmb*fmc*hbcm2-2*fmc*hbcm*p2p3+4*fmc*hbcm*p3p5+2*fmc*
5103      . hbcm3+fmc2*hbcm2+2*hbcm2*p1p2-2*hbcm2*p1p4-2*hbcm2*p2p4-2*p1p3
5104      . *p3p5+2*p3p4*p3p5))+2*(-4*fb1*fmb*hbcm-4*fb2*ffmcfmb*hbcm2-8*
5105      . fb2*p3p5+hbcm2))
5106       b(12)=ccc*(w8*(8*p3p7*(-fmb*fmc*hbcm+fmb2*hbcm)+8*(p3p7*p2p3)*(
5107      . -ffmcfmb*hbcm-fmc+hbcm))+w5*(8*p4p7*(ffmcfmb*hbcm3+fmc*hbcm2-2
5108      . *hbcm3)+8*(p3p7*p3p4)*(-ffmcfmb*hbcm-fmc+hbcm)+8*(p3p7*p1p3)*(
5109      . ffmcfmb*hbcm+fmc-hbcm)+8*(fmc*hbcm2*p5p7-fmc2*hbcm*p3p7-2*hbcm
5110      . *p1p3*p5p7+2*hbcm*p1p4*p3p7+2*hbcm*p2p3*p4p7+2*hbcm*p3p4*p5p7-
5111      . 2*hbcm*p3p5*p4p7))+4*p3p7*(-4*fb1*ffmcfmb*hbcm+4*fb1*hbcm+4*
5112      . fb2*fmc+3*hbcm))
5113       b(13)=ccc*(w5*(4*p3p4*(fmb-fmc-2*hbcm)+4*p1p3*(-fmb+fmc+2*hbcm)
5114      . +4*(-ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm-2*fmc2*hbcm-2*hbcm*p1p2+4*
5115      . hbcm*p1p4+2*hbcm*p2p4))+w8*(4*p2p3*(fmb-fmc)+4*(ffmcfmb*fmb*
5116      . hbcm2-ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm-fmb*hbcm2+fmb2*hbcm+fmc*
5117      . hbcm2))+8*(-fb2*fmb+fb2*fmc))
5118       b(14)=ccc*(w8*(8*p5p7*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(ffmcfmb
5119      . *p2p3*p3p7+fmb*hbcm*p3p7+p2p3*p5p7))+w5*(8*p4p7*(-ffmcfmb*
5120      . hbcm2+fmc*hbcm)+8*(-ffmcfmb*p1p3*p3p7+ffmcfmb*p3p4*p3p7+fmc*
5121      . hbcm*p3p7+2*fmc*hbcm*p5p7-p1p3*p5p7+p3p4*p5p7))+(p3p7*(-16*fb2
5122      . *ffmcfmb-4)-16*fb2*p5p7))
5123       do 200 n=1,16
5124          c(n,2)=c(n,2)+0.09245003270420485d0*b(n)
5125          c(n,3)=c(n,3)-0.02077659977796572d0*b(n)
5126 200   continue
5127       return
5128       end
5129
5130       subroutine amp4_3p0(cc)
5131       implicit double precision(a-h,o-z)
5132       implicit integer (i-n)
5133       dimension b(16)
5134 #include "inclcon.h"
5135 #include "inclppp.h"
5136 #include "inclamp.h"
5137       do 100 n=1,16
5138          b(n)=0.0d0
5139 100   continue
5140       ccc=cc/((-2*p1p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*
5141      . p3p5+fmb2+hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p2p3-fmc2)
5142      . )
5143       b(1)=ccc*(16*w7*(p3p7*p3p6*p2p3)*(-ffmcfmb*fmb+ffmcfmb*fmc+
5144      . ffmcfmb*hbcm-fmc)+w2*(16*(p5p7*p3p6)*(-ffmcfmb*fmc*hbcm2-
5145      . ffmcfmb*hbcm3+fmc*hbcm2+fmc2*hbcm)+16*(p3p7*p3p6*p3p5)*(-
5146      . ffmcfmb*fmb+ffmcfmb*fmc+ffmcfmb*hbcm-fmc)+16*(-ffmcfmb*fmb*
5147      . hbcm2*p3p6*p3p7+2*hbcm*p2p3*p3p6*p5p7-2*hbcm*p2p5*p3p6*p3p7))+
5148      . 8*(p3p7*p3p6)*(4*fb1*ffmcfmb*hbcm-4*fb2*ffmcfmb*fmb+4*fb2*
5149      . ffmcfmb*fmc-4*fb2*fmc-fmb+fmc+3*hbcm))
5150       b(2)=ccc*(8*w7*(p3p7*p2p3)*(ffmcfmb*fmb-ffmcfmb*fmc-ffmcfmb*
5151      . hbcm+fmc)+w2*(8*p5p7*(ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3-fmc*
5152      . hbcm2-fmc2*hbcm)+8*(p3p7*p3p5)*(ffmcfmb*fmb-ffmcfmb*fmc-
5153      . ffmcfmb*hbcm+fmc)+8*(ffmcfmb*fmb*hbcm2*p3p7-2*hbcm*p2p3*p5p7+2
5154      . *hbcm*p2p5*p3p7))+4*p3p7*(-4*fb1*ffmcfmb*hbcm+4*fb2*ffmcfmb*
5155      . fmb-4*fb2*ffmcfmb*fmc+4*fb2*fmc+fmb-fmc-3*hbcm))
5156       ans=ccc*(w7*(8*(p5p7*p2p3)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(p3p7*
5157      . p2p3)*(-ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2+fmb*
5158      . fmc+fmc2)+16*(ffmcfmb*hbcm2*p2p5*p3p7-ffmcfmb*p2p3*p3p5*p3p7+
5159      . ffmcfmb*p2p3s2*p3p7))+w2*(8*(p5p7*p3p5)*(ffmcfmb*hbcm2-fmc*
5160      . hbcm)+8*p5p7*(ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*hbcm3+ffmcfmb*
5161      . hbcm4-fmb*fmc*hbcm2-fmc*hbcm3-fmc2*hbcm2)+8*(p3p7*p3p5)*(-
5162      . ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2+fmb*fmc+fmc2)+
5163      . 8*p3p7*(ffmcfmb*fmb*fmc*hbcm2+ffmcfmb*fmb2*hbcm2-2*ffmcfmb*
5164      . p3p5s2)+16*(-ffmcfmb*hbcm2*p2p3*p5p7+ffmcfmb*p2p3*p3p5*p3p7+
5165      . fmc*hbcm*p2p5*p3p7))+((p3p7*p3p5)*(-32*fb2*ffmcfmb-8)+(p3p7*
5166      . p2p3)*(32*fb2*ffmcfmb+8)+4*p5p7*(4*fb1*fmc*hbcm+4*fb2*ffmcfmb*
5167      . hbcm2-hbcm2)+4*p3p7*(-4*fb1*ffmcfmb*fmb*hbcm-4*fb1*ffmcfmb*fmc
5168      . *hbcm-4*fb2*ffmcfmb*hbcm2+4*fb2*fmb*fmc+4*fb2*fmc2-3*fmb*hbcm-
5169      . 3*fmc*hbcm-hbcm2)))
5170       b(5)=ans
5171       b(7)=ccc*(w7*(8*p2p5*(-ffmcfmb*hbcm2+fmc*hbcm)+4*p2p3*(-ffmcfmb
5172      . *hbcm2+fmc*hbcm)+8*p2p3*p2p5)+w2*(8*p2p5*(fmb*hbcm-fmc*hbcm+
5173      . hbcm2)+4*p3p5*(-ffmcfmb*hbcm2+fmc*hbcm)+4*(-ffmcfmb*fmb*fmc*
5174      . hbcm2-ffmcfmb*fmb2*hbcm2+fmb*fmc2*hbcm+2*fmb*hbcm*p2p3+fmb2*
5175      . fmc*hbcm+2*p2p5*p3p5))+2*(4*fb1*fmc*hbcm+4*fb2*ffmcfmb*hbcm2+8
5176      . *fb2*p2p5-hbcm2))
5177       b(8)=ccc*(4*w7*p2p3*(-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+fmb*
5178      . fmc*hbcm-fmc2*hbcm)+w2*(8*p2p5*(-fmc*hbcm2+hbcm3)+4*p3p5*(
5179      . ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm-fmc2*hbcm)+8*
5180      . p2p3*(-ffmcfmb*fmb*hbcm2+fmb2*hbcm)+4*(ffmcfmb*fmb*hbcm4-fmb*
5181      . fmc*hbcm3-4*hbcm*p2p3*p2p5))+2*(4*fb1*fmb*fmc*hbcm-4*fb1*fmc2*
5182      . hbcm+4*fb2*ffmcfmb*fmb*hbcm2-4*fb2*ffmcfmb*fmc*hbcm2-fmb*hbcm2
5183      . +fmc*hbcm2))
5184       b(11)=ccc*(w2*(4*p3p5*(ffmcfmb*hbcm2-2*fmb*hbcm+fmc*hbcm-hbcm2)
5185      . +4*(fmb*fmc*hbcm2+2*fmb*hbcm*p2p3-2*fmb*hbcm3+fmb2*hbcm2-2*
5186      . hbcm2*p2p5+2*p2p3*p3p5-2*p3p5s2))+w7*(8*p3p5*(ffmcfmb*hbcm2-
5187      . fmc*hbcm)+4*p2p3*(-ffmcfmb*hbcm2+fmc*hbcm-hbcm2)+4*(ffmcfmb*
5188      . hbcm4-fmc*hbcm3-2*p2p3*p3p5+2*p2p3s2))+2*(-4*fb1*fmc*hbcm-4*
5189      . fb2*ffmcfmb*hbcm2-4*fb2*hbcm2+8*fb2*p2p3-8*fb2*p3p5+hbcm2))
5190       b(12)=ccc*(w7*(8*(p3p7*p2p3)*(-ffmcfmb*hbcm+fmc)+8*p3p7*(
5191      . ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2))+w2*(8*p5p7*(ffmcfmb*
5192      . hbcm3-hbcm3)+8*(p3p7*p3p5)*(-ffmcfmb*hbcm+fmc)+8*p3p7*(ffmcfmb
5193      . *fmb*hbcm2+fmb*fmc*hbcm-fmb2*hbcm)+16*hbcm*p2p5*p3p7)+4*p3p7*(
5194      . -4*fb1*ffmcfmb*hbcm+4*fb2*fmc-3*hbcm))
5195       b(13)=ccc*(w7*(4*p2p3*(-fmb+fmc)+4*(ffmcfmb*fmb*hbcm2-ffmcfmb*
5196      . fmc*hbcm2-fmb*fmc*hbcm+fmc2*hbcm))+w2*(4*p3p5*(-fmb+fmc-2*hbcm
5197      . )+4*(ffmcfmb*fmb*hbcm2+fmb*fmc*hbcm-fmb*hbcm2-2*fmb2*hbcm+2*
5198      . hbcm*p2p5))+8*(-fb2*fmb+fb2*fmc))
5199       b(14)=ccc*(w2*(8*p5p7*(ffmcfmb*hbcm2-fmb*hbcm-hbcm2)+8*(-
5200      . ffmcfmb*p3p5*p3p7-fmb*hbcm*p3p7-p3p5*p5p7))+w7*(8*p5p7*(
5201      . ffmcfmb*hbcm2-fmc*hbcm)+8*(ffmcfmb*hbcm2*p3p7-ffmcfmb*p2p3*
5202      . p3p7-p2p3*p5p7))+(p3p7*(-16*fb2*ffmcfmb-4)-16*fb2*p5p7))
5203       do 200 n=1,16
5204          c(n,2)=c(n,2)+0.09245003270420485d0*b(n)
5205          c(n,3)=c(n,3)-0.02077659977796572d0*b(n)
5206 200   continue
5207       return
5208       end
5209
5210       subroutine amp36_3p0(cc)
5211       implicit double precision(a-h,o-z)
5212       implicit integer (i-n)
5213       dimension b(16)
5214 #include "inclcon.h"
5215 #include "inclppp.h"
5216 #include "inclamp.h"
5217       do 100 n=1,16
5218          b(n)=0.0d0
5219 100   continue
5220       ccc=cc/((ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*p3p5+fmb2+
5221      . hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3+2*ffmcfmb*p3p4+
5222      . fmc2-2*p1p4)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2))
5223       ans4=8*(p4p7*p3p6)*(-ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2-ffmcfmb
5224      . *hbcm3-fmb*fmc*hbcm+2*fmc*hbcm2+fmc2*hbcm)+2*(p6p7*p3p4)*(
5225      . ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2+3*ffmcfmb
5226      . *hbcm3-3*fmb*fmc*hbcm+fmc*hbcm2+4*fmc2*hbcm)+4*(p3p7*p3p6*p3p4
5227      . )*(3*ffmcfmb**2*hbcm-ffmcfmb*fmb+4*ffmcfmb*fmc+6*ffmcfmb*hbcm+
5228      . fmb-2*fmc-3*hbcm)+2*p6p7*(-ffmcfmb**2*fmc*hbcm4-3*ffmcfmb*fmb*
5229      . fmc*hbcm3+ffmcfmb*fmc*hbcm4+3*ffmcfmb*fmc2*hbcm3+2*ffmcfmb*
5230      . hbcm*p3p4s2+3*fmb*fmc2*hbcm2-4*fmb*p3p4s2+2*fmc*p3p4s2+3*fmc2*
5231      . hbcm3-2*fmc3*hbcm2)+4*(p3p7*p3p6)*(-ffmcfmb**2*fmc*hbcm2-
5232      . ffmcfmb*fmb*fmc*hbcm+8*ffmcfmb*fmc*hbcm2+4*ffmcfmb*fmc2*hbcm+
5233      . fmb*fmc*hbcm-3*fmc*hbcm2-2*fmc2*hbcm)+8*(2*ffmcfmb*hbcm*p1p3*
5234      . p3p6*p4p7+2*ffmcfmb*hbcm*p2p3*p3p6*p4p7-2*ffmcfmb*hbcm*p3p5*
5235      . p3p6*p4p7+fmc*hbcm2*p2p5*p6p7-fmc*hbcm2*p5p6*p5p7+2*hbcm*p1p3*
5236      . p1p4*p6p7+hbcm*p1p3*p4p6*p5p7+2*hbcm*p1p4*p2p3*p6p7-hbcm*p1p4*
5237      . p3p4*p6p7-2*hbcm*p1p4*p3p5*p6p7+hbcm*p2p3*p4p6*p5p7+hbcm*p2p5*
5238      . p3p4*p6p7+hbcm*p3p4*p4p6*p4p7-hbcm*p3p4*p4p6*p5p7-hbcm*p3p4*
5239      . p5p6*p5p7-hbcm*p3p5*p4p6*p5p7)
5240       ans3=4*(p5p7*p4p6)*(ffmcfmb*hbcm3-fmb*hbcm2-hbcm3)+8*(p4p7*p4p6
5241      . )*(-ffmcfmb*hbcm3+fmc*hbcm2)+8*(p6p7*p1p4)*(-ffmcfmb*hbcm3-fmb
5242      . *hbcm2+fmc*hbcm2-hbcm3)+8*(p4p6*p3p7*p3p5)*(3*ffmcfmb*hbcm-
5243      . hbcm)+8*(p4p6*p3p7*p3p4)*(4*ffmcfmb*hbcm+fmb-hbcm)+4*(p5p7*
5244      . p3p6*p3p4)*(ffmcfmb*hbcm+fmb-2*fmc-5*hbcm)+8*(p4p7*p3p6*p3p4)*
5245      . (-ffmcfmb*hbcm-fmb+fmc+2*hbcm)+4*(p6p7*p3p5*p3p4)*(3*ffmcfmb*
5246      . hbcm+fmc)+8*(p4p6*p3p7*p2p3)*(-3*ffmcfmb*hbcm+hbcm)+4*(p6p7*
5247      . p3p4*p2p3)*(-3*ffmcfmb*hbcm-fmc)+8*(p4p6*p3p7*p1p3)*(-3*
5248      . ffmcfmb*hbcm+hbcm)+4*(p6p7*p3p4*p1p3)*(-ffmcfmb*hbcm+2*fmb-fmc
5249      . )+4*(p5p7*p3p6)*(3*ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm-5*fmc*hbcm2-
5250      . 2*fmc2*hbcm)+4*(p6p7*p3p5)*(ffmcfmb*fmc*hbcm2+3*fmc2*hbcm)+4*(
5251      . p6p7*p2p3)*(-ffmcfmb*fmc*hbcm2-3*fmc2*hbcm)+4*(p6p7*p1p3)*(
5252      . ffmcfmb*fmc*hbcm2+2*fmb*fmc*hbcm-3*fmc2*hbcm)+4*(p4p6*p3p7)*(-
5253      . ffmcfmb**2*hbcm3+3*ffmcfmb*fmb*hbcm2+2*ffmcfmb*fmc*hbcm2+4*
5254      . ffmcfmb*hbcm3+2*fmb*fmc*hbcm-fmb*hbcm2-hbcm3)+ans4
5255       ans2=w1*ans3
5256       ans8=2*p6p7*(-ffmcfmb**2*fmb*hbcm4+ffmcfmb**2*hbcm5-ffmcfmb*fmb
5257      . *fmc*hbcm3+ffmcfmb*fmc*hbcm4+ffmcfmb*fmc2*hbcm3+2*ffmcfmb*hbcm
5258      . *p1p3s2+2*ffmcfmb*hbcm*p3p4s2+2*fmb*fmc2*hbcm2-4*fmb*p1p3s2-4*
5259      . fmb*p3p4s2+2*fmc*p1p3s2+2*fmc*p3p4s2+2*fmc2*hbcm3-fmc3*hbcm2)+
5260      . 4*(p3p7*p3p6)*(-ffmcfmb**2*fmb*hbcm2+3*ffmcfmb**2*hbcm3-4*
5261      . ffmcfmb*fmb*fmc*hbcm+ffmcfmb*fmb*hbcm2+6*ffmcfmb*fmc*hbcm2+7*
5262      . ffmcfmb*fmc2*hbcm-2*ffmcfmb*hbcm3+2*fmb*fmc*hbcm-3*fmc*hbcm2-3
5263      . *fmc2*hbcm)+8*(3*ffmcfmb*hbcm*p2p3*p3p6*p5p7-ffmcfmb*hbcm*p2p5
5264      . *p3p6*p3p7-ffmcfmb*hbcm*p3p5*p3p6*p5p7-hbcm*p1p2*p3p6*p5p7+
5265      . hbcm*p1p3*p1p4*p6p7-hbcm*p1p3*p2p5*p6p7-hbcm*p1p3*p4p6*p4p7+4*
5266      . hbcm*p1p3*p4p6*p5p7+hbcm*p1p3*p5p6*p5p7+2*hbcm*p1p4*p2p3*p6p7-
5267      . hbcm*p1p4*p3p4*p6p7-2*hbcm*p1p4*p3p5*p6p7+hbcm*p1p4*p3p6*p5p7-
5268      . 2*hbcm*p1p4*p3p7*p4p6-hbcm*p1p5*p3p6*p5p7-2*hbcm*p2p3*p4p6*
5269      . p4p7+6*hbcm*p2p3*p4p6*p5p7-hbcm*p2p4*p3p6*p5p7+hbcm*p2p5*p3p4*
5270      . p6p7+hbcm*p2p5*p3p6*p4p7-2*hbcm*p2p5*p3p7*p4p6+hbcm*p3p4*p4p6*
5271      . p4p7-4*hbcm*p3p4*p4p6*p5p7-hbcm*p3p4*p5p6*p5p7+2*hbcm*p3p5*
5272      . p4p6*p4p7-2*hbcm*p3p5*p4p6*p5p7-hbcm*p3p6*p4p5*p5p7)
5273       ans7=4*(p4p6*p3p7)*(2*ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*hbcm2+2*
5274      . ffmcfmb*fmc*hbcm2+3*ffmcfmb*hbcm3-fmc*hbcm2+2*fmc2*hbcm-2*
5275      . hbcm3)+4*(p5p7*p3p6)*(-ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2+
5276      . ffmcfmb*fmc*hbcm2-5*ffmcfmb*hbcm3+2*fmb*fmc*hbcm-4*fmc*hbcm2-3
5277      . *fmc2*hbcm)+4*(p4p7*p3p6)*(-2*ffmcfmb**2*hbcm3-2*ffmcfmb*fmb*
5278      . hbcm2+ffmcfmb*hbcm3-2*fmb*fmc*hbcm+3*fmc*hbcm2+2*fmc2*hbcm)+4*
5279      . (p6p7*p3p5)*(ffmcfmb**2*hbcm3+ffmcfmb*fmc*hbcm2+2*fmc2*hbcm)+2
5280      . *(p6p7*p3p4)*(ffmcfmb**2*hbcm3-3*ffmcfmb*fmb*hbcm2+ffmcfmb*fmc
5281      . *hbcm2+3*ffmcfmb*hbcm3-fmb*fmc*hbcm+fmc*hbcm2+2*fmc2*hbcm)+4*(
5282      . p6p7*p2p3)*(-ffmcfmb**2*hbcm3-ffmcfmb*fmc*hbcm2-2*fmc2*hbcm)+2
5283      . *(p6p7*p1p3)*(-ffmcfmb**2*hbcm3+3*ffmcfmb*fmb*hbcm2-ffmcfmb*
5284      . fmc*hbcm2-3*ffmcfmb*hbcm3+fmb*fmc*hbcm-fmc*hbcm2-2*fmc2*hbcm)+
5285      . 4*(p3p7*p3p6*p3p4)*(3*ffmcfmb**2*hbcm-ffmcfmb*fmb+4*ffmcfmb*
5286      . fmc+8*ffmcfmb*hbcm+fmb-2*fmc-5*hbcm)+4*(p3p7*p3p6*p1p3)*(-3*
5287      . ffmcfmb**2*hbcm+ffmcfmb*fmb-4*ffmcfmb*fmc-fmb+2*fmc+hbcm)+ans8
5288       ans6=4*(p5p7*p5p6)*(-ffmcfmb*hbcm3-fmc*hbcm2)+4*(p5p7*p4p6)*(-5
5289      . *ffmcfmb*hbcm3-fmc*hbcm2-2*hbcm3)+4*(p4p7*p4p6)*(-ffmcfmb*
5290      . hbcm3+fmc*hbcm2+2*hbcm3)+4*(p6p7*p2p5)*(ffmcfmb*hbcm3+fmc*
5291      . hbcm2)+4*(p6p7*p1p4)*(-ffmcfmb*hbcm3-2*fmb*hbcm2+fmc*hbcm2-2*
5292      . hbcm3)+16*(p4p6*p3p7*p3p5)*(2*ffmcfmb*hbcm-hbcm)+8*(p4p6*p3p7*
5293      . p3p4)*(5*ffmcfmb*hbcm+fmb-2*hbcm)+4*(p5p7*p3p6*p3p4)*(-ffmcfmb
5294      . *hbcm+fmb-2*fmc-9*hbcm)+8*(p4p7*p3p6*p3p4)*(-ffmcfmb*hbcm-fmb+
5295      . fmc+2*hbcm)+4*(p6p7*p3p5*p3p4)*(3*ffmcfmb*hbcm+fmc)+16*(p4p6*
5296      . p3p7*p2p3)*(-2*ffmcfmb*hbcm+hbcm)+4*(p6p7*p3p4*p2p3)*(-3*
5297      . ffmcfmb*hbcm-fmc)+8*(p3p7*p3p6*p1p4)*(-3*ffmcfmb*hbcm+hbcm)+8*
5298      . (p4p6*p3p7*p1p3)*(-5*ffmcfmb*hbcm-fmb+2*hbcm)+4*(p5p7*p3p6*
5299      . p1p3)*(5*ffmcfmb*hbcm-fmb+2*fmc+hbcm)+8*(p4p7*p3p6*p1p3)*(
5300      . ffmcfmb*hbcm+fmb-fmc)+4*(p6p7*p3p5*p1p3)*(-3*ffmcfmb*hbcm-fmc)
5301      . +8*(p6p7*p3p4*p1p3)*(-ffmcfmb*hbcm+2*fmb-fmc)+4*(p6p7*p2p3*
5302      . p1p3)*(3*ffmcfmb*hbcm+fmc)+ans7
5303       ans5=w5*ans6
5304       ans12=8*(-ffmcfmb*hbcm*p2p5*p3p6*p3p7+fmb*hbcm2*p1p4*p6p7+2*fmb
5305      . *hbcm2*p4p6*p4p7-fmb*hbcm2*p5p6*p5p7-hbcm*p1p2*p3p6*p5p7+hbcm*
5306      . p1p4*p3p5*p6p7-2*hbcm*p1p5*p2p3*p6p7+2*hbcm*p1p5*p3p5*p6p7-2*
5307      . hbcm*p1p5*p3p6*p4p7+2*hbcm*p1p5*p3p7*p4p6+2*hbcm*p2p3*p2p5*
5308      . p6p7+2*hbcm*p2p3*p4p5*p6p7+2*hbcm*p2p3*p4p6*p5p7-2*hbcm*p2p3*
5309      . p4p7*p5p6-hbcm*p2p4*p3p6*p5p7-hbcm*p2p5*p3p5*p6p7+hbcm*p2p5*
5310      . p3p6*p4p7-2*hbcm*p2p5*p3p7*p4p6-2*hbcm*p3p5*p4p5*p6p7+3*hbcm*
5311      . p3p5*p4p6*p4p7+2*hbcm*p3p5*p4p7*p5p6-hbcm*p3p5*p5p6*p5p7-2*
5312      . hbcm*p3p7*p4p5*p4p6)
5313       ans11=4*(p6p7*p3p4)*(-ffmcfmb*fmb*hbcm2-fmb*fmc*hbcm+2*fmb2*
5314      . hbcm)+4*(p6p7*p2p3)*(-ffmcfmb*fmb*hbcm2+fmb*fmc*hbcm)+4*(p6p7*
5315      . p1p3)*(ffmcfmb*fmb*hbcm2+fmb*fmc*hbcm-2*fmb2*hbcm)+4*(p5p6*
5316      . p3p7)*(-2*ffmcfmb**2*hbcm3+4*ffmcfmb*fmb*hbcm2-2*ffmcfmb*fmc*
5317      . hbcm2+5*ffmcfmb*hbcm3-2*fmb*hbcm2+fmc*hbcm2-2*hbcm3)+4*(p5p7*
5318      . p3p6)*(ffmcfmb**2*hbcm3+3*ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2-
5319      . 3*ffmcfmb*hbcm3+2*fmb*fmc*hbcm-3*fmb*hbcm2-fmb2*hbcm-fmc*hbcm2
5320      . +2*hbcm3)+2*(p6p7*p3p5)*(ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2+
5321      . ffmcfmb*fmc*hbcm2-3*ffmcfmb*hbcm3-fmb*fmc*hbcm-fmc*hbcm2-2*
5322      . fmc2*hbcm)+4*(p3p7*p3p6*p3p5)*(-3*ffmcfmb**2*hbcm+ffmcfmb*fmb-
5323      . 4*ffmcfmb*fmc+8*ffmcfmb*hbcm-fmb+2*fmc-3*hbcm)+2*p6p7*(-
5324      . ffmcfmb**2*fmb*hbcm4-ffmcfmb*fmb*fmc*hbcm3+ffmcfmb*fmb*hbcm4+3
5325      . *ffmcfmb*fmb2*hbcm3-6*ffmcfmb*hbcm*p3p5s2-fmb*fmc*hbcm3-2*fmb*
5326      . fmc2*hbcm2+fmb2*fmc*hbcm2-2*fmc*p3p5s2)+4*(p3p7*p3p6)*(-
5327      . ffmcfmb**2*fmb*hbcm2-4*ffmcfmb*fmb*fmc*hbcm+8*ffmcfmb*fmb*
5328      . hbcm2+ffmcfmb*fmb2*hbcm+2*fmb*fmc*hbcm-3*fmb*hbcm2-fmb2*hbcm)+
5329      . ans12
5330       ans10=8*(p4p7*p3p6)*(-fmb*fmc*hbcm+2*fmb*hbcm2+fmb2*hbcm)+4*(
5331      . p5p6*p4p7)*(-ffmcfmb*hbcm3+2*fmb*hbcm2-fmc*hbcm2+2*hbcm3)+8*(
5332      . p5p7*p4p6)*(-ffmcfmb*hbcm3+hbcm3)+4*(p6p7*p4p5)*(ffmcfmb*hbcm3
5333      . -2*fmb*hbcm2+fmc*hbcm2-2*hbcm3)+4*(p6p7*p2p5)*(ffmcfmb*hbcm3+
5334      . fmc*hbcm2-2*hbcm3)+4*(p6p7*p1p5)*(-ffmcfmb*hbcm3+2*fmb*hbcm2-
5335      . fmc*hbcm2+2*hbcm3)+8*(p4p5*p3p7*p3p6)*(-3*ffmcfmb*hbcm+hbcm)+
5336      . 16*(p5p6*p3p7*p3p5)*(2*ffmcfmb*hbcm-hbcm)+8*(p4p6*p3p7*p3p5)*(
5337      . 3*ffmcfmb*hbcm-fmb-2*hbcm)+4*(p5p7*p3p6*p3p5)*(ffmcfmb*hbcm-
5338      . fmb+2*fmc-hbcm)+8*(p4p7*p3p6*p3p5)*(ffmcfmb*hbcm+fmb-fmc+2*
5339      . hbcm)+8*(p5p7*p3p6*p3p4)*(ffmcfmb*hbcm-hbcm)+4*(p6p7*p3p5*p3p4
5340      . )*(-ffmcfmb*hbcm+2*fmb-fmc)+16*(p5p6*p3p7*p2p3)*(-2*ffmcfmb*
5341      . hbcm+hbcm)+8*(p5p7*p3p6*p2p3)*(3*ffmcfmb*hbcm-2*hbcm)+4*(p6p7*
5342      . p3p5*p2p3)*(3*ffmcfmb*hbcm+fmc)+8*(p3p7*p3p6*p1p5)*(-ffmcfmb*
5343      . hbcm+hbcm)+8*(p5p7*p3p6*p1p3)*(ffmcfmb*hbcm-hbcm)+4*(p6p7*p3p5
5344      . *p1p3)*(ffmcfmb*hbcm-2*fmb+fmc)+8*(p4p6*p3p7)*(3*ffmcfmb*fmb*
5345      . hbcm2-fmb*hbcm2-fmb2*hbcm)+ans11
5346       ans9=w2*ans10
5347       ans13=(4*(p4p6*p3p7)*(-4*fb1*ffmcfmb*hbcm-4*fb2*fmb+hbcm)+2*(
5348      . p5p7*p3p6)*(-20*fb1*ffmcfmb*hbcm+20*fb1*hbcm-4*fb2*fmb+8*fb2*
5349      . fmc+11*hbcm)+16*(p4p7*p3p6)*(fb1*ffmcfmb*hbcm-2*fb1*hbcm+fb2*
5350      . fmb-fb2*fmc)+2*(p6p7*p3p5)*(-4*fb1*ffmcfmb*hbcm-4*fb2*fmc+3*
5351      . hbcm)+2*(p6p7*p3p4)*(4*fb1*ffmcfmb*hbcm+8*fb2*fmb-4*fb2*fmc+
5352      . hbcm)+2*(p6p7*p2p3)*(4*fb1*ffmcfmb*hbcm+4*fb2*fmc-3*hbcm)+2*(
5353      . p6p7*p1p3)*(-4*fb1*ffmcfmb*hbcm-8*fb2*fmb+4*fb2*fmc-hbcm)+p6p7
5354      . *(4*fb1*ffmcfmb**2*hbcm3-4*fb1*ffmcfmb*hbcm3-4*fb1*fmb*fmc*
5355      . hbcm+8*fb1*fmc2*hbcm+12*fb2*ffmcfmb*fmb*hbcm2-4*fb2*ffmcfmb*
5356      . fmc*hbcm2-4*fb2*fmc*hbcm2+3*fmb*hbcm2-fmc*hbcm2+3*hbcm3)+2*(
5357      . p3p7*p3p6)*(20*fb1*ffmcfmb**2*hbcm-40*fb1*ffmcfmb*hbcm+12*fb1*
5358      . hbcm+4*fb2*ffmcfmb*fmb-16*fb2*ffmcfmb*fmc-4*fb2*fmb+8*fb2*fmc-
5359      . 12*ffmcfmb*hbcm+fmb-4*fmc+14*hbcm)+16*(-fb1*hbcm*p1p4*p6p7-fb1
5360      . *hbcm*p2p5*p6p7-fb1*hbcm*p4p6*p4p7+fb1*hbcm*p5p6*p5p7))
5361       ans1=ans2+ans5+ans9+ans13
5362       ans=ccc*ans1
5363       b(1)=ans
5364       ans4=(12*p5p7*(-fb1*hbcm+fb2*fmb-fb2*fmc-2*hbcm)+p4p7*(-4*fb1*
5365      . ffmcfmb*hbcm+16*fb1*hbcm-16*fb2*fmb+12*fb2*fmc+hbcm)+p3p7*(-4*
5366      . fb1*ffmcfmb**2*hbcm+28*fb1*ffmcfmb*hbcm-12*fb1*hbcm-28*fb2*
5367      . ffmcfmb*fmb+24*fb2*ffmcfmb*fmc+12*fb2*fmb-12*fb2*fmc+12*
5368      . ffmcfmb*hbcm-7*fmb+6*fmc-17*hbcm))
5369       ans3=w2*(6*(p5p7*p3p5)*(fmb-fmc+hbcm)+4*(p4p5*p3p7)*(ffmcfmb*
5370      . hbcm-hbcm)+2*(p4p7*p3p5)*(ffmcfmb*hbcm-4*fmb+3*fmc-4*hbcm)+4*(
5371      . p5p7*p3p4)*(-ffmcfmb*hbcm+hbcm)+4*(p3p7*p1p5)*(3*ffmcfmb*hbcm-
5372      . hbcm)+4*(p5p7*p1p3)*(-ffmcfmb*hbcm+hbcm)+2*p4p7*(ffmcfmb*fmb*
5373      . hbcm2+3*fmb*fmc*hbcm-4*fmb*hbcm2-4*fmb2*hbcm)+2*p5p7*(-2*
5374      . ffmcfmb**2*hbcm3+2*ffmcfmb*hbcm3-3*fmb*fmc*hbcm+3*fmb*hbcm2+3*
5375      . fmb2*hbcm)+2*(p3p7*p3p5)*(3*ffmcfmb**2*hbcm-7*ffmcfmb*fmb+6*
5376      . ffmcfmb*fmc-9*ffmcfmb*hbcm+3*fmb-3*fmc+3*hbcm)+2*p3p7*(ffmcfmb
5377      . **2*fmb*hbcm2+6*ffmcfmb*fmb*fmc*hbcm-7*ffmcfmb*fmb*hbcm2-7*
5378      . ffmcfmb*fmb2*hbcm-3*fmb*fmc*hbcm+3*fmb*hbcm2+3*fmb2*hbcm)+4*(
5379      . ffmcfmb*hbcm*p2p3*p5p7-ffmcfmb*hbcm*p2p5*p3p7+hbcm*p1p2*p5p7+2
5380      . *hbcm*p1p5*p4p7+hbcm*p2p4*p5p7-hbcm*p2p5*p4p7))+ans4
5381       ans2=w5*(2*(p5p7*p3p4)*(-3*fmb+3*fmc+7*hbcm)+2*(p4p7*p3p4)*(-
5382      . ffmcfmb*hbcm+4*fmb-3*fmc-4*hbcm)+4*(p3p7*p1p4)*(5*ffmcfmb*hbcm
5383      . -3*hbcm)+2*(p5p7*p1p3)*(-4*ffmcfmb*hbcm+3*fmb-3*fmc+hbcm)+2*(
5384      . p4p7*p1p3)*(ffmcfmb*hbcm-4*fmb+3*fmc)+2*p4p7*(ffmcfmb*fmb*
5385      . hbcm2-ffmcfmb*hbcm3+3*fmb*fmc*hbcm-3*fmc*hbcm2-4*fmc2*hbcm)+2*
5386      . p5p7*(-2*ffmcfmb**2*hbcm3+4*ffmcfmb*hbcm3-3*fmb*fmc*hbcm+3*fmc
5387      . *hbcm2+5*fmc2*hbcm)+2*(p3p7*p3p4)*(-3*ffmcfmb**2*hbcm+7*
5388      . ffmcfmb*fmb-6*ffmcfmb*fmc-7*ffmcfmb*hbcm-3*fmb+3*fmc+5*hbcm)+2
5389      . *(p3p7*p1p3)*(3*ffmcfmb**2*hbcm-7*ffmcfmb*fmb+6*ffmcfmb*fmc-
5390      . ffmcfmb*hbcm+3*fmb-3*fmc-hbcm)+2*p3p7*(ffmcfmb**2*fmb*hbcm2-3*
5391      . ffmcfmb**2*hbcm3+6*ffmcfmb*fmb*fmc*hbcm-6*ffmcfmb*fmc*hbcm2-9*
5392      . ffmcfmb*fmc2*hbcm+2*ffmcfmb*hbcm3-3*fmb*fmc*hbcm+3*fmc*hbcm2+5
5393      . *fmc2*hbcm)+4*(ffmcfmb*hbcm*p2p3*p5p7-ffmcfmb*hbcm*p2p5*p3p7+
5394      . ffmcfmb*hbcm*p3p5*p5p7+hbcm*p1p2*p5p7+2*hbcm*p1p4*p4p7-3*hbcm*
5395      . p1p4*p5p7+hbcm*p1p5*p5p7+hbcm*p2p4*p5p7-hbcm*p2p5*p4p7+hbcm*
5396      . p4p5*p5p7))+ans3
5397       ans1=w1*(2*p5p7*(-3*fmb*fmc*hbcm+3*fmc*hbcm2+5*fmc2*hbcm)+2*(
5398      . p5p7*p3p4)*(2*ffmcfmb*hbcm-3*fmb+3*fmc+3*hbcm)+2*(p4p7*p3p4)*(
5399      . -ffmcfmb*hbcm+4*fmb-3*fmc-4*hbcm)+8*(p3p7*p1p4)*(2*ffmcfmb*
5400      . hbcm-hbcm)+2*p4p7*(ffmcfmb*fmc*hbcm2+4*fmb*fmc*hbcm-4*fmc*
5401      . hbcm2-5*fmc2*hbcm)+2*(p3p7*p3p4)*(-3*ffmcfmb**2*hbcm+7*ffmcfmb
5402      . *fmb-6*ffmcfmb*fmc-5*ffmcfmb*hbcm-3*fmb+3*fmc+3*hbcm)+2*p3p7*(
5403      . ffmcfmb**2*fmc*hbcm2+7*ffmcfmb*fmb*fmc*hbcm-7*ffmcfmb*fmc*
5404      . hbcm2-10*ffmcfmb*fmc2*hbcm-3*fmb*fmc*hbcm+3*fmc*hbcm2+5*fmc2*
5405      . hbcm)+8*(hbcm*p1p4*p4p7-hbcm*p1p4*p5p7))+ans2
5406       ans=ccc*ans1
5407       b(2)=ans
5408       ans3=w2*(2*(p5p6*p3p5)*(ffmcfmb*hbcm-2*fmb+fmc-2*hbcm)+2*p5p6*(
5409      . ffmcfmb*fmb*hbcm2+fmb*fmc*hbcm-2*fmb*hbcm2-2*fmb2*hbcm)+2*(
5410      . p3p6*p3p5)*(3*ffmcfmb**2*hbcm+2*ffmcfmb*fmb-ffmcfmb*fmc+3*
5411      . ffmcfmb*hbcm-2*fmb+fmc-2*hbcm)+2*p3p6*(-ffmcfmb**2*fmb*hbcm2-
5412      . ffmcfmb*fmb*fmc*hbcm+3*ffmcfmb*fmb*hbcm2+2*ffmcfmb*fmb2*hbcm+
5413      . fmb*fmc*hbcm-2*fmb*hbcm2-2*fmb2*hbcm)+8*(-ffmcfmb*hbcm*p1p5*
5414      . p3p6+ffmcfmb*hbcm*p2p5*p3p6+ffmcfmb*hbcm*p3p5*p4p6+ffmcfmb*
5415      . hbcm*p3p6*p4p5-hbcm*p1p5*p4p6+hbcm*p2p5*p4p6+hbcm*p4p5*p4p6))+
5416      . (p5p6*(-4*fb1*ffmcfmb*hbcm+8*fb1*hbcm-8*fb2*fmb+4*fb2*fmc-hbcm
5417      . )+p3p6*(4*fb1*ffmcfmb**2*hbcm-12*fb1*ffmcfmb*hbcm+8*fb1*hbcm+8
5418      . *fb2*ffmcfmb*fmb-4*fb2*ffmcfmb*fmc-8*fb2*fmb+4*fb2*fmc+12*
5419      . ffmcfmb*hbcm+2*fmb-fmc-11*hbcm)-12*hbcm*p4p6)
5420       ans2=w5*(4*p4p6*(-2*ffmcfmb*hbcm3+fmb2*hbcm-fmc2*hbcm+hbcm3)+2*
5421      . (p5p6*p3p4)*(-ffmcfmb*hbcm+2*fmb-fmc-2*hbcm)+2*(p5p6*p1p3)*(
5422      . ffmcfmb*hbcm-2*fmb+fmc+2*hbcm)+2*p5p6*(ffmcfmb*fmb*hbcm2-
5423      . ffmcfmb*hbcm3+fmb*fmc*hbcm-fmc*hbcm2-2*fmc2*hbcm)+2*(p3p6*p3p4
5424      . )*(-3*ffmcfmb**2*hbcm-2*ffmcfmb*fmb+ffmcfmb*fmc+ffmcfmb*hbcm+2
5425      . *fmb-fmc-2*hbcm)+2*(p3p6*p1p3)*(3*ffmcfmb**2*hbcm+2*ffmcfmb*
5426      . fmb-ffmcfmb*fmc-ffmcfmb*hbcm-2*fmb+fmc+2*hbcm)+2*p3p6*(-
5427      . ffmcfmb**2*fmb*hbcm2-3*ffmcfmb**2*hbcm3-ffmcfmb*fmb*fmc*hbcm+
5428      . ffmcfmb*fmb*hbcm2+2*ffmcfmb*fmb2*hbcm+ffmcfmb*fmc*hbcm2+
5429      . ffmcfmb*hbcm3+fmb*fmc*hbcm-fmc*hbcm2-2*fmc2*hbcm)+8*(-ffmcfmb*
5430      . hbcm*p1p2*p3p6+ffmcfmb*hbcm*p1p3*p4p6-ffmcfmb*hbcm*p1p5*p3p6+
5431      . ffmcfmb*hbcm*p2p3*p3p6+ffmcfmb*hbcm*p2p4*p3p6+2*ffmcfmb*hbcm*
5432      . p2p5*p3p6-ffmcfmb*hbcm*p3p4*p4p6+ffmcfmb*hbcm*p3p5*p3p6+
5433      . ffmcfmb*hbcm*p3p6*p4p5-hbcm*p1p2*p4p6+hbcm*p1p4*p3p6+hbcm*p1p4
5434      . *p4p6+hbcm*p1p4*p5p6-hbcm*p1p5*p4p6+hbcm*p2p3*p4p6+hbcm*p2p4*
5435      . p4p6+2*hbcm*p2p5*p4p6+hbcm*p3p5*p4p6+hbcm*p4p5*p4p6))+ans3
5436       ans1=w1*(2*(p5p6*p3p4)*(-ffmcfmb*hbcm+2*fmb-fmc-2*hbcm)+4*(p4p6
5437      . *p3p4)*(-ffmcfmb*hbcm+hbcm)+8*(p3p6*p1p4)*(-ffmcfmb*hbcm+hbcm)
5438      . +4*(p4p6*p1p3)*(ffmcfmb*hbcm-hbcm)+2*p5p6*(ffmcfmb*fmc*hbcm2+2
5439      . *fmb*fmc*hbcm-2*fmc*hbcm2-3*fmc2*hbcm)+4*p4p6*(ffmcfmb**2*
5440      . hbcm3-ffmcfmb*hbcm3)+2*(p3p6*p3p4)*(-3*ffmcfmb**2*hbcm-2*
5441      . ffmcfmb*fmb+ffmcfmb*fmc+5*ffmcfmb*hbcm+2*fmb-fmc-2*hbcm)+2*
5442      . p3p6*(-ffmcfmb**2*fmc*hbcm2-2*ffmcfmb*fmb*fmc*hbcm+3*ffmcfmb*
5443      . fmc*hbcm2+3*ffmcfmb*fmc2*hbcm+2*fmb*fmc*hbcm-2*fmc*hbcm2-3*
5444      . fmc2*hbcm)+4*(-ffmcfmb*hbcm*p2p3*p4p6+2*ffmcfmb*hbcm*p2p4*p3p6
5445      . -ffmcfmb*hbcm*p3p5*p4p6+2*ffmcfmb*hbcm*p3p6*p4p5-hbcm*p1p2*
5446      . p4p6+2*hbcm*p1p4*p5p6-hbcm*p1p5*p4p6+hbcm*p2p4*p4p6+hbcm*p4p5*
5447      . p4p6))+ans2
5448       ans=ccc*ans1
5449       b(3)=ans
5450       ans4=8*(-2*ffmcfmb*p3p4*p3p7*p4p6-fmc*hbcm*p1p2*p6p7-fmc*hbcm*
5451      . p1p3*p6p7+fmc*hbcm*p2p3*p6p7+fmc*hbcm*p2p4*p6p7+fmc*hbcm*p5p6*
5452      . p5p7-p1p2*p3p4*p6p7-p1p3*p3p4*p6p7-p1p4*p3p4*p6p7+p2p3*p3p4*
5453      . p6p7+p2p4*p3p4*p6p7-p3p4*p3p6*p4p7-2*p3p4*p4p6*p4p7+p3p4*p4p6*
5454      . p5p7+p3p4*p5p6*p5p7)
5455       ans3=(p5p7*p3p6*p3p4)*(-16*ffmcfmb+16)+4*(p5p7*p4p6)*(ffmcfmb*
5456      . hbcm2-fmb*hbcm+2*fmc*hbcm+hbcm2)+8*(p4p7*p4p6)*(-ffmcfmb*hbcm2
5457      . -2*fmc*hbcm)+8*(p6p7*p1p4)*(-ffmcfmb*hbcm2-fmb*hbcm-fmc*hbcm+
5458      . hbcm2)+8*(p5p7*p3p6)*(-ffmcfmb*fmc*hbcm+2*fmc*hbcm)+8*(p3p7*
5459      . p3p6)*(-3*ffmcfmb*fmc*hbcm+fmc*hbcm)+(p3p7*p3p6*p3p4)*(16*
5460      . ffmcfmb**2-32*ffmcfmb+8)+4*(p4p6*p3p7)*(-ffmcfmb**2*hbcm2+3*
5461      . ffmcfmb*fmb*hbcm-4*ffmcfmb*fmc*hbcm-2*ffmcfmb*hbcm2-fmb*hbcm+
5462      . hbcm2)+8*(p4p7*p3p6)*(-ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm-
5463      . ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-fmc*hbcm)+2*(p6p7*p3p4)*(
5464      . ffmcfmb**2*hbcm2+3*ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+ffmcfmb*
5465      . hbcm2+fmb*fmc+3*fmc*hbcm+2*fmc2)+2*p6p7*(-ffmcfmb**2*fmc*hbcm3
5466      . +ffmcfmb*fmb*fmc*hbcm2+3*ffmcfmb*fmc*hbcm3+3*ffmcfmb*fmc2*
5467      . hbcm2+3*fmb*fmc2*hbcm-3*fmc2*hbcm2+2*fmc3*hbcm+4*p3p4s2)+ans4
5468       ans2=w1*ans3
5469       ans7=2*(p6p7*p1p3)*(-ffmcfmb**2*hbcm2-3*ffmcfmb*fmb*hbcm-
5470      . ffmcfmb*fmc*hbcm-3*ffmcfmb*hbcm2-fmb*fmc-fmc*hbcm-2*fmc2)+2*
5471      . p6p7*(ffmcfmb**2*fmb*hbcm3+ffmcfmb**2*hbcm4+ffmcfmb*fmb*fmc*
5472      . hbcm2+ffmcfmb*fmc*hbcm3+3*ffmcfmb*fmc2*hbcm2+2*fmb*fmc2*hbcm-2
5473      . *fmc2*hbcm2+fmc3*hbcm+4*p1p3s2+4*p3p4s2)+8*(2*ffmcfmb*p1p3*
5474      . p3p7*p4p6-2*ffmcfmb*p3p4*p3p7*p4p6+p1p2*p1p3*p6p7-p1p2*p3p4*
5475      . p6p7+p1p3*p1p4*p6p7-p1p3*p2p3*p6p7-p1p3*p2p4*p6p7-2*p1p3*p3p4*
5476      . p6p7+p1p3*p3p6*p4p7+2*p1p3*p4p6*p4p7-p1p3*p4p6*p5p7-p1p3*p5p6*
5477      . p5p7-p1p4*p3p4*p6p7+p2p3*p3p4*p6p7+p2p4*p3p4*p6p7-p3p4*p3p6*
5478      . p4p7-2*p3p4*p4p6*p4p7+p3p4*p4p6*p5p7+p3p4*p5p6*p5p7)
5479       ans6=(p5p7*p3p6*p3p4)*(-16*ffmcfmb+16)+(p5p7*p3p6*p1p3)*(16*
5480      . ffmcfmb-16)+4*(p5p7*p5p6)*(ffmcfmb*hbcm2+fmc*hbcm)+4*(p5p7*
5481      . p4p6)*(ffmcfmb*hbcm2-2*fmb*hbcm+fmc*hbcm)+4*(p4p7*p4p6)*(-3*
5482      . ffmcfmb*hbcm2+2*fmb*hbcm-fmc*hbcm)+4*(p6p7*p2p4)*(ffmcfmb*
5483      . hbcm2+fmc*hbcm)+4*(p6p7*p2p3)*(ffmcfmb*hbcm2+fmc*hbcm)+4*(p6p7
5484      . *p1p4)*(-3*ffmcfmb*hbcm2-2*fmb*hbcm-fmc*hbcm+2*hbcm2)+4*(p6p7*
5485      . p1p2)*(-ffmcfmb*hbcm2-fmc*hbcm)+4*(p3p7*p3p6)*(-2*ffmcfmb*fmc*
5486      . hbcm-ffmcfmb*hbcm2+fmc*hbcm)+(p3p7*p3p6*p3p4)*(16*ffmcfmb**2-
5487      . 32*ffmcfmb+8)+(p3p7*p3p6*p1p3)*(-16*ffmcfmb**2+32*ffmcfmb-8)+4
5488      . *(p4p6*p3p7)*(-2*ffmcfmb**2*hbcm2+4*ffmcfmb*fmb*hbcm-2*ffmcfmb
5489      . *fmc*hbcm-ffmcfmb*hbcm2-2*fmb*hbcm+fmc*hbcm)+4*(p5p7*p3p6)*(-
5490      . ffmcfmb**2*hbcm2-ffmcfmb*fmc*hbcm+2*fmc*hbcm)+4*(p4p7*p3p6)*(-
5491      . 2*ffmcfmb**2*hbcm2+ffmcfmb*hbcm2-fmc*hbcm)+2*(p6p7*p3p4)*(
5492      . ffmcfmb**2*hbcm2+3*ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+3*ffmcfmb
5493      . *hbcm2+fmb*fmc+fmc*hbcm+2*fmc2)+ans7
5494       ans5=w5*ans6
5495       ans10=2*p6p7*(ffmcfmb**2*fmb*hbcm3+ffmcfmb*fmb*fmc*hbcm2-3*
5496      . ffmcfmb*fmb*hbcm3+ffmcfmb*fmb2*hbcm2-fmb*fmc*hbcm2-2*fmb*fmc2*
5497      . hbcm-fmb2*fmc*hbcm)+8*(2*ffmcfmb*p3p5*p3p7*p4p6+fmb*hbcm*p1p2*
5498      . p6p7+fmb*hbcm*p1p3*p6p7+fmb*hbcm*p1p4*p6p7-fmb*hbcm*p2p3*p6p7-
5499      . fmb*hbcm*p2p4*p6p7-fmb*hbcm*p3p4*p6p7+3*fmb*hbcm*p4p6*p4p7-fmb
5500      . *hbcm*p5p6*p5p7+p1p2*p3p5*p6p7+p1p3*p3p5*p6p7+p1p4*p3p5*p6p7-
5501      . p2p3*p3p5*p6p7-p2p4*p3p5*p6p7-p3p4*p3p5*p6p7+p3p5*p3p6*p4p7+2*
5502      . p3p5*p4p6*p4p7-p3p5*p4p6*p5p7-p3p5*p5p6*p5p7)
5503       ans9=(p5p7*p3p6*p3p5)*(16*ffmcfmb-16)+4*(p5p6*p4p7)*(ffmcfmb*
5504      . hbcm2+2*fmb*hbcm+fmc*hbcm-2*hbcm2)+8*(p5p7*p4p6)*(ffmcfmb*
5505      . hbcm2-fmb*hbcm-hbcm2)+4*(p6p7*p4p5)*(-ffmcfmb*hbcm2-2*fmb*hbcm
5506      . -fmc*hbcm+2*hbcm2)+4*(p6p7*p2p5)*(-ffmcfmb*hbcm2-2*fmb*hbcm-
5507      . fmc*hbcm+2*hbcm2)+4*(p6p7*p1p5)*(ffmcfmb*hbcm2+2*fmb*hbcm+fmc*
5508      . hbcm-2*hbcm2)+8*(p4p6*p3p7)*(4*ffmcfmb*fmb*hbcm-fmb*hbcm)+8*(
5509      . p4p7*p3p6)*(ffmcfmb*fmb*hbcm+fmb*hbcm)+8*(p3p7*p3p6)*(3*
5510      . ffmcfmb*fmb*hbcm-fmb*hbcm)+(p3p7*p3p6*p3p5)*(-16*ffmcfmb**2+32
5511      . *ffmcfmb-8)+4*(p5p6*p3p7)*(2*ffmcfmb**2*hbcm2+4*ffmcfmb*fmb*
5512      . hbcm+2*ffmcfmb*fmc*hbcm-5*ffmcfmb*hbcm2-2*fmb*hbcm-fmc*hbcm+2*
5513      . hbcm2)+4*(p5p7*p3p6)*(ffmcfmb**2*hbcm2+2*ffmcfmb*fmb*hbcm-
5514      . ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-2*fmb*hbcm+fmc*hbcm-2*hbcm2)+2*
5515      . (p6p7*p3p5)*(-ffmcfmb**2*hbcm2-3*ffmcfmb*fmb*hbcm-ffmcfmb*fmc*
5516      . hbcm+ffmcfmb*hbcm2-fmb*fmc-fmc*hbcm-2*fmc2)+ans10
5517       ans8=w2*ans9
5518       ans11=((p4p6*p3p7)*(32*fb2*ffmcfmb+8)+(p5p7*p3p6)*(32*fb2*
5519      . ffmcfmb-32*fb2+8)+(p3p7*p3p6)*(-32*fb2*ffmcfmb**2+64*fb2*
5520      . ffmcfmb-16*fb2-16*ffmcfmb+16)+p6p7*(-4*fb1*ffmcfmb*fmb*hbcm-4*
5521      . fb1*ffmcfmb*fmc*hbcm+4*fb1*fmc*hbcm+4*fb2*ffmcfmb**2*hbcm2-12*
5522      . fb2*ffmcfmb*hbcm2-4*fb2*fmb*fmc-8*fb2*fmc2+2*ffmcfmb*hbcm2+3*
5523      . fmb*hbcm+fmc*hbcm-3*hbcm2)+16*(fb2*p1p2*p6p7+fb2*p1p3*p6p7+fb2
5524      . *p1p4*p6p7-fb2*p2p3*p6p7-fb2*p2p4*p6p7-fb2*p3p4*p6p7+fb2*p3p6*
5525      . p4p7+2*fb2*p4p6*p4p7-fb2*p4p6*p5p7-fb2*p5p6*p5p7))
5526       ans1=ans2+ans5+ans8+ans11
5527       ans=ccc*ans1
5528       b(4)=ans
5529       ans4=4*(2*fmc*hbcm*p1p3*p4p7-fmc*hbcm*p1p3*p5p7+4*fmc*hbcm*p2p3
5530      . *p4p7-3*fmc*hbcm*p2p3*p5p7-4*fmc*hbcm*p3p5*p4p7+3*fmc*hbcm*
5531      . p3p5*p5p7+2*hbcm2*p1p4*p4p7-2*hbcm2*p1p4*p5p7+2*p1p3*p3p4*p4p7
5532      . -p1p3*p3p4*p5p7+4*p2p3*p3p4*p4p7-3*p2p3*p3p4*p5p7-4*p3p4*p3p5*
5533      . p4p7+3*p3p4*p3p5*p5p7)
5534       ans3=2*(p5p7*p3p4)*(3*fmb*hbcm+fmc*hbcm+3*hbcm2)+(p3p7*p3p5*
5535      . p3p4)*(-28*ffmcfmb+12)+(p3p7*p3p4*p2p3)*(28*ffmcfmb-12)+(p3p7*
5536      . p3p4*p1p3)*(12*ffmcfmb-4)+2*(p4p7*p3p4)*(-ffmcfmb*hbcm2-4*fmb*
5537      . hbcm-3*fmc*hbcm-4*hbcm2)+8*(p3p7*p1p4)*(2*ffmcfmb*hbcm2-hbcm2)
5538      . +2*p5p7*(-2*ffmcfmb*fmc*hbcm3+3*fmb*fmc*hbcm2+3*fmc*hbcm3+5*
5539      . fmc2*hbcm2-2*p3p4s2)+2*p4p7*(ffmcfmb*fmc*hbcm3-4*fmb*fmc*hbcm2
5540      . -4*fmc*hbcm3-5*fmc2*hbcm2)+4*(p3p7*p3p5)*(-7*ffmcfmb*fmc*hbcm+
5541      . 3*fmc*hbcm)+4*(p3p7*p2p3)*(7*ffmcfmb*fmc*hbcm-3*fmc*hbcm)+4*(
5542      . p3p7*p1p3)*(3*ffmcfmb*fmc*hbcm-fmc*hbcm)+2*(p3p7*p3p4)*(-
5543      . ffmcfmb**2*hbcm2-7*ffmcfmb*fmb*hbcm-4*ffmcfmb*fmc*hbcm-7*
5544      . ffmcfmb*hbcm2+3*fmb*hbcm+fmc*hbcm+3*hbcm2)+2*p3p7*(3*ffmcfmb**
5545      . 2*fmc*hbcm3-7*ffmcfmb*fmb*fmc*hbcm2-9*ffmcfmb*fmc*hbcm3-10*
5546      . ffmcfmb*fmc2*hbcm2+2*ffmcfmb*p3p4s2+3*fmb*fmc*hbcm2+3*fmc*
5547      . hbcm3+5*fmc2*hbcm2-2*p3p4s2)+ans4
5548       ans2=w1*ans3
5549       ans7=2*(p3p7*p3p4)*(-ffmcfmb**2*hbcm2-9*ffmcfmb*fmb*hbcm-6*
5550      . ffmcfmb*fmc*hbcm-7*ffmcfmb*hbcm2+5*fmb*hbcm+3*fmc*hbcm+3*hbcm2
5551      . )+4*(p3p7*p2p3)*(ffmcfmb**2*hbcm2+6*ffmcfmb*fmc*hbcm-3*fmc*
5552      . hbcm)+2*(p3p7*p1p3)*(ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm+6*
5553      . ffmcfmb*fmc*hbcm+7*ffmcfmb*hbcm2-fmb*hbcm-3*fmc*hbcm-3*hbcm2)+
5554      . 2*p3p7*(-3*ffmcfmb**2*fmb*hbcm3-ffmcfmb**2*hbcm4-6*ffmcfmb*fmb
5555      . *fmc*hbcm2+2*ffmcfmb*fmb*hbcm3-6*ffmcfmb*fmc*hbcm3-9*ffmcfmb*
5556      . fmc2*hbcm2-6*ffmcfmb*p1p3s2+2*ffmcfmb*p3p4s2+3*fmb*fmc*hbcm2+3
5557      . *fmc*hbcm3+5*fmc2*hbcm2+2*p1p3s2-2*p3p4s2)+4*(-ffmcfmb*hbcm2*
5558      . p2p5*p3p7+2*ffmcfmb*p1p3*p3p4*p3p7+hbcm2*p1p2*p5p7+2*hbcm2*
5559      . p1p4*p4p7-3*hbcm2*p1p4*p5p7+hbcm2*p1p5*p5p7+hbcm2*p2p4*p5p7-
5560      . hbcm2*p2p5*p4p7+hbcm2*p4p5*p5p7-4*p1p3*p2p3*p4p7+3*p1p3*p2p3*
5561      . p5p7+2*p1p3*p3p4*p4p7+4*p1p3*p3p5*p4p7-3*p1p3*p3p5*p5p7+4*p2p3
5562      . *p3p4*p4p7-3*p2p3*p3p4*p5p7-4*p3p4*p3p5*p4p7+3*p3p4*p3p5*p5p7)
5563       ans6=(p3p7*p3p5*p3p4)*(-28*ffmcfmb+12)+(p3p7*p3p4*p2p3)*(28*
5564      . ffmcfmb-12)+(p3p7*p3p5*p1p3)*(28*ffmcfmb-12)+(p3p7*p2p3*p1p3)*
5565      . (-28*ffmcfmb+12)+4*(p5p7*p3p5)*(ffmcfmb*hbcm2+3*fmc*hbcm)+4*(
5566      . p4p7*p3p5)*(-ffmcfmb*hbcm2-3*fmc*hbcm)+2*(p5p7*p3p4)*(-2*
5567      . ffmcfmb*hbcm2+5*fmb*hbcm+3*fmc*hbcm+5*hbcm2)+2*(p4p7*p3p4)*(-
5568      . ffmcfmb*hbcm2-4*fmb*hbcm-3*fmc*hbcm-4*hbcm2)+4*(p5p7*p2p3)*(
5569      . ffmcfmb*hbcm2-3*fmc*hbcm)+4*(p4p7*p2p3)*(ffmcfmb*hbcm2+3*fmc*
5570      . hbcm)+4*(p3p7*p1p4)*(5*ffmcfmb*hbcm2-3*hbcm2)+2*(p5p7*p1p3)*(-
5571      . 2*ffmcfmb*hbcm2-fmb*hbcm-3*fmc*hbcm-hbcm2)+2*(p4p7*p1p3)*(
5572      . ffmcfmb*hbcm2+3*fmc*hbcm+4*hbcm2)+2*p4p7*(-ffmcfmb*fmb*hbcm3-
5573      . ffmcfmb*hbcm4-3*fmb*fmc*hbcm2-3*fmc*hbcm3-4*fmc2*hbcm2-4*
5574      . p1p3s2)+2*p5p7*(-2*ffmcfmb**2*hbcm4+2*ffmcfmb*fmb*hbcm3+2*
5575      . ffmcfmb*hbcm4+3*fmb*fmc*hbcm2+3*fmc*hbcm3+5*fmc2*hbcm2+2*
5576      . p1p3s2-2*p3p4s2)+4*(p3p7*p3p5)*(-ffmcfmb**2*hbcm2-6*ffmcfmb*
5577      . fmc*hbcm+3*fmc*hbcm)+ans7
5578       ans5=w5*ans6
5579       ans10=2*p3p7*(-3*ffmcfmb**2*fmb*hbcm3-6*ffmcfmb*fmb*fmc*hbcm2+9
5580      . *ffmcfmb*fmb*hbcm3-7*ffmcfmb*fmb2*hbcm2+14*ffmcfmb*p3p5s2+3*
5581      . fmb*fmc*hbcm2-3*fmb*hbcm3+3*fmb2*hbcm2-6*p3p5s2)+4*(-ffmcfmb*
5582      . hbcm2*p2p5*p3p7-2*fmb*hbcm*p1p3*p4p7-4*fmb*hbcm*p2p3*p4p7+
5583      . hbcm2*p1p2*p5p7+2*hbcm2*p1p5*p4p7+hbcm2*p2p4*p5p7-hbcm2*p2p5*
5584      . p4p7-2*p1p3*p3p5*p4p7+p1p3*p3p5*p5p7-4*p2p3*p3p5*p4p7+3*p2p3*
5585      . p3p5*p5p7+p3p4*p3p5*p5p7)
5586       ans9=(p3p7*p3p5*p3p4)*(-4*ffmcfmb+4)+(p3p7*p3p5*p2p3)*(-28*
5587      . ffmcfmb+12)+(p3p7*p3p5*p1p3)*(-12*ffmcfmb+4)+4*(p4p5*p3p7)*(
5588      . ffmcfmb*hbcm2-hbcm2)+2*(p5p7*p3p5)*(2*ffmcfmb*hbcm2-3*fmb*hbcm
5589      . +3*fmc*hbcm-3*hbcm2)+2*(p4p7*p3p5)*(-ffmcfmb*hbcm2+4*fmb*hbcm-
5590      . 3*fmc*hbcm+4*hbcm2)+4*(p5p7*p3p4)*(-ffmcfmb*hbcm2+fmb*hbcm+
5591      . hbcm2)+4*(p5p7*p2p3)*(ffmcfmb*hbcm2+3*fmb*hbcm)+4*(p3p7*p1p5)*
5592      . (3*ffmcfmb*hbcm2-hbcm2)+4*(p5p7*p1p3)*(-ffmcfmb*hbcm2+fmb*hbcm
5593      . +hbcm2)+2*p4p7*(-ffmcfmb*fmb*hbcm3-3*fmb*fmc*hbcm2+4*fmb*hbcm3
5594      . -4*fmb2*hbcm2+8*p3p5s2)+4*(p3p7*p3p4)*(-ffmcfmb*fmb*hbcm+fmb*
5595      . hbcm)+4*(p3p7*p2p3)*(-7*ffmcfmb*fmb*hbcm+3*fmb*hbcm)+4*(p3p7*
5596      . p1p3)*(-3*ffmcfmb*fmb*hbcm+fmb*hbcm)+2*p5p7*(-2*ffmcfmb**2*
5597      . hbcm4+2*ffmcfmb*fmb*hbcm3+2*ffmcfmb*hbcm4+3*fmb*fmc*hbcm2-3*
5598      . fmb*hbcm3+3*fmb2*hbcm2-6*p3p5s2)+2*(p3p7*p3p5)*(-ffmcfmb**2*
5599      . hbcm2+7*ffmcfmb*fmb*hbcm-6*ffmcfmb*fmc*hbcm+7*ffmcfmb*hbcm2-3*
5600      . fmb*hbcm+3*fmc*hbcm-3*hbcm2)+ans10
5601       ans8=w2*ans9
5602       ans11=((p3p7*p3p5)*(56*fb2*ffmcfmb-24*fb2+14)+(p3p7*p3p4)*(-8*
5603      . fb2*ffmcfmb+8*fb2-2)+(p3p7*p2p3)*(-56*fb2*ffmcfmb+24*fb2-14)+(
5604      . p3p7*p1p3)*(-24*fb2*ffmcfmb+8*fb2-6)+4*p5p7*(-3*fb1*fmb*hbcm-3
5605      . *fb1*fmc*hbcm+2*fb2*ffmcfmb*hbcm2-3*fb2*hbcm2-7*hbcm2)+p4p7*(
5606      . 16*fb1*fmb*hbcm+12*fb1*fmc*hbcm-4*fb2*ffmcfmb*hbcm2+16*fb2*
5607      . hbcm2+5*hbcm2)+p3p7*(28*fb1*ffmcfmb*fmb*hbcm+24*fb1*ffmcfmb*
5608      . fmc*hbcm-12*fb1*fmb*hbcm-12*fb1*fmc*hbcm-12*fb2*ffmcfmb**2*
5609      . hbcm2+36*fb2*ffmcfmb*hbcm2-12*fb2*hbcm2+12*ffmcfmb*hbcm2-11*
5610      . fmb*hbcm-6*fmc*hbcm-3*hbcm2)+8*(-2*fb2*p1p3*p4p7+fb2*p1p3*p5p7
5611      . -4*fb2*p2p3*p4p7+3*fb2*p2p3*p5p7+fb2*p3p4*p5p7+4*fb2*p3p5*p4p7
5612      . -3*fb2*p3p5*p5p7))
5613       ans1=ans2+ans5+ans8+ans11
5614       ans=ccc*ans1
5615       b(5)=ans
5616       ans4=4*(-2*ffmcfmb*fmc*hbcm*p1p3*p3p6+2*ffmcfmb*hbcm2*p2p4*p3p6
5617      . -ffmcfmb*hbcm2*p3p5*p4p6+2*ffmcfmb*hbcm2*p3p6*p4p5-2*ffmcfmb*
5618      . p1p3*p3p4*p3p6+2*fmc*hbcm*p2p3*p5p6-2*fmc*hbcm*p3p5*p5p6-hbcm2
5619      . *p1p2*p4p6+2*hbcm2*p1p4*p5p6-hbcm2*p1p5*p4p6+hbcm2*p2p4*p4p6+
5620      . hbcm2*p4p5*p4p6-2*p1p3*p3p4*p4p6-4*p2p3*p3p4*p4p6+2*p2p3*p3p4*
5621      . p5p6-2*p3p4*p3p5*p5p6)
5622       ans3=(p3p6*p3p5*p3p4)*(8*ffmcfmb-8)+(p3p6*p3p4*p2p3)*(-24*
5623      . ffmcfmb+8)+2*(p5p6*p3p4)*(-ffmcfmb*hbcm2-2*fmb*hbcm-fmc*hbcm-2
5624      . *hbcm2)+4*(p4p6*p3p4)*(ffmcfmb*hbcm2+2*fmc*hbcm+hbcm2)+4*(p4p6
5625      . *p2p3)*(-ffmcfmb*hbcm2-4*fmc*hbcm)+8*(p3p6*p1p4)*(-ffmcfmb*
5626      . hbcm2+hbcm2)+4*(p4p6*p1p3)*(ffmcfmb*hbcm2-2*fmc*hbcm-hbcm2)+2*
5627      . p5p6*(ffmcfmb*fmc*hbcm3-2*fmb*fmc*hbcm2-2*fmc*hbcm3-3*fmc2*
5628      . hbcm2)+8*(p3p6*p3p5)*(ffmcfmb*fmc*hbcm-fmc*hbcm)+8*(p3p6*p2p3)
5629      . *(-3*ffmcfmb*fmc*hbcm+fmc*hbcm)+4*p4p6*(ffmcfmb**2*hbcm4+2*
5630      . ffmcfmb*fmc*hbcm3-ffmcfmb*hbcm4+2*p3p4s2)+2*(p3p6*p3p4)*(
5631      . ffmcfmb**2*hbcm2+2*ffmcfmb*fmb*hbcm+5*ffmcfmb*fmc*hbcm+5*
5632      . ffmcfmb*hbcm2-2*fmb*hbcm-fmc*hbcm-2*hbcm2)+2*p3p6*(3*ffmcfmb**
5633      . 2*fmc*hbcm3+2*ffmcfmb*fmb*fmc*hbcm2+3*ffmcfmb*fmc*hbcm3+3*
5634      . ffmcfmb*fmc2*hbcm2+4*ffmcfmb*p3p4s2-2*fmb*fmc*hbcm2-2*fmc*
5635      . hbcm3-3*fmc2*hbcm2)+ans4
5636       ans2=w1*ans3
5637       ans7=2*(p3p6*p1p3)*(-ffmcfmb**2*hbcm2+2*ffmcfmb*fmb*hbcm-
5638      . ffmcfmb*fmc*hbcm-5*ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm+2*hbcm2)+
5639      . 2*p3p6*(-3*ffmcfmb**2*fmb*hbcm3+ffmcfmb**2*hbcm4+ffmcfmb*fmb*
5640      . fmc*hbcm2-ffmcfmb*fmb*hbcm3+2*ffmcfmb*fmb2*hbcm2+ffmcfmb*fmc*
5641      . hbcm3+ffmcfmb*hbcm4+4*ffmcfmb*p1p3s2+4*ffmcfmb*p3p4s2-fmb*fmc*
5642      . hbcm2-fmc*hbcm3-2*fmc2*hbcm2)+8*(-ffmcfmb*hbcm2*p1p2*p3p6-
5643      . ffmcfmb*hbcm2*p1p5*p3p6+ffmcfmb*hbcm2*p2p4*p3p6+2*ffmcfmb*
5644      . hbcm2*p2p5*p3p6+ffmcfmb*hbcm2*p3p6*p4p5-2*ffmcfmb*p1p3*p3p4*
5645      . p3p6-hbcm2*p1p2*p4p6+hbcm2*p1p4*p3p6+hbcm2*p1p4*p4p6+hbcm2*
5646      . p1p4*p5p6-hbcm2*p1p5*p4p6+hbcm2*p2p4*p4p6+2*hbcm2*p2p5*p4p6+
5647      . hbcm2*p3p5*p4p6+hbcm2*p4p5*p4p6+2*p1p3*p2p3*p4p6-p1p3*p2p3*
5648      . p5p6-2*p1p3*p3p4*p4p6+p1p3*p3p5*p5p6-2*p2p3*p3p4*p4p6+p2p3*
5649      . p3p4*p5p6-p3p4*p3p5*p5p6)
5650       ans6=8*(p4p6*p3p4)*(-fmb*hbcm+hbcm2)+8*(p4p6*p2p3)*(2*fmb*hbcm-
5651      . hbcm2)+8*(p4p6*p1p3)*(fmb*hbcm-hbcm2)+(p3p6*p3p5*p3p4)*(8*
5652      . ffmcfmb-8)+(p3p6*p3p4*p2p3)*(-24*ffmcfmb+8)+(p3p6*p3p5*p1p3)*(
5653      . -8*ffmcfmb+8)+(p3p6*p2p3*p1p3)*(24*ffmcfmb-8)+4*(p5p6*p3p5)*(-
5654      . ffmcfmb*hbcm2-fmc*hbcm)+2*(p5p6*p3p4)*(-ffmcfmb*hbcm2-2*fmb*
5655      . hbcm-fmc*hbcm-2*hbcm2)+4*(p5p6*p2p3)*(ffmcfmb*hbcm2+fmc*hbcm)+
5656      . 2*(p5p6*p1p3)*(ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm+2*hbcm2)+2*
5657      . p5p6*(-ffmcfmb*fmb*hbcm3-ffmcfmb*hbcm4-fmb*fmc*hbcm2-fmc*hbcm3
5658      . -2*fmc2*hbcm2)+4*p4p6*(-2*ffmcfmb*fmb*hbcm3+fmb2*hbcm2-fmc2*
5659      . hbcm2+hbcm4+2*p1p3s2+2*p3p4s2)+4*(p3p6*p3p5)*(ffmcfmb**2*hbcm2
5660      . +ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-fmc*hbcm)+2*(p3p6*p3p4)*(
5661      . ffmcfmb**2*hbcm2-2*ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+5*ffmcfmb
5662      . *hbcm2-2*fmb*hbcm-fmc*hbcm-2*hbcm2)+4*(p3p6*p2p3)*(-ffmcfmb**2
5663      . *hbcm2+4*ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2+fmc*
5664      . hbcm)+ans7
5665       ans5=w5*ans6
5666       ans9=((p3p6*p3p5)*(-16*fb2*ffmcfmb+16*fb2-4)+(p3p6*p3p4)*(-16*
5667      . fb2*ffmcfmb-4)+(p3p6*p2p3)*(48*fb2*ffmcfmb-16*fb2+12)+(p3p6*
5668      . p1p3)*(16*fb2*ffmcfmb+4)+4*p4p6*(-4*fb2*ffmcfmb*hbcm2-hbcm2)+
5669      . p5p6*(8*fb1*fmb*hbcm+4*fb1*fmc*hbcm-4*fb2*ffmcfmb*hbcm2+8*fb2*
5670      . hbcm2-hbcm2)+p3p6*(-8*fb1*ffmcfmb*fmb*hbcm-4*fb1*ffmcfmb*fmc*
5671      . hbcm+8*fb1*fmb*hbcm+4*fb1*fmc*hbcm-12*fb2*ffmcfmb**2*hbcm2-12*
5672      . fb2*ffmcfmb*hbcm2+8*fb2*hbcm2+12*ffmcfmb*hbcm2-10*fmb*hbcm-5*
5673      . fmc*hbcm-3*hbcm2)+16*(fb2*p1p3*p4p6+2*fb2*p2p3*p4p6-fb2*p2p3*
5674      . p5p6-fb2*p3p4*p4p6+fb2*p3p5*p5p6))
5675       ans8=w2*((p3p6*p3p5*p2p3)*(24*ffmcfmb-8)+2*(p5p6*p3p5)*(-
5676      . ffmcfmb*hbcm2+2*fmb*hbcm-fmc*hbcm+2*hbcm2)+2*p5p6*(-ffmcfmb*
5677      . fmb*hbcm3-fmb*fmc*hbcm2+2*fmb*hbcm3-2*fmb2*hbcm2+4*p3p5s2)+8*(
5678      . p3p6*p2p3)*(3*ffmcfmb*fmb*hbcm-fmb*hbcm)+2*(p3p6*p3p5)*(
5679      . ffmcfmb**2*hbcm2-2*ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm-3*ffmcfmb
5680      . *hbcm2+2*fmb*hbcm-fmc*hbcm+2*hbcm2)+2*p3p6*(-3*ffmcfmb**2*fmb*
5681      . hbcm3+ffmcfmb*fmb*fmc*hbcm2-3*ffmcfmb*fmb*hbcm3+2*ffmcfmb*fmb2
5682      . *hbcm2-4*ffmcfmb*p3p5s2-fmb*fmc*hbcm2+2*fmb*hbcm3-2*fmb2*hbcm2
5683      . +4*p3p5s2)+8*(ffmcfmb*fmb*hbcm*p1p3*p3p6-ffmcfmb*fmb*hbcm*p3p4
5684      . *p3p6-ffmcfmb*fmb*hbcm3*p4p6-ffmcfmb*hbcm2*p1p5*p3p6+ffmcfmb*
5685      . hbcm2*p2p5*p3p6+ffmcfmb*hbcm2*p3p6*p4p5+ffmcfmb*p1p3*p3p5*p3p6
5686      . -ffmcfmb*p3p4*p3p5*p3p6+fmb*hbcm*p1p3*p4p6+2*fmb*hbcm*p2p3*
5687      . p4p6-fmb*hbcm*p2p3*p5p6-fmb*hbcm*p3p4*p4p6-hbcm2*p1p5*p4p6+
5688      . hbcm2*p2p5*p4p6+hbcm2*p4p5*p4p6+p1p3*p3p5*p4p6+2*p2p3*p3p5*
5689      . p4p6-p2p3*p3p5*p5p6-p3p4*p3p5*p4p6))+ans9
5690       ans1=ans2+ans5+ans8
5691       ans=ccc*ans1
5692       b(6)=ans
5693       ans2=w2*((p3p5*p3p4)*(2*ffmcfmb-2)+(p3p5*p1p3)*(2*ffmcfmb-2)+2*
5694      . p3p4*(ffmcfmb*fmb*hbcm-fmb*hbcm)+2*p1p3*(ffmcfmb*fmb*hbcm-fmb*
5695      . hbcm)+2*p3p5*(ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm-ffmcfmb*hbcm2)
5696      . +2*(ffmcfmb**2*fmb*hbcm3-ffmcfmb*fmb*hbcm*p2p3-ffmcfmb*fmb*
5697      . hbcm3-ffmcfmb*p2p3*p3p5-ffmcfmb*p3p5s2-fmb*hbcm*p1p2-fmb*hbcm*
5698      . p1p5-fmb*hbcm*p2p4-fmb*hbcm*p4p5-p1p2*p3p5-p1p5*p3p5-p2p4*p3p5
5699      . -p3p5*p4p5))+(p3p5*(-4*fb2*ffmcfmb-1)+4*p3p4*(fb2*ffmcfmb-fb2)
5700      . +p2p3*(-4*fb2*ffmcfmb-1)+4*p1p3*(fb2*ffmcfmb-fb2)+(4*fb2*
5701      . ffmcfmb**2*hbcm2-4*fb2*ffmcfmb*hbcm2-4*fb2*p1p2-4*fb2*p1p5-4*
5702      . fb2*p2p4-4*fb2*p4p5+2*ffmcfmb*hbcm2+9*fmb*hbcm+9*fmc*hbcm-10*
5703      . hbcm2+p1p3+p3p4))
5704       ans1=w1*((p3p4*p1p3)*(-2*ffmcfmb+2)+2*p1p3*(-ffmcfmb*fmc*hbcm+
5705      . fmc*hbcm)+2*p3p4*(-ffmcfmb**2*hbcm2-ffmcfmb*fmc*hbcm+ffmcfmb*
5706      . hbcm2+fmc*hbcm)+2*(-ffmcfmb**2*fmc*hbcm3+ffmcfmb*fmc*hbcm*p2p3
5707      . +ffmcfmb*fmc*hbcm*p3p5+ffmcfmb*fmc*hbcm3+ffmcfmb*p2p3*p3p4+
5708      . ffmcfmb*p3p4*p3p5-ffmcfmb*p3p4s2+fmc*hbcm*p1p2+fmc*hbcm*p1p5+
5709      . fmc*hbcm*p2p4+fmc*hbcm*p4p5+p1p2*p3p4+p1p5*p3p4+p2p4*p3p4+p3p4
5710      . *p4p5+p3p4s2))+w5*(2*p4p5*(-fmb*hbcm+hbcm2)+2*p2p4*(-fmb*hbcm+
5711      . hbcm2)+2*p1p5*(-fmb*hbcm+hbcm2)+2*p1p2*(-fmb*hbcm+hbcm2)+2*
5712      . p3p5*(-ffmcfmb*fmb*hbcm+ffmcfmb*hbcm2)+2*p2p3*(-ffmcfmb*fmb*
5713      . hbcm+ffmcfmb*hbcm2)+2*p3p4*(-ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm
5714      . -fmb*hbcm+hbcm2)+2*p1p3*(ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm-2*
5715      . ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+2*(ffmcfmb**2*fmb*hbcm3-ffmcfmb
5716      . **2*hbcm4-ffmcfmb*fmb*hbcm3+ffmcfmb*hbcm4-ffmcfmb*p1p3*p2p3-
5717      . ffmcfmb*p1p3*p3p5+ffmcfmb*p1p3s2+ffmcfmb*p2p3*p3p4+ffmcfmb*
5718      . p3p4*p3p5-ffmcfmb*p3p4s2-p1p2*p1p3+p1p2*p3p4-p1p3*p1p5-p1p3*
5719      . p2p4-p1p3*p4p5-p1p3s2+p1p5*p3p4+p2p4*p3p4+p3p4*p4p5+p3p4s2))+
5720      . ans2
5721       ans=ccc*ans1
5722       b(7)=ans
5723       ans3=w2*(2*(p3p5*p3p4)*(-ffmcfmb*hbcm+hbcm)+2*(p3p5*p1p3)*(-
5724      . ffmcfmb*hbcm+hbcm)+2*p3p4*(-ffmcfmb*fmb*hbcm2+fmb*hbcm2)+2*
5725      . p1p3*(-ffmcfmb*fmb*hbcm2+fmb*hbcm2)+2*p3p5*(-ffmcfmb**2*hbcm3+
5726      . ffmcfmb*fmb*hbcm2+ffmcfmb*hbcm3)+2*(-ffmcfmb**2*fmb*hbcm4+
5727      . ffmcfmb*fmb*hbcm2*p2p3+ffmcfmb*fmb*hbcm4+ffmcfmb*hbcm*p2p3*
5728      . p3p5+ffmcfmb*hbcm*p3p5s2+fmb*hbcm2*p1p2+fmb*hbcm2*p1p5+fmb*
5729      . hbcm2*p2p4+fmb*hbcm2*p4p5+hbcm*p1p2*p3p5+hbcm*p1p5*p3p5+hbcm*
5730      . p2p4*p3p5+hbcm*p3p5*p4p5))+(p3p5*(-4*fb1*ffmcfmb*hbcm-19*hbcm)
5731      . +p3p4*(4*fb1*ffmcfmb*hbcm-4*fb1*hbcm-hbcm)+p2p3*(-4*fb1*
5732      . ffmcfmb*hbcm+29*hbcm)+p1p3*(4*fb1*ffmcfmb*hbcm-4*fb1*hbcm+11*
5733      . hbcm)+(4*fb1*ffmcfmb**2*hbcm3-4*fb1*ffmcfmb*hbcm3-4*fb1*hbcm*
5734      . p1p2-4*fb1*hbcm*p1p5-4*fb1*hbcm*p2p4-4*fb1*hbcm*p4p5-9*fmb*
5735      . hbcm2+9*fmc*hbcm2-10*hbcm3))
5736       ans2=w5*(2*p4p5*(fmb*hbcm2+hbcm3)+2*p2p4*(fmb*hbcm2+hbcm3)+2*
5737      . p1p5*(fmb*hbcm2+hbcm3)+2*p1p2*(fmb*hbcm2+hbcm3)+2*(p3p5*p3p4)*
5738      . (-ffmcfmb*hbcm+2*hbcm)+2*(p3p4*p2p3)*(3*ffmcfmb*hbcm-2*hbcm)+2
5739      . *(p3p5*p1p3)*(-3*ffmcfmb*hbcm+2*hbcm)+2*(p2p3*p1p3)*(ffmcfmb*
5740      . hbcm-2*hbcm)+2*p3p5*(-2*ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2+3*
5741      . ffmcfmb*hbcm3)+2*p3p4*(-ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+fmb
5742      . *hbcm2+hbcm3)+2*p2p3*(2*ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2-
5743      . ffmcfmb*hbcm3)+2*p1p3*(ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2-2*
5744      . ffmcfmb*hbcm3+fmb*hbcm2+hbcm3)+2*(-ffmcfmb**2*fmb*hbcm4-
5745      . ffmcfmb**2*hbcm5+ffmcfmb*fmb*hbcm4+ffmcfmb*hbcm*p1p3s2-2*
5746      . ffmcfmb*hbcm*p2p3s2-ffmcfmb*hbcm*p3p4s2+2*ffmcfmb*hbcm*p3p5s2+
5747      . ffmcfmb*hbcm5-hbcm*p1p2*p1p3-2*hbcm*p1p2*p2p3+hbcm*p1p2*p3p4+2
5748      . *hbcm*p1p2*p3p5-hbcm*p1p3*p1p5-hbcm*p1p3*p2p4-hbcm*p1p3*p4p5-
5749      . hbcm*p1p3s2-2*hbcm*p1p5*p2p3+hbcm*p1p5*p3p4+2*hbcm*p1p5*p3p5-2
5750      . *hbcm*p2p3*p2p4-2*hbcm*p2p3*p4p5+hbcm*p2p4*p3p4+2*hbcm*p2p4*
5751      . p3p5+hbcm*p3p4*p4p5+hbcm*p3p4s2+2*hbcm*p3p5*p4p5))+ans3
5752       ans1=w1*(2*(p3p4*p1p3)*(-ffmcfmb*hbcm+hbcm)+2*p1p3*(-ffmcfmb*
5753      . fmc*hbcm2+fmc*hbcm2)+2*p3p4*(-ffmcfmb**2*hbcm3-ffmcfmb*fmc*
5754      . hbcm2+ffmcfmb*hbcm3+fmc*hbcm2)+2*(-ffmcfmb**2*fmc*hbcm4+
5755      . ffmcfmb*fmc*hbcm2*p2p3+ffmcfmb*fmc*hbcm2*p3p5+ffmcfmb*fmc*
5756      . hbcm4+ffmcfmb*hbcm*p2p3*p3p4+ffmcfmb*hbcm*p3p4*p3p5-ffmcfmb*
5757      . hbcm*p3p4s2+fmc*hbcm2*p1p2+fmc*hbcm2*p1p5+fmc*hbcm2*p2p4+fmc*
5758      . hbcm2*p4p5+hbcm*p1p2*p3p4+hbcm*p1p5*p3p4+hbcm*p2p4*p3p4+hbcm*
5759      . p3p4*p4p5+hbcm*p3p4s2))+ans2
5760       ans=ccc*ans1
5761       b(8)=ans
5762       ans=ccc*(w1*(4*(p3p6*p3p4)*(-4*ffmcfmb*hbcm+hbcm)+4*p3p6*(-4*
5763      . ffmcfmb*fmc*hbcm2+fmc*hbcm2)+4*(-3*fmc*hbcm2*p4p6+fmc*hbcm2*
5764      . p5p6-3*hbcm*p3p4*p4p6+hbcm*p3p4*p5p6))+w2*(4*(p3p6*p3p5)*(-4*
5765      . ffmcfmb*hbcm+hbcm)+4*p3p6*(-4*ffmcfmb*fmb*hbcm2+fmb*hbcm2)+4*(
5766      . -3*fmb*hbcm2*p4p6+fmb*hbcm2*p5p6-3*hbcm*p3p5*p4p6+hbcm*p3p5*
5767      . p5p6))+w5*(2*p5p6*(ffmcfmb*hbcm3+fmc*hbcm2)+4*p4p6*(2*ffmcfmb*
5768      . hbcm3-3*fmb*hbcm2-3*hbcm3)+4*(p3p6*p3p4)*(-2*ffmcfmb*hbcm+hbcm
5769      . )+4*(p3p6*p1p3)*(2*ffmcfmb*hbcm-hbcm)+2*p3p6*(3*ffmcfmb**2*
5770      . hbcm3-6*ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-5*ffmcfmb*hbcm3+
5771      . fmc*hbcm2)+4*(2*ffmcfmb*hbcm*p2p3*p3p6-6*ffmcfmb*hbcm*p3p5*
5772      . p3p6+hbcm*p1p3*p4p6-hbcm*p1p3*p5p6+2*hbcm*p2p3*p4p6-hbcm*p3p4*
5773      . p4p6+hbcm*p3p4*p5p6-6*hbcm*p3p5*p4p6))+(8*p3p6*(4*fb1*ffmcfmb*
5774      . hbcm-fb1*hbcm+2*hbcm)+8*(3*fb1*hbcm*p4p6-fb1*hbcm*p5p6)))
5775       b(9)=ans
5776       b(10)=ccc*(w1*((p3p6*p3p4)*(16*ffmcfmb-4)+4*p3p6*(4*ffmcfmb*fmc
5777      . *hbcm-fmc*hbcm)+4*(3*fmc*hbcm*p4p6-fmc*hbcm*p5p6+3*p3p4*p4p6-
5778      . p3p4*p5p6))+w2*((p3p6*p3p5)*(-16*ffmcfmb+4)+4*p3p6*(-4*ffmcfmb
5779      . *fmb*hbcm+fmb*hbcm)+4*(-3*fmb*hbcm*p4p6+fmb*hbcm*p5p6-3*p3p5*
5780      . p4p6+p3p5*p5p6))+w5*(12*p4p6*(-fmb*hbcm+hbcm2)+(p3p6*p3p4)*(16
5781      . *ffmcfmb-4)+(p3p6*p1p3)*(-16*ffmcfmb+4)+2*p5p6*(-ffmcfmb*hbcm2
5782      . -fmc*hbcm)+2*p3p6*(ffmcfmb**2*hbcm2-6*ffmcfmb*fmb*hbcm+ffmcfmb
5783      . *fmc*hbcm+5*ffmcfmb*hbcm2-fmc*hbcm)+4*(-3*p1p3*p4p6+p1p3*p5p6+
5784      . 3*p3p4*p4p6-p3p4*p5p6))+(p3p6*(-32*fb2*ffmcfmb+8*fb2-8)+8*(-3*
5785      . fb2*p4p6+fb2*p5p6)))
5786       b(11)=ccc*(w5*(2*p3p4*(ffmcfmb*hbcm2-hbcm2)+2*p1p3*(ffmcfmb*
5787      . hbcm2-hbcm2)+2*(ffmcfmb**2*hbcm4-ffmcfmb*hbcm2*p2p3-ffmcfmb*
5788      . hbcm2*p3p5-ffmcfmb*hbcm4-hbcm2*p1p2-hbcm2*p1p5-hbcm2*p2p4-
5789      . hbcm2*p4p5))+18*hbcm2)
5790       ans=ccc*(w1*(2*(p3p7*p3p4)*(-8*ffmcfmb*hbcm+3*hbcm)+2*p3p7*(-8*
5791      . ffmcfmb*fmc*hbcm2+3*fmc*hbcm2)+2*(-5*fmc*hbcm2*p4p7+3*fmc*
5792      . hbcm2*p5p7-5*hbcm*p3p4*p4p7+3*hbcm*p3p4*p5p7))+w2*(2*(p3p7*
5793      . p3p5)*(-8*ffmcfmb*hbcm+3*hbcm)+2*p3p7*(-8*ffmcfmb*fmb*hbcm2+3*
5794      . fmb*hbcm2)+2*(-5*fmb*hbcm2*p4p7+3*fmb*hbcm2*p5p7-5*hbcm*p3p5*
5795      . p4p7+3*hbcm*p3p5*p5p7))+w5*(2*p5p7*(2*ffmcfmb*hbcm3+3*fmc*
5796      . hbcm2)+2*p4p7*(-ffmcfmb*hbcm3-fmb*hbcm2-3*fmc*hbcm2-hbcm3)+10*
5797      . (p3p7*p3p4)*(-2*ffmcfmb*hbcm+hbcm)+2*(p3p7*p1p3)*(2*ffmcfmb*
5798      . hbcm-hbcm)+2*p3p7*(-3*ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2-6*
5799      . ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3+3*fmc*hbcm2)+2*(2*ffmcfmb*hbcm
5800      . *p2p3*p3p7-2*ffmcfmb*hbcm*p3p5*p3p7+hbcm*p1p3*p4p7-hbcm*p1p3*
5801      . p5p7+2*hbcm*p2p3*p4p7-5*hbcm*p3p4*p4p7+5*hbcm*p3p4*p5p7-2*hbcm
5802      . *p3p5*p4p7))+(4*p3p7*(8*fb1*ffmcfmb*hbcm-3*fb1*hbcm-4*hbcm)+4*
5803      . (5*fb1*hbcm*p4p7-3*fb1*hbcm*p5p7)))
5804       b(12)=ans
5805       b(13)=ccc*(w5*(2*p3p4*(-ffmcfmb*hbcm+hbcm)+2*p1p3*(-ffmcfmb*
5806      . hbcm+hbcm)+2*(-ffmcfmb**2*hbcm3+ffmcfmb*hbcm*p2p3+ffmcfmb*hbcm
5807      . *p3p5+ffmcfmb*hbcm3+hbcm*p1p2+hbcm*p1p5+hbcm*p2p4+hbcm*p4p5))-
5808      . 18*hbcm)
5809       b(14)=ccc*(w1*((p3p7*p3p4)*(-16*ffmcfmb+6)+2*p3p7*(-8*ffmcfmb*
5810      . fmc*hbcm+3*fmc*hbcm)+2*(-5*fmc*hbcm*p4p7+3*fmc*hbcm*p5p7-5*
5811      . p3p4*p4p7+3*p3p4*p5p7))+w2*((p3p7*p3p5)*(16*ffmcfmb-6)+2*p3p7*
5812      . (8*ffmcfmb*fmb*hbcm-3*fmb*hbcm)+2*(5*fmb*hbcm*p4p7-3*fmb*hbcm*
5813      . p5p7+5*p3p5*p4p7-3*p3p5*p5p7))+w5*((p3p7*p3p4)*(-16*ffmcfmb+6)
5814      . +(p3p7*p1p3)*(16*ffmcfmb-6)+2*p4p7*(-ffmcfmb*hbcm2+fmb*hbcm-3*
5815      . fmc*hbcm-hbcm2)+2*p3p7*(-ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm-6*
5816      . ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2+3*fmc*hbcm)+2*(3*fmc*hbcm*p5p7+
5817      . 5*p1p3*p4p7-3*p1p3*p5p7-5*p3p4*p4p7+3*p3p4*p5p7))+(p3p7*(32*
5818      . fb2*ffmcfmb-12*fb2+8)+4*(5*fb2*p4p7-3*fb2*p5p7)))
5819       ans2=w5*((p3p7*p3p6*p3p4)*(32*ffmcfmb-8)+(p3p7*p3p6*p1p3)*(-32*
5820      . ffmcfmb+8)+8*(p4p6*p3p7)*(ffmcfmb*hbcm2-fmb*hbcm)+4*(p5p7*p3p6
5821      . )*(-5*ffmcfmb*hbcm2-fmc*hbcm)+4*(p4p7*p3p6)*(-3*ffmcfmb*hbcm2+
5822      . fmc*hbcm)+4*(p6p7*p3p4)*(-2*ffmcfmb*hbcm2+fmb*hbcm-fmc*hbcm-
5823      . hbcm2)+4*(p6p7*p1p3)*(2*ffmcfmb*hbcm2-fmb*hbcm+fmc*hbcm+hbcm2)
5824      . +4*(p3p7*p3p6)*(-2*ffmcfmb*fmb*hbcm+2*ffmcfmb*fmc*hbcm+ffmcfmb
5825      . *hbcm2-fmc*hbcm)+2*p6p7*(-ffmcfmb**2*hbcm4+ffmcfmb*fmb*hbcm3-
5826      . ffmcfmb*fmc*hbcm3-ffmcfmb*hbcm4+fmb*fmc*hbcm2-fmc*hbcm3+4*fmc2
5827      . *hbcm2-8*p1p3s2-8*p3p4s2)+8*(-2*hbcm2*p1p4*p6p7-hbcm2*p4p6*
5828      . p4p7-3*hbcm2*p4p6*p5p7+4*p1p3*p3p4*p6p7-p1p3*p3p6*p4p7+p1p3*
5829      . p3p6*p5p7-2*p1p3*p3p7*p4p6+p3p4*p3p6*p4p7-p3p4*p3p6*p5p7+2*
5830      . p3p4*p3p7*p4p6))+((p3p7*p3p6)*(-64*fb2*ffmcfmb+16*fb2-16)+4*
5831      . p6p7*(-2*fb1*fmb*hbcm-2*fb1*fmc*hbcm+4*fb2*ffmcfmb*hbcm2+2*fb2
5832      . *hbcm2+hbcm2)+16*(-2*fb2*p1p3*p6p7+2*fb2*p3p4*p6p7-fb2*p3p6*
5833      . p4p7+fb2*p3p6*p5p7-2*fb2*p3p7*p4p6))
5834       ans1=w1*(4*(p6p7*p3p4)*(fmb*hbcm-3*fmc*hbcm-hbcm2)+(p3p7*p3p6*
5835      . p3p4)*(32*ffmcfmb-8)+4*(p4p6*p3p7)*(4*ffmcfmb*hbcm2+4*fmc*hbcm
5836      . -hbcm2)+8*(p4p7*p3p6)*(-2*ffmcfmb*hbcm2+fmc*hbcm)+4*p6p7*(-2*
5837      . ffmcfmb*fmc*hbcm3+fmb*fmc*hbcm2-fmc*hbcm3+3*fmc2*hbcm2-4*
5838      . p3p4s2)+8*(p3p7*p3p6)*(4*ffmcfmb*fmc*hbcm-fmc*hbcm)+4*(4*fmc*
5839      . hbcm*p1p3*p6p7-2*fmc*hbcm*p3p6*p5p7-4*hbcm2*p1p4*p6p7-hbcm2*
5840      . p4p6*p4p7-hbcm2*p4p6*p5p7+4*p1p3*p3p4*p6p7+2*p3p4*p3p6*p4p7-2*
5841      . p3p4*p3p6*p5p7+4*p3p4*p3p7*p4p6))+w2*(4*(p6p7*p3p5)*(fmb*hbcm+
5842      . fmc*hbcm+hbcm2)+(p3p7*p3p6*p3p5)*(-32*ffmcfmb+8)+8*(p5p6*p3p7)
5843      . *(2*ffmcfmb*hbcm2-hbcm2)+8*(p5p7*p3p6)*(-2*ffmcfmb*hbcm2+fmb*
5844      . hbcm+hbcm2)+4*p6p7*(2*ffmcfmb*fmb*hbcm3+fmb*fmc*hbcm2+fmb*
5845      . hbcm3+fmb2*hbcm2)+8*(p3p7*p3p6)*(-4*ffmcfmb*fmb*hbcm+fmb*hbcm)
5846      . +8*(-2*fmb*hbcm*p1p3*p6p7+2*fmb*hbcm*p3p4*p6p7-fmb*hbcm*p3p6*
5847      . p4p7-2*fmb*hbcm*p3p7*p4p6+hbcm2*p1p5*p6p7-hbcm2*p2p5*p6p7-
5848      . hbcm2*p4p5*p6p7-hbcm2*p4p6*p5p7+hbcm2*p4p7*p5p6-2*p1p3*p3p5*
5849      . p6p7+2*p3p4*p3p5*p6p7-p3p5*p3p6*p4p7+p3p5*p3p6*p5p7-2*p3p5*
5850      . p3p7*p4p6))+ans2
5851       ans=ccc*ans1
5852       b(15)=ans
5853       ans=ccc*(w2*(4*p6p7*(-fmb*fmc*hbcm+fmb*hbcm2+fmb2*hbcm)+8*(p5p6
5854      . *p3p7)*(2*ffmcfmb*hbcm-hbcm)+8*(p5p7*p3p6)*(-2*ffmcfmb*hbcm+
5855      . hbcm)+4*(p6p7*p3p5)*(-2*ffmcfmb*hbcm+fmb-fmc+hbcm)+8*(hbcm*
5856      . p1p5*p6p7-hbcm*p2p5*p6p7-hbcm*p4p5*p6p7-hbcm*p4p6*p5p7+hbcm*
5857      . p4p7*p5p6))+w1*(4*p6p7*(-fmb*fmc*hbcm+fmc*hbcm2+3*fmc2*hbcm)+4
5858      . *(p4p6*p3p7)*(4*ffmcfmb*hbcm-hbcm)+4*(p6p7*p3p4)*(2*ffmcfmb*
5859      . hbcm-fmb+fmc+hbcm)+4*(-4*ffmcfmb*hbcm*p3p6*p4p7-4*hbcm*p1p4*
5860      . p6p7-hbcm*p4p6*p4p7-hbcm*p4p6*p5p7))+w5*(16*(p4p6*p3p7)*(
5861      . ffmcfmb*hbcm-hbcm)+4*(p6p7*p3p4)*(2*ffmcfmb*hbcm-fmb+fmc+hbcm)
5862      . +4*(p6p7*p1p3)*(-2*ffmcfmb*hbcm+fmb-fmc-hbcm)+2*p6p7*(ffmcfmb
5863      . **2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3-
5864      . fmb*fmc*hbcm+fmc*hbcm2+4*fmc2*hbcm)+8*(-ffmcfmb*hbcm*p3p6*p3p7
5865      . -ffmcfmb*hbcm*p3p6*p4p7-3*ffmcfmb*hbcm*p3p6*p5p7-2*hbcm*p1p4*
5866      . p6p7-4*hbcm*p4p6*p5p7))+4*p6p7*(-2*fb1*hbcm+2*fb2*fmb-2*fb2*
5867      . fmc+hbcm))
5868       b(16)=ans
5869       do 200 n=1,16
5870          c(n,1)=c(n,1)+0.1818181818181818d0*b(n)
5871          c(n,2)=c(n,2)+0.9833321660356334d0*b(n)
5872 200   continue
5873       return
5874       end
5875
5876       subroutine amp35_3p0(cc)
5877       implicit double precision(a-h,o-z)
5878       implicit integer (i-n)
5879       dimension b(16)
5880 #include "inclcon.h"
5881 #include "inclppp.h"
5882 #include "inclamp.h"
5883       do 100 n=1,16
5884          b(n)=0.0d0
5885 100   continue
5886       ccc=cc/((ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*p3p5+fmb2+
5887      . hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p2p3+2*ffmcfmb*p3p4+
5888      . fmc2-2*p2p4)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2))
5889       ans5=4*(ffmcfmb*fmc*hbcm2*p3p6*p5p7-2*ffmcfmb*hbcm*p1p2*p3p6*
5890      . p3p7+2*ffmcfmb*hbcm*p1p3*p3p6*p4p7-4*ffmcfmb*hbcm*p1p3*p3p7*
5891      . p4p6+ffmcfmb*hbcm*p2p3*p3p6*p5p7+2*ffmcfmb*hbcm*p2p5*p3p6*p3p7
5892      . +ffmcfmb*hbcm*p3p4*p3p6*p5p7-2*ffmcfmb*hbcm*p3p5*p3p6*p4p7+4*
5893      . ffmcfmb*hbcm*p3p5*p3p7*p4p6-ffmcfmb*hbcm3*p2p5*p6p7+ffmcfmb*
5894      . hbcm3*p4p7*p5p6+fmc*hbcm2*p1p4*p6p7+fmc*hbcm2*p4p5*p6p7+fmc*
5895      . hbcm2*p4p6*p5p7+fmc*p1p3*p2p3*p6p7+fmc*p3p4*p3p5*p6p7+fmc2*
5896      . hbcm*p1p3*p6p7-hbcm*p1p2*p2p3*p6p7+3*hbcm*p1p2*p3p4*p6p7-4*
5897      . hbcm*p1p2*p3p6*p4p7+2*hbcm*p1p2*p3p7*p4p6-4*hbcm*p1p3*p2p4*
5898      . p6p7-2*hbcm*p1p3*p4p6*p4p7+hbcm*p1p4*p2p3*p6p7+hbcm*p1p4*p3p4*
5899      . p6p7-6*hbcm*p2p3*p2p4*p6p7+3*hbcm*p2p3*p2p5*p6p7+hbcm*p2p3*
5900      . p4p5*p6p7+4*hbcm*p2p3*p4p6*p4p7+hbcm*p2p3*p4p6*p5p7-3*hbcm*
5901      . p2p3*p4p7*p5p6-2*hbcm*p2p4*p3p4*p6p7+4*hbcm*p2p4*p3p5*p6p7-4*
5902      . hbcm*p2p4*p3p6*p4p7+2*hbcm*p2p4*p3p7*p5p6-hbcm*p2p5*p3p4*p6p7+
5903      . 4*hbcm*p2p5*p3p6*p4p7-2*hbcm*p2p5*p3p7*p4p6+hbcm*p3p4*p4p5*
5904      . p6p7+2*hbcm*p3p4*p4p6*p4p7+hbcm*p3p4*p4p6*p5p7-hbcm*p3p4*p4p7*
5905      . p5p6+2*hbcm*p3p5*p4p6*p4p7)
5906       ans4=2*(p6p7*p3p4)*(-ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2-3*
5907      . ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3+fmb*fmc*hbcm+3*fmc*hbcm2)+2*(
5908      . p6p7*p2p3)*(-ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*
5909      . hbcm2+3*ffmcfmb*hbcm3-3*fmb*fmc*hbcm+fmc*hbcm2+8*fmc2*hbcm)+4*
5910      . (p3p7*p3p6*p3p4)*(3*ffmcfmb**2*hbcm-ffmcfmb*fmb+4*ffmcfmb*fmc+
5911      . 3*ffmcfmb*hbcm-fmc)+4*(p3p7*p3p6*p2p3)*(-3*ffmcfmb**2*hbcm+
5912      . ffmcfmb*fmb-4*ffmcfmb*fmc+5*ffmcfmb*hbcm+fmc)+2*p6p7*(-3*
5913      . ffmcfmb**2*fmc*hbcm4+ffmcfmb*fmb*fmc*hbcm3+3*ffmcfmb*fmc*hbcm4
5914      . -ffmcfmb*fmc2*hbcm3-8*ffmcfmb*hbcm*p2p3s2-fmb*fmc2*hbcm2+4*fmb
5915      . *p2p3s2-6*fmc*p2p3s2-2*fmc*p3p4s2-fmc2*hbcm3+2*fmc3*hbcm2+2*
5916      . hbcm*p2p3s2+2*hbcm*p3p4s2)+4*(p3p7*p3p6)*(-ffmcfmb**2*fmc*
5917      . hbcm2-ffmcfmb*fmb*fmc*hbcm+5*ffmcfmb*fmc*hbcm2+4*ffmcfmb*fmc2*
5918      . hbcm-fmc2*hbcm)+ans5
5919       ans3=8*(p6p7*p3p4*p2p3)*(-fmb+2*fmc+hbcm)+4*(p4p7*p4p6)*(-2*
5920      . ffmcfmb*hbcm3+fmb*hbcm2+fmc*hbcm2+hbcm3)+4*(p6p7*p2p4)*(-
5921      . ffmcfmb*hbcm3+2*fmb*hbcm2-3*fmc*hbcm2+2*hbcm3)+4*(p6p7*p1p2)*(
5922      . ffmcfmb*hbcm3+2*fmc*hbcm2)+4*(p5p6*p3p7*p3p4)*(-3*ffmcfmb*hbcm
5923      . -fmc)+4*(p4p6*p3p7*p3p4)*(2*ffmcfmb*hbcm+fmb-fmc)+4*(p4p7*p3p6
5924      . *p3p4)*(ffmcfmb*hbcm-2*fmb+4*fmc+5*hbcm)+8*(p3p7*p3p6*p2p4)*(-
5925      . 3*ffmcfmb*hbcm+hbcm)+4*(p5p6*p3p7*p2p3)*(-ffmcfmb*hbcm+fmc)+4*
5926      . (p4p6*p3p7*p2p3)*(2*ffmcfmb*hbcm-fmb+fmc)+4*(p4p7*p3p6*p2p3)*(
5927      . ffmcfmb*hbcm+2*fmb-4*fmc+3*hbcm)+4*(p6p7*p3p5*p2p3)*(2*ffmcfmb
5928      . *hbcm-fmc)+4*(p6p7*p3p4*p1p3)*(2*ffmcfmb*hbcm-fmc)+4*(p5p6*
5929      . p3p7)*(-ffmcfmb*fmc*hbcm2-fmc2*hbcm)+4*(p6p7*p3p5)*(2*ffmcfmb*
5930      . fmc*hbcm2-fmc2*hbcm)+4*(p4p6*p3p7)*(-2*ffmcfmb**2*hbcm3+2*
5931      . ffmcfmb*fmb*hbcm2+2*ffmcfmb*hbcm3+fmb*fmc*hbcm-fmc2*hbcm)+4*(
5932      . p4p7*p3p6)*(-ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*
5933      . hbcm2-2*fmb*fmc*hbcm+6*fmc*hbcm2+4*fmc2*hbcm)+ans4
5934       ans2=w11*ans3
5935       ans8=2*p6p7*(-3*ffmcfmb**2*fmc*hbcm4+ffmcfmb*fmb*fmc*hbcm3+3*
5936      . ffmcfmb*fmc*hbcm4-ffmcfmb*fmc2*hbcm3-fmb*fmc2*hbcm2-2*fmc*
5937      . p3p4s2-fmc2*hbcm3+2*fmc3*hbcm2+2*hbcm*p3p4s2)+4*(p3p7*p3p6)*(-
5938      . ffmcfmb**2*fmc*hbcm2-ffmcfmb*fmb*fmc*hbcm+5*ffmcfmb*fmc*hbcm2+
5939      . 4*ffmcfmb*fmc2*hbcm-fmc2*hbcm)+4*(ffmcfmb*fmc*hbcm2*p3p6*p5p7+
5940      . 2*ffmcfmb*hbcm*p1p3*p3p6*p4p7-4*ffmcfmb*hbcm*p1p3*p3p7*p4p6+2*
5941      . ffmcfmb*hbcm*p2p3*p3p6*p4p7-4*ffmcfmb*hbcm*p2p3*p3p7*p4p6+
5942      . ffmcfmb*hbcm*p3p4*p3p6*p5p7-2*ffmcfmb*hbcm*p3p5*p3p6*p4p7+4*
5943      . ffmcfmb*hbcm*p3p5*p3p7*p4p6+ffmcfmb*hbcm3*p4p7*p5p6+3*fmc*
5944      . hbcm2*p1p2*p6p7+fmc*hbcm2*p1p4*p6p7-fmc*hbcm2*p2p5*p6p7+fmc*
5945      . hbcm2*p4p5*p6p7+fmc*hbcm2*p4p6*p5p7+fmc*p3p4*p3p5*p6p7+fmc2*
5946      . hbcm*p1p3*p6p7+3*hbcm*p1p2*p3p4*p6p7-4*hbcm*p1p3*p2p4*p6p7-2*
5947      . hbcm*p1p3*p4p6*p4p7+hbcm*p1p4*p3p4*p6p7-4*hbcm*p2p3*p2p4*p6p7-
5948      . 2*hbcm*p2p3*p4p6*p4p7-2*hbcm*p2p4*p3p4*p6p7+4*hbcm*p2p4*p3p5*
5949      . p6p7-hbcm*p2p5*p3p4*p6p7+hbcm*p3p4*p4p5*p6p7+2*hbcm*p3p4*p4p6*
5950      . p4p7+hbcm*p3p4*p4p6*p5p7-hbcm*p3p4*p4p7*p5p6+2*hbcm*p3p5*p4p6*
5951      . p4p7)
5952       ans7=4*(p6p7*p2p3)*(-2*fmb*fmc*hbcm+fmc*hbcm2+5*fmc2*hbcm)+4*(
5953      . p4p7*p4p6)*(-2*ffmcfmb*hbcm3+fmb*hbcm2+fmc*hbcm2+hbcm3)+8*(
5954      . p6p7*p2p4)*(-ffmcfmb*hbcm3+fmb*hbcm2-fmc*hbcm2+hbcm3)+4*(p5p6*
5955      . p3p7*p3p4)*(-3*ffmcfmb*hbcm-fmc)+4*(p4p6*p3p7*p3p4)*(2*ffmcfmb
5956      . *hbcm+fmb-fmc)+4*(p4p7*p3p6*p3p4)*(ffmcfmb*hbcm-2*fmb+4*fmc+5*
5957      . hbcm)+4*(p6p7*p3p4*p2p3)*(2*ffmcfmb*hbcm-2*fmb+3*fmc+hbcm)+4*(
5958      . p6p7*p3p4*p1p3)*(2*ffmcfmb*hbcm-fmc)+4*(p5p6*p3p7)*(-ffmcfmb*
5959      . fmc*hbcm2-fmc2*hbcm)+4*(p6p7*p3p5)*(2*ffmcfmb*fmc*hbcm2-fmc2*
5960      . hbcm)+4*(p4p6*p3p7)*(-2*ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*hbcm2+2
5961      . *ffmcfmb*hbcm3+fmb*fmc*hbcm-fmc2*hbcm)+4*(p4p7*p3p6)*(-ffmcfmb
5962      . **2*hbcm3-ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-2*fmb*fmc*hbcm+6
5963      . *fmc*hbcm2+4*fmc2*hbcm)+2*(p6p7*p3p4)*(-ffmcfmb**2*hbcm3-
5964      . ffmcfmb*fmb*hbcm2-3*ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3+fmb*fmc*
5965      . hbcm+3*fmc*hbcm2)+4*(p3p7*p3p6*p3p4)*(3*ffmcfmb**2*hbcm-
5966      . ffmcfmb*fmb+4*ffmcfmb*fmc+3*ffmcfmb*hbcm-fmc)+ans8
5967       ans6=w1*ans7
5968       ans12=4*(-2*ffmcfmb*hbcm*p1p3*p3p7*p5p6-2*ffmcfmb*hbcm*p1p5*
5969      . p3p6*p3p7+ffmcfmb*hbcm*p3p5*p3p6*p5p7+fmb*fmc*hbcm*p1p3*p6p7+3
5970      . *fmb*hbcm2*p1p2*p6p7+fmb*hbcm2*p1p4*p6p7+2*fmb*hbcm2*p2p4*p6p7
5971      . +4*fmb*hbcm2*p4p6*p4p7+fmc*p1p3*p3p5*p6p7+3*hbcm*p1p2*p3p5*
5972      . p6p7-2*hbcm*p1p2*p3p7*p5p6+hbcm*p1p4*p3p5*p6p7-2*hbcm*p1p4*
5973      . p3p7*p5p6-4*hbcm*p1p5*p2p3*p6p7-4*hbcm*p1p5*p3p6*p4p7+2*hbcm*
5974      . p1p5*p3p7*p4p6+4*hbcm*p2p3*p2p5*p6p7-4*hbcm*p2p3*p4p5*p6p7+4*
5975      . hbcm*p2p3*p4p6*p5p7-4*hbcm*p2p3*p4p7*p5p6+2*hbcm*p2p4*p3p5*
5976      . p6p7-hbcm*p2p5*p3p5*p6p7+4*hbcm*p2p5*p3p6*p4p7-4*hbcm*p2p5*
5977      . p3p7*p4p6+hbcm*p3p5*p4p5*p6p7+6*hbcm*p3p5*p4p6*p4p7+hbcm*p3p5*
5978      . p4p6*p5p7+5*hbcm*p3p5*p4p7*p5p6-4*hbcm*p3p6*p4p5*p4p7)
5979       ans11=4*(p5p6*p3p7)*(ffmcfmb**2*hbcm3+3*ffmcfmb*fmb*hbcm2-3*
5980      . ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3+fmb*fmc*hbcm+fmc*hbcm2)+4*(
5981      . p5p7*p3p6)*(-2*ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2+2*ffmcfmb*
5982      . fmc*hbcm2+ffmcfmb*hbcm3-fmc*hbcm2)+2*(p6p7*p3p5)*(-ffmcfmb**2*
5983      . hbcm3+3*ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+3*ffmcfmb*hbcm3-
5984      . fmb*fmc*hbcm-fmc*hbcm2-2*fmc2*hbcm)+4*(p3p7*p3p6*p3p5)*(-3*
5985      . ffmcfmb**2*hbcm+ffmcfmb*fmb-4*ffmcfmb*fmc+5*ffmcfmb*hbcm+fmc)+
5986      . 2*p6p7*(-3*ffmcfmb**2*fmb*hbcm4+3*ffmcfmb*fmb*fmc*hbcm3+3*
5987      . ffmcfmb*fmb*hbcm4-ffmcfmb*fmb2*hbcm3+4*ffmcfmb*hbcm*p3p5s2-fmb
5988      . *fmc*hbcm3-2*fmb*fmc2*hbcm2+fmb2*fmc*hbcm2-2*fmc*p3p5s2)+4*(
5989      . p3p7*p3p6)*(-ffmcfmb**2*fmb*hbcm2-4*ffmcfmb*fmb*fmc*hbcm+5*
5990      . ffmcfmb*fmb*hbcm2+ffmcfmb*fmb2*hbcm+fmb*fmc*hbcm)+ans12
5991       ans10=4*(p6p7*p2p3)*(-3*fmb*fmc*hbcm+fmb*hbcm2+2*fmb2*hbcm)+4*(
5992      . p5p6*p4p7)*(-2*ffmcfmb*hbcm3+3*fmb*hbcm2-2*fmc*hbcm2+4*hbcm3)+
5993      . 4*(p5p7*p4p6)*(-ffmcfmb*hbcm3+fmb*hbcm2+fmc*hbcm2)+4*(p6p7*
5994      . p4p5)*(ffmcfmb*hbcm3+fmb*hbcm2-fmc*hbcm2)+4*(p6p7*p2p5)*(-
5995      . ffmcfmb*hbcm3-fmb*hbcm2+fmc*hbcm2)+4*(p6p7*p1p5)*(ffmcfmb*
5996      . hbcm3-fmc*hbcm2)+8*(p4p5*p3p7*p3p6)*(-3*ffmcfmb*hbcm+hbcm)+4*(
5997      . p5p6*p3p7*p3p5)*(5*ffmcfmb*hbcm+fmc)+4*(p4p6*p3p7*p3p5)*(6*
5998      . ffmcfmb*hbcm-fmb+fmc)+4*(p4p7*p3p6*p3p5)*(-ffmcfmb*hbcm+2*fmb-
5999      . 4*fmc+3*hbcm)+8*(p5p6*p3p7*p3p4)*(ffmcfmb*hbcm-hbcm)+4*(p6p7*
6000      . p3p5*p3p4)*(-2*ffmcfmb*hbcm+fmc+hbcm)+8*(p3p7*p3p6*p2p5)*(-
6001      . ffmcfmb*hbcm+hbcm)+8*(p5p6*p3p7*p2p3)*(-3*ffmcfmb*hbcm+hbcm)+
6002      . 16*(p5p7*p3p6*p2p3)*(2*ffmcfmb*hbcm-hbcm)+4*(p6p7*p3p5*p2p3)*(
6003      . -4*ffmcfmb*hbcm+2*fmb-3*fmc+hbcm)+4*(p4p6*p3p7)*(4*ffmcfmb*fmb
6004      . *hbcm2+fmb*fmc*hbcm-fmb2*hbcm)+4*(p4p7*p3p6)*(-ffmcfmb*fmb*
6005      . hbcm2-4*fmb*fmc*hbcm+5*fmb*hbcm2+2*fmb2*hbcm)+4*(p6p7*p3p4)*(-
6006      . 2*ffmcfmb*fmb*hbcm2+fmb*fmc*hbcm+fmb*hbcm2)+ans11
6007       ans9=w2*ans10
6008       ans13=(4*(p6p7*p1p3)*(2*fb2*fmc-3*hbcm)+4*(p6p7*p2p3)*(-2*fb1*
6009      . hbcm+4*fb2*fmb-6*fb2*fmc-11*hbcm)+2*(p5p6*p3p7)*(-4*fb1*
6010      . ffmcfmb*hbcm+4*fb2*fmc-hbcm)+8*(p4p6*p3p7)*(-2*fb1*ffmcfmb*
6011      . hbcm-fb2*fmb+fb2*fmc+2*hbcm)+2*(p5p7*p3p6)*(-4*fb1*ffmcfmb*
6012      . hbcm+5*hbcm)+2*(p4p7*p3p6)*(20*fb1*ffmcfmb*hbcm-28*fb1*hbcm+8*
6013      . fb2*fmb-16*fb2*fmc-9*hbcm)+8*(p6p7*p3p5)*(-2*fb1*ffmcfmb*hbcm-
6014      . fb2*fmc+4*hbcm)+8*(p6p7*p3p4)*(2*fb1*ffmcfmb*hbcm-fb1*hbcm+fb2
6015      . *fmc)+p6p7*(12*fb1*ffmcfmb**2*hbcm3-12*fb1*ffmcfmb*hbcm3-4*fb1
6016      . *fmb*fmc*hbcm+8*fb1*fmc2*hbcm-4*fb2*ffmcfmb*fmb*hbcm2+12*fb2*
6017      . ffmcfmb*fmc*hbcm2-4*fb2*fmc*hbcm2+17*fmb*hbcm2-15*fmc*hbcm2+15
6018      . *hbcm3)+2*(p3p7*p3p6)*(20*fb1*ffmcfmb**2*hbcm-28*fb1*ffmcfmb*
6019      . hbcm+4*fb2*ffmcfmb*fmb-16*fb2*ffmcfmb*fmc+4*fb2*fmc-12*ffmcfmb
6020      . *hbcm+fmb-4*fmc+11*hbcm)+8*(-3*fb1*hbcm*p1p2*p6p7-fb1*hbcm*
6021      . p1p4*p6p7-2*fb1*hbcm*p2p4*p6p7+fb1*hbcm*p2p5*p6p7-fb1*hbcm*
6022      . p4p5*p6p7-2*fb1*hbcm*p4p6*p4p7-fb1*hbcm*p4p6*p5p7-fb1*hbcm*
6023      . p4p7*p5p6))
6024       ans1=ans2+ans6+ans9+ans13
6025       ans=ccc*ans1
6026       b(1)=ans
6027       ans3=w2*(12*p4p7*(fmb*fmc*hbcm-fmb*hbcm2-fmb2*hbcm)+2*(p5p7*
6028      . p3p5)*(ffmcfmb*hbcm-fmc)+4*(p4p7*p3p5)*(2*ffmcfmb*hbcm-3*fmb+3
6029      . *fmc-3*hbcm)+2*p5p7*(ffmcfmb*fmb*hbcm2-fmb*fmc*hbcm)+2*(p3p7*
6030      . p3p5)*(3*ffmcfmb**2*hbcm-6*ffmcfmb*fmb+7*ffmcfmb*fmc-5*ffmcfmb
6031      . *hbcm-fmc)+2*p3p7*(-ffmcfmb**2*fmb*hbcm2+7*ffmcfmb*fmb*fmc*
6032      . hbcm-5*ffmcfmb*fmb*hbcm2-6*ffmcfmb*fmb2*hbcm-fmb*fmc*hbcm)+8*(
6033      . ffmcfmb*hbcm*p1p5*p3p7-ffmcfmb*hbcm*p2p5*p3p7+ffmcfmb*hbcm*
6034      . p3p7*p4p5+hbcm*p1p5*p4p7-hbcm*p2p5*p4p7+hbcm*p4p5*p4p7))+(12*
6035      . p4p7*(2*fb1*hbcm-2*fb2*fmb+2*fb2*fmc+hbcm)+p5p7*(-4*fb1*
6036      . ffmcfmb*hbcm-4*fb2*fmc-13*hbcm)+p3p7*(4*fb1*ffmcfmb**2*hbcm+20
6037      . *fb1*ffmcfmb*hbcm-24*fb2*ffmcfmb*fmb+28*fb2*ffmcfmb*fmc-4*fb2*
6038      . fmc+12*ffmcfmb*hbcm-6*fmb+7*fmc-7*hbcm))
6039       ans2=w1*(2*(p5p7*p3p4)*(-ffmcfmb*hbcm+fmc)+4*(p4p7*p3p4)*(-
6040      . ffmcfmb*hbcm+3*fmb-3*fmc-2*hbcm)+8*(p3p7*p2p4)*(-ffmcfmb*hbcm+
6041      . hbcm)+4*(p4p7*p2p3)*(ffmcfmb*hbcm-hbcm)+2*p5p7*(ffmcfmb*fmc*
6042      . hbcm2-fmc2*hbcm)+4*p4p7*(ffmcfmb**2*hbcm3-ffmcfmb*hbcm3+3*fmb*
6043      . fmc*hbcm-3*fmc*hbcm2-3*fmc2*hbcm)+2*(p3p7*p3p4)*(-3*ffmcfmb**2
6044      . *hbcm+6*ffmcfmb*fmb-7*ffmcfmb*fmc-3*ffmcfmb*hbcm+fmc)+2*p3p7*(
6045      . -ffmcfmb**2*fmc*hbcm2+6*ffmcfmb*fmb*fmc*hbcm-5*ffmcfmb*fmc*
6046      . hbcm2-5*ffmcfmb*fmc2*hbcm-fmc2*hbcm)+4*(-ffmcfmb*hbcm*p1p3*
6047      . p4p7+2*ffmcfmb*hbcm*p1p4*p3p7-ffmcfmb*hbcm*p3p5*p4p7+2*ffmcfmb
6048      . *hbcm*p3p7*p4p5-hbcm*p1p2*p4p7+hbcm*p1p4*p4p7+2*hbcm*p2p4*p5p7
6049      . -hbcm*p2p5*p4p7+hbcm*p4p5*p4p7))+ans3
6050       ans1=w11*(2*(p5p7*p3p4)*(-ffmcfmb*hbcm+fmc)+4*(p4p7*p3p4)*(-
6051      . ffmcfmb*hbcm+3*fmb-3*fmc-2*hbcm)+2*(p5p7*p2p3)*(ffmcfmb*hbcm-
6052      . fmc)+4*(p4p7*p2p3)*(3*ffmcfmb*hbcm-3*fmb+3*fmc-4*hbcm)+2*p5p7*
6053      . (ffmcfmb*fmc*hbcm2-fmc2*hbcm)+4*p4p7*(ffmcfmb**2*hbcm3-ffmcfmb
6054      . *hbcm3+3*fmb*fmc*hbcm-3*fmc*hbcm2-3*fmc2*hbcm)+2*(p3p7*p3p4)*(
6055      . -3*ffmcfmb**2*hbcm+6*ffmcfmb*fmb-7*ffmcfmb*fmc-3*ffmcfmb*hbcm+
6056      . fmc)+2*(p3p7*p2p3)*(3*ffmcfmb**2*hbcm-6*ffmcfmb*fmb+7*ffmcfmb*
6057      . fmc-5*ffmcfmb*hbcm-fmc)+2*p3p7*(-ffmcfmb**2*fmc*hbcm2+6*
6058      . ffmcfmb*fmb*fmc*hbcm-5*ffmcfmb*fmc*hbcm2-5*ffmcfmb*fmc2*hbcm-
6059      . fmc2*hbcm)+4*(2*ffmcfmb*hbcm*p1p2*p3p7-ffmcfmb*hbcm*p1p3*p4p7+
6060      . 2*ffmcfmb*hbcm*p1p4*p3p7-6*ffmcfmb*hbcm*p2p5*p3p7-ffmcfmb*hbcm
6061      . *p3p5*p4p7+2*ffmcfmb*hbcm*p3p7*p4p5+hbcm*p1p2*p4p7+hbcm*p1p4*
6062      . p4p7+2*hbcm*p2p4*p3p7+2*hbcm*p2p4*p4p7+2*hbcm*p2p4*p5p7-7*hbcm
6063      . *p2p5*p4p7+hbcm*p4p5*p4p7))+ans2
6064       ans=ccc*ans1
6065       b(2)=ans
6066       ans2=w2*(4*(p4p5*p3p6)*(ffmcfmb*hbcm-hbcm)+2*(p4p6*p3p5)*(
6067      . ffmcfmb*hbcm+fmb-2*fmc+hbcm)+4*(p5p6*p3p4)*(-ffmcfmb*hbcm+hbcm
6068      . )+4*(p3p6*p2p5)*(3*ffmcfmb*hbcm-hbcm)+4*(p5p6*p2p3)*(-ffmcfmb*
6069      . hbcm+hbcm)+2*p4p6*(ffmcfmb*fmb*hbcm2-2*fmb*fmc*hbcm+fmb*hbcm2+
6070      . fmb2*hbcm)+4*p5p6*(-ffmcfmb**2*hbcm3+ffmcfmb*hbcm3)+2*(p3p6*
6071      . p3p5)*(3*ffmcfmb**2*hbcm+ffmcfmb*fmb-2*ffmcfmb*fmc-ffmcfmb*
6072      . hbcm)+2*p3p6*(ffmcfmb**2*fmb*hbcm2-2*ffmcfmb*fmb*fmc*hbcm+
6073      . ffmcfmb*fmb*hbcm2+ffmcfmb*fmb2*hbcm)+4*(ffmcfmb*hbcm*p1p3*p5p6
6074      . -ffmcfmb*hbcm*p1p5*p3p6+hbcm*p1p2*p5p6+hbcm*p1p4*p5p6-hbcm*
6075      . p1p5*p4p6+2*hbcm*p2p5*p4p6))+(p4p6*(-4*fb1*ffmcfmb*hbcm-4*fb1*
6076      . hbcm+4*fb2*fmb-8*fb2*fmc-11*hbcm)+p3p6*(-4*fb1*ffmcfmb**2*hbcm
6077      . -4*fb1*ffmcfmb*hbcm+4*fb2*ffmcfmb*fmb-8*fb2*ffmcfmb*fmc+12*
6078      . ffmcfmb*hbcm+fmb-2*fmc-13*hbcm))
6079       ans1=w11*(2*(p4p6*p3p4)*(-ffmcfmb*hbcm-fmb+2*fmc+hbcm)+4*(p3p6*
6080      . p2p4)*(5*ffmcfmb*hbcm-3*hbcm)+2*(p4p6*p2p3)*(ffmcfmb*hbcm+fmb-
6081      . 2*fmc+hbcm)+2*p4p6*(ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm+fmc*hbcm2)+
6082      . 2*(p3p6*p3p4)*(-3*ffmcfmb**2*hbcm-ffmcfmb*fmb+2*ffmcfmb*fmc+3*
6083      . ffmcfmb*hbcm)+2*(p3p6*p2p3)*(3*ffmcfmb**2*hbcm+ffmcfmb*fmb-2*
6084      . ffmcfmb*fmc-ffmcfmb*hbcm)+2*p3p6*(ffmcfmb**2*fmc*hbcm2-ffmcfmb
6085      . *fmb*fmc*hbcm+ffmcfmb*fmc*hbcm2-2*ffmcfmb*fmc2*hbcm+2*fmc2*
6086      . hbcm)+4*(-ffmcfmb*hbcm*p1p2*p3p6-ffmcfmb*hbcm*p2p3*p5p6+
6087      . ffmcfmb*hbcm*p2p5*p3p6+ffmcfmb*hbcm*p3p4*p5p6+fmc2*hbcm*p5p6-
6088      . hbcm*p1p2*p4p6+2*hbcm*p2p4*p4p6-3*hbcm*p2p4*p5p6+hbcm*p2p5*
6089      . p4p6))+w1*(2*(p4p6*p3p4)*(-ffmcfmb*hbcm-fmb+2*fmc+hbcm)+8*(
6090      . p3p6*p2p4)*(2*ffmcfmb*hbcm-hbcm)+2*p4p6*(ffmcfmb*fmc*hbcm2-fmb
6091      . *fmc*hbcm+fmc*hbcm2)+2*(p3p6*p3p4)*(-3*ffmcfmb**2*hbcm-ffmcfmb
6092      . *fmb+2*ffmcfmb*fmc+3*ffmcfmb*hbcm)+2*p3p6*(ffmcfmb**2*fmc*
6093      . hbcm2-ffmcfmb*fmb*fmc*hbcm+ffmcfmb*fmc*hbcm2-2*ffmcfmb*fmc2*
6094      . hbcm+2*fmc2*hbcm)+4*(ffmcfmb*hbcm*p3p4*p5p6+fmc2*hbcm*p5p6+2*
6095      . hbcm*p2p4*p4p6-2*hbcm*p2p4*p5p6))+ans2
6096       ans=ccc*ans1
6097       b(3)=ans
6098       ans4=2*p6p7*(ffmcfmb**2*fmc*hbcm3+ffmcfmb*fmb*fmc*hbcm2-3*
6099      . ffmcfmb*fmc*hbcm3+3*ffmcfmb*fmc2*hbcm2-2*ffmcfmb*p2p3s2+2*
6100      . ffmcfmb*p3p4s2-fmb*fmc2*hbcm+fmc2*hbcm2-2*fmc3*hbcm+2*p2p3s2-2
6101      . *p3p4s2)+4*(-ffmcfmb*fmc*hbcm*p1p3*p6p7-ffmcfmb*fmc*hbcm*p3p5*
6102      . p6p7-3*ffmcfmb*fmc*hbcm*p3p6*p3p7-ffmcfmb*fmc*hbcm*p3p6*p5p7+2
6103      . *ffmcfmb*fmc*hbcm*p3p7*p5p6+ffmcfmb*p1p3*p2p3*p6p7-ffmcfmb*
6104      . p1p3*p3p4*p6p7+ffmcfmb*p2p3*p3p5*p6p7+ffmcfmb*p2p3*p3p6*p5p7-
6105      . ffmcfmb*p3p4*p3p5*p6p7-ffmcfmb*p3p4*p3p6*p5p7-fmc*hbcm*p1p2*
6106      . p6p7-fmc*hbcm*p1p4*p6p7-fmc*hbcm*p2p5*p6p7-fmc*hbcm*p4p5*p6p7-
6107      . fmc*hbcm*p4p6*p5p7+p1p2*p2p3*p6p7-p1p2*p3p4*p6p7+p1p4*p2p3*
6108      . p6p7-p1p4*p3p4*p6p7+4*p2p3*p2p4*p6p7+p2p3*p2p5*p6p7+p2p3*p4p5*
6109      . p6p7+4*p2p3*p4p6*p4p7+p2p3*p4p6*p5p7-p2p3*p4p7*p5p6-4*p2p4*
6110      . p3p4*p6p7-p2p5*p3p4*p6p7-p3p4*p4p5*p6p7-4*p3p4*p4p6*p4p7-p3p4*
6111      . p4p6*p5p7+p3p4*p4p7*p5p6)
6112       ans3=(p4p6*p3p7*p3p4)*(-16*ffmcfmb-4)+(p4p7*p3p6*p3p4)*(12*
6113      . ffmcfmb-12)+(p4p6*p3p7*p2p3)*(16*ffmcfmb+4)+(p4p7*p3p6*p2p3)*(
6114      . -12*ffmcfmb+12)+4*(p5p6*p4p7)*(ffmcfmb*hbcm2+2*fmc*hbcm)+4*(
6115      . p4p7*p4p6)*(-2*ffmcfmb*hbcm2+fmb*hbcm-3*fmc*hbcm-hbcm2)+8*(
6116      . p6p7*p2p4)*(-2*ffmcfmb*hbcm2+fmb*hbcm+fmc*hbcm-hbcm2)+4*(p3p7*
6117      . p3p6*p3p4)*(4*ffmcfmb**2-5*ffmcfmb)+4*(p3p7*p3p6*p2p3)*(-4*
6118      . ffmcfmb**2+5*ffmcfmb)+4*(p4p6*p3p7)*(-2*ffmcfmb**2*hbcm2+2*
6119      . ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*hbcm-2*ffmcfmb*hbcm2-fmc*hbcm)+
6120      . 4*(p4p7*p3p6)*(-ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm-ffmcfmb*fmc*
6121      . hbcm+2*ffmcfmb*hbcm2-2*fmc*hbcm)+2*(p6p7*p3p4)*(3*ffmcfmb**2*
6122      . hbcm2-ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2+fmb*fmc-
6123      . 3*fmc*hbcm+2*fmc2)+2*(p6p7*p2p3)*(-3*ffmcfmb**2*hbcm2+ffmcfmb*
6124      . fmb*hbcm+5*ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-fmb*fmc-fmc*hbcm-2*
6125      . fmc2)+ans4
6126       ans2=w11*ans3
6127       ans7=4*(-ffmcfmb*fmc*hbcm*p1p3*p6p7-ffmcfmb*fmc*hbcm*p3p5*p6p7-
6128      . 3*ffmcfmb*fmc*hbcm*p3p6*p3p7-ffmcfmb*fmc*hbcm*p3p6*p5p7+2*
6129      . ffmcfmb*fmc*hbcm*p3p7*p5p6-ffmcfmb*p1p3*p3p4*p6p7-ffmcfmb*p3p4
6130      . *p3p5*p6p7-ffmcfmb*p3p4*p3p6*p5p7-fmc*hbcm*p1p2*p6p7-fmc*hbcm*
6131      . p1p4*p6p7-fmc*hbcm*p2p5*p6p7-fmc*hbcm*p4p5*p6p7-fmc*hbcm*p4p6*
6132      . p5p7-p1p2*p3p4*p6p7-p1p4*p3p4*p6p7-4*p2p4*p3p4*p6p7-p2p5*p3p4*
6133      . p6p7-p3p4*p4p5*p6p7-4*p3p4*p4p6*p4p7-p3p4*p4p6*p5p7+p3p4*p4p7*
6134      . p5p6)
6135       ans6=(p4p6*p3p7*p3p4)*(-16*ffmcfmb-4)+(p4p7*p3p6*p3p4)*(12*
6136      . ffmcfmb-12)+(p6p7*p3p4*p2p3)*(4*ffmcfmb-4)+4*(p5p6*p4p7)*(
6137      . ffmcfmb*hbcm2+2*fmc*hbcm)+4*(p4p7*p4p6)*(-2*ffmcfmb*hbcm2+fmb*
6138      . hbcm-3*fmc*hbcm-hbcm2)+8*(p6p7*p2p4)*(-ffmcfmb*hbcm2+fmb*hbcm-
6139      . hbcm2)+4*(p6p7*p2p3)*(ffmcfmb*fmc*hbcm-fmc*hbcm)+4*(p3p7*p3p6*
6140      . p3p4)*(4*ffmcfmb**2-5*ffmcfmb)+4*(p4p6*p3p7)*(-2*ffmcfmb**2*
6141      . hbcm2+2*ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*hbcm-2*ffmcfmb*hbcm2-
6142      . fmc*hbcm)+4*(p4p7*p3p6)*(-ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm-
6143      . ffmcfmb*fmc*hbcm+2*ffmcfmb*hbcm2-2*fmc*hbcm)+2*(p6p7*p3p4)*(3*
6144      . ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm-ffmcfmb*
6145      . hbcm2+fmb*fmc-3*fmc*hbcm+2*fmc2)+2*p6p7*(ffmcfmb**2*fmc*hbcm3+
6146      . ffmcfmb*fmb*fmc*hbcm2-3*ffmcfmb*fmc*hbcm3+3*ffmcfmb*fmc2*hbcm2
6147      . +2*ffmcfmb*p3p4s2-fmb*fmc2*hbcm+fmc2*hbcm2-2*fmc3*hbcm-2*
6148      . p3p4s2)+ans7
6149       ans5=w1*ans6
6150       ans10=2*p6p7*(-ffmcfmb**2*fmb*hbcm3+ffmcfmb*fmb*fmc*hbcm2+3*
6151      . ffmcfmb*fmb*hbcm3+ffmcfmb*fmb2*hbcm2+2*ffmcfmb*p3p5s2-fmb*fmc*
6152      . hbcm2-2*fmb*fmc2*hbcm-fmb2*fmc*hbcm)+4*(ffmcfmb*fmb*hbcm*p1p3*
6153      . p6p7+3*ffmcfmb*fmb*hbcm*p3p6*p3p7+ffmcfmb*p1p3*p3p5*p6p7+
6154      . ffmcfmb*p3p5*p3p6*p5p7+fmb*hbcm*p1p2*p6p7+fmb*hbcm*p1p4*p6p7+4
6155      . *fmb*hbcm*p2p4*p6p7+6*fmb*hbcm*p4p6*p4p7+p1p2*p3p5*p6p7+p1p4*
6156      . p3p5*p6p7+4*p2p4*p3p5*p6p7+p2p5*p3p5*p6p7+p3p5*p4p5*p6p7+4*
6157      . p3p5*p4p6*p4p7+p3p5*p4p6*p5p7-p3p5*p4p7*p5p6)
6158       ans9=(p4p6*p3p7*p3p5)*(16*ffmcfmb+4)+(p4p7*p3p6*p3p5)*(-12*
6159      . ffmcfmb+12)+(p6p7*p3p5*p3p4)*(-4*ffmcfmb+4)+(p6p7*p3p5*p2p3)*(
6160      . -4*ffmcfmb+4)+4*(p5p6*p4p7)*(2*ffmcfmb*hbcm2+fmb*hbcm+2*fmc*
6161      . hbcm-4*hbcm2)+4*(p5p7*p4p6)*(ffmcfmb*hbcm2+fmb*hbcm-fmc*hbcm)+
6162      . 4*(p6p7*p4p5)*(-ffmcfmb*hbcm2+fmb*hbcm+fmc*hbcm)+4*(p6p7*p2p5)
6163      . *(ffmcfmb*hbcm2+fmb*hbcm-fmc*hbcm)+4*(p6p7*p1p5)*(-ffmcfmb*
6164      . hbcm2+fmc*hbcm)+4*(p4p6*p3p7)*(6*ffmcfmb*fmb*hbcm+fmb*hbcm)+4*
6165      . (p4p7*p3p6)*(ffmcfmb*fmb*hbcm+fmb*hbcm)+4*(p6p7*p3p4)*(-
6166      . ffmcfmb*fmb*hbcm+fmb*hbcm)+4*(p6p7*p2p3)*(-ffmcfmb*fmb*hbcm+
6167      . fmb*hbcm)+4*(p3p7*p3p6*p3p5)*(-4*ffmcfmb**2+5*ffmcfmb)+4*(p5p6
6168      . *p3p7)*(ffmcfmb**2*hbcm2+2*ffmcfmb*fmb*hbcm+3*ffmcfmb*fmc*hbcm
6169      . -3*ffmcfmb*hbcm2-fmc*hbcm)+4*(p5p7*p3p6)*(2*ffmcfmb**2*hbcm2+
6170      . ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2+fmc*hbcm)+2*
6171      . (p6p7*p3p5)*(-3*ffmcfmb**2*hbcm2+3*ffmcfmb*fmb*hbcm+3*ffmcfmb*
6172      . fmc*hbcm+3*ffmcfmb*hbcm2-fmb*fmc-fmc*hbcm-2*fmc2)+ans10
6173       ans8=w2*ans9
6174       ans11=((p4p6*p3p7)*(32*fb2*ffmcfmb+8*fb2+8)+(p5p7*p3p6)*(8*fb2*
6175      . ffmcfmb+2)+(p4p7*p3p6)*(-24*fb2*ffmcfmb+24*fb2-6)+(p6p7*p3p5)*
6176      . (8*fb2*ffmcfmb+2)+(p6p7*p3p4)*(-8*fb2*ffmcfmb+8*fb2-2)+(p6p7*
6177      . p2p3)*(-8*fb2*ffmcfmb+8*fb2-2)+(p6p7*p1p3)*(8*fb2*ffmcfmb+2)+(
6178      . p3p7*p3p6)*(-32*fb2*ffmcfmb**2+40*fb2*ffmcfmb-16*ffmcfmb+10)+
6179      . p6p7*(-4*fb1*ffmcfmb*fmb*hbcm-4*fb1*ffmcfmb*fmc*hbcm+4*fb1*fmc
6180      . *hbcm-4*fb2*ffmcfmb**2*hbcm2+12*fb2*ffmcfmb*hbcm2-4*fb2*fmb*
6181      . fmc-8*fb2*fmc2-2*ffmcfmb*hbcm2+17*fmb*hbcm+15*fmc*hbcm-15*
6182      . hbcm2)+8*(fb2*p1p2*p6p7+fb2*p1p4*p6p7+4*fb2*p2p4*p6p7+fb2*p2p5
6183      . *p6p7+fb2*p4p5*p6p7+4*fb2*p4p6*p4p7+fb2*p4p6*p5p7-fb2*p4p7*
6184      . p5p6))
6185       ans1=ans2+ans5+ans8+ans11
6186       ans=ccc*ans1
6187       b(4)=ans
6188       ans4=2*p3p7*(ffmcfmb**2*fmc*hbcm3-6*ffmcfmb*fmb*fmc*hbcm2-3*
6189      . ffmcfmb*fmc*hbcm3-5*ffmcfmb*fmc2*hbcm2-10*ffmcfmb*p2p3s2+2*
6190      . ffmcfmb*p3p4s2-fmc2*hbcm2+2*p2p3s2+2*p3p4s2)+4*(3*ffmcfmb*fmc*
6191      . hbcm*p1p3*p3p7-5*ffmcfmb*fmc*hbcm*p3p5*p3p7-3*ffmcfmb*p1p3*
6192      . p2p3*p3p7+3*ffmcfmb*p1p3*p3p4*p3p7+5*ffmcfmb*p2p3*p3p5*p3p7-5*
6193      . ffmcfmb*p3p4*p3p5*p3p7+hbcm2*p1p2*p4p7+hbcm2*p1p4*p4p7+2*hbcm2
6194      . *p2p4*p3p7+2*hbcm2*p2p4*p4p7+2*hbcm2*p2p4*p5p7-7*hbcm2*p2p5*
6195      . p4p7+hbcm2*p4p5*p4p7-p1p2*p2p3*p3p7+p1p2*p3p4*p3p7-2*p1p3*p2p3
6196      . *p4p7+2*p1p3*p3p4*p4p7-p1p4*p2p3*p3p7+p1p4*p3p4*p3p7-p2p3*p2p5
6197      . *p3p7+2*p2p3*p3p4*p4p7-2*p2p3*p3p4*p5p7+6*p2p3*p3p5*p4p7-p2p3*
6198      . p3p7*p4p5+p2p5*p3p4*p3p7-6*p3p4*p3p5*p4p7+p3p4*p3p7*p4p5)
6199       ans3=(p3p7*p3p4*p2p3)*(16*ffmcfmb-8)+4*(p4p5*p3p7)*(2*ffmcfmb*
6200      . hbcm2+fmc*hbcm)+4*(p4p7*p3p5)*(-ffmcfmb*hbcm2-6*fmc*hbcm)+2*(
6201      . p5p7*p3p4)*(-ffmcfmb*hbcm2+fmc*hbcm)+4*(p4p7*p3p4)*(ffmcfmb*
6202      . hbcm2-3*fmb*hbcm-fmc*hbcm-2*hbcm2)+4*(p3p7*p2p5)*(-6*ffmcfmb*
6203      . hbcm2+fmc*hbcm)+2*(p5p7*p2p3)*(-ffmcfmb*hbcm2-3*fmc*hbcm)+4*(
6204      . p4p7*p2p3)*(ffmcfmb*hbcm2-3*fmb*hbcm+fmc*hbcm+2*hbcm2)+4*(p3p7
6205      . *p1p4)*(2*ffmcfmb*hbcm2+fmc*hbcm)+4*(p4p7*p1p3)*(-ffmcfmb*
6206      . hbcm2+2*fmc*hbcm)+4*(p3p7*p1p2)*(2*ffmcfmb*hbcm2+fmc*hbcm)+2*
6207      . p5p7*(ffmcfmb*fmc*hbcm3-fmc2*hbcm2+4*p2p3s2)+4*p4p7*(ffmcfmb**
6208      . 2*hbcm4+2*ffmcfmb*fmc*hbcm3-ffmcfmb*hbcm4-3*fmb*fmc*hbcm2-3*
6209      . fmc*hbcm3-3*fmc2*hbcm2-4*p2p3s2+2*p3p4s2)+2*(p3p7*p3p4)*(-
6210      . ffmcfmb**2*hbcm2-6*ffmcfmb*fmb*hbcm-5*ffmcfmb*fmc*hbcm-ffmcfmb
6211      . *hbcm2+3*fmc*hbcm)+2*(p3p7*p2p3)*(3*ffmcfmb**2*hbcm2-6*ffmcfmb
6212      . *fmb*hbcm+3*ffmcfmb*fmc*hbcm+3*ffmcfmb*hbcm2-fmc*hbcm)+ans4
6213       ans2=w11*ans3
6214       ans7=4*(3*ffmcfmb*fmc*hbcm*p1p3*p3p7-5*ffmcfmb*fmc*hbcm*p3p5*
6215      . p3p7+3*ffmcfmb*p1p3*p3p4*p3p7-5*ffmcfmb*p3p4*p3p5*p3p7+fmc*
6216      . hbcm*p1p2*p3p7-2*fmc*hbcm*p2p3*p5p7+fmc*hbcm*p2p5*p3p7-hbcm2*
6217      . p1p2*p4p7+hbcm2*p1p4*p4p7+2*hbcm2*p2p4*p5p7-hbcm2*p2p5*p4p7+
6218      . hbcm2*p4p5*p4p7+p1p2*p3p4*p3p7+2*p1p3*p3p4*p4p7+p1p4*p3p4*p3p7
6219      . +4*p2p3*p3p4*p4p7-2*p2p3*p3p4*p5p7+p2p5*p3p4*p3p7-6*p3p4*p3p5*
6220      . p4p7+p3p4*p3p7*p4p5)
6221       ans6=(p3p7*p3p4*p2p3)*(20*ffmcfmb-4)+4*(p4p5*p3p7)*(2*ffmcfmb*
6222      . hbcm2+fmc*hbcm)+4*(p4p7*p3p5)*(-ffmcfmb*hbcm2-6*fmc*hbcm)+2*(
6223      . p5p7*p3p4)*(-ffmcfmb*hbcm2+fmc*hbcm)+4*(p4p7*p3p4)*(ffmcfmb*
6224      . hbcm2-3*fmb*hbcm-fmc*hbcm-2*hbcm2)+8*(p3p7*p2p4)*(-ffmcfmb*
6225      . hbcm2+hbcm2)+4*(p4p7*p2p3)*(ffmcfmb*hbcm2+4*fmc*hbcm-hbcm2)+4*
6226      . (p3p7*p1p4)*(2*ffmcfmb*hbcm2+fmc*hbcm)+4*(p4p7*p1p3)*(-ffmcfmb
6227      . *hbcm2+2*fmc*hbcm)+2*p5p7*(ffmcfmb*fmc*hbcm3-fmc2*hbcm2)+4*(
6228      . p3p7*p2p3)*(5*ffmcfmb*fmc*hbcm-fmc*hbcm)+4*p4p7*(ffmcfmb**2*
6229      . hbcm4+2*ffmcfmb*fmc*hbcm3-ffmcfmb*hbcm4-3*fmb*fmc*hbcm2-3*fmc*
6230      . hbcm3-3*fmc2*hbcm2+2*p3p4s2)+2*(p3p7*p3p4)*(-ffmcfmb**2*hbcm2-
6231      . 6*ffmcfmb*fmb*hbcm-5*ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2+3*fmc*hbcm
6232      . )+2*p3p7*(ffmcfmb**2*fmc*hbcm3-6*ffmcfmb*fmb*fmc*hbcm2-3*
6233      . ffmcfmb*fmc*hbcm3-5*ffmcfmb*fmc2*hbcm2+2*ffmcfmb*p3p4s2-fmc2*
6234      . hbcm2+2*p3p4s2)+ans7
6235       ans5=w1*ans6
6236       ans10=4*(-3*ffmcfmb*fmb*hbcm*p1p3*p3p7+2*ffmcfmb*hbcm2*p1p5*
6237      . p3p7-3*ffmcfmb*p1p3*p3p5*p3p7-fmb*hbcm*p1p2*p3p7-2*fmb*hbcm*
6238      . p1p3*p4p7-fmb*hbcm*p1p4*p3p7-4*fmb*hbcm*p2p3*p4p7+2*fmb*hbcm*
6239      . p2p3*p5p7-2*fmb*hbcm*p3p4*p4p7+2*hbcm2*p1p5*p4p7-2*hbcm2*p2p5*
6240      . p4p7+2*hbcm2*p4p5*p4p7-p1p2*p3p5*p3p7-2*p1p3*p3p5*p4p7-p1p4*
6241      . p3p5*p3p7-4*p2p3*p3p5*p4p7+2*p2p3*p3p5*p5p7-p2p5*p3p5*p3p7-2*
6242      . p3p4*p3p5*p4p7-p3p5*p3p7*p4p5)
6243       ans9=12*(p4p7*p3p5)*(fmb*hbcm-fmc*hbcm+hbcm2)+(p3p7*p3p5*p3p4)*
6244      . (-4*ffmcfmb-4)+(p3p7*p3p5*p2p3)*(-20*ffmcfmb+4)+4*(p4p5*p3p7)*
6245      . (2*ffmcfmb*hbcm2-fmb*hbcm)+2*(p5p7*p3p5)*(-ffmcfmb*hbcm2+fmc*
6246      . hbcm)+4*(p3p7*p2p5)*(-2*ffmcfmb*hbcm2-fmb*hbcm)+2*p5p7*(-
6247      . ffmcfmb*fmb*hbcm3+fmb*fmc*hbcm2)+4*p4p7*(-2*ffmcfmb*fmb*hbcm3-
6248      . 3*fmb*fmc*hbcm2+3*fmb*hbcm3-3*fmb2*hbcm2+6*p3p5s2)+4*(p3p7*
6249      . p3p4)*(-ffmcfmb*fmb*hbcm-fmb*hbcm)+4*(p3p7*p2p3)*(-5*ffmcfmb*
6250      . fmb*hbcm+fmb*hbcm)+2*(p3p7*p3p5)*(3*ffmcfmb**2*hbcm2+4*ffmcfmb
6251      . *fmb*hbcm-7*ffmcfmb*fmc*hbcm+3*ffmcfmb*hbcm2+fmc*hbcm)+2*p3p7*
6252      . (-ffmcfmb**2*fmb*hbcm3-7*ffmcfmb*fmb*fmc*hbcm2+3*ffmcfmb*fmb*
6253      . hbcm3-6*ffmcfmb*fmb2*hbcm2+10*ffmcfmb*p3p5s2+fmb*fmc*hbcm2)+
6254      . ans10
6255       ans8=w2*ans9
6256       ans11=((p3p7*p3p5)*(40*fb2*ffmcfmb+10)+(p3p7*p3p4)*(-8*fb2*
6257      . ffmcfmb-8*fb2-2)+(p3p7*p2p3)*(-40*fb2*ffmcfmb+8*fb2-10)+(p3p7*
6258      . p1p3)*(-24*fb2*ffmcfmb-6)+p5p7*(-4*fb1*fmc*hbcm-4*fb2*ffmcfmb*
6259      . hbcm2-13*hbcm2)+4*p4p7*(6*fb1*fmb*hbcm+6*fb1*fmc*hbcm-4*fb2*
6260      . ffmcfmb*hbcm2+6*fb2*hbcm2+5*hbcm2)+p3p7*(24*fb1*ffmcfmb*fmb*
6261      . hbcm+28*fb1*ffmcfmb*fmc*hbcm-4*fb1*fmc*hbcm-4*fb2*ffmcfmb**2*
6262      . hbcm2+12*fb2*ffmcfmb*hbcm2+16*ffmcfmb*hbcm2-12*fmb*hbcm-7*fmc*
6263      . hbcm+9*hbcm2)+8*(-fb2*p1p2*p3p7-2*fb2*p1p3*p4p7-fb2*p1p4*p3p7-
6264      . 4*fb2*p2p3*p4p7+2*fb2*p2p3*p5p7-fb2*p2p5*p3p7-2*fb2*p3p4*p4p7+
6265      . 6*fb2*p3p5*p4p7-fb2*p3p7*p4p5))
6266       ans1=ans2+ans5+ans8+ans11
6267       ans=ccc*ans1
6268       b(5)=ans
6269       ans4=4*(2*ffmcfmb*fmc*hbcm*p3p5*p3p6-2*ffmcfmb*p2p3*p3p5*p3p6+2
6270      . *ffmcfmb*p3p4*p3p5*p3p6-fmc*hbcm*p1p3*p4p6+fmc*hbcm*p1p4*p3p6+
6271      . 2*fmc*hbcm*p2p3*p5p6-fmc*hbcm*p3p4*p5p6+fmc*hbcm*p3p5*p4p6+fmc
6272      . *hbcm*p3p6*p4p5-hbcm2*p1p2*p4p6+2*hbcm2*p2p4*p4p6-3*hbcm2*p2p4
6273      . *p5p6+hbcm2*p2p5*p4p6-p1p2*p2p3*p3p6+p1p2*p3p4*p3p6+p1p3*p2p3*
6274      . p4p6-p1p3*p3p4*p4p6-p1p4*p2p3*p3p6+p1p4*p3p4*p3p6-p2p3*p2p5*
6275      . p3p6-3*p2p3*p3p4*p4p6+3*p2p3*p3p4*p5p6-p2p3*p3p5*p4p6-p2p3*
6276      . p3p6*p4p5+p2p5*p3p4*p3p6+p3p4*p3p5*p4p6+p3p4*p3p6*p4p5)
6277       ans3=(p3p6*p3p4*p2p3)*(-24*ffmcfmb+12)+2*(p4p6*p3p4)*(-ffmcfmb*
6278      . hbcm2+fmb*hbcm+2*fmc*hbcm+hbcm2)+4*(p3p6*p2p5)*(ffmcfmb*hbcm2+
6279      . fmc*hbcm)+4*(p3p6*p2p4)*(5*ffmcfmb*hbcm2-3*hbcm2)+2*(p4p6*p2p3
6280      . )*(-ffmcfmb*hbcm2+fmb*hbcm-4*fmc*hbcm-hbcm2)+4*(p3p6*p1p2)*(-
6281      . ffmcfmb*hbcm2+fmc*hbcm)+4*p5p6*(-ffmcfmb*fmc*hbcm3+fmc2*hbcm2-
6282      . 2*p2p3s2-p3p4s2)+2*p4p6*(ffmcfmb*fmc*hbcm3+fmb*fmc*hbcm2+fmc*
6283      . hbcm3+6*p2p3s2)+2*(p3p6*p3p4)*(-3*ffmcfmb**2*hbcm2+ffmcfmb*fmb
6284      . *hbcm+2*ffmcfmb*fmc*hbcm+3*ffmcfmb*hbcm2)+2*(p3p6*p2p3)*(
6285      . ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm-10*ffmcfmb*fmc*hbcm-3*
6286      . ffmcfmb*hbcm2+6*fmc*hbcm)+2*p3p6*(ffmcfmb**2*fmc*hbcm3+ffmcfmb
6287      . *fmb*fmc*hbcm2+ffmcfmb*fmc*hbcm3-2*ffmcfmb*fmc2*hbcm2+12*
6288      . ffmcfmb*p2p3s2+2*fmc2*hbcm2-6*p2p3s2)+ans4
6289       ans2=w11*ans3
6290       ans7=((p3p6*p3p5)*(-16*fb2*ffmcfmb-4)+(p3p6*p2p3)*(48*fb2*
6291      . ffmcfmb-24*fb2+12)+4*p5p6*(2*fb2*ffmcfmb*hbcm2-hbcm2)+p4p6*(-4
6292      . *fb1*fmb*hbcm-8*fb1*fmc*hbcm-4*fb2*ffmcfmb*hbcm2-4*fb2*hbcm2-7
6293      . *hbcm2)+p3p6*(-4*fb1*ffmcfmb*fmb*hbcm-8*fb1*ffmcfmb*fmc*hbcm-4
6294      . *fb2*ffmcfmb**2*hbcm2-4*fb2*ffmcfmb*hbcm2+16*ffmcfmb*hbcm2-13*
6295      . fmb*hbcm-8*fmc*hbcm-7*hbcm2)+8*(-fb2*p1p2*p3p6+fb2*p1p3*p4p6-
6296      . fb2*p1p4*p3p6+3*fb2*p2p3*p4p6-2*fb2*p2p3*p5p6-fb2*p2p5*p3p6+
6297      . fb2*p3p4*p5p6-fb2*p3p5*p4p6-fb2*p3p6*p4p5))
6298       ans6=w2*((p3p6*p3p5*p2p3)*(24*ffmcfmb-12)+4*(p4p5*p3p6)*(
6299      . ffmcfmb*hbcm2-fmb*hbcm-hbcm2)+2*(p4p6*p3p5)*(-ffmcfmb*hbcm2-
6300      . fmb*hbcm+2*fmc*hbcm-hbcm2)+4*(p5p6*p3p4)*(-ffmcfmb*hbcm2+fmb*
6301      . hbcm+hbcm2)+4*(p3p6*p2p5)*(3*ffmcfmb*hbcm2-fmb*hbcm-hbcm2)+4*(
6302      . p5p6*p2p3)*(-ffmcfmb*hbcm2-2*fmb*hbcm+hbcm2)+2*p4p6*(-ffmcfmb*
6303      . fmb*hbcm3+2*fmb*fmc*hbcm2-fmb*hbcm3+fmb2*hbcm2-2*p3p5s2)+12*(
6304      . p3p6*p2p3)*(2*ffmcfmb*fmb*hbcm-fmb*hbcm)+4*p5p6*(-ffmcfmb**2*
6305      . hbcm4+ffmcfmb*fmb*hbcm3+ffmcfmb*hbcm4)+2*(p3p6*p3p5)*(ffmcfmb
6306      . **2*hbcm2-3*ffmcfmb*fmb*hbcm+2*ffmcfmb*fmc*hbcm-3*ffmcfmb*
6307      . hbcm2)+2*p3p6*(-ffmcfmb**2*fmb*hbcm3+2*ffmcfmb*fmb*fmc*hbcm2-
6308      . ffmcfmb*fmb*hbcm3+ffmcfmb*fmb2*hbcm2-4*ffmcfmb*p3p5s2)+4*(
6309      . ffmcfmb*hbcm2*p1p3*p5p6-ffmcfmb*hbcm2*p1p5*p3p6+ffmcfmb*hbcm2*
6310      . p3p5*p5p6-fmb*hbcm*p1p2*p3p6+fmb*hbcm*p1p3*p4p6-fmb*hbcm*p1p4*
6311      . p3p6+3*fmb*hbcm*p2p3*p4p6+hbcm2*p1p2*p5p6+hbcm2*p1p4*p5p6-
6312      . hbcm2*p1p5*p4p6+2*hbcm2*p2p5*p4p6-p1p2*p3p5*p3p6+p1p3*p3p5*
6313      . p4p6-p1p4*p3p5*p3p6+3*p2p3*p3p5*p4p6-2*p2p3*p3p5*p5p6-p2p5*
6314      . p3p5*p3p6+p3p4*p3p5*p5p6-p3p5*p3p6*p4p5))+ans7
6315       ans5=w1*((p3p6*p3p4*p2p3)*(-24*ffmcfmb+12)+2*(p4p6*p3p4)*(-
6316      . ffmcfmb*hbcm2+fmb*hbcm+2*fmc*hbcm+hbcm2)+8*(p3p6*p2p4)*(2*
6317      . ffmcfmb*hbcm2-hbcm2)+4*p5p6*(-ffmcfmb*fmc*hbcm3+fmc2*hbcm2-
6318      . p3p4s2)+2*p4p6*(ffmcfmb*fmc*hbcm3+fmb*fmc*hbcm2+fmc*hbcm3)+12*
6319      . (p3p6*p2p3)*(-2*ffmcfmb*fmc*hbcm+fmc*hbcm)+2*(p3p6*p3p4)*(-3*
6320      . ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm+2*ffmcfmb*fmc*hbcm+3*ffmcfmb
6321      . *hbcm2)+2*p3p6*(ffmcfmb**2*fmc*hbcm3+ffmcfmb*fmb*fmc*hbcm2+
6322      . ffmcfmb*fmc*hbcm3-2*ffmcfmb*fmc2*hbcm2+2*fmc2*hbcm2)+4*(2*
6323      . ffmcfmb*fmc*hbcm*p3p5*p3p6+2*ffmcfmb*p3p4*p3p5*p3p6+fmc*hbcm*
6324      . p1p2*p3p6-fmc*hbcm*p1p3*p4p6+fmc*hbcm*p1p4*p3p6-3*fmc*hbcm*
6325      . p2p3*p4p6+2*fmc*hbcm*p2p3*p5p6+fmc*hbcm*p2p5*p3p6-fmc*hbcm*
6326      . p3p4*p5p6+fmc*hbcm*p3p5*p4p6+fmc*hbcm*p3p6*p4p5+2*hbcm2*p2p4*
6327      . p4p6-2*hbcm2*p2p4*p5p6+p1p2*p3p4*p3p6-p1p3*p3p4*p4p6+p1p4*p3p4
6328      . *p3p6-3*p2p3*p3p4*p4p6+2*p2p3*p3p4*p5p6+p2p5*p3p4*p3p6+p3p4*
6329      . p3p5*p4p6+p3p4*p3p6*p4p5))+ans6
6330       ans1=ans2+ans5
6331       ans=ccc*ans1
6332       b(6)=ans
6333       ans2=w2*((p3p5*p3p4)*(-2*ffmcfmb+2)+(p3p5*p2p3)*(-2*ffmcfmb+2)+
6334      . 2*p3p4*(-ffmcfmb*fmb*hbcm+fmb*hbcm)+2*p2p3*(-ffmcfmb*fmb*hbcm+
6335      . fmb*hbcm)+2*p3p5*(-ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm+ffmcfmb*
6336      . hbcm2)+2*(-ffmcfmb**2*fmb*hbcm3+ffmcfmb*fmb*hbcm*p1p3+ffmcfmb*
6337      . fmb*hbcm3+ffmcfmb*p1p3*p3p5+ffmcfmb*p3p5s2+fmb*hbcm*p1p2+fmb*
6338      . hbcm*p1p4+fmb*hbcm*p2p5+fmb*hbcm*p4p5+p1p2*p3p5+p1p4*p3p5+p2p5
6339      . *p3p5+p3p5*p4p5))+(p3p4*(-4*fb2*ffmcfmb+4*fb2-1)+p2p3*(-4*fb2*
6340      . ffmcfmb+4*fb2-1)+(-4*fb2*ffmcfmb**2*hbcm2+4*fb2*ffmcfmb*hbcm2+
6341      . 4*fb2*ffmcfmb*p1p3+4*fb2*ffmcfmb*p3p5+4*fb2*p1p2+4*fb2*p1p4+4*
6342      . fb2*p2p5+4*fb2*p4p5-2*ffmcfmb*hbcm2+9*fmb*hbcm+9*fmc*hbcm-8*
6343      . hbcm2+p1p3+p3p5))
6344       ans1=w11*(2*p3p4*(ffmcfmb**2*hbcm2+ffmcfmb*fmc*hbcm-ffmcfmb*
6345      . hbcm2-fmc*hbcm)+2*p2p3*(-ffmcfmb**2*hbcm2+ffmcfmb*fmc*hbcm+
6346      . ffmcfmb*hbcm2-fmc*hbcm)+2*(ffmcfmb**2*fmc*hbcm3-ffmcfmb*fmc*
6347      . hbcm*p1p3-ffmcfmb*fmc*hbcm*p3p5-ffmcfmb*fmc*hbcm3+ffmcfmb*p1p3
6348      . *p2p3-ffmcfmb*p1p3*p3p4+ffmcfmb*p2p3*p3p5-ffmcfmb*p2p3s2-
6349      . ffmcfmb*p3p4*p3p5+ffmcfmb*p3p4s2-fmc*hbcm*p1p2-fmc*hbcm*p1p4-
6350      . fmc*hbcm*p2p5-fmc*hbcm*p4p5+p1p2*p2p3-p1p2*p3p4+p1p4*p2p3-p1p4
6351      . *p3p4+p2p3*p2p5+p2p3*p4p5+p2p3s2-p2p5*p3p4-p3p4*p4p5-p3p4s2))+
6352      . w1*((p3p4*p2p3)*(2*ffmcfmb-2)+2*p2p3*(ffmcfmb*fmc*hbcm-fmc*
6353      . hbcm)+2*p3p4*(ffmcfmb**2*hbcm2+ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2-
6354      . fmc*hbcm)+2*(ffmcfmb**2*fmc*hbcm3-ffmcfmb*fmc*hbcm*p1p3-
6355      . ffmcfmb*fmc*hbcm*p3p5-ffmcfmb*fmc*hbcm3-ffmcfmb*p1p3*p3p4-
6356      . ffmcfmb*p3p4*p3p5+ffmcfmb*p3p4s2-fmc*hbcm*p1p2-fmc*hbcm*p1p4-
6357      . fmc*hbcm*p2p5-fmc*hbcm*p4p5-p1p2*p3p4-p1p4*p3p4-p2p5*p3p4-p3p4
6358      . *p4p5-p3p4s2))+ans2
6359       ans=ccc*ans1
6360       b(7)=ans
6361       ans3=(p3p5*(4*fb1*ffmcfmb*hbcm-17*hbcm)+p3p4*(-4*fb1*ffmcfmb*
6362      . hbcm+4*fb1*hbcm+hbcm)+p2p3*(-4*fb1*ffmcfmb*hbcm+4*fb1*hbcm+25*
6363      . hbcm)+p1p3*(4*fb1*ffmcfmb*hbcm+7*hbcm)+(-4*fb1*ffmcfmb**2*
6364      . hbcm3+4*fb1*ffmcfmb*hbcm3+4*fb1*hbcm*p1p2+4*fb1*hbcm*p1p4+4*
6365      . fb1*hbcm*p2p5+4*fb1*hbcm*p4p5-9*fmb*hbcm2+9*fmc*hbcm2-8*hbcm3)
6366      . )
6367       ans2=w1*(2*(p3p4*p2p3)*(ffmcfmb*hbcm-hbcm)+2*p2p3*(ffmcfmb*fmc*
6368      . hbcm2-fmc*hbcm2)+2*p3p4*(ffmcfmb**2*hbcm3+ffmcfmb*fmc*hbcm2-
6369      . ffmcfmb*hbcm3-fmc*hbcm2)+2*(ffmcfmb**2*fmc*hbcm4-ffmcfmb*fmc*
6370      . hbcm2*p1p3-ffmcfmb*fmc*hbcm2*p3p5-ffmcfmb*fmc*hbcm4-ffmcfmb*
6371      . hbcm*p1p3*p3p4-ffmcfmb*hbcm*p3p4*p3p5+ffmcfmb*hbcm*p3p4s2-fmc*
6372      . hbcm2*p1p2-fmc*hbcm2*p1p4-fmc*hbcm2*p2p5-fmc*hbcm2*p4p5-hbcm*
6373      . p1p2*p3p4-hbcm*p1p4*p3p4-hbcm*p2p5*p3p4-hbcm*p3p4*p4p5-hbcm*
6374      . p3p4s2))+w2*(2*(p3p5*p3p4)*(ffmcfmb*hbcm-hbcm)+2*(p3p5*p2p3)*(
6375      . ffmcfmb*hbcm-hbcm)+2*p3p4*(ffmcfmb*fmb*hbcm2-fmb*hbcm2)+2*p2p3
6376      . *(ffmcfmb*fmb*hbcm2-fmb*hbcm2)+2*p3p5*(ffmcfmb**2*hbcm3-
6377      . ffmcfmb*fmb*hbcm2-ffmcfmb*hbcm3)+2*(ffmcfmb**2*fmb*hbcm4-
6378      . ffmcfmb*fmb*hbcm2*p1p3-ffmcfmb*fmb*hbcm4-ffmcfmb*hbcm*p1p3*
6379      . p3p5-ffmcfmb*hbcm*p3p5s2-fmb*hbcm2*p1p2-fmb*hbcm2*p1p4-fmb*
6380      . hbcm2*p2p5-fmb*hbcm2*p4p5-hbcm*p1p2*p3p5-hbcm*p1p4*p3p5-hbcm*
6381      . p2p5*p3p5-hbcm*p3p5*p4p5))+ans3
6382       ans1=w11*(4*(p3p4*p2p3)*(ffmcfmb*hbcm-hbcm)+2*p3p4*(ffmcfmb**2*
6383      . hbcm3+ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3-fmc*hbcm2)+2*p2p3*(
6384      . ffmcfmb**2*hbcm3+ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3-fmc*hbcm2)+2*
6385      . (ffmcfmb**2*fmc*hbcm4-ffmcfmb*fmc*hbcm2*p1p3-ffmcfmb*fmc*hbcm2
6386      . *p3p5-ffmcfmb*fmc*hbcm4-ffmcfmb*hbcm*p1p3*p2p3-ffmcfmb*hbcm*
6387      . p1p3*p3p4-ffmcfmb*hbcm*p2p3*p3p5+ffmcfmb*hbcm*p2p3s2-ffmcfmb*
6388      . hbcm*p3p4*p3p5+ffmcfmb*hbcm*p3p4s2-fmc*hbcm2*p1p2-fmc*hbcm2*
6389      . p1p4-fmc*hbcm2*p2p5-fmc*hbcm2*p4p5-hbcm*p1p2*p2p3-hbcm*p1p2*
6390      . p3p4-hbcm*p1p4*p2p3-hbcm*p1p4*p3p4-hbcm*p2p3*p2p5-hbcm*p2p3*
6391      . p4p5-hbcm*p2p3s2-hbcm*p2p5*p3p4-hbcm*p3p4*p4p5-hbcm*p3p4s2))+
6392      . ans2
6393       ans=ccc*ans1
6394       b(8)=ans
6395       ans=ccc*(w1*(2*(p3p6*p3p4)*(-8*ffmcfmb*hbcm+3*hbcm)+2*p3p6*(-8*
6396      . ffmcfmb*fmc*hbcm2+3*fmc*hbcm2)+2*(-5*fmc*hbcm2*p4p6+3*fmc*
6397      . hbcm2*p5p6-5*hbcm*p3p4*p4p6+3*hbcm*p3p4*p5p6))+w2*(2*(p3p6*
6398      . p3p5)*(-8*ffmcfmb*hbcm+3*hbcm)+2*p3p6*(-8*ffmcfmb*fmb*hbcm2+3*
6399      . fmb*hbcm2)+2*(-5*fmb*hbcm2*p4p6+3*fmb*hbcm2*p5p6-5*hbcm*p3p5*
6400      . p4p6+3*hbcm*p3p5*p5p6))+w11*(2*p5p6*(2*ffmcfmb*hbcm3+3*fmc*
6401      . hbcm2)+2*p4p6*(-ffmcfmb*hbcm3-fmb*hbcm2-3*fmc*hbcm2-hbcm3)+2*(
6402      . p3p6*p3p4)*(-8*ffmcfmb*hbcm+3*hbcm)+2*(p3p6*p2p3)*(4*ffmcfmb*
6403      . hbcm-3*hbcm)+2*p3p6*(-ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2-6*
6404      . ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3+3*fmc*hbcm2)+2*(-4*ffmcfmb*
6405      . hbcm*p3p5*p3p6-2*hbcm*p1p2*p3p6+2*hbcm*p1p3*p4p6-2*hbcm*p1p4*
6406      . p3p6+hbcm*p2p3*p4p6-hbcm*p2p3*p5p6-2*hbcm*p2p5*p3p6-5*hbcm*
6407      . p3p4*p4p6+5*hbcm*p3p4*p5p6-2*hbcm*p3p5*p4p6-2*hbcm*p3p6*p4p5))
6408      . +(4*p3p6*(8*fb1*ffmcfmb*hbcm-3*fb1*hbcm+5*hbcm)+4*(5*fb1*hbcm*
6409      . p4p6-3*fb1*hbcm*p5p6)))
6410       b(9)=ans
6411       b(10)=ccc*(w1*((p3p6*p3p4)*(16*ffmcfmb-6)+2*p3p6*(8*ffmcfmb*fmc
6412      . *hbcm-3*fmc*hbcm)+2*(5*fmc*hbcm*p4p6-3*fmc*hbcm*p5p6+5*p3p4*
6413      . p4p6-3*p3p4*p5p6))+w2*((p3p6*p3p5)*(-16*ffmcfmb+6)+2*p3p6*(-8*
6414      . ffmcfmb*fmb*hbcm+3*fmb*hbcm)+2*(-5*fmb*hbcm*p4p6+3*fmb*hbcm*
6415      . p5p6-5*p3p5*p4p6+3*p3p5*p5p6))+w11*((p3p6*p3p4)*(16*ffmcfmb-6)
6416      . +(p3p6*p2p3)*(-16*ffmcfmb+6)+2*p4p6*(ffmcfmb*hbcm2-fmb*hbcm+3*
6417      . fmc*hbcm+hbcm2)+2*p3p6*(ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm+6*
6418      . ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-3*fmc*hbcm)+2*(-3*fmc*hbcm*p5p6
6419      . -5*p2p3*p4p6+3*p2p3*p5p6+5*p3p4*p4p6-3*p3p4*p5p6))+(p3p6*(-32*
6420      . fb2*ffmcfmb+12*fb2-8)+4*(-5*fb2*p4p6+3*fb2*p5p6)))
6421       b(11)=ccc*(w11*(2*p3p4*(ffmcfmb*hbcm2-hbcm2)+2*p2p3*(ffmcfmb*
6422      . hbcm2-hbcm2)+2*(ffmcfmb**2*hbcm4-ffmcfmb*hbcm2*p1p3-ffmcfmb*
6423      . hbcm2*p3p5-ffmcfmb*hbcm4-hbcm2*p1p2-hbcm2*p1p4-hbcm2*p2p5-
6424      . hbcm2*p4p5))+18*hbcm2)
6425       ans=ccc*(w1*(4*(p3p7*p3p4)*(-4*ffmcfmb*hbcm+hbcm)+4*p3p7*(-4*
6426      . ffmcfmb*fmc*hbcm2+fmc*hbcm2)+4*(-3*fmc*hbcm2*p4p7+fmc*hbcm2*
6427      . p5p7-3*hbcm*p3p4*p4p7+hbcm*p3p4*p5p7))+w2*(4*(p3p7*p3p5)*(-4*
6428      . ffmcfmb*hbcm+hbcm)+4*p3p7*(-4*ffmcfmb*fmb*hbcm2+fmb*hbcm2)+4*(
6429      . -3*fmb*hbcm2*p4p7+fmb*hbcm2*p5p7-3*hbcm*p3p5*p4p7+hbcm*p3p5*
6430      . p5p7))+w11*(2*p5p7*(ffmcfmb*hbcm3+fmc*hbcm2)+4*p4p7*(2*ffmcfmb
6431      . *hbcm3-3*fmb*hbcm2-3*hbcm3)+4*(p3p7*p3p4)*(-3*ffmcfmb*hbcm+2*
6432      . hbcm)+2*p3p7*(ffmcfmb**2*hbcm3-6*ffmcfmb*fmb*hbcm2-ffmcfmb*fmc
6433      . *hbcm2-3*ffmcfmb*hbcm3+fmc*hbcm2)+4*(3*ffmcfmb*hbcm*p1p3*p3p7+
6434      . ffmcfmb*hbcm*p2p3*p3p7-5*ffmcfmb*hbcm*p3p5*p3p7+hbcm*p1p2*p3p7
6435      . +2*hbcm*p1p3*p4p7+hbcm*p1p4*p3p7+hbcm*p2p3*p4p7-hbcm*p2p3*p5p7
6436      . +hbcm*p2p5*p3p7-hbcm*p3p4*p4p7+hbcm*p3p4*p5p7-6*hbcm*p3p5*p4p7
6437      . +hbcm*p3p7*p4p5))+(4*p3p7*(8*fb1*ffmcfmb*hbcm-2*fb1*hbcm-5*
6438      . hbcm)+8*(3*fb1*hbcm*p4p7-fb1*hbcm*p5p7)))
6439       b(12)=ans
6440       b(13)=ccc*(w11*(2*p3p4*(-ffmcfmb*hbcm+hbcm)+2*p2p3*(-ffmcfmb*
6441      . hbcm+hbcm)+2*(-ffmcfmb**2*hbcm3+ffmcfmb*hbcm*p1p3+ffmcfmb*hbcm
6442      . *p3p5+ffmcfmb*hbcm3+hbcm*p1p2+hbcm*p1p4+hbcm*p2p5+hbcm*p4p5))-
6443      . 18*hbcm)
6444       b(14)=ccc*(w1*((p3p7*p3p4)*(-16*ffmcfmb+4)+4*p3p7*(-4*ffmcfmb*
6445      . fmc*hbcm+fmc*hbcm)+4*(-3*fmc*hbcm*p4p7+fmc*hbcm*p5p7-3*p3p4*
6446      . p4p7+p3p4*p5p7))+w2*((p3p7*p3p5)*(16*ffmcfmb-4)+4*p3p7*(4*
6447      . ffmcfmb*fmb*hbcm-fmb*hbcm)+4*(3*fmb*hbcm*p4p7-fmb*hbcm*p5p7+3*
6448      . p3p5*p4p7-p3p5*p5p7))+w11*(12*p4p7*(fmb*hbcm-hbcm2)+(p3p7*p3p4
6449      . )*(-16*ffmcfmb+4)+(p3p7*p2p3)*(16*ffmcfmb-4)+2*p5p7*(ffmcfmb*
6450      . hbcm2+fmc*hbcm)+2*p3p7*(-ffmcfmb**2*hbcm2+6*ffmcfmb*fmb*hbcm-
6451      . ffmcfmb*fmc*hbcm-5*ffmcfmb*hbcm2+fmc*hbcm)+4*(3*p2p3*p4p7-p2p3
6452      . *p5p7-3*p3p4*p4p7+p3p4*p5p7))+(p3p7*(32*fb2*ffmcfmb-8*fb2+8)+8
6453      . *(3*fb2*p4p7-fb2*p5p7)))
6454       ans4=((p3p7*p3p6)*(-64*fb2*ffmcfmb+24*fb2-16)+8*p6p7*(fb1*fmb*
6455      . hbcm+fb1*fmc*hbcm-2*fb2*ffmcfmb*hbcm2-fb2*hbcm2+4*hbcm2)+8*(4*
6456      . fb2*p2p3*p6p7-4*fb2*p3p4*p6p7-2*fb2*p3p6*p4p7+2*fb2*p3p6*p5p7-
6457      . 3*fb2*p3p7*p4p6+fb2*p3p7*p5p6))
6458       ans3=w11*(4*(p4p6*p3p7)*(-fmb*hbcm+2*fmc*hbcm)+(p3p7*p3p6*p3p4)
6459      . *(32*ffmcfmb-12)+(p3p7*p3p6*p2p3)*(-32*ffmcfmb+12)+4*(p5p6*
6460      . p3p7)*(ffmcfmb*hbcm2-2*fmc*hbcm)+4*(p5p7*p3p6)*(-2*ffmcfmb*
6461      . hbcm2-fmc*hbcm)+4*(p4p7*p3p6)*(-3*ffmcfmb*hbcm2-4*fmb*hbcm+2*
6462      . hbcm2)+4*(p6p7*p3p4)*(3*ffmcfmb*hbcm2-fmb*hbcm+fmc*hbcm)+4*(
6463      . p6p7*p2p3)*(-ffmcfmb*hbcm2+fmb*hbcm-fmc*hbcm-2*hbcm2)+2*p6p7*(
6464      . 3*ffmcfmb**2*hbcm4-ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*hbcm3-ffmcfmb
6465      . *hbcm4-fmb*fmc*hbcm2+fmc*hbcm3-4*fmc2*hbcm2+8*p2p3s2+8*p3p4s2)
6466      . +4*(p3p7*p3p6)*(2*ffmcfmb**2*hbcm2-5*ffmcfmb*fmb*hbcm+5*
6467      . ffmcfmb*fmc*hbcm-3*fmc*hbcm)+4*(-ffmcfmb*hbcm2*p1p3*p6p7-
6468      . ffmcfmb*hbcm2*p3p5*p6p7-hbcm2*p1p2*p6p7-hbcm2*p1p4*p6p7+4*
6469      . hbcm2*p2p4*p6p7-hbcm2*p2p5*p6p7-hbcm2*p4p5*p6p7-3*hbcm2*p4p6*
6470      . p4p7-hbcm2*p4p6*p5p7+2*hbcm2*p4p7*p5p6-8*p2p3*p3p4*p6p7-2*p2p3
6471      . *p3p6*p4p7+2*p2p3*p3p6*p5p7-3*p2p3*p3p7*p4p6+p2p3*p3p7*p5p6+2*
6472      . p3p4*p3p6*p4p7-2*p3p4*p3p6*p5p7+3*p3p4*p3p7*p4p6-p3p4*p3p7*
6473      . p5p6))+ans4
6474       ans2=w2*(4*(p6p7*p3p5)*(-fmb*hbcm-fmc*hbcm-hbcm2)+(p3p7*p3p6*
6475      . p3p5)*(-32*ffmcfmb+12)+4*(p5p6*p3p7)*(4*ffmcfmb*hbcm2+fmb*hbcm
6476      . -2*hbcm2)+8*(p5p7*p3p6)*(-2*ffmcfmb*hbcm2+fmb*hbcm+hbcm2)+4*
6477      . p6p7*(-2*ffmcfmb*fmb*hbcm3-fmb*fmc*hbcm2-fmb*hbcm3-fmb2*hbcm2)
6478      . +4*(p3p7*p3p6)*(-8*ffmcfmb*fmb*hbcm+3*fmb*hbcm)+4*(4*fmb*hbcm*
6479      . p2p3*p6p7-4*fmb*hbcm*p3p4*p6p7-2*fmb*hbcm*p3p6*p4p7-3*fmb*hbcm
6480      . *p3p7*p4p6+2*hbcm2*p1p5*p6p7-2*hbcm2*p2p5*p6p7+2*hbcm2*p4p5*
6481      . p6p7-2*hbcm2*p4p6*p5p7+2*hbcm2*p4p7*p5p6+4*p2p3*p3p5*p6p7-4*
6482      . p3p4*p3p5*p6p7-2*p3p5*p3p6*p4p7+2*p3p5*p3p6*p5p7-3*p3p5*p3p7*
6483      . p4p6+p3p5*p3p7*p5p6))+ans3
6484       ans1=w1*(4*(p6p7*p3p4)*(-fmb*hbcm+3*fmc*hbcm+hbcm2)+(p3p7*p3p6*
6485      . p3p4)*(32*ffmcfmb-12)+4*(p4p6*p3p7)*(4*ffmcfmb*hbcm2+3*fmc*
6486      . hbcm)+4*(p4p7*p3p6)*(-4*ffmcfmb*hbcm2+2*fmc*hbcm+hbcm2)+4*p6p7
6487      . *(2*ffmcfmb*fmc*hbcm3-fmb*fmc*hbcm2+fmc*hbcm3-3*fmc2*hbcm2+4*
6488      . p3p4s2)+4*(p3p7*p3p6)*(8*ffmcfmb*fmc*hbcm-3*fmc*hbcm)+4*(-4*
6489      . fmc*hbcm*p2p3*p6p7-2*fmc*hbcm*p3p6*p5p7-fmc*hbcm*p3p7*p5p6+4*
6490      . hbcm2*p2p4*p6p7+hbcm2*p4p6*p4p7+hbcm2*p4p7*p5p6-4*p2p3*p3p4*
6491      . p6p7+2*p3p4*p3p6*p4p7-2*p3p4*p3p6*p5p7+3*p3p4*p3p7*p4p6-p3p4*
6492      . p3p7*p5p6))+ans2
6493       ans=ccc*ans1
6494       b(15)=ans
6495       ans2=8*p6p7*(fb1*hbcm-fb2*fmb+fb2*fmc+4*hbcm)
6496       ans1=w2*(4*p6p7*(fmb*fmc*hbcm-fmb*hbcm2-fmb2*hbcm)+8*(p5p6*p3p7
6497      . )*(2*ffmcfmb*hbcm-hbcm)+8*(p5p7*p3p6)*(-2*ffmcfmb*hbcm+hbcm)+4
6498      . *(p6p7*p3p5)*(2*ffmcfmb*hbcm-fmb+fmc-hbcm)+8*(hbcm*p1p5*p6p7-
6499      . hbcm*p2p5*p6p7+hbcm*p4p5*p6p7-hbcm*p4p6*p5p7+hbcm*p4p7*p5p6))+
6500      . w1*(4*p6p7*(fmb*fmc*hbcm-fmc*hbcm2-3*fmc2*hbcm)+4*(p4p7*p3p6)*
6501      . (-4*ffmcfmb*hbcm+hbcm)+4*(p6p7*p3p4)*(-2*ffmcfmb*hbcm+fmb-fmc-
6502      . hbcm)+4*(4*ffmcfmb*hbcm*p3p7*p4p6+4*hbcm*p2p4*p6p7+hbcm*p4p6*
6503      . p4p7+hbcm*p4p7*p5p6))+w11*(4*(p4p6*p3p7)*(-2*ffmcfmb*hbcm-hbcm
6504      . )+4*(p6p7*p3p4)*(-ffmcfmb*hbcm+fmb-fmc-2*hbcm)+4*(p6p7*p2p3)*(
6505      . 3*ffmcfmb*hbcm-fmb+fmc)+2*p6p7*(ffmcfmb**2*hbcm3+ffmcfmb*fmb*
6506      . hbcm2-ffmcfmb*fmc*hbcm2-3*ffmcfmb*hbcm3+fmb*fmc*hbcm-fmc*hbcm2
6507      . -4*fmc2*hbcm)+4*(-ffmcfmb*hbcm*p1p3*p6p7-ffmcfmb*hbcm*p3p5*
6508      . p6p7-3*ffmcfmb*hbcm*p3p6*p3p7-5*ffmcfmb*hbcm*p3p6*p4p7-ffmcfmb
6509      . *hbcm*p3p6*p5p7+2*ffmcfmb*hbcm*p3p7*p5p6-hbcm*p1p2*p6p7-hbcm*
6510      . p1p4*p6p7+4*hbcm*p2p4*p6p7-hbcm*p2p5*p6p7-hbcm*p4p5*p6p7-5*
6511      . hbcm*p4p6*p4p7-hbcm*p4p6*p5p7+4*hbcm*p4p7*p5p6))+ans2
6512       ans=ccc*ans1
6513       b(16)=ans
6514       do 200 n=1,16
6515          c(n,1)=c(n,1)+1.0d0*b(n)
6516 200   continue
6517       return
6518       end
6519
6520       subroutine amp34_3p0(cc)
6521       implicit double precision(a-h,o-z)
6522       implicit integer (i-n)
6523       dimension b(16)
6524 #include "inclcon.h"
6525 #include "inclppp.h"
6526 #include "inclamp.h"
6527       do 100 n=1,16
6528          b(n)=0.0d0
6529 100   continue
6530       ccc=cc/((2*p1p2)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*
6531      . p3p5+fmb2+hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2)
6532      . )
6533       ans3=(8*(p6p7*p3p4)*(fb2*fmb-fb2*fmc)+4*(p6p7*p3p5)*(-2*fb1*
6534      . hbcm-3*hbcm)+2*p6p7*(-2*fb1*fmb2*hbcm+2*fb1*fmc2*hbcm-2*fb1*
6535      . hbcm3+4*fb2*ffmcfmb*fmb*hbcm2-4*fb2*ffmcfmb*fmc*hbcm2-5*fmb*
6536      . hbcm2+5*fmc*hbcm2-3*hbcm3)+2*(p6p7*p2p3)*(-12*fb1*ffmcfmb*hbcm
6537      . +12*fb1*hbcm-12*fb2*fmb+16*fb2*fmc+9*hbcm)+2*(p6p7*p1p3)*(12*
6538      . fb1*ffmcfmb*hbcm-4*fb1*hbcm-4*fb2*fmb+3*hbcm)+8*(2*fb1*hbcm*
6539      . p1p2*p6p7+fb1*hbcm*p1p4*p6p7-fb1*hbcm*p1p5*p6p7-fb1*hbcm*p2p4*
6540      . p6p7-3*fb1*hbcm*p2p5*p6p7))
6541       ans2=w1*(4*(p6p7*p4p5)*(-fmb*hbcm2+fmc*hbcm2-hbcm3)+2*(p6p7*
6542      . p3p4)*(2*ffmcfmb*hbcm3-2*fmb*fmc*hbcm-2*fmb*hbcm2+fmb2*hbcm+2*
6543      . fmc*hbcm2+fmc2*hbcm-hbcm3)+4*(p6p7*p2p4)*(ffmcfmb*hbcm3-2*fmb*
6544      . hbcm2+3*fmc*hbcm2-2*hbcm3)+4*(p6p7*p1p4)*(-ffmcfmb*hbcm3-fmc*
6545      . hbcm2)+4*(p6p7*p3p5*p3p4)*(2*ffmcfmb*hbcm-hbcm)+4*(p6p7*p3p4*
6546      . p2p3)*(-3*ffmcfmb*hbcm+3*fmb-4*fmc+hbcm)+4*(p6p7*p3p4*p1p3)*(-
6547      . ffmcfmb*hbcm+fmb+hbcm)+4*(p6p7*p2p3)*(ffmcfmb*fmc*hbcm2+3*fmb*
6548      . fmc*hbcm-2*fmc*hbcm2-4*fmc2*hbcm)+4*(p6p7*p1p3)*(-ffmcfmb*fmc*
6549      . hbcm2+fmb*fmc*hbcm)+2*p6p7*(-2*ffmcfmb*fmb*fmc*hbcm3+2*ffmcfmb
6550      . *fmc2*hbcm3-2*fmb*p3p4s2+fmb2*fmc*hbcm2+fmc*hbcm4+2*fmc*p3p4s2
6551      . -fmc3*hbcm2)+4*(-2*fmc*hbcm2*p1p2*p6p7+4*fmc*hbcm2*p2p5*p6p7+
6552      . fmc*hbcm2*p3p5*p6p7-2*hbcm*p1p2*p3p4*p6p7+4*hbcm*p1p3*p2p4*
6553      . p6p7+2*hbcm*p1p3*p4p5*p6p7-hbcm*p1p4*p3p4*p6p7-hbcm*p1p5*p3p4*
6554      . p6p7+4*hbcm*p2p3*p2p4*p6p7+2*hbcm*p2p3*p4p5*p6p7+hbcm*p2p4*
6555      . p3p4*p6p7-4*hbcm*p2p4*p3p5*p6p7+5*hbcm*p2p5*p3p4*p6p7-2*hbcm*
6556      . p3p5*p4p5*p6p7))+ans3
6557       ans1=w2*(4*(p6p7*p3p5*p3p4)*(fmb-fmc)+4*(p6p7*p4p5)*(-fmb*hbcm2
6558      . +fmc*hbcm2-hbcm3)+4*(p6p7*p3p4)*(-fmb*fmc*hbcm+fmb2*hbcm)+2*(
6559      . p6p7*p3p5)*(-2*ffmcfmb*hbcm3+2*fmb*hbcm2+fmb2*hbcm-fmc2*hbcm+
6560      . hbcm3)+4*(p6p7*p2p5)*(ffmcfmb*hbcm3+fmb*hbcm2+2*fmc*hbcm2-3*
6561      . hbcm3)+4*(p6p7*p1p5)*(-ffmcfmb*hbcm3+fmb*hbcm2+hbcm3)+4*(p6p7*
6562      . p3p5*p2p3)*(3*ffmcfmb*hbcm-3*fmb+4*fmc-hbcm)+4*(p6p7*p3p5*p1p3
6563      . )*(ffmcfmb*hbcm-fmb-hbcm)+4*(p6p7*p2p3)*(ffmcfmb*fmb*hbcm2+4*
6564      . fmb*fmc*hbcm-2*fmb*hbcm2-3*fmb2*hbcm)+4*(p6p7*p1p3)*(-ffmcfmb*
6565      . fmb*hbcm2-fmb2*hbcm)+2*p6p7*(-2*ffmcfmb*fmb*fmc*hbcm3+2*
6566      . ffmcfmb*fmb2*hbcm3-4*ffmcfmb*hbcm*p3p5s2-fmb*fmc2*hbcm2+fmb*
6567      . hbcm4+fmb3*hbcm2+2*hbcm*p3p5s2)+4*(-2*fmb*hbcm2*p1p2*p6p7-2*
6568      . hbcm*p1p2*p3p5*p6p7+hbcm*p1p4*p3p5*p6p7+4*hbcm*p1p5*p2p3*p6p7+
6569      . hbcm*p1p5*p3p5*p6p7+4*hbcm*p2p3*p2p5*p6p7+4*hbcm*p2p3*p4p5*
6570      . p6p7-hbcm*p2p4*p3p5*p6p7-hbcm*p2p5*p3p5*p6p7-2*hbcm*p3p5*p4p5*
6571      . p6p7))+ans2
6572       ans=ccc*ans1
6573       b(1)=ans
6574       ans2=w1*(4*(p6p7*p4p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)+(p6p7*p3p4*
6575      . p2p3)*(-8*ffmcfmb+12)+(p6p7*p3p4*p1p3)*(8*ffmcfmb-4)+4*(p6p7*
6576      . p2p4)*(ffmcfmb*hbcm2-2*fmb*hbcm+2*fmc*hbcm+2*hbcm2)+2*p6p7*(2*
6577      . ffmcfmb*fmc*hbcm3-fmb2*fmc*hbcm-fmc*hbcm3+fmc3*hbcm+2*p3p4s2)+
6578      . 2*(p6p7*p3p4)*(2*ffmcfmb*fmb*hbcm+2*ffmcfmb*fmc*hbcm-2*fmb*
6579      . hbcm-fmb2+fmc2+hbcm2)+4*(-ffmcfmb*hbcm2*p1p4*p6p7-2*fmc*hbcm*
6580      . p1p2*p6p7+fmc*hbcm*p1p5*p6p7+2*fmc*hbcm*p2p3*p6p7-fmc*hbcm*
6581      . p2p5*p6p7-fmc*hbcm*p3p5*p6p7-2*p1p2*p3p4*p6p7+4*p2p4*p3p4*p6p7
6582      . -p3p4*p3p5*p6p7))+((p6p7*p2p3)*(16*fb2*ffmcfmb-24*fb2+4)+(p6p7
6583      . *p1p3)*(-16*fb2*ffmcfmb+8*fb2-4)+2*p6p7*(-4*fb2*ffmcfmb*hbcm2+
6584      . 2*fb2*fmb2-2*fb2*fmc2+2*fb2*hbcm2-3*fmb*hbcm-3*fmc*hbcm+5*
6585      . hbcm2)+8*(2*fb2*p1p2*p6p7-4*fb2*p2p4*p6p7-fb2*p3p4*p6p7+fb2*
6586      . p3p5*p6p7))
6587       ans1=w2*(4*(p6p7*p4p5)*(-fmb*hbcm-fmc*hbcm+hbcm2)+(p6p7*p3p5*
6588      . p2p3)*(8*ffmcfmb-12)+(p6p7*p3p5*p1p3)*(-8*ffmcfmb+4)+4*(p6p7*
6589      . p2p5)*(-ffmcfmb*hbcm2-2*fmb*hbcm-2*fmc*hbcm+3*hbcm2)+4*(p6p7*
6590      . p1p5)*(ffmcfmb*hbcm2-hbcm2)+2*p6p7*(-2*ffmcfmb*fmb*hbcm3-fmb*
6591      . fmc2*hbcm+fmb*hbcm3+fmb3*hbcm+2*p3p5s2)+2*(p6p7*p3p5)*(-2*
6592      . ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*hbcm+2*fmb*hbcm+fmb2-fmc2+hbcm2
6593      . )+4*(2*fmb*hbcm*p1p2*p6p7+fmb*hbcm*p1p4*p6p7-2*fmb*hbcm*p2p3*
6594      . p6p7-5*fmb*hbcm*p2p4*p6p7-fmb*hbcm*p3p4*p6p7+2*p1p2*p3p5*p6p7-
6595      . 4*p2p4*p3p5*p6p7-p3p4*p3p5*p6p7))+ans2
6596       ans=ccc*ans1
6597       b(4)=ans
6598       b(15)=ccc*(w1*(12*(p6p7*p3p4)*(fmb*hbcm-fmc*hbcm-hbcm2)+4*p6p7*
6599      . (-2*ffmcfmb*fmc*hbcm3+3*fmb*fmc*hbcm2-fmc*hbcm3+3*fmc2*hbcm2-6
6600      . *p3p4s2)+8*(fmc*hbcm*p1p3*p6p7+fmc*hbcm*p2p3*p6p7+fmc*hbcm*
6601      . p3p5*p6p7-hbcm2*p1p4*p6p7-hbcm2*p2p4*p6p7-hbcm2*p4p5*p6p7+p1p3
6602      . *p3p4*p6p7+p2p3*p3p4*p6p7+p3p4*p3p5*p6p7))+w2*(4*(p6p7*p3p5)*(
6603      . fmb*hbcm+3*fmc*hbcm+hbcm2)+4*p6p7*(2*ffmcfmb*fmb*hbcm3+3*fmb*
6604      . fmc*hbcm2+fmb*hbcm3+3*fmb2*hbcm2-2*p3p5s2)+8*(-fmb*hbcm*p1p3*
6605      . p6p7-fmb*hbcm*p2p3*p6p7+3*fmb*hbcm*p3p4*p6p7-hbcm2*p1p5*p6p7-
6606      . hbcm2*p2p5*p6p7-hbcm2*p4p5*p6p7-p1p3*p3p5*p6p7-p2p3*p3p5*p6p7+
6607      . 3*p3p4*p3p5*p6p7))+(4*p6p7*(-6*fb1*fmb*hbcm-6*fb1*fmc*hbcm+4*
6608      . fb2*ffmcfmb*hbcm2+2*fb2*hbcm2-5*hbcm2)+16*(-fb2*p1p3*p6p7-fb2*
6609      . p2p3*p6p7+3*fb2*p3p4*p6p7-fb2*p3p5*p6p7)))
6610       b(16)=ccc*(w2*(12*p6p7*(-fmb*fmc*hbcm+fmb*hbcm2+fmb2*hbcm)+4*(
6611      . p6p7*p3p5)*(-2*ffmcfmb*hbcm+3*fmb-3*fmc+3*hbcm)+8*(-hbcm*p1p5*
6612      . p6p7-hbcm*p2p5*p6p7-hbcm*p4p5*p6p7))+w1*(12*p6p7*(-fmb*fmc*
6613      . hbcm+fmc*hbcm2+fmc2*hbcm)+4*(p6p7*p3p4)*(2*ffmcfmb*hbcm-3*fmb+
6614      . 3*fmc+hbcm)+8*(-hbcm*p1p4*p6p7-hbcm*p2p4*p6p7-hbcm*p4p5*p6p7))
6615      . +12*p6p7*(-2*fb1*hbcm+2*fb2*fmb-2*fb2*fmc-hbcm))
6616       do 200 n=1,16
6617          c(n,1)=c(n,1)-0.8181818181818182d0*b(n)
6618          c(n,2)=c(n,2)+0.9833321660356334d0*b(n)
6619 200   continue
6620       return
6621       end
6622
6623       subroutine amp33_3p0(cc)
6624       implicit double precision(a-h,o-z)
6625       implicit integer (i-n)
6626       dimension b(16)
6627 #include "inclcon.h"
6628 #include "inclppp.h"
6629 #include "inclamp.h"
6630       do 100 n=1,16
6631          b(n)=0.0d0
6632 100   continue
6633       ccc=cc/((ffmcfmb**2*hbcm2-2*ffmcfmb*p2p3+2*ffmcfmb*p3p4+fmc2-2*
6634      . p2p4)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2)*(ffmcfmb**2*hbcm2
6635      . -2*ffmcfmb*hbcm2+2*ffmcfmb*p1p3-fmb2+hbcm2-2*p1p3))
6636       ans4=8*(p3p7*p3p6*p2p3)*(-2*ffmcfmb**2*hbcm-2*ffmcfmb*fmc+5*
6637      . ffmcfmb*hbcm)+4*p6p7*(ffmcfmb**2*fmc*hbcm4+2*ffmcfmb*hbcm*
6638      . p2p3s2+2*ffmcfmb*hbcm*p3p4s2+2*fmc*p2p3s2+2*fmc*p3p4s2+2*fmc2*
6639      . hbcm3-fmc3*hbcm2-2*hbcm*p3p4s2)+8*(ffmcfmb*fmc*hbcm2*p3p6*p5p7
6640      . -2*ffmcfmb*hbcm*p1p2*p3p6*p3p7+2*ffmcfmb*hbcm*p1p3*p3p6*p4p7-4
6641      . *ffmcfmb*hbcm*p1p3*p3p7*p4p6+ffmcfmb*hbcm*p2p3*p3p6*p5p7-2*
6642      . ffmcfmb*hbcm*p2p4*p3p6*p3p7+2*ffmcfmb*hbcm*p2p5*p3p6*p3p7+
6643      . ffmcfmb*hbcm*p3p4*p3p6*p5p7-2*ffmcfmb*hbcm*p3p5*p3p6*p4p7+4*
6644      . ffmcfmb*hbcm*p3p5*p3p7*p4p6+fmc*hbcm2*p1p4*p6p7+fmc*hbcm2*p4p6
6645      . *p5p7-fmc*p1p3*p3p4*p6p7-fmc2*hbcm*p1p3*p6p7-2*hbcm*p1p2*p3p4*
6646      . p6p7-4*hbcm*p1p2*p3p6*p4p7+2*hbcm*p1p2*p3p7*p4p6+2*hbcm*p1p3*
6647      . p2p4*p6p7-2*hbcm*p1p3*p4p6*p4p7+hbcm*p1p4*p2p3*p6p7+hbcm*p1p4*
6648      . p3p4*p6p7+2*hbcm*p2p3*p2p4*p6p7+hbcm*p2p3*p2p5*p6p7-hbcm*p2p3*
6649      . p3p7*p4p6+3*hbcm*p2p3*p4p6*p4p7+hbcm*p2p3*p4p6*p5p7-2*hbcm*
6650      . p2p4*p3p5*p6p7-2*hbcm*p2p4*p3p7*p4p6+3*hbcm*p2p5*p3p4*p6p7+4*
6651      . hbcm*p2p5*p3p6*p4p7-2*hbcm*p2p5*p3p7*p4p6+3*hbcm*p3p4*p4p6*
6652      . p4p7+hbcm*p3p4*p4p6*p5p7+2*hbcm*p3p5*p4p6*p4p7)
6653       ans3=8*(p4p7*p4p6)*(-2*ffmcfmb*hbcm3+fmc*hbcm2+2*hbcm3)+8*(p6p7
6654      . *p2p5)*(ffmcfmb*hbcm3+2*fmc*hbcm2)+8*(p6p7*p2p4)*(ffmcfmb*
6655      . hbcm3+fmc*hbcm2-2*hbcm3)+8*(p6p7*p1p2)*(-ffmcfmb*hbcm3-fmc*
6656      . hbcm2)+8*(p4p6*p3p7*p3p4)*(4*ffmcfmb*hbcm+hbcm)+8*(p4p7*p3p6*
6657      . p3p4)*(ffmcfmb*hbcm+2*fmc+2*hbcm)+8*(p6p7*p3p5*p3p4)*(ffmcfmb*
6658      . hbcm+fmc)+8*(p4p7*p3p6*p2p3)*(ffmcfmb*hbcm-2*fmc+6*hbcm)+8*(
6659      . p6p7*p3p5*p2p3)*(-ffmcfmb*hbcm-fmc)+8*(p6p7*p3p4*p2p3)*(-2*
6660      . ffmcfmb*hbcm-2*fmc+hbcm)+8*(p6p7*p2p3*p1p3)*(2*ffmcfmb*hbcm+
6661      . fmc)+8*(p4p7*p3p6)*(ffmcfmb*fmc*hbcm2-2*ffmcfmb*hbcm3+2*fmc*
6662      . hbcm2+2*fmc2*hbcm)+8*(p3p7*p3p6)*(3*ffmcfmb*fmc*hbcm2+2*
6663      . ffmcfmb*fmc2*hbcm)+8*(p6p7*p3p5)*(ffmcfmb*fmc*hbcm2+fmc2*hbcm)
6664      . +8*(p4p6*p3p7)*(-2*ffmcfmb**2*hbcm3+4*ffmcfmb*hbcm3+fmc*hbcm2)
6665      . +4*(p6p7*p3p4)*(ffmcfmb**2*hbcm3+2*ffmcfmb*fmc*hbcm2+fmc2*hbcm
6666      . )+4*(p6p7*p2p3)*(ffmcfmb**2*hbcm3-2*ffmcfmb*fmc*hbcm2-2*
6667      . ffmcfmb*hbcm3-3*fmc2*hbcm)+8*(p3p7*p3p6*p3p4)*(2*ffmcfmb**2*
6668      . hbcm+2*ffmcfmb*fmc+3*ffmcfmb*hbcm)+ans4
6669       ans2=w11*ans3
6670       ans7=8*(ffmcfmb*fmc*hbcm2*p3p6*p5p7+2*ffmcfmb*hbcm*p1p3*p3p6*
6671      . p4p7-4*ffmcfmb*hbcm*p1p3*p3p7*p4p6+2*ffmcfmb*hbcm*p2p3*p3p6*
6672      . p4p7-4*ffmcfmb*hbcm*p2p3*p3p7*p4p6+ffmcfmb*hbcm*p3p4*p3p6*p5p7
6673      . -2*ffmcfmb*hbcm*p3p5*p3p6*p4p7+4*ffmcfmb*hbcm*p3p5*p3p7*p4p6+
6674      . fmc*hbcm2*p1p4*p6p7+fmc*hbcm2*p2p5*p6p7+fmc*hbcm2*p4p6*p5p7-
6675      . fmc*p1p3*p3p4*p6p7-fmc2*hbcm*p1p3*p6p7-2*hbcm*p1p3*p4p6*p4p7+
6676      . hbcm*p1p4*p3p4*p6p7-2*hbcm*p2p3*p4p6*p4p7+hbcm*p2p5*p3p4*p6p7+
6677      . 3*hbcm*p3p4*p4p6*p4p7+hbcm*p3p4*p4p6*p5p7+2*hbcm*p3p5*p4p6*
6678      . p4p7)
6679       ans6=8*(p4p7*p4p6)*(-2*ffmcfmb*hbcm3+fmc*hbcm2+2*hbcm3)+8*(p4p6
6680      . *p3p7*p3p4)*(4*ffmcfmb*hbcm+hbcm)+8*(p4p7*p3p6*p3p4)*(ffmcfmb*
6681      . hbcm+2*fmc+2*hbcm)+8*(p6p7*p3p5*p3p4)*(ffmcfmb*hbcm+fmc)+8*(
6682      . p6p7*p3p4*p2p3)*(-ffmcfmb*hbcm-fmc)+8*(p4p7*p3p6)*(ffmcfmb*fmc
6683      . *hbcm2-2*ffmcfmb*hbcm3+2*fmc*hbcm2+2*fmc2*hbcm)+8*(p3p7*p3p6)*
6684      . (3*ffmcfmb*fmc*hbcm2+2*ffmcfmb*fmc2*hbcm)+8*(p6p7*p3p5)*(
6685      . ffmcfmb*fmc*hbcm2+fmc2*hbcm)+8*(p6p7*p2p3)*(-ffmcfmb*fmc*hbcm2
6686      . -fmc2*hbcm)+8*(p4p6*p3p7)*(-2*ffmcfmb**2*hbcm3+4*ffmcfmb*hbcm3
6687      . +fmc*hbcm2)+4*(p6p7*p3p4)*(ffmcfmb**2*hbcm3+2*ffmcfmb*fmc*
6688      . hbcm2+fmc2*hbcm)+8*(p3p7*p3p6*p3p4)*(2*ffmcfmb**2*hbcm+2*
6689      . ffmcfmb*fmc+3*ffmcfmb*hbcm)+4*p6p7*(ffmcfmb**2*fmc*hbcm4+2*
6690      . ffmcfmb*hbcm*p3p4s2+2*fmc*p3p4s2+2*fmc2*hbcm3-fmc3*hbcm2-2*
6691      . hbcm*p3p4s2)+ans7
6692       ans5=w1*ans6
6693       ans10=8*(p3p7*p3p6)*(-ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*fmc*hbcm-
6694      . ffmcfmb*fmb*hbcm2-ffmcfmb*fmb2*hbcm+ffmcfmb*fmc*hbcm2-ffmcfmb*
6695      . fmc2*hbcm+ffmcfmb*hbcm3-fmc*hbcm2+fmc2*hbcm)+8*(p6p7*p3p5)*(-
6696      . ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+ffmcfmb*
6697      . hbcm3+fmb*fmc*hbcm-fmc*hbcm2)+8*(p6p7*p2p3)*(ffmcfmb**2*hbcm3+
6698      . ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3-fmb*fmc*hbcm
6699      . +fmc*hbcm2)+4*(p6p7*p1p3)*(ffmcfmb**2*hbcm3-2*ffmcfmb*hbcm3-2*
6700      . fmb*fmc*hbcm+2*fmc*hbcm2+fmc2*hbcm)+8*(p3p7*p3p6*p1p3)*(2*
6701      . ffmcfmb**2*hbcm+2*ffmcfmb*fmc-3*ffmcfmb*hbcm)+4*p6p7*(-ffmcfmb
6702      . **2*fmb*hbcm4+ffmcfmb**2*fmc*hbcm4-ffmcfmb**2*hbcm5-ffmcfmb*
6703      . fmb2*hbcm3+ffmcfmb*fmc2*hbcm3+ffmcfmb*hbcm5+2*fmb*fmc*hbcm3+
6704      . fmb*fmc2*hbcm2-fmb2*fmc*hbcm2-fmc*hbcm4-2*fmc*p1p3s2-fmc2*
6705      . hbcm3)+8*(-ffmcfmb*hbcm*p1p3*p3p6*p5p7-hbcm*p1p3*p1p4*p6p7-
6706      . hbcm*p1p3*p2p5*p6p7-hbcm*p1p3*p4p6*p4p7-hbcm*p1p3*p4p6*p5p7)
6707       ans9=8*(p5p7*p4p6)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+8*(p4p7*
6708      . p4p6)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+8*(p6p7*p2p5)*(-ffmcfmb
6709      . *hbcm3-fmb*hbcm2+hbcm3)+8*(p6p7*p1p4)*(-ffmcfmb*hbcm3-fmb*
6710      . hbcm2+hbcm3)+16*(p4p7*p3p6*p3p5)*(-ffmcfmb*hbcm+hbcm)+16*(p5p7
6711      . *p3p6*p3p4)*(ffmcfmb*hbcm-hbcm)+16*(p3p7*p3p6*p2p5)*(ffmcfmb*
6712      . hbcm-hbcm)+32*(p5p7*p3p6*p2p3)*(-ffmcfmb*hbcm+hbcm)+16*(p4p7*
6713      . p3p6*p2p3)*(ffmcfmb*hbcm-hbcm)+16*(p3p7*p3p6*p1p4)*(ffmcfmb*
6714      . hbcm-hbcm)+8*(p4p6*p3p7*p1p3)*(-2*ffmcfmb*hbcm+hbcm)+8*(p4p7*
6715      . p3p6*p1p3)*(3*ffmcfmb*hbcm+2*fmc-4*hbcm)+8*(p6p7*p3p5*p1p3)*(-
6716      . ffmcfmb*hbcm+fmc)+8*(p6p7*p3p4*p1p3)*(ffmcfmb*hbcm+fmc-hbcm)+8
6717      . *(p6p7*p2p3*p1p3)*(ffmcfmb*hbcm-fmc)+8*(p4p7*p3p6)*(-ffmcfmb*
6718      . fmb*hbcm2+ffmcfmb*fmc*hbcm2-2*ffmcfmb*hbcm3+2*fmb*fmc*hbcm-2*
6719      . fmb2*hbcm-fmc*hbcm2+2*hbcm3)+8*(p6p7*p3p4)*(-ffmcfmb*fmb*hbcm2
6720      . +ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm+fmb*hbcm2-fmb2*hbcm-fmc*hbcm2)
6721      . +8*(p4p6*p3p7)*(-ffmcfmb**2*hbcm3+ffmcfmb*hbcm3-fmb*hbcm2+fmb2
6722      . *hbcm)+8*(p5p7*p3p6)*(ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2-
6723      . ffmcfmb*hbcm3)+ans10
6724       ans8=w13*ans9
6725       ans11=(8*(p4p6*p3p7)*(-2*fb1*hbcm+3*hbcm)+4*(p5p7*p3p6)*(-4*fb1
6726      . *ffmcfmb*hbcm+5*hbcm)+4*(p4p7*p3p6)*(4*fb1*ffmcfmb*hbcm-8*fb1*
6727      . hbcm-8*fb2*fmc-5*hbcm)+4*(p6p7*p3p5)*(-4*fb1*ffmcfmb*hbcm-4*
6728      . fb2*fmc+5*hbcm)+4*(p6p7*p3p4)*(-4*fb1*ffmcfmb*hbcm+4*fb1*hbcm-
6729      . 4*fb2*fmc-hbcm)+4*(p6p7*p2p3)*(4*fb1*ffmcfmb*hbcm+4*fb2*fmc-5*
6730      . hbcm)+4*p6p7*(-2*fb1*ffmcfmb**2*hbcm3+2*fb1*fmc2*hbcm-4*fb2*
6731      . fmc*hbcm2+2*ffmcfmb*hbcm3+3*fmb*hbcm2-fmc*hbcm2)+4*(p3p7*p3p6)
6732      . *(8*fb1*ffmcfmb**2*hbcm-12*fb1*ffmcfmb*hbcm-8*fb2*ffmcfmb*fmc-
6733      . 8*ffmcfmb*hbcm-2*fmc+9*hbcm)+16*(-fb1*hbcm*p1p4*p6p7-fb1*hbcm*
6734      . p2p5*p6p7-fb1*hbcm*p4p6*p4p7-fb1*hbcm*p4p6*p5p7+fb2*fmc*p1p3*
6735      . p6p7))
6736       ans1=ans2+ans5+ans8+ans11
6737       ans=ccc*ans1
6738       b(1)=ans
6739       ans3=(2*p4p7*(4*fb1*ffmcfmb*hbcm-8*fb2*fmb+12*fb2*fmc+hbcm)+2*
6740      . p3p7*(4*fb1*ffmcfmb*hbcm-8*fb2*ffmcfmb*fmb+8*fb2*ffmcfmb*fmc+4
6741      . *fb2*fmc-2*fmb+2*fmc-5*hbcm)-12*hbcm*p5p7)
6742       ans2=w1*(4*(p4p7*p3p4)*(-ffmcfmb*hbcm+2*fmb-3*fmc-2*hbcm)+4*(
6743      . p3p7*p3p4)*(2*ffmcfmb*fmb-2*ffmcfmb*fmc-5*ffmcfmb*hbcm-fmc)+4*
6744      . p4p7*(-ffmcfmb**2*hbcm3-3*ffmcfmb*fmc*hbcm2+2*ffmcfmb*hbcm3+2*
6745      . fmb*fmc*hbcm-4*fmc2*hbcm)+4*p3p7*(-2*ffmcfmb**2*fmc*hbcm2+2*
6746      . ffmcfmb*fmb*fmc*hbcm-ffmcfmb*fmc*hbcm2-4*ffmcfmb*fmc2*hbcm-
6747      . fmc2*hbcm)+8*(-ffmcfmb*hbcm*p1p3*p4p7+2*ffmcfmb*hbcm*p1p4*p3p7
6748      . -ffmcfmb*hbcm*p3p4*p5p7-fmc2*hbcm*p5p7+hbcm*p1p4*p4p7+2*hbcm*
6749      . p2p4*p5p7-hbcm*p2p5*p4p7))+w13*(4*(p4p7*p1p3)*(-ffmcfmb*hbcm+2
6750      . *fmb-3*fmc+2*hbcm)+4*(p3p7*p1p3)*(2*ffmcfmb*fmb-2*ffmcfmb*fmc+
6751      . ffmcfmb*hbcm-fmc)+4*p4p7*(3*ffmcfmb*fmb*hbcm2-3*ffmcfmb*fmc*
6752      . hbcm2+ffmcfmb*hbcm3-3*fmb*fmc*hbcm-2*fmb*hbcm2+3*fmb2*hbcm+3*
6753      . fmc*hbcm2-hbcm3)+4*p3p7*(2*ffmcfmb**2*fmb*hbcm2-2*ffmcfmb**2*
6754      . fmc*hbcm2+ffmcfmb**2*hbcm3-2*ffmcfmb*fmb*fmc*hbcm-ffmcfmb*fmb*
6755      . hbcm2+2*ffmcfmb*fmb2*hbcm+ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3-fmb*
6756      . fmc*hbcm+fmc*hbcm2))+ans3
6757       ans1=w11*(4*(p4p7*p3p4)*(-ffmcfmb*hbcm+2*fmb-3*fmc-2*hbcm)+4*(
6758      . p4p7*p2p3)*(ffmcfmb*hbcm-2*fmb+3*fmc-6*hbcm)+4*(p3p7*p3p4)*(2*
6759      . ffmcfmb*fmb-2*ffmcfmb*fmc-5*ffmcfmb*hbcm-fmc)+4*(p3p7*p2p3)*(-
6760      . 2*ffmcfmb*fmb+2*ffmcfmb*fmc-3*ffmcfmb*hbcm+fmc)+4*p4p7*(-
6761      . ffmcfmb**2*hbcm3-3*ffmcfmb*fmc*hbcm2+2*ffmcfmb*hbcm3+2*fmb*fmc
6762      . *hbcm-4*fmc2*hbcm)+4*p3p7*(-2*ffmcfmb**2*fmc*hbcm2+2*ffmcfmb*
6763      . fmb*fmc*hbcm-ffmcfmb*fmc*hbcm2-4*ffmcfmb*fmc2*hbcm-fmc2*hbcm)+
6764      . 8*(2*ffmcfmb*hbcm*p1p2*p3p7-ffmcfmb*hbcm*p1p3*p4p7+2*ffmcfmb*
6765      . hbcm*p1p4*p3p7+ffmcfmb*hbcm*p2p3*p5p7-4*ffmcfmb*hbcm*p2p5*p3p7
6766      . -ffmcfmb*hbcm*p3p4*p5p7-fmc2*hbcm*p5p7+3*hbcm*p1p2*p4p7+hbcm*
6767      . p1p4*p4p7+hbcm*p2p4*p3p7+3*hbcm*p2p4*p5p7-6*hbcm*p2p5*p4p7))+
6768      . ans2
6769       ans=ccc*ans1
6770       b(2)=ans
6771       ans2=w13*(8*(p3p6*p3p4)*(ffmcfmb*hbcm-hbcm)+24*(p3p6*p2p5)*(-
6772      . ffmcfmb*hbcm+hbcm)+16*(p3p6*p2p3)*(-ffmcfmb*hbcm+hbcm)+8*(p3p6
6773      . *p1p4)*(-ffmcfmb*hbcm+hbcm)+4*(p4p6*p1p3)*(ffmcfmb*hbcm+fmc-2*
6774      . hbcm)+16*(p3p6*p1p2)*(ffmcfmb*hbcm-hbcm)+4*p4p6*(-ffmcfmb*fmb*
6775      . hbcm2+ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3+fmb*fmc*hbcm-fmb2*hbcm-
6776      . fmc*hbcm2+hbcm3)+4*(p3p6*p1p3)*(-ffmcfmb**2*hbcm+ffmcfmb*fmc)+
6777      . 4*p3p6*(-ffmcfmb**2*fmb*hbcm2+ffmcfmb**2*fmc*hbcm2+ffmcfmb**2*
6778      . hbcm3+ffmcfmb*fmb*fmc*hbcm-ffmcfmb*fmb2*hbcm-ffmcfmb*fmc*hbcm2
6779      . -ffmcfmb*hbcm3))+(2*p4p6*(-4*fb1*ffmcfmb*hbcm-4*fb2*fmc-7*hbcm
6780      . )+2*p3p6*(-4*fb1*ffmcfmb**2*hbcm-4*fb2*ffmcfmb*fmc+4*ffmcfmb*
6781      . hbcm-fmc-6*hbcm))
6782       ans1=w11*(4*(p4p6*p3p4)*(-ffmcfmb*hbcm+fmc)+4*(p4p6*p2p3)*(
6783      . ffmcfmb*hbcm-fmc+2*hbcm)+4*p4p6*(ffmcfmb*fmc*hbcm2-fmc2*hbcm)+
6784      . 4*(p3p6*p3p4)*(-ffmcfmb**2*hbcm+ffmcfmb*fmc)+4*(p3p6*p2p3)*(
6785      . ffmcfmb**2*hbcm-ffmcfmb*fmc+2*ffmcfmb*hbcm)+4*p3p6*(ffmcfmb**2
6786      . *fmc*hbcm2-ffmcfmb*fmc2*hbcm)+8*(-ffmcfmb*hbcm*p1p2*p3p6+3*
6787      . ffmcfmb*hbcm*p2p4*p3p6+ffmcfmb*hbcm*p2p5*p3p6-hbcm*p1p2*p4p6+3
6788      . *hbcm*p2p4*p4p6+hbcm*p2p5*p4p6))+w1*(4*(p4p6*p3p4)*(-ffmcfmb*
6789      . hbcm+fmc)+4*p4p6*(ffmcfmb*fmc*hbcm2-fmc2*hbcm)+4*(p3p6*p3p4)*(
6790      . -ffmcfmb**2*hbcm+ffmcfmb*fmc)+4*p3p6*(ffmcfmb**2*fmc*hbcm2-
6791      . ffmcfmb*fmc2*hbcm)+16*(ffmcfmb*hbcm*p2p4*p3p6+hbcm*p2p4*p4p6))
6792      . +ans2
6793       ans=ccc*ans1
6794       b(3)=ans
6795       ans5=4*p6p7*(-ffmcfmb**2*fmb*hbcm3-ffmcfmb**2*fmc*hbcm3+ffmcfmb
6796      . **2*hbcm4+2*ffmcfmb*fmb*hbcm3-ffmcfmb*fmb2*hbcm2+2*ffmcfmb*fmc
6797      . *hbcm3+ffmcfmb*fmc2*hbcm2-ffmcfmb*hbcm4-2*ffmcfmb*p1p3s2+fmb*
6798      . fmc2*hbcm+fmb2*fmc*hbcm-fmc*hbcm3-fmc2*hbcm2)+8*(-ffmcfmb*p1p3
6799      . *p3p6*p5p7-p1p2*p1p3*p6p7-p1p3*p1p4*p6p7+p1p3*p2p3*p6p7+p1p3*
6800      . p2p4*p6p7+p1p3*p3p4*p6p7-3*p1p3*p4p6*p4p7-p1p3*p4p6*p5p7)
6801       ans4=(p4p6*p3p7*p1p3)*(-16*ffmcfmb-8)+(p4p7*p3p6*p1p3)*(8*
6802      . ffmcfmb-16)+8*(p5p7*p4p6)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+24*(
6803      . p4p7*p4p6)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(p6p7*p3p4)*(
6804      . ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(p6p7*p2p4)*(ffmcfmb*hbcm2+fmb
6805      . *hbcm-hbcm2)+8*(p6p7*p2p3)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(
6806      . p6p7*p1p4)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(p6p7*p1p2)*(-
6807      . ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(p4p7*p3p6)*(-ffmcfmb*fmb*hbcm
6808      . -ffmcfmb*fmc*hbcm-2*ffmcfmb*hbcm2+fmc*hbcm+2*hbcm2)+8*(p3p7*
6809      . p3p6*p1p3)*(2*ffmcfmb**2-3*ffmcfmb)+8*(p4p6*p3p7)*(-2*ffmcfmb
6810      . **2*hbcm2-2*ffmcfmb*fmb*hbcm+ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(
6811      . p5p7*p3p6)*(-ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm+ffmcfmb*hbcm2)+
6812      . 8*(p3p7*p3p6)*(-2*ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm-ffmcfmb*
6813      . fmc*hbcm+2*ffmcfmb*hbcm2+fmc*hbcm)+4*(p6p7*p1p3)*(-ffmcfmb**2*
6814      . hbcm2-2*ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*hbcm+2*ffmcfmb*hbcm2+2*
6815      . fmc*hbcm+fmc2)+ans5
6816       ans3=w13*ans4
6817       ans6=((p4p6*p3p7)*(32*fb2*ffmcfmb+16*fb2+8)+(p5p7*p3p6)*(16*fb2
6818      . *ffmcfmb+4)+(p4p7*p3p6)*(-16*fb2*ffmcfmb+32*fb2-4)+(p6p7*p1p3)
6819      . *(16*fb2*ffmcfmb+4)+(p3p7*p3p6)*(-32*fb2*ffmcfmb**2+48*fb2*
6820      . ffmcfmb-16*ffmcfmb+12)+4*p6p7*(2*fb2*ffmcfmb**2*hbcm2-4*fb2*
6821      . ffmcfmb*hbcm2-2*fb2*fmc2+3*fmb*hbcm+3*fmc*hbcm-hbcm2)+16*(fb2*
6822      . p1p2*p6p7+fb2*p1p4*p6p7-fb2*p2p3*p6p7-fb2*p2p4*p6p7-fb2*p3p4*
6823      . p6p7+3*fb2*p4p6*p4p7+fb2*p4p6*p5p7))
6824       ans2=w1*((p4p6*p3p7*p3p4)*(-16*ffmcfmb-8)+(p4p7*p3p6*p3p4)*(8*
6825      . ffmcfmb-16)+8*(p4p7*p4p6)*(-2*ffmcfmb*hbcm2-3*fmc*hbcm)+8*(
6826      . p4p7*p3p6)*(-ffmcfmb*fmc*hbcm-2*fmc*hbcm)+8*(p3p7*p3p6*p3p4)*(
6827      . 2*ffmcfmb**2-3*ffmcfmb)+8*(p4p6*p3p7)*(-2*ffmcfmb**2*hbcm2-2*
6828      . ffmcfmb*fmc*hbcm-fmc*hbcm)+4*(p6p7*p3p4)*(-ffmcfmb**2*hbcm2+2*
6829      . ffmcfmb*hbcm2+2*fmc*hbcm+fmc2)+4*p6p7*(-ffmcfmb**2*fmc*hbcm3+2
6830      . *ffmcfmb*fmc*hbcm3+fmc3*hbcm+2*p3p4s2)+8*(-ffmcfmb*fmc*hbcm*
6831      . p1p3*p6p7-3*ffmcfmb*fmc*hbcm*p3p6*p3p7-ffmcfmb*fmc*hbcm*p3p6*
6832      . p5p7-ffmcfmb*p1p3*p3p4*p6p7-ffmcfmb*p3p4*p3p6*p5p7-fmc*hbcm*
6833      . p1p2*p6p7-fmc*hbcm*p1p4*p6p7+fmc*hbcm*p2p3*p6p7+fmc*hbcm*p2p4*
6834      . p6p7-fmc*hbcm*p4p6*p5p7-p1p2*p3p4*p6p7-p1p4*p3p4*p6p7+p2p3*
6835      . p3p4*p6p7+p2p4*p3p4*p6p7-3*p3p4*p4p6*p4p7-p3p4*p4p6*p5p7))+
6836      . ans3+ans6
6837       ans1=w11*((p4p6*p3p7*p3p4)*(-16*ffmcfmb-8)+(p4p7*p3p6*p3p4)*(8*
6838      . ffmcfmb-16)+(p4p6*p3p7*p2p3)*(16*ffmcfmb+8)+(p4p7*p3p6*p2p3)*(
6839      . -8*ffmcfmb+16)+8*(p4p7*p4p6)*(-2*ffmcfmb*hbcm2-3*fmc*hbcm)+8*(
6840      . p4p7*p3p6)*(-ffmcfmb*fmc*hbcm-2*fmc*hbcm)+8*(p3p7*p3p6*p3p4)*(
6841      . 2*ffmcfmb**2-3*ffmcfmb)+8*(p3p7*p3p6*p2p3)*(-2*ffmcfmb**2+3*
6842      . ffmcfmb)+8*(p4p6*p3p7)*(-2*ffmcfmb**2*hbcm2-2*ffmcfmb*fmc*hbcm
6843      . -fmc*hbcm)+4*(p6p7*p3p4)*(-ffmcfmb**2*hbcm2+2*ffmcfmb*hbcm2+2*
6844      . fmc*hbcm+fmc2)+4*(p6p7*p2p3)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2
6845      . +2*fmc*hbcm-fmc2)+4*p6p7*(-ffmcfmb**2*fmc*hbcm3+2*ffmcfmb*fmc*
6846      . hbcm3+fmc3*hbcm-2*p2p3s2+2*p3p4s2)+8*(-ffmcfmb*fmc*hbcm*p1p3*
6847      . p6p7-3*ffmcfmb*fmc*hbcm*p3p6*p3p7-ffmcfmb*fmc*hbcm*p3p6*p5p7+
6848      . ffmcfmb*p1p3*p2p3*p6p7-ffmcfmb*p1p3*p3p4*p6p7+ffmcfmb*p2p3*
6849      . p3p6*p5p7-ffmcfmb*p3p4*p3p6*p5p7-fmc*hbcm*p1p2*p6p7-fmc*hbcm*
6850      . p1p4*p6p7+fmc*hbcm*p2p4*p6p7-fmc*hbcm*p4p6*p5p7+p1p2*p2p3*p6p7
6851      . -p1p2*p3p4*p6p7+p1p4*p2p3*p6p7-p1p4*p3p4*p6p7-p2p3*p2p4*p6p7+3
6852      . *p2p3*p4p6*p4p7+p2p3*p4p6*p5p7+p2p4*p3p4*p6p7-3*p3p4*p4p6*p4p7
6853      . -p3p4*p4p6*p5p7))+ans2
6854       ans=ccc*ans1
6855       b(4)=ans
6856       ans4=8*(3*ffmcfmb*fmc*hbcm*p1p3*p3p7-4*ffmcfmb*fmc*hbcm*p3p5*
6857      . p3p7-ffmcfmb*p1p3*p2p3*p3p7+ffmcfmb*p1p3*p3p4*p3p7+2*ffmcfmb*
6858      . p2p3*p3p4*p3p7+2*ffmcfmb*p2p3*p3p5*p3p7-2*ffmcfmb*p3p4*p3p5*
6859      . p3p7+2*fmc*hbcm*p1p3*p4p7-2*fmc*hbcm*p2p3*p5p7+fmc*hbcm*p3p4*
6860      . p5p7+hbcm2*p1p2*p4p7+hbcm2*p1p4*p4p7+3*hbcm2*p2p4*p5p7-4*hbcm2
6861      . *p2p5*p4p7-p1p3*p2p3*p4p7+p1p3*p3p4*p4p7-p1p4*p2p3*p3p7+p1p4*
6862      . p3p4*p3p7-p2p3*p2p5*p3p7+3*p2p3*p3p4*p4p7-3*p2p3*p3p4*p5p7+3*
6863      . p2p3*p3p5*p4p7+p2p5*p3p4*p3p7-3*p3p4*p3p5*p4p7)
6864       ans3=8*(p4p7*p3p5)*(-ffmcfmb*hbcm2-4*fmc*hbcm)+4*(p4p7*p3p4)*(
6865      . ffmcfmb*hbcm2-2*fmb*hbcm-3*fmc*hbcm-4*hbcm2)+8*(p3p7*p2p5)*(-3
6866      . *ffmcfmb*hbcm2+2*fmc*hbcm)+8*(p3p7*p2p4)*(-ffmcfmb*hbcm2+fmc*
6867      . hbcm+hbcm2)+4*(p4p7*p2p3)*(5*ffmcfmb*hbcm2-2*fmb*hbcm+3*fmc*
6868      . hbcm)+8*(p3p7*p1p4)*(2*ffmcfmb*hbcm2+fmc*hbcm)+8*(p3p7*p1p2)*(
6869      . ffmcfmb*hbcm2-fmc*hbcm)+8*p5p7*(ffmcfmb*fmc*hbcm3-fmc2*hbcm2+2
6870      . *p2p3s2+p3p4s2)+4*p4p7*(-ffmcfmb**2*hbcm4+ffmcfmb*fmc*hbcm3-2*
6871      . fmb*fmc*hbcm2-4*fmc*hbcm3-2*fmc2*hbcm2-6*p2p3s2)+4*(p3p7*p3p4)
6872      . *(3*ffmcfmb**2*hbcm2-2*ffmcfmb*fmb*hbcm-4*ffmcfmb*fmc*hbcm-5*
6873      . ffmcfmb*hbcm2-fmc*hbcm-fmc2)+4*(p3p7*p2p3)*(ffmcfmb**2*hbcm2-2
6874      . *ffmcfmb*fmb*hbcm+4*ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2+fmc*hbcm+
6875      . fmc2)+4*p3p7*(ffmcfmb**2*fmc*hbcm3-2*ffmcfmb*fmb*fmc*hbcm2-5*
6876      . ffmcfmb*fmc*hbcm3-2*ffmcfmb*fmc2*hbcm2-4*ffmcfmb*p2p3s2-fmc2*
6877      . hbcm2-fmc3*hbcm)+ans4
6878       ans2=w11*ans3
6879       ans8=8*(ffmcfmb*hbcm2*p1p3*p5p7+2*ffmcfmb*p1p3*p2p3*p3p7-2*
6880      . ffmcfmb*p1p3*p3p5*p3p7+p1p3*p1p4*p3p7+3*p1p3*p2p3*p4p7-2*p1p3*
6881      . p2p3*p5p7+p1p3*p2p5*p3p7+p1p3*p3p4*p5p7-3*p1p3*p3p5*p4p7)
6882       ans7=24*(p4p7*p3p5)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(p5p7*
6883      . p3p4)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(p3p7*p2p5)*(ffmcfmb*
6884      . hbcm2+fmb*hbcm-hbcm2)+16*(p5p7*p2p3)*(-ffmcfmb*hbcm2-fmb*hbcm+
6885      . hbcm2)+24*(p4p7*p2p3)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(p3p7*
6886      . p1p4)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+4*(p4p7*p1p3)*(3*ffmcfmb*
6887      . hbcm2+4*fmb*hbcm+fmc*hbcm-6*hbcm2)+4*p4p7*(ffmcfmb*fmb*hbcm3+
6888      . ffmcfmb*fmc*hbcm3-3*ffmcfmb*hbcm4+fmb*fmc*hbcm2-4*fmb*hbcm3+
6889      . fmb2*hbcm2-fmc*hbcm3+3*hbcm4+2*p1p3s2)+8*p5p7*(ffmcfmb**2*
6890      . hbcm4+ffmcfmb*fmb*hbcm3-ffmcfmb*hbcm4)+16*(p3p7*p3p5)*(-
6891      . ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm+ffmcfmb*hbcm2)+16*(p3p7*p2p3
6892      . )*(ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm-ffmcfmb*hbcm2)+4*(p3p7*
6893      . p1p3)*(3*ffmcfmb**2*hbcm2+4*ffmcfmb*fmb*hbcm+2*ffmcfmb*fmc*
6894      . hbcm-5*ffmcfmb*hbcm2-fmc*hbcm-fmc2)+4*p3p7*(ffmcfmb**2*fmb*
6895      . hbcm3+ffmcfmb**2*fmc*hbcm3-2*ffmcfmb**2*hbcm4-3*ffmcfmb*fmb*
6896      . hbcm3+ffmcfmb*fmb2*hbcm2-ffmcfmb*fmc*hbcm3-ffmcfmb*fmc2*hbcm2+
6897      . 2*ffmcfmb*hbcm4+2*ffmcfmb*p1p3s2+fmb*fmc*hbcm2-fmb*fmc2*hbcm-
6898      . fmb2*fmc*hbcm+fmc2*hbcm2)+ans8
6899       ans6=w13*ans7
6900       ans9=((p3p7*p3p5)*(32*fb2*ffmcfmb+8)+(p3p7*p2p3)*(-32*fb2*
6901      . ffmcfmb-8)+(p3p7*p1p3)*(-16*fb2*ffmcfmb-4)+4*p5p7*(-4*fb2*
6902      . ffmcfmb*hbcm2-hbcm2)+2*p4p7*(8*fb1*fmb*hbcm+4*fb1*fmc*hbcm+4*
6903      . fb2*ffmcfmb*hbcm2+8*fb2*hbcm2-hbcm2)+2*p3p7*(8*fb1*ffmcfmb*fmb
6904      . *hbcm+4*fb1*fmc*hbcm+4*fb2*ffmcfmb**2*hbcm2+4*fb2*ffmcfmb*
6905      . hbcm2+4*fb2*fmc2-4*fmb*hbcm-6*fmc*hbcm+hbcm2)+16*(-fb2*p1p3*
6906      . p4p7-fb2*p1p4*p3p7-3*fb2*p2p3*p4p7+2*fb2*p2p3*p5p7-fb2*p2p5*
6907      . p3p7-fb2*p3p4*p5p7+3*fb2*p3p5*p4p7))
6908       ans5=w1*(8*(p4p7*p3p5)*(-ffmcfmb*hbcm2-4*fmc*hbcm)+4*(p4p7*p3p4
6909      . )*(ffmcfmb*hbcm2-2*fmb*hbcm-3*fmc*hbcm-4*hbcm2)+8*(p4p7*p2p3)*
6910      . (ffmcfmb*hbcm2+4*fmc*hbcm)+8*(p3p7*p1p4)*(2*ffmcfmb*hbcm2+fmc*
6911      . hbcm)+8*p5p7*(ffmcfmb*fmc*hbcm3-fmc2*hbcm2+p3p4s2)+4*p4p7*(-
6912      . ffmcfmb**2*hbcm4+ffmcfmb*fmc*hbcm3-2*fmb*fmc*hbcm2-4*fmc*hbcm3
6913      . -2*fmc2*hbcm2)+4*(p3p7*p3p4)*(3*ffmcfmb**2*hbcm2-2*ffmcfmb*fmb
6914      . *hbcm-4*ffmcfmb*fmc*hbcm-5*ffmcfmb*hbcm2-fmc*hbcm-fmc2)+4*p3p7
6915      . *(ffmcfmb**2*fmc*hbcm3-2*ffmcfmb*fmb*fmc*hbcm2-5*ffmcfmb*fmc*
6916      . hbcm3-2*ffmcfmb*fmc2*hbcm2-fmc2*hbcm2-fmc3*hbcm)+8*(3*ffmcfmb*
6917      . fmc*hbcm*p1p3*p3p7+4*ffmcfmb*fmc*hbcm*p2p3*p3p7-4*ffmcfmb*fmc*
6918      . hbcm*p3p5*p3p7+ffmcfmb*p1p3*p3p4*p3p7+2*ffmcfmb*p2p3*p3p4*p3p7
6919      . -2*ffmcfmb*p3p4*p3p5*p3p7+2*fmc*hbcm*p1p3*p4p7-2*fmc*hbcm*p2p3
6920      . *p5p7+fmc*hbcm*p2p5*p3p7+fmc*hbcm*p3p4*p5p7+hbcm2*p1p4*p4p7+2*
6921      . hbcm2*p2p4*p5p7-hbcm2*p2p5*p4p7+p1p3*p3p4*p4p7+p1p4*p3p4*p3p7+
6922      . 3*p2p3*p3p4*p4p7-2*p2p3*p3p4*p5p7+p2p5*p3p4*p3p7-3*p3p4*p3p5*
6923      . p4p7))+ans6+ans9
6924       ans1=ans2+ans5
6925       ans=ccc*ans1
6926       b(5)=ans
6927       ans5=8*(ffmcfmb*p1p3*p3p5*p3p6-2*fmb*hbcm*p1p2*p3p6+fmb*hbcm*
6928      . p1p4*p3p6+3*fmb*hbcm*p2p5*p3p6-2*p1p2*p1p3*p3p6+p1p3*p1p4*p3p6
6929      . -3*p1p3*p2p3*p4p6+3*p1p3*p2p5*p3p6+p1p3*p3p4*p4p6+p1p3*p3p5*
6930      . p4p6)
6931       ans4=(p3p6*p3p4*p1p3)*(8*ffmcfmb-8)+(p3p6*p2p3*p1p3)*(-24*
6932      . ffmcfmb+16)+8*(p4p6*p3p5)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(
6933      . p4p6*p3p4)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+24*(p4p6*p2p3)*(-
6934      . ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+4*(p4p6*p1p3)*(ffmcfmb*hbcm2-2*
6935      . fmb*hbcm-fmc*hbcm+2*hbcm2)+8*(p3p6*p3p4)*(ffmcfmb*fmb*hbcm+
6936      . ffmcfmb*fmc*hbcm-fmb*hbcm-fmc*hbcm)+4*p4p6*(2*ffmcfmb**2*hbcm4
6937      . +ffmcfmb*fmb*hbcm3-ffmcfmb*fmc*hbcm3-ffmcfmb*hbcm4-fmb*fmc*
6938      . hbcm2+2*fmb*hbcm3-fmb2*hbcm2+fmc*hbcm3-hbcm4-2*p1p3s2)+8*(p3p6
6939      . *p3p5)*(ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm-ffmcfmb*hbcm2)+8*(
6940      . p3p6*p2p3)*(-ffmcfmb**2*hbcm2-3*ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc
6941      . *hbcm+ffmcfmb*hbcm2+2*fmb*hbcm+2*fmc*hbcm)+4*(p3p6*p1p3)*(
6942      . ffmcfmb**2*hbcm2-ffmcfmb*fmc*hbcm)+4*p3p6*(ffmcfmb**2*fmb*
6943      . hbcm3+ffmcfmb**2*fmc*hbcm3+ffmcfmb**2*hbcm4-ffmcfmb*fmb*fmc*
6944      . hbcm2-ffmcfmb*fmb2*hbcm2-ffmcfmb*fmc*hbcm3-ffmcfmb*hbcm4)+ans5
6945       ans3=w13*ans4
6946       ans6=((p3p6*p3p5)*(-16*fb2*ffmcfmb-4)+(p3p6*p3p4)*(-16*fb2*
6947      . ffmcfmb+16*fb2-4)+(p3p6*p2p3)*(48*fb2*ffmcfmb-32*fb2+12)+2*
6948      . p4p6*(-4*fb1*fmc*hbcm-4*fb2*ffmcfmb*hbcm2-8*fb2*hbcm2-3*hbcm2)
6949      . +2*p3p6*(-4*fb1*ffmcfmb*fmc*hbcm-4*fb2*ffmcfmb**2*hbcm2+2*
6950      . ffmcfmb*hbcm2-6*fmb*hbcm-fmc*hbcm-6*hbcm2)+16*(2*fb2*p1p2*p3p6
6951      . +fb2*p1p3*p4p6-fb2*p1p4*p3p6+3*fb2*p2p3*p4p6-3*fb2*p2p5*p3p6-
6952      . fb2*p3p4*p4p6-fb2*p3p5*p4p6))
6953       ans2=w1*((p3p6*p3p4*p2p3)*(-24*ffmcfmb+16)+4*(p4p6*p3p4)*(-
6954      . ffmcfmb*hbcm2+3*fmc*hbcm+2*hbcm2)+4*p4p6*(ffmcfmb*fmc*hbcm3+2*
6955      . fmc*hbcm3-fmc2*hbcm2+2*p3p4s2)+8*(p3p6*p2p3)*(-3*ffmcfmb*fmc*
6956      . hbcm+2*fmc*hbcm)+4*(p3p6*p3p4)*(ffmcfmb**2*hbcm2+ffmcfmb*fmc*
6957      . hbcm-2*fmc*hbcm)+4*p3p6*(ffmcfmb**2*fmc*hbcm3+ffmcfmb*fmc2*
6958      . hbcm2+2*ffmcfmb*p3p4s2-2*fmc3*hbcm-2*p3p4s2)+8*(ffmcfmb*fmc*
6959      . hbcm*p3p5*p3p6+ffmcfmb*p3p4*p3p5*p3p6-2*fmc*hbcm*p1p2*p3p6-fmc
6960      . *hbcm*p1p3*p4p6+fmc*hbcm*p1p4*p3p6-3*fmc*hbcm*p2p3*p4p6+2*fmc*
6961      . hbcm*p2p4*p3p6+3*fmc*hbcm*p2p5*p3p6+fmc*hbcm*p3p5*p4p6+2*hbcm2
6962      . *p2p4*p4p6-2*p1p2*p3p4*p3p6-p1p3*p3p4*p4p6+p1p4*p3p4*p3p6-3*
6963      . p2p3*p3p4*p4p6+3*p2p5*p3p4*p3p6+p3p4*p3p5*p4p6))+ans3+ans6
6964       ans1=w11*((p3p6*p3p4*p2p3)*(-32*ffmcfmb+24)+4*(p4p6*p3p4)*(-
6965      . ffmcfmb*hbcm2+3*fmc*hbcm+2*hbcm2)+8*(p3p6*p2p5)*(ffmcfmb*hbcm2
6966      . +3*fmc*hbcm)+4*(p4p6*p2p3)*(-ffmcfmb*hbcm2-5*fmc*hbcm)+8*(p3p6
6967      . *p1p2)*(-ffmcfmb*hbcm2-2*fmc*hbcm)+4*p4p6*(ffmcfmb*fmc*hbcm3+2
6968      . *fmc*hbcm3-fmc2*hbcm2+6*p2p3s2+2*p3p4s2)+4*(p3p6*p3p4)*(
6969      . ffmcfmb**2*hbcm2+ffmcfmb*fmc*hbcm-2*fmc*hbcm)+4*(p3p6*p2p3)*(-
6970      . 3*ffmcfmb**2*hbcm2-3*ffmcfmb*fmc*hbcm+2*ffmcfmb*hbcm2+4*fmc*
6971      . hbcm)+4*p3p6*(ffmcfmb**2*fmc*hbcm3+ffmcfmb*fmc2*hbcm2+6*
6972      . ffmcfmb*p2p3s2+2*ffmcfmb*p3p4s2-2*fmc3*hbcm-4*p2p3s2-2*p3p4s2)
6973      . +8*(ffmcfmb*fmc*hbcm*p3p5*p3p6-ffmcfmb*p2p3*p3p5*p3p6+ffmcfmb*
6974      . p3p4*p3p5*p3p6-fmc*hbcm*p1p3*p4p6+fmc*hbcm*p1p4*p3p6+3*fmc*
6975      . hbcm*p2p4*p3p6+fmc*hbcm*p3p5*p4p6-hbcm2*p1p2*p4p6+3*hbcm2*p2p4
6976      . *p4p6+hbcm2*p2p5*p4p6+2*p1p2*p2p3*p3p6-2*p1p2*p3p4*p3p6+p1p3*
6977      . p2p3*p4p6-p1p3*p3p4*p4p6-p1p4*p2p3*p3p6+p1p4*p3p4*p3p6-3*p2p3*
6978      . p2p5*p3p6-4*p2p3*p3p4*p4p6-p2p3*p3p5*p4p6+3*p2p5*p3p4*p3p6+
6979      . p3p4*p3p5*p4p6))+ans2
6980       ans=ccc*ans1
6981       b(6)=ans
6982       ans2=w13*(4*p3p4*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+12*p2p5*(-
6983      . ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*p2p3*(-ffmcfmb*hbcm2-fmb*hbcm+
6984      . hbcm2)+4*p1p4*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*p1p2*(ffmcfmb*
6985      . hbcm2+fmb*hbcm-hbcm2)+4*p1p3*(-ffmcfmb**2*hbcm2-ffmcfmb*fmb*
6986      . hbcm+2*ffmcfmb*hbcm2)+4*(ffmcfmb**2*hbcm4+ffmcfmb*fmb*hbcm3-
6987      . ffmcfmb*hbcm4-ffmcfmb*p1p3s2+2*p1p2*p1p3-p1p3*p1p4-2*p1p3*p2p3
6988      . -3*p1p3*p2p5+p1p3*p3p4))+(p1p3*(8*fb2*ffmcfmb+2)+2*(-4*fb2*
6989      . ffmcfmb*hbcm2-8*fb2*p1p2+4*fb2*p1p4+8*fb2*p2p3+12*fb2*p2p5-4*
6990      . fb2*p3p4+3*fmb*hbcm+3*fmc*hbcm-hbcm2))
6991       ans1=w1*(8*p2p4*(ffmcfmb*hbcm2-fmc*hbcm)+4*p3p4*(-ffmcfmb**2*
6992      . hbcm2+ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2+fmc*hbcm)+4*(-ffmcfmb*fmc
6993      . *hbcm*p1p3+ffmcfmb*fmc*hbcm3-ffmcfmb*fmc2*hbcm2-ffmcfmb*p1p3*
6994      . p3p4+2*fmc*hbcm*p1p2-fmc*hbcm*p1p4-2*fmc*hbcm*p2p3-3*fmc*hbcm*
6995      . p2p5+fmc3*hbcm+2*p1p2*p3p4-p1p4*p3p4-2*p2p3*p3p4-3*p2p5*p3p4+
6996      . p3p4s2))+w11*(12*p2p4*(ffmcfmb*hbcm2-fmc*hbcm)+4*p3p4*(-
6997      . ffmcfmb**2*hbcm2+ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2+fmc*hbcm)+4*
6998      . p2p3*(ffmcfmb**2*hbcm2-ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2-2*fmc*
6999      . hbcm)+4*(-ffmcfmb*fmc*hbcm*p1p3+ffmcfmb*fmc*hbcm3-ffmcfmb*fmc2
7000      . *hbcm2+ffmcfmb*p1p3*p2p3-ffmcfmb*p1p3*p3p4+2*fmc*hbcm*p1p2-fmc
7001      . *hbcm*p1p4-3*fmc*hbcm*p2p5+fmc3*hbcm-2*p1p2*p2p3+2*p1p2*p3p4+
7002      . p1p4*p2p3-p1p4*p3p4+3*p2p3*p2p5-3*p2p3*p3p4+2*p2p3s2-3*p2p5*
7003      . p3p4+p3p4s2))+ans2
7004       ans=ccc*ans1
7005       b(7)=ans
7006       ans3=w13*(12*p2p5*(ffmcfmb*hbcm3+fmb*hbcm2-hbcm3)+4*p1p4*(
7007      . ffmcfmb*hbcm3+fmb*hbcm2-hbcm3)+8*p1p2*(-ffmcfmb*hbcm3-fmb*
7008      . hbcm2+hbcm3)+4*(p3p4*p1p3)*(-ffmcfmb*hbcm-fmc+hbcm)+8*(p2p3*
7009      . p1p3)*(ffmcfmb*hbcm+fmc-hbcm)+4*p3p4*(ffmcfmb*fmb*hbcm2-
7010      . ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm-fmb*hbcm2+fmb2*hbcm+fmc*hbcm2)+
7011      . 8*p2p3*(-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm+fmb*
7012      . hbcm2-fmb2*hbcm-fmc*hbcm2)+4*p1p3*(ffmcfmb*fmb*hbcm2-ffmcfmb*
7013      . fmc*hbcm2)+4*(ffmcfmb**2*fmb*hbcm4-ffmcfmb**2*fmc*hbcm4-
7014      . ffmcfmb*fmb*fmc*hbcm3-ffmcfmb*fmb*hbcm4+ffmcfmb*fmb2*hbcm3+
7015      . ffmcfmb*fmc*hbcm4+ffmcfmb*hbcm*p1p3s2-2*hbcm*p1p2*p1p3+hbcm*
7016      . p1p3*p1p4+3*hbcm*p1p3*p2p5))+(2*p3p4*(4*fb1*ffmcfmb*hbcm-4*fb1
7017      . *hbcm+4*fb2*fmc+hbcm)+8*p2p3*(-2*fb1*ffmcfmb*hbcm+2*fb1*hbcm-2
7018      . *fb2*fmc+hbcm)+2*p1p3*(4*fb1*ffmcfmb*hbcm+hbcm)+2*(4*fb1*
7019      . ffmcfmb**2*hbcm3-4*fb1*ffmcfmb*hbcm3-8*fb1*hbcm*p1p2+4*fb1*
7020      . hbcm*p1p4+12*fb1*hbcm*p2p5+4*fb2*ffmcfmb*fmc*hbcm2-ffmcfmb*
7021      . hbcm3-3*fmb*hbcm2+fmc*hbcm2-6*hbcm*p3p5-hbcm3))
7022       ans2=w1*(8*p2p4*(-ffmcfmb*hbcm3-fmc*hbcm2+2*hbcm3)+8*(p3p4*p2p3
7023      . )*(2*ffmcfmb*hbcm+fmc-hbcm)+4*p3p4*(-ffmcfmb*fmc*hbcm2-ffmcfmb
7024      . *hbcm3+fmc*hbcm2-fmc2*hbcm)+8*p2p3*(ffmcfmb*fmc*hbcm2-fmc*
7025      . hbcm2+2*fmc2*hbcm)+4*p1p3*(-ffmcfmb*fmc*hbcm2+2*fmc2*hbcm)+4*(
7026      . -ffmcfmb**2*fmc*hbcm4+ffmcfmb*fmc*hbcm4+ffmcfmb*hbcm*p1p3*p3p4
7027      . -2*ffmcfmb*hbcm*p3p4*p3p5-ffmcfmb*hbcm*p3p4s2+2*fmc*hbcm2*p1p2
7028      . -fmc*hbcm2*p1p4-3*fmc*hbcm2*p2p5-fmc*p3p4s2-2*fmc2*hbcm*p3p5-2
7029      . *fmc2*hbcm3+fmc3*hbcm2+2*hbcm*p1p2*p3p4-4*hbcm*p1p3*p2p4-hbcm*
7030      . p1p4*p3p4-4*hbcm*p2p3*p2p4+4*hbcm*p2p4*p3p5-3*hbcm*p2p5*p3p4+
7031      . hbcm*p3p4s2))+ans3
7032       ans1=w11*(4*p2p5*(-2*ffmcfmb*hbcm3-3*fmc*hbcm2)+12*p2p4*(-
7033      . ffmcfmb*hbcm3-fmc*hbcm2+2*hbcm3)+8*p1p2*(ffmcfmb*hbcm3+fmc*
7034      . hbcm2)+4*(p3p4*p2p3)*(5*ffmcfmb*hbcm+3*fmc-3*hbcm)+4*p3p4*(-
7035      . ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3+fmc*hbcm2-fmc2*hbcm)+4*p2p3*(2
7036      . *ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3-2*fmc*hbcm2+4*fmc2*hbcm)+4*
7037      . p1p3*(-ffmcfmb*fmc*hbcm2+2*fmc2*hbcm)+4*(-ffmcfmb**2*fmc*hbcm4
7038      . +ffmcfmb*fmc*hbcm4-3*ffmcfmb*hbcm*p1p3*p2p3+ffmcfmb*hbcm*p1p3*
7039      . p3p4+2*ffmcfmb*hbcm*p2p3*p3p5-4*ffmcfmb*hbcm*p2p3s2-2*ffmcfmb*
7040      . hbcm*p3p4*p3p5-ffmcfmb*hbcm*p3p4s2-fmc*hbcm2*p1p4-2*fmc*p2p3s2
7041      . -fmc*p3p4s2-2*fmc2*hbcm*p3p5-2*fmc2*hbcm3+fmc3*hbcm2-2*hbcm*
7042      . p1p2*p2p3+4*hbcm*p1p2*p3p4-6*hbcm*p1p3*p2p4-hbcm*p1p4*p2p3-
7043      . hbcm*p1p4*p3p4-6*hbcm*p2p3*p2p4+hbcm*p2p3*p2p5+2*hbcm*p2p3s2+6
7044      . *hbcm*p2p4*p3p5-5*hbcm*p2p5*p3p4+hbcm*p3p4s2))+ans2
7045       ans=ccc*ans1
7046       b(8)=ans
7047       ans=ccc*(w1*(4*(p3p6*p3p4)*(ffmcfmb*hbcm+3*fmc)+4*p3p6*(-
7048      . ffmcfmb*fmc*hbcm2+5*fmc2*hbcm)+16*(-fmc*hbcm2*p4p6-hbcm*p2p4*
7049      . p3p6-hbcm*p3p4*p4p6))+w13*(16*p4p6*(ffmcfmb*hbcm3+fmb*hbcm2-
7050      . hbcm3)+24*(p3p6*p3p5)*(ffmcfmb*hbcm-hbcm)+8*(p3p6*p3p4)*(-
7051      . ffmcfmb*hbcm+hbcm)+8*(p3p6*p2p3)*(-ffmcfmb*hbcm+hbcm)+4*(p3p6*
7052      . p1p3)*(ffmcfmb*hbcm+3*fmc)+4*p3p6*(-ffmcfmb**2*hbcm3+ffmcfmb*
7053      . fmb*hbcm2+4*ffmcfmb*hbcm3+3*fmb*fmc*hbcm-3*fmb2*hbcm-3*hbcm3)+
7054      . 16*hbcm*p1p3*p4p6)+w11*(4*p4p6*(-ffmcfmb*hbcm3-3*fmc*hbcm2-2*
7055      . hbcm3)+4*(p3p6*p3p4)*(-ffmcfmb*hbcm+3*fmc+2*hbcm)+4*(p3p6*p2p3
7056      . )*(-3*ffmcfmb*hbcm-3*fmc+2*hbcm)+4*p3p6*(-ffmcfmb**2*hbcm3+5*
7057      . fmc2*hbcm)+8*(-ffmcfmb*hbcm*p3p5*p3p6-hbcm*p1p2*p3p6+hbcm*p1p3
7058      . *p4p6-hbcm*p1p4*p3p6+hbcm*p2p3*p4p6-3*hbcm*p2p4*p3p6-3*hbcm*
7059      . p3p4*p4p6-hbcm*p3p5*p4p6))+(2*p3p6*(4*fb1*ffmcfmb*hbcm-12*fb2*
7060      . fmc-5*hbcm)+32*fb1*hbcm*p4p6))
7061       b(9)=ans
7062       b(10)=ccc*(16*w1*(ffmcfmb*fmc*hbcm*p3p6+ffmcfmb*p3p4*p3p6+fmc*
7063      . hbcm*p4p6+p3p4*p4p6)+w13*(16*p4p6*(ffmcfmb*hbcm2+fmb*hbcm-
7064      . hbcm2)+4*p3p6*(ffmcfmb**2*hbcm2+4*ffmcfmb*fmb*hbcm+3*ffmcfmb*
7065      . fmc*hbcm-ffmcfmb*hbcm2-3*fmc*hbcm)+16*(ffmcfmb*p1p3*p3p6+p1p3*
7066      . p4p6))+w11*(4*p4p6*(ffmcfmb*hbcm2+3*fmc*hbcm)+4*p3p6*(ffmcfmb
7067      . **2*hbcm2+3*ffmcfmb*fmc*hbcm)+16*(-ffmcfmb*p2p3*p3p6+ffmcfmb*
7068      . p3p4*p3p6-p2p3*p4p6+p3p4*p4p6))+(p3p6*(-32*fb2*ffmcfmb-8)-32*
7069      . fb2*p4p6))
7070       ans2=(-12*fb1*fmc*hbcm+20*fb2*ffmcfmb*hbcm2-24*fb2*hbcm2+24*fb2
7071      . *p1p3+8*fb2*p2p3+8*fb2*p3p4-24*fb2*p3p5-hbcm2)
7072       ans1=w1*(2*p3p4*(-3*ffmcfmb*hbcm2+fmc*hbcm+6*hbcm2)+2*(-5*
7073      . ffmcfmb*fmc*hbcm3-6*fmc*hbcm*p1p3-2*fmc*hbcm*p2p3+6*fmc*hbcm*
7074      . p3p5+6*fmc*hbcm3+5*fmc2*hbcm2-4*hbcm2*p2p4-6*p1p3*p3p4-2*p2p3*
7075      . p3p4+6*p3p4*p3p5-2*p3p4s2))+w13*(12*p3p5*(ffmcfmb*hbcm2+fmb*
7076      . hbcm-hbcm2)+4*p3p4*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+4*p2p3*(-
7077      . ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+2*p1p3*(-5*ffmcfmb*hbcm2-6*fmb*
7078      . hbcm-3*fmc*hbcm+6*hbcm2)+2*(-2*ffmcfmb**2*hbcm4-5*ffmcfmb*fmb*
7079      . hbcm3-3*ffmcfmb*fmc*hbcm3+5*ffmcfmb*hbcm4-3*fmb*fmc*hbcm2+6*
7080      . fmb*hbcm3-3*fmb2*hbcm2+3*fmc*hbcm3-3*hbcm4-2*p1p3*p2p3-2*p1p3*
7081      . p3p4+6*p1p3*p3p5-6*p1p3s2))+w11*(2*p3p4*(-5*ffmcfmb*hbcm2+3*
7082      . fmc*hbcm+8*hbcm2)+2*p2p3*(ffmcfmb*hbcm2-3*fmc*hbcm-4*hbcm2)+4*
7083      . p1p3*(-ffmcfmb*hbcm2-3*fmc*hbcm)+2*(-2*ffmcfmb**2*hbcm4-3*
7084      . ffmcfmb*fmc*hbcm3+2*ffmcfmb*hbcm4+6*fmc*hbcm*p3p5+6*fmc*hbcm3+
7085      . 5*fmc2*hbcm2-2*hbcm2*p1p2-2*hbcm2*p1p4-6*hbcm2*p2p4+6*p1p3*
7086      . p2p3-6*p1p3*p3p4-6*p2p3*p3p5+2*p2p3s2+6*p3p4*p3p5-2*p3p4s2))+
7087      . ans2
7088       ans=ccc*ans1
7089       b(11)=ans
7090       ans2=w11*(4*p5p7*(2*ffmcfmb*hbcm3+3*fmc*hbcm2)+4*p4p7*(3*
7091      . ffmcfmb*hbcm3-2*fmb*hbcm2+2*fmc*hbcm2-8*hbcm3)+4*(p3p7*p3p4)*(
7092      . -6*ffmcfmb*hbcm-2*fmc+hbcm)+4*(p3p7*p2p3)*(6*ffmcfmb*hbcm+2*
7093      . fmc-hbcm)+4*p3p7*(ffmcfmb**2*hbcm3-2*ffmcfmb*fmb*hbcm2-2*
7094      . ffmcfmb*fmc*hbcm2-5*ffmcfmb*hbcm3+2*fmc*hbcm2-3*fmc2*hbcm)+4*(
7095      . 6*ffmcfmb*hbcm*p1p3*p3p7-8*ffmcfmb*hbcm*p3p5*p3p7+2*hbcm*p1p2*
7096      . p3p7+8*hbcm*p1p3*p4p7+2*hbcm*p1p4*p3p7+7*hbcm*p2p3*p4p7-hbcm*
7097      . p2p3*p5p7+2*hbcm*p2p4*p3p7-3*hbcm*p3p4*p4p7+5*hbcm*p3p4*p5p7-
7098      . 12*hbcm*p3p5*p4p7))+(8*p3p7*(2*fb1*ffmcfmb*hbcm-fb1*hbcm+2*fb2
7099      . *fmc-hbcm)+8*(fb1*hbcm*p4p7-3*fb1*hbcm*p5p7))
7100       ans1=w1*(4*p4p7*(2*ffmcfmb*hbcm3-fmc*hbcm2-2*hbcm3)+4*(p3p7*
7101      . p3p4)*(-6*ffmcfmb*hbcm-2*fmc+hbcm)+4*p3p7*(-4*ffmcfmb*fmc*
7102      . hbcm2+fmc*hbcm2-2*fmc2*hbcm)+4*(3*fmc