number_of_arrays Function

public pure function number_of_arrays(list)

number of arrays stored in list

Arguments

Type IntentOptional Attributes Name
type(array_list), intent(in) :: list

Return Value integer


Source Code

   PURE FUNCTION number_of_arrays(list)
      !! number of arrays stored in list
      TYPE(array_list), INTENT(IN) :: list
      INTEGER                      :: number_of_arrays

      number_of_arrays = SIZE(list%ptr) - 1

   END FUNCTION number_of_arrays