&nend_sup,chain_length,tabperm(maxperm,maxsym),nperm,
& nstart_seq,ishift_pdb
double precision boxxsize,boxysize,boxzsize,enecut,sscut,sss,
- &sssgrad
- common /box/ boxxsize,boxysize,boxzsize,enecut,sscut,sss,sssgrad
+ &sssgrad,
+ & buflipbot, bufliptop,bordlipbot,bordliptop,lipbufthick,lipthick,
+ & tubecenter,tubeR0,
+ & buftubebot, buftubetop,bordtubebot,bordtubetop,tubebufthick
+ common /box/ boxxsize,boxysize,boxzsize,enecut,sscut,sss,sssgrad,
+ & buflipbot, bufliptop,bordlipbot,bordliptop,lipbufthick,lipthick
+ common /tube/ tubecenter(3),tubeR0,
+ & buftubebot, buftubetop,bordtubebot,bordtubetop,tubebufthick