/dports/math/scalapack/scalapack-2.1.0/SRC/ |
H A D | pcgbtrf.f | 842 $ AF(BBPTR + BW*LDBB),LDBB) 848 AF( BBPTR+BW*LDBB+(J-1)*LDBB+I ) = CZERO 858 $ AF(BBPTR +2*BW*LDBB),LDBB) 925 $ LDBB, AF( BBPTR+2*BW*LDBB+BM ), LDBB ) 953 DO 31 J=BBPTR+2*BW*LDBB, BBPTR+3*BW*LDBB-1, LDBB 967 $ LDBB, AF( BBPTR+2*BW*LDBB+BMN ), LDBB ) 981 DO 301 J=BBPTR,BBPTR+BW*LDBB-1, LDBB 991 $ AF(BBPTR+BW*LDBB), LDBB, AF(BBPTR), LDBB) 1008 $ AF(BBPTR+BW*LDBB), LDBB, AF(BBPTR+2*BW*LDBB), LDBB) 1031 $ LDBB, AF(BBPTR+BW*LDBB), LDBB) [all …]
|
H A D | psgbtrf.f | 843 AF( BBPTR+BW*LDBB+( J-1 )*LDBB+I ) = ZERO 853 $ AF( BBPTR+2*BW*LDBB ), LDBB ) 950 DO 130 J = BBPTR + 2*BW*LDBB, BBPTR + 3*BW*LDBB - 1, LDBB 978 DO 150 J = BBPTR, BBPTR + BW*LDBB - 1, LDBB 987 $ AF( BBPTR+BW*LDBB ), LDBB, AF( BBPTR ), LDBB ) 992 $ AF( BBPTR+BW*LDBB+BW ), LDBB, AF( BBPTR ), LDBB, 1003 $ AF( BBPTR+BW*LDBB ), LDBB, 1004 $ AF( BBPTR+2*BW*LDBB ), LDBB ) 1009 $ AF( BBPTR+BW*LDBB+BW ), LDBB, 1011 $ AF( BBPTR+2*BW*LDBB+BW ), LDBB ) [all …]
|
H A D | pzgbtrf.f | 842 $ AF(BBPTR + BW*LDBB),LDBB) 848 AF( BBPTR+BW*LDBB+(J-1)*LDBB+I ) = CZERO 858 $ AF(BBPTR +2*BW*LDBB),LDBB) 925 $ LDBB, AF( BBPTR+2*BW*LDBB+BM ), LDBB ) 953 DO 31 J=BBPTR+2*BW*LDBB, BBPTR+3*BW*LDBB-1, LDBB 967 $ LDBB, AF( BBPTR+2*BW*LDBB+BMN ), LDBB ) 981 DO 301 J=BBPTR,BBPTR+BW*LDBB-1, LDBB 991 $ AF(BBPTR+BW*LDBB), LDBB, AF(BBPTR), LDBB) 1008 $ AF(BBPTR+BW*LDBB), LDBB, AF(BBPTR+2*BW*LDBB), LDBB) 1031 $ LDBB, AF(BBPTR+BW*LDBB), LDBB) [all …]
|
H A D | pdgbtrf.f | 843 AF( BBPTR+BW*LDBB+( J-1 )*LDBB+I ) = ZERO 853 $ AF( BBPTR+2*BW*LDBB ), LDBB ) 950 DO 130 J = BBPTR + 2*BW*LDBB, BBPTR + 3*BW*LDBB - 1, LDBB 978 DO 150 J = BBPTR, BBPTR + BW*LDBB - 1, LDBB 987 $ AF( BBPTR+BW*LDBB ), LDBB, AF( BBPTR ), LDBB ) 992 $ AF( BBPTR+BW*LDBB+BW ), LDBB, AF( BBPTR ), LDBB, 1003 $ AF( BBPTR+BW*LDBB ), LDBB, 1004 $ AF( BBPTR+2*BW*LDBB ), LDBB ) 1009 $ AF( BBPTR+BW*LDBB+BW ), LDBB, 1011 $ AF( BBPTR+2*BW*LDBB+BW ), LDBB ) [all …]
|
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/ |
H A D | dsbgv.f | 177 SUBROUTINE DSBGV( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W, Z, argument 187 INTEGER INFO, KA, KB, LDAB, LDBB, LDZ, N 190 DOUBLE PRECISION AB( LDAB, * ), BB( LDBB, * ), W( * ), 228 ELSE IF( LDBB.LT.KB+1 ) THEN 245 CALL DPBSTF( UPLO, N, KB, BB, LDBB, INFO ) 255 CALL DSBGST( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, Z, LDZ,
|
H A D | ssbgv.f | 177 SUBROUTINE SSBGV( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W, Z, argument 187 INTEGER INFO, KA, KB, LDAB, LDBB, LDZ, N 190 REAL AB( LDAB, * ), BB( LDBB, * ), W( * ), 228 ELSE IF( LDBB.LT.KB+1 ) THEN 245 CALL SPBSTF( UPLO, N, KB, BB, LDBB, INFO ) 255 CALL SSBGST( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, Z, LDZ,
|
H A D | zhbgv.f | 183 SUBROUTINE ZHBGV( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W, Z, argument 193 INTEGER INFO, KA, KB, LDAB, LDBB, LDZ, N 197 COMPLEX*16 AB( LDAB, * ), BB( LDBB, * ), WORK( * ), 235 ELSE IF( LDBB.LT.KB+1 ) THEN 252 CALL ZPBSTF( UPLO, N, KB, BB, LDBB, INFO ) 262 CALL ZHBGST( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, Z, LDZ,
|
/dports/math/xlapack/lapack-3.10.0/SRC/ |
H A D | ssbgv.f | 175 SUBROUTINE SSBGV( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W, Z, argument 184 INTEGER INFO, KA, KB, LDAB, LDBB, LDZ, N 187 REAL AB( LDAB, * ), BB( LDBB, * ), W( * ), 225 ELSE IF( LDBB.LT.KB+1 ) THEN 242 CALL SPBSTF( UPLO, N, KB, BB, LDBB, INFO ) 252 CALL SSBGST( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, Z, LDZ,
|
H A D | dsbgv.f | 175 SUBROUTINE DSBGV( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W, Z, argument 184 INTEGER INFO, KA, KB, LDAB, LDBB, LDZ, N 187 DOUBLE PRECISION AB( LDAB, * ), BB( LDBB, * ), W( * ), 225 ELSE IF( LDBB.LT.KB+1 ) THEN 242 CALL DPBSTF( UPLO, N, KB, BB, LDBB, INFO ) 252 CALL DSBGST( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, Z, LDZ,
|
H A D | zhbgv.f | 181 SUBROUTINE ZHBGV( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W, Z, argument 190 INTEGER INFO, KA, KB, LDAB, LDBB, LDZ, N 194 COMPLEX*16 AB( LDAB, * ), BB( LDBB, * ), WORK( * ), 232 ELSE IF( LDBB.LT.KB+1 ) THEN 249 CALL ZPBSTF( UPLO, N, KB, BB, LDBB, INFO ) 259 CALL ZHBGST( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, Z, LDZ,
|
H A D | chbgv.f | 181 SUBROUTINE CHBGV( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W, Z, argument 190 INTEGER INFO, KA, KB, LDAB, LDBB, LDZ, N 194 COMPLEX AB( LDAB, * ), BB( LDBB, * ), WORK( * ), 232 ELSE IF( LDBB.LT.KB+1 ) THEN 249 CALL CPBSTF( UPLO, N, KB, BB, LDBB, INFO ) 259 CALL CHBGST( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, Z, LDZ,
|
/dports/math/blas/lapack-3.10.0/SRC/ |
H A D | ssbgv.f | 175 SUBROUTINE SSBGV( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W, Z, argument 184 INTEGER INFO, KA, KB, LDAB, LDBB, LDZ, N 187 REAL AB( LDAB, * ), BB( LDBB, * ), W( * ), 225 ELSE IF( LDBB.LT.KB+1 ) THEN 242 CALL SPBSTF( UPLO, N, KB, BB, LDBB, INFO ) 252 CALL SSBGST( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, Z, LDZ,
|
H A D | dsbgv.f | 175 SUBROUTINE DSBGV( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W, Z, argument 184 INTEGER INFO, KA, KB, LDAB, LDBB, LDZ, N 187 DOUBLE PRECISION AB( LDAB, * ), BB( LDBB, * ), W( * ), 225 ELSE IF( LDBB.LT.KB+1 ) THEN 242 CALL DPBSTF( UPLO, N, KB, BB, LDBB, INFO ) 252 CALL DSBGST( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, Z, LDZ,
|
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/src_f77/ |
H A D | dsbgv.f | 1 SUBROUTINE DSBGV( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W, Z, argument 11 INTEGER INFO, KA, KB, LDAB, LDBB, LDZ, N local 14 DOUBLE PRECISION AB( LDAB, * ), BB( LDBB, * ), W( * ), 137 ELSE IF( LDBB.LT.KB+1 ) THEN 154 CALL DPBSTF( UPLO, N, KB, BB, LDBB, INFO ) 164 CALL DSBGST( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, Z, LDZ,
|
H A D | ssbgv.f | 1 SUBROUTINE SSBGV( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W, Z, argument 11 INTEGER INFO, KA, KB, LDAB, LDBB, LDZ, N 14 REAL AB( LDAB, * ), BB( LDBB, * ), W( * ), 137 ELSE IF( LDBB.LT.KB+1 ) THEN 154 CALL SPBSTF( UPLO, N, KB, BB, LDBB, INFO ) 164 CALL SSBGST( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, Z, LDZ,
|
/dports/math/lapacke/lapack-3.10.0/SRC/ |
H A D | dsbgv.f | 175 SUBROUTINE DSBGV( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W, Z, argument 184 INTEGER INFO, KA, KB, LDAB, LDBB, LDZ, N 187 DOUBLE PRECISION AB( LDAB, * ), BB( LDBB, * ), W( * ), 225 ELSE IF( LDBB.LT.KB+1 ) THEN 242 CALL DPBSTF( UPLO, N, KB, BB, LDBB, INFO ) 252 CALL DSBGST( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, Z, LDZ,
|
H A D | ssbgv.f | 175 SUBROUTINE SSBGV( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W, Z, argument 184 INTEGER INFO, KA, KB, LDAB, LDBB, LDZ, N 187 REAL AB( LDAB, * ), BB( LDBB, * ), W( * ), 225 ELSE IF( LDBB.LT.KB+1 ) THEN 242 CALL SPBSTF( UPLO, N, KB, BB, LDBB, INFO ) 252 CALL SSBGST( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, Z, LDZ,
|
/dports/math/lapack/lapack-3.10.0/SRC/ |
H A D | dsbgv.f | 175 SUBROUTINE DSBGV( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W, Z, argument 184 INTEGER INFO, KA, KB, LDAB, LDBB, LDZ, N 187 DOUBLE PRECISION AB( LDAB, * ), BB( LDBB, * ), W( * ), 225 ELSE IF( LDBB.LT.KB+1 ) THEN 242 CALL DPBSTF( UPLO, N, KB, BB, LDBB, INFO ) 252 CALL DSBGST( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, Z, LDZ,
|
H A D | ssbgv.f | 175 SUBROUTINE SSBGV( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W, Z, argument 184 INTEGER INFO, KA, KB, LDAB, LDBB, LDZ, N 187 REAL AB( LDAB, * ), BB( LDBB, * ), W( * ), 225 ELSE IF( LDBB.LT.KB+1 ) THEN 242 CALL SPBSTF( UPLO, N, KB, BB, LDBB, INFO ) 252 CALL SSBGST( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, Z, LDZ,
|
/dports/science/elmerfem/elmerfem-release-9.0/mathlibs/src/lapack/ |
H A D | dsbgv.f | 1 SUBROUTINE DSBGV( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W, Z, argument 11 INTEGER INFO, KA, KB, LDAB, LDBB, LDZ, N 14 DOUBLE PRECISION AB( LDAB, * ), BB( LDBB, * ), W( * ), 137 ELSE IF( LDBB.LT.KB+1 ) THEN 154 CALL DPBSTF( UPLO, N, KB, BB, LDBB, INFO ) 164 CALL DSBGST( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, Z, LDZ,
|
H A D | ssbgv.f | 1 SUBROUTINE SSBGV( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W, Z, argument 11 INTEGER INFO, KA, KB, LDAB, LDBB, LDZ, N 14 REAL AB( LDAB, * ), BB( LDBB, * ), W( * ), 137 ELSE IF( LDBB.LT.KB+1 ) THEN 154 CALL SPBSTF( UPLO, N, KB, BB, LDBB, INFO ) 164 CALL SSBGST( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, Z, LDZ,
|
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/ |
H A D | dsbgv.f | 177 SUBROUTINE DSBGV( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W, Z, argument 187 INTEGER INFO, KA, KB, LDAB, LDBB, LDZ, N local 190 DOUBLE PRECISION AB( LDAB, * ), BB( LDBB, * ), W( * ), 228 ELSE IF( LDBB.LT.KB+1 ) THEN 245 CALL DPBSTF( UPLO, N, KB, BB, LDBB, INFO ) 255 CALL DSBGST( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, Z, LDZ,
|
H A D | ssbgv.f | 177 SUBROUTINE SSBGV( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W, Z, argument 187 INTEGER INFO, KA, KB, LDAB, LDBB, LDZ, N local 190 REAL AB( LDAB, * ), BB( LDBB, * ), W( * ), 228 ELSE IF( LDBB.LT.KB+1 ) THEN 245 CALL SPBSTF( UPLO, N, KB, BB, LDBB, INFO ) 255 CALL SSBGST( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, Z, LDZ,
|
/dports/math/cblas/lapack-3.10.0/SRC/ |
H A D | dsbgv.f | 175 SUBROUTINE DSBGV( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W, Z, argument 184 INTEGER INFO, KA, KB, LDAB, LDBB, LDZ, N 187 DOUBLE PRECISION AB( LDAB, * ), BB( LDBB, * ), W( * ), 225 ELSE IF( LDBB.LT.KB+1 ) THEN 242 CALL DPBSTF( UPLO, N, KB, BB, LDBB, INFO ) 252 CALL DSBGST( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, Z, LDZ,
|
H A D | ssbgv.f | 175 SUBROUTINE SSBGV( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W, Z, argument 184 INTEGER INFO, KA, KB, LDAB, LDBB, LDZ, N 187 REAL AB( LDAB, * ), BB( LDBB, * ), W( * ), 225 ELSE IF( LDBB.LT.KB+1 ) THEN 242 CALL SPBSTF( UPLO, N, KB, BB, LDBB, INFO ) 252 CALL SSBGST( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, Z, LDZ,
|