/dports/math/lapack95/LAPACK95/TESTING/ |
H A D | la_test_dgeevx.f90 | 34 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 D | la_test_sgeevx.f90 | 34 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 D | la_test_dgeesx.f90 | 40 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 D | la_test_sgeesx.f90 | 40 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 D | la_test_dgees.f90 | 38 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 D | la_test_sgees.f90 | 38 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 D | la_test_dgeev.f90 | 28 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 D | la_test_sgeev.f90 | 28 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 D | hstssp.f | 415 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 D | hstplr.f | 350 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 D | hstcyl.f | 344 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 D | hstssp.f | 418 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 D | hstplr.f | 353 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 D | hstcyl.f | 347 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 D | mysort.f | 118 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 D | dget31.f | 118 $ 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 D | sget31.f | 118 $ 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 D | dget31.f | 121 $ 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 D | sget31.f | 118 $ 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 D | dget31.f | 118 $ 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 D | sget31.f | 118 $ 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 D | dget31.f | 118 $ 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 D | sget31.f | 118 $ 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 D | dget31.f | 118 $ 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 D | sget31.f | 121 $ 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 …]
|