Lines Matching defs:UPLO
807 CHARACTER*1 UPLO, UPLOS
875 UPLO = ICH( IC: IC )
880 CALL DMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A, NMAX, AA,
919 UPLOS = UPLO
942 $ UPLO, N, ALPHA, LDA, INCX, BETA, INCY
945 CALL DSYMV( UPLO, N, ALPHA, AA, LDA, XX,
950 $ UPLO, N, K, ALPHA, LDA, INCX, BETA,
954 CALL DSBMV( UPLO, N, K, ALPHA, AA, LDA,
959 $ UPLO, N, ALPHA, INCX, BETA, INCY
962 CALL DSPMV( 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 DMAKE( SNAME( 2: 3 ), UPLO, DIAG, N, N, A,
1252 UPLOS = UPLO
1272 $ UPLO, TRANS, DIAG, N, LDA, INCX
1275 CALL DTRMV( UPLO, TRANS, DIAG, N, AA, LDA,
1280 $ UPLO, TRANS, DIAG, N, K, LDA, INCX
1283 CALL DTBMV( UPLO, TRANS, DIAG, N, K, AA,
1288 $ UPLO, TRANS, DIAG, N, INCX
1291 CALL DTPMV( UPLO, TRANS, DIAG, N, AA, XX,
1298 $ UPLO, TRANS, DIAG, N, LDA, INCX
1301 CALL DTRSV( UPLO, TRANS, DIAG, N, AA, LDA,
1306 $ UPLO, TRANS, DIAG, N, K, LDA, INCX
1309 CALL DTBSV( UPLO, TRANS, DIAG, N, K, AA,
1314 $ UPLO, TRANS, DIAG, N, INCX
1317 CALL DTPSV( 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 DMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A, NMAX,
1845 UPLOS = UPLO
1861 $ WRITE( NTRA, FMT = 9993 )NC, SNAME, UPLO, N,
1865 CALL DSYR( UPLO, N, ALPHA, XX, INCX, AA, LDA )
1868 $ WRITE( NTRA, FMT = 9994 )NC, SNAME, UPLO, N,
1872 CALL DSPR( UPLO, N, ALPHA, XX, INCX, AA )
1885 ISAME( 1 ) = UPLO.EQ.UPLOS
1893 ISAME( 6 ) = LDERES( 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 DMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A,
2139 UPLOS = UPLO
2159 $ WRITE( NTRA, FMT = 9993 )NC, SNAME, UPLO, N,
2163 CALL DSYR2( UPLO, N, ALPHA, XX, INCX, YY, INCY,
2167 $ WRITE( NTRA, FMT = 9994 )NC, SNAME, UPLO, N,
2171 CALL DSPR2( UPLO, N, ALPHA, XX, INCX, YY, INCY,
2185 ISAME( 1 ) = UPLO.EQ.UPLOS
2195 ISAME( 8 ) = LDERES( 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 DMAKE( 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 LDERES( TYPE, UPLO, M, N, AA, AS, LDA )
2988 CHARACTER*1 UPLO
2996 UPPER = UPLO.EQ.'U'
