Lines Matching defs:UPLO
690 CHARACTER*1 SIDE, SIDES, UPLO, UPLOS
763 UPLO = ICHU( ICU: ICU )
767 CALL CMAKE( SNAME( 2: 3 ), UPLO, ' ', NA, NA, A, NMAX,
787 UPLOS = UPLO
809 $ UPLO, M, N, ALPHA, LDA, LDB, BETA, LDC
813 CALL CHEMM( SIDE, UPLO, M, N, ALPHA, AA, LDA,
816 CALL CSYMM( SIDE, UPLO, M, N, ALPHA, AA, LDA,
831 ISAME( 2 ) = UPLOS.EQ.UPLO
907 WRITE( NOUT, FMT = 9995 )NC, SNAME, SIDE, UPLO, M, N, ALPHA, LDA,
968 CHARACTER*1 DIAG, DIAGS, SIDE, SIDES, TRANAS, TRANSA, UPLO,
1034 UPLO = ICHU( ICU: ICU )
1047 CALL CMAKE( 'TR', UPLO, DIAG, NA, NA, A,
1061 UPLOS = UPLO
1081 $ SIDE, UPLO, TRANSA, DIAG, M, N, ALPHA,
1085 CALL CTRMM( SIDE, UPLO, TRANSA, DIAG, M,
1090 $ SIDE, UPLO, TRANSA, DIAG, M, N, ALPHA,
1094 CALL CTRSM( SIDE, UPLO, TRANSA, DIAG, M,
1109 ISAME( 2 ) = UPLOS.EQ.UPLO
1217 WRITE( NOUT, FMT = 9995 )NC, SNAME, SIDE, UPLO, TRANSA, DIAG, M,
1279 CHARACTER*1 TRANS, TRANSS, TRANST, UPLO, UPLOS
1346 UPLO = ICHU( ICU: ICU )
1347 UPPER = UPLO.EQ.'U'
1369 CALL CMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, C,
1376 UPLOS = UPLO
1403 $ WRITE( NTRA, FMT = 9994 )NC, SNAME, UPLO,
1407 CALL CHERK( UPLO, TRANS, N, K, RALPHA, AA,
1411 $ WRITE( NTRA, FMT = 9993 )NC, SNAME, UPLO,
1415 CALL CSYRK( UPLO, TRANS, N, K, ALPHA, AA,
1429 ISAME( 1 ) = UPLOS.EQ.UPLO
1448 ISAME( 9 ) = LCERES( SNAME( 2: 3 ), UPLO, N,
1541 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, TRANS, N, K, RALPHA,
1544 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, TRANS, N, K, ALPHA,
1611 CHARACTER*1 TRANS, TRANSS, TRANST, UPLO, UPLOS
1695 UPLO = ICHU( ICU: ICU )
1696 UPPER = UPLO.EQ.'U'
1714 CALL CMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, C,
1721 UPLOS = UPLO
1748 $ WRITE( NTRA, FMT = 9994 )NC, SNAME, UPLO,
1752 CALL CHER2K( UPLO, TRANS, N, K, ALPHA, AA,
1756 $ WRITE( NTRA, FMT = 9993 )NC, SNAME, UPLO,
1760 CALL CSYR2K( UPLO, TRANS, N, K, ALPHA, AA,
1774 ISAME( 1 ) = UPLOS.EQ.UPLO
1791 ISAME( 11 ) = LCERES( 'HE', UPLO, N, N, CS,
1914 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, TRANS, N, K, ALPHA,
1917 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, TRANS, N, K, ALPHA,
2871 SUBROUTINE CMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET,
2901 CHARACTER*1 DIAG, UPLO
2918 UPPER = ( HER.OR.SYM.OR.TRI ).AND.UPLO.EQ.'U'
2919 LOWER = ( HER.OR.SYM.OR.TRI ).AND.UPLO.EQ.'L'
3219 LOGICAL FUNCTION LCERES( TYPE, UPLO, M, N, AA, AS, LDA )
3235 CHARACTER*1 UPLO
3243 UPPER = UPLO.EQ.'U'
