X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc%2Fbxread.F;h=112d8ca9f4cadc070caa35613734142d44425f57;hb=ff639b60bc8a1c011c8fed81bc1f82e4b35f4e2a;hp=32c935dcc2b5ed2267a592dfba846d4fb0003f33;hpb=c2b5c2a1de9cca14f60446937085424047097953;p=unres.git

diff --git a/source/wham/src/bxread.F b/source/wham/src/bxread.F
index 32c935d..112d8ca 100644
--- 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)