Lines Matching defs:UPLO
807 CHARACTER*1 UPLO, UPLOS
875 UPLO = ICH( IC: IC )
880 CALL SMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A, NMAX, AA,
919 UPLOS = UPLO
942 $ UPLO, N, ALPHA, LDA, INCX, BETA, INCY
945 CALL SSYMV( UPLO, N, ALPHA, AA, LDA, XX,
950 $ UPLO, N, K, ALPHA, LDA, INCX, BETA,
954 CALL SSBMV( UPLO, N, K, ALPHA, AA, LDA,
959 $ UPLO, N, ALPHA, INCX, BETA, INCY
962 CALL SSPMV( UPLO, N, ALPHA, AA, XX, INCX,
976 ISAME( 1 ) = UPLO.EQ.UPLOS
1080 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, ALPHA, LDA, INCX,
1083 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, K, ALPHA, LDA,
1086 WRITE( NOUT, FMT = 9995 )NC, SNAME, UPLO, N, ALPHA, INCX,
1145 CHARACTER*1 DIAG, DIAGS, TRANS, TRANSS, UPLO, UPLOS
1219 UPLO = ICHU( ICU: ICU )
1230 CALL SMAKE( SNAME( 2: 3 ), UPLO, DIAG, N, N, A,
1252 UPLOS = UPLO
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,
1332 ISAME( 1 ) = UPLO.EQ.UPLOS
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
1765 CHARACTER*1 UPLO, UPLOS
1814 UPLO = ICH( IC: IC )
1815 UPPER = UPLO.EQ.'U'
1838 CALL SMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A, NMAX,
1845 UPLOS = UPLO
1861 $ WRITE( NTRA, FMT = 9993 )NC, SNAME, UPLO, N,
1865 CALL SSYR( UPLO, N, ALPHA, XX, INCX, AA, LDA )
1868 $ WRITE( NTRA, FMT = 9994 )NC, SNAME, UPLO, N,
1872 CALL SSPR( UPLO, N, ALPHA, XX, INCX, AA )
1885 ISAME( 1 ) = UPLO.EQ.UPLOS
1893 ISAME( 6 ) = LSERES( SNAME( 2: 3 ), UPLO, N, N, AS,
1983 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, ALPHA, INCX, LDA
1985 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, ALPHA, INCX
2044 CHARACTER*1 UPLO, UPLOS
2093 UPLO = ICH( IC: IC )
2094 UPPER = UPLO.EQ.'U'
2131 CALL SMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A,
2139 UPLOS = UPLO
2159 $ WRITE( NTRA, FMT = 9993 )NC, SNAME, UPLO, N,
2163 CALL SSYR2( UPLO, N, ALPHA, XX, INCX, YY, INCY,
2167 $ WRITE( NTRA, FMT = 9994 )NC, SNAME, UPLO, N,
2171 CALL SSPR2( UPLO, N, ALPHA, XX, INCX, YY, INCY,
2185 ISAME( 1 ) = UPLO.EQ.UPLOS
2195 ISAME( 8 ) = LSERES( SNAME( 2: 3 ), UPLO, N, N,
2297 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, ALPHA, INCX,
2300 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, ALPHA, INCX, INCY
2651 SUBROUTINE SMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL,
2676 CHARACTER*1 DIAG, UPLO
2692 UPPER = ( SYM.OR.TRI ).AND.UPLO.EQ.'U'
2693 LOWER = ( SYM.OR.TRI ).AND.UPLO.EQ.'L'
2974 LOGICAL FUNCTION LSERES( TYPE, UPLO, M, N, AA, AS, LDA )
2988 CHARACTER*1 UPLO
2996 UPPER = UPLO.EQ.'U'
