/dports/science/InsightToolkit/ITK-5.0.1/Modules/ThirdParty/VNL/src/vxl/v3p/netlib/lapack/double/ |
H A D | dtgexc.f | 168 ELSE IF( ILST.LT.1 .OR. ILST.GT.N ) THEN 206 IF( ILST.GT.1 ) THEN 207 IF( A( ILST, ILST-1 ).NE.ZERO ) 208 $ ILST = ILST - 1 211 IF( ILST.LT.N ) THEN 212 IF( A( ILST+1, ILST ).NE.ZERO ) 215 IF( IFST.EQ.ILST ) 223 $ ILST = ILST - 1 225 $ ILST = ILST + 1 245 ILST = HERE [all …]
|
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/ |
H A D | dtgexc.f | 271 ELSE IF( ILST.LT.1 .OR. ILST.GT.N ) THEN 316 IF( ILST.GT.1 ) THEN 317 IF( A( ILST, ILST-1 ).NE.ZERO ) 318 $ ILST = ILST - 1 321 IF( ILST.LT.N ) THEN 322 IF( A( ILST+1, ILST ).NE.ZERO ) 325 IF( IFST.EQ.ILST ) 333 $ ILST = ILST - 1 335 $ ILST = ILST + 1 355 ILST = HERE [all …]
|
H A D | stgexc.f | 271 ELSE IF( ILST.LT.1 .OR. ILST.GT.N ) THEN 316 IF( ILST.GT.1 ) THEN 317 IF( A( ILST, ILST-1 ).NE.ZERO ) 318 $ ILST = ILST - 1 321 IF( ILST.LT.N ) THEN 322 IF( A( ILST+1, ILST ).NE.ZERO ) 325 IF( IFST.EQ.ILST ) 333 $ ILST = ILST - 1 335 $ ILST = ILST + 1 355 ILST = HERE [all …]
|
H A D | strexc.f | 198 ELSE IF( ILST.LT.1 .OR. ILST.GT.N ) THEN 227 IF( ILST.GT.1 ) THEN 228 IF( T( ILST, ILST-1 ).NE.ZERO ) 229 $ ILST = ILST - 1 232 IF( ILST.LT.N ) THEN 233 IF( T( ILST+1, ILST ).NE.ZERO ) 237 IF( IFST.EQ.ILST ) 245 $ ILST = ILST - 1 247 $ ILST = ILST + 1 267 ILST = HERE [all …]
|
H A D | dtrexc.f | 198 ELSE IF( ILST.LT.1 .OR. ILST.GT.N ) THEN 227 IF( ILST.GT.1 ) THEN 228 IF( T( ILST, ILST-1 ).NE.ZERO ) 229 $ ILST = ILST - 1 232 IF( ILST.LT.N ) THEN 233 IF( T( ILST+1, ILST ).NE.ZERO ) 237 IF( IFST.EQ.ILST ) 245 $ ILST = ILST - 1 247 $ ILST = ILST + 1 267 ILST = HERE [all …]
|
/dports/math/xlapack/lapack-3.10.0/SRC/ |
H A D | stgexc.f | 268 ELSE IF( ILST.LT.1 .OR. ILST.GT.N ) THEN 313 IF( ILST.GT.1 ) THEN 314 IF( A( ILST, ILST-1 ).NE.ZERO ) 315 $ ILST = ILST - 1 318 IF( ILST.LT.N ) THEN 319 IF( A( ILST+1, ILST ).NE.ZERO ) 322 IF( IFST.EQ.ILST ) 330 $ ILST = ILST - 1 332 $ ILST = ILST + 1 352 ILST = HERE [all …]
|
H A D | dtgexc.f | 268 ELSE IF( ILST.LT.1 .OR. ILST.GT.N ) THEN 313 IF( ILST.GT.1 ) THEN 314 IF( A( ILST, ILST-1 ).NE.ZERO ) 315 $ ILST = ILST - 1 318 IF( ILST.LT.N ) THEN 319 IF( A( ILST+1, ILST ).NE.ZERO ) 322 IF( IFST.EQ.ILST ) 330 $ ILST = ILST - 1 332 $ ILST = ILST + 1 352 ILST = HERE [all …]
|
H A D | strexc.f | 197 ELSE IF(( ILST.LT.1 .OR. ILST.GT.N ).AND.( N.GT.0 )) THEN 226 IF( ILST.GT.1 ) THEN 227 IF( T( ILST, ILST-1 ).NE.ZERO ) 228 $ ILST = ILST - 1 231 IF( ILST.LT.N ) THEN 232 IF( T( ILST+1, ILST ).NE.ZERO ) 236 IF( IFST.EQ.ILST ) 244 $ ILST = ILST - 1 246 $ ILST = ILST + 1 266 ILST = HERE [all …]
|
H A D | dtrexc.f | 197 ELSE IF(( ILST.LT.1 .OR. ILST.GT.N ).AND.( N.GT.0 )) THEN 226 IF( ILST.GT.1 ) THEN 227 IF( T( ILST, ILST-1 ).NE.ZERO ) 228 $ ILST = ILST - 1 231 IF( ILST.LT.N ) THEN 232 IF( T( ILST+1, ILST ).NE.ZERO ) 236 IF( IFST.EQ.ILST ) 244 $ ILST = ILST - 1 246 $ ILST = ILST + 1 266 ILST = HERE [all …]
|
/dports/math/blas/lapack-3.10.0/SRC/ |
H A D | stgexc.f | 268 ELSE IF( ILST.LT.1 .OR. ILST.GT.N ) THEN 313 IF( ILST.GT.1 ) THEN 314 IF( A( ILST, ILST-1 ).NE.ZERO ) 315 $ ILST = ILST - 1 318 IF( ILST.LT.N ) THEN 319 IF( A( ILST+1, ILST ).NE.ZERO ) 322 IF( IFST.EQ.ILST ) 330 $ ILST = ILST - 1 332 $ ILST = ILST + 1 352 ILST = HERE [all …]
|
H A D | dtgexc.f | 268 ELSE IF( ILST.LT.1 .OR. ILST.GT.N ) THEN 313 IF( ILST.GT.1 ) THEN 314 IF( A( ILST, ILST-1 ).NE.ZERO ) 315 $ ILST = ILST - 1 318 IF( ILST.LT.N ) THEN 319 IF( A( ILST+1, ILST ).NE.ZERO ) 322 IF( IFST.EQ.ILST ) 330 $ ILST = ILST - 1 332 $ ILST = ILST + 1 352 ILST = HERE [all …]
|
H A D | dtrexc.f | 197 ELSE IF(( ILST.LT.1 .OR. ILST.GT.N ).AND.( N.GT.0 )) THEN 226 IF( ILST.GT.1 ) THEN 227 IF( T( ILST, ILST-1 ).NE.ZERO ) 228 $ ILST = ILST - 1 231 IF( ILST.LT.N ) THEN 232 IF( T( ILST+1, ILST ).NE.ZERO ) 236 IF( IFST.EQ.ILST ) 244 $ ILST = ILST - 1 246 $ ILST = ILST + 1 266 ILST = HERE [all …]
|
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/src_f77/ |
H A D | stgexc.f | 168 ELSE IF( ILST.LT.1 .OR. ILST.GT.N ) THEN 206 IF( ILST.GT.1 ) THEN 207 IF( A( ILST, ILST-1 ).NE.ZERO ) 208 $ ILST = ILST - 1 211 IF( ILST.LT.N ) THEN 212 IF( A( ILST+1, ILST ).NE.ZERO ) 215 IF( IFST.EQ.ILST ) 223 $ ILST = ILST - 1 225 $ ILST = ILST + 1 245 ILST = HERE [all …]
|
H A D | dtgexc.f | 168 ELSE IF( ILST.LT.1 .OR. ILST.GT.N ) THEN 206 IF( ILST.GT.1 ) THEN 207 IF( A( ILST, ILST-1 ).NE.ZERO ) 208 $ ILST = ILST - 1 211 IF( ILST.LT.N ) THEN 212 IF( A( ILST+1, ILST ).NE.ZERO ) 215 IF( IFST.EQ.ILST ) 223 $ ILST = ILST - 1 225 $ ILST = ILST + 1 245 ILST = HERE [all …]
|
/dports/math/lapack/lapack-3.10.0/SRC/ |
H A D | dtgexc.f | 268 ELSE IF( ILST.LT.1 .OR. ILST.GT.N ) THEN 313 IF( ILST.GT.1 ) THEN 314 IF( A( ILST, ILST-1 ).NE.ZERO ) 315 $ ILST = ILST - 1 318 IF( ILST.LT.N ) THEN 319 IF( A( ILST+1, ILST ).NE.ZERO ) 322 IF( IFST.EQ.ILST ) 330 $ ILST = ILST - 1 332 $ ILST = ILST + 1 352 ILST = HERE [all …]
|
H A D | stgexc.f | 268 ELSE IF( ILST.LT.1 .OR. ILST.GT.N ) THEN 313 IF( ILST.GT.1 ) THEN 314 IF( A( ILST, ILST-1 ).NE.ZERO ) 315 $ ILST = ILST - 1 318 IF( ILST.LT.N ) THEN 319 IF( A( ILST+1, ILST ).NE.ZERO ) 322 IF( IFST.EQ.ILST ) 330 $ ILST = ILST - 1 332 $ ILST = ILST + 1 352 ILST = HERE [all …]
|
/dports/math/lapacke/lapack-3.10.0/SRC/ |
H A D | stgexc.f | 268 ELSE IF( ILST.LT.1 .OR. ILST.GT.N ) THEN 313 IF( ILST.GT.1 ) THEN 314 IF( A( ILST, ILST-1 ).NE.ZERO ) 315 $ ILST = ILST - 1 318 IF( ILST.LT.N ) THEN 319 IF( A( ILST+1, ILST ).NE.ZERO ) 322 IF( IFST.EQ.ILST ) 330 $ ILST = ILST - 1 332 $ ILST = ILST + 1 352 ILST = HERE [all …]
|
H A D | dtgexc.f | 268 ELSE IF( ILST.LT.1 .OR. ILST.GT.N ) THEN 313 IF( ILST.GT.1 ) THEN 314 IF( A( ILST, ILST-1 ).NE.ZERO ) 315 $ ILST = ILST - 1 318 IF( ILST.LT.N ) THEN 319 IF( A( ILST+1, ILST ).NE.ZERO ) 322 IF( IFST.EQ.ILST ) 330 $ ILST = ILST - 1 332 $ ILST = ILST + 1 352 ILST = HERE [all …]
|
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/ |
H A D | dtgexc.f | 271 ELSE IF( ILST.LT.1 .OR. ILST.GT.N ) THEN 316 IF( ILST.GT.1 ) THEN 317 IF( A( ILST, ILST-1 ).NE.ZERO ) 318 $ ILST = ILST - 1 321 IF( ILST.LT.N ) THEN 322 IF( A( ILST+1, ILST ).NE.ZERO ) 325 IF( IFST.EQ.ILST ) 333 $ ILST = ILST - 1 335 $ ILST = ILST + 1 355 ILST = HERE [all …]
|
H A D | stgexc.f | 271 ELSE IF( ILST.LT.1 .OR. ILST.GT.N ) THEN 316 IF( ILST.GT.1 ) THEN 317 IF( A( ILST, ILST-1 ).NE.ZERO ) 318 $ ILST = ILST - 1 321 IF( ILST.LT.N ) THEN 322 IF( A( ILST+1, ILST ).NE.ZERO ) 325 IF( IFST.EQ.ILST ) 333 $ ILST = ILST - 1 335 $ ILST = ILST + 1 355 ILST = HERE [all …]
|
/dports/science/elmerfem/elmerfem-release-9.0/mathlibs/src/lapack/ |
H A D | stgexc.f | 168 ELSE IF( ILST.LT.1 .OR. ILST.GT.N ) THEN 206 IF( ILST.GT.1 ) THEN 207 IF( A( ILST, ILST-1 ).NE.ZERO ) 208 $ ILST = ILST - 1 211 IF( ILST.LT.N ) THEN 212 IF( A( ILST+1, ILST ).NE.ZERO ) 215 IF( IFST.EQ.ILST ) 223 $ ILST = ILST - 1 225 $ ILST = ILST + 1 245 ILST = HERE [all …]
|
H A D | dtgexc.f | 168 ELSE IF( ILST.LT.1 .OR. ILST.GT.N ) THEN 206 IF( ILST.GT.1 ) THEN 207 IF( A( ILST, ILST-1 ).NE.ZERO ) 208 $ ILST = ILST - 1 211 IF( ILST.LT.N ) THEN 212 IF( A( ILST+1, ILST ).NE.ZERO ) 215 IF( IFST.EQ.ILST ) 223 $ ILST = ILST - 1 225 $ ILST = ILST + 1 245 ILST = HERE [all …]
|
/dports/math/cblas/lapack-3.10.0/SRC/ |
H A D | stgexc.f | 268 ELSE IF( ILST.LT.1 .OR. ILST.GT.N ) THEN 313 IF( ILST.GT.1 ) THEN 314 IF( A( ILST, ILST-1 ).NE.ZERO ) 315 $ ILST = ILST - 1 318 IF( ILST.LT.N ) THEN 319 IF( A( ILST+1, ILST ).NE.ZERO ) 322 IF( IFST.EQ.ILST ) 330 $ ILST = ILST - 1 332 $ ILST = ILST + 1 352 ILST = HERE [all …]
|
H A D | dtgexc.f | 268 ELSE IF( ILST.LT.1 .OR. ILST.GT.N ) THEN 313 IF( ILST.GT.1 ) THEN 314 IF( A( ILST, ILST-1 ).NE.ZERO ) 315 $ ILST = ILST - 1 318 IF( ILST.LT.N ) THEN 319 IF( A( ILST+1, ILST ).NE.ZERO ) 322 IF( IFST.EQ.ILST ) 330 $ ILST = ILST - 1 332 $ ILST = ILST + 1 352 ILST = HERE [all …]
|
/dports/misc/vxl/vxl-3.3.2/v3p/netlib/lapack/double/ |
H A D | dtgexc.f | 168 ELSE IF( ILST.LT.1 .OR. ILST.GT.N ) THEN 206 IF( ILST.GT.1 ) THEN 207 IF( A( ILST, ILST-1 ).NE.ZERO ) 208 $ ILST = ILST - 1 211 IF( ILST.LT.N ) THEN 212 IF( A( ILST+1, ILST ).NE.ZERO ) 215 IF( IFST.EQ.ILST ) 223 $ ILST = ILST - 1 225 $ ILST = ILST + 1 245 ILST = HERE [all …]
|