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
& 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)