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)


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