integer nQ,nparmset,stot(maxslice),rescale_mode,iparmprint,myparm logical hamil_rep,separate_parset double precision Kh(MaxQ,MaxR,MaxT_h,max_parm), & q0(MaxQ,MaxR,MaxT_h,max_parm),delta,deltrms,deltrgy,fimin, & f(maxR,maxT_h,max_parm),beta_h(MaxT_h,max_parm) integer nR(maxT_h,max_parm),snk(MaxR,MaxT_h,max_parm,MaxSlice), & nT_h(max_parm),maxit,totraj(maxR,max_parm),nRR(maxT_h,max_parm) logical replica(max_parm),umbrella(max_parm),read_iset(max_parm) common /wham/ Kh,q0,f,beta_h,delta,deltrms,deltrgy,fimin,snk,nR, & nRR,nT_h,nQ,stot,nparmset,maxit,rescale_mode,replica,umbrella, & read_iset,totraj,hamil_rep,separate_parset,iparmprint,myparm