Lines Matching defs:UPLO
796 CHARACTER*1 SIDE, SIDES, UPLO, UPLOS
869 UPLO = ICHU( ICU: ICU )
873 CALL ZMAKE(SNAME( 8: 9 ), UPLO, ' ', NA, NA, A, NMAX,
893 UPLOS = UPLO
915 $ SIDE, UPLO, M, N, ALPHA, LDA, LDB,
920 CALL CZHEMM( IORDER, SIDE, UPLO, M, N,
924 CALL CZSYMM( IORDER, SIDE, UPLO, M, N,
940 ISAME( 2 ) = UPLOS.EQ.UPLO
1018 CALL ZPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N, ALPHA, LDA,
1047 SUBROUTINE ZPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N,
1051 CHARACTER*1 SIDE, UPLO
1060 IF (UPLO.EQ.'U')THEN
1116 CHARACTER*1 DIAG, DIAGS, SIDE, SIDES, TRANAS, TRANSA, UPLO,
1182 UPLO = ICHU( ICU: ICU )
1195 CALL ZMAKE( 'tr', UPLO, DIAG, NA, NA, A,
1209 UPLOS = UPLO
1229 $ SIDE, UPLO, TRANSA, DIAG, M, N, ALPHA,
1233 CALL CZTRMM(IORDER, SIDE, UPLO, TRANSA,
1239 $ SIDE, UPLO, TRANSA, DIAG, M, N, ALPHA,
1243 CALL CZTRSM(IORDER, SIDE, UPLO, TRANSA,
1259 ISAME( 2 ) = UPLOS.EQ.UPLO
1369 CALL ZPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG,
1398 SUBROUTINE ZPRCN3(NOUT, NC, SNAME, IORDER, SIDE, UPLO, TRANSA,
1402 CHARACTER*1 SIDE, UPLO, TRANSA, DIAG
1411 IF (UPLO.EQ.'U')THEN
1481 CHARACTER*1 TRANS, TRANSS, TRANST, UPLO, UPLOS
1548 UPLO = ICHU( ICU: ICU )
1549 UPPER = UPLO.EQ.'U'
1571 CALL ZMAKE( SNAME( 8: 9 ), UPLO, ' ', N, N, C,
1578 UPLOS = UPLO
1606 $ UPLO, TRANS, N, K, RALPHA, LDA, RBETA,
1610 CALL CZHERK( IORDER, UPLO, TRANS, N, K,
1616 $ UPLO, TRANS, N, K, ALPHA, LDA, BETA, LDC)
1619 CALL CZSYRK( IORDER, UPLO, TRANS, N, K,
1633 ISAME( 1 ) = UPLOS.EQ.UPLO
1652 ISAME( 9 ) = LZERES( SNAME( 8: 9 ), UPLO, N,
1747 CALL ZPRCN6( NOUT, NC, SNAME, IORDER, UPLO, TRANS, N, K, RALPHA,
1750 CALL ZPRCN4( NOUT, NC, SNAME, IORDER, UPLO, TRANS, N, K, ALPHA,
1784 SUBROUTINE ZPRCN4(NOUT, NC, SNAME, IORDER, UPLO, TRANSA,
1788 CHARACTER*1 UPLO, TRANSA
1792 IF (UPLO.EQ.'U')THEN
1818 SUBROUTINE ZPRCN6(NOUT, NC, SNAME, IORDER, UPLO, TRANSA,
1822 CHARACTER*1 UPLO, TRANSA
1826 IF (UPLO.EQ.'U')THEN
1891 CHARACTER*1 TRANS, TRANSS, TRANST, UPLO, UPLOS
1975 UPLO = ICHU( ICU: ICU )
1976 UPPER = UPLO.EQ.'U'
1994 CALL ZMAKE( SNAME( 8: 9 ), UPLO, ' ', N, N, C,
2001 UPLOS = UPLO
2029 $ UPLO, TRANS, N, K, ALPHA, LDA, LDB,
2033 CALL CZHER2K( IORDER, UPLO, TRANS, N, K,
2039 $ UPLO, TRANS, N, K, ALPHA, LDA, LDB,
2043 CALL CZSYR2K( IORDER, UPLO, TRANS, N, K,
2058 ISAME( 1 ) = UPLOS.EQ.UPLO
2075 ISAME( 11 ) = LZERES( 'he', UPLO, N, N, CS,
2200 CALL ZPRCN7( NOUT, NC, SNAME, IORDER, UPLO, TRANS, N, K,
2203 CALL ZPRCN5( NOUT, NC, SNAME, IORDER, UPLO, TRANS, N, K,
2237 SUBROUTINE ZPRCN5(NOUT, NC, SNAME, IORDER, UPLO, TRANSA,
2241 CHARACTER*1 UPLO, TRANSA
2245 IF (UPLO.EQ.'U')THEN
2271 SUBROUTINE ZPRCN7(NOUT, NC, SNAME, IORDER, UPLO, TRANSA,
2276 CHARACTER*1 UPLO, TRANSA
2280 IF (UPLO.EQ.'U')THEN
2305 SUBROUTINE ZMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET,
2336 CHARACTER*1 DIAG, UPLO
2353 UPPER = ( HER.OR.SYM.OR.TRI ).AND.UPLO.EQ.'U'
2354 LOWER = ( HER.OR.SYM.OR.TRI ).AND.UPLO.EQ.'L'
2656 LOGICAL FUNCTION LZERES( TYPE, UPLO, M, N, AA, AS, LDA )
2672 CHARACTER*1 UPLO
2680 UPPER = UPLO.EQ.'U'
