Static ordering

CALL GSNEXT (CHMOTH,IN,NLIST,LIST)

CHMOTH

( CHARACTER*4) name of the mother volume to be ordered;

IN

( INTEGER) number of the content for which a list is established;

NLIST

( INTEGER) number of neighbours to be considered during tracking;

LIST

( INTEGER) list of neighbours to volume IN.

This routine stores a given ordered LIST of NLIST daughter volumes to search when leaving the $INth$ daughter of the mother volume CHMOTH.

If IN=0, for each content, GSNEXT builds a list limited to the contents IN+1 (if it exists), IN-1 (if it exists) and IN itself.

CALL GSNEAR (CHMOTH,IN,NLIST,LIST)

CHMOTH

( CHARACTER*4) name of the mother volume to be ordered;

IN

( INTEGER) number of the content for which a list is established;

NLIST

( INTEGER) number of neighbours to be considered during tracking;

LIST

( INTEGER) list of neighbours to volume IN.

This routine stores a given ordered LIST of NLIST daughter volumes to search when leaving the $INth$ daughter of the mother volume CHMOTH.

If LIST(1)=0 the particle is back into the mother when leaving the $INth$ daughter. This means that the $INth$ is not contiguous to any other daughter or to the boundary of the mother.

If IN=-1, the mother does not have contents contiguous to its boundaries (status bit 4 set in mother volume bank for action in GGCLOS).

If IN=0 for each content GSNEAR sets LIST(1)=0.

GSNEAR must be called after all contents have been position ( except when IN=-1)