Lines Matching defs:UPLO
731 CHARACTER*1 SIDE, SIDES, UPLO, UPLOS
804 UPLO = ICHU( ICU: ICU )
808 CALL ZMAKE( SNAME( 2: 3 ), UPLO, ' ', NA, NA, A, NMAX,
828 UPLOS = UPLO
850 $ UPLO, M, N, ALPHA, LDA, LDB, BETA, LDC
854 CALL ZHEMM( SIDE, UPLO, M, N, ALPHA, AA, LDA,
857 CALL ZSYMM( SIDE, UPLO, M, N, ALPHA, AA, LDA,
872 ISAME( 2 ) = UPLOS.EQ.UPLO
948 WRITE( NOUT, FMT = 9995 )NC, SNAME, SIDE, UPLO, M, N, ALPHA, LDA,
1010 CHARACTER*1 DIAG, DIAGS, SIDE, SIDES, TRANAS, TRANSA, UPLO,
1076 UPLO = ICHU( ICU: ICU )
1089 CALL ZMAKE( 'TR', UPLO, DIAG, NA, NA, A,
1103 UPLOS = UPLO
1123 $ SIDE, UPLO, TRANSA, DIAG, M, N, ALPHA,
1127 CALL ZTRMM( SIDE, UPLO, TRANSA, DIAG, M,
1132 $ SIDE, UPLO, TRANSA, DIAG, M, N, ALPHA,
1136 CALL ZTRSM( SIDE, UPLO, TRANSA, DIAG, M,
1151 ISAME( 2 ) = UPLOS.EQ.UPLO
1259 WRITE( NOUT, FMT = 9995 )NC, SNAME, SIDE, UPLO, TRANSA, DIAG, M,
1321 CHARACTER*1 TRANS, TRANSS, TRANST, UPLO, UPLOS
1388 UPLO = ICHU( ICU: ICU )
1389 UPPER = UPLO.EQ.'U'
1411 CALL ZMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, C,
1418 UPLOS = UPLO
1445 $ WRITE( NTRA, FMT = 9994 )NC, SNAME, UPLO,
1449 CALL ZHERK( UPLO, TRANS, N, K, RALPHA, AA,
1453 $ WRITE( NTRA, FMT = 9993 )NC, SNAME, UPLO,
1457 CALL ZSYRK( UPLO, TRANS, N, K, ALPHA, AA,
1471 ISAME( 1 ) = UPLOS.EQ.UPLO
1490 ISAME( 9 ) = LZERES( SNAME( 2: 3 ), UPLO, N,
1583 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, TRANS, N, K, RALPHA,
1586 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, TRANS, N, K, ALPHA,
1654 CHARACTER*1 TRANS, TRANSS, TRANST, UPLO, UPLOS
1738 UPLO = ICHU( ICU: ICU )
1739 UPPER = UPLO.EQ.'U'
1757 CALL ZMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, C,
1764 UPLOS = UPLO
1791 $ WRITE( NTRA, FMT = 9994 )NC, SNAME, UPLO,
1795 CALL ZHER2K( UPLO, TRANS, N, K, ALPHA, AA,
1799 UPLO,
1803 CALL ZSYR2K( UPLO, TRANS, N, K, ALPHA, AA,
1817 ISAME( 1 ) = UPLOS.EQ.UPLO
1834 ISAME( 11 ) = LZERES( 'HE', UPLO, N, N, CS,
1957 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, TRANS, N, K, ALPHA,
1960 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, TRANS, N, K, ALPHA,
2932 SUBROUTINE ZMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET,
2963 CHARACTER*1 DIAG, UPLO
2980 UPPER = ( HER.OR.SYM.OR.TRI ).AND.UPLO.EQ.'U'
2981 LOWER = ( HER.OR.SYM.OR.TRI ).AND.UPLO.EQ.'L'
3283 LOGICAL FUNCTION LZERES( TYPE, UPLO, M, N, AA, AS, LDA )
3299 CHARACTER*1 UPLO
3307 UPPER = UPLO.EQ.'U'
