/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/ |
H A D | ztftri.f | 222 SUBROUTINE ZTFTRI( TRANSR, UPLO, DIAG, N, A, INFO ) argument 230 CHARACTER TRANSR, UPLO, DIAG 268 ELSE IF( .NOT.LSAME( DIAG, 'N' ) .AND. .NOT.LSAME( DIAG, 'U' ) ) 321 CALL ZTRTRI( 'L', DIAG, N1, A( 0 ), N, INFO ) 326 CALL ZTRTRI( 'U', DIAG, N2, A( N ), N, INFO ) 340 CALL ZTRTRI( 'L', DIAG, N1, A( N2 ), N, INFO ) 345 CALL ZTRTRI( 'U', DIAG, N2, A( N1 ), N, INFO ) 364 CALL ZTRTRI( 'U', DIAG, N1, A( 0 ), N1, INFO ) 454 CALL ZTRTRI( 'U', DIAG, K, A( K ), K, INFO ) 459 CALL ZTRTRI( 'L', DIAG, K, A( 0 ), K, INFO ) [all …]
|
H A D | stftri.f | 202 SUBROUTINE STFTRI( TRANSR, UPLO, DIAG, N, A, INFO ) argument 210 CHARACTER TRANSR, UPLO, DIAG 248 ELSE IF( .NOT.LSAME( DIAG, 'N' ) .AND. .NOT.LSAME( DIAG, 'U' ) ) 301 CALL STRTRI( 'L', DIAG, N1, A( 0 ), N, INFO ) 306 CALL STRTRI( 'U', DIAG, N2, A( N ), N, INFO ) 320 CALL STRTRI( 'L', DIAG, N1, A( N2 ), N, INFO ) 325 CALL STRTRI( 'U', DIAG, N2, A( N1 ), N, INFO ) 372 CALL STRMM( 'L', 'L', 'N', DIAG, N2, N1, ONE, 434 CALL STRTRI( 'U', DIAG, K, A( K ), K, INFO ) 439 CALL STRTRI( 'L', DIAG, K, A( 0 ), K, INFO ) [all …]
|
H A D | dtftri.f | 202 SUBROUTINE DTFTRI( TRANSR, UPLO, DIAG, N, A, INFO ) argument 210 CHARACTER TRANSR, UPLO, DIAG 248 ELSE IF( .NOT.LSAME( DIAG, 'N' ) .AND. .NOT.LSAME( DIAG, 'U' ) ) 301 CALL DTRTRI( 'L', DIAG, N1, A( 0 ), N, INFO ) 306 CALL DTRTRI( 'U', DIAG, N2, A( N ), N, INFO ) 320 CALL DTRTRI( 'L', DIAG, N1, A( N2 ), N, INFO ) 325 CALL DTRTRI( 'U', DIAG, N2, A( N1 ), N, INFO ) 372 CALL DTRMM( 'L', 'L', 'N', DIAG, N2, N1, ONE, 434 CALL DTRTRI( 'U', DIAG, K, A( K ), K, INFO ) 439 CALL DTRTRI( 'L', DIAG, K, A( 0 ), K, INFO ) [all …]
|
/dports/math/xlapack/lapack-3.10.0/SRC/ |
H A D | dtftri.f | 200 SUBROUTINE DTFTRI( TRANSR, UPLO, DIAG, N, A, INFO ) argument 207 CHARACTER TRANSR, UPLO, DIAG 245 ELSE IF( .NOT.LSAME( DIAG, 'N' ) .AND. .NOT.LSAME( DIAG, 'U' ) ) 298 CALL DTRTRI( 'L', DIAG, N1, A( 0 ), N, INFO ) 303 CALL DTRTRI( 'U', DIAG, N2, A( N ), N, INFO ) 317 CALL DTRTRI( 'L', DIAG, N1, A( N2 ), N, INFO ) 322 CALL DTRTRI( 'U', DIAG, N2, A( N1 ), N, INFO ) 369 CALL DTRMM( 'L', 'L', 'N', DIAG, N2, N1, ONE, 431 CALL DTRTRI( 'U', DIAG, K, A( K ), K, INFO ) 436 CALL DTRTRI( 'L', DIAG, K, A( 0 ), K, INFO ) [all …]
|
H A D | ctftri.f | 220 SUBROUTINE CTFTRI( TRANSR, UPLO, DIAG, N, A, INFO ) argument 227 CHARACTER TRANSR, UPLO, DIAG 265 ELSE IF( .NOT.LSAME( DIAG, 'N' ) .AND. .NOT.LSAME( DIAG, 'U' ) ) 318 CALL CTRTRI( 'L', DIAG, N1, A( 0 ), N, INFO ) 323 CALL CTRTRI( 'U', DIAG, N2, A( N ), N, INFO ) 337 CALL CTRTRI( 'L', DIAG, N1, A( N2 ), N, INFO ) 342 CALL CTRTRI( 'U', DIAG, N2, A( N1 ), N, INFO ) 361 CALL CTRTRI( 'U', DIAG, N1, A( 0 ), N1, INFO ) 451 CALL CTRTRI( 'U', DIAG, K, A( K ), K, INFO ) 456 CALL CTRTRI( 'L', DIAG, K, A( 0 ), K, INFO ) [all …]
|
H A D | ztftri.f | 220 SUBROUTINE ZTFTRI( TRANSR, UPLO, DIAG, N, A, INFO ) argument 227 CHARACTER TRANSR, UPLO, DIAG 265 ELSE IF( .NOT.LSAME( DIAG, 'N' ) .AND. .NOT.LSAME( DIAG, 'U' ) ) 318 CALL ZTRTRI( 'L', DIAG, N1, A( 0 ), N, INFO ) 323 CALL ZTRTRI( 'U', DIAG, N2, A( N ), N, INFO ) 337 CALL ZTRTRI( 'L', DIAG, N1, A( N2 ), N, INFO ) 342 CALL ZTRTRI( 'U', DIAG, N2, A( N1 ), N, INFO ) 361 CALL ZTRTRI( 'U', DIAG, N1, A( 0 ), N1, INFO ) 451 CALL ZTRTRI( 'U', DIAG, K, A( K ), K, INFO ) 456 CALL ZTRTRI( 'L', DIAG, K, A( 0 ), K, INFO ) [all …]
|
H A D | stftri.f | 200 SUBROUTINE STFTRI( TRANSR, UPLO, DIAG, N, A, INFO ) argument 207 CHARACTER TRANSR, UPLO, DIAG 245 ELSE IF( .NOT.LSAME( DIAG, 'N' ) .AND. .NOT.LSAME( DIAG, 'U' ) ) 298 CALL STRTRI( 'L', DIAG, N1, A( 0 ), N, INFO ) 303 CALL STRTRI( 'U', DIAG, N2, A( N ), N, INFO ) 317 CALL STRTRI( 'L', DIAG, N1, A( N2 ), N, INFO ) 322 CALL STRTRI( 'U', DIAG, N2, A( N1 ), N, INFO ) 369 CALL STRMM( 'L', 'L', 'N', DIAG, N2, N1, ONE, 431 CALL STRTRI( 'U', DIAG, K, A( K ), K, INFO ) 436 CALL STRTRI( 'L', DIAG, K, A( 0 ), K, INFO ) [all …]
|
/dports/math/blas/lapack-3.10.0/SRC/ |
H A D | ctftri.f | 220 SUBROUTINE CTFTRI( TRANSR, UPLO, DIAG, N, A, INFO ) argument 227 CHARACTER TRANSR, UPLO, DIAG 265 ELSE IF( .NOT.LSAME( DIAG, 'N' ) .AND. .NOT.LSAME( DIAG, 'U' ) ) 318 CALL CTRTRI( 'L', DIAG, N1, A( 0 ), N, INFO ) 323 CALL CTRTRI( 'U', DIAG, N2, A( N ), N, INFO ) 337 CALL CTRTRI( 'L', DIAG, N1, A( N2 ), N, INFO ) 342 CALL CTRTRI( 'U', DIAG, N2, A( N1 ), N, INFO ) 361 CALL CTRTRI( 'U', DIAG, N1, A( 0 ), N1, INFO ) 451 CALL CTRTRI( 'U', DIAG, K, A( K ), K, INFO ) 456 CALL CTRTRI( 'L', DIAG, K, A( 0 ), K, INFO ) [all …]
|
H A D | stftri.f | 200 SUBROUTINE STFTRI( TRANSR, UPLO, DIAG, N, A, INFO ) argument 207 CHARACTER TRANSR, UPLO, DIAG 245 ELSE IF( .NOT.LSAME( DIAG, 'N' ) .AND. .NOT.LSAME( DIAG, 'U' ) ) 298 CALL STRTRI( 'L', DIAG, N1, A( 0 ), N, INFO ) 303 CALL STRTRI( 'U', DIAG, N2, A( N ), N, INFO ) 317 CALL STRTRI( 'L', DIAG, N1, A( N2 ), N, INFO ) 322 CALL STRTRI( 'U', DIAG, N2, A( N1 ), N, INFO ) 369 CALL STRMM( 'L', 'L', 'N', DIAG, N2, N1, ONE, 431 CALL STRTRI( 'U', DIAG, K, A( K ), K, INFO ) 436 CALL STRTRI( 'L', DIAG, K, A( 0 ), K, INFO ) [all …]
|
H A D | ztftri.f | 220 SUBROUTINE ZTFTRI( TRANSR, UPLO, DIAG, N, A, INFO ) argument 227 CHARACTER TRANSR, UPLO, DIAG 265 ELSE IF( .NOT.LSAME( DIAG, 'N' ) .AND. .NOT.LSAME( DIAG, 'U' ) ) 318 CALL ZTRTRI( 'L', DIAG, N1, A( 0 ), N, INFO ) 323 CALL ZTRTRI( 'U', DIAG, N2, A( N ), N, INFO ) 337 CALL ZTRTRI( 'L', DIAG, N1, A( N2 ), N, INFO ) 342 CALL ZTRTRI( 'U', DIAG, N2, A( N1 ), N, INFO ) 361 CALL ZTRTRI( 'U', DIAG, N1, A( 0 ), N1, INFO ) 451 CALL ZTRTRI( 'U', DIAG, K, A( K ), K, INFO ) 456 CALL ZTRTRI( 'L', DIAG, K, A( 0 ), K, INFO ) [all …]
|
H A D | dtftri.f | 200 SUBROUTINE DTFTRI( TRANSR, UPLO, DIAG, N, A, INFO ) argument 207 CHARACTER TRANSR, UPLO, DIAG 245 ELSE IF( .NOT.LSAME( DIAG, 'N' ) .AND. .NOT.LSAME( DIAG, 'U' ) ) 298 CALL DTRTRI( 'L', DIAG, N1, A( 0 ), N, INFO ) 303 CALL DTRTRI( 'U', DIAG, N2, A( N ), N, INFO ) 317 CALL DTRTRI( 'L', DIAG, N1, A( N2 ), N, INFO ) 322 CALL DTRTRI( 'U', DIAG, N2, A( N1 ), N, INFO ) 369 CALL DTRMM( 'L', 'L', 'N', DIAG, N2, N1, ONE, 431 CALL DTRTRI( 'U', DIAG, K, A( K ), K, INFO ) 436 CALL DTRTRI( 'L', DIAG, K, A( 0 ), K, INFO ) [all …]
|
/dports/math/lapack/lapack-3.10.0/SRC/ |
H A D | stftri.f | 200 SUBROUTINE STFTRI( TRANSR, UPLO, DIAG, N, A, INFO ) argument 207 CHARACTER TRANSR, UPLO, DIAG 245 ELSE IF( .NOT.LSAME( DIAG, 'N' ) .AND. .NOT.LSAME( DIAG, 'U' ) ) 298 CALL STRTRI( 'L', DIAG, N1, A( 0 ), N, INFO ) 303 CALL STRTRI( 'U', DIAG, N2, A( N ), N, INFO ) 317 CALL STRTRI( 'L', DIAG, N1, A( N2 ), N, INFO ) 322 CALL STRTRI( 'U', DIAG, N2, A( N1 ), N, INFO ) 369 CALL STRMM( 'L', 'L', 'N', DIAG, N2, N1, ONE, 431 CALL STRTRI( 'U', DIAG, K, A( K ), K, INFO ) 436 CALL STRTRI( 'L', DIAG, K, A( 0 ), K, INFO ) [all …]
|
H A D | ctftri.f | 220 SUBROUTINE CTFTRI( TRANSR, UPLO, DIAG, N, A, INFO ) argument 227 CHARACTER TRANSR, UPLO, DIAG 265 ELSE IF( .NOT.LSAME( DIAG, 'N' ) .AND. .NOT.LSAME( DIAG, 'U' ) ) 318 CALL CTRTRI( 'L', DIAG, N1, A( 0 ), N, INFO ) 323 CALL CTRTRI( 'U', DIAG, N2, A( N ), N, INFO ) 337 CALL CTRTRI( 'L', DIAG, N1, A( N2 ), N, INFO ) 342 CALL CTRTRI( 'U', DIAG, N2, A( N1 ), N, INFO ) 361 CALL CTRTRI( 'U', DIAG, N1, A( 0 ), N1, INFO ) 451 CALL CTRTRI( 'U', DIAG, K, A( K ), K, INFO ) 456 CALL CTRTRI( 'L', DIAG, K, A( 0 ), K, INFO ) [all …]
|
H A D | dtftri.f | 200 SUBROUTINE DTFTRI( TRANSR, UPLO, DIAG, N, A, INFO ) argument 207 CHARACTER TRANSR, UPLO, DIAG 245 ELSE IF( .NOT.LSAME( DIAG, 'N' ) .AND. .NOT.LSAME( DIAG, 'U' ) ) 298 CALL DTRTRI( 'L', DIAG, N1, A( 0 ), N, INFO ) 303 CALL DTRTRI( 'U', DIAG, N2, A( N ), N, INFO ) 317 CALL DTRTRI( 'L', DIAG, N1, A( N2 ), N, INFO ) 322 CALL DTRTRI( 'U', DIAG, N2, A( N1 ), N, INFO ) 369 CALL DTRMM( 'L', 'L', 'N', DIAG, N2, N1, ONE, 431 CALL DTRTRI( 'U', DIAG, K, A( K ), K, INFO ) 436 CALL DTRTRI( 'L', DIAG, K, A( 0 ), K, INFO ) [all …]
|
H A D | ztftri.f | 220 SUBROUTINE ZTFTRI( TRANSR, UPLO, DIAG, N, A, INFO ) argument 227 CHARACTER TRANSR, UPLO, DIAG local 265 ELSE IF( .NOT.LSAME( DIAG, 'N' ) .AND. .NOT.LSAME( DIAG, 'U' ) ) 318 CALL ZTRTRI( 'L', DIAG, N1, A( 0 ), N, INFO ) 323 CALL ZTRTRI( 'U', DIAG, N2, A( N ), N, INFO ) 337 CALL ZTRTRI( 'L', DIAG, N1, A( N2 ), N, INFO ) 342 CALL ZTRTRI( 'U', DIAG, N2, A( N1 ), N, INFO ) 361 CALL ZTRTRI( 'U', DIAG, N1, A( 0 ), N1, INFO ) 451 CALL ZTRTRI( 'U', DIAG, K, A( K ), K, INFO ) 456 CALL ZTRTRI( 'L', DIAG, K, A( 0 ), K, INFO ) [all …]
|
/dports/math/lapacke/lapack-3.10.0/SRC/ |
H A D | ctftri.f | 220 SUBROUTINE CTFTRI( TRANSR, UPLO, DIAG, N, A, INFO ) argument 227 CHARACTER TRANSR, UPLO, DIAG 265 ELSE IF( .NOT.LSAME( DIAG, 'N' ) .AND. .NOT.LSAME( DIAG, 'U' ) ) 318 CALL CTRTRI( 'L', DIAG, N1, A( 0 ), N, INFO ) 323 CALL CTRTRI( 'U', DIAG, N2, A( N ), N, INFO ) 337 CALL CTRTRI( 'L', DIAG, N1, A( N2 ), N, INFO ) 342 CALL CTRTRI( 'U', DIAG, N2, A( N1 ), N, INFO ) 361 CALL CTRTRI( 'U', DIAG, N1, A( 0 ), N1, INFO ) 451 CALL CTRTRI( 'U', DIAG, K, A( K ), K, INFO ) 456 CALL CTRTRI( 'L', DIAG, K, A( 0 ), K, INFO ) [all …]
|
H A D | dtftri.f | 200 SUBROUTINE DTFTRI( TRANSR, UPLO, DIAG, N, A, INFO ) argument 207 CHARACTER TRANSR, UPLO, DIAG 245 ELSE IF( .NOT.LSAME( DIAG, 'N' ) .AND. .NOT.LSAME( DIAG, 'U' ) ) 298 CALL DTRTRI( 'L', DIAG, N1, A( 0 ), N, INFO ) 303 CALL DTRTRI( 'U', DIAG, N2, A( N ), N, INFO ) 317 CALL DTRTRI( 'L', DIAG, N1, A( N2 ), N, INFO ) 322 CALL DTRTRI( 'U', DIAG, N2, A( N1 ), N, INFO ) 369 CALL DTRMM( 'L', 'L', 'N', DIAG, N2, N1, ONE, 431 CALL DTRTRI( 'U', DIAG, K, A( K ), K, INFO ) 436 CALL DTRTRI( 'L', DIAG, K, A( 0 ), K, INFO ) [all …]
|
H A D | ztftri.f | 220 SUBROUTINE ZTFTRI( TRANSR, UPLO, DIAG, N, A, INFO ) argument 227 CHARACTER TRANSR, UPLO, DIAG 265 ELSE IF( .NOT.LSAME( DIAG, 'N' ) .AND. .NOT.LSAME( DIAG, 'U' ) ) 318 CALL ZTRTRI( 'L', DIAG, N1, A( 0 ), N, INFO ) 323 CALL ZTRTRI( 'U', DIAG, N2, A( N ), N, INFO ) 337 CALL ZTRTRI( 'L', DIAG, N1, A( N2 ), N, INFO ) 342 CALL ZTRTRI( 'U', DIAG, N2, A( N1 ), N, INFO ) 361 CALL ZTRTRI( 'U', DIAG, N1, A( 0 ), N1, INFO ) 451 CALL ZTRTRI( 'U', DIAG, K, A( K ), K, INFO ) 456 CALL ZTRTRI( 'L', DIAG, K, A( 0 ), K, INFO ) [all …]
|
H A D | stftri.f | 200 SUBROUTINE STFTRI( TRANSR, UPLO, DIAG, N, A, INFO ) argument 207 CHARACTER TRANSR, UPLO, DIAG 245 ELSE IF( .NOT.LSAME( DIAG, 'N' ) .AND. .NOT.LSAME( DIAG, 'U' ) ) 298 CALL STRTRI( 'L', DIAG, N1, A( 0 ), N, INFO ) 303 CALL STRTRI( 'U', DIAG, N2, A( N ), N, INFO ) 317 CALL STRTRI( 'L', DIAG, N1, A( N2 ), N, INFO ) 322 CALL STRTRI( 'U', DIAG, N2, A( N1 ), N, INFO ) 369 CALL STRMM( 'L', 'L', 'N', DIAG, N2, N1, ONE, 431 CALL STRTRI( 'U', DIAG, K, A( K ), K, INFO ) 436 CALL STRTRI( 'L', DIAG, K, A( 0 ), K, INFO ) [all …]
|
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/ |
H A D | ctftri.f | 222 SUBROUTINE CTFTRI( TRANSR, UPLO, DIAG, N, A, INFO ) argument 230 CHARACTER TRANSR, UPLO, DIAG local 268 ELSE IF( .NOT.LSAME( DIAG, 'N' ) .AND. .NOT.LSAME( DIAG, 'U' ) ) 321 CALL CTRTRI( 'L', DIAG, N1, A( 0 ), N, INFO ) 326 CALL CTRTRI( 'U', DIAG, N2, A( N ), N, INFO ) 340 CALL CTRTRI( 'L', DIAG, N1, A( N2 ), N, INFO ) 345 CALL CTRTRI( 'U', DIAG, N2, A( N1 ), N, INFO ) 364 CALL CTRTRI( 'U', DIAG, N1, A( 0 ), N1, INFO ) 454 CALL CTRTRI( 'U', DIAG, K, A( K ), K, INFO ) 459 CALL CTRTRI( 'L', DIAG, K, A( 0 ), K, INFO ) [all …]
|
H A D | stftri.f | 202 SUBROUTINE STFTRI( TRANSR, UPLO, DIAG, N, A, INFO ) argument 210 CHARACTER TRANSR, UPLO, DIAG local 248 ELSE IF( .NOT.LSAME( DIAG, 'N' ) .AND. .NOT.LSAME( DIAG, 'U' ) ) 301 CALL STRTRI( 'L', DIAG, N1, A( 0 ), N, INFO ) 306 CALL STRTRI( 'U', DIAG, N2, A( N ), N, INFO ) 320 CALL STRTRI( 'L', DIAG, N1, A( N2 ), N, INFO ) 325 CALL STRTRI( 'U', DIAG, N2, A( N1 ), N, INFO ) 372 CALL STRMM( 'L', 'L', 'N', DIAG, N2, N1, ONE, 434 CALL STRTRI( 'U', DIAG, K, A( K ), K, INFO ) 439 CALL STRTRI( 'L', DIAG, K, A( 0 ), K, INFO ) [all …]
|
H A D | ztftri.f | 222 SUBROUTINE ZTFTRI( TRANSR, UPLO, DIAG, N, A, INFO ) argument 230 CHARACTER TRANSR, UPLO, DIAG 268 ELSE IF( .NOT.LSAME( DIAG, 'N' ) .AND. .NOT.LSAME( DIAG, 'U' ) ) 321 CALL ZTRTRI( 'L', DIAG, N1, A( 0 ), N, INFO ) 326 CALL ZTRTRI( 'U', DIAG, N2, A( N ), N, INFO ) 340 CALL ZTRTRI( 'L', DIAG, N1, A( N2 ), N, INFO ) 345 CALL ZTRTRI( 'U', DIAG, N2, A( N1 ), N, INFO ) 364 CALL ZTRTRI( 'U', DIAG, N1, A( 0 ), N1, INFO ) 454 CALL ZTRTRI( 'U', DIAG, K, A( K ), K, INFO ) 459 CALL ZTRTRI( 'L', DIAG, K, A( 0 ), K, INFO ) [all …]
|
H A D | dtftri.f | 202 SUBROUTINE DTFTRI( TRANSR, UPLO, DIAG, N, A, INFO ) argument 210 CHARACTER TRANSR, UPLO, DIAG local 248 ELSE IF( .NOT.LSAME( DIAG, 'N' ) .AND. .NOT.LSAME( DIAG, 'U' ) ) 301 CALL DTRTRI( 'L', DIAG, N1, A( 0 ), N, INFO ) 306 CALL DTRTRI( 'U', DIAG, N2, A( N ), N, INFO ) 320 CALL DTRTRI( 'L', DIAG, N1, A( N2 ), N, INFO ) 325 CALL DTRTRI( 'U', DIAG, N2, A( N1 ), N, INFO ) 372 CALL DTRMM( 'L', 'L', 'N', DIAG, N2, N1, ONE, 434 CALL DTRTRI( 'U', DIAG, K, A( K ), K, INFO ) 439 CALL DTRTRI( 'L', DIAG, K, A( 0 ), K, INFO ) [all …]
|
/dports/math/cblas/lapack-3.10.0/SRC/ |
H A D | ctftri.f | 220 SUBROUTINE CTFTRI( TRANSR, UPLO, DIAG, N, A, INFO ) argument 227 CHARACTER TRANSR, UPLO, DIAG 265 ELSE IF( .NOT.LSAME( DIAG, 'N' ) .AND. .NOT.LSAME( DIAG, 'U' ) ) 318 CALL CTRTRI( 'L', DIAG, N1, A( 0 ), N, INFO ) 323 CALL CTRTRI( 'U', DIAG, N2, A( N ), N, INFO ) 337 CALL CTRTRI( 'L', DIAG, N1, A( N2 ), N, INFO ) 342 CALL CTRTRI( 'U', DIAG, N2, A( N1 ), N, INFO ) 361 CALL CTRTRI( 'U', DIAG, N1, A( 0 ), N1, INFO ) 451 CALL CTRTRI( 'U', DIAG, K, A( K ), K, INFO ) 456 CALL CTRTRI( 'L', DIAG, K, A( 0 ), K, INFO ) [all …]
|
H A D | ztftri.f | 220 SUBROUTINE ZTFTRI( TRANSR, UPLO, DIAG, N, A, INFO ) argument 227 CHARACTER TRANSR, UPLO, DIAG 265 ELSE IF( .NOT.LSAME( DIAG, 'N' ) .AND. .NOT.LSAME( DIAG, 'U' ) ) 318 CALL ZTRTRI( 'L', DIAG, N1, A( 0 ), N, INFO ) 323 CALL ZTRTRI( 'U', DIAG, N2, A( N ), N, INFO ) 337 CALL ZTRTRI( 'L', DIAG, N1, A( N2 ), N, INFO ) 342 CALL ZTRTRI( 'U', DIAG, N2, A( N1 ), N, INFO ) 361 CALL ZTRTRI( 'U', DIAG, N1, A( 0 ), N1, INFO ) 451 CALL ZTRTRI( 'U', DIAG, K, A( K ), K, INFO ) 456 CALL ZTRTRI( 'L', DIAG, K, A( 0 ), K, INFO ) [all …]
|