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)


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