array_exists_i1d Function

private pure function array_exists_i1d(array) result(array_exists)

Arguments

Type IntentOptional Attributes Name
type(array_i1d_obj), intent(in) :: array

Return Value logical


Source Code

   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