/dports/math/algae/algae-4.3.6/lapack/ |
H A D | dormbr.f | 126 INTEGER I1, I2, IINFO, LWKOPT, MI, NB, NI, NQ, NW 152 NQ = M 155 NQ = N 170 ELSE IF( ( APPLYQ .AND. LDA.LT.MAX( 1, NQ ) ) .OR. 171 $ ( .NOT.APPLYQ .AND. LDA.LT.MAX( 1, MIN( NQ, K ) ) ) ) 219 IF( NQ.GE.K ) THEN 225 ELSE IF( NQ.GT.1 ) THEN 240 CALL DORMQR( SIDE, TRANS, MI, NI, NQ-1, A( 2, 1 ), LDA, TAU, 252 IF( NQ.GT.K ) THEN 258 ELSE IF( NQ.GT.1 ) THEN [all …]
|
H A D | zunmbr.f | 126 INTEGER I1, I2, IINFO, LWKOPT, MI, NB, NI, NQ, NW 152 NQ = M 155 NQ = N 170 ELSE IF( ( APPLYQ .AND. LDA.LT.MAX( 1, NQ ) ) .OR. 171 $ ( .NOT.APPLYQ .AND. LDA.LT.MAX( 1, MIN( NQ, K ) ) ) ) 218 IF( NQ.GE.K ) THEN 224 ELSE IF( NQ.GT.1 ) THEN 239 CALL ZUNMQR( SIDE, TRANS, MI, NI, NQ-1, A( 2, 1 ), LDA, TAU, 251 IF( NQ.GT.K ) THEN 257 ELSE IF( NQ.GT.1 ) THEN [all …]
|
/dports/science/elmerfem/elmerfem-release-9.0/mathlibs/src/lapack/ |
H A D | dormbr.f | 126 INTEGER I1, I2, IINFO, LWKOPT, MI, NB, NI, NQ, NW 152 NQ = M 155 NQ = N 170 ELSE IF( ( APPLYQ .AND. LDA.LT.MAX( 1, NQ ) ) .OR. 171 $ ( .NOT.APPLYQ .AND. LDA.LT.MAX( 1, MIN( NQ, K ) ) ) ) 219 IF( NQ.GE.K ) THEN 225 ELSE IF( NQ.GT.1 ) THEN 240 CALL DORMQR( SIDE, TRANS, MI, NI, NQ-1, A( 2, 1 ), LDA, TAU, 252 IF( NQ.GT.K ) THEN 258 ELSE IF( NQ.GT.1 ) THEN [all …]
|
H A D | cunmbr.f | 127 INTEGER I1, I2, IINFO, LWKOPT, MI, NB, NI, NQ, NW 153 NQ = M 156 NQ = N 171 ELSE IF( ( APPLYQ .AND. LDA.LT.MAX( 1, NQ ) ) .OR. 172 $ ( .NOT.APPLYQ .AND. LDA.LT.MAX( 1, MIN( NQ, K ) ) ) ) 219 IF( NQ.GE.K ) THEN 225 ELSE IF( NQ.GT.1 ) THEN 240 CALL CUNMQR( SIDE, TRANS, MI, NI, NQ-1, A( 2, 1 ), LDA, TAU, 252 IF( NQ.GT.K ) THEN 258 ELSE IF( NQ.GT.1 ) THEN [all …]
|
H A D | zunmbr.f | 126 INTEGER I1, I2, IINFO, LWKOPT, MI, NB, NI, NQ, NW 152 NQ = M 155 NQ = N 170 ELSE IF( ( APPLYQ .AND. LDA.LT.MAX( 1, NQ ) ) .OR. 171 $ ( .NOT.APPLYQ .AND. LDA.LT.MAX( 1, MIN( NQ, K ) ) ) ) 218 IF( NQ.GE.K ) THEN 224 ELSE IF( NQ.GT.1 ) THEN 239 CALL ZUNMQR( SIDE, TRANS, MI, NI, NQ-1, A( 2, 1 ), LDA, TAU, 251 IF( NQ.GT.K ) THEN 257 ELSE IF( NQ.GT.1 ) THEN [all …]
|
H A D | sormbr.f | 127 INTEGER I1, I2, IINFO, LWKOPT, MI, NB, NI, NQ, NW 153 NQ = M 156 NQ = N 171 ELSE IF( ( APPLYQ .AND. LDA.LT.MAX( 1, NQ ) ) .OR. 172 $ ( .NOT.APPLYQ .AND. LDA.LT.MAX( 1, MIN( NQ, K ) ) ) ) 220 IF( NQ.GE.K ) THEN 226 ELSE IF( NQ.GT.1 ) THEN 241 CALL SORMQR( SIDE, TRANS, MI, NI, NQ-1, A( 2, 1 ), LDA, TAU, 253 IF( NQ.GT.K ) THEN 259 ELSE IF( NQ.GT.1 ) THEN [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/lapack/single/ |
H A D | sormbr.f | 218 INTEGER I1, I2, IINFO, LWKOPT, MI, NB, NI, NQ, NW 244 NQ = M 247 NQ = N 262 ELSE IF( ( APPLYQ .AND. LDA.LT.MAX( 1, NQ ) ) .OR. 263 $ ( .NOT.APPLYQ .AND. LDA.LT.MAX( 1, MIN( NQ, K ) ) ) ) 311 IF( NQ.GE.K ) THEN 317 ELSE IF( NQ.GT.1 ) THEN 332 CALL SORMQR( SIDE, TRANS, MI, NI, NQ-1, A( 2, 1 ), LDA, TAU, 344 IF( NQ.GT.K ) THEN 350 ELSE IF( NQ.GT.1 ) THEN [all …]
|
H A D | cunmbr.f | 219 INTEGER I1, I2, IINFO, LWKOPT, MI, NB, NI, NQ, NW 245 NQ = M 248 NQ = N 266 ELSE IF( ( APPLYQ .AND. LDA.LT.MAX( 1, NQ ) ) .OR. 267 $ ( .NOT.APPLYQ .AND. LDA.LT.MAX( 1, MIN( NQ, K ) ) ) ) 318 IF( NQ.GE.K ) THEN 324 ELSE IF( NQ.GT.1 ) THEN 339 CALL CUNMQR( SIDE, TRANS, MI, NI, NQ-1, A( 2, 1 ), LDA, TAU, 351 IF( NQ.GT.K ) THEN 357 ELSE IF( NQ.GT.1 ) THEN [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/lapack/double/ |
H A D | zunmbr.f | 217 INTEGER I1, I2, IINFO, LWKOPT, MI, NB, NI, NQ, NW 243 NQ = M 246 NQ = N 264 ELSE IF( ( APPLYQ .AND. LDA.LT.MAX( 1, NQ ) ) .OR. 265 $ ( .NOT.APPLYQ .AND. LDA.LT.MAX( 1, MIN( NQ, K ) ) ) ) 316 IF( NQ.GE.K ) THEN 322 ELSE IF( NQ.GT.1 ) THEN 337 CALL ZUNMQR( SIDE, TRANS, MI, NI, NQ-1, A( 2, 1 ), LDA, TAU, 349 IF( NQ.GT.K ) THEN 355 ELSE IF( NQ.GT.1 ) THEN [all …]
|
H A D | dormbr.f | 216 INTEGER I1, I2, IINFO, LWKOPT, MI, NB, NI, NQ, NW 242 NQ = M 245 NQ = N 260 ELSE IF( ( APPLYQ .AND. LDA.LT.MAX( 1, NQ ) ) .OR. 261 $ ( .NOT.APPLYQ .AND. LDA.LT.MAX( 1, MIN( NQ, K ) ) ) ) 309 IF( NQ.GE.K ) THEN 315 ELSE IF( NQ.GT.1 ) THEN 330 CALL DORMQR( SIDE, TRANS, MI, NI, NQ-1, A( 2, 1 ), LDA, TAU, 342 IF( NQ.GT.K ) THEN 348 ELSE IF( NQ.GT.1 ) THEN [all …]
|
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/ |
H A D | cunmbr.f | 219 INTEGER I1, I2, IINFO, LWKOPT, MI, NB, NI, NQ, NW local 245 NQ = M 248 NQ = N 266 ELSE IF( ( APPLYQ .AND. LDA.LT.MAX( 1, NQ ) ) .OR. 267 $ ( .NOT.APPLYQ .AND. LDA.LT.MAX( 1, MIN( NQ, K ) ) ) ) 318 IF( NQ.GE.K ) THEN 324 ELSE IF( NQ.GT.1 ) THEN 339 CALL CUNMQR( SIDE, TRANS, MI, NI, NQ-1, A( 2, 1 ), LDA, TAU, 351 IF( NQ.GT.K ) THEN 357 ELSE IF( NQ.GT.1 ) THEN [all …]
|
H A D | sormbr.f | 218 INTEGER I1, I2, IINFO, LWKOPT, MI, NB, NI, NQ, NW local 244 NQ = M 247 NQ = N 262 ELSE IF( ( APPLYQ .AND. LDA.LT.MAX( 1, NQ ) ) .OR. 263 $ ( .NOT.APPLYQ .AND. LDA.LT.MAX( 1, MIN( NQ, K ) ) ) ) 311 IF( NQ.GE.K ) THEN 317 ELSE IF( NQ.GT.1 ) THEN 332 CALL SORMQR( SIDE, TRANS, MI, NI, NQ-1, A( 2, 1 ), LDA, TAU, 344 IF( NQ.GT.K ) THEN 350 ELSE IF( NQ.GT.1 ) THEN [all …]
|
H A D | dormbr.f | 216 INTEGER I1, I2, IINFO, LWKOPT, MI, NB, NI, NQ, NW local 242 NQ = M 245 NQ = N 260 ELSE IF( ( APPLYQ .AND. LDA.LT.MAX( 1, NQ ) ) .OR. 261 $ ( .NOT.APPLYQ .AND. LDA.LT.MAX( 1, MIN( NQ, K ) ) ) ) 309 IF( NQ.GE.K ) THEN 315 ELSE IF( NQ.GT.1 ) THEN 330 CALL DORMQR( SIDE, TRANS, MI, NI, NQ-1, A( 2, 1 ), LDA, TAU, 342 IF( NQ.GT.K ) THEN 348 ELSE IF( NQ.GT.1 ) THEN [all …]
|
H A D | zunmbr.f | 217 INTEGER I1, I2, IINFO, LWKOPT, MI, NB, NI, NQ, NW local 243 NQ = M 246 NQ = N 264 ELSE IF( ( APPLYQ .AND. LDA.LT.MAX( 1, NQ ) ) .OR. 265 $ ( .NOT.APPLYQ .AND. LDA.LT.MAX( 1, MIN( NQ, K ) ) ) ) 316 IF( NQ.GE.K ) THEN 322 ELSE IF( NQ.GT.1 ) THEN 337 CALL ZUNMQR( SIDE, TRANS, MI, NI, NQ-1, A( 2, 1 ), LDA, TAU, 349 IF( NQ.GT.K ) THEN 355 ELSE IF( NQ.GT.1 ) THEN [all …]
|
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/src_f77/ |
H A D | sormbr.f | 127 INTEGER I1, I2, IINFO, LWKOPT, MI, NB, NI, NQ, NW local 153 NQ = M 156 NQ = N 171 ELSE IF( ( APPLYQ .AND. LDA.LT.MAX( 1, NQ ) ) .OR. 172 $ ( .NOT.APPLYQ .AND. LDA.LT.MAX( 1, MIN( NQ, K ) ) ) ) 220 IF( NQ.GE.K ) THEN 226 ELSE IF( NQ.GT.1 ) THEN 241 CALL SORMQR( SIDE, TRANS, MI, NI, NQ-1, A( 2, 1 ), LDA, TAU, 253 IF( NQ.GT.K ) THEN 259 ELSE IF( NQ.GT.1 ) THEN [all …]
|
H A D | cunmbr.f | 127 INTEGER I1, I2, IINFO, LWKOPT, MI, NB, NI, NQ, NW local 153 NQ = M 156 NQ = N 171 ELSE IF( ( APPLYQ .AND. LDA.LT.MAX( 1, NQ ) ) .OR. 172 $ ( .NOT.APPLYQ .AND. LDA.LT.MAX( 1, MIN( NQ, K ) ) ) ) 219 IF( NQ.GE.K ) THEN 225 ELSE IF( NQ.GT.1 ) THEN 240 CALL CUNMQR( SIDE, TRANS, MI, NI, NQ-1, A( 2, 1 ), LDA, TAU, 252 IF( NQ.GT.K ) THEN 258 ELSE IF( NQ.GT.1 ) THEN [all …]
|
H A D | dormbr.f | 126 INTEGER I1, I2, IINFO, LWKOPT, MI, NB, NI, NQ, NW local 152 NQ = M 155 NQ = N 170 ELSE IF( ( APPLYQ .AND. LDA.LT.MAX( 1, NQ ) ) .OR. 171 $ ( .NOT.APPLYQ .AND. LDA.LT.MAX( 1, MIN( NQ, K ) ) ) ) 219 IF( NQ.GE.K ) THEN 225 ELSE IF( NQ.GT.1 ) THEN 240 CALL DORMQR( SIDE, TRANS, MI, NI, NQ-1, A( 2, 1 ), LDA, TAU, 252 IF( NQ.GT.K ) THEN 258 ELSE IF( NQ.GT.1 ) THEN [all …]
|
/dports/science/elk/elk-7.2.42/src/LAPACK/ |
H A D | zunmbr.f | 217 INTEGER I1, I2, IINFO, LWKOPT, MI, NB, NI, NQ, NW 243 NQ = M 246 NQ = N 264 ELSE IF( ( APPLYQ .AND. LDA.LT.MAX( 1, NQ ) ) .OR. 265 $ ( .NOT.APPLYQ .AND. LDA.LT.MAX( 1, MIN( NQ, K ) ) ) ) 316 IF( NQ.GE.K ) THEN 322 ELSE IF( NQ.GT.1 ) THEN 337 CALL ZUNMQR( SIDE, TRANS, MI, NI, NQ-1, A( 2, 1 ), LDA, TAU, 349 IF( NQ.GT.K ) THEN 355 ELSE IF( NQ.GT.1 ) THEN [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/lapack/single/ |
H A D | sormbr.f | 218 INTEGER I1, I2, IINFO, LWKOPT, MI, NB, NI, NQ, NW 244 NQ = M 247 NQ = N 262 ELSE IF( ( APPLYQ .AND. LDA.LT.MAX( 1, NQ ) ) .OR. 263 $ ( .NOT.APPLYQ .AND. LDA.LT.MAX( 1, MIN( NQ, K ) ) ) ) 311 IF( NQ.GE.K ) THEN 317 ELSE IF( NQ.GT.1 ) THEN 332 CALL SORMQR( SIDE, TRANS, MI, NI, NQ-1, A( 2, 1 ), LDA, TAU, 344 IF( NQ.GT.K ) THEN 350 ELSE IF( NQ.GT.1 ) THEN [all …]
|
H A D | cunmbr.f | 219 INTEGER I1, I2, IINFO, LWKOPT, MI, NB, NI, NQ, NW 245 NQ = M 248 NQ = N 266 ELSE IF( ( APPLYQ .AND. LDA.LT.MAX( 1, NQ ) ) .OR. 267 $ ( .NOT.APPLYQ .AND. LDA.LT.MAX( 1, MIN( NQ, K ) ) ) ) 318 IF( NQ.GE.K ) THEN 324 ELSE IF( NQ.GT.1 ) THEN 339 CALL CUNMQR( SIDE, TRANS, MI, NI, NQ-1, A( 2, 1 ), LDA, TAU, 351 IF( NQ.GT.K ) THEN 357 ELSE IF( NQ.GT.1 ) THEN [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/lapack/double/ |
H A D | dormbr.f | 216 INTEGER I1, I2, IINFO, LWKOPT, MI, NB, NI, NQ, NW 242 NQ = M 245 NQ = N 260 ELSE IF( ( APPLYQ .AND. LDA.LT.MAX( 1, NQ ) ) .OR. 261 $ ( .NOT.APPLYQ .AND. LDA.LT.MAX( 1, MIN( NQ, K ) ) ) ) 309 IF( NQ.GE.K ) THEN 315 ELSE IF( NQ.GT.1 ) THEN 330 CALL DORMQR( SIDE, TRANS, MI, NI, NQ-1, A( 2, 1 ), LDA, TAU, 342 IF( NQ.GT.K ) THEN 348 ELSE IF( NQ.GT.1 ) THEN [all …]
|
/dports/math/cblas/lapack-3.10.0/SRC/ |
H A D | cunmbr.f | 216 INTEGER I1, I2, IINFO, LWKOPT, MI, NB, NI, NQ, NW 242 NQ = M 245 NQ = N 260 ELSE IF( ( APPLYQ .AND. LDA.LT.MAX( 1, NQ ) ) .OR. 261 $ ( .NOT.APPLYQ .AND. LDA.LT.MAX( 1, MIN( NQ, K ) ) ) ) 312 IF( NQ.GE.K ) THEN 318 ELSE IF( NQ.GT.1 ) THEN 333 CALL CUNMQR( SIDE, TRANS, MI, NI, NQ-1, A( 2, 1 ), LDA, TAU, 345 IF( NQ.GT.K ) THEN 351 ELSE IF( NQ.GT.1 ) THEN [all …]
|
H A D | dormbr.f | 213 INTEGER I1, I2, IINFO, LWKOPT, MI, NB, NI, NQ, NW 239 NQ = M 242 NQ = N 257 ELSE IF( ( APPLYQ .AND. LDA.LT.MAX( 1, NQ ) ) .OR. 258 $ ( .NOT.APPLYQ .AND. LDA.LT.MAX( 1, MIN( NQ, K ) ) ) ) 306 IF( NQ.GE.K ) THEN 312 ELSE IF( NQ.GT.1 ) THEN 327 CALL DORMQR( SIDE, TRANS, MI, NI, NQ-1, A( 2, 1 ), LDA, TAU, 339 IF( NQ.GT.K ) THEN 345 ELSE IF( NQ.GT.1 ) THEN [all …]
|
H A D | zunmbr.f | 214 INTEGER I1, I2, IINFO, LWKOPT, MI, NB, NI, NQ, NW 240 NQ = M 243 NQ = N 258 ELSE IF( ( APPLYQ .AND. LDA.LT.MAX( 1, NQ ) ) .OR. 259 $ ( .NOT.APPLYQ .AND. LDA.LT.MAX( 1, MIN( NQ, K ) ) ) ) 310 IF( NQ.GE.K ) THEN 316 ELSE IF( NQ.GT.1 ) THEN 331 CALL ZUNMQR( SIDE, TRANS, MI, NI, NQ-1, A( 2, 1 ), LDA, TAU, 343 IF( NQ.GT.K ) THEN 349 ELSE IF( NQ.GT.1 ) THEN [all …]
|
H A D | sormbr.f | 215 INTEGER I1, I2, IINFO, LWKOPT, MI, NB, NI, NQ, NW 241 NQ = M 244 NQ = N 259 ELSE IF( ( APPLYQ .AND. LDA.LT.MAX( 1, NQ ) ) .OR. 260 $ ( .NOT.APPLYQ .AND. LDA.LT.MAX( 1, MIN( NQ, K ) ) ) ) 308 IF( NQ.GE.K ) THEN 314 ELSE IF( NQ.GT.1 ) THEN 329 CALL SORMQR( SIDE, TRANS, MI, NI, NQ-1, A( 2, 1 ), LDA, TAU, 341 IF( NQ.GT.K ) THEN 347 ELSE IF( NQ.GT.1 ) THEN [all …]
|