projects
/
unres.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
multichain cleaning output
[unres.git]
/
source
/
wham
/
src-M
/
wham_multparm.F
diff --git
a/source/wham/src-M/wham_multparm.F
b/source/wham/src-M/wham_multparm.F
index
e80a39d
..
de73250
100644
(file)
--- a/
source/wham/src-M/wham_multparm.F
+++ b/
source/wham/src-M/wham_multparm.F
@@
-58,6
+58,7
@@
c NaNQ initialization
call flush(iout)
call molread(*10)
call flush(iout)
call flush(iout)
call molread(*10)
call flush(iout)
+ if (constr_dist.gt.0) call read_dist_constr
#ifdef MPI
write (iout,*) "Calling proc_groups"
call proc_groups
#ifdef MPI
write (iout,*) "Calling proc_groups"
call proc_groups
@@
-88,8
+89,8
@@
c NaNQ initialization
call read_ref_structure(*10)
call proc_cont
call fragment_list
call read_ref_structure(*10)
call proc_cont
call fragment_list
- if (constr_dist.gt.0) call read_dist_constr
endif
endif
+C if (constr_dist.gt.0) call read_dist_constr
write (iout,*) "Begin read_database"
call flush(iout)
call read_database(*10)
write (iout,*) "Begin read_database"
call flush(iout)
call read_database(*10)