Home
last modified time | relevance | path

Searched refs:ILST (Results 1 – 25 of 406) sorted by relevance

12345678910>>...17

/dports/science/InsightToolkit/ITK-5.0.1/Modules/ThirdParty/VNL/src/vxl/v3p/netlib/lapack/double/
H A Ddtgexc.f168 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 Ddtgexc.f271 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 Dstgexc.f271 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 Dstrexc.f198 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 Ddtrexc.f198 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 Dstgexc.f268 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 Ddtgexc.f268 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 Dstrexc.f197 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 Ddtrexc.f197 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 Dstgexc.f268 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 Ddtgexc.f268 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 Ddtrexc.f197 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 Dstgexc.f168 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 Ddtgexc.f168 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 Ddtgexc.f268 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 Dstgexc.f268 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 Dstgexc.f268 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 Ddtgexc.f268 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 Ddtgexc.f271 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 Dstgexc.f271 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 Dstgexc.f168 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 Ddtgexc.f168 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 Dstgexc.f268 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 Ddtgexc.f268 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 Ddtgexc.f168 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 …]

12345678910>>...17