- common /refstruct/ cref(3,maxres2+2),nsup,nstart_sup,nstart_seq,
- & nend_sup,tabperm(maxperm,maxsym)
+ common /refstruct/ cref(3,maxres2+2,maxperm),
+ & crefjlee(3,maxres2+2),
+ & chain_rep(3,maxres2+2,maxsym), nsup,nstart_sup,
+ & nstart_seq,
+ & nend_sup, chain_length,tabperm(maxperm,maxsym)
+ double precision boxxsize,boxysize,boxzsize,enecut,sscut,sss,
+ & sssgrad,
+ & buflipbot, bufliptop,bordlipbot,bordliptop,lipbufthick,lipthick
+ common /box/ boxxsize,boxysize,boxzsize,enecut,sscut,sss,sssgrad,
+ & buflipbot, bufliptop,bordlipbot,bordliptop,lipbufthick,lipthick
+