Lines Matching defs:UPLO
729 CHARACTER*1 SIDE, SIDES, UPLO, UPLOS
802 UPLO = ICHU( ICU: ICU )
806 CALL CMAKE( SNAME( 2: 3 ), UPLO, ' ', NA, NA, A, NMAX,
826 UPLOS = UPLO
848 $ UPLO, M, N, ALPHA, LDA, LDB, BETA, LDC
852 CALL CHEMM( SIDE, UPLO, M, N, ALPHA, AA, LDA,
855 CALL CSYMM( SIDE, UPLO, M, N, ALPHA, AA, LDA,
870 ISAME( 2 ) = UPLOS.EQ.UPLO
946 WRITE( NOUT, FMT = 9995 )NC, SNAME, SIDE, UPLO, M, N, ALPHA, LDA,
1007 CHARACTER*1 DIAG, DIAGS, SIDE, SIDES, TRANAS, TRANSA, UPLO,
1073 UPLO = ICHU( ICU: ICU )
1086 CALL CMAKE( 'TR', UPLO, DIAG, NA, NA, A,
1100 UPLOS = UPLO
1120 $ SIDE, UPLO, TRANSA, DIAG, M, N, ALPHA,
1124 CALL CTRMM( SIDE, UPLO, TRANSA, DIAG, M,
1129 $ SIDE, UPLO, TRANSA, DIAG, M, N, ALPHA,
1133 CALL CTRSM( SIDE, UPLO, TRANSA, DIAG, M,
1148 ISAME( 2 ) = UPLOS.EQ.UPLO
1256 WRITE( NOUT, FMT = 9995 )NC, SNAME, SIDE, UPLO, TRANSA, DIAG, M,
1318 CHARACTER*1 TRANS, TRANSS, TRANST, UPLO, UPLOS
1385 UPLO = ICHU( ICU: ICU )
1386 UPPER = UPLO.EQ.'U'
1408 CALL CMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, C,
1415 UPLOS = UPLO
1442 $ WRITE( NTRA, FMT = 9994 )NC, SNAME, UPLO,
1446 CALL CHERK( UPLO, TRANS, N, K, RALPHA, AA,
1450 $ WRITE( NTRA, FMT = 9993 )NC, SNAME, UPLO,
1454 CALL CSYRK( UPLO, TRANS, N, K, ALPHA, AA,
1468 ISAME( 1 ) = UPLOS.EQ.UPLO
1487 ISAME( 9 ) = LCERES( SNAME( 2: 3 ), UPLO, N,
1580 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, TRANS, N, K, RALPHA,
1583 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, TRANS, N, K, ALPHA,
1650 CHARACTER*1 TRANS, TRANSS, TRANST, UPLO, UPLOS
1734 UPLO = ICHU( ICU: ICU )
1735 UPPER = UPLO.EQ.'U'
1753 CALL CMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, C,
1760 UPLOS = UPLO
1787 $ WRITE( NTRA, FMT = 9994 )NC, SNAME, UPLO,
1791 CALL CHER2K( UPLO, TRANS, N, K, ALPHA, AA,
1795 $ WRITE( NTRA, FMT = 9993 )NC, SNAME, UPLO,
1799 CALL CSYR2K( UPLO, TRANS, N, K, ALPHA, AA,
1813 ISAME( 1 ) = UPLOS.EQ.UPLO
1830 ISAME( 11 ) = LCERES( 'HE', UPLO, N, N, CS,
1953 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, TRANS, N, K, ALPHA,
1956 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, TRANS, N, K, ALPHA,
2925 SUBROUTINE CMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET,
2955 CHARACTER*1 DIAG, UPLO
2972 UPPER = ( HER.OR.SYM.OR.TRI ).AND.UPLO.EQ.'U'
2973 LOWER = ( HER.OR.SYM.OR.TRI ).AND.UPLO.EQ.'L'
3273 LOGICAL FUNCTION LCERES( TYPE, UPLO, M, N, AA, AS, LDA )
3289 CHARACTER*1 UPLO
3297 UPPER = UPLO.EQ.'U'
