Home
last modified time | relevance | path

Searched refs:DIAG (Results 1 – 25 of 2619) sorted by relevance

12345678910>>...105

/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/
H A Dztftri.f222 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 Dstftri.f202 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 Ddtftri.f202 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 Ddtftri.f200 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 Dctftri.f220 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 Dztftri.f220 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 Dstftri.f200 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 Dctftri.f220 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 Dstftri.f200 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 Dztftri.f220 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 Ddtftri.f200 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 Dstftri.f200 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 Dctftri.f220 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 Ddtftri.f200 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 Dztftri.f220 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 Dctftri.f220 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 Ddtftri.f200 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 Dztftri.f220 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 Dstftri.f200 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 Dctftri.f222 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 Dstftri.f202 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 Dztftri.f222 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 Ddtftri.f202 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 Dctftri.f220 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 Dztftri.f220 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 …]

12345678910>>...105