|
putnod.f.html |
|
|
Source file: putnod.f
|
|
Directory: /Users/rjl/git/rjleveque/clawpack-4.6.2/amrclaw/2d/lib
|
|
Converted: Wed May 30 2012 at 13:01:29
using clawcode2html
|
|
This documentation file will
not reflect any later changes in the source file.
|
c
c -------------------------------------------------------------
c
subroutine putnod (mptr)
c
implicit double precision (a-h,o-z)
include "call.i"
c :::::::::::::::::::::::::::::: PUTNOD :::::::::::::::::::::;
c
c return mptr node to the linked list kept in node array.
c
c ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::;
c
node(nextfree, mptr) = ndfree
ndfree = mptr
c
return
end