ALLOCATED (array)

  Class:  Inquiry function - Generic

  Indicates whether an allocatable array is currently allocated.

  The "array" must be an allocatable array.

  The result has the value true if ARRAY is currently allocated,
  false if ARRAY is not currently allocated, or undefined if its
  allocation status is undefined.

  The setting of integer size compiler options can affect this
  function.

  Example:

  REAL, ALLOCATABLE, DIMENSION (:,:,:) :: E
  PRINT *, ALLOCATED (E)       ! Returns the value false
  ALLOCATE (E (12, 15, 20))
  PRINT *, ALLOCATED (E)       ! Returns the value true