@brief Compute orthogonal transformation of a square marix @param[in] trans If trans='n' compute B = U^T * A * U If trans='t' compute B = U * A * U^T @param[in] ld Dimension of matrices @param[in] u Square orthogonal matrix @param[inout] a Matrix to transform, optionally output matrix @param[out] b Result, can be absent for in-place transform of matrix A @param[inout] wrk Scratch space, optional @author Vladimir Mironov
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
character(len=1), | intent(in) | :: | trans | |||
integer | :: | ld | ||||
real(kind=dp), | intent(in) | :: | u(*) | |||
real(kind=dp), | intent(in) | :: | a(*) | |||
real(kind=dp), | intent(out), | optional | :: | b(*) | ||
real(kind=dp), | intent(inout), | optional, | target | :: | wrk(*) |