enddo
enddo
endif
-#define DEBUG
+C#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
+C#undef DEBUG
call add_new_cconf(jjj,jj,jj_old,icount,Next)
enddo
101 continue
c
c Read conformations off a DA scratchfile.
c
-#define DEBUG
+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
+C#undef DEBUG
enddo
write (iout,*) "just before leave"
call flush(iout)