--------------------------------------------------------
; dist_spin a b
;
; computes the distance between 2 spins
;
set a = $_
set b = $_
which_atom $a
set aa = $returned
which_atom $b
set ab = $returned
dist_atom $aa $ab

