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