projects
/
unres.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
dimensions
[unres.git]
/
source
/
wham
/
src
/
bxread.F
diff --git
a/source/wham/src/bxread.F
b/source/wham/src/bxread.F
index
32c935d
..
112d8ca
100644
(file)
--- a/
source/wham/src/bxread.F
+++ b/
source/wham/src/bxread.F
@@
-20,7
+20,8
@@
include "COMMON.FREE"
include "COMMON.SBRIDGE"
real*4 csingle(3,maxres2)
include "COMMON.FREE"
include "COMMON.SBRIDGE"
real*4 csingle(3,maxres2)
- character*64 nazwa,bprotfile_temp
+ character*64 nazwa
+ character*128 bprotfile_temp
character*3 liczba
integer i,is,ie,j,ii,jj,k,kk,l,ll,mm,if,m
integer nrec,nlines,iscor,islice
character*3 liczba
integer i,is,ie,j,ii,jj,k,kk,l,ll,mm,if,m
integer nrec,nlines,iscor,islice
@@
-48,6
+49,8
@@
& eini,efree,rmsdev,(prop(j),j=1,nQ),iscor
ii=ii+1
kk=kk+1
& eini,efree,rmsdev,(prop(j),j=1,nQ),iscor
ii=ii+1
kk=kk+1
+ write(iout,*) 'BXWEJ',eini,l
+ flush(iout)
if (mod(kk,isampl(iparm)).eq.0) then
jj=jj+1
write(ientout,rec=jj)
if (mod(kk,isampl(iparm)).eq.0) then
jj=jj+1
write(ientout,rec=jj)