Lines Matching defs:UPLO
795 CHARACTER*1 SIDE, SIDES, UPLO, UPLOS
868 UPLO = ICHU( ICU: ICU )
872 CALL CMAKE(SNAME( 8: 9 ), UPLO, ' ', NA, NA, A, NMAX,
892 UPLOS = UPLO
914 $ SIDE, UPLO, M, N, ALPHA, LDA, LDB,
919 CALL CCHEMM( IORDER, SIDE, UPLO, M, N,
923 CALL CCSYMM( IORDER, SIDE, UPLO, M, N,
939 ISAME( 2 ) = UPLOS.EQ.UPLO
1017 CALL CPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N, ALPHA, LDA,
1046 SUBROUTINE CPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N,
1050 CHARACTER*1 SIDE, UPLO
1059 IF (UPLO.EQ.'U')THEN
1115 CHARACTER*1 DIAG, DIAGS, SIDE, SIDES, TRANAS, TRANSA, UPLO,
1181 UPLO = ICHU( ICU: ICU )
1194 CALL CMAKE( 'tr', UPLO, DIAG, NA, NA, A,
1208 UPLOS = UPLO
1228 $ SIDE, UPLO, TRANSA, DIAG, M, N, ALPHA,
1232 CALL CCTRMM(IORDER, SIDE, UPLO, TRANSA,
1238 $ SIDE, UPLO, TRANSA, DIAG, M, N, ALPHA,
1242 CALL CCTRSM(IORDER, SIDE, UPLO, TRANSA,
1258 ISAME( 2 ) = UPLOS.EQ.UPLO
1368 CALL CPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG,
1397 SUBROUTINE CPRCN3(NOUT, NC, SNAME, IORDER, SIDE, UPLO, TRANSA,
1401 CHARACTER*1 SIDE, UPLO, TRANSA, DIAG
1410 IF (UPLO.EQ.'U')THEN
1480 CHARACTER*1 TRANS, TRANSS, TRANST, UPLO, UPLOS
1547 UPLO = ICHU( ICU: ICU )
1548 UPPER = UPLO.EQ.'U'
1570 CALL CMAKE( SNAME( 8: 9 ), UPLO, ' ', N, N, C,
1577 UPLOS = UPLO
1605 $ UPLO, TRANS, N, K, RALPHA, LDA, RBETA,
1609 CALL CCHERK( IORDER, UPLO, TRANS, N, K,
1615 $ UPLO, TRANS, N, K, ALPHA, LDA, BETA, LDC)
1618 CALL CCSYRK( IORDER, UPLO, TRANS, N, K,
1632 ISAME( 1 ) = UPLOS.EQ.UPLO
1651 ISAME( 9 ) = LCERES( SNAME( 8: 9 ), UPLO, N,
1746 CALL CPRCN6( NOUT, NC, SNAME, IORDER, UPLO, TRANS, N, K, RALPHA,
1749 CALL CPRCN4( NOUT, NC, SNAME, IORDER, UPLO, TRANS, N, K, ALPHA,
1783 SUBROUTINE CPRCN4(NOUT, NC, SNAME, IORDER, UPLO, TRANSA,
1787 CHARACTER*1 UPLO, TRANSA
1791 IF (UPLO.EQ.'U')THEN
1817 SUBROUTINE CPRCN6(NOUT, NC, SNAME, IORDER, UPLO, TRANSA,
1821 CHARACTER*1 UPLO, TRANSA
1825 IF (UPLO.EQ.'U')THEN
1890 CHARACTER*1 TRANS, TRANSS, TRANST, UPLO, UPLOS
1974 UPLO = ICHU( ICU: ICU )
1975 UPPER = UPLO.EQ.'U'
1993 CALL CMAKE( SNAME( 8: 9 ), UPLO, ' ', N, N, C,
2000 UPLOS = UPLO
2028 $ UPLO, TRANS, N, K, ALPHA, LDA, LDB,
2032 CALL CCHER2K( IORDER, UPLO, TRANS, N, K,
2038 $ UPLO, TRANS, N, K, ALPHA, LDA, LDB,
2042 CALL CCSYR2K( IORDER, UPLO, TRANS, N, K,
2057 ISAME( 1 ) = UPLOS.EQ.UPLO
2074 ISAME( 11 ) = LCERES( 'he', UPLO, N, N, CS,
2199 CALL CPRCN7( NOUT, NC, SNAME, IORDER, UPLO, TRANS, N, K,
2202 CALL CPRCN5( NOUT, NC, SNAME, IORDER, UPLO, TRANS, N, K,
2236 SUBROUTINE CPRCN5(NOUT, NC, SNAME, IORDER, UPLO, TRANSA,
2240 CHARACTER*1 UPLO, TRANSA
2244 IF (UPLO.EQ.'U')THEN
2270 SUBROUTINE CPRCN7(NOUT, NC, SNAME, IORDER, UPLO, TRANSA,
2275 CHARACTER*1 UPLO, TRANSA
2279 IF (UPLO.EQ.'U')THEN
2304 SUBROUTINE CMAKE(TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET,
2334 CHARACTER*1 DIAG, UPLO
2351 UPPER = ( HER.OR.SYM.OR.TRI ).AND.UPLO.EQ.'U'
2352 LOWER = ( HER.OR.SYM.OR.TRI ).AND.UPLO.EQ.'L'
2652 LOGICAL FUNCTION LCERES( TYPE, UPLO, M, N, AA, AS, LDA )
2668 CHARACTER*1 UPLO
2676 UPPER = UPLO.EQ.'U'
