Help for this page
local (*Axcoord, *Aycoord, *Azcoord, *Bxcoord, *Bycoord, *Bzcoord, *re +s_to_atom, *natres, $nseg, *beginning, *ending) = @_; ... ... $Axcord[$counter] ...
my ($Axcoord, $Aycoord, $Azcoord, $Bxcoord, $Bycoord, $Bzcoord, $res_t +o_atom, $natres, $nseg, $beginning, $ending) = @_; ... $Axcord->[$counter] ...