Lines Matching defs:UPLO
672 CHARACTER*1 SIDE, SIDES, UPLO, UPLOS
745 UPLO = ICHU( ICU: ICU )
749 CALL SMAKE( 'SY', UPLO, ' ', NA, NA, A, NMAX, AA, LDA,
769 UPLOS = UPLO
791 $ UPLO, M, N, ALPHA, LDA, LDB, BETA, LDC
794 CALL SSYMM( SIDE, UPLO, M, N, ALPHA, AA, LDA,
808 ISAME( 2 ) = UPLOS.EQ.UPLO
884 WRITE( NOUT, FMT = 9995 )NC, SNAME, SIDE, UPLO, M, N, ALPHA, LDA,
941 CHARACTER*1 DIAG, DIAGS, SIDE, SIDES, TRANAS, TRANSA, UPLO,
1007 UPLO = ICHU( ICU: ICU )
1020 CALL SMAKE( 'TR', UPLO, DIAG, NA, NA, A,
1034 UPLOS = UPLO
1054 $ SIDE, UPLO, TRANSA, DIAG, M, N, ALPHA,
1058 CALL STRMM( SIDE, UPLO, TRANSA, DIAG, M,
1063 $ SIDE, UPLO, TRANSA, DIAG, M, N, ALPHA,
1067 CALL STRSM( SIDE, UPLO, TRANSA, DIAG, M,
1082 ISAME( 2 ) = UPLOS.EQ.UPLO
1190 WRITE( NOUT, FMT = 9995 )NC, SNAME, SIDE, UPLO, TRANSA, DIAG, M,
1247 CHARACTER*1 TRANS, TRANSS, UPLO, UPLOS
1313 UPLO = ICHU( ICU: ICU )
1314 UPPER = UPLO.EQ.'U'
1324 CALL SMAKE( 'SY', UPLO, ' ', N, N, C, NMAX, CC,
1331 UPLOS = UPLO
1349 $ WRITE( NTRA, FMT = 9994 )NC, SNAME, UPLO,
1353 CALL SSYRK( UPLO, TRANS, N, K, ALPHA, AA, LDA,
1366 ISAME( 1 ) = UPLOS.EQ.UPLO
1377 ISAME( 9 ) = LSERES( 'SY', UPLO, N, N, CS,
1464 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, TRANS, N, K, ALPHA,
1522 CHARACTER*1 TRANS, TRANSS, UPLO, UPLOS
1605 UPLO = ICHU( ICU: ICU )
1606 UPPER = UPLO.EQ.'U'
1616 CALL SMAKE( 'SY', UPLO, ' ', N, N, C, NMAX, CC,
1623 UPLOS = UPLO
1645 $ WRITE( NTRA, FMT = 9994 )NC, SNAME, UPLO,
1649 CALL SSYR2K( UPLO, TRANS, N, K, ALPHA, AA, LDA,
1662 ISAME( 1 ) = UPLOS.EQ.UPLO
1675 ISAME( 11 ) = LSERES( 'SY', UPLO, N, N, CS,
1777 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, TRANS, N, K, ALPHA,
2344 SUBROUTINE SMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET,
2370 CHARACTER*1 DIAG, UPLO
2384 UPPER = ( SYM.OR.TRI ).AND.UPLO.EQ.'U'
2385 LOWER = ( SYM.OR.TRI ).AND.UPLO.EQ.'L'
2611 LOGICAL FUNCTION LSERES( TYPE, UPLO, M, N, AA, AS, LDA )
2627 CHARACTER*1 UPLO
2635 UPPER = UPLO.EQ.'U'
