array_get_i1 Function

private pure function array_get_i1(array, index1) result(value)

Arguments

Type IntentOptional Attributes Name
integer, intent(in), DIMENSION(:), POINTER :: array
integer, intent(in) :: index1

Return Value integer


Source Code

   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