Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(array_i1d_obj), | intent(in) | :: | array |
PURE FUNCTION array_exists_i1d(array) RESULT(array_exists)
TYPE(array_i1d_obj), INTENT(IN) :: array
LOGICAL :: array_exists
array_exists = ASSOCIATED(array%low)
IF (array_exists) array_exists = array%low%refcount .GT. 0
END FUNCTION array_exists_i1d