1
subroutine fpseno(maxtr,up,left,right,info,merk,ibind,nbind)
2
c subroutine fpseno fetches a branch of a triply linked tree the
3
c information of which is kept in the arrays up,left,right and info.
4
c the branch has a specified length nbind and is determined by the
5
c parameter merk which points to its terminal node. the information
6
c field of the nodes of this branch is stored in the array ibind. on
7
c exit merk points to a new branch of length nbind or takes the value
8
c 1 if no such branch was found.
10
c ..scalar arguments..
11
integer maxtr,merk,nbind
13
integer up(maxtr),left(maxtr),right(maxtr),info(maxtr),
15
c ..scalar arguments..
28
if (merk.le.1) go to 40