#endif
endif
-#define DEBUG
+C#define DEBUG
#ifdef DEBUG
write (iout,*) "Opening file ",intinname(:ilen(intinname))
write (iout,*) "lenrec",lenrec_in
call flush(iout)
#endif
-#undef DEBUG
+C#undef DEBUG
c write (iout,*) "maxconf",maxconf
i=0
do while (.true.)
enddo
enddo
endif
+#define DEBUG
#ifdef DEBUG
write (iout,'(5hREAD ,i5,3f15.4,i10)')
& jj+1,energy(jj+1),entfac(jj+1),
write (iout,'(8f10.5)') ((c(j,i+nres),j=1,3),i=nnt,nct)
call flush(iout)
#endif
+#undef DEBUG
call add_new_cconf(jjj,jj,jj_old,icount,Next)
enddo
101 continue
integer i,j,ij,ii,iii
integer len
character*16 form,acc
- character*32 nam
+ character*80 nam
c
c Read conformations off a DA scratchfile.
c
+#define DEBUG
#ifdef DEBUG
write (iout,*) "DAREAD_COORDS"
write (iout,*) "istart_conf",istart_conf," iend_conf",iend_conf
write (iout,*) "Reading binary file, record",iii," ii",ii
call flush(iout)
#endif
+ if (dyn_ss) then
+ read(icbase,rec=iii) ((allcart(j,i,ij),j=1,3),i=1,nres),
+ & ((allcart(j,i,ij),j=1,3),i=nnt+nres,nct+nres),
+c & nss_all(ij),(ihpb_all(i,ij),jhpb_all(i,ij),i=1,nss),
+ & entfac(ii),rmstb(ii)
+ else
read(icbase,rec=iii) ((allcart(j,i,ij),j=1,3),i=1,nres),
& ((allcart(j,i,ij),j=1,3),i=nnt+nres,nct+nres),
& nss_all(ij),(ihpb_all(i,ij),jhpb_all(i,ij),i=1,nss),
& entfac(ii),rmstb(ii)
+ endif
#ifdef DEBUG
write (iout,*) ii,iii,ij,entfac(ii)
write (iout,'(8f10.5)') ((allcart(j,i,ij),j=1,3),i=1,nres)
& jhpb_all(i,ij),i=1,nss)
call flush(iout)
#endif
+#undef DEBUG
enddo
+ write (iout,*) "just before leave"
+ call flush(iout)
return
end
c------------------------------------------------------------------------------
write (iout,*) "Writing binary file, record",iii," ii",ii
call flush(iout)
#endif
+ if (dyn_ss) then
+ write(unit_out,rec=iii) ((allcart(j,i,ij),j=1,3),i=1,nres),
+ & ((allcart(j,i,ij),j=1,3),i=nnt+nres,nct+nres),
+c & nss_all(ij),(ihpb_all(i,ij),jhpb_all(i,ij),i=1,nss_all(ij))
+ & entfac(ii),rmstb(ii)
+ else
write(unit_out,rec=iii) ((allcart(j,i,ij),j=1,3),i=1,nres),
& ((allcart(j,i,ij),j=1,3),i=nnt+nres,nct+nres),
& nss_all(ij),(ihpb_all(i,ij),jhpb_all(i,ij),i=1,nss_all(ij)),
& entfac(ii),rmstb(ii)
+ endif
#ifdef DEBUG
write (iout,'(8f10.5)') ((allcart(j,i,ij),j=1,3),i=1,nres)
write (iout,'(8f10.4)') ((allcart(j,i,ij),j=1,3),i=nnt+nres,