comments fixed: op missed

Author: jip

TESTING/LIN/cqrt17.f

@@ -224,7 +224,7 @@ REAL             FUNCTION CQRT17( TRANS, IRESID, M, N, NRHS, A,
      $                INFO )
       END IF
 *
-*     compute R'*A
+*     compute R'*op(A)
 *
       CALL CGEMM( 'Conjugate transpose', TRANS, NRHS, NCOLS, NROWS,
      $            CMPLX( ONE ), C, LDB, A, LDA, CMPLX( ZERO ), WORK,

TESTING/LIN/dqrt17.f

@@ -225,7 +225,7 @@ DOUBLE PRECISION FUNCTION DQRT17( TRANS, IRESID, M, N, NRHS, A,
      $                INFO )
       END IF
 *
-*     compute R'*A
+*     compute R'*op(A)
 *
       CALL DGEMM( 'Transpose', TRANS, NRHS, NCOLS, NROWS, ONE, C, LDB,
      $            A, LDA, ZERO, WORK, NRHS )

TESTING/LIN/sqrt17.f

@@ -225,7 +225,7 @@ REAL             FUNCTION SQRT17( TRANS, IRESID, M, N, NRHS, A,
      $                INFO )
       END IF
 *
-*     compute R'*A
+*     compute R'*op(A)
 *
       CALL SGEMM( 'Transpose', TRANS, NRHS, NCOLS, NROWS, ONE, C, LDB,
      $            A, LDA, ZERO, WORK, NRHS )

TESTING/LIN/zqrt17.f

@@ -225,7 +225,7 @@ DOUBLE PRECISION FUNCTION ZQRT17( TRANS, IRESID, M, N, NRHS, A,
      $                INFO )
       END IF
 *
-*     compute R'*A
+*     compute R'*op(A)
 *
       CALL ZGEMM( 'Conjugate transpose', TRANS, NRHS, NCOLS, NROWS,
      $            DCMPLX( ONE ), C, LDB, A, LDA, DCMPLX( ZERO ), WORK,