projects
/
unres.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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)
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)
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
c b2(1,i)=0.0d0
c b2(2,i)=0.0d0