comments unified: specify where result will be stored in xGBT01 and xPOT01

jip · jip · commit a98ffc640d82 · 2021-06-03T23:01:38.000+10:00
Were unified with xGET02, xGET08, xPOT06, xQRT16, xSYT02.
diff --git a/TESTING/LIN/cgtt02.f b/TESTING/LIN/cgtt02.f
@@ -182,7 +182,7 @@ SUBROUTINE CGTT02( TRANS, N, NRHS, DL, D, DU, X, LDX, B, LDB,
          RETURN
       END IF
 *
-*     Compute B - op(A)*X.
+*     Compute B - op(A)*X and store in B.
 *
       CALL CLAGTM( TRANS, N, NRHS, -ONE, DL, D, DU, X, LDX, ONE, B,
      $             LDB )
diff --git a/TESTING/LIN/dgtt02.f b/TESTING/LIN/dgtt02.f
@@ -182,7 +182,7 @@ SUBROUTINE DGTT02( TRANS, N, NRHS, DL, D, DU, X, LDX, B, LDB,
          RETURN
       END IF
 *
-*     Compute B - op(A)*X.
+*     Compute B - op(A)*X and store in B.
 *
       CALL DLAGTM( TRANS, N, NRHS, -ONE, DL, D, DU, X, LDX, ONE, B,
      $             LDB )
diff --git a/TESTING/LIN/sgtt02.f b/TESTING/LIN/sgtt02.f
@@ -182,7 +182,7 @@ SUBROUTINE SGTT02( TRANS, N, NRHS, DL, D, DU, X, LDX, B, LDB,
          RETURN
       END IF
 *
-*     Compute B - op(A)*X.
+*     Compute B - op(A)*X and store in B.
 *
       CALL SLAGTM( TRANS, N, NRHS, -ONE, DL, D, DU, X, LDX, ONE, B,
      $             LDB )
diff --git a/TESTING/LIN/zgtt02.f b/TESTING/LIN/zgtt02.f
@@ -182,7 +182,7 @@ SUBROUTINE ZGTT02( TRANS, N, NRHS, DL, D, DU, X, LDX, B, LDB,
          RETURN
       END IF
 *
-*     Compute B - op(A)*X.
+*     Compute B - op(A)*X and store in B.
 *
       CALL ZLAGTM( TRANS, N, NRHS, -ONE, DL, D, DU, X, LDX, ONE, B,
      $             LDB )

Original file line number	Diff line number	Diff line change
`@@ -182,7 +182,7 @@ SUBROUTINE CGTT02( TRANS, N, NRHS, DL, D, DU, X, LDX, B, LDB,`
`182`	`182`	`RETURN`
`183`	`183`	`END IF`
`184`	`184`	`*`
`185`		`-* Compute B - op(A)*X.`
	`185`	`+* Compute B - op(A)*X and store in B.`
`186`	`186`	`*`
`187`	`187`	`CALL CLAGTM( TRANS, N, NRHS, -ONE, DL, D, DU, X, LDX, ONE, B,`
`188`	`188`	`$ LDB )`
Original file line number	Diff line number	Diff line change
`@@ -182,7 +182,7 @@ SUBROUTINE DGTT02( TRANS, N, NRHS, DL, D, DU, X, LDX, B, LDB,`
`182`	`182`	`RETURN`
`183`	`183`	`END IF`
`184`	`184`	`*`
`185`		`-* Compute B - op(A)*X.`
	`185`	`+* Compute B - op(A)*X and store in B.`
`186`	`186`	`*`
`187`	`187`	`CALL DLAGTM( TRANS, N, NRHS, -ONE, DL, D, DU, X, LDX, ONE, B,`
`188`	`188`	`$ LDB )`
Original file line number	Diff line number	Diff line change
`@@ -182,7 +182,7 @@ SUBROUTINE SGTT02( TRANS, N, NRHS, DL, D, DU, X, LDX, B, LDB,`
`182`	`182`	`RETURN`
`183`	`183`	`END IF`
`184`	`184`	`*`
`185`		`-* Compute B - op(A)*X.`
	`185`	`+* Compute B - op(A)*X and store in B.`
`186`	`186`	`*`
`187`	`187`	`CALL SLAGTM( TRANS, N, NRHS, -ONE, DL, D, DU, X, LDX, ONE, B,`
`188`	`188`	`$ LDB )`
Original file line number	Diff line number	Diff line change
`@@ -182,7 +182,7 @@ SUBROUTINE ZGTT02( TRANS, N, NRHS, DL, D, DU, X, LDX, B, LDB,`
`182`	`182`	`RETURN`
`183`	`183`	`END IF`
`184`	`184`	`*`
`185`		`-* Compute B - op(A)*X.`
	`185`	`+* Compute B - op(A)*X and store in B.`
`186`	`186`	`*`
`187`	`187`	`CALL ZLAGTM( TRANS, N, NRHS, -ONE, DL, D, DU, X, LDX, ONE, B,`
`188`	`188`	`$ LDB )`