1 double precision step_scan,betaT,betmin,
2 & betmax,wcv,weiCv,target_cv,weilik,wnat,weinat,nuexp
3 integer opt_mode,nmcm,iseed,nbeta,
4 & iprt,maxstep,mode,maxstep_scan,nscancycle
7 & betaT(maxT,maxbatch,maxprot),
8 & betmin(maxbatch,maxprot),betmax(maxbatch,maxprot),
9 & target_cv(maxT,maxprot),weiCv(maxT,maxprot),wCv(maxprot),
10 & nuexp(maxdimnat,maxT,maxnatlike,maxprot),
11 & weinat(maxdimnat,maxT,maxnatlike,maxprot),
12 & wnat(maxnatlike,maxprot),
13 & weilik(maxT,maxprot),
15 & nbeta(maxbatch,maxprot),
16 & opt_mode,nmcm,iprt,mode,iseed,
17 & maxstep,maxstep_scan,nscancycle,restart_flag