double precision t_bath_temp,delta,ene_iex_iex,ene_i_i,ene_iex_i,
& ene_i_iex,xxx,tmp,econstr_temp_iex,econstr_temp_i
integer iran_num
double precision ran_number
double precision t_bath_temp,delta,ene_iex_iex,ene_i_i,ene_iex_i,
& ene_i_iex,xxx,tmp,econstr_temp_iex,econstr_temp_i
integer iran_num
double precision ran_number