/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/ |
H A D | dpbtrf.f | 143 SUBROUTINE DPBTRF( UPLO, N, KD, AB, LDAB, INFO ) argument 152 INTEGER INFO, KD, LDAB, N 155 DOUBLE PRECISION AB( LDAB, * ) 195 ELSE IF( LDAB.LT.KD+1 ) THEN 221 CALL DPBTF2( UPLO, N, KD, AB, LDAB, INFO ) 277 $ LDAB-1, AB( KD+1-IB, I+IB ), LDAB-1 ) 300 $ LDAB-1, WORK, LDWORK ) 314 $ LDAB-1 ) 377 $ LDAB-1, AB( 1+IB, I ), LDAB-1 ) 400 $ LDAB-1, WORK, LDWORK ) [all …]
|
H A D | cpbtrf.f | 143 SUBROUTINE CPBTRF( UPLO, N, KD, AB, LDAB, INFO ) argument 152 INTEGER INFO, KD, LDAB, N 155 COMPLEX AB( LDAB, * ) 197 ELSE IF( LDAB.LT.KD+1 ) THEN 223 CALL CPBTF2( UPLO, N, KD, AB, LDAB, INFO ) 279 $ AB( KD+1, I ), LDAB-1, 312 $ LDAB-1 ) 382 $ AB( 1+IB, I ), LDAB-1 ) 388 $ AB( 1, I+IB ), LDAB-1 ) 415 $ LDAB-1 ) [all …]
|
H A D | spbtrf.f | 143 SUBROUTINE SPBTRF( UPLO, N, KD, AB, LDAB, INFO ) argument 152 INTEGER INFO, KD, LDAB, N 155 REAL AB( LDAB, * ) 195 ELSE IF( LDAB.LT.KD+1 ) THEN 221 CALL SPBTF2( UPLO, N, KD, AB, LDAB, INFO ) 277 $ LDAB-1, AB( KD+1-IB, I+IB ), LDAB-1 ) 300 $ LDAB-1, WORK, LDWORK ) 314 $ LDAB-1 ) 377 $ LDAB-1, AB( 1+IB, I ), LDAB-1 ) 400 $ LDAB-1, WORK, LDWORK ) [all …]
|
H A D | zpbtrf.f | 143 SUBROUTINE ZPBTRF( UPLO, N, KD, AB, LDAB, INFO ) argument 152 INTEGER INFO, KD, LDAB, N 155 COMPLEX*16 AB( LDAB, * ) 197 ELSE IF( LDAB.LT.KD+1 ) THEN 223 CALL ZPBTF2( UPLO, N, KD, AB, LDAB, INFO ) 279 $ AB( KD+1, I ), LDAB-1, 312 $ LDAB-1 ) 382 $ AB( 1+IB, I ), LDAB-1 ) 388 $ AB( 1, I+IB ), LDAB-1 ) 415 $ LDAB-1 ) [all …]
|
/dports/math/xlapack/lapack-3.10.0/SRC/ |
H A D | cpbtrf.f | 141 SUBROUTINE CPBTRF( UPLO, N, KD, AB, LDAB, INFO ) argument 149 INTEGER INFO, KD, LDAB, N 152 COMPLEX AB( LDAB, * ) 194 ELSE IF( LDAB.LT.KD+1 ) THEN 220 CALL CPBTF2( UPLO, N, KD, AB, LDAB, INFO ) 276 $ AB( KD+1, I ), LDAB-1, 309 $ LDAB-1 ) 379 $ AB( 1+IB, I ), LDAB-1 ) 385 $ AB( 1, I+IB ), LDAB-1 ) 412 $ LDAB-1 ) [all …]
|
H A D | zpbtrf.f | 141 SUBROUTINE ZPBTRF( UPLO, N, KD, AB, LDAB, INFO ) argument 149 INTEGER INFO, KD, LDAB, N 152 COMPLEX*16 AB( LDAB, * ) 194 ELSE IF( LDAB.LT.KD+1 ) THEN 220 CALL ZPBTF2( UPLO, N, KD, AB, LDAB, INFO ) 276 $ AB( KD+1, I ), LDAB-1, 309 $ LDAB-1 ) 379 $ AB( 1+IB, I ), LDAB-1 ) 385 $ AB( 1, I+IB ), LDAB-1 ) 412 $ LDAB-1 ) [all …]
|
H A D | dpbtrf.f | 141 SUBROUTINE DPBTRF( UPLO, N, KD, AB, LDAB, INFO ) argument 149 INTEGER INFO, KD, LDAB, N 152 DOUBLE PRECISION AB( LDAB, * ) 192 ELSE IF( LDAB.LT.KD+1 ) THEN 218 CALL DPBTF2( UPLO, N, KD, AB, LDAB, INFO ) 274 $ LDAB-1, AB( KD+1-IB, I+IB ), LDAB-1 ) 297 $ LDAB-1, WORK, LDWORK ) 311 $ LDAB-1 ) 374 $ LDAB-1, AB( 1+IB, I ), LDAB-1 ) 397 $ LDAB-1, WORK, LDWORK ) [all …]
|
H A D | spbtrf.f | 141 SUBROUTINE SPBTRF( UPLO, N, KD, AB, LDAB, INFO ) argument 149 INTEGER INFO, KD, LDAB, N 152 REAL AB( LDAB, * ) 192 ELSE IF( LDAB.LT.KD+1 ) THEN 218 CALL SPBTF2( UPLO, N, KD, AB, LDAB, INFO ) 274 $ LDAB-1, AB( KD+1-IB, I+IB ), LDAB-1 ) 297 $ LDAB-1, WORK, LDWORK ) 311 $ LDAB-1 ) 374 $ LDAB-1, AB( 1+IB, I ), LDAB-1 ) 397 $ LDAB-1, WORK, LDWORK ) [all …]
|
/dports/math/blas/lapack-3.10.0/SRC/ |
H A D | zpbtrf.f | 141 SUBROUTINE ZPBTRF( UPLO, N, KD, AB, LDAB, INFO ) argument 149 INTEGER INFO, KD, LDAB, N 152 COMPLEX*16 AB( LDAB, * ) 194 ELSE IF( LDAB.LT.KD+1 ) THEN 220 CALL ZPBTF2( UPLO, N, KD, AB, LDAB, INFO ) 276 $ AB( KD+1, I ), LDAB-1, 309 $ LDAB-1 ) 379 $ AB( 1+IB, I ), LDAB-1 ) 385 $ AB( 1, I+IB ), LDAB-1 ) 412 $ LDAB-1 ) [all …]
|
H A D | cpbtrf.f | 141 SUBROUTINE CPBTRF( UPLO, N, KD, AB, LDAB, INFO ) argument 149 INTEGER INFO, KD, LDAB, N 152 COMPLEX AB( LDAB, * ) 194 ELSE IF( LDAB.LT.KD+1 ) THEN 220 CALL CPBTF2( UPLO, N, KD, AB, LDAB, INFO ) 276 $ AB( KD+1, I ), LDAB-1, 309 $ LDAB-1 ) 379 $ AB( 1+IB, I ), LDAB-1 ) 385 $ AB( 1, I+IB ), LDAB-1 ) 412 $ LDAB-1 ) [all …]
|
H A D | spbtrf.f | 141 SUBROUTINE SPBTRF( UPLO, N, KD, AB, LDAB, INFO ) argument 149 INTEGER INFO, KD, LDAB, N 152 REAL AB( LDAB, * ) 192 ELSE IF( LDAB.LT.KD+1 ) THEN 218 CALL SPBTF2( UPLO, N, KD, AB, LDAB, INFO ) 274 $ LDAB-1, AB( KD+1-IB, I+IB ), LDAB-1 ) 297 $ LDAB-1, WORK, LDWORK ) 311 $ LDAB-1 ) 374 $ LDAB-1, AB( 1+IB, I ), LDAB-1 ) 397 $ LDAB-1, WORK, LDWORK ) [all …]
|
H A D | dpbtrf.f | 141 SUBROUTINE DPBTRF( UPLO, N, KD, AB, LDAB, INFO ) argument 149 INTEGER INFO, KD, LDAB, N 152 DOUBLE PRECISION AB( LDAB, * ) 192 ELSE IF( LDAB.LT.KD+1 ) THEN 218 CALL DPBTF2( UPLO, N, KD, AB, LDAB, INFO ) 274 $ LDAB-1, AB( KD+1-IB, I+IB ), LDAB-1 ) 297 $ LDAB-1, WORK, LDWORK ) 311 $ LDAB-1 ) 374 $ LDAB-1, AB( 1+IB, I ), LDAB-1 ) 397 $ LDAB-1, WORK, LDWORK ) [all …]
|
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/src_f77/ |
H A D | dpbtrf.f | 1 SUBROUTINE DPBTRF( UPLO, N, KD, AB, LDAB, INFO ) argument 10 INTEGER INFO, KD, LDAB, N local 13 DOUBLE PRECISION AB( LDAB, * ) 125 ELSE IF( LDAB.LT.KD+1 ) THEN 151 CALL DPBTF2( UPLO, N, KD, AB, LDAB, INFO ) 207 $ LDAB-1, AB( KD+1-IB, I+IB ), LDAB-1 ) 230 $ LDAB-1, WORK, LDWORK ) 244 $ LDAB-1 ) 307 $ LDAB-1, AB( 1+IB, I ), LDAB-1 ) 330 $ LDAB-1, WORK, LDWORK ) [all …]
|
H A D | spbtrf.f | 1 SUBROUTINE SPBTRF( UPLO, N, KD, AB, LDAB, INFO ) argument 10 INTEGER INFO, KD, LDAB, N local 13 REAL AB( LDAB, * ) 125 ELSE IF( LDAB.LT.KD+1 ) THEN 151 CALL SPBTF2( UPLO, N, KD, AB, LDAB, INFO ) 207 $ LDAB-1, AB( KD+1-IB, I+IB ), LDAB-1 ) 230 $ LDAB-1, WORK, LDWORK ) 244 $ LDAB-1 ) 307 $ LDAB-1, AB( 1+IB, I ), LDAB-1 ) 330 $ LDAB-1, WORK, LDWORK ) [all …]
|
H A D | cpbtrf.f | 1 SUBROUTINE CPBTRF( UPLO, N, KD, AB, LDAB, INFO ) argument 10 INTEGER INFO, KD, LDAB, N local 13 COMPLEX AB( LDAB, * ) 127 ELSE IF( LDAB.LT.KD+1 ) THEN 153 CALL CPBTF2( UPLO, N, KD, AB, LDAB, INFO ) 209 $ AB( KD+1, I ), LDAB-1, 242 $ LDAB-1 ) 312 $ AB( 1+IB, I ), LDAB-1 ) 318 $ AB( 1, I+IB ), LDAB-1 ) 345 $ LDAB-1 ) [all …]
|
/dports/math/lapacke/lapack-3.10.0/SRC/ |
H A D | dpbtrf.f | 141 SUBROUTINE DPBTRF( UPLO, N, KD, AB, LDAB, INFO ) argument 149 INTEGER INFO, KD, LDAB, N 152 DOUBLE PRECISION AB( LDAB, * ) 192 ELSE IF( LDAB.LT.KD+1 ) THEN 218 CALL DPBTF2( UPLO, N, KD, AB, LDAB, INFO ) 274 $ LDAB-1, AB( KD+1-IB, I+IB ), LDAB-1 ) 297 $ LDAB-1, WORK, LDWORK ) 311 $ LDAB-1 ) 374 $ LDAB-1, AB( 1+IB, I ), LDAB-1 ) 397 $ LDAB-1, WORK, LDWORK ) [all …]
|
H A D | cpbtrf.f | 141 SUBROUTINE CPBTRF( UPLO, N, KD, AB, LDAB, INFO ) argument 149 INTEGER INFO, KD, LDAB, N 152 COMPLEX AB( LDAB, * ) 194 ELSE IF( LDAB.LT.KD+1 ) THEN 220 CALL CPBTF2( UPLO, N, KD, AB, LDAB, INFO ) 276 $ AB( KD+1, I ), LDAB-1, 309 $ LDAB-1 ) 379 $ AB( 1+IB, I ), LDAB-1 ) 385 $ AB( 1, I+IB ), LDAB-1 ) 412 $ LDAB-1 ) [all …]
|
H A D | zpbtrf.f | 141 SUBROUTINE ZPBTRF( UPLO, N, KD, AB, LDAB, INFO ) argument 149 INTEGER INFO, KD, LDAB, N 152 COMPLEX*16 AB( LDAB, * ) 194 ELSE IF( LDAB.LT.KD+1 ) THEN 220 CALL ZPBTF2( UPLO, N, KD, AB, LDAB, INFO ) 276 $ AB( KD+1, I ), LDAB-1, 309 $ LDAB-1 ) 379 $ AB( 1+IB, I ), LDAB-1 ) 385 $ AB( 1, I+IB ), LDAB-1 ) 412 $ LDAB-1 ) [all …]
|
H A D | spbtrf.f | 141 SUBROUTINE SPBTRF( UPLO, N, KD, AB, LDAB, INFO ) argument 149 INTEGER INFO, KD, LDAB, N 152 REAL AB( LDAB, * ) 192 ELSE IF( LDAB.LT.KD+1 ) THEN 218 CALL SPBTF2( UPLO, N, KD, AB, LDAB, INFO ) 274 $ LDAB-1, AB( KD+1-IB, I+IB ), LDAB-1 ) 297 $ LDAB-1, WORK, LDWORK ) 311 $ LDAB-1 ) 374 $ LDAB-1, AB( 1+IB, I ), LDAB-1 ) 397 $ LDAB-1, WORK, LDWORK ) [all …]
|
/dports/math/lapack/lapack-3.10.0/SRC/ |
H A D | dpbtrf.f | 141 SUBROUTINE DPBTRF( UPLO, N, KD, AB, LDAB, INFO ) argument 149 INTEGER INFO, KD, LDAB, N 152 DOUBLE PRECISION AB( LDAB, * ) 192 ELSE IF( LDAB.LT.KD+1 ) THEN 218 CALL DPBTF2( UPLO, N, KD, AB, LDAB, INFO ) 274 $ LDAB-1, AB( KD+1-IB, I+IB ), LDAB-1 ) 297 $ LDAB-1, WORK, LDWORK ) 311 $ LDAB-1 ) 374 $ LDAB-1, AB( 1+IB, I ), LDAB-1 ) 397 $ LDAB-1, WORK, LDWORK ) [all …]
|
H A D | cpbtrf.f | 141 SUBROUTINE CPBTRF( UPLO, N, KD, AB, LDAB, INFO ) argument 149 INTEGER INFO, KD, LDAB, N 152 COMPLEX AB( LDAB, * ) 194 ELSE IF( LDAB.LT.KD+1 ) THEN 220 CALL CPBTF2( UPLO, N, KD, AB, LDAB, INFO ) 276 $ AB( KD+1, I ), LDAB-1, 309 $ LDAB-1 ) 379 $ AB( 1+IB, I ), LDAB-1 ) 385 $ AB( 1, I+IB ), LDAB-1 ) 412 $ LDAB-1 ) [all …]
|
H A D | spbtrf.f | 141 SUBROUTINE SPBTRF( UPLO, N, KD, AB, LDAB, INFO ) argument 149 INTEGER INFO, KD, LDAB, N 152 REAL AB( LDAB, * ) 192 ELSE IF( LDAB.LT.KD+1 ) THEN 218 CALL SPBTF2( UPLO, N, KD, AB, LDAB, INFO ) 274 $ LDAB-1, AB( KD+1-IB, I+IB ), LDAB-1 ) 297 $ LDAB-1, WORK, LDWORK ) 311 $ LDAB-1 ) 374 $ LDAB-1, AB( 1+IB, I ), LDAB-1 ) 397 $ LDAB-1, WORK, LDWORK ) [all …]
|
H A D | zpbtrf.f | 141 SUBROUTINE ZPBTRF( UPLO, N, KD, AB, LDAB, INFO ) argument 149 INTEGER INFO, KD, LDAB, N local 152 COMPLEX*16 AB( LDAB, * ) 194 ELSE IF( LDAB.LT.KD+1 ) THEN 220 CALL ZPBTF2( UPLO, N, KD, AB, LDAB, INFO ) 276 $ AB( KD+1, I ), LDAB-1, 309 $ LDAB-1 ) 379 $ AB( 1+IB, I ), LDAB-1 ) 385 $ AB( 1, I+IB ), LDAB-1 ) 412 $ LDAB-1 ) [all …]
|
/dports/science/elmerfem/elmerfem-release-9.0/mathlibs/src/lapack/ |
H A D | cpbtrf.f | 1 SUBROUTINE CPBTRF( UPLO, N, KD, AB, LDAB, INFO ) argument 10 INTEGER INFO, KD, LDAB, N 13 COMPLEX AB( LDAB, * ) 127 ELSE IF( LDAB.LT.KD+1 ) THEN 153 CALL CPBTF2( UPLO, N, KD, AB, LDAB, INFO ) 209 $ AB( KD+1, I ), LDAB-1, 242 $ LDAB-1 ) 312 $ AB( 1+IB, I ), LDAB-1 ) 318 $ AB( 1, I+IB ), LDAB-1 ) 345 $ LDAB-1 ) [all …]
|
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/ |
H A D | cpbtrf.f | 143 SUBROUTINE CPBTRF( UPLO, N, KD, AB, LDAB, INFO ) argument 152 INTEGER INFO, KD, LDAB, N local 155 COMPLEX AB( LDAB, * ) 197 ELSE IF( LDAB.LT.KD+1 ) THEN 223 CALL CPBTF2( UPLO, N, KD, AB, LDAB, INFO ) 279 $ AB( KD+1, I ), LDAB-1, 312 $ LDAB-1 ) 382 $ AB( 1+IB, I ), LDAB-1 ) 388 $ AB( 1, I+IB ), LDAB-1 ) 415 $ LDAB-1 ) [all …]
|