bin/BCVEGPY/pj2amp.F

0001 c...this is the 36 amplitude for (3p2) 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_3p2(cc)
0008       implicit double precision(a-h,o-z)
0009       implicit integer (i-n)
0010       dimension b(91)
0011 #include "inclcon.h"
0012 #include "inclppp.h"
0013 #include "inclamp.h"
0014       do 100 n=1,91
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(8)=8*ccc*w1*p5p6*(-fmb*hbcm+fmc*hbcm)
0020       b(10)=w1*ccc*(16*p5p6*(-hbcm*p3p8+hbcm*p4p8)+16*hbcm*p1p8*p3p6)
0021       b(15)=8*ccc*hbcm*p1p3*w1
0022       b(21)=8*ccc*w1*(-hbcm*p3p8+hbcm*p4p8)
0023       b(23)=-8*ccc*hbcm*p3p6*w1
0024       b(24)=4*ccc*hbcm*w1
0025       b(25)=4*ccc*w1*(fmb*hbcm-fmc*hbcm)
0026       b(30)=w1*ccc*(16*p5p6*(fmb*hbcm*p7p8-fmc*hbcm*p7p8)+16*p6p7*(
0027      . fmb*hbcm*p1p8-fmc*hbcm*p1p8))
0028       b(31)=8*ccc*hbcm*p5p6*w1
0029       b(65)=8*ccc*w1*p6p7*(-fmb*hbcm+fmc*hbcm)
0030       b(66)=16*ccc*w1*(hbcm*p3p7*p6p8+hbcm*p4p8*p6p7)
0031       b(74)=-8*ccc*hbcm*p6p7*w1
0032       b(75)=-8*ccc*hbcm*p1p8*w1
0033       b(76)=8*ccc*w1*(-fmb*hbcm*p1p8+fmc*hbcm*p1p8)
0034       b(77)=8*ccc*w1*(-fmb*hbcm*p6p8+fmc*hbcm*p6p8)
0035       b(78)=-8*ccc*hbcm*p6p8*w1
0036       do 200 n=1,91
0037          c(n,1)=c(n,1)-0.7272727272727273d0*b(n)
0038          c(n,2)=c(n,2)+0.1344727748424798d0*b(n)
0039          c(n,3)=c(n,3)+0.1662127982237257d0*b(n)
0040 200   continue
0041       return
0042       end
0043
0044       subroutine amp18_3p2(cc)
0045       implicit double precision(a-h,o-z)
0046       implicit integer (i-n)
0047       dimension b(94)
0048 #include "inclcon.h"
0049 #include "inclppp.h"
0050 #include "inclamp.h"
0051       do 100 n=1,94
0052          b(n)=0.0d0
0053 100   continue
0054       ccc=cc/((ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2)*(ffmcfmb**2*
0055      . hbcm2-2*ffmcfmb*hbcm2+2*ffmcfmb*p2p3-fmb2+hbcm2-2*p2p3)*(
0056      . ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+2*ffmcfmb*p3p5+fmc2+2*p4p5))
0057       b(1)=ccc*(w18*((p5p6*p3p7)*(-16*ffmcfmb+16)+(p4p6*p3p7)*(-16*
0058      . ffmcfmb-32)+(p5p7*p3p6)*(-32*ffmcfmb+16)+8*p6p7*(-ffmcfmb**2*
0059      . hbcm2+2*ffmcfmb*hbcm2-2*fmb2+3*fmc2)+16*(-ffmcfmb*p2p3*p6p7-2*
0060      . ffmcfmb*p3p6*p3p7-2*p2p4*p6p7+p2p5*p6p7+2*p3p4*p6p7-p3p5*p6p7-
0061      . 2*p3p6*p4p7-3*p4p6*p4p7-2*p4p6*p5p7+p5p6*p5p7))+w1*((p5p6*p3p7
0062      . )*(-16*ffmcfmb+16)+(p4p6*p3p7)*(-16*ffmcfmb-32)+(p5p7*p3p6)*(-
0063      . 32*ffmcfmb+16)+8*p6p7*(-ffmcfmb**2*hbcm2+2*ffmcfmb*hbcm2-2*
0064      . fmb2+3*fmc2)+16*(-ffmcfmb*p2p3*p6p7-2*ffmcfmb*p3p6*p3p7-2*p2p4
0065      . *p6p7+p2p5*p6p7+2*p3p4*p6p7-p3p5*p6p7-2*p3p6*p4p7-3*p4p6*p4p7-
0066      . 2*p4p6*p5p7+p5p6*p5p7)))
0067       b(2)=w18*ccc*((p5p6*p3p7)*(-16*ffmcfmb+16)+(p4p6*p3p7)*(-16*
0068      . ffmcfmb-32)+(p5p7*p3p6)*(-32*ffmcfmb+16)+8*p6p7*(-ffmcfmb**2*
0069      . hbcm2+2*ffmcfmb*hbcm2-2*fmb2+3*fmc2)+16*(-ffmcfmb*p2p3*p6p7-2*
0070      . ffmcfmb*p3p6*p3p7-2*p2p4*p6p7+p2p5*p6p7+2*p3p4*p6p7-p3p5*p6p7-
0071      . 2*p3p6*p4p7-3*p4p6*p4p7-2*p4p6*p5p7+p5p6*p5p7))
0072       ans=ccc*(w18*(16*p3p4*(p7p8+p7p9)+16*p5p7*(p2p8+p2p9-p5p8-p5p9)
0073      . +16*p4p7*(-2*p2p8-2*p2p9+3*p4p8+3*p4p9+2*p5p8+2*p5p9)+16*p2p4*
0074      . (-p7p8-p7p9)+16*p3p7*(-ffmcfmb*p2p8-ffmcfmb*p2p9+ffmcfmb*p4p8+
0075      . ffmcfmb*p4p9+ffmcfmb*p5p8+ffmcfmb*p5p9+p4p8+p4p9)+16*p2p3*(-
0076      . ffmcfmb*p7p8-ffmcfmb*p7p9)+8*(-ffmcfmb**2*hbcm2*p7p8-ffmcfmb**
0077      . 2*hbcm2*p7p9+2*ffmcfmb*hbcm2*p7p8+2*ffmcfmb*hbcm2*p7p9+fmc2*
0078      . p7p8+fmc2*p7p9))+w1*(16*p5p7*(p2p8-p5p8)+16*p4p7*(-2*p2p8+3*
0079      . p4p8+2*p5p8)+16*p3p7*(-ffmcfmb*p2p8+ffmcfmb*p4p8+ffmcfmb*p5p8+
0080      . p4p8)+8*(-ffmcfmb**2*hbcm2*p7p8+2*ffmcfmb*hbcm2*p7p8-2*ffmcfmb
0081      . *p2p3*p7p8+fmc2*p7p8-2*p2p4*p7p8+2*p3p4*p7p8))+w8*(16*p5p7*(
0082      . p2p11-p5p11)+16*p4p7*(-2*p2p11+3*p4p11+2*p5p11)+16*p3p7*(-
0083      . ffmcfmb*p2p11+ffmcfmb*p4p11+ffmcfmb*p5p11+p4p11)+8*(-ffmcfmb**
0084      . 2*hbcm2*p7p11+2*ffmcfmb*hbcm2*p7p11-2*ffmcfmb*p2p3*p7p11+fmc2*
0085      . p7p11-2*p2p4*p7p11+2*p3p4*p7p11))+8*(-3*p1p12-p2p12+3*p3p12+4*
0086      . p4p12+p5p12-2*p7p8+p7p9))
0087       b(3)=ans
0088       b(4)=ccc*(w18*((p3p7*p3p5)*(-16*ffmcfmb-16)+(p3p7*p3p4)*(-16*
0089      . ffmcfmb+16)+8*p5p7*(ffmcfmb*hbcm2-fmb*hbcm+2*fmc*hbcm+2*hbcm2)
0090      . +8*p4p7*(ffmcfmb*hbcm2-fmb*hbcm+2*fmc*hbcm-4*hbcm2)+8*p3p7*(
0091      . ffmcfmb**2*hbcm2-3*ffmcfmb*hbcm2-fmb*hbcm+2*fmc*hbcm-fmc2)+16*
0092      . (2*ffmcfmb*p2p3*p3p7+2*p2p3*p4p7-p2p3*p5p7+p2p4*p3p7+3*p3p4*
0093      . p5p7-3*p3p5*p4p7))+w1*((p3p7*p3p5)*(-16*ffmcfmb-16)+(p3p7*p3p4
0094      . )*(-16*ffmcfmb+16)+8*p5p7*(ffmcfmb*hbcm2-fmb*hbcm+2*fmc*hbcm+2
0095      . *hbcm2)+8*p4p7*(ffmcfmb*hbcm2-fmb*hbcm+2*fmc*hbcm-4*hbcm2)+8*
0096      . p3p7*(ffmcfmb**2*hbcm2-3*ffmcfmb*hbcm2-fmb*hbcm+2*fmc*hbcm-
0097      . fmc2)+16*(2*ffmcfmb*p2p3*p3p7+2*p2p3*p4p7-p2p3*p5p7+p2p4*p3p7+
0098      . 3*p3p4*p5p7-3*p3p5*p4p7)))
0099       b(5)=w18*ccc*((p3p7*p3p5)*(-16*ffmcfmb-16)+(p3p7*p3p4)*(-16*
0100      . ffmcfmb+16)+8*p5p7*(ffmcfmb*hbcm2-fmb*hbcm+2*fmc*hbcm+2*hbcm2)
0101      . +8*p4p7*(ffmcfmb*hbcm2-fmb*hbcm+2*fmc*hbcm-4*hbcm2)+8*p3p7*(
0102      . ffmcfmb**2*hbcm2-3*ffmcfmb*hbcm2-fmb*hbcm+2*fmc*hbcm-fmc2)+16*
0103      . (2*ffmcfmb*p2p3*p3p7+2*p2p3*p4p7-p2p3*p5p7+p2p4*p3p7+3*p3p4*
0104      . p5p7-3*p3p5*p4p7))
0105       ans2=w8*(16*p5p7*(-hbcm*p2p11+2*hbcm*p4p11)+16*p4p7*(hbcm*p2p11
0106      . -2*hbcm*p5p11)+16*p3p7*(ffmcfmb*hbcm*p2p11-ffmcfmb*hbcm*p4p11-
0107      . ffmcfmb*hbcm*p5p11-fmc*p2p11+fmc*p4p11+fmc*p5p11+hbcm*p4p11-
0108      . hbcm*p5p11)+16*p1p3*(ffmcfmb*hbcm*p7p11-fmc*p7p11)+8*(ffmcfmb
0109      . **2*hbcm3*p7p11+2*ffmcfmb*hbcm*p2p3*p7p11-2*ffmcfmb*hbcm3*
0110      . p7p11-fmc2*hbcm*p7p11+2*hbcm*p2p4*p7p11-2*hbcm*p3p4*p7p11))+8*
0111      . (fmb*p3p12+fmc*p3p12+2*hbcm*p1p12-hbcm*p2p12-3*hbcm*p3p12-hbcm
0112      . *p4p12-2*hbcm*p5p12+2*hbcm*p7p11-hbcm*p7p8)
0113       ans1=w18*(16*p3p4*(-hbcm*p7p8-hbcm*p7p9)+16*p5p7*(-hbcm*p2p8-
0114      . hbcm*p2p9+2*hbcm*p4p8+2*hbcm*p4p9)+16*p4p7*(hbcm*p2p8+hbcm*
0115      . p2p9-2*hbcm*p5p8-2*hbcm*p5p9)+16*p2p4*(hbcm*p7p8+hbcm*p7p9)+16
0116      . *p3p7*(ffmcfmb*hbcm*p2p8+ffmcfmb*hbcm*p2p9-ffmcfmb*hbcm*p4p8-
0117      . ffmcfmb*hbcm*p4p9-ffmcfmb*hbcm*p5p8-ffmcfmb*hbcm*p5p9-fmc*p2p8
0118      . -fmc*p2p9+fmc*p4p8+fmc*p4p9+fmc*p5p8+fmc*p5p9+hbcm*p4p8+hbcm*
0119      . p4p9-hbcm*p5p8-hbcm*p5p9)+16*p2p3*(ffmcfmb*hbcm*p7p8+ffmcfmb*
0120      . hbcm*p7p9)+16*p1p3*(ffmcfmb*hbcm*p7p8+ffmcfmb*hbcm*p7p9-fmc*
0121      . p7p8-fmc*p7p9)+8*(ffmcfmb**2*hbcm3*p7p8+ffmcfmb**2*hbcm3*p7p9-
0122      . 2*ffmcfmb*hbcm3*p7p8-2*ffmcfmb*hbcm3*p7p9-fmc2*hbcm*p7p8-fmc2*
0123      . hbcm*p7p9))+w1*(16*p5p7*(-hbcm*p2p8+2*hbcm*p4p8)+16*p4p7*(hbcm
0124      . *p2p8-2*hbcm*p5p8)+16*p3p7*(ffmcfmb*hbcm*p2p8-ffmcfmb*hbcm*
0125      . p4p8-ffmcfmb*hbcm*p5p8-fmc*p2p8+fmc*p4p8+fmc*p5p8+hbcm*p4p8-
0126      . hbcm*p5p8)+16*p1p3*(ffmcfmb*hbcm*p7p8-fmc*p7p8)+8*(ffmcfmb**2*
0127      . hbcm3*p7p8+2*ffmcfmb*hbcm*p2p3*p7p8-2*ffmcfmb*hbcm3*p7p8-fmc2*
0128      . hbcm*p7p8+2*hbcm*p2p4*p7p8-2*hbcm*p3p4*p7p8))+ans2
0129       ans=ccc*ans1
0130       b(6)=ans
0131       ans2=w8*(16*p5p6*(-p3p11-p4p11)+16*p4p6*(-p2p11+3*p3p11+p5p11)+
0132      . 16*p3p6*(-ffmcfmb*p2p11+2*ffmcfmb*p3p11+2*ffmcfmb*p4p11-2*
0133      . p4p11+p5p11)+8*(-ffmcfmb**2*hbcm2*p6p11+2*ffmcfmb*hbcm2*p6p11-
0134      . 2*ffmcfmb*p2p3*p6p11-2*fmb2*p6p11+3*fmc2*p6p11-4*p2p4*p6p11+2*
0135      . p2p5*p6p11+4*p3p4*p6p11-2*p3p5*p6p11))+8*(p1p13+4*p2p13-4*
0136      . p3p13-5*p4p13-p6p11+2*p6p8-p6p9)
0137       ans1=w18*(16*p5p6*(-p3p8-p3p9-p4p8-p4p9)+16*p3p5*(-p6p8-p6p9)+
0138      . 32*p3p4*(p6p8+p6p9)+16*p4p6*(-p2p8-p2p9+3*p3p8+3*p3p9+p5p8+
0139      . p5p9)+16*p2p5*(p6p8+p6p9)+32*p2p4*(-p6p8-p6p9)+16*p3p6*(-
0140      . ffmcfmb*p2p8-ffmcfmb*p2p9+2*ffmcfmb*p3p8+2*ffmcfmb*p3p9+2*
0141      . ffmcfmb*p4p8+2*ffmcfmb*p4p9-2*p4p8-2*p4p9+p5p8+p5p9)+16*p2p3*(
0142      . -ffmcfmb*p6p8-ffmcfmb*p6p9)+8*(-ffmcfmb**2*hbcm2*p6p8-ffmcfmb
0143      . **2*hbcm2*p6p9+2*ffmcfmb*hbcm2*p6p8+2*ffmcfmb*hbcm2*p6p9-2*
0144      . fmb2*p6p8-2*fmb2*p6p9+3*fmc2*p6p8+3*fmc2*p6p9))+w1*(16*p5p6*(-
0145      . p3p8-p4p8)+16*p4p6*(-p2p8+3*p3p8+p5p8)+16*p3p6*(-ffmcfmb*p2p8+
0146      . 2*ffmcfmb*p3p8+2*ffmcfmb*p4p8-2*p4p8+p5p8)+8*(-ffmcfmb**2*
0147      . hbcm2*p6p8+2*ffmcfmb*hbcm2*p6p8-2*ffmcfmb*p2p3*p6p8-2*fmb2*
0148      . p6p8+3*fmc2*p6p8-4*p2p4*p6p8+2*p2p5*p6p8+4*p3p4*p6p8-2*p3p5*
0149      . p6p8))+ans2
0150       ans=ccc*ans1
0151       b(7)=ans
0152       b(8)=ccc*(w18*(8*p5p6*(ffmcfmb*hbcm2+fmc*hbcm)+8*p4p6*(ffmcfmb*
0153      . hbcm2+fmc*hbcm-2*hbcm2)+8*p3p6*(ffmcfmb**2*hbcm2+ffmcfmb*fmb*
0154      . hbcm-ffmcfmb*fmc*hbcm-3*ffmcfmb*hbcm2-fmb*hbcm+2*fmb2+2*fmc*
0155      . hbcm-3*fmc2)+16*(2*ffmcfmb*p2p3*p3p6-2*ffmcfmb*p3p4*p3p6+p2p3*
0156      . p4p6+2*p2p4*p3p6-p2p5*p3p6+p3p4*p5p6-p3p5*p4p6))+w1*(8*p5p6*(
0157      . ffmcfmb*hbcm2+fmc*hbcm)+8*p4p6*(ffmcfmb*hbcm2+fmc*hbcm-2*hbcm2
0158      . )+8*p3p6*(ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm-3
0159      . *ffmcfmb*hbcm2-fmb*hbcm+2*fmb2+2*fmc*hbcm-3*fmc2)+16*(2*
0160      . ffmcfmb*p2p3*p3p6-2*ffmcfmb*p3p4*p3p6+p2p3*p4p6+2*p2p4*p3p6-
0161      . p2p5*p3p6+p3p4*p5p6-p3p5*p4p6)))
0162       b(9)=w18*ccc*(8*p5p6*(ffmcfmb*hbcm2+fmc*hbcm)+8*p4p6*(ffmcfmb*
0163      . hbcm2+fmc*hbcm-2*hbcm2)+8*p3p6*(ffmcfmb**2*hbcm2+ffmcfmb*fmb*
0164      . hbcm-ffmcfmb*fmc*hbcm-3*ffmcfmb*hbcm2-fmb*hbcm+2*fmb2+2*fmc*
0165      . hbcm-3*fmc2)+16*(2*ffmcfmb*p2p3*p3p6-2*ffmcfmb*p3p4*p3p6+p2p3*
0166      . p4p6+2*p2p4*p3p6-p2p5*p3p6+p3p4*p5p6-p3p5*p4p6))
0167       ans4=16*p3p6*(ffmcfmb**2*hbcm*p3p8-ffmcfmb*fmb*p3p8-2*ffmcfmb*
0168      . fmc*p3p8-ffmcfmb*hbcm*p1p8-ffmcfmb*hbcm*p1p9-ffmcfmb*hbcm*p3p8
0169      . +ffmcfmb*hbcm*p3p9+ffmcfmb*hbcm*p5p8+ffmcfmb*hbcm*p5p9+fmb*
0170      . p1p8+fmb*p1p9-fmb*p3p9+3*fmc*p1p8+3*fmc*p1p9+fmc*p2p8+fmc*p2p9
0171      . -3*fmc*p3p9-fmc*p4p8-fmc*p4p9-fmc*p5p8-fmc*p5p9+hbcm*p4p8+hbcm
0172      . *p4p9-hbcm*p5p8-hbcm*p5p9)+16*(ffmcfmb*hbcm3*p6p8+ffmcfmb*
0173      . hbcm3*p6p9-fmb*hbcm2*p6p8-fmb*hbcm2*p6p9+fmb2*hbcm*p6p8+fmb2*
0174      . hbcm*p6p9-2*fmc*hbcm2*p6p8-2*fmc*hbcm2*p6p9-fmc2*hbcm*p6p8-
0175      . fmc2*hbcm*p6p9)
0176       ans3=16*p2p5*(-hbcm*p6p8-hbcm*p6p9)+16*p2p4*(hbcm*p6p8+hbcm*
0177      . p6p9)+16*p5p6*(-ffmcfmb*hbcm*p3p8+fmc*p3p8-hbcm*p1p8-hbcm*p1p9
0178      . +hbcm*p3p8+hbcm*p3p9+hbcm*p4p8+hbcm*p4p9)+16*p4p6*(-ffmcfmb*
0179      . hbcm*p3p8+fmc*p3p8+2*hbcm*p1p8+2*hbcm*p1p9+hbcm*p2p8+hbcm*p2p9
0180      . -2*hbcm*p3p8-2*hbcm*p3p9-hbcm*p5p8-hbcm*p5p9)+16*p3p5*(ffmcfmb
0181      . *hbcm*p6p8+ffmcfmb*hbcm*p6p9-fmb*p6p8-fmb*p6p9-2*fmc*p6p8-2*
0182      . fmc*p6p9+hbcm*p6p8+hbcm*p6p9)+16*p3p4*(ffmcfmb*hbcm*p6p8+
0183      . ffmcfmb*hbcm*p6p9-fmb*p6p8-fmb*p6p9-2*fmc*p6p8-2*fmc*p6p9-hbcm
0184      . *p6p8-hbcm*p6p9)+16*p2p3*(-ffmcfmb*hbcm*p6p8-ffmcfmb*hbcm*p6p9
0185      . +fmb*p6p8+fmb*p6p9+2*fmc*p6p8+2*fmc*p6p9)+16*p1p3*(-2*ffmcfmb*
0186      . hbcm*p6p8-2*ffmcfmb*hbcm*p6p9+fmb*p6p8+fmb*p6p9+3*fmc*p6p8+3*
0187      . fmc*p6p9)+ans4
0188       ans2=w18*ans3
0189       ans5=w1*(16*p5p6*(-ffmcfmb*hbcm*p3p8+fmc*p3p8-hbcm*p1p8+hbcm*
0190      . p3p8+hbcm*p4p8)+16*p4p6*(-ffmcfmb*hbcm*p3p8+fmc*p3p8+2*hbcm*
0191      . p1p8+hbcm*p2p8-2*hbcm*p3p8-hbcm*p5p8)+16*p3p5*(ffmcfmb*hbcm*
0192      . p6p8-fmb*p6p8-2*fmc*p6p8+hbcm*p6p8)+16*p3p4*(ffmcfmb*hbcm*p6p8
0193      . -fmb*p6p8-2*fmc*p6p8-hbcm*p6p8)+16*p2p3*(-ffmcfmb*hbcm*p6p8+
0194      . fmb*p6p8+2*fmc*p6p8)+16*p1p3*(-2*ffmcfmb*hbcm*p6p8+fmb*p6p8+3*
0195      . fmc*p6p8)+16*p3p6*(ffmcfmb**2*hbcm*p3p8-ffmcfmb*fmb*p3p8-2*
0196      . ffmcfmb*fmc*p3p8-ffmcfmb*hbcm*p1p8-ffmcfmb*hbcm*p3p8+ffmcfmb*
0197      . hbcm*p5p8+fmb*p1p8+3*fmc*p1p8+fmc*p2p8-fmc*p4p8-fmc*p5p8+hbcm*
0198      . p4p8-hbcm*p5p8)+16*(ffmcfmb*hbcm3*p6p8-fmb*hbcm2*p6p8+fmb2*
0199      . hbcm*p6p8-2*fmc*hbcm2*p6p8-fmc2*hbcm*p6p8+hbcm*p2p4*p6p8-hbcm*
0200      . p2p5*p6p8))+8*(4*fmb*p3p13+4*fmc*p3p13-hbcm*p1p13-3*hbcm*p2p13
0201      . +3*hbcm*p4p13+hbcm*p6p11-hbcm*p6p8+hbcm*p6p9)
0202       ans1=w8*(16*p5p6*(-hbcm*p1p11+hbcm*p3p11+hbcm*p4p11)+16*p4p6*(2
0203      . *hbcm*p1p11+hbcm*p2p11-2*hbcm*p3p11-hbcm*p5p11)+16*p3p5*(
0204      . ffmcfmb*hbcm*p6p11-fmb*p6p11-2*fmc*p6p11+hbcm*p6p11)+16*p3p4*(
0205      . ffmcfmb*hbcm*p6p11-fmb*p6p11-2*fmc*p6p11-hbcm*p6p11)+16*p2p3*(
0206      . -ffmcfmb*hbcm*p6p11+fmb*p6p11+2*fmc*p6p11)+16*p1p3*(-2*ffmcfmb
0207      . *hbcm*p6p11+fmb*p6p11+3*fmc*p6p11)+16*p3p6*(-ffmcfmb*hbcm*
0208      . p1p11+ffmcfmb*hbcm*p3p11+ffmcfmb*hbcm*p5p11+fmb*p1p11-fmb*
0209      . p3p11+3*fmc*p1p11+fmc*p2p11-3*fmc*p3p11-fmc*p4p11-fmc*p5p11+
0210      . hbcm*p4p11-hbcm*p5p11)+16*(ffmcfmb*hbcm3*p6p11-fmb*hbcm2*p6p11
0211      . +fmb2*hbcm*p6p11-2*fmc*hbcm2*p6p11-fmc2*hbcm*p6p11+hbcm*p2p4*
0212      . p6p11-hbcm*p2p5*p6p11))+ans2+ans5
0213       ans=ccc*ans1
0214       b(10)=ans
0215       ans2=w1*(16*(p5p7*p3p6)*(-fmb-2*fmc+hbcm)+16*p6p7*(-ffmcfmb*
0216      . hbcm3+fmb*hbcm2-fmb2*hbcm+2*fmc*hbcm2+fmc2*hbcm)+16*(p5p6*p3p7
0217      . )*(-ffmcfmb*hbcm+hbcm)+16*(p4p6*p3p7)*(-ffmcfmb*hbcm-hbcm)+16*
0218      . (p4p7*p3p6)*(ffmcfmb*hbcm-fmb-2*fmc-hbcm)+16*(p6p7*p3p5)*(-
0219      . ffmcfmb*hbcm+fmb+2*fmc-hbcm)+16*(p6p7*p3p4)*(-ffmcfmb*hbcm+fmb
0220      . +2*fmc+hbcm)+16*(p6p7*p2p3)*(ffmcfmb*hbcm-fmb-2*fmc)+16*(p6p7*
0221      . p1p3)*(2*ffmcfmb*hbcm-fmb-3*fmc)+16*(p3p7*p3p6)*(-ffmcfmb*fmc-
0222      . fmb-fmc)+16*(-hbcm*p2p4*p6p7+hbcm*p2p5*p6p7-2*hbcm*p4p6*p4p7-
0223      . hbcm*p4p6*p5p7+hbcm*p5p6*p5p7))
0224       ans1=w18*(16*(p5p7*p3p6)*(-fmb-2*fmc+hbcm)+16*p6p7*(-ffmcfmb*
0225      . hbcm3+fmb*hbcm2-fmb2*hbcm+2*fmc*hbcm2+fmc2*hbcm)+16*(p5p6*p3p7
0226      . )*(-ffmcfmb*hbcm+hbcm)+16*(p4p6*p3p7)*(-ffmcfmb*hbcm-hbcm)+16*
0227      . (p4p7*p3p6)*(ffmcfmb*hbcm-fmb-2*fmc-hbcm)+16*(p6p7*p3p5)*(-
0228      . ffmcfmb*hbcm+fmb+2*fmc-hbcm)+16*(p6p7*p3p4)*(-ffmcfmb*hbcm+fmb
0229      . +2*fmc+hbcm)+16*(p6p7*p2p3)*(ffmcfmb*hbcm-fmb-2*fmc)+16*(p6p7*
0230      . p1p3)*(2*ffmcfmb*hbcm-fmb-3*fmc)+16*(p3p7*p3p6)*(-ffmcfmb*fmc-
0231      . fmb-fmc)+16*(-hbcm*p2p4*p6p7+hbcm*p2p5*p6p7-2*hbcm*p4p6*p4p7-
0232      . hbcm*p4p6*p5p7+hbcm*p5p6*p5p7))+ans2
0233       ans=ccc*ans1
0234       b(11)=ans
0235       b(12)=w18*ccc*(16*(p5p7*p3p6)*(-fmb-2*fmc+hbcm)+16*p6p7*(-
0236      . ffmcfmb*hbcm3+fmb*hbcm2-fmb2*hbcm+2*fmc*hbcm2+fmc2*hbcm)+16*(
0237      . p5p6*p3p7)*(-ffmcfmb*hbcm+hbcm)+16*(p4p6*p3p7)*(-ffmcfmb*hbcm-
0238      . hbcm)+16*(p4p7*p3p6)*(ffmcfmb*hbcm-fmb-2*fmc-hbcm)+16*(p6p7*
0239      . p3p5)*(-ffmcfmb*hbcm+fmb+2*fmc-hbcm)+16*(p6p7*p3p4)*(-ffmcfmb*
0240      . hbcm+fmb+2*fmc+hbcm)+16*(p6p7*p2p3)*(ffmcfmb*hbcm-fmb-2*fmc)+
0241      . 16*(p3p7*p3p6)*(-ffmcfmb*fmc-fmb-fmc)+16*(-hbcm*p2p4*p6p7+hbcm
0242      . *p2p5*p6p7-2*hbcm*p4p6*p4p7-hbcm*p4p6*p5p7+hbcm*p5p6*p5p7))
0243       b(13)=ccc*(8*w18*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2+2*ffmcfmb*
0244      . p2p3+fmb2-2*fmc2+3*p2p4-p2p5-3*p3p4+p3p5)+8*w1*(ffmcfmb**2*
0245      . hbcm2-2*ffmcfmb*hbcm2+2*ffmcfmb*p2p3+fmb2-2*fmc2+3*p2p4-p2p5-3
0246      . *p3p4+p3p5))
0247       b(14)=8*ccc*w18*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2+2*ffmcfmb*
0248      . p2p3+fmb2-2*fmc2+3*p2p4-p2p5-3*p3p4+p3p5)
0249       b(15)=ccc*(w18*(8*p3p5*(ffmcfmb*hbcm-fmc-hbcm)+8*p3p4*(ffmcfmb*
0250      . hbcm-fmc+2*hbcm)+8*p2p3*(-2*ffmcfmb*hbcm+fmc)+8*p1p3*(-3*
0251      . ffmcfmb*hbcm+fmb+4*fmc)+4*(-ffmcfmb**2*hbcm3+4*ffmcfmb*hbcm3-2
0252      . *fmb2*hbcm-2*fmc*hbcm2+3*fmc2*hbcm-4*hbcm*p2p4+2*hbcm*p2p5))+
0253      . w1*(8*p3p5*(ffmcfmb*hbcm-fmc-hbcm)+8*p3p4*(ffmcfmb*hbcm-fmc+2*
0254      . hbcm)+8*p2p3*(-2*ffmcfmb*hbcm+fmc)+8*p1p3*(-3*ffmcfmb*hbcm+fmb
0255      . +4*fmc)+4*(-ffmcfmb**2*hbcm3+4*ffmcfmb*hbcm3-2*fmb2*hbcm-2*fmc
0256      . *hbcm2+3*fmc2*hbcm-4*hbcm*p2p4+2*hbcm*p2p5)))
0257       b(16)=w18*ccc*(8*p3p5*(ffmcfmb*hbcm-fmc-hbcm)+8*p3p4*(ffmcfmb*
0258      . hbcm-fmc+2*hbcm)+8*p2p3*(-2*ffmcfmb*hbcm+fmc)+8*p1p3*(-3*
0259      . ffmcfmb*hbcm+fmb+4*fmc)+4*(-ffmcfmb**2*hbcm3+4*ffmcfmb*hbcm3-2
0260      . *fmb2*hbcm-2*fmc*hbcm2+3*fmc2*hbcm-4*hbcm*p2p4+2*hbcm*p2p5))
0261       b(21)=ccc*(8*w8*(-2*hbcm*p4p11+hbcm*p5p11)+8*w18*(3*ffmcfmb*
0262      . hbcm*p3p8-fmb*p3p8-4*fmc*p3p8-2*hbcm*p4p8-2*hbcm*p4p9+hbcm*
0263      . p5p8+hbcm*p5p9)+8*w1*(3*ffmcfmb*hbcm*p3p8-fmb*p3p8-4*fmc*p3p8-
0264      . 2*hbcm*p4p8+hbcm*p5p8))
0265       b(23)=ccc*(w18*(8*p3p6*(ffmcfmb*hbcm-fmb-3*fmc)+8*(-2*hbcm*p4p6
0266      . +hbcm*p5p6))+w1*(8*p3p6*(ffmcfmb*hbcm-fmb-3*fmc)+8*(-2*hbcm*
0267      . p4p6+hbcm*p5p6)))
0268       b(24)=ccc*(4*w18*(-3*ffmcfmb*hbcm+fmb+4*fmc)+4*w1*(-3*ffmcfmb*
0269      . hbcm+fmb+4*fmc))
0270       b(25)=ccc*(4*w18*(2*ffmcfmb*hbcm2-fmb*hbcm+3*fmc*hbcm+6*p3p4-2*
0271      . p3p5)+4*w1*(2*ffmcfmb*hbcm2-fmb*hbcm+3*fmc*hbcm+6*p3p4-2*p3p5)
0272      . )
0273       b(26)=ccc*(w18*(8*p3p7*(2*ffmcfmb*hbcm-fmc)+8*(2*hbcm*p4p7-hbcm
0274      . *p5p7))+w1*(8*p3p7*(2*ffmcfmb*hbcm-fmc)+8*(2*hbcm*p4p7-hbcm*
0275      . p5p7)))
0276       ans5=16*p3p6*(-ffmcfmb**2*hbcm2*p7p8-ffmcfmb**2*hbcm2*p7p9-
0277      . ffmcfmb*fmb*hbcm*p7p8-ffmcfmb*fmb*hbcm*p7p9+2*ffmcfmb*hbcm2*
0278      . p7p8+2*ffmcfmb*hbcm2*p7p9+fmb*hbcm*p7p8+fmb*hbcm*p7p9-2*fmb2*
0279      . p7p8-2*fmb2*p7p9-fmc*hbcm*p7p8-fmc*hbcm*p7p9+2*fmc2*p7p8+2*
0280      . fmc2*p7p9)
0281       ans4=32*(p3p7*p3p5)*(-ffmcfmb*p6p8-ffmcfmb*p6p9+2*p6p8+2*p6p9)+
0282      . 32*(p3p7*p3p4)*(-ffmcfmb*p6p8-ffmcfmb*p6p9-2*p6p8-2*p6p9)+32*(
0283      . p3p6*p3p4)*(ffmcfmb*p7p8+ffmcfmb*p7p9)+32*(p3p7*p3p6)*(2*
0284      . ffmcfmb*p2p8+2*ffmcfmb*p2p9-2*ffmcfmb*p3p8-2*ffmcfmb*p3p9-2*
0285      . ffmcfmb*p4p8-2*ffmcfmb*p4p9-ffmcfmb*p5p8-ffmcfmb*p5p9+2*p4p8+2
0286      . *p4p9-2*p5p8-2*p5p9)+32*(p3p7*p2p3)*(ffmcfmb*p6p8+ffmcfmb*p6p9
0287      . )+32*(p3p6*p2p3)*(-ffmcfmb*p7p8-ffmcfmb*p7p9)+16*p5p6*(-
0288      . ffmcfmb*hbcm2*p7p8-ffmcfmb*hbcm2*p7p9-fmc*hbcm*p7p8-fmc*hbcm*
0289      . p7p9)+16*p4p6*(-ffmcfmb*hbcm2*p7p8-ffmcfmb*hbcm2*p7p9-fmc*hbcm
0290      . *p7p8-fmc*hbcm*p7p9+2*hbcm2*p7p8+2*hbcm2*p7p9)+16*p3p7*(-2*
0291      . ffmcfmb*hbcm2*p6p8-2*ffmcfmb*hbcm2*p6p9+fmb*hbcm*p6p8+fmb*hbcm
0292      . *p6p9+2*fmb2*p6p8+2*fmb2*p6p9-fmc*hbcm*p6p8-fmc*hbcm*p6p9-2*
0293      . fmc2*p6p8-2*fmc2*p6p9)+ans5
0294       ans3=32*(p5p6*p3p7)*(p3p8+p3p9+p4p8+p4p9)+32*(p5p7*p3p5)*(p6p8+
0295      . p6p9)+32*(p4p6*p3p5)*(p7p8+p7p9)+32*(p5p7*p3p4)*(-p6p8-p6p9)+
0296      . 32*(p5p6*p3p4)*(-p7p8-p7p9)+64*(p4p7*p3p4)*(-p6p8-p6p9)+32*(
0297      . p4p6*p3p7)*(2*p2p8+2*p2p9-3*p3p8-3*p3p9-p4p8-p4p9-2*p5p8-2*
0298      . p5p9)+32*(p5p7*p3p6)*(-p2p8-p2p9+2*p4p8+2*p4p9)+32*(p4p7*p3p6)
0299      . *(p2p8+p2p9-2*p5p8-2*p5p9)+32*(p6p7*p3p5)*(p2p8+p2p9-p5p8-p5p9
0300      . )+32*(p6p7*p3p4)*(-p2p8-p2p9+2*p4p8+2*p4p9+p5p8+p5p9)+32*(p3p7
0301      . *p2p5)*(-p6p8-p6p9)+32*(p3p6*p2p5)*(p7p8+p7p9)+32*(p3p7*p2p4)*
0302      . (p6p8+p6p9)+32*(p3p6*p2p4)*(-p7p8-p7p9)+32*(p6p7*p2p3)*(-p4p8-
0303      . p4p9)+32*(p4p7*p2p3)*(p6p8+p6p9)+32*(p4p6*p2p3)*(-p7p8-p7p9)+
0304      . 16*p5p7*(fmb*hbcm*p6p8+fmb*hbcm*p6p9-fmc*hbcm*p6p8-fmc*hbcm*
0305      . p6p9)+16*p4p7*(fmb*hbcm*p6p8+fmb*hbcm*p6p9-fmc*hbcm*p6p8-fmc*
0306      . hbcm*p6p9-2*hbcm2*p6p8-2*hbcm2*p6p9)+16*p6p7*(fmb*hbcm*p2p8+
0307      . fmb*hbcm*p2p9-fmb*hbcm*p4p8-fmb*hbcm*p4p9-fmb*hbcm*p5p8-fmb*
0308      . hbcm*p5p9-fmc*hbcm*p2p8-fmc*hbcm*p2p9+fmc*hbcm*p4p8+fmc*hbcm*
0309      . p4p9+fmc*hbcm*p5p8+fmc*hbcm*p5p9+2*hbcm2*p4p8+2*hbcm2*p4p9)+
0310      . ans4
0311       ans2=w18*ans3
0312       ans8=32*(-ffmcfmb*p2p3*p3p6*p7p8+ffmcfmb*p2p3*p3p7*p6p8+ffmcfmb
0313      . *p3p4*p3p6*p7p8-p2p3*p4p6*p7p8+p2p3*p4p7*p6p8-p2p3*p4p8*p6p7-
0314      . p2p4*p3p6*p7p8+p2p4*p3p7*p6p8+p2p5*p3p6*p7p8-p2p5*p3p7*p6p8-2*
0315      . p3p4*p4p7*p6p8-p3p4*p5p6*p7p8-p3p4*p5p7*p6p8+p3p5*p4p6*p7p8+
0316      . p3p5*p5p7*p6p8)
0317       ans7=32*(p5p6*p3p7)*(p3p8+p4p8)+32*(p4p6*p3p7)*(2*p2p8-3*p3p8-
0318      . p4p8-2*p5p8)+32*(p5p7*p3p6)*(-p2p8+2*p4p8)+32*(p4p7*p3p6)*(
0319      . p2p8-2*p5p8)+32*(p6p7*p3p5)*(p2p8-p5p8)+32*(p6p7*p3p4)*(-p2p8+
0320      . 2*p4p8+p5p8)+16*p5p7*(fmb*hbcm*p6p8-fmc*hbcm*p6p8)+16*p4p7*(
0321      . fmb*hbcm*p6p8-fmc*hbcm*p6p8-2*hbcm2*p6p8)+16*p6p7*(fmb*hbcm*
0322      . p2p8-fmb*hbcm*p4p8-fmb*hbcm*p5p8-fmc*hbcm*p2p8+fmc*hbcm*p4p8+
0323      . fmc*hbcm*p5p8+2*hbcm2*p4p8)+32*(p3p7*p3p5)*(-ffmcfmb*p6p8+2*
0324      . p6p8)+32*(p3p7*p3p4)*(-ffmcfmb*p6p8-2*p6p8)+32*(p3p7*p3p6)*(2*
0325      . ffmcfmb*p2p8-2*ffmcfmb*p3p8-2*ffmcfmb*p4p8-ffmcfmb*p5p8+2*p4p8
0326      . -2*p5p8)+16*p5p6*(-ffmcfmb*hbcm2*p7p8-fmc*hbcm*p7p8)+16*p4p6*(
0327      . -ffmcfmb*hbcm2*p7p8-fmc*hbcm*p7p8+2*hbcm2*p7p8)+16*p3p7*(-2*
0328      . ffmcfmb*hbcm2*p6p8+fmb*hbcm*p6p8+2*fmb2*p6p8-fmc*hbcm*p6p8-2*
0329      . fmc2*p6p8)+16*p3p6*(-ffmcfmb**2*hbcm2*p7p8-ffmcfmb*fmb*hbcm*
0330      . p7p8+2*ffmcfmb*hbcm2*p7p8+fmb*hbcm*p7p8-2*fmb2*p7p8-fmc*hbcm*
0331      . p7p8+2*fmc2*p7p8)+ans8
0332       ans6=w1*ans7
0333       ans9=(16*p3p5*(p6p12+p7p13)+16*p3p4*(-2*p6p12+5*p7p13)+16*p6p7*
0334      . (-3*p3p11+2*p3p8-p3p9)+32*p2p3*(p6p12-2*p7p13)+16*p3p7*(-3*
0335      . p1p13-4*p2p13+6*p3p13+6*p4p13+3*p5p13-p6p11-p6p8+p6p9)+16*p3p6
0336      . *(-ffmcfmb*p3p12+p1p12-p2p12-2*p3p12-p4p12-2*p5p12+2*p7p11-
0337      . p7p8)+8*(ffmcfmb*hbcm2*p7p13+2*fmb*hbcm*p6p12-2*fmb*hbcm*p7p13
0338      . -2*fmc*hbcm*p6p12+3*fmc*hbcm*p7p13-hbcm2*p6p12+5*hbcm2*p7p13-2
0339      . *p1p3*p7p13-2*p3p12*p4p6))
0340       ans1=w8*(32*(p5p6*p3p7)*(p3p11+p4p11)+32*(p4p6*p3p7)*(2*p2p11-3
0341      . *p3p11-p4p11-2*p5p11)+32*(p5p7*p3p6)*(-p2p11+2*p4p11)+32*(p4p7
0342      . *p3p6)*(p2p11-2*p5p11)+32*(p6p7*p3p5)*(p2p11-p5p11)+32*(p6p7*
0343      . p3p4)*(-p2p11+2*p4p11+p5p11)+16*p5p7*(fmb*hbcm*p6p11-fmc*hbcm*
0344      . p6p11)+16*p4p7*(fmb*hbcm*p6p11-fmc*hbcm*p6p11-2*hbcm2*p6p11)+
0345      . 16*p6p7*(fmb*hbcm*p2p11-fmb*hbcm*p4p11-fmb*hbcm*p5p11-fmc*hbcm
0346      . *p2p11+fmc*hbcm*p4p11+fmc*hbcm*p5p11+2*hbcm2*p4p11)+32*(p3p7*
0347      . p3p5)*(-ffmcfmb*p6p11+2*p6p11)+32*(p3p7*p3p4)*(-ffmcfmb*p6p11-
0348      . 2*p6p11)+32*(p3p7*p3p6)*(2*ffmcfmb*p2p11-2*ffmcfmb*p3p11-2*
0349      . ffmcfmb*p4p11-ffmcfmb*p5p11+2*p4p11-2*p5p11)+16*p3p7*(-2*
0350      . ffmcfmb*hbcm2*p6p11+fmb*hbcm*p6p11+2*fmb2*p6p11-fmc*hbcm*p6p11
0351      . -2*fmc2*p6p11)+16*p3p6*(-ffmcfmb*fmc*hbcm*p7p11-ffmcfmb*hbcm2*
0352      . p7p11+fmc*hbcm*p7p11-fmc2*p7p11)+32*(ffmcfmb*p2p3*p3p6*p7p11+
0353      . ffmcfmb*p2p3*p3p7*p6p11-ffmcfmb*p3p4*p3p6*p7p11-p2p3*p4p11*
0354      . p6p7+p2p3*p4p7*p6p11+p2p4*p3p6*p7p11+p2p4*p3p7*p6p11-p2p5*p3p7
0355      . *p6p11-2*p3p4*p4p7*p6p11-p3p4*p5p7*p6p11+p3p5*p5p7*p6p11))+
0356      . ans2+ans6+ans9
0357       ans=ccc*ans1
0358       b(30)=ans
0359       b(31)=ccc*(w18*(8*p5p6*(ffmcfmb*hbcm-fmc)+8*p4p6*(ffmcfmb*hbcm-
0360      . fmc)+8*p3p6*(-ffmcfmb**2*hbcm+ffmcfmb*fmb+2*ffmcfmb*fmc+2*
0361      . ffmcfmb*hbcm-fmb-3*fmc))+w1*(8*p5p6*(ffmcfmb*hbcm-fmc)+8*p4p6*
0362      . (ffmcfmb*hbcm-fmc)+8*p3p6*(-ffmcfmb**2*hbcm+ffmcfmb*fmb+2*
0363      . ffmcfmb*fmc+2*ffmcfmb*hbcm-fmb-3*fmc)))
0364       b(32)=w18*ccc*(8*p5p6*(-ffmcfmb*hbcm+fmc)+8*p4p6*(-ffmcfmb*hbcm
0365      . +fmc)+8*p3p6*(ffmcfmb**2*hbcm-ffmcfmb*fmb-2*ffmcfmb*fmc-2*
0366      . ffmcfmb*hbcm+fmb+3*fmc))
0367       ans2=w8*(16*p5p7*(ffmcfmb*hbcm*p6p11-fmc*p6p11)+16*p4p7*(
0368      . ffmcfmb*hbcm*p6p11-fmc*p6p11)+16*p3p7*(ffmcfmb*hbcm*p6p11-fmc*
0369      . p6p11)+16*p6p7*(-2*ffmcfmb*hbcm*p1p11-ffmcfmb*hbcm*p2p11+
0370      . ffmcfmb*hbcm*p4p11+ffmcfmb*hbcm*p5p11+fmb*p1p11+fmb*p2p11-fmb*
0371      . p4p11-fmb*p5p11+3*fmc*p1p11+2*fmc*p2p11-2*fmc*p4p11-2*fmc*
0372      . p5p11)+16*p3p6*(-ffmcfmb**2*hbcm*p7p11+ffmcfmb*fmc*p7p11+
0373      . ffmcfmb*hbcm*p7p11-fmc*p7p11))+8*(ffmcfmb*hbcm*p7p13-fmc*p7p13
0374      . )
0375       ans1=w18*(16*p5p7*(ffmcfmb*hbcm*p6p8+ffmcfmb*hbcm*p6p9-fmc*p6p8
0376      . -fmc*p6p9)+16*p4p7*(ffmcfmb*hbcm*p6p8+ffmcfmb*hbcm*p6p9-fmc*
0377      . p6p8-fmc*p6p9)+16*p3p7*(ffmcfmb*hbcm*p6p8+ffmcfmb*hbcm*p6p9-
0378      . fmc*p6p8-fmc*p6p9)+16*p6p7*(-2*ffmcfmb*hbcm*p1p8-ffmcfmb*hbcm*
0379      . p2p8-ffmcfmb*hbcm*p2p9+ffmcfmb*hbcm*p4p8+ffmcfmb*hbcm*p4p9+
0380      . ffmcfmb*hbcm*p5p8+ffmcfmb*hbcm*p5p9+fmb*p1p8+fmb*p2p8+fmb*p2p9
0381      . -fmb*p4p8-fmb*p4p9-fmb*p5p8-fmb*p5p9+3*fmc*p1p8+2*fmc*p2p8+2*
0382      . fmc*p2p9-2*fmc*p4p8-2*fmc*p4p9-2*fmc*p5p8-2*fmc*p5p9)+16*p3p6*
0383      . (-ffmcfmb**2*hbcm*p7p8-ffmcfmb**2*hbcm*p7p9+ffmcfmb*fmc*p7p8+
0384      . ffmcfmb*fmc*p7p9+ffmcfmb*hbcm*p7p8+ffmcfmb*hbcm*p7p9-fmc*p7p8-
0385      . fmc*p7p9))+w1*(16*p5p7*(ffmcfmb*hbcm*p6p8-fmc*p6p8)+16*p4p7*(
0386      . ffmcfmb*hbcm*p6p8-fmc*p6p8)+16*p3p7*(ffmcfmb*hbcm*p6p8-fmc*
0387      . p6p8)+16*p6p7*(-2*ffmcfmb*hbcm*p1p8-ffmcfmb*hbcm*p2p8+ffmcfmb*
0388      . hbcm*p4p8+ffmcfmb*hbcm*p5p8+fmb*p1p8+fmb*p2p8-fmb*p4p8-fmb*
0389      . p5p8+3*fmc*p1p8+2*fmc*p2p8-2*fmc*p4p8-2*fmc*p5p8)+16*p3p6*(-
0390      . ffmcfmb**2*hbcm*p7p8+ffmcfmb*fmc*p7p8+ffmcfmb*hbcm*p7p8-fmc*
0391      . p7p8))+ans2
0392       ans=ccc*ans1
0393       b(33)=ans
0394       b(34)=4*ccc*w18*(3*ffmcfmb*hbcm-fmb-4*fmc)
0395       b(35)=ccc*(8*w18*(-ffmcfmb*hbcm*p7p8-ffmcfmb*hbcm*p7p9+fmc*p7p8
0396      . +fmc*p7p9)+8*w1*(-ffmcfmb*hbcm*p7p8+fmc*p7p8)+8*w8*(-ffmcfmb*
0397      . hbcm*p7p11+fmc*p7p11))
0398       b(36)=4*ccc*w18*(2*ffmcfmb*hbcm2-fmb*hbcm+3*fmc*hbcm+6*p3p4-2*
0399      . p3p5)
0400       b(37)=w18*ccc*(8*p3p7*(2*ffmcfmb*hbcm-fmc)+8*(2*hbcm*p4p7-hbcm*
0401      . p5p7))
0402       b(38)=ccc*(w18*(16*p3p7*(p4p8+p4p9)+16*p3p4*(-p7p8-p7p9)+8*(-
0403      . ffmcfmb*hbcm2*p7p8-ffmcfmb*hbcm2*p7p9-fmc*hbcm*p7p8-fmc*hbcm*
0404      . p7p9))+8*w1*(-ffmcfmb*hbcm2*p7p8-fmc*hbcm*p7p8-2*p3p4*p7p8+2*
0405      . p3p7*p4p8)+8*w8*(-ffmcfmb*hbcm2*p7p11-fmc*hbcm*p7p11-2*p3p4*
0406      . p7p11+2*p3p7*p4p11))
0407       b(39)=w8*ccc*(8*p6p7*(-ffmcfmb*hbcm2+fmb*hbcm-2*fmc*hbcm)+16*(2
0408      . *ffmcfmb*p3p6*p3p7-2*p3p4*p6p7+p3p5*p6p7+2*p3p6*p4p7-p3p6*p5p7
0409      . +p3p7*p4p6))
0410       b(40)=w8*ccc*(16*(p5p7*p3p6)*(-fmb-2*fmc+hbcm)+16*p6p7*(-
0411      . ffmcfmb*hbcm3+fmb*hbcm2-fmb2*hbcm+2*fmc*hbcm2+fmc2*hbcm)+16*(
0412      . p5p6*p3p7)*(-ffmcfmb*hbcm+hbcm)+16*(p4p6*p3p7)*(-ffmcfmb*hbcm-
0413      . hbcm)+16*(p4p7*p3p6)*(ffmcfmb*hbcm-fmb-2*fmc-hbcm)+16*(p6p7*
0414      . p3p5)*(-ffmcfmb*hbcm+fmb+2*fmc-hbcm)+16*(p6p7*p3p4)*(-ffmcfmb*
0415      . hbcm+fmb+2*fmc+hbcm)+16*(p6p7*p2p3)*(ffmcfmb*hbcm-fmb-2*fmc)+
0416      . 16*(p6p7*p1p3)*(2*ffmcfmb*hbcm-fmb-3*fmc)+16*(p3p7*p3p6)*(-
0417      . ffmcfmb*fmc-fmb-fmc)+16*(-hbcm*p2p4*p6p7+hbcm*p2p5*p6p7-2*hbcm
0418      . *p4p6*p4p7-hbcm*p4p6*p5p7+hbcm*p5p6*p5p7))
0419       b(41)=ccc*(w8*((p5p6*p3p7)*(-16*ffmcfmb+16)+(p4p6*p3p7)*(-16*
0420      . ffmcfmb-32)+(p5p7*p3p6)*(-32*ffmcfmb+16)+8*p6p7*(-ffmcfmb**2*
0421      . hbcm2+2*ffmcfmb*hbcm2-2*fmb2+3*fmc2)+16*(-ffmcfmb*p2p3*p6p7-2*
0422      . ffmcfmb*p3p6*p3p7-2*p2p4*p6p7+p2p5*p6p7+2*p3p4*p6p7-p3p5*p6p7-
0423      . 2*p3p6*p4p7-3*p4p6*p4p7-2*p4p6*p5p7+p5p6*p5p7))+8*p6p7)
0424       b(42)=w18*ccc*(8*p6p7*(-ffmcfmb*hbcm2+fmb*hbcm-2*fmc*hbcm)+16*(
0425      . 2*ffmcfmb*p3p6*p3p7-2*p3p4*p6p7+p3p5*p6p7+2*p3p6*p4p7-p3p6*
0426      . p5p7+p3p7*p4p6))
0427       b(43)=ccc*(w18*(16*p5p7*(-p6p8-p6p9)+16*p6p7*(-2*p4p8-2*p4p9+
0428      . p5p8+p5p9)+32*p4p7*(p6p8+p6p9)+16*p4p6*(p7p8+p7p9)+16*p3p7*(
0429      . ffmcfmb*p6p8+ffmcfmb*p6p9)+16*p3p6*(ffmcfmb*p7p8+ffmcfmb*p7p9)
0430      . )+w1*(16*p6p7*(-2*p4p8+p5p8)+16*(ffmcfmb*p3p6*p7p8+ffmcfmb*
0431      . p3p7*p6p8+p4p6*p7p8+2*p4p7*p6p8-p5p7*p6p8))+w8*(16*p6p7*(-2*
0432      . p4p11+p5p11)+16*(ffmcfmb*p3p6*p7p11+ffmcfmb*p3p7*p6p11+p4p6*
0433      . p7p11+2*p4p7*p6p11-p5p7*p6p11))+8*(p6p12-3*p7p13))
0434       b(44)=ccc*(w8*(8*p5p6*(-ffmcfmb*hbcm2-fmc*hbcm)+8*p4p6*(-
0435      . ffmcfmb*hbcm2-fmc*hbcm+2*hbcm2)+8*p3p6*(-ffmcfmb**2*hbcm2-
0436      . ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+3*ffmcfmb*hbcm2+fmb*hbcm-2*
0437      . fmb2-2*fmc*hbcm+3*fmc2)+16*(-2*ffmcfmb*p2p3*p3p6+2*ffmcfmb*
0438      . p3p4*p3p6-p2p3*p4p6-2*p2p4*p3p6+p2p5*p3p6-p3p4*p5p6+p3p5*p4p6)
0439      . )+8*p3p6)
0440       b(45)=8*ccc*w8*(2*ffmcfmb*p3p6+3*p4p6-p5p6)
0441       b(46)=w8*ccc*(8*p5p6*(-ffmcfmb*hbcm+fmc)+8*p4p6*(-ffmcfmb*hbcm+
0442      . fmc)+8*p3p6*(ffmcfmb**2*hbcm-ffmcfmb*fmb-2*ffmcfmb*fmc-2*
0443      . ffmcfmb*hbcm+fmb+3*fmc))
0444       b(47)=8*ccc*w18*(2*ffmcfmb*p3p6+3*p4p6-p5p6)
0445       b(48)=8*ccc*(p3p6+p4p6+p5p6)
0446       b(49)=w8*ccc*(8*p3p7*(2*ffmcfmb*hbcm-fmc)+8*(2*hbcm*p4p7-hbcm*
0447      . p5p7))
0448       b(50)=8*ccc*w8*(2*ffmcfmb*p3p7+3*p4p7-p5p7)
0449       b(51)=ccc*(w8*((p3p7*p3p5)*(-16*ffmcfmb-16)+(p3p7*p3p4)*(-16*
0450      . ffmcfmb+16)+8*p5p7*(ffmcfmb*hbcm2-fmb*hbcm+2*fmc*hbcm+2*hbcm2)
0451      . +8*p4p7*(ffmcfmb*hbcm2-fmb*hbcm+2*fmc*hbcm-4*hbcm2)+8*p3p7*(
0452      . ffmcfmb**2*hbcm2-3*ffmcfmb*hbcm2-fmb*hbcm+2*fmc*hbcm-fmc2)+16*
0453      . (2*ffmcfmb*p2p3*p3p7+2*p2p3*p4p7-p2p3*p5p7+p2p4*p3p7+3*p3p4*
0454      . p5p7-3*p3p5*p4p7))-8*p3p7)
0455       b(52)=8*ccc*w18*(2*ffmcfmb*p3p7+3*p4p7-p5p7)
0456       b(53)=ccc*(8*w18*(-3*p4p8-3*p4p9+p5p8+p5p9)+8*w1*(-3*p4p8+p5p8)
0457      . +8*w8*(-3*p4p11+p5p11))
0458       b(54)=4*ccc*w8*(2*ffmcfmb*hbcm2-fmb*hbcm+3*fmc*hbcm+6*p3p4-2*
0459      . p3p5)
0460       b(55)=4*ccc*w8*(3*ffmcfmb*hbcm-fmb-4*fmc)
0461       b(56)=ccc*(8*w8*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2+2*ffmcfmb*
0462      . p2p3+fmb2-2*fmc2+3*p2p4-p2p5-3*p3p4+p3p5)-8)
0463       b(57)=-8*ccc
0464       b(58)=w8*ccc*(8*p3p6*(ffmcfmb*hbcm-fmb-3*fmc)+8*(-2*hbcm*p4p6+
0465      . hbcm*p5p6))
0466       b(59)=ccc*(w8*(8*p3p5*(ffmcfmb*hbcm-fmc-hbcm)+8*p3p4*(ffmcfmb*
0467      . hbcm-fmc+2*hbcm)+8*p2p3*(-2*ffmcfmb*hbcm+fmc)+8*p1p3*(-3*
0468      . ffmcfmb*hbcm+fmb+4*fmc)+4*(-ffmcfmb**2*hbcm3+4*ffmcfmb*hbcm3-2
0469      . *fmb2*hbcm-2*fmc*hbcm2+3*fmc2*hbcm-4*hbcm*p2p4+2*hbcm*p2p5))+4
0470      . *hbcm)
0471       b(60)=w18*ccc*(8*p3p6*(ffmcfmb*hbcm-fmb-3*fmc)+8*(-2*hbcm*p4p6+
0472      . hbcm*p5p6))
0473       b(61)=-4*ccc*hbcm
0474       b(62)=8*ccc*(ffmcfmb*hbcm*p3p6+hbcm*p4p6+hbcm*p5p6)
0475       b(65)=ccc*(w18*(8*p6p7*(-ffmcfmb*hbcm2+fmb*hbcm-2*fmc*hbcm)+16*
0476      . (2*ffmcfmb*p3p6*p3p7-2*p3p4*p6p7+p3p5*p6p7+2*p3p6*p4p7-p3p6*
0477      . p5p7+p3p7*p4p6))+w1*(8*p6p7*(-ffmcfmb*hbcm2+fmb*hbcm-2*fmc*
0478      . hbcm)+16*(2*ffmcfmb*p3p6*p3p7-2*p3p4*p6p7+p3p5*p6p7+2*p3p6*
0479      . p4p7-p3p6*p5p7+p3p7*p4p6)))
0480       b(66)=ccc*(w18*(16*p5p7*(-hbcm*p6p8-hbcm*p6p9)+16*p6p7*(-hbcm*
0481      . p4p8-hbcm*p4p9+hbcm*p5p8+hbcm*p5p9)+16*p4p7*(hbcm*p6p8+hbcm*
0482      . p6p9)+16*p4p6*(hbcm*p7p8+hbcm*p7p9)+16*p3p6*(fmc*p7p8+fmc*p7p9
0483      . )+16*p3p7*(-ffmcfmb*hbcm*p6p8-ffmcfmb*hbcm*p6p9+fmb*p6p8+fmb*
0484      . p6p9+2*fmc*p6p8+2*fmc*p6p9))+w1*(16*p6p7*(-hbcm*p4p8+hbcm*p5p8
0485      . )+16*p3p7*(-ffmcfmb*hbcm*p6p8+fmb*p6p8+2*fmc*p6p8)+16*(fmc*
0486      . p3p6*p7p8+hbcm*p4p6*p7p8+hbcm*p4p7*p6p8-hbcm*p5p7*p6p8))+w8*(
0487      . 16*p6p7*(-hbcm*p4p11+hbcm*p5p11)+16*p3p7*(-ffmcfmb*hbcm*p6p11+
0488      . fmb*p6p11+2*fmc*p6p11)+16*(fmc*p3p6*p7p11+hbcm*p4p6*p7p11+hbcm
0489      . *p4p7*p6p11-hbcm*p5p7*p6p11))+8*(hbcm*p6p12-2*hbcm*p7p13))
0490       b(68)=ccc*(8*w18*(2*ffmcfmb*p3p6+3*p4p6-p5p6)+8*w1*(2*ffmcfmb*
0491      . p3p6+3*p4p6-p5p6))
0492       b(71)=ccc*(8*w18*(2*ffmcfmb*p3p7+3*p4p7-p5p7)+8*w1*(2*ffmcfmb*
0493      . p3p7+3*p4p7-p5p7))
0494       b(73)=8*ccc*w8*p6p7*(2*ffmcfmb*hbcm-fmb-3*fmc)
0495       b(74)=ccc*(8*w18*p6p7*(2*ffmcfmb*hbcm-fmb-3*fmc)+8*w1*p6p7*(2*
0496      . ffmcfmb*hbcm-fmb-3*fmc))
0497       b(75)=ccc*(8*w18*(3*ffmcfmb*hbcm*p1p8+3*ffmcfmb*hbcm*p1p9+
0498      . ffmcfmb*hbcm*p2p8+ffmcfmb*hbcm*p2p9-3*ffmcfmb*hbcm*p3p8-3*
0499      . ffmcfmb*hbcm*p3p9-ffmcfmb*hbcm*p4p8-ffmcfmb*hbcm*p4p9-ffmcfmb*
0500      . hbcm*p5p8-ffmcfmb*hbcm*p5p9-fmb*p1p8-fmb*p1p9+fmb*p3p8+fmb*
0501      . p3p9-4*fmc*p1p8-4*fmc*p1p9-fmc*p2p8-fmc*p2p9+4*fmc*p3p8+4*fmc*
0502      . p3p9+fmc*p4p8+fmc*p4p9+fmc*p5p8+fmc*p5p9)+8*w1*(3*ffmcfmb*hbcm
0503      . *p1p8+ffmcfmb*hbcm*p2p8-3*ffmcfmb*hbcm*p3p8-ffmcfmb*hbcm*p4p8-
0504      . ffmcfmb*hbcm*p5p8-fmb*p1p8+fmb*p3p8-4*fmc*p1p8-fmc*p2p8+4*fmc*
0505      . p3p8+fmc*p4p8+fmc*p5p8)+8*w8*(3*ffmcfmb*hbcm*p1p11+ffmcfmb*
0506      . hbcm*p2p11-3*ffmcfmb*hbcm*p3p11-ffmcfmb*hbcm*p4p11-ffmcfmb*
0507      . hbcm*p5p11-fmb*p1p11+fmb*p3p11-4*fmc*p1p11-fmc*p2p11+4*fmc*
0508      . p3p11+fmc*p4p11+fmc*p5p11))
0509       ans2=w8*(16*p2p3*(-2*p4p11+p5p11)+16*p3p5*(p1p11-p3p11+2*p4p11-
0510      . p5p11)+16*p3p4*(-3*p1p11-p2p11+3*p3p11+3*p4p11)+8*(-2*ffmcfmb*
0511      . hbcm2*p1p11-ffmcfmb*hbcm2*p2p11+2*ffmcfmb*hbcm2*p3p11+ffmcfmb*
0512      . hbcm2*p4p11+ffmcfmb*hbcm2*p5p11+fmb*hbcm*p1p11-fmb*hbcm*p3p11-
0513      . 3*fmc*hbcm*p1p11-fmc*hbcm*p2p11+3*fmc*hbcm*p3p11+fmc*hbcm*
0514      . p4p11+fmc*hbcm*p5p11+4*hbcm2*p4p11-2*hbcm2*p5p11))
0515       ans1=w18*(16*p2p3*(-2*p4p8-2*p4p9+p5p8+p5p9)+16*p3p5*(p1p8+p1p9
0516      . -p3p8-p3p9+2*p4p8+2*p4p9-p5p8-p5p9)+16*p3p4*(-3*p1p8-3*p1p9-
0517      . p2p8-p2p9+3*p3p8+3*p3p9+3*p4p8+3*p4p9)+8*(-2*ffmcfmb*hbcm2*
0518      . p1p8-2*ffmcfmb*hbcm2*p1p9-ffmcfmb*hbcm2*p2p8-ffmcfmb*hbcm2*
0519      . p2p9+2*ffmcfmb*hbcm2*p3p8+2*ffmcfmb*hbcm2*p3p9+ffmcfmb*hbcm2*
0520      . p4p8+ffmcfmb*hbcm2*p4p9+ffmcfmb*hbcm2*p5p8+ffmcfmb*hbcm2*p5p9+
0521      . fmb*hbcm*p1p8+fmb*hbcm*p1p9-fmb*hbcm*p3p8-fmb*hbcm*p3p9-3*fmc*
0522      . hbcm*p1p8-3*fmc*hbcm*p1p9-fmc*hbcm*p2p8-fmc*hbcm*p2p9+3*fmc*
0523      . hbcm*p3p8+3*fmc*hbcm*p3p9+fmc*hbcm*p4p8+fmc*hbcm*p4p9+fmc*hbcm
0524      . *p5p8+fmc*hbcm*p5p9+4*hbcm2*p4p8+4*hbcm2*p4p9-2*hbcm2*p5p8-2*
0525      . hbcm2*p5p9))+w1*(16*p2p3*(-2*p4p8+p5p8)+16*p3p5*(p1p8-p3p8+2*
0526      . p4p8-p5p8)+16*p3p4*(-3*p1p8-p2p8+3*p3p8+3*p4p8)+8*(-2*ffmcfmb*
0527      . hbcm2*p1p8-ffmcfmb*hbcm2*p2p8+2*ffmcfmb*hbcm2*p3p8+ffmcfmb*
0528      . hbcm2*p4p8+ffmcfmb*hbcm2*p5p8+fmb*hbcm*p1p8-fmb*hbcm*p3p8-3*
0529      . fmc*hbcm*p1p8-fmc*hbcm*p2p8+3*fmc*hbcm*p3p8+fmc*hbcm*p4p8+fmc*
0530      . hbcm*p5p8+4*hbcm2*p4p8-2*hbcm2*p5p8))+ans2
0531       ans=ccc*ans1
0532       b(76)=ans
0533       b(77)=ccc*(w18*(16*p3p6*(2*p4p8+2*p4p9-p5p8-p5p9)+16*p3p5*(p6p8
0534      . +p6p9)+32*p3p4*(-p6p8-p6p9)+8*(-ffmcfmb*hbcm2*p6p8-ffmcfmb*
0535      . hbcm2*p6p9+fmb*hbcm*p6p8+fmb*hbcm*p6p9-2*fmc*hbcm*p6p8-2*fmc*
0536      . hbcm*p6p9))+w1*(16*p3p6*(2*p4p8-p5p8)+8*(-ffmcfmb*hbcm2*p6p8+
0537      . fmb*hbcm*p6p8-2*fmc*hbcm*p6p8-4*p3p4*p6p8+2*p3p5*p6p8))+w8*(16
0538      . *p3p6*(2*p4p11-p5p11)+8*(-ffmcfmb*hbcm2*p6p11+fmb*hbcm*p6p11-2
0539      . *fmc*hbcm*p6p11-4*p3p4*p6p11+2*p3p5*p6p11))+8*p3p13)
0540       b(78)=ccc*(8*w18*(2*ffmcfmb*hbcm*p6p8+2*ffmcfmb*hbcm*p6p9-fmb*
0541      . p6p8-fmb*p6p9-3*fmc*p6p8-3*fmc*p6p9)+8*w1*(2*ffmcfmb*hbcm*p6p8
0542      . -fmb*p6p8-3*fmc*p6p8)+8*w8*(2*ffmcfmb*hbcm*p6p11-fmb*p6p11-3*
0543      . fmc*p6p11))
0544       b(79)=8*ccc*w18*p6p7*(2*ffmcfmb*hbcm-fmb-3*fmc)
0545       b(80)=w18*ccc*(8*p5p7*(-2*ffmcfmb*hbcm+fmb+3*fmc)+8*p4p7*(-2*
0546      . ffmcfmb*hbcm+fmb+3*fmc)+8*p3p7*(-2*ffmcfmb*hbcm+fmb+3*fmc))
0547       b(82)=-8*ccc*p3p7
0548       b(83)=ccc*(8*p3p7*(fmc+hbcm)+8*(hbcm*p4p7+2*hbcm*p5p7))
0549       b(84)=8*ccc*(2*p3p7+p4p7+3*p5p7)
0550       b(85)=4*ccc*(fmb*hbcm-fmc*hbcm-4*hbcm2+2*p1p3+4*p2p3-6*p3p4-2*
0551      . p3p5)
0552       b(86)=-8*ccc
0553       b(87)=4*ccc*(-ffmcfmb*hbcm+fmb+2*fmc)
0554       b(89)=-4*ccc*hbcm
0555       b(90)=w8*ccc*(8*p5p7*(-2*ffmcfmb*hbcm+fmb+3*fmc)+8*p4p7*(-2*
0556      . ffmcfmb*hbcm+fmb+3*fmc)+8*p3p7*(-2*ffmcfmb*hbcm+fmb+3*fmc))
0557       b(91)=ccc*(w18*(8*p5p7*(-2*ffmcfmb*hbcm+fmb+3*fmc)+8*p4p7*(-2*
0558      . ffmcfmb*hbcm+fmb+3*fmc)+8*p3p7*(-2*ffmcfmb*hbcm+fmb+3*fmc))+w1
0559      . *(8*p5p7*(-2*ffmcfmb*hbcm+fmb+3*fmc)+8*p4p7*(-2*ffmcfmb*hbcm+
0560      . fmb+3*fmc)+8*p3p7*(-2*ffmcfmb*hbcm+fmb+3*fmc)))
0561       b(92)=8*ccc*(-2*hbcm2+3*p1p3+2*p2p3-2*p3p4-2*p3p5)
0562       b(93)=8*ccc*p3p6
0563       do 200 n=1,94
0564          c(n,1)=c(n,1)-0.09090909090909091d0*b(n)
0565          c(n,2)=c(n,2)-0.1680909685530997d0*b(n)
0566          c(n,3)=c(n,3)-0.2077659977796572d0*b(n)
0567 200   continue
0568       return
0569       end
0570
0571       subroutine amp17_3p2(cc)
0572       implicit double precision(a-h,o-z)
0573       implicit integer (i-n)
0574       dimension b(94)
0575 #include "inclcon.h"
0576 #include "inclppp.h"
0577 #include "inclamp.h"
0578       do 100 n=1,94
0579          b(n)=0.0d0
0580 100   continue
0581       ccc=cc/((ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*p3p5+fmb2+
0582      . hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3-2*ffmcfmb*p2p3-
0583      . fmc2+2*p1p2)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3-fmc2))
0584       b(2)=w2*ccc*((p6p7*p1p3)*(-16*ffmcfmb+32)+8*p6p7*(ffmcfmb**2*
0585      . hbcm2+2*ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2-2*
0586      . fmb*fmc+fmc*hbcm+fmc2)+16*(ffmcfmb*p3p6*p3p7+2*ffmcfmb*p3p6*
0587      . p5p7-p1p2*p6p7+3*p1p5*p6p7))
0588       ans=ccc*(w2*(16*p1p3*(-ffmcfmb*p7p9-p7p9)+8*(ffmcfmb**2*hbcm2*
0589      . p7p9+2*ffmcfmb*fmb*hbcm*p7p9-2*ffmcfmb*fmc*hbcm*p7p9-ffmcfmb*
0590      . hbcm2*p7p9-2*ffmcfmb*p1p9*p3p7-2*fmb*fmc*p7p9+fmc*hbcm*p7p9+
0591      . fmc2*p7p9+4*p1p2*p7p9-6*p1p4*p7p9-2*p1p9*p4p7))+w17*(48*p1p4*(
0592      . -p7p10-p7p11)+32*p1p2*(p7p10+p7p11)+16*p4p7*(-p1p10-p1p11)+16*
0593      . p1p3*(-ffmcfmb*p7p10-ffmcfmb*p7p11-p7p10-p7p11)+16*p3p7*(-
0594      . ffmcfmb*p1p10-ffmcfmb*p1p11)+8*(ffmcfmb**2*hbcm2*p7p10+ffmcfmb
0595      . **2*hbcm2*p7p11+2*ffmcfmb*fmb*hbcm*p7p10+2*ffmcfmb*fmb*hbcm*
0596      . p7p11-2*ffmcfmb*fmc*hbcm*p7p10-2*ffmcfmb*fmc*hbcm*p7p11-
0597      . ffmcfmb*hbcm2*p7p10-ffmcfmb*hbcm2*p7p11-2*fmb*fmc*p7p10-2*fmb*
0598      . fmc*p7p11+fmc*hbcm*p7p10+fmc*hbcm*p7p11+fmc2*p7p10+fmc2*p7p11)
0599      . )+w12*(16*p1p3*(-ffmcfmb*p7p10-p7p10)+8*(ffmcfmb**2*hbcm2*
0600      . p7p10+2*ffmcfmb*fmb*hbcm*p7p10-2*ffmcfmb*fmc*hbcm*p7p10-
0601      . ffmcfmb*hbcm2*p7p10-2*ffmcfmb*p1p10*p3p7-2*fmb*fmc*p7p10+fmc*
0602      . hbcm*p7p10+fmc2*p7p10-2*p1p10*p4p7+4*p1p2*p7p10-6*p1p4*p7p10))
0603      . +8*(-p3p12-p4p12-p5p12-p7p10+p7p11))
0604       b(3)=ans
0605       b(5)=w2*ccc*(16*p5p7*(-ffmcfmb*hbcm2+fmc*hbcm)+8*p3p7*(-ffmcfmb
0606      . **2*hbcm2-2*ffmcfmb*fmb*hbcm+2*ffmcfmb*fmc*hbcm+2*fmb*fmc-fmc2
0607      . )+16*(2*ffmcfmb*p1p3*p3p7-2*p1p2*p3p7-p1p3*p5p7+3*p1p4*p3p7))
0608       ans3=w12*(32*p3p4*(-ffmcfmb*hbcm*p7p10+fmc*p7p10)+16*p2p3*(
0609      . ffmcfmb*hbcm*p7p10-fmc*p7p10)+16*p1p3*(2*ffmcfmb*hbcm*p7p10+
0610      . fmb*p7p10-fmc*p7p10)+16*p3p7*(ffmcfmb*hbcm*p1p10+ffmcfmb*hbcm*
0611      . p2p10-2*ffmcfmb*hbcm*p5p10-fmb*p1p10-fmc*p1p10-fmc*p2p10+2*fmc
0612      . *p5p10)+8*(ffmcfmb*fmb*hbcm2*p7p10+ffmcfmb*fmc*hbcm2*p7p10-2*
0613      . ffmcfmb*hbcm3*p7p10-fmb*fmc*hbcm*p7p10+2*fmc*hbcm2*p7p10-fmc2*
0614      . hbcm*p7p10-2*hbcm*p1p10*p5p7-2*hbcm*p1p2*p7p10+4*hbcm*p1p4*
0615      . p7p10))+8*(hbcm*p2p12+hbcm*p3p12+hbcm*p4p12+hbcm*p5p12-2*hbcm*
0616      . p7p11)
0617       ans2=w17*(32*p1p4*(hbcm*p7p10+hbcm*p7p11)+16*p1p2*(-hbcm*p7p10-
0618      . hbcm*p7p11)+16*p5p7*(-hbcm*p1p10-hbcm*p1p11)+32*p3p4*(-ffmcfmb
0619      . *hbcm*p7p10-ffmcfmb*hbcm*p7p11+fmc*p7p10+fmc*p7p11)+16*p2p3*(
0620      . ffmcfmb*hbcm*p7p10+ffmcfmb*hbcm*p7p11-fmc*p7p10-fmc*p7p11)+16*
0621      . p1p3*(2*ffmcfmb*hbcm*p7p10+2*ffmcfmb*hbcm*p7p11+fmb*p7p10+fmb*
0622      . p7p11-fmc*p7p10-fmc*p7p11)+16*p3p7*(ffmcfmb*hbcm*p1p10+ffmcfmb
0623      . *hbcm*p1p11+ffmcfmb*hbcm*p2p10+ffmcfmb*hbcm*p2p11-2*ffmcfmb*
0624      . hbcm*p5p10-2*ffmcfmb*hbcm*p5p11-fmb*p1p10-fmb*p1p11-fmc*p1p10-
0625      . fmc*p1p11-fmc*p2p10-fmc*p2p11+2*fmc*p5p10+2*fmc*p5p11)+8*(
0626      . ffmcfmb*fmb*hbcm2*p7p10+ffmcfmb*fmb*hbcm2*p7p11+ffmcfmb*fmc*
0627      . hbcm2*p7p10+ffmcfmb*fmc*hbcm2*p7p11-2*ffmcfmb*hbcm3*p7p10-2*
0628      . ffmcfmb*hbcm3*p7p11-fmb*fmc*hbcm*p7p10-fmb*fmc*hbcm*p7p11+2*
0629      . fmc*hbcm2*p7p10+2*fmc*hbcm2*p7p11-fmc2*hbcm*p7p10-fmc2*hbcm*
0630      . p7p11))+ans3
0631       ans1=w2*(32*p3p4*(-ffmcfmb*hbcm*p7p9+fmc*p7p9)+16*p2p3*(ffmcfmb
0632      . *hbcm*p7p9-fmc*p7p9)+16*p3p7*(ffmcfmb*hbcm*p1p9+ffmcfmb*hbcm*
0633      . p2p9-2*ffmcfmb*hbcm*p5p9-fmb*p1p9-fmc*p1p9-fmc*p2p9+2*fmc*p5p9
0634      . )+16*p1p3*(2*ffmcfmb*hbcm*p7p9+fmb*p7p9-fmc*p7p9)+8*(ffmcfmb*
0635      . fmb*hbcm2*p7p9+ffmcfmb*fmc*hbcm2*p7p9-2*ffmcfmb*hbcm3*p7p9-fmb
0636      . *fmc*hbcm*p7p9+2*fmc*hbcm2*p7p9-fmc2*hbcm*p7p9-2*hbcm*p1p2*
0637      . p7p9+4*hbcm*p1p4*p7p9-2*hbcm*p1p9*p5p7))+ans2
0638       ans=ccc*ans1
0639       b(6)=ans
0640       ans=ccc*(w2*(16*p3p6*(ffmcfmb*p2p9-2*ffmcfmb*p3p9-2*ffmcfmb*
0641      . p4p9-p1p9)+16*p1p3*(-ffmcfmb*p6p9+p6p9)+8*(ffmcfmb**2*hbcm2*
0642      . p6p9+ffmcfmb*fmb*hbcm*p6p9-ffmcfmb*fmc*hbcm*p6p9-ffmcfmb*hbcm2
0643      . *p6p9-fmb*fmc*p6p9+fmc*hbcm*p6p9+2*p1p5*p6p9-6*p1p9*p4p6))+w17
0644      . *(16*p1p5*(p6p10+p6p11)+48*p4p6*(-p1p10-p1p11)+16*p3p6*(
0645      . ffmcfmb*p2p10+ffmcfmb*p2p11-2*ffmcfmb*p3p10-2*ffmcfmb*p3p11-2*
0646      . ffmcfmb*p4p10-2*ffmcfmb*p4p11-p1p10-p1p11)+16*p1p3*(-ffmcfmb*
0647      . p6p10-ffmcfmb*p6p11+p6p10+p6p11)+8*(ffmcfmb**2*hbcm2*p6p10+
0648      . ffmcfmb**2*hbcm2*p6p11+ffmcfmb*fmb*hbcm*p6p10+ffmcfmb*fmb*hbcm
0649      . *p6p11-ffmcfmb*fmc*hbcm*p6p10-ffmcfmb*fmc*hbcm*p6p11-ffmcfmb*
0650      . hbcm2*p6p10-ffmcfmb*hbcm2*p6p11-fmb*fmc*p6p10-fmb*fmc*p6p11+
0651      . fmc*hbcm*p6p10+fmc*hbcm*p6p11))+w12*(16*p3p6*(ffmcfmb*p2p10-2*
0652      . ffmcfmb*p3p10-2*ffmcfmb*p4p10-p1p10)+16*p1p3*(-ffmcfmb*p6p10+
0653      . p6p10)+8*(ffmcfmb**2*hbcm2*p6p10+ffmcfmb*fmb*hbcm*p6p10-
0654      . ffmcfmb*fmc*hbcm*p6p10-ffmcfmb*hbcm2*p6p10-fmb*fmc*p6p10+fmc*
0655      . hbcm*p6p10-6*p1p10*p4p6+2*p1p5*p6p10))+8*(-3*p1p13-2*p2p13+4*
0656      . p3p13+p4p13+3*p5p13-p6p10))
0657       b(7)=ans
0658       b(9)=w2*ccc*(16*p4p6*(-ffmcfmb*hbcm2+fmc*hbcm)+8*p3p6*(-ffmcfmb
0659      . **2*hbcm2-2*ffmcfmb*fmb*hbcm+2*ffmcfmb*fmc*hbcm+2*ffmcfmb*
0660      . hbcm2+fmb*fmc)+16*(ffmcfmb*p1p3*p3p6-ffmcfmb*p2p3*p3p6+2*
0661      . ffmcfmb*p3p4*p3p6+3*p1p3*p4p6-p1p5*p3p6))
0662       ans3=w12*(16*p3p5*(ffmcfmb*hbcm*p6p10-fmc*p6p10)+16*p4p6*(-3*
0663      . ffmcfmb*hbcm*p3p10+3*fmc*p3p10-hbcm*p1p10)+16*p3p6*(2*ffmcfmb*
0664      . fmb*p3p10+2*ffmcfmb*fmc*p3p10-2*ffmcfmb*hbcm*p1p10-ffmcfmb*
0665      . hbcm*p2p10+2*ffmcfmb*hbcm*p4p10+fmc*p1p10+fmc*p2p10-fmc*p4p10)
0666      . +8*(-ffmcfmb**2*hbcm3*p6p10+ffmcfmb*fmb*hbcm2*p6p10+ffmcfmb*
0667      . fmc*hbcm2*p6p10+ffmcfmb*hbcm3*p6p10-fmb*fmc*hbcm*p6p10-2*fmb*
0668      . p1p3*p6p10-fmc*hbcm2*p6p10-2*hbcm*p1p5*p6p10))+8*(-3*fmb*p3p13
0669      . -3*fmc*p3p13+2*hbcm*p1p13+2*hbcm*p2p13-hbcm*p3p13-hbcm*p4p13-2
0670      . *hbcm*p5p13+hbcm*p6p10)
0671       ans2=w17*(16*p1p5*(-hbcm*p6p10-hbcm*p6p11)+16*p1p3*(-fmb*p6p10-
0672      . fmb*p6p11)+16*p3p5*(ffmcfmb*hbcm*p6p10+ffmcfmb*hbcm*p6p11-fmc*
0673      . p6p10-fmc*p6p11)+16*p4p6*(-3*ffmcfmb*hbcm*p3p10+3*fmc*p3p10-
0674      . hbcm*p1p10-hbcm*p1p11)+16*p3p6*(2*ffmcfmb*fmb*p3p10+2*ffmcfmb*
0675      . fmc*p3p10-2*ffmcfmb*hbcm*p1p10-2*ffmcfmb*hbcm*p1p11-ffmcfmb*
0676      . hbcm*p2p10-ffmcfmb*hbcm*p2p11+2*ffmcfmb*hbcm*p3p11+2*ffmcfmb*
0677      . hbcm*p4p10+2*ffmcfmb*hbcm*p4p11+fmc*p1p10+fmc*p1p11+fmc*p2p10+
0678      . fmc*p2p11-fmc*p3p11-fmc*p4p10-fmc*p4p11)+8*(-ffmcfmb**2*hbcm3*
0679      . p6p10-ffmcfmb**2*hbcm3*p6p11+ffmcfmb*fmb*hbcm2*p6p10+ffmcfmb*
0680      . fmb*hbcm2*p6p11+ffmcfmb*fmc*hbcm2*p6p10+ffmcfmb*fmc*hbcm2*
0681      . p6p11+ffmcfmb*hbcm3*p6p10+ffmcfmb*hbcm3*p6p11-fmb*fmc*hbcm*
0682      . p6p10-fmb*fmc*hbcm*p6p11-fmc*hbcm2*p6p10-fmc*hbcm2*p6p11))+
0683      . ans3
0684       ans1=w2*(16*p3p5*(ffmcfmb*hbcm*p6p9-fmc*p6p9)+16*p3p6*(-2*
0685      . ffmcfmb*hbcm*p1p9-ffmcfmb*hbcm*p2p9+2*ffmcfmb*hbcm*p3p9+2*
0686      . ffmcfmb*hbcm*p4p9+fmc*p1p9+fmc*p2p9-fmc*p3p9-fmc*p4p9)+8*(-
0687      . ffmcfmb**2*hbcm3*p6p9+ffmcfmb*fmb*hbcm2*p6p9+ffmcfmb*fmc*hbcm2
0688      . *p6p9+ffmcfmb*hbcm3*p6p9-fmb*fmc*hbcm*p6p9-2*fmb*p1p3*p6p9-fmc
0689      . *hbcm2*p6p9-2*hbcm*p1p5*p6p9-2*hbcm*p1p9*p4p6))+ans2
0690       ans=ccc*ans1
0691       b(10)=ans
0692       b(12)=w2*ccc*(16*(p6p7*p1p3)*(-fmb-fmc+2*hbcm)+32*(p4p6*p3p7)*(
0693      . -ffmcfmb*hbcm+fmc)+16*(p5p7*p3p6)*(2*ffmcfmb*hbcm-fmc)+32*(
0694      . p6p7*p3p5)*(-ffmcfmb*hbcm+fmc)+16*(p6p7*p2p3)*(ffmcfmb*hbcm-
0695      . fmc)+16*(p3p7*p3p6)*(ffmcfmb*fmb+2*ffmcfmb*fmc)+8*p6p7*(-
0696      . ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-2*ffmcfmb*hbcm3+fmb*fmc*
0697      . hbcm+2*fmc*hbcm2+fmc2*hbcm)+16*(-hbcm*p1p2*p6p7+2*hbcm*p1p5*
0698      . p6p7))
0699       b(14)=w2*ccc*(p1p3*(16*ffmcfmb+8)+4*(-2*ffmcfmb**2*hbcm2-3*
0700      . ffmcfmb*fmb*hbcm+3*ffmcfmb*fmc*hbcm+2*ffmcfmb*hbcm2+3*fmb*fmc-
0701      . 2*fmc*hbcm-fmc2-6*p1p2+8*p1p4))
0702       b(16)=w2*ccc*(24*p3p4*(ffmcfmb*hbcm-fmc)+16*p2p3*(-ffmcfmb*hbcm
0703      . +fmc)+8*p1p3*(-4*ffmcfmb*hbcm-fmb+2*fmc)+4*(ffmcfmb**2*hbcm3-2
0704      . *ffmcfmb*fmb*hbcm2-2*ffmcfmb*fmc*hbcm2+3*ffmcfmb*hbcm3+2*fmb*
0705      . fmc*hbcm-3*fmc*hbcm2+fmc2*hbcm+4*hbcm*p1p2-6*hbcm*p1p4))
0706       b(17)=ccc*(w17*(8*p3p6*(2*ffmcfmb*hbcm+fmb)+24*hbcm*p4p6)+w12*(
0707      . 8*p3p6*(2*ffmcfmb*hbcm+fmb)+24*hbcm*p4p6))
0708       b(18)=ccc*(4*w17*(-3*ffmcfmb*hbcm-4*fmb-fmc+3*hbcm)+4*w12*(-3*
0709      . ffmcfmb*hbcm-4*fmb-fmc+3*hbcm))
0710       b(19)=ccc*(4*w17*(-2*ffmcfmb*hbcm2+3*fmb*hbcm-fmc*hbcm-4*hbcm2+
0711      . 6*p1p3+6*p2p3-8*p3p4)+4*w12*(-2*ffmcfmb*hbcm2+3*fmb*hbcm-fmc*
0712      . hbcm-4*hbcm2+6*p1p3+6*p2p3-8*p3p4))
0713       b(20)=ccc*(w17*(8*p3p7*(ffmcfmb*hbcm+3*fmb+fmc)+24*hbcm*p5p7)+
0714      . w12*(8*p3p7*(ffmcfmb*hbcm+3*fmb+fmc)+24*hbcm*p5p7))
0715       b(21)=ccc*(8*w2*(-2*hbcm*p1p9-2*hbcm*p2p9+3*hbcm*p3p9+3*hbcm*
0716      . p4p9)+8*w17*(3*ffmcfmb*hbcm*p3p10+4*fmb*p3p10+fmc*p3p10-2*hbcm
0717      . *p1p10-2*hbcm*p1p11-2*hbcm*p2p10-2*hbcm*p2p11+3*hbcm*p3p11+3*
0718      . hbcm*p4p10+3*hbcm*p4p11)+8*w12*(3*ffmcfmb*hbcm*p3p10+4*fmb*
0719      . p3p10+fmc*p3p10-2*hbcm*p1p10-2*hbcm*p2p10+3*hbcm*p4p10))
0720       b(22)=ccc*(w17*(24*p3p4*(ffmcfmb*hbcm-fmc)+16*p2p3*(-ffmcfmb*
0721      . hbcm+fmc)+8*p1p3*(-4*ffmcfmb*hbcm-fmb+2*fmc)+4*(ffmcfmb**2*
0722      . hbcm3-2*ffmcfmb*fmb*hbcm2-2*ffmcfmb*fmc*hbcm2+3*ffmcfmb*hbcm3+
0723      . 2*fmb*fmc*hbcm-3*fmc*hbcm2+fmc2*hbcm+4*hbcm*p1p2-6*hbcm*p1p4))
0724      . +w12*(24*p3p4*(ffmcfmb*hbcm-fmc)+16*p2p3*(-ffmcfmb*hbcm+fmc)+8
0725      . *p1p3*(-4*ffmcfmb*hbcm-fmb+2*fmc)+4*(ffmcfmb**2*hbcm3-2*
0726      . ffmcfmb*fmb*hbcm2-2*ffmcfmb*fmc*hbcm2+3*ffmcfmb*hbcm3+2*fmb*
0727      . fmc*hbcm-3*fmc*hbcm2+fmc2*hbcm+4*hbcm*p1p2-6*hbcm*p1p4))-4*
0728      . hbcm)
0729       b(27)=ccc*(w17*(24*p4p6*(ffmcfmb*hbcm-fmc)+8*p3p6*(-2*ffmcfmb*
0730      . fmb-2*ffmcfmb*fmc+2*ffmcfmb*hbcm-fmc))+w12*(24*p4p6*(ffmcfmb*
0731      . hbcm-fmc)+8*p3p6*(-2*ffmcfmb*fmb-2*ffmcfmb*fmc+2*ffmcfmb*hbcm-
0732      . fmc)))
0733       b(28)=ccc*(w17*(16*p4p6*(ffmcfmb*hbcm2-fmc*hbcm)+8*p3p6*(
0734      . ffmcfmb**2*hbcm2+2*ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*hbcm-2*
0735      . ffmcfmb*hbcm2-fmb*fmc)+16*(-ffmcfmb*p1p3*p3p6+ffmcfmb*p2p3*
0736      . p3p6-2*ffmcfmb*p3p4*p3p6-3*p1p3*p4p6+p1p5*p3p6))+w12*(16*p4p6*
0737      . (ffmcfmb*hbcm2-fmc*hbcm)+8*p3p6*(ffmcfmb**2*hbcm2+2*ffmcfmb*
0738      . fmb*hbcm-2*ffmcfmb*fmc*hbcm-2*ffmcfmb*hbcm2-fmb*fmc)+16*(-
0739      . ffmcfmb*p1p3*p3p6+ffmcfmb*p2p3*p3p6-2*ffmcfmb*p3p4*p3p6-3*p1p3
0740      . *p4p6+p1p5*p3p6))-8*p3p6)
0741       b(29)=ccc*(w17*(32*(p4p6*p3p7)*(-ffmcfmb*hbcm+fmc)+16*(p5p7*
0742      . p3p6)*(2*ffmcfmb*hbcm-fmc)+32*(p6p7*p3p5)*(-ffmcfmb*hbcm+fmc)+
0743      . 16*(p6p7*p2p3)*(ffmcfmb*hbcm-fmc)+32*(p6p7*p1p3)*(ffmcfmb*hbcm
0744      . +fmb)+16*(p3p7*p3p6)*(ffmcfmb*fmb+2*ffmcfmb*fmc)+8*p6p7*(-
0745      . ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-2*ffmcfmb*hbcm3+fmb*fmc*
0746      . hbcm+2*fmc*hbcm2+fmc2*hbcm)+16*(-hbcm*p1p2*p6p7+2*hbcm*p1p5*
0747      . p6p7))+w12*(32*(p4p6*p3p7)*(-ffmcfmb*hbcm+fmc)+16*(p5p7*p3p6)*
0748      . (2*ffmcfmb*hbcm-fmc)+32*(p6p7*p3p5)*(-ffmcfmb*hbcm+fmc)+16*(
0749      . p6p7*p2p3)*(ffmcfmb*hbcm-fmc)+32*(p6p7*p1p3)*(ffmcfmb*hbcm+fmb
0750      . )+16*(p3p7*p3p6)*(ffmcfmb*fmb+2*ffmcfmb*fmc)+8*p6p7*(-ffmcfmb*
0751      . fmb*hbcm2-ffmcfmb*fmc*hbcm2-2*ffmcfmb*hbcm3+fmb*fmc*hbcm+2*fmc
0752      . *hbcm2+fmc2*hbcm)+16*(-hbcm*p1p2*p6p7+2*hbcm*p1p5*p6p7)))
0753       ans4=16*p6p7*(ffmcfmb*hbcm2*p2p10+ffmcfmb*hbcm2*p2p11-ffmcfmb*
0754      . hbcm2*p5p10-ffmcfmb*hbcm2*p5p11+fmb*hbcm*p1p10+fmb*hbcm*p1p11-
0755      . fmc*hbcm*p1p10-fmc*hbcm*p1p11-fmc*hbcm*p2p10-fmc*hbcm*p2p11+
0756      . fmc*hbcm*p5p10+fmc*hbcm*p5p11+5*hbcm2*p1p10+5*hbcm2*p1p11)+16*
0757      . p3p7*(-ffmcfmb**2*hbcm2*p6p10-ffmcfmb**2*hbcm2*p6p11+ffmcfmb*
0758      . fmc*hbcm*p6p10+ffmcfmb*fmc*hbcm*p6p11+ffmcfmb*hbcm2*p6p10+
0759      . ffmcfmb*hbcm2*p6p11-fmc*hbcm*p6p10-fmc*hbcm*p6p11)+16*p3p6*(-
0760      . ffmcfmb**2*hbcm2*p7p10-ffmcfmb**2*hbcm2*p7p11-ffmcfmb*fmb*hbcm
0761      . *p7p10-ffmcfmb*fmb*hbcm*p7p11+ffmcfmb*fmc*hbcm*p7p10+ffmcfmb*
0762      . fmc*hbcm*p7p11+ffmcfmb*hbcm2*p7p10+ffmcfmb*hbcm2*p7p11+fmb*fmc
0763      . *p7p10+fmb*fmc*p7p11)
0764       ans3=32*(p3p6*p1p5)*(-p7p10-p7p11)+32*(p5p7*p1p3)*(-p6p10-p6p11
0765      . )+64*(p4p6*p1p3)*(p7p10+p7p11)+128*(p4p6*p3p7)*(p1p10+p1p11)+
0766      . 32*(p5p7*p3p6)*(p1p10+p1p11)+32*(p4p7*p3p6)*(p1p10+p1p11)+96*(
0767      . p6p7*p3p5)*(p1p10+p1p11)+64*(p6p7*p3p4)*(p1p10+p1p11)+64*(p6p7
0768      . *p2p3)*(-p1p10-p1p11)+32*(p6p7*p1p3)*(-3*p1p10-3*p1p11-p2p10-
0769      . p2p11+2*p5p10+2*p5p11)+32*(p3p6*p3p4)*(ffmcfmb*p7p10+ffmcfmb*
0770      . p7p11)+32*(p3p7*p3p6)*(-2*ffmcfmb*p2p10-2*ffmcfmb*p2p11+2*
0771      . ffmcfmb*p3p10+2*ffmcfmb*p3p11+2*ffmcfmb*p4p10+2*ffmcfmb*p4p11+
0772      . ffmcfmb*p5p10+ffmcfmb*p5p11+2*p1p10+2*p1p11)+32*(p3p7*p1p3)*(
0773      . ffmcfmb*p6p10+ffmcfmb*p6p11-p6p10-p6p11)+32*(p3p6*p1p3)*(
0774      . ffmcfmb*p7p10+ffmcfmb*p7p11)+16*p5p7*(ffmcfmb*hbcm2*p6p10+
0775      . ffmcfmb*hbcm2*p6p11-fmc*hbcm*p6p10-fmc*hbcm*p6p11)+16*p4p6*(-
0776      . ffmcfmb*hbcm2*p7p10-ffmcfmb*hbcm2*p7p11+fmc*hbcm*p7p10+fmc*
0777      . hbcm*p7p11)+ans4
0778       ans2=w17*ans3
0779       ans5=w12*(32*(p6p7*p1p3)*(-3*p1p10-p2p10+2*p5p10)+32*(p3p7*p3p6
0780      . )*(-2*ffmcfmb*p2p10+2*ffmcfmb*p3p10+2*ffmcfmb*p4p10+ffmcfmb*
0781      . p5p10+2*p1p10)+32*(p3p7*p1p3)*(ffmcfmb*p6p10-p6p10)+16*p5p7*(
0782      . ffmcfmb*hbcm2*p6p10-fmc*hbcm*p6p10)+16*p4p6*(-ffmcfmb*hbcm2*
0783      . p7p10+fmc*hbcm*p7p10)+16*p6p7*(ffmcfmb*hbcm2*p2p10-ffmcfmb*
0784      . hbcm2*p5p10+fmb*hbcm*p1p10-fmc*hbcm*p1p10-fmc*hbcm*p2p10+fmc*
0785      . hbcm*p5p10+5*hbcm2*p1p10)+16*p3p7*(-ffmcfmb**2*hbcm2*p6p10+
0786      . ffmcfmb*fmc*hbcm*p6p10+ffmcfmb*hbcm2*p6p10-fmc*hbcm*p6p10)+16*
0787      . p3p6*(-ffmcfmb**2*hbcm2*p7p10-ffmcfmb*fmb*hbcm*p7p10+ffmcfmb*
0788      . fmc*hbcm*p7p10+ffmcfmb*hbcm2*p7p10+fmb*fmc*p7p10)+32*(ffmcfmb*
0789      . p1p3*p3p6*p7p10+ffmcfmb*p3p4*p3p6*p7p10-2*p1p10*p2p3*p6p7+2*
0790      . p1p10*p3p4*p6p7+3*p1p10*p3p5*p6p7+p1p10*p3p6*p4p7+p1p10*p3p6*
0791      . p5p7+4*p1p10*p3p7*p4p6+2*p1p3*p4p6*p7p10-p1p3*p5p7*p6p10-p1p5*
0792      . p3p6*p7p10))+(16*p1p3*(p6p12+3*p7p13)+16*p3p6*(-p1p12+p7p10)+
0793      . 16*p3p7*(ffmcfmb*p3p13+3*p1p13+p2p13-p3p13-p4p13-2*p5p13)+8*(-
0794      . ffmcfmb*hbcm2*p6p12+fmc*hbcm*p6p12-5*hbcm2*p7p13+6*p2p3*p7p13+
0795      . 4*p3p11*p6p7+6*p3p13*p4p7-4*p3p4*p7p13-6*p3p5*p7p13))
0796       ans1=w2*(32*(p6p7*p1p3)*(-3*p1p9-p2p9+2*p5p9)+32*(p3p7*p3p6)*(-
0797      . 2*ffmcfmb*p2p9+2*ffmcfmb*p3p9+2*ffmcfmb*p4p9+ffmcfmb*p5p9+2*
0798      . p1p9)+32*(p3p7*p1p3)*(ffmcfmb*p6p9-p6p9)+16*p5p7*(ffmcfmb*
0799      . hbcm2*p6p9-fmc*hbcm*p6p9)+16*p4p6*(ffmcfmb*hbcm2*p7p9-fmc*hbcm
0800      . *p7p9)+16*p6p7*(ffmcfmb*hbcm2*p2p9-ffmcfmb*hbcm2*p5p9+fmb*hbcm
0801      . *p1p9-fmc*hbcm*p1p9-fmc*hbcm*p2p9+fmc*hbcm*p5p9+5*hbcm2*p1p9)+
0802      . 16*p3p6*(ffmcfmb*fmb*hbcm*p7p9-ffmcfmb*fmc*hbcm*p7p9-ffmcfmb*
0803      . hbcm2*p7p9)+16*p3p7*(-ffmcfmb**2*hbcm2*p6p9+ffmcfmb*fmc*hbcm*
0804      . p6p9+ffmcfmb*hbcm2*p6p9-fmc*hbcm*p6p9)+32*(ffmcfmb*p2p3*p3p6*
0805      . p7p9-ffmcfmb*p3p4*p3p6*p7p9-p1p3*p4p6*p7p9-p1p3*p5p7*p6p9-2*
0806      . p1p9*p2p3*p6p7+2*p1p9*p3p4*p6p7+3*p1p9*p3p5*p6p7+p1p9*p3p6*
0807      . p4p7+p1p9*p3p6*p5p7+4*p1p9*p3p7*p4p6))+ans2+ans5
0808       ans=ccc*ans1
0809       b(30)=ans
0810       b(32)=w2*ccc*(24*p4p6*(-ffmcfmb*hbcm+fmc)+8*p3p6*(2*ffmcfmb*fmb
0811      . +2*ffmcfmb*fmc-2*ffmcfmb*hbcm+fmc))
0812       ans2=w12*(16*p4p7*(ffmcfmb*hbcm*p6p10-fmc*p6p10)+32*p4p6*(
0813      . ffmcfmb*hbcm*p7p10-fmc*p7p10)+16*p6p7*(-2*ffmcfmb*hbcm*p1p10-
0814      . ffmcfmb*hbcm*p2p10+2*ffmcfmb*hbcm*p5p10-2*fmb*p1p10+fmc*p2p10-
0815      . 2*fmc*p5p10+hbcm*p1p10)+16*p3p6*(-ffmcfmb*fmb*p7p10-ffmcfmb*
0816      . fmc*p7p10+ffmcfmb*hbcm*p7p10-fmc*p7p10)+16*p3p7*(ffmcfmb**2*
0817      . hbcm*p6p10-ffmcfmb*fmc*p6p10))+8*(ffmcfmb*hbcm*p6p12-fmb*p7p13
0818      . -fmc*p6p12-fmc*p7p13)
0819       ans1=w2*(16*p4p7*(ffmcfmb*hbcm*p6p9-fmc*p6p9)+32*p4p6*(ffmcfmb*
0820      . hbcm*p7p9-fmc*p7p9)+16*p6p7*(-ffmcfmb*hbcm*p2p9+2*ffmcfmb*hbcm
0821      . *p5p9+fmb*p1p9+fmc*p1p9+fmc*p2p9-2*fmc*p5p9-hbcm*p1p9)+16*p3p6
0822      . *(-ffmcfmb*fmb*p7p9-ffmcfmb*fmc*p7p9+ffmcfmb*hbcm*p7p9-fmc*
0823      . p7p9)+16*p3p7*(ffmcfmb**2*hbcm*p6p9-ffmcfmb*fmc*p6p9))+w17*(16
0824      . *p4p7*(ffmcfmb*hbcm*p6p10+ffmcfmb*hbcm*p6p11-fmc*p6p10-fmc*
0825      . p6p11)+32*p4p6*(ffmcfmb*hbcm*p7p10+ffmcfmb*hbcm*p7p11-fmc*
0826      . p7p10-fmc*p7p11)+16*p6p7*(-2*ffmcfmb*hbcm*p1p10-2*ffmcfmb*hbcm
0827      . *p1p11-ffmcfmb*hbcm*p2p10-ffmcfmb*hbcm*p2p11+2*ffmcfmb*hbcm*
0828      . p5p10+2*ffmcfmb*hbcm*p5p11-2*fmb*p1p10-2*fmb*p1p11+fmc*p2p10+
0829      . fmc*p2p11-2*fmc*p5p10-2*fmc*p5p11+hbcm*p1p10+hbcm*p1p11)+16*
0830      . p3p6*(-ffmcfmb*fmb*p7p10-ffmcfmb*fmb*p7p11-ffmcfmb*fmc*p7p10-
0831      . ffmcfmb*fmc*p7p11+ffmcfmb*hbcm*p7p10+ffmcfmb*hbcm*p7p11-fmc*
0832      . p7p10-fmc*p7p11)+16*p3p7*(ffmcfmb**2*hbcm*p6p10+ffmcfmb**2*
0833      . hbcm*p6p11-ffmcfmb*fmc*p6p10-ffmcfmb*fmc*p6p11))+ans2
0834       ans=ccc*ans1
0835       b(33)=ans
0836       b(34)=4*ccc*w2*(3*ffmcfmb*hbcm+4*fmb+fmc-3*hbcm)
0837       b(35)=ccc*(8*w2*(-2*ffmcfmb*hbcm*p7p9-3*fmb*p7p9-fmc*p7p9+2*
0838      . hbcm*p7p9)+8*w17*(-2*ffmcfmb*hbcm*p7p10-2*ffmcfmb*hbcm*p7p11-3
0839      . *fmb*p7p10-3*fmb*p7p11-fmc*p7p10-fmc*p7p11+2*hbcm*p7p10+2*hbcm
0840      . *p7p11)+8*w12*(-2*ffmcfmb*hbcm*p7p10-3*fmb*p7p10-fmc*p7p10+2*
0841      . hbcm*p7p10))
0842       b(36)=4*ccc*w2*(-2*ffmcfmb*hbcm2+3*fmb*hbcm-fmc*hbcm-4*hbcm2+6*
0843      . p1p3+6*p2p3-8*p3p4)
0844       b(37)=w2*ccc*(8*p3p7*(ffmcfmb*hbcm+3*fmb+fmc)+24*hbcm*p5p7)
0845       b(38)=ccc*(w2*(16*p3p7*(-p1p9-p2p9+3*p5p9)+8*(ffmcfmb*hbcm2*
0846      . p7p9-2*fmb*hbcm*p7p9+fmc*hbcm*p7p9+3*hbcm2*p7p9-4*p1p3*p7p9-4*
0847      . p2p3*p7p9+6*p3p4*p7p9))+w17*(48*p3p4*(p7p10+p7p11)+32*p2p3*(-
0848      . p7p10-p7p11)+32*p1p3*(-p7p10-p7p11)+16*p3p7*(-p1p10-p1p11-
0849      . p2p10-p2p11+3*p5p10+3*p5p11)+8*(ffmcfmb*hbcm2*p7p10+ffmcfmb*
0850      . hbcm2*p7p11-2*fmb*hbcm*p7p10-2*fmb*hbcm*p7p11+fmc*hbcm*p7p10+
0851      . fmc*hbcm*p7p11+3*hbcm2*p7p10+3*hbcm2*p7p11))+w12*(16*p3p7*(-
0852      . p1p10-p2p10+3*p5p10)+8*(ffmcfmb*hbcm2*p7p10-2*fmb*hbcm*p7p10+
0853      . fmc*hbcm*p7p10+3*hbcm2*p7p10-4*p1p3*p7p10-4*p2p3*p7p10+6*p3p4*
0854      . p7p10)))
0855       b(39)=w17*ccc*((p3p7*p3p6)*(-32*ffmcfmb-16)+8*p6p7*(ffmcfmb*
0856      . hbcm2-2*fmb*hbcm+fmc*hbcm-3*hbcm2)+16*(p1p3*p6p7+p2p3*p6p7-3*
0857      . p3p5*p6p7-p3p6*p4p7-3*p3p7*p4p6))
0858       b(40)=w17*ccc*(32*(p4p6*p3p7)*(-ffmcfmb*hbcm+fmc)+16*(p5p7*p3p6
0859      . )*(2*ffmcfmb*hbcm-fmc)+32*(p6p7*p3p5)*(-ffmcfmb*hbcm+fmc)+16*(
0860      . p6p7*p2p3)*(ffmcfmb*hbcm-fmc)+32*(p6p7*p1p3)*(ffmcfmb*hbcm+fmb
0861      . )+16*(p3p7*p3p6)*(ffmcfmb*fmb+2*ffmcfmb*fmc)+8*p6p7*(-ffmcfmb*
0862      . fmb*hbcm2-ffmcfmb*fmc*hbcm2-2*ffmcfmb*hbcm3+fmb*fmc*hbcm+2*fmc
0863      . *hbcm2+fmc2*hbcm)+16*(-hbcm*p1p2*p6p7+2*hbcm*p1p5*p6p7))
0864       b(41)=w17*ccc*((p6p7*p1p3)*(-16*ffmcfmb+32)+8*p6p7*(ffmcfmb**2*
0865      . hbcm2+2*ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2-2*
0866      . fmb*fmc+fmc*hbcm+fmc2)+16*(ffmcfmb*p3p6*p3p7+2*ffmcfmb*p3p6*
0867      . p5p7-p1p2*p6p7+3*p1p5*p6p7))
0868       b(42)=w2*ccc*((p3p7*p3p6)*(-32*ffmcfmb-16)+8*p6p7*(ffmcfmb*
0869      . hbcm2-2*fmb*hbcm+fmc*hbcm-3*hbcm2)+16*(p1p3*p6p7+p2p3*p6p7-3*
0870      . p3p5*p6p7-p3p6*p4p7-3*p3p7*p4p6))
0871       b(43)=ccc*(w2*(16*p6p7*(p1p9+p2p9-3*p5p9)+16*p3p6*(-ffmcfmb*
0872      . p7p9-p7p9)+16*(-ffmcfmb*p3p7*p6p9-3*p4p6*p7p9-p4p7*p6p9))+w17*
0873      . (16*p4p7*(-p6p10-p6p11)+48*p4p6*(-p7p10-p7p11)+16*p6p7*(p1p10+
0874      . p1p11+p2p10+p2p11-3*p5p10-3*p5p11)+16*p3p7*(-ffmcfmb*p6p10-
0875      . ffmcfmb*p6p11)+16*p3p6*(-ffmcfmb*p7p10-ffmcfmb*p7p11-p7p10-
0876      . p7p11))+w12*(16*p6p7*(p1p10+p2p10-3*p5p10)+16*p3p6*(-ffmcfmb*
0877      . p7p10-p7p10)+16*(-ffmcfmb*p3p7*p6p10-3*p4p6*p7p10-p4p7*p6p10))
0878      . +8*(-p6p12-p7p13))
0879       b(44)=w17*ccc*(16*p4p6*(ffmcfmb*hbcm2-fmc*hbcm)+8*p3p6*(ffmcfmb
0880      . **2*hbcm2+2*ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*hbcm-2*ffmcfmb*
0881      . hbcm2-fmb*fmc)+16*(-ffmcfmb*p1p3*p3p6+ffmcfmb*p2p3*p3p6-2*
0882      . ffmcfmb*p3p4*p3p6-3*p1p3*p4p6+p1p5*p3p6))
0883       b(45)=w17*ccc*(p3p6*(-16*ffmcfmb-8)-32*p4p6)
0884       b(46)=w17*ccc*(24*p4p6*(-ffmcfmb*hbcm+fmc)+8*p3p6*(2*ffmcfmb*
0885      . fmb+2*ffmcfmb*fmc-2*ffmcfmb*hbcm+fmc))
0886       b(47)=w2*ccc*(p3p6*(-16*ffmcfmb-8)-32*p4p6)
0887       b(49)=w17*ccc*(8*p3p7*(ffmcfmb*hbcm+3*fmb+fmc)+24*hbcm*p5p7)
0888       b(50)=w17*ccc*(p3p7*(-16*ffmcfmb+24)+32*p5p7)
0889       b(51)=w17*ccc*(16*p5p7*(-ffmcfmb*hbcm2+fmc*hbcm)+8*p3p7*(-
0890      . ffmcfmb**2*hbcm2-2*ffmcfmb*fmb*hbcm+2*ffmcfmb*fmc*hbcm+2*fmb*
0891      . fmc-fmc2)+16*(2*ffmcfmb*p1p3*p3p7-2*p1p2*p3p7-p1p3*p5p7+3*p1p4
0892      . *p3p7))
0893       b(52)=w2*ccc*(p3p7*(-16*ffmcfmb+24)+32*p5p7)
0894       b(53)=ccc*(8*w2*(-3*p1p9-3*p2p9+4*p3p9+4*p4p9)+8*w17*(-3*p1p10-
0895      . 3*p1p11-3*p2p10-3*p2p11+4*p3p10+4*p3p11+4*p4p10+4*p4p11)+8*w12
0896      . *(-3*p1p10-3*p2p10+4*p3p10+4*p4p10))
0897       b(54)=4*ccc*w17*(-2*ffmcfmb*hbcm2+3*fmb*hbcm-fmc*hbcm-4*hbcm2+6
0898      . *p1p3+6*p2p3-8*p3p4)
0899       b(55)=4*ccc*w17*(3*ffmcfmb*hbcm+4*fmb+fmc-3*hbcm)
0900       b(56)=w17*ccc*(p1p3*(16*ffmcfmb+8)+4*(-2*ffmcfmb**2*hbcm2-3*
0901      . ffmcfmb*fmb*hbcm+3*ffmcfmb*fmc*hbcm+2*ffmcfmb*hbcm2+3*fmb*fmc-
0902      . 2*fmc*hbcm-fmc2-6*p1p2+8*p1p4))
0903       b(57)=-8*ccc
0904       b(58)=w17*ccc*(8*p3p6*(2*ffmcfmb*hbcm+fmb)+24*hbcm*p4p6)
0905       b(59)=w17*ccc*(24*p3p4*(ffmcfmb*hbcm-fmc)+16*p2p3*(-ffmcfmb*
0906      . hbcm+fmc)+8*p1p3*(-4*ffmcfmb*hbcm-fmb+2*fmc)+4*(ffmcfmb**2*
0907      . hbcm3-2*ffmcfmb*fmb*hbcm2-2*ffmcfmb*fmc*hbcm2+3*ffmcfmb*hbcm3+
0908      . 2*fmb*fmc*hbcm-3*fmc*hbcm2+fmc2*hbcm+4*hbcm*p1p2-6*hbcm*p1p4))
0909       b(60)=w2*ccc*(8*p3p6*(2*ffmcfmb*hbcm+fmb)+24*hbcm*p4p6)
0910       b(61)=-4*ccc*hbcm
0911       b(62)=8*ccc*ffmcfmb*hbcm*p3p6
0912       b(63)=ccc*(w17*((p3p7*p3p6)*(-32*ffmcfmb-16)+8*p6p7*(ffmcfmb*
0913      . hbcm2-2*fmb*hbcm+fmc*hbcm-3*hbcm2)+16*(p1p3*p6p7+p2p3*p6p7-3*
0914      . p3p5*p6p7-p3p6*p4p7-3*p3p7*p4p6))+w12*((p3p7*p3p6)*(-32*
0915      . ffmcfmb-16)+8*p6p7*(ffmcfmb*hbcm2-2*fmb*hbcm+fmc*hbcm-3*hbcm2)
0916      . +16*(p1p3*p6p7+p2p3*p6p7-3*p3p5*p6p7-p3p6*p4p7-3*p3p7*p4p6)))
0917       b(64)=ccc*(w17*((p6p7*p1p3)*(-16*ffmcfmb+32)+8*p6p7*(ffmcfmb**2
0918      . *hbcm2+2*ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2-2*
0919      . fmb*fmc+fmc*hbcm+fmc2)+16*(ffmcfmb*p3p6*p3p7+2*ffmcfmb*p3p6*
0920      . p5p7-p1p2*p6p7+3*p1p5*p6p7))+w12*((p6p7*p1p3)*(-16*ffmcfmb+32)
0921      . +8*p6p7*(ffmcfmb**2*hbcm2+2*ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*
0922      . hbcm-ffmcfmb*hbcm2-2*fmb*fmc+fmc*hbcm+fmc2)+16*(ffmcfmb*p3p6*
0923      . p3p7+2*ffmcfmb*p3p6*p5p7-p1p2*p6p7+3*p1p5*p6p7))-8*p6p7)
0924       b(66)=ccc*(w2*(16*p6p7*(hbcm*p1p9+hbcm*p2p9-2*hbcm*p5p9)+16*
0925      . p3p6*(-ffmcfmb*hbcm*p7p9-fmb*p7p9)+16*(-ffmcfmb*hbcm*p3p7*p6p9
0926      . -2*hbcm*p4p6*p7p9-hbcm*p4p7*p6p9))+w17*(16*p4p7*(-hbcm*p6p10-
0927      . hbcm*p6p11)+32*p4p6*(-hbcm*p7p10-hbcm*p7p11)+16*p6p7*(hbcm*
0928      . p1p10+hbcm*p1p11+hbcm*p2p10+hbcm*p2p11-2*hbcm*p5p10-2*hbcm*
0929      . p5p11)+16*p3p7*(-ffmcfmb*hbcm*p6p10-ffmcfmb*hbcm*p6p11)+16*
0930      . p3p6*(-ffmcfmb*hbcm*p7p10-ffmcfmb*hbcm*p7p11-fmb*p7p10-fmb*
0931      . p7p11))+w12*(16*p6p7*(hbcm*p1p10+hbcm*p2p10-2*hbcm*p5p10)+16*
0932      . p3p6*(-ffmcfmb*hbcm*p7p10-fmb*p7p10)+16*(-ffmcfmb*hbcm*p3p7*
0933      . p6p10-2*hbcm*p4p6*p7p10-hbcm*p4p7*p6p10))-8*hbcm*p6p12)
0934       b(67)=ccc*(w17*(p3p6*(-16*ffmcfmb-8)-32*p4p6)+w12*(p3p6*(-16*
0935      . ffmcfmb-8)-32*p4p6))
0936       b(69)=ccc*(w17*(p3p7*(-16*ffmcfmb+24)+32*p5p7)+w12*(p3p7*(-16*
0937      . ffmcfmb+24)+32*p5p7))
0938       b(70)=ccc*(w17*(16*p5p7*(-ffmcfmb*hbcm2+fmc*hbcm)+8*p3p7*(-
0939      . ffmcfmb**2*hbcm2-2*ffmcfmb*fmb*hbcm+2*ffmcfmb*fmc*hbcm+2*fmb*
0940      . fmc-fmc2)+16*(2*ffmcfmb*p1p3*p3p7-2*p1p2*p3p7-p1p3*p5p7+3*p1p4
0941      . *p3p7))+w12*(16*p5p7*(-ffmcfmb*hbcm2+fmc*hbcm)+8*p3p7*(-
0942      . ffmcfmb**2*hbcm2-2*ffmcfmb*fmb*hbcm+2*ffmcfmb*fmc*hbcm+2*fmb*
0943      . fmc-fmc2)+16*(2*ffmcfmb*p1p3*p3p7-2*p1p2*p3p7-p1p3*p5p7+3*p1p4
0944      . *p3p7))+8*p3p7)
0945       b(72)=ccc*(w17*(p1p3*(16*ffmcfmb+8)+4*(-2*ffmcfmb**2*hbcm2-3*
0946      . ffmcfmb*fmb*hbcm+3*ffmcfmb*fmc*hbcm+2*ffmcfmb*hbcm2+3*fmb*fmc-
0947      . 2*fmc*hbcm-fmc2-6*p1p2+8*p1p4))+w12*(p1p3*(16*ffmcfmb+8)+4*(-2
0948      . *ffmcfmb**2*hbcm2-3*ffmcfmb*fmb*hbcm+3*ffmcfmb*fmc*hbcm+2*
0949      . ffmcfmb*hbcm2+3*fmb*fmc-2*fmc*hbcm-fmc2-6*p1p2+8*p1p4))+8)
0950       b(73)=8*ccc*w17*p6p7*(2*ffmcfmb*hbcm+3*fmb+fmc-2*hbcm)
0951       b(75)=ccc*(8*w2*(3*ffmcfmb*hbcm*p1p9+2*ffmcfmb*hbcm*p2p9-3*
0952      . ffmcfmb*hbcm*p3p9-3*ffmcfmb*hbcm*p4p9+fmb*p1p9-2*fmc*p1p9-2*
0953      . fmc*p2p9+3*fmc*p3p9+3*fmc*p4p9-hbcm*p1p9)+8*w17*(3*ffmcfmb*
0954      . hbcm*p1p10+3*ffmcfmb*hbcm*p1p11+2*ffmcfmb*hbcm*p2p10+2*ffmcfmb
0955      . *hbcm*p2p11-3*ffmcfmb*hbcm*p3p10-3*ffmcfmb*hbcm*p3p11-3*
0956      . ffmcfmb*hbcm*p4p10-3*ffmcfmb*hbcm*p4p11+fmb*p1p10+fmb*p1p11-2*
0957      . fmc*p1p10-2*fmc*p1p11-2*fmc*p2p10-2*fmc*p2p11+3*fmc*p3p10+3*
0958      . fmc*p3p11+3*fmc*p4p10+3*fmc*p4p11-hbcm*p1p10-hbcm*p1p11)+8*w12
0959      . *(3*ffmcfmb*hbcm*p1p10+2*ffmcfmb*hbcm*p2p10-3*ffmcfmb*hbcm*
0960      . p3p10-3*ffmcfmb*hbcm*p4p10+fmb*p1p10-2*fmc*p1p10-2*fmc*p2p10+3
0961      . *fmc*p3p10+3*fmc*p4p10-hbcm*p1p10))
0962       ans=ccc*(w2*(16*p1p3*(p1p9+p2p9-p3p9-p4p9)+8*(2*ffmcfmb*hbcm2*
0963      . p1p9+ffmcfmb*hbcm2*p2p9-2*ffmcfmb*hbcm2*p3p9-2*ffmcfmb*hbcm2*
0964      . p4p9-fmb*hbcm*p1p9-fmc*hbcm*p1p9-fmc*hbcm*p2p9+2*fmc*hbcm*p3p9
0965      . +2*fmc*hbcm*p4p9-hbcm2*p1p9-2*p1p9*p3p5))+w17*(16*p3p5*(-p1p10
0966      . -p1p11)+16*p1p3*(p1p10+p1p11+p2p10+p2p11-p3p10-p3p11-p4p10-
0967      . p4p11)+8*(2*ffmcfmb*hbcm2*p1p10+2*ffmcfmb*hbcm2*p1p11+ffmcfmb*
0968      . hbcm2*p2p10+ffmcfmb*hbcm2*p2p11-2*ffmcfmb*hbcm2*p3p10-2*
0969      . ffmcfmb*hbcm2*p3p11-2*ffmcfmb*hbcm2*p4p10-2*ffmcfmb*hbcm2*
0970      . p4p11-fmb*hbcm*p1p10-fmb*hbcm*p1p11-fmc*hbcm*p1p10-fmc*hbcm*
0971      . p1p11-fmc*hbcm*p2p10-fmc*hbcm*p2p11+2*fmc*hbcm*p3p10+2*fmc*
0972      . hbcm*p3p11+2*fmc*hbcm*p4p10+2*fmc*hbcm*p4p11-hbcm2*p1p10-hbcm2
0973      . *p1p11))+w12*(16*p1p3*(p1p10+p2p10-p3p10-p4p10)+8*(2*ffmcfmb*
0974      . hbcm2*p1p10+ffmcfmb*hbcm2*p2p10-2*ffmcfmb*hbcm2*p3p10-2*
0975      . ffmcfmb*hbcm2*p4p10-fmb*hbcm*p1p10-fmc*hbcm*p1p10-fmc*hbcm*
0976      . p2p10+2*fmc*hbcm*p3p10+2*fmc*hbcm*p4p10-hbcm2*p1p10-2*p1p10*
0977      . p3p5)))
0978       b(76)=ans
0979       b(77)=ccc*(8*w2*(ffmcfmb*hbcm2*p6p9-fmb*hbcm*p6p9-hbcm2*p6p9-2*
0980      . p3p5*p6p9+2*p3p6*p5p9)+w17*(16*p3p6*(p5p10+p5p11)+16*p3p5*(-
0981      . p6p10-p6p11)+8*(ffmcfmb*hbcm2*p6p10+ffmcfmb*hbcm2*p6p11-fmb*
0982      . hbcm*p6p10-fmb*hbcm*p6p11-hbcm2*p6p10-hbcm2*p6p11))+8*w12*(
0983      . ffmcfmb*hbcm2*p6p10-fmb*hbcm*p6p10-hbcm2*p6p10-2*p3p5*p6p10+2*
0984      . p3p6*p5p10)-24*p3p13)
0985       b(78)=ccc*(8*w2*(ffmcfmb*hbcm*p6p9+fmb*p6p9-hbcm*p6p9)+8*w17*(
0986      . ffmcfmb*hbcm*p6p10+ffmcfmb*hbcm*p6p11+fmb*p6p10+fmb*p6p11-hbcm
0987      . *p6p10-hbcm*p6p11)+8*w12*(ffmcfmb*hbcm*p6p10+fmb*p6p10-hbcm*
0988      . p6p10))
0989       b(79)=8*ccc*w2*p6p7*(2*ffmcfmb*hbcm+3*fmb+fmc-2*hbcm)
0990       b(80)=w2*ccc*(24*p5p7*(-ffmcfmb*hbcm+fmc)+8*p3p7*(ffmcfmb**2*
0991      . hbcm-ffmcfmb*fmc-2*ffmcfmb*hbcm+2*fmc))
0992       b(81)=ccc*(8*w17*p6p7*(2*ffmcfmb*hbcm+3*fmb+fmc-2*hbcm)+8*w12*
0993      . p6p7*(2*ffmcfmb*hbcm+3*fmb+fmc-2*hbcm))
0994       b(82)=-8*ccc*p3p7
0995       b(83)=ccc*(8*p3p7*(ffmcfmb*hbcm+fmb+fmc-2*hbcm)+8*(-2*hbcm*p4p7
0996      . -hbcm*p5p7))
0997       b(84)=8*ccc*(-2*p3p7-3*p4p7-p5p7)
0998       b(85)=4*ccc*(fmb*hbcm-fmc*hbcm+4*hbcm2-6*p1p3-4*p2p3+2*p3p4+6*
0999      . p3p5)
1000       b(86)=-8*ccc
1001       b(87)=4*ccc*(2*fmb+2*fmc-hbcm)
1002       b(88)=ccc*(w17*(24*p5p7*(-ffmcfmb*hbcm+fmc)+8*p3p7*(ffmcfmb**2*
1003      . hbcm-ffmcfmb*fmc-2*ffmcfmb*hbcm+2*fmc))+w12*(24*p5p7*(-ffmcfmb
1004      . *hbcm+fmc)+8*p3p7*(ffmcfmb**2*hbcm-ffmcfmb*fmc-2*ffmcfmb*hbcm+
1005      . 2*fmc)))
1006       b(89)=-4*ccc*hbcm
1007       b(90)=w17*ccc*(24*p5p7*(-ffmcfmb*hbcm+fmc)+8*p3p7*(ffmcfmb**2*
1008      . hbcm-ffmcfmb*fmc-2*ffmcfmb*hbcm+2*fmc))
1009       b(92)=8*ccc*(hbcm2-p2p3+p3p4+p3p5)
1010       b(93)=8*ccc*p3p6
1011       b(94)=4*ccc*(-ffmcfmb*hbcm+fmc)
1012       do 200 n=1,94
1013          c(n,1)=c(n,1)-0.09090909090909091d0*b(n)
1014          c(n,2)=c(n,2)-0.1680909685530997d0*b(n)
1015          c(n,3)=c(n,3)-0.2077659977796572d0*b(n)
1016 200   continue
1017       return
1018       end
1019
1020       subroutine amp16_3p2(cc)
1021       implicit double precision(a-h,o-z)
1022       implicit integer (i-n)
1023       dimension b(94)
1024 #include "inclcon.h"
1025 #include "inclppp.h"
1026 #include "inclamp.h"
1027       do 100 n=1,94
1028          b(n)=0.0d0
1029 100   continue
1030       ccc=cc/((ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*p3p5+fmb2+
1031      . hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3-2*ffmcfmb*p2p3-
1032      . fmc2+2*p1p2)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p2p3-fmc2))
1033       b(2)=w2*ccc*(8*p6p7*(-ffmcfmb**2*hbcm2+fmc2)+16*(ffmcfmb*p2p3*
1034      . p6p7+ffmcfmb*p3p6*p3p7+2*ffmcfmb*p3p6*p5p7-p1p2*p6p7+p1p3*p6p7
1035      . +p1p5*p6p7))
1036       b(3)=ccc*(8*w2*(-ffmcfmb**2*hbcm2*p7p9-2*ffmcfmb*p1p9*p3p7+2*
1037      . ffmcfmb*p2p3*p7p9+fmc2*p7p9+2*p1p2*p7p9-2*p1p3*p7p9-6*p1p4*
1038      . p7p9-2*p1p9*p4p7)+8*w7*(-ffmcfmb**2*hbcm2*p7p11-2*ffmcfmb*
1039      . p1p11*p3p7+2*ffmcfmb*p2p3*p7p11+fmc2*p7p11-2*p1p11*p4p7+2*p1p2
1040      . *p7p11-2*p1p3*p7p11-6*p1p4*p7p11)+w17*(48*p1p4*(-p7p10-p7p11)+
1041      . 16*p1p3*(-p7p10-p7p11)+16*p1p2*(p7p10+p7p11)+16*p4p7*(-p1p10-
1042      . p1p11)+16*p2p3*(ffmcfmb*p7p10+ffmcfmb*p7p11)+16*p3p7*(-ffmcfmb
1043      . *p1p10-ffmcfmb*p1p11)+8*(-ffmcfmb**2*hbcm2*p7p10-ffmcfmb**2*
1044      . hbcm2*p7p11+fmc2*p7p10+fmc2*p7p11))+8*(-p1p12+p7p11))
1045       b(5)=w2*ccc*(8*p3p7*(ffmcfmb**2*hbcm2-fmc2)+16*(ffmcfmb*p1p3*
1046      . p3p7-ffmcfmb*p2p3*p3p7-p1p2*p3p7-p1p3*p5p7+3*p1p4*p3p7))
1047       b(6)=ccc*(w2*(16*p1p3*(ffmcfmb*hbcm*p7p9+fmb*p7p9)+16*(-fmb*
1048      . p1p9*p3p7-hbcm*p1p2*p7p9+2*hbcm*p1p4*p7p9-hbcm*p1p9*p5p7))+w7*
1049      . (16*p1p3*(ffmcfmb*hbcm*p7p11+fmb*p7p11)+16*(-fmb*p1p11*p3p7-
1050      . hbcm*p1p11*p5p7-hbcm*p1p2*p7p11+2*hbcm*p1p4*p7p11))+w17*(32*
1051      . p1p4*(hbcm*p7p10+hbcm*p7p11)+16*p1p2*(-hbcm*p7p10-hbcm*p7p11)+
1052      . 16*p5p7*(-hbcm*p1p10-hbcm*p1p11)+16*p3p7*(-fmb*p1p10-fmb*p1p11
1053      . )+16*p1p3*(ffmcfmb*hbcm*p7p10+ffmcfmb*hbcm*p7p11+fmb*p7p10+fmb
1054      . *p7p11))+8*hbcm*p7p10)
1055       ans=ccc*(w2*(16*p3p6*(ffmcfmb*p2p9-2*ffmcfmb*p3p9-2*ffmcfmb*
1056      . p4p9-p1p9)+8*(-ffmcfmb**2*hbcm2*p6p9+2*ffmcfmb*p2p3*p6p9+fmc2*
1057      . p6p9-2*p1p2*p6p9+2*p1p3*p6p9+2*p1p5*p6p9-6*p1p9*p4p6))+w7*(16*
1058      . p3p6*(ffmcfmb*p2p11-2*ffmcfmb*p3p11-2*ffmcfmb*p4p11-p1p11)+8*(
1059      . -ffmcfmb**2*hbcm2*p6p11+2*ffmcfmb*p2p3*p6p11+fmc2*p6p11-6*
1060      . p1p11*p4p6-2*p1p2*p6p11+2*p1p3*p6p11+2*p1p5*p6p11))+w17*(16*
1061      . p1p5*(p6p10+p6p11)+16*p1p3*(p6p10+p6p11)+16*p1p2*(-p6p10-p6p11
1062      . )+48*p4p6*(-p1p10-p1p11)+16*p2p3*(ffmcfmb*p6p10+ffmcfmb*p6p11)
1063      . +16*p3p6*(ffmcfmb*p2p10+ffmcfmb*p2p11-2*ffmcfmb*p3p10-2*
1064      . ffmcfmb*p3p11-2*ffmcfmb*p4p10-2*ffmcfmb*p4p11-p1p10-p1p11)+8*(
1065      . -ffmcfmb**2*hbcm2*p6p10-ffmcfmb**2*hbcm2*p6p11+fmc2*p6p10+fmc2
1066      . *p6p11))+8*(-p1p13+p2p13-2*p3p13-2*p4p13+p6p10+p6p11))
1067       b(7)=ans
1068       b(9)=w2*ccc*(8*p3p6*(ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm+ffmcfmb*
1069      . fmc*hbcm+2*ffmcfmb*hbcm2-fmc2)+16*(-2*ffmcfmb*p2p3*p3p6+2*
1070      . ffmcfmb*p3p4*p3p6+p1p2*p3p6+3*p1p3*p4p6-p1p5*p3p6))
1071       ans1=(w2*(16*p3p6*(-ffmcfmb*hbcm*p1p9+ffmcfmb*hbcm*p3p9+ffmcfmb
1072      . *hbcm*p4p9)+16*p1p3*(-ffmcfmb*hbcm*p6p9-fmb*p6p9)+8*(ffmcfmb**
1073      . 2*hbcm3*p6p9-2*ffmcfmb*hbcm*p2p3*p6p9-fmc2*hbcm*p6p9+2*hbcm*
1074      . p1p2*p6p9-2*hbcm*p1p5*p6p9-2*hbcm*p1p9*p4p6))+w7*(16*p1p3*(-
1075      . ffmcfmb*hbcm*p6p11-fmb*p6p11)+16*p3p6*(-ffmcfmb*hbcm*p1p11+
1076      . ffmcfmb*hbcm*p3p11+ffmcfmb*hbcm*p4p11)+8*(ffmcfmb**2*hbcm3*
1077      . p6p11-2*ffmcfmb*hbcm*p2p3*p6p11-fmc2*hbcm*p6p11-2*hbcm*p1p11*
1078      . p4p6+2*hbcm*p1p2*p6p11-2*hbcm*p1p5*p6p11))+w17*(16*p1p5*(-hbcm
1079      . *p6p10-hbcm*p6p11)+16*p1p2*(hbcm*p6p10+hbcm*p6p11)+16*p4p6*(-
1080      . hbcm*p1p10-hbcm*p1p11)+16*p2p3*(-ffmcfmb*hbcm*p6p10-ffmcfmb*
1081      . hbcm*p6p11)+16*p1p3*(-ffmcfmb*hbcm*p6p10-ffmcfmb*hbcm*p6p11-
1082      . fmb*p6p10-fmb*p6p11)+16*p3p6*(ffmcfmb**2*hbcm*p3p10+2*ffmcfmb*
1083      . fmb*p3p10+ffmcfmb*fmc*p3p10-ffmcfmb*hbcm*p1p10-ffmcfmb*hbcm*
1084      . p1p11+ffmcfmb*hbcm*p3p11+ffmcfmb*hbcm*p4p10+ffmcfmb*hbcm*p4p11
1085      . )+8*(ffmcfmb**2*hbcm3*p6p10+ffmcfmb**2*hbcm3*p6p11-fmc2*hbcm*
1086      . p6p10-fmc2*hbcm*p6p11))+8*(hbcm*p1p13+hbcm*p3p13+hbcm*p4p13-
1087      . hbcm*p6p10-hbcm*p6p11))
1088       ans=ccc*ans1
1089       b(10)=ans
1090       b(12)=w2*ccc*(8*p6p7*(-ffmcfmb**2*hbcm3+fmc2*hbcm)+16*(p3p7*
1091      . p3p6)*(ffmcfmb**2*hbcm+ffmcfmb*fmb+ffmcfmb*fmc)+16*(ffmcfmb*
1092      . hbcm*p2p3*p6p7+ffmcfmb*hbcm*p3p6*p5p7-hbcm*p1p2*p6p7+hbcm*p1p3
1093      . *p6p7+hbcm*p1p5*p6p7))
1094       b(14)=8*ccc*w2*(ffmcfmb**2*hbcm2-2*ffmcfmb*p2p3-fmc2-p1p2+p1p3+
1095      . 4*p1p4)
1096       b(16)=w2*ccc*(8*p1p3*(-ffmcfmb*hbcm-fmb)+4*(-ffmcfmb**2*hbcm3+2
1097      . *ffmcfmb*hbcm*p2p3+fmc2*hbcm+2*hbcm*p1p2-6*hbcm*p1p4))
1098       b(17)=w17*ccc*(8*p3p6*(2*ffmcfmb*hbcm+fmb)+24*hbcm*p4p6)
1099       b(18)=4*ccc*w17*(-3*ffmcfmb*hbcm-4*fmb-fmc+3*hbcm)
1100       b(19)=4*ccc*w17*(-2*ffmcfmb*hbcm2+3*fmb*hbcm-fmc*hbcm-4*hbcm2+6
1101      . *p1p3+6*p2p3-8*p3p4)
1102       b(20)=w17*ccc*(8*p3p7*(ffmcfmb*hbcm+3*fmb+fmc)+24*hbcm*p5p7)
1103       b(21)=ccc*(8*w2*(-2*hbcm*p1p9-2*hbcm*p2p9+3*hbcm*p3p9+3*hbcm*
1104      . p4p9)+8*w7*(-2*hbcm*p1p11-2*hbcm*p2p11+3*hbcm*p3p11+3*hbcm*
1105      . p4p11)+8*w17*(3*ffmcfmb*hbcm*p3p10+4*fmb*p3p10+fmc*p3p10-2*
1106      . hbcm*p1p10-2*hbcm*p1p11-2*hbcm*p2p10-2*hbcm*p2p11+3*hbcm*p3p11
1107      . +3*hbcm*p4p10+3*hbcm*p4p11))
1108       b(22)=w17*ccc*(8*p1p3*(-ffmcfmb*hbcm-fmb)+4*(-ffmcfmb**2*hbcm3+
1109      . 2*ffmcfmb*hbcm*p2p3+fmc2*hbcm+2*hbcm*p1p2-6*hbcm*p1p4))
1110       b(27)=8*ccc*w17*p3p6*(-ffmcfmb**2*hbcm-2*ffmcfmb*fmb-ffmcfmb*
1111      . fmc+ffmcfmb*hbcm)
1112       b(28)=w17*ccc*(8*p3p6*(-ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm-
1113      . ffmcfmb*fmc*hbcm-2*ffmcfmb*hbcm2+fmc2)+16*(2*ffmcfmb*p2p3*p3p6
1114      . -2*ffmcfmb*p3p4*p3p6-p1p2*p3p6-3*p1p3*p4p6+p1p5*p3p6))
1115       b(29)=w17*ccc*(16*(p6p7*p1p3)*(ffmcfmb*hbcm+fmb)+8*p6p7*(-
1116      . ffmcfmb**2*hbcm3+fmc2*hbcm)+16*(p3p7*p3p6)*(ffmcfmb**2*hbcm+
1117      . ffmcfmb*fmb+ffmcfmb*fmc)+16*(ffmcfmb*hbcm*p2p3*p6p7+ffmcfmb*
1118      . hbcm*p3p6*p5p7-hbcm*p1p2*p6p7+hbcm*p1p5*p6p7))
1119       ans3=w2*(32*(p6p7*p1p3)*(-p1p9+p5p9)+32*(p3p7*p3p6)*(-2*ffmcfmb
1120      . *p2p9+2*ffmcfmb*p3p9+2*ffmcfmb*p4p9+ffmcfmb*p5p9+2*p1p9)+32*(
1121      . p3p7*p1p3)*(ffmcfmb*p6p9-p6p9)+16*p3p6*(-ffmcfmb**2*hbcm2*p7p9
1122      . +ffmcfmb*fmb*hbcm*p7p9-ffmcfmb*hbcm2*p7p9)+32*(ffmcfmb*p2p3*
1123      . p3p6*p7p9-ffmcfmb*p3p4*p3p6*p7p9+hbcm2*p1p9*p6p7-p1p3*p4p6*
1124      . p7p9-p1p3*p5p7*p6p9-p1p9*p2p3*p6p7+p1p9*p3p4*p6p7+p1p9*p3p5*
1125      . p6p7+p1p9*p3p6*p4p7+p1p9*p3p6*p5p7+4*p1p9*p3p7*p4p6))+(16*p3p7
1126      . *(-2*p2p13+2*p3p13+2*p4p13+p5p13)+16*p3p6*(ffmcfmb*p3p12-p7p10
1127      . -p7p11)+8*(-ffmcfmb*hbcm2*p7p13+fmc*hbcm*p7p13+hbcm2*p7p13+2*
1128      . p1p3*p7p13+2*p3p10*p6p7+2*p3p4*p7p13))
1129       ans2=w17*(32*(p3p6*p1p5)*(-p7p10-p7p11)+32*(p5p7*p1p3)*(-p6p10-
1130      . p6p11)+64*(p4p6*p1p3)*(p7p10+p7p11)+32*(p3p6*p1p2)*(p7p10+
1131      . p7p11)+128*(p4p6*p3p7)*(p1p10+p1p11)+32*(p5p7*p3p6)*(p1p10+
1132      . p1p11)+32*(p4p7*p3p6)*(p1p10+p1p11)+32*(p6p7*p3p5)*(p1p10+
1133      . p1p11)+32*(p6p7*p3p4)*(p1p10+p1p11)+32*(p6p7*p2p3)*(-p1p10-
1134      . p1p11)+32*(p6p7*p1p3)*(-p1p10-p1p11+p5p10+p5p11)+32*p6p7*(
1135      . hbcm2*p1p10+hbcm2*p1p11)+32*(p3p6*p3p4)*(ffmcfmb*p7p10+ffmcfmb
1136      . *p7p11)+32*(p3p6*p2p3)*(-ffmcfmb*p7p10-ffmcfmb*p7p11)+32*(p3p7
1137      . *p3p6)*(-2*ffmcfmb*p2p10-2*ffmcfmb*p2p11+2*ffmcfmb*p3p10+2*
1138      . ffmcfmb*p3p11+2*ffmcfmb*p4p10+2*ffmcfmb*p4p11+ffmcfmb*p5p10+
1139      . ffmcfmb*p5p11+2*p1p10+2*p1p11)+32*(p3p7*p1p3)*(ffmcfmb*p6p10+
1140      . ffmcfmb*p6p11-p6p10-p6p11)+16*p3p6*(ffmcfmb*fmc*hbcm*p7p10+
1141      . ffmcfmb*fmc*hbcm*p7p11+ffmcfmb*hbcm2*p7p10+ffmcfmb*hbcm2*p7p11
1142      . -fmc2*p7p10-fmc2*p7p11))+ans3
1143       ans1=w7*(32*(p6p7*p1p3)*(-p1p11+p5p11)+32*(p3p7*p3p6)*(-2*
1144      . ffmcfmb*p2p11+2*ffmcfmb*p3p11+2*ffmcfmb*p4p11+ffmcfmb*p5p11+2*
1145      . p1p11)+32*(p3p7*p1p3)*(ffmcfmb*p6p11-p6p11)+16*p3p6*(ffmcfmb*
1146      . fmc*hbcm*p7p11+ffmcfmb*hbcm2*p7p11-fmc2*p7p11)+32*(-ffmcfmb*
1147      . p2p3*p3p6*p7p11+ffmcfmb*p3p4*p3p6*p7p11+hbcm2*p1p11*p6p7-p1p11
1148      . *p2p3*p6p7+p1p11*p3p4*p6p7+p1p11*p3p5*p6p7+p1p11*p3p6*p4p7+
1149      . p1p11*p3p6*p5p7+4*p1p11*p3p7*p4p6+p1p2*p3p6*p7p11+2*p1p3*p4p6*
1150      . p7p11-p1p3*p5p7*p6p11-p1p5*p3p6*p7p11))+ans2
1151       ans=ccc*ans1
1152       b(30)=ans
1153       b(32)=8*ccc*w2*p3p6*(ffmcfmb**2*hbcm+2*ffmcfmb*fmb+ffmcfmb*fmc-
1154      . ffmcfmb*hbcm)
1155       b(33)=ccc*(16*w2*p3p6*(-ffmcfmb*fmb*p7p9-ffmcfmb*fmc*p7p9)+w7*(
1156      . 16*p6p7*(-ffmcfmb*hbcm*p1p11-fmb*p1p11+hbcm*p1p11)+16*p3p6*(-
1157      . ffmcfmb*fmb*p7p11-ffmcfmb*fmc*p7p11))+w17*(16*p6p7*(-ffmcfmb*
1158      . hbcm*p1p10-ffmcfmb*hbcm*p1p11-fmb*p1p10-fmb*p1p11+hbcm*p1p10+
1159      . hbcm*p1p11)+16*p3p6*(-ffmcfmb*fmb*p7p10-ffmcfmb*fmb*p7p11-
1160      . ffmcfmb*fmc*p7p10-ffmcfmb*fmc*p7p11))+8*(-fmb*p7p13-fmc*p7p13)
1161      . )
1162       b(34)=4*ccc*w2*(3*ffmcfmb*hbcm+4*fmb+fmc-3*hbcm)
1163       b(35)=ccc*(8*w2*(-2*ffmcfmb*hbcm*p7p9-3*fmb*p7p9-fmc*p7p9+2*
1164      . hbcm*p7p9)+8*w7*(-2*ffmcfmb*hbcm*p7p11-3*fmb*p7p11-fmc*p7p11+2
1165      . *hbcm*p7p11)+8*w17*(-2*ffmcfmb*hbcm*p7p10-2*ffmcfmb*hbcm*p7p11
1166      . -3*fmb*p7p10-3*fmb*p7p11-fmc*p7p10-fmc*p7p11+2*hbcm*p7p10+2*
1167      . hbcm*p7p11))
1168       b(36)=4*ccc*w2*(-2*ffmcfmb*hbcm2+3*fmb*hbcm-fmc*hbcm-4*hbcm2+6*
1169      . p1p3+6*p2p3-8*p3p4)
1170       b(37)=w2*ccc*(8*p3p7*(ffmcfmb*hbcm+3*fmb+fmc)+24*hbcm*p5p7)
1171       b(38)=ccc*(w2*(16*p3p7*(-p1p9-p2p9+3*p5p9)+8*(ffmcfmb*hbcm2*
1172      . p7p9-2*fmb*hbcm*p7p9+fmc*hbcm*p7p9+3*hbcm2*p7p9-4*p1p3*p7p9-4*
1173      . p2p3*p7p9+6*p3p4*p7p9))+w7*(16*p3p7*(-p1p11-p2p11+3*p5p11)+8*(
1174      . ffmcfmb*hbcm2*p7p11-2*fmb*hbcm*p7p11+fmc*hbcm*p7p11+3*hbcm2*
1175      . p7p11-4*p1p3*p7p11-4*p2p3*p7p11+6*p3p4*p7p11))+w17*(48*p3p4*(
1176      . p7p10+p7p11)+32*p2p3*(-p7p10-p7p11)+32*p1p3*(-p7p10-p7p11)+16*
1177      . p3p7*(-p1p10-p1p11-p2p10-p2p11+3*p5p10+3*p5p11)+8*(ffmcfmb*
1178      . hbcm2*p7p10+ffmcfmb*hbcm2*p7p11-2*fmb*hbcm*p7p10-2*fmb*hbcm*
1179      . p7p11+fmc*hbcm*p7p10+fmc*hbcm*p7p11+3*hbcm2*p7p10+3*hbcm2*
1180      . p7p11))+24*p3p12)
1181       b(39)=ccc*(w7*((p3p7*p3p6)*(-32*ffmcfmb-16)+8*p6p7*(ffmcfmb*
1182      . hbcm2-fmb*hbcm-hbcm2)+16*(-p3p5*p6p7-p3p6*p4p7-3*p3p7*p4p6))+
1183      . w17*((p3p7*p3p6)*(-32*ffmcfmb-16)+8*p6p7*(ffmcfmb*hbcm2-fmb*
1184      . hbcm-hbcm2)+16*(-p3p5*p6p7-p3p6*p4p7-3*p3p7*p4p6)))
1185       b(40)=ccc*(w7*(16*(p6p7*p1p3)*(ffmcfmb*hbcm+fmb)+8*p6p7*(-
1186      . ffmcfmb**2*hbcm3+fmc2*hbcm)+16*(p3p7*p3p6)*(ffmcfmb**2*hbcm+
1187      . ffmcfmb*fmb+ffmcfmb*fmc)+16*(ffmcfmb*hbcm*p2p3*p6p7+ffmcfmb*
1188      . hbcm*p3p6*p5p7-hbcm*p1p2*p6p7+hbcm*p1p5*p6p7))+w17*(16*(p6p7*
1189      . p1p3)*(ffmcfmb*hbcm+fmb)+8*p6p7*(-ffmcfmb**2*hbcm3+fmc2*hbcm)+
1190      . 16*(p3p7*p3p6)*(ffmcfmb**2*hbcm+ffmcfmb*fmb+ffmcfmb*fmc)+16*(
1191      . ffmcfmb*hbcm*p2p3*p6p7+ffmcfmb*hbcm*p3p6*p5p7-hbcm*p1p2*p6p7+
1192      . hbcm*p1p5*p6p7))+8*hbcm*p6p7)
1193       b(41)=ccc*(w7*(8*p6p7*(-ffmcfmb**2*hbcm2+fmc2)+16*(ffmcfmb*p2p3
1194      . *p6p7+ffmcfmb*p3p6*p3p7+2*ffmcfmb*p3p6*p5p7-p1p2*p6p7+p1p3*
1195      . p6p7+p1p5*p6p7))+w17*(8*p6p7*(-ffmcfmb**2*hbcm2+fmc2)+16*(
1196      . ffmcfmb*p2p3*p6p7+ffmcfmb*p3p6*p3p7+2*ffmcfmb*p3p6*p5p7-p1p2*
1197      . p6p7+p1p3*p6p7+p1p5*p6p7))+8*p6p7)
1198       b(42)=w2*ccc*((p3p7*p3p6)*(-32*ffmcfmb-16)+8*p6p7*(ffmcfmb*
1199      . hbcm2-fmb*hbcm-hbcm2)+16*(-p3p5*p6p7-p3p6*p4p7-3*p3p7*p4p6))
1200       b(43)=ccc*(w2*(16*p3p6*(-ffmcfmb*p7p9-p7p9)+16*(-ffmcfmb*p3p7*
1201      . p6p9-3*p4p6*p7p9-p4p7*p6p9-p5p9*p6p7))+w7*(16*p3p6*(-ffmcfmb*
1202      . p7p11-p7p11)+16*(-ffmcfmb*p3p7*p6p11-3*p4p6*p7p11-p4p7*p6p11-
1203      . p5p11*p6p7))+w17*(16*p6p7*(-p5p10-p5p11)+16*p4p7*(-p6p10-p6p11
1204      . )+48*p4p6*(-p7p10-p7p11)+16*p3p7*(-ffmcfmb*p6p10-ffmcfmb*p6p11
1205      . )+16*p3p6*(-ffmcfmb*p7p10-ffmcfmb*p7p11-p7p10-p7p11))+8*(-
1206      . p6p12-p7p13))
1207       b(44)=ccc*(w7*(8*p3p6*(-ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm-
1208      . ffmcfmb*fmc*hbcm-2*ffmcfmb*hbcm2+fmc2)+16*(2*ffmcfmb*p2p3*p3p6
1209      . -2*ffmcfmb*p3p4*p3p6-p1p2*p3p6-3*p1p3*p4p6+p1p5*p3p6))+w17*(8*
1210      . p3p6*(-ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm-2*
1211      . ffmcfmb*hbcm2+fmc2)+16*(2*ffmcfmb*p2p3*p3p6-2*ffmcfmb*p3p4*
1212      . p3p6-p1p2*p3p6-3*p1p3*p4p6+p1p5*p3p6))+8*p3p6)
1213       b(45)=ccc*(w7*(p3p6*(-16*ffmcfmb-8)-32*p4p6)+w17*(p3p6*(-16*
1214      . ffmcfmb-8)-32*p4p6))
1215       b(46)=ccc*(8*w7*p3p6*(ffmcfmb**2*hbcm+2*ffmcfmb*fmb+ffmcfmb*fmc
1216      . -ffmcfmb*hbcm)+8*w17*p3p6*(ffmcfmb**2*hbcm+2*ffmcfmb*fmb+
1217      . ffmcfmb*fmc-ffmcfmb*hbcm))
1218       b(47)=w2*ccc*(p3p6*(-16*ffmcfmb-8)-32*p4p6)
1219       b(49)=ccc*(w7*(8*p3p7*(ffmcfmb*hbcm+3*fmb+fmc)+24*hbcm*p5p7)+
1220      . w17*(8*p3p7*(ffmcfmb*hbcm+3*fmb+fmc)+24*hbcm*p5p7))
1221       b(50)=ccc*(w7*(p3p7*(-16*ffmcfmb+24)+32*p5p7)+w17*(p3p7*(-16*
1222      . ffmcfmb+24)+32*p5p7))
1223       b(51)=ccc*(w7*(8*p3p7*(ffmcfmb**2*hbcm2-fmc2)+16*(ffmcfmb*p1p3*
1224      . p3p7-ffmcfmb*p2p3*p3p7-p1p2*p3p7-p1p3*p5p7+3*p1p4*p3p7))+w17*(
1225      . 8*p3p7*(ffmcfmb**2*hbcm2-fmc2)+16*(ffmcfmb*p1p3*p3p7-ffmcfmb*
1226      . p2p3*p3p7-p1p2*p3p7-p1p3*p5p7+3*p1p4*p3p7))-8*p3p7)
1227       b(52)=w2*ccc*(p3p7*(-16*ffmcfmb+24)+32*p5p7)
1228       b(53)=ccc*(8*w2*(-3*p1p9-3*p2p9+4*p3p9+4*p4p9)+8*w7*(-3*p1p11-3
1229      . *p2p11+4*p3p11+4*p4p11)+8*w17*(-3*p1p10-3*p1p11-3*p2p10-3*
1230      . p2p11+4*p3p10+4*p3p11+4*p4p10+4*p4p11))
1231       b(54)=ccc*(4*w7*(-2*ffmcfmb*hbcm2+3*fmb*hbcm-fmc*hbcm-4*hbcm2+6
1232      . *p1p3+6*p2p3-8*p3p4)+4*w17*(-2*ffmcfmb*hbcm2+3*fmb*hbcm-fmc*
1233      . hbcm-4*hbcm2+6*p1p3+6*p2p3-8*p3p4))
1234       b(55)=ccc*(4*w7*(3*ffmcfmb*hbcm+4*fmb+fmc-3*hbcm)+4*w17*(3*
1235      . ffmcfmb*hbcm+4*fmb+fmc-3*hbcm))
1236       b(56)=ccc*(8*w7*(ffmcfmb**2*hbcm2-2*ffmcfmb*p2p3-fmc2-p1p2+p1p3
1237      . +4*p1p4)+8*w17*(ffmcfmb**2*hbcm2-2*ffmcfmb*p2p3-fmc2-p1p2+p1p3
1238      . +4*p1p4)-8)
1239       b(57)=-8*ccc
1240       b(58)=ccc*(w7*(8*p3p6*(2*ffmcfmb*hbcm+fmb)+24*hbcm*p4p6)+w17*(8
1241      . *p3p6*(2*ffmcfmb*hbcm+fmb)+24*hbcm*p4p6))
1242       b(59)=ccc*(w7*(8*p1p3*(-ffmcfmb*hbcm-fmb)+4*(-ffmcfmb**2*hbcm3+
1243      . 2*ffmcfmb*hbcm*p2p3+fmc2*hbcm+2*hbcm*p1p2-6*hbcm*p1p4))+w17*(8
1244      . *p1p3*(-ffmcfmb*hbcm-fmb)+4*(-ffmcfmb**2*hbcm3+2*ffmcfmb*hbcm*
1245      . p2p3+fmc2*hbcm+2*hbcm*p1p2-6*hbcm*p1p4))+4*hbcm)
1246       b(60)=w2*ccc*(8*p3p6*(2*ffmcfmb*hbcm+fmb)+24*hbcm*p4p6)
1247       b(61)=-4*ccc*hbcm
1248       b(62)=8*ccc*ffmcfmb*hbcm*p3p6
1249       b(63)=w17*ccc*((p3p7*p3p6)*(-32*ffmcfmb-16)+8*p6p7*(ffmcfmb*
1250      . hbcm2-fmb*hbcm-hbcm2)+16*(-p3p5*p6p7-p3p6*p4p7-3*p3p7*p4p6))
1251       b(64)=w17*ccc*(8*p6p7*(-ffmcfmb**2*hbcm2+fmc2)+16*(ffmcfmb*p2p3
1252      . *p6p7+ffmcfmb*p3p6*p3p7+2*ffmcfmb*p3p6*p5p7-p1p2*p6p7+p1p3*
1253      . p6p7+p1p5*p6p7))
1254       b(66)=ccc*(w2*(16*p3p6*(-ffmcfmb*hbcm*p7p9-fmb*p7p9)+16*(-
1255      . ffmcfmb*hbcm*p3p7*p6p9-2*hbcm*p4p6*p7p9-hbcm*p4p7*p6p9-hbcm*
1256      . p5p9*p6p7))+w7*(16*p3p6*(-ffmcfmb*hbcm*p7p11-fmb*p7p11)+16*(-
1257      . ffmcfmb*hbcm*p3p7*p6p11-2*hbcm*p4p6*p7p11-hbcm*p4p7*p6p11-hbcm
1258      . *p5p11*p6p7))+w17*(16*p6p7*(-hbcm*p5p10-hbcm*p5p11)+16*p4p7*(-
1259      . hbcm*p6p10-hbcm*p6p11)+32*p4p6*(-hbcm*p7p10-hbcm*p7p11)+16*
1260      . p3p7*(-ffmcfmb*hbcm*p6p10-ffmcfmb*hbcm*p6p11)+16*p3p6*(-
1261      . ffmcfmb*hbcm*p7p10-ffmcfmb*hbcm*p7p11-fmb*p7p10-fmb*p7p11))-8*
1262      . hbcm*p6p12)
1263       b(67)=w17*ccc*(p3p6*(-16*ffmcfmb-8)-32*p4p6)
1264       b(69)=w17*ccc*(p3p7*(-16*ffmcfmb+24)+32*p5p7)
1265       b(70)=w17*ccc*(8*p3p7*(ffmcfmb**2*hbcm2-fmc2)+16*(ffmcfmb*p1p3*
1266      . p3p7-ffmcfmb*p2p3*p3p7-p1p2*p3p7-p1p3*p5p7+3*p1p4*p3p7))
1267       b(72)=8*ccc*w17*(ffmcfmb**2*hbcm2-2*ffmcfmb*p2p3-fmc2-p1p2+p1p3
1268      . +4*p1p4)
1269       b(73)=ccc*(8*w7*p6p7*(ffmcfmb*hbcm+fmb-hbcm)+8*w17*p6p7*(
1270      . ffmcfmb*hbcm+fmb-hbcm))
1271       b(75)=ccc*(8*w2*(ffmcfmb*hbcm*p1p9+fmb*p1p9-hbcm*p1p9)+8*w7*(
1272      . ffmcfmb*hbcm*p1p11+fmb*p1p11-hbcm*p1p11)+8*w17*(ffmcfmb*hbcm*
1273      . p1p10+ffmcfmb*hbcm*p1p11+fmb*p1p10+fmb*p1p11-hbcm*p1p10-hbcm*
1274      . p1p11))
1275       b(76)=ccc*(w2*(16*p1p3*(p1p9+p2p9-p3p9-p4p9)+8*(ffmcfmb*hbcm2*
1276      . p1p9-fmb*hbcm*p1p9-hbcm2*p1p9-2*p1p9*p3p5))+w7*(16*p1p3*(p1p11
1277      . +p2p11-p3p11-p4p11)+8*(ffmcfmb*hbcm2*p1p11-fmb*hbcm*p1p11-
1278      . hbcm2*p1p11-2*p1p11*p3p5))+w17*(16*p3p5*(-p1p10-p1p11)+16*p1p3
1279      . *(p1p10+p1p11+p2p10+p2p11-p3p10-p3p11-p4p10-p4p11)+8*(ffmcfmb*
1280      . hbcm2*p1p10+ffmcfmb*hbcm2*p1p11-fmb*hbcm*p1p10-fmb*hbcm*p1p11-
1281      . hbcm2*p1p10-hbcm2*p1p11)))
1282       b(77)=ccc*(8*w2*(ffmcfmb*hbcm2*p6p9-fmb*hbcm*p6p9-hbcm2*p6p9-2*
1283      . p3p5*p6p9+2*p3p6*p5p9)+8*w7*(ffmcfmb*hbcm2*p6p11-fmb*hbcm*
1284      . p6p11-hbcm2*p6p11-2*p3p5*p6p11+2*p3p6*p5p11)+w17*(16*p3p6*(
1285      . p5p10+p5p11)+16*p3p5*(-p6p10-p6p11)+8*(ffmcfmb*hbcm2*p6p10+
1286      . ffmcfmb*hbcm2*p6p11-fmb*hbcm*p6p10-fmb*hbcm*p6p11-hbcm2*p6p10-
1287      . hbcm2*p6p11)))
1288       b(78)=ccc*(8*w2*(ffmcfmb*hbcm*p6p9+fmb*p6p9-hbcm*p6p9)+8*w7*(
1289      . ffmcfmb*hbcm*p6p11+fmb*p6p11-hbcm*p6p11)+8*w17*(ffmcfmb*hbcm*
1290      . p6p10+ffmcfmb*hbcm*p6p11+fmb*p6p10+fmb*p6p11-hbcm*p6p10-hbcm*
1291      . p6p11))
1292       b(79)=8*ccc*w2*p6p7*(ffmcfmb*hbcm+fmb-hbcm)
1293       b(81)=8*ccc*w17*p6p7*(ffmcfmb*hbcm+fmb-hbcm)
1294       b(82)=-8*ccc*p3p7
1295       b(83)=ccc*(8*p3p7*(ffmcfmb*hbcm+fmb+fmc)+8*hbcm*p5p7)
1296       b(84)=8*ccc*(p3p7+2*p5p7)
1297       b(85)=4*ccc*(fmb*hbcm-fmc*hbcm-2*hbcm2+2*p2p3-4*p3p4)
1298       b(86)=-8*ccc
1299       b(87)=4*ccc*(ffmcfmb*hbcm+2*fmb+fmc-hbcm)
1300       b(89)=-4*ccc*hbcm
1301       b(92)=8*ccc*p1p3
1302       b(93)=8*ccc*p3p6
1303       do 200 n=1,94
1304          c(n,1)=c(n,1)-0.1818181818181818d0*b(n)
1305          c(n,2)=c(n,2)-0.05883183899358491d0*b(n)
1306          c(n,3)=c(n,3)-0.2077659977796572d0*b(n)
1307 200   continue
1308       return
1309       end
1310
1311       subroutine amp15_3p2(cc)
1312       implicit double precision(a-h,o-z)
1313       implicit integer (i-n)
1314       dimension b(94)
1315 #include "inclcon.h"
1316 #include "inclppp.h"
1317 #include "inclamp.h"
1318       do 100 n=1,94
1319          b(n)=0.0d0
1320 100   continue
1321       ccc=cc/((-2*p2p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2+2*ffmcfmb*
1322      . p2p3-2*ffmcfmb*p3p5+fmb2+hbcm2-2*p2p3-2*p2p5+2*p3p5)*(ffmcfmb
1323      . **2*hbcm2-2*ffmcfmb*p1p3-fmc2))
1324       b(3)=ccc*(w16*(16*p5p7*(p1p11-p1p9)+16*p4p7*(p1p11-p1p9)+16*
1325      . p3p7*(p1p11-p1p9))+16*w12*(-p1p10*p3p7-p1p10*p4p7-p1p10*p5p7)+
1326      . 16*(p1p12+p2p12-p3p12-p4p12-p5p12))
1327       b(6)=8*ccc*(-hbcm*p1p12+hbcm*p3p12+hbcm*p4p12+hbcm*p5p12-hbcm*
1328      . p7p11)
1329       b(7)=ccc*(w16*(16*p1p5*(-p6p11+p6p9)+16*p1p3*(-p6p11+p6p9)+16*
1330      . p1p2*(p6p11-p6p9)+16*p4p6*(p1p11-p1p9)+16*p3p6*(p1p11-p1p9)+8*
1331      . (-ffmcfmb*fmb*hbcm*p6p11+ffmcfmb*fmb*hbcm*p6p9+ffmcfmb*fmc*
1332      . hbcm*p6p11-ffmcfmb*fmc*hbcm*p6p9+ffmcfmb*hbcm2*p6p11-ffmcfmb*
1333      . hbcm2*p6p9+fmb*fmc*p6p11-fmb*fmc*p6p9-fmc*hbcm*p6p11+fmc*hbcm*
1334      . p6p9-fmc2*p6p11+fmc2*p6p9))+8*w12*(ffmcfmb*fmb*hbcm*p6p10-
1335      . ffmcfmb*fmc*hbcm*p6p10-ffmcfmb*hbcm2*p6p10-fmb*fmc*p6p10+fmc*
1336      . hbcm*p6p10+fmc2*p6p10-2*p1p10*p3p6-2*p1p10*p4p6-2*p1p2*p6p10+2
1337      . *p1p3*p6p10+2*p1p5*p6p10)+8*(-p1p13-2*p2p13+2*p3p13+p4p13+
1338      . p5p13+p6p11))
1339       b(9)=w16*ccc*(8*p3p6*(fmb*fmc-fmc2)+16*(p1p2*p3p6+p1p3*p4p6-
1340      . p1p5*p3p6))
1341       ans2=8*(-fmb*p3p13-fmc*p3p13+hbcm*p2p13-hbcm*p3p13-hbcm*p4p13-
1342      . hbcm*p6p11)
1343       ans1=w16*(16*p1p5*(hbcm*p6p11-hbcm*p6p9)+16*p1p2*(-hbcm*p6p11+
1344      . hbcm*p6p9)+16*p4p6*(hbcm*p1p11-hbcm*p1p9)+16*p3p6*(-fmc*p1p11+
1345      . fmc*p1p9+fmc*p3p11-fmc*p3p9+fmc*p4p11-fmc*p4p9)+16*p3p5*(-
1346      . ffmcfmb*hbcm*p6p11+ffmcfmb*hbcm*p6p9+fmc*p6p11-fmc*p6p9)+16*
1347      . p2p3*(ffmcfmb*hbcm*p6p11-ffmcfmb*hbcm*p6p9-fmc*p6p11+fmc*p6p9)
1348      . +16*p1p3*(ffmcfmb*hbcm*p6p11-ffmcfmb*hbcm*p6p9+fmb*p6p11-fmb*
1349      . p6p9)+8*(-ffmcfmb*fmb*hbcm2*p6p11+ffmcfmb*fmb*hbcm2*p6p9-
1350      . ffmcfmb*fmc*hbcm2*p6p11+ffmcfmb*fmc*hbcm2*p6p9-ffmcfmb*hbcm3*
1351      . p6p11+ffmcfmb*hbcm3*p6p9+fmb*fmc*hbcm*p6p11-fmb*fmc*hbcm*p6p9+
1352      . fmc*hbcm2*p6p11-fmc*hbcm2*p6p9+fmc2*hbcm*p6p11-fmc2*hbcm*p6p9)
1353      . )+w12*(16*p3p6*(fmc*p1p10-fmc*p4p10)+16*p3p5*(ffmcfmb*hbcm*
1354      . p6p10-fmc*p6p10)+16*p4p6*(-ffmcfmb*hbcm*p3p10+fmc*p3p10-hbcm*
1355      . p1p10)+16*p2p3*(-ffmcfmb*hbcm*p6p10+fmc*p6p10)+16*p1p3*(-
1356      . ffmcfmb*hbcm*p6p10-fmb*p6p10)+8*(ffmcfmb*fmb*hbcm2*p6p10+
1357      . ffmcfmb*fmc*hbcm2*p6p10+ffmcfmb*hbcm3*p6p10-fmb*fmc*hbcm*p6p10
1358      . -fmc*hbcm2*p6p10-fmc2*hbcm*p6p10+2*hbcm*p1p2*p6p10-2*hbcm*p1p5
1359      . *p6p10))+ans2
1360       ans=ccc*ans1
1361       b(10)=ans
1362       b(14)=4*ccc*w16*(-ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+fmb*fmc-
1363      . fmc2+2*p1p3+4*p1p4)
1364       b(16)=w16*ccc*(8*p3p4*(ffmcfmb*hbcm-fmc)+8*p1p3*(-ffmcfmb*hbcm-
1365      . fmb)+4*(ffmcfmb*hbcm3-fmc*hbcm2-2*hbcm*p1p4))
1366       b(17)=8*ccc*w12*(fmb*p3p6+hbcm*p4p6)
1367       b(18)=4*ccc*w12*(-ffmcfmb*hbcm-2*fmb-fmc+hbcm)
1368       b(19)=4*ccc*w12*(fmb*hbcm-fmc*hbcm-2*hbcm2+2*p1p3-4*p3p4)
1369       b(21)=ccc*(8*w16*(-hbcm*p3p11+hbcm*p3p9-hbcm*p4p11+hbcm*p4p9)+8
1370      . *w12*(ffmcfmb*hbcm*p3p10+2*fmb*p3p10+fmc*p3p10+hbcm*p4p10))
1371       b(22)=w12*ccc*(8*p3p4*(ffmcfmb*hbcm-fmc)+8*p1p3*(-ffmcfmb*hbcm-
1372      . fmb)+4*(ffmcfmb*hbcm3-fmc*hbcm2-2*hbcm*p1p4))
1373       b(27)=w12*ccc*(8*p4p6*(ffmcfmb*hbcm-fmc)-8*fmc*p3p6)
1374       b(28)=w12*ccc*(8*p3p6*(-fmb*fmc+fmc2)+16*(-p1p2*p3p6-p1p3*p4p6+
1375      . p1p5*p3p6))
1376       ans2=(16*p3p4*(p6p12-2*p7p13)+16*p2p3*(-p6p12+2*p7p13)+32*p3p7*
1377      . (p1p13+p2p13-p3p13-p4p13-p5p13)+16*p3p6*(-p1p12+p3p12+p4p12+
1378      . p5p12-p7p11)+8*(-fmb*hbcm*p6p12+fmb*hbcm*p7p13+fmc*hbcm*p6p12-
1379      . fmc*hbcm*p7p13+hbcm2*p6p12-3*hbcm2*p7p13+2*p1p3*p7p13+4*p3p11*
1380      . p6p7+2*p3p13*p4p7+2*p3p13*p5p7-2*p3p5*p7p13))
1381       ans1=w16*(32*(p3p7*p1p5)*(p6p11-p6p9)+32*(p3p7*p1p3)*(p6p11-
1382      . p6p9)+32*(p3p7*p1p2)*(-p6p11+p6p9)+32*(p4p6*p3p7)*(-p1p11+p1p9
1383      . )+32*(p5p7*p3p6)*(-p1p11+p1p9)+32*(p4p7*p3p6)*(-p1p11+p1p9)+64
1384      . *(p3p7*p3p6)*(-p1p11+p1p9)+16*p3p6*(-fmb*fmc*p7p9+fmc2*p7p9)+
1385      . 16*p3p7*(ffmcfmb*fmb*hbcm*p6p11-ffmcfmb*fmb*hbcm*p6p9-ffmcfmb*
1386      . fmc*hbcm*p6p11+ffmcfmb*fmc*hbcm*p6p9-ffmcfmb*hbcm2*p6p11+
1387      . ffmcfmb*hbcm2*p6p9-fmb*fmc*p6p11+fmb*fmc*p6p9+fmc*hbcm*p6p11-
1388      . fmc*hbcm*p6p9+fmc2*p6p11-fmc2*p6p9)+32*(-p1p2*p3p6*p7p9-p1p3*
1389      . p4p6*p7p9+p1p5*p3p6*p7p9))+w12*(16*p3p7*(-ffmcfmb*fmb*hbcm*
1390      . p6p10+ffmcfmb*fmc*hbcm*p6p10+ffmcfmb*hbcm2*p6p10+fmb*fmc*p6p10
1391      . -fmc*hbcm*p6p10-fmc2*p6p10)+32*(2*p1p10*p3p6*p3p7+p1p10*p3p6*
1392      . p4p7+p1p10*p3p6*p5p7+p1p10*p3p7*p4p6+p1p2*p3p7*p6p10-p1p3*p3p7
1393      . *p6p10-p1p5*p3p7*p6p10))+ans2
1394       ans=ccc*ans1
1395       b(30)=ans
1396       b(32)=w16*ccc*(8*p4p6*(-ffmcfmb*hbcm+fmc)+8*fmc*p3p6)
1397       b(33)=ccc*(w16*(16*p5p7*(-ffmcfmb*hbcm*p6p11+ffmcfmb*hbcm*p6p9+
1398      . fmc*p6p11-fmc*p6p9)+16*p4p7*(-ffmcfmb*hbcm*p6p11+ffmcfmb*hbcm*
1399      . p6p9+fmc*p6p11-fmc*p6p9)+16*p3p7*(-ffmcfmb*hbcm*p6p11+ffmcfmb*
1400      . hbcm*p6p9+fmc*p6p11-fmc*p6p9))+w12*(16*p5p7*(ffmcfmb*hbcm*
1401      . p6p10-fmc*p6p10)+16*p4p7*(ffmcfmb*hbcm*p6p10-fmc*p6p10)+16*
1402      . p3p7*(ffmcfmb*hbcm*p6p10-fmc*p6p10))+8*(-fmb*p6p12+fmb*p7p13-
1403      . fmc*p6p12+fmc*p7p13+hbcm*p6p12-hbcm*p7p13))
1404       b(34)=4*ccc*w16*(ffmcfmb*hbcm+2*fmb+fmc-hbcm)
1405       b(36)=4*ccc*w16*(fmb*hbcm-fmc*hbcm-2*hbcm2+2*p1p3-4*p3p4)
1406       b(39)=16*ccc*w16*(p3p6*p3p7+p3p6*p4p7+p3p6*p5p7)
1407       b(42)=16*ccc*w16*(-p3p6*p3p7-p3p6*p4p7-p3p6*p5p7)
1408       b(43)=ccc*(w16*(16*p5p7*(p6p11-p6p9)+16*p4p7*(p6p11-p6p9)+16*
1409      . p3p7*(p6p11-p6p9))+16*w12*(-p3p7*p6p10-p4p7*p6p10-p5p7*p6p10)+
1410      . 8*(-p6p12+p7p13))
1411       b(44)=w16*ccc*(8*p3p6*(fmb*fmc-fmc2)+16*(p1p2*p3p6+p1p3*p4p6-
1412      . p1p5*p3p6))
1413       b(45)=8*ccc*w16*(p3p6+2*p4p6)
1414       b(46)=w16*ccc*(8*p4p6*(ffmcfmb*hbcm-fmc)-8*fmc*p3p6)
1415       b(47)=8*ccc*w16*(-p3p6-2*p4p6)
1416       b(53)=ccc*(8*w16*(p1p11-p1p9-2*p3p11+2*p3p9-2*p4p11+2*p4p9)+8*
1417      . w12*(-p1p10+2*p3p10+2*p4p10))
1418       b(54)=4*ccc*w16*(-fmb*hbcm+fmc*hbcm+2*hbcm2-2*p1p3+4*p3p4)
1419       b(55)=4*ccc*w16*(-ffmcfmb*hbcm-2*fmb-fmc+hbcm)
1420       b(56)=4*ccc*w16*(ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm-fmb*fmc+fmc2
1421      . -2*p1p3-4*p1p4)
1422       b(58)=8*ccc*w16*(-fmb*p3p6-hbcm*p4p6)
1423       b(59)=w16*ccc*(8*p3p4*(-ffmcfmb*hbcm+fmc)+8*p1p3*(ffmcfmb*hbcm+
1424      . fmb)+4*(-ffmcfmb*hbcm3+fmc*hbcm2+2*hbcm*p1p4))
1425       b(60)=8*ccc*w16*(fmb*p3p6+hbcm*p4p6)
1426       b(63)=16*ccc*w12*(-p3p6*p3p7-p3p6*p4p7-p3p6*p5p7)
1427       b(66)=ccc*(w16*(16*p5p7*(hbcm*p6p11-hbcm*p6p9)+16*p4p7*(hbcm*
1428      . p6p11-hbcm*p6p9)+16*p3p7*(ffmcfmb*hbcm*p6p11-ffmcfmb*hbcm*p6p9
1429      . +fmb*p6p11-fmb*p6p9))+w12*(16*p3p7*(-ffmcfmb*hbcm*p6p10-fmb*
1430      . p6p10)+16*(-hbcm*p4p7*p6p10-hbcm*p5p7*p6p10))+8*(-hbcm*p6p12+
1431      . hbcm*p7p13))
1432       b(67)=8*ccc*w12*(-p3p6-2*p4p6)
1433       b(72)=4*ccc*w12*(-ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+fmb*fmc-
1434      . fmc2+2*p1p3+4*p1p4)
1435       b(75)=ccc*(8*w16*(-ffmcfmb*hbcm*p1p11+ffmcfmb*hbcm*p1p9+ffmcfmb
1436      . *hbcm*p3p11-ffmcfmb*hbcm*p3p9+ffmcfmb*hbcm*p4p11-ffmcfmb*hbcm*
1437      . p4p9-fmb*p1p11+fmb*p1p9-fmc*p3p11+fmc*p3p9-fmc*p4p11+fmc*p4p9+
1438      . hbcm*p1p11-hbcm*p1p9)+8*w12*(ffmcfmb*hbcm*p1p10-ffmcfmb*hbcm*
1439      . p3p10-ffmcfmb*hbcm*p4p10+fmb*p1p10+fmc*p3p10+fmc*p4p10-hbcm*
1440      . p1p10))
1441       b(76)=ccc*(w16*(16*p3p5*(p1p11-p1p9)+16*p2p3*(-p1p11+p1p9)+16*
1442      . p1p3*(-p1p11+p1p9+p3p11-p3p9+p4p11-p4p9)+8*(fmb*hbcm*p1p11-fmb
1443      . *hbcm*p1p9-fmc*hbcm*p1p11+fmc*hbcm*p1p9+hbcm2*p1p11-hbcm2*p1p9
1444      . ))+w12*(16*p1p3*(p1p10-p3p10-p4p10)+8*(-fmb*hbcm*p1p10+fmc*
1445      . hbcm*p1p10-hbcm2*p1p10+2*p1p10*p2p3-2*p1p10*p3p5)))
1446       b(77)=ccc*(w16*(16*p3p5*(p6p11-p6p9)+16*p2p3*(-p6p11+p6p9)+16*
1447      . p3p6*(p2p11-p2p9-p5p11+p5p9)+8*(-ffmcfmb*hbcm2*p6p11+ffmcfmb*
1448      . hbcm2*p6p9+fmb*hbcm*p6p11-fmb*hbcm*p6p9+hbcm2*p6p11-hbcm2*p6p9
1449      . ))+w12*(16*p3p6*(-p2p10+p5p10)+8*(ffmcfmb*hbcm2*p6p10-fmb*hbcm
1450      . *p6p10-hbcm2*p6p10+2*p2p3*p6p10-2*p3p5*p6p10))-8*p3p13)
1451       b(78)=ccc*(8*w16*(-ffmcfmb*hbcm*p6p11+ffmcfmb*hbcm*p6p9-fmb*
1452      . p6p11+fmb*p6p9+hbcm*p6p11-hbcm*p6p9)+8*w12*(ffmcfmb*hbcm*p6p10
1453      . +fmb*p6p10-hbcm*p6p10))
1454       b(84)=8*ccc*(-p3p7-p4p7-p5p7)
1455       b(85)=4*ccc*(-fmb*hbcm+fmc*hbcm+2*hbcm2-2*p1p3-2*p2p3+2*p3p4+2*
1456      . p3p5)
1457       b(87)=4*ccc*hbcm
1458       b(89)=4*ccc*hbcm
1459       b(92)=16*ccc*(hbcm2-p1p3-p2p3+p3p4+p3p5)
1460       do 200 n=1,94
1461          c(n,2)=c(n,2)+0.09245003270420485d0*b(n)
1462          c(n,3)=c(n,3)-0.02077659977796572d0*b(n)
1463 200   continue
1464       return
1465       end
1466
1467       subroutine amp14_3p2(cc)
1468       implicit double precision(a-h,o-z)
1469       implicit integer (i-n)
1470       dimension b(94)
1471 #include "inclcon.h"
1472 #include "inclppp.h"
1473 #include "inclamp.h"
1474       do 100 n=1,94
1475          b(n)=0.0d0
1476 100   continue
1477       ccc=cc/((-2*p2p5)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2)*(
1478      . ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2+2*ffmcfmb*p1p3-fmb2+hbcm2-2*
1479      . p1p3))
1480       b(3)=ccc*(16*w1*(p1p8*p3p7+p1p8*p4p7+p1p8*p5p7)+16*w13*(p1p10*
1481      . p3p7+p1p10*p4p7+p1p10*p5p7)+16*(-p1p12-p2p12+p3p12+p4p12+p5p12
1482      . ))
1483       b(6)=8*ccc*(hbcm*p1p12-hbcm*p3p12-hbcm*p4p12-hbcm*p5p12+hbcm*
1484      . p7p11)
1485       b(7)=ccc*(8*w1*(-ffmcfmb*hbcm2*p6p8-fmb*hbcm*p6p8+hbcm2*p6p8+2*
1486      . p1p2*p6p8-2*p1p3*p6p8-2*p1p5*p6p8+2*p1p8*p3p6+2*p1p8*p4p6)+8*
1487      . w13*(-ffmcfmb*hbcm2*p6p10-fmb*hbcm*p6p10+hbcm2*p6p10+2*p1p10*
1488      . p3p6+2*p1p10*p4p6+2*p1p2*p6p10-2*p1p3*p6p10-2*p1p5*p6p10)+8*(
1489      . p1p13+2*p2p13-2*p3p13-p4p13-p5p13-p6p11))
1490       b(8)=w1*ccc*(8*p3p6*(-ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+fmb*
1491      . hbcm-fmc*hbcm)+16*(-p1p2*p3p6-p1p3*p4p6+p1p5*p3p6))
1492       b(10)=ccc*(w1*(16*p1p3*(fmb*p6p8+fmc*p6p8)+16*p4p6*(-ffmcfmb*
1493      . hbcm*p3p8-fmb*p3p8+hbcm*p3p8)+16*p3p6*(-ffmcfmb*hbcm*p1p8+
1494      . ffmcfmb*hbcm*p4p8+hbcm*p1p8-hbcm*p4p8)+8*(ffmcfmb*fmb*hbcm2*
1495      . p6p8+ffmcfmb*fmc*hbcm2*p6p8+fmb*fmc*hbcm*p6p8-fmb*hbcm2*p6p8+
1496      . fmb2*hbcm*p6p8-fmc*hbcm2*p6p8))+w13*(16*p1p3*(fmb*p6p10+fmc*
1497      . p6p10)+16*p4p6*(-ffmcfmb*hbcm*p3p10-fmb*p3p10+hbcm*p3p10)+16*
1498      . p3p6*(-ffmcfmb*hbcm*p1p10+ffmcfmb*hbcm*p4p10+hbcm*p1p10-hbcm*
1499      . p4p10)+8*(ffmcfmb*fmb*hbcm2*p6p10+ffmcfmb*fmc*hbcm2*p6p10+fmb*
1500      . fmc*hbcm*p6p10-fmb*hbcm2*p6p10+fmb2*hbcm*p6p10-fmc*hbcm2*p6p10
1501      . ))+8*(fmb*p3p13+fmc*p3p13-hbcm*p1p13-hbcm*p2p13+hbcm*p5p13))
1502       b(13)=4*ccc*w1*(-ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+fmb*fmc+fmb*
1503      . hbcm-fmb2-fmc*hbcm-2*p1p3-4*p1p4)
1504       b(15)=w1*ccc*(8*p3p4*(ffmcfmb*hbcm+fmb-hbcm)+8*p1p3*(-ffmcfmb*
1505      . hbcm+fmc+hbcm)+4*(ffmcfmb*hbcm3+fmb*hbcm2+2*hbcm*p1p4-hbcm3))
1506       b(17)=w13*ccc*(8*p3p6*(ffmcfmb*hbcm-fmb-fmc-hbcm)-8*hbcm*p4p6)
1507       b(18)=4*ccc*w13*(-ffmcfmb*hbcm+fmb+2*fmc)
1508       b(19)=4*ccc*w13*(-fmb*hbcm+fmc*hbcm+2*hbcm2-2*p1p3+4*p3p4)
1509       b(21)=ccc*(8*w1*(ffmcfmb*hbcm*p3p8-fmb*p3p8-2*fmc*p3p8+hbcm*
1510      . p1p8-hbcm*p3p8-hbcm*p4p8)+8*w13*(ffmcfmb*hbcm*p3p10-fmb*p3p10-
1511      . 2*fmc*p3p10+hbcm*p1p10-hbcm*p3p10-hbcm*p4p10))
1512       b(22)=w13*ccc*(8*p3p4*(ffmcfmb*hbcm+fmb-hbcm)+8*p1p3*(-ffmcfmb*
1513      . hbcm+fmc+hbcm)+4*(ffmcfmb*hbcm3+fmb*hbcm2+2*hbcm*p1p4-hbcm3))
1514       b(23)=w1*ccc*(8*p3p6*(ffmcfmb*hbcm-fmb-fmc-hbcm)-8*hbcm*p4p6)
1515       b(24)=4*ccc*w1*(-ffmcfmb*hbcm+fmb+2*fmc)
1516       b(25)=4*ccc*w1*(-fmb*hbcm+fmc*hbcm+2*hbcm2-2*p1p3+4*p3p4)
1517       b(27)=w13*ccc*(8*p4p6*(ffmcfmb*hbcm+fmb-hbcm)+8*p3p6*(ffmcfmb*
1518      . hbcm-hbcm))
1519       b(28)=w13*ccc*(8*p3p6*(ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm-fmb*
1520      . hbcm+fmc*hbcm)+16*(p1p2*p3p6+p1p3*p4p6-p1p5*p3p6))
1521       b(30)=ccc*(w13*(16*p3p7*(ffmcfmb*hbcm2*p6p10+fmb*hbcm*p6p10-
1522      . hbcm2*p6p10)+32*(-2*p1p10*p3p6*p3p7-p1p10*p3p6*p4p7-p1p10*p3p6
1523      . *p5p7-p1p10*p3p7*p4p6-p1p2*p3p7*p6p10+p1p3*p3p7*p6p10+p1p5*
1524      . p3p7*p6p10))+w1*(16*p3p7*(ffmcfmb*hbcm2*p6p8+fmb*hbcm*p6p8-
1525      . hbcm2*p6p8)+16*p3p6*(ffmcfmb*fmb*hbcm*p7p8-ffmcfmb*fmc*hbcm*
1526      . p7p8-fmb*hbcm*p7p8+fmc*hbcm*p7p8)+32*(p1p2*p3p6*p7p8-p1p2*p3p7
1527      . *p6p8+p1p3*p3p7*p6p8+p1p3*p4p6*p7p8-p1p5*p3p6*p7p8+p1p5*p3p7*
1528      . p6p8-2*p1p8*p3p6*p3p7-p1p8*p3p6*p4p7-p1p8*p3p6*p5p7-p1p8*p3p7*
1529      . p4p6))+(16*p3p4*(-p6p12+2*p7p13)+16*p2p3*(p6p12-2*p7p13)+32*
1530      . p3p7*(-p1p13-p2p13+p3p13+p4p13+p5p13)+16*p3p6*(p1p12-p3p12-
1531      . p4p12-p5p12+p7p11)+8*(-hbcm2*p6p12+3*hbcm2*p7p13-2*p1p3*p7p13-
1532      . 4*p3p11*p6p7-2*p3p13*p4p7-2*p3p13*p5p7+2*p3p5*p7p13)))
1533       b(31)=w1*ccc*(8*p4p6*(ffmcfmb*hbcm+fmb-hbcm)+8*p3p6*(ffmcfmb*
1534      . hbcm-hbcm))
1535       b(33)=8*ccc*(fmb*p6p12-fmb*p7p13+fmc*p6p12-fmc*p7p13)
1536       b(43)=ccc*(16*w1*(p3p7*p6p8+p4p7*p6p8+p5p7*p6p8)+16*w13*(p3p7*
1537      . p6p10+p4p7*p6p10+p5p7*p6p10)+8*(p6p12-p7p13))
1538       b(53)=ccc*(8*w1*(p1p8-2*p3p8-2*p4p8)+8*w13*(p1p10-2*p3p10-2*
1539      . p4p10))
1540       b(63)=16*ccc*w13*(p3p6*p3p7+p3p6*p4p7+p3p6*p5p7)
1541       b(65)=16*ccc*w1*(p3p6*p3p7+p3p6*p4p7+p3p6*p5p7)
1542       b(66)=ccc*(16*w1*p3p7*(fmb*p6p8+fmc*p6p8)+16*w13*p3p7*(fmb*
1543      . p6p10+fmc*p6p10))
1544       b(67)=8*ccc*w13*(p3p6+2*p4p6)
1545       b(68)=8*ccc*w1*(p3p6+2*p4p6)
1546       b(72)=4*ccc*w13*(-ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+fmb*fmc+fmb
1547      . *hbcm-fmb2-fmc*hbcm-2*p1p3-4*p1p4)
1548       b(75)=ccc*(8*w1*(ffmcfmb*hbcm*p1p8-ffmcfmb*hbcm*p3p8-ffmcfmb*
1549      . hbcm*p4p8-fmb*p3p8-fmb*p4p8-fmc*p1p8-hbcm*p1p8+hbcm*p3p8+hbcm*
1550      . p4p8)+8*w13*(ffmcfmb*hbcm*p1p10-ffmcfmb*hbcm*p3p10-ffmcfmb*
1551      . hbcm*p4p10-fmb*p3p10-fmb*p4p10-fmc*p1p10-hbcm*p1p10+hbcm*p3p10
1552      . +hbcm*p4p10))
1553       b(76)=ccc*(w1*(16*p1p3*(-p1p8+p3p8+p4p8)+8*(hbcm2*p1p8-2*p1p8*
1554      . p2p3+2*p1p8*p3p5))+w13*(16*p1p3*(-p1p10+p3p10+p4p10)+8*(hbcm2*
1555      . p1p10-2*p1p10*p2p3+2*p1p10*p3p5)))
1556       b(77)=ccc*(w1*(16*p3p6*(p2p8-p5p8)+8*(ffmcfmb*hbcm2*p6p8+fmb*
1557      . hbcm*p6p8-2*p2p3*p6p8+2*p3p5*p6p8))+w13*(16*p3p6*(p2p10-p5p10)
1558      . +8*(ffmcfmb*hbcm2*p6p10+fmb*hbcm*p6p10-2*p2p3*p6p10+2*p3p5*
1559      . p6p10))+8*p3p13)
1560       b(78)=ccc*(8*w1*(-fmb*p6p8-fmc*p6p8)+8*w13*(-fmb*p6p10-fmc*
1561      . p6p10))
1562       b(83)=8*ccc*(hbcm*p3p7+hbcm*p4p7+hbcm*p5p7)
1563       b(84)=8*ccc*(p3p7+p4p7+p5p7)
1564       b(85)=4*ccc*(-fmb*hbcm+fmc*hbcm-2*hbcm2+2*p1p3+2*p2p3-2*p3p4-2*
1565      . p3p5)
1566       b(87)=4*ccc*hbcm
1567       b(89)=4*ccc*hbcm
1568       b(92)=16*ccc*(-hbcm2+p1p3+p2p3-p3p4-p3p5)
1569       do 200 n=1,94
1570          c(n,2)=c(n,2)+0.09245003270420485d0*b(n)
1571          c(n,3)=c(n,3)-0.02077659977796572d0*b(n)
1572 200   continue
1573       return
1574       end
1575
1576       subroutine amp13_3p2(cc)
1577       implicit double precision(a-h,o-z)
1578       implicit integer (i-n)
1579       dimension b(93)
1580 #include "inclcon.h"
1581 #include "inclppp.h"
1582 #include "inclamp.h"
1583       do 100 n=1,93
1584          b(n)=0.0d0
1585 100   continue
1586       ccc=cc/((-2*p2p5)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2)*(-fmb2
1587      . +fmc2+hbcm2+2*p3p4))
1588       b(8)=w1*ccc*(8*p4p6*(fmb*hbcm-fmc*hbcm)+8*p3p6*(fmb*hbcm-fmc*
1589      . hbcm))
1590       b(10)=w1*ccc*(16*p4p6*(hbcm*p3p8-hbcm*p4p8)+16*p3p6*(hbcm*p1p8-
1591      . hbcm*p4p8)+8*(-fmb2*hbcm*p6p8+fmc2*hbcm*p6p8+2*hbcm*p1p3*p6p8+
1592      . 2*hbcm*p2p3*p6p8-2*hbcm*p3p5*p6p8-hbcm3*p6p8))
1593       b(15)=4*ccc*w1*(fmb2*hbcm-fmc2*hbcm+2*hbcm*p1p3-2*hbcm*p3p4-
1594      . hbcm3)
1595       b(21)=8*ccc*w1*(-hbcm*p3p8+hbcm*p4p8)
1596       b(23)=-8*ccc*hbcm*p3p6*w1
1597       b(24)=4*ccc*hbcm*w1
1598       b(25)=4*ccc*w1*(fmb*hbcm-fmc*hbcm)
1599       b(30)=w1*ccc*(16*p4p6*(-fmb*hbcm*p7p8+fmc*hbcm*p7p8)+16*p3p6*(-
1600      . fmb*hbcm*p7p8+fmc*hbcm*p7p8))
1601       b(31)=8*ccc*w1*(-hbcm*p3p6-hbcm*p4p6)
1602       b(33)=16*ccc*w1*(-hbcm*p3p7*p6p8-hbcm*p4p7*p6p8-hbcm*p5p7*p6p8)
1603       b(66)=16*ccc*hbcm*p3p7*p6p8*w1
1604       b(75)=8*ccc*w1*(-hbcm*p1p8+hbcm*p3p8)
1605       b(76)=8*ccc*w1*(-fmb*hbcm*p1p8+fmb*hbcm*p3p8+fmc*hbcm*p1p8-fmc*
1606      . hbcm*p3p8)
1607       b(77)=8*ccc*w1*(-fmb*hbcm*p6p8+fmc*hbcm*p6p8)
1608       b(78)=-8*ccc*hbcm*p6p8*w1
1609       do 200 n=1,93
1610          c(n,2)=c(n,2)-0.7396002616336388d0*b(n)
1611          c(n,3)=c(n,3)+0.1662127982237257d0*b(n)
1612 200   continue
1613       return
1614       end
1615
1616       subroutine amp11_3p2(cc)
1617       implicit double precision(a-h,o-z)
1618       implicit integer (i-n)
1619       dimension b(93)
1620 #include "inclcon.h"
1621 #include "inclppp.h"
1622 #include "inclamp.h"
1623       do 100 n=1,93
1624          b(n)=0.0d0
1625 100   continue
1626       ccc=cc/((-2*p1p5)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2)*(
1627      . ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2+2*ffmcfmb*p2p3-fmb2+hbcm2-2*
1628      . p2p3))
1629       b(1)=16*ccc*w1*(-2*p1p5*p6p7-p3p7*p5p6-2*p5p6*p5p7)
1630       b(3)=ccc*(16*w1*(-p1p2*p7p8+p1p3*p7p8+p1p4*p7p8+p1p8*p3p7+2*
1631      . p1p8*p4p7)+16*w8*(p1p11*p3p7+2*p1p11*p4p7-p1p2*p7p11+p1p3*
1632      . p7p11+p1p4*p7p11)+8*(p1p12-p7p10))
1633       b(4)=16*ccc*w1*(p1p2*p3p7+2*p1p3*p5p7-p1p4*p3p7)
1634       b(6)=ccc*(w1*(16*p1p3*(ffmcfmb*hbcm*p7p8-fmc*p7p8-hbcm*p7p8)+16
1635      . *(fmc*p1p8*p3p7+hbcm*p1p2*p7p8-hbcm*p1p4*p7p8+hbcm*p1p8*p5p7))
1636      . +w8*(16*p1p3*(ffmcfmb*hbcm*p7p11-fmc*p7p11-hbcm*p7p11)+16*(fmc
1637      . *p1p11*p3p7+hbcm*p1p11*p5p7+hbcm*p1p2*p7p11-hbcm*p1p4*p7p11))-
1638      . 8*hbcm*p7p10)
1639       b(7)=ccc*(w1*(16*p5p6*(-p2p8+2*p3p8+2*p4p8)-32*p1p5*p6p8)+w8*(
1640      . 16*p5p6*(-p2p11+2*p3p11+2*p4p11)-32*p1p5*p6p11))
1641       b(8)=w1*ccc*(8*p5p6*(fmb*hbcm-fmc*hbcm-2*hbcm2)+16*(2*p1p5*p3p6
1642      . +p2p3*p5p6-2*p3p4*p5p6))
1643       b(10)=ccc*(w1*(16*p5p6*(ffmcfmb*hbcm*p3p8-fmb*p3p8-2*fmc*p3p8+
1644      . hbcm*p1p8+hbcm*p2p8-hbcm*p3p8-hbcm*p4p8)+16*p3p6*(-ffmcfmb*
1645      . hbcm*p1p8+fmb*p1p8+2*fmc*p1p8+hbcm*p1p8)+16*(hbcm*p1p5*p6p8+
1646      . hbcm*p1p8*p4p6))+w8*(16*p5p6*(hbcm*p1p11+hbcm*p2p11-hbcm*p3p11
1647      . -hbcm*p4p11)+16*p3p6*(-ffmcfmb*hbcm*p1p11+fmb*p1p11+2*fmc*
1648      . p1p11+hbcm*p1p11)+16*(hbcm*p1p11*p4p6+hbcm*p1p5*p6p11)))
1649       b(11)=16*ccc*w1*(-fmc*p3p7*p5p6-hbcm*p1p5*p6p7-hbcm*p5p6*p5p7)
1650       b(13)=16*ccc*w1*(p1p2-p1p3-p1p4)
1651       b(15)=w1*ccc*(8*p1p3*(-ffmcfmb*hbcm+fmb+2*fmc+hbcm)+8*(-hbcm*
1652      . p1p2+hbcm*p1p4))
1653       b(21)=ccc*(8*w8*(hbcm*p2p11-hbcm*p3p11-hbcm*p4p11)+8*w1*(
1654      . ffmcfmb*hbcm*p3p8-fmb*p3p8-2*fmc*p3p8+hbcm*p2p8-hbcm*p3p8-hbcm
1655      . *p4p8))
1656       b(23)=w1*ccc*(8*p3p6*(ffmcfmb*hbcm-fmb-2*fmc-hbcm)+8*(-hbcm*
1657      . p4p6-hbcm*p5p6))
1658       b(24)=4*ccc*w1*(-ffmcfmb*hbcm+fmb+2*fmc)
1659       b(25)=4*ccc*w1*(-fmb*hbcm+fmc*hbcm+2*hbcm2-2*p2p3+4*p3p4)
1660       b(26)=8*ccc*w1*(-fmc*p3p7-hbcm*p5p7)
1661       b(30)=ccc*(w1*(32*(p5p6*p3p7)*(2*p2p8-2*p3p8-2*p4p8-p5p8)+16*
1662      . p6p7*(-fmb*hbcm*p1p8+fmc*hbcm*p1p8-2*hbcm2*p1p8)+16*p5p6*(-
1663      . ffmcfmb*hbcm2*p7p8-fmb*hbcm*p7p8+2*hbcm2*p7p8)+32*(2*p1p3*p1p8
1664      . *p6p7-p1p5*p3p6*p7p8+p1p5*p3p7*p6p8+p1p8*p2p3*p6p7-2*p1p8*p3p5
1665      . *p6p7-2*p1p8*p3p6*p3p7-2*p1p8*p3p6*p4p7-p1p8*p3p7*p4p6-p2p3*
1666      . p5p6*p7p8+p3p4*p5p6*p7p8))+w8*(32*(p5p6*p3p7)*(2*p2p11-2*p3p11
1667      . -2*p4p11-p5p11)+16*p6p7*(-fmb*hbcm*p1p11+fmc*hbcm*p1p11-2*
1668      . hbcm2*p1p11)+16*p5p6*(-ffmcfmb*hbcm2*p7p11-fmc*hbcm*p7p11)+32*
1669      . (2*p1p11*p1p3*p6p7+p1p11*p2p3*p6p7-2*p1p11*p3p5*p6p7-2*p1p11*
1670      . p3p6*p3p7-2*p1p11*p3p6*p4p7-p1p11*p3p7*p4p6+p1p5*p3p6*p7p11+
1671      . p1p5*p3p7*p6p11-p3p4*p5p6*p7p11))-16*p3p12*p5p6)
1672       b(31)=8*ccc*w1*p5p6*(-ffmcfmb*hbcm+fmb+2*fmc)
1673       b(33)=ccc*(16*w1*p5p6*(-ffmcfmb*hbcm*p7p8+fmc*p7p8)+16*w8*p5p6*
1674      . (-ffmcfmb*hbcm*p7p11+fmc*p7p11))
1675       b(35)=ccc*(8*w1*(-ffmcfmb*hbcm*p7p8+fmc*p7p8)+8*w8*(-ffmcfmb*
1676      . hbcm*p7p11+fmc*p7p11))
1677       b(38)=ccc*(w1*(16*p3p7*(p1p8+p2p8-p5p8)+8*(-ffmcfmb*hbcm2*p7p8-
1678      . fmc*hbcm*p7p8-2*p3p4*p7p8))+w8*(16*p3p7*(p1p11+p2p11-p5p11)+8*
1679      . (-ffmcfmb*hbcm2*p7p11-fmc*hbcm*p7p11-2*p3p4*p7p11))-8*p3p12)
1680       b(39)=w8*ccc*(8*p6p7*(fmb*hbcm-fmc*hbcm+2*hbcm2)+16*(-2*p1p3*
1681      . p6p7-p2p3*p6p7+2*p3p5*p6p7+2*p3p6*p3p7+2*p3p6*p4p7+p3p7*p4p6+
1682      . p3p7*p5p6))
1683       b(40)=16*ccc*w8*(-fmc*p3p7*p5p6-hbcm*p1p5*p6p7-hbcm*p5p6*p5p7)
1684       b(41)=16*ccc*w8*(-2*p1p5*p6p7-p3p7*p5p6-2*p5p6*p5p7)
1685       b(43)=ccc*(w1*(16*p6p7*(-2*p1p8-p2p8+2*p5p8)+16*(p3p6*p7p8+p3p7
1686      . *p6p8+p4p6*p7p8+2*p4p7*p6p8+p5p6*p7p8))+w8*(16*p6p7*(-2*p1p11-
1687      . p2p11+2*p5p11)+16*(p3p6*p7p11+p3p7*p6p11+p4p6*p7p11+2*p4p7*
1688      . p6p11+p5p6*p7p11))+8*(p6p12-p7p13))
1689       b(44)=w8*ccc*(8*p5p6*(-fmb*hbcm+fmc*hbcm+2*hbcm2)+16*(-2*p1p5*
1690      . p3p6-p2p3*p5p6+2*p3p4*p5p6))
1691       b(45)=16*ccc*w8*(p3p6+p4p6+p5p6)
1692       b(46)=8*ccc*w8*p5p6*(ffmcfmb*hbcm-fmb-2*fmc)
1693       b(49)=8*ccc*w8*(-fmc*p3p7-hbcm*p5p7)
1694       b(50)=8*ccc*w8*(-p3p7-2*p5p7)
1695       b(51)=16*ccc*w8*(p1p2*p3p7+2*p1p3*p5p7-p1p4*p3p7)
1696       b(53)=ccc*(8*w1*(p2p8-2*p3p8-2*p4p8)+8*w8*(p2p11-2*p3p11-2*
1697      . p4p11))
1698       b(54)=4*ccc*w8*(-fmb*hbcm+fmc*hbcm+2*hbcm2-2*p2p3+4*p3p4)
1699       b(55)=4*ccc*w8*(ffmcfmb*hbcm-fmb-2*fmc)
1700       b(56)=16*ccc*w8*(p1p2-p1p3-p1p4)
1701       b(58)=w8*ccc*(8*p3p6*(ffmcfmb*hbcm-fmb-2*fmc-hbcm)+8*(-hbcm*
1702      . p4p6-hbcm*p5p6))
1703       b(59)=w8*ccc*(8*p1p3*(-ffmcfmb*hbcm+fmb+2*fmc+hbcm)+8*(-hbcm*
1704      . p1p2+hbcm*p1p4))
1705       b(61)=4*ccc*hbcm
1706       b(62)=8*ccc*hbcm*p5p6
1707       b(65)=w1*ccc*(8*p6p7*(fmb*hbcm-fmc*hbcm+2*hbcm2)+16*(-2*p1p3*
1708      . p6p7-p2p3*p6p7+2*p3p5*p6p7+2*p3p6*p3p7+2*p3p6*p4p7+p3p7*p4p6+
1709      . p3p7*p5p6))
1710       b(66)=ccc*(w1*(16*p6p7*(-hbcm*p1p8+hbcm*p5p8)+16*p3p7*(-ffmcfmb
1711      . *hbcm*p6p8+fmb*p6p8+fmc*p6p8+hbcm*p6p8)+16*p3p6*(-ffmcfmb*hbcm
1712      . *p7p8+fmc*p7p8+hbcm*p7p8)+16*(hbcm*p4p6*p7p8+hbcm*p4p7*p6p8+
1713      . hbcm*p5p6*p7p8))+w8*(16*p6p7*(-hbcm*p1p11+hbcm*p5p11)+16*p3p7*
1714      . (-ffmcfmb*hbcm*p6p11+fmb*p6p11+fmc*p6p11+hbcm*p6p11)+16*p3p6*(
1715      . -ffmcfmb*hbcm*p7p11+fmc*p7p11+hbcm*p7p11)+16*(hbcm*p4p6*p7p11+
1716      . hbcm*p4p7*p6p11+hbcm*p5p6*p7p11))+8*hbcm*p6p12)
1717       b(68)=16*ccc*w1*(p3p6+p4p6+p5p6)
1718       b(71)=8*ccc*w1*(-p3p7-2*p5p7)
1719       b(73)=8*ccc*w8*p6p7*(ffmcfmb*hbcm-fmb-2*fmc)
1720       b(74)=8*ccc*w1*p6p7*(ffmcfmb*hbcm-fmb-2*fmc)
1721       b(75)=ccc*(8*w1*(ffmcfmb*hbcm*p1p8-fmb*p1p8-2*fmc*p1p8)+8*w8*(
1722      . ffmcfmb*hbcm*p1p11-fmb*p1p11-2*fmc*p1p11))
1723       b(76)=ccc*(w1*(16*p1p3*(-2*p1p8-p2p8+2*p3p8+2*p4p8)+8*(fmb*hbcm
1724      . *p1p8-fmc*hbcm*p1p8+2*hbcm2*p1p8-2*p1p8*p2p3+4*p1p8*p3p5))+w8*
1725      . (16*p1p3*(-2*p1p11-p2p11+2*p3p11+2*p4p11)+8*(fmb*hbcm*p1p11-
1726      . fmc*hbcm*p1p11+2*hbcm2*p1p11-2*p1p11*p2p3+4*p1p11*p3p5)))
1727       b(77)=ccc*(w1*(16*p3p6*(2*p1p8+p2p8-2*p5p8)+8*(fmb*hbcm*p6p8-
1728      . fmc*hbcm*p6p8+2*hbcm2*p6p8-4*p1p3*p6p8-2*p2p3*p6p8+4*p3p5*p6p8
1729      . ))+w8*(16*p3p6*(2*p1p11+p2p11-2*p5p11)+8*(fmb*hbcm*p6p11-fmc*
1730      . hbcm*p6p11+2*hbcm2*p6p11-4*p1p3*p6p11-2*p2p3*p6p11+4*p3p5*
1731      . p6p11)))
1732       b(78)=ccc*(8*w1*(ffmcfmb*hbcm*p6p8-fmb*p6p8-2*fmc*p6p8)+8*w8*(
1733      . ffmcfmb*hbcm*p6p11-fmb*p6p11-2*fmc*p6p11))
1734       do 200 n=1,93
1735          c(n,1)=c(n,1)+0.09090909090909091d0*b(n)
1736          c(n,2)=c(n,2)-0.01680909685530997d0*b(n)
1737          c(n,3)=c(n,3)-0.02077659977796572d0*b(n)
1738 200   continue
1739       return
1740       end
1741
1742       subroutine amp12_3p2(cc)
1743       implicit double precision(a-h,o-z)
1744       implicit integer (i-n)
1745       dimension b(93)
1746 #include "inclcon.h"
1747 #include "inclppp.h"
1748 #include "inclamp.h"
1749       do 100 n=1,93
1750          b(n)=0.0d0
1751 100   continue
1752       ccc=cc/((-2*p1p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2+2*ffmcfmb*
1753      . p1p3-2*ffmcfmb*p3p5+fmb2+hbcm2-2*p1p3-2*p1p5+2*p3p5)*(ffmcfmb
1754      . **2*hbcm2-2*ffmcfmb*p2p3-fmc2))
1755       b(2)=16*ccc*w15*(2*p1p5*p6p7+p3p7*p5p6+2*p5p6*p5p7)
1756       b(3)=ccc*(16*w7*(-p1p11*p3p7-2*p1p11*p4p7+p1p2*p7p11-p1p3*p7p11
1757      . -p1p4*p7p11)+w15*(16*p1p4*(p7p10-p7p9)+16*p1p3*(p7p10-p7p9)+16
1758      . *p1p2*(-p7p10+p7p9)+32*p4p7*(p1p10-p1p9)+16*p3p7*(p1p10-p1p9))
1759      . +8*(-p1p12+p7p10))
1760       b(5)=16*ccc*w15*(-p1p2*p3p7-2*p1p3*p5p7+p1p4*p3p7)
1761       b(6)=ccc*(w7*(16*p1p3*(fmb*p7p11+fmc*p7p11)+16*p3p7*(-ffmcfmb*
1762      . hbcm*p1p11-fmb*p1p11-fmc*p1p11)-16*hbcm*p1p11*p5p7)+w15*(16*
1763      . p5p7*(hbcm*p1p10-hbcm*p1p9)+16*p1p3*(-fmb*p7p10+fmb*p7p9-fmc*
1764      . p7p10+fmc*p7p9)+16*p3p7*(ffmcfmb*hbcm*p1p10-ffmcfmb*hbcm*p1p9+
1765      . fmb*p1p10-fmb*p1p9+fmc*p1p10-fmc*p1p9))-8*hbcm*p1p12)
1766       b(7)=ccc*(w7*(16*p5p6*(p2p11-2*p3p11-2*p4p11)+32*p1p5*p6p11)+
1767      . w15*(16*p5p6*(-p2p10+p2p9+2*p3p10-2*p3p9+2*p4p10-2*p4p9)+32*
1768      . p1p5*(-p6p10+p6p9)))
1769       b(9)=w15*ccc*(8*p5p6*(-fmb*hbcm+fmc*hbcm+2*hbcm2)+16*(-2*p1p5*
1770      . p3p6-p2p3*p5p6+2*p3p4*p5p6))
1771       b(10)=ccc*(w7*(16*p5p6*(-hbcm*p1p11+hbcm*p3p11+hbcm*p4p11)+16*
1772      . p3p6*(-ffmcfmb*hbcm*p1p11-2*fmb*p1p11-fmc*p1p11)+16*(-hbcm*
1773      . p1p11*p4p6-hbcm*p1p5*p6p11))+w15*(16*p1p5*(hbcm*p6p10-hbcm*
1774      . p6p9)+16*p4p6*(hbcm*p1p10-hbcm*p1p9)+16*p5p6*(-ffmcfmb*hbcm*
1775      . p3p10-2*fmb*p3p10-fmc*p3p10+hbcm*p1p10-hbcm*p1p9+hbcm*p3p9-
1776      . hbcm*p4p10+hbcm*p4p9)+16*p3p6*(ffmcfmb*hbcm*p1p10-ffmcfmb*hbcm
1777      . *p1p9+2*fmb*p1p10-2*fmb*p1p9+fmc*p1p10-fmc*p1p9)))
1778       b(12)=w15*ccc*(16*(p5p6*p3p7)*(ffmcfmb*hbcm+fmb+fmc)+16*(p6p7*
1779      . p1p3)*(-ffmcfmb*hbcm-2*fmb-fmc+hbcm)+16*(hbcm*p1p5*p6p7+hbcm*
1780      . p5p6*p5p7))
1781       b(14)=16*ccc*w15*(-p1p2+p1p3+p1p4)
1782       b(16)=w15*ccc*(8*p1p3*(-ffmcfmb*hbcm-2*fmb-fmc)+8*(hbcm*p1p2-
1783      . hbcm*p1p4))
1784       b(17)=w15*ccc*(8*p3p6*(-ffmcfmb*hbcm-2*fmb-fmc)+8*(-hbcm*p4p6-
1785      . hbcm*p5p6))
1786       b(18)=4*ccc*w15*(ffmcfmb*hbcm+2*fmb+fmc-hbcm)
1787       b(19)=4*ccc*w15*(-fmb*hbcm+fmc*hbcm+2*hbcm2-2*p2p3+4*p3p4)
1788       b(20)=w15*ccc*(8*p3p7*(-ffmcfmb*hbcm-fmb-fmc)-8*hbcm*p5p7)
1789       b(21)=ccc*(8*w7*(hbcm*p3p11+hbcm*p4p11)+8*w15*(-ffmcfmb*hbcm*
1790      . p3p10-2*fmb*p3p10-fmc*p3p10+hbcm*p3p9-hbcm*p4p10+hbcm*p4p9))
1791       b(22)=w15*ccc*(8*p1p3*(ffmcfmb*hbcm+2*fmb+fmc)+8*(-hbcm*p1p2+
1792      . hbcm*p1p4))
1793       b(27)=8*ccc*w15*p5p6*(ffmcfmb*hbcm+2*fmb+fmc-hbcm)
1794       b(28)=w15*ccc*(8*p5p6*(-fmb*hbcm+fmc*hbcm+2*hbcm2)+16*(-2*p1p5*
1795      . p3p6-p2p3*p5p6+2*p3p4*p5p6))
1796       b(29)=w15*ccc*(16*(p5p6*p3p7)*(-ffmcfmb*hbcm-fmb-fmc)+16*(-hbcm
1797      . *p1p5*p6p7-hbcm*p5p6*p5p7))
1798       ans=ccc*(w7*(32*(p5p6*p3p7)*(-2*p2p11+2*p3p11+2*p4p11+p5p11)+16
1799      . *p6p7*(fmb*hbcm*p1p11-fmc*hbcm*p1p11+2*hbcm2*p1p11)+16*p5p6*(-
1800      . ffmcfmb*hbcm2*p7p11+fmc*hbcm*p7p11+hbcm2*p7p11)+32*(-2*p1p11*
1801      . p1p3*p6p7-p1p11*p2p3*p6p7+2*p1p11*p3p5*p6p7+2*p1p11*p3p6*p3p7+
1802      . 2*p1p11*p3p6*p4p7+p1p11*p3p7*p4p6-p1p5*p3p6*p7p11-p1p5*p3p7*
1803      . p6p11+p3p4*p5p6*p7p11))+w15*(32*(p5p6*p3p4)*(-p7p10-p7p9)+32*(
1804      . p5p6*p3p7)*(2*p2p10-2*p2p9-2*p3p10+2*p3p9-2*p4p10+2*p4p9-p5p10
1805      . +p5p9)+32*(p3p7*p1p5)*(p6p10-p6p9)+32*(p3p6*p1p5)*(p7p10+p7p9)
1806      . +32*(p4p6*p3p7)*(-p1p10+p1p9)+64*(p4p7*p3p6)*(-p1p10+p1p9)+64*
1807      . (p3p7*p3p6)*(-p1p10+p1p9)+64*(p6p7*p3p5)*(-p1p10+p1p9)+32*(
1808      . p6p7*p2p3)*(p1p10-p1p9)+64*(p6p7*p1p3)*(p1p10-p1p9)+16*p6p7*(-
1809      . fmb*hbcm*p1p10+fmb*hbcm*p1p9+fmc*hbcm*p1p10-fmc*hbcm*p1p9-2*
1810      . hbcm2*p1p10+2*hbcm2*p1p9)+16*p5p6*(ffmcfmb*hbcm2*p7p10-ffmcfmb
1811      . *hbcm2*p7p9+fmb*hbcm*p7p9-fmc*hbcm*p7p10-hbcm2*p7p10-hbcm2*
1812      . p7p9)+32*p2p3*p5p6*p7p9)+16*p3p12*p5p6)
1813       b(30)=ans
1814       b(32)=8*ccc*w15*p5p6*(ffmcfmb*hbcm+2*fmb+fmc-hbcm)
1815       b(33)=ccc*(16*w7*p5p6*(-fmb*p7p11-fmc*p7p11)+w15*(16*p5p6*(fmb*
1816      . p7p10-fmb*p7p9+fmc*p7p10-fmc*p7p9)+16*p6p7*(ffmcfmb*hbcm*p1p9+
1817      . 2*fmb*p1p9+fmc*p1p9-hbcm*p1p9)))
1818       b(34)=4*ccc*w15*(ffmcfmb*hbcm+2*fmb+fmc-hbcm)
1819       b(35)=ccc*(8*w7*(-fmb*p7p11-fmc*p7p11)+8*w15*(fmb*p7p10-fmb*
1820      . p7p9+fmc*p7p10-fmc*p7p9))
1821       b(36)=4*ccc*w15*(fmb*hbcm-fmc*hbcm-2*hbcm2+2*p2p3-4*p3p4)
1822       b(37)=w15*ccc*(8*p3p7*(ffmcfmb*hbcm+fmb+fmc)+8*hbcm*p5p7)
1823       b(38)=ccc*(w7*(16*p3p7*(-p1p11-p2p11+p5p11)+8*(-ffmcfmb*hbcm2*
1824      . p7p11+fmc*hbcm*p7p11+hbcm2*p7p11+2*p3p4*p7p11))+w15*(16*p3p4*(
1825      . -p7p10+p7p9)+16*p3p7*(p1p10-p1p9+p2p10-p2p9-p5p10+p5p9)+8*(
1826      . ffmcfmb*hbcm2*p7p10-ffmcfmb*hbcm2*p7p9-fmc*hbcm*p7p10+fmc*hbcm
1827      . *p7p9-hbcm2*p7p10+hbcm2*p7p9))+8*p3p12)
1828       b(39)=w7*ccc*(8*p6p7*(-fmb*hbcm+fmc*hbcm-2*hbcm2)+16*(2*p1p3*
1829      . p6p7+p2p3*p6p7-2*p3p5*p6p7-2*p3p6*p3p7-2*p3p6*p4p7-p3p7*p4p6-
1830      . p3p7*p5p6))
1831       b(40)=w7*ccc*(16*(p5p6*p3p7)*(ffmcfmb*hbcm+fmb+fmc)+16*(hbcm*
1832      . p1p5*p6p7+hbcm*p5p6*p5p7))
1833       b(41)=16*ccc*w7*(2*p1p5*p6p7+p3p7*p5p6+2*p5p6*p5p7)
1834       b(42)=w15*ccc*(8*p6p7*(-fmb*hbcm+fmc*hbcm-2*hbcm2)+16*(2*p1p3*
1835      . p6p7+p2p3*p6p7-2*p3p5*p6p7-2*p3p6*p3p7-2*p3p6*p4p7-p3p7*p4p6-
1836      . p3p7*p5p6))
1837       b(43)=ccc*(w7*(16*p6p7*(2*p1p11+p2p11-2*p5p11)+16*(-p3p6*p7p11-
1838      . p3p7*p6p11-p4p6*p7p11-2*p4p7*p6p11-p5p6*p7p11))+w15*(16*p5p6*(
1839      . p7p10-p7p9)+32*p4p7*(p6p10-p6p9)+16*p4p6*(p7p10-p7p9)+16*p3p7*
1840      . (p6p10-p6p9)+16*p3p6*(p7p10-p7p9)+16*p6p7*(-2*p1p10+2*p1p9-
1841      . p2p10+p2p9+2*p5p10-2*p5p9))+8*(-p6p12+p7p13))
1842       b(44)=w7*ccc*(8*p5p6*(fmb*hbcm-fmc*hbcm-2*hbcm2)+16*(2*p1p5*
1843      . p3p6+p2p3*p5p6-2*p3p4*p5p6))
1844       b(45)=16*ccc*w7*(-p3p6-p4p6-p5p6)
1845       b(46)=8*ccc*w7*p5p6*(ffmcfmb*hbcm+2*fmb+fmc-hbcm)
1846       b(47)=16*ccc*w15*(-p3p6-p4p6-p5p6)
1847       b(49)=w7*ccc*(8*p3p7*(ffmcfmb*hbcm+fmb+fmc)+8*hbcm*p5p7)
1848       b(50)=8*ccc*w7*(p3p7+2*p5p7)
1849       b(51)=16*ccc*w7*(-p1p2*p3p7-2*p1p3*p5p7+p1p4*p3p7)
1850       b(52)=8*ccc*w15*(p3p7+2*p5p7)
1851       b(53)=ccc*(8*w7*(-p2p11+2*p3p11+2*p4p11)+8*w15*(p2p10-p2p9-2*
1852      . p3p10+2*p3p9-2*p4p10+2*p4p9))
1853       b(54)=4*ccc*w7*(fmb*hbcm-fmc*hbcm-2*hbcm2+2*p2p3-4*p3p4)
1854       b(55)=4*ccc*w7*(ffmcfmb*hbcm+2*fmb+fmc-hbcm)
1855       b(56)=16*ccc*w7*(-p1p2+p1p3+p1p4)
1856       b(58)=w7*ccc*(8*p3p6*(ffmcfmb*hbcm+2*fmb+fmc)+8*(hbcm*p4p6+hbcm
1857      . *p5p6))
1858       b(59)=w7*ccc*(8*p1p3*(-ffmcfmb*hbcm-2*fmb-fmc)+8*(hbcm*p1p2-
1859      . hbcm*p1p4))
1860       b(60)=w15*ccc*(8*p3p6*(ffmcfmb*hbcm+2*fmb+fmc)+8*(hbcm*p4p6+
1861      . hbcm*p5p6))
1862       b(61)=4*ccc*hbcm
1863       b(62)=8*ccc*hbcm*p5p6
1864       b(63)=w15*ccc*(8*p6p7*(fmb*hbcm-fmc*hbcm+2*hbcm2)+16*(-2*p1p3*
1865      . p6p7-p2p3*p6p7+2*p3p5*p6p7+2*p3p6*p3p7+2*p3p6*p4p7+p3p7*p4p6+
1866      . p3p7*p5p6))
1867       b(64)=16*ccc*w15*(-2*p1p5*p6p7-p3p7*p5p6-2*p5p6*p5p7)
1868       b(66)=ccc*(w7*(16*p6p7*(hbcm*p1p11+hbcm*p2p11-hbcm*p5p11)+16*
1869      . p3p6*(-fmb*p7p11-fmc*p7p11)+16*(-fmb*p3p7*p6p11-hbcm*p4p7*
1870      . p6p11))+w15*(16*p4p7*(hbcm*p6p10-hbcm*p6p9)+16*p6p7*(-hbcm*
1871      . p1p10+hbcm*p1p9-hbcm*p2p10+hbcm*p2p9+hbcm*p5p10-hbcm*p5p9)+16*
1872      . p3p7*(fmb*p6p10-fmb*p6p9)+16*p3p6*(fmb*p7p10-fmb*p7p9+fmc*
1873      . p7p10-fmc*p7p9))+8*hbcm*p7p13)
1874       b(67)=16*ccc*w15*(p3p6+p4p6+p5p6)
1875       b(69)=8*ccc*w15*(-p3p7-2*p5p7)
1876       b(70)=16*ccc*w15*(p1p2*p3p7+2*p1p3*p5p7-p1p4*p3p7)
1877       b(72)=16*ccc*w15*(p1p2-p1p3-p1p4)
1878       b(73)=8*ccc*w7*p6p7*(ffmcfmb*hbcm+2*fmb+fmc-hbcm)
1879       b(75)=ccc*(8*w7*(ffmcfmb*hbcm*p1p11+2*fmb*p1p11+fmc*p1p11-hbcm*
1880      . p1p11)+8*w15*(-ffmcfmb*hbcm*p1p10+ffmcfmb*hbcm*p1p9-2*fmb*
1881      . p1p10+2*fmb*p1p9-fmc*p1p10+fmc*p1p9+hbcm*p1p10-hbcm*p1p9))
1882       b(76)=ccc*(w7*(16*p1p3*(2*p1p11+p2p11-2*p3p11-2*p4p11)+8*(-fmb*
1883      . hbcm*p1p11+fmc*hbcm*p1p11-2*hbcm2*p1p11+2*p1p11*p2p3-4*p1p11*
1884      . p3p5))+w15*(32*p3p5*(p1p10-p1p9)+16*p2p3*(-p1p10+p1p9)+16*p1p3
1885      . *(-2*p1p10+2*p1p9-p2p10+p2p9+2*p3p10-2*p3p9+2*p4p10-2*p4p9)+8*
1886      . (fmb*hbcm*p1p10-fmb*hbcm*p1p9-fmc*hbcm*p1p10+fmc*hbcm*p1p9+2*
1887      . hbcm2*p1p10-2*hbcm2*p1p9)))
1888       b(77)=ccc*(w7*(16*p3p6*(-2*p1p11-p2p11+2*p5p11)+8*(-fmb*hbcm*
1889      . p6p11+fmc*hbcm*p6p11-2*hbcm2*p6p11+4*p1p3*p6p11+2*p2p3*p6p11-4
1890      . *p3p5*p6p11))+w15*(32*p3p5*(p6p10-p6p9)+16*p2p3*(-p6p10+p6p9)+
1891      . 32*p1p3*(-p6p10+p6p9)+16*p3p6*(2*p1p10-2*p1p9+p2p10-p2p9-2*
1892      . p5p10+2*p5p9)+8*(fmb*hbcm*p6p10-fmb*hbcm*p6p9-fmc*hbcm*p6p10+
1893      . fmc*hbcm*p6p9+2*hbcm2*p6p10-2*hbcm2*p6p9)))
1894       b(78)=ccc*(8*w7*(ffmcfmb*hbcm*p6p11+2*fmb*p6p11+fmc*p6p11-hbcm*
1895      . p6p11)+8*w15*(-ffmcfmb*hbcm*p6p10+ffmcfmb*hbcm*p6p9-2*fmb*
1896      . p6p10+2*fmb*p6p9-fmc*p6p10+fmc*p6p9+hbcm*p6p10-hbcm*p6p9))
1897       b(79)=8*ccc*w15*p6p7*(ffmcfmb*hbcm+2*fmb+fmc-hbcm)
1898       b(81)=8*ccc*w15*p6p7*(-ffmcfmb*hbcm-2*fmb-fmc+hbcm)
1899       do 200 n=1,93
1900          c(n,1)=c(n,1)+0.09090909090909091d0*b(n)
1901          c(n,2)=c(n,2)-0.01680909685530997d0*b(n)
1902          c(n,3)=c(n,3)-0.02077659977796572d0*b(n)
1903 200   continue
1904       return
1905       end
1906
1907       subroutine amp19_3p2(cc)
1908       implicit double precision(a-h,o-z)
1909       implicit integer (i-n)
1910       dimension b(94)
1911 #include "inclcon.h"
1912 #include "inclppp.h"
1913 #include "inclamp.h"
1914       do 100 n=1,94
1915          b(n)=0.0d0
1916 100   continue
1917       ccc=cc/((ffmcfmb**2*hbcm2-2*ffmcfmb*p2p3+2*ffmcfmb*p3p4+fmc2-2*
1918      . p2p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p2p3-fmc2)*(ffmcfmb**2*hbcm2
1919      . -2*ffmcfmb*hbcm2+2*ffmcfmb*p1p3-fmb2+hbcm2-2*p1p3))
1920       b(1)=w11*ccc*((p5p7*p3p6)*(-32*ffmcfmb+32)+(p3p7*p3p6)*(-16*
1921      . ffmcfmb+16)+8*p6p7*(-ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm-ffmcfmb
1922      . *fmc*hbcm+2*ffmcfmb*hbcm2-fmb*fmc-fmb*hbcm+2*fmb2+fmc*hbcm-
1923      . hbcm2)+16*(p1p2*p6p7-p1p3*p6p7-3*p1p5*p6p7))
1924       ans=ccc*(w7*(16*p3p7*(-ffmcfmb*p1p11-p1p11)+8*(ffmcfmb**2*hbcm2
1925      . *p7p11-ffmcfmb*fmb*hbcm*p7p11+ffmcfmb*fmc*hbcm*p7p11-2*ffmcfmb
1926      . *hbcm2*p7p11+fmb*fmc*p7p11+fmb*hbcm*p7p11-2*fmb2*p7p11-fmc*
1927      . hbcm*p7p11+hbcm2*p7p11-6*p1p11*p4p7+4*p1p2*p7p11-4*p1p3*p7p11-
1928      . 6*p1p4*p7p11))+w11*(48*p1p4*(-p7p11+p7p8)+32*p1p3*(-p7p11+p7p8
1929      . )+32*p1p2*(p7p11-p7p8)+48*p4p7*(-p1p11+p1p8)+16*p3p7*(-ffmcfmb
1930      . *p1p11+ffmcfmb*p1p8-p1p11+p1p8)+8*(ffmcfmb**2*hbcm2*p7p11-
1931      . ffmcfmb**2*hbcm2*p7p8-ffmcfmb*fmb*hbcm*p7p11+ffmcfmb*fmb*hbcm*
1932      . p7p8+ffmcfmb*fmc*hbcm*p7p11-ffmcfmb*fmc*hbcm*p7p8-2*ffmcfmb*
1933      . hbcm2*p7p11+2*ffmcfmb*hbcm2*p7p8+fmb*fmc*p7p11-fmb*fmc*p7p8+
1934      . fmb*hbcm*p7p11-fmb*hbcm*p7p8-2*fmb2*p7p11+2*fmb2*p7p8-fmc*hbcm
1935      . *p7p11+fmc*hbcm*p7p8+hbcm2*p7p11-hbcm2*p7p8))+w13*(16*p3p7*(
1936      . ffmcfmb*p1p10+p1p10)+8*(-ffmcfmb**2*hbcm2*p7p10+ffmcfmb*fmb*
1937      . hbcm*p7p10-ffmcfmb*fmc*hbcm*p7p10+2*ffmcfmb*hbcm2*p7p10-fmb*
1938      . fmc*p7p10-fmb*hbcm*p7p10+2*fmb2*p7p10+fmc*hbcm*p7p10-hbcm2*
1939      . p7p10+6*p1p10*p4p7-4*p1p2*p7p10+4*p1p3*p7p10+6*p1p4*p7p10))+8*
1940      . (-3*p1p12+p3p12+p4p12+p5p12+p7p10-p7p11))
1941       b(3)=ans
1942       b(4)=w11*ccc*(16*p5p7*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*p3p7*(
1943      . ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm-ffmcfmb*
1944      . hbcm2+fmb*fmc+2*fmb*hbcm-2*fmb2-fmc*hbcm)+16*(-ffmcfmb*p1p3*
1945      . p3p7+2*p1p2*p3p7+3*p1p3*p5p7-3*p1p4*p3p7))
1946       ans3=w13*(32*p3p4*(-ffmcfmb*hbcm*p7p10-fmb*p7p10+hbcm*p7p10)+16
1947      . *p2p3*(ffmcfmb*hbcm*p7p10+fmb*p7p10-hbcm*p7p10)+16*p1p3*(
1948      . ffmcfmb*hbcm*p7p10-fmc*p7p10-2*hbcm*p7p10)+16*p3p7*(ffmcfmb*
1949      . hbcm*p1p10+ffmcfmb*hbcm*p2p10-2*ffmcfmb*hbcm*p5p10+2*fmb*p1p10
1950      . +fmb*p2p10-2*fmb*p5p10+fmc*p1p10-hbcm*p2p10+2*hbcm*p5p10)+8*(-
1951      . ffmcfmb*fmb*hbcm2*p7p10-ffmcfmb*fmc*hbcm2*p7p10-2*ffmcfmb*
1952      . hbcm3*p7p10-fmb*fmc*hbcm*p7p10-fmb*hbcm2*p7p10-fmb2*hbcm*p7p10
1953      . +fmc*hbcm2*p7p10+4*hbcm*p1p10*p5p7+2*hbcm*p1p2*p7p10-4*hbcm*
1954      . p1p4*p7p10+2*hbcm3*p7p10))+8*(2*fmb*p3p12+2*fmc*p3p12-hbcm*
1955      . p2p12-3*hbcm*p3p12-hbcm*p4p12-hbcm*p5p12+hbcm*p7p10+2*hbcm*
1956      . p7p11)
1957       ans2=w11*(32*p1p4*(hbcm*p7p11-hbcm*p7p8)+16*p1p2*(-hbcm*p7p11+
1958      . hbcm*p7p8)+32*p5p7*(-hbcm*p1p11+hbcm*p1p8)+32*p3p4*(ffmcfmb*
1959      . hbcm*p7p11-ffmcfmb*hbcm*p7p8+fmb*p7p11-fmb*p7p8-hbcm*p7p11+
1960      . hbcm*p7p8)+16*p2p3*(-ffmcfmb*hbcm*p7p11+ffmcfmb*hbcm*p7p8-fmb*
1961      . p7p11+fmb*p7p8+hbcm*p7p11-hbcm*p7p8)+16*p1p3*(-ffmcfmb*hbcm*
1962      . p7p11+ffmcfmb*hbcm*p7p8+fmc*p7p11-fmc*p7p8+2*hbcm*p7p11-2*hbcm
1963      . *p7p8)+16*p3p7*(-ffmcfmb*hbcm*p1p11+ffmcfmb*hbcm*p1p8-ffmcfmb*
1964      . hbcm*p2p11+ffmcfmb*hbcm*p2p8+2*ffmcfmb*hbcm*p5p11-2*ffmcfmb*
1965      . hbcm*p5p8-2*fmb*p1p11+2*fmb*p1p8-fmb*p2p11+fmb*p2p8+2*fmb*
1966      . p5p11-2*fmb*p5p8-fmc*p1p11+fmc*p1p8+hbcm*p2p11-hbcm*p2p8-2*
1967      . hbcm*p5p11+2*hbcm*p5p8)+8*(ffmcfmb*fmb*hbcm2*p7p11-ffmcfmb*fmb
1968      . *hbcm2*p7p8+ffmcfmb*fmc*hbcm2*p7p11-ffmcfmb*fmc*hbcm2*p7p8+2*
1969      . ffmcfmb*hbcm3*p7p11-2*ffmcfmb*hbcm3*p7p8+fmb*fmc*hbcm*p7p11-
1970      . fmb*fmc*hbcm*p7p8+fmb*hbcm2*p7p11-fmb*hbcm2*p7p8+fmb2*hbcm*
1971      . p7p11-fmb2*hbcm*p7p8-fmc*hbcm2*p7p11+fmc*hbcm2*p7p8-2*hbcm3*
1972      . p7p11+2*hbcm3*p7p8))+ans3
1973       ans1=w7*(32*p3p4*(ffmcfmb*hbcm*p7p11+fmb*p7p11-hbcm*p7p11)+16*
1974      . p2p3*(-ffmcfmb*hbcm*p7p11-fmb*p7p11+hbcm*p7p11)+16*p1p3*(-
1975      . ffmcfmb*hbcm*p7p11+fmc*p7p11+2*hbcm*p7p11)+16*p3p7*(-ffmcfmb*
1976      . hbcm*p1p11-ffmcfmb*hbcm*p2p11+2*ffmcfmb*hbcm*p5p11-2*fmb*p1p11
1977      . -fmb*p2p11+2*fmb*p5p11-fmc*p1p11+hbcm*p2p11-2*hbcm*p5p11)+8*(
1978      . ffmcfmb*fmb*hbcm2*p7p11+ffmcfmb*fmc*hbcm2*p7p11+2*ffmcfmb*
1979      . hbcm3*p7p11+fmb*fmc*hbcm*p7p11+fmb*hbcm2*p7p11+fmb2*hbcm*p7p11
1980      . -fmc*hbcm2*p7p11-4*hbcm*p1p11*p5p7-2*hbcm*p1p2*p7p11+4*hbcm*
1981      . p1p4*p7p11-2*hbcm3*p7p11))+ans2
1982       ans=ccc*ans1
1983       b(6)=ans
1984       ans2=w13*(16*p3p6*(-ffmcfmb*p2p10+2*ffmcfmb*p3p10+2*ffmcfmb*
1985      . p4p10+p1p10+p2p10-2*p3p10-2*p4p10)+8*(-ffmcfmb**2*hbcm2*p6p10+
1986      . ffmcfmb*fmb*hbcm*p6p10-ffmcfmb*fmc*hbcm*p6p10+2*ffmcfmb*hbcm2*
1987      . p6p10-fmb*fmc*p6p10-fmb*hbcm*p6p10+2*fmb2*p6p10+fmc*hbcm*p6p10
1988      . -hbcm2*p6p10+2*p1p10*p4p6+2*p1p2*p6p10-2*p1p3*p6p10-6*p1p5*
1989      . p6p10))+8*(3*p2p13-4*p3p13-3*p4p13-p5p13+p6p10-p6p11)
1990       ans1=w7*(16*p3p6*(ffmcfmb*p2p11-2*ffmcfmb*p3p11-2*ffmcfmb*p4p11
1991      . -p1p11-p2p11+2*p3p11+2*p4p11)+8*(ffmcfmb**2*hbcm2*p6p11-
1992      . ffmcfmb*fmb*hbcm*p6p11+ffmcfmb*fmc*hbcm*p6p11-2*ffmcfmb*hbcm2*
1993      . p6p11+fmb*fmc*p6p11+fmb*hbcm*p6p11-2*fmb2*p6p11-fmc*hbcm*p6p11
1994      . +hbcm2*p6p11-2*p1p11*p4p6-2*p1p2*p6p11+2*p1p3*p6p11+6*p1p5*
1995      . p6p11))+w11*(48*p1p5*(p6p11-p6p8)+16*p1p3*(p6p11-p6p8)+16*p1p2
1996      . *(-p6p11+p6p8)+16*p4p6*(-p1p11+p1p8)+16*p3p6*(ffmcfmb*p2p11-
1997      . ffmcfmb*p2p8-2*ffmcfmb*p3p11+2*ffmcfmb*p3p8-2*ffmcfmb*p4p11+2*
1998      . ffmcfmb*p4p8-p1p11+p1p8-p2p11+p2p8+2*p3p11-2*p3p8+2*p4p11-2*
1999      . p4p8)+8*(ffmcfmb**2*hbcm2*p6p11-ffmcfmb**2*hbcm2*p6p8-ffmcfmb*
2000      . fmb*hbcm*p6p11+ffmcfmb*fmb*hbcm*p6p8+ffmcfmb*fmc*hbcm*p6p11-
2001      . ffmcfmb*fmc*hbcm*p6p8-2*ffmcfmb*hbcm2*p6p11+2*ffmcfmb*hbcm2*
2002      . p6p8+fmb*fmc*p6p11-fmb*fmc*p6p8+fmb*hbcm*p6p11-fmb*hbcm*p6p8-2
2003      . *fmb2*p6p11+2*fmb2*p6p8-fmc*hbcm*p6p11+fmc*hbcm*p6p8+hbcm2*
2004      . p6p11-hbcm2*p6p8))+ans2
2005       ans=ccc*ans1
2006       b(7)=ans
2007       b(8)=w11*ccc*((p3p6*p3p4)*(-32*ffmcfmb+32)+(p3p6*p2p3)*(16*
2008      . ffmcfmb-16)+16*p4p6*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*p3p6*(
2009      . ffmcfmb**2*hbcm2-3*ffmcfmb*hbcm2+fmb*fmc+fmb*hbcm-2*fmb2+2*
2010      . hbcm2)+16*(-p1p2*p3p6-p1p3*p4p6+3*p1p5*p3p6))
2011       ans4=8*(ffmcfmb*fmb*hbcm2*p6p11-ffmcfmb*fmb*hbcm2*p6p8+ffmcfmb*
2012      . fmc*hbcm2*p6p11-ffmcfmb*fmc*hbcm2*p6p8-2*ffmcfmb*hbcm3*p6p11+2
2013      . *ffmcfmb*hbcm3*p6p8+fmb*fmc*hbcm*p6p11-fmb*fmc*hbcm*p6p8-3*fmb
2014      . *hbcm2*p6p11+3*fmb*hbcm2*p6p8+fmb2*hbcm*p6p11-fmb2*hbcm*p6p8-
2015      . fmc*hbcm2*p6p11+fmc*hbcm2*p6p8+2*hbcm3*p6p11-2*hbcm3*p6p8)
2016       ans3=32*p1p5*(-hbcm*p6p11+hbcm*p6p8)+16*p1p2*(hbcm*p6p11-hbcm*
2017      . p6p8)+16*p4p6*(-3*ffmcfmb*hbcm*p3p8-3*fmb*p3p8-2*hbcm*p1p11+2*
2018      . hbcm*p1p8+3*hbcm*p3p8)+32*p3p5*(-ffmcfmb*hbcm*p6p11+ffmcfmb*
2019      . hbcm*p6p8-fmb*p6p11+fmb*p6p8+hbcm*p6p11-hbcm*p6p8)+16*p2p3*(
2020      . ffmcfmb*hbcm*p6p11-ffmcfmb*hbcm*p6p8+fmb*p6p11-fmb*p6p8-hbcm*
2021      . p6p11+hbcm*p6p8)+16*p1p3*(ffmcfmb*hbcm*p6p11-ffmcfmb*hbcm*p6p8
2022      . +fmb*p6p11-fmb*p6p8-2*hbcm*p6p11+2*hbcm*p6p8)+16*p3p6*(-
2023      . ffmcfmb**2*hbcm*p3p8-2*ffmcfmb*fmb*p3p8-ffmcfmb*fmc*p3p8+
2024      . ffmcfmb*hbcm*p2p11-ffmcfmb*hbcm*p2p8-ffmcfmb*hbcm*p3p11+
2025      . ffmcfmb*hbcm*p3p8-ffmcfmb*hbcm*p4p11+ffmcfmb*hbcm*p4p8+fmb*
2026      . p2p11-fmb*p2p8-2*fmb*p3p11+2*fmb*p3p8-2*fmb*p4p11+2*fmb*p4p8-
2027      . fmc*p1p11+fmc*p1p8+fmc*p3p8-hbcm*p1p11+hbcm*p1p8-hbcm*p2p11+
2028      . hbcm*p2p8+hbcm*p3p11+hbcm*p4p11-hbcm*p4p8)+ans4
2029       ans2=w11*ans3
2030       ans5=w13*(32*p3p5*(ffmcfmb*hbcm*p6p10+fmb*p6p10-hbcm*p6p10)+16*
2031      . p4p6*(-3*ffmcfmb*hbcm*p3p10-3*fmb*p3p10+2*hbcm*p1p10+3*hbcm*
2032      . p3p10)+16*p2p3*(-ffmcfmb*hbcm*p6p10-fmb*p6p10+hbcm*p6p10)+16*
2033      . p1p3*(-ffmcfmb*hbcm*p6p10-fmb*p6p10+2*hbcm*p6p10)+16*p3p6*(-
2034      . ffmcfmb**2*hbcm*p3p10-2*ffmcfmb*fmb*p3p10-ffmcfmb*fmc*p3p10-
2035      . ffmcfmb*hbcm*p2p10+ffmcfmb*hbcm*p3p10+ffmcfmb*hbcm*p4p10-fmb*
2036      . p2p10+2*fmb*p3p10+2*fmb*p4p10+fmc*p1p10+fmc*p3p10+hbcm*p1p10+
2037      . hbcm*p2p10-hbcm*p4p10)+8*(-ffmcfmb*fmb*hbcm2*p6p10-ffmcfmb*fmc
2038      . *hbcm2*p6p10+2*ffmcfmb*hbcm3*p6p10-fmb*fmc*hbcm*p6p10+3*fmb*
2039      . hbcm2*p6p10-fmb2*hbcm*p6p10+fmc*hbcm2*p6p10-2*hbcm*p1p2*p6p10+
2040      . 4*hbcm*p1p5*p6p10-2*hbcm3*p6p10))+8*(3*fmb*p3p13+3*fmc*p3p13-2
2041      . *hbcm*p2p13+2*hbcm*p4p13+hbcm*p5p13-hbcm*p6p10+hbcm*p6p11)
2042       ans1=w7*(32*p3p5*(-ffmcfmb*hbcm*p6p11-fmb*p6p11+hbcm*p6p11)+16*
2043      . p2p3*(ffmcfmb*hbcm*p6p11+fmb*p6p11-hbcm*p6p11)+16*p3p6*(
2044      . ffmcfmb*hbcm*p2p11-ffmcfmb*hbcm*p3p11-ffmcfmb*hbcm*p4p11+fmb*
2045      . p2p11-2*fmb*p3p11-2*fmb*p4p11-fmc*p1p11-hbcm*p1p11-hbcm*p2p11+
2046      . hbcm*p3p11+hbcm*p4p11)+16*p1p3*(ffmcfmb*hbcm*p6p11+fmb*p6p11-2
2047      . *hbcm*p6p11)+8*(ffmcfmb*fmb*hbcm2*p6p11+ffmcfmb*fmc*hbcm2*
2048      . p6p11-2*ffmcfmb*hbcm3*p6p11+fmb*fmc*hbcm*p6p11-3*fmb*hbcm2*
2049      . p6p11+fmb2*hbcm*p6p11-fmc*hbcm2*p6p11-4*hbcm*p1p11*p4p6+2*hbcm
2050      . *p1p2*p6p11-4*hbcm*p1p5*p6p11+2*hbcm3*p6p11))+ans2+ans5
2051       ans=ccc*ans1
2052       b(10)=ans
2053       b(11)=w11*ccc*(32*(p4p6*p3p7)*(-ffmcfmb*hbcm-fmb+hbcm)+16*(p5p7
2054      . *p3p6)*(ffmcfmb*hbcm+2*fmb-hbcm)+32*(p6p7*p3p5)*(-ffmcfmb*hbcm
2055      . -fmb+hbcm)+16*(p6p7*p2p3)*(ffmcfmb*hbcm+fmb-hbcm)+16*(p6p7*
2056      . p1p3)*(ffmcfmb*hbcm+fmb-2*hbcm)+8*p6p7*(ffmcfmb*fmb*hbcm2+
2057      . ffmcfmb*fmc*hbcm2-2*ffmcfmb*hbcm3+fmb*fmc*hbcm-3*fmb*hbcm2+
2058      . fmb2*hbcm-fmc*hbcm2+2*hbcm3)+16*(p3p7*p3p6)*(-ffmcfmb**2*hbcm-
2059      . ffmcfmb*fmb-ffmcfmb*fmc+ffmcfmb*hbcm+fmb+fmc)+16*(hbcm*p1p2*
2060      . p6p7-2*hbcm*p1p5*p6p7))
2061       b(13)=4*ccc*w11*(2*ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm+ffmcfmb*
2062      . fmc*hbcm-4*ffmcfmb*hbcm2+fmb*fmc+fmb*hbcm-3*fmb2-fmc*hbcm+2*
2063      . hbcm2+6*p1p2-6*p1p3-8*p1p4)
2064       b(15)=w11*ccc*(24*p3p4*(ffmcfmb*hbcm+fmb-hbcm)+16*p2p3*(-
2065      . ffmcfmb*hbcm-fmb+hbcm)+8*p1p3*(-ffmcfmb*hbcm+fmc+3*hbcm)+4*(
2066      . ffmcfmb**2*hbcm3+3*ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+2*
2067      . ffmcfmb*hbcm3+fmb*fmc*hbcm+fmb*hbcm2+2*fmb2*hbcm-fmc*hbcm2-4*
2068      . hbcm*p1p2+6*hbcm*p1p4-3*hbcm3))
2069       b(17)=w13*ccc*(8*p3p6*(-ffmcfmb*hbcm-fmb-fmc-hbcm)-24*hbcm*p4p6
2070      . )
2071       b(18)=4*ccc*w13*(fmb+fmc)
2072       b(19)=4*ccc*w13*(4*ffmcfmb*hbcm2-fmb*hbcm+fmc*hbcm+2*hbcm2-2*
2073      . p1p3-6*p2p3+8*p3p4)
2074       b(20)=w13*ccc*(8*p3p7*(ffmcfmb*hbcm-fmb-fmc-2*hbcm)-24*hbcm*
2075      . p5p7)
2076       b(21)=ccc*(8*w7*(-hbcm*p1p11-2*hbcm*p2p11+3*hbcm*p3p11+3*hbcm*
2077      . p4p11)+8*w11*(-fmb*p3p8-fmc*p3p8-hbcm*p1p11+hbcm*p1p8-2*hbcm*
2078      . p2p11+2*hbcm*p2p8+3*hbcm*p3p11-3*hbcm*p3p8+3*hbcm*p4p11-3*hbcm
2079      . *p4p8)+8*w13*(-fmb*p3p10-fmc*p3p10+hbcm*p1p10+2*hbcm*p2p10-3*
2080      . hbcm*p3p10-3*hbcm*p4p10))
2081       b(22)=w13*ccc*(24*p3p4*(ffmcfmb*hbcm+fmb-hbcm)+16*p2p3*(-
2082      . ffmcfmb*hbcm-fmb+hbcm)+8*p1p3*(-ffmcfmb*hbcm+fmc+3*hbcm)+4*(
2083      . ffmcfmb**2*hbcm3+3*ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2+2*
2084      . ffmcfmb*hbcm3+fmb*fmc*hbcm+fmb*hbcm2+2*fmb2*hbcm-fmc*hbcm2-4*
2085      . hbcm*p1p2+6*hbcm*p1p4-3*hbcm3))
2086       b(23)=w11*ccc*(8*p3p6*(-ffmcfmb*hbcm-fmb-fmc-hbcm)-24*hbcm*p4p6
2087      . )
2088       b(24)=4*ccc*w11*(fmb+fmc)
2089       b(25)=4*ccc*w11*(4*ffmcfmb*hbcm2-fmb*hbcm+fmc*hbcm+2*hbcm2-2*
2090      . p1p3-6*p2p3+8*p3p4)
2091       b(26)=w11*ccc*(8*p3p7*(ffmcfmb*hbcm-fmb-fmc-2*hbcm)-24*hbcm*
2092      . p5p7)
2093       b(27)=w13*ccc*(24*p4p6*(ffmcfmb*hbcm+fmb-hbcm)+8*p3p6*(ffmcfmb
2094      . **2*hbcm+2*ffmcfmb*fmb+ffmcfmb*fmc-fmc-hbcm))
2095       b(28)=w13*ccc*((p3p6*p3p4)*(32*ffmcfmb-32)+(p3p6*p2p3)*(-16*
2096      . ffmcfmb+16)+16*p4p6*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*p3p6*(-
2097      . ffmcfmb**2*hbcm2+3*ffmcfmb*hbcm2-fmb*fmc-fmb*hbcm+2*fmb2-2*
2098      . hbcm2)+16*(p1p2*p3p6+p1p3*p4p6-3*p1p5*p3p6))
2099       b(29)=w13*ccc*(32*(p4p6*p3p7)*(-ffmcfmb*hbcm-fmb+hbcm)+16*(p5p7
2100      . *p3p6)*(ffmcfmb*hbcm+2*fmb-hbcm)+32*(p6p7*p3p5)*(-ffmcfmb*hbcm
2101      . -fmb+hbcm)+16*(p6p7*p2p3)*(ffmcfmb*hbcm+fmb-hbcm)+16*(p6p7*
2102      . p1p3)*(ffmcfmb*hbcm+fmb-2*hbcm)+8*p6p7*(ffmcfmb*fmb*hbcm2+
2103      . ffmcfmb*fmc*hbcm2-2*ffmcfmb*hbcm3+fmb*fmc*hbcm-3*fmb*hbcm2+
2104      . fmb2*hbcm-fmc*hbcm2+2*hbcm3)+16*(p3p7*p3p6)*(-ffmcfmb**2*hbcm-
2105      . ffmcfmb*fmb-ffmcfmb*fmc+ffmcfmb*hbcm+fmb+fmc)+16*(hbcm*p1p2*
2106      . p6p7-2*hbcm*p1p5*p6p7))
2107       ans4=16*p6p7*(ffmcfmb*hbcm2*p2p11-ffmcfmb*hbcm2*p2p8-ffmcfmb*
2108      . hbcm2*p5p11+ffmcfmb*hbcm2*p5p8+fmb*hbcm*p1p11-fmb*hbcm*p1p8+
2109      . fmb*hbcm*p2p11-fmb*hbcm*p2p8-fmb*hbcm*p5p11+fmb*hbcm*p5p8-fmc*
2110      . hbcm*p1p11+fmc*hbcm*p1p8+4*hbcm2*p1p11-4*hbcm2*p1p8-hbcm2*
2111      . p2p11+hbcm2*p2p8+hbcm2*p5p11-hbcm2*p5p8)+16*p3p7*(ffmcfmb*fmb*
2112      . hbcm*p6p11-ffmcfmb*fmb*hbcm*p6p8+ffmcfmb*hbcm2*p6p11-ffmcfmb*
2113      . hbcm2*p6p8+fmb2*p6p11-fmb2*p6p8-hbcm2*p6p11+hbcm2*p6p8)+16*
2114      . p3p6*(-ffmcfmb**2*hbcm2*p7p11+ffmcfmb*fmb*hbcm*p7p11-ffmcfmb*
2115      . fmb*hbcm*p7p8+2*ffmcfmb*hbcm2*p7p11+ffmcfmb*hbcm2*p7p8-fmb*fmc
2116      . *p7p11-fmb*hbcm*p7p11+fmb2*p7p11+fmb2*p7p8-hbcm2*p7p11-hbcm2*
2117      . p7p8)+32*(p1p2*p3p6*p7p11+p1p3*p4p6*p7p11)
2118       ans3=32*(p3p7*p1p5)*(-p6p11+p6p8)+32*(p3p6*p1p5)*(-2*p7p11-p7p8
2119      . )+32*(p5p7*p1p3)*(-p6p11+p6p8)+96*(p4p6*p3p7)*(p1p11-p1p8)+32*
2120      . (p5p7*p3p6)*(p1p11-p1p8)+96*(p4p7*p3p6)*(p1p11-p1p8)+96*(p6p7*
2121      . p3p5)*(p1p11-p1p8)+32*(p6p7*p3p4)*(p1p11-p1p8)+64*(p6p7*p2p3)*
2122      . (-p1p11+p1p8)+32*(p6p7*p1p3)*(-3*p1p11+3*p1p8+p5p11-p5p8)+32*(
2123      . p3p6*p3p4)*(ffmcfmb*p7p11+ffmcfmb*p7p8-p7p11-p7p8)+32*(p3p6*
2124      . p2p3)*(-ffmcfmb*p7p8+p7p8)+32*(p3p7*p3p6)*(-2*ffmcfmb*p2p11+2*
2125      . ffmcfmb*p2p8+2*ffmcfmb*p3p11-2*ffmcfmb*p3p8+2*ffmcfmb*p4p11-2*
2126      . ffmcfmb*p4p8+ffmcfmb*p5p11-ffmcfmb*p5p8+4*p1p11-4*p1p8+2*p2p11
2127      . -2*p2p8-2*p3p11+2*p3p8-2*p4p11+2*p4p8-p5p11+p5p8)+32*(p3p7*
2128      . p1p3)*(ffmcfmb*p6p11-ffmcfmb*p6p8-p6p11+p6p8)+16*p5p7*(ffmcfmb
2129      . *hbcm2*p6p11-ffmcfmb*hbcm2*p6p8+fmb*hbcm*p6p11-fmb*hbcm*p6p8-
2130      . hbcm2*p6p11+hbcm2*p6p8)+16*p4p6*(-ffmcfmb*hbcm2*p7p11-ffmcfmb*
2131      . hbcm2*p7p8-fmb*hbcm*p7p11-fmb*hbcm*p7p8+hbcm2*p7p11+hbcm2*p7p8
2132      . )+ans4
2133       ans2=w11*ans3
2134       ans6=(16*p3p4*(-p6p12+3*p7p13)+16*p6p7*(p3p10-2*p3p11)+16*p2p3*
2135      . (2*p6p12-3*p7p13)+16*p3p7*(-ffmcfmb*p3p13-2*p1p13-3*p2p13+4*
2136      . p3p13+4*p4p13+3*p5p13-p6p11)+16*p3p6*(ffmcfmb*p3p12+p1p12-
2137      . p2p12-2*p3p12-p4p12-p5p12-p7p10+2*p7p11)+8*(ffmcfmb*hbcm2*
2138      . p6p12-ffmcfmb*hbcm2*p7p13+2*fmb*hbcm*p6p12-fmb*hbcm*p7p13-fmc*
2139      . hbcm*p6p12+2*fmc*hbcm*p7p13-2*hbcm2*p6p12+4*hbcm2*p7p13-2*
2140      . p3p13*p4p7+2*p3p5*p7p13))
2141       ans5=w13*(32*(p6p7*p1p3)*(3*p1p10-p5p10)+32*(p3p6*p3p4)*(-
2142      . ffmcfmb*p7p10+p7p10)+32*(p3p7*p3p6)*(2*ffmcfmb*p2p10-2*ffmcfmb
2143      . *p3p10-2*ffmcfmb*p4p10-ffmcfmb*p5p10-4*p1p10-2*p2p10+2*p3p10+2
2144      . *p4p10+p5p10)+32*(p3p7*p1p3)*(-ffmcfmb*p6p10+p6p10)+16*p5p7*(-
2145      . ffmcfmb*hbcm2*p6p10-fmb*hbcm*p6p10+hbcm2*p6p10)+16*p4p6*(
2146      . ffmcfmb*hbcm2*p7p10+fmb*hbcm*p7p10-hbcm2*p7p10)+16*p6p7*(-
2147      . ffmcfmb*hbcm2*p2p10+ffmcfmb*hbcm2*p5p10-fmb*hbcm*p1p10-fmb*
2148      . hbcm*p2p10+fmb*hbcm*p5p10+fmc*hbcm*p1p10-4*hbcm2*p1p10+hbcm2*
2149      . p2p10-hbcm2*p5p10)+16*p3p7*(-ffmcfmb*fmb*hbcm*p6p10-ffmcfmb*
2150      . hbcm2*p6p10-fmb2*p6p10+hbcm2*p6p10)+16*p3p6*(ffmcfmb**2*hbcm2*
2151      . p7p10-ffmcfmb*fmb*hbcm*p7p10-2*ffmcfmb*hbcm2*p7p10+fmb*fmc*
2152      . p7p10+fmb*hbcm*p7p10-fmb2*p7p10+hbcm2*p7p10)+32*(2*p1p10*p2p3*
2153      . p6p7-p1p10*p3p4*p6p7-3*p1p10*p3p5*p6p7-3*p1p10*p3p6*p4p7-p1p10
2154      . *p3p6*p5p7-3*p1p10*p3p7*p4p6-p1p2*p3p6*p7p10-p1p3*p4p6*p7p10+
2155      . p1p3*p5p7*p6p10+2*p1p5*p3p6*p7p10+p1p5*p3p7*p6p10))+ans6
2156       ans1=w7*(32*(p6p7*p1p3)*(-3*p1p11+p5p11)+32*(p3p6*p3p4)*(
2157      . ffmcfmb*p7p11-p7p11)+32*(p3p7*p3p6)*(-2*ffmcfmb*p2p11+2*
2158      . ffmcfmb*p3p11+2*ffmcfmb*p4p11+ffmcfmb*p5p11+4*p1p11+2*p2p11-2*
2159      . p3p11-2*p4p11-p5p11)+32*(p3p7*p1p3)*(ffmcfmb*p6p11-p6p11)+16*
2160      . p5p7*(ffmcfmb*hbcm2*p6p11+fmb*hbcm*p6p11-hbcm2*p6p11)+16*p4p6*
2161      . (-ffmcfmb*hbcm2*p7p11-fmb*hbcm*p7p11+hbcm2*p7p11)+16*p6p7*(
2162      . ffmcfmb*hbcm2*p2p11-ffmcfmb*hbcm2*p5p11+fmb*hbcm*p1p11+fmb*
2163      . hbcm*p2p11-fmb*hbcm*p5p11-fmc*hbcm*p1p11+4*hbcm2*p1p11-hbcm2*
2164      . p2p11+hbcm2*p5p11)+16*p3p7*(ffmcfmb*fmb*hbcm*p6p11+ffmcfmb*
2165      . hbcm2*p6p11+fmb2*p6p11-hbcm2*p6p11)+16*p3p6*(-ffmcfmb**2*hbcm2
2166      . *p7p11+ffmcfmb*fmb*hbcm*p7p11+2*ffmcfmb*hbcm2*p7p11-fmb*fmc*
2167      . p7p11-fmb*hbcm*p7p11+fmb2*p7p11-hbcm2*p7p11)+32*(-2*p1p11*p2p3
2168      . *p6p7+p1p11*p3p4*p6p7+3*p1p11*p3p5*p6p7+3*p1p11*p3p6*p4p7+
2169      . p1p11*p3p6*p5p7+3*p1p11*p3p7*p4p6+p1p2*p3p6*p7p11+p1p3*p4p6*
2170      . p7p11-p1p3*p5p7*p6p11-2*p1p5*p3p6*p7p11-p1p5*p3p7*p6p11))+ans2
2171      . +ans5
2172       ans=ccc*ans1
2173       b(30)=ans
2174       b(31)=w11*ccc*(24*p4p6*(ffmcfmb*hbcm+fmb-hbcm)+8*p3p6*(ffmcfmb
2175      . **2*hbcm+2*ffmcfmb*fmb+ffmcfmb*fmc-fmc-hbcm))
2176       ans3=w13*(32*p4p7*(ffmcfmb*hbcm*p6p10+fmb*p6p10-hbcm*p6p10)+32*
2177      . p4p6*(ffmcfmb*hbcm*p7p10+fmb*p7p10-hbcm*p7p10)+16*p3p7*(
2178      . ffmcfmb*hbcm*p6p10+fmb*p6p10-hbcm*p6p10)+16*p6p7*(-ffmcfmb*
2179      . hbcm*p1p10-ffmcfmb*hbcm*p2p10+2*ffmcfmb*hbcm*p5p10-fmb*p1p10-
2180      . fmb*p2p10+2*fmb*p5p10+hbcm*p1p10+hbcm*p2p10-2*hbcm*p5p10)+16*
2181      . p3p6*(ffmcfmb*fmb*p7p10+ffmcfmb*fmc*p7p10+ffmcfmb*hbcm*p7p10-
2182      . fmc*p7p10-hbcm*p7p10))+8*(-fmb*p7p13-fmc*p7p13)
2183       ans2=w11*(32*p4p7*(-ffmcfmb*hbcm*p6p11+ffmcfmb*hbcm*p6p8-fmb*
2184      . p6p11+fmb*p6p8+hbcm*p6p11-hbcm*p6p8)+32*p4p6*(-ffmcfmb*hbcm*
2185      . p7p11+ffmcfmb*hbcm*p7p8-fmb*p7p11+fmb*p7p8+hbcm*p7p11-hbcm*
2186      . p7p8)+16*p3p7*(-ffmcfmb*hbcm*p6p11+ffmcfmb*hbcm*p6p8-fmb*p6p11
2187      . +fmb*p6p8+hbcm*p6p11-hbcm*p6p8)+16*p6p7*(ffmcfmb*hbcm*p1p11-
2188      . ffmcfmb*hbcm*p1p8+ffmcfmb*hbcm*p2p11-ffmcfmb*hbcm*p2p8-2*
2189      . ffmcfmb*hbcm*p5p11+2*ffmcfmb*hbcm*p5p8+fmb*p1p11-fmb*p1p8+fmb*
2190      . p2p11-fmb*p2p8-2*fmb*p5p11+2*fmb*p5p8-hbcm*p1p11+hbcm*p1p8-
2191      . hbcm*p2p11+hbcm*p2p8+2*hbcm*p5p11-2*hbcm*p5p8)+16*p3p6*(-
2192      . ffmcfmb*fmb*p7p11+ffmcfmb*fmb*p7p8-ffmcfmb*fmc*p7p11+ffmcfmb*
2193      . fmc*p7p8-ffmcfmb*hbcm*p7p11+ffmcfmb*hbcm*p7p8+fmc*p7p11-fmc*
2194      . p7p8+hbcm*p7p11-hbcm*p7p8))+ans3
2195       ans1=w7*(32*p4p7*(-ffmcfmb*hbcm*p6p11-fmb*p6p11+hbcm*p6p11)+32*
2196      . p4p6*(-ffmcfmb*hbcm*p7p11-fmb*p7p11+hbcm*p7p11)+16*p3p7*(-
2197      . ffmcfmb*hbcm*p6p11-fmb*p6p11+hbcm*p6p11)+16*p6p7*(ffmcfmb*hbcm
2198      . *p1p11+ffmcfmb*hbcm*p2p11-2*ffmcfmb*hbcm*p5p11+fmb*p1p11+fmb*
2199      . p2p11-2*fmb*p5p11-hbcm*p1p11-hbcm*p2p11+2*hbcm*p5p11)+16*p3p6*
2200      . (-ffmcfmb*fmb*p7p11-ffmcfmb*fmc*p7p11-ffmcfmb*hbcm*p7p11+fmc*
2201      . p7p11+hbcm*p7p11))+ans2
2202       ans=ccc*ans1
2203       b(33)=ans
2204       b(35)=ccc*(8*w7*(-fmb*p7p11-fmc*p7p11)+8*w11*(-fmb*p7p11+fmb*
2205      . p7p8-fmc*p7p11+fmc*p7p8)+8*w13*(fmb*p7p10+fmc*p7p10))
2206       b(38)=ccc*(w7*(16*p3p7*(-2*p1p11-p2p11+3*p5p11)+8*(2*ffmcfmb*
2207      . hbcm2*p7p11-fmb*hbcm*p7p11+fmc*hbcm*p7p11+2*hbcm2*p7p11-2*p1p3
2208      . *p7p11-4*p2p3*p7p11+6*p3p4*p7p11))+w11*(48*p3p4*(p7p11-p7p8)+
2209      . 32*p2p3*(-p7p11+p7p8)+16*p1p3*(-p7p11+p7p8)+16*p3p7*(-2*p1p11+
2210      . 2*p1p8-p2p11+p2p8+3*p5p11-3*p5p8)+8*(2*ffmcfmb*hbcm2*p7p11-2*
2211      . ffmcfmb*hbcm2*p7p8-fmb*hbcm*p7p11+fmb*hbcm*p7p8+fmc*hbcm*p7p11
2212      . -fmc*hbcm*p7p8+2*hbcm2*p7p11-2*hbcm2*p7p8))+w13*(16*p3p7*(2*
2213      . p1p10+p2p10-3*p5p10)+8*(-2*ffmcfmb*hbcm2*p7p10+fmb*hbcm*p7p10-
2214      . fmc*hbcm*p7p10-2*hbcm2*p7p10+2*p1p3*p7p10+4*p2p3*p7p10-6*p3p4*
2215      . p7p10))+24*p3p12)
2216       b(39)=ccc*(w7*((p3p7*p3p6)*(-32*ffmcfmb-32)+8*p6p7*(2*ffmcfmb*
2217      . hbcm2-fmb*hbcm+fmc*hbcm-4*hbcm2)+16*(2*p1p3*p6p7+p2p3*p6p7-3*
2218      . p3p5*p6p7-3*p3p6*p4p7-3*p3p7*p4p6))+w11*((p3p7*p3p6)*(-32*
2219      . ffmcfmb-32)+8*p6p7*(2*ffmcfmb*hbcm2-fmb*hbcm+fmc*hbcm-4*hbcm2)
2220      . +16*(2*p1p3*p6p7+p2p3*p6p7-3*p3p5*p6p7-3*p3p6*p4p7-3*p3p7*p4p6
2221      . )))
2222       ans=ccc*(w7*(32*(p4p6*p3p7)*(ffmcfmb*hbcm+fmb-hbcm)+16*(p5p7*
2223      . p3p6)*(-ffmcfmb*hbcm-2*fmb+hbcm)+32*(p6p7*p3p5)*(ffmcfmb*hbcm+
2224      . fmb-hbcm)+16*(p6p7*p2p3)*(-ffmcfmb*hbcm-fmb+hbcm)+16*(p6p7*
2225      . p1p3)*(-ffmcfmb*hbcm-fmb+2*hbcm)+8*p6p7*(-ffmcfmb*fmb*hbcm2-
2226      . ffmcfmb*fmc*hbcm2+2*ffmcfmb*hbcm3-fmb*fmc*hbcm+3*fmb*hbcm2-
2227      . fmb2*hbcm+fmc*hbcm2-2*hbcm3)+16*(p3p7*p3p6)*(ffmcfmb**2*hbcm+
2228      . ffmcfmb*fmb+ffmcfmb*fmc-ffmcfmb*hbcm-fmb-fmc)+16*(-hbcm*p1p2*
2229      . p6p7+2*hbcm*p1p5*p6p7))+w11*(32*(p4p6*p3p7)*(ffmcfmb*hbcm+fmb-
2230      . hbcm)+16*(p5p7*p3p6)*(-ffmcfmb*hbcm-2*fmb+hbcm)+32*(p6p7*p3p5)
2231      . *(ffmcfmb*hbcm+fmb-hbcm)+16*(p6p7*p2p3)*(-ffmcfmb*hbcm-fmb+
2232      . hbcm)+16*(p6p7*p1p3)*(-ffmcfmb*hbcm-fmb+2*hbcm)+8*p6p7*(-
2233      . ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2+2*ffmcfmb*hbcm3-fmb*fmc*
2234      . hbcm+3*fmb*hbcm2-fmb2*hbcm+fmc*hbcm2-2*hbcm3)+16*(p3p7*p3p6)*(
2235      . ffmcfmb**2*hbcm+ffmcfmb*fmb+ffmcfmb*fmc-ffmcfmb*hbcm-fmb-fmc)+
2236      . 16*(-hbcm*p1p2*p6p7+2*hbcm*p1p5*p6p7)))
2237       b(40)=ans
2238       b(41)=ccc*(w7*((p5p7*p3p6)*(32*ffmcfmb-32)+(p3p7*p3p6)*(16*
2239      . ffmcfmb-16)+8*p6p7*(ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm+ffmcfmb*
2240      . fmc*hbcm-2*ffmcfmb*hbcm2+fmb*fmc+fmb*hbcm-2*fmb2-fmc*hbcm+
2241      . hbcm2)+16*(-p1p2*p6p7+p1p3*p6p7+3*p1p5*p6p7))+w11*((p5p7*p3p6)
2242      . *(32*ffmcfmb-32)+(p3p7*p3p6)*(16*ffmcfmb-16)+8*p6p7*(ffmcfmb**
2243      . 2*hbcm2-ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm-2*ffmcfmb*hbcm2+fmb*
2244      . fmc+fmb*hbcm-2*fmb2-fmc*hbcm+hbcm2)+16*(-p1p2*p6p7+p1p3*p6p7+3
2245      . *p1p5*p6p7)))
2246       b(43)=ccc*(w7*(16*p6p7*(2*p1p11+p2p11-3*p5p11)+16*p3p7*(-
2247      . ffmcfmb*p6p11-p6p11)+16*p3p6*(-ffmcfmb*p7p11-p7p11)+48*(-p4p6*
2248      . p7p11-p4p7*p6p11))+w11*(48*p4p7*(-p6p11+p6p8)+48*p4p6*(-p7p11+
2249      . p7p8)+16*p6p7*(2*p1p11-2*p1p8+p2p11-p2p8-3*p5p11+3*p5p8)+16*
2250      . p3p7*(-ffmcfmb*p6p11+ffmcfmb*p6p8-p6p11+p6p8)+16*p3p6*(-
2251      . ffmcfmb*p7p11+ffmcfmb*p7p8-p7p11+p7p8))+w13*(16*p6p7*(-2*p1p10
2252      . -p2p10+3*p5p10)+16*p3p7*(ffmcfmb*p6p10+p6p10)+16*p3p6*(ffmcfmb
2253      . *p7p10+p7p10)+48*(p4p6*p7p10+p4p7*p6p10))+8*(-p6p12-p7p13))
2254       b(44)=ccc*(w7*((p3p6*p3p4)*(-32*ffmcfmb+32)+(p3p6*p2p3)*(16*
2255      . ffmcfmb-16)+16*p4p6*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*p3p6*(
2256      . ffmcfmb**2*hbcm2-3*ffmcfmb*hbcm2+fmb*fmc+fmb*hbcm-2*fmb2+2*
2257      . hbcm2)+16*(-p1p2*p3p6-p1p3*p4p6+3*p1p5*p3p6))+w11*((p3p6*p3p4)
2258      . *(-32*ffmcfmb+32)+(p3p6*p2p3)*(16*ffmcfmb-16)+16*p4p6*(ffmcfmb
2259      . *hbcm2+fmb*hbcm-hbcm2)+8*p3p6*(ffmcfmb**2*hbcm2-3*ffmcfmb*
2260      . hbcm2+fmb*fmc+fmb*hbcm-2*fmb2+2*hbcm2)+16*(-p1p2*p3p6-p1p3*
2261      . p4p6+3*p1p5*p3p6)))
2262       b(45)=ccc*(w7*(p3p6*(-16*ffmcfmb-8)-32*p4p6)+w11*(p3p6*(-16*
2263      . ffmcfmb-8)-32*p4p6))
2264       b(46)=ccc*(w7*(24*p4p6*(ffmcfmb*hbcm+fmb-hbcm)+8*p3p6*(ffmcfmb
2265      . **2*hbcm+2*ffmcfmb*fmb+ffmcfmb*fmc-fmc-hbcm))+w11*(24*p4p6*(
2266      . ffmcfmb*hbcm+fmb-hbcm)+8*p3p6*(ffmcfmb**2*hbcm+2*ffmcfmb*fmb+
2267      . ffmcfmb*fmc-fmc-hbcm)))
2268       b(49)=ccc*(w7*(8*p3p7*(-ffmcfmb*hbcm+fmb+fmc+2*hbcm)+24*hbcm*
2269      . p5p7)+w11*(8*p3p7*(-ffmcfmb*hbcm+fmb+fmc+2*hbcm)+24*hbcm*p5p7)
2270      . )
2271       b(50)=ccc*(w7*(p3p7*(-16*ffmcfmb+24)+32*p5p7)+w11*(p3p7*(-16*
2272      . ffmcfmb+24)+32*p5p7))
2273       b(51)=ccc*(w7*(16*p5p7*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*p3p7*(
2274      . -ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm+ffmcfmb*
2275      . hbcm2-fmb*fmc-2*fmb*hbcm+2*fmb2+fmc*hbcm)+16*(ffmcfmb*p1p3*
2276      . p3p7-2*p1p2*p3p7-3*p1p3*p5p7+3*p1p4*p3p7))+w11*(16*p5p7*(-
2277      . ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*p3p7*(-ffmcfmb**2*hbcm2+
2278      . ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2-fmb*fmc-2*fmb*
2279      . hbcm+2*fmb2+fmc*hbcm)+16*(ffmcfmb*p1p3*p3p7-2*p1p2*p3p7-3*p1p3
2280      . *p5p7+3*p1p4*p3p7)))
2281       b(53)=ccc*(8*w7*(-p1p11-3*p2p11+4*p3p11+4*p4p11)+8*w11*(-p1p11+
2282      . p1p8-3*p2p11+3*p2p8+4*p3p11-4*p3p8+4*p4p11-4*p4p8)+8*w13*(
2283      . p1p10+3*p2p10-4*p3p10-4*p4p10))
2284       b(54)=ccc*(4*w7*(-4*ffmcfmb*hbcm2+fmb*hbcm-fmc*hbcm-2*hbcm2+2*
2285      . p1p3+6*p2p3-8*p3p4)+4*w11*(-4*ffmcfmb*hbcm2+fmb*hbcm-fmc*hbcm-
2286      . 2*hbcm2+2*p1p3+6*p2p3-8*p3p4))
2287       b(55)=ccc*(4*w7*(fmb+fmc)+4*w11*(fmb+fmc))
2288       b(56)=ccc*(4*w7*(-2*ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm-ffmcfmb*
2289      . fmc*hbcm+4*ffmcfmb*hbcm2-fmb*fmc-fmb*hbcm+3*fmb2+fmc*hbcm-2*
2290      . hbcm2-6*p1p2+6*p1p3+8*p1p4)+4*w11*(-2*ffmcfmb**2*hbcm2+ffmcfmb
2291      . *fmb*hbcm-ffmcfmb*fmc*hbcm+4*ffmcfmb*hbcm2-fmb*fmc-fmb*hbcm+3*
2292      . fmb2+fmc*hbcm-2*hbcm2-6*p1p2+6*p1p3+8*p1p4))
2293       b(57)=-8*ccc
2294       b(58)=ccc*(w7*(8*p3p6*(ffmcfmb*hbcm+fmb+fmc+hbcm)+24*hbcm*p4p6)
2295      . +w11*(8*p3p6*(ffmcfmb*hbcm+fmb+fmc+hbcm)+24*hbcm*p4p6))
2296       b(59)=ccc*(w7*(24*p3p4*(-ffmcfmb*hbcm-fmb+hbcm)+16*p2p3*(
2297      . ffmcfmb*hbcm+fmb-hbcm)+8*p1p3*(ffmcfmb*hbcm-fmc-3*hbcm)+4*(-
2298      . ffmcfmb**2*hbcm3-3*ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2-2*
2299      . ffmcfmb*hbcm3-fmb*fmc*hbcm-fmb*hbcm2-2*fmb2*hbcm+fmc*hbcm2+4*
2300      . hbcm*p1p2-6*hbcm*p1p4+3*hbcm3))+w11*(24*p3p4*(-ffmcfmb*hbcm-
2301      . fmb+hbcm)+16*p2p3*(ffmcfmb*hbcm+fmb-hbcm)+8*p1p3*(ffmcfmb*hbcm
2302      . -fmc-3*hbcm)+4*(-ffmcfmb**2*hbcm3-3*ffmcfmb*fmb*hbcm2-ffmcfmb*
2303      . fmc*hbcm2-2*ffmcfmb*hbcm3-fmb*fmc*hbcm-fmb*hbcm2-2*fmb2*hbcm+
2304      . fmc*hbcm2+4*hbcm*p1p2-6*hbcm*p1p4+3*hbcm3)))
2305       b(61)=-4*ccc*hbcm
2306       b(62)=-8*ccc*fmb*p3p6
2307       b(63)=w13*ccc*((p3p7*p3p6)*(32*ffmcfmb+32)+8*p6p7*(-2*ffmcfmb*
2308      . hbcm2+fmb*hbcm-fmc*hbcm+4*hbcm2)+16*(-2*p1p3*p6p7-p2p3*p6p7+3*
2309      . p3p5*p6p7+3*p3p6*p4p7+3*p3p7*p4p6))
2310       b(64)=w13*ccc*((p5p7*p3p6)*(-32*ffmcfmb+32)+(p3p7*p3p6)*(-16*
2311      . ffmcfmb+16)+8*p6p7*(-ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm-ffmcfmb
2312      . *fmc*hbcm+2*ffmcfmb*hbcm2-fmb*fmc-fmb*hbcm+2*fmb2+fmc*hbcm-
2313      . hbcm2)+16*(p1p2*p6p7-p1p3*p6p7-3*p1p5*p6p7))
2314       b(65)=w11*ccc*((p3p7*p3p6)*(32*ffmcfmb+32)+8*p6p7*(-2*ffmcfmb*
2315      . hbcm2+fmb*hbcm-fmc*hbcm+4*hbcm2)+16*(-2*p1p3*p6p7-p2p3*p6p7+3*
2316      . p3p5*p6p7+3*p3p6*p4p7+3*p3p7*p4p6))
2317       b(66)=ccc*(w7*(16*p6p7*(hbcm*p1p11+hbcm*p2p11-2*hbcm*p5p11)+16*
2318      . p3p6*(-fmb*p7p11-fmc*p7p11-hbcm*p7p11)+16*(-hbcm*p3p7*p6p11-2*
2319      . hbcm*p4p6*p7p11-2*hbcm*p4p7*p6p11))+w11*(32*p4p7*(-hbcm*p6p11+
2320      . hbcm*p6p8)+32*p4p6*(-hbcm*p7p11+hbcm*p7p8)+16*p3p7*(-hbcm*
2321      . p6p11+hbcm*p6p8)+16*p6p7*(hbcm*p1p11-hbcm*p1p8+hbcm*p2p11-hbcm
2322      . *p2p8-2*hbcm*p5p11+2*hbcm*p5p8)+16*p3p6*(-fmb*p7p11+fmb*p7p8-
2323      . fmc*p7p11+fmc*p7p8-hbcm*p7p11+hbcm*p7p8))+w13*(16*p6p7*(-hbcm*
2324      . p1p10-hbcm*p2p10+2*hbcm*p5p10)+16*p3p6*(fmb*p7p10+fmc*p7p10+
2325      . hbcm*p7p10)+16*(hbcm*p3p7*p6p10+2*hbcm*p4p6*p7p10+2*hbcm*p4p7*
2326      . p6p10)))
2327       b(67)=w13*ccc*(p3p6*(16*ffmcfmb+8)+32*p4p6)
2328       b(68)=w11*ccc*(p3p6*(16*ffmcfmb+8)+32*p4p6)
2329       b(69)=w13*ccc*(p3p7*(16*ffmcfmb-24)-32*p5p7)
2330       b(70)=w13*ccc*(16*p5p7*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*p3p7*(
2331      . ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm-ffmcfmb*
2332      . hbcm2+fmb*fmc+2*fmb*hbcm-2*fmb2-fmc*hbcm)+16*(-ffmcfmb*p1p3*
2333      . p3p7+2*p1p2*p3p7+3*p1p3*p5p7-3*p1p4*p3p7))
2334       b(71)=w11*ccc*(p3p7*(16*ffmcfmb-24)-32*p5p7)
2335       b(72)=4*ccc*w13*(2*ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm+ffmcfmb*
2336      . fmc*hbcm-4*ffmcfmb*hbcm2+fmb*fmc+fmb*hbcm-3*fmb2-fmc*hbcm+2*
2337      . hbcm2+6*p1p2-6*p1p3-8*p1p4)
2338       b(73)=ccc*(8*w7*p6p7*(fmb+fmc)+8*w11*p6p7*(fmb+fmc))
2339       b(74)=8*ccc*w11*p6p7*(-fmb-fmc)
2340       b(75)=ccc*(8*w7*(-ffmcfmb*hbcm*p1p11-2*ffmcfmb*hbcm*p2p11+3*
2341      . ffmcfmb*hbcm*p3p11+3*ffmcfmb*hbcm*p4p11-2*fmb*p2p11+3*fmb*
2342      . p3p11+3*fmb*p4p11+fmc*p1p11+hbcm*p1p11+2*hbcm*p2p11-3*hbcm*
2343      . p3p11-3*hbcm*p4p11)+8*w11*(-ffmcfmb*hbcm*p1p11+ffmcfmb*hbcm*
2344      . p1p8-2*ffmcfmb*hbcm*p2p11+2*ffmcfmb*hbcm*p2p8+3*ffmcfmb*hbcm*
2345      . p3p11-3*ffmcfmb*hbcm*p3p8+3*ffmcfmb*hbcm*p4p11-3*ffmcfmb*hbcm*
2346      . p4p8-2*fmb*p2p11+2*fmb*p2p8+3*fmb*p3p11-3*fmb*p3p8+3*fmb*p4p11
2347      . -3*fmb*p4p8+fmc*p1p11-fmc*p1p8+hbcm*p1p11-hbcm*p1p8+2*hbcm*
2348      . p2p11-2*hbcm*p2p8-3*hbcm*p3p11+3*hbcm*p3p8-3*hbcm*p4p11+3*hbcm
2349      . *p4p8)+8*w13*(ffmcfmb*hbcm*p1p10+2*ffmcfmb*hbcm*p2p10-3*
2350      . ffmcfmb*hbcm*p3p10-3*ffmcfmb*hbcm*p4p10+2*fmb*p2p10-3*fmb*
2351      . p3p10-3*fmb*p4p10-fmc*p1p10-hbcm*p1p10-2*hbcm*p2p10+3*hbcm*
2352      . p3p10+3*hbcm*p4p10))
2353       ans2=w13*(16*p1p3*(-3*p1p10-2*p2p10+3*p3p10+3*p4p10)+8*(-3*
2354      . ffmcfmb*hbcm2*p1p10-ffmcfmb*hbcm2*p2p10+2*ffmcfmb*hbcm2*p3p10+
2355      . 2*ffmcfmb*hbcm2*p4p10-fmb*hbcm*p2p10+2*fmb*hbcm*p3p10+2*fmb*
2356      . hbcm*p4p10-fmc*hbcm*p1p10+5*hbcm2*p1p10+hbcm2*p2p10-2*hbcm2*
2357      . p3p10-2*hbcm2*p4p10-2*p1p10*p2p3+6*p1p10*p3p5))
2358       ans1=w7*(16*p1p3*(3*p1p11+2*p2p11-3*p3p11-3*p4p11)+8*(3*ffmcfmb
2359      . *hbcm2*p1p11+ffmcfmb*hbcm2*p2p11-2*ffmcfmb*hbcm2*p3p11-2*
2360      . ffmcfmb*hbcm2*p4p11+fmb*hbcm*p2p11-2*fmb*hbcm*p3p11-2*fmb*hbcm
2361      . *p4p11+fmc*hbcm*p1p11-5*hbcm2*p1p11-hbcm2*p2p11+2*hbcm2*p3p11+
2362      . 2*hbcm2*p4p11+2*p1p11*p2p3-6*p1p11*p3p5))+w11*(48*p3p5*(-p1p11
2363      . +p1p8)+16*p2p3*(p1p11-p1p8)+16*p1p3*(3*p1p11-3*p1p8+2*p2p11-2*
2364      . p2p8-3*p3p11+3*p3p8-3*p4p11+3*p4p8)+8*(3*ffmcfmb*hbcm2*p1p11-3
2365      . *ffmcfmb*hbcm2*p1p8+ffmcfmb*hbcm2*p2p11-ffmcfmb*hbcm2*p2p8-2*
2366      . ffmcfmb*hbcm2*p3p11+2*ffmcfmb*hbcm2*p3p8-2*ffmcfmb*hbcm2*p4p11
2367      . +2*ffmcfmb*hbcm2*p4p8+fmb*hbcm*p2p11-fmb*hbcm*p2p8-2*fmb*hbcm*
2368      . p3p11+2*fmb*hbcm*p3p8-2*fmb*hbcm*p4p11+2*fmb*hbcm*p4p8+fmc*
2369      . hbcm*p1p11-fmc*hbcm*p1p8-5*hbcm2*p1p11+5*hbcm2*p1p8-hbcm2*
2370      . p2p11+hbcm2*p2p8+2*hbcm2*p3p11-2*hbcm2*p3p8+2*hbcm2*p4p11-2*
2371      . hbcm2*p4p8))+ans2
2372       ans=ccc*ans1
2373       b(76)=ans
2374       b(77)=ccc*(w7*(16*p3p6*(-2*p1p11-p2p11+3*p5p11)+8*(2*ffmcfmb*
2375      . hbcm2*p6p11-fmb*hbcm*p6p11+fmc*hbcm*p6p11-4*hbcm2*p6p11+4*p1p3
2376      . *p6p11+2*p2p3*p6p11-6*p3p5*p6p11))+w11*(48*p3p5*(-p6p11+p6p8)+
2377      . 16*p2p3*(p6p11-p6p8)+32*p1p3*(p6p11-p6p8)+16*p3p6*(-2*p1p11+2*
2378      . p1p8-p2p11+p2p8+3*p5p11-3*p5p8)+8*(2*ffmcfmb*hbcm2*p6p11-2*
2379      . ffmcfmb*hbcm2*p6p8-fmb*hbcm*p6p11+fmb*hbcm*p6p8+fmc*hbcm*p6p11
2380      . -fmc*hbcm*p6p8-4*hbcm2*p6p11+4*hbcm2*p6p8))+w13*(16*p3p6*(2*
2381      . p1p10+p2p10-3*p5p10)+8*(-2*ffmcfmb*hbcm2*p6p10+fmb*hbcm*p6p10-
2382      . fmc*hbcm*p6p10+4*hbcm2*p6p10-4*p1p3*p6p10-2*p2p3*p6p10+6*p3p5*
2383      . p6p10))+8*p3p13)
2384       b(78)=ccc*(8*w7*(fmb*p6p11+fmc*p6p11)+8*w11*(fmb*p6p11-fmb*p6p8
2385      . +fmc*p6p11-fmc*p6p8)+8*w13*(-fmb*p6p10-fmc*p6p10))
2386       b(81)=8*ccc*w13*p6p7*(-fmb-fmc)
2387       b(82)=-8*ccc*p3p7
2388       b(83)=ccc*(8*p3p7*(ffmcfmb*hbcm+fmb+fmc+hbcm)+8*(hbcm*p4p7+2*
2389      . hbcm*p5p7))
2390       b(84)=8*ccc*(2*p3p7+p4p7+3*p5p7)
2391       b(85)=4*ccc*(fmb*hbcm-fmc*hbcm-4*hbcm2+2*p1p3+4*p2p3-6*p3p4-2*
2392      . p3p5)
2393       b(86)=-8*ccc
2394       b(87)=4*ccc*(ffmcfmb*hbcm+2*fmb+fmc-hbcm)
2395       b(88)=w13*ccc*(24*p5p7*(-ffmcfmb*hbcm-fmb+hbcm)+8*p3p7*(ffmcfmb
2396      . **2*hbcm+ffmcfmb*fmb-3*ffmcfmb*hbcm-2*fmb+2*hbcm))
2397       b(89)=-4*ccc*hbcm
2398       b(90)=ccc*(w7*(24*p5p7*(ffmcfmb*hbcm+fmb-hbcm)+8*p3p7*(-ffmcfmb
2399      . **2*hbcm-ffmcfmb*fmb+3*ffmcfmb*hbcm+2*fmb-2*hbcm))+w11*(24*
2400      . p5p7*(ffmcfmb*hbcm+fmb-hbcm)+8*p3p7*(-ffmcfmb**2*hbcm-ffmcfmb*
2401      . fmb+3*ffmcfmb*hbcm+2*fmb-2*hbcm)))
2402       b(91)=w11*ccc*(24*p5p7*(-ffmcfmb*hbcm-fmb+hbcm)+8*p3p7*(ffmcfmb
2403      . **2*hbcm+ffmcfmb*fmb-3*ffmcfmb*hbcm-2*fmb+2*hbcm))
2404       b(92)=8*ccc*(-hbcm2+2*p1p3+p2p3-p3p4-p3p5)
2405       b(93)=8*ccc*p3p6
2406       b(94)=4*ccc*(ffmcfmb*hbcm+fmb-hbcm)
2407       do 200 n=1,94
2408          c(n,1)=c(n,1)-0.09090909090909091d0*b(n)
2409          c(n,2)=c(n,2)-0.1680909685530997d0*b(n)
2410          c(n,3)=c(n,3)-0.2077659977796572d0*b(n)
2411 200   continue
2412       return
2413       end
2414
2415       subroutine amp1s1_3p2(cc)
2416       implicit double precision(a-h,o-z)
2417       implicit integer (i-n)
2418       dimension b(12)
2419 #include "inclcon.h"
2420 #include "inclppp.h"
2421 #include "inclamp.h"
2422       do 100 n=1,12
2423          b(n)=0.0d0
2424 100   continue
2425       ccc=cc/((ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*p3p5+fmb2+
2426      . hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2))
2427       b(1)=-4*ccc*p6p7*w1
2428       b(2)=4*ccc*p6p7*w2
2429       b(3)=4*ccc*(-p7p8*w1+p7p9*w2)
2430       b(4)=4*ccc*p3p7*w1
2431       b(5)=-4*ccc*p3p7*w2
2432       b(6)=4*ccc*(hbcm*p7p8*w1-hbcm*p7p9*w2)
2433       b(7)=4*ccc*(-p6p8*w1+p6p9*w2)
2434       b(8)=4*ccc*p3p6*w1
2435       b(9)=-4*ccc*p3p6*w2
2436       b(10)=4*ccc*(hbcm*p6p8*w1-hbcm*p6p9*w2)
2437       b(11)=4*ccc*hbcm*p6p7*w1
2438       b(12)=-4*ccc*hbcm*p6p7*w2
2439       do 200 n=1,12
2440          c(n,1)=c(n,1)+1d0*b(n)
2441 200   continue
2442       return
2443       end
2444
2445       subroutine amp27_3p2(cc)
2446       implicit double precision(a-h,o-z)
2447       implicit integer (i-n)
2448       dimension b(94)
2449 #include "inclcon.h"
2450 #include "inclppp.h"
2451 #include "inclamp.h"
2452       do 100 n=1,94
2453          b(n)=0.0d0
2454 100   continue
2455       ccc=cc/((-2*p2p5)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2)*(
2456      . ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2+2*ffmcfmb*p2p3-2*ffmcfmb*p3p5
2457      . +fmb2+hbcm2-2*p2p3-2*p2p5+2*p3p5))
2458       b(3)=ccc*(w1*(8*p5p7*(-p1p8-p2p8-p4p8+p5p8)+8*p4p7*(-p1p8-p2p8-
2459      . p4p8+p5p8)+8*p3p7*(-p1p8-p2p8-p4p8+p5p8))+w16*(8*p5p7*(-p1p11+
2460      . p1p9-p2p11+p2p9-p4p11+p4p9+p5p11-p5p9)+8*p4p7*(-p1p11+p1p9-
2461      . p2p11+p2p9-p4p11+p4p9+p5p11-p5p9)+8*p3p7*(-p1p11+p1p9-p2p11+
2462      . p2p9-p4p11+p4p9+p5p11-p5p9)))
2463       ans=ccc*(w1*(8*p5p6*(p3p8+p4p8)+8*p4p6*(-p1p8+p2p8-p3p8-p5p8)+8
2464      . *p3p6*(-p1p8+p2p8-p5p8)+4*(ffmcfmb*fmb*hbcm*p6p8-ffmcfmb*fmc*
2465      . hbcm*p6p8-ffmcfmb*hbcm2*p6p8-fmb*fmc*p6p8+fmb2*p6p8+fmc*hbcm*
2466      . p6p8+hbcm2*p6p8-2*p1p2*p6p8+2*p1p3*p6p8+2*p1p5*p6p8-2*p2p3*
2467      . p6p8-2*p2p5*p6p8+2*p3p5*p6p8))+w16*(8*p3p5*(p6p11-p6p9)+8*p5p6
2468      . *(p3p11-p3p9+p4p11-p4p9)+8*p2p5*(-p6p11+p6p9)+8*p2p3*(-p6p11+
2469      . p6p9)+8*p1p5*(p6p11-p6p9)+8*p1p3*(p6p11-p6p9)+8*p1p2*(-p6p11+
2470      . p6p9)+8*p4p6*(-p1p11+p1p9+p2p11-p2p9-p3p11+p3p9-p5p11+p5p9)+8*
2471      . p3p6*(-p1p11+p1p9+p2p11-p2p9-p5p11+p5p9)+4*(ffmcfmb*fmb*hbcm*
2472      . p6p11-ffmcfmb*fmb*hbcm*p6p9-ffmcfmb*fmc*hbcm*p6p11+ffmcfmb*fmc
2473      . *hbcm*p6p9-ffmcfmb*hbcm2*p6p11+ffmcfmb*hbcm2*p6p9-fmb*fmc*
2474      . p6p11+fmb*fmc*p6p9+fmb2*p6p11-fmb2*p6p9+fmc*hbcm*p6p11-fmc*
2475      . hbcm*p6p9+hbcm2*p6p11-hbcm2*p6p9))+4*(-p1p13+2*p3p13+p4p13+
2476      . p5p13-p6p11))
2477       b(7)=ans
2478       b(8)=w1*ccc*(4*p4p6*(-2*ffmcfmb*hbcm2+fmb*hbcm-fmc*hbcm+2*hbcm2
2479      . )+4*p3p6*(ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm+fmb*fmc-fmb2)+4*(-
2480      . hbcm2*p5p6+2*p1p2*p3p6+2*p1p3*p4p6-2*p1p5*p3p6-2*p2p3*p4p6+2*
2481      . p2p5*p3p6-2*p3p4*p5p6+2*p3p5*p4p6))
2482       b(9)=w16*ccc*(4*p4p6*(2*ffmcfmb*hbcm2-fmb*hbcm+fmc*hbcm-2*hbcm2
2483      . )+4*p3p6*(-ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm-fmb*fmc+fmb2)+4*(
2484      . hbcm2*p5p6-2*p1p2*p3p6-2*p1p3*p4p6+2*p1p5*p3p6+2*p2p3*p4p6-2*
2485      . p2p5*p3p6+2*p3p4*p5p6-2*p3p5*p4p6))
2486       ans3=4*(-fmb*p3p13-fmc*p3p13+hbcm*p1p13+hbcm*p3p13+hbcm*p4p13-
2487      . hbcm*p5p13+hbcm*p6p11)
2488       ans2=w16*(8*p2p5*(hbcm*p6p11-hbcm*p6p9)+8*p1p5*(-hbcm*p6p11+
2489      . hbcm*p6p9)+8*p1p2*(hbcm*p6p11-hbcm*p6p9)+8*p4p6*(-hbcm*p1p11+
2490      . hbcm*p1p9-hbcm*p2p11+hbcm*p2p9-hbcm*p4p11+hbcm*p4p9+hbcm*p5p11
2491      . -hbcm*p5p9)+8*p3p5*(ffmcfmb*hbcm*p6p11-ffmcfmb*hbcm*p6p9-fmc*
2492      . p6p11+fmc*p6p9-hbcm*p6p11+hbcm*p6p9)+8*p2p3*(-ffmcfmb*hbcm*
2493      . p6p11+ffmcfmb*hbcm*p6p9+fmc*p6p11-fmc*p6p9+hbcm*p6p11-hbcm*
2494      . p6p9)+8*p1p3*(-ffmcfmb*hbcm*p6p11+ffmcfmb*hbcm*p6p9-2*fmb*
2495      . p6p11+2*fmb*p6p9-fmc*p6p11+fmc*p6p9+hbcm*p6p11-hbcm*p6p9)+8*
2496      . p3p6*(ffmcfmb*hbcm*p1p11-ffmcfmb*hbcm*p1p9-ffmcfmb*hbcm*p3p11+
2497      . ffmcfmb*hbcm*p3p9-ffmcfmb*hbcm*p4p11+ffmcfmb*hbcm*p4p9-fmb*
2498      . p1p11+fmb*p1p9-fmb*p2p11+fmb*p2p9+fmb*p3p11-fmb*p3p9+fmb*p4p11
2499      . -fmb*p4p9+fmb*p5p11-fmb*p5p9-fmc*p2p11+fmc*p2p9+fmc*p5p11-fmc*
2500      . p5p9)+4*(ffmcfmb*fmb*hbcm2*p6p11-ffmcfmb*fmb*hbcm2*p6p9+
2501      . ffmcfmb*fmc*hbcm2*p6p11-ffmcfmb*fmc*hbcm2*p6p9+ffmcfmb*hbcm3*
2502      . p6p11-ffmcfmb*hbcm3*p6p9-fmb*fmc*hbcm*p6p11+fmb*fmc*hbcm*p6p9-
2503      . fmb2*hbcm*p6p11+fmb2*hbcm*p6p9-fmc*hbcm2*p6p11+fmc*hbcm2*p6p9-
2504      . hbcm3*p6p11+hbcm3*p6p9))+ans3
2505       ans1=w1*(8*p4p6*(-hbcm*p1p8-hbcm*p2p8+hbcm*p3p8-hbcm*p4p8+hbcm*
2506      . p5p8)+8*p5p6*(-fmb*p3p8-fmc*p3p8)+8*p3p5*(ffmcfmb*hbcm*p6p8-
2507      . fmc*p6p8-hbcm*p6p8)+8*p2p3*(-ffmcfmb*hbcm*p6p8+fmc*p6p8+hbcm*
2508      . p6p8)+8*p3p6*(ffmcfmb*hbcm*p1p8-ffmcfmb*hbcm*p4p8-fmb*p1p8-fmb
2509      . *p2p8+fmb*p4p8+fmb*p5p8-fmc*p2p8+fmc*p5p8)+8*p1p3*(-ffmcfmb*
2510      . hbcm*p6p8-2*fmb*p6p8-fmc*p6p8+hbcm*p6p8)+4*(ffmcfmb*fmb*hbcm2*
2511      . p6p8+ffmcfmb*fmc*hbcm2*p6p8+ffmcfmb*hbcm3*p6p8-fmb*fmc*hbcm*
2512      . p6p8-fmb2*hbcm*p6p8-fmc*hbcm2*p6p8+2*hbcm*p1p2*p6p8-2*hbcm*
2513      . p1p5*p6p8+2*hbcm*p2p5*p6p8-hbcm3*p6p8))+ans2
2514       ans=ccc*ans1
2515       b(10)=ans
2516       b(13)=2*ccc*w1*(2*ffmcfmb*hbcm2-fmb2+fmc2-hbcm2+2*p1p3+4*p1p4+2
2517      . *p2p3+2*p2p5+2*p3p4-2*p3p5)
2518       b(14)=2*ccc*w16*(-2*ffmcfmb*hbcm2+fmb2-fmc2+hbcm2-2*p1p3-4*p1p4
2519      . -2*p2p3-2*p2p5-2*p3p4+2*p3p5)
2520       b(15)=w1*ccc*(4*p3p5*(fmb+fmc)+4*p2p3*(-fmb-fmc)+4*p1p3*(-2*fmb
2521      . -2*fmc+hbcm)+2*(-2*ffmcfmb*fmb*hbcm2-2*ffmcfmb*fmc*hbcm2+2*fmb
2522      . *hbcm2+fmb2*hbcm+2*fmc*hbcm2-fmc2*hbcm-4*hbcm*p1p4-2*hbcm*p2p5
2523      . -2*hbcm*p3p4-hbcm3))
2524       b(16)=w16*ccc*(4*p3p5*(-fmb-fmc)+4*p2p3*(fmb+fmc)+4*p1p3*(2*fmb
2525      . +2*fmc-hbcm)+2*(2*ffmcfmb*fmb*hbcm2+2*ffmcfmb*fmc*hbcm2-2*fmb*
2526      . hbcm2-fmb2*hbcm-2*fmc*hbcm2+fmc2*hbcm+4*hbcm*p1p4+2*hbcm*p2p5+
2527      . 2*hbcm*p3p4+hbcm3))
2528       b(21)=ccc*(4*w16*(-hbcm*p1p11+hbcm*p1p9+hbcm*p2p11-hbcm*p2p9+2*
2529      . hbcm*p3p11-2*hbcm*p3p9+3*hbcm*p4p11-3*hbcm*p4p9-hbcm*p5p11+
2530      . hbcm*p5p9)+4*w1*(3*fmb*p3p8+3*fmc*p3p8-hbcm*p1p8+hbcm*p2p8-
2531      . hbcm*p3p8+3*hbcm*p4p8-hbcm*p5p8))
2532       b(23)=w1*ccc*(4*p3p6*(-ffmcfmb*hbcm+2*fmb+fmc)+8*hbcm*p4p6)
2533       b(24)=6*ccc*w1*(-fmb-fmc+hbcm)
2534       b(25)=2*ccc*w1*(-2*ffmcfmb*hbcm2+3*fmb*hbcm-3*fmc*hbcm-hbcm2+2*
2535      . p1p3-2*p2p3-6*p3p4+2*p3p5)
2536       ans2=w1*(16*(p5p6*p3p7)*(-p3p8-p4p8)+16*(p4p6*p3p7)*(p1p8-p2p8+
2537      . p3p8+p5p8)+16*(p3p7*p3p6)*(2*p1p8-p2p8+p5p8)+8*p4p6*(2*ffmcfmb
2538      . *hbcm2*p7p8-fmb*hbcm*p7p8+fmc*hbcm*p7p8-2*hbcm2*p7p8)+8*p3p7*(
2539      . -ffmcfmb*fmb*hbcm*p6p8+ffmcfmb*fmc*hbcm*p6p8+ffmcfmb*hbcm2*
2540      . p6p8+fmb*fmc*p6p8-fmb2*p6p8-fmc*hbcm*p6p8-hbcm2*p6p8)+8*p3p6*(
2541      . -ffmcfmb*fmb*hbcm*p7p8+ffmcfmb*fmc*hbcm*p7p8-fmb*fmc*p7p8+fmb2
2542      . *p7p8)+8*(hbcm2*p5p6*p7p8-2*p1p2*p3p6*p7p8+2*p1p2*p3p7*p6p8-2*
2543      . p1p3*p3p7*p6p8-2*p1p3*p4p6*p7p8+2*p1p5*p3p6*p7p8-2*p1p5*p3p7*
2544      . p6p8+2*p1p8*p3p6*p4p7+2*p1p8*p3p6*p5p7+2*p2p3*p3p7*p6p8+2*p2p3
2545      . *p4p6*p7p8-2*p2p5*p3p6*p7p8+2*p2p5*p3p7*p6p8+2*p3p4*p5p6*p7p8-
2546      . 2*p3p5*p3p7*p6p8-2*p3p5*p4p6*p7p8))+(8*p3p6*(p1p12-p3p12-p4p12
2547      . -p5p12+p7p11)+4*(fmb*hbcm*p6p12-fmb*hbcm*p7p13-fmc*hbcm*p6p12+
2548      . fmc*hbcm*p7p13-hbcm2*p6p12-hbcm2*p7p13+2*p1p3*p7p13+2*p2p3*
2549      . p6p12+2*p3p13*p4p7+2*p3p13*p5p7-2*p3p4*p6p12-2*p3p5*p7p13))
2550       ans1=w16*(16*(p3p7*p3p5)*(-p6p11+p6p9)+16*(p5p6*p3p7)*(-p3p11+
2551      . p3p9-p4p11+p4p9)+16*(p3p7*p2p5)*(p6p11-p6p9)+16*(p3p7*p2p3)*(
2552      . p6p11-p6p9)+16*(p3p7*p1p5)*(-p6p11+p6p9)+16*(p3p7*p1p3)*(-
2553      . p6p11+p6p9)+16*(p3p7*p1p2)*(p6p11-p6p9)+16*(p4p6*p3p7)*(p1p11-
2554      . p1p9-p2p11+p2p9+p3p11-p3p9+p5p11-p5p9)+16*(p5p7*p3p6)*(p1p11-
2555      . p1p9)+16*(p4p7*p3p6)*(p1p11-p1p9)+16*(p3p7*p3p6)*(2*p1p11-2*
2556      . p1p9-p2p11+p2p9+p5p11-p5p9)+8*p4p6*(-2*ffmcfmb*hbcm2*p7p9+fmb*
2557      . hbcm*p7p9-fmc*hbcm*p7p9+2*hbcm2*p7p9)+8*p3p7*(-ffmcfmb*fmb*
2558      . hbcm*p6p11+ffmcfmb*fmb*hbcm*p6p9+ffmcfmb*fmc*hbcm*p6p11-
2559      . ffmcfmb*fmc*hbcm*p6p9+ffmcfmb*hbcm2*p6p11-ffmcfmb*hbcm2*p6p9+
2560      . fmb*fmc*p6p11-fmb*fmc*p6p9-fmb2*p6p11+fmb2*p6p9-fmc*hbcm*p6p11
2561      . +fmc*hbcm*p6p9-hbcm2*p6p11+hbcm2*p6p9)+8*p3p6*(ffmcfmb*fmb*
2562      . hbcm*p7p9-ffmcfmb*fmc*hbcm*p7p9+fmb*fmc*p7p9-fmb2*p7p9)+8*(-
2563      . hbcm2*p5p6*p7p9+2*p1p2*p3p6*p7p9+2*p1p3*p4p6*p7p9-2*p1p5*p3p6*
2564      . p7p9-2*p2p3*p4p6*p7p9+2*p2p5*p3p6*p7p9-2*p3p4*p5p6*p7p9+2*p3p5
2565      . *p4p6*p7p9))+ans2
2566       ans=ccc*ans1
2567       b(30)=ans
2568       b(31)=w1*ccc*(4*p5p6*(fmb+fmc)+4*p3p6*(-ffmcfmb*hbcm+fmb)-4*
2569      . hbcm*p4p6)
2570       b(32)=w16*ccc*(4*p5p6*(fmb+fmc)+4*p3p6*(-ffmcfmb*hbcm+fmb)-4*
2571      . hbcm*p4p6)
2572       b(33)=ccc*(w1*(8*p5p7*(ffmcfmb*hbcm*p6p8+fmb*p6p8-hbcm*p6p8)+8*
2573      . p4p7*(ffmcfmb*hbcm*p6p8+fmb*p6p8-hbcm*p6p8)+8*p3p7*(ffmcfmb*
2574      . hbcm*p6p8+fmb*p6p8-hbcm*p6p8))+w16*(8*p5p7*(ffmcfmb*hbcm*p6p11
2575      . -ffmcfmb*hbcm*p6p9+fmb*p6p11-fmb*p6p9-hbcm*p6p11+hbcm*p6p9)+8*
2576      . p4p7*(ffmcfmb*hbcm*p6p11-ffmcfmb*hbcm*p6p9+fmb*p6p11-fmb*p6p9-
2577      . hbcm*p6p11+hbcm*p6p9)+8*p3p7*(ffmcfmb*hbcm*p6p11-ffmcfmb*hbcm*
2578      . p6p9+fmb*p6p11-fmb*p6p9-hbcm*p6p11+hbcm*p6p9))+4*(fmb*p6p12-
2579      . fmb*p7p13+fmc*p6p12-fmc*p7p13-hbcm*p6p12+hbcm*p7p13))
2580       b(34)=6*ccc*w16*(-fmb-fmc+hbcm)
2581       b(36)=2*ccc*w16*(2*ffmcfmb*hbcm2-3*fmb*hbcm+3*fmc*hbcm+hbcm2-2*
2582      . p1p3+2*p2p3+6*p3p4-2*p3p5)
2583       b(39)=8*ccc*w16*(-p3p6*p3p7-p3p6*p4p7-p3p6*p5p7)
2584       b(42)=8*ccc*w16*(p3p6*p3p7+p3p6*p4p7+p3p6*p5p7)
2585       b(43)=ccc*(8*w1*(-p3p7*p6p8-p4p7*p6p8-p5p7*p6p8)+w16*(8*p5p7*(-
2586      . p6p11+p6p9)+8*p4p7*(-p6p11+p6p9)+8*p3p7*(-p6p11+p6p9))+4*(
2587      . p6p12-p7p13))
2588       b(44)=w16*ccc*(4*p4p6*(2*ffmcfmb*hbcm2-fmb*hbcm+fmc*hbcm-2*
2589      . hbcm2)+4*p3p6*(-ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm-fmb*fmc+fmb2
2590      . )+4*(hbcm2*p5p6-2*p1p2*p3p6-2*p1p3*p4p6+2*p1p5*p3p6+2*p2p3*
2591      . p4p6-2*p2p5*p3p6+2*p3p4*p5p6-2*p3p5*p4p6))
2592       b(45)=4*ccc*w16*(-p3p6-3*p4p6+p5p6)
2593       b(46)=w16*ccc*(4*p5p6*(-fmb-fmc)+4*p3p6*(ffmcfmb*hbcm-fmb)+4*
2594      . hbcm*p4p6)
2595       b(47)=4*ccc*w16*(p3p6+3*p4p6-p5p6)
2596       b(53)=ccc*(4*w1*(-p1p8+p2p8+2*p3p8+3*p4p8-p5p8)+4*w16*(-p1p11+
2597      . p1p9+p2p11-p2p9+2*p3p11-2*p3p9+3*p4p11-3*p4p9-p5p11+p5p9))
2598       b(54)=2*ccc*w16*(-2*ffmcfmb*hbcm2+3*fmb*hbcm-3*fmc*hbcm-hbcm2+2
2599      . *p1p3-2*p2p3-6*p3p4+2*p3p5)
2600       b(55)=6*ccc*w16*(fmb+fmc-hbcm)
2601       b(56)=2*ccc*w16*(2*ffmcfmb*hbcm2-fmb2+fmc2-hbcm2+2*p1p3+4*p1p4+
2602      . 2*p2p3+2*p2p5+2*p3p4-2*p3p5)
2603       b(58)=w16*ccc*(4*p3p6*(-ffmcfmb*hbcm+2*fmb+fmc)+8*hbcm*p4p6)
2604       b(59)=w16*ccc*(4*p3p5*(fmb+fmc)+4*p2p3*(-fmb-fmc)+4*p1p3*(-2*
2605      . fmb-2*fmc+hbcm)+2*(-2*ffmcfmb*fmb*hbcm2-2*ffmcfmb*fmc*hbcm2+2*
2606      . fmb*hbcm2+fmb2*hbcm+2*fmc*hbcm2-fmc2*hbcm-4*hbcm*p1p4-2*hbcm*
2607      . p2p5-2*hbcm*p3p4-hbcm3))
2608       b(60)=w16*ccc*(4*p3p6*(ffmcfmb*hbcm-2*fmb-fmc)-8*hbcm*p4p6)
2609       b(65)=8*ccc*w1*(-p3p6*p3p7-p3p6*p4p7-p3p6*p5p7)
2610       b(66)=ccc*(w1*(8*p3p7*(-ffmcfmb*hbcm*p6p8-2*fmb*p6p8-fmc*p6p8+
2611      . hbcm*p6p8)+8*(-hbcm*p4p7*p6p8-hbcm*p5p7*p6p8))+w16*(8*p5p7*(-
2612      . hbcm*p6p11+hbcm*p6p9)+8*p4p7*(-hbcm*p6p11+hbcm*p6p9)+8*p3p7*(-
2613      . ffmcfmb*hbcm*p6p11+ffmcfmb*hbcm*p6p9-2*fmb*p6p11+2*fmb*p6p9-
2614      . fmc*p6p11+fmc*p6p9+hbcm*p6p11-hbcm*p6p9))+4*(hbcm*p6p12-hbcm*
2615      . p7p13))
2616       b(68)=4*ccc*w1*(-p3p6-3*p4p6+p5p6)
2617       b(75)=ccc*(4*w1*(2*fmb*p1p8+fmb*p2p8-fmb*p3p8-fmb*p5p8+2*fmc*
2618      . p1p8+fmc*p2p8-fmc*p3p8-fmc*p5p8-2*hbcm*p1p8-hbcm*p2p8+hbcm*
2619      . p3p8+hbcm*p5p8)+4*w16*(2*fmb*p1p11-2*fmb*p1p9+fmb*p2p11-fmb*
2620      . p2p9-fmb*p3p11+fmb*p3p9-fmb*p5p11+fmb*p5p9+2*fmc*p1p11-2*fmc*
2621      . p1p9+fmc*p2p11-fmc*p2p9-fmc*p3p11+fmc*p3p9-fmc*p5p11+fmc*p5p9-
2622      . 2*hbcm*p1p11+2*hbcm*p1p9-hbcm*p2p11+hbcm*p2p9+hbcm*p3p11-hbcm*
2623      . p3p9+hbcm*p5p11-hbcm*p5p9))
2624       ans2=w16*(8*p3p5*(-2*p1p11+2*p1p9-p2p11+p2p9+p3p11-p3p9+p5p11-
2625      . p5p9)+8*p3p4*(p1p11-p1p9-p3p11+p3p9-p4p11+p4p9)+8*p2p3*(2*
2626      . p1p11-2*p1p9+p2p11-p2p9-p3p11+p3p9-p5p11+p5p9)+8*p1p3*(p1p11-
2627      . p1p9-p3p11+p3p9-p4p11+p4p9)+4*(2*ffmcfmb*hbcm2*p1p11-2*ffmcfmb
2628      . *hbcm2*p1p9-2*ffmcfmb*hbcm2*p3p11+2*ffmcfmb*hbcm2*p3p9-2*
2629      . ffmcfmb*hbcm2*p4p11+2*ffmcfmb*hbcm2*p4p9-2*fmb*hbcm*p1p11+2*
2630      . fmb*hbcm*p1p9-fmb*hbcm*p2p11+fmb*hbcm*p2p9+fmb*hbcm*p3p11-fmb*
2631      . hbcm*p3p9+fmb*hbcm*p5p11-fmb*hbcm*p5p9+2*fmc*hbcm*p1p11-2*fmc*
2632      . hbcm*p1p9+fmc*hbcm*p2p11-fmc*hbcm*p2p9-fmc*hbcm*p3p11+fmc*hbcm
2633      . *p3p9-fmc*hbcm*p5p11+fmc*hbcm*p5p9-2*hbcm2*p1p11+2*hbcm2*p1p9-
2634      . hbcm2*p2p11+hbcm2*p2p9+hbcm2*p3p11-hbcm2*p3p9+hbcm2*p5p11-
2635      . hbcm2*p5p9))
2636       ans1=w1*(8*p3p5*(-2*p1p8-p2p8+p3p8+p5p8)+8*p3p4*(p1p8-p3p8-p4p8
2637      . )+8*p2p3*(2*p1p8+p2p8-p3p8-p5p8)+8*p1p3*(p1p8-p3p8-p4p8)+4*(2*
2638      . ffmcfmb*hbcm2*p1p8-2*ffmcfmb*hbcm2*p3p8-2*ffmcfmb*hbcm2*p4p8-2
2639      . *fmb*hbcm*p1p8-fmb*hbcm*p2p8+fmb*hbcm*p3p8+fmb*hbcm*p5p8+2*fmc
2640      . *hbcm*p1p8+fmc*hbcm*p2p8-fmc*hbcm*p3p8-fmc*hbcm*p5p8-2*hbcm2*
2641      . p1p8-hbcm2*p2p8+hbcm2*p3p8+hbcm2*p5p8))+ans2
2642       ans=ccc*ans1
2643       b(76)=ans
2644       b(77)=ccc*(w1*(16*p3p6*(-p2p8+p5p8)+4*(ffmcfmb*hbcm2*p6p8-2*fmb
2645      . *hbcm*p6p8+fmc*hbcm*p6p8-2*hbcm2*p6p8+4*p2p3*p6p8-4*p3p5*p6p8)
2646      . )+w16*(16*p3p5*(-p6p11+p6p9)+16*p2p3*(p6p11-p6p9)+16*p3p6*(-
2647      . p2p11+p2p9+p5p11-p5p9)+4*(ffmcfmb*hbcm2*p6p11-ffmcfmb*hbcm2*
2648      . p6p9-2*fmb*hbcm*p6p11+2*fmb*hbcm*p6p9+fmc*hbcm*p6p11-fmc*hbcm*
2649      . p6p9-2*hbcm2*p6p11+2*hbcm2*p6p9))-4*p3p13)
2650       b(78)=ccc*(4*w1*(ffmcfmb*hbcm*p6p8+2*fmb*p6p8+fmc*p6p8-2*hbcm*
2651      . p6p8)+4*w16*(ffmcfmb*hbcm*p6p11-ffmcfmb*hbcm*p6p9+2*fmb*p6p11-
2652      . 2*fmb*p6p9+fmc*p6p11-fmc*p6p9-2*hbcm*p6p11+2*hbcm*p6p9))
2653       b(83)=4*ccc*(-hbcm*p3p7-hbcm*p4p7-hbcm*p5p7)
2654       b(84)=4*ccc*(-p3p7-p4p7-p5p7)
2655       b(85)=4*ccc*(fmb*hbcm-fmc*hbcm+hbcm2-p1p3-p2p3+p3p4+p3p5)
2656       b(87)=-4*ccc*hbcm
2657       b(89)=-4*ccc*hbcm
2658       do 200 n=1,94
2659          c(n,2)=c(n,2)-0.8320502943378437d0*b(n)
2660          c(n,3)=c(n,3)+0.1869893980016914d0*b(n)
2661 200   continue
2662       return
2663       end
2664
2665       subroutine amp26_3p2(cc)
2666       implicit double precision(a-h,o-z)
2667       implicit integer (i-n)
2668       dimension b(94)
2669 #include "inclcon.h"
2670 #include "inclppp.h"
2671 #include "inclamp.h"
2672       do 100 n=1,94
2673          b(n)=0.0d0
2674 100   continue
2675       ccc=cc/((-2*p2p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*
2676      . p3p5+fmb2+hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p2p3+2*
2677      . ffmcfmb*p3p4+fmc2-2*p2p4))
2678       b(1)=w11*ccc*(4*p6p7*(2*ffmcfmb*hbcm2-fmb2+fmc2-hbcm2)+8*(-p1p3
2679      . *p6p7-2*p1p5*p6p7-p2p3*p6p7-p2p4*p6p7+p3p4*p6p7-p3p5*p6p7-p3p7
2680      . *p4p6+p3p7*p5p6-p4p6*p4p7-p4p6*p5p7+p4p7*p5p6+p5p6*p5p7))
2681       b(2)=w2*ccc*(4*p6p7*(-2*ffmcfmb*hbcm2+fmb2-fmc2+hbcm2)+8*(p1p3*
2682      . p6p7+2*p1p5*p6p7+p2p3*p6p7+p2p4*p6p7-p3p4*p6p7+p3p5*p6p7+p3p7*
2683      . p4p6-p3p7*p5p6+p4p6*p4p7+p4p6*p5p7-p4p7*p5p6-p5p6*p5p7))
2684       b(3)=ccc*(4*w2*(-2*ffmcfmb*hbcm2*p7p9+fmb2*p7p9-fmc2*p7p9+hbcm2
2685      . *p7p9+4*p1p2*p7p9-2*p1p3*p7p9-4*p1p4*p7p9+2*p2p3*p7p9+2*p2p4*
2686      . p7p9-2*p3p4*p7p9+2*p3p5*p7p9)+w11*(8*p3p5*(p7p11-p7p8)+8*p3p4*
2687      . (-p7p11+p7p8)+8*p2p4*(p7p11-p7p8)+8*p2p3*(p7p11-p7p8)+16*p1p4*
2688      . (-p7p11+p7p8)+8*p1p3*(-p7p11+p7p8)+16*p1p2*(p7p11-p7p8)+4*(-2*
2689      . ffmcfmb*hbcm2*p7p11+2*ffmcfmb*hbcm2*p7p8+fmb2*p7p11-fmb2*p7p8-
2690      . fmc2*p7p11+fmc2*p7p8+hbcm2*p7p11-hbcm2*p7p8)))
2691       b(4)=w11*ccc*(4*p3p7*(-fmb*hbcm+fmb2+fmc*hbcm-fmc2)+4*p5p7*(2*
2692      . ffmcfmb*hbcm2-fmb*hbcm+fmc*hbcm-hbcm2)+4*p4p7*(2*ffmcfmb*hbcm2
2693      . -fmb*hbcm+fmc*hbcm-hbcm2)+8*(2*p1p2*p3p7+p1p3*p4p7+p1p3*p5p7-2
2694      . *p1p4*p3p7-p2p3*p4p7-p2p3*p5p7+p2p4*p3p7+p3p4*p4p7+p3p4*p5p7-
2695      . p3p5*p4p7-p3p5*p5p7))
2696       b(5)=w2*ccc*(4*p3p7*(fmb*hbcm-fmb2-fmc*hbcm+fmc2)+4*p5p7*(-2*
2697      . ffmcfmb*hbcm2+fmb*hbcm-fmc*hbcm+hbcm2)+4*p4p7*(-2*ffmcfmb*
2698      . hbcm2+fmb*hbcm-fmc*hbcm+hbcm2)+8*(-2*p1p2*p3p7-p1p3*p4p7-p1p3*
2699      . p5p7+2*p1p4*p3p7+p2p3*p4p7+p2p3*p5p7-p2p4*p3p7-p3p4*p4p7-p3p4*
2700      . p5p7+p3p5*p4p7+p3p5*p5p7))
2701       ans2=w11*(8*p3p4*(hbcm*p7p11-hbcm*p7p8)+8*p2p4*(-hbcm*p7p11+
2702      . hbcm*p7p8)+8*p2p3*(-hbcm*p7p11+hbcm*p7p8)+16*p1p4*(hbcm*p7p11-
2703      . hbcm*p7p8)+16*p1p2*(-hbcm*p7p11+hbcm*p7p8)+8*p5p7*(-hbcm*p1p11
2704      . +hbcm*p1p8+hbcm*p2p11-hbcm*p2p8-hbcm*p4p11+hbcm*p4p8+hbcm*
2705      . p5p11-hbcm*p5p8)+8*p4p7*(-hbcm*p1p11+hbcm*p1p8+hbcm*p2p11-hbcm
2706      . *p2p8-hbcm*p4p11+hbcm*p4p8+hbcm*p5p11-hbcm*p5p8)+8*p3p5*(-fmb*
2707      . p7p11+fmb*p7p8-fmc*p7p11+fmc*p7p8)+8*p1p3*(2*fmb*p7p11-2*fmb*
2708      . p7p8+2*fmc*p7p11-2*fmc*p7p8-hbcm*p7p11+hbcm*p7p8)+8*p3p7*(-fmb
2709      . *p1p11+fmb*p1p8+fmb*p2p11-fmb*p2p8-fmb*p4p11+fmb*p4p8-fmc*
2710      . p1p11+fmc*p1p8+fmc*p2p11-fmc*p2p8-fmc*p4p11+fmc*p4p8+hbcm*
2711      . p5p11-hbcm*p5p8)+4*(2*ffmcfmb*fmb*hbcm2*p7p11-2*ffmcfmb*fmb*
2712      . hbcm2*p7p8+2*ffmcfmb*fmc*hbcm2*p7p11-2*ffmcfmb*fmc*hbcm2*p7p8-
2713      . 2*fmb*hbcm2*p7p11+2*fmb*hbcm2*p7p8-fmb2*hbcm*p7p11+fmb2*hbcm*
2714      . p7p8-2*fmc*hbcm2*p7p11+2*fmc*hbcm2*p7p8+fmc2*hbcm*p7p11-fmc2*
2715      . hbcm*p7p8+hbcm3*p7p11-hbcm3*p7p8))
2716       ans1=w2*(8*p5p7*(-hbcm*p1p9+hbcm*p2p9-hbcm*p4p9+hbcm*p5p9)+8*
2717      . p4p7*(-hbcm*p1p9+hbcm*p2p9-hbcm*p4p9+hbcm*p5p9)+8*p3p5*(-fmb*
2718      . p7p9-fmc*p7p9)+8*p3p7*(-fmb*p1p9+fmb*p2p9-fmb*p4p9-fmc*p1p9+
2719      . fmc*p2p9-fmc*p4p9+hbcm*p5p9)+8*p1p3*(2*fmb*p7p9+2*fmc*p7p9-
2720      . hbcm*p7p9)+4*(2*ffmcfmb*fmb*hbcm2*p7p9+2*ffmcfmb*fmc*hbcm2*
2721      . p7p9-2*fmb*hbcm2*p7p9-fmb2*hbcm*p7p9-2*fmc*hbcm2*p7p9+fmc2*
2722      . hbcm*p7p9-4*hbcm*p1p2*p7p9+4*hbcm*p1p4*p7p9-2*hbcm*p2p3*p7p9-2
2723      . *hbcm*p2p4*p7p9+2*hbcm*p3p4*p7p9+hbcm3*p7p9))+ans2
2724       ans=ccc*ans1
2725       b(6)=ans
2726       b(7)=ccc*(w2*(8*p5p6*(-p2p9+p3p9+p4p9)+8*p4p6*(-p1p9-p3p9-p5p9)
2727      . +8*p3p6*(-p1p9-p5p9)+4*(ffmcfmb*fmb*hbcm*p6p9-ffmcfmb*fmc*hbcm
2728      . *p6p9-ffmcfmb*hbcm2*p6p9-fmb*fmc*p6p9+fmb2*p6p9+fmc*hbcm*p6p9+
2729      . hbcm2*p6p9+2*p1p3*p6p9+2*p1p5*p6p9+2*p3p5*p6p9))+w11*(8*p3p5*(
2730      . p6p11-p6p8)+8*p5p6*(-p2p11+p2p8+p3p11-p3p8+p4p11-p4p8)+8*p1p5*
2731      . (p6p11-p6p8)+8*p1p3*(p6p11-p6p8)+8*p4p6*(-p1p11+p1p8-p3p11+
2732      . p3p8-p5p11+p5p8)+8*p3p6*(-p1p11+p1p8-p5p11+p5p8)+4*(ffmcfmb*
2733      . fmb*hbcm*p6p11-ffmcfmb*fmb*hbcm*p6p8-ffmcfmb*fmc*hbcm*p6p11+
2734      . ffmcfmb*fmc*hbcm*p6p8-ffmcfmb*hbcm2*p6p11+ffmcfmb*hbcm2*p6p8-
2735      . fmb*fmc*p6p11+fmb*fmc*p6p8+fmb2*p6p11-fmb2*p6p8+fmc*hbcm*p6p11
2736      . -fmc*hbcm*p6p8+hbcm2*p6p11-hbcm2*p6p8))+4*(p1p13+p2p13-2*p3p13
2737      . -p4p13-p5p13))
2738       b(8)=w11*ccc*(4*p4p6*(2*ffmcfmb*hbcm2-fmb*hbcm+fmc*hbcm-2*hbcm2
2739      . )+4*p3p6*(-ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm-fmb*fmc+fmb2)+4*(
2740      . hbcm2*p5p6-2*p1p3*p4p6+2*p1p5*p3p6-2*p2p3*p5p6+2*p3p4*p5p6-2*
2741      . p3p5*p4p6))
2742       b(9)=w2*ccc*(4*p4p6*(-2*ffmcfmb*hbcm2+fmb*hbcm-fmc*hbcm+2*hbcm2
2743      . )+4*p3p6*(ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm+fmb*fmc-fmb2)+4*(-
2744      . hbcm2*p5p6+2*p1p3*p4p6-2*p1p5*p3p6+2*p2p3*p5p6-2*p3p4*p5p6+2*
2745      . p3p5*p4p6))
2746       ans2=w11*(8*p1p5*(-hbcm*p6p11+hbcm*p6p8)+8*p4p6*(-hbcm*p1p11+
2747      . hbcm*p1p8+hbcm*p2p11-hbcm*p2p8-hbcm*p3p8-hbcm*p4p11+hbcm*p4p8+
2748      . hbcm*p5p11-hbcm*p5p8)+8*p5p6*(fmb*p3p8+fmc*p3p8)+8*p3p5*(
2749      . ffmcfmb*hbcm*p6p11-ffmcfmb*hbcm*p6p8-fmc*p6p11+fmc*p6p8-hbcm*
2750      . p6p11+hbcm*p6p8)+8*p1p3*(-ffmcfmb*hbcm*p6p11+ffmcfmb*hbcm*p6p8
2751      . -2*fmb*p6p11+2*fmb*p6p8-fmc*p6p11+fmc*p6p8+hbcm*p6p11-hbcm*
2752      . p6p8)+8*p3p6*(ffmcfmb*hbcm*p1p11-ffmcfmb*hbcm*p1p8+ffmcfmb*
2753      . hbcm*p2p11-ffmcfmb*hbcm*p2p8-ffmcfmb*hbcm*p3p11-ffmcfmb*hbcm*
2754      . p4p11+ffmcfmb*hbcm*p4p8-fmb*p1p11+fmb*p1p8-fmb*p2p11+fmb*p2p8+
2755      . fmb*p3p11+fmb*p4p11-fmb*p4p8+fmb*p5p11-fmb*p5p8+fmc*p5p11-fmc*
2756      . p5p8)+4*(ffmcfmb*fmb*hbcm2*p6p11-ffmcfmb*fmb*hbcm2*p6p8+
2757      . ffmcfmb*fmc*hbcm2*p6p11-ffmcfmb*fmc*hbcm2*p6p8+ffmcfmb*hbcm3*
2758      . p6p11-ffmcfmb*hbcm3*p6p8-fmb*fmc*hbcm*p6p11+fmb*fmc*hbcm*p6p8-
2759      . fmb2*hbcm*p6p11+fmb2*hbcm*p6p8-fmc*hbcm2*p6p11+fmc*hbcm2*p6p8-
2760      . hbcm3*p6p11+hbcm3*p6p8))+4*(fmb*p3p13+fmc*p3p13-hbcm*p1p13+
2761      . hbcm*p2p13-hbcm*p3p13-hbcm*p4p13+hbcm*p5p13)
2762       ans1=w2*(8*p4p6*(-hbcm*p1p9+hbcm*p2p9-hbcm*p4p9+hbcm*p5p9)+8*
2763      . p3p5*(ffmcfmb*hbcm*p6p9-fmc*p6p9-hbcm*p6p9)+8*p3p6*(ffmcfmb*
2764      . hbcm*p1p9+ffmcfmb*hbcm*p2p9-ffmcfmb*hbcm*p3p9-ffmcfmb*hbcm*
2765      . p4p9-fmb*p1p9-fmb*p2p9+fmb*p3p9+fmb*p4p9+fmb*p5p9+fmc*p5p9)+8*
2766      . p1p3*(-ffmcfmb*hbcm*p6p9-2*fmb*p6p9-fmc*p6p9+hbcm*p6p9)+4*(
2767      . ffmcfmb*fmb*hbcm2*p6p9+ffmcfmb*fmc*hbcm2*p6p9+ffmcfmb*hbcm3*
2768      . p6p9-fmb*fmc*hbcm*p6p9-fmb2*hbcm*p6p9-fmc*hbcm2*p6p9-2*hbcm*
2769      . p1p5*p6p9-hbcm3*p6p9))+ans2
2770       ans=ccc*ans1
2771       b(10)=ans
2772       b(11)=w11*ccc*(8*(p5p6*p3p7)*(fmb+fmc)+8*(p6p7*p3p4)*(fmb+fmc)+
2773      . 8*(p6p7*p2p3)*(-fmb-fmc)+8*(p6p7*p1p3)*(-2*fmb-2*fmc+hbcm)+8*(
2774      . p5p7*p3p6)*(ffmcfmb*hbcm-fmb)+8*(p4p7*p3p6)*(ffmcfmb*hbcm-fmb)
2775      . +4*p6p7*(2*ffmcfmb*fmb*hbcm2+2*ffmcfmb*fmc*hbcm2-fmb2*hbcm+
2776      . fmc2*hbcm-hbcm3)+8*(-2*hbcm*p1p5*p6p7-hbcm*p2p4*p6p7-hbcm*p3p5
2777      . *p6p7-hbcm*p3p7*p4p6))
2778       b(12)=w2*ccc*(8*(p5p6*p3p7)*(-fmb-fmc)+8*(p6p7*p3p4)*(-fmb-fmc)
2779      . +8*(p6p7*p2p3)*(fmb+fmc)+8*(p6p7*p1p3)*(-fmb-fmc+2*hbcm)+8*(
2780      . p5p7*p3p6)*(-ffmcfmb*hbcm+fmb)+8*(p4p7*p3p6)*(-ffmcfmb*hbcm+
2781      . fmb)+4*p6p7*(-2*ffmcfmb*fmb*hbcm2-2*ffmcfmb*fmc*hbcm2+fmb2*
2782      . hbcm-fmc2*hbcm+hbcm3)+8*(2*hbcm*p1p5*p6p7+hbcm*p2p4*p6p7+hbcm*
2783      . p3p5*p6p7+hbcm*p3p7*p4p6))
2784       b(13)=2*ccc*w11*(-2*ffmcfmb*hbcm2+fmb2-fmc2+hbcm2+4*p1p2-2*p1p3
2785      . -4*p1p4+2*p2p3+2*p2p4-2*p3p4+2*p3p5)
2786       b(14)=2*ccc*w2*(2*ffmcfmb*hbcm2-fmb2+fmc2-hbcm2-4*p1p2+2*p1p3+4
2787      . *p1p4-2*p2p3-2*p2p4+2*p3p4-2*p3p5)
2788       b(15)=w11*ccc*(4*p3p5*(-fmb-fmc)+4*p1p3*(2*fmb+2*fmc-hbcm)+2*(2
2789      . *ffmcfmb*fmb*hbcm2+2*ffmcfmb*fmc*hbcm2-2*fmb*hbcm2-fmb2*hbcm-2
2790      . *fmc*hbcm2+fmc2*hbcm-4*hbcm*p1p2+4*hbcm*p1p4-2*hbcm*p2p3-2*
2791      . hbcm*p2p4+2*hbcm*p3p4+hbcm3))
2792       b(16)=w2*ccc*(4*p3p5*(fmb+fmc)+4*p1p3*(-2*fmb-2*fmc+hbcm)+2*(-2
2793      . *ffmcfmb*fmb*hbcm2-2*ffmcfmb*fmc*hbcm2+2*fmb*hbcm2+fmb2*hbcm+2
2794      . *fmc*hbcm2-fmc2*hbcm+4*hbcm*p1p2-4*hbcm*p1p4+2*hbcm*p2p3+2*
2795      . hbcm*p2p4-2*hbcm*p3p4-hbcm3))
2796       b(21)=ccc*(4*w2*(-hbcm*p1p9-3*hbcm*p2p9+2*hbcm*p3p9+3*hbcm*p4p9
2797      . -hbcm*p5p9)+4*w11*(-3*fmb*p3p8-3*fmc*p3p8-hbcm*p1p11+hbcm*p1p8
2798      . -3*hbcm*p2p11+3*hbcm*p2p8+2*hbcm*p3p11+hbcm*p3p8+3*hbcm*p4p11-
2799      . 3*hbcm*p4p8-hbcm*p5p11+hbcm*p5p8))
2800       b(23)=w11*ccc*(4*p3p6*(ffmcfmb*hbcm-2*fmb-fmc)-8*hbcm*p4p6)
2801       b(24)=6*ccc*w11*(fmb+fmc-hbcm)
2802       b(25)=2*ccc*w11*(2*ffmcfmb*hbcm2-3*fmb*hbcm+3*fmc*hbcm+hbcm2-2*
2803      . p1p3-6*p2p3+6*p3p4-2*p3p5)
2804       b(26)=w11*ccc*(4*p3p7*(-3*fmb-3*fmc+hbcm)+8*(-hbcm*p4p7-hbcm*
2805      . p5p7))
2806       ans4=8*p6p7*(-2*ffmcfmb*hbcm2*p5p11+2*ffmcfmb*hbcm2*p5p8+fmb*
2807      . hbcm*p1p11-fmb*hbcm*p1p8-fmb*hbcm*p2p11+fmb*hbcm*p2p8+fmb*hbcm
2808      . *p4p11-fmb*hbcm*p4p8-fmc*hbcm*p1p11+fmc*hbcm*p1p8+fmc*hbcm*
2809      . p2p11-fmc*hbcm*p2p8-fmc*hbcm*p4p11+fmc*hbcm*p4p8+3*hbcm2*p1p11
2810      . -3*hbcm2*p1p8+hbcm2*p2p11-hbcm2*p2p8-hbcm2*p4p11+hbcm2*p4p8+2*
2811      . hbcm2*p5p11-2*hbcm2*p5p8)+8*p4p7*(ffmcfmb*hbcm2*p6p11-ffmcfmb*
2812      . hbcm2*p6p8-fmb*hbcm*p6p11+fmb*hbcm*p6p8-hbcm2*p6p11+hbcm2*p6p8
2813      . )+8*p4p6*(-2*ffmcfmb*hbcm2*p7p11+fmb*hbcm*p7p11-fmc*hbcm*p7p11
2814      . +2*hbcm2*p7p11)+8*p3p7*(ffmcfmb*hbcm2*p6p11-ffmcfmb*hbcm2*p6p8
2815      . -fmb*hbcm*p6p11+fmb*hbcm*p6p8-hbcm2*p6p11+hbcm2*p6p8)+8*p3p6*(
2816      . ffmcfmb*fmb*hbcm*p7p11-ffmcfmb*fmc*hbcm*p7p11+fmb*fmc*p7p11-
2817      . fmb2*p7p11)+8*(-hbcm2*p5p6*p7p11+2*p1p3*p4p6*p7p11-2*p1p5*p3p6
2818      . *p7p11+2*p2p3*p5p6*p7p11-2*p3p4*p5p6*p7p11+2*p3p5*p4p6*p7p11)
2819       ans3=16*(p5p7*p3p5)*(-p6p11+p6p8)+16*(p4p7*p3p5)*(-p6p11+p6p8)+
2820      . 16*(p3p7*p3p5)*(-p6p11+p6p8)+16*(p5p6*p3p7)*(p2p11-p2p8-p3p11+
2821      . p3p8-p4p11+p4p8-p5p11+p5p8)+16*(p5p7*p1p3)*(-p6p11+p6p8)+16*(
2822      . p4p7*p1p3)*(-p6p11+p6p8)+16*(p3p7*p1p3)*(-p6p11+p6p8)+16*(p4p6
2823      . *p3p7)*(2*p1p11-2*p1p8-p2p11+p2p8+p3p11-p3p8+p4p11-p4p8+p5p11-
2824      . p5p8)+16*(p5p7*p3p6)*(p1p11-p1p8+p5p11-p5p8)+16*(p4p7*p3p6)*(
2825      . p1p11-p1p8+p5p11-p5p8)+16*(p3p7*p3p6)*(2*p1p11-2*p1p8+p5p11-
2826      . p5p8)+16*(p6p7*p3p5)*(2*p1p11-2*p1p8+p5p11-p5p8)+16*(p6p7*p3p4
2827      . )*(p1p11-p1p8+p2p11-p2p8-p4p11+p4p8)+16*(p6p7*p2p3)*(-p1p11+
2828      . p1p8-p2p11+p2p8+p4p11-p4p8)+16*(p6p7*p1p3)*(-2*p1p11+2*p1p8+
2829      . p5p11-p5p8)+8*p5p7*(ffmcfmb*hbcm2*p6p11-ffmcfmb*hbcm2*p6p8-fmb
2830      . *hbcm*p6p11+fmb*hbcm*p6p8-hbcm2*p6p11+hbcm2*p6p8)+ans4
2831       ans2=w11*ans3
2832       ans5=(8*p3p7*(-p1p13-p2p13+p3p13+p4p13+p5p13)+8*(fmb*hbcm*p7p13
2833      . -fmc*hbcm*p7p13+hbcm2*p7p13-p1p3*p7p13-p2p3*p7p13+p3p4*p7p13+
2834      . p3p5*p7p13))
2835       ans1=w2*(16*(p5p6*p3p7)*(p2p9-p3p9-p4p9-p5p9)+16*(p4p6*p3p7)*(2
2836      . *p1p9-p2p9+p3p9+p4p9+p5p9)+16*(p5p7*p3p6)*(p1p9+p5p9)+16*(p4p7
2837      . *p3p6)*(p1p9+p5p9)+16*(p3p7*p3p6)*(2*p1p9+p5p9)+16*(p6p7*p3p5)
2838      . *(2*p1p9+p5p9)+16*(p6p7*p3p4)*(p1p9+p2p9-p4p9)+16*(p6p7*p2p3)*
2839      . (-p1p9-p2p9+p4p9)+16*(p6p7*p1p3)*(-2*p1p9+p5p9)+8*p6p7*(-2*
2840      . ffmcfmb*hbcm2*p5p9+fmb*hbcm*p1p9-fmb*hbcm*p2p9+fmb*hbcm*p4p9-
2841      . fmc*hbcm*p1p9+fmc*hbcm*p2p9-fmc*hbcm*p4p9+3*hbcm2*p1p9+hbcm2*
2842      . p2p9-hbcm2*p4p9+2*hbcm2*p5p9)+8*p5p7*(ffmcfmb*hbcm2*p6p9-fmb*
2843      . hbcm*p6p9-hbcm2*p6p9)+8*p4p7*(ffmcfmb*hbcm2*p6p9-fmb*hbcm*p6p9
2844      . -hbcm2*p6p9)+8*p3p7*(ffmcfmb*hbcm2*p6p9-fmb*hbcm*p6p9-hbcm2*
2845      . p6p9)+16*(-p1p3*p3p7*p6p9-p1p3*p4p7*p6p9-p1p3*p5p7*p6p9-p3p5*
2846      . p3p7*p6p9-p3p5*p4p7*p6p9-p3p5*p5p7*p6p9))+ans2+ans5
2847       ans=ccc*ans1
2848       b(30)=ans
2849       b(31)=w11*ccc*(4*p5p6*(-fmb-fmc)+4*p3p6*(ffmcfmb*hbcm-fmb)+4*
2850      . hbcm*p4p6)
2851       b(32)=w2*ccc*(4*p5p6*(-fmb-fmc)+4*p3p6*(ffmcfmb*hbcm-fmb)+4*
2852      . hbcm*p4p6)
2853       b(33)=ccc*(w2*(8*p5p6*(fmb*p7p9+fmc*p7p9)+8*p6p7*(fmb*p1p9-fmb*
2854      . p2p9+fmb*p4p9+fmc*p1p9-fmc*p2p9+fmc*p4p9-hbcm*p1p9+hbcm*p2p9-
2855      . hbcm*p4p9)+8*p3p6*(-ffmcfmb*hbcm*p7p9+fmb*p7p9)-8*hbcm*p4p6*
2856      . p7p9)+w11*(8*p4p6*(-hbcm*p7p11+hbcm*p7p8)+8*p5p6*(fmb*p7p11-
2857      . fmb*p7p8+fmc*p7p11-fmc*p7p8)+8*p6p7*(-2*fmb*p1p11+2*fmb*p1p8-
2858      . fmb*p2p11+fmb*p2p8+fmb*p4p11-fmb*p4p8-2*fmc*p1p11+2*fmc*p1p8-
2859      . fmc*p2p11+fmc*p2p8+fmc*p4p11-fmc*p4p8+2*hbcm*p1p11-2*hbcm*p1p8
2860      . +hbcm*p2p11-hbcm*p2p8-hbcm*p4p11+hbcm*p4p8)+8*p3p6*(-ffmcfmb*
2861      . hbcm*p7p11+ffmcfmb*hbcm*p7p8+fmb*p7p11-fmb*p7p8))-8*hbcm*p7p13
2862      . )
2863       b(34)=6*ccc*w2*(fmb+fmc-hbcm)
2864       b(35)=ccc*(12*w2*(-fmb*p7p9-fmc*p7p9+hbcm*p7p9)+12*w11*(-fmb*
2865      . p7p11+fmb*p7p8-fmc*p7p11+fmc*p7p8+hbcm*p7p11-hbcm*p7p8))
2866       b(36)=2*ccc*w2*(-2*ffmcfmb*hbcm2+3*fmb*hbcm-3*fmc*hbcm-hbcm2+2*
2867      . p1p3+6*p2p3-6*p3p4+2*p3p5)
2868       b(37)=w2*ccc*(4*p3p7*(3*fmb+3*fmc-hbcm)+8*(hbcm*p4p7+hbcm*p5p7)
2869      . )
2870       b(38)=ccc*(w2*(8*p3p7*(-p1p9+p2p9-p4p9+3*p5p9)+4*(2*ffmcfmb*
2871      . hbcm2*p7p9-3*fmb*hbcm*p7p9+3*fmc*hbcm*p7p9+hbcm2*p7p9-2*p1p3*
2872      . p7p9-6*p2p3*p7p9+6*p3p4*p7p9-2*p3p5*p7p9))+w11*(8*p3p5*(-p7p11
2873      . +p7p8)+24*p3p4*(p7p11-p7p8)+24*p2p3*(-p7p11+p7p8)+8*p1p3*(-
2874      . p7p11+p7p8)+8*p3p7*(-p1p11+p1p8+p2p11-p2p8-p4p11+p4p8+3*p5p11-
2875      . 3*p5p8)+4*(2*ffmcfmb*hbcm2*p7p11-2*ffmcfmb*hbcm2*p7p8-3*fmb*
2876      . hbcm*p7p11+3*fmb*hbcm*p7p8+3*fmc*hbcm*p7p11-3*fmc*hbcm*p7p8+
2877      . hbcm2*p7p11-hbcm2*p7p8)))
2878       b(39)=w11*ccc*(4*p6p7*(2*ffmcfmb*hbcm2-3*fmb*hbcm+3*fmc*hbcm-3*
2879      . hbcm2)+8*(p1p3*p6p7-p2p3*p6p7+p3p4*p6p7-3*p3p5*p6p7-p3p6*p3p7-
2880      . 3*p3p7*p4p6+p3p7*p5p6))
2881       b(40)=w11*ccc*(8*(p5p6*p3p7)*(-fmb-fmc)+8*(p6p7*p3p4)*(-fmb-fmc
2882      . )+8*(p6p7*p2p3)*(fmb+fmc)+8*(p6p7*p1p3)*(2*fmb+2*fmc-hbcm)+8*(
2883      . p5p7*p3p6)*(-ffmcfmb*hbcm+fmb)+8*(p4p7*p3p6)*(-ffmcfmb*hbcm+
2884      . fmb)+4*p6p7*(-2*ffmcfmb*fmb*hbcm2-2*ffmcfmb*fmc*hbcm2+fmb2*
2885      . hbcm-fmc2*hbcm+hbcm3)+8*(2*hbcm*p1p5*p6p7+hbcm*p2p4*p6p7+hbcm*
2886      . p3p5*p6p7+hbcm*p3p7*p4p6))
2887       b(41)=w11*ccc*(4*p6p7*(-2*ffmcfmb*hbcm2+fmb2-fmc2+hbcm2)+8*(
2888      . p1p3*p6p7+2*p1p5*p6p7+p2p3*p6p7+p2p4*p6p7-p3p4*p6p7+p3p5*p6p7+
2889      . p3p7*p4p6-p3p7*p5p6+p4p6*p4p7+p4p6*p5p7-p4p7*p5p6-p5p6*p5p7))
2890       b(42)=w2*ccc*(4*p6p7*(2*ffmcfmb*hbcm2-3*fmb*hbcm+3*fmc*hbcm-3*
2891      . hbcm2)+8*(p1p3*p6p7-p2p3*p6p7+p3p4*p6p7-3*p3p5*p6p7-p3p6*p3p7-
2892      . 3*p3p7*p4p6+p3p7*p5p6))
2893       b(43)=ccc*(w2*(8*p6p7*(p1p9-p2p9+p4p9-3*p5p9)+8*(-p3p6*p7p9-3*
2894      . p4p6*p7p9+p5p6*p7p9))+w11*(8*p5p6*(p7p11-p7p8)+24*p4p6*(-p7p11
2895      . +p7p8)+8*p3p6*(-p7p11+p7p8)+8*p6p7*(p1p11-p1p8-p2p11+p2p8+
2896      . p4p11-p4p8-3*p5p11+3*p5p8)))
2897       b(44)=w11*ccc*(4*p4p6*(2*ffmcfmb*hbcm2-fmb*hbcm+fmc*hbcm-2*
2898      . hbcm2)+4*p3p6*(-ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm-fmb*fmc+fmb2
2899      . )+4*(hbcm2*p5p6-2*p1p3*p4p6+2*p1p5*p3p6-2*p2p3*p5p6+2*p3p4*
2900      . p5p6-2*p3p5*p4p6))
2901       b(45)=4*ccc*w11*(-p3p6-3*p4p6+p5p6)
2902       b(46)=w11*ccc*(4*p5p6*(-fmb-fmc)+4*p3p6*(ffmcfmb*hbcm-fmb)+4*
2903      . hbcm*p4p6)
2904       b(47)=4*ccc*w2*(-p3p6-3*p4p6+p5p6)
2905       b(49)=w11*ccc*(4*p3p7*(3*fmb+3*fmc-hbcm)+8*(hbcm*p4p7+hbcm*p5p7
2906      . ))
2907       b(50)=8*ccc*w11*(p3p7+p4p7+p5p7)
2908       b(51)=w11*ccc*(4*p3p7*(fmb*hbcm-fmb2-fmc*hbcm+fmc2)+4*p5p7*(-2*
2909      . ffmcfmb*hbcm2+fmb*hbcm-fmc*hbcm+hbcm2)+4*p4p7*(-2*ffmcfmb*
2910      . hbcm2+fmb*hbcm-fmc*hbcm+hbcm2)+8*(-2*p1p2*p3p7-p1p3*p4p7-p1p3*
2911      . p5p7+2*p1p4*p3p7+p2p3*p4p7+p2p3*p5p7-p2p4*p3p7-p3p4*p4p7-p3p4*
2912      . p5p7+p3p5*p4p7+p3p5*p5p7))
2913       b(52)=8*ccc*w2*(p3p7+p4p7+p5p7)
2914       b(53)=ccc*(4*w2*(-p1p9-3*p2p9+2*p3p9+3*p4p9-p5p9)+4*w11*(-p1p11
2915      . +p1p8-3*p2p11+3*p2p8+2*p3p11-2*p3p8+3*p4p11-3*p4p8-p5p11+p5p8)
2916      . )
2917       b(54)=2*ccc*w11*(-2*ffmcfmb*hbcm2+3*fmb*hbcm-3*fmc*hbcm-hbcm2+2
2918      . *p1p3+6*p2p3-6*p3p4+2*p3p5)
2919       b(55)=6*ccc*w11*(fmb+fmc-hbcm)
2920       b(56)=2*ccc*w11*(2*ffmcfmb*hbcm2-fmb2+fmc2-hbcm2-4*p1p2+2*p1p3+
2921      . 4*p1p4-2*p2p3-2*p2p4+2*p3p4-2*p3p5)
2922       b(58)=w11*ccc*(4*p3p6*(-ffmcfmb*hbcm+2*fmb+fmc)+8*hbcm*p4p6)
2923       b(59)=w11*ccc*(4*p3p5*(fmb+fmc)+4*p1p3*(-2*fmb-2*fmc+hbcm)+2*(-
2924      . 2*ffmcfmb*fmb*hbcm2-2*ffmcfmb*fmc*hbcm2+2*fmb*hbcm2+fmb2*hbcm+
2925      . 2*fmc*hbcm2-fmc2*hbcm+4*hbcm*p1p2-4*hbcm*p1p4+2*hbcm*p2p3+2*
2926      . hbcm*p2p4-2*hbcm*p3p4-hbcm3))
2927       b(60)=w2*ccc*(4*p3p6*(-ffmcfmb*hbcm+2*fmb+fmc)+8*hbcm*p4p6)
2928       b(65)=w11*ccc*(4*p6p7*(-2*ffmcfmb*hbcm2+3*fmb*hbcm-3*fmc*hbcm+3
2929      . *hbcm2)+8*(-p1p3*p6p7+p2p3*p6p7-p3p4*p6p7+3*p3p5*p6p7+p3p6*
2930      . p3p7+3*p3p7*p4p6-p3p7*p5p6))
2931       b(66)=ccc*(w2*(8*p6p7*(hbcm*p1p9-hbcm*p2p9+hbcm*p4p9-3*hbcm*
2932      . p5p9)+8*p3p6*(ffmcfmb*hbcm*p7p9-2*fmb*p7p9-fmc*p7p9)-16*hbcm*
2933      . p4p6*p7p9)+w11*(16*p4p6*(-hbcm*p7p11+hbcm*p7p8)+8*p6p7*(hbcm*
2934      . p1p11-hbcm*p1p8-hbcm*p2p11+hbcm*p2p8+hbcm*p4p11-hbcm*p4p8-3*
2935      . hbcm*p5p11+3*hbcm*p5p8)+8*p3p6*(ffmcfmb*hbcm*p7p11-ffmcfmb*
2936      . hbcm*p7p8-2*fmb*p7p11+2*fmb*p7p8-fmc*p7p11+fmc*p7p8))+8*hbcm*
2937      . p7p13)
2938       b(68)=4*ccc*w11*(p3p6+3*p4p6-p5p6)
2939       b(71)=8*ccc*w11*(-p3p7-p4p7-p5p7)
2940       b(73)=12*ccc*w11*p6p7*(fmb+fmc-hbcm)
2941       b(74)=12*ccc*w11*p6p7*(-fmb-fmc+hbcm)
2942       b(75)=ccc*(4*w2*(2*fmb*p1p9-fmb*p3p9-fmb*p5p9+2*fmc*p1p9-fmc*
2943      . p3p9-fmc*p5p9-2*hbcm*p1p9+hbcm*p3p9+hbcm*p5p9)+4*w11*(2*fmb*
2944      . p1p11-2*fmb*p1p8-fmb*p3p11+fmb*p3p8-fmb*p5p11+fmb*p5p8+2*fmc*
2945      . p1p11-2*fmc*p1p8-fmc*p3p11+fmc*p3p8-fmc*p5p11+fmc*p5p8-2*hbcm*
2946      . p1p11+2*hbcm*p1p8+hbcm*p3p11-hbcm*p3p8+hbcm*p5p11-hbcm*p5p8))
2947       ans=ccc*(w2*(8*p3p5*(-2*p1p9+p3p9+p5p9)+8*p3p4*(p1p9+p2p9-p3p9-
2948      . p4p9)+8*p2p3*(-p1p9-p2p9+p3p9+p4p9)+8*p1p3*(p1p9+p2p9-p3p9-
2949      . p4p9)+4*(2*ffmcfmb*hbcm2*p1p9+2*ffmcfmb*hbcm2*p2p9-2*ffmcfmb*
2950      . hbcm2*p3p9-2*ffmcfmb*hbcm2*p4p9-2*fmb*hbcm*p1p9+fmb*hbcm*p3p9+
2951      . fmb*hbcm*p5p9+2*fmc*hbcm*p1p9-fmc*hbcm*p3p9-fmc*hbcm*p5p9-2*
2952      . hbcm2*p1p9+hbcm2*p3p9+hbcm2*p5p9))+w11*(8*p3p5*(-2*p1p11+2*
2953      . p1p8+p3p11-p3p8+p5p11-p5p8)+8*p3p4*(p1p11-p1p8+p2p11-p2p8-
2954      . p3p11+p3p8-p4p11+p4p8)+8*p2p3*(-p1p11+p1p8-p2p11+p2p8+p3p11-
2955      . p3p8+p4p11-p4p8)+8*p1p3*(p1p11-p1p8+p2p11-p2p8-p3p11+p3p8-
2956      . p4p11+p4p8)+4*(2*ffmcfmb*hbcm2*p1p11-2*ffmcfmb*hbcm2*p1p8+2*
2957      . ffmcfmb*hbcm2*p2p11-2*ffmcfmb*hbcm2*p2p8-2*ffmcfmb*hbcm2*p3p11
2958      . +2*ffmcfmb*hbcm2*p3p8-2*ffmcfmb*hbcm2*p4p11+2*ffmcfmb*hbcm2*
2959      . p4p8-2*fmb*hbcm*p1p11+2*fmb*hbcm*p1p8+fmb*hbcm*p3p11-fmb*hbcm*
2960      . p3p8+fmb*hbcm*p5p11-fmb*hbcm*p5p8+2*fmc*hbcm*p1p11-2*fmc*hbcm*
2961      . p1p8-fmc*hbcm*p3p11+fmc*hbcm*p3p8-fmc*hbcm*p5p11+fmc*hbcm*p5p8
2962      . -2*hbcm2*p1p11+2*hbcm2*p1p8+hbcm2*p3p11-hbcm2*p3p8+hbcm2*p5p11
2963      . -hbcm2*p5p8)))
2964       b(76)=ans
2965       b(77)=ccc*(4*w2*(ffmcfmb*hbcm2*p6p9-2*fmb*hbcm*p6p9+fmc*hbcm*
2966      . p6p9-2*hbcm2*p6p9-4*p3p5*p6p9+4*p3p6*p5p9)+w11*(16*p3p6*(p5p11
2967      . -p5p8)+16*p3p5*(-p6p11+p6p8)+4*(ffmcfmb*hbcm2*p6p11-ffmcfmb*
2968      . hbcm2*p6p8-2*fmb*hbcm*p6p11+2*fmb*hbcm*p6p8+fmc*hbcm*p6p11-fmc
2969      . *hbcm*p6p8-2*hbcm2*p6p11+2*hbcm2*p6p8))+4*p3p13)
2970       b(78)=ccc*(4*w2*(ffmcfmb*hbcm*p6p9+2*fmb*p6p9+fmc*p6p9-2*hbcm*
2971      . p6p9)+4*w11*(ffmcfmb*hbcm*p6p11-ffmcfmb*hbcm*p6p8+2*fmb*p6p11-
2972      . 2*fmb*p6p8+fmc*p6p11-fmc*p6p8-2*hbcm*p6p11+2*hbcm*p6p8))
2973       b(79)=12*ccc*w2*p6p7*(fmb+fmc-hbcm)
2974       b(80)=w2*ccc*(4*p5p7*(-fmb-fmc+hbcm)+4*p4p7*(-fmb-fmc+hbcm)+4*
2975      . p3p7*(-fmb-fmc+hbcm))
2976       b(83)=4*ccc*(hbcm*p3p7-hbcm*p4p7-hbcm*p5p7)
2977       b(84)=4*ccc*(p3p7+p4p7+p5p7)
2978       b(85)=4*ccc*(-fmb*hbcm+fmc*hbcm-hbcm2+p1p3+p2p3-p3p4-p3p5)
2979       b(87)=4*ccc*hbcm
2980       b(89)=4*ccc*hbcm
2981       b(90)=w11*ccc*(4*p5p7*(-fmb-fmc+hbcm)+4*p4p7*(-fmb-fmc+hbcm)+4*
2982      . p3p7*(-fmb-fmc+hbcm))
2983       b(91)=w11*ccc*(4*p5p7*(fmb+fmc-hbcm)+4*p4p7*(fmb+fmc-hbcm)+4*
2984      . p3p7*(fmb+fmc-hbcm))
2985       do 200 n=1,94
2986          c(n,1)=c(n,1)+0.8181818181818182d0*b(n)
2987          c(n,2)=c(n,2)-0.1512818716977898d0*b(n)
2988          c(n,3)=c(n,3)-0.1869893980016914d0*b(n)
2989 200   continue
2990       return
2991       end
2992
2993       subroutine amp25_3p2(cc)
2994       implicit double precision(a-h,o-z)
2995       implicit integer (i-n)
2996       dimension b(94)
2997 #include "inclcon.h"
2998 #include "inclppp.h"
2999 #include "inclamp.h"
3000       do 100 n=1,94
3001          b(n)=0.0d0
3002 100   continue
3003       ccc=cc/((2*p1p2)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2)*(
3004      . ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2+2*ffmcfmb*p1p3+2*ffmcfmb*p2p3
3005      . -fmb2+hbcm2+2*p1p2-2*p1p3-2*p2p3))
3006       b(1)=w1*ccc*(4*p6p7*(ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm-fmb*fmc-
3007      . fmb*hbcm+fmb2+fmc*hbcm)+16*(p1p2*p6p7-p1p3*p6p7-2*p1p5*p6p7))
3008       b(11)=w1*ccc*(4*p6p7*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+8*(p6p7*
3009      . p3p5)*(-ffmcfmb*hbcm-fmb+hbcm)+8*(p6p7*p2p3)*(ffmcfmb*hbcm-
3010      . hbcm)+8*(p6p7*p1p3)*(ffmcfmb*hbcm-2*fmc-hbcm)+8*(hbcm*p1p2*
3011      . p6p7-2*hbcm*p1p5*p6p7))
3012       b(29)=ccc*(w20*(4*p6p7*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+8*(p6p7
3013      . *p3p5)*(-ffmcfmb*hbcm-fmb+hbcm)+8*(p6p7*p2p3)*(ffmcfmb*hbcm-
3014      . hbcm)+8*(p6p7*p1p3)*(ffmcfmb*hbcm-2*fmc-hbcm)+8*(hbcm*p1p2*
3015      . p6p7-2*hbcm*p1p5*p6p7))+4*hbcm*p6p7)
3016       b(30)=ccc*(w1*(32*(p6p7*p1p3)*(2*p1p8+p2p8-p5p8)+8*p6p7*(-
3017      . ffmcfmb*hbcm2*p1p8+ffmcfmb*hbcm2*p2p8-fmb*hbcm*p1p8+fmb*hbcm*
3018      . p2p8-5*hbcm2*p1p8-hbcm2*p2p8)+32*(p1p8*p2p3*p6p7-p1p8*p3p4*
3019      . p6p7-2*p1p8*p3p5*p6p7))+w20*(64*(p6p7*p3p5)*(-p1p10-p1p11)+32*
3020      . (p6p7*p3p4)*(-p1p10-p1p11)+32*(p6p7*p2p3)*(p1p10+p1p11)+32*(
3021      . p6p7*p1p3)*(2*p1p10+2*p1p11+p2p10+p2p11-p5p10-p5p11)+8*p6p7*(-
3022      . ffmcfmb*hbcm2*p1p10-ffmcfmb*hbcm2*p1p11+ffmcfmb*hbcm2*p2p10+
3023      . ffmcfmb*hbcm2*p2p11-fmb*hbcm*p1p10-fmb*hbcm*p1p11+fmb*hbcm*
3024      . p2p10+fmb*hbcm*p2p11-5*hbcm2*p1p10-5*hbcm2*p1p11-hbcm2*p2p10-
3025      . hbcm2*p2p11))+8*p6p7*(-p3p10+p3p11))
3026       b(33)=ccc*(8*w1*p6p7*(-2*ffmcfmb*hbcm*p1p8+ffmcfmb*hbcm*p5p8+
3027      . fmb*p5p8+2*fmc*p1p8-hbcm*p5p8)+8*w20*p6p7*(-2*ffmcfmb*hbcm*
3028      . p1p10-2*ffmcfmb*hbcm*p1p11+ffmcfmb*hbcm*p5p10+ffmcfmb*hbcm*
3029      . p5p11+fmb*p5p10+fmb*p5p11+2*fmc*p1p10+2*fmc*p1p11-hbcm*p5p10-
3030      . hbcm*p5p11))
3031       b(39)=w20*ccc*(8*p6p7*(fmb*hbcm-fmc*hbcm+2*hbcm2)+16*(-p1p3*
3032      . p6p7-p2p3*p6p7+2*p3p5*p6p7))
3033       b(40)=ccc*(w20*(4*p6p7*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+8*(p6p7
3034      . *p3p5)*(-ffmcfmb*hbcm-fmb+hbcm)+8*(p6p7*p2p3)*(ffmcfmb*hbcm-
3035      . hbcm)+8*(p6p7*p1p3)*(ffmcfmb*hbcm-2*fmc-hbcm)+8*(hbcm*p1p2*
3036      . p6p7-2*hbcm*p1p5*p6p7))-4*hbcm*p6p7)
3037       b(41)=w20*ccc*(4*p6p7*(ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm-fmb*
3038      . fmc-fmb*hbcm+fmb2+fmc*hbcm)+16*(p1p2*p6p7-p1p3*p6p7-2*p1p5*
3039      . p6p7))
3040       b(43)=ccc*(16*w1*p6p7*(-p1p8-p2p8+2*p5p8)+16*w20*p6p7*(-p1p10-
3041      . p1p11-p2p10-p2p11+2*p5p10+2*p5p11))
3042       b(63)=w20*ccc*(8*p6p7*(fmb*hbcm-fmc*hbcm+2*hbcm2)+16*(-p1p3*
3043      . p6p7-p2p3*p6p7+2*p3p5*p6p7))
3044       b(64)=w20*ccc*(4*p6p7*(ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm-fmb*
3045      . fmc-fmb*hbcm+fmb2+fmc*hbcm)+16*(p1p2*p6p7-p1p3*p6p7-2*p1p5*
3046      . p6p7))
3047       b(65)=w1*ccc*(8*p6p7*(fmb*hbcm-fmc*hbcm+2*hbcm2)+16*(-p1p3*p6p7
3048      . -p2p3*p6p7+2*p3p5*p6p7))
3049       b(66)=ccc*(16*w20*p6p7*(hbcm*p5p10+hbcm*p5p11)+16*hbcm*p5p8*
3050      . p6p7*w1)
3051       b(73)=8*ccc*w20*p6p7*(ffmcfmb*hbcm-fmb-2*fmc)
3052       b(74)=8*ccc*w1*p6p7*(ffmcfmb*hbcm-fmb-2*fmc)
3053       b(81)=8*ccc*w20*p6p7*(ffmcfmb*hbcm-fmb-2*fmc)
3054       do 200 n=1,94
3055          c(n,1)=c(n,1)+0.09090909090909091d0*b(n)
3056          c(n,2)=c(n,2)-0.1092591295595148d0*b(n)
3057 200   continue
3058       return
3059       end
3060
3061       subroutine amp24_3p2(cc)
3062       implicit double precision(a-h,o-z)
3063       implicit integer (i-n)
3064       dimension b(94)
3065 #include "inclcon.h"
3066 #include "inclppp.h"
3067 #include "inclamp.h"
3068       do 100 n=1,94
3069          b(n)=0.0d0
3070 100   continue
3071       ccc=cc/((2*p1p2)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2)*(-fmb2+
3072      . fmc2+hbcm2+2*p3p4))
3073       b(11)=w1*ccc*(4*p6p7*(fmb2*hbcm-fmc2*hbcm+hbcm3)+8*(-hbcm*p1p3*
3074      . p6p7-hbcm*p2p3*p6p7+hbcm*p3p5*p6p7))
3075       b(30)=8*ccc*w1*p6p7*(fmb*hbcm*p1p8-fmb*hbcm*p2p8+fmb*hbcm*p4p8+
3076      . fmb*hbcm*p5p8-fmc*hbcm*p1p8+fmc*hbcm*p2p8-fmc*hbcm*p4p8-fmc*
3077      . hbcm*p5p8)
3078       b(33)=8*ccc*w1*p6p7*(hbcm*p1p8+hbcm*p2p8-hbcm*p4p8-hbcm*p5p8)
3079       b(65)=8*ccc*w1*p6p7*(-fmb*hbcm+fmc*hbcm)
3080       b(66)=16*ccc*hbcm*p4p8*p6p7*w1
3081       b(74)=-8*ccc*hbcm*p6p7*w1
3082       do 200 n=1,94
3083          c(n,1)=c(n,1)-0.7272727272727273d0*b(n)
3084          c(n,2)=c(n,2)+0.8740730364761186d0*b(n)
3085 200   continue
3086       return
3087       end
3088
3089       subroutine amp23_3p2(cc)
3090       implicit double precision(a-h,o-z)
3091       implicit integer (i-n)
3092       dimension b(94)
3093 #include "inclcon.h"
3094 #include "inclppp.h"
3095 #include "inclamp.h"
3096       do 100 n=1,94
3097          b(n)=0.0d0
3098 100   continue
3099       ccc=cc/((2*p1p2)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*
3100      . p3p5+fmb2+hbcm2+2*p3p5)*(fmb2-fmc2+hbcm2+2*p3p5))
3101       b(12)=w2*ccc*(4*p6p7*(-fmb2*hbcm+fmc2*hbcm-hbcm3)-8*hbcm*p3p5*
3102      . p6p7)
3103       b(42)=8*ccc*w2*p6p7*(fmb*hbcm-fmc*hbcm)
3104       b(66)=16*ccc*hbcm*p5p9*p6p7*w2
3105       b(79)=8*ccc*hbcm*p6p7*w2
3106       do 200 n=1,94
3107          c(n,1)=c(n,1)-0.7272727272727273d0*b(n)
3108          c(n,2)=c(n,2)+0.8740730364761186d0*b(n)
3109 200   continue
3110       return
3111       end
3112
3113       subroutine amp22_3p2(cc)
3114       implicit double precision(a-h,o-z)
3115       implicit integer (i-n)
3116       dimension b(94)
3117 #include "inclcon.h"
3118 #include "inclppp.h"
3119 #include "inclamp.h"
3120       do 100 n=1,94
3121          b(n)=0.0d0
3122 100   continue
3123       ccc=cc/((2*p1p2)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*
3124      . p3p5+fmb2+hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3-2*
3125      . ffmcfmb*p2p3-fmc2+2*p1p2))
3126       b(2)=w2*ccc*(4*p6p7*(ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm-fmb*fmc+
3127      . fmc2)+16*(-p1p2*p6p7+p1p3*p6p7+2*p1p5*p6p7))
3128       b(12)=w2*ccc*(8*(p6p7*p1p3)*(-2*fmb-fmc+2*hbcm)+4*p6p7*(-
3129      . ffmcfmb*hbcm3+fmc*hbcm2)+8*(p6p7*p3p5)*(-ffmcfmb*hbcm+fmc)+8*(
3130      . -fmc*p2p3*p6p7-hbcm*p1p2*p6p7+2*hbcm*p1p5*p6p7))
3131       b(29)=ccc*(w17*(4*p6p7*(-ffmcfmb*hbcm3+fmc*hbcm2)+8*(p6p7*p3p5)
3132      . *(-ffmcfmb*hbcm+fmc)+8*(p6p7*p1p3)*(2*ffmcfmb*hbcm+2*fmb+fmc)+
3133      . 8*(-fmc*p2p3*p6p7-hbcm*p1p2*p6p7+2*hbcm*p1p5*p6p7))+4*hbcm*
3134      . p6p7)
3135       b(30)=ccc*(w2*(32*(p6p7*p1p3)*(-2*p1p9-p2p9+p5p9)+8*p6p7*(-
3136      . ffmcfmb*hbcm2*p1p9+ffmcfmb*hbcm2*p2p9+2*fmb*hbcm*p1p9-fmc*hbcm
3137      . *p1p9-fmc*hbcm*p2p9+6*hbcm2*p1p9)+32*(-p1p9*p2p3*p6p7+p1p9*
3138      . p3p4*p6p7+2*p1p9*p3p5*p6p7))+w17*(64*(p6p7*p3p5)*(p1p10+p1p11)
3139      . +32*(p6p7*p3p4)*(p1p10+p1p11)+32*(p6p7*p2p3)*(-p1p10-p1p11)+32
3140      . *(p6p7*p1p3)*(-2*p1p10-2*p1p11-p2p10-p2p11+p5p10+p5p11)+8*p6p7
3141      . *(-ffmcfmb*hbcm2*p1p10-ffmcfmb*hbcm2*p1p11+ffmcfmb*hbcm2*p2p10
3142      . +ffmcfmb*hbcm2*p2p11+2*fmb*hbcm*p1p10+2*fmb*hbcm*p1p11-fmc*
3143      . hbcm*p1p10-fmc*hbcm*p1p11-fmc*hbcm*p2p10-fmc*hbcm*p2p11+6*
3144      . hbcm2*p1p10+6*hbcm2*p1p11))+8*p6p7*(p3p10-p3p11))
3145       b(33)=ccc*(8*w2*p6p7*(ffmcfmb*hbcm*p1p9-ffmcfmb*hbcm*p2p9+
3146      . ffmcfmb*hbcm*p5p9+2*fmb*p1p9+fmc*p1p9+fmc*p2p9-fmc*p5p9-2*hbcm
3147      . *p1p9)+8*w17*p6p7*(-ffmcfmb*hbcm*p1p10-ffmcfmb*hbcm*p1p11-
3148      . ffmcfmb*hbcm*p2p10-ffmcfmb*hbcm*p2p11+ffmcfmb*hbcm*p5p10+
3149      . ffmcfmb*hbcm*p5p11-2*fmb*p1p10-2*fmb*p1p11-fmc*p1p10-fmc*p1p11
3150      . +fmc*p2p10+fmc*p2p11-fmc*p5p10-fmc*p5p11))
3151       b(39)=w17*ccc*(8*p6p7*(-fmb*hbcm+fmc*hbcm-2*hbcm2)+16*(p1p3*
3152      . p6p7+p2p3*p6p7-2*p3p5*p6p7))
3153       b(40)=ccc*(w17*(4*p6p7*(-ffmcfmb*hbcm3+fmc*hbcm2)+8*(p6p7*p3p5)
3154      . *(-ffmcfmb*hbcm+fmc)+8*(p6p7*p1p3)*(2*ffmcfmb*hbcm+2*fmb+fmc)+
3155      . 8*(-fmc*p2p3*p6p7-hbcm*p1p2*p6p7+2*hbcm*p1p5*p6p7))-4*hbcm*
3156      . p6p7)
3157       b(41)=w17*ccc*(4*p6p7*(ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm-fmb*
3158      . fmc+fmc2)+16*(-p1p2*p6p7+p1p3*p6p7+2*p1p5*p6p7))
3159       b(42)=w2*ccc*(8*p6p7*(-fmb*hbcm+fmc*hbcm-2*hbcm2)+16*(p1p3*p6p7
3160      . +p2p3*p6p7-2*p3p5*p6p7))
3161       b(43)=ccc*(16*w2*p6p7*(p1p9+p2p9-2*p5p9)+16*w17*p6p7*(p1p10+
3162      . p1p11+p2p10+p2p11-2*p5p10-2*p5p11))
3163       b(63)=w17*ccc*(8*p6p7*(-fmb*hbcm+fmc*hbcm-2*hbcm2)+16*(p1p3*
3164      . p6p7+p2p3*p6p7-2*p3p5*p6p7))
3165       b(64)=w17*ccc*(4*p6p7*(ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm-fmb*
3166      . fmc+fmc2)+16*(-p1p2*p6p7+p1p3*p6p7+2*p1p5*p6p7))
3167       b(66)=ccc*(16*w2*p6p7*(hbcm*p1p9+hbcm*p2p9-hbcm*p5p9)+16*w17*
3168      . p6p7*(hbcm*p1p10+hbcm*p1p11+hbcm*p2p10+hbcm*p2p11-hbcm*p5p10-
3169      . hbcm*p5p11))
3170       b(73)=8*ccc*w17*p6p7*(ffmcfmb*hbcm+2*fmb+fmc-hbcm)
3171       b(79)=8*ccc*w2*p6p7*(ffmcfmb*hbcm+2*fmb+fmc-hbcm)
3172       b(81)=8*ccc*w17*p6p7*(ffmcfmb*hbcm+2*fmb+fmc-hbcm)
3173       do 200 n=1,94
3174          c(n,1)=c(n,1)+0.09090909090909091d0*b(n)
3175          c(n,2)=c(n,2)-0.1092591295595148d0*b(n)
3176 200   continue
3177       return
3178       end
3179
3180       subroutine amp21_3p2(cc)
3181       implicit double precision(a-h,o-z)
3182       implicit integer (i-n)
3183       dimension b(94)
3184 #include "inclcon.h"
3185 #include "inclppp.h"
3186 #include "inclamp.h"
3187       do 100 n=1,94
3188          b(n)=0.0d0
3189 100   continue
3190       ccc=cc/((ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3+2*ffmcfmb*p3p4+fmc2-2*
3191      . p1p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3-fmc2)*(ffmcfmb**2*hbcm2
3192      . -2*ffmcfmb*hbcm2+2*ffmcfmb*p2p3-fmb2+hbcm2-2*p2p3))
3193       b(1)=w5*ccc*(8*p6p7*(ffmcfmb**2*hbcm2-fmc2)+16*(-ffmcfmb*p3p6*
3194      . p3p7-2*ffmcfmb*p3p6*p5p7+p1p2*p6p7-p1p3*p6p7-p1p5*p6p7))
3195       b(3)=ccc*(8*w8*(ffmcfmb**2*hbcm2*p7p11+2*ffmcfmb*p1p11*p3p7-
3196      . fmc2*p7p11+2*p1p11*p4p7+2*p1p4*p7p11)+w5*(16*p1p4*(-p7p10+p7p8
3197      . )+16*p4p7*(-p1p10+p1p8)+16*p3p7*(-ffmcfmb*p1p10+ffmcfmb*p1p8)+
3198      . 8*(-ffmcfmb**2*hbcm2*p7p10+ffmcfmb**2*hbcm2*p7p8+fmc2*p7p10-
3199      . fmc2*p7p8))+8*w12*(-ffmcfmb**2*hbcm2*p7p10-2*ffmcfmb*p1p10*
3200      . p3p7+fmc2*p7p10-2*p1p10*p4p7-2*p1p4*p7p10)+8*(3*p1p12+2*p2p12-
3201      . 3*p3p12-3*p4p12-3*p5p12-p7p10+p7p11))
3202       b(4)=w5*ccc*((p3p7*p1p3)*(-16*ffmcfmb+16)+16*p5p7*(ffmcfmb*
3203      . hbcm2-fmc*hbcm)+8*p3p7*(-ffmcfmb**2*hbcm2+ffmcfmb*hbcm2-fmc*
3204      . hbcm+fmc2)+16*(p1p3*p5p7-p1p4*p3p7))
3205       ans2=w12*(16*p3p4*(-ffmcfmb*hbcm*p7p10+fmc*p7p10)+16*p1p3*(
3206      . ffmcfmb*hbcm*p7p10-fmc*p7p10)+16*p3p7*(ffmcfmb*hbcm*p1p10+
3207      . ffmcfmb*hbcm*p2p10-ffmcfmb*hbcm*p5p10-fmc*p2p10+fmc*p5p10-hbcm
3208      . *p1p10)+8*(-ffmcfmb**2*hbcm3*p7p10+2*ffmcfmb*fmc*hbcm2*p7p10-
3209      . fmc2*hbcm*p7p10-2*hbcm*p1p10*p5p7+2*hbcm*p1p4*p7p10))+8*(-fmb*
3210      . p3p12-fmc*p3p12-hbcm*p1p12+hbcm*p2p12+3*hbcm*p3p12+2*hbcm*
3211      . p4p12+2*hbcm*p5p12-3*hbcm*p7p11)
3212       ans1=w8*(16*p3p4*(ffmcfmb*hbcm*p7p11-fmc*p7p11)+16*p1p3*(-
3213      . ffmcfmb*hbcm*p7p11+fmc*p7p11)+16*p3p7*(-ffmcfmb*hbcm*p1p11-
3214      . ffmcfmb*hbcm*p2p11+ffmcfmb*hbcm*p5p11+fmc*p2p11-fmc*p5p11+hbcm
3215      . *p1p11)+8*(ffmcfmb**2*hbcm3*p7p11-2*ffmcfmb*fmc*hbcm2*p7p11+
3216      . fmc2*hbcm*p7p11+2*hbcm*p1p11*p5p7-2*hbcm*p1p4*p7p11))+w5*(16*
3217      . p1p4*(hbcm*p7p10-hbcm*p7p8)+16*p5p7*(-hbcm*p1p10+hbcm*p1p8)+16
3218      . *p3p4*(-ffmcfmb*hbcm*p7p10+ffmcfmb*hbcm*p7p8+fmc*p7p10-fmc*
3219      . p7p8)+16*p1p3*(ffmcfmb*hbcm*p7p10-ffmcfmb*hbcm*p7p8-fmc*p7p10+
3220      . fmc*p7p8)+16*p3p7*(ffmcfmb*hbcm*p1p10-ffmcfmb*hbcm*p1p8+
3221      . ffmcfmb*hbcm*p2p10-ffmcfmb*hbcm*p2p8-ffmcfmb*hbcm*p5p10+
3222      . ffmcfmb*hbcm*p5p8-fmc*p2p10+fmc*p2p8+fmc*p5p10-fmc*p5p8-hbcm*
3223      . p1p10+hbcm*p1p8)+8*(-ffmcfmb**2*hbcm3*p7p10+ffmcfmb**2*hbcm3*
3224      . p7p8+2*ffmcfmb*fmc*hbcm2*p7p10-2*ffmcfmb*fmc*hbcm2*p7p8-fmc2*
3225      . hbcm*p7p10+fmc2*hbcm*p7p8))+ans2
3226       ans=ccc*ans1
3227       b(6)=ans
3228       b(7)=ccc*(w8*(16*p3p6*(-ffmcfmb*p2p11+2*ffmcfmb*p3p11+2*ffmcfmb
3229      . *p4p11+p1p11)+8*(ffmcfmb**2*hbcm2*p6p11-fmc2*p6p11+6*p1p11*
3230      . p4p6+2*p1p2*p6p11-2*p1p3*p6p11-2*p1p5*p6p11))+w5*(16*p1p5*(
3231      . p6p10-p6p8)+16*p1p3*(p6p10-p6p8)+16*p1p2*(-p6p10+p6p8)+48*p4p6
3232      . *(-p1p10+p1p8)+16*p3p6*(ffmcfmb*p2p10-ffmcfmb*p2p8-2*ffmcfmb*
3233      . p3p10+2*ffmcfmb*p3p8-2*ffmcfmb*p4p10+2*ffmcfmb*p4p8-p1p10+p1p8
3234      . )+8*(-ffmcfmb**2*hbcm2*p6p10+ffmcfmb**2*hbcm2*p6p8+fmc2*p6p10-
3235      . fmc2*p6p8))+w12*(16*p3p6*(ffmcfmb*p2p10-2*ffmcfmb*p3p10-2*
3236      . ffmcfmb*p4p10-p1p10)+8*(-ffmcfmb**2*hbcm2*p6p10+fmc2*p6p10-6*
3237      . p1p10*p4p6-2*p1p2*p6p10+2*p1p3*p6p10+2*p1p5*p6p10))+8*(-2*
3238      . p1p13-3*p2p13+4*p3p13+p4p13+3*p5p13-p6p10+p6p11))
3239       b(8)=w5*ccc*(16*p4p6*(ffmcfmb*hbcm2-fmc*hbcm)+8*p3p6*(-ffmcfmb
3240      . **2*hbcm2+ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2-fmc*
3241      . hbcm+fmc2)+16*(ffmcfmb*p2p3*p3p6-2*ffmcfmb*p3p4*p3p6-p1p2*p3p6
3242      . -3*p1p3*p4p6+p1p5*p3p6))
3243       ans3=w12*(16*p3p5*(ffmcfmb*hbcm*p6p10-fmc*p6p10)+16*p4p6*(-3*
3244      . ffmcfmb*hbcm*p3p10+3*fmc*p3p10-hbcm*p1p10)+16*p2p3*(-ffmcfmb*
3245      . hbcm*p6p10+fmc*p6p10)+16*p3p6*(-ffmcfmb**2*hbcm*p3p10+ffmcfmb*
3246      . fmb*p3p10+2*ffmcfmb*fmc*p3p10-2*ffmcfmb*hbcm*p1p10-ffmcfmb*
3247      . hbcm*p2p10+ffmcfmb*hbcm*p3p10+2*ffmcfmb*hbcm*p4p10+fmc*p1p10-
3248      . fmc*p4p10)+8*(-ffmcfmb**2*hbcm3*p6p10+2*ffmcfmb*fmc*hbcm2*
3249      . p6p10+2*ffmcfmb*hbcm3*p6p10-2*fmc*hbcm2*p6p10-fmc2*hbcm*p6p10+
3250      . 2*hbcm*p1p2*p6p10-2*hbcm*p1p3*p6p10-2*hbcm*p1p5*p6p10))+8*(-4*
3251      . fmb*p3p13-4*fmc*p3p13+hbcm*p1p13+2*hbcm*p2p13-hbcm*p4p13-2*
3252      . hbcm*p5p13+hbcm*p6p10-hbcm*p6p11)
3253       ans2=w5*(16*p1p5*(-hbcm*p6p10+hbcm*p6p8)+16*p1p3*(-hbcm*p6p10+
3254      . hbcm*p6p8)+16*p1p2*(hbcm*p6p10-hbcm*p6p8)+16*p3p5*(ffmcfmb*
3255      . hbcm*p6p10-ffmcfmb*hbcm*p6p8-fmc*p6p10+fmc*p6p8)+16*p4p6*(-3*
3256      . ffmcfmb*hbcm*p3p10+3*ffmcfmb*hbcm*p3p8+3*fmc*p3p10-3*fmc*p3p8-
3257      . hbcm*p1p10+hbcm*p1p8)+16*p2p3*(-ffmcfmb*hbcm*p6p10+ffmcfmb*
3258      . hbcm*p6p8+fmc*p6p10-fmc*p6p8)+16*p3p6*(-ffmcfmb**2*hbcm*p3p10+
3259      . ffmcfmb**2*hbcm*p3p8+ffmcfmb*fmb*p3p10-ffmcfmb*fmb*p3p8+2*
3260      . ffmcfmb*fmc*p3p10-2*ffmcfmb*fmc*p3p8-2*ffmcfmb*hbcm*p1p10+2*
3261      . ffmcfmb*hbcm*p1p8-ffmcfmb*hbcm*p2p10+ffmcfmb*hbcm*p2p8+ffmcfmb
3262      . *hbcm*p3p10-ffmcfmb*hbcm*p3p8+2*ffmcfmb*hbcm*p4p10-2*ffmcfmb*
3263      . hbcm*p4p8+fmc*p1p10-fmc*p1p8-fmc*p4p10+fmc*p4p8)+8*(-ffmcfmb**
3264      . 2*hbcm3*p6p10+ffmcfmb**2*hbcm3*p6p8+2*ffmcfmb*fmc*hbcm2*p6p10-
3265      . 2*ffmcfmb*fmc*hbcm2*p6p8+2*ffmcfmb*hbcm3*p6p10-2*ffmcfmb*hbcm3
3266      . *p6p8-2*fmc*hbcm2*p6p10+2*fmc*hbcm2*p6p8-fmc2*hbcm*p6p10+fmc2*
3267      . hbcm*p6p8))+ans3
3268       ans1=w8*(16*p3p5*(-ffmcfmb*hbcm*p6p11+fmc*p6p11)+16*p2p3*(
3269      . ffmcfmb*hbcm*p6p11-fmc*p6p11)+16*p3p6*(2*ffmcfmb*hbcm*p1p11+
3270      . ffmcfmb*hbcm*p2p11-2*ffmcfmb*hbcm*p3p11-2*ffmcfmb*hbcm*p4p11-
3271      . fmc*p1p11+fmc*p3p11+fmc*p4p11)+8*(ffmcfmb**2*hbcm3*p6p11-2*
3272      . ffmcfmb*fmc*hbcm2*p6p11-2*ffmcfmb*hbcm3*p6p11+2*fmc*hbcm2*
3273      . p6p11+fmc2*hbcm*p6p11+2*hbcm*p1p11*p4p6-2*hbcm*p1p2*p6p11+2*
3274      . hbcm*p1p3*p6p11+2*hbcm*p1p5*p6p11))+ans2
3275       ans=ccc*ans1
3276       b(10)=ans
3277       b(11)=w5*ccc*(16*(p4p6*p3p7)*(ffmcfmb*hbcm-fmc)+16*(p5p7*p3p6)*
3278      . (-2*ffmcfmb*hbcm+fmc)+16*(p6p7*p3p5)*(ffmcfmb*hbcm-fmc)+16*(
3279      . p6p7*p2p3)*(-ffmcfmb*hbcm+fmc)+8*p6p7*(-ffmcfmb**2*hbcm3+2*
3280      . ffmcfmb*fmc*hbcm2+2*ffmcfmb*hbcm3-2*fmc*hbcm2-fmc2*hbcm)+16*(
3281      . p3p7*p3p6)*(ffmcfmb**2*hbcm-2*ffmcfmb*fmc-ffmcfmb*hbcm+fmc)+16
3282      . *(hbcm*p1p2*p6p7-hbcm*p1p3*p6p7-hbcm*p1p5*p6p7))
3283       b(13)=4*ccc*w5*(-2*ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm-ffmcfmb*
3284      . fmc*hbcm-fmb*fmc+3*fmc2+2*p1p2-2*p1p3-8*p1p4)
3285       b(15)=w5*ccc*(24*p3p4*(-ffmcfmb*hbcm+fmc)+8*p2p3*(ffmcfmb*hbcm-
3286      . fmc)+8*p1p3*(2*ffmcfmb*hbcm-2*fmc+hbcm)+4*(-ffmcfmb**2*hbcm3+
3287      . ffmcfmb*fmb*hbcm2+3*ffmcfmb*fmc*hbcm2-2*ffmcfmb*hbcm3-fmb*fmc*
3288      . hbcm+2*fmc*hbcm2-2*fmc2*hbcm-2*hbcm*p1p2+6*hbcm*p1p4))
3289       b(17)=ccc*(w5*(8*p3p6*(ffmcfmb*hbcm+hbcm)+24*hbcm*p4p6)+w12*(8*
3290      . p3p6*(ffmcfmb*hbcm+hbcm)+24*hbcm*p4p6))
3291       b(18)=ccc*(4*w5*(-fmb-fmc)+4*w12*(-fmb-fmc))
3292       b(19)=ccc*(4*w5*(-4*ffmcfmb*hbcm2+fmb*hbcm-fmc*hbcm-2*hbcm2+6*
3293      . p1p3+2*p2p3-8*p3p4)+4*w12*(-4*ffmcfmb*hbcm2+fmb*hbcm-fmc*hbcm-
3294      . 2*hbcm2+6*p1p3+2*p2p3-8*p3p4))
3295       b(20)=ccc*(w5*(8*p3p7*(-ffmcfmb*hbcm+2*hbcm)+24*hbcm*p5p7)+w12*
3296      . (8*p3p7*(-ffmcfmb*hbcm+2*hbcm)+24*hbcm*p5p7))
3297       b(21)=ccc*(8*w8*(2*hbcm*p1p11+hbcm*p2p11-3*hbcm*p3p11-3*hbcm*
3298      . p4p11)+8*w5*(fmb*p3p10-fmb*p3p8+fmc*p3p10-fmc*p3p8-2*hbcm*
3299      . p1p10+2*hbcm*p1p8-hbcm*p2p10+hbcm*p2p8+3*hbcm*p3p10-3*hbcm*
3300      . p3p8+3*hbcm*p4p10-3*hbcm*p4p8)+8*w12*(fmb*p3p10+fmc*p3p10-2*
3301      . hbcm*p1p10-hbcm*p2p10+3*hbcm*p3p10+3*hbcm*p4p10))
3302       b(22)=ccc*(w5*(24*p3p4*(ffmcfmb*hbcm-fmc)+8*p2p3*(-ffmcfmb*hbcm
3303      . +fmc)+8*p1p3*(-2*ffmcfmb*hbcm+2*fmc-hbcm)+4*(ffmcfmb**2*hbcm3-
3304      . ffmcfmb*fmb*hbcm2-3*ffmcfmb*fmc*hbcm2+2*ffmcfmb*hbcm3+fmb*fmc*
3305      . hbcm-2*fmc*hbcm2+2*fmc2*hbcm+2*hbcm*p1p2-6*hbcm*p1p4))+w12*(24
3306      . *p3p4*(ffmcfmb*hbcm-fmc)+8*p2p3*(-ffmcfmb*hbcm+fmc)+8*p1p3*(-2
3307      . *ffmcfmb*hbcm+2*fmc-hbcm)+4*(ffmcfmb**2*hbcm3-ffmcfmb*fmb*
3308      . hbcm2-3*ffmcfmb*fmc*hbcm2+2*ffmcfmb*hbcm3+fmb*fmc*hbcm-2*fmc*
3309      . hbcm2+2*fmc2*hbcm+2*hbcm*p1p2-6*hbcm*p1p4)))
3310       b(23)=w5*ccc*(8*p3p6*(-ffmcfmb*hbcm-hbcm)-24*hbcm*p4p6)
3311       b(24)=4*ccc*w5*(fmb+fmc)
3312       b(25)=4*ccc*w5*(4*ffmcfmb*hbcm2-fmb*hbcm+fmc*hbcm+2*hbcm2-6*
3313      . p1p3-2*p2p3+8*p3p4)
3314       b(26)=w5*ccc*(8*p3p7*(ffmcfmb*hbcm-2*hbcm)-24*hbcm*p5p7)
3315       b(27)=ccc*(w5*(24*p4p6*(ffmcfmb*hbcm-fmc)+8*p3p6*(ffmcfmb**2*
3316      . hbcm-ffmcfmb*fmb-2*ffmcfmb*fmc+ffmcfmb*hbcm-fmc))+w12*(24*p4p6
3317      . *(ffmcfmb*hbcm-fmc)+8*p3p6*(ffmcfmb**2*hbcm-ffmcfmb*fmb-2*
3318      . ffmcfmb*fmc+ffmcfmb*hbcm-fmc)))
3319       b(28)=ccc*(w5*(16*p4p6*(ffmcfmb*hbcm2-fmc*hbcm)+8*p3p6*(-
3320      . ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm-ffmcfmb*
3321      . hbcm2-fmc*hbcm+fmc2)+16*(ffmcfmb*p2p3*p3p6-2*ffmcfmb*p3p4*p3p6
3322      . -p1p2*p3p6-3*p1p3*p4p6+p1p5*p3p6))+w12*(16*p4p6*(ffmcfmb*hbcm2
3323      . -fmc*hbcm)+8*p3p6*(-ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm-ffmcfmb*
3324      . fmc*hbcm-ffmcfmb*hbcm2-fmc*hbcm+fmc2)+16*(ffmcfmb*p2p3*p3p6-2*
3325      . ffmcfmb*p3p4*p3p6-p1p2*p3p6-3*p1p3*p4p6+p1p5*p3p6)))
3326       b(29)=ccc*(w5*(16*(p4p6*p3p7)*(-ffmcfmb*hbcm+fmc)+16*(p5p7*p3p6
3327      . )*(2*ffmcfmb*hbcm-fmc)+16*(p6p7*p3p5)*(-ffmcfmb*hbcm+fmc)+16*(
3328      . p6p7*p2p3)*(ffmcfmb*hbcm-fmc)+8*p6p7*(ffmcfmb**2*hbcm3-2*
3329      . ffmcfmb*fmc*hbcm2-2*ffmcfmb*hbcm3+2*fmc*hbcm2+fmc2*hbcm)+16*(
3330      . p3p7*p3p6)*(-ffmcfmb**2*hbcm+2*ffmcfmb*fmc+ffmcfmb*hbcm-fmc)+
3331      . 16*(-hbcm*p1p2*p6p7+hbcm*p1p3*p6p7+hbcm*p1p5*p6p7))+w12*(16*(
3332      . p4p6*p3p7)*(-ffmcfmb*hbcm+fmc)+16*(p5p7*p3p6)*(2*ffmcfmb*hbcm-
3333      . fmc)+16*(p6p7*p3p5)*(-ffmcfmb*hbcm+fmc)+16*(p6p7*p2p3)*(
3334      . ffmcfmb*hbcm-fmc)+8*p6p7*(ffmcfmb**2*hbcm3-2*ffmcfmb*fmc*hbcm2
3335      . -2*ffmcfmb*hbcm3+2*fmc*hbcm2+fmc2*hbcm)+16*(p3p7*p3p6)*(-
3336      . ffmcfmb**2*hbcm+2*ffmcfmb*fmc+ffmcfmb*hbcm-fmc)+16*(-hbcm*p1p2
3337      . *p6p7+hbcm*p1p3*p6p7+hbcm*p1p5*p6p7)))
3338       ans4=16*p3p7*(ffmcfmb*fmc*hbcm*p6p10-ffmcfmb*fmc*hbcm*p6p8+
3339      . ffmcfmb*hbcm2*p6p10-ffmcfmb*hbcm2*p6p8-fmc*hbcm*p6p10+fmc*hbcm
3340      . *p6p8-fmc2*p6p10+fmc2*p6p8)+16*p3p6*(ffmcfmb**2*hbcm2*p7p10-
3341      . ffmcfmb*fmb*hbcm*p7p8+ffmcfmb*fmc*hbcm*p7p10+ffmcfmb*hbcm2*
3342      . p7p8+fmc*hbcm*p7p8-fmc2*p7p8)+32*(-ffmcfmb*p2p3*p3p6*p7p8+p1p2
3343      . *p3p6*p7p8-p1p5*p3p6*p7p8)
3344       ans3=32*(p3p7*p1p5)*(-p6p10+p6p8)+32*(p5p7*p1p3)*(-p6p10+p6p8)+
3345      . 32*(p4p6*p1p3)*(p7p10+2*p7p8)+32*(p3p7*p1p2)*(p6p10-p6p8)+96*(
3346      . p4p6*p3p7)*(p1p10-p1p8)+32*(p5p7*p3p6)*(p1p10-p1p8)+32*(p4p7*
3347      . p3p6)*(p1p10-p1p8)+32*(p6p7*p3p5)*(p1p10-p1p8)+32*(p6p7*p3p4)*
3348      . (p1p10-p1p8)+32*(p6p7*p2p3)*(-p1p10+p1p8)+32*(p6p7*p1p3)*(-
3349      . p1p10+p1p8-p2p10+p2p8+p5p10-p5p8)+32*(p3p6*p3p4)*(ffmcfmb*
3350      . p7p10+ffmcfmb*p7p8)+32*(p3p7*p3p6)*(-2*ffmcfmb*p2p10+2*ffmcfmb
3351      . *p2p8+2*ffmcfmb*p3p10-2*ffmcfmb*p3p8+2*ffmcfmb*p4p10-2*ffmcfmb
3352      . *p4p8+ffmcfmb*p5p10-ffmcfmb*p5p8+2*p1p10-2*p1p8)+32*(p3p7*p1p3
3353      . )*(ffmcfmb*p6p10-ffmcfmb*p6p8-2*p6p10+2*p6p8)+16*p5p7*(ffmcfmb
3354      . *hbcm2*p6p10-ffmcfmb*hbcm2*p6p8-fmc*hbcm*p6p10+fmc*hbcm*p6p8)+
3355      . 16*p4p6*(-ffmcfmb*hbcm2*p7p10-ffmcfmb*hbcm2*p7p8+fmc*hbcm*
3356      . p7p10+fmc*hbcm*p7p8)+16*p6p7*(ffmcfmb*hbcm2*p2p10-ffmcfmb*
3357      . hbcm2*p2p8-ffmcfmb*hbcm2*p5p10+ffmcfmb*hbcm2*p5p8-fmc*hbcm*
3358      . p2p10+fmc*hbcm*p2p8+fmc*hbcm*p5p10-fmc*hbcm*p5p8+2*hbcm2*p1p10
3359      . -2*hbcm2*p1p8)+ans4
3360       ans2=w5*ans3
3361       ans6=(16*p3p4*(p6p12-3*p7p13)+16*p6p7*(-p3p10+4*p3p11)+16*p2p3*
3362      . (-p6p12+4*p7p13)+16*p1p3*(p6p12+3*p7p13)+16*p3p7*(ffmcfmb*
3363      . p3p13+3*p1p13+2*p2p13-3*p3p13-2*p4p13-3*p5p13+p6p10)+16*p3p6*(
3364      . -ffmcfmb*p3p12-2*p1p12+p3p12+p4p12+p5p12-p7p11)+8*(-ffmcfmb*
3365      . hbcm2*p6p12+ffmcfmb*hbcm2*p7p13-fmb*hbcm*p6p12+fmb*hbcm*p7p13+
3366      . 2*fmc*hbcm*p6p12+hbcm2*p6p12-7*hbcm2*p7p13+6*p3p13*p4p7-6*p3p5
3367      . *p7p13))
3368       ans5=w12*(32*(p6p7*p1p3)*(-p1p10-p2p10+p5p10)+32*(p3p7*p3p6)*(-
3369      . 2*ffmcfmb*p2p10+2*ffmcfmb*p3p10+2*ffmcfmb*p4p10+ffmcfmb*p5p10+
3370      . 2*p1p10)+32*(p3p7*p1p3)*(ffmcfmb*p6p10-2*p6p10)+16*p5p7*(
3371      . ffmcfmb*hbcm2*p6p10-fmc*hbcm*p6p10)+16*p4p6*(-ffmcfmb*hbcm2*
3372      . p7p10+fmc*hbcm*p7p10)+16*p6p7*(ffmcfmb*hbcm2*p2p10-ffmcfmb*
3373      . hbcm2*p5p10-fmc*hbcm*p2p10+fmc*hbcm*p5p10+2*hbcm2*p1p10)+16*
3374      . p3p7*(ffmcfmb*fmc*hbcm*p6p10+ffmcfmb*hbcm2*p6p10-fmc*hbcm*
3375      . p6p10-fmc2*p6p10)+16*p3p6*(ffmcfmb**2*hbcm2*p7p10+ffmcfmb*fmc*
3376      . hbcm*p7p10)+32*(ffmcfmb*p3p4*p3p6*p7p10-p1p10*p2p3*p6p7+p1p10*
3377      . p3p4*p6p7+p1p10*p3p5*p6p7+p1p10*p3p6*p4p7+p1p10*p3p6*p5p7+3*
3378      . p1p10*p3p7*p4p6+p1p2*p3p7*p6p10+p1p3*p4p6*p7p10-p1p3*p5p7*
3379      . p6p10-p1p5*p3p7*p6p10))+ans6
3380       ans1=w8*(32*(p6p7*p1p3)*(p1p11+p2p11-p5p11)+32*(p3p7*p3p6)*(2*
3381      . ffmcfmb*p2p11-2*ffmcfmb*p3p11-2*ffmcfmb*p4p11-ffmcfmb*p5p11-2*
3382      . p1p11)+32*(p3p7*p1p3)*(-ffmcfmb*p6p11+2*p6p11)+16*p5p7*(-
3383      . ffmcfmb*hbcm2*p6p11+fmc*hbcm*p6p11)+16*p4p6*(ffmcfmb*hbcm2*
3384      . p7p11-fmc*hbcm*p7p11)+16*p6p7*(-ffmcfmb*hbcm2*p2p11+ffmcfmb*
3385      . hbcm2*p5p11+fmc*hbcm*p2p11-fmc*hbcm*p5p11-2*hbcm2*p1p11)+16*
3386      . p3p7*(-ffmcfmb*fmc*hbcm*p6p11-ffmcfmb*hbcm2*p6p11+fmc*hbcm*
3387      . p6p11+fmc2*p6p11)+16*p3p6*(-ffmcfmb**2*hbcm2*p7p11-ffmcfmb*fmc
3388      . *hbcm*p7p11)+32*(-ffmcfmb*p3p4*p3p6*p7p11+p1p11*p2p3*p6p7-
3389      . p1p11*p3p4*p6p7-p1p11*p3p5*p6p7-p1p11*p3p6*p4p7-p1p11*p3p6*
3390      . p5p7-3*p1p11*p3p7*p4p6-p1p2*p3p7*p6p11-p1p3*p4p6*p7p11+p1p3*
3391      . p5p7*p6p11+p1p5*p3p7*p6p11))+ans2+ans5
3392       ans=ccc*ans1
3393       b(30)=ans
3394       b(31)=w5*ccc*(24*p4p6*(-ffmcfmb*hbcm+fmc)+8*p3p6*(-ffmcfmb**2*
3395      . hbcm+ffmcfmb*fmb+2*ffmcfmb*fmc-ffmcfmb*hbcm+fmc))
3396       ans2=8*(ffmcfmb*hbcm*p6p12+ffmcfmb*hbcm*p7p13-fmc*p6p12-fmc*
3397      . p7p13)
3398       ans1=w8*(16*p4p7*(-ffmcfmb*hbcm*p6p11+fmc*p6p11)+16*p4p6*(-
3399      . ffmcfmb*hbcm*p7p11+fmc*p7p11)+16*p6p7*(ffmcfmb*hbcm*p2p11-
3400      . ffmcfmb*hbcm*p5p11-fmc*p2p11+fmc*p5p11)+16*p3p7*(-ffmcfmb**2*
3401      . hbcm*p6p11+ffmcfmb*fmc*p6p11)+16*p3p6*(-ffmcfmb**2*hbcm*p7p11+
3402      . ffmcfmb*fmc*p7p11))+w5*(16*p4p7*(ffmcfmb*hbcm*p6p10-ffmcfmb*
3403      . hbcm*p6p8-fmc*p6p10+fmc*p6p8)+16*p4p6*(ffmcfmb*hbcm*p7p10-
3404      . ffmcfmb*hbcm*p7p8-fmc*p7p10+fmc*p7p8)+16*p6p7*(-ffmcfmb*hbcm*
3405      . p2p10+ffmcfmb*hbcm*p2p8+ffmcfmb*hbcm*p5p10-ffmcfmb*hbcm*p5p8+
3406      . fmc*p2p10-fmc*p2p8-fmc*p5p10+fmc*p5p8)+16*p3p7*(ffmcfmb**2*
3407      . hbcm*p6p10-ffmcfmb**2*hbcm*p6p8-ffmcfmb*fmc*p6p10+ffmcfmb*fmc*
3408      . p6p8)+16*p3p6*(ffmcfmb**2*hbcm*p7p10-ffmcfmb**2*hbcm*p7p8-
3409      . ffmcfmb*fmc*p7p10+ffmcfmb*fmc*p7p8))+w12*(16*p4p7*(ffmcfmb*
3410      . hbcm*p6p10-fmc*p6p10)+16*p4p6*(ffmcfmb*hbcm*p7p10-fmc*p7p10)+
3411      . 16*p6p7*(-ffmcfmb*hbcm*p2p10+ffmcfmb*hbcm*p5p10+fmc*p2p10-fmc*
3412      . p5p10)+16*p3p7*(ffmcfmb**2*hbcm*p6p10-ffmcfmb*fmc*p6p10)+16*
3413      . p3p6*(ffmcfmb**2*hbcm*p7p10-ffmcfmb*fmc*p7p10))+ans2
3414       ans=ccc*ans1
3415       b(33)=ans
3416       b(38)=ccc*(w8*(16*p3p7*(p2p11-p5p11)+16*(-ffmcfmb*hbcm2*p7p11+
3417      . p1p3*p7p11-p3p4*p7p11))+w5*(16*p3p4*(p7p10-p7p8)+16*p3p7*(-
3418      . p2p10+p2p8+p5p10-p5p8)+16*p1p3*(-p7p10+p7p8)+16*(ffmcfmb*hbcm2
3419      . *p7p10-ffmcfmb*hbcm2*p7p8))+w12*(16*p3p7*(-p2p10+p5p10)+16*(
3420      . ffmcfmb*hbcm2*p7p10-p1p3*p7p10+p3p4*p7p10))-8*p3p12)
3421       b(39)=w8*ccc*(16*p6p7*(-ffmcfmb*hbcm2+hbcm2)+16*(2*ffmcfmb*p3p6
3422      . *p3p7-p2p3*p6p7+p3p5*p6p7+p3p6*p4p7+p3p7*p4p6))
3423       b(40)=w8*ccc*(16*(p4p6*p3p7)*(ffmcfmb*hbcm-fmc)+16*(p5p7*p3p6)*
3424      . (-2*ffmcfmb*hbcm+fmc)+16*(p6p7*p3p5)*(ffmcfmb*hbcm-fmc)+16*(
3425      . p6p7*p2p3)*(-ffmcfmb*hbcm+fmc)+8*p6p7*(-ffmcfmb**2*hbcm3+2*
3426      . ffmcfmb*fmc*hbcm2+2*ffmcfmb*hbcm3-2*fmc*hbcm2-fmc2*hbcm)+16*(
3427      . p3p7*p3p6)*(ffmcfmb**2*hbcm-2*ffmcfmb*fmc-ffmcfmb*hbcm+fmc)+16
3428      . *(hbcm*p1p2*p6p7-hbcm*p1p3*p6p7-hbcm*p1p5*p6p7))
3429       b(41)=w8*ccc*(8*p6p7*(ffmcfmb**2*hbcm2-fmc2)+16*(-ffmcfmb*p3p6*
3430      . p3p7-2*ffmcfmb*p3p6*p5p7+p1p2*p6p7-p1p3*p6p7-p1p5*p6p7))
3431       b(43)=ccc*(w8*(16*p6p7*(-p2p11+p5p11)+16*(ffmcfmb*p3p6*p7p11+
3432      . ffmcfmb*p3p7*p6p11+p4p6*p7p11+p4p7*p6p11))+w5*(16*p4p7*(-p6p10
3433      . +p6p8)+16*p4p6*(-p7p10+p7p8)+16*p6p7*(p2p10-p2p8-p5p10+p5p8)+
3434      . 16*p3p7*(-ffmcfmb*p6p10+ffmcfmb*p6p8)+16*p3p6*(-ffmcfmb*p7p10+
3435      . ffmcfmb*p7p8))+w12*(16*p6p7*(p2p10-p5p10)+16*(-ffmcfmb*p3p6*
3436      . p7p10-ffmcfmb*p3p7*p6p10-p4p6*p7p10-p4p7*p6p10))+8*(-p6p12-
3437      . p7p13))
3438       b(44)=w8*ccc*(16*p4p6*(-ffmcfmb*hbcm2+fmc*hbcm)+8*p3p6*(ffmcfmb
3439      . **2*hbcm2-ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2+fmc*
3440      . hbcm-fmc2)+16*(-ffmcfmb*p2p3*p3p6+2*ffmcfmb*p3p4*p3p6+p1p2*
3441      . p3p6+3*p1p3*p4p6-p1p5*p3p6))
3442       b(45)=w8*ccc*(p3p6*(16*ffmcfmb+8)+32*p4p6)
3443       b(46)=w8*ccc*(24*p4p6*(ffmcfmb*hbcm-fmc)+8*p3p6*(ffmcfmb**2*
3444      . hbcm-ffmcfmb*fmb-2*ffmcfmb*fmc+ffmcfmb*hbcm-fmc))
3445       b(49)=w8*ccc*(8*p3p7*(ffmcfmb*hbcm-2*hbcm)-24*hbcm*p5p7)
3446       b(50)=w8*ccc*(p3p7*(16*ffmcfmb-24)-32*p5p7)
3447       b(51)=w8*ccc*((p3p7*p1p3)*(-16*ffmcfmb+16)+16*p5p7*(ffmcfmb*
3448      . hbcm2-fmc*hbcm)+8*p3p7*(-ffmcfmb**2*hbcm2+ffmcfmb*hbcm2-fmc*
3449      . hbcm+fmc2)+16*(p1p3*p5p7-p1p4*p3p7))
3450       b(53)=ccc*(8*w8*(3*p1p11+p2p11-4*p3p11-4*p4p11)+8*w5*(-3*p1p10+
3451      . 3*p1p8-p2p10+p2p8+4*p3p10-4*p3p8+4*p4p10-4*p4p8)+8*w12*(-3*
3452      . p1p10-p2p10+4*p3p10+4*p4p10))
3453       b(54)=4*ccc*w8*(4*ffmcfmb*hbcm2-fmb*hbcm+fmc*hbcm+2*hbcm2-6*
3454      . p1p3-2*p2p3+8*p3p4)
3455       b(55)=4*ccc*w8*(-fmb-fmc)
3456       b(56)=4*ccc*w8*(-2*ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm-ffmcfmb*
3457      . fmc*hbcm-fmb*fmc+3*fmc2+2*p1p2-2*p1p3-8*p1p4)
3458       b(57)=-8*ccc
3459       b(58)=w8*ccc*(8*p3p6*(-ffmcfmb*hbcm-hbcm)-24*hbcm*p4p6)
3460       b(59)=w8*ccc*(24*p3p4*(-ffmcfmb*hbcm+fmc)+8*p2p3*(ffmcfmb*hbcm-
3461      . fmc)+8*p1p3*(2*ffmcfmb*hbcm-2*fmc+hbcm)+4*(-ffmcfmb**2*hbcm3+
3462      . ffmcfmb*fmb*hbcm2+3*ffmcfmb*fmc*hbcm2-2*ffmcfmb*hbcm3-fmb*fmc*
3463      . hbcm+2*fmc*hbcm2-2*fmc2*hbcm-2*hbcm*p1p2+6*hbcm*p1p4))
3464       b(61)=-4*ccc*hbcm
3465       b(62)=8*ccc*ffmcfmb*hbcm*p3p6
3466       b(63)=ccc*(w5*(16*p6p7*(ffmcfmb*hbcm2-hbcm2)+16*(-2*ffmcfmb*
3467      . p3p6*p3p7+p2p3*p6p7-p3p5*p6p7-p3p6*p4p7-p3p7*p4p6))+w12*(16*
3468      . p6p7*(ffmcfmb*hbcm2-hbcm2)+16*(-2*ffmcfmb*p3p6*p3p7+p2p3*p6p7-
3469      . p3p5*p6p7-p3p6*p4p7-p3p7*p4p6)))
3470       b(64)=ccc*(w5*(8*p6p7*(-ffmcfmb**2*hbcm2+fmc2)+16*(ffmcfmb*p3p6
3471      . *p3p7+2*ffmcfmb*p3p6*p5p7-p1p2*p6p7+p1p3*p6p7+p1p5*p6p7))+w12*
3472      . (8*p6p7*(-ffmcfmb**2*hbcm2+fmc2)+16*(ffmcfmb*p3p6*p3p7+2*
3473      . ffmcfmb*p3p6*p5p7-p1p2*p6p7+p1p3*p6p7+p1p5*p6p7)))
3474       b(65)=w5*ccc*(16*p6p7*(-ffmcfmb*hbcm2+hbcm2)+16*(2*ffmcfmb*p3p6
3475      . *p3p7-p2p3*p6p7+p3p5*p6p7+p3p6*p4p7+p3p7*p4p6))
3476       b(66)=ccc*(w8*(16*p6p7*(-hbcm*p2p11+hbcm*p5p11)+16*(ffmcfmb*
3477      . hbcm*p3p6*p7p11+ffmcfmb*hbcm*p3p7*p6p11+hbcm*p4p6*p7p11+hbcm*
3478      . p4p7*p6p11))+w5*(16*p4p7*(-hbcm*p6p10+hbcm*p6p8)+16*p4p6*(-
3479      . hbcm*p7p10+hbcm*p7p8)+16*p6p7*(hbcm*p2p10-hbcm*p2p8-hbcm*p5p10
3480      . +hbcm*p5p8)+16*p3p7*(-ffmcfmb*hbcm*p6p10+ffmcfmb*hbcm*p6p8)+16
3481      . *p3p6*(-ffmcfmb*hbcm*p7p10+ffmcfmb*hbcm*p7p8))+w12*(16*p6p7*(
3482      . hbcm*p2p10-hbcm*p5p10)+16*(-ffmcfmb*hbcm*p3p6*p7p10-ffmcfmb*
3483      . hbcm*p3p7*p6p10-hbcm*p4p6*p7p10-hbcm*p4p7*p6p10))+8*(-hbcm*
3484      . p6p12-hbcm*p7p13))
3485       b(67)=ccc*(w5*(p3p6*(-16*ffmcfmb-8)-32*p4p6)+w12*(p3p6*(-16*
3486      . ffmcfmb-8)-32*p4p6))
3487       b(68)=w5*ccc*(p3p6*(16*ffmcfmb+8)+32*p4p6)
3488       b(69)=ccc*(w5*(p3p7*(-16*ffmcfmb+24)+32*p5p7)+w12*(p3p7*(-16*
3489      . ffmcfmb+24)+32*p5p7))
3490       b(70)=ccc*(w5*((p3p7*p1p3)*(16*ffmcfmb-16)+16*p5p7*(-ffmcfmb*
3491      . hbcm2+fmc*hbcm)+8*p3p7*(ffmcfmb**2*hbcm2-ffmcfmb*hbcm2+fmc*
3492      . hbcm-fmc2)+16*(-p1p3*p5p7+p1p4*p3p7))+w12*((p3p7*p1p3)*(16*
3493      . ffmcfmb-16)+16*p5p7*(-ffmcfmb*hbcm2+fmc*hbcm)+8*p3p7*(ffmcfmb
3494      . **2*hbcm2-ffmcfmb*hbcm2+fmc*hbcm-fmc2)+16*(-p1p3*p5p7+p1p4*
3495      . p3p7)))
3496       b(71)=w5*ccc*(p3p7*(16*ffmcfmb-24)-32*p5p7)
3497       b(72)=ccc*(4*w5*(2*ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm+ffmcfmb*
3498      . fmc*hbcm+fmb*fmc-3*fmc2-2*p1p2+2*p1p3+8*p1p4)+4*w12*(2*ffmcfmb
3499      . **2*hbcm2-ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+fmb*fmc-3*fmc2-2*
3500      . p1p2+2*p1p3+8*p1p4))
3501       b(75)=ccc*(8*w8*(-2*ffmcfmb*hbcm*p1p11-ffmcfmb*hbcm*p2p11+3*
3502      . ffmcfmb*hbcm*p3p11+3*ffmcfmb*hbcm*p4p11+2*fmc*p1p11+fmc*p2p11-
3503      . 3*fmc*p3p11-3*fmc*p4p11)+8*w5*(2*ffmcfmb*hbcm*p1p10-2*ffmcfmb*
3504      . hbcm*p1p8+ffmcfmb*hbcm*p2p10-ffmcfmb*hbcm*p2p8-3*ffmcfmb*hbcm*
3505      . p3p10+3*ffmcfmb*hbcm*p3p8-3*ffmcfmb*hbcm*p4p10+3*ffmcfmb*hbcm*
3506      . p4p8-2*fmc*p1p10+2*fmc*p1p8-fmc*p2p10+fmc*p2p8+3*fmc*p3p10-3*
3507      . fmc*p3p8+3*fmc*p4p10-3*fmc*p4p8)+8*w12*(2*ffmcfmb*hbcm*p1p10+
3508      . ffmcfmb*hbcm*p2p10-3*ffmcfmb*hbcm*p3p10-3*ffmcfmb*hbcm*p4p10-2
3509      . *fmc*p1p10-fmc*p2p10+3*fmc*p3p10+3*fmc*p4p10))
3510       ans=ccc*(w8*(16*p1p3*(-p1p11+p3p11+p4p11)+8*(-3*ffmcfmb*hbcm2*
3511      . p1p11-ffmcfmb*hbcm2*p2p11+2*ffmcfmb*hbcm2*p3p11+2*ffmcfmb*
3512      . hbcm2*p4p11+fmc*hbcm*p1p11+fmc*hbcm*p2p11-2*fmc*hbcm*p3p11-2*
3513      . fmc*hbcm*p4p11+2*hbcm2*p1p11-2*p1p11*p2p3+2*p1p11*p3p5))+w5*(
3514      . 16*p3p5*(-p1p10+p1p8)+16*p2p3*(p1p10-p1p8)+16*p1p3*(p1p10-p1p8
3515      . -p3p10+p3p8-p4p10+p4p8)+8*(3*ffmcfmb*hbcm2*p1p10-3*ffmcfmb*
3516      . hbcm2*p1p8+ffmcfmb*hbcm2*p2p10-ffmcfmb*hbcm2*p2p8-2*ffmcfmb*
3517      . hbcm2*p3p10+2*ffmcfmb*hbcm2*p3p8-2*ffmcfmb*hbcm2*p4p10+2*
3518      . ffmcfmb*hbcm2*p4p8-fmc*hbcm*p1p10+fmc*hbcm*p1p8-fmc*hbcm*p2p10
3519      . +fmc*hbcm*p2p8+2*fmc*hbcm*p3p10-2*fmc*hbcm*p3p8+2*fmc*hbcm*
3520      . p4p10-2*fmc*hbcm*p4p8-2*hbcm2*p1p10+2*hbcm2*p1p8))+w12*(16*
3521      . p1p3*(p1p10-p3p10-p4p10)+8*(3*ffmcfmb*hbcm2*p1p10+ffmcfmb*
3522      . hbcm2*p2p10-2*ffmcfmb*hbcm2*p3p10-2*ffmcfmb*hbcm2*p4p10-fmc*
3523      . hbcm*p1p10-fmc*hbcm*p2p10+2*fmc*hbcm*p3p10+2*fmc*hbcm*p4p10-2*
3524      . hbcm2*p1p10+2*p1p10*p2p3-2*p1p10*p3p5)))
3525       b(76)=ans
3526       b(77)=ccc*(w8*(16*p3p6*(p2p11-p5p11)+16*(-ffmcfmb*hbcm2*p6p11+
3527      . hbcm2*p6p11-p2p3*p6p11+p3p5*p6p11))+w5*(16*p3p5*(-p6p10+p6p8)+
3528      . 16*p2p3*(p6p10-p6p8)+16*p3p6*(-p2p10+p2p8+p5p10-p5p8)+16*(
3529      . ffmcfmb*hbcm2*p6p10-ffmcfmb*hbcm2*p6p8-hbcm2*p6p10+hbcm2*p6p8)
3530      . )+w12*(16*p3p6*(-p2p10+p5p10)+16*(ffmcfmb*hbcm2*p6p10-hbcm2*
3531      . p6p10+p2p3*p6p10-p3p5*p6p10))-24*p3p13)
3532       b(82)=-8*ccc*p3p7
3533       b(83)=ccc*(8*p3p7*(fmc-2*hbcm)+8*(-2*hbcm*p4p7-hbcm*p5p7))
3534       b(84)=8*ccc*(-2*p3p7-3*p4p7-p5p7)
3535       b(85)=4*ccc*(fmb*hbcm-fmc*hbcm+4*hbcm2-6*p1p3-4*p2p3+2*p3p4+6*
3536      . p3p5)
3537       b(86)=-8*ccc
3538       b(87)=4*ccc*(-ffmcfmb*hbcm+fmb+2*fmc)
3539       b(88)=ccc*(w5*(24*p5p7*(-ffmcfmb*hbcm+fmc)+8*p3p7*(ffmcfmb**2*
3540      . hbcm-ffmcfmb*fmc-2*ffmcfmb*hbcm+2*fmc))+w12*(24*p5p7*(-ffmcfmb
3541      . *hbcm+fmc)+8*p3p7*(ffmcfmb**2*hbcm-ffmcfmb*fmc-2*ffmcfmb*hbcm+
3542      . 2*fmc)))
3543       b(89)=-4*ccc*hbcm
3544       b(90)=w8*ccc*(24*p5p7*(ffmcfmb*hbcm-fmc)+8*p3p7*(-ffmcfmb**2*
3545      . hbcm+ffmcfmb*fmc+2*ffmcfmb*hbcm-2*fmc))
3546       b(91)=w5*ccc*(24*p5p7*(ffmcfmb*hbcm-fmc)+8*p3p7*(-ffmcfmb**2*
3547      . hbcm+ffmcfmb*fmc+2*ffmcfmb*hbcm-2*fmc))
3548       b(92)=8*ccc*(3*hbcm2-2*p1p3-3*p2p3+3*p3p4+3*p3p5)
3549       b(93)=8*ccc*p3p6
3550       b(94)=4*ccc*(-ffmcfmb*hbcm+fmc)
3551       do 200 n=1,94
3552          c(n,1)=c(n,1)-0.1818181818181818d0*b(n)
3553          c(n,2)=c(n,2)-0.05883183899358491d0*b(n)
3554          c(n,3)=c(n,3)-0.2077659977796572d0*b(n)
3555 200   continue
3556       return
3557       end
3558
3559       subroutine amp20_3p2(cc)
3560       implicit double precision(a-h,o-z)
3561       implicit integer (i-n)
3562       dimension b(94)
3563 #include "inclcon.h"
3564 #include "inclppp.h"
3565 #include "inclamp.h"
3566       do 100 n=1,94
3567          b(n)=0.0d0
3568 100   continue
3569       ccc=cc/((ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2)*(ffmcfmb**2*
3570      . hbcm2-2*ffmcfmb*hbcm2+2*ffmcfmb*p1p3-fmb2+hbcm2-2*p1p3)*(
3571      . ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+2*ffmcfmb*p3p5+fmc2+2*p4p5))
3572       b(1)=ccc*(w18*((p5p7*p3p6)*(-16*ffmcfmb+16)+(p4p7*p3p6)*(16*
3573      . ffmcfmb-16)+8*p6p7*(ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm-ffmcfmb*
3574      . fmc*hbcm-ffmcfmb*hbcm2-fmb*fmc+fmc*hbcm)+16*(ffmcfmb*p1p3*p6p7
3575      . +p1p4*p6p7))+w1*((p5p7*p3p6)*(-16*ffmcfmb+16)+(p4p7*p3p6)*(16*
3576      . ffmcfmb-16)+8*p6p7*(ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm-ffmcfmb*
3577      . fmc*hbcm-ffmcfmb*hbcm2-fmb*fmc+fmc*hbcm)+16*(ffmcfmb*p1p3*p6p7
3578      . +p1p4*p6p7)))
3579       b(2)=w18*ccc*((p5p7*p3p6)*(-16*ffmcfmb+16)+(p4p7*p3p6)*(16*
3580      . ffmcfmb-16)+8*p6p7*(ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm-ffmcfmb*
3581      . fmc*hbcm-ffmcfmb*hbcm2-fmb*fmc+fmc*hbcm)+16*(ffmcfmb*p1p3*p6p7
3582      . +p1p4*p6p7))
3583       ans=ccc*(w18*(16*p5p7*(-p1p8-p1p9)+32*p4p7*(p1p8+p1p9)+16*p1p4*
3584      . (p7p8+p7p9)+16*p3p7*(ffmcfmb*p1p8+ffmcfmb*p1p9)+16*p1p3*(
3585      . ffmcfmb*p7p8+ffmcfmb*p7p9)+8*(ffmcfmb**2*hbcm2*p7p8+ffmcfmb**2
3586      . *hbcm2*p7p9+ffmcfmb*fmb*hbcm*p7p8+ffmcfmb*fmb*hbcm*p7p9-
3587      . ffmcfmb*fmc*hbcm*p7p8-ffmcfmb*fmc*hbcm*p7p9-ffmcfmb*hbcm2*p7p8
3588      . -ffmcfmb*hbcm2*p7p9-fmb*fmc*p7p8-fmb*fmc*p7p9+fmc*hbcm*p7p8+
3589      . fmc*hbcm*p7p9))+8*w1*(ffmcfmb**2*hbcm2*p7p8+ffmcfmb*fmb*hbcm*
3590      . p7p8-ffmcfmb*fmc*hbcm*p7p8-ffmcfmb*hbcm2*p7p8+2*ffmcfmb*p1p3*
3591      . p7p8+2*ffmcfmb*p1p8*p3p7-fmb*fmc*p7p8+fmc*hbcm*p7p8+2*p1p4*
3592      . p7p8+4*p1p8*p4p7-2*p1p8*p5p7)+8*w13*(ffmcfmb**2*hbcm2*p7p10+
3593      . ffmcfmb*fmb*hbcm*p7p10-ffmcfmb*fmc*hbcm*p7p10-ffmcfmb*hbcm2*
3594      . p7p10+2*ffmcfmb*p1p10*p3p7+2*ffmcfmb*p1p3*p7p10-fmb*fmc*p7p10+
3595      . fmc*hbcm*p7p10+4*p1p10*p4p7-2*p1p10*p5p7+2*p1p4*p7p10)+8*(
3596      . p1p12-2*p4p12+p5p12-3*p7p10+2*p7p8-p7p9))
3597       b(3)=ans
3598       b(4)=ccc*(w18*(8*p5p7*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*p4p7*(-
3599      . ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*p3p7*(-ffmcfmb**2*hbcm2-
3600      . ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2+fmb*fmc-fmc*
3601      . hbcm)+16*(-2*ffmcfmb*p1p3*p3p7-2*p1p3*p4p7+p1p3*p5p7-p1p4*p3p7
3602      . ))+w1*(8*p5p7*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*p4p7*(-ffmcfmb*
3603      . hbcm2-fmb*hbcm+hbcm2)+8*p3p7*(-ffmcfmb**2*hbcm2-ffmcfmb*fmb*
3604      . hbcm+ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2+fmb*fmc-fmc*hbcm)+16*(-2*
3605      . ffmcfmb*p1p3*p3p7-2*p1p3*p4p7+p1p3*p5p7-p1p4*p3p7)))
3606       b(5)=w18*ccc*(8*p5p7*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*p4p7*(-
3607      . ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*p3p7*(-ffmcfmb**2*hbcm2-
3608      . ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2+fmb*fmc-fmc*
3609      . hbcm)+16*(-2*ffmcfmb*p1p3*p3p7-2*p1p3*p4p7+p1p3*p5p7-p1p4*p3p7
3610      . ))
3611       ans2=w13*(16*p3p4*(-ffmcfmb*hbcm*p7p10-fmb*p7p10+hbcm*p7p10)+16
3612      . *p3p7*(-ffmcfmb*hbcm*p1p10+ffmcfmb*hbcm*p4p10+fmb*p4p10+fmc*
3613      . p1p10-hbcm*p4p10)+8*(-ffmcfmb**2*hbcm3*p7p10-ffmcfmb*fmb*hbcm2
3614      . *p7p10-ffmcfmb*fmc*hbcm2*p7p10+ffmcfmb*hbcm3*p7p10-fmb*fmc*
3615      . hbcm*p7p10+fmc*hbcm2*p7p10-2*fmc*p1p3*p7p10-2*hbcm*p1p10*p4p7+
3616      . 2*hbcm*p1p10*p5p7-2*hbcm*p1p4*p7p10))+8*(-fmb*p3p12-fmc*p3p12+
3617      . hbcm*p1p12+hbcm*p3p12-hbcm*p4p12+hbcm*p7p8)
3618       ans1=w18*(16*p5p7*(hbcm*p1p8+hbcm*p1p9)+16*p4p7*(-hbcm*p1p8-
3619      . hbcm*p1p9)+16*p1p4*(-hbcm*p7p8-hbcm*p7p9)+16*p1p3*(-fmc*p7p8-
3620      . fmc*p7p9)+16*p3p4*(-ffmcfmb*hbcm*p7p8-ffmcfmb*hbcm*p7p9-fmb*
3621      . p7p8-fmb*p7p9+hbcm*p7p8+hbcm*p7p9)+16*p3p7*(-ffmcfmb*hbcm*p1p8
3622      . -ffmcfmb*hbcm*p1p9+ffmcfmb*hbcm*p4p8+ffmcfmb*hbcm*p4p9+fmb*
3623      . p4p8+fmb*p4p9+fmc*p1p8+fmc*p1p9-hbcm*p4p8-hbcm*p4p9)+8*(-
3624      . ffmcfmb**2*hbcm3*p7p8-ffmcfmb**2*hbcm3*p7p9-ffmcfmb*fmb*hbcm2*
3625      . p7p8-ffmcfmb*fmb*hbcm2*p7p9-ffmcfmb*fmc*hbcm2*p7p8-ffmcfmb*fmc
3626      . *hbcm2*p7p9+ffmcfmb*hbcm3*p7p8+ffmcfmb*hbcm3*p7p9-fmb*fmc*hbcm
3627      . *p7p8-fmb*fmc*hbcm*p7p9+fmc*hbcm2*p7p8+fmc*hbcm2*p7p9))+w1*(16
3628      . *p3p4*(-ffmcfmb*hbcm*p7p8-fmb*p7p8+hbcm*p7p8)+16*p3p7*(-
3629      . ffmcfmb*hbcm*p1p8+ffmcfmb*hbcm*p4p8+fmb*p4p8+fmc*p1p8-hbcm*
3630      . p4p8)+8*(-ffmcfmb**2*hbcm3*p7p8-ffmcfmb*fmb*hbcm2*p7p8-ffmcfmb
3631      . *fmc*hbcm2*p7p8+ffmcfmb*hbcm3*p7p8-fmb*fmc*hbcm*p7p8+fmc*hbcm2
3632      . *p7p8-2*fmc*p1p3*p7p8-2*hbcm*p1p4*p7p8-2*hbcm*p1p8*p4p7+2*hbcm
3633      . *p1p8*p5p7))+ans2
3634       ans=ccc*ans1
3635       b(6)=ans
3636       ans2=w13*(16*p3p6*(ffmcfmb*p1p10+ffmcfmb*p4p10-ffmcfmb*p5p10-
3637      . p4p10+p5p10)+8*(ffmcfmb**2*hbcm2*p6p10+2*ffmcfmb*fmb*hbcm*
3638      . p6p10-2*ffmcfmb*fmc*hbcm*p6p10-ffmcfmb*hbcm2*p6p10+2*ffmcfmb*
3639      . p1p3*p6p10-2*fmb*fmc*p6p10-fmb*hbcm*p6p10+fmb2*p6p10+2*fmc*
3640      . hbcm*p6p10+2*p1p10*p4p6+4*p1p4*p6p10-2*p1p5*p6p10))+8*(p4p13-2
3641      . *p6p10-2*p6p8+p6p9)
3642       ans1=w18*(16*p4p6*(p1p8+p1p9)+16*p1p5*(-p6p8-p6p9)+32*p1p4*(
3643      . p6p8+p6p9)+16*p3p6*(ffmcfmb*p1p8+ffmcfmb*p1p9+ffmcfmb*p4p8+
3644      . ffmcfmb*p4p9-ffmcfmb*p5p8-ffmcfmb*p5p9-p4p8-p4p9+p5p8+p5p9)+16
3645      . *p1p3*(ffmcfmb*p6p8+ffmcfmb*p6p9)+8*(ffmcfmb**2*hbcm2*p6p8+
3646      . ffmcfmb**2*hbcm2*p6p9+2*ffmcfmb*fmb*hbcm*p6p8+2*ffmcfmb*fmb*
3647      . hbcm*p6p9-2*ffmcfmb*fmc*hbcm*p6p8-2*ffmcfmb*fmc*hbcm*p6p9-
3648      . ffmcfmb*hbcm2*p6p8-ffmcfmb*hbcm2*p6p9-2*fmb*fmc*p6p8-2*fmb*fmc
3649      . *p6p9-fmb*hbcm*p6p8-fmb*hbcm*p6p9+fmb2*p6p8+fmb2*p6p9+2*fmc*
3650      . hbcm*p6p8+2*fmc*hbcm*p6p9))+w1*(16*p3p6*(ffmcfmb*p1p8+ffmcfmb*
3651      . p4p8-ffmcfmb*p5p8-p4p8+p5p8)+8*(ffmcfmb**2*hbcm2*p6p8+2*
3652      . ffmcfmb*fmb*hbcm*p6p8-2*ffmcfmb*fmc*hbcm*p6p8-ffmcfmb*hbcm2*
3653      . p6p8+2*ffmcfmb*p1p3*p6p8-2*fmb*fmc*p6p8-fmb*hbcm*p6p8+fmb2*
3654      . p6p8+2*fmc*hbcm*p6p8+4*p1p4*p6p8-2*p1p5*p6p8+2*p1p8*p4p6))+
3655      . ans2
3656       ans=ccc*ans1
3657       b(7)=ans
3658       b(8)=ccc*(w18*((p3p6*p3p5)*(16*ffmcfmb-16)+(p3p6*p3p4)*(-16*
3659      . ffmcfmb+16)+8*p5p6*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*p4p6*(
3660      . ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*p3p6*(-ffmcfmb**2*hbcm2-
3661      . ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2+2*fmb*fmc-fmb2
3662      . -fmc*hbcm)+16*(-2*ffmcfmb*p1p3*p3p6-p1p3*p4p6-2*p1p4*p3p6+p1p5
3663      . *p3p6))+w1*((p3p6*p3p5)*(16*ffmcfmb-16)+(p3p6*p3p4)*(-16*
3664      . ffmcfmb+16)+8*p5p6*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*p4p6*(
3665      . ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*p3p6*(-ffmcfmb**2*hbcm2-
3666      . ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2+2*fmb*fmc-fmb2
3667      . -fmc*hbcm)+16*(-2*ffmcfmb*p1p3*p3p6-p1p3*p4p6-2*p1p4*p3p6+p1p5
3668      . *p3p6)))
3669       b(9)=w18*ccc*((p3p6*p3p5)*(16*ffmcfmb-16)+(p3p6*p3p4)*(-16*
3670      . ffmcfmb+16)+8*p5p6*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*p4p6*(
3671      . ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*p3p6*(-ffmcfmb**2*hbcm2-
3672      . ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2+2*fmb*fmc-fmb2
3673      . -fmc*hbcm)+16*(-2*ffmcfmb*p1p3*p3p6-p1p3*p4p6-2*p1p4*p3p6+p1p5
3674      . *p3p6))
3675       ans3=w13*(16*p3p5*(ffmcfmb*hbcm*p6p10+fmb*p6p10-hbcm*p6p10)+16*
3676      . p3p4*(-ffmcfmb*hbcm*p6p10-fmb*p6p10+hbcm*p6p10)+16*p5p6*(
3677      . ffmcfmb*hbcm*p3p10+fmb*p3p10-hbcm*p1p10-hbcm*p3p10)+16*p4p6*(-
3678      . 2*ffmcfmb*hbcm*p3p10-2*fmb*p3p10+hbcm*p1p10+2*hbcm*p3p10)+16*
3679      . p1p3*(-ffmcfmb*hbcm*p6p10+fmc*p6p10)+16*p3p6*(-2*ffmcfmb*fmb*
3680      . p3p10-2*ffmcfmb*fmc*p3p10-ffmcfmb*hbcm*p1p10+ffmcfmb*hbcm*
3681      . p4p10+fmb*p1p10+fmb*p3p10+fmb*p4p10-fmb*p5p10+2*fmc*p1p10+2*
3682      . fmc*p3p10-hbcm*p4p10)+8*(-ffmcfmb*fmb*hbcm2*p6p10-ffmcfmb*fmc*
3683      . hbcm2*p6p10-fmb*fmc*hbcm*p6p10+fmb*hbcm2*p6p10-fmb2*hbcm*p6p10
3684      . +fmc*hbcm2*p6p10-2*hbcm*p1p4*p6p10+2*hbcm*p1p5*p6p10))+8*(-3*
3685      . fmb*p3p13-3*fmc*p3p13+2*hbcm*p3p13-hbcm*p4p13+hbcm*p6p10+hbcm*
3686      . p6p8-hbcm*p6p9)
3687       ans2=w1*(16*p5p6*(ffmcfmb*hbcm*p3p8+fmb*p3p8-hbcm*p1p8-hbcm*
3688      . p3p8)+16*p4p6*(-2*ffmcfmb*hbcm*p3p8-2*fmb*p3p8+hbcm*p1p8+2*
3689      . hbcm*p3p8)+16*p3p5*(ffmcfmb*hbcm*p6p8+fmb*p6p8-hbcm*p6p8)+16*
3690      . p3p4*(-ffmcfmb*hbcm*p6p8-fmb*p6p8+hbcm*p6p8)+16*p1p3*(-ffmcfmb
3691      . *hbcm*p6p8+fmc*p6p8)+16*p3p6*(-2*ffmcfmb*fmb*p3p8-2*ffmcfmb*
3692      . fmc*p3p8-ffmcfmb*hbcm*p1p8+ffmcfmb*hbcm*p4p8+fmb*p1p8+fmb*p3p8
3693      . +fmb*p4p8-fmb*p5p8+2*fmc*p1p8+2*fmc*p3p8-hbcm*p4p8)+8*(-
3694      . ffmcfmb*fmb*hbcm2*p6p8-ffmcfmb*fmc*hbcm2*p6p8-fmb*fmc*hbcm*
3695      . p6p8+fmb*hbcm2*p6p8-fmb2*hbcm*p6p8+fmc*hbcm2*p6p8-2*hbcm*p1p4*
3696      . p6p8+2*hbcm*p1p5*p6p8))+ans3
3697       ans1=w18*(16*p1p5*(hbcm*p6p8+hbcm*p6p9)+16*p1p4*(-hbcm*p6p8-
3698      . hbcm*p6p9)+16*p5p6*(ffmcfmb*hbcm*p3p8+fmb*p3p8-hbcm*p1p8-hbcm*
3699      . p1p9-hbcm*p3p8)+16*p4p6*(-2*ffmcfmb*hbcm*p3p8-2*fmb*p3p8+hbcm*
3700      . p1p8+hbcm*p1p9+2*hbcm*p3p8)+16*p3p5*(ffmcfmb*hbcm*p6p8+ffmcfmb
3701      . *hbcm*p6p9+fmb*p6p8+fmb*p6p9-hbcm*p6p8-hbcm*p6p9)+16*p3p4*(-
3702      . ffmcfmb*hbcm*p6p8-ffmcfmb*hbcm*p6p9-fmb*p6p8-fmb*p6p9+hbcm*
3703      . p6p8+hbcm*p6p9)+16*p1p3*(-ffmcfmb*hbcm*p6p8-ffmcfmb*hbcm*p6p9+
3704      . fmc*p6p8+fmc*p6p9)+16*p3p6*(-2*ffmcfmb*fmb*p3p8-2*ffmcfmb*fmc*
3705      . p3p8-ffmcfmb*hbcm*p1p8-ffmcfmb*hbcm*p1p9+ffmcfmb*hbcm*p4p8+
3706      . ffmcfmb*hbcm*p4p9+fmb*p1p8+fmb*p1p9+fmb*p3p8+fmb*p4p8+fmb*p4p9
3707      . -fmb*p5p8-fmb*p5p9+2*fmc*p1p8+2*fmc*p1p9+2*fmc*p3p8-hbcm*p4p8-
3708      . hbcm*p4p9)+8*(-ffmcfmb*fmb*hbcm2*p6p8-ffmcfmb*fmb*hbcm2*p6p9-
3709      . ffmcfmb*fmc*hbcm2*p6p8-ffmcfmb*fmc*hbcm2*p6p9-fmb*fmc*hbcm*
3710      . p6p8-fmb*fmc*hbcm*p6p9+fmb*hbcm2*p6p8+fmb*hbcm2*p6p9-fmb2*hbcm
3711      . *p6p8-fmb2*hbcm*p6p9+fmc*hbcm2*p6p8+fmc*hbcm2*p6p9))+ans2
3712       ans=ccc*ans1
3713       b(10)=ans
3714       b(11)=ccc*(w18*(16*(p4p6*p3p7)*(-ffmcfmb*hbcm-fmb+hbcm)+16*(
3715      . p4p7*p3p6)*(-ffmcfmb*hbcm-fmb+hbcm)+16*(p6p7*p3p4)*(ffmcfmb*
3716      . hbcm+fmb-hbcm)+8*p6p7*(ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2+
3717      . ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3+fmb*fmc*hbcm-fmc*hbcm2)+16*(
3718      . p3p7*p3p6)*(-ffmcfmb**2*hbcm-ffmcfmb*fmb-ffmcfmb*fmc+ffmcfmb*
3719      . hbcm+fmc)+16*(ffmcfmb*hbcm*p1p3*p6p7+fmb*p3p6*p5p7+hbcm*p1p4*
3720      . p6p7))+w1*(16*(p4p6*p3p7)*(-ffmcfmb*hbcm-fmb+hbcm)+16*(p4p7*
3721      . p3p6)*(-ffmcfmb*hbcm-fmb+hbcm)+16*(p6p7*p3p4)*(ffmcfmb*hbcm+
3722      . fmb-hbcm)+8*p6p7*(ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2+ffmcfmb*
3723      . fmc*hbcm2-ffmcfmb*hbcm3+fmb*fmc*hbcm-fmc*hbcm2)+16*(p3p7*p3p6)
3724      . *(-ffmcfmb**2*hbcm-ffmcfmb*fmb-ffmcfmb*fmc+ffmcfmb*hbcm+fmc)+
3725      . 16*(ffmcfmb*hbcm*p1p3*p6p7+fmb*p3p6*p5p7+hbcm*p1p4*p6p7)))
3726       b(12)=w18*ccc*(16*(p4p6*p3p7)*(-ffmcfmb*hbcm-fmb+hbcm)+16*(p4p7
3727      . *p3p6)*(-ffmcfmb*hbcm-fmb+hbcm)+16*(p6p7*p3p4)*(ffmcfmb*hbcm+
3728      . fmb-hbcm)+8*p6p7*(ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2+ffmcfmb*
3729      . fmc*hbcm2-ffmcfmb*hbcm3+fmb*fmc*hbcm-fmc*hbcm2)+16*(p3p7*p3p6)
3730      . *(-ffmcfmb**2*hbcm-ffmcfmb*fmb-ffmcfmb*fmc+ffmcfmb*hbcm+fmc)+
3731      . 16*(fmb*p3p6*p5p7+fmc*p1p3*p6p7+hbcm*p1p4*p6p7))
3732       b(13)=ccc*(4*w18*(-2*ffmcfmb**2*hbcm2-3*ffmcfmb*fmb*hbcm+3*
3733      . ffmcfmb*fmc*hbcm+2*ffmcfmb*hbcm2-4*ffmcfmb*p1p3+3*fmb*fmc+fmb*
3734      . hbcm-fmb2-3*fmc*hbcm-6*p1p4+2*p1p5)+4*w1*(-2*ffmcfmb**2*hbcm2-
3735      . 3*ffmcfmb*fmb*hbcm+3*ffmcfmb*fmc*hbcm+2*ffmcfmb*hbcm2-4*
3736      . ffmcfmb*p1p3+3*fmb*fmc+fmb*hbcm-fmb2-3*fmc*hbcm-6*p1p4+2*p1p5)
3737      . )
3738       b(14)=4*ccc*w18*(-2*ffmcfmb**2*hbcm2-3*ffmcfmb*fmb*hbcm+3*
3739      . ffmcfmb*fmc*hbcm+2*ffmcfmb*hbcm2-4*ffmcfmb*p1p3+3*fmb*fmc+fmb*
3740      . hbcm-fmb2-3*fmc*hbcm-6*p1p4+2*p1p5)
3741       b(15)=ccc*(w18*(8*p3p5*(-ffmcfmb*hbcm-fmb+hbcm)+16*p3p4*(
3742      . ffmcfmb*hbcm+fmb-hbcm)+8*p1p3*(-ffmcfmb*hbcm+fmb+3*fmc)+4*(
3743      . ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*hbcm2+2*ffmcfmb*fmc*hbcm2-
3744      . ffmcfmb*hbcm3+2*fmb*fmc*hbcm-fmb*hbcm2+fmb2*hbcm-2*fmc*hbcm2+4
3745      . *hbcm*p1p4-2*hbcm*p1p5))+w1*(8*p3p5*(-ffmcfmb*hbcm-fmb+hbcm)+
3746      . 16*p3p4*(ffmcfmb*hbcm+fmb-hbcm)+8*p1p3*(-ffmcfmb*hbcm+fmb+3*
3747      . fmc)+4*(ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*hbcm2+2*ffmcfmb*fmc*
3748      . hbcm2-ffmcfmb*hbcm3+2*fmb*fmc*hbcm-fmb*hbcm2+fmb2*hbcm-2*fmc*
3749      . hbcm2+4*hbcm*p1p4-2*hbcm*p1p5)))
3750       b(16)=w18*ccc*(8*p3p5*(-ffmcfmb*hbcm-fmb+hbcm)+16*p3p4*(ffmcfmb
3751      . *hbcm+fmb-hbcm)+8*p1p3*(-ffmcfmb*hbcm+fmb+3*fmc)+4*(ffmcfmb**2
3752      . *hbcm3+2*ffmcfmb*fmb*hbcm2+2*ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3+2
3753      . *fmb*fmc*hbcm-fmb*hbcm2+fmb2*hbcm-2*fmc*hbcm2+4*hbcm*p1p4-2*
3754      . hbcm*p1p5))
3755       b(17)=w13*ccc*(8*p3p6*(ffmcfmb*hbcm-fmb-3*fmc)+8*(-2*hbcm*p4p6+
3756      . hbcm*p5p6))
3757       b(18)=4*ccc*w13*(-3*ffmcfmb*hbcm+fmb+4*fmc)
3758       b(19)=4*ccc*w13*(2*ffmcfmb*hbcm2-fmb*hbcm+3*fmc*hbcm+6*p3p4-2*
3759      . p3p5)
3760       b(20)=w13*ccc*(8*p3p7*(2*ffmcfmb*hbcm-fmc)+8*(2*hbcm*p4p7-hbcm*
3761      . p5p7))
3762       b(21)=ccc*(8*w18*(3*ffmcfmb*hbcm*p3p8-fmb*p3p8-4*fmc*p3p8-2*
3763      . hbcm*p4p8-2*hbcm*p4p9+hbcm*p5p8+hbcm*p5p9)+8*w1*(3*ffmcfmb*
3764      . hbcm*p3p8-fmb*p3p8-4*fmc*p3p8-2*hbcm*p4p8+hbcm*p5p8)+8*w13*(3*
3765      . ffmcfmb*hbcm*p3p10-fmb*p3p10-4*fmc*p3p10-2*hbcm*p4p10+hbcm*
3766      . p5p10))
3767       b(22)=ccc*(w13*(8*p3p5*(-ffmcfmb*hbcm-fmb+hbcm)+16*p3p4*(
3768      . ffmcfmb*hbcm+fmb-hbcm)+8*p1p3*(-ffmcfmb*hbcm+fmb+3*fmc)+4*(
3769      . ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*hbcm2+2*ffmcfmb*fmc*hbcm2-
3770      . ffmcfmb*hbcm3+2*fmb*fmc*hbcm-fmb*hbcm2+fmb2*hbcm-2*fmc*hbcm2+4
3771      . *hbcm*p1p4-2*hbcm*p1p5))-4*hbcm)
3772       b(23)=ccc*(w18*(8*p3p6*(ffmcfmb*hbcm-fmb-3*fmc)+8*(-2*hbcm*p4p6
3773      . +hbcm*p5p6))+w1*(8*p3p6*(ffmcfmb*hbcm-fmb-3*fmc)+8*(-2*hbcm*
3774      . p4p6+hbcm*p5p6)))
3775       b(24)=ccc*(4*w18*(-3*ffmcfmb*hbcm+fmb+4*fmc)+4*w1*(-3*ffmcfmb*
3776      . hbcm+fmb+4*fmc))
3777       b(25)=ccc*(4*w18*(2*ffmcfmb*hbcm2-fmb*hbcm+3*fmc*hbcm+6*p3p4-2*
3778      . p3p5)+4*w1*(2*ffmcfmb*hbcm2-fmb*hbcm+3*fmc*hbcm+6*p3p4-2*p3p5)
3779      . )
3780       b(26)=ccc*(w18*(8*p3p7*(2*ffmcfmb*hbcm-fmc)+8*(2*hbcm*p4p7-hbcm
3781      . *p5p7))+w1*(8*p3p7*(2*ffmcfmb*hbcm-fmc)+8*(2*hbcm*p4p7-hbcm*
3782      . p5p7)))
3783       b(27)=w13*ccc*(8*p5p6*(-ffmcfmb*hbcm-fmb+hbcm)+16*p4p6*(ffmcfmb
3784      . *hbcm+fmb-hbcm)+8*p3p6*(2*ffmcfmb*fmb+2*ffmcfmb*fmc-fmb-2*fmc)
3785      . )
3786       b(28)=ccc*(w13*((p3p6*p3p5)*(-16*ffmcfmb+16)+(p3p6*p3p4)*(16*
3787      . ffmcfmb-16)+8*p5p6*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*p4p6*(-
3788      . ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*p3p6*(ffmcfmb**2*hbcm2+ffmcfmb
3789      . *fmb*hbcm-ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2-2*fmb*fmc+fmb2+fmc*
3790      . hbcm)+16*(2*ffmcfmb*p1p3*p3p6+p1p3*p4p6+2*p1p4*p3p6-p1p5*p3p6)
3791      . )-8*p3p6)
3792       b(29)=ccc*(w13*(16*(p4p6*p3p7)*(-ffmcfmb*hbcm-fmb+hbcm)+16*(
3793      . p4p7*p3p6)*(-ffmcfmb*hbcm-fmb+hbcm)+16*(p6p7*p3p4)*(ffmcfmb*
3794      . hbcm+fmb-hbcm)+8*p6p7*(ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2+
3795      . ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3+fmb*fmc*hbcm-fmc*hbcm2)+16*(
3796      . p3p7*p3p6)*(-ffmcfmb**2*hbcm-ffmcfmb*fmb-ffmcfmb*fmc+ffmcfmb*
3797      . hbcm+fmc)+16*(ffmcfmb*hbcm*p1p3*p6p7+fmb*p3p6*p5p7+hbcm*p1p4*
3798      . p6p7))-8*hbcm*p6p7)
3799       ans4=16*p3p6*(ffmcfmb*fmb*hbcm*p7p8+ffmcfmb*fmb*hbcm*p7p9-
3800      . ffmcfmb*fmc*hbcm*p7p8-ffmcfmb*fmc*hbcm*p7p9-fmb*fmc*p7p8-fmb*
3801      . fmc*p7p9+fmb2*p7p8+fmb2*p7p9+fmc*hbcm*p7p8+fmc*hbcm*p7p9)+16*
3802      . p3p7*(-ffmcfmb**2*hbcm2*p6p8-ffmcfmb**2*hbcm2*p6p9-2*ffmcfmb*
3803      . fmb*hbcm*p6p8-2*ffmcfmb*fmb*hbcm*p6p9+ffmcfmb*fmc*hbcm*p6p8+
3804      . ffmcfmb*fmc*hbcm*p6p9+ffmcfmb*hbcm2*p6p8+ffmcfmb*hbcm2*p6p9+
3805      . fmb*fmc*p6p8+fmb*fmc*p6p9+fmb*hbcm*p6p8+fmb*hbcm*p6p9-fmb2*
3806      . p6p8-fmb2*p6p9-fmc*hbcm*p6p8-fmc*hbcm*p6p9)
3807       ans3=64*(p4p6*p3p7)*(-p1p8-p1p9)+32*(p5p7*p3p6)*(p1p8+p1p9)+32*
3808      . (p4p7*p3p6)*(-p1p8-p1p9)+32*(p6p7*p3p4)*(p1p8+p1p9)+32*(p3p7*
3809      . p1p5)*(p6p8+p6p9)+32*(p3p6*p1p5)*(-p7p8-p7p9)+32*(p3p7*p1p4)*(
3810      . -p6p8-p6p9)+32*(p3p6*p1p4)*(p7p8+p7p9)+32*(p4p7*p1p3)*(-p6p8-
3811      . p6p9)+32*(p4p6*p1p3)*(p7p8+p7p9)+32*(p3p6*p3p5)*(-ffmcfmb*p7p8
3812      . -ffmcfmb*p7p9+p7p8+p7p9)+32*(p3p7*p3p6)*(-2*ffmcfmb*p1p8-2*
3813      . ffmcfmb*p1p9+ffmcfmb*p5p8+ffmcfmb*p5p9-p5p8-p5p9)+32*(p3p7*
3814      . p1p3)*(-ffmcfmb*p6p8-ffmcfmb*p6p9)+32*(p3p6*p1p3)*(ffmcfmb*
3815      . p7p8+ffmcfmb*p7p9)+16*p5p7*(-ffmcfmb*hbcm2*p6p8-ffmcfmb*hbcm2*
3816      . p6p9-fmb*hbcm*p6p8-fmb*hbcm*p6p9+hbcm2*p6p8+hbcm2*p6p9)+16*
3817      . p5p6*(ffmcfmb*hbcm2*p7p8+ffmcfmb*hbcm2*p7p9+fmb*hbcm*p7p8+fmb*
3818      . hbcm*p7p9-hbcm2*p7p8-hbcm2*p7p9)+16*p6p7*(ffmcfmb*hbcm2*p1p8+
3819      . ffmcfmb*hbcm2*p1p9-ffmcfmb*hbcm2*p4p8-ffmcfmb*hbcm2*p4p9-fmb*
3820      . hbcm*p4p8-fmb*hbcm*p4p9+fmc*hbcm*p1p8+fmc*hbcm*p1p9+hbcm2*p4p8
3821      . +hbcm2*p4p9)+ans4
3822       ans2=w18*ans3
3823       ans6=w13*(32*(p3p6*p3p4)*(-ffmcfmb*p7p10+p7p10)+32*(p3p7*p3p6)*
3824      . (-2*ffmcfmb*p1p10+ffmcfmb*p5p10-p5p10)+16*p5p7*(-ffmcfmb*hbcm2
3825      . *p6p10-fmb*hbcm*p6p10+hbcm2*p6p10)+16*p4p6*(ffmcfmb*hbcm2*
3826      . p7p10+fmb*hbcm*p7p10-hbcm2*p7p10)+16*p6p7*(ffmcfmb*hbcm2*p1p10
3827      . -ffmcfmb*hbcm2*p4p10-fmb*hbcm*p4p10+fmc*hbcm*p1p10+hbcm2*p4p10
3828      . )+16*p3p7*(-ffmcfmb**2*hbcm2*p6p10-2*ffmcfmb*fmb*hbcm*p6p10+
3829      . ffmcfmb*fmc*hbcm*p6p10+ffmcfmb*hbcm2*p6p10+fmb*fmc*p6p10+fmb*
3830      . hbcm*p6p10-fmb2*p6p10-fmc*hbcm*p6p10)+16*p3p6*(-ffmcfmb**2*
3831      . hbcm2*p7p10+ffmcfmb*hbcm2*p7p10+fmb*fmc*p7p10)+32*(-ffmcfmb*
3832      . p1p3*p3p6*p7p10-ffmcfmb*p1p3*p3p7*p6p10+p1p10*p3p4*p6p7-p1p10*
3833      . p3p6*p4p7+p1p10*p3p6*p5p7-2*p1p10*p3p7*p4p6-p1p3*p4p7*p6p10-
3834      . p1p4*p3p6*p7p10-p1p4*p3p7*p6p10+p1p5*p3p7*p6p10))+(16*p3p6*(-
3835      . p1p12+p3p12-p4p12+p7p10+p7p8)+16*p3p7*(-ffmcfmb*p3p13+p1p13-
3836      . p4p13+p6p10+p6p8-p6p9)+8*(ffmcfmb*hbcm2*p6p12+fmc*hbcm*p6p12+2
3837      . *p1p3*p6p12+2*p3p12*p4p6-2*p3p13*p4p7+2*p3p4*p6p12-2*p3p8*p6p7
3838      . ))
3839       ans5=w1*(32*(p3p6*p3p5)*(-ffmcfmb*p7p8+p7p8)+32*(p3p7*p3p6)*(-2
3840      . *ffmcfmb*p1p8+ffmcfmb*p5p8-p5p8)+16*p5p7*(-ffmcfmb*hbcm2*p6p8-
3841      . fmb*hbcm*p6p8+hbcm2*p6p8)+16*p5p6*(ffmcfmb*hbcm2*p7p8+fmb*hbcm
3842      . *p7p8-hbcm2*p7p8)+16*p6p7*(ffmcfmb*hbcm2*p1p8-ffmcfmb*hbcm2*
3843      . p4p8-fmb*hbcm*p4p8+fmc*hbcm*p1p8+hbcm2*p4p8)+16*p3p6*(ffmcfmb*
3844      . fmb*hbcm*p7p8-ffmcfmb*fmc*hbcm*p7p8-fmb*fmc*p7p8+fmb2*p7p8+fmc
3845      . *hbcm*p7p8)+16*p3p7*(-ffmcfmb**2*hbcm2*p6p8-2*ffmcfmb*fmb*hbcm
3846      . *p6p8+ffmcfmb*fmc*hbcm*p6p8+ffmcfmb*hbcm2*p6p8+fmb*fmc*p6p8+
3847      . fmb*hbcm*p6p8-fmb2*p6p8-fmc*hbcm*p6p8)+32*(ffmcfmb*p1p3*p3p6*
3848      . p7p8-ffmcfmb*p1p3*p3p7*p6p8+p1p3*p4p6*p7p8-p1p3*p4p7*p6p8+p1p4
3849      . *p3p6*p7p8-p1p4*p3p7*p6p8-p1p5*p3p6*p7p8+p1p5*p3p7*p6p8+p1p8*
3850      . p3p4*p6p7-p1p8*p3p6*p4p7+p1p8*p3p6*p5p7-2*p1p8*p3p7*p4p6))+
3851      . ans6
3852       ans1=ans2+ans5
3853       ans=ccc*ans1
3854       b(30)=ans
3855       b(31)=ccc*(w18*(8*p5p6*(-ffmcfmb*hbcm-fmb+hbcm)+16*p4p6*(
3856      . ffmcfmb*hbcm+fmb-hbcm)+8*p3p6*(2*ffmcfmb*fmb+2*ffmcfmb*fmc-fmb
3857      . -2*fmc))+w1*(8*p5p6*(-ffmcfmb*hbcm-fmb+hbcm)+16*p4p6*(ffmcfmb*
3858      . hbcm+fmb-hbcm)+8*p3p6*(2*ffmcfmb*fmb+2*ffmcfmb*fmc-fmb-2*fmc))
3859      . )
3860       b(32)=w18*ccc*(8*p5p6*(ffmcfmb*hbcm+fmb-hbcm)+16*p4p6*(-ffmcfmb
3861      . *hbcm-fmb+hbcm)+8*p3p6*(-2*ffmcfmb*fmb-2*ffmcfmb*fmc+fmb+2*fmc
3862      . ))
3863       ans2=8*(2*fmb*p6p12-3*fmb*p7p13+2*fmc*p6p12-3*fmc*p7p13-hbcm*
3864      . p6p12+2*hbcm*p7p13)
3865       ans1=w18*(16*p5p7*(-ffmcfmb*hbcm*p6p8-ffmcfmb*hbcm*p6p9-fmb*
3866      . p6p8-fmb*p6p9+hbcm*p6p8+hbcm*p6p9)+16*p4p7*(ffmcfmb*hbcm*p6p8+
3867      . ffmcfmb*hbcm*p6p9+fmb*p6p8+fmb*p6p9-hbcm*p6p8-hbcm*p6p9)+16*
3868      . p4p6*(ffmcfmb*hbcm*p7p8+ffmcfmb*hbcm*p7p9+fmb*p7p8+fmb*p7p9-
3869      . hbcm*p7p8-hbcm*p7p9)+16*p6p7*(ffmcfmb*hbcm*p1p9-ffmcfmb*hbcm*
3870      . p4p8-ffmcfmb*hbcm*p4p9-fmb*p4p8-fmb*p4p9-fmc*p1p9+hbcm*p4p8+
3871      . hbcm*p4p9)+16*p3p6*(ffmcfmb*fmb*p7p8+ffmcfmb*fmb*p7p9+ffmcfmb*
3872      . fmc*p7p8+ffmcfmb*fmc*p7p9-fmc*p7p8-fmc*p7p9))+w1*(16*p5p7*(-
3873      . ffmcfmb*hbcm*p6p8-fmb*p6p8+hbcm*p6p8)+16*p6p7*(-ffmcfmb*hbcm*
3874      . p4p8-fmb*p4p8+hbcm*p4p8)+16*p4p7*(ffmcfmb*hbcm*p6p8+fmb*p6p8-
3875      . hbcm*p6p8)+16*p4p6*(ffmcfmb*hbcm*p7p8+fmb*p7p8-hbcm*p7p8)+16*
3876      . p3p6*(ffmcfmb*fmb*p7p8+ffmcfmb*fmc*p7p8-fmc*p7p8))+w13*(16*
3877      . p5p7*(-ffmcfmb*hbcm*p6p10-fmb*p6p10+hbcm*p6p10)+16*p4p7*(
3878      . ffmcfmb*hbcm*p6p10+fmb*p6p10-hbcm*p6p10)+16*p4p6*(ffmcfmb*hbcm
3879      . *p7p10+fmb*p7p10-hbcm*p7p10)+16*p6p7*(-ffmcfmb*hbcm*p4p10-fmb*
3880      . p4p10+hbcm*p4p10)+16*p3p6*(ffmcfmb*fmb*p7p10+ffmcfmb*fmc*p7p10
3881      . -fmc*p7p10))+ans2
3882       ans=ccc*ans1
3883       b(33)=ans
3884       b(34)=4*ccc*w18*(3*ffmcfmb*hbcm-fmb-4*fmc)
3885       b(35)=ccc*(8*w18*(-ffmcfmb*hbcm*p7p8-ffmcfmb*hbcm*p7p9+fmc*p7p8
3886      . +fmc*p7p9)+8*w1*(-ffmcfmb*hbcm*p7p8+fmc*p7p8)+8*w13*(-ffmcfmb*
3887      . hbcm*p7p10+fmc*p7p10))
3888       b(36)=4*ccc*w18*(2*ffmcfmb*hbcm2-fmb*hbcm+3*fmc*hbcm+6*p3p4-2*
3889      . p3p5)
3890       b(37)=w18*ccc*(8*p3p7*(2*ffmcfmb*hbcm-fmc)+8*(2*hbcm*p4p7-hbcm*
3891      . p5p7))
3892       b(38)=ccc*(w18*(16*p3p7*(p4p8+p4p9)+16*p3p4*(-p7p8-p7p9)+8*(-
3893      . ffmcfmb*hbcm2*p7p8-ffmcfmb*hbcm2*p7p9-fmc*hbcm*p7p8-fmc*hbcm*
3894      . p7p9))+8*w1*(-ffmcfmb*hbcm2*p7p8-fmc*hbcm*p7p8-2*p3p4*p7p8+2*
3895      . p3p7*p4p8)+8*w13*(-ffmcfmb*hbcm2*p7p10-fmc*hbcm*p7p10-2*p3p4*
3896      . p7p10+2*p3p7*p4p10)-8*p3p12)
3897       b(42)=w18*ccc*(8*p6p7*(-ffmcfmb*hbcm2-fmc*hbcm)+16*(2*ffmcfmb*
3898      . p3p6*p3p7-p3p4*p6p7+2*p3p6*p4p7-p3p6*p5p7+p3p7*p4p6))
3899       b(43)=ccc*(w18*(16*p5p7*(-p6p8-p6p9)+16*p6p7*(-p4p8-p4p9)+32*
3900      . p4p7*(p6p8+p6p9)+16*p4p6*(p7p8+p7p9)+16*p3p7*(ffmcfmb*p6p8+
3901      . ffmcfmb*p6p9)+16*p3p6*(ffmcfmb*p7p8+ffmcfmb*p7p9))+16*w1*(
3902      . ffmcfmb*p3p6*p7p8+ffmcfmb*p3p7*p6p8+p4p6*p7p8+2*p4p7*p6p8-p4p8
3903      . *p6p7-p5p7*p6p8)+16*w13*(ffmcfmb*p3p6*p7p10+ffmcfmb*p3p7*p6p10
3904      . -p4p10*p6p7+p4p6*p7p10+2*p4p7*p6p10-p5p7*p6p10)+8*(p6p12-3*
3905      . p7p13))
3906       b(47)=8*ccc*w18*(2*ffmcfmb*p3p6+3*p4p6-p5p6)
3907       b(52)=8*ccc*w18*(2*ffmcfmb*p3p7+3*p4p7-p5p7)
3908       b(53)=ccc*(8*w18*(-3*p4p8-3*p4p9+p5p8+p5p9)+8*w1*(-3*p4p8+p5p8)
3909      . +8*w13*(-3*p4p10+p5p10))
3910       b(57)=-8*ccc
3911       b(60)=w18*ccc*(8*p3p6*(ffmcfmb*hbcm-fmb-3*fmc)+8*(-2*hbcm*p4p6+
3912      . hbcm*p5p6))
3913       b(61)=-4*ccc*hbcm
3914       b(62)=-8*ccc*fmb*p3p6
3915       b(63)=w13*ccc*(8*p6p7*(-ffmcfmb*hbcm2-fmc*hbcm)+16*(2*ffmcfmb*
3916      . p3p6*p3p7-p3p4*p6p7+2*p3p6*p4p7-p3p6*p5p7+p3p7*p4p6))
3917       b(64)=ccc*(w13*((p5p7*p3p6)*(-16*ffmcfmb+16)+(p4p7*p3p6)*(16*
3918      . ffmcfmb-16)+8*p6p7*(ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm-ffmcfmb*
3919      . fmc*hbcm-ffmcfmb*hbcm2-fmb*fmc+fmc*hbcm)+16*(ffmcfmb*p1p3*p6p7
3920      . +p1p4*p6p7))-8*p6p7)
3921       b(65)=ccc*(w18*(8*p6p7*(-ffmcfmb*hbcm2-fmc*hbcm)+16*(2*ffmcfmb*
3922      . p3p6*p3p7-p3p4*p6p7+2*p3p6*p4p7-p3p6*p5p7+p3p7*p4p6))+w1*(8*
3923      . p6p7*(-ffmcfmb*hbcm2-fmc*hbcm)+16*(2*ffmcfmb*p3p6*p3p7-p3p4*
3924      . p6p7+2*p3p6*p4p7-p3p6*p5p7+p3p7*p4p6)))
3925       b(66)=ccc*(w18*(16*p5p7*(-hbcm*p6p8-hbcm*p6p9)+16*p6p7*(-hbcm*
3926      . p4p8-hbcm*p4p9)+16*p4p7*(hbcm*p6p8+hbcm*p6p9)+16*p4p6*(hbcm*
3927      . p7p8+hbcm*p7p9)+16*p3p6*(fmc*p7p8+fmc*p7p9)+16*p3p7*(-ffmcfmb*
3928      . hbcm*p6p8-ffmcfmb*hbcm*p6p9+fmb*p6p8+fmb*p6p9+2*fmc*p6p8+2*fmc
3929      . *p6p9))+w1*(16*p3p7*(-ffmcfmb*hbcm*p6p8+fmb*p6p8+2*fmc*p6p8)+
3930      . 16*(fmc*p3p6*p7p8+hbcm*p4p6*p7p8+hbcm*p4p7*p6p8-hbcm*p4p8*p6p7
3931      . -hbcm*p5p7*p6p8))+w13*(16*p3p7*(-ffmcfmb*hbcm*p6p10+fmb*p6p10+
3932      . 2*fmc*p6p10)+16*(fmc*p3p6*p7p10-hbcm*p4p10*p6p7+hbcm*p4p6*
3933      . p7p10+hbcm*p4p7*p6p10-hbcm*p5p7*p6p10))+8*(hbcm*p6p12-2*hbcm*
3934      . p7p13))
3935       b(67)=8*ccc*w13*(2*ffmcfmb*p3p6+3*p4p6-p5p6)
3936       b(68)=ccc*(8*w18*(2*ffmcfmb*p3p6+3*p4p6-p5p6)+8*w1*(2*ffmcfmb*
3937      . p3p6+3*p4p6-p5p6))
3938       b(69)=8*ccc*w13*(2*ffmcfmb*p3p7+3*p4p7-p5p7)
3939       b(70)=ccc*(w13*(8*p5p7*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+8*p4p7*(-
3940      . ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+8*p3p7*(-ffmcfmb**2*hbcm2-
3941      . ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2+fmb*fmc-fmc*
3942      . hbcm)+16*(-2*ffmcfmb*p1p3*p3p7-2*p1p3*p4p7+p1p3*p5p7-p1p4*p3p7
3943      . ))+8*p3p7)
3944       b(71)=ccc*(8*w18*(2*ffmcfmb*p3p7+3*p4p7-p5p7)+8*w1*(2*ffmcfmb*
3945      . p3p7+3*p4p7-p5p7))
3946       b(72)=ccc*(4*w13*(-2*ffmcfmb**2*hbcm2-3*ffmcfmb*fmb*hbcm+3*
3947      . ffmcfmb*fmc*hbcm+2*ffmcfmb*hbcm2-4*ffmcfmb*p1p3+3*fmb*fmc+fmb*
3948      . hbcm-fmb2-3*fmc*hbcm-6*p1p4+2*p1p5)+8)
3949       b(74)=ccc*(8*w18*p6p7*(ffmcfmb*hbcm-fmc)+8*w1*p6p7*(ffmcfmb*
3950      . hbcm-fmc))
3951       b(75)=ccc*(8*w18*(2*ffmcfmb*hbcm*p1p8+2*ffmcfmb*hbcm*p1p9-2*
3952      . ffmcfmb*hbcm*p4p8-2*ffmcfmb*hbcm*p4p9+ffmcfmb*hbcm*p5p8+
3953      . ffmcfmb*hbcm*p5p9-fmb*p1p8-fmb*p1p9-2*fmb*p4p8-2*fmb*p4p9+fmb*
3954      . p5p8+fmb*p5p9-3*fmc*p1p8-3*fmc*p1p9+2*hbcm*p4p8+2*hbcm*p4p9-
3955      . hbcm*p5p8-hbcm*p5p9)+8*w1*(2*ffmcfmb*hbcm*p1p8-2*ffmcfmb*hbcm*
3956      . p4p8+ffmcfmb*hbcm*p5p8-fmb*p1p8-2*fmb*p4p8+fmb*p5p8-3*fmc*p1p8
3957      . +2*hbcm*p4p8-hbcm*p5p8)+8*w13*(2*ffmcfmb*hbcm*p1p10-2*ffmcfmb*
3958      . hbcm*p4p10+ffmcfmb*hbcm*p5p10-fmb*p1p10-2*fmb*p4p10+fmb*p5p10-
3959      . 3*fmc*p1p10+2*hbcm*p4p10-hbcm*p5p10))
3960       ans=ccc*(w18*(16*p3p5*(p1p8+p1p9)+32*p3p4*(-p1p8-p1p9)+16*p1p3*
3961      . (2*p4p8+2*p4p9-p5p8-p5p9)+8*(-ffmcfmb*hbcm2*p1p8-ffmcfmb*hbcm2
3962      . *p1p9+ffmcfmb*hbcm2*p4p8+ffmcfmb*hbcm2*p4p9-ffmcfmb*hbcm2*p5p8
3963      . -ffmcfmb*hbcm2*p5p9+fmb*hbcm*p1p8+fmb*hbcm*p1p9+fmb*hbcm*p4p8+
3964      . fmb*hbcm*p4p9-fmb*hbcm*p5p8-fmb*hbcm*p5p9-2*fmc*hbcm*p1p8-2*
3965      . fmc*hbcm*p1p9-hbcm2*p4p8-hbcm2*p4p9+hbcm2*p5p8+hbcm2*p5p9))+w1
3966      . *(16*p1p3*(2*p4p8-p5p8)+8*(-ffmcfmb*hbcm2*p1p8+ffmcfmb*hbcm2*
3967      . p4p8-ffmcfmb*hbcm2*p5p8+fmb*hbcm*p1p8+fmb*hbcm*p4p8-fmb*hbcm*
3968      . p5p8-2*fmc*hbcm*p1p8-hbcm2*p4p8+hbcm2*p5p8-4*p1p8*p3p4+2*p1p8*
3969      . p3p5))+w13*(16*p1p3*(2*p4p10-p5p10)+8*(-ffmcfmb*hbcm2*p1p10+
3970      . ffmcfmb*hbcm2*p4p10-ffmcfmb*hbcm2*p5p10+fmb*hbcm*p1p10+fmb*
3971      . hbcm*p4p10-fmb*hbcm*p5p10-2*fmc*hbcm*p1p10-hbcm2*p4p10+hbcm2*
3972      . p5p10-4*p1p10*p3p4+2*p1p10*p3p5)))
3973       b(76)=ans
3974       b(77)=ccc*(w18*(16*p3p6*(2*p4p8+2*p4p9-p5p8-p5p9)+16*p3p5*(p6p8
3975      . +p6p9)+32*p3p4*(-p6p8-p6p9)+8*(-ffmcfmb*hbcm2*p6p8-ffmcfmb*
3976      . hbcm2*p6p9+fmb*hbcm*p6p8+fmb*hbcm*p6p9-2*fmc*hbcm*p6p8-2*fmc*
3977      . hbcm*p6p9))+w1*(16*p3p6*(2*p4p8-p5p8)+8*(-ffmcfmb*hbcm2*p6p8+
3978      . fmb*hbcm*p6p8-2*fmc*hbcm*p6p8-4*p3p4*p6p8+2*p3p5*p6p8))+w13*(
3979      . 16*p3p6*(2*p4p10-p5p10)+8*(-ffmcfmb*hbcm2*p6p10+fmb*hbcm*p6p10
3980      . -2*fmc*hbcm*p6p10-4*p3p4*p6p10+2*p3p5*p6p10)))
3981       b(78)=ccc*(8*w18*(2*ffmcfmb*hbcm*p6p8+2*ffmcfmb*hbcm*p6p9-fmb*
3982      . p6p8-fmb*p6p9-3*fmc*p6p8-3*fmc*p6p9)+8*w1*(2*ffmcfmb*hbcm*p6p8
3983      . -fmb*p6p8-3*fmc*p6p8)+8*w13*(2*ffmcfmb*hbcm*p6p10-fmb*p6p10-3*
3984      . fmc*p6p10))
3985       b(79)=8*ccc*w18*p6p7*(ffmcfmb*hbcm-fmc)
3986       b(80)=w18*ccc*(8*p5p7*(-ffmcfmb*hbcm-fmb+hbcm)+16*p4p7*(ffmcfmb
3987      . *hbcm+fmb-hbcm)+8*p3p7*(ffmcfmb**2*hbcm+ffmcfmb*fmb-ffmcfmb*
3988      . hbcm))
3989       b(81)=8*ccc*w13*p6p7*(ffmcfmb*hbcm-fmc)
3990       b(82)=-8*ccc*p3p7
3991       b(83)=ccc*(8*p3p7*(ffmcfmb*hbcm+fmb+fmc-hbcm)+8*hbcm*p5p7)
3992       b(84)=8*ccc*(-p4p7+p5p7)
3993       b(85)=4*ccc*(fmb*hbcm-fmc*hbcm-2*p1p3-2*p3p4+2*p3p5)
3994       b(86)=-8*ccc
3995       b(87)=4*ccc*(2*fmb+2*fmc-hbcm)
3996       b(88)=w13*ccc*(8*p5p7*(-ffmcfmb*hbcm-fmb+hbcm)+16*p4p7*(ffmcfmb
3997      . *hbcm+fmb-hbcm)+8*p3p7*(ffmcfmb**2*hbcm+ffmcfmb*fmb-ffmcfmb*
3998      . hbcm))
3999       b(89)=-4*ccc*hbcm
4000       b(91)=ccc*(w18*(8*p5p7*(-ffmcfmb*hbcm-fmb+hbcm)+16*p4p7*(
4001      . ffmcfmb*hbcm+fmb-hbcm)+8*p3p7*(ffmcfmb**2*hbcm+ffmcfmb*fmb-
4002      . ffmcfmb*hbcm))+w1*(8*p5p7*(-ffmcfmb*hbcm-fmb+hbcm)+16*p4p7*(
4003      . ffmcfmb*hbcm+fmb-hbcm)+8*p3p7*(ffmcfmb**2*hbcm+ffmcfmb*fmb-
4004      . ffmcfmb*hbcm)))
4005       b(92)=8*ccc*p1p3
4006       b(93)=8*ccc*p3p6
4007       b(94)=4*ccc*(ffmcfmb*hbcm+fmb-hbcm)
4008       do 200 n=1,94
4009          c(n,1)=c(n,1)-0.1818181818181818d0*b(n)
4010          c(n,2)=c(n,2)-0.05883183899358491d0*b(n)
4011          c(n,3)=c(n,3)-0.2077659977796572d0*b(n)
4012 200   continue
4013       return
4014       end
4015
4016       subroutine amp2_3p2(cc)
4017       implicit double precision(a-h,o-z)
4018       implicit integer (i-n)
4019       dimension b(31)
4020 #include "inclcon.h"
4021 #include "inclppp.h"
4022 #include "inclamp.h"
4023       do 100 n=1,31
4024          b(n)=0.0d0
4025 100   continue
4026       ccc=cc/((4*p1p4*p2p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3+2*
4027      . ffmcfmb*p3p4+fmc2-2*p1p4))
4028       b(8)=8*ccc*w5*p4p6*(fmb*hbcm-fmc*hbcm)
4029       b(10)=16*ccc*w5*p4p6*(-hbcm*p1p10+hbcm*p1p8+hbcm*p4p10-hbcm*
4030      . p4p8)
4031       b(15)=-8*ccc*hbcm*p1p4*w5
4032       b(18)=-4*ccc*hbcm*w5
4033       b(19)=4*ccc*w5*(-fmb*hbcm+fmc*hbcm)
4034       b(21)=8*ccc*w5*(hbcm*p1p10-hbcm*p1p8-hbcm*p4p10+hbcm*p4p8)
4035       b(22)=8*ccc*hbcm*p1p4*w5
4036       b(24)=4*ccc*hbcm*w5
4037       b(25)=4*ccc*w5*(fmb*hbcm-fmc*hbcm)
4038       b(27)=8*ccc*hbcm*p4p6*w5
4039       b(28)=8*ccc*w5*p4p6*(fmb*hbcm-fmc*hbcm)
4040       b(30)=16*ccc*w5*p4p6*(-fmb*hbcm*p7p8+fmc*hbcm*p7p8)
4041       b(31)=-8*ccc*hbcm*p4p6*w5
4042       do 200 n=1,31
4043          c(n,2)=c(n,2)-0.7396002616336388d0*b(n)
4044          c(n,3)=c(n,3)+0.1662127982237257d0*b(n)
4045 200   continue
4046       return
4047       end
4048
4049       subroutine amp1s2_3p2(cc)
4050       implicit double precision(a-h,o-z)
4051       implicit integer (i-n)
4052       dimension b(16)
4053 #include "inclcon.h"
4054 #include "inclppp.h"
4055 #include "inclamp.h"
4056       do 100 n=1,16
4057          b(n)=0.0d0
4058 100   continue
4059       ccc=cc/((ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*p3p5+fmb2+
4060      . hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2))
4061       b(1)=-8*ccc*p6p7*w1
4062       b(2)=8*ccc*p6p7*w2
4063       b(3)=8*ccc*(-p7p8*w1+p7p9*w2)
4064       b(4)=8*ccc*p3p7*w1
4065       b(5)=-8*ccc*p3p7*w2
4066       b(6)=8*ccc*(hbcm*p7p8*w1-hbcm*p7p9*w2)
4067       b(7)=8*ccc*(-p6p8*w1+p6p9*w2)
4068       b(8)=8*ccc*p3p6*w1
4069       b(9)=-8*ccc*p3p6*w2
4070       b(10)=8*ccc*(hbcm*p6p8*w1-hbcm*p6p9*w2)
4071       b(11)=-4*ccc*hbcm*p6p7*w1
4072       b(12)=4*ccc*hbcm*p6p7*w2
4073       b(13)=6*ccc*w1
4074       b(14)=-6*ccc*w2
4075       b(15)=-6*ccc*hbcm*w1
4076       b(16)=6*ccc*hbcm*w2
4077       do 200 n=1,16
4078          c(n,1)=c(n,1)-0.8181818181818182d0*b(n)
4079          c(n,2)=c(n,2)+0.9833321660356334d0*b(n)
4080 200   continue
4081       return
4082       end
4083
4084       subroutine amp28_3p2(cc)
4085       implicit double precision(a-h,o-z)
4086       implicit integer (i-n)
4087       dimension b(94)
4088 #include "inclcon.h"
4089 #include "inclppp.h"
4090 #include "inclamp.h"
4091       do 100 n=1,94
4092          b(n)=0.0d0
4093 100   continue
4094       ccc=cc/((ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*p3p5+fmb2+
4095      . hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p2p3+2*ffmcfmb*p3p4+
4096      . fmc2-2*p2p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p2p3-fmc2))
4097       b(1)=w11*ccc*((p5p6*p3p7)*(-8*ffmcfmb+16)+(p4p6*p3p7)*(-8*
4098      . ffmcfmb-8)+(p5p7*p3p6)*(-32*ffmcfmb+24)+(p3p7*p3p6)*(-24*
4099      . ffmcfmb+16)+(p6p7*p2p3)*(-8*ffmcfmb+8)+4*p6p7*(ffmcfmb**2*
4100      . hbcm2-fmb2-hbcm2)+8*(p1p2*p6p7-p1p3*p6p7-p1p5*p6p7+p2p5*p6p7-
4101      . p3p5*p6p7-p4p6*p4p7-2*p4p6*p5p7+3*p5p6*p5p7))
4102       b(2)=w2*ccc*((p5p6*p3p7)*(8*ffmcfmb-16)+(p4p6*p3p7)*(8*ffmcfmb+
4103      . 8)+(p5p7*p3p6)*(32*ffmcfmb-24)+(p3p7*p3p6)*(24*ffmcfmb-16)+(
4104      . p6p7*p2p3)*(8*ffmcfmb-8)+4*p6p7*(-ffmcfmb**2*hbcm2+fmb2+hbcm2)
4105      . +8*(-p1p2*p6p7+p1p3*p6p7+p1p5*p6p7-p2p5*p6p7+p3p5*p6p7+p4p6*
4106      . p4p7+2*p4p6*p5p7-3*p5p6*p5p7))
4107       ans2=w11*(8*p5p7*(p5p11-p5p8)+8*p3p5*(p7p11-p7p8)+8*p3p4*(-
4108      . p7p11+p7p8)+8*p2p5*(-p7p11+p7p8)+8*p2p4*(p7p11-p7p8)+16*p1p4*(
4109      . -p7p11+p7p8)+8*p1p3*(-p7p11+p7p8)+8*p1p2*(p7p11-p7p8)+8*p4p7*(
4110      . -p1p11+p1p8+p2p11-p2p8-p4p11+p4p8)+8*p2p3*(ffmcfmb*p7p11-
4111      . ffmcfmb*p7p8)+8*p3p7*(-ffmcfmb*p1p11+ffmcfmb*p1p8+ffmcfmb*
4112      . p2p11-ffmcfmb*p2p8-ffmcfmb*p4p11+ffmcfmb*p4p8-ffmcfmb*p5p11+
4113      . ffmcfmb*p5p8+p5p11-p5p8)+4*(-2*ffmcfmb*hbcm2*p7p11+2*ffmcfmb*
4114      . hbcm2*p7p8+fmb2*p7p11-fmb2*p7p8-fmc2*p7p11+fmc2*p7p8+hbcm2*
4115      . p7p11-hbcm2*p7p8))+4*(-p1p12+p2p12-p4p12-p5p12+p7p11)
4116       ans1=w2*(8*p4p7*(-p1p9+p2p9-p4p9)+8*p3p7*(-ffmcfmb*p1p9+ffmcfmb
4117      . *p2p9-ffmcfmb*p4p9-ffmcfmb*p5p9+p5p9)+4*(-2*ffmcfmb*hbcm2*p7p9
4118      . +2*ffmcfmb*p2p3*p7p9+fmb2*p7p9-fmc2*p7p9+hbcm2*p7p9+2*p1p2*
4119      . p7p9-2*p1p3*p7p9-4*p1p4*p7p9+2*p2p4*p7p9-2*p2p5*p7p9-2*p3p4*
4120      . p7p9+2*p3p5*p7p9+2*p5p7*p5p9))+w7*(8*p4p7*(-p1p11+p2p11-p4p11)
4121      . +8*p3p7*(-ffmcfmb*p1p11+ffmcfmb*p2p11-ffmcfmb*p4p11-ffmcfmb*
4122      . p5p11+p5p11)+4*(-2*ffmcfmb*hbcm2*p7p11+2*ffmcfmb*p2p3*p7p11+
4123      . fmb2*p7p11-fmc2*p7p11+hbcm2*p7p11+2*p1p2*p7p11-2*p1p3*p7p11-4*
4124      . p1p4*p7p11+2*p2p4*p7p11-2*p2p5*p7p11-2*p3p4*p7p11+2*p3p5*p7p11
4125      . +2*p5p11*p5p7))+ans2
4126       ans=ccc*ans1
4127       b(3)=ans
4128       b(4)=w11*ccc*((p3p7*p3p5)*(-8*ffmcfmb+8)+(p3p7*p2p3)*(16*
4129      . ffmcfmb-8)+4*p4p7*(ffmcfmb*hbcm2-fmb*hbcm-hbcm2)+4*p3p7*(-
4130      . ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm-ffmcfmb*hbcm2+fmb2-fmc2+
4131      . hbcm2)+8*(ffmcfmb*hbcm2*p5p7-ffmcfmb*p1p3*p3p7-ffmcfmb*p3p4*
4132      . p3p7+p1p2*p3p7+p1p3*p5p7-2*p1p4*p3p7-p2p3*p5p7+p2p4*p3p7-p2p5*
4133      . p3p7+p3p4*p5p7-p3p5*p4p7))
4134       b(5)=w2*ccc*((p3p7*p3p5)*(8*ffmcfmb-8)+(p3p7*p2p3)*(-16*ffmcfmb
4135      . +8)+4*p4p7*(-ffmcfmb*hbcm2+fmb*hbcm+hbcm2)+4*p3p7*(ffmcfmb**2*
4136      . hbcm2+ffmcfmb*fmb*hbcm+ffmcfmb*hbcm2-fmb2+fmc2-hbcm2)+8*(-
4137      . ffmcfmb*hbcm2*p5p7+ffmcfmb*p1p3*p3p7+ffmcfmb*p3p4*p3p7-p1p2*
4138      . p3p7-p1p3*p5p7+2*p1p4*p3p7+p2p3*p5p7-p2p4*p3p7+p2p5*p3p7-p3p4*
4139      . p5p7+p3p5*p4p7))
4140       ans2=w11*(8*p4p7*(hbcm*p5p11-hbcm*p5p8)+8*p3p4*(hbcm*p7p11-hbcm
4141      . *p7p8)+8*p2p5*(hbcm*p7p11-hbcm*p7p8)+8*p2p4*(-hbcm*p7p11+hbcm*
4142      . p7p8)+16*p1p4*(hbcm*p7p11-hbcm*p7p8)+8*p1p2*(-hbcm*p7p11+hbcm*
4143      . p7p8)+8*p5p7*(-hbcm*p1p11+hbcm*p1p8+hbcm*p2p11-hbcm*p2p8-hbcm*
4144      . p4p11+hbcm*p4p8)+8*p3p7*(ffmcfmb*hbcm*p5p11-ffmcfmb*hbcm*p5p8-
4145      . fmb*p1p11+fmb*p1p8+fmb*p2p11-fmb*p2p8-fmb*p4p11+fmb*p4p8)+8*
4146      . p3p5*(-ffmcfmb*hbcm*p7p11+ffmcfmb*hbcm*p7p8-fmb*p7p11+fmb*p7p8
4147      . )+8*p2p3*(-ffmcfmb*hbcm*p7p11+ffmcfmb*hbcm*p7p8)+8*p1p3*(2*
4148      . ffmcfmb*hbcm*p7p11-2*ffmcfmb*hbcm*p7p8+2*fmb*p7p11-2*fmb*p7p8-
4149      . hbcm*p7p11+hbcm*p7p8)+4*(2*ffmcfmb**2*hbcm3*p7p11-2*ffmcfmb**2
4150      . *hbcm3*p7p8+2*ffmcfmb*fmb*hbcm2*p7p11-2*ffmcfmb*fmb*hbcm2*p7p8
4151      . -2*ffmcfmb*hbcm3*p7p11+2*ffmcfmb*hbcm3*p7p8-2*fmb*hbcm2*p7p11+
4152      . 2*fmb*hbcm2*p7p8-fmb2*hbcm*p7p11+fmb2*hbcm*p7p8+fmc2*hbcm*
4153      . p7p11-fmc2*hbcm*p7p8+hbcm3*p7p11-hbcm3*p7p8))+4*(-fmb*p3p12-
4154      . fmc*p3p12+hbcm*p3p12+2*hbcm*p5p12+hbcm*p7p10-2*hbcm*p7p11+hbcm
4155      . *p7p8-hbcm*p7p9)
4156       ans1=w2*(8*p5p7*(-hbcm*p1p9+hbcm*p2p9-hbcm*p4p9)+8*p3p7*(
4157      . ffmcfmb*hbcm*p5p9-fmb*p1p9+fmb*p2p9-fmb*p4p9)+8*p3p5*(-ffmcfmb
4158      . *hbcm*p7p9-fmb*p7p9)+8*p1p3*(2*ffmcfmb*hbcm*p7p9+2*fmb*p7p9-
4159      . hbcm*p7p9)+4*(2*ffmcfmb**2*hbcm3*p7p9+2*ffmcfmb*fmb*hbcm2*p7p9
4160      . -2*ffmcfmb*hbcm*p2p3*p7p9-2*ffmcfmb*hbcm3*p7p9-2*fmb*hbcm2*
4161      . p7p9-fmb2*hbcm*p7p9+fmc2*hbcm*p7p9-2*hbcm*p1p2*p7p9+4*hbcm*
4162      . p1p4*p7p9-2*hbcm*p2p4*p7p9+2*hbcm*p2p5*p7p9+2*hbcm*p3p4*p7p9+2
4163      . *hbcm*p4p7*p5p9+hbcm3*p7p9))+w7*(8*p5p7*(-hbcm*p1p11+hbcm*
4164      . p2p11-hbcm*p4p11)+8*p3p7*(ffmcfmb*hbcm*p5p11-fmb*p1p11+fmb*
4165      . p2p11-fmb*p4p11)+8*p3p5*(-ffmcfmb*hbcm*p7p11-fmb*p7p11)+8*p1p3
4166      . *(2*ffmcfmb*hbcm*p7p11+2*fmb*p7p11-hbcm*p7p11)+4*(2*ffmcfmb**2
4167      . *hbcm3*p7p11+2*ffmcfmb*fmb*hbcm2*p7p11-2*ffmcfmb*hbcm*p2p3*
4168      . p7p11-2*ffmcfmb*hbcm3*p7p11-2*fmb*hbcm2*p7p11-fmb2*hbcm*p7p11+
4169      . fmc2*hbcm*p7p11-2*hbcm*p1p2*p7p11+4*hbcm*p1p4*p7p11-2*hbcm*
4170      . p2p4*p7p11+2*hbcm*p2p5*p7p11+2*hbcm*p3p4*p7p11+2*hbcm*p4p7*
4171      . p5p11+hbcm3*p7p11))+ans2
4172       ans=ccc*ans1
4173       b(6)=ans
4174       ans2=w11*(8*p3p5*(p6p11-p6p8)+8*p2p5*(-p6p11+p6p8)+8*p5p6*(-2*
4175      . p2p11+2*p2p8+3*p3p11-3*p3p8+3*p4p11-3*p4p8)+8*p1p5*(p6p11-p6p8
4176      . )+8*p1p3*(p6p11-p6p8)+8*p1p2*(-p6p11+p6p8)+8*p4p6*(-p1p11+p1p8
4177      . +p2p11-p2p8-3*p3p11+3*p3p8-2*p4p11+2*p4p8-p5p11+p5p8)+8*p2p3*(
4178      . ffmcfmb*p6p11-ffmcfmb*p6p8-p6p11+p6p8)+8*p3p6*(2*ffmcfmb*p2p11
4179      . -2*ffmcfmb*p2p8-4*ffmcfmb*p3p11+4*ffmcfmb*p3p8-4*ffmcfmb*p4p11
4180      . +4*ffmcfmb*p4p8-p1p11+p1p8-p2p11+p2p8+2*p3p11-2*p3p8+2*p4p11-2
4181      . *p4p8-p5p11+p5p8)+4*(-ffmcfmb**2*hbcm2*p6p11+ffmcfmb**2*hbcm2*
4182      . p6p8+fmb2*p6p11-fmb2*p6p8+hbcm2*p6p11-hbcm2*p6p8))+4*(-p1p13+2
4183      . *p2p13-4*p3p13-4*p4p13-p5p13+p6p10+p6p11+p6p9)
4184       ans1=w2*(8*p5p6*(-2*p2p9+3*p3p9+3*p4p9)+8*p4p6*(-p1p9+p2p9-3*
4185      . p3p9-2*p4p9-p5p9)+8*p3p6*(2*ffmcfmb*p2p9-4*ffmcfmb*p3p9-4*
4186      . ffmcfmb*p4p9-p1p9-p2p9+2*p3p9+2*p4p9-p5p9)+8*p2p3*(ffmcfmb*
4187      . p6p9-p6p9)+4*(-ffmcfmb**2*hbcm2*p6p9+fmb2*p6p9+hbcm2*p6p9-2*
4188      . p1p2*p6p9+2*p1p3*p6p9+2*p1p5*p6p9-2*p2p5*p6p9+2*p3p5*p6p9))+w7
4189      . *(8*p5p6*(-2*p2p11+3*p3p11+3*p4p11)+8*p4p6*(-p1p11+p2p11-3*
4190      . p3p11-2*p4p11-p5p11)+8*p2p3*(ffmcfmb*p6p11-p6p11)+8*p3p6*(2*
4191      . ffmcfmb*p2p11-4*ffmcfmb*p3p11-4*ffmcfmb*p4p11-p1p11-p2p11+2*
4192      . p3p11+2*p4p11-p5p11)+4*(-ffmcfmb**2*hbcm2*p6p11+fmb2*p6p11+
4193      . hbcm2*p6p11-2*p1p2*p6p11+2*p1p3*p6p11+2*p1p5*p6p11-2*p2p5*
4194      . p6p11+2*p3p5*p6p11))+ans2
4195       ans=ccc*ans1
4196       b(7)=ans
4197       b(8)=w11*ccc*((p3p6*p3p4)*(-32*ffmcfmb+16)+(p3p6*p2p3)*(24*
4198      . ffmcfmb-16)+4*p5p6*(ffmcfmb*hbcm2-2*fmb*hbcm+fmc*hbcm+3*hbcm2)
4199      . +4*p4p6*(2*ffmcfmb*hbcm2+fmb*hbcm-fmc*hbcm-4*hbcm2)+4*p3p6*(-
4200      . ffmcfmb**2*hbcm2+2*ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*hbcm-3*
4201      . ffmcfmb*hbcm2-2*fmb*hbcm+fmb2+fmc*hbcm+2*hbcm2)+8*(-p1p2*p3p6-
4202      . p1p3*p4p6+p1p5*p3p6+p2p3*p4p6-2*p2p3*p5p6-p2p5*p3p6-2*p3p4*
4203      . p4p6+3*p3p4*p5p6-p3p5*p4p6))
4204       b(9)=w2*ccc*((p3p6*p3p4)*(32*ffmcfmb-16)+(p3p6*p2p3)*(-24*
4205      . ffmcfmb+16)+4*p5p6*(-ffmcfmb*hbcm2+2*fmb*hbcm-fmc*hbcm-3*hbcm2
4206      . )+4*p4p6*(-2*ffmcfmb*hbcm2-fmb*hbcm+fmc*hbcm+4*hbcm2)+4*p3p6*(
4207      . ffmcfmb**2*hbcm2-2*ffmcfmb*fmb*hbcm+2*ffmcfmb*fmc*hbcm+3*
4208      . ffmcfmb*hbcm2+2*fmb*hbcm-fmb2-fmc*hbcm-2*hbcm2)+8*(p1p2*p3p6+
4209      . p1p3*p4p6-p1p5*p3p6-p2p3*p4p6+2*p2p3*p5p6+p2p5*p3p6+2*p3p4*
4210      . p4p6-3*p3p4*p5p6+p3p5*p4p6))
4211       ans5=8*p3p6*(-2*ffmcfmb**2*hbcm*p3p8-4*ffmcfmb*fmb*p3p8-2*
4212      . ffmcfmb*fmc*p3p8-3*ffmcfmb*hbcm*p1p11+3*ffmcfmb*hbcm*p1p8-
4213      . ffmcfmb*hbcm*p2p11+ffmcfmb*hbcm*p2p8+3*ffmcfmb*hbcm*p3p11+
4214      . ffmcfmb*hbcm*p3p8+3*ffmcfmb*hbcm*p4p11-3*ffmcfmb*hbcm*p4p8+
4215      . ffmcfmb*hbcm*p5p11-ffmcfmb*hbcm*p5p8-fmb*p1p11+fmb*p1p8-fmb*
4216      . p2p11+fmb*p2p8+fmb*p3p11+2*fmb*p3p8+fmb*p4p11-fmb*p4p8+fmb*
4217      . p5p11-fmb*p5p8+fmc*p3p8+2*hbcm*p1p11-2*hbcm*p1p8+hbcm*p2p11-
4218      . hbcm*p2p8-2*hbcm*p3p11-2*hbcm*p4p11+2*hbcm*p4p8)+4*(ffmcfmb**2
4219      . *hbcm3*p6p11-ffmcfmb**2*hbcm3*p6p8-fmb2*hbcm*p6p11+fmb2*hbcm*
4220      . p6p8-hbcm3*p6p11+hbcm3*p6p8)
4221       ans4=8*p3p5*(-hbcm*p6p11+hbcm*p6p8)+8*p2p5*(hbcm*p6p11-hbcm*
4222      . p6p8)+8*p1p5*(-hbcm*p6p11+hbcm*p6p8)+8*p1p2*(hbcm*p6p11-hbcm*
4223      . p6p8)+8*p5p6*(2*ffmcfmb*hbcm*p3p8+3*fmb*p3p8+fmc*p3p8+2*hbcm*
4224      . p1p11-2*hbcm*p1p8+hbcm*p2p11-hbcm*p2p8-2*hbcm*p3p11-2*hbcm*
4225      . p4p11+2*hbcm*p4p8)+8*p4p6*(-ffmcfmb*hbcm*p3p8-2*fmb*p3p8-fmc*
4226      . p3p8-3*hbcm*p1p11+3*hbcm*p1p8+2*hbcm*p3p11-hbcm*p3p8+hbcm*
4227      . p4p11-hbcm*p4p8+hbcm*p5p11-hbcm*p5p8)+8*p2p3*(-ffmcfmb*hbcm*
4228      . p6p11+ffmcfmb*hbcm*p6p8+hbcm*p6p11-hbcm*p6p8)+8*p1p3*(-2*
4229      . ffmcfmb*hbcm*p6p11+2*ffmcfmb*hbcm*p6p8-2*fmb*p6p11+2*fmb*p6p8+
4230      . hbcm*p6p11-hbcm*p6p8)+ans5
4231       ans3=w11*ans4
4232       ans6=4*(-fmb*p3p13-fmc*p3p13+hbcm*p1p13+3*hbcm*p3p13+2*hbcm*
4233      . p4p13+hbcm*p5p13-hbcm*p6p10-hbcm*p6p11-hbcm*p6p9)
4234       ans2=w7*(8*p5p6*(2*hbcm*p1p11+hbcm*p2p11-2*hbcm*p3p11-2*hbcm*
4235      . p4p11)+8*p4p6*(-3*hbcm*p1p11+2*hbcm*p3p11+hbcm*p4p11+hbcm*
4236      . p5p11)+8*p2p3*(-ffmcfmb*hbcm*p6p11+hbcm*p6p11)+8*p1p3*(-2*
4237      . ffmcfmb*hbcm*p6p11-2*fmb*p6p11+hbcm*p6p11)+8*p3p6*(-3*ffmcfmb*
4238      . hbcm*p1p11-ffmcfmb*hbcm*p2p11+3*ffmcfmb*hbcm*p3p11+3*ffmcfmb*
4239      . hbcm*p4p11+ffmcfmb*hbcm*p5p11-fmb*p1p11-fmb*p2p11+fmb*p3p11+
4240      . fmb*p4p11+fmb*p5p11+2*hbcm*p1p11+hbcm*p2p11-2*hbcm*p3p11-2*
4241      . hbcm*p4p11)+4*(ffmcfmb**2*hbcm3*p6p11-fmb2*hbcm*p6p11+2*hbcm*
4242      . p1p2*p6p11-2*hbcm*p1p5*p6p11+2*hbcm*p2p5*p6p11-2*hbcm*p3p5*
4243      . p6p11-hbcm3*p6p11))+ans3+ans6
4244       ans1=w2*(8*p5p6*(2*hbcm*p1p9+hbcm*p2p9-2*hbcm*p3p9-2*hbcm*p4p9)
4245      . +8*p4p6*(-3*hbcm*p1p9+2*hbcm*p3p9+hbcm*p4p9+hbcm*p5p9)+8*p2p3*
4246      . (-ffmcfmb*hbcm*p6p9+hbcm*p6p9)+8*p3p6*(-3*ffmcfmb*hbcm*p1p9-
4247      . ffmcfmb*hbcm*p2p9+3*ffmcfmb*hbcm*p3p9+3*ffmcfmb*hbcm*p4p9+
4248      . ffmcfmb*hbcm*p5p9-fmb*p1p9-fmb*p2p9+fmb*p3p9+fmb*p4p9+fmb*p5p9
4249      . +2*hbcm*p1p9+hbcm*p2p9-2*hbcm*p3p9-2*hbcm*p4p9)+8*p1p3*(-2*
4250      . ffmcfmb*hbcm*p6p9-2*fmb*p6p9+hbcm*p6p9)+4*(ffmcfmb**2*hbcm3*
4251      . p6p9-fmb2*hbcm*p6p9+2*hbcm*p1p2*p6p9-2*hbcm*p1p5*p6p9+2*hbcm*
4252      . p2p5*p6p9-2*hbcm*p3p5*p6p9-hbcm3*p6p9))+ans2
4253       ans=ccc*ans1
4254       b(10)=ans
4255       b(11)=w11*ccc*(8*(p5p6*p3p7)*(ffmcfmb*hbcm+2*fmb+fmc)+8*(p4p6*
4256      . p3p7)*(-2*ffmcfmb*hbcm-fmb-fmc)+16*(p5p7*p3p6)*(-ffmcfmb*hbcm+
4257      . hbcm)+8*(p6p7*p2p3)*(-ffmcfmb*hbcm+hbcm)+8*(p6p7*p1p3)*(-2*
4258      . ffmcfmb*hbcm-2*fmb+hbcm)+4*p6p7*(ffmcfmb**2*hbcm3-fmb2*hbcm-
4259      . hbcm3)+8*(p3p7*p3p6)*(-2*ffmcfmb**2*hbcm-2*ffmcfmb*fmb-2*
4260      . ffmcfmb*fmc+ffmcfmb*hbcm+2*fmb+fmc)+8*(hbcm*p1p2*p6p7-hbcm*
4261      . p1p5*p6p7+hbcm*p2p5*p6p7-hbcm*p3p5*p6p7-hbcm*p4p6*p4p7-hbcm*
4262      . p4p6*p5p7+2*hbcm*p5p6*p5p7))
4263       b(12)=w2*ccc*(8*(p5p6*p3p7)*(-ffmcfmb*hbcm-2*fmb-fmc)+8*(p4p6*
4264      . p3p7)*(2*ffmcfmb*hbcm+fmb+fmc)+16*(p5p7*p3p6)*(ffmcfmb*hbcm-
4265      . hbcm)+8*(p6p7*p2p3)*(ffmcfmb*hbcm-hbcm)+4*p6p7*(-ffmcfmb**2*
4266      . hbcm3+fmb2*hbcm+hbcm3)+8*(p3p7*p3p6)*(2*ffmcfmb**2*hbcm+2*
4267      . ffmcfmb*fmb+2*ffmcfmb*fmc-ffmcfmb*hbcm-2*fmb-fmc)+8*(-hbcm*
4268      . p1p2*p6p7+hbcm*p1p3*p6p7+hbcm*p1p5*p6p7-hbcm*p2p5*p6p7+hbcm*
4269      . p3p5*p6p7+hbcm*p4p6*p4p7+hbcm*p4p6*p5p7-2*hbcm*p5p6*p5p7))
4270       b(13)=2*ccc*w11*(-2*ffmcfmb*hbcm2+2*ffmcfmb*p2p3+fmb2-fmc2+
4271      . hbcm2+2*p1p2-2*p1p3-4*p1p4+2*p2p4-2*p2p5-2*p3p4+2*p3p5)
4272       b(14)=2*ccc*w2*(2*ffmcfmb*hbcm2-2*ffmcfmb*p2p3-fmb2+fmc2-hbcm2-
4273      . 2*p1p2+2*p1p3+4*p1p4-2*p2p4+2*p2p5+2*p3p4-2*p3p5)
4274       b(15)=w11*ccc*(4*p3p5*(-ffmcfmb*hbcm-fmb)+4*p1p3*(2*ffmcfmb*
4275      . hbcm+2*fmb-hbcm)+2*(2*ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*hbcm2-2*
4276      . ffmcfmb*hbcm*p2p3-2*ffmcfmb*hbcm3-2*fmb*hbcm2-fmb2*hbcm+fmc2*
4277      . hbcm-2*hbcm*p1p2+4*hbcm*p1p4-2*hbcm*p2p4+2*hbcm*p2p5+2*hbcm*
4278      . p3p4+hbcm3))
4279       b(16)=w2*ccc*(4*p3p5*(ffmcfmb*hbcm+fmb)+4*p1p3*(-2*ffmcfmb*hbcm
4280      . -2*fmb+hbcm)+2*(-2*ffmcfmb**2*hbcm3-2*ffmcfmb*fmb*hbcm2+2*
4281      . ffmcfmb*hbcm*p2p3+2*ffmcfmb*hbcm3+2*fmb*hbcm2+fmb2*hbcm-fmc2*
4282      . hbcm+2*hbcm*p1p2-4*hbcm*p1p4+2*hbcm*p2p4-2*hbcm*p2p5-2*hbcm*
4283      . p3p4-hbcm3))
4284       b(21)=ccc*(4*w2*(-hbcm*p1p9-3*hbcm*p2p9+2*hbcm*p3p9+3*hbcm*p4p9
4285      . -hbcm*p5p9)+4*w7*(-hbcm*p1p11-3*hbcm*p2p11+2*hbcm*p3p11+3*hbcm
4286      . *p4p11-hbcm*p5p11)+4*w11*(-3*ffmcfmb*hbcm*p3p8-3*fmb*p3p8-hbcm
4287      . *p1p11+hbcm*p1p8-3*hbcm*p2p11+3*hbcm*p2p8+2*hbcm*p3p11+hbcm*
4288      . p3p8+3*hbcm*p4p11-3*hbcm*p4p8-hbcm*p5p11+hbcm*p5p8))
4289       b(23)=w11*ccc*(8*p3p6*(-2*ffmcfmb*hbcm-fmb+hbcm)+8*(-2*hbcm*
4290      . p4p6+hbcm*p5p6))
4291       b(24)=6*ccc*w11*(ffmcfmb*hbcm+fmb-hbcm)
4292       b(25)=2*ccc*w11*(5*ffmcfmb*hbcm2-3*fmb*hbcm+hbcm2-2*p1p3-6*p2p3
4293      . +6*p3p4-2*p3p5)
4294       b(26)=w11*ccc*(4*p3p7*(ffmcfmb*hbcm-3*fmb)+4*(hbcm*p4p7-3*hbcm*
4295      . p5p7))
4296       ans3=(16*(p5p6*p3p7)*(3*p2p9-3*p3p9-3*p4p9-2*p5p9)+16*(p4p6*
4297      . p3p7)*(2*p1p9-3*p2p9+3*p3p9+3*p4p9+2*p5p9)+16*(p6p7*p3p5)*(
4298      . p1p9+p5p9)+16*(p6p7*p3p4)*(p1p9+p5p9)+16*(p6p7*p2p3)*(-p1p9-
4299      . p5p9)+16*(p6p7*p1p3)*(-p1p9+p5p9)+16*p6p7*(hbcm2*p1p9+hbcm2*
4300      . p5p9)+16*(p3p7*p3p5)*(ffmcfmb*p6p9-p6p9)+16*(p3p7*p3p4)*(
4301      . ffmcfmb*p6p9-p6p9)+16*(p3p6*p3p4)*(-2*ffmcfmb*p7p9+p7p9)+16*(
4302      . p3p7*p3p6)*(-4*ffmcfmb*p2p9+4*ffmcfmb*p3p9+4*ffmcfmb*p4p9+2*
4303      . ffmcfmb*p5p9+2*p1p9+2*p2p9-2*p3p9-2*p4p9-p5p9)+16*(p3p7*p2p3)*
4304      . (-ffmcfmb*p6p9+p6p9)+16*(p3p6*p2p3)*(2*ffmcfmb*p7p9-p7p9)+16*(
4305      . p3p7*p1p3)*(ffmcfmb*p6p9-p6p9)+8*p5p6*(ffmcfmb*hbcm2*p7p9-fmb*
4306      . hbcm*p7p9+hbcm2*p7p9)+8*p4p6*(-ffmcfmb*hbcm2*p7p9+fmb*hbcm*
4307      . p7p9-hbcm2*p7p9)+16*p3p7*(ffmcfmb*hbcm2*p6p9-hbcm2*p6p9)+8*
4308      . p3p6*(-2*ffmcfmb**2*hbcm2*p7p9+2*ffmcfmb*fmb*hbcm*p7p9-ffmcfmb
4309      . *hbcm2*p7p9-fmb*hbcm*p7p9+hbcm2*p7p9)+16*(-hbcm2*p5p7*p6p9-
4310      . p1p3*p5p7*p6p9+p1p9*p3p6*p4p7+p1p9*p3p6*p5p7+p2p3*p4p6*p7p9-
4311      . p2p3*p5p6*p7p9+p2p3*p5p7*p6p9-p3p4*p4p6*p7p9+p3p4*p5p6*p7p9-
4312      . p3p4*p5p7*p6p9-p3p5*p5p7*p6p9))
4313       ans2=w2*ans3
4314       ans6=16*(-hbcm2*p5p7*p6p11+p1p11*p3p6*p4p7+p1p11*p3p6*p5p7+p1p2
4315      . *p3p6*p7p11+p1p3*p4p6*p7p11-p1p3*p5p7*p6p11-p1p5*p3p6*p7p11+
4316      . p2p3*p5p6*p7p11+p2p3*p5p7*p6p11+p2p5*p3p6*p7p11+p3p4*p4p6*
4317      . p7p11-2*p3p4*p5p6*p7p11-p3p4*p5p7*p6p11+p3p5*p4p6*p7p11-p3p5*
4318      . p5p7*p6p11)
4319       ans5=16*(p5p6*p3p7)*(3*p2p11-3*p3p11-3*p4p11-2*p5p11)+16*(p4p6*
4320      . p3p7)*(2*p1p11-3*p2p11+3*p3p11+3*p4p11+2*p5p11)+16*(p6p7*p3p5)
4321      . *(p1p11+p5p11)+16*(p6p7*p3p4)*(p1p11+p5p11)+16*(p6p7*p2p3)*(-
4322      . p1p11-p5p11)+16*(p6p7*p1p3)*(-p1p11+p5p11)+16*p6p7*(hbcm2*
4323      . p1p11+hbcm2*p5p11)+8*p5p6*(fmb*hbcm*p7p11-fmc*hbcm*p7p11-2*
4324      . hbcm2*p7p11)+16*(p3p7*p3p5)*(ffmcfmb*p6p11-p6p11)+16*(p3p7*
4325      . p3p4)*(ffmcfmb*p6p11-p6p11)+16*(p3p6*p3p4)*(2*ffmcfmb*p7p11-
4326      . p7p11)+16*(p3p7*p2p3)*(-ffmcfmb*p6p11+p6p11)+16*(p3p6*p2p3)*(-
4327      . ffmcfmb*p7p11+p7p11)+16*(p3p7*p3p6)*(-4*ffmcfmb*p2p11+4*
4328      . ffmcfmb*p3p11+4*ffmcfmb*p4p11+2*ffmcfmb*p5p11+2*p1p11+2*p2p11-
4329      . 2*p3p11-2*p4p11-p5p11)+16*(p3p7*p1p3)*(ffmcfmb*p6p11-p6p11)+8*
4330      . p4p6*(-3*ffmcfmb*hbcm2*p7p11+fmc*hbcm*p7p11+3*hbcm2*p7p11)+16*
4331      . p3p7*(ffmcfmb*hbcm2*p6p11-hbcm2*p6p11)+8*p3p6*(-ffmcfmb**2*
4332      . hbcm2*p7p11+2*ffmcfmb*fmc*hbcm*p7p11+2*ffmcfmb*hbcm2*p7p11+fmb
4333      . *hbcm*p7p11-fmb2*p7p11-fmc*hbcm*p7p11-hbcm2*p7p11)+ans6
4334       ans4=w7*ans5
4335       ans9=16*(p3p6*p2p3)*(-ffmcfmb*p7p11-2*ffmcfmb*p7p8+p7p11+p7p8)+
4336      . 16*(p3p7*p3p6)*(-4*ffmcfmb*p2p11+4*ffmcfmb*p2p8+4*ffmcfmb*
4337      . p3p11-4*ffmcfmb*p3p8+4*ffmcfmb*p4p11-4*ffmcfmb*p4p8+2*ffmcfmb*
4338      . p5p11-2*ffmcfmb*p5p8+2*p1p11-2*p1p8+2*p2p11-2*p2p8-2*p3p11+2*
4339      . p3p8-2*p4p11+2*p4p8-p5p11+p5p8)+16*(p3p7*p1p3)*(ffmcfmb*p6p11-
4340      . ffmcfmb*p6p8-p6p11+p6p8)+8*p5p6*(-ffmcfmb*hbcm2*p7p8+fmb*hbcm*
4341      . p7p11+fmb*hbcm*p7p8-fmc*hbcm*p7p11-2*hbcm2*p7p11-hbcm2*p7p8)+8
4342      . *p4p6*(-3*ffmcfmb*hbcm2*p7p11+ffmcfmb*hbcm2*p7p8-fmb*hbcm*p7p8
4343      . +fmc*hbcm*p7p11+3*hbcm2*p7p11+hbcm2*p7p8)+16*p3p7*(ffmcfmb*
4344      . hbcm2*p6p11-ffmcfmb*hbcm2*p6p8-hbcm2*p6p11+hbcm2*p6p8)+8*p3p6*
4345      . (-ffmcfmb**2*hbcm2*p7p11+2*ffmcfmb**2*hbcm2*p7p8-2*ffmcfmb*fmb
4346      . *hbcm*p7p8+2*ffmcfmb*fmc*hbcm*p7p11+2*ffmcfmb*hbcm2*p7p11+
4347      . ffmcfmb*hbcm2*p7p8+fmb*hbcm*p7p11+fmb*hbcm*p7p8-fmb2*p7p11-fmc
4348      . *hbcm*p7p11-hbcm2*p7p11-hbcm2*p7p8)+16*(p1p2*p3p6*p7p11+p1p3*
4349      . p4p6*p7p11-p1p5*p3p6*p7p11-p2p3*p4p6*p7p8+p2p5*p3p6*p7p11+p3p5
4350      . *p4p6*p7p11)
4351       ans8=16*(p5p7*p3p5)*(-p6p11+p6p8)+16*(p5p7*p3p4)*(-p6p11+p6p8)+
4352      . 16*(p5p6*p3p4)*(-2*p7p11-p7p8)+16*(p4p6*p3p4)*(p7p11+p7p8)+16*
4353      . (p5p7*p2p3)*(p6p11-p6p8)+16*(p5p6*p2p3)*(p7p11+p7p8)+16*(p5p6*
4354      . p3p7)*(3*p2p11-3*p2p8-3*p3p11+3*p3p8-3*p4p11+3*p4p8-2*p5p11+2*
4355      . p5p8)+16*(p5p7*p1p3)*(-p6p11+p6p8)+16*(p4p6*p3p7)*(2*p1p11-2*
4356      . p1p8-3*p2p11+3*p2p8+3*p3p11-3*p3p8+3*p4p11-3*p4p8+2*p5p11-2*
4357      . p5p8)+16*(p5p7*p3p6)*(p1p11-p1p8)+16*(p4p7*p3p6)*(p1p11-p1p8)+
4358      . 16*(p6p7*p3p5)*(p1p11-p1p8+p5p11-p5p8)+16*(p6p7*p3p4)*(p1p11-
4359      . p1p8+p5p11-p5p8)+16*(p6p7*p2p3)*(-p1p11+p1p8-p5p11+p5p8)+16*(
4360      . p6p7*p1p3)*(-p1p11+p1p8+p5p11-p5p8)+16*p5p7*(-hbcm2*p6p11+
4361      . hbcm2*p6p8)+16*p6p7*(hbcm2*p1p11-hbcm2*p1p8+hbcm2*p5p11-hbcm2*
4362      . p5p8)+16*(p3p7*p3p5)*(ffmcfmb*p6p11-ffmcfmb*p6p8-p6p11+p6p8)+
4363      . 16*(p3p7*p3p4)*(ffmcfmb*p6p11-ffmcfmb*p6p8-p6p11+p6p8)+16*(
4364      . p3p6*p3p4)*(2*ffmcfmb*p7p11+2*ffmcfmb*p7p8-p7p11-p7p8)+16*(
4365      . p3p7*p2p3)*(-ffmcfmb*p6p11+ffmcfmb*p6p8+p6p11-p6p8)+ans9
4366       ans7=w11*ans8
4367       ans10=(8*p3p4*(p6p12+2*p7p13)+8*p6p7*(p3p10+p3p9)+8*p3p7*(-
4368      . ffmcfmb*p3p13-4*p2p13+4*p3p13+4*p4p13+2*p5p13)+8*p3p6*(2*
4369      . ffmcfmb*p3p12-p1p12-p3p12+p5p12-p7p10-p7p11-p7p9)+4*(-2*
4370      . ffmcfmb*hbcm2*p7p13-fmb*hbcm*p6p12+fmb*hbcm*p7p13+fmc*hbcm*
4371      . p6p12+fmc*hbcm*p7p13+hbcm2*p6p12+3*hbcm2*p7p13+2*p1p3*p7p13-2*
4372      . p2p3*p6p12+4*p3p12*p4p6-4*p3p12*p5p6-2*p3p13*p4p7+2*p3p5*p7p13
4373      . ))
4374       ans1=ans2+ans4+ans7+ans10
4375       ans=ccc*ans1
4376       b(30)=ans
4377       b(31)=w11*ccc*(4*p5p6*(-2*ffmcfmb*hbcm-3*fmb-fmc+2*hbcm)+4*p4p6
4378      . *(ffmcfmb*hbcm+2*fmb+fmc-hbcm)+4*p3p6*(2*ffmcfmb**2*hbcm+4*
4379      . ffmcfmb*fmb+2*ffmcfmb*fmc-4*ffmcfmb*hbcm-3*fmb-fmc+2*hbcm))
4380       b(32)=w2*ccc*(4*p5p6*(-2*ffmcfmb*hbcm-3*fmb-fmc+2*hbcm)+4*p4p6*
4381      . (ffmcfmb*hbcm+2*fmb+fmc-hbcm)+4*p3p6*(2*ffmcfmb**2*hbcm+4*
4382      . ffmcfmb*fmb+2*ffmcfmb*fmc-4*ffmcfmb*hbcm-3*fmb-fmc+2*hbcm))
4383       ans2=w11*(8*p4p6*(-fmb*p7p11+fmb*p7p8-fmc*p7p11+fmc*p7p8)+8*
4384      . p5p7*(ffmcfmb*hbcm*p6p11-ffmcfmb*hbcm*p6p8+fmb*p6p11-fmb*p6p8-
4385      . hbcm*p6p11+hbcm*p6p8)+8*p5p6*(ffmcfmb*hbcm*p7p11-ffmcfmb*hbcm*
4386      . p7p8+2*fmb*p7p11-2*fmb*p7p8+fmc*p7p11-fmc*p7p8-hbcm*p7p11+hbcm
4387      . *p7p8)+8*p4p7*(ffmcfmb*hbcm*p6p11-ffmcfmb*hbcm*p6p8+fmb*p6p11-
4388      . fmb*p6p8-hbcm*p6p11+hbcm*p6p8)+8*p3p7*(ffmcfmb*hbcm*p6p11-
4389      . ffmcfmb*hbcm*p6p8+fmb*p6p11-fmb*p6p8-hbcm*p6p11+hbcm*p6p8)+16*
4390      . p6p7*(-ffmcfmb*hbcm*p1p11+ffmcfmb*hbcm*p1p8-fmb*p1p11+fmb*p1p8
4391      . +hbcm*p1p11-hbcm*p1p8)+8*p3p6*(-2*ffmcfmb*fmb*p7p11+2*ffmcfmb*
4392      . fmb*p7p8-2*ffmcfmb*fmc*p7p11+2*ffmcfmb*fmc*p7p8+ffmcfmb*hbcm*
4393      . p7p11-ffmcfmb*hbcm*p7p8+2*fmb*p7p11-2*fmb*p7p8+fmc*p7p11-fmc*
4394      . p7p8-hbcm*p7p11+hbcm*p7p8))+8*(-fmb*p7p13-fmc*p7p13)
4395       ans1=w2*(8*p4p6*(-fmb*p7p9-fmc*p7p9)+8*p5p7*(ffmcfmb*hbcm*p6p9+
4396      . fmb*p6p9-hbcm*p6p9)+8*p5p6*(ffmcfmb*hbcm*p7p9+2*fmb*p7p9+fmc*
4397      . p7p9-hbcm*p7p9)+8*p4p7*(ffmcfmb*hbcm*p6p9+fmb*p6p9-hbcm*p6p9)+
4398      . 8*p3p7*(ffmcfmb*hbcm*p6p9+fmb*p6p9-hbcm*p6p9)+8*p3p6*(-2*
4399      . ffmcfmb*fmb*p7p9-2*ffmcfmb*fmc*p7p9+ffmcfmb*hbcm*p7p9+2*fmb*
4400      . p7p9+fmc*p7p9-hbcm*p7p9))+w7*(8*p4p6*(-fmb*p7p11-fmc*p7p11)+8*
4401      . p5p7*(ffmcfmb*hbcm*p6p11+fmb*p6p11-hbcm*p6p11)+8*p5p6*(ffmcfmb
4402      . *hbcm*p7p11+2*fmb*p7p11+fmc*p7p11-hbcm*p7p11)+8*p4p7*(ffmcfmb*
4403      . hbcm*p6p11+fmb*p6p11-hbcm*p6p11)+8*p3p7*(ffmcfmb*hbcm*p6p11+
4404      . fmb*p6p11-hbcm*p6p11)+16*p6p7*(-ffmcfmb*hbcm*p1p11-fmb*p1p11+
4405      . hbcm*p1p11)+8*p3p6*(-2*ffmcfmb*fmb*p7p11-2*ffmcfmb*fmc*p7p11+
4406      . ffmcfmb*hbcm*p7p11+2*fmb*p7p11+fmc*p7p11-hbcm*p7p11))+ans2
4407       ans=ccc*ans1
4408       b(33)=ans
4409       b(34)=6*ccc*w2*(ffmcfmb*hbcm+fmb-hbcm)
4410       b(35)=ccc*(12*w2*(-ffmcfmb*hbcm*p7p9-fmb*p7p9+hbcm*p7p9)+12*w7*
4411      . (-ffmcfmb*hbcm*p7p11-fmb*p7p11+hbcm*p7p11)+12*w11*(-ffmcfmb*
4412      . hbcm*p7p11+ffmcfmb*hbcm*p7p8-fmb*p7p11+fmb*p7p8+hbcm*p7p11-
4413      . hbcm*p7p8))
4414       b(36)=2*ccc*w2*(-5*ffmcfmb*hbcm2+3*fmb*hbcm-hbcm2+2*p1p3+6*p2p3
4415      . -6*p3p4+2*p3p5)
4416       b(37)=w2*ccc*(4*p3p7*(-ffmcfmb*hbcm+3*fmb)+4*(-hbcm*p4p7+3*hbcm
4417      . *p5p7))
4418       b(38)=ccc*(w2*(8*p3p7*(-p1p9+p2p9-p4p9+3*p5p9)+4*(5*ffmcfmb*
4419      . hbcm2*p7p9-3*fmb*hbcm*p7p9+hbcm2*p7p9-2*p1p3*p7p9-6*p2p3*p7p9+
4420      . 6*p3p4*p7p9-2*p3p5*p7p9))+w7*(8*p3p7*(-p1p11+p2p11-p4p11+3*
4421      . p5p11)+4*(5*ffmcfmb*hbcm2*p7p11-3*fmb*hbcm*p7p11+hbcm2*p7p11-2
4422      . *p1p3*p7p11-6*p2p3*p7p11+6*p3p4*p7p11-2*p3p5*p7p11))+w11*(8*
4423      . p3p5*(-p7p11+p7p8)+24*p3p4*(p7p11-p7p8)+24*p2p3*(-p7p11+p7p8)+
4424      . 8*p1p3*(-p7p11+p7p8)+8*p3p7*(-p1p11+p1p8+p2p11-p2p8-p4p11+p4p8
4425      . +3*p5p11-3*p5p8)+4*(5*ffmcfmb*hbcm2*p7p11-5*ffmcfmb*hbcm2*p7p8
4426      . -3*fmb*hbcm*p7p11+3*fmb*hbcm*p7p8+hbcm2*p7p11-hbcm2*p7p8))+8*
4427      . p3p12)
4428       b(39)=ccc*(w7*((p3p7*p3p6)*(-32*ffmcfmb+8)+8*p6p7*(ffmcfmb*
4429      . hbcm2-fmb*hbcm-hbcm2)+8*(-2*p3p5*p6p7-p3p6*p4p7+p3p6*p5p7-4*
4430      . p3p7*p4p6+2*p3p7*p5p6))+w11*((p3p7*p3p6)*(-32*ffmcfmb+8)+8*
4431      . p6p7*(ffmcfmb*hbcm2-fmb*hbcm-hbcm2)+8*(-2*p3p5*p6p7-p3p6*p4p7+
4432      . p3p6*p5p7-4*p3p7*p4p6+2*p3p7*p5p6)))
4433       ans=ccc*(w7*(8*(p5p6*p3p7)*(-ffmcfmb*hbcm-2*fmb-fmc)+8*(p4p6*
4434      . p3p7)*(2*ffmcfmb*hbcm+fmb+fmc)+16*(p5p7*p3p6)*(ffmcfmb*hbcm-
4435      . hbcm)+8*(p6p7*p2p3)*(ffmcfmb*hbcm-hbcm)+8*(p6p7*p1p3)*(2*
4436      . ffmcfmb*hbcm+2*fmb-hbcm)+4*p6p7*(-ffmcfmb**2*hbcm3+fmb2*hbcm+
4437      . hbcm3)+8*(p3p7*p3p6)*(2*ffmcfmb**2*hbcm+2*ffmcfmb*fmb+2*
4438      . ffmcfmb*fmc-ffmcfmb*hbcm-2*fmb-fmc)+8*(-hbcm*p1p2*p6p7+hbcm*
4439      . p1p5*p6p7-hbcm*p2p5*p6p7+hbcm*p3p5*p6p7+hbcm*p4p6*p4p7+hbcm*
4440      . p4p6*p5p7-2*hbcm*p5p6*p5p7))+w11*(8*(p5p6*p3p7)*(-ffmcfmb*hbcm
4441      . -2*fmb-fmc)+8*(p4p6*p3p7)*(2*ffmcfmb*hbcm+fmb+fmc)+16*(p5p7*
4442      . p3p6)*(ffmcfmb*hbcm-hbcm)+8*(p6p7*p2p3)*(ffmcfmb*hbcm-hbcm)+8*
4443      . (p6p7*p1p3)*(2*ffmcfmb*hbcm+2*fmb-hbcm)+4*p6p7*(-ffmcfmb**2*
4444      . hbcm3+fmb2*hbcm+hbcm3)+8*(p3p7*p3p6)*(2*ffmcfmb**2*hbcm+2*
4445      . ffmcfmb*fmb+2*ffmcfmb*fmc-ffmcfmb*hbcm-2*fmb-fmc)+8*(-hbcm*
4446      . p1p2*p6p7+hbcm*p1p5*p6p7-hbcm*p2p5*p6p7+hbcm*p3p5*p6p7+hbcm*
4447      . p4p6*p4p7+hbcm*p4p6*p5p7-2*hbcm*p5p6*p5p7))+4*hbcm*p6p7)
4448       b(40)=ans
4449       b(41)=ccc*(w7*((p5p6*p3p7)*(8*ffmcfmb-16)+(p4p6*p3p7)*(8*
4450      . ffmcfmb+8)+(p5p7*p3p6)*(32*ffmcfmb-24)+(p3p7*p3p6)*(24*ffmcfmb
4451      . -16)+(p6p7*p2p3)*(8*ffmcfmb-8)+4*p6p7*(-ffmcfmb**2*hbcm2+fmb2+
4452      . hbcm2)+8*(-p1p2*p6p7+p1p3*p6p7+p1p5*p6p7-p2p5*p6p7+p3p5*p6p7+
4453      . p4p6*p4p7+2*p4p6*p5p7-3*p5p6*p5p7))+w11*((p5p6*p3p7)*(8*
4454      . ffmcfmb-16)+(p4p6*p3p7)*(8*ffmcfmb+8)+(p5p7*p3p6)*(32*ffmcfmb-
4455      . 24)+(p3p7*p3p6)*(24*ffmcfmb-16)+(p6p7*p2p3)*(8*ffmcfmb-8)+4*
4456      . p6p7*(-ffmcfmb**2*hbcm2+fmb2+hbcm2)+8*(-p1p2*p6p7+p1p3*p6p7+
4457      . p1p5*p6p7-p2p5*p6p7+p3p5*p6p7+p4p6*p4p7+2*p4p6*p5p7-3*p5p6*
4458      . p5p7))+4*p6p7)
4459       b(42)=w2*ccc*((p3p7*p3p6)*(-32*ffmcfmb+8)+8*p6p7*(ffmcfmb*hbcm2
4460      . -fmb*hbcm-hbcm2)+8*(-2*p3p5*p6p7-p3p6*p4p7+p3p6*p5p7-4*p3p7*
4461      . p4p6+2*p3p7*p5p6))
4462       b(43)=ccc*(w2*(8*p3p7*(-2*ffmcfmb*p6p9+p6p9)+8*(-2*ffmcfmb*p3p6
4463      . *p7p9-4*p4p6*p7p9-p4p7*p6p9+2*p5p6*p7p9+p5p7*p6p9-2*p5p9*p6p7)
4464      . )+w7*(8*p3p7*(-2*ffmcfmb*p6p11+p6p11)+8*(-2*ffmcfmb*p3p6*p7p11
4465      . -4*p4p6*p7p11-p4p7*p6p11-2*p5p11*p6p7+2*p5p6*p7p11+p5p7*p6p11)
4466      . )+w11*(8*p5p7*(p6p11-p6p8)+16*p5p6*(p7p11-p7p8)+16*p6p7*(-
4467      . p5p11+p5p8)+8*p4p7*(-p6p11+p6p8)+32*p4p6*(-p7p11+p7p8)+8*p3p7*
4468      . (-2*ffmcfmb*p6p11+2*ffmcfmb*p6p8+p6p11-p6p8)+16*p3p6*(-ffmcfmb
4469      . *p7p11+ffmcfmb*p7p8))+8*(-p6p12-p7p13))
4470       ans=ccc*(w7*((p3p6*p3p4)*(-32*ffmcfmb+16)+(p3p6*p2p3)*(24*
4471      . ffmcfmb-16)+4*p5p6*(ffmcfmb*hbcm2-2*fmb*hbcm+fmc*hbcm+3*hbcm2)
4472      . +4*p4p6*(2*ffmcfmb*hbcm2+fmb*hbcm-fmc*hbcm-4*hbcm2)+4*p3p6*(-
4473      . ffmcfmb**2*hbcm2+2*ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*hbcm-3*
4474      . ffmcfmb*hbcm2-2*fmb*hbcm+fmb2+fmc*hbcm+2*hbcm2)+8*(-p1p2*p3p6-
4475      . p1p3*p4p6+p1p5*p3p6+p2p3*p4p6-2*p2p3*p5p6-p2p5*p3p6-2*p3p4*
4476      . p4p6+3*p3p4*p5p6-p3p5*p4p6))+w11*((p3p6*p3p4)*(-32*ffmcfmb+16)
4477      . +(p3p6*p2p3)*(24*ffmcfmb-16)+4*p5p6*(ffmcfmb*hbcm2-2*fmb*hbcm+
4478      . fmc*hbcm+3*hbcm2)+4*p4p6*(2*ffmcfmb*hbcm2+fmb*hbcm-fmc*hbcm-4*
4479      . hbcm2)+4*p3p6*(-ffmcfmb**2*hbcm2+2*ffmcfmb*fmb*hbcm-2*ffmcfmb*
4480      . fmc*hbcm-3*ffmcfmb*hbcm2-2*fmb*hbcm+fmb2+fmc*hbcm+2*hbcm2)+8*(
4481      . -p1p2*p3p6-p1p3*p4p6+p1p5*p3p6+p2p3*p4p6-2*p2p3*p5p6-p2p5*p3p6
4482      . -2*p3p4*p4p6+3*p3p4*p5p6-p3p5*p4p6))+4*p3p6)
4483       b(44)=ans
4484       b(45)=ccc*(w7*(p3p6*(-16*ffmcfmb+4)+4*(-5*p4p6+3*p5p6))+w11*(
4485      . p3p6*(-16*ffmcfmb+4)+4*(-5*p4p6+3*p5p6)))
4486       b(46)=ccc*(w7*(4*p5p6*(-2*ffmcfmb*hbcm-3*fmb-fmc+2*hbcm)+4*p4p6
4487      . *(ffmcfmb*hbcm+2*fmb+fmc-hbcm)+4*p3p6*(2*ffmcfmb**2*hbcm+4*
4488      . ffmcfmb*fmb+2*ffmcfmb*fmc-4*ffmcfmb*hbcm-3*fmb-fmc+2*hbcm))+
4489      . w11*(4*p5p6*(-2*ffmcfmb*hbcm-3*fmb-fmc+2*hbcm)+4*p4p6*(ffmcfmb
4490      . *hbcm+2*fmb+fmc-hbcm)+4*p3p6*(2*ffmcfmb**2*hbcm+4*ffmcfmb*fmb+
4491      . 2*ffmcfmb*fmc-4*ffmcfmb*hbcm-3*fmb-fmc+2*hbcm)))
4492       b(47)=w2*ccc*(p3p6*(-16*ffmcfmb+4)+4*(-5*p4p6+3*p5p6))
4493       b(48)=4*ccc*(p3p6+p4p6+p5p6)
4494       b(49)=ccc*(w7*(4*p3p7*(-ffmcfmb*hbcm+3*fmb)+4*(-hbcm*p4p7+3*
4495      . hbcm*p5p7))+w11*(4*p3p7*(-ffmcfmb*hbcm+3*fmb)+4*(-hbcm*p4p7+3*
4496      . hbcm*p5p7)))
4497       b(50)=ccc*(w7*(p3p7*(-16*ffmcfmb+12)+4*(-p4p7+3*p5p7))+w11*(
4498      . p3p7*(-16*ffmcfmb+12)+4*(-p4p7+3*p5p7)))
4499       b(51)=ccc*(w7*((p3p7*p3p5)*(8*ffmcfmb-8)+(p3p7*p2p3)*(-16*
4500      . ffmcfmb+8)+4*p4p7*(-ffmcfmb*hbcm2+fmb*hbcm+hbcm2)+4*p3p7*(
4501      . ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm+ffmcfmb*hbcm2-fmb2+fmc2-
4502      . hbcm2)+8*(-ffmcfmb*hbcm2*p5p7+ffmcfmb*p1p3*p3p7+ffmcfmb*p3p4*
4503      . p3p7-p1p2*p3p7-p1p3*p5p7+2*p1p4*p3p7+p2p3*p5p7-p2p4*p3p7+p2p5*
4504      . p3p7-p3p4*p5p7+p3p5*p4p7))+w11*((p3p7*p3p5)*(8*ffmcfmb-8)+(
4505      . p3p7*p2p3)*(-16*ffmcfmb+8)+4*p4p7*(-ffmcfmb*hbcm2+fmb*hbcm+
4506      . hbcm2)+4*p3p7*(ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm+ffmcfmb*hbcm2
4507      . -fmb2+fmc2-hbcm2)+8*(-ffmcfmb*hbcm2*p5p7+ffmcfmb*p1p3*p3p7+
4508      . ffmcfmb*p3p4*p3p7-p1p2*p3p7-p1p3*p5p7+2*p1p4*p3p7+p2p3*p5p7-
4509      . p2p4*p3p7+p2p5*p3p7-p3p4*p5p7+p3p5*p4p7))-4*p3p7)
4510       b(52)=w2*ccc*(p3p7*(-16*ffmcfmb+12)+4*(-p4p7+3*p5p7))
4511       b(53)=ccc*(4*w2*(-p1p9-3*p2p9+2*p3p9+3*p4p9-p5p9)+4*w7*(-p1p11-
4512      . 3*p2p11+2*p3p11+3*p4p11-p5p11)+4*w11*(-p1p11+p1p8-3*p2p11+3*
4513      . p2p8+2*p3p11-2*p3p8+3*p4p11-3*p4p8-p5p11+p5p8))
4514       b(54)=ccc*(2*w7*(-5*ffmcfmb*hbcm2+3*fmb*hbcm-hbcm2+2*p1p3+6*
4515      . p2p3-6*p3p4+2*p3p5)+2*w11*(-5*ffmcfmb*hbcm2+3*fmb*hbcm-hbcm2+2
4516      . *p1p3+6*p2p3-6*p3p4+2*p3p5))
4517       b(55)=ccc*(6*w7*(ffmcfmb*hbcm+fmb-hbcm)+6*w11*(ffmcfmb*hbcm+fmb
4518      . -hbcm))
4519       b(56)=ccc*(2*w7*(2*ffmcfmb*hbcm2-2*ffmcfmb*p2p3-fmb2+fmc2-hbcm2
4520      . -2*p1p2+2*p1p3+4*p1p4-2*p2p4+2*p2p5+2*p3p4-2*p3p5)+2*w11*(2*
4521      . ffmcfmb*hbcm2-2*ffmcfmb*p2p3-fmb2+fmc2-hbcm2-2*p1p2+2*p1p3+4*
4522      . p1p4-2*p2p4+2*p2p5+2*p3p4-2*p3p5)-2)
4523       b(57)=-8*ccc
4524       b(58)=ccc*(w7*(8*p3p6*(2*ffmcfmb*hbcm+fmb-hbcm)+8*(2*hbcm*p4p6-
4525      . hbcm*p5p6))+w11*(8*p3p6*(2*ffmcfmb*hbcm+fmb-hbcm)+8*(2*hbcm*
4526      . p4p6-hbcm*p5p6)))
4527       b(59)=ccc*(w7*(4*p3p5*(ffmcfmb*hbcm+fmb)+4*p1p3*(-2*ffmcfmb*
4528      . hbcm-2*fmb+hbcm)+2*(-2*ffmcfmb**2*hbcm3-2*ffmcfmb*fmb*hbcm2+2*
4529      . ffmcfmb*hbcm*p2p3+2*ffmcfmb*hbcm3+2*fmb*hbcm2+fmb2*hbcm-fmc2*
4530      . hbcm+2*hbcm*p1p2-4*hbcm*p1p4+2*hbcm*p2p4-2*hbcm*p2p5-2*hbcm*
4531      . p3p4-hbcm3))+w11*(4*p3p5*(ffmcfmb*hbcm+fmb)+4*p1p3*(-2*ffmcfmb
4532      . *hbcm-2*fmb+hbcm)+2*(-2*ffmcfmb**2*hbcm3-2*ffmcfmb*fmb*hbcm2+2
4533      . *ffmcfmb*hbcm*p2p3+2*ffmcfmb*hbcm3+2*fmb*hbcm2+fmb2*hbcm-fmc2*
4534      . hbcm+2*hbcm*p1p2-4*hbcm*p1p4+2*hbcm*p2p4-2*hbcm*p2p5-2*hbcm*
4535      . p3p4-hbcm3))+2*hbcm)
4536       b(60)=w2*ccc*(8*p3p6*(2*ffmcfmb*hbcm+fmb-hbcm)+8*(2*hbcm*p4p6-
4537      . hbcm*p5p6))
4538       b(61)=-8*ccc*hbcm
4539       b(62)=ccc*(4*p3p6*(ffmcfmb*hbcm-fmb+hbcm)+8*hbcm*p4p6)
4540       b(65)=w11*ccc*((p3p7*p3p6)*(32*ffmcfmb-8)+8*p6p7*(-ffmcfmb*
4541      . hbcm2+fmb*hbcm+hbcm2)+8*(2*p3p5*p6p7+p3p6*p4p7-p3p6*p5p7+4*
4542      . p3p7*p4p6-2*p3p7*p5p6))
4543       ans=ccc*(w2*(8*p3p7*(-2*ffmcfmb*hbcm*p6p9+hbcm*p6p9)+8*p3p6*(-2
4544      . *ffmcfmb*hbcm*p7p9-2*fmb*p7p9+hbcm*p7p9)+8*(-3*hbcm*p4p6*p7p9-
4545      . hbcm*p4p7*p6p9+hbcm*p5p6*p7p9+hbcm*p5p7*p6p9-2*hbcm*p5p9*p6p7)
4546      . )+w7*(8*p3p7*(-2*ffmcfmb*hbcm*p6p11+hbcm*p6p11)+8*p3p6*(-2*
4547      . ffmcfmb*hbcm*p7p11-2*fmb*p7p11+hbcm*p7p11)+8*(-3*hbcm*p4p6*
4548      . p7p11-hbcm*p4p7*p6p11-2*hbcm*p5p11*p6p7+hbcm*p5p6*p7p11+hbcm*
4549      . p5p7*p6p11))+w11*(8*p5p7*(hbcm*p6p11-hbcm*p6p8)+8*p5p6*(hbcm*
4550      . p7p11-hbcm*p7p8)+16*p6p7*(-hbcm*p5p11+hbcm*p5p8)+8*p4p7*(-hbcm
4551      . *p6p11+hbcm*p6p8)+24*p4p6*(-hbcm*p7p11+hbcm*p7p8)+8*p3p7*(-2*
4552      . ffmcfmb*hbcm*p6p11+2*ffmcfmb*hbcm*p6p8+hbcm*p6p11-hbcm*p6p8)+8
4553      . *p3p6*(-2*ffmcfmb*hbcm*p7p11+2*ffmcfmb*hbcm*p7p8-2*fmb*p7p11+2
4554      . *fmb*p7p8+hbcm*p7p11-hbcm*p7p8))-8*hbcm*p6p12)
4555       b(66)=ans
4556       b(68)=w11*ccc*(p3p6*(16*ffmcfmb-4)+4*(5*p4p6-3*p5p6))
4557       b(71)=w11*ccc*(p3p7*(16*ffmcfmb-12)+4*(p4p7-3*p5p7))
4558       b(73)=ccc*(8*w7*p6p7*(ffmcfmb*hbcm+fmb-hbcm)+8*w11*p6p7*(
4559      . ffmcfmb*hbcm+fmb-hbcm))
4560       b(74)=8*ccc*w11*p6p7*(-ffmcfmb*hbcm-fmb+hbcm)
4561       b(75)=ccc*(4*w2*(2*ffmcfmb*hbcm*p1p9-ffmcfmb*hbcm*p3p9-ffmcfmb*
4562      . hbcm*p5p9+2*fmb*p1p9-fmb*p3p9-fmb*p5p9-2*hbcm*p1p9+hbcm*p3p9+
4563      . hbcm*p5p9)+4*w7*(2*ffmcfmb*hbcm*p1p11-ffmcfmb*hbcm*p3p11-
4564      . ffmcfmb*hbcm*p5p11+2*fmb*p1p11-fmb*p3p11-fmb*p5p11-2*hbcm*
4565      . p1p11+hbcm*p3p11+hbcm*p5p11)+4*w11*(2*ffmcfmb*hbcm*p1p11-2*
4566      . ffmcfmb*hbcm*p1p8-ffmcfmb*hbcm*p3p11+ffmcfmb*hbcm*p3p8-ffmcfmb
4567      . *hbcm*p5p11+ffmcfmb*hbcm*p5p8+2*fmb*p1p11-2*fmb*p1p8-fmb*p3p11
4568      . +fmb*p3p8-fmb*p5p11+fmb*p5p8-2*hbcm*p1p11+2*hbcm*p1p8+hbcm*
4569      . p3p11-hbcm*p3p8+hbcm*p5p11-hbcm*p5p8))
4570       ans2=w11*(8*p3p5*(-2*p1p11+2*p1p8+p3p11-p3p8+p5p11-p5p8)+8*p3p4
4571      . *(p1p11-p1p8+p2p11-p2p8-p3p11+p3p8-p4p11+p4p8)+8*p2p3*(-p1p11+
4572      . p1p8-p2p11+p2p8+p3p11-p3p8+p4p11-p4p8)+8*p1p3*(p1p11-p1p8+
4573      . p2p11-p2p8-p3p11+p3p8-p4p11+p4p8)+4*(4*ffmcfmb*hbcm2*p1p11-4*
4574      . ffmcfmb*hbcm2*p1p8+2*ffmcfmb*hbcm2*p2p11-2*ffmcfmb*hbcm2*p2p8-
4575      . 3*ffmcfmb*hbcm2*p3p11+3*ffmcfmb*hbcm2*p3p8-2*ffmcfmb*hbcm2*
4576      . p4p11+2*ffmcfmb*hbcm2*p4p8-ffmcfmb*hbcm2*p5p11+ffmcfmb*hbcm2*
4577      . p5p8-2*fmb*hbcm*p1p11+2*fmb*hbcm*p1p8+fmb*hbcm*p3p11-fmb*hbcm*
4578      . p3p8+fmb*hbcm*p5p11-fmb*hbcm*p5p8-2*hbcm2*p1p11+2*hbcm2*p1p8+
4579      . hbcm2*p3p11-hbcm2*p3p8+hbcm2*p5p11-hbcm2*p5p8))
4580       ans1=w2*(8*p3p5*(-2*p1p9+p3p9+p5p9)+8*p3p4*(p1p9+p2p9-p3p9-p4p9
4581      . )+8*p2p3*(-p1p9-p2p9+p3p9+p4p9)+8*p1p3*(p1p9+p2p9-p3p9-p4p9)+4
4582      . *(4*ffmcfmb*hbcm2*p1p9+2*ffmcfmb*hbcm2*p2p9-3*ffmcfmb*hbcm2*
4583      . p3p9-2*ffmcfmb*hbcm2*p4p9-ffmcfmb*hbcm2*p5p9-2*fmb*hbcm*p1p9+
4584      . fmb*hbcm*p3p9+fmb*hbcm*p5p9-2*hbcm2*p1p9+hbcm2*p3p9+hbcm2*p5p9
4585      . ))+w7*(8*p3p5*(-2*p1p11+p3p11+p5p11)+8*p3p4*(p1p11+p2p11-p3p11
4586      . -p4p11)+8*p2p3*(-p1p11-p2p11+p3p11+p4p11)+8*p1p3*(p1p11+p2p11-
4587      . p3p11-p4p11)+4*(4*ffmcfmb*hbcm2*p1p11+2*ffmcfmb*hbcm2*p2p11-3*
4588      . ffmcfmb*hbcm2*p3p11-2*ffmcfmb*hbcm2*p4p11-ffmcfmb*hbcm2*p5p11-
4589      . 2*fmb*hbcm*p1p11+fmb*hbcm*p3p11+fmb*hbcm*p5p11-2*hbcm2*p1p11+
4590      . hbcm2*p3p11+hbcm2*p5p11))+ans2
4591       ans=ccc*ans1
4592       b(76)=ans
4593       b(77)=ccc*(8*w2*(ffmcfmb*hbcm2*p6p9-fmb*hbcm*p6p9-hbcm2*p6p9-2*
4594      . p3p5*p6p9+2*p3p6*p5p9)+8*w7*(ffmcfmb*hbcm2*p6p11-fmb*hbcm*
4595      . p6p11-hbcm2*p6p11-2*p3p5*p6p11+2*p3p6*p5p11)+w11*(16*p3p6*(
4596      . p5p11-p5p8)+16*p3p5*(-p6p11+p6p8)+8*(ffmcfmb*hbcm2*p6p11-
4597      . ffmcfmb*hbcm2*p6p8-fmb*hbcm*p6p11+fmb*hbcm*p6p8-hbcm2*p6p11+
4598      . hbcm2*p6p8)))
4599       b(78)=ccc*(8*w2*(ffmcfmb*hbcm*p6p9+fmb*p6p9-hbcm*p6p9)+8*w7*(
4600      . ffmcfmb*hbcm*p6p11+fmb*p6p11-hbcm*p6p11)+8*w11*(ffmcfmb*hbcm*
4601      . p6p11-ffmcfmb*hbcm*p6p8+fmb*p6p11-fmb*p6p8-hbcm*p6p11+hbcm*
4602      . p6p8))
4603       b(79)=8*ccc*w2*p6p7*(ffmcfmb*hbcm+fmb-hbcm)
4604       b(80)=w2*ccc*(4*p4p7*(-ffmcfmb*hbcm-fmb+hbcm)+4*p3p7*(-ffmcfmb
4605      . **2*hbcm-ffmcfmb*fmb+ffmcfmb*hbcm))
4606       b(82)=-8*ccc*p3p7
4607       b(83)=ccc*(8*p3p7*(ffmcfmb*hbcm+fmb+fmc)+8*hbcm*p5p7)
4608       b(84)=8*ccc*(p3p7+2*p5p7)
4609       b(85)=4*ccc*(fmb*hbcm-fmc*hbcm-2*hbcm2+2*p2p3-4*p3p4)
4610       b(86)=-8*ccc
4611       b(87)=4*ccc*(ffmcfmb*hbcm+2*fmb+fmc-hbcm)
4612       b(89)=-4*ccc*hbcm
4613       b(90)=ccc*(w7*(4*p4p7*(-ffmcfmb*hbcm-fmb+hbcm)+4*p3p7*(-ffmcfmb
4614      . **2*hbcm-ffmcfmb*fmb+ffmcfmb*hbcm))+w11*(4*p4p7*(-ffmcfmb*hbcm
4615      . -fmb+hbcm)+4*p3p7*(-ffmcfmb**2*hbcm-ffmcfmb*fmb+ffmcfmb*hbcm))
4616      . )
4617       b(91)=w11*ccc*(4*p4p7*(ffmcfmb*hbcm+fmb-hbcm)+4*p3p7*(ffmcfmb**
4618      . 2*hbcm+ffmcfmb*fmb-ffmcfmb*hbcm))
4619       b(92)=2*ccc*(ffmcfmb*hbcm2+fmb*hbcm+hbcm2+2*p1p3-2*p2p3+2*p3p4+
4620      . 2*p3p5)
4621       b(93)=8*ccc*p3p6
4622       b(94)=2*ccc*(ffmcfmb*hbcm+fmb-hbcm)
4623       do 200 n=1,94
4624          c(n,1)=c(n,1)-0.1818181818181818d0*b(n)
4625          c(n,2)=c(n,2)-0.1512818716977898d0*b(n)
4626          c(n,3)=c(n,3)-0.1869893980016914d0*b(n)
4627 200   continue
4628       return
4629       end
4630
4631       subroutine amp29_3p2(cc)
4632       implicit double precision(a-h,o-z)
4633       implicit integer (i-n)
4634       dimension b(94)
4635 #include "inclcon.h"
4636 #include "inclppp.h"
4637 #include "inclamp.h"
4638       do 100 n=1,94
4639          b(n)=0.0d0
4640 100   continue
4641       ccc=cc/((ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3+2*ffmcfmb*p3p4+fmc2-2*
4642      . p1p4)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2)*(ffmcfmb**2*hbcm2
4643      . -2*ffmcfmb*hbcm2+2*ffmcfmb*p2p3-fmb2+hbcm2-2*p2p3))
4644       b(1)=ccc*(w5*(4*p6p7*(ffmcfmb**2*hbcm2-fmc2)+8*(-2*ffmcfmb*p3p6
4645      . *p3p7-4*ffmcfmb*p3p6*p5p7+2*p1p2*p6p7-2*p1p3*p6p7-2*p1p5*p6p7-
4646      . 3*p3p7*p4p6-p4p6*p4p7-5*p4p6*p5p7))+w1*(4*p6p7*(ffmcfmb**2*
4647      . hbcm2-fmc2)+8*(-2*ffmcfmb*p3p6*p3p7-4*ffmcfmb*p3p6*p5p7+2*p1p2
4648      . *p6p7-2*p1p3*p6p7-2*p1p5*p6p7-3*p3p7*p4p6-p4p6*p4p7-5*p4p6*
4649      . p5p7)))
4650       b(3)=ccc*(w1*(8*p4p7*(p1p8-p2p8+p4p8+p5p8)+8*p3p7*(ffmcfmb*p1p8
4651      . -ffmcfmb*p2p8+ffmcfmb*p4p8+ffmcfmb*p5p8))+w8*(8*p4p7*(p1p11-
4652      . p2p11+p4p11+p5p11)+8*p3p7*(ffmcfmb*p1p11-ffmcfmb*p2p11+ffmcfmb
4653      . *p4p11+ffmcfmb*p5p11))+w5*(8*p4p7*(-p1p10+p1p8+p2p10-p2p8-
4654      . p4p10+p4p8-p5p10+p5p8)+8*p3p7*(-ffmcfmb*p1p10+ffmcfmb*p1p8+
4655      . ffmcfmb*p2p10-ffmcfmb*p2p8-ffmcfmb*p4p10+ffmcfmb*p4p8-ffmcfmb*
4656      . p5p10+ffmcfmb*p5p8))+4*(p2p12-p5p12-p7p10-p7p8))
4657       b(4)=ccc*(w5*((p3p7*p3p4)*(-8*ffmcfmb+8)+(p3p7*p1p3)*(-8*
4658      . ffmcfmb+8)+4*p4p7*(ffmcfmb*hbcm2+fmc*hbcm-2*hbcm2)+4*p3p7*(-
4659      . ffmcfmb**2*hbcm2+ffmcfmb*fmc*hbcm)+8*(ffmcfmb*hbcm2*p5p7+
4660      . ffmcfmb*p2p3*p3p7-ffmcfmb*p3p5*p3p7+p1p3*p5p7+p2p3*p4p7+p3p4*
4661      . p5p7-p3p5*p4p7))+w1*((p3p7*p3p4)*(-8*ffmcfmb+8)+(p3p7*p1p3)*(-
4662      . 8*ffmcfmb+8)+4*p4p7*(ffmcfmb*hbcm2+fmc*hbcm-2*hbcm2)+4*p3p7*(-
4663      . ffmcfmb**2*hbcm2+ffmcfmb*fmc*hbcm)+8*(ffmcfmb*hbcm2*p5p7+
4664      . ffmcfmb*p2p3*p3p7-ffmcfmb*p3p5*p3p7+p1p3*p5p7+p2p3*p4p7+p3p4*
4665      . p5p7-p3p5*p4p7)))
4666       b(6)=ccc*(w1*(8*p4p7*(hbcm*p2p8-hbcm*p5p8)+8*p5p7*(hbcm*p1p8+
4667      . hbcm*p4p8)+8*p3p7*(-ffmcfmb*hbcm*p1p8+ffmcfmb*hbcm*p2p8-
4668      . ffmcfmb*hbcm*p4p8-ffmcfmb*hbcm*p5p8+hbcm*p1p8+hbcm*p4p8))+w8*(
4669      . 8*p4p7*(hbcm*p2p11-hbcm*p5p11)+8*p5p7*(hbcm*p1p11+hbcm*p4p11)+
4670      . 8*p3p7*(-ffmcfmb*hbcm*p1p11+ffmcfmb*hbcm*p2p11-ffmcfmb*hbcm*
4671      . p4p11-ffmcfmb*hbcm*p5p11+hbcm*p1p11+hbcm*p4p11))+w5*(8*p4p7*(-
4672      . hbcm*p2p10+hbcm*p2p8+hbcm*p5p10-hbcm*p5p8)+8*p5p7*(-hbcm*p1p10
4673      . +hbcm*p1p8-hbcm*p4p10+hbcm*p4p8)+8*p3p7*(ffmcfmb*hbcm*p1p10-
4674      . ffmcfmb*hbcm*p1p8-ffmcfmb*hbcm*p2p10+ffmcfmb*hbcm*p2p8+ffmcfmb
4675      . *hbcm*p4p10-ffmcfmb*hbcm*p4p8+ffmcfmb*hbcm*p5p10-ffmcfmb*hbcm*
4676      . p5p8-hbcm*p1p10+hbcm*p1p8-hbcm*p4p10+hbcm*p4p8))+4*(hbcm*p1p12
4677      . -hbcm*p2p12+hbcm*p4p12+hbcm*p5p12))
4678       ans=ccc*(w1*(8*p4p6*(2*p1p8-2*p2p8+5*p3p8+4*p4p8)+16*p3p6*(-
4679      . ffmcfmb*p2p8+2*ffmcfmb*p3p8+2*ffmcfmb*p4p8+p1p8)+4*(ffmcfmb**2
4680      . *hbcm2*p6p8-fmc2*p6p8+4*p1p2*p6p8-4*p1p3*p6p8-4*p1p5*p6p8))+w8
4681      . *(8*p4p6*(2*p1p11-2*p2p11+5*p3p11+4*p4p11)+16*p3p6*(-ffmcfmb*
4682      . p2p11+2*ffmcfmb*p3p11+2*ffmcfmb*p4p11+p1p11)+4*(ffmcfmb**2*
4683      . hbcm2*p6p11-fmc2*p6p11+4*p1p2*p6p11-4*p1p3*p6p11-4*p1p5*p6p11)
4684      . )+w5*(16*p1p5*(p6p10-p6p8)+16*p1p3*(p6p10-p6p8)+16*p1p2*(-
4685      . p6p10+p6p8)+8*p4p6*(-2*p1p10+2*p1p8+2*p2p10-2*p2p8-5*p3p10+5*
4686      . p3p8-4*p4p10+4*p4p8)+16*p3p6*(ffmcfmb*p2p10-ffmcfmb*p2p8-2*
4687      . ffmcfmb*p3p10+2*ffmcfmb*p3p8-2*ffmcfmb*p4p10+2*ffmcfmb*p4p8-
4688      . p1p10+p1p8)+4*(-ffmcfmb**2*hbcm2*p6p10+ffmcfmb**2*hbcm2*p6p8+
4689      . fmc2*p6p10-fmc2*p6p8))+4*(3*p1p13+2*p2p13-6*p3p13-5*p4p13-
4690      . p5p13-2*p6p10+p6p11))
4691       b(7)=ans
4692       b(8)=ccc*(w5*(4*p4p6*(ffmcfmb*hbcm2+2*fmb*hbcm-3*fmc*hbcm-4*
4693      . hbcm2)+4*p3p6*(-ffmcfmb**2*hbcm2+2*ffmcfmb*fmb*hbcm-2*ffmcfmb*
4694      . fmc*hbcm-3*ffmcfmb*hbcm2-fmc*hbcm+fmc2)+16*(ffmcfmb*p2p3*p3p6-
4695      . 2*ffmcfmb*p3p4*p3p6-p1p2*p3p6-p1p3*p4p6+p1p5*p3p6+p2p3*p4p6-2*
4696      . p3p4*p4p6))+w1*(4*p4p6*(ffmcfmb*hbcm2+2*fmb*hbcm-3*fmc*hbcm-4*
4697      . hbcm2)+4*p3p6*(-ffmcfmb**2*hbcm2+2*ffmcfmb*fmb*hbcm-2*ffmcfmb*
4698      . fmc*hbcm-3*ffmcfmb*hbcm2-fmc*hbcm+fmc2)+16*(ffmcfmb*p2p3*p3p6-
4699      . 2*ffmcfmb*p3p4*p3p6-p1p2*p3p6-p1p3*p4p6+p1p5*p3p6+p2p3*p4p6-2*
4700      . p3p4*p4p6)))
4701       ans4=4*(-ffmcfmb**2*hbcm3*p6p10+ffmcfmb**2*hbcm3*p6p8+2*ffmcfmb
4702      . *fmc*hbcm2*p6p10-2*ffmcfmb*fmc*hbcm2*p6p8+2*ffmcfmb*hbcm3*
4703      . p6p10-2*ffmcfmb*hbcm3*p6p8-2*fmc*hbcm2*p6p10+2*fmc*hbcm2*p6p8-
4704      . fmc2*hbcm*p6p10+fmc2*hbcm*p6p8)
4705       ans3=16*p1p5*(-hbcm*p6p10+hbcm*p6p8)+16*p1p2*(hbcm*p6p10-hbcm*
4706      . p6p8)+8*p3p5*(ffmcfmb*hbcm*p6p10-ffmcfmb*hbcm*p6p8-fmc*p6p10+
4707      . fmc*p6p8)+8*p4p6*(-3*ffmcfmb*hbcm*p3p10+3*ffmcfmb*hbcm*p3p8+2*
4708      . fmb*p3p10-2*fmb*p3p8+5*fmc*p3p10-5*fmc*p3p8-4*hbcm*p1p10+4*
4709      . hbcm*p1p8-2*hbcm*p2p10+2*hbcm*p2p8+3*hbcm*p3p10-3*hbcm*p3p8+2*
4710      . hbcm*p4p10-2*hbcm*p4p8)+8*p2p3*(-ffmcfmb*hbcm*p6p10+ffmcfmb*
4711      . hbcm*p6p8+fmc*p6p10-fmc*p6p8)+8*p1p3*(ffmcfmb*hbcm*p6p10-
4712      . ffmcfmb*hbcm*p6p8-fmc*p6p10+fmc*p6p8-2*hbcm*p6p10+2*hbcm*p6p8)
4713      . +8*p3p6*(-2*ffmcfmb**2*hbcm*p3p10+2*ffmcfmb**2*hbcm*p3p8+2*
4714      . ffmcfmb*fmb*p3p10-2*ffmcfmb*fmb*p3p8+4*ffmcfmb*fmc*p3p10-4*
4715      . ffmcfmb*fmc*p3p8-3*ffmcfmb*hbcm*p1p10+3*ffmcfmb*hbcm*p1p8-2*
4716      . ffmcfmb*hbcm*p2p10+2*ffmcfmb*hbcm*p2p8+2*ffmcfmb*hbcm*p3p10-2*
4717      . ffmcfmb*hbcm*p3p8+3*ffmcfmb*hbcm*p4p10-3*ffmcfmb*hbcm*p4p8+fmc
4718      . *p1p10-fmc*p1p8-fmc*p4p10+fmc*p4p8)+ans4
4719       ans2=w5*ans3
4720       ans5=4*(-3*hbcm*p1p13-2*hbcm*p2p13+4*hbcm*p3p13+3*hbcm*p4p13+
4721      . hbcm*p5p13+2*hbcm*p6p10-hbcm*p6p11)
4722       ans1=w8*(8*p4p6*(4*hbcm*p1p11+2*hbcm*p2p11-3*hbcm*p3p11-2*hbcm*
4723      . p4p11)+8*p3p5*(-ffmcfmb*hbcm*p6p11+fmc*p6p11)+8*p2p3*(ffmcfmb*
4724      . hbcm*p6p11-fmc*p6p11)+8*p1p3*(-ffmcfmb*hbcm*p6p11+fmc*p6p11+2*
4725      . hbcm*p6p11)+8*p3p6*(3*ffmcfmb*hbcm*p1p11+2*ffmcfmb*hbcm*p2p11-
4726      . 3*ffmcfmb*hbcm*p3p11-3*ffmcfmb*hbcm*p4p11-fmc*p1p11+fmc*p3p11+
4727      . fmc*p4p11)+4*(ffmcfmb**2*hbcm3*p6p11-2*ffmcfmb*fmc*hbcm2*p6p11
4728      . -2*ffmcfmb*hbcm3*p6p11+2*fmc*hbcm2*p6p11+fmc2*hbcm*p6p11-4*
4729      . hbcm*p1p2*p6p11+4*hbcm*p1p5*p6p11))+w1*(8*p4p6*(3*ffmcfmb*hbcm
4730      . *p3p8-2*fmb*p3p8-5*fmc*p3p8+4*hbcm*p1p8+2*hbcm*p2p8-3*hbcm*
4731      . p3p8-2*hbcm*p4p8)+8*p3p5*(-ffmcfmb*hbcm*p6p8+fmc*p6p8)+8*p2p3*
4732      . (ffmcfmb*hbcm*p6p8-fmc*p6p8)+8*p1p3*(-ffmcfmb*hbcm*p6p8+fmc*
4733      . p6p8+2*hbcm*p6p8)+8*p3p6*(2*ffmcfmb**2*hbcm*p3p8-2*ffmcfmb*fmb
4734      . *p3p8-4*ffmcfmb*fmc*p3p8+3*ffmcfmb*hbcm*p1p8+2*ffmcfmb*hbcm*
4735      . p2p8-2*ffmcfmb*hbcm*p3p8-3*ffmcfmb*hbcm*p4p8-fmc*p1p8+fmc*p4p8
4736      . )+4*(ffmcfmb**2*hbcm3*p6p8-2*ffmcfmb*fmc*hbcm2*p6p8-2*ffmcfmb*
4737      . hbcm3*p6p8+2*fmc*hbcm2*p6p8+fmc2*hbcm*p6p8-4*hbcm*p1p2*p6p8+4*
4738      . hbcm*p1p5*p6p8))+ans2+ans5
4739       ans=ccc*ans1
4740       b(10)=ans
4741       ans=ccc*(w5*(8*(p4p6*p3p7)*(-2*fmc-hbcm)+8*(p5p7*p3p6)*(-3*
4742      . ffmcfmb*hbcm+fmc)+8*(p6p7*p3p5)*(ffmcfmb*hbcm-fmc)+8*(p6p7*
4743      . p2p3)*(-ffmcfmb*hbcm+fmc)+8*(p6p7*p1p3)*(ffmcfmb*hbcm-fmc-2*
4744      . hbcm)+4*p6p7*(-ffmcfmb**2*hbcm3+2*ffmcfmb*fmc*hbcm2+2*ffmcfmb*
4745      . hbcm3-2*fmc*hbcm2-fmc2*hbcm)+8*(p3p7*p3p6)*(ffmcfmb**2*hbcm-3*
4746      . ffmcfmb*fmc-ffmcfmb*hbcm+fmc)+8*(2*hbcm*p1p2*p6p7-2*hbcm*p1p5*
4747      . p6p7-hbcm*p4p6*p4p7-3*hbcm*p4p6*p5p7))+w1*(8*(p4p6*p3p7)*(-2*
4748      . fmc-hbcm)+8*(p5p7*p3p6)*(-3*ffmcfmb*hbcm+fmc)+8*(p6p7*p3p5)*(
4749      . ffmcfmb*hbcm-fmc)+8*(p6p7*p2p3)*(-ffmcfmb*hbcm+fmc)+8*(p6p7*
4750      . p1p3)*(ffmcfmb*hbcm-fmc-2*hbcm)+4*p6p7*(-ffmcfmb**2*hbcm3+2*
4751      . ffmcfmb*fmc*hbcm2+2*ffmcfmb*hbcm3-2*fmc*hbcm2-fmc2*hbcm)+8*(
4752      . p3p7*p3p6)*(ffmcfmb**2*hbcm-3*ffmcfmb*fmc-ffmcfmb*hbcm+fmc)+8*
4753      . (2*hbcm*p1p2*p6p7-2*hbcm*p1p5*p6p7-hbcm*p4p6*p4p7-3*hbcm*p4p6*
4754      . p5p7)))
4755       b(11)=ans
4756       b(13)=ccc*(4*w5*(-ffmcfmb*hbcm2+ffmcfmb*p2p3+p1p2-p1p3-3*p1p4+
4757      . p2p4-p3p4)+4*w1*(-ffmcfmb*hbcm2+ffmcfmb*p2p3+p1p2-p1p3-3*p1p4+
4758      . p2p4-p3p4))
4759       b(15)=ccc*(w5*(4*p3p4*(-ffmcfmb*hbcm+fmc+hbcm)+4*p1p3*(-ffmcfmb
4760      . *hbcm+fmc+hbcm)+4*(-ffmcfmb**2*hbcm3+ffmcfmb*fmc*hbcm2-ffmcfmb
4761      . *hbcm*p2p3+ffmcfmb*hbcm3-hbcm*p1p2+3*hbcm*p1p4-hbcm*p2p4))+w1*
4762      . (4*p3p4*(-ffmcfmb*hbcm+fmc+hbcm)+4*p1p3*(-ffmcfmb*hbcm+fmc+
4763      . hbcm)+4*(-ffmcfmb**2*hbcm3+ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm*p2p3
4764      . +ffmcfmb*hbcm3-hbcm*p1p2+3*hbcm*p1p4-hbcm*p2p4)))
4765       b(17)=w5*ccc*(4*p3p6*(ffmcfmb*hbcm+fmc+2*hbcm)+24*hbcm*p4p6)
4766       b(18)=6*ccc*w5*(ffmcfmb*hbcm-fmc)
4767       b(19)=2*ccc*w5*(-5*ffmcfmb*hbcm2-3*fmc*hbcm+4*p1p3-8*p3p4)
4768       b(20)=w5*ccc*(4*p3p7*(-4*ffmcfmb*hbcm+3*hbcm)+4*(-hbcm*p4p7+3*
4769      . hbcm*p5p7))
4770       b(21)=ccc*(4*w8*(2*hbcm*p1p11-3*hbcm*p3p11-4*hbcm*p4p11)+4*w1*(
4771      . 3*ffmcfmb*hbcm*p3p8-3*fmc*p3p8+2*hbcm*p1p8-3*hbcm*p3p8-4*hbcm*
4772      . p4p8)+4*w5*(-3*ffmcfmb*hbcm*p3p10+3*ffmcfmb*hbcm*p3p8+3*fmc*
4773      . p3p10-3*fmc*p3p8-2*hbcm*p1p10+2*hbcm*p1p8+3*hbcm*p3p10-3*hbcm*
4774      . p3p8+4*hbcm*p4p10-4*hbcm*p4p8))
4775       b(22)=w5*ccc*(4*p3p4*(ffmcfmb*hbcm-fmc-hbcm)+4*p1p3*(ffmcfmb*
4776      . hbcm-fmc-hbcm)+4*(ffmcfmb**2*hbcm3-ffmcfmb*fmc*hbcm2+ffmcfmb*
4777      . hbcm*p2p3-ffmcfmb*hbcm3+hbcm*p1p2-3*hbcm*p1p4+hbcm*p2p4))
4778       b(23)=ccc*(w5*(4*p3p6*(-ffmcfmb*hbcm-fmc-2*hbcm)-24*hbcm*p4p6)+
4779      . w1*(4*p3p6*(-ffmcfmb*hbcm-fmc-2*hbcm)-24*hbcm*p4p6))
4780       b(24)=ccc*(6*w5*(-ffmcfmb*hbcm+fmc)+6*w1*(-ffmcfmb*hbcm+fmc))
4781       b(25)=ccc*(2*w5*(5*ffmcfmb*hbcm2+3*fmc*hbcm-4*p1p3+8*p3p4)+2*w1
4782      . *(5*ffmcfmb*hbcm2+3*fmc*hbcm-4*p1p3+8*p3p4))
4783       b(26)=ccc*(w5*(4*p3p7*(4*ffmcfmb*hbcm-3*hbcm)+4*(hbcm*p4p7-3*
4784      . hbcm*p5p7))+w1*(4*p3p7*(4*ffmcfmb*hbcm-3*hbcm)+4*(hbcm*p4p7-3*
4785      . hbcm*p5p7)))
4786       b(27)=w5*ccc*(4*p4p6*(3*ffmcfmb*hbcm-2*fmb-5*fmc)+4*p3p6*(2*
4787      . ffmcfmb**2*hbcm-2*ffmcfmb*fmb-4*ffmcfmb*fmc+ffmcfmb*hbcm-fmc))
4788       b(28)=w5*ccc*(4*p4p6*(ffmcfmb*hbcm2+2*fmb*hbcm-3*fmc*hbcm-4*
4789      . hbcm2)+4*p3p6*(-ffmcfmb**2*hbcm2+2*ffmcfmb*fmb*hbcm-2*ffmcfmb*
4790      . fmc*hbcm-3*ffmcfmb*hbcm2-fmc*hbcm+fmc2)+16*(ffmcfmb*p2p3*p3p6-
4791      . 2*ffmcfmb*p3p4*p3p6-p1p2*p3p6-p1p3*p4p6+p1p5*p3p6+p2p3*p4p6-2*
4792      . p3p4*p4p6))
4793       b(29)=w5*ccc*(8*(p4p6*p3p7)*(2*fmc+hbcm)+8*(p5p7*p3p6)*(3*
4794      . ffmcfmb*hbcm-fmc)+8*(p6p7*p3p5)*(-ffmcfmb*hbcm+fmc)+8*(p6p7*
4795      . p2p3)*(ffmcfmb*hbcm-fmc)+8*(p6p7*p1p3)*(-ffmcfmb*hbcm+fmc+2*
4796      . hbcm)+4*p6p7*(ffmcfmb**2*hbcm3-2*ffmcfmb*fmc*hbcm2-2*ffmcfmb*
4797      . hbcm3+2*fmc*hbcm2+fmc2*hbcm)+8*(p3p7*p3p6)*(-ffmcfmb**2*hbcm+3
4798      . *ffmcfmb*fmc+ffmcfmb*hbcm-fmc)+8*(-2*hbcm*p1p2*p6p7+2*hbcm*
4799      . p1p5*p6p7+hbcm*p4p6*p4p7+3*hbcm*p4p6*p5p7))
4800       ans5=8*p6p7*(ffmcfmb*hbcm2*p2p10-ffmcfmb*hbcm2*p2p8-ffmcfmb*
4801      . hbcm2*p5p10+ffmcfmb*hbcm2*p5p8-fmc*hbcm*p2p10+fmc*hbcm*p2p8+
4802      . fmc*hbcm*p5p10-fmc*hbcm*p5p8+4*hbcm2*p1p10-4*hbcm2*p1p8)+8*
4803      . p3p7*(ffmcfmb*fmc*hbcm*p6p10-ffmcfmb*fmc*hbcm*p6p8+ffmcfmb*
4804      . hbcm2*p6p10-ffmcfmb*hbcm2*p6p8-fmc*hbcm*p6p10+fmc*hbcm*p6p8-
4805      . fmc2*p6p10+fmc2*p6p8)+8*p3p6*(2*ffmcfmb**2*hbcm2*p7p10-ffmcfmb
4806      . **2*hbcm2*p7p8-2*ffmcfmb*fmb*hbcm*p7p8+2*ffmcfmb*fmc*hbcm*
4807      . p7p10+3*ffmcfmb*hbcm2*p7p8+fmc*hbcm*p7p8-fmc2*p7p8)+32*(-
4808      . ffmcfmb*p2p3*p3p6*p7p8+p1p2*p3p6*p7p8+p1p3*p4p6*p7p8-p1p5*p3p6
4809      . *p7p8-p2p3*p4p6*p7p8)
4810       ans4=32*(p4p6*p3p4)*(p7p10+p7p8)+32*(p3p7*p1p5)*(-p6p10+p6p8)+
4811      . 32*(p5p7*p1p3)*(-p6p10+p6p8)+32*(p3p7*p1p2)*(p6p10-p6p8)+16*(
4812      . p4p6*p3p7)*(2*p1p10-2*p1p8-4*p2p10+4*p2p8+5*p3p10-5*p3p8+4*
4813      . p4p10-4*p4p8+2*p5p10-2*p5p8)+32*(p5p7*p3p6)*(p1p10-p1p8)+32*(
4814      . p4p7*p3p6)*(p1p10-p1p8)+32*(p6p7*p3p5)*(p1p10-p1p8)+32*(p6p7*
4815      . p3p4)*(p1p10-p1p8)+32*(p6p7*p2p3)*(-p1p10+p1p8)+32*(p6p7*p1p3)
4816      . *(-p1p10+p1p8-p2p10+p2p8+p5p10-p5p8)+32*(p3p6*p3p4)*(ffmcfmb*
4817      . p7p10+ffmcfmb*p7p8)+32*(p3p7*p3p6)*(-2*ffmcfmb*p2p10+2*ffmcfmb
4818      . *p2p8+2*ffmcfmb*p3p10-2*ffmcfmb*p3p8+2*ffmcfmb*p4p10-2*ffmcfmb
4819      . *p4p8+ffmcfmb*p5p10-ffmcfmb*p5p8+2*p1p10-2*p1p8)+32*(p3p7*p1p3
4820      . )*(ffmcfmb*p6p10-ffmcfmb*p6p8-2*p6p10+2*p6p8)+8*p5p7*(ffmcfmb*
4821      . hbcm2*p6p10-ffmcfmb*hbcm2*p6p8-fmc*hbcm*p6p10+fmc*hbcm*p6p8)+8
4822      . *p4p6*(2*ffmcfmb*hbcm2*p7p10-3*ffmcfmb*hbcm2*p7p8-2*fmb*hbcm*
4823      . p7p8+2*fmc*hbcm*p7p10+fmc*hbcm*p7p8+4*hbcm2*p7p8)+ans5
4824       ans3=w5*ans4
4825       ans6=(8*p3p4*(p6p12+2*p7p13)+8*p1p3*(2*p6p12-p7p13)+8*p3p7*(-2*
4826      . p1p13-4*p2p13+5*p3p13+4*p4p13+2*p5p13+2*p6p10)+8*p3p6*(-2*
4827      . ffmcfmb*p3p12-3*p1p12+p3p12+p4p12+p5p12-p7p11)+4*(-ffmcfmb*
4828      . hbcm2*p6p12+2*ffmcfmb*hbcm2*p7p13-fmb*hbcm*p6p12+fmb*hbcm*
4829      . p7p13+2*fmc*hbcm*p6p12+fmc*hbcm*p7p13+hbcm2*p6p12+hbcm2*p7p13-
4830      . 2*p2p3*p6p12-4*p3p10*p6p7-4*p3p12*p4p6+2*p3p5*p7p13))
4831       ans2=w8*(16*(p4p6*p3p7)*(-2*p1p11+4*p2p11-5*p3p11-4*p4p11-2*
4832      . p5p11)+32*(p6p7*p1p3)*(p1p11+p2p11-p5p11)+32*(p3p7*p3p6)*(2*
4833      . ffmcfmb*p2p11-2*ffmcfmb*p3p11-2*ffmcfmb*p4p11-ffmcfmb*p5p11-2*
4834      . p1p11)+32*(p3p7*p1p3)*(-ffmcfmb*p6p11+2*p6p11)+8*p5p7*(-
4835      . ffmcfmb*hbcm2*p6p11+fmc*hbcm*p6p11)+16*p4p6*(-ffmcfmb*hbcm2*
4836      . p7p11-fmc*hbcm*p7p11)+8*p6p7*(-ffmcfmb*hbcm2*p2p11+ffmcfmb*
4837      . hbcm2*p5p11+fmc*hbcm*p2p11-fmc*hbcm*p5p11-4*hbcm2*p1p11)+8*
4838      . p3p7*(-ffmcfmb*fmc*hbcm*p6p11-ffmcfmb*hbcm2*p6p11+fmc*hbcm*
4839      . p6p11+fmc2*p6p11)+16*p3p6*(-ffmcfmb**2*hbcm2*p7p11-ffmcfmb*fmc
4840      . *hbcm*p7p11)+32*(-ffmcfmb*p3p4*p3p6*p7p11+p1p11*p2p3*p6p7-
4841      . p1p11*p3p4*p6p7-p1p11*p3p5*p6p7-p1p11*p3p6*p4p7-p1p11*p3p6*
4842      . p5p7-p1p2*p3p7*p6p11+p1p3*p5p7*p6p11+p1p5*p3p7*p6p11-p3p4*p4p6
4843      . *p7p11))+ans3+ans6
4844       ans1=w1*(16*(p4p6*p3p7)*(-2*p1p8+4*p2p8-5*p3p8-4*p4p8-2*p5p8)+
4845      . 32*(p6p7*p1p3)*(p1p8+p2p8-p5p8)+32*(p3p7*p3p6)*(2*ffmcfmb*p2p8
4846      . -2*ffmcfmb*p3p8-2*ffmcfmb*p4p8-ffmcfmb*p5p8-2*p1p8)+32*(p3p7*
4847      . p1p3)*(-ffmcfmb*p6p8+2*p6p8)+8*p5p7*(-ffmcfmb*hbcm2*p6p8+fmc*
4848      . hbcm*p6p8)+8*p4p6*(-3*ffmcfmb*hbcm2*p7p8-2*fmb*hbcm*p7p8+fmc*
4849      . hbcm*p7p8+4*hbcm2*p7p8)+8*p6p7*(-ffmcfmb*hbcm2*p2p8+ffmcfmb*
4850      . hbcm2*p5p8+fmc*hbcm*p2p8-fmc*hbcm*p5p8-4*hbcm2*p1p8)+8*p3p7*(-
4851      . ffmcfmb*fmc*hbcm*p6p8-ffmcfmb*hbcm2*p6p8+fmc*hbcm*p6p8+fmc2*
4852      . p6p8)+8*p3p6*(-ffmcfmb**2*hbcm2*p7p8-2*ffmcfmb*fmb*hbcm*p7p8+3
4853      . *ffmcfmb*hbcm2*p7p8+fmc*hbcm*p7p8-fmc2*p7p8)+32*(-ffmcfmb*p2p3
4854      . *p3p6*p7p8+ffmcfmb*p3p4*p3p6*p7p8+p1p2*p3p6*p7p8-p1p2*p3p7*
4855      . p6p8+p1p3*p4p6*p7p8+p1p3*p5p7*p6p8-p1p5*p3p6*p7p8+p1p5*p3p7*
4856      . p6p8+p1p8*p2p3*p6p7-p1p8*p3p4*p6p7-p1p8*p3p5*p6p7-p1p8*p3p6*
4857      . p4p7-p1p8*p3p6*p5p7-p2p3*p4p6*p7p8+p3p4*p4p6*p7p8))+ans2
4858       ans=ccc*ans1
4859       b(30)=ans
4860       b(31)=ccc*(w5*(4*p4p6*(-3*ffmcfmb*hbcm+2*fmb+5*fmc)+4*p3p6*(-2*
4861      . ffmcfmb**2*hbcm+2*ffmcfmb*fmb+4*ffmcfmb*fmc-ffmcfmb*hbcm+fmc))
4862      . +w1*(4*p4p6*(-3*ffmcfmb*hbcm+2*fmb+5*fmc)+4*p3p6*(-2*ffmcfmb**
4863      . 2*hbcm+2*ffmcfmb*fmb+4*ffmcfmb*fmc-ffmcfmb*hbcm+fmc)))
4864       ans2=w5*(8*p4p7*(ffmcfmb*hbcm*p6p10-ffmcfmb*hbcm*p6p8-fmc*p6p10
4865      . +fmc*p6p8)+16*p4p6*(ffmcfmb*hbcm*p7p10-ffmcfmb*hbcm*p7p8-fmc*
4866      . p7p10+fmc*p7p8)+8*p6p7*(ffmcfmb*hbcm*p1p10-ffmcfmb*hbcm*p1p8-
4867      . ffmcfmb*hbcm*p2p10+ffmcfmb*hbcm*p2p8+ffmcfmb*hbcm*p5p10-
4868      . ffmcfmb*hbcm*p5p8-fmc*p1p10+fmc*p1p8+fmc*p2p10-fmc*p2p8-fmc*
4869      . p5p10+fmc*p5p8)+8*p3p7*(ffmcfmb**2*hbcm*p6p10-ffmcfmb**2*hbcm*
4870      . p6p8-ffmcfmb*fmc*p6p10+ffmcfmb*fmc*p6p8)+16*p3p6*(ffmcfmb**2*
4871      . hbcm*p7p10-ffmcfmb**2*hbcm*p7p8-ffmcfmb*fmc*p7p10+ffmcfmb*fmc*
4872      . p7p8))+4*(ffmcfmb*hbcm*p6p12+2*ffmcfmb*hbcm*p7p13-fmc*p6p12-2*
4873      . fmc*p7p13)
4874       ans1=w1*(8*p4p7*(-ffmcfmb*hbcm*p6p8+fmc*p6p8)+16*p4p6*(-ffmcfmb
4875      . *hbcm*p7p8+fmc*p7p8)+8*p6p7*(-ffmcfmb*hbcm*p1p8+ffmcfmb*hbcm*
4876      . p2p8-ffmcfmb*hbcm*p5p8+fmc*p1p8-fmc*p2p8+fmc*p5p8)+8*p3p7*(-
4877      . ffmcfmb**2*hbcm*p6p8+ffmcfmb*fmc*p6p8)+16*p3p6*(-ffmcfmb**2*
4878      . hbcm*p7p8+ffmcfmb*fmc*p7p8))+w8*(8*p4p7*(-ffmcfmb*hbcm*p6p11+
4879      . fmc*p6p11)+16*p4p6*(-ffmcfmb*hbcm*p7p11+fmc*p7p11)+8*p6p7*(-
4880      . ffmcfmb*hbcm*p1p11+ffmcfmb*hbcm*p2p11-ffmcfmb*hbcm*p5p11+fmc*
4881      . p1p11-fmc*p2p11+fmc*p5p11)+8*p3p7*(-ffmcfmb**2*hbcm*p6p11+
4882      . ffmcfmb*fmc*p6p11)+16*p3p6*(-ffmcfmb**2*hbcm*p7p11+ffmcfmb*fmc
4883      . *p7p11))+ans2
4884       ans=ccc*ans1
4885       b(33)=ans
4886       b(39)=w8*ccc*(4*p6p7*(-3*ffmcfmb*hbcm2-fmc*hbcm+4*hbcm2)+16*(2*
4887      . ffmcfmb*p3p6*p3p7-p2p3*p6p7+p3p5*p6p7+p3p6*p4p7+p3p7*p4p6))
4888       b(40)=w8*ccc*(8*(p4p6*p3p7)*(-2*fmc-hbcm)+8*(p5p7*p3p6)*(-3*
4889      . ffmcfmb*hbcm+fmc)+8*(p6p7*p3p5)*(ffmcfmb*hbcm-fmc)+8*(p6p7*
4890      . p2p3)*(-ffmcfmb*hbcm+fmc)+8*(p6p7*p1p3)*(ffmcfmb*hbcm-fmc-2*
4891      . hbcm)+4*p6p7*(-ffmcfmb**2*hbcm3+2*ffmcfmb*fmc*hbcm2+2*ffmcfmb*
4892      . hbcm3-2*fmc*hbcm2-fmc2*hbcm)+8*(p3p7*p3p6)*(ffmcfmb**2*hbcm-3*
4893      . ffmcfmb*fmc-ffmcfmb*hbcm+fmc)+8*(2*hbcm*p1p2*p6p7-2*hbcm*p1p5*
4894      . p6p7-hbcm*p4p6*p4p7-3*hbcm*p4p6*p5p7))
4895       b(41)=w8*ccc*(4*p6p7*(ffmcfmb**2*hbcm2-fmc2)+8*(-2*ffmcfmb*p3p6
4896      . *p3p7-4*ffmcfmb*p3p6*p5p7+2*p1p2*p6p7-2*p1p3*p6p7-2*p1p5*p6p7-
4897      . 3*p3p7*p4p6-p4p6*p4p7-5*p4p6*p5p7))
4898       b(43)=ccc*(w1*(16*p6p7*(-p2p8+p5p8)+16*(ffmcfmb*p3p6*p7p8+
4899      . ffmcfmb*p3p7*p6p8+p4p6*p7p8+p4p7*p6p8))+w8*(16*p6p7*(-p2p11+
4900      . p5p11)+16*(ffmcfmb*p3p6*p7p11+ffmcfmb*p3p7*p6p11+p4p6*p7p11+
4901      . p4p7*p6p11))+w5*(16*p4p7*(-p6p10+p6p8)+16*p4p6*(-p7p10+p7p8)+
4902      . 16*p6p7*(p2p10-p2p8-p5p10+p5p8)+16*p3p7*(-ffmcfmb*p6p10+
4903      . ffmcfmb*p6p8)+16*p3p6*(-ffmcfmb*p7p10+ffmcfmb*p7p8))+4*(-p6p12
4904      . -3*p7p13))
4905       b(44)=w8*ccc*(4*p4p6*(-ffmcfmb*hbcm2-2*fmb*hbcm+3*fmc*hbcm+4*
4906      . hbcm2)+4*p3p6*(ffmcfmb**2*hbcm2-2*ffmcfmb*fmb*hbcm+2*ffmcfmb*
4907      . fmc*hbcm+3*ffmcfmb*hbcm2+fmc*hbcm-fmc2)+16*(-ffmcfmb*p2p3*p3p6
4908      . +2*ffmcfmb*p3p4*p3p6+p1p2*p3p6+p1p3*p4p6-p1p5*p3p6-p2p3*p4p6+2
4909      . *p3p4*p4p6))
4910       b(45)=w8*ccc*(p3p6*(16*ffmcfmb+8)+32*p4p6)
4911       b(46)=w8*ccc*(4*p4p6*(3*ffmcfmb*hbcm-2*fmb-5*fmc)+4*p3p6*(2*
4912      . ffmcfmb**2*hbcm-2*ffmcfmb*fmb-4*ffmcfmb*fmc+ffmcfmb*hbcm-fmc))
4913       b(49)=w8*ccc*(4*p3p7*(4*ffmcfmb*hbcm-3*hbcm)+4*(hbcm*p4p7-3*
4914      . hbcm*p5p7))
4915       b(50)=w8*ccc*(p3p7*(16*ffmcfmb-12)+4*(p4p7-3*p5p7))
4916       b(51)=w8*ccc*((p3p7*p3p4)*(-8*ffmcfmb+8)+(p3p7*p1p3)*(-8*
4917      . ffmcfmb+8)+4*p4p7*(ffmcfmb*hbcm2+fmc*hbcm-2*hbcm2)+4*p3p7*(-
4918      . ffmcfmb**2*hbcm2+ffmcfmb*fmc*hbcm)+8*(ffmcfmb*hbcm2*p5p7+
4919      . ffmcfmb*p2p3*p3p7-ffmcfmb*p3p5*p3p7+p1p3*p5p7+p2p3*p4p7+p3p4*
4920      . p5p7-p3p5*p4p7))
4921       b(53)=ccc*(4*w1*(2*p1p8-3*p3p8-4*p4p8)+4*w8*(2*p1p11-3*p3p11-4*
4922      . p4p11)+4*w5*(-2*p1p10+2*p1p8+3*p3p10-3*p3p8+4*p4p10-4*p4p8))
4923       b(54)=2*ccc*w8*(5*ffmcfmb*hbcm2+3*fmc*hbcm-4*p1p3+8*p3p4)
4924       b(55)=6*ccc*w8*(ffmcfmb*hbcm-fmc)
4925       b(56)=ccc*(4*w8*(-ffmcfmb*hbcm2+ffmcfmb*p2p3+p1p2-p1p3-3*p1p4+
4926      . p2p4-p3p4)-2)
4927       b(57)=-8*ccc
4928       b(58)=w8*ccc*(4*p3p6*(-ffmcfmb*hbcm-fmc-2*hbcm)-24*hbcm*p4p6)
4929       b(59)=ccc*(w8*(4*p3p4*(-ffmcfmb*hbcm+fmc+hbcm)+4*p1p3*(-ffmcfmb
4930      . *hbcm+fmc+hbcm)+4*(-ffmcfmb**2*hbcm3+ffmcfmb*fmc*hbcm2-ffmcfmb
4931      . *hbcm*p2p3+ffmcfmb*hbcm3-hbcm*p1p2+3*hbcm*p1p4-hbcm*p2p4))+2*
4932      . hbcm)
4933       b(61)=-8*ccc*hbcm
4934       b(62)=8*ccc*(ffmcfmb*hbcm*p3p6+hbcm*p4p6)
4935       b(63)=w5*ccc*(4*p6p7*(3*ffmcfmb*hbcm2+fmc*hbcm-4*hbcm2)+16*(-2*
4936      . ffmcfmb*p3p6*p3p7+p2p3*p6p7-p3p5*p6p7-p3p6*p4p7-p3p7*p4p6))
4937       b(64)=w5*ccc*(4*p6p7*(-ffmcfmb**2*hbcm2+fmc2)+8*(2*ffmcfmb*p3p6
4938      . *p3p7+4*ffmcfmb*p3p6*p5p7-2*p1p2*p6p7+2*p1p3*p6p7+2*p1p5*p6p7+
4939      . 3*p3p7*p4p6+p4p6*p4p7+5*p4p6*p5p7))
4940       b(65)=ccc*(w5*(4*p6p7*(-3*ffmcfmb*hbcm2-fmc*hbcm+4*hbcm2)+16*(2
4941      . *ffmcfmb*p3p6*p3p7-p2p3*p6p7+p3p5*p6p7+p3p6*p4p7+p3p7*p4p6))+
4942      . w1*(4*p6p7*(-3*ffmcfmb*hbcm2-fmc*hbcm+4*hbcm2)+16*(2*ffmcfmb*
4943      . p3p6*p3p7-p2p3*p6p7+p3p5*p6p7+p3p6*p4p7+p3p7*p4p6)))
4944       b(66)=ccc*(w1*(16*p6p7*(-hbcm*p2p8+hbcm*p5p8)+8*p3p7*(ffmcfmb*
4945      . hbcm*p6p8+fmc*p6p8)+16*(ffmcfmb*hbcm*p3p6*p7p8+hbcm*p4p6*p7p8+
4946      . hbcm*p4p7*p6p8))+w8*(16*p6p7*(-hbcm*p2p11+hbcm*p5p11)+8*p3p7*(
4947      . ffmcfmb*hbcm*p6p11+fmc*p6p11)+16*(ffmcfmb*hbcm*p3p6*p7p11+hbcm
4948      . *p4p6*p7p11+hbcm*p4p7*p6p11))+w5*(16*p4p7*(-hbcm*p6p10+hbcm*
4949      . p6p8)+16*p4p6*(-hbcm*p7p10+hbcm*p7p8)+16*p6p7*(hbcm*p2p10-hbcm
4950      . *p2p8-hbcm*p5p10+hbcm*p5p8)+8*p3p7*(-ffmcfmb*hbcm*p6p10+
4951      . ffmcfmb*hbcm*p6p8-fmc*p6p10+fmc*p6p8)+16*p3p6*(-ffmcfmb*hbcm*
4952      . p7p10+ffmcfmb*hbcm*p7p8))+4*(-hbcm*p6p12-3*hbcm*p7p13))
4953       b(67)=w5*ccc*(p3p6*(-16*ffmcfmb-8)-32*p4p6)
4954       b(68)=ccc*(w5*(p3p6*(16*ffmcfmb+8)+32*p4p6)+w1*(p3p6*(16*
4955      . ffmcfmb+8)+32*p4p6))
4956       b(69)=w5*ccc*(p3p7*(-16*ffmcfmb+12)+4*(-p4p7+3*p5p7))
4957       b(70)=w5*ccc*((p3p7*p3p4)*(8*ffmcfmb-8)+(p3p7*p1p3)*(8*ffmcfmb-
4958      . 8)+4*p4p7*(-ffmcfmb*hbcm2-fmc*hbcm+2*hbcm2)+4*p3p7*(ffmcfmb**2
4959      . *hbcm2-ffmcfmb*fmc*hbcm)+8*(-ffmcfmb*hbcm2*p5p7-ffmcfmb*p2p3*
4960      . p3p7+ffmcfmb*p3p5*p3p7-p1p3*p5p7-p2p3*p4p7-p3p4*p5p7+p3p5*p4p7
4961      . ))
4962       b(71)=ccc*(w5*(p3p7*(16*ffmcfmb-12)+4*(p4p7-3*p5p7))+w1*(p3p7*(
4963      . 16*ffmcfmb-12)+4*(p4p7-3*p5p7)))
4964       b(72)=4*ccc*w5*(ffmcfmb*hbcm2-ffmcfmb*p2p3-p1p2+p1p3+3*p1p4-
4965      . p2p4+p3p4)
4966       b(73)=4*ccc*w8*p6p7*(ffmcfmb*hbcm-fmc)
4967       b(74)=ccc*(4*w5*p6p7*(ffmcfmb*hbcm-fmc)+4*w1*p6p7*(ffmcfmb*hbcm
4968      . -fmc))
4969       b(75)=ccc*(4*w1*(ffmcfmb*hbcm*p1p8+ffmcfmb*hbcm*p4p8-fmc*p1p8-
4970      . fmc*p4p8)+4*w8*(ffmcfmb*hbcm*p1p11+ffmcfmb*hbcm*p4p11-fmc*
4971      . p1p11-fmc*p4p11)+4*w5*(-ffmcfmb*hbcm*p1p10+ffmcfmb*hbcm*p1p8-
4972      . ffmcfmb*hbcm*p4p10+ffmcfmb*hbcm*p4p8+fmc*p1p10-fmc*p1p8+fmc*
4973      . p4p10-fmc*p4p8))
4974       ans=ccc*(w1*(8*p3p5*(p1p8+p4p8)+8*p3p4*(-p1p8+p3p8+p4p8)+8*p2p3
4975      . *(-p1p8-p4p8)+8*p1p3*(-p1p8+p3p8+p4p8)+4*(-3*ffmcfmb*hbcm2*
4976      . p1p8+2*ffmcfmb*hbcm2*p3p8+ffmcfmb*hbcm2*p4p8-fmc*hbcm*p1p8-fmc
4977      . *hbcm*p4p8+2*hbcm2*p1p8+2*hbcm2*p4p8))+w8*(8*p3p5*(p1p11+p4p11
4978      . )+8*p3p4*(-p1p11+p3p11+p4p11)+8*p2p3*(-p1p11-p4p11)+8*p1p3*(-
4979      . p1p11+p3p11+p4p11)+4*(-3*ffmcfmb*hbcm2*p1p11+2*ffmcfmb*hbcm2*
4980      . p3p11+ffmcfmb*hbcm2*p4p11-fmc*hbcm*p1p11-fmc*hbcm*p4p11+2*
4981      . hbcm2*p1p11+2*hbcm2*p4p11))+w5*(8*p3p5*(-p1p10+p1p8-p4p10+p4p8
4982      . )+8*p3p4*(p1p10-p1p8-p3p10+p3p8-p4p10+p4p8)+8*p2p3*(p1p10-p1p8
4983      . +p4p10-p4p8)+8*p1p3*(p1p10-p1p8-p3p10+p3p8-p4p10+p4p8)+4*(3*
4984      . ffmcfmb*hbcm2*p1p10-3*ffmcfmb*hbcm2*p1p8-2*ffmcfmb*hbcm2*p3p10
4985      . +2*ffmcfmb*hbcm2*p3p8-ffmcfmb*hbcm2*p4p10+ffmcfmb*hbcm2*p4p8+
4986      . fmc*hbcm*p1p10-fmc*hbcm*p1p8+fmc*hbcm*p4p10-fmc*hbcm*p4p8-2*
4987      . hbcm2*p1p10+2*hbcm2*p1p8-2*hbcm2*p4p10+2*hbcm2*p4p8)))
4988       b(76)=ans
4989       b(77)=ccc*(w1*(16*p3p6*(p2p8-p5p8)+4*(-3*ffmcfmb*hbcm2*p6p8-fmc
4990      . *hbcm*p6p8+4*hbcm2*p6p8-4*p2p3*p6p8+4*p3p5*p6p8))+w8*(16*p3p6*
4991      . (p2p11-p5p11)+4*(-3*ffmcfmb*hbcm2*p6p11-fmc*hbcm*p6p11+4*hbcm2
4992      . *p6p11-4*p2p3*p6p11+4*p3p5*p6p11))+w5*(16*p3p5*(-p6p10+p6p8)+
4993      . 16*p2p3*(p6p10-p6p8)+16*p3p6*(-p2p10+p2p8+p5p10-p5p8)+4*(3*
4994      . ffmcfmb*hbcm2*p6p10-3*ffmcfmb*hbcm2*p6p8+fmc*hbcm*p6p10-fmc*
4995      . hbcm*p6p8-4*hbcm2*p6p10+4*hbcm2*p6p8))+4*p3p13)
4996       b(78)=ccc*(4*w1*(ffmcfmb*hbcm*p6p8-fmc*p6p8)+4*w8*(ffmcfmb*hbcm
4997      . *p6p11-fmc*p6p11)+4*w5*(-ffmcfmb*hbcm*p6p10+ffmcfmb*hbcm*p6p8+
4998      . fmc*p6p10-fmc*p6p8))
4999       b(81)=4*ccc*w5*p6p7*(-ffmcfmb*hbcm+fmc)
5000       b(82)=-8*ccc*p3p7
5001       b(83)=ccc*(4*p3p7*(2*fmc+hbcm)+4*(hbcm*p4p7+3*hbcm*p5p7))
5002       b(84)=4*ccc*(3*p3p7+p4p7+5*p5p7)
5003       b(85)=4*ccc*(fmb*hbcm-fmc*hbcm-3*hbcm2+p1p3+3*p2p3-5*p3p4-p3p5)
5004       b(86)=-8*ccc
5005       b(87)=4*ccc*(-ffmcfmb*hbcm+fmb+2*fmc)
5006       b(88)=w5*ccc*(4*p4p7*(ffmcfmb*hbcm-fmc)+4*p3p7*(ffmcfmb**2*hbcm
5007      . -ffmcfmb*fmc))
5008       b(89)=-4*ccc*hbcm
5009       b(90)=w8*ccc*(4*p4p7*(-ffmcfmb*hbcm+fmc)+4*p3p7*(-ffmcfmb**2*
5010      . hbcm+ffmcfmb*fmc))
5011       b(91)=ccc*(w5*(4*p4p7*(-ffmcfmb*hbcm+fmc)+4*p3p7*(-ffmcfmb**2*
5012      . hbcm+ffmcfmb*fmc))+w1*(4*p4p7*(-ffmcfmb*hbcm+fmc)+4*p3p7*(-
5013      . ffmcfmb**2*hbcm+ffmcfmb*fmc)))
5014       b(92)=2*ccc*(ffmcfmb*hbcm2-fmc*hbcm+2*hbcm2+2*p1p3-2*p2p3+2*
5015      . p3p4+2*p3p5)
5016       b(93)=8*ccc*p3p6
5017       b(94)=2*ccc*(-ffmcfmb*hbcm+fmc)
5018       do 200 n=1,94
5019          c(n,1)=c(n,1)-0.1818181818181818d0*b(n)
5020          c(n,2)=c(n,2)-0.1512818716977898d0*b(n)
5021          c(n,3)=c(n,3)-0.1869893980016914d0*b(n)
5022 200   continue
5023       return
5024       end
5025
5026       subroutine amp8_3p2(cc)
5027       implicit double precision(a-h,o-z)
5028       implicit integer (i-n)
5029       dimension b(89)
5030 #include "inclcon.h"
5031 #include "inclppp.h"
5032 #include "inclamp.h"
5033       do 100 n=1,89
5034          b(n)=0.0d0
5035 100   continue
5036       ccc=cc/((-2*p2p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*
5037      . p3p5+fmb2+hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3-fmc2)
5038      . )
5039       b(2)=w2*ccc*(8*p6p7*(ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm-fmb*fmc+
5040      . fmc2)+16*(p1p3*p6p7+2*p1p5*p6p7))
5041       b(3)=ccc*(8*w2*(ffmcfmb*fmb*hbcm*p7p9-ffmcfmb*fmc*hbcm*p7p9-fmb
5042      . *fmc*p7p9+fmc2*p7p9+4*p1p2*p7p9-2*p1p3*p7p9-4*p1p4*p7p9)+8*w12
5043      . *(ffmcfmb*fmb*hbcm*p7p10-ffmcfmb*fmc*hbcm*p7p10-fmb*fmc*p7p10+
5044      . fmc2*p7p10+4*p1p2*p7p10-2*p1p3*p7p10-4*p1p4*p7p10))
5045       b(5)=w2*ccc*(8*p3p7*(-ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+fmb*fmc
5046      . -fmc2)+16*(-2*p1p2*p3p7-p1p3*p4p7-p1p3*p5p7+2*p1p4*p3p7))
5047       b(6)=ccc*(w2*(16*p3p7*(-ffmcfmb*hbcm*p5p9-fmb*p1p9-fmc*p1p9+fmc
5048      . *p5p9)+16*p3p4*(-ffmcfmb*hbcm*p7p9+fmc*p7p9)+16*p2p3*(ffmcfmb*
5049      . hbcm*p7p9-fmc*p7p9)+16*p1p3*(ffmcfmb*hbcm*p7p9+fmb*p7p9)+8*(-
5050      . ffmcfmb*hbcm3*p7p9+fmc*hbcm2*p7p9-2*hbcm*p1p2*p7p9+2*hbcm*p1p4
5051      . *p7p9-2*hbcm*p1p9*p4p7-2*hbcm*p1p9*p5p7))+w12*(16*p3p7*(-
5052      . ffmcfmb*hbcm*p5p10-fmb*p1p10-fmc*p1p10+fmc*p5p10)+16*p3p4*(-
5053      . ffmcfmb*hbcm*p7p10+fmc*p7p10)+16*p2p3*(ffmcfmb*hbcm*p7p10-fmc*
5054      . p7p10)+16*p1p3*(ffmcfmb*hbcm*p7p10+fmb*p7p10)+8*(-ffmcfmb*
5055      . hbcm3*p7p10+fmc*hbcm2*p7p10-2*hbcm*p1p10*p4p7-2*hbcm*p1p10*
5056      . p5p7-2*hbcm*p1p2*p7p10+2*hbcm*p1p4*p7p10)))
5057       b(7)=ccc*(8*w2*(ffmcfmb*fmb*hbcm*p6p9-ffmcfmb*fmc*hbcm*p6p9-
5058      . ffmcfmb*hbcm2*p6p9-fmb*fmc*p6p9+fmc*hbcm*p6p9+fmc2*p6p9+2*p1p3
5059      . *p6p9+2*p1p5*p6p9-2*p1p9*p3p6-2*p1p9*p4p6)+8*w12*(ffmcfmb*fmb*
5060      . hbcm*p6p10-ffmcfmb*fmc*hbcm*p6p10-ffmcfmb*hbcm2*p6p10-fmb*fmc*
5061      . p6p10+fmc*hbcm*p6p10+fmc2*p6p10-2*p1p10*p3p6-2*p1p10*p4p6+2*
5062      . p1p3*p6p10+2*p1p5*p6p10)+8*(-p1p13-p2p13+2*p3p13+p4p13+p5p13))
5063       b(9)=w2*ccc*(8*p3p6*(fmb*fmc-fmc2)+16*(p1p3*p4p6-p1p5*p3p6))
5064       b(10)=ccc*(w2*(16*p3p6*(fmc*p1p9+fmc*p2p9-fmc*p3p9-fmc*p4p9)+16
5065      . *p3p5*(ffmcfmb*hbcm*p6p9-fmc*p6p9)+16*p1p3*(-ffmcfmb*hbcm*p6p9
5066      . -fmb*p6p9)+8*(ffmcfmb*fmb*hbcm2*p6p9+ffmcfmb*fmc*hbcm2*p6p9+
5067      . ffmcfmb*hbcm3*p6p9-fmb*fmc*hbcm*p6p9-fmc*hbcm2*p6p9-fmc2*hbcm*
5068      . p6p9-2*hbcm*p1p5*p6p9-2*hbcm*p1p9*p4p6))+w12*(16*p3p6*(fmc*
5069      . p1p10+fmc*p2p10-fmc*p4p10)+16*p3p5*(ffmcfmb*hbcm*p6p10-fmc*
5070      . p6p10)+16*p4p6*(-ffmcfmb*hbcm*p3p10+fmc*p3p10-hbcm*p1p10)+16*
5071      . p1p3*(-ffmcfmb*hbcm*p6p10-fmb*p6p10)+8*(ffmcfmb*fmb*hbcm2*
5072      . p6p10+ffmcfmb*fmc*hbcm2*p6p10+ffmcfmb*hbcm3*p6p10-fmb*fmc*hbcm
5073      . *p6p10-fmc*hbcm2*p6p10-fmc2*hbcm*p6p10-2*hbcm*p1p5*p6p10))+8*(
5074      . -fmb*p3p13-fmc*p3p13+hbcm*p2p13-hbcm*p3p13-hbcm*p4p13))
5075       b(12)=w2*ccc*(16*(p6p7*p1p3)*(-fmb-fmc+hbcm)+8*p6p7*(-ffmcfmb*
5076      . hbcm3+fmc*hbcm2)+16*(p4p6*p3p7)*(-ffmcfmb*hbcm+fmc)+16*(p6p7*
5077      . p3p5)*(-ffmcfmb*hbcm+fmc)+16*(-fmc*p3p6*p4p7-fmc*p3p6*p5p7+
5078      . hbcm*p1p5*p6p7))
5079       b(14)=4*ccc*w2*(-ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+fmb*fmc-fmc2
5080      . -4*p1p2+2*p1p3+4*p1p4)
5081       b(16)=w2*ccc*(8*p3p4*(ffmcfmb*hbcm-fmc)+8*p2p3*(-ffmcfmb*hbcm+
5082      . fmc)+8*p1p3*(-ffmcfmb*hbcm-fmb)+4*(ffmcfmb*hbcm3-fmc*hbcm2+2*
5083      . hbcm*p1p2-2*hbcm*p1p4))
5084       b(17)=8*ccc*w12*(fmb*p3p6+hbcm*p4p6)
5085       b(18)=4*ccc*w12*(-ffmcfmb*hbcm-2*fmb-fmc+hbcm)
5086       b(19)=4*ccc*w12*(fmb*hbcm-fmc*hbcm-2*hbcm2+2*p1p3+4*p2p3-4*p3p4
5087      . )
5088       b(20)=w12*ccc*(8*p3p7*(ffmcfmb*hbcm+2*fmb+fmc)+8*(hbcm*p4p7+
5089      . hbcm*p5p7))
5090       b(21)=ccc*(8*w2*(-hbcm*p2p9+hbcm*p3p9+hbcm*p4p9)+8*w12*(ffmcfmb
5091      . *hbcm*p3p10+2*fmb*p3p10+fmc*p3p10-hbcm*p2p10+hbcm*p4p10))
5092       b(22)=w12*ccc*(8*p3p4*(ffmcfmb*hbcm-fmc)+8*p2p3*(-ffmcfmb*hbcm+
5093      . fmc)+8*p1p3*(-ffmcfmb*hbcm-fmb)+4*(ffmcfmb*hbcm3-fmc*hbcm2+2*
5094      . hbcm*p1p2-2*hbcm*p1p4))
5095       b(27)=w12*ccc*(8*p4p6*(ffmcfmb*hbcm-fmc)-8*fmc*p3p6)
5096       b(28)=w12*ccc*(8*p3p6*(-fmb*fmc+fmc2)+16*(-p1p3*p4p6+p1p5*p3p6)
5097      . )
5098       b(29)=w12*ccc*(8*p6p7*(-ffmcfmb*hbcm3+fmc*hbcm2)+16*(p4p6*p3p7)
5099      . *(-ffmcfmb*hbcm+fmc)+16*(p6p7*p3p5)*(-ffmcfmb*hbcm+fmc)+16*(
5100      . p6p7*p1p3)*(ffmcfmb*hbcm+fmb)+16*(-fmc*p3p6*p4p7-fmc*p3p6*p5p7
5101      . +hbcm*p1p5*p6p7))
5102       ans=ccc*(w2*(32*(p6p7*p1p3)*(-2*p1p9+p5p9)+16*p6p7*(fmb*hbcm*
5103      . p1p9-fmc*hbcm*p1p9+3*hbcm2*p1p9)+16*p5p7*(ffmcfmb*hbcm2*p6p9-
5104      . fmc*hbcm*p6p9)+16*p4p7*(ffmcfmb*hbcm2*p6p9-fmc*hbcm*p6p9)+16*
5105      . p3p7*(ffmcfmb*hbcm2*p6p9-fmc*hbcm*p6p9)+32*(-p1p3*p3p7*p6p9-
5106      . p1p3*p4p7*p6p9-p1p3*p5p7*p6p9-p1p9*p2p3*p6p7+p1p9*p3p4*p6p7+2*
5107      . p1p9*p3p5*p6p7+2*p1p9*p3p6*p3p7+p1p9*p3p6*p4p7+p1p9*p3p6*p5p7+
5108      . 2*p1p9*p3p7*p4p6))+w12*(32*(p6p7*p1p3)*(-2*p1p10+p5p10)+16*
5109      . p6p7*(fmb*hbcm*p1p10-fmc*hbcm*p1p10+3*hbcm2*p1p10)+16*p3p6*(
5110      . fmb*fmc*p7p10-fmc2*p7p10)+16*p5p7*(ffmcfmb*hbcm2*p6p10-fmc*
5111      . hbcm*p6p10)+16*p4p7*(ffmcfmb*hbcm2*p6p10-fmc*hbcm*p6p10)+16*
5112      . p3p7*(ffmcfmb*hbcm2*p6p10-fmc*hbcm*p6p10)+32*(-p1p10*p2p3*p6p7
5113      . +p1p10*p3p4*p6p7+2*p1p10*p3p5*p6p7+2*p1p10*p3p6*p3p7+p1p10*
5114      . p3p6*p4p7+p1p10*p3p6*p5p7+2*p1p10*p3p7*p4p6-p1p3*p3p7*p6p10+
5115      . p1p3*p4p6*p7p10-p1p3*p4p7*p6p10-p1p3*p5p7*p6p10-p1p5*p3p6*
5116      . p7p10))+(16*p3p7*(p1p13+p2p13-p3p13-p4p13-p5p13)+8*(fmb*hbcm*
5117      . p7p13-fmc*hbcm*p7p13-2*hbcm2*p7p13+2*p1p3*p7p13+2*p2p3*p7p13-2
5118      . *p3p4*p7p13-2*p3p5*p7p13)))
5119       b(30)=ans
5120       b(32)=w2*ccc*(8*p4p6*(-ffmcfmb*hbcm+fmc)+8*fmc*p3p6)
5121       b(33)=ccc*(w2*(16*p6p7*(ffmcfmb*hbcm*p5p9+fmb*p1p9+fmc*p1p9-fmc
5122      . *p5p9-hbcm*p1p9)+16*p4p6*(ffmcfmb*hbcm*p7p9-fmc*p7p9)-16*fmc*
5123      . p3p6*p7p9)+w12*(16*p4p6*(ffmcfmb*hbcm*p7p10-fmc*p7p10)+16*p6p7
5124      . *(-ffmcfmb*hbcm*p1p10+ffmcfmb*hbcm*p5p10-fmb*p1p10-fmc*p5p10)-
5125      . 16*fmc*p3p6*p7p10)-8*hbcm*p7p13)
5126       b(34)=4*ccc*w2*(ffmcfmb*hbcm+2*fmb+fmc-hbcm)
5127       b(35)=ccc*(8*w2*(-ffmcfmb*hbcm*p7p9-2*fmb*p7p9-fmc*p7p9+hbcm*
5128      . p7p9)+8*w12*(-ffmcfmb*hbcm*p7p10-2*fmb*p7p10-fmc*p7p10+hbcm*
5129      . p7p10))
5130       b(36)=4*ccc*w2*(fmb*hbcm-fmc*hbcm-2*hbcm2+2*p1p3+4*p2p3-4*p3p4)
5131       b(37)=w2*ccc*(8*p3p7*(ffmcfmb*hbcm+2*fmb+fmc)+8*(hbcm*p4p7+hbcm
5132      . *p5p7))
5133       b(38)=ccc*(w2*(16*p3p7*(-p1p9+2*p5p9)+8*(-fmb*hbcm*p7p9+fmc*
5134      . hbcm*p7p9+2*hbcm2*p7p9-2*p1p3*p7p9-4*p2p3*p7p9+4*p3p4*p7p9))+
5135      . w12*(16*p3p7*(-p1p10+2*p5p10)+8*(-fmb*hbcm*p7p10+fmc*hbcm*
5136      . p7p10+2*hbcm2*p7p10-2*p1p3*p7p10-4*p2p3*p7p10+4*p3p4*p7p10)))
5137       b(42)=w2*ccc*(8*p6p7*(-fmb*hbcm+fmc*hbcm-2*hbcm2)+16*(p1p3*p6p7
5138      . -2*p3p5*p6p7-p3p6*p3p7-2*p3p7*p4p6))
5139       b(43)=ccc*(w2*(16*p6p7*(p1p9-2*p5p9)+16*(-p3p6*p7p9-2*p4p6*p7p9
5140      . ))+w12*(16*p6p7*(p1p10-2*p5p10)+16*(-p3p6*p7p10-2*p4p6*p7p10))
5141      . )
5142       b(47)=8*ccc*w2*(-p3p6-2*p4p6)
5143       b(52)=16*ccc*w2*(p3p7+p4p7+p5p7)
5144       b(53)=ccc*(8*w2*(-p1p9-2*p2p9+2*p3p9+2*p4p9)+8*w12*(-p1p10-2*
5145      . p2p10+2*p3p10+2*p4p10))
5146       b(60)=8*ccc*w2*(fmb*p3p6+hbcm*p4p6)
5147       b(63)=w12*ccc*(8*p6p7*(-fmb*hbcm+fmc*hbcm-2*hbcm2)+16*(p1p3*
5148      . p6p7-2*p3p5*p6p7-p3p6*p3p7-2*p3p7*p4p6))
5149       b(64)=w12*ccc*(8*p6p7*(ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm-fmb*
5150      . fmc+fmc2)+16*(p1p3*p6p7+2*p1p5*p6p7))
5151       b(66)=ccc*(w2*(16*p6p7*(hbcm*p1p9-hbcm*p5p9)+16*(-fmb*p3p6*p7p9
5152      . -hbcm*p4p6*p7p9))+w12*(16*p6p7*(hbcm*p1p10-hbcm*p5p10)+16*(-
5153      . fmb*p3p6*p7p10-hbcm*p4p6*p7p10))+8*hbcm*p7p13)
5154       b(67)=8*ccc*w12*(-p3p6-2*p4p6)
5155       b(69)=16*ccc*w12*(p3p7+p4p7+p5p7)
5156       b(70)=w12*ccc*(8*p3p7*(-ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+fmb*
5157      . fmc-fmc2)+16*(-2*p1p2*p3p7-p1p3*p4p7-p1p3*p5p7+2*p1p4*p3p7))
5158       b(72)=4*ccc*w12*(-ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+fmb*fmc-
5159      . fmc2-4*p1p2+2*p1p3+4*p1p4)
5160       b(75)=ccc*(8*w2*(ffmcfmb*hbcm*p1p9+ffmcfmb*hbcm*p2p9-ffmcfmb*
5161      . hbcm*p3p9-ffmcfmb*hbcm*p4p9+fmb*p1p9-fmc*p2p9+fmc*p3p9+fmc*
5162      . p4p9-hbcm*p1p9)+8*w12*(ffmcfmb*hbcm*p1p10+ffmcfmb*hbcm*p2p10-
5163      . ffmcfmb*hbcm*p3p10-ffmcfmb*hbcm*p4p10+fmb*p1p10-fmc*p2p10+fmc*
5164      . p3p10+fmc*p4p10-hbcm*p1p10))
5165       b(76)=ccc*(w2*(16*p1p3*(p1p9+p2p9-p3p9-p4p9)+8*(-fmb*hbcm*p1p9+
5166      . fmc*hbcm*p1p9-hbcm2*p1p9-2*p1p9*p3p5))+w12*(16*p1p3*(p1p10+
5167      . p2p10-p3p10-p4p10)+8*(-fmb*hbcm*p1p10+fmc*hbcm*p1p10-hbcm2*
5168      . p1p10-2*p1p10*p3p5)))
5169       b(77)=ccc*(8*w2*(ffmcfmb*hbcm2*p6p9-fmb*hbcm*p6p9-hbcm2*p6p9-2*
5170      . p3p5*p6p9+2*p3p6*p5p9)+8*w12*(ffmcfmb*hbcm2*p6p10-fmb*hbcm*
5171      . p6p10-hbcm2*p6p10-2*p3p5*p6p10+2*p3p6*p5p10)-8*p3p13)
5172       b(78)=ccc*(8*w2*(ffmcfmb*hbcm*p6p9+fmb*p6p9-hbcm*p6p9)+8*w12*(
5173      . ffmcfmb*hbcm*p6p10+fmb*p6p10-hbcm*p6p10))
5174       b(79)=8*ccc*w2*p6p7*(ffmcfmb*hbcm+2*fmb+fmc-hbcm)
5175       b(80)=w2*ccc*(8*p5p7*(-ffmcfmb*hbcm+fmc)+8*p4p7*(-ffmcfmb*hbcm+
5176      . fmc)+8*p3p7*(-ffmcfmb*hbcm+fmc))
5177       b(81)=8*ccc*w12*p6p7*(ffmcfmb*hbcm+2*fmb+fmc-hbcm)
5178       b(83)=8*ccc*(-hbcm*p4p7-hbcm*p5p7)
5179       b(84)=8*ccc*(-p3p7-p4p7-p5p7)
5180       b(85)=4*ccc*(-fmb*hbcm+fmc*hbcm+2*hbcm2-2*p1p3-2*p2p3+2*p3p4+2*
5181      . p3p5)
5182       b(87)=4*ccc*hbcm
5183       b(88)=w12*ccc*(8*p5p7*(-ffmcfmb*hbcm+fmc)+8*p4p7*(-ffmcfmb*hbcm
5184      . +fmc)+8*p3p7*(-ffmcfmb*hbcm+fmc))
5185       b(89)=4*ccc*hbcm
5186       do 200 n=1,89
5187          c(n,1)=c(n,1)+0.09090909090909091d0*b(n)
5188          c(n,2)=c(n,2)-0.01680909685530997d0*b(n)
5189          c(n,3)=c(n,3)-0.02077659977796572d0*b(n)
5190 200   continue
5191       return
5192       end
5193
5194       subroutine amp7_3p2(cc)
5195       implicit double precision(a-h,o-z)
5196       implicit integer (i-n)
5197       dimension b(80)
5198 #include "inclcon.h"
5199 #include "inclppp.h"
5200 #include "inclamp.h"
5201       do 100 n=1,80
5202          b(n)=0.0d0
5203 100   continue
5204       ccc=cc/((-2*p2p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*
5205      . p3p5+fmb2+hbcm2+2*p3p5)*(fmb2-fmc2+hbcm2+2*p3p5))
5206       b(5)=w2*ccc*(8*p5p7*(-fmb*hbcm+fmc*hbcm)+8*p4p7*(-fmb*hbcm+fmc*
5207      . hbcm)+8*p3p7*(-fmb*hbcm+fmc*hbcm))
5208       b(6)=8*ccc*w2*(fmb2*hbcm*p7p9-fmc2*hbcm*p7p9+2*hbcm*p1p3*p7p9+2
5209      . *hbcm*p2p3*p7p9-2*hbcm*p3p4*p7p9-2*hbcm*p3p7*p5p9-2*hbcm*p4p7*
5210      . p5p9-2*hbcm*p5p7*p5p9-hbcm3*p7p9)
5211       b(9)=8*ccc*w2*p4p6*(-fmb*hbcm+fmc*hbcm)
5212       b(10)=-16*ccc*hbcm*p4p6*p5p9*w2
5213       b(12)=w2*ccc*(8*p6p7*(-fmb2*hbcm+fmc2*hbcm-hbcm3)+16*(-hbcm*
5214      . p3p5*p6p7-hbcm*p3p7*p4p6))
5215       b(16)=4*ccc*w2*(-fmb2*hbcm+fmc2*hbcm-2*hbcm*p1p3-2*hbcm*p2p3+2*
5216      . hbcm*p3p4+hbcm3)
5217       b(21)=8*ccc*hbcm*p5p9*w2
5218       b(32)=-8*ccc*hbcm*p4p6*w2
5219       b(33)=16*ccc*hbcm*p4p6*p7p9*w2
5220       b(34)=4*ccc*hbcm*w2
5221       b(35)=-8*ccc*hbcm*p7p9*w2
5222       b(36)=4*ccc*w2*(-fmb*hbcm+fmc*hbcm)
5223       b(37)=8*ccc*hbcm*p3p7*w2
5224       b(38)=8*ccc*w2*(fmb*hbcm*p7p9-fmc*hbcm*p7p9)
5225       b(42)=8*ccc*w2*p6p7*(fmb*hbcm-fmc*hbcm)
5226       b(66)=16*ccc*hbcm*p5p9*p6p7*w2
5227       b(75)=8*ccc*w2*(hbcm*p1p9+hbcm*p2p9-hbcm*p3p9-hbcm*p4p9-hbcm*
5228      . p5p9)
5229       b(76)=8*ccc*w2*(fmb*hbcm*p1p9+fmb*hbcm*p2p9-fmb*hbcm*p3p9-fmb*
5230      . hbcm*p4p9-fmb*hbcm*p5p9-fmc*hbcm*p1p9-fmc*hbcm*p2p9+fmc*hbcm*
5231      . p3p9+fmc*hbcm*p4p9+fmc*hbcm*p5p9)
5232       b(79)=8*ccc*hbcm*p6p7*w2
5233       b(80)=8*ccc*w2*(-hbcm*p3p7-hbcm*p4p7-hbcm*p5p7)
5234       do 200 n=1,80
5235          c(n,1)=c(n,1)-0.7272727272727273d0*b(n)
5236          c(n,2)=c(n,2)+0.1344727748424798d0*b(n)
5237          c(n,3)=c(n,3)+0.1662127982237257d0*b(n)
5238 200   continue
5239       return
5240       end
5241
5242       subroutine amp6_3p2(cc)
5243       implicit double precision(a-h,o-z)
5244       implicit integer (i-n)
5245       dimension b(78)
5246 #include "inclcon.h"
5247 #include "inclppp.h"
5248 #include "inclamp.h"
5249       do 100 n=1,78
5250          b(n)=0.0d0
5251 100   continue
5252       ccc=cc/((4*p1p5*p2p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p2p3+2*
5253      . ffmcfmb*p3p4+fmc2-2*p2p4))
5254       b(6)=w11*ccc*(16*p1p4*(-hbcm*p7p11+hbcm*p7p8)+16*p1p2*(hbcm*
5255      . p7p11-hbcm*p7p8)+16*p5p7*(hbcm*p1p11-hbcm*p1p8)+16*p4p7*(hbcm*
5256      . p1p11-hbcm*p1p8))
5257       b(8)=8*ccc*w11*p5p6*(-fmb*hbcm+fmc*hbcm)
5258       b(10)=w11*ccc*(16*p1p5*(hbcm*p6p11-hbcm*p6p8)+16*p5p6*(hbcm*
5259      . p1p11-hbcm*p1p8+hbcm*p2p11-hbcm*p2p8-hbcm*p3p11-hbcm*p4p11+
5260      . hbcm*p4p8)+16*p4p6*(hbcm*p1p11-hbcm*p1p8))
5261       b(11)=16*ccc*w11*(hbcm*p1p5*p6p7+hbcm*p4p7*p5p6+hbcm*p5p6*p5p7)
5262       b(15)=8*ccc*w11*(hbcm*p1p2-hbcm*p1p4)
5263       b(21)=8*ccc*w11*(hbcm*p2p11-hbcm*p2p8-hbcm*p3p11-hbcm*p4p11+
5264      . hbcm*p4p8)
5265       b(23)=8*ccc*w11*(hbcm*p4p6+hbcm*p5p6)
5266       b(24)=4*ccc*hbcm*w11
5267       b(25)=4*ccc*w11*(fmb*hbcm-fmc*hbcm)
5268       b(26)=8*ccc*w11*(hbcm*p4p7+hbcm*p5p7)
5269       b(30)=w11*ccc*(16*p5p6*(fmb*hbcm*p7p11-fmc*hbcm*p7p11)+16*p6p7*
5270      . (-fmb*hbcm*p1p11+fmb*hbcm*p1p8+fmc*hbcm*p1p11-fmc*hbcm*p1p8))
5271       b(31)=8*ccc*hbcm*p5p6*w11
5272       b(33)=16*ccc*w11*p5p6*(-hbcm*p7p11+hbcm*p7p8)
5273       b(35)=8*ccc*w11*(-hbcm*p7p11+hbcm*p7p8)
5274       b(38)=8*ccc*w11*(fmb*hbcm*p7p11-fmb*hbcm*p7p8-fmc*hbcm*p7p11+
5275      . fmc*hbcm*p7p8)
5276       b(39)=8*ccc*w11*p6p7*(fmb*hbcm-fmc*hbcm)
5277       b(40)=16*ccc*w11*(-hbcm*p1p5*p6p7-hbcm*p4p7*p5p6-hbcm*p5p6*p5p7
5278      . )
5279       b(44)=8*ccc*w11*p5p6*(-fmb*hbcm+fmc*hbcm)
5280       b(46)=8*ccc*hbcm*p5p6*w11
5281       b(49)=8*ccc*w11*(-hbcm*p4p7-hbcm*p5p7)
5282       b(54)=4*ccc*w11*(-fmb*hbcm+fmc*hbcm)
5283       b(55)=4*ccc*hbcm*w11
5284       b(58)=8*ccc*w11*(-hbcm*p4p6-hbcm*p5p6)
5285       b(59)=8*ccc*w11*(-hbcm*p1p2+hbcm*p1p4)
5286       b(65)=8*ccc*w11*p6p7*(-fmb*hbcm+fmc*hbcm)
5287       b(66)=w11*ccc*(16*p5p6*(hbcm*p7p11-hbcm*p7p8)+16*p4p6*(hbcm*
5288      . p7p11-hbcm*p7p8)+16*p6p7*(-hbcm*p1p11+hbcm*p1p8+hbcm*p5p11-
5289      . hbcm*p5p8))
5290       b(73)=8*ccc*hbcm*p6p7*w11
5291       b(74)=-8*ccc*hbcm*p6p7*w11
5292       b(75)=8*ccc*w11*(hbcm*p1p11-hbcm*p1p8)
5293       b(76)=8*ccc*w11*(fmb*hbcm*p1p11-fmb*hbcm*p1p8-fmc*hbcm*p1p11+
5294      . fmc*hbcm*p1p8)
5295       b(77)=8*ccc*w11*(fmb*hbcm*p6p11-fmb*hbcm*p6p8-fmc*hbcm*p6p11+
5296      . fmc*hbcm*p6p8)
5297       b(78)=8*ccc*w11*(hbcm*p6p11-hbcm*p6p8)
5298       do 200 n=1,78
5299          c(n,1)=c(n,1)-0.7272727272727273d0*b(n)
5300          c(n,2)=c(n,2)+0.1344727748424798d0*b(n)
5301          c(n,3)=c(n,3)+0.1662127982237257d0*b(n)
5302 200   continue
5303       return
5304       end
5305
5306       subroutine amp5_3p2(cc)
5307       implicit double precision(a-h,o-z)
5308       implicit integer (i-n)
5309       dimension b(72)
5310 #include "inclcon.h"
5311 #include "inclppp.h"
5312 #include "inclamp.h"
5313       do 100 n=1,72
5314          b(n)=0.0d0
5315 100   continue
5316       ccc=cc/((-2*p1p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3+2*ffmcfmb*
5317      . p3p4+fmc2-2*p1p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2+2*ffmcfmb*
5318      . p2p3-fmb2+hbcm2-2*p2p3))
5319       b(1)=16*ccc*w5*(p3p7*p4p6+2*p4p6*p5p7)
5320       b(3)=ccc*(16*w5*p1p4*(-p7p10+p7p8)+16*p1p4*p7p11*w8)
5321       b(4)=-16*ccc*p1p4*p3p7*w5
5322       b(6)=ccc*(16*w5*p1p4*(hbcm*p7p10-hbcm*p7p8)-16*hbcm*p1p4*p7p11*
5323      . w8)
5324       b(7)=ccc*(16*w8*p4p6*(2*p1p11+p2p11-2*p3p11-2*p4p11)+16*w5*p4p6
5325      . *(-2*p1p10+2*p1p8-p2p10+p2p8+2*p3p10-2*p3p8+2*p4p10-2*p4p8))
5326       b(8)=w5*ccc*(8*p4p6*(-fmb*hbcm+fmc*hbcm+2*hbcm2)+16*(-2*p1p3*
5327      . p4p6-p2p3*p4p6+2*p3p4*p4p6))
5328       b(10)=ccc*(16*w8*p4p6*(-hbcm*p1p11-hbcm*p2p11+hbcm*p3p11+hbcm*
5329      . p4p11)+16*w5*p4p6*(ffmcfmb*hbcm*p3p10-ffmcfmb*hbcm*p3p8-fmb*
5330      . p3p10+fmb*p3p8-2*fmc*p3p10+2*fmc*p3p8+hbcm*p1p10-hbcm*p1p8+
5331      . hbcm*p2p10-hbcm*p2p8-hbcm*p3p10+hbcm*p3p8-hbcm*p4p10+hbcm*p4p8
5332      . ))
5333       b(11)=16*ccc*w5*(fmc*p3p7*p4p6+hbcm*p4p6*p5p7)
5334       b(13)=-16*ccc*p1p4*w5
5335       b(15)=8*ccc*hbcm*p1p4*w5
5336       b(18)=4*ccc*w5*(ffmcfmb*hbcm-fmb-2*fmc)
5337       b(19)=4*ccc*w5*(fmb*hbcm-fmc*hbcm-2*hbcm2+4*p1p3+2*p2p3-4*p3p4)
5338       b(20)=8*ccc*w5*(fmc*p3p7+hbcm*p5p7)
5339       b(21)=ccc*(8*w8*(hbcm*p1p11+hbcm*p2p11-hbcm*p3p11-hbcm*p4p11)+8
5340      . *w5*(-ffmcfmb*hbcm*p3p10+ffmcfmb*hbcm*p3p8+fmb*p3p10-fmb*p3p8+
5341      . 2*fmc*p3p10-2*fmc*p3p8-hbcm*p1p10+hbcm*p1p8-hbcm*p2p10+hbcm*
5342      . p2p8+hbcm*p3p10-hbcm*p3p8+hbcm*p4p10-hbcm*p4p8))
5343       b(22)=-8*ccc*hbcm*p1p4*w5
5344       b(24)=4*ccc*w5*(-ffmcfmb*hbcm+fmb+2*fmc)
5345       b(25)=4*ccc*w5*(-fmb*hbcm+fmc*hbcm+2*hbcm2-4*p1p3-2*p2p3+4*p3p4
5346      . )
5347       b(26)=8*ccc*w5*(-fmc*p3p7-hbcm*p5p7)
5348       b(27)=8*ccc*w5*p4p6*(-ffmcfmb*hbcm+fmb+2*fmc)
5349       b(28)=w5*ccc*(8*p4p6*(-fmb*hbcm+fmc*hbcm+2*hbcm2)+16*(-2*p1p3*
5350      . p4p6-p2p3*p4p6+2*p3p4*p4p6))
5351       b(29)=16*ccc*w5*(-fmc*p3p7*p4p6-hbcm*p4p6*p5p7)
5352       b(30)=ccc*(w8*(32*(p4p6*p3p7)*(-2*p1p11-2*p2p11+2*p3p11+2*p4p11
5353      . +p5p11)+16*p4p6*(ffmcfmb*hbcm2*p7p11+fmc*hbcm*p7p11)+32*(-p1p3
5354      . *p4p6*p7p11+p3p4*p4p6*p7p11))+w5*(32*(p4p6*p3p4)*(-p7p10-p7p8)
5355      . +32*(p4p6*p1p3)*(p7p10+p7p8)+32*(p4p6*p3p7)*(2*p1p10-2*p1p8+2*
5356      . p2p10-2*p2p8-2*p3p10+2*p3p8-2*p4p10+2*p4p8-p5p10+p5p8)+16*p4p6
5357      . *(-ffmcfmb*hbcm2*p7p10+ffmcfmb*hbcm2*p7p8+fmb*hbcm*p7p8-fmc*
5358      . hbcm*p7p10-2*hbcm2*p7p8)+32*p2p3*p4p6*p7p8)+16*p3p12*p4p6)
5359       b(31)=8*ccc*w5*p4p6*(ffmcfmb*hbcm-fmb-2*fmc)
5360       b(33)=ccc*(16*w8*p4p6*(ffmcfmb*hbcm*p7p11-fmc*p7p11)+16*w5*p4p6
5361      . *(-ffmcfmb*hbcm*p7p10+ffmcfmb*hbcm*p7p8+fmc*p7p10-fmc*p7p8))
5362       b(35)=ccc*(8*w8*(-ffmcfmb*hbcm*p7p11+fmc*p7p11)+8*w5*(ffmcfmb*
5363      . hbcm*p7p10-ffmcfmb*hbcm*p7p8-fmc*p7p10+fmc*p7p8))
5364       b(38)=ccc*(w8*(16*p3p7*(p2p11-p5p11)+8*(-ffmcfmb*hbcm2*p7p11-
5365      . fmc*hbcm*p7p11+2*p1p3*p7p11-2*p3p4*p7p11))+w5*(16*p3p4*(p7p10-
5366      . p7p8)+16*p3p7*(-p2p10+p2p8+p5p10-p5p8)+16*p1p3*(-p7p10+p7p8)+8
5367      . *(ffmcfmb*hbcm2*p7p10-ffmcfmb*hbcm2*p7p8+fmc*hbcm*p7p10-fmc*
5368      . hbcm*p7p8))-8*p3p12)
5369       b(40)=16*ccc*w8*(fmc*p3p7*p4p6+hbcm*p4p6*p5p7)
5370       b(41)=16*ccc*w8*(p3p7*p4p6+2*p4p6*p5p7)
5371       b(44)=w8*ccc*(8*p4p6*(fmb*hbcm-fmc*hbcm-2*hbcm2)+16*(2*p1p3*
5372      . p4p6+p2p3*p4p6-2*p3p4*p4p6))
5373       b(46)=8*ccc*w8*p4p6*(-ffmcfmb*hbcm+fmb+2*fmc)
5374       b(49)=8*ccc*w8*(-fmc*p3p7-hbcm*p5p7)
5375       b(50)=8*ccc*w8*(-p3p7-2*p5p7)
5376       b(51)=-16*ccc*p1p4*p3p7*w8
5377       b(53)=ccc*(8*w8*(2*p1p11+p2p11-2*p3p11-2*p4p11)+8*w5*(-2*p1p10+
5378      . 2*p1p8-p2p10+p2p8+2*p3p10-2*p3p8+2*p4p10-2*p4p8))
5379       b(54)=4*ccc*w8*(-fmb*hbcm+fmc*hbcm+2*hbcm2-4*p1p3-2*p2p3+4*p3p4
5380      . )
5381       b(55)=4*ccc*w8*(ffmcfmb*hbcm-fmb-2*fmc)
5382       b(56)=-16*ccc*p1p4*w8
5383       b(59)=8*ccc*hbcm*p1p4*w8
5384       b(61)=4*ccc*hbcm
5385       b(62)=-8*ccc*hbcm*p4p6
5386       b(64)=16*ccc*w5*(-p3p7*p4p6-2*p4p6*p5p7)
5387       b(69)=8*ccc*w5*(p3p7+2*p5p7)
5388       b(70)=16*ccc*p1p4*p3p7*w5
5389       b(71)=8*ccc*w5*(-p3p7-2*p5p7)
5390       b(72)=16*ccc*p1p4*w5
5391       do 200 n=1,72
5392          c(n,2)=c(n,2)+0.09245003270420485d0*b(n)
5393          c(n,3)=c(n,3)-0.02077659977796572d0*b(n)
5394 200   continue
5395       return
5396       end
5397
5398       subroutine amp4_3p2(cc)
5399       implicit double precision(a-h,o-z)
5400       implicit integer (i-n)
5401       dimension b(62)
5402 #include "inclcon.h"
5403 #include "inclppp.h"
5404 #include "inclamp.h"
5405       do 100 n=1,62
5406          b(n)=0.0d0
5407 100   continue
5408       ccc=cc/((-2*p1p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*
5409      . p3p5+fmb2+hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p2p3-fmc2)
5410      . )
5411       b(2)=16*ccc*w2*(-p3p7*p4p6-2*p4p6*p5p7)
5412       b(3)=16*ccc*p1p4*(-p7p11*w7-p7p9*w2)
5413       b(5)=16*ccc*p1p4*p3p7*w2
5414       b(7)=ccc*(16*w2*p4p6*(-2*p1p9-p2p9+2*p3p9+2*p4p9)+16*w7*p4p6*(-
5415      . 2*p1p11-p2p11+2*p3p11+2*p4p11))
5416       b(9)=w2*ccc*(8*p4p6*(fmb*hbcm-fmc*hbcm-2*hbcm2)+16*(2*p1p3*p4p6
5417      . +p2p3*p4p6-2*p3p4*p4p6))
5418       b(10)=ccc*(16*w2*p4p6*(hbcm*p1p9-hbcm*p3p9-hbcm*p4p9)+16*w7*
5419      . p4p6*(hbcm*p1p11-hbcm*p3p11-hbcm*p4p11))
5420       b(12)=w2*ccc*(16*(p4p6*p3p7)*(-ffmcfmb*hbcm-fmb-fmc)-16*hbcm*
5421      . p4p6*p5p7)
5422       b(14)=16*ccc*p1p4*w2
5423       b(16)=-8*ccc*hbcm*p1p4*w2
5424       b(21)=ccc*(8*w2*(-hbcm*p1p9+hbcm*p3p9+hbcm*p4p9)+8*w7*(-hbcm*
5425      . p1p11+hbcm*p3p11+hbcm*p4p11))
5426       b(30)=ccc*(w2*(32*(p4p6*p3p7)*(2*p1p9+2*p2p9-2*p3p9-2*p4p9-p5p9
5427      . )+16*p4p6*(ffmcfmb*hbcm2*p7p9-fmb*hbcm*p7p9+hbcm2*p7p9)+32*(-
5428      . p1p3*p4p6*p7p9-p2p3*p4p6*p7p9+p3p4*p4p6*p7p9))+w7*(32*(p4p6*
5429      . p3p7)*(2*p1p11+2*p2p11-2*p3p11-2*p4p11-p5p11)+16*p4p6*(ffmcfmb
5430      . *hbcm2*p7p11-fmc*hbcm*p7p11-hbcm2*p7p11)+32*(p1p3*p4p6*p7p11-
5431      . p3p4*p4p6*p7p11))-16*p3p12*p4p6)
5432       b(32)=8*ccc*w2*p4p6*(-ffmcfmb*hbcm-2*fmb-fmc+hbcm)
5433       b(33)=ccc*(16*w2*p4p6*(fmb*p7p9+fmc*p7p9)+16*w7*p4p6*(fmb*p7p11
5434      . +fmc*p7p11))
5435       b(34)=4*ccc*w2*(ffmcfmb*hbcm+2*fmb+fmc-hbcm)
5436       b(35)=ccc*(8*w2*(-fmb*p7p9-fmc*p7p9)+8*w7*(-fmb*p7p11-fmc*p7p11
5437      . ))
5438       b(36)=4*ccc*w2*(fmb*hbcm-fmc*hbcm-2*hbcm2+4*p1p3+2*p2p3-4*p3p4)
5439       b(37)=w2*ccc*(8*p3p7*(ffmcfmb*hbcm+fmb+fmc)+8*hbcm*p5p7)
5440       b(38)=ccc*(w2*(16*p3p7*(-p2p9+p5p9)+8*(-ffmcfmb*hbcm2*p7p9+fmc*
5441      . hbcm*p7p9+hbcm2*p7p9-2*p1p3*p7p9+2*p3p4*p7p9))+w7*(16*p3p7*(-
5442      . p2p11+p5p11)+8*(-ffmcfmb*hbcm2*p7p11+fmc*hbcm*p7p11+hbcm2*
5443      . p7p11-2*p1p3*p7p11+2*p3p4*p7p11))+8*p3p12)
5444       b(40)=w7*ccc*(16*(p4p6*p3p7)*(-ffmcfmb*hbcm-fmb-fmc)-16*hbcm*
5445      . p4p6*p5p7)
5446       b(41)=16*ccc*w7*(-p3p7*p4p6-2*p4p6*p5p7)
5447       b(44)=w7*ccc*(8*p4p6*(-fmb*hbcm+fmc*hbcm+2*hbcm2)+16*(-2*p1p3*
5448      . p4p6-p2p3*p4p6+2*p3p4*p4p6))
5449       b(46)=8*ccc*w7*p4p6*(-ffmcfmb*hbcm-2*fmb-fmc+hbcm)
5450       b(49)=w7*ccc*(8*p3p7*(ffmcfmb*hbcm+fmb+fmc)+8*hbcm*p5p7)
5451       b(50)=8*ccc*w7*(p3p7+2*p5p7)
5452       b(51)=16*ccc*p1p4*p3p7*w7
5453       b(52)=8*ccc*w2*(p3p7+2*p5p7)
5454       b(53)=ccc*(8*w2*(-2*p1p9-p2p9+2*p3p9+2*p4p9)+8*w7*(-2*p1p11-
5455      . p2p11+2*p3p11+2*p4p11))
5456       b(54)=4*ccc*w7*(fmb*hbcm-fmc*hbcm-2*hbcm2+4*p1p3+2*p2p3-4*p3p4)
5457       b(55)=4*ccc*w7*(ffmcfmb*hbcm+2*fmb+fmc-hbcm)
5458       b(56)=16*ccc*p1p4*w7
5459       b(59)=-8*ccc*hbcm*p1p4*w7
5460       b(61)=4*ccc*hbcm
5461       b(62)=-8*ccc*hbcm*p4p6
5462       do 200 n=1,62
5463          c(n,2)=c(n,2)+0.09245003270420485d0*b(n)
5464          c(n,3)=c(n,3)-0.02077659977796572d0*b(n)
5465 200   continue
5466       return
5467       end
5468
5469       subroutine amp36_3p2(cc)
5470       implicit double precision(a-h,o-z)
5471       implicit integer (i-n)
5472       dimension b(94)
5473 #include "inclcon.h"
5474 #include "inclppp.h"
5475 #include "inclamp.h"
5476       do 100 n=1,94
5477          b(n)=0.0d0
5478 100   continue
5479       ccc=cc/((ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*p3p5+fmb2+
5480      . hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3+2*ffmcfmb*p3p4+
5481      . fmc2-2*p1p4)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2))
5482       b(1)=ccc*(w5*(2*p6p7*(ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm+ffmcfmb
5483      . *fmc*hbcm+ffmcfmb*hbcm2+fmb*fmc-fmc*hbcm-2*fmc2)+4*(-2*ffmcfmb
5484      . *p3p6*p3p7+2*ffmcfmb*p3p6*p4p7-6*ffmcfmb*p3p6*p5p7+2*p1p2*p6p7
5485      . -2*p1p3*p6p7+2*p1p4*p6p7-2*p1p5*p6p7-3*p3p7*p4p6+p4p6*p4p7-7*
5486      . p4p6*p5p7))+w1*(2*p6p7*(ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm+
5487      . ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2+fmb*fmc-fmc*hbcm-2*fmc2)+4*(-2*
5488      . ffmcfmb*p3p6*p3p7+2*ffmcfmb*p3p6*p4p7-6*ffmcfmb*p3p6*p5p7+2*
5489      . p1p2*p6p7-2*p1p3*p6p7+2*p1p4*p6p7-2*p1p5*p6p7-3*p3p7*p4p6+p4p6
5490      . *p4p7-7*p4p6*p5p7)))
5491       b(2)=w2*ccc*(2*p6p7*(-ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm-ffmcfmb
5492      . *fmc*hbcm-ffmcfmb*hbcm2-fmb*fmc+fmc*hbcm+2*fmc2)+4*(2*ffmcfmb*
5493      . p3p6*p3p7-2*ffmcfmb*p3p6*p4p7+6*ffmcfmb*p3p6*p5p7-2*p1p2*p6p7+
5494      . 2*p1p3*p6p7-2*p1p4*p6p7+2*p1p5*p6p7+3*p3p7*p4p6-p4p6*p4p7+7*
5495      . p4p6*p5p7))
5496       b(3)=ccc*(w2*(4*p5p7*(p1p9+p4p9)+4*p4p7*(-2*p1p9+p2p9-p5p9)+4*
5497      . p3p7*(-3*ffmcfmb*p1p9+ffmcfmb*p2p9-ffmcfmb*p4p9-ffmcfmb*p5p9+
5498      . p1p9+p4p9))+w1*(4*p5p7*(-p1p8-p4p8)+4*p4p7*(2*p1p8-p2p8+p5p8)+
5499      . 4*p3p7*(3*ffmcfmb*p1p8-ffmcfmb*p2p8+ffmcfmb*p4p8+ffmcfmb*p5p8-
5500      . p1p8-p4p8))+w5*(4*p5p7*(p1p10-p1p8+p4p10-p4p8)+4*p4p7*(-2*
5501      . p1p10+2*p1p8+p2p10-p2p8-p5p10+p5p8)+4*p3p7*(-3*ffmcfmb*p1p10+3
5502      . *ffmcfmb*p1p8+ffmcfmb*p2p10-ffmcfmb*p2p8-ffmcfmb*p4p10+ffmcfmb
5503      . *p4p8-ffmcfmb*p5p10+ffmcfmb*p5p8+p1p10-p1p8+p4p10-p4p8))+2*(-3
5504      . *p1p12+p2p12-p4p12-p5p12))
5505       b(4)=ccc*(w5*((p3p7*p3p4)*(-4*ffmcfmb+4)+(p3p7*p1p3)*(-12*
5506      . ffmcfmb+4)+2*p4p7*(-ffmcfmb*hbcm2-fmb*hbcm+2*fmc*hbcm-hbcm2)+2
5507      . *p3p7*(-3*ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm+2*ffmcfmb*fmc*hbcm
5508      . +ffmcfmb*hbcm2)+4*(ffmcfmb*hbcm2*p5p7+ffmcfmb*p2p3*p3p7-
5509      . ffmcfmb*p3p5*p3p7-2*p1p3*p4p7+p1p3*p5p7+p2p3*p4p7+p3p4*p5p7-
5510      . p3p5*p4p7))+w1*((p3p7*p3p4)*(-4*ffmcfmb+4)+(p3p7*p1p3)*(-12*
5511      . ffmcfmb+4)+2*p4p7*(-ffmcfmb*hbcm2-fmb*hbcm+2*fmc*hbcm-hbcm2)+2
5512      . *p3p7*(-3*ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm+2*ffmcfmb*fmc*hbcm
5513      . +ffmcfmb*hbcm2)+4*(ffmcfmb*hbcm2*p5p7+ffmcfmb*p2p3*p3p7-
5514      . ffmcfmb*p3p5*p3p7-2*p1p3*p4p7+p1p3*p5p7+p2p3*p4p7+p3p4*p5p7-
5515      . p3p5*p4p7)))
5516       b(5)=w2*ccc*((p3p7*p3p4)*(4*ffmcfmb-4)+(p3p7*p1p3)*(12*ffmcfmb-
5517      . 4)+2*p4p7*(ffmcfmb*hbcm2+fmb*hbcm-2*fmc*hbcm+hbcm2)+2*p3p7*(3*
5518      . ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*hbcm-ffmcfmb*
5519      . hbcm2)+4*(-ffmcfmb*hbcm2*p5p7-ffmcfmb*p2p3*p3p7+ffmcfmb*p3p5*
5520      . p3p7+2*p1p3*p4p7-p1p3*p5p7-p2p3*p4p7-p3p4*p5p7+p3p5*p4p7))
5521       ans=ccc*(w2*(4*p5p7*(-hbcm*p1p9-hbcm*p4p9)+4*p4p7*(2*hbcm*p1p9-
5522      . hbcm*p2p9+hbcm*p5p9)+4*p3p7*(3*ffmcfmb*hbcm*p1p9-ffmcfmb*hbcm*
5523      . p2p9+ffmcfmb*hbcm*p4p9+ffmcfmb*hbcm*p5p9-hbcm*p1p9-hbcm*p4p9))
5524      . +w1*(4*p5p7*(hbcm*p1p8+hbcm*p4p8)+4*p4p7*(-2*hbcm*p1p8+hbcm*
5525      . p2p8-hbcm*p5p8)+4*p3p7*(-3*ffmcfmb*hbcm*p1p8+ffmcfmb*hbcm*p2p8
5526      . -ffmcfmb*hbcm*p4p8-ffmcfmb*hbcm*p5p8+hbcm*p1p8+hbcm*p4p8))+w5*
5527      . (4*p5p7*(-hbcm*p1p10+hbcm*p1p8-hbcm*p4p10+hbcm*p4p8)+4*p4p7*(2
5528      . *hbcm*p1p10-2*hbcm*p1p8-hbcm*p2p10+hbcm*p2p8+hbcm*p5p10-hbcm*
5529      . p5p8)+4*p3p7*(3*ffmcfmb*hbcm*p1p10-3*ffmcfmb*hbcm*p1p8-ffmcfmb
5530      . *hbcm*p2p10+ffmcfmb*hbcm*p2p8+ffmcfmb*hbcm*p4p10-ffmcfmb*hbcm*
5531      . p4p8+ffmcfmb*hbcm*p5p10-ffmcfmb*hbcm*p5p8-hbcm*p1p10+hbcm*p1p8
5532      . -hbcm*p4p10+hbcm*p4p8))+2*(3*hbcm*p1p12-hbcm*p2p12+hbcm*p4p12+
5533      . hbcm*p5p12))
5534       b(6)=ans
5535       b(7)=ccc*(w2*(8*p4p6*(p2p9-2*p3p9-3*p4p9+p5p9)+8*p3p6*(-ffmcfmb
5536      . *p1p9+ffmcfmb*p2p9-2*ffmcfmb*p3p9-3*ffmcfmb*p4p9+ffmcfmb*p5p9+
5537      . p1p9)+8*p1p9*p5p6)+w1*(8*p4p6*(-p2p8+2*p3p8+3*p4p8-p5p8)+8*
5538      . p3p6*(ffmcfmb*p1p8-ffmcfmb*p2p8+2*ffmcfmb*p3p8+3*ffmcfmb*p4p8-
5539      . ffmcfmb*p5p8-p1p8)-8*p1p8*p5p6)+w5*(8*p4p6*(p2p10-p2p8-2*p3p10
5540      . +2*p3p8-3*p4p10+3*p4p8+p5p10-p5p8)+8*p5p6*(p1p10-p1p8)+8*p3p6*
5541      . (-ffmcfmb*p1p10+ffmcfmb*p1p8+ffmcfmb*p2p10-ffmcfmb*p2p8-2*
5542      . ffmcfmb*p3p10+2*ffmcfmb*p3p8-3*ffmcfmb*p4p10+3*ffmcfmb*p4p8+
5543      . ffmcfmb*p5p10-ffmcfmb*p5p8+p1p10-p1p8))+4*(-p1p13+p2p13-2*
5544      . p3p13-3*p4p13+p5p13))
5545       b(8)=ccc*(w5*((p3p6*p1p3)*(-8*ffmcfmb+8)+2*p5p6*(-ffmcfmb*hbcm2
5546      . +fmc*hbcm)+4*p4p6*(-2*ffmcfmb*hbcm2+3*fmb*hbcm-3*fmc*hbcm-
5547      . hbcm2)+2*p3p6*(-3*ffmcfmb**2*hbcm2+6*ffmcfmb*fmb*hbcm-7*
5548      . ffmcfmb*fmc*hbcm-3*ffmcfmb*hbcm2+fmc*hbcm)+8*(ffmcfmb*p2p3*
5549      . p3p6-3*ffmcfmb*p3p4*p3p6+ffmcfmb*p3p5*p3p6+p1p3*p5p6+p2p3*p4p6
5550      . -3*p3p4*p4p6+p3p5*p4p6))+w1*((p3p6*p1p3)*(-8*ffmcfmb+8)+2*p5p6
5551      . *(-ffmcfmb*hbcm2+fmc*hbcm)+4*p4p6*(-2*ffmcfmb*hbcm2+3*fmb*hbcm
5552      . -3*fmc*hbcm-hbcm2)+2*p3p6*(-3*ffmcfmb**2*hbcm2+6*ffmcfmb*fmb*
5553      . hbcm-7*ffmcfmb*fmc*hbcm-3*ffmcfmb*hbcm2+fmc*hbcm)+8*(ffmcfmb*
5554      . p2p3*p3p6-3*ffmcfmb*p3p4*p3p6+ffmcfmb*p3p5*p3p6+p1p3*p5p6+p2p3
5555      . *p4p6-3*p3p4*p4p6+p3p5*p4p6)))
5556       b(9)=w2*ccc*((p3p6*p1p3)*(8*ffmcfmb-8)+2*p5p6*(ffmcfmb*hbcm2-
5557      . fmc*hbcm)+4*p4p6*(2*ffmcfmb*hbcm2-3*fmb*hbcm+3*fmc*hbcm+hbcm2)
5558      . +2*p3p6*(3*ffmcfmb**2*hbcm2-6*ffmcfmb*fmb*hbcm+7*ffmcfmb*fmc*
5559      . hbcm+3*ffmcfmb*hbcm2-fmc*hbcm)+8*(-ffmcfmb*p2p3*p3p6+3*ffmcfmb
5560      . *p3p4*p3p6-ffmcfmb*p3p5*p3p6-p1p3*p5p6-p2p3*p4p6+3*p3p4*p4p6-
5561      . p3p5*p4p6))
5562       ans2=w5*(8*p4p6*(3*fmb*p3p10-3*fmb*p3p8+3*fmc*p3p10-3*fmc*p3p8-
5563      . 3*hbcm*p1p10+3*hbcm*p1p8-hbcm*p2p10+hbcm*p2p8-hbcm*p3p10+hbcm*
5564      . p3p8+3*hbcm*p4p10-3*hbcm*p4p8-hbcm*p5p10+hbcm*p5p8)+4*p5p6*(
5565      . ffmcfmb*hbcm*p3p10-ffmcfmb*hbcm*p3p8-fmc*p3p10+fmc*p3p8)+4*
5566      . p3p6*(-ffmcfmb**2*hbcm*p3p10+ffmcfmb**2*hbcm*p3p8+6*ffmcfmb*
5567      . fmb*p3p10-6*ffmcfmb*fmb*p3p8+7*ffmcfmb*fmc*p3p10-7*ffmcfmb*fmc
5568      . *p3p8-6*ffmcfmb*hbcm*p1p10+6*ffmcfmb*hbcm*p1p8-2*ffmcfmb*hbcm*
5569      . p2p10+2*ffmcfmb*hbcm*p2p8-ffmcfmb*hbcm*p3p10+ffmcfmb*hbcm*p3p8
5570      . +6*ffmcfmb*hbcm*p4p10-6*ffmcfmb*hbcm*p4p8-2*ffmcfmb*hbcm*p5p10
5571      . +2*ffmcfmb*hbcm*p5p8-fmc*p3p10+fmc*p3p8))+4*(hbcm*p1p13-hbcm*
5572      . p2p13+2*hbcm*p3p13+3*hbcm*p4p13-hbcm*p5p13)
5573       ans1=w2*(8*p4p6*(-3*hbcm*p1p9-hbcm*p2p9+2*hbcm*p3p9+3*hbcm*p4p9
5574      . -hbcm*p5p9)+8*p3p6*(-3*ffmcfmb*hbcm*p1p9-ffmcfmb*hbcm*p2p9+2*
5575      . ffmcfmb*hbcm*p3p9+3*ffmcfmb*hbcm*p4p9-ffmcfmb*hbcm*p5p9))+w1*(
5576      . 8*p4p6*(-3*fmb*p3p8-3*fmc*p3p8+3*hbcm*p1p8+hbcm*p2p8+hbcm*p3p8
5577      . -3*hbcm*p4p8+hbcm*p5p8)+4*p5p6*(-ffmcfmb*hbcm*p3p8+fmc*p3p8)+4
5578      . *p3p6*(ffmcfmb**2*hbcm*p3p8-6*ffmcfmb*fmb*p3p8-7*ffmcfmb*fmc*
5579      . p3p8+6*ffmcfmb*hbcm*p1p8+2*ffmcfmb*hbcm*p2p8+ffmcfmb*hbcm*p3p8
5580      . -6*ffmcfmb*hbcm*p4p8+2*ffmcfmb*hbcm*p5p8+fmc*p3p8))+ans2
5581       ans=ccc*ans1
5582       b(10)=ans
5583       ans2=w1*(4*(p4p6*p3p7)*(-2*ffmcfmb*hbcm-2*fmb-4*fmc+hbcm)+4*(
5584      . p5p7*p3p6)*(-5*ffmcfmb*hbcm+fmc)+4*(p4p7*p3p6)*(ffmcfmb*hbcm-
5585      . fmc)+4*(p6p7*p3p5)*(ffmcfmb*hbcm-fmc)+4*(p6p7*p3p4)*(-ffmcfmb*
5586      . hbcm+fmc)+4*(p6p7*p2p3)*(-ffmcfmb*hbcm+fmc)+4*(p6p7*p1p3)*(
5587      . ffmcfmb*hbcm-2*fmb-3*fmc)+4*(p3p7*p3p6)*(-2*ffmcfmb*fmb-6*
5588      . ffmcfmb*fmc+ffmcfmb*hbcm+fmc)+2*p6p7*(-ffmcfmb**2*hbcm3+
5589      . ffmcfmb*fmb*hbcm2+3*ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3-fmb*fmc*
5590      . hbcm-fmc*hbcm2-2*fmc2*hbcm)+4*(2*hbcm*p1p2*p6p7+2*hbcm*p1p4*
5591      . p6p7-2*hbcm*p1p5*p6p7-hbcm*p4p6*p4p7-5*hbcm*p4p6*p5p7))
5592       ans1=w5*(4*(p4p6*p3p7)*(-2*ffmcfmb*hbcm-2*fmb-4*fmc+hbcm)+4*(
5593      . p5p7*p3p6)*(-5*ffmcfmb*hbcm+fmc)+4*(p4p7*p3p6)*(ffmcfmb*hbcm-
5594      . fmc)+4*(p6p7*p3p5)*(ffmcfmb*hbcm-fmc)+4*(p6p7*p3p4)*(-ffmcfmb*
5595      . hbcm+fmc)+4*(p6p7*p2p3)*(-ffmcfmb*hbcm+fmc)+4*(p6p7*p1p3)*(
5596      . ffmcfmb*hbcm-2*fmb-3*fmc)+4*(p3p7*p3p6)*(-2*ffmcfmb*fmb-6*
5597      . ffmcfmb*fmc+ffmcfmb*hbcm+fmc)+2*p6p7*(-ffmcfmb**2*hbcm3+
5598      . ffmcfmb*fmb*hbcm2+3*ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3-fmb*fmc*
5599      . hbcm-fmc*hbcm2-2*fmc2*hbcm)+4*(2*hbcm*p1p2*p6p7+2*hbcm*p1p4*
5600      . p6p7-2*hbcm*p1p5*p6p7-hbcm*p4p6*p4p7-5*hbcm*p4p6*p5p7))+ans2
5601       ans=ccc*ans1
5602       b(11)=ans
5603       b(12)=w2*ccc*(4*(p4p6*p3p7)*(2*ffmcfmb*hbcm+2*fmb+4*fmc-hbcm)+4
5604      . *(p5p7*p3p6)*(5*ffmcfmb*hbcm-fmc)+4*(p4p7*p3p6)*(-ffmcfmb*hbcm
5605      . +fmc)+4*(p6p7*p3p5)*(-ffmcfmb*hbcm+fmc)+4*(p6p7*p3p4)*(ffmcfmb
5606      . *hbcm-fmc)+4*(p6p7*p2p3)*(ffmcfmb*hbcm-fmc)+4*(p6p7*p1p3)*(-
5607      . ffmcfmb*hbcm+fmc+2*hbcm)+4*(p3p7*p3p6)*(2*ffmcfmb*fmb+6*
5608      . ffmcfmb*fmc-ffmcfmb*hbcm-fmc)+2*p6p7*(ffmcfmb**2*hbcm3-ffmcfmb
5609      . *fmb*hbcm2-3*ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3+fmb*fmc*hbcm+fmc*
5610      . hbcm2+2*fmc2*hbcm)+4*(-2*hbcm*p1p2*p6p7-2*hbcm*p1p4*p6p7+2*
5611      . hbcm*p1p5*p6p7+hbcm*p4p6*p4p7+5*hbcm*p4p6*p5p7))
5612       b(13)=ccc*(w5*(p3p4*(-2*ffmcfmb+2)+p1p3*(-2*ffmcfmb+2)+2*(-
5613      . ffmcfmb**2*hbcm2+ffmcfmb*hbcm2+ffmcfmb*p2p3+ffmcfmb*p3p5+p1p2+
5614      . p1p5+p2p4+p4p5))+w1*(p3p4*(-2*ffmcfmb+2)+p1p3*(-2*ffmcfmb+2)+2
5615      . *(-ffmcfmb**2*hbcm2+ffmcfmb*hbcm2+ffmcfmb*p2p3+ffmcfmb*p3p5+
5616      . p1p2+p1p5+p2p4+p4p5)))+ccc
5617       b(14)=ccc*(w2*(p3p4*(2*ffmcfmb-2)+p1p3*(2*ffmcfmb-2)+2*(ffmcfmb
5618      . **2*hbcm2-ffmcfmb*hbcm2-ffmcfmb*p2p3-ffmcfmb*p3p5-p1p2-p1p5-
5619      . p2p4-p4p5))-1)
5620       b(15)=ccc*(w5*(2*p3p4*(ffmcfmb*hbcm-hbcm)+2*p1p3*(ffmcfmb*hbcm-
5621      . hbcm)+2*(ffmcfmb**2*hbcm3-ffmcfmb*hbcm*p2p3-ffmcfmb*hbcm*p3p5-
5622      . ffmcfmb*hbcm3-hbcm*p1p2-hbcm*p1p5-hbcm*p2p4-hbcm*p4p5))+w1*(2*
5623      . p3p4*(ffmcfmb*hbcm-hbcm)+2*p1p3*(ffmcfmb*hbcm-hbcm)+2*(ffmcfmb
5624      . **2*hbcm3-ffmcfmb*hbcm*p2p3-ffmcfmb*hbcm*p3p5-ffmcfmb*hbcm3-
5625      . hbcm*p1p2-hbcm*p1p5-hbcm*p2p4-hbcm*p4p5))-hbcm)
5626       b(16)=ccc*(w2*(2*p3p4*(-ffmcfmb*hbcm+hbcm)+2*p1p3*(-ffmcfmb*
5627      . hbcm+hbcm)+2*(-ffmcfmb**2*hbcm3+ffmcfmb*hbcm*p2p3+ffmcfmb*hbcm
5628      . *p3p5+ffmcfmb*hbcm3+hbcm*p1p2+hbcm*p1p5+hbcm*p2p4+hbcm*p4p5))+
5629      . hbcm)
5630       b(17)=w5*ccc*(4*p3p6*(4*ffmcfmb*hbcm-hbcm)+4*(3*hbcm*p4p6-hbcm*
5631      . p5p6))
5632       b(20)=w5*ccc*(2*p3p7*(-8*ffmcfmb*hbcm+3*hbcm)+2*(-5*hbcm*p4p7+3
5633      . *hbcm*p5p7))
5634       b(22)=ccc*(w5*(2*p3p4*(-ffmcfmb*hbcm+hbcm)+2*p1p3*(-ffmcfmb*
5635      . hbcm+hbcm)+2*(-ffmcfmb**2*hbcm3+ffmcfmb*hbcm*p2p3+ffmcfmb*hbcm
5636      . *p3p5+ffmcfmb*hbcm3+hbcm*p1p2+hbcm*p1p5+hbcm*p2p4+hbcm*p4p5))-
5637      . hbcm)
5638       b(23)=ccc*(w5*(4*p3p6*(-4*ffmcfmb*hbcm+hbcm)+4*(-3*hbcm*p4p6+
5639      . hbcm*p5p6))+w1*(4*p3p6*(-4*ffmcfmb*hbcm+hbcm)+4*(-3*hbcm*p4p6+
5640      . hbcm*p5p6)))
5641       b(26)=ccc*(w5*(2*p3p7*(8*ffmcfmb*hbcm-3*hbcm)+2*(5*hbcm*p4p7-3*
5642      . hbcm*p5p7))+w1*(2*p3p7*(8*ffmcfmb*hbcm-3*hbcm)+2*(5*hbcm*p4p7-
5643      . 3*hbcm*p5p7)))
5644       b(27)=w5*ccc*(12*p4p6*(-fmb-fmc+hbcm)+2*p5p6*(-ffmcfmb*hbcm+fmc
5645      . )+2*p3p6*(ffmcfmb**2*hbcm-6*ffmcfmb*fmb-7*ffmcfmb*fmc+5*
5646      . ffmcfmb*hbcm+fmc))
5647       b(28)=w5*ccc*((p3p6*p1p3)*(-8*ffmcfmb+8)+2*p5p6*(-ffmcfmb*hbcm2
5648      . +fmc*hbcm)+4*p4p6*(-2*ffmcfmb*hbcm2+3*fmb*hbcm-3*fmc*hbcm-
5649      . hbcm2)+2*p3p6*(-3*ffmcfmb**2*hbcm2+6*ffmcfmb*fmb*hbcm-7*
5650      . ffmcfmb*fmc*hbcm-3*ffmcfmb*hbcm2+fmc*hbcm)+8*(ffmcfmb*p2p3*
5651      . p3p6-3*ffmcfmb*p3p4*p3p6+ffmcfmb*p3p5*p3p6+p1p3*p5p6+p2p3*p4p6
5652      . -3*p3p4*p4p6+p3p5*p4p6))
5653       b(29)=w5*ccc*(4*(p4p6*p3p7)*(2*ffmcfmb*hbcm+2*fmb+4*fmc-hbcm)+4
5654      . *(p5p7*p3p6)*(5*ffmcfmb*hbcm-fmc)+4*(p4p7*p3p6)*(-ffmcfmb*hbcm
5655      . +fmc)+4*(p6p7*p3p5)*(-ffmcfmb*hbcm+fmc)+4*(p6p7*p3p4)*(ffmcfmb
5656      . *hbcm-fmc)+4*(p6p7*p2p3)*(ffmcfmb*hbcm-fmc)+4*(p6p7*p1p3)*(-
5657      . ffmcfmb*hbcm+2*fmb+3*fmc)+4*(p3p7*p3p6)*(2*ffmcfmb*fmb+6*
5658      . ffmcfmb*fmc-ffmcfmb*hbcm-fmc)+2*p6p7*(ffmcfmb**2*hbcm3-ffmcfmb
5659      . *fmb*hbcm2-3*ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3+fmb*fmc*hbcm+fmc*
5660      . hbcm2+2*fmc2*hbcm)+4*(-2*hbcm*p1p2*p6p7-2*hbcm*p1p4*p6p7+2*
5661      . hbcm*p1p5*p6p7+hbcm*p4p6*p4p7+5*hbcm*p4p6*p5p7))
5662       ans5=4*p6p7*(-ffmcfmb*hbcm2*p1p10+ffmcfmb*hbcm2*p1p8+ffmcfmb*
5663      . hbcm2*p2p10-ffmcfmb*hbcm2*p2p8+ffmcfmb*hbcm2*p4p10-ffmcfmb*
5664      . hbcm2*p4p8-ffmcfmb*hbcm2*p5p10+ffmcfmb*hbcm2*p5p8+fmc*hbcm*
5665      . p1p10-fmc*hbcm*p1p8-fmc*hbcm*p2p10+fmc*hbcm*p2p8-fmc*hbcm*
5666      . p4p10+fmc*hbcm*p4p8+fmc*hbcm*p5p10-fmc*hbcm*p5p8+4*hbcm2*p1p10
5667      . -4*hbcm2*p1p8)+4*p3p7*(-2*ffmcfmb**2*hbcm2*p6p10+2*ffmcfmb**2*
5668      . hbcm2*p6p8+2*ffmcfmb*fmc*hbcm*p6p10-2*ffmcfmb*fmc*hbcm*p6p8+
5669      . ffmcfmb*hbcm2*p6p10-ffmcfmb*hbcm2*p6p8-fmc*hbcm*p6p10+fmc*hbcm
5670      . *p6p8)+4*p3p6*(2*ffmcfmb**2*hbcm2*p7p10+ffmcfmb**2*hbcm2*p7p8-
5671      . 2*ffmcfmb*fmb*hbcm*p7p10-4*ffmcfmb*fmb*hbcm*p7p8+4*ffmcfmb*fmc
5672      . *hbcm*p7p10+3*ffmcfmb*fmc*hbcm*p7p8+2*ffmcfmb*hbcm2*p7p10+
5673      . ffmcfmb*hbcm2*p7p8-fmc*hbcm*p7p8)+16*(-ffmcfmb*p2p3*p3p6*p7p8-
5674      . ffmcfmb*p3p5*p3p6*p7p8-p1p3*p5p6*p7p8-p2p3*p4p6*p7p8-p3p5*p4p6
5675      . *p7p8)
5676       ans4=16*(p4p6*p3p4)*(2*p7p10+p7p8)+16*(p5p7*p1p3)*(-p6p10+p6p8)
5677      . +16*(p4p7*p1p3)*(p6p10-p6p8)+16*(p6p7*p1p3)*(-p2p10+p2p8-p4p10
5678      . +p4p8+p5p10-p5p8)+16*(p5p6*p3p7)*(-p1p10+p1p8)+16*(p4p6*p3p7)*
5679      . (p1p10-p1p8-2*p2p10+2*p2p8+2*p3p10-2*p3p8+2*p4p10-2*p4p8)+16*(
5680      . p6p7*p3p5)*(p1p10-p1p8)+16*(p6p7*p3p4)*(p1p10-p1p8)+16*(p6p7*
5681      . p2p3)*(-p1p10+p1p8)+16*(p3p6*p3p4)*(2*ffmcfmb*p7p10+ffmcfmb*
5682      . p7p8)+16*(p3p7*p1p3)*(2*ffmcfmb*p6p10-2*ffmcfmb*p6p8-p6p10+
5683      . p6p8)+16*(p3p6*p1p3)*(ffmcfmb*p7p8-p7p8)+16*(p3p7*p3p6)*(2*
5684      . ffmcfmb*p1p10-2*ffmcfmb*p1p8-2*ffmcfmb*p2p10+2*ffmcfmb*p2p8+2*
5685      . ffmcfmb*p3p10-2*ffmcfmb*p3p8+2*ffmcfmb*p4p10-2*ffmcfmb*p4p8-
5686      . p1p10+p1p8)+4*p5p7*(ffmcfmb*hbcm2*p6p10-ffmcfmb*hbcm2*p6p8-fmc
5687      . *hbcm*p6p10+fmc*hbcm*p6p8)+4*p5p6*(ffmcfmb*hbcm2*p7p8-fmc*hbcm
5688      . *p7p8)+4*p4p7*(-ffmcfmb*hbcm2*p6p10+ffmcfmb*hbcm2*p6p8+fmc*
5689      . hbcm*p6p10-fmc*hbcm*p6p8)+8*p4p6*(ffmcfmb*hbcm2*p7p10+ffmcfmb*
5690      . hbcm2*p7p8-fmb*hbcm*p7p10-2*fmb*hbcm*p7p8+2*fmc*hbcm*p7p10+fmc
5691      . *hbcm*p7p8+hbcm2*p7p10)+ans5
5692       ans3=w5*ans4
5693       ans6=(4*p6p7*(-2*p3p10+p3p8)+4*p3p7*(-ffmcfmb*p3p13+4*p1p13-4*
5694      . p2p13+5*p3p13+4*p4p13)+8*p3p6*(-ffmcfmb*p3p12-2*p1p12)+4*(-
5695      . ffmcfmb*hbcm2*p6p12+ffmcfmb*hbcm2*p7p13-fmb*hbcm*p7p13+fmc*
5696      . hbcm*p6p12+2*fmc*hbcm*p7p13+hbcm2*p7p13+4*p1p3*p6p12-2*p3p12*
5697      . p4p6+p3p13*p5p7+4*p3p4*p7p13))
5698       ans2=w1*(16*(p4p6*p3p7)*(-p1p8+2*p2p8-2*p3p8-2*p4p8)+16*(p6p7*
5699      . p1p3)*(p2p8+p4p8-p5p8)+16*(p3p7*p3p6)*(-2*ffmcfmb*p1p8+2*
5700      . ffmcfmb*p2p8-2*ffmcfmb*p3p8-2*ffmcfmb*p4p8+p1p8)+16*(p3p7*p1p3
5701      . )*(-2*ffmcfmb*p6p8+p6p8)+16*(p3p6*p1p3)*(ffmcfmb*p7p8-p7p8)+4*
5702      . p5p7*(-ffmcfmb*hbcm2*p6p8+fmc*hbcm*p6p8)+4*p5p6*(ffmcfmb*hbcm2
5703      . *p7p8-fmc*hbcm*p7p8)+4*p4p7*(ffmcfmb*hbcm2*p6p8-fmc*hbcm*p6p8)
5704      . +8*p4p6*(ffmcfmb*hbcm2*p7p8-2*fmb*hbcm*p7p8+fmc*hbcm*p7p8)+4*
5705      . p6p7*(ffmcfmb*hbcm2*p1p8-ffmcfmb*hbcm2*p2p8-ffmcfmb*hbcm2*p4p8
5706      . +ffmcfmb*hbcm2*p5p8-fmc*hbcm*p1p8+fmc*hbcm*p2p8+fmc*hbcm*p4p8-
5707      . fmc*hbcm*p5p8-4*hbcm2*p1p8)+4*p3p7*(2*ffmcfmb**2*hbcm2*p6p8-2*
5708      . ffmcfmb*fmc*hbcm*p6p8-ffmcfmb*hbcm2*p6p8+fmc*hbcm*p6p8)+4*p3p6
5709      . *(ffmcfmb**2*hbcm2*p7p8-4*ffmcfmb*fmb*hbcm*p7p8+3*ffmcfmb*fmc*
5710      . hbcm*p7p8+ffmcfmb*hbcm2*p7p8-fmc*hbcm*p7p8)+16*(-ffmcfmb*p2p3*
5711      . p3p6*p7p8+ffmcfmb*p3p4*p3p6*p7p8-ffmcfmb*p3p5*p3p6*p7p8-p1p3*
5712      . p4p7*p6p8-p1p3*p5p6*p7p8+p1p3*p5p7*p6p8+p1p8*p2p3*p6p7-p1p8*
5713      . p3p4*p6p7-p1p8*p3p5*p6p7+p1p8*p3p7*p5p6-p2p3*p4p6*p7p8+p3p4*
5714      . p4p6*p7p8-p3p5*p4p6*p7p8))+ans3+ans6
5715       ans1=w2*(16*(p4p6*p3p7)*(p1p9-2*p2p9+2*p3p9+2*p4p9)+16*(p6p7*
5716      . p1p3)*(-p2p9-p4p9+p5p9)+16*(p3p7*p3p6)*(2*ffmcfmb*p1p9-2*
5717      . ffmcfmb*p2p9+2*ffmcfmb*p3p9+2*ffmcfmb*p4p9-p1p9)+16*(p3p7*p1p3
5718      . )*(2*ffmcfmb*p6p9-p6p9)+16*(p3p6*p1p3)*(-ffmcfmb*p7p9+p7p9)+4*
5719      . p5p7*(ffmcfmb*hbcm2*p6p9-fmc*hbcm*p6p9)+4*p5p6*(-ffmcfmb*hbcm2
5720      . *p7p9+fmc*hbcm*p7p9)+4*p4p7*(-ffmcfmb*hbcm2*p6p9+fmc*hbcm*p6p9
5721      . )+8*p4p6*(-ffmcfmb*hbcm2*p7p9+2*fmb*hbcm*p7p9-fmc*hbcm*p7p9)+4
5722      . *p6p7*(-ffmcfmb*hbcm2*p1p9+ffmcfmb*hbcm2*p2p9+ffmcfmb*hbcm2*
5723      . p4p9-ffmcfmb*hbcm2*p5p9+fmc*hbcm*p1p9-fmc*hbcm*p2p9-fmc*hbcm*
5724      . p4p9+fmc*hbcm*p5p9+4*hbcm2*p1p9)+4*p3p7*(-2*ffmcfmb**2*hbcm2*
5725      . p6p9+2*ffmcfmb*fmc*hbcm*p6p9+ffmcfmb*hbcm2*p6p9-fmc*hbcm*p6p9)
5726      . +4*p3p6*(-ffmcfmb**2*hbcm2*p7p9+4*ffmcfmb*fmb*hbcm*p7p9-3*
5727      . ffmcfmb*fmc*hbcm*p7p9-ffmcfmb*hbcm2*p7p9+fmc*hbcm*p7p9)+16*(
5728      . ffmcfmb*p2p3*p3p6*p7p9-ffmcfmb*p3p4*p3p6*p7p9+ffmcfmb*p3p5*
5729      . p3p6*p7p9+p1p3*p4p7*p6p9+p1p3*p5p6*p7p9-p1p3*p5p7*p6p9-p1p9*
5730      . p2p3*p6p7+p1p9*p3p4*p6p7+p1p9*p3p5*p6p7-p1p9*p3p7*p5p6+p2p3*
5731      . p4p6*p7p9-p3p4*p4p6*p7p9+p3p5*p4p6*p7p9))+ans2
5732       ans=ccc*ans1
5733       b(30)=ans
5734       b(31)=ccc*(w5*(12*p4p6*(fmb+fmc-hbcm)+2*p5p6*(ffmcfmb*hbcm-fmc)
5735      . +2*p3p6*(-ffmcfmb**2*hbcm+6*ffmcfmb*fmb+7*ffmcfmb*fmc-5*
5736      . ffmcfmb*hbcm-fmc))+w1*(12*p4p6*(fmb+fmc-hbcm)+2*p5p6*(ffmcfmb*
5737      . hbcm-fmc)+2*p3p6*(-ffmcfmb**2*hbcm+6*ffmcfmb*fmb+7*ffmcfmb*fmc
5738      . -5*ffmcfmb*hbcm-fmc)))
5739       b(32)=w2*ccc*(12*p4p6*(fmb+fmc-hbcm)+2*p5p6*(ffmcfmb*hbcm-fmc)+
5740      . 2*p3p6*(-ffmcfmb**2*hbcm+6*ffmcfmb*fmb+7*ffmcfmb*fmc-5*ffmcfmb
5741      . *hbcm-fmc))
5742       ans2=w5*(4*p5p7*(-ffmcfmb*hbcm*p6p10+ffmcfmb*hbcm*p6p8+fmc*
5743      . p6p10-fmc*p6p8)+4*p4p7*(ffmcfmb*hbcm*p6p10-ffmcfmb*hbcm*p6p8-
5744      . fmc*p6p10+fmc*p6p8)+8*p4p6*(ffmcfmb*hbcm*p7p10-ffmcfmb*hbcm*
5745      . p7p8-fmb*p7p10+fmb*p7p8-2*fmc*p7p10+2*fmc*p7p8+hbcm*p7p10-hbcm
5746      . *p7p8)+4*p6p7*(ffmcfmb*hbcm*p1p10-ffmcfmb*hbcm*p1p8-ffmcfmb*
5747      . hbcm*p2p10+ffmcfmb*hbcm*p2p8-ffmcfmb*hbcm*p4p10+ffmcfmb*hbcm*
5748      . p4p8+ffmcfmb*hbcm*p5p10-ffmcfmb*hbcm*p5p8-2*fmb*p1p10+2*fmb*
5749      . p1p8-3*fmc*p1p10+3*fmc*p1p8+fmc*p2p10-fmc*p2p8+fmc*p4p10-fmc*
5750      . p4p8-fmc*p5p10+fmc*p5p8+2*hbcm*p1p10-2*hbcm*p1p8)+4*p3p7*(2*
5751      . ffmcfmb**2*hbcm*p6p10-2*ffmcfmb**2*hbcm*p6p8-2*ffmcfmb*fmc*
5752      . p6p10+2*ffmcfmb*fmc*p6p8-ffmcfmb*hbcm*p6p10+ffmcfmb*hbcm*p6p8+
5753      . fmc*p6p10-fmc*p6p8)+8*p3p6*(ffmcfmb**2*hbcm*p7p10-ffmcfmb**2*
5754      . hbcm*p7p8-ffmcfmb*fmb*p7p10+ffmcfmb*fmb*p7p8-2*ffmcfmb*fmc*
5755      . p7p10+2*ffmcfmb*fmc*p7p8+ffmcfmb*hbcm*p7p10-ffmcfmb*hbcm*p7p8)
5756      . )+4*(ffmcfmb*hbcm*p6p12+ffmcfmb*hbcm*p7p13-fmb*p7p13-fmc*p6p12
5757      . -2*fmc*p7p13+hbcm*p7p13)
5758       ans1=w2*(4*p5p7*(-ffmcfmb*hbcm*p6p9+fmc*p6p9)+4*p4p7*(ffmcfmb*
5759      . hbcm*p6p9-fmc*p6p9)+8*p4p6*(ffmcfmb*hbcm*p7p9-fmb*p7p9-2*fmc*
5760      . p7p9+hbcm*p7p9)+4*p6p7*(ffmcfmb*hbcm*p1p9-ffmcfmb*hbcm*p2p9-
5761      . ffmcfmb*hbcm*p4p9+ffmcfmb*hbcm*p5p9-fmc*p1p9+fmc*p2p9+fmc*p4p9
5762      . -fmc*p5p9)+4*p3p7*(2*ffmcfmb**2*hbcm*p6p9-2*ffmcfmb*fmc*p6p9-
5763      . ffmcfmb*hbcm*p6p9+fmc*p6p9)+8*p3p6*(ffmcfmb**2*hbcm*p7p9-
5764      . ffmcfmb*fmb*p7p9-2*ffmcfmb*fmc*p7p9+ffmcfmb*hbcm*p7p9))+w1*(4*
5765      . p5p7*(ffmcfmb*hbcm*p6p8-fmc*p6p8)+4*p4p7*(-ffmcfmb*hbcm*p6p8+
5766      . fmc*p6p8)+8*p4p6*(-ffmcfmb*hbcm*p7p8+fmb*p7p8+2*fmc*p7p8-hbcm*
5767      . p7p8)+4*p6p7*(-ffmcfmb*hbcm*p1p8+ffmcfmb*hbcm*p2p8+ffmcfmb*
5768      . hbcm*p4p8-ffmcfmb*hbcm*p5p8+2*fmb*p1p8+3*fmc*p1p8-fmc*p2p8-fmc
5769      . *p4p8+fmc*p5p8-2*hbcm*p1p8)+4*p3p7*(-2*ffmcfmb**2*hbcm*p6p8+2*
5770      . ffmcfmb*fmc*p6p8+ffmcfmb*hbcm*p6p8-fmc*p6p8)+8*p3p6*(-ffmcfmb
5771      . **2*hbcm*p7p8+ffmcfmb*fmb*p7p8+2*ffmcfmb*fmc*p7p8-ffmcfmb*hbcm
5772      . *p7p8))+ans2
5773       ans=ccc*ans1
5774       b(33)=ans
5775       b(37)=w2*ccc*(2*p3p7*(-8*ffmcfmb*hbcm+3*hbcm)+2*(-5*hbcm*p4p7+3
5776      . *hbcm*p5p7))
5777       b(42)=w2*ccc*((p3p7*p3p6)*(-32*ffmcfmb+8)+4*p6p7*(2*ffmcfmb*
5778      . hbcm2-fmb*hbcm+fmc*hbcm-hbcm2)+8*(-p1p3*p6p7+p2p3*p6p7+p3p4*
5779      . p6p7-p3p5*p6p7-p3p6*p4p7+p3p6*p5p7-2*p3p7*p4p6))
5780       b(43)=ccc*(w2*(8*p6p7*(-p1p9+p2p9+p4p9-p5p9)+8*p3p7*(-2*ffmcfmb
5781      . *p6p9+p6p9)+8*(-2*ffmcfmb*p3p6*p7p9-2*p4p6*p7p9-p4p7*p6p9+p5p7
5782      . *p6p9))+w1*(8*p6p7*(p1p8-p2p8-p4p8+p5p8)+8*p3p7*(2*ffmcfmb*
5783      . p6p8-p6p8)+8*(2*ffmcfmb*p3p6*p7p8+2*p4p6*p7p8+p4p7*p6p8-p5p7*
5784      . p6p8))+w5*(8*p5p7*(p6p10-p6p8)+8*p4p7*(-p6p10+p6p8)+16*p4p6*(-
5785      . p7p10+p7p8)+8*p6p7*(-p1p10+p1p8+p2p10-p2p8+p4p10-p4p8-p5p10+
5786      . p5p8)+8*p3p7*(-2*ffmcfmb*p6p10+2*ffmcfmb*p6p8+p6p10-p6p8)+16*
5787      . p3p6*(-ffmcfmb*p7p10+ffmcfmb*p7p8))+8*(-p6p12-p7p13))
5788       b(47)=w2*ccc*(p3p6*(-16*ffmcfmb+4)+4*(-3*p4p6+p5p6))
5789       b(52)=w2*ccc*(p3p7*(-16*ffmcfmb+6)+2*(-5*p4p7+3*p5p7))
5790       b(56)=-ccc
5791       b(57)=-8*ccc
5792       b(59)=ccc*hbcm
5793       b(60)=w2*ccc*(4*p3p6*(4*ffmcfmb*hbcm-hbcm)+4*(3*hbcm*p4p6-hbcm*
5794      . p5p6))
5795       b(61)=-8*ccc*hbcm
5796       b(62)=ccc*(2*p3p6*(3*ffmcfmb*hbcm-fmb+hbcm)+8*hbcm*p4p6)
5797       b(63)=w5*ccc*((p3p7*p3p6)*(-32*ffmcfmb+8)+4*p6p7*(2*ffmcfmb*
5798      . hbcm2-fmb*hbcm+fmc*hbcm-hbcm2)+8*(-p1p3*p6p7+p2p3*p6p7+p3p4*
5799      . p6p7-p3p5*p6p7-p3p6*p4p7+p3p6*p5p7-2*p3p7*p4p6))
5800       b(64)=w5*ccc*(2*p6p7*(-ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm-
5801      . ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2-fmb*fmc+fmc*hbcm+2*fmc2)+4*(2*
5802      . ffmcfmb*p3p6*p3p7-2*ffmcfmb*p3p6*p4p7+6*ffmcfmb*p3p6*p5p7-2*
5803      . p1p2*p6p7+2*p1p3*p6p7-2*p1p4*p6p7+2*p1p5*p6p7+3*p3p7*p4p6-p4p6
5804      . *p4p7+7*p4p6*p5p7))
5805       b(65)=ccc*(w5*((p3p7*p3p6)*(32*ffmcfmb-8)+4*p6p7*(-2*ffmcfmb*
5806      . hbcm2+fmb*hbcm-fmc*hbcm+hbcm2)+8*(p1p3*p6p7-p2p3*p6p7-p3p4*
5807      . p6p7+p3p5*p6p7+p3p6*p4p7-p3p6*p5p7+2*p3p7*p4p6))+w1*((p3p7*
5808      . p3p6)*(32*ffmcfmb-8)+4*p6p7*(-2*ffmcfmb*hbcm2+fmb*hbcm-fmc*
5809      . hbcm+hbcm2)+8*(p1p3*p6p7-p2p3*p6p7-p3p4*p6p7+p3p5*p6p7+p3p6*
5810      . p4p7-p3p6*p5p7+2*p3p7*p4p6)))
5811       ans=ccc*(w2*(8*p6p7*(-hbcm*p1p9+hbcm*p2p9+hbcm*p4p9-hbcm*p5p9)+
5812      . 8*p3p7*(-2*ffmcfmb*hbcm*p6p9+hbcm*p6p9)+8*(-2*ffmcfmb*hbcm*
5813      . p3p6*p7p9-2*hbcm*p4p6*p7p9-hbcm*p4p7*p6p9+hbcm*p5p7*p6p9))+w1*
5814      . (8*p6p7*(hbcm*p1p8-hbcm*p2p8-hbcm*p4p8+hbcm*p5p8)+8*p3p7*(2*
5815      . ffmcfmb*hbcm*p6p8-hbcm*p6p8)+8*(2*ffmcfmb*hbcm*p3p6*p7p8+2*
5816      . hbcm*p4p6*p7p8+hbcm*p4p7*p6p8-hbcm*p5p7*p6p8))+w5*(8*p5p7*(
5817      . hbcm*p6p10-hbcm*p6p8)+8*p4p7*(-hbcm*p6p10+hbcm*p6p8)+16*p4p6*(
5818      . -hbcm*p7p10+hbcm*p7p8)+8*p6p7*(-hbcm*p1p10+hbcm*p1p8+hbcm*
5819      . p2p10-hbcm*p2p8+hbcm*p4p10-hbcm*p4p8-hbcm*p5p10+hbcm*p5p8)+8*
5820      . p3p7*(-2*ffmcfmb*hbcm*p6p10+2*ffmcfmb*hbcm*p6p8+hbcm*p6p10-
5821      . hbcm*p6p8)+16*p3p6*(-ffmcfmb*hbcm*p7p10+ffmcfmb*hbcm*p7p8))+8*
5822      . (-hbcm*p6p12-hbcm*p7p13))
5823       b(66)=ans
5824       b(67)=w5*ccc*(p3p6*(-16*ffmcfmb+4)+4*(-3*p4p6+p5p6))
5825       b(68)=ccc*(w5*(p3p6*(16*ffmcfmb-4)+4*(3*p4p6-p5p6))+w1*(p3p6*(
5826      . 16*ffmcfmb-4)+4*(3*p4p6-p5p6)))
5827       b(69)=w5*ccc*(p3p7*(-16*ffmcfmb+6)+2*(-5*p4p7+3*p5p7))
5828       b(70)=w5*ccc*((p3p7*p3p4)*(4*ffmcfmb-4)+(p3p7*p1p3)*(12*ffmcfmb
5829      . -4)+2*p4p7*(ffmcfmb*hbcm2+fmb*hbcm-2*fmc*hbcm+hbcm2)+2*p3p7*(3
5830      . *ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*hbcm-ffmcfmb*
5831      . hbcm2)+4*(-ffmcfmb*hbcm2*p5p7-ffmcfmb*p2p3*p3p7+ffmcfmb*p3p5*
5832      . p3p7+2*p1p3*p4p7-p1p3*p5p7-p2p3*p4p7-p3p4*p5p7+p3p5*p4p7))
5833       b(71)=ccc*(w5*(p3p7*(16*ffmcfmb-6)+2*(5*p4p7-3*p5p7))+w1*(p3p7*
5834      . (16*ffmcfmb-6)+2*(5*p4p7-3*p5p7)))
5835       b(72)=w5*ccc*(p3p4*(2*ffmcfmb-2)+p1p3*(2*ffmcfmb-2)+2*(ffmcfmb
5836      . **2*hbcm2-ffmcfmb*hbcm2-ffmcfmb*p2p3-ffmcfmb*p3p5-p1p2-p1p5-
5837      . p2p4-p4p5))+ccc
5838       b(74)=ccc*(4*w5*p6p7*(-fmb-fmc+hbcm)+4*w1*p6p7*(-fmb-fmc+hbcm))
5839       b(79)=4*ccc*w2*p6p7*(fmb+fmc-hbcm)
5840       b(80)=w2*ccc*(2*p4p7*(ffmcfmb*hbcm-fmb-2*fmc+hbcm)+2*p3p7*(
5841      . ffmcfmb**2*hbcm-ffmcfmb*fmb-2*ffmcfmb*fmc+ffmcfmb*hbcm))
5842       b(81)=4*ccc*w5*p6p7*(fmb+fmc-hbcm)
5843       b(82)=-8*ccc*p3p7
5844       b(83)=ccc*(4*p3p7*(ffmcfmb*hbcm+fmb+2*fmc-hbcm)+8*hbcm*p5p7)
5845       b(84)=4*ccc*(p3p7-p4p7+3*p5p7)
5846       b(85)=ccc*(-3*ffmcfmb*hbcm2+6*fmb*hbcm-7*fmc*hbcm-2*hbcm2-4*
5847      . p1p3+4*p2p3-12*p3p4+4*p3p5)
5848       b(86)=-8*ccc
5849       b(87)=ccc*(-ffmcfmb*hbcm+6*fmb+7*fmc-6*hbcm)
5850       b(88)=w5*ccc*(2*p4p7*(ffmcfmb*hbcm-fmb-2*fmc+hbcm)+2*p3p7*(
5851      . ffmcfmb**2*hbcm-ffmcfmb*fmb-2*ffmcfmb*fmc+ffmcfmb*hbcm))
5852       b(89)=-8*ccc*hbcm
5853       b(91)=ccc*(w5*(2*p4p7*(-ffmcfmb*hbcm+fmb+2*fmc-hbcm)+2*p3p7*(-
5854      . ffmcfmb**2*hbcm+ffmcfmb*fmb+2*ffmcfmb*fmc-ffmcfmb*hbcm))+w1*(2
5855      . *p4p7*(-ffmcfmb*hbcm+fmb+2*fmc-hbcm)+2*p3p7*(-ffmcfmb**2*hbcm+
5856      . ffmcfmb*fmb+2*ffmcfmb*fmc-ffmcfmb*hbcm)))
5857       b(92)=ccc*(3*ffmcfmb*hbcm2+fmb*hbcm-2*fmc*hbcm+hbcm2+6*p1p3-2*
5858      . p2p3+2*p3p4+2*p3p5)
5859       b(93)=8*ccc*p3p6
5860       b(94)=ccc*(-ffmcfmb*hbcm+fmb+2*fmc-hbcm)
5861       do 200 n=1,94
5862          c(n,1)=c(n,1)+0.1818181818181818d0*b(n)
5863          c(n,2)=c(n,2)+0.9833321660356334d0*b(n)
5864 200   continue
5865       return
5866       end
5867
5868       subroutine amp35_3p2(cc)
5869       implicit double precision(a-h,o-z)
5870       implicit integer (i-n)
5871       dimension b(94)
5872 #include "inclcon.h"
5873 #include "inclppp.h"
5874 #include "inclamp.h"
5875       do 100 n=1,94
5876          b(n)=0.0d0
5877 100   continue
5878       ccc=cc/((ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*p3p5+fmb2+
5879      . hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p2p3+2*ffmcfmb*p3p4+
5880      . fmc2-2*p2p4)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2))
5881       ans=ccc*(w11*((p5p6*p3p7)*(-8*ffmcfmb+4)+(p5p7*p3p6)*(-28*
5882      . ffmcfmb+20)+(p4p7*p3p6)*(4*ffmcfmb-4)+(p3p7*p3p6)*(-20*ffmcfmb
5883      . +12)+(p6p7*p3p4)*(-4*ffmcfmb-4)+(p6p7*p2p3)*(-4*ffmcfmb+12)+2*
5884      . p6p7*(-ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm-
5885      . ffmcfmb*hbcm2+fmb*fmc-fmc*hbcm-2*fmc2)+4*(ffmcfmb*p1p3*p6p7+
5886      . ffmcfmb*p3p5*p6p7-2*ffmcfmb*p3p7*p4p6+p1p2*p6p7+p1p4*p6p7+2*
5887      . p1p5*p6p7+2*p2p4*p6p7+p2p5*p6p7+p4p5*p6p7-2*p4p6*p5p7-3*p4p7*
5888      . p5p6+3*p5p6*p5p7))+w1*((p5p6*p3p7)*(-8*ffmcfmb+4)+(p5p7*p3p6)*
5889      . (-28*ffmcfmb+20)+(p4p7*p3p6)*(4*ffmcfmb-4)+(p3p7*p3p6)*(-20*
5890      . ffmcfmb+12)+(p6p7*p3p4)*(-4*ffmcfmb-4)+(p6p7*p2p3)*(-4*ffmcfmb
5891      . +12)+2*p6p7*(-ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm+ffmcfmb*fmc*
5892      . hbcm-ffmcfmb*hbcm2+fmb*fmc-fmc*hbcm-2*fmc2)+4*(ffmcfmb*p1p3*
5893      . p6p7+ffmcfmb*p3p5*p6p7-2*ffmcfmb*p3p7*p4p6+p1p2*p6p7+p1p4*p6p7
5894      . +2*p1p5*p6p7+2*p2p4*p6p7+p2p5*p6p7+p4p5*p6p7-2*p4p6*p5p7-3*
5895      . p4p7*p5p6+3*p5p6*p5p7))+2*p6p7)
5896       b(1)=ans
5897       b(2)=ccc*(w2*((p5p6*p3p7)*(8*ffmcfmb-4)+(p5p7*p3p6)*(28*ffmcfmb
5898      . -20)+(p4p7*p3p6)*(-4*ffmcfmb+4)+(p3p7*p3p6)*(20*ffmcfmb-12)+(
5899      . p6p7*p3p4)*(4*ffmcfmb+4)+(p6p7*p2p3)*(4*ffmcfmb-12)+2*p6p7*(
5900      . ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm+ffmcfmb*
5901      . hbcm2-fmb*fmc+fmc*hbcm+2*fmc2)+4*(-ffmcfmb*p1p3*p6p7-ffmcfmb*
5902      . p3p5*p6p7+2*ffmcfmb*p3p7*p4p6-p1p2*p6p7-p1p4*p6p7-2*p1p5*p6p7-
5903      . 2*p2p4*p6p7-p2p5*p6p7-p4p5*p6p7+2*p4p6*p5p7+3*p4p7*p5p6-3*p5p6
5904      . *p5p7))-2*p6p7)
5905       ans2=w11*(8*p5p7*(p5p11-p5p8)+4*p4p5*(-p7p11+p7p8)+4*p2p5*(-
5906      . p7p11+p7p8)+4*p1p4*(-p7p11+p7p8)+4*p1p2*(-p7p11+p7p8)+8*p4p7*(
5907      . -p1p11+p1p8+p2p11-p2p8-p4p11+p4p8)+4*p3p5*(-ffmcfmb*p7p11+
5908      . ffmcfmb*p7p8)+4*p3p4*(ffmcfmb*p7p11-ffmcfmb*p7p8-p7p11+p7p8)+4
5909      . *p2p3*(ffmcfmb*p7p11-ffmcfmb*p7p8-p7p11+p7p8)+4*p1p3*(-ffmcfmb
5910      . *p7p11+ffmcfmb*p7p8)+8*p3p7*(-ffmcfmb*p1p11+ffmcfmb*p1p8+
5911      . ffmcfmb*p2p11-ffmcfmb*p2p8-ffmcfmb*p4p11+ffmcfmb*p4p8-ffmcfmb*
5912      . p5p11+ffmcfmb*p5p8+p5p11-p5p8)+4*(ffmcfmb**2*hbcm2*p7p11-
5913      . ffmcfmb**2*hbcm2*p7p8-ffmcfmb*hbcm2*p7p11+ffmcfmb*hbcm2*p7p8))
5914      . +2*(-2*p1p12+2*p2p12-2*p4p12-2*p5p12-p7p10+p7p11+p7p8-p7p9)
5915       ans1=w2*(8*p4p7*(-p1p9+p2p9-p4p9)+4*p3p4*(ffmcfmb*p7p9-p7p9)+4*
5916      . p2p3*(ffmcfmb*p7p9-p7p9)+8*p3p7*(-ffmcfmb*p1p9+ffmcfmb*p2p9-
5917      . ffmcfmb*p4p9-ffmcfmb*p5p9+p5p9)+4*(ffmcfmb**2*hbcm2*p7p9-
5918      . ffmcfmb*hbcm2*p7p9-ffmcfmb*p1p3*p7p9-ffmcfmb*p3p5*p7p9-p1p2*
5919      . p7p9-p1p4*p7p9-p2p5*p7p9-p4p5*p7p9+2*p5p7*p5p9))+w1*(8*p4p7*(
5920      . p1p8-p2p8+p4p8)+4*p3p4*(-ffmcfmb*p7p8+p7p8)+4*p2p3*(-ffmcfmb*
5921      . p7p8+p7p8)+8*p3p7*(ffmcfmb*p1p8-ffmcfmb*p2p8+ffmcfmb*p4p8+
5922      . ffmcfmb*p5p8-p5p8)+4*(-ffmcfmb**2*hbcm2*p7p8+ffmcfmb*hbcm2*
5923      . p7p8+ffmcfmb*p1p3*p7p8+ffmcfmb*p3p5*p7p8+p1p2*p7p8+p1p4*p7p8+
5924      . p2p5*p7p8+p4p5*p7p8-2*p5p7*p5p8))+ans2
5925       ans=ccc*ans1
5926       b(3)=ans
5927       ans=ccc*(w11*((p3p7*p3p5)*(-12*ffmcfmb+8)+(p3p7*p3p4)*(-4*
5928      . ffmcfmb-4)+(p3p7*p2p3)*(12*ffmcfmb-4)+2*p5p7*(-ffmcfmb*hbcm2+2
5929      . *fmb*hbcm-fmc*hbcm+2*hbcm2)+2*p3p7*(-ffmcfmb**2*hbcm2-2*
5930      . ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm-5*ffmcfmb*hbcm2+2*fmb*hbcm-
5931      . fmc*hbcm+2*hbcm2)+4*(-2*ffmcfmb*hbcm2*p4p7-3*ffmcfmb*p1p3*p3p7
5932      . -p1p2*p3p7-2*p1p3*p4p7-p1p4*p3p7+2*p2p3*p4p7-p2p5*p3p7-2*p3p4*
5933      . p4p7+2*p3p5*p5p7-p3p7*p4p5))+w1*((p3p7*p3p5)*(-12*ffmcfmb+8)+(
5934      . p3p7*p3p4)*(-4*ffmcfmb-4)+(p3p7*p2p3)*(12*ffmcfmb-4)+2*p5p7*(-
5935      . ffmcfmb*hbcm2+2*fmb*hbcm-fmc*hbcm+2*hbcm2)+2*p3p7*(-ffmcfmb**2
5936      . *hbcm2-2*ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm-5*ffmcfmb*hbcm2+2*
5937      . fmb*hbcm-fmc*hbcm+2*hbcm2)+4*(-2*ffmcfmb*hbcm2*p4p7-3*ffmcfmb*
5938      . p1p3*p3p7-p1p2*p3p7-2*p1p3*p4p7-p1p4*p3p7+2*p2p3*p4p7-p2p5*
5939      . p3p7-2*p3p4*p4p7+2*p3p5*p5p7-p3p7*p4p5))-2*p3p7)
5940       b(4)=ans
5941       b(5)=ccc*(w2*((p3p7*p3p5)*(12*ffmcfmb-8)+(p3p7*p3p4)*(4*ffmcfmb
5942      . +4)+(p3p7*p2p3)*(-12*ffmcfmb+4)+2*p5p7*(ffmcfmb*hbcm2-2*fmb*
5943      . hbcm+fmc*hbcm-2*hbcm2)+2*p3p7*(ffmcfmb**2*hbcm2+2*ffmcfmb*fmb*
5944      . hbcm-ffmcfmb*fmc*hbcm+5*ffmcfmb*hbcm2-2*fmb*hbcm+fmc*hbcm-2*
5945      . hbcm2)+4*(2*ffmcfmb*hbcm2*p4p7+3*ffmcfmb*p1p3*p3p7+p1p2*p3p7+2
5946      . *p1p3*p4p7+p1p4*p3p7-2*p2p3*p4p7+p2p5*p3p7+2*p3p4*p4p7-2*p3p5*
5947      . p5p7+p3p7*p4p5))+2*p3p7)
5948       ans2=w11*(8*p5p7*(-hbcm*p5p11+hbcm*p5p8)+4*p4p5*(hbcm*p7p11-
5949      . hbcm*p7p8)+4*p2p5*(hbcm*p7p11-hbcm*p7p8)+4*p1p4*(hbcm*p7p11-
5950      . hbcm*p7p8)+4*p1p2*(hbcm*p7p11-hbcm*p7p8)+8*p4p7*(hbcm*p1p11-
5951      . hbcm*p1p8-hbcm*p2p11+hbcm*p2p8+hbcm*p4p11-hbcm*p4p8)+4*p3p5*(
5952      . ffmcfmb*hbcm*p7p11-ffmcfmb*hbcm*p7p8)+4*p3p4*(-ffmcfmb*hbcm*
5953      . p7p11+ffmcfmb*hbcm*p7p8+hbcm*p7p11-hbcm*p7p8)+4*p2p3*(-ffmcfmb
5954      . *hbcm*p7p11+ffmcfmb*hbcm*p7p8+hbcm*p7p11-hbcm*p7p8)+4*p1p3*(
5955      . ffmcfmb*hbcm*p7p11-ffmcfmb*hbcm*p7p8)+8*p3p7*(ffmcfmb*hbcm*
5956      . p1p11-ffmcfmb*hbcm*p1p8-ffmcfmb*hbcm*p2p11+ffmcfmb*hbcm*p2p8+
5957      . ffmcfmb*hbcm*p4p11-ffmcfmb*hbcm*p4p8+ffmcfmb*hbcm*p5p11-
5958      . ffmcfmb*hbcm*p5p8-hbcm*p5p11+hbcm*p5p8)+4*(-ffmcfmb**2*hbcm3*
5959      . p7p11+ffmcfmb**2*hbcm3*p7p8+ffmcfmb*hbcm3*p7p11-ffmcfmb*hbcm3*
5960      . p7p8))+2*(2*hbcm*p1p12-2*hbcm*p2p12+2*hbcm*p4p12+2*hbcm*p5p12+
5961      . hbcm*p7p10-hbcm*p7p11-hbcm*p7p8+hbcm*p7p9)
5962       ans1=w2*(8*p4p7*(hbcm*p1p9-hbcm*p2p9+hbcm*p4p9)+4*p3p4*(-
5963      . ffmcfmb*hbcm*p7p9+hbcm*p7p9)+4*p2p3*(-ffmcfmb*hbcm*p7p9+hbcm*
5964      . p7p9)+8*p3p7*(ffmcfmb*hbcm*p1p9-ffmcfmb*hbcm*p2p9+ffmcfmb*hbcm
5965      . *p4p9+ffmcfmb*hbcm*p5p9-hbcm*p5p9)+4*(-ffmcfmb**2*hbcm3*p7p9+
5966      . ffmcfmb*hbcm*p1p3*p7p9+ffmcfmb*hbcm*p3p5*p7p9+ffmcfmb*hbcm3*
5967      . p7p9+hbcm*p1p2*p7p9+hbcm*p1p4*p7p9+hbcm*p2p5*p7p9+hbcm*p4p5*
5968      . p7p9-2*hbcm*p5p7*p5p9))+w1*(8*p4p7*(-hbcm*p1p8+hbcm*p2p8-hbcm*
5969      . p4p8)+4*p3p4*(ffmcfmb*hbcm*p7p8-hbcm*p7p8)+4*p2p3*(ffmcfmb*
5970      . hbcm*p7p8-hbcm*p7p8)+8*p3p7*(-ffmcfmb*hbcm*p1p8+ffmcfmb*hbcm*
5971      . p2p8-ffmcfmb*hbcm*p4p8-ffmcfmb*hbcm*p5p8+hbcm*p5p8)+4*(ffmcfmb
5972      . **2*hbcm3*p7p8-ffmcfmb*hbcm*p1p3*p7p8-ffmcfmb*hbcm*p3p5*p7p8-
5973      . ffmcfmb*hbcm3*p7p8-hbcm*p1p2*p7p8-hbcm*p1p4*p7p8-hbcm*p2p5*
5974      . p7p8-hbcm*p4p5*p7p8+2*hbcm*p5p7*p5p8))+ans2
5975       ans=ccc*ans1
5976       b(6)=ans
5977       ans2=w11*(4*p4p5*(-p6p11+p6p8)+4*p2p5*(-p6p11+p6p8)+4*p5p6*(-2*
5978      . p2p11+2*p2p8+3*p3p11-3*p3p8+4*p4p11-4*p4p8)+8*p4p6*(p2p11-p2p8
5979      . -2*p3p11+2*p3p8-2*p4p11+2*p4p8)+4*p1p4*(-p6p11+p6p8)+4*p1p2*(-
5980      . p6p11+p6p8)+4*p3p5*(-ffmcfmb*p6p11+ffmcfmb*p6p8)+4*p3p4*(
5981      . ffmcfmb*p6p11-ffmcfmb*p6p8-p6p11+p6p8)+4*p2p3*(ffmcfmb*p6p11-
5982      . ffmcfmb*p6p8-p6p11+p6p8)+4*p3p6*(4*ffmcfmb*p2p11-4*ffmcfmb*
5983      . p2p8-7*ffmcfmb*p3p11+7*ffmcfmb*p3p8-8*ffmcfmb*p4p11+8*ffmcfmb*
5984      . p4p8-2*p2p11+2*p2p8+3*p3p11-3*p3p8+4*p4p11-4*p4p8)+4*p1p3*(-
5985      . ffmcfmb*p6p11+ffmcfmb*p6p8)+4*(ffmcfmb**2*hbcm2*p6p11-ffmcfmb
5986      . **2*hbcm2*p6p8-ffmcfmb*hbcm2*p6p11+ffmcfmb*hbcm2*p6p8))+2*(4*
5987      . p2p13-7*p3p13-8*p4p13-p6p10+p6p11+p6p8-p6p9)
5988       ans1=w2*(4*p5p6*(-2*p2p9+3*p3p9+4*p4p9)+8*p4p6*(p2p9-2*p3p9-2*
5989      . p4p9)+4*p3p4*(ffmcfmb*p6p9-p6p9)+4*p3p6*(4*ffmcfmb*p2p9-7*
5990      . ffmcfmb*p3p9-8*ffmcfmb*p4p9-2*p2p9+3*p3p9+4*p4p9)+4*p2p3*(
5991      . ffmcfmb*p6p9-p6p9)+4*(ffmcfmb**2*hbcm2*p6p9-ffmcfmb*hbcm2*p6p9
5992      . -ffmcfmb*p1p3*p6p9-ffmcfmb*p3p5*p6p9-p1p2*p6p9-p1p4*p6p9-p2p5*
5993      . p6p9-p4p5*p6p9))+w1*(4*p5p6*(2*p2p8-3*p3p8-4*p4p8)+8*p4p6*(-
5994      . p2p8+2*p3p8+2*p4p8)+4*p3p4*(-ffmcfmb*p6p8+p6p8)+4*p3p6*(-4*
5995      . ffmcfmb*p2p8+7*ffmcfmb*p3p8+8*ffmcfmb*p4p8+2*p2p8-3*p3p8-4*
5996      . p4p8)+4*p2p3*(-ffmcfmb*p6p8+p6p8)+4*(-ffmcfmb**2*hbcm2*p6p8+
5997      . ffmcfmb*hbcm2*p6p8+ffmcfmb*p1p3*p6p8+ffmcfmb*p3p5*p6p8+p1p2*
5998      . p6p8+p1p4*p6p8+p2p5*p6p8+p4p5*p6p8))+ans2
5999       ans=ccc*ans1
6000       b(7)=ans
6001       ans=ccc*(w11*((p3p6*p3p4)*(-28*ffmcfmb+12)+(p3p6*p2p3)*(20*
6002      . ffmcfmb-12)+2*p5p6*(2*ffmcfmb*hbcm2-3*fmb*hbcm+3*fmc*hbcm+3*
6003      . hbcm2)+2*p4p6*(-ffmcfmb*hbcm2+4*fmb*hbcm-3*fmc*hbcm-4*hbcm2)+2
6004      . *p3p6*(-ffmcfmb**2*hbcm2+7*ffmcfmb*fmb*hbcm-6*ffmcfmb*fmc*hbcm
6005      . -7*ffmcfmb*hbcm2-3*fmb*hbcm+3*fmc*hbcm+3*hbcm2)+4*(-ffmcfmb*
6006      . p1p3*p3p6-ffmcfmb*p3p5*p3p6-p1p2*p3p6-p1p4*p3p6+2*p2p3*p4p6-2*
6007      . p2p3*p5p6-p2p5*p3p6-4*p3p4*p4p6+4*p3p4*p5p6-p3p6*p4p5))+w1*((
6008      . p3p6*p3p4)*(-28*ffmcfmb+12)+(p3p6*p2p3)*(20*ffmcfmb-12)+2*p5p6
6009      . *(2*ffmcfmb*hbcm2-3*fmb*hbcm+3*fmc*hbcm+3*hbcm2)+2*p4p6*(-
6010      . ffmcfmb*hbcm2+4*fmb*hbcm-3*fmc*hbcm-4*hbcm2)+2*p3p6*(-ffmcfmb
6011      . **2*hbcm2+7*ffmcfmb*fmb*hbcm-6*ffmcfmb*fmc*hbcm-7*ffmcfmb*
6012      . hbcm2-3*fmb*hbcm+3*fmc*hbcm+3*hbcm2)+4*(-ffmcfmb*p1p3*p3p6-
6013      . ffmcfmb*p3p5*p3p6-p1p2*p3p6-p1p4*p3p6+2*p2p3*p4p6-2*p2p3*p5p6-
6014      . p2p5*p3p6-4*p3p4*p4p6+4*p3p4*p5p6-p3p6*p4p5))-2*p3p6)
6015       b(8)=ans
6016       b(9)=ccc*(w2*((p3p6*p3p4)*(28*ffmcfmb-12)+(p3p6*p2p3)*(-20*
6017      . ffmcfmb+12)+2*p5p6*(-2*ffmcfmb*hbcm2+3*fmb*hbcm-3*fmc*hbcm-3*
6018      . hbcm2)+2*p4p6*(ffmcfmb*hbcm2-4*fmb*hbcm+3*fmc*hbcm+4*hbcm2)+2*
6019      . p3p6*(ffmcfmb**2*hbcm2-7*ffmcfmb*fmb*hbcm+6*ffmcfmb*fmc*hbcm+7
6020      . *ffmcfmb*hbcm2+3*fmb*hbcm-3*fmc*hbcm-3*hbcm2)+4*(ffmcfmb*p1p3*
6021      . p3p6+ffmcfmb*p3p5*p3p6+p1p2*p3p6+p1p4*p3p6-2*p2p3*p4p6+2*p2p3*
6022      . p5p6+p2p5*p3p6+4*p3p4*p4p6-4*p3p4*p5p6+p3p6*p4p5))+2*p3p6)
6023       ans4=4*(-ffmcfmb**2*hbcm3*p6p11+ffmcfmb**2*hbcm3*p6p8+ffmcfmb*
6024      . hbcm3*p6p11-ffmcfmb*hbcm3*p6p8)
6025       ans3=4*p4p5*(hbcm*p6p11-hbcm*p6p8)+4*p2p5*(hbcm*p6p11-hbcm*p6p8
6026      . )+4*p1p4*(hbcm*p6p11-hbcm*p6p8)+4*p1p2*(hbcm*p6p11-hbcm*p6p8)+
6027      . 4*p5p6*(3*fmb*p3p8+3*fmc*p3p8+3*hbcm*p1p11-3*hbcm*p1p8+2*hbcm*
6028      . p2p11-2*hbcm*p2p8-3*hbcm*p3p11-4*hbcm*p4p11+4*hbcm*p4p8)+4*
6029      . p4p6*(-ffmcfmb*hbcm*p3p8-4*fmb*p3p8-3*fmc*p3p8-5*hbcm*p1p11+5*
6030      . hbcm*p1p8-2*hbcm*p2p11+2*hbcm*p2p8+4*hbcm*p3p11+4*hbcm*p4p11-4
6031      . *hbcm*p4p8)+4*p3p5*(ffmcfmb*hbcm*p6p11-ffmcfmb*hbcm*p6p8)+4*
6032      . p3p4*(-ffmcfmb*hbcm*p6p11+ffmcfmb*hbcm*p6p8+hbcm*p6p11-hbcm*
6033      . p6p8)+4*p2p3*(-ffmcfmb*hbcm*p6p11+ffmcfmb*hbcm*p6p8+hbcm*p6p11
6034      . -hbcm*p6p8)+4*p1p3*(ffmcfmb*hbcm*p6p11-ffmcfmb*hbcm*p6p8)+4*
6035      . p3p6*(-ffmcfmb**2*hbcm*p3p8-7*ffmcfmb*fmb*p3p8-6*ffmcfmb*fmc*
6036      . p3p8-8*ffmcfmb*hbcm*p1p11+8*ffmcfmb*hbcm*p1p8-4*ffmcfmb*hbcm*
6037      . p2p11+4*ffmcfmb*hbcm*p2p8+7*ffmcfmb*hbcm*p3p11+8*ffmcfmb*hbcm*
6038      . p4p11-8*ffmcfmb*hbcm*p4p8+3*fmb*p3p8+3*fmc*p3p8+3*hbcm*p1p11-3
6039      . *hbcm*p1p8+2*hbcm*p2p11-2*hbcm*p2p8-3*hbcm*p3p11-4*hbcm*p4p11+
6040      . 4*hbcm*p4p8)+ans4
6041       ans2=w11*ans3
6042       ans5=w1*(4*p5p6*(3*fmb*p3p8+3*fmc*p3p8-3*hbcm*p1p8-2*hbcm*p2p8+
6043      . 4*hbcm*p4p8)+4*p4p6*(-ffmcfmb*hbcm*p3p8-4*fmb*p3p8-3*fmc*p3p8+
6044      . 5*hbcm*p1p8+2*hbcm*p2p8-4*hbcm*p4p8)+4*p3p4*(ffmcfmb*hbcm*p6p8
6045      . -hbcm*p6p8)+4*p2p3*(ffmcfmb*hbcm*p6p8-hbcm*p6p8)+4*p3p6*(-
6046      . ffmcfmb**2*hbcm*p3p8-7*ffmcfmb*fmb*p3p8-6*ffmcfmb*fmc*p3p8+8*
6047      . ffmcfmb*hbcm*p1p8+4*ffmcfmb*hbcm*p2p8-8*ffmcfmb*hbcm*p4p8+3*
6048      . fmb*p3p8+3*fmc*p3p8-3*hbcm*p1p8-2*hbcm*p2p8+4*hbcm*p4p8)+4*(
6049      . ffmcfmb**2*hbcm3*p6p8-ffmcfmb*hbcm*p1p3*p6p8-ffmcfmb*hbcm*p3p5
6050      . *p6p8-ffmcfmb*hbcm3*p6p8-hbcm*p1p2*p6p8-hbcm*p1p4*p6p8-hbcm*
6051      . p2p5*p6p8-hbcm*p4p5*p6p8))+2*(-4*hbcm*p2p13+7*hbcm*p3p13+8*
6052      . hbcm*p4p13+hbcm*p6p10-hbcm*p6p11-hbcm*p6p8+hbcm*p6p9)
6053       ans1=w2*(4*p5p6*(3*hbcm*p1p9+2*hbcm*p2p9-3*hbcm*p3p9-4*hbcm*
6054      . p4p9)+4*p4p6*(-5*hbcm*p1p9-2*hbcm*p2p9+4*hbcm*p3p9+4*hbcm*p4p9
6055      . )+4*p3p4*(-ffmcfmb*hbcm*p6p9+hbcm*p6p9)+4*p2p3*(-ffmcfmb*hbcm*
6056      . p6p9+hbcm*p6p9)+4*p3p6*(-8*ffmcfmb*hbcm*p1p9-4*ffmcfmb*hbcm*
6057      . p2p9+7*ffmcfmb*hbcm*p3p9+8*ffmcfmb*hbcm*p4p9+3*hbcm*p1p9+2*
6058      . hbcm*p2p9-3*hbcm*p3p9-4*hbcm*p4p9)+4*(-ffmcfmb**2*hbcm3*p6p9+
6059      . ffmcfmb*hbcm*p1p3*p6p9+ffmcfmb*hbcm*p3p5*p6p9+ffmcfmb*hbcm3*
6060      . p6p9+hbcm*p1p2*p6p9+hbcm*p1p4*p6p9+hbcm*p2p5*p6p9+hbcm*p4p5*
6061      . p6p9))+ans2+ans5
6062       ans=ccc*ans1
6063       b(10)=ans
6064       ans2=w1*(4*(p6p7*p2p3)*(2*fmb+fmc+hbcm)+4*(p5p6*p3p7)*(-ffmcfmb
6065      . *hbcm+fmb+2*fmc)+8*(p4p6*p3p7)*(-2*ffmcfmb*hbcm-fmb-fmc+hbcm)+
6066      . 4*(p5p7*p3p6)*(-6*ffmcfmb*hbcm+2*fmb+fmc+3*hbcm)+4*(p4p7*p3p6)
6067      . *(-ffmcfmb*hbcm+2*fmb-hbcm)+4*(p6p7*p3p5)*(2*ffmcfmb*hbcm-fmc)
6068      . +4*(p6p7*p3p4)*(-2*ffmcfmb*hbcm-2*fmb-fmc+hbcm)+2*p6p7*(-3*
6069      . ffmcfmb**2*hbcm3-3*ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*hbcm2+3*
6070      . ffmcfmb*hbcm3-fmb*fmc*hbcm-fmc*hbcm2-2*fmc2*hbcm)+4*(p3p7*p3p6
6071      . )*(-2*ffmcfmb**2*hbcm-3*ffmcfmb*fmb-5*ffmcfmb*fmc+3*fmb+3*fmc)
6072      . +4*(fmc*p1p3*p6p7+hbcm*p1p2*p6p7+hbcm*p1p4*p6p7+2*hbcm*p1p5*
6073      . p6p7+2*hbcm*p2p4*p6p7+hbcm*p2p5*p6p7+hbcm*p4p5*p6p7-2*hbcm*
6074      . p4p6*p4p7-2*hbcm*p4p6*p5p7-hbcm*p4p7*p5p6+3*hbcm*p5p6*p5p7))+2
6075      . *hbcm*p6p7
6076       ans1=w11*(4*(p6p7*p2p3)*(2*fmb+fmc+hbcm)+4*(p5p6*p3p7)*(-
6077      . ffmcfmb*hbcm+fmb+2*fmc)+8*(p4p6*p3p7)*(-2*ffmcfmb*hbcm-fmb-fmc
6078      . +hbcm)+4*(p5p7*p3p6)*(-6*ffmcfmb*hbcm+2*fmb+fmc+3*hbcm)+4*(
6079      . p4p7*p3p6)*(-ffmcfmb*hbcm+2*fmb-hbcm)+4*(p6p7*p3p5)*(2*ffmcfmb
6080      . *hbcm-fmc)+4*(p6p7*p3p4)*(-2*ffmcfmb*hbcm-2*fmb-fmc+hbcm)+2*
6081      . p6p7*(-3*ffmcfmb**2*hbcm3-3*ffmcfmb*fmb*hbcm2-ffmcfmb*fmc*
6082      . hbcm2+3*ffmcfmb*hbcm3-fmb*fmc*hbcm-fmc*hbcm2-2*fmc2*hbcm)+4*(
6083      . p3p7*p3p6)*(-2*ffmcfmb**2*hbcm-3*ffmcfmb*fmb-5*ffmcfmb*fmc+3*
6084      . fmb+3*fmc)+4*(fmc*p1p3*p6p7+hbcm*p1p2*p6p7+hbcm*p1p4*p6p7+2*
6085      . hbcm*p1p5*p6p7+2*hbcm*p2p4*p6p7+hbcm*p2p5*p6p7+hbcm*p4p5*p6p7-
6086      . 2*hbcm*p4p6*p4p7-2*hbcm*p4p6*p5p7-hbcm*p4p7*p5p6+3*hbcm*p5p6*
6087      . p5p7))+ans2
6088       ans=ccc*ans1
6089       b(11)=ans
6090       ans=ccc*(w2*(4*(p6p7*p2p3)*(-2*fmb-fmc-hbcm)+4*(p6p7*p1p3)*(2*
6091      . fmb+fmc-2*hbcm)+4*(p5p6*p3p7)*(ffmcfmb*hbcm-fmb-2*fmc)+8*(p4p6
6092      . *p3p7)*(2*ffmcfmb*hbcm+fmb+fmc-hbcm)+4*(p5p7*p3p6)*(6*ffmcfmb*
6093      . hbcm-2*fmb-fmc-3*hbcm)+4*(p4p7*p3p6)*(ffmcfmb*hbcm-2*fmb+hbcm)
6094      . +4*(p6p7*p3p5)*(-2*ffmcfmb*hbcm+fmc)+4*(p6p7*p3p4)*(2*ffmcfmb*
6095      . hbcm+2*fmb+fmc-hbcm)+2*p6p7*(3*ffmcfmb**2*hbcm3+3*ffmcfmb*fmb*
6096      . hbcm2+ffmcfmb*fmc*hbcm2-3*ffmcfmb*hbcm3+fmb*fmc*hbcm+fmc*hbcm2
6097      . +2*fmc2*hbcm)+4*(p3p7*p3p6)*(2*ffmcfmb**2*hbcm+3*ffmcfmb*fmb+5
6098      . *ffmcfmb*fmc-3*fmb-3*fmc)+4*(-hbcm*p1p2*p6p7-hbcm*p1p4*p6p7-2*
6099      . hbcm*p1p5*p6p7-2*hbcm*p2p4*p6p7-hbcm*p2p5*p6p7-hbcm*p4p5*p6p7+
6100      . 2*hbcm*p4p6*p4p7+2*hbcm*p4p6*p5p7+hbcm*p4p7*p5p6-3*hbcm*p5p6*
6101      . p5p7))-2*hbcm*p6p7)
6102       b(12)=ans
6103       b(13)=ccc*(w11*(p3p4*(2*ffmcfmb-2)+p2p3*(2*ffmcfmb-2)+2*(
6104      . ffmcfmb**2*hbcm2-ffmcfmb*hbcm2-ffmcfmb*p1p3-ffmcfmb*p3p5-p1p2-
6105      . p1p4-p2p5-p4p5))+w1*(p3p4*(2*ffmcfmb-2)+p2p3*(2*ffmcfmb-2)+2*(
6106      . ffmcfmb**2*hbcm2-ffmcfmb*hbcm2-ffmcfmb*p1p3-ffmcfmb*p3p5-p1p2-
6107      . p1p4-p2p5-p4p5))-1)
6108       b(14)=w2*ccc*(p3p4*(-2*ffmcfmb+2)+p2p3*(-2*ffmcfmb+2)+2*(-
6109      . ffmcfmb**2*hbcm2+ffmcfmb*hbcm2+ffmcfmb*p1p3+ffmcfmb*p3p5+p1p2+
6110      . p1p4+p2p5+p4p5))+ccc
6111       b(15)=ccc*(w11*(2*p3p4*(-ffmcfmb*hbcm+hbcm)+2*p2p3*(-ffmcfmb*
6112      . hbcm+hbcm)+2*(-ffmcfmb**2*hbcm3+ffmcfmb*hbcm*p1p3+ffmcfmb*hbcm
6113      . *p3p5+ffmcfmb*hbcm3+hbcm*p1p2+hbcm*p1p4+hbcm*p2p5+hbcm*p4p5))+
6114      . w1*(2*p3p4*(-ffmcfmb*hbcm+hbcm)+2*p2p3*(-ffmcfmb*hbcm+hbcm)+2*
6115      . (-ffmcfmb**2*hbcm3+ffmcfmb*hbcm*p1p3+ffmcfmb*hbcm*p3p5+ffmcfmb
6116      . *hbcm3+hbcm*p1p2+hbcm*p1p4+hbcm*p2p5+hbcm*p4p5))+hbcm)
6117       b(16)=ccc*(w2*(2*p3p4*(ffmcfmb*hbcm-hbcm)+2*p2p3*(ffmcfmb*hbcm-
6118      . hbcm)+2*(ffmcfmb**2*hbcm3-ffmcfmb*hbcm*p1p3-ffmcfmb*hbcm*p3p5-
6119      . ffmcfmb*hbcm3-hbcm*p1p2-hbcm*p1p4-hbcm*p2p5-hbcm*p4p5))-hbcm)
6120       b(22)=-ccc*hbcm
6121       b(23)=ccc*(w11*(2*p3p6*(-8*ffmcfmb*hbcm+3*hbcm)+2*(-5*hbcm*p4p6
6122      . +3*hbcm*p5p6))+w1*(2*p3p6*(-8*ffmcfmb*hbcm+3*hbcm)+2*(-5*hbcm*
6123      . p4p6+3*hbcm*p5p6)))
6124       b(26)=ccc*(w11*(4*p3p7*(4*ffmcfmb*hbcm-hbcm)+4*(3*hbcm*p4p7-
6125      . hbcm*p5p7))+w1*(4*p3p7*(4*ffmcfmb*hbcm-hbcm)+4*(3*hbcm*p4p7-
6126      . hbcm*p5p7)))
6127       b(28)=-2*ccc*p3p6
6128       b(29)=-2*ccc*hbcm*p6p7
6129       ans4=4*p3p7*(-ffmcfmb**2*hbcm2*p6p9+ffmcfmb*fmc*hbcm*p6p9+3*
6130      . ffmcfmb*hbcm2*p6p9+2*fmb*hbcm*p6p9-fmc*hbcm*p6p9-2*hbcm2*p6p9)
6131      . +4*p3p6*(-2*ffmcfmb**2*hbcm2*p7p9+4*ffmcfmb*fmb*hbcm*p7p9-2*
6132      . ffmcfmb*fmc*hbcm*p7p9-3*ffmcfmb*hbcm2*p7p9-2*fmb*hbcm*p7p9+fmc
6133      . *hbcm*p7p9+2*hbcm2*p7p9)+16*(ffmcfmb*p1p3*p3p7*p6p9+ffmcfmb*
6134      . p3p5*p3p7*p6p9+p1p3*p1p9*p6p7+p1p3*p4p7*p6p9-p1p9*p3p5*p6p7+
6135      . p2p3*p4p6*p7p9-p2p3*p5p6*p7p9+p2p3*p5p7*p6p9-p3p4*p4p6*p7p9+
6136      . p3p4*p5p6*p7p9-p3p4*p5p7*p6p9+p3p5*p4p7*p6p9-p3p6*p4p7*p5p9-
6137      . p3p6*p5p7*p5p9)
6138       ans3=8*(p5p6*p3p7)*(3*p2p9-3*p3p9-3*p4p9-p5p9)+16*(p6p7*p3p4)*(
6139      . -p2p9+p4p9+p5p9)+16*(p6p7*p2p3)*(p2p9-p4p9-p5p9)+8*(p4p6*p3p7)
6140      . *(p1p9-4*p2p9+4*p3p9+4*p4p9+2*p5p9)+16*(p3p7*p3p4)*(ffmcfmb*
6141      . p6p9-p6p9)+16*(p3p6*p3p4)*(-2*ffmcfmb*p7p9+p7p9)+16*(p3p7*p2p3
6142      . )*(-ffmcfmb*p6p9+p6p9)+16*(p3p6*p2p3)*(2*ffmcfmb*p7p9-p7p9)+8*
6143      . (p3p7*p3p6)*(ffmcfmb*p1p9-7*ffmcfmb*p2p9+7*ffmcfmb*p3p9+7*
6144      . ffmcfmb*p4p9+3*ffmcfmb*p5p9+3*p2p9-3*p3p9-3*p4p9-3*p5p9)+4*
6145      . p5p7*(-ffmcfmb*hbcm2*p6p9+2*fmb*hbcm*p6p9-fmc*hbcm*p6p9-2*
6146      . hbcm2*p6p9)+4*p5p6*(ffmcfmb*hbcm2*p7p9-2*fmb*hbcm*p7p9+fmc*
6147      . hbcm*p7p9+2*hbcm2*p7p9)+8*p4p7*(-ffmcfmb*hbcm2*p6p9+fmb*hbcm*
6148      . p6p9+hbcm2*p6p9)+4*p4p6*(-ffmcfmb*hbcm2*p7p9+2*fmb*hbcm*p7p9-
6149      . fmc*hbcm*p7p9-2*hbcm2*p7p9)+4*p6p7*(ffmcfmb*hbcm2*p1p9-ffmcfmb
6150      . *hbcm2*p2p9+ffmcfmb*hbcm2*p4p9+3*ffmcfmb*hbcm2*p5p9-2*fmb*hbcm
6151      . *p1p9+2*fmb*hbcm*p2p9-2*fmb*hbcm*p4p9+fmc*hbcm*p1p9-fmc*hbcm*
6152      . p2p9+fmc*hbcm*p4p9+fmc*hbcm*p5p9-2*hbcm2*p1p9-2*hbcm2*p2p9+2*
6153      . hbcm2*p4p9)+ans4
6154       ans2=w2*ans3
6155       ans7=4*p3p7*(ffmcfmb**2*hbcm2*p6p8-ffmcfmb*fmc*hbcm*p6p8-3*
6156      . ffmcfmb*hbcm2*p6p8-2*fmb*hbcm*p6p8+fmc*hbcm*p6p8+2*hbcm2*p6p8)
6157      . +4*p3p6*(2*ffmcfmb**2*hbcm2*p7p8-4*ffmcfmb*fmb*hbcm*p7p8+2*
6158      . ffmcfmb*fmc*hbcm*p7p8+3*ffmcfmb*hbcm2*p7p8+2*fmb*hbcm*p7p8-fmc
6159      . *hbcm*p7p8-2*hbcm2*p7p8)+16*(-ffmcfmb*p1p3*p3p7*p6p8-ffmcfmb*
6160      . p3p5*p3p7*p6p8-p1p3*p1p8*p6p7-p1p3*p4p7*p6p8+p1p8*p3p5*p6p7-
6161      . p2p3*p4p6*p7p8+p2p3*p5p6*p7p8-p2p3*p5p7*p6p8+p3p4*p4p6*p7p8-
6162      . p3p4*p5p6*p7p8+p3p4*p5p7*p6p8-p3p5*p4p7*p6p8+p3p6*p4p7*p5p8+
6163      . p3p6*p5p7*p5p8)
6164       ans6=8*(p5p6*p3p7)*(-3*p2p8+3*p3p8+3*p4p8+p5p8)+16*(p6p7*p3p4)*
6165      . (p2p8-p4p8-p5p8)+16*(p6p7*p2p3)*(-p2p8+p4p8+p5p8)+8*(p4p6*p3p7
6166      . )*(-p1p8+4*p2p8-4*p3p8-4*p4p8-2*p5p8)+16*(p3p7*p3p4)*(-ffmcfmb
6167      . *p6p8+p6p8)+16*(p3p6*p3p4)*(2*ffmcfmb*p7p8-p7p8)+16*(p3p7*p2p3
6168      . )*(ffmcfmb*p6p8-p6p8)+16*(p3p6*p2p3)*(-2*ffmcfmb*p7p8+p7p8)+8*
6169      . (p3p7*p3p6)*(-ffmcfmb*p1p8+7*ffmcfmb*p2p8-7*ffmcfmb*p3p8-7*
6170      . ffmcfmb*p4p8-3*ffmcfmb*p5p8-3*p2p8+3*p3p8+3*p4p8+3*p5p8)+4*
6171      . p5p7*(ffmcfmb*hbcm2*p6p8-2*fmb*hbcm*p6p8+fmc*hbcm*p6p8+2*hbcm2
6172      . *p6p8)+4*p5p6*(-ffmcfmb*hbcm2*p7p8+2*fmb*hbcm*p7p8-fmc*hbcm*
6173      . p7p8-2*hbcm2*p7p8)+8*p4p7*(ffmcfmb*hbcm2*p6p8-fmb*hbcm*p6p8-
6174      . hbcm2*p6p8)+4*p4p6*(ffmcfmb*hbcm2*p7p8-2*fmb*hbcm*p7p8+fmc*
6175      . hbcm*p7p8+2*hbcm2*p7p8)+4*p6p7*(-ffmcfmb*hbcm2*p1p8+ffmcfmb*
6176      . hbcm2*p2p8-ffmcfmb*hbcm2*p4p8-3*ffmcfmb*hbcm2*p5p8+2*fmb*hbcm*
6177      . p1p8-2*fmb*hbcm*p2p8+2*fmb*hbcm*p4p8-fmc*hbcm*p1p8+fmc*hbcm*
6178      . p2p8-fmc*hbcm*p4p8-fmc*hbcm*p5p8+2*hbcm2*p1p8+2*hbcm2*p2p8-2*
6179      . hbcm2*p4p8)+ans7
6180       ans5=w1*ans6
6181       ans12=8*(ffmcfmb*p1p3*p3p6*p7p11+ffmcfmb*p3p5*p3p6*p7p11+p1p2*
6182      . p3p6*p7p11+p1p4*p3p6*p7p11-2*p2p3*p4p6*p7p8+2*p2p3*p5p6*p7p8+
6183      . p2p5*p3p6*p7p11+p3p6*p4p5*p7p11)
6184       ans11=4*p6p7*(ffmcfmb*hbcm2*p1p11-ffmcfmb*hbcm2*p1p8-ffmcfmb*
6185      . hbcm2*p2p11+ffmcfmb*hbcm2*p2p8+ffmcfmb*hbcm2*p4p11-ffmcfmb*
6186      . hbcm2*p4p8+3*ffmcfmb*hbcm2*p5p11-3*ffmcfmb*hbcm2*p5p8-2*fmb*
6187      . hbcm*p1p11+2*fmb*hbcm*p1p8+2*fmb*hbcm*p2p11-2*fmb*hbcm*p2p8-2*
6188      . fmb*hbcm*p4p11+2*fmb*hbcm*p4p8+fmc*hbcm*p1p11-fmc*hbcm*p1p8-
6189      . fmc*hbcm*p2p11+fmc*hbcm*p2p8+fmc*hbcm*p4p11-fmc*hbcm*p4p8+fmc*
6190      . hbcm*p5p11-fmc*hbcm*p5p8-2*hbcm2*p1p11+2*hbcm2*p1p8-2*hbcm2*
6191      . p2p11+2*hbcm2*p2p8+2*hbcm2*p4p11-2*hbcm2*p4p8)+4*p3p7*(-
6192      . ffmcfmb**2*hbcm2*p6p11+ffmcfmb**2*hbcm2*p6p8+ffmcfmb*fmc*hbcm*
6193      . p6p11-ffmcfmb*fmc*hbcm*p6p8+3*ffmcfmb*hbcm2*p6p11-3*ffmcfmb*
6194      . hbcm2*p6p8+2*fmb*hbcm*p6p11-2*fmb*hbcm*p6p8-fmc*hbcm*p6p11+fmc
6195      . *hbcm*p6p8-2*hbcm2*p6p11+2*hbcm2*p6p8)+4*p3p6*(-ffmcfmb**2*
6196      . hbcm2*p7p11+2*ffmcfmb**2*hbcm2*p7p8-3*ffmcfmb*fmb*hbcm*p7p11-4
6197      . *ffmcfmb*fmb*hbcm*p7p8+4*ffmcfmb*fmc*hbcm*p7p11+2*ffmcfmb*fmc*
6198      . hbcm*p7p8+4*ffmcfmb*hbcm2*p7p11+3*ffmcfmb*hbcm2*p7p8+fmb*hbcm*
6199      . p7p11+2*fmb*hbcm*p7p8-2*fmc*hbcm*p7p11-fmc*hbcm*p7p8-hbcm2*
6200      . p7p11-2*hbcm2*p7p8)+ans12
6201       ans10=8*(p3p7*p3p6)*(ffmcfmb*p1p11-ffmcfmb*p1p8-7*ffmcfmb*p2p11
6202      . +7*ffmcfmb*p2p8+7*ffmcfmb*p3p11-7*ffmcfmb*p3p8+7*ffmcfmb*p4p11
6203      . -7*ffmcfmb*p4p8+3*ffmcfmb*p5p11-3*ffmcfmb*p5p8+3*p2p11-3*p2p8-
6204      . 3*p3p11+3*p3p8-3*p4p11+3*p4p8-3*p5p11+3*p5p8)+4*p5p7*(-ffmcfmb
6205      . *hbcm2*p6p11+ffmcfmb*hbcm2*p6p8+2*fmb*hbcm*p6p11-2*fmb*hbcm*
6206      . p6p8-fmc*hbcm*p6p11+fmc*hbcm*p6p8-2*hbcm2*p6p11+2*hbcm2*p6p8)+
6207      . 4*p5p6*(-ffmcfmb*hbcm2*p7p11-ffmcfmb*hbcm2*p7p8+fmb*hbcm*p7p11
6208      . +2*fmb*hbcm*p7p8-2*fmc*hbcm*p7p11-fmc*hbcm*p7p8-hbcm2*p7p11-2*
6209      . hbcm2*p7p8)+8*p4p7*(-ffmcfmb*hbcm2*p6p11+ffmcfmb*hbcm2*p6p8+
6210      . fmb*hbcm*p6p11-fmb*hbcm*p6p8+hbcm2*p6p11-hbcm2*p6p8)+4*p4p6*(
6211      . ffmcfmb*hbcm2*p7p8-2*fmb*hbcm*p7p11-2*fmb*hbcm*p7p8+2*fmc*hbcm
6212      . *p7p11+fmc*hbcm*p7p8+2*hbcm2*p7p11+2*hbcm2*p7p8)+ans11
6213       ans9=16*(p5p7*p3p6)*(-p5p11+p5p8)+16*(p4p7*p3p6)*(-p5p11+p5p8)+
6214      . 16*(p4p7*p3p5)*(p6p11-p6p8)+16*(p5p7*p3p4)*(-p6p11+p6p8)+16*(
6215      . p5p6*p3p4)*(-p7p11-p7p8)+16*(p4p6*p3p4)*(p7p11+p7p8)+16*(p5p7*
6216      . p2p3)*(p6p11-p6p8)+8*(p5p6*p3p7)*(3*p2p11-3*p2p8-3*p3p11+3*
6217      . p3p8-3*p4p11+3*p4p8-p5p11+p5p8)+16*(p6p7*p3p4)*(-p2p11+p2p8+
6218      . p4p11-p4p8+p5p11-p5p8)+16*(p6p7*p2p3)*(p2p11-p2p8-p4p11+p4p8-
6219      . p5p11+p5p8)+16*(p4p7*p1p3)*(p6p11-p6p8)+8*(p4p6*p3p7)*(p1p11-
6220      . p1p8-4*p2p11+4*p2p8+4*p3p11-4*p3p8+4*p4p11-4*p4p8+2*p5p11-2*
6221      . p5p8)+16*(p6p7*p3p5)*(-p1p11+p1p8)+16*(p6p7*p1p3)*(p1p11-p1p8)
6222      . +16*(p3p7*p3p5)*(ffmcfmb*p6p11-ffmcfmb*p6p8)+16*(p3p7*p3p4)*(
6223      . ffmcfmb*p6p11-ffmcfmb*p6p8-p6p11+p6p8)+8*(p3p6*p3p4)*(3*
6224      . ffmcfmb*p7p11+4*ffmcfmb*p7p8-p7p11-2*p7p8)+16*(p3p7*p2p3)*(-
6225      . ffmcfmb*p6p11+ffmcfmb*p6p8+p6p11-p6p8)+8*(p3p6*p2p3)*(-ffmcfmb
6226      . *p7p11-4*ffmcfmb*p7p8+p7p11+2*p7p8)+16*(p3p7*p1p3)*(ffmcfmb*
6227      . p6p11-ffmcfmb*p6p8)+ans10
6228       ans8=w11*ans9
6229       ans13=(8*p3p4*(p6p12+2*p7p13)+4*p6p7*(-2*p3p11+p3p8)+4*p3p7*(-2
6230      . *ffmcfmb*p3p13+p1p13-7*p2p13+7*p3p13+7*p4p13+3*p5p13)+4*p3p6*(
6231      . -ffmcfmb*p3p12-4*p1p12+p3p12+p7p10-p7p11)+2*(-ffmcfmb*hbcm2*
6232      . p6p12+ffmcfmb*hbcm2*p7p13-3*fmb*hbcm*p7p13+fmc*hbcm*p6p12+4*
6233      . fmc*hbcm*p7p13+4*hbcm2*p6p12+3*hbcm2*p7p13+4*p1p3*p6p12-4*p2p3
6234      . *p6p12+2*p3p12*p5p6-4*p3p13*p4p7+4*p3p5*p6p12))
6235       ans1=ans2+ans5+ans8+ans13
6236       ans=ccc*ans1
6237       b(30)=ans
6238       b(31)=ccc*(w11*(6*p5p6*(-fmb-fmc+hbcm)+2*p4p6*(ffmcfmb*hbcm+4*
6239      . fmb+3*fmc-4*hbcm)+2*p3p6*(ffmcfmb**2*hbcm+7*ffmcfmb*fmb+6*
6240      . ffmcfmb*fmc-7*ffmcfmb*hbcm-3*fmb-3*fmc+3*hbcm))+w1*(6*p5p6*(-
6241      . fmb-fmc+hbcm)+2*p4p6*(ffmcfmb*hbcm+4*fmb+3*fmc-4*hbcm)+2*p3p6*
6242      . (ffmcfmb**2*hbcm+7*ffmcfmb*fmb+6*ffmcfmb*fmc-7*ffmcfmb*hbcm-3*
6243      . fmb-3*fmc+3*hbcm)))
6244       b(32)=w2*ccc*(6*p5p6*(-fmb-fmc+hbcm)+2*p4p6*(ffmcfmb*hbcm+4*fmb
6245      . +3*fmc-4*hbcm)+2*p3p6*(ffmcfmb**2*hbcm+7*ffmcfmb*fmb+6*ffmcfmb
6246      . *fmc-7*ffmcfmb*hbcm-3*fmb-3*fmc+3*hbcm))
6247       ans5=4*p3p6*(ffmcfmb**2*hbcm*p7p11-ffmcfmb**2*hbcm*p7p8-3*
6248      . ffmcfmb*fmb*p7p11+3*ffmcfmb*fmb*p7p8-4*ffmcfmb*fmc*p7p11+4*
6249      . ffmcfmb*fmc*p7p8+2*ffmcfmb*hbcm*p7p11-2*ffmcfmb*hbcm*p7p8+fmb*
6250      . p7p11-fmb*p7p8+2*fmc*p7p11-2*fmc*p7p8-hbcm*p7p11+hbcm*p7p8)
6251       ans4=8*p4p6*(-fmb*p7p11+fmb*p7p8-fmc*p7p11+fmc*p7p8+hbcm*p7p11-
6252      . hbcm*p7p8)+4*p5p7*(ffmcfmb*hbcm*p6p11-ffmcfmb*hbcm*p6p8+2*fmb*
6253      . p6p11-2*fmb*p6p8+fmc*p6p11-fmc*p6p8-2*hbcm*p6p11+2*hbcm*p6p8)+
6254      . 4*p5p6*(-ffmcfmb*hbcm*p7p11+ffmcfmb*hbcm*p7p8+fmb*p7p11-fmb*
6255      . p7p8+2*fmc*p7p11-2*fmc*p7p8-hbcm*p7p11+hbcm*p7p8)+8*p4p7*(
6256      . ffmcfmb*hbcm*p6p11-ffmcfmb*hbcm*p6p8+fmb*p6p11-fmb*p6p8-hbcm*
6257      . p6p11+hbcm*p6p8)+4*p6p7*(-ffmcfmb*hbcm*p1p11+ffmcfmb*hbcm*p1p8
6258      . +ffmcfmb*hbcm*p2p11-ffmcfmb*hbcm*p2p8-ffmcfmb*hbcm*p4p11+
6259      . ffmcfmb*hbcm*p4p8+ffmcfmb*hbcm*p5p11-ffmcfmb*hbcm*p5p8+2*fmb*
6260      . p2p11-2*fmb*p2p8-2*fmb*p4p11+2*fmb*p4p8+fmc*p1p11-fmc*p1p8+fmc
6261      . *p2p11-fmc*p2p8-fmc*p4p11+fmc*p4p8-fmc*p5p11+fmc*p5p8-2*hbcm*
6262      . p2p11+2*hbcm*p2p8+2*hbcm*p4p11-2*hbcm*p4p8)+4*p3p7*(ffmcfmb**2
6263      . *hbcm*p6p11-ffmcfmb**2*hbcm*p6p8-ffmcfmb*fmc*p6p11+ffmcfmb*fmc
6264      . *p6p8+ffmcfmb*hbcm*p6p11-ffmcfmb*hbcm*p6p8+2*fmb*p6p11-2*fmb*
6265      . p6p8+fmc*p6p11-fmc*p6p8-2*hbcm*p6p11+2*hbcm*p6p8)+ans5
6266       ans3=w11*ans4
6267       ans6=2*(ffmcfmb*hbcm*p6p12+ffmcfmb*hbcm*p7p13-3*fmb*p7p13-fmc*
6268      . p6p12-4*fmc*p7p13+3*hbcm*p7p13)
6269       ans2=w1*(8*p4p6*(fmb*p7p8+fmc*p7p8-hbcm*p7p8)+4*p5p7*(-ffmcfmb*
6270      . hbcm*p6p8-2*fmb*p6p8-fmc*p6p8+2*hbcm*p6p8)+4*p5p6*(ffmcfmb*
6271      . hbcm*p7p8-fmb*p7p8-2*fmc*p7p8+hbcm*p7p8)+8*p4p7*(-ffmcfmb*hbcm
6272      . *p6p8-fmb*p6p8+hbcm*p6p8)+4*p6p7*(ffmcfmb*hbcm*p1p8-ffmcfmb*
6273      . hbcm*p2p8+ffmcfmb*hbcm*p4p8-ffmcfmb*hbcm*p5p8-2*fmb*p2p8+2*fmb
6274      . *p4p8-fmc*p1p8-fmc*p2p8+fmc*p4p8+fmc*p5p8+2*hbcm*p2p8-2*hbcm*
6275      . p4p8)+4*p3p7*(-ffmcfmb**2*hbcm*p6p8+ffmcfmb*fmc*p6p8-ffmcfmb*
6276      . hbcm*p6p8-2*fmb*p6p8-fmc*p6p8+2*hbcm*p6p8)+4*p3p6*(-ffmcfmb**2
6277      . *hbcm*p7p8+3*ffmcfmb*fmb*p7p8+4*ffmcfmb*fmc*p7p8-2*ffmcfmb*
6278      . hbcm*p7p8-fmb*p7p8-2*fmc*p7p8+hbcm*p7p8))+ans3+ans6
6279       ans1=w2*(8*p4p6*(-fmb*p7p9-fmc*p7p9+hbcm*p7p9)+4*p5p7*(ffmcfmb*
6280      . hbcm*p6p9+2*fmb*p6p9+fmc*p6p9-2*hbcm*p6p9)+4*p5p6*(-ffmcfmb*
6281      . hbcm*p7p9+fmb*p7p9+2*fmc*p7p9-hbcm*p7p9)+8*p4p7*(ffmcfmb*hbcm*
6282      . p6p9+fmb*p6p9-hbcm*p6p9)+4*p6p7*(-ffmcfmb*hbcm*p1p9+ffmcfmb*
6283      . hbcm*p2p9-ffmcfmb*hbcm*p4p9+ffmcfmb*hbcm*p5p9-2*fmb*p1p9+2*fmb
6284      . *p2p9-2*fmb*p4p9-fmc*p1p9+fmc*p2p9-fmc*p4p9-fmc*p5p9+2*hbcm*
6285      . p1p9-2*hbcm*p2p9+2*hbcm*p4p9)+4*p3p7*(ffmcfmb**2*hbcm*p6p9-
6286      . ffmcfmb*fmc*p6p9+ffmcfmb*hbcm*p6p9+2*fmb*p6p9+fmc*p6p9-2*hbcm*
6287      . p6p9)+4*p3p6*(ffmcfmb**2*hbcm*p7p9-3*ffmcfmb*fmb*p7p9-4*
6288      . ffmcfmb*fmc*p7p9+2*ffmcfmb*hbcm*p7p9+fmb*p7p9+2*fmc*p7p9-hbcm*
6289      . p7p9))+ans2
6290       ans=ccc*ans1
6291       b(33)=ans
6292       b(37)=w2*ccc*(4*p3p7*(-4*ffmcfmb*hbcm+hbcm)+4*(-3*hbcm*p4p7+
6293      . hbcm*p5p7))
6294       b(39)=w11*ccc*((p3p7*p3p6)*(-32*ffmcfmb+12)+4*p6p7*(-2*ffmcfmb*
6295      . hbcm2+fmb*hbcm-fmc*hbcm+hbcm2)+4*(-2*p1p3*p6p7+2*p2p3*p6p7-2*
6296      . p3p4*p6p7+2*p3p5*p6p7-2*p3p6*p4p7+2*p3p6*p5p7-3*p3p7*p4p6+p3p7
6297      . *p5p6))
6298       b(40)=ccc*(w11*(4*(p6p7*p2p3)*(-2*fmb-fmc-hbcm)+4*(p5p6*p3p7)*(
6299      . ffmcfmb*hbcm-fmb-2*fmc)+8*(p4p6*p3p7)*(2*ffmcfmb*hbcm+fmb+fmc-
6300      . hbcm)+4*(p5p7*p3p6)*(6*ffmcfmb*hbcm-2*fmb-fmc-3*hbcm)+4*(p4p7*
6301      . p3p6)*(ffmcfmb*hbcm-2*fmb+hbcm)+4*(p6p7*p3p5)*(-2*ffmcfmb*hbcm
6302      . +fmc)+4*(p6p7*p3p4)*(2*ffmcfmb*hbcm+2*fmb+fmc-hbcm)+2*p6p7*(3*
6303      . ffmcfmb**2*hbcm3+3*ffmcfmb*fmb*hbcm2+ffmcfmb*fmc*hbcm2-3*
6304      . ffmcfmb*hbcm3+fmb*fmc*hbcm+fmc*hbcm2+2*fmc2*hbcm)+4*(p3p7*p3p6
6305      . )*(2*ffmcfmb**2*hbcm+3*ffmcfmb*fmb+5*ffmcfmb*fmc-3*fmb-3*fmc)+
6306      . 4*(-fmc*p1p3*p6p7-hbcm*p1p2*p6p7-hbcm*p1p4*p6p7-2*hbcm*p1p5*
6307      . p6p7-2*hbcm*p2p4*p6p7-hbcm*p2p5*p6p7-hbcm*p4p5*p6p7+2*hbcm*
6308      . p4p6*p4p7+2*hbcm*p4p6*p5p7+hbcm*p4p7*p5p6-3*hbcm*p5p6*p5p7))+2
6309      . *hbcm*p6p7)
6310       b(41)=ccc*(w11*((p5p6*p3p7)*(8*ffmcfmb-4)+(p5p7*p3p6)*(28*
6311      . ffmcfmb-20)+(p4p7*p3p6)*(-4*ffmcfmb+4)+(p3p7*p3p6)*(20*ffmcfmb
6312      . -12)+(p6p7*p3p4)*(4*ffmcfmb+4)+(p6p7*p2p3)*(4*ffmcfmb-12)+2*
6313      . p6p7*(ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm+
6314      . ffmcfmb*hbcm2-fmb*fmc+fmc*hbcm+2*fmc2)+4*(-ffmcfmb*p1p3*p6p7-
6315      . ffmcfmb*p3p5*p6p7+2*ffmcfmb*p3p7*p4p6-p1p2*p6p7-p1p4*p6p7-2*
6316      . p1p5*p6p7-2*p2p4*p6p7-p2p5*p6p7-p4p5*p6p7+2*p4p6*p5p7+3*p4p7*
6317      . p5p6-3*p5p6*p5p7))+2*p6p7)
6318       b(42)=w2*ccc*((p3p7*p3p6)*(-32*ffmcfmb+12)+4*p6p7*(-2*ffmcfmb*
6319      . hbcm2+fmb*hbcm-fmc*hbcm+hbcm2)+4*(-2*p1p3*p6p7+2*p2p3*p6p7-2*
6320      . p3p4*p6p7+2*p3p5*p6p7-2*p3p6*p4p7+2*p3p6*p5p7-3*p3p7*p4p6+p3p7
6321      . *p5p6))
6322       b(43)=ccc*(w2*(8*p6p7*(-p1p9+p2p9-p4p9+p5p9)+8*p3p7*(-2*ffmcfmb
6323      . *p6p9+p6p9)+4*p3p6*(-4*ffmcfmb*p7p9+p7p9)+4*(-3*p4p6*p7p9-2*
6324      . p4p7*p6p9+p5p6*p7p9+2*p5p7*p6p9))+w1*(8*p6p7*(p1p8-p2p8+p4p8-
6325      . p5p8)+8*p3p7*(2*ffmcfmb*p6p8-p6p8)+4*p3p6*(4*ffmcfmb*p7p8-p7p8
6326      . )+4*(3*p4p6*p7p8+2*p4p7*p6p8-p5p6*p7p8-2*p5p7*p6p8))+w11*(8*
6327      . p5p7*(p6p11-p6p8)+4*p5p6*(p7p11-p7p8)+8*p4p7*(-p6p11+p6p8)+12*
6328      . p4p6*(-p7p11+p7p8)+8*p6p7*(-p1p11+p1p8+p2p11-p2p8-p4p11+p4p8+
6329      . p5p11-p5p8)+8*p3p7*(-2*ffmcfmb*p6p11+2*ffmcfmb*p6p8+p6p11-p6p8
6330      . )+4*p3p6*(-4*ffmcfmb*p7p11+4*ffmcfmb*p7p8+p7p11-p7p8))+8*(-
6331      . p6p12-p7p13))
6332       b(44)=ccc*(w11*((p3p6*p3p4)*(-28*ffmcfmb+12)+(p3p6*p2p3)*(20*
6333      . ffmcfmb-12)+2*p5p6*(2*ffmcfmb*hbcm2-3*fmb*hbcm+3*fmc*hbcm+3*
6334      . hbcm2)+2*p4p6*(-ffmcfmb*hbcm2+4*fmb*hbcm-3*fmc*hbcm-4*hbcm2)+2
6335      . *p3p6*(-ffmcfmb**2*hbcm2+7*ffmcfmb*fmb*hbcm-6*ffmcfmb*fmc*hbcm
6336      . -7*ffmcfmb*hbcm2-3*fmb*hbcm+3*fmc*hbcm+3*hbcm2)+4*(-ffmcfmb*
6337      . p1p3*p3p6-ffmcfmb*p3p5*p3p6-p1p2*p3p6-p1p4*p3p6+2*p2p3*p4p6-2*
6338      . p2p3*p5p6-p2p5*p3p6-4*p3p4*p4p6+4*p3p4*p5p6-p3p6*p4p5))+2*p3p6
6339      . )
6340       b(45)=w11*ccc*(p3p6*(-16*ffmcfmb+6)+2*(-5*p4p6+3*p5p6))
6341       b(46)=w11*ccc*(6*p5p6*(-fmb-fmc+hbcm)+2*p4p6*(ffmcfmb*hbcm+4*
6342      . fmb+3*fmc-4*hbcm)+2*p3p6*(ffmcfmb**2*hbcm+7*ffmcfmb*fmb+6*
6343      . ffmcfmb*fmc-7*ffmcfmb*hbcm-3*fmb-3*fmc+3*hbcm))
6344       b(47)=w2*ccc*(p3p6*(-16*ffmcfmb+6)+2*(-5*p4p6+3*p5p6))
6345       b(48)=4*ccc*(p3p6+p4p6+p5p6)
6346       b(49)=w11*ccc*(4*p3p7*(-4*ffmcfmb*hbcm+hbcm)+4*(-3*hbcm*p4p7+
6347      . hbcm*p5p7))
6348       b(50)=w11*ccc*(p3p7*(-16*ffmcfmb+4)+4*(-3*p4p7+p5p7))
6349       b(51)=ccc*(w11*((p3p7*p3p5)*(12*ffmcfmb-8)+(p3p7*p3p4)*(4*
6350      . ffmcfmb+4)+(p3p7*p2p3)*(-12*ffmcfmb+4)+2*p5p7*(ffmcfmb*hbcm2-2
6351      . *fmb*hbcm+fmc*hbcm-2*hbcm2)+2*p3p7*(ffmcfmb**2*hbcm2+2*ffmcfmb
6352      . *fmb*hbcm-ffmcfmb*fmc*hbcm+5*ffmcfmb*hbcm2-2*fmb*hbcm+fmc*hbcm
6353      . -2*hbcm2)+4*(2*ffmcfmb*hbcm2*p4p7+3*ffmcfmb*p1p3*p3p7+p1p2*
6354      . p3p7+2*p1p3*p4p7+p1p4*p3p7-2*p2p3*p4p7+p2p5*p3p7+2*p3p4*p4p7-2
6355      . *p3p5*p5p7+p3p7*p4p5))-2*p3p7)
6356       b(52)=w2*ccc*(p3p7*(-16*ffmcfmb+4)+4*(-3*p4p7+p5p7))
6357       b(56)=ccc*(w11*(p3p4*(-2*ffmcfmb+2)+p2p3*(-2*ffmcfmb+2)+2*(-
6358      . ffmcfmb**2*hbcm2+ffmcfmb*hbcm2+ffmcfmb*p1p3+ffmcfmb*p3p5+p1p2+
6359      . p1p4+p2p5+p4p5))-1)
6360       b(57)=-8*ccc
6361       b(58)=w11*ccc*(2*p3p6*(8*ffmcfmb*hbcm-3*hbcm)+2*(5*hbcm*p4p6-3*
6362      . hbcm*p5p6))
6363       b(59)=ccc*(w11*(2*p3p4*(ffmcfmb*hbcm-hbcm)+2*p2p3*(ffmcfmb*hbcm
6364      . -hbcm)+2*(ffmcfmb**2*hbcm3-ffmcfmb*hbcm*p1p3-ffmcfmb*hbcm*p3p5
6365      . -ffmcfmb*hbcm3-hbcm*p1p2-hbcm*p1p4-hbcm*p2p5-hbcm*p4p5))+hbcm)
6366       b(60)=w2*ccc*(2*p3p6*(8*ffmcfmb*hbcm-3*hbcm)+2*(5*hbcm*p4p6-3*
6367      . hbcm*p5p6))
6368       b(61)=-8*ccc*hbcm
6369       b(62)=ccc*(4*p3p6*(ffmcfmb*hbcm-fmb+hbcm)+8*hbcm*p4p6)
6370       b(64)=-2*ccc*p6p7
6371       b(65)=ccc*(w11*((p3p7*p3p6)*(32*ffmcfmb-12)+4*p6p7*(2*ffmcfmb*
6372      . hbcm2-fmb*hbcm+fmc*hbcm-hbcm2)+4*(2*p1p3*p6p7-2*p2p3*p6p7+2*
6373      . p3p4*p6p7-2*p3p5*p6p7+2*p3p6*p4p7-2*p3p6*p5p7+3*p3p7*p4p6-p3p7
6374      . *p5p6))+w1*((p3p7*p3p6)*(32*ffmcfmb-12)+4*p6p7*(2*ffmcfmb*
6375      . hbcm2-fmb*hbcm+fmc*hbcm-hbcm2)+4*(2*p1p3*p6p7-2*p2p3*p6p7+2*
6376      . p3p4*p6p7-2*p3p5*p6p7+2*p3p6*p4p7-2*p3p6*p5p7+3*p3p7*p4p6-p3p7
6377      . *p5p6)))
6378       ans=ccc*(w2*(8*p6p7*(-hbcm*p1p9+hbcm*p2p9-hbcm*p4p9+hbcm*p5p9)+
6379      . 8*p3p7*(-2*ffmcfmb*hbcm*p6p9+hbcm*p6p9)+4*p3p6*(-4*ffmcfmb*
6380      . hbcm*p7p9+hbcm*p7p9)+4*(-3*hbcm*p4p6*p7p9-2*hbcm*p4p7*p6p9+
6381      . hbcm*p5p6*p7p9+2*hbcm*p5p7*p6p9))+w1*(8*p6p7*(hbcm*p1p8-hbcm*
6382      . p2p8+hbcm*p4p8-hbcm*p5p8)+8*p3p7*(2*ffmcfmb*hbcm*p6p8-hbcm*
6383      . p6p8)+4*p3p6*(4*ffmcfmb*hbcm*p7p8-hbcm*p7p8)+4*(3*hbcm*p4p6*
6384      . p7p8+2*hbcm*p4p7*p6p8-hbcm*p5p6*p7p8-2*hbcm*p5p7*p6p8))+w11*(8
6385      . *p5p7*(hbcm*p6p11-hbcm*p6p8)+4*p5p6*(hbcm*p7p11-hbcm*p7p8)+8*
6386      . p4p7*(-hbcm*p6p11+hbcm*p6p8)+12*p4p6*(-hbcm*p7p11+hbcm*p7p8)+8
6387      . *p6p7*(-hbcm*p1p11+hbcm*p1p8+hbcm*p2p11-hbcm*p2p8-hbcm*p4p11+
6388      . hbcm*p4p8+hbcm*p5p11-hbcm*p5p8)+8*p3p7*(-2*ffmcfmb*hbcm*p6p11+
6389      . 2*ffmcfmb*hbcm*p6p8+hbcm*p6p11-hbcm*p6p8)+4*p3p6*(-4*ffmcfmb*
6390      . hbcm*p7p11+4*ffmcfmb*hbcm*p7p8+hbcm*p7p11-hbcm*p7p8))+8*(-hbcm
6391      . *p6p12-hbcm*p7p13))
6392       b(66)=ans
6393       b(68)=ccc*(w11*(p3p6*(16*ffmcfmb-6)+2*(5*p4p6-3*p5p6))+w1*(p3p6
6394      . *(16*ffmcfmb-6)+2*(5*p4p6-3*p5p6)))
6395       b(70)=2*ccc*p3p7
6396       b(71)=ccc*(w11*(p3p7*(16*ffmcfmb-4)+4*(3*p4p7-p5p7))+w1*(p3p7*(
6397      . 16*ffmcfmb-4)+4*(3*p4p7-p5p7)))
6398       b(72)=ccc
6399       b(73)=4*ccc*w11*p6p7*(-fmb-fmc+hbcm)
6400       b(74)=ccc*(4*w11*p6p7*(fmb+fmc-hbcm)+4*w1*p6p7*(fmb+fmc-hbcm))
6401       b(79)=4*ccc*w2*p6p7*(-fmb-fmc+hbcm)
6402       b(80)=w2*ccc*(2*p5p7*(ffmcfmb*hbcm+2*fmb+fmc-2*hbcm)+2*p3p7*(-
6403      . ffmcfmb**2*hbcm-2*ffmcfmb*fmb-ffmcfmb*fmc+3*ffmcfmb*hbcm+2*fmb
6404      . +fmc-2*hbcm))
6405       b(82)=-8*ccc*p3p7
6406       b(83)=ccc*(2*p3p7*(3*ffmcfmb*hbcm+3*fmb+4*fmc)+2*(3*hbcm*p4p7+7
6407      . *hbcm*p5p7))
6408       b(84)=2*ccc*(3*p3p7-p4p7+7*p5p7)
6409       b(85)=ccc*(-3*ffmcfmb*hbcm2+7*fmb*hbcm-6*fmc*hbcm-7*hbcm2+8*
6410      . p2p3-16*p3p4)
6411       b(86)=-8*ccc
6412       b(87)=ccc*(ffmcfmb*hbcm+7*fmb+6*fmc-7*hbcm)
6413       b(89)=-8*ccc*hbcm
6414       b(90)=w11*ccc*(2*p5p7*(ffmcfmb*hbcm+2*fmb+fmc-2*hbcm)+2*p3p7*(-
6415      . ffmcfmb**2*hbcm-2*ffmcfmb*fmb-ffmcfmb*fmc+3*ffmcfmb*hbcm+2*fmb
6416      . +fmc-2*hbcm))
6417       b(91)=ccc*(w11*(2*p5p7*(-ffmcfmb*hbcm-2*fmb-fmc+2*hbcm)+2*p3p7*
6418      . (ffmcfmb**2*hbcm+2*ffmcfmb*fmb+ffmcfmb*fmc-3*ffmcfmb*hbcm-2*
6419      . fmb-fmc+2*hbcm))+w1*(2*p5p7*(-ffmcfmb*hbcm-2*fmb-fmc+2*hbcm)+2
6420      . *p3p7*(ffmcfmb**2*hbcm+2*ffmcfmb*fmb+ffmcfmb*fmc-3*ffmcfmb*
6421      . hbcm-2*fmb-fmc+2*hbcm)))
6422       b(92)=ccc*(3*ffmcfmb*hbcm2+2*fmb*hbcm-fmc*hbcm+2*hbcm2+4*p1p3-4
6423      . *p2p3+4*p3p4+4*p3p5)
6424       b(93)=8*ccc*p3p6
6425       b(94)=ccc*(ffmcfmb*hbcm+2*fmb+fmc-2*hbcm)
6426       do 200 n=1,94
6427          c(n,1)=c(n,1)+1d0*b(n)
6428 200   continue
6429       return
6430       end
6431
6432       subroutine amp34_3p2(cc)
6433       implicit double precision(a-h,o-z)
6434       implicit integer (i-n)
6435       dimension b(94)
6436 #include "inclcon.h"
6437 #include "inclppp.h"
6438 #include "inclamp.h"
6439       do 100 n=1,94
6440          b(n)=0.0d0
6441 100   continue
6442       ccc=cc/((2*p1p2)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*
6443      . p3p5+fmb2+hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2)
6444      . )
6445       b(1)=w1*ccc*(2*p6p7*(2*ffmcfmb*hbcm2-fmb2+fmc2-hbcm2)+4*(2*p1p2
6446      . *p6p7-2*p1p3*p6p7+p1p4*p6p7-5*p1p5*p6p7-p2p4*p6p7+p2p5*p6p7+
6447      . p3p4*p6p7-p3p5*p6p7))
6448       b(2)=w2*ccc*(2*p6p7*(-2*ffmcfmb*hbcm2+fmb2-fmc2+hbcm2)+4*(-2*
6449      . p1p2*p6p7+2*p1p3*p6p7-p1p4*p6p7+5*p1p5*p6p7+p2p4*p6p7-p2p5*
6450      . p6p7-p3p4*p6p7+p3p5*p6p7))
6451       b(11)=w1*ccc*(4*(p6p7*p3p4)*(fmb+fmc)+4*(p6p7*p2p3)*(ffmcfmb*
6452      . hbcm-fmb)+4*(p6p7*p1p3)*(-ffmcfmb*hbcm-3*fmb-4*fmc+2*hbcm)+2*
6453      . p6p7*(2*ffmcfmb*fmb*hbcm2+2*ffmcfmb*fmc*hbcm2-fmb2*hbcm+fmc2*
6454      . hbcm-hbcm3)+4*(2*hbcm*p1p2*p6p7-4*hbcm*p1p5*p6p7-hbcm*p3p5*
6455      . p6p7))
6456       b(12)=w2*ccc*(4*(p6p7*p3p4)*(-fmb-fmc)+4*(p6p7*p2p3)*(-ffmcfmb*
6457      . hbcm+fmb)+4*(p6p7*p1p3)*(ffmcfmb*hbcm-3*fmb-2*fmc+4*hbcm)+2*
6458      . p6p7*(-2*ffmcfmb*fmb*hbcm2-2*ffmcfmb*fmc*hbcm2+fmb2*hbcm-fmc2*
6459      . hbcm+hbcm3)+4*(-2*hbcm*p1p2*p6p7+4*hbcm*p1p5*p6p7+hbcm*p3p5*
6460      . p6p7))
6461       b(29)=4*ccc*hbcm*p6p7
6462       b(30)=ccc*(w2*(8*(p6p7*p3p5)*(5*p1p9-p2p9+p5p9)+8*(p6p7*p3p4)*(
6463      . 2*p1p9-p4p9)+8*(p6p7*p2p3)*(-2*p1p9+p4p9)+8*(p6p7*p1p3)*(-4*
6464      . p1p9-2*p2p9-p4p9+2*p5p9)+4*p6p7*(-ffmcfmb*hbcm2*p1p9+ffmcfmb*
6465      . hbcm2*p2p9-2*ffmcfmb*hbcm2*p5p9+3*fmb*hbcm*p1p9-fmb*hbcm*p2p9+
6466      . fmb*hbcm*p4p9-2*fmc*hbcm*p1p9-fmc*hbcm*p4p9+7*hbcm2*p1p9-hbcm2
6467      . *p2p9-hbcm2*p4p9+2*hbcm2*p5p9))+w1*(8*(p6p7*p3p5)*(-5*p1p8+
6468      . p2p8-p5p8)+8*(p6p7*p3p4)*(-2*p1p8+p4p8)+8*(p6p7*p2p3)*(2*p1p8-
6469      . p4p8)+8*(p6p7*p1p3)*(4*p1p8+2*p2p8+p4p8-2*p5p8)+4*p6p7*(
6470      . ffmcfmb*hbcm2*p1p8-ffmcfmb*hbcm2*p2p8+2*ffmcfmb*hbcm2*p5p8-3*
6471      . fmb*hbcm*p1p8+fmb*hbcm*p2p8-fmb*hbcm*p4p8+2*fmc*hbcm*p1p8+fmc*
6472      . hbcm*p4p8-7*hbcm2*p1p8+hbcm2*p2p8+hbcm2*p4p8-2*hbcm2*p5p8))+4*
6473      . p6p7*(-p3p10+p3p11))
6474       b(33)=ccc*(4*w2*p6p7*(ffmcfmb*hbcm*p1p9-ffmcfmb*hbcm*p2p9+3*fmb
6475      . *p1p9-fmb*p2p9+fmb*p4p9+2*fmc*p1p9+fmc*p4p9-3*hbcm*p1p9+hbcm*
6476      . p2p9-hbcm*p4p9)+4*w1*p6p7*(-ffmcfmb*hbcm*p1p8+ffmcfmb*hbcm*
6477      . p2p8+3*fmb*p1p8+fmb*p2p8-fmb*p4p8+4*fmc*p1p8-fmc*p4p8-3*hbcm*
6478      . p1p8-hbcm*p2p8+hbcm*p4p8))
6479       b(40)=-4*ccc*hbcm*p6p7
6480       b(42)=w2*ccc*(4*p6p7*(2*ffmcfmb*hbcm2-3*fmb*hbcm+3*fmc*hbcm-3*
6481      . hbcm2)+8*(p1p3*p6p7+p2p3*p6p7+p3p4*p6p7-3*p3p5*p6p7))
6482       b(43)=ccc*(8*w2*p6p7*(p1p9+p2p9+p4p9-3*p5p9)+8*w1*p6p7*(-p1p8-
6483      . p2p8-p4p8+3*p5p8))
6484       b(65)=w1*ccc*(4*p6p7*(-2*ffmcfmb*hbcm2+3*fmb*hbcm-3*fmc*hbcm+3*
6485      . hbcm2)+8*(-p1p3*p6p7-p2p3*p6p7-p3p4*p6p7+3*p3p5*p6p7))
6486       b(66)=ccc*(8*w2*p6p7*(hbcm*p1p9+hbcm*p2p9+hbcm*p4p9-3*hbcm*p5p9
6487      . )+8*w1*p6p7*(-hbcm*p1p8-hbcm*p2p8-hbcm*p4p8+3*hbcm*p5p8))
6488       b(74)=12*ccc*w1*p6p7*(-fmb-fmc+hbcm)
6489       b(79)=12*ccc*w2*p6p7*(fmb+fmc-hbcm)
6490       do 200 n=1,94
6491          c(n,1)=c(n,1)-0.8181818181818182d0*b(n)
6492          c(n,2)=c(n,2)+0.9833321660356334d0*b(n)
6493 200   continue
6494       return
6495       end
6496
6497       subroutine amp33_3p2(cc)
6498       implicit double precision(a-h,o-z)
6499       implicit integer (i-n)
6500       dimension b(94)
6501 #include "inclcon.h"
6502 #include "inclppp.h"
6503 #include "inclamp.h"
6504       do 100 n=1,94
6505          b(n)=0.0d0
6506 100   continue
6507       ccc=cc/((ffmcfmb**2*hbcm2-2*ffmcfmb*p2p3+2*ffmcfmb*p3p4+fmc2-2*
6508      . p2p4)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2)*(ffmcfmb**2*hbcm2
6509      . -2*ffmcfmb*hbcm2+2*ffmcfmb*p1p3-fmb2+hbcm2-2*p1p3))
6510       b(1)=ccc*(w11*((p5p7*p3p6)*(-24*ffmcfmb+24)+(p4p7*p3p6)*(8*
6511      . ffmcfmb-8)+(p3p7*p3p6)*(-8*ffmcfmb+8)+4*p6p7*(ffmcfmb**2*hbcm2
6512      . +2*ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*hbcm-2*fmb*fmc+fmb2+2*fmc*
6513      . hbcm-hbcm2)+8*(ffmcfmb*p1p3*p6p7+p1p2*p6p7+p1p4*p6p7-p1p5*p6p7
6514      . ))+w1*((p5p7*p3p6)*(-24*ffmcfmb+24)+(p4p7*p3p6)*(8*ffmcfmb-8)+
6515      . (p3p7*p3p6)*(-8*ffmcfmb+8)+4*p6p7*(ffmcfmb**2*hbcm2+2*ffmcfmb*
6516      . fmb*hbcm-2*ffmcfmb*fmc*hbcm-2*fmb*fmc+fmb2+2*fmc*hbcm-hbcm2)+8
6517      . *(ffmcfmb*p1p3*p6p7+p1p2*p6p7+p1p4*p6p7-p1p5*p6p7)))
6518       ans=ccc*(w1*(16*p3p7*(ffmcfmb*p1p8+p1p8)+8*p1p3*(ffmcfmb*p7p8+
6519      . p7p8)+4*(ffmcfmb**2*hbcm2*p7p8+2*ffmcfmb*fmb*hbcm*p7p8-2*
6520      . ffmcfmb*fmc*hbcm*p7p8-2*fmb*fmc*p7p8+fmb2*p7p8+2*fmc*hbcm*p7p8
6521      . -hbcm2*p7p8+4*p1p4*p7p8+12*p1p8*p4p7))+w11*(16*p1p4*(-p7p11+
6522      . p7p8)+48*p4p7*(-p1p11+p1p8)+8*p1p3*(-ffmcfmb*p7p11+ffmcfmb*
6523      . p7p8-p7p11+p7p8)+16*p3p7*(-ffmcfmb*p1p11+ffmcfmb*p1p8-p1p11+
6524      . p1p8)+4*(-ffmcfmb**2*hbcm2*p7p11+ffmcfmb**2*hbcm2*p7p8-2*
6525      . ffmcfmb*fmb*hbcm*p7p11+2*ffmcfmb*fmb*hbcm*p7p8+2*ffmcfmb*fmc*
6526      . hbcm*p7p11-2*ffmcfmb*fmc*hbcm*p7p8+2*fmb*fmc*p7p11-2*fmb*fmc*
6527      . p7p8-fmb2*p7p11+fmb2*p7p8-2*fmc*hbcm*p7p11+2*fmc*hbcm*p7p8+
6528      . hbcm2*p7p11-hbcm2*p7p8))+w13*(8*p1p3*(ffmcfmb*p7p10+p7p10)+16*
6529      . p3p7*(ffmcfmb*p1p10+p1p10)+4*(ffmcfmb**2*hbcm2*p7p10+2*ffmcfmb
6530      . *fmb*hbcm*p7p10-2*ffmcfmb*fmc*hbcm*p7p10-2*fmb*fmc*p7p10+fmb2*
6531      . p7p10+2*fmc*hbcm*p7p10-hbcm2*p7p10+12*p1p10*p4p7+4*p1p4*p7p10)
6532      . )+4*(-5*p1p12+2*p3p12+2*p4p12+2*p5p12-2*p7p11))
6533       b(3)=ans
6534       b(4)=ccc*(w11*(12*p5p7*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+4*p4p7*(-
6535      . ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+4*p3p7*(-ffmcfmb**2*hbcm2-2*
6536      . ffmcfmb*fmb*hbcm+2*ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2+2*fmb*fmc+
6537      . fmb*hbcm-fmb2-2*fmc*hbcm)+8*(-3*ffmcfmb*p1p3*p3p7-3*p1p3*p4p7+
6538      . 3*p1p3*p5p7-2*p1p4*p3p7))+w1*(12*p5p7*(ffmcfmb*hbcm2+fmb*hbcm-
6539      . hbcm2)+4*p4p7*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+4*p3p7*(-ffmcfmb
6540      . **2*hbcm2-2*ffmcfmb*fmb*hbcm+2*ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2+
6541      . 2*fmb*fmc+fmb*hbcm-fmb2-2*fmc*hbcm)+8*(-3*ffmcfmb*p1p3*p3p7-3*
6542      . p1p3*p4p7+3*p1p3*p5p7-2*p1p4*p3p7)))
6543       ans3=w13*(16*p3p4*(-ffmcfmb*hbcm*p7p10-fmb*p7p10+hbcm*p7p10)+8*
6544      . p1p3*(ffmcfmb*hbcm*p7p10-2*fmc*p7p10-hbcm*p7p10)+8*p3p7*(-
6545      . ffmcfmb*hbcm*p1p10+ffmcfmb*hbcm*p2p10+ffmcfmb*hbcm*p4p10-
6546      . ffmcfmb*hbcm*p5p10+fmb*p1p10+fmb*p2p10+fmb*p4p10-fmb*p5p10+2*
6547      . fmc*p1p10-hbcm*p2p10-hbcm*p4p10+hbcm*p5p10)+4*(-ffmcfmb**2*
6548      . hbcm3*p7p10-2*ffmcfmb*fmb*hbcm2*p7p10-2*ffmcfmb*fmc*hbcm2*
6549      . p7p10-2*fmb*fmc*hbcm*p7p10-fmb2*hbcm*p7p10+2*fmc*hbcm2*p7p10-2
6550      . *hbcm*p1p10*p4p7+6*hbcm*p1p10*p5p7-4*hbcm*p1p4*p7p10+hbcm3*
6551      . p7p10))+4*(-fmb*p3p12-fmc*p3p12+3*hbcm*p1p12-hbcm*p2p12-hbcm*
6552      . p3p12-3*hbcm*p4p12-2*hbcm*p5p12+3*hbcm*p7p11+hbcm*p7p8)
6553       ans2=w11*(16*p1p4*(hbcm*p7p11-hbcm*p7p8)+24*p5p7*(-hbcm*p1p11+
6554      . hbcm*p1p8)+8*p4p7*(hbcm*p1p11-hbcm*p1p8)+16*p3p4*(ffmcfmb*hbcm
6555      . *p7p11-ffmcfmb*hbcm*p7p8+fmb*p7p11-fmb*p7p8-hbcm*p7p11+hbcm*
6556      . p7p8)+8*p1p3*(-ffmcfmb*hbcm*p7p11+ffmcfmb*hbcm*p7p8+2*fmc*
6557      . p7p11-2*fmc*p7p8+hbcm*p7p11-hbcm*p7p8)+8*p3p7*(ffmcfmb*hbcm*
6558      . p1p11-ffmcfmb*hbcm*p1p8-ffmcfmb*hbcm*p2p11+ffmcfmb*hbcm*p2p8-
6559      . ffmcfmb*hbcm*p4p11+ffmcfmb*hbcm*p4p8+ffmcfmb*hbcm*p5p11-
6560      . ffmcfmb*hbcm*p5p8-fmb*p1p11+fmb*p1p8-fmb*p2p11+fmb*p2p8-fmb*
6561      . p4p11+fmb*p4p8+fmb*p5p11-fmb*p5p8-2*fmc*p1p11+2*fmc*p1p8+hbcm*
6562      . p2p11-hbcm*p2p8+hbcm*p4p11-hbcm*p4p8-hbcm*p5p11+hbcm*p5p8)+4*(
6563      . ffmcfmb**2*hbcm3*p7p11-ffmcfmb**2*hbcm3*p7p8+2*ffmcfmb*fmb*
6564      . hbcm2*p7p11-2*ffmcfmb*fmb*hbcm2*p7p8+2*ffmcfmb*fmc*hbcm2*p7p11
6565      . -2*ffmcfmb*fmc*hbcm2*p7p8+2*fmb*fmc*hbcm*p7p11-2*fmb*fmc*hbcm*
6566      . p7p8+fmb2*hbcm*p7p11-fmb2*hbcm*p7p8-2*fmc*hbcm2*p7p11+2*fmc*
6567      . hbcm2*p7p8-hbcm3*p7p11+hbcm3*p7p8))+ans3
6568       ans1=w1*(16*p3p4*(-ffmcfmb*hbcm*p7p8-fmb*p7p8+hbcm*p7p8)+8*p3p7
6569      . *(-ffmcfmb*hbcm*p1p8+ffmcfmb*hbcm*p2p8+ffmcfmb*hbcm*p4p8-
6570      . ffmcfmb*hbcm*p5p8+fmb*p1p8+fmb*p2p8+fmb*p4p8-fmb*p5p8+2*fmc*
6571      . p1p8-hbcm*p2p8-hbcm*p4p8+hbcm*p5p8)+8*p1p3*(ffmcfmb*hbcm*p7p8-
6572      . 2*fmc*p7p8-hbcm*p7p8)+4*(-ffmcfmb**2*hbcm3*p7p8-2*ffmcfmb*fmb*
6573      . hbcm2*p7p8-2*ffmcfmb*fmc*hbcm2*p7p8-2*fmb*fmc*hbcm*p7p8-fmb2*
6574      . hbcm*p7p8+2*fmc*hbcm2*p7p8-4*hbcm*p1p4*p7p8-2*hbcm*p1p8*p4p7+6
6575      . *hbcm*p1p8*p5p7+hbcm3*p7p8))+ans2
6576       ans=ccc*ans1
6577       b(6)=ans
6578       ans2=w13*(8*p3p6*(-2*ffmcfmb*p2p10+3*ffmcfmb*p3p10+4*ffmcfmb*
6579      . p4p10+2*p2p10-3*p3p10-4*p4p10)+4*(3*ffmcfmb*fmb*hbcm*p6p10-3*
6580      . ffmcfmb*fmc*hbcm*p6p10+3*ffmcfmb*hbcm2*p6p10+2*ffmcfmb*p1p3*
6581      . p6p10-3*fmb*fmc*p6p10+3*fmb2*p6p10+3*fmc*hbcm*p6p10-3*hbcm2*
6582      . p6p10+2*p1p2*p6p10+2*p1p4*p6p10-6*p1p5*p6p10))+4*(3*p2p13-3*
6583      . p3p13-3*p4p13-p6p10-p6p11-p6p8)
6584       ans1=w1*(8*p3p6*(-2*ffmcfmb*p2p8+3*ffmcfmb*p3p8+4*ffmcfmb*p4p8+
6585      . 2*p2p8-3*p3p8-4*p4p8)+4*(3*ffmcfmb*fmb*hbcm*p6p8-3*ffmcfmb*fmc
6586      . *hbcm*p6p8+3*ffmcfmb*hbcm2*p6p8+2*ffmcfmb*p1p3*p6p8-3*fmb*fmc*
6587      . p6p8+3*fmb2*p6p8+3*fmc*hbcm*p6p8-3*hbcm2*p6p8+2*p1p2*p6p8+2*
6588      . p1p4*p6p8-6*p1p5*p6p8))+w11*(24*p1p5*(p6p11-p6p8)+8*p1p4*(-
6589      . p6p11+p6p8)+8*p1p2*(-p6p11+p6p8)+8*p3p6*(2*ffmcfmb*p2p11-2*
6590      . ffmcfmb*p2p8-3*ffmcfmb*p3p11+3*ffmcfmb*p3p8-4*ffmcfmb*p4p11+4*
6591      . ffmcfmb*p4p8-2*p2p11+2*p2p8+3*p3p11-3*p3p8+4*p4p11-4*p4p8)+8*
6592      . p1p3*(-ffmcfmb*p6p11+ffmcfmb*p6p8)+12*(-ffmcfmb*fmb*hbcm*p6p11
6593      . +ffmcfmb*fmb*hbcm*p6p8+ffmcfmb*fmc*hbcm*p6p11-ffmcfmb*fmc*hbcm
6594      . *p6p8-ffmcfmb*hbcm2*p6p11+ffmcfmb*hbcm2*p6p8+fmb*fmc*p6p11-fmb
6595      . *fmc*p6p8-fmb2*p6p11+fmb2*p6p8-fmc*hbcm*p6p11+fmc*hbcm*p6p8+
6596      . hbcm2*p6p11-hbcm2*p6p8))+ans2
6597       ans=ccc*ans1
6598       b(7)=ans
6599       b(8)=ccc*(w11*((p3p6*p3p4)*(-32*ffmcfmb+32)+(p3p6*p2p3)*(16*
6600      . ffmcfmb-16)+16*p4p6*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+4*p3p6*(-
6601      . ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm-2*ffmcfmb*hbcm2+3*fmb*fmc-3*
6602      . fmb2+3*hbcm2)+8*(-ffmcfmb*p1p3*p3p6-p1p2*p3p6-p1p4*p3p6+3*p1p5
6603      . *p3p6))+w1*((p3p6*p3p4)*(-32*ffmcfmb+32)+(p3p6*p2p3)*(16*
6604      . ffmcfmb-16)+16*p4p6*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+4*p3p6*(-
6605      . ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm-2*ffmcfmb*hbcm2+3*fmb*fmc-3*
6606      . fmb2+3*hbcm2)+8*(-ffmcfmb*p1p3*p3p6-p1p2*p3p6-p1p4*p3p6+3*p1p5
6607      . *p3p6)))
6608       ans4=4*(2*ffmcfmb**2*hbcm3*p6p11-2*ffmcfmb**2*hbcm3*p6p8+5*
6609      . ffmcfmb*fmb*hbcm2*p6p11-5*ffmcfmb*fmb*hbcm2*p6p8+3*ffmcfmb*fmc
6610      . *hbcm2*p6p11-3*ffmcfmb*fmc*hbcm2*p6p8-5*ffmcfmb*hbcm3*p6p11+5*
6611      . ffmcfmb*hbcm3*p6p8+3*fmb*fmc*hbcm*p6p11-3*fmb*fmc*hbcm*p6p8-6*
6612      . fmb*hbcm2*p6p11+6*fmb*hbcm2*p6p8+3*fmb2*hbcm*p6p11-3*fmb2*hbcm
6613      . *p6p8-3*fmc*hbcm2*p6p11+3*fmc*hbcm2*p6p8+3*hbcm3*p6p11-3*hbcm3
6614      . *p6p8)
6615       ans3=24*p1p5*(-hbcm*p6p11+hbcm*p6p8)+8*p1p4*(hbcm*p6p11-hbcm*
6616      . p6p8)+8*p1p2*(hbcm*p6p11-hbcm*p6p8)+32*p4p6*(-ffmcfmb*hbcm*
6617      . p3p8-fmb*p3p8-hbcm*p1p11+hbcm*p1p8+hbcm*p3p8)+24*p3p5*(-
6618      . ffmcfmb*hbcm*p6p11+ffmcfmb*hbcm*p6p8-fmb*p6p11+fmb*p6p8+hbcm*
6619      . p6p11-hbcm*p6p8)+8*p3p4*(ffmcfmb*hbcm*p6p11-ffmcfmb*hbcm*p6p8+
6620      . fmb*p6p11-fmb*p6p8-hbcm*p6p11+hbcm*p6p8)+8*p2p3*(ffmcfmb*hbcm*
6621      . p6p11-ffmcfmb*hbcm*p6p8+fmb*p6p11-fmb*p6p8-hbcm*p6p11+hbcm*
6622      . p6p8)+8*p1p3*(4*ffmcfmb*hbcm*p6p11-4*ffmcfmb*hbcm*p6p8+3*fmb*
6623      . p6p11-3*fmb*p6p8-3*hbcm*p6p11+3*hbcm*p6p8)+8*p3p6*(-ffmcfmb**2
6624      . *hbcm*p3p8-4*ffmcfmb*fmb*p3p8-3*ffmcfmb*fmc*p3p8-ffmcfmb*hbcm*
6625      . p1p11+ffmcfmb*hbcm*p1p8+ffmcfmb*hbcm*p3p8+2*fmb*p2p11-2*fmb*
6626      . p2p8-3*fmb*p3p11+3*fmb*p3p8-4*fmb*p4p11+4*fmb*p4p8-3*fmc*p1p11
6627      . +3*fmc*p1p8+3*fmc*p3p8)+ans4
6628       ans2=w11*ans3
6629       ans6=w13*(24*p3p5*(ffmcfmb*hbcm*p6p10+fmb*p6p10-hbcm*p6p10)+8*
6630      . p3p4*(-ffmcfmb*hbcm*p6p10-fmb*p6p10+hbcm*p6p10)+32*p4p6*(-
6631      . ffmcfmb*hbcm*p3p10-fmb*p3p10+hbcm*p1p10+hbcm*p3p10)+8*p2p3*(-
6632      . ffmcfmb*hbcm*p6p10-fmb*p6p10+hbcm*p6p10)+8*p1p3*(-4*ffmcfmb*
6633      . hbcm*p6p10-3*fmb*p6p10+3*hbcm*p6p10)+8*p3p6*(-ffmcfmb**2*hbcm*
6634      . p3p10-4*ffmcfmb*fmb*p3p10-3*ffmcfmb*fmc*p3p10+ffmcfmb*hbcm*
6635      . p1p10+ffmcfmb*hbcm*p3p10-2*fmb*p2p10+3*fmb*p3p10+4*fmb*p4p10+3
6636      . *fmc*p1p10+3*fmc*p3p10)+4*(-2*ffmcfmb**2*hbcm3*p6p10-5*ffmcfmb
6637      . *fmb*hbcm2*p6p10-3*ffmcfmb*fmc*hbcm2*p6p10+5*ffmcfmb*hbcm3*
6638      . p6p10-3*fmb*fmc*hbcm*p6p10+6*fmb*hbcm2*p6p10-3*fmb2*hbcm*p6p10
6639      . +3*fmc*hbcm2*p6p10-2*hbcm*p1p2*p6p10-2*hbcm*p1p4*p6p10+6*hbcm*
6640      . p1p5*p6p10-3*hbcm3*p6p10))+4*(-3*hbcm*p2p13+3*hbcm*p3p13+3*
6641      . hbcm*p4p13+hbcm*p6p10+hbcm*p6p11+hbcm*p6p8)
6642       ans5=w1*(32*p4p6*(-ffmcfmb*hbcm*p3p8-fmb*p3p8+hbcm*p1p8+hbcm*
6643      . p3p8)+24*p3p5*(ffmcfmb*hbcm*p6p8+fmb*p6p8-hbcm*p6p8)+8*p3p4*(-
6644      . ffmcfmb*hbcm*p6p8-fmb*p6p8+hbcm*p6p8)+8*p2p3*(-ffmcfmb*hbcm*
6645      . p6p8-fmb*p6p8+hbcm*p6p8)+8*p1p3*(-4*ffmcfmb*hbcm*p6p8-3*fmb*
6646      . p6p8+3*hbcm*p6p8)+8*p3p6*(-ffmcfmb**2*hbcm*p3p8-4*ffmcfmb*fmb*
6647      . p3p8-3*ffmcfmb*fmc*p3p8+ffmcfmb*hbcm*p1p8+ffmcfmb*hbcm*p3p8-2*
6648      . fmb*p2p8+3*fmb*p3p8+4*fmb*p4p8+3*fmc*p1p8+3*fmc*p3p8)+4*(-2*
6649      . ffmcfmb**2*hbcm3*p6p8-5*ffmcfmb*fmb*hbcm2*p6p8-3*ffmcfmb*fmc*
6650      . hbcm2*p6p8+5*ffmcfmb*hbcm3*p6p8-3*fmb*fmc*hbcm*p6p8+6*fmb*
6651      . hbcm2*p6p8-3*fmb2*hbcm*p6p8+3*fmc*hbcm2*p6p8-2*hbcm*p1p2*p6p8-
6652      . 2*hbcm*p1p4*p6p8+6*hbcm*p1p5*p6p8-3*hbcm3*p6p8))+ans6
6653       ans1=ans2+ans5
6654       ans=ccc*ans1
6655       b(10)=ans
6656       ans2=w1*(16*(p4p6*p3p7)*(-ffmcfmb*hbcm-fmb+hbcm)+8*(p4p7*p3p6)*
6657      . (-2*ffmcfmb*hbcm-fmb+2*hbcm)+8*(p6p7*p3p5)*(-ffmcfmb*hbcm-fmb+
6658      . hbcm)+8*(p6p7*p3p4)*(ffmcfmb*hbcm+fmb-hbcm)+8*(p6p7*p2p3)*(
6659      . ffmcfmb*hbcm+fmb-hbcm)+8*(p6p7*p1p3)*(2*ffmcfmb*hbcm+fmb-hbcm)
6660      . +4*p6p7*(ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*hbcm2+2*ffmcfmb*fmc*
6661      . hbcm2-2*ffmcfmb*hbcm3+2*fmb*fmc*hbcm-2*fmb*hbcm2+fmb2*hbcm-2*
6662      . fmc*hbcm2+hbcm3)+8*(p3p7*p3p6)*(-2*ffmcfmb**2*hbcm-2*ffmcfmb*
6663      . fmb-2*ffmcfmb*fmc+2*ffmcfmb*hbcm+fmb+2*fmc)+8*(3*fmb*p3p6*p5p7
6664      . +hbcm*p1p2*p6p7+hbcm*p1p4*p6p7-hbcm*p1p5*p6p7))
6665       ans1=w11*(16*(p4p6*p3p7)*(-ffmcfmb*hbcm-fmb+hbcm)+8*(p4p7*p3p6)
6666      . *(-2*ffmcfmb*hbcm-fmb+2*hbcm)+8*(p6p7*p3p5)*(-ffmcfmb*hbcm-fmb
6667      . +hbcm)+8*(p6p7*p3p4)*(ffmcfmb*hbcm+fmb-hbcm)+8*(p6p7*p2p3)*(
6668      . ffmcfmb*hbcm+fmb-hbcm)+8*(p6p7*p1p3)*(2*ffmcfmb*hbcm+fmb-hbcm)
6669      . +4*p6p7*(ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*hbcm2+2*ffmcfmb*fmc*
6670      . hbcm2-2*ffmcfmb*hbcm3+2*fmb*fmc*hbcm-2*fmb*hbcm2+fmb2*hbcm-2*
6671      . fmc*hbcm2+hbcm3)+8*(p3p7*p3p6)*(-2*ffmcfmb**2*hbcm-2*ffmcfmb*
6672      . fmb-2*ffmcfmb*fmc+2*ffmcfmb*hbcm+fmb+2*fmc)+8*(3*fmb*p3p6*p5p7
6673      . +hbcm*p1p2*p6p7+hbcm*p1p4*p6p7-hbcm*p1p5*p6p7))+ans2
6674       ans=ccc*ans1
6675       b(11)=ans
6676       b(13)=ccc*(w11*(p1p3*(-4*ffmcfmb-12)+2*(-3*ffmcfmb*fmb*hbcm+3*
6677      . ffmcfmb*fmc*hbcm-3*ffmcfmb*hbcm2+3*fmb*fmc-3*fmb2-3*fmc*hbcm+3
6678      . *hbcm2+4*p1p2-8*p1p4))+w1*(p1p3*(-4*ffmcfmb-12)+2*(-3*ffmcfmb*
6679      . fmb*hbcm+3*ffmcfmb*fmc*hbcm-3*ffmcfmb*hbcm2+3*fmb*fmc-3*fmb2-3
6680      . *fmc*hbcm+3*hbcm2+4*p1p2-8*p1p4)))
6681       b(15)=ccc*(w11*(16*p3p4*(ffmcfmb*hbcm+fmb-hbcm)+8*p2p3*(-
6682      . ffmcfmb*hbcm-fmb+hbcm)+4*p1p3*(-2*ffmcfmb*hbcm+3*fmc+3*hbcm)+2
6683      . *(2*ffmcfmb**2*hbcm3+5*ffmcfmb*fmb*hbcm2+3*ffmcfmb*fmc*hbcm2+
6684      . ffmcfmb*hbcm3+3*fmb*fmc*hbcm+3*fmb2*hbcm-3*fmc*hbcm2-4*hbcm*
6685      . p1p2+8*hbcm*p1p4-3*hbcm3))+w1*(16*p3p4*(ffmcfmb*hbcm+fmb-hbcm)
6686      . +8*p2p3*(-ffmcfmb*hbcm-fmb+hbcm)+4*p1p3*(-2*ffmcfmb*hbcm+3*fmc
6687      . +3*hbcm)+2*(2*ffmcfmb**2*hbcm3+5*ffmcfmb*fmb*hbcm2+3*ffmcfmb*
6688      . fmc*hbcm2+ffmcfmb*hbcm3+3*fmb*fmc*hbcm+3*fmb2*hbcm-3*fmc*hbcm2
6689      . -4*hbcm*p1p2+8*hbcm*p1p4-3*hbcm3)))
6690       b(17)=w13*ccc*(4*p3p6*(-ffmcfmb*hbcm-3*fmc)-16*hbcm*p4p6)
6691       b(18)=6*ccc*w13*(-ffmcfmb*hbcm+fmc)
6692       b(19)=2*ccc*w13*(5*ffmcfmb*hbcm2+3*fmc*hbcm-4*p2p3+8*p3p4)
6693       b(20)=w13*ccc*(4*p3p7*(4*ffmcfmb*hbcm-2*fmc-hbcm)+12*(hbcm*p4p7
6694      . -hbcm*p5p7))
6695       b(21)=ccc*(4*w11*(3*ffmcfmb*hbcm*p3p8-3*fmc*p3p8-2*hbcm*p2p11+2
6696      . *hbcm*p2p8+3*hbcm*p3p11-3*hbcm*p3p8+4*hbcm*p4p11-4*hbcm*p4p8)+
6697      . 4*w1*(3*ffmcfmb*hbcm*p3p8-3*fmc*p3p8+2*hbcm*p2p8-3*hbcm*p3p8-4
6698      . *hbcm*p4p8)+4*w13*(3*ffmcfmb*hbcm*p3p10-3*fmc*p3p10+2*hbcm*
6699      . p2p10-3*hbcm*p3p10-4*hbcm*p4p10))
6700       b(22)=ccc*(w13*(16*p3p4*(ffmcfmb*hbcm+fmb-hbcm)+8*p2p3*(-
6701      . ffmcfmb*hbcm-fmb+hbcm)+4*p1p3*(-2*ffmcfmb*hbcm+3*fmc+3*hbcm)+2
6702      . *(2*ffmcfmb**2*hbcm3+5*ffmcfmb*fmb*hbcm2+3*ffmcfmb*fmc*hbcm2+
6703      . ffmcfmb*hbcm3+3*fmb*fmc*hbcm+3*fmb2*hbcm-3*fmc*hbcm2-4*hbcm*
6704      . p1p2+8*hbcm*p1p4-3*hbcm3))-2*hbcm)
6705       b(23)=ccc*(w11*(4*p3p6*(-ffmcfmb*hbcm-3*fmc)-16*hbcm*p4p6)+w1*(
6706      . 4*p3p6*(-ffmcfmb*hbcm-3*fmc)-16*hbcm*p4p6))
6707       b(24)=ccc*(6*w11*(-ffmcfmb*hbcm+fmc)+6*w1*(-ffmcfmb*hbcm+fmc))
6708       b(25)=ccc*(2*w11*(5*ffmcfmb*hbcm2+3*fmc*hbcm-4*p2p3+8*p3p4)+2*
6709      . w1*(5*ffmcfmb*hbcm2+3*fmc*hbcm-4*p2p3+8*p3p4))
6710       b(26)=ccc*(w11*(4*p3p7*(4*ffmcfmb*hbcm-2*fmc-hbcm)+12*(hbcm*
6711      . p4p7-hbcm*p5p7))+w1*(4*p3p7*(4*ffmcfmb*hbcm-2*fmc-hbcm)+12*(
6712      . hbcm*p4p7-hbcm*p5p7)))
6713       b(27)=w13*ccc*(16*p4p6*(ffmcfmb*hbcm+fmb-hbcm)+4*p3p6*(ffmcfmb
6714      . **2*hbcm+4*ffmcfmb*fmb+3*ffmcfmb*fmc-ffmcfmb*hbcm-3*fmc))
6715       b(28)=ccc*(w13*((p3p6*p3p4)*(32*ffmcfmb-32)+(p3p6*p2p3)*(-16*
6716      . ffmcfmb+16)+16*p4p6*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+4*p3p6*(
6717      . ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm+2*ffmcfmb*hbcm2-3*fmb*fmc+3*
6718      . fmb2-3*hbcm2)+8*(ffmcfmb*p1p3*p3p6+p1p2*p3p6+p1p4*p3p6-3*p1p5*
6719      . p3p6))-4*p3p6)
6720       b(29)=ccc*(w13*(16*(p4p6*p3p7)*(-ffmcfmb*hbcm-fmb+hbcm)+8*(p4p7
6721      . *p3p6)*(-2*ffmcfmb*hbcm-fmb+2*hbcm)+8*(p6p7*p3p5)*(-ffmcfmb*
6722      . hbcm-fmb+hbcm)+8*(p6p7*p3p4)*(ffmcfmb*hbcm+fmb-hbcm)+8*(p6p7*
6723      . p2p3)*(ffmcfmb*hbcm+fmb-hbcm)+8*(p6p7*p1p3)*(2*ffmcfmb*hbcm+
6724      . fmb-hbcm)+4*p6p7*(ffmcfmb**2*hbcm3+2*ffmcfmb*fmb*hbcm2+2*
6725      . ffmcfmb*fmc*hbcm2-2*ffmcfmb*hbcm3+2*fmb*fmc*hbcm-2*fmb*hbcm2+
6726      . fmb2*hbcm-2*fmc*hbcm2+hbcm3)+8*(p3p7*p3p6)*(-2*ffmcfmb**2*hbcm
6727      . -2*ffmcfmb*fmb-2*ffmcfmb*fmc+2*ffmcfmb*hbcm+fmb+2*fmc)+8*(3*
6728      . fmb*p3p6*p5p7+hbcm*p1p2*p6p7+hbcm*p1p4*p6p7-hbcm*p1p5*p6p7))-4
6729      . *hbcm*p6p7)
6730       ans4=8*p6p7*(-ffmcfmb*hbcm2*p1p11+ffmcfmb*hbcm2*p1p8+ffmcfmb*
6731      . hbcm2*p2p11-ffmcfmb*hbcm2*p2p8+ffmcfmb*hbcm2*p4p11-ffmcfmb*
6732      . hbcm2*p4p8-ffmcfmb*hbcm2*p5p11+ffmcfmb*hbcm2*p5p8+fmb*hbcm*
6733      . p1p11-fmb*hbcm*p1p8+fmb*hbcm*p2p11-fmb*hbcm*p2p8+fmb*hbcm*
6734      . p4p11-fmb*hbcm*p4p8-fmb*hbcm*p5p11+fmb*hbcm*p5p8-2*fmc*hbcm*
6735      . p1p11+2*fmc*hbcm*p1p8+hbcm2*p1p11-hbcm2*p1p8-hbcm2*p2p11+hbcm2
6736      . *p2p8-hbcm2*p4p11+hbcm2*p4p8+hbcm2*p5p11-hbcm2*p5p8)+8*p3p7*(
6737      . ffmcfmb**2*hbcm2*p6p11-ffmcfmb**2*hbcm2*p6p8+3*ffmcfmb*fmb*
6738      . hbcm*p6p11-3*ffmcfmb*fmb*hbcm*p6p8-ffmcfmb*fmc*hbcm*p6p11+
6739      . ffmcfmb*fmc*hbcm*p6p8+2*ffmcfmb*hbcm2*p6p11-2*ffmcfmb*hbcm2*
6740      . p6p8-fmb*fmc*p6p11+fmb*fmc*p6p8+fmb*hbcm*p6p11-fmb*hbcm*p6p8+2
6741      . *fmb2*p6p11-2*fmb2*p6p8+fmc*hbcm*p6p11-fmc*hbcm*p6p8-3*hbcm2*
6742      . p6p11+3*hbcm2*p6p8)+8*p3p6*(ffmcfmb**2*hbcm2*p7p11-ffmcfmb*fmb
6743      . *hbcm*p7p8+2*ffmcfmb*hbcm2*p7p8-2*fmb*fmc*p7p11-fmb*fmc*p7p8+
6744      . fmb2*p7p11+2*fmb2*p7p8-hbcm2*p7p11-2*hbcm2*p7p8)+16*(ffmcfmb*
6745      . p1p3*p3p6*p7p11+p1p2*p3p6*p7p11+p1p4*p3p6*p7p11)
6746       ans3=32*(p3p7*p1p5)*(-p6p11+p6p8)+16*(p3p6*p1p5)*(-p7p11-2*p7p8
6747      . )+32*(p4p7*p1p3)*(p6p11-p6p8)+32*(p4p6*p3p7)*(p1p11-p1p8)+64*(
6748      . p4p7*p3p6)*(p1p11-p1p8)+16*(p6p7*p3p5)*(p1p11-p1p8)+16*(p6p7*
6749      . p3p4)*(-p1p11+p1p8)+16*(p6p7*p2p3)*(-p1p11+p1p8)+16*(p6p7*p1p3
6750      . )*(-p1p11+p1p8)+32*(p3p6*p3p4)*(ffmcfmb*p7p11+ffmcfmb*p7p8-
6751      . p7p11-p7p8)+32*(p3p6*p2p3)*(-ffmcfmb*p7p8+p7p8)+32*(p3p7*p1p3)
6752      . *(ffmcfmb*p6p11-ffmcfmb*p6p8)+16*(p3p7*p3p6)*(ffmcfmb*p1p11-
6753      . ffmcfmb*p1p8-3*ffmcfmb*p2p11+3*ffmcfmb*p2p8+3*ffmcfmb*p3p11-3*
6754      . ffmcfmb*p3p8+3*ffmcfmb*p4p11-3*ffmcfmb*p4p8+ffmcfmb*p5p11-
6755      . ffmcfmb*p5p8+3*p1p11-3*p1p8+3*p2p11-3*p2p8-3*p3p11+3*p3p8-3*
6756      . p4p11+3*p4p8-p5p11+p5p8)+24*p5p7*(ffmcfmb*hbcm2*p6p11-ffmcfmb*
6757      . hbcm2*p6p8+fmb*hbcm*p6p11-fmb*hbcm*p6p8-hbcm2*p6p11+hbcm2*p6p8
6758      . )+8*p4p7*(ffmcfmb*hbcm2*p6p11-ffmcfmb*hbcm2*p6p8+fmb*hbcm*
6759      . p6p11-fmb*hbcm*p6p8-hbcm2*p6p11+hbcm2*p6p8)+16*p4p6*(-ffmcfmb*
6760      . hbcm2*p7p11-ffmcfmb*hbcm2*p7p8-fmb*hbcm*p7p11-fmb*hbcm*p7p8+
6761      . hbcm2*p7p11+hbcm2*p7p8)+ans4
6762       ans2=w11*ans3
6763       ans7=16*(-ffmcfmb*p1p3*p3p6*p7p10-2*ffmcfmb*p1p3*p3p7*p6p10+
6764      . p1p10*p1p3*p6p7+p1p10*p2p3*p6p7+p1p10*p3p4*p6p7-p1p10*p3p5*
6765      . p6p7-4*p1p10*p3p6*p4p7-2*p1p10*p3p7*p4p6-p1p2*p3p6*p7p10-2*
6766      . p1p3*p4p7*p6p10-p1p4*p3p6*p7p10+p1p5*p3p6*p7p10+2*p1p5*p3p7*
6767      . p6p10)
6768       ans6=32*(p3p6*p3p4)*(-ffmcfmb*p7p10+p7p10)+16*(p3p7*p3p6)*(-
6769      . ffmcfmb*p1p10+3*ffmcfmb*p2p10-3*ffmcfmb*p3p10-3*ffmcfmb*p4p10-
6770      . ffmcfmb*p5p10-3*p1p10-3*p2p10+3*p3p10+3*p4p10+p5p10)+24*p5p7*(
6771      . -ffmcfmb*hbcm2*p6p10-fmb*hbcm*p6p10+hbcm2*p6p10)+8*p4p7*(-
6772      . ffmcfmb*hbcm2*p6p10-fmb*hbcm*p6p10+hbcm2*p6p10)+16*p4p6*(
6773      . ffmcfmb*hbcm2*p7p10+fmb*hbcm*p7p10-hbcm2*p7p10)+8*p6p7*(
6774      . ffmcfmb*hbcm2*p1p10-ffmcfmb*hbcm2*p2p10-ffmcfmb*hbcm2*p4p10+
6775      . ffmcfmb*hbcm2*p5p10-fmb*hbcm*p1p10-fmb*hbcm*p2p10-fmb*hbcm*
6776      . p4p10+fmb*hbcm*p5p10+2*fmc*hbcm*p1p10-hbcm2*p1p10+hbcm2*p2p10+
6777      . hbcm2*p4p10-hbcm2*p5p10)+8*p3p7*(-ffmcfmb**2*hbcm2*p6p10-3*
6778      . ffmcfmb*fmb*hbcm*p6p10+ffmcfmb*fmc*hbcm*p6p10-2*ffmcfmb*hbcm2*
6779      . p6p10+fmb*fmc*p6p10-fmb*hbcm*p6p10-2*fmb2*p6p10-fmc*hbcm*p6p10
6780      . +3*hbcm2*p6p10)+8*p3p6*(-ffmcfmb**2*hbcm2*p7p10+2*fmb*fmc*
6781      . p7p10-fmb2*p7p10+hbcm2*p7p10)+ans7
6782       ans5=w13*ans6
6783       ans8=(8*p3p4*(-p6p12+3*p7p13)+8*p6p7*(-3*p3p11-p3p8)+24*p2p3*(
6784      . p6p12-p7p13)+8*p3p6*(-p2p12-p3p12-3*p4p12-2*p5p12+p7p10+3*
6785      . p7p11+p7p8)+8*p3p7*(-2*ffmcfmb*p3p13-p1p13-3*p2p13+5*p3p13+5*
6786      . p4p13+3*p5p13-2*p6p11)+4*(2*ffmcfmb*hbcm2*p6p12+3*fmb*hbcm*
6787      . p6p12-3*fmb*hbcm*p7p13-fmc*hbcm*p6p12+3*fmc*hbcm*p7p13-3*hbcm2
6788      . *p6p12+3*hbcm2*p7p13+4*p1p3*p6p12+2*p3p12*p4p6-4*p3p13*p4p7))
6789       ans1=w1*(32*(p3p6*p3p4)*(ffmcfmb*p7p8-p7p8)+32*(p3p6*p2p3)*(-
6790      . ffmcfmb*p7p8+p7p8)+16*(p3p7*p3p6)*(-ffmcfmb*p1p8+3*ffmcfmb*
6791      . p2p8-3*ffmcfmb*p3p8-3*ffmcfmb*p4p8-ffmcfmb*p5p8-3*p1p8-3*p2p8+
6792      . 3*p3p8+3*p4p8+p5p8)+24*p5p7*(-ffmcfmb*hbcm2*p6p8-fmb*hbcm*p6p8
6793      . +hbcm2*p6p8)+8*p4p7*(-ffmcfmb*hbcm2*p6p8-fmb*hbcm*p6p8+hbcm2*
6794      . p6p8)+16*p4p6*(-ffmcfmb*hbcm2*p7p8-fmb*hbcm*p7p8+hbcm2*p7p8)+8
6795      . *p6p7*(ffmcfmb*hbcm2*p1p8-ffmcfmb*hbcm2*p2p8-ffmcfmb*hbcm2*
6796      . p4p8+ffmcfmb*hbcm2*p5p8-fmb*hbcm*p1p8-fmb*hbcm*p2p8-fmb*hbcm*
6797      . p4p8+fmb*hbcm*p5p8+2*fmc*hbcm*p1p8-hbcm2*p1p8+hbcm2*p2p8+hbcm2
6798      . *p4p8-hbcm2*p5p8)+8*p3p6*(-ffmcfmb*fmb*hbcm*p7p8+2*ffmcfmb*
6799      . hbcm2*p7p8-fmb*fmc*p7p8+2*fmb2*p7p8-2*hbcm2*p7p8)+8*p3p7*(-
6800      . ffmcfmb**2*hbcm2*p6p8-3*ffmcfmb*fmb*hbcm*p6p8+ffmcfmb*fmc*hbcm
6801      . *p6p8-2*ffmcfmb*hbcm2*p6p8+fmb*fmc*p6p8-fmb*hbcm*p6p8-2*fmb2*
6802      . p6p8-fmc*hbcm*p6p8+3*hbcm2*p6p8)+16*(-2*ffmcfmb*p1p3*p3p7*p6p8
6803      . +p1p3*p1p8*p6p7-2*p1p3*p4p7*p6p8-2*p1p5*p3p6*p7p8+2*p1p5*p3p7*
6804      . p6p8+p1p8*p2p3*p6p7+p1p8*p3p4*p6p7-p1p8*p3p5*p6p7-4*p1p8*p3p6*
6805      . p4p7-2*p1p8*p3p7*p4p6))+ans2+ans5+ans8
6806       ans=ccc*ans1
6807       b(30)=ans
6808       b(31)=ccc*(w11*(16*p4p6*(ffmcfmb*hbcm+fmb-hbcm)+4*p3p6*(ffmcfmb
6809      . **2*hbcm+4*ffmcfmb*fmb+3*ffmcfmb*fmc-ffmcfmb*hbcm-3*fmc))+w1*(
6810      . 16*p4p6*(ffmcfmb*hbcm+fmb-hbcm)+4*p3p6*(ffmcfmb**2*hbcm+4*
6811      . ffmcfmb*fmb+3*ffmcfmb*fmc-ffmcfmb*hbcm-3*fmc)))
6812       ans3=w13*(32*p4p7*(ffmcfmb*hbcm*p6p10+fmb*p6p10-hbcm*p6p10)+16*
6813      . p4p6*(ffmcfmb*hbcm*p7p10+fmb*p7p10-hbcm*p7p10)+16*p3p7*(
6814      . ffmcfmb*hbcm*p6p10+fmb*p6p10-hbcm*p6p10)+8*p6p7*(-ffmcfmb*hbcm
6815      . *p1p10-ffmcfmb*hbcm*p2p10-ffmcfmb*hbcm*p4p10+ffmcfmb*hbcm*
6816      . p5p10-fmb*p1p10-fmb*p2p10-fmb*p4p10+fmb*p5p10+hbcm*p1p10+hbcm*
6817      . p2p10+hbcm*p4p10-hbcm*p5p10)+16*p3p6*(ffmcfmb*fmb*p7p10+
6818      . ffmcfmb*fmc*p7p10-fmc*p7p10))+4*(fmb*p6p12-3*fmb*p7p13+fmc*
6819      . p6p12-3*fmc*p7p13-hbcm*p6p12+3*hbcm*p7p13)
6820       ans2=w11*(32*p4p7*(-ffmcfmb*hbcm*p6p11+ffmcfmb*hbcm*p6p8-fmb*
6821      . p6p11+fmb*p6p8+hbcm*p6p11-hbcm*p6p8)+16*p4p6*(-ffmcfmb*hbcm*
6822      . p7p11+ffmcfmb*hbcm*p7p8-fmb*p7p11+fmb*p7p8+hbcm*p7p11-hbcm*
6823      . p7p8)+16*p3p7*(-ffmcfmb*hbcm*p6p11+ffmcfmb*hbcm*p6p8-fmb*p6p11
6824      . +fmb*p6p8+hbcm*p6p11-hbcm*p6p8)+8*p6p7*(ffmcfmb*hbcm*p1p11-
6825      . ffmcfmb*hbcm*p1p8+ffmcfmb*hbcm*p2p11-ffmcfmb*hbcm*p2p8+ffmcfmb
6826      . *hbcm*p4p11-ffmcfmb*hbcm*p4p8-ffmcfmb*hbcm*p5p11+ffmcfmb*hbcm*
6827      . p5p8+fmb*p1p11-fmb*p1p8+fmb*p2p11-fmb*p2p8+fmb*p4p11-fmb*p4p8-
6828      . fmb*p5p11+fmb*p5p8-hbcm*p1p11+hbcm*p1p8-hbcm*p2p11+hbcm*p2p8-
6829      . hbcm*p4p11+hbcm*p4p8+hbcm*p5p11-hbcm*p5p8)+16*p3p6*(-ffmcfmb*
6830      . fmb*p7p11+ffmcfmb*fmb*p7p8-ffmcfmb*fmc*p7p11+ffmcfmb*fmc*p7p8+
6831      . fmc*p7p11-fmc*p7p8))+ans3
6832       ans1=w1*(32*p4p7*(ffmcfmb*hbcm*p6p8+fmb*p6p8-hbcm*p6p8)+16*p4p6
6833      . *(ffmcfmb*hbcm*p7p8+fmb*p7p8-hbcm*p7p8)+16*p3p7*(ffmcfmb*hbcm*
6834      . p6p8+fmb*p6p8-hbcm*p6p8)+8*p6p7*(-ffmcfmb*hbcm*p1p8-ffmcfmb*
6835      . hbcm*p2p8-ffmcfmb*hbcm*p4p8+ffmcfmb*hbcm*p5p8-fmb*p1p8-fmb*
6836      . p2p8-fmb*p4p8+fmb*p5p8+hbcm*p1p8+hbcm*p2p8+hbcm*p4p8-hbcm*p5p8
6837      . )+16*p3p6*(ffmcfmb*fmb*p7p8+ffmcfmb*fmc*p7p8-fmc*p7p8))+ans2
6838       ans=ccc*ans1
6839       b(33)=ans
6840       b(35)=ccc*(8*w1*(-ffmcfmb*hbcm*p7p8+fmc*p7p8)+8*w11*(ffmcfmb*
6841      . hbcm*p7p11-ffmcfmb*hbcm*p7p8-fmc*p7p11+fmc*p7p8)+8*w13*(-
6842      . ffmcfmb*hbcm*p7p10+fmc*p7p10))
6843       b(38)=ccc*(w1*(8*p3p7*(p1p8+p2p8+p4p8-p5p8)+8*(-ffmcfmb*hbcm2*
6844      . p7p8-fmc*hbcm*p7p8-2*p3p4*p7p8))+w11*(16*p3p4*(p7p11-p7p8)+8*
6845      . p3p7*(-p1p11+p1p8-p2p11+p2p8-p4p11+p4p8+p5p11-p5p8)+8*(ffmcfmb
6846      . *hbcm2*p7p11-ffmcfmb*hbcm2*p7p8+fmc*hbcm*p7p11-fmc*hbcm*p7p8))
6847      . +w13*(8*p3p7*(p1p10+p2p10+p4p10-p5p10)+8*(-ffmcfmb*hbcm2*p7p10
6848      . -fmc*hbcm*p7p10-2*p3p4*p7p10))-4*p3p12)
6849       b(39)=w11*ccc*((p3p7*p3p6)*(-32*ffmcfmb-16)+8*p6p7*(ffmcfmb*
6850      . hbcm2+fmc*hbcm-hbcm2)+8*(p1p3*p6p7+p2p3*p6p7+p3p4*p6p7-p3p5*
6851      . p6p7-6*p3p6*p4p7-2*p3p7*p4p6))
6852       b(40)=w11*ccc*(16*(p4p6*p3p7)*(ffmcfmb*hbcm+fmb-hbcm)+8*(p4p7*
6853      . p3p6)*(2*ffmcfmb*hbcm+fmb-2*hbcm)+8*(p6p7*p3p5)*(ffmcfmb*hbcm+
6854      . fmb-hbcm)+8*(p6p7*p3p4)*(-ffmcfmb*hbcm-fmb+hbcm)+8*(p6p7*p2p3)
6855      . *(-ffmcfmb*hbcm-fmb+hbcm)+8*(p6p7*p1p3)*(-2*ffmcfmb*hbcm-fmb+
6856      . hbcm)+4*p6p7*(-ffmcfmb**2*hbcm3-2*ffmcfmb*fmb*hbcm2-2*ffmcfmb*
6857      . fmc*hbcm2+2*ffmcfmb*hbcm3-2*fmb*fmc*hbcm+2*fmb*hbcm2-fmb2*hbcm
6858      . +2*fmc*hbcm2-hbcm3)+8*(p3p7*p3p6)*(2*ffmcfmb**2*hbcm+2*ffmcfmb
6859      . *fmb+2*ffmcfmb*fmc-2*ffmcfmb*hbcm-fmb-2*fmc)+8*(-3*fmb*p3p6*
6860      . p5p7-hbcm*p1p2*p6p7-hbcm*p1p4*p6p7+hbcm*p1p5*p6p7))
6861       b(41)=w11*ccc*((p5p7*p3p6)*(24*ffmcfmb-24)+(p4p7*p3p6)*(-8*
6862      . ffmcfmb+8)+(p3p7*p3p6)*(8*ffmcfmb-8)+4*p6p7*(-ffmcfmb**2*hbcm2
6863      . -2*ffmcfmb*fmb*hbcm+2*ffmcfmb*fmc*hbcm+2*fmb*fmc-fmb2-2*fmc*
6864      . hbcm+hbcm2)+8*(-ffmcfmb*p1p3*p6p7-p1p2*p6p7-p1p4*p6p7+p1p5*
6865      . p6p7))
6866       b(43)=ccc*(w1*(8*p6p7*(-p1p8-p2p8-p4p8+p5p8)+16*p3p7*(ffmcfmb*
6867      . p6p8+p6p8)+16*(ffmcfmb*p3p6*p7p8+p4p6*p7p8+3*p4p7*p6p8))+w11*(
6868      . 48*p4p7*(-p6p11+p6p8)+16*p4p6*(-p7p11+p7p8)+8*p6p7*(p1p11-p1p8
6869      . +p2p11-p2p8+p4p11-p4p8-p5p11+p5p8)+16*p3p7*(-ffmcfmb*p6p11+
6870      . ffmcfmb*p6p8-p6p11+p6p8)+16*p3p6*(-ffmcfmb*p7p11+ffmcfmb*p7p8)
6871      . )+w13*(8*p6p7*(-p1p10-p2p10-p4p10+p5p10)+16*p3p7*(ffmcfmb*
6872      . p6p10+p6p10)+16*(ffmcfmb*p3p6*p7p10+p4p6*p7p10+3*p4p7*p6p10))+
6873      . 4*(-p6p12-3*p7p13))
6874       b(44)=w11*ccc*((p3p6*p3p4)*(-32*ffmcfmb+32)+(p3p6*p2p3)*(16*
6875      . ffmcfmb-16)+16*p4p6*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+4*p3p6*(-
6876      . ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm-2*ffmcfmb*hbcm2+3*fmb*fmc-3*
6877      . fmb2+3*hbcm2)+8*(-ffmcfmb*p1p3*p3p6-p1p2*p3p6-p1p4*p3p6+3*p1p5
6878      . *p3p6))
6879       b(45)=16*ccc*w11*(-ffmcfmb*p3p6-p4p6)
6880       b(46)=w11*ccc*(16*p4p6*(ffmcfmb*hbcm+fmb-hbcm)+4*p3p6*(ffmcfmb
6881      . **2*hbcm+4*ffmcfmb*fmb+3*ffmcfmb*fmc-ffmcfmb*hbcm-3*fmc))
6882       b(49)=w11*ccc*(4*p3p7*(-4*ffmcfmb*hbcm+2*fmc+hbcm)+12*(-hbcm*
6883      . p4p7+hbcm*p5p7))
6884       b(50)=w11*ccc*(p3p7*(-16*ffmcfmb+4)+4*(-5*p4p7+3*p5p7))
6885       b(51)=w11*ccc*(12*p5p7*(-ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+4*p4p7*(
6886      . ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+4*p3p7*(ffmcfmb**2*hbcm2+2*
6887      . ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2-2*fmb*fmc-
6888      . fmb*hbcm+fmb2+2*fmc*hbcm)+8*(3*ffmcfmb*p1p3*p3p7+3*p1p3*p4p7-3
6889      . *p1p3*p5p7+2*p1p4*p3p7))
6890       b(53)=ccc*(4*w1*(2*p2p8-3*p3p8-4*p4p8)+4*w11*(-2*p2p11+2*p2p8+3
6891      . *p3p11-3*p3p8+4*p4p11-4*p4p8)+4*w13*(2*p2p10-3*p3p10-4*p4p10))
6892       b(54)=2*ccc*w11*(-5*ffmcfmb*hbcm2-3*fmc*hbcm+4*p2p3-8*p3p4)
6893       b(55)=6*ccc*w11*(-ffmcfmb*hbcm+fmc)
6894       b(56)=w11*ccc*(p1p3*(4*ffmcfmb+12)+2*(3*ffmcfmb*fmb*hbcm-3*
6895      . ffmcfmb*fmc*hbcm+3*ffmcfmb*hbcm2-3*fmb*fmc+3*fmb2+3*fmc*hbcm-3
6896      . *hbcm2-4*p1p2+8*p1p4))
6897       b(57)=-8*ccc
6898       b(58)=w11*ccc*(4*p3p6*(ffmcfmb*hbcm+3*fmc)+16*hbcm*p4p6)
6899       b(59)=w11*ccc*(16*p3p4*(-ffmcfmb*hbcm-fmb+hbcm)+8*p2p3*(ffmcfmb
6900      . *hbcm+fmb-hbcm)+4*p1p3*(2*ffmcfmb*hbcm-3*fmc-3*hbcm)+2*(-2*
6901      . ffmcfmb**2*hbcm3-5*ffmcfmb*fmb*hbcm2-3*ffmcfmb*fmc*hbcm2-
6902      . ffmcfmb*hbcm3-3*fmb*fmc*hbcm-3*fmb2*hbcm+3*fmc*hbcm2+4*hbcm*
6903      . p1p2-8*hbcm*p1p4+3*hbcm3))
6904       b(61)=-4*ccc*hbcm
6905       b(62)=-8*ccc*fmb*p3p6
6906       b(63)=w13*ccc*((p3p7*p3p6)*(32*ffmcfmb+16)+8*p6p7*(-ffmcfmb*
6907      . hbcm2-fmc*hbcm+hbcm2)+8*(-p1p3*p6p7-p2p3*p6p7-p3p4*p6p7+p3p5*
6908      . p6p7+6*p3p6*p4p7+2*p3p7*p4p6))
6909       b(64)=ccc*(w13*((p5p7*p3p6)*(-24*ffmcfmb+24)+(p4p7*p3p6)*(8*
6910      . ffmcfmb-8)+(p3p7*p3p6)*(-8*ffmcfmb+8)+4*p6p7*(ffmcfmb**2*hbcm2
6911      . +2*ffmcfmb*fmb*hbcm-2*ffmcfmb*fmc*hbcm-2*fmb*fmc+fmb2+2*fmc*
6912      . hbcm-hbcm2)+8*(ffmcfmb*p1p3*p6p7+p1p2*p6p7+p1p4*p6p7-p1p5*p6p7
6913      . ))-4*p6p7)
6914       b(65)=ccc*(w11*((p3p7*p3p6)*(32*ffmcfmb+16)+8*p6p7*(-ffmcfmb*
6915      . hbcm2-fmc*hbcm+hbcm2)+8*(-p1p3*p6p7-p2p3*p6p7-p3p4*p6p7+p3p5*
6916      . p6p7+6*p3p6*p4p7+2*p3p7*p4p6))+w1*((p3p7*p3p6)*(32*ffmcfmb+16)
6917      . +8*p6p7*(-ffmcfmb*hbcm2-fmc*hbcm+hbcm2)+8*(-p1p3*p6p7-p2p3*
6918      . p6p7-p3p4*p6p7+p3p5*p6p7+6*p3p6*p4p7+2*p3p7*p4p6)))
6919       b(66)=ccc*(w1*(8*p6p7*(-hbcm*p1p8-hbcm*p2p8-hbcm*p4p8+hbcm*p5p8
6920      . )+8*p3p7*(-ffmcfmb*hbcm*p6p8+fmc*p6p8+2*hbcm*p6p8)+16*(fmc*
6921      . p3p6*p7p8+hbcm*p4p6*p7p8+2*hbcm*p4p7*p6p8))+w11*(32*p4p7*(-
6922      . hbcm*p6p11+hbcm*p6p8)+16*p4p6*(-hbcm*p7p11+hbcm*p7p8)+8*p6p7*(
6923      . hbcm*p1p11-hbcm*p1p8+hbcm*p2p11-hbcm*p2p8+hbcm*p4p11-hbcm*p4p8
6924      . -hbcm*p5p11+hbcm*p5p8)+16*p3p6*(-fmc*p7p11+fmc*p7p8)+8*p3p7*(
6925      . ffmcfmb*hbcm*p6p11-ffmcfmb*hbcm*p6p8-fmc*p6p11+fmc*p6p8-2*hbcm
6926      . *p6p11+2*hbcm*p6p8))+w13*(8*p6p7*(-hbcm*p1p10-hbcm*p2p10-hbcm*
6927      . p4p10+hbcm*p5p10)+8*p3p7*(-ffmcfmb*hbcm*p6p10+fmc*p6p10+2*hbcm
6928      . *p6p10)+16*(fmc*p3p6*p7p10+hbcm*p4p6*p7p10+2*hbcm*p4p7*p6p10))
6929      . +4*(hbcm*p6p12-3*hbcm*p7p13))
6930       b(67)=16*ccc*w13*(ffmcfmb*p3p6+p4p6)
6931       b(68)=ccc*(16*w11*(ffmcfmb*p3p6+p4p6)+16*w1*(ffmcfmb*p3p6+p4p6)
6932      . )
6933       b(69)=w13*ccc*(p3p7*(16*ffmcfmb-4)+4*(5*p4p7-3*p5p7))
6934       b(70)=ccc*(w13*(12*p5p7*(ffmcfmb*hbcm2+fmb*hbcm-hbcm2)+4*p4p7*(
6935      . -ffmcfmb*hbcm2-fmb*hbcm+hbcm2)+4*p3p7*(-ffmcfmb**2*hbcm2-2*
6936      . ffmcfmb*fmb*hbcm+2*ffmcfmb*fmc*hbcm+ffmcfmb*hbcm2+2*fmb*fmc+
6937      . fmb*hbcm-fmb2-2*fmc*hbcm)+8*(-3*ffmcfmb*p1p3*p3p7-3*p1p3*p4p7+
6938      . 3*p1p3*p5p7-2*p1p4*p3p7))+4*p3p7)
6939       b(71)=ccc*(w11*(p3p7*(16*ffmcfmb-4)+4*(5*p4p7-3*p5p7))+w1*(p3p7
6940      . *(16*ffmcfmb-4)+4*(5*p4p7-3*p5p7)))
6941       b(72)=ccc*(w13*(p1p3*(-4*ffmcfmb-12)+2*(-3*ffmcfmb*fmb*hbcm+3*
6942      . ffmcfmb*fmc*hbcm-3*ffmcfmb*hbcm2+3*fmb*fmc-3*fmb2-3*fmc*hbcm+3
6943      . *hbcm2+4*p1p2-8*p1p4))+2)
6944       b(73)=8*ccc*w11*p6p7*(-ffmcfmb*hbcm+fmc)
6945       b(74)=ccc*(8*w11*p6p7*(ffmcfmb*hbcm-fmc)+8*w1*p6p7*(ffmcfmb*
6946      . hbcm-fmc))
6947       b(75)=ccc*(4*w1*(3*ffmcfmb*hbcm*p1p8+2*ffmcfmb*hbcm*p2p8-3*
6948      . ffmcfmb*hbcm*p3p8-4*ffmcfmb*hbcm*p4p8+2*fmb*p2p8-3*fmb*p3p8-4*
6949      . fmb*p4p8-3*fmc*p1p8-2*hbcm*p2p8+3*hbcm*p3p8+4*hbcm*p4p8)+4*w11
6950      . *(-3*ffmcfmb*hbcm*p1p11+3*ffmcfmb*hbcm*p1p8-2*ffmcfmb*hbcm*
6951      . p2p11+2*ffmcfmb*hbcm*p2p8+3*ffmcfmb*hbcm*p3p11-3*ffmcfmb*hbcm*
6952      . p3p8+4*ffmcfmb*hbcm*p4p11-4*ffmcfmb*hbcm*p4p8-2*fmb*p2p11+2*
6953      . fmb*p2p8+3*fmb*p3p11-3*fmb*p3p8+4*fmb*p4p11-4*fmb*p4p8+3*fmc*
6954      . p1p11-3*fmc*p1p8+2*hbcm*p2p11-2*hbcm*p2p8-3*hbcm*p3p11+3*hbcm*
6955      . p3p8-4*hbcm*p4p11+4*hbcm*p4p8)+4*w13*(3*ffmcfmb*hbcm*p1p10+2*
6956      . ffmcfmb*hbcm*p2p10-3*ffmcfmb*hbcm*p3p10-4*ffmcfmb*hbcm*p4p10+2
6957      . *fmb*p2p10-3*fmb*p3p10-4*fmb*p4p10-3*fmc*p1p10-2*hbcm*p2p10+3*
6958      . hbcm*p3p10+4*hbcm*p4p10))
6959       ans2=w13*(8*p1p3*(-3*p1p10-2*p2p10+3*p3p10+4*p4p10)+4*(-5*
6960      . ffmcfmb*hbcm2*p1p10-2*ffmcfmb*hbcm2*p2p10+3*ffmcfmb*hbcm2*
6961      . p3p10+4*ffmcfmb*hbcm2*p4p10-2*fmb*hbcm*p2p10+3*fmb*hbcm*p3p10+
6962      . 4*fmb*hbcm*p4p10-3*fmc*hbcm*p1p10+6*hbcm2*p1p10+2*hbcm2*p2p10-
6963      . 3*hbcm2*p3p10-4*hbcm2*p4p10-2*p1p10*p2p3-2*p1p10*p3p4+6*p1p10*
6964      . p3p5))
6965       ans1=w1*(8*p1p3*(-3*p1p8-2*p2p8+3*p3p8+4*p4p8)+4*(-5*ffmcfmb*
6966      . hbcm2*p1p8-2*ffmcfmb*hbcm2*p2p8+3*ffmcfmb*hbcm2*p3p8+4*ffmcfmb
6967      . *hbcm2*p4p8-2*fmb*hbcm*p2p8+3*fmb*hbcm*p3p8+4*fmb*hbcm*p4p8-3*
6968      . fmc*hbcm*p1p8+6*hbcm2*p1p8+2*hbcm2*p2p8-3*hbcm2*p3p8-4*hbcm2*
6969      . p4p8-2*p1p8*p2p3-2*p1p8*p3p4+6*p1p8*p3p5))+w11*(24*p3p5*(-
6970      . p1p11+p1p8)+8*p3p4*(p1p11-p1p8)+8*p2p3*(p1p11-p1p8)+8*p1p3*(3*
6971      . p1p11-3*p1p8+2*p2p11-2*p2p8-3*p3p11+3*p3p8-4*p4p11+4*p4p8)+4*(
6972      . 5*ffmcfmb*hbcm2*p1p11-5*ffmcfmb*hbcm2*p1p8+2*ffmcfmb*hbcm2*
6973      . p2p11-2*ffmcfmb*hbcm2*p2p8-3*ffmcfmb*hbcm2*p3p11+3*ffmcfmb*
6974      . hbcm2*p3p8-4*ffmcfmb*hbcm2*p4p11+4*ffmcfmb*hbcm2*p4p8+2*fmb*
6975      . hbcm*p2p11-2*fmb*hbcm*p2p8-3*fmb*hbcm*p3p11+3*fmb*hbcm*p3p8-4*
6976      . fmb*hbcm*p4p11+4*fmb*hbcm*p4p8+3*fmc*hbcm*p1p11-3*fmc*hbcm*
6977      . p1p8-6*hbcm2*p1p11+6*hbcm2*p1p8-2*hbcm2*p2p11+2*hbcm2*p2p8+3*
6978      . hbcm2*p3p11-3*hbcm2*p3p8+4*hbcm2*p4p11-4*hbcm2*p4p8))+ans2
6979       ans=ccc*ans1
6980       b(76)=ans
6981       b(77)=ccc*(w1*(8*p3p6*(3*p1p8+p2p8+p4p8-3*p5p8)+4*(-5*ffmcfmb*
6982      . hbcm2*p6p8-3*fmc*hbcm*p6p8+6*hbcm2*p6p8-6*p1p3*p6p8-2*p2p3*
6983      . p6p8-2*p3p4*p6p8+6*p3p5*p6p8))+w11*(24*p3p5*(-p6p11+p6p8)+8*
6984      . p3p4*(p6p11-p6p8)+8*p2p3*(p6p11-p6p8)+24*p1p3*(p6p11-p6p8)+8*
6985      . p3p6*(-3*p1p11+3*p1p8-p2p11+p2p8-p4p11+p4p8+3*p5p11-3*p5p8)+4*
6986      . (5*ffmcfmb*hbcm2*p6p11-5*ffmcfmb*hbcm2*p6p8+3*fmc*hbcm*p6p11-3
6987      . *fmc*hbcm*p6p8-6*hbcm2*p6p11+6*hbcm2*p6p8))+w13*(8*p3p6*(3*
6988      . p1p10+p2p10+p4p10-3*p5p10)+4*(-5*ffmcfmb*hbcm2*p6p10-3*fmc*
6989      . hbcm*p6p10+6*hbcm2*p6p10-6*p1p3*p6p10-2*p2p3*p6p10-2*p3p4*
6990      . p6p10+6*p3p5*p6p10)))
6991       b(78)=ccc*(12*w1*(ffmcfmb*hbcm*p6p8-fmc*p6p8)+12*w11*(-ffmcfmb*
6992      . hbcm*p6p11+ffmcfmb*hbcm*p6p8+fmc*p6p11-fmc*p6p8)+12*w13*(
6993      . ffmcfmb*hbcm*p6p10-fmc*p6p10))
6994       b(81)=8*ccc*w13*p6p7*(ffmcfmb*hbcm-fmc)
6995       b(82)=-8*ccc*p3p7
6996       b(83)=ccc*(4*p3p7*(2*ffmcfmb*hbcm+2*fmb+2*fmc-hbcm)+4*(hbcm*
6997      . p4p7+3*hbcm*p5p7))
6998       b(84)=4*ccc*(p3p7-p4p7+3*p5p7)
6999       b(85)=2*ccc*(-ffmcfmb*hbcm2+4*fmb*hbcm-3*fmc*hbcm-4*hbcm2+4*
7000      . p2p3-8*p3p4)
7001       b(86)=-8*ccc
7002       b(87)=2*ccc*(ffmcfmb*hbcm+4*fmb+3*fmc-4*hbcm)
7003       b(88)=w13*ccc*(12*p5p7*(-ffmcfmb*hbcm-fmb+hbcm)+12*p4p7*(
7004      . ffmcfmb*hbcm+fmb-hbcm)+4*p3p7*(2*ffmcfmb**2*hbcm+2*ffmcfmb*fmb
7005      . -3*ffmcfmb*hbcm-fmb+hbcm))
7006       b(89)=-8*ccc*hbcm
7007       b(90)=w11*ccc*(12*p5p7*(ffmcfmb*hbcm+fmb-hbcm)+12*p4p7*(-
7008      . ffmcfmb*hbcm-fmb+hbcm)+4*p3p7*(-2*ffmcfmb**2*hbcm-2*ffmcfmb*
7009      . fmb+3*ffmcfmb*hbcm+fmb-hbcm))
7010       b(91)=ccc*(w11*(12*p5p7*(-ffmcfmb*hbcm-fmb+hbcm)+12*p4p7*(
7011      . ffmcfmb*hbcm+fmb-hbcm)+4*p3p7*(2*ffmcfmb**2*hbcm+2*ffmcfmb*fmb
7012      . -3*ffmcfmb*hbcm-fmb+hbcm))+w1*(12*p5p7*(-ffmcfmb*hbcm-fmb+hbcm
7013      . )+12*p4p7*(ffmcfmb*hbcm+fmb-hbcm)+4*p3p7*(2*ffmcfmb**2*hbcm+2*
7014      . ffmcfmb*fmb-3*ffmcfmb*hbcm-fmb+hbcm)))
7015       b(92)=8*ccc*(-hbcm2+2*p1p3+p2p3-p3p4-p3p5)
7016       b(93)=8*ccc*p3p6
7017       b(94)=4*ccc*(ffmcfmb*hbcm+fmb-hbcm)
7018       do 200 n=1,94
7019          c(n,1)=c(n,1)-0.1818181818181818d0*b(n)
7020          c(n,2)=c(n,2)-0.1512818716977898d0*b(n)
7021          c(n,3)=c(n,3)-0.1869893980016914d0*b(n)
7022 200   continue
7023       return
7024       end
7025
7026       subroutine amp32_3p2(cc)
7027       implicit double precision(a-h,o-z)
7028       implicit integer (i-n)
7029       dimension b(94)
7030 #include "inclcon.h"
7031 #include "inclppp.h"
7032 #include "inclamp.h"
7033       do 100 n=1,94
7034          b(n)=0.0d0
7035 100   continue
7036       ccc=cc/((ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*p3p5+fmb2+
7037      . hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3+2*ffmcfmb*p3p4+
7038      . fmc2-2*p1p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3-fmc2))
7039       b(1)=w5*ccc*(4*p6p7*(ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm+ffmcfmb*
7040      . fmc*hbcm+ffmcfmb*hbcm2+fmb*fmc-fmc*hbcm-2*fmc2)+8*(-ffmcfmb*
7041      . p3p6*p3p7+ffmcfmb*p3p6*p4p7-3*ffmcfmb*p3p6*p5p7+p1p2*p6p7-p1p3
7042      . *p6p7+p1p4*p6p7-p1p5*p6p7))
7043       b(2)=w2*ccc*(4*p6p7*(-ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm-ffmcfmb
7044      . *fmc*hbcm-ffmcfmb*hbcm2-fmb*fmc+fmc*hbcm+2*fmc2)+8*(ffmcfmb*
7045      . p3p6*p3p7-ffmcfmb*p3p6*p4p7+3*ffmcfmb*p3p6*p5p7-p1p2*p6p7+p1p3
7046      . *p6p7-p1p4*p6p7+p1p5*p6p7))
7047       ans=ccc*(w2*(8*p3p7*(-2*ffmcfmb*p1p9+p1p9)+4*(-ffmcfmb**2*hbcm2
7048      . *p7p9+ffmcfmb*fmb*hbcm*p7p9-ffmcfmb*fmc*hbcm*p7p9-ffmcfmb*
7049      . hbcm2*p7p9-fmb*fmc*p7p9+fmc*hbcm*p7p9+2*fmc2*p7p9-4*p1p4*p7p9-
7050      . 2*p1p9*p4p7+2*p1p9*p5p7))+w5*(16*p1p4*(-p7p10+p7p8)+8*p5p7*(
7051      . p1p10-p1p8)+8*p4p7*(-p1p10+p1p8)+8*p3p7*(-2*ffmcfmb*p1p10+2*
7052      . ffmcfmb*p1p8+p1p10-p1p8)+4*(-ffmcfmb**2*hbcm2*p7p10+ffmcfmb**2
7053      . *hbcm2*p7p8+ffmcfmb*fmb*hbcm*p7p10-ffmcfmb*fmb*hbcm*p7p8-
7054      . ffmcfmb*fmc*hbcm*p7p10+ffmcfmb*fmc*hbcm*p7p8-ffmcfmb*hbcm2*
7055      . p7p10+ffmcfmb*hbcm2*p7p8-fmb*fmc*p7p10+fmb*fmc*p7p8+fmc*hbcm*
7056      . p7p10-fmc*hbcm*p7p8+2*fmc2*p7p10-2*fmc2*p7p8))+w12*(8*p3p7*(-2
7057      . *ffmcfmb*p1p10+p1p10)+4*(-ffmcfmb**2*hbcm2*p7p10+ffmcfmb*fmb*
7058      . hbcm*p7p10-ffmcfmb*fmc*hbcm*p7p10-ffmcfmb*hbcm2*p7p10-fmb*fmc*
7059      . p7p10+fmc*hbcm*p7p10+2*fmc2*p7p10-2*p1p10*p4p7+2*p1p10*p5p7-4*
7060      . p1p4*p7p10))+4*(-p1p12-p3p12-p4p12-2*p5p12+p7p11+p7p9))
7061       b(3)=ans
7062       b(4)=w5*ccc*((p3p7*p1p3)*(-16*ffmcfmb+8)+12*p5p7*(ffmcfmb*hbcm2
7063      . -fmc*hbcm)+4*p4p7*(-ffmcfmb*hbcm2+fmc*hbcm)+4*p3p7*(-ffmcfmb**
7064      . 2*hbcm2+ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm-fmb*fmc+2*fmc2)+8*(-
7065      . p1p3*p4p7+p1p3*p5p7-2*p1p4*p3p7))
7066       b(5)=w2*ccc*((p3p7*p1p3)*(16*ffmcfmb-8)+12*p5p7*(-ffmcfmb*hbcm2
7067      . +fmc*hbcm)+4*p4p7*(ffmcfmb*hbcm2-fmc*hbcm)+4*p3p7*(ffmcfmb**2*
7068      . hbcm2-ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+fmb*fmc-2*fmc2)+8*(
7069      . p1p3*p4p7-p1p3*p5p7+2*p1p4*p3p7))
7070       ans3=w12*(16*p3p4*(-ffmcfmb*hbcm*p7p10+fmc*p7p10)+16*p1p3*(
7071      . ffmcfmb*hbcm*p7p10-fmc*p7p10)+8*p3p7*(ffmcfmb*hbcm*p1p10+
7072      . ffmcfmb*hbcm*p2p10+ffmcfmb*hbcm*p4p10-ffmcfmb*hbcm*p5p10+fmc*
7073      . p1p10-fmc*p2p10-fmc*p4p10+fmc*p5p10-hbcm*p1p10)+4*(-ffmcfmb**2
7074      . *hbcm3*p7p10+ffmcfmb*fmb*hbcm2*p7p10+3*ffmcfmb*fmc*hbcm2*p7p10
7075      . -ffmcfmb*hbcm3*p7p10-fmb*fmc*hbcm*p7p10+fmc*hbcm2*p7p10-2*fmc2
7076      . *hbcm*p7p10+2*hbcm*p1p10*p4p7-2*hbcm*p1p10*p5p7+4*hbcm*p1p4*
7077      . p7p10))+4*(hbcm*p2p12+hbcm*p3p12+2*hbcm*p4p12+hbcm*p5p12+hbcm*
7078      . p7p10-2*hbcm*p7p11-hbcm*p7p8)
7079       ans2=w5*(16*p1p4*(hbcm*p7p10-hbcm*p7p8)+8*p5p7*(-hbcm*p1p10+
7080      . hbcm*p1p8)+8*p4p7*(hbcm*p1p10-hbcm*p1p8)+16*p3p4*(-ffmcfmb*
7081      . hbcm*p7p10+ffmcfmb*hbcm*p7p8+fmc*p7p10-fmc*p7p8)+16*p1p3*(
7082      . ffmcfmb*hbcm*p7p10-ffmcfmb*hbcm*p7p8-fmc*p7p10+fmc*p7p8)+8*
7083      . p3p7*(ffmcfmb*hbcm*p1p10-ffmcfmb*hbcm*p1p8+ffmcfmb*hbcm*p2p10-
7084      . ffmcfmb*hbcm*p2p8+ffmcfmb*hbcm*p4p10-ffmcfmb*hbcm*p4p8-ffmcfmb
7085      . *hbcm*p5p10+ffmcfmb*hbcm*p5p8+fmc*p1p10-fmc*p1p8-fmc*p2p10+fmc
7086      . *p2p8-fmc*p4p10+fmc*p4p8+fmc*p5p10-fmc*p5p8-hbcm*p1p10+hbcm*
7087      . p1p8)+4*(-ffmcfmb**2*hbcm3*p7p10+ffmcfmb**2*hbcm3*p7p8+ffmcfmb
7088      . *fmb*hbcm2*p7p10-ffmcfmb*fmb*hbcm2*p7p8+3*ffmcfmb*fmc*hbcm2*
7089      . p7p10-3*ffmcfmb*fmc*hbcm2*p7p8-ffmcfmb*hbcm3*p7p10+ffmcfmb*
7090      . hbcm3*p7p8-fmb*fmc*hbcm*p7p10+fmb*fmc*hbcm*p7p8+fmc*hbcm2*
7091      . p7p10-fmc*hbcm2*p7p8-2*fmc2*hbcm*p7p10+2*fmc2*hbcm*p7p8))+ans3
7092       ans1=w2*(16*p3p4*(-ffmcfmb*hbcm*p7p9+fmc*p7p9)+8*p3p7*(ffmcfmb*
7093      . hbcm*p1p9+ffmcfmb*hbcm*p2p9+ffmcfmb*hbcm*p4p9-ffmcfmb*hbcm*
7094      . p5p9+fmc*p1p9-fmc*p2p9-fmc*p4p9+fmc*p5p9-hbcm*p1p9)+16*p1p3*(
7095      . ffmcfmb*hbcm*p7p9-fmc*p7p9)+4*(-ffmcfmb**2*hbcm3*p7p9+ffmcfmb*
7096      . fmb*hbcm2*p7p9+3*ffmcfmb*fmc*hbcm2*p7p9-ffmcfmb*hbcm3*p7p9-fmb
7097      . *fmc*hbcm*p7p9+fmc*hbcm2*p7p9-2*fmc2*hbcm*p7p9+4*hbcm*p1p4*
7098      . p7p9+2*hbcm*p1p9*p4p7-2*hbcm*p1p9*p5p7))+ans2
7099       ans=ccc*ans1
7100       b(6)=ans
7101       b(7)=ccc*(w2*(8*p3p6*(-ffmcfmb*p1p9+ffmcfmb*p2p9-2*ffmcfmb*p3p9
7102      . -3*ffmcfmb*p4p9+ffmcfmb*p5p9+p1p9)+8*(-3*p1p9*p4p6+p1p9*p5p6))
7103      . +w5*(8*p5p6*(p1p10-p1p8)+24*p4p6*(-p1p10+p1p8)+8*p3p6*(-
7104      . ffmcfmb*p1p10+ffmcfmb*p1p8+ffmcfmb*p2p10-ffmcfmb*p2p8-2*
7105      . ffmcfmb*p3p10+2*ffmcfmb*p3p8-3*ffmcfmb*p4p10+3*ffmcfmb*p4p8+
7106      . ffmcfmb*p5p10-ffmcfmb*p5p8+p1p10-p1p8))+w12*(8*p3p6*(-ffmcfmb*
7107      . p1p10+ffmcfmb*p2p10-2*ffmcfmb*p3p10-3*ffmcfmb*p4p10+ffmcfmb*
7108      . p5p10+p1p10)+8*(-3*p1p10*p4p6+p1p10*p5p6))+4*(-3*p1p13-p2p13+2
7109      . *p3p13-p4p13+3*p5p13))
7110       b(8)=w5*ccc*((p3p6*p1p3)*(-8*ffmcfmb+8)+4*p5p6*(-ffmcfmb*hbcm2+
7111      . fmc*hbcm)+12*p4p6*(ffmcfmb*hbcm2-fmc*hbcm)+4*p3p6*(-ffmcfmb**2
7112      . *hbcm2+3*ffmcfmb*fmb*hbcm-4*ffmcfmb*fmc*hbcm-2*ffmcfmb*hbcm2+
7113      . fmc*hbcm)+8*(ffmcfmb*p2p3*p3p6-3*ffmcfmb*p3p4*p3p6+ffmcfmb*
7114      . p3p5*p3p6-3*p1p3*p4p6+p1p3*p5p6))
7115       b(9)=w2*ccc*((p3p6*p1p3)*(8*ffmcfmb-8)+4*p5p6*(ffmcfmb*hbcm2-
7116      . fmc*hbcm)+12*p4p6*(-ffmcfmb*hbcm2+fmc*hbcm)+4*p3p6*(ffmcfmb**2
7117      . *hbcm2-3*ffmcfmb*fmb*hbcm+4*ffmcfmb*fmc*hbcm+2*ffmcfmb*hbcm2-
7118      . fmc*hbcm)+8*(-ffmcfmb*p2p3*p3p6+3*ffmcfmb*p3p4*p3p6-ffmcfmb*
7119      . p3p5*p3p6+3*p1p3*p4p6-p1p3*p5p6))
7120       ans=ccc*(8*w2*p3p6*(-3*ffmcfmb*hbcm*p1p9-ffmcfmb*hbcm*p2p9+2*
7121      . ffmcfmb*hbcm*p3p9+3*ffmcfmb*hbcm*p4p9-ffmcfmb*hbcm*p5p9)+w5*(8
7122      . *p5p6*(ffmcfmb*hbcm*p3p10-ffmcfmb*hbcm*p3p8-fmc*p3p10+fmc*p3p8
7123      . )+24*p4p6*(-ffmcfmb*hbcm*p3p10+ffmcfmb*hbcm*p3p8+fmc*p3p10-fmc
7124      . *p3p8)+8*p3p6*(-ffmcfmb**2*hbcm*p3p10+ffmcfmb**2*hbcm*p3p8+3*
7125      . ffmcfmb*fmb*p3p10-3*ffmcfmb*fmb*p3p8+4*ffmcfmb*fmc*p3p10-4*
7126      . ffmcfmb*fmc*p3p8-3*ffmcfmb*hbcm*p1p10+3*ffmcfmb*hbcm*p1p8-
7127      . ffmcfmb*hbcm*p2p10+ffmcfmb*hbcm*p2p8+3*ffmcfmb*hbcm*p4p10-3*
7128      . ffmcfmb*hbcm*p4p8-ffmcfmb*hbcm*p5p10+ffmcfmb*hbcm*p5p8-fmc*
7129      . p3p10+fmc*p3p8))+w12*(8*p5p6*(ffmcfmb*hbcm*p3p10-fmc*p3p10)+24
7130      . *p4p6*(-ffmcfmb*hbcm*p3p10+fmc*p3p10)+8*p3p6*(-ffmcfmb**2*hbcm
7131      . *p3p10+3*ffmcfmb*fmb*p3p10+4*ffmcfmb*fmc*p3p10-3*ffmcfmb*hbcm*
7132      . p1p10-ffmcfmb*hbcm*p2p10+3*ffmcfmb*hbcm*p4p10-ffmcfmb*hbcm*
7133      . p5p10-fmc*p3p10))+4*(-2*fmb*p3p13-2*fmc*p3p13+3*hbcm*p1p13+
7134      . hbcm*p2p13+hbcm*p4p13-3*hbcm*p5p13))
7135       b(10)=ans
7136       b(11)=w5*ccc*(8*(p6p7*p1p3)*(-fmb-fmc)+16*(p4p6*p3p7)*(ffmcfmb*
7137      . hbcm-fmc)+8*(p5p7*p3p6)*(-3*ffmcfmb*hbcm+fmc)+8*(p4p7*p3p6)*(
7138      . ffmcfmb*hbcm-fmc)+8*(p6p7*p3p5)*(ffmcfmb*hbcm-fmc)+8*(p6p7*
7139      . p3p4)*(-ffmcfmb*hbcm+fmc)+8*(p6p7*p2p3)*(-ffmcfmb*hbcm+fmc)+4*
7140      . p6p7*(-ffmcfmb**2*hbcm3+ffmcfmb*fmb*hbcm2+3*ffmcfmb*fmc*hbcm2+
7141      . ffmcfmb*hbcm3-fmb*fmc*hbcm-fmc*hbcm2-2*fmc2*hbcm)+8*(p3p7*p3p6
7142      . )*(ffmcfmb**2*hbcm-ffmcfmb*fmb-4*ffmcfmb*fmc+fmc)+8*(hbcm*p1p2
7143      . *p6p7+hbcm*p1p4*p6p7-hbcm*p1p5*p6p7))
7144       b(12)=w2*ccc*(16*(p4p6*p3p7)*(-ffmcfmb*hbcm+fmc)+8*(p5p7*p3p6)*
7145      . (3*ffmcfmb*hbcm-fmc)+8*(p4p7*p3p6)*(-ffmcfmb*hbcm+fmc)+8*(p6p7
7146      . *p3p5)*(-ffmcfmb*hbcm+fmc)+8*(p6p7*p3p4)*(ffmcfmb*hbcm-fmc)+8*
7147      . (p6p7*p2p3)*(ffmcfmb*hbcm-fmc)+8*(p6p7*p1p3)*(-ffmcfmb*hbcm+
7148      . fmc+hbcm)+4*p6p7*(ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2-3*ffmcfmb
7149      . *fmc*hbcm2-ffmcfmb*hbcm3+fmb*fmc*hbcm+fmc*hbcm2+2*fmc2*hbcm)+8
7150      . *(p3p7*p3p6)*(-ffmcfmb**2*hbcm+ffmcfmb*fmb+4*ffmcfmb*fmc-fmc)+
7151      . 8*(-hbcm*p1p2*p6p7-hbcm*p1p4*p6p7+hbcm*p1p5*p6p7))
7152       b(13)=w5*ccc*(p1p3*(-4*ffmcfmb+4)+2*(3*ffmcfmb*fmb*hbcm-3*
7153      . ffmcfmb*fmc*hbcm-3*ffmcfmb*hbcm2-3*fmb*fmc+3*fmc*hbcm+3*fmc2+2
7154      . *p1p2-6*p1p4+2*p1p5))
7155       b(14)=w2*ccc*(p1p3*(4*ffmcfmb-4)+2*(-3*ffmcfmb*fmb*hbcm+3*
7156      . ffmcfmb*fmc*hbcm+3*ffmcfmb*hbcm2+3*fmb*fmc-3*fmc*hbcm-3*fmc2-2
7157      . *p1p2+6*p1p4-2*p1p5))
7158       b(15)=w5*ccc*(4*p3p5*(ffmcfmb*hbcm-fmc)+12*p3p4*(-ffmcfmb*hbcm+
7159      . fmc)+4*p2p3*(ffmcfmb*hbcm-fmc)+4*p1p3*(4*ffmcfmb*hbcm-3*fmc-
7160      . hbcm)+2*(-2*ffmcfmb**2*hbcm3+3*ffmcfmb*fmb*hbcm2+5*ffmcfmb*fmc
7161      . *hbcm2-ffmcfmb*hbcm3-3*fmb*fmc*hbcm+fmc*hbcm2-3*fmc2*hbcm-2*
7162      . hbcm*p1p2+6*hbcm*p1p4-2*hbcm*p1p5))
7163       b(16)=w2*ccc*(4*p3p5*(-ffmcfmb*hbcm+fmc)+12*p3p4*(ffmcfmb*hbcm-
7164      . fmc)+4*p2p3*(-ffmcfmb*hbcm+fmc)+4*p1p3*(-4*ffmcfmb*hbcm+3*fmc+
7165      . hbcm)+2*(2*ffmcfmb**2*hbcm3-3*ffmcfmb*fmb*hbcm2-5*ffmcfmb*fmc*
7166      . hbcm2+ffmcfmb*hbcm3+3*fmb*fmc*hbcm-fmc*hbcm2+3*fmc2*hbcm+2*
7167      . hbcm*p1p2-6*hbcm*p1p4+2*hbcm*p1p5))
7168       b(17)=ccc*(w5*(4*p3p6*(4*ffmcfmb*hbcm-hbcm)+4*(3*hbcm*p4p6-hbcm
7169      . *p5p6))+w12*(4*p3p6*(4*ffmcfmb*hbcm-hbcm)+4*(3*hbcm*p4p6-hbcm*
7170      . p5p6)))
7171       b(18)=ccc*(6*w5*(-ffmcfmb*hbcm-fmb+hbcm)+6*w12*(-ffmcfmb*hbcm-
7172      . fmb+hbcm))
7173       b(19)=ccc*(2*w5*(-5*ffmcfmb*hbcm2+3*fmb*hbcm-hbcm2+6*p1p3+2*
7174      . p2p3-6*p3p4+2*p3p5)+2*w12*(-5*ffmcfmb*hbcm2+3*fmb*hbcm-hbcm2+6
7175      . *p1p3+2*p2p3-6*p3p4+2*p3p5))
7176       b(20)=ccc*(w5*(4*p3p7*(-ffmcfmb*hbcm+fmb+hbcm)+8*(-hbcm*p4p7+2*
7177      . hbcm*p5p7))+w12*(4*p3p7*(-ffmcfmb*hbcm+fmb+hbcm)+8*(-hbcm*p4p7
7178      . +2*hbcm*p5p7)))
7179       b(21)=ccc*(4*w2*(-3*hbcm*p1p9-hbcm*p2p9+2*hbcm*p3p9+3*hbcm*p4p9
7180      . -hbcm*p5p9)+4*w5*(3*ffmcfmb*hbcm*p3p10-3*ffmcfmb*hbcm*p3p8+3*
7181      . fmb*p3p10-3*fmb*p3p8-3*hbcm*p1p10+3*hbcm*p1p8-hbcm*p2p10+hbcm*
7182      . p2p8-hbcm*p3p10+hbcm*p3p8+3*hbcm*p4p10-3*hbcm*p4p8-hbcm*p5p10+
7183      . hbcm*p5p8)+4*w12*(3*ffmcfmb*hbcm*p3p10+3*fmb*p3p10-3*hbcm*
7184      . p1p10-hbcm*p2p10-hbcm*p3p10+3*hbcm*p4p10-hbcm*p5p10))
7185       b(22)=ccc*(w5*(4*p3p5*(-ffmcfmb*hbcm+fmc)+12*p3p4*(ffmcfmb*hbcm
7186      . -fmc)+4*p2p3*(-ffmcfmb*hbcm+fmc)+4*p1p3*(-4*ffmcfmb*hbcm+3*fmc
7187      . +hbcm)+2*(2*ffmcfmb**2*hbcm3-3*ffmcfmb*fmb*hbcm2-5*ffmcfmb*fmc
7188      . *hbcm2+ffmcfmb*hbcm3+3*fmb*fmc*hbcm-fmc*hbcm2+3*fmc2*hbcm+2*
7189      . hbcm*p1p2-6*hbcm*p1p4+2*hbcm*p1p5))+w12*(4*p3p5*(-ffmcfmb*hbcm
7190      . +fmc)+12*p3p4*(ffmcfmb*hbcm-fmc)+4*p2p3*(-ffmcfmb*hbcm+fmc)+4*
7191      . p1p3*(-4*ffmcfmb*hbcm+3*fmc+hbcm)+2*(2*ffmcfmb**2*hbcm3-3*
7192      . ffmcfmb*fmb*hbcm2-5*ffmcfmb*fmc*hbcm2+ffmcfmb*hbcm3+3*fmb*fmc*
7193      . hbcm-fmc*hbcm2+3*fmc2*hbcm+2*hbcm*p1p2-6*hbcm*p1p4+2*hbcm*p1p5
7194      . ))-2*hbcm)
7195       b(23)=w5*ccc*(4*p3p6*(-4*ffmcfmb*hbcm+hbcm)+4*(-3*hbcm*p4p6+
7196      . hbcm*p5p6))
7197       b(24)=6*ccc*w5*(ffmcfmb*hbcm+fmb-hbcm)
7198       b(25)=2*ccc*w5*(5*ffmcfmb*hbcm2-3*fmb*hbcm+hbcm2-6*p1p3-2*p2p3+
7199      . 6*p3p4-2*p3p5)
7200       b(26)=w5*ccc*(4*p3p7*(ffmcfmb*hbcm-fmb-hbcm)+8*(hbcm*p4p7-2*
7201      . hbcm*p5p7))
7202       b(27)=ccc*(w5*(4*p5p6*(-ffmcfmb*hbcm+fmc)+12*p4p6*(ffmcfmb*hbcm
7203      . -fmc)+4*p3p6*(ffmcfmb**2*hbcm-3*ffmcfmb*fmb-4*ffmcfmb*fmc+2*
7204      . ffmcfmb*hbcm+fmc))+w12*(4*p5p6*(-ffmcfmb*hbcm+fmc)+12*p4p6*(
7205      . ffmcfmb*hbcm-fmc)+4*p3p6*(ffmcfmb**2*hbcm-3*ffmcfmb*fmb-4*
7206      . ffmcfmb*fmc+2*ffmcfmb*hbcm+fmc)))
7207       b(28)=ccc*(w5*((p3p6*p1p3)*(-8*ffmcfmb+8)+4*p5p6*(-ffmcfmb*
7208      . hbcm2+fmc*hbcm)+12*p4p6*(ffmcfmb*hbcm2-fmc*hbcm)+4*p3p6*(-
7209      . ffmcfmb**2*hbcm2+3*ffmcfmb*fmb*hbcm-4*ffmcfmb*fmc*hbcm-2*
7210      . ffmcfmb*hbcm2+fmc*hbcm)+8*(ffmcfmb*p2p3*p3p6-3*ffmcfmb*p3p4*
7211      . p3p6+ffmcfmb*p3p5*p3p6-3*p1p3*p4p6+p1p3*p5p6))+w12*((p3p6*p1p3
7212      . )*(-8*ffmcfmb+8)+4*p5p6*(-ffmcfmb*hbcm2+fmc*hbcm)+12*p4p6*(
7213      . ffmcfmb*hbcm2-fmc*hbcm)+4*p3p6*(-ffmcfmb**2*hbcm2+3*ffmcfmb*
7214      . fmb*hbcm-4*ffmcfmb*fmc*hbcm-2*ffmcfmb*hbcm2+fmc*hbcm)+8*(
7215      . ffmcfmb*p2p3*p3p6-3*ffmcfmb*p3p4*p3p6+ffmcfmb*p3p5*p3p6-3*p1p3
7216      . *p4p6+p1p3*p5p6)))
7217       ans=ccc*(w5*(8*(p6p7*p1p3)*(fmb+fmc)+16*(p4p6*p3p7)*(-ffmcfmb*
7218      . hbcm+fmc)+8*(p5p7*p3p6)*(3*ffmcfmb*hbcm-fmc)+8*(p4p7*p3p6)*(-
7219      . ffmcfmb*hbcm+fmc)+8*(p6p7*p3p5)*(-ffmcfmb*hbcm+fmc)+8*(p6p7*
7220      . p3p4)*(ffmcfmb*hbcm-fmc)+8*(p6p7*p2p3)*(ffmcfmb*hbcm-fmc)+4*
7221      . p6p7*(ffmcfmb**2*hbcm3-ffmcfmb*fmb*hbcm2-3*ffmcfmb*fmc*hbcm2-
7222      . ffmcfmb*hbcm3+fmb*fmc*hbcm+fmc*hbcm2+2*fmc2*hbcm)+8*(p3p7*p3p6
7223      . )*(-ffmcfmb**2*hbcm+ffmcfmb*fmb+4*ffmcfmb*fmc-fmc)+8*(-hbcm*
7224      . p1p2*p6p7-hbcm*p1p4*p6p7+hbcm*p1p5*p6p7))+w12*(8*(p6p7*p1p3)*(
7225      . fmb+fmc)+16*(p4p6*p3p7)*(-ffmcfmb*hbcm+fmc)+8*(p5p7*p3p6)*(3*
7226      . ffmcfmb*hbcm-fmc)+8*(p4p7*p3p6)*(-ffmcfmb*hbcm+fmc)+8*(p6p7*
7227      . p3p5)*(-ffmcfmb*hbcm+fmc)+8*(p6p7*p3p4)*(ffmcfmb*hbcm-fmc)+8*(
7228      . p6p7*p2p3)*(ffmcfmb*hbcm-fmc)+4*p6p7*(ffmcfmb**2*hbcm3-ffmcfmb
7229      . *fmb*hbcm2-3*ffmcfmb*fmc*hbcm2-ffmcfmb*hbcm3+fmb*fmc*hbcm+fmc*
7230      . hbcm2+2*fmc2*hbcm)+8*(p3p7*p3p6)*(-ffmcfmb**2*hbcm+ffmcfmb*fmb
7231      . +4*ffmcfmb*fmc-fmc)+8*(-hbcm*p1p2*p6p7-hbcm*p1p4*p6p7+hbcm*
7232      . p1p5*p6p7)))
7233       b(29)=ans
7234       ans4=8*p6p7*(-ffmcfmb*hbcm2*p1p10+ffmcfmb*hbcm2*p1p8+ffmcfmb*
7235      . hbcm2*p2p10-ffmcfmb*hbcm2*p2p8+ffmcfmb*hbcm2*p4p10-ffmcfmb*
7236      . hbcm2*p4p8-ffmcfmb*hbcm2*p5p10+ffmcfmb*hbcm2*p5p8+fmc*hbcm*
7237      . p1p10-fmc*hbcm*p1p8-fmc*hbcm*p2p10+fmc*hbcm*p2p8-fmc*hbcm*
7238      . p4p10+fmc*hbcm*p4p8+fmc*hbcm*p5p10-fmc*hbcm*p5p8+2*hbcm2*p1p10
7239      . -2*hbcm2*p1p8)+8*p3p7*(-2*ffmcfmb**2*hbcm2*p6p10+2*ffmcfmb**2*
7240      . hbcm2*p6p8+2*ffmcfmb*fmc*hbcm*p6p10-2*ffmcfmb*fmc*hbcm*p6p8+
7241      . ffmcfmb*hbcm2*p6p10-ffmcfmb*hbcm2*p6p8-fmc*hbcm*p6p10+fmc*hbcm
7242      . *p6p8)+8*p3p6*(ffmcfmb**2*hbcm2*p7p10-ffmcfmb*fmb*hbcm*p7p10-2
7243      . *ffmcfmb*fmb*hbcm*p7p8+2*ffmcfmb*fmc*hbcm*p7p10+2*ffmcfmb*fmc*
7244      . hbcm*p7p8+ffmcfmb*hbcm2*p7p10+ffmcfmb*hbcm2*p7p8-fmc*hbcm*p7p8
7245      . )+16*(-ffmcfmb*p2p3*p3p6*p7p8-ffmcfmb*p3p5*p3p6*p7p8-p1p3*p5p6
7246      . *p7p8)
7247       ans3=16*(p5p7*p1p3)*(-p6p10+p6p8)+16*(p4p7*p1p3)*(p6p10-p6p8)+
7248      . 16*(p4p6*p1p3)*(2*p7p10+p7p8)+16*(p6p7*p1p3)*(-p2p10+p2p8-
7249      . p4p10+p4p8+p5p10-p5p8)+16*(p5p6*p3p7)*(-p1p10+p1p8)+48*(p4p6*
7250      . p3p7)*(p1p10-p1p8)+16*(p6p7*p3p5)*(p1p10-p1p8)+16*(p6p7*p3p4)*
7251      . (p1p10-p1p8)+16*(p6p7*p2p3)*(-p1p10+p1p8)+16*(p3p6*p3p4)*(2*
7252      . ffmcfmb*p7p10+ffmcfmb*p7p8)+16*(p3p7*p1p3)*(2*ffmcfmb*p6p10-2*
7253      . ffmcfmb*p6p8-p6p10+p6p8)+16*(p3p6*p1p3)*(ffmcfmb*p7p8-p7p8)+16
7254      . *(p3p7*p3p6)*(2*ffmcfmb*p1p10-2*ffmcfmb*p1p8-2*ffmcfmb*p2p10+2
7255      . *ffmcfmb*p2p8+2*ffmcfmb*p3p10-2*ffmcfmb*p3p8+2*ffmcfmb*p4p10-2
7256      . *ffmcfmb*p4p8-p1p10+p1p8)+8*p5p7*(ffmcfmb*hbcm2*p6p10-ffmcfmb*
7257      . hbcm2*p6p8-fmc*hbcm*p6p10+fmc*hbcm*p6p8)+8*p5p6*(ffmcfmb*hbcm2
7258      . *p7p8-fmc*hbcm*p7p8)+8*p4p7*(-ffmcfmb*hbcm2*p6p10+ffmcfmb*
7259      . hbcm2*p6p8+fmc*hbcm*p6p10-fmc*hbcm*p6p8)+8*p4p6*(-2*ffmcfmb*
7260      . hbcm2*p7p10-ffmcfmb*hbcm2*p7p8+2*fmc*hbcm*p7p10+fmc*hbcm*p7p8)
7261      . +ans4
7262       ans2=w5*ans3
7263       ans6=(8*p6p7*(-p3p10+2*p3p11+p3p8)+16*p1p3*(p6p12+p7p13)+8*p3p7
7264      . *(2*ffmcfmb*p3p13+4*p1p13-p3p13-2*p5p13)+8*p3p6*(-ffmcfmb*
7265      . p3p12-2*p1p12)+4*(-2*ffmcfmb*hbcm2*p6p12+ffmcfmb*hbcm2*p7p13-
7266      . fmb*hbcm*p7p13+2*fmc*hbcm*p6p12+2*fmc*hbcm*p7p13-3*hbcm2*p7p13
7267      . +4*p2p3*p7p13-2*p3p12*p4p6+8*p3p13*p4p7-4*p3p13*p5p7-4*p3p5*
7268      . p7p13))
7269       ans5=w12*(16*(p6p7*p1p3)*(-p2p10-p4p10+p5p10)+16*(p3p7*p1p3)*(2
7270      . *ffmcfmb*p6p10-p6p10)+16*(p3p7*p3p6)*(2*ffmcfmb*p1p10-2*
7271      . ffmcfmb*p2p10+2*ffmcfmb*p3p10+2*ffmcfmb*p4p10-p1p10)+8*p5p7*(
7272      . ffmcfmb*hbcm2*p6p10-fmc*hbcm*p6p10)+8*p4p7*(-ffmcfmb*hbcm2*
7273      . p6p10+fmc*hbcm*p6p10)+16*p4p6*(-ffmcfmb*hbcm2*p7p10+fmc*hbcm*
7274      . p7p10)+8*p6p7*(-ffmcfmb*hbcm2*p1p10+ffmcfmb*hbcm2*p2p10+
7275      . ffmcfmb*hbcm2*p4p10-ffmcfmb*hbcm2*p5p10+fmc*hbcm*p1p10-fmc*
7276      . hbcm*p2p10-fmc*hbcm*p4p10+fmc*hbcm*p5p10+2*hbcm2*p1p10)+8*p3p7
7277      . *(-2*ffmcfmb**2*hbcm2*p6p10+2*ffmcfmb*fmc*hbcm*p6p10+ffmcfmb*
7278      . hbcm2*p6p10-fmc*hbcm*p6p10)+8*p3p6*(ffmcfmb**2*hbcm2*p7p10-
7279      . ffmcfmb*fmb*hbcm*p7p10+2*ffmcfmb*fmc*hbcm*p7p10+ffmcfmb*hbcm2*
7280      . p7p10)+16*(2*ffmcfmb*p3p4*p3p6*p7p10-p1p10*p2p3*p6p7+p1p10*
7281      . p3p4*p6p7+p1p10*p3p5*p6p7+3*p1p10*p3p7*p4p6-p1p10*p3p7*p5p6+2*
7282      . p1p3*p4p6*p7p10+p1p3*p4p7*p6p10-p1p3*p5p7*p6p10))+ans6
7283       ans1=w2*(16*(p6p7*p1p3)*(-p2p9-p4p9+p5p9)+16*(p3p7*p3p6)*(2*
7284      . ffmcfmb*p1p9-2*ffmcfmb*p2p9+2*ffmcfmb*p3p9+2*ffmcfmb*p4p9-p1p9
7285      . )+16*(p3p7*p1p3)*(2*ffmcfmb*p6p9-p6p9)+16*(p3p6*p1p3)*(-
7286      . ffmcfmb*p7p9+p7p9)+8*p5p7*(ffmcfmb*hbcm2*p6p9-fmc*hbcm*p6p9)+8
7287      . *p5p6*(-ffmcfmb*hbcm2*p7p9+fmc*hbcm*p7p9)+8*p4p7*(-ffmcfmb*
7288      . hbcm2*p6p9+fmc*hbcm*p6p9)+8*p4p6*(ffmcfmb*hbcm2*p7p9-fmc*hbcm*
7289      . p7p9)+8*p6p7*(-ffmcfmb*hbcm2*p1p9+ffmcfmb*hbcm2*p2p9+ffmcfmb*
7290      . hbcm2*p4p9-ffmcfmb*hbcm2*p5p9+fmc*hbcm*p1p9-fmc*hbcm*p2p9-fmc*
7291      . hbcm*p4p9+fmc*hbcm*p5p9+2*hbcm2*p1p9)+8*p3p6*(2*ffmcfmb*fmb*
7292      . hbcm*p7p9-2*ffmcfmb*fmc*hbcm*p7p9-ffmcfmb*hbcm2*p7p9+fmc*hbcm*
7293      . p7p9)+8*p3p7*(-2*ffmcfmb**2*hbcm2*p6p9+2*ffmcfmb*fmc*hbcm*p6p9
7294      . +ffmcfmb*hbcm2*p6p9-fmc*hbcm*p6p9)+16*(ffmcfmb*p2p3*p3p6*p7p9-
7295      . ffmcfmb*p3p4*p3p6*p7p9+ffmcfmb*p3p5*p3p6*p7p9-p1p3*p4p6*p7p9+
7296      . p1p3*p4p7*p6p9+p1p3*p5p6*p7p9-p1p3*p5p7*p6p9-p1p9*p2p3*p6p7+
7297      . p1p9*p3p4*p6p7+p1p9*p3p5*p6p7+3*p1p9*p3p7*p4p6-p1p9*p3p7*p5p6)
7298      . )+ans2+ans5
7299       ans=ccc*ans1
7300       b(30)=ans
7301       b(31)=w5*ccc*(4*p5p6*(ffmcfmb*hbcm-fmc)+12*p4p6*(-ffmcfmb*hbcm+
7302      . fmc)+4*p3p6*(-ffmcfmb**2*hbcm+3*ffmcfmb*fmb+4*ffmcfmb*fmc-2*
7303      . ffmcfmb*hbcm-fmc))
7304       b(32)=w2*ccc*(4*p5p6*(ffmcfmb*hbcm-fmc)+12*p4p6*(-ffmcfmb*hbcm+
7305      . fmc)+4*p3p6*(-ffmcfmb**2*hbcm+3*ffmcfmb*fmb+4*ffmcfmb*fmc-2*
7306      . ffmcfmb*hbcm-fmc))
7307       ans3=w12*(8*p5p7*(-ffmcfmb*hbcm*p6p10+fmc*p6p10)+8*p4p7*(
7308      . ffmcfmb*hbcm*p6p10-fmc*p6p10)+16*p4p6*(ffmcfmb*hbcm*p7p10-fmc*
7309      . p7p10)+8*p6p7*(-ffmcfmb*hbcm*p2p10-ffmcfmb*hbcm*p4p10+ffmcfmb*
7310      . hbcm*p5p10-fmb*p1p10-fmc*p1p10+fmc*p2p10+fmc*p4p10-fmc*p5p10+
7311      . hbcm*p1p10)+8*p3p7*(2*ffmcfmb**2*hbcm*p6p10-2*ffmcfmb*fmc*
7312      . p6p10-ffmcfmb*hbcm*p6p10+fmc*p6p10)+8*p3p6*(ffmcfmb**2*hbcm*
7313      . p7p10-ffmcfmb*fmb*p7p10-2*ffmcfmb*fmc*p7p10+ffmcfmb*hbcm*p7p10
7314      . ))+4*(2*ffmcfmb*hbcm*p6p12+ffmcfmb*hbcm*p7p13-fmb*p7p13-2*fmc*
7315      . p6p12-2*fmc*p7p13+hbcm*p7p13)
7316       ans2=w5*(8*p5p7*(-ffmcfmb*hbcm*p6p10+ffmcfmb*hbcm*p6p8+fmc*
7317      . p6p10-fmc*p6p8)+8*p4p7*(ffmcfmb*hbcm*p6p10-ffmcfmb*hbcm*p6p8-
7318      . fmc*p6p10+fmc*p6p8)+16*p4p6*(ffmcfmb*hbcm*p7p10-ffmcfmb*hbcm*
7319      . p7p8-fmc*p7p10+fmc*p7p8)+8*p6p7*(-ffmcfmb*hbcm*p2p10+ffmcfmb*
7320      . hbcm*p2p8-ffmcfmb*hbcm*p4p10+ffmcfmb*hbcm*p4p8+ffmcfmb*hbcm*
7321      . p5p10-ffmcfmb*hbcm*p5p8-fmb*p1p10+fmb*p1p8-fmc*p1p10+fmc*p1p8+
7322      . fmc*p2p10-fmc*p2p8+fmc*p4p10-fmc*p4p8-fmc*p5p10+fmc*p5p8+hbcm*
7323      . p1p10-hbcm*p1p8)+8*p3p7*(2*ffmcfmb**2*hbcm*p6p10-2*ffmcfmb**2*
7324      . hbcm*p6p8-2*ffmcfmb*fmc*p6p10+2*ffmcfmb*fmc*p6p8-ffmcfmb*hbcm*
7325      . p6p10+ffmcfmb*hbcm*p6p8+fmc*p6p10-fmc*p6p8)+8*p3p6*(ffmcfmb**2
7326      . *hbcm*p7p10-ffmcfmb**2*hbcm*p7p8-ffmcfmb*fmb*p7p10+ffmcfmb*fmb
7327      . *p7p8-2*ffmcfmb*fmc*p7p10+2*ffmcfmb*fmc*p7p8+ffmcfmb*hbcm*
7328      . p7p10-ffmcfmb*hbcm*p7p8))+ans3
7329       ans1=w2*(8*p5p7*(-ffmcfmb*hbcm*p6p9+fmc*p6p9)+8*p4p7*(ffmcfmb*
7330      . hbcm*p6p9-fmc*p6p9)+16*p4p6*(ffmcfmb*hbcm*p7p9-fmc*p7p9)+8*
7331      . p6p7*(ffmcfmb*hbcm*p1p9-ffmcfmb*hbcm*p2p9-ffmcfmb*hbcm*p4p9+
7332      . ffmcfmb*hbcm*p5p9-fmc*p1p9+fmc*p2p9+fmc*p4p9-fmc*p5p9)+8*p3p7*
7333      . (2*ffmcfmb**2*hbcm*p6p9-2*ffmcfmb*fmc*p6p9-ffmcfmb*hbcm*p6p9+
7334      . fmc*p6p9)+8*p3p6*(ffmcfmb**2*hbcm*p7p9-ffmcfmb*fmb*p7p9-2*
7335      . ffmcfmb*fmc*p7p9+ffmcfmb*hbcm*p7p9))+ans2
7336       ans=ccc*ans1
7337       b(33)=ans
7338       b(34)=6*ccc*w2*(ffmcfmb*hbcm+fmb-hbcm)
7339       b(35)=ccc*(4*w2*(-ffmcfmb*hbcm*p7p9-fmb*p7p9+hbcm*p7p9)+4*w5*(-
7340      . ffmcfmb*hbcm*p7p10+ffmcfmb*hbcm*p7p8-fmb*p7p10+fmb*p7p8+hbcm*
7341      . p7p10-hbcm*p7p8)+4*w12*(-ffmcfmb*hbcm*p7p10-fmb*p7p10+hbcm*
7342      . p7p10))
7343       b(36)=2*ccc*w2*(-5*ffmcfmb*hbcm2+3*fmb*hbcm-hbcm2+6*p1p3+2*p2p3
7344      . -6*p3p4+2*p3p5)
7345       b(37)=w2*ccc*(4*p3p7*(-ffmcfmb*hbcm+fmb+hbcm)+8*(-hbcm*p4p7+2*
7346      . hbcm*p5p7))
7347       b(38)=ccc*(w2*(8*p3p7*(p1p9-p2p9-p4p9+p5p9)+4*(3*ffmcfmb*hbcm2*
7348      . p7p9-fmb*hbcm*p7p9+hbcm2*p7p9-4*p1p3*p7p9+4*p3p4*p7p9))+w5*(16
7349      . *p3p4*(p7p10-p7p8)+16*p1p3*(-p7p10+p7p8)+8*p3p7*(p1p10-p1p8-
7350      . p2p10+p2p8-p4p10+p4p8+p5p10-p5p8)+4*(3*ffmcfmb*hbcm2*p7p10-3*
7351      . ffmcfmb*hbcm2*p7p8-fmb*hbcm*p7p10+fmb*hbcm*p7p8+hbcm2*p7p10-
7352      . hbcm2*p7p8))+w12*(8*p3p7*(p1p10-p2p10-p4p10+p5p10)+4*(3*
7353      . ffmcfmb*hbcm2*p7p10-fmb*hbcm*p7p10+hbcm2*p7p10-4*p1p3*p7p10+4*
7354      . p3p4*p7p10)))
7355       b(42)=w2*ccc*((p3p7*p3p6)*(-32*ffmcfmb+8)+4*p6p7*(3*ffmcfmb*
7356      . hbcm2-fmb*hbcm-hbcm2)+8*(-p1p3*p6p7+p2p3*p6p7+p3p4*p6p7-p3p5*
7357      . p6p7-p3p6*p4p7+p3p6*p5p7-2*p3p7*p4p6))
7358       b(43)=ccc*(w2*(8*p6p7*(-p1p9+p2p9+p4p9-p5p9)+8*p3p7*(-2*ffmcfmb
7359      . *p6p9+p6p9)+8*(-2*ffmcfmb*p3p6*p7p9-2*p4p6*p7p9-p4p7*p6p9+p5p7
7360      . *p6p9))+w5*(8*p5p7*(p6p10-p6p8)+8*p4p7*(-p6p10+p6p8)+16*p4p6*(
7361      . -p7p10+p7p8)+8*p6p7*(-p1p10+p1p8+p2p10-p2p8+p4p10-p4p8-p5p10+
7362      . p5p8)+8*p3p7*(-2*ffmcfmb*p6p10+2*ffmcfmb*p6p8+p6p10-p6p8)+16*
7363      . p3p6*(-ffmcfmb*p7p10+ffmcfmb*p7p8))+w12*(8*p6p7*(-p1p10+p2p10+
7364      . p4p10-p5p10)+8*p3p7*(-2*ffmcfmb*p6p10+p6p10)+8*(-2*ffmcfmb*
7365      . p3p6*p7p10-2*p4p6*p7p10-p4p7*p6p10+p5p7*p6p10))+8*(-p6p12-
7366      . p7p13))
7367       b(47)=w2*ccc*(p3p6*(-16*ffmcfmb+4)+4*(-3*p4p6+p5p6))
7368       b(52)=w2*ccc*(p3p7*(-16*ffmcfmb+12)+4*(-3*p4p7+5*p5p7))
7369       b(53)=ccc*(4*w2*(-3*p1p9-p2p9+2*p3p9+3*p4p9-p5p9)+4*w5*(-3*
7370      . p1p10+3*p1p8-p2p10+p2p8+2*p3p10-2*p3p8+3*p4p10-3*p4p8-p5p10+
7371      . p5p8)+4*w12*(-3*p1p10-p2p10+2*p3p10+3*p4p10-p5p10))
7372       b(57)=-8*ccc
7373       b(60)=w2*ccc*(4*p3p6*(4*ffmcfmb*hbcm-hbcm)+4*(3*hbcm*p4p6-hbcm*
7374      . p5p6))
7375       b(61)=-4*ccc*hbcm
7376       b(62)=8*ccc*ffmcfmb*hbcm*p3p6
7377       b(63)=ccc*(w5*((p3p7*p3p6)*(-32*ffmcfmb+8)+4*p6p7*(3*ffmcfmb*
7378      . hbcm2-fmb*hbcm-hbcm2)+8*(-p1p3*p6p7+p2p3*p6p7+p3p4*p6p7-p3p5*
7379      . p6p7-p3p6*p4p7+p3p6*p5p7-2*p3p7*p4p6))+w12*((p3p7*p3p6)*(-32*
7380      . ffmcfmb+8)+4*p6p7*(3*ffmcfmb*hbcm2-fmb*hbcm-hbcm2)+8*(-p1p3*
7381      . p6p7+p2p3*p6p7+p3p4*p6p7-p3p5*p6p7-p3p6*p4p7+p3p6*p5p7-2*p3p7*
7382      . p4p6)))
7383       b(64)=ccc*(w5*(4*p6p7*(-ffmcfmb**2*hbcm2+ffmcfmb*fmb*hbcm-
7384      . ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2-fmb*fmc+fmc*hbcm+2*fmc2)+8*(
7385      . ffmcfmb*p3p6*p3p7-ffmcfmb*p3p6*p4p7+3*ffmcfmb*p3p6*p5p7-p1p2*
7386      . p6p7+p1p3*p6p7-p1p4*p6p7+p1p5*p6p7))+w12*(4*p6p7*(-ffmcfmb**2*
7387      . hbcm2+ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm-ffmcfmb*hbcm2-fmb*fmc+
7388      . fmc*hbcm+2*fmc2)+8*(ffmcfmb*p3p6*p3p7-ffmcfmb*p3p6*p4p7+3*
7389      . ffmcfmb*p3p6*p5p7-p1p2*p6p7+p1p3*p6p7-p1p4*p6p7+p1p5*p6p7)))
7390       b(65)=w5*ccc*((p3p7*p3p6)*(32*ffmcfmb-8)+4*p6p7*(-3*ffmcfmb*
7391      . hbcm2+fmb*hbcm+hbcm2)+8*(p1p3*p6p7-p2p3*p6p7-p3p4*p6p7+p3p5*
7392      . p6p7+p3p6*p4p7-p3p6*p5p7+2*p3p7*p4p6))
7393       ans=ccc*(w2*(8*p6p7*(-hbcm*p1p9+hbcm*p2p9+hbcm*p4p9-hbcm*p5p9)+
7394      . 8*p3p7*(-2*ffmcfmb*hbcm*p6p9+hbcm*p6p9)+8*(-2*ffmcfmb*hbcm*
7395      . p3p6*p7p9-2*hbcm*p4p6*p7p9-hbcm*p4p7*p6p9+hbcm*p5p7*p6p9))+w5*
7396      . (8*p5p7*(hbcm*p6p10-hbcm*p6p8)+8*p4p7*(-hbcm*p6p10+hbcm*p6p8)+
7397      . 16*p4p6*(-hbcm*p7p10+hbcm*p7p8)+8*p6p7*(-hbcm*p1p10+hbcm*p1p8+
7398      . hbcm*p2p10-hbcm*p2p8+hbcm*p4p10-hbcm*p4p8-hbcm*p5p10+hbcm*p5p8
7399      . )+8*p3p7*(-2*ffmcfmb*hbcm*p6p10+2*ffmcfmb*hbcm*p6p8+hbcm*p6p10
7400      . -hbcm*p6p8)+16*p3p6*(-ffmcfmb*hbcm*p7p10+ffmcfmb*hbcm*p7p8))+
7401      . w12*(8*p6p7*(-hbcm*p1p10+hbcm*p2p10+hbcm*p4p10-hbcm*p5p10)+8*
7402      . p3p7*(-2*ffmcfmb*hbcm*p6p10+hbcm*p6p10)+8*(-2*ffmcfmb*hbcm*
7403      . p3p6*p7p10-2*hbcm*p4p6*p7p10-hbcm*p4p7*p6p10+hbcm*p5p7*p6p10))
7404      . +8*(-hbcm*p6p12-hbcm*p7p13))
7405       b(66)=ans
7406       b(67)=ccc*(w5*(p3p6*(-16*ffmcfmb+4)+4*(-3*p4p6+p5p6))+w12*(p3p6
7407      . *(-16*ffmcfmb+4)+4*(-3*p4p6+p5p6)))
7408       b(68)=w5*ccc*(p3p6*(16*ffmcfmb-4)+4*(3*p4p6-p5p6))
7409       b(69)=ccc*(w5*(p3p7*(-16*ffmcfmb+12)+4*(-3*p4p7+5*p5p7))+w12*(
7410      . p3p7*(-16*ffmcfmb+12)+4*(-3*p4p7+5*p5p7)))
7411       b(70)=ccc*(w5*((p3p7*p1p3)*(16*ffmcfmb-8)+12*p5p7*(-ffmcfmb*
7412      . hbcm2+fmc*hbcm)+4*p4p7*(ffmcfmb*hbcm2-fmc*hbcm)+4*p3p7*(
7413      . ffmcfmb**2*hbcm2-ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+fmb*fmc-2*
7414      . fmc2)+8*(p1p3*p4p7-p1p3*p5p7+2*p1p4*p3p7))+w12*((p3p7*p1p3)*(
7415      . 16*ffmcfmb-8)+12*p5p7*(-ffmcfmb*hbcm2+fmc*hbcm)+4*p4p7*(
7416      . ffmcfmb*hbcm2-fmc*hbcm)+4*p3p7*(ffmcfmb**2*hbcm2-ffmcfmb*fmb*
7417      . hbcm+ffmcfmb*fmc*hbcm+fmb*fmc-2*fmc2)+8*(p1p3*p4p7-p1p3*p5p7+2
7418      . *p1p4*p3p7)))
7419       b(71)=w5*ccc*(p3p7*(16*ffmcfmb-12)+4*(3*p4p7-5*p5p7))
7420       b(72)=ccc*(w5*(p1p3*(4*ffmcfmb-4)+2*(-3*ffmcfmb*fmb*hbcm+3*
7421      . ffmcfmb*fmc*hbcm+3*ffmcfmb*hbcm2+3*fmb*fmc-3*fmc*hbcm-3*fmc2-2
7422      . *p1p2+6*p1p4-2*p1p5))+w12*(p1p3*(4*ffmcfmb-4)+2*(-3*ffmcfmb*
7423      . fmb*hbcm+3*ffmcfmb*fmc*hbcm+3*ffmcfmb*hbcm2+3*fmb*fmc-3*fmc*
7424      . hbcm-3*fmc2-2*p1p2+6*p1p4-2*p1p5))+2)
7425       b(74)=4*ccc*w5*p6p7*(-ffmcfmb*hbcm-fmb+hbcm)
7426       b(75)=ccc*(4*w2*(3*ffmcfmb*hbcm*p1p9+ffmcfmb*hbcm*p2p9-2*
7427      . ffmcfmb*hbcm*p3p9-3*ffmcfmb*hbcm*p4p9+ffmcfmb*hbcm*p5p9-3*fmc*
7428      . p1p9-fmc*p2p9+2*fmc*p3p9+3*fmc*p4p9-fmc*p5p9)+4*w5*(3*ffmcfmb*
7429      . hbcm*p1p10-3*ffmcfmb*hbcm*p1p8+ffmcfmb*hbcm*p2p10-ffmcfmb*hbcm
7430      . *p2p8-2*ffmcfmb*hbcm*p3p10+2*ffmcfmb*hbcm*p3p8-3*ffmcfmb*hbcm*
7431      . p4p10+3*ffmcfmb*hbcm*p4p8+ffmcfmb*hbcm*p5p10-ffmcfmb*hbcm*p5p8
7432      . -3*fmc*p1p10+3*fmc*p1p8-fmc*p2p10+fmc*p2p8+2*fmc*p3p10-2*fmc*
7433      . p3p8+3*fmc*p4p10-3*fmc*p4p8-fmc*p5p10+fmc*p5p8)+4*w12*(3*
7434      . ffmcfmb*hbcm*p1p10+ffmcfmb*hbcm*p2p10-2*ffmcfmb*hbcm*p3p10-3*
7435      . ffmcfmb*hbcm*p4p10+ffmcfmb*hbcm*p5p10-3*fmc*p1p10-fmc*p2p10+2*
7436      . fmc*p3p10+3*fmc*p4p10-fmc*p5p10))
7437       b(76)=ccc*(4*w2*(3*ffmcfmb*hbcm2*p1p9+ffmcfmb*hbcm2*p2p9-2*
7438      . ffmcfmb*hbcm2*p3p9-3*ffmcfmb*hbcm2*p4p9+ffmcfmb*hbcm2*p5p9-3*
7439      . fmc*hbcm*p1p9-fmc*hbcm*p2p9+2*fmc*hbcm*p3p9+3*fmc*hbcm*p4p9-
7440      . fmc*hbcm*p5p9)+4*w5*(3*ffmcfmb*hbcm2*p1p10-3*ffmcfmb*hbcm2*
7441      . p1p8+ffmcfmb*hbcm2*p2p10-ffmcfmb*hbcm2*p2p8-2*ffmcfmb*hbcm2*
7442      . p3p10+2*ffmcfmb*hbcm2*p3p8-3*ffmcfmb*hbcm2*p4p10+3*ffmcfmb*
7443      . hbcm2*p4p8+ffmcfmb*hbcm2*p5p10-ffmcfmb*hbcm2*p5p8-3*fmc*hbcm*
7444      . p1p10+3*fmc*hbcm*p1p8-fmc*hbcm*p2p10+fmc*hbcm*p2p8+2*fmc*hbcm*
7445      . p3p10-2*fmc*hbcm*p3p8+3*fmc*hbcm*p4p10-3*fmc*hbcm*p4p8-fmc*
7446      . hbcm*p5p10+fmc*hbcm*p5p8)+4*w12*(3*ffmcfmb*hbcm2*p1p10+ffmcfmb
7447      . *hbcm2*p2p10-2*ffmcfmb*hbcm2*p3p10-3*ffmcfmb*hbcm2*p4p10+
7448      . ffmcfmb*hbcm2*p5p10-3*fmc*hbcm*p1p10-fmc*hbcm*p2p10+2*fmc*hbcm
7449      . *p3p10+3*fmc*hbcm*p4p10-fmc*hbcm*p5p10))
7450       b(77)=-8*ccc*p3p13
7451       b(79)=4*ccc*w2*p6p7*(ffmcfmb*hbcm+fmb-hbcm)
7452       b(80)=w2*ccc*(16*p5p7*(-ffmcfmb*hbcm+fmc)+8*p4p7*(ffmcfmb*hbcm-
7453      . fmc)+8*p3p7*(ffmcfmb**2*hbcm-ffmcfmb*fmc-ffmcfmb*hbcm+fmc))
7454       b(81)=ccc*(4*w5*p6p7*(ffmcfmb*hbcm+fmb-hbcm)+4*w12*p6p7*(
7455      . ffmcfmb*hbcm+fmb-hbcm))
7456       b(82)=-8*ccc*p3p7
7457       b(83)=ccc*(4*p3p7*(ffmcfmb*hbcm+fmb+2*fmc-3*hbcm)-8*hbcm*p4p7)
7458       b(84)=4*ccc*(-p3p7-3*p4p7+p5p7)
7459       b(85)=2*ccc*(-ffmcfmb*hbcm2+3*fmb*hbcm-4*fmc*hbcm+3*hbcm2-6*
7460      . p1p3-2*p2p3-2*p3p4+6*p3p5)
7461       b(86)=-8*ccc
7462       b(87)=2*ccc*(-ffmcfmb*hbcm+3*fmb+4*fmc-3*hbcm)
7463       b(88)=ccc*(w5*(16*p5p7*(-ffmcfmb*hbcm+fmc)+8*p4p7*(ffmcfmb*hbcm
7464      . -fmc)+8*p3p7*(ffmcfmb**2*hbcm-ffmcfmb*fmc-ffmcfmb*hbcm+fmc))+
7465      . w12*(16*p5p7*(-ffmcfmb*hbcm+fmc)+8*p4p7*(ffmcfmb*hbcm-fmc)+8*
7466      . p3p7*(ffmcfmb**2*hbcm-ffmcfmb*fmc-ffmcfmb*hbcm+fmc)))
7467       b(89)=-8*ccc*hbcm
7468       b(91)=w5*ccc*(16*p5p7*(ffmcfmb*hbcm-fmc)+8*p4p7*(-ffmcfmb*hbcm+
7469      . fmc)+8*p3p7*(-ffmcfmb**2*hbcm+ffmcfmb*fmc+ffmcfmb*hbcm-fmc))
7470       b(92)=4*ccc*(hbcm2+p1p3-p2p3+p3p4+p3p5)
7471       b(93)=8*ccc*p3p6
7472       b(94)=4*ccc*(-ffmcfmb*hbcm+fmc)
7473       do 200 n=1,94
7474          c(n,1)=c(n,1)-0.1818181818181818d0*b(n)
7475          c(n,2)=c(n,2)-0.1512818716977898d0*b(n)
7476          c(n,3)=c(n,3)-0.1869893980016914d0*b(n)
7477 200   continue
7478       return
7479       end
7480
7481       subroutine amp31_3p2(cc)
7482       implicit double precision(a-h,o-z)
7483       implicit integer (i-n)
7484       dimension b(94)
7485 #include "inclcon.h"
7486 #include "inclppp.h"
7487 #include "inclamp.h"
7488       do 100 n=1,94
7489          b(n)=0.0d0
7490 100   continue
7491       ccc=cc/((-2*p1p5)*(ffmcfmb**2*hbcm2+2*ffmcfmb*p3p4+fmc2)*(
7492      . ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2+2*ffmcfmb*p1p3-2*ffmcfmb*p3p5
7493      . +fmb2+hbcm2-2*p1p3-2*p1p5+2*p3p5))
7494       b(1)=8*ccc*w1*(3*p1p5*p6p7+p3p7*p5p6-p4p7*p5p6+3*p5p6*p5p7)
7495       b(2)=8*ccc*w15*(-3*p1p5*p6p7-p3p7*p5p6+p4p7*p5p6-3*p5p6*p5p7)
7496       b(3)=ccc*(8*w1*(p1p2*p7p8-p1p3*p7p8-p1p4*p7p8-p1p8*p3p7-3*p1p8*
7497      . p4p7+p1p8*p5p7)+w15*(8*p1p4*(-p7p10+p7p9)+8*p1p3*(-p7p10+p7p9)
7498      . +8*p1p2*(p7p10-p7p9)+8*p5p7*(p1p10-p1p9)+24*p4p7*(-p1p10+p1p9)
7499      . +8*p3p7*(-p1p10+p1p9))+4*(p1p12-p7p10))
7500       b(4)=8*ccc*w1*(-p1p2*p3p7+p1p3*p4p7-3*p1p3*p5p7+p1p4*p3p7)
7501       b(5)=8*ccc*w15*(p1p2*p3p7-p1p3*p4p7+3*p1p3*p5p7-p1p4*p3p7)
7502       b(6)=ccc*(w1*(8*p3p7*(-ffmcfmb*hbcm*p1p8-fmb*p1p8-2*fmc*p1p8+
7503      . hbcm*p1p8)+8*p1p3*(-ffmcfmb*hbcm*p7p8+fmb*p7p8+2*fmc*p7p8)+8*(
7504      . -hbcm*p1p2*p7p8+hbcm*p1p4*p7p8-2*hbcm*p1p8*p5p7))+w15*(8*p1p4*
7505      . (hbcm*p7p10-hbcm*p7p9)+8*p1p2*(-hbcm*p7p10+hbcm*p7p9)+16*p5p7*
7506      . (-hbcm*p1p10+hbcm*p1p9)+8*p1p3*(-ffmcfmb*hbcm*p7p10+ffmcfmb*
7507      . hbcm*p7p9+fmb*p7p10-fmb*p7p9+2*fmc*p7p10-2*fmc*p7p9)+8*p3p7*(-
7508      . ffmcfmb*hbcm*p1p10+ffmcfmb*hbcm*p1p9-fmb*p1p10+fmb*p1p9-2*fmc*
7509      . p1p10+2*fmc*p1p9+hbcm*p1p10-hbcm*p1p9))+4*(hbcm*p1p12+hbcm*
7510      . p7p10))
7511       b(7)=ccc*(w1*(8*p5p6*(-p1p8+p2p8-2*p3p8-3*p4p8+p5p8)+24*p1p5*
7512      . p6p8)+w15*(24*p1p5*(p6p10-p6p9)+8*p5p6*(-p1p10+p1p9+p2p10-p2p9
7513      . -2*p3p10+2*p3p9-3*p4p10+3*p4p9+p5p10-p5p9)))
7514       b(8)=w1*ccc*(4*p5p6*(2*ffmcfmb*hbcm2-3*fmb*hbcm+3*fmc*hbcm+
7515      . hbcm2)+8*(p1p3*p5p6-3*p1p5*p3p6-p2p3*p5p6+3*p3p4*p5p6-p3p5*
7516      . p5p6))
7517       b(9)=w15*ccc*(4*p5p6*(-2*ffmcfmb*hbcm2+3*fmb*hbcm-3*fmc*hbcm-
7518      . hbcm2)+8*(-p1p3*p5p6+3*p1p5*p3p6+p2p3*p5p6-3*p3p4*p5p6+p3p5*
7519      . p5p6))
7520       b(10)=ccc*(w1*(8*p5p6*(3*fmb*p3p8+3*fmc*p3p8-hbcm*p1p8-hbcm*
7521      . p2p8-hbcm*p3p8+3*hbcm*p4p8-hbcm*p5p8)+8*p3p6*(-3*fmb*p1p8-3*
7522      . fmc*p1p8+hbcm*p1p8)+8*(-3*hbcm*p1p5*p6p8-2*hbcm*p1p8*p4p6))+
7523      . w15*(24*p1p5*(-hbcm*p6p10+hbcm*p6p9)+16*p4p6*(-hbcm*p1p10+hbcm
7524      . *p1p9)+8*p5p6*(3*fmb*p3p10+3*fmc*p3p10-hbcm*p1p10+hbcm*p1p9-
7525      . hbcm*p2p10+hbcm*p2p9-hbcm*p3p10-2*hbcm*p3p9+3*hbcm*p4p10-3*
7526      . hbcm*p4p9-hbcm*p5p10+hbcm*p5p9)+8*p3p6*(-3*fmb*p1p10+3*fmb*
7527      . p1p9-3*fmc*p1p10+3*fmc*p1p9+hbcm*p1p10-hbcm*p1p9)))
7528       b(11)=w1*ccc*(8*(p5p6*p3p7)*(ffmcfmb*hbcm+fmb+2*fmc-hbcm)+8*(3*
7529      . hbcm*p1p5*p6p7+2*hbcm*p5p6*p5p7))
7530       b(12)=w15*ccc*(24*(p6p7*p1p3)*(fmb+fmc-hbcm)+8*(p5p6*p3p7)*(-
7531      . ffmcfmb*hbcm-fmb-2*fmc+hbcm)+8*(-3*hbcm*p1p5*p6p7-2*hbcm*p5p6*
7532      . p5p7))
7533       b(13)=4*ccc*w1*(-2*p1p2+2*p1p3+2*p1p4-p1p5)
7534       b(14)=4*ccc*w15*(2*p1p2-2*p1p3-2*p1p4+p1p5)
7535       b(15)=w1*ccc*(4*p1p3*(-3*fmb-3*fmc+hbcm)+4*(2*hbcm*p1p2-2*hbcm*
7536      . p1p4+hbcm*p1p5))
7537       b(16)=w15*ccc*(4*p1p3*(3*fmb+3*fmc-hbcm)+4*(-2*hbcm*p1p2+2*hbcm
7538      . *p1p4-hbcm*p1p5))
7539       b(17)=w15*ccc*(4*p3p6*(3*fmb+3*fmc-hbcm)+8*(hbcm*p4p6+hbcm*p5p6
7540      . ))
7541       b(18)=6*ccc*w15*(-fmb-fmc+hbcm)
7542       b(19)=2*ccc*w15*(-2*ffmcfmb*hbcm2+3*fmb*hbcm-3*fmc*hbcm-hbcm2-2
7543      . *p1p3+2*p2p3-6*p3p4+2*p3p5)
7544       b(20)=w15*ccc*(4*p3p7*(ffmcfmb*hbcm+fmb+2*fmc-hbcm)+8*hbcm*p5p7
7545      . )
7546       b(21)=ccc*(4*w1*(3*fmb*p3p8+3*fmc*p3p8+hbcm*p1p8-hbcm*p2p8-hbcm
7547      . *p3p8+3*hbcm*p4p8-hbcm*p5p8)+4*w15*(3*fmb*p3p10+3*fmc*p3p10+
7548      . hbcm*p1p10-hbcm*p1p9-hbcm*p2p10+hbcm*p2p9-hbcm*p3p10-2*hbcm*
7549      . p3p9+3*hbcm*p4p10-3*hbcm*p4p9-hbcm*p5p10+hbcm*p5p9))
7550       b(22)=w15*ccc*(4*p1p3*(-3*fmb-3*fmc+hbcm)+4*(2*hbcm*p1p2-2*hbcm
7551      . *p1p4+hbcm*p1p5))
7552       b(23)=w1*ccc*(4*p3p6*(3*fmb+3*fmc-hbcm)+8*(hbcm*p4p6+hbcm*p5p6)
7553      . )
7554       b(24)=6*ccc*w1*(-fmb-fmc+hbcm)
7555       b(25)=2*ccc*w1*(-2*ffmcfmb*hbcm2+3*fmb*hbcm-3*fmc*hbcm-hbcm2-2*
7556      . p1p3+2*p2p3-6*p3p4+2*p3p5)
7557       b(26)=w1*ccc*(4*p3p7*(ffmcfmb*hbcm+fmb+2*fmc-hbcm)+8*hbcm*p5p7)
7558       b(27)=12*ccc*w15*p5p6*(-fmb-fmc+hbcm)
7559       b(28)=w15*ccc*(4*p5p6*(-2*ffmcfmb*hbcm2+3*fmb*hbcm-3*fmc*hbcm-
7560      . hbcm2)+8*(-p1p3*p5p6+3*p1p5*p3p6+p2p3*p5p6-3*p3p4*p5p6+p3p5*
7561      . p5p6))
7562       b(29)=w15*ccc*(8*(p5p6*p3p7)*(ffmcfmb*hbcm+fmb+2*fmc-hbcm)+8*(3
7563      . *hbcm*p1p5*p6p7+2*hbcm*p5p6*p5p7))
7564       ans2=w15*(16*(p5p6*p3p4)*(2*p7p10+p7p9)+32*(p3p7*p1p5)*(-p6p10+
7565      . p6p9)+16*(p3p6*p1p5)*(-p7p10-2*p7p9)+16*(p5p6*p3p7)*(p1p10-
7566      . p1p9-2*p2p10+2*p2p9+2*p3p10-2*p3p9+2*p4p10-2*p4p9)+16*(p4p6*
7567      . p3p7)*(p1p10-p1p9)+16*(p5p7*p3p6)*(-p1p10+p1p9)+48*(p4p7*p3p6)
7568      . *(p1p10-p1p9)+32*(p3p7*p3p6)*(p1p10-p1p9)+48*(p6p7*p3p5)*(
7569      . p1p10-p1p9)+16*(p6p7*p3p4)*(-p1p10+p1p9)+16*(p6p7*p2p3)*(-
7570      . p1p10+p1p9)+48*(p6p7*p1p3)*(-p1p10+p1p9)+8*p5p6*(ffmcfmb*hbcm2
7571      . *p7p10+ffmcfmb*hbcm2*p7p9-fmb*hbcm*p7p10-2*fmb*hbcm*p7p9+2*fmc
7572      . *hbcm*p7p10+fmc*hbcm*p7p9+hbcm2*p7p10)+8*p6p7*(-2*ffmcfmb*
7573      . hbcm2*p1p10+2*ffmcfmb*hbcm2*p1p9+3*fmb*hbcm*p1p10-3*fmb*hbcm*
7574      . p1p9-3*fmc*hbcm*p1p10+3*fmc*hbcm*p1p9+3*hbcm2*p1p10-3*hbcm2*
7575      . p1p9)+16*(p1p3*p5p6*p7p9-p2p3*p5p6*p7p9-p3p5*p5p6*p7p9))+8*
7576      . p3p12*p5p6
7577       ans1=w1*(16*(p5p6*p3p7)*(p1p8-2*p2p8+2*p3p8+2*p4p8)+8*p5p6*(-
7578      . ffmcfmb*hbcm2*p7p8+2*fmb*hbcm*p7p8-fmc*hbcm*p7p8)+8*p6p7*(-2*
7579      . ffmcfmb*hbcm2*p1p8+3*fmb*hbcm*p1p8-3*fmc*hbcm*p1p8+3*hbcm2*
7580      . p1p8)+16*(-3*p1p3*p1p8*p6p7-p1p3*p5p6*p7p8+2*p1p5*p3p6*p7p8-2*
7581      . p1p5*p3p7*p6p8-p1p8*p2p3*p6p7-p1p8*p3p4*p6p7+3*p1p8*p3p5*p6p7+
7582      . 2*p1p8*p3p6*p3p7+3*p1p8*p3p6*p4p7-p1p8*p3p6*p5p7+p1p8*p3p7*
7583      . p4p6+p2p3*p5p6*p7p8-p3p4*p5p6*p7p8+p3p5*p5p6*p7p8))+ans2
7584       ans=ccc*ans1
7585       b(30)=ans
7586       b(31)=12*ccc*w1*p5p6*(-fmb-fmc+hbcm)
7587       b(32)=12*ccc*w15*p5p6*(-fmb-fmc+hbcm)
7588       b(33)=ccc*(8*w1*p5p6*(ffmcfmb*hbcm*p7p8-fmb*p7p8-2*fmc*p7p8+
7589      . hbcm*p7p8)+w15*(24*p6p7*(-fmb*p1p9-fmc*p1p9+hbcm*p1p9)+8*p5p6*
7590      . (ffmcfmb*hbcm*p7p10-ffmcfmb*hbcm*p7p9-fmb*p7p10+fmb*p7p9-2*fmc
7591      . *p7p10+2*fmc*p7p9+hbcm*p7p10-hbcm*p7p9)))
7592       b(34)=6*ccc*w15*(-fmb-fmc+hbcm)
7593       b(35)=ccc*(4*w1*(ffmcfmb*hbcm*p7p8-fmb*p7p8-2*fmc*p7p8+hbcm*
7594      . p7p8)+4*w15*(ffmcfmb*hbcm*p7p10-ffmcfmb*hbcm*p7p9-fmb*p7p10+
7595      . fmb*p7p9-2*fmc*p7p10+2*fmc*p7p9+hbcm*p7p10-hbcm*p7p9))
7596       b(36)=2*ccc*w15*(2*ffmcfmb*hbcm2-3*fmb*hbcm+3*fmc*hbcm+hbcm2+2*
7597      . p1p3-2*p2p3+6*p3p4-2*p3p5)
7598       b(37)=w15*ccc*(4*p3p7*(-ffmcfmb*hbcm-fmb-2*fmc+hbcm)-8*hbcm*
7599      . p5p7)
7600       b(38)=ccc*(w1*(8*p3p7*(-p1p8-p2p8-p4p8+p5p8)+4*(ffmcfmb*hbcm2*
7601      . p7p8-fmb*hbcm*p7p8+2*fmc*hbcm*p7p8+hbcm2*p7p8+4*p3p4*p7p8))+
7602      . w15*(16*p3p4*(p7p10-p7p9)+8*p3p7*(-p1p10+p1p9-p2p10+p2p9-p4p10
7603      . +p4p9+p5p10-p5p9)+4*(ffmcfmb*hbcm2*p7p10-ffmcfmb*hbcm2*p7p9-
7604      . fmb*hbcm*p7p10+fmb*hbcm*p7p9+2*fmc*hbcm*p7p10-2*fmc*hbcm*p7p9+
7605      . hbcm2*p7p10-hbcm2*p7p9))+4*p3p12)
7606       b(42)=w15*ccc*(4*p6p7*(-2*ffmcfmb*hbcm2+3*fmb*hbcm-3*fmc*hbcm+3
7607      . *hbcm2)+8*(-3*p1p3*p6p7-p2p3*p6p7-p3p4*p6p7+3*p3p5*p6p7+2*p3p6
7608      . *p3p7+3*p3p6*p4p7-p3p6*p5p7+p3p7*p4p6+p3p7*p5p6))
7609       b(43)=ccc*(w1*(8*p6p7*(3*p1p8+p2p8+p4p8-3*p5p8)+8*(-p3p6*p7p8-
7610      . p3p7*p6p8-p4p6*p7p8-3*p4p7*p6p8-p5p6*p7p8+p5p7*p6p8))+w15*(8*
7611      . p5p7*(p6p10-p6p9)+8*p5p6*(-p7p10+p7p9)+24*p4p7*(-p6p10+p6p9)+8
7612      . *p4p6*(-p7p10+p7p9)+8*p3p7*(-p6p10+p6p9)+8*p3p6*(-p7p10+p7p9)+
7613      . 8*p6p7*(3*p1p10-3*p1p9+p2p10-p2p9+p4p10-p4p9-3*p5p10+3*p5p9))+
7614      . 4*(p6p12-p7p13))
7615       b(47)=8*ccc*w15*(p3p6+p4p6+p5p6)
7616       b(52)=4*ccc*w15*(-p3p7+p4p7-3*p5p7)
7617       b(53)=ccc*(4*w1*(p1p8-p2p8+2*p3p8+3*p4p8-p5p8)+4*w15*(p1p10-
7618      . p1p9-p2p10+p2p9+2*p3p10-2*p3p9+3*p4p10-3*p4p9-p5p10+p5p9))
7619       b(60)=w15*ccc*(4*p3p6*(-3*fmb-3*fmc+hbcm)+8*(-hbcm*p4p6-hbcm*
7620      . p5p6))
7621       b(61)=-4*ccc*hbcm
7622       b(62)=-8*ccc*hbcm*p5p6
7623       b(63)=w15*ccc*(4*p6p7*(2*ffmcfmb*hbcm2-3*fmb*hbcm+3*fmc*hbcm-3*
7624      . hbcm2)+8*(3*p1p3*p6p7+p2p3*p6p7+p3p4*p6p7-3*p3p5*p6p7-2*p3p6*
7625      . p3p7-3*p3p6*p4p7+p3p6*p5p7-p3p7*p4p6-p3p7*p5p6))
7626       b(64)=8*ccc*w15*(3*p1p5*p6p7+p3p7*p5p6-p4p7*p5p6+3*p5p6*p5p7)
7627       b(65)=w1*ccc*(4*p6p7*(2*ffmcfmb*hbcm2-3*fmb*hbcm+3*fmc*hbcm-3*
7628      . hbcm2)+8*(3*p1p3*p6p7+p2p3*p6p7+p3p4*p6p7-3*p3p5*p6p7-2*p3p6*
7629      . p3p7-3*p3p6*p4p7+p3p6*p5p7-p3p7*p4p6-p3p7*p5p6))
7630       b(66)=ccc*(w1*(8*p6p7*(3*hbcm*p1p8+hbcm*p2p8+hbcm*p4p8-3*hbcm*
7631      . p5p8)+8*p3p7*(ffmcfmb*hbcm*p6p8-2*fmb*p6p8-fmc*p6p8)+8*p3p6*(
7632      . ffmcfmb*hbcm*p7p8-fmb*p7p8-2*fmc*p7p8)+8*(-hbcm*p4p6*p7p8-2*
7633      . hbcm*p4p7*p6p8-hbcm*p5p6*p7p8))+w15*(8*p5p6*(-hbcm*p7p10+hbcm*
7634      . p7p9)+16*p4p7*(-hbcm*p6p10+hbcm*p6p9)+8*p4p6*(-hbcm*p7p10+hbcm
7635      . *p7p9)+8*p6p7*(3*hbcm*p1p10-3*hbcm*p1p9+hbcm*p2p10-hbcm*p2p9+
7636      . hbcm*p4p10-hbcm*p4p9-3*hbcm*p5p10+3*hbcm*p5p9)+8*p3p7*(ffmcfmb
7637      . *hbcm*p6p10-ffmcfmb*hbcm*p6p9-2*fmb*p6p10+2*fmb*p6p9-fmc*p6p10
7638      . +fmc*p6p9)+8*p3p6*(ffmcfmb*hbcm*p7p10-ffmcfmb*hbcm*p7p9-fmb*
7639      . p7p10+fmb*p7p9-2*fmc*p7p10+2*fmc*p7p9))+4*(-hbcm*p6p12-hbcm*
7640      . p7p13))
7641       b(67)=8*ccc*w15*(-p3p6-p4p6-p5p6)
7642       b(68)=8*ccc*w1*(-p3p6-p4p6-p5p6)
7643       b(69)=4*ccc*w15*(p3p7-p4p7+3*p5p7)
7644       b(70)=8*ccc*w15*(-p1p2*p3p7+p1p3*p4p7-3*p1p3*p5p7+p1p4*p3p7)
7645       b(71)=4*ccc*w1*(p3p7-p4p7+3*p5p7)
7646       b(72)=4*ccc*w15*(-2*p1p2+2*p1p3+2*p1p4-p1p5)
7647       b(74)=12*ccc*w1*p6p7*(fmb+fmc-hbcm)
7648       b(75)=ccc*(12*w1*(fmb*p1p8+fmc*p1p8-hbcm*p1p8)+12*w15*(fmb*
7649      . p1p10-fmb*p1p9+fmc*p1p10-fmc*p1p9-hbcm*p1p10+hbcm*p1p9))
7650       b(76)=ccc*(w1*(8*p1p3*(2*p1p8+p2p8-2*p3p8-3*p4p8+p5p8)+4*(2*
7651      . ffmcfmb*hbcm2*p1p8-3*fmb*hbcm*p1p8+3*fmc*hbcm*p1p8-3*hbcm2*
7652      . p1p8+2*p1p8*p2p3+2*p1p8*p3p4-6*p1p8*p3p5))+w15*(24*p3p5*(-
7653      . p1p10+p1p9)+8*p3p4*(p1p10-p1p9)+8*p2p3*(p1p10-p1p9)+8*p1p3*(2*
7654      . p1p10-2*p1p9+p2p10-p2p9-2*p3p10+2*p3p9-3*p4p10+3*p4p9+p5p10-
7655      . p5p9)+4*(2*ffmcfmb*hbcm2*p1p10-2*ffmcfmb*hbcm2*p1p9-3*fmb*hbcm
7656      . *p1p10+3*fmb*hbcm*p1p9+3*fmc*hbcm*p1p10-3*fmc*hbcm*p1p9-3*
7657      . hbcm2*p1p10+3*hbcm2*p1p9)))
7658       b(77)=ccc*(w1*(8*p3p6*(-3*p1p8-p2p8-p4p8+3*p5p8)+4*(2*ffmcfmb*
7659      . hbcm2*p6p8-3*fmb*hbcm*p6p8+3*fmc*hbcm*p6p8-3*hbcm2*p6p8+6*p1p3
7660      . *p6p8+2*p2p3*p6p8+2*p3p4*p6p8-6*p3p5*p6p8))+w15*(24*p3p5*(-
7661      . p6p10+p6p9)+8*p3p4*(p6p10-p6p9)+8*p2p3*(p6p10-p6p9)+24*p1p3*(
7662      . p6p10-p6p9)+8*p3p6*(-3*p1p10+3*p1p9-p2p10+p2p9-p4p10+p4p9+3*
7663      . p5p10-3*p5p9)+4*(2*ffmcfmb*hbcm2*p6p10-2*ffmcfmb*hbcm2*p6p9-3*
7664      . fmb*hbcm*p6p10+3*fmb*hbcm*p6p9+3*fmc*hbcm*p6p10-3*fmc*hbcm*
7665      . p6p9-3*hbcm2*p6p10+3*hbcm2*p6p9)))
7666       b(78)=ccc*(12*w1*(fmb*p6p8+fmc*p6p8-hbcm*p6p8)+12*w15*(fmb*
7667      . p6p10-fmb*p6p9+fmc*p6p10-fmc*p6p9-hbcm*p6p10+hbcm*p6p9))
7668       b(79)=12*ccc*w15*p6p7*(-fmb-fmc+hbcm)
7669       b(81)=12*ccc*w15*p6p7*(fmb+fmc-hbcm)
7670       do 200 n=1,94
7671          c(n,1)=c(n,1)-0.8181818181818182d0*b(n)
7672          c(n,2)=c(n,2)+0.1512818716977898d0*b(n)
7673          c(n,3)=c(n,3)+0.1869893980016914d0*b(n)
7674 200   continue
7675       return
7676       end
7677
7678       subroutine amp30_3p2(cc)
7679       implicit double precision(a-h,o-z)
7680       implicit integer (i-n)
7681       dimension b(94)
7682 #include "inclcon.h"
7683 #include "inclppp.h"
7684 #include "inclamp.h"
7685       do 100 n=1,94
7686          b(n)=0.0d0
7687 100   continue
7688       ccc=cc/((-2*p1p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*
7689      . p3p5+fmb2+hbcm2+2*p3p5)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p1p3+2*
7690      . ffmcfmb*p3p4+fmc2-2*p1p4))
7691       b(1)=8*ccc*w5*(p3p7*p4p6-p4p6*p4p7+3*p4p6*p5p7)
7692       b(2)=8*ccc*w2*(-p3p7*p4p6+p4p6*p4p7-3*p4p6*p5p7)
7693       b(3)=ccc*(16*w5*p1p4*(-p7p10+p7p8)-16*p1p4*p7p9*w2)
7694       b(4)=-16*ccc*p1p4*p3p7*w5
7695       b(5)=16*ccc*p1p4*p3p7*w2
7696       b(6)=ccc*(16*w5*p1p4*(hbcm*p7p10-hbcm*p7p8)+16*hbcm*p1p4*p7p9*
7697      . w2)
7698       b(7)=ccc*(8*w2*p4p6*(-3*p1p9-p2p9+2*p3p9+3*p4p9-p5p9)+8*w5*p4p6
7699      . *(-3*p1p10+3*p1p8-p2p10+p2p8+2*p3p10-2*p3p8+3*p4p10-3*p4p8-
7700      . p5p10+p5p8))
7701       b(8)=w5*ccc*(4*p4p6*(2*ffmcfmb*hbcm2-3*fmb*hbcm+3*fmc*hbcm+
7702      . hbcm2)+8*(-3*p1p3*p4p6-p2p3*p4p6+3*p3p4*p4p6-p3p5*p4p6))
7703       b(9)=w2*ccc*(4*p4p6*(-2*ffmcfmb*hbcm2+3*fmb*hbcm-3*fmc*hbcm-
7704      . hbcm2)+8*(3*p1p3*p4p6+p2p3*p4p6-3*p3p4*p4p6+p3p5*p4p6))
7705       b(10)=ccc*(8*w2*p4p6*(3*hbcm*p1p9+hbcm*p2p9-2*hbcm*p3p9-3*hbcm*
7706      . p4p9+hbcm*p5p9)+8*w5*p4p6*(-3*fmb*p3p10+3*fmb*p3p8-3*fmc*p3p10
7707      . +3*fmc*p3p8+3*hbcm*p1p10-3*hbcm*p1p8+hbcm*p2p10-hbcm*p2p8+hbcm
7708      . *p3p10-hbcm*p3p8-3*hbcm*p4p10+3*hbcm*p4p8+hbcm*p5p10-hbcm*p5p8
7709      . ))
7710       b(11)=w5*ccc*(8*(p4p6*p3p7)*(ffmcfmb*hbcm+fmb+2*fmc-hbcm)+16*
7711      . hbcm*p4p6*p5p7)
7712       b(12)=w2*ccc*(8*(p4p6*p3p7)*(-ffmcfmb*hbcm-fmb-2*fmc+hbcm)-16*
7713      . hbcm*p4p6*p5p7)
7714       b(13)=-12*ccc*p1p4*w5
7715       b(14)=12*ccc*p1p4*w2
7716       b(15)=12*ccc*hbcm*p1p4*w5
7717       b(16)=-12*ccc*hbcm*p1p4*w2
7718       b(18)=6*ccc*w5*(-fmb-fmc+hbcm)
7719       b(19)=2*ccc*w5*(-2*ffmcfmb*hbcm2+3*fmb*hbcm-3*fmc*hbcm-hbcm2+6*
7720      . p1p3+2*p2p3-6*p3p4+2*p3p5)
7721       b(20)=w5*ccc*(4*p3p7*(ffmcfmb*hbcm+fmb+2*fmc-hbcm)+8*hbcm*p5p7)
7722       b(21)=ccc*(4*w2*(-3*hbcm*p1p9-hbcm*p2p9+2*hbcm*p3p9+3*hbcm*p4p9
7723      . -hbcm*p5p9)+4*w5*(3*fmb*p3p10-3*fmb*p3p8+3*fmc*p3p10-3*fmc*
7724      . p3p8-3*hbcm*p1p10+3*hbcm*p1p8-hbcm*p2p10+hbcm*p2p8-hbcm*p3p10+
7725      . hbcm*p3p8+3*hbcm*p4p10-3*hbcm*p4p8-hbcm*p5p10+hbcm*p5p8))
7726       b(22)=-12*ccc*hbcm*p1p4*w5
7727       b(24)=6*ccc*w5*(fmb+fmc-hbcm)
7728       b(25)=2*ccc*w5*(2*ffmcfmb*hbcm2-3*fmb*hbcm+3*fmc*hbcm+hbcm2-6*
7729      . p1p3-2*p2p3+6*p3p4-2*p3p5)
7730       b(26)=w5*ccc*(4*p3p7*(-ffmcfmb*hbcm-fmb-2*fmc+hbcm)-8*hbcm*p5p7
7731      . )
7732       b(27)=12*ccc*w5*p4p6*(fmb+fmc-hbcm)
7733       b(28)=w5*ccc*(4*p4p6*(2*ffmcfmb*hbcm2-3*fmb*hbcm+3*fmc*hbcm+
7734      . hbcm2)+8*(-3*p1p3*p4p6-p2p3*p4p6+3*p3p4*p4p6-p3p5*p4p6))
7735       b(29)=w5*ccc*(8*(p4p6*p3p7)*(-ffmcfmb*hbcm-fmb-2*fmc+hbcm)-16*
7736      . hbcm*p4p6*p5p7)
7737       b(30)=ccc*(w2*(32*(p4p6*p3p7)*(p1p9+p2p9-p3p9-p4p9)+8*p4p6*(
7738      . ffmcfmb*hbcm2*p7p9-2*fmb*hbcm*p7p9+fmc*hbcm*p7p9)+16*(-p1p3*
7739      . p4p6*p7p9-p2p3*p4p6*p7p9+p3p4*p4p6*p7p9-p3p5*p4p6*p7p9))+w5*(
7740      . 16*(p4p6*p3p4)*(-2*p7p10-p7p8)+16*(p4p6*p1p3)*(2*p7p10+p7p8)+
7741      . 32*(p4p6*p3p7)*(p1p10-p1p8+p2p10-p2p8-p3p10+p3p8-p4p10+p4p8)+8
7742      . *p4p6*(-ffmcfmb*hbcm2*p7p10-ffmcfmb*hbcm2*p7p8+fmb*hbcm*p7p10+
7743      . 2*fmb*hbcm*p7p8-2*fmc*hbcm*p7p10-fmc*hbcm*p7p8-hbcm2*p7p10)+16
7744      . *(p2p3*p4p6*p7p8+p3p5*p4p6*p7p8))+8*p3p12*p4p6)
7745       b(31)=12*ccc*w5*p4p6*(-fmb-fmc+hbcm)
7746       b(32)=12*ccc*w2*p4p6*(-fmb-fmc+hbcm)
7747       b(33)=ccc*(8*w2*p4p6*(-ffmcfmb*hbcm*p7p9+fmb*p7p9+2*fmc*p7p9-
7748      . hbcm*p7p9)+8*w5*p4p6*(-ffmcfmb*hbcm*p7p10+ffmcfmb*hbcm*p7p8+
7749      . fmb*p7p10-fmb*p7p8+2*fmc*p7p10-2*fmc*p7p8-hbcm*p7p10+hbcm*p7p8
7750      . ))
7751       b(34)=6*ccc*w2*(fmb+fmc-hbcm)
7752       b(35)=ccc*(4*w2*(ffmcfmb*hbcm*p7p9-fmb*p7p9-2*fmc*p7p9+hbcm*
7753      . p7p9)+4*w5*(ffmcfmb*hbcm*p7p10-ffmcfmb*hbcm*p7p8-fmb*p7p10+fmb
7754      . *p7p8-2*fmc*p7p10+2*fmc*p7p8+hbcm*p7p10-hbcm*p7p8))
7755       b(36)=2*ccc*w2*(-2*ffmcfmb*hbcm2+3*fmb*hbcm-3*fmc*hbcm-hbcm2+6*
7756      . p1p3+2*p2p3-6*p3p4+2*p3p5)
7757       b(37)=w2*ccc*(4*p3p7*(ffmcfmb*hbcm+fmb+2*fmc-hbcm)+8*hbcm*p5p7)
7758       b(38)=ccc*(w2*(8*p3p7*(p1p9-p2p9-p4p9+p5p9)+4*(ffmcfmb*hbcm2*
7759      . p7p9-fmb*hbcm*p7p9+2*fmc*hbcm*p7p9+hbcm2*p7p9-4*p1p3*p7p9+4*
7760      . p3p4*p7p9))+w5*(16*p3p4*(p7p10-p7p8)+16*p1p3*(-p7p10+p7p8)+8*
7761      . p3p7*(p1p10-p1p8-p2p10+p2p8-p4p10+p4p8+p5p10-p5p8)+4*(ffmcfmb*
7762      . hbcm2*p7p10-ffmcfmb*hbcm2*p7p8-fmb*hbcm*p7p10+fmb*hbcm*p7p8+2*
7763      . fmc*hbcm*p7p10-2*fmc*hbcm*p7p8+hbcm2*p7p10-hbcm2*p7p8))-4*
7764      . p3p12)
7765       b(52)=4*ccc*w2*(p3p7-p4p7+3*p5p7)
7766       b(53)=ccc*(4*w2*(-3*p1p9-p2p9+2*p3p9+3*p4p9-p5p9)+4*w5*(-3*
7767      . p1p10+3*p1p8-p2p10+p2p8+2*p3p10-2*p3p8+3*p4p10-3*p4p8-p5p10+
7768      . p5p8))
7769       b(61)=4*ccc*hbcm
7770       b(62)=-8*ccc*hbcm*p4p6
7771       b(64)=8*ccc*w5*(-p3p7*p4p6+p4p6*p4p7-3*p4p6*p5p7)
7772       b(69)=4*ccc*w5*(p3p7-p4p7+3*p5p7)
7773       b(70)=16*ccc*p1p4*p3p7*w5
7774       b(71)=4*ccc*w5*(-p3p7+p4p7-3*p5p7)
7775       b(72)=12*ccc*p1p4*w5
7776       do 200 n=1,94
7777          c(n,2)=c(n,2)+0.8320502943378437d0*b(n)
7778          c(n,3)=c(n,3)-0.1869893980016914d0*b(n)
7779 200   continue
7780       return
7781       end
7782
7783       subroutine amp3_3p2(cc)
7784       implicit double precision(a-h,o-z)
7785       implicit integer (i-n)
7786       dimension b(38)
7787 #include "inclcon.h"
7788 #include "inclppp.h"
7789 #include "inclamp.h"
7790       do 100 n=1,38
7791          b(n)=0.0d0
7792 100   continue
7793       ccc=cc/((-2*p1p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2-2*ffmcfmb*
7794      . p3p5+fmb2+hbcm2+2*p3p5)*(fmb2-fmc2+hbcm2+2*p3p5))
7795       b(9)=8*ccc*w2*p4p6*(-fmb*hbcm+fmc*hbcm)
7796       b(10)=-16*ccc*hbcm*p4p6*p5p9*w2
7797       b(12)=-16*ccc*hbcm*p3p7*p4p6*w2
7798       b(21)=8*ccc*hbcm*p5p9*w2
7799       b(32)=-8*ccc*hbcm*p4p6*w2
7800       b(33)=16*ccc*hbcm*p4p6*p7p9*w2
7801       b(34)=4*ccc*hbcm*w2
7802       b(35)=-8*ccc*hbcm*p7p9*w2
7803       b(36)=4*ccc*w2*(-fmb*hbcm+fmc*hbcm)
7804       b(37)=8*ccc*hbcm*p3p7*w2
7805       b(38)=8*ccc*w2*(fmb*hbcm*p7p9-fmc*hbcm*p7p9)
7806       do 200 n=1,38
7807          c(n,2)=c(n,2)-0.7396002616336388d0*b(n)
7808          c(n,3)=c(n,3)+0.1662127982237257d0*b(n)
7809 200   continue
7810       return
7811       end
7812
7813       subroutine amp9_3p2(cc)
7814       implicit double precision(a-h,o-z)
7815       implicit integer (i-n)
7816       dimension b(91)
7817 #include "inclcon.h"
7818 #include "inclppp.h"
7819 #include "inclamp.h"
7820       do 100 n=1,91
7821          b(n)=0.0d0
7822 100   continue
7823       ccc=cc/((-2*p2p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*p2p3+2*ffmcfmb*
7824      . p3p4+fmc2-2*p2p4)*(ffmcfmb**2*hbcm2-2*ffmcfmb*hbcm2+2*ffmcfmb*
7825      . p1p3-fmb2+hbcm2-2*p1p3))
7826       b(1)=w11*ccc*(8*p6p7*(ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm-fmb*fmc
7827      . -fmb*hbcm+fmb2+fmc*hbcm)+16*(-p1p3*p6p7-2*p1p5*p6p7))
7828       b(3)=ccc*(w11*(32*p1p4*(-p7p11+p7p8)+16*p1p3*(-p7p11+p7p8)+32*
7829      . p1p2*(p7p11-p7p8)+8*(-ffmcfmb*fmb*hbcm*p7p11+ffmcfmb*fmb*hbcm*
7830      . p7p8+ffmcfmb*fmc*hbcm*p7p11-ffmcfmb*fmc*hbcm*p7p8+fmb*fmc*
7831      . p7p11-fmb*fmc*p7p8+fmb*hbcm*p7p11-fmb*hbcm*p7p8-fmb2*p7p11+
7832      . fmb2*p7p8-fmc*hbcm*p7p11+fmc*hbcm*p7p8))+8*w13*(ffmcfmb*fmb*
7833      . hbcm*p7p10-ffmcfmb*fmc*hbcm*p7p10-fmb*fmc*p7p10-fmb*hbcm*p7p10
7834      . +fmb2*p7p10+fmc*hbcm*p7p10-4*p1p2*p7p10+2*p1p3*p7p10+4*p1p4*
7835      . p7p10))
7836       b(4)=w11*ccc*(8*p3p7*(-ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+fmb*
7837      . fmc+fmb*hbcm-fmb2-fmc*hbcm)+16*(2*p1p2*p3p7+p1p3*p4p7+p1p3*
7838      . p5p7-2*p1p4*p3p7))
7839       ans=ccc*(w11*(16*p1p4*(hbcm*p7p11-hbcm*p7p8)+16*p1p2*(-hbcm*
7840      . p7p11+hbcm*p7p8)+16*p3p7*(ffmcfmb*hbcm*p5p11-ffmcfmb*hbcm*p5p8
7841      . -fmb*p1p11+fmb*p1p8+fmb*p5p11-fmb*p5p8-fmc*p1p11+fmc*p1p8-hbcm
7842      . *p5p11+hbcm*p5p8)+16*p3p4*(ffmcfmb*hbcm*p7p11-ffmcfmb*hbcm*
7843      . p7p8+fmb*p7p11-fmb*p7p8-hbcm*p7p11+hbcm*p7p8)+16*p2p3*(-
7844      . ffmcfmb*hbcm*p7p11+ffmcfmb*hbcm*p7p8-fmb*p7p11+fmb*p7p8+hbcm*
7845      . p7p11-hbcm*p7p8)+16*p1p3*(-ffmcfmb*hbcm*p7p11+ffmcfmb*hbcm*
7846      . p7p8+fmc*p7p11-fmc*p7p8+hbcm*p7p11-hbcm*p7p8)+8*(ffmcfmb*hbcm3
7847      . *p7p11-ffmcfmb*hbcm3*p7p8+fmb*hbcm2*p7p11-fmb*hbcm2*p7p8-hbcm3
7848      . *p7p11+hbcm3*p7p8))+w13*(16*p3p7*(-ffmcfmb*hbcm*p5p10+fmb*
7849      . p1p10-fmb*p5p10+fmc*p1p10+hbcm*p5p10)+16*p3p4*(-ffmcfmb*hbcm*
7850      . p7p10-fmb*p7p10+hbcm*p7p10)+16*p2p3*(ffmcfmb*hbcm*p7p10+fmb*
7851      . p7p10-hbcm*p7p10)+16*p1p3*(ffmcfmb*hbcm*p7p10-fmc*p7p10-hbcm*
7852      . p7p10)+8*(-ffmcfmb*hbcm3*p7p10-fmb*hbcm2*p7p10+2*hbcm*p1p2*
7853      . p7p10-2*hbcm*p1p4*p7p10+hbcm3*p7p10)))
7854       b(6)=ans
7855       b(7)=ccc*(w11*(16*p1p5*(p6p11-p6p8)+16*p1p3*(p6p11-p6p8)+16*
7856      . p4p6*(-p1p11+p1p8)+16*p3p6*(-p1p11+p1p8)+8*(ffmcfmb*hbcm2*
7857      . p6p11-ffmcfmb*hbcm2*p6p8+fmb*hbcm*p6p11-fmb*hbcm*p6p8-hbcm2*
7858      . p6p11+hbcm2*p6p8))+8*w13*(-ffmcfmb*hbcm2*p6p10-fmb*hbcm*p6p10+
7859      . hbcm2*p6p10+2*p1p10*p3p6+2*p1p10*p4p6-2*p1p3*p6p10-2*p1p5*
7860      . p6p10)+8*(p1p13+p2p13-2*p3p13-p4p13-p5p13))
7861       b(8)=w11*ccc*(8*p3p6*(-ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+fmb*
7862      . hbcm-fmc*hbcm)+16*(-p1p3*p4p6+p1p5*p3p6))
7863       ans=ccc*(w11*(16*p1p3*(-fmb*p6p11+fmb*p6p8-fmc*p6p11+fmc*p6p8)+
7864      . 16*p4p6*(-ffmcfmb*hbcm*p3p8-fmb*p3p8+hbcm*p3p8)+16*p3p6*(
7865      . ffmcfmb*hbcm*p1p11-ffmcfmb*hbcm*p1p8+ffmcfmb*hbcm*p2p11-
7866      . ffmcfmb*hbcm*p2p8-ffmcfmb*hbcm*p3p11-ffmcfmb*hbcm*p4p11+
7867      . ffmcfmb*hbcm*p4p8-hbcm*p1p11+hbcm*p1p8-hbcm*p2p11+hbcm*p2p8+
7868      . hbcm*p3p11+hbcm*p4p11-hbcm*p4p8)+8*(-ffmcfmb*fmb*hbcm2*p6p11+
7869      . ffmcfmb*fmb*hbcm2*p6p8-ffmcfmb*fmc*hbcm2*p6p11+ffmcfmb*fmc*
7870      . hbcm2*p6p8-fmb*fmc*hbcm*p6p11+fmb*fmc*hbcm*p6p8+fmb*hbcm2*
7871      . p6p11-fmb*hbcm2*p6p8-fmb2*hbcm*p6p11+fmb2*hbcm*p6p8+fmc*hbcm2*
7872      . p6p11-fmc*hbcm2*p6p8))+w13*(16*p1p3*(fmb*p6p10+fmc*p6p10)+16*
7873      . p4p6*(-ffmcfmb*hbcm*p3p10-fmb*p3p10+hbcm*p3p10)+16*p3p6*(-
7874      . ffmcfmb*hbcm*p1p10-ffmcfmb*hbcm*p2p10+ffmcfmb*hbcm*p4p10+hbcm*
7875      . p1p10+hbcm*p2p10-hbcm*p4p10)+8*(ffmcfmb*fmb*hbcm2*p6p10+
7876      . ffmcfmb*fmc*hbcm2*p6p10+fmb*fmc*hbcm*p6p10-fmb*hbcm2*p6p10+
7877      . fmb2*hbcm*p6p10-fmc*hbcm2*p6p10))+8*(fmb*p3p13+fmc*p3p13-hbcm*
7878      . p1p13+hbcm*p5p13))
7879       b(10)=ans
7880       b(11)=w11*ccc*(8*p6p7*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+16*(p4p6
7881      . *p3p7)*(-ffmcfmb*hbcm-fmb+hbcm)+16*(p5p7*p3p6)*(ffmcfmb*hbcm-
7882      . hbcm)+16*(p4p7*p3p6)*(ffmcfmb*hbcm-hbcm)+16*(p6p7*p3p5)*(-
7883      . ffmcfmb*hbcm-fmb+hbcm)+16*(p6p7*p1p3)*(ffmcfmb*hbcm-fmc-hbcm)-
7884      . 16*hbcm*p1p5*p6p7)
7885       b(13)=4*ccc*w11*(-ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+fmb*fmc+fmb
7886      . *hbcm-fmb2-fmc*hbcm+4*p1p2-2*p1p3-4*p1p4)
7887       b(15)=w11*ccc*(8*p3p4*(ffmcfmb*hbcm+fmb-hbcm)+8*p2p3*(-ffmcfmb*
7888      . hbcm-fmb+hbcm)+8*p1p3*(-ffmcfmb*hbcm+fmc+hbcm)+4*(ffmcfmb*
7889      . hbcm3+fmb*hbcm2-2*hbcm*p1p2+2*hbcm*p1p4-hbcm3))
7890       b(17)=w13*ccc*(8*p3p6*(ffmcfmb*hbcm-fmb-fmc-hbcm)-8*hbcm*p4p6)
7891       b(18)=4*ccc*w13*(-ffmcfmb*hbcm+fmb+2*fmc)
7892       b(19)=4*ccc*w13*(-fmb*hbcm+fmc*hbcm+2*hbcm2-2*p1p3-4*p2p3+4*
7893      . p3p4)
7894       b(20)=w13*ccc*(8*p3p7*(ffmcfmb*hbcm-fmb-2*fmc-hbcm)+8*(-hbcm*
7895      . p4p7-hbcm*p5p7))
7896       b(21)=ccc*(8*w11*(ffmcfmb*hbcm*p3p8-fmb*p3p8-2*fmc*p3p8-hbcm*
7897      . p1p11+hbcm*p1p8-hbcm*p2p11+hbcm*p2p8+hbcm*p3p11-hbcm*p3p8+hbcm
7898      . *p4p11-hbcm*p4p8)+8*w13*(ffmcfmb*hbcm*p3p10-fmb*p3p10-2*fmc*
7899      . p3p10+hbcm*p1p10+hbcm*p2p10-hbcm*p3p10-hbcm*p4p10))
7900       b(22)=w13*ccc*(8*p3p4*(ffmcfmb*hbcm+fmb-hbcm)+8*p2p3*(-ffmcfmb*
7901      . hbcm-fmb+hbcm)+8*p1p3*(-ffmcfmb*hbcm+fmc+hbcm)+4*(ffmcfmb*
7902      . hbcm3+fmb*hbcm2-2*hbcm*p1p2+2*hbcm*p1p4-hbcm3))
7903       b(23)=w11*ccc*(8*p3p6*(ffmcfmb*hbcm-fmb-fmc-hbcm)-8*hbcm*p4p6)
7904       b(24)=4*ccc*w11*(-ffmcfmb*hbcm+fmb+2*fmc)
7905       b(25)=4*ccc*w11*(-fmb*hbcm+fmc*hbcm+2*hbcm2-2*p1p3-4*p2p3+4*
7906      . p3p4)
7907       b(26)=w11*ccc*(8*p3p7*(ffmcfmb*hbcm-fmb-2*fmc-hbcm)+8*(-hbcm*
7908      . p4p7-hbcm*p5p7))
7909       b(27)=w13*ccc*(8*p4p6*(ffmcfmb*hbcm+fmb-hbcm)+8*p3p6*(ffmcfmb*
7910      . hbcm-hbcm))
7911       b(28)=w13*ccc*(8*p3p6*(ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm-fmb*
7912      . hbcm+fmc*hbcm)+16*(p1p3*p4p6-p1p5*p3p6))
7913       b(29)=w13*ccc*(8*p6p7*(-ffmcfmb*hbcm3-fmb*hbcm2+hbcm3)+16*(p4p6
7914      . *p3p7)*(-ffmcfmb*hbcm-fmb+hbcm)+16*(p5p7*p3p6)*(ffmcfmb*hbcm-
7915      . hbcm)+16*(p4p7*p3p6)*(ffmcfmb*hbcm-hbcm)+16*(p6p7*p3p5)*(-
7916      . ffmcfmb*hbcm-fmb+hbcm)+16*(p6p7*p1p3)*(ffmcfmb*hbcm-fmc-hbcm)-
7917      . 16*hbcm*p1p5*p6p7)
7918       ans2=w13*(32*(p6p7*p1p3)*(2*p1p10-p5p10)+16*p5p7*(ffmcfmb*hbcm2
7919      . *p6p10+fmb*hbcm*p6p10-hbcm2*p6p10)+16*p4p7*(ffmcfmb*hbcm2*
7920      . p6p10+fmb*hbcm*p6p10-hbcm2*p6p10)+16*p3p7*(ffmcfmb*hbcm2*p6p10
7921      . +fmb*hbcm*p6p10-hbcm2*p6p10)+16*p3p6*(-ffmcfmb*fmb*hbcm*p7p10+
7922      . ffmcfmb*fmc*hbcm*p7p10+fmb*hbcm*p7p10-fmc*hbcm*p7p10)+16*(-3*
7923      . hbcm2*p1p10*p6p7+2*p1p10*p2p3*p6p7-2*p1p10*p3p4*p6p7-4*p1p10*
7924      . p3p5*p6p7-4*p1p10*p3p6*p3p7-2*p1p10*p3p6*p4p7-2*p1p10*p3p6*
7925      . p5p7-4*p1p10*p3p7*p4p6+2*p1p3*p3p7*p6p10-2*p1p3*p4p6*p7p10+2*
7926      . p1p3*p4p7*p6p10+2*p1p3*p5p7*p6p10+2*p1p5*p3p6*p7p10))+(16*p3p7
7927      . *(-p1p13-p2p13+p3p13+p4p13+p5p13)+8*(fmb*hbcm*p7p13-fmc*hbcm*
7928      . p7p13+2*hbcm2*p7p13-2*p1p3*p7p13-2*p2p3*p7p13+2*p3p4*p7p13+2*
7929      . p3p5*p7p13))
7930       ans1=w11*(32*(p5p7*p1p3)*(-p6p11+p6p8)+32*(p4p7*p1p3)*(-p6p11+
7931      . p6p8)+32*(p3p7*p1p3)*(-p6p11+p6p8)+64*(p4p6*p3p7)*(p1p11-p1p8)
7932      . +32*(p5p7*p3p6)*(p1p11-p1p8)+32*(p4p7*p3p6)*(p1p11-p1p8)+64*(
7933      . p3p7*p3p6)*(p1p11-p1p8)+64*(p6p7*p3p5)*(p1p11-p1p8)+32*(p6p7*
7934      . p3p4)*(p1p11-p1p8)+32*(p6p7*p2p3)*(-p1p11+p1p8)+32*(p6p7*p1p3)
7935      . *(-2*p1p11+2*p1p8+p5p11-p5p8)+48*p6p7*(hbcm2*p1p11-hbcm2*p1p8)
7936      . +16*p5p7*(-ffmcfmb*hbcm2*p6p11+ffmcfmb*hbcm2*p6p8-fmb*hbcm*
7937      . p6p11+fmb*hbcm*p6p8+hbcm2*p6p11-hbcm2*p6p8)+16*p4p7*(-ffmcfmb*
7938      . hbcm2*p6p11+ffmcfmb*hbcm2*p6p8-fmb*hbcm*p6p11+fmb*hbcm*p6p8+
7939      . hbcm2*p6p11-hbcm2*p6p8)+16*p3p7*(-ffmcfmb*hbcm2*p6p11+ffmcfmb*
7940      . hbcm2*p6p8-fmb*hbcm*p6p11+fmb*hbcm*p6p8+hbcm2*p6p11-hbcm2*p6p8
7941      . )+16*p3p6*(ffmcfmb*fmb*hbcm*p7p11-ffmcfmb*fmc*hbcm*p7p11-fmb*
7942      . hbcm*p7p11+fmc*hbcm*p7p11)+32*(p1p3*p4p6*p7p11-p1p5*p3p6*p7p11
7943      . ))+ans2
7944       ans=ccc*ans1
7945       b(30)=ans
7946       b(31)=w11*ccc*(8*p4p6*(ffmcfmb*hbcm+fmb-hbcm)+8*p3p6*(ffmcfmb*
7947      . hbcm-hbcm))
7948       b(33)=ccc*(w11*(16*p4p6*(-ffmcfmb*hbcm*p7p11+ffmcfmb*hbcm*p7p8-
7949      . fmb*p7p11+fmb*p7p8+hbcm*p7p11-hbcm*p7p8)+16*p3p6*(-ffmcfmb*
7950      . hbcm*p7p11+ffmcfmb*hbcm*p7p8+hbcm*p7p11-hbcm*p7p8)+16*p6p7*(
7951      . ffmcfmb*hbcm*p1p11-ffmcfmb*hbcm*p1p8-ffmcfmb*hbcm*p5p11+
7952      . ffmcfmb*hbcm*p5p8-fmb*p5p11+fmb*p5p8-fmc*p1p11+fmc*p1p8+hbcm*
7953      . p5p11-hbcm*p5p8))+w13*(16*p4p6*(ffmcfmb*hbcm*p7p10+fmb*p7p10-
7954      . hbcm*p7p10)+16*p3p6*(ffmcfmb*hbcm*p7p10-hbcm*p7p10)+16*p6p7*(-
7955      . ffmcfmb*hbcm*p1p10+ffmcfmb*hbcm*p5p10+fmb*p5p10+fmc*p1p10-hbcm
7956      . *p5p10))-8*hbcm*p7p13)
7957       b(35)=ccc*(8*w11*(ffmcfmb*hbcm*p7p11-ffmcfmb*hbcm*p7p8-fmb*
7958      . p7p11+fmb*p7p8-2*fmc*p7p11+2*fmc*p7p8)+8*w13*(-ffmcfmb*hbcm*
7959      . p7p10+fmb*p7p10+2*fmc*p7p10))
7960       b(38)=ccc*(w11*(32*p3p4*(p7p11-p7p8)+32*p2p3*(-p7p11+p7p8)+16*
7961      . p1p3*(-p7p11+p7p8)+16*p3p7*(-p1p11+p1p8+2*p5p11-2*p5p8)+8*(-
7962      . fmb*hbcm*p7p11+fmb*hbcm*p7p8+fmc*hbcm*p7p11-fmc*hbcm*p7p8+2*
7963      . hbcm2*p7p11-2*hbcm2*p7p8))+w13*(16*p3p7*(p1p10-2*p5p10)+8*(fmb
7964      . *hbcm*p7p10-fmc*hbcm*p7p10-2*hbcm2*p7p10+2*p1p3*p7p10+4*p2p3*
7965      . p7p10-4*p3p4*p7p10)))
7966       b(39)=w11*ccc*(8*p6p7*(-fmb*hbcm+fmc*hbcm-2*hbcm2)+16*(p1p3*
7967      . p6p7-2*p3p5*p6p7-p3p6*p3p7-2*p3p7*p4p6))
7968       b(40)=w11*ccc*(8*p6p7*(ffmcfmb*hbcm3+fmb*hbcm2-hbcm3)+16*(p4p6*
7969      . p3p7)*(ffmcfmb*hbcm+fmb-hbcm)+16*(p5p7*p3p6)*(-ffmcfmb*hbcm+
7970      . hbcm)+16*(p4p7*p3p6)*(-ffmcfmb*hbcm+hbcm)+16*(p6p7*p3p5)*(
7971      . ffmcfmb*hbcm+fmb-hbcm)+16*(p6p7*p1p3)*(-ffmcfmb*hbcm+fmc+hbcm)
7972      . +16*hbcm*p1p5*p6p7)
7973       b(41)=w11*ccc*(8*p6p7*(-ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+fmb*
7974      . fmc+fmb*hbcm-fmb2-fmc*hbcm)+16*(p1p3*p6p7+2*p1p5*p6p7))
7975       b(43)=ccc*(w11*(32*p4p6*(-p7p11+p7p8)+16*p3p6*(-p7p11+p7p8)+16*
7976      . p6p7*(p1p11-p1p8-2*p5p11+2*p5p8))+w13*(16*p6p7*(-p1p10+2*p5p10
7977      . )+16*(p3p6*p7p10+2*p4p6*p7p10)))
7978       b(44)=w11*ccc*(8*p3p6*(-ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+fmb*
7979      . hbcm-fmc*hbcm)+16*(-p1p3*p4p6+p1p5*p3p6))
7980       b(45)=8*ccc*w11*(-p3p6-2*p4p6)
7981       b(46)=w11*ccc*(8*p4p6*(ffmcfmb*hbcm+fmb-hbcm)+8*p3p6*(ffmcfmb*
7982      . hbcm-hbcm))
7983       b(49)=w11*ccc*(8*p3p7*(-ffmcfmb*hbcm+fmb+2*fmc+hbcm)+8*(hbcm*
7984      . p4p7+hbcm*p5p7))
7985       b(50)=16*ccc*w11*(p3p7+p4p7+p5p7)
7986       b(51)=w11*ccc*(8*p3p7*(ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm-fmb*
7987      . fmc-fmb*hbcm+fmb2+fmc*hbcm)+16*(-2*p1p2*p3p7-p1p3*p4p7-p1p3*
7988      . p5p7+2*p1p4*p3p7))
7989       b(53)=ccc*(8*w11*(-p1p11+p1p8-2*p2p11+2*p2p8+2*p3p11-2*p3p8+2*
7990      . p4p11-2*p4p8)+8*w13*(p1p10+2*p2p10-2*p3p10-2*p4p10))
7991       b(54)=4*ccc*w11*(fmb*hbcm-fmc*hbcm-2*hbcm2+2*p1p3+4*p2p3-4*p3p4
7992      . )
7993       b(55)=4*ccc*w11*(-ffmcfmb*hbcm+fmb+2*fmc)
7994       b(56)=4*ccc*w11*(ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm-fmb*fmc-fmb*
7995      . hbcm+fmb2+fmc*hbcm-4*p1p2+2*p1p3+4*p1p4)
7996       b(58)=w11*ccc*(8*p3p6*(-ffmcfmb*hbcm+fmb+fmc+hbcm)+8*hbcm*p4p6)
7997       b(59)=w11*ccc*(8*p3p4*(-ffmcfmb*hbcm-fmb+hbcm)+8*p2p3*(ffmcfmb*
7998      . hbcm+fmb-hbcm)+8*p1p3*(ffmcfmb*hbcm-fmc-hbcm)+4*(-ffmcfmb*
7999      . hbcm3-fmb*hbcm2+2*hbcm*p1p2-2*hbcm*p1p4+hbcm3))
8000       b(63)=w13*ccc*(8*p6p7*(fmb*hbcm-fmc*hbcm+2*hbcm2)+16*(-p1p3*
8001      . p6p7+2*p3p5*p6p7+p3p6*p3p7+2*p3p7*p4p6))
8002       b(64)=w13*ccc*(8*p6p7*(ffmcfmb*fmb*hbcm-ffmcfmb*fmc*hbcm-fmb*
8003      . fmc-fmb*hbcm+fmb2+fmc*hbcm)+16*(-p1p3*p6p7-2*p1p5*p6p7))
8004       b(65)=w11*ccc*(8*p6p7*(fmb*hbcm-fmc*hbcm+2*hbcm2)+16*(-p1p3*
8005      . p6p7+2*p3p5*p6p7+p3p6*p3p7+2*p3p7*p4p6))
8006       b(66)=ccc*(w11*(16*p6p7*(-hbcm*p5p11+hbcm*p5p8)+16*p4p6*(-hbcm*
8007      . p7p11+hbcm*p7p8)+16*p3p6*(ffmcfmb*hbcm*p7p11-ffmcfmb*hbcm*p7p8
8008      . -fmb*p7p11+fmb*p7p8-fmc*p7p11+fmc*p7p8-hbcm*p7p11+hbcm*p7p8))+
8009      . w13*(16*p3p6*(-ffmcfmb*hbcm*p7p10+fmb*p7p10+fmc*p7p10+hbcm*
8010      . p7p10)+16*(hbcm*p4p6*p7p10+hbcm*p5p10*p6p7))+8*hbcm*p7p13)
8011       b(67)=8*ccc*w13*(p3p6+2*p4p6)
8012       b(68)=8*ccc*w11*(p3p6+2*p4p6)
8013       b(69)=16*ccc*w13*(-p3p7-p4p7-p5p7)
8014       b(70)=w13*ccc*(8*p3p7*(-ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+fmb*
8015      . fmc+fmb*hbcm-fmb2-fmc*hbcm)+16*(2*p1p2*p3p7+p1p3*p4p7+p1p3*
8016      . p5p7-2*p1p4*p3p7))
8017       b(71)=16*ccc*w11*(-p3p7-p4p7-p5p7)
8018       b(72)=4*ccc*w13*(-ffmcfmb*fmb*hbcm+ffmcfmb*fmc*hbcm+fmb*fmc+fmb
8019      . *hbcm-fmb2-fmc*hbcm+4*p1p2-2*p1p3-4*p1p4)
8020       b(73)=8*ccc*w11*p6p7*(-ffmcfmb*hbcm+fmb+2*fmc)
8021       b(74)=8*ccc*w11*p6p7*(ffmcfmb*hbcm-fmb-2*fmc)
8022       b(75)=ccc*(8*w11*(-ffmcfmb*hbcm*p1p11+ffmcfmb*hbcm*p1p8-ffmcfmb
8023      . *hbcm*p2p11+ffmcfmb*hbcm*p2p8+ffmcfmb*hbcm*p3p11-ffmcfmb*hbcm*
8024      . p3p8+ffmcfmb*hbcm*p4p11-ffmcfmb*hbcm*p4p8-fmb*p2p11+fmb*p2p8+
8025      . fmb*p3p11-fmb*p3p8+fmb*p4p11-fmb*p4p8+fmc*p1p11-fmc*p1p8+hbcm*
8026      . p1p11-hbcm*p1p8+hbcm*p2p11-hbcm*p2p8-hbcm*p3p11+hbcm*p3p8-hbcm
8027      . *p4p11+hbcm*p4p8)+8*w13*(ffmcfmb*hbcm*p1p10+ffmcfmb*hbcm*p2p10
8028      . -ffmcfmb*hbcm*p3p10-ffmcfmb*hbcm*p4p10+fmb*p2p10-fmb*p3p10-fmb
8029      . *p4p10-fmc*p1p10-hbcm*p1p10-hbcm*p2p10+hbcm*p3p10+hbcm*p4p10))
8030       b(76)=ccc*(w11*(16*p3p5*(-p1p11+p1p8)+16*p1p3*(p1p11-p1p8+p2p11
8031      . -p2p8-p3p11+p3p8-p4p11+p4p8)+8*(-hbcm2*p1p11+hbcm2*p1p8))+w13*
8032      . (16*p1p3*(-p1p10-p2p10+p3p10+p4p10)+8*(hbcm2*p1p10+2*p1p10*
8033      . p3p5)))
8034       b(77)=ccc*(w11*(16*p3p6*(p5p11-p5p8)+16*p3p5*(-p6p11+p6p8)+8*(-
8035      . ffmcfmb*hbcm2*p6p11+ffmcfmb*hbcm2*p6p8-fmb*hbcm*p6p11+fmb*hbcm
8036      . *p6p8))+8*w13*(ffmcfmb*hbcm2*p6p10+fmb*hbcm*p6p10+2*p3p5*p6p10
8037      . -2*p3p6*p5p10)+8*p3p13)
8038       b(78)=ccc*(8*w11*(fmb*p6p11-fmb*p6p8+fmc*p6p11-fmc*p6p8)+8*w13*
8039      . (-fmb*p6p10-fmc*p6p10))
8040       b(81)=8*ccc*w13*p6p7*(ffmcfmb*hbcm-fmb-2*fmc)
8041       b(83)=8*ccc*hbcm*p3p7
8042       b(84)=8*ccc*(p3p7+p4p7+p5p7)
8043       b(85)=4*ccc*(-fmb*hbcm+fmc*hbcm-2*hbcm2+2*p1p3+2*p2p3-2*p3p4-2*
8044      . p3p5)
8045       b(87)=4*ccc*hbcm
8046       b(88)=w13*ccc*(8*p5p7*(-ffmcfmb*hbcm-fmb+hbcm)+8*p4p7*(-ffmcfmb
8047      . *hbcm-fmb+hbcm)+8*p3p7*(-ffmcfmb*hbcm-fmb+hbcm))
8048       b(89)=4*ccc*hbcm
8049       b(90)=w11*ccc*(8*p5p7*(ffmcfmb*hbcm+fmb-hbcm)+8*p4p7*(ffmcfmb*
8050      . hbcm+fmb-hbcm)+8*p3p7*(ffmcfmb*hbcm+fmb-hbcm))
8051       b(91)=w11*ccc*(8*p5p7*(-ffmcfmb*hbcm-fmb+hbcm)+8*p4p7*(-ffmcfmb
8052      . *hbcm-fmb+hbcm)+8*p3p7*(-ffmcfmb*hbcm-fmb+hbcm))
8053       do 200 n=1,91
8054          c(n,1)=c(n,1)+0.09090909090909091d0*b(n)
8055          c(n,2)=c(n,2)-0.01680909685530997d0*b(n)
8056          c(n,3)=c(n,3)-0.02077659977796572d0*b(n)
8057 200   continue
8058       return
8059       end
8060
8061       function ams1_3p2(n)
8062       implicit double precision(a-h,o-z)
8063       implicit integer (i-n)
8064 #include "inclppp.h"
8065 #include "inclcon.h"
8066 #include "inclamp.h"
8067       b1=-p15p15
8068       b2=-p14p14
8069       aa1=c(30,n)**2+b1+b2
8070       b1=p15p15
8071       b2=-p14p14
8072       b3=p17p17
8073       b4=-p16p16
8074       b5=b3+b4
8075       b6=-2*c(30,n)*p0p16
8076       b7=-c(30,n)**2+b1+b2+b5+b6
8077       b8=2*p0p15*p5p17
8078       b9=b8
8079       b10=-2*p0p17*p5p15
8080       b11=b10
8081       b12=-2*p15p17
8082       b13=2*p14p16
8083       b14=b12+b13
8084       b15=-2*epspn2
8085       b16=-2*epspn4
8086       b17=-2*p0p14*p5p16
8087       b18=b17
8088       b19=2*p0p16*p5p14
8089       b20=b19
8090       b21=2*c(30,n)*p5p14
8091       aa2=b11+b14*p0p5+b15+b16+b18+b20+b21+b7*fmb+b9
8092       b1=2*p4p15*p5p15
8093       aa3=b1
8094       aa4=-2*epspn0
8095       b1=-2*p0p15*p4p17
8096       b2=b1
8097       b3=-2*p0p17*p4p15
8098       b4=b3
8099       b5=2*p15p17
8100       b6=2*p14p16
8101       b7=b5+b6
8102       b8=2*epspn1
8103       b9=-2*epspn3
8104       b10=-2*p0p14*p4p16
8105       b11=b10
8106       b12=-2*p0p16*p4p14
8107       b13=b12
8108       b14=-2*c(30,n)*p4p14
8109       aa5=b11+b13+b14+b2+b4+b7*p0p4+b8+b9
8110       b1=2*p4p14*p5p14
8111       aa6=b1
8112       b1=p17p17
8113       b2=p16p16
8114       b3=b1+b2
8115       b4=-2*p4p17*p5p17
8116       b5=b4
8117       b6=2*epspn5
8118       b7=-2*p4p16*p5p16
8119       b8=b7
8120       aa7=b3*p4p5+b5+b6+b8
8121       b1=4*p0p17*p4p17
8122       b2=b1
8123       b3=4*epspn6
8124       b4=4*p0p16*p4p16
8125       b5=b4
8126       b6=2*c(30,n)*p4p16
8127       aa8=b2+b3+b5+b6
8128       b1=-2*p17p17
8129       b2=-2*p16p16
8130       b3=b1+b2
8131       b4=-2*c(30,n)*p5p16
8132       aa9=b3*p0p5+b4
8133       aa10=2*c(30,n)*epspn7
8134       b1=2*c(30,n)*p0p16*p4p5
8135       aa11=b1
8136       ams1_3p2=aa1*p4p5+aa10+aa11+aa2*fmc+aa3+aa4+aa5*fmb+aa6+aa7+aa8*
8137      . p0p5+aa9*p0p4
8138       return
8139       end
8140