ps_Provenance_Depth Function

public function ps_Provenance_Depth(ps) result(n)

Arguments

Type IntentOptional Attributes Name
type(ps_t), intent(in) :: ps

Return Value integer


Contents

Source Code

ps_Provenance_Depth

Source Code

function ps_Provenance_Depth(ps) result(n)
  type(ps_t), intent(in) :: ps
  integer :: n
  
  type(provenance_t), pointer  :: p

  n = 0
  p => ps%provenance
  do while (associated(p))
     n = n + 1
     p => p%next
  enddo
end function ps_Provenance_Depth