Lines Matching refs:DIAG
1145 CHARACTER*1 DIAG, DIAGS, TRANS, TRANSS, UPLO, UPLOS local
1225 DIAG = ICHD( ICD: ICD )
1230 CALL SMAKE( SNAME( 2: 3 ), UPLO, DIAG, N, N, A,
1254 DIAGS = DIAG
1272 $ UPLO, TRANS, DIAG, N, LDA, INCX
1275 CALL STRMV( UPLO, TRANS, DIAG, N, AA, LDA,
1280 $ UPLO, TRANS, DIAG, N, K, LDA, INCX
1283 CALL STBMV( UPLO, TRANS, DIAG, N, K, AA,
1288 $ UPLO, TRANS, DIAG, N, INCX
1291 CALL STPMV( UPLO, TRANS, DIAG, N, AA, XX,
1298 $ UPLO, TRANS, DIAG, N, LDA, INCX
1301 CALL STRSV( UPLO, TRANS, DIAG, N, AA, LDA,
1306 $ UPLO, TRANS, DIAG, N, K, LDA, INCX
1309 CALL STBSV( UPLO, TRANS, DIAG, N, K, AA,
1314 $ UPLO, TRANS, DIAG, N, INCX
1317 CALL STPSV( UPLO, TRANS, DIAG, N, AA, XX,
1334 ISAME( 3 ) = DIAG.EQ.DIAGS
1439 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, TRANS, DIAG, N, LDA,
1442 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, TRANS, DIAG, N, K,
1445 WRITE( NOUT, FMT = 9995 )NC, SNAME, UPLO, TRANS, DIAG, N, INCX
2651 SUBROUTINE SMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL, argument
2676 CHARACTER*1 DIAG, UPLO local
2694 UNIT = TRI.AND.DIAG.EQ.'U'