Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(array_i1d_obj), | intent(in) | :: | array |
FUNCTION array_data_i1d(array) RESULT(DATA)
TYPE(array_i1d_obj), INTENT(IN) :: array
INTEGER, DIMENSION(:), POINTER, CONTIGUOUS :: DATA
IF (ASSOCIATED(array%low)) THEN
DATA => array%low%data
ELSE
NULLIFY (DATA)
END IF
END FUNCTION array_data_i1d