text:
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=
     &     + Cv(cc1111111 + C0i,ep) * (
     &     + q1(n1)*q1(n2)*q1(n3)*q1(n4)*q1(n5)*q1(n6)*q1(n7)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &     + Cv(cc1111112 + C0i,ep) * (
     &     + q1(n1)*q1(n2)*q1(n3)*q1(n4)*q1(n5)*q1(n6)*q2(n7)
     &     + q1(n1)*q1(n2)*q1(n3)*q1(n4)*q1(n5)*q1(n7)*q2(n6)
     &     + q1(n1)*q1(n2)*q1(n3)*q1(n4)*q1(n6)*q1(n7)*q2(n5)
     &     + q1(n1)*q1(n2)*q1(n3)*q1(n5)*q1(n6)*q1(n7)*q2(n4)
     &     + q1(n1)*q1(n2)*q1(n4)*q1(n5)*q1(n6)*q1(n7)*q2(n3)
     &     + q1(n1)*q1(n3)*q1(n4)*q1(n5)*q1(n6)*q1(n7)*q2(n2)
     &     + q1(n2)*q1(n3)*q1(n4)*q1(n5)*q1(n6)*q1(n7)*q2(n1)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &   + Cv(cc1111122 + C0i,ep) * (
     &     + q1(n1)*q1(n2)*q1(n3)*q1(n4)*q1(n5)*q2(n6)*q2(n7)
     &     + q1(n1)*q1(n2)*q1(n3)*q1(n4)*q1(n6)*q2(n5)*q2(n7)
     &     + q1(n1)*q1(n2)*q1(n3)*q1(n4)*q1(n7)*q2(n5)*q2(n6)
     &     + q1(n1)*q1(n2)*q1(n3)*q1(n5)*q1(n6)*q2(n4)*q2(n7)
     &     + q1(n1)*q1(n2)*q1(n3)*q1(n5)*q1(n7)*q2(n4)*q2(n6)
     &     + q1(n1)*q1(n2)*q1(n3)*q1(n6)*q1(n7)*q2(n4)*q2(n5)
     &     + q1(n1)*q1(n2)*q1(n4)*q1(n5)*q1(n6)*q2(n3)*q2(n7)
     &     + q1(n1)*q1(n2)*q1(n4)*q1(n5)*q1(n7)*q2(n3)*q2(n6)
     &     + q1(n1)*q1(n2)*q1(n4)*q1(n6)*q1(n7)*q2(n3)*q2(n5)
     &     + q1(n1)*q1(n2)*q1(n5)*q1(n6)*q1(n7)*q2(n3)*q2(n4)
     &     + q1(n1)*q1(n3)*q1(n4)*q1(n5)*q1(n6)*q2(n2)*q2(n7)
     &     + q1(n1)*q1(n3)*q1(n4)*q1(n5)*q1(n7)*q2(n2)*q2(n6)
     &     + q1(n1)*q1(n3)*q1(n4)*q1(n6)*q1(n7)*q2(n2)*q2(n5)
     &     + q1(n1)*q1(n3)*q1(n5)*q1(n6)*q1(n7)*q2(n2)*q2(n4)
     &     + q1(n1)*q1(n4)*q1(n5)*q1(n6)*q1(n7)*q2(n2)*q2(n3)
     &     + q1(n2)*q1(n3)*q1(n4)*q1(n5)*q1(n6)*q2(n1)*q2(n7)
     &     + q1(n2)*q1(n3)*q1(n4)*q1(n5)*q1(n7)*q2(n1)*q2(n6)
     &     + q1(n2)*q1(n3)*q1(n4)*q1(n6)*q1(n7)*q2(n1)*q2(n5)
     &     + q1(n2)*q1(n3)*q1(n5)*q1(n6)*q1(n7)*q2(n1)*q2(n4)
     &     + q1(n2)*q1(n4)*q1(n5)*q1(n6)*q1(n7)*q2(n1)*q2(n3)
     &     + q1(n3)*q1(n4)*q1(n5)*q1(n6)*q1(n7)*q2(n1)*q2(n2)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &    + Cv(cc1111222 + C0i,ep) * (
     &     + q1(n1)*q1(n2)*q1(n3)*q1(n4)*q2(n5)*q2(n6)*q2(n7)
     &     + q1(n1)*q1(n2)*q1(n3)*q1(n5)*q2(n4)*q2(n6)*q2(n7)
     &     + q1(n1)*q1(n2)*q1(n3)*q1(n6)*q2(n4)*q2(n5)*q2(n7)
     &     + q1(n1)*q1(n2)*q1(n3)*q1(n7)*q2(n4)*q2(n5)*q2(n6)
     &     + q1(n1)*q1(n2)*q1(n4)*q1(n5)*q2(n3)*q2(n6)*q2(n7)
     &     + q1(n1)*q1(n2)*q1(n4)*q1(n6)*q2(n3)*q2(n5)*q2(n7)
     &     + q1(n1)*q1(n2)*q1(n4)*q1(n7)*q2(n3)*q2(n5)*q2(n6)
     &     + q1(n1)*q1(n2)*q1(n5)*q1(n6)*q2(n3)*q2(n4)*q2(n7)
     &     + q1(n1)*q1(n2)*q1(n5)*q1(n7)*q2(n3)*q2(n4)*q2(n6)
     &     + q1(n1)*q1(n2)*q1(n6)*q1(n7)*q2(n3)*q2(n4)*q2(n5)
     &     + q1(n1)*q1(n3)*q1(n4)*q1(n5)*q2(n2)*q2(n6)*q2(n7)
     &     + q1(n1)*q1(n3)*q1(n4)*q1(n6)*q2(n2)*q2(n5)*q2(n7)
     &     + q1(n1)*q1(n3)*q1(n4)*q1(n7)*q2(n2)*q2(n5)*q2(n6)
     &     + q1(n1)*q1(n3)*q1(n5)*q1(n6)*q2(n2)*q2(n4)*q2(n7)
     &     + q1(n1)*q1(n3)*q1(n5)*q1(n7)*q2(n2)*q2(n4)*q2(n6)
     &     + q1(n1)*q1(n3)*q1(n6)*q1(n7)*q2(n2)*q2(n4)*q2(n5)
     &     + q1(n1)*q1(n4)*q1(n5)*q1(n6)*q2(n2)*q2(n3)*q2(n7)
     &     + q1(n1)*q1(n4)*q1(n5)*q1(n7)*q2(n2)*q2(n3)*q2(n6)
     &     + q1(n1)*q1(n4)*q1(n6)*q1(n7)*q2(n2)*q2(n3)*q2(n5)
     &     + q1(n1)*q1(n5)*q1(n6)*q1(n7)*q2(n2)*q2(n3)*q2(n4)
     &     + q1(n2)*q1(n3)*q1(n4)*q1(n5)*q2(n1)*q2(n6)*q2(n7)
     &     + q1(n2)*q1(n3)*q1(n4)*q1(n6)*q2(n1)*q2(n5)*q2(n7)
     &     + q1(n2)*q1(n3)*q1(n4)*q1(n7)*q2(n1)*q2(n5)*q2(n6)
     &     + q1(n2)*q1(n3)*q1(n5)*q1(n6)*q2(n1)*q2(n4)*q2(n7)
     &     + q1(n2)*q1(n3)*q1(n5)*q1(n7)*q2(n1)*q2(n4)*q2(n6)
     &     + q1(n2)*q1(n3)*q1(n6)*q1(n7)*q2(n1)*q2(n4)*q2(n5)
     &     + q1(n2)*q1(n4)*q1(n5)*q1(n6)*q2(n1)*q2(n3)*q2(n7)
     &     + q1(n2)*q1(n4)*q1(n5)*q1(n7)*q2(n1)*q2(n3)*q2(n6)
     &     + q1(n2)*q1(n4)*q1(n6)*q1(n7)*q2(n1)*q2(n3)*q2(n5)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &    + Cv(cc1111222 + C0i,ep) * (
     &     + q1(n2)*q1(n5)*q1(n6)*q1(n7)*q2(n1)*q2(n3)*q2(n4)
     &     + q1(n3)*q1(n4)*q1(n5)*q1(n6)*q2(n1)*q2(n2)*q2(n7)
     &     + q1(n3)*q1(n4)*q1(n5)*q1(n7)*q2(n1)*q2(n2)*q2(n6)
     &     + q1(n3)*q1(n4)*q1(n6)*q1(n7)*q2(n1)*q2(n2)*q2(n5)
     &     + q1(n3)*q1(n5)*q1(n6)*q1(n7)*q2(n1)*q2(n2)*q2(n4)
     &     + q1(n4)*q1(n5)*q1(n6)*q1(n7)*q2(n1)*q2(n2)*q2(n3)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &    + Cv(cc1112222 + C0i,ep) * (
     &     + q1(n1)*q1(n2)*q1(n3)*q2(n4)*q2(n5)*q2(n6)*q2(n7)
     &     + q1(n1)*q1(n2)*q1(n4)*q2(n3)*q2(n5)*q2(n6)*q2(n7)
     &     + q1(n1)*q1(n2)*q1(n5)*q2(n3)*q2(n4)*q2(n6)*q2(n7)
     &     + q1(n1)*q1(n2)*q1(n6)*q2(n3)*q2(n4)*q2(n5)*q2(n7)
     &     + q1(n1)*q1(n2)*q1(n7)*q2(n3)*q2(n4)*q2(n5)*q2(n6)
     &     + q1(n1)*q1(n3)*q1(n4)*q2(n2)*q2(n5)*q2(n6)*q2(n7)
     &     + q1(n1)*q1(n3)*q1(n5)*q2(n2)*q2(n4)*q2(n6)*q2(n7)
     &     + q1(n1)*q1(n3)*q1(n6)*q2(n2)*q2(n4)*q2(n5)*q2(n7)
     &     + q1(n1)*q1(n3)*q1(n7)*q2(n2)*q2(n4)*q2(n5)*q2(n6)
     &     + q1(n1)*q1(n4)*q1(n5)*q2(n2)*q2(n3)*q2(n6)*q2(n7)
     &     + q1(n1)*q1(n4)*q1(n6)*q2(n2)*q2(n3)*q2(n5)*q2(n7)
     &     + q1(n1)*q1(n4)*q1(n7)*q2(n2)*q2(n3)*q2(n5)*q2(n6)
     &     + q1(n1)*q1(n5)*q1(n6)*q2(n2)*q2(n3)*q2(n4)*q2(n7)
     &     + q1(n1)*q1(n5)*q1(n7)*q2(n2)*q2(n3)*q2(n4)*q2(n6)
     &     + q1(n1)*q1(n6)*q1(n7)*q2(n2)*q2(n3)*q2(n4)*q2(n5)
     &     + q1(n2)*q1(n3)*q1(n4)*q2(n1)*q2(n5)*q2(n6)*q2(n7)
     &     + q1(n2)*q1(n3)*q1(n5)*q2(n1)*q2(n4)*q2(n6)*q2(n7)
     &     + q1(n2)*q1(n3)*q1(n6)*q2(n1)*q2(n4)*q2(n5)*q2(n7)
     &     + q1(n2)*q1(n3)*q1(n7)*q2(n1)*q2(n4)*q2(n5)*q2(n6)
     &     + q1(n2)*q1(n4)*q1(n5)*q2(n1)*q2(n3)*q2(n6)*q2(n7)
     &     + q1(n2)*q1(n4)*q1(n6)*q2(n1)*q2(n3)*q2(n5)*q2(n7)
     &     + q1(n2)*q1(n4)*q1(n7)*q2(n1)*q2(n3)*q2(n5)*q2(n6)
     &     + q1(n2)*q1(n5)*q1(n6)*q2(n1)*q2(n3)*q2(n4)*q2(n7)
     &     + q1(n2)*q1(n5)*q1(n7)*q2(n1)*q2(n3)*q2(n4)*q2(n6)
     &     + q1(n2)*q1(n6)*q1(n7)*q2(n1)*q2(n3)*q2(n4)*q2(n5)
     &     + q1(n3)*q1(n4)*q1(n5)*q2(n1)*q2(n2)*q2(n6)*q2(n7)
     &     + q1(n3)*q1(n4)*q1(n6)*q2(n1)*q2(n2)*q2(n5)*q2(n7)
     &     + q1(n3)*q1(n4)*q1(n7)*q2(n1)*q2(n2)*q2(n5)*q2(n6)
     &     + q1(n3)*q1(n5)*q1(n6)*q2(n1)*q2(n2)*q2(n4)*q2(n7)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &   + Cv(cc1112222 + C0i,ep) * (
     &     + q1(n3)*q1(n5)*q1(n7)*q2(n1)*q2(n2)*q2(n4)*q2(n6)
     &     + q1(n3)*q1(n6)*q1(n7)*q2(n1)*q2(n2)*q2(n4)*q2(n5)
     &     + q1(n4)*q1(n5)*q1(n6)*q2(n1)*q2(n2)*q2(n3)*q2(n7)
     &     + q1(n4)*q1(n5)*q1(n7)*q2(n1)*q2(n2)*q2(n3)*q2(n6)
     &     + q1(n4)*q1(n6)*q1(n7)*q2(n1)*q2(n2)*q2(n3)*q2(n5)
     &     + q1(n5)*q1(n6)*q1(n7)*q2(n1)*q2(n2)*q2(n3)*q2(n4)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &    + Cv(cc1122222 + C0i,ep) * (
     &     + q1(n1)*q1(n2)*q2(n3)*q2(n4)*q2(n5)*q2(n6)*q2(n7)
     &     + q1(n1)*q1(n3)*q2(n2)*q2(n4)*q2(n5)*q2(n6)*q2(n7)
     &     + q1(n1)*q1(n4)*q2(n2)*q2(n3)*q2(n5)*q2(n6)*q2(n7)
     &     + q1(n1)*q1(n5)*q2(n2)*q2(n3)*q2(n4)*q2(n6)*q2(n7)
     &     + q1(n1)*q1(n6)*q2(n2)*q2(n3)*q2(n4)*q2(n5)*q2(n7)
     &     + q1(n1)*q1(n7)*q2(n2)*q2(n3)*q2(n4)*q2(n5)*q2(n6)
     &     + q1(n2)*q1(n3)*q2(n1)*q2(n4)*q2(n5)*q2(n6)*q2(n7)
     &     + q1(n2)*q1(n4)*q2(n1)*q2(n3)*q2(n5)*q2(n6)*q2(n7)
     &     + q1(n2)*q1(n5)*q2(n1)*q2(n3)*q2(n4)*q2(n6)*q2(n7)
     &     + q1(n2)*q1(n6)*q2(n1)*q2(n3)*q2(n4)*q2(n5)*q2(n7)
     &     + q1(n2)*q1(n7)*q2(n1)*q2(n3)*q2(n4)*q2(n5)*q2(n6)
     &     + q1(n3)*q1(n4)*q2(n1)*q2(n2)*q2(n5)*q2(n6)*q2(n7)
     &     + q1(n3)*q1(n5)*q2(n1)*q2(n2)*q2(n4)*q2(n6)*q2(n7)
     &     + q1(n3)*q1(n6)*q2(n1)*q2(n2)*q2(n4)*q2(n5)*q2(n7)
     &     + q1(n3)*q1(n7)*q2(n1)*q2(n2)*q2(n4)*q2(n5)*q2(n6)
     &     + q1(n4)*q1(n5)*q2(n1)*q2(n2)*q2(n3)*q2(n6)*q2(n7)
     &     + q1(n4)*q1(n6)*q2(n1)*q2(n2)*q2(n3)*q2(n5)*q2(n7)
     &     + q1(n4)*q1(n7)*q2(n1)*q2(n2)*q2(n3)*q2(n5)*q2(n6)
     &     + q1(n5)*q1(n6)*q2(n1)*q2(n2)*q2(n3)*q2(n4)*q2(n7)
     &     + q1(n5)*q1(n7)*q2(n1)*q2(n2)*q2(n3)*q2(n4)*q2(n6)
     &     + q1(n6)*q1(n7)*q2(n1)*q2(n2)*q2(n3)*q2(n4)*q2(n5)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &    + Cv(cc1222222 + C0i,ep) * (
     &     + q1(n1)*q2(n2)*q2(n3)*q2(n4)*q2(n5)*q2(n6)*q2(n7)
     &     + q1(n2)*q2(n1)*q2(n3)*q2(n4)*q2(n5)*q2(n6)*q2(n7)
     &     + q1(n3)*q2(n1)*q2(n2)*q2(n4)*q2(n5)*q2(n6)*q2(n7)
     &     + q1(n4)*q2(n1)*q2(n2)*q2(n3)*q2(n5)*q2(n6)*q2(n7)
     &     + q1(n5)*q2(n1)*q2(n2)*q2(n3)*q2(n4)*q2(n6)*q2(n7)
     &     + q1(n6)*q2(n1)*q2(n2)*q2(n3)*q2(n4)*q2(n5)*q2(n7)
     &     + q1(n7)*q2(n1)*q2(n2)*q2(n3)*q2(n4)*q2(n5)*q2(n6)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &  + Cv(cc2222222 + C0i,ep) * (
     &     + q2(n1)*q2(n2)*q2(n3)*q2(n4)*q2(n5)*q2(n6)*q2(n7)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &   + Cv(cc0011111 + C0i,ep) * (
     &     + g(n1,n2)*q1(n3)*q1(n4)*q1(n5)*q1(n6)*q1(n7)
     &     + g(n1,n3)*q1(n2)*q1(n4)*q1(n5)*q1(n6)*q1(n7)
     &     + g(n1,n4)*q1(n2)*q1(n3)*q1(n5)*q1(n6)*q1(n7)
     &     + g(n1,n5)*q1(n2)*q1(n3)*q1(n4)*q1(n6)*q1(n7)
     &     + g(n1,n6)*q1(n2)*q1(n3)*q1(n4)*q1(n5)*q1(n7)
     &     + g(n1,n7)*q1(n2)*q1(n3)*q1(n4)*q1(n5)*q1(n6)
     &     + g(n2,n3)*q1(n1)*q1(n4)*q1(n5)*q1(n6)*q1(n7)
     &     + g(n2,n4)*q1(n1)*q1(n3)*q1(n5)*q1(n6)*q1(n7)
     &     + g(n2,n5)*q1(n1)*q1(n3)*q1(n4)*q1(n6)*q1(n7)
     &     + g(n2,n6)*q1(n1)*q1(n3)*q1(n4)*q1(n5)*q1(n7)
     &     + g(n2,n7)*q1(n1)*q1(n3)*q1(n4)*q1(n5)*q1(n6)
     &     + g(n3,n4)*q1(n1)*q1(n2)*q1(n5)*q1(n6)*q1(n7)
     &     + g(n3,n5)*q1(n1)*q1(n2)*q1(n4)*q1(n6)*q1(n7)
     &     + g(n3,n6)*q1(n1)*q1(n2)*q1(n4)*q1(n5)*q1(n7)
     &     + g(n3,n7)*q1(n1)*q1(n2)*q1(n4)*q1(n5)*q1(n6)
     &     + g(n4,n5)*q1(n1)*q1(n2)*q1(n3)*q1(n6)*q1(n7)
     &     + g(n4,n6)*q1(n1)*q1(n2)*q1(n3)*q1(n5)*q1(n7)
     &     + g(n4,n7)*q1(n1)*q1(n2)*q1(n3)*q1(n5)*q1(n6)
     &     + g(n5,n6)*q1(n1)*q1(n2)*q1(n3)*q1(n4)*q1(n7)
     &     + g(n5,n7)*q1(n1)*q1(n2)*q1(n3)*q1(n4)*q1(n6)
     &     + g(n6,n7)*q1(n1)*q1(n2)*q1(n3)*q1(n4)*q1(n5)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &     + Cv(cc0011112 + C0i,ep) * (
     &     + g(n1,n2)*q1(n3)*q1(n4)*q1(n5)*q1(n6)*q2(n7)
     &     + g(n1,n2)*q1(n3)*q1(n4)*q1(n5)*q1(n7)*q2(n6)
     &     + g(n1,n2)*q1(n3)*q1(n4)*q1(n6)*q1(n7)*q2(n5)
     &     + g(n1,n2)*q1(n3)*q1(n5)*q1(n6)*q1(n7)*q2(n4)
     &     + g(n1,n2)*q1(n4)*q1(n5)*q1(n6)*q1(n7)*q2(n3)
     &     + g(n1,n3)*q1(n2)*q1(n4)*q1(n5)*q1(n6)*q2(n7)
     &     + g(n1,n3)*q1(n2)*q1(n4)*q1(n5)*q1(n7)*q2(n6)
     &     + g(n1,n3)*q1(n2)*q1(n4)*q1(n6)*q1(n7)*q2(n5)
     &     + g(n1,n3)*q1(n2)*q1(n5)*q1(n6)*q1(n7)*q2(n4)
     &     + g(n1,n3)*q1(n4)*q1(n5)*q1(n6)*q1(n7)*q2(n2)
     &     + g(n1,n4)*q1(n2)*q1(n3)*q1(n5)*q1(n6)*q2(n7)
     &     + g(n1,n4)*q1(n2)*q1(n3)*q1(n5)*q1(n7)*q2(n6)
     &     + g(n1,n4)*q1(n2)*q1(n3)*q1(n6)*q1(n7)*q2(n5)
     &     + g(n1,n4)*q1(n2)*q1(n5)*q1(n6)*q1(n7)*q2(n3)
     &     + g(n1,n4)*q1(n3)*q1(n5)*q1(n6)*q1(n7)*q2(n2)
     &     + g(n1,n5)*q1(n2)*q1(n3)*q1(n4)*q1(n6)*q2(n7)
     &     + g(n1,n5)*q1(n2)*q1(n3)*q1(n4)*q1(n7)*q2(n6)
     &     + g(n1,n5)*q1(n2)*q1(n3)*q1(n6)*q1(n7)*q2(n4)
     &     + g(n1,n5)*q1(n2)*q1(n4)*q1(n6)*q1(n7)*q2(n3)
     &     + g(n1,n5)*q1(n3)*q1(n4)*q1(n6)*q1(n7)*q2(n2)
     &     + g(n1,n6)*q1(n2)*q1(n3)*q1(n4)*q1(n5)*q2(n7)
     &     + g(n1,n6)*q1(n2)*q1(n3)*q1(n4)*q1(n7)*q2(n5)
     &     + g(n1,n6)*q1(n2)*q1(n3)*q1(n5)*q1(n7)*q2(n4)
     &     + g(n1,n6)*q1(n2)*q1(n4)*q1(n5)*q1(n7)*q2(n3)
     &     + g(n1,n6)*q1(n3)*q1(n4)*q1(n5)*q1(n7)*q2(n2)
     &     + g(n1,n7)*q1(n2)*q1(n3)*q1(n4)*q1(n5)*q2(n6)
     &     + g(n1,n7)*q1(n2)*q1(n3)*q1(n4)*q1(n6)*q2(n5)
     &     + g(n1,n7)*q1(n2)*q1(n3)*q1(n5)*q1(n6)*q2(n4)
     &     + g(n1,n7)*q1(n2)*q1(n4)*q1(n5)*q1(n6)*q2(n3)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &     + Cv(cc0011112 + C0i,ep) * (
     &     + g(n1,n7)*q1(n3)*q1(n4)*q1(n5)*q1(n6)*q2(n2)
     &     + g(n2,n3)*q1(n1)*q1(n4)*q1(n5)*q1(n6)*q2(n7)
     &     + g(n2,n3)*q1(n1)*q1(n4)*q1(n5)*q1(n7)*q2(n6)
     &     + g(n2,n3)*q1(n1)*q1(n4)*q1(n6)*q1(n7)*q2(n5)
     &     + g(n2,n3)*q1(n1)*q1(n5)*q1(n6)*q1(n7)*q2(n4)
     &     + g(n2,n3)*q1(n4)*q1(n5)*q1(n6)*q1(n7)*q2(n1)
     &     + g(n2,n4)*q1(n1)*q1(n3)*q1(n5)*q1(n6)*q2(n7)
     &     + g(n2,n4)*q1(n1)*q1(n3)*q1(n5)*q1(n7)*q2(n6)
     &     + g(n2,n4)*q1(n1)*q1(n3)*q1(n6)*q1(n7)*q2(n5)
     &     + g(n2,n4)*q1(n1)*q1(n5)*q1(n6)*q1(n7)*q2(n3)
     &     + g(n2,n4)*q1(n3)*q1(n5)*q1(n6)*q1(n7)*q2(n1)
     &     + g(n2,n5)*q1(n1)*q1(n3)*q1(n4)*q1(n6)*q2(n7)
     &     + g(n2,n5)*q1(n1)*q1(n3)*q1(n4)*q1(n7)*q2(n6)
     &     + g(n2,n5)*q1(n1)*q1(n3)*q1(n6)*q1(n7)*q2(n4)
     &     + g(n2,n5)*q1(n1)*q1(n4)*q1(n6)*q1(n7)*q2(n3)
     &     + g(n2,n5)*q1(n3)*q1(n4)*q1(n6)*q1(n7)*q2(n1)
     &     + g(n2,n6)*q1(n1)*q1(n3)*q1(n4)*q1(n5)*q2(n7)
     &     + g(n2,n6)*q1(n1)*q1(n3)*q1(n4)*q1(n7)*q2(n5)
     &     + g(n2,n6)*q1(n1)*q1(n3)*q1(n5)*q1(n7)*q2(n4)
     &     + g(n2,n6)*q1(n1)*q1(n4)*q1(n5)*q1(n7)*q2(n3)
     &     + g(n2,n6)*q1(n3)*q1(n4)*q1(n5)*q1(n7)*q2(n1)
     &     + g(n2,n7)*q1(n1)*q1(n3)*q1(n4)*q1(n5)*q2(n6)
     &     + g(n2,n7)*q1(n1)*q1(n3)*q1(n4)*q1(n6)*q2(n5)
     &     + g(n2,n7)*q1(n1)*q1(n3)*q1(n5)*q1(n6)*q2(n4)
     &     + g(n2,n7)*q1(n1)*q1(n4)*q1(n5)*q1(n6)*q2(n3)
     &     + g(n2,n7)*q1(n3)*q1(n4)*q1(n5)*q1(n6)*q2(n1)
     &     + g(n3,n4)*q1(n1)*q1(n2)*q1(n5)*q1(n6)*q2(n7)
     &     + g(n3,n4)*q1(n1)*q1(n2)*q1(n5)*q1(n7)*q2(n6)
     &     + g(n3,n4)*q1(n1)*q1(n2)*q1(n6)*q1(n7)*q2(n5)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &     + Cv(cc0011112 + C0i,ep) * (
     &     + g(n3,n4)*q1(n1)*q1(n5)*q1(n6)*q1(n7)*q2(n2)
     &     + g(n3,n4)*q1(n2)*q1(n5)*q1(n6)*q1(n7)*q2(n1)
     &     + g(n3,n5)*q1(n1)*q1(n2)*q1(n4)*q1(n6)*q2(n7)
     &     + g(n3,n5)*q1(n1)*q1(n2)*q1(n4)*q1(n7)*q2(n6)
     &     + g(n3,n5)*q1(n1)*q1(n2)*q1(n6)*q1(n7)*q2(n4)
     &     + g(n3,n5)*q1(n1)*q1(n4)*q1(n6)*q1(n7)*q2(n2)
     &     + g(n3,n5)*q1(n2)*q1(n4)*q1(n6)*q1(n7)*q2(n1)
     &     + g(n3,n6)*q1(n1)*q1(n2)*q1(n4)*q1(n5)*q2(n7)
     &     + g(n3,n6)*q1(n1)*q1(n2)*q1(n4)*q1(n7)*q2(n5)
     &     + g(n3,n6)*q1(n1)*q1(n2)*q1(n5)*q1(n7)*q2(n4)
     &     + g(n3,n6)*q1(n1)*q1(n4)*q1(n5)*q1(n7)*q2(n2)
     &     + g(n3,n6)*q1(n2)*q1(n4)*q1(n5)*q1(n7)*q2(n1)
     &     + g(n3,n7)*q1(n1)*q1(n2)*q1(n4)*q1(n5)*q2(n6)
     &     + g(n3,n7)*q1(n1)*q1(n2)*q1(n4)*q1(n6)*q2(n5)
     &     + g(n3,n7)*q1(n1)*q1(n2)*q1(n5)*q1(n6)*q2(n4)
     &     + g(n3,n7)*q1(n1)*q1(n4)*q1(n5)*q1(n6)*q2(n2)
     &     + g(n3,n7)*q1(n2)*q1(n4)*q1(n5)*q1(n6)*q2(n1)
     &     + g(n4,n5)*q1(n1)*q1(n2)*q1(n3)*q1(n6)*q2(n7)
     &     + g(n4,n5)*q1(n1)*q1(n2)*q1(n3)*q1(n7)*q2(n6)
     &     + g(n4,n5)*q1(n1)*q1(n2)*q1(n6)*q1(n7)*q2(n3)
     &     + g(n4,n5)*q1(n1)*q1(n3)*q1(n6)*q1(n7)*q2(n2)
     &     + g(n4,n5)*q1(n2)*q1(n3)*q1(n6)*q1(n7)*q2(n1)
     &     + g(n4,n6)*q1(n1)*q1(n2)*q1(n3)*q1(n5)*q2(n7)
     &     + g(n4,n6)*q1(n1)*q1(n2)*q1(n3)*q1(n7)*q2(n5)
     &     + g(n4,n6)*q1(n1)*q1(n2)*q1(n5)*q1(n7)*q2(n3)
     &     + g(n4,n6)*q1(n1)*q1(n3)*q1(n5)*q1(n7)*q2(n2)
     &     + g(n4,n6)*q1(n2)*q1(n3)*q1(n5)*q1(n7)*q2(n1)
     &     + g(n4,n7)*q1(n1)*q1(n2)*q1(n3)*q1(n5)*q2(n6)
     &     + g(n4,n7)*q1(n1)*q1(n2)*q1(n3)*q1(n6)*q2(n5)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &    + Cv(cc0011112 + C0i,ep) * (
     &     + g(n4,n7)*q1(n1)*q1(n2)*q1(n5)*q1(n6)*q2(n3)
     &     + g(n4,n7)*q1(n1)*q1(n3)*q1(n5)*q1(n6)*q2(n2)
     &     + g(n4,n7)*q1(n2)*q1(n3)*q1(n5)*q1(n6)*q2(n1)
     &     + g(n5,n6)*q1(n1)*q1(n2)*q1(n3)*q1(n4)*q2(n7)
     &     + g(n5,n6)*q1(n1)*q1(n2)*q1(n3)*q1(n7)*q2(n4)
     &     + g(n5,n6)*q1(n1)*q1(n2)*q1(n4)*q1(n7)*q2(n3)
     &     + g(n5,n6)*q1(n1)*q1(n3)*q1(n4)*q1(n7)*q2(n2)
     &     + g(n5,n6)*q1(n2)*q1(n3)*q1(n4)*q1(n7)*q2(n1)
     &     + g(n5,n7)*q1(n1)*q1(n2)*q1(n3)*q1(n4)*q2(n6)
     &     + g(n5,n7)*q1(n1)*q1(n2)*q1(n3)*q1(n6)*q2(n4)
     &     + g(n5,n7)*q1(n1)*q1(n2)*q1(n4)*q1(n6)*q2(n3)
     &     + g(n5,n7)*q1(n1)*q1(n3)*q1(n4)*q1(n6)*q2(n2)
     &     + g(n5,n7)*q1(n2)*q1(n3)*q1(n4)*q1(n6)*q2(n1)
     &     + g(n6,n7)*q1(n1)*q1(n2)*q1(n3)*q1(n4)*q2(n5)
     &     + g(n6,n7)*q1(n1)*q1(n2)*q1(n3)*q1(n5)*q2(n4)
     &     + g(n6,n7)*q1(n1)*q1(n2)*q1(n4)*q1(n5)*q2(n3)
     &     + g(n6,n7)*q1(n1)*q1(n3)*q1(n4)*q1(n5)*q2(n2)
     &     + g(n6,n7)*q1(n2)*q1(n3)*q1(n4)*q1(n5)*q2(n1)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &    + Cv(cc0011122 + C0i,ep) * (
     &     + g(n1,n2)*q1(n3)*q1(n4)*q1(n5)*q2(n6)*q2(n7)
     &     + g(n1,n2)*q1(n3)*q1(n4)*q1(n6)*q2(n5)*q2(n7)
     &     + g(n1,n2)*q1(n3)*q1(n4)*q1(n7)*q2(n5)*q2(n6)
     &     + g(n1,n2)*q1(n3)*q1(n5)*q1(n6)*q2(n4)*q2(n7)
     &     + g(n1,n2)*q1(n3)*q1(n5)*q1(n7)*q2(n4)*q2(n6)
     &     + g(n1,n2)*q1(n3)*q1(n6)*q1(n7)*q2(n4)*q2(n5)
     &     + g(n1,n2)*q1(n4)*q1(n5)*q1(n6)*q2(n3)*q2(n7)
     &     + g(n1,n2)*q1(n4)*q1(n5)*q1(n7)*q2(n3)*q2(n6)
     &     + g(n1,n2)*q1(n4)*q1(n6)*q1(n7)*q2(n3)*q2(n5)
     &     + g(n1,n2)*q1(n5)*q1(n6)*q1(n7)*q2(n3)*q2(n4)
     &     + g(n1,n3)*q1(n2)*q1(n4)*q1(n5)*q2(n6)*q2(n7)
     &     + g(n1,n3)*q1(n2)*q1(n4)*q1(n6)*q2(n5)*q2(n7)
     &     + g(n1,n3)*q1(n2)*q1(n4)*q1(n7)*q2(n5)*q2(n6)
     &     + g(n1,n3)*q1(n2)*q1(n5)*q1(n6)*q2(n4)*q2(n7)
     &     + g(n1,n3)*q1(n2)*q1(n5)*q1(n7)*q2(n4)*q2(n6)
     &     + g(n1,n3)*q1(n2)*q1(n6)*q1(n7)*q2(n4)*q2(n5)
     &     + g(n1,n3)*q1(n4)*q1(n5)*q1(n6)*q2(n2)*q2(n7)
     &     + g(n1,n3)*q1(n4)*q1(n5)*q1(n7)*q2(n2)*q2(n6)
     &     + g(n1,n3)*q1(n4)*q1(n6)*q1(n7)*q2(n2)*q2(n5)
     &     + g(n1,n3)*q1(n5)*q1(n6)*q1(n7)*q2(n2)*q2(n4)
     &     + g(n1,n4)*q1(n2)*q1(n3)*q1(n5)*q2(n6)*q2(n7)
     &     + g(n1,n4)*q1(n2)*q1(n3)*q1(n6)*q2(n5)*q2(n7)
     &     + g(n1,n4)*q1(n2)*q1(n3)*q1(n7)*q2(n5)*q2(n6)
     &     + g(n1,n4)*q1(n2)*q1(n5)*q1(n6)*q2(n3)*q2(n7)
     &     + g(n1,n4)*q1(n2)*q1(n5)*q1(n7)*q2(n3)*q2(n6)
     &     + g(n1,n4)*q1(n2)*q1(n6)*q1(n7)*q2(n3)*q2(n5)
     &     + g(n1,n4)*q1(n3)*q1(n5)*q1(n6)*q2(n2)*q2(n7)
     &     + g(n1,n4)*q1(n3)*q1(n5)*q1(n7)*q2(n2)*q2(n6)
     &     + g(n1,n4)*q1(n3)*q1(n6)*q1(n7)*q2(n2)*q2(n5)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &   + Cv(cc0011122 + C0i,ep) * (
     &     + g(n1,n4)*q1(n5)*q1(n6)*q1(n7)*q2(n2)*q2(n3)
     &     + g(n1,n5)*q1(n2)*q1(n3)*q1(n4)*q2(n6)*q2(n7)
     &     + g(n1,n5)*q1(n2)*q1(n3)*q1(n6)*q2(n4)*q2(n7)
     &     + g(n1,n5)*q1(n2)*q1(n3)*q1(n7)*q2(n4)*q2(n6)
     &     + g(n1,n5)*q1(n2)*q1(n4)*q1(n6)*q2(n3)*q2(n7)
     &     + g(n1,n5)*q1(n2)*q1(n4)*q1(n7)*q2(n3)*q2(n6)
     &     + g(n1,n5)*q1(n2)*q1(n6)*q1(n7)*q2(n3)*q2(n4)
     &     + g(n1,n5)*q1(n3)*q1(n4)*q1(n6)*q2(n2)*q2(n7)
     &     + g(n1,n5)*q1(n3)*q1(n4)*q1(n7)*q2(n2)*q2(n6)
     &     + g(n1,n5)*q1(n3)*q1(n6)*q1(n7)*q2(n2)*q2(n4)
     &     + g(n1,n5)*q1(n4)*q1(n6)*q1(n7)*q2(n2)*q2(n3)
     &     + g(n1,n6)*q1(n2)*q1(n3)*q1(n4)*q2(n5)*q2(n7)
     &     + g(n1,n6)*q1(n2)*q1(n3)*q1(n5)*q2(n4)*q2(n7)
     &     + g(n1,n6)*q1(n2)*q1(n3)*q1(n7)*q2(n4)*q2(n5)
     &     + g(n1,n6)*q1(n2)*q1(n4)*q1(n5)*q2(n3)*q2(n7)
     &     + g(n1,n6)*q1(n2)*q1(n4)*q1(n7)*q2(n3)*q2(n5)
     &     + g(n1,n6)*q1(n2)*q1(n5)*q1(n7)*q2(n3)*q2(n4)
     &     + g(n1,n6)*q1(n3)*q1(n4)*q1(n5)*q2(n2)*q2(n7)
     &     + g(n1,n6)*q1(n3)*q1(n4)*q1(n7)*q2(n2)*q2(n5)
     &     + g(n1,n6)*q1(n3)*q1(n5)*q1(n7)*q2(n2)*q2(n4)
     &     + g(n1,n6)*q1(n4)*q1(n5)*q1(n7)*q2(n2)*q2(n3)
     &     + g(n1,n7)*q1(n2)*q1(n3)*q1(n4)*q2(n5)*q2(n6)
     &     + g(n1,n7)*q1(n2)*q1(n3)*q1(n5)*q2(n4)*q2(n6)
     &     + g(n1,n7)*q1(n2)*q1(n3)*q1(n6)*q2(n4)*q2(n5)
     &     + g(n1,n7)*q1(n2)*q1(n4)*q1(n5)*q2(n3)*q2(n6)
     &     + g(n1,n7)*q1(n2)*q1(n4)*q1(n6)*q2(n3)*q2(n5)
     &     + g(n1,n7)*q1(n2)*q1(n5)*q1(n6)*q2(n3)*q2(n4)
     &     + g(n1,n7)*q1(n3)*q1(n4)*q1(n5)*q2(n2)*q2(n6)
     &     + g(n1,n7)*q1(n3)*q1(n4)*q1(n6)*q2(n2)*q2(n5)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &  + Cv(cc0011122 + C0i,ep) * (
     &     + g(n1,n7)*q1(n3)*q1(n5)*q1(n6)*q2(n2)*q2(n4)
     &     + g(n1,n7)*q1(n4)*q1(n5)*q1(n6)*q2(n2)*q2(n3)
     &     + g(n2,n3)*q1(n1)*q1(n4)*q1(n5)*q2(n6)*q2(n7)
     &     + g(n2,n3)*q1(n1)*q1(n4)*q1(n6)*q2(n5)*q2(n7)
     &     + g(n2,n3)*q1(n1)*q1(n4)*q1(n7)*q2(n5)*q2(n6)
     &     + g(n2,n3)*q1(n1)*q1(n5)*q1(n6)*q2(n4)*q2(n7)
     &     + g(n2,n3)*q1(n1)*q1(n5)*q1(n7)*q2(n4)*q2(n6)
     &     + g(n2,n3)*q1(n1)*q1(n6)*q1(n7)*q2(n4)*q2(n5)
     &     + g(n2,n3)*q1(n4)*q1(n5)*q1(n6)*q2(n1)*q2(n7)
     &     + g(n2,n3)*q1(n4)*q1(n5)*q1(n7)*q2(n1)*q2(n6)
     &     + g(n2,n3)*q1(n4)*q1(n6)*q1(n7)*q2(n1)*q2(n5)
     &     + g(n2,n3)*q1(n5)*q1(n6)*q1(n7)*q2(n1)*q2(n4)
     &     + g(n2,n4)*q1(n1)*q1(n3)*q1(n5)*q2(n6)*q2(n7)
     &     + g(n2,n4)*q1(n1)*q1(n3)*q1(n6)*q2(n5)*q2(n7)
     &     + g(n2,n4)*q1(n1)*q1(n3)*q1(n7)*q2(n5)*q2(n6)
     &     + g(n2,n4)*q1(n1)*q1(n5)*q1(n6)*q2(n3)*q2(n7)
     &     + g(n2,n4)*q1(n1)*q1(n5)*q1(n7)*q2(n3)*q2(n6)
     &     + g(n2,n4)*q1(n1)*q1(n6)*q1(n7)*q2(n3)*q2(n5)
     &     + g(n2,n4)*q1(n3)*q1(n5)*q1(n6)*q2(n1)*q2(n7)
     &     + g(n2,n4)*q1(n3)*q1(n5)*q1(n7)*q2(n1)*q2(n6)
     &     + g(n2,n4)*q1(n3)*q1(n6)*q1(n7)*q2(n1)*q2(n5)
     &     + g(n2,n4)*q1(n5)*q1(n6)*q1(n7)*q2(n1)*q2(n3)
     &     + g(n2,n5)*q1(n1)*q1(n3)*q1(n4)*q2(n6)*q2(n7)
     &     + g(n2,n5)*q1(n1)*q1(n3)*q1(n6)*q2(n4)*q2(n7)
     &     + g(n2,n5)*q1(n1)*q1(n3)*q1(n7)*q2(n4)*q2(n6)
     &     + g(n2,n5)*q1(n1)*q1(n4)*q1(n6)*q2(n3)*q2(n7)
     &     + g(n2,n5)*q1(n1)*q1(n4)*q1(n7)*q2(n3)*q2(n6)
     &     + g(n2,n5)*q1(n1)*q1(n6)*q1(n7)*q2(n3)*q2(n4)
     &     + g(n2,n5)*q1(n3)*q1(n4)*q1(n6)*q2(n1)*q2(n7)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &  + Cv(cc0011122 + C0i,ep) * (
     &     + g(n2,n5)*q1(n3)*q1(n4)*q1(n7)*q2(n1)*q2(n6)
     &     + g(n2,n5)*q1(n3)*q1(n6)*q1(n7)*q2(n1)*q2(n4)
     &     + g(n2,n5)*q1(n4)*q1(n6)*q1(n7)*q2(n1)*q2(n3)
     &     + g(n2,n6)*q1(n1)*q1(n3)*q1(n4)*q2(n5)*q2(n7)
     &     + g(n2,n6)*q1(n1)*q1(n3)*q1(n5)*q2(n4)*q2(n7)
     &     + g(n2,n6)*q1(n1)*q1(n3)*q1(n7)*q2(n4)*q2(n5)
     &     + g(n2,n6)*q1(n1)*q1(n4)*q1(n5)*q2(n3)*q2(n7)
     &     + g(n2,n6)*q1(n1)*q1(n4)*q1(n7)*q2(n3)*q2(n5)
     &     + g(n2,n6)*q1(n1)*q1(n5)*q1(n7)*q2(n3)*q2(n4)
     &     + g(n2,n6)*q1(n3)*q1(n4)*q1(n5)*q2(n1)*q2(n7)
     &     + g(n2,n6)*q1(n3)*q1(n4)*q1(n7)*q2(n1)*q2(n5)
     &     + g(n2,n6)*q1(n3)*q1(n5)*q1(n7)*q2(n1)*q2(n4)
     &     + g(n2,n6)*q1(n4)*q1(n5)*q1(n7)*q2(n1)*q2(n3)
     &     + g(n2,n7)*q1(n1)*q1(n3)*q1(n4)*q2(n5)*q2(n6)
     &     + g(n2,n7)*q1(n1)*q1(n3)*q1(n5)*q2(n4)*q2(n6)
     &     + g(n2,n7)*q1(n1)*q1(n3)*q1(n6)*q2(n4)*q2(n5)
     &     + g(n2,n7)*q1(n1)*q1(n4)*q1(n5)*q2(n3)*q2(n6)
     &     + g(n2,n7)*q1(n1)*q1(n4)*q1(n6)*q2(n3)*q2(n5)
     &     + g(n2,n7)*q1(n1)*q1(n5)*q1(n6)*q2(n3)*q2(n4)
     &     + g(n2,n7)*q1(n3)*q1(n4)*q1(n5)*q2(n1)*q2(n6)
     &     + g(n2,n7)*q1(n3)*q1(n4)*q1(n6)*q2(n1)*q2(n5)
     &     + g(n2,n7)*q1(n3)*q1(n5)*q1(n6)*q2(n1)*q2(n4)
     &     + g(n2,n7)*q1(n4)*q1(n5)*q1(n6)*q2(n1)*q2(n3)
     &     + g(n3,n4)*q1(n1)*q1(n2)*q1(n5)*q2(n6)*q2(n7)
     &     + g(n3,n4)*q1(n1)*q1(n2)*q1(n6)*q2(n5)*q2(n7)
     &     + g(n3,n4)*q1(n1)*q1(n2)*q1(n7)*q2(n5)*q2(n6)
     &     + g(n3,n4)*q1(n1)*q1(n5)*q1(n6)*q2(n2)*q2(n7)
     &     + g(n3,n4)*q1(n1)*q1(n5)*q1(n7)*q2(n2)*q2(n6)
     &     + g(n3,n4)*q1(n1)*q1(n6)*q1(n7)*q2(n2)*q2(n5)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &    + Cv(cc0011122 + C0i,ep) * (
     &     + g(n3,n4)*q1(n2)*q1(n5)*q1(n6)*q2(n1)*q2(n7)
     &     + g(n3,n4)*q1(n2)*q1(n5)*q1(n7)*q2(n1)*q2(n6)
     &     + g(n3,n4)*q1(n2)*q1(n6)*q1(n7)*q2(n1)*q2(n5)
     &     + g(n3,n4)*q1(n5)*q1(n6)*q1(n7)*q2(n1)*q2(n2)
     &     + g(n3,n5)*q1(n1)*q1(n2)*q1(n4)*q2(n6)*q2(n7)
     &     + g(n3,n5)*q1(n1)*q1(n2)*q1(n6)*q2(n4)*q2(n7)
     &     + g(n3,n5)*q1(n1)*q1(n2)*q1(n7)*q2(n4)*q2(n6)
     &     + g(n3,n5)*q1(n1)*q1(n4)*q1(n6)*q2(n2)*q2(n7)
     &     + g(n3,n5)*q1(n1)*q1(n4)*q1(n7)*q2(n2)*q2(n6)
     &     + g(n3,n5)*q1(n1)*q1(n6)*q1(n7)*q2(n2)*q2(n4)
     &     + g(n3,n5)*q1(n2)*q1(n4)*q1(n6)*q2(n1)*q2(n7)
     &     + g(n3,n5)*q1(n2)*q1(n4)*q1(n7)*q2(n1)*q2(n6)
     &     + g(n3,n5)*q1(n2)*q1(n6)*q1(n7)*q2(n1)*q2(n4)
     &     + g(n3,n5)*q1(n4)*q1(n6)*q1(n7)*q2(n1)*q2(n2)
     &     + g(n3,n6)*q1(n1)*q1(n2)*q1(n4)*q2(n5)*q2(n7)
     &     + g(n3,n6)*q1(n1)*q1(n2)*q1(n5)*q2(n4)*q2(n7)
     &     + g(n3,n6)*q1(n1)*q1(n2)*q1(n7)*q2(n4)*q2(n5)
     &     + g(n3,n6)*q1(n1)*q1(n4)*q1(n5)*q2(n2)*q2(n7)
     &     + g(n3,n6)*q1(n1)*q1(n4)*q1(n7)*q2(n2)*q2(n5)
     &     + g(n3,n6)*q1(n1)*q1(n5)*q1(n7)*q2(n2)*q2(n4)
     &     + g(n3,n6)*q1(n2)*q1(n4)*q1(n5)*q2(n1)*q2(n7)
     &     + g(n3,n6)*q1(n2)*q1(n4)*q1(n7)*q2(n1)*q2(n5)
     &     + g(n3,n6)*q1(n2)*q1(n5)*q1(n7)*q2(n1)*q2(n4)
     &     + g(n3,n6)*q1(n4)*q1(n5)*q1(n7)*q2(n1)*q2(n2)
     &     + g(n3,n7)*q1(n1)*q1(n2)*q1(n4)*q2(n5)*q2(n6)
     &     + g(n3,n7)*q1(n1)*q1(n2)*q1(n5)*q2(n4)*q2(n6)
     &     + g(n3,n7)*q1(n1)*q1(n2)*q1(n6)*q2(n4)*q2(n5)
     &     + g(n3,n7)*q1(n1)*q1(n4)*q1(n5)*q2(n2)*q2(n6)
     &     + g(n3,n7)*q1(n1)*q1(n4)*q1(n6)*q2(n2)*q2(n5)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &    + Cv(cc0011122 + C0i,ep) * (
     &     + g(n3,n7)*q1(n1)*q1(n5)*q1(n6)*q2(n2)*q2(n4)
     &     + g(n3,n7)*q1(n2)*q1(n4)*q1(n5)*q2(n1)*q2(n6)
     &     + g(n3,n7)*q1(n2)*q1(n4)*q1(n6)*q2(n1)*q2(n5)
     &     + g(n3,n7)*q1(n2)*q1(n5)*q1(n6)*q2(n1)*q2(n4)
     &     + g(n3,n7)*q1(n4)*q1(n5)*q1(n6)*q2(n1)*q2(n2)
     &     + g(n4,n5)*q1(n1)*q1(n2)*q1(n3)*q2(n6)*q2(n7)
     &     + g(n4,n5)*q1(n1)*q1(n2)*q1(n6)*q2(n3)*q2(n7)
     &     + g(n4,n5)*q1(n1)*q1(n2)*q1(n7)*q2(n3)*q2(n6)
     &     + g(n4,n5)*q1(n1)*q1(n3)*q1(n6)*q2(n2)*q2(n7)
     &     + g(n4,n5)*q1(n1)*q1(n3)*q1(n7)*q2(n2)*q2(n6)
     &     + g(n4,n5)*q1(n1)*q1(n6)*q1(n7)*q2(n2)*q2(n3)
     &     + g(n4,n5)*q1(n2)*q1(n3)*q1(n6)*q2(n1)*q2(n7)
     &     + g(n4,n5)*q1(n2)*q1(n3)*q1(n7)*q2(n1)*q2(n6)
     &     + g(n4,n5)*q1(n2)*q1(n6)*q1(n7)*q2(n1)*q2(n3)
     &     + g(n4,n5)*q1(n3)*q1(n6)*q1(n7)*q2(n1)*q2(n2)
     &     + g(n4,n6)*q1(n1)*q1(n2)*q1(n3)*q2(n5)*q2(n7)
     &     + g(n4,n6)*q1(n1)*q1(n2)*q1(n5)*q2(n3)*q2(n7)
     &     + g(n4,n6)*q1(n1)*q1(n2)*q1(n7)*q2(n3)*q2(n5)
     &     + g(n4,n6)*q1(n1)*q1(n3)*q1(n5)*q2(n2)*q2(n7)
     &     + g(n4,n6)*q1(n1)*q1(n3)*q1(n7)*q2(n2)*q2(n5)
     &     + g(n4,n6)*q1(n1)*q1(n5)*q1(n7)*q2(n2)*q2(n3)
     &     + g(n4,n6)*q1(n2)*q1(n3)*q1(n5)*q2(n1)*q2(n7)
     &     + g(n4,n6)*q1(n2)*q1(n3)*q1(n7)*q2(n1)*q2(n5)
     &     + g(n4,n6)*q1(n2)*q1(n5)*q1(n7)*q2(n1)*q2(n3)
     &     + g(n4,n6)*q1(n3)*q1(n5)*q1(n7)*q2(n1)*q2(n2)
     &     + g(n4,n7)*q1(n1)*q1(n2)*q1(n3)*q2(n5)*q2(n6)
     &     + g(n4,n7)*q1(n1)*q1(n2)*q1(n5)*q2(n3)*q2(n6)
     &     + g(n4,n7)*q1(n1)*q1(n2)*q1(n6)*q2(n3)*q2(n5)
     &     + g(n4,n7)*q1(n1)*q1(n3)*q1(n5)*q2(n2)*q2(n6)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &   + Cv(cc0011122 + C0i,ep) * (
     &     + g(n4,n7)*q1(n1)*q1(n3)*q1(n6)*q2(n2)*q2(n5)
     &     + g(n4,n7)*q1(n1)*q1(n5)*q1(n6)*q2(n2)*q2(n3)
     &     + g(n4,n7)*q1(n2)*q1(n3)*q1(n5)*q2(n1)*q2(n6)
     &     + g(n4,n7)*q1(n2)*q1(n3)*q1(n6)*q2(n1)*q2(n5)
     &     + g(n4,n7)*q1(n2)*q1(n5)*q1(n6)*q2(n1)*q2(n3)
     &     + g(n4,n7)*q1(n3)*q1(n5)*q1(n6)*q2(n1)*q2(n2)
     &     + g(n5,n6)*q1(n1)*q1(n2)*q1(n3)*q2(n4)*q2(n7)
     &     + g(n5,n6)*q1(n1)*q1(n2)*q1(n4)*q2(n3)*q2(n7)
     &     + g(n5,n6)*q1(n1)*q1(n2)*q1(n7)*q2(n3)*q2(n4)
     &     + g(n5,n6)*q1(n1)*q1(n3)*q1(n4)*q2(n2)*q2(n7)
     &     + g(n5,n6)*q1(n1)*q1(n3)*q1(n7)*q2(n2)*q2(n4)
     &     + g(n5,n6)*q1(n1)*q1(n4)*q1(n7)*q2(n2)*q2(n3)
     &     + g(n5,n6)*q1(n2)*q1(n3)*q1(n4)*q2(n1)*q2(n7)
     &     + g(n5,n6)*q1(n2)*q1(n3)*q1(n7)*q2(n1)*q2(n4)
     &     + g(n5,n6)*q1(n2)*q1(n4)*q1(n7)*q2(n1)*q2(n3)
     &     + g(n5,n6)*q1(n3)*q1(n4)*q1(n7)*q2(n1)*q2(n2)
     &     + g(n5,n7)*q1(n1)*q1(n2)*q1(n3)*q2(n4)*q2(n6)
     &     + g(n5,n7)*q1(n1)*q1(n2)*q1(n4)*q2(n3)*q2(n6)
     &     + g(n5,n7)*q1(n1)*q1(n2)*q1(n6)*q2(n3)*q2(n4)
     &     + g(n5,n7)*q1(n1)*q1(n3)*q1(n4)*q2(n2)*q2(n6)
     &     + g(n5,n7)*q1(n1)*q1(n3)*q1(n6)*q2(n2)*q2(n4)
     &     + g(n5,n7)*q1(n1)*q1(n4)*q1(n6)*q2(n2)*q2(n3)
     &     + g(n5,n7)*q1(n2)*q1(n3)*q1(n4)*q2(n1)*q2(n6)
     &     + g(n5,n7)*q1(n2)*q1(n3)*q1(n6)*q2(n1)*q2(n4)
     &     + g(n5,n7)*q1(n2)*q1(n4)*q1(n6)*q2(n1)*q2(n3)
     &     + g(n5,n7)*q1(n3)*q1(n4)*q1(n6)*q2(n1)*q2(n2)
     &     + g(n6,n7)*q1(n1)*q1(n2)*q1(n3)*q2(n4)*q2(n5)
     &     + g(n6,n7)*q1(n1)*q1(n2)*q1(n4)*q2(n3)*q2(n5)
     &     + g(n6,n7)*q1(n1)*q1(n2)*q1(n5)*q2(n3)*q2(n4)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &   + Cv(cc0011122 + C0i,ep) * (
     &     + g(n6,n7)*q1(n1)*q1(n3)*q1(n4)*q2(n2)*q2(n5)
     &     + g(n6,n7)*q1(n1)*q1(n3)*q1(n5)*q2(n2)*q2(n4)
     &     + g(n6,n7)*q1(n1)*q1(n4)*q1(n5)*q2(n2)*q2(n3)
     &     + g(n6,n7)*q1(n2)*q1(n3)*q1(n4)*q2(n1)*q2(n5)
     &     + g(n6,n7)*q1(n2)*q1(n3)*q1(n5)*q2(n1)*q2(n4)
     &     + g(n6,n7)*q1(n2)*q1(n4)*q1(n5)*q2(n1)*q2(n3)
     &     + g(n6,n7)*q1(n3)*q1(n4)*q1(n5)*q2(n1)*q2(n2)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &   + Cv(cc0011222 + C0i,ep) * (
     &     + g(n1,n2)*q1(n3)*q1(n4)*q2(n5)*q2(n6)*q2(n7)
     &     + g(n1,n2)*q1(n3)*q1(n5)*q2(n4)*q2(n6)*q2(n7)
     &     + g(n1,n2)*q1(n3)*q1(n6)*q2(n4)*q2(n5)*q2(n7)
     &     + g(n1,n2)*q1(n3)*q1(n7)*q2(n4)*q2(n5)*q2(n6)
     &     + g(n1,n2)*q1(n4)*q1(n5)*q2(n3)*q2(n6)*q2(n7)
     &     + g(n1,n2)*q1(n4)*q1(n6)*q2(n3)*q2(n5)*q2(n7)
     &     + g(n1,n2)*q1(n4)*q1(n7)*q2(n3)*q2(n5)*q2(n6)
     &     + g(n1,n2)*q1(n5)*q1(n6)*q2(n3)*q2(n4)*q2(n7)
     &     + g(n1,n2)*q1(n5)*q1(n7)*q2(n3)*q2(n4)*q2(n6)
     &     + g(n1,n2)*q1(n6)*q1(n7)*q2(n3)*q2(n4)*q2(n5)
     &     + g(n1,n3)*q1(n2)*q1(n4)*q2(n5)*q2(n6)*q2(n7)
     &     + g(n1,n3)*q1(n2)*q1(n5)*q2(n4)*q2(n6)*q2(n7)
     &     + g(n1,n3)*q1(n2)*q1(n6)*q2(n4)*q2(n5)*q2(n7)
     &     + g(n1,n3)*q1(n2)*q1(n7)*q2(n4)*q2(n5)*q2(n6)
     &     + g(n1,n3)*q1(n4)*q1(n5)*q2(n2)*q2(n6)*q2(n7)
     &     + g(n1,n3)*q1(n4)*q1(n6)*q2(n2)*q2(n5)*q2(n7)
     &     + g(n1,n3)*q1(n4)*q1(n7)*q2(n2)*q2(n5)*q2(n6)
     &     + g(n1,n3)*q1(n5)*q1(n6)*q2(n2)*q2(n4)*q2(n7)
     &     + g(n1,n3)*q1(n5)*q1(n7)*q2(n2)*q2(n4)*q2(n6)
     &     + g(n1,n3)*q1(n6)*q1(n7)*q2(n2)*q2(n4)*q2(n5)
     &     + g(n1,n4)*q1(n2)*q1(n3)*q2(n5)*q2(n6)*q2(n7)
     &     + g(n1,n4)*q1(n2)*q1(n5)*q2(n3)*q2(n6)*q2(n7)
     &     + g(n1,n4)*q1(n2)*q1(n6)*q2(n3)*q2(n5)*q2(n7)
     &     + g(n1,n4)*q1(n2)*q1(n7)*q2(n3)*q2(n5)*q2(n6)
     &     + g(n1,n4)*q1(n3)*q1(n5)*q2(n2)*q2(n6)*q2(n7)
     &     + g(n1,n4)*q1(n3)*q1(n6)*q2(n2)*q2(n5)*q2(n7)
     &     + g(n1,n4)*q1(n3)*q1(n7)*q2(n2)*q2(n5)*q2(n6)
     &     + g(n1,n4)*q1(n5)*q1(n6)*q2(n2)*q2(n3)*q2(n7)
     &     + g(n1,n4)*q1(n5)*q1(n7)*q2(n2)*q2(n3)*q2(n6)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &   + Cv(cc0011222 + C0i,ep) * (
     &     + g(n1,n4)*q1(n6)*q1(n7)*q2(n2)*q2(n3)*q2(n5)
     &     + g(n1,n5)*q1(n2)*q1(n3)*q2(n4)*q2(n6)*q2(n7)
     &     + g(n1,n5)*q1(n2)*q1(n4)*q2(n3)*q2(n6)*q2(n7)
     &     + g(n1,n5)*q1(n2)*q1(n6)*q2(n3)*q2(n4)*q2(n7)
     &     + g(n1,n5)*q1(n2)*q1(n7)*q2(n3)*q2(n4)*q2(n6)
     &     + g(n1,n5)*q1(n3)*q1(n4)*q2(n2)*q2(n6)*q2(n7)
     &     + g(n1,n5)*q1(n3)*q1(n6)*q2(n2)*q2(n4)*q2(n7)
     &     + g(n1,n5)*q1(n3)*q1(n7)*q2(n2)*q2(n4)*q2(n6)
     &     + g(n1,n5)*q1(n4)*q1(n6)*q2(n2)*q2(n3)*q2(n7)
     &     + g(n1,n5)*q1(n4)*q1(n7)*q2(n2)*q2(n3)*q2(n6)
     &     + g(n1,n5)*q1(n6)*q1(n7)*q2(n2)*q2(n3)*q2(n4)
     &     + g(n1,n6)*q1(n2)*q1(n3)*q2(n4)*q2(n5)*q2(n7)
     &     + g(n1,n6)*q1(n2)*q1(n4)*q2(n3)*q2(n5)*q2(n7)
     &     + g(n1,n6)*q1(n2)*q1(n5)*q2(n3)*q2(n4)*q2(n7)
     &     + g(n1,n6)*q1(n2)*q1(n7)*q2(n3)*q2(n4)*q2(n5)
     &     + g(n1,n6)*q1(n3)*q1(n4)*q2(n2)*q2(n5)*q2(n7)
     &     + g(n1,n6)*q1(n3)*q1(n5)*q2(n2)*q2(n4)*q2(n7)
     &     + g(n1,n6)*q1(n3)*q1(n7)*q2(n2)*q2(n4)*q2(n5)
     &     + g(n1,n6)*q1(n4)*q1(n5)*q2(n2)*q2(n3)*q2(n7)
     &     + g(n1,n6)*q1(n4)*q1(n7)*q2(n2)*q2(n3)*q2(n5)
     &     + g(n1,n6)*q1(n5)*q1(n7)*q2(n2)*q2(n3)*q2(n4)
     &     + g(n1,n7)*q1(n2)*q1(n3)*q2(n4)*q2(n5)*q2(n6)
     &     + g(n1,n7)*q1(n2)*q1(n4)*q2(n3)*q2(n5)*q2(n6)
     &     + g(n1,n7)*q1(n2)*q1(n5)*q2(n3)*q2(n4)*q2(n6)
     &     + g(n1,n7)*q1(n2)*q1(n6)*q2(n3)*q2(n4)*q2(n5)
     &     + g(n1,n7)*q1(n3)*q1(n4)*q2(n2)*q2(n5)*q2(n6)
     &     + g(n1,n7)*q1(n3)*q1(n5)*q2(n2)*q2(n4)*q2(n6)
     &     + g(n1,n7)*q1(n3)*q1(n6)*q2(n2)*q2(n4)*q2(n5)
     &     + g(n1,n7)*q1(n4)*q1(n5)*q2(n2)*q2(n3)*q2(n6)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &   + Cv(cc0011222 + C0i,ep) * (
     &     + g(n1,n7)*q1(n4)*q1(n6)*q2(n2)*q2(n3)*q2(n5)
     &     + g(n1,n7)*q1(n5)*q1(n6)*q2(n2)*q2(n3)*q2(n4)
     &     + g(n2,n3)*q1(n1)*q1(n4)*q2(n5)*q2(n6)*q2(n7)
     &     + g(n2,n3)*q1(n1)*q1(n5)*q2(n4)*q2(n6)*q2(n7)
     &     + g(n2,n3)*q1(n1)*q1(n6)*q2(n4)*q2(n5)*q2(n7)
     &     + g(n2,n3)*q1(n1)*q1(n7)*q2(n4)*q2(n5)*q2(n6)
     &     + g(n2,n3)*q1(n4)*q1(n5)*q2(n1)*q2(n6)*q2(n7)
     &     + g(n2,n3)*q1(n4)*q1(n6)*q2(n1)*q2(n5)*q2(n7)
     &     + g(n2,n3)*q1(n4)*q1(n7)*q2(n1)*q2(n5)*q2(n6)
     &     + g(n2,n3)*q1(n5)*q1(n6)*q2(n1)*q2(n4)*q2(n7)
     &     + g(n2,n3)*q1(n5)*q1(n7)*q2(n1)*q2(n4)*q2(n6)
     &     + g(n2,n3)*q1(n6)*q1(n7)*q2(n1)*q2(n4)*q2(n5)
     &     + g(n2,n4)*q1(n1)*q1(n3)*q2(n5)*q2(n6)*q2(n7)
     &     + g(n2,n4)*q1(n1)*q1(n5)*q2(n3)*q2(n6)*q2(n7)
     &     + g(n2,n4)*q1(n1)*q1(n6)*q2(n3)*q2(n5)*q2(n7)
     &     + g(n2,n4)*q1(n1)*q1(n7)*q2(n3)*q2(n5)*q2(n6)
     &     + g(n2,n4)*q1(n3)*q1(n5)*q2(n1)*q2(n6)*q2(n7)
     &     + g(n2,n4)*q1(n3)*q1(n6)*q2(n1)*q2(n5)*q2(n7)
     &     + g(n2,n4)*q1(n3)*q1(n7)*q2(n1)*q2(n5)*q2(n6)
     &     + g(n2,n4)*q1(n5)*q1(n6)*q2(n1)*q2(n3)*q2(n7)
     &     + g(n2,n4)*q1(n5)*q1(n7)*q2(n1)*q2(n3)*q2(n6)
     &     + g(n2,n4)*q1(n6)*q1(n7)*q2(n1)*q2(n3)*q2(n5)
     &     + g(n2,n5)*q1(n1)*q1(n3)*q2(n4)*q2(n6)*q2(n7)
     &     + g(n2,n5)*q1(n1)*q1(n4)*q2(n3)*q2(n6)*q2(n7)
     &     + g(n2,n5)*q1(n1)*q1(n6)*q2(n3)*q2(n4)*q2(n7)
     &     + g(n2,n5)*q1(n1)*q1(n7)*q2(n3)*q2(n4)*q2(n6)
     &     + g(n2,n5)*q1(n3)*q1(n4)*q2(n1)*q2(n6)*q2(n7)
     &     + g(n2,n5)*q1(n3)*q1(n6)*q2(n1)*q2(n4)*q2(n7)
     &     + g(n2,n5)*q1(n3)*q1(n7)*q2(n1)*q2(n4)*q2(n6)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &   + Cv(cc0011222 + C0i,ep) * (
     &     + g(n2,n5)*q1(n4)*q1(n6)*q2(n1)*q2(n3)*q2(n7)
     &     + g(n2,n5)*q1(n4)*q1(n7)*q2(n1)*q2(n3)*q2(n6)
     &     + g(n2,n5)*q1(n6)*q1(n7)*q2(n1)*q2(n3)*q2(n4)
     &     + g(n2,n6)*q1(n1)*q1(n3)*q2(n4)*q2(n5)*q2(n7)
     &     + g(n2,n6)*q1(n1)*q1(n4)*q2(n3)*q2(n5)*q2(n7)
     &     + g(n2,n6)*q1(n1)*q1(n5)*q2(n3)*q2(n4)*q2(n7)
     &     + g(n2,n6)*q1(n1)*q1(n7)*q2(n3)*q2(n4)*q2(n5)
     &     + g(n2,n6)*q1(n3)*q1(n4)*q2(n1)*q2(n5)*q2(n7)
     &     + g(n2,n6)*q1(n3)*q1(n5)*q2(n1)*q2(n4)*q2(n7)
     &     + g(n2,n6)*q1(n3)*q1(n7)*q2(n1)*q2(n4)*q2(n5)
     &     + g(n2,n6)*q1(n4)*q1(n5)*q2(n1)*q2(n3)*q2(n7)
     &     + g(n2,n6)*q1(n4)*q1(n7)*q2(n1)*q2(n3)*q2(n5)
     &     + g(n2,n6)*q1(n5)*q1(n7)*q2(n1)*q2(n3)*q2(n4)
     &     + g(n2,n7)*q1(n1)*q1(n3)*q2(n4)*q2(n5)*q2(n6)
     &     + g(n2,n7)*q1(n1)*q1(n4)*q2(n3)*q2(n5)*q2(n6)
     &     + g(n2,n7)*q1(n1)*q1(n5)*q2(n3)*q2(n4)*q2(n6)
     &     + g(n2,n7)*q1(n1)*q1(n6)*q2(n3)*q2(n4)*q2(n5)
     &     + g(n2,n7)*q1(n3)*q1(n4)*q2(n1)*q2(n5)*q2(n6)
     &     + g(n2,n7)*q1(n3)*q1(n5)*q2(n1)*q2(n4)*q2(n6)
     &     + g(n2,n7)*q1(n3)*q1(n6)*q2(n1)*q2(n4)*q2(n5)
     &     + g(n2,n7)*q1(n4)*q1(n5)*q2(n1)*q2(n3)*q2(n6)
     &     + g(n2,n7)*q1(n4)*q1(n6)*q2(n1)*q2(n3)*q2(n5)
     &     + g(n2,n7)*q1(n5)*q1(n6)*q2(n1)*q2(n3)*q2(n4)
     &     + g(n3,n4)*q1(n1)*q1(n2)*q2(n5)*q2(n6)*q2(n7)
     &     + g(n3,n4)*q1(n1)*q1(n5)*q2(n2)*q2(n6)*q2(n7)
     &     + g(n3,n4)*q1(n1)*q1(n6)*q2(n2)*q2(n5)*q2(n7)
     &     + g(n3,n4)*q1(n1)*q1(n7)*q2(n2)*q2(n5)*q2(n6)
     &     + g(n3,n4)*q1(n2)*q1(n5)*q2(n1)*q2(n6)*q2(n7)
     &     + g(n3,n4)*q1(n2)*q1(n6)*q2(n1)*q2(n5)*q2(n7)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &   + Cv(cc0011222 + C0i,ep) * (
     &     + g(n3,n4)*q1(n2)*q1(n7)*q2(n1)*q2(n5)*q2(n6)
     &     + g(n3,n4)*q1(n5)*q1(n6)*q2(n1)*q2(n2)*q2(n7)
     &     + g(n3,n4)*q1(n5)*q1(n7)*q2(n1)*q2(n2)*q2(n6)
     &     + g(n3,n4)*q1(n6)*q1(n7)*q2(n1)*q2(n2)*q2(n5)
     &     + g(n3,n5)*q1(n1)*q1(n2)*q2(n4)*q2(n6)*q2(n7)
     &     + g(n3,n5)*q1(n1)*q1(n4)*q2(n2)*q2(n6)*q2(n7)
     &     + g(n3,n5)*q1(n1)*q1(n6)*q2(n2)*q2(n4)*q2(n7)
     &     + g(n3,n5)*q1(n1)*q1(n7)*q2(n2)*q2(n4)*q2(n6)
     &     + g(n3,n5)*q1(n2)*q1(n4)*q2(n1)*q2(n6)*q2(n7)
     &     + g(n3,n5)*q1(n2)*q1(n6)*q2(n1)*q2(n4)*q2(n7)
     &     + g(n3,n5)*q1(n2)*q1(n7)*q2(n1)*q2(n4)*q2(n6)
     &     + g(n3,n5)*q1(n4)*q1(n6)*q2(n1)*q2(n2)*q2(n7)
     &     + g(n3,n5)*q1(n4)*q1(n7)*q2(n1)*q2(n2)*q2(n6)
     &     + g(n3,n5)*q1(n6)*q1(n7)*q2(n1)*q2(n2)*q2(n4)
     &     + g(n3,n6)*q1(n1)*q1(n2)*q2(n4)*q2(n5)*q2(n7)
     &     + g(n3,n6)*q1(n1)*q1(n4)*q2(n2)*q2(n5)*q2(n7)
     &     + g(n3,n6)*q1(n1)*q1(n5)*q2(n2)*q2(n4)*q2(n7)
     &     + g(n3,n6)*q1(n1)*q1(n7)*q2(n2)*q2(n4)*q2(n5)
     &     + g(n3,n6)*q1(n2)*q1(n4)*q2(n1)*q2(n5)*q2(n7)
     &     + g(n3,n6)*q1(n2)*q1(n5)*q2(n1)*q2(n4)*q2(n7)
     &     + g(n3,n6)*q1(n2)*q1(n7)*q2(n1)*q2(n4)*q2(n5)
     &     + g(n3,n6)*q1(n4)*q1(n5)*q2(n1)*q2(n2)*q2(n7)
     &     + g(n3,n6)*q1(n4)*q1(n7)*q2(n1)*q2(n2)*q2(n5)
     &     + g(n3,n6)*q1(n5)*q1(n7)*q2(n1)*q2(n2)*q2(n4)
     &     + g(n3,n7)*q1(n1)*q1(n2)*q2(n4)*q2(n5)*q2(n6)
     &     + g(n3,n7)*q1(n1)*q1(n4)*q2(n2)*q2(n5)*q2(n6)
     &     + g(n3,n7)*q1(n1)*q1(n5)*q2(n2)*q2(n4)*q2(n6)
     &     + g(n3,n7)*q1(n1)*q1(n6)*q2(n2)*q2(n4)*q2(n5)
     &     + g(n3,n7)*q1(n2)*q1(n4)*q2(n1)*q2(n5)*q2(n6)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &   + Cv(cc0011222 + C0i,ep) * (
     &     + g(n3,n7)*q1(n2)*q1(n5)*q2(n1)*q2(n4)*q2(n6)
     &     + g(n3,n7)*q1(n2)*q1(n6)*q2(n1)*q2(n4)*q2(n5)
     &     + g(n3,n7)*q1(n4)*q1(n5)*q2(n1)*q2(n2)*q2(n6)
     &     + g(n3,n7)*q1(n4)*q1(n6)*q2(n1)*q2(n2)*q2(n5)
     &     + g(n3,n7)*q1(n5)*q1(n6)*q2(n1)*q2(n2)*q2(n4)
     &     + g(n4,n5)*q1(n1)*q1(n2)*q2(n3)*q2(n6)*q2(n7)
     &     + g(n4,n5)*q1(n1)*q1(n3)*q2(n2)*q2(n6)*q2(n7)
     &     + g(n4,n5)*q1(n1)*q1(n6)*q2(n2)*q2(n3)*q2(n7)
     &     + g(n4,n5)*q1(n1)*q1(n7)*q2(n2)*q2(n3)*q2(n6)
     &     + g(n4,n5)*q1(n2)*q1(n3)*q2(n1)*q2(n6)*q2(n7)
     &     + g(n4,n5)*q1(n2)*q1(n6)*q2(n1)*q2(n3)*q2(n7)
     &     + g(n4,n5)*q1(n2)*q1(n7)*q2(n1)*q2(n3)*q2(n6)
     &     + g(n4,n5)*q1(n3)*q1(n6)*q2(n1)*q2(n2)*q2(n7)
     &     + g(n4,n5)*q1(n3)*q1(n7)*q2(n1)*q2(n2)*q2(n6)
     &     + g(n4,n5)*q1(n6)*q1(n7)*q2(n1)*q2(n2)*q2(n3)
     &     + g(n4,n6)*q1(n1)*q1(n2)*q2(n3)*q2(n5)*q2(n7)
     &     + g(n4,n6)*q1(n1)*q1(n3)*q2(n2)*q2(n5)*q2(n7)
     &     + g(n4,n6)*q1(n1)*q1(n5)*q2(n2)*q2(n3)*q2(n7)
     &     + g(n4,n6)*q1(n1)*q1(n7)*q2(n2)*q2(n3)*q2(n5)
     &     + g(n4,n6)*q1(n2)*q1(n3)*q2(n1)*q2(n5)*q2(n7)
     &     + g(n4,n6)*q1(n2)*q1(n5)*q2(n1)*q2(n3)*q2(n7)
     &     + g(n4,n6)*q1(n2)*q1(n7)*q2(n1)*q2(n3)*q2(n5)
     &     + g(n4,n6)*q1(n3)*q1(n5)*q2(n1)*q2(n2)*q2(n7)
     &     + g(n4,n6)*q1(n3)*q1(n7)*q2(n1)*q2(n2)*q2(n5)
     &     + g(n4,n6)*q1(n5)*q1(n7)*q2(n1)*q2(n2)*q2(n3)
     &     + g(n4,n7)*q1(n1)*q1(n2)*q2(n3)*q2(n5)*q2(n6)
     &     + g(n4,n7)*q1(n1)*q1(n3)*q2(n2)*q2(n5)*q2(n6)
     &     + g(n4,n7)*q1(n1)*q1(n5)*q2(n2)*q2(n3)*q2(n6)
     &     + g(n4,n7)*q1(n1)*q1(n6)*q2(n2)*q2(n3)*q2(n5)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &  + Cv(cc0011222 + C0i,ep) * (
     &     + g(n4,n7)*q1(n2)*q1(n3)*q2(n1)*q2(n5)*q2(n6)
     &     + g(n4,n7)*q1(n2)*q1(n5)*q2(n1)*q2(n3)*q2(n6)
     &     + g(n4,n7)*q1(n2)*q1(n6)*q2(n1)*q2(n3)*q2(n5)
     &     + g(n4,n7)*q1(n3)*q1(n5)*q2(n1)*q2(n2)*q2(n6)
     &     + g(n4,n7)*q1(n3)*q1(n6)*q2(n1)*q2(n2)*q2(n5)
     &     + g(n4,n7)*q1(n5)*q1(n6)*q2(n1)*q2(n2)*q2(n3)
     &     + g(n5,n6)*q1(n1)*q1(n2)*q2(n3)*q2(n4)*q2(n7)
     &     + g(n5,n6)*q1(n1)*q1(n3)*q2(n2)*q2(n4)*q2(n7)
     &     + g(n5,n6)*q1(n1)*q1(n4)*q2(n2)*q2(n3)*q2(n7)
     &     + g(n5,n6)*q1(n1)*q1(n7)*q2(n2)*q2(n3)*q2(n4)
     &     + g(n5,n6)*q1(n2)*q1(n3)*q2(n1)*q2(n4)*q2(n7)
     &     + g(n5,n6)*q1(n2)*q1(n4)*q2(n1)*q2(n3)*q2(n7)
     &     + g(n5,n6)*q1(n2)*q1(n7)*q2(n1)*q2(n3)*q2(n4)
     &     + g(n5,n6)*q1(n3)*q1(n4)*q2(n1)*q2(n2)*q2(n7)
     &     + g(n5,n6)*q1(n3)*q1(n7)*q2(n1)*q2(n2)*q2(n4)
     &     + g(n5,n6)*q1(n4)*q1(n7)*q2(n1)*q2(n2)*q2(n3)
     &     + g(n5,n7)*q1(n1)*q1(n2)*q2(n3)*q2(n4)*q2(n6)
     &     + g(n5,n7)*q1(n1)*q1(n3)*q2(n2)*q2(n4)*q2(n6)
     &     + g(n5,n7)*q1(n1)*q1(n4)*q2(n2)*q2(n3)*q2(n6)
     &     + g(n5,n7)*q1(n1)*q1(n6)*q2(n2)*q2(n3)*q2(n4)
     &     + g(n5,n7)*q1(n2)*q1(n3)*q2(n1)*q2(n4)*q2(n6)
     &     + g(n5,n7)*q1(n2)*q1(n4)*q2(n1)*q2(n3)*q2(n6)
     &     + g(n5,n7)*q1(n2)*q1(n6)*q2(n1)*q2(n3)*q2(n4)
     &     + g(n5,n7)*q1(n3)*q1(n4)*q2(n1)*q2(n2)*q2(n6)
     &     + g(n5,n7)*q1(n3)*q1(n6)*q2(n1)*q2(n2)*q2(n4)
     &     + g(n5,n7)*q1(n4)*q1(n6)*q2(n1)*q2(n2)*q2(n3)
     &     + g(n6,n7)*q1(n1)*q1(n2)*q2(n3)*q2(n4)*q2(n5)
     &     + g(n6,n7)*q1(n1)*q1(n3)*q2(n2)*q2(n4)*q2(n5)
     &     + g(n6,n7)*q1(n1)*q1(n4)*q2(n2)*q2(n3)*q2(n5)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &  + Cv(cc0011222 + C0i,ep) * (
     &     + g(n6,n7)*q1(n1)*q1(n5)*q2(n2)*q2(n3)*q2(n4)
     &     + g(n6,n7)*q1(n2)*q1(n3)*q2(n1)*q2(n4)*q2(n5)
     &     + g(n6,n7)*q1(n2)*q1(n4)*q2(n1)*q2(n3)*q2(n5)
     &     + g(n6,n7)*q1(n2)*q1(n5)*q2(n1)*q2(n3)*q2(n4)
     &     + g(n6,n7)*q1(n3)*q1(n4)*q2(n1)*q2(n2)*q2(n5)
     &     + g(n6,n7)*q1(n3)*q1(n5)*q2(n1)*q2(n2)*q2(n4)
     &     + g(n6,n7)*q1(n4)*q1(n5)*q2(n1)*q2(n2)*q2(n3)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &  + Cv(cc0012222 + C0i,ep) * (
     &     + g(n1,n2)*q1(n3)*q2(n4)*q2(n5)*q2(n6)*q2(n7)
     &     + g(n1,n2)*q1(n4)*q2(n3)*q2(n5)*q2(n6)*q2(n7)
     &     + g(n1,n2)*q1(n5)*q2(n3)*q2(n4)*q2(n6)*q2(n7)
     &     + g(n1,n2)*q1(n6)*q2(n3)*q2(n4)*q2(n5)*q2(n7)
     &     + g(n1,n2)*q1(n7)*q2(n3)*q2(n4)*q2(n5)*q2(n6)
     &     + g(n1,n3)*q1(n2)*q2(n4)*q2(n5)*q2(n6)*q2(n7)
     &     + g(n1,n3)*q1(n4)*q2(n2)*q2(n5)*q2(n6)*q2(n7)
     &     + g(n1,n3)*q1(n5)*q2(n2)*q2(n4)*q2(n6)*q2(n7)
     &     + g(n1,n3)*q1(n6)*q2(n2)*q2(n4)*q2(n5)*q2(n7)
     &     + g(n1,n3)*q1(n7)*q2(n2)*q2(n4)*q2(n5)*q2(n6)
     &     + g(n1,n4)*q1(n2)*q2(n3)*q2(n5)*q2(n6)*q2(n7)
     &     + g(n1,n4)*q1(n3)*q2(n2)*q2(n5)*q2(n6)*q2(n7)
     &     + g(n1,n4)*q1(n5)*q2(n2)*q2(n3)*q2(n6)*q2(n7)
     &     + g(n1,n4)*q1(n6)*q2(n2)*q2(n3)*q2(n5)*q2(n7)
     &     + g(n1,n4)*q1(n7)*q2(n2)*q2(n3)*q2(n5)*q2(n6)
     &     + g(n1,n5)*q1(n2)*q2(n3)*q2(n4)*q2(n6)*q2(n7)
     &     + g(n1,n5)*q1(n3)*q2(n2)*q2(n4)*q2(n6)*q2(n7)
     &     + g(n1,n5)*q1(n4)*q2(n2)*q2(n3)*q2(n6)*q2(n7)
     &     + g(n1,n5)*q1(n6)*q2(n2)*q2(n3)*q2(n4)*q2(n7)
     &     + g(n1,n5)*q1(n7)*q2(n2)*q2(n3)*q2(n4)*q2(n6)
     &     + g(n1,n6)*q1(n2)*q2(n3)*q2(n4)*q2(n5)*q2(n7)
     &     + g(n1,n6)*q1(n3)*q2(n2)*q2(n4)*q2(n5)*q2(n7)
     &     + g(n1,n6)*q1(n4)*q2(n2)*q2(n3)*q2(n5)*q2(n7)
     &     + g(n1,n6)*q1(n5)*q2(n2)*q2(n3)*q2(n4)*q2(n7)
     &     + g(n1,n6)*q1(n7)*q2(n2)*q2(n3)*q2(n4)*q2(n5)
     &     + g(n1,n7)*q1(n2)*q2(n3)*q2(n4)*q2(n5)*q2(n6)
     &     + g(n1,n7)*q1(n3)*q2(n2)*q2(n4)*q2(n5)*q2(n6)
     &     + g(n1,n7)*q1(n4)*q2(n2)*q2(n3)*q2(n5)*q2(n6)
     &     + g(n1,n7)*q1(n5)*q2(n2)*q2(n3)*q2(n4)*q2(n6)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &   + Cv(cc0012222 + C0i,ep) * (
     &     + g(n1,n7)*q1(n6)*q2(n2)*q2(n3)*q2(n4)*q2(n5)
     &     + g(n2,n3)*q1(n1)*q2(n4)*q2(n5)*q2(n6)*q2(n7)
     &     + g(n2,n3)*q1(n4)*q2(n1)*q2(n5)*q2(n6)*q2(n7)
     &     + g(n2,n3)*q1(n5)*q2(n1)*q2(n4)*q2(n6)*q2(n7)
     &     + g(n2,n3)*q1(n6)*q2(n1)*q2(n4)*q2(n5)*q2(n7)
     &     + g(n2,n3)*q1(n7)*q2(n1)*q2(n4)*q2(n5)*q2(n6)
     &     + g(n2,n4)*q1(n1)*q2(n3)*q2(n5)*q2(n6)*q2(n7)
     &     + g(n2,n4)*q1(n3)*q2(n1)*q2(n5)*q2(n6)*q2(n7)
     &     + g(n2,n4)*q1(n5)*q2(n1)*q2(n3)*q2(n6)*q2(n7)
     &     + g(n2,n4)*q1(n6)*q2(n1)*q2(n3)*q2(n5)*q2(n7)
     &     + g(n2,n4)*q1(n7)*q2(n1)*q2(n3)*q2(n5)*q2(n6)
     &     + g(n2,n5)*q1(n1)*q2(n3)*q2(n4)*q2(n6)*q2(n7)
     &     + g(n2,n5)*q1(n3)*q2(n1)*q2(n4)*q2(n6)*q2(n7)
     &     + g(n2,n5)*q1(n4)*q2(n1)*q2(n3)*q2(n6)*q2(n7)
     &     + g(n2,n5)*q1(n6)*q2(n1)*q2(n3)*q2(n4)*q2(n7)
     &     + g(n2,n5)*q1(n7)*q2(n1)*q2(n3)*q2(n4)*q2(n6)
     &     + g(n2,n6)*q1(n1)*q2(n3)*q2(n4)*q2(n5)*q2(n7)
     &     + g(n2,n6)*q1(n3)*q2(n1)*q2(n4)*q2(n5)*q2(n7)
     &     + g(n2,n6)*q1(n4)*q2(n1)*q2(n3)*q2(n5)*q2(n7)
     &     + g(n2,n6)*q1(n5)*q2(n1)*q2(n3)*q2(n4)*q2(n7)
     &     + g(n2,n6)*q1(n7)*q2(n1)*q2(n3)*q2(n4)*q2(n5)
     &     + g(n2,n7)*q1(n1)*q2(n3)*q2(n4)*q2(n5)*q2(n6)
     &     + g(n2,n7)*q1(n3)*q2(n1)*q2(n4)*q2(n5)*q2(n6)
     &     + g(n2,n7)*q1(n4)*q2(n1)*q2(n3)*q2(n5)*q2(n6)
     &     + g(n2,n7)*q1(n5)*q2(n1)*q2(n3)*q2(n4)*q2(n6)
     &     + g(n2,n7)*q1(n6)*q2(n1)*q2(n3)*q2(n4)*q2(n5)
     &     + g(n3,n4)*q1(n1)*q2(n2)*q2(n5)*q2(n6)*q2(n7)
     &     + g(n3,n4)*q1(n2)*q2(n1)*q2(n5)*q2(n6)*q2(n7)
     &     + g(n3,n4)*q1(n5)*q2(n1)*q2(n2)*q2(n6)*q2(n7)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &  + Cv(cc0012222 + C0i,ep) * (
     &     + g(n3,n4)*q1(n6)*q2(n1)*q2(n2)*q2(n5)*q2(n7)
     &     + g(n3,n4)*q1(n7)*q2(n1)*q2(n2)*q2(n5)*q2(n6)
     &     + g(n3,n5)*q1(n1)*q2(n2)*q2(n4)*q2(n6)*q2(n7)
     &     + g(n3,n5)*q1(n2)*q2(n1)*q2(n4)*q2(n6)*q2(n7)
     &     + g(n3,n5)*q1(n4)*q2(n1)*q2(n2)*q2(n6)*q2(n7)
     &     + g(n3,n5)*q1(n6)*q2(n1)*q2(n2)*q2(n4)*q2(n7)
     &     + g(n3,n5)*q1(n7)*q2(n1)*q2(n2)*q2(n4)*q2(n6)
     &     + g(n3,n6)*q1(n1)*q2(n2)*q2(n4)*q2(n5)*q2(n7)
     &     + g(n3,n6)*q1(n2)*q2(n1)*q2(n4)*q2(n5)*q2(n7)
     &     + g(n3,n6)*q1(n4)*q2(n1)*q2(n2)*q2(n5)*q2(n7)
     &     + g(n3,n6)*q1(n5)*q2(n1)*q2(n2)*q2(n4)*q2(n7)
     &     + g(n3,n6)*q1(n7)*q2(n1)*q2(n2)*q2(n4)*q2(n5)
     &     + g(n3,n7)*q1(n1)*q2(n2)*q2(n4)*q2(n5)*q2(n6)
     &     + g(n3,n7)*q1(n2)*q2(n1)*q2(n4)*q2(n5)*q2(n6)
     &     + g(n3,n7)*q1(n4)*q2(n1)*q2(n2)*q2(n5)*q2(n6)
     &     + g(n3,n7)*q1(n5)*q2(n1)*q2(n2)*q2(n4)*q2(n6)
     &     + g(n3,n7)*q1(n6)*q2(n1)*q2(n2)*q2(n4)*q2(n5)
     &     + g(n4,n5)*q1(n1)*q2(n2)*q2(n3)*q2(n6)*q2(n7)
     &     + g(n4,n5)*q1(n2)*q2(n1)*q2(n3)*q2(n6)*q2(n7)
     &     + g(n4,n5)*q1(n3)*q2(n1)*q2(n2)*q2(n6)*q2(n7)
     &     + g(n4,n5)*q1(n6)*q2(n1)*q2(n2)*q2(n3)*q2(n7)
     &     + g(n4,n5)*q1(n7)*q2(n1)*q2(n2)*q2(n3)*q2(n6)
     &     + g(n4,n6)*q1(n1)*q2(n2)*q2(n3)*q2(n5)*q2(n7)
     &     + g(n4,n6)*q1(n2)*q2(n1)*q2(n3)*q2(n5)*q2(n7)
     &     + g(n4,n6)*q1(n3)*q2(n1)*q2(n2)*q2(n5)*q2(n7)
     &     + g(n4,n6)*q1(n5)*q2(n1)*q2(n2)*q2(n3)*q2(n7)
     &     + g(n4,n6)*q1(n7)*q2(n1)*q2(n2)*q2(n3)*q2(n5)
     &     + g(n4,n7)*q1(n1)*q2(n2)*q2(n3)*q2(n5)*q2(n6)
     &     + g(n4,n7)*q1(n2)*q2(n1)*q2(n3)*q2(n5)*q2(n6)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &   + Cv(cc0012222 + C0i,ep) * (
     &     + g(n4,n7)*q1(n3)*q2(n1)*q2(n2)*q2(n5)*q2(n6)
     &     + g(n4,n7)*q1(n5)*q2(n1)*q2(n2)*q2(n3)*q2(n6)
     &     + g(n4,n7)*q1(n6)*q2(n1)*q2(n2)*q2(n3)*q2(n5)
     &     + g(n5,n6)*q1(n1)*q2(n2)*q2(n3)*q2(n4)*q2(n7)
     &     + g(n5,n6)*q1(n2)*q2(n1)*q2(n3)*q2(n4)*q2(n7)
     &     + g(n5,n6)*q1(n3)*q2(n1)*q2(n2)*q2(n4)*q2(n7)
     &     + g(n5,n6)*q1(n4)*q2(n1)*q2(n2)*q2(n3)*q2(n7)
     &     + g(n5,n6)*q1(n7)*q2(n1)*q2(n2)*q2(n3)*q2(n4)
     &     + g(n5,n7)*q1(n1)*q2(n2)*q2(n3)*q2(n4)*q2(n6)
     &     + g(n5,n7)*q1(n2)*q2(n1)*q2(n3)*q2(n4)*q2(n6)
     &     + g(n5,n7)*q1(n3)*q2(n1)*q2(n2)*q2(n4)*q2(n6)
     &     + g(n5,n7)*q1(n4)*q2(n1)*q2(n2)*q2(n3)*q2(n6)
     &     + g(n5,n7)*q1(n6)*q2(n1)*q2(n2)*q2(n3)*q2(n4)
     &     + g(n6,n7)*q1(n1)*q2(n2)*q2(n3)*q2(n4)*q2(n5)
     &     + g(n6,n7)*q1(n2)*q2(n1)*q2(n3)*q2(n4)*q2(n5)
     &     + g(n6,n7)*q1(n3)*q2(n1)*q2(n2)*q2(n4)*q2(n5)
     &     + g(n6,n7)*q1(n4)*q2(n1)*q2(n2)*q2(n3)*q2(n5)
     &     + g(n6,n7)*q1(n5)*q2(n1)*q2(n2)*q2(n3)*q2(n4)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &   + Cv(cc0022222 + C0i,ep) * (
     &     + g(n1,n2)*q2(n3)*q2(n4)*q2(n5)*q2(n6)*q2(n7)
     &     + g(n1,n3)*q2(n2)*q2(n4)*q2(n5)*q2(n6)*q2(n7)
     &     + g(n1,n4)*q2(n2)*q2(n3)*q2(n5)*q2(n6)*q2(n7)
     &     + g(n1,n5)*q2(n2)*q2(n3)*q2(n4)*q2(n6)*q2(n7)
     &     + g(n1,n6)*q2(n2)*q2(n3)*q2(n4)*q2(n5)*q2(n7)
     &     + g(n1,n7)*q2(n2)*q2(n3)*q2(n4)*q2(n5)*q2(n6)
     &     + g(n2,n3)*q2(n1)*q2(n4)*q2(n5)*q2(n6)*q2(n7)
     &     + g(n2,n4)*q2(n1)*q2(n3)*q2(n5)*q2(n6)*q2(n7)
     &     + g(n2,n5)*q2(n1)*q2(n3)*q2(n4)*q2(n6)*q2(n7)
     &     + g(n2,n6)*q2(n1)*q2(n3)*q2(n4)*q2(n5)*q2(n7)
     &     + g(n2,n7)*q2(n1)*q2(n3)*q2(n4)*q2(n5)*q2(n6)
     &     + g(n3,n4)*q2(n1)*q2(n2)*q2(n5)*q2(n6)*q2(n7)
     &     + g(n3,n5)*q2(n1)*q2(n2)*q2(n4)*q2(n6)*q2(n7)
     &     + g(n3,n6)*q2(n1)*q2(n2)*q2(n4)*q2(n5)*q2(n7)
     &     + g(n3,n7)*q2(n1)*q2(n2)*q2(n4)*q2(n5)*q2(n6)
     &     + g(n4,n5)*q2(n1)*q2(n2)*q2(n3)*q2(n6)*q2(n7)
     &     + g(n4,n6)*q2(n1)*q2(n2)*q2(n3)*q2(n5)*q2(n7)
     &     + g(n4,n7)*q2(n1)*q2(n2)*q2(n3)*q2(n5)*q2(n6)
     &     + g(n5,n6)*q2(n1)*q2(n2)*q2(n3)*q2(n4)*q2(n7)
     &     + g(n5,n7)*q2(n1)*q2(n2)*q2(n3)*q2(n4)*q2(n6)
     &     + g(n6,n7)*q2(n1)*q2(n2)*q2(n3)*q2(n4)*q2(n5)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &  + Cv(cc0000111 + C0i,ep) * (
     &     + g(n1,n2)*g(n3,n4)*q1(n5)*q1(n6)*q1(n7)
     &     + g(n1,n2)*g(n3,n5)*q1(n4)*q1(n6)*q1(n7)
     &     + g(n1,n2)*g(n3,n6)*q1(n4)*q1(n5)*q1(n7)
     &     + g(n1,n2)*g(n3,n7)*q1(n4)*q1(n5)*q1(n6)
     &     + g(n1,n2)*g(n4,n5)*q1(n3)*q1(n6)*q1(n7)
     &     + g(n1,n2)*g(n4,n6)*q1(n3)*q1(n5)*q1(n7)
     &     + g(n1,n2)*g(n4,n7)*q1(n3)*q1(n5)*q1(n6)
     &     + g(n1,n2)*g(n5,n6)*q1(n3)*q1(n4)*q1(n7)
     &     + g(n1,n2)*g(n5,n7)*q1(n3)*q1(n4)*q1(n6)
     &     + g(n1,n2)*g(n6,n7)*q1(n3)*q1(n4)*q1(n5)
     &     + g(n1,n3)*g(n2,n4)*q1(n5)*q1(n6)*q1(n7)
     &     + g(n1,n3)*g(n2,n5)*q1(n4)*q1(n6)*q1(n7)
     &     + g(n1,n3)*g(n2,n6)*q1(n4)*q1(n5)*q1(n7)
     &     + g(n1,n3)*g(n2,n7)*q1(n4)*q1(n5)*q1(n6)
     &     + g(n1,n3)*g(n4,n5)*q1(n2)*q1(n6)*q1(n7)
     &     + g(n1,n3)*g(n4,n6)*q1(n2)*q1(n5)*q1(n7)
     &     + g(n1,n3)*g(n4,n7)*q1(n2)*q1(n5)*q1(n6)
     &     + g(n1,n3)*g(n5,n6)*q1(n2)*q1(n4)*q1(n7)
     &     + g(n1,n3)*g(n5,n7)*q1(n2)*q1(n4)*q1(n6)
     &     + g(n1,n3)*g(n6,n7)*q1(n2)*q1(n4)*q1(n5)
     &     + g(n1,n4)*g(n2,n3)*q1(n5)*q1(n6)*q1(n7)
     &     + g(n1,n4)*g(n2,n5)*q1(n3)*q1(n6)*q1(n7)
     &     + g(n1,n4)*g(n2,n6)*q1(n3)*q1(n5)*q1(n7)
     &     + g(n1,n4)*g(n2,n7)*q1(n3)*q1(n5)*q1(n6)
     &     + g(n1,n4)*g(n3,n5)*q1(n2)*q1(n6)*q1(n7)
     &     + g(n1,n4)*g(n3,n6)*q1(n2)*q1(n5)*q1(n7)
     &     + g(n1,n4)*g(n3,n7)*q1(n2)*q1(n5)*q1(n6)
     &     + g(n1,n4)*g(n5,n6)*q1(n2)*q1(n3)*q1(n7)
     &     + g(n1,n4)*g(n5,n7)*q1(n2)*q1(n3)*q1(n6)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &    + Cv(cc0000111 + C0i,ep) * (
     &     + g(n1,n4)*g(n6,n7)*q1(n2)*q1(n3)*q1(n5)
     &     + g(n1,n5)*g(n2,n3)*q1(n4)*q1(n6)*q1(n7)
     &     + g(n1,n5)*g(n2,n4)*q1(n3)*q1(n6)*q1(n7)
     &     + g(n1,n5)*g(n2,n6)*q1(n3)*q1(n4)*q1(n7)
     &     + g(n1,n5)*g(n2,n7)*q1(n3)*q1(n4)*q1(n6)
     &     + g(n1,n5)*g(n3,n4)*q1(n2)*q1(n6)*q1(n7)
     &     + g(n1,n5)*g(n3,n6)*q1(n2)*q1(n4)*q1(n7)
     &     + g(n1,n5)*g(n3,n7)*q1(n2)*q1(n4)*q1(n6)
     &     + g(n1,n5)*g(n4,n6)*q1(n2)*q1(n3)*q1(n7)
     &     + g(n1,n5)*g(n4,n7)*q1(n2)*q1(n3)*q1(n6)
     &     + g(n1,n5)*g(n6,n7)*q1(n2)*q1(n3)*q1(n4)
     &     + g(n1,n6)*g(n2,n3)*q1(n4)*q1(n5)*q1(n7)
     &     + g(n1,n6)*g(n2,n4)*q1(n3)*q1(n5)*q1(n7)
     &     + g(n1,n6)*g(n2,n5)*q1(n3)*q1(n4)*q1(n7)
     &     + g(n1,n6)*g(n2,n7)*q1(n3)*q1(n4)*q1(n5)
     &     + g(n1,n6)*g(n3,n4)*q1(n2)*q1(n5)*q1(n7)
     &     + g(n1,n6)*g(n3,n5)*q1(n2)*q1(n4)*q1(n7)
     &     + g(n1,n6)*g(n3,n7)*q1(n2)*q1(n4)*q1(n5)
     &     + g(n1,n6)*g(n4,n5)*q1(n2)*q1(n3)*q1(n7)
     &     + g(n1,n6)*g(n4,n7)*q1(n2)*q1(n3)*q1(n5)
     &     + g(n1,n6)*g(n5,n7)*q1(n2)*q1(n3)*q1(n4)
     &     + g(n1,n7)*g(n2,n3)*q1(n4)*q1(n5)*q1(n6)
     &     + g(n1,n7)*g(n2,n4)*q1(n3)*q1(n5)*q1(n6)
     &     + g(n1,n7)*g(n2,n5)*q1(n3)*q1(n4)*q1(n6)
     &     + g(n1,n7)*g(n2,n6)*q1(n3)*q1(n4)*q1(n5)
     &     + g(n1,n7)*g(n3,n4)*q1(n2)*q1(n5)*q1(n6)
     &     + g(n1,n7)*g(n3,n5)*q1(n2)*q1(n4)*q1(n6)
     &     + g(n1,n7)*g(n3,n6)*q1(n2)*q1(n4)*q1(n5)
     &     + g(n1,n7)*g(n4,n5)*q1(n2)*q1(n3)*q1(n6)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &   + Cv(cc0000111 + C0i,ep) * (
     &     + g(n1,n7)*g(n4,n6)*q1(n2)*q1(n3)*q1(n5)
     &     + g(n1,n7)*g(n5,n6)*q1(n2)*q1(n3)*q1(n4)
     &     + g(n2,n3)*g(n4,n5)*q1(n1)*q1(n6)*q1(n7)
     &     + g(n2,n3)*g(n4,n6)*q1(n1)*q1(n5)*q1(n7)
     &     + g(n2,n3)*g(n4,n7)*q1(n1)*q1(n5)*q1(n6)
     &     + g(n2,n3)*g(n5,n6)*q1(n1)*q1(n4)*q1(n7)
     &     + g(n2,n3)*g(n5,n7)*q1(n1)*q1(n4)*q1(n6)
     &     + g(n2,n3)*g(n6,n7)*q1(n1)*q1(n4)*q1(n5)
     &     + g(n2,n4)*g(n3,n5)*q1(n1)*q1(n6)*q1(n7)
     &     + g(n2,n4)*g(n3,n6)*q1(n1)*q1(n5)*q1(n7)
     &     + g(n2,n4)*g(n3,n7)*q1(n1)*q1(n5)*q1(n6)
     &     + g(n2,n4)*g(n5,n6)*q1(n1)*q1(n3)*q1(n7)
     &     + g(n2,n4)*g(n5,n7)*q1(n1)*q1(n3)*q1(n6)
     &     + g(n2,n4)*g(n6,n7)*q1(n1)*q1(n3)*q1(n5)
     &     + g(n2,n5)*g(n3,n4)*q1(n1)*q1(n6)*q1(n7)
     &     + g(n2,n5)*g(n3,n6)*q1(n1)*q1(n4)*q1(n7)
     &     + g(n2,n5)*g(n3,n7)*q1(n1)*q1(n4)*q1(n6)
     &     + g(n2,n5)*g(n4,n6)*q1(n1)*q1(n3)*q1(n7)
     &     + g(n2,n5)*g(n4,n7)*q1(n1)*q1(n3)*q1(n6)
     &     + g(n2,n5)*g(n6,n7)*q1(n1)*q1(n3)*q1(n4)
     &     + g(n2,n6)*g(n3,n4)*q1(n1)*q1(n5)*q1(n7)
     &     + g(n2,n6)*g(n3,n5)*q1(n1)*q1(n4)*q1(n7)
     &     + g(n2,n6)*g(n3,n7)*q1(n1)*q1(n4)*q1(n5)
     &     + g(n2,n6)*g(n4,n5)*q1(n1)*q1(n3)*q1(n7)
     &     + g(n2,n6)*g(n4,n7)*q1(n1)*q1(n3)*q1(n5)
     &     + g(n2,n6)*g(n5,n7)*q1(n1)*q1(n3)*q1(n4)
     &     + g(n2,n7)*g(n3,n4)*q1(n1)*q1(n5)*q1(n6)
     &     + g(n2,n7)*g(n3,n5)*q1(n1)*q1(n4)*q1(n6)
     &     + g(n2,n7)*g(n3,n6)*q1(n1)*q1(n4)*q1(n5)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &  + Cv(cc0000111 + C0i,ep) * (
     &     + g(n2,n7)*g(n4,n5)*q1(n1)*q1(n3)*q1(n6)
     &     + g(n2,n7)*g(n4,n6)*q1(n1)*q1(n3)*q1(n5)
     &     + g(n2,n7)*g(n5,n6)*q1(n1)*q1(n3)*q1(n4)
     &     + g(n3,n4)*g(n5,n6)*q1(n1)*q1(n2)*q1(n7)
     &     + g(n3,n4)*g(n5,n7)*q1(n1)*q1(n2)*q1(n6)
     &     + g(n3,n4)*g(n6,n7)*q1(n1)*q1(n2)*q1(n5)
     &     + g(n3,n5)*g(n4,n6)*q1(n1)*q1(n2)*q1(n7)
     &     + g(n3,n5)*g(n4,n7)*q1(n1)*q1(n2)*q1(n6)
     &     + g(n3,n5)*g(n6,n7)*q1(n1)*q1(n2)*q1(n4)
     &     + g(n3,n6)*g(n4,n5)*q1(n1)*q1(n2)*q1(n7)
     &     + g(n3,n6)*g(n4,n7)*q1(n1)*q1(n2)*q1(n5)
     &     + g(n3,n6)*g(n5,n7)*q1(n1)*q1(n2)*q1(n4)
     &     + g(n3,n7)*g(n4,n5)*q1(n1)*q1(n2)*q1(n6)
     &     + g(n3,n7)*g(n4,n6)*q1(n1)*q1(n2)*q1(n5)
     &     + g(n3,n7)*g(n5,n6)*q1(n1)*q1(n2)*q1(n4)
     &     + g(n4,n5)*g(n6,n7)*q1(n1)*q1(n2)*q1(n3)
     &     + g(n4,n6)*g(n5,n7)*q1(n1)*q1(n2)*q1(n3)
     &     + g(n4,n7)*g(n5,n6)*q1(n1)*q1(n2)*q1(n3)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &   + Cv(cc0000112 + C0i,ep) * (
     &     + g(n1,n2)*g(n3,n4)*q1(n5)*q1(n6)*q2(n7)
     &     + g(n1,n2)*g(n3,n4)*q1(n5)*q1(n7)*q2(n6)
     &     + g(n1,n2)*g(n3,n4)*q1(n6)*q1(n7)*q2(n5)
     &     + g(n1,n2)*g(n3,n5)*q1(n4)*q1(n6)*q2(n7)
     &     + g(n1,n2)*g(n3,n5)*q1(n4)*q1(n7)*q2(n6)
     &     + g(n1,n2)*g(n3,n5)*q1(n6)*q1(n7)*q2(n4)
     &     + g(n1,n2)*g(n3,n6)*q1(n4)*q1(n5)*q2(n7)
     &     + g(n1,n2)*g(n3,n6)*q1(n4)*q1(n7)*q2(n5)
     &     + g(n1,n2)*g(n3,n6)*q1(n5)*q1(n7)*q2(n4)
     &     + g(n1,n2)*g(n3,n7)*q1(n4)*q1(n5)*q2(n6)
     &     + g(n1,n2)*g(n3,n7)*q1(n4)*q1(n6)*q2(n5)
     &     + g(n1,n2)*g(n3,n7)*q1(n5)*q1(n6)*q2(n4)
     &     + g(n1,n2)*g(n4,n5)*q1(n3)*q1(n6)*q2(n7)
     &     + g(n1,n2)*g(n4,n5)*q1(n3)*q1(n7)*q2(n6)
     &     + g(n1,n2)*g(n4,n5)*q1(n6)*q1(n7)*q2(n3)
     &     + g(n1,n2)*g(n4,n6)*q1(n3)*q1(n5)*q2(n7)
     &     + g(n1,n2)*g(n4,n6)*q1(n3)*q1(n7)*q2(n5)
     &     + g(n1,n2)*g(n4,n6)*q1(n5)*q1(n7)*q2(n3)
     &     + g(n1,n2)*g(n4,n7)*q1(n3)*q1(n5)*q2(n6)
     &     + g(n1,n2)*g(n4,n7)*q1(n3)*q1(n6)*q2(n5)
     &     + g(n1,n2)*g(n4,n7)*q1(n5)*q1(n6)*q2(n3)
     &     + g(n1,n2)*g(n5,n6)*q1(n3)*q1(n4)*q2(n7)
     &     + g(n1,n2)*g(n5,n6)*q1(n3)*q1(n7)*q2(n4)
     &     + g(n1,n2)*g(n5,n6)*q1(n4)*q1(n7)*q2(n3)
     &     + g(n1,n2)*g(n5,n7)*q1(n3)*q1(n4)*q2(n6)
     &     + g(n1,n2)*g(n5,n7)*q1(n3)*q1(n6)*q2(n4)
     &     + g(n1,n2)*g(n5,n7)*q1(n4)*q1(n6)*q2(n3)
     &     + g(n1,n2)*g(n6,n7)*q1(n3)*q1(n4)*q2(n5)
     &     + g(n1,n2)*g(n6,n7)*q1(n3)*q1(n5)*q2(n4)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &  + Cv(cc0000112 + C0i,ep) * (
     &     + g(n1,n2)*g(n6,n7)*q1(n4)*q1(n5)*q2(n3)
     &     + g(n1,n3)*g(n2,n4)*q1(n5)*q1(n6)*q2(n7)
     &     + g(n1,n3)*g(n2,n4)*q1(n5)*q1(n7)*q2(n6)
     &     + g(n1,n3)*g(n2,n4)*q1(n6)*q1(n7)*q2(n5)
     &     + g(n1,n3)*g(n2,n5)*q1(n4)*q1(n6)*q2(n7)
     &     + g(n1,n3)*g(n2,n5)*q1(n4)*q1(n7)*q2(n6)
     &     + g(n1,n3)*g(n2,n5)*q1(n6)*q1(n7)*q2(n4)
     &     + g(n1,n3)*g(n2,n6)*q1(n4)*q1(n5)*q2(n7)
     &     + g(n1,n3)*g(n2,n6)*q1(n4)*q1(n7)*q2(n5)
     &     + g(n1,n3)*g(n2,n6)*q1(n5)*q1(n7)*q2(n4)
     &     + g(n1,n3)*g(n2,n7)*q1(n4)*q1(n5)*q2(n6)
     &     + g(n1,n3)*g(n2,n7)*q1(n4)*q1(n6)*q2(n5)
     &     + g(n1,n3)*g(n2,n7)*q1(n5)*q1(n6)*q2(n4)
     &     + g(n1,n3)*g(n4,n5)*q1(n2)*q1(n6)*q2(n7)
     &     + g(n1,n3)*g(n4,n5)*q1(n2)*q1(n7)*q2(n6)
     &     + g(n1,n3)*g(n4,n5)*q1(n6)*q1(n7)*q2(n2)
     &     + g(n1,n3)*g(n4,n6)*q1(n2)*q1(n5)*q2(n7)
     &     + g(n1,n3)*g(n4,n6)*q1(n2)*q1(n7)*q2(n5)
     &     + g(n1,n3)*g(n4,n6)*q1(n5)*q1(n7)*q2(n2)
     &     + g(n1,n3)*g(n4,n7)*q1(n2)*q1(n5)*q2(n6)
     &     + g(n1,n3)*g(n4,n7)*q1(n2)*q1(n6)*q2(n5)
     &     + g(n1,n3)*g(n4,n7)*q1(n5)*q1(n6)*q2(n2)
     &     + g(n1,n3)*g(n5,n6)*q1(n2)*q1(n4)*q2(n7)
     &     + g(n1,n3)*g(n5,n6)*q1(n2)*q1(n7)*q2(n4)
     &     + g(n1,n3)*g(n5,n6)*q1(n4)*q1(n7)*q2(n2)
     &     + g(n1,n3)*g(n5,n7)*q1(n2)*q1(n4)*q2(n6)
     &     + g(n1,n3)*g(n5,n7)*q1(n2)*q1(n6)*q2(n4)
     &     + g(n1,n3)*g(n5,n7)*q1(n4)*q1(n6)*q2(n2)
     &     + g(n1,n3)*g(n6,n7)*q1(n2)*q1(n4)*q2(n5)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &  + Cv(cc0000112 + C0i,ep) * (
     &     + g(n1,n3)*g(n6,n7)*q1(n2)*q1(n5)*q2(n4)
     &     + g(n1,n3)*g(n6,n7)*q1(n4)*q1(n5)*q2(n2)
     &     + g(n1,n4)*g(n2,n3)*q1(n5)*q1(n6)*q2(n7)
     &     + g(n1,n4)*g(n2,n3)*q1(n5)*q1(n7)*q2(n6)
     &     + g(n1,n4)*g(n2,n3)*q1(n6)*q1(n7)*q2(n5)
     &     + g(n1,n4)*g(n2,n5)*q1(n3)*q1(n6)*q2(n7)
     &     + g(n1,n4)*g(n2,n5)*q1(n3)*q1(n7)*q2(n6)
     &     + g(n1,n4)*g(n2,n5)*q1(n6)*q1(n7)*q2(n3)
     &     + g(n1,n4)*g(n2,n6)*q1(n3)*q1(n5)*q2(n7)
     &     + g(n1,n4)*g(n2,n6)*q1(n3)*q1(n7)*q2(n5)
     &     + g(n1,n4)*g(n2,n6)*q1(n5)*q1(n7)*q2(n3)
     &     + g(n1,n4)*g(n2,n7)*q1(n3)*q1(n5)*q2(n6)
     &     + g(n1,n4)*g(n2,n7)*q1(n3)*q1(n6)*q2(n5)
     &     + g(n1,n4)*g(n2,n7)*q1(n5)*q1(n6)*q2(n3)
     &     + g(n1,n4)*g(n3,n5)*q1(n2)*q1(n6)*q2(n7)
     &     + g(n1,n4)*g(n3,n5)*q1(n2)*q1(n7)*q2(n6)
     &     + g(n1,n4)*g(n3,n5)*q1(n6)*q1(n7)*q2(n2)
     &     + g(n1,n4)*g(n3,n6)*q1(n2)*q1(n5)*q2(n7)
     &     + g(n1,n4)*g(n3,n6)*q1(n2)*q1(n7)*q2(n5)
     &     + g(n1,n4)*g(n3,n6)*q1(n5)*q1(n7)*q2(n2)
     &     + g(n1,n4)*g(n3,n7)*q1(n2)*q1(n5)*q2(n6)
     &     + g(n1,n4)*g(n3,n7)*q1(n2)*q1(n6)*q2(n5)
     &     + g(n1,n4)*g(n3,n7)*q1(n5)*q1(n6)*q2(n2)
     &     + g(n1,n4)*g(n5,n6)*q1(n2)*q1(n3)*q2(n7)
     &     + g(n1,n4)*g(n5,n6)*q1(n2)*q1(n7)*q2(n3)
     &     + g(n1,n4)*g(n5,n6)*q1(n3)*q1(n7)*q2(n2)
     &     + g(n1,n4)*g(n5,n7)*q1(n2)*q1(n3)*q2(n6)
     &     + g(n1,n4)*g(n5,n7)*q1(n2)*q1(n6)*q2(n3)
     &     + g(n1,n4)*g(n5,n7)*q1(n3)*q1(n6)*q2(n2)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &   + Cv(cc0000112 + C0i,ep) * (
     &     + g(n1,n4)*g(n6,n7)*q1(n2)*q1(n3)*q2(n5)
     &     + g(n1,n4)*g(n6,n7)*q1(n2)*q1(n5)*q2(n3)
     &     + g(n1,n4)*g(n6,n7)*q1(n3)*q1(n5)*q2(n2)
     &     + g(n1,n5)*g(n2,n3)*q1(n4)*q1(n6)*q2(n7)
     &     + g(n1,n5)*g(n2,n3)*q1(n4)*q1(n7)*q2(n6)
     &     + g(n1,n5)*g(n2,n3)*q1(n6)*q1(n7)*q2(n4)
     &     + g(n1,n5)*g(n2,n4)*q1(n3)*q1(n6)*q2(n7)
     &     + g(n1,n5)*g(n2,n4)*q1(n3)*q1(n7)*q2(n6)
     &     + g(n1,n5)*g(n2,n4)*q1(n6)*q1(n7)*q2(n3)
     &     + g(n1,n5)*g(n2,n6)*q1(n3)*q1(n4)*q2(n7)
     &     + g(n1,n5)*g(n2,n6)*q1(n3)*q1(n7)*q2(n4)
     &     + g(n1,n5)*g(n2,n6)*q1(n4)*q1(n7)*q2(n3)
     &     + g(n1,n5)*g(n2,n7)*q1(n3)*q1(n4)*q2(n6)
     &     + g(n1,n5)*g(n2,n7)*q1(n3)*q1(n6)*q2(n4)
     &     + g(n1,n5)*g(n2,n7)*q1(n4)*q1(n6)*q2(n3)
     &     + g(n1,n5)*g(n3,n4)*q1(n2)*q1(n6)*q2(n7)
     &     + g(n1,n5)*g(n3,n4)*q1(n2)*q1(n7)*q2(n6)
     &     + g(n1,n5)*g(n3,n4)*q1(n6)*q1(n7)*q2(n2)
     &     + g(n1,n5)*g(n3,n6)*q1(n2)*q1(n4)*q2(n7)
     &     + g(n1,n5)*g(n3,n6)*q1(n2)*q1(n7)*q2(n4)
     &     + g(n1,n5)*g(n3,n6)*q1(n4)*q1(n7)*q2(n2)
     &     + g(n1,n5)*g(n3,n7)*q1(n2)*q1(n4)*q2(n6)
     &     + g(n1,n5)*g(n3,n7)*q1(n2)*q1(n6)*q2(n4)
     &     + g(n1,n5)*g(n3,n7)*q1(n4)*q1(n6)*q2(n2)
     &     + g(n1,n5)*g(n4,n6)*q1(n2)*q1(n3)*q2(n7)
     &     + g(n1,n5)*g(n4,n6)*q1(n2)*q1(n7)*q2(n3)
     &     + g(n1,n5)*g(n4,n6)*q1(n3)*q1(n7)*q2(n2)
     &     + g(n1,n5)*g(n4,n7)*q1(n2)*q1(n3)*q2(n6)
     &     + g(n1,n5)*g(n4,n7)*q1(n2)*q1(n6)*q2(n3)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &  + Cv(cc0000112 + C0i,ep) * (
     &     + g(n1,n5)*g(n4,n7)*q1(n3)*q1(n6)*q2(n2)
     &     + g(n1,n5)*g(n6,n7)*q1(n2)*q1(n3)*q2(n4)
     &     + g(n1,n5)*g(n6,n7)*q1(n2)*q1(n4)*q2(n3)
     &     + g(n1,n5)*g(n6,n7)*q1(n3)*q1(n4)*q2(n2)
     &     + g(n1,n6)*g(n2,n3)*q1(n4)*q1(n5)*q2(n7)
     &     + g(n1,n6)*g(n2,n3)*q1(n4)*q1(n7)*q2(n5)
     &     + g(n1,n6)*g(n2,n3)*q1(n5)*q1(n7)*q2(n4)
     &     + g(n1,n6)*g(n2,n4)*q1(n3)*q1(n5)*q2(n7)
     &     + g(n1,n6)*g(n2,n4)*q1(n3)*q1(n7)*q2(n5)
     &     + g(n1,n6)*g(n2,n4)*q1(n5)*q1(n7)*q2(n3)
     &     + g(n1,n6)*g(n2,n5)*q1(n3)*q1(n4)*q2(n7)
     &     + g(n1,n6)*g(n2,n5)*q1(n3)*q1(n7)*q2(n4)
     &     + g(n1,n6)*g(n2,n5)*q1(n4)*q1(n7)*q2(n3)
     &     + g(n1,n6)*g(n2,n7)*q1(n3)*q1(n4)*q2(n5)
     &     + g(n1,n6)*g(n2,n7)*q1(n3)*q1(n5)*q2(n4)
     &     + g(n1,n6)*g(n2,n7)*q1(n4)*q1(n5)*q2(n3)
     &     + g(n1,n6)*g(n3,n4)*q1(n2)*q1(n5)*q2(n7)
     &     + g(n1,n6)*g(n3,n4)*q1(n2)*q1(n7)*q2(n5)
     &     + g(n1,n6)*g(n3,n4)*q1(n5)*q1(n7)*q2(n2)
     &     + g(n1,n6)*g(n3,n5)*q1(n2)*q1(n4)*q2(n7)
     &     + g(n1,n6)*g(n3,n5)*q1(n2)*q1(n7)*q2(n4)
     &     + g(n1,n6)*g(n3,n5)*q1(n4)*q1(n7)*q2(n2)
     &     + g(n1,n6)*g(n3,n7)*q1(n2)*q1(n4)*q2(n5)
     &     + g(n1,n6)*g(n3,n7)*q1(n2)*q1(n5)*q2(n4)
     &     + g(n1,n6)*g(n3,n7)*q1(n4)*q1(n5)*q2(n2)
     &     + g(n1,n6)*g(n4,n5)*q1(n2)*q1(n3)*q2(n7)
     &     + g(n1,n6)*g(n4,n5)*q1(n2)*q1(n7)*q2(n3)
     &     + g(n1,n6)*g(n4,n5)*q1(n3)*q1(n7)*q2(n2)
     &     + g(n1,n6)*g(n4,n7)*q1(n2)*q1(n3)*q2(n5)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &  + Cv(cc0000112 + C0i,ep) * (
     &     + g(n1,n6)*g(n4,n7)*q1(n2)*q1(n5)*q2(n3)
     &     + g(n1,n6)*g(n4,n7)*q1(n3)*q1(n5)*q2(n2)
     &     + g(n1,n6)*g(n5,n7)*q1(n2)*q1(n3)*q2(n4)
     &     + g(n1,n6)*g(n5,n7)*q1(n2)*q1(n4)*q2(n3)
     &     + g(n1,n6)*g(n5,n7)*q1(n3)*q1(n4)*q2(n2)
     &     + g(n1,n7)*g(n2,n3)*q1(n4)*q1(n5)*q2(n6)
     &     + g(n1,n7)*g(n2,n3)*q1(n4)*q1(n6)*q2(n5)
     &     + g(n1,n7)*g(n2,n3)*q1(n5)*q1(n6)*q2(n4)
     &     + g(n1,n7)*g(n2,n4)*q1(n3)*q1(n5)*q2(n6)
     &     + g(n1,n7)*g(n2,n4)*q1(n3)*q1(n6)*q2(n5)
     &     + g(n1,n7)*g(n2,n4)*q1(n5)*q1(n6)*q2(n3)
     &     + g(n1,n7)*g(n2,n5)*q1(n3)*q1(n4)*q2(n6)
     &     + g(n1,n7)*g(n2,n5)*q1(n3)*q1(n6)*q2(n4)
     &     + g(n1,n7)*g(n2,n5)*q1(n4)*q1(n6)*q2(n3)
     &     + g(n1,n7)*g(n2,n6)*q1(n3)*q1(n4)*q2(n5)
     &     + g(n1,n7)*g(n2,n6)*q1(n3)*q1(n5)*q2(n4)
     &     + g(n1,n7)*g(n2,n6)*q1(n4)*q1(n5)*q2(n3)
     &     + g(n1,n7)*g(n3,n4)*q1(n2)*q1(n5)*q2(n6)
     &     + g(n1,n7)*g(n3,n4)*q1(n2)*q1(n6)*q2(n5)
     &     + g(n1,n7)*g(n3,n4)*q1(n5)*q1(n6)*q2(n2)
     &     + g(n1,n7)*g(n3,n5)*q1(n2)*q1(n4)*q2(n6)
     &     + g(n1,n7)*g(n3,n5)*q1(n2)*q1(n6)*q2(n4)
     &     + g(n1,n7)*g(n3,n5)*q1(n4)*q1(n6)*q2(n2)
     &     + g(n1,n7)*g(n3,n6)*q1(n2)*q1(n4)*q2(n5)
     &     + g(n1,n7)*g(n3,n6)*q1(n2)*q1(n5)*q2(n4)
     &     + g(n1,n7)*g(n3,n6)*q1(n4)*q1(n5)*q2(n2)
     &     + g(n1,n7)*g(n4,n5)*q1(n2)*q1(n3)*q2(n6)
     &     + g(n1,n7)*g(n4,n5)*q1(n2)*q1(n6)*q2(n3)
     &     + g(n1,n7)*g(n4,n5)*q1(n3)*q1(n6)*q2(n2)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &  + Cv(cc0000112 + C0i,ep) * (
     &     + g(n1,n7)*g(n4,n6)*q1(n2)*q1(n3)*q2(n5)
     &     + g(n1,n7)*g(n4,n6)*q1(n2)*q1(n5)*q2(n3)
     &     + g(n1,n7)*g(n4,n6)*q1(n3)*q1(n5)*q2(n2)
     &     + g(n1,n7)*g(n5,n6)*q1(n2)*q1(n3)*q2(n4)
     &     + g(n1,n7)*g(n5,n6)*q1(n2)*q1(n4)*q2(n3)
     &     + g(n1,n7)*g(n5,n6)*q1(n3)*q1(n4)*q2(n2)
     &     + g(n2,n3)*g(n4,n5)*q1(n1)*q1(n6)*q2(n7)
     &     + g(n2,n3)*g(n4,n5)*q1(n1)*q1(n7)*q2(n6)
     &     + g(n2,n3)*g(n4,n5)*q1(n6)*q1(n7)*q2(n1)
     &     + g(n2,n3)*g(n4,n6)*q1(n1)*q1(n5)*q2(n7)
     &     + g(n2,n3)*g(n4,n6)*q1(n1)*q1(n7)*q2(n5)
     &     + g(n2,n3)*g(n4,n6)*q1(n5)*q1(n7)*q2(n1)
     &     + g(n2,n3)*g(n4,n7)*q1(n1)*q1(n5)*q2(n6)
     &     + g(n2,n3)*g(n4,n7)*q1(n1)*q1(n6)*q2(n5)
     &     + g(n2,n3)*g(n4,n7)*q1(n5)*q1(n6)*q2(n1)
     &     + g(n2,n3)*g(n5,n6)*q1(n1)*q1(n4)*q2(n7)
     &     + g(n2,n3)*g(n5,n6)*q1(n1)*q1(n7)*q2(n4)
     &     + g(n2,n3)*g(n5,n6)*q1(n4)*q1(n7)*q2(n1)
     &     + g(n2,n3)*g(n5,n7)*q1(n1)*q1(n4)*q2(n6)
     &     + g(n2,n3)*g(n5,n7)*q1(n1)*q1(n6)*q2(n4)
     &     + g(n2,n3)*g(n5,n7)*q1(n4)*q1(n6)*q2(n1)
     &     + g(n2,n3)*g(n6,n7)*q1(n1)*q1(n4)*q2(n5)
     &     + g(n2,n3)*g(n6,n7)*q1(n1)*q1(n5)*q2(n4)
     &     + g(n2,n3)*g(n6,n7)*q1(n4)*q1(n5)*q2(n1)
     &     + g(n2,n4)*g(n3,n5)*q1(n1)*q1(n6)*q2(n7)
     &     + g(n2,n4)*g(n3,n5)*q1(n1)*q1(n7)*q2(n6)
     &     + g(n2,n4)*g(n3,n5)*q1(n6)*q1(n7)*q2(n1)
     &     + g(n2,n4)*g(n3,n6)*q1(n1)*q1(n5)*q2(n7)
     &     + g(n2,n4)*g(n3,n6)*q1(n1)*q1(n7)*q2(n5)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &  + Cv(cc0000112 + C0i,ep) * (
     &     + g(n2,n4)*g(n3,n6)*q1(n5)*q1(n7)*q2(n1)
     &     + g(n2,n4)*g(n3,n7)*q1(n1)*q1(n5)*q2(n6)
     &     + g(n2,n4)*g(n3,n7)*q1(n1)*q1(n6)*q2(n5)
     &     + g(n2,n4)*g(n3,n7)*q1(n5)*q1(n6)*q2(n1)
     &     + g(n2,n4)*g(n5,n6)*q1(n1)*q1(n3)*q2(n7)
     &     + g(n2,n4)*g(n5,n6)*q1(n1)*q1(n7)*q2(n3)
     &     + g(n2,n4)*g(n5,n6)*q1(n3)*q1(n7)*q2(n1)
     &     + g(n2,n4)*g(n5,n7)*q1(n1)*q1(n3)*q2(n6)
     &     + g(n2,n4)*g(n5,n7)*q1(n1)*q1(n6)*q2(n3)
     &     + g(n2,n4)*g(n5,n7)*q1(n3)*q1(n6)*q2(n1)
     &     + g(n2,n4)*g(n6,n7)*q1(n1)*q1(n3)*q2(n5)
     &     + g(n2,n4)*g(n6,n7)*q1(n1)*q1(n5)*q2(n3)
     &     + g(n2,n4)*g(n6,n7)*q1(n3)*q1(n5)*q2(n1)
     &     + g(n2,n5)*g(n3,n4)*q1(n1)*q1(n6)*q2(n7)
     &     + g(n2,n5)*g(n3,n4)*q1(n1)*q1(n7)*q2(n6)
     &     + g(n2,n5)*g(n3,n4)*q1(n6)*q1(n7)*q2(n1)
     &     + g(n2,n5)*g(n3,n6)*q1(n1)*q1(n4)*q2(n7)
     &     + g(n2,n5)*g(n3,n6)*q1(n1)*q1(n7)*q2(n4)
     &     + g(n2,n5)*g(n3,n6)*q1(n4)*q1(n7)*q2(n1)
     &     + g(n2,n5)*g(n3,n7)*q1(n1)*q1(n4)*q2(n6)
     &     + g(n2,n5)*g(n3,n7)*q1(n1)*q1(n6)*q2(n4)
     &     + g(n2,n5)*g(n3,n7)*q1(n4)*q1(n6)*q2(n1)
     &     + g(n2,n5)*g(n4,n6)*q1(n1)*q1(n3)*q2(n7)
     &     + g(n2,n5)*g(n4,n6)*q1(n1)*q1(n7)*q2(n3)
     &     + g(n2,n5)*g(n4,n6)*q1(n3)*q1(n7)*q2(n1)
     &     + g(n2,n5)*g(n4,n7)*q1(n1)*q1(n3)*q2(n6)
     &     + g(n2,n5)*g(n4,n7)*q1(n1)*q1(n6)*q2(n3)
     &     + g(n2,n5)*g(n4,n7)*q1(n3)*q1(n6)*q2(n1)
     &     + g(n2,n5)*g(n6,n7)*q1(n1)*q1(n3)*q2(n4)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &  + Cv(cc0000112 + C0i,ep) * (
     &     + g(n2,n5)*g(n6,n7)*q1(n1)*q1(n4)*q2(n3)
     &     + g(n2,n5)*g(n6,n7)*q1(n3)*q1(n4)*q2(n1)
     &     + g(n2,n6)*g(n3,n4)*q1(n1)*q1(n5)*q2(n7)
     &     + g(n2,n6)*g(n3,n4)*q1(n1)*q1(n7)*q2(n5)
     &     + g(n2,n6)*g(n3,n4)*q1(n5)*q1(n7)*q2(n1)
     &     + g(n2,n6)*g(n3,n5)*q1(n1)*q1(n4)*q2(n7)
     &     + g(n2,n6)*g(n3,n5)*q1(n1)*q1(n7)*q2(n4)
     &     + g(n2,n6)*g(n3,n5)*q1(n4)*q1(n7)*q2(n1)
     &     + g(n2,n6)*g(n3,n7)*q1(n1)*q1(n4)*q2(n5)
     &     + g(n2,n6)*g(n3,n7)*q1(n1)*q1(n5)*q2(n4)
     &     + g(n2,n6)*g(n3,n7)*q1(n4)*q1(n5)*q2(n1)
     &     + g(n2,n6)*g(n4,n5)*q1(n1)*q1(n3)*q2(n7)
     &     + g(n2,n6)*g(n4,n5)*q1(n1)*q1(n7)*q2(n3)
     &     + g(n2,n6)*g(n4,n5)*q1(n3)*q1(n7)*q2(n1)
     &     + g(n2,n6)*g(n4,n7)*q1(n1)*q1(n3)*q2(n5)
     &     + g(n2,n6)*g(n4,n7)*q1(n1)*q1(n5)*q2(n3)
     &     + g(n2,n6)*g(n4,n7)*q1(n3)*q1(n5)*q2(n1)
     &     + g(n2,n6)*g(n5,n7)*q1(n1)*q1(n3)*q2(n4)
     &     + g(n2,n6)*g(n5,n7)*q1(n1)*q1(n4)*q2(n3)
     &     + g(n2,n6)*g(n5,n7)*q1(n3)*q1(n4)*q2(n1)
     &     + g(n2,n7)*g(n3,n4)*q1(n1)*q1(n5)*q2(n6)
     &     + g(n2,n7)*g(n3,n4)*q1(n1)*q1(n6)*q2(n5)
     &     + g(n2,n7)*g(n3,n4)*q1(n5)*q1(n6)*q2(n1)
     &     + g(n2,n7)*g(n3,n5)*q1(n1)*q1(n4)*q2(n6)
     &     + g(n2,n7)*g(n3,n5)*q1(n1)*q1(n6)*q2(n4)
     &     + g(n2,n7)*g(n3,n5)*q1(n4)*q1(n6)*q2(n1)
     &     + g(n2,n7)*g(n3,n6)*q1(n1)*q1(n4)*q2(n5)
     &     + g(n2,n7)*g(n3,n6)*q1(n1)*q1(n5)*q2(n4)
     &     + g(n2,n7)*g(n3,n6)*q1(n4)*q1(n5)*q2(n1)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &   + Cv(cc0000112 + C0i,ep) * (
     &     + g(n2,n7)*g(n4,n5)*q1(n1)*q1(n3)*q2(n6)
     &     + g(n2,n7)*g(n4,n5)*q1(n1)*q1(n6)*q2(n3)
     &     + g(n2,n7)*g(n4,n5)*q1(n3)*q1(n6)*q2(n1)
     &     + g(n2,n7)*g(n4,n6)*q1(n1)*q1(n3)*q2(n5)
     &     + g(n2,n7)*g(n4,n6)*q1(n1)*q1(n5)*q2(n3)
     &     + g(n2,n7)*g(n4,n6)*q1(n3)*q1(n5)*q2(n1)
     &     + g(n2,n7)*g(n5,n6)*q1(n1)*q1(n3)*q2(n4)
     &     + g(n2,n7)*g(n5,n6)*q1(n1)*q1(n4)*q2(n3)
     &     + g(n2,n7)*g(n5,n6)*q1(n3)*q1(n4)*q2(n1)
     &     + g(n3,n4)*g(n5,n6)*q1(n1)*q1(n2)*q2(n7)
     &     + g(n3,n4)*g(n5,n6)*q1(n1)*q1(n7)*q2(n2)
     &     + g(n3,n4)*g(n5,n6)*q1(n2)*q1(n7)*q2(n1)
     &     + g(n3,n4)*g(n5,n7)*q1(n1)*q1(n2)*q2(n6)
     &     + g(n3,n4)*g(n5,n7)*q1(n1)*q1(n6)*q2(n2)
     &     + g(n3,n4)*g(n5,n7)*q1(n2)*q1(n6)*q2(n1)
     &     + g(n3,n4)*g(n6,n7)*q1(n1)*q1(n2)*q2(n5)
     &     + g(n3,n4)*g(n6,n7)*q1(n1)*q1(n5)*q2(n2)
     &     + g(n3,n4)*g(n6,n7)*q1(n2)*q1(n5)*q2(n1)
     &     + g(n3,n5)*g(n4,n6)*q1(n1)*q1(n2)*q2(n7)
     &     + g(n3,n5)*g(n4,n6)*q1(n1)*q1(n7)*q2(n2)
     &     + g(n3,n5)*g(n4,n6)*q1(n2)*q1(n7)*q2(n1)
     &     + g(n3,n5)*g(n4,n7)*q1(n1)*q1(n2)*q2(n6)
     &     + g(n3,n5)*g(n4,n7)*q1(n1)*q1(n6)*q2(n2)
     &     + g(n3,n5)*g(n4,n7)*q1(n2)*q1(n6)*q2(n1)
     &     + g(n3,n5)*g(n6,n7)*q1(n1)*q1(n2)*q2(n4)
     &     + g(n3,n5)*g(n6,n7)*q1(n1)*q1(n4)*q2(n2)
     &     + g(n3,n5)*g(n6,n7)*q1(n2)*q1(n4)*q2(n1)
     &     + g(n3,n6)*g(n4,n5)*q1(n1)*q1(n2)*q2(n7)
     &     + g(n3,n6)*g(n4,n5)*q1(n1)*q1(n7)*q2(n2)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &  + Cv(cc0000112 + C0i,ep) * (
     &     + g(n3,n6)*g(n4,n5)*q1(n2)*q1(n7)*q2(n1)
     &     + g(n3,n6)*g(n4,n7)*q1(n1)*q1(n2)*q2(n5)
     &     + g(n3,n6)*g(n4,n7)*q1(n1)*q1(n5)*q2(n2)
     &     + g(n3,n6)*g(n4,n7)*q1(n2)*q1(n5)*q2(n1)
     &     + g(n3,n6)*g(n5,n7)*q1(n1)*q1(n2)*q2(n4)
     &     + g(n3,n6)*g(n5,n7)*q1(n1)*q1(n4)*q2(n2)
     &     + g(n3,n6)*g(n5,n7)*q1(n2)*q1(n4)*q2(n1)
     &     + g(n3,n7)*g(n4,n5)*q1(n1)*q1(n2)*q2(n6)
     &     + g(n3,n7)*g(n4,n5)*q1(n1)*q1(n6)*q2(n2)
     &     + g(n3,n7)*g(n4,n5)*q1(n2)*q1(n6)*q2(n1)
     &     + g(n3,n7)*g(n4,n6)*q1(n1)*q1(n2)*q2(n5)
     &     + g(n3,n7)*g(n4,n6)*q1(n1)*q1(n5)*q2(n2)
     &     + g(n3,n7)*g(n4,n6)*q1(n2)*q1(n5)*q2(n1)
     &     + g(n3,n7)*g(n5,n6)*q1(n1)*q1(n2)*q2(n4)
     &     + g(n3,n7)*g(n5,n6)*q1(n1)*q1(n4)*q2(n2)
     &     + g(n3,n7)*g(n5,n6)*q1(n2)*q1(n4)*q2(n1)
     &     + g(n4,n5)*g(n6,n7)*q1(n1)*q1(n2)*q2(n3)
     &     + g(n4,n5)*g(n6,n7)*q1(n1)*q1(n3)*q2(n2)
     &     + g(n4,n5)*g(n6,n7)*q1(n2)*q1(n3)*q2(n1)
     &     + g(n4,n6)*g(n5,n7)*q1(n1)*q1(n2)*q2(n3)
     &     + g(n4,n6)*g(n5,n7)*q1(n1)*q1(n3)*q2(n2)
     &     + g(n4,n6)*g(n5,n7)*q1(n2)*q1(n3)*q2(n1)
     &     + g(n4,n7)*g(n5,n6)*q1(n1)*q1(n2)*q2(n3)
     &     + g(n4,n7)*g(n5,n6)*q1(n1)*q1(n3)*q2(n2)
     &     + g(n4,n7)*g(n5,n6)*q1(n2)*q1(n3)*q2(n1)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &  + Cv(cc0000122 + C0i,ep) * (
     &     + g(n1,n2)*g(n3,n4)*q1(n5)*q2(n6)*q2(n7)
     &     + g(n1,n2)*g(n3,n4)*q1(n6)*q2(n5)*q2(n7)
     &     + g(n1,n2)*g(n3,n4)*q1(n7)*q2(n5)*q2(n6)
     &     + g(n1,n2)*g(n3,n5)*q1(n4)*q2(n6)*q2(n7)
     &     + g(n1,n2)*g(n3,n5)*q1(n6)*q2(n4)*q2(n7)
     &     + g(n1,n2)*g(n3,n5)*q1(n7)*q2(n4)*q2(n6)
     &     + g(n1,n2)*g(n3,n6)*q1(n4)*q2(n5)*q2(n7)
     &     + g(n1,n2)*g(n3,n6)*q1(n5)*q2(n4)*q2(n7)
     &     + g(n1,n2)*g(n3,n6)*q1(n7)*q2(n4)*q2(n5)
     &     + g(n1,n2)*g(n3,n7)*q1(n4)*q2(n5)*q2(n6)
     &     + g(n1,n2)*g(n3,n7)*q1(n5)*q2(n4)*q2(n6)
     &     + g(n1,n2)*g(n3,n7)*q1(n6)*q2(n4)*q2(n5)
     &     + g(n1,n2)*g(n4,n5)*q1(n3)*q2(n6)*q2(n7)
     &     + g(n1,n2)*g(n4,n5)*q1(n6)*q2(n3)*q2(n7)
     &     + g(n1,n2)*g(n4,n5)*q1(n7)*q2(n3)*q2(n6)
     &     + g(n1,n2)*g(n4,n6)*q1(n3)*q2(n5)*q2(n7)
     &     + g(n1,n2)*g(n4,n6)*q1(n5)*q2(n3)*q2(n7)
     &     + g(n1,n2)*g(n4,n6)*q1(n7)*q2(n3)*q2(n5)
     &     + g(n1,n2)*g(n4,n7)*q1(n3)*q2(n5)*q2(n6)
     &     + g(n1,n2)*g(n4,n7)*q1(n5)*q2(n3)*q2(n6)
     &     + g(n1,n2)*g(n4,n7)*q1(n6)*q2(n3)*q2(n5)
     &     + g(n1,n2)*g(n5,n6)*q1(n3)*q2(n4)*q2(n7)
     &     + g(n1,n2)*g(n5,n6)*q1(n4)*q2(n3)*q2(n7)
     &     + g(n1,n2)*g(n5,n6)*q1(n7)*q2(n3)*q2(n4)
     &     + g(n1,n2)*g(n5,n7)*q1(n3)*q2(n4)*q2(n6)
     &     + g(n1,n2)*g(n5,n7)*q1(n4)*q2(n3)*q2(n6)
     &     + g(n1,n2)*g(n5,n7)*q1(n6)*q2(n3)*q2(n4)
     &     + g(n1,n2)*g(n6,n7)*q1(n3)*q2(n4)*q2(n5)
     &     + g(n1,n2)*g(n6,n7)*q1(n4)*q2(n3)*q2(n5)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &  + Cv(cc0000122 + C0i,ep) * (
     &     + g(n1,n2)*g(n6,n7)*q1(n5)*q2(n3)*q2(n4)
     &     + g(n1,n3)*g(n2,n4)*q1(n5)*q2(n6)*q2(n7)
     &     + g(n1,n3)*g(n2,n4)*q1(n6)*q2(n5)*q2(n7)
     &     + g(n1,n3)*g(n2,n4)*q1(n7)*q2(n5)*q2(n6)
     &     + g(n1,n3)*g(n2,n5)*q1(n4)*q2(n6)*q2(n7)
     &     + g(n1,n3)*g(n2,n5)*q1(n6)*q2(n4)*q2(n7)
     &     + g(n1,n3)*g(n2,n5)*q1(n7)*q2(n4)*q2(n6)
     &     + g(n1,n3)*g(n2,n6)*q1(n4)*q2(n5)*q2(n7)
     &     + g(n1,n3)*g(n2,n6)*q1(n5)*q2(n4)*q2(n7)
     &     + g(n1,n3)*g(n2,n6)*q1(n7)*q2(n4)*q2(n5)
     &     + g(n1,n3)*g(n2,n7)*q1(n4)*q2(n5)*q2(n6)
     &     + g(n1,n3)*g(n2,n7)*q1(n5)*q2(n4)*q2(n6)
     &     + g(n1,n3)*g(n2,n7)*q1(n6)*q2(n4)*q2(n5)
     &     + g(n1,n3)*g(n4,n5)*q1(n2)*q2(n6)*q2(n7)
     &     + g(n1,n3)*g(n4,n5)*q1(n6)*q2(n2)*q2(n7)
     &     + g(n1,n3)*g(n4,n5)*q1(n7)*q2(n2)*q2(n6)
     &     + g(n1,n3)*g(n4,n6)*q1(n2)*q2(n5)*q2(n7)
     &     + g(n1,n3)*g(n4,n6)*q1(n5)*q2(n2)*q2(n7)
     &     + g(n1,n3)*g(n4,n6)*q1(n7)*q2(n2)*q2(n5)
     &     + g(n1,n3)*g(n4,n7)*q1(n2)*q2(n5)*q2(n6)
     &     + g(n1,n3)*g(n4,n7)*q1(n5)*q2(n2)*q2(n6)
     &     + g(n1,n3)*g(n4,n7)*q1(n6)*q2(n2)*q2(n5)
     &     + g(n1,n3)*g(n5,n6)*q1(n2)*q2(n4)*q2(n7)
     &     + g(n1,n3)*g(n5,n6)*q1(n4)*q2(n2)*q2(n7)
     &     + g(n1,n3)*g(n5,n6)*q1(n7)*q2(n2)*q2(n4)
     &     + g(n1,n3)*g(n5,n7)*q1(n2)*q2(n4)*q2(n6)
     &     + g(n1,n3)*g(n5,n7)*q1(n4)*q2(n2)*q2(n6)
     &     + g(n1,n3)*g(n5,n7)*q1(n6)*q2(n2)*q2(n4)
     &     + g(n1,n3)*g(n6,n7)*q1(n2)*q2(n4)*q2(n5)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &  + Cv(cc0000122 + C0i,ep) * (
     &     + g(n1,n3)*g(n6,n7)*q1(n4)*q2(n2)*q2(n5)
     &     + g(n1,n3)*g(n6,n7)*q1(n5)*q2(n2)*q2(n4)
     &     + g(n1,n4)*g(n2,n3)*q1(n5)*q2(n6)*q2(n7)
     &     + g(n1,n4)*g(n2,n3)*q1(n6)*q2(n5)*q2(n7)
     &     + g(n1,n4)*g(n2,n3)*q1(n7)*q2(n5)*q2(n6)
     &     + g(n1,n4)*g(n2,n5)*q1(n3)*q2(n6)*q2(n7)
     &     + g(n1,n4)*g(n2,n5)*q1(n6)*q2(n3)*q2(n7)
     &     + g(n1,n4)*g(n2,n5)*q1(n7)*q2(n3)*q2(n6)
     &     + g(n1,n4)*g(n2,n6)*q1(n3)*q2(n5)*q2(n7)
     &     + g(n1,n4)*g(n2,n6)*q1(n5)*q2(n3)*q2(n7)
     &     + g(n1,n4)*g(n2,n6)*q1(n7)*q2(n3)*q2(n5)
     &     + g(n1,n4)*g(n2,n7)*q1(n3)*q2(n5)*q2(n6)
     &     + g(n1,n4)*g(n2,n7)*q1(n5)*q2(n3)*q2(n6)
     &     + g(n1,n4)*g(n2,n7)*q1(n6)*q2(n3)*q2(n5)
     &     + g(n1,n4)*g(n3,n5)*q1(n2)*q2(n6)*q2(n7)
     &     + g(n1,n4)*g(n3,n5)*q1(n6)*q2(n2)*q2(n7)
     &     + g(n1,n4)*g(n3,n5)*q1(n7)*q2(n2)*q2(n6)
     &     + g(n1,n4)*g(n3,n6)*q1(n2)*q2(n5)*q2(n7)
     &     + g(n1,n4)*g(n3,n6)*q1(n5)*q2(n2)*q2(n7)
     &     + g(n1,n4)*g(n3,n6)*q1(n7)*q2(n2)*q2(n5)
     &     + g(n1,n4)*g(n3,n7)*q1(n2)*q2(n5)*q2(n6)
     &     + g(n1,n4)*g(n3,n7)*q1(n5)*q2(n2)*q2(n6)
     &     + g(n1,n4)*g(n3,n7)*q1(n6)*q2(n2)*q2(n5)
     &     + g(n1,n4)*g(n5,n6)*q1(n2)*q2(n3)*q2(n7)
     &     + g(n1,n4)*g(n5,n6)*q1(n3)*q2(n2)*q2(n7)
     &     + g(n1,n4)*g(n5,n6)*q1(n7)*q2(n2)*q2(n3)
     &     + g(n1,n4)*g(n5,n7)*q1(n2)*q2(n3)*q2(n6)
     &     + g(n1,n4)*g(n5,n7)*q1(n3)*q2(n2)*q2(n6)
     &     + g(n1,n4)*g(n5,n7)*q1(n6)*q2(n2)*q2(n3)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &   + Cv(cc0000122 + C0i,ep) * (
     &     + g(n1,n4)*g(n6,n7)*q1(n2)*q2(n3)*q2(n5)
     &     + g(n1,n4)*g(n6,n7)*q1(n3)*q2(n2)*q2(n5)
     &     + g(n1,n4)*g(n6,n7)*q1(n5)*q2(n2)*q2(n3)
     &     + g(n1,n5)*g(n2,n3)*q1(n4)*q2(n6)*q2(n7)
     &     + g(n1,n5)*g(n2,n3)*q1(n6)*q2(n4)*q2(n7)
     &     + g(n1,n5)*g(n2,n3)*q1(n7)*q2(n4)*q2(n6)
     &     + g(n1,n5)*g(n2,n4)*q1(n3)*q2(n6)*q2(n7)
     &     + g(n1,n5)*g(n2,n4)*q1(n6)*q2(n3)*q2(n7)
     &     + g(n1,n5)*g(n2,n4)*q1(n7)*q2(n3)*q2(n6)
     &     + g(n1,n5)*g(n2,n6)*q1(n3)*q2(n4)*q2(n7)
     &     + g(n1,n5)*g(n2,n6)*q1(n4)*q2(n3)*q2(n7)
     &     + g(n1,n5)*g(n2,n6)*q1(n7)*q2(n3)*q2(n4)
     &     + g(n1,n5)*g(n2,n7)*q1(n3)*q2(n4)*q2(n6)
     &     + g(n1,n5)*g(n2,n7)*q1(n4)*q2(n3)*q2(n6)
     &     + g(n1,n5)*g(n2,n7)*q1(n6)*q2(n3)*q2(n4)
     &     + g(n1,n5)*g(n3,n4)*q1(n2)*q2(n6)*q2(n7)
     &     + g(n1,n5)*g(n3,n4)*q1(n6)*q2(n2)*q2(n7)
     &     + g(n1,n5)*g(n3,n4)*q1(n7)*q2(n2)*q2(n6)
     &     + g(n1,n5)*g(n3,n6)*q1(n2)*q2(n4)*q2(n7)
     &     + g(n1,n5)*g(n3,n6)*q1(n4)*q2(n2)*q2(n7)
     &     + g(n1,n5)*g(n3,n6)*q1(n7)*q2(n2)*q2(n4)
     &     + g(n1,n5)*g(n3,n7)*q1(n2)*q2(n4)*q2(n6)
     &     + g(n1,n5)*g(n3,n7)*q1(n4)*q2(n2)*q2(n6)
     &     + g(n1,n5)*g(n3,n7)*q1(n6)*q2(n2)*q2(n4)
     &     + g(n1,n5)*g(n4,n6)*q1(n2)*q2(n3)*q2(n7)
     &     + g(n1,n5)*g(n4,n6)*q1(n3)*q2(n2)*q2(n7)
     &     + g(n1,n5)*g(n4,n6)*q1(n7)*q2(n2)*q2(n3)
     &     + g(n1,n5)*g(n4,n7)*q1(n2)*q2(n3)*q2(n6)
     &     + g(n1,n5)*g(n4,n7)*q1(n3)*q2(n2)*q2(n6)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &   + Cv(cc0000122 + C0i,ep) * (
     &     + g(n1,n5)*g(n4,n7)*q1(n6)*q2(n2)*q2(n3)
     &     + g(n1,n5)*g(n6,n7)*q1(n2)*q2(n3)*q2(n4)
     &     + g(n1,n5)*g(n6,n7)*q1(n3)*q2(n2)*q2(n4)
     &     + g(n1,n5)*g(n6,n7)*q1(n4)*q2(n2)*q2(n3)
     &     + g(n1,n6)*g(n2,n3)*q1(n4)*q2(n5)*q2(n7)
     &     + g(n1,n6)*g(n2,n3)*q1(n5)*q2(n4)*q2(n7)
     &     + g(n1,n6)*g(n2,n3)*q1(n7)*q2(n4)*q2(n5)
     &     + g(n1,n6)*g(n2,n4)*q1(n3)*q2(n5)*q2(n7)
     &     + g(n1,n6)*g(n2,n4)*q1(n5)*q2(n3)*q2(n7)
     &     + g(n1,n6)*g(n2,n4)*q1(n7)*q2(n3)*q2(n5)
     &     + g(n1,n6)*g(n2,n5)*q1(n3)*q2(n4)*q2(n7)
     &     + g(n1,n6)*g(n2,n5)*q1(n4)*q2(n3)*q2(n7)
     &     + g(n1,n6)*g(n2,n5)*q1(n7)*q2(n3)*q2(n4)
     &     + g(n1,n6)*g(n2,n7)*q1(n3)*q2(n4)*q2(n5)
     &     + g(n1,n6)*g(n2,n7)*q1(n4)*q2(n3)*q2(n5)
     &     + g(n1,n6)*g(n2,n7)*q1(n5)*q2(n3)*q2(n4)
     &     + g(n1,n6)*g(n3,n4)*q1(n2)*q2(n5)*q2(n7)
     &     + g(n1,n6)*g(n3,n4)*q1(n5)*q2(n2)*q2(n7)
     &     + g(n1,n6)*g(n3,n4)*q1(n7)*q2(n2)*q2(n5)
     &     + g(n1,n6)*g(n3,n5)*q1(n2)*q2(n4)*q2(n7)
     &     + g(n1,n6)*g(n3,n5)*q1(n4)*q2(n2)*q2(n7)
     &     + g(n1,n6)*g(n3,n5)*q1(n7)*q2(n2)*q2(n4)
     &     + g(n1,n6)*g(n3,n7)*q1(n2)*q2(n4)*q2(n5)
     &     + g(n1,n6)*g(n3,n7)*q1(n4)*q2(n2)*q2(n5)
     &     + g(n1,n6)*g(n3,n7)*q1(n5)*q2(n2)*q2(n4)
     &     + g(n1,n6)*g(n4,n5)*q1(n2)*q2(n3)*q2(n7)
     &     + g(n1,n6)*g(n4,n5)*q1(n3)*q2(n2)*q2(n7)
     &     + g(n1,n6)*g(n4,n5)*q1(n7)*q2(n2)*q2(n3)
     &     + g(n1,n6)*g(n4,n7)*q1(n2)*q2(n3)*q2(n5)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &  + Cv(cc0000122 + C0i,ep) * (
     &     + g(n1,n6)*g(n4,n7)*q1(n3)*q2(n2)*q2(n5)
     &     + g(n1,n6)*g(n4,n7)*q1(n5)*q2(n2)*q2(n3)
     &     + g(n1,n6)*g(n5,n7)*q1(n2)*q2(n3)*q2(n4)
     &     + g(n1,n6)*g(n5,n7)*q1(n3)*q2(n2)*q2(n4)
     &     + g(n1,n6)*g(n5,n7)*q1(n4)*q2(n2)*q2(n3)
     &     + g(n1,n7)*g(n2,n3)*q1(n4)*q2(n5)*q2(n6)
     &     + g(n1,n7)*g(n2,n3)*q1(n5)*q2(n4)*q2(n6)
     &     + g(n1,n7)*g(n2,n3)*q1(n6)*q2(n4)*q2(n5)
     &     + g(n1,n7)*g(n2,n4)*q1(n3)*q2(n5)*q2(n6)
     &     + g(n1,n7)*g(n2,n4)*q1(n5)*q2(n3)*q2(n6)
     &     + g(n1,n7)*g(n2,n4)*q1(n6)*q2(n3)*q2(n5)
     &     + g(n1,n7)*g(n2,n5)*q1(n3)*q2(n4)*q2(n6)
     &     + g(n1,n7)*g(n2,n5)*q1(n4)*q2(n3)*q2(n6)
     &     + g(n1,n7)*g(n2,n5)*q1(n6)*q2(n3)*q2(n4)
     &     + g(n1,n7)*g(n2,n6)*q1(n3)*q2(n4)*q2(n5)
     &     + g(n1,n7)*g(n2,n6)*q1(n4)*q2(n3)*q2(n5)
     &     + g(n1,n7)*g(n2,n6)*q1(n5)*q2(n3)*q2(n4)
     &     + g(n1,n7)*g(n3,n4)*q1(n2)*q2(n5)*q2(n6)
     &     + g(n1,n7)*g(n3,n4)*q1(n5)*q2(n2)*q2(n6)
     &     + g(n1,n7)*g(n3,n4)*q1(n6)*q2(n2)*q2(n5)
     &     + g(n1,n7)*g(n3,n5)*q1(n2)*q2(n4)*q2(n6)
     &     + g(n1,n7)*g(n3,n5)*q1(n4)*q2(n2)*q2(n6)
     &     + g(n1,n7)*g(n3,n5)*q1(n6)*q2(n2)*q2(n4)
     &     + g(n1,n7)*g(n3,n6)*q1(n2)*q2(n4)*q2(n5)
     &     + g(n1,n7)*g(n3,n6)*q1(n4)*q2(n2)*q2(n5)
     &     + g(n1,n7)*g(n3,n6)*q1(n5)*q2(n2)*q2(n4)
     &     + g(n1,n7)*g(n4,n5)*q1(n2)*q2(n3)*q2(n6)
     &     + g(n1,n7)*g(n4,n5)*q1(n3)*q2(n2)*q2(n6)
     &     + g(n1,n7)*g(n4,n5)*q1(n6)*q2(n2)*q2(n3)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &  + Cv(cc0000122 + C0i,ep) * (
     &     + g(n1,n7)*g(n4,n6)*q1(n2)*q2(n3)*q2(n5)
     &     + g(n1,n7)*g(n4,n6)*q1(n3)*q2(n2)*q2(n5)
     &     + g(n1,n7)*g(n4,n6)*q1(n5)*q2(n2)*q2(n3)
     &     + g(n1,n7)*g(n5,n6)*q1(n2)*q2(n3)*q2(n4)
     &     + g(n1,n7)*g(n5,n6)*q1(n3)*q2(n2)*q2(n4)
     &     + g(n1,n7)*g(n5,n6)*q1(n4)*q2(n2)*q2(n3)
     &     + g(n2,n3)*g(n4,n5)*q1(n1)*q2(n6)*q2(n7)
     &     + g(n2,n3)*g(n4,n5)*q1(n6)*q2(n1)*q2(n7)
     &     + g(n2,n3)*g(n4,n5)*q1(n7)*q2(n1)*q2(n6)
     &     + g(n2,n3)*g(n4,n6)*q1(n1)*q2(n5)*q2(n7)
     &     + g(n2,n3)*g(n4,n6)*q1(n5)*q2(n1)*q2(n7)
     &     + g(n2,n3)*g(n4,n6)*q1(n7)*q2(n1)*q2(n5)
     &     + g(n2,n3)*g(n4,n7)*q1(n1)*q2(n5)*q2(n6)
     &     + g(n2,n3)*g(n4,n7)*q1(n5)*q2(n1)*q2(n6)
     &     + g(n2,n3)*g(n4,n7)*q1(n6)*q2(n1)*q2(n5)
     &     + g(n2,n3)*g(n5,n6)*q1(n1)*q2(n4)*q2(n7)
     &     + g(n2,n3)*g(n5,n6)*q1(n4)*q2(n1)*q2(n7)
     &     + g(n2,n3)*g(n5,n6)*q1(n7)*q2(n1)*q2(n4)
     &     + g(n2,n3)*g(n5,n7)*q1(n1)*q2(n4)*q2(n6)
     &     + g(n2,n3)*g(n5,n7)*q1(n4)*q2(n1)*q2(n6)
     &     + g(n2,n3)*g(n5,n7)*q1(n6)*q2(n1)*q2(n4)
     &     + g(n2,n3)*g(n6,n7)*q1(n1)*q2(n4)*q2(n5)
     &     + g(n2,n3)*g(n6,n7)*q1(n4)*q2(n1)*q2(n5)
     &     + g(n2,n3)*g(n6,n7)*q1(n5)*q2(n1)*q2(n4)
     &     + g(n2,n4)*g(n3,n5)*q1(n1)*q2(n6)*q2(n7)
     &     + g(n2,n4)*g(n3,n5)*q1(n6)*q2(n1)*q2(n7)
     &     + g(n2,n4)*g(n3,n5)*q1(n7)*q2(n1)*q2(n6)
     &     + g(n2,n4)*g(n3,n6)*q1(n1)*q2(n5)*q2(n7)
     &     + g(n2,n4)*g(n3,n6)*q1(n5)*q2(n1)*q2(n7)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &     + Cv(cc0000122 + C0i,ep) * (
     &     + g(n2,n4)*g(n3,n6)*q1(n7)*q2(n1)*q2(n5)
     &     + g(n2,n4)*g(n3,n7)*q1(n1)*q2(n5)*q2(n6)
     &     + g(n2,n4)*g(n3,n7)*q1(n5)*q2(n1)*q2(n6)
     &     + g(n2,n4)*g(n3,n7)*q1(n6)*q2(n1)*q2(n5)
     &     + g(n2,n4)*g(n5,n6)*q1(n1)*q2(n3)*q2(n7)
     &     + g(n2,n4)*g(n5,n6)*q1(n3)*q2(n1)*q2(n7)
     &     + g(n2,n4)*g(n5,n6)*q1(n7)*q2(n1)*q2(n3)
     &     + g(n2,n4)*g(n5,n7)*q1(n1)*q2(n3)*q2(n6)
     &     + g(n2,n4)*g(n5,n7)*q1(n3)*q2(n1)*q2(n6)
     &     + g(n2,n4)*g(n5,n7)*q1(n6)*q2(n1)*q2(n3)
     &     + g(n2,n4)*g(n6,n7)*q1(n1)*q2(n3)*q2(n5)
     &     + g(n2,n4)*g(n6,n7)*q1(n3)*q2(n1)*q2(n5)
     &     + g(n2,n4)*g(n6,n7)*q1(n5)*q2(n1)*q2(n3)
     &     + g(n2,n5)*g(n3,n4)*q1(n1)*q2(n6)*q2(n7)
     &     + g(n2,n5)*g(n3,n4)*q1(n6)*q2(n1)*q2(n7)
     &     + g(n2,n5)*g(n3,n4)*q1(n7)*q2(n1)*q2(n6)
     &     + g(n2,n5)*g(n3,n6)*q1(n1)*q2(n4)*q2(n7)
     &     + g(n2,n5)*g(n3,n6)*q1(n4)*q2(n1)*q2(n7)
     &     + g(n2,n5)*g(n3,n6)*q1(n7)*q2(n1)*q2(n4)
     &     + g(n2,n5)*g(n3,n7)*q1(n1)*q2(n4)*q2(n6)
     &     + g(n2,n5)*g(n3,n7)*q1(n4)*q2(n1)*q2(n6)
     &     + g(n2,n5)*g(n3,n7)*q1(n6)*q2(n1)*q2(n4)
     &     + g(n2,n5)*g(n4,n6)*q1(n1)*q2(n3)*q2(n7)
     &     + g(n2,n5)*g(n4,n6)*q1(n3)*q2(n1)*q2(n7)
     &     + g(n2,n5)*g(n4,n6)*q1(n7)*q2(n1)*q2(n3)
     &     + g(n2,n5)*g(n4,n7)*q1(n1)*q2(n3)*q2(n6)
     &     + g(n2,n5)*g(n4,n7)*q1(n3)*q2(n1)*q2(n6)
     &     + g(n2,n5)*g(n4,n7)*q1(n6)*q2(n1)*q2(n3)
     &     + g(n2,n5)*g(n6,n7)*q1(n1)*q2(n3)*q2(n4)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &  + Cv(cc0000122 + C0i,ep) * (
     &     + g(n2,n5)*g(n6,n7)*q1(n3)*q2(n1)*q2(n4)
     &     + g(n2,n5)*g(n6,n7)*q1(n4)*q2(n1)*q2(n3)
     &     + g(n2,n6)*g(n3,n4)*q1(n1)*q2(n5)*q2(n7)
     &     + g(n2,n6)*g(n3,n4)*q1(n5)*q2(n1)*q2(n7)
     &     + g(n2,n6)*g(n3,n4)*q1(n7)*q2(n1)*q2(n5)
     &     + g(n2,n6)*g(n3,n5)*q1(n1)*q2(n4)*q2(n7)
     &     + g(n2,n6)*g(n3,n5)*q1(n4)*q2(n1)*q2(n7)
     &     + g(n2,n6)*g(n3,n5)*q1(n7)*q2(n1)*q2(n4)
     &     + g(n2,n6)*g(n3,n7)*q1(n1)*q2(n4)*q2(n5)
     &     + g(n2,n6)*g(n3,n7)*q1(n4)*q2(n1)*q2(n5)
     &     + g(n2,n6)*g(n3,n7)*q1(n5)*q2(n1)*q2(n4)
     &     + g(n2,n6)*g(n4,n5)*q1(n1)*q2(n3)*q2(n7)
     &     + g(n2,n6)*g(n4,n5)*q1(n3)*q2(n1)*q2(n7)
     &     + g(n2,n6)*g(n4,n5)*q1(n7)*q2(n1)*q2(n3)
     &     + g(n2,n6)*g(n4,n7)*q1(n1)*q2(n3)*q2(n5)
     &     + g(n2,n6)*g(n4,n7)*q1(n3)*q2(n1)*q2(n5)
     &     + g(n2,n6)*g(n4,n7)*q1(n5)*q2(n1)*q2(n3)
     &     + g(n2,n6)*g(n5,n7)*q1(n1)*q2(n3)*q2(n4)
     &     + g(n2,n6)*g(n5,n7)*q1(n3)*q2(n1)*q2(n4)
     &     + g(n2,n6)*g(n5,n7)*q1(n4)*q2(n1)*q2(n3)
     &     + g(n2,n7)*g(n3,n4)*q1(n1)*q2(n5)*q2(n6)
     &     + g(n2,n7)*g(n3,n4)*q1(n5)*q2(n1)*q2(n6)
     &     + g(n2,n7)*g(n3,n4)*q1(n6)*q2(n1)*q2(n5)
     &     + g(n2,n7)*g(n3,n5)*q1(n1)*q2(n4)*q2(n6)
     &     + g(n2,n7)*g(n3,n5)*q1(n4)*q2(n1)*q2(n6)
     &     + g(n2,n7)*g(n3,n5)*q1(n6)*q2(n1)*q2(n4)
     &     + g(n2,n7)*g(n3,n6)*q1(n1)*q2(n4)*q2(n5)
     &     + g(n2,n7)*g(n3,n6)*q1(n4)*q2(n1)*q2(n5)
     &     + g(n2,n7)*g(n3,n6)*q1(n5)*q2(n1)*q2(n4)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &  + Cv(cc0000122 + C0i,ep) * (
     &     + g(n2,n7)*g(n4,n5)*q1(n1)*q2(n3)*q2(n6)
     &     + g(n2,n7)*g(n4,n5)*q1(n3)*q2(n1)*q2(n6)
     &     + g(n2,n7)*g(n4,n5)*q1(n6)*q2(n1)*q2(n3)
     &     + g(n2,n7)*g(n4,n6)*q1(n1)*q2(n3)*q2(n5)
     &     + g(n2,n7)*g(n4,n6)*q1(n3)*q2(n1)*q2(n5)
     &     + g(n2,n7)*g(n4,n6)*q1(n5)*q2(n1)*q2(n3)
     &     + g(n2,n7)*g(n5,n6)*q1(n1)*q2(n3)*q2(n4)
     &     + g(n2,n7)*g(n5,n6)*q1(n3)*q2(n1)*q2(n4)
     &     + g(n2,n7)*g(n5,n6)*q1(n4)*q2(n1)*q2(n3)
     &     + g(n3,n4)*g(n5,n6)*q1(n1)*q2(n2)*q2(n7)
     &     + g(n3,n4)*g(n5,n6)*q1(n2)*q2(n1)*q2(n7)
     &     + g(n3,n4)*g(n5,n6)*q1(n7)*q2(n1)*q2(n2)
     &     + g(n3,n4)*g(n5,n7)*q1(n1)*q2(n2)*q2(n6)
     &     + g(n3,n4)*g(n5,n7)*q1(n2)*q2(n1)*q2(n6)
     &     + g(n3,n4)*g(n5,n7)*q1(n6)*q2(n1)*q2(n2)
     &     + g(n3,n4)*g(n6,n7)*q1(n1)*q2(n2)*q2(n5)
     &     + g(n3,n4)*g(n6,n7)*q1(n2)*q2(n1)*q2(n5)
     &     + g(n3,n4)*g(n6,n7)*q1(n5)*q2(n1)*q2(n2)
     &     + g(n3,n5)*g(n4,n6)*q1(n1)*q2(n2)*q2(n7)
     &     + g(n3,n5)*g(n4,n6)*q1(n2)*q2(n1)*q2(n7)
     &     + g(n3,n5)*g(n4,n6)*q1(n7)*q2(n1)*q2(n2)
     &     + g(n3,n5)*g(n4,n7)*q1(n1)*q2(n2)*q2(n6)
     &     + g(n3,n5)*g(n4,n7)*q1(n2)*q2(n1)*q2(n6)
     &     + g(n3,n5)*g(n4,n7)*q1(n6)*q2(n1)*q2(n2)
     &     + g(n3,n5)*g(n6,n7)*q1(n1)*q2(n2)*q2(n4)
     &     + g(n3,n5)*g(n6,n7)*q1(n2)*q2(n1)*q2(n4)
     &     + g(n3,n5)*g(n6,n7)*q1(n4)*q2(n1)*q2(n2)
     &     + g(n3,n6)*g(n4,n5)*q1(n1)*q2(n2)*q2(n7)
     &     + g(n3,n6)*g(n4,n5)*q1(n2)*q2(n1)*q2(n7)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &  + Cv(cc0000122 + C0i,ep) * (
     &     + g(n3,n6)*g(n4,n5)*q1(n7)*q2(n1)*q2(n2)
     &     + g(n3,n6)*g(n4,n7)*q1(n1)*q2(n2)*q2(n5)
     &     + g(n3,n6)*g(n4,n7)*q1(n2)*q2(n1)*q2(n5)
     &     + g(n3,n6)*g(n4,n7)*q1(n5)*q2(n1)*q2(n2)
     &     + g(n3,n6)*g(n5,n7)*q1(n1)*q2(n2)*q2(n4)
     &     + g(n3,n6)*g(n5,n7)*q1(n2)*q2(n1)*q2(n4)
     &     + g(n3,n6)*g(n5,n7)*q1(n4)*q2(n1)*q2(n2)
     &     + g(n3,n7)*g(n4,n5)*q1(n1)*q2(n2)*q2(n6)
     &     + g(n3,n7)*g(n4,n5)*q1(n2)*q2(n1)*q2(n6)
     &     + g(n3,n7)*g(n4,n5)*q1(n6)*q2(n1)*q2(n2)
     &     + g(n3,n7)*g(n4,n6)*q1(n1)*q2(n2)*q2(n5)
     &     + g(n3,n7)*g(n4,n6)*q1(n2)*q2(n1)*q2(n5)
     &     + g(n3,n7)*g(n4,n6)*q1(n5)*q2(n1)*q2(n2)
     &     + g(n3,n7)*g(n5,n6)*q1(n1)*q2(n2)*q2(n4)
     &     + g(n3,n7)*g(n5,n6)*q1(n2)*q2(n1)*q2(n4)
     &     + g(n3,n7)*g(n5,n6)*q1(n4)*q2(n1)*q2(n2)
     &     + g(n4,n5)*g(n6,n7)*q1(n1)*q2(n2)*q2(n3)
     &     + g(n4,n5)*g(n6,n7)*q1(n2)*q2(n1)*q2(n3)
     &     + g(n4,n5)*g(n6,n7)*q1(n3)*q2(n1)*q2(n2)
     &     + g(n4,n6)*g(n5,n7)*q1(n1)*q2(n2)*q2(n3)
     &     + g(n4,n6)*g(n5,n7)*q1(n2)*q2(n1)*q2(n3)
     &     + g(n4,n6)*g(n5,n7)*q1(n3)*q2(n1)*q2(n2)
     &     + g(n4,n7)*g(n5,n6)*q1(n1)*q2(n2)*q2(n3)
     &     + g(n4,n7)*g(n5,n6)*q1(n2)*q2(n1)*q2(n3)
     &     + g(n4,n7)*g(n5,n6)*q1(n3)*q2(n1)*q2(n2)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &  + Cv(cc0000222 + C0i,ep) * (
     &     + g(n1,n2)*g(n3,n4)*q2(n5)*q2(n6)*q2(n7)
     &     + g(n1,n2)*g(n3,n5)*q2(n4)*q2(n6)*q2(n7)
     &     + g(n1,n2)*g(n3,n6)*q2(n4)*q2(n5)*q2(n7)
     &     + g(n1,n2)*g(n3,n7)*q2(n4)*q2(n5)*q2(n6)
     &     + g(n1,n2)*g(n4,n5)*q2(n3)*q2(n6)*q2(n7)
     &     + g(n1,n2)*g(n4,n6)*q2(n3)*q2(n5)*q2(n7)
     &     + g(n1,n2)*g(n4,n7)*q2(n3)*q2(n5)*q2(n6)
     &     + g(n1,n2)*g(n5,n6)*q2(n3)*q2(n4)*q2(n7)
     &     + g(n1,n2)*g(n5,n7)*q2(n3)*q2(n4)*q2(n6)
     &     + g(n1,n2)*g(n6,n7)*q2(n3)*q2(n4)*q2(n5)
     &     + g(n1,n3)*g(n2,n4)*q2(n5)*q2(n6)*q2(n7)
     &     + g(n1,n3)*g(n2,n5)*q2(n4)*q2(n6)*q2(n7)
     &     + g(n1,n3)*g(n2,n6)*q2(n4)*q2(n5)*q2(n7)
     &     + g(n1,n3)*g(n2,n7)*q2(n4)*q2(n5)*q2(n6)
     &     + g(n1,n3)*g(n4,n5)*q2(n2)*q2(n6)*q2(n7)
     &     + g(n1,n3)*g(n4,n6)*q2(n2)*q2(n5)*q2(n7)
     &     + g(n1,n3)*g(n4,n7)*q2(n2)*q2(n5)*q2(n6)
     &     + g(n1,n3)*g(n5,n6)*q2(n2)*q2(n4)*q2(n7)
     &     + g(n1,n3)*g(n5,n7)*q2(n2)*q2(n4)*q2(n6)
     &     + g(n1,n3)*g(n6,n7)*q2(n2)*q2(n4)*q2(n5)
     &     + g(n1,n4)*g(n2,n3)*q2(n5)*q2(n6)*q2(n7)
     &     + g(n1,n4)*g(n2,n5)*q2(n3)*q2(n6)*q2(n7)
     &     + g(n1,n4)*g(n2,n6)*q2(n3)*q2(n5)*q2(n7)
     &     + g(n1,n4)*g(n2,n7)*q2(n3)*q2(n5)*q2(n6)
     &     + g(n1,n4)*g(n3,n5)*q2(n2)*q2(n6)*q2(n7)
     &     + g(n1,n4)*g(n3,n6)*q2(n2)*q2(n5)*q2(n7)
     &     + g(n1,n4)*g(n3,n7)*q2(n2)*q2(n5)*q2(n6)
     &     + g(n1,n4)*g(n5,n6)*q2(n2)*q2(n3)*q2(n7)
     &     + g(n1,n4)*g(n5,n7)*q2(n2)*q2(n3)*q2(n6)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &  + Cv(cc0000222 + C0i,ep) * (
     &     + g(n1,n4)*g(n6,n7)*q2(n2)*q2(n3)*q2(n5)
     &     + g(n1,n5)*g(n2,n3)*q2(n4)*q2(n6)*q2(n7)
     &     + g(n1,n5)*g(n2,n4)*q2(n3)*q2(n6)*q2(n7)
     &     + g(n1,n5)*g(n2,n6)*q2(n3)*q2(n4)*q2(n7)
     &     + g(n1,n5)*g(n2,n7)*q2(n3)*q2(n4)*q2(n6)
     &     + g(n1,n5)*g(n3,n4)*q2(n2)*q2(n6)*q2(n7)
     &     + g(n1,n5)*g(n3,n6)*q2(n2)*q2(n4)*q2(n7)
     &     + g(n1,n5)*g(n3,n7)*q2(n2)*q2(n4)*q2(n6)
     &     + g(n1,n5)*g(n4,n6)*q2(n2)*q2(n3)*q2(n7)
     &     + g(n1,n5)*g(n4,n7)*q2(n2)*q2(n3)*q2(n6)
     &     + g(n1,n5)*g(n6,n7)*q2(n2)*q2(n3)*q2(n4)
     &     + g(n1,n6)*g(n2,n3)*q2(n4)*q2(n5)*q2(n7)
     &     + g(n1,n6)*g(n2,n4)*q2(n3)*q2(n5)*q2(n7)
     &     + g(n1,n6)*g(n2,n5)*q2(n3)*q2(n4)*q2(n7)
     &     + g(n1,n6)*g(n2,n7)*q2(n3)*q2(n4)*q2(n5)
     &     + g(n1,n6)*g(n3,n4)*q2(n2)*q2(n5)*q2(n7)
     &     + g(n1,n6)*g(n3,n5)*q2(n2)*q2(n4)*q2(n7)
     &     + g(n1,n6)*g(n3,n7)*q2(n2)*q2(n4)*q2(n5)
     &     + g(n1,n6)*g(n4,n5)*q2(n2)*q2(n3)*q2(n7)
     &     + g(n1,n6)*g(n4,n7)*q2(n2)*q2(n3)*q2(n5)
     &     + g(n1,n6)*g(n5,n7)*q2(n2)*q2(n3)*q2(n4)
     &     + g(n1,n7)*g(n2,n3)*q2(n4)*q2(n5)*q2(n6)
     &     + g(n1,n7)*g(n2,n4)*q2(n3)*q2(n5)*q2(n6)
     &     + g(n1,n7)*g(n2,n5)*q2(n3)*q2(n4)*q2(n6)
     &     + g(n1,n7)*g(n2,n6)*q2(n3)*q2(n4)*q2(n5)
     &     + g(n1,n7)*g(n3,n4)*q2(n2)*q2(n5)*q2(n6)
     &     + g(n1,n7)*g(n3,n5)*q2(n2)*q2(n4)*q2(n6)
     &     + g(n1,n7)*g(n3,n6)*q2(n2)*q2(n4)*q2(n5)
     &     + g(n1,n7)*g(n4,n5)*q2(n2)*q2(n3)*q2(n6)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &   + Cv(cc0000222 + C0i,ep) * (
     &     + g(n1,n7)*g(n4,n6)*q2(n2)*q2(n3)*q2(n5)
     &     + g(n1,n7)*g(n5,n6)*q2(n2)*q2(n3)*q2(n4)
     &     + g(n2,n3)*g(n4,n5)*q2(n1)*q2(n6)*q2(n7)
     &     + g(n2,n3)*g(n4,n6)*q2(n1)*q2(n5)*q2(n7)
     &     + g(n2,n3)*g(n4,n7)*q2(n1)*q2(n5)*q2(n6)
     &     + g(n2,n3)*g(n5,n6)*q2(n1)*q2(n4)*q2(n7)
     &     + g(n2,n3)*g(n5,n7)*q2(n1)*q2(n4)*q2(n6)
     &     + g(n2,n3)*g(n6,n7)*q2(n1)*q2(n4)*q2(n5)
     &     + g(n2,n4)*g(n3,n5)*q2(n1)*q2(n6)*q2(n7)
     &     + g(n2,n4)*g(n3,n6)*q2(n1)*q2(n5)*q2(n7)
     &     + g(n2,n4)*g(n3,n7)*q2(n1)*q2(n5)*q2(n6)
     &     + g(n2,n4)*g(n5,n6)*q2(n1)*q2(n3)*q2(n7)
     &     + g(n2,n4)*g(n5,n7)*q2(n1)*q2(n3)*q2(n6)
     &     + g(n2,n4)*g(n6,n7)*q2(n1)*q2(n3)*q2(n5)
     &     + g(n2,n5)*g(n3,n4)*q2(n1)*q2(n6)*q2(n7)
     &     + g(n2,n5)*g(n3,n6)*q2(n1)*q2(n4)*q2(n7)
     &     + g(n2,n5)*g(n3,n7)*q2(n1)*q2(n4)*q2(n6)
     &     + g(n2,n5)*g(n4,n6)*q2(n1)*q2(n3)*q2(n7)
     &     + g(n2,n5)*g(n4,n7)*q2(n1)*q2(n3)*q2(n6)
     &     + g(n2,n5)*g(n6,n7)*q2(n1)*q2(n3)*q2(n4)
     &     + g(n2,n6)*g(n3,n4)*q2(n1)*q2(n5)*q2(n7)
     &     + g(n2,n6)*g(n3,n5)*q2(n1)*q2(n4)*q2(n7)
     &     + g(n2,n6)*g(n3,n7)*q2(n1)*q2(n4)*q2(n5)
     &     + g(n2,n6)*g(n4,n5)*q2(n1)*q2(n3)*q2(n7)
     &     + g(n2,n6)*g(n4,n7)*q2(n1)*q2(n3)*q2(n5)
     &     + g(n2,n6)*g(n5,n7)*q2(n1)*q2(n3)*q2(n4)
     &     + g(n2,n7)*g(n3,n4)*q2(n1)*q2(n5)*q2(n6)
     &     + g(n2,n7)*g(n3,n5)*q2(n1)*q2(n4)*q2(n6)
     &     + g(n2,n7)*g(n3,n6)*q2(n1)*q2(n4)*q2(n5)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &  + Cv(cc0000222 + C0i,ep) * (
     &     + g(n2,n7)*g(n4,n5)*q2(n1)*q2(n3)*q2(n6)
     &     + g(n2,n7)*g(n4,n6)*q2(n1)*q2(n3)*q2(n5)
     &     + g(n2,n7)*g(n5,n6)*q2(n1)*q2(n3)*q2(n4)
     &     + g(n3,n4)*g(n5,n6)*q2(n1)*q2(n2)*q2(n7)
     &     + g(n3,n4)*g(n5,n7)*q2(n1)*q2(n2)*q2(n6)
     &     + g(n3,n4)*g(n6,n7)*q2(n1)*q2(n2)*q2(n5)
     &     + g(n3,n5)*g(n4,n6)*q2(n1)*q2(n2)*q2(n7)
     &     + g(n3,n5)*g(n4,n7)*q2(n1)*q2(n2)*q2(n6)
     &     + g(n3,n5)*g(n6,n7)*q2(n1)*q2(n2)*q2(n4)
     &     + g(n3,n6)*g(n4,n5)*q2(n1)*q2(n2)*q2(n7)
     &     + g(n3,n6)*g(n4,n7)*q2(n1)*q2(n2)*q2(n5)
     &     + g(n3,n6)*g(n5,n7)*q2(n1)*q2(n2)*q2(n4)
     &     + g(n3,n7)*g(n4,n5)*q2(n1)*q2(n2)*q2(n6)
     &     + g(n3,n7)*g(n4,n6)*q2(n1)*q2(n2)*q2(n5)
     &     + g(n3,n7)*g(n5,n6)*q2(n1)*q2(n2)*q2(n4)
     &     + g(n4,n5)*g(n6,n7)*q2(n1)*q2(n2)*q2(n3)
     &     + g(n4,n6)*g(n5,n7)*q2(n1)*q2(n2)*q2(n3)
     &     + g(n4,n7)*g(n5,n6)*q2(n1)*q2(n2)*q2(n3)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &  + Cv(cc0000001 + C0i,ep) * (
     &     + g(n1,n2)*g(n3,n4)*g(n5,n6)*q1(n7)
     &     + g(n1,n2)*g(n3,n4)*g(n5,n7)*q1(n6)
     &     + g(n1,n2)*g(n3,n4)*g(n6,n7)*q1(n5)
     &     + g(n1,n2)*g(n3,n5)*g(n4,n6)*q1(n7)
     &     + g(n1,n2)*g(n3,n5)*g(n4,n7)*q1(n6)
     &     + g(n1,n2)*g(n3,n5)*g(n6,n7)*q1(n4)
     &     + g(n1,n2)*g(n3,n6)*g(n4,n5)*q1(n7)
     &     + g(n1,n2)*g(n3,n6)*g(n4,n7)*q1(n5)
     &     + g(n1,n2)*g(n3,n6)*g(n5,n7)*q1(n4)
     &     + g(n1,n2)*g(n3,n7)*g(n4,n5)*q1(n6)
     &     + g(n1,n2)*g(n3,n7)*g(n4,n6)*q1(n5)
     &     + g(n1,n2)*g(n3,n7)*g(n5,n6)*q1(n4)
     &     + g(n1,n2)*g(n4,n5)*g(n6,n7)*q1(n3)
     &     + g(n1,n2)*g(n4,n6)*g(n5,n7)*q1(n3)
     &     + g(n1,n2)*g(n4,n7)*g(n5,n6)*q1(n3)
     &     + g(n1,n3)*g(n2,n4)*g(n5,n6)*q1(n7)
     &     + g(n1,n3)*g(n2,n4)*g(n5,n7)*q1(n6)
     &     + g(n1,n3)*g(n2,n4)*g(n6,n7)*q1(n5)
     &     + g(n1,n3)*g(n2,n5)*g(n4,n6)*q1(n7)
     &     + g(n1,n3)*g(n2,n5)*g(n4,n7)*q1(n6)
     &     + g(n1,n3)*g(n2,n5)*g(n6,n7)*q1(n4)
     &     + g(n1,n3)*g(n2,n6)*g(n4,n5)*q1(n7)
     &     + g(n1,n3)*g(n2,n6)*g(n4,n7)*q1(n5)
     &     + g(n1,n3)*g(n2,n6)*g(n5,n7)*q1(n4)
     &     + g(n1,n3)*g(n2,n7)*g(n4,n5)*q1(n6)
     &     + g(n1,n3)*g(n2,n7)*g(n4,n6)*q1(n5)
     &     + g(n1,n3)*g(n2,n7)*g(n5,n6)*q1(n4)
     &     + g(n1,n3)*g(n4,n5)*g(n6,n7)*q1(n2)
     &     + g(n1,n3)*g(n4,n6)*g(n5,n7)*q1(n2)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &  + Cv(cc0000001 + C0i,ep) * (
     &     + g(n1,n3)*g(n4,n7)*g(n5,n6)*q1(n2)
     &     + g(n1,n4)*g(n2,n3)*g(n5,n6)*q1(n7)
     &     + g(n1,n4)*g(n2,n3)*g(n5,n7)*q1(n6)
     &     + g(n1,n4)*g(n2,n3)*g(n6,n7)*q1(n5)
     &     + g(n1,n4)*g(n2,n5)*g(n3,n6)*q1(n7)
     &     + g(n1,n4)*g(n2,n5)*g(n3,n7)*q1(n6)
     &     + g(n1,n4)*g(n2,n5)*g(n6,n7)*q1(n3)
     &     + g(n1,n4)*g(n2,n6)*g(n3,n5)*q1(n7)
     &     + g(n1,n4)*g(n2,n6)*g(n3,n7)*q1(n5)
     &     + g(n1,n4)*g(n2,n6)*g(n5,n7)*q1(n3)
     &     + g(n1,n4)*g(n2,n7)*g(n3,n5)*q1(n6)
     &     + g(n1,n4)*g(n2,n7)*g(n3,n6)*q1(n5)
     &     + g(n1,n4)*g(n2,n7)*g(n5,n6)*q1(n3)
     &     + g(n1,n4)*g(n3,n5)*g(n6,n7)*q1(n2)
     &     + g(n1,n4)*g(n3,n6)*g(n5,n7)*q1(n2)
     &     + g(n1,n4)*g(n3,n7)*g(n5,n6)*q1(n2)
     &     + g(n1,n5)*g(n2,n3)*g(n4,n6)*q1(n7)
     &     + g(n1,n5)*g(n2,n3)*g(n4,n7)*q1(n6)
     &     + g(n1,n5)*g(n2,n3)*g(n6,n7)*q1(n4)
     &     + g(n1,n5)*g(n2,n4)*g(n3,n6)*q1(n7)
     &     + g(n1,n5)*g(n2,n4)*g(n3,n7)*q1(n6)
     &     + g(n1,n5)*g(n2,n4)*g(n6,n7)*q1(n3)
     &     + g(n1,n5)*g(n2,n6)*g(n3,n4)*q1(n7)
     &     + g(n1,n5)*g(n2,n6)*g(n3,n7)*q1(n4)
     &     + g(n1,n5)*g(n2,n6)*g(n4,n7)*q1(n3)
     &     + g(n1,n5)*g(n2,n7)*g(n3,n4)*q1(n6)
     &     + g(n1,n5)*g(n2,n7)*g(n3,n6)*q1(n4)
     &     + g(n1,n5)*g(n2,n7)*g(n4,n6)*q1(n3)
     &     + g(n1,n5)*g(n3,n4)*g(n6,n7)*q1(n2)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &  + Cv(cc0000001 + C0i,ep) * (
     &     + g(n1,n5)*g(n3,n6)*g(n4,n7)*q1(n2)
     &     + g(n1,n5)*g(n3,n7)*g(n4,n6)*q1(n2)
     &     + g(n1,n6)*g(n2,n3)*g(n4,n5)*q1(n7)
     &     + g(n1,n6)*g(n2,n3)*g(n4,n7)*q1(n5)
     &     + g(n1,n6)*g(n2,n3)*g(n5,n7)*q1(n4)
     &     + g(n1,n6)*g(n2,n4)*g(n3,n5)*q1(n7)
     &     + g(n1,n6)*g(n2,n4)*g(n3,n7)*q1(n5)
     &     + g(n1,n6)*g(n2,n4)*g(n5,n7)*q1(n3)
     &     + g(n1,n6)*g(n2,n5)*g(n3,n4)*q1(n7)
     &     + g(n1,n6)*g(n2,n5)*g(n3,n7)*q1(n4)
     &     + g(n1,n6)*g(n2,n5)*g(n4,n7)*q1(n3)
     &     + g(n1,n6)*g(n2,n7)*g(n3,n4)*q1(n5)
     &     + g(n1,n6)*g(n2,n7)*g(n3,n5)*q1(n4)
     &     + g(n1,n6)*g(n2,n7)*g(n4,n5)*q1(n3)
     &     + g(n1,n6)*g(n3,n4)*g(n5,n7)*q1(n2)
     &     + g(n1,n6)*g(n3,n5)*g(n4,n7)*q1(n2)
     &     + g(n1,n6)*g(n3,n7)*g(n4,n5)*q1(n2)
     &     + g(n1,n7)*g(n2,n3)*g(n4,n5)*q1(n6)
     &     + g(n1,n7)*g(n2,n3)*g(n4,n6)*q1(n5)
     &     + g(n1,n7)*g(n2,n3)*g(n5,n6)*q1(n4)
     &     + g(n1,n7)*g(n2,n4)*g(n3,n5)*q1(n6)
     &     + g(n1,n7)*g(n2,n4)*g(n3,n6)*q1(n5)
     &     + g(n1,n7)*g(n2,n4)*g(n5,n6)*q1(n3)
     &     + g(n1,n7)*g(n2,n5)*g(n3,n4)*q1(n6)
     &     + g(n1,n7)*g(n2,n5)*g(n3,n6)*q1(n4)
     &     + g(n1,n7)*g(n2,n5)*g(n4,n6)*q1(n3)
     &     + g(n1,n7)*g(n2,n6)*g(n3,n4)*q1(n5)
     &     + g(n1,n7)*g(n2,n6)*g(n3,n5)*q1(n4)
     &     + g(n1,n7)*g(n2,n6)*g(n4,n5)*q1(n3)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &  + Cv(cc0000001 + C0i,ep) * (
     &     + g(n1,n7)*g(n3,n4)*g(n5,n6)*q1(n2)
     &     + g(n1,n7)*g(n3,n5)*g(n4,n6)*q1(n2)
     &     + g(n1,n7)*g(n3,n6)*g(n4,n5)*q1(n2)
     &     + g(n2,n3)*g(n4,n5)*g(n6,n7)*q1(n1)
     &     + g(n2,n3)*g(n4,n6)*g(n5,n7)*q1(n1)
     &     + g(n2,n3)*g(n4,n7)*g(n5,n6)*q1(n1)
     &     + g(n2,n4)*g(n3,n5)*g(n6,n7)*q1(n1)
     &     + g(n2,n4)*g(n3,n6)*g(n5,n7)*q1(n1)
     &     + g(n2,n4)*g(n3,n7)*g(n5,n6)*q1(n1)
     &     + g(n2,n5)*g(n3,n4)*g(n6,n7)*q1(n1)
     &     + g(n2,n5)*g(n3,n6)*g(n4,n7)*q1(n1)
     &     + g(n2,n5)*g(n3,n7)*g(n4,n6)*q1(n1)
     &     + g(n2,n6)*g(n3,n4)*g(n5,n7)*q1(n1)
     &     + g(n2,n6)*g(n3,n5)*g(n4,n7)*q1(n1)
     &     + g(n2,n6)*g(n3,n7)*g(n4,n5)*q1(n1)
     &     + g(n2,n7)*g(n3,n4)*g(n5,n6)*q1(n1)
     &     + g(n2,n7)*g(n3,n5)*g(n4,n6)*q1(n1)
     &     + g(n2,n7)*g(n3,n6)*g(n4,n5)*q1(n1)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &  + Cv(cc0000002 + C0i,ep) * (
     &     + g(n1,n2)*g(n3,n4)*g(n5,n6)*q2(n7)
     &     + g(n1,n2)*g(n3,n4)*g(n5,n7)*q2(n6)
     &     + g(n1,n2)*g(n3,n4)*g(n6,n7)*q2(n5)
     &     + g(n1,n2)*g(n3,n5)*g(n4,n6)*q2(n7)
     &     + g(n1,n2)*g(n3,n5)*g(n4,n7)*q2(n6)
     &     + g(n1,n2)*g(n3,n5)*g(n6,n7)*q2(n4)
     &     + g(n1,n2)*g(n3,n6)*g(n4,n5)*q2(n7)
     &     + g(n1,n2)*g(n3,n6)*g(n4,n7)*q2(n5)
     &     + g(n1,n2)*g(n3,n6)*g(n5,n7)*q2(n4)
     &     + g(n1,n2)*g(n3,n7)*g(n4,n5)*q2(n6)
     &     + g(n1,n2)*g(n3,n7)*g(n4,n6)*q2(n5)
     &     + g(n1,n2)*g(n3,n7)*g(n5,n6)*q2(n4)
     &     + g(n1,n2)*g(n4,n5)*g(n6,n7)*q2(n3)
     &     + g(n1,n2)*g(n4,n6)*g(n5,n7)*q2(n3)
     &     + g(n1,n2)*g(n4,n7)*g(n5,n6)*q2(n3)
     &     + g(n1,n3)*g(n2,n4)*g(n5,n6)*q2(n7)
     &     + g(n1,n3)*g(n2,n4)*g(n5,n7)*q2(n6)
     &     + g(n1,n3)*g(n2,n4)*g(n6,n7)*q2(n5)
     &     + g(n1,n3)*g(n2,n5)*g(n4,n6)*q2(n7)
     &     + g(n1,n3)*g(n2,n5)*g(n4,n7)*q2(n6)
     &     + g(n1,n3)*g(n2,n5)*g(n6,n7)*q2(n4)
     &     + g(n1,n3)*g(n2,n6)*g(n4,n5)*q2(n7)
     &     + g(n1,n3)*g(n2,n6)*g(n4,n7)*q2(n5)
     &     + g(n1,n3)*g(n2,n6)*g(n5,n7)*q2(n4)
     &     + g(n1,n3)*g(n2,n7)*g(n4,n5)*q2(n6)
     &     + g(n1,n3)*g(n2,n7)*g(n4,n6)*q2(n5)
     &     + g(n1,n3)*g(n2,n7)*g(n5,n6)*q2(n4)
     &     + g(n1,n3)*g(n4,n5)*g(n6,n7)*q2(n2)
     &     + g(n1,n3)*g(n4,n6)*g(n5,n7)*q2(n2)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &  + Cv(cc0000002 + C0i,ep) * (
     &     + g(n1,n3)*g(n4,n7)*g(n5,n6)*q2(n2)
     &     + g(n1,n4)*g(n2,n3)*g(n5,n6)*q2(n7)
     &     + g(n1,n4)*g(n2,n3)*g(n5,n7)*q2(n6)
     &     + g(n1,n4)*g(n2,n3)*g(n6,n7)*q2(n5)
     &     + g(n1,n4)*g(n2,n5)*g(n3,n6)*q2(n7)
     &     + g(n1,n4)*g(n2,n5)*g(n3,n7)*q2(n6)
     &     + g(n1,n4)*g(n2,n5)*g(n6,n7)*q2(n3)
     &     + g(n1,n4)*g(n2,n6)*g(n3,n5)*q2(n7)
     &     + g(n1,n4)*g(n2,n6)*g(n3,n7)*q2(n5)
     &     + g(n1,n4)*g(n2,n6)*g(n5,n7)*q2(n3)
     &     + g(n1,n4)*g(n2,n7)*g(n3,n5)*q2(n6)
     &     + g(n1,n4)*g(n2,n7)*g(n3,n6)*q2(n5)
     &     + g(n1,n4)*g(n2,n7)*g(n5,n6)*q2(n3)
     &     + g(n1,n4)*g(n3,n5)*g(n6,n7)*q2(n2)
     &     + g(n1,n4)*g(n3,n6)*g(n5,n7)*q2(n2)
     &     + g(n1,n4)*g(n3,n7)*g(n5,n6)*q2(n2)
     &     + g(n1,n5)*g(n2,n3)*g(n4,n6)*q2(n7)
     &     + g(n1,n5)*g(n2,n3)*g(n4,n7)*q2(n6)
     &     + g(n1,n5)*g(n2,n3)*g(n6,n7)*q2(n4)
     &     + g(n1,n5)*g(n2,n4)*g(n3,n6)*q2(n7)
     &     + g(n1,n5)*g(n2,n4)*g(n3,n7)*q2(n6)
     &     + g(n1,n5)*g(n2,n4)*g(n6,n7)*q2(n3)
     &     + g(n1,n5)*g(n2,n6)*g(n3,n4)*q2(n7)
     &     + g(n1,n5)*g(n2,n6)*g(n3,n7)*q2(n4)
     &     + g(n1,n5)*g(n2,n6)*g(n4,n7)*q2(n3)
     &     + g(n1,n5)*g(n2,n7)*g(n3,n4)*q2(n6)
     &     + g(n1,n5)*g(n2,n7)*g(n3,n6)*q2(n4)
     &     + g(n1,n5)*g(n2,n7)*g(n4,n6)*q2(n3)
     &     + g(n1,n5)*g(n3,n4)*g(n6,n7)*q2(n2)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &   + Cv(cc0000002 + C0i,ep) * (
     &     + g(n1,n5)*g(n3,n6)*g(n4,n7)*q2(n2)
     &     + g(n1,n5)*g(n3,n7)*g(n4,n6)*q2(n2)
     &     + g(n1,n6)*g(n2,n3)*g(n4,n5)*q2(n7)
     &     + g(n1,n6)*g(n2,n3)*g(n4,n7)*q2(n5)
     &     + g(n1,n6)*g(n2,n3)*g(n5,n7)*q2(n4)
     &     + g(n1,n6)*g(n2,n4)*g(n3,n5)*q2(n7)
     &     + g(n1,n6)*g(n2,n4)*g(n3,n7)*q2(n5)
     &     + g(n1,n6)*g(n2,n4)*g(n5,n7)*q2(n3)
     &     + g(n1,n6)*g(n2,n5)*g(n3,n4)*q2(n7)
     &     + g(n1,n6)*g(n2,n5)*g(n3,n7)*q2(n4)
     &     + g(n1,n6)*g(n2,n5)*g(n4,n7)*q2(n3)
     &     + g(n1,n6)*g(n2,n7)*g(n3,n4)*q2(n5)
     &     + g(n1,n6)*g(n2,n7)*g(n3,n5)*q2(n4)
     &     + g(n1,n6)*g(n2,n7)*g(n4,n5)*q2(n3)
     &     + g(n1,n6)*g(n3,n4)*g(n5,n7)*q2(n2)
     &     + g(n1,n6)*g(n3,n5)*g(n4,n7)*q2(n2)
     &     + g(n1,n6)*g(n3,n7)*g(n4,n5)*q2(n2)
     &     + g(n1,n7)*g(n2,n3)*g(n4,n5)*q2(n6)
     &     + g(n1,n7)*g(n2,n3)*g(n4,n6)*q2(n5)
     &     + g(n1,n7)*g(n2,n3)*g(n5,n6)*q2(n4)
     &     + g(n1,n7)*g(n2,n4)*g(n3,n5)*q2(n6)
     &     + g(n1,n7)*g(n2,n4)*g(n3,n6)*q2(n5)
     &     + g(n1,n7)*g(n2,n4)*g(n5,n6)*q2(n3)
     &     + g(n1,n7)*g(n2,n5)*g(n3,n4)*q2(n6)
     &     + g(n1,n7)*g(n2,n5)*g(n3,n6)*q2(n4)
     &     + g(n1,n7)*g(n2,n5)*g(n4,n6)*q2(n3)
     &     + g(n1,n7)*g(n2,n6)*g(n3,n4)*q2(n5)
     &     + g(n1,n7)*g(n2,n6)*g(n3,n5)*q2(n4)
     &     + g(n1,n7)*g(n2,n6)*g(n4,n5)*q2(n3)
     &     )
      FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)=FC7(y7(n1,n2,n3,n4,n5,n6,n7),ep)
     &     + Cv(cc0000002 + C0i,ep) * (
     &     + g(n1,n7)*g(n3,n4)*g(n5,n6)*q2(n2)
     &     + g(n1,n7)*g(n3,n5)*g(n4,n6)*q2(n2)
     &     + g(n1,n7)*g(n3,n6)*g(n4,n5)*q2(n2)
     &     + g(n2,n3)*g(n4,n5)*g(n6,n7)*q2(n1)
     &     + g(n2,n3)*g(n4,n6)*g(n5,n7)*q2(n1)
     &     + g(n2,n3)*g(n4,n7)*g(n5,n6)*q2(n1)
     &     + g(n2,n4)*g(n3,n5)*g(n6,n7)*q2(n1)
     &     + g(n2,n4)*g(n3,n6)*g(n5,n7)*q2(n1)
     &     + g(n2,n4)*g(n3,n7)*g(n5,n6)*q2(n1)
     &     + g(n2,n5)*g(n3,n4)*g(n6,n7)*q2(n1)
     &     + g(n2,n5)*g(n3,n6)*g(n4,n7)*q2(n1)
     &     + g(n2,n5)*g(n3,n7)*g(n4,n6)*q2(n1)
     &     + g(n2,n6)*g(n3,n4)*g(n5,n7)*q2(n1)
     &     + g(n2,n6)*g(n3,n5)*g(n4,n7)*q2(n1)
     &     + g(n2,n6)*g(n3,n7)*g(n4,n5)*q2(n1)
     &     + g(n2,n7)*g(n3,n4)*g(n5,n6)*q2(n1)
     &     + g(n2,n7)*g(n3,n5)*g(n4,n6)*q2(n1)
     &     + g(n2,n7)*g(n3,n6)*g(n4,n5)*q2(n1)
     &     )