do ep=-2,0
      S00iiii(z4(1,1,1,1),ep)=+2d0*(+Csum0(ep)+3d0*Csum1(ep)
     . +3d0*Csum2(ep)+3d0*Csum11(ep)+6d0*Csum12(ep)+3d0*Csum22(ep)
     . +Csum111(ep)+Csum222(ep)+3d0*Csum112(ep)+3d0*Csum122(ep))
     .                        +2d0*m1*Dv(dd1111+N0,ep)
      S00iiii(z4(1,1,1,2),ep)=-2d0*(Csum1(ep)+2d0*Csum11(ep)
     . +2d0*Csum12(ep)+Csum111(ep)+2d0*Csum112(ep)+Csum122(ep))
     .                        +2d0*m1*Dv(dd1112+N0,ep)
      S00iiii(z4(1,1,1,3),ep)=-2d0*(Csum2(ep)+2d0*Csum12(ep)
     . +2d0*Csum22(ep)+Csum112(ep)+2d0*Csum122(ep)+Csum222(ep))
     .                        +2d0*m1*Dv(dd1113+N0,ep)
      S00iiii(z4(1,1,2,2),ep)=+2d0*(Csum11(ep)+Csum111(ep)+Csum112(ep))
     .                        +2d0*m1*Dv(dd1122+N0,ep)
      S00iiii(z4(1,1,2,3),ep)=+2d0*(Csum12(ep)+Csum112(ep)+Csum122(ep))
     .                        +2d0*m1*Dv(dd1123+N0,ep)
      S00iiii(z4(1,1,3,3),ep)=+2d0*(Csum22(ep)+Csum122(ep)+Csum222(ep))
     .                        +2d0*m1*Dv(dd1133+N0,ep)
      S00iiii(z4(1,2,2,2),ep)=-2d0*Csum111(ep)
     .                        +2d0*m1*Dv(dd1222+N0,ep)
      S00iiii(z4(1,2,2,3),ep)=-2d0*Csum112(ep)
     .                        +2d0*m1*Dv(dd1223+N0,ep)
      S00iiii(z4(1,2,3,3),ep)=-2d0*Csum122(ep)
     .                        +2d0*m1*Dv(dd1233+N0,ep)
      S00iiii(z4(1,3,3,3),ep)=-2d0*Csum222(ep)
     .                        +2d0*m1*Dv(dd1333+N0,ep)
      S00iiii(z4(2,2,2,2),ep)=+2d0*Cv(cc1111+C234,ep)
     .                        +2d0*m1*Dv(dd2222+N0,ep)
      S00iiii(z4(2,2,2,3),ep)=+2d0*Cv(cc1112+C234,ep)
     .                        +2d0*m1*Dv(dd2223+N0,ep)
      S00iiii(z4(2,2,3,3),ep)=+2d0*Cv(cc1122+C234,ep)
     .                        +2d0*m1*Dv(dd2233+N0,ep)
      S00iiii(z4(2,3,3,3),ep)=+2d0*Cv(cc1222+C234,ep)
     .                        +2d0*m1*Dv(dd2333+N0,ep)
      S00iiii(z4(3,3,3,3),ep)=+2d0*Cv(cc2222+C234,ep)
     .                        +2d0*m1*Dv(dd3333+N0,ep)
      enddo