makecycleuij Subroutine

public pure subroutine makecycleuij(ut, oi, oj, nsingle, u, yes_cache)

computes coupling matrix for transposition uj->ui oj is moved down to position oi

Arguments

Type	Intent	Optional	Attributes		Name
type(umatrixtable),	intent(in)			::	ut
integer,	intent(in)			::	oi
integer,	intent(in)			::	oj
integer,	intent(in)			::	nsingle
real(kind=long),	intent(out)			::	u(:,:)
logical,	intent(in),	optional		::	yes_cache