C... procedure
c-----------------------------------------------------------------------------
double precision Tcur,Tmin,Tmax,TstepH,TstepC,RanFract,
- & overlap_cut,e_up,delte
+ & overlap_cut,e_up,delte,Rbol,betbol
integer nstepH,nstepC,maxacc,maxgen,maxtrial,maxtrial_iter,
& maxrepm,ngen,ntrial,ntherm,nrepm,neneval,nsave,maxoverlap,
- & nsave_part,max_mcm_it,nsweep,print_mc
+ & nsave_part,max_mcm_it,nsweep,print_mc,nbond_move,nbond_acc
logical print_stat,print_int
common /mcm/ Tcur,Tmin,Tmax,TstepH,TstepC,Rbol,betbol,RanFract,
& overlap_cut,e_up,delte,