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

        implicit none
        ptrdiff pnt
        integer size
        character type*1

  This frees up a portion of blank common, previously allocated by
  MemAllop.

  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.
