bin/BCVEGPY/p1p1amp.F

0001 c...this is the 36 amplitude for (1p1) 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_1p1(cc)
0008       implicit double precision(a-h,o-z)
0009       implicit integer (i-n)
0010       dimension b(32)
0011 #include "inclcon.h"
0012 #include "inclppp.h"
0013 #include "inclamp.h"
0014       do 100 n=1,32
0015          b(n)=0.0d0
0016 100   continue
0017       ccc=cc/((-2*p1p5)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2)*(-fmb2
0018      . +fmc2+hbcm2+2*p3p4))
0019       b(2)=ccc*(w1*(8*(p6p7*p4p8)*(fmb2*hbcm-fmc2*hbcm-hbcm3)-16*hbcm
0020      . *p3p4*p4p8*p6p7)+32*(fb4*hbcm*p2p8*p6p7+fb4*hbcm*p3p7*p6p8+fb4
0021      . *hbcm*p4p7*p6p8))
0022       b(3)=8*ccc*w1*(p5p7*p4p8)*(fmb*hbcm+fmc*hbcm-2*hbcm2)
0023       b(4)=16*ccc*p5p7*(-fb4*fmb*hbcm-fb4*fmc*hbcm)
0024       b(5)=ccc*(w1*(8*(p5p7*p4p8)*(2*fmb*hbcm2-2*fmc*hbcm2-hbcm3)-16*
0025      . hbcm*p3p4*p4p8*p5p7)+32*fb4*hbcm*p4p8*p5p7)
0026       b(6)=w1*ccc*(8*(p5p6*p4p8)*(fmb*hbcm+fmc*hbcm-2*hbcm2)+8*(p4p8*
0027      . p4p6)*(fmb*hbcm+fmc*hbcm-2*hbcm2)+8*(p4p8*p3p6)*(fmb*hbcm+fmc*
0028      . hbcm-2*hbcm2))
0029       b(7)=ccc*(16*p5p6*(-fb4*fmb*hbcm-fb4*fmc*hbcm)+16*p4p6*(-fb4*
0030      . fmb*hbcm-fb4*fmc*hbcm)+16*p3p6*(-fb4*fmb*hbcm-fb4*fmc*hbcm))
0031       b(8)=ccc*(w1*(8*(p5p6*p4p8)*(2*fmb*hbcm2-2*fmc*hbcm2-hbcm3)+8*(
0032      . p4p8*p4p6)*(2*fmb*hbcm2-2*fmc*hbcm2-hbcm3)+8*(p4p8*p3p6)*(2*
0033      . fmb*hbcm2-fmb2*hbcm-2*fmc*hbcm2+fmc2*hbcm)+16*(-hbcm*p3p4*p4p6
0034      . *p4p8-hbcm*p3p4*p4p8*p5p6))+(16*p6p8*(fb4*fmb2*hbcm-fb4*fmc2*
0035      . hbcm-fb4*hbcm3)+32*(-fb4*hbcm*p3p4*p6p8+fb4*hbcm*p3p6*p4p8+fb4
0036      . *hbcm*p4p6*p4p8+fb4*hbcm*p4p8*p5p6)))
0037       b(9)=ccc*(16*p6p7*(-fb4*fmb2*hbcm+fb4*fmc2*hbcm+fb4*hbcm3)+32*(
0038      . -fb4*hbcm*p2p3*p6p7+fb4*hbcm*p3p4*p6p7-fb4*hbcm*p3p6*p3p7-fb4*
0039      . hbcm*p3p6*p4p7))
0040       b(10)=ccc*(w1*(16*(p6p7*p4p8)*(-fmb2*hbcm2+fmc2*hbcm2+hbcm4)+16
0041      . *(p5p6*p4p8*p3p7)*(-fmb*hbcm-fmc*hbcm+2*hbcm2)+16*(p4p8*p4p6*
0042      . p3p7)*(-fmb*hbcm-fmc*hbcm+2*hbcm2)+16*(p4p8*p4p7*p3p6)*(fmb*
0043      . hbcm+fmc*hbcm-2*hbcm2)+32*hbcm2*p3p4*p4p8*p6p7)+(32*(p7p8*p5p6
0044      . )*(fb4*fmb*hbcm+fb4*fmc*hbcm)+32*(p6p8*p4p7)*(-fb4*fmb*hbcm-
0045      . fb4*fmc*hbcm)+32*(p7p8*p4p6)*(fb4*fmb*hbcm+fb4*fmc*hbcm)+32*(
0046      . p6p8*p3p7)*(-fb4*fmb*hbcm-fb4*fmc*hbcm)+32*(p7p8*p3p6)*(fb4*
0047      . fmb*hbcm+fb4*fmc*hbcm)+32*(p6p7*p2p8)*(-fb4*fmb*hbcm-fb4*fmc*
0048      . hbcm)))
0049       b(11)=ccc*(w1*(4*p4p8*(fmb2*hbcm-fmc2*hbcm-hbcm3)-8*hbcm*p3p4*
0050      . p4p8)+16*(-fb4*hbcm*p1p8-fb4*hbcm*p2p8+fb4*hbcm*p4p8+fb4*hbcm*
0051      . p5p8))
0052       b(13)=ccc*(w1*(8*p4p8*(-fmb*hbcm3+fmb2*hbcm2-fmc*hbcm3-fmc2*
0053      . hbcm2+hbcm4)+8*(p4p8*p3p5)*(-fmb*hbcm-fmc*hbcm+2*hbcm2)+8*(
0054      . p4p8*p3p4)*(-fmb*hbcm-fmc*hbcm)+8*(p4p8*p2p3)*(fmb*hbcm+fmc*
0055      . hbcm-2*hbcm2)+8*(p4p8*p1p3)*(fmb*hbcm+fmc*hbcm-2*hbcm2))+(16*
0056      . p5p8*(fb4*fmb*hbcm+fb4*fmc*hbcm)+16*p4p8*(fb4*fmb*hbcm+fb4*fmc
0057      . *hbcm)+16*p2p8*(-fb4*fmb*hbcm-fb4*fmc*hbcm)+16*p1p8*(-fb4*fmb*
0058      . hbcm-fb4*fmc*hbcm)))
0059       b(14)=8*ccc*(-fb4*fmb2*hbcm+fb4*fmc2*hbcm+2*fb4*hbcm*p1p3+2*fb4
0060      . *hbcm*p2p3-2*fb4*hbcm*p3p5-fb4*hbcm3)
0061       b(15)=ccc*(8*w1*(p4p8*p3p6)*(fmb*hbcm+fmc*hbcm-2*hbcm2)+16*p6p8
0062      . *(-fb4*fmb*hbcm-fb4*fmc*hbcm))
0063       b(16)=16*ccc*fb4*hbcm*p6p8
0064       b(17)=ccc*(w1*(4*p4p8*(-2*fmb*hbcm2+2*fmc*hbcm2+hbcm3)+8*hbcm*
0065      . p3p4*p4p8)-16*fb4*hbcm*p4p8)
0066       b(19)=4*ccc*w1*p4p8*(-fmb*hbcm-fmc*hbcm+2*hbcm2)
0067       b(21)=8*ccc*fb4*hbcm
0068       b(22)=8*ccc*(fb4*fmb*hbcm+fb4*fmc*hbcm)
0069       b(24)=-16*ccc*fb4*hbcm*p3p6
0070       b(25)=-16*ccc*fb4*hbcm*p5p7
0071       b(26)=16*ccc*(-fb4*hbcm*p3p6-fb4*hbcm*p4p6-fb4*hbcm*p5p6)
0072       b(27)=16*ccc*p6p7*(fb4*fmb*hbcm+fb4*fmc*hbcm)
0073       b(28)=8*ccc*w1*(p6p7*p4p8)*(fmb*hbcm+fmc*hbcm-2*hbcm2)
0074       b(31)=ccc*(w1*(8*(p6p7*p4p8)*(-2*fmb*hbcm2+2*fmc*hbcm2+hbcm3)+
0075      . 16*hbcm*p3p4*p4p8*p6p7)-32*fb4*hbcm*p4p8*p6p7)
0076       b(32)=16*ccc*fb4*hbcm*p6p7
0077       do 200 n=1,32
0078          c(n,1)=c(n,1)-0.7272727272727273d0*b(n)
0079          c(n,2)=c(n,2)+0.1344727748424798d0*b(n)
0080          c(n,3)=c(n,3)+0.1662127982237257d0*b(n)
0081 200   continue
0082       return
0083         end
0084
0085       subroutine amp18_1p1(cc)
0086       implicit double precision(a-h,o-z)
0087       implicit integer (i-n)
0088       dimension b(32)
0089 #include "inclcon.h"
0090 #include "inclppp.h"
0091 #include "inclamp.h"
0092       do 100 n=1,32
0093          b(n)=0.0d0
0094 100   continue
0095       ccc=cc/((ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2)*(ffmcfmb**2*
0096      . hbcm2-2*ffmcfmb*hbcm2+2*ffmcfmb*p2p3-fmb2+hbcm2-2*p2p3)*(
0097      . ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+2*ffmcfmb*p3p5+fmc2+2*p4p5))
0098       b(1)=ccc*(32*(p5p6*p3p7)*(-fb3*ffmcfmb+fb3)+32*(p4p6*p3p7)*(fb3
0099      . *ffmcfmb-fb3)+4*p6p7*(-4*fb3*ffmcfmb**2*hbcm2+4*fb3*ffmcfmb*
0100      . hbcm2-8*fb3*fmb*fmc-4*fb3*fmb2-8*fb4*ffmcfmb*fmb*hbcm-8*fb4*
0101      . ffmcfmb*fmc*hbcm+4*fb4*fmb*hbcm+8*fb4*fmc*hbcm+2*fmb*hbcm+2*
0102      . fmc*hbcm-hbcm2)+32*(-fb3*ffmcfmb*p2p3*p6p7-2*fb3*p2p4*p6p7+fb3
0103      . *p2p5*p6p7))
0104       ans2=(8*(p6p7*p5p8)*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+
0105      . hbcm)+8*(p6p8*p5p7)*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-
0106      . hbcm)+8*(p6p7*p4p8)*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-
0107      . hbcm)+8*(p6p8*p4p7)*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+
0108      . hbcm)+8*(p7p8*p4p6)*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+
0109      . hbcm)+8*(p6p7*p2p8)*(4*fb3*fmb-8*fb3*fmc-4*fb4*ffmcfmb*hbcm+
0110      . hbcm)+8*(p6p8*p3p7)*(-4*fb3*ffmcfmb*fmb+4*fb3*ffmcfmb*fmc+4*
0111      . fb3*fmb-4*fb3*fmc-ffmcfmb*hbcm+hbcm)+32*(p7p8*p3p6)*(-fb3*
0112      . ffmcfmb*fmb-fb4*ffmcfmb**2*hbcm+fb4*ffmcfmb*hbcm)-8*hbcm*p5p6*
0113      . p7p8)
0114       ans1=w18*(16*(p5p8*p5p6*p3p7)*(ffmcfmb*hbcm-hbcm)+16*(p5p6*p4p8
0115      . *p3p7)*(ffmcfmb*hbcm-hbcm)+8*(p6p7*p5p8)*(ffmcfmb*fmb*hbcm2-
0116      . ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm-fmb*hbcm2+fmb2*hbcm+fmc*hbcm2)+
0117      . 8*(p6p7*p4p8)*(ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-fmb*fmc*
0118      . hbcm-fmb*hbcm2+fmb2*hbcm+fmc*hbcm2)+16*(p5p8*p3p7*p3p6)*(
0119      . ffmcfmb**2*hbcm-ffmcfmb*hbcm)+16*(p4p8*p3p7*p3p6)*(ffmcfmb**2*
0120      . hbcm-ffmcfmb*hbcm)+16*(hbcm*p2p4*p4p8*p6p7+hbcm*p2p4*p5p8*p6p7
0121      . -hbcm*p2p5*p4p8*p6p7-hbcm*p2p5*p5p8*p6p7))+w1*(16*(p5p6*p4p8*
0122      . p3p7)*(ffmcfmb*hbcm-hbcm)+8*(p6p7*p4p8)*(ffmcfmb*fmb*hbcm2-
0123      . ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm-fmb*hbcm2+fmb2*hbcm+fmc*hbcm2)+
0124      . 16*(p4p8*p3p7*p3p6)*(ffmcfmb**2*hbcm-ffmcfmb*hbcm)+16*(hbcm*
0125      . p2p4*p4p8*p6p7-hbcm*p2p5*p4p8*p6p7))+w8*(16*(p5p6*p3p7*p2p8)*(
0126      . ffmcfmb*hbcm-hbcm)+8*(p6p7*p2p8)*(ffmcfmb*fmb*hbcm2-ffmcfmb*
0127      . fmc*hbcm2-fmb*fmc*hbcm-fmb*hbcm2+fmb2*hbcm+fmc*hbcm2)+16*(p3p7
0128      . *p3p6*p2p8)*(ffmcfmb**2*hbcm-ffmcfmb*hbcm)+16*(hbcm*p2p4*p2p8*
0129      . p6p7-hbcm*p2p5*p2p8*p6p7))+ans2
0130       ans=ccc*ans1
0131       b(2)=ans
0132       ans=ccc*(w18*(8*(p5p8*p5p7)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(
0133      . p5p7*p4p8)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(p5p8*p4p7)*(-
0134      . ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(p4p8*p4p7)*(-ffmcfmb*hbcm2-
0135      . fmb*hbcm+hbcm2)+8*(p5p8*p3p7)*(-ffmcfmb*fmb*hbcm-ffmcfmb*fmc*
0136      . hbcm+fmb*hbcm+fmc*hbcm)+8*(p4p8*p3p7)*(-ffmcfmb*fmb*hbcm-
0137      . ffmcfmb*fmc*hbcm+fmb*hbcm+fmc*hbcm))+w1*(8*(p5p7*p4p8)*(
0138      . ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(p4p8*p4p7)*(-ffmcfmb*hbcm2-
0139      . fmb*hbcm+hbcm2)+8*(p4p8*p3p7)*(-ffmcfmb*fmb*hbcm-ffmcfmb*fmc*
0140      . hbcm+fmb*hbcm+fmc*hbcm))+w8*(8*(p5p7*p2p8)*(ffmcfmb*hbcm2+fmb*
0141      . hbcm-hbcm2)+8*(p4p7*p2p8)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(
0142      . p3p7*p2p8)*(-ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm+fmb*hbcm+fmc*
0143      . hbcm))+(32*(p5p8*p3p7)*(-fb3*ffmcfmb+fb3)+32*(p4p8*p3p7)*(fb3*
0144      . ffmcfmb-fb3)+4*p7p8*(-4*fb3*ffmcfmb**2*hbcm2+4*fb3*ffmcfmb*
0145      . hbcm2-4*fb3*fmb*fmc-4*fb4*ffmcfmb*fmb*hbcm-4*fb4*ffmcfmb*fmc*
0146      . hbcm+4*fb4*fmc*hbcm+2*fmb*hbcm+2*fmc*hbcm-hbcm2)+32*(-fb3*
0147      . ffmcfmb*p2p3*p7p8-fb3*ffmcfmb*p2p8*p3p7-fb3*p2p4*p7p8-2*fb3*
0148      . p2p8*p4p7+fb3*p2p8*p5p7)))
0149       b(3)=ans
0150       b(4)=ccc*(32*(p3p7*p3p5)*(fb3*ffmcfmb-fb3)+32*(p3p7*p3p4)*(-fb3
0151      . *ffmcfmb+fb3)+4*p5p7*(-4*fb3*ffmcfmb*hbcm2+4*fb3*hbcm2-4*fb4*
0152      . fmb*hbcm-hbcm2)+4*p4p7*(4*fb3*ffmcfmb*hbcm2-4*fb3*hbcm2+4*fb4*
0153      . fmb*hbcm+hbcm2)+4*p3p7*(4*fb3*ffmcfmb**2*hbcm2-4*fb3*ffmcfmb*
0154      . hbcm2+4*fb3*fmb*fmc+8*fb4*ffmcfmb*fmb*hbcm+8*fb4*ffmcfmb*fmc*
0155      . hbcm-4*fb4*fmb*hbcm-8*fb4*fmc*hbcm-fmb*hbcm-fmc*hbcm+hbcm2)+32
0156      . *(-fb3*p2p3*p4p7+fb3*p2p4*p3p7))
0157       ans2=(32*(p5p8*p3p7)*(fb4*ffmcfmb*hbcm-fb4*hbcm)+8*(p3p7*p2p8)*
0158      . (-4*fb4*ffmcfmb*hbcm+hbcm)+8*(p7p8*p2p3)*(4*fb4*ffmcfmb*hbcm-
0159      . hbcm)+8*(p4p8*p3p7)*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+
0160      . hbcm)+8*(p7p8*p3p4)*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-
0161      . hbcm)+4*p7p8*(4*fb3*ffmcfmb*fmb*hbcm2-4*fb3*ffmcfmb*fmc*hbcm2+
0162      . 4*fb3*fmc*hbcm2+4*fb4*ffmcfmb**2*hbcm3-4*fb4*ffmcfmb*hbcm3-4*
0163      . fb4*fmb*fmc*hbcm+fmb*hbcm2-fmc*hbcm2)+8*(4*fb4*hbcm*p2p4*p7p8-
0164      . 4*fb4*hbcm*p2p8*p4p7+hbcm*p3p5*p7p8))
0165       ans1=w18*(8*(p5p8*p5p7)*(ffmcfmb*hbcm3+fmb*hbcm2-hbcm3)+8*(p5p7
0166      . *p4p8)*(ffmcfmb*hbcm3+fmb*hbcm2-hbcm3)+16*(p5p8*p3p7*p3p5)*(-
0167      . ffmcfmb*hbcm+hbcm)+16*(p4p8*p3p7*p3p5)*(-ffmcfmb*hbcm+hbcm)+8*
0168      . (p5p8*p3p7)*(-ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*
0169      . hbcm2+ffmcfmb*hbcm3+fmb*fmc*hbcm+fmb*hbcm2-fmc*hbcm2)+8*(p4p8*
0170      . p3p7)*(-ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+
0171      . ffmcfmb*hbcm3+fmb*fmc*hbcm+fmb*hbcm2-fmc*hbcm2)+16*(hbcm*p2p3*
0172      . p4p7*p4p8+hbcm*p2p3*p4p7*p5p8-hbcm*p2p4*p3p7*p4p8-hbcm*p2p4*
0173      . p3p7*p5p8))+w1*(8*(p5p7*p4p8)*(ffmcfmb*hbcm3+fmb*hbcm2-hbcm3)+
0174      . 16*(p4p8*p3p7*p3p5)*(-ffmcfmb*hbcm+hbcm)+8*(p4p8*p3p7)*(-
0175      . ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+ffmcfmb*
0176      . hbcm3+fmb*fmc*hbcm+fmb*hbcm2-fmc*hbcm2)+16*(hbcm*p2p3*p4p7*
0177      . p4p8-hbcm*p2p4*p3p7*p4p8))+w8*(8*(p5p7*p2p8)*(ffmcfmb*hbcm3+
0178      . fmb*hbcm2-hbcm3)+16*(p3p7*p3p5*p2p8)*(-ffmcfmb*hbcm+hbcm)+8*(
0179      . p3p7*p2p8)*(-ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*
0180      . hbcm2+ffmcfmb*hbcm3+fmb*fmc*hbcm+fmb*hbcm2-fmc*hbcm2)+16*(hbcm
0181      . *p2p3*p2p8*p4p7-hbcm*p2p4*p2p8*p3p7))+ans2
0182       ans=ccc*ans1
0183       b(5)=ans
0184       b(6)=ccc*(w18*(8*(p5p8*p5p6)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*
0185      . (p5p6*p4p8)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(p5p8*p4p6)*(
0186      . ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(p4p8*p4p6)*(ffmcfmb*hbcm2+fmb
0187      . *hbcm-hbcm2))+w1*(8*(p5p6*p4p8)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2
0188      . )+8*(p4p8*p4p6)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2))+w8*(8*(p5p6*
0189      . p2p8)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(p4p6*p2p8)*(ffmcfmb*
0190      . hbcm2+fmb*hbcm-hbcm2))+(4*p6p8*(-4*fb3*ffmcfmb**2*hbcm2+4*fb3*
0191      . ffmcfmb*hbcm2-8*fb3*fmb*fmc-4*fb3*fmb2-8*fb4*ffmcfmb*fmb*hbcm-
0192      . 8*fb4*ffmcfmb*fmc*hbcm+4*fb4*fmb*hbcm+8*fb4*fmc*hbcm+2*fmb*
0193      . hbcm+2*fmc*hbcm-hbcm2)+32*(-fb3*ffmcfmb*p2p3*p6p8-fb3*ffmcfmb*
0194      . p2p8*p3p6-2*fb3*p2p4*p6p8+fb3*p2p5*p6p8-fb3*p2p8*p4p6)))
0195       b(7)=ccc*(4*p5p6*(4*fb3*ffmcfmb*hbcm2-4*fb3*hbcm2+4*fb4*fmb*
0196      . hbcm+hbcm2)+4*p4p6*(-4*fb3*ffmcfmb*hbcm2+4*fb3*hbcm2-4*fb4*fmb
0197      . *hbcm-hbcm2)+4*p3p6*(4*fb3*ffmcfmb**2*hbcm2-4*fb3*ffmcfmb*
0198      . hbcm2+8*fb3*fmb*fmc+4*fb3*fmb2+8*fb4*ffmcfmb*fmb*hbcm+8*fb4*
0199      . ffmcfmb*fmc*hbcm-4*fb4*fmb*hbcm-8*fb4*fmc*hbcm-2*fmb*hbcm-2*
0200      . fmc*hbcm+hbcm2)+32*(2*fb3*ffmcfmb*p2p3*p3p6+fb3*p2p3*p4p6+2*
0201      . fb3*p2p4*p3p6-fb3*p2p5*p3p6))
0202       ans2=w8*(8*(p5p6*p2p8)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+8*(p3p6
0203      . *p2p8)*(-ffmcfmb**2*hbcm3-2*ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*
0204      . hbcm2+ffmcfmb*hbcm3+fmb*fmc*hbcm+fmb*hbcm2-fmb2*hbcm-fmc*hbcm2
0205      . )+16*(-ffmcfmb*hbcm*p2p3*p2p8*p3p6-hbcm*p2p3*p2p8*p4p6-hbcm*
0206      . p2p4*p2p8*p3p6+hbcm*p2p5*p2p8*p3p6))+(8*(p3p6*p2p8)*(-4*fb3*
0207      . fmc+hbcm)+32*(p6p8*p2p3)*(fb3*fmc+fb4*ffmcfmb*hbcm)+8*(p5p8*
0208      . p3p6)*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm)+8*(p4p8*
0209      . p3p6)*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+hbcm)+8*(p6p8*
0210      . p3p5)*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+hbcm)+8*(p6p8*
0211      . p3p4)*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm)+4*p6p8*(4
0212      . *fb3*ffmcfmb*fmb*hbcm2-4*fb3*ffmcfmb*fmc*hbcm2-4*fb3*fmb*hbcm2
0213      . +4*fb3*fmc*hbcm2-4*fb4*fmb*fmc*hbcm+4*fb4*fmb2*hbcm+ffmcfmb*
0214      . hbcm3+2*fmb*hbcm2-fmc*hbcm2-hbcm3)+32*(fb4*hbcm*p2p4*p6p8-fb4*
0215      . hbcm*p2p5*p6p8+fb4*hbcm*p2p8*p4p6))
0216       ans1=w18*(8*(p5p8*p5p6)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+8*(
0217      . p5p6*p4p8)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+8*(p5p8*p3p6)*(-
0218      . ffmcfmb**2*hbcm3-2*ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+ffmcfmb
0219      . *hbcm3+fmb*fmc*hbcm+fmb*hbcm2-fmb2*hbcm-fmc*hbcm2)+8*(p4p8*
0220      . p3p6)*(-ffmcfmb**2*hbcm3-2*ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2
0221      . +ffmcfmb*hbcm3+fmb*fmc*hbcm+fmb*hbcm2-fmb2*hbcm-fmc*hbcm2)+16*
0222      . (-ffmcfmb*hbcm*p2p3*p3p6*p4p8-ffmcfmb*hbcm*p2p3*p3p6*p5p8-hbcm
0223      . *p2p3*p4p6*p4p8-hbcm*p2p3*p4p6*p5p8-hbcm*p2p4*p3p6*p4p8-hbcm*
0224      . p2p4*p3p6*p5p8+hbcm*p2p5*p3p6*p4p8+hbcm*p2p5*p3p6*p5p8))+w1*(8
0225      . *(p5p6*p4p8)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+8*(p4p8*p3p6)*(-
0226      . ffmcfmb**2*hbcm3-2*ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+ffmcfmb
0227      . *hbcm3+fmb*fmc*hbcm+fmb*hbcm2-fmb2*hbcm-fmc*hbcm2)+16*(-
0228      . ffmcfmb*hbcm*p2p3*p3p6*p4p8-hbcm*p2p3*p4p6*p4p8-hbcm*p2p4*p3p6
0229      . *p4p8+hbcm*p2p5*p3p6*p4p8))+ans2
0230       ans=ccc*ans1
0231       b(8)=ans
0232       b(9)=ccc*(32*(p5p6*p3p7)*(-fb4*ffmcfmb*hbcm+fb4*hbcm)+8*(p4p6*
0233      . p3p7)*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm)+8*(p5p7*
0234      . p3p6)*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+hbcm)+8*(p4p7*
0235      . p3p6)*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm)+8*(p6p7*
0236      . p3p5)*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm)+8*(p6p7*
0237      . p3p4)*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+hbcm)+8*(p6p7*
0238      . p2p3)*(-4*fb3*fmb+8*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+8*(p3p7*
0239      . p3p6)*(8*fb3*ffmcfmb*fmb-4*fb3*ffmcfmb*fmc-4*fb3*fmb+4*fb3*fmc
0240      . -ffmcfmb*hbcm)+4*p6p7*(-4*fb3*ffmcfmb*fmb*hbcm2+4*fb3*ffmcfmb*
0241      . fmc*hbcm2+4*fb3*fmb*hbcm2-4*fb3*fmc*hbcm2+4*fb4*fmb*fmc*hbcm-4
0242      . *fb4*fmb2*hbcm-fmb*hbcm2+fmc*hbcm2)+32*(-fb4*hbcm*p2p4*p6p7+
0243      . fb4*hbcm*p2p5*p6p7))
0244       ans3=(8*(p6p7*p2p8)*(4*fb4*fmb*hbcm+4*fb4*fmc*hbcm-hbcm2)+8*(
0245      . p6p8*p3p7)*(4*fb3*fmb*fmc+4*fb3*fmb2+4*fb4*ffmcfmb*fmb*hbcm+4*
0246      . fb4*ffmcfmb*fmc*hbcm-4*fb4*fmc*hbcm+ffmcfmb*hbcm2-2*fmb*hbcm-
0247      . fmc*hbcm)+64*(p5p8*p3p7*p3p6)*(fb3*ffmcfmb-fb3)+64*(p6p8*p3p7*
0248      . p3p5)*(-fb3*ffmcfmb+fb3)+8*(p6p7*p5p8)*(-4*fb3*ffmcfmb*hbcm2+4
0249      . *fb3*hbcm2-4*fb4*fmb*hbcm-hbcm2)+8*(p6p8*p5p7)*(4*fb3*ffmcfmb*
0250      . hbcm2-4*fb3*hbcm2+4*fb4*fmb*hbcm+hbcm2)+32*(p7p8*p5p6)*(-fb3*
0251      . ffmcfmb*hbcm2+fb3*hbcm2-fb4*fmb*hbcm)+8*(p7p8*p3p6)*(-4*fb3*
0252      . ffmcfmb**2*hbcm2+4*fb3*ffmcfmb*hbcm2-4*fb3*fmb*fmc-4*fb3*fmb2-
0253      . 8*fb4*ffmcfmb*fmb*hbcm-4*fb4*ffmcfmb*fmc*hbcm+4*fb4*fmb*hbcm+4
0254      . *fb4*fmc*hbcm+ffmcfmb*hbcm2+fmb*hbcm+fmc*hbcm-hbcm2)+8*(-8*fb3
0255      . *ffmcfmb*p2p3*p3p6*p7p8+8*fb3*ffmcfmb*p2p3*p3p7*p6p8+16*fb3*
0256      . ffmcfmb*p2p8*p3p6*p3p7-8*fb3*p2p3*p4p6*p7p8+8*fb3*p2p3*p4p7*
0257      . p6p8-8*fb3*p2p3*p4p8*p6p7-8*fb3*p2p4*p3p6*p7p8+8*fb3*p2p4*p3p7
0258      . *p6p8+8*fb3*p2p5*p3p6*p7p8-8*fb3*p2p5*p3p7*p6p8-8*fb3*p2p8*
0259      . p3p4*p6p7+8*fb3*p2p8*p3p5*p6p7+8*fb3*p2p8*p3p6*p4p7-8*fb3*p2p8
0260      . *p3p6*p5p7+16*fb3*p2p8*p3p7*p4p6+hbcm2*p4p6*p7p8))
0261       ans2=w1*(16*(p4p8*p4p6*p3p7)*(-ffmcfmb*hbcm2+hbcm2)+16*(p5p7*
0262      . p4p8*p3p6)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(p6p7*p4p8*p3p5)
0263      . *(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(p6p7*p4p8)*(ffmcfmb**2*
0264      . hbcm4-ffmcfmb*hbcm4+fmb*hbcm3-fmb2*hbcm2)+16*(p4p8*p3p7*p3p6)*
0265      . (-ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm+ffmcfmb*hbcm2-fmb*hbcm)+16
0266      . *(fmb*hbcm*p3p7*p4p8*p5p6+fmc*hbcm*p2p3*p4p8*p6p7+hbcm2*p2p5*
0267      . p4p8*p6p7))+w8*(16*(p4p6*p3p7*p2p8)*(-ffmcfmb*hbcm2+hbcm2)+16*
0268      . (p5p7*p3p6*p2p8)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(p6p7*p3p5
0269      . *p2p8)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(p6p7*p2p8)*(ffmcfmb**
0270      . 2*hbcm4-ffmcfmb*hbcm4+fmb*hbcm3-fmb2*hbcm2)+16*(p3p7*p3p6*p2p8
0271      . )*(-ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm+ffmcfmb*hbcm2-fmb*hbcm)+
0272      . 16*(fmb*hbcm*p2p8*p3p7*p5p6+fmc*hbcm*p2p3*p2p8*p6p7+hbcm2*p2p5
0273      . *p2p8*p6p7))+ans3
0274       ans1=w18*(16*(p5p8*p4p6*p3p7)*(-ffmcfmb*hbcm2+hbcm2)+16*(p4p8*
0275      . p4p6*p3p7)*(-ffmcfmb*hbcm2+hbcm2)+16*(p5p8*p5p7*p3p6)*(-
0276      . ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(p5p7*p4p8*p3p6)*(-ffmcfmb*
0277      . hbcm2-fmb*hbcm+hbcm2)+16*(p6p7*p5p8*p3p5)*(ffmcfmb*hbcm2+fmb*
0278      . hbcm-hbcm2)+16*(p6p7*p4p8*p3p5)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)
0279      . +8*(p6p7*p5p8)*(ffmcfmb**2*hbcm4-ffmcfmb*hbcm4+fmb*hbcm3-fmb2*
0280      . hbcm2)+8*(p6p7*p4p8)*(ffmcfmb**2*hbcm4-ffmcfmb*hbcm4+fmb*hbcm3
0281      . -fmb2*hbcm2)+16*(p5p8*p3p7*p3p6)*(-ffmcfmb**2*hbcm2+ffmcfmb*
0282      . fmb*hbcm+ffmcfmb*hbcm2-fmb*hbcm)+16*(p4p8*p3p7*p3p6)*(-ffmcfmb
0283      . **2*hbcm2+ffmcfmb*fmb*hbcm+ffmcfmb*hbcm2-fmb*hbcm)+16*(fmb*
0284      . hbcm*p3p7*p4p8*p5p6+fmb*hbcm*p3p7*p5p6*p5p8+fmc*hbcm*p2p3*p4p8
0285      . *p6p7+fmc*hbcm*p2p3*p5p8*p6p7+hbcm2*p2p5*p4p8*p6p7+hbcm2*p2p5*
0286      . p5p8*p6p7))+ans2
0287       ans=ccc*ans1
0288       b(10)=ans
0289       ans=ccc*(w18*(4*p5p8*(ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*hbcm2-2*
0290      . ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3-2*fmb*fmc*hbcm-fmb*hbcm2+fmb2*
0291      . hbcm+2*fmc*hbcm2)+4*p4p8*(ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*hbcm2
0292      . -2*ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3-2*fmb*fmc*hbcm-fmb*hbcm2+
0293      . fmb2*hbcm+2*fmc*hbcm2)+8*(ffmcfmb*hbcm*p2p3*p4p8+ffmcfmb*hbcm*
0294      . p2p3*p5p8+2*hbcm*p2p4*p4p8+2*hbcm*p2p4*p5p8-hbcm*p2p5*p4p8-
0295      . hbcm*p2p5*p5p8))+w1*(4*p4p8*(ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*
0296      . hbcm2-2*ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3-2*fmb*fmc*hbcm-fmb*
0297      . hbcm2+fmb2*hbcm+2*fmc*hbcm2)+8*(ffmcfmb*hbcm*p2p3*p4p8+2*hbcm*
0298      . p2p4*p4p8-hbcm*p2p5*p4p8))+w8*(4*p2p8*(ffmcfmb**2*hbcm3+2*
0299      . ffmcfmb*fmb*hbcm2-2*ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3-2*fmb*fmc*
0300      . hbcm-fmb*hbcm2+fmb2*hbcm+2*fmc*hbcm2)+8*(ffmcfmb*hbcm*p2p3*
0301      . p2p8+2*hbcm*p2p4*p2p8-hbcm*p2p5*p2p8))+(8*p2p8*(2*fb3*fmc+2*
0302      . fb4*ffmcfmb*hbcm-hbcm)+4*p5p8*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4
0303      . *fb4*hbcm+hbcm)+8*p4p8*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*
0304      . hbcm-hbcm)))
0305       b(11)=ans
0306       b(12)=2*ccc*(8*fb3*ffmcfmb**2*hbcm2-8*fb3*ffmcfmb*hbcm2+16*fb3*
0307      . ffmcfmb*p2p3+12*fb3*fmb*fmc+4*fb3*fmb2+24*fb3*p2p4-8*fb3*p2p5+
0308      . 12*fb4*ffmcfmb*fmb*hbcm+12*fb4*ffmcfmb*fmc*hbcm-4*fb4*fmb*hbcm
0309      . -12*fb4*fmc*hbcm-3*fmb*hbcm-3*fmc*hbcm+2*hbcm2)
0310       ans2=w8*(8*(p3p5*p2p8)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(p3p4*
0311      . p2p8)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(p2p8*p2p3)*(ffmcfmb*
0312      . hbcm2-fmc*hbcm)+4*p2p8*(ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*hbcm3+
0313      . fmb*fmc*hbcm2-fmb*hbcm3+fmb2*hbcm2-fmc*hbcm3)+8*(hbcm2*p2p4*
0314      . p2p8-hbcm2*p2p5*p2p8))+(4*p5p8*(4*fb3*ffmcfmb*hbcm2-4*fb3*
0315      . hbcm2+4*fb4*fmb*hbcm+hbcm2)+4*p4p8*(-4*fb3*ffmcfmb*hbcm2+4*fb3
0316      . *hbcm2-4*fb4*fmb*hbcm-hbcm2)+4*p2p8*(-4*fb3*ffmcfmb*hbcm2+4*
0317      . fb4*fmc*hbcm-hbcm2)+32*(fb3*p2p3*p4p8-fb3*p2p8*p3p4))
0318       ans1=w18*(8*(p5p8*p3p5)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(p4p8
0319      . *p3p5)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(p5p8*p3p4)*(ffmcfmb*
0320      . hbcm2+fmb*hbcm-hbcm2)+8*(p4p8*p3p4)*(ffmcfmb*hbcm2+fmb*hbcm-
0321      . hbcm2)+8*(p5p8*p2p3)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p4p8*p2p3)*(
0322      . ffmcfmb*hbcm2-fmc*hbcm)+4*p5p8*(ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*
0323      . hbcm3+fmb*fmc*hbcm2-fmb*hbcm3+fmb2*hbcm2-fmc*hbcm3)+4*p4p8*(
0324      . ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*hbcm3+fmb*fmc*hbcm2-fmb*hbcm3+
0325      . fmb2*hbcm2-fmc*hbcm3)+8*(hbcm2*p2p4*p4p8+hbcm2*p2p4*p5p8-hbcm2
0326      . *p2p5*p4p8-hbcm2*p2p5*p5p8))+w1*(8*(p4p8*p3p5)*(-ffmcfmb*hbcm2
0327      . -fmb*hbcm+hbcm2)+8*(p4p8*p3p4)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+
0328      . 8*(p4p8*p2p3)*(ffmcfmb*hbcm2-fmc*hbcm)+4*p4p8*(ffmcfmb*fmb*
0329      . hbcm3+ffmcfmb*fmc*hbcm3+fmb*fmc*hbcm2-fmb*hbcm3+fmb2*hbcm2-fmc
0330      . *hbcm3)+8*(hbcm2*p2p4*p4p8-hbcm2*p2p5*p4p8))+ans2
0331       ans=ccc*ans1
0332       b(13)=ans
0333       b(14)=ccc*(4*p2p3*(-4*fb3*fmc-8*fb4*ffmcfmb*hbcm+hbcm)+4*p3p5*(
0334      . 4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm)+8*p3p4*(-4*fb3*
0335      . fmb-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+hbcm)+2*(-8*fb3*ffmcfmb*fmb*
0336      . hbcm2+8*fb3*ffmcfmb*fmc*hbcm2+4*fb3*fmb*hbcm2-8*fb3*fmc*hbcm2-
0337      . 4*fb4*ffmcfmb**2*hbcm3+4*fb4*ffmcfmb*hbcm3+8*fb4*fmb*fmc*hbcm-
0338      . 4*fb4*fmb2*hbcm-16*fb4*hbcm*p2p4+8*fb4*hbcm*p2p5-2*fmb*hbcm2+2
0339      . *fmc*hbcm2+hbcm3))
0340       b(15)=ccc*(w18*(8*(p5p8*p3p6)*(ffmcfmb*hbcm2-fmb*hbcm-2*fmc*
0341      . hbcm)+8*(p4p8*p3p6)*(ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm)+8*(-
0342      . hbcm2*p4p6*p4p8-hbcm2*p4p6*p5p8+hbcm2*p4p8*p5p6+hbcm2*p5p6*
0343      . p5p8))+w1*(8*(p4p8*p3p6)*(ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm)+8
0344      . *(-hbcm2*p4p6*p4p8+hbcm2*p4p8*p5p6))+w8*(8*(p3p6*p2p8)*(
0345      . ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm)+8*(-hbcm2*p2p8*p4p6+hbcm2*
0346      . p2p8*p5p6))+(4*p6p8*(-4*fb3*ffmcfmb*hbcm2+4*fb4*fmb*hbcm+8*fb4
0347      . *fmc*hbcm-hbcm2)+32*(-2*fb3*p3p4*p6p8+fb3*p3p5*p6p8+2*fb3*p3p6
0348      . *p4p8-fb3*p3p6*p5p8)))
0349       b(16)=ccc*(8*w18*(ffmcfmb*hbcm*p3p6*p4p8+ffmcfmb*hbcm*p3p6*p5p8
0350      . +2*hbcm*p4p6*p4p8+2*hbcm*p4p6*p5p8-hbcm*p4p8*p5p6-hbcm*p5p6*
0351      . p5p8)+8*w1*(ffmcfmb*hbcm*p3p6*p4p8+2*hbcm*p4p6*p4p8-hbcm*p4p8*
0352      . p5p6)+8*w8*(ffmcfmb*hbcm*p2p8*p3p6+2*hbcm*p2p8*p4p6-hbcm*p2p8*
0353      . p5p6)+4*p6p8*(4*fb3*fmb-12*fb3*fmc-8*fb4*ffmcfmb*hbcm+hbcm))
0354       b(17)=ccc*(w18*(4*p5p8*(-ffmcfmb*hbcm3+fmb*hbcm2-2*fmc*hbcm2)+4
0355      . *p4p8*(-ffmcfmb*hbcm3+fmb*hbcm2-2*fmc*hbcm2)+8*(-2*hbcm*p3p4*
0356      . p4p8-2*hbcm*p3p4*p5p8+hbcm*p3p5*p4p8+hbcm*p3p5*p5p8))+w1*(4*
0357      . p4p8*(-ffmcfmb*hbcm3+fmb*hbcm2-2*fmc*hbcm2)+8*(-2*hbcm*p3p4*
0358      . p4p8+hbcm*p3p5*p4p8))+w8*(4*p2p8*(-ffmcfmb*hbcm3+fmb*hbcm2-2*
0359      . fmc*hbcm2)+8*(-2*hbcm*p2p8*p3p4+hbcm*p2p8*p3p5))+16*(2*fb4*
0360      . hbcm*p4p8-fb4*hbcm*p5p8))
0361       b(18)=ccc*(w18*(8*(p5p8*p3p7)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(p4p8
0362      . *p3p7)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(-hbcm2*p4p7*p4p8-hbcm2*
0363      . p4p7*p5p8+hbcm2*p4p8*p5p7+hbcm2*p5p7*p5p8))+w1*(8*(p4p8*p3p7)*
0364      . (-ffmcfmb*hbcm2+fmc*hbcm)+8*(-hbcm2*p4p7*p4p8+hbcm2*p4p8*p5p7)
0365      . )+w8*(8*(p3p7*p2p8)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(-hbcm2*p2p8*
0366      . p4p7+hbcm2*p2p8*p5p7))+(4*p7p8*(4*fb3*ffmcfmb*hbcm2-4*fb4*fmc*
0367      . hbcm+hbcm2)+32*(fb3*p3p4*p7p8-fb3*p3p7*p4p8)))
0368       b(19)=ccc*(w18*(4*p5p8*(-2*ffmcfmb*hbcm2+fmb*hbcm+3*fmc*hbcm)+4
0369      . *p4p8*(-2*ffmcfmb*hbcm2+fmb*hbcm+3*fmc*hbcm))+4*w1*p4p8*(-2*
0370      . ffmcfmb*hbcm2+fmb*hbcm+3*fmc*hbcm)+4*w8*p2p8*(-2*ffmcfmb*hbcm2
0371      . +fmb*hbcm+3*fmc*hbcm)+16*(-3*fb3*p4p8+fb3*p5p8))
0372       b(20)=ccc*(8*w18*(-ffmcfmb*hbcm*p3p7*p4p8-ffmcfmb*hbcm*p3p7*
0373      . p5p8-2*hbcm*p4p7*p4p8-2*hbcm*p4p7*p5p8+hbcm*p4p8*p5p7+hbcm*
0374      . p5p7*p5p8)+8*w1*(-ffmcfmb*hbcm*p3p7*p4p8-2*hbcm*p4p7*p4p8+hbcm
0375      . *p4p8*p5p7)+8*w8*(-ffmcfmb*hbcm*p2p8*p3p7-2*hbcm*p2p8*p4p7+
0376      . hbcm*p2p8*p5p7)+8*p7p8*(-2*fb3*fmc-2*fb4*ffmcfmb*hbcm+hbcm))
0377       b(21)=2*ccc*(4*fb3*fmb-16*fb3*fmc-12*fb4*ffmcfmb*hbcm+3*hbcm)
0378       b(22)=4*ccc*(4*fb3*ffmcfmb*hbcm2+12*fb3*p3p4-4*fb3*p3p5-2*fb4*
0379      . fmb*hbcm-6*fb4*fmc*hbcm+hbcm2)
0380       b(23)=ccc*(4*p3p7*(4*fb3*fmc+8*fb4*ffmcfmb*hbcm-hbcm)+16*(2*fb4
0381      . *hbcm*p4p7-fb4*hbcm*p5p7))
0382       b(24)=ccc*(8*p3p6*(-2*fb3*fmb+6*fb3*fmc+2*fb4*ffmcfmb*hbcm-hbcm
0383      . )+16*(-2*fb4*hbcm*p4p6+fb4*hbcm*p5p6))
0384       b(25)=ccc*(4*p5p7*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm
0385      . )+8*p4p7*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+hbcm)+4*
0386      . p3p7*(-8*fb3*ffmcfmb*fmb+8*fb3*ffmcfmb*fmc+4*fb3*fmb-8*fb3*fmc
0387      . +hbcm))
0388       b(26)=ccc*(4*p5p6*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+
0389      . hbcm)+8*p4p6*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm)+4*
0390      . p3p6*(4*fb3*ffmcfmb*fmb+4*fb4*ffmcfmb**2*hbcm-4*fb4*ffmcfmb*
0391      . hbcm-ffmcfmb*hbcm))
0392       b(27)=ccc*(4*p6p7*(4*fb3*ffmcfmb*hbcm2-4*fb4*fmb*hbcm-8*fb4*fmc
0393      . *hbcm+hbcm2)+32*(-2*fb3*ffmcfmb*p3p6*p3p7+2*fb3*p3p4*p6p7-fb3*
0394      . p3p5*p6p7-2*fb3*p3p6*p4p7+fb3*p3p6*p5p7-fb3*p3p7*p4p6))
0395       b(28)=ccc*(w18*(8*(p6p7*p5p8)*(ffmcfmb*hbcm2-fmb*hbcm-2*fmc*
0396      . hbcm)+8*(p6p7*p4p8)*(ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm))+8*w1*
0397      . (p6p7*p4p8)*(ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm)+8*w8*(p6p7*
0398      . p2p8)*(ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm)+32*(-fb3*ffmcfmb*
0399      . p3p6*p7p8-fb3*ffmcfmb*p3p7*p6p8-fb3*p4p6*p7p8-2*fb3*p4p7*p6p8+
0400      . 2*fb3*p4p8*p6p7+fb3*p5p7*p6p8-fb3*p5p8*p6p7))
0401       b(29)=16*ccc*(-2*fb3*ffmcfmb*p3p6-3*fb3*p4p6+fb3*p5p6)
0402       b(30)=16*ccc*(2*fb3*ffmcfmb*p3p7+3*fb3*p4p7-fb3*p5p7)
0403       ans=ccc*(w18*(8*(p6p7*p5p8)*(fmb*hbcm2-fmc*hbcm2)+8*(p6p7*p4p8)
0404      . *(fmb*hbcm2-fmc*hbcm2)+16*(ffmcfmb*hbcm*p3p6*p3p7*p4p8+ffmcfmb
0405      . *hbcm*p3p6*p3p7*p5p8-hbcm*p3p4*p4p8*p6p7-hbcm*p3p4*p5p8*p6p7+
0406      . hbcm*p3p5*p4p8*p6p7+hbcm*p3p5*p5p8*p6p7+hbcm*p3p6*p4p7*p4p8+
0407      . hbcm*p3p6*p4p7*p5p8-hbcm*p3p6*p4p8*p5p7-hbcm*p3p6*p5p7*p5p8+
0408      . hbcm*p3p7*p4p6*p4p8+hbcm*p3p7*p4p6*p5p8))+w1*(8*(p6p7*p4p8)*(
0409      . fmb*hbcm2-fmc*hbcm2)+16*(ffmcfmb*hbcm*p3p6*p3p7*p4p8-hbcm*p3p4
0410      . *p4p8*p6p7+hbcm*p3p5*p4p8*p6p7+hbcm*p3p6*p4p7*p4p8-hbcm*p3p6*
0411      . p4p8*p5p7+hbcm*p3p7*p4p6*p4p8))+w8*(8*(p6p7*p2p8)*(fmb*hbcm2-
0412      . fmc*hbcm2)+16*(ffmcfmb*hbcm*p2p8*p3p6*p3p7-hbcm*p2p8*p3p4*p6p7
0413      . +hbcm*p2p8*p3p5*p6p7+hbcm*p2p8*p3p6*p4p7-hbcm*p2p8*p3p6*p5p7+
0414      . hbcm*p2p8*p3p7*p4p6))+(32*(p6p8*p3p7)*(-fb3*fmc-fb4*ffmcfmb*
0415      . hbcm)+8*(p7p8*p3p6)*(4*fb3*fmc-hbcm)+32*(-fb4*hbcm*p4p6*p7p8-
0416      . fb4*hbcm*p4p7*p6p8+fb4*hbcm*p4p8*p6p7+fb4*hbcm*p5p7*p6p8-fb4*
0417      . hbcm*p5p8*p6p7)))
0418       b(31)=ans
0419       b(32)=8*ccc*p6p7*(2*fb3*fmb-6*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)
0420       do 200 n=1,32
0421          c(n,1)=c(n,1)-0.09090909090909091d0*b(n)
0422          c(n,2)=c(n,2)-0.1680909685530997d0*b(n)
0423          c(n,3)=c(n,3)-0.2077659977796572d0*b(n)
0424 200   continue
0425       return
0426         end
0427
0428       subroutine amp17_1p1(cc)
0429       implicit double precision(a-h,o-z)
0430       implicit integer (i-n)
0431       dimension b(32)
0432 #include "inclcon.h"
0433 #include "inclppp.h"
0434 #include "inclamp.h"
0435       do 100 n=1,32
0436          b(n)=0.0d0
0437 100   continue
0438       ccc=cc/((ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*p3p5+fmb2+
0439      . hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3-2*ffmcfmb*p2p3-
0440      . fmc2+2*p1p2)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3-fmc2))
0441       b(1)=ccc*(16*p6p7*(-fb3*ffmcfmb**2*hbcm2+fb3*fmc2)+32*(fb3*
0442      . ffmcfmb*p1p3*p6p7+fb3*ffmcfmb*p3p6*p3p7+2*fb3*ffmcfmb*p3p7*
0443      . p4p6+fb3*p1p2*p6p7-fb3*p2p3*p6p7-3*fb3*p2p4*p6p7))
0444       ans=ccc*(w2*(16*(p5p8*p3p7*p3p6)*(-ffmcfmb**2*hbcm+ffmcfmb*hbcm
0445      . )+16*(ffmcfmb*hbcm*p3p7*p4p6*p5p8+hbcm*p1p2*p5p8*p6p7-hbcm*
0446      . p2p3*p5p8*p6p7-2*hbcm*p2p4*p5p8*p6p7))+w17*(16*(p3p7*p3p6*p2p8
0447      . )*(-ffmcfmb**2*hbcm+ffmcfmb*hbcm)+16*(p3p7*p3p6*p1p8)*(-
0448      . ffmcfmb**2*hbcm+ffmcfmb*hbcm)+16*(ffmcfmb*hbcm*p1p8*p3p7*p4p6+
0449      . ffmcfmb*hbcm*p2p8*p3p7*p4p6+hbcm*p1p2*p1p8*p6p7+hbcm*p1p2*p2p8
0450      . *p6p7-hbcm*p1p8*p2p3*p6p7-2*hbcm*p1p8*p2p4*p6p7-hbcm*p2p3*p2p8
0451      . *p6p7-2*hbcm*p2p4*p2p8*p6p7))+w12*(16*(p3p7*p3p6*p1p8)*(-
0452      . ffmcfmb**2*hbcm+ffmcfmb*hbcm)+16*(ffmcfmb*hbcm*p1p8*p3p7*p4p6+
0453      . hbcm*p1p2*p1p8*p6p7-hbcm*p1p8*p2p3*p6p7-2*hbcm*p1p8*p2p4*p6p7)
0454      . )+(8*(p7p8*p3p6)*(-ffmcfmb*hbcm+hbcm)+8*(p6p7*p2p8)*(4*fb3*fmb
0455      . +4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm)+32*(p6p8*p3p7)*(-fb3*
0456      . ffmcfmb*fmb-fb4*ffmcfmb**2*hbcm+fb4*ffmcfmb*hbcm)+8*hbcm*p4p6*
0457      . p7p8))
0458       b(2)=ans
0459       b(3)=ccc*(8*w2*(p5p8*p3p7)*(ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm)+
0460      . w17*(8*(p3p7*p2p8)*(ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm)+8*(p3p7
0461      . *p1p8)*(ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm))+8*w12*(p3p7*p1p8)*
0462      . (ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm)+(4*p7p8*(-4*fb3*ffmcfmb**2
0463      . *hbcm2+4*fb3*fmc2+fmb*hbcm+fmc*hbcm)+32*(fb3*ffmcfmb*p1p3*p7p8
0464      . +fb3*ffmcfmb*p1p8*p3p7-2*fb3*ffmcfmb*p3p7*p5p8-2*fb3*p1p2*p7p8
0465      . +2*fb3*p2p3*p7p8+3*fb3*p2p5*p7p8+fb3*p2p8*p3p7+fb3*p2p8*p5p7))
0466      . )
0467       b(4)=ccc*(16*p3p7*(fb3*ffmcfmb**2*hbcm2+2*fb3*ffmcfmb*hbcm2-fb3
0468      . *fmc2+fb4*ffmcfmb*fmb*hbcm+fb4*ffmcfmb*fmc*hbcm)+32*(-2*fb3*
0469      . ffmcfmb*p1p3*p3p7-2*fb3*ffmcfmb*p2p3*p3p7+2*fb3*ffmcfmb*p3p5*
0470      . p3p7+2*fb3*p1p2*p3p7+3*fb3*p2p3*p5p7-3*fb3*p2p5*p3p7))
0471       ans2=(4*p7p8*(ffmcfmb*hbcm3-fmc*hbcm2+hbcm3)+8*(p3p7*p2p8)*(8*
0472      . fb3*fmb-4*fb3*fmc-hbcm)+32*(p7p8*p2p3)*(-2*fb3*fmb+fb3*fmc-fb4
0473      . *ffmcfmb*hbcm)+8*(-4*fb4*ffmcfmb*hbcm*p1p8*p3p7+4*fb4*ffmcfmb*
0474      . hbcm*p3p7*p5p8+4*fb4*hbcm*p1p2*p7p8-8*fb4*hbcm*p2p5*p7p8+8*fb4
0475      . *hbcm*p2p8*p5p7-hbcm*p1p3*p7p8+hbcm*p3p5*p7p8))
0476       ans1=w2*(8*(p5p8*p3p7)*(ffmcfmb**2*hbcm3-ffmcfmb*fmc*hbcm2+
0477      . ffmcfmb*hbcm3)+16*(-ffmcfmb*hbcm*p1p3*p3p7*p5p8-ffmcfmb*hbcm*
0478      . p2p3*p3p7*p5p8+ffmcfmb*hbcm*p3p5*p3p7*p5p8+hbcm*p1p2*p3p7*p5p8
0479      . +2*hbcm*p2p3*p5p7*p5p8-2*hbcm*p2p5*p3p7*p5p8))+w17*(8*(p3p7*
0480      . p2p8)*(ffmcfmb**2*hbcm3-ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3)+8*(
0481      . p3p7*p1p8)*(ffmcfmb**2*hbcm3-ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3)+
0482      . 16*(-ffmcfmb*hbcm*p1p3*p1p8*p3p7-ffmcfmb*hbcm*p1p3*p2p8*p3p7-
0483      . ffmcfmb*hbcm*p1p8*p2p3*p3p7+ffmcfmb*hbcm*p1p8*p3p5*p3p7-
0484      . ffmcfmb*hbcm*p2p3*p2p8*p3p7+ffmcfmb*hbcm*p2p8*p3p5*p3p7+hbcm*
0485      . p1p2*p1p8*p3p7+hbcm*p1p2*p2p8*p3p7+2*hbcm*p1p8*p2p3*p5p7-2*
0486      . hbcm*p1p8*p2p5*p3p7+2*hbcm*p2p3*p2p8*p5p7-2*hbcm*p2p5*p2p8*
0487      . p3p7))+w12*(8*(p3p7*p1p8)*(ffmcfmb**2*hbcm3-ffmcfmb*fmc*hbcm2+
0488      . ffmcfmb*hbcm3)+16*(-ffmcfmb*hbcm*p1p3*p1p8*p3p7-ffmcfmb*hbcm*
0489      . p1p8*p2p3*p3p7+ffmcfmb*hbcm*p1p8*p3p5*p3p7+hbcm*p1p2*p1p8*p3p7
0490      . +2*hbcm*p1p8*p2p3*p5p7-2*hbcm*p1p8*p2p5*p3p7))+ans2
0491       ans=ccc*ans1
0492       b(5)=ans
0493       b(6)=ccc*(32*(p3p6*p2p8)*(-fb3*ffmcfmb-fb3)+16*p6p8*(-fb3*
0494      . ffmcfmb**2*hbcm2+fb3*fmc2)+32*(fb3*ffmcfmb*p1p3*p6p8-fb3*p2p4*
0495      . p6p8-3*fb3*p2p8*p4p6))
0496       b(7)=ccc*(32*(p3p6*p2p3)*(fb3*ffmcfmb+fb3)+16*p3p6*(fb3*ffmcfmb
0497      . **2*hbcm2-fb3*fmc2)+32*(-fb3*ffmcfmb*p1p3*p3p6+3*fb3*p2p3*p4p6
0498      . +fb3*p2p4*p3p6))
0499       ans=ccc*(w2*(8*(p5p8*p3p6)*(ffmcfmb**2*hbcm3-fmc2*hbcm)+16*(-
0500      . ffmcfmb*hbcm*p1p3*p3p6*p5p8+hbcm*p2p3*p3p6*p5p8+2*hbcm*p2p3*
0501      . p4p6*p5p8+hbcm*p2p4*p3p6*p5p8))+w17*(8*(p3p6*p2p8)*(ffmcfmb**2
0502      . *hbcm3-fmc2*hbcm)+8*(p3p6*p1p8)*(ffmcfmb**2*hbcm3-fmc2*hbcm)+
0503      . 16*(-ffmcfmb*hbcm*p1p3*p1p8*p3p6-ffmcfmb*hbcm*p1p3*p2p8*p3p6+
0504      . hbcm*p1p8*p2p3*p3p6+2*hbcm*p1p8*p2p3*p4p6+hbcm*p1p8*p2p4*p3p6+
0505      . hbcm*p2p3*p2p8*p3p6+2*hbcm*p2p3*p2p8*p4p6+hbcm*p2p4*p2p8*p3p6)
0506      . )+w12*(8*(p3p6*p1p8)*(ffmcfmb**2*hbcm3-fmc2*hbcm)+16*(-ffmcfmb
0507      . *hbcm*p1p3*p1p8*p3p6+hbcm*p1p8*p2p3*p3p6+2*hbcm*p1p8*p2p3*p4p6
0508      . +hbcm*p1p8*p2p4*p3p6))+(16*p6p8*(fb4*ffmcfmb**2*hbcm3-fb4*fmc2
0509      . *hbcm)+8*(p3p6*p2p8)*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-hbcm)+8*(
0510      . p6p8*p2p3)*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+hbcm)+8*(
0511      . -4*fb4*ffmcfmb*hbcm*p1p3*p6p8+4*fb4*hbcm*p2p4*p6p8+8*fb4*hbcm*
0512      . p2p8*p4p6-hbcm*p1p8*p3p6)))
0513       b(8)=ans
0514       b(9)=ccc*(8*(p6p7*p2p3)*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+hbcm)+8*
0515      . (p3p7*p3p6)*(4*fb3*ffmcfmb*fmb-ffmcfmb*hbcm)+32*(fb4*ffmcfmb*
0516      . hbcm*p3p7*p4p6+fb4*hbcm*p1p2*p6p7-2*fb4*hbcm*p2p4*p6p7))
0517       ans2=(8*(p7p8*p3p6)*(ffmcfmb*hbcm2-fmb*hbcm)+64*(p3p7*p3p6*p2p8
0518      . )*(3*fb3*ffmcfmb+fb3)+8*(p6p7*p2p8)*(-4*fb3*ffmcfmb*hbcm2-4*
0519      . fb3*hbcm2+4*fb4*fmb*hbcm+hbcm2)+8*(p6p8*p3p7)*(4*fb3*ffmcfmb**
0520      . 2*hbcm2+4*fb3*ffmcfmb*hbcm2-4*fb4*ffmcfmb*fmb*hbcm+ffmcfmb*
0521      . hbcm2)+8*(-8*fb3*ffmcfmb*p1p3*p3p7*p6p8+8*fb3*ffmcfmb*p1p8*
0522      . p3p6*p3p7-8*fb3*ffmcfmb*p2p3*p3p6*p7p8+8*fb3*ffmcfmb*p3p4*p3p7
0523      . *p6p8-8*fb3*ffmcfmb*p3p6*p3p7*p4p8+8*fb3*p1p3*p2p8*p6p7+8*fb3*
0524      . p1p8*p2p3*p6p7+16*fb3*p2p3*p2p8*p6p7-8*fb3*p2p3*p4p6*p7p8+8*
0525      . fb3*p2p3*p4p7*p6p8-16*fb3*p2p3*p4p8*p6p7-8*fb3*p2p8*p3p4*p6p7+
0526      . 32*fb3*p2p8*p3p7*p4p6+hbcm2*p1p8*p6p7))
0527       ans1=w2*(16*(p6p7*p5p8*p2p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p6p7
0528      . *p5p8)*(-ffmcfmb**2*hbcm4+fmc2*hbcm2)+16*(p5p8*p3p7*p3p6)*(
0529      . ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm)+16*(ffmcfmb*hbcm2*p1p3*p5p8
0530      . *p6p7-hbcm2*p1p2*p5p8*p6p7+hbcm2*p2p4*p5p8*p6p7))+w17*(16*(
0531      . p6p7*p2p8*p2p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p6p7*p2p3*p1p8)
0532      . *(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p6p7*p2p8)*(-ffmcfmb**2*hbcm4+
0533      . fmc2*hbcm2)+8*(p6p7*p1p8)*(-ffmcfmb**2*hbcm4+fmc2*hbcm2)+16*(
0534      . p3p7*p3p6*p2p8)*(ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm)+16*(p3p7*
0535      . p3p6*p1p8)*(ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm)+16*(ffmcfmb*
0536      . hbcm2*p1p3*p1p8*p6p7+ffmcfmb*hbcm2*p1p3*p2p8*p6p7-hbcm2*p1p2*
0537      . p1p8*p6p7-hbcm2*p1p2*p2p8*p6p7+hbcm2*p1p8*p2p4*p6p7+hbcm2*p2p4
0538      . *p2p8*p6p7))+w12*(16*(p6p7*p2p3*p1p8)*(-fmb*hbcm-fmc*hbcm+
0539      . hbcm2)+8*(p6p7*p1p8)*(-ffmcfmb**2*hbcm4+fmc2*hbcm2)+16*(p3p7*
0540      . p3p6*p1p8)*(ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm)+16*(ffmcfmb*
0541      . hbcm2*p1p3*p1p8*p6p7-hbcm2*p1p2*p1p8*p6p7+hbcm2*p1p8*p2p4*p6p7
0542      . ))+ans2
0543       ans=ccc*ans1
0544       b(10)=ans
0545       b(11)=ccc*(w2*(4*p5p8*(-ffmcfmb**2*hbcm3+fmc2*hbcm)+8*(ffmcfmb*
0546      . hbcm*p1p3*p5p8-2*hbcm*p1p2*p5p8+2*hbcm*p2p3*p5p8+3*hbcm*p2p5*
0547      . p5p8))+w17*(4*p2p8*(-ffmcfmb**2*hbcm3+fmc2*hbcm)+4*p1p8*(-
0548      . ffmcfmb**2*hbcm3+fmc2*hbcm)+8*(ffmcfmb*hbcm*p1p3*p1p8+ffmcfmb*
0549      . hbcm*p1p3*p2p8-2*hbcm*p1p2*p1p8-2*hbcm*p1p2*p2p8+2*hbcm*p1p8*
0550      . p2p3+3*hbcm*p1p8*p2p5+2*hbcm*p2p3*p2p8+3*hbcm*p2p5*p2p8))+w12*
0551      . (4*p1p8*(-ffmcfmb**2*hbcm3+fmc2*hbcm)+8*(ffmcfmb*hbcm*p1p3*
0552      . p1p8-2*hbcm*p1p2*p1p8+2*hbcm*p1p8*p2p3+3*hbcm*p1p8*p2p5))+(8*
0553      . p2p8*(-6*fb3*fmb+2*fb3*fmc-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+hbcm)
0554      . +4*hbcm*p1p8))
0555       b(12)=16*ccc*(fb3*ffmcfmb**2*hbcm2-2*fb3*ffmcfmb*p1p3-fb3*fmc2+
0556      . 3*fb3*p1p2-3*fb3*p2p3-4*fb3*p2p5)
0557       b(13)=ccc*(w2*(8*(p5p8*p2p3)*(ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm
0558      . )+8*(-hbcm2*p1p2*p5p8+2*hbcm2*p2p5*p5p8))+w17*(8*(p2p8*p2p3)*(
0559      . ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm)+8*(p2p3*p1p8)*(ffmcfmb*
0560      . hbcm2+2*fmb*hbcm+fmc*hbcm)+8*(-hbcm2*p1p2*p1p8-hbcm2*p1p2*p2p8
0561      . +2*hbcm2*p1p8*p2p5+2*hbcm2*p2p5*p2p8))+w12*(8*(p2p3*p1p8)*(
0562      . ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm)+8*(-hbcm2*p1p2*p1p8+2*hbcm2
0563      . *p1p8*p2p5))+(4*p2p8*(-4*fb3*ffmcfmb*hbcm2+12*fb3*hbcm2+8*fb4*
0564      . fmb*hbcm+4*fb4*fmc*hbcm+hbcm2)+32*(-fb3*p1p3*p2p8+fb3*p1p8*
0565      . p2p3-3*fb3*p2p3*p5p8+3*fb3*p2p8*p3p5)))
0566       b(14)=ccc*(8*p2p3*(6*fb3*fmb-2*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)
0567      . +8*(-fb4*ffmcfmb**2*hbcm3+2*fb4*ffmcfmb*hbcm*p1p3+fb4*fmc2*
0568      . hbcm-4*fb4*hbcm*p1p2+6*fb4*hbcm*p2p5))
0569       b(15)=ccc*(w2*(8*(p5p8*p3p6)*(ffmcfmb*hbcm2+fmb*hbcm)+16*hbcm2*
0570      . p4p6*p5p8)+w17*(8*(p3p6*p2p8)*(ffmcfmb*hbcm2+fmb*hbcm)+8*(p3p6
0571      . *p1p8)*(ffmcfmb*hbcm2+fmb*hbcm)+16*(hbcm2*p1p8*p4p6+hbcm2*p2p8
0572      . *p4p6))+w12*(8*(p3p6*p1p8)*(ffmcfmb*hbcm2+fmb*hbcm)+16*hbcm2*
0573      . p1p8*p4p6)+(4*p6p8*(-4*fb3*ffmcfmb*hbcm2-4*fb3*hbcm2+4*fb4*fmb
0574      . *hbcm+hbcm2)+32*(fb3*p1p3*p6p8-fb3*p1p8*p3p6+fb3*p2p3*p6p8-fb3
0575      . *p2p8*p3p6-fb3*p3p4*p6p8+fb3*p3p6*p4p8)))
0576       b(16)=ccc*(w2*(8*(p5p8*p3p6)*(-ffmcfmb*hbcm-hbcm)-24*hbcm*p4p6*
0577      . p5p8)+w17*(8*(p3p6*p2p8)*(-ffmcfmb*hbcm-hbcm)+8*(p3p6*p1p8)*(-
0578      . ffmcfmb*hbcm-hbcm)+24*(-hbcm*p1p8*p4p6-hbcm*p2p8*p4p6))+w12*(8
0579      . *(p3p6*p1p8)*(-ffmcfmb*hbcm-hbcm)-24*hbcm*p1p8*p4p6)+8*p6p8*(2
0580      . *fb3*fmb+2*fb4*ffmcfmb*hbcm-2*fb4*hbcm-hbcm))
0581       b(17)=ccc*(w2*(4*p5p8*(ffmcfmb*hbcm3-2*fmb*hbcm2+fmc*hbcm2-3*
0582      . hbcm3)+8*(hbcm*p1p3*p5p8+hbcm*p2p3*p5p8-3*hbcm*p3p5*p5p8))+w17
0583      . *(4*p2p8*(ffmcfmb*hbcm3-2*fmb*hbcm2+fmc*hbcm2-3*hbcm3)+4*p1p8*
0584      . (ffmcfmb*hbcm3-2*fmb*hbcm2+fmc*hbcm2-3*hbcm3)+8*(hbcm*p1p3*
0585      . p1p8+hbcm*p1p3*p2p8+hbcm*p1p8*p2p3-3*hbcm*p1p8*p3p5+hbcm*p2p3*
0586      . p2p8-3*hbcm*p2p8*p3p5))+w12*(4*p1p8*(ffmcfmb*hbcm3-2*fmb*hbcm2
0587      . +fmc*hbcm2-3*hbcm3)+8*(hbcm*p1p3*p1p8+hbcm*p1p8*p2p3-3*hbcm*
0588      . p1p8*p3p5))+16*(fb4*hbcm*p1p8+fb4*hbcm*p2p8-3*fb4*hbcm*p5p8))
0589       b(18)=ccc*(w2*(8*(p5p8*p3p7)*(-ffmcfmb*hbcm2-2*fmb*hbcm-fmc*
0590      . hbcm)-16*hbcm2*p5p7*p5p8)+w17*(8*(p3p7*p2p8)*(-ffmcfmb*hbcm2-2
0591      . *fmb*hbcm-fmc*hbcm)+8*(p3p7*p1p8)*(-ffmcfmb*hbcm2-2*fmb*hbcm-
0592      . fmc*hbcm)+16*(-hbcm2*p1p8*p5p7-hbcm2*p2p8*p5p7))+w12*(8*(p3p7*
0593      . p1p8)*(-ffmcfmb*hbcm2-2*fmb*hbcm-fmc*hbcm)-16*hbcm2*p1p8*p5p7)
0594      . +(4*p7p8*(4*fb3*ffmcfmb*hbcm2-12*fb3*hbcm2-8*fb4*fmb*hbcm-4*
0595      . fb4*fmc*hbcm-hbcm2)+32*(fb3*p1p3*p7p8-fb3*p1p8*p3p7+fb3*p2p3*
0596      . p7p8-fb3*p2p8*p3p7-3*fb3*p3p5*p7p8+3*fb3*p3p7*p5p8)))
0597       b(19)=ccc*(4*w2*p5p8*(-2*ffmcfmb*hbcm2-3*fmb*hbcm-fmc*hbcm+2*
0598      . hbcm2)+w17*(4*p2p8*(-2*ffmcfmb*hbcm2-3*fmb*hbcm-fmc*hbcm+2*
0599      . hbcm2)+4*p1p8*(-2*ffmcfmb*hbcm2-3*fmb*hbcm-fmc*hbcm+2*hbcm2))+
0600      . 4*w12*p1p8*(-2*ffmcfmb*hbcm2-3*fmb*hbcm-fmc*hbcm+2*hbcm2)+16*(
0601      . -fb3*p1p8-fb3*p2p8+4*fb3*p5p8))
0602       b(20)=ccc*(w2*(8*(p5p8*p3p7)*(ffmcfmb*hbcm-2*hbcm)-24*hbcm*p5p7
0603      . *p5p8)+w17*(8*(p3p7*p2p8)*(ffmcfmb*hbcm-2*hbcm)+8*(p3p7*p1p8)*
0604      . (ffmcfmb*hbcm-2*hbcm)+24*(-hbcm*p1p8*p5p7-hbcm*p2p8*p5p7))+w12
0605      . *(8*(p3p7*p1p8)*(ffmcfmb*hbcm-2*hbcm)-24*hbcm*p1p8*p5p7)+4*
0606      . p7p8*(12*fb3*fmb-4*fb3*fmc+8*fb4*ffmcfmb*hbcm-8*fb4*hbcm-hbcm)
0607      . )
0608       b(21)=2*ccc*(16*fb3*fmb-4*fb3*fmc+12*fb4*ffmcfmb*hbcm-12*fb4*
0609      . hbcm-3*hbcm)
0610       b(22)=4*ccc*(4*fb3*ffmcfmb*hbcm2-8*fb3*hbcm2+4*fb3*p1p3+4*fb3*
0611      . p2p3-16*fb3*p3p5-6*fb4*fmb*hbcm-2*fb4*fmc*hbcm-hbcm2)
0612       b(23)=ccc*(8*p3p7*(-6*fb3*fmb+2*fb3*fmc-2*fb4*ffmcfmb*hbcm+hbcm
0613      . )-48*fb4*hbcm*p5p7)
0614       b(24)=ccc*(4*p3p6*(-4*fb3*fmb-8*fb4*ffmcfmb*hbcm+hbcm)-48*fb4*
0615      . hbcm*p4p6)
0616       b(25)=4*ccc*p3p7*(-8*fb3*ffmcfmb*fmb+4*fb3*ffmcfmb*fmc-4*fb4*
0617      . ffmcfmb**2*hbcm+4*fb4*ffmcfmb*hbcm+ffmcfmb*hbcm)
0618       b(27)=ccc*(32*(p3p7*p3p6)*(-2*fb3*ffmcfmb-fb3)+4*p6p7*(4*fb3*
0619      . ffmcfmb*hbcm2+12*fb3*hbcm2-8*fb4*fmb*hbcm-4*fb4*fmc*hbcm-hbcm2
0620      . )+32*(-2*fb3*p1p3*p6p7-2*fb3*p2p3*p6p7+3*fb3*p3p4*p6p7-fb3*
0621      . p3p6*p4p7-3*fb3*p3p7*p4p6))
0622       b(28)=ccc*(8*w2*(p6p7*p5p8)*(ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm-
0623      . hbcm2)+w17*(8*(p6p7*p2p8)*(ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm-
0624      . hbcm2)+8*(p6p7*p1p8)*(ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm-hbcm2)
0625      . )+8*w12*(p6p7*p1p8)*(ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm-hbcm2)+
0626      . (32*(p7p8*p3p6)*(-fb3*ffmcfmb-fb3)+32*(-fb3*ffmcfmb*p3p7*p6p8-
0627      . 2*fb3*p1p8*p6p7-2*fb3*p2p8*p6p7-3*fb3*p4p6*p7p8-fb3*p4p7*p6p8+
0628      . 3*fb3*p4p8*p6p7)))
0629       b(29)=ccc*(16*p3p6*(-2*fb3*ffmcfmb-fb3)-64*fb3*p4p6)
0630       b(30)=ccc*(16*p3p7*(2*fb3*ffmcfmb-3*fb3)-64*fb3*p5p7)
0631       ans=ccc*(w2*(8*(p6p7*p5p8)*(-fmb*hbcm2+fmc*hbcm2+2*hbcm3)+16*(
0632      . p5p8*p3p7*p3p6)*(-ffmcfmb*hbcm-hbcm)+16*(-hbcm*p1p3*p5p8*p6p7-
0633      . hbcm*p2p3*p5p8*p6p7+2*hbcm*p3p4*p5p8*p6p7-hbcm*p3p6*p4p7*p5p8-
0634      . 2*hbcm*p3p7*p4p6*p5p8))+w17*(8*(p6p7*p2p8)*(-fmb*hbcm2+fmc*
0635      . hbcm2+2*hbcm3)+8*(p6p7*p1p8)*(-fmb*hbcm2+fmc*hbcm2+2*hbcm3)+16
0636      . *(p3p7*p3p6*p2p8)*(-ffmcfmb*hbcm-hbcm)+16*(p3p7*p3p6*p1p8)*(-
0637      . ffmcfmb*hbcm-hbcm)+16*(-hbcm*p1p3*p1p8*p6p7-hbcm*p1p3*p2p8*
0638      . p6p7-hbcm*p1p8*p2p3*p6p7+2*hbcm*p1p8*p3p4*p6p7-hbcm*p1p8*p3p6*
0639      . p4p7-2*hbcm*p1p8*p3p7*p4p6-hbcm*p2p3*p2p8*p6p7+2*hbcm*p2p8*
0640      . p3p4*p6p7-hbcm*p2p8*p3p6*p4p7-2*hbcm*p2p8*p3p7*p4p6))+w12*(8*(
0641      . p6p7*p1p8)*(-fmb*hbcm2+fmc*hbcm2+2*hbcm3)+16*(p3p7*p3p6*p1p8)*
0642      . (-ffmcfmb*hbcm-hbcm)+16*(-hbcm*p1p3*p1p8*p6p7-hbcm*p1p8*p2p3*
0643      . p6p7+2*hbcm*p1p8*p3p4*p6p7-hbcm*p1p8*p3p6*p4p7-2*hbcm*p1p8*
0644      . p3p7*p4p6))+(8*(p6p8*p3p7)*(4*fb3*fmb-4*fb4*hbcm-hbcm)+32*(
0645      . p7p8*p3p6)*(-fb3*fmb-fb4*ffmcfmb*hbcm)+32*(-fb4*hbcm*p1p8*p6p7
0646      . -fb4*hbcm*p2p8*p6p7-2*fb4*hbcm*p4p6*p7p8-fb4*hbcm*p4p7*p6p8+2*
0647      . fb4*hbcm*p4p8*p6p7)))
0648       b(31)=ans
0649       b(32)=8*ccc*p6p7*(6*fb3*fmb-2*fb3*fmc+4*fb4*ffmcfmb*hbcm-4*fb4*
0650      . hbcm-hbcm)
0651       do 200 n=1,32
0652          c(n,1)=c(n,1)-0.09090909090909091d0*b(n)
0653          c(n,2)=c(n,2)-0.1680909685530997d0*b(n)
0654          c(n,3)=c(n,3)-0.2077659977796572d0*b(n)
0655 200   continue
0656       return
0657         end
0658
0659       subroutine amp16_1p1(cc)
0660       implicit double precision(a-h,o-z)
0661       implicit integer (i-n)
0662       dimension b(32)
0663 #include "inclcon.h"
0664 #include "inclppp.h"
0665 #include "inclamp.h"
0666       do 100 n=1,32
0667          b(n)=0.0d0
0668 100   continue
0669       ccc=cc/((ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*p3p5+fmb2+
0670      . hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3-2*ffmcfmb*p2p3-
0671      . fmc2+2*p1p2)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p2p3-fmc2))
0672       b(1)=ccc*(4*p6p7*(4*fb3*ffmcfmb**2*hbcm2-4*fb3*ffmcfmb*hbcm2+4*
0673      . fb3*fmb*fmc+4*fb4*ffmcfmb*fmb*hbcm+4*fb4*ffmcfmb*fmc*hbcm-4*
0674      . fb4*fmc*hbcm-fmb*hbcm-fmc*hbcm+hbcm2)+32*(-fb3*ffmcfmb*p2p3*
0675      . p6p7+fb3*ffmcfmb*p3p6*p3p7+2*fb3*ffmcfmb*p3p7*p4p6+fb3*p1p2*
0676      . p6p7-fb3*p2p4*p6p7))
0677       ans2=w17*(8*(p6p7*p2p8)*(ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2-
0678      . ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3-fmb*fmc*hbcm+fmc*hbcm2)+8*(
0679      . p6p7*p1p8)*(ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*
0680      . hbcm2-ffmcfmb*hbcm3-fmb*fmc*hbcm+fmc*hbcm2)+16*(p3p7*p3p6*p2p8
0681      . )*(-ffmcfmb**2*hbcm+ffmcfmb*hbcm)+16*(p3p7*p3p6*p1p8)*(-
0682      . ffmcfmb**2*hbcm+ffmcfmb*hbcm)+16*(-ffmcfmb*hbcm*p1p8*p2p3*p6p7
0683      . +ffmcfmb*hbcm*p1p8*p3p7*p4p6-ffmcfmb*hbcm*p2p3*p2p8*p6p7+
0684      . ffmcfmb*hbcm*p2p8*p3p7*p4p6+hbcm*p1p2*p1p8*p6p7+hbcm*p1p2*p2p8
0685      . *p6p7-hbcm*p1p8*p2p4*p6p7-hbcm*p2p4*p2p8*p6p7))+(8*(p6p7*p4p8)
0686      . *(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+8*(p6p8*p4p7)*(4*fb3*fmc
0687      . +4*fb4*ffmcfmb*hbcm-hbcm)+8*(p7p8*p4p6)*(8*fb3*fmc+8*fb4*
0688      . ffmcfmb*hbcm-hbcm)+8*(p7p8*p3p6)*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm
0689      . -ffmcfmb*hbcm)+16*(p6p7*p2p8)*(2*fb3*fmc+2*fb4*ffmcfmb*hbcm-
0690      . hbcm)+8*(p6p7*p1p8)*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+8*(
0691      . p6p8*p3p7)*(-4*fb3*ffmcfmb*fmb+4*fb3*ffmcfmb*fmc+4*fb4*ffmcfmb
0692      . *hbcm-ffmcfmb*hbcm))
0693       ans1=w2*(8*(p6p7*p5p8)*(ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2-
0694      . ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3-fmb*fmc*hbcm+fmc*hbcm2)+16*(
0695      . p5p8*p3p7*p3p6)*(-ffmcfmb**2*hbcm+ffmcfmb*hbcm)+16*(-ffmcfmb*
0696      . hbcm*p2p3*p5p8*p6p7+ffmcfmb*hbcm*p3p7*p4p6*p5p8+hbcm*p1p2*p5p8
0697      . *p6p7-hbcm*p2p4*p5p8*p6p7))+w7*(8*(p6p7*p2p8)*(ffmcfmb**2*
0698      . hbcm3+ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3-fmb*
0699      . fmc*hbcm+fmc*hbcm2)+16*(p3p7*p3p6*p2p8)*(-ffmcfmb**2*hbcm+
0700      . ffmcfmb*hbcm)+16*(-ffmcfmb*hbcm*p2p3*p2p8*p6p7+ffmcfmb*hbcm*
0701      . p2p8*p3p7*p4p6+hbcm*p1p2*p2p8*p6p7-hbcm*p2p4*p2p8*p6p7))+ans2
0702       ans=ccc*ans1
0703       b(2)=ans
0704       ans=ccc*(w2*(16*(p5p8*p5p7)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p5p8*
0705      . p3p7)*(ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-fmc*
0706      . hbcm))+w7*(16*(p5p7*p2p8)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p3p7*
0707      . p2p8)*(ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-fmc*
0708      . hbcm))+w17*(16*(p5p7*p2p8)*(ffmcfmb*hbcm2-fmc*hbcm)+16*(p5p7*
0709      . p1p8)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p3p7*p2p8)*(ffmcfmb*fmb*hbcm
0710      . +ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-fmc*hbcm)+8*(p3p7*p1p8)*(
0711      . ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-fmc*hbcm))+(32
0712      . *(p7p8*p2p3)*(-fb3*ffmcfmb+2*fb3)+4*p7p8*(4*fb3*ffmcfmb**2*
0713      . hbcm2-4*fb3*ffmcfmb*hbcm2+8*fb3*fmb*fmc+4*fb3*fmc2+8*fb4*
0714      . ffmcfmb*fmb*hbcm+8*fb4*ffmcfmb*fmc*hbcm-4*fb4*fmc*hbcm-fmb*
0715      . hbcm-fmc*hbcm+hbcm2)+32*(fb3*ffmcfmb*p1p8*p3p7-2*fb3*ffmcfmb*
0716      . p3p7*p5p8-fb3*p1p2*p7p8+3*fb3*p2p5*p7p8+fb3*p2p8*p3p7+fb3*p2p8
0717      . *p5p7)))
0718       b(3)=ans
0719       b(4)=ccc*(8*p5p7*(-4*fb3*ffmcfmb*hbcm2-4*fb4*fmc*hbcm+hbcm2)+8*
0720      . p3p7*(-2*fb3*ffmcfmb**2*hbcm2+4*fb3*ffmcfmb*hbcm2-4*fb3*fmb*
0721      . fmc-2*fb3*fmc2-2*fb4*ffmcfmb*fmb*hbcm-2*fb4*ffmcfmb*fmc*hbcm+
0722      . fmb*hbcm+fmc*hbcm)+32*(-fb3*ffmcfmb*p1p3*p3p7-fb3*ffmcfmb*p2p3
0723      . *p3p7+2*fb3*ffmcfmb*p3p5*p3p7+fb3*p1p2*p3p7+3*fb3*p2p3*p5p7-3*
0724      . fb3*p2p5*p3p7))
0725       ans3=(16*(p5p8*p3p7)*(-4*fb3*fmc-2*fb4*ffmcfmb*hbcm+hbcm)+8*(
0726      . p7p8*p3p5)*(8*fb3*fmc+8*fb4*ffmcfmb*hbcm-hbcm)+8*(p3p7*p1p8)*(
0727      . 4*fb3*fmc-hbcm)+32*(p7p8*p1p3)*(-fb3*fmc-fb4*ffmcfmb*hbcm)+16*
0728      . (p3p7*p2p8)*(4*fb3*fmb+2*fb4*ffmcfmb*hbcm-hbcm)+8*(p7p8*p2p3)*
0729      . (-8*fb3*fmb-8*fb4*ffmcfmb*hbcm+hbcm)+4*p7p8*(4*fb3*ffmcfmb*fmb
0730      . *hbcm2-4*fb3*ffmcfmb*fmc*hbcm2+8*fb3*fmc*hbcm2+8*fb4*ffmcfmb*
0731      . hbcm3+4*fb4*fmb*fmc*hbcm-4*fb4*fmc2*hbcm-fmb*hbcm2+fmc*hbcm2-
0732      . hbcm3)+32*(fb4*hbcm*p1p2*p7p8-2*fb4*hbcm*p2p5*p7p8+2*fb4*hbcm*
0733      . p2p8*p5p7))
0734       ans2=w17*(8*(p5p7*p2p8)*(-ffmcfmb*hbcm3+fmc*hbcm2)+8*(p5p7*p1p8
0735      . )*(-ffmcfmb*hbcm3+fmc*hbcm2)+8*(p3p7*p2p8)*(-ffmcfmb*fmb*hbcm2
0736      . +ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3+fmb*fmc*hbcm-fmc2*hbcm)+8*(
0737      . p3p7*p1p8)*(-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3
0738      . +fmb*fmc*hbcm-fmc2*hbcm)+16*(-ffmcfmb*hbcm*p1p3*p1p8*p3p7-
0739      . ffmcfmb*hbcm*p1p3*p2p8*p3p7-ffmcfmb*hbcm*p1p8*p2p3*p3p7+
0740      . ffmcfmb*hbcm*p1p8*p3p5*p3p7-ffmcfmb*hbcm*p2p3*p2p8*p3p7+
0741      . ffmcfmb*hbcm*p2p8*p3p5*p3p7+hbcm*p1p2*p1p8*p3p7+hbcm*p1p2*p2p8
0742      . *p3p7+2*hbcm*p1p8*p2p3*p5p7-2*hbcm*p1p8*p2p5*p3p7+2*hbcm*p2p3*
0743      . p2p8*p5p7-2*hbcm*p2p5*p2p8*p3p7))+ans3
0744       ans1=w2*(8*(p5p8*p5p7)*(-ffmcfmb*hbcm3+fmc*hbcm2)+8*(p5p8*p3p7)
0745      . *(-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3+fmb*fmc*
0746      . hbcm-fmc2*hbcm)+16*(-ffmcfmb*hbcm*p1p3*p3p7*p5p8-ffmcfmb*hbcm*
0747      . p2p3*p3p7*p5p8+ffmcfmb*hbcm*p3p5*p3p7*p5p8+hbcm*p1p2*p3p7*p5p8
0748      . +2*hbcm*p2p3*p5p7*p5p8-2*hbcm*p2p5*p3p7*p5p8))+w7*(8*(p5p7*
0749      . p2p8)*(-ffmcfmb*hbcm3+fmc*hbcm2)+8*(p3p7*p2p8)*(-ffmcfmb*fmb*
0750      . hbcm2+ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3+fmb*fmc*hbcm-fmc2*hbcm)+
0751      . 16*(-ffmcfmb*hbcm*p1p3*p2p8*p3p7-ffmcfmb*hbcm*p2p3*p2p8*p3p7+
0752      . ffmcfmb*hbcm*p2p8*p3p5*p3p7+hbcm*p1p2*p2p8*p3p7+2*hbcm*p2p3*
0753      . p2p8*p5p7-2*hbcm*p2p5*p2p8*p3p7))+ans2
0754       ans=ccc*ans1
0755       b(5)=ans
0756       b(6)=ccc*(w2*(16*(p5p8*p4p6)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p5p8*
0757      . p3p6)*(ffmcfmb*hbcm2-fmc*hbcm))+w7*(16*(p4p6*p2p8)*(ffmcfmb*
0758      . hbcm2-fmc*hbcm)+8*(p3p6*p2p8)*(ffmcfmb*hbcm2-fmc*hbcm))+w17*(
0759      . 16*(p4p6*p2p8)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p3p6*p2p8)*(ffmcfmb
0760      . *hbcm2-fmc*hbcm)+16*(p4p6*p1p8)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(
0761      . p3p6*p1p8)*(ffmcfmb*hbcm2-fmc*hbcm))+(32*(p3p6*p2p8)*(-fb3*
0762      . ffmcfmb-fb3)+4*p6p8*(4*fb3*ffmcfmb**2*hbcm2-4*fb3*ffmcfmb*
0763      . hbcm2+4*fb3*fmb*fmc+4*fb4*ffmcfmb*fmb*hbcm+4*fb4*ffmcfmb*fmc*
0764      . hbcm-4*fb4*fmc*hbcm-fmb*hbcm-fmc*hbcm+hbcm2)+32*(-fb3*ffmcfmb*
0765      . p2p3*p6p8+fb3*p1p2*p6p8-fb3*p2p4*p6p8-3*fb3*p2p8*p4p6)))
0766       b(7)=ccc*(32*(p3p6*p2p3)*(2*fb3*ffmcfmb+fb3)+8*p4p6*(-4*fb3*
0767      . ffmcfmb*hbcm2-4*fb4*fmc*hbcm+hbcm2)+4*p3p6*(-4*fb3*ffmcfmb**2*
0768      . hbcm2-4*fb3*fmb*fmc-4*fb4*ffmcfmb*fmb*hbcm-4*fb4*ffmcfmb*fmc*
0769      . hbcm+fmb*hbcm+fmc*hbcm)+32*(-fb3*p1p2*p3p6+3*fb3*p2p3*p4p6+fb3
0770      . *p2p4*p3p6))
0771       ans2=(8*(p4p8*p3p6)*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+8*(p6p8
0772      . *p3p4)*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+8*(p3p6*p1p8)*(-4*
0773      . fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+8*(p6p8*p1p3)*(4*fb3*fmc+4*
0774      . fb4*ffmcfmb*hbcm-hbcm)+8*(p3p6*p2p8)*(4*fb3*fmb-4*fb3*fmc+hbcm
0775      . )+32*(p6p8*p2p3)*(-fb3*fmb+fb3*fmc+fb4*ffmcfmb*hbcm+fb4*hbcm)+
0776      . 4*p6p8*(4*fb3*ffmcfmb*fmb*hbcm2-4*fb3*ffmcfmb*fmc*hbcm2-4*fb3*
0777      . fmc*hbcm2-4*fb4*ffmcfmb**2*hbcm3-4*fb4*ffmcfmb*hbcm3+4*fb4*fmb
0778      . *fmc*hbcm+ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+32*(-fb4*hbcm*p1p2*
0779      . p6p8+fb4*hbcm*p2p4*p6p8+2*fb4*hbcm*p2p8*p4p6))
0780       ans1=w2*(8*(p5p8*p4p6)*(-ffmcfmb*hbcm3+fmc*hbcm2)+16*(p5p8*p3p6
0781      . *p2p3)*(ffmcfmb*hbcm+hbcm)+8*(p5p8*p3p6)*(-ffmcfmb*fmb*hbcm2+
0782      . fmb*fmc*hbcm)+16*(-hbcm*p1p2*p3p6*p5p8+2*hbcm*p2p3*p4p6*p5p8+
0783      . hbcm*p2p4*p3p6*p5p8))+w7*(8*(p4p6*p2p8)*(-ffmcfmb*hbcm3+fmc*
0784      . hbcm2)+16*(p3p6*p2p8*p2p3)*(ffmcfmb*hbcm+hbcm)+8*(p3p6*p2p8)*(
0785      . -ffmcfmb*fmb*hbcm2+fmb*fmc*hbcm)+16*(-hbcm*p1p2*p2p8*p3p6+2*
0786      . hbcm*p2p3*p2p8*p4p6+hbcm*p2p4*p2p8*p3p6))+w17*(8*(p4p6*p2p8)*(
0787      . -ffmcfmb*hbcm3+fmc*hbcm2)+8*(p4p6*p1p8)*(-ffmcfmb*hbcm3+fmc*
0788      . hbcm2)+16*(p3p6*p2p8*p2p3)*(ffmcfmb*hbcm+hbcm)+16*(p3p6*p2p3*
0789      . p1p8)*(ffmcfmb*hbcm+hbcm)+8*(p3p6*p2p8)*(-ffmcfmb*fmb*hbcm2+
0790      . fmb*fmc*hbcm)+8*(p3p6*p1p8)*(-ffmcfmb*fmb*hbcm2+fmb*fmc*hbcm)+
0791      . 16*(-hbcm*p1p2*p1p8*p3p6-hbcm*p1p2*p2p8*p3p6+2*hbcm*p1p8*p2p3*
0792      . p4p6+hbcm*p1p8*p2p4*p3p6+2*hbcm*p2p3*p2p8*p4p6+hbcm*p2p4*p2p8*
0793      . p3p6))+ans2
0794       ans=ccc*ans1
0795       b(8)=ans
0796       b(9)=ccc*(16*(p4p6*p3p7)*(-4*fb3*fmc-2*fb4*ffmcfmb*hbcm+hbcm)+8
0797      . *(p4p7*p3p6)*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+8*(p6p7*p3p4
0798      . )*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+8*(p6p7*p2p3)*(-4*fb3*
0799      . fmc-8*fb4*ffmcfmb*hbcm+hbcm)+8*(p6p7*p1p3)*(-4*fb3*fmc-4*fb4*
0800      . ffmcfmb*hbcm+hbcm)+8*(p3p7*p3p6)*(4*fb3*ffmcfmb*fmb-4*fb3*
0801      . ffmcfmb*fmc-4*fb3*fmc-4*fb4*ffmcfmb**2*hbcm-4*fb4*ffmcfmb*hbcm
0802      . +hbcm)+4*p6p7*(-4*fb3*ffmcfmb*fmb*hbcm2+4*fb3*ffmcfmb*fmc*
0803      . hbcm2+4*fb3*fmc*hbcm2+4*fb4*ffmcfmb**2*hbcm3+4*fb4*ffmcfmb*
0804      . hbcm3-4*fb4*fmb*fmc*hbcm+fmb*hbcm2-fmc*hbcm2-hbcm3)+32*(fb4*
0805      . hbcm*p1p2*p6p7-fb4*hbcm*p2p4*p6p7))
0806       ans3=(64*(p3p7*p3p6*p2p8)*(3*fb3*ffmcfmb+fb3)+8*(p6p7*p4p8)*(4*
0807      . fb3*ffmcfmb*hbcm2+4*fb4*fmc*hbcm-hbcm2)+8*(p6p8*p4p7)*(-4*fb3*
0808      . ffmcfmb*hbcm2-4*fb4*fmc*hbcm+hbcm2)+8*(p7p8*p4p6)*(4*fb3*
0809      . ffmcfmb*hbcm2+4*fb4*fmc*hbcm-hbcm2)+8*(p6p8*p3p7)*(4*fb3*
0810      . ffmcfmb*hbcm2-4*fb4*ffmcfmb*fmb*hbcm-4*fb4*ffmcfmb*fmc*hbcm+
0811      . ffmcfmb*hbcm2+fmc*hbcm)+16*(p6p7*p2p8)*(-2*fb3*ffmcfmb*hbcm2-2
0812      . *fb4*fmc*hbcm+hbcm2)+8*(p6p7*p1p8)*(-4*fb3*ffmcfmb*hbcm2-4*fb4
0813      . *fmc*hbcm+hbcm2)+8*(p7p8*p3p6)*(4*fb3*ffmcfmb**2*hbcm2+4*fb4*
0814      . ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-fmb*hbcm-fmc*hbcm)+64*(-fb3*
0815      . ffmcfmb*p1p3*p3p7*p6p8+fb3*ffmcfmb*p1p8*p3p6*p3p7-fb3*ffmcfmb*
0816      . p2p3*p3p6*p7p8+fb3*ffmcfmb*p3p4*p3p7*p6p8-fb3*ffmcfmb*p3p6*
0817      . p3p7*p4p8+fb3*p1p8*p2p3*p6p7+fb3*p2p3*p2p8*p6p7-fb3*p2p3*p4p6*
0818      . p7p8+fb3*p2p3*p4p7*p6p8-fb3*p2p3*p4p8*p6p7+4*fb3*p2p8*p3p7*
0819      . p4p6))
0820       ans2=w17*(16*(p4p6*p3p7*p2p8)*(-ffmcfmb*hbcm2+fmc*hbcm)+16*(
0821      . p4p7*p3p6*p2p8)*(ffmcfmb*hbcm2-fmc*hbcm)+16*(p6p7*p3p4*p2p8)*(
0822      . -ffmcfmb*hbcm2+fmc*hbcm)+16*(p6p7*p2p8*p2p3)*(ffmcfmb*hbcm2-
0823      . fmb*hbcm-fmc*hbcm+hbcm2)+16*(p4p6*p3p7*p1p8)*(-ffmcfmb*hbcm2+
0824      . fmc*hbcm)+16*(p4p7*p3p6*p1p8)*(ffmcfmb*hbcm2-fmc*hbcm)+16*(
0825      . p6p7*p3p4*p1p8)*(-ffmcfmb*hbcm2+fmc*hbcm)+16*(p6p7*p2p3*p1p8)*
0826      . (ffmcfmb*hbcm2-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p6p7*p2p8*p1p3)*(
0827      . ffmcfmb*hbcm2-fmc*hbcm)+16*(p6p7*p1p8*p1p3)*(ffmcfmb*hbcm2-fmc
0828      . *hbcm)+8*(p6p7*p2p8)*(-ffmcfmb**2*hbcm4+ffmcfmb*fmb*hbcm3+
0829      . ffmcfmb*fmc*hbcm3-ffmcfmb*hbcm4-fmb*fmc*hbcm2+fmc*hbcm3)+8*(
0830      . p6p7*p1p8)*(-ffmcfmb**2*hbcm4+ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*
0831      . hbcm3-ffmcfmb*hbcm4-fmb*fmc*hbcm2+fmc*hbcm3)+16*(p3p7*p3p6*
0832      . p2p8)*(ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm)+16*(p3p7*p3p6*p1p8)*
0833      . (ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm)+16*(-hbcm2*p1p2*p1p8*p6p7-
0834      . hbcm2*p1p2*p2p8*p6p7+hbcm2*p1p8*p2p4*p6p7+hbcm2*p2p4*p2p8*p6p7
0835      . ))+ans3
0836       ans1=w2*(16*(p5p8*p4p6*p3p7)*(-ffmcfmb*hbcm2+fmc*hbcm)+16*(p5p8
0837      . *p4p7*p3p6)*(ffmcfmb*hbcm2-fmc*hbcm)+16*(p6p7*p5p8*p3p4)*(-
0838      . ffmcfmb*hbcm2+fmc*hbcm)+16*(p6p7*p5p8*p2p3)*(ffmcfmb*hbcm2-fmb
0839      . *hbcm-fmc*hbcm+hbcm2)+16*(p6p7*p5p8*p1p3)*(ffmcfmb*hbcm2-fmc*
0840      . hbcm)+8*(p6p7*p5p8)*(-ffmcfmb**2*hbcm4+ffmcfmb*fmb*hbcm3+
0841      . ffmcfmb*fmc*hbcm3-ffmcfmb*hbcm4-fmb*fmc*hbcm2+fmc*hbcm3)+16*(
0842      . p5p8*p3p7*p3p6)*(ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm)+16*(-hbcm2
0843      . *p1p2*p5p8*p6p7+hbcm2*p2p4*p5p8*p6p7))+w7*(16*(p4p6*p3p7*p2p8)
0844      . *(-ffmcfmb*hbcm2+fmc*hbcm)+16*(p4p7*p3p6*p2p8)*(ffmcfmb*hbcm2-
0845      . fmc*hbcm)+16*(p6p7*p3p4*p2p8)*(-ffmcfmb*hbcm2+fmc*hbcm)+16*(
0846      . p6p7*p2p8*p2p3)*(ffmcfmb*hbcm2-fmb*hbcm-fmc*hbcm+hbcm2)+16*(
0847      . p6p7*p2p8*p1p3)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p6p7*p2p8)*(-
0848      . ffmcfmb**2*hbcm4+ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*hbcm3-ffmcfmb*
0849      . hbcm4-fmb*fmc*hbcm2+fmc*hbcm3)+16*(p3p7*p3p6*p2p8)*(ffmcfmb**2
0850      . *hbcm2-ffmcfmb*fmb*hbcm)+16*(-hbcm2*p1p2*p2p8*p6p7+hbcm2*p2p4*
0851      . p2p8*p6p7))+ans2
0852       ans=ccc*ans1
0853       b(10)=ans
0854       ans=ccc*(w2*(8*(p5p8*p2p3)*(-ffmcfmb*hbcm+2*hbcm)+4*p5p8*(
0855      . ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*hbcm2-2*ffmcfmb*fmc*hbcm2-
0856      . ffmcfmb*hbcm3-2*fmb*fmc*hbcm+fmc*hbcm2+fmc2*hbcm)+8*(-hbcm*
0857      . p1p2*p5p8+3*hbcm*p2p5*p5p8))+w7*(8*(p2p8*p2p3)*(-ffmcfmb*hbcm+
0858      . 2*hbcm)+4*p2p8*(ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*hbcm2-2*ffmcfmb
0859      . *fmc*hbcm2-ffmcfmb*hbcm3-2*fmb*fmc*hbcm+fmc*hbcm2+fmc2*hbcm)+8
0860      . *(-hbcm*p1p2*p2p8+3*hbcm*p2p5*p2p8))+w17*(8*(p2p8*p2p3)*(-
0861      . ffmcfmb*hbcm+2*hbcm)+8*(p2p3*p1p8)*(-ffmcfmb*hbcm+2*hbcm)+4*
0862      . p2p8*(ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*hbcm2-2*ffmcfmb*fmc*hbcm2
0863      . -ffmcfmb*hbcm3-2*fmb*fmc*hbcm+fmc*hbcm2+fmc2*hbcm)+4*p1p8*(
0864      . ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*hbcm2-2*ffmcfmb*fmc*hbcm2-
0865      . ffmcfmb*hbcm3-2*fmb*fmc*hbcm+fmc*hbcm2+fmc2*hbcm)+8*(-hbcm*
0866      . p1p2*p1p8-hbcm*p1p2*p2p8+3*hbcm*p1p8*p2p5+3*hbcm*p2p5*p2p8))+(
0867      . 12*p5p8*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+4*p1p8*(-4*fb3*fmc
0868      . -4*fb4*ffmcfmb*hbcm+hbcm)+8*p2p8*(-6*fb3*fmb-6*fb4*ffmcfmb*
0869      . hbcm+4*fb4*hbcm+hbcm)))
0870       b(11)=ans
0871       b(12)=ccc*(16*p2p3*(2*fb3*ffmcfmb-3*fb3)+2*(-8*fb3*ffmcfmb**2*
0872      . hbcm2+8*fb3*ffmcfmb*hbcm2-12*fb3*fmb*fmc-4*fb3*fmc2+8*fb3*p1p2
0873      . -32*fb3*p2p5-12*fb4*ffmcfmb*fmb*hbcm-12*fb4*ffmcfmb*fmc*hbcm+8
0874      . *fb4*fmc*hbcm+3*fmb*hbcm+3*fmc*hbcm-2*hbcm2))
0875       ans2=w17*(16*(p3p5*p2p8)*(-ffmcfmb*hbcm2+fmc*hbcm)+16*(p2p8*
0876      . p2p3)*(ffmcfmb*hbcm2+fmb*hbcm)+16*(p3p5*p1p8)*(-ffmcfmb*hbcm2+
0877      . fmc*hbcm)+16*(p2p3*p1p8)*(ffmcfmb*hbcm2+fmb*hbcm)+8*(p2p8*p1p3
0878      . )*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p1p8*p1p3)*(ffmcfmb*hbcm2-fmc*
0879      . hbcm)+4*p2p8*(-ffmcfmb*fmb*hbcm3-ffmcfmb*fmc*hbcm3-2*ffmcfmb*
0880      . hbcm4+fmb*fmc*hbcm2+2*fmc*hbcm3+fmc2*hbcm2)+4*p1p8*(-ffmcfmb*
0881      . fmb*hbcm3-ffmcfmb*fmc*hbcm3-2*ffmcfmb*hbcm4+fmb*fmc*hbcm2+2*
0882      . fmc*hbcm3+fmc2*hbcm2)+8*(-hbcm2*p1p2*p1p8-hbcm2*p1p2*p2p8+2*
0883      . hbcm2*p1p8*p2p5+2*hbcm2*p2p5*p2p8))+(8*p5p8*(4*fb3*ffmcfmb*
0884      . hbcm2+4*fb4*fmc*hbcm-hbcm2)+8*p2p8*(-4*fb3*ffmcfmb*hbcm2+6*fb3
0885      . *hbcm2+4*fb4*fmb*hbcm+hbcm2)+4*p1p8*(-4*fb3*ffmcfmb*hbcm2-4*
0886      . fb4*fmc*hbcm+hbcm2)+32*(-fb3*p1p3*p2p8+fb3*p1p8*p2p3-3*fb3*
0887      . p2p3*p5p8+3*fb3*p2p8*p3p5))
0888       ans1=w2*(16*(p5p8*p3p5)*(-ffmcfmb*hbcm2+fmc*hbcm)+16*(p5p8*p2p3
0889      . )*(ffmcfmb*hbcm2+fmb*hbcm)+8*(p5p8*p1p3)*(ffmcfmb*hbcm2-fmc*
0890      . hbcm)+4*p5p8*(-ffmcfmb*fmb*hbcm3-ffmcfmb*fmc*hbcm3-2*ffmcfmb*
0891      . hbcm4+fmb*fmc*hbcm2+2*fmc*hbcm3+fmc2*hbcm2)+8*(-hbcm2*p1p2*
0892      . p5p8+2*hbcm2*p2p5*p5p8))+w7*(16*(p3p5*p2p8)*(-ffmcfmb*hbcm2+
0893      . fmc*hbcm)+16*(p2p8*p2p3)*(ffmcfmb*hbcm2+fmb*hbcm)+8*(p2p8*p1p3
0894      . )*(ffmcfmb*hbcm2-fmc*hbcm)+4*p2p8*(-ffmcfmb*fmb*hbcm3-ffmcfmb*
0895      . fmc*hbcm3-2*ffmcfmb*hbcm4+fmb*fmc*hbcm2+2*fmc*hbcm3+fmc2*hbcm2
0896      . )+8*(-hbcm2*p1p2*p2p8+2*hbcm2*p2p5*p2p8))+ans2
0897       ans=ccc*ans1
0898       b(13)=ans
0899       b(14)=ccc*(12*p3p5*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+4*p1p3*
0900      . (4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+4*p2p3*(12*fb3*fmb+8*fb4*
0901      . ffmcfmb*hbcm-3*hbcm)+2*(-8*fb3*ffmcfmb*fmb*hbcm2+8*fb3*ffmcfmb
0902      . *fmc*hbcm2-12*fb3*fmc*hbcm2+4*fb4*ffmcfmb**2*hbcm3-12*fb4*
0903      . ffmcfmb*hbcm3-8*fb4*fmb*fmc*hbcm+4*fb4*fmc2*hbcm-8*fb4*hbcm*
0904      . p1p2+24*fb4*hbcm*p2p5+2*fmb*hbcm2-2*fmc*hbcm2+3*hbcm3))
0905       b(15)=ccc*(w2*(8*(p5p8*p3p6)*(ffmcfmb*hbcm2+fmb*hbcm)+16*hbcm2*
0906      . p4p6*p5p8)+w7*(8*(p3p6*p2p8)*(ffmcfmb*hbcm2+fmb*hbcm)+16*hbcm2
0907      . *p2p8*p4p6)+w17*(8*(p3p6*p2p8)*(ffmcfmb*hbcm2+fmb*hbcm)+8*(
0908      . p3p6*p1p8)*(ffmcfmb*hbcm2+fmb*hbcm)+16*(hbcm2*p1p8*p4p6+hbcm2*
0909      . p2p8*p4p6))+(4*p6p8*(-4*fb3*ffmcfmb*hbcm2-4*fb3*hbcm2+4*fb4*
0910      . fmb*hbcm+hbcm2)+32*(fb3*p1p3*p6p8-fb3*p1p8*p3p6+fb3*p2p3*p6p8-
0911      . fb3*p2p8*p3p6-fb3*p3p4*p6p8+fb3*p3p6*p4p8)))
0912       b(16)=ccc*(w2*(8*(p5p8*p3p6)*(-ffmcfmb*hbcm-hbcm)-24*hbcm*p4p6*
0913      . p5p8)+w7*(8*(p3p6*p2p8)*(-ffmcfmb*hbcm-hbcm)-24*hbcm*p2p8*p4p6
0914      . )+w17*(8*(p3p6*p2p8)*(-ffmcfmb*hbcm-hbcm)+8*(p3p6*p1p8)*(-
0915      . ffmcfmb*hbcm-hbcm)+24*(-hbcm*p1p8*p4p6-hbcm*p2p8*p4p6))+8*p6p8
0916      . *(2*fb3*fmb+2*fb4*ffmcfmb*hbcm-2*fb4*hbcm-hbcm))
0917       b(17)=ccc*(w2*(4*p5p8*(ffmcfmb*hbcm3-2*fmb*hbcm2+fmc*hbcm2-3*
0918      . hbcm3)+8*(hbcm*p1p3*p5p8+hbcm*p2p3*p5p8-3*hbcm*p3p5*p5p8))+w7*
0919      . (4*p2p8*(ffmcfmb*hbcm3-2*fmb*hbcm2+fmc*hbcm2-3*hbcm3)+8*(hbcm*
0920      . p1p3*p2p8+hbcm*p2p3*p2p8-3*hbcm*p2p8*p3p5))+w17*(4*p2p8*(
0921      . ffmcfmb*hbcm3-2*fmb*hbcm2+fmc*hbcm2-3*hbcm3)+4*p1p8*(ffmcfmb*
0922      . hbcm3-2*fmb*hbcm2+fmc*hbcm2-3*hbcm3)+8*(hbcm*p1p3*p1p8+hbcm*
0923      . p1p3*p2p8+hbcm*p1p8*p2p3-3*hbcm*p1p8*p3p5+hbcm*p2p3*p2p8-3*
0924      . hbcm*p2p8*p3p5))+16*(fb4*hbcm*p1p8+fb4*hbcm*p2p8-3*fb4*hbcm*
0925      . p5p8))
0926       b(18)=ccc*(w2*(8*(p5p8*p3p7)*(-ffmcfmb*hbcm2-2*fmb*hbcm-fmc*
0927      . hbcm)-16*hbcm2*p5p7*p5p8)+w7*(8*(p3p7*p2p8)*(-ffmcfmb*hbcm2-2*
0928      . fmb*hbcm-fmc*hbcm)-16*hbcm2*p2p8*p5p7)+w17*(8*(p3p7*p2p8)*(-
0929      . ffmcfmb*hbcm2-2*fmb*hbcm-fmc*hbcm)+8*(p3p7*p1p8)*(-ffmcfmb*
0930      . hbcm2-2*fmb*hbcm-fmc*hbcm)+16*(-hbcm2*p1p8*p5p7-hbcm2*p2p8*
0931      . p5p7))+(4*p7p8*(4*fb3*ffmcfmb*hbcm2-12*fb3*hbcm2-8*fb4*fmb*
0932      . hbcm-4*fb4*fmc*hbcm-hbcm2)+32*(fb3*p1p3*p7p8-fb3*p1p8*p3p7+fb3
0933      . *p2p3*p7p8-fb3*p2p8*p3p7-3*fb3*p3p5*p7p8+3*fb3*p3p7*p5p8)))
0934       b(19)=ccc*(4*w2*p5p8*(-2*ffmcfmb*hbcm2-3*fmb*hbcm-fmc*hbcm+2*
0935      . hbcm2)+4*w7*p2p8*(-2*ffmcfmb*hbcm2-3*fmb*hbcm-fmc*hbcm+2*hbcm2
0936      . )+w17*(4*p2p8*(-2*ffmcfmb*hbcm2-3*fmb*hbcm-fmc*hbcm+2*hbcm2)+4
0937      . *p1p8*(-2*ffmcfmb*hbcm2-3*fmb*hbcm-fmc*hbcm+2*hbcm2))+16*(-fb3
0938      . *p1p8-fb3*p2p8+4*fb3*p5p8))
0939       b(20)=ccc*(w2*(8*(p5p8*p3p7)*(ffmcfmb*hbcm-2*hbcm)-24*hbcm*p5p7
0940      . *p5p8)+w7*(8*(p3p7*p2p8)*(ffmcfmb*hbcm-2*hbcm)-24*hbcm*p2p8*
0941      . p5p7)+w17*(8*(p3p7*p2p8)*(ffmcfmb*hbcm-2*hbcm)+8*(p3p7*p1p8)*(
0942      . ffmcfmb*hbcm-2*hbcm)+24*(-hbcm*p1p8*p5p7-hbcm*p2p8*p5p7))+4*
0943      . p7p8*(12*fb3*fmb-4*fb3*fmc+8*fb4*ffmcfmb*hbcm-8*fb4*hbcm-hbcm)
0944      . )
0945       b(21)=2*ccc*(16*fb3*fmb-4*fb3*fmc+12*fb4*ffmcfmb*hbcm-12*fb4*
0946      . hbcm-3*hbcm)
0947       b(22)=4*ccc*(4*fb3*ffmcfmb*hbcm2-8*fb3*hbcm2+4*fb3*p1p3+4*fb3*
0948      . p2p3-16*fb3*p3p5-6*fb4*fmb*hbcm-2*fb4*fmc*hbcm-hbcm2)
0949       b(23)=ccc*(8*p3p7*(-6*fb3*fmb+2*fb3*fmc-2*fb4*ffmcfmb*hbcm+hbcm
0950      . )-48*fb4*hbcm*p5p7)
0951       b(24)=ccc*(4*p3p6*(-4*fb3*fmb-8*fb4*ffmcfmb*hbcm+hbcm)-48*fb4*
0952      . hbcm*p4p6)
0953       b(25)=ccc*(12*p5p7*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+8*p3p7*
0954      . (-4*fb3*ffmcfmb*fmb+4*fb3*ffmcfmb*fmc-4*fb3*fmc-2*fb4*ffmcfmb*
0955      . hbcm+hbcm))
0956       b(26)=ccc*(12*p4p6*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+4*p3p6*
0957      . (-4*fb3*ffmcfmb*fmc-4*fb3*fmc-4*fb4*ffmcfmb**2*hbcm-4*fb4*
0958      . ffmcfmb*hbcm+ffmcfmb*hbcm+hbcm))
0959       b(27)=ccc*(32*(p3p7*p3p6)*(-2*fb3*ffmcfmb-fb3)+4*p6p7*(4*fb3*
0960      . ffmcfmb*hbcm2+4*fb3*hbcm2-4*fb4*fmb*hbcm-hbcm2)+32*(-fb3*p1p3*
0961      . p6p7-fb3*p2p3*p6p7+fb3*p3p4*p6p7-fb3*p3p6*p4p7-3*fb3*p3p7*p4p6
0962      . ))
0963       b(28)=ccc*(8*w2*(p6p7*p5p8)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*w7
0964      . *(p6p7*p2p8)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+w17*(8*(p6p7*p2p8)
0965      . *(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(p6p7*p1p8)*(ffmcfmb*hbcm2+
0966      . fmb*hbcm-hbcm2))+(32*(p7p8*p3p6)*(-fb3*ffmcfmb-fb3)+32*(-fb3*
0967      . ffmcfmb*p3p7*p6p8-fb3*p1p8*p6p7-fb3*p2p8*p6p7-3*fb3*p4p6*p7p8-
0968      . fb3*p4p7*p6p8+fb3*p4p8*p6p7)))
0969       b(29)=ccc*(16*p3p6*(-2*fb3*ffmcfmb-fb3)-64*fb3*p4p6)
0970       b(30)=ccc*(16*p3p7*(2*fb3*ffmcfmb-3*fb3)-64*fb3*p5p7)
0971       ans=ccc*(w2*(8*(p6p7*p5p8)*(ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+16*(
0972      . p5p8*p3p7*p3p6)*(-ffmcfmb*hbcm-hbcm)+16*(-hbcm*p1p3*p5p8*p6p7-
0973      . hbcm*p2p3*p5p8*p6p7+hbcm*p3p4*p5p8*p6p7-hbcm*p3p6*p4p7*p5p8-2*
0974      . hbcm*p3p7*p4p6*p5p8))+w7*(8*(p6p7*p2p8)*(ffmcfmb*hbcm3-fmb*
0975      . hbcm2+hbcm3)+16*(p3p7*p3p6*p2p8)*(-ffmcfmb*hbcm-hbcm)+16*(-
0976      . hbcm*p1p3*p2p8*p6p7-hbcm*p2p3*p2p8*p6p7+hbcm*p2p8*p3p4*p6p7-
0977      . hbcm*p2p8*p3p6*p4p7-2*hbcm*p2p8*p3p7*p4p6))+w17*(8*(p6p7*p2p8)
0978      . *(ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+8*(p6p7*p1p8)*(ffmcfmb*hbcm3-
0979      . fmb*hbcm2+hbcm3)+16*(p3p7*p3p6*p2p8)*(-ffmcfmb*hbcm-hbcm)+16*(
0980      . p3p7*p3p6*p1p8)*(-ffmcfmb*hbcm-hbcm)+16*(-hbcm*p1p3*p1p8*p6p7-
0981      . hbcm*p1p3*p2p8*p6p7-hbcm*p1p8*p2p3*p6p7+hbcm*p1p8*p3p4*p6p7-
0982      . hbcm*p1p8*p3p6*p4p7-2*hbcm*p1p8*p3p7*p4p6-hbcm*p2p3*p2p8*p6p7+
0983      . hbcm*p2p8*p3p4*p6p7-hbcm*p2p8*p3p6*p4p7-2*hbcm*p2p8*p3p7*p4p6)
0984      . )+(8*(p6p8*p3p7)*(4*fb3*fmb-4*fb4*hbcm-hbcm)+32*(p7p8*p3p6)*(-
0985      . fb3*fmb-fb4*ffmcfmb*hbcm)+32*(-fb4*hbcm*p1p8*p6p7-fb4*hbcm*
0986      . p2p8*p6p7-2*fb4*hbcm*p4p6*p7p8-fb4*hbcm*p4p7*p6p8+fb4*hbcm*
0987      . p4p8*p6p7)))
0988       b(31)=ans
0989       b(32)=4*ccc*p6p7*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm)
0990       do 200 n=1,32
0991          c(n,1)=c(n,1)-0.1818181818181818d0*b(n)
0992          c(n,2)=c(n,2)-0.05883183899358491d0*b(n)
0993          c(n,3)=c(n,3)-0.2077659977796572d0*b(n)
0994 200   continue
0995       return
0996         end
0997
0998       subroutine amp15_1p1(cc)
0999       implicit double precision(a-h,o-z)
1000       implicit integer (i-n)
1001       dimension b(32)
1002 #include "inclcon.h"
1003 #include "inclppp.h"
1004 #include "inclamp.h"
1005       do 100 n=1,32
1006          b(n)=0.0d0
1007 100   continue
1008       ccc=cc/((-2*p2p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2+2*ffmcfmb*
1009      . p2p3-2*ffmcfmb*p3p5+fmb2+hbcm2-2*p2p3-2*p2p5+2*p3p5)*(ffmcfmb
1010      . **2*hbcm2-2*ffmcfmb*p1p3-fmc2))
1011       b(1)=32*ccc*(fb3*p3p6*p5p7+2*fb3*p4p6*p5p7)
1012       b(2)=ccc*(w16*(16*(p5p8*p5p7*p3p6)*(-ffmcfmb*hbcm+hbcm)+16*(
1013      . p5p7*p3p6*p2p8)*(ffmcfmb*hbcm-hbcm)+16*(-hbcm*p2p8*p4p6*p5p7+
1014      . hbcm*p4p6*p5p7*p5p8))+w12*(16*(p5p7*p3p6*p1p8)*(-ffmcfmb*hbcm+
1015      . hbcm)+16*hbcm*p1p8*p4p6*p5p7)+32*(p6p8*p5p7)*(-fb3*fmb-fb4*
1016      . ffmcfmb*hbcm+fb4*hbcm))
1017       b(3)=ccc*(w16*(8*(p5p8*p5p7)*(fmb*hbcm+fmc*hbcm)+8*(p5p7*p2p8)*
1018      . (-fmb*hbcm-fmc*hbcm))+8*w12*(p5p7*p1p8)*(fmb*hbcm+fmc*hbcm)+32
1019      . *(fb3*p1p8*p5p7+2*fb3*p2p8*p5p7-2*fb3*p5p7*p5p8))
1020       b(4)=ccc*(16*p5p7*(2*fb3*hbcm2+fb4*fmb*hbcm+fb4*fmc*hbcm)+32*(-
1021      . fb3*p1p3*p5p7-2*fb3*p2p3*p5p7+2*fb3*p3p5*p5p7))
1022       b(5)=ccc*(w16*(8*(p5p8*p5p7)*(ffmcfmb*hbcm3-fmc*hbcm2+hbcm3)+8*
1023      . (p5p7*p2p8)*(-ffmcfmb*hbcm3+fmc*hbcm2-hbcm3)+16*(hbcm*p1p3*
1024      . p2p8*p5p7-hbcm*p1p3*p5p7*p5p8+hbcm*p2p3*p2p8*p5p7-hbcm*p2p3*
1025      . p5p7*p5p8-hbcm*p2p8*p3p5*p5p7+hbcm*p3p5*p5p7*p5p8))+w12*(8*(
1026      . p5p7*p1p8)*(ffmcfmb*hbcm3-fmc*hbcm2+hbcm3)+16*(-hbcm*p1p3*p1p8
1027      . *p5p7-hbcm*p1p8*p2p3*p5p7+hbcm*p1p8*p3p5*p5p7))+32*(-fb4*hbcm*
1028      . p1p8*p5p7-fb4*hbcm*p2p8*p5p7+fb4*hbcm*p5p7*p5p8))
1029       b(6)=32*ccc*(fb3*p1p2*p6p8-fb3*p2p3*p6p8-fb3*p2p4*p6p8)
1030       b(7)=32*ccc*(-fb3*p1p2*p3p6+fb3*p2p3*p3p6+fb3*p2p4*p3p6)
1031       b(8)=ccc*(16*w16*(hbcm*p1p2*p2p8*p3p6-hbcm*p1p2*p3p6*p5p8-hbcm*
1032      . p2p3*p2p8*p3p6+hbcm*p2p3*p3p6*p5p8-hbcm*p2p4*p2p8*p3p6+hbcm*
1033      . p2p4*p3p6*p5p8)+16*w12*(-hbcm*p1p2*p1p8*p3p6+hbcm*p1p8*p2p3*
1034      . p3p6+hbcm*p1p8*p2p4*p3p6)+32*(-fb4*hbcm*p1p2*p6p8+fb4*hbcm*
1035      . p2p3*p6p8+fb4*hbcm*p2p4*p6p8))
1036       b(9)=ccc*(8*(p5p7*p3p6)*(4*fb3*fmb-hbcm)+32*fb4*hbcm*p4p6*p5p7)
1037       b(10)=ccc*(w16*(16*(p5p8*p5p7*p3p6)*(ffmcfmb*hbcm2-fmb*hbcm)+16
1038      . *(p5p7*p3p6*p2p8)*(-ffmcfmb*hbcm2+fmb*hbcm))+16*w12*(p5p7*p3p6
1039      . *p1p8)*(ffmcfmb*hbcm2-fmb*hbcm)+(8*(p6p8*p5p7)*(4*fb3*ffmcfmb*
1040      . hbcm2+4*fb3*hbcm2-4*fb4*fmb*hbcm+hbcm2)+64*(fb3*p1p2*p3p6*p7p8
1041      . -fb3*p1p2*p3p7*p6p8-fb3*p1p3*p5p7*p6p8+fb3*p1p8*p3p6*p5p7-fb3*
1042      . p2p3*p3p6*p7p8+fb3*p2p3*p3p7*p6p8-fb3*p2p4*p3p6*p7p8+fb3*p2p4*
1043      . p3p7*p6p8+fb3*p2p8*p3p6*p3p7+fb3*p2p8*p3p6*p4p7+fb3*p2p8*p3p6*
1044      . p5p7+fb3*p3p4*p5p7*p6p8-fb3*p3p6*p4p8*p5p7)))
1045       b(11)=ccc*(8*w16*(-hbcm*p2p5*p2p8+hbcm*p2p5*p5p8)+8*hbcm*p1p8*
1046      . p2p5*w12)
1047       b(12)=-32*ccc*fb3*p2p5
1048       b(14)=16*ccc*fb4*hbcm*p2p5
1049       b(15)=ccc*(w16*(8*(p5p8*p3p6)*(-ffmcfmb*hbcm2+fmb*hbcm)+8*(p3p6
1050      . *p2p8)*(ffmcfmb*hbcm2-fmb*hbcm))+8*w12*(p3p6*p1p8)*(-ffmcfmb*
1051      . hbcm2+fmb*hbcm)+(4*p6p8*(-4*fb3*ffmcfmb*hbcm2-4*fb3*hbcm2+4*
1052      . fb4*fmb*hbcm-hbcm2)+32*(fb3*p1p3*p6p8-fb3*p1p8*p3p6-fb3*p3p4*
1053      . p6p8+fb3*p3p6*p4p8)))
1054       b(16)=ccc*(w16*(8*(p5p8*p3p6)*(ffmcfmb*hbcm-hbcm)+8*(p3p6*p2p8)
1055      . *(-ffmcfmb*hbcm+hbcm)+8*(hbcm*p2p8*p4p6-hbcm*p4p6*p5p8))+w12*(
1056      . 8*(p3p6*p1p8)*(ffmcfmb*hbcm-hbcm)-8*hbcm*p1p8*p4p6)+16*p6p8*(
1057      . fb3*fmb+fb4*ffmcfmb*hbcm-fb4*hbcm))
1058       b(17)=ccc*(w16*(4*p5p8*(-ffmcfmb*hbcm3+fmc*hbcm2-hbcm3)+4*p2p8*
1059      . (ffmcfmb*hbcm3-fmc*hbcm2+hbcm3)+8*(-hbcm*p1p3*p2p8+hbcm*p1p3*
1060      . p5p8-hbcm*p2p3*p2p8+hbcm*p2p3*p5p8+hbcm*p2p8*p3p5-hbcm*p3p5*
1061      . p5p8))+w12*(4*p1p8*(-ffmcfmb*hbcm3+fmc*hbcm2-hbcm3)+8*(hbcm*
1062      . p1p3*p1p8+hbcm*p1p8*p2p3-hbcm*p1p8*p3p5))+16*(fb4*hbcm*p1p8+
1063      . fb4*hbcm*p2p8-fb4*hbcm*p5p8))
1064       b(19)=ccc*(w16*(4*p5p8*(-fmb*hbcm-fmc*hbcm)+4*p2p8*(fmb*hbcm+
1065      . fmc*hbcm))+4*w12*p1p8*(-fmb*hbcm-fmc*hbcm)+16*(-fb3*p1p8-2*fb3
1066      . *p2p8+2*fb3*p5p8))
1067       b(21)=2*ccc*(8*fb3*fmb-4*fb3*fmc+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-
1068      . hbcm)
1069       b(22)=8*ccc*(-2*fb3*hbcm2+2*fb3*p1p3+4*fb3*p2p3-4*fb3*p3p5-fb4*
1070      . fmb*hbcm-fb4*fmc*hbcm)
1071       b(24)=ccc*(4*p3p6*(-4*fb3*fmb+hbcm)-16*fb4*hbcm*p4p6)
1072       b(25)=4*ccc*p5p7*(-8*fb3*fmb+4*fb3*fmc-4*fb4*ffmcfmb*hbcm+4*fb4
1073      . *hbcm+hbcm)
1074       b(27)=32*ccc*(-fb3*p3p6*p3p7-fb3*p3p6*p4p7-fb3*p3p6*p5p7)
1075       b(28)=32*ccc*(-fb3*p3p7*p6p8-fb3*p4p7*p6p8-fb3*p5p7*p6p8)
1076       b(29)=16*ccc*(-fb3*p3p6-2*fb3*p4p6)
1077       b(31)=ccc*(16*w16*(hbcm*p2p8*p3p6*p3p7+hbcm*p2p8*p3p6*p4p7+hbcm
1078      . *p2p8*p3p6*p5p7-hbcm*p3p6*p3p7*p5p8-hbcm*p3p6*p4p7*p5p8-hbcm*
1079      . p3p6*p5p7*p5p8)+16*w12*(-hbcm*p1p8*p3p6*p3p7-hbcm*p1p8*p3p6*
1080      . p4p7-hbcm*p1p8*p3p6*p5p7)+32*(-fb4*hbcm*p3p7*p6p8-fb4*hbcm*
1081      . p4p7*p6p8-fb4*hbcm*p5p7*p6p8))
1082       do 200 n=1,32
1083          c(n,2)=c(n,2)+0.09245003270420485d0*b(n)
1084          c(n,3)=c(n,3)-0.02077659977796572d0*b(n)
1085 200   continue
1086       return
1087         end
1088
1089       subroutine amp14_1p1(cc)
1090       implicit double precision(a-h,o-z)
1091       implicit integer (i-n)
1092       dimension b(32)
1093 #include "inclcon.h"
1094 #include "inclppp.h"
1095 #include "inclamp.h"
1096       do 100 n=1,32
1097          b(n)=0.0d0
1098 100   continue
1099       ccc=cc/((-2*p2p5)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2)*(
1100      . ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2+2*ffmcfmb*p1p3-fmb2+hbcm2-2*
1101      . p1p3))
1102       b(1)=32*ccc*(fb3*p3p6*p5p7+2*fb3*p4p6*p5p7)
1103       b(2)=ccc*(w1*(16*(p5p7*p4p8*p3p6)*(ffmcfmb*hbcm-hbcm)-16*hbcm*
1104      . p4p6*p4p8*p5p7)+w13*(16*(p5p7*p3p6*p1p8)*(ffmcfmb*hbcm-hbcm)-
1105      . 16*hbcm*p1p8*p4p6*p5p7)+8*(p6p8*p5p7)*(-4*fb3*fmb+4*fb3*fmc-
1106      . hbcm))
1107       b(3)=ccc*(8*w1*(p5p7*p4p8)*(-fmb*hbcm-fmc*hbcm)+8*w13*(p5p7*
1108      . p1p8)*(-fmb*hbcm-fmc*hbcm)+32*(fb3*p1p8*p5p7+2*fb3*p2p8*p5p7-2
1109      . *fb3*p5p7*p5p8))
1110       b(4)=ccc*(16*p5p7*(2*fb3*hbcm2+fb4*fmb*hbcm+fb4*fmc*hbcm)+32*(-
1111      . fb3*p1p3*p5p7-2*fb3*p2p3*p5p7+2*fb3*p3p5*p5p7))
1112       b(5)=ccc*(w1*(8*(p5p7*p4p8)*(-ffmcfmb*hbcm3-fmb*hbcm2)+16*(hbcm
1113      . *p2p3*p4p8*p5p7-hbcm*p3p5*p4p8*p5p7))+w13*(8*(p5p7*p1p8)*(-
1114      . ffmcfmb*hbcm3-fmb*hbcm2)+16*(hbcm*p1p8*p2p3*p5p7-hbcm*p1p8*
1115      . p3p5*p5p7))+32*(-fb4*hbcm*p2p8*p5p7+fb4*hbcm*p5p7*p5p8))
1116       b(6)=32*ccc*(fb3*p1p2*p6p8-fb3*p2p3*p6p8-fb3*p2p4*p6p8)
1117       b(7)=32*ccc*(-fb3*p1p2*p3p6+fb3*p2p3*p3p6+fb3*p2p4*p3p6)
1118       b(9)=ccc*(32*(p5p7*p3p6)*(fb3*fmb-fb3*fmc-fb4*ffmcfmb*hbcm+fb4*
1119      . hbcm)+32*fb4*hbcm*p4p6*p5p7)
1120       b(10)=ccc*(16*w1*(p5p7*p4p8*p3p6)*(-ffmcfmb*hbcm2+fmb*hbcm+
1121      . hbcm2)+16*w13*(p5p7*p3p6*p1p8)*(-ffmcfmb*hbcm2+fmb*hbcm+hbcm2)
1122      . +(8*(p6p8*p5p7)*(-4*fb3*ffmcfmb*hbcm2+8*fb3*hbcm2-4*fb4*fmb*
1123      . hbcm+hbcm2)+64*(fb3*p1p2*p3p6*p7p8-fb3*p1p2*p3p7*p6p8-fb3*p1p3
1124      . *p5p7*p6p8+fb3*p1p8*p3p6*p5p7-fb3*p2p3*p3p6*p7p8+fb3*p2p3*p3p7
1125      . *p6p8-fb3*p2p4*p3p6*p7p8+fb3*p2p4*p3p7*p6p8+fb3*p2p8*p3p6*p3p7
1126      . +fb3*p2p8*p3p6*p4p7+fb3*p2p8*p3p6*p5p7+fb3*p3p4*p5p7*p6p8-fb3*
1127      . p3p6*p4p8*p5p7)))
1128       b(11)=8*ccc*(-hbcm*p1p8*p2p5*w13-hbcm*p2p5*p4p8*w1)
1129       b(12)=-32*ccc*fb3*p2p5
1130       b(14)=16*ccc*fb4*hbcm*p2p5
1131       b(15)=ccc*(8*w1*(p4p8*p3p6)*(ffmcfmb*hbcm2-fmb*hbcm-hbcm2)+8*
1132      . w13*(p3p6*p1p8)*(ffmcfmb*hbcm2-fmb*hbcm-hbcm2)+(4*p6p8*(4*fb3*
1133      . ffmcfmb*hbcm2-8*fb3*hbcm2+4*fb4*fmb*hbcm-hbcm2)+32*(fb3*p1p3*
1134      . p6p8-fb3*p1p8*p3p6-fb3*p3p4*p6p8+fb3*p3p6*p4p8)))
1135       b(16)=ccc*(w1*(8*(p4p8*p3p6)*(-ffmcfmb*hbcm+hbcm)+8*hbcm*p4p6*
1136      . p4p8)+w13*(8*(p3p6*p1p8)*(-ffmcfmb*hbcm+hbcm)+8*hbcm*p1p8*p4p6
1137      . )+4*p6p8*(4*fb3*fmb-4*fb3*fmc+hbcm))
1138       b(17)=ccc*(w1*(4*p4p8*(ffmcfmb*hbcm3+fmb*hbcm2)+8*(-hbcm*p2p3*
1139      . p4p8+hbcm*p3p5*p4p8))+w13*(4*p1p8*(ffmcfmb*hbcm3+fmb*hbcm2)+8*
1140      . (-hbcm*p1p8*p2p3+hbcm*p1p8*p3p5))+16*(fb4*hbcm*p2p8-fb4*hbcm*
1141      . p5p8))
1142       b(19)=ccc*(4*w1*p4p8*(fmb*hbcm+fmc*hbcm)+4*w13*p1p8*(fmb*hbcm+
1143      . fmc*hbcm)+16*(-fb3*p1p8-2*fb3*p2p8+2*fb3*p5p8))
1144       b(21)=2*ccc*(4*fb3*fmb-8*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)
1145       b(22)=8*ccc*(-2*fb3*hbcm2+2*fb3*p1p3+4*fb3*p2p3-4*fb3*p3p5-fb4*
1146      . fmb*hbcm-fb4*fmc*hbcm)
1147       b(24)=ccc*(16*p3p6*(-fb3*fmb+fb3*fmc+fb4*ffmcfmb*hbcm-fb4*hbcm)
1148      . -16*fb4*hbcm*p4p6)
1149       b(25)=4*ccc*p5p7*(-4*fb3*fmb+8*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)
1150       b(27)=32*ccc*(-fb3*p3p6*p3p7-fb3*p3p6*p4p7-fb3*p3p6*p5p7)
1151       b(28)=32*ccc*(-fb3*p3p7*p6p8-fb3*p4p7*p6p8-fb3*p5p7*p6p8)
1152       b(29)=16*ccc*(-fb3*p3p6-2*fb3*p4p6)
1153       do 200 n=1,32
1154          c(n,2)=c(n,2)+0.09245003270420485d0*b(n)
1155          c(n,3)=c(n,3)-0.02077659977796572d0*b(n)
1156 200   continue
1157       return
1158         end
1159
1160       subroutine amp13_1p1(cc)
1161       implicit double precision(a-h,o-z)
1162       implicit integer (i-n)
1163       dimension b(32)
1164 #include "inclcon.h"
1165 #include "inclppp.h"
1166 #include "inclamp.h"
1167       do 100 n=1,32
1168          b(n)=0.0d0
1169 100   continue
1170       ccc=cc/((-2*p2p5)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2)*(-fmb2
1171      . +fmc2+hbcm2+2*p3p4))
1172       b(2)=-32*ccc*fb4*hbcm*p5p7*p6p8
1173       b(3)=8*ccc*w1*(p5p7*p4p8)*(fmb*hbcm+fmc*hbcm-2*hbcm2)
1174       b(4)=16*ccc*p5p7*(-fb4*fmb*hbcm-fb4*fmc*hbcm)
1175       b(5)=ccc*(w1*(8*(p5p7*p4p8)*(2*fmb*hbcm2-2*fmc*hbcm2-hbcm3)-16*
1176      . hbcm*p3p4*p4p8*p5p7)+32*fb4*hbcm*p4p8*p5p7)
1177       b(9)=32*ccc*fb4*hbcm*p3p6*p5p7
1178       b(10)=ccc*(16*w1*(p5p7*p4p8*p3p6)*(-fmb*hbcm-fmc*hbcm+2*hbcm2)+
1179      . 32*(p6p8*p5p7)*(fb4*fmb*hbcm+fb4*fmc*hbcm))
1180       b(15)=ccc*(8*w1*(p4p8*p3p6)*(fmb*hbcm+fmc*hbcm-2*hbcm2)+16*p6p8
1181      . *(-fb4*fmb*hbcm-fb4*fmc*hbcm))
1182       b(16)=16*ccc*fb4*hbcm*p6p8
1183       b(17)=ccc*(w1*(4*p4p8*(-2*fmb*hbcm2+2*fmc*hbcm2+hbcm3)+8*hbcm*
1184      . p3p4*p4p8)-16*fb4*hbcm*p4p8)
1185       b(19)=4*ccc*w1*p4p8*(-fmb*hbcm-fmc*hbcm+2*hbcm2)
1186       b(21)=8*ccc*fb4*hbcm
1187       b(22)=8*ccc*(fb4*fmb*hbcm+fb4*fmc*hbcm)
1188       b(24)=-16*ccc*fb4*hbcm*p3p6
1189       b(25)=-16*ccc*fb4*hbcm*p5p7
1190       do 200 n=1,32
1191          c(n,2)=c(n,2)-0.7396002616336388d0*b(n)
1192          c(n,3)=c(n,3)+0.1662127982237257d0*b(n)
1193 200   continue
1194       return
1195         end
1196
1197       subroutine amp12_1p1(cc)
1198       implicit double precision(a-h,o-z)
1199       implicit integer (i-n)
1200       dimension b(32)
1201 #include "inclcon.h"
1202 #include "inclppp.h"
1203 #include "inclamp.h"
1204       do 100 n=1,32
1205          b(n)=0.0d0
1206 100   continue
1207       ccc=cc/((-2*p1p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2+2*ffmcfmb*
1208      . p1p3-2*ffmcfmb*p3p5+fmb2+hbcm2-2*p1p3-2*p1p5+2*p3p5)*(ffmcfmb
1209      . **2*hbcm2-2*ffmcfmb*p2p3-fmc2))
1210       b(1)=ccc*(4*p6p7*(4*fb3*fmb*fmc+4*fb3*fmc2+4*fb4*ffmcfmb*fmb*
1211      . hbcm+4*fb4*ffmcfmb*fmc*hbcm-fmb*hbcm-fmc*hbcm)+32*(-fb3*p2p3*
1212      . p6p7-2*fb3*p2p4*p6p7))
1213       ans=ccc*(w7*(8*(p6p7*p2p8)*(ffmcfmb*hbcm3-fmc*hbcm2)+16*(-
1214      . ffmcfmb*hbcm*p2p8*p3p6*p3p7-ffmcfmb*hbcm*p2p8*p3p7*p4p6-
1215      . ffmcfmb*hbcm*p2p8*p3p7*p5p6-hbcm*p2p3*p2p8*p6p7-hbcm*p2p4*p2p8
1216      . *p6p7))+w15*(8*(p6p7*p5p8)*(ffmcfmb*hbcm3-fmc*hbcm2)+8*(p6p7*
1217      . p1p8)*(-ffmcfmb*hbcm3+fmc*hbcm2)+16*(ffmcfmb*hbcm*p1p8*p3p6*
1218      . p3p7+ffmcfmb*hbcm*p1p8*p3p7*p4p6+ffmcfmb*hbcm*p1p8*p3p7*p5p6-
1219      . ffmcfmb*hbcm*p3p6*p3p7*p5p8-ffmcfmb*hbcm*p3p7*p4p6*p5p8-
1220      . ffmcfmb*hbcm*p3p7*p5p6*p5p8+hbcm*p1p8*p2p3*p6p7+hbcm*p1p8*p2p4
1221      . *p6p7-hbcm*p2p3*p5p8*p6p7-hbcm*p2p4*p5p8*p6p7))+(8*(p6p7*p4p8)
1222      . *(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+8*(p6p8*p4p7)*(4*fb3*fmc
1223      . +4*fb4*ffmcfmb*hbcm-hbcm)+8*(p6p8*p3p7)*(4*fb3*fmc-hbcm)+8*(
1224      . p6p7*p2p8)*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm)+8*(-
1225      . hbcm*p3p6*p7p8-hbcm*p4p6*p7p8-hbcm*p5p6*p7p8)))
1226       b(2)=ans
1227       b(3)=ccc*(8*w7*(p3p7*p2p8)*(-ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm+
1228      . ffmcfmb*hbcm2+fmc*hbcm)+w15*(8*(p5p8*p3p7)*(-ffmcfmb*fmb*hbcm-
1229      . ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2+fmc*hbcm)+8*(p3p7*p1p8)*(
1230      . ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2-fmc*hbcm))+(4*
1231      . p7p8*(4*fb3*ffmcfmb*hbcm2+4*fb4*fmc*hbcm-fmb*hbcm-fmc*hbcm+
1232      . hbcm2)+32*(-fb3*p1p2*p7p8+fb3*p2p5*p7p8+fb3*p2p8*p3p7+fb3*p2p8
1233      . *p5p7)))
1234       b(4)=ccc*(16*p3p7*(-fb4*ffmcfmb*fmb*hbcm-fb4*ffmcfmb*fmc*hbcm)+
1235      . 32*(fb3*p1p2*p3p7+fb3*p2p3*p5p7-fb3*p2p5*p3p7))
1236       ans=ccc*(w7*(8*(p5p7*p2p8)*(ffmcfmb*hbcm3-fmc*hbcm2)+8*(p3p7*
1237      . p2p8)*(-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3-fmb*
1238      . fmc*hbcm+fmc2*hbcm)+16*(ffmcfmb*hbcm*p1p3*p2p8*p3p7+ffmcfmb*
1239      . hbcm*p2p3*p2p8*p3p7-ffmcfmb*hbcm*p2p8*p3p5*p3p7))+w15*(8*(p5p8
1240      . *p5p7)*(ffmcfmb*hbcm3-fmc*hbcm2)+8*(p5p7*p1p8)*(-ffmcfmb*hbcm3
1241      . +fmc*hbcm2)+8*(p5p8*p3p7)*(-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*
1242      . hbcm2-ffmcfmb*hbcm3-fmb*fmc*hbcm+fmc2*hbcm)+8*(p3p7*p1p8)*(
1243      . ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3+fmb*fmc*hbcm
1244      . -fmc2*hbcm)+16*(-ffmcfmb*hbcm*p1p3*p1p8*p3p7+ffmcfmb*hbcm*p1p3
1245      . *p3p7*p5p8-ffmcfmb*hbcm*p1p8*p2p3*p3p7+ffmcfmb*hbcm*p1p8*p3p5*
1246      . p3p7+ffmcfmb*hbcm*p2p3*p3p7*p5p8-ffmcfmb*hbcm*p3p5*p3p7*p5p8))
1247      . +(4*p7p8*(-4*fb3*ffmcfmb*fmb*hbcm2+4*fb3*ffmcfmb*fmc*hbcm2-4*
1248      . fb4*fmb*fmc*hbcm+4*fb4*fmc2*hbcm-fmb*hbcm2+fmc*hbcm2-hbcm3)+8*
1249      . (4*fb4*ffmcfmb*hbcm*p1p8*p3p7+4*fb4*ffmcfmb*hbcm*p2p8*p3p7-4*
1250      . fb4*ffmcfmb*hbcm*p3p7*p5p8+hbcm*p1p3*p7p8+hbcm*p2p3*p7p8-hbcm*
1251      . p3p5*p7p8)))
1252       b(5)=ans
1253       b(6)=ccc*(4*p6p8*(4*fb3*fmb*fmc+4*fb3*fmc2+4*fb4*ffmcfmb*fmb*
1254      . hbcm+4*fb4*ffmcfmb*fmc*hbcm-fmb*hbcm-fmc*hbcm)+32*(-fb3*p2p3*
1255      . p6p8-2*fb3*p2p4*p6p8-fb3*p2p8*p3p6-fb3*p2p8*p4p6-fb3*p2p8*p5p6
1256      . ))
1257       b(7)=ccc*(4*p3p6*(-4*fb3*fmb*fmc-4*fb3*fmc2-4*fb4*ffmcfmb*fmb*
1258      . hbcm-4*fb4*ffmcfmb*fmc*hbcm+fmb*hbcm+fmc*hbcm)+32*(2*fb3*p2p3*
1259      . p3p6+fb3*p2p3*p4p6+fb3*p2p3*p5p6+2*fb3*p2p4*p3p6))
1260       b(8)=ccc*(w7*(8*(p5p6*p2p8)*(ffmcfmb*hbcm3-fmc*hbcm2)+8*(p4p6*
1261      . p2p8)*(ffmcfmb*hbcm3-fmc*hbcm2)+16*(hbcm*p2p3*p2p8*p3p6+hbcm*
1262      . p2p4*p2p8*p3p6))+w15*(8*(p5p8*p5p6)*(ffmcfmb*hbcm3-fmc*hbcm2)+
1263      . 8*(p5p8*p4p6)*(ffmcfmb*hbcm3-fmc*hbcm2)+8*(p5p6*p1p8)*(-
1264      . ffmcfmb*hbcm3+fmc*hbcm2)+8*(p4p6*p1p8)*(-ffmcfmb*hbcm3+fmc*
1265      . hbcm2)+16*(-hbcm*p1p8*p2p3*p3p6-hbcm*p1p8*p2p4*p3p6+hbcm*p2p3*
1266      . p3p6*p5p8+hbcm*p2p4*p3p6*p5p8))+(8*(p4p8*p3p6)*(4*fb3*fmc+4*
1267      . fb4*ffmcfmb*hbcm-hbcm)+8*(p6p8*p3p4)*(-4*fb3*fmc-4*fb4*ffmcfmb
1268      . *hbcm+hbcm)+4*p6p8*(-4*fb3*fmc*hbcm2-4*fb4*ffmcfmb*hbcm3+hbcm3
1269      . )+32*(p3p6*p2p8)*(fb3*fmb-fb3*fmc)+32*(p6p8*p2p3)*(-fb3*fmb+
1270      . fb3*fmc+fb4*hbcm)+32*fb4*hbcm*p2p4*p6p8))
1271       b(9)=ccc*(8*(p4p7*p3p6)*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+8*
1272      . (p3p7*p3p6)*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+8*(p6p7*p3p4)
1273      . *(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+4*p6p7*(4*fb3*fmc*hbcm2+4
1274      . *fb4*ffmcfmb*hbcm3-hbcm3)+8*(p6p7*p2p3)*(-4*fb3*fmb-4*fb4*
1275      . ffmcfmb*hbcm+hbcm)+32*(-fb4*ffmcfmb*hbcm*p3p7*p4p6-fb4*ffmcfmb
1276      . *hbcm*p3p7*p5p6-fb4*hbcm*p2p4*p6p7))
1277       ans2=(32*(p6p7*p2p8)*(-fb3*hbcm2+fb4*fmb*hbcm+fb4*fmc*hbcm)+8*(
1278      . p6p8*p3p7)*(-4*fb3*fmb*fmc-4*fb3*fmc2+fmb*hbcm+fmc*hbcm)+32*(
1279      . p7p8*p3p6)*(fb3*fmb*fmc+fb3*fmc2+fb4*ffmcfmb*fmb*hbcm+fb4*
1280      . ffmcfmb*fmc*hbcm)+8*(p7p8*p5p6)*(4*fb3*ffmcfmb*hbcm2+4*fb4*fmc
1281      . *hbcm+hbcm2)+8*(p7p8*p4p6)*(4*fb3*ffmcfmb*hbcm2+4*fb4*fmc*hbcm
1282      . +hbcm2)+64*(fb3*p2p3*p2p8*p6p7-fb3*p2p3*p3p6*p7p8+fb3*p2p3*
1283      . p3p7*p6p8-fb3*p2p3*p4p6*p7p8+fb3*p2p3*p4p7*p6p8-fb3*p2p3*p4p8*
1284      . p6p7-fb3*p2p3*p5p6*p7p8-fb3*p2p4*p3p6*p7p8+fb3*p2p4*p3p7*p6p8-
1285      . fb3*p2p8*p3p4*p6p7+2*fb3*p2p8*p3p6*p3p7+fb3*p2p8*p3p6*p4p7+2*
1286      . fb3*p2p8*p3p7*p4p6+2*fb3*p2p8*p3p7*p5p6))
1287       ans1=w7*(16*(p5p6*p3p7*p2p8)*(ffmcfmb*hbcm2+fmc*hbcm)+16*(p4p6*
1288      . p3p7*p2p8)*(ffmcfmb*hbcm2+fmc*hbcm)+8*(p6p7*p2p8)*(-ffmcfmb*
1289      . fmb*hbcm3-ffmcfmb*fmc*hbcm3+fmb*fmc*hbcm2+fmc2*hbcm2)+16*(p3p7
1290      . *p3p6*p2p8)*(ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm))+w15*(16*(p5p8
1291      . *p5p6*p3p7)*(ffmcfmb*hbcm2+fmc*hbcm)+16*(p5p8*p4p6*p3p7)*(
1292      . ffmcfmb*hbcm2+fmc*hbcm)+16*(p5p6*p3p7*p1p8)*(-ffmcfmb*hbcm2-
1293      . fmc*hbcm)+16*(p4p6*p3p7*p1p8)*(-ffmcfmb*hbcm2-fmc*hbcm)+8*(
1294      . p6p7*p5p8)*(-ffmcfmb*fmb*hbcm3-ffmcfmb*fmc*hbcm3+fmb*fmc*hbcm2
1295      . +fmc2*hbcm2)+8*(p6p7*p1p8)*(ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*
1296      . hbcm3-fmb*fmc*hbcm2-fmc2*hbcm2)+16*(p5p8*p3p7*p3p6)*(ffmcfmb*
1297      . fmb*hbcm+ffmcfmb*fmc*hbcm)+16*(p3p7*p3p6*p1p8)*(-ffmcfmb*fmb*
1298      . hbcm-ffmcfmb*fmc*hbcm))+ans2
1299       ans=ccc*ans1
1300       b(10)=ans
1301       b(11)=ccc*(w7*(4*p2p8*(ffmcfmb*hbcm3-fmc*hbcm2)+8*(-hbcm*p1p2*
1302      . p2p8+hbcm*p2p5*p2p8))+w15*(4*p5p8*(ffmcfmb*hbcm3-fmc*hbcm2)+4*
1303      . p1p8*(-ffmcfmb*hbcm3+fmc*hbcm2)+8*(hbcm*p1p2*p1p8-hbcm*p1p2*
1304      . p5p8-hbcm*p1p8*p2p5+hbcm*p2p5*p5p8))+(4*p5p8*(4*fb3*fmc+4*fb4*
1305      . ffmcfmb*hbcm-hbcm)+4*p1p8*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)
1306      . +4*p2p8*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+hbcm)))
1307       b(12)=2*ccc*(-4*fb3*fmb*fmc-4*fb3*fmc2+16*fb3*p1p2-8*fb3*p2p3-
1308      . 16*fb3*p2p5-4*fb4*ffmcfmb*fmb*hbcm-4*fb4*ffmcfmb*fmc*hbcm+fmb*
1309      . hbcm+fmc*hbcm)
1310       b(13)=ccc*(4*w7*p2p8*(ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*hbcm3-fmb*
1311      . fmc*hbcm2-fmc2*hbcm2)+w15*(4*p5p8*(ffmcfmb*fmb*hbcm3+ffmcfmb*
1312      . fmc*hbcm3-fmb*fmc*hbcm2-fmc2*hbcm2)+4*p1p8*(-ffmcfmb*fmb*hbcm3
1313      . -ffmcfmb*fmc*hbcm3+fmb*fmc*hbcm2+fmc2*hbcm2))+16*(fb3*hbcm2*
1314      . p2p8-2*fb3*p1p3*p2p8+2*fb3*p1p8*p2p3-2*fb3*p2p3*p5p8+2*fb3*
1315      . p2p8*p3p5))
1316       b(14)=ccc*(4*p3p5*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+4*p1p3*(
1317      . 4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+4*p2p3*(4*fb3*fmb+4*fb4*
1318      . ffmcfmb*hbcm-hbcm)+2*(-4*fb3*fmc*hbcm2-4*fb4*ffmcfmb*hbcm3-8*
1319      . fb4*hbcm*p1p2+8*fb4*hbcm*p2p5+hbcm3))
1320       b(15)=ccc*(8*w7*(p3p6*p2p8)*(fmb*hbcm+fmc*hbcm)+w15*(8*(p5p8*
1321      . p3p6)*(fmb*hbcm+fmc*hbcm)+8*(p3p6*p1p8)*(-fmb*hbcm-fmc*hbcm))+
1322      . (16*p6p8*(-2*fb3*hbcm2+fb4*fmb*hbcm+fb4*fmc*hbcm)+32*(fb3*p2p3
1323      . *p6p8-fb3*p2p8*p3p6-2*fb3*p3p4*p6p8+2*fb3*p3p6*p4p8)))
1324       b(16)=ccc*(8*w7*(-hbcm*p2p8*p3p6-hbcm*p2p8*p4p6-hbcm*p2p8*p5p6)
1325      . +8*w15*(hbcm*p1p8*p3p6+hbcm*p1p8*p4p6+hbcm*p1p8*p5p6-hbcm*p3p6
1326      . *p5p8-hbcm*p4p6*p5p8-hbcm*p5p6*p5p8)+4*p6p8*(8*fb3*fmb-4*fb3*
1327      . fmc+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm))
1328       b(17)=ccc*(w7*(4*p2p8*(-ffmcfmb*hbcm3+fmc*hbcm2-hbcm3)+8*(hbcm*
1329      . p1p3*p2p8+hbcm*p2p3*p2p8-hbcm*p2p8*p3p5))+w15*(4*p5p8*(-
1330      . ffmcfmb*hbcm3+fmc*hbcm2-hbcm3)+4*p1p8*(ffmcfmb*hbcm3-fmc*hbcm2
1331      . +hbcm3)+8*(-hbcm*p1p3*p1p8+hbcm*p1p3*p5p8-hbcm*p1p8*p2p3+hbcm*
1332      . p1p8*p3p5+hbcm*p2p3*p5p8-hbcm*p3p5*p5p8))+16*(fb4*hbcm*p1p8+
1333      . fb4*hbcm*p2p8-fb4*hbcm*p5p8))
1334       b(18)=ccc*(8*w7*(p3p7*p2p8)*(-ffmcfmb*hbcm2-fmc*hbcm)+w15*(8*(
1335      . p5p8*p3p7)*(-ffmcfmb*hbcm2-fmc*hbcm)+8*(p3p7*p1p8)*(ffmcfmb*
1336      . hbcm2+fmc*hbcm))+(4*p7p8*(-4*fb3*ffmcfmb*hbcm2-4*fb3*hbcm2-4*
1337      . fb4*fmc*hbcm-hbcm2)+32*(fb3*p1p3*p7p8-fb3*p1p8*p3p7+fb3*p2p3*
1338      . p7p8-fb3*p2p8*p3p7-fb3*p3p5*p7p8+fb3*p3p7*p5p8)))
1339       b(19)=ccc*(4*w7*p2p8*(-fmb*hbcm-fmc*hbcm)+w15*(4*p5p8*(-fmb*
1340      . hbcm-fmc*hbcm)+4*p1p8*(fmb*hbcm+fmc*hbcm))+16*(-2*fb3*p1p8-fb3
1341      . *p2p8+2*fb3*p5p8))
1342       b(20)=ccc*(8*w7*(-ffmcfmb*hbcm*p2p8*p3p7-hbcm*p2p8*p5p7)+8*w15*
1343      . (ffmcfmb*hbcm*p1p8*p3p7-ffmcfmb*hbcm*p3p7*p5p8+hbcm*p1p8*p5p7-
1344      . hbcm*p5p7*p5p8)+4*p7p8*(4*fb3*fmb-4*fb3*fmc-hbcm))
1345       b(21)=2*ccc*(8*fb3*fmb-4*fb3*fmc+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-
1346      . hbcm)
1347       b(22)=8*ccc*(-2*fb3*hbcm2+4*fb3*p1p3+2*fb3*p2p3-4*fb3*p3p5-fb4*
1348      . fmb*hbcm-fb4*fmc*hbcm)
1349       b(23)=ccc*(16*p3p7*(-fb3*fmb+fb3*fmc-fb4*ffmcfmb*hbcm)-16*fb4*
1350      . hbcm*p5p7)
1351       b(24)=ccc*(4*p3p6*(-8*fb3*fmb+4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm
1352      . )+16*(-fb4*hbcm*p4p6-fb4*hbcm*p5p6))
1353       b(25)=ccc*(4*p5p7*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)-16*fb4*
1354      . ffmcfmb*hbcm*p3p7)
1355       b(26)=ccc*(4*p5p6*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+4*p4p6*(
1356      . -4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+4*p3p6*(-4*fb3*fmc-4*fb4*
1357      . ffmcfmb*hbcm+hbcm))
1358       b(27)=ccc*(16*p6p7*(2*fb3*hbcm2-fb4*fmb*hbcm-fb4*fmc*hbcm)+32*(
1359      . -fb3*p2p3*p6p7+2*fb3*p3p4*p6p7-2*fb3*p3p6*p3p7-2*fb3*p3p6*p4p7
1360      . -fb3*p3p7*p4p6-fb3*p3p7*p5p6))
1361       b(28)=ccc*(8*w7*(p6p7*p2p8)*(fmb*hbcm+fmc*hbcm)+w15*(8*(p6p7*
1362      . p5p8)*(fmb*hbcm+fmc*hbcm)+8*(p6p7*p1p8)*(-fmb*hbcm-fmc*hbcm))+
1363      . 32*(-fb3*p2p8*p6p7-fb3*p3p6*p7p8-fb3*p3p7*p6p8-fb3*p4p6*p7p8-2
1364      . *fb3*p4p7*p6p8+2*fb3*p4p8*p6p7-fb3*p5p6*p7p8))
1365       b(29)=32*ccc*(-fb3*p3p6-fb3*p4p6-fb3*p5p6)
1366       b(30)=16*ccc*(-fb3*p3p7-2*fb3*p5p7)
1367       b(31)=ccc*(w7*(8*(p6p7*p2p8)*(-ffmcfmb*hbcm3+fmc*hbcm2+hbcm3)+
1368      . 16*(p3p7*p3p6*p2p8)*(ffmcfmb*hbcm-hbcm)+16*(hbcm*p2p8*p3p4*
1369      . p6p7-hbcm*p2p8*p3p6*p4p7))+w15*(8*(p6p7*p5p8)*(-ffmcfmb*hbcm3+
1370      . fmc*hbcm2+hbcm3)+8*(p6p7*p1p8)*(ffmcfmb*hbcm3-fmc*hbcm2-hbcm3)
1371      . +16*(p5p8*p3p7*p3p6)*(ffmcfmb*hbcm-hbcm)+16*(p3p7*p3p6*p1p8)*(
1372      . -ffmcfmb*hbcm+hbcm)+16*(-hbcm*p1p8*p3p4*p6p7+hbcm*p1p8*p3p6*
1373      . p4p7+hbcm*p3p4*p5p8*p6p7-hbcm*p3p6*p4p7*p5p8))+(32*(p6p8*p3p7)
1374      . *(fb3*fmb-fb3*fmc+fb4*ffmcfmb*hbcm-fb4*hbcm)+8*(p7p8*p3p6)*(-4
1375      . *fb3*fmb+4*fb3*fmc+hbcm)+32*(-fb4*hbcm*p4p7*p6p8+fb4*hbcm*p4p8
1376      . *p6p7)))
1377       b(32)=4*ccc*p6p7*(8*fb3*fmb-4*fb3*fmc+4*fb4*ffmcfmb*hbcm-4*fb4*
1378      . hbcm-hbcm)
1379       do 200 n=1,32
1380          c(n,1)=c(n,1)+0.09090909090909091d0*b(n)
1381          c(n,2)=c(n,2)-0.01680909685530997d0*b(n)
1382          c(n,3)=c(n,3)-0.02077659977796572d0*b(n)
1383 200   continue
1384       return
1385         end
1386
1387       subroutine amp11_1p1(cc)
1388       implicit double precision(a-h,o-z)
1389       implicit integer (i-n)
1390       dimension b(32)
1391 #include "inclcon.h"
1392 #include "inclppp.h"
1393 #include "inclamp.h"
1394       do 100 n=1,32
1395          b(n)=0.0d0
1396 100   continue
1397       ccc=cc/((-2*p1p5)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2)*(
1398      . ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2+2*ffmcfmb*p2p3-fmb2+hbcm2-2*
1399      . p2p3))
1400       b(1)=ccc*(4*p6p7*(-4*fb3*fmb*fmc-4*fb3*fmb2-4*fb4*ffmcfmb*fmb*
1401      . hbcm-4*fb4*ffmcfmb*fmc*hbcm+4*fb4*fmb*hbcm+4*fb4*fmc*hbcm+fmb*
1402      . hbcm+fmc*hbcm)+32*(-fb3*p2p3*p6p7-2*fb3*p2p4*p6p7))
1403       ans=ccc*(w1*(8*(p6p7*p4p8)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+16*
1404      . (p5p6*p4p8*p3p7)*(ffmcfmb*hbcm-hbcm)+16*(p4p8*p4p6*p3p7)*(
1405      . ffmcfmb*hbcm-hbcm)+16*(p4p8*p3p7*p3p6)*(ffmcfmb*hbcm-hbcm)+16*
1406      . hbcm*p2p4*p4p8*p6p7)+w8*(8*(p6p7*p2p8)*(-ffmcfmb*hbcm3-fmb*
1407      . hbcm2+hbcm3)+16*(p5p6*p3p7*p2p8)*(ffmcfmb*hbcm-hbcm)+16*(p4p6*
1408      . p3p7*p2p8)*(ffmcfmb*hbcm-hbcm)+16*(p3p7*p3p6*p2p8)*(ffmcfmb*
1409      . hbcm-hbcm)+16*hbcm*p2p4*p2p8*p6p7)+(32*(p6p8*p3p7)*(-fb4*
1410      . ffmcfmb*hbcm+fb4*hbcm)+8*(p6p7*p2p8)*(-4*fb3*fmc-4*fb4*ffmcfmb
1411      . *hbcm+4*fb4*hbcm+hbcm)+32*(p7p8*p5p6)*(-fb3*fmb-fb4*ffmcfmb*
1412      . hbcm+fb4*hbcm)+8*(p6p7*p4p8)*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*
1413      . fb4*hbcm-hbcm)+8*(p6p8*p4p7)*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*
1414      . fb4*hbcm+hbcm)+32*(p7p8*p4p6)*(-fb3*fmb-fb4*ffmcfmb*hbcm+fb4*
1415      . hbcm)+32*(p7p8*p3p6)*(-fb3*fmb-fb4*ffmcfmb*hbcm+fb4*hbcm)))
1416       b(2)=ans
1417       b(3)=ccc*(8*w1*(p4p8*p3p7)*(ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm-
1418      . ffmcfmb*hbcm2-fmc*hbcm+hbcm2)+8*w8*(p3p7*p2p8)*(ffmcfmb*fmb*
1419      . hbcm+ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2-fmc*hbcm+hbcm2)+(4*p7p8*(-
1420      . 4*fb3*ffmcfmb*hbcm2-4*fb3*fmb*fmc-4*fb3*fmb2+4*fb3*hbcm2-4*fb4
1421      . *ffmcfmb*fmb*hbcm-4*fb4*ffmcfmb*fmc*hbcm+4*fb4*fmc*hbcm+hbcm2)
1422      . +32*(-fb3*p1p2*p7p8+fb3*p2p5*p7p8+fb3*p2p8*p3p7+fb3*p2p8*p5p7)
1423      . ))
1424       b(4)=ccc*(4*p3p7*(4*fb3*fmb*fmc+4*fb3*fmb2-fmb*hbcm-fmc*hbcm)+
1425      . 32*(fb3*p1p2*p3p7+fb3*p2p3*p5p7-fb3*p2p5*p3p7))
1426       ans2=(8*(p5p8*p3p7)*(4*fb3*fmb-hbcm)+32*(p7p8*p3p5)*(-fb3*fmb-
1427      . fb4*ffmcfmb*hbcm+fb4*hbcm)+8*(p3p7*p2p8)*(-4*fb3*fmb+hbcm)+32*
1428      . (p7p8*p2p3)*(fb3*fmb+fb4*ffmcfmb*hbcm-fb4*hbcm)+8*(p3p7*p1p8)*
1429      . (-4*fb3*fmb+hbcm)+32*(p7p8*p1p3)*(fb3*fmb+fb4*ffmcfmb*hbcm-fb4
1430      . *hbcm)+4*p7p8*(4*fb3*ffmcfmb*fmb*hbcm2-4*fb3*ffmcfmb*fmc*hbcm2
1431      . -8*fb3*fmb*hbcm2+4*fb3*fmc*hbcm2-4*fb4*ffmcfmb*hbcm3-4*fb4*fmb
1432      . *fmc*hbcm+4*fb4*fmb2*hbcm+4*fb4*hbcm3-fmb*hbcm2+fmc*hbcm2)+32*
1433      . (fb4*hbcm*p1p2*p7p8-fb4*hbcm*p2p5*p7p8+fb4*hbcm*p2p8*p5p7))
1434       ans1=w1*(8*(p5p7*p4p8)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+16*(
1435      . p4p8*p3p7*p3p5)*(ffmcfmb*hbcm-hbcm)+16*(p4p8*p3p7*p2p3)*(-
1436      . ffmcfmb*hbcm+hbcm)+16*(p4p8*p3p7*p1p3)*(-ffmcfmb*hbcm+hbcm)+8*
1437      . (p4p8*p3p7)*(ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3
1438      . +fmb*fmc*hbcm-fmb*hbcm2-fmb2*hbcm+fmc*hbcm2-hbcm3)+16*(-hbcm*
1439      . p1p2*p3p7*p4p8-hbcm*p2p3*p4p8*p5p7+hbcm*p2p5*p3p7*p4p8))+w8*(8
1440      . *(p5p7*p2p8)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+16*(p3p7*p3p5*
1441      . p2p8)*(ffmcfmb*hbcm-hbcm)+16*(p3p7*p2p8*p2p3)*(-ffmcfmb*hbcm+
1442      . hbcm)+16*(p3p7*p2p8*p1p3)*(-ffmcfmb*hbcm+hbcm)+8*(p3p7*p2p8)*(
1443      . ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3+fmb*fmc*hbcm
1444      . -fmb*hbcm2-fmb2*hbcm+fmc*hbcm2-hbcm3)+16*(-hbcm*p1p2*p2p8*p3p7
1445      . -hbcm*p2p3*p2p8*p5p7+hbcm*p2p5*p2p8*p3p7))+ans2
1446       ans=ccc*ans1
1447       b(5)=ans
1448       b(6)=ccc*(4*p6p8*(-4*fb3*fmb*fmc-4*fb3*fmb2-4*fb4*ffmcfmb*fmb*
1449      . hbcm-4*fb4*ffmcfmb*fmc*hbcm+4*fb4*fmb*hbcm+4*fb4*fmc*hbcm+fmb*
1450      . hbcm+fmc*hbcm)+32*(-fb3*p2p3*p6p8-2*fb3*p2p4*p6p8-fb3*p2p8*
1451      . p3p6-fb3*p2p8*p4p6-fb3*p2p8*p5p6))
1452       b(7)=ccc*(4*p3p6*(4*fb3*fmb*fmc+4*fb3*fmb2+4*fb4*ffmcfmb*fmb*
1453      . hbcm+4*fb4*ffmcfmb*fmc*hbcm-4*fb4*fmb*hbcm-4*fb4*fmc*hbcm-fmb*
1454      . hbcm-fmc*hbcm)+32*(2*fb3*p2p3*p3p6+fb3*p2p3*p4p6+fb3*p2p3*p5p6
1455      . +2*fb3*p2p4*p3p6))
1456       b(8)=ccc*(w1*(8*(p5p6*p4p8)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+8*
1457      . (p4p8*p4p6)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+16*(-hbcm*p2p3*
1458      . p3p6*p4p8-hbcm*p2p3*p4p6*p4p8-hbcm*p2p3*p4p8*p5p6-hbcm*p2p4*
1459      . p3p6*p4p8))+w8*(8*(p5p6*p2p8)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)
1460      . +8*(p4p6*p2p8)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+16*(-hbcm*p2p3
1461      . *p2p8*p3p6-hbcm*p2p3*p2p8*p4p6-hbcm*p2p3*p2p8*p5p6-hbcm*p2p4*
1462      . p2p8*p3p6))+(8*(p4p8*p3p6)*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*
1463      . fb4*hbcm+hbcm)+8*(p6p8*p3p4)*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*
1464      . fb4*hbcm-hbcm)+32*(p3p6*p2p8)*(fb3*fmb-fb3*fmc)+32*(p6p8*p2p3)
1465      . *(-fb3*fmb+fb3*fmc+fb4*hbcm)+4*p6p8*(4*fb3*fmb*hbcm2+4*fb4*
1466      . ffmcfmb*hbcm3-4*fb4*hbcm3-hbcm3)+32*(fb4*hbcm*p2p4*p6p8+fb4*
1467      . hbcm*p2p8*p4p6+fb4*hbcm*p2p8*p5p6)))
1468       b(9)=ccc*(8*(p6p7*p2p3)*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-4*fb4*
1469      . hbcm-hbcm)+8*(p5p6*p3p7)*(4*fb3*fmb-hbcm)+8*(p4p6*p3p7)*(4*fb3
1470      . *fmb-hbcm)+8*(p4p7*p3p6)*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*
1471      . hbcm-hbcm)+8*(p3p7*p3p6)*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*
1472      . hbcm-hbcm)+8*(p6p7*p3p4)*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*
1473      . hbcm+hbcm)+4*p6p7*(-4*fb3*fmb*hbcm2-4*fb4*ffmcfmb*hbcm3+4*fb4*
1474      . hbcm3+hbcm3)-32*fb4*hbcm*p2p4*p6p7)
1475       ans2=(8*(p7p8*p3p6)*(fmb*hbcm+fmc*hbcm)+32*(p6p8*p3p7)*(fb4*
1476      . ffmcfmb*fmb*hbcm+fb4*ffmcfmb*fmc*hbcm-fb4*fmb*hbcm-fb4*fmc*
1477      . hbcm)+8*(p7p8*p5p6)*(-4*fb3*ffmcfmb*hbcm2+4*fb3*hbcm2-4*fb4*
1478      . fmb*hbcm+hbcm2)+8*(p7p8*p4p6)*(-4*fb3*ffmcfmb*hbcm2+4*fb3*
1479      . hbcm2-4*fb4*fmb*hbcm+hbcm2)+32*(-fb3*hbcm2*p2p8*p6p7+2*fb3*
1480      . p2p3*p2p8*p6p7-2*fb3*p2p3*p3p6*p7p8+2*fb3*p2p3*p3p7*p6p8-2*fb3
1481      . *p2p3*p4p6*p7p8+2*fb3*p2p3*p4p7*p6p8-2*fb3*p2p3*p4p8*p6p7-2*
1482      . fb3*p2p3*p5p6*p7p8-2*fb3*p2p4*p3p6*p7p8+2*fb3*p2p4*p3p7*p6p8-2
1483      . *fb3*p2p8*p3p4*p6p7+4*fb3*p2p8*p3p6*p3p7+2*fb3*p2p8*p3p6*p4p7+
1484      . 4*fb3*p2p8*p3p7*p4p6+4*fb3*p2p8*p3p7*p5p6))
1485       ans1=w1*(16*(p6p7*p4p8*p2p3)*(fmb*hbcm+fmc*hbcm)+16*(p5p6*p4p8*
1486      . p3p7)*(-ffmcfmb*hbcm2+fmb*hbcm+hbcm2)+16*(p4p8*p4p6*p3p7)*(-
1487      . ffmcfmb*hbcm2+fmb*hbcm+hbcm2)+8*(p6p7*p4p8)*(ffmcfmb*fmb*hbcm3
1488      . +ffmcfmb*fmc*hbcm3+fmb*fmc*hbcm2-fmb*hbcm3+fmb2*hbcm2-fmc*
1489      . hbcm3)+16*(p4p8*p3p7*p3p6)*(-ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm
1490      . +fmb*hbcm+fmc*hbcm))+w8*(16*(p6p7*p2p8*p2p3)*(fmb*hbcm+fmc*
1491      . hbcm)+16*(p5p6*p3p7*p2p8)*(-ffmcfmb*hbcm2+fmb*hbcm+hbcm2)+16*(
1492      . p4p6*p3p7*p2p8)*(-ffmcfmb*hbcm2+fmb*hbcm+hbcm2)+8*(p6p7*p2p8)*
1493      . (ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*hbcm3+fmb*fmc*hbcm2-fmb*hbcm3+
1494      . fmb2*hbcm2-fmc*hbcm3)+16*(p3p7*p3p6*p2p8)*(-ffmcfmb*fmb*hbcm-
1495      . ffmcfmb*fmc*hbcm+fmb*hbcm+fmc*hbcm))+ans2
1496       ans=ccc*ans1
1497       b(10)=ans
1498       b(11)=ccc*(w1*(4*p4p8*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+8*(hbcm*
1499      . p1p2*p4p8-hbcm*p2p3*p4p8-hbcm*p2p5*p4p8))+w8*(4*p2p8*(-ffmcfmb
1500      . *hbcm3-fmb*hbcm2+hbcm3)+8*(hbcm*p1p2*p2p8-hbcm*p2p3*p2p8-hbcm*
1501      . p2p5*p2p8))+(4*p2p8*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+4*p5p8
1502      . *(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+hbcm)+4*p1p8*(4*fb3
1503      . *fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm)))
1504       b(12)=2*ccc*(4*fb3*fmb*fmc+4*fb3*fmb2+16*fb3*p1p2-8*fb3*p2p3-16
1505      . *fb3*p2p5+4*fb4*ffmcfmb*fmb*hbcm+4*fb4*ffmcfmb*fmc*hbcm-4*fb4*
1506      . fmb*hbcm-4*fb4*fmc*hbcm-fmb*hbcm-fmc*hbcm)
1507       b(13)=ccc*(w1*(8*(p4p8*p2p3)*(-fmb*hbcm-fmc*hbcm)+4*p4p8*(-
1508      . ffmcfmb*fmb*hbcm3-ffmcfmb*fmc*hbcm3-fmb*fmc*hbcm2+fmb*hbcm3-
1509      . fmb2*hbcm2+fmc*hbcm3))+w8*(8*(p2p8*p2p3)*(-fmb*hbcm-fmc*hbcm)+
1510      . 4*p2p8*(-ffmcfmb*fmb*hbcm3-ffmcfmb*fmc*hbcm3-fmb*fmc*hbcm2+fmb
1511      . *hbcm3-fmb2*hbcm2+fmc*hbcm3))+(16*p2p8*(fb3*hbcm2+fb4*fmb*hbcm
1512      . +fb4*fmc*hbcm)+32*(-fb3*p1p3*p2p8+fb3*p1p8*p2p3-fb3*p2p3*p5p8+
1513      . fb3*p2p8*p3p5)))
1514       b(14)=ccc*(4*p2p3*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+
1515      . hbcm)+4*p3p5*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm)+4*
1516      . p1p3*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+hbcm)+2*(4*fb3*
1517      . fmb*hbcm2+4*fb4*ffmcfmb*hbcm3-8*fb4*hbcm*p1p2+8*fb4*hbcm*p2p5-
1518      . 4*fb4*hbcm3-hbcm3))
1519       b(15)=ccc*(8*w1*(p4p8*p3p6)*(-fmb*hbcm-fmc*hbcm)+8*w8*(p3p6*
1520      . p2p8)*(-fmb*hbcm-fmc*hbcm)+(16*p6p8*(-2*fb3*hbcm2+fb4*fmb*hbcm
1521      . +fb4*fmc*hbcm)+32*(fb3*p2p3*p6p8-fb3*p2p8*p3p6-2*fb3*p3p4*p6p8
1522      . +2*fb3*p3p6*p4p8)))
1523       b(16)=ccc*(8*w1*(hbcm*p3p6*p4p8+hbcm*p4p6*p4p8+hbcm*p4p8*p5p6)+
1524      . 8*w8*(hbcm*p2p8*p3p6+hbcm*p2p8*p4p6+hbcm*p2p8*p5p6)+4*p6p8*(4*
1525      . fb3*fmb-8*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm))
1526       b(17)=ccc*(w1*(4*p4p8*(ffmcfmb*hbcm3+fmb*hbcm2)+8*(-hbcm*p1p3*
1527      . p4p8+hbcm*p3p5*p4p8))+w8*(4*p2p8*(ffmcfmb*hbcm3+fmb*hbcm2)+8*(
1528      . -hbcm*p1p3*p2p8+hbcm*p2p8*p3p5))+16*(fb4*hbcm*p1p8-fb4*hbcm*
1529      . p5p8))
1530       b(18)=ccc*(8*w1*(p4p8*p3p7)*(ffmcfmb*hbcm2+fmc*hbcm-hbcm2)+8*w8
1531      . *(p3p7*p2p8)*(ffmcfmb*hbcm2+fmc*hbcm-hbcm2)+(4*p7p8*(4*fb3*
1532      . ffmcfmb*hbcm2-8*fb3*hbcm2-4*fb4*fmc*hbcm-hbcm2)+32*(fb3*p1p3*
1533      . p7p8-fb3*p1p8*p3p7+fb3*p2p3*p7p8-fb3*p2p8*p3p7-fb3*p3p5*p7p8+
1534      . fb3*p3p7*p5p8)))
1535       b(19)=ccc*(4*w1*p4p8*(fmb*hbcm+fmc*hbcm)+4*w8*p2p8*(fmb*hbcm+
1536      . fmc*hbcm)+16*(-2*fb3*p1p8-fb3*p2p8+2*fb3*p5p8))
1537       b(20)=ccc*(8*w1*(ffmcfmb*hbcm*p3p7*p4p8+hbcm*p4p8*p5p7)+8*w8*(
1538      . ffmcfmb*hbcm*p2p8*p3p7+hbcm*p2p8*p5p7)+16*p7p8*(-fb3*fmc-fb4*
1539      . ffmcfmb*hbcm))
1540       b(21)=2*ccc*(4*fb3*fmb-8*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)
1541       b(22)=8*ccc*(-2*fb3*hbcm2+4*fb3*p1p3+2*fb3*p2p3-4*fb3*p3p5-fb4*
1542      . fmb*hbcm-fb4*fmc*hbcm)
1543       b(23)=ccc*(4*p3p7*(4*fb3*fmc-hbcm)-16*fb4*hbcm*p5p7)
1544       b(24)=ccc*(4*p3p6*(-4*fb3*fmb+8*fb3*fmc+4*fb4*ffmcfmb*hbcm-4*
1545      . fb4*hbcm-hbcm)+16*(-fb4*hbcm*p4p6-fb4*hbcm*p5p6))
1546       b(25)=ccc*(4*p5p7*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm
1547      . )+4*p3p7*(4*fb3*fmb-hbcm))
1548       b(26)=ccc*(4*p5p6*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm
1549      . )+4*p4p6*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm)+4*p3p6
1550      . *(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm))
1551       b(27)=ccc*(16*p6p7*(2*fb3*hbcm2-fb4*fmb*hbcm-fb4*fmc*hbcm)+32*(
1552      . -fb3*p2p3*p6p7+2*fb3*p3p4*p6p7-2*fb3*p3p6*p3p7-2*fb3*p3p6*p4p7
1553      . -fb3*p3p7*p4p6-fb3*p3p7*p5p6))
1554       b(28)=ccc*(8*w1*(p6p7*p4p8)*(-fmb*hbcm-fmc*hbcm)+8*w8*(p6p7*
1555      . p2p8)*(-fmb*hbcm-fmc*hbcm)+32*(-fb3*p2p8*p6p7-fb3*p3p6*p7p8-
1556      . fb3*p3p7*p6p8-fb3*p4p6*p7p8-2*fb3*p4p7*p6p8+2*fb3*p4p8*p6p7-
1557      . fb3*p5p6*p7p8))
1558       b(29)=32*ccc*(-fb3*p3p6-fb3*p4p6-fb3*p5p6)
1559       b(30)=16*ccc*(-fb3*p3p7-2*fb3*p5p7)
1560       b(31)=ccc*(w1*(8*(p6p7*p4p8)*(ffmcfmb*hbcm3+fmb*hbcm2-2*hbcm3)+
1561      . 16*(p4p8*p3p7*p3p6)*(-ffmcfmb*hbcm+2*hbcm)+16*(hbcm*p2p3*p4p8*
1562      . p6p7-hbcm*p3p4*p4p8*p6p7+hbcm*p3p6*p4p7*p4p8+hbcm*p3p7*p4p6*
1563      . p4p8+hbcm*p3p7*p4p8*p5p6))+w8*(8*(p6p7*p2p8)*(ffmcfmb*hbcm3+
1564      . fmb*hbcm2-2*hbcm3)+16*(p3p7*p3p6*p2p8)*(-ffmcfmb*hbcm+2*hbcm)+
1565      . 16*(hbcm*p2p3*p2p8*p6p7-hbcm*p2p8*p3p4*p6p7+hbcm*p2p8*p3p6*
1566      . p4p7+hbcm*p2p8*p3p7*p4p6+hbcm*p2p8*p3p7*p5p6))+(8*(p6p8*p3p7)*
1567      . (-4*fb3*fmc-4*fb4*hbcm+hbcm)+32*(p7p8*p3p6)*(fb3*fmc+fb4*
1568      . ffmcfmb*hbcm-fb4*hbcm)+32*(-fb4*hbcm*p2p8*p6p7-fb4*hbcm*p4p6*
1569      . p7p8-fb4*hbcm*p4p7*p6p8+fb4*hbcm*p4p8*p6p7-fb4*hbcm*p5p6*p7p8)
1570      . ))
1571       b(32)=4*ccc*p6p7*(4*fb3*fmb-8*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)
1572       do 200 n=1,32
1573          c(n,1)=c(n,1)+0.09090909090909091d0*b(n)
1574          c(n,2)=c(n,2)-0.01680909685530997d0*b(n)
1575          c(n,3)=c(n,3)-0.02077659977796572d0*b(n)
1576 200   continue
1577       return
1578         end
1579
1580       subroutine amp19_1p1(cc)
1581       implicit double precision(a-h,o-z)
1582       implicit integer (i-n)
1583       dimension b(32)
1584 #include "inclcon.h"
1585 #include "inclppp.h"
1586 #include "inclamp.h"
1587       do 100 n=1,32
1588          b(n)=0.0d0
1589 100   continue
1590       ccc=cc/((ffmcfmb**2*hbcm2-2*ffmcfmb*p2p3+2*ffmcfmb*p3p4+fmc2-2*
1591      . p2p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p2p3-fmc2)*(ffmcfmb**2*hbcm2
1592      . -2*ffmcfmb*hbcm2+2*ffmcfmb*p1p3-fmb2+hbcm2-2*p1p3))
1593       b(1)=ccc*(4*p6p7*(-4*fb3*ffmcfmb**2*hbcm2+4*fb3*fmb*fmc+8*fb3*
1594      . fmc2+4*fb4*ffmcfmb*fmb*hbcm+4*fb4*ffmcfmb*fmc*hbcm-fmb*hbcm-
1595      . fmc*hbcm)+32*(fb3*ffmcfmb*p3p6*p3p7+2*fb3*ffmcfmb*p3p7*p4p6+
1596      . fb3*p1p2*p6p7-fb3*p2p3*p6p7-3*fb3*p2p4*p6p7))
1597       ans2=(16*(p6p7*p4p8)*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+16*(
1598      . p6p8*p4p7)*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+8*(p7p8*p4p6)*(
1599      . 8*fb3*fmc+8*fb4*ffmcfmb*hbcm-hbcm)+8*(p7p8*p3p6)*(4*fb3*fmc+4*
1600      . fb4*ffmcfmb*hbcm-ffmcfmb*hbcm)+8*(p6p7*p2p8)*(4*fb3*fmc+4*fb4*
1601      . ffmcfmb*hbcm-hbcm)+8*(p6p7*p1p8)*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm
1602      . -hbcm)+8*(p6p8*p3p7)*(-4*fb3*ffmcfmb*fmb+4*fb3*ffmcfmb*fmc+4*
1603      . fb3*fmc+4*fb4*ffmcfmb*hbcm-ffmcfmb*hbcm-hbcm))
1604       ans1=w7*(8*(p6p7*p2p8)*(ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-fmb
1605      . *fmc*hbcm+fmc2*hbcm)+16*(p3p7*p3p6*p2p8)*(-ffmcfmb**2*hbcm+
1606      . ffmcfmb*hbcm)+16*(ffmcfmb*hbcm*p2p8*p3p7*p4p6+hbcm*p1p2*p2p8*
1607      . p6p7-hbcm*p2p3*p2p8*p6p7-2*hbcm*p2p4*p2p8*p6p7))+w11*(8*(p6p7*
1608      . p4p8)*(-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm-fmc2*
1609      . hbcm)+8*(p6p7*p2p8)*(ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-fmb*
1610      . fmc*hbcm+fmc2*hbcm)+16*(p4p8*p3p7*p3p6)*(ffmcfmb**2*hbcm-
1611      . ffmcfmb*hbcm)+16*(p3p7*p3p6*p2p8)*(-ffmcfmb**2*hbcm+ffmcfmb*
1612      . hbcm)+16*(ffmcfmb*hbcm*p2p8*p3p7*p4p6-ffmcfmb*hbcm*p3p7*p4p6*
1613      . p4p8+hbcm*p1p2*p2p8*p6p7-hbcm*p1p2*p4p8*p6p7-hbcm*p2p3*p2p8*
1614      . p6p7+hbcm*p2p3*p4p8*p6p7-2*hbcm*p2p4*p2p8*p6p7+2*hbcm*p2p4*
1615      . p4p8*p6p7))+w13*(8*(p6p7*p1p8)*(-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc
1616      . *hbcm2+fmb*fmc*hbcm-fmc2*hbcm)+16*(p3p7*p3p6*p1p8)*(ffmcfmb**2
1617      . *hbcm-ffmcfmb*hbcm)+16*(-ffmcfmb*hbcm*p1p8*p3p7*p4p6-hbcm*p1p2
1618      . *p1p8*p6p7+hbcm*p1p8*p2p3*p6p7+2*hbcm*p1p8*p2p4*p6p7))+ans2
1619       ans=ccc*ans1
1620       b(2)=ans
1621       b(3)=ccc*(w7*(16*(p5p7*p2p8)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p3p7*
1622      . p2p8)*(ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-fmc*
1623      . hbcm))+w11*(16*(p5p7*p4p8)*(-ffmcfmb*hbcm2+fmc*hbcm)+16*(p5p7*
1624      . p2p8)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p4p8*p3p7)*(-ffmcfmb*fmb*
1625      . hbcm-ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2+fmc*hbcm)+8*(p3p7*p2p8)*(
1626      . ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-fmc*hbcm))+w13
1627      . *(16*(p5p7*p1p8)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(p3p7*p1p8)*(-
1628      . ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2+fmc*hbcm))+(16
1629      . *p7p8*(-fb3*ffmcfmb**2*hbcm2+fb3*fmb*fmc+2*fb3*fmc2+fb4*
1630      . ffmcfmb*fmb*hbcm+fb4*ffmcfmb*fmc*hbcm)+32*(fb3*ffmcfmb*p1p8*
1631      . p3p7-2*fb3*ffmcfmb*p3p7*p5p8-2*fb3*p1p2*p7p8+2*fb3*p2p3*p7p8+3
1632      . *fb3*p2p5*p7p8+fb3*p2p8*p3p7+fb3*p2p8*p5p7)))
1633       b(4)=ccc*(8*p5p7*(-4*fb3*ffmcfmb*hbcm2-4*fb4*fmc*hbcm+hbcm2)+4*
1634      . p3p7*(4*fb3*ffmcfmb**2*hbcm2+4*fb3*ffmcfmb*hbcm2-4*fb3*fmb*fmc
1635      . -8*fb3*fmc2-4*fb4*fmc*hbcm+fmb*hbcm+fmc*hbcm+hbcm2)+32*(-fb3*
1636      . ffmcfmb*p1p3*p3p7-2*fb3*ffmcfmb*p2p3*p3p7+2*fb3*ffmcfmb*p3p5*
1637      . p3p7+2*fb3*p1p2*p3p7+3*fb3*p2p3*p5p7-3*fb3*p2p5*p3p7))
1638       ans2=(16*(p5p8*p3p7)*(-4*fb3*fmc-2*fb4*ffmcfmb*hbcm+hbcm)+8*(
1639      . p7p8*p3p5)*(8*fb3*fmc+8*fb4*ffmcfmb*hbcm-hbcm)+8*(p3p7*p1p8)*(
1640      . 4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+8*(p7p8*p1p3)*(-4*fb3*fmc-4
1641      . *fb4*ffmcfmb*hbcm+hbcm)+8*(p3p7*p2p8)*(4*fb3*fmb+4*fb4*hbcm-
1642      . hbcm)+32*(p7p8*p2p3)*(-fb3*fmb-fb4*ffmcfmb*hbcm-fb4*hbcm)+4*
1643      . p7p8*(4*fb3*ffmcfmb*fmb*hbcm2-4*fb3*ffmcfmb*fmc*hbcm2+8*fb3*
1644      . fmc*hbcm2+8*fb4*ffmcfmb*hbcm3+4*fb4*fmb*fmc*hbcm-4*fb4*fmc2*
1645      . hbcm+ffmcfmb*hbcm3+fmc*hbcm2-2*hbcm3)+32*(fb4*hbcm*p1p2*p7p8-2
1646      . *fb4*hbcm*p2p5*p7p8+2*fb4*hbcm*p2p8*p5p7))
1647       ans1=w7*(8*(p5p7*p2p8)*(-ffmcfmb*hbcm3+fmc*hbcm2)+8*(p3p7*p2p8)
1648      . *(ffmcfmb**2*hbcm3+ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm-fmc2*hbcm)+
1649      . 16*(-ffmcfmb*hbcm*p2p3*p2p8*p3p7+ffmcfmb*hbcm*p2p8*p3p5*p3p7+
1650      . hbcm*p1p2*p2p8*p3p7+2*hbcm*p2p3*p2p8*p5p7-2*hbcm*p2p5*p2p8*
1651      . p3p7))+w11*(8*(p5p7*p4p8)*(ffmcfmb*hbcm3-fmc*hbcm2)+8*(p5p7*
1652      . p2p8)*(-ffmcfmb*hbcm3+fmc*hbcm2)+8*(p4p8*p3p7)*(-ffmcfmb**2*
1653      . hbcm3-ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm+fmc2*hbcm)+8*(p3p7*p2p8)*
1654      . (ffmcfmb**2*hbcm3+ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm-fmc2*hbcm)+16
1655      . *(-ffmcfmb*hbcm*p2p3*p2p8*p3p7+ffmcfmb*hbcm*p2p3*p3p7*p4p8+
1656      . ffmcfmb*hbcm*p2p8*p3p5*p3p7-ffmcfmb*hbcm*p3p5*p3p7*p4p8+hbcm*
1657      . p1p2*p2p8*p3p7-hbcm*p1p2*p3p7*p4p8+2*hbcm*p2p3*p2p8*p5p7-2*
1658      . hbcm*p2p3*p4p8*p5p7-2*hbcm*p2p5*p2p8*p3p7+2*hbcm*p2p5*p3p7*
1659      . p4p8))+w13*(8*(p5p7*p1p8)*(ffmcfmb*hbcm3-fmc*hbcm2)+8*(p3p7*
1660      . p1p8)*(-ffmcfmb**2*hbcm3-ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm+fmc2*
1661      . hbcm)+16*(ffmcfmb*hbcm*p1p8*p2p3*p3p7-ffmcfmb*hbcm*p1p8*p3p5*
1662      . p3p7-hbcm*p1p2*p1p8*p3p7-2*hbcm*p1p8*p2p3*p5p7+2*hbcm*p1p8*
1663      . p2p5*p3p7))+ans2
1664       ans=ccc*ans1
1665       b(5)=ans
1666       b(6)=ccc*(w7*(16*(p4p6*p2p8)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p3p6*
1667      . p2p8)*(ffmcfmb*hbcm2-fmc*hbcm))+w11*(16*(p4p8*p4p6)*(-ffmcfmb*
1668      . hbcm2+fmc*hbcm)+8*(p4p8*p3p6)*(-ffmcfmb*hbcm2+fmc*hbcm)+16*(
1669      . p4p6*p2p8)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p3p6*p2p8)*(ffmcfmb*
1670      . hbcm2-fmc*hbcm))+w13*(16*(p4p6*p1p8)*(-ffmcfmb*hbcm2+fmc*hbcm)
1671      . +8*(p3p6*p1p8)*(-ffmcfmb*hbcm2+fmc*hbcm))+(32*(p3p6*p2p8)*(-
1672      . fb3*ffmcfmb-fb3)+4*p6p8*(-4*fb3*ffmcfmb**2*hbcm2+4*fb3*fmb*fmc
1673      . +8*fb3*fmc2+4*fb4*ffmcfmb*fmb*hbcm+4*fb4*ffmcfmb*fmc*hbcm-fmb*
1674      . hbcm-fmc*hbcm)+32*(fb3*p1p2*p6p8-fb3*p2p3*p6p8-3*fb3*p2p4*p6p8
1675      . -3*fb3*p2p8*p4p6)))
1676       b(7)=ccc*(32*(p3p6*p2p3)*(fb3*ffmcfmb+2*fb3)+8*p4p6*(-4*fb3*
1677      . ffmcfmb*hbcm2-4*fb4*fmc*hbcm+hbcm2)+4*p3p6*(4*fb3*ffmcfmb**2*
1678      . hbcm2-4*fb3*ffmcfmb*hbcm2-4*fb3*fmb*fmc-8*fb3*fmc2-4*fb4*
1679      . ffmcfmb*fmb*hbcm-4*fb4*ffmcfmb*fmc*hbcm-4*fb4*fmc*hbcm+fmb*
1680      . hbcm+fmc*hbcm+hbcm2)+32*(-fb3*p1p2*p3p6+3*fb3*p2p3*p4p6+3*fb3*
1681      . p2p4*p3p6))
1682       ans2=(16*(p4p8*p3p6)*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+16*(
1683      . p6p8*p3p4)*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+8*(p3p6*p1p8)*
1684      . (-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+8*(p6p8*p1p3)*(4*fb3*fmc+
1685      . 4*fb4*ffmcfmb*hbcm-hbcm)+8*(p3p6*p2p8)*(4*fb3*fmb-8*fb3*fmc-4*
1686      . fb4*ffmcfmb*hbcm+4*fb4*hbcm+hbcm)+8*(p6p8*p2p3)*(-4*fb3*fmb+8*
1687      . fb3*fmc+4*fb4*ffmcfmb*hbcm+4*fb4*hbcm-hbcm)+4*p6p8*(4*fb3*
1688      . ffmcfmb*fmb*hbcm2-4*fb3*ffmcfmb*fmc*hbcm2-8*fb3*fmc*hbcm2-8*
1689      . fb4*ffmcfmb*hbcm3+4*fb4*fmb*fmc*hbcm-4*fb4*fmc2*hbcm+ffmcfmb*
1690      . hbcm3-fmb*hbcm2+2*hbcm3)+32*(-fb4*hbcm*p1p2*p6p8+2*fb4*hbcm*
1691      . p2p4*p6p8+2*fb4*hbcm*p2p8*p4p6))
1692       ans1=w7*(8*(p4p6*p2p8)*(-ffmcfmb*hbcm3+fmc*hbcm2)+8*(p3p6*p2p8)
1693      . *(ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2-ffmcfmb*hbcm3+fmb*fmc*
1694      . hbcm+fmc*hbcm2-fmc2*hbcm)+16*(-hbcm*p1p2*p2p8*p3p6+2*hbcm*p2p3
1695      . *p2p8*p3p6+2*hbcm*p2p3*p2p8*p4p6+2*hbcm*p2p4*p2p8*p3p6))+w11*(
1696      . 8*(p4p8*p4p6)*(ffmcfmb*hbcm3-fmc*hbcm2)+8*(p4p6*p2p8)*(-
1697      . ffmcfmb*hbcm3+fmc*hbcm2)+8*(p4p8*p3p6)*(-ffmcfmb**2*hbcm3+
1698      . ffmcfmb*fmb*hbcm2+ffmcfmb*hbcm3-fmb*fmc*hbcm-fmc*hbcm2+fmc2*
1699      . hbcm)+8*(p3p6*p2p8)*(ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2-
1700      . ffmcfmb*hbcm3+fmb*fmc*hbcm+fmc*hbcm2-fmc2*hbcm)+16*(-hbcm*p1p2
1701      . *p2p8*p3p6+hbcm*p1p2*p3p6*p4p8+2*hbcm*p2p3*p2p8*p3p6+2*hbcm*
1702      . p2p3*p2p8*p4p6-2*hbcm*p2p3*p3p6*p4p8-2*hbcm*p2p3*p4p6*p4p8+2*
1703      . hbcm*p2p4*p2p8*p3p6-2*hbcm*p2p4*p3p6*p4p8))+w13*(8*(p4p6*p1p8)
1704      . *(ffmcfmb*hbcm3-fmc*hbcm2)+8*(p3p6*p1p8)*(-ffmcfmb**2*hbcm3+
1705      . ffmcfmb*fmb*hbcm2+ffmcfmb*hbcm3-fmb*fmc*hbcm-fmc*hbcm2+fmc2*
1706      . hbcm)+16*(hbcm*p1p2*p1p8*p3p6-2*hbcm*p1p8*p2p3*p3p6-2*hbcm*
1707      . p1p8*p2p3*p4p6-2*hbcm*p1p8*p2p4*p3p6))+ans2
1708       ans=ccc*ans1
1709       b(8)=ans
1710       b(9)=ccc*(16*(p4p6*p3p7)*(-4*fb3*fmc-2*fb4*ffmcfmb*hbcm+hbcm)+
1711      . 16*(p4p7*p3p6)*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+16*(p6p7*
1712      . p3p4)*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+8*(p6p7*p2p3)*(-4*
1713      . fb3*fmc-4*fb4*ffmcfmb*hbcm-4*fb4*hbcm+hbcm)+8*(p6p7*p1p3)*(-4*
1714      . fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+16*(p3p7*p3p6)*(2*fb3*ffmcfmb
1715      . *fmb-2*fb3*ffmcfmb*fmc-4*fb3*fmc-2*fb4*ffmcfmb**2*hbcm-2*fb4*
1716      . ffmcfmb*hbcm+hbcm)+4*p6p7*(-4*fb3*ffmcfmb*fmb*hbcm2+4*fb3*
1717      . ffmcfmb*fmc*hbcm2+8*fb3*fmc*hbcm2+8*fb4*ffmcfmb*hbcm3-4*fb4*
1718      . fmb*fmc*hbcm+4*fb4*fmc2*hbcm+fmb*hbcm2-fmc*hbcm2-2*hbcm3)+32*(
1719      . fb4*hbcm*p1p2*p6p7-2*fb4*hbcm*p2p4*p6p7))
1720       ans4=(8*(p7p8*p3p6)*(4*fb3*fmc2+4*fb4*ffmcfmb*fmc*hbcm-fmb*hbcm
1721      . -hbcm2)+64*(p3p7*p3p6*p2p8)*(3*fb3*ffmcfmb+fb3)+8*(p6p7*p4p8)*
1722      . (4*fb3*ffmcfmb*hbcm2+4*fb4*fmc*hbcm-hbcm2)+8*(p6p8*p4p7)*(-4*
1723      . fb3*ffmcfmb*hbcm2-4*fb4*fmc*hbcm+hbcm2)+8*(p7p8*p4p6)*(4*fb3*
1724      . ffmcfmb*hbcm2+4*fb4*fmc*hbcm-hbcm2)+8*(p6p8*p3p7)*(4*fb3*
1725      . ffmcfmb*hbcm2-4*fb3*fmc2-4*fb4*ffmcfmb*fmb*hbcm-4*fb4*fmc*hbcm
1726      . +fmc*hbcm+hbcm2)+8*(p6p7*p1p8)*(-4*fb3*ffmcfmb*hbcm2-4*fb4*fmc
1727      . *hbcm+hbcm2)+64*(-fb3*ffmcfmb*hbcm2*p2p8*p6p7-fb3*ffmcfmb*p1p3
1728      . *p3p7*p6p8+fb3*ffmcfmb*p1p8*p3p6*p3p7-fb3*ffmcfmb*p2p3*p3p6*
1729      . p7p8+fb3*ffmcfmb*p3p4*p3p7*p6p8-fb3*ffmcfmb*p3p6*p3p7*p4p8+fb3
1730      . *p1p8*p2p3*p6p7+2*fb3*p2p3*p2p8*p6p7+fb3*p2p3*p3p7*p6p8-fb3*
1731      . p2p3*p4p6*p7p8+2*fb3*p2p3*p4p7*p6p8-2*fb3*p2p3*p4p8*p6p7-fb3*
1732      . p2p4*p3p6*p7p8+fb3*p2p4*p3p7*p6p8-fb3*p2p8*p3p4*p6p7+fb3*p2p8*
1733      . p3p6*p4p7+4*fb3*p2p8*p3p7*p4p6))
1734       ans3=w13*(16*(p6p7*p2p3*p1p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(
1735      . p4p6*p3p7*p1p8)*(ffmcfmb*hbcm2-fmc*hbcm)+16*(p4p7*p3p6*p1p8)*(
1736      . -ffmcfmb*hbcm2+fmc*hbcm)+16*(p6p7*p3p4*p1p8)*(ffmcfmb*hbcm2-
1737      . fmc*hbcm)+16*(p6p7*p1p8*p1p3)*(-ffmcfmb*hbcm2+fmc*hbcm)+16*(
1738      . p3p7*p3p6*p1p8)*(ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm+fmc*hbcm)+8
1739      . *(p6p7*p1p8)*(-ffmcfmb**2*hbcm4-ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*
1740      . hbcm3+2*ffmcfmb*hbcm4+fmb*fmc*hbcm2-2*fmc*hbcm3)+16*(hbcm2*
1741      . p1p2*p1p8*p6p7-hbcm2*p1p8*p2p4*p6p7))+ans4
1742       ans2=w11*(16*(p6p7*p4p8*p2p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+16*(
1743      . p6p7*p2p8*p2p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(p4p8*p4p6*p3p7)
1744      . *(ffmcfmb*hbcm2-fmc*hbcm)+16*(p4p8*p4p7*p3p6)*(-ffmcfmb*hbcm2+
1745      . fmc*hbcm)+16*(p6p7*p4p8*p3p4)*(ffmcfmb*hbcm2-fmc*hbcm)+16*(
1746      . p4p6*p3p7*p2p8)*(-ffmcfmb*hbcm2+fmc*hbcm)+16*(p4p7*p3p6*p2p8)*
1747      . (ffmcfmb*hbcm2-fmc*hbcm)+16*(p6p7*p3p4*p2p8)*(-ffmcfmb*hbcm2+
1748      . fmc*hbcm)+16*(p6p7*p4p8*p1p3)*(-ffmcfmb*hbcm2+fmc*hbcm)+16*(
1749      . p6p7*p2p8*p1p3)*(ffmcfmb*hbcm2-fmc*hbcm)+16*(p4p8*p3p7*p3p6)*(
1750      . ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm+fmc*hbcm)+16*(p3p7*p3p6*p2p8
1751      . )*(-ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm-fmc*hbcm)+8*(p6p7*p4p8)*
1752      . (-ffmcfmb**2*hbcm4-ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*hbcm3+2*
1753      . ffmcfmb*hbcm4+fmb*fmc*hbcm2-2*fmc*hbcm3)+8*(p6p7*p2p8)*(
1754      . ffmcfmb**2*hbcm4+ffmcfmb*fmb*hbcm3-ffmcfmb*fmc*hbcm3-2*ffmcfmb
1755      . *hbcm4-fmb*fmc*hbcm2+2*fmc*hbcm3)+16*(-hbcm2*p1p2*p2p8*p6p7+
1756      . hbcm2*p1p2*p4p8*p6p7+hbcm2*p2p4*p2p8*p6p7-hbcm2*p2p4*p4p8*p6p7
1757      . ))+ans3
1758       ans1=w7*(16*(p6p7*p2p8*p2p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(
1759      . p4p6*p3p7*p2p8)*(-ffmcfmb*hbcm2+fmc*hbcm)+16*(p4p7*p3p6*p2p8)*
1760      . (ffmcfmb*hbcm2-fmc*hbcm)+16*(p6p7*p3p4*p2p8)*(-ffmcfmb*hbcm2+
1761      . fmc*hbcm)+16*(p6p7*p2p8*p1p3)*(ffmcfmb*hbcm2-fmc*hbcm)+16*(
1762      . p3p7*p3p6*p2p8)*(-ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm-fmc*hbcm)+
1763      . 8*(p6p7*p2p8)*(ffmcfmb**2*hbcm4+ffmcfmb*fmb*hbcm3-ffmcfmb*fmc*
1764      . hbcm3-2*ffmcfmb*hbcm4-fmb*fmc*hbcm2+2*fmc*hbcm3)+16*(-hbcm2*
1765      . p1p2*p2p8*p6p7+hbcm2*p2p4*p2p8*p6p7))+ans2
1766       ans=ccc*ans1
1767       b(10)=ans
1768       ans=ccc*(w7*(4*p2p8*(-ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2-
1769      . ffmcfmb*fmc*hbcm2-fmb*fmc*hbcm+2*fmc2*hbcm)+8*(-2*hbcm*p1p2*
1770      . p2p8+2*hbcm*p2p3*p2p8+3*hbcm*p2p5*p2p8))+w11*(4*p4p8*(ffmcfmb
1771      . **2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm-2*
1772      . fmc2*hbcm)+4*p2p8*(-ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2-ffmcfmb
1773      . *fmc*hbcm2-fmb*fmc*hbcm+2*fmc2*hbcm)+8*(-2*hbcm*p1p2*p2p8+2*
1774      . hbcm*p1p2*p4p8+2*hbcm*p2p3*p2p8-2*hbcm*p2p3*p4p8+3*hbcm*p2p5*
1775      . p2p8-3*hbcm*p2p5*p4p8))+w13*(4*p1p8*(ffmcfmb**2*hbcm3-ffmcfmb*
1776      . fmb*hbcm2+ffmcfmb*fmc*hbcm2+fmb*fmc*hbcm-2*fmc2*hbcm)+8*(2*
1777      . hbcm*p1p2*p1p8-2*hbcm*p1p8*p2p3-3*hbcm*p1p8*p2p5))+(12*p5p8*(4
1778      . *fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+8*p1p8*(-4*fb3*fmc-4*fb4*
1779      . ffmcfmb*hbcm+hbcm)+4*p2p8*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+hbcm)
1780      . ))
1781       b(11)=ans
1782       b(12)=2*ccc*(8*fb3*ffmcfmb**2*hbcm2-4*fb3*fmb*fmc-12*fb3*fmc2+
1783      . 24*fb3*p1p2-24*fb3*p2p3-32*fb3*p2p5-4*fb4*ffmcfmb*fmb*hbcm-4*
1784      . fb4*ffmcfmb*fmc*hbcm+fmb*hbcm+fmc*hbcm)
1785       ans2=w13*(16*(p3p5*p1p8)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p2p3*p1p8)
1786      . *(-ffmcfmb*hbcm2-fmb*hbcm-hbcm2)+8*(p1p8*p1p3)*(-ffmcfmb*hbcm2
1787      . +fmc*hbcm)+4*p1p8*(ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*hbcm3+2*
1788      . ffmcfmb*hbcm4-fmb*fmc*hbcm2-2*fmc*hbcm3-fmc2*hbcm2)+8*(hbcm2*
1789      . p1p2*p1p8-2*hbcm2*p1p8*p2p5))+(8*p5p8*(4*fb3*ffmcfmb*hbcm2+4*
1790      . fb4*fmc*hbcm-hbcm2)+4*p2p8*(-12*fb3*ffmcfmb*hbcm2+16*fb3*hbcm2
1791      . +4*fb4*fmb*hbcm+hbcm2)+4*p1p8*(-4*fb3*ffmcfmb*hbcm2-4*fb4*fmc*
1792      . hbcm+hbcm2)+32*(-2*fb3*p1p3*p2p8+2*fb3*p1p8*p2p3-3*fb3*p2p3*
1793      . p5p8+3*fb3*p2p8*p3p5))
1794       ans1=w7*(16*(p3p5*p2p8)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(p2p8*p2p3)
1795      . *(ffmcfmb*hbcm2+fmb*hbcm+hbcm2)+8*(p2p8*p1p3)*(ffmcfmb*hbcm2-
1796      . fmc*hbcm)+4*p2p8*(-ffmcfmb*fmb*hbcm3-ffmcfmb*fmc*hbcm3-2*
1797      . ffmcfmb*hbcm4+fmb*fmc*hbcm2+2*fmc*hbcm3+fmc2*hbcm2)+8*(-hbcm2*
1798      . p1p2*p2p8+2*hbcm2*p2p5*p2p8))+w11*(16*(p4p8*p3p5)*(ffmcfmb*
1799      . hbcm2-fmc*hbcm)+16*(p3p5*p2p8)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(
1800      . p4p8*p2p3)*(-ffmcfmb*hbcm2-fmb*hbcm-hbcm2)+8*(p2p8*p2p3)*(
1801      . ffmcfmb*hbcm2+fmb*hbcm+hbcm2)+8*(p4p8*p1p3)*(-ffmcfmb*hbcm2+
1802      . fmc*hbcm)+8*(p2p8*p1p3)*(ffmcfmb*hbcm2-fmc*hbcm)+4*p4p8*(
1803      . ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*hbcm3+2*ffmcfmb*hbcm4-fmb*fmc*
1804      . hbcm2-2*fmc*hbcm3-fmc2*hbcm2)+4*p2p8*(-ffmcfmb*fmb*hbcm3-
1805      . ffmcfmb*fmc*hbcm3-2*ffmcfmb*hbcm4+fmb*fmc*hbcm2+2*fmc*hbcm3+
1806      . fmc2*hbcm2)+8*(-hbcm2*p1p2*p2p8+hbcm2*p1p2*p4p8+2*hbcm2*p2p5*
1807      . p2p8-2*hbcm2*p2p5*p4p8))+ans2
1808       ans=ccc*ans1
1809       b(13)=ans
1810       b(14)=ccc*(12*p3p5*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+8*p1p3*
1811      . (4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+4*p2p3*(4*fb3*fmb+4*fb4*
1812      . ffmcfmb*hbcm+8*fb4*hbcm-hbcm)+2*(-4*fb3*ffmcfmb*fmb*hbcm2+12*
1813      . fb3*ffmcfmb*fmc*hbcm2-16*fb3*fmc*hbcm2+4*fb4*ffmcfmb**2*hbcm3-
1814      . 16*fb4*ffmcfmb*hbcm3-4*fb4*fmb*fmc*hbcm+8*fb4*fmc2*hbcm-16*fb4
1815      . *hbcm*p1p2+24*fb4*hbcm*p2p5-2*ffmcfmb*hbcm3+fmb*hbcm2-fmc*
1816      . hbcm2+4*hbcm3))
1817       b(15)=ccc*(w7*(8*(p3p6*p2p8)*(fmb*hbcm+fmc*hbcm+hbcm2)+16*hbcm2
1818      . *p2p8*p4p6)+w11*(8*(p4p8*p3p6)*(-fmb*hbcm-fmc*hbcm-hbcm2)+8*(
1819      . p3p6*p2p8)*(fmb*hbcm+fmc*hbcm+hbcm2)+16*(hbcm2*p2p8*p4p6-hbcm2
1820      . *p4p6*p4p8))+w13*(8*(p3p6*p1p8)*(-fmb*hbcm-fmc*hbcm-hbcm2)-16*
1821      . hbcm2*p1p8*p4p6)+(16*p6p8*(-2*fb3*ffmcfmb*hbcm2-2*fb3*hbcm2+
1822      . fb4*fmb*hbcm+fb4*fmc*hbcm)+32*(fb3*p1p3*p6p8-fb3*p1p8*p3p6+2*
1823      . fb3*p2p3*p6p8-2*fb3*p2p8*p3p6-3*fb3*p3p4*p6p8+3*fb3*p3p6*p4p8)
1824      . ))
1825       b(16)=ccc*(w7*(8*(p3p6*p2p8)*(-ffmcfmb*hbcm-hbcm)-24*hbcm*p2p8*
1826      . p4p6)+w11*(8*(p4p8*p3p6)*(ffmcfmb*hbcm+hbcm)+8*(p3p6*p2p8)*(-
1827      . ffmcfmb*hbcm-hbcm)+24*(-hbcm*p2p8*p4p6+hbcm*p4p6*p4p8))+w13*(8
1828      . *(p3p6*p1p8)*(ffmcfmb*hbcm+hbcm)+24*hbcm*p1p8*p4p6)+4*p6p8*(4*
1829      . fb3*fmb-4*fb3*fmc-hbcm))
1830       b(17)=ccc*(w7*(4*p2p8*(2*ffmcfmb*hbcm3-fmb*hbcm2+fmc*hbcm2-4*
1831      . hbcm3)+8*(2*hbcm*p1p3*p2p8+hbcm*p2p3*p2p8-3*hbcm*p2p8*p3p5))+
1832      . w11*(4*p4p8*(-2*ffmcfmb*hbcm3+fmb*hbcm2-fmc*hbcm2+4*hbcm3)+4*
1833      . p2p8*(2*ffmcfmb*hbcm3-fmb*hbcm2+fmc*hbcm2-4*hbcm3)+8*(2*hbcm*
1834      . p1p3*p2p8-2*hbcm*p1p3*p4p8+hbcm*p2p3*p2p8-hbcm*p2p3*p4p8-3*
1835      . hbcm*p2p8*p3p5+3*hbcm*p3p5*p4p8))+w13*(4*p1p8*(-2*ffmcfmb*
1836      . hbcm3+fmb*hbcm2-fmc*hbcm2+4*hbcm3)+8*(-2*hbcm*p1p3*p1p8-hbcm*
1837      . p1p8*p2p3+3*hbcm*p1p8*p3p5))+16*(2*fb4*hbcm*p1p8+fb4*hbcm*p2p8
1838      . -3*fb4*hbcm*p5p8))
1839       b(18)=ccc*(w7*(8*(p3p7*p2p8)*(-fmb*hbcm-fmc*hbcm-hbcm2)-16*
1840      . hbcm2*p2p8*p5p7)+w11*(8*(p4p8*p3p7)*(fmb*hbcm+fmc*hbcm+hbcm2)+
1841      . 8*(p3p7*p2p8)*(-fmb*hbcm-fmc*hbcm-hbcm2)+16*(-hbcm2*p2p8*p5p7+
1842      . hbcm2*p4p8*p5p7))+w13*(8*(p3p7*p1p8)*(fmb*hbcm+fmc*hbcm+hbcm2)
1843      . +16*hbcm2*p1p8*p5p7)+(16*p7p8*(2*fb3*ffmcfmb*hbcm2-4*fb3*hbcm2
1844      . -fb4*fmb*hbcm-fb4*fmc*hbcm)+32*(2*fb3*p1p3*p7p8-2*fb3*p1p8*
1845      . p3p7+fb3*p2p3*p7p8-fb3*p2p8*p3p7-3*fb3*p3p5*p7p8+3*fb3*p3p7*
1846      . p5p8)))
1847       b(19)=ccc*(4*w7*p2p8*(-fmb*hbcm-fmc*hbcm)+w11*(4*p4p8*(fmb*hbcm
1848      . +fmc*hbcm)+4*p2p8*(-fmb*hbcm-fmc*hbcm))+4*w13*p1p8*(fmb*hbcm+
1849      . fmc*hbcm)+16*(-3*fb3*p1p8-fb3*p2p8+4*fb3*p5p8))
1850       b(20)=ccc*(w7*(8*(p3p7*p2p8)*(ffmcfmb*hbcm-2*hbcm)-24*hbcm*p2p8
1851      . *p5p7)+w11*(8*(p4p8*p3p7)*(-ffmcfmb*hbcm+2*hbcm)+8*(p3p7*p2p8)
1852      . *(ffmcfmb*hbcm-2*hbcm)+24*(-hbcm*p2p8*p5p7+hbcm*p4p8*p5p7))+
1853      . w13*(8*(p3p7*p1p8)*(-ffmcfmb*hbcm+2*hbcm)+24*hbcm*p1p8*p5p7)+4
1854      . *p7p8*(4*fb3*fmb-4*fb3*fmc+hbcm))
1855       b(21)=8*ccc*(fb3*fmb-fb3*fmc)
1856       b(22)=8*ccc*(4*fb3*ffmcfmb*hbcm2-6*fb3*hbcm2+6*fb3*p1p3+2*fb3*
1857      . p2p3-8*fb3*p3p5-fb4*fmb*hbcm-fb4*fmc*hbcm)
1858       b(23)=ccc*(16*p3p7*(-fb3*fmb+fb3*fmc+fb4*ffmcfmb*hbcm-2*fb4*
1859      . hbcm)-48*fb4*hbcm*p5p7)
1860       b(24)=ccc*(16*p3p6*(-fb3*fmb+fb3*fmc-fb4*ffmcfmb*hbcm-fb4*hbcm)
1861      . -48*fb4*hbcm*p4p6)
1862       b(25)=ccc*(12*p5p7*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+4*p3p7*
1863      . (-4*fb3*ffmcfmb*fmb+8*fb3*ffmcfmb*fmc-8*fb3*fmc+4*fb4*ffmcfmb
1864      . **2*hbcm-8*fb4*ffmcfmb*hbcm-ffmcfmb*hbcm+2*hbcm))
1865       b(26)=ccc*(12*p4p6*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+4*p3p6*
1866      . (-4*fb3*ffmcfmb*fmc-4*fb3*fmc-4*fb4*ffmcfmb**2*hbcm-4*fb4*
1867      . ffmcfmb*hbcm+ffmcfmb*hbcm+hbcm))
1868       b(27)=ccc*(64*(p3p7*p3p6)*(-fb3*ffmcfmb-fb3)+16*p6p7*(2*fb3*
1869      . ffmcfmb*hbcm2+2*fb3*hbcm2-fb4*fmb*hbcm-fb4*fmc*hbcm)+32*(-fb3*
1870      . p1p3*p6p7-2*fb3*p2p3*p6p7+3*fb3*p3p4*p6p7-3*fb3*p3p6*p4p7-3*
1871      . fb3*p3p7*p4p6))
1872       b(28)=ccc*(8*w7*(p6p7*p2p8)*(fmb*hbcm+fmc*hbcm)+w11*(8*(p6p7*
1873      . p4p8)*(-fmb*hbcm-fmc*hbcm)+8*(p6p7*p2p8)*(fmb*hbcm+fmc*hbcm))+
1874      . 8*w13*(p6p7*p1p8)*(-fmb*hbcm-fmc*hbcm)+(32*(p6p8*p3p7)*(-fb3*
1875      . ffmcfmb-fb3)+32*(p7p8*p3p6)*(-fb3*ffmcfmb-fb3)+32*(-fb3*p1p8*
1876      . p6p7-2*fb3*p2p8*p6p7-3*fb3*p4p6*p7p8-3*fb3*p4p7*p6p8+3*fb3*
1877      . p4p8*p6p7)))
1878       b(29)=ccc*(16*p3p6*(-2*fb3*ffmcfmb-fb3)-64*fb3*p4p6)
1879       b(30)=ccc*(16*p3p7*(2*fb3*ffmcfmb-3*fb3)-64*fb3*p5p7)
1880       ans=ccc*(w7*(8*(p6p7*p2p8)*(-fmb*hbcm2+fmc*hbcm2+2*hbcm3)+16*(-
1881      . hbcm*p1p3*p2p8*p6p7-hbcm*p2p3*p2p8*p6p7+2*hbcm*p2p8*p3p4*p6p7-
1882      . 2*hbcm*p2p8*p3p6*p3p7-2*hbcm*p2p8*p3p6*p4p7-2*hbcm*p2p8*p3p7*
1883      . p4p6))+w11*(8*(p6p7*p4p8)*(fmb*hbcm2-fmc*hbcm2-2*hbcm3)+8*(
1884      . p6p7*p2p8)*(-fmb*hbcm2+fmc*hbcm2+2*hbcm3)+16*(-hbcm*p1p3*p2p8*
1885      . p6p7+hbcm*p1p3*p4p8*p6p7-hbcm*p2p3*p2p8*p6p7+hbcm*p2p3*p4p8*
1886      . p6p7+2*hbcm*p2p8*p3p4*p6p7-2*hbcm*p2p8*p3p6*p3p7-2*hbcm*p2p8*
1887      . p3p6*p4p7-2*hbcm*p2p8*p3p7*p4p6-2*hbcm*p3p4*p4p8*p6p7+2*hbcm*
1888      . p3p6*p3p7*p4p8+2*hbcm*p3p6*p4p7*p4p8+2*hbcm*p3p7*p4p6*p4p8))+
1889      . w13*(8*(p6p7*p1p8)*(fmb*hbcm2-fmc*hbcm2-2*hbcm3)+16*(hbcm*p1p3
1890      . *p1p8*p6p7+hbcm*p1p8*p2p3*p6p7-2*hbcm*p1p8*p3p4*p6p7+2*hbcm*
1891      . p1p8*p3p6*p3p7+2*hbcm*p1p8*p3p6*p4p7+2*hbcm*p1p8*p3p7*p4p6))+(
1892      . 32*(p6p8*p3p7)*(fb3*fmb-fb3*fmc-fb4*hbcm)+32*(p7p8*p3p6)*(-fb3
1893      . *fmb+fb3*fmc-fb4*hbcm)+32*(-fb4*hbcm*p1p8*p6p7-fb4*hbcm*p2p8*
1894      . p6p7-2*fb4*hbcm*p4p6*p7p8-2*fb4*hbcm*p4p7*p6p8+2*fb4*hbcm*p4p8
1895      . *p6p7)))
1896       b(31)=ans
1897       b(32)=16*ccc*p6p7*(fb3*fmb-fb3*fmc)
1898       do 200 n=1,32
1899          c(n,1)=c(n,1)-0.09090909090909091d0*b(n)
1900          c(n,2)=c(n,2)-0.1680909685530997d0*b(n)
1901          c(n,3)=c(n,3)-0.2077659977796572d0*b(n)
1902 200   continue
1903       return
1904         end
1905
1906       subroutine amp1s1_1p1(cc)
1907       implicit double precision(a-h,o-z)
1908       implicit integer (i-n)
1909       dimension b(10)
1910 #include "inclcon.h"
1911 #include "inclppp.h"
1912 #include "inclamp.h"
1913       do 100 n=1,10
1914          b(n)=0.0d0
1915 100   continue
1916       ccc=cc/((ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*p3p5+fmb2+
1917      . hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2))
1918       b(1)=-8*ccc*fb3*p6p7
1919       b(2)=4*ccc*(-hbcm*p4p8*p6p7*w1+hbcm*p5p8*p6p7*w2)
1920       b(3)=-8*ccc*fb3*p7p8
1921       b(4)=8*ccc*fb3*p3p7
1922       b(5)=4*ccc*(2*fb4*hbcm*p7p8-hbcm*p3p7*p4p8*w1+hbcm*p3p7*p5p8*w2
1923      . )
1924       b(6)=-8*ccc*fb3*p6p8
1925       b(7)=8*ccc*fb3*p3p6
1926       b(8)=4*ccc*(2*fb4*hbcm*p6p8-hbcm*p3p6*p4p8*w1+hbcm*p3p6*p5p8*w2
1927      . )
1928       b(9)=8*ccc*fb4*hbcm*p6p7
1929       b(10)=12*ccc*(hbcm2*p4p8*p6p7*w1-hbcm2*p5p8*p6p7*w2)
1930       do 200 n=1,10
1931          c(n,1)=c(n,1)+1.0d0*b(n)
1932 200   continue
1933       return
1934         end
1935
1936       subroutine amp27_1p1(cc)
1937       implicit double precision(a-h,o-z)
1938       implicit integer (i-n)
1939       dimension b(32)
1940 #include "inclcon.h"
1941 #include "inclppp.h"
1942 #include "inclamp.h"
1943       do 100 n=1,32
1944          b(n)=0.0d0
1945 100   continue
1946       ccc=cc/((-2*p2p5)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2)*(
1947      . ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2+2*ffmcfmb*p2p3-2*ffmcfmb*p3p5
1948      . +fmb2+hbcm2-2*p2p3-2*p2p5+2*p3p5))
1949       b(1)=16*ccc*(-fb3*p3p6*p5p7-3*fb3*p4p6*p5p7+fb3*p5p6*p5p7)
1950       b(2)=ccc*(w1*(16*(p5p7*p4p8*p3p6)*(-ffmcfmb*hbcm+hbcm)+16*hbcm*
1951      . p4p6*p4p8*p5p7)+w16*(16*(p5p8*p5p7*p3p6)*(ffmcfmb*hbcm-hbcm)+
1952      . 16*(p5p7*p3p6*p2p8)*(-ffmcfmb*hbcm+hbcm)+16*(hbcm*p2p8*p4p6*
1953      . p5p7-hbcm*p4p6*p5p7*p5p8))+4*(p6p8*p5p7)*(8*fb3*fmb-4*fb3*fmc+
1954      . 4*fb4*ffmcfmb*hbcm-8*fb4*hbcm+hbcm))
1955       b(3)=ccc*(12*w1*(p5p7*p4p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+w16*(12*(
1956      . p5p8*p5p7)*(-fmb*hbcm-fmc*hbcm+hbcm2)+12*(p5p7*p2p8)*(fmb*hbcm
1957      . +fmc*hbcm-hbcm2))+16*(-fb3*p1p8*p5p7-3*fb3*p2p8*p5p7-fb3*p4p8*
1958      . p5p7+3*fb3*p5p7*p5p8))
1959       b(4)=ccc*(8*p5p7*(2*fb3*ffmcfmb*hbcm2-3*fb3*hbcm2-3*fb4*fmb*
1960      . hbcm-3*fb4*fmc*hbcm)+16*(fb3*p1p3*p5p7+3*fb3*p2p3*p5p7+fb3*
1961      . p3p4*p5p7-3*fb3*p3p5*p5p7))
1962       b(5)=ccc*(w1*(4*(p5p7*p4p8)*(-2*ffmcfmb*hbcm3+3*fmb*hbcm2-3*fmc
1963      . *hbcm2+3*hbcm3)+8*(-hbcm*p1p3*p4p8*p5p7-3*hbcm*p2p3*p4p8*p5p7-
1964      . hbcm*p3p4*p4p8*p5p7+3*hbcm*p3p5*p4p8*p5p7))+w16*(4*(p5p8*p5p7)
1965      . *(2*ffmcfmb*hbcm3-3*fmb*hbcm2+3*fmc*hbcm2-3*hbcm3)+4*(p5p7*
1966      . p2p8)*(-2*ffmcfmb*hbcm3+3*fmb*hbcm2-3*fmc*hbcm2+3*hbcm3)+8*(-
1967      . hbcm*p1p3*p2p8*p5p7+hbcm*p1p3*p5p7*p5p8-3*hbcm*p2p3*p2p8*p5p7+
1968      . 3*hbcm*p2p3*p5p7*p5p8-hbcm*p2p8*p3p4*p5p7+3*hbcm*p2p8*p3p5*
1969      . p5p7+hbcm*p3p4*p5p7*p5p8-3*hbcm*p3p5*p5p7*p5p8))+16*(fb4*hbcm*
1970      . p1p8*p5p7+3*fb4*hbcm*p2p8*p5p7+fb4*hbcm*p4p8*p5p7-3*fb4*hbcm*
1971      . p5p7*p5p8))
1972       b(6)=16*ccc*(-fb3*p1p2*p6p8+fb3*p2p3*p6p8+fb3*p2p4*p6p8-fb3*
1973      . p2p5*p6p8)
1974       b(7)=16*ccc*(fb3*p1p2*p3p6-fb3*p2p3*p3p6-fb3*p2p4*p3p6+fb3*p2p5
1975      . *p3p6)
1976       b(8)=ccc*(8*w1*(-hbcm*p1p2*p3p6*p4p8+hbcm*p2p3*p3p6*p4p8+hbcm*
1977      . p2p4*p3p6*p4p8-hbcm*p2p5*p3p6*p4p8)+8*w16*(-hbcm*p1p2*p2p8*
1978      . p3p6+hbcm*p1p2*p3p6*p5p8+hbcm*p2p3*p2p8*p3p6-hbcm*p2p3*p3p6*
1979      . p5p8+hbcm*p2p4*p2p8*p3p6-hbcm*p2p4*p3p6*p5p8-hbcm*p2p5*p2p8*
1980      . p3p6+hbcm*p2p5*p3p6*p5p8)+16*(fb4*hbcm*p1p2*p6p8-fb4*hbcm*p2p3
1981      . *p6p8-fb4*hbcm*p2p4*p6p8+fb4*hbcm*p2p5*p6p8))
1982       b(9)=ccc*(4*(p5p7*p3p6)*(-8*fb3*fmb+4*fb3*fmc+4*fb4*ffmcfmb*
1983      . hbcm+hbcm)-32*fb4*hbcm*p4p6*p5p7)
1984       b(10)=ccc*(w1*(8*(p5p7*p4p8*p3p6)*(3*ffmcfmb*hbcm2-2*fmb*hbcm-
1985      . fmc*hbcm-hbcm2)+8*(-hbcm2*p4p6*p4p8*p5p7-hbcm2*p4p8*p5p6*p5p7)
1986      . )+w16*(8*(p5p8*p5p7*p3p6)*(-3*ffmcfmb*hbcm2+2*fmb*hbcm+fmc*
1987      . hbcm+hbcm2)+8*(p5p7*p3p6*p2p8)*(3*ffmcfmb*hbcm2-2*fmb*hbcm-fmc
1988      . *hbcm-hbcm2)+8*(-hbcm2*p2p8*p4p6*p5p7-hbcm2*p2p8*p5p6*p5p7+
1989      . hbcm2*p4p6*p5p7*p5p8+hbcm2*p5p6*p5p7*p5p8))+(4*(p6p8*p5p7)*(-4
1990      . *fb3*ffmcfmb*hbcm2+8*fb4*fmb*hbcm+4*fb4*fmc*hbcm-3*hbcm2)+32*(
1991      . -fb3*p1p2*p3p6*p7p8+fb3*p1p2*p3p7*p6p8+fb3*p1p3*p5p7*p6p8-fb3*
1992      . p1p8*p3p6*p5p7+fb3*p2p3*p3p6*p7p8-fb3*p2p3*p3p7*p6p8-fb3*p2p3*
1993      . p5p7*p6p8+fb3*p2p4*p3p6*p7p8-fb3*p2p4*p3p7*p6p8-fb3*p2p5*p3p6*
1994      . p7p8+fb3*p2p5*p3p7*p6p8-fb3*p2p8*p3p6*p3p7-fb3*p2p8*p3p6*p4p7-
1995      . fb3*p3p4*p5p7*p6p8+fb3*p3p5*p5p7*p6p8+fb3*p3p6*p4p8*p5p7-fb3*
1996      . p3p6*p5p7*p5p8)))
1997       b(11)=ccc*(12*w16*(hbcm*p2p5*p2p8-hbcm*p2p5*p5p8)+12*hbcm*p2p5*
1998      . p4p8*w1)
1999       b(12)=24*ccc*fb3*p2p5
2000       b(13)=ccc*(12*w16*(hbcm2*p2p5*p2p8-hbcm2*p2p5*p5p8)+12*hbcm2*
2001      . p2p5*p4p8*w1)
2002       b(14)=-24*ccc*fb4*hbcm*p2p5
2003       b(15)=ccc*(w1*(4*(p4p8*p3p6)*(-3*ffmcfmb*hbcm2+2*fmb*hbcm+fmc*
2004      . hbcm+hbcm2)+4*(hbcm2*p4p6*p4p8+hbcm2*p4p8*p5p6))+w16*(4*(p5p8*
2005      . p3p6)*(3*ffmcfmb*hbcm2-2*fmb*hbcm-fmc*hbcm-hbcm2)+4*(p3p6*p2p8
2006      . )*(-3*ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm+hbcm2)+4*(hbcm2*p2p8*
2007      . p4p6+hbcm2*p2p8*p5p6-hbcm2*p4p6*p5p8-hbcm2*p5p6*p5p8))+(2*p6p8
2008      . *(4*fb3*ffmcfmb*hbcm2-8*fb4*fmb*hbcm-4*fb4*fmc*hbcm+3*hbcm2)+
2009      . 16*(-fb3*p1p3*p6p8+fb3*p1p8*p3p6+fb3*p2p3*p6p8-fb3*p2p8*p3p6+
2010      . fb3*p3p4*p6p8-fb3*p3p5*p6p8-fb3*p3p6*p4p8+fb3*p3p6*p5p8)))
2011       b(16)=ccc*(w1*(8*(p4p8*p3p6)*(ffmcfmb*hbcm-hbcm)-8*hbcm*p4p6*
2012      . p4p8)+w16*(8*(p5p8*p3p6)*(-ffmcfmb*hbcm+hbcm)+8*(p3p6*p2p8)*(
2013      . ffmcfmb*hbcm-hbcm)+8*(-hbcm*p2p8*p4p6+hbcm*p4p6*p5p8))+2*p6p8*
2014      . (-8*fb3*fmb+4*fb3*fmc-4*fb4*ffmcfmb*hbcm+8*fb4*hbcm-hbcm))
2015       b(17)=ccc*(w1*(2*p4p8*(2*ffmcfmb*hbcm3-3*fmb*hbcm2+3*fmc*hbcm2-
2016      . 3*hbcm3)+4*(hbcm*p1p3*p4p8+3*hbcm*p2p3*p4p8+hbcm*p3p4*p4p8-3*
2017      . hbcm*p3p5*p4p8))+w16*(2*p5p8*(-2*ffmcfmb*hbcm3+3*fmb*hbcm2-3*
2018      . fmc*hbcm2+3*hbcm3)+2*p2p8*(2*ffmcfmb*hbcm3-3*fmb*hbcm2+3*fmc*
2019      . hbcm2-3*hbcm3)+4*(hbcm*p1p3*p2p8-hbcm*p1p3*p5p8+3*hbcm*p2p3*
2020      . p2p8-3*hbcm*p2p3*p5p8+hbcm*p2p8*p3p4-3*hbcm*p2p8*p3p5-hbcm*
2021      . p3p4*p5p8+3*hbcm*p3p5*p5p8))+8*(-fb4*hbcm*p1p8-3*fb4*hbcm*p2p8
2022      . -fb4*hbcm*p4p8+3*fb4*hbcm*p5p8))
2023       b(19)=ccc*(6*w1*p4p8*(-fmb*hbcm-fmc*hbcm+hbcm2)+w16*(6*p5p8*(
2024      . fmb*hbcm+fmc*hbcm-hbcm2)+6*p2p8*(-fmb*hbcm-fmc*hbcm+hbcm2))+8*
2025      . (fb3*p1p8+3*fb3*p2p8+fb3*p4p8-3*fb3*p5p8))
2026       b(21)=12*ccc*(-fb3*fmb+fb3*fmc+fb4*hbcm)
2027       b(22)=4*ccc*(-2*fb3*ffmcfmb*hbcm2+3*fb3*hbcm2-2*fb3*p1p3-6*fb3*
2028      . p2p3-2*fb3*p3p4+6*fb3*p3p5+3*fb4*fmb*hbcm+3*fb4*fmc*hbcm)
2029       b(24)=ccc*(2*p3p6*(8*fb3*fmb-4*fb3*fmc-4*fb4*ffmcfmb*hbcm-hbcm)
2030      . +16*fb4*hbcm*p4p6)
2031       b(25)=24*ccc*p5p7*(fb3*fmb-fb3*fmc-fb4*hbcm)
2032       b(27)=16*ccc*(fb3*p3p6*p3p7+fb3*p3p6*p4p7+fb3*p3p6*p5p7)
2033       b(28)=16*ccc*(fb3*p3p7*p6p8+fb3*p4p7*p6p8+fb3*p5p7*p6p8)
2034       b(29)=8*ccc*(fb3*p3p6+3*fb3*p4p6-fb3*p5p6)
2035       b(31)=ccc*(8*w1*(-hbcm*p3p6*p3p7*p4p8-hbcm*p3p6*p4p7*p4p8-hbcm*
2036      . p3p6*p4p8*p5p7)+8*w16*(-hbcm*p2p8*p3p6*p3p7-hbcm*p2p8*p3p6*
2037      . p4p7-hbcm*p2p8*p3p6*p5p7+hbcm*p3p6*p3p7*p5p8+hbcm*p3p6*p4p7*
2038      . p5p8+hbcm*p3p6*p5p7*p5p8)+16*(fb4*hbcm*p3p7*p6p8+fb4*hbcm*p4p7
2039      . *p6p8+fb4*hbcm*p5p7*p6p8))
2040       do 200 n=1,32
2041          c(n,2)=c(n,2)-0.8320502943378437d0*b(n)
2042          c(n,3)=c(n,3)+0.1869893980016914d0*b(n)
2043 200   continue
2044       return
2045         end
2046
2047       subroutine amp26_1p1(cc)
2048       implicit double precision(a-h,o-z)
2049       implicit integer (i-n)
2050       dimension b(32)
2051 #include "inclcon.h"
2052 #include "inclppp.h"
2053 #include "inclamp.h"
2054       do 100 n=1,32
2055          b(n)=0.0d0
2056 100   continue
2057       ccc=cc/((-2*p2p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*
2058      . p3p5+fmb2+hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p2p3+2*
2059      . ffmcfmb*p3p4+fmc2-2*p2p4))
2060       b(1)=16*ccc*(-3*fb3*p2p4*p6p7-fb3*p3p6*p4p7-3*fb3*p4p6*p4p7+fb3
2061      . *p4p7*p5p6)
2062       b(2)=ccc*(w2*(16*(p5p8*p4p7*p3p6)*(ffmcfmb*hbcm-hbcm)+8*(-3*
2063      . hbcm*p2p4*p5p8*p6p7-2*hbcm*p4p6*p4p7*p5p8))+w11*(16*(p4p8*p4p7
2064      . *p3p6)*(-ffmcfmb*hbcm+hbcm)+16*(p4p7*p3p6*p2p8)*(ffmcfmb*hbcm-
2065      . hbcm)+8*(-3*hbcm*p2p4*p2p8*p6p7+3*hbcm*p2p4*p4p8*p6p7-2*hbcm*
2066      . p2p8*p4p6*p4p7+2*hbcm*p4p6*p4p7*p4p8))+4*(p6p8*p4p7)*(8*fb3*
2067      . fmb-4*fb3*fmc+4*fb4*ffmcfmb*hbcm-8*fb4*hbcm+hbcm))
2068       b(3)=ccc*(12*w2*(p5p8*p4p7)*(-fmb*hbcm-fmc*hbcm+hbcm2)+w11*(12*
2069      . (p4p8*p4p7)*(fmb*hbcm+fmc*hbcm-hbcm2)+12*(p4p7*p2p8)*(-fmb*
2070      . hbcm-fmc*hbcm+hbcm2))+16*(-2*fb3*p1p2*p7p8-fb3*p1p8*p4p7+2*fb3
2071      . *p2p3*p7p8-fb3*p2p4*p7p8+2*fb3*p2p5*p7p8+fb3*p2p8*p4p7-fb3*
2072      . p4p7*p4p8+3*fb3*p4p7*p5p8))
2073       b(4)=ccc*(8*p4p7*(2*fb3*ffmcfmb*hbcm2-3*fb3*hbcm2-3*fb4*fmb*
2074      . hbcm-3*fb4*fmc*hbcm)+16*(2*fb3*p1p2*p3p7+fb3*p1p3*p4p7+fb3*
2075      . p2p3*p4p7+2*fb3*p2p3*p5p7+fb3*p2p4*p3p7-2*fb3*p2p5*p3p7+fb3*
2076      . p3p4*p4p7-3*fb3*p3p5*p4p7))
2077       ans=ccc*(w2*(4*(p5p8*p4p7)*(2*ffmcfmb*hbcm3-3*fmb*hbcm2+3*fmc*
2078      . hbcm2-3*hbcm3)+8*(2*hbcm*p1p2*p3p7*p5p8+hbcm*p1p3*p4p7*p5p8+
2079      . hbcm*p2p3*p4p7*p5p8+2*hbcm*p2p3*p5p7*p5p8+hbcm*p2p4*p3p7*p5p8-
2080      . 2*hbcm*p2p5*p3p7*p5p8+hbcm*p3p4*p4p7*p5p8-3*hbcm*p3p5*p4p7*
2081      . p5p8))+w11*(4*(p4p8*p4p7)*(-2*ffmcfmb*hbcm3+3*fmb*hbcm2-3*fmc*
2082      . hbcm2+3*hbcm3)+4*(p4p7*p2p8)*(2*ffmcfmb*hbcm3-3*fmb*hbcm2+3*
2083      . fmc*hbcm2-3*hbcm3)+8*(2*hbcm*p1p2*p2p8*p3p7-2*hbcm*p1p2*p3p7*
2084      . p4p8+hbcm*p1p3*p2p8*p4p7-hbcm*p1p3*p4p7*p4p8+hbcm*p2p3*p2p8*
2085      . p4p7+2*hbcm*p2p3*p2p8*p5p7-hbcm*p2p3*p4p7*p4p8-2*hbcm*p2p3*
2086      . p4p8*p5p7+hbcm*p2p4*p2p8*p3p7-hbcm*p2p4*p3p7*p4p8-2*hbcm*p2p5*
2087      . p2p8*p3p7+2*hbcm*p2p5*p3p7*p4p8+hbcm*p2p8*p3p4*p4p7-3*hbcm*
2088      . p2p8*p3p5*p4p7-hbcm*p3p4*p4p7*p4p8+3*hbcm*p3p5*p4p7*p4p8))+(16
2089      . *(p3p7*p2p8)*(3*fb3*fmb-3*fb3*fmc-fb4*hbcm)+16*(p7p8*p2p3)*(-3
2090      . *fb3*fmb+3*fb3*fmc+fb4*hbcm)+16*(2*fb4*hbcm*p1p2*p7p8+fb4*hbcm
2091      . *p1p8*p4p7+fb4*hbcm*p2p4*p7p8-2*fb4*hbcm*p2p5*p7p8+fb4*hbcm*
2092      . p2p8*p4p7+2*fb4*hbcm*p2p8*p5p7+fb4*hbcm*p4p7*p4p8-3*fb4*hbcm*
2093      . p4p7*p5p8)))
2094       b(5)=ans
2095       b(6)=16*ccc*(-fb3*p2p4*p6p8-fb3*p2p8*p3p6-3*fb3*p2p8*p4p6+fb3*
2096      . p2p8*p5p6)
2097       b(7)=16*ccc*(fb3*p2p3*p3p6+3*fb3*p2p3*p4p6-fb3*p2p3*p5p6+fb3*
2098      . p2p4*p3p6)
2099       b(8)=ccc*(w2*(16*(p5p8*p3p6*p2p3)*(-ffmcfmb*hbcm+hbcm)+8*(2*
2100      . hbcm*p2p3*p4p6*p5p8+hbcm*p2p4*p3p6*p5p8))+w11*(16*(p4p8*p3p6*
2101      . p2p3)*(ffmcfmb*hbcm-hbcm)+16*(p3p6*p2p8*p2p3)*(-ffmcfmb*hbcm+
2102      . hbcm)+8*(2*hbcm*p2p3*p2p8*p4p6-2*hbcm*p2p3*p4p6*p4p8+hbcm*p2p4
2103      . *p2p8*p3p6-hbcm*p2p4*p3p6*p4p8))+(4*(p3p6*p2p8)*(8*fb3*fmb-4*
2104      . fb3*fmc-4*fb4*ffmcfmb*hbcm-hbcm)+4*(p6p8*p2p3)*(-8*fb3*fmb+4*
2105      . fb3*fmc-4*fb4*ffmcfmb*hbcm+8*fb4*hbcm-hbcm)+16*(fb4*hbcm*p2p4*
2106      . p6p8+2*fb4*hbcm*p2p8*p4p6)))
2107       b(9)=ccc*(4*(p4p7*p3p6)*(-8*fb3*fmb+4*fb3*fmc+4*fb4*ffmcfmb*
2108      . hbcm+hbcm)+16*(-3*fb4*hbcm*p2p4*p6p7-2*fb4*hbcm*p4p6*p4p7))
2109       ans=ccc*(w2*(24*(p6p7*p5p8*p2p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(
2110      . p5p8*p4p7*p3p6)*(-3*ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm+hbcm2)+8
2111      . *(3*hbcm2*p2p4*p5p8*p6p7+hbcm2*p4p6*p4p7*p5p8+hbcm2*p4p7*p5p6*
2112      . p5p8))+w11*(24*(p6p7*p4p8*p2p3)*(fmb*hbcm+fmc*hbcm-hbcm2)+24*(
2113      . p6p7*p2p8*p2p3)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p4p8*p4p7*p3p6)*
2114      . (3*ffmcfmb*hbcm2-2*fmb*hbcm-fmc*hbcm-hbcm2)+8*(p4p7*p3p6*p2p8)
2115      . *(-3*ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm+hbcm2)+8*(3*hbcm2*p2p4*
2116      . p2p8*p6p7-3*hbcm2*p2p4*p4p8*p6p7+hbcm2*p2p8*p4p6*p4p7+hbcm2*
2117      . p2p8*p4p7*p5p6-hbcm2*p4p6*p4p7*p4p8-hbcm2*p4p7*p4p8*p5p6))+(4*
2118      . (p6p8*p4p7)*(-4*fb3*ffmcfmb*hbcm2+8*fb4*fmb*hbcm+4*fb4*fmc*
2119      . hbcm-3*hbcm2)+32*(fb3*p1p3*p4p7*p6p8+fb3*p1p8*p2p3*p6p7-fb3*
2120      . p1p8*p3p6*p4p7+3*fb3*p2p3*p2p8*p6p7+fb3*p2p3*p4p7*p6p8-3*fb3*
2121      . p2p3*p4p8*p6p7+fb3*p2p3*p5p8*p6p7+fb3*p2p8*p3p6*p3p7-fb3*p2p8*
2122      . p3p6*p4p7+3*fb3*p2p8*p3p7*p4p6-fb3*p2p8*p3p7*p5p6-fb3*p3p4*
2123      . p4p7*p6p8+fb3*p3p5*p4p7*p6p8+fb3*p3p6*p4p7*p4p8-fb3*p3p6*p4p7*
2124      . p5p8)))
2125       b(10)=ans
2126       b(11)=ccc*(4*w2*(-2*hbcm*p1p2*p5p8+2*hbcm*p2p3*p5p8-hbcm*p2p4*
2127      . p5p8+2*hbcm*p2p5*p5p8)+4*w11*(-2*hbcm*p1p2*p2p8+2*hbcm*p1p2*
2128      . p4p8+2*hbcm*p2p3*p2p8-2*hbcm*p2p3*p4p8-hbcm*p2p4*p2p8+hbcm*
2129      . p2p4*p4p8+2*hbcm*p2p5*p2p8-2*hbcm*p2p5*p4p8)+24*p2p8*(-fb3*fmb
2130      . +fb3*fmc+fb4*hbcm))
2131       b(12)=8*ccc*(2*fb3*p1p2-2*fb3*p2p3+fb3*p2p4-2*fb3*p2p5)
2132       b(13)=ccc*(w2*(4*(p5p8*p2p3)*(3*fmb*hbcm+3*fmc*hbcm-hbcm2)+4*(-
2133      . 2*hbcm2*p1p2*p5p8-hbcm2*p2p4*p5p8+2*hbcm2*p2p5*p5p8))+w11*(4*(
2134      . p4p8*p2p3)*(-3*fmb*hbcm-3*fmc*hbcm+hbcm2)+4*(p2p8*p2p3)*(3*fmb
2135      . *hbcm+3*fmc*hbcm-hbcm2)+4*(-2*hbcm2*p1p2*p2p8+2*hbcm2*p1p2*
2136      . p4p8-hbcm2*p2p4*p2p8+hbcm2*p2p4*p4p8+2*hbcm2*p2p5*p2p8-2*hbcm2
2137      . *p2p5*p4p8))+(8*p2p8*(-2*fb3*ffmcfmb*hbcm2+3*fb3*hbcm2+3*fb4*
2138      . fmb*hbcm+3*fb4*fmc*hbcm)+16*(-fb3*p1p3*p2p8+fb3*p1p8*p2p3+fb3*
2139      . p2p3*p4p8-3*fb3*p2p3*p5p8-fb3*p2p8*p3p4+3*fb3*p2p8*p3p5)))
2140       b(14)=ccc*(8*p2p3*(3*fb3*fmb-3*fb3*fmc-fb4*hbcm)+8*(-2*fb4*hbcm
2141      . *p1p2-fb4*hbcm*p2p4+2*fb4*hbcm*p2p5))
2142       b(15)=ccc*(w2*(4*(p5p8*p3p6)*(-3*ffmcfmb*hbcm2+2*fmb*hbcm+fmc*
2143      . hbcm+hbcm2)+4*(hbcm2*p4p6*p5p8+hbcm2*p5p6*p5p8))+w11*(4*(p4p8*
2144      . p3p6)*(3*ffmcfmb*hbcm2-2*fmb*hbcm-fmc*hbcm-hbcm2)+4*(p3p6*p2p8
2145      . )*(-3*ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm+hbcm2)+4*(hbcm2*p2p8*
2146      . p4p6+hbcm2*p2p8*p5p6-hbcm2*p4p6*p4p8-hbcm2*p4p8*p5p6))+(2*p6p8
2147      . *(-4*fb3*ffmcfmb*hbcm2+8*fb4*fmb*hbcm+4*fb4*fmc*hbcm-3*hbcm2)+
2148      . 16*(fb3*p1p3*p6p8-fb3*p1p8*p3p6+fb3*p2p3*p6p8-fb3*p2p8*p3p6-
2149      . fb3*p3p4*p6p8+fb3*p3p5*p6p8+fb3*p3p6*p4p8-fb3*p3p6*p5p8)))
2150       b(16)=ccc*(w2*(8*(p5p8*p3p6)*(ffmcfmb*hbcm-hbcm)-8*hbcm*p4p6*
2151      . p5p8)+w11*(8*(p4p8*p3p6)*(-ffmcfmb*hbcm+hbcm)+8*(p3p6*p2p8)*(
2152      . ffmcfmb*hbcm-hbcm)+8*(-hbcm*p2p8*p4p6+hbcm*p4p6*p4p8))+2*p6p8*
2153      . (8*fb3*fmb-4*fb3*fmc+4*fb4*ffmcfmb*hbcm-8*fb4*hbcm+hbcm))
2154       b(17)=ccc*(w2*(2*p5p8*(2*ffmcfmb*hbcm3-3*fmb*hbcm2+3*fmc*hbcm2-
2155      . 3*hbcm3)+4*(hbcm*p1p3*p5p8-hbcm*p2p3*p5p8+hbcm*p3p4*p5p8-3*
2156      . hbcm*p3p5*p5p8))+w11*(2*p4p8*(-2*ffmcfmb*hbcm3+3*fmb*hbcm2-3*
2157      . fmc*hbcm2+3*hbcm3)+2*p2p8*(2*ffmcfmb*hbcm3-3*fmb*hbcm2+3*fmc*
2158      . hbcm2-3*hbcm3)+4*(hbcm*p1p3*p2p8-hbcm*p1p3*p4p8-hbcm*p2p3*p2p8
2159      . +hbcm*p2p3*p4p8+hbcm*p2p8*p3p4-3*hbcm*p2p8*p3p5-hbcm*p3p4*p4p8
2160      . +3*hbcm*p3p5*p4p8))+8*(fb4*hbcm*p1p8-fb4*hbcm*p2p8+fb4*hbcm*
2161      . p4p8-3*fb4*hbcm*p5p8))
2162       b(18)=ccc*(w2*(4*(p5p8*p3p7)*(-3*fmb*hbcm-3*fmc*hbcm+hbcm2)+8*(
2163      . -hbcm2*p4p7*p5p8-hbcm2*p5p7*p5p8))+w11*(4*(p4p8*p3p7)*(3*fmb*
2164      . hbcm+3*fmc*hbcm-hbcm2)+4*(p3p7*p2p8)*(-3*fmb*hbcm-3*fmc*hbcm+
2165      . hbcm2)+8*(-hbcm2*p2p8*p4p7-hbcm2*p2p8*p5p7+hbcm2*p4p7*p4p8+
2166      . hbcm2*p4p8*p5p7))+(8*p7p8*(2*fb3*ffmcfmb*hbcm2-3*fb3*hbcm2-3*
2167      . fb4*fmb*hbcm-3*fb4*fmc*hbcm)+16*(fb3*p1p3*p7p8-fb3*p1p8*p3p7-
2168      . fb3*p2p3*p7p8+fb3*p2p8*p3p7+fb3*p3p4*p7p8-3*fb3*p3p5*p7p8-fb3*
2169      . p3p7*p4p8+3*fb3*p3p7*p5p8)))
2170       b(19)=ccc*(6*w2*p5p8*(-fmb*hbcm-fmc*hbcm+hbcm2)+w11*(6*p4p8*(
2171      . fmb*hbcm+fmc*hbcm-hbcm2)+6*p2p8*(-fmb*hbcm-fmc*hbcm+hbcm2))+8*
2172      . (-fb3*p1p8+fb3*p2p8-fb3*p4p8+3*fb3*p5p8))
2173       b(20)=ccc*(8*w2*(-hbcm*p3p7*p5p8-hbcm*p4p7*p5p8-hbcm*p5p7*p5p8)
2174      . +8*w11*(-hbcm*p2p8*p3p7-hbcm*p2p8*p4p7-hbcm*p2p8*p5p7+hbcm*
2175      . p3p7*p4p8+hbcm*p4p7*p4p8+hbcm*p4p8*p5p7)+24*p7p8*(fb3*fmb-fb3*
2176      . fmc-fb4*hbcm))
2177       b(21)=12*ccc*(fb3*fmb-fb3*fmc-fb4*hbcm)
2178       b(22)=4*ccc*(2*fb3*ffmcfmb*hbcm2-3*fb3*hbcm2+2*fb3*p1p3-2*fb3*
2179      . p2p3+2*fb3*p3p4-6*fb3*p3p5-3*fb4*fmb*hbcm-3*fb4*fmc*hbcm)
2180       b(23)=ccc*(8*p3p7*(-3*fb3*fmb+3*fb3*fmc+fb4*hbcm)+16*(-fb4*hbcm
2181      . *p4p7-fb4*hbcm*p5p7))
2182       b(24)=ccc*(2*p3p6*(-8*fb3*fmb+4*fb3*fmc+4*fb4*ffmcfmb*hbcm+hbcm
2183      . )-16*fb4*hbcm*p4p6)
2184       b(25)=24*ccc*p4p7*(fb3*fmb-fb3*fmc-fb4*hbcm)
2185       b(27)=ccc*(8*p6p7*(2*fb3*ffmcfmb*hbcm2+fb3*hbcm2-3*fb4*fmb*hbcm
2186      . -3*fb4*fmc*hbcm)+16*(-fb3*p1p3*p6p7-3*fb3*p2p3*p6p7+3*fb3*p3p4
2187      . *p6p7-fb3*p3p5*p6p7-fb3*p3p6*p3p7-3*fb3*p3p7*p4p6+fb3*p3p7*
2188      . p5p6))
2189       b(28)=ccc*(12*w2*(p6p7*p5p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+w11*(12*
2190      . (p6p7*p4p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+12*(p6p7*p2p8)*(fmb*
2191      . hbcm+fmc*hbcm-hbcm2))+16*(-fb3*p1p8*p6p7-3*fb3*p2p8*p6p7-fb3*
2192      . p3p6*p7p8-3*fb3*p4p6*p7p8+3*fb3*p4p8*p6p7+fb3*p5p6*p7p8-fb3*
2193      . p5p8*p6p7))
2194       b(29)=8*ccc*(-fb3*p3p6-3*fb3*p4p6+fb3*p5p6)
2195       b(30)=16*ccc*(-fb3*p3p7-fb3*p4p7-fb3*p5p7)
2196       ans=ccc*(w2*(4*(p6p7*p5p8)*(2*ffmcfmb*hbcm3-3*fmb*hbcm2+3*fmc*
2197      . hbcm2+hbcm3)+16*(p5p8*p3p7*p3p6)*(ffmcfmb*hbcm-hbcm)+8*(-hbcm*
2198      . p1p3*p5p8*p6p7-3*hbcm*p2p3*p5p8*p6p7+3*hbcm*p3p4*p5p8*p6p7-
2199      . hbcm*p3p5*p5p8*p6p7-2*hbcm*p3p7*p4p6*p5p8))+w11*(4*(p6p7*p4p8)
2200      . *(-2*ffmcfmb*hbcm3+3*fmb*hbcm2-3*fmc*hbcm2-hbcm3)+4*(p6p7*p2p8
2201      . )*(2*ffmcfmb*hbcm3-3*fmb*hbcm2+3*fmc*hbcm2+hbcm3)+16*(p4p8*
2202      . p3p7*p3p6)*(-ffmcfmb*hbcm+hbcm)+16*(p3p7*p3p6*p2p8)*(ffmcfmb*
2203      . hbcm-hbcm)+8*(-hbcm*p1p3*p2p8*p6p7+hbcm*p1p3*p4p8*p6p7-3*hbcm*
2204      . p2p3*p2p8*p6p7+3*hbcm*p2p3*p4p8*p6p7+3*hbcm*p2p8*p3p4*p6p7-
2205      . hbcm*p2p8*p3p5*p6p7-2*hbcm*p2p8*p3p7*p4p6-3*hbcm*p3p4*p4p8*
2206      . p6p7+hbcm*p3p5*p4p8*p6p7+2*hbcm*p3p7*p4p6*p4p8))+(4*(p6p8*p3p7
2207      . )*(8*fb3*fmb-4*fb3*fmc+4*fb4*ffmcfmb*hbcm-8*fb4*hbcm+hbcm)+4*(
2208      . p7p8*p3p6)*(-8*fb3*fmb+4*fb3*fmc+4*fb4*ffmcfmb*hbcm+hbcm)+16*(
2209      . -fb4*hbcm*p1p8*p6p7-3*fb4*hbcm*p2p8*p6p7-2*fb4*hbcm*p4p6*p7p8+
2210      . 3*fb4*hbcm*p4p8*p6p7-fb4*hbcm*p5p8*p6p7)))
2211       b(31)=ans
2212       b(32)=24*ccc*p6p7*(fb3*fmb-fb3*fmc-fb4*hbcm)
2213       do 200 n=1,32
2214          c(n,1)=c(n,1)+0.8181818181818182d0*b(n)
2215          c(n,2)=c(n,2)-0.1512818716977898d0*b(n)
2216          c(n,3)=c(n,3)-0.1869893980016914d0*b(n)
2217 200   continue
2218       return
2219         end
2220
2221       subroutine amp25_1p1(cc)
2222       implicit double precision(a-h,o-z)
2223       implicit integer (i-n)
2224       dimension b(32)
2225 #include "inclcon.h"
2226 #include "inclppp.h"
2227 #include "inclamp.h"
2228       do 100 n=1,32
2229          b(n)=0.0d0
2230 100   continue
2231       ccc=cc/((2*p1p2)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2)*(
2232      . ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2+2*ffmcfmb*p1p3+2*ffmcfmb*p2p3
2233      . -fmb2+hbcm2+2*p1p2-2*p1p3-2*p2p3))
2234       b(1)=ccc*(2*p6p7*(-4*fb3*fmb*fmc-4*fb3*fmb2-4*fb4*ffmcfmb*fmb*
2235      . hbcm-4*fb4*ffmcfmb*fmc*hbcm+4*fb4*fmb*hbcm+4*fb4*fmc*hbcm+fmb*
2236      . hbcm+fmc*hbcm)+32*(fb3*p1p2*p6p7-fb3*p2p3*p6p7-2*fb3*p2p4*p6p7
2237      . ))
2238       b(2)=ccc*(w1*(4*(p6p7*p4p8)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+8*
2239      . (p6p7*p4p8*p2p3)*(-ffmcfmb*hbcm+hbcm)+8*(p6p7*p4p8*p1p3)*(
2240      . ffmcfmb*hbcm-hbcm)+8*(-hbcm*p1p2*p4p8*p6p7+2*hbcm*p2p4*p4p8*
2241      . p6p7))+w20*(4*(p6p7*p2p8)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+4*(
2242      . p6p7*p1p8)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+8*(p6p7*p2p8*p2p3)
2243      . *(-ffmcfmb*hbcm+hbcm)+8*(p6p7*p2p3*p1p8)*(-ffmcfmb*hbcm+hbcm)+
2244      . 8*(p6p7*p2p8*p1p3)*(ffmcfmb*hbcm-hbcm)+8*(p6p7*p1p8*p1p3)*(
2245      . ffmcfmb*hbcm-hbcm)+8*(-hbcm*p1p2*p1p8*p6p7-hbcm*p1p2*p2p8*p6p7
2246      . +2*hbcm*p1p8*p2p4*p6p7+2*hbcm*p2p4*p2p8*p6p7))+(4*(p6p7*p4p8)*
2247      . (4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm)+8*(p6p7*p2p8)*(
2248      . 2*fb3*fmb-4*fb3*fmc-2*fb4*ffmcfmb*hbcm+2*fb4*hbcm+hbcm)+16*(
2249      . p6p7*p1p8)*(-fb3*fmb-fb4*ffmcfmb*hbcm+fb4*hbcm)))
2250       b(9)=ccc*(4*(p6p7*p3p4)*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*
2251      . hbcm+hbcm)+4*(p6p7*p2p3)*(-4*fb3*fmb+8*fb3*fmc+8*fb4*ffmcfmb*
2252      . hbcm-8*fb4*hbcm-hbcm)+4*(p6p7*p1p3)*(4*fb3*fmb-hbcm)+2*p6p7*(-
2253      . 4*fb3*fmb*hbcm2-4*fb4*ffmcfmb*hbcm3+4*fb4*hbcm3+hbcm3)+16*(fb4
2254      . *hbcm*p1p2*p6p7-2*fb4*hbcm*p2p4*p6p7))
2255       ans=ccc*(w1*(8*(p6p7*p4p8*p2p3)*(ffmcfmb*hbcm2+fmb*hbcm+2*fmc*
2256      . hbcm-hbcm2)+8*(p6p7*p4p8*p1p3)*(-ffmcfmb*hbcm2+fmb*hbcm+hbcm2)
2257      . +4*(p6p7*p4p8)*(ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*hbcm3+fmb*fmc*
2258      . hbcm2-fmb*hbcm3+fmb2*hbcm2-fmc*hbcm3))+w20*(8*(p6p7*p2p8*p2p3)
2259      . *(ffmcfmb*hbcm2+fmb*hbcm+2*fmc*hbcm-hbcm2)+8*(p6p7*p2p3*p1p8)*
2260      . (ffmcfmb*hbcm2+fmb*hbcm+2*fmc*hbcm-hbcm2)+8*(p6p7*p2p8*p1p3)*(
2261      . -ffmcfmb*hbcm2+fmb*hbcm+hbcm2)+8*(p6p7*p1p8*p1p3)*(-ffmcfmb*
2262      . hbcm2+fmb*hbcm+hbcm2)+4*(p6p7*p2p8)*(ffmcfmb*fmb*hbcm3+ffmcfmb
2263      . *fmc*hbcm3+fmb*fmc*hbcm2-fmb*hbcm3+fmb2*hbcm2-fmc*hbcm3)+4*(
2264      . p6p7*p1p8)*(ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*hbcm3+fmb*fmc*hbcm2-
2265      . fmb*hbcm3+fmb2*hbcm2-fmc*hbcm3))+(4*(p6p7*p2p8)*(4*fb3*ffmcfmb
2266      . *hbcm2-12*fb3*hbcm2+4*fb4*fmb*hbcm-hbcm2)+4*(p6p7*p1p8)*(-4*
2267      . fb3*ffmcfmb*hbcm2+4*fb3*hbcm2-4*fb4*fmb*hbcm+hbcm2)+64*(fb3*
2268      . p1p3*p2p8*p6p7+fb3*p2p3*p2p8*p6p7-fb3*p2p3*p4p8*p6p7-fb3*p2p8*
2269      . p3p4*p6p7)))
2270       b(10)=ans
2271       b(27)=ccc*(16*p6p7*(2*fb3*hbcm2-fb4*fmb*hbcm-fb4*fmc*hbcm)+32*(
2272      . -fb3*p1p3*p6p7-fb3*p2p3*p6p7+2*fb3*p3p4*p6p7))
2273       b(28)=ccc*(8*w1*(p6p7*p4p8)*(-fmb*hbcm-fmc*hbcm)+w20*(8*(p6p7*
2274      . p2p8)*(-fmb*hbcm-fmc*hbcm)+8*(p6p7*p1p8)*(-fmb*hbcm-fmc*hbcm))
2275      . +32*(-fb3*p1p8*p6p7-fb3*p2p8*p6p7+2*fb3*p4p8*p6p7))
2276       b(31)=ccc*(w1*(8*(p6p7*p4p8)*(ffmcfmb*hbcm3+fmb*hbcm2-2*hbcm3)+
2277      . 16*(hbcm*p1p3*p4p8*p6p7+hbcm*p2p3*p4p8*p6p7-hbcm*p3p4*p4p8*
2278      . p6p7))+w20*(8*(p6p7*p2p8)*(ffmcfmb*hbcm3+fmb*hbcm2-2*hbcm3)+8*
2279      . (p6p7*p1p8)*(ffmcfmb*hbcm3+fmb*hbcm2-2*hbcm3)+16*(hbcm*p1p3*
2280      . p1p8*p6p7+hbcm*p1p3*p2p8*p6p7+hbcm*p1p8*p2p3*p6p7-hbcm*p1p8*
2281      . p3p4*p6p7+hbcm*p2p3*p2p8*p6p7-hbcm*p2p8*p3p4*p6p7))+32*(-fb4*
2282      . hbcm*p1p8*p6p7-fb4*hbcm*p2p8*p6p7+fb4*hbcm*p4p8*p6p7))
2283       b(32)=4*ccc*p6p7*(4*fb3*fmb-8*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)
2284       do 200 n=1,32
2285          c(n,1)=c(n,1)+0.09090909090909091d0*b(n)
2286          c(n,2)=c(n,2)-0.1092591295595148d0*b(n)
2287 200   continue
2288       return
2289         end
2290
2291       subroutine amp24_1p1(cc)
2292       implicit double precision(a-h,o-z)
2293       implicit integer (i-n)
2294       dimension b(32)
2295 #include "inclcon.h"
2296 #include "inclppp.h"
2297 #include "inclamp.h"
2298       do 100 n=1,32
2299          b(n)=0.0d0
2300 100   continue
2301       ccc=cc/((2*p1p2)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2)*(-fmb2+
2302      . fmc2+hbcm2+2*p3p4))
2303       b(2)=ccc*(w1*(4*(p6p7*p4p8)*(fmb2*hbcm-fmc2*hbcm-hbcm3)-8*hbcm*
2304      . p3p4*p4p8*p6p7)+32*fb4*hbcm*p2p8*p6p7)
2305       b(9)=ccc*(8*p6p7*(-fb4*fmb2*hbcm+fb4*fmc2*hbcm+fb4*hbcm3)+16*(-
2306      . 2*fb4*hbcm*p2p3*p6p7+fb4*hbcm*p3p4*p6p7))
2307       b(10)=ccc*(w1*(8*(p6p7*p4p8)*(-fmb2*hbcm2+fmc2*hbcm2+hbcm4)+16*
2308      . hbcm2*p3p4*p4p8*p6p7)+32*(p6p7*p2p8)*(-fb4*fmb*hbcm-fb4*fmc*
2309      . hbcm))
2310       b(27)=16*ccc*p6p7*(fb4*fmb*hbcm+fb4*fmc*hbcm)
2311       b(28)=8*ccc*w1*(p6p7*p4p8)*(fmb*hbcm+fmc*hbcm-2*hbcm2)
2312       b(31)=ccc*(w1*(8*(p6p7*p4p8)*(-2*fmb*hbcm2+2*fmc*hbcm2+hbcm3)+
2313      . 16*hbcm*p3p4*p4p8*p6p7)-32*fb4*hbcm*p4p8*p6p7)
2314       b(32)=16*ccc*fb4*hbcm*p6p7
2315       do 200 n=1,32
2316          c(n,1)=c(n,1)-0.7272727272727273d0*b(n)
2317          c(n,2)=c(n,2)+0.8740730364761186d0*b(n)
2318 200   continue
2319       return
2320         end
2321
2322       subroutine amp23_1p1(cc)
2323       implicit double precision(a-h,o-z)
2324       implicit integer (i-n)
2325       dimension b(32)
2326 #include "inclcon.h"
2327 #include "inclppp.h"
2328 #include "inclamp.h"
2329       do 100 n=1,32
2330          b(n)=0.0d0
2331 100   continue
2332       ccc=cc/((2*p1p2)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*
2333      . p3p5+fmb2+hbcm2+2*p3p5)*(fmb2-fmc2+hbcm2+2*p3p5))
2334       b(2)=ccc*(w2*(4*(p6p7*p5p8)*(-fmb2*hbcm+fmc2*hbcm-hbcm3)-8*hbcm
2335      . *p3p5*p5p8*p6p7)+16*(fb4*hbcm*p1p8*p6p7+fb4*hbcm*p2p8*p6p7-fb4
2336      . *hbcm*p4p8*p6p7-fb4*hbcm*p5p8*p6p7))
2337       b(9)=ccc*(8*p6p7*(-fb4*fmb2*hbcm+fb4*fmc2*hbcm+fb4*hbcm3)+16*(-
2338      . fb4*hbcm*p1p3*p6p7-fb4*hbcm*p2p3*p6p7+fb4*hbcm*p3p4*p6p7))
2339       b(10)=ccc*(w2*(8*(p6p7*p5p8)*(fmb*hbcm3+fmb2*hbcm2+fmc*hbcm3-
2340      . fmc2*hbcm2-hbcm4)+8*(p6p7*p5p8*p3p5)*(fmb*hbcm+fmc*hbcm)+8*(
2341      . p6p7*p5p8*p3p4)*(fmb*hbcm+fmc*hbcm-2*hbcm2)+8*(p6p7*p5p8*p2p3)
2342      . *(fmb*hbcm+fmc*hbcm-2*hbcm2)+8*(p6p7*p5p8*p1p3)*(-fmb*hbcm-fmc
2343      . *hbcm+2*hbcm2))+(16*(p6p7*p5p8)*(fb4*fmb*hbcm+fb4*fmc*hbcm)+16
2344      . *(p6p7*p4p8)*(fb4*fmb*hbcm+fb4*fmc*hbcm)+16*(p6p7*p2p8)*(-fb4*
2345      . fmb*hbcm-fb4*fmc*hbcm)+16*(p6p7*p1p8)*(-fb4*fmb*hbcm-fb4*fmc*
2346      . hbcm)))
2347       b(27)=16*ccc*p6p7*(fb4*fmb*hbcm+fb4*fmc*hbcm)
2348       b(28)=8*ccc*w2*(p6p7*p5p8)*(-fmb*hbcm-fmc*hbcm+2*hbcm2)
2349       b(31)=ccc*(w2*(8*(p6p7*p5p8)*(2*fmb*hbcm2-2*fmc*hbcm2+hbcm3)+16
2350      . *hbcm*p3p5*p5p8*p6p7)+32*fb4*hbcm*p5p8*p6p7)
2351       b(32)=16*ccc*fb4*hbcm*p6p7
2352       do 200 n=1,32
2353          c(n,1)=c(n,1)-0.7272727272727273d0*b(n)
2354          c(n,2)=c(n,2)+0.8740730364761186d0*b(n)
2355 200   continue
2356       return
2357         end
2358
2359       subroutine amp22_1p1(cc)
2360       implicit double precision(a-h,o-z)
2361       implicit integer (i-n)
2362       dimension b(32)
2363 #include "inclcon.h"
2364 #include "inclppp.h"
2365 #include "inclamp.h"
2366       do 100 n=1,32
2367          b(n)=0.0d0
2368 100   continue
2369       ccc=cc/((2*p1p2)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*
2370      . p3p5+fmb2+hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3-2*
2371      . ffmcfmb*p2p3-fmc2+2*p1p2))
2372       b(1)=ccc*(2*p6p7*(4*fb3*fmb*fmc+4*fb3*fmc2+4*fb4*ffmcfmb*fmb*
2373      . hbcm+4*fb4*ffmcfmb*fmc*hbcm-fmb*hbcm-fmc*hbcm)+32*(fb3*p1p2*
2374      . p6p7-fb3*p2p3*p6p7-2*fb3*p2p4*p6p7))
2375       b(2)=ccc*(w2*(4*(p6p7*p5p8)*(ffmcfmb*hbcm3-fmc*hbcm2)+8*(p6p7*
2376      . p5p8*p2p3)*(ffmcfmb*hbcm-2*hbcm)+8*(-ffmcfmb*hbcm*p1p3*p5p8*
2377      . p6p7+hbcm*p1p2*p5p8*p6p7-2*hbcm*p2p4*p5p8*p6p7))+w17*(4*(p6p7*
2378      . p2p8)*(ffmcfmb*hbcm3-fmc*hbcm2)+4*(p6p7*p1p8)*(ffmcfmb*hbcm3-
2379      . fmc*hbcm2)+8*(p6p7*p2p8*p2p3)*(ffmcfmb*hbcm-2*hbcm)+8*(p6p7*
2380      . p2p3*p1p8)*(ffmcfmb*hbcm-2*hbcm)+8*(-ffmcfmb*hbcm*p1p3*p1p8*
2381      . p6p7-ffmcfmb*hbcm*p1p3*p2p8*p6p7+hbcm*p1p2*p1p8*p6p7+hbcm*p1p2
2382      . *p2p8*p6p7-2*hbcm*p1p8*p2p4*p6p7-2*hbcm*p2p4*p2p8*p6p7))+(4*(
2383      . p6p7*p4p8)*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+4*(p6p7*p2p8)*
2384      . (8*fb3*fmb+8*fb4*ffmcfmb*hbcm-8*fb4*hbcm-hbcm)-4*hbcm*p1p8*
2385      . p6p7))
2386       b(9)=ccc*(4*(p6p7*p3p4)*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+2*
2387      . p6p7*(4*fb3*fmc*hbcm2+4*fb4*ffmcfmb*hbcm3-hbcm3)+8*(p6p7*p2p3)
2388      . *(-4*fb3*fmb-2*fb4*ffmcfmb*hbcm+hbcm)+16*(-fb4*ffmcfmb*hbcm*
2389      . p1p3*p6p7+fb4*hbcm*p1p2*p6p7-2*fb4*hbcm*p2p4*p6p7))
2390       ans=ccc*(w2*(8*(p6p7*p5p8*p2p3)*(-ffmcfmb*hbcm2-fmc*hbcm)+8*(
2391      . p6p7*p5p8*p1p3)*(ffmcfmb*hbcm2+fmc*hbcm)+4*(p6p7*p5p8)*(-
2392      . ffmcfmb*fmb*hbcm3-ffmcfmb*fmc*hbcm3+fmb*fmc*hbcm2+fmc2*hbcm2))
2393      . +w17*(8*(p6p7*p2p8*p2p3)*(-ffmcfmb*hbcm2-fmc*hbcm)+8*(p6p7*
2394      . p2p3*p1p8)*(-ffmcfmb*hbcm2-fmc*hbcm)+8*(p6p7*p2p8*p1p3)*(
2395      . ffmcfmb*hbcm2+fmc*hbcm)+8*(p6p7*p1p8*p1p3)*(ffmcfmb*hbcm2+fmc*
2396      . hbcm)+4*(p6p7*p2p8)*(-ffmcfmb*fmb*hbcm3-ffmcfmb*fmc*hbcm3+fmb*
2397      . fmc*hbcm2+fmc2*hbcm2)+4*(p6p7*p1p8)*(-ffmcfmb*fmb*hbcm3-
2398      . ffmcfmb*fmc*hbcm3+fmb*fmc*hbcm2+fmc2*hbcm2))+(4*(p6p7*p2p8)*(-
2399      . 4*fb3*ffmcfmb*hbcm2-8*fb3*hbcm2+8*fb4*fmb*hbcm+4*fb4*fmc*hbcm-
2400      . hbcm2)+4*(p6p7*p1p8)*(4*fb3*ffmcfmb*hbcm2+4*fb4*fmc*hbcm+hbcm2
2401      . )+64*(fb3*p1p3*p2p8*p6p7+fb3*p2p3*p2p8*p6p7-fb3*p2p3*p4p8*p6p7
2402      . -fb3*p2p8*p3p4*p6p7)))
2403       b(10)=ans
2404       b(27)=ccc*(16*p6p7*(2*fb3*hbcm2-fb4*fmb*hbcm-fb4*fmc*hbcm)+32*(
2405      . -fb3*p1p3*p6p7-fb3*p2p3*p6p7+2*fb3*p3p4*p6p7))
2406       b(28)=ccc*(8*w2*(p6p7*p5p8)*(fmb*hbcm+fmc*hbcm)+w17*(8*(p6p7*
2407      . p2p8)*(fmb*hbcm+fmc*hbcm)+8*(p6p7*p1p8)*(fmb*hbcm+fmc*hbcm))+
2408      . 32*(-fb3*p1p8*p6p7-fb3*p2p8*p6p7+2*fb3*p4p8*p6p7))
2409       b(31)=ccc*(w2*(8*(p6p7*p5p8)*(-ffmcfmb*hbcm3+fmc*hbcm2+hbcm3)+
2410      . 16*hbcm*p3p4*p5p8*p6p7)+w17*(8*(p6p7*p2p8)*(-ffmcfmb*hbcm3+fmc
2411      . *hbcm2+hbcm3)+8*(p6p7*p1p8)*(-ffmcfmb*hbcm3+fmc*hbcm2+hbcm3)+
2412      . 16*(hbcm*p1p8*p3p4*p6p7+hbcm*p2p8*p3p4*p6p7))+32*fb4*hbcm*p4p8
2413      . *p6p7)
2414       b(32)=4*ccc*p6p7*(8*fb3*fmb-4*fb3*fmc+4*fb4*ffmcfmb*hbcm-4*fb4*
2415      . hbcm-hbcm)
2416       do 200 n=1,32
2417          c(n,1)=c(n,1)+0.09090909090909091d0*b(n)
2418          c(n,2)=c(n,2)-0.1092591295595148d0*b(n)
2419 200   continue
2420       return
2421         end
2422
2423       subroutine amp21_1p1(cc)
2424       implicit double precision(a-h,o-z)
2425       implicit integer (i-n)
2426       dimension b(32)
2427 #include "inclcon.h"
2428 #include "inclppp.h"
2429 #include "inclamp.h"
2430       do 100 n=1,32
2431          b(n)=0.0d0
2432 100   continue
2433       ccc=cc/((ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3+2*ffmcfmb*p3p4+fmc2-2*
2434      . p1p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3-fmc2)*(ffmcfmb**2*hbcm2
2435      . -2*ffmcfmb*hbcm2+2*ffmcfmb*p2p3-fmb2+hbcm2-2*p2p3))
2436       b(1)=ccc*(64*(p4p6*p3p7)*(fb3*ffmcfmb-fb3)+32*(p3p7*p3p6)*(fb3*
2437      . ffmcfmb-fb3)+16*p6p7*(fb3*ffmcfmb**2*hbcm2-2*fb3*ffmcfmb*hbcm2
2438      . -fb3*fmb2+fb3*hbcm2)+32*(fb3*p1p2*p6p7-fb3*p2p3*p6p7-fb3*p2p4*
2439      . p6p7))
2440       ans2=(8*(p6p7*p4p8)*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-
2441      . hbcm)+8*(p6p8*p4p7)*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+
2442      . hbcm)+16*(p7p8*p4p6)*(-2*fb3*fmb-2*fb4*ffmcfmb*hbcm+2*fb4*hbcm
2443      . +hbcm)+8*(p6p7*p1p8)*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm
2444      . +hbcm)+8*(p6p8*p3p7)*(-4*fb3*ffmcfmb*fmb-4*fb4*ffmcfmb**2*hbcm
2445      . +4*fb4*ffmcfmb*hbcm+hbcm)+8*(p7p8*p3p6)*(-4*fb3*ffmcfmb*fmb-4*
2446      . fb4*ffmcfmb**2*hbcm+4*fb4*ffmcfmb*hbcm+hbcm))
2447       ans1=w8*(16*(p4p6*p3p7*p2p8)*(-ffmcfmb*hbcm+hbcm)+8*(p6p7*p2p8)
2448      . *(-ffmcfmb**2*hbcm3+2*ffmcfmb*hbcm3+fmb2*hbcm-hbcm3)+16*(p3p7*
2449      . p3p6*p2p8)*(ffmcfmb**2*hbcm-2*ffmcfmb*hbcm+hbcm)+16*(-hbcm*
2450      . p1p2*p2p8*p6p7+hbcm*p2p3*p2p8*p6p7+hbcm*p2p4*p2p8*p6p7))+w5*(
2451      . 16*(p4p8*p4p6*p3p7)*(-ffmcfmb*hbcm+hbcm)+16*(p4p6*p3p7*p1p8)*(
2452      . ffmcfmb*hbcm-hbcm)+8*(p6p7*p4p8)*(-ffmcfmb**2*hbcm3+2*ffmcfmb*
2453      . hbcm3+fmb2*hbcm-hbcm3)+8*(p6p7*p1p8)*(ffmcfmb**2*hbcm3-2*
2454      . ffmcfmb*hbcm3-fmb2*hbcm+hbcm3)+16*(p4p8*p3p7*p3p6)*(ffmcfmb**2
2455      . *hbcm-2*ffmcfmb*hbcm+hbcm)+16*(p3p7*p3p6*p1p8)*(-ffmcfmb**2*
2456      . hbcm+2*ffmcfmb*hbcm-hbcm)+16*(hbcm*p1p2*p1p8*p6p7-hbcm*p1p2*
2457      . p4p8*p6p7-hbcm*p1p8*p2p3*p6p7-hbcm*p1p8*p2p4*p6p7+hbcm*p2p3*
2458      . p4p8*p6p7+hbcm*p2p4*p4p8*p6p7))+w12*(16*(p4p6*p3p7*p1p8)*(
2459      . ffmcfmb*hbcm-hbcm)+8*(p6p7*p1p8)*(ffmcfmb**2*hbcm3-2*ffmcfmb*
2460      . hbcm3-fmb2*hbcm+hbcm3)+16*(p3p7*p3p6*p1p8)*(-ffmcfmb**2*hbcm+2
2461      . *ffmcfmb*hbcm-hbcm)+16*(hbcm*p1p2*p1p8*p6p7-hbcm*p1p8*p2p3*
2462      . p6p7-hbcm*p1p8*p2p4*p6p7))+ans2
2463       ans=ccc*ans1
2464       b(2)=ans
2465       ans=ccc*(w8*(16*(p5p7*p2p8)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(
2466      . p3p7*p2p8)*(-ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2+2
2467      . *fmb*hbcm+fmc*hbcm-hbcm2))+w5*(16*(p5p7*p4p8)*(ffmcfmb*hbcm2+
2468      . fmb*hbcm-hbcm2)+16*(p5p7*p1p8)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)
2469      . +8*(p4p8*p3p7)*(-ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm+ffmcfmb*
2470      . hbcm2+2*fmb*hbcm+fmc*hbcm-hbcm2)+8*(p3p7*p1p8)*(ffmcfmb*fmb*
2471      . hbcm+ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2-2*fmb*hbcm-fmc*hbcm+hbcm2)
2472      . )+w12*(16*(p5p7*p1p8)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(p3p7*
2473      . p1p8)*(ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2-2*fmb*
2474      . hbcm-fmc*hbcm+hbcm2))+(64*(p5p8*p3p7)*(-fb3*ffmcfmb+fb3)+32*(
2475      . p3p7*p1p8)*(fb3*ffmcfmb-fb3)+4*p7p8*(4*fb3*ffmcfmb**2*hbcm2-8*
2476      . fb3*ffmcfmb*hbcm2-4*fb3*fmb2+4*fb3*hbcm2+fmb*hbcm+fmc*hbcm)+32
2477      . *(fb3*p2p5*p7p8+fb3*p2p8*p3p7+3*fb3*p2p8*p5p7)))
2478       b(3)=ans
2479       b(4)=ccc*(64*(p3p7*p3p5)*(fb3*ffmcfmb-fb3)+64*(p3p7*p2p3)*(-fb3
2480      . *ffmcfmb+fb3)+32*(p3p7*p1p3)*(-fb3*ffmcfmb+fb3)+8*p5p7*(-4*fb3
2481      . *ffmcfmb*hbcm2+4*fb3*hbcm2-4*fb4*fmb*hbcm-hbcm2)+4*p3p7*(-4*
2482      . fb3*ffmcfmb**2*hbcm2+12*fb3*ffmcfmb*hbcm2+4*fb3*fmb2-8*fb3*
2483      . hbcm2+4*fb4*ffmcfmb*fmb*hbcm+4*fb4*ffmcfmb*fmc*hbcm-8*fb4*fmb*
2484      . hbcm-4*fb4*fmc*hbcm-hbcm2)+32*(fb3*p2p3*p5p7-fb3*p2p5*p3p7))
2485       ans2=w12*(8*(p5p7*p1p8)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+16*(
2486      . p3p7*p3p5*p1p8)*(ffmcfmb*hbcm-hbcm)+16*(p3p7*p2p3*p1p8)*(-
2487      . ffmcfmb*hbcm+hbcm)+16*(p3p7*p1p8*p1p3)*(-ffmcfmb*hbcm+hbcm)+8*
2488      . (p3p7*p1p8)*(-ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3-fmb*hbcm2+fmb2*
2489      . hbcm+fmc*hbcm2-hbcm3)+16*(hbcm*p1p8*p2p3*p5p7-hbcm*p1p8*p2p5*
2490      . p3p7))+(32*(p3p7*p1p8)*(-fb4*ffmcfmb*hbcm+fb4*hbcm)+8*(p5p8*
2491      . p3p7)*(4*fb3*fmb+8*fb4*ffmcfmb*hbcm-8*fb4*hbcm-hbcm)+16*(p7p8*
2492      . p3p5)*(-2*fb3*fmb-2*fb4*ffmcfmb*hbcm+2*fb4*hbcm+hbcm)+8*(p3p7*
2493      . p2p8)*(-4*fb3*fmb-8*fb4*ffmcfmb*hbcm+8*fb4*hbcm+hbcm)+16*(p7p8
2494      . *p2p3)*(2*fb3*fmb+2*fb4*ffmcfmb*hbcm-2*fb4*hbcm-hbcm)+4*p7p8*(
2495      . 8*fb3*ffmcfmb*fmb*hbcm2-8*fb3*fmb*hbcm2+4*fb4*ffmcfmb**2*hbcm3
2496      . -8*fb4*ffmcfmb*hbcm3+4*fb4*fmb2*hbcm+4*fb4*hbcm3-ffmcfmb*hbcm3
2497      . -fmc*hbcm2+3*hbcm3)+8*(-4*fb4*hbcm*p2p5*p7p8+4*fb4*hbcm*p2p8*
2498      . p5p7-hbcm*p1p3*p7p8))
2499       ans1=w8*(8*(p5p7*p2p8)*(ffmcfmb*hbcm3+fmb*hbcm2-hbcm3)+16*(p3p7
2500      . *p3p5*p2p8)*(-ffmcfmb*hbcm+hbcm)+16*(p3p7*p2p8*p2p3)*(ffmcfmb*
2501      . hbcm-hbcm)+16*(p3p7*p2p8*p1p3)*(ffmcfmb*hbcm-hbcm)+8*(p3p7*
2502      . p2p8)*(ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3+fmb*hbcm2-fmb2*hbcm-fmc
2503      . *hbcm2+hbcm3)+16*(-hbcm*p2p3*p2p8*p5p7+hbcm*p2p5*p2p8*p3p7))+
2504      . w5*(8*(p5p7*p4p8)*(ffmcfmb*hbcm3+fmb*hbcm2-hbcm3)+8*(p5p7*p1p8
2505      . )*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+16*(p4p8*p3p7*p3p5)*(-
2506      . ffmcfmb*hbcm+hbcm)+16*(p4p8*p3p7*p2p3)*(ffmcfmb*hbcm-hbcm)+16*
2507      . (p3p7*p3p5*p1p8)*(ffmcfmb*hbcm-hbcm)+16*(p3p7*p2p3*p1p8)*(-
2508      . ffmcfmb*hbcm+hbcm)+16*(p4p8*p3p7*p1p3)*(ffmcfmb*hbcm-hbcm)+16*
2509      . (p3p7*p1p8*p1p3)*(-ffmcfmb*hbcm+hbcm)+8*(p4p8*p3p7)*(ffmcfmb*
2510      . fmc*hbcm2-ffmcfmb*hbcm3+fmb*hbcm2-fmb2*hbcm-fmc*hbcm2+hbcm3)+8
2511      . *(p3p7*p1p8)*(-ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3-fmb*hbcm2+fmb2*
2512      . hbcm+fmc*hbcm2-hbcm3)+16*(hbcm*p1p8*p2p3*p5p7-hbcm*p1p8*p2p5*
2513      . p3p7-hbcm*p2p3*p4p8*p5p7+hbcm*p2p5*p3p7*p4p8))+ans2
2514       ans=ccc*ans1
2515       b(5)=ans
2516       b(6)=ccc*(w8*(16*(p4p6*p2p8)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(
2517      . p3p6*p2p8)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2))+w5*(16*(p4p8*p4p6)*
2518      . (ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(p4p8*p3p6)*(ffmcfmb*hbcm2+
2519      . fmb*hbcm-hbcm2)+16*(p4p6*p1p8)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)
2520      . +8*(p3p6*p1p8)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2))+w12*(16*(p4p6*
2521      . p1p8)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(p3p6*p1p8)*(-ffmcfmb*
2522      . hbcm2-fmb*hbcm+hbcm2))+(16*p6p8*(fb3*ffmcfmb**2*hbcm2-2*fb3*
2523      . ffmcfmb*hbcm2-fb3*fmb2+fb3*hbcm2)+32*(-fb3*ffmcfmb*p2p8*p3p6+
2524      . fb3*p1p2*p6p8-fb3*p2p3*p6p8-fb3*p2p4*p6p8-fb3*p2p8*p4p6)))
2525       b(7)=ccc*(32*(p3p6*p2p3)*(fb3*ffmcfmb+fb3)+8*p4p6*(-4*fb3*
2526      . ffmcfmb*hbcm2+4*fb3*hbcm2-4*fb4*fmb*hbcm-hbcm2)+4*p3p6*(-4*fb3
2527      . *ffmcfmb**2*hbcm2+4*fb3*ffmcfmb*hbcm2+4*fb3*fmb2-4*fb4*fmb*
2528      . hbcm-hbcm2)+32*(-fb3*p1p2*p3p6+fb3*p2p3*p4p6+fb3*p2p4*p3p6))
2529       ans2=(8*(p6p8*p2p3)*(4*fb4*hbcm+hbcm)+8*(p4p8*p3p6)*(-4*fb3*fmb
2530      . -4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+hbcm)+8*(p6p8*p3p4)*(4*fb3*fmb+
2531      . 4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm)+8*(p3p6*p1p8)*(4*fb3*fmb+4
2532      . *fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm)+8*(p6p8*p1p3)*(-4*fb3*fmb-4
2533      . *fb4*ffmcfmb*hbcm+4*fb4*hbcm+hbcm)+4*p6p8*(8*fb3*ffmcfmb*fmb*
2534      . hbcm2+4*fb4*ffmcfmb**2*hbcm3+4*fb4*fmb2*hbcm-4*fb4*hbcm3-
2535      . ffmcfmb*hbcm3+fmb*hbcm2-hbcm3)+32*(fb4*ffmcfmb*hbcm*p2p8*p3p6-
2536      . fb4*hbcm*p1p2*p6p8+fb4*hbcm*p2p4*p6p8+fb4*hbcm*p2p8*p4p6))
2537       ans1=w8*(8*(p4p6*p2p8)*(ffmcfmb*hbcm3+fmb*hbcm2-hbcm3)+16*(p3p6
2538      . *p2p8*p2p3)*(-ffmcfmb*hbcm-hbcm)+8*(p3p6*p2p8)*(-ffmcfmb*fmb*
2539      . hbcm2+fmb*hbcm2-fmb2*hbcm)+16*(hbcm*p1p2*p2p8*p3p6-hbcm*p2p3*
2540      . p2p8*p4p6-hbcm*p2p4*p2p8*p3p6))+w5*(8*(p4p8*p4p6)*(ffmcfmb*
2541      . hbcm3+fmb*hbcm2-hbcm3)+8*(p4p6*p1p8)*(-ffmcfmb*hbcm3-fmb*hbcm2
2542      . +hbcm3)+16*(p4p8*p3p6*p2p3)*(-ffmcfmb*hbcm-hbcm)+16*(p3p6*p2p3
2543      . *p1p8)*(ffmcfmb*hbcm+hbcm)+8*(p4p8*p3p6)*(-ffmcfmb*fmb*hbcm2+
2544      . fmb*hbcm2-fmb2*hbcm)+8*(p3p6*p1p8)*(ffmcfmb*fmb*hbcm2-fmb*
2545      . hbcm2+fmb2*hbcm)+16*(-hbcm*p1p2*p1p8*p3p6+hbcm*p1p2*p3p6*p4p8+
2546      . hbcm*p1p8*p2p3*p4p6+hbcm*p1p8*p2p4*p3p6-hbcm*p2p3*p4p6*p4p8-
2547      . hbcm*p2p4*p3p6*p4p8))+w12*(8*(p4p6*p1p8)*(-ffmcfmb*hbcm3-fmb*
2548      . hbcm2+hbcm3)+16*(p3p6*p2p3*p1p8)*(ffmcfmb*hbcm+hbcm)+8*(p3p6*
2549      . p1p8)*(ffmcfmb*fmb*hbcm2-fmb*hbcm2+fmb2*hbcm)+16*(-hbcm*p1p2*
2550      . p1p8*p3p6+hbcm*p1p8*p2p3*p4p6+hbcm*p1p8*p2p4*p3p6))+ans2
2551       ans=ccc*ans1
2552       b(8)=ans
2553       b(9)=ccc*(8*(p4p6*p3p7)*(4*fb3*fmb+8*fb4*ffmcfmb*hbcm-8*fb4*
2554      . hbcm-hbcm)+8*(p4p7*p3p6)*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*
2555      . hbcm-hbcm)+8*(p6p7*p3p4)*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*
2556      . hbcm+hbcm)+8*(p6p7*p1p3)*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*
2557      . hbcm-hbcm)+16*(p3p7*p3p6)*(4*fb3*ffmcfmb*fmb+2*fb4*ffmcfmb**2*
2558      . hbcm-2*fb4*hbcm-ffmcfmb*hbcm)+8*p6p7*(-4*fb3*ffmcfmb*fmb*hbcm2
2559      . -2*fb4*ffmcfmb**2*hbcm3-2*fb4*fmb2*hbcm+2*fb4*hbcm3+ffmcfmb*
2560      . hbcm3)+32*(fb4*hbcm*p1p2*p6p7-fb4*hbcm*p2p3*p6p7-fb4*hbcm*p2p4
2561      . *p6p7))
2562       ans4=(8*(p7p8*p3p6)*(-4*fb3*fmb2-4*fb4*ffmcfmb*fmb*hbcm+4*fb4*
2563      . fmb*hbcm-fmb*hbcm+hbcm2)+64*(p4p8*p3p7*p3p6)*(-fb3*ffmcfmb+fb3
2564      . )+64*(p6p8*p3p7*p3p4)*(fb3*ffmcfmb-fb3)+64*(p7p8*p3p6*p2p3)*(-
2565      . fb3*ffmcfmb-fb3)+64*(p3p7*p3p6*p1p8)*(fb3*ffmcfmb-fb3)+64*(
2566      . p6p8*p3p7*p1p3)*(-fb3*ffmcfmb+fb3)+8*(p6p7*p4p8)*(4*fb3*
2567      . ffmcfmb*hbcm2-4*fb3*hbcm2+4*fb4*fmb*hbcm+hbcm2)+8*(p6p8*p4p7)*
2568      . (-4*fb3*ffmcfmb*hbcm2+4*fb3*hbcm2-4*fb4*fmb*hbcm-hbcm2)+8*(
2569      . p7p8*p4p6)*(4*fb3*ffmcfmb*hbcm2-4*fb3*hbcm2+4*fb4*fmb*hbcm+
2570      . hbcm2)+8*(p6p8*p3p7)*(4*fb3*ffmcfmb*hbcm2+4*fb3*fmb2-4*fb3*
2571      . hbcm2-4*fb4*ffmcfmb*fmb*hbcm-fmb*hbcm-hbcm2)+8*(p6p7*p1p8)*(-4
2572      . *fb3*ffmcfmb*hbcm2+4*fb3*hbcm2-4*fb4*fmb*hbcm-hbcm2)+64*(-fb3*
2573      . ffmcfmb*hbcm2*p2p8*p6p7+3*fb3*ffmcfmb*p2p8*p3p6*p3p7+fb3*p1p2*
2574      . p3p6*p7p8-fb3*p1p2*p3p7*p6p8+fb3*p1p3*p2p8*p6p7+fb3*p2p3*p3p7*
2575      . p6p8-fb3*p2p3*p4p6*p7p8-fb3*p2p4*p3p6*p7p8+fb3*p2p4*p3p7*p6p8-
2576      . fb3*p2p8*p3p4*p6p7+fb3*p2p8*p3p6*p4p7+2*fb3*p2p8*p3p7*p4p6))
2577       ans3=w12*(16*(p4p6*p3p7*p1p8)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16
2578      . *(p4p7*p3p6*p1p8)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(p6p7*
2579      . p3p4*p1p8)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(p6p7*p1p8*p1p3)*
2580      . (-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(p3p7*p3p6*p1p8)*(-2*
2581      . ffmcfmb*fmb*hbcm+fmb*hbcm)+8*(p6p7*p1p8)*(ffmcfmb**2*hbcm4+2*
2582      . ffmcfmb*fmb*hbcm3+fmb2*hbcm2-hbcm4)+16*(-hbcm2*p1p2*p1p8*p6p7+
2583      . hbcm2*p1p8*p2p3*p6p7+hbcm2*p1p8*p2p4*p6p7))+ans4
2584       ans2=w5*(16*(p4p8*p4p6*p3p7)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16
2585      . *(p4p8*p4p7*p3p6)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(p6p7*p4p8
2586      . *p3p4)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(p4p6*p3p7*p1p8)*(
2587      . ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(p4p7*p3p6*p1p8)*(-ffmcfmb*
2588      . hbcm2-fmb*hbcm+hbcm2)+16*(p6p7*p3p4*p1p8)*(ffmcfmb*hbcm2+fmb*
2589      . hbcm-hbcm2)+16*(p6p7*p4p8*p1p3)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)
2590      . +16*(p6p7*p1p8*p1p3)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(p4p8*
2591      . p3p7*p3p6)*(2*ffmcfmb*fmb*hbcm-fmb*hbcm)+16*(p3p7*p3p6*p1p8)*(
2592      . -2*ffmcfmb*fmb*hbcm+fmb*hbcm)+8*(p6p7*p4p8)*(-ffmcfmb**2*hbcm4
2593      . -2*ffmcfmb*fmb*hbcm3-fmb2*hbcm2+hbcm4)+8*(p6p7*p1p8)*(ffmcfmb
2594      . **2*hbcm4+2*ffmcfmb*fmb*hbcm3+fmb2*hbcm2-hbcm4)+16*(-hbcm2*
2595      . p1p2*p1p8*p6p7+hbcm2*p1p2*p4p8*p6p7+hbcm2*p1p8*p2p3*p6p7+hbcm2
2596      . *p1p8*p2p4*p6p7-hbcm2*p2p3*p4p8*p6p7-hbcm2*p2p4*p4p8*p6p7))+
2597      . ans3
2598       ans1=w8*(16*(p4p6*p3p7*p2p8)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16
2599      . *(p4p7*p3p6*p2p8)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(p6p7*p3p4
2600      . *p2p8)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(p6p7*p2p8*p1p3)*(
2601      . ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(p3p7*p3p6*p2p8)*(2*ffmcfmb*
2602      . fmb*hbcm-fmb*hbcm)+8*(p6p7*p2p8)*(-ffmcfmb**2*hbcm4-2*ffmcfmb*
2603      . fmb*hbcm3-fmb2*hbcm2+hbcm4)+16*(hbcm2*p1p2*p2p8*p6p7-hbcm2*
2604      . p2p3*p2p8*p6p7-hbcm2*p2p4*p2p8*p6p7))+ans2
2605       ans=ccc*ans1
2606       b(10)=ans
2607       ans=ccc*(w8*(4*p2p8*(-ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2-
2608      . ffmcfmb*fmc*hbcm2+2*ffmcfmb*hbcm3-fmb*fmc*hbcm-fmb*hbcm2+2*
2609      . fmb2*hbcm+fmc*hbcm2-hbcm3)+8*(hbcm*p1p2*p2p8-hbcm*p2p3*p2p8-3*
2610      . hbcm*p2p5*p2p8))+w5*(4*p4p8*(-ffmcfmb**2*hbcm3+ffmcfmb*fmb*
2611      . hbcm2-ffmcfmb*fmc*hbcm2+2*ffmcfmb*hbcm3-fmb*fmc*hbcm-fmb*hbcm2
2612      . +2*fmb2*hbcm+fmc*hbcm2-hbcm3)+4*p1p8*(ffmcfmb**2*hbcm3-ffmcfmb
2613      . *fmb*hbcm2+ffmcfmb*fmc*hbcm2-2*ffmcfmb*hbcm3+fmb*fmc*hbcm+fmb*
2614      . hbcm2-2*fmb2*hbcm-fmc*hbcm2+hbcm3)+8*(-hbcm*p1p2*p1p8+hbcm*
2615      . p1p2*p4p8+hbcm*p1p8*p2p3+3*hbcm*p1p8*p2p5-hbcm*p2p3*p4p8-3*
2616      . hbcm*p2p5*p4p8))+w12*(4*p1p8*(ffmcfmb**2*hbcm3-ffmcfmb*fmb*
2617      . hbcm2+ffmcfmb*fmc*hbcm2-2*ffmcfmb*hbcm3+fmb*fmc*hbcm+fmb*hbcm2
2618      . -2*fmb2*hbcm-fmc*hbcm2+hbcm3)+8*(-hbcm*p1p2*p1p8+hbcm*p1p8*
2619      . p2p3+3*hbcm*p1p8*p2p5))+(12*p5p8*(-4*fb3*fmb-4*fb4*ffmcfmb*
2620      . hbcm+4*fb4*hbcm+hbcm)+8*p2p8*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*
2621      . fb4*hbcm-hbcm)+4*p1p8*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm
2622      . -hbcm)))
2623       b(11)=ans
2624       b(12)=2*ccc*(-8*fb3*ffmcfmb**2*hbcm2+16*fb3*ffmcfmb*hbcm2+4*fb3
2625      . *fmb*fmc+12*fb3*fmb2-8*fb3*hbcm2+8*fb3*p1p2-8*fb3*p2p3-32*fb3*
2626      . p2p5+4*fb4*ffmcfmb*fmb*hbcm+4*fb4*ffmcfmb*fmc*hbcm-4*fb4*fmb*
2627      . hbcm-4*fb4*fmc*hbcm-fmb*hbcm-fmc*hbcm)
2628       ans2=w12*(16*(p3p5*p1p8)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(p2p3
2629      . *p1p8)*(-ffmcfmb*hbcm2-fmb*hbcm+2*hbcm2)+8*(p1p8*p1p3)*(-
2630      . ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+4*p1p8*(-ffmcfmb*fmb*hbcm3-
2631      . ffmcfmb*fmc*hbcm3+2*ffmcfmb*hbcm4-fmb*fmc*hbcm2+3*fmb*hbcm3-
2632      . fmb2*hbcm2+fmc*hbcm3-2*hbcm4)+8*(-hbcm2*p1p2*p1p8+2*hbcm2*p1p8
2633      . *p2p5))+(8*p5p8*(4*fb3*ffmcfmb*hbcm2-4*fb3*hbcm2+4*fb4*fmb*
2634      . hbcm+hbcm2)+4*p2p8*(-12*fb3*ffmcfmb*hbcm2+12*fb3*hbcm2-4*fb4*
2635      . fmb*hbcm-hbcm2)+4*p1p8*(-4*fb3*ffmcfmb*hbcm2+4*fb3*hbcm2-4*fb4
2636      . *fmb*hbcm-hbcm2)+32*(-fb3*p2p3*p5p8+fb3*p2p8*p3p5))
2637       ans1=w8*(16*(p3p5*p2p8)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(p2p8
2638      . *p2p3)*(ffmcfmb*hbcm2+fmb*hbcm-2*hbcm2)+8*(p2p8*p1p3)*(ffmcfmb
2639      . *hbcm2+fmb*hbcm-hbcm2)+4*p2p8*(ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*
2640      . hbcm3-2*ffmcfmb*hbcm4+fmb*fmc*hbcm2-3*fmb*hbcm3+fmb2*hbcm2-fmc
2641      . *hbcm3+2*hbcm4)+8*(hbcm2*p1p2*p2p8-2*hbcm2*p2p5*p2p8))+w5*(16*
2642      . (p4p8*p3p5)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(p4p8*p2p3)*(
2643      . ffmcfmb*hbcm2+fmb*hbcm-2*hbcm2)+16*(p3p5*p1p8)*(ffmcfmb*hbcm2+
2644      . fmb*hbcm-hbcm2)+8*(p2p3*p1p8)*(-ffmcfmb*hbcm2-fmb*hbcm+2*hbcm2
2645      . )+8*(p4p8*p1p3)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(p1p8*p1p3)*(
2646      . -ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+4*p4p8*(ffmcfmb*fmb*hbcm3+
2647      . ffmcfmb*fmc*hbcm3-2*ffmcfmb*hbcm4+fmb*fmc*hbcm2-3*fmb*hbcm3+
2648      . fmb2*hbcm2-fmc*hbcm3+2*hbcm4)+4*p1p8*(-ffmcfmb*fmb*hbcm3-
2649      . ffmcfmb*fmc*hbcm3+2*ffmcfmb*hbcm4-fmb*fmc*hbcm2+3*fmb*hbcm3-
2650      . fmb2*hbcm2+fmc*hbcm3-2*hbcm4)+8*(-hbcm2*p1p2*p1p8+hbcm2*p1p2*
2651      . p4p8+2*hbcm2*p1p8*p2p5-2*hbcm2*p2p5*p4p8))+ans2
2652       ans=ccc*ans1
2653       b(13)=ans
2654       b(14)=ccc*(12*p3p5*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-
2655      . hbcm)+8*p2p3*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+6*fb4*hbcm+hbcm)+4
2656      . *p1p3*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+hbcm)+2*(-12*
2657      . fb3*ffmcfmb*fmb*hbcm2+4*fb3*ffmcfmb*fmc*hbcm2+20*fb3*fmb*hbcm2
2658      . -4*fb3*fmc*hbcm2-4*fb4*ffmcfmb**2*hbcm3+16*fb4*ffmcfmb*hbcm3+4
2659      . *fb4*fmb*fmc*hbcm-8*fb4*fmb2*hbcm-8*fb4*hbcm*p1p2+24*fb4*hbcm*
2660      . p2p5-12*fb4*hbcm3+2*ffmcfmb*hbcm3-fmb*hbcm2+fmc*hbcm2-4*hbcm3)
2661      . )
2662       b(15)=ccc*(8*w8*(-hbcm2*p2p8*p3p6-2*hbcm2*p2p8*p4p6)+8*w5*(
2663      . hbcm2*p1p8*p3p6+2*hbcm2*p1p8*p4p6-hbcm2*p3p6*p4p8-2*hbcm2*p4p6
2664      . *p4p8)+8*w12*(hbcm2*p1p8*p3p6+2*hbcm2*p1p8*p4p6)+32*(-fb3*
2665      . ffmcfmb*hbcm2*p6p8+fb3*p1p3*p6p8-fb3*p1p8*p3p6-fb3*p3p4*p6p8+
2666      . fb3*p3p6*p4p8))
2667       b(16)=ccc*(w8*(8*(p3p6*p2p8)*(ffmcfmb*hbcm+hbcm)+24*hbcm*p2p8*
2668      . p4p6)+w5*(8*(p4p8*p3p6)*(ffmcfmb*hbcm+hbcm)+8*(p3p6*p1p8)*(-
2669      . ffmcfmb*hbcm-hbcm)+24*(-hbcm*p1p8*p4p6+hbcm*p4p6*p4p8))+w12*(8
2670      . *(p3p6*p1p8)*(-ffmcfmb*hbcm-hbcm)-24*hbcm*p1p8*p4p6)-4*hbcm*
2671      . p6p8)
2672       b(17)=ccc*(w8*(4*p2p8*(-2*ffmcfmb*hbcm3+fmb*hbcm2-fmc*hbcm2+4*
2673      . hbcm3)+8*(-hbcm*p1p3*p2p8-2*hbcm*p2p3*p2p8+3*hbcm*p2p8*p3p5))+
2674      . w5*(4*p4p8*(-2*ffmcfmb*hbcm3+fmb*hbcm2-fmc*hbcm2+4*hbcm3)+4*
2675      . p1p8*(2*ffmcfmb*hbcm3-fmb*hbcm2+fmc*hbcm2-4*hbcm3)+8*(hbcm*
2676      . p1p3*p1p8-hbcm*p1p3*p4p8+2*hbcm*p1p8*p2p3-3*hbcm*p1p8*p3p5-2*
2677      . hbcm*p2p3*p4p8+3*hbcm*p3p5*p4p8))+w12*(4*p1p8*(2*ffmcfmb*hbcm3
2678      . -fmb*hbcm2+fmc*hbcm2-4*hbcm3)+8*(hbcm*p1p3*p1p8+2*hbcm*p1p8*
2679      . p2p3-3*hbcm*p1p8*p3p5))+16*(fb4*hbcm*p1p8+2*fb4*hbcm*p2p8-3*
2680      . fb4*hbcm*p5p8))
2681       b(18)=ccc*(8*w8*(hbcm2*p2p8*p3p7+2*hbcm2*p2p8*p5p7)+8*w5*(-
2682      . hbcm2*p1p8*p3p7-2*hbcm2*p1p8*p5p7+hbcm2*p3p7*p4p8+2*hbcm2*p4p8
2683      . *p5p7)+8*w12*(-hbcm2*p1p8*p3p7-2*hbcm2*p1p8*p5p7)+(32*p7p8*(
2684      . fb3*ffmcfmb*hbcm2-fb3*hbcm2)+32*(fb3*p2p3*p7p8-fb3*p2p8*p3p7-
2685      . fb3*p3p5*p7p8+fb3*p3p7*p5p8)))
2686       b(19)=ccc*(4*w8*p2p8*(fmb*hbcm+fmc*hbcm)+w5*(4*p4p8*(fmb*hbcm+
2687      . fmc*hbcm)+4*p1p8*(-fmb*hbcm-fmc*hbcm))+4*w12*p1p8*(-fmb*hbcm-
2688      . fmc*hbcm)+16*(-fb3*p1p8-3*fb3*p2p8+4*fb3*p5p8))
2689       b(20)=ccc*(w8*(8*(p3p7*p2p8)*(-ffmcfmb*hbcm+2*hbcm)+24*hbcm*
2690      . p2p8*p5p7)+w5*(8*(p4p8*p3p7)*(-ffmcfmb*hbcm+2*hbcm)+8*(p3p7*
2691      . p1p8)*(ffmcfmb*hbcm-2*hbcm)+24*(-hbcm*p1p8*p5p7+hbcm*p4p8*p5p7
2692      . ))+w12*(8*(p3p7*p1p8)*(ffmcfmb*hbcm-2*hbcm)-24*hbcm*p1p8*p5p7)
2693      . +4*hbcm*p7p8)
2694       b(21)=8*ccc*(fb3*fmb-fb3*fmc)
2695       b(22)=8*ccc*(4*fb3*ffmcfmb*hbcm2-6*fb3*hbcm2+2*fb3*p1p3+6*fb3*
2696      . p2p3-8*fb3*p3p5-fb4*fmb*hbcm-fb4*fmc*hbcm)
2697       b(23)=ccc*(16*p3p7*(fb4*ffmcfmb*hbcm-2*fb4*hbcm)-48*fb4*hbcm*
2698      . p5p7)
2699       b(24)=ccc*(16*p3p6*(-fb4*ffmcfmb*hbcm-fb4*hbcm)-48*fb4*hbcm*
2700      . p4p6)
2701       b(25)=ccc*(12*p5p7*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-
2702      . hbcm)+4*p3p7*(-8*fb3*ffmcfmb*fmb+4*fb3*ffmcfmb*fmc+12*fb3*fmb-
2703      . 4*fb3*fmc-4*fb4*ffmcfmb**2*hbcm+12*fb4*ffmcfmb*hbcm-8*fb4*hbcm
2704      . +ffmcfmb*hbcm-2*hbcm))
2705       b(26)=ccc*(12*p4p6*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-
2706      . hbcm)+4*p3p6*(4*fb3*ffmcfmb*fmb+4*fb3*fmb+4*fb4*ffmcfmb**2*
2707      . hbcm-4*fb4*hbcm-ffmcfmb*hbcm-hbcm))
2708       b(27)=32*ccc*(fb3*ffmcfmb*hbcm2*p6p7-2*fb3*ffmcfmb*p3p6*p3p7-
2709      . fb3*p1p3*p6p7+fb3*p3p4*p6p7-fb3*p3p6*p4p7-fb3*p3p7*p4p6)
2710       b(28)=32*ccc*(-fb3*ffmcfmb*p3p6*p7p8-fb3*ffmcfmb*p3p7*p6p8-fb3*
2711      . p1p8*p6p7-fb3*p4p6*p7p8-fb3*p4p7*p6p8+fb3*p4p8*p6p7)
2712       b(29)=ccc*(16*p3p6*(-2*fb3*ffmcfmb-fb3)-64*fb3*p4p6)
2713       b(30)=ccc*(16*p3p7*(2*fb3*ffmcfmb-3*fb3)-64*fb3*p5p7)
2714       b(31)=ccc*(16*w8*(2*ffmcfmb*hbcm*p2p8*p3p6*p3p7-ffmcfmb*hbcm3*
2715      . p2p8*p6p7+hbcm*p1p3*p2p8*p6p7-hbcm*p2p8*p3p4*p6p7+hbcm*p2p8*
2716      . p3p6*p4p7+hbcm*p2p8*p3p7*p4p6)+16*w5*(-2*ffmcfmb*hbcm*p1p8*
2717      . p3p6*p3p7+2*ffmcfmb*hbcm*p3p6*p3p7*p4p8+ffmcfmb*hbcm3*p1p8*
2718      . p6p7-ffmcfmb*hbcm3*p4p8*p6p7-hbcm*p1p3*p1p8*p6p7+hbcm*p1p3*
2719      . p4p8*p6p7+hbcm*p1p8*p3p4*p6p7-hbcm*p1p8*p3p6*p4p7-hbcm*p1p8*
2720      . p3p7*p4p6-hbcm*p3p4*p4p8*p6p7+hbcm*p3p6*p4p7*p4p8+hbcm*p3p7*
2721      . p4p6*p4p8)+16*w12*(-2*ffmcfmb*hbcm*p1p8*p3p6*p3p7+ffmcfmb*
2722      . hbcm3*p1p8*p6p7-hbcm*p1p3*p1p8*p6p7+hbcm*p1p8*p3p4*p6p7-hbcm*
2723      . p1p8*p3p6*p4p7-hbcm*p1p8*p3p7*p4p6)+(8*(p6p8*p3p7)*(-4*fb4*
2724      . ffmcfmb*hbcm-hbcm)+8*(p7p8*p3p6)*(-4*fb4*ffmcfmb*hbcm-hbcm)+32
2725      . *(-fb4*hbcm*p1p8*p6p7-fb4*hbcm*p4p6*p7p8-fb4*hbcm*p4p7*p6p8+
2726      . fb4*hbcm*p4p8*p6p7)))
2727       do 200 n=1,32
2728          c(n,1)=c(n,1)-0.1818181818181818d0*b(n)
2729          c(n,2)=c(n,2)-0.05883183899358491d0*b(n)
2730          c(n,3)=c(n,3)-0.2077659977796572d0*b(n)
2731 200   continue
2732       return
2733         end
2734
2735       subroutine amp20_1p1(cc)
2736       implicit double precision(a-h,o-z)
2737       implicit integer (i-n)
2738       dimension b(32)
2739 #include "inclcon.h"
2740 #include "inclppp.h"
2741 #include "inclamp.h"
2742       do 100 n=1,32
2743          b(n)=0.0d0
2744 100   continue
2745       ccc=cc/((ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2)*(ffmcfmb**2*
2746      . hbcm2-2*ffmcfmb*hbcm2+2*ffmcfmb*p1p3-fmb2+hbcm2-2*p1p3)*(
2747      . ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+2*ffmcfmb*p3p5+fmc2+2*p4p5))
2748       b(1)=ccc*(64*(p4p6*p3p7)*(fb3*ffmcfmb-fb3)+32*(p4p7*p3p6)*(-fb3
2749      . *ffmcfmb+fb3)+16*p6p7*(fb3*ffmcfmb**2*hbcm2-2*fb3*ffmcfmb*
2750      . hbcm2-fb3*fmc2)+32*(fb3*ffmcfmb*p1p3*p6p7-fb3*ffmcfmb*p3p6*
2751      . p5p7+fb3*p1p4*p6p7-fb3*p3p4*p6p7+fb3*p3p7*p5p6-fb3*p4p6*p5p7+
2752      . fb3*p4p7*p5p6))
2753       ans3=(8*(p7p8*p3p6)*(-ffmcfmb*hbcm+hbcm)+32*(p6p8*p5p7)*(-fb3*
2754      . fmc-fb4*ffmcfmb*hbcm)+32*(p6p8*p4p7)*(-fb3*fmc-fb4*ffmcfmb*
2755      . hbcm)+8*(p6p7*p2p8)*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+8*(
2756      . p6p8*p3p7)*(-4*fb3*ffmcfmb*fmb+4*fb3*ffmcfmb*fmc+4*fb3*fmb-8*
2757      . fb3*fmc-4*fb4*ffmcfmb*hbcm-ffmcfmb*hbcm+hbcm)+8*(hbcm*p1p8*
2758      . p6p7+hbcm*p4p6*p7p8))
2759       ans2=w1*(16*(p4p8*p4p6*p3p7)*(-ffmcfmb*hbcm+hbcm)+16*(p4p8*p4p7
2760      . *p3p6)*(ffmcfmb*hbcm-hbcm)+8*(p6p7*p4p8)*(-ffmcfmb**2*hbcm3+2*
2761      . ffmcfmb*hbcm3+fmc2*hbcm)+16*(p4p8*p3p7*p3p6)*(ffmcfmb**2*hbcm-
2762      . ffmcfmb*hbcm)+16*(-ffmcfmb*hbcm*p1p3*p4p8*p6p7+ffmcfmb*hbcm*
2763      . p3p6*p4p8*p5p7-hbcm*p1p4*p4p8*p6p7+hbcm*p3p4*p4p8*p6p7-hbcm*
2764      . p3p7*p4p8*p5p6+hbcm*p4p6*p4p8*p5p7-hbcm*p4p7*p4p8*p5p6))+w13*(
2765      . 16*(p4p6*p3p7*p1p8)*(-ffmcfmb*hbcm+hbcm)+16*(p4p7*p3p6*p1p8)*(
2766      . ffmcfmb*hbcm-hbcm)+8*(p6p7*p1p8)*(-ffmcfmb**2*hbcm3+2*ffmcfmb*
2767      . hbcm3+fmc2*hbcm)+16*(p3p7*p3p6*p1p8)*(ffmcfmb**2*hbcm-ffmcfmb*
2768      . hbcm)+16*(-ffmcfmb*hbcm*p1p3*p1p8*p6p7+ffmcfmb*hbcm*p1p8*p3p6*
2769      . p5p7-hbcm*p1p4*p1p8*p6p7+hbcm*p1p8*p3p4*p6p7-hbcm*p1p8*p3p7*
2770      . p5p6+hbcm*p1p8*p4p6*p5p7-hbcm*p1p8*p4p7*p5p6))+ans3
2771       ans1=w18*(16*(p5p8*p4p6*p3p7)*(-ffmcfmb*hbcm+hbcm)+16*(p4p8*
2772      . p4p6*p3p7)*(-ffmcfmb*hbcm+hbcm)+16*(p5p8*p4p7*p3p6)*(ffmcfmb*
2773      . hbcm-hbcm)+16*(p4p8*p4p7*p3p6)*(ffmcfmb*hbcm-hbcm)+8*(p6p7*
2774      . p5p8)*(-ffmcfmb**2*hbcm3+2*ffmcfmb*hbcm3+fmc2*hbcm)+8*(p6p7*
2775      . p4p8)*(-ffmcfmb**2*hbcm3+2*ffmcfmb*hbcm3+fmc2*hbcm)+16*(p5p8*
2776      . p3p7*p3p6)*(ffmcfmb**2*hbcm-ffmcfmb*hbcm)+16*(p4p8*p3p7*p3p6)*
2777      . (ffmcfmb**2*hbcm-ffmcfmb*hbcm)+16*(-ffmcfmb*hbcm*p1p3*p4p8*
2778      . p6p7-ffmcfmb*hbcm*p1p3*p5p8*p6p7+ffmcfmb*hbcm*p3p6*p4p8*p5p7+
2779      . ffmcfmb*hbcm*p3p6*p5p7*p5p8-hbcm*p1p4*p4p8*p6p7-hbcm*p1p4*p5p8
2780      . *p6p7+hbcm*p3p4*p4p8*p6p7+hbcm*p3p4*p5p8*p6p7-hbcm*p3p7*p4p8*
2781      . p5p6-hbcm*p3p7*p5p6*p5p8+hbcm*p4p6*p4p8*p5p7+hbcm*p4p6*p5p7*
2782      . p5p8-hbcm*p4p7*p4p8*p5p6-hbcm*p4p7*p5p6*p5p8))+ans2
2783       ans=ccc*ans1
2784       b(2)=ans
2785       ans2=(4*p7p8*(4*fb3*ffmcfmb**2*hbcm2-8*fb3*ffmcfmb*hbcm2-4*fb3*
2786      . fmc2+fmb*hbcm+fmc*hbcm)+32*(fb3*ffmcfmb*p1p3*p7p8+fb3*ffmcfmb*
2787      . p1p8*p3p7-2*fb3*ffmcfmb*p3p7*p5p8+fb3*p1p4*p7p8+2*fb3*p1p8*
2788      . p4p7-fb3*p1p8*p5p7-fb3*p3p4*p7p8+fb3*p3p7*p4p8-3*fb3*p4p7*p5p8
2789      . +3*fb3*p4p8*p5p7))
2790       ans1=w18*(8*(p5p8*p5p7)*(ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm)+8*(
2791      . p5p7*p4p8)*(ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm)+8*(p5p8*p4p7)*(
2792      . ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm)+8*(p4p8*p4p7)*(ffmcfmb*
2793      . hbcm2-fmb*hbcm-2*fmc*hbcm)+8*(p5p8*p3p7)*(-ffmcfmb*fmb*hbcm-
2794      . ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-fmc*hbcm)+8*(p4p8*p3p7)*(-
2795      . ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-fmc*hbcm))+w1*
2796      . (8*(p5p7*p4p8)*(ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm)+8*(p4p8*
2797      . p4p7)*(ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm)+8*(p4p8*p3p7)*(-
2798      . ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-fmc*hbcm))+w13
2799      . *(8*(p5p7*p1p8)*(ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm)+8*(p4p7*
2800      . p1p8)*(ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm)+8*(p3p7*p1p8)*(-
2801      . ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-fmc*hbcm))+
2802      . ans2
2803       ans=ccc*ans1
2804       b(3)=ans
2805       b(4)=ccc*(4*p5p7*(-4*fb3*ffmcfmb*hbcm2-8*fb3*hbcm2+4*fb4*fmb*
2806      . hbcm+8*fb4*fmc*hbcm-hbcm2)+4*p4p7*(-4*fb3*ffmcfmb*hbcm2+16*fb3
2807      . *hbcm2+4*fb4*fmb*hbcm+8*fb4*fmc*hbcm-hbcm2)+4*p3p7*(-4*fb3*
2808      . ffmcfmb**2*hbcm2+12*fb3*ffmcfmb*hbcm2+4*fb3*fmc2+4*fb4*ffmcfmb
2809      . *fmb*hbcm+4*fb4*ffmcfmb*fmc*hbcm+4*fb4*fmc*hbcm-hbcm2)+32*(-2*
2810      . fb3*ffmcfmb*p1p3*p3p7-2*fb3*ffmcfmb*p2p3*p3p7+2*fb3*ffmcfmb*
2811      . p3p5*p3p7-2*fb3*p1p3*p4p7+fb3*p1p3*p5p7-fb3*p1p4*p3p7-3*fb3*
2812      . p2p3*p4p7+fb3*p2p3*p5p7-3*fb3*p3p4*p5p7+3*fb3*p3p5*p4p7))
2813       ans3=(8*(p5p8*p3p7)*(4*fb3*fmc+8*fb4*ffmcfmb*hbcm-hbcm)+8*(p4p8
2814      . *p3p7)*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm)+16*(p7p8
2815      . *p3p5)*(-2*fb3*fmc-2*fb4*ffmcfmb*hbcm+hbcm)+8*(p7p8*p3p4)*(-4*
2816      . fb3*fmc-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+hbcm)+8*(p3p7*p2p8)*(-4*
2817      . fb3*fmc-8*fb4*ffmcfmb*hbcm+hbcm)+16*(p7p8*p2p3)*(2*fb3*fmc+2*
2818      . fb4*ffmcfmb*hbcm-hbcm)+32*(p3p7*p1p8)*(-fb3*fmc-fb4*ffmcfmb*
2819      . hbcm)+8*(p7p8*p1p3)*(4*fb3*fmc-hbcm)+4*p7p8*(-8*fb3*fmc*hbcm2-
2820      . 4*fb4*ffmcfmb**2*hbcm3+4*fb4*fmc2*hbcm+ffmcfmb*hbcm3+fmb*hbcm2
2821      . +2*hbcm3)+32*(-fb4*hbcm*p1p4*p7p8-fb4*hbcm*p1p8*p4p7+fb4*hbcm*
2822      . p1p8*p5p7-2*fb4*hbcm*p2p8*p4p7+fb4*hbcm*p2p8*p5p7+2*fb4*hbcm*
2823      . p4p7*p5p8-2*fb4*hbcm*p4p8*p5p7))
2824       ans2=w1*(8*(p5p7*p4p8)*(-fmb*hbcm2+fmc*hbcm2+2*hbcm3)+8*(p4p8*
2825      . p4p7)*(-fmb*hbcm2+fmc*hbcm2-2*hbcm3)+8*(p4p8*p3p7)*(-ffmcfmb*
2826      . fmb*hbcm2-ffmcfmb*hbcm3+fmc*hbcm2-fmc2*hbcm)+16*(ffmcfmb*hbcm*
2827      . p1p3*p3p7*p4p8+ffmcfmb*hbcm*p2p3*p3p7*p4p8-ffmcfmb*hbcm*p3p5*
2828      . p3p7*p4p8+hbcm*p1p3*p4p7*p4p8-hbcm*p1p3*p4p8*p5p7+hbcm*p1p4*
2829      . p3p7*p4p8+2*hbcm*p2p3*p4p7*p4p8-hbcm*p2p3*p4p8*p5p7+2*hbcm*
2830      . p3p4*p4p8*p5p7-2*hbcm*p3p5*p4p7*p4p8))+w13*(8*(p5p7*p1p8)*(-
2831      . fmb*hbcm2+fmc*hbcm2+2*hbcm3)+8*(p4p7*p1p8)*(-fmb*hbcm2+fmc*
2832      . hbcm2-2*hbcm3)+8*(p3p7*p1p8)*(-ffmcfmb*fmb*hbcm2-ffmcfmb*hbcm3
2833      . +fmc*hbcm2-fmc2*hbcm)+16*(ffmcfmb*hbcm*p1p3*p1p8*p3p7+ffmcfmb*
2834      . hbcm*p1p8*p2p3*p3p7-ffmcfmb*hbcm*p1p8*p3p5*p3p7+hbcm*p1p3*p1p8
2835      . *p4p7-hbcm*p1p3*p1p8*p5p7+hbcm*p1p4*p1p8*p3p7+2*hbcm*p1p8*p2p3
2836      . *p4p7-hbcm*p1p8*p2p3*p5p7+2*hbcm*p1p8*p3p4*p5p7-2*hbcm*p1p8*
2837      . p3p5*p4p7))+ans3
2838       ans1=w18*(8*(p5p8*p5p7)*(-fmb*hbcm2+fmc*hbcm2+2*hbcm3)+8*(p5p7*
2839      . p4p8)*(-fmb*hbcm2+fmc*hbcm2+2*hbcm3)+8*(p5p8*p4p7)*(-fmb*hbcm2
2840      . +fmc*hbcm2-2*hbcm3)+8*(p4p8*p4p7)*(-fmb*hbcm2+fmc*hbcm2-2*
2841      . hbcm3)+8*(p5p8*p3p7)*(-ffmcfmb*fmb*hbcm2-ffmcfmb*hbcm3+fmc*
2842      . hbcm2-fmc2*hbcm)+8*(p4p8*p3p7)*(-ffmcfmb*fmb*hbcm2-ffmcfmb*
2843      . hbcm3+fmc*hbcm2-fmc2*hbcm)+16*(ffmcfmb*hbcm*p1p3*p3p7*p4p8+
2844      . ffmcfmb*hbcm*p1p3*p3p7*p5p8+ffmcfmb*hbcm*p2p3*p3p7*p4p8+
2845      . ffmcfmb*hbcm*p2p3*p3p7*p5p8-ffmcfmb*hbcm*p3p5*p3p7*p4p8-
2846      . ffmcfmb*hbcm*p3p5*p3p7*p5p8+hbcm*p1p3*p4p7*p4p8+hbcm*p1p3*p4p7
2847      . *p5p8-hbcm*p1p3*p4p8*p5p7-hbcm*p1p3*p5p7*p5p8+hbcm*p1p4*p3p7*
2848      . p4p8+hbcm*p1p4*p3p7*p5p8+2*hbcm*p2p3*p4p7*p4p8+2*hbcm*p2p3*
2849      . p4p7*p5p8-hbcm*p2p3*p4p8*p5p7-hbcm*p2p3*p5p7*p5p8+2*hbcm*p3p4*
2850      . p4p8*p5p7+2*hbcm*p3p4*p5p7*p5p8-2*hbcm*p3p5*p4p7*p4p8-2*hbcm*
2851      . p3p5*p4p7*p5p8))+ans2
2852       ans=ccc*ans1
2853       b(5)=ans
2854       ans=ccc*(w18*(8*(p5p8*p5p6)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p5p6*
2855      . p4p8)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p5p8*p4p6)*(ffmcfmb*hbcm2-
2856      . fmc*hbcm)+8*(p4p8*p4p6)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p5p8*p3p6)
2857      . *(ffmcfmb*hbcm2-fmc*hbcm)+8*(p4p8*p3p6)*(ffmcfmb*hbcm2-fmc*
2858      . hbcm))+w1*(8*(p5p6*p4p8)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p4p8*p4p6
2859      . )*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p4p8*p3p6)*(ffmcfmb*hbcm2-fmc*
2860      . hbcm))+w13*(8*(p5p6*p1p8)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p4p6*
2861      . p1p8)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p3p6*p1p8)*(ffmcfmb*hbcm2-
2862      . fmc*hbcm))+(32*(p4p8*p3p6)*(-fb3*ffmcfmb+fb3)+16*p6p8*(fb3*
2863      . ffmcfmb**2*hbcm2-2*fb3*ffmcfmb*hbcm2+2*fb3*fmb2-3*fb3*fmc2)+32
2864      . *(fb3*ffmcfmb*p1p3*p6p8+fb3*ffmcfmb*p1p8*p3p6-fb3*ffmcfmb*p3p6
2865      . *p5p8+2*fb3*p1p4*p6p8-fb3*p1p5*p6p8+fb3*p1p8*p4p6-2*fb3*p3p4*
2866      . p6p8+fb3*p3p5*p6p8-fb3*p4p6*p5p8+fb3*p4p8*p5p6)))
2867       b(6)=ans
2868       b(7)=ccc*(32*(p3p6*p3p5)*(fb3*ffmcfmb-fb3)+32*(p3p6*p3p4)*(fb3*
2869      . ffmcfmb+fb3)+4*p5p6*(-4*fb3*ffmcfmb*hbcm2+4*fb4*fmc*hbcm-hbcm2
2870      . )+4*p4p6*(-4*fb3*ffmcfmb*hbcm2+8*fb3*hbcm2+4*fb4*fmc*hbcm-
2871      . hbcm2)+4*p3p6*(-4*fb3*ffmcfmb**2*hbcm2+12*fb3*ffmcfmb*hbcm2-8*
2872      . fb3*fmb2+12*fb3*fmc2+4*fb4*fmc*hbcm-hbcm2)+32*(-2*fb3*ffmcfmb*
2873      . p1p3*p3p6-fb3*p1p3*p4p6-2*fb3*p1p4*p3p6+fb3*p1p5*p3p6-fb3*p3p4
2874      . *p5p6+fb3*p3p5*p4p6))
2875       ans3=(8*(p5p8*p3p6)*(-4*fb3*fmc+hbcm)+8*(p4p8*p3p6)*(-4*fb3*fmc
2876      . -4*fb4*hbcm+hbcm)+32*(p6p8*p3p5)*(fb3*fmc+fb4*ffmcfmb*hbcm-fb4
2877      . *hbcm)+32*(p6p8*p3p4)*(fb3*fmc+fb4*ffmcfmb*hbcm+fb4*hbcm)+8*(
2878      . p3p6*p1p8)*(4*fb3*fmc-hbcm)+32*(p6p8*p1p3)*(-fb3*fmc-fb4*
2879      . ffmcfmb*hbcm)+32*p6p8*(fb3*fmc*hbcm2+fb4*ffmcfmb*hbcm3-fb4*
2880      . fmb2*hbcm+fb4*fmc2*hbcm)+32*(-fb4*hbcm*p1p4*p6p8+fb4*hbcm*p1p5
2881      . *p6p8-fb4*hbcm*p1p8*p4p6+fb4*hbcm*p4p6*p5p8-fb4*hbcm*p4p8*p5p6
2882      . ))
2883       ans2=w1*(8*(p5p6*p4p8)*(ffmcfmb*hbcm3+fmc*hbcm2)+8*(p4p8*p4p6)*
2884      . (ffmcfmb*hbcm3+fmc*hbcm2-2*hbcm3)+8*(p4p8*p3p6)*(-ffmcfmb*
2885      . hbcm3+2*fmb2*hbcm+fmc*hbcm2-2*fmc2*hbcm)+16*(p4p8*p3p6*p3p5)*(
2886      . -ffmcfmb*hbcm+hbcm)+16*(ffmcfmb*hbcm*p1p3*p3p6*p4p8-ffmcfmb*
2887      . hbcm*p3p4*p3p6*p4p8+hbcm*p1p3*p4p6*p4p8+hbcm*p1p4*p3p6*p4p8-
2888      . hbcm*p1p5*p3p6*p4p8+hbcm*p3p4*p4p8*p5p6-hbcm*p3p5*p4p6*p4p8))+
2889      . w13*(8*(p5p6*p1p8)*(ffmcfmb*hbcm3+fmc*hbcm2)+8*(p4p6*p1p8)*(
2890      . ffmcfmb*hbcm3+fmc*hbcm2-2*hbcm3)+8*(p3p6*p1p8)*(-ffmcfmb*hbcm3
2891      . +2*fmb2*hbcm+fmc*hbcm2-2*fmc2*hbcm)+16*(p3p6*p3p5*p1p8)*(-
2892      . ffmcfmb*hbcm+hbcm)+16*(ffmcfmb*hbcm*p1p3*p1p8*p3p6-ffmcfmb*
2893      . hbcm*p1p8*p3p4*p3p6+hbcm*p1p3*p1p8*p4p6+hbcm*p1p4*p1p8*p3p6-
2894      . hbcm*p1p5*p1p8*p3p6+hbcm*p1p8*p3p4*p5p6-hbcm*p1p8*p3p5*p4p6))+
2895      . ans3
2896       ans1=w18*(8*(p5p8*p5p6)*(ffmcfmb*hbcm3+fmc*hbcm2)+8*(p5p6*p4p8)
2897      . *(ffmcfmb*hbcm3+fmc*hbcm2)+8*(p5p8*p4p6)*(ffmcfmb*hbcm3+fmc*
2898      . hbcm2-2*hbcm3)+8*(p4p8*p4p6)*(ffmcfmb*hbcm3+fmc*hbcm2-2*hbcm3)
2899      . +8*(p5p8*p3p6)*(-ffmcfmb*hbcm3+2*fmb2*hbcm+fmc*hbcm2-2*fmc2*
2900      . hbcm)+8*(p4p8*p3p6)*(-ffmcfmb*hbcm3+2*fmb2*hbcm+fmc*hbcm2-2*
2901      . fmc2*hbcm)+16*(p5p8*p3p6*p3p5)*(-ffmcfmb*hbcm+hbcm)+16*(p4p8*
2902      . p3p6*p3p5)*(-ffmcfmb*hbcm+hbcm)+16*(ffmcfmb*hbcm*p1p3*p3p6*
2903      . p4p8+ffmcfmb*hbcm*p1p3*p3p6*p5p8-ffmcfmb*hbcm*p3p4*p3p6*p4p8-
2904      . ffmcfmb*hbcm*p3p4*p3p6*p5p8+hbcm*p1p3*p4p6*p4p8+hbcm*p1p3*p4p6
2905      . *p5p8+hbcm*p1p4*p3p6*p4p8+hbcm*p1p4*p3p6*p5p8-hbcm*p1p5*p3p6*
2906      . p4p8-hbcm*p1p5*p3p6*p5p8+hbcm*p3p4*p4p8*p5p6+hbcm*p3p4*p5p6*
2907      . p5p8-hbcm*p3p5*p4p6*p4p8-hbcm*p3p5*p4p6*p5p8))+ans2
2908       ans=ccc*ans1
2909       b(8)=ans
2910       b(9)=ccc*(32*(p4p6*p3p7)*(fb4*ffmcfmb*hbcm-fb4*hbcm)+16*p6p7*(
2911      . fb4*ffmcfmb**2*hbcm3-2*fb4*ffmcfmb*hbcm3-fb4*fmc2*hbcm)+8*(
2912      . p5p7*p3p6)*(4*fb3*fmc-hbcm)+8*(p4p7*p3p6)*(4*fb3*fmc+4*fb4*
2913      . hbcm-hbcm)+8*(p6p7*p2p3)*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+8
2914      . *(p3p7*p3p6)*(4*fb3*ffmcfmb*fmb-4*fb3*ffmcfmb*fmc-4*fb3*fmb+8*
2915      . fb3*fmc-4*fb4*ffmcfmb**2*hbcm+8*fb4*ffmcfmb*hbcm-hbcm)+32*(fb4
2916      . *ffmcfmb*hbcm*p1p3*p6p7+fb4*hbcm*p1p4*p6p7-fb4*hbcm*p3p4*p6p7+
2917      . fb4*hbcm*p3p7*p5p6-fb4*hbcm*p4p6*p5p7+fb4*hbcm*p4p7*p5p6))
2918       ans4=8*(8*fb3*ffmcfmb*p1p3*p3p6*p7p8-8*fb3*ffmcfmb*p1p3*p3p7*
2919      . p6p8+16*fb3*ffmcfmb*p2p8*p3p6*p3p7-8*fb3*ffmcfmb*p3p4*p3p6*
2920      . p7p8+8*fb3*ffmcfmb*p3p4*p3p7*p6p8+8*fb3*p1p3*p4p6*p7p8-8*fb3*
2921      . p1p3*p4p7*p6p8+8*fb3*p1p4*p3p6*p7p8-8*fb3*p1p4*p3p7*p6p8-8*fb3
2922      . *p1p5*p3p6*p7p8+8*fb3*p1p5*p3p7*p6p8+8*fb3*p1p8*p3p6*p4p7-8*
2923      . fb3*p1p8*p3p7*p4p6-8*fb3*p2p8*p3p4*p6p7+16*fb3*p2p8*p3p6*p4p7-
2924      . 8*fb3*p2p8*p3p6*p5p7+8*fb3*p2p8*p3p7*p4p6+8*fb3*p3p4*p5p6*p7p8
2925      . -8*fb3*p3p4*p5p7*p6p8-8*fb3*p3p5*p4p6*p7p8+8*fb3*p3p5*p4p7*
2926      . p6p8-8*fb3*p3p6*p4p7*p5p8+8*fb3*p3p6*p4p8*p5p7+8*fb3*p3p7*p4p6
2927      . *p5p8-8*fb3*p3p7*p4p8*p5p6-hbcm2*p1p8*p6p7)
2928       ans3=64*(p5p8*p3p7*p3p6)*(fb3*ffmcfmb-fb3)+64*(p7p8*p3p6*p3p5)*
2929      . (-fb3*ffmcfmb+fb3)+32*(p6p8*p5p7)*(-fb3*ffmcfmb*hbcm2+fb4*fmc*
2930      . hbcm)+8*(p7p8*p5p6)*(4*fb3*ffmcfmb*hbcm2-4*fb4*fmc*hbcm+hbcm2)
2931      . +32*(p6p8*p4p7)*(-fb3*ffmcfmb*hbcm2+2*fb3*hbcm2+fb4*fmc*hbcm)+
2932      . 8*(p7p8*p4p6)*(4*fb3*ffmcfmb*hbcm2-8*fb3*hbcm2-4*fb4*fmc*hbcm+
2933      . hbcm2)+8*(p7p8*p3p6)*(-4*fb3*ffmcfmb*hbcm2+8*fb3*fmb2-8*fb3*
2934      . fmc2-4*fb4*fmc*hbcm+ffmcfmb*hbcm2-fmb*hbcm)+8*(p6p7*p2p8)*(-4*
2935      . fb3*ffmcfmb*hbcm2+4*fb4*fmc*hbcm-hbcm2)+8*(p6p8*p3p7)*(-4*fb3*
2936      . ffmcfmb**2*hbcm2+8*fb3*ffmcfmb*hbcm2-8*fb3*fmb2+8*fb3*fmc2-4*
2937      . fb4*ffmcfmb*fmb*hbcm+4*fb4*fmb*hbcm+4*fb4*fmc*hbcm+ffmcfmb*
2938      . hbcm2-hbcm2)+ans4
2939       ans2=w1*(16*(p4p8*p4p7*p3p6)*(-fmc*hbcm+hbcm2)+16*(p5p6*p4p8*
2940      . p3p7)*(-ffmcfmb*hbcm2+fmc*hbcm+hbcm2)+16*(p4p8*p4p6*p3p7)*(-
2941      . ffmcfmb*hbcm2+fmc*hbcm)+8*(p6p7*p4p8)*(ffmcfmb**2*hbcm4-2*
2942      . ffmcfmb*hbcm4-fmc2*hbcm2)+16*(p4p8*p3p7*p3p6)*(-ffmcfmb**2*
2943      . hbcm2+ffmcfmb*fmb*hbcm+ffmcfmb*hbcm2-fmb*hbcm)+16*(ffmcfmb*
2944      . hbcm2*p1p3*p4p8*p6p7-fmc*hbcm*p3p6*p4p8*p5p7+hbcm2*p1p4*p4p8*
2945      . p6p7-hbcm2*p3p4*p4p8*p6p7-hbcm2*p4p6*p4p8*p5p7+hbcm2*p4p7*p4p8
2946      . *p5p6))+w13*(16*(p4p7*p3p6*p1p8)*(-fmc*hbcm+hbcm2)+16*(p5p6*
2947      . p3p7*p1p8)*(-ffmcfmb*hbcm2+fmc*hbcm+hbcm2)+16*(p4p6*p3p7*p1p8)
2948      . *(-ffmcfmb*hbcm2+fmc*hbcm)+8*(p6p7*p1p8)*(ffmcfmb**2*hbcm4-2*
2949      . ffmcfmb*hbcm4-fmc2*hbcm2)+16*(p3p7*p3p6*p1p8)*(-ffmcfmb**2*
2950      . hbcm2+ffmcfmb*fmb*hbcm+ffmcfmb*hbcm2-fmb*hbcm)+16*(ffmcfmb*
2951      . hbcm2*p1p3*p1p8*p6p7-fmc*hbcm*p1p8*p3p6*p5p7+hbcm2*p1p4*p1p8*
2952      . p6p7-hbcm2*p1p8*p3p4*p6p7-hbcm2*p1p8*p4p6*p5p7+hbcm2*p1p8*p4p7
2953      . *p5p6))+ans3
2954       ans1=w18*(16*(p5p8*p4p7*p3p6)*(-fmc*hbcm+hbcm2)+16*(p4p8*p4p7*
2955      . p3p6)*(-fmc*hbcm+hbcm2)+16*(p5p8*p5p6*p3p7)*(-ffmcfmb*hbcm2+
2956      . fmc*hbcm+hbcm2)+16*(p5p6*p4p8*p3p7)*(-ffmcfmb*hbcm2+fmc*hbcm+
2957      . hbcm2)+16*(p5p8*p4p6*p3p7)*(-ffmcfmb*hbcm2+fmc*hbcm)+16*(p4p8*
2958      . p4p6*p3p7)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(p6p7*p5p8)*(ffmcfmb**2
2959      . *hbcm4-2*ffmcfmb*hbcm4-fmc2*hbcm2)+8*(p6p7*p4p8)*(ffmcfmb**2*
2960      . hbcm4-2*ffmcfmb*hbcm4-fmc2*hbcm2)+16*(p5p8*p3p7*p3p6)*(-
2961      . ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm+ffmcfmb*hbcm2-fmb*hbcm)+16*(
2962      . p4p8*p3p7*p3p6)*(-ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm+ffmcfmb*
2963      . hbcm2-fmb*hbcm)+16*(ffmcfmb*hbcm2*p1p3*p4p8*p6p7+ffmcfmb*hbcm2
2964      . *p1p3*p5p8*p6p7-fmc*hbcm*p3p6*p4p8*p5p7-fmc*hbcm*p3p6*p5p7*
2965      . p5p8+hbcm2*p1p4*p4p8*p6p7+hbcm2*p1p4*p5p8*p6p7-hbcm2*p3p4*p4p8
2966      . *p6p7-hbcm2*p3p4*p5p8*p6p7-hbcm2*p4p6*p4p8*p5p7-hbcm2*p4p6*
2967      . p5p7*p5p8+hbcm2*p4p7*p4p8*p5p6+hbcm2*p4p7*p5p6*p5p8))+ans2
2968       ans=ccc*ans1
2969       b(10)=ans
2970       ans=ccc*(w18*(4*p5p8*(-ffmcfmb**2*hbcm3+2*ffmcfmb*hbcm3-2*fmb2*
2971      . hbcm+3*fmc2*hbcm)+4*p4p8*(-ffmcfmb**2*hbcm3+2*ffmcfmb*hbcm3-2*
2972      . fmb2*hbcm+3*fmc2*hbcm)+8*(-ffmcfmb*hbcm*p1p3*p4p8-ffmcfmb*hbcm
2973      . *p1p3*p5p8-2*hbcm*p1p4*p4p8-2*hbcm*p1p4*p5p8+hbcm*p1p5*p4p8+
2974      . hbcm*p1p5*p5p8+2*hbcm*p3p4*p4p8+2*hbcm*p3p4*p5p8-hbcm*p3p5*
2975      . p4p8-hbcm*p3p5*p5p8))+w1*(4*p4p8*(-ffmcfmb**2*hbcm3+2*ffmcfmb*
2976      . hbcm3-2*fmb2*hbcm+3*fmc2*hbcm)+8*(-ffmcfmb*hbcm*p1p3*p4p8-2*
2977      . hbcm*p1p4*p4p8+hbcm*p1p5*p4p8+2*hbcm*p3p4*p4p8-hbcm*p3p5*p4p8)
2978      . )+w13*(4*p1p8*(-ffmcfmb**2*hbcm3+2*ffmcfmb*hbcm3-2*fmb2*hbcm+3
2979      . *fmc2*hbcm)+8*(-ffmcfmb*hbcm*p1p3*p1p8-2*hbcm*p1p4*p1p8+hbcm*
2980      . p1p5*p1p8+2*hbcm*p1p8*p3p4-hbcm*p1p8*p3p5))+(8*p5p8*(2*fb3*fmb
2981      . -6*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+8*p4p8*(2*fb3*fmb-6*fb3*
2982      . fmc-4*fb4*ffmcfmb*hbcm+hbcm)+4*p2p8*(-4*fb3*fmb+16*fb3*fmc+12*
2983      . fb4*ffmcfmb*hbcm-3*hbcm)+4*p1p8*(-4*fb3*fmb+12*fb3*fmc+8*fb4*
2984      . ffmcfmb*hbcm-hbcm)))
2985       b(11)=ans
2986       b(12)=16*ccc*(-fb3*ffmcfmb**2*hbcm2+2*fb3*ffmcfmb*hbcm2-2*fb3*
2987      . ffmcfmb*p1p3-fb3*fmb2+2*fb3*fmc2-3*fb3*p1p4+fb3*p1p5+3*fb3*
2988      . p3p4-fb3*p3p5)
2989       ans2=w13*(8*p1p8*(-ffmcfmb*hbcm4+fmb*hbcm3-fmb2*hbcm2+2*fmc*
2990      . hbcm3+fmc2*hbcm2)+8*(p3p5*p1p8)*(-ffmcfmb*hbcm2+fmb*hbcm+2*fmc
2991      . *hbcm-hbcm2)+8*(p3p4*p1p8)*(-ffmcfmb*hbcm2+fmb*hbcm+2*fmc*hbcm
2992      . +hbcm2)+8*(p2p3*p1p8)*(2*ffmcfmb*hbcm2-fmb*hbcm-3*fmc*hbcm)+8*
2993      . (p1p8*p1p3)*(ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm)+8*(-hbcm2*p1p4
2994      . *p1p8+hbcm2*p1p5*p1p8))+(4*p5p8*(4*fb3*ffmcfmb*hbcm2+8*fb3*
2995      . hbcm2-4*fb4*fmb*hbcm-8*fb4*fmc*hbcm+hbcm2)+4*p4p8*(4*fb3*
2996      . ffmcfmb*hbcm2-16*fb3*hbcm2-4*fb4*fmb*hbcm-8*fb4*fmc*hbcm+hbcm2
2997      . )+8*p2p8*(-4*fb3*ffmcfmb*hbcm2+2*fb4*fmb*hbcm+6*fb4*fmc*hbcm-
2998      . hbcm2)+4*p1p8*(-4*fb3*ffmcfmb*hbcm2+4*fb4*fmb*hbcm+8*fb4*fmc*
2999      . hbcm-hbcm2)+32*(2*fb3*p1p3*p4p8-fb3*p1p3*p5p8-2*fb3*p1p8*p3p4+
3000      . fb3*p1p8*p3p5+3*fb3*p2p3*p4p8-fb3*p2p3*p5p8-3*fb3*p2p8*p3p4+
3001      . fb3*p2p8*p3p5+3*fb3*p3p4*p5p8-3*fb3*p3p5*p4p8))
3002       ans1=w18*(8*p5p8*(-ffmcfmb*hbcm4+fmb*hbcm3-fmb2*hbcm2+2*fmc*
3003      . hbcm3+fmc2*hbcm2)+8*p4p8*(-ffmcfmb*hbcm4+fmb*hbcm3-fmb2*hbcm2+
3004      . 2*fmc*hbcm3+fmc2*hbcm2)+8*(p5p8*p3p5)*(-ffmcfmb*hbcm2+fmb*hbcm
3005      . +2*fmc*hbcm-hbcm2)+8*(p4p8*p3p5)*(-ffmcfmb*hbcm2+fmb*hbcm+2*
3006      . fmc*hbcm-hbcm2)+8*(p5p8*p3p4)*(-ffmcfmb*hbcm2+fmb*hbcm+2*fmc*
3007      . hbcm+hbcm2)+8*(p4p8*p3p4)*(-ffmcfmb*hbcm2+fmb*hbcm+2*fmc*hbcm+
3008      . hbcm2)+8*(p5p8*p2p3)*(2*ffmcfmb*hbcm2-fmb*hbcm-3*fmc*hbcm)+8*(
3009      . p4p8*p2p3)*(2*ffmcfmb*hbcm2-fmb*hbcm-3*fmc*hbcm)+8*(p5p8*p1p3)
3010      . *(ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm)+8*(p4p8*p1p3)*(ffmcfmb*
3011      . hbcm2-fmb*hbcm-2*fmc*hbcm)+8*(-hbcm2*p1p4*p4p8-hbcm2*p1p4*p5p8
3012      . +hbcm2*p1p5*p4p8+hbcm2*p1p5*p5p8))+w1*(8*p4p8*(-ffmcfmb*hbcm4+
3013      . fmb*hbcm3-fmb2*hbcm2+2*fmc*hbcm3+fmc2*hbcm2)+8*(p4p8*p3p5)*(-
3014      . ffmcfmb*hbcm2+fmb*hbcm+2*fmc*hbcm-hbcm2)+8*(p4p8*p3p4)*(-
3015      . ffmcfmb*hbcm2+fmb*hbcm+2*fmc*hbcm+hbcm2)+8*(p4p8*p2p3)*(2*
3016      . ffmcfmb*hbcm2-fmb*hbcm-3*fmc*hbcm)+8*(p4p8*p1p3)*(ffmcfmb*
3017      . hbcm2-fmb*hbcm-2*fmc*hbcm)+8*(-hbcm2*p1p4*p4p8+hbcm2*p1p5*p4p8
3018      . ))+ans2
3019       ans=ccc*ans1
3020       b(13)=ans
3021       b(14)=ccc*(8*p3p5*(-2*fb3*fmb+6*fb3*fmc+4*fb4*ffmcfmb*hbcm+2*
3022      . fb4*hbcm-hbcm)+8*p3p4*(-2*fb3*fmb+6*fb3*fmc+4*fb4*ffmcfmb*hbcm
3023      . -4*fb4*hbcm-hbcm)+4*p2p3*(4*fb3*fmb-16*fb3*fmc-12*fb4*ffmcfmb*
3024      . hbcm+3*hbcm)+8*p1p3*(2*fb3*fmb-6*fb3*fmc-2*fb4*ffmcfmb*hbcm+
3025      . hbcm)+8*(-2*fb3*fmb*hbcm2+6*fb3*fmc*hbcm2+fb4*ffmcfmb**2*hbcm3
3026      . +2*fb4*ffmcfmb*hbcm3+2*fb4*fmb2*hbcm-3*fb4*fmc2*hbcm+4*fb4*
3027      . hbcm*p1p4-2*fb4*hbcm*p1p5-hbcm3))
3028       b(15)=ccc*(w18*(8*(p5p8*p3p6)*(ffmcfmb*hbcm2-fmb*hbcm-2*fmc*
3029      . hbcm)+8*(p4p8*p3p6)*(ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm)+8*(-
3030      . hbcm2*p4p6*p4p8-hbcm2*p4p6*p5p8+hbcm2*p4p8*p5p6+hbcm2*p5p6*
3031      . p5p8))+w1*(8*(p4p8*p3p6)*(ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm)+8
3032      . *(-hbcm2*p4p6*p4p8+hbcm2*p4p8*p5p6))+w13*(8*(p3p6*p1p8)*(
3033      . ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm)+8*(-hbcm2*p1p8*p4p6+hbcm2*
3034      . p1p8*p5p6))+(4*p6p8*(-4*fb3*ffmcfmb*hbcm2+4*fb4*fmb*hbcm+8*fb4
3035      . *fmc*hbcm-hbcm2)+32*(-2*fb3*p3p4*p6p8+fb3*p3p5*p6p8+2*fb3*p3p6
3036      . *p4p8-fb3*p3p6*p5p8)))
3037       b(16)=ccc*(8*w18*(ffmcfmb*hbcm*p3p6*p4p8+ffmcfmb*hbcm*p3p6*p5p8
3038      . +2*hbcm*p4p6*p4p8+2*hbcm*p4p6*p5p8-hbcm*p4p8*p5p6-hbcm*p5p6*
3039      . p5p8)+8*w1*(ffmcfmb*hbcm*p3p6*p4p8+2*hbcm*p4p6*p4p8-hbcm*p4p8*
3040      . p5p6)+8*w13*(ffmcfmb*hbcm*p1p8*p3p6+2*hbcm*p1p8*p4p6-hbcm*p1p8
3041      . *p5p6)+4*p6p8*(4*fb3*fmb-12*fb3*fmc-8*fb4*ffmcfmb*hbcm+hbcm))
3042       b(17)=ccc*(w18*(4*p5p8*(-ffmcfmb*hbcm3+fmb*hbcm2-2*fmc*hbcm2)+4
3043      . *p4p8*(-ffmcfmb*hbcm3+fmb*hbcm2-2*fmc*hbcm2)+8*(-2*hbcm*p3p4*
3044      . p4p8-2*hbcm*p3p4*p5p8+hbcm*p3p5*p4p8+hbcm*p3p5*p5p8))+w1*(4*
3045      . p4p8*(-ffmcfmb*hbcm3+fmb*hbcm2-2*fmc*hbcm2)+8*(-2*hbcm*p3p4*
3046      . p4p8+hbcm*p3p5*p4p8))+w13*(4*p1p8*(-ffmcfmb*hbcm3+fmb*hbcm2-2*
3047      . fmc*hbcm2)+8*(-2*hbcm*p1p8*p3p4+hbcm*p1p8*p3p5))+16*(2*fb4*
3048      . hbcm*p4p8-fb4*hbcm*p5p8))
3049       b(18)=ccc*(w18*(8*(p5p8*p3p7)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(p4p8
3050      . *p3p7)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(-hbcm2*p4p7*p4p8-hbcm2*
3051      . p4p7*p5p8+hbcm2*p4p8*p5p7+hbcm2*p5p7*p5p8))+w1*(8*(p4p8*p3p7)*
3052      . (-ffmcfmb*hbcm2+fmc*hbcm)+8*(-hbcm2*p4p7*p4p8+hbcm2*p4p8*p5p7)
3053      . )+w13*(8*(p3p7*p1p8)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(-hbcm2*p1p8*
3054      . p4p7+hbcm2*p1p8*p5p7))+(4*p7p8*(4*fb3*ffmcfmb*hbcm2-4*fb4*fmc*
3055      . hbcm+hbcm2)+32*(fb3*p3p4*p7p8-fb3*p3p7*p4p8)))
3056       b(19)=ccc*(w18*(4*p5p8*(-2*ffmcfmb*hbcm2+fmb*hbcm+3*fmc*hbcm)+4
3057      . *p4p8*(-2*ffmcfmb*hbcm2+fmb*hbcm+3*fmc*hbcm))+4*w1*p4p8*(-2*
3058      . ffmcfmb*hbcm2+fmb*hbcm+3*fmc*hbcm)+4*w13*p1p8*(-2*ffmcfmb*
3059      . hbcm2+fmb*hbcm+3*fmc*hbcm)+16*(-3*fb3*p4p8+fb3*p5p8))
3060       b(20)=ccc*(8*w18*(-ffmcfmb*hbcm*p3p7*p4p8-ffmcfmb*hbcm*p3p7*
3061      . p5p8-2*hbcm*p4p7*p4p8-2*hbcm*p4p7*p5p8+hbcm*p4p8*p5p7+hbcm*
3062      . p5p7*p5p8)+8*w1*(-ffmcfmb*hbcm*p3p7*p4p8-2*hbcm*p4p7*p4p8+hbcm
3063      . *p4p8*p5p7)+8*w13*(-ffmcfmb*hbcm*p1p8*p3p7-2*hbcm*p1p8*p4p7+
3064      . hbcm*p1p8*p5p7)+8*p7p8*(-2*fb3*fmc-2*fb4*ffmcfmb*hbcm+hbcm))
3065       b(21)=2*ccc*(4*fb3*fmb-16*fb3*fmc-12*fb4*ffmcfmb*hbcm+3*hbcm)
3066       b(22)=4*ccc*(4*fb3*ffmcfmb*hbcm2+12*fb3*p3p4-4*fb3*p3p5-2*fb4*
3067      . fmb*hbcm-6*fb4*fmc*hbcm+hbcm2)
3068       b(23)=ccc*(4*p3p7*(4*fb3*fmc+8*fb4*ffmcfmb*hbcm-hbcm)+16*(2*fb4
3069      . *hbcm*p4p7-fb4*hbcm*p5p7))
3070       b(24)=ccc*(8*p3p6*(-2*fb3*fmb+6*fb3*fmc+2*fb4*ffmcfmb*hbcm-hbcm
3071      . )+16*(-2*fb4*hbcm*p4p6+fb4*hbcm*p5p6))
3072       b(25)=ccc*(8*p5p7*(-2*fb3*fmb+6*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm
3073      . )+8*p4p7*(-2*fb3*fmb+6*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+4*p3p7
3074      . *(-4*fb3*ffmcfmb*fmb+8*fb3*ffmcfmb*fmc+4*fb3*fmc+4*fb4*ffmcfmb
3075      . **2*hbcm+4*fb4*ffmcfmb*hbcm-ffmcfmb*hbcm-hbcm))
3076       b(26)=ccc*(4*p5p6*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+4*p4p6*(4
3077      . *fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+4*p3p6*(4*fb3*fmc+4*fb4*
3078      . ffmcfmb*hbcm-hbcm))
3079       b(27)=ccc*(4*p6p7*(4*fb3*ffmcfmb*hbcm2-4*fb4*fmc*hbcm+hbcm2)+32
3080      . *(-2*fb3*ffmcfmb*p3p6*p3p7+fb3*p3p4*p6p7-2*fb3*p3p6*p4p7+fb3*
3081      . p3p6*p5p7-fb3*p3p7*p4p6))
3082       b(28)=ccc*(w18*(8*(p6p7*p5p8)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p6p7*
3083      . p4p8)*(ffmcfmb*hbcm2-fmc*hbcm))+8*w1*(p6p7*p4p8)*(ffmcfmb*
3084      . hbcm2-fmc*hbcm)+8*w13*(p6p7*p1p8)*(ffmcfmb*hbcm2-fmc*hbcm)+32*
3085      . (-fb3*ffmcfmb*p3p6*p7p8-fb3*ffmcfmb*p3p7*p6p8-fb3*p4p6*p7p8-2*
3086      . fb3*p4p7*p6p8+fb3*p4p8*p6p7+fb3*p5p7*p6p8))
3087       b(29)=16*ccc*(-2*fb3*ffmcfmb*p3p6-3*fb3*p4p6+fb3*p5p6)
3088       b(30)=16*ccc*(2*fb3*ffmcfmb*p3p7+3*fb3*p4p7-fb3*p5p7)
3089       ans=ccc*(w18*(8*(p6p7*p5p8)*(-ffmcfmb*hbcm3-fmc*hbcm2)+8*(p6p7*
3090      . p4p8)*(-ffmcfmb*hbcm3-fmc*hbcm2)+16*(ffmcfmb*hbcm*p3p6*p3p7*
3091      . p4p8+ffmcfmb*hbcm*p3p6*p3p7*p5p8-hbcm*p3p4*p4p8*p6p7-hbcm*p3p4
3092      . *p5p8*p6p7+hbcm*p3p6*p4p7*p4p8+hbcm*p3p6*p4p7*p5p8-hbcm*p3p6*
3093      . p4p8*p5p7-hbcm*p3p6*p5p7*p5p8+hbcm*p3p7*p4p6*p4p8+hbcm*p3p7*
3094      . p4p6*p5p8))+w1*(8*(p6p7*p4p8)*(-ffmcfmb*hbcm3-fmc*hbcm2)+16*(
3095      . ffmcfmb*hbcm*p3p6*p3p7*p4p8-hbcm*p3p4*p4p8*p6p7+hbcm*p3p6*p4p7
3096      . *p4p8-hbcm*p3p6*p4p8*p5p7+hbcm*p3p7*p4p6*p4p8))+w13*(8*(p6p7*
3097      . p1p8)*(-ffmcfmb*hbcm3-fmc*hbcm2)+16*(ffmcfmb*hbcm*p1p8*p3p6*
3098      . p3p7-hbcm*p1p8*p3p4*p6p7+hbcm*p1p8*p3p6*p4p7-hbcm*p1p8*p3p6*
3099      . p5p7+hbcm*p1p8*p3p7*p4p6))+(32*(p6p8*p3p7)*(-fb3*fmc-fb4*
3100      . ffmcfmb*hbcm)+8*(p7p8*p3p6)*(4*fb3*fmc-hbcm)+32*(-fb4*hbcm*
3101      . p4p6*p7p8-fb4*hbcm*p4p7*p6p8+fb4*hbcm*p4p8*p6p7+fb4*hbcm*p5p7*
3102      . p6p8)))
3103       b(31)=ans
3104       b(32)=4*ccc*p6p7*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)
3105       do 200 n=1,32
3106          c(n,1)=c(n,1)-0.1818181818181818d0*b(n)
3107          c(n,2)=c(n,2)-0.05883183899358491d0*b(n)
3108          c(n,3)=c(n,3)-0.2077659977796572d0*b(n)
3109 200   continue
3110       return
3111         end
3112
3113       subroutine amp2_1p1(cc)
3114       implicit double precision(a-h,o-z)
3115       implicit integer (i-n)
3116       dimension b(25)
3117 #include "inclcon.h"
3118 #include "inclppp.h"
3119 #include "inclamp.h"
3120       do 100 n=1,25
3121          b(n)=0.0d0
3122 100   continue
3123       ccc=cc/((4*p1p4*p2p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3+2*
3124      . ffmcfmb*p3p4+fmc2-2*p1p4))
3125       b(3)=w5*ccc*(8*(p5p7*p4p8)*(fmb*hbcm+fmc*hbcm-2*hbcm2)+8*(p5p7*
3126      . p1p8)*(-fmb*hbcm-fmc*hbcm+2*hbcm2))
3127       b(4)=16*ccc*p5p7*(-fb4*fmb*hbcm-fb4*fmc*hbcm)
3128       b(5)=ccc*(w5*(8*(p5p7*p4p8)*(2*fmb*hbcm2-2*fmc*hbcm2+hbcm3)+8*(
3129      . p5p7*p1p8)*(-2*fmb*hbcm2+2*fmc*hbcm2-hbcm3)+16*(hbcm*p1p8*p2p3
3130      . *p5p7-hbcm*p1p8*p3p5*p5p7-hbcm*p2p3*p4p8*p5p7+hbcm*p3p5*p4p8*
3131      . p5p7))+32*(fb4*hbcm*p2p8*p5p7-fb4*hbcm*p5p7*p5p8))
3132       b(11)=8*ccc*w5*(-hbcm*p1p8*p2p5+hbcm*p2p5*p4p8)
3133       b(13)=16*ccc*w5*(-hbcm2*p1p8*p2p5+hbcm2*p2p5*p4p8)
3134       b(14)=-16*ccc*fb4*hbcm*p2p5
3135       b(17)=ccc*(w5*(4*p4p8*(-2*fmb*hbcm2+2*fmc*hbcm2-hbcm3)+4*p1p8*(
3136      . 2*fmb*hbcm2-2*fmc*hbcm2+hbcm3)+8*(-hbcm*p1p8*p2p3+hbcm*p1p8*
3137      . p3p5+hbcm*p2p3*p4p8-hbcm*p3p5*p4p8))+16*(-fb4*hbcm*p2p8+fb4*
3138      . hbcm*p5p8))
3139       b(19)=w5*ccc*(4*p4p8*(-fmb*hbcm-fmc*hbcm+2*hbcm2)+4*p1p8*(fmb*
3140      . hbcm+fmc*hbcm-2*hbcm2))
3141       b(21)=8*ccc*fb4*hbcm
3142       b(22)=8*ccc*(fb4*fmb*hbcm+fb4*fmc*hbcm)
3143       b(25)=-16*ccc*fb4*hbcm*p5p7
3144       do 200 n=1,25
3145          c(n,2)=c(n,2)-0.7396002616336388d0*b(n)
3146          c(n,3)=c(n,3)+0.1662127982237257d0*b(n)
3147 200   continue
3148       return
3149         end
3150
3151       subroutine amp1s2_1p1(cc)
3152       implicit double precision(a-h,o-z)
3153       implicit integer (i-n)
3154       dimension b(14)
3155 #include "inclcon.h"
3156 #include "inclppp.h"
3157 #include "inclamp.h"
3158       do 100 n=1,14
3159          b(n)=0.0d0
3160 100   continue
3161       ccc=cc/((ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*p3p5+fmb2+
3162      . hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2))
3163       b(1)=-16*ccc*fb3*p6p7
3164       b(2)=4*ccc*(hbcm*p4p8*p6p7*w1-hbcm*p5p8*p6p7*w2)
3165       b(3)=-16*ccc*fb3*p7p8
3166       b(4)=16*ccc*fb3*p3p7
3167       b(5)=8*ccc*(2*fb4*hbcm*p7p8-hbcm*p3p7*p4p8*w1+hbcm*p3p7*p5p8*w2
3168      . )
3169       b(6)=-16*ccc*fb3*p6p8
3170       b(7)=16*ccc*fb3*p3p6
3171       b(8)=8*ccc*(2*fb4*hbcm*p6p8-hbcm*p3p6*p4p8*w1+hbcm*p3p6*p5p8*w2
3172      . )
3173       b(9)=-8*ccc*fb4*hbcm*p6p7
3174       b(11)=6*ccc*(hbcm*p4p8*w1-hbcm*p5p8*w2)
3175       b(12)=12*ccc*fb3
3176       b(13)=6*ccc*(hbcm2*p4p8*w1-hbcm2*p5p8*w2)
3177       b(14)=-12*ccc*fb4*hbcm
3178       do 200 n=1,14
3179          c(n,1)=c(n,1)-0.8181818181818182d0*b(n)
3180          c(n,2)=c(n,2)+0.9833321660356334d0*b(n)
3181 200   continue
3182       return
3183         end
3184
3185       subroutine amp28_1p1(cc)
3186       implicit double precision(a-h,o-z)
3187       implicit integer (i-n)
3188       dimension b(32)
3189 #include "inclcon.h"
3190 #include "inclppp.h"
3191 #include "inclamp.h"
3192       do 100 n=1,32
3193          b(n)=0.0d0
3194 100   continue
3195       ccc=cc/((ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*p3p5+fmb2+
3196      . hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p2p3+2*ffmcfmb*p3p4+
3197      . fmc2-2*p2p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p2p3-fmc2))
3198       b(1)=ccc*(16*(p6p7*p2p3)*(-fb3*ffmcfmb+fb3)+4*p6p7*(2*fb3*
3199      . ffmcfmb**2*hbcm2-4*fb3*ffmcfmb*hbcm2+4*fb3*fmb*fmc+2*fb3*fmc2+
3200      . 4*fb4*ffmcfmb*fmb*hbcm+4*fb4*ffmcfmb*fmc*hbcm-4*fb4*fmc*hbcm-
3201      . fmb*hbcm-fmc*hbcm+hbcm2)+16*(fb3*ffmcfmb*p3p6*p3p7+3*fb3*
3202      . ffmcfmb*p3p7*p4p6-fb3*ffmcfmb*p3p7*p5p6+fb3*p1p2*p6p7-fb3*p2p4
3203      . *p6p7+fb3*p2p5*p6p7))
3204       ans3=(4*(p6p7*p5p8)*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+4*(p6p8
3205      . *p5p7)*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+4*(p7p8*p5p6)*(-4*
3206      . fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+4*(p6p7*p4p8)*(-4*fb3*fmc-4*
3207      . fb4*ffmcfmb*hbcm+hbcm)+4*(p6p8*p4p7)*(4*fb3*fmc+4*fb4*ffmcfmb*
3208      . hbcm-hbcm)+4*(p7p8*p4p6)*(12*fb3*fmc+12*fb4*ffmcfmb*hbcm-hbcm)
3209      . +4*(p7p8*p3p6)*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-2*ffmcfmb*hbcm+
3210      . hbcm)+8*(p6p7*p2p8)*(2*fb3*fmc+2*fb4*ffmcfmb*hbcm-hbcm)+4*(
3211      . p6p7*p1p8)*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+4*(p6p8*p3p7)*(
3212      . -8*fb3*ffmcfmb*fmb+8*fb3*ffmcfmb*fmc-4*fb3*fmc+4*fb4*ffmcfmb*
3213      . hbcm-2*ffmcfmb*hbcm+hbcm))
3214       ans2=w11*(8*(p6p7*p4p8*p2p3)*(ffmcfmb*hbcm-hbcm)+8*(p6p7*p2p8*
3215      . p2p3)*(-ffmcfmb*hbcm+hbcm)+4*(p6p7*p4p8)*(-ffmcfmb**2*hbcm3-2*
3216      . ffmcfmb*fmb*hbcm2+2*ffmcfmb*fmc*hbcm2+2*ffmcfmb*hbcm3+2*fmb*
3217      . fmc*hbcm-2*fmc*hbcm2-fmc2*hbcm)+4*(p6p7*p2p8)*(ffmcfmb**2*
3218      . hbcm3+2*ffmcfmb*fmb*hbcm2-2*ffmcfmb*fmc*hbcm2-2*ffmcfmb*hbcm3-
3219      . 2*fmb*fmc*hbcm+2*fmc*hbcm2+fmc2*hbcm)+16*(p4p8*p3p7*p3p6)*(
3220      . ffmcfmb**2*hbcm-ffmcfmb*hbcm)+16*(p3p7*p3p6*p2p8)*(-ffmcfmb**2
3221      . *hbcm+ffmcfmb*hbcm)+8*(2*ffmcfmb*hbcm*p2p8*p3p7*p4p6-2*ffmcfmb
3222      . *hbcm*p3p7*p4p6*p4p8+hbcm*p1p2*p2p8*p6p7-hbcm*p1p2*p4p8*p6p7-
3223      . hbcm*p2p4*p2p8*p6p7+hbcm*p2p4*p4p8*p6p7+hbcm*p2p5*p2p8*p6p7-
3224      . hbcm*p2p5*p4p8*p6p7))+ans3
3225       ans1=w2*(8*(p6p7*p5p8*p2p3)*(-ffmcfmb*hbcm+hbcm)+4*(p6p7*p5p8)*
3226      . (ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*hbcm2-2*ffmcfmb*fmc*hbcm2-2*
3227      . ffmcfmb*hbcm3-2*fmb*fmc*hbcm+2*fmc*hbcm2+fmc2*hbcm)+16*(p5p8*
3228      . p3p7*p3p6)*(-ffmcfmb**2*hbcm+ffmcfmb*hbcm)+8*(2*ffmcfmb*hbcm*
3229      . p3p7*p4p6*p5p8+hbcm*p1p2*p5p8*p6p7-hbcm*p2p4*p5p8*p6p7+hbcm*
3230      . p2p5*p5p8*p6p7))+w7*(8*(p6p7*p2p8*p2p3)*(-ffmcfmb*hbcm+hbcm)+4
3231      . *(p6p7*p2p8)*(ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*hbcm2-2*ffmcfmb*
3232      . fmc*hbcm2-2*ffmcfmb*hbcm3-2*fmb*fmc*hbcm+2*fmc*hbcm2+fmc2*hbcm
3233      . )+16*(p3p7*p3p6*p2p8)*(-ffmcfmb**2*hbcm+ffmcfmb*hbcm)+8*(2*
3234      . ffmcfmb*hbcm*p2p8*p3p7*p4p6+hbcm*p1p2*p2p8*p6p7-hbcm*p2p4*p2p8
3235      . *p6p7+hbcm*p2p5*p2p8*p6p7))+ans2
3236       ans=ccc*ans1
3237       b(2)=ans
3238       ans=ccc*(w2*(12*(p5p8*p5p7)*(ffmcfmb*hbcm2-fmc*hbcm)+4*(p5p8*
3239      . p4p7)*(-ffmcfmb*hbcm2+fmc*hbcm)+4*(p5p8*p3p7)*(-ffmcfmb**2*
3240      . hbcm2+3*ffmcfmb*fmb*hbcm+4*ffmcfmb*fmc*hbcm-3*fmc*hbcm))+w7*(
3241      . 12*(p5p7*p2p8)*(ffmcfmb*hbcm2-fmc*hbcm)+4*(p4p7*p2p8)*(-
3242      . ffmcfmb*hbcm2+fmc*hbcm)+4*(p3p7*p2p8)*(-ffmcfmb**2*hbcm2+3*
3243      . ffmcfmb*fmb*hbcm+4*ffmcfmb*fmc*hbcm-3*fmc*hbcm))+w11*(12*(p5p7
3244      . *p4p8)*(-ffmcfmb*hbcm2+fmc*hbcm)+4*(p4p8*p4p7)*(ffmcfmb*hbcm2-
3245      . fmc*hbcm)+12*(p5p7*p2p8)*(ffmcfmb*hbcm2-fmc*hbcm)+4*(p4p7*p2p8
3246      . )*(-ffmcfmb*hbcm2+fmc*hbcm)+4*(p4p8*p3p7)*(ffmcfmb**2*hbcm2-3*
3247      . ffmcfmb*fmb*hbcm-4*ffmcfmb*fmc*hbcm+3*fmc*hbcm)+4*(p3p7*p2p8)*
3248      . (-ffmcfmb**2*hbcm2+3*ffmcfmb*fmb*hbcm+4*ffmcfmb*fmc*hbcm-3*fmc
3249      . *hbcm))+(16*(p7p8*p2p3)*(-fb3*ffmcfmb+3*fb3)+2*p7p8*(-12*fb3*
3250      . ffmcfmb*hbcm2+12*fb3*fmb*fmc+12*fb3*fmc2+12*fb4*ffmcfmb*fmb*
3251      . hbcm+12*fb4*ffmcfmb*fmc*hbcm-12*fb4*fmc*hbcm-ffmcfmb*hbcm2+fmc
3252      . *hbcm)+16*(fb3*ffmcfmb*p1p8*p3p7-fb3*ffmcfmb*p2p8*p3p7+fb3*
3253      . ffmcfmb*p3p7*p4p8-3*fb3*ffmcfmb*p3p7*p5p8-fb3*p1p2*p7p8-fb3*
3254      . p2p4*p7p8+3*fb3*p2p5*p7p8)))
3255       b(3)=ans
3256       b(4)=ccc*(6*p5p7*(-4*fb3*ffmcfmb*hbcm2-4*fb4*fmc*hbcm+hbcm2)+2*
3257      . p4p7*(4*fb3*ffmcfmb*hbcm2+4*fb4*fmc*hbcm-hbcm2)+2*p3p7*(-4*fb3
3258      . *ffmcfmb**2*hbcm2+12*fb3*ffmcfmb*hbcm2-12*fb3*fmb*fmc-12*fb3*
3259      . fmc2+4*fb4*ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2+3*fmb*hbcm+3*fmc*
3260      . hbcm)+16*(-fb3*ffmcfmb*p1p3*p3p7-2*fb3*ffmcfmb*p2p3*p3p7-fb3*
3261      . ffmcfmb*p3p4*p3p7+3*fb3*ffmcfmb*p3p5*p3p7+fb3*p1p2*p3p7-fb3*
3262      . p2p3*p4p7+3*fb3*p2p3*p5p7+fb3*p2p4*p3p7-3*fb3*p2p5*p3p7))
3263       ans3=(12*(p5p8*p3p7)*(-4*fb3*fmc+hbcm)+4*(p4p8*p3p7)*(4*fb3*fmc
3264      . -hbcm)+48*(p7p8*p3p5)*(fb3*fmc+fb4*ffmcfmb*hbcm)+16*(p7p8*p3p4
3265      . )*(-fb3*fmc-fb4*ffmcfmb*hbcm)+4*(p3p7*p1p8)*(4*fb3*fmc-hbcm)+
3266      . 16*(p7p8*p1p3)*(-fb3*fmc-fb4*ffmcfmb*hbcm)+4*(p3p7*p2p8)*(12*
3267      . fb3*fmb-4*fb3*fmc-4*fb4*ffmcfmb*hbcm-hbcm)+4*(p7p8*p2p3)*(-12*
3268      . fb3*fmb+4*fb3*fmc-4*fb4*ffmcfmb*hbcm-hbcm)+2*p7p8*(12*fb3*
3269      . ffmcfmb*fmb*hbcm2-20*fb3*ffmcfmb*fmc*hbcm2+12*fb3*fmc*hbcm2-8*
3270      . fb4*ffmcfmb**2*hbcm3+12*fb4*ffmcfmb*hbcm3+12*fb4*fmb*fmc*hbcm-
3271      . 12*fb4*fmc2*hbcm+ffmcfmb*hbcm3-fmc*hbcm2)+16*(fb4*hbcm*p1p2*
3272      . p7p8+fb4*hbcm*p2p4*p7p8-3*fb4*hbcm*p2p5*p7p8-fb4*hbcm*p2p8*
3273      . p4p7+3*fb4*hbcm*p2p8*p5p7))
3274       ans2=w11*(12*(p5p7*p4p8)*(ffmcfmb*hbcm3-fmc*hbcm2)+4*(p4p8*p4p7
3275      . )*(-ffmcfmb*hbcm3+fmc*hbcm2)+12*(p5p7*p2p8)*(-ffmcfmb*hbcm3+
3276      . fmc*hbcm2)+4*(p4p7*p2p8)*(ffmcfmb*hbcm3-fmc*hbcm2)+4*(p4p8*
3277      . p3p7)*(ffmcfmb**2*hbcm3+ffmcfmb*fmc*hbcm2-3*ffmcfmb*hbcm3-3*
3278      . fmb*fmc*hbcm+3*fmc2*hbcm)+4*(p3p7*p2p8)*(-ffmcfmb**2*hbcm3-
3279      . ffmcfmb*fmc*hbcm2+3*ffmcfmb*hbcm3+3*fmb*fmc*hbcm-3*fmc2*hbcm)+
3280      . 8*(-ffmcfmb*hbcm*p1p3*p2p8*p3p7+ffmcfmb*hbcm*p1p3*p3p7*p4p8-2*
3281      . ffmcfmb*hbcm*p2p3*p2p8*p3p7+2*ffmcfmb*hbcm*p2p3*p3p7*p4p8-
3282      . ffmcfmb*hbcm*p2p8*p3p4*p3p7+3*ffmcfmb*hbcm*p2p8*p3p5*p3p7+
3283      . ffmcfmb*hbcm*p3p4*p3p7*p4p8-3*ffmcfmb*hbcm*p3p5*p3p7*p4p8+hbcm
3284      . *p1p2*p2p8*p3p7-hbcm*p1p2*p3p7*p4p8-hbcm*p2p3*p2p8*p4p7+3*hbcm
3285      . *p2p3*p2p8*p5p7+hbcm*p2p3*p4p7*p4p8-3*hbcm*p2p3*p4p8*p5p7+hbcm
3286      . *p2p4*p2p8*p3p7-hbcm*p2p4*p3p7*p4p8-3*hbcm*p2p5*p2p8*p3p7+3*
3287      . hbcm*p2p5*p3p7*p4p8))+ans3
3288       ans1=w2*(12*(p5p8*p5p7)*(-ffmcfmb*hbcm3+fmc*hbcm2)+4*(p5p8*p4p7
3289      . )*(ffmcfmb*hbcm3-fmc*hbcm2)+4*(p5p8*p3p7)*(-ffmcfmb**2*hbcm3-
3290      . ffmcfmb*fmc*hbcm2+3*ffmcfmb*hbcm3+3*fmb*fmc*hbcm-3*fmc2*hbcm)+
3291      . 8*(-ffmcfmb*hbcm*p1p3*p3p7*p5p8-2*ffmcfmb*hbcm*p2p3*p3p7*p5p8-
3292      . ffmcfmb*hbcm*p3p4*p3p7*p5p8+3*ffmcfmb*hbcm*p3p5*p3p7*p5p8+hbcm
3293      . *p1p2*p3p7*p5p8-hbcm*p2p3*p4p7*p5p8+3*hbcm*p2p3*p5p7*p5p8+hbcm
3294      . *p2p4*p3p7*p5p8-3*hbcm*p2p5*p3p7*p5p8))+w7*(12*(p5p7*p2p8)*(-
3295      . ffmcfmb*hbcm3+fmc*hbcm2)+4*(p4p7*p2p8)*(ffmcfmb*hbcm3-fmc*
3296      . hbcm2)+4*(p3p7*p2p8)*(-ffmcfmb**2*hbcm3-ffmcfmb*fmc*hbcm2+3*
3297      . ffmcfmb*hbcm3+3*fmb*fmc*hbcm-3*fmc2*hbcm)+8*(-ffmcfmb*hbcm*
3298      . p1p3*p2p8*p3p7-2*ffmcfmb*hbcm*p2p3*p2p8*p3p7-ffmcfmb*hbcm*p2p8
3299      . *p3p4*p3p7+3*ffmcfmb*hbcm*p2p8*p3p5*p3p7+hbcm*p1p2*p2p8*p3p7-
3300      . hbcm*p2p3*p2p8*p4p7+3*hbcm*p2p3*p2p8*p5p7+hbcm*p2p4*p2p8*p3p7-
3301      . 3*hbcm*p2p5*p2p8*p3p7))+ans2
3302       ans=ccc*ans1
3303       b(5)=ans
3304       ans=ccc*(w2*(4*(p5p8*p5p6)*(-ffmcfmb*hbcm2+fmc*hbcm)+12*(p5p8*
3305      . p4p6)*(ffmcfmb*hbcm2-fmc*hbcm)+4*(p5p8*p3p6)*(ffmcfmb*hbcm2-
3306      . fmc*hbcm))+w7*(4*(p5p6*p2p8)*(-ffmcfmb*hbcm2+fmc*hbcm)+12*(
3307      . p4p6*p2p8)*(ffmcfmb*hbcm2-fmc*hbcm)+4*(p3p6*p2p8)*(ffmcfmb*
3308      . hbcm2-fmc*hbcm))+w11*(4*(p5p6*p4p8)*(ffmcfmb*hbcm2-fmc*hbcm)+
3309      . 12*(p4p8*p4p6)*(-ffmcfmb*hbcm2+fmc*hbcm)+4*(p4p8*p3p6)*(-
3310      . ffmcfmb*hbcm2+fmc*hbcm)+4*(p5p6*p2p8)*(-ffmcfmb*hbcm2+fmc*hbcm
3311      . )+12*(p4p6*p2p8)*(ffmcfmb*hbcm2-fmc*hbcm)+4*(p3p6*p2p8)*(
3312      . ffmcfmb*hbcm2-fmc*hbcm))+(16*(p6p8*p2p3)*(-fb3*ffmcfmb+fb3)+4*
3313      . p6p8*(2*fb3*ffmcfmb**2*hbcm2-4*fb3*ffmcfmb*hbcm2+4*fb3*fmb*fmc
3314      . +2*fb3*fmc2+4*fb4*ffmcfmb*fmb*hbcm+4*fb4*ffmcfmb*fmc*hbcm-4*
3315      . fb4*fmc*hbcm-fmb*hbcm-fmc*hbcm+hbcm2)+16*(-2*fb3*ffmcfmb*p2p8*
3316      . p3p6+fb3*p1p2*p6p8-fb3*p2p4*p6p8+fb3*p2p5*p6p8-4*fb3*p2p8*p4p6
3317      . +2*fb3*p2p8*p5p6)))
3318       b(6)=ans
3319       b(7)=ccc*(16*(p3p6*p2p3)*(3*fb3*ffmcfmb-fb3)+2*p5p6*(4*fb3*
3320      . ffmcfmb*hbcm2+4*fb4*fmc*hbcm-hbcm2)+6*p4p6*(-4*fb3*ffmcfmb*
3321      . hbcm2-4*fb4*fmc*hbcm+hbcm2)+2*p3p6*(-4*fb3*ffmcfmb**2*hbcm2+4*
3322      . fb3*ffmcfmb*hbcm2-8*fb3*fmb*fmc-4*fb3*fmc2-8*fb4*ffmcfmb*fmb*
3323      . hbcm-8*fb4*ffmcfmb*fmc*hbcm+4*fb4*fmc*hbcm+2*fmb*hbcm+2*fmc*
3324      . hbcm-hbcm2)+16*(-fb3*p1p2*p3p6+4*fb3*p2p3*p4p6-2*fb3*p2p3*p5p6
3325      . +fb3*p2p4*p3p6-fb3*p2p5*p3p6))
3326       ans2=(4*(p5p8*p3p6)*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+4*(
3327      . p4p8*p3p6)*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+4*(p6p8*p3p5)*(
3328      . 4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+4*(p6p8*p3p4)*(-4*fb3*fmc-4
3329      . *fb4*ffmcfmb*hbcm+hbcm)+4*(p3p6*p1p8)*(-4*fb3*fmc-4*fb4*
3330      . ffmcfmb*hbcm+hbcm)+4*(p6p8*p1p3)*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm
3331      . -hbcm)+16*(p3p6*p2p8)*(2*fb3*fmb-fb3*fmc+fb4*ffmcfmb*hbcm-fb4*
3332      . hbcm)+4*(p6p8*p2p3)*(-8*fb3*fmb+4*fb3*fmc+4*fb4*hbcm+hbcm)+4*
3333      . p6p8*(4*fb3*ffmcfmb*fmb*hbcm2-4*fb3*ffmcfmb*fmc*hbcm2-2*fb4*
3334      . ffmcfmb**2*hbcm3+4*fb4*fmb*fmc*hbcm-2*fb4*fmc2*hbcm+ffmcfmb*
3335      . hbcm3-fmb*hbcm2)+16*(-fb4*hbcm*p1p2*p6p8+fb4*hbcm*p2p4*p6p8-
3336      . fb4*hbcm*p2p5*p6p8+3*fb4*hbcm*p2p8*p4p6-fb4*hbcm*p2p8*p5p6))
3337       ans1=w2*(8*(p5p8*p4p6)*(-ffmcfmb*hbcm3+fmc*hbcm2)+4*(p5p8*p3p6)
3338      . *(ffmcfmb**2*hbcm3-2*ffmcfmb*fmb*hbcm2+2*fmb*fmc*hbcm-fmc2*
3339      . hbcm)+8*(ffmcfmb*hbcm*p2p3*p3p6*p5p8-hbcm*p1p2*p3p6*p5p8+3*
3340      . hbcm*p2p3*p4p6*p5p8-hbcm*p2p3*p5p6*p5p8+hbcm*p2p4*p3p6*p5p8-
3341      . hbcm*p2p5*p3p6*p5p8))+w7*(8*(p4p6*p2p8)*(-ffmcfmb*hbcm3+fmc*
3342      . hbcm2)+4*(p3p6*p2p8)*(ffmcfmb**2*hbcm3-2*ffmcfmb*fmb*hbcm2+2*
3343      . fmb*fmc*hbcm-fmc2*hbcm)+8*(ffmcfmb*hbcm*p2p3*p2p8*p3p6-hbcm*
3344      . p1p2*p2p8*p3p6+3*hbcm*p2p3*p2p8*p4p6-hbcm*p2p3*p2p8*p5p6+hbcm*
3345      . p2p4*p2p8*p3p6-hbcm*p2p5*p2p8*p3p6))+w11*(8*(p4p8*p4p6)*(
3346      . ffmcfmb*hbcm3-fmc*hbcm2)+8*(p4p6*p2p8)*(-ffmcfmb*hbcm3+fmc*
3347      . hbcm2)+4*(p4p8*p3p6)*(-ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*hbcm2-2*
3348      . fmb*fmc*hbcm+fmc2*hbcm)+4*(p3p6*p2p8)*(ffmcfmb**2*hbcm3-2*
3349      . ffmcfmb*fmb*hbcm2+2*fmb*fmc*hbcm-fmc2*hbcm)+8*(ffmcfmb*hbcm*
3350      . p2p3*p2p8*p3p6-ffmcfmb*hbcm*p2p3*p3p6*p4p8-hbcm*p1p2*p2p8*p3p6
3351      . +hbcm*p1p2*p3p6*p4p8+3*hbcm*p2p3*p2p8*p4p6-hbcm*p2p3*p2p8*p5p6
3352      . -3*hbcm*p2p3*p4p6*p4p8+hbcm*p2p3*p4p8*p5p6+hbcm*p2p4*p2p8*p3p6
3353      . -hbcm*p2p4*p3p6*p4p8-hbcm*p2p5*p2p8*p3p6+hbcm*p2p5*p3p6*p4p8))
3354      . +ans2
3355       ans=ccc*ans1
3356       b(8)=ans
3357       b(9)=ccc*(4*(p5p6*p3p7)*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+4*(
3358      . p4p6*p3p7)*(-12*fb3*fmc-4*fb4*ffmcfmb*hbcm+3*hbcm)+4*(p5p7*
3359      . p3p6)*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+4*(p4p7*p3p6)*(-4*
3360      . fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+4*(p6p7*p3p5)*(-4*fb3*fmc-4*
3361      . fb4*ffmcfmb*hbcm+hbcm)+4*(p6p7*p3p4)*(4*fb3*fmc+4*fb4*ffmcfmb*
3362      . hbcm-hbcm)+4*(p6p7*p2p3)*(-4*fb3*fmc-8*fb4*ffmcfmb*hbcm+4*fb4*
3363      . hbcm+hbcm)+4*(p6p7*p1p3)*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+
3364      . 32*(p3p7*p3p6)*(fb3*ffmcfmb*fmb-fb3*ffmcfmb*fmc-fb4*ffmcfmb**2
3365      . *hbcm)+4*p6p7*(-4*fb3*ffmcfmb*fmb*hbcm2+4*fb3*ffmcfmb*fmc*
3366      . hbcm2+2*fb4*ffmcfmb**2*hbcm3-4*fb4*fmb*fmc*hbcm+2*fb4*fmc2*
3367      . hbcm+fmb*hbcm2-fmc*hbcm2)+16*(fb4*hbcm*p1p2*p6p7-fb4*hbcm*p2p4
3368      . *p6p7+fb4*hbcm*p2p5*p6p7))
3369       ans5=8*(-fmc*hbcm*p2p8*p3p7*p5p6+fmc*hbcm*p3p7*p4p8*p5p6-hbcm2*
3370      . p1p2*p2p8*p6p7+hbcm2*p1p2*p4p8*p6p7+hbcm2*p2p4*p2p8*p6p7-hbcm2
3371      . *p2p4*p4p8*p6p7-hbcm2*p2p5*p2p8*p6p7+hbcm2*p2p5*p4p8*p6p7)
3372       ans4=8*(p6p7*p4p8*p2p3)*(2*fmb*hbcm+fmc*hbcm-hbcm2)+8*(p6p7*
3373      . p2p8*p2p3)*(-2*fmb*hbcm-fmc*hbcm+hbcm2)+8*(p4p8*p4p6*p3p7)*(2*
3374      . ffmcfmb*hbcm2-fmc*hbcm)+8*(p5p7*p4p8*p3p6)*(ffmcfmb*hbcm2-fmc*
3375      . hbcm)+8*(p4p8*p4p7*p3p6)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(p6p7*
3376      . p4p8*p3p5)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(p6p7*p4p8*p3p4)*(
3377      . ffmcfmb*hbcm2-fmc*hbcm)+8*(p4p6*p3p7*p2p8)*(-2*ffmcfmb*hbcm2+
3378      . fmc*hbcm)+8*(p5p7*p3p6*p2p8)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(p4p7
3379      . *p3p6*p2p8)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p6p7*p3p5*p2p8)*(
3380      . ffmcfmb*hbcm2-fmc*hbcm)+8*(p6p7*p3p4*p2p8)*(-ffmcfmb*hbcm2+fmc
3381      . *hbcm)+8*(p6p7*p4p8*p1p3)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(p6p7*
3382      . p2p8*p1p3)*(ffmcfmb*hbcm2-fmc*hbcm)+4*(p6p7*p4p8)*(ffmcfmb**2*
3383      . hbcm4-2*ffmcfmb*fmb*hbcm3-2*ffmcfmb*fmc*hbcm3+2*fmb*fmc*hbcm2+
3384      . fmc2*hbcm2)+4*(p6p7*p2p8)*(-ffmcfmb**2*hbcm4+2*ffmcfmb*fmb*
3385      . hbcm3+2*ffmcfmb*fmc*hbcm3-2*fmb*fmc*hbcm2-fmc2*hbcm2)+8*(p4p8*
3386      . p3p7*p3p6)*(-2*ffmcfmb**2*hbcm2+2*ffmcfmb*fmb*hbcm+ffmcfmb*
3387      . hbcm2)+8*(p3p7*p3p6*p2p8)*(2*ffmcfmb**2*hbcm2-2*ffmcfmb*fmb*
3388      . hbcm-ffmcfmb*hbcm2)+ans5
3389       ans3=w11*ans4
3390       ans7=32*(-fb3*ffmcfmb*p1p3*p3p7*p6p8+fb3*ffmcfmb*p1p8*p3p6*p3p7
3391      . +fb3*ffmcfmb*p3p4*p3p7*p6p8-fb3*ffmcfmb*p3p5*p3p7*p6p8-fb3*
3392      . ffmcfmb*p3p6*p3p7*p4p8+fb3*ffmcfmb*p3p6*p3p7*p5p8+fb3*p1p8*
3393      . p2p3*p6p7+fb3*p2p3*p2p8*p6p7-fb3*p2p3*p4p6*p7p8+fb3*p2p3*p4p7*
3394      . p6p8-fb3*p2p3*p4p8*p6p7+fb3*p2p3*p5p6*p7p8-fb3*p2p3*p5p7*p6p8+
3395      . fb3*p2p3*p5p8*p6p7+5*fb3*p2p8*p3p7*p4p6-3*fb3*p2p8*p3p7*p5p6)
3396       ans6=32*(p3p7*p3p6*p2p8)*(5*fb3*ffmcfmb-fb3)+32*(p6p8*p3p7*p2p3
3397      . )*(fb3*ffmcfmb-fb3)+32*(p7p8*p3p6*p2p3)*(-2*fb3*ffmcfmb+fb3)+4
3398      . *(p6p7*p5p8)*(-4*fb3*ffmcfmb*hbcm2-4*fb4*fmc*hbcm+hbcm2)+4*(
3399      . p6p8*p5p7)*(4*fb3*ffmcfmb*hbcm2+4*fb4*fmc*hbcm-hbcm2)+16*(p7p8
3400      . *p5p6)*(-fb3*ffmcfmb*hbcm2-fb4*fmc*hbcm)+4*(p6p7*p4p8)*(4*fb3*
3401      . ffmcfmb*hbcm2+4*fb4*fmc*hbcm-hbcm2)+4*(p6p8*p4p7)*(-4*fb3*
3402      . ffmcfmb*hbcm2-4*fb4*fmc*hbcm+hbcm2)+8*(p7p8*p4p6)*(2*fb3*
3403      . ffmcfmb*hbcm2+2*fb4*fmc*hbcm-hbcm2)+4*(p6p8*p3p7)*(4*fb3*
3404      . ffmcfmb*hbcm2-8*fb4*ffmcfmb*fmb*hbcm-8*fb4*ffmcfmb*fmc*hbcm+4*
3405      . fb4*fmc*hbcm+2*ffmcfmb*hbcm2+2*fmc*hbcm-hbcm2)+8*(p6p7*p2p8)*(
3406      . -2*fb3*ffmcfmb*hbcm2-2*fb4*fmc*hbcm+hbcm2)+4*(p6p7*p1p8)*(-4*
3407      . fb3*ffmcfmb*hbcm2-4*fb4*fmc*hbcm+hbcm2)+8*(p7p8*p3p6)*(4*fb3*
3408      . ffmcfmb**2*hbcm2-2*fb3*ffmcfmb*hbcm2+4*fb4*ffmcfmb*fmc*hbcm-2*
3409      . fb4*fmc*hbcm+ffmcfmb*hbcm2-fmb*hbcm-fmc*hbcm)+ans7
3410       ans2=w7*(8*(p6p7*p2p8*p2p3)*(-2*fmb*hbcm-fmc*hbcm+hbcm2)+8*(
3411      . p4p6*p3p7*p2p8)*(-2*ffmcfmb*hbcm2+fmc*hbcm)+8*(p5p7*p3p6*p2p8)
3412      . *(-ffmcfmb*hbcm2+fmc*hbcm)+8*(p4p7*p3p6*p2p8)*(ffmcfmb*hbcm2-
3413      . fmc*hbcm)+8*(p6p7*p3p5*p2p8)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p6p7*
3414      . p3p4*p2p8)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(p6p7*p2p8*p1p3)*(
3415      . ffmcfmb*hbcm2-fmc*hbcm)+4*(p6p7*p2p8)*(-ffmcfmb**2*hbcm4+2*
3416      . ffmcfmb*fmb*hbcm3+2*ffmcfmb*fmc*hbcm3-2*fmb*fmc*hbcm2-fmc2*
3417      . hbcm2)+8*(p3p7*p3p6*p2p8)*(2*ffmcfmb**2*hbcm2-2*ffmcfmb*fmb*
3418      . hbcm-ffmcfmb*hbcm2)+8*(-fmc*hbcm*p2p8*p3p7*p5p6-hbcm2*p1p2*
3419      . p2p8*p6p7+hbcm2*p2p4*p2p8*p6p7-hbcm2*p2p5*p2p8*p6p7))+ans3+
3420      . ans6
3421       ans1=w2*(8*(p6p7*p5p8*p2p3)*(-2*fmb*hbcm-fmc*hbcm+hbcm2)+8*(
3422      . p5p8*p4p6*p3p7)*(-2*ffmcfmb*hbcm2+fmc*hbcm)+8*(p5p8*p5p7*p3p6)
3423      . *(-ffmcfmb*hbcm2+fmc*hbcm)+8*(p5p8*p4p7*p3p6)*(ffmcfmb*hbcm2-
3424      . fmc*hbcm)+8*(p6p7*p5p8*p3p5)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p6p7*
3425      . p5p8*p3p4)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(p6p7*p5p8*p1p3)*(
3426      . ffmcfmb*hbcm2-fmc*hbcm)+4*(p6p7*p5p8)*(-ffmcfmb**2*hbcm4+2*
3427      . ffmcfmb*fmb*hbcm3+2*ffmcfmb*fmc*hbcm3-2*fmb*fmc*hbcm2-fmc2*
3428      . hbcm2)+8*(p5p8*p3p7*p3p6)*(2*ffmcfmb**2*hbcm2-2*ffmcfmb*fmb*
3429      . hbcm-ffmcfmb*hbcm2)+8*(-fmc*hbcm*p3p7*p5p6*p5p8-hbcm2*p1p2*
3430      . p5p8*p6p7+hbcm2*p2p4*p5p8*p6p7-hbcm2*p2p5*p5p8*p6p7))+ans2
3431       ans=ccc*ans1
3432       b(10)=ans
3433       ans=ccc*(w2*(4*(p5p8*p2p3)*(-ffmcfmb*hbcm+3*hbcm)+6*p5p8*(
3434      . ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3-fmb*fmc*hbcm
3435      . +fmc*hbcm2+fmc2*hbcm)+4*(-hbcm*p1p2*p5p8-hbcm*p2p4*p5p8+3*hbcm
3436      . *p2p5*p5p8))+w7*(4*(p2p8*p2p3)*(-ffmcfmb*hbcm+3*hbcm)+6*p2p8*(
3437      . ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3-fmb*fmc*hbcm
3438      . +fmc*hbcm2+fmc2*hbcm)+4*(-hbcm*p1p2*p2p8-hbcm*p2p4*p2p8+3*hbcm
3439      . *p2p5*p2p8))+w11*(4*(p4p8*p2p3)*(ffmcfmb*hbcm-3*hbcm)+4*(p2p8*
3440      . p2p3)*(-ffmcfmb*hbcm+3*hbcm)+6*p4p8*(-ffmcfmb*fmb*hbcm2+
3441      . ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3+fmb*fmc*hbcm-fmc*hbcm2-fmc2*
3442      . hbcm)+6*p2p8*(ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-ffmcfmb*
3443      . hbcm3-fmb*fmc*hbcm+fmc*hbcm2+fmc2*hbcm)+4*(-hbcm*p1p2*p2p8+
3444      . hbcm*p1p2*p4p8-hbcm*p2p4*p2p8+hbcm*p2p4*p4p8+3*hbcm*p2p5*p2p8-
3445      . 3*hbcm*p2p5*p4p8))+(6*p5p8*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)
3446      . +2*p4p8*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+2*p1p8*(-4*fb3*
3447      . fmc-4*fb4*ffmcfmb*hbcm+hbcm)+2*p2p8*(-12*fb3*fmb+4*fb3*fmc-8*
3448      . fb4*ffmcfmb*hbcm+12*fb4*hbcm+hbcm)))
3449       b(11)=ans
3450       b(12)=ccc*(8*p2p3*(fb3*ffmcfmb-3*fb3)+(12*fb3*ffmcfmb*hbcm2-12*
3451      . fb3*fmb*fmc-12*fb3*fmc2+8*fb3*p1p2+8*fb3*p2p4-24*fb3*p2p5-12*
3452      . fb4*ffmcfmb*fmb*hbcm-12*fb4*ffmcfmb*fmc*hbcm+12*fb4*fmc*hbcm+3
3453      . *fmb*hbcm+3*fmc*hbcm-3*hbcm2))
3454       ans3=(6*p5p8*(4*fb3*ffmcfmb*hbcm2+4*fb4*fmc*hbcm-hbcm2)+2*p4p8*
3455      . (-4*fb3*ffmcfmb*hbcm2-4*fb4*fmc*hbcm+hbcm2)+2*p2p8*(-16*fb3*
3456      . ffmcfmb*hbcm2+12*fb3*hbcm2+12*fb4*fmb*hbcm+4*fb4*fmc*hbcm+
3457      . hbcm2)+2*p1p8*(-4*fb3*ffmcfmb*hbcm2-4*fb4*fmc*hbcm+hbcm2)+16*(
3458      . -fb3*p1p3*p2p8+fb3*p1p8*p2p3+fb3*p2p3*p4p8-3*fb3*p2p3*p5p8-fb3
3459      . *p2p8*p3p4+3*fb3*p2p8*p3p5))
3460       ans2=w11*(12*(p4p8*p3p5)*(ffmcfmb*hbcm2-fmc*hbcm)+4*(p4p8*p3p4)
3461      . *(-ffmcfmb*hbcm2+fmc*hbcm)+12*(p3p5*p2p8)*(-ffmcfmb*hbcm2+fmc*
3462      . hbcm)+4*(p3p4*p2p8)*(ffmcfmb*hbcm2-fmc*hbcm)+4*(p4p8*p2p3)*(-
3463      . ffmcfmb*hbcm2-3*fmb*hbcm-fmc*hbcm)+4*(p2p8*p2p3)*(ffmcfmb*
3464      . hbcm2+3*fmb*hbcm+fmc*hbcm)+4*(p4p8*p1p3)*(-ffmcfmb*hbcm2+fmc*
3465      . hbcm)+4*(p2p8*p1p3)*(ffmcfmb*hbcm2-fmc*hbcm)+2*p4p8*(-2*
3466      . ffmcfmb**2*hbcm4+3*ffmcfmb*fmb*hbcm3+5*ffmcfmb*fmc*hbcm3+3*
3467      . ffmcfmb*hbcm4-3*fmb*fmc*hbcm2-3*fmc*hbcm3-3*fmc2*hbcm2)+2*p2p8
3468      . *(2*ffmcfmb**2*hbcm4-3*ffmcfmb*fmb*hbcm3-5*ffmcfmb*fmc*hbcm3-3
3469      . *ffmcfmb*hbcm4+3*fmb*fmc*hbcm2+3*fmc*hbcm3+3*fmc2*hbcm2)+4*(-
3470      . hbcm2*p1p2*p2p8+hbcm2*p1p2*p4p8-hbcm2*p2p4*p2p8+hbcm2*p2p4*
3471      . p4p8+3*hbcm2*p2p5*p2p8-3*hbcm2*p2p5*p4p8))+ans3
3472       ans1=w2*(12*(p5p8*p3p5)*(-ffmcfmb*hbcm2+fmc*hbcm)+4*(p5p8*p3p4)
3473      . *(ffmcfmb*hbcm2-fmc*hbcm)+4*(p5p8*p2p3)*(ffmcfmb*hbcm2+3*fmb*
3474      . hbcm+fmc*hbcm)+4*(p5p8*p1p3)*(ffmcfmb*hbcm2-fmc*hbcm)+2*p5p8*(
3475      . 2*ffmcfmb**2*hbcm4-3*ffmcfmb*fmb*hbcm3-5*ffmcfmb*fmc*hbcm3-3*
3476      . ffmcfmb*hbcm4+3*fmb*fmc*hbcm2+3*fmc*hbcm3+3*fmc2*hbcm2)+4*(-
3477      . hbcm2*p1p2*p5p8-hbcm2*p2p4*p5p8+3*hbcm2*p2p5*p5p8))+w7*(12*(
3478      . p3p5*p2p8)*(-ffmcfmb*hbcm2+fmc*hbcm)+4*(p3p4*p2p8)*(ffmcfmb*
3479      . hbcm2-fmc*hbcm)+4*(p2p8*p2p3)*(ffmcfmb*hbcm2+3*fmb*hbcm+fmc*
3480      . hbcm)+4*(p2p8*p1p3)*(ffmcfmb*hbcm2-fmc*hbcm)+2*p2p8*(2*ffmcfmb
3481      . **2*hbcm4-3*ffmcfmb*fmb*hbcm3-5*ffmcfmb*fmc*hbcm3-3*ffmcfmb*
3482      . hbcm4+3*fmb*fmc*hbcm2+3*fmc*hbcm3+3*fmc2*hbcm2)+4*(-hbcm2*p1p2
3483      . *p2p8-hbcm2*p2p4*p2p8+3*hbcm2*p2p5*p2p8))+ans2
3484       ans=ccc*ans1
3485       b(13)=ans
3486       b(14)=ccc*(6*p3p5*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+2*p3p4*(
3487      . 4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+2*p1p3*(4*fb3*fmc+4*fb4*
3488      . ffmcfmb*hbcm-hbcm)+4*p2p3*(6*fb3*fmb-2*fb3*fmc+2*fb4*ffmcfmb*
3489      . hbcm-hbcm)+(-12*fb3*ffmcfmb*fmb*hbcm2+20*fb3*ffmcfmb*fmc*hbcm2
3490      . -12*fb3*fmc*hbcm2+8*fb4*ffmcfmb**2*hbcm3-12*fb4*ffmcfmb*hbcm3-
3491      . 12*fb4*fmb*fmc*hbcm+12*fb4*fmc2*hbcm-8*fb4*hbcm*p1p2-8*fb4*
3492      . hbcm*p2p4+24*fb4*hbcm*p2p5-2*ffmcfmb*hbcm3+3*fmb*hbcm2-3*fmc*
3493      . hbcm2+3*hbcm3))
3494       b(15)=ccc*(w2*(4*(p5p8*p3p6)*(2*ffmcfmb*hbcm2+2*fmb*hbcm-hbcm2)
3495      . +4*(3*hbcm2*p4p6*p5p8-hbcm2*p5p6*p5p8))+w7*(4*(p3p6*p2p8)*(2*
3496      . ffmcfmb*hbcm2+2*fmb*hbcm-hbcm2)+4*(3*hbcm2*p2p8*p4p6-hbcm2*
3497      . p2p8*p5p6))+w11*(4*(p4p8*p3p6)*(-2*ffmcfmb*hbcm2-2*fmb*hbcm+
3498      . hbcm2)+4*(p3p6*p2p8)*(2*ffmcfmb*hbcm2+2*fmb*hbcm-hbcm2)+4*(3*
3499      . hbcm2*p2p8*p4p6-hbcm2*p2p8*p5p6-3*hbcm2*p4p6*p4p8+hbcm2*p4p8*
3500      . p5p6))+(4*p6p8*(-4*fb3*ffmcfmb*hbcm2+4*fb4*fmb*hbcm+hbcm2)+16*
3501      . (fb3*p1p3*p6p8-fb3*p1p8*p3p6+fb3*p2p3*p6p8-fb3*p2p8*p3p6-fb3*
3502      . p3p4*p6p8+fb3*p3p5*p6p8+fb3*p3p6*p4p8-fb3*p3p6*p5p8)))
3503       b(16)=ccc*(8*w2*(-ffmcfmb*hbcm*p3p6*p5p8-2*hbcm*p4p6*p5p8+hbcm*
3504      . p5p6*p5p8)+8*w7*(-ffmcfmb*hbcm*p2p8*p3p6-2*hbcm*p2p8*p4p6+hbcm
3505      . *p2p8*p5p6)+8*w11*(-ffmcfmb*hbcm*p2p8*p3p6+ffmcfmb*hbcm*p3p6*
3506      . p4p8-2*hbcm*p2p8*p4p6+hbcm*p2p8*p5p6+2*hbcm*p4p6*p4p8-hbcm*
3507      . p4p8*p5p6)+8*p6p8*(2*fb3*fmb+2*fb4*ffmcfmb*hbcm-2*fb4*hbcm-
3508      . hbcm))
3509       b(17)=ccc*(w2*(2*p5p8*(5*ffmcfmb*hbcm3-3*fmb*hbcm2-3*hbcm3)+4*(
3510      . hbcm*p1p3*p5p8-hbcm*p2p3*p5p8+hbcm*p3p4*p5p8-3*hbcm*p3p5*p5p8)
3511      . )+w7*(2*p2p8*(5*ffmcfmb*hbcm3-3*fmb*hbcm2-3*hbcm3)+4*(hbcm*
3512      . p1p3*p2p8-hbcm*p2p3*p2p8+hbcm*p2p8*p3p4-3*hbcm*p2p8*p3p5))+w11
3513      . *(2*p4p8*(-5*ffmcfmb*hbcm3+3*fmb*hbcm2+3*hbcm3)+2*p2p8*(5*
3514      . ffmcfmb*hbcm3-3*fmb*hbcm2-3*hbcm3)+4*(hbcm*p1p3*p2p8-hbcm*p1p3
3515      . *p4p8-hbcm*p2p3*p2p8+hbcm*p2p3*p4p8+hbcm*p2p8*p3p4-3*hbcm*p2p8
3516      . *p3p5-hbcm*p3p4*p4p8+3*hbcm*p3p5*p4p8))+8*(fb4*hbcm*p1p8-fb4*
3517      . hbcm*p2p8+fb4*hbcm*p4p8-3*fb4*hbcm*p5p8))
3518       b(18)=ccc*(w2*(4*(p5p8*p3p7)*(ffmcfmb*hbcm2-3*fmb*hbcm)+4*(
3519      . hbcm2*p4p7*p5p8-3*hbcm2*p5p7*p5p8))+w7*(4*(p3p7*p2p8)*(ffmcfmb
3520      . *hbcm2-3*fmb*hbcm)+4*(hbcm2*p2p8*p4p7-3*hbcm2*p2p8*p5p7))+w11*
3521      . (4*(p4p8*p3p7)*(-ffmcfmb*hbcm2+3*fmb*hbcm)+4*(p3p7*p2p8)*(
3522      . ffmcfmb*hbcm2-3*fmb*hbcm)+4*(hbcm2*p2p8*p4p7-3*hbcm2*p2p8*p5p7
3523      . -hbcm2*p4p7*p4p8+3*hbcm2*p4p8*p5p7))+(2*p7p8*(20*fb3*ffmcfmb*
3524      . hbcm2-12*fb3*hbcm2-12*fb4*fmb*hbcm+hbcm2)+16*(fb3*p1p3*p7p8-
3525      . fb3*p1p8*p3p7-fb3*p2p3*p7p8+fb3*p2p8*p3p7+fb3*p3p4*p7p8-3*fb3*
3526      . p3p5*p7p8-fb3*p3p7*p4p8+3*fb3*p3p7*p5p8)))
3527       b(19)=ccc*(6*w2*p5p8*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+6*w7*p2p8*
3528      . (-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+w11*(6*p4p8*(ffmcfmb*hbcm2+fmb
3529      . *hbcm-hbcm2)+6*p2p8*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2))+8*(-fb3*
3530      . p1p8+fb3*p2p8-fb3*p4p8+3*fb3*p5p8))
3531       b(20)=ccc*(w2*(4*(p5p8*p3p7)*(4*ffmcfmb*hbcm-3*hbcm)+4*(hbcm*
3532      . p4p7*p5p8-3*hbcm*p5p7*p5p8))+w7*(4*(p3p7*p2p8)*(4*ffmcfmb*hbcm
3533      . -3*hbcm)+4*(hbcm*p2p8*p4p7-3*hbcm*p2p8*p5p7))+w11*(4*(p4p8*
3534      . p3p7)*(-4*ffmcfmb*hbcm+3*hbcm)+4*(p3p7*p2p8)*(4*ffmcfmb*hbcm-3
3535      . *hbcm)+4*(hbcm*p2p8*p4p7-3*hbcm*p2p8*p5p7-hbcm*p4p7*p4p8+3*
3536      . hbcm*p4p8*p5p7))+2*p7p8*(12*fb3*fmb+12*fb4*ffmcfmb*hbcm-12*fb4
3537      . *hbcm+hbcm))
3538       b(21)=3*ccc*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm)
3539       b(22)=ccc*(20*fb3*ffmcfmb*hbcm2-12*fb3*hbcm2+8*fb3*p1p3-8*fb3*
3540      . p2p3+8*fb3*p3p4-24*fb3*p3p5-12*fb4*fmb*hbcm-3*hbcm2)
3541       b(23)=ccc*(2*p3p7*(-12*fb3*fmb+4*fb4*ffmcfmb*hbcm+3*hbcm)+8*(
3542      . fb4*hbcm*p4p7-3*fb4*hbcm*p5p7))
3543       b(24)=ccc*(4*p3p6*(-4*fb3*fmb-8*fb4*ffmcfmb*hbcm+4*fb4*hbcm+
3544      . hbcm)+16*(-2*fb4*hbcm*p4p6+fb4*hbcm*p5p6))
3545       b(25)=ccc*(6*p5p7*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+2*p4p7*(
3546      . 4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+2*p3p7*(-12*fb3*ffmcfmb*fmb
3547      . +16*fb3*ffmcfmb*fmc-12*fb3*fmc+4*fb4*ffmcfmb**2*hbcm-ffmcfmb*
3548      . hbcm+3*hbcm))
3549       b(26)=ccc*(4*p5p6*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+8*p4p6*(-
3550      . 4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+4*p3p6*(-4*fb3*ffmcfmb*fmc-
3551      . 4*fb4*ffmcfmb**2*hbcm+ffmcfmb*hbcm))
3552       b(27)=ccc*(16*(p3p7*p3p6)*(-4*fb3*ffmcfmb+fb3)+4*p6p7*(4*fb3*
3553      . ffmcfmb*hbcm2-4*fb4*fmb*hbcm-hbcm2)+16*(-fb3*p1p3*p6p7-fb3*
3554      . p2p3*p6p7+fb3*p3p4*p6p7-fb3*p3p5*p6p7-fb3*p3p6*p4p7+fb3*p3p6*
3555      . p5p7-4*fb3*p3p7*p4p6+2*fb3*p3p7*p5p6))
3556       b(28)=ccc*(8*w2*(p6p7*p5p8)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*w7
3557      . *(p6p7*p2p8)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+w11*(8*(p6p7*p4p8)
3558      . *(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(p6p7*p2p8)*(ffmcfmb*hbcm2+
3559      . fmb*hbcm-hbcm2))+(16*(p6p8*p3p7)*(-2*fb3*ffmcfmb+fb3)+16*(-2*
3560      . fb3*ffmcfmb*p3p6*p7p8-fb3*p1p8*p6p7-fb3*p2p8*p6p7-4*fb3*p4p6*
3561      . p7p8-fb3*p4p7*p6p8+fb3*p4p8*p6p7+2*fb3*p5p6*p7p8+fb3*p5p7*p6p8
3562      . -fb3*p5p8*p6p7)))
3563       b(29)=ccc*(8*p3p6*(-4*fb3*ffmcfmb+fb3)+8*(-5*fb3*p4p6+3*fb3*
3564      . p5p6))
3565       b(30)=ccc*(8*p3p7*(4*fb3*ffmcfmb-3*fb3)+8*(fb3*p4p7-3*fb3*p5p7)
3566      . )
3567       ans2=(8*(p6p8*p3p7)*(4*fb3*fmb-2*fb4*hbcm-hbcm)+16*(p7p8*p3p6)*
3568      . (-2*fb3*fmb-2*fb4*ffmcfmb*hbcm+fb4*hbcm)+16*(-fb4*hbcm*p1p8*
3569      . p6p7-fb4*hbcm*p2p8*p6p7-3*fb4*hbcm*p4p6*p7p8-fb4*hbcm*p4p7*
3570      . p6p8+fb4*hbcm*p4p8*p6p7+fb4*hbcm*p5p6*p7p8+fb4*hbcm*p5p7*p6p8-
3571      . fb4*hbcm*p5p8*p6p7))
3572       ans1=w2*(8*(p6p7*p5p8)*(ffmcfmb*hbcm3-fmb*hbcm2)+8*(-2*ffmcfmb*
3573      . hbcm*p3p6*p3p7*p5p8-hbcm*p1p3*p5p8*p6p7-hbcm*p2p3*p5p8*p6p7+
3574      . hbcm*p3p4*p5p8*p6p7-hbcm*p3p5*p5p8*p6p7-hbcm*p3p6*p4p7*p5p8+
3575      . hbcm*p3p6*p5p7*p5p8-3*hbcm*p3p7*p4p6*p5p8+hbcm*p3p7*p5p6*p5p8)
3576      . )+w7*(8*(p6p7*p2p8)*(ffmcfmb*hbcm3-fmb*hbcm2)+8*(-2*ffmcfmb*
3577      . hbcm*p2p8*p3p6*p3p7-hbcm*p1p3*p2p8*p6p7-hbcm*p2p3*p2p8*p6p7+
3578      . hbcm*p2p8*p3p4*p6p7-hbcm*p2p8*p3p5*p6p7-hbcm*p2p8*p3p6*p4p7+
3579      . hbcm*p2p8*p3p6*p5p7-3*hbcm*p2p8*p3p7*p4p6+hbcm*p2p8*p3p7*p5p6)
3580      . )+w11*(8*(p6p7*p4p8)*(-ffmcfmb*hbcm3+fmb*hbcm2)+8*(p6p7*p2p8)*
3581      . (ffmcfmb*hbcm3-fmb*hbcm2)+8*(-2*ffmcfmb*hbcm*p2p8*p3p6*p3p7+2*
3582      . ffmcfmb*hbcm*p3p6*p3p7*p4p8-hbcm*p1p3*p2p8*p6p7+hbcm*p1p3*p4p8
3583      . *p6p7-hbcm*p2p3*p2p8*p6p7+hbcm*p2p3*p4p8*p6p7+hbcm*p2p8*p3p4*
3584      . p6p7-hbcm*p2p8*p3p5*p6p7-hbcm*p2p8*p3p6*p4p7+hbcm*p2p8*p3p6*
3585      . p5p7-3*hbcm*p2p8*p3p7*p4p6+hbcm*p2p8*p3p7*p5p6-hbcm*p3p4*p4p8*
3586      . p6p7+hbcm*p3p5*p4p8*p6p7+hbcm*p3p6*p4p7*p4p8-hbcm*p3p6*p4p8*
3587      . p5p7+3*hbcm*p3p7*p4p6*p4p8-hbcm*p3p7*p4p8*p5p6))+ans2
3588       ans=ccc*ans1
3589       b(31)=ans
3590       b(32)=4*ccc*p6p7*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm)
3591       do 200 n=1,32
3592          c(n,1)=c(n,1)-0.1818181818181818d0*b(n)
3593          c(n,2)=c(n,2)-0.1512818716977898d0*b(n)
3594          c(n,3)=c(n,3)-0.1869893980016914d0*b(n)
3595 200   continue
3596       return
3597         end
3598
3599       subroutine amp29_1p1(cc)
3600       implicit double precision(a-h,o-z)
3601       implicit integer (i-n)
3602       dimension b(32)
3603 #include "inclcon.h"
3604 #include "inclppp.h"
3605 #include "inclamp.h"
3606       do 100 n=1,32
3607          b(n)=0.0d0
3608 100   continue
3609       ccc=cc/((ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3+2*ffmcfmb*p3p4+fmc2-2*
3610      . p1p4)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2)*(ffmcfmb**2*hbcm2
3611      . -2*ffmcfmb*hbcm2+2*ffmcfmb*p2p3-fmb2+hbcm2-2*p2p3))
3612       b(1)=ccc*(64*(p4p6*p3p7)*(fb3*ffmcfmb-fb3)+32*(p3p7*p3p6)*(fb3*
3613      . ffmcfmb-fb3)+2*p6p7*(4*fb3*ffmcfmb**2*hbcm2-12*fb3*ffmcfmb*
3614      . hbcm2-4*fb3*fmb*fmc-8*fb3*fmb2+8*fb3*hbcm2-4*fb4*ffmcfmb*fmb*
3615      . hbcm-4*fb4*ffmcfmb*fmc*hbcm+4*fb4*fmc*hbcm+fmb*hbcm+fmc*hbcm-
3616      . hbcm2)+32*(fb3*p1p2*p6p7-fb3*p2p3*p6p7-fb3*p2p4*p6p7))
3617       ans3=(4*(p6p7*p2p8)*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+8*(
3618      . p6p7*p4p8)*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm)+8*(
3619      . p6p8*p4p7)*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+hbcm)+16*
3620      . (p7p8*p4p6)*(-2*fb3*fmb-2*fb4*ffmcfmb*hbcm+2*fb4*hbcm+hbcm)+8*
3621      . (p6p7*p1p8)*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+hbcm)+4*
3622      . (p6p8*p3p7)*(-8*fb3*ffmcfmb*fmb+4*fb3*ffmcfmb*fmc-4*fb3*fmc-4*
3623      . fb4*ffmcfmb**2*hbcm+4*fb4*ffmcfmb*hbcm-ffmcfmb*hbcm+3*hbcm)+8*
3624      . (p7p8*p3p6)*(-4*fb3*ffmcfmb*fmb-4*fb4*ffmcfmb**2*hbcm+4*fb4*
3625      . ffmcfmb*hbcm+hbcm))
3626       ans2=w5*(16*(p4p8*p4p6*p3p7)*(-ffmcfmb*hbcm+hbcm)+16*(p4p6*p3p7
3627      . *p1p8)*(ffmcfmb*hbcm-hbcm)+4*(p6p7*p4p8)*(-ffmcfmb**2*hbcm3+
3628      . ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2+3*ffmcfmb*hbcm3-fmb*fmc*
3629      . hbcm+2*fmb2*hbcm+fmc*hbcm2-2*hbcm3)+4*(p6p7*p1p8)*(ffmcfmb**2*
3630      . hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2-3*ffmcfmb*hbcm3+fmb*
3631      . fmc*hbcm-2*fmb2*hbcm-fmc*hbcm2+2*hbcm3)+16*(p4p8*p3p7*p3p6)*(
3632      . ffmcfmb**2*hbcm-2*ffmcfmb*hbcm+hbcm)+16*(p3p7*p3p6*p1p8)*(-
3633      . ffmcfmb**2*hbcm+2*ffmcfmb*hbcm-hbcm)+16*(hbcm*p1p2*p1p8*p6p7-
3634      . hbcm*p1p2*p4p8*p6p7-hbcm*p1p8*p2p3*p6p7-hbcm*p1p8*p2p4*p6p7+
3635      . hbcm*p2p3*p4p8*p6p7+hbcm*p2p4*p4p8*p6p7))+ans3
3636       ans1=w1*(16*(p4p8*p4p6*p3p7)*(-ffmcfmb*hbcm+hbcm)+4*(p6p7*p4p8)
3637      . *(-ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2+3*
3638      . ffmcfmb*hbcm3-fmb*fmc*hbcm+2*fmb2*hbcm+fmc*hbcm2-2*hbcm3)+16*(
3639      . p4p8*p3p7*p3p6)*(ffmcfmb**2*hbcm-2*ffmcfmb*hbcm+hbcm)+16*(-
3640      . hbcm*p1p2*p4p8*p6p7+hbcm*p2p3*p4p8*p6p7+hbcm*p2p4*p4p8*p6p7))+
3641      . w8*(16*(p4p6*p3p7*p2p8)*(-ffmcfmb*hbcm+hbcm)+4*(p6p7*p2p8)*(-
3642      . ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2+3*ffmcfmb
3643      . *hbcm3-fmb*fmc*hbcm+2*fmb2*hbcm+fmc*hbcm2-2*hbcm3)+16*(p3p7*
3644      . p3p6*p2p8)*(ffmcfmb**2*hbcm-2*ffmcfmb*hbcm+hbcm)+16*(-hbcm*
3645      . p1p2*p2p8*p6p7+hbcm*p2p3*p2p8*p6p7+hbcm*p2p4*p2p8*p6p7))+ans2
3646       ans=ccc*ans1
3647       b(2)=ans
3648       ans2=(2*p7p8*(ffmcfmb*hbcm2+4*fmb*hbcm+3*fmc*hbcm-4*hbcm2)+48*(
3649      . p5p8*p3p7)*(-fb3*ffmcfmb+fb3)+16*(p4p8*p3p7)*(fb3*ffmcfmb-fb3)
3650      . +16*(p3p7*p1p8)*(fb3*ffmcfmb-fb3)+16*(-fb3*ffmcfmb*p2p8*p3p7-
3651      . fb3*p2p8*p4p7+3*fb3*p2p8*p5p7))
3652       ans1=w1*(12*(p5p7*p4p8)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+4*(p4p8*
3653      . p4p7)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+4*(p4p8*p3p7)*(-ffmcfmb
3654      . **2*hbcm2-4*ffmcfmb*fmb*hbcm-3*ffmcfmb*fmc*hbcm+4*ffmcfmb*
3655      . hbcm2+3*fmb*hbcm+3*fmc*hbcm-3*hbcm2))+w8*(12*(p5p7*p2p8)*(
3656      . ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+4*(p4p7*p2p8)*(-ffmcfmb*hbcm2-
3657      . fmb*hbcm+hbcm2)+4*(p3p7*p2p8)*(-ffmcfmb**2*hbcm2-4*ffmcfmb*fmb
3658      . *hbcm-3*ffmcfmb*fmc*hbcm+4*ffmcfmb*hbcm2+3*fmb*hbcm+3*fmc*hbcm
3659      . -3*hbcm2))+w5*(12*(p5p7*p4p8)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+4
3660      . *(p4p8*p4p7)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+12*(p5p7*p1p8)*(-
3661      . ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+4*(p4p7*p1p8)*(ffmcfmb*hbcm2+fmb
3662      . *hbcm-hbcm2)+4*(p4p8*p3p7)*(-ffmcfmb**2*hbcm2-4*ffmcfmb*fmb*
3663      . hbcm-3*ffmcfmb*fmc*hbcm+4*ffmcfmb*hbcm2+3*fmb*hbcm+3*fmc*hbcm-
3664      . 3*hbcm2)+4*(p3p7*p1p8)*(ffmcfmb**2*hbcm2+4*ffmcfmb*fmb*hbcm+3*
3665      . ffmcfmb*fmc*hbcm-4*ffmcfmb*hbcm2-3*fmb*hbcm-3*fmc*hbcm+3*hbcm2
3666      . ))+ans2
3667       ans=ccc*ans1
3668       b(3)=ans
3669       b(4)=ccc*(48*(p3p7*p3p5)*(fb3*ffmcfmb-fb3)+16*(p3p7*p3p4)*(-fb3
3670      . *ffmcfmb+fb3)+48*(p3p7*p2p3)*(-fb3*ffmcfmb+fb3)+16*(p3p7*p1p3)
3671      . *(-fb3*ffmcfmb+fb3)+6*p5p7*(-4*fb3*ffmcfmb*hbcm2+4*fb3*hbcm2-4
3672      . *fb4*fmb*hbcm-hbcm2)+2*p4p7*(4*fb3*ffmcfmb*hbcm2-4*fb3*hbcm2+4
3673      . *fb4*fmb*hbcm+hbcm2)+2*p3p7*(-4*fb3*ffmcfmb**2*hbcm2+16*fb3*
3674      . ffmcfmb*hbcm2-12*fb3*hbcm2+16*fb4*ffmcfmb*fmb*hbcm+12*fb4*
3675      . ffmcfmb*fmc*hbcm-12*fb4*fmb*hbcm-12*fb4*fmc*hbcm+ffmcfmb*hbcm2
3676      . ))
3677       ans3=(2*p7p8*(-ffmcfmb*hbcm3+4*fmb*hbcm2-3*fmc*hbcm2+2*hbcm3)+
3678      . 48*(p5p8*p3p7)*(fb4*ffmcfmb*hbcm-fb4*hbcm)+16*(p4p8*p3p7)*(-
3679      . fb4*ffmcfmb*hbcm+fb4*hbcm)+48*(p3p7*p2p8)*(-fb4*ffmcfmb*hbcm+
3680      . fb4*hbcm)+16*(p3p7*p1p8)*(-fb4*ffmcfmb*hbcm+fb4*hbcm)+4*(-hbcm
3681      . *p1p3*p7p8-3*hbcm*p2p3*p7p8-hbcm*p3p4*p7p8+3*hbcm*p3p5*p7p8))
3682       ans2=w5*(12*(p5p7*p4p8)*(ffmcfmb*hbcm3+fmb*hbcm2-hbcm3)+4*(p4p8
3683      . *p4p7)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+12*(p5p7*p1p8)*(-
3684      . ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+4*(p4p7*p1p8)*(ffmcfmb*hbcm3+
3685      . fmb*hbcm2-hbcm3)+24*(p4p8*p3p7*p3p5)*(-ffmcfmb*hbcm+hbcm)+8*(
3686      . p4p8*p3p7*p3p4)*(ffmcfmb*hbcm-hbcm)+24*(p4p8*p3p7*p2p3)*(
3687      . ffmcfmb*hbcm-hbcm)+24*(p3p7*p3p5*p1p8)*(ffmcfmb*hbcm-hbcm)+8*(
3688      . p3p7*p3p4*p1p8)*(-ffmcfmb*hbcm+hbcm)+24*(p3p7*p2p3*p1p8)*(-
3689      . ffmcfmb*hbcm+hbcm)+8*(p4p8*p3p7*p1p3)*(ffmcfmb*hbcm-hbcm)+8*(
3690      . p3p7*p1p8*p1p3)*(-ffmcfmb*hbcm+hbcm)+4*(p4p8*p3p7)*(ffmcfmb**2
3691      . *hbcm3-4*ffmcfmb*fmb*hbcm2+3*ffmcfmb*fmc*hbcm2-4*ffmcfmb*hbcm3
3692      . +3*fmb*hbcm2-3*fmc*hbcm2+3*hbcm3)+4*(p3p7*p1p8)*(-ffmcfmb**2*
3693      . hbcm3+4*ffmcfmb*fmb*hbcm2-3*ffmcfmb*fmc*hbcm2+4*ffmcfmb*hbcm3-
3694      . 3*fmb*hbcm2+3*fmc*hbcm2-3*hbcm3))+ans3
3695       ans1=w1*(12*(p5p7*p4p8)*(ffmcfmb*hbcm3+fmb*hbcm2-hbcm3)+4*(p4p8
3696      . *p4p7)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+24*(p4p8*p3p7*p3p5)*(-
3697      . ffmcfmb*hbcm+hbcm)+8*(p4p8*p3p7*p3p4)*(ffmcfmb*hbcm-hbcm)+24*(
3698      . p4p8*p3p7*p2p3)*(ffmcfmb*hbcm-hbcm)+8*(p4p8*p3p7*p1p3)*(
3699      . ffmcfmb*hbcm-hbcm)+4*(p4p8*p3p7)*(ffmcfmb**2*hbcm3-4*ffmcfmb*
3700      . fmb*hbcm2+3*ffmcfmb*fmc*hbcm2-4*ffmcfmb*hbcm3+3*fmb*hbcm2-3*
3701      . fmc*hbcm2+3*hbcm3))+w8*(12*(p5p7*p2p8)*(ffmcfmb*hbcm3+fmb*
3702      . hbcm2-hbcm3)+4*(p4p7*p2p8)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+24
3703      . *(p3p7*p3p5*p2p8)*(-ffmcfmb*hbcm+hbcm)+8*(p3p7*p3p4*p2p8)*(
3704      . ffmcfmb*hbcm-hbcm)+24*(p3p7*p2p8*p2p3)*(ffmcfmb*hbcm-hbcm)+8*(
3705      . p3p7*p2p8*p1p3)*(ffmcfmb*hbcm-hbcm)+4*(p3p7*p2p8)*(ffmcfmb**2*
3706      . hbcm3-4*ffmcfmb*fmb*hbcm2+3*ffmcfmb*fmc*hbcm2-4*ffmcfmb*hbcm3+
3707      . 3*fmb*hbcm2-3*fmc*hbcm2+3*hbcm3))+ans2
3708       ans=ccc*ans1
3709       b(5)=ans
3710       b(6)=ccc*(w1*(16*(p4p8*p4p6)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(
3711      . p4p8*p3p6)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2))+w8*(16*(p4p6*p2p8)*
3712      . (ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(p3p6*p2p8)*(ffmcfmb*hbcm2+
3713      . fmb*hbcm-hbcm2))+w5*(16*(p4p8*p4p6)*(ffmcfmb*hbcm2+fmb*hbcm-
3714      . hbcm2)+8*(p4p8*p3p6)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(p4p6*
3715      . p1p8)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(p3p6*p1p8)*(-ffmcfmb*
3716      . hbcm2-fmb*hbcm+hbcm2))+(2*p6p8*(4*fb3*ffmcfmb**2*hbcm2-12*fb3*
3717      . ffmcfmb*hbcm2-4*fb3*fmb*fmc-8*fb3*fmb2+8*fb3*hbcm2-4*fb4*
3718      . ffmcfmb*fmb*hbcm-4*fb4*ffmcfmb*fmc*hbcm+4*fb4*fmc*hbcm+fmb*
3719      . hbcm+fmc*hbcm-hbcm2)+32*(-fb3*ffmcfmb*p2p8*p3p6+fb3*p1p2*p6p8-
3720      . fb3*p2p3*p6p8-fb3*p2p4*p6p8-fb3*p2p8*p4p6)))
3721       b(7)=ccc*(32*(p3p6*p2p3)*(fb3*ffmcfmb+fb3)+8*p4p6*(-4*fb3*
3722      . ffmcfmb*hbcm2+4*fb3*hbcm2-4*fb4*fmb*hbcm-hbcm2)+2*p3p6*(-4*fb3
3723      . *ffmcfmb**2*hbcm2+4*fb3*ffmcfmb*hbcm2+4*fb3*fmb*fmc+8*fb3*fmb2
3724      . +4*fb4*ffmcfmb*fmb*hbcm+4*fb4*ffmcfmb*fmc*hbcm-8*fb4*fmb*hbcm-
3725      . 4*fb4*fmc*hbcm-fmb*hbcm-fmc*hbcm-hbcm2)+32*(-fb3*p1p2*p3p6+fb3
3726      . *p2p3*p4p6+fb3*p2p4*p3p6))
3727       ans3=(8*(p6p8*p2p3)*(4*fb4*hbcm+hbcm)+8*(p4p8*p3p6)*(-4*fb3*fmb
3728      . -4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+hbcm)+8*(p6p8*p3p4)*(4*fb3*fmb+
3729      . 4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm)+8*(p3p6*p1p8)*(4*fb3*fmb+4
3730      . *fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm)+8*(p6p8*p1p3)*(-4*fb3*fmb-4
3731      . *fb4*ffmcfmb*hbcm+4*fb4*hbcm+hbcm)+2*p6p8*(12*fb3*ffmcfmb*fmb*
3732      . hbcm2-4*fb3*ffmcfmb*fmc*hbcm2+4*fb3*fmc*hbcm2+4*fb4*ffmcfmb**2
3733      . *hbcm3+4*fb4*ffmcfmb*hbcm3-4*fb4*fmb*fmc*hbcm+8*fb4*fmb2*hbcm-
3734      . 8*fb4*hbcm3+3*fmb*hbcm2-fmc*hbcm2-3*hbcm3)+32*(fb4*ffmcfmb*
3735      . hbcm*p2p8*p3p6-fb4*hbcm*p1p2*p6p8+fb4*hbcm*p2p4*p6p8+fb4*hbcm*
3736      . p2p8*p4p6))
3737       ans2=w5*(8*(p4p8*p4p6)*(ffmcfmb*hbcm3+fmb*hbcm2-hbcm3)+8*(p4p6*
3738      . p1p8)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+16*(p4p8*p3p6*p2p3)*(-
3739      . ffmcfmb*hbcm-hbcm)+16*(p3p6*p2p3*p1p8)*(ffmcfmb*hbcm+hbcm)+4*(
3740      . p4p8*p3p6)*(-ffmcfmb**2*hbcm3-3*ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*
3741      . hbcm2+ffmcfmb*hbcm3+fmb*fmc*hbcm+2*fmb*hbcm2-2*fmb2*hbcm-fmc*
3742      . hbcm2)+4*(p3p6*p1p8)*(ffmcfmb**2*hbcm3+3*ffmcfmb*fmb*hbcm2-
3743      . ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3-fmb*fmc*hbcm-2*fmb*hbcm2+2*
3744      . fmb2*hbcm+fmc*hbcm2)+16*(-hbcm*p1p2*p1p8*p3p6+hbcm*p1p2*p3p6*
3745      . p4p8+hbcm*p1p8*p2p3*p4p6+hbcm*p1p8*p2p4*p3p6-hbcm*p2p3*p4p6*
3746      . p4p8-hbcm*p2p4*p3p6*p4p8))+ans3
3747       ans1=w1*(8*(p4p8*p4p6)*(ffmcfmb*hbcm3+fmb*hbcm2-hbcm3)+16*(p4p8
3748      . *p3p6*p2p3)*(-ffmcfmb*hbcm-hbcm)+4*(p4p8*p3p6)*(-ffmcfmb**2*
3749      . hbcm3-3*ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3+fmb*
3750      . fmc*hbcm+2*fmb*hbcm2-2*fmb2*hbcm-fmc*hbcm2)+16*(hbcm*p1p2*p3p6
3751      . *p4p8-hbcm*p2p3*p4p6*p4p8-hbcm*p2p4*p3p6*p4p8))+w8*(8*(p4p6*
3752      . p2p8)*(ffmcfmb*hbcm3+fmb*hbcm2-hbcm3)+16*(p3p6*p2p8*p2p3)*(-
3753      . ffmcfmb*hbcm-hbcm)+4*(p3p6*p2p8)*(-ffmcfmb**2*hbcm3-3*ffmcfmb*
3754      . fmb*hbcm2+ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3+fmb*fmc*hbcm+2*fmb*
3755      . hbcm2-2*fmb2*hbcm-fmc*hbcm2)+16*(hbcm*p1p2*p2p8*p3p6-hbcm*p2p3
3756      . *p2p8*p4p6-hbcm*p2p4*p2p8*p3p6))+ans2
3757       ans=ccc*ans1
3758       b(8)=ans
3759       b(9)=ccc*(4*(p6p7*p2p3)*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-8*fb4*
3760      . hbcm-hbcm)+8*(p4p6*p3p7)*(4*fb3*fmb+8*fb4*ffmcfmb*hbcm-8*fb4*
3761      . hbcm-hbcm)+8*(p4p7*p3p6)*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*
3762      . hbcm-hbcm)+8*(p6p7*p3p4)*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*
3763      . hbcm+hbcm)+8*(p6p7*p1p3)*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*
3764      . hbcm-hbcm)+4*(p3p7*p3p6)*(16*fb3*ffmcfmb*fmb-4*fb3*ffmcfmb*fmc
3765      . +4*fb3*fmc+4*fb4*ffmcfmb**2*hbcm+4*fb4*ffmcfmb*hbcm-8*fb4*hbcm
3766      . -3*ffmcfmb*hbcm-hbcm)+2*p6p7*(-12*fb3*ffmcfmb*fmb*hbcm2+4*fb3*
3767      . ffmcfmb*fmc*hbcm2-4*fb3*fmc*hbcm2-4*fb4*ffmcfmb**2*hbcm3-4*fb4
3768      . *ffmcfmb*hbcm3+4*fb4*fmb*fmc*hbcm-8*fb4*fmb2*hbcm+8*fb4*hbcm3+
3769      . 2*ffmcfmb*hbcm3-fmb*hbcm2+fmc*hbcm2+hbcm3)+32*(fb4*hbcm*p1p2*
3770      . p6p7-fb4*hbcm*p2p4*p6p7))
3771       ans5=16*(-hbcm2*p1p2*p1p8*p6p7+hbcm2*p1p2*p4p8*p6p7+hbcm2*p1p8*
3772      . p2p3*p6p7+hbcm2*p1p8*p2p4*p6p7-hbcm2*p2p3*p4p8*p6p7-hbcm2*p2p4
3773      . *p4p8*p6p7)
3774       ans4=16*(p4p8*p4p6*p3p7)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(
3775      . p4p8*p4p7*p3p6)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(p6p7*p4p8*
3776      . p3p4)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(p4p6*p3p7*p1p8)*(
3777      . ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(p4p7*p3p6*p1p8)*(-ffmcfmb*
3778      . hbcm2-fmb*hbcm+hbcm2)+16*(p6p7*p3p4*p1p8)*(ffmcfmb*hbcm2+fmb*
3779      . hbcm-hbcm2)+16*(p6p7*p4p8*p1p3)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)
3780      . +16*(p6p7*p1p8*p1p3)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+4*(p6p7*
3781      . p4p8)*(-ffmcfmb**2*hbcm4-3*ffmcfmb*fmb*hbcm3-ffmcfmb*fmc*hbcm3
3782      . -ffmcfmb*hbcm4-fmb*fmc*hbcm2-2*fmb2*hbcm2+fmc*hbcm3+2*hbcm4)+4
3783      . *(p6p7*p1p8)*(ffmcfmb**2*hbcm4+3*ffmcfmb*fmb*hbcm3+ffmcfmb*fmc
3784      . *hbcm3+ffmcfmb*hbcm4+fmb*fmc*hbcm2+2*fmb2*hbcm2-fmc*hbcm3-2*
3785      . hbcm4)+8*(p4p8*p3p7*p3p6)*(-ffmcfmb**2*hbcm2+4*ffmcfmb*fmb*
3786      . hbcm+ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-2*fmb*hbcm-fmc*hbcm)+8*(
3787      . p3p7*p3p6*p1p8)*(ffmcfmb**2*hbcm2-4*ffmcfmb*fmb*hbcm-ffmcfmb*
3788      . fmc*hbcm-ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm)+ans5
3789       ans3=w5*ans4
3790       ans7=64*(3*fb3*ffmcfmb*p2p8*p3p6*p3p7+fb3*p1p2*p3p6*p7p8-fb3*
3791      . p1p2*p3p7*p6p8+fb3*p1p3*p2p8*p6p7+fb3*p2p3*p3p7*p6p8-fb3*p2p3*
3792      . p4p6*p7p8-fb3*p2p4*p3p6*p7p8+fb3*p2p4*p3p7*p6p8-fb3*p2p8*p3p4*
3793      . p6p7+fb3*p2p8*p3p6*p4p7+2*fb3*p2p8*p3p7*p4p6)
3794       ans6=64*(p4p8*p3p7*p3p6)*(-fb3*ffmcfmb+fb3)+64*(p6p8*p3p7*p3p4)
3795      . *(fb3*ffmcfmb-fb3)+64*(p7p8*p3p6*p2p3)*(-fb3*ffmcfmb-fb3)+64*(
3796      . p3p7*p3p6*p1p8)*(fb3*ffmcfmb-fb3)+64*(p6p8*p3p7*p1p3)*(-fb3*
3797      . ffmcfmb+fb3)+8*(p6p7*p4p8)*(4*fb3*ffmcfmb*hbcm2-4*fb3*hbcm2+4*
3798      . fb4*fmb*hbcm+hbcm2)+8*(p6p8*p4p7)*(-4*fb3*ffmcfmb*hbcm2+4*fb3*
3799      . hbcm2-4*fb4*fmb*hbcm-hbcm2)+8*(p7p8*p4p6)*(4*fb3*ffmcfmb*hbcm2
3800      . -4*fb3*hbcm2+4*fb4*fmb*hbcm+hbcm2)+4*(p6p8*p3p7)*(8*fb3*
3801      . ffmcfmb*hbcm2+4*fb3*fmb*fmc+8*fb3*fmb2-8*fb3*hbcm2-4*fb4*
3802      . ffmcfmb*fmb*hbcm+ffmcfmb*hbcm2-3*fmb*hbcm-fmc*hbcm-2*hbcm2)+4*
3803      . (p6p7*p2p8)*(-12*fb3*ffmcfmb*hbcm2+4*fb4*fmc*hbcm-hbcm2)+8*(
3804      . p6p7*p1p8)*(-4*fb3*ffmcfmb*hbcm2+4*fb3*hbcm2-4*fb4*fmb*hbcm-
3805      . hbcm2)+4*(p7p8*p3p6)*(-4*fb3*ffmcfmb**2*hbcm2+4*fb3*ffmcfmb*
3806      . hbcm2-4*fb3*fmb*fmc-8*fb3*fmb2-12*fb4*ffmcfmb*fmb*hbcm-4*fb4*
3807      . ffmcfmb*fmc*hbcm+8*fb4*fmb*hbcm+4*fb4*fmc*hbcm+ffmcfmb*hbcm2-
3808      . fmb*hbcm+hbcm2)+ans7
3809       ans2=w8*(16*(p4p6*p3p7*p2p8)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16
3810      . *(p4p7*p3p6*p2p8)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(p6p7*p3p4
3811      . *p2p8)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(p6p7*p2p8*p1p3)*(
3812      . ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+4*(p6p7*p2p8)*(-ffmcfmb**2*hbcm4
3813      . -3*ffmcfmb*fmb*hbcm3-ffmcfmb*fmc*hbcm3-ffmcfmb*hbcm4-fmb*fmc*
3814      . hbcm2-2*fmb2*hbcm2+fmc*hbcm3+2*hbcm4)+8*(p3p7*p3p6*p2p8)*(-
3815      . ffmcfmb**2*hbcm2+4*ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+ffmcfmb*
3816      . hbcm2-2*fmb*hbcm-fmc*hbcm)+16*(hbcm2*p1p2*p2p8*p6p7-hbcm2*p2p3
3817      . *p2p8*p6p7-hbcm2*p2p4*p2p8*p6p7))+ans3+ans6
3818       ans1=w1*(16*(p4p8*p4p6*p3p7)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16
3819      . *(p4p8*p4p7*p3p6)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+16*(p6p7*p4p8
3820      . *p3p4)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+16*(p6p7*p4p8*p1p3)*(
3821      . ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+4*(p6p7*p4p8)*(-ffmcfmb**2*hbcm4
3822      . -3*ffmcfmb*fmb*hbcm3-ffmcfmb*fmc*hbcm3-ffmcfmb*hbcm4-fmb*fmc*
3823      . hbcm2-2*fmb2*hbcm2+fmc*hbcm3+2*hbcm4)+8*(p4p8*p3p7*p3p6)*(-
3824      . ffmcfmb**2*hbcm2+4*ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+ffmcfmb*
3825      . hbcm2-2*fmb*hbcm-fmc*hbcm)+16*(hbcm2*p1p2*p4p8*p6p7-hbcm2*p2p3
3826      . *p4p8*p6p7-hbcm2*p2p4*p4p8*p6p7))+ans2
3827       ans=ccc*ans1
3828       b(10)=ans
3829       ans=ccc*(w1*(6*p4p8*(ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2+
3830      . ffmcfmb*hbcm3-fmb*fmc*hbcm+fmb2*hbcm+fmc*hbcm2-hbcm3)+4*(
3831      . ffmcfmb*hbcm*p2p3*p4p8+hbcm*p1p2*p4p8+hbcm*p2p4*p4p8-3*hbcm*
3832      . p2p5*p4p8))+w8*(6*p2p8*(ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2+
3833      . ffmcfmb*hbcm3-fmb*fmc*hbcm+fmb2*hbcm+fmc*hbcm2-hbcm3)+4*(
3834      . ffmcfmb*hbcm*p2p3*p2p8+hbcm*p1p2*p2p8+hbcm*p2p4*p2p8-3*hbcm*
3835      . p2p5*p2p8))+w5*(6*p4p8*(ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2+
3836      . ffmcfmb*hbcm3-fmb*fmc*hbcm+fmb2*hbcm+fmc*hbcm2-hbcm3)+6*p1p8*(
3837      . -ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3+fmb*fmc*
3838      . hbcm-fmb2*hbcm-fmc*hbcm2+hbcm3)+4*(-ffmcfmb*hbcm*p1p8*p2p3+
3839      . ffmcfmb*hbcm*p2p3*p4p8-hbcm*p1p2*p1p8+hbcm*p1p2*p4p8-hbcm*p1p8
3840      . *p2p4+3*hbcm*p1p8*p2p5+hbcm*p2p4*p4p8-3*hbcm*p2p5*p4p8))+(6*
3841      . p5p8*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+hbcm)+2*p4p8*(4
3842      . *fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm)+8*p2p8*(3*fb3*fmb
3843      . +3*fb4*ffmcfmb*hbcm-3*fb4*hbcm-hbcm)+2*p1p8*(4*fb3*fmb+4*fb4*
3844      . ffmcfmb*hbcm-4*fb4*hbcm-hbcm)))
3845       b(11)=ans
3846       b(12)=ccc*(12*fb3*ffmcfmb*hbcm2+8*fb3*ffmcfmb*p2p3+12*fb3*fmb*
3847      . fmc+12*fb3*fmb2-12*fb3*hbcm2+8*fb3*p1p2+8*fb3*p2p4-24*fb3*p2p5
3848      . +12*fb4*ffmcfmb*fmb*hbcm+12*fb4*ffmcfmb*fmc*hbcm-12*fb4*fmc*
3849      . hbcm-3*fmb*hbcm-3*fmc*hbcm+3*hbcm2)
3850       ans3=(6*p5p8*(4*fb3*ffmcfmb*hbcm2-4*fb3*hbcm2+4*fb4*fmb*hbcm+
3851      . hbcm2)+2*p4p8*(-4*fb3*ffmcfmb*hbcm2+4*fb3*hbcm2-4*fb4*fmb*hbcm
3852      . -hbcm2)+8*p2p8*(-3*fb3*ffmcfmb*hbcm2+3*fb3*hbcm2-3*fb4*fmb*
3853      . hbcm-hbcm2)+2*p1p8*(-4*fb3*ffmcfmb*hbcm2+4*fb3*hbcm2-4*fb4*fmb
3854      . *hbcm-hbcm2))
3855       ans2=w5*(12*(p4p8*p3p5)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+4*(p4p8
3856      . *p3p4)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+4*(p4p8*p2p3)*(4*ffmcfmb
3857      . *hbcm2+3*fmb*hbcm-3*hbcm2)+12*(p3p5*p1p8)*(ffmcfmb*hbcm2+fmb*
3858      . hbcm-hbcm2)+4*(p3p4*p1p8)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+4*(
3859      . p2p3*p1p8)*(-4*ffmcfmb*hbcm2-3*fmb*hbcm+3*hbcm2)+4*(p4p8*p1p3)
3860      . *(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+4*(p1p8*p1p3)*(-ffmcfmb*hbcm2-
3861      . fmb*hbcm+hbcm2)+2*p4p8*(2*ffmcfmb**2*hbcm4+5*ffmcfmb*fmb*hbcm3
3862      . +3*ffmcfmb*fmc*hbcm3-5*ffmcfmb*hbcm4+3*fmb*fmc*hbcm2-6*fmb*
3863      . hbcm3+3*fmb2*hbcm2-3*fmc*hbcm3+3*hbcm4)+2*p1p8*(-2*ffmcfmb**2*
3864      . hbcm4-5*ffmcfmb*fmb*hbcm3-3*ffmcfmb*fmc*hbcm3+5*ffmcfmb*hbcm4-
3865      . 3*fmb*fmc*hbcm2+6*fmb*hbcm3-3*fmb2*hbcm2+3*fmc*hbcm3-3*hbcm4)+
3866      . 4*(-hbcm2*p1p2*p1p8+hbcm2*p1p2*p4p8-hbcm2*p1p8*p2p4+3*hbcm2*
3867      . p1p8*p2p5+hbcm2*p2p4*p4p8-3*hbcm2*p2p5*p4p8))+ans3
3868       ans1=w1*(12*(p4p8*p3p5)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+4*(p4p8
3869      . *p3p4)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+4*(p4p8*p2p3)*(4*ffmcfmb
3870      . *hbcm2+3*fmb*hbcm-3*hbcm2)+4*(p4p8*p1p3)*(ffmcfmb*hbcm2+fmb*
3871      . hbcm-hbcm2)+2*p4p8*(2*ffmcfmb**2*hbcm4+5*ffmcfmb*fmb*hbcm3+3*
3872      . ffmcfmb*fmc*hbcm3-5*ffmcfmb*hbcm4+3*fmb*fmc*hbcm2-6*fmb*hbcm3+
3873      . 3*fmb2*hbcm2-3*fmc*hbcm3+3*hbcm4)+4*(hbcm2*p1p2*p4p8+hbcm2*
3874      . p2p4*p4p8-3*hbcm2*p2p5*p4p8))+w8*(12*(p3p5*p2p8)*(-ffmcfmb*
3875      . hbcm2-fmb*hbcm+hbcm2)+4*(p3p4*p2p8)*(ffmcfmb*hbcm2+fmb*hbcm-
3876      . hbcm2)+4*(p2p8*p2p3)*(4*ffmcfmb*hbcm2+3*fmb*hbcm-3*hbcm2)+4*(
3877      . p2p8*p1p3)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+2*p2p8*(2*ffmcfmb**2
3878      . *hbcm4+5*ffmcfmb*fmb*hbcm3+3*ffmcfmb*fmc*hbcm3-5*ffmcfmb*hbcm4
3879      . +3*fmb*fmc*hbcm2-6*fmb*hbcm3+3*fmb2*hbcm2-3*fmc*hbcm3+3*hbcm4)
3880      . +4*(hbcm2*p1p2*p2p8+hbcm2*p2p4*p2p8-3*hbcm2*p2p5*p2p8))+ans2
3881       ans=ccc*ans1
3882       b(13)=ans
3883       b(14)=ccc*(6*p3p5*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm
3884      . )+2*p3p4*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+hbcm)+2*
3885      . p2p3*(-12*fb3*fmb-16*fb4*ffmcfmb*hbcm+12*fb4*hbcm+3*hbcm)+2*
3886      . p1p3*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+hbcm)+(-20*fb3*
3887      . ffmcfmb*fmb*hbcm2+12*fb3*ffmcfmb*fmc*hbcm2+24*fb3*fmb*hbcm2-12
3888      . *fb3*fmc*hbcm2-8*fb4*ffmcfmb**2*hbcm3+20*fb4*ffmcfmb*hbcm3+12*
3889      . fb4*fmb*fmc*hbcm-12*fb4*fmb2*hbcm-8*fb4*hbcm*p1p2-8*fb4*hbcm*
3890      . p2p4+24*fb4*hbcm*p2p5-12*fb4*hbcm3+2*ffmcfmb*hbcm3-3*fmb*hbcm2
3891      . +3*fmc*hbcm2-3*hbcm3))
3892       b(15)=ccc*(w1*(4*(p4p8*p3p6)*(ffmcfmb*hbcm2-fmc*hbcm-2*hbcm2)-
3893      . 16*hbcm2*p4p6*p4p8)+w8*(4*(p3p6*p2p8)*(ffmcfmb*hbcm2-fmc*hbcm-
3894      . 2*hbcm2)-16*hbcm2*p2p8*p4p6)+w5*(4*(p4p8*p3p6)*(ffmcfmb*hbcm2-
3895      . fmc*hbcm-2*hbcm2)+4*(p3p6*p1p8)*(-ffmcfmb*hbcm2+fmc*hbcm+2*
3896      . hbcm2)+16*(hbcm2*p1p8*p4p6-hbcm2*p4p6*p4p8))+(2*p6p8*(-12*fb3*
3897      . ffmcfmb*hbcm2+4*fb4*fmc*hbcm-hbcm2)+32*(fb3*p1p3*p6p8-fb3*p1p8
3898      . *p3p6-fb3*p3p4*p6p8+fb3*p3p6*p4p8)))
3899       b(16)=ccc*(w1*(8*(p4p8*p3p6)*(ffmcfmb*hbcm+hbcm)+24*hbcm*p4p6*
3900      . p4p8)+w8*(8*(p3p6*p2p8)*(ffmcfmb*hbcm+hbcm)+24*hbcm*p2p8*p4p6)
3901      . +w5*(8*(p4p8*p3p6)*(ffmcfmb*hbcm+hbcm)+8*(p3p6*p1p8)*(-ffmcfmb
3902      . *hbcm-hbcm)+24*(-hbcm*p1p8*p4p6+hbcm*p4p6*p4p8))+2*p6p8*(-4*
3903      . fb3*fmc-4*fb4*ffmcfmb*hbcm-hbcm))
3904       b(17)=ccc*(w1*(2*p4p8*(-5*ffmcfmb*hbcm3-3*fmc*hbcm2+6*hbcm3)+4*
3905      . (-hbcm*p1p3*p4p8-3*hbcm*p2p3*p4p8-hbcm*p3p4*p4p8+3*hbcm*p3p5*
3906      . p4p8))+w8*(2*p2p8*(-5*ffmcfmb*hbcm3-3*fmc*hbcm2+6*hbcm3)+4*(-
3907      . hbcm*p1p3*p2p8-3*hbcm*p2p3*p2p8-hbcm*p2p8*p3p4+3*hbcm*p2p8*
3908      . p3p5))+w5*(2*p4p8*(-5*ffmcfmb*hbcm3-3*fmc*hbcm2+6*hbcm3)+2*
3909      . p1p8*(5*ffmcfmb*hbcm3+3*fmc*hbcm2-6*hbcm3)+4*(hbcm*p1p3*p1p8-
3910      . hbcm*p1p3*p4p8+3*hbcm*p1p8*p2p3+hbcm*p1p8*p3p4-3*hbcm*p1p8*
3911      . p3p5-3*hbcm*p2p3*p4p8-hbcm*p3p4*p4p8+3*hbcm*p3p5*p4p8))+8*(fb4
3912      . *hbcm*p1p8+3*fb4*hbcm*p2p8+fb4*hbcm*p4p8-3*fb4*hbcm*p5p8))
3913       b(18)=ccc*(w1*(4*(p4p8*p3p7)*(-4*ffmcfmb*hbcm2+3*hbcm2)+4*(-
3914      . hbcm2*p4p7*p4p8+3*hbcm2*p4p8*p5p7))+w8*(4*(p3p7*p2p8)*(-4*
3915      . ffmcfmb*hbcm2+3*hbcm2)+4*(-hbcm2*p2p8*p4p7+3*hbcm2*p2p8*p5p7))
3916      . +w5*(4*(p4p8*p3p7)*(-4*ffmcfmb*hbcm2+3*hbcm2)+4*(p3p7*p1p8)*(4
3917      . *ffmcfmb*hbcm2-3*hbcm2)+4*(hbcm2*p1p8*p4p7-3*hbcm2*p1p8*p5p7-
3918      . hbcm2*p4p7*p4p8+3*hbcm2*p4p8*p5p7))+8*hbcm2*p7p8)
3919       b(19)=ccc*(6*w1*p4p8*(-ffmcfmb*hbcm2+fmc*hbcm)+6*w8*p2p8*(-
3920      . ffmcfmb*hbcm2+fmc*hbcm)+w5*(6*p4p8*(-ffmcfmb*hbcm2+fmc*hbcm)+6
3921      . *p1p8*(ffmcfmb*hbcm2-fmc*hbcm))+8*(-fb3*p1p8-3*fb3*p2p8-fb3*
3922      . p4p8+3*fb3*p5p8))
3923       b(20)=ccc*(w1*(4*(p4p8*p3p7)*(-4*ffmcfmb*hbcm+3*hbcm)+4*(-hbcm*
3924      . p4p7*p4p8+3*hbcm*p4p8*p5p7))+w8*(4*(p3p7*p2p8)*(-4*ffmcfmb*
3925      . hbcm+3*hbcm)+4*(-hbcm*p2p8*p4p7+3*hbcm*p2p8*p5p7))+w5*(4*(p4p8
3926      . *p3p7)*(-4*ffmcfmb*hbcm+3*hbcm)+4*(p3p7*p1p8)*(4*ffmcfmb*hbcm-
3927      . 3*hbcm)+4*(hbcm*p1p8*p4p7-3*hbcm*p1p8*p5p7-hbcm*p4p7*p4p8+3*
3928      . hbcm*p4p8*p5p7))+8*hbcm*p7p8)
3929       b(21)=3*ccc*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)
3930       b(22)=ccc*(20*fb3*ffmcfmb*hbcm2-24*fb3*hbcm2+8*fb3*p1p3+24*fb3*
3931      . p2p3+8*fb3*p3p4-24*fb3*p3p5-12*fb4*fmc*hbcm+3*hbcm2)
3932       b(23)=ccc*(8*p3p7*(4*fb4*ffmcfmb*hbcm-3*fb4*hbcm)+8*(fb4*hbcm*
3933      . p4p7-3*fb4*hbcm*p5p7))
3934       b(24)=ccc*(2*p3p6*(4*fb3*fmc-4*fb4*ffmcfmb*hbcm-8*fb4*hbcm-hbcm
3935      . )-48*fb4*hbcm*p4p6)
3936       b(25)=ccc*(6*p5p7*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm
3937      . )+2*p4p7*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+hbcm)+2*
3938      . p3p7*(-16*fb3*ffmcfmb*fmb+12*fb3*ffmcfmb*fmc+12*fb3*fmb-12*fb3
3939      . *fmc-4*fb4*ffmcfmb**2*hbcm+16*fb4*ffmcfmb*hbcm-12*fb4*hbcm+
3940      . ffmcfmb*hbcm))
3941       b(26)=ccc*(12*p4p6*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-
3942      . hbcm)+4*p3p6*(4*fb3*ffmcfmb*fmb+4*fb3*fmb+4*fb4*ffmcfmb**2*
3943      . hbcm-4*fb4*hbcm-ffmcfmb*hbcm-hbcm))
3944       b(27)=ccc*(2*p6p7*(12*fb3*ffmcfmb*hbcm2-4*fb4*fmc*hbcm+hbcm2)+
3945      . 32*(-2*fb3*ffmcfmb*p3p6*p3p7-fb3*p1p3*p6p7+fb3*p3p4*p6p7-fb3*
3946      . p3p6*p4p7-fb3*p3p7*p4p6))
3947       b(28)=ccc*(4*w1*(p6p7*p4p8)*(ffmcfmb*hbcm2-fmc*hbcm)+4*w8*(p6p7
3948      . *p2p8)*(ffmcfmb*hbcm2-fmc*hbcm)+w5*(4*(p6p7*p4p8)*(ffmcfmb*
3949      . hbcm2-fmc*hbcm)+4*(p6p7*p1p8)*(-ffmcfmb*hbcm2+fmc*hbcm))+32*(-
3950      . fb3*ffmcfmb*p3p6*p7p8-fb3*ffmcfmb*p3p7*p6p8-fb3*p1p8*p6p7-fb3*
3951      . p4p6*p7p8-fb3*p4p7*p6p8+fb3*p4p8*p6p7))
3952       b(29)=ccc*(16*p3p6*(-2*fb3*ffmcfmb-fb3)-64*fb3*p4p6)
3953       b(30)=ccc*(8*p3p7*(4*fb3*ffmcfmb-3*fb3)+8*(fb3*p4p7-3*fb3*p5p7)
3954      . )
3955       ans=ccc*(w1*(4*(p6p7*p4p8)*(-3*ffmcfmb*hbcm3-fmc*hbcm2)+16*(2*
3956      . ffmcfmb*hbcm*p3p6*p3p7*p4p8+hbcm*p1p3*p4p8*p6p7-hbcm*p3p4*p4p8
3957      . *p6p7+hbcm*p3p6*p4p7*p4p8+hbcm*p3p7*p4p6*p4p8))+w8*(4*(p6p7*
3958      . p2p8)*(-3*ffmcfmb*hbcm3-fmc*hbcm2)+16*(2*ffmcfmb*hbcm*p2p8*
3959      . p3p6*p3p7+hbcm*p1p3*p2p8*p6p7-hbcm*p2p8*p3p4*p6p7+hbcm*p2p8*
3960      . p3p6*p4p7+hbcm*p2p8*p3p7*p4p6))+w5*(4*(p6p7*p4p8)*(-3*ffmcfmb*
3961      . hbcm3-fmc*hbcm2)+4*(p6p7*p1p8)*(3*ffmcfmb*hbcm3+fmc*hbcm2)+16*
3962      . (-2*ffmcfmb*hbcm*p1p8*p3p6*p3p7+2*ffmcfmb*hbcm*p3p6*p3p7*p4p8-
3963      . hbcm*p1p3*p1p8*p6p7+hbcm*p1p3*p4p8*p6p7+hbcm*p1p8*p3p4*p6p7-
3964      . hbcm*p1p8*p3p6*p4p7-hbcm*p1p8*p3p7*p4p6-hbcm*p3p4*p4p8*p6p7+
3965      . hbcm*p3p6*p4p7*p4p8+hbcm*p3p7*p4p6*p4p8))+(8*(p6p8*p3p7)*(-4*
3966      . fb4*ffmcfmb*hbcm-hbcm)+8*(p7p8*p3p6)*(-4*fb4*ffmcfmb*hbcm-hbcm
3967      . )+32*(-fb4*hbcm*p1p8*p6p7-fb4*hbcm*p4p6*p7p8-fb4*hbcm*p4p7*
3968      . p6p8+fb4*hbcm*p4p8*p6p7)))
3969       b(31)=ans
3970       b(32)=2*ccc*p6p7*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)
3971       do 200 n=1,32
3972          c(n,1)=c(n,1)-0.1818181818181818d0*b(n)
3973          c(n,2)=c(n,2)-0.1512818716977898d0*b(n)
3974          c(n,3)=c(n,3)-0.1869893980016914d0*b(n)
3975 200   continue
3976       return
3977         end
3978
3979       subroutine amp5_1p1(cc)
3980       implicit double precision(a-h,o-z)
3981       implicit integer (i-n)
3982       dimension b(31)
3983 #include "inclcon.h"
3984 #include "inclppp.h"
3985 #include "inclamp.h"
3986       do 100 n=1,31
3987          b(n)=0.0d0
3988 100   continue
3989       ccc=cc/((-2*p1p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3+2*ffmcfmb*
3990      . p3p4+fmc2-2*p1p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2+2*ffmcfmb*
3991      . p2p3-fmb2+hbcm2-2*p2p3))
3992       b(3)=ccc*(8*w8*(p3p7*p2p8)*(ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm-
3993      . ffmcfmb*hbcm2-fmc*hbcm+hbcm2)+w5*(8*(p4p8*p3p7)*(ffmcfmb*fmb*
3994      . hbcm+ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2-fmc*hbcm+hbcm2)+8*(p3p7*
3995      . p1p8)*(-ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2+fmc*
3996      . hbcm-hbcm2))+(4*p7p8*(-4*fb3*ffmcfmb*hbcm2-4*fb3*fmb*fmc-4*fb3
3997      . *fmb2+4*fb3*hbcm2-4*fb4*ffmcfmb*fmb*hbcm-4*fb4*ffmcfmb*fmc*
3998      . hbcm+4*fb4*fmc*hbcm+hbcm2)+32*(fb3*p2p5*p7p8+fb3*p2p8*p3p7+fb3
3999      . *p2p8*p5p7)))
4000       b(4)=ccc*(4*p3p7*(4*fb3*fmb*fmc+4*fb3*fmb2-fmb*hbcm-fmc*hbcm)+
4001      . 32*(fb3*p2p3*p5p7-fb3*p2p5*p3p7))
4002       ans2=(8*(p5p8*p3p7)*(4*fb3*fmb-hbcm)+32*(p7p8*p3p5)*(-fb3*fmb-
4003      . fb4*ffmcfmb*hbcm+fb4*hbcm)+8*(p3p7*p2p8)*(-4*fb3*fmb+hbcm)+32*
4004      . (p7p8*p2p3)*(fb3*fmb+fb4*ffmcfmb*hbcm-fb4*hbcm)+4*p7p8*(4*fb3*
4005      . ffmcfmb*fmb*hbcm2-4*fb3*ffmcfmb*fmc*hbcm2-8*fb3*fmb*hbcm2+4*
4006      . fb3*fmc*hbcm2-4*fb4*ffmcfmb*hbcm3-4*fb4*fmb*fmc*hbcm+4*fb4*
4007      . fmb2*hbcm+4*fb4*hbcm3-fmb*hbcm2+fmc*hbcm2)+32*(-fb4*hbcm*p2p5*
4008      . p7p8+fb4*hbcm*p2p8*p5p7))
4009       ans1=w8*(8*(p5p7*p2p8)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+16*(
4010      . p3p7*p3p5*p2p8)*(ffmcfmb*hbcm-hbcm)+16*(p3p7*p2p8*p2p3)*(-
4011      . ffmcfmb*hbcm+hbcm)+8*(p3p7*p2p8)*(ffmcfmb*fmb*hbcm2-ffmcfmb*
4012      . fmc*hbcm2+ffmcfmb*hbcm3+fmb*fmc*hbcm-fmb*hbcm2-fmb2*hbcm+fmc*
4013      . hbcm2-hbcm3)+16*(-hbcm*p2p3*p2p8*p5p7+hbcm*p2p5*p2p8*p3p7))+w5
4014      . *(8*(p5p7*p4p8)*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+8*(p5p7*p1p8)
4015      . *(ffmcfmb*hbcm3+fmb*hbcm2-hbcm3)+16*(p4p8*p3p7*p3p5)*(ffmcfmb*
4016      . hbcm-hbcm)+16*(p4p8*p3p7*p2p3)*(-ffmcfmb*hbcm+hbcm)+16*(p3p7*
4017      . p3p5*p1p8)*(-ffmcfmb*hbcm+hbcm)+16*(p3p7*p2p3*p1p8)*(ffmcfmb*
4018      . hbcm-hbcm)+8*(p4p8*p3p7)*(ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2+
4019      . ffmcfmb*hbcm3+fmb*fmc*hbcm-fmb*hbcm2-fmb2*hbcm+fmc*hbcm2-hbcm3
4020      . )+8*(p3p7*p1p8)*(-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2-ffmcfmb*
4021      . hbcm3-fmb*fmc*hbcm+fmb*hbcm2+fmb2*hbcm-fmc*hbcm2+hbcm3)+16*(
4022      . hbcm*p1p8*p2p3*p5p7-hbcm*p1p8*p2p5*p3p7-hbcm*p2p3*p4p8*p5p7+
4023      . hbcm*p2p5*p3p7*p4p8))+ans2
4024       ans=ccc*ans1
4025       b(5)=ans
4026       b(11)=ccc*(w8*(4*p2p8*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+8*(-hbcm
4027      . *p2p3*p2p8-hbcm*p2p5*p2p8))+w5*(4*p4p8*(-ffmcfmb*hbcm3-fmb*
4028      . hbcm2+hbcm3)+4*p1p8*(ffmcfmb*hbcm3+fmb*hbcm2-hbcm3)+8*(hbcm*
4029      . p1p8*p2p3+hbcm*p1p8*p2p5-hbcm*p2p3*p4p8-hbcm*p2p5*p4p8))+(4*
4030      . p2p8*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+4*p5p8*(-4*fb3*fmb-4*
4031      . fb4*ffmcfmb*hbcm+4*fb4*hbcm+hbcm)))
4032       b(12)=2*ccc*(4*fb3*fmb*fmc+4*fb3*fmb2-8*fb3*p2p3-16*fb3*p2p5+4*
4033      . fb4*ffmcfmb*fmb*hbcm+4*fb4*ffmcfmb*fmc*hbcm-4*fb4*fmb*hbcm-4*
4034      . fb4*fmc*hbcm-fmb*hbcm-fmc*hbcm)
4035       b(13)=ccc*(w8*(8*(p2p8*p2p3)*(-fmb*hbcm-fmc*hbcm)+4*p2p8*(-
4036      . ffmcfmb*fmb*hbcm3-ffmcfmb*fmc*hbcm3-fmb*fmc*hbcm2+fmb*hbcm3-
4037      . fmb2*hbcm2+fmc*hbcm3))+w5*(8*(p4p8*p2p3)*(-fmb*hbcm-fmc*hbcm)+
4038      . 8*(p2p3*p1p8)*(fmb*hbcm+fmc*hbcm)+4*p4p8*(-ffmcfmb*fmb*hbcm3-
4039      . ffmcfmb*fmc*hbcm3-fmb*fmc*hbcm2+fmb*hbcm3-fmb2*hbcm2+fmc*hbcm3
4040      . )+4*p1p8*(ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*hbcm3+fmb*fmc*hbcm2-
4041      . fmb*hbcm3+fmb2*hbcm2-fmc*hbcm3))+(16*p2p8*(fb3*hbcm2+fb4*fmb*
4042      . hbcm+fb4*fmc*hbcm)+32*(-fb3*p2p3*p5p8+fb3*p2p8*p3p5)))
4043       b(14)=ccc*(4*p2p3*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+
4044      . hbcm)+4*p3p5*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm)+2*
4045      . (4*fb3*fmb*hbcm2+4*fb4*ffmcfmb*hbcm3+8*fb4*hbcm*p2p5-4*fb4*
4046      . hbcm3-hbcm3))
4047       b(17)=ccc*(w8*(4*p2p8*(ffmcfmb*hbcm3+fmb*hbcm2)+8*hbcm*p2p8*
4048      . p3p5)+w5*(4*p4p8*(ffmcfmb*hbcm3+fmb*hbcm2)+4*p1p8*(-ffmcfmb*
4049      . hbcm3-fmb*hbcm2)+8*(-hbcm*p1p8*p3p5+hbcm*p3p5*p4p8))-16*fb4*
4050      . hbcm*p5p8)
4051       b(18)=ccc*(8*w8*(p3p7*p2p8)*(ffmcfmb*hbcm2+fmc*hbcm-hbcm2)+w5*(
4052      . 8*(p4p8*p3p7)*(ffmcfmb*hbcm2+fmc*hbcm-hbcm2)+8*(p3p7*p1p8)*(-
4053      . ffmcfmb*hbcm2-fmc*hbcm+hbcm2))+(4*p7p8*(4*fb3*ffmcfmb*hbcm2-8*
4054      . fb3*hbcm2-4*fb4*fmc*hbcm-hbcm2)+32*(fb3*p2p3*p7p8-fb3*p2p8*
4055      . p3p7-fb3*p3p5*p7p8+fb3*p3p7*p5p8)))
4056       b(19)=ccc*(4*w8*p2p8*(fmb*hbcm+fmc*hbcm)+w5*(4*p4p8*(fmb*hbcm+
4057      . fmc*hbcm)+4*p1p8*(-fmb*hbcm-fmc*hbcm))+16*(-fb3*p2p8+2*fb3*
4058      . p5p8))
4059       b(20)=ccc*(8*w8*(ffmcfmb*hbcm*p2p8*p3p7+hbcm*p2p8*p5p7)+8*w5*(-
4060      . ffmcfmb*hbcm*p1p8*p3p7+ffmcfmb*hbcm*p3p7*p4p8-hbcm*p1p8*p5p7+
4061      . hbcm*p4p8*p5p7)+16*p7p8*(-fb3*fmc-fb4*ffmcfmb*hbcm))
4062       b(21)=2*ccc*(4*fb3*fmb-8*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)
4063       b(22)=8*ccc*(-2*fb3*hbcm2+2*fb3*p2p3-4*fb3*p3p5-fb4*fmb*hbcm-
4064      . fb4*fmc*hbcm)
4065       b(23)=ccc*(4*p3p7*(4*fb3*fmc-hbcm)-16*fb4*hbcm*p5p7)
4066       b(25)=ccc*(4*p5p7*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm
4067      . )+4*p3p7*(4*fb3*fmb-hbcm))
4068       b(30)=16*ccc*(-fb3*p3p7-2*fb3*p5p7)
4069       do 200 n=1,31
4070          c(n,2)=c(n,2)+0.09245003270420485d0*b(n)
4071          c(n,3)=c(n,3)-0.02077659977796572d0*b(n)
4072 200   continue
4073       return
4074         end
4075
4076       subroutine amp4_1p1(cc)
4077       implicit double precision(a-h,o-z)
4078       implicit integer (i-n)
4079       dimension b(30)
4080 #include "inclcon.h"
4081 #include "inclppp.h"
4082 #include "inclamp.h"
4083       do 100 n=1,30
4084          b(n)=0.0d0
4085 100   continue
4086       ccc=cc/((-2*p1p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*
4087      . p3p5+fmb2+hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p2p3-fmc2)
4088      . )
4089       b(3)=ccc*(8*w2*(p5p8*p3p7)*(-ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm+
4090      . ffmcfmb*hbcm2+fmc*hbcm)+8*w7*(p3p7*p2p8)*(-ffmcfmb*fmb*hbcm-
4091      . ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2+fmc*hbcm)+(4*p7p8*(4*fb3*
4092      . ffmcfmb*hbcm2+4*fb4*fmc*hbcm-fmb*hbcm-fmc*hbcm+hbcm2)+32*(fb3*
4093      . p2p5*p7p8+fb3*p2p8*p3p7+fb3*p2p8*p5p7)))
4094       b(4)=ccc*(16*p3p7*(-fb4*ffmcfmb*fmb*hbcm-fb4*ffmcfmb*fmc*hbcm)+
4095      . 32*(fb3*p2p3*p5p7-fb3*p2p5*p3p7))
4096       b(5)=ccc*(w2*(8*(p5p8*p5p7)*(ffmcfmb*hbcm3-fmc*hbcm2)+8*(p5p8*
4097      . p3p7)*(-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3-fmb*
4098      . fmc*hbcm+fmc2*hbcm)+16*(ffmcfmb*hbcm*p2p3*p3p7*p5p8-ffmcfmb*
4099      . hbcm*p3p5*p3p7*p5p8))+w7*(8*(p5p7*p2p8)*(ffmcfmb*hbcm3-fmc*
4100      . hbcm2)+8*(p3p7*p2p8)*(-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2-
4101      . ffmcfmb*hbcm3-fmb*fmc*hbcm+fmc2*hbcm)+16*(ffmcfmb*hbcm*p2p3*
4102      . p2p8*p3p7-ffmcfmb*hbcm*p2p8*p3p5*p3p7))+(4*p7p8*(-4*fb3*
4103      . ffmcfmb*fmb*hbcm2+4*fb3*ffmcfmb*fmc*hbcm2-4*fb4*fmb*fmc*hbcm+4
4104      . *fb4*fmc2*hbcm-fmb*hbcm2+fmc*hbcm2-hbcm3)+8*(4*fb4*ffmcfmb*
4105      . hbcm*p2p8*p3p7-4*fb4*ffmcfmb*hbcm*p3p7*p5p8+hbcm*p2p3*p7p8-
4106      . hbcm*p3p5*p7p8)))
4107       b(11)=ccc*(w2*(4*p5p8*(ffmcfmb*hbcm3-fmc*hbcm2)+8*hbcm*p2p5*
4108      . p5p8)+w7*(4*p2p8*(ffmcfmb*hbcm3-fmc*hbcm2)+8*hbcm*p2p5*p2p8)+(
4109      . 4*p5p8*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+4*p2p8*(-4*fb3*fmb-
4110      . 4*fb4*ffmcfmb*hbcm+hbcm)))
4111       b(12)=2*ccc*(-4*fb3*fmb*fmc-4*fb3*fmc2-8*fb3*p2p3-16*fb3*p2p5-4
4112      . *fb4*ffmcfmb*fmb*hbcm-4*fb4*ffmcfmb*fmc*hbcm+fmb*hbcm+fmc*hbcm
4113      . )
4114       b(13)=ccc*(4*w2*p5p8*(ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*hbcm3-fmb*
4115      . fmc*hbcm2-fmc2*hbcm2)+4*w7*p2p8*(ffmcfmb*fmb*hbcm3+ffmcfmb*fmc
4116      . *hbcm3-fmb*fmc*hbcm2-fmc2*hbcm2)+16*(fb3*hbcm2*p2p8-2*fb3*p2p3
4117      . *p5p8+2*fb3*p2p8*p3p5))
4118       b(14)=ccc*(4*p3p5*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+4*p2p3*(
4119      . 4*fb3*fmb+4*fb4*ffmcfmb*hbcm-hbcm)+2*(-4*fb3*fmc*hbcm2-4*fb4*
4120      . ffmcfmb*hbcm3+8*fb4*hbcm*p2p5+hbcm3))
4121       b(17)=ccc*(w2*(4*p5p8*(-ffmcfmb*hbcm3+fmc*hbcm2-hbcm3)+8*(hbcm*
4122      . p2p3*p5p8-hbcm*p3p5*p5p8))+w7*(4*p2p8*(-ffmcfmb*hbcm3+fmc*
4123      . hbcm2-hbcm3)+8*(hbcm*p2p3*p2p8-hbcm*p2p8*p3p5))+16*(fb4*hbcm*
4124      . p2p8-fb4*hbcm*p5p8))
4125       b(18)=ccc*(8*w2*(p5p8*p3p7)*(-ffmcfmb*hbcm2-fmc*hbcm)+8*w7*(
4126      . p3p7*p2p8)*(-ffmcfmb*hbcm2-fmc*hbcm)+(4*p7p8*(-4*fb3*ffmcfmb*
4127      . hbcm2-4*fb3*hbcm2-4*fb4*fmc*hbcm-hbcm2)+32*(fb3*p2p3*p7p8-fb3*
4128      . p2p8*p3p7-fb3*p3p5*p7p8+fb3*p3p7*p5p8)))
4129       b(19)=ccc*(4*w2*p5p8*(-fmb*hbcm-fmc*hbcm)+4*w7*p2p8*(-fmb*hbcm-
4130      . fmc*hbcm)+16*(-fb3*p2p8+2*fb3*p5p8))
4131       b(20)=ccc*(8*w2*(-ffmcfmb*hbcm*p3p7*p5p8-hbcm*p5p7*p5p8)+8*w7*(
4132      . -ffmcfmb*hbcm*p2p8*p3p7-hbcm*p2p8*p5p7)+4*p7p8*(4*fb3*fmb-4*
4133      . fb3*fmc-hbcm))
4134       b(21)=2*ccc*(8*fb3*fmb-4*fb3*fmc+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-
4135      . hbcm)
4136       b(22)=8*ccc*(-2*fb3*hbcm2+2*fb3*p2p3-4*fb3*p3p5-fb4*fmb*hbcm-
4137      . fb4*fmc*hbcm)
4138       b(23)=ccc*(16*p3p7*(-fb3*fmb+fb3*fmc-fb4*ffmcfmb*hbcm)-16*fb4*
4139      . hbcm*p5p7)
4140       b(25)=ccc*(4*p5p7*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)-16*fb4*
4141      . ffmcfmb*hbcm*p3p7)
4142       b(30)=16*ccc*(-fb3*p3p7-2*fb3*p5p7)
4143       do 200 n=1,30
4144          c(n,2)=c(n,2)+0.09245003270420485d0*b(n)
4145          c(n,3)=c(n,3)-0.02077659977796572d0*b(n)
4146 200   continue
4147       return
4148         end
4149
4150       subroutine amp36_1p1(cc)
4151       implicit double precision(a-h,o-z)
4152       implicit integer (i-n)
4153       dimension b(32)
4154 #include "inclcon.h"
4155 #include "inclppp.h"
4156 #include "inclamp.h"
4157       do 100 n=1,32
4158          b(n)=0.0d0
4159 100   continue
4160       ccc=cc/((ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*p3p5+fmb2+
4161      . hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3+2*ffmcfmb*p3p4+
4162      . fmc2-2*p1p4)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2))
4163       b(1)=ccc*(32*(p4p6*p3p7)*(2*fb3*ffmcfmb-fb3)+16*(p5p7*p3p6)*(-
4164      . fb3*ffmcfmb-fb3)+16*(p4p7*p3p6)*(-fb3*ffmcfmb+2*fb3)+p6p7*(4*
4165      . fb3*ffmcfmb**2*hbcm2-12*fb3*ffmcfmb*hbcm2-4*fb3*fmb*fmc-8*fb3*
4166      . fmc2-4*fb4*ffmcfmb*fmb*hbcm-4*fb4*ffmcfmb*fmc*hbcm+4*fb4*fmc*
4167      . hbcm+fmb*hbcm+fmc*hbcm-hbcm2)+16*(fb3*ffmcfmb*p3p6*p3p7+fb3*
4168      . p1p2*p6p7+fb3*p1p3*p6p7+fb3*p1p4*p6p7-fb3*p2p3*p6p7-fb3*p2p4*
4169      . p6p7-fb3*p3p4*p6p7+fb3*p3p7*p5p6+2*fb3*p4p6*p4p7-3*fb3*p4p6*
4170      . p5p7+fb3*p4p7*p5p6))
4171       ans3=(2*(p6p8*p5p7)*(8*fb3*fmb-4*fb3*fmc+4*fb4*ffmcfmb*hbcm-8*
4172      . fb4*hbcm-hbcm)+4*(p6p7*p4p8)*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*
4173      . fb4*hbcm-hbcm)+2*(p6p8*p4p7)*(-8*fb3*fmb+4*fb3*fmc-4*fb4*
4174      . ffmcfmb*hbcm+8*fb4*hbcm-3*hbcm)+4*(p7p8*p4p6)*(-4*fb3*fmb-4*
4175      . fb4*ffmcfmb*hbcm+4*fb4*hbcm+3*hbcm)+16*(p6p7*p2p8)*(fb3*fmb-
4176      . fb3*fmc-fb4*hbcm)+4*(p6p7*p1p8)*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm
4177      . +4*fb4*hbcm+hbcm)+2*(p6p8*p3p7)*(-16*fb3*ffmcfmb*fmb+8*fb3*
4178      . ffmcfmb*fmc+8*fb3*fmb-4*fb3*fmc-8*fb4*ffmcfmb**2*hbcm+20*fb4*
4179      . ffmcfmb*hbcm-8*fb4*hbcm-2*ffmcfmb*hbcm-hbcm)+4*(p7p8*p3p6)*(-4
4180      . *fb3*ffmcfmb*fmb-4*fb4*ffmcfmb**2*hbcm+4*fb4*ffmcfmb*hbcm-
4181      . ffmcfmb*hbcm+2*hbcm))
4182       ans2=w5*(8*(p4p8*p4p6*p3p7)*(-2*ffmcfmb*hbcm+hbcm)+16*(p4p8*
4183      . p4p7*p3p6)*(ffmcfmb*hbcm-hbcm)+8*(p4p6*p3p7*p1p8)*(2*ffmcfmb*
4184      . hbcm-hbcm)+16*(p4p7*p3p6*p1p8)*(-ffmcfmb*hbcm+hbcm)+2*(p6p7*
4185      . p4p8)*(-ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2+3
4186      . *ffmcfmb*hbcm3-fmb*fmc*hbcm+fmc*hbcm2+2*fmc2*hbcm)+2*(p6p7*
4187      . p1p8)*(ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2-3*
4188      . ffmcfmb*hbcm3+fmb*fmc*hbcm-fmc*hbcm2-2*fmc2*hbcm)+16*(p4p8*
4189      . p3p7*p3p6)*(ffmcfmb**2*hbcm-ffmcfmb*hbcm)+16*(p3p7*p3p6*p1p8)*
4190      . (-ffmcfmb**2*hbcm+ffmcfmb*hbcm)+8*(hbcm*p1p2*p1p8*p6p7-hbcm*
4191      . p1p2*p4p8*p6p7+hbcm*p1p3*p1p8*p6p7-hbcm*p1p3*p4p8*p6p7+hbcm*
4192      . p1p4*p1p8*p6p7-hbcm*p1p4*p4p8*p6p7-hbcm*p1p8*p2p3*p6p7-hbcm*
4193      . p1p8*p2p4*p6p7-hbcm*p1p8*p3p4*p6p7-hbcm*p1p8*p3p6*p5p7+hbcm*
4194      . p1p8*p3p7*p5p6+hbcm*p1p8*p4p6*p4p7-2*hbcm*p1p8*p4p6*p5p7+hbcm*
4195      . p1p8*p4p7*p5p6+hbcm*p2p3*p4p8*p6p7+hbcm*p2p4*p4p8*p6p7+hbcm*
4196      . p3p4*p4p8*p6p7+hbcm*p3p6*p4p8*p5p7-hbcm*p3p7*p4p8*p5p6-hbcm*
4197      . p4p6*p4p7*p4p8+2*hbcm*p4p6*p4p8*p5p7-hbcm*p4p7*p4p8*p5p6))+
4198      . ans3
4199       ans1=w2*(8*(p5p8*p4p6*p3p7)*(2*ffmcfmb*hbcm-hbcm)+16*(p5p8*p4p7
4200      . *p3p6)*(-ffmcfmb*hbcm+hbcm)+2*(p6p7*p5p8)*(ffmcfmb**2*hbcm3-
4201      . ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2-3*ffmcfmb*hbcm3+fmb*fmc*
4202      . hbcm-fmc*hbcm2-2*fmc2*hbcm)+16*(p5p8*p3p7*p3p6)*(-ffmcfmb**2*
4203      . hbcm+ffmcfmb*hbcm)+8*(hbcm*p1p2*p5p8*p6p7+hbcm*p1p3*p5p8*p6p7+
4204      . hbcm*p1p4*p5p8*p6p7-hbcm*p2p3*p5p8*p6p7-hbcm*p2p4*p5p8*p6p7-
4205      . hbcm*p3p4*p5p8*p6p7-hbcm*p3p6*p5p7*p5p8+hbcm*p3p7*p5p6*p5p8+
4206      . hbcm*p4p6*p4p7*p5p8-2*hbcm*p4p6*p5p7*p5p8+hbcm*p4p7*p5p6*p5p8)
4207      . )+w1*(8*(p4p8*p4p6*p3p7)*(-2*ffmcfmb*hbcm+hbcm)+16*(p4p8*p4p7*
4208      . p3p6)*(ffmcfmb*hbcm-hbcm)+2*(p6p7*p4p8)*(-ffmcfmb**2*hbcm3+
4209      . ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2+3*ffmcfmb*hbcm3-fmb*fmc*
4210      . hbcm+fmc*hbcm2+2*fmc2*hbcm)+16*(p4p8*p3p7*p3p6)*(ffmcfmb**2*
4211      . hbcm-ffmcfmb*hbcm)+8*(-hbcm*p1p2*p4p8*p6p7-hbcm*p1p3*p4p8*p6p7
4212      . -hbcm*p1p4*p4p8*p6p7+hbcm*p2p3*p4p8*p6p7+hbcm*p2p4*p4p8*p6p7+
4213      . hbcm*p3p4*p4p8*p6p7+hbcm*p3p6*p4p8*p5p7-hbcm*p3p7*p4p8*p5p6-
4214      . hbcm*p4p6*p4p7*p4p8+2*hbcm*p4p6*p4p8*p5p7-hbcm*p4p7*p4p8*p5p6)
4215      . )+ans2
4216       ans=ccc*ans1
4217       b(2)=ans
4218       ans2=(p7p8*(ffmcfmb*hbcm2+7*fmb*hbcm+6*fmc*hbcm-7*hbcm2)+8*(
4219      . p5p8*p3p7)*(-7*fb3*ffmcfmb+3*fb3)+8*(p4p8*p3p7)*(fb3*ffmcfmb-
4220      . fb3)+8*(p3p7*p1p8)*(3*fb3*ffmcfmb-fb3)+8*(-fb3*ffmcfmb*p2p8*
4221      . p3p7+2*fb3*p1p8*p4p7-fb3*p1p8*p5p7-fb3*p2p8*p4p7-4*fb3*p4p7*
4222      . p5p8-fb3*p4p8*p5p7+3*fb3*p5p7*p5p8))
4223       ans1=w2*(6*(p5p8*p5p7)*(-fmb*hbcm-fmc*hbcm+hbcm2)+2*(p5p8*p4p7)
4224      . *(ffmcfmb*hbcm2+4*fmb*hbcm+3*fmc*hbcm-4*hbcm2)+2*(p5p8*p3p7)*(
4225      . ffmcfmb**2*hbcm2+7*ffmcfmb*fmb*hbcm+6*ffmcfmb*fmc*hbcm-7*
4226      . ffmcfmb*hbcm2-3*fmb*hbcm-3*fmc*hbcm+3*hbcm2))+w1*(6*(p5p7*p4p8
4227      . )*(fmb*hbcm+fmc*hbcm-hbcm2)+2*(p4p8*p4p7)*(-ffmcfmb*hbcm2-4*
4228      . fmb*hbcm-3*fmc*hbcm+4*hbcm2)+2*(p4p8*p3p7)*(-ffmcfmb**2*hbcm2-
4229      . 7*ffmcfmb*fmb*hbcm-6*ffmcfmb*fmc*hbcm+7*ffmcfmb*hbcm2+3*fmb*
4230      . hbcm+3*fmc*hbcm-3*hbcm2))+w5*(6*(p5p7*p4p8)*(fmb*hbcm+fmc*hbcm
4231      . -hbcm2)+6*(p5p7*p1p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+2*(p4p8*p4p7)
4232      . *(-ffmcfmb*hbcm2-4*fmb*hbcm-3*fmc*hbcm+4*hbcm2)+2*(p4p7*p1p8)*
4233      . (ffmcfmb*hbcm2+4*fmb*hbcm+3*fmc*hbcm-4*hbcm2)+2*(p4p8*p3p7)*(-
4234      . ffmcfmb**2*hbcm2-7*ffmcfmb*fmb*hbcm-6*ffmcfmb*fmc*hbcm+7*
4235      . ffmcfmb*hbcm2+3*fmb*hbcm+3*fmc*hbcm-3*hbcm2)+2*(p3p7*p1p8)*(
4236      . ffmcfmb**2*hbcm2+7*ffmcfmb*fmb*hbcm+6*ffmcfmb*fmc*hbcm-7*
4237      . ffmcfmb*hbcm2-3*fmb*hbcm-3*fmc*hbcm+3*hbcm2))+ans2
4238       ans=ccc*ans1
4239       b(3)=ans
4240       b(4)=ccc*(8*(p3p7*p3p5)*(7*fb3*ffmcfmb-3*fb3)+8*(p3p7*p3p4)*(-
4241      . fb3*ffmcfmb+fb3)+8*(p3p7*p2p3)*(-7*fb3*ffmcfmb+3*fb3)+8*(p3p7*
4242      . p1p3)*(-3*fb3*ffmcfmb+fb3)+4*p5p7*(2*fb3*ffmcfmb*hbcm2-3*fb3*
4243      . hbcm2-3*fb4*fmb*hbcm-3*fb4*fmc*hbcm)+p4p7*(-4*fb3*ffmcfmb*
4244      . hbcm2+16*fb3*hbcm2+16*fb4*fmb*hbcm+12*fb4*fmc*hbcm+hbcm2)+p3p7
4245      . *(-12*fb3*ffmcfmb**2*hbcm2+36*fb3*ffmcfmb*hbcm2-12*fb3*hbcm2+
4246      . 28*fb4*ffmcfmb*fmb*hbcm+24*fb4*ffmcfmb*fmc*hbcm-12*fb4*fmb*
4247      . hbcm-12*fb4*fmc*hbcm+ffmcfmb*hbcm2)+8*(-2*fb3*p1p3*p4p7+fb3*
4248      . p1p3*p5p7-4*fb3*p2p3*p4p7+3*fb3*p2p3*p5p7+fb3*p3p4*p5p7+4*fb3*
4249      . p3p5*p4p7-3*fb3*p3p5*p5p7))
4250       ans5=4*(-2*hbcm*p1p3*p1p8*p4p7+hbcm*p1p3*p1p8*p5p7+2*hbcm*p1p3*
4251      . p4p7*p4p8-hbcm*p1p3*p4p8*p5p7-4*hbcm*p1p8*p2p3*p4p7+3*hbcm*
4252      . p1p8*p2p3*p5p7+hbcm*p1p8*p3p4*p5p7+4*hbcm*p1p8*p3p5*p4p7-3*
4253      . hbcm*p1p8*p3p5*p5p7+4*hbcm*p2p3*p4p7*p4p8-3*hbcm*p2p3*p4p8*
4254      . p5p7-hbcm*p3p4*p4p8*p5p7-4*hbcm*p3p5*p4p7*p4p8+3*hbcm*p3p5*
4255      . p4p8*p5p7)
4256       ans4=2*(p5p7*p4p8)*(-2*ffmcfmb*hbcm3+3*fmb*hbcm2-3*fmc*hbcm2+3*
4257      . hbcm3)+2*(p4p8*p4p7)*(ffmcfmb*hbcm3-4*fmb*hbcm2+3*fmc*hbcm2-4*
4258      . hbcm3)+2*(p5p7*p1p8)*(2*ffmcfmb*hbcm3-3*fmb*hbcm2+3*fmc*hbcm2-
4259      . 3*hbcm3)+2*(p4p7*p1p8)*(-ffmcfmb*hbcm3+4*fmb*hbcm2-3*fmc*hbcm2
4260      . +4*hbcm3)+4*(p4p8*p3p7*p3p5)*(-7*ffmcfmb*hbcm+3*hbcm)+4*(p4p8*
4261      . p3p7*p3p4)*(ffmcfmb*hbcm-hbcm)+4*(p4p8*p3p7*p2p3)*(7*ffmcfmb*
4262      . hbcm-3*hbcm)+4*(p3p7*p3p5*p1p8)*(7*ffmcfmb*hbcm-3*hbcm)+4*(
4263      . p3p7*p3p4*p1p8)*(-ffmcfmb*hbcm+hbcm)+4*(p3p7*p2p3*p1p8)*(-7*
4264      . ffmcfmb*hbcm+3*hbcm)+4*(p4p8*p3p7*p1p3)*(3*ffmcfmb*hbcm-hbcm)+
4265      . 4*(p3p7*p1p8*p1p3)*(-3*ffmcfmb*hbcm+hbcm)+2*(p4p8*p3p7)*(3*
4266      . ffmcfmb**2*hbcm3-7*ffmcfmb*fmb*hbcm2+6*ffmcfmb*fmc*hbcm2-9*
4267      . ffmcfmb*hbcm3+3*fmb*hbcm2-3*fmc*hbcm2+3*hbcm3)+2*(p3p7*p1p8)*(
4268      . -3*ffmcfmb**2*hbcm3+7*ffmcfmb*fmb*hbcm2-6*ffmcfmb*fmc*hbcm2+9*
4269      . ffmcfmb*hbcm3-3*fmb*hbcm2+3*fmc*hbcm2-3*hbcm3)+ans5
4270       ans3=w5*ans4
4271       ans6=(p7p8*(-3*ffmcfmb*hbcm3+7*fmb*hbcm2-6*fmc*hbcm2+7*hbcm3)+8
4272      . *(p5p8*p3p7)*(7*fb4*ffmcfmb*hbcm-3*fb4*hbcm)+8*(p4p8*p3p7)*(-
4273      . fb4*ffmcfmb*hbcm+fb4*hbcm)+8*(p3p7*p2p8)*(-7*fb4*ffmcfmb*hbcm+
4274      . 3*fb4*hbcm)+8*(p3p7*p1p8)*(-3*fb4*ffmcfmb*hbcm+fb4*hbcm)+2*(-8
4275      . *fb4*hbcm*p1p8*p4p7+4*fb4*hbcm*p1p8*p5p7-16*fb4*hbcm*p2p8*p4p7
4276      . +12*fb4*hbcm*p2p8*p5p7+16*fb4*hbcm*p4p7*p5p8+4*fb4*hbcm*p4p8*
4277      . p5p7-12*fb4*hbcm*p5p7*p5p8-3*hbcm*p1p3*p7p8-7*hbcm*p2p3*p7p8-
4278      . hbcm*p3p4*p7p8+7*hbcm*p3p5*p7p8))
4279       ans2=w1*(2*(p5p7*p4p8)*(-2*ffmcfmb*hbcm3+3*fmb*hbcm2-3*fmc*
4280      . hbcm2+3*hbcm3)+2*(p4p8*p4p7)*(ffmcfmb*hbcm3-4*fmb*hbcm2+3*fmc*
4281      . hbcm2-4*hbcm3)+4*(p4p8*p3p7*p3p5)*(-7*ffmcfmb*hbcm+3*hbcm)+4*(
4282      . p4p8*p3p7*p3p4)*(ffmcfmb*hbcm-hbcm)+4*(p4p8*p3p7*p2p3)*(7*
4283      . ffmcfmb*hbcm-3*hbcm)+4*(p4p8*p3p7*p1p3)*(3*ffmcfmb*hbcm-hbcm)+
4284      . 2*(p4p8*p3p7)*(3*ffmcfmb**2*hbcm3-7*ffmcfmb*fmb*hbcm2+6*
4285      . ffmcfmb*fmc*hbcm2-9*ffmcfmb*hbcm3+3*fmb*hbcm2-3*fmc*hbcm2+3*
4286      . hbcm3)+4*(2*hbcm*p1p3*p4p7*p4p8-hbcm*p1p3*p4p8*p5p7+4*hbcm*
4287      . p2p3*p4p7*p4p8-3*hbcm*p2p3*p4p8*p5p7-hbcm*p3p4*p4p8*p5p7-4*
4288      . hbcm*p3p5*p4p7*p4p8+3*hbcm*p3p5*p4p8*p5p7))+ans3+ans6
4289       ans1=w2*(2*(p5p8*p5p7)*(2*ffmcfmb*hbcm3-3*fmb*hbcm2+3*fmc*hbcm2
4290      . -3*hbcm3)+2*(p5p8*p4p7)*(-ffmcfmb*hbcm3+4*fmb*hbcm2-3*fmc*
4291      . hbcm2+4*hbcm3)+4*(p5p8*p3p7*p3p5)*(7*ffmcfmb*hbcm-3*hbcm)+4*(
4292      . p5p8*p3p7*p3p4)*(-ffmcfmb*hbcm+hbcm)+4*(p5p8*p3p7*p2p3)*(-7*
4293      . ffmcfmb*hbcm+3*hbcm)+4*(p5p8*p3p7*p1p3)*(-3*ffmcfmb*hbcm+hbcm)
4294      . +2*(p5p8*p3p7)*(-3*ffmcfmb**2*hbcm3+7*ffmcfmb*fmb*hbcm2-6*
4295      . ffmcfmb*fmc*hbcm2+9*ffmcfmb*hbcm3-3*fmb*hbcm2+3*fmc*hbcm2-3*
4296      . hbcm3)+4*(-2*hbcm*p1p3*p4p7*p5p8+hbcm*p1p3*p5p7*p5p8-4*hbcm*
4297      . p2p3*p4p7*p5p8+3*hbcm*p2p3*p5p7*p5p8+hbcm*p3p4*p5p7*p5p8+4*
4298      . hbcm*p3p5*p4p7*p5p8-3*hbcm*p3p5*p5p7*p5p8))+ans2
4299       ans=ccc*ans1
4300       b(5)=ans
4301       ans=ccc*(w2*(2*(p5p8*p5p6)*(ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm-2
4302      . *hbcm2)+2*(p5p8*p3p6)*(-ffmcfmb**2*hbcm2-2*ffmcfmb*fmb*hbcm-
4303      . ffmcfmb*fmc*hbcm+3*ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm-2*hbcm2))
4304      . +w1*(2*(p5p6*p4p8)*(-ffmcfmb*hbcm2-2*fmb*hbcm-fmc*hbcm+2*hbcm2
4305      . )+2*(p4p8*p3p6)*(ffmcfmb**2*hbcm2+2*ffmcfmb*fmb*hbcm+ffmcfmb*
4306      . fmc*hbcm-3*ffmcfmb*hbcm2-2*fmb*hbcm-fmc*hbcm+2*hbcm2))+w5*(2*(
4307      . p5p6*p4p8)*(-ffmcfmb*hbcm2-2*fmb*hbcm-fmc*hbcm+2*hbcm2)+2*(
4308      . p5p6*p1p8)*(ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm-2*hbcm2)+2*(p4p8
4309      . *p3p6)*(ffmcfmb**2*hbcm2+2*ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm-3
4310      . *ffmcfmb*hbcm2-2*fmb*hbcm-fmc*hbcm+2*hbcm2)+2*(p3p6*p1p8)*(-
4311      . ffmcfmb**2*hbcm2-2*ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm+3*ffmcfmb
4312      . *hbcm2+2*fmb*hbcm+fmc*hbcm-2*hbcm2))+(p6p8*(-ffmcfmb*hbcm2-2*
4313      . fmb*hbcm-fmc*hbcm+2*hbcm2)+16*(p4p8*p3p6)*(-fb3*ffmcfmb+fb3)+
4314      . 16*(p3p6*p1p8)*(fb3*ffmcfmb-fb3)+16*(-fb3*ffmcfmb*p2p8*p3p6-
4315      . fb3*ffmcfmb*p3p6*p5p8-fb3*p1p8*p5p6-fb3*p2p8*p4p6-fb3*p4p6*
4316      . p5p8+fb3*p4p8*p5p6)))
4317       b(6)=ans
4318       b(7)=ccc*(16*(p3p6*p3p4)*(fb3*ffmcfmb-fb3)+16*(p3p6*p1p3)*(-fb3
4319      . *ffmcfmb+fb3)+p5p6*(-4*fb3*ffmcfmb*hbcm2-8*fb3*hbcm2+8*fb4*fmb
4320      . *hbcm+4*fb4*fmc*hbcm+hbcm2)+16*p4p6*(-fb3*ffmcfmb*hbcm2+fb3*
4321      . hbcm2)+p3p6*(-12*fb3*ffmcfmb**2*hbcm2+20*fb3*ffmcfmb*hbcm2-8*
4322      . fb3*hbcm2-8*fb4*ffmcfmb*fmb*hbcm-4*fb4*ffmcfmb*fmc*hbcm+8*fb4*
4323      . fmb*hbcm+4*fb4*fmc*hbcm-ffmcfmb*hbcm2+hbcm2)+16*(fb3*ffmcfmb*
4324      . p2p3*p3p6+fb3*ffmcfmb*p3p5*p3p6+fb3*p1p3*p5p6+fb3*p2p3*p4p6-
4325      . fb3*p3p4*p5p6+fb3*p3p5*p4p6))
4326       ans3=(p6p8*(-3*ffmcfmb*hbcm3-2*fmb*hbcm2+fmc*hbcm2+6*hbcm3)+16*
4327      . (p4p8*p3p6)*(fb4*ffmcfmb*hbcm-fb4*hbcm)+16*(p3p6*p1p8)*(-fb4*
4328      . ffmcfmb*hbcm+fb4*hbcm)+4*(4*fb4*ffmcfmb*hbcm*p2p8*p3p6+4*fb4*
4329      . ffmcfmb*hbcm*p3p6*p5p8+4*fb4*hbcm*p1p8*p5p6+4*fb4*hbcm*p2p8*
4330      . p4p6+4*fb4*hbcm*p4p6*p5p8-4*fb4*hbcm*p4p8*p5p6-hbcm*p1p3*p6p8+
4331      . hbcm*p2p3*p6p8+hbcm*p3p4*p6p8+hbcm*p3p5*p6p8))
4332       ans2=w5*(2*(p5p6*p4p8)*(ffmcfmb*hbcm3-2*fmb*hbcm2+fmc*hbcm2+2*
4333      . hbcm3)+8*(p4p8*p4p6)*(ffmcfmb*hbcm3-hbcm3)+2*(p5p6*p1p8)*(-
4334      . ffmcfmb*hbcm3+2*fmb*hbcm2-fmc*hbcm2-2*hbcm3)+8*(p4p6*p1p8)*(-
4335      . ffmcfmb*hbcm3+hbcm3)+8*(p4p8*p3p6*p3p4)*(-ffmcfmb*hbcm+hbcm)+8
4336      . *(p3p6*p3p4*p1p8)*(ffmcfmb*hbcm-hbcm)+8*(p4p8*p3p6*p1p3)*(
4337      . ffmcfmb*hbcm-hbcm)+8*(p3p6*p1p8*p1p3)*(-ffmcfmb*hbcm+hbcm)+2*(
4338      . p4p8*p3p6)*(3*ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*hbcm2-ffmcfmb*fmc
4339      . *hbcm2-5*ffmcfmb*hbcm3-2*fmb*hbcm2+fmc*hbcm2+2*hbcm3)+2*(p3p6*
4340      . p1p8)*(-3*ffmcfmb**2*hbcm3-2*ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*
4341      . hbcm2+5*ffmcfmb*hbcm3+2*fmb*hbcm2-fmc*hbcm2-2*hbcm3)+8*(
4342      . ffmcfmb*hbcm*p1p8*p2p3*p3p6+ffmcfmb*hbcm*p1p8*p3p5*p3p6-
4343      . ffmcfmb*hbcm*p2p3*p3p6*p4p8-ffmcfmb*hbcm*p3p5*p3p6*p4p8+hbcm*
4344      . p1p3*p1p8*p5p6-hbcm*p1p3*p4p8*p5p6+hbcm*p1p8*p2p3*p4p6-hbcm*
4345      . p1p8*p3p4*p5p6+hbcm*p1p8*p3p5*p4p6-hbcm*p2p3*p4p6*p4p8+hbcm*
4346      . p3p4*p4p8*p5p6-hbcm*p3p5*p4p6*p4p8))+ans3
4347       ans1=w2*(2*(p5p8*p5p6)*(-ffmcfmb*hbcm3+2*fmb*hbcm2-fmc*hbcm2-2*
4348      . hbcm3)+8*(p5p8*p4p6)*(-ffmcfmb*hbcm3+hbcm3)+8*(p5p8*p3p6*p3p4)
4349      . *(ffmcfmb*hbcm-hbcm)+8*(p5p8*p3p6*p1p3)*(-ffmcfmb*hbcm+hbcm)+2
4350      . *(p5p8*p3p6)*(-3*ffmcfmb**2*hbcm3-2*ffmcfmb*fmb*hbcm2+ffmcfmb*
4351      . fmc*hbcm2+5*ffmcfmb*hbcm3+2*fmb*hbcm2-fmc*hbcm2-2*hbcm3)+8*(
4352      . ffmcfmb*hbcm*p2p3*p3p6*p5p8+ffmcfmb*hbcm*p3p5*p3p6*p5p8+hbcm*
4353      . p1p3*p5p6*p5p8+hbcm*p2p3*p4p6*p5p8-hbcm*p3p4*p5p6*p5p8+hbcm*
4354      . p3p5*p4p6*p5p8))+w1*(2*(p5p6*p4p8)*(ffmcfmb*hbcm3-2*fmb*hbcm2+
4355      . fmc*hbcm2+2*hbcm3)+8*(p4p8*p4p6)*(ffmcfmb*hbcm3-hbcm3)+8*(p4p8
4356      . *p3p6*p3p4)*(-ffmcfmb*hbcm+hbcm)+8*(p4p8*p3p6*p1p3)*(ffmcfmb*
4357      . hbcm-hbcm)+2*(p4p8*p3p6)*(3*ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*
4358      . hbcm2-ffmcfmb*fmc*hbcm2-5*ffmcfmb*hbcm3-2*fmb*hbcm2+fmc*hbcm2+
4359      . 2*hbcm3)+8*(-ffmcfmb*hbcm*p2p3*p3p6*p4p8-ffmcfmb*hbcm*p3p5*
4360      . p3p6*p4p8-hbcm*p1p3*p4p8*p5p6-hbcm*p2p3*p4p6*p4p8+hbcm*p3p4*
4361      . p4p8*p5p6-hbcm*p3p5*p4p6*p4p8))+ans2
4362       ans=ccc*ans1
4363       b(8)=ans
4364       ans=ccc*(4*(p4p6*p3p7)*(4*fb3*fmb+12*fb4*ffmcfmb*hbcm-8*fb4*
4365      . hbcm-hbcm)+2*(p5p7*p3p6)*(-8*fb3*fmb+4*fb3*fmc-4*fb4*ffmcfmb*
4366      . hbcm+hbcm)+2*(p4p7*p3p6)*(8*fb3*fmb-4*fb3*fmc-12*fb4*ffmcfmb*
4367      . hbcm+8*fb4*hbcm-hbcm)+4*(p6p7*p3p4)*(-4*fb3*fmb-4*fb4*ffmcfmb*
4368      . hbcm+hbcm)+16*(p6p7*p2p3)*(-fb3*fmb+fb3*fmc)+4*(p6p7*p1p3)*(4*
4369      . fb3*fmb+4*fb4*ffmcfmb*hbcm-hbcm)+2*(p3p7*p3p6)*(24*fb3*ffmcfmb
4370      . *fmb-8*fb3*ffmcfmb*fmc-8*fb3*fmb+4*fb3*fmc-12*fb4*ffmcfmb*hbcm
4371      . +8*fb4*hbcm-4*ffmcfmb*hbcm+hbcm)+p6p7*(-12*fb3*ffmcfmb*fmb*
4372      . hbcm2+4*fb3*ffmcfmb*fmc*hbcm2-4*fb3*fmc*hbcm2-4*fb4*ffmcfmb**2
4373      . *hbcm3-4*fb4*ffmcfmb*hbcm3+4*fb4*fmb*fmc*hbcm-8*fb4*fmc2*hbcm+
4374      . 2*ffmcfmb*hbcm3-fmb*hbcm2+fmc*hbcm2+hbcm3)+16*(fb4*hbcm*p1p2*
4375      . p6p7+fb4*hbcm*p1p4*p6p7-fb4*hbcm*p2p4*p6p7+fb4*hbcm*p3p7*p5p6+
4376      . fb4*hbcm*p4p6*p4p7-2*fb4*hbcm*p4p6*p5p7+fb4*hbcm*p4p7*p5p6))
4377       b(9)=ans
4378       ans5=4*(p3p7*p3p6*p1p8)*(5*ffmcfmb**2*hbcm2-4*ffmcfmb*fmb*hbcm-
4379      . ffmcfmb*fmc*hbcm-2*ffmcfmb*hbcm2)+8*(-hbcm2*p1p2*p1p8*p6p7+
4380      . hbcm2*p1p2*p4p8*p6p7-hbcm2*p1p4*p1p8*p6p7+hbcm2*p1p4*p4p8*p6p7
4381      . +hbcm2*p1p8*p2p3*p6p7+hbcm2*p1p8*p2p4*p6p7+hbcm2*p1p8*p4p6*
4382      . p5p7-hbcm2*p1p8*p4p7*p5p6-hbcm2*p2p3*p4p8*p6p7-hbcm2*p2p4*p4p8
4383      . *p6p7-hbcm2*p4p6*p4p8*p5p7+hbcm2*p4p7*p4p8*p5p6)
4384       ans4=4*(p5p6*p4p8*p3p7)*(ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm)+8*(
4385      . p4p8*p4p6*p3p7)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+4*(p5p7*p4p8*
4386      . p3p6)*(ffmcfmb*hbcm2-2*fmb*hbcm-fmc*hbcm)+4*(p4p8*p4p7*p3p6)*(
4387      . -5*ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm+2*hbcm2)+8*(p6p7*p4p8*
4388      . p3p4)*(-ffmcfmb*hbcm2-fmb*hbcm)+4*(p5p6*p3p7*p1p8)*(-ffmcfmb*
4389      . hbcm2-2*fmb*hbcm-fmc*hbcm)+8*(p4p6*p3p7*p1p8)*(-ffmcfmb*hbcm2-
4390      . fmb*hbcm+hbcm2)+4*(p5p7*p3p6*p1p8)*(-ffmcfmb*hbcm2+2*fmb*hbcm+
4391      . fmc*hbcm)+4*(p4p7*p3p6*p1p8)*(5*ffmcfmb*hbcm2-2*fmb*hbcm-fmc*
4392      . hbcm-2*hbcm2)+8*(p6p7*p3p4*p1p8)*(ffmcfmb*hbcm2+fmb*hbcm)+8*(
4393      . p6p7*p4p8*p1p3)*(ffmcfmb*hbcm2+fmb*hbcm)+8*(p6p7*p1p8*p1p3)*(-
4394      . ffmcfmb*hbcm2-fmb*hbcm)+2*(p6p7*p4p8)*(-ffmcfmb**2*hbcm4-3*
4395      . ffmcfmb*fmb*hbcm3-ffmcfmb*fmc*hbcm3-ffmcfmb*hbcm4-fmb*fmc*
4396      . hbcm2+fmc*hbcm3-2*fmc2*hbcm2)+2*(p6p7*p1p8)*(ffmcfmb**2*hbcm4+
4397      . 3*ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*hbcm3+ffmcfmb*hbcm4+fmb*fmc*
4398      . hbcm2-fmc*hbcm3+2*fmc2*hbcm2)+4*(p4p8*p3p7*p3p6)*(-5*ffmcfmb**
4399      . 2*hbcm2+4*ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+2*ffmcfmb*hbcm2)+
4400      . ans5
4401       ans3=w5*ans4
4402       ans7=2*(p7p8*p3p6)*(4*fb3*ffmcfmb**2*hbcm2-12*fb3*ffmcfmb*hbcm2
4403      . +8*fb3*hbcm2+4*fb4*ffmcfmb*fmc*hbcm-8*fb4*fmb*hbcm-4*fb4*fmc*
4404      . hbcm+5*ffmcfmb*hbcm2-4*fmb*hbcm-2*fmc*hbcm-hbcm2)+32*(fb3*
4405      . ffmcfmb*p1p8*p3p6*p3p7-fb3*ffmcfmb*p2p3*p3p6*p7p8-fb3*ffmcfmb*
4406      . p3p5*p3p6*p7p8-fb3*ffmcfmb*p3p6*p3p7*p4p8+fb3*ffmcfmb*p3p6*
4407      . p3p7*p5p8+2*fb3*p1p3*p2p8*p6p7-fb3*p1p3*p4p7*p6p8-fb3*p1p3*
4408      . p5p6*p7p8+fb3*p1p3*p5p7*p6p8+fb3*p1p8*p3p6*p4p7-fb3*p1p8*p3p6*
4409      . p5p7+fb3*p1p8*p3p7*p5p6-fb3*p2p3*p4p6*p7p8-2*fb3*p2p8*p3p4*
4410      . p6p7+fb3*p2p8*p3p6*p4p7-fb3*p2p8*p3p6*p5p7+3*fb3*p2p8*p3p7*
4411      . p4p6+fb3*p3p4*p4p7*p6p8+fb3*p3p4*p5p6*p7p8-fb3*p3p4*p5p7*p6p8-
4412      . fb3*p3p5*p4p6*p7p8-fb3*p3p6*p4p7*p4p8+fb3*p3p6*p4p8*p5p7+fb3*
4413      . p3p7*p4p6*p5p8-fb3*p3p7*p4p8*p5p6)
4414       ans6=32*(p6p8*p3p7*p3p4)*(2*fb3*ffmcfmb-fb3)+32*(p7p8*p3p6*p3p4
4415      . )*(-fb3*ffmcfmb+fb3)+32*(p3p7*p3p6*p2p8)*(5*fb3*ffmcfmb-fb3)+
4416      . 32*(p6p8*p3p7*p1p3)*(-2*fb3*ffmcfmb+fb3)+32*(p7p8*p3p6*p1p3)*(
4417      . fb3*ffmcfmb-fb3)+2*(p6p8*p5p7)*(-4*fb3*ffmcfmb*hbcm2-8*fb3*
4418      . hbcm2+8*fb4*fmb*hbcm+4*fb4*fmc*hbcm-hbcm2)+2*(p7p8*p5p6)*(4*
4419      . fb3*ffmcfmb*hbcm2+8*fb3*hbcm2-8*fb4*fmb*hbcm-4*fb4*fmc*hbcm-
4420      . hbcm2)+4*(p6p7*p4p8)*(4*fb3*ffmcfmb*hbcm2-4*fb3*hbcm2+4*fb4*
4421      . fmb*hbcm+hbcm2)+2*(p6p8*p4p7)*(4*fb3*ffmcfmb*hbcm2+8*fb3*hbcm2
4422      . -8*fb4*fmb*hbcm-4*fb4*fmc*hbcm+5*hbcm2)+4*(p7p8*p4p6)*(4*fb3*
4423      . ffmcfmb*hbcm2-4*fb3*hbcm2-4*fb4*fmb*hbcm-hbcm2)+16*(p6p7*p2p8)
4424      . *(-2*fb3*ffmcfmb*hbcm2-fb3*hbcm2+fb4*fmb*hbcm+fb4*fmc*hbcm)+4*
4425      . (p6p7*p1p8)*(-4*fb3*ffmcfmb*hbcm2+4*fb3*hbcm2-4*fb4*fmb*hbcm-
4426      . hbcm2)+2*(p6p8*p3p7)*(8*fb3*ffmcfmb**2*hbcm2+12*fb3*ffmcfmb*
4427      . hbcm2-8*fb3*hbcm2-16*fb4*ffmcfmb*fmb*hbcm-8*fb4*ffmcfmb*fmc*
4428      . hbcm+8*fb4*fmb*hbcm+4*fb4*fmc*hbcm+5*ffmcfmb*hbcm2+fmc*hbcm-
4429      . hbcm2)+ans7
4430       ans2=w1*(4*(p5p6*p4p8*p3p7)*(ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm)
4431      . +8*(p4p8*p4p6*p3p7)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+4*(p5p7*
4432      . p4p8*p3p6)*(ffmcfmb*hbcm2-2*fmb*hbcm-fmc*hbcm)+4*(p4p8*p4p7*
4433      . p3p6)*(-5*ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm+2*hbcm2)+8*(p6p7*
4434      . p4p8*p3p4)*(-ffmcfmb*hbcm2-fmb*hbcm)+8*(p6p7*p4p8*p1p3)*(
4435      . ffmcfmb*hbcm2+fmb*hbcm)+2*(p6p7*p4p8)*(-ffmcfmb**2*hbcm4-3*
4436      . ffmcfmb*fmb*hbcm3-ffmcfmb*fmc*hbcm3-ffmcfmb*hbcm4-fmb*fmc*
4437      . hbcm2+fmc*hbcm3-2*fmc2*hbcm2)+4*(p4p8*p3p7*p3p6)*(-5*ffmcfmb**
4438      . 2*hbcm2+4*ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+2*ffmcfmb*hbcm2)+8
4439      . *(hbcm2*p1p2*p4p8*p6p7+hbcm2*p1p4*p4p8*p6p7-hbcm2*p2p3*p4p8*
4440      . p6p7-hbcm2*p2p4*p4p8*p6p7-hbcm2*p4p6*p4p8*p5p7+hbcm2*p4p7*p4p8
4441      . *p5p6))+ans3+ans6
4442       ans1=w2*(4*(p5p8*p5p6*p3p7)*(-ffmcfmb*hbcm2-2*fmb*hbcm-fmc*hbcm
4443      . )+8*(p5p8*p4p6*p3p7)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+4*(p5p8*
4444      . p5p7*p3p6)*(-ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm)+4*(p5p8*p4p7*
4445      . p3p6)*(5*ffmcfmb*hbcm2-2*fmb*hbcm-fmc*hbcm-2*hbcm2)+8*(p6p7*
4446      . p5p8*p3p4)*(ffmcfmb*hbcm2+fmb*hbcm)+8*(p6p7*p5p8*p1p3)*(-
4447      . ffmcfmb*hbcm2-fmb*hbcm)+2*(p6p7*p5p8)*(ffmcfmb**2*hbcm4+3*
4448      . ffmcfmb*fmb*hbcm3+ffmcfmb*fmc*hbcm3+ffmcfmb*hbcm4+fmb*fmc*
4449      . hbcm2-fmc*hbcm3+2*fmc2*hbcm2)+4*(p5p8*p3p7*p3p6)*(5*ffmcfmb**2
4450      . *hbcm2-4*ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm-2*ffmcfmb*hbcm2)+8*
4451      . (-hbcm2*p1p2*p5p8*p6p7-hbcm2*p1p4*p5p8*p6p7+hbcm2*p2p3*p5p8*
4452      . p6p7+hbcm2*p2p4*p5p8*p6p7+hbcm2*p4p6*p5p7*p5p8-hbcm2*p4p7*p5p6
4453      . *p5p8))+ans2
4454       ans=ccc*ans1
4455       b(10)=ans
4456       ans=ccc*(w2*(2*(p5p8*p3p4)*(ffmcfmb*hbcm-hbcm)+2*(p5p8*p1p3)*(
4457      . ffmcfmb*hbcm-hbcm)+2*p5p8*(ffmcfmb**2*hbcm3-ffmcfmb*hbcm3)+2*(
4458      . -ffmcfmb*hbcm*p2p3*p5p8-ffmcfmb*hbcm*p3p5*p5p8-hbcm*p1p2*p5p8-
4459      . hbcm*p1p5*p5p8-hbcm*p2p4*p5p8-hbcm*p4p5*p5p8))+w1*(2*(p4p8*
4460      . p3p4)*(-ffmcfmb*hbcm+hbcm)+2*(p4p8*p1p3)*(-ffmcfmb*hbcm+hbcm)+
4461      . 2*p4p8*(-ffmcfmb**2*hbcm3+ffmcfmb*hbcm3)+2*(ffmcfmb*hbcm*p2p3*
4462      . p4p8+ffmcfmb*hbcm*p3p5*p4p8+hbcm*p1p2*p4p8+hbcm*p1p5*p4p8+hbcm
4463      . *p2p4*p4p8+hbcm*p4p5*p4p8))+w5*(2*(p4p8*p3p4)*(-ffmcfmb*hbcm+
4464      . hbcm)+2*(p3p4*p1p8)*(ffmcfmb*hbcm-hbcm)+2*(p4p8*p1p3)*(-
4465      . ffmcfmb*hbcm+hbcm)+2*(p1p8*p1p3)*(ffmcfmb*hbcm-hbcm)+2*p4p8*(-
4466      . ffmcfmb**2*hbcm3+ffmcfmb*hbcm3)+2*p1p8*(ffmcfmb**2*hbcm3-
4467      . ffmcfmb*hbcm3)+2*(-ffmcfmb*hbcm*p1p8*p2p3-ffmcfmb*hbcm*p1p8*
4468      . p3p5+ffmcfmb*hbcm*p2p3*p4p8+ffmcfmb*hbcm*p3p5*p4p8-hbcm*p1p2*
4469      . p1p8+hbcm*p1p2*p4p8-hbcm*p1p5*p1p8+hbcm*p1p5*p4p8-hbcm*p1p8*
4470      . p2p4-hbcm*p1p8*p4p5+hbcm*p2p4*p4p8+hbcm*p4p5*p4p8))+(hbcm*p1p8
4471      . -hbcm*p2p8+hbcm*p4p8-hbcm*p5p8))
4472       b(11)=ans
4473       b(12)=ccc*(4*p3p4*(-fb3*ffmcfmb+fb3)+4*p1p3*(-fb3*ffmcfmb+fb3)+
4474      . 4*(-fb3*ffmcfmb**2*hbcm2+fb3*ffmcfmb*hbcm2+fb3*ffmcfmb*p2p3+
4475      . fb3*ffmcfmb*p3p5+fb3*p1p2+fb3*p1p5+fb3*p2p4+fb3*p4p5))
4476       ans=ccc*(w2*(2*(p5p8*p3p4)*(ffmcfmb*hbcm2-hbcm2)+2*(p5p8*p1p3)*
4477      . (ffmcfmb*hbcm2-hbcm2)+2*p5p8*(ffmcfmb**2*hbcm4-ffmcfmb*hbcm4)+
4478      . 2*(-ffmcfmb*hbcm2*p2p3*p5p8-ffmcfmb*hbcm2*p3p5*p5p8-hbcm2*p1p2
4479      . *p5p8-hbcm2*p1p5*p5p8-hbcm2*p2p4*p5p8-hbcm2*p4p5*p5p8))+w1*(2*
4480      . (p4p8*p3p4)*(-ffmcfmb*hbcm2+hbcm2)+2*(p4p8*p1p3)*(-ffmcfmb*
4481      . hbcm2+hbcm2)+2*p4p8*(-ffmcfmb**2*hbcm4+ffmcfmb*hbcm4)+2*(
4482      . ffmcfmb*hbcm2*p2p3*p4p8+ffmcfmb*hbcm2*p3p5*p4p8+hbcm2*p1p2*
4483      . p4p8+hbcm2*p1p5*p4p8+hbcm2*p2p4*p4p8+hbcm2*p4p5*p4p8))+w5*(2*(
4484      . p4p8*p3p4)*(-ffmcfmb*hbcm2+hbcm2)+2*(p3p4*p1p8)*(ffmcfmb*hbcm2
4485      . -hbcm2)+2*(p4p8*p1p3)*(-ffmcfmb*hbcm2+hbcm2)+2*(p1p8*p1p3)*(
4486      . ffmcfmb*hbcm2-hbcm2)+2*p4p8*(-ffmcfmb**2*hbcm4+ffmcfmb*hbcm4)+
4487      . 2*p1p8*(ffmcfmb**2*hbcm4-ffmcfmb*hbcm4)+2*(-ffmcfmb*hbcm2*p1p8
4488      . *p2p3-ffmcfmb*hbcm2*p1p8*p3p5+ffmcfmb*hbcm2*p2p3*p4p8+ffmcfmb*
4489      . hbcm2*p3p5*p4p8-hbcm2*p1p2*p1p8+hbcm2*p1p2*p4p8-hbcm2*p1p5*
4490      . p1p8+hbcm2*p1p5*p4p8-hbcm2*p1p8*p2p4-hbcm2*p1p8*p4p5+hbcm2*
4491      . p2p4*p4p8+hbcm2*p4p5*p4p8))+(hbcm2*p1p8-hbcm2*p2p8+hbcm2*p4p8-
4492      . hbcm2*p5p8))
4493       b(13)=ans
4494       b(14)=ccc*(4*p3p4*(fb4*ffmcfmb*hbcm-fb4*hbcm)+4*p1p3*(fb4*
4495      . ffmcfmb*hbcm-fb4*hbcm)+4*(fb4*ffmcfmb**2*hbcm3-fb4*ffmcfmb*
4496      . hbcm*p2p3-fb4*ffmcfmb*hbcm*p3p5-fb4*ffmcfmb*hbcm3-fb4*hbcm*
4497      . p1p2-fb4*hbcm*p1p5-fb4*hbcm*p2p4-fb4*hbcm*p4p5))
4498       b(15)=ccc*(w2*(4*(p5p8*p3p6)*(4*ffmcfmb*hbcm2-hbcm2)+4*(3*hbcm2
4499      . *p4p6*p5p8-hbcm2*p5p6*p5p8))+w1*(4*(p4p8*p3p6)*(-4*ffmcfmb*
4500      . hbcm2+hbcm2)+4*(-3*hbcm2*p4p6*p4p8+hbcm2*p4p8*p5p6))+w5*(4*(
4501      . p4p8*p3p6)*(-4*ffmcfmb*hbcm2+hbcm2)+4*(p3p6*p1p8)*(4*ffmcfmb*
4502      . hbcm2-hbcm2)+4*(3*hbcm2*p1p8*p4p6-hbcm2*p1p8*p5p6-3*hbcm2*p4p6
4503      . *p4p8+hbcm2*p4p8*p5p6))+8*hbcm2*p6p8)
4504       b(16)=ccc*(w2*(4*(p5p8*p3p6)*(-4*ffmcfmb*hbcm+hbcm)+4*(-3*hbcm*
4505      . p4p6*p5p8+hbcm*p5p6*p5p8))+w1*(4*(p4p8*p3p6)*(4*ffmcfmb*hbcm-
4506      . hbcm)+4*(3*hbcm*p4p6*p4p8-hbcm*p4p8*p5p6))+w5*(4*(p4p8*p3p6)*(
4507      . 4*ffmcfmb*hbcm-hbcm)+4*(p3p6*p1p8)*(-4*ffmcfmb*hbcm+hbcm)+4*(-
4508      . 3*hbcm*p1p8*p4p6+hbcm*p1p8*p5p6+3*hbcm*p4p6*p4p8-hbcm*p4p8*
4509      . p5p6))-8*hbcm*p6p8)
4510       b(18)=ccc*(w2*(2*(p5p8*p3p7)*(8*ffmcfmb*hbcm2-3*hbcm2)+2*(5*
4511      . hbcm2*p4p7*p5p8-3*hbcm2*p5p7*p5p8))+w1*(2*(p4p8*p3p7)*(-8*
4512      . ffmcfmb*hbcm2+3*hbcm2)+2*(-5*hbcm2*p4p7*p4p8+3*hbcm2*p4p8*p5p7
4513      . ))+w5*(2*(p4p8*p3p7)*(-8*ffmcfmb*hbcm2+3*hbcm2)+2*(p3p7*p1p8)*
4514      . (8*ffmcfmb*hbcm2-3*hbcm2)+2*(5*hbcm2*p1p8*p4p7-3*hbcm2*p1p8*
4515      . p5p7-5*hbcm2*p4p7*p4p8+3*hbcm2*p4p8*p5p7))+8*hbcm2*p7p8)
4516       b(20)=ccc*(w2*(2*(p5p8*p3p7)*(8*ffmcfmb*hbcm-3*hbcm)+2*(5*hbcm*
4517      . p4p7*p5p8-3*hbcm*p5p7*p5p8))+w1*(2*(p4p8*p3p7)*(-8*ffmcfmb*
4518      . hbcm+3*hbcm)+2*(-5*hbcm*p4p7*p4p8+3*hbcm*p4p8*p5p7))+w5*(2*(
4519      . p4p8*p3p7)*(-8*ffmcfmb*hbcm+3*hbcm)+2*(p3p7*p1p8)*(8*ffmcfmb*
4520      . hbcm-3*hbcm)+2*(5*hbcm*p1p8*p4p7-3*hbcm*p1p8*p5p7-5*hbcm*p4p7*
4521      . p4p8+3*hbcm*p4p8*p5p7))+8*hbcm*p7p8)
4522       b(23)=ccc*(4*p3p7*(8*fb4*ffmcfmb*hbcm-3*fb4*hbcm)+4*(5*fb4*hbcm
4523      . *p4p7-3*fb4*hbcm*p5p7))
4524       b(24)=ccc*(8*p3p6*(-4*fb4*ffmcfmb*hbcm+fb4*hbcm)+8*(-3*fb4*hbcm
4525      . *p4p6+fb4*hbcm*p5p6))
4526       b(25)=ccc*(12*p5p7*(fb3*fmb-fb3*fmc-fb4*hbcm)+p4p7*(-16*fb3*fmb
4527      . +12*fb3*fmc-4*fb4*ffmcfmb*hbcm+16*fb4*hbcm+hbcm)+p3p7*(-28*fb3
4528      . *ffmcfmb*fmb+24*fb3*ffmcfmb*fmc+12*fb3*fmb-12*fb3*fmc-4*fb4*
4529      . ffmcfmb**2*hbcm+28*fb4*ffmcfmb*hbcm-12*fb4*hbcm+ffmcfmb*hbcm))
4530       b(26)=ccc*(p5p6*(-8*fb3*fmb+4*fb3*fmc-4*fb4*ffmcfmb*hbcm+8*fb4*
4531      . hbcm+hbcm)+p3p6*(8*fb3*ffmcfmb*fmb-4*fb3*ffmcfmb*fmc-8*fb3*fmb
4532      . +4*fb3*fmc+4*fb4*ffmcfmb**2*hbcm-12*fb4*ffmcfmb*hbcm+8*fb4*
4533      . hbcm-ffmcfmb*hbcm+hbcm))
4534       b(27)=ccc*(16*(p3p7*p3p6)*(-4*fb3*ffmcfmb+fb3)+8*p6p7*(2*fb3*
4535      . ffmcfmb*hbcm2+fb3*hbcm2-fb4*fmb*hbcm-fb4*fmc*hbcm)+16*(-2*fb3*
4536      . p1p3*p6p7+2*fb3*p3p4*p6p7-fb3*p3p6*p4p7+fb3*p3p6*p5p7-2*fb3*
4537      . p3p7*p4p6))
4538       b(28)=ccc*(4*w2*(p6p7*p5p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+4*w1*(
4539      . p6p7*p4p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+w5*(4*(p6p7*p4p8)*(-fmb*
4540      . hbcm-fmc*hbcm+hbcm2)+4*(p6p7*p1p8)*(fmb*hbcm+fmc*hbcm-hbcm2))+
4541      . (16*(p6p8*p3p7)*(-2*fb3*ffmcfmb+fb3)+16*(-2*fb3*ffmcfmb*p3p6*
4542      . p7p8-2*fb3*p1p8*p6p7-2*fb3*p4p6*p7p8-fb3*p4p7*p6p8+2*fb3*p4p8*
4543      . p6p7+fb3*p5p7*p6p8)))
4544       b(29)=ccc*(8*p3p6*(-4*fb3*ffmcfmb+fb3)+8*(-3*fb3*p4p6+fb3*p5p6)
4545      . )
4546       b(30)=ccc*(4*p3p7*(8*fb3*ffmcfmb-3*fb3)+4*(5*fb3*p4p7-3*fb3*
4547      . p5p7))
4548       ans2=(8*(p6p8*p3p7)*(-4*fb4*ffmcfmb*hbcm+2*fb4*hbcm-hbcm)+8*(
4549      . p7p8*p3p6)*(-4*fb4*ffmcfmb*hbcm-hbcm)+16*(-2*fb4*hbcm*p1p8*
4550      . p6p7-2*fb4*hbcm*p4p6*p7p8-fb4*hbcm*p4p7*p6p8+2*fb4*hbcm*p4p8*
4551      . p6p7+fb4*hbcm*p5p7*p6p8))
4552       ans1=w2*(4*(p6p7*p5p8)*(2*ffmcfmb*hbcm3-fmb*hbcm2+fmc*hbcm2+
4553      . hbcm3)+8*(p5p8*p3p7*p3p6)*(-4*ffmcfmb*hbcm+hbcm)+8*(-2*hbcm*
4554      . p1p3*p5p8*p6p7+2*hbcm*p3p4*p5p8*p6p7-hbcm*p3p6*p4p7*p5p8+hbcm*
4555      . p3p6*p5p7*p5p8-2*hbcm*p3p7*p4p6*p5p8))+w1*(4*(p6p7*p4p8)*(-2*
4556      . ffmcfmb*hbcm3+fmb*hbcm2-fmc*hbcm2-hbcm3)+8*(p4p8*p3p7*p3p6)*(4
4557      . *ffmcfmb*hbcm-hbcm)+8*(2*hbcm*p1p3*p4p8*p6p7-2*hbcm*p3p4*p4p8*
4558      . p6p7+hbcm*p3p6*p4p7*p4p8-hbcm*p3p6*p4p8*p5p7+2*hbcm*p3p7*p4p6*
4559      . p4p8))+w5*(4*(p6p7*p4p8)*(-2*ffmcfmb*hbcm3+fmb*hbcm2-fmc*hbcm2
4560      . -hbcm3)+4*(p6p7*p1p8)*(2*ffmcfmb*hbcm3-fmb*hbcm2+fmc*hbcm2+
4561      . hbcm3)+8*(p4p8*p3p7*p3p6)*(4*ffmcfmb*hbcm-hbcm)+8*(p3p7*p3p6*
4562      . p1p8)*(-4*ffmcfmb*hbcm+hbcm)+8*(-2*hbcm*p1p3*p1p8*p6p7+2*hbcm*
4563      . p1p3*p4p8*p6p7+2*hbcm*p1p8*p3p4*p6p7-hbcm*p1p8*p3p6*p4p7+hbcm*
4564      . p1p8*p3p6*p5p7-2*hbcm*p1p8*p3p7*p4p6-2*hbcm*p3p4*p4p8*p6p7+
4565      . hbcm*p3p6*p4p7*p4p8-hbcm*p3p6*p4p8*p5p7+2*hbcm*p3p7*p4p6*p4p8)
4566      . )+ans2
4567       ans=ccc*ans1
4568       b(31)=ans
4569       b(32)=8*ccc*p6p7*(fb3*fmb-fb3*fmc-fb4*hbcm)
4570       do 200 n=1,32
4571          c(n,1)=c(n,1)+0.1818181818181818d0*b(n)
4572          c(n,2)=c(n,2)+0.9833321660356334d0*b(n)
4573 200   continue
4574       return
4575         end
4576
4577       subroutine amp35_1p1(cc)
4578       implicit double precision(a-h,o-z)
4579       implicit integer (i-n)
4580       dimension b(32)
4581 #include "inclcon.h"
4582 #include "inclppp.h"
4583 #include "inclamp.h"
4584       do 100 n=1,32
4585          b(n)=0.0d0
4586 100   continue
4587       ccc=cc/((ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*p3p5+fmb2+
4588      . hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p2p3+2*ffmcfmb*p3p4+
4589      . fmc2-2*p2p4)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2))
4590       b(1)=ccc*(8*(p6p7*p3p4)*(-fb3*ffmcfmb+fb3)+8*(p6p7*p2p3)*(-fb3*
4591      . ffmcfmb+fb3)+p6p7*(-4*fb3*ffmcfmb**2*hbcm2+12*fb3*ffmcfmb*
4592      . hbcm2-4*fb3*fmb*fmc-8*fb3*fmc2-4*fb4*ffmcfmb*fmb*hbcm-4*fb4*
4593      . ffmcfmb*fmc*hbcm+4*fb4*fmc*hbcm+fmb*hbcm+fmc*hbcm-hbcm2)+8*(
4594      . fb3*ffmcfmb*p1p3*p6p7+fb3*ffmcfmb*p3p5*p6p7+2*fb3*ffmcfmb*p3p6
4595      . *p3p7+6*fb3*ffmcfmb*p3p7*p4p6-2*fb3*ffmcfmb*p3p7*p5p6+fb3*p1p2
4596      . *p6p7+fb3*p1p4*p6p7+4*fb3*p2p4*p6p7+fb3*p2p5*p6p7+fb3*p3p6*
4597      . p4p7+fb3*p4p5*p6p7+5*fb3*p4p6*p4p7-3*fb3*p4p7*p5p6))
4598       ans4=(4*(p4p8*p4p7*p3p6)*(4*ffmcfmb*hbcm-3*hbcm)+4*(p6p7*p4p8*
4599      . p3p4)*(ffmcfmb*hbcm-hbcm)+4*(p4p7*p3p6*p2p8)*(-4*ffmcfmb*hbcm+
4600      . 3*hbcm)+4*(p6p7*p3p4*p2p8)*(-ffmcfmb*hbcm+hbcm)+4*(p6p7*p4p8*
4601      . p2p3)*(ffmcfmb*hbcm-hbcm)+4*(p6p7*p2p8*p2p3)*(-ffmcfmb*hbcm+
4602      . hbcm)+2*(p6p7*p4p8)*(ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2-
4603      . ffmcfmb*fmc*hbcm2-3*ffmcfmb*hbcm3-fmb*fmc*hbcm+fmc*hbcm2+2*
4604      . fmc2*hbcm)+2*(p6p7*p2p8)*(-ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+
4605      . ffmcfmb*fmc*hbcm2+3*ffmcfmb*hbcm3+fmb*fmc*hbcm-fmc*hbcm2-2*
4606      . fmc2*hbcm)+16*(p4p8*p3p7*p3p6)*(ffmcfmb**2*hbcm-ffmcfmb*hbcm)+
4607      . 16*(p3p7*p3p6*p2p8)*(-ffmcfmb**2*hbcm+ffmcfmb*hbcm)+4*(ffmcfmb
4608      . *hbcm*p1p3*p2p8*p6p7-ffmcfmb*hbcm*p1p3*p4p8*p6p7+ffmcfmb*hbcm*
4609      . p2p8*p3p5*p6p7+4*ffmcfmb*hbcm*p2p8*p3p7*p4p6-ffmcfmb*hbcm*p3p5
4610      . *p4p8*p6p7-4*ffmcfmb*hbcm*p3p7*p4p6*p4p8+hbcm*p1p2*p2p8*p6p7-
4611      . hbcm*p1p2*p4p8*p6p7+hbcm*p1p4*p2p8*p6p7-hbcm*p1p4*p4p8*p6p7+4*
4612      . hbcm*p2p4*p2p8*p6p7-4*hbcm*p2p4*p4p8*p6p7+hbcm*p2p5*p2p8*p6p7-
4613      . hbcm*p2p5*p4p8*p6p7+hbcm*p2p8*p4p5*p6p7+3*hbcm*p2p8*p4p6*p4p7-
4614      . hbcm*p2p8*p4p7*p5p6-hbcm*p4p5*p4p8*p6p7-3*hbcm*p4p6*p4p7*p4p8+
4615      . hbcm*p4p7*p4p8*p5p6))
4616       ans3=w11*ans4
4617       ans5=(2*(p6p8*p5p7)*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+2*(
4618      . p7p8*p5p6)*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+2*(p6p7*p4p8)*(
4619      . 8*fb3*fmc+8*fb4*ffmcfmb*hbcm-3*hbcm)+2*(p6p7*p2p8)*(-8*fb3*fmc
4620      . -8*fb4*ffmcfmb*hbcm+hbcm)+4*(p6p8*p4p7)*(-8*fb3*fmb+4*fb3*fmc-
4621      . 4*fb4*ffmcfmb*hbcm+8*fb4*hbcm-hbcm)+8*(p7p8*p4p6)*(-fb3*fmb+
4622      . fb3*fmc+fb4*hbcm+hbcm)+2*(p6p8*p3p7)*(-16*fb3*ffmcfmb*fmb+12*
4623      . fb3*ffmcfmb*fmc-4*fb3*fmc-4*fb4*ffmcfmb**2*hbcm+12*fb4*ffmcfmb
4624      . *hbcm-3*ffmcfmb*hbcm+hbcm)+2*(p7p8*p3p6)*(-4*fb3*ffmcfmb*fmb+4
4625      . *fb3*fmc-4*fb4*ffmcfmb**2*hbcm+8*fb4*ffmcfmb*hbcm-3*ffmcfmb*
4626      . hbcm+3*hbcm)+2*(hbcm*p1p8*p6p7+hbcm*p5p8*p6p7))
4627       ans2=w1*(4*(p4p8*p4p7*p3p6)*(4*ffmcfmb*hbcm-3*hbcm)+4*(p6p7*
4628      . p4p8*p3p4)*(ffmcfmb*hbcm-hbcm)+4*(p6p7*p4p8*p2p3)*(ffmcfmb*
4629      . hbcm-hbcm)+2*(p6p7*p4p8)*(ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2-
4630      . ffmcfmb*fmc*hbcm2-3*ffmcfmb*hbcm3-fmb*fmc*hbcm+fmc*hbcm2+2*
4631      . fmc2*hbcm)+16*(p4p8*p3p7*p3p6)*(ffmcfmb**2*hbcm-ffmcfmb*hbcm)+
4632      . 4*(-ffmcfmb*hbcm*p1p3*p4p8*p6p7-ffmcfmb*hbcm*p3p5*p4p8*p6p7-4*
4633      . ffmcfmb*hbcm*p3p7*p4p6*p4p8-hbcm*p1p2*p4p8*p6p7-hbcm*p1p4*p4p8
4634      . *p6p7-4*hbcm*p2p4*p4p8*p6p7-hbcm*p2p5*p4p8*p6p7-hbcm*p4p5*p4p8
4635      . *p6p7-3*hbcm*p4p6*p4p7*p4p8+hbcm*p4p7*p4p8*p5p6))+ans3+ans5
4636       ans1=w2*(4*(p5p8*p4p7*p3p6)*(-4*ffmcfmb*hbcm+3*hbcm)+4*(p6p7*
4637      . p5p8*p3p4)*(-ffmcfmb*hbcm+hbcm)+4*(p6p7*p5p8*p2p3)*(-ffmcfmb*
4638      . hbcm+hbcm)+2*(p6p7*p5p8)*(-ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+
4639      . ffmcfmb*fmc*hbcm2+3*ffmcfmb*hbcm3+fmb*fmc*hbcm-fmc*hbcm2-2*
4640      . fmc2*hbcm)+16*(p5p8*p3p7*p3p6)*(-ffmcfmb**2*hbcm+ffmcfmb*hbcm)
4641      . +4*(ffmcfmb*hbcm*p1p3*p5p8*p6p7+ffmcfmb*hbcm*p3p5*p5p8*p6p7+4*
4642      . ffmcfmb*hbcm*p3p7*p4p6*p5p8+hbcm*p1p2*p5p8*p6p7+hbcm*p1p4*p5p8
4643      . *p6p7+4*hbcm*p2p4*p5p8*p6p7+hbcm*p2p5*p5p8*p6p7+hbcm*p4p5*p5p8
4644      . *p6p7+3*hbcm*p4p6*p4p7*p5p8-hbcm*p4p7*p5p6*p5p8))+ans2
4645       ans=ccc*ans1
4646       b(2)=ans
4647       ans2=(8*(p7p8*p3p4)*(-fb3*ffmcfmb+fb3)+8*(p7p8*p2p3)*(-fb3*
4648      . ffmcfmb+fb3)+p7p8*(-8*fb3*ffmcfmb**2*hbcm2+8*fb3*ffmcfmb*hbcm2
4649      . -ffmcfmb*hbcm2+6*fmb*hbcm+7*fmc*hbcm-6*hbcm2)+8*(fb3*ffmcfmb*
4650      . p1p3*p7p8+2*fb3*ffmcfmb*p1p8*p3p7-2*fb3*ffmcfmb*p2p8*p3p7+fb3*
4651      . ffmcfmb*p3p5*p7p8+2*fb3*ffmcfmb*p3p7*p4p8-6*fb3*ffmcfmb*p3p7*
4652      . p5p8+fb3*p1p2*p7p8+fb3*p1p4*p7p8+2*fb3*p1p8*p4p7+fb3*p2p5*p7p8
4653      . -2*fb3*p2p8*p4p7+fb3*p4p5*p7p8+2*fb3*p4p7*p4p8-6*fb3*p4p7*p5p8
4654      . ))
4655       ans1=w2*(12*(p5p8*p4p7)*(fmb*hbcm+fmc*hbcm-hbcm2)+2*(p5p8*p5p7)
4656      . *(ffmcfmb*hbcm2-fmc*hbcm)+2*(p5p8*p3p7)*(-ffmcfmb**2*hbcm2+6*
4657      . ffmcfmb*fmb*hbcm+7*ffmcfmb*fmc*hbcm-5*ffmcfmb*hbcm2-fmc*hbcm))
4658      . +w1*(12*(p4p8*p4p7)*(-fmb*hbcm-fmc*hbcm+hbcm2)+2*(p5p7*p4p8)*(
4659      . -ffmcfmb*hbcm2+fmc*hbcm)+2*(p4p8*p3p7)*(ffmcfmb**2*hbcm2-6*
4660      . ffmcfmb*fmb*hbcm-7*ffmcfmb*fmc*hbcm+5*ffmcfmb*hbcm2+fmc*hbcm))
4661      . +w11*(12*(p4p8*p4p7)*(-fmb*hbcm-fmc*hbcm+hbcm2)+12*(p4p7*p2p8)
4662      . *(fmb*hbcm+fmc*hbcm-hbcm2)+2*(p5p7*p4p8)*(-ffmcfmb*hbcm2+fmc*
4663      . hbcm)+2*(p5p7*p2p8)*(ffmcfmb*hbcm2-fmc*hbcm)+2*(p4p8*p3p7)*(
4664      . ffmcfmb**2*hbcm2-6*ffmcfmb*fmb*hbcm-7*ffmcfmb*fmc*hbcm+5*
4665      . ffmcfmb*hbcm2+fmc*hbcm)+2*(p3p7*p2p8)*(-ffmcfmb**2*hbcm2+6*
4666      . ffmcfmb*fmb*hbcm+7*ffmcfmb*fmc*hbcm-5*ffmcfmb*hbcm2-fmc*hbcm))
4667      . +ans2
4668       ans=ccc*ans1
4669       b(3)=ans
4670       b(4)=ccc*(8*(p3p7*p3p4)*(-fb3*ffmcfmb-fb3)+8*(p3p7*p2p3)*(-5*
4671      . fb3*ffmcfmb+fb3)+p5p7*(-4*fb3*ffmcfmb*hbcm2-4*fb4*fmc*hbcm+
4672      . hbcm2)+8*p4p7*(-2*fb3*ffmcfmb*hbcm2+3*fb3*hbcm2+3*fb4*fmb*hbcm
4673      . +3*fb4*fmc*hbcm)+p3p7*(-4*fb3*ffmcfmb**2*hbcm2+12*fb3*ffmcfmb*
4674      . hbcm2+24*fb4*ffmcfmb*fmb*hbcm+28*fb4*ffmcfmb*fmc*hbcm-4*fb4*
4675      . fmc*hbcm-ffmcfmb*hbcm2+hbcm2)+8*(-3*fb3*ffmcfmb*p1p3*p3p7+5*
4676      . fb3*ffmcfmb*p3p5*p3p7-fb3*p1p2*p3p7-2*fb3*p1p3*p4p7-fb3*p1p4*
4677      . p3p7-4*fb3*p2p3*p4p7+2*fb3*p2p3*p5p7-fb3*p2p5*p3p7-2*fb3*p3p4*
4678      . p4p7+6*fb3*p3p5*p4p7-fb3*p3p7*p4p5))
4679       ans5=4*(-3*ffmcfmb*hbcm*p1p3*p2p8*p3p7+3*ffmcfmb*hbcm*p1p3*p3p7
4680      . *p4p8+5*ffmcfmb*hbcm*p2p8*p3p5*p3p7-5*ffmcfmb*hbcm*p3p5*p3p7*
4681      . p4p8-hbcm*p1p2*p2p8*p3p7+hbcm*p1p2*p3p7*p4p8-2*hbcm*p1p3*p2p8*
4682      . p4p7+2*hbcm*p1p3*p4p7*p4p8-hbcm*p1p4*p2p8*p3p7+hbcm*p1p4*p3p7*
4683      . p4p8-4*hbcm*p2p3*p2p8*p4p7+2*hbcm*p2p3*p2p8*p5p7+4*hbcm*p2p3*
4684      . p4p7*p4p8-2*hbcm*p2p3*p4p8*p5p7-hbcm*p2p5*p2p8*p3p7+hbcm*p2p5*
4685      . p3p7*p4p8-2*hbcm*p2p8*p3p4*p4p7+6*hbcm*p2p8*p3p5*p4p7-hbcm*
4686      . p2p8*p3p7*p4p5+2*hbcm*p3p4*p4p7*p4p8-6*hbcm*p3p5*p4p7*p4p8+
4687      . hbcm*p3p7*p4p5*p4p8)
4688       ans4=2*(p5p7*p4p8)*(ffmcfmb*hbcm3-fmc*hbcm2)+4*(p4p8*p4p7)*(2*
4689      . ffmcfmb*hbcm3-3*fmb*hbcm2+3*fmc*hbcm2-3*hbcm3)+2*(p5p7*p2p8)*(
4690      . -ffmcfmb*hbcm3+fmc*hbcm2)+4*(p4p7*p2p8)*(-2*ffmcfmb*hbcm3+3*
4691      . fmb*hbcm2-3*fmc*hbcm2+3*hbcm3)+4*(p4p8*p3p7*p3p4)*(ffmcfmb*
4692      . hbcm+hbcm)+4*(p3p7*p3p4*p2p8)*(-ffmcfmb*hbcm-hbcm)+4*(p4p8*
4693      . p3p7*p2p3)*(5*ffmcfmb*hbcm-hbcm)+4*(p3p7*p2p8*p2p3)*(-5*
4694      . ffmcfmb*hbcm+hbcm)+2*(p4p8*p3p7)*(ffmcfmb**2*hbcm3-6*ffmcfmb*
4695      . fmb*hbcm2+7*ffmcfmb*fmc*hbcm2-3*ffmcfmb*hbcm3-fmc*hbcm2)+2*(
4696      . p3p7*p2p8)*(-ffmcfmb**2*hbcm3+6*ffmcfmb*fmb*hbcm2-7*ffmcfmb*
4697      . fmc*hbcm2+3*ffmcfmb*hbcm3+fmc*hbcm2)+ans5
4698       ans3=w11*ans4
4699       ans6=(2*(p5p8*p3p7)*(24*fb4*ffmcfmb*hbcm-hbcm)+2*(p4p8*p3p7)*(-
4700      . 8*fb4*ffmcfmb*hbcm+hbcm)+4*(p7p8*p3p5)*(-2*fb4*ffmcfmb*hbcm+3*
4701      . hbcm)+4*(p7p8*p3p4)*(2*fb4*ffmcfmb*hbcm-2*fb4*hbcm-hbcm)+2*(
4702      . p3p7*p2p8)*(-24*fb4*ffmcfmb*hbcm+8*fb4*hbcm+hbcm)+4*(p7p8*p2p3
4703      . )*(2*fb4*ffmcfmb*hbcm-2*fb4*hbcm-3*hbcm)+2*(p3p7*p1p8)*(-8*fb4
4704      . *ffmcfmb*hbcm-hbcm)+4*(p7p8*p1p3)*(-2*fb4*ffmcfmb*hbcm-hbcm)+
4705      . p7p8*(8*fb4*ffmcfmb**2*hbcm3-8*fb4*ffmcfmb*hbcm3-3*ffmcfmb*
4706      . hbcm3+6*fmb*hbcm2-7*fmc*hbcm2+6*hbcm3)+8*(-fb4*hbcm*p1p2*p7p8-
4707      . fb4*hbcm*p1p4*p7p8-2*fb4*hbcm*p1p8*p4p7-fb4*hbcm*p2p5*p7p8-4*
4708      . fb4*hbcm*p2p8*p4p7+2*fb4*hbcm*p2p8*p5p7-fb4*hbcm*p4p5*p7p8-2*
4709      . fb4*hbcm*p4p7*p4p8+6*fb4*hbcm*p4p7*p5p8))
4710       ans2=w1*(2*(p5p7*p4p8)*(ffmcfmb*hbcm3-fmc*hbcm2)+4*(p4p8*p4p7)*
4711      . (2*ffmcfmb*hbcm3-3*fmb*hbcm2+3*fmc*hbcm2-3*hbcm3)+4*(p4p8*p3p7
4712      . *p3p4)*(ffmcfmb*hbcm+hbcm)+4*(p4p8*p3p7*p2p3)*(5*ffmcfmb*hbcm-
4713      . hbcm)+2*(p4p8*p3p7)*(ffmcfmb**2*hbcm3-6*ffmcfmb*fmb*hbcm2+7*
4714      . ffmcfmb*fmc*hbcm2-3*ffmcfmb*hbcm3-fmc*hbcm2)+4*(3*ffmcfmb*hbcm
4715      . *p1p3*p3p7*p4p8-5*ffmcfmb*hbcm*p3p5*p3p7*p4p8+hbcm*p1p2*p3p7*
4716      . p4p8+2*hbcm*p1p3*p4p7*p4p8+hbcm*p1p4*p3p7*p4p8+4*hbcm*p2p3*
4717      . p4p7*p4p8-2*hbcm*p2p3*p4p8*p5p7+hbcm*p2p5*p3p7*p4p8+2*hbcm*
4718      . p3p4*p4p7*p4p8-6*hbcm*p3p5*p4p7*p4p8+hbcm*p3p7*p4p5*p4p8))+
4719      . ans3+ans6
4720       ans1=w2*(2*(p5p8*p5p7)*(-ffmcfmb*hbcm3+fmc*hbcm2)+4*(p5p8*p4p7)
4721      . *(-2*ffmcfmb*hbcm3+3*fmb*hbcm2-3*fmc*hbcm2+3*hbcm3)+4*(p5p8*
4722      . p3p7*p3p4)*(-ffmcfmb*hbcm-hbcm)+4*(p5p8*p3p7*p2p3)*(-5*ffmcfmb
4723      . *hbcm+hbcm)+2*(p5p8*p3p7)*(-ffmcfmb**2*hbcm3+6*ffmcfmb*fmb*
4724      . hbcm2-7*ffmcfmb*fmc*hbcm2+3*ffmcfmb*hbcm3+fmc*hbcm2)+4*(-3*
4725      . ffmcfmb*hbcm*p1p3*p3p7*p5p8+5*ffmcfmb*hbcm*p3p5*p3p7*p5p8-hbcm
4726      . *p1p2*p3p7*p5p8-2*hbcm*p1p3*p4p7*p5p8-hbcm*p1p4*p3p7*p5p8-4*
4727      . hbcm*p2p3*p4p7*p5p8+2*hbcm*p2p3*p5p7*p5p8-hbcm*p2p5*p3p7*p5p8-
4728      . 2*hbcm*p3p4*p4p7*p5p8+6*hbcm*p3p5*p4p7*p5p8-hbcm*p3p7*p4p5*
4729      . p5p8))+ans2
4730       ans=ccc*ans1
4731       b(5)=ans
4732       ans=ccc*(w2*(2*(p5p8*p4p6)*(ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm+
4733      . hbcm2)+2*(p5p8*p3p6)*(ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm-2*
4734      . ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2))+w1*(2*(p4p8*p4p6)*(-ffmcfmb*
4735      . hbcm2+fmb*hbcm+2*fmc*hbcm-hbcm2)+2*(p4p8*p3p6)*(-ffmcfmb**2*
4736      . hbcm2+ffmcfmb*fmb*hbcm+2*ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2))+w11*
4737      . (2*(p4p8*p4p6)*(-ffmcfmb*hbcm2+fmb*hbcm+2*fmc*hbcm-hbcm2)+2*(
4738      . p4p6*p2p8)*(ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm+hbcm2)+2*(p4p8*
4739      . p3p6)*(-ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm+2*ffmcfmb*fmc*hbcm-
4740      . ffmcfmb*hbcm2)+2*(p3p6*p2p8)*(ffmcfmb**2*hbcm2-ffmcfmb*fmb*
4741      . hbcm-2*ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2))+(8*(p6p8*p3p4)*(-fb3*
4742      . ffmcfmb+fb3)+16*(p3p6*p2p8)*(-2*fb3*ffmcfmb+fb3)+8*(p6p8*p2p3)
4743      . *(-fb3*ffmcfmb+fb3)+p6p8*(-8*fb3*ffmcfmb**2*hbcm2+8*fb3*
4744      . ffmcfmb*hbcm2+ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm+hbcm2)+8*(fb3*
4745      . ffmcfmb*p1p3*p6p8+fb3*ffmcfmb*p3p5*p6p8+fb3*p1p2*p6p8+fb3*p1p4
4746      . *p6p8+fb3*p2p5*p6p8-2*fb3*p2p8*p4p6+2*fb3*p2p8*p5p6-fb3*p3p6*
4747      . p4p8+fb3*p4p5*p6p8-fb3*p4p6*p4p8-fb3*p4p8*p5p6)))
4748       b(6)=ans
4749       b(7)=ccc*(8*(p3p6*p2p3)*(5*fb3*ffmcfmb-3*fb3)+p4p6*(-4*fb3*
4750      . ffmcfmb*hbcm2+4*fb3*hbcm2-4*fb4*fmb*hbcm-8*fb4*fmc*hbcm+hbcm2)
4751      . +p3p6*(-4*fb3*ffmcfmb**2*hbcm2+4*fb3*ffmcfmb*hbcm2-4*fb4*
4752      . ffmcfmb*fmb*hbcm-8*fb4*ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2)+8*(fb3*
4753      . ffmcfmb*hbcm2*p5p6-fb3*ffmcfmb*p1p3*p3p6+fb3*ffmcfmb*p3p4*p3p6
4754      . -fb3*ffmcfmb*p3p5*p3p6-fb3*p1p2*p3p6-fb3*p1p4*p3p6+2*fb3*p2p3*
4755      . p4p6-2*fb3*p2p3*p5p6-fb3*p2p5*p3p6+fb3*p3p4*p4p6+fb3*p3p4*p5p6
4756      . -fb3*p3p6*p4p5))
4757       ans3=(2*(p4p8*p3p6)*(4*fb4*hbcm+hbcm)+8*(p6p8*p3p4)*(fb4*
4758      . ffmcfmb*hbcm-fb4*hbcm)+2*(p3p6*p2p8)*(16*fb4*ffmcfmb*hbcm-8*
4759      . fb4*hbcm+hbcm)+8*(p6p8*p2p3)*(fb4*ffmcfmb*hbcm-fb4*hbcm+hbcm)+
4760      . p6p8*(8*fb4*ffmcfmb**2*hbcm3-8*fb4*ffmcfmb*hbcm3-3*ffmcfmb*
4761      . hbcm3-fmb*hbcm2+2*fmc*hbcm2+hbcm3)+2*(-4*fb4*ffmcfmb*hbcm*p1p3
4762      . *p6p8-4*fb4*ffmcfmb*hbcm*p3p5*p6p8-4*fb4*hbcm*p1p2*p6p8-4*fb4*
4763      . hbcm*p1p4*p6p8-4*fb4*hbcm*p2p5*p6p8+8*fb4*hbcm*p2p8*p4p6-8*fb4
4764      . *hbcm*p2p8*p5p6-4*fb4*hbcm*p4p5*p6p8+4*fb4*hbcm*p4p6*p4p8+4*
4765      . fb4*hbcm*p4p8*p5p6-hbcm*p1p8*p3p6-hbcm*p3p6*p5p8))
4766       ans2=w11*(2*(p4p8*p4p6)*(ffmcfmb*hbcm3+fmb*hbcm2-2*fmc*hbcm2-
4767      . hbcm3)+2*(p4p6*p2p8)*(-ffmcfmb*hbcm3-fmb*hbcm2+2*fmc*hbcm2+
4768      . hbcm3)+4*(p4p8*p3p6*p2p3)*(-5*ffmcfmb*hbcm+3*hbcm)+4*(p3p6*
4769      . p2p8*p2p3)*(5*ffmcfmb*hbcm-3*hbcm)+2*(p4p8*p3p6)*(ffmcfmb**2*
4770      . hbcm3+ffmcfmb*fmb*hbcm2-2*ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3)+2*(
4771      . p3p6*p2p8)*(-ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+2*ffmcfmb*fmc*
4772      . hbcm2+ffmcfmb*hbcm3)+4*(-ffmcfmb*hbcm*p1p3*p2p8*p3p6+ffmcfmb*
4773      . hbcm*p1p3*p3p6*p4p8+ffmcfmb*hbcm*p2p8*p3p4*p3p6-ffmcfmb*hbcm*
4774      . p2p8*p3p5*p3p6-ffmcfmb*hbcm*p3p4*p3p6*p4p8+ffmcfmb*hbcm*p3p5*
4775      . p3p6*p4p8+ffmcfmb*hbcm3*p2p8*p5p6-ffmcfmb*hbcm3*p4p8*p5p6-hbcm
4776      . *p1p2*p2p8*p3p6+hbcm*p1p2*p3p6*p4p8-hbcm*p1p4*p2p8*p3p6+hbcm*
4777      . p1p4*p3p6*p4p8+2*hbcm*p2p3*p2p8*p4p6-2*hbcm*p2p3*p2p8*p5p6-2*
4778      . hbcm*p2p3*p4p6*p4p8+2*hbcm*p2p3*p4p8*p5p6-hbcm*p2p5*p2p8*p3p6+
4779      . hbcm*p2p5*p3p6*p4p8+hbcm*p2p8*p3p4*p4p6+hbcm*p2p8*p3p4*p5p6-
4780      . hbcm*p2p8*p3p6*p4p5-hbcm*p3p4*p4p6*p4p8-hbcm*p3p4*p4p8*p5p6+
4781      . hbcm*p3p6*p4p5*p4p8))+ans3
4782       ans1=w2*(2*(p5p8*p4p6)*(-ffmcfmb*hbcm3-fmb*hbcm2+2*fmc*hbcm2+
4783      . hbcm3)+4*(p5p8*p3p6*p2p3)*(5*ffmcfmb*hbcm-3*hbcm)+2*(p5p8*p3p6
4784      . )*(-ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+2*ffmcfmb*fmc*hbcm2+
4785      . ffmcfmb*hbcm3)+4*(-ffmcfmb*hbcm*p1p3*p3p6*p5p8+ffmcfmb*hbcm*
4786      . p3p4*p3p6*p5p8-ffmcfmb*hbcm*p3p5*p3p6*p5p8+ffmcfmb*hbcm3*p5p6*
4787      . p5p8-hbcm*p1p2*p3p6*p5p8-hbcm*p1p4*p3p6*p5p8+2*hbcm*p2p3*p4p6*
4788      . p5p8-2*hbcm*p2p3*p5p6*p5p8-hbcm*p2p5*p3p6*p5p8+hbcm*p3p4*p4p6*
4789      . p5p8+hbcm*p3p4*p5p6*p5p8-hbcm*p3p6*p4p5*p5p8))+w1*(2*(p4p8*
4790      . p4p6)*(ffmcfmb*hbcm3+fmb*hbcm2-2*fmc*hbcm2-hbcm3)+4*(p4p8*p3p6
4791      . *p2p3)*(-5*ffmcfmb*hbcm+3*hbcm)+2*(p4p8*p3p6)*(ffmcfmb**2*
4792      . hbcm3+ffmcfmb*fmb*hbcm2-2*ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3)+4*(
4793      . ffmcfmb*hbcm*p1p3*p3p6*p4p8-ffmcfmb*hbcm*p3p4*p3p6*p4p8+
4794      . ffmcfmb*hbcm*p3p5*p3p6*p4p8-ffmcfmb*hbcm3*p4p8*p5p6+hbcm*p1p2*
4795      . p3p6*p4p8+hbcm*p1p4*p3p6*p4p8-2*hbcm*p2p3*p4p6*p4p8+2*hbcm*
4796      . p2p3*p4p8*p5p6+hbcm*p2p5*p3p6*p4p8-hbcm*p3p4*p4p6*p4p8-hbcm*
4797      . p3p4*p4p8*p5p6+hbcm*p3p6*p4p5*p4p8))+ans2
4798       ans=ccc*ans1
4799       b(8)=ans
4800       ans=ccc*(2*(p5p6*p3p7)*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+2*(
4801      . p5p7*p3p6)*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+4*(p6p7*p3p4)*(
4802      . -4*fb3*fmc-6*fb4*ffmcfmb*hbcm+2*fb4*hbcm+hbcm)+4*(p6p7*p2p3)*(
4803      . 4*fb3*fmc+2*fb4*ffmcfmb*hbcm+2*fb4*hbcm-hbcm)+8*(p4p6*p3p7)*(
4804      . fb3*fmb-fb3*fmc+4*fb4*ffmcfmb*hbcm-fb4*hbcm)+4*(p4p7*p3p6)*(8*
4805      . fb3*fmb-4*fb3*fmc-4*fb4*ffmcfmb*hbcm-2*fb4*hbcm-hbcm)+4*(p3p7*
4806      . p3p6)*(10*fb3*ffmcfmb*fmb-6*fb3*ffmcfmb*fmc-4*fb4*ffmcfmb**2*
4807      . hbcm-2*fb4*ffmcfmb*hbcm-ffmcfmb*hbcm)+p6p7*(4*fb3*ffmcfmb*fmb*
4808      . hbcm2-12*fb3*ffmcfmb*fmc*hbcm2-4*fb3*fmc*hbcm2-12*fb4*ffmcfmb
4809      . **2*hbcm3+4*fb4*ffmcfmb*hbcm3+4*fb4*fmb*fmc*hbcm-8*fb4*fmc2*
4810      . hbcm+2*ffmcfmb*hbcm3-fmb*hbcm2+fmc*hbcm2+hbcm3)+8*(fb4*ffmcfmb
4811      . *hbcm*p1p3*p6p7+fb4*ffmcfmb*hbcm*p3p5*p6p7+fb4*hbcm*p1p2*p6p7+
4812      . fb4*hbcm*p1p4*p6p7+4*fb4*hbcm*p2p4*p6p7+fb4*hbcm*p2p5*p6p7+fb4
4813      . *hbcm*p4p5*p6p7+3*fb4*hbcm*p4p6*p4p7-fb4*hbcm*p4p7*p5p6))
4814       b(9)=ans
4815       ans5=4*(p3p7*p3p6*p2p8)*(5*ffmcfmb**2*hbcm2-4*ffmcfmb*fmb*hbcm-
4816      . ffmcfmb*fmc*hbcm-2*ffmcfmb*hbcm2)+4*(-ffmcfmb*hbcm2*p1p3*p2p8*
4817      . p6p7+ffmcfmb*hbcm2*p1p3*p4p8*p6p7-ffmcfmb*hbcm2*p2p8*p3p5*p6p7
4818      . +ffmcfmb*hbcm2*p3p5*p4p8*p6p7-hbcm2*p1p2*p2p8*p6p7+hbcm2*p1p2*
4819      . p4p8*p6p7-hbcm2*p1p4*p2p8*p6p7+hbcm2*p1p4*p4p8*p6p7-4*hbcm2*
4820      . p2p4*p2p8*p6p7+4*hbcm2*p2p4*p4p8*p6p7-hbcm2*p2p5*p2p8*p6p7+
4821      . hbcm2*p2p5*p4p8*p6p7-hbcm2*p2p8*p4p5*p6p7-hbcm2*p2p8*p4p6*p4p7
4822      . -hbcm2*p2p8*p4p7*p5p6+hbcm2*p4p5*p4p8*p6p7+hbcm2*p4p6*p4p7*
4823      . p4p8+hbcm2*p4p7*p4p8*p5p6)
4824       ans4=4*(p5p6*p4p8*p3p7)*(ffmcfmb*hbcm2+fmc*hbcm)+4*(p4p8*p4p6*
4825      . p3p7)*(3*ffmcfmb*hbcm2-fmc*hbcm)+4*(p5p7*p4p8*p3p6)*(ffmcfmb*
4826      . hbcm2-fmc*hbcm)+4*(p4p8*p4p7*p3p6)*(-6*ffmcfmb*hbcm2+4*fmb*
4827      . hbcm+2*fmc*hbcm+hbcm2)+4*(p6p7*p4p8*p3p4)*(-3*ffmcfmb*hbcm2+2*
4828      . fmc*hbcm+hbcm2)+4*(p5p6*p3p7*p2p8)*(-ffmcfmb*hbcm2-fmc*hbcm)+4
4829      . *(p4p6*p3p7*p2p8)*(-3*ffmcfmb*hbcm2+fmc*hbcm)+4*(p5p7*p3p6*
4830      . p2p8)*(-ffmcfmb*hbcm2+fmc*hbcm)+4*(p4p7*p3p6*p2p8)*(6*ffmcfmb*
4831      . hbcm2-4*fmb*hbcm-2*fmc*hbcm-hbcm2)+4*(p6p7*p3p4*p2p8)*(3*
4832      . ffmcfmb*hbcm2-2*fmc*hbcm-hbcm2)+4*(p6p7*p4p8*p2p3)*(ffmcfmb*
4833      . hbcm2-2*fmb*hbcm-4*fmc*hbcm+3*hbcm2)+4*(p6p7*p2p8*p2p3)*(-
4834      . ffmcfmb*hbcm2+2*fmb*hbcm+4*fmc*hbcm-3*hbcm2)+2*(p6p7*p4p8)*(-3
4835      . *ffmcfmb**2*hbcm4+ffmcfmb*fmb*hbcm3+3*ffmcfmb*fmc*hbcm3+
4836      . ffmcfmb*hbcm4-fmb*fmc*hbcm2+fmc*hbcm3-2*fmc2*hbcm2)+2*(p6p7*
4837      . p2p8)*(3*ffmcfmb**2*hbcm4-ffmcfmb*fmb*hbcm3-3*ffmcfmb*fmc*
4838      . hbcm3-ffmcfmb*hbcm4+fmb*fmc*hbcm2-fmc*hbcm3+2*fmc2*hbcm2)+4*(
4839      . p4p8*p3p7*p3p6)*(-5*ffmcfmb**2*hbcm2+4*ffmcfmb*fmb*hbcm+
4840      . ffmcfmb*fmc*hbcm+2*ffmcfmb*hbcm2)+ans5
4841       ans3=w11*ans4
4842       ans7=2*(-16*fb3*ffmcfmb*p1p3*p3p7*p6p8+16*fb3*ffmcfmb*p1p8*p3p6
4843      . *p3p7+16*fb3*ffmcfmb*p3p4*p3p7*p6p8-16*fb3*ffmcfmb*p3p5*p3p7*
4844      . p6p8-16*fb3*ffmcfmb*p3p6*p3p7*p4p8+16*fb3*ffmcfmb*p3p6*p3p7*
4845      . p5p8-16*fb3*p1p3*p4p7*p6p8+16*fb3*p1p8*p3p6*p4p7-32*fb3*p2p3*
4846      . p2p8*p6p7-16*fb3*p2p3*p4p6*p7p8+32*fb3*p2p3*p4p8*p6p7+16*fb3*
4847      . p2p3*p5p6*p7p8-16*fb3*p2p3*p5p7*p6p8+16*fb3*p2p8*p3p6*p4p7+40*
4848      . fb3*p2p8*p3p7*p4p6-24*fb3*p2p8*p3p7*p5p6+16*fb3*p3p4*p4p7*p6p8
4849      . -16*fb3*p3p5*p4p7*p6p8-16*fb3*p3p6*p4p7*p4p8+16*fb3*p3p6*p4p7*
4850      . p5p8-hbcm2*p1p8*p6p7-hbcm2*p5p8*p6p7)
4851       ans6=16*(p3p7*p3p6*p2p8)*(10*fb3*ffmcfmb-3*fb3)+32*(p6p8*p3p7*
4852      . p2p3)*(fb3*ffmcfmb-fb3)+32*(p7p8*p3p6*p2p3)*(-2*fb3*ffmcfmb+
4853      . fb3)+2*(p6p8*p5p7)*(4*fb3*ffmcfmb*hbcm2+4*fb4*fmc*hbcm-hbcm2)+
4854      . 2*(p7p8*p5p6)*(-4*fb3*ffmcfmb*hbcm2-4*fb4*fmc*hbcm-hbcm2)+2*(
4855      . p6p7*p4p8)*(-8*fb3*ffmcfmb*hbcm2-8*fb4*fmc*hbcm+3*hbcm2)+4*(
4856      . p6p8*p4p7)*(4*fb3*ffmcfmb*hbcm2-8*fb4*fmb*hbcm-4*fb4*fmc*hbcm+
4857      . 3*hbcm2)+2*(p7p8*p4p6)*(4*fb3*ffmcfmb*hbcm2+4*fb4*fmc*hbcm-3*
4858      . hbcm2)+2*(p6p7*p2p8)*(8*fb3*ffmcfmb*hbcm2+8*fb4*fmc*hbcm-hbcm2
4859      . )+2*(p6p8*p3p7)*(4*fb3*ffmcfmb**2*hbcm2+4*fb3*ffmcfmb*hbcm2-16
4860      . *fb4*ffmcfmb*fmb*hbcm-12*fb4*ffmcfmb*fmc*hbcm+4*fb4*fmc*hbcm+5
4861      . *ffmcfmb*hbcm2+2*fmc*hbcm-hbcm2)+2*(p7p8*p3p6)*(8*fb3*ffmcfmb
4862      . **2*hbcm2-4*fb3*ffmcfmb*hbcm2+8*fb4*ffmcfmb*fmc*hbcm-4*fb4*fmc
4863      . *hbcm+5*ffmcfmb*hbcm2-4*fmb*hbcm-3*fmc*hbcm-hbcm2)+ans7
4864       ans2=w1*(4*(p5p6*p4p8*p3p7)*(ffmcfmb*hbcm2+fmc*hbcm)+4*(p4p8*
4865      . p4p6*p3p7)*(3*ffmcfmb*hbcm2-fmc*hbcm)+4*(p5p7*p4p8*p3p6)*(
4866      . ffmcfmb*hbcm2-fmc*hbcm)+4*(p4p8*p4p7*p3p6)*(-6*ffmcfmb*hbcm2+4
4867      . *fmb*hbcm+2*fmc*hbcm+hbcm2)+4*(p6p7*p4p8*p3p4)*(-3*ffmcfmb*
4868      . hbcm2+2*fmc*hbcm+hbcm2)+4*(p6p7*p4p8*p2p3)*(ffmcfmb*hbcm2-2*
4869      . fmb*hbcm-4*fmc*hbcm+3*hbcm2)+2*(p6p7*p4p8)*(-3*ffmcfmb**2*
4870      . hbcm4+ffmcfmb*fmb*hbcm3+3*ffmcfmb*fmc*hbcm3+ffmcfmb*hbcm4-fmb*
4871      . fmc*hbcm2+fmc*hbcm3-2*fmc2*hbcm2)+4*(p4p8*p3p7*p3p6)*(-5*
4872      . ffmcfmb**2*hbcm2+4*ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+2*ffmcfmb
4873      . *hbcm2)+4*(ffmcfmb*hbcm2*p1p3*p4p8*p6p7+ffmcfmb*hbcm2*p3p5*
4874      . p4p8*p6p7+hbcm2*p1p2*p4p8*p6p7+hbcm2*p1p4*p4p8*p6p7+4*hbcm2*
4875      . p2p4*p4p8*p6p7+hbcm2*p2p5*p4p8*p6p7+hbcm2*p4p5*p4p8*p6p7+hbcm2
4876      . *p4p6*p4p7*p4p8+hbcm2*p4p7*p4p8*p5p6))+ans3+ans6
4877       ans1=w2*(4*(p5p8*p5p6*p3p7)*(-ffmcfmb*hbcm2-fmc*hbcm)+4*(p5p8*
4878      . p4p6*p3p7)*(-3*ffmcfmb*hbcm2+fmc*hbcm)+4*(p5p8*p5p7*p3p6)*(-
4879      . ffmcfmb*hbcm2+fmc*hbcm)+4*(p5p8*p4p7*p3p6)*(6*ffmcfmb*hbcm2-4*
4880      . fmb*hbcm-2*fmc*hbcm-hbcm2)+4*(p6p7*p5p8*p3p4)*(3*ffmcfmb*hbcm2
4881      . -2*fmc*hbcm-hbcm2)+4*(p6p7*p5p8*p2p3)*(-ffmcfmb*hbcm2+2*fmb*
4882      . hbcm+4*fmc*hbcm-3*hbcm2)+2*(p6p7*p5p8)*(3*ffmcfmb**2*hbcm4-
4883      . ffmcfmb*fmb*hbcm3-3*ffmcfmb*fmc*hbcm3-ffmcfmb*hbcm4+fmb*fmc*
4884      . hbcm2-fmc*hbcm3+2*fmc2*hbcm2)+4*(p5p8*p3p7*p3p6)*(5*ffmcfmb**2
4885      . *hbcm2-4*ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm-2*ffmcfmb*hbcm2)+4*
4886      . (-ffmcfmb*hbcm2*p1p3*p5p8*p6p7-ffmcfmb*hbcm2*p3p5*p5p8*p6p7-
4887      . hbcm2*p1p2*p5p8*p6p7-hbcm2*p1p4*p5p8*p6p7-4*hbcm2*p2p4*p5p8*
4888      . p6p7-hbcm2*p2p5*p5p8*p6p7-hbcm2*p4p5*p5p8*p6p7-hbcm2*p4p6*p4p7
4889      . *p5p8-hbcm2*p4p7*p5p6*p5p8))+ans2
4890       ans=ccc*ans1
4891       b(10)=ans
4892       ans=ccc*(w2*(2*(p5p8*p3p4)*(-ffmcfmb*hbcm+hbcm)+2*(p5p8*p2p3)*(
4893      . -ffmcfmb*hbcm+hbcm)+2*p5p8*(-ffmcfmb**2*hbcm3+ffmcfmb*hbcm3)+2
4894      . *(ffmcfmb*hbcm*p1p3*p5p8+ffmcfmb*hbcm*p3p5*p5p8+hbcm*p1p2*p5p8
4895      . +hbcm*p1p4*p5p8+hbcm*p2p5*p5p8+hbcm*p4p5*p5p8))+w1*(2*(p4p8*
4896      . p3p4)*(ffmcfmb*hbcm-hbcm)+2*(p4p8*p2p3)*(ffmcfmb*hbcm-hbcm)+2*
4897      . p4p8*(ffmcfmb**2*hbcm3-ffmcfmb*hbcm3)+2*(-ffmcfmb*hbcm*p1p3*
4898      . p4p8-ffmcfmb*hbcm*p3p5*p4p8-hbcm*p1p2*p4p8-hbcm*p1p4*p4p8-hbcm
4899      . *p2p5*p4p8-hbcm*p4p5*p4p8))+w11*(2*(p4p8*p3p4)*(ffmcfmb*hbcm-
4900      . hbcm)+2*(p3p4*p2p8)*(-ffmcfmb*hbcm+hbcm)+2*(p4p8*p2p3)*(
4901      . ffmcfmb*hbcm-hbcm)+2*(p2p8*p2p3)*(-ffmcfmb*hbcm+hbcm)+2*p4p8*(
4902      . ffmcfmb**2*hbcm3-ffmcfmb*hbcm3)+2*p2p8*(-ffmcfmb**2*hbcm3+
4903      . ffmcfmb*hbcm3)+2*(ffmcfmb*hbcm*p1p3*p2p8-ffmcfmb*hbcm*p1p3*
4904      . p4p8+ffmcfmb*hbcm*p2p8*p3p5-ffmcfmb*hbcm*p3p5*p4p8+hbcm*p1p2*
4905      . p2p8-hbcm*p1p2*p4p8+hbcm*p1p4*p2p8-hbcm*p1p4*p4p8+hbcm*p2p5*
4906      . p2p8-hbcm*p2p5*p4p8+hbcm*p2p8*p4p5-hbcm*p4p5*p4p8))+(hbcm*p1p8
4907      . -hbcm*p2p8-hbcm*p4p8+hbcm*p5p8))
4908       b(11)=ans
4909       b(12)=ccc*(4*p3p4*(fb3*ffmcfmb-fb3)+4*p2p3*(fb3*ffmcfmb-fb3)+4*
4910      . (fb3*ffmcfmb**2*hbcm2-fb3*ffmcfmb*hbcm2-fb3*ffmcfmb*p1p3-fb3*
4911      . ffmcfmb*p3p5-fb3*p1p2-fb3*p1p4-fb3*p2p5-fb3*p4p5))
4912       ans=ccc*(w2*(2*(p5p8*p3p4)*(-ffmcfmb*hbcm2+hbcm2)+2*(p5p8*p2p3)
4913      . *(-ffmcfmb*hbcm2+hbcm2)+2*p5p8*(-ffmcfmb**2*hbcm4+ffmcfmb*
4914      . hbcm4)+2*(ffmcfmb*hbcm2*p1p3*p5p8+ffmcfmb*hbcm2*p3p5*p5p8+
4915      . hbcm2*p1p2*p5p8+hbcm2*p1p4*p5p8+hbcm2*p2p5*p5p8+hbcm2*p4p5*
4916      . p5p8))+w1*(2*(p4p8*p3p4)*(ffmcfmb*hbcm2-hbcm2)+2*(p4p8*p2p3)*(
4917      . ffmcfmb*hbcm2-hbcm2)+2*p4p8*(ffmcfmb**2*hbcm4-ffmcfmb*hbcm4)+2
4918      . *(-ffmcfmb*hbcm2*p1p3*p4p8-ffmcfmb*hbcm2*p3p5*p4p8-hbcm2*p1p2*
4919      . p4p8-hbcm2*p1p4*p4p8-hbcm2*p2p5*p4p8-hbcm2*p4p5*p4p8))+w11*(2*
4920      . (p4p8*p3p4)*(ffmcfmb*hbcm2-hbcm2)+2*(p3p4*p2p8)*(-ffmcfmb*
4921      . hbcm2+hbcm2)+2*(p4p8*p2p3)*(ffmcfmb*hbcm2-hbcm2)+2*(p2p8*p2p3)
4922      . *(-ffmcfmb*hbcm2+hbcm2)+2*p4p8*(ffmcfmb**2*hbcm4-ffmcfmb*hbcm4
4923      . )+2*p2p8*(-ffmcfmb**2*hbcm4+ffmcfmb*hbcm4)+2*(ffmcfmb*hbcm2*
4924      . p1p3*p2p8-ffmcfmb*hbcm2*p1p3*p4p8+ffmcfmb*hbcm2*p2p8*p3p5-
4925      . ffmcfmb*hbcm2*p3p5*p4p8+hbcm2*p1p2*p2p8-hbcm2*p1p2*p4p8+hbcm2*
4926      . p1p4*p2p8-hbcm2*p1p4*p4p8+hbcm2*p2p5*p2p8-hbcm2*p2p5*p4p8+
4927      . hbcm2*p2p8*p4p5-hbcm2*p4p5*p4p8))+(hbcm2*p1p8-hbcm2*p2p8-hbcm2
4928      . *p4p8+hbcm2*p5p8))
4929       b(13)=ans
4930       b(14)=ccc*(4*p3p4*(-fb4*ffmcfmb*hbcm+fb4*hbcm)+4*p2p3*(-fb4*
4931      . ffmcfmb*hbcm+fb4*hbcm)+4*(-fb4*ffmcfmb**2*hbcm3+fb4*ffmcfmb*
4932      . hbcm*p1p3+fb4*ffmcfmb*hbcm*p3p5+fb4*ffmcfmb*hbcm3+fb4*hbcm*
4933      . p1p2+fb4*hbcm*p1p4+fb4*hbcm*p2p5+fb4*hbcm*p4p5))
4934       b(15)=ccc*(w2*(2*(p5p8*p3p6)*(8*ffmcfmb*hbcm2-3*hbcm2)+2*(5*
4935      . hbcm2*p4p6*p5p8-3*hbcm2*p5p6*p5p8))+w1*(2*(p4p8*p3p6)*(-8*
4936      . ffmcfmb*hbcm2+3*hbcm2)+2*(-5*hbcm2*p4p6*p4p8+3*hbcm2*p4p8*p5p6
4937      . ))+w11*(2*(p4p8*p3p6)*(-8*ffmcfmb*hbcm2+3*hbcm2)+2*(p3p6*p2p8)
4938      . *(8*ffmcfmb*hbcm2-3*hbcm2)+2*(5*hbcm2*p2p8*p4p6-3*hbcm2*p2p8*
4939      . p5p6-5*hbcm2*p4p6*p4p8+3*hbcm2*p4p8*p5p6))+8*hbcm2*p6p8)
4940       b(16)=ccc*(w2*(2*(p5p8*p3p6)*(-8*ffmcfmb*hbcm+3*hbcm)+2*(-5*
4941      . hbcm*p4p6*p5p8+3*hbcm*p5p6*p5p8))+w1*(2*(p4p8*p3p6)*(8*ffmcfmb
4942      . *hbcm-3*hbcm)+2*(5*hbcm*p4p6*p4p8-3*hbcm*p4p8*p5p6))+w11*(2*(
4943      . p4p8*p3p6)*(8*ffmcfmb*hbcm-3*hbcm)+2*(p3p6*p2p8)*(-8*ffmcfmb*
4944      . hbcm+3*hbcm)+2*(-5*hbcm*p2p8*p4p6+3*hbcm*p2p8*p5p6+5*hbcm*p4p6
4945      . *p4p8-3*hbcm*p4p8*p5p6))-8*hbcm*p6p8)
4946       b(18)=ccc*(w2*(4*(p5p8*p3p7)*(4*ffmcfmb*hbcm2-hbcm2)+4*(3*hbcm2
4947      . *p4p7*p5p8-hbcm2*p5p7*p5p8))+w1*(4*(p4p8*p3p7)*(-4*ffmcfmb*
4948      . hbcm2+hbcm2)+4*(-3*hbcm2*p4p7*p4p8+hbcm2*p4p8*p5p7))+w11*(4*(
4949      . p4p8*p3p7)*(-4*ffmcfmb*hbcm2+hbcm2)+4*(p3p7*p2p8)*(4*ffmcfmb*
4950      . hbcm2-hbcm2)+4*(3*hbcm2*p2p8*p4p7-hbcm2*p2p8*p5p7-3*hbcm2*p4p7
4951      . *p4p8+hbcm2*p4p8*p5p7))+8*hbcm2*p7p8)
4952       b(20)=ccc*(w2*(4*(p5p8*p3p7)*(4*ffmcfmb*hbcm-hbcm)+4*(3*hbcm*
4953      . p4p7*p5p8-hbcm*p5p7*p5p8))+w1*(4*(p4p8*p3p7)*(-4*ffmcfmb*hbcm+
4954      . hbcm)+4*(-3*hbcm*p4p7*p4p8+hbcm*p4p8*p5p7))+w11*(4*(p4p8*p3p7)
4955      . *(-4*ffmcfmb*hbcm+hbcm)+4*(p3p7*p2p8)*(4*ffmcfmb*hbcm-hbcm)+4*
4956      . (3*hbcm*p2p8*p4p7-hbcm*p2p8*p5p7-3*hbcm*p4p7*p4p8+hbcm*p4p8*
4957      . p5p7))+8*hbcm*p7p8)
4958       b(23)=ccc*(8*p3p7*(4*fb4*ffmcfmb*hbcm-fb4*hbcm)+8*(3*fb4*hbcm*
4959      . p4p7-fb4*hbcm*p5p7))
4960       b(24)=ccc*(4*p3p6*(-8*fb4*ffmcfmb*hbcm+3*fb4*hbcm)+4*(-5*fb4*
4961      . hbcm*p4p6+3*fb4*hbcm*p5p6))
4962       b(25)=ccc*(p5p7*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+24*p4p7*(-
4963      . fb3*fmb+fb3*fmc+fb4*hbcm)+p3p7*(-24*fb3*ffmcfmb*fmb+28*fb3*
4964      . ffmcfmb*fmc-4*fb3*fmc+4*fb4*ffmcfmb**2*hbcm+20*fb4*ffmcfmb*
4965      . hbcm-ffmcfmb*hbcm+hbcm))
4966       b(26)=ccc*(p4p6*(4*fb3*fmb-8*fb3*fmc-4*fb4*ffmcfmb*hbcm-4*fb4*
4967      . hbcm+hbcm)+p3p6*(4*fb3*ffmcfmb*fmb-8*fb3*ffmcfmb*fmc-4*fb4*
4968      . ffmcfmb**2*hbcm-4*fb4*ffmcfmb*hbcm+ffmcfmb*hbcm))
4969       b(27)=ccc*(8*(p3p7*p3p6)*(-8*fb3*ffmcfmb+3*fb3)+8*p6p7*(-2*fb3*
4970      . ffmcfmb*hbcm2-fb3*hbcm2+fb4*fmb*hbcm+fb4*fmc*hbcm)+8*(4*fb3*
4971      . p2p3*p6p7-4*fb3*p3p4*p6p7-2*fb3*p3p6*p4p7+2*fb3*p3p6*p5p7-3*
4972      . fb3*p3p7*p4p6+fb3*p3p7*p5p6))
4973       b(28)=ccc*(4*w2*(p6p7*p5p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+4*w1*(
4974      . p6p7*p4p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+w11*(4*(p6p7*p4p8)*(fmb*
4975      . hbcm+fmc*hbcm-hbcm2)+4*(p6p7*p2p8)*(-fmb*hbcm-fmc*hbcm+hbcm2))
4976      . +(16*(p6p8*p3p7)*(-2*fb3*ffmcfmb+fb3)+8*(p7p8*p3p6)*(-4*fb3*
4977      . ffmcfmb+fb3)+8*(4*fb3*p2p8*p6p7-3*fb3*p4p6*p7p8-2*fb3*p4p7*
4978      . p6p8-4*fb3*p4p8*p6p7+fb3*p5p6*p7p8+2*fb3*p5p7*p6p8)))
4979       b(29)=ccc*(4*p3p6*(-8*fb3*ffmcfmb+3*fb3)+4*(-5*fb3*p4p6+3*fb3*
4980      . p5p6))
4981       b(30)=ccc*(8*p3p7*(4*fb3*ffmcfmb-fb3)+8*(3*fb3*p4p7-fb3*p5p7))
4982       ans2=(8*(p6p8*p3p7)*(-4*fb4*ffmcfmb*hbcm+2*fb4*hbcm-hbcm)+8*(
4983      . p7p8*p3p6)*(-4*fb4*ffmcfmb*hbcm+fb4*hbcm-hbcm)+8*(4*fb4*hbcm*
4984      . p2p8*p6p7-3*fb4*hbcm*p4p6*p7p8-2*fb4*hbcm*p4p7*p6p8-4*fb4*hbcm
4985      . *p4p8*p6p7+fb4*hbcm*p5p6*p7p8+2*fb4*hbcm*p5p7*p6p8))
4986       ans1=w2*(4*(p6p7*p5p8)*(-2*ffmcfmb*hbcm3+fmb*hbcm2-fmc*hbcm2-
4987      . hbcm3)+4*(p5p8*p3p7*p3p6)*(-8*ffmcfmb*hbcm+3*hbcm)+4*(4*hbcm*
4988      . p2p3*p5p8*p6p7-4*hbcm*p3p4*p5p8*p6p7-2*hbcm*p3p6*p4p7*p5p8+2*
4989      . hbcm*p3p6*p5p7*p5p8-3*hbcm*p3p7*p4p6*p5p8+hbcm*p3p7*p5p6*p5p8)
4990      . )+w1*(4*(p6p7*p4p8)*(2*ffmcfmb*hbcm3-fmb*hbcm2+fmc*hbcm2+hbcm3
4991      . )+4*(p4p8*p3p7*p3p6)*(8*ffmcfmb*hbcm-3*hbcm)+4*(-4*hbcm*p2p3*
4992      . p4p8*p6p7+4*hbcm*p3p4*p4p8*p6p7+2*hbcm*p3p6*p4p7*p4p8-2*hbcm*
4993      . p3p6*p4p8*p5p7+3*hbcm*p3p7*p4p6*p4p8-hbcm*p3p7*p4p8*p5p6))+w11
4994      . *(4*(p6p7*p4p8)*(2*ffmcfmb*hbcm3-fmb*hbcm2+fmc*hbcm2+hbcm3)+4*
4995      . (p6p7*p2p8)*(-2*ffmcfmb*hbcm3+fmb*hbcm2-fmc*hbcm2-hbcm3)+4*(
4996      . p4p8*p3p7*p3p6)*(8*ffmcfmb*hbcm-3*hbcm)+4*(p3p7*p3p6*p2p8)*(-8
4997      . *ffmcfmb*hbcm+3*hbcm)+4*(4*hbcm*p2p3*p2p8*p6p7-4*hbcm*p2p3*
4998      . p4p8*p6p7-4*hbcm*p2p8*p3p4*p6p7-2*hbcm*p2p8*p3p6*p4p7+2*hbcm*
4999      . p2p8*p3p6*p5p7-3*hbcm*p2p8*p3p7*p4p6+hbcm*p2p8*p3p7*p5p6+4*
5000      . hbcm*p3p4*p4p8*p6p7+2*hbcm*p3p6*p4p7*p4p8-2*hbcm*p3p6*p4p8*
5001      . p5p7+3*hbcm*p3p7*p4p6*p4p8-hbcm*p3p7*p4p8*p5p6))+ans2
5002       ans=ccc*ans1
5003       b(31)=ans
5004       b(32)=8*ccc*p6p7*(-fb3*fmb+fb3*fmc+fb4*hbcm)
5005       do 200 n=1,32
5006          c(n,1)=c(n,1)+1d0*b(n)
5007 200   continue
5008       return
5009         end
5010
5011       subroutine amp34_1p1(cc)
5012       implicit double precision(a-h,o-z)
5013       implicit integer (i-n)
5014       dimension b(32)
5015 #include "inclcon.h"
5016 #include "inclppp.h"
5017 #include "inclamp.h"
5018       do 100 n=1,32
5019          b(n)=0.0d0
5020 100   continue
5021       ccc=cc/((2*p1p2)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*
5022      . p3p5+fmb2+hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2)
5023      . )
5024       b(1)=ccc*(4*p6p7*(-2*fb3*ffmcfmb*hbcm2+fb3*fmb2-fb3*fmc2+fb3*
5025      . hbcm2)+8*(2*fb3*p1p2*p6p7+fb3*p1p4*p6p7-fb3*p1p5*p6p7-2*fb3*
5026      . p2p3*p6p7-5*fb3*p2p4*p6p7+fb3*p2p5*p6p7-fb3*p3p4*p6p7+fb3*p3p5
5027      . *p6p7))
5028       b(2)=ccc*(w2*(2*(p6p7*p5p8)*(-2*ffmcfmb*hbcm3+fmb2*hbcm-fmc2*
5029      . hbcm+hbcm3)+4*(p6p7*p5p8*p2p3)*(2*ffmcfmb*hbcm-3*hbcm)+4*(p6p7
5030      . *p5p8*p1p3)*(-2*ffmcfmb*hbcm+hbcm)+4*(2*hbcm*p1p2*p5p8*p6p7-4*
5031      . hbcm*p2p4*p5p8*p6p7-hbcm*p3p4*p5p8*p6p7+hbcm*p3p5*p5p8*p6p7))+
5032      . w1*(2*(p6p7*p4p8)*(2*ffmcfmb*hbcm3-fmb2*hbcm+fmc2*hbcm-hbcm3)+
5033      . 4*(p6p7*p4p8*p2p3)*(-2*ffmcfmb*hbcm+3*hbcm)+4*(p6p7*p4p8*p1p3)
5034      . *(2*ffmcfmb*hbcm-hbcm)+4*(-2*hbcm*p1p2*p4p8*p6p7+4*hbcm*p2p4*
5035      . p4p8*p6p7+hbcm*p3p4*p4p8*p6p7-hbcm*p3p5*p4p8*p6p7))+(2*(p6p7*
5036      . p1p8)*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm-hbcm)+8*(p6p7*p5p8)*(-fb3
5037      . *fmb+fb3*fmc+fb4*hbcm)+2*(p6p7*p2p8)*(16*fb3*fmb-12*fb3*fmc+4*
5038      . fb4*ffmcfmb*hbcm-16*fb4*hbcm+hbcm)))
5039       b(9)=ccc*(2*(p6p7*p1p3)*(4*fb3*fmc-4*fb4*ffmcfmb*hbcm+4*fb4*
5040      . hbcm-hbcm)+8*(p6p7*p3p5)*(fb3*fmb-fb3*fmc)+2*(p6p7*p2p3)*(-16*
5041      . fb3*fmb+12*fb3*fmc+4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+hbcm)+4*p6p7*
5042      . (-2*fb3*ffmcfmb*fmb*hbcm2+2*fb3*ffmcfmb*fmc*hbcm2+2*fb3*fmb*
5043      . hbcm2-2*fb3*fmc*hbcm2+fb4*fmb2*hbcm-fb4*fmc2*hbcm-fb4*hbcm3)+8
5044      . *(2*fb4*hbcm*p1p2*p6p7-4*fb4*hbcm*p2p4*p6p7-fb4*hbcm*p3p4*p6p7
5045      . ))
5046       ans2=(8*(p6p7*p5p8)*(fb3*hbcm2-fb4*fmb*hbcm-fb4*fmc*hbcm)+16*(
5047      . p6p7*p4p8)*(fb3*ffmcfmb*hbcm2-fb3*hbcm2)+2*(p6p7*p2p8)*(-12*
5048      . fb3*ffmcfmb*hbcm2+16*fb4*fmb*hbcm+12*fb4*fmc*hbcm-3*hbcm2)+2*(
5049      . p6p7*p1p8)*(-4*fb3*ffmcfmb*hbcm2+4*fb4*fmc*hbcm+3*hbcm2)+16*(2
5050      . *fb3*p1p3*p2p8*p6p7+fb3*p1p3*p4p8*p6p7-fb3*p1p8*p3p4*p6p7+2*
5051      . fb3*p2p3*p2p8*p6p7-3*fb3*p2p3*p4p8*p6p7-3*fb3*p2p8*p3p4*p6p7+2
5052      . *fb3*p2p8*p3p5*p6p7+fb3*p3p4*p5p8*p6p7-fb3*p3p5*p4p8*p6p7))
5053       ans1=w2*(4*(p6p7*p5p8*p3p5)*(-fmb*hbcm-fmc*hbcm)+4*(p6p7*p5p8*
5054      . p2p3)*(-3*ffmcfmb*hbcm2-2*fmb*hbcm-3*fmc*hbcm+6*hbcm2)+4*(p6p7
5055      . *p5p8*p1p3)*(3*ffmcfmb*hbcm2+fmc*hbcm-2*hbcm2)+2*(p6p7*p5p8)*(
5056      . 2*ffmcfmb*fmb*hbcm3+2*ffmcfmb*fmc*hbcm3-2*fmb*hbcm3-fmb2*hbcm2
5057      . -2*fmc*hbcm3+fmc2*hbcm2+hbcm4)+4*(-2*hbcm2*p1p2*p5p8*p6p7+
5058      . hbcm2*p1p4*p5p8*p6p7-hbcm2*p1p5*p5p8*p6p7+3*hbcm2*p2p4*p5p8*
5059      . p6p7+hbcm2*p2p5*p5p8*p6p7+hbcm2*p3p4*p5p8*p6p7))+w1*(4*(p6p7*
5060      . p4p8*p3p5)*(fmb*hbcm+fmc*hbcm)+4*(p6p7*p4p8*p2p3)*(3*ffmcfmb*
5061      . hbcm2+2*fmb*hbcm+3*fmc*hbcm-6*hbcm2)+4*(p6p7*p4p8*p1p3)*(-3*
5062      . ffmcfmb*hbcm2-fmc*hbcm+2*hbcm2)+2*(p6p7*p4p8)*(-2*ffmcfmb*fmb*
5063      . hbcm3-2*ffmcfmb*fmc*hbcm3+2*fmb*hbcm3+fmb2*hbcm2+2*fmc*hbcm3-
5064      . fmc2*hbcm2-hbcm4)+4*(2*hbcm2*p1p2*p4p8*p6p7-hbcm2*p1p4*p4p8*
5065      . p6p7+hbcm2*p1p5*p4p8*p6p7-3*hbcm2*p2p4*p4p8*p6p7-hbcm2*p2p5*
5066      . p4p8*p6p7-hbcm2*p3p4*p4p8*p6p7))+ans2
5067       ans=ccc*ans1
5068       b(10)=ans
5069       b(27)=ccc*(8*p6p7*(2*fb3*ffmcfmb*hbcm2+fb3*hbcm2-3*fb4*fmb*hbcm
5070      . -3*fb4*fmc*hbcm)+16*(-fb3*p1p3*p6p7-fb3*p2p3*p6p7+3*fb3*p3p4*
5071      . p6p7-fb3*p3p5*p6p7))
5072       b(28)=ccc*(12*w2*(p6p7*p5p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+12*w1*(
5073      . p6p7*p4p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+16*(-fb3*p1p8*p6p7-fb3*
5074      . p2p8*p6p7+3*fb3*p4p8*p6p7-fb3*p5p8*p6p7))
5075       b(31)=ccc*(w2*(4*(p6p7*p5p8)*(2*ffmcfmb*hbcm3-3*fmb*hbcm2+3*fmc
5076      . *hbcm2+hbcm3)+8*(-hbcm*p1p3*p5p8*p6p7-hbcm*p2p3*p5p8*p6p7+3*
5077      . hbcm*p3p4*p5p8*p6p7-hbcm*p3p5*p5p8*p6p7))+w1*(4*(p6p7*p4p8)*(-
5078      . 2*ffmcfmb*hbcm3+3*fmb*hbcm2-3*fmc*hbcm2-hbcm3)+8*(hbcm*p1p3*
5079      . p4p8*p6p7+hbcm*p2p3*p4p8*p6p7-3*hbcm*p3p4*p4p8*p6p7+hbcm*p3p5*
5080      . p4p8*p6p7))+16*(-fb4*hbcm*p1p8*p6p7-fb4*hbcm*p2p8*p6p7+3*fb4*
5081      . hbcm*p4p8*p6p7-fb4*hbcm*p5p8*p6p7))
5082       b(32)=24*ccc*p6p7*(fb3*fmb-fb3*fmc-fb4*hbcm)
5083       do 200 n=1,32
5084          c(n,1)=c(n,1)-0.8181818181818182d0*b(n)
5085          c(n,2)=c(n,2)+0.9833321660356334d0*b(n)
5086 200   continue
5087       return
5088         end
5089
5090       subroutine amp33_1p1(cc)
5091       implicit double precision(a-h,o-z)
5092       implicit integer (i-n)
5093       dimension b(32)
5094 #include "inclcon.h"
5095 #include "inclppp.h"
5096 #include "inclamp.h"
5097       do 100 n=1,32
5098          b(n)=0.0d0
5099 100   continue
5100       ccc=cc/((ffmcfmb**2*hbcm2-2*ffmcfmb*p2p3+2*ffmcfmb*p3p4+fmc2-2*
5101      . p2p4)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2)*(ffmcfmb**2*hbcm2
5102      . -2*ffmcfmb*hbcm2+2*ffmcfmb*p1p3-fmb2+hbcm2-2*p1p3))
5103       b(1)=ccc*(8*p6p7*(fb3*ffmcfmb**2*hbcm2-2*fb3*ffmcfmb*hbcm2-fb3*
5104      . fmc2)+16*(fb3*ffmcfmb*p1p3*p6p7+2*fb3*ffmcfmb*p3p6*p3p7+4*fb3*
5105      . ffmcfmb*p3p7*p4p6+fb3*p1p2*p6p7+fb3*p1p4*p6p7-fb3*p2p3*p6p7-
5106      . fb3*p2p4*p6p7-fb3*p3p4*p6p7+2*fb3*p3p6*p4p7+4*fb3*p4p6*p4p7))
5107       ans2=w13*(16*(p4p7*p3p6*p1p8)*(ffmcfmb*hbcm-hbcm)+4*(p6p7*p1p8)
5108      . *(-ffmcfmb**2*hbcm3+2*ffmcfmb*hbcm3+fmc2*hbcm)+16*(p3p7*p3p6*
5109      . p1p8)*(ffmcfmb**2*hbcm-ffmcfmb*hbcm)+8*(-ffmcfmb*hbcm*p1p3*
5110      . p1p8*p6p7-2*ffmcfmb*hbcm*p1p8*p3p7*p4p6-hbcm*p1p2*p1p8*p6p7-
5111      . hbcm*p1p4*p1p8*p6p7+hbcm*p1p8*p2p3*p6p7+hbcm*p1p8*p2p4*p6p7+
5112      . hbcm*p1p8*p3p4*p6p7-2*hbcm*p1p8*p4p6*p4p7))+(8*(p7p8*p3p6)*(-
5113      . ffmcfmb*hbcm+hbcm)+8*(p6p7*p2p8)*(-4*fb3*fmc-4*fb4*ffmcfmb*
5114      . hbcm+hbcm)+4*(p6p8*p4p7)*(-8*fb3*fmb+12*fb3*fmc+4*fb4*ffmcfmb*
5115      . hbcm-3*hbcm)+4*(p6p8*p3p7)*(-8*fb3*ffmcfmb*fmb+8*fb3*ffmcfmb*
5116      . fmc+4*fb3*fmc+4*fb4*ffmcfmb*hbcm-2*ffmcfmb*hbcm-hbcm)+4*(hbcm*
5117      . p1p8*p6p7+2*hbcm*p4p6*p7p8))
5118       ans1=w1*(16*(p4p8*p4p7*p3p6)*(ffmcfmb*hbcm-hbcm)+4*(p6p7*p4p8)*
5119      . (-ffmcfmb**2*hbcm3+2*ffmcfmb*hbcm3+fmc2*hbcm)+16*(p4p8*p3p7*
5120      . p3p6)*(ffmcfmb**2*hbcm-ffmcfmb*hbcm)+8*(-ffmcfmb*hbcm*p1p3*
5121      . p4p8*p6p7-2*ffmcfmb*hbcm*p3p7*p4p6*p4p8-hbcm*p1p2*p4p8*p6p7-
5122      . hbcm*p1p4*p4p8*p6p7+hbcm*p2p3*p4p8*p6p7+hbcm*p2p4*p4p8*p6p7+
5123      . hbcm*p3p4*p4p8*p6p7-2*hbcm*p4p6*p4p7*p4p8))+w11*(16*(p4p8*p4p7
5124      . *p3p6)*(ffmcfmb*hbcm-hbcm)+16*(p4p7*p3p6*p2p8)*(-ffmcfmb*hbcm+
5125      . hbcm)+4*(p6p7*p4p8)*(-ffmcfmb**2*hbcm3+2*ffmcfmb*hbcm3+fmc2*
5126      . hbcm)+4*(p6p7*p2p8)*(ffmcfmb**2*hbcm3-2*ffmcfmb*hbcm3-fmc2*
5127      . hbcm)+16*(p4p8*p3p7*p3p6)*(ffmcfmb**2*hbcm-ffmcfmb*hbcm)+16*(
5128      . p3p7*p3p6*p2p8)*(-ffmcfmb**2*hbcm+ffmcfmb*hbcm)+8*(ffmcfmb*
5129      . hbcm*p1p3*p2p8*p6p7-ffmcfmb*hbcm*p1p3*p4p8*p6p7+2*ffmcfmb*hbcm
5130      . *p2p8*p3p7*p4p6-2*ffmcfmb*hbcm*p3p7*p4p6*p4p8+hbcm*p1p2*p2p8*
5131      . p6p7-hbcm*p1p2*p4p8*p6p7+hbcm*p1p4*p2p8*p6p7-hbcm*p1p4*p4p8*
5132      . p6p7-hbcm*p2p3*p2p8*p6p7+hbcm*p2p3*p4p8*p6p7-hbcm*p2p4*p2p8*
5133      . p6p7+hbcm*p2p4*p4p8*p6p7-hbcm*p2p8*p3p4*p6p7+2*hbcm*p2p8*p4p6*
5134      . p4p7+hbcm*p3p4*p4p8*p6p7-2*hbcm*p4p6*p4p7*p4p8))+ans2
5135       ans=ccc*ans1
5136       b(2)=ans
5137       ans=ccc*(w1*(4*(p4p8*p4p7)*(ffmcfmb*hbcm2-2*fmb*hbcm-3*fmc*hbcm
5138      . )+4*(p4p8*p3p7)*(-2*ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*hbcm+
5139      . ffmcfmb*hbcm2-fmc*hbcm))+w11*(4*(p4p8*p4p7)*(ffmcfmb*hbcm2-2*
5140      . fmb*hbcm-3*fmc*hbcm)+4*(p4p7*p2p8)*(-ffmcfmb*hbcm2+2*fmb*hbcm+
5141      . 3*fmc*hbcm)+4*(p4p8*p3p7)*(-2*ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*
5142      . hbcm+ffmcfmb*hbcm2-fmc*hbcm)+4*(p3p7*p2p8)*(2*ffmcfmb*fmb*hbcm
5143      . +2*ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2+fmc*hbcm))+w13*(4*(p4p7*p1p8
5144      . )*(ffmcfmb*hbcm2-2*fmb*hbcm-3*fmc*hbcm)+4*(p3p7*p1p8)*(-2*
5145      . ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-fmc*hbcm))+(
5146      . 4*p7p8*(2*fb3*ffmcfmb**2*hbcm2-4*fb3*ffmcfmb*hbcm2-2*fb3*fmc2+
5147      . fmb*hbcm+fmc*hbcm)+16*(fb3*ffmcfmb*p1p3*p7p8+2*fb3*ffmcfmb*
5148      . p1p8*p3p7-4*fb3*ffmcfmb*p3p7*p5p8+fb3*p1p4*p7p8+3*fb3*p1p8*
5149      . p4p7+fb3*p2p5*p7p8+fb3*p2p8*p3p7+fb3*p2p8*p5p7-fb3*p3p4*p7p8+
5150      . fb3*p3p7*p4p8-5*fb3*p4p7*p5p8+fb3*p4p8*p5p7)))
5151       b(3)=ans
5152       b(4)=ccc*(2*p4p7*(-4*fb3*ffmcfmb*hbcm2+24*fb3*hbcm2+8*fb4*fmb*
5153      . hbcm+12*fb4*fmc*hbcm-hbcm2)+2*p3p7*(-4*fb3*ffmcfmb**2*hbcm2+20
5154      . *fb3*ffmcfmb*hbcm2+4*fb3*fmc2+8*fb4*ffmcfmb*fmb*hbcm+8*fb4*
5155      . ffmcfmb*fmc*hbcm+4*fb4*fmc*hbcm-hbcm2)+16*(-fb3*ffmcfmb*hbcm2*
5156      . p5p7-3*fb3*ffmcfmb*p1p3*p3p7-4*fb3*ffmcfmb*p2p3*p3p7+4*fb3*
5157      . ffmcfmb*p3p5*p3p7-3*fb3*p1p3*p4p7-fb3*p1p4*p3p7-5*fb3*p2p3*
5158      . p4p7+2*fb3*p2p3*p5p7-fb3*p2p5*p3p7-fb3*p3p4*p5p7+5*fb3*p3p5*
5159      . p4p7))
5160       ans4=(4*(p5p8*p3p7)*(4*fb3*fmc+12*fb4*ffmcfmb*hbcm-hbcm)+4*(
5161      . p4p8*p3p7)*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm)+4*(
5162      . p7p8*p3p5)*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+3*hbcm)+4*(p7p8*p3p4
5163      . )*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+hbcm)+4*(p3p7*p2p8
5164      . )*(-4*fb3*fmc-12*fb4*ffmcfmb*hbcm+hbcm)+4*(p7p8*p2p3)*(4*fb3*
5165      . fmc+4*fb4*ffmcfmb*hbcm-3*hbcm)+16*(p3p7*p1p8)*(-fb3*fmc-fb4*
5166      . ffmcfmb*hbcm)+4*(p7p8*p1p3)*(4*fb3*fmc-hbcm)+4*p7p8*(-4*fb3*
5167      . fmc*hbcm2-2*fb4*ffmcfmb**2*hbcm3+2*fb4*fmc2*hbcm+ffmcfmb*hbcm3
5168      . +fmb*hbcm2+hbcm3)+16*(-fb4*hbcm*p1p4*p7p8-fb4*hbcm*p1p8*p4p7-
5169      . fb4*hbcm*p2p5*p7p8-3*fb4*hbcm*p2p8*p4p7+2*fb4*hbcm*p2p8*p5p7+3
5170      . *fb4*hbcm*p4p7*p5p8-fb4*hbcm*p4p8*p5p7))
5171       ans3=w13*(4*(p4p7*p1p8)*(-ffmcfmb*hbcm3-2*fmb*hbcm2+fmc*hbcm2-2
5172      . *hbcm3)+4*(p3p7*p1p8)*(-ffmcfmb**2*hbcm3-2*ffmcfmb*fmb*hbcm2-
5173      . ffmcfmb*hbcm3+fmc*hbcm2-fmc2*hbcm)+8*(ffmcfmb*hbcm*p1p3*p1p8*
5174      . p3p7+2*ffmcfmb*hbcm*p1p8*p2p3*p3p7-2*ffmcfmb*hbcm*p1p8*p3p5*
5175      . p3p7+ffmcfmb*hbcm3*p1p8*p5p7+hbcm*p1p3*p1p8*p4p7+hbcm*p1p4*
5176      . p1p8*p3p7+3*hbcm*p1p8*p2p3*p4p7-2*hbcm*p1p8*p2p3*p5p7+hbcm*
5177      . p1p8*p2p5*p3p7+hbcm*p1p8*p3p4*p5p7-3*hbcm*p1p8*p3p5*p4p7))+
5178      . ans4
5179       ans2=w11*(4*(p4p8*p4p7)*(-ffmcfmb*hbcm3-2*fmb*hbcm2+fmc*hbcm2-2
5180      . *hbcm3)+4*(p4p7*p2p8)*(ffmcfmb*hbcm3+2*fmb*hbcm2-fmc*hbcm2+2*
5181      . hbcm3)+4*(p4p8*p3p7)*(-ffmcfmb**2*hbcm3-2*ffmcfmb*fmb*hbcm2-
5182      . ffmcfmb*hbcm3+fmc*hbcm2-fmc2*hbcm)+4*(p3p7*p2p8)*(ffmcfmb**2*
5183      . hbcm3+2*ffmcfmb*fmb*hbcm2+ffmcfmb*hbcm3-fmc*hbcm2+fmc2*hbcm)+8
5184      . *(-ffmcfmb*hbcm*p1p3*p2p8*p3p7+ffmcfmb*hbcm*p1p3*p3p7*p4p8-2*
5185      . ffmcfmb*hbcm*p2p3*p2p8*p3p7+2*ffmcfmb*hbcm*p2p3*p3p7*p4p8+2*
5186      . ffmcfmb*hbcm*p2p8*p3p5*p3p7-2*ffmcfmb*hbcm*p3p5*p3p7*p4p8-
5187      . ffmcfmb*hbcm3*p2p8*p5p7+ffmcfmb*hbcm3*p4p8*p5p7-hbcm*p1p3*p2p8
5188      . *p4p7+hbcm*p1p3*p4p7*p4p8-hbcm*p1p4*p2p8*p3p7+hbcm*p1p4*p3p7*
5189      . p4p8-3*hbcm*p2p3*p2p8*p4p7+2*hbcm*p2p3*p2p8*p5p7+3*hbcm*p2p3*
5190      . p4p7*p4p8-2*hbcm*p2p3*p4p8*p5p7-hbcm*p2p5*p2p8*p3p7+hbcm*p2p5*
5191      . p3p7*p4p8-hbcm*p2p8*p3p4*p5p7+3*hbcm*p2p8*p3p5*p4p7+hbcm*p3p4*
5192      . p4p8*p5p7-3*hbcm*p3p5*p4p7*p4p8))+ans3
5193       ans1=w1*(4*(p4p8*p4p7)*(-ffmcfmb*hbcm3-2*fmb*hbcm2+fmc*hbcm2-2*
5194      . hbcm3)+4*(p4p8*p3p7)*(-ffmcfmb**2*hbcm3-2*ffmcfmb*fmb*hbcm2-
5195      . ffmcfmb*hbcm3+fmc*hbcm2-fmc2*hbcm)+8*(ffmcfmb*hbcm*p1p3*p3p7*
5196      . p4p8+2*ffmcfmb*hbcm*p2p3*p3p7*p4p8-2*ffmcfmb*hbcm*p3p5*p3p7*
5197      . p4p8+ffmcfmb*hbcm3*p4p8*p5p7+hbcm*p1p3*p4p7*p4p8+hbcm*p1p4*
5198      . p3p7*p4p8+3*hbcm*p2p3*p4p7*p4p8-2*hbcm*p2p3*p4p8*p5p7+hbcm*
5199      . p2p5*p3p7*p4p8+hbcm*p3p4*p4p8*p5p7-3*hbcm*p3p5*p4p7*p4p8))+
5200      . ans2
5201       ans=ccc*ans1
5202       b(5)=ans
5203       b(6)=ccc*(w1*(4*(p4p8*p4p6)*(-ffmcfmb*hbcm2+fmc*hbcm)+4*(p4p8*
5204      . p3p6)*(-ffmcfmb**2*hbcm2+ffmcfmb*fmc*hbcm))+w11*(4*(p4p8*p4p6)
5205      . *(-ffmcfmb*hbcm2+fmc*hbcm)+4*(p4p6*p2p8)*(ffmcfmb*hbcm2-fmc*
5206      . hbcm)+4*(p4p8*p3p6)*(-ffmcfmb**2*hbcm2+ffmcfmb*fmc*hbcm)+4*(
5207      . p3p6*p2p8)*(ffmcfmb**2*hbcm2-ffmcfmb*fmc*hbcm))+w13*(4*(p4p6*
5208      . p1p8)*(-ffmcfmb*hbcm2+fmc*hbcm)+4*(p3p6*p1p8)*(-ffmcfmb**2*
5209      . hbcm2+ffmcfmb*fmc*hbcm))+(2*p6p8*(-8*fb3*ffmcfmb*hbcm2+ffmcfmb
5210      . *hbcm2-fmc*hbcm)+16*(fb3*ffmcfmb*p1p3*p6p8-2*fb3*ffmcfmb*p2p8*
5211      . p3p6+fb3*p1p2*p6p8+fb3*p1p4*p6p8-fb3*p2p3*p6p8-3*fb3*p2p4*p6p8
5212      . -2*fb3*p2p8*p4p6-fb3*p3p4*p6p8)))
5213       b(7)=ccc*(16*(p3p6*p2p3)*(2*fb3*ffmcfmb+fb3)+2*p4p6*(-4*fb3*
5214      . ffmcfmb*hbcm2-4*fb4*fmc*hbcm+hbcm2)+2*p3p6*(-4*fb3*ffmcfmb**2*
5215      . hbcm2+8*fb3*ffmcfmb*hbcm2-4*fb4*ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2
5216      . )+16*(-fb3*ffmcfmb*p1p3*p3p6-fb3*p1p2*p3p6-fb3*p1p4*p3p6+2*fb3
5217      . *p2p3*p4p6+3*fb3*p2p4*p3p6+fb3*p3p4*p3p6))
5218       ans2=w13*(4*(p4p6*p1p8)*(ffmcfmb*hbcm3-fmc*hbcm2)+8*(p3p6*p2p3*
5219      . p1p8)*(-2*ffmcfmb*hbcm-hbcm)+4*(p3p6*p1p8)*(ffmcfmb**2*hbcm3-
5220      . ffmcfmb*fmc*hbcm2-2*ffmcfmb*hbcm3)+8*(ffmcfmb*hbcm*p1p3*p1p8*
5221      . p3p6+hbcm*p1p2*p1p8*p3p6+hbcm*p1p4*p1p8*p3p6-2*hbcm*p1p8*p2p3*
5222      . p4p6-3*hbcm*p1p8*p2p4*p3p6-hbcm*p1p8*p3p4*p3p6))+(4*(p4p8*p3p6
5223      . )*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+4*(p6p8*p3p4)*(-4*fb3*
5224      . fmc-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+hbcm)+8*(p3p6*p2p8)*(-4*fb3*
5225      . fmc+hbcm)+16*(p6p8*p2p3)*(2*fb3*fmc+2*fb4*ffmcfmb*hbcm+fb4*
5226      . hbcm)+2*p6p8*(-8*fb3*ffmcfmb*fmc*hbcm2-8*fb4*ffmcfmb**2*hbcm3+
5227      . 8*fb4*ffmcfmb*hbcm3+ffmcfmb*hbcm3+fmc*hbcm2)+4*(-4*fb4*ffmcfmb
5228      . *hbcm*p1p3*p6p8-4*fb4*hbcm*p1p2*p6p8-4*fb4*hbcm*p1p4*p6p8+12*
5229      . fb4*hbcm*p2p4*p6p8+8*fb4*hbcm*p2p8*p4p6-hbcm*p1p8*p3p6))
5230       ans1=w1*(4*(p4p8*p4p6)*(ffmcfmb*hbcm3-fmc*hbcm2)+8*(p4p8*p3p6*
5231      . p2p3)*(-2*ffmcfmb*hbcm-hbcm)+4*(p4p8*p3p6)*(ffmcfmb**2*hbcm3-
5232      . ffmcfmb*fmc*hbcm2-2*ffmcfmb*hbcm3)+8*(ffmcfmb*hbcm*p1p3*p3p6*
5233      . p4p8+hbcm*p1p2*p3p6*p4p8+hbcm*p1p4*p3p6*p4p8-2*hbcm*p2p3*p4p6*
5234      . p4p8-3*hbcm*p2p4*p3p6*p4p8-hbcm*p3p4*p3p6*p4p8))+w11*(4*(p4p8*
5235      . p4p6)*(ffmcfmb*hbcm3-fmc*hbcm2)+4*(p4p6*p2p8)*(-ffmcfmb*hbcm3+
5236      . fmc*hbcm2)+8*(p4p8*p3p6*p2p3)*(-2*ffmcfmb*hbcm-hbcm)+8*(p3p6*
5237      . p2p8*p2p3)*(2*ffmcfmb*hbcm+hbcm)+4*(p4p8*p3p6)*(ffmcfmb**2*
5238      . hbcm3-ffmcfmb*fmc*hbcm2-2*ffmcfmb*hbcm3)+4*(p3p6*p2p8)*(-
5239      . ffmcfmb**2*hbcm3+ffmcfmb*fmc*hbcm2+2*ffmcfmb*hbcm3)+8*(-
5240      . ffmcfmb*hbcm*p1p3*p2p8*p3p6+ffmcfmb*hbcm*p1p3*p3p6*p4p8-hbcm*
5241      . p1p2*p2p8*p3p6+hbcm*p1p2*p3p6*p4p8-hbcm*p1p4*p2p8*p3p6+hbcm*
5242      . p1p4*p3p6*p4p8+2*hbcm*p2p3*p2p8*p4p6-2*hbcm*p2p3*p4p6*p4p8+3*
5243      . hbcm*p2p4*p2p8*p3p6-3*hbcm*p2p4*p3p6*p4p8+hbcm*p2p8*p3p4*p3p6-
5244      . hbcm*p3p4*p3p6*p4p8))+ans2
5245       ans=ccc*ans1
5246       b(8)=ans
5247       b(9)=ccc*(8*p6p7*(fb4*ffmcfmb**2*hbcm3-2*fb4*ffmcfmb*hbcm3-fb4*
5248      . fmc2*hbcm)+8*(p6p7*p2p3)*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-2*fb4*
5249      . hbcm-hbcm)+4*(p4p7*p3p6)*(8*fb3*fmb-12*fb3*fmc-12*fb4*ffmcfmb*
5250      . hbcm+8*fb4*hbcm+hbcm)+4*(p3p7*p3p6)*(8*fb3*ffmcfmb*fmb-8*fb3*
5251      . ffmcfmb*fmc-4*fb3*fmc-8*fb4*ffmcfmb**2*hbcm+4*fb4*ffmcfmb*hbcm
5252      . +hbcm)+16*(fb4*ffmcfmb*hbcm*p1p3*p6p7+2*fb4*ffmcfmb*hbcm*p3p7*
5253      . p4p6+fb4*hbcm*p1p2*p6p7+fb4*hbcm*p1p4*p6p7-fb4*hbcm*p2p4*p6p7-
5254      . fb4*hbcm*p3p4*p6p7+2*fb4*hbcm*p4p6*p4p7))
5255       ans4=(4*(p7p8*p3p6)*(4*fb3*fmc2+4*fb4*ffmcfmb*fmc*hbcm+ffmcfmb*
5256      . hbcm2-2*fmb*hbcm-2*hbcm2)+4*(p6p8*p4p7)*(-12*fb3*ffmcfmb*hbcm2
5257      . +16*fb3*hbcm2-8*fb4*fmb*hbcm-4*fb4*fmc*hbcm+3*hbcm2)+4*(p7p8*
5258      . p4p6)*(4*fb3*ffmcfmb*hbcm2+4*fb4*fmc*hbcm-hbcm2)+8*(p6p7*p2p8)
5259      . *(-4*fb3*ffmcfmb*hbcm2+4*fb4*fmc*hbcm-hbcm2)+4*(p6p8*p3p7)*(-4
5260      . *fb3*ffmcfmb**2*hbcm2+12*fb3*ffmcfmb*hbcm2-4*fb3*fmc2-8*fb4*
5261      . ffmcfmb*fmb*hbcm-4*fb4*fmc*hbcm+ffmcfmb*hbcm2+fmc*hbcm+hbcm2)+
5262      . 4*(-16*fb3*ffmcfmb*p1p3*p3p7*p6p8+16*fb3*ffmcfmb*p1p8*p3p6*
5263      . p3p7-16*fb3*ffmcfmb*p2p3*p3p6*p7p8+48*fb3*ffmcfmb*p2p8*p3p6*
5264      . p3p7+16*fb3*ffmcfmb*p3p4*p3p7*p6p8-16*fb3*ffmcfmb*p3p6*p3p7*
5265      . p4p8-16*fb3*p1p3*p4p7*p6p8+16*fb3*p1p8*p3p6*p4p7+16*fb3*p2p3*
5266      . p3p7*p6p8-16*fb3*p2p3*p4p6*p7p8+16*fb3*p2p3*p4p7*p6p8-16*fb3*
5267      . p2p4*p3p6*p7p8+16*fb3*p2p4*p3p7*p6p8-16*fb3*p2p8*p3p4*p6p7+32*
5268      . fb3*p2p8*p3p6*p4p7+32*fb3*p2p8*p3p7*p4p6+16*fb3*p3p4*p4p7*p6p8
5269      . -16*fb3*p3p6*p4p7*p4p8-hbcm2*p1p8*p6p7))
5270       ans3=w13*(8*(p4p6*p3p7*p1p8)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p4p7*
5271      . p3p6*p1p8)*(-3*ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm+2*hbcm2)+4*(
5272      . p6p7*p1p8)*(ffmcfmb**2*hbcm4-2*ffmcfmb*hbcm4-fmc2*hbcm2)+8*(
5273      . p3p7*p3p6*p1p8)*(-ffmcfmb**2*hbcm2+2*ffmcfmb*fmb*hbcm-ffmcfmb*
5274      . fmc*hbcm+ffmcfmb*hbcm2+fmc*hbcm)+8*(ffmcfmb*hbcm2*p1p3*p1p8*
5275      . p6p7+hbcm2*p1p2*p1p8*p6p7+hbcm2*p1p4*p1p8*p6p7-hbcm2*p1p8*p2p3
5276      . *p6p7-hbcm2*p1p8*p2p4*p6p7-hbcm2*p1p8*p3p4*p6p7))+ans4
5277       ans2=w11*(8*(p4p8*p4p6*p3p7)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p4p8*
5278      . p4p7*p3p6)*(-3*ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm+2*hbcm2)+8*(
5279      . p4p6*p3p7*p2p8)*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(p4p7*p3p6*p2p8)*(
5280      . 3*ffmcfmb*hbcm2-2*fmb*hbcm-fmc*hbcm-2*hbcm2)+4*(p6p7*p4p8)*(
5281      . ffmcfmb**2*hbcm4-2*ffmcfmb*hbcm4-fmc2*hbcm2)+4*(p6p7*p2p8)*(-
5282      . ffmcfmb**2*hbcm4+2*ffmcfmb*hbcm4+fmc2*hbcm2)+8*(p4p8*p3p7*p3p6
5283      . )*(-ffmcfmb**2*hbcm2+2*ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm+
5284      . ffmcfmb*hbcm2+fmc*hbcm)+8*(p3p7*p3p6*p2p8)*(ffmcfmb**2*hbcm2-2
5285      . *ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2-fmc*hbcm)+8*(
5286      . -ffmcfmb*hbcm2*p1p3*p2p8*p6p7+ffmcfmb*hbcm2*p1p3*p4p8*p6p7-
5287      . hbcm2*p1p2*p2p8*p6p7+hbcm2*p1p2*p4p8*p6p7-hbcm2*p1p4*p2p8*p6p7
5288      . +hbcm2*p1p4*p4p8*p6p7+hbcm2*p2p3*p2p8*p6p7-hbcm2*p2p3*p4p8*
5289      . p6p7+hbcm2*p2p4*p2p8*p6p7-hbcm2*p2p4*p4p8*p6p7+hbcm2*p2p8*p3p4
5290      . *p6p7-hbcm2*p3p4*p4p8*p6p7))+ans3
5291       ans1=w1*(8*(p4p8*p4p6*p3p7)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p4p8*
5292      . p4p7*p3p6)*(-3*ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm+2*hbcm2)+4*(
5293      . p6p7*p4p8)*(ffmcfmb**2*hbcm4-2*ffmcfmb*hbcm4-fmc2*hbcm2)+8*(
5294      . p4p8*p3p7*p3p6)*(-ffmcfmb**2*hbcm2+2*ffmcfmb*fmb*hbcm-ffmcfmb*
5295      . fmc*hbcm+ffmcfmb*hbcm2+fmc*hbcm)+8*(ffmcfmb*hbcm2*p1p3*p4p8*
5296      . p6p7+hbcm2*p1p2*p4p8*p6p7+hbcm2*p1p4*p4p8*p6p7-hbcm2*p2p3*p4p8
5297      . *p6p7-hbcm2*p2p4*p4p8*p6p7-hbcm2*p3p4*p4p8*p6p7))+ans2
5298       ans=ccc*ans1
5299       b(10)=ans
5300       b(11)=ccc*(4*w1*(-ffmcfmb*hbcm*p1p3*p4p8+ffmcfmb*hbcm3*p4p8+2*
5301      . hbcm*p1p2*p4p8-hbcm*p1p4*p4p8-2*hbcm*p2p3*p4p8-3*hbcm*p2p5*
5302      . p4p8+hbcm*p3p4*p4p8)+4*w11*(ffmcfmb*hbcm*p1p3*p2p8-ffmcfmb*
5303      . hbcm*p1p3*p4p8-ffmcfmb*hbcm3*p2p8+ffmcfmb*hbcm3*p4p8-2*hbcm*
5304      . p1p2*p2p8+2*hbcm*p1p2*p4p8+hbcm*p1p4*p2p8-hbcm*p1p4*p4p8+2*
5305      . hbcm*p2p3*p2p8-2*hbcm*p2p3*p4p8+3*hbcm*p2p5*p2p8-3*hbcm*p2p5*
5306      . p4p8-hbcm*p2p8*p3p4+hbcm*p3p4*p4p8)+4*w13*(-ffmcfmb*hbcm*p1p3*
5307      . p1p8+ffmcfmb*hbcm3*p1p8+2*hbcm*p1p2*p1p8-hbcm*p1p4*p1p8-2*hbcm
5308      . *p1p8*p2p3-3*hbcm*p1p8*p2p5+hbcm*p1p8*p3p4)+(2*p4p8*(-4*fb3*
5309      . fmc-4*fb4*ffmcfmb*hbcm+hbcm)+4*p2p8*(4*fb3*fmc+4*fb4*ffmcfmb*
5310      . hbcm-hbcm)+2*hbcm*p1p8))
5311       b(12)=8*ccc*(fb3*ffmcfmb*hbcm2-fb3*ffmcfmb*p1p3+2*fb3*p1p2-fb3*
5312      . p1p4-2*fb3*p2p3-3*fb3*p2p5+fb3*p3p4)
5313       ans2=(2*p4p8*(4*fb3*ffmcfmb*hbcm2-8*fb3*hbcm2-4*fb4*fmc*hbcm+
5314      . hbcm2)+4*p2p8*(-8*fb3*ffmcfmb*hbcm2+8*fb3*hbcm2+4*fb4*fmc*hbcm
5315      . -hbcm2)+2*p1p8*(-8*fb3*ffmcfmb*hbcm2+hbcm2)+16*(fb3*ffmcfmb*
5316      . hbcm2*p5p8-2*fb3*p1p3*p2p8+fb3*p1p3*p4p8+2*fb3*p1p8*p2p3-fb3*
5317      . p1p8*p3p4+fb3*p2p3*p4p8-2*fb3*p2p3*p5p8-fb3*p2p8*p3p4+2*fb3*
5318      . p2p8*p3p5+fb3*p3p4*p5p8-fb3*p3p5*p4p8))
5319       ans1=w1*(4*(p4p8*p3p4)*(-ffmcfmb*hbcm2+fmc*hbcm+hbcm2)+8*(p4p8*
5320      . p2p3)*(ffmcfmb*hbcm2-fmc*hbcm-hbcm2)+4*p4p8*(-ffmcfmb**2*hbcm4
5321      . +ffmcfmb*fmc*hbcm3+ffmcfmb*hbcm4)+4*(-ffmcfmb*hbcm2*p1p3*p4p8+
5322      . 2*hbcm2*p1p2*p4p8-hbcm2*p1p4*p4p8-3*hbcm2*p2p5*p4p8))+w11*(4*(
5323      . p4p8*p3p4)*(-ffmcfmb*hbcm2+fmc*hbcm+hbcm2)+4*(p3p4*p2p8)*(
5324      . ffmcfmb*hbcm2-fmc*hbcm-hbcm2)+8*(p4p8*p2p3)*(ffmcfmb*hbcm2-fmc
5325      . *hbcm-hbcm2)+8*(p2p8*p2p3)*(-ffmcfmb*hbcm2+fmc*hbcm+hbcm2)+4*
5326      . p4p8*(-ffmcfmb**2*hbcm4+ffmcfmb*fmc*hbcm3+ffmcfmb*hbcm4)+4*
5327      . p2p8*(ffmcfmb**2*hbcm4-ffmcfmb*fmc*hbcm3-ffmcfmb*hbcm4)+4*(
5328      . ffmcfmb*hbcm2*p1p3*p2p8-ffmcfmb*hbcm2*p1p3*p4p8-2*hbcm2*p1p2*
5329      . p2p8+2*hbcm2*p1p2*p4p8+hbcm2*p1p4*p2p8-hbcm2*p1p4*p4p8+3*hbcm2
5330      . *p2p5*p2p8-3*hbcm2*p2p5*p4p8))+w13*(4*(p3p4*p1p8)*(-ffmcfmb*
5331      . hbcm2+fmc*hbcm+hbcm2)+8*(p2p3*p1p8)*(ffmcfmb*hbcm2-fmc*hbcm-
5332      . hbcm2)+4*p1p8*(-ffmcfmb**2*hbcm4+ffmcfmb*fmc*hbcm3+ffmcfmb*
5333      . hbcm4)+4*(-ffmcfmb*hbcm2*p1p3*p1p8+2*hbcm2*p1p2*p1p8-hbcm2*
5334      . p1p4*p1p8-3*hbcm2*p1p8*p2p5))+ans2
5335       ans=ccc*ans1
5336       b(13)=ans
5337       b(14)=ccc*(2*p3p4*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm
5338      . )+4*p2p3*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+hbcm)+2*(4*
5339      . fb3*ffmcfmb*fmc*hbcm2+4*fb4*ffmcfmb**2*hbcm3+4*fb4*ffmcfmb*
5340      . hbcm*p1p3-4*fb4*ffmcfmb*hbcm3-8*fb4*hbcm*p1p2+4*fb4*hbcm*p1p4+
5341      . 12*fb4*hbcm*p2p5-ffmcfmb*hbcm3))
5342       b(15)=ccc*(w1*(4*(p4p8*p3p6)*(-ffmcfmb*hbcm2-3*fmc*hbcm)-16*
5343      . hbcm2*p4p6*p4p8)+w11*(4*(p4p8*p3p6)*(-ffmcfmb*hbcm2-3*fmc*hbcm
5344      . )+4*(p3p6*p2p8)*(ffmcfmb*hbcm2+3*fmc*hbcm)+16*(hbcm2*p2p8*p4p6
5345      . -hbcm2*p4p6*p4p8))+w13*(4*(p3p6*p1p8)*(-ffmcfmb*hbcm2-3*fmc*
5346      . hbcm)-16*hbcm2*p1p8*p4p6)+(2*p6p8*(-20*fb3*ffmcfmb*hbcm2+12*
5347      . fb4*fmc*hbcm+hbcm2)+32*(fb3*p2p3*p6p8-fb3*p2p8*p3p6-2*fb3*p3p4
5348      . *p6p8+2*fb3*p3p6*p4p8)))
5349       b(16)=ccc*(16*w1*(ffmcfmb*hbcm*p3p6*p4p8+hbcm*p4p6*p4p8)+16*w11
5350      . *(-ffmcfmb*hbcm*p2p8*p3p6+ffmcfmb*hbcm*p3p6*p4p8-hbcm*p2p8*
5351      . p4p6+hbcm*p4p6*p4p8)+16*w13*(ffmcfmb*hbcm*p1p8*p3p6+hbcm*p1p8*
5352      . p4p6)+2*p6p8*(-12*fb3*fmc-12*fb4*ffmcfmb*hbcm-hbcm))
5353       b(17)=ccc*(w1*(2*p4p8*(-5*ffmcfmb*hbcm3-3*fmc*hbcm2+6*hbcm3)+4*
5354      . (-3*hbcm*p1p3*p4p8-hbcm*p2p3*p4p8-hbcm*p3p4*p4p8+3*hbcm*p3p5*
5355      . p4p8))+w11*(2*p4p8*(-5*ffmcfmb*hbcm3-3*fmc*hbcm2+6*hbcm3)+2*
5356      . p2p8*(5*ffmcfmb*hbcm3+3*fmc*hbcm2-6*hbcm3)+4*(3*hbcm*p1p3*p2p8
5357      . -3*hbcm*p1p3*p4p8+hbcm*p2p3*p2p8-hbcm*p2p3*p4p8+hbcm*p2p8*p3p4
5358      . -3*hbcm*p2p8*p3p5-hbcm*p3p4*p4p8+3*hbcm*p3p5*p4p8))+w13*(2*
5359      . p1p8*(-5*ffmcfmb*hbcm3-3*fmc*hbcm2+6*hbcm3)+4*(-3*hbcm*p1p3*
5360      . p1p8-hbcm*p1p8*p2p3-hbcm*p1p8*p3p4+3*hbcm*p1p8*p3p5))+8*(3*fb4
5361      . *hbcm*p1p8+fb4*hbcm*p2p8+fb4*hbcm*p4p8-3*fb4*hbcm*p5p8))
5362       b(18)=ccc*(w1*(4*(p4p8*p3p7)*(-2*ffmcfmb*hbcm2+2*fmc*hbcm+hbcm2
5363      . )+4*(-hbcm2*p4p7*p4p8+3*hbcm2*p4p8*p5p7))+w11*(4*(p4p8*p3p7)*(
5364      . -2*ffmcfmb*hbcm2+2*fmc*hbcm+hbcm2)+4*(p3p7*p2p8)*(2*ffmcfmb*
5365      . hbcm2-2*fmc*hbcm-hbcm2)+4*(hbcm2*p2p8*p4p7-3*hbcm2*p2p8*p5p7-
5366      . hbcm2*p4p7*p4p8+3*hbcm2*p4p8*p5p7))+w13*(4*(p3p7*p1p8)*(-2*
5367      . ffmcfmb*hbcm2+2*fmc*hbcm+hbcm2)+4*(-hbcm2*p1p8*p4p7+3*hbcm2*
5368      . p1p8*p5p7))+(4*p7p8*(4*fb3*ffmcfmb*hbcm2-4*fb3*hbcm2-4*fb4*fmc
5369      . *hbcm+hbcm2)+16*(fb3*p1p3*p7p8-fb3*p1p8*p3p7+fb3*p2p3*p7p8-fb3
5370      . *p2p8*p3p7+fb3*p3p4*p7p8-fb3*p3p5*p7p8-fb3*p3p7*p4p8+fb3*p3p7*
5371      . p5p8)))
5372       b(19)=ccc*(6*w1*p4p8*(-ffmcfmb*hbcm2+fmc*hbcm)+w11*(6*p4p8*(-
5373      . ffmcfmb*hbcm2+fmc*hbcm)+6*p2p8*(ffmcfmb*hbcm2-fmc*hbcm))+6*w13
5374      . *p1p8*(-ffmcfmb*hbcm2+fmc*hbcm)+8*(-3*fb3*p1p8-fb3*p2p8-fb3*
5375      . p4p8+3*fb3*p5p8))
5376       b(20)=ccc*(w1*(4*(p4p8*p3p7)*(-2*ffmcfmb*hbcm+hbcm)+12*(-hbcm*
5377      . p4p7*p4p8+hbcm*p4p8*p5p7))+w11*(4*(p4p8*p3p7)*(-2*ffmcfmb*hbcm
5378      . +hbcm)+4*(p3p7*p2p8)*(2*ffmcfmb*hbcm-hbcm)+12*(hbcm*p2p8*p4p7-
5379      . hbcm*p2p8*p5p7-hbcm*p4p7*p4p8+hbcm*p4p8*p5p7))+w13*(4*(p3p7*
5380      . p1p8)*(-2*ffmcfmb*hbcm+hbcm)+12*(-hbcm*p1p8*p4p7+hbcm*p1p8*
5381      . p5p7))+8*p7p8*(-2*fb3*fmc-2*fb4*ffmcfmb*hbcm+hbcm))
5382       b(21)=3*ccc*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)
5383       b(22)=ccc*(20*fb3*ffmcfmb*hbcm2-24*fb3*hbcm2+24*fb3*p1p3+8*fb3*
5384      . p2p3+8*fb3*p3p4-24*fb3*p3p5-12*fb4*fmc*hbcm+3*hbcm2)
5385       b(23)=ccc*(4*p3p7*(4*fb3*fmc+8*fb4*ffmcfmb*hbcm-2*fb4*hbcm-hbcm
5386      . )+24*(fb4*hbcm*p4p7-fb4*hbcm*p5p7))
5387       b(24)=ccc*(2*p3p6*(12*fb3*fmc-4*fb4*ffmcfmb*hbcm-3*hbcm)-32*fb4
5388      . *hbcm*p4p6)
5389       b(25)=ccc*(2*p4p7*(-8*fb3*fmb+20*fb3*fmc+12*fb4*ffmcfmb*hbcm-3*
5390      . hbcm)+2*p3p7*(-8*fb3*ffmcfmb*fmb+16*fb3*ffmcfmb*fmc+4*fb3*fmc+
5391      . 8*fb4*ffmcfmb**2*hbcm+4*fb4*ffmcfmb*hbcm-2*ffmcfmb*hbcm-hbcm))
5392       b(26)=ccc*(2*p4p6*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+2*p3p6*(
5393      . -4*fb3*ffmcfmb*fmc-4*fb4*ffmcfmb**2*hbcm+ffmcfmb*hbcm))
5394       b(27)=ccc*(32*(p3p7*p3p6)*(-2*fb3*ffmcfmb-fb3)+4*p6p7*(4*fb3*
5395      . ffmcfmb*hbcm2-4*fb4*fmc*hbcm+hbcm2)+32*(fb3*p3p4*p6p7-3*fb3*
5396      . p3p6*p4p7-fb3*p3p7*p4p6))
5397       b(28)=ccc*(8*w1*(p6p7*p4p8)*(ffmcfmb*hbcm2-fmc*hbcm)+w11*(8*(
5398      . p6p7*p4p8)*(ffmcfmb*hbcm2-fmc*hbcm)+8*(p6p7*p2p8)*(-ffmcfmb*
5399      . hbcm2+fmc*hbcm))+8*w13*(p6p7*p1p8)*(ffmcfmb*hbcm2-fmc*hbcm)+(
5400      . 32*(p6p8*p3p7)*(-fb3*ffmcfmb-fb3)+32*(-fb3*ffmcfmb*p3p6*p7p8-
5401      . fb3*p4p6*p7p8-3*fb3*p4p7*p6p8+fb3*p4p8*p6p7)))
5402       b(29)=32*ccc*(-fb3*ffmcfmb*p3p6-fb3*p4p6)
5403       b(30)=ccc*(8*p3p7*(4*fb3*ffmcfmb-fb3)+8*(5*fb3*p4p7-3*fb3*p5p7)
5404      . )
5405       ans=ccc*(w1*(8*(p6p7*p4p8)*(-ffmcfmb*hbcm3-fmc*hbcm2)+16*(p4p8*
5406      . p3p7*p3p6)*(ffmcfmb*hbcm+hbcm)+16*(-hbcm*p3p4*p4p8*p6p7+2*hbcm
5407      . *p3p6*p4p7*p4p8+hbcm*p3p7*p4p6*p4p8))+w11*(8*(p6p7*p4p8)*(-
5408      . ffmcfmb*hbcm3-fmc*hbcm2)+8*(p6p7*p2p8)*(ffmcfmb*hbcm3+fmc*
5409      . hbcm2)+16*(p4p8*p3p7*p3p6)*(ffmcfmb*hbcm+hbcm)+16*(p3p7*p3p6*
5410      . p2p8)*(-ffmcfmb*hbcm-hbcm)+16*(hbcm*p2p8*p3p4*p6p7-2*hbcm*p2p8
5411      . *p3p6*p4p7-hbcm*p2p8*p3p7*p4p6-hbcm*p3p4*p4p8*p6p7+2*hbcm*p3p6
5412      . *p4p7*p4p8+hbcm*p3p7*p4p6*p4p8))+w13*(8*(p6p7*p1p8)*(-ffmcfmb*
5413      . hbcm3-fmc*hbcm2)+16*(p3p7*p3p6*p1p8)*(ffmcfmb*hbcm+hbcm)+16*(-
5414      . hbcm*p1p8*p3p4*p6p7+2*hbcm*p1p8*p3p6*p4p7+hbcm*p1p8*p3p7*p4p6)
5415      . )+(32*(p6p8*p3p7)*(-fb3*fmc-fb4*ffmcfmb*hbcm-fb4*hbcm)+8*(p7p8
5416      . *p3p6)*(4*fb3*fmc-hbcm)+32*(-fb4*hbcm*p4p6*p7p8-2*fb4*hbcm*
5417      . p4p7*p6p8+fb4*hbcm*p4p8*p6p7)))
5418       b(31)=ans
5419       b(32)=4*ccc*p6p7*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)
5420       do 200 n=1,32
5421          c(n,1)=c(n,1)-0.1818181818181818d0*b(n)
5422          c(n,2)=c(n,2)-0.1512818716977898d0*b(n)
5423          c(n,3)=c(n,3)-0.1869893980016914d0*b(n)
5424 200   continue
5425       return
5426         end
5427
5428       subroutine amp32_1p1(cc)
5429       implicit double precision(a-h,o-z)
5430       implicit integer (i-n)
5431       dimension b(32)
5432 #include "inclcon.h"
5433 #include "inclppp.h"
5434 #include "inclamp.h"
5435       do 100 n=1,32
5436          b(n)=0.0d0
5437 100   continue
5438       ccc=cc/((ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*p3p5+fmb2+
5439      . hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3+2*ffmcfmb*p3p4+
5440      . fmc2-2*p1p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3-fmc2))
5441       b(1)=ccc*(32*(p4p6*p3p7)*(2*fb3*ffmcfmb-fb3)+16*(p5p7*p3p6)*(-
5442      . fb3*ffmcfmb-fb3)+16*(p4p7*p3p6)*(-fb3*ffmcfmb+2*fb3)+8*p6p7*(
5443      . fb3*ffmcfmb**2*hbcm2-2*fb3*ffmcfmb*hbcm2-fb3*fmc2)+16*(fb3*
5444      . ffmcfmb*p3p6*p3p7+fb3*p1p2*p6p7+fb3*p1p3*p6p7+fb3*p1p4*p6p7-
5445      . fb3*p2p3*p6p7-fb3*p2p4*p6p7-fb3*p3p4*p6p7+fb3*p3p7*p5p6+2*fb3*
5446      . p4p6*p4p7-3*fb3*p4p6*p5p7+fb3*p4p7*p5p6))
5447       ans3=w12*(8*(p4p6*p3p7*p1p8)*(2*ffmcfmb*hbcm-hbcm)+16*(p4p7*
5448      . p3p6*p1p8)*(-ffmcfmb*hbcm+hbcm)+4*(p6p7*p1p8)*(ffmcfmb**2*
5449      . hbcm3-2*ffmcfmb*hbcm3-fmc2*hbcm)+16*(p3p7*p3p6*p1p8)*(-ffmcfmb
5450      . **2*hbcm+ffmcfmb*hbcm)+8*(hbcm*p1p2*p1p8*p6p7+hbcm*p1p3*p1p8*
5451      . p6p7+hbcm*p1p4*p1p8*p6p7-hbcm*p1p8*p2p3*p6p7-hbcm*p1p8*p2p4*
5452      . p6p7-hbcm*p1p8*p3p4*p6p7-hbcm*p1p8*p3p6*p5p7+hbcm*p1p8*p3p7*
5453      . p5p6+hbcm*p1p8*p4p6*p4p7-2*hbcm*p1p8*p4p6*p5p7+hbcm*p1p8*p4p7*
5454      . p5p6))+(4*(p6p8*p5p7)*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm
5455      . -hbcm)+4*(p6p7*p4p8)*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-
5456      . hbcm)+4*(p6p8*p4p7)*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm-
5457      . hbcm)+4*(p7p8*p4p6)*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+
5458      . 3*hbcm)+4*(p6p7*p2p8)*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm
5459      . -hbcm)+4*(p6p7*p1p8)*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm
5460      . +hbcm)+4*(p6p8*p3p7)*(-8*fb3*ffmcfmb*fmb+4*fb3*fmb-8*fb4*
5461      . ffmcfmb**2*hbcm+12*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm)+4*(p7p8*
5462      . p3p6)*(-4*fb3*ffmcfmb*fmb-4*fb4*ffmcfmb**2*hbcm+4*fb4*ffmcfmb*
5463      . hbcm-ffmcfmb*hbcm+2*hbcm))
5464       ans2=w5*(8*(p4p8*p4p6*p3p7)*(-2*ffmcfmb*hbcm+hbcm)+16*(p4p8*
5465      . p4p7*p3p6)*(ffmcfmb*hbcm-hbcm)+8*(p4p6*p3p7*p1p8)*(2*ffmcfmb*
5466      . hbcm-hbcm)+16*(p4p7*p3p6*p1p8)*(-ffmcfmb*hbcm+hbcm)+4*(p6p7*
5467      . p4p8)*(-ffmcfmb**2*hbcm3+2*ffmcfmb*hbcm3+fmc2*hbcm)+4*(p6p7*
5468      . p1p8)*(ffmcfmb**2*hbcm3-2*ffmcfmb*hbcm3-fmc2*hbcm)+16*(p4p8*
5469      . p3p7*p3p6)*(ffmcfmb**2*hbcm-ffmcfmb*hbcm)+16*(p3p7*p3p6*p1p8)*
5470      . (-ffmcfmb**2*hbcm+ffmcfmb*hbcm)+8*(hbcm*p1p2*p1p8*p6p7-hbcm*
5471      . p1p2*p4p8*p6p7+hbcm*p1p3*p1p8*p6p7-hbcm*p1p3*p4p8*p6p7+hbcm*
5472      . p1p4*p1p8*p6p7-hbcm*p1p4*p4p8*p6p7-hbcm*p1p8*p2p3*p6p7-hbcm*
5473      . p1p8*p2p4*p6p7-hbcm*p1p8*p3p4*p6p7-hbcm*p1p8*p3p6*p5p7+hbcm*
5474      . p1p8*p3p7*p5p6+hbcm*p1p8*p4p6*p4p7-2*hbcm*p1p8*p4p6*p5p7+hbcm*
5475      . p1p8*p4p7*p5p6+hbcm*p2p3*p4p8*p6p7+hbcm*p2p4*p4p8*p6p7+hbcm*
5476      . p3p4*p4p8*p6p7+hbcm*p3p6*p4p8*p5p7-hbcm*p3p7*p4p8*p5p6-hbcm*
5477      . p4p6*p4p7*p4p8+2*hbcm*p4p6*p4p8*p5p7-hbcm*p4p7*p4p8*p5p6))+
5478      . ans3
5479       ans1=w2*(8*(p5p8*p4p6*p3p7)*(2*ffmcfmb*hbcm-hbcm)+16*(p5p8*p4p7
5480      . *p3p6)*(-ffmcfmb*hbcm+hbcm)+4*(p6p7*p5p8)*(ffmcfmb**2*hbcm3-2*
5481      . ffmcfmb*hbcm3-fmc2*hbcm)+16*(p5p8*p3p7*p3p6)*(-ffmcfmb**2*hbcm
5482      . +ffmcfmb*hbcm)+8*(hbcm*p1p2*p5p8*p6p7+hbcm*p1p3*p5p8*p6p7+hbcm
5483      . *p1p4*p5p8*p6p7-hbcm*p2p3*p5p8*p6p7-hbcm*p2p4*p5p8*p6p7-hbcm*
5484      . p3p4*p5p8*p6p7-hbcm*p3p6*p5p7*p5p8+hbcm*p3p7*p5p6*p5p8+hbcm*
5485      . p4p6*p4p7*p5p8-2*hbcm*p4p6*p5p7*p5p8+hbcm*p4p7*p5p6*p5p8))+
5486      . ans2
5487       ans=ccc*ans1
5488       b(2)=ans
5489       ans2=(32*(p5p8*p3p7)*(-2*fb3*ffmcfmb+fb3)+32*(p3p7*p1p8)*(fb3*
5490      . ffmcfmb-fb3)+4*p7p8*(2*fb3*ffmcfmb**2*hbcm2-4*fb3*ffmcfmb*
5491      . hbcm2-2*fb3*fmc2+fmb*hbcm+fmc*hbcm)+16*(fb3*p1p3*p7p8+fb3*p1p4
5492      . *p7p8+fb3*p1p8*p4p7-2*fb3*p1p8*p5p7+fb3*p2p5*p7p8+fb3*p2p8*
5493      . p3p7+fb3*p2p8*p5p7-fb3*p3p4*p7p8+fb3*p3p7*p4p8-3*fb3*p4p7*p5p8
5494      . +fb3*p4p8*p5p7+2*fb3*p5p7*p5p8))
5495       ans1=w2*(4*(p5p8*p5p7)*(-fmb*hbcm-fmc*hbcm)+4*(p5p8*p4p7)*(
5496      . ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm-hbcm2)+4*(p5p8*p3p7)*(2*
5497      . ffmcfmb*fmb*hbcm+2*ffmcfmb*fmc*hbcm-fmb*hbcm-fmc*hbcm))+w5*(4*
5498      . (p5p7*p4p8)*(fmb*hbcm+fmc*hbcm)+4*(p5p7*p1p8)*(-fmb*hbcm-fmc*
5499      . hbcm)+4*(p4p8*p4p7)*(-ffmcfmb*hbcm2-2*fmb*hbcm-fmc*hbcm+hbcm2)
5500      . +4*(p4p7*p1p8)*(ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm-hbcm2)+4*(
5501      . p4p8*p3p7)*(-2*ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*hbcm+fmb*hbcm+
5502      . fmc*hbcm)+4*(p3p7*p1p8)*(2*ffmcfmb*fmb*hbcm+2*ffmcfmb*fmc*hbcm
5503      . -fmb*hbcm-fmc*hbcm))+w12*(4*(p5p7*p1p8)*(-fmb*hbcm-fmc*hbcm)+4
5504      . *(p4p7*p1p8)*(ffmcfmb*hbcm2+2*fmb*hbcm+fmc*hbcm-hbcm2)+4*(p3p7
5505      . *p1p8)*(2*ffmcfmb*fmb*hbcm+2*ffmcfmb*fmc*hbcm-fmb*hbcm-fmc*
5506      . hbcm))+ans2
5507       ans=ccc*ans1
5508       b(3)=ans
5509       b(4)=ccc*(32*(p3p7*p3p5)*(2*fb3*ffmcfmb-fb3)+32*(p3p7*p2p3)*(-2
5510      . *fb3*ffmcfmb+fb3)+16*(p3p7*p1p3)*(-2*fb3*ffmcfmb+fb3)+8*p5p7*(
5511      . -2*fb3*ffmcfmb*hbcm2-2*fb3*hbcm2-fb4*fmb*hbcm-fb4*fmc*hbcm)+2*
5512      . p4p7*(-4*fb3*ffmcfmb*hbcm2+12*fb3*hbcm2+8*fb4*fmb*hbcm+4*fb4*
5513      . fmc*hbcm+hbcm2)+8*p3p7*(-fb3*ffmcfmb**2*hbcm2+4*fb3*ffmcfmb*
5514      . hbcm2+fb3*fmc2-2*fb3*hbcm2+2*fb4*ffmcfmb*fmb*hbcm+2*fb4*
5515      . ffmcfmb*fmc*hbcm-fb4*fmb*hbcm-fb4*fmc*hbcm)+16*(-fb3*p1p3*p4p7
5516      . +2*fb3*p1p3*p5p7-fb3*p1p4*p3p7-3*fb3*p2p3*p4p7+4*fb3*p2p3*p5p7
5517      . -fb3*p2p5*p3p7-fb3*p3p4*p5p7+3*fb3*p3p5*p4p7-2*fb3*p3p5*p5p7))
5518       ans4=(16*(p5p8*p3p7)*(2*fb4*ffmcfmb*hbcm-fb4*hbcm)+16*(p3p7*
5519      . p2p8)*(-2*fb4*ffmcfmb*hbcm+fb4*hbcm)+4*(p4p8*p3p7)*(-4*fb3*fmb
5520      . -4*fb4*ffmcfmb*hbcm+hbcm)+4*(p7p8*p3p4)*(4*fb3*fmb+4*fb4*
5521      . ffmcfmb*hbcm-hbcm)+4*(p3p7*p1p8)*(4*fb3*fmb-4*fb4*ffmcfmb*hbcm
5522      . +4*fb4*hbcm-hbcm)+4*(p7p8*p1p3)*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm
5523      . -hbcm)+4*p7p8*(4*fb3*ffmcfmb*fmb*hbcm2+2*fb4*ffmcfmb**2*hbcm3+
5524      . 2*fb4*fmc2*hbcm-fmc*hbcm2+hbcm3)+8*(-2*fb4*hbcm*p1p4*p7p8-2*
5525      . fb4*hbcm*p1p8*p4p7+4*fb4*hbcm*p1p8*p5p7-2*fb4*hbcm*p2p5*p7p8-4
5526      . *fb4*hbcm*p2p8*p4p7+6*fb4*hbcm*p2p8*p5p7+4*fb4*hbcm*p4p7*p5p8-
5527      . 2*fb4*hbcm*p4p8*p5p7-2*fb4*hbcm*p5p7*p5p8-hbcm*p2p3*p7p8+hbcm*
5528      . p3p5*p7p8))
5529       ans3=w12*(4*(p4p7*p1p8)*(fmb*hbcm2-fmc*hbcm2+2*hbcm3)+4*(p5p7*
5530      . p1p8)*(-3*ffmcfmb*hbcm3+fmc*hbcm2-hbcm3)+8*(p3p7*p3p5*p1p8)*(2
5531      . *ffmcfmb*hbcm-hbcm)+8*(p3p7*p2p3*p1p8)*(-2*ffmcfmb*hbcm+hbcm)+
5532      . 8*(p3p7*p1p8*p1p3)*(-2*ffmcfmb*hbcm+hbcm)+4*(p3p7*p1p8)*(
5533      . ffmcfmb**2*hbcm3-2*ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3+fmc*hbcm2+
5534      . fmc2*hbcm-hbcm3)+8*(-hbcm*p1p3*p1p8*p4p7+2*hbcm*p1p3*p1p8*p5p7
5535      . -hbcm*p1p4*p1p8*p3p7-2*hbcm*p1p8*p2p3*p4p7+3*hbcm*p1p8*p2p3*
5536      . p5p7-hbcm*p1p8*p2p5*p3p7-hbcm*p1p8*p3p4*p5p7+2*hbcm*p1p8*p3p5*
5537      . p4p7-hbcm*p1p8*p3p5*p5p7))+ans4
5538       ans2=w5*(4*(p4p8*p4p7)*(-fmb*hbcm2+fmc*hbcm2-2*hbcm3)+4*(p4p7*
5539      . p1p8)*(fmb*hbcm2-fmc*hbcm2+2*hbcm3)+4*(p5p7*p4p8)*(3*ffmcfmb*
5540      . hbcm3-fmc*hbcm2+hbcm3)+4*(p5p7*p1p8)*(-3*ffmcfmb*hbcm3+fmc*
5541      . hbcm2-hbcm3)+8*(p4p8*p3p7*p3p5)*(-2*ffmcfmb*hbcm+hbcm)+8*(p4p8
5542      . *p3p7*p2p3)*(2*ffmcfmb*hbcm-hbcm)+8*(p3p7*p3p5*p1p8)*(2*
5543      . ffmcfmb*hbcm-hbcm)+8*(p3p7*p2p3*p1p8)*(-2*ffmcfmb*hbcm+hbcm)+8
5544      . *(p4p8*p3p7*p1p3)*(2*ffmcfmb*hbcm-hbcm)+8*(p3p7*p1p8*p1p3)*(-2
5545      . *ffmcfmb*hbcm+hbcm)+4*(p4p8*p3p7)*(-ffmcfmb**2*hbcm3+2*ffmcfmb
5546      . *fmc*hbcm2-ffmcfmb*hbcm3-fmc*hbcm2-fmc2*hbcm+hbcm3)+4*(p3p7*
5547      . p1p8)*(ffmcfmb**2*hbcm3-2*ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3+fmc*
5548      . hbcm2+fmc2*hbcm-hbcm3)+8*(-hbcm*p1p3*p1p8*p4p7+2*hbcm*p1p3*
5549      . p1p8*p5p7+hbcm*p1p3*p4p7*p4p8-2*hbcm*p1p3*p4p8*p5p7-hbcm*p1p4*
5550      . p1p8*p3p7+hbcm*p1p4*p3p7*p4p8-2*hbcm*p1p8*p2p3*p4p7+3*hbcm*
5551      . p1p8*p2p3*p5p7-hbcm*p1p8*p2p5*p3p7-hbcm*p1p8*p3p4*p5p7+2*hbcm*
5552      . p1p8*p3p5*p4p7-hbcm*p1p8*p3p5*p5p7+2*hbcm*p2p3*p4p7*p4p8-3*
5553      . hbcm*p2p3*p4p8*p5p7+hbcm*p2p5*p3p7*p4p8+hbcm*p3p4*p4p8*p5p7-2*
5554      . hbcm*p3p5*p4p7*p4p8+hbcm*p3p5*p4p8*p5p7))+ans3
5555       ans1=w2*(4*(p5p8*p4p7)*(fmb*hbcm2-fmc*hbcm2+2*hbcm3)+4*(p5p8*
5556      . p5p7)*(-3*ffmcfmb*hbcm3+fmc*hbcm2-hbcm3)+8*(p5p8*p3p7*p3p5)*(2
5557      . *ffmcfmb*hbcm-hbcm)+8*(p5p8*p3p7*p2p3)*(-2*ffmcfmb*hbcm+hbcm)+
5558      . 8*(p5p8*p3p7*p1p3)*(-2*ffmcfmb*hbcm+hbcm)+4*(p5p8*p3p7)*(
5559      . ffmcfmb**2*hbcm3-2*ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3+fmc*hbcm2+
5560      . fmc2*hbcm-hbcm3)+8*(-hbcm*p1p3*p4p7*p5p8+2*hbcm*p1p3*p5p7*p5p8
5561      . -hbcm*p1p4*p3p7*p5p8-2*hbcm*p2p3*p4p7*p5p8+3*hbcm*p2p3*p5p7*
5562      . p5p8-hbcm*p2p5*p3p7*p5p8-hbcm*p3p4*p5p7*p5p8+2*hbcm*p3p5*p4p7*
5563      . p5p8-hbcm*p3p5*p5p7*p5p8))+ans2
5564       ans=ccc*ans1
5565       b(5)=ans
5566       ans=ccc*(w2*(4*(p5p8*p5p6)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+4*(
5567      . p5p8*p3p6)*(-ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm+2*ffmcfmb*hbcm2
5568      . +fmb*hbcm-hbcm2))+w5*(4*(p5p6*p4p8)*(-ffmcfmb*hbcm2-fmb*hbcm+
5569      . hbcm2)+4*(p5p6*p1p8)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+4*(p4p8*
5570      . p3p6)*(ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm-2*ffmcfmb*hbcm2-fmb*
5571      . hbcm+hbcm2)+4*(p3p6*p1p8)*(-ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm+
5572      . 2*ffmcfmb*hbcm2+fmb*hbcm-hbcm2))+w12*(4*(p5p6*p1p8)*(ffmcfmb*
5573      . hbcm2+fmb*hbcm-hbcm2)+4*(p3p6*p1p8)*(-ffmcfmb**2*hbcm2-ffmcfmb
5574      . *fmb*hbcm+2*ffmcfmb*hbcm2+fmb*hbcm-hbcm2))+(2*p6p8*(-ffmcfmb*
5575      . hbcm2-fmb*hbcm+hbcm2)+16*(p4p8*p3p6)*(-fb3*ffmcfmb+fb3)+16*(
5576      . p3p6*p1p8)*(fb3*ffmcfmb-fb3)+16*(-fb3*ffmcfmb*p2p8*p3p6-fb3*
5577      . ffmcfmb*p3p6*p5p8-fb3*p1p8*p5p6-fb3*p2p8*p4p6-fb3*p4p6*p5p8+
5578      . fb3*p4p8*p5p6)))
5579       b(6)=ans
5580       b(7)=ccc*(16*(p3p6*p3p4)*(fb3*ffmcfmb-fb3)+16*(p3p6*p1p3)*(-fb3
5581      . *ffmcfmb+fb3)+2*p5p6*(-4*fb3*ffmcfmb*hbcm2-4*fb3*hbcm2+4*fb4*
5582      . fmb*hbcm+hbcm2)+16*p4p6*(-fb3*ffmcfmb*hbcm2+fb3*hbcm2)+2*p3p6*
5583      . (-4*fb3*ffmcfmb**2*hbcm2+8*fb3*ffmcfmb*hbcm2-4*fb3*hbcm2-4*fb4
5584      . *ffmcfmb*fmb*hbcm+4*fb4*fmb*hbcm-ffmcfmb*hbcm2+hbcm2)+16*(fb3*
5585      . ffmcfmb*p2p3*p3p6+fb3*ffmcfmb*p3p5*p3p6+fb3*p1p3*p5p6+fb3*p2p3
5586      . *p4p6-fb3*p3p4*p5p6+fb3*p3p5*p4p6))
5587       ans3=w12*(4*(p5p6*p1p8)*(-ffmcfmb*hbcm3+fmb*hbcm2-hbcm3)+8*(
5588      . p4p6*p1p8)*(-ffmcfmb*hbcm3+hbcm3)+8*(p3p6*p3p4*p1p8)*(ffmcfmb*
5589      . hbcm-hbcm)+8*(p3p6*p1p8*p1p3)*(-ffmcfmb*hbcm+hbcm)+4*(p3p6*
5590      . p1p8)*(-ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+2*ffmcfmb*hbcm3+fmb
5591      . *hbcm2-hbcm3)+8*(ffmcfmb*hbcm*p1p8*p2p3*p3p6+ffmcfmb*hbcm*p1p8
5592      . *p3p5*p3p6+hbcm*p1p3*p1p8*p5p6+hbcm*p1p8*p2p3*p4p6-hbcm*p1p8*
5593      . p3p4*p5p6+hbcm*p1p8*p3p5*p4p6))+(2*p6p8*(-ffmcfmb*hbcm3-fmb*
5594      . hbcm2+3*hbcm3)+16*(p4p8*p3p6)*(fb4*ffmcfmb*hbcm-fb4*hbcm)+16*(
5595      . p3p6*p1p8)*(-fb4*ffmcfmb*hbcm+fb4*hbcm)+4*(4*fb4*ffmcfmb*hbcm*
5596      . p2p8*p3p6+4*fb4*ffmcfmb*hbcm*p3p6*p5p8+4*fb4*hbcm*p1p8*p5p6+4*
5597      . fb4*hbcm*p2p8*p4p6+4*fb4*hbcm*p4p6*p5p8-4*fb4*hbcm*p4p8*p5p6-
5598      . hbcm*p1p3*p6p8+hbcm*p2p3*p6p8+hbcm*p3p4*p6p8+hbcm*p3p5*p6p8))
5599       ans2=w5*(4*(p5p6*p4p8)*(ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+8*(p4p8*
5600      . p4p6)*(ffmcfmb*hbcm3-hbcm3)+4*(p5p6*p1p8)*(-ffmcfmb*hbcm3+fmb*
5601      . hbcm2-hbcm3)+8*(p4p6*p1p8)*(-ffmcfmb*hbcm3+hbcm3)+8*(p4p8*p3p6
5602      . *p3p4)*(-ffmcfmb*hbcm+hbcm)+8*(p3p6*p3p4*p1p8)*(ffmcfmb*hbcm-
5603      . hbcm)+8*(p4p8*p3p6*p1p3)*(ffmcfmb*hbcm-hbcm)+8*(p3p6*p1p8*p1p3
5604      . )*(-ffmcfmb*hbcm+hbcm)+4*(p4p8*p3p6)*(ffmcfmb**2*hbcm3+ffmcfmb
5605      . *fmb*hbcm2-2*ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+4*(p3p6*p1p8)*(-
5606      . ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+2*ffmcfmb*hbcm3+fmb*hbcm2-
5607      . hbcm3)+8*(ffmcfmb*hbcm*p1p8*p2p3*p3p6+ffmcfmb*hbcm*p1p8*p3p5*
5608      . p3p6-ffmcfmb*hbcm*p2p3*p3p6*p4p8-ffmcfmb*hbcm*p3p5*p3p6*p4p8+
5609      . hbcm*p1p3*p1p8*p5p6-hbcm*p1p3*p4p8*p5p6+hbcm*p1p8*p2p3*p4p6-
5610      . hbcm*p1p8*p3p4*p5p6+hbcm*p1p8*p3p5*p4p6-hbcm*p2p3*p4p6*p4p8+
5611      . hbcm*p3p4*p4p8*p5p6-hbcm*p3p5*p4p6*p4p8))+ans3
5612       ans1=w2*(4*(p5p8*p5p6)*(-ffmcfmb*hbcm3+fmb*hbcm2-hbcm3)+8*(p5p8
5613      . *p4p6)*(-ffmcfmb*hbcm3+hbcm3)+8*(p5p8*p3p6*p3p4)*(ffmcfmb*hbcm
5614      . -hbcm)+8*(p5p8*p3p6*p1p3)*(-ffmcfmb*hbcm+hbcm)+4*(p5p8*p3p6)*(
5615      . -ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2+2*ffmcfmb*hbcm3+fmb*hbcm2-
5616      . hbcm3)+8*(ffmcfmb*hbcm*p2p3*p3p6*p5p8+ffmcfmb*hbcm*p3p5*p3p6*
5617      . p5p8+hbcm*p1p3*p5p6*p5p8+hbcm*p2p3*p4p6*p5p8-hbcm*p3p4*p5p6*
5618      . p5p8+hbcm*p3p5*p4p6*p5p8))+ans2
5619       ans=ccc*ans1
5620       b(8)=ans
5621       b(9)=ccc*(4*(p4p6*p3p7)*(4*fb3*fmb+12*fb4*ffmcfmb*hbcm-8*fb4*
5622      . hbcm-hbcm)+4*(p5p7*p3p6)*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+hbcm)+
5623      . 4*(p4p7*p3p6)*(4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm-hbcm)+4
5624      . *(p6p7*p3p4)*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+hbcm)+4*(p6p7*p2p3
5625      . )*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+hbcm)+4*(p6p7*p1p3)*(4*fb3*
5626      . fmb+4*fb4*ffmcfmb*hbcm-hbcm)+4*(p3p7*p3p6)*(12*fb3*ffmcfmb*fmb
5627      . -4*fb3*fmb+4*fb4*ffmcfmb**2*hbcm-8*fb4*ffmcfmb*hbcm+4*fb4*hbcm
5628      . -3*ffmcfmb*hbcm+hbcm)+4*p6p7*(-4*fb3*ffmcfmb*fmb*hbcm2-2*fb4*
5629      . ffmcfmb**2*hbcm3-2*fb4*fmc2*hbcm+ffmcfmb*hbcm3)+16*(fb4*hbcm*
5630      . p1p2*p6p7+fb4*hbcm*p1p4*p6p7-fb4*hbcm*p2p4*p6p7+fb4*hbcm*p3p7*
5631      . p5p6+fb4*hbcm*p4p6*p4p7-2*fb4*hbcm*p4p6*p5p7+fb4*hbcm*p4p7*
5632      . p5p6))
5633       ans4=8*(fmb*hbcm*p1p8*p3p6*p5p7-fmb*hbcm*p3p6*p4p8*p5p7-hbcm2*
5634      . p1p2*p1p8*p6p7+hbcm2*p1p2*p4p8*p6p7-hbcm2*p1p4*p1p8*p6p7+hbcm2
5635      . *p1p4*p4p8*p6p7+hbcm2*p1p8*p2p3*p6p7+hbcm2*p1p8*p2p4*p6p7+
5636      . hbcm2*p1p8*p4p6*p5p7-hbcm2*p1p8*p4p7*p5p6-hbcm2*p2p3*p4p8*p6p7
5637      . -hbcm2*p2p4*p4p8*p6p7-hbcm2*p4p6*p4p8*p5p7+hbcm2*p4p7*p4p8*
5638      . p5p6)
5639       ans3=8*(p5p6*p4p8*p3p7)*(ffmcfmb*hbcm2+fmb*hbcm)+8*(p4p8*p4p6*
5640      . p3p7)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*(p4p8*p4p7*p3p6)*(-2*
5641      . ffmcfmb*hbcm2+fmb*hbcm+hbcm2)+8*(p6p7*p4p8*p3p4)*(-ffmcfmb*
5642      . hbcm2-fmb*hbcm)+8*(p5p6*p3p7*p1p8)*(-ffmcfmb*hbcm2-fmb*hbcm)+8
5643      . *(p4p6*p3p7*p1p8)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(p4p7*p3p6
5644      . *p1p8)*(2*ffmcfmb*hbcm2-fmb*hbcm-hbcm2)+8*(p6p7*p3p4*p1p8)*(
5645      . ffmcfmb*hbcm2+fmb*hbcm)+8*(p6p7*p4p8*p1p3)*(ffmcfmb*hbcm2+fmb*
5646      . hbcm)+8*(p6p7*p1p8*p1p3)*(-ffmcfmb*hbcm2-fmb*hbcm)+4*(p6p7*
5647      . p4p8)*(-ffmcfmb**2*hbcm4-2*ffmcfmb*fmb*hbcm3-fmc2*hbcm2)+4*(
5648      . p6p7*p1p8)*(ffmcfmb**2*hbcm4+2*ffmcfmb*fmb*hbcm3+fmc2*hbcm2)+8
5649      . *(p4p8*p3p7*p3p6)*(-2*ffmcfmb**2*hbcm2+2*ffmcfmb*fmb*hbcm+
5650      . ffmcfmb*hbcm2)+8*(p3p7*p3p6*p1p8)*(2*ffmcfmb**2*hbcm2-2*
5651      . ffmcfmb*fmb*hbcm-ffmcfmb*hbcm2)+ans4
5652       ans2=w5*ans3
5653       ans7=32*(fb3*ffmcfmb*p1p8*p3p6*p3p7-fb3*ffmcfmb*p2p3*p3p6*p7p8-
5654      . fb3*ffmcfmb*p3p5*p3p6*p7p8-fb3*ffmcfmb*p3p6*p3p7*p4p8+fb3*
5655      . ffmcfmb*p3p6*p3p7*p5p8+2*fb3*p1p3*p2p8*p6p7-fb3*p1p3*p4p7*p6p8
5656      . -fb3*p1p3*p5p6*p7p8+fb3*p1p3*p5p7*p6p8+fb3*p1p8*p3p6*p4p7-fb3*
5657      . p1p8*p3p6*p5p7+fb3*p1p8*p3p7*p5p6-fb3*p2p3*p4p6*p7p8-2*fb3*
5658      . p2p8*p3p4*p6p7+fb3*p2p8*p3p6*p4p7-fb3*p2p8*p3p6*p5p7+3*fb3*
5659      . p2p8*p3p7*p4p6+fb3*p3p4*p4p7*p6p8+fb3*p3p4*p5p6*p7p8-fb3*p3p4*
5660      . p5p7*p6p8-fb3*p3p5*p4p6*p7p8-fb3*p3p6*p4p7*p4p8+fb3*p3p6*p4p8*
5661      . p5p7+fb3*p3p7*p4p6*p5p8-fb3*p3p7*p4p8*p5p6)
5662       ans6=32*(p6p8*p3p7*p3p4)*(2*fb3*ffmcfmb-fb3)+32*(p7p8*p3p6*p3p4
5663      . )*(-fb3*ffmcfmb+fb3)+32*(p3p7*p3p6*p2p8)*(5*fb3*ffmcfmb-fb3)+
5664      . 32*(p6p8*p3p7*p1p3)*(-2*fb3*ffmcfmb+fb3)+32*(p7p8*p3p6*p1p3)*(
5665      . fb3*ffmcfmb-fb3)+16*(p6p8*p5p7)*(-fb3*ffmcfmb*hbcm2-fb3*hbcm2+
5666      . fb4*fmb*hbcm)+4*(p7p8*p5p6)*(4*fb3*ffmcfmb*hbcm2+4*fb3*hbcm2-4
5667      . *fb4*fmb*hbcm-hbcm2)+4*(p6p7*p4p8)*(4*fb3*ffmcfmb*hbcm2-4*fb3*
5668      . hbcm2+4*fb4*fmb*hbcm+hbcm2)+8*(p6p8*p4p7)*(2*fb3*ffmcfmb*hbcm2
5669      . +2*fb3*hbcm2-2*fb4*fmb*hbcm+hbcm2)+4*(p7p8*p4p6)*(4*fb3*
5670      . ffmcfmb*hbcm2-4*fb3*hbcm2-4*fb4*fmb*hbcm-hbcm2)+4*(p7p8*p3p6)*
5671      . (-4*fb3*ffmcfmb*hbcm2+4*fb3*hbcm2-4*fb4*fmb*hbcm+2*ffmcfmb*
5672      . hbcm2-2*fmb*hbcm-hbcm2)+4*(p6p7*p2p8)*(-12*fb3*ffmcfmb*hbcm2-4
5673      . *fb3*hbcm2+4*fb4*fmb*hbcm+hbcm2)+4*(p6p7*p1p8)*(-4*fb3*ffmcfmb
5674      . *hbcm2+4*fb3*hbcm2-4*fb4*fmb*hbcm-hbcm2)+8*(p6p8*p3p7)*(4*fb3*
5675      . ffmcfmb**2*hbcm2+2*fb3*ffmcfmb*hbcm2-2*fb3*hbcm2-4*fb4*ffmcfmb
5676      . *fmb*hbcm+2*fb4*fmb*hbcm+ffmcfmb*hbcm2)+ans7
5677       ans5=w12*(8*(p5p6*p3p7*p1p8)*(-ffmcfmb*hbcm2-fmb*hbcm)+8*(p4p6*
5678      . p3p7*p1p8)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(p4p7*p3p6*p1p8)*
5679      . (2*ffmcfmb*hbcm2-fmb*hbcm-hbcm2)+8*(p6p7*p3p4*p1p8)*(ffmcfmb*
5680      . hbcm2+fmb*hbcm)+8*(p6p7*p1p8*p1p3)*(-ffmcfmb*hbcm2-fmb*hbcm)+4
5681      . *(p6p7*p1p8)*(ffmcfmb**2*hbcm4+2*ffmcfmb*fmb*hbcm3+fmc2*hbcm2)
5682      . +8*(p3p7*p3p6*p1p8)*(2*ffmcfmb**2*hbcm2-2*ffmcfmb*fmb*hbcm-
5683      . ffmcfmb*hbcm2)+8*(fmb*hbcm*p1p8*p3p6*p5p7-hbcm2*p1p2*p1p8*p6p7
5684      . -hbcm2*p1p4*p1p8*p6p7+hbcm2*p1p8*p2p3*p6p7+hbcm2*p1p8*p2p4*
5685      . p6p7+hbcm2*p1p8*p4p6*p5p7-hbcm2*p1p8*p4p7*p5p6))+ans6
5686       ans1=w2*(8*(p5p8*p5p6*p3p7)*(-ffmcfmb*hbcm2-fmb*hbcm)+8*(p5p8*
5687      . p4p6*p3p7)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(p5p8*p4p7*p3p6)*
5688      . (2*ffmcfmb*hbcm2-fmb*hbcm-hbcm2)+8*(p6p7*p5p8*p3p4)*(ffmcfmb*
5689      . hbcm2+fmb*hbcm)+8*(p6p7*p5p8*p1p3)*(-ffmcfmb*hbcm2-fmb*hbcm)+4
5690      . *(p6p7*p5p8)*(ffmcfmb**2*hbcm4+2*ffmcfmb*fmb*hbcm3+fmc2*hbcm2)
5691      . +8*(p5p8*p3p7*p3p6)*(2*ffmcfmb**2*hbcm2-2*ffmcfmb*fmb*hbcm-
5692      . ffmcfmb*hbcm2)+8*(fmb*hbcm*p3p6*p5p7*p5p8-hbcm2*p1p2*p5p8*p6p7
5693      . -hbcm2*p1p4*p5p8*p6p7+hbcm2*p2p3*p5p8*p6p7+hbcm2*p2p4*p5p8*
5694      . p6p7+hbcm2*p4p6*p5p7*p5p8-hbcm2*p4p7*p5p6*p5p8))+ans2+ans5
5695       ans=ccc*ans1
5696       b(10)=ans
5697       ans=ccc*(w2*(2*p5p8*(-2*ffmcfmb*hbcm3+fmb2*hbcm-fmc2*hbcm+hbcm3
5698      . )+4*(ffmcfmb*hbcm*p1p3*p5p8-hbcm*p1p2*p5p8+hbcm*p1p4*p5p8-hbcm
5699      . *p1p5*p5p8+hbcm*p2p3*p5p8+2*hbcm*p2p5*p5p8-hbcm*p3p4*p5p8+hbcm
5700      . *p3p5*p5p8))+w5*(2*p4p8*(2*ffmcfmb*hbcm3-fmb2*hbcm+fmc2*hbcm-
5701      . hbcm3)+2*p1p8*(-2*ffmcfmb*hbcm3+fmb2*hbcm-fmc2*hbcm+hbcm3)+4*(
5702      . ffmcfmb*hbcm*p1p3*p1p8-ffmcfmb*hbcm*p1p3*p4p8-hbcm*p1p2*p1p8+
5703      . hbcm*p1p2*p4p8+hbcm*p1p4*p1p8-hbcm*p1p4*p4p8-hbcm*p1p5*p1p8+
5704      . hbcm*p1p5*p4p8+hbcm*p1p8*p2p3+2*hbcm*p1p8*p2p5-hbcm*p1p8*p3p4+
5705      . hbcm*p1p8*p3p5-hbcm*p2p3*p4p8-2*hbcm*p2p5*p4p8+hbcm*p3p4*p4p8-
5706      . hbcm*p3p5*p4p8))+w12*(2*p1p8*(-2*ffmcfmb*hbcm3+fmb2*hbcm-fmc2*
5707      . hbcm+hbcm3)+4*(ffmcfmb*hbcm*p1p3*p1p8-hbcm*p1p2*p1p8+hbcm*p1p4
5708      . *p1p8-hbcm*p1p5*p1p8+hbcm*p1p8*p2p3+2*hbcm*p1p8*p2p5-hbcm*p1p8
5709      . *p3p4+hbcm*p1p8*p3p5))+(2*p4p8*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4
5710      . *fb4*hbcm-hbcm)+4*p2p8*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*
5711      . hbcm+hbcm)+4*p1p8*(-2*fb3*fmb-2*fb4*ffmcfmb*hbcm+2*fb4*hbcm+
5712      . hbcm)))
5713       b(11)=ans
5714       b(12)=4*ccc*(2*fb3*ffmcfmb*hbcm2-2*fb3*ffmcfmb*p1p3-fb3*fmb2+
5715      . fb3*fmc2-fb3*hbcm2+2*fb3*p1p2-2*fb3*p1p4+2*fb3*p1p5-2*fb3*p2p3
5716      . -4*fb3*p2p5+2*fb3*p3p4-2*fb3*p3p5)
5717       ans2=w12*(4*(p3p4*p1p8)*(-ffmcfmb*hbcm2-fmb*hbcm)+4*(p2p3*p1p8)
5718      . *(2*ffmcfmb*hbcm2+2*fmb*hbcm-hbcm2)+4*(p1p8*p1p3)*(2*ffmcfmb*
5719      . hbcm2+fmb*hbcm-hbcm2)+2*p1p8*(-2*ffmcfmb**2*hbcm4-2*ffmcfmb*
5720      . fmb*hbcm3+fmb2*hbcm2-fmc2*hbcm2+hbcm4)+4*(-hbcm2*p1p2*p1p8+
5721      . hbcm2*p1p4*p1p8-hbcm2*p1p5*p1p8+2*hbcm2*p1p8*p2p5+hbcm2*p1p8*
5722      . p3p5))+(2*p4p8*(4*fb3*ffmcfmb*hbcm2-4*fb3*hbcm2-4*fb4*fmb*hbcm
5723      . -hbcm2)+4*p2p8*(-8*fb3*ffmcfmb*hbcm2+4*fb3*hbcm2+4*fb4*fmb*
5724      . hbcm+hbcm2)+4*p1p8*(-2*fb3*ffmcfmb*hbcm2+2*fb3*hbcm2+2*fb4*fmb
5725      . *hbcm+hbcm2)+16*(fb3*ffmcfmb*hbcm2*p5p8+fb3*p1p3*p2p8-fb3*p1p3
5726      . *p5p8-fb3*p1p8*p2p3+fb3*p1p8*p3p5+fb3*p2p3*p4p8-2*fb3*p2p3*
5727      . p5p8-fb3*p2p8*p3p4+2*fb3*p2p8*p3p5+fb3*p3p4*p5p8-fb3*p3p5*p4p8
5728      . ))
5729       ans1=w2*(4*(p5p8*p3p4)*(-ffmcfmb*hbcm2-fmb*hbcm)+4*(p5p8*p2p3)*
5730      . (2*ffmcfmb*hbcm2+2*fmb*hbcm-hbcm2)+4*(p5p8*p1p3)*(2*ffmcfmb*
5731      . hbcm2+fmb*hbcm-hbcm2)+2*p5p8*(-2*ffmcfmb**2*hbcm4-2*ffmcfmb*
5732      . fmb*hbcm3+fmb2*hbcm2-fmc2*hbcm2+hbcm4)+4*(-hbcm2*p1p2*p5p8+
5733      . hbcm2*p1p4*p5p8-hbcm2*p1p5*p5p8+2*hbcm2*p2p5*p5p8+hbcm2*p3p5*
5734      . p5p8))+w5*(4*(p4p8*p3p4)*(ffmcfmb*hbcm2+fmb*hbcm)+4*(p4p8*p2p3
5735      . )*(-2*ffmcfmb*hbcm2-2*fmb*hbcm+hbcm2)+4*(p3p4*p1p8)*(-ffmcfmb*
5736      . hbcm2-fmb*hbcm)+4*(p2p3*p1p8)*(2*ffmcfmb*hbcm2+2*fmb*hbcm-
5737      . hbcm2)+4*(p4p8*p1p3)*(-2*ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+4*(p1p8
5738      . *p1p3)*(2*ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+2*p4p8*(2*ffmcfmb**2*
5739      . hbcm4+2*ffmcfmb*fmb*hbcm3-fmb2*hbcm2+fmc2*hbcm2-hbcm4)+2*p1p8*
5740      . (-2*ffmcfmb**2*hbcm4-2*ffmcfmb*fmb*hbcm3+fmb2*hbcm2-fmc2*hbcm2
5741      . +hbcm4)+4*(-hbcm2*p1p2*p1p8+hbcm2*p1p2*p4p8+hbcm2*p1p4*p1p8-
5742      . hbcm2*p1p4*p4p8-hbcm2*p1p5*p1p8+hbcm2*p1p5*p4p8+2*hbcm2*p1p8*
5743      . p2p5+hbcm2*p1p8*p3p5-2*hbcm2*p2p5*p4p8-hbcm2*p3p5*p4p8))+ans2
5744       ans=ccc*ans1
5745       b(13)=ans
5746       b(14)=ccc*(2*p3p4*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+hbcm)+4*p2p3*(
5747      . 4*fb3*fmb+4*fb4*ffmcfmb*hbcm-2*fb4*hbcm-hbcm)+2*p1p3*(4*fb3*
5748      . fmb+8*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm)+2*(-4*fb3*ffmcfmb*fmb*
5749      . hbcm2-4*fb4*ffmcfmb**2*hbcm3+2*fb4*fmb2*hbcm-2*fb4*fmc2*hbcm-4
5750      . *fb4*hbcm*p1p2+4*fb4*hbcm*p1p4-4*fb4*hbcm*p1p5+8*fb4*hbcm*p2p5
5751      . +4*fb4*hbcm*p3p5+2*fb4*hbcm3+ffmcfmb*hbcm3))
5752       b(15)=ccc*(w2*(4*(p5p8*p3p6)*(4*ffmcfmb*hbcm2-hbcm2)+4*(3*hbcm2
5753      . *p4p6*p5p8-hbcm2*p5p6*p5p8))+w5*(4*(p4p8*p3p6)*(-4*ffmcfmb*
5754      . hbcm2+hbcm2)+4*(p3p6*p1p8)*(4*ffmcfmb*hbcm2-hbcm2)+4*(3*hbcm2*
5755      . p1p8*p4p6-hbcm2*p1p8*p5p6-3*hbcm2*p4p6*p4p8+hbcm2*p4p8*p5p6))+
5756      . w12*(4*(p3p6*p1p8)*(4*ffmcfmb*hbcm2-hbcm2)+4*(3*hbcm2*p1p8*
5757      . p4p6-hbcm2*p1p8*p5p6))+8*hbcm2*p6p8)
5758       b(16)=ccc*(w2*(4*(p5p8*p3p6)*(-4*ffmcfmb*hbcm+hbcm)+4*(-3*hbcm*
5759      . p4p6*p5p8+hbcm*p5p6*p5p8))+w5*(4*(p4p8*p3p6)*(4*ffmcfmb*hbcm-
5760      . hbcm)+4*(p3p6*p1p8)*(-4*ffmcfmb*hbcm+hbcm)+4*(-3*hbcm*p1p8*
5761      . p4p6+hbcm*p1p8*p5p6+3*hbcm*p4p6*p4p8-hbcm*p4p8*p5p6))+w12*(4*(
5762      . p3p6*p1p8)*(-4*ffmcfmb*hbcm+hbcm)+4*(-3*hbcm*p1p8*p4p6+hbcm*
5763      . p1p8*p5p6))-8*hbcm*p6p8)
5764       b(17)=ccc*(w2*(2*p5p8*(5*ffmcfmb*hbcm3-3*fmb*hbcm2-3*hbcm3)+4*(
5765      . -hbcm*p1p3*p5p8+hbcm*p2p3*p5p8+hbcm*p3p4*p5p8-3*hbcm*p3p5*p5p8
5766      . ))+w5*(2*p4p8*(-5*ffmcfmb*hbcm3+3*fmb*hbcm2+3*hbcm3)+2*p1p8*(5
5767      . *ffmcfmb*hbcm3-3*fmb*hbcm2-3*hbcm3)+4*(-hbcm*p1p3*p1p8+hbcm*
5768      . p1p3*p4p8+hbcm*p1p8*p2p3+hbcm*p1p8*p3p4-3*hbcm*p1p8*p3p5-hbcm*
5769      . p2p3*p4p8-hbcm*p3p4*p4p8+3*hbcm*p3p5*p4p8))+w12*(2*p1p8*(5*
5770      . ffmcfmb*hbcm3-3*fmb*hbcm2-3*hbcm3)+4*(-hbcm*p1p3*p1p8+hbcm*
5771      . p1p8*p2p3+hbcm*p1p8*p3p4-3*hbcm*p1p8*p3p5))+8*(-fb4*hbcm*p1p8+
5772      . fb4*hbcm*p2p8+fb4*hbcm*p4p8-3*fb4*hbcm*p5p8))
5773       b(18)=ccc*(w2*(4*(p5p8*p3p7)*(-ffmcfmb*hbcm2-fmb*hbcm)+4*(hbcm2
5774      . *p4p7*p5p8-3*hbcm2*p5p7*p5p8))+w5*(4*(p4p8*p3p7)*(ffmcfmb*
5775      . hbcm2+fmb*hbcm)+4*(p3p7*p1p8)*(-ffmcfmb*hbcm2-fmb*hbcm)+4*(
5776      . hbcm2*p1p8*p4p7-3*hbcm2*p1p8*p5p7-hbcm2*p4p7*p4p8+3*hbcm2*p4p8
5777      . *p5p7))+w12*(4*(p3p7*p1p8)*(-ffmcfmb*hbcm2-fmb*hbcm)+4*(hbcm2*
5778      . p1p8*p4p7-3*hbcm2*p1p8*p5p7))+(2*p7p8*(12*fb3*ffmcfmb*hbcm2-4*
5779      . fb3*hbcm2-4*fb4*fmb*hbcm-hbcm2)+16*(-fb3*p1p3*p7p8+fb3*p1p8*
5780      . p3p7+fb3*p2p3*p7p8-fb3*p2p8*p3p7+fb3*p3p4*p7p8-fb3*p3p5*p7p8-
5781      . fb3*p3p7*p4p8+fb3*p3p7*p5p8)))
5782       b(19)=ccc*(6*w2*p5p8*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+w5*(6*p4p8
5783      . *(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+6*p1p8*(-ffmcfmb*hbcm2-fmb*
5784      . hbcm+hbcm2))+6*w12*p1p8*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*(fb3
5785      . *p1p8-fb3*p2p8-fb3*p4p8+3*fb3*p5p8))
5786       b(20)=ccc*(w2*(8*(p5p8*p3p7)*(ffmcfmb*hbcm-hbcm)+8*(hbcm*p4p7*
5787      . p5p8-2*hbcm*p5p7*p5p8))+w5*(8*(p4p8*p3p7)*(-ffmcfmb*hbcm+hbcm)
5788      . +8*(p3p7*p1p8)*(ffmcfmb*hbcm-hbcm)+8*(hbcm*p1p8*p4p7-2*hbcm*
5789      . p1p8*p5p7-hbcm*p4p7*p4p8+2*hbcm*p4p8*p5p7))+w12*(8*(p3p7*p1p8)
5790      . *(ffmcfmb*hbcm-hbcm)+8*(hbcm*p1p8*p4p7-2*hbcm*p1p8*p5p7))+2*
5791      . p7p8*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm+hbcm))
5792       b(21)=3*ccc*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm)
5793       b(22)=ccc*(20*fb3*ffmcfmb*hbcm2-12*fb3*hbcm2-8*fb3*p1p3+8*fb3*
5794      . p2p3+8*fb3*p3p4-24*fb3*p3p5-12*fb4*fmb*hbcm-3*hbcm2)
5795       b(23)=ccc*(2*p3p7*(-4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm+
5796      . hbcm)+16*(fb4*hbcm*p4p7-2*fb4*hbcm*p5p7))
5797       b(24)=ccc*(8*p3p6*(-4*fb4*ffmcfmb*hbcm+fb4*hbcm)+8*(-3*fb4*hbcm
5798      . *p4p6+fb4*hbcm*p5p6))
5799       b(25)=ccc*(2*p5p7*(8*fb3*fmb-4*fb3*fmc+4*fb4*ffmcfmb*hbcm-4*fb4
5800      . *hbcm-hbcm)+4*p4p7*(-6*fb3*fmb+2*fb3*fmc-4*fb4*ffmcfmb*hbcm+4*
5801      . fb4*hbcm+hbcm)+2*p3p7*(-16*fb3*ffmcfmb*fmb+8*fb3*ffmcfmb*fmc+8
5802      . *fb3*fmb-4*fb3*fmc-8*fb4*ffmcfmb**2*hbcm+12*fb4*ffmcfmb*hbcm-4
5803      . *fb4*hbcm+2*ffmcfmb*hbcm-hbcm))
5804       b(26)=ccc*(2*p5p6*(-4*fb3*fmb-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+
5805      . hbcm)+2*p3p6*(4*fb3*ffmcfmb*fmb-4*fb3*fmb+4*fb4*ffmcfmb**2*
5806      . hbcm-8*fb4*ffmcfmb*hbcm+4*fb4*hbcm-ffmcfmb*hbcm+hbcm))
5807       b(27)=ccc*(16*(p3p7*p3p6)*(-4*fb3*ffmcfmb+fb3)+2*p6p7*(12*fb3*
5808      . ffmcfmb*hbcm2+4*fb3*hbcm2-4*fb4*fmb*hbcm-hbcm2)+16*(-2*fb3*
5809      . p1p3*p6p7+2*fb3*p3p4*p6p7-fb3*p3p6*p4p7+fb3*p3p6*p5p7-2*fb3*
5810      . p3p7*p4p6))
5811       b(28)=ccc*(4*w2*(p6p7*p5p8)*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+w5*(
5812      . 4*(p6p7*p4p8)*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+4*(p6p7*p1p8)*(
5813      . ffmcfmb*hbcm2+fmb*hbcm-hbcm2))+4*w12*(p6p7*p1p8)*(ffmcfmb*
5814      . hbcm2+fmb*hbcm-hbcm2)+(16*(p6p8*p3p7)*(-2*fb3*ffmcfmb+fb3)+16*
5815      . (-2*fb3*ffmcfmb*p3p6*p7p8-2*fb3*p1p8*p6p7-2*fb3*p4p6*p7p8-fb3*
5816      . p4p7*p6p8+2*fb3*p4p8*p6p7+fb3*p5p7*p6p8)))
5817       b(29)=ccc*(8*p3p6*(-4*fb3*ffmcfmb+fb3)+8*(-3*fb3*p4p6+fb3*p5p6)
5818      . )
5819       b(30)=ccc*(8*p3p7*(4*fb3*ffmcfmb-3*fb3)+8*(3*fb3*p4p7-5*fb3*
5820      . p5p7))
5821       ans=ccc*(w2*(4*(p6p7*p5p8)*(3*ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+8*
5822      . (p5p8*p3p7*p3p6)*(-4*ffmcfmb*hbcm+hbcm)+8*(-2*hbcm*p1p3*p5p8*
5823      . p6p7+2*hbcm*p3p4*p5p8*p6p7-hbcm*p3p6*p4p7*p5p8+hbcm*p3p6*p5p7*
5824      . p5p8-2*hbcm*p3p7*p4p6*p5p8))+w5*(4*(p6p7*p4p8)*(-3*ffmcfmb*
5825      . hbcm3+fmb*hbcm2-hbcm3)+4*(p6p7*p1p8)*(3*ffmcfmb*hbcm3-fmb*
5826      . hbcm2+hbcm3)+8*(p4p8*p3p7*p3p6)*(4*ffmcfmb*hbcm-hbcm)+8*(p3p7*
5827      . p3p6*p1p8)*(-4*ffmcfmb*hbcm+hbcm)+8*(-2*hbcm*p1p3*p1p8*p6p7+2*
5828      . hbcm*p1p3*p4p8*p6p7+2*hbcm*p1p8*p3p4*p6p7-hbcm*p1p8*p3p6*p4p7+
5829      . hbcm*p1p8*p3p6*p5p7-2*hbcm*p1p8*p3p7*p4p6-2*hbcm*p3p4*p4p8*
5830      . p6p7+hbcm*p3p6*p4p7*p4p8-hbcm*p3p6*p4p8*p5p7+2*hbcm*p3p7*p4p6*
5831      . p4p8))+w12*(4*(p6p7*p1p8)*(3*ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+8*
5832      . (p3p7*p3p6*p1p8)*(-4*ffmcfmb*hbcm+hbcm)+8*(-2*hbcm*p1p3*p1p8*
5833      . p6p7+2*hbcm*p1p8*p3p4*p6p7-hbcm*p1p8*p3p6*p4p7+hbcm*p1p8*p3p6*
5834      . p5p7-2*hbcm*p1p8*p3p7*p4p6))+(8*(p6p8*p3p7)*(-4*fb4*ffmcfmb*
5835      . hbcm+2*fb4*hbcm-hbcm)+8*(p7p8*p3p6)*(-4*fb4*ffmcfmb*hbcm-hbcm)
5836      . +16*(-2*fb4*hbcm*p1p8*p6p7-2*fb4*hbcm*p4p6*p7p8-fb4*hbcm*p4p7*
5837      . p6p8+2*fb4*hbcm*p4p8*p6p7+fb4*hbcm*p5p7*p6p8)))
5838       b(31)=ans
5839       b(32)=2*ccc*p6p7*(4*fb3*fmb+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm)
5840       do 200 n=1,32
5841          c(n,1)=c(n,1)-0.1818181818181818d0*b(n)
5842          c(n,2)=c(n,2)-0.1512818716977898d0*b(n)
5843          c(n,3)=c(n,3)-0.1869893980016914d0*b(n)
5844 200   continue
5845       return
5846         end
5847
5848       subroutine amp31_1p1(cc)
5849       implicit double precision(a-h,o-z)
5850       implicit integer (i-n)
5851       dimension b(32)
5852 #include "inclcon.h"
5853 #include "inclppp.h"
5854 #include "inclamp.h"
5855       do 100 n=1,32
5856          b(n)=0.0d0
5857 100   continue
5858       ccc=cc/((-2*p1p5)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2)*(
5859      . ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2+2*ffmcfmb*p1p3-2*ffmcfmb*p3p5
5860      . +fmb2+hbcm2-2*p1p3-2*p1p5+2*p3p5))
5861       b(1)=ccc*(8*p6p7*(2*fb3*ffmcfmb*hbcm2-fb3*fmb2+fb3*fmc2-fb3*
5862      . hbcm2)+16*(fb3*p1p3*p6p7+fb3*p1p5*p6p7+fb3*p2p3*p6p7+2*fb3*
5863      . p2p4*p6p7+fb3*p3p4*p6p7-fb3*p3p5*p6p7-fb3*p3p6*p4p7+fb3*p3p6*
5864      . p5p7-fb3*p4p6*p4p7+fb3*p4p6*p5p7-fb3*p4p7*p5p6+fb3*p5p6*p5p7))
5865       ans2=(4*(p7p8*p5p6)*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm+hbcm)+4*(p7p8
5866      . *p4p6)*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm+hbcm)+4*(p7p8*p3p6)*(4*
5867      . fb3*fmc+4*fb4*ffmcfmb*hbcm+hbcm)+16*(p6p7*p5p8)*(fb3*fmb-fb3*
5868      . fmc-fb4*hbcm)+16*(p6p8*p5p7)*(-fb3*fmb+fb3*fmc)+4*(p6p8*p3p7)*
5869      . (-4*fb3*fmb+4*fb4*ffmcfmb*hbcm+hbcm)+32*(p6p7*p2p8)*(-fb3*fmb+
5870      . fb3*fmc+fb4*hbcm)+16*(p6p7*p1p8)*(-fb3*fmb+fb3*fmc+fb4*hbcm)+
5871      . 16*fb4*hbcm*p4p7*p6p8)
5872       ans1=w1*(4*(p6p7*p4p8)*(-2*ffmcfmb*hbcm3+fmb2*hbcm-fmc2*hbcm+
5873      . hbcm3)+8*(p5p6*p4p8*p3p7)*(-2*ffmcfmb*hbcm+hbcm)+8*(p4p8*p4p6*
5874      . p3p7)*(-2*ffmcfmb*hbcm+hbcm)+8*(p4p8*p3p7*p3p6)*(-2*ffmcfmb*
5875      . hbcm+hbcm)+8*(-hbcm*p1p3*p4p8*p6p7-hbcm*p1p5*p4p8*p6p7-hbcm*
5876      . p2p3*p4p8*p6p7-2*hbcm*p2p4*p4p8*p6p7-hbcm*p3p4*p4p8*p6p7+hbcm*
5877      . p3p5*p4p8*p6p7))+w15*(4*(p6p7*p5p8)*(2*ffmcfmb*hbcm3-fmb2*hbcm
5878      . +fmc2*hbcm-hbcm3)+4*(p6p7*p1p8)*(-2*ffmcfmb*hbcm3+fmb2*hbcm-
5879      . fmc2*hbcm+hbcm3)+8*(p5p8*p5p6*p3p7)*(2*ffmcfmb*hbcm-hbcm)+8*(
5880      . p5p8*p4p6*p3p7)*(2*ffmcfmb*hbcm-hbcm)+8*(p5p8*p3p7*p3p6)*(2*
5881      . ffmcfmb*hbcm-hbcm)+8*(p5p6*p3p7*p1p8)*(-2*ffmcfmb*hbcm+hbcm)+8
5882      . *(p4p6*p3p7*p1p8)*(-2*ffmcfmb*hbcm+hbcm)+8*(p3p7*p3p6*p1p8)*(-
5883      . 2*ffmcfmb*hbcm+hbcm)+8*(-hbcm*p1p3*p1p8*p6p7+hbcm*p1p3*p5p8*
5884      . p6p7-hbcm*p1p5*p1p8*p6p7+hbcm*p1p5*p5p8*p6p7-hbcm*p1p8*p2p3*
5885      . p6p7-2*hbcm*p1p8*p2p4*p6p7-hbcm*p1p8*p3p4*p6p7+hbcm*p1p8*p3p5*
5886      . p6p7+hbcm*p2p3*p5p8*p6p7+2*hbcm*p2p4*p5p8*p6p7+hbcm*p3p4*p5p8*
5887      . p6p7-hbcm*p3p5*p5p8*p6p7))+ans2
5888       ans=ccc*ans1
5889       b(2)=ans
5890       ans=ccc*(w1*(4*(p5p7*p4p8)*(fmb*hbcm+fmc*hbcm-2*hbcm2)+4*(p4p8*
5891      . p3p7)*(-2*ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*hbcm+3*ffmcfmb*hbcm2+
5892      . fmb*hbcm+2*fmc*hbcm-2*hbcm2)+4*hbcm2*p4p7*p4p8)+w15*(4*(p5p8*
5893      . p5p7)*(-fmb*hbcm-fmc*hbcm+2*hbcm2)+4*(p5p7*p1p8)*(fmb*hbcm+fmc
5894      . *hbcm-2*hbcm2)+4*(p5p8*p3p7)*(2*ffmcfmb*fmb*hbcm+2*ffmcfmb*fmc
5895      . *hbcm-3*ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm+2*hbcm2)+4*(p3p7*
5896      . p1p8)*(-2*ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*hbcm+3*ffmcfmb*hbcm2+
5897      . fmb*hbcm+2*fmc*hbcm-2*hbcm2)+4*(hbcm2*p1p8*p4p7-hbcm2*p4p7*
5898      . p5p8))+(2*p7p8*(4*fb3*ffmcfmb*hbcm2+4*fb3*fmb*fmc+4*fb3*fmc2+4
5899      . *fb4*ffmcfmb*fmb*hbcm+4*fb4*ffmcfmb*fmc*hbcm-4*fb4*fmc*hbcm+
5900      . fmb*hbcm+fmc*hbcm-3*hbcm2)+16*(fb3*p1p2*p7p8-fb3*p1p8*p4p7-fb3
5901      . *p2p5*p7p8-fb3*p2p8*p3p7-fb3*p2p8*p5p7+fb3*p3p4*p7p8-fb3*p3p7*
5902      . p4p8+fb3*p4p7*p5p8-fb3*p4p8*p5p7)))
5903       b(3)=ans
5904       b(4)=ccc*(2*p3p7*(-4*fb3*fmb*fmc-4*fb3*fmc2+4*fb4*ffmcfmb*fmb*
5905      . hbcm+4*fb4*ffmcfmb*fmc*hbcm-4*fb4*fmb*hbcm-4*fb4*fmc*hbcm+fmb*
5906      . hbcm+fmc*hbcm)+8*p5p7*(2*fb3*ffmcfmb*hbcm2-fb4*fmb*hbcm-fb4*
5907      . fmc*hbcm)+8*(-fb3*hbcm2*p4p7-2*fb3*p1p2*p3p7+2*fb3*p1p3*p4p7+2
5908      . *fb3*p2p3*p4p7-4*fb3*p2p3*p5p7+2*fb3*p2p5*p3p7+2*fb3*p3p4*p5p7
5909      . -2*fb3*p3p5*p4p7))
5910       ans3=(4*(p5p8*p3p7)*(-4*fb3*fmc+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm+
5911      . hbcm)+4*(p7p8*p3p5)*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm+hbcm)+4*(
5912      . p3p7*p2p8)*(4*fb3*fmc-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm-hbcm)+4*(
5913      . p7p8*p2p3)*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm-hbcm)+4*(p3p7*p1p8)*
5914      . (4*fb3*fmc-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm-hbcm)+4*(p7p8*p1p3)*(
5915      . -4*fb3*fmc-4*fb4*ffmcfmb*hbcm-hbcm)+16*(p4p8*p3p7)*(fb3*fmb-
5916      . fb3*fmc)+16*(p7p8*p3p4)*(-fb3*fmb+fb3*fmc)+2*p7p8*(-4*fb3*
5917      . ffmcfmb*fmb*hbcm2+4*fb3*ffmcfmb*fmc*hbcm2+4*fb3*fmc*hbcm2+4*
5918      . fb4*ffmcfmb*hbcm3+4*fb4*fmb*fmc*hbcm-4*fb4*fmc2*hbcm+3*fmb*
5919      . hbcm2-3*fmc*hbcm2+hbcm3)+16*(-fb4*hbcm*p1p2*p7p8+fb4*hbcm*p1p8
5920      . *p5p7+fb4*hbcm*p2p5*p7p8-fb4*hbcm*p2p8*p5p7+fb4*hbcm*p4p8*p5p7
5921      . -fb4*hbcm*p5p7*p5p8))
5922       ans2=w15*(4*(p5p8*p4p7)*(fmb*hbcm2-fmc*hbcm2)+4*(p4p7*p1p8)*(-
5923      . fmb*hbcm2+fmc*hbcm2)+4*(p5p8*p5p7)*(2*ffmcfmb*hbcm3-2*fmb*
5924      . hbcm2+2*fmc*hbcm2-hbcm3)+4*(p5p7*p1p8)*(-2*ffmcfmb*hbcm3+2*fmb
5925      . *hbcm2-2*fmc*hbcm2+hbcm3)+8*(p5p8*p3p7*p3p5)*(2*ffmcfmb*hbcm-
5926      . hbcm)+8*(p5p8*p3p7*p2p3)*(-2*ffmcfmb*hbcm+hbcm)+8*(p3p7*p3p5*
5927      . p1p8)*(-2*ffmcfmb*hbcm+hbcm)+8*(p3p7*p2p3*p1p8)*(2*ffmcfmb*
5928      . hbcm-hbcm)+8*(p5p8*p3p7*p1p3)*(-2*ffmcfmb*hbcm+hbcm)+8*(p3p7*
5929      . p1p8*p1p3)*(2*ffmcfmb*hbcm-hbcm)+4*(p5p8*p3p7)*(3*ffmcfmb*fmb*
5930      . hbcm2-3*ffmcfmb*fmc*hbcm2+2*ffmcfmb*hbcm3+fmb*fmc*hbcm-2*fmb*
5931      . hbcm2+2*fmc*hbcm2-fmc2*hbcm-hbcm3)+4*(p3p7*p1p8)*(-3*ffmcfmb*
5932      . fmb*hbcm2+3*ffmcfmb*fmc*hbcm2-2*ffmcfmb*hbcm3-fmb*fmc*hbcm+2*
5933      . fmb*hbcm2-2*fmc*hbcm2+fmc2*hbcm+hbcm3)+8*(hbcm*p1p2*p1p8*p3p7-
5934      . hbcm*p1p2*p3p7*p5p8-hbcm*p1p3*p1p8*p5p7+hbcm*p1p3*p5p7*p5p8+
5935      . hbcm*p1p8*p2p3*p5p7-hbcm*p1p8*p2p5*p3p7-hbcm*p1p8*p3p4*p5p7+
5936      . hbcm*p1p8*p3p5*p5p7-hbcm*p2p3*p5p7*p5p8+hbcm*p2p5*p3p7*p5p8+
5937      . hbcm*p3p4*p5p7*p5p8-hbcm*p3p5*p5p7*p5p8))+ans3
5938       ans1=w1*(4*(p4p8*p4p7)*(-fmb*hbcm2+fmc*hbcm2)+4*(p5p7*p4p8)*(-2
5939      . *ffmcfmb*hbcm3+2*fmb*hbcm2-2*fmc*hbcm2+hbcm3)+8*(p4p8*p3p7*
5940      . p3p5)*(-2*ffmcfmb*hbcm+hbcm)+8*(p4p8*p3p7*p2p3)*(2*ffmcfmb*
5941      . hbcm-hbcm)+8*(p4p8*p3p7*p1p3)*(2*ffmcfmb*hbcm-hbcm)+4*(p4p8*
5942      . p3p7)*(-3*ffmcfmb*fmb*hbcm2+3*ffmcfmb*fmc*hbcm2-2*ffmcfmb*
5943      . hbcm3-fmb*fmc*hbcm+2*fmb*hbcm2-2*fmc*hbcm2+fmc2*hbcm+hbcm3)+8*
5944      . (hbcm*p1p2*p3p7*p4p8-hbcm*p1p3*p4p8*p5p7+hbcm*p2p3*p4p8*p5p7-
5945      . hbcm*p2p5*p3p7*p4p8-hbcm*p3p4*p4p8*p5p7+hbcm*p3p5*p4p8*p5p7))+
5946      . ans2
5947       ans=ccc*ans1
5948       b(5)=ans
5949       ans=ccc*(w1*(4*(p5p6*p4p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+4*(p4p8*
5950      . p4p6)*(fmb*hbcm+fmc*hbcm-hbcm2)+4*(p4p8*p3p6)*(fmb*hbcm+fmc*
5951      . hbcm-hbcm2))+w15*(4*(p5p8*p5p6)*(-fmb*hbcm-fmc*hbcm+hbcm2)+4*(
5952      . p5p8*p4p6)*(-fmb*hbcm-fmc*hbcm+hbcm2)+4*(p5p8*p3p6)*(-fmb*hbcm
5953      . -fmc*hbcm+hbcm2)+4*(p5p6*p1p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+4*(
5954      . p4p6*p1p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+4*(p3p6*p1p8)*(fmb*hbcm+
5955      . fmc*hbcm-hbcm2))+(8*p6p8*(2*fb3*ffmcfmb*hbcm2-fb3*fmb2+fb3*
5956      . fmc2-fb3*hbcm2)+16*(fb3*p1p3*p6p8+fb3*p1p5*p6p8-fb3*p1p8*p3p6-
5957      . fb3*p1p8*p4p6-fb3*p1p8*p5p6+fb3*p2p3*p6p8+2*fb3*p2p4*p6p8+fb3*
5958      . p2p8*p3p6+fb3*p2p8*p4p6+fb3*p2p8*p5p6+fb3*p3p4*p6p8-fb3*p3p5*
5959      . p6p8-fb3*p3p6*p4p8+fb3*p3p6*p5p8-fb3*p4p6*p4p8+fb3*p4p6*p5p8-
5960      . fb3*p4p8*p5p6+fb3*p5p6*p5p8)))
5961       b(6)=ans
5962       b(7)=ccc*(8*p3p6*(fb3*fmb2-fb3*fmc2-fb4*fmb*hbcm-fb4*fmc*hbcm)+
5963      . 8*p5p6*(2*fb3*ffmcfmb*hbcm2-fb3*hbcm2-fb4*fmb*hbcm-fb4*fmc*
5964      . hbcm)+8*p4p6*(2*fb3*ffmcfmb*hbcm2-fb3*hbcm2-fb4*fmb*hbcm-fb4*
5965      . fmc*hbcm)+16*(fb3*p1p3*p4p6+fb3*p1p3*p5p6-fb3*p1p5*p3p6-2*fb3*
5966      . p2p3*p3p6-fb3*p2p3*p4p6-fb3*p2p3*p5p6-2*fb3*p2p4*p3p6+fb3*p3p4
5967      . *p4p6+fb3*p3p4*p5p6-fb3*p3p5*p4p6-fb3*p3p5*p5p6))
5968       ans3=(16*(p5p8*p3p6)*(-fb3*fmb+fb3*fmc)+16*(p6p8*p3p5)*(fb3*fmb
5969      . -fb3*fmc)+16*(p3p6*p2p8)*(-fb3*fmb+fb3*fmc)+16*(p6p8*p2p3)*(
5970      . fb3*fmb-fb3*fmc-2*fb4*hbcm)+16*(p3p6*p1p8)*(fb3*fmb-fb3*fmc)+
5971      . 16*(p6p8*p1p3)*(-fb3*fmb+fb3*fmc)+8*p6p8*(-2*fb3*ffmcfmb*fmb*
5972      . hbcm2+2*fb3*ffmcfmb*fmc*hbcm2+2*fb3*fmb*hbcm2-2*fb3*fmc*hbcm2+
5973      . fb4*fmb2*hbcm-fb4*fmc2*hbcm-fb4*hbcm3)+16*(-fb4*hbcm*p1p5*p6p8
5974      . +fb4*hbcm*p1p8*p4p6+fb4*hbcm*p1p8*p5p6-2*fb4*hbcm*p2p4*p6p8-
5975      . fb4*hbcm*p2p8*p4p6-fb4*hbcm*p2p8*p5p6-fb4*hbcm*p3p4*p6p8+fb4*
5976      . hbcm*p3p6*p4p8+fb4*hbcm*p4p6*p4p8-fb4*hbcm*p4p6*p5p8+fb4*hbcm*
5977      . p4p8*p5p6-fb4*hbcm*p5p6*p5p8))
5978       ans2=w15*(4*(p5p8*p3p6)*(-fmb*hbcm2+fmb2*hbcm+fmc*hbcm2-fmc2*
5979      . hbcm)+4*(p3p6*p1p8)*(fmb*hbcm2-fmb2*hbcm-fmc*hbcm2+fmc2*hbcm)+
5980      . 4*(p5p8*p5p6)*(2*ffmcfmb*hbcm3-fmb*hbcm2+fmc*hbcm2-hbcm3)+4*(
5981      . p5p8*p4p6)*(2*ffmcfmb*hbcm3-fmb*hbcm2+fmc*hbcm2-hbcm3)+4*(p5p6
5982      . *p1p8)*(-2*ffmcfmb*hbcm3+fmb*hbcm2-fmc*hbcm2+hbcm3)+4*(p4p6*
5983      . p1p8)*(-2*ffmcfmb*hbcm3+fmb*hbcm2-fmc*hbcm2+hbcm3)+8*(-hbcm*
5984      . p1p3*p1p8*p4p6-hbcm*p1p3*p1p8*p5p6+hbcm*p1p3*p4p6*p5p8+hbcm*
5985      . p1p3*p5p6*p5p8+hbcm*p1p5*p1p8*p3p6-hbcm*p1p5*p3p6*p5p8+2*hbcm*
5986      . p1p8*p2p3*p3p6+hbcm*p1p8*p2p3*p4p6+hbcm*p1p8*p2p3*p5p6+2*hbcm*
5987      . p1p8*p2p4*p3p6-hbcm*p1p8*p3p4*p4p6-hbcm*p1p8*p3p4*p5p6+hbcm*
5988      . p1p8*p3p5*p4p6+hbcm*p1p8*p3p5*p5p6-2*hbcm*p2p3*p3p6*p5p8-hbcm*
5989      . p2p3*p4p6*p5p8-hbcm*p2p3*p5p6*p5p8-2*hbcm*p2p4*p3p6*p5p8+hbcm*
5990      . p3p4*p4p6*p5p8+hbcm*p3p4*p5p6*p5p8-hbcm*p3p5*p4p6*p5p8-hbcm*
5991      . p3p5*p5p6*p5p8))+ans3
5992       ans1=w1*(4*(p4p8*p3p6)*(fmb*hbcm2-fmb2*hbcm-fmc*hbcm2+fmc2*hbcm
5993      . )+4*(p5p6*p4p8)*(-2*ffmcfmb*hbcm3+fmb*hbcm2-fmc*hbcm2+hbcm3)+4
5994      . *(p4p8*p4p6)*(-2*ffmcfmb*hbcm3+fmb*hbcm2-fmc*hbcm2+hbcm3)+8*(-
5995      . hbcm*p1p3*p4p6*p4p8-hbcm*p1p3*p4p8*p5p6+hbcm*p1p5*p3p6*p4p8+2*
5996      . hbcm*p2p3*p3p6*p4p8+hbcm*p2p3*p4p6*p4p8+hbcm*p2p3*p4p8*p5p6+2*
5997      . hbcm*p2p4*p3p6*p4p8-hbcm*p3p4*p4p6*p4p8-hbcm*p3p4*p4p8*p5p6+
5998      . hbcm*p3p5*p4p6*p4p8+hbcm*p3p5*p4p8*p5p6))+ans2
5999       ans=ccc*ans1
6000       b(8)=ans
6001       b(9)=ccc*(4*(p5p6*p3p7)*(-4*fb3*fmc+4*fb4*ffmcfmb*hbcm-4*fb4*
6002      . hbcm+hbcm)+4*(p4p6*p3p7)*(-4*fb3*fmc+4*fb4*ffmcfmb*hbcm-4*fb4*
6003      . hbcm+hbcm)+16*(p5p7*p3p6)*(fb3*fmb-fb3*fmc)+16*(p3p7*p3p6)*(
6004      . fb3*fmb-fb3*fmc-fb4*hbcm)+16*(p6p7*p3p5)*(-fb3*fmb+fb3*fmc)+16
6005      . *(p6p7*p2p3)*(2*fb3*fmb-2*fb3*fmc-fb4*hbcm)+16*(p6p7*p1p3)*(
6006      . fb3*fmb-fb3*fmc)+8*p6p7*(2*fb3*ffmcfmb*fmb*hbcm2-2*fb3*ffmcfmb
6007      . *fmc*hbcm2-2*fb3*fmb*hbcm2+2*fb3*fmc*hbcm2-fb4*fmb2*hbcm+fb4*
6008      . fmc2*hbcm+fb4*hbcm3)+16*(fb4*hbcm*p1p5*p6p7+2*fb4*hbcm*p2p4*
6009      . p6p7+fb4*hbcm*p3p4*p6p7-fb4*hbcm*p3p6*p4p7))
6010       ans4=8*(hbcm2*p1p5*p1p8*p6p7-hbcm2*p1p5*p5p8*p6p7+2*hbcm2*p1p8*
6011      . p2p4*p6p7+hbcm2*p1p8*p3p4*p6p7+hbcm2*p1p8*p4p6*p4p7-hbcm2*p1p8
6012      . *p4p6*p5p7+hbcm2*p1p8*p4p7*p5p6-hbcm2*p1p8*p5p6*p5p7-2*hbcm2*
6013      . p2p4*p5p8*p6p7-hbcm2*p3p4*p5p8*p6p7-hbcm2*p4p6*p4p7*p5p8+hbcm2
6014      . *p4p6*p5p7*p5p8-hbcm2*p4p7*p5p6*p5p8+hbcm2*p5p6*p5p7*p5p8)
6015       ans3=8*(p5p8*p4p7*p3p6)*(-fmb*hbcm-fmc*hbcm+hbcm2)+8*(p6p7*p5p8
6016      . *p3p5)*(fmb*hbcm+fmc*hbcm)+8*(p6p7*p5p8*p2p3)*(fmb*hbcm+fmc*
6017      . hbcm-2*hbcm2)+8*(p4p7*p3p6*p1p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(
6018      . p6p7*p3p5*p1p8)*(-fmb*hbcm-fmc*hbcm)+8*(p6p7*p2p3*p1p8)*(-fmb*
6019      . hbcm-fmc*hbcm+2*hbcm2)+8*(p6p7*p5p8*p1p3)*(-fmb*hbcm-fmc*hbcm)
6020      . +8*(p6p7*p1p8*p1p3)*(fmb*hbcm+fmc*hbcm)+8*(p5p8*p5p6*p3p7)*(-3
6021      . *ffmcfmb*hbcm2+fmb*hbcm+hbcm2)+8*(p5p8*p4p6*p3p7)*(-3*ffmcfmb*
6022      . hbcm2+fmb*hbcm+hbcm2)+8*(p5p6*p3p7*p1p8)*(3*ffmcfmb*hbcm2-fmb*
6023      . hbcm-hbcm2)+8*(p4p6*p3p7*p1p8)*(3*ffmcfmb*hbcm2-fmb*hbcm-hbcm2
6024      . )+4*(p6p7*p5p8)*(-2*ffmcfmb*fmb*hbcm3-2*ffmcfmb*fmc*hbcm3+2*
6025      . fmb*hbcm3+fmb2*hbcm2+2*fmc*hbcm3-fmc2*hbcm2-hbcm4)+4*(p6p7*
6026      . p1p8)*(2*ffmcfmb*fmb*hbcm3+2*ffmcfmb*fmc*hbcm3-2*fmb*hbcm3-
6027      . fmb2*hbcm2-2*fmc*hbcm3+fmc2*hbcm2+hbcm4)+8*(p5p8*p3p7*p3p6)*(-
6028      . 2*ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*hbcm+fmb*hbcm+fmc*hbcm)+8*(
6029      . p3p7*p3p6*p1p8)*(2*ffmcfmb*fmb*hbcm+2*ffmcfmb*fmc*hbcm-fmb*
6030      . hbcm-fmc*hbcm)+ans4
6031       ans2=w15*ans3
6032       ans6=16*(fb3*hbcm2*p5p7*p6p8+2*fb3*p1p3*p2p8*p6p7-2*fb3*p1p3*
6033      . p4p6*p7p8+2*fb3*p1p3*p4p7*p6p8-2*fb3*p1p3*p4p8*p6p7-2*fb3*p1p3
6034      . *p5p6*p7p8+2*fb3*p1p5*p3p6*p7p8-2*fb3*p1p5*p3p7*p6p8+2*fb3*
6035      . p1p8*p3p4*p6p7-2*fb3*p1p8*p3p6*p4p7+2*fb3*p1p8*p3p7*p4p6+2*fb3
6036      . *p1p8*p3p7*p5p6-2*fb3*p2p3*p2p8*p6p7+2*fb3*p2p3*p3p6*p7p8-2*
6037      . fb3*p2p3*p3p7*p6p8+2*fb3*p2p3*p4p6*p7p8-2*fb3*p2p3*p4p7*p6p8+2
6038      . *fb3*p2p3*p4p8*p6p7+2*fb3*p2p3*p5p6*p7p8+2*fb3*p2p4*p3p6*p7p8-
6039      . 2*fb3*p2p4*p3p7*p6p8+4*fb3*p2p8*p3p4*p6p7-2*fb3*p2p8*p3p5*p6p7
6040      . -4*fb3*p2p8*p3p6*p3p7-4*fb3*p2p8*p3p6*p4p7+2*fb3*p2p8*p3p6*
6041      . p5p7-4*fb3*p2p8*p3p7*p4p6-4*fb3*p2p8*p3p7*p5p6+2*fb3*p3p4*p5p7
6042      . *p6p8-2*fb3*p3p4*p5p8*p6p7+2*fb3*p3p5*p4p6*p7p8-2*fb3*p3p5*
6043      . p4p7*p6p8+2*fb3*p3p5*p4p8*p6p7+2*fb3*p3p5*p5p6*p7p8+2*fb3*p3p6
6044      . *p4p7*p5p8-2*fb3*p3p6*p4p8*p5p7-2*fb3*p3p7*p4p6*p5p8-2*fb3*
6045      . p3p7*p5p6*p5p8)
6046       ans5=16*(p6p7*p5p8)*(-fb3*hbcm2+fb4*fmb*hbcm+fb4*fmc*hbcm)+16*(
6047      . p6p7*p1p8)*(fb3*hbcm2-fb4*fmb*hbcm-fb4*fmc*hbcm)+4*(p6p8*p3p7)
6048      . *(4*fb3*fmb*fmc+4*fb3*fmb2-4*fb4*ffmcfmb*fmb*hbcm-4*fb4*
6049      . ffmcfmb*fmc*hbcm-fmb*hbcm-fmc*hbcm)+4*(p7p8*p3p6)*(-4*fb3*fmb*
6050      . fmc-4*fb3*fmb2-4*fb4*ffmcfmb*fmb*hbcm-4*fb4*ffmcfmb*fmc*hbcm+4
6051      . *fb4*fmb*hbcm+4*fb4*fmc*hbcm-fmb*hbcm-fmc*hbcm)+4*(p7p8*p5p6)*
6052      . (-4*fb3*ffmcfmb*hbcm2+4*fb3*hbcm2+4*fb4*fmb*hbcm-3*hbcm2)+32*(
6053      . p6p7*p4p8)*(-fb3*ffmcfmb*hbcm2+fb3*hbcm2)+16*(p6p8*p4p7)*(2*
6054      . fb3*ffmcfmb*hbcm2-2*fb3*hbcm2-fb4*fmb*hbcm-fb4*fmc*hbcm)+4*(
6055      . p7p8*p4p6)*(-4*fb3*ffmcfmb*hbcm2+4*fb3*hbcm2+4*fb4*fmb*hbcm-3*
6056      . hbcm2)+32*(p6p7*p2p8)*(fb3*ffmcfmb*hbcm2-fb4*fmb*hbcm-fb4*fmc*
6057      . hbcm)+ans6
6058       ans1=w1*(8*(p4p8*p4p7*p3p6)*(fmb*hbcm+fmc*hbcm-hbcm2)+8*(p6p7*
6059      . p4p8*p3p5)*(-fmb*hbcm-fmc*hbcm)+8*(p6p7*p4p8*p2p3)*(-fmb*hbcm-
6060      . fmc*hbcm+2*hbcm2)+8*(p6p7*p4p8*p1p3)*(fmb*hbcm+fmc*hbcm)+8*(
6061      . p5p6*p4p8*p3p7)*(3*ffmcfmb*hbcm2-fmb*hbcm-hbcm2)+8*(p4p8*p4p6*
6062      . p3p7)*(3*ffmcfmb*hbcm2-fmb*hbcm-hbcm2)+4*(p6p7*p4p8)*(2*
6063      . ffmcfmb*fmb*hbcm3+2*ffmcfmb*fmc*hbcm3-2*fmb*hbcm3-fmb2*hbcm2-2
6064      . *fmc*hbcm3+fmc2*hbcm2+hbcm4)+8*(p4p8*p3p7*p3p6)*(2*ffmcfmb*fmb
6065      . *hbcm+2*ffmcfmb*fmc*hbcm-fmb*hbcm-fmc*hbcm)+8*(hbcm2*p1p5*p4p8
6066      . *p6p7+2*hbcm2*p2p4*p4p8*p6p7+hbcm2*p3p4*p4p8*p6p7+hbcm2*p4p6*
6067      . p4p7*p4p8-hbcm2*p4p6*p4p8*p5p7+hbcm2*p4p7*p4p8*p5p6-hbcm2*p4p8
6068      . *p5p6*p5p7))+ans2+ans5
6069       ans=ccc*ans1
6070       b(10)=ans
6071       b(11)=ccc*(w1*(2*p4p8*(-2*ffmcfmb*hbcm3+fmb2*hbcm-fmc2*hbcm+
6072      . hbcm3)+4*(-2*hbcm*p1p2*p4p8-hbcm*p1p3*p4p8-hbcm*p1p5*p4p8+hbcm
6073      . *p2p3*p4p8+2*hbcm*p2p5*p4p8-hbcm*p3p4*p4p8+hbcm*p3p5*p4p8))+
6074      . w15*(2*p5p8*(2*ffmcfmb*hbcm3-fmb2*hbcm+fmc2*hbcm-hbcm3)+2*p1p8
6075      . *(-2*ffmcfmb*hbcm3+fmb2*hbcm-fmc2*hbcm+hbcm3)+4*(-2*hbcm*p1p2*
6076      . p1p8+2*hbcm*p1p2*p5p8-hbcm*p1p3*p1p8+hbcm*p1p3*p5p8-hbcm*p1p5*
6077      . p1p8+hbcm*p1p5*p5p8+hbcm*p1p8*p2p3+2*hbcm*p1p8*p2p5-hbcm*p1p8*
6078      . p3p4+hbcm*p1p8*p3p5-hbcm*p2p3*p5p8-2*hbcm*p2p5*p5p8+hbcm*p3p4*
6079      . p5p8-hbcm*p3p5*p5p8))+(8*p4p8*(-fb3*fmb+fb3*fmc+fb4*hbcm)+16*
6080      . p2p8*(fb3*fmb-fb3*fmc-fb4*hbcm)))
6081       b(12)=4*ccc*(-2*fb3*ffmcfmb*hbcm2+fb3*fmb2-fb3*fmc2+fb3*hbcm2-4
6082      . *fb3*p1p2-2*fb3*p1p3-2*fb3*p1p5+2*fb3*p2p3+4*fb3*p2p5-2*fb3*
6083      . p3p4+2*fb3*p3p5)
6084       ans2=(8*p4p8*(fb3*hbcm2+fb4*fmb*hbcm+fb4*fmc*hbcm)+16*p2p8*(fb3
6085      . *ffmcfmb*hbcm2-fb3*hbcm2-fb4*fmb*hbcm-fb4*fmc*hbcm)+16*(fb3*
6086      . ffmcfmb*hbcm2*p1p8-fb3*ffmcfmb*hbcm2*p5p8+2*fb3*p1p3*p2p8-fb3*
6087      . p1p3*p4p8-2*fb3*p1p8*p2p3+fb3*p1p8*p3p4-fb3*p2p3*p4p8+2*fb3*
6088      . p2p3*p5p8+fb3*p2p8*p3p4-2*fb3*p2p8*p3p5-fb3*p3p4*p5p8+fb3*p3p5
6089      . *p4p8))
6090       ans1=w1*(4*(p4p8*p3p4)*(-fmb*hbcm-fmc*hbcm)+4*(p4p8*p2p3)*(2*
6091      . fmb*hbcm+2*fmc*hbcm-hbcm2)+2*p4p8*(-2*ffmcfmb*fmb*hbcm3-2*
6092      . ffmcfmb*fmc*hbcm3+fmb2*hbcm2-fmc2*hbcm2+hbcm4)+4*(-2*hbcm2*
6093      . p1p2*p4p8-hbcm2*p1p3*p4p8-hbcm2*p1p5*p4p8+2*hbcm2*p2p5*p4p8+
6094      . hbcm2*p3p5*p4p8))+w15*(4*(p5p8*p3p4)*(fmb*hbcm+fmc*hbcm)+4*(
6095      . p5p8*p2p3)*(-2*fmb*hbcm-2*fmc*hbcm+hbcm2)+4*(p3p4*p1p8)*(-fmb*
6096      . hbcm-fmc*hbcm)+4*(p2p3*p1p8)*(2*fmb*hbcm+2*fmc*hbcm-hbcm2)+2*
6097      . p5p8*(2*ffmcfmb*fmb*hbcm3+2*ffmcfmb*fmc*hbcm3-fmb2*hbcm2+fmc2*
6098      . hbcm2-hbcm4)+2*p1p8*(-2*ffmcfmb*fmb*hbcm3-2*ffmcfmb*fmc*hbcm3+
6099      . fmb2*hbcm2-fmc2*hbcm2+hbcm4)+4*(-2*hbcm2*p1p2*p1p8+2*hbcm2*
6100      . p1p2*p5p8-hbcm2*p1p3*p1p8+hbcm2*p1p3*p5p8-hbcm2*p1p5*p1p8+
6101      . hbcm2*p1p5*p5p8+2*hbcm2*p1p8*p2p5+hbcm2*p1p8*p3p5-2*hbcm2*p2p5
6102      . *p5p8-hbcm2*p3p5*p5p8))+ans2
6103       ans=ccc*ans1
6104       b(13)=ans
6105       b(14)=ccc*(8*p3p4*(fb3*fmb-fb3*fmc)+8*p2p3*(-2*fb3*fmb+2*fb3*
6106      . fmc+fb4*hbcm)+4*(2*fb3*ffmcfmb*fmb*hbcm2-2*fb3*ffmcfmb*fmc*
6107      . hbcm2-fb4*fmb2*hbcm+fb4*fmc2*hbcm+4*fb4*hbcm*p1p2+2*fb4*hbcm*
6108      . p1p3+2*fb4*hbcm*p1p5-4*fb4*hbcm*p2p5-2*fb4*hbcm*p3p5-fb4*hbcm3
6109      . ))
6110       b(15)=ccc*(w1*(4*(p4p8*p3p6)*(3*fmb*hbcm+3*fmc*hbcm-hbcm2)+8*(
6111      . hbcm2*p4p6*p4p8+hbcm2*p4p8*p5p6))+w15*(4*(p5p8*p3p6)*(-3*fmb*
6112      . hbcm-3*fmc*hbcm+hbcm2)+4*(p3p6*p1p8)*(3*fmb*hbcm+3*fmc*hbcm-
6113      . hbcm2)+8*(hbcm2*p1p8*p4p6+hbcm2*p1p8*p5p6-hbcm2*p4p6*p5p8-
6114      . hbcm2*p5p6*p5p8))+(8*p6p8*(2*fb3*ffmcfmb*hbcm2+fb3*hbcm2-3*fb4
6115      . *fmb*hbcm-3*fb4*fmc*hbcm)+16*(fb3*p1p3*p6p8-fb3*p1p8*p3p6-fb3*
6116      . p2p3*p6p8+fb3*p2p8*p3p6+3*fb3*p3p4*p6p8-fb3*p3p5*p6p8-3*fb3*
6117      . p3p6*p4p8+fb3*p3p6*p5p8)))
6118       b(16)=ccc*(8*w1*(-hbcm*p3p6*p4p8-hbcm*p4p6*p4p8-hbcm*p4p8*p5p6)
6119      . +8*w15*(-hbcm*p1p8*p3p6-hbcm*p1p8*p4p6-hbcm*p1p8*p5p6+hbcm*
6120      . p3p6*p5p8+hbcm*p4p6*p5p8+hbcm*p5p6*p5p8)+24*p6p8*(-fb3*fmb+fb3
6121      . *fmc+fb4*hbcm))
6122       b(17)=ccc*(w1*(2*p4p8*(2*ffmcfmb*hbcm3-3*fmb*hbcm2+3*fmc*hbcm2-
6123      . 3*hbcm3)+4*(3*hbcm*p1p3*p4p8+hbcm*p2p3*p4p8+hbcm*p3p4*p4p8-3*
6124      . hbcm*p3p5*p4p8))+w15*(2*p5p8*(-2*ffmcfmb*hbcm3+3*fmb*hbcm2-3*
6125      . fmc*hbcm2+3*hbcm3)+2*p1p8*(2*ffmcfmb*hbcm3-3*fmb*hbcm2+3*fmc*
6126      . hbcm2-3*hbcm3)+4*(3*hbcm*p1p3*p1p8-3*hbcm*p1p3*p5p8+hbcm*p1p8*
6127      . p2p3+hbcm*p1p8*p3p4-3*hbcm*p1p8*p3p5-hbcm*p2p3*p5p8-hbcm*p3p4*
6128      . p5p8+3*hbcm*p3p5*p5p8))+8*(-3*fb4*hbcm*p1p8-fb4*hbcm*p2p8-fb4*
6129      . hbcm*p4p8+3*fb4*hbcm*p5p8))
6130       b(18)=ccc*(w1*(4*(p4p8*p3p7)*(-3*ffmcfmb*hbcm2-fmb*hbcm-2*fmc*
6131      . hbcm+2*hbcm2)+4*(-hbcm2*p4p7*p4p8-hbcm2*p4p8*p5p7))+w15*(4*(
6132      . p5p8*p3p7)*(3*ffmcfmb*hbcm2+fmb*hbcm+2*fmc*hbcm-2*hbcm2)+4*(
6133      . p3p7*p1p8)*(-3*ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm+2*hbcm2)+4*(-
6134      . hbcm2*p1p8*p4p7-hbcm2*p1p8*p5p7+hbcm2*p4p7*p5p8+hbcm2*p5p7*
6135      . p5p8))+(2*p7p8*(-4*fb3*ffmcfmb*hbcm2+4*fb3*hbcm2+4*fb4*fmb*
6136      . hbcm+8*fb4*fmc*hbcm+3*hbcm2)+16*(-fb3*p1p3*p7p8+fb3*p1p8*p3p7-
6137      . fb3*p2p3*p7p8+fb3*p2p8*p3p7-fb3*p3p4*p7p8+fb3*p3p5*p7p8+fb3*
6138      . p3p7*p4p8-fb3*p3p7*p5p8)))
6139       b(19)=ccc*(6*w1*p4p8*(-fmb*hbcm-fmc*hbcm+hbcm2)+w15*(6*p5p8*(
6140      . fmb*hbcm+fmc*hbcm-hbcm2)+6*p1p8*(-fmb*hbcm-fmc*hbcm+hbcm2))+8*
6141      . (3*fb3*p1p8+fb3*p2p8+fb3*p4p8-3*fb3*p5p8))
6142       b(20)=ccc*(8*w1*(-ffmcfmb*hbcm*p3p7*p4p8-hbcm*p4p8*p5p7)+8*w15*
6143      . (-ffmcfmb*hbcm*p1p8*p3p7+ffmcfmb*hbcm*p3p7*p5p8-hbcm*p1p8*p5p7
6144      . +hbcm*p5p7*p5p8)+2*p7p8*(-4*fb3*fmb+8*fb3*fmc+4*fb4*ffmcfmb*
6145      . hbcm+4*fb4*hbcm+hbcm))
6146       b(21)=12*ccc*(-fb3*fmb+fb3*fmc+fb4*hbcm)
6147       b(22)=4*ccc*(-2*fb3*ffmcfmb*hbcm2+3*fb3*hbcm2-6*fb3*p1p3-2*fb3*
6148      . p2p3-2*fb3*p3p4+6*fb3*p3p5+3*fb4*fmb*hbcm+3*fb4*fmc*hbcm)
6149       b(23)=ccc*(2*p3p7*(4*fb3*fmb-8*fb3*fmc+4*fb4*ffmcfmb*hbcm-4*fb4
6150      . *hbcm+hbcm)+16*fb4*hbcm*p5p7)
6151       b(24)=ccc*(8*p3p6*(3*fb3*fmb-3*fb3*fmc-fb4*hbcm)+16*(fb4*hbcm*
6152      . p4p6+fb4*hbcm*p5p6))
6153       b(25)=ccc*(2*p3p7*(-4*fb3*fmc+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm+
6154      . hbcm)+8*p4p7*(fb3*fmb-fb3*fmc)-8*fb4*hbcm*p5p7)
6155       b(26)=ccc*(8*p5p6*(fb3*fmb-fb3*fmc-fb4*hbcm)+8*p4p6*(fb3*fmb-
6156      . fb3*fmc-fb4*hbcm)+8*p3p6*(fb3*fmb-fb3*fmc-fb4*hbcm))
6157       b(27)=ccc*(8*p6p7*(-2*fb3*ffmcfmb*hbcm2-fb3*hbcm2+3*fb4*fmb*
6158      . hbcm+3*fb4*fmc*hbcm)+16*(-fb3*p1p3*p6p7+fb3*p2p3*p6p7-3*fb3*
6159      . p3p4*p6p7+fb3*p3p5*p6p7+2*fb3*p3p6*p3p7+3*fb3*p3p6*p4p7-fb3*
6160      . p3p6*p5p7+fb3*p3p7*p4p6+fb3*p3p7*p5p6))
6161       b(28)=ccc*(12*w1*(p6p7*p4p8)*(fmb*hbcm+fmc*hbcm-hbcm2)+w15*(12*
6162      . (p6p7*p5p8)*(-fmb*hbcm-fmc*hbcm+hbcm2)+12*(p6p7*p1p8)*(fmb*
6163      . hbcm+fmc*hbcm-hbcm2))+16*(-fb3*p1p8*p6p7+fb3*p2p8*p6p7+fb3*
6164      . p3p6*p7p8+fb3*p3p7*p6p8+fb3*p4p6*p7p8+3*fb3*p4p7*p6p8-3*fb3*
6165      . p4p8*p6p7+fb3*p5p6*p7p8-fb3*p5p7*p6p8+fb3*p5p8*p6p7))
6166       b(29)=16*ccc*(fb3*p3p6+fb3*p4p6+fb3*p5p6)
6167       b(30)=8*ccc*(fb3*p3p7-fb3*p4p7+3*fb3*p5p7)
6168       ans1=(w1*(4*(p6p7*p4p8)*(2*ffmcfmb*hbcm3-3*fmb*hbcm2+3*fmc*
6169      . hbcm2+hbcm3)+8*(p4p8*p3p7*p3p6)*(2*ffmcfmb*hbcm-3*hbcm)+8*(
6170      . hbcm*p1p3*p4p8*p6p7-hbcm*p2p3*p4p8*p6p7+3*hbcm*p3p4*p4p8*p6p7-
6171      . hbcm*p3p5*p4p8*p6p7-2*hbcm*p3p6*p4p7*p4p8-hbcm*p3p7*p4p6*p4p8-
6172      . hbcm*p3p7*p4p8*p5p6))+w15*(4*(p6p7*p5p8)*(-2*ffmcfmb*hbcm3+3*
6173      . fmb*hbcm2-3*fmc*hbcm2-hbcm3)+4*(p6p7*p1p8)*(2*ffmcfmb*hbcm3-3*
6174      . fmb*hbcm2+3*fmc*hbcm2+hbcm3)+8*(p5p8*p3p7*p3p6)*(-2*ffmcfmb*
6175      . hbcm+3*hbcm)+8*(p3p7*p3p6*p1p8)*(2*ffmcfmb*hbcm-3*hbcm)+8*(
6176      . hbcm*p1p3*p1p8*p6p7-hbcm*p1p3*p5p8*p6p7-hbcm*p1p8*p2p3*p6p7+3*
6177      . hbcm*p1p8*p3p4*p6p7-hbcm*p1p8*p3p5*p6p7-2*hbcm*p1p8*p3p6*p4p7-
6178      . hbcm*p1p8*p3p7*p4p6-hbcm*p1p8*p3p7*p5p6+hbcm*p2p3*p5p8*p6p7-3*
6179      . hbcm*p3p4*p5p8*p6p7+hbcm*p3p5*p5p8*p6p7+2*hbcm*p3p6*p4p7*p5p8+
6180      . hbcm*p3p7*p4p6*p5p8+hbcm*p3p7*p5p6*p5p8))+(4*(p6p8*p3p7)*(-4*
6181      . fb3*fmb+8*fb3*fmc-4*fb4*ffmcfmb*hbcm+12*fb4*hbcm-hbcm)+4*(p7p8
6182      . *p3p6)*(4*fb3*fmb-8*fb3*fmc-4*fb4*ffmcfmb*hbcm-hbcm)+16*(-fb4*
6183      . hbcm*p1p8*p6p7+fb4*hbcm*p2p8*p6p7+fb4*hbcm*p4p6*p7p8+2*fb4*
6184      . hbcm*p4p7*p6p8-3*fb4*hbcm*p4p8*p6p7+fb4*hbcm*p5p6*p7p8+fb4*
6185      . hbcm*p5p8*p6p7)))
6186       ans=ccc*ans1
6187       b(31)=ans
6188       b(32)=24*ccc*p6p7*(-fb3*fmb+fb3*fmc+fb4*hbcm)
6189       do 200 n=1,32
6190          c(n,1)=c(n,1)-0.8181818181818182d0*b(n)
6191          c(n,2)=c(n,2)+0.1512818716977898d0*b(n)
6192          c(n,3)=c(n,3)+0.1869893980016914d0*b(n)
6193 200   continue
6194       return
6195         end
6196
6197       subroutine amp30_1p1(cc)
6198       implicit double precision(a-h,o-z)
6199       implicit integer (i-n)
6200       dimension b(32)
6201 #include "inclcon.h"
6202 #include "inclppp.h"
6203 #include "inclamp.h"
6204       do 100 n=1,32
6205          b(n)=0.0d0
6206 100   continue
6207       ccc=cc/((-2*p1p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*
6208      . p3p5+fmb2+hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3+2*
6209      . ffmcfmb*p3p4+fmc2-2*p1p4))
6210       ans=ccc*(w2*(4*(p5p8*p5p7)*(fmb*hbcm+fmc*hbcm-2*hbcm2)+4*(p5p8*
6211      . p3p7)*(-2*ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*hbcm+3*ffmcfmb*hbcm2+
6212      . fmb*hbcm+2*fmc*hbcm-2*hbcm2)+4*hbcm2*p4p7*p5p8)+w5*(4*(p5p7*
6213      . p4p8)*(-fmb*hbcm-fmc*hbcm+2*hbcm2)+4*(p5p7*p1p8)*(fmb*hbcm+fmc
6214      . *hbcm-2*hbcm2)+4*(p4p8*p3p7)*(2*ffmcfmb*fmb*hbcm+2*ffmcfmb*fmc
6215      . *hbcm-3*ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm+2*hbcm2)+4*(p3p7*
6216      . p1p8)*(-2*ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*hbcm+3*ffmcfmb*hbcm2+
6217      . fmb*hbcm+2*fmc*hbcm-2*hbcm2)+4*(hbcm2*p1p8*p4p7-hbcm2*p4p7*
6218      . p4p8))+(2*p7p8*(-4*fb3*ffmcfmb*hbcm2-4*fb3*fmb*fmc-4*fb3*fmc2-
6219      . 4*fb4*ffmcfmb*fmb*hbcm-4*fb4*ffmcfmb*fmc*hbcm+4*fb4*fmc*hbcm-
6220      . fmb*hbcm-fmc*hbcm+3*hbcm2)+16*(fb3*p1p3*p7p8+fb3*p1p4*p7p8-fb3
6221      . *p1p8*p3p7-fb3*p1p8*p5p7+fb3*p2p5*p7p8+fb3*p2p8*p3p7+fb3*p2p8*
6222      . p5p7-fb3*p3p4*p7p8+fb3*p3p7*p4p8-fb3*p4p7*p5p8+fb3*p4p8*p5p7))
6223      . )
6224       b(3)=ans
6225       b(4)=ccc*(2*p3p7*(4*fb3*fmb*fmc+4*fb3*fmc2-4*fb4*ffmcfmb*fmb*
6226      . hbcm-4*fb4*ffmcfmb*fmc*hbcm+4*fb4*fmb*hbcm+4*fb4*fmc*hbcm-fmb*
6227      . hbcm-fmc*hbcm)+8*p5p7*(-2*fb3*ffmcfmb*hbcm2+fb4*fmb*hbcm+fb4*
6228      . fmc*hbcm)+8*(fb3*hbcm2*p4p7+2*fb3*p1p3*p5p7-2*fb3*p1p4*p3p7-2*
6229      . fb3*p2p3*p4p7+4*fb3*p2p3*p5p7-2*fb3*p2p5*p3p7-2*fb3*p3p4*p5p7+
6230      . 2*fb3*p3p5*p4p7))
6231       ans3=(4*(p5p8*p3p7)*(4*fb3*fmc-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm-
6232      . hbcm)+4*(p7p8*p3p5)*(-4*fb3*fmc-4*fb4*ffmcfmb*hbcm-hbcm)+4*(
6233      . p3p7*p2p8)*(-4*fb3*fmc+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm+hbcm)+4*(
6234      . p7p8*p2p3)*(4*fb3*fmc+4*fb4*ffmcfmb*hbcm+hbcm)+16*(p4p8*p3p7)*
6235      . (-fb3*fmb+fb3*fmc)+16*(p7p8*p3p4)*(fb3*fmb-fb3*fmc)+16*(p3p7*
6236      . p1p8)*(fb3*fmb-fb3*fmc)+16*(p7p8*p1p3)*(-fb3*fmb+fb3*fmc)+2*
6237      . p7p8*(4*fb3*ffmcfmb*fmb*hbcm2-4*fb3*ffmcfmb*fmc*hbcm2-4*fb3*
6238      . fmc*hbcm2-4*fb4*ffmcfmb*hbcm3-4*fb4*fmb*fmc*hbcm+4*fb4*fmc2*
6239      . hbcm-3*fmb*hbcm2+3*fmc*hbcm2-hbcm3)+16*(-fb4*hbcm*p1p4*p7p8+
6240      . fb4*hbcm*p1p8*p5p7-fb4*hbcm*p2p5*p7p8+fb4*hbcm*p2p8*p5p7-fb4*
6241      . hbcm*p4p8*p5p7+fb4*hbcm*p5p7*p5p8))
6242       ans2=w5*(4*(p4p8*p4p7)*(fmb*hbcm2-fmc*hbcm2)+4*(p4p7*p1p8)*(-
6243      . fmb*hbcm2+fmc*hbcm2)+4*(p5p7*p4p8)*(2*ffmcfmb*hbcm3-2*fmb*
6244      . hbcm2+2*fmc*hbcm2-hbcm3)+4*(p5p7*p1p8)*(-2*ffmcfmb*hbcm3+2*fmb
6245      . *hbcm2-2*fmc*hbcm2+hbcm3)+8*(p4p8*p3p7*p3p5)*(2*ffmcfmb*hbcm-
6246      . hbcm)+8*(p4p8*p3p7*p2p3)*(-2*ffmcfmb*hbcm+hbcm)+8*(p3p7*p3p5*
6247      . p1p8)*(-2*ffmcfmb*hbcm+hbcm)+8*(p3p7*p2p3*p1p8)*(2*ffmcfmb*
6248      . hbcm-hbcm)+4*(p4p8*p3p7)*(3*ffmcfmb*fmb*hbcm2-3*ffmcfmb*fmc*
6249      . hbcm2+2*ffmcfmb*hbcm3+fmb*fmc*hbcm-2*fmb*hbcm2+2*fmc*hbcm2-
6250      . fmc2*hbcm-hbcm3)+4*(p3p7*p1p8)*(-3*ffmcfmb*fmb*hbcm2+3*ffmcfmb
6251      . *fmc*hbcm2-2*ffmcfmb*hbcm3-fmb*fmc*hbcm+2*fmb*hbcm2-2*fmc*
6252      . hbcm2+fmc2*hbcm+hbcm3)+8*(hbcm*p1p3*p1p8*p5p7-hbcm*p1p3*p4p8*
6253      . p5p7-hbcm*p1p4*p1p8*p3p7+hbcm*p1p4*p3p7*p4p8+hbcm*p1p8*p2p3*
6254      . p5p7-hbcm*p1p8*p2p5*p3p7-hbcm*p1p8*p3p4*p5p7+hbcm*p1p8*p3p5*
6255      . p5p7-hbcm*p2p3*p4p8*p5p7+hbcm*p2p5*p3p7*p4p8+hbcm*p3p4*p4p8*
6256      . p5p7-hbcm*p3p5*p4p8*p5p7))+ans3
6257       ans1=w2*(4*(p5p8*p4p7)*(-fmb*hbcm2+fmc*hbcm2)+4*(p5p8*p5p7)*(-2
6258      . *ffmcfmb*hbcm3+2*fmb*hbcm2-2*fmc*hbcm2+hbcm3)+8*(p5p8*p3p7*
6259      . p3p5)*(-2*ffmcfmb*hbcm+hbcm)+8*(p5p8*p3p7*p2p3)*(2*ffmcfmb*
6260      . hbcm-hbcm)+4*(p5p8*p3p7)*(-3*ffmcfmb*fmb*hbcm2+3*ffmcfmb*fmc*
6261      . hbcm2-2*ffmcfmb*hbcm3-fmb*fmc*hbcm+2*fmb*hbcm2-2*fmc*hbcm2+
6262      . fmc2*hbcm+hbcm3)+8*(hbcm*p1p3*p5p7*p5p8-hbcm*p1p4*p3p7*p5p8+
6263      . hbcm*p2p3*p5p7*p5p8-hbcm*p2p5*p3p7*p5p8-hbcm*p3p4*p5p7*p5p8+
6264      . hbcm*p3p5*p5p7*p5p8))+ans2
6265       ans=ccc*ans1
6266       b(5)=ans
6267       b(11)=ccc*(w2*(2*p5p8*(-2*ffmcfmb*hbcm3+fmb2*hbcm-fmc2*hbcm+
6268      . hbcm3)+4*(hbcm*p1p3*p5p8+hbcm*p1p4*p5p8+hbcm*p2p3*p5p8+2*hbcm*
6269      . p2p5*p5p8-hbcm*p3p4*p5p8+hbcm*p3p5*p5p8))+w5*(2*p4p8*(2*
6270      . ffmcfmb*hbcm3-fmb2*hbcm+fmc2*hbcm-hbcm3)+2*p1p8*(-2*ffmcfmb*
6271      . hbcm3+fmb2*hbcm-fmc2*hbcm+hbcm3)+4*(hbcm*p1p3*p1p8-hbcm*p1p3*
6272      . p4p8+hbcm*p1p4*p1p8-hbcm*p1p4*p4p8+hbcm*p1p8*p2p3+2*hbcm*p1p8*
6273      . p2p5-hbcm*p1p8*p3p4+hbcm*p1p8*p3p5-hbcm*p2p3*p4p8-2*hbcm*p2p5*
6274      . p4p8+hbcm*p3p4*p4p8-hbcm*p3p5*p4p8))+(8*p4p8*(fb3*fmb-fb3*fmc-
6275      . fb4*hbcm)+16*p2p8*(-fb3*fmb+fb3*fmc+fb4*hbcm)+8*p1p8*(-fb3*fmb
6276      . +fb3*fmc+fb4*hbcm)))
6277       b(12)=4*ccc*(2*fb3*ffmcfmb*hbcm2-fb3*fmb2+fb3*fmc2-fb3*hbcm2-2*
6278      . fb3*p1p3-2*fb3*p1p4-2*fb3*p2p3-4*fb3*p2p5+2*fb3*p3p4-2*fb3*
6279      . p3p5)
6280       ans2=(8*p4p8*(-fb3*hbcm2-fb4*fmb*hbcm-fb4*fmc*hbcm)+8*p1p8*(fb3
6281      . *hbcm2+fb4*fmb*hbcm+fb4*fmc*hbcm)+16*p2p8*(-fb3*ffmcfmb*hbcm2+
6282      . fb3*hbcm2+fb4*fmb*hbcm+fb4*fmc*hbcm)+16*(fb3*ffmcfmb*hbcm2*
6283      . p5p8+fb3*p1p3*p2p8-fb3*p1p3*p5p8-fb3*p1p8*p2p3+fb3*p1p8*p3p5+
6284      . fb3*p2p3*p4p8-2*fb3*p2p3*p5p8-fb3*p2p8*p3p4+2*fb3*p2p8*p3p5+
6285      . fb3*p3p4*p5p8-fb3*p3p5*p4p8))
6286       ans1=w2*(4*(p5p8*p3p4)*(-fmb*hbcm-fmc*hbcm)+4*(p5p8*p2p3)*(2*
6287      . fmb*hbcm+2*fmc*hbcm-hbcm2)+4*(p5p8*p1p3)*(fmb*hbcm+fmc*hbcm)+2
6288      . *p5p8*(-2*ffmcfmb*fmb*hbcm3-2*ffmcfmb*fmc*hbcm3+fmb2*hbcm2-
6289      . fmc2*hbcm2+hbcm4)+4*(hbcm2*p1p4*p5p8+2*hbcm2*p2p5*p5p8+hbcm2*
6290      . p3p5*p5p8))+w5*(4*(p4p8*p3p4)*(fmb*hbcm+fmc*hbcm)+4*(p4p8*p2p3
6291      . )*(-2*fmb*hbcm-2*fmc*hbcm+hbcm2)+4*(p3p4*p1p8)*(-fmb*hbcm-fmc*
6292      . hbcm)+4*(p2p3*p1p8)*(2*fmb*hbcm+2*fmc*hbcm-hbcm2)+4*(p4p8*p1p3
6293      . )*(-fmb*hbcm-fmc*hbcm)+4*(p1p8*p1p3)*(fmb*hbcm+fmc*hbcm)+2*
6294      . p4p8*(2*ffmcfmb*fmb*hbcm3+2*ffmcfmb*fmc*hbcm3-fmb2*hbcm2+fmc2*
6295      . hbcm2-hbcm4)+2*p1p8*(-2*ffmcfmb*fmb*hbcm3-2*ffmcfmb*fmc*hbcm3+
6296      . fmb2*hbcm2-fmc2*hbcm2+hbcm4)+4*(hbcm2*p1p4*p1p8-hbcm2*p1p4*
6297      . p4p8+2*hbcm2*p1p8*p2p5+hbcm2*p1p8*p3p5-2*hbcm2*p2p5*p4p8-hbcm2
6298      . *p3p5*p4p8))+ans2
6299       ans=ccc*ans1
6300       b(13)=ans
6301       b(14)=ccc*(8*p3p4*(-fb3*fmb+fb3*fmc)+8*p2p3*(2*fb3*fmb-2*fb3*
6302      . fmc-fb4*hbcm)+8*p1p3*(fb3*fmb-fb3*fmc)+4*(-2*fb3*ffmcfmb*fmb*
6303      . hbcm2+2*fb3*ffmcfmb*fmc*hbcm2+fb4*fmb2*hbcm-fb4*fmc2*hbcm+2*
6304      . fb4*hbcm*p1p4+4*fb4*hbcm*p2p5+2*fb4*hbcm*p3p5+fb4*hbcm3))
6305       b(17)=ccc*(w2*(2*p5p8*(2*ffmcfmb*hbcm3-3*fmb*hbcm2+3*fmc*hbcm2-
6306      . 3*hbcm3)+4*(-hbcm*p1p3*p5p8+hbcm*p2p3*p5p8+hbcm*p3p4*p5p8-3*
6307      . hbcm*p3p5*p5p8))+w5*(2*p4p8*(-2*ffmcfmb*hbcm3+3*fmb*hbcm2-3*
6308      . fmc*hbcm2+3*hbcm3)+2*p1p8*(2*ffmcfmb*hbcm3-3*fmb*hbcm2+3*fmc*
6309      . hbcm2-3*hbcm3)+4*(-hbcm*p1p3*p1p8+hbcm*p1p3*p4p8+hbcm*p1p8*
6310      . p2p3+hbcm*p1p8*p3p4-3*hbcm*p1p8*p3p5-hbcm*p2p3*p4p8-hbcm*p3p4*
6311      . p4p8+3*hbcm*p3p5*p4p8))+8*(-fb4*hbcm*p1p8+fb4*hbcm*p2p8+fb4*
6312      . hbcm*p4p8-3*fb4*hbcm*p5p8))
6313       b(18)=ccc*(w2*(4*(p5p8*p3p7)*(-3*ffmcfmb*hbcm2-fmb*hbcm-2*fmc*
6314      . hbcm+2*hbcm2)+4*(-hbcm2*p4p7*p5p8-hbcm2*p5p7*p5p8))+w5*(4*(
6315      . p4p8*p3p7)*(3*ffmcfmb*hbcm2+fmb*hbcm+2*fmc*hbcm-2*hbcm2)+4*(
6316      . p3p7*p1p8)*(-3*ffmcfmb*hbcm2-fmb*hbcm-2*fmc*hbcm+2*hbcm2)+4*(-
6317      . hbcm2*p1p8*p4p7-hbcm2*p1p8*p5p7+hbcm2*p4p7*p4p8+hbcm2*p4p8*
6318      . p5p7))+(2*p7p8*(4*fb3*ffmcfmb*hbcm2-4*fb3*hbcm2-4*fb4*fmb*hbcm
6319      . -8*fb4*fmc*hbcm-3*hbcm2)+16*(-fb3*p1p3*p7p8+fb3*p1p8*p3p7+fb3*
6320      . p2p3*p7p8-fb3*p2p8*p3p7+fb3*p3p4*p7p8-fb3*p3p5*p7p8-fb3*p3p7*
6321      . p4p8+fb3*p3p7*p5p8)))
6322       b(19)=ccc*(6*w2*p5p8*(-fmb*hbcm-fmc*hbcm+hbcm2)+w5*(6*p4p8*(fmb
6323      . *hbcm+fmc*hbcm-hbcm2)+6*p1p8*(-fmb*hbcm-fmc*hbcm+hbcm2))+8*(
6324      . fb3*p1p8-fb3*p2p8-fb3*p4p8+3*fb3*p5p8))
6325       b(20)=ccc*(8*w2*(-ffmcfmb*hbcm*p3p7*p5p8-hbcm*p5p7*p5p8)+8*w5*(
6326      . -ffmcfmb*hbcm*p1p8*p3p7+ffmcfmb*hbcm*p3p7*p4p8-hbcm*p1p8*p5p7+
6327      . hbcm*p4p8*p5p7)+2*p7p8*(4*fb3*fmb-8*fb3*fmc-4*fb4*ffmcfmb*hbcm
6328      . -4*fb4*hbcm-hbcm))
6329       b(21)=12*ccc*(fb3*fmb-fb3*fmc-fb4*hbcm)
6330       b(22)=4*ccc*(2*fb3*ffmcfmb*hbcm2-3*fb3*hbcm2-2*fb3*p1p3+2*fb3*
6331      . p2p3+2*fb3*p3p4-6*fb3*p3p5-3*fb4*fmb*hbcm-3*fb4*fmc*hbcm)
6332       b(23)=ccc*(2*p3p7*(-4*fb3*fmb+8*fb3*fmc-4*fb4*ffmcfmb*hbcm+4*
6333      . fb4*hbcm-hbcm)-16*fb4*hbcm*p5p7)
6334       b(25)=ccc*(2*p3p7*(4*fb3*fmc-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm-hbcm
6335      . )+8*p4p7*(-fb3*fmb+fb3*fmc)+8*fb4*hbcm*p5p7)
6336       b(30)=8*ccc*(-fb3*p3p7+fb3*p4p7-3*fb3*p5p7)
6337       do 200 n=1,32
6338          c(n,2)=c(n,2)+0.8320502943378437d0*b(n)
6339          c(n,3)=c(n,3)-0.1869893980016914d0*b(n)
6340 200   continue
6341       return
6342         end
6343
6344       subroutine amp3_1p1(cc)
6345       implicit double precision(a-h,o-z)
6346       implicit integer (i-n)
6347       dimension b(26)
6348 #include "inclcon.h"
6349 #include "inclppp.h"
6350 #include "inclamp.h"
6351       do 100 n=1,26
6352          b(n)=0.0d0
6353 100   continue
6354       ccc=cc/((-2*p1p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*
6355      . p3p5+fmb2+hbcm2+2*p3p5)*(fmb2-fmc2+hbcm2+2*p3p5))
6356       b(3)=w2*ccc*(8*(p5p8*p5p7)*(-fmb*hbcm-fmc*hbcm+2*hbcm2)+8*(p5p8
6357      . *p3p7)*(-fmb*hbcm-fmc*hbcm+2*hbcm2))
6358       b(4)=ccc*(16*p5p7*(-fb4*fmb*hbcm-fb4*fmc*hbcm)+16*p3p7*(-fb4*
6359      . fmb*hbcm-fb4*fmc*hbcm))
6360       b(5)=ccc*(w2*(8*(p5p8*p5p7)*(-2*fmb*hbcm2+2*fmc*hbcm2-hbcm3)+8*
6361      . (p5p8*p3p7)*(-2*fmb*hbcm2+fmb2*hbcm+2*fmc*hbcm2-fmc2*hbcm)-16*
6362      . hbcm*p3p5*p5p7*p5p8)+(16*p7p8*(fb4*fmb2*hbcm-fb4*fmc2*hbcm+fb4
6363      . *hbcm3)+32*(-fb4*hbcm*p2p3*p7p8+fb4*hbcm*p2p8*p3p7+fb4*hbcm*
6364      . p3p5*p7p8-fb4*hbcm*p3p7*p5p8-fb4*hbcm*p5p7*p5p8)))
6365       b(11)=ccc*(w2*(4*p5p8*(-fmb2*hbcm+fmc2*hbcm-hbcm3)-8*hbcm*p3p5*
6366      . p5p8)-16*fb4*hbcm*p2p8)
6367       b(13)=ccc*(w2*(8*p5p8*(-fmb2*hbcm2+fmc2*hbcm2-hbcm4)+8*(p5p8*
6368      . p2p3)*(-fmb*hbcm-fmc*hbcm+2*hbcm2)-16*hbcm2*p3p5*p5p8)+16*p2p8
6369      . *(-fb4*fmb*hbcm-fb4*fmc*hbcm))
6370       b(14)=8*ccc*(-fb4*fmb2*hbcm+fb4*fmc2*hbcm+2*fb4*hbcm*p2p3-2*fb4
6371      . *hbcm*p3p5-fb4*hbcm3)
6372       b(17)=ccc*(w2*(4*p5p8*(2*fmb*hbcm2-2*fmc*hbcm2+hbcm3)+8*hbcm*
6373      . p3p5*p5p8)+16*fb4*hbcm*p5p8)
6374       b(18)=ccc*(8*w2*(p5p8*p3p7)*(fmb*hbcm+fmc*hbcm-2*hbcm2)+16*p7p8
6375      . *(fb4*fmb*hbcm+fb4*fmc*hbcm))
6376       b(19)=4*ccc*w2*p5p8*(fmb*hbcm+fmc*hbcm-2*hbcm2)
6377       b(20)=16*ccc*fb4*hbcm*p7p8
6378       b(21)=8*ccc*fb4*hbcm
6379       b(22)=8*ccc*(fb4*fmb*hbcm+fb4*fmc*hbcm)
6380       b(23)=-16*ccc*fb4*hbcm*p3p7
6381       b(25)=16*ccc*(-fb4*hbcm*p3p7-fb4*hbcm*p5p7)
6382       do 200 n=1,26
6383          c(n,2)=c(n,2)-0.7396002616336388d0*b(n)
6384          c(n,3)=c(n,3)+0.1662127982237257d0*b(n)
6385 200   continue
6386       return
6387         end
6388
6389       subroutine amp6_1p1(cc)
6390       implicit double precision(a-h,o-z)
6391       implicit integer (i-n)
6392       dimension b(32)
6393 #include "inclcon.h"
6394 #include "inclppp.h"
6395 #include "inclamp.h"
6396       do 100 n=1,32
6397          b(n)=0.0d0
6398 100   continue
6399       ccc=cc/((4*p1p5*p2p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p2p3+2*
6400      . ffmcfmb*p3p4+fmc2-2*p2p4))
6401       b(2)=ccc*(16*w11*(hbcm*p2p4*p2p8*p6p7-hbcm*p2p4*p4p8*p6p7+hbcm*
6402      . p2p8*p3p6*p4p7+hbcm*p2p8*p4p6*p4p7+hbcm*p2p8*p4p7*p5p6-hbcm*
6403      . p3p6*p4p7*p4p8-hbcm*p4p6*p4p7*p4p8-hbcm*p4p7*p4p8*p5p6)+32*fb4
6404      . *hbcm*p4p7*p6p8)
6405       b(3)=w11*ccc*(8*(p4p8*p4p7)*(-fmb*hbcm-fmc*hbcm+2*hbcm2)+8*(
6406      . p4p7*p2p8)*(fmb*hbcm+fmc*hbcm-2*hbcm2))
6407       b(4)=16*ccc*p4p7*(fb4*fmb*hbcm+fb4*fmc*hbcm)
6408       b(5)=ccc*(w11*(8*(p4p8*p4p7)*(-2*fmb*hbcm2+2*fmc*hbcm2-hbcm3)+8
6409      . *(p4p7*p2p8)*(2*fmb*hbcm2-2*fmc*hbcm2+hbcm3)+16*(-hbcm*p1p2*
6410      . p2p8*p3p7+hbcm*p1p2*p3p7*p4p8-hbcm*p1p3*p2p8*p4p7+hbcm*p1p3*
6411      . p4p7*p4p8-hbcm*p2p3*p2p8*p4p7-hbcm*p2p3*p2p8*p5p7+hbcm*p2p3*
6412      . p4p7*p4p8+hbcm*p2p3*p4p8*p5p7+hbcm*p2p5*p2p8*p3p7-hbcm*p2p5*
6413      . p3p7*p4p8+hbcm*p2p8*p3p5*p4p7-hbcm*p3p5*p4p7*p4p8))+32*(-fb4*
6414      . hbcm*p1p2*p7p8-fb4*hbcm*p1p8*p4p7+fb4*hbcm*p2p5*p7p8-fb4*hbcm*
6415      . p2p8*p4p7-fb4*hbcm*p2p8*p5p7+fb4*hbcm*p4p7*p5p8))
6416       b(8)=ccc*(16*w11*(-hbcm*p2p3*p2p8*p3p6-hbcm*p2p3*p2p8*p4p6-hbcm
6417      . *p2p3*p2p8*p5p6+hbcm*p2p3*p3p6*p4p8+hbcm*p2p3*p4p6*p4p8+hbcm*
6418      . p2p3*p4p8*p5p6-hbcm*p2p4*p2p8*p3p6+hbcm*p2p4*p3p6*p4p8)+32*(-
6419      . fb4*hbcm*p2p3*p6p8-fb4*hbcm*p2p4*p6p8-fb4*hbcm*p2p8*p4p6-fb4*
6420      . hbcm*p2p8*p5p6))
6421       b(9)=32*ccc*(fb4*hbcm*p2p4*p6p7+fb4*hbcm*p4p6*p4p7+fb4*hbcm*
6422      . p4p7*p5p6)
6423       b(10)=ccc*(w11*(16*(p4p8*p4p7*p3p6)*(fmb*hbcm+fmc*hbcm)+16*(
6424      . p4p7*p3p6*p2p8)*(-fmb*hbcm-fmc*hbcm)+16*(p6p7*p4p8*p2p3)*(-fmb
6425      . *hbcm-fmc*hbcm+2*hbcm2)+16*(p6p7*p2p8*p2p3)*(fmb*hbcm+fmc*hbcm
6426      . -2*hbcm2)+32*(-hbcm2*p2p4*p2p8*p6p7+hbcm2*p2p4*p4p8*p6p7-hbcm2
6427      . *p2p8*p4p6*p4p7-hbcm2*p2p8*p4p7*p5p6+hbcm2*p4p6*p4p7*p4p8+
6428      . hbcm2*p4p7*p4p8*p5p6))+32*(p6p8*p4p7)*(-fb4*fmb*hbcm-fb4*fmc*
6429      . hbcm))
6430       b(11)=ccc*(8*w11*(hbcm*p1p2*p2p8-hbcm*p1p2*p4p8-hbcm*p2p3*p2p8+
6431      . hbcm*p2p3*p4p8-hbcm*p2p5*p2p8+hbcm*p2p5*p4p8)-16*fb4*hbcm*p2p8
6432      . )
6433       b(13)=ccc*(w11*(8*(p4p8*p2p3)*(fmb*hbcm+fmc*hbcm)+8*(p2p8*p2p3)
6434      . *(-fmb*hbcm-fmc*hbcm)+16*(hbcm2*p1p2*p2p8-hbcm2*p1p2*p4p8-
6435      . hbcm2*p2p5*p2p8+hbcm2*p2p5*p4p8))+16*p2p8*(-fb4*fmb*hbcm-fb4*
6436      . fmc*hbcm))
6437       b(14)=16*ccc*(fb4*hbcm*p1p2-fb4*hbcm*p2p5)
6438       b(15)=ccc*(w11*(8*(p4p8*p3p6)*(fmb*hbcm+fmc*hbcm)+8*(p3p6*p2p8)
6439      . *(-fmb*hbcm-fmc*hbcm)+16*(-hbcm2*p2p8*p4p6-hbcm2*p2p8*p5p6+
6440      . hbcm2*p4p6*p4p8+hbcm2*p4p8*p5p6))+16*p6p8*(-fb4*fmb*hbcm-fb4*
6441      . fmc*hbcm))
6442       b(16)=ccc*(8*w11*(hbcm*p2p8*p3p6+hbcm*p2p8*p4p6+hbcm*p2p8*p5p6-
6443      . hbcm*p3p6*p4p8-hbcm*p4p6*p4p8-hbcm*p4p8*p5p6)+16*fb4*hbcm*p6p8
6444      . )
6445       b(17)=ccc*(w11*(4*p4p8*(-2*fmb*hbcm2+2*fmc*hbcm2-hbcm3)+4*p2p8*
6446      . (2*fmb*hbcm2-2*fmc*hbcm2+hbcm3)+8*(-hbcm*p1p3*p2p8+hbcm*p1p3*
6447      . p4p8+hbcm*p2p8*p3p5-hbcm*p3p5*p4p8))+16*(-fb4*hbcm*p1p8+fb4*
6448      . hbcm*p5p8))
6449       b(18)=ccc*(w11*(8*(p4p8*p3p7)*(-fmb*hbcm-fmc*hbcm)+8*(p3p7*p2p8
6450      . )*(fmb*hbcm+fmc*hbcm)+16*(hbcm2*p2p8*p4p7+hbcm2*p2p8*p5p7-
6451      . hbcm2*p4p7*p4p8-hbcm2*p4p8*p5p7))+16*p7p8*(fb4*fmb*hbcm+fb4*
6452      . fmc*hbcm))
6453       b(19)=w11*ccc*(4*p4p8*(-fmb*hbcm-fmc*hbcm+2*hbcm2)+4*p2p8*(fmb*
6454      . hbcm+fmc*hbcm-2*hbcm2))
6455       b(20)=ccc*(8*w11*(hbcm*p2p8*p3p7+hbcm*p2p8*p4p7+hbcm*p2p8*p5p7-
6456      . hbcm*p3p7*p4p8-hbcm*p4p7*p4p8-hbcm*p4p8*p5p7)+16*fb4*hbcm*p7p8
6457      . )
6458       b(21)=8*ccc*fb4*hbcm
6459       b(22)=8*ccc*(fb4*fmb*hbcm+fb4*fmc*hbcm)
6460       b(23)=16*ccc*(fb4*hbcm*p4p7+fb4*hbcm*p5p7)
6461       b(24)=16*ccc*(fb4*hbcm*p4p6+fb4*hbcm*p5p6)
6462       b(25)=16*ccc*fb4*hbcm*p4p7
6463       b(27)=16*ccc*p6p7*(fb4*fmb*hbcm+fb4*fmc*hbcm)
6464       b(28)=w11*ccc*(8*(p6p7*p4p8)*(fmb*hbcm+fmc*hbcm-2*hbcm2)+8*(
6465      . p6p7*p2p8)*(-fmb*hbcm-fmc*hbcm+2*hbcm2))
6466       b(31)=ccc*(w11*(8*(p6p7*p4p8)*(-2*fmb*hbcm2+2*fmc*hbcm2+hbcm3)+
6467      . 8*(p6p7*p2p8)*(2*fmb*hbcm2-2*fmc*hbcm2-hbcm3)+16*(hbcm*p2p3*
6468      . p2p8*p6p7-hbcm*p2p3*p4p8*p6p7-hbcm*p2p8*p3p4*p6p7+hbcm*p2p8*
6469      . p3p6*p3p7+hbcm*p2p8*p3p7*p4p6+hbcm*p2p8*p3p7*p5p6+hbcm*p3p4*
6470      . p4p8*p6p7-hbcm*p3p6*p3p7*p4p8-hbcm*p3p7*p4p6*p4p8-hbcm*p3p7*
6471      . p4p8*p5p6))+32*(fb4*hbcm*p2p8*p6p7+fb4*hbcm*p3p7*p6p8+fb4*hbcm
6472      . *p4p6*p7p8-fb4*hbcm*p4p8*p6p7+fb4*hbcm*p5p6*p7p8))
6473       b(32)=16*ccc*fb4*hbcm*p6p7
6474       do 200 n=1,32
6475          c(n,1)=c(n,1)-0.7272727272727273d0*b(n)
6476          c(n,2)=c(n,2)+0.1344727748424798d0*b(n)
6477          c(n,3)=c(n,3)+0.1662127982237257d0*b(n)
6478 200   continue
6479       return
6480         end
6481
6482       subroutine amp7_1p1(cc)
6483       implicit double precision(a-h,o-z)
6484       implicit integer (i-n)
6485       dimension b(32)
6486 #include "inclcon.h"
6487 #include "inclppp.h"
6488 #include "inclamp.h"
6489       do 100 n=1,32
6490          b(n)=0.0d0
6491 100   continue
6492       ccc=cc/((-2*p2p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*
6493      . p3p5+fmb2+hbcm2+2*p3p5)*(fmb2-fmc2+hbcm2+2*p3p5))
6494       b(3)=8*ccc*w2*(p5p8*p4p7)*(fmb*hbcm+fmc*hbcm-2*hbcm2)
6495       b(4)=16*ccc*p4p7*(fb4*fmb*hbcm+fb4*fmc*hbcm)
6496       b(5)=ccc*(w2*(8*(p5p8*p4p7)*(2*fmb*hbcm2-2*fmc*hbcm2+hbcm3)+16*
6497      . hbcm*p3p5*p4p7*p5p8)+32*(-fb4*hbcm*p2p3*p7p8+fb4*hbcm*p2p8*
6498      . p3p7+fb4*hbcm*p4p7*p5p8))
6499       b(10)=16*ccc*w2*(p6p7*p5p8*p2p3)*(fmb*hbcm+fmc*hbcm-2*hbcm2)
6500       b(11)=-16*ccc*fb4*hbcm*p2p8
6501       b(13)=ccc*(8*w2*(p5p8*p2p3)*(-fmb*hbcm-fmc*hbcm+2*hbcm2)+16*
6502      . p2p8*(-fb4*fmb*hbcm-fb4*fmc*hbcm))
6503       b(14)=16*ccc*fb4*hbcm*p2p3
6504       b(17)=ccc*(w2*(4*p5p8*(2*fmb*hbcm2-2*fmc*hbcm2+hbcm3)+8*hbcm*
6505      . p3p5*p5p8)+16*fb4*hbcm*p5p8)
6506       b(18)=ccc*(8*w2*(p5p8*p3p7)*(fmb*hbcm+fmc*hbcm-2*hbcm2)+16*p7p8
6507      . *(fb4*fmb*hbcm+fb4*fmc*hbcm))
6508       b(19)=4*ccc*w2*p5p8*(fmb*hbcm+fmc*hbcm-2*hbcm2)
6509       b(20)=16*ccc*fb4*hbcm*p7p8
6510       b(21)=8*ccc*fb4*hbcm
6511       b(22)=8*ccc*(fb4*fmb*hbcm+fb4*fmc*hbcm)
6512       b(23)=-16*ccc*fb4*hbcm*p3p7
6513       b(25)=16*ccc*fb4*hbcm*p4p7
6514       b(27)=16*ccc*p6p7*(fb4*fmb*hbcm+fb4*fmc*hbcm)
6515       b(28)=8*ccc*w2*(p6p7*p5p8)*(-fmb*hbcm-fmc*hbcm+2*hbcm2)
6516       b(31)=ccc*(w2*(8*(p6p7*p5p8)*(2*fmb*hbcm2-2*fmc*hbcm2+hbcm3)+16
6517      . *hbcm*p3p5*p5p8*p6p7)+32*fb4*hbcm*p5p8*p6p7)
6518       b(32)=16*ccc*fb4*hbcm*p6p7
6519       do 200 n=1,32
6520          c(n,1)=c(n,1)-0.7272727272727273d0*b(n)
6521          c(n,2)=c(n,2)+0.1344727748424798d0*b(n)
6522          c(n,3)=c(n,3)+0.1662127982237257d0*b(n)
6523 200   continue
6524       return
6525         end
6526
6527       subroutine amp9_1p1(cc)
6528       implicit double precision(a-h,o-z)
6529       implicit integer (i-n)
6530       dimension b(32)
6531 #include "inclcon.h"
6532 #include "inclppp.h"
6533 #include "inclamp.h"
6534       do 100 n=1,32
6535          b(n)=0.0d0
6536 100   continue
6537       ccc=cc/((-2*p2p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p2p3+2*ffmcfmb*
6538      . p3p4+fmc2-2*p2p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2+2*ffmcfmb*
6539      . p1p3-fmb2+hbcm2-2*p1p3))
6540       b(1)=32*ccc*(-2*fb3*p2p4*p6p7-fb3*p3p6*p4p7-2*fb3*p4p6*p4p7)
6541       b(2)=ccc*(w11*(16*(p4p8*p4p7*p3p6)*(-ffmcfmb*hbcm+hbcm)+16*(
6542      . p4p7*p3p6*p2p8)*(ffmcfmb*hbcm-hbcm)+16*(-hbcm*p2p4*p2p8*p6p7+
6543      . hbcm*p2p4*p4p8*p6p7-hbcm*p2p8*p4p6*p4p7+hbcm*p4p6*p4p7*p4p8))+
6544      . w13*(16*(p4p7*p3p6*p1p8)*(-ffmcfmb*hbcm+hbcm)+16*(hbcm*p1p8*
6545      . p2p4*p6p7+hbcm*p1p8*p4p6*p4p7))+8*(p6p8*p4p7)*(4*fb3*fmb-4*fb3
6546      . *fmc+hbcm))
6547       b(3)=ccc*(w11*(8*(p4p8*p4p7)*(fmb*hbcm+fmc*hbcm)+8*(p4p7*p2p8)*
6548      . (-fmb*hbcm-fmc*hbcm))+8*w13*(p4p7*p1p8)*(fmb*hbcm+fmc*hbcm)+32
6549      . *(-2*fb3*p1p2*p7p8-fb3*p1p8*p4p7+2*fb3*p2p3*p7p8+2*fb3*p2p5*
6550      . p7p8+2*fb3*p4p7*p5p8))
6551       b(4)=ccc*(16*p4p7*(-2*fb3*hbcm2-fb4*fmb*hbcm-fb4*fmc*hbcm)+32*(
6552      . 2*fb3*p1p2*p3p7+fb3*p1p3*p4p7+2*fb3*p2p3*p4p7+2*fb3*p2p3*p5p7-
6553      . 2*fb3*p2p5*p3p7-2*fb3*p3p5*p4p7))
6554       b(5)=ccc*(w11*(8*(p4p8*p4p7)*(ffmcfmb*hbcm3+fmb*hbcm2)+8*(p4p7*
6555      . p2p8)*(-ffmcfmb*hbcm3-fmb*hbcm2)+16*(hbcm*p1p2*p2p8*p3p7-hbcm*
6556      . p1p2*p3p7*p4p8+hbcm*p2p3*p2p8*p4p7+hbcm*p2p3*p2p8*p5p7-hbcm*
6557      . p2p3*p4p7*p4p8-hbcm*p2p3*p4p8*p5p7-hbcm*p2p5*p2p8*p3p7+hbcm*
6558      . p2p5*p3p7*p4p8-hbcm*p2p8*p3p5*p4p7+hbcm*p3p5*p4p7*p4p8))+w13*(
6559      . 8*(p4p7*p1p8)*(ffmcfmb*hbcm3+fmb*hbcm2)+16*(-hbcm*p1p2*p1p8*
6560      . p3p7-hbcm*p1p8*p2p3*p4p7-hbcm*p1p8*p2p3*p5p7+hbcm*p1p8*p2p5*
6561      . p3p7+hbcm*p1p8*p3p5*p4p7))+(8*(p3p7*p2p8)*(4*fb3*fmb-8*fb3*fmc
6562      . -4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+hbcm)+8*(p7p8*p2p3)*(-4*fb3*fmb
6563      . +8*fb3*fmc+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm)+32*(fb4*hbcm*
6564      . p1p2*p7p8-fb4*hbcm*p2p5*p7p8+fb4*hbcm*p2p8*p4p7+fb4*hbcm*p2p8*
6565      . p5p7-fb4*hbcm*p4p7*p5p8)))
6566       b(6)=32*ccc*(-fb3*p2p4*p6p8-fb3*p2p8*p3p6-2*fb3*p2p8*p4p6)
6567       b(7)=32*ccc*(fb3*p2p3*p3p6+2*fb3*p2p3*p4p6+fb3*p2p4*p3p6)
6568       b(8)=ccc*(w11*(16*(p4p8*p3p6*p2p3)*(ffmcfmb*hbcm-hbcm)+16*(p3p6
6569      . *p2p8*p2p3)*(-ffmcfmb*hbcm+hbcm)+16*(hbcm*p2p3*p2p8*p4p6-hbcm*
6570      . p2p3*p4p6*p4p8))+w13*(16*(p3p6*p2p3*p1p8)*(ffmcfmb*hbcm-hbcm)-
6571      . 16*hbcm*p1p8*p2p3*p4p6)+(32*(p3p6*p2p8)*(fb3*fmb-fb3*fmc-fb4*
6572      . ffmcfmb*hbcm+fb4*hbcm)+8*(p6p8*p2p3)*(-4*fb3*fmb+4*fb3*fmc-
6573      . hbcm)+32*fb4*hbcm*p2p8*p4p6))
6574       b(9)=ccc*(32*(p4p7*p3p6)*(-fb3*fmb+fb3*fmc+fb4*ffmcfmb*hbcm-fb4
6575      . *hbcm)+32*(-fb4*hbcm*p2p4*p6p7-fb4*hbcm*p4p6*p4p7))
6576       b(10)=ccc*(w11*(16*(p6p7*p4p8*p2p3)*(fmb*hbcm+fmc*hbcm)+16*(
6577      . p6p7*p2p8*p2p3)*(-fmb*hbcm-fmc*hbcm)+16*(p4p8*p4p7*p3p6)*(
6578      . ffmcfmb*hbcm2-fmb*hbcm-hbcm2)+16*(p4p7*p3p6*p2p8)*(-ffmcfmb*
6579      . hbcm2+fmb*hbcm+hbcm2))+w13*(16*(p6p7*p2p3*p1p8)*(fmb*hbcm+fmc*
6580      . hbcm)+16*(p4p7*p3p6*p1p8)*(ffmcfmb*hbcm2-fmb*hbcm-hbcm2))+(8*(
6581      . p6p8*p4p7)*(4*fb3*ffmcfmb*hbcm2-8*fb3*hbcm2+4*fb4*fmb*hbcm-
6582      . hbcm2)+64*(fb3*p1p3*p4p7*p6p8+fb3*p1p8*p2p3*p6p7-fb3*p1p8*p3p6
6583      . *p4p7+2*fb3*p2p3*p2p8*p6p7+fb3*p2p3*p4p7*p6p8-2*fb3*p2p3*p4p8*
6584      . p6p7+fb3*p2p8*p3p6*p3p7-fb3*p2p8*p3p6*p4p7+2*fb3*p2p8*p3p7*
6585      . p4p6-fb3*p3p4*p4p7*p6p8+fb3*p3p6*p4p7*p4p8)))
6586       b(11)=ccc*(8*w11*(-hbcm*p1p2*p2p8+hbcm*p1p2*p4p8+hbcm*p2p3*p2p8
6587      . -hbcm*p2p3*p4p8+hbcm*p2p5*p2p8-hbcm*p2p5*p4p8)+8*w13*(hbcm*
6588      . p1p2*p1p8-hbcm*p1p8*p2p3-hbcm*p1p8*p2p5)+4*p2p8*(-4*fb3*fmb+8*
6589      . fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm))
6590       b(12)=32*ccc*(fb3*p1p2-fb3*p2p3-fb3*p2p5)
6591       b(13)=ccc*(w11*(8*(p4p8*p2p3)*(-fmb*hbcm-fmc*hbcm)+8*(p2p8*p2p3
6592      . )*(fmb*hbcm+fmc*hbcm))+8*w13*(p2p3*p1p8)*(-fmb*hbcm-fmc*hbcm)+
6593      . (16*p2p8*(2*fb3*hbcm2+fb4*fmb*hbcm+fb4*fmc*hbcm)+32*(-fb3*p1p3
6594      . *p2p8+fb3*p1p8*p2p3-2*fb3*p2p3*p5p8+2*fb3*p2p8*p3p5)))
6595       b(14)=ccc*(4*p2p3*(4*fb3*fmb-8*fb3*fmc-4*fb4*ffmcfmb*hbcm+4*fb4
6596      . *hbcm+hbcm)+16*(-fb4*hbcm*p1p2+fb4*hbcm*p2p5))
6597       b(15)=ccc*(w11*(8*(p4p8*p3p6)*(ffmcfmb*hbcm2-fmb*hbcm-hbcm2)+8*
6598      . (p3p6*p2p8)*(-ffmcfmb*hbcm2+fmb*hbcm+hbcm2))+8*w13*(p3p6*p1p8)
6599      . *(ffmcfmb*hbcm2-fmb*hbcm-hbcm2)+(4*p6p8*(4*fb3*ffmcfmb*hbcm2-8
6600      . *fb3*hbcm2+4*fb4*fmb*hbcm-hbcm2)+32*(fb3*p1p3*p6p8-fb3*p1p8*
6601      . p3p6+fb3*p2p3*p6p8-fb3*p2p8*p3p6-fb3*p3p4*p6p8+fb3*p3p6*p4p8))
6602      . )
6603       b(16)=ccc*(w11*(8*(p4p8*p3p6)*(-ffmcfmb*hbcm+hbcm)+8*(p3p6*p2p8
6604      . )*(ffmcfmb*hbcm-hbcm)+8*(-hbcm*p2p8*p4p6+hbcm*p4p6*p4p8))+w13*
6605      . (8*(p3p6*p1p8)*(-ffmcfmb*hbcm+hbcm)+8*hbcm*p1p8*p4p6)+4*p6p8*(
6606      . 4*fb3*fmb-4*fb3*fmc+hbcm))
6607       b(17)=ccc*(w11*(4*p4p8*(ffmcfmb*hbcm3+fmb*hbcm2)+4*p2p8*(-
6608      . ffmcfmb*hbcm3-fmb*hbcm2)+8*(-hbcm*p2p8*p3p5+hbcm*p3p5*p4p8))+
6609      . w13*(4*p1p8*(ffmcfmb*hbcm3+fmb*hbcm2)+8*hbcm*p1p8*p3p5)-16*fb4
6610      . *hbcm*p5p8)
6611       b(18)=ccc*(w11*(8*(p4p8*p3p7)*(fmb*hbcm+fmc*hbcm)+8*(p3p7*p2p8)
6612      . *(-fmb*hbcm-fmc*hbcm))+8*w13*(p3p7*p1p8)*(fmb*hbcm+fmc*hbcm)+(
6613      . 16*p7p8*(-2*fb3*hbcm2-fb4*fmb*hbcm-fb4*fmc*hbcm)+32*(fb3*p1p3*
6614      . p7p8-fb3*p1p8*p3p7-2*fb3*p3p5*p7p8+2*fb3*p3p7*p5p8)))
6615       b(19)=ccc*(w11*(4*p4p8*(fmb*hbcm+fmc*hbcm)+4*p2p8*(-fmb*hbcm-
6616      . fmc*hbcm))+4*w13*p1p8*(fmb*hbcm+fmc*hbcm)+16*(-fb3*p1p8+2*fb3*
6617      . p5p8))
6618       b(20)=ccc*(8*w11*(-hbcm*p2p8*p3p7-hbcm*p2p8*p4p7-hbcm*p2p8*p5p7
6619      . +hbcm*p3p7*p4p8+hbcm*p4p7*p4p8+hbcm*p4p8*p5p7)+8*w13*(hbcm*
6620      . p1p8*p3p7+hbcm*p1p8*p4p7+hbcm*p1p8*p5p7)+4*p7p8*(4*fb3*fmb-8*
6621      . fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm))
6622       b(21)=2*ccc*(4*fb3*fmb-8*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)
6623       b(22)=8*ccc*(-2*fb3*hbcm2+2*fb3*p1p3-4*fb3*p3p5-fb4*fmb*hbcm-
6624      . fb4*fmc*hbcm)
6625       b(23)=ccc*(4*p3p7*(-4*fb3*fmb+8*fb3*fmc+4*fb4*ffmcfmb*hbcm-4*
6626      . fb4*hbcm-hbcm)+16*(-fb4*hbcm*p4p7-fb4*hbcm*p5p7))
6627       b(24)=ccc*(16*p3p6*(-fb3*fmb+fb3*fmc+fb4*ffmcfmb*hbcm-fb4*hbcm)
6628      . -16*fb4*hbcm*p4p6)
6629       b(25)=4*ccc*p4p7*(4*fb3*fmb-8*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)
6630       b(27)=ccc*(16*p6p7*(2*fb3*hbcm2-fb4*fmb*hbcm-fb4*fmc*hbcm)+32*(
6631      . -fb3*p1p3*p6p7-2*fb3*p2p3*p6p7+2*fb3*p3p4*p6p7-fb3*p3p6*p3p7-2
6632      . *fb3*p3p7*p4p6))
6633       b(28)=ccc*(w11*(8*(p6p7*p4p8)*(-fmb*hbcm-fmc*hbcm)+8*(p6p7*p2p8
6634      . )*(fmb*hbcm+fmc*hbcm))+8*w13*(p6p7*p1p8)*(-fmb*hbcm-fmc*hbcm)+
6635      . 32*(-fb3*p1p8*p6p7-2*fb3*p2p8*p6p7-fb3*p3p6*p7p8-2*fb3*p4p6*
6636      . p7p8+2*fb3*p4p8*p6p7))
6637       b(29)=16*ccc*(-fb3*p3p6-2*fb3*p4p6)
6638       b(30)=32*ccc*(-fb3*p3p7-fb3*p4p7-fb3*p5p7)
6639       b(31)=ccc*(w11*(8*(p6p7*p4p8)*(ffmcfmb*hbcm3+fmb*hbcm2-2*hbcm3)
6640      . +8*(p6p7*p2p8)*(-ffmcfmb*hbcm3-fmb*hbcm2+2*hbcm3)+16*(p4p8*
6641      . p3p7*p3p6)*(-ffmcfmb*hbcm+hbcm)+16*(p3p7*p3p6*p2p8)*(ffmcfmb*
6642      . hbcm-hbcm)+16*(-hbcm*p1p3*p2p8*p6p7+hbcm*p1p3*p4p8*p6p7-hbcm*
6643      . p2p3*p2p8*p6p7+hbcm*p2p3*p4p8*p6p7+hbcm*p2p8*p3p4*p6p7-hbcm*
6644      . p2p8*p3p7*p4p6-hbcm*p3p4*p4p8*p6p7+hbcm*p3p7*p4p6*p4p8))+w13*(
6645      . 8*(p6p7*p1p8)*(ffmcfmb*hbcm3+fmb*hbcm2-2*hbcm3)+16*(p3p7*p3p6*
6646      . p1p8)*(-ffmcfmb*hbcm+hbcm)+16*(hbcm*p1p3*p1p8*p6p7+hbcm*p1p8*
6647      . p2p3*p6p7-hbcm*p1p8*p3p4*p6p7+hbcm*p1p8*p3p7*p4p6))+(8*(p6p8*
6648      . p3p7)*(4*fb3*fmb-4*fb3*fmc+hbcm)+32*(p7p8*p3p6)*(-fb3*fmb+fb3*
6649      . fmc+fb4*ffmcfmb*hbcm-fb4*hbcm)+32*(-fb4*hbcm*p1p8*p6p7-fb4*
6650      . hbcm*p2p8*p6p7-fb4*hbcm*p4p6*p7p8+fb4*hbcm*p4p8*p6p7)))
6651       b(32)=4*ccc*p6p7*(4*fb3*fmb-8*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)
6652       do 200 n=1,32
6653          c(n,1)=c(n,1)+0.09090909090909091d0*b(n)
6654          c(n,2)=c(n,2)-0.01680909685530997d0*b(n)
6655          c(n,3)=c(n,3)-0.02077659977796572d0*b(n)
6656 200   continue
6657       return
6658         end
6659
6660       subroutine amp8_1p1(cc)
6661       implicit double precision(a-h,o-z)
6662       implicit integer (i-n)
6663       dimension b(32)
6664 #include "inclcon.h"
6665 #include "inclppp.h"
6666 #include "inclamp.h"
6667       do 100 n=1,32
6668          b(n)=0.0d0
6669 100   continue
6670       ccc=cc/((-2*p2p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*
6671      . p3p5+fmb2+hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3-fmc2)
6672      . )
6673       b(1)=32*ccc*(-2*fb3*p2p4*p6p7-fb3*p3p6*p4p7-2*fb3*p4p6*p4p7)
6674       b(2)=ccc*(w2*(16*(p5p8*p4p7*p3p6)*(ffmcfmb*hbcm-hbcm)+16*(-hbcm
6675      . *p2p4*p5p8*p6p7-hbcm*p4p6*p4p7*p5p8))+w12*(16*(p4p7*p3p6*p1p8)
6676      . *(ffmcfmb*hbcm-hbcm)+16*(-hbcm*p1p8*p2p4*p6p7-hbcm*p1p8*p4p6*
6677      . p4p7))+32*(p6p8*p4p7)*(fb3*fmb+fb4*ffmcfmb*hbcm-fb4*hbcm))
6678       b(3)=ccc*(8*w2*(p5p8*p4p7)*(-fmb*hbcm-fmc*hbcm)+8*w12*(p4p7*
6679      . p1p8)*(-fmb*hbcm-fmc*hbcm)+32*(-2*fb3*p1p2*p7p8-fb3*p1p8*p4p7+
6680      . 2*fb3*p2p3*p7p8+2*fb3*p2p5*p7p8+2*fb3*p4p7*p5p8))
6681       b(4)=ccc*(16*p4p7*(-2*fb3*hbcm2-fb4*fmb*hbcm-fb4*fmc*hbcm)+32*(
6682      . 2*fb3*p1p2*p3p7+fb3*p1p3*p4p7+2*fb3*p2p3*p4p7+2*fb3*p2p3*p5p7-
6683      . 2*fb3*p2p5*p3p7-2*fb3*p3p5*p4p7))
6684       b(5)=ccc*(w2*(8*(p5p8*p4p7)*(-ffmcfmb*hbcm3+fmc*hbcm2-hbcm3)+16
6685      . *(hbcm*p1p2*p3p7*p5p8+hbcm*p1p3*p4p7*p5p8+hbcm*p2p3*p4p7*p5p8+
6686      . hbcm*p2p3*p5p7*p5p8-hbcm*p2p5*p3p7*p5p8-hbcm*p3p5*p4p7*p5p8))+
6687      . w12*(8*(p4p7*p1p8)*(-ffmcfmb*hbcm3+fmc*hbcm2-hbcm3)+16*(hbcm*
6688      . p1p2*p1p8*p3p7+hbcm*p1p3*p1p8*p4p7+hbcm*p1p8*p2p3*p4p7+hbcm*
6689      . p1p8*p2p3*p5p7-hbcm*p1p8*p2p5*p3p7-hbcm*p1p8*p3p5*p4p7))+(8*(
6690      . p3p7*p2p8)*(8*fb3*fmb-4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)+8*(
6691      . p7p8*p2p3)*(-8*fb3*fmb+4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm)+32*(
6692      . fb4*hbcm*p1p2*p7p8+fb4*hbcm*p1p8*p4p7-fb4*hbcm*p2p5*p7p8+fb4*
6693      . hbcm*p2p8*p4p7+fb4*hbcm*p2p8*p5p7-fb4*hbcm*p4p7*p5p8)))
6694       b(6)=32*ccc*(-fb3*p2p4*p6p8-fb3*p2p8*p3p6-2*fb3*p2p8*p4p6)
6695       b(7)=32*ccc*(fb3*p2p3*p3p6+2*fb3*p2p3*p4p6+fb3*p2p4*p3p6)
6696       b(8)=ccc*(w2*(16*(p5p8*p3p6*p2p3)*(-ffmcfmb*hbcm+hbcm)+16*(hbcm
6697      . *p2p3*p4p6*p5p8+hbcm*p2p4*p3p6*p5p8))+w12*(16*(p3p6*p2p3*p1p8)
6698      . *(-ffmcfmb*hbcm+hbcm)+16*(hbcm*p1p8*p2p3*p4p6+hbcm*p1p8*p2p4*
6699      . p3p6))+(8*(p3p6*p2p8)*(4*fb3*fmb-hbcm)+32*(p6p8*p2p3)*(-fb3*
6700      . fmb-fb4*ffmcfmb*hbcm+fb4*hbcm)+32*(fb4*hbcm*p2p4*p6p8+fb4*hbcm
6701      . *p2p8*p4p6)))
6702       b(9)=ccc*(8*(p4p7*p3p6)*(-4*fb3*fmb+hbcm)+32*(-fb4*hbcm*p2p4*
6703      . p6p7-fb4*hbcm*p4p6*p4p7))
6704       b(10)=ccc*(w2*(16*(p6p7*p5p8*p2p3)*(-fmb*hbcm-fmc*hbcm)+16*(
6705      . p5p8*p4p7*p3p6)*(-ffmcfmb*hbcm2+fmb*hbcm))+w12*(16*(p6p7*p2p3*
6706      . p1p8)*(-fmb*hbcm-fmc*hbcm)+16*(p4p7*p3p6*p1p8)*(-ffmcfmb*hbcm2
6707      . +fmb*hbcm))+(8*(p6p8*p4p7)*(-4*fb3*ffmcfmb*hbcm2-4*fb3*hbcm2+4
6708      . *fb4*fmb*hbcm-hbcm2)+64*(fb3*p1p3*p4p7*p6p8+fb3*p1p8*p2p3*p6p7
6709      . -fb3*p1p8*p3p6*p4p7+2*fb3*p2p3*p2p8*p6p7+fb3*p2p3*p4p7*p6p8-2*
6710      . fb3*p2p3*p4p8*p6p7+fb3*p2p8*p3p6*p3p7-fb3*p2p8*p3p6*p4p7+2*fb3
6711      . *p2p8*p3p7*p4p6-fb3*p3p4*p4p7*p6p8+fb3*p3p6*p4p7*p4p8)))
6712       b(11)=ccc*(8*w2*(-hbcm*p1p2*p5p8+hbcm*p2p3*p5p8+hbcm*p2p5*p5p8)
6713      . +8*w12*(-hbcm*p1p2*p1p8+hbcm*p1p8*p2p3+hbcm*p1p8*p2p5)+4*p2p8*
6714      . (-8*fb3*fmb+4*fb3*fmc-4*fb4*ffmcfmb*hbcm+4*fb4*hbcm+hbcm))
6715       b(12)=32*ccc*(fb3*p1p2-fb3*p2p3-fb3*p2p5)
6716       b(13)=ccc*(8*w2*(p5p8*p2p3)*(fmb*hbcm+fmc*hbcm)+8*w12*(p2p3*
6717      . p1p8)*(fmb*hbcm+fmc*hbcm)+(16*p2p8*(2*fb3*hbcm2+fb4*fmb*hbcm+
6718      . fb4*fmc*hbcm)+32*(-fb3*p1p3*p2p8+fb3*p1p8*p2p3-2*fb3*p2p3*p5p8
6719      . +2*fb3*p2p8*p3p5)))
6720       b(14)=ccc*(4*p2p3*(8*fb3*fmb-4*fb3*fmc+4*fb4*ffmcfmb*hbcm-hbcm)
6721      . +16*(-fb4*hbcm*p1p2+fb4*hbcm*p2p5))
6722       b(15)=ccc*(8*w2*(p5p8*p3p6)*(-ffmcfmb*hbcm2+fmb*hbcm)+8*w12*(
6723      . p3p6*p1p8)*(-ffmcfmb*hbcm2+fmb*hbcm)+(4*p6p8*(-4*fb3*ffmcfmb*
6724      . hbcm2-4*fb3*hbcm2+4*fb4*fmb*hbcm-hbcm2)+32*(fb3*p1p3*p6p8-fb3*
6725      . p1p8*p3p6+fb3*p2p3*p6p8-fb3*p2p8*p3p6-fb3*p3p4*p6p8+fb3*p3p6*
6726      . p4p8)))
6727       b(16)=ccc*(w2*(8*(p5p8*p3p6)*(ffmcfmb*hbcm-hbcm)-8*hbcm*p4p6*
6728      . p5p8)+w12*(8*(p3p6*p1p8)*(ffmcfmb*hbcm-hbcm)-8*hbcm*p1p8*p4p6)
6729      . +16*p6p8*(fb3*fmb+fb4*ffmcfmb*hbcm-fb4*hbcm))
6730       b(17)=ccc*(w2*(4*p5p8*(-ffmcfmb*hbcm3+fmc*hbcm2-hbcm3)+8*(hbcm*
6731      . p1p3*p5p8-hbcm*p3p5*p5p8))+w12*(4*p1p8*(-ffmcfmb*hbcm3+fmc*
6732      . hbcm2-hbcm3)+8*(hbcm*p1p3*p1p8-hbcm*p1p8*p3p5))+16*(fb4*hbcm*
6733      . p1p8-fb4*hbcm*p5p8))
6734       b(18)=ccc*(8*w2*(p5p8*p3p7)*(-fmb*hbcm-fmc*hbcm)+8*w12*(p3p7*
6735      . p1p8)*(-fmb*hbcm-fmc*hbcm)+(16*p7p8*(-2*fb3*hbcm2-fb4*fmb*hbcm
6736      . -fb4*fmc*hbcm)+32*(fb3*p1p3*p7p8-fb3*p1p8*p3p7-2*fb3*p3p5*p7p8
6737      . +2*fb3*p3p7*p5p8)))
6738       b(19)=ccc*(4*w2*p5p8*(-fmb*hbcm-fmc*hbcm)+4*w12*p1p8*(-fmb*hbcm
6739      . -fmc*hbcm)+16*(-fb3*p1p8+2*fb3*p5p8))
6740       b(20)=ccc*(8*w2*(-hbcm*p3p7*p5p8-hbcm*p4p7*p5p8-hbcm*p5p7*p5p8)
6741      . +8*w12*(-hbcm*p1p8*p3p7-hbcm*p1p8*p4p7-hbcm*p1p8*p5p7)+4*p7p8*
6742      . (8*fb3*fmb-4*fb3*fmc+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-hbcm))
6743       b(21)=2*ccc*(8*fb3*fmb-4*fb3*fmc+4*fb4*ffmcfmb*hbcm-4*fb4*hbcm-
6744      . hbcm)
6745       b(22)=8*ccc*(-2*fb3*hbcm2+2*fb3*p1p3-4*fb3*p3p5-fb4*fmb*hbcm-
6746      . fb4*fmc*hbcm)
6747       b(23)=ccc*(4*p3p7*(-8*fb3*fmb+4*fb3*fmc-4*fb4*ffmcfmb*hbcm+hbcm
6748      . )+16*(-fb4*hbcm*p4p7-fb4*hbcm*p5p7))
6749       b(24)=ccc*(4*p3p6*(-4*fb3*fmb+hbcm)-16*fb4*hbcm*p4p6)
6750       b(25)=4*ccc*p4p7*(8*fb3*fmb-4*fb3*fmc+4*fb4*ffmcfmb*hbcm-4*fb4*
6751      . hbcm-hbcm)
6752       b(27)=ccc*(16*p6p7*(2*fb3*hbcm2-fb4*fmb*hbcm-fb4*fmc*hbcm)+32*(
6753      . -fb3*p1p3*p6p7-2*fb3*p2p3*p6p7+2*fb3*p3p4*p6p7-fb3*p3p6*p3p7-2
6754      . *fb3*p3p7*p4p6))
6755       b(28)=ccc*(8*w2*(p6p7*p5p8)*(fmb*hbcm+fmc*hbcm)+8*w12*(p6p7*
6756      . p1p8)*(fmb*hbcm+fmc*hbcm)+32*(-fb3*p1p8*p6p7-2*fb3*p2p8*p6p7-
6757      . fb3*p3p6*p7p8-2*fb3*p4p6*p7p8+2*fb3*p4p8*p6p7))
6758       b(29)=16*ccc*(-fb3*p3p6-2*fb3*p4p6)
6759       b(30)=32*ccc*(-fb3*p3p7-fb3*p4p7-fb3*p5p7)
6760       b(31)=ccc*(w2*(8*(p6p7*p5p8)*(-ffmcfmb*hbcm3+fmc*hbcm2+hbcm3)+
6761      . 16*(p5p8*p3p7*p3p6)*(ffmcfmb*hbcm-hbcm)+16*(-hbcm*p2p3*p5p8*
6762      . p6p7+hbcm*p3p4*p5p8*p6p7-hbcm*p3p7*p4p6*p5p8))+w12*(8*(p6p7*
6763      . p1p8)*(-ffmcfmb*hbcm3+fmc*hbcm2+hbcm3)+16*(p3p7*p3p6*p1p8)*(
6764      . ffmcfmb*hbcm-hbcm)+16*(-hbcm*p1p8*p2p3*p6p7+hbcm*p1p8*p3p4*
6765      . p6p7-hbcm*p1p8*p3p7*p4p6))+(32*(p6p8*p3p7)*(fb3*fmb+fb4*
6766      . ffmcfmb*hbcm-fb4*hbcm)+8*(p7p8*p3p6)*(-4*fb3*fmb+hbcm)+32*(-
6767      . fb4*hbcm*p2p8*p6p7-fb4*hbcm*p4p6*p7p8+fb4*hbcm*p4p8*p6p7)))
6768       b(32)=4*ccc*p6p7*(8*fb3*fmb-4*fb3*fmc+4*fb4*ffmcfmb*hbcm-4*fb4*
6769      . hbcm-hbcm)
6770       do 200 n=1,32
6771          c(n,1)=c(n,1)+0.09090909090909091d0*b(n)
6772          c(n,2)=c(n,2)-0.01680909685530997d0*b(n)
6773          c(n,3)=c(n,3)-0.02077659977796572d0*b(n)
6774 200   continue
6775       return
6776         end
6777
6778       double precision function ams1_1p1(n)
6779       implicit double precision(a-h,o-z)
6780       implicit integer (i-n)
6781 #include "inclppp.h"
6782 #include "inclcon.h"
6783 #include "inclamp.h"
6784       b1=-p10p10
6785       b2=-p9p9
6786       aa1=c(10,n)**2+b1+b2
6787       b1=-p10p10
6788       b2=p9p9
6789       b3=-p12p12
6790       b4=p11p11
6791       b5=b3+b4
6792       b6=2*c(10,n)*p0p11
6793       b7=c(10,n)**2+b1+b2+b5+b6
6794       b8=-2*p0p10*p5p12
6795       b9=b8
6796       b10=2*p0p12*p5p10
6797       b11=b10
6798       b12=2*p10p12
6799       b13=-2*p9p11
6800       b14=b12+b13
6801       b15=2*epspn2
6802       b16=2*epspn4
6803       b17=-2*p0p11*p5p9
6804       b18=b17
6805       b19=2*p0p9*p5p11
6806       b20=b19
6807       b21=-2*c(10,n)*p5p9
6808       aa2=b11+b14*p0p5+b15+b16+b18+b20+b21+b7*fmb+b9
6809       b1=2*p4p10*p5p10
6810       aa3=b1
6811       aa4=2*epspn0
6812       b1=-2*p0p10*p4p12
6813       b2=b1
6814       b3=-2*p0p12*p4p10
6815       b4=b3
6816       b5=2*p10p12
6817       b6=2*p9p11
6818       b7=b5+b6
6819       b8=2*epspn1
6820       b9=-2*epspn3
6821       b10=-2*p0p11*p4p9
6822       b11=b10
6823       b12=-2*p0p9*p4p11
6824       b13=b12
6825       b14=-2*c(10,n)*p4p9
6826       aa5=b11+b13+b14+b2+b4+b7*p0p4+b8+b9
6827       b1=2*p4p9*p5p9
6828       aa6=b1
6829       b1=p12p12
6830       b2=p11p11
6831       b3=b1+b2
6832       b4=-2*p4p12*p5p12
6833       b5=b4
6834       b6=2*epspn5
6835       b7=-2*p4p11*p5p11
6836       b8=b7
6837       aa7=b3*p4p5+b5+b6+b8
6838       b1=4*p0p12*p4p12
6839       b2=b1
6840       b3=4*epspn6
6841       b4=4*p0p11*p4p11
6842       b5=b4
6843       b6=2*c(10,n)*p4p11
6844       aa8=b2+b3+b5+b6
6845       b1=-2*p12p12
6846       b2=-2*p11p11
6847       b3=b1+b2
6848       b4=-2*c(10,n)*p5p11
6849       aa9=b3*p0p5+b4
6850       aa10=2*c(10,n)*epspn7
6851       b1=2*c(10,n)*p0p11*p4p5
6852       aa11=b1
6853       ams1_1p1=aa1*p4p5+aa10+aa11+aa2*fmc+aa3+aa4+aa5*fmb+aa6+aa7+aa8*
6854      . p0p5+aa9*p0p4
6855       return
6856         end