c print *,"calling WRTCLUST",ncon
c write (iout,*) "ICUT",icut," PRINTPDB ",PRINTPDB(icut)
rewind 80
- call flush(iout)
+c call flush(iout)
temper=1.0d0/(beta_h(ib)*1.987d-3)
if (temper.lt.100.0d0) then
write(ctemper,'(f3.0)') temper
endif
c write (iout,*) " ncon",ncon,"i",i," j",j," ii",ii," jj",jj,
c & " ind",ind
- call flush(iout)
+c call flush(iout)
curr_dist=dabs(diss(ind)+0.0d0)
c write(iout,'(i10,4i4,f12.4)') ind,ii,jj,list_conf(ii),
c & list_conf(jj),curr_dist
c & totfree(nconf(i,ncon_out)),emin1,ecut
enddo
c write (iout,*) "ncon_out",ncon_out
- call flush(iout)
+c call flush(iout)
do j=1,nres
tempfac(1,j)=5.0d0
tempfac(2,j)=5.0d0
endif
ENDDO ! K
c write (iout,*) "rmsmin",rmsmin," rms",rms
- call flush(iout)
+c call flush(iout)
do i=1,2*nres
do j=1,3
c(j,i)=allcart(j,i,jconmin)