Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in), | DIMENSION(:), POINTER | :: | array | ||
integer, | intent(in) | :: | index1 |
PURE FUNCTION array_get_i1(array, index1) RESULT(value)
INTEGER, DIMENSION(:), INTENT(IN), POINTER :: array
INTEGER, INTENT(IN) :: index1
INTEGER :: value
value = array(index1)
END FUNCTION array_get_i1