Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(array_i1d_obj), | intent(in) | :: | array |
PURE FUNCTION array_size_i1d(array) RESULT(the_size)
TYPE(array_i1d_obj), INTENT(IN) :: array
INTEGER :: the_size
IF (ASSOCIATED(array%low)) THEN
the_size = SIZE(array%low%data)
ELSE
the_size = 0
END IF
END FUNCTION array_size_i1d