2 logical remd_tlist,remd_mlist,mremdsync,restart1file,traj1file
3 double precision retmin,retmax,remd_t(maxprocs)
4 integer remd_m(maxprocs),i_sync_step
5 integer*2 i2rep(0:maxprocs),i2set(0:maxprocs)
6 integer*2 ifirst(maxprocs)
7 integer*2 nupa(0:maxprocs/4,0:maxprocs),
8 & ndowna(0:maxprocs/4,0:maxprocs)
9 real t_restart1(5,maxprocs)
10 integer iset_restart1(maxprocs)
11 logical t_exchange_only
12 common /remdcommon/ nrep,nstex,retmin,retmax,remd_t,remd_tlist,
13 & remd_mlist,remd_m,mremdsync,restart1file,
14 & traj1file,i_sync_step,t_exchange_only
15 common /remdrestart/ i2rep,i2set,ifirst,nupa,ndowna,t_restart1,
17 real totT_cache,EK_cache,potE_cache,t_bath_cache,Uconst_cache,
18 & qfrag_cache,qpair_cache,c_cache,uscdiff_cache,
19 & ugamma_cache,utheta_cache
20 integer ntwx_cache,ii_write,max_cache_traj_use
21 common /traj1cache/ totT_cache(max_cache_traj),
22 & EK_cache(max_cache_traj),
23 & potE_cache(max_cache_traj),
24 & t_bath_cache(max_cache_traj),
25 & Uconst_cache(max_cache_traj),
26 & qfrag_cache(50,max_cache_traj),
27 & qpair_cache(100,max_cache_traj),
28 & ugamma_cache(maxfrag_back,max_cache_traj),
29 & utheta_cache(maxfrag_back,max_cache_traj),
30 & uscdiff_cache(maxfrag_back,max_cache_traj),
31 & c_cache(3,maxres2+2,max_cache_traj),
32 & iset_cache(max_cache_traj),ntwx_cache,
33 & ii_write,max_cache_traj_use