-! write (iout,*) "Tu jest problem",potEcomp(0),d_time
- call gen_rand_conf(1,*335)
- cycle
- 335 write(iout,*) "Failed genrand"
+ if (icount_scale.gt.15) then
+ write (iout,*) "Tu jest problem",potEcomp(0),d_time
+! call gen_rand_conf(1,*335)
+! call minim_dc(potEcomp(0),iretcode,100)
+
+! call zerograd
+! call etotal(potEcomp)
+! write(iout,*) "needed to repara,",potEcomp
+ endif