SUB HDDOTL(nod1%, nod2%, loop%, current.loop%, num.loops%) ! ! check if node combination occurs in another loop ! {BL:[101,5]FCSERRCOM.B4S} {BL:[101,5]TRUTH.B4S} ! {HDDDEF.B4S} ! MAP (LOOP1) loop1$ = .loop.buf.siz% MAP (LOOP1) loop1%, l1.node%(.max.nodes%) ! loop.found% = .false% i% = 0% ! WHILE((i% < num.loops%) AND (NOT (loop.found%))) ! i% = i% + 1% n1.found%, n2.found% = .false% ! start with both false at beginning of each loop tested CALL GET.(.loop.chan%, loop1$, i%) ! IF ((loop1% > 0%) AND (loop1% <> current.loop%)) ! i.e. it is not an undefined loop or the current loop & THEN nod% = 0% & \ WHILE l1.node%(nod%) & \ n1.fd% = (l1.node%(nod%) = nod1%) & \ n2.fd% = (l1.node%(nod%) = nod2%) & \ n1.found% = n1.found% OR n1.fd% & \ n2.found% = n2.found% OR n2.fd% & \ nod% = nod% + 1% & \ NEXT & \ loop.found% = (n1.found% AND n2.found%) & ! NEXT ! IF loop.found% & THEN loop% = i% & ELSE loop% = 0% ! ! ! print "HDDOTL: i, nod%, l1.node(nod), nod1, nod2, n1.f, n2.f " ! print i%; nod%; l1.node%(nod%), nod1%; nod2%, n1.found%; n2.found% ! print ! print "before the NEXT" ! print "after the NEXT" ! print "HDDOTL: i, loop found "; i%, loop.found% ! SUBEND