projects
/
unres.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Adam's unres update
[unres.git]
/
source
/
unres
/
src-HCD-5D
/
refsys.f
diff --git
a/source/unres/src-HCD-5D/refsys.f
b/source/unres/src-HCD-5D/refsys.f
index
4b7b763
..
5573f05
100644
(file)
--- a/
source/unres/src-HCD-5D/refsys.f
+++ b/
source/unres/src-HCD-5D/refsys.f
@@
-21,12
+21,12
@@
c print *,'just initialize'
c print *,fail
s1=0.0
s2=0.0
c print *,fail
s1=0.0
s2=0.0
- print *,s1,s2
+c print *,s1,s2
do 1 i=1,3
do 1 i=1,3
- print *, i2,i3,i4
+c print *, i2,i3,i4
zi=c(i,i2)-c(i,i3)
ui=c(i,i4)-c(i,i3)
zi=c(i,i2)-c(i,i3)
ui=c(i,i4)-c(i,i3)
- print *,zi,ui
+c print *,zi,ui
s1=s1+zi*zi
s2=s2+ui*ui
z(i)=zi
s1=s1+zi*zi
s2=s2+ui*ui
z(i)=zi
@@
-41,7
+41,7
@@
c print *,fail
write(iout,1000) i3,i4,i1
fail=.true.
return
write(iout,1000) i3,i4,i1
fail=.true.
return
- print *,'two if pass'
+c print *,'two if pass'
4 s1=1.0/s1
s2=1.0/s2
v1=z(2)*u(3)-z(3)*u(2)
4 s1=1.0/s1
s2=1.0/s2
v1=z(2)*u(3)-z(3)*u(2)