HP Fortran Programmer's Reference (September 2007)

Intrinsic procedures
Intrinsic procedure specifications
Chapter 11 521
Result type,
type parameters,
and shape
The result is of type logical with the same kind type parameter as MASK. It is scalar if DIM is
absent or MASK has rank one; otherwise, the result is an array of rank n -1 and of shape ( d
1
, d
2
,
..., d
DIM-1
, d
DIM+1
, ..., d
n
) where ( d
1
, d
2
, ..., d
n
) is the shape of MASK.
Result value
Case 1 The result of ALL(MASK) has the value .TRUE. if all elements of MASK are
.TRUE. or if MASK has size zero, and the result has value .FALSE. if any
element of MASK is .FALSE..
Case 2 If MASK has rank one, ALL(MASK, DIM) has a value equal to that of
ALL(MASK). Otherwise, the value of element ( s
1
, s
2
, ..., s
DIM-1
, s
DIM+1
, ...,
s
n
) of ALL(MASK, DIM) is equal to ALL(MASK ( s
1
, s
2
, ..., s
DIM-1
, :, s
DIM+1
, ...,
s
n
)).
ALLOCATED(ARRAY)
Description
Indicate whether or not an allocatable array is currently allocated.
Class
Inquiry function.
Argument
ARRAY must be an allocatable array.
Result type,
type parameters,
and shape
Default logical scalar.
Result value
The result has the value .TRUE. if ARRAY is currently allocated and has the value .FALSE. if
ARRAY is not currently allocated. The result is undefined if the allocation status of the array is
undefined.