& nsup,nstart_sup,nstart_seq,
& chain_length,iprzes,tabperm(maxperm,maxsym),nperm
common /from_zscore/ nz_start,nz_end,iz_sc
+ double precision boxxsize,boxysize,boxzsize,enecut,sscut,sss,sssgrad
+ common /box/ boxxsize,boxysize,boxzsize,enecut,sscut,sss,sssgrad