tobias
/
MCFM-10.4
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
22 Commits
1 Branch
0 Tags
77 MiB
 
 
 
 
 
 
Tree: fc39d4149e
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from 'fc39d4149e'
${ noResults }
MCFM-10.4/lib/TensorReduction/Include/pvFC7.f

2072 lines
106 KiB
Raw Blame History

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)
& )