projects
/
unres.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
small changes
[unres.git]
/
source
/
unres
/
src_MD-M
/
unres.F
diff --git
a/source/unres/src_MD-M/unres.F
b/source/unres/src_MD-M/unres.F
index
f51b2d7
..
59c6b64
100644
(file)
--- a/
source/unres/src_MD-M/unres.F
+++ b/
source/unres/src_MD-M/unres.F
@@
-140,11
+140,11
@@
c if (me.eq.king .or. .not. out1file) then
c write (iout,*) "Calling chainbuild"
c call flush(iout)
c endif
c write (iout,*) "Calling chainbuild"
c call flush(iout)
c endif
- call chainbuild
-c if (me.eq.king .or. .not. out1file) then
-c write (iout,*) "Calling MD"
-c call flush(iout)
-c endif
+! call chainbuild
+ if (me.eq.king .or. .not. out1file) then
+ write (iout,*) "Calling MD"
+ call flush(iout)
+ endif
call MD
return
end
call MD
return
end
@@
-159,9
+159,9
@@
c---------------------------------------------------------------------------
include 'COMMON.CONTROL'
include 'COMMON.IOUNITS'
include 'COMMON.REMD'
include 'COMMON.CONTROL'
include 'COMMON.IOUNITS'
include 'COMMON.REMD'
- if (me.eq.king .or. .not. out1file)
- & write (iout,*) "Calling chainbuild"
- call chainbuild
+! if (me.eq.king .or. .not. out1file)
+! & write (iout,*) "Calling chainbuild"
+! call chainbuild
if (me.eq.king .or. .not. out1file)
& write (iout,*) "Calling REMD"
if (remd_mlist) then
if (me.eq.king .or. .not. out1file)
& write (iout,*) "Calling REMD"
if (remd_mlist) then