double precision step_scan,betaT,betmin,
     &  betmax,wcv,weiCv,target_cv,weilik,wforce,wnat,weinat,nuexp
      integer opt_mode,nmcm,iseed,nbeta,
     &  iprt,maxstep,mode,maxstep_scan,nscancycle
      logical restart_flag,maxlik,fmatch
      common /vmcpar/ 
     & betaT(maxT,maxbatch,maxprot),
     & betmin(maxbatch,maxprot),betmax(maxbatch,maxprot),
     & target_cv(maxT,maxprot),weiCv(maxT,maxprot),wCv(maxprot),
     & nuexp(maxdimnat,maxT,maxnatlike,maxprot),
     & weinat(maxdimnat,maxT,maxnatlike,maxprot),
     & wnat(maxnatlike,maxprot),
     & weilik(maxT,maxprot),wforce(maxprot),
     & step_scan,
     & nbeta(maxbatch,maxprot),
     & opt_mode,nmcm,iprt,mode,iseed,
     & maxstep,maxstep_scan,nscancycle,restart_flag,maxlik(maxprot),
     & fmatch(maxprot)