Cspat=0.0d0
Do i=1,3
Do j=1,3
Do k=1,3
Do l=1,3
Do tt=1,3
Do bb=1,3
Do cc=1,3
Do mm=1,3
Cspat(Elamn(i,j),Elamn(k,l))=Cspat(Elamn(i,j),Elamn(k,l)) +
* F(i,tt)*F(j,bb)*Cmat(Elamn(tt,bb),Elamn(cc,mm))*
* F(k,cc)*F(l,mm)
End do
End do
End do
End do
End do
End do
End do
End do