fix #931

langou · langou · commit 44e942df6d97 · 2023-11-10T08:49:41.000-07:00
fix typo for the blas level of BLAS/SRC/DTRSV
diff --git a/BLAS/SRC/dtrsv.f b/BLAS/SRC/dtrsv.f
@@ -141,7 +141,7 @@
 *  =====================================================================
       SUBROUTINE DTRSV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX)
 *
-*  -- Reference BLAS level1 routine --
+*  -- Reference BLAS level2 routine --
 *  -- Reference BLAS is a software package provided by Univ. of Tennessee,    --
 *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
 *

Original file line number	Diff line number	Diff line change
`@@ -141,7 +141,7 @@`
`141`	`141`	`* =====================================================================`
`142`	`142`	`SUBROUTINE DTRSV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX)`
`143`	`143`	`*`
`144`		`-* -- Reference BLAS level1 routine --`
	`144`	`+* -- Reference BLAS level2 routine --`
`145`	`145`	`* -- Reference BLAS is a software package provided by Univ. of Tennessee, --`
`146`	`146`	`* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--`
`147`	`147`	`*`