size_input_list Function

public function size_input_list(list) result(size)

Arguments

Type	Intent	Optional	Attributes		Name
type(input_list),		optional		::	list

Return Value integer

Source Code

  function size_input_list(list) result(size)
    type(input_list),optional :: list
    integer                   :: size
    size=default_list%size
    if(present(list))size=list%size
  end function size_input_list