| putnod.f.html |   | 
  | Source file:   putnod.f | 
| Directory:    /Users/rjl/git/rjleveque/clawpack-4.6.3/amrclaw/2d/lib | 
| Converted:    Mon Jan 21 2013 at 20:15:12 
  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