arcos = 0.5D0*(PI-DSIGN(1.0D0,X)*PI)
[unres.git] / source / wham / src-M / COMMON.FREE
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