$write sys$error "extract FIND_NODE.FOR"
$copy sys$input FIND_NODE.FOR
$deck/dollars="Fix_Find_Node"
	logical function find_node(dir_spec,ptr)

! Returns the pointer (ptr) of a given dir_spec

	include 'swing.cmn/List'

	character dir_spec*(*)
	integer   ii,jj,ptr,ll
	logical   found_node

! Find the non-blank length of dir_spec
	ii=len(dir_spec)
	do while (ii.gt.0 .and. dir_spec(ii:ii).eq.' ')
	 ii=ii-1
	end do

! Now search through node.spec
	jj=1
	found_node=.false.
	do while (.not. found_node)
	 ll=node(jj).length
	 If (ll.gt.0) then
	  if (node(jj).spec(1:ll).eq.dir_spec(1:ii)) then
	   found_node=.true.
	   ptr=jj
	  end if
	 End If
	 jj=jj+1
	end do

	find_node=found_node

	return
	end
Fix_Find_Node