Home
last modified time | relevance | path

Searched refs:IWR (Results 1 – 25 of 171) sorted by relevance

1234567

/dports/math/lapack95/LAPACK95/TESTING/
H A Dla_test_dgeevx.f9034 INTEGER :: I, J, IA1, IA2, IWR, IWI, IVL1, IVL2, IVR1, IVR2,& local
41 IA1 = N; IA2 = N; IWI = N; IWR = N; IVL1 = N; IVL2 = N
49 IWR = IWR - 1
55 CALL LA_GEEVX(A(1:IA1, 1:IA2), WR(1:IWR), WI(1: IWI), &
65 CALL LA_GEEVX(A(1:IA1, 1:IA2), WR(1:IWR), WI(1: IWI), &
79 CALL LA_GEEVX(A(1:IA1, 1:IA2), WR(1:IWR), WI(1: IWI), &
89 CALL LA_GEEVX(A(1:IA1, 1:IA2), WR(1:IWR), WI(1: IWI), &
103 CALL LA_GEEVX(A(1:IA1, 1:IA2), WR(1:IWR), WI(1: IWI), &
109 CALL LA_GEEVX(A(1:IA1, 1:IA2), WR(1:IWR), WI(1: IWI), &
115 CALL LA_GEEVX(A(1:IA1, 1:IA2), WR(1:IWR), WI(1: IWI), &
[all …]
H A Dla_test_sgeevx.f9034 INTEGER :: I, J, IA1, IA2, IWR, IWI, IVL1, IVL2, IVR1, IVR2,& local
41 IA1 = N; IA2 = N; IWI = N; IWR = N; IVL1 = N; IVL2 = N
49 IWR = IWR - 1
55 CALL LA_GEEVX(A(1:IA1, 1:IA2), WR(1:IWR), WI(1: IWI), &
65 CALL LA_GEEVX(A(1:IA1, 1:IA2), WR(1:IWR), WI(1: IWI), &
79 CALL LA_GEEVX(A(1:IA1, 1:IA2), WR(1:IWR), WI(1: IWI), &
89 CALL LA_GEEVX(A(1:IA1, 1:IA2), WR(1:IWR), WI(1: IWI), &
103 CALL LA_GEEVX(A(1:IA1, 1:IA2), WR(1:IWR), WI(1: IWI), &
109 CALL LA_GEEVX(A(1:IA1, 1:IA2), WR(1:IWR), WI(1: IWI), &
115 CALL LA_GEEVX(A(1:IA1, 1:IA2), WR(1:IWR), WI(1: IWI), &
[all …]
H A Dla_test_dgeesx.f9040 INTEGER :: I, J, IA1, IA2, ISDIM, IWI, IWR, IVS1, IVS2 local
45 IA1 = N; IA2 = N; IWI = N; IWR = N
53 IWR = IWR-1
66 CALL LA_GEESX( A(1:IA1, 1: IA2), WR(1:IWR), WI(1:IWI), &
69 CALL LA_GEESX( A(1:IA1, 1: IA2), WR(1:IWR), WI(1:IWI), &
74 CALL LA_GEESX( A(1:IA1, 1: IA2), WR(1:IWR), WI(1:IWI), &
77 CALL LA_GEESX( A(1:IA1, 1: IA2), WR(1:IWR), WI(1:IWI), &
84 CALL LA_GEESX( A(1:IA1, 1: IA2), WR(1:IWR), WI(1:IWI), &
88 CALL LA_GEESX( A(1:IA1, 1: IA2), WR(1:IWR), WI(1:IWI), &
93 CALL LA_GEESX( A(1:IA1, 1: IA2), WR(1:IWR), WI(1:IWI), &
[all …]
H A Dla_test_sgeesx.f9040 INTEGER :: I, J, IA1, IA2, ISDIM, IWI, IWR, IVS1, IVS2 local
45 IA1 = N; IA2 = N; IWI = N; IWR = N;
53 IWR = IWR-1
66 CALL LA_GEESX( A(1:IA1, 1: IA2), WR(1:IWR), WI(1:IWI), &
69 CALL LA_GEESX( A(1:IA1, 1: IA2), WR(1:IWR), WI(1:IWI), &
74 CALL LA_GEESX( A(1:IA1, 1: IA2), WR(1:IWR), WI(1:IWI), &
77 CALL LA_GEESX( A(1:IA1, 1: IA2), WR(1:IWR), WI(1:IWI), &
84 CALL LA_GEESX( A(1:IA1, 1: IA2), WR(1:IWR), WI(1:IWI), &
88 CALL LA_GEESX( A(1:IA1, 1: IA2), WR(1:IWR), WI(1:IWI), &
93 CALL LA_GEESX( A(1:IA1, 1: IA2), WR(1:IWR), WI(1:IWI), &
[all …]
H A Dla_test_dgees.f9038 INTEGER :: I, J, IA1, IA2, IWI, IWR, IVS1, IVS2 local
44 IA1 = N; IA2 = N; IWI = N; IWR = N;
52 IWR = IWR-1
59 CALL LA_GEES( A(1:IA1, 1: IA2), WR(1:IWR), WI(1:IWI), &
68 CALL LA_GEES( A(1:IA1, 1: IA2), WR(1:IWR), WI(1:IWI), &
71 CALL LA_GEES( A(1:IA1, 1: IA2), WR(1:IWR), WI(1:IWI), &
76 CALL LA_GEES( A(1:IA1, 1: IA2), WR(1:IWR), WI(1:IWI), &
79 CALL LA_GEES( A(1:IA1, 1: IA2), WR(1:IWR), WI(1:IWI), &
H A Dla_test_sgees.f9038 INTEGER :: I, J, IA1, IA2, IWI, IWR, IVS1, IVS2 local
44 IA1 = N; IA2 = N; IWI = N; IWR = N;
51 IWR = IWR-1
58 CALL LA_GEES( A(1:IA1, 1: IA2), WR(1:IWR), WI(1:IWI), &
66 CALL LA_GEES( A(1:IA1, 1: IA2), WR(1:IWR), WI(1:IWI), &
69 CALL LA_GEES( A(1:IA1, 1: IA2), WR(1:IWR), WI(1:IWI), &
74 CALL LA_GEES( A(1:IA1, 1: IA2), WR(1:IWR), WI(1:IWI), &
77 CALL LA_GEES( A(1:IA1, 1: IA2), WR(1:IWR), WI(1:IWI), &
H A Dla_test_dgeev.f9028 INTEGER :: I, J, IA1, IA2, IWR, IWI, IVL1, IVL2, IVR1, IVR2 local
34 IA1 = N; IA2 = N; IWI = N; IWR = N; IVL1 = N; IVL2 = N
41 IWR = IWR - 1
55 CALL LA_GEEV(A(1:IA1, 1:IA2), WR(1:IWR), WI(1: IWI), &
58 CALL LA_GEEV(A(1:IA1, 1:IA2), WR(1:IWR), WI(1: IWI), &
63 CALL LA_GEEV(A(1:IA1, 1:IA2), WR(1:IWR), WI(1: IWI), &
66 CALL LA_GEEV(A(1:IA1, 1:IA2), WR(1:IWR), WI(1: IWI), &
H A Dla_test_sgeev.f9028 INTEGER :: I, J, IA1, IA2, IWR, IWI, IVL1, IVL2, IVR1, IVR2 local
34 IA1 = N; IA2 = N; IWI = N; IWR = N; IVL1 = N; IVL2 = N
41 IWR = IWR - 1
55 CALL LA_GEEV(A(1:IA1, 1:IA2), WR(1:IWR), WI(1: IWI), &
58 CALL LA_GEEV(A(1:IA1, 1:IA2), WR(1:IWR), WI(1: IWI), &
63 CALL LA_GEEV(A(1:IA1, 1:IA2), WR(1:IWR), WI(1: IWI), &
66 CALL LA_GEEV(A(1:IA1, 1:IA2), WR(1:IWR), WI(1: IWI), &
/dports/math/cmlib/cmlib-3.0_8/src/fishpak/
H A Dhstssp.f415 IWR = IWC+M
416 IWS = IWR+M
418 J = IWR+I
426 J = IWR+I
433 J = IWR+I
472 J = IWR+I
478 J = IWR+I
484 J = IWR+I
490 J = IWR+I
514 J = IWR+I
[all …]
H A Dhstplr.f350 IWR = IWC+M
352 J = IWR+I
361 J = IWR+I
383 109 A1 = 2.*W(IWR)
400 J = IWR+I
406 J = IWR+I
412 J = IWR+I
418 J = IWR+I
441 J = IWR+I
457 J = IWR+I
[all …]
H A Dhstcyl.f344 IWR = IWC+M
346 J = IWR+I
371 107 W(IWC) = W(IWC)-W(IWR)
372 A1 = 2.*W(IWR)
377 109 W(IWC) = W(IWC)+W(IWR)
378 A1 = DELTAR*W(IWR)
422 J = IWR+I
447 W(IWR) = 0.
452 CALL POISTG (LP,N,1,M,W,W(IWB+1),W(IWC+1),IDIMF,F,IERR1,W(IWR+1))
454 133 CALL GENBUN (LP,N,1,M,W,W(IWB+1),W(IWC+1),IDIMF,F,IERR1,W(IWR+1))
[all …]
/dports/math/slatec/src/
H A Dhstssp.f418 IWR = IWC+M
419 IWS = IWR+M
421 J = IWR+I
429 J = IWR+I
436 J = IWR+I
475 J = IWR+I
481 J = IWR+I
487 J = IWR+I
493 J = IWR+I
517 J = IWR+I
[all …]
H A Dhstplr.f353 IWR = IWC+M
355 J = IWR+I
364 J = IWR+I
386 109 A1 = 2.*W(IWR)
403 J = IWR+I
409 J = IWR+I
415 J = IWR+I
421 J = IWR+I
444 J = IWR+I
460 J = IWR+I
[all …]
H A Dhstcyl.f347 IWR = IWC+M
349 J = IWR+I
374 107 W(IWC) = W(IWC)-W(IWR)
375 A1 = 2.*W(IWR)
380 109 W(IWC) = W(IWC)+W(IWR)
381 A1 = DELTAR*W(IWR)
425 J = IWR+I
450 W(IWR) = 0.
455 CALL POISTG (LP,N,1,M,W,W(IWB+1),W(IWC+1),IDIMF,F,IERR1,W(IWR+1))
457 133 CALL GENBUN (LP,N,1,M,W,W(IWB+1),W(IWC+1),IDIMF,F,IERR1,W(IWR+1))
[all …]
/dports/graphics/xd3d/xd3d-8.3.1/src/d3d/
H A Dmysort.f118 IWR(2,M) = I
119 IWR(1,M) = L
123 60 IWR(2,M) = K
124 IWR(1,M) = J
134 I = IWR(2,M)
135 J = IWR(1,M)
261 IWR(2,M) = I
267 IWR(2,M) = K
268 IWR(1,M) = J
283 I = IWR(2,M)
[all …]
/dports/math/xlapack/lapack-3.10.0/TESTING/EIG/
H A Ddget31.f118 $ IWI, IWR, NA, NW
202 DO 10 IWR = 1, 4
205 WR = VWR( IWR )*A( 1, 1 )
207 WR = VWR( IWR )
254 DO 50 IWR = 1, 4
257 WR = VWR( IWR )*A( 1, 1 )
259 WR = VWR( IWR )
326 DO 80 IWR = 1, 4
331 WR = VWR( IWR )
407 DO 120 IWR = 1, 4
[all …]
H A Dsget31.f118 $ IWI, IWR, NA, NW
202 DO 10 IWR = 1, 4
205 WR = VWR( IWR )*A( 1, 1 )
207 WR = VWR( IWR )
254 DO 50 IWR = 1, 4
257 WR = VWR( IWR )*A( 1, 1 )
259 WR = VWR( IWR )
326 DO 80 IWR = 1, 4
331 WR = VWR( IWR )
407 DO 120 IWR = 1, 4
[all …]
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/TESTING/EIG/
H A Ddget31.f121 $ IWI, IWR, NA, NW
205 DO 10 IWR = 1, 4
208 WR = VWR( IWR )*A( 1, 1 )
210 WR = VWR( IWR )
257 DO 50 IWR = 1, 4
260 WR = VWR( IWR )*A( 1, 1 )
262 WR = VWR( IWR )
329 DO 80 IWR = 1, 4
334 WR = VWR( IWR )
410 DO 120 IWR = 1, 4
[all …]
/dports/math/blas/lapack-3.10.0/TESTING/EIG/
H A Dsget31.f118 $ IWI, IWR, NA, NW
202 DO 10 IWR = 1, 4
205 WR = VWR( IWR )*A( 1, 1 )
207 WR = VWR( IWR )
254 DO 50 IWR = 1, 4
257 WR = VWR( IWR )*A( 1, 1 )
259 WR = VWR( IWR )
326 DO 80 IWR = 1, 4
331 WR = VWR( IWR )
407 DO 120 IWR = 1, 4
[all …]
H A Ddget31.f118 $ IWI, IWR, NA, NW
202 DO 10 IWR = 1, 4
205 WR = VWR( IWR )*A( 1, 1 )
207 WR = VWR( IWR )
254 DO 50 IWR = 1, 4
257 WR = VWR( IWR )*A( 1, 1 )
259 WR = VWR( IWR )
326 DO 80 IWR = 1, 4
331 WR = VWR( IWR )
407 DO 120 IWR = 1, 4
[all …]
/dports/math/lapacke/lapack-3.10.0/TESTING/EIG/
H A Dsget31.f118 $ IWI, IWR, NA, NW
202 DO 10 IWR = 1, 4
205 WR = VWR( IWR )*A( 1, 1 )
207 WR = VWR( IWR )
254 DO 50 IWR = 1, 4
257 WR = VWR( IWR )*A( 1, 1 )
259 WR = VWR( IWR )
326 DO 80 IWR = 1, 4
331 WR = VWR( IWR )
407 DO 120 IWR = 1, 4
[all …]
H A Ddget31.f118 $ IWI, IWR, NA, NW
202 DO 10 IWR = 1, 4
205 WR = VWR( IWR )*A( 1, 1 )
207 WR = VWR( IWR )
254 DO 50 IWR = 1, 4
257 WR = VWR( IWR )*A( 1, 1 )
259 WR = VWR( IWR )
326 DO 80 IWR = 1, 4
331 WR = VWR( IWR )
407 DO 120 IWR = 1, 4
[all …]
/dports/math/lapack/lapack-3.10.0/TESTING/EIG/
H A Dsget31.f118 $ IWI, IWR, NA, NW
202 DO 10 IWR = 1, 4
205 WR = VWR( IWR )*A( 1, 1 )
207 WR = VWR( IWR )
254 DO 50 IWR = 1, 4
257 WR = VWR( IWR )*A( 1, 1 )
259 WR = VWR( IWR )
326 DO 80 IWR = 1, 4
331 WR = VWR( IWR )
407 DO 120 IWR = 1, 4
[all …]
H A Ddget31.f118 $ IWI, IWR, NA, NW local
202 DO 10 IWR = 1, 4
205 WR = VWR( IWR )*A( 1, 1 )
207 WR = VWR( IWR )
254 DO 50 IWR = 1, 4
257 WR = VWR( IWR )*A( 1, 1 )
259 WR = VWR( IWR )
326 DO 80 IWR = 1, 4
331 WR = VWR( IWR )
407 DO 120 IWR = 1, 4
[all …]
/dports/math/libflame/libflame-5.2.0/old/lapack-test/3.5.0/EIG/
H A Dsget31.f121 $ IWI, IWR, NA, NW local
205 DO 10 IWR = 1, 4
208 WR = VWR( IWR )*A( 1, 1 )
210 WR = VWR( IWR )
257 DO 50 IWR = 1, 4
260 WR = VWR( IWR )*A( 1, 1 )
262 WR = VWR( IWR )
329 DO 80 IWR = 1, 4
334 WR = VWR( IWR )
410 DO 120 IWR = 1, 4
[all …]

1234567