Home
last modified time | relevance | path

Searched refs:LDAB (Results 1 – 25 of 2247) sorted by relevance

12345678910>>...90

/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/
H A Ddpbtrf.f143 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 Dcpbtrf.f143 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 Dspbtrf.f143 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 Dzpbtrf.f143 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 Dcpbtrf.f141 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 Dzpbtrf.f141 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 Ddpbtrf.f141 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 Dspbtrf.f141 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 Dzpbtrf.f141 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 Dcpbtrf.f141 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 Dspbtrf.f141 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 Ddpbtrf.f141 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 Ddpbtrf.f1 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 Dspbtrf.f1 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 Dcpbtrf.f1 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 Ddpbtrf.f141 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 Dcpbtrf.f141 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 Dzpbtrf.f141 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 Dspbtrf.f141 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 Ddpbtrf.f141 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 Dcpbtrf.f141 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 Dspbtrf.f141 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 Dzpbtrf.f141 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 Dcpbtrf.f1 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 Dcpbtrf.f143 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 …]

12345678910>>...90