working shielding

[unres.git] / source / unres / src_MD-M / parmread.F

diff --git a/source/unres/src_MD-M/parmread.F b/source/unres/src_MD-M/parmread.F
index 574552c..c881425 100644 (file)
--- a/source/unres/src_MD-M/parmread.F
+++ b/source/unres/src_MD-M/parmread.F
@@ -949,14 +949,14 @@ c        B2(1,-i)  =b(2)
 c        B2(2,-i)  =-b(4)
         B1tilde(1,i) = b(3,i)
         B1tilde(2,i) =-b(5,i)
-        B1tilde(1,-i) =-b(3,i)
-        B1tilde(2,-i) =b(5,i)
+C        B1tilde(1,-i) =-b(3,i)
+C        B1tilde(2,-i) =b(5,i)
         b1tilde(1,i)=0.0d0
         b1tilde(2,i)=0.0d0
         B2(1,i)  = b(2,i)
         B2(2,i)  = b(4,i)
-        B2(1,-i)  =b(2,i)
-        B2(2,-i)  =-b(4,i)
+C        B2(1,-i)  =b(2,i)
+C        B2(2,-i)  =-b(4,i)
 
 c        b2(1,i)=0.0d0
 c        b2(2,i)=0.0d0