VMS Help  —  FORTRAN  Intrinsic Procedures, FREE
  FREE (integer)

  Class:  Intrinsic subroutine

  Frees a block of memory that is currently allocated.

  The argument must be of type INTEGER*8.  This value is the starting
  address of the memory to be freed, previously allocated by the
  MALLOC intrinsic function.

  If the freed address was not previously allocated by MALLOC, or if
  an address is freed more than once, results are unpredictable.

  Examples:

  Consider the following:

  INTEGER(4) ADDR, SIZE
  SIZE = 1024                 ! Size in bytes
  ADDR = MALLOC(SIZE)         ! Allocate the memory
  CALL FREE(ADDR)             ! Free it
  END
Close Help