array_get_i1d Function

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

Arguments

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

Return Value integer


Source Code

   PURE FUNCTION array_get_i1d(array, index1) RESULT(value)
      TYPE(array_i1d_obj), INTENT(IN)                    :: array
      INTEGER, INTENT(IN)                                :: index1
      INTEGER                                            :: value

      value = array%low%data(index1)
   END FUNCTION array_get_i1d