function set_TorLnext(edge_ref,value)
global all_edges;

all_edges( edge_ref(1) ).next{ mod4(edge_ref(2)+3) } = value;

