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