lower_triangle Function

  1. special_fun_modules.f90
  2. nrutil
  3. lower_triangle

public function lower_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~~lower_triangle~~CallsGraph proc~lower_triangle lower_triangle interface~outerdiff outerdiff proc~lower_triangle->interface~outerdiff proc~arth_i arth_i proc~lower_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

lower_triangle

Source Code

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