common /from_zscore/ nz_start,nz_end,iz_sc
double precision boxxsize,boxysize,boxzsize,enecut,sscut,
& sss,sssgrad,
- & buflipbot, bufliptop,bordlipbot,bordliptop,lipbufthick,lipthick
+ & buflipbot, bufliptop,bordlipbot,bordliptop,lipbufthick,lipthick,
+ & tubecenter,tubeR0
common /box/ boxxsize,boxysize,boxzsize,enecut,sscut,sss,sssgrad,
& buflipbot, bufliptop,bordlipbot,bordliptop,lipbufthick,lipthick
common /afm/ forceAFMconst, distafminit,afmend,afmbeg,
& velAFMconst,
& totTafm
+ common /tube/ tubecenter(3),tubeR0