putnod
ΒΆ
- Signature:
subroutine putnod(mptr)
- Arguments:
integer, intent(in)
:mptr
: Pointer to the grid being returned to the free list.
- Description:
Places the node
mptr
at the head of the free list. This entire routine is simply:node(nextfree, mptr) = ndfree ndfree = mptr