%N memfree %F $MIR/src/subs/mem.for
%D Free allocated memory.
%P rjs
%: utilities
%B
        subroutine MemFree(pnt,size,type)

        implicit none
        integer pnt,size
        character type*1

  This frees up a portion of blank common, previously allocated by
  MemAlloc. Note these routines are deprecated.

  Warning: memfree() is deprecated, memfrep() should be used.

  Inputs:
    pnt        Pointer to the memory in blank common.
    size       The number of elements to free.
    type       The data type. Possible values are:
                 'i'   Integer.
                 'r'   Real.
                 'l'   Logical.
                 'd'   Double precision.
                 'c'   Complex.
