Lorentzian restraints on distances in wham

[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)
-      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
@@ -48,6 +49,8 @@
      &        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)