Lines Matching defs:UPLO
691 CHARACTER*1 SIDE, SIDES, UPLO, UPLOS
764 UPLO = ICHU( ICU: ICU )
768 CALL ZMAKE( SNAME( 2: 3 ), UPLO, ' ', NA, NA, A, NMAX,
788 UPLOS = UPLO
810 $ UPLO, M, N, ALPHA, LDA, LDB, BETA, LDC
814 CALL ZHEMM( SIDE, UPLO, M, N, ALPHA, AA, LDA,
817 CALL ZSYMM( SIDE, UPLO, M, N, ALPHA, AA, LDA,
832 ISAME( 2 ) = UPLOS.EQ.UPLO
908 WRITE( NOUT, FMT = 9995 )NC, SNAME, SIDE, UPLO
970 CHARACTER*1 DIAG, DIAGS, SIDE, SIDES, TRANAS, TRANSA, UPLO,
1036 UPLO = ICHU( ICU: ICU )
1049 CALL ZMAKE( 'TR', UPLO, DIAG, NA, NA, A,
1063 UPLOS = UPLO
1083 $ SIDE, UPLO, TRANSA, DIAG, M, N, ALPHA,
1087 CALL ZTRMM( SIDE, UPLO, TRANSA, DIAG, M,
1092 $ SIDE, UPLO, TRANSA, DIAG, M, N, ALPHA,
1096 CALL ZTRSM( SIDE, UPLO, TRANSA, DIAG, M,
1111 ISAME( 2 ) = UPLOS.EQ.UPLO
1219 WRITE( NOUT, FMT = 9995 )NC, SNAME, SIDE, UPLO, TRANSA, DIAG, M,
1281 CHARACTER*1 TRANS, TRANSS, TRANST, UPLO, UPLOS
1348 UPLO = ICHU( ICU: ICU )
1349 UPPER = UPLO.EQ.'U'
1371 CALL ZMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, C,
1378 UPLOS = UPLO
1405 $ WRITE( NTRA, FMT = 9994 )NC, SNAME, UPLO,
1409 CALL ZHERK( UPLO, TRANS, N, K, RALPHA, AA,
1413 $ WRITE( NTRA, FMT = 9993 )NC, SNAME, UPLO,
1417 CALL ZSYRK( UPLO, TRANS, N, K, ALPHA, AA,
1431 ISAME( 1 ) = UPLOS.EQ.UPLO
1450 ISAME( 9 ) = LZERES( SNAME( 2: 3 ), UPLO, N,
1543 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, TRANS, N, K, RALPHA,
1546 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, TRANS, N, K, ALPHA,
1614 CHARACTER*1 TRANS, TRANSS, TRANST, UPLO, UPLOS
1698 UPLO = ICHU( ICU: ICU )
1699 UPPER = UPLO.EQ.'U'
1717 CALL ZMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, C,
1724 UPLOS = UPLO
1751 $ WRITE( NTRA, FMT = 9994 )NC, SNAME, UPLO,
1755 CALL ZHER2K( UPLO, TRANS, N, K, ALPHA, AA,
1759 $ WRITE( NTRA, FMT = 9993 )NC, SNAME, UPLO,
1763 CALL ZSYR2K( UPLO, TRANS, N, K, ALPHA, AA,
1777 ISAME( 1 ) = UPLOS.EQ.UPLO
1794 ISAME( 11 ) = LZERES( 'HE', UPLO, N, N, CS,
1917 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, TRANS, N, K, ALPHA,
1920 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, TRANS, N, K, ALPHA,
2874 SUBROUTINE ZMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET,
2905 CHARACTER*1 DIAG, UPLO
2922 UPPER = ( HER.OR.SYM.OR.TRI ).AND.UPLO.EQ.'U'
2923 LOWER = ( HER.OR.SYM.OR.TRI ).AND.UPLO.EQ.'L'
3225 LOGICAL FUNCTION LZERES( TYPE, UPLO, M, N, AA, AS, LDA )
3241 CHARACTER*1 UPLO
3249 UPPER = UPLO.EQ.'U'
