strsv - solve one of the systems of equations A*x = b, or A'*x = b
SUBROUTINE STRSV( UPLO, TRANSA, DIAG, N, A, LDA, Y, INCY) CHARACTER * 1 UPLO, TRANSA, DIAG INTEGER N, LDA, INCY REAL A(LDA,*), Y(*)
SUBROUTINE STRSV_64( UPLO, TRANSA, DIAG, N, A, LDA, Y, INCY) CHARACTER * 1 UPLO, TRANSA, DIAG INTEGER*8 N, LDA, INCY REAL A(LDA,*), Y(*)
SUBROUTINE TRSV( UPLO, [TRANSA], DIAG, [N], A, [LDA], Y, [INCY]) CHARACTER(LEN=1) :: UPLO, TRANSA, DIAG INTEGER :: N, LDA, INCY REAL, DIMENSION(:) :: Y REAL, DIMENSION(:,:) :: A
SUBROUTINE TRSV_64( UPLO, [TRANSA], DIAG, [N], A, [LDA], Y, [INCY]) CHARACTER(LEN=1) :: UPLO, TRANSA, DIAG INTEGER(8) :: N, LDA, INCY REAL, DIMENSION(:) :: Y REAL, DIMENSION(:,:) :: A
#include <sunperf.h>
void strsv(char uplo, char transa, char diag, int n, float *a, int lda, float *y, int incy);
void strsv_64(char uplo, char transa, char diag, long n, float *a, long lda, float *y, long incy);
strsv solves one of the systems of equations A*x = b, or A'*x = b, where b and x are n element vectors and A is an n by n unit, or non-unit, upper or lower triangular matrix.
No test for singularity or near-singularity is included in this routine. Such tests must be performed before calling this routine.
UPLO = 'U' or 'u' A is an upper triangular matrix.
UPLO = 'L' or 'l' A is a lower triangular matrix.
Unchanged on exit.
TRANSA = 'N' or 'n' A*x = b.
TRANSA = 'T' or 't' A'*x = b.
TRANSA = 'C' or 'c' A'*x = b.
Unchanged on exit.
DIAG = 'U' or 'u' A is assumed to be unit triangular.
DIAG = 'N' or 'n' A is not assumed to be unit triangular.
Unchanged on exit.