C write (iout,*) "tuz przed energia"
call etotal(energia(0),fT)
C write (iout,*) "tuz za energia"
-
+#define DEBUG
#ifdef DEBUG
write (iout,*) "Conformation",i
write (iout,'(8f10.5)') ((c(l,k),l=1,3),k=1,nres)
write (iout,'(8f10.5)') ((c(l,k+nres),l=1,3),k=nnt,nct)
call enerprint(energia(0),fT)
+#endif
+#undef DEBUG
+#ifdef DEBUG
write (iout,'(2i5,21f8.2)') i,iparm,(energia(k),k=1,21)
write (iout,*) "ftors(1)",ftors(1)
call briefout(i,energia(0))