if (licz.gt.time_end) exit
if (licz.ge.time_start .and. mod(licz,freq).eq.0) then
write (*,'(e15.8,2e15.5,f12.5,$)') time,potE,uconst,t_bath
if (licz.gt.time_end) exit
if (licz.ge.time_start .and. mod(licz,freq).eq.0) then
write (*,'(e15.8,2e15.5,f12.5,$)') time,potE,uconst,t_bath