Commit Adam 6/29/2014

[unres.git] / source / wham / src-NEWSC-NEWCORR / parmread.F

diff --git a/source/wham/src-NEWSC-NEWCORR/parmread.F b/source/wham/src-NEWSC-NEWCORR/parmread.F
index ba6ec3e..43a24b8 100644 (file)
--- a/source/wham/src-NEWSC-NEWCORR/parmread.F
+++ b/source/wham/src-NEWSC-NEWCORR/parmread.F
@@ -694,10 +694,10 @@ C
         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)
-        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)
+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)
 #else
         EE(1,1,i)= b(10,i)+b(11,i)
         EE(2,2,i)=-b(10,i)+b(11,i)