@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[in] a Matrix to transform @param[out] b Result @param[inout] wrk Scratch space @author Vladimir Mironov
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
character(len=1), | intent(in) | :: | trans | |||
integer | :: | m | ||||
integer | :: | n | ||||
real(kind=dp), | intent(in) | :: | u(*) | |||
integer | :: | ldu | ||||
real(kind=dp), | intent(in) | :: | a(*) | |||
integer | :: | lda | ||||
real(kind=dp), | intent(out) | :: | b(*) | |||
integer | :: | ldb | ||||
real(kind=dp), | intent(inout) | :: | wrk(*) |