upper_triangle Function

  1. special_fun_modules.f90
  2. nrutil
  3. upper_triangle

public function upper_triangle(j, k, extra)

Arguments

Type IntentOptional AttributesName
integer(kind=I4B), intent(in) :: j
integer(kind=I4B), intent(in) :: k
integer(kind=I4B), intent(in), optional :: extra

Return Value logical(kind=LGT), DIMENSION(j,k)


Calls

proc~~upper_triangle~~CallsGraph proc~upper_triangle upper_triangle interface~outerdiff outerdiff proc~upper_triangle->interface~outerdiff proc~arth_i arth_i proc~upper_triangle->proc~arth_i proc~outerdiff_r outerdiff_r interface~outerdiff->proc~outerdiff_r proc~outerdiff_i outerdiff_i interface~outerdiff->proc~outerdiff_i proc~outerdiff_d outerdiff_d interface~outerdiff->proc~outerdiff_d

Contents

Source Code

upper_triangle

Source Code

	FUNCTION upper_triangle(j,k,extra)
	INTEGER(I4B), INTENT(IN) :: j,k
	INTEGER(I4B), OPTIONAL, INTENT(IN) :: extra
	LOGICAL(LGT), DIMENSION(j,k) :: upper_triangle
	INTEGER(I4B) :: n
	n=0
	if (present(extra)) n=extra
	upper_triangle=(outerdiff(arth_i(1,1,j),arth_i(1,1,k)) < n)
	END FUNCTION upper_triangle