/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/ |
H A D | cla_gbrcond_x.f | 154 $ LDAFB, IPIV, X, INFO, WORK, RWORK ) 163 INTEGER N, KL, KU, KD, KE, LDAB, LDAFB, INFO 167 COMPLEX AB( LDAB, * ), AFB( LDAFB, * ), WORK( * ), 216 ELSE IF( LDAFB.LT.2*KL+KU+1 ) THEN 275 CALL CGBTRS( 'No transpose', N, KL, KU, 1, AFB, LDAFB, 279 $ LDAFB, IPIV, WORK, N, INFO ) 297 $ LDAFB, IPIV, WORK, N, INFO ) 299 CALL CGBTRS( 'No transpose', N, KL, KU, 1, AFB, LDAFB,
|
H A D | zla_gbrcond_x.f | 155 $ LDAB, AFB, LDAFB, IPIV, 165 INTEGER N, KL, KU, KD, KE, LDAB, LDAFB, INFO 169 COMPLEX*16 AB( LDAB, * ), AFB( LDAFB, * ), WORK( * ), 218 ELSE IF( LDAFB.LT.2*KL+KU+1 ) THEN 277 CALL ZGBTRS( 'No transpose', N, KL, KU, 1, AFB, LDAFB, 281 $ LDAFB, IPIV, WORK, N, INFO ) 299 $ LDAFB, IPIV, WORK, N, INFO ) 301 CALL ZGBTRS( 'No transpose', N, KL, KU, 1, AFB, LDAFB,
|
H A D | zla_gbrcond_c.f | 162 $ LDAB, AFB, LDAFB, IPIV, 174 INTEGER N, KL, KU, KD, KE, LDAB, LDAFB, INFO 178 COMPLEX*16 AB( LDAB, * ), AFB( LDAFB, * ), WORK( * ) 225 ELSE IF( LDAFB.LT.2*KL+KU+1 ) THEN 296 CALL ZGBTRS( 'No transpose', N, KL, KU, 1, AFB, LDAFB, 300 $ LDAFB, IPIV, WORK, N, INFO ) 322 $ LDAFB, IPIV, WORK, N, INFO ) 324 CALL ZGBTRS( 'No transpose', N, KL, KU, 1, AFB, LDAFB,
|
/dports/math/xlapack/lapack-3.10.0/SRC/ |
H A D | cla_gbrcond_x.f | 152 $ LDAFB, IPIV, X, INFO, WORK, RWORK ) 160 INTEGER N, KL, KU, KD, KE, LDAB, LDAFB, INFO 164 COMPLEX AB( LDAB, * ), AFB( LDAFB, * ), WORK( * ), 213 ELSE IF( LDAFB.LT.2*KL+KU+1 ) THEN 272 CALL CGBTRS( 'No transpose', N, KL, KU, 1, AFB, LDAFB, 276 $ LDAFB, IPIV, WORK, N, INFO ) 294 $ LDAFB, IPIV, WORK, N, INFO ) 296 CALL CGBTRS( 'No transpose', N, KL, KU, 1, AFB, LDAFB,
|
H A D | zla_gbrcond_x.f | 153 $ LDAB, AFB, LDAFB, IPIV, 162 INTEGER N, KL, KU, KD, KE, LDAB, LDAFB, INFO 166 COMPLEX*16 AB( LDAB, * ), AFB( LDAFB, * ), WORK( * ), 215 ELSE IF( LDAFB.LT.2*KL+KU+1 ) THEN 274 CALL ZGBTRS( 'No transpose', N, KL, KU, 1, AFB, LDAFB, 278 $ LDAFB, IPIV, WORK, N, INFO ) 296 $ LDAFB, IPIV, WORK, N, INFO ) 298 CALL ZGBTRS( 'No transpose', N, KL, KU, 1, AFB, LDAFB,
|
H A D | zla_gbrcond_c.f | 160 $ LDAB, AFB, LDAFB, IPIV, 171 INTEGER N, KL, KU, KD, KE, LDAB, LDAFB, INFO 175 COMPLEX*16 AB( LDAB, * ), AFB( LDAFB, * ), WORK( * ) 222 ELSE IF( LDAFB.LT.2*KL+KU+1 ) THEN 293 CALL ZGBTRS( 'No transpose', N, KL, KU, 1, AFB, LDAFB, 297 $ LDAFB, IPIV, WORK, N, INFO ) 319 $ LDAFB, IPIV, WORK, N, INFO ) 321 CALL ZGBTRS( 'No transpose', N, KL, KU, 1, AFB, LDAFB,
|
H A D | cla_gbrcond_c.f | 159 $ LDAFB, IPIV, C, CAPPLY, INFO, WORK, 169 INTEGER N, KL, KU, KD, KE, LDAB, LDAFB, INFO 173 COMPLEX AB( LDAB, * ), AFB( LDAFB, * ), WORK( * ) 220 ELSE IF( LDAFB.LT.2*KL+KU+1 ) THEN 291 CALL CGBTRS( 'No transpose', N, KL, KU, 1, AFB, LDAFB, 295 $ LDAFB, IPIV, WORK, N, INFO ) 317 $ LDAFB, IPIV, WORK, N, INFO ) 319 CALL CGBTRS( 'No transpose', N, KL, KU, 1, AFB, LDAFB,
|
/dports/math/blas/lapack-3.10.0/SRC/ |
H A D | zla_gbrcond_x.f | 153 $ LDAB, AFB, LDAFB, IPIV, 162 INTEGER N, KL, KU, KD, KE, LDAB, LDAFB, INFO 166 COMPLEX*16 AB( LDAB, * ), AFB( LDAFB, * ), WORK( * ), 215 ELSE IF( LDAFB.LT.2*KL+KU+1 ) THEN 274 CALL ZGBTRS( 'No transpose', N, KL, KU, 1, AFB, LDAFB, 278 $ LDAFB, IPIV, WORK, N, INFO ) 296 $ LDAFB, IPIV, WORK, N, INFO ) 298 CALL ZGBTRS( 'No transpose', N, KL, KU, 1, AFB, LDAFB,
|
H A D | cla_gbrcond_x.f | 152 $ LDAFB, IPIV, X, INFO, WORK, RWORK ) 160 INTEGER N, KL, KU, KD, KE, LDAB, LDAFB, INFO 164 COMPLEX AB( LDAB, * ), AFB( LDAFB, * ), WORK( * ), 213 ELSE IF( LDAFB.LT.2*KL+KU+1 ) THEN 272 CALL CGBTRS( 'No transpose', N, KL, KU, 1, AFB, LDAFB, 276 $ LDAFB, IPIV, WORK, N, INFO ) 294 $ LDAFB, IPIV, WORK, N, INFO ) 296 CALL CGBTRS( 'No transpose', N, KL, KU, 1, AFB, LDAFB,
|
H A D | zla_gbrcond_c.f | 160 $ LDAB, AFB, LDAFB, IPIV, 171 INTEGER N, KL, KU, KD, KE, LDAB, LDAFB, INFO 175 COMPLEX*16 AB( LDAB, * ), AFB( LDAFB, * ), WORK( * ) 222 ELSE IF( LDAFB.LT.2*KL+KU+1 ) THEN 293 CALL ZGBTRS( 'No transpose', N, KL, KU, 1, AFB, LDAFB, 297 $ LDAFB, IPIV, WORK, N, INFO ) 319 $ LDAFB, IPIV, WORK, N, INFO ) 321 CALL ZGBTRS( 'No transpose', N, KL, KU, 1, AFB, LDAFB,
|
H A D | cla_gbrcond_c.f | 159 $ LDAFB, IPIV, C, CAPPLY, INFO, WORK, 169 INTEGER N, KL, KU, KD, KE, LDAB, LDAFB, INFO 173 COMPLEX AB( LDAB, * ), AFB( LDAFB, * ), WORK( * ) 220 ELSE IF( LDAFB.LT.2*KL+KU+1 ) THEN 291 CALL CGBTRS( 'No transpose', N, KL, KU, 1, AFB, LDAFB, 295 $ LDAFB, IPIV, WORK, N, INFO ) 317 $ LDAFB, IPIV, WORK, N, INFO ) 319 CALL CGBTRS( 'No transpose', N, KL, KU, 1, AFB, LDAFB,
|
/dports/math/lapacke/lapack-3.10.0/SRC/ |
H A D | cla_gbrcond_x.f | 152 $ LDAFB, IPIV, X, INFO, WORK, RWORK ) 160 INTEGER N, KL, KU, KD, KE, LDAB, LDAFB, INFO 164 COMPLEX AB( LDAB, * ), AFB( LDAFB, * ), WORK( * ), 213 ELSE IF( LDAFB.LT.2*KL+KU+1 ) THEN 272 CALL CGBTRS( 'No transpose', N, KL, KU, 1, AFB, LDAFB, 276 $ LDAFB, IPIV, WORK, N, INFO ) 294 $ LDAFB, IPIV, WORK, N, INFO ) 296 CALL CGBTRS( 'No transpose', N, KL, KU, 1, AFB, LDAFB,
|
H A D | zla_gbrcond_x.f | 153 $ LDAB, AFB, LDAFB, IPIV, 162 INTEGER N, KL, KU, KD, KE, LDAB, LDAFB, INFO 166 COMPLEX*16 AB( LDAB, * ), AFB( LDAFB, * ), WORK( * ), 215 ELSE IF( LDAFB.LT.2*KL+KU+1 ) THEN 274 CALL ZGBTRS( 'No transpose', N, KL, KU, 1, AFB, LDAFB, 278 $ LDAFB, IPIV, WORK, N, INFO ) 296 $ LDAFB, IPIV, WORK, N, INFO ) 298 CALL ZGBTRS( 'No transpose', N, KL, KU, 1, AFB, LDAFB,
|
H A D | cla_gbrcond_c.f | 159 $ LDAFB, IPIV, C, CAPPLY, INFO, WORK, 169 INTEGER N, KL, KU, KD, KE, LDAB, LDAFB, INFO 173 COMPLEX AB( LDAB, * ), AFB( LDAFB, * ), WORK( * ) 220 ELSE IF( LDAFB.LT.2*KL+KU+1 ) THEN 291 CALL CGBTRS( 'No transpose', N, KL, KU, 1, AFB, LDAFB, 295 $ LDAFB, IPIV, WORK, N, INFO ) 317 $ LDAFB, IPIV, WORK, N, INFO ) 319 CALL CGBTRS( 'No transpose', N, KL, KU, 1, AFB, LDAFB,
|
H A D | zla_gbrcond_c.f | 160 $ LDAB, AFB, LDAFB, IPIV, 171 INTEGER N, KL, KU, KD, KE, LDAB, LDAFB, INFO 175 COMPLEX*16 AB( LDAB, * ), AFB( LDAFB, * ), WORK( * ) 222 ELSE IF( LDAFB.LT.2*KL+KU+1 ) THEN 293 CALL ZGBTRS( 'No transpose', N, KL, KU, 1, AFB, LDAFB, 297 $ LDAFB, IPIV, WORK, N, INFO ) 319 $ LDAFB, IPIV, WORK, N, INFO ) 321 CALL ZGBTRS( 'No transpose', N, KL, KU, 1, AFB, LDAFB,
|
/dports/math/lapack/lapack-3.10.0/SRC/ |
H A D | cla_gbrcond_x.f | 152 $ LDAFB, IPIV, X, INFO, WORK, RWORK ) 160 INTEGER N, KL, KU, KD, KE, LDAB, LDAFB, INFO 164 COMPLEX AB( LDAB, * ), AFB( LDAFB, * ), WORK( * ), 213 ELSE IF( LDAFB.LT.2*KL+KU+1 ) THEN 272 CALL CGBTRS( 'No transpose', N, KL, KU, 1, AFB, LDAFB, 276 $ LDAFB, IPIV, WORK, N, INFO ) 294 $ LDAFB, IPIV, WORK, N, INFO ) 296 CALL CGBTRS( 'No transpose', N, KL, KU, 1, AFB, LDAFB,
|
H A D | zla_gbrcond_x.f | 153 $ LDAB, AFB, LDAFB, IPIV, 162 INTEGER N, KL, KU, KD, KE, LDAB, LDAFB, INFO local 166 COMPLEX*16 AB( LDAB, * ), AFB( LDAFB, * ), WORK( * ), 215 ELSE IF( LDAFB.LT.2*KL+KU+1 ) THEN 274 CALL ZGBTRS( 'No transpose', N, KL, KU, 1, AFB, LDAFB, 278 $ LDAFB, IPIV, WORK, N, INFO ) 296 $ LDAFB, IPIV, WORK, N, INFO ) 298 CALL ZGBTRS( 'No transpose', N, KL, KU, 1, AFB, LDAFB,
|
H A D | cla_gbrcond_c.f | 159 $ LDAFB, IPIV, C, CAPPLY, INFO, WORK, 169 INTEGER N, KL, KU, KD, KE, LDAB, LDAFB, INFO 173 COMPLEX AB( LDAB, * ), AFB( LDAFB, * ), WORK( * ) 220 ELSE IF( LDAFB.LT.2*KL+KU+1 ) THEN 291 CALL CGBTRS( 'No transpose', N, KL, KU, 1, AFB, LDAFB, 295 $ LDAFB, IPIV, WORK, N, INFO ) 317 $ LDAFB, IPIV, WORK, N, INFO ) 319 CALL CGBTRS( 'No transpose', N, KL, KU, 1, AFB, LDAFB,
|
H A D | zla_gbrcond_c.f | 160 $ LDAB, AFB, LDAFB, IPIV, 171 INTEGER N, KL, KU, KD, KE, LDAB, LDAFB, INFO local 175 COMPLEX*16 AB( LDAB, * ), AFB( LDAFB, * ), WORK( * ) 222 ELSE IF( LDAFB.LT.2*KL+KU+1 ) THEN 293 CALL ZGBTRS( 'No transpose', N, KL, KU, 1, AFB, LDAFB, 297 $ LDAFB, IPIV, WORK, N, INFO ) 319 $ LDAFB, IPIV, WORK, N, INFO ) 321 CALL ZGBTRS( 'No transpose', N, KL, KU, 1, AFB, LDAFB,
|
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/ |
H A D | cla_gbrcond_x.f | 154 $ LDAFB, IPIV, X, INFO, WORK, RWORK ) 163 INTEGER N, KL, KU, KD, KE, LDAB, LDAFB, INFO local 167 COMPLEX AB( LDAB, * ), AFB( LDAFB, * ), WORK( * ), 216 ELSE IF( LDAFB.LT.2*KL+KU+1 ) THEN 275 CALL CGBTRS( 'No transpose', N, KL, KU, 1, AFB, LDAFB, 279 $ LDAFB, IPIV, WORK, N, INFO ) 297 $ LDAFB, IPIV, WORK, N, INFO ) 299 CALL CGBTRS( 'No transpose', N, KL, KU, 1, AFB, LDAFB,
|
H A D | zla_gbrcond_x.f | 155 $ LDAB, AFB, LDAFB, IPIV, 165 INTEGER N, KL, KU, KD, KE, LDAB, LDAFB, INFO local 169 COMPLEX*16 AB( LDAB, * ), AFB( LDAFB, * ), WORK( * ), 218 ELSE IF( LDAFB.LT.2*KL+KU+1 ) THEN 277 CALL ZGBTRS( 'No transpose', N, KL, KU, 1, AFB, LDAFB, 281 $ LDAFB, IPIV, WORK, N, INFO ) 299 $ LDAFB, IPIV, WORK, N, INFO ) 301 CALL ZGBTRS( 'No transpose', N, KL, KU, 1, AFB, LDAFB,
|
H A D | cla_gbrcond_c.f | 161 $ LDAFB, IPIV, C, CAPPLY, INFO, WORK, 172 INTEGER N, KL, KU, KD, KE, LDAB, LDAFB, INFO local 176 COMPLEX AB( LDAB, * ), AFB( LDAFB, * ), WORK( * ) 223 ELSE IF( LDAFB.LT.2*KL+KU+1 ) THEN 294 CALL CGBTRS( 'No transpose', N, KL, KU, 1, AFB, LDAFB, 298 $ LDAFB, IPIV, WORK, N, INFO ) 320 $ LDAFB, IPIV, WORK, N, INFO ) 322 CALL CGBTRS( 'No transpose', N, KL, KU, 1, AFB, LDAFB,
|
H A D | zla_gbrcond_c.f | 162 $ LDAB, AFB, LDAFB, IPIV, 174 INTEGER N, KL, KU, KD, KE, LDAB, LDAFB, INFO local 178 COMPLEX*16 AB( LDAB, * ), AFB( LDAFB, * ), WORK( * ) 225 ELSE IF( LDAFB.LT.2*KL+KU+1 ) THEN 296 CALL ZGBTRS( 'No transpose', N, KL, KU, 1, AFB, LDAFB, 300 $ LDAFB, IPIV, WORK, N, INFO ) 322 $ LDAFB, IPIV, WORK, N, INFO ) 324 CALL ZGBTRS( 'No transpose', N, KL, KU, 1, AFB, LDAFB,
|
/dports/math/cblas/lapack-3.10.0/SRC/ |
H A D | cla_gbrcond_x.f | 152 $ LDAFB, IPIV, X, INFO, WORK, RWORK ) 160 INTEGER N, KL, KU, KD, KE, LDAB, LDAFB, INFO 164 COMPLEX AB( LDAB, * ), AFB( LDAFB, * ), WORK( * ), 213 ELSE IF( LDAFB.LT.2*KL+KU+1 ) THEN 272 CALL CGBTRS( 'No transpose', N, KL, KU, 1, AFB, LDAFB, 276 $ LDAFB, IPIV, WORK, N, INFO ) 294 $ LDAFB, IPIV, WORK, N, INFO ) 296 CALL CGBTRS( 'No transpose', N, KL, KU, 1, AFB, LDAFB,
|
H A D | zla_gbrcond_x.f | 153 $ LDAB, AFB, LDAFB, IPIV, 162 INTEGER N, KL, KU, KD, KE, LDAB, LDAFB, INFO 166 COMPLEX*16 AB( LDAB, * ), AFB( LDAFB, * ), WORK( * ), 215 ELSE IF( LDAFB.LT.2*KL+KU+1 ) THEN 274 CALL ZGBTRS( 'No transpose', N, KL, KU, 1, AFB, LDAFB, 278 $ LDAFB, IPIV, WORK, N, INFO ) 296 $ LDAFB, IPIV, WORK, N, INFO ) 298 CALL ZGBTRS( 'No transpose', N, KL, KU, 1, AFB, LDAFB,
|