Shat7(1,z6(1,1,1,1,1,1),ep) =
     &  - Bsum11111(ep)
     &  - 5.D0*Bsum1111(ep)
     &  - 10.D0*Bsum111(ep)
     &  - 10.D0*Bsum11(ep)
     &  - 5.D0*Bsum1(ep)
     &  - Bsum0(ep)
     &

      Shat7(2,z6(1,1,1,1,1,1),ep) =
     &  - Bsum11111(ep)
     &  - 5.D0*Bsum1111(ep)
     &  - 10.D0*Bsum111(ep)
     &  - 10.D0*Bsum11(ep)
     &  - 5.D0*Bsum1(ep)
     &  - Bsum0(ep)
     &  + Bv(bb111111 + B12,ep)
     &

      Shat7(1,z6(1,1,1,1,1,2),ep) =
     &  + Bsum11111(ep)
     &  + 4.D0*Bsum1111(ep)
     &  + 6.D0*Bsum111(ep)
     &  + 4.D0*Bsum11(ep)
     &  + Bsum1(ep)
     &

      Shat7(2,z6(1,1,1,1,1,2),ep) =
     &  + Bsum11111(ep)
     &  + 4.D0*Bsum1111(ep)
     &  + 6.D0*Bsum111(ep)
     &  + 4.D0*Bsum11(ep)
     &  + Bsum1(ep)
     &

      Shat7(1,z6(1,1,1,1,2,2),ep) =
     &  - Bsum11111(ep)
     &  - 3.D0*Bsum1111(ep)
     &  - 3.D0*Bsum111(ep)
     &  - Bsum11(ep)
     &

      Shat7(2,z6(1,1,1,1,2,2),ep) =
     &  - Bsum11111(ep)
     &  - 3.D0*Bsum1111(ep)
     &  - 3.D0*Bsum111(ep)
     &  - Bsum11(ep)
     &

      Shat7(1,z6(1,1,1,2,2,2),ep) =
     &  + Bsum11111(ep)
     &  + 2.D0*Bsum1111(ep)
     &  + Bsum111(ep)
     &

      Shat7(2,z6(1,1,1,2,2,2),ep) =
     &  + Bsum11111(ep)
     &  + 2.D0*Bsum1111(ep)
     &  + Bsum111(ep)
     &

      Shat7(1,z6(1,1,2,2,2,2),ep) =
     &  - Bsum11111(ep)
     &  - Bsum1111(ep)
     &

      Shat7(2,z6(1,1,2,2,2,2),ep) =
     &  - Bsum11111(ep)
     &  - Bsum1111(ep)
     &

      Shat7(1,z6(1,2,2,2,2,2),ep) =
     &  + Bsum11111(ep)
     &

      Shat7(2,z6(1,2,2,2,2,2),ep) =
     &  + Bsum11111(ep)
     &

      Shat7(1,z6(2,2,2,2,2,2),ep) =
     &  + Bv(bb111111 + B13,ep)
     &  - Bv(bb111111 + B23,ep)
     &

      Shat7(2,z6(2,2,2,2,2,2),ep) =
     &  - Bv(bb111111 + B23,ep)
     &

      Shat6(1,z5(1,1,1,1,1),ep) =
     &  + Bsum1111(ep)
     &  + 4.D0*Bsum111(ep)
     &  + 6.D0*Bsum11(ep)
     &  + 4.D0*Bsum1(ep)
     &  + Bsum0(ep)
     &

      Shat6(2,z5(1,1,1,1,1),ep) =
     &  + Bsum1111(ep)
     &  + 4.D0*Bsum111(ep)
     &  + 6.D0*Bsum11(ep)
     &  + 4.D0*Bsum1(ep)
     &  + Bsum0(ep)
     &  + Bv(bb11111 + B12,ep)
     &

      Shat6(1,z5(1,1,1,1,2),ep) =
     &  - Bsum1111(ep)
     &  - 3.D0*Bsum111(ep)
     &  - 3.D0*Bsum11(ep)
     &  - Bsum1(ep)
     &

      Shat6(2,z5(1,1,1,1,2),ep) =
     &  - Bsum1111(ep)
     &  - 3.D0*Bsum111(ep)
     &  - 3.D0*Bsum11(ep)
     &  - Bsum1(ep)
     &

      Shat6(1,z5(1,1,1,2,2),ep) =
     &  + Bsum1111(ep)
     &  + 2.D0*Bsum111(ep)
     &  + Bsum11(ep)
     &

      Shat6(2,z5(1,1,1,2,2),ep) =
     &  + Bsum1111(ep)
     &  + 2.D0*Bsum111(ep)
     &  + Bsum11(ep)
     &

      Shat6(1,z5(1,1,2,2,2),ep) =
     &  - Bsum1111(ep)
     &  - Bsum111(ep)
     &

      Shat6(2,z5(1,1,2,2,2),ep) =
     &  - Bsum1111(ep)
     &  - Bsum111(ep)
     &

      Shat6(1,z5(1,2,2,2,2),ep) =
     &  + Bsum1111(ep)
     &

      Shat6(2,z5(1,2,2,2,2),ep) =
     &  + Bsum1111(ep)
     &

      Shat6(1,z5(2,2,2,2,2),ep) =
     &  + Bv(bb11111 + B13,ep)
     &  - Bv(bb11111 + B23,ep)
     &

      Shat6(2,z5(2,2,2,2,2),ep) =
     &  - Bv(bb11111 + B23,ep)
     &

      Shat5(1,z4(1,1,1,1),ep) =
     &  - Bsum111(ep)
     &  - 3.D0*Bsum11(ep)
     &  - 3.D0*Bsum1(ep)
     &  - Bsum0(ep)
     &

      Shat5(2,z4(1,1,1,1),ep) =
     &  - Bsum111(ep)
     &  - 3.D0*Bsum11(ep)
     &  - 3.D0*Bsum1(ep)
     &  - Bsum0(ep)
     &  + Bv(bb1111 + B12,ep)
     &

      Shat5(1,z4(1,1,1,2),ep) =
     &  + Bsum111(ep)
     &  + 2.D0*Bsum11(ep)
     &  + Bsum1(ep)
     &

      Shat5(2,z4(1,1,1,2),ep) =
     &  + Bsum111(ep)
     &  + 2.D0*Bsum11(ep)
     &  + Bsum1(ep)
     &

      Shat5(1,z4(1,1,2,2),ep) =
     &  - Bsum111(ep)
     &  - Bsum11(ep)
     &

      Shat5(2,z4(1,1,2,2),ep) =
     &  - Bsum111(ep)
     &  - Bsum11(ep)
     &

      Shat5(1,z4(1,2,2,2),ep) =
     &  + Bsum111(ep)
     &

      Shat5(2,z4(1,2,2,2),ep) =
     &  + Bsum111(ep)
     &

      Shat5(1,z4(2,2,2,2),ep) =
     &  + Bv(bb1111 + B13,ep)
     &  - Bv(bb1111 + B23,ep)
     &

      Shat5(2,z4(2,2,2,2),ep) =
     &  - Bv(bb1111 + B23,ep)
     &

      Shat4(1,z3(1,1,1),ep) =
     &  + Bsum11(ep)
     &  + 2.D0*Bsum1(ep)
     &  + Bsum0(ep)
     &

      Shat4(2,z3(1,1,1),ep) =
     &  + Bsum11(ep)
     &  + 2.D0*Bsum1(ep)
     &  + Bsum0(ep)
     &  + Bv(bb111 + B12,ep)
     &

      Shat4(1,z3(2,2,2),ep) =
     &  + Bv(bb111 + B13,ep)
     &  - Bv(bb111 + B23,ep)
     &

      Shat4(2,z3(2,2,2),ep) =
     &  - Bv(bb111 + B23,ep)
     &

      Shat4(1,z3(1,1,2),ep) =
     &  - Bsum11(ep)
     &  - Bsum1(ep)
     &

      Shat4(2,z3(1,1,2),ep) =
     &  - Bsum11(ep)
     &  - Bsum1(ep)
     &

      Shat4(1,z3(1,2,2),ep) =
     &  + Bsum11(ep)
     &

      Shat4(2,z3(1,2,2),ep) =
     &  + Bsum11(ep)
     &

      Shat3(1,z2(1,1),ep) =
     &  - Bsum1(ep)
     &  - Bsum0(ep)
     &

      Shat3(2,z2(1,1),ep) =
     &  - Bsum1(ep)
     &  - Bsum0(ep)
     &  + Bv(bb11 + B12,ep)
     &

      Shat3(1,z2(2,2),ep) =
     &  + Bv(bb11 + B13,ep)
     &  - Bv(bb11 + B23,ep)
     &

      Shat3(2,z2(2,2),ep) =
     &  - Bv(bb11 + B23,ep)
     &

      Shat3(1,z2(1,2),ep) =
     &  + Bsum1(ep)
     &

      Shat3(2,z2(1,2),ep) =
     &  + Bsum1(ep)
     &

      Shat2(1,1,ep) =
     &  + Bsum0(ep)
     &

      Shat2(2,1,ep) =
     &  + Bsum0(ep)
     &  + Bv(bb1 + B12,ep)
     &

      Shat2(1,2,ep) =
     &  + Bv(bb1 + B13,ep)
     &  - Bv(bb1 + B23,ep)
     &

      Shat2(2,2,ep) =
     &  - Bv(bb1 + B23,ep)
     &

      Shat1(1,ep) =
     &  + Bv(bb0 + B13,ep)
     &  - Bv(bb0 + B23,ep)
     &

      Shat1(2,ep) =
     &  + Bv(bb0 + B12,ep)
     &  - Bv(bb0 + B23,ep)
     &

      Shat7zz(1,z4(1,1,1,1),ep) =
     &  - Bsum00(ep)
     &  - 3.D0*Bsum001(ep)
     &  - 3.D0*Bsum0011(ep)
     &  - Bsum00111(ep)
     &

      Shat7zz(2,z4(1,1,1,1),ep) =
     &  - Bsum00(ep)
     &  - 3.D0*Bsum001(ep)
     &  - 3.D0*Bsum0011(ep)
     &  - Bsum00111(ep)
     &  + Bv(bb001111 + B12,ep)
     &

      Shat7zz(1,z4(1,1,1,2),ep) =
     &  + Bsum001(ep)
     &  + 2.D0*Bsum0011(ep)
     &  + Bsum00111(ep)
     &

      Shat7zz(2,z4(1,1,1,2),ep) =
     &  + Bsum001(ep)
     &  + 2.D0*Bsum0011(ep)
     &  + Bsum00111(ep)
     &

      Shat7zz(1,z4(1,1,2,2),ep) =
     &  - Bsum0011(ep)
     &  - Bsum00111(ep)
     &

      Shat7zz(2,z4(1,1,2,2),ep) =
     &  - Bsum0011(ep)
     &  - Bsum00111(ep)
     &

      Shat7zz(1,z4(2,2,2,2),ep) =
     &  + Bv(bb001111 + B13,ep)
     &  - Bv(bb001111 + B23,ep)
     &

      Shat7zz(2,z4(2,2,2,2),ep) =
     &  - Bv(bb001111 + B23,ep)
     &

      Shat7zz(1,z4(1,2,2,2),ep) =
     &  + Bsum00111(ep)
     &

      Shat7zz(2,z4(1,2,2,2),ep) =
     &  + Bsum00111(ep)
     &

      Shat7zzzz(1,z2(1,1),ep) =
     &  - Bsum0000(ep)
     &  - Bsum00001(ep)
     &

      Shat7zzzz(2,z2(1,1),ep) =
     &  - Bsum0000(ep)
     &  - Bsum00001(ep)
     &  + Bv(bb000011 + B12,ep)
     &

      Shat7zzzz(1,z2(1,2),ep) =
     &  + Bv(bb00001 + B23,ep)
     &  + Bv(bb000011 + B23,ep)
     &

      Shat7zzzz(2,z2(1,2),ep) =
     &  + Bv(bb00001 + B23,ep)
     &  + Bv(bb000011 + B23,ep)
     &

      Shat7zzzz(1,z2(2,2),ep) =
     &  + Bv(bb000011 + B13,ep)
     &  - Bv(bb000011 + B23,ep)
     &

      Shat7zzzz(2,z2(2,2),ep) =
     &  - Bv(bb000011 + B23,ep)
     &

      Shat6zz(1,z3(1,1,1),ep) =
     &  + Bsum00(ep)
     &  + 2.D0*Bsum001(ep)
     &  + Bsum0011(ep)
     &

      Shat6zz(2,z3(1,1,1),ep) =
     &  + Bsum00(ep)
     &  + 2.D0*Bsum001(ep)
     &  + Bsum0011(ep)
     &  + Bv(bb00111 + B12,ep)
     &

      Shat6zz(1,z3(2,2,2),ep) =
     &  + Bv(bb00111 + B13,ep)
     &  - Bv(bb00111 + B23,ep)
     &

      Shat6zz(2,z3(2,2,2),ep) =
     &  - Bv(bb00111 + B23,ep)
     &

      Shat6zz(1,z3(1,1,2),ep) =
     &  - Bsum001(ep)
     &  - Bsum0011(ep)
     &

      Shat6zz(2,z3(1,1,2),ep) =
     &  - Bsum001(ep)
     &  - Bsum0011(ep)
     &

      Shat6zz(1,z3(1,2,2),ep) =
     &  + Bsum0011(ep)
     &

      Shat6zz(2,z3(1,2,2),ep) =
     &  + Bsum0011(ep)
     &

      Shat6zzzz(1,1,ep) =
     &  + Bsum0000(ep)
     &

      Shat6zzzz(2,1,ep) =
     &  + Bsum0000(ep)
     &  + Bv(bb00001 + B12,ep)
     &

      Shat6zzzz(1,2,ep) =
     &  + Bv(bb00001 + B13,ep)
     &  - Bv(bb00001 + B23,ep)
     &

      Shat6zzzz(2,2,ep) =
     &  - Bv(bb00001 + B23,ep)
     &

      Shat5zzzz(1,ep) =
     &  + Bv(bb0000 + B13,ep)
     &  - Bv(bb0000 + B23,ep)
     &

      Shat5zzzz(2,ep) =
     &  + Bv(bb0000 + B12,ep)
     &  - Bv(bb0000 + B23,ep)
     &

      Shat5zz(1,z2(1,1),ep) =
     &  - Bsum00(ep)
     &  - Bsum001(ep)
     &

      Shat5zz(2,z2(1,1),ep) =
     &  - Bsum00(ep)
     &  - Bsum001(ep)
     &  + Bv(bb0011 + B12,ep)
     &

      Shat5zz(1,z2(2,2),ep) =
     &  + Bv(bb0011 + B13,ep)
     &  - Bv(bb0011 + B23,ep)
     &

      Shat5zz(2,z2(2,2),ep) =
     &  - Bv(bb0011 + B23,ep)
     &

      Shat5zz(1,z2(1,2),ep) =
     &  + Bsum001(ep)
     &

      Shat5zz(2,z2(1,2),ep) =
     &  + Bsum001(ep)
     &

      Shat4zz(1,1,ep) =
     &  + Bsum00(ep)
     &

      Shat4zz(2,1,ep) =
     &  + Bsum00(ep)
     &  + Bv(bb001 + B12,ep)
     &

      Shat4zz(1,2,ep) =
     &  + Bv(bb001 + B13,ep)
     &  - Bv(bb001 + B23,ep)
     &

      Shat4zz(2,2,ep) =
     &  - Bv(bb001 + B23,ep)
     &

      Shat3zz(1,ep) =
     &  + Bv(bb00 + B13,ep)
     &  - Bv(bb00 + B23,ep)
     &

      Shat3zz(2,ep) =
     &  + Bv(bb00 + B12,ep)
     &  - Bv(bb00 + B23,ep)
     &