& 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
+ common /box/ boxxsize,boxysize,boxzsize,enecut,sscut,sss,sssgrad
+