--- rpl/lapack/lapack/dormr2.f 2010/12/21 13:53:35 1.7 +++ rpl/lapack/lapack/dormr2.f 2011/07/22 07:38:09 1.8 @@ -1,10 +1,10 @@ SUBROUTINE DORMR2( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK routine (version 3.2) -- +* -- LAPACK routine (version 3.3.1) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* -- April 2011 -- * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -21,11 +21,11 @@ * * Q * C if SIDE = 'L' and TRANS = 'N', or * -* Q'* C if SIDE = 'L' and TRANS = 'T', or +* Q**T* C if SIDE = 'L' and TRANS = 'T', or * * C * Q if SIDE = 'R' and TRANS = 'N', or * -* C * Q' if SIDE = 'R' and TRANS = 'T', +* C * Q**T if SIDE = 'R' and TRANS = 'T', * * where Q is a real orthogonal matrix defined as the product of k * elementary reflectors @@ -39,8 +39,8 @@ * ========= * * SIDE (input) CHARACTER*1 -* = 'L': apply Q or Q' from the Left -* = 'R': apply Q or Q' from the Right +* = 'L': apply Q or Q**T from the Left +* = 'R': apply Q or Q**T from the Right * * TRANS (input) CHARACTER*1 * = 'N': apply Q (No transpose) @@ -75,7 +75,7 @@ * * C (input/output) DOUBLE PRECISION array, dimension (LDC,N) * On entry, the m by n matrix C. -* On exit, C is overwritten by Q*C or Q'*C or C*Q' or C*Q. +* On exit, C is overwritten by Q*C or Q**T*C or C*Q**T or C*Q. * * LDC (input) INTEGER * The leading dimension of the array C. LDC >= max(1,M).