array_size_i1d Function

private pure function array_size_i1d(array) result(the_size)

Arguments

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

Return Value integer


Source Code

   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