EEold(2,2,i)=-b(10,i)+b(11,i)
EEold(2,1,i)= b(12,i)-b(13,i)
EEold(1,2,i)= b(12,i)+b(13,i)
-c EEold(1,1,-i)= b(10,i)+b(11,i)
-c EEold(2,2,-i)=-b(10,i)+b(11,i)
-c EEold(2,1,-i)=-b(12,i)+b(13,i)
-c EEold(1,2,-i)=-b(12,i)-b(13,i)
+ EEold(1,1,-i)= b(10,i)+b(11,i)
+ EEold(2,2,-i)=-b(10,i)+b(11,i)
+ EEold(2,1,-i)=-b(12,i)+b(13,i)
+ EEold(1,2,-i)=-b(12,i)-b(13,i)
#else
EE(1,1,i)= b(10,i)+b(11,i)
EE(2,2,i)=-b(10,i)+b(11,i)