--- rpl/lapack/lapack/dlasr.f 2010/12/21 13:53:33 1.7 +++ rpl/lapack/lapack/dlasr.f 2011/07/22 07:38:08 1.8 @@ -272,7 +272,7 @@ END IF ELSE IF( LSAME( SIDE, 'R' ) ) THEN * -* Form A * P' +* Form A * P**T * IF( LSAME( PIVOT, 'V' ) ) THEN IF( LSAME( DIRECT, 'F' ) ) THEN