write (iout,*) "ncon", ncon,maxstr_proc
do i=1,min0(ncon,maxstr_proc)-1
sumprob=sumprob+exp(-fdimless(i)+fdimless(1))/qfree
-#ifdef DEBUG
+C#ifdef DEBUG
+ write (iout,*) "tu szukaj ponizej 7"
write (iout,*) i,ib,beta_h(ib),
& 1.0d0/(1.987d-3*beta_h(ib)),list_conf(i),
& totfree(list_conf(i)),
& -entfac(list_conf(i)),fdimless(i),sumprob
-#endif
+C#endif
if (sumprob.gt.prob_limit) goto 122
c if (sumprob.gt.1.00d0) goto 122
nlist=nlist+1