--- /dev/null
+ 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)
+ double precision delta_T,startGridT
+ 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)
+ integer nGridT
+ logical replica(max_parm),umbrella(max_parm),read_iset(max_parm)
+ common /wham/ Kh,q0,f,beta_h,delta,deltrms,deltrgy,delta_T,
+ & startGridT,fimin,snk,nR,
+ & nRR,nT_h,nQ,stot,nparmset,maxit,rescale_mode,replica,umbrella,
+ & read_iset,totraj,hamil_rep,separate_parset,iparmprint,myparm,
+ & nGridT