Home
last modified time | relevance | path

Searched refs:IA1 (Results 1 – 25 of 407) sorted by relevance

12345678910>>...17

/dports/math/lapack95/LAPACK95/TESTING/
H A Dla_test_sggesx.f9048 IA1 = N; IA2 = N; IJOBVSL = JOBVSL; IJOBVSR = JOBVSR
54 IA2 = IA1 - 1
56 IB1 = IA1 - 1
58 IALPHAR = IA1 - 1
60 IALPHAI = IA1 - 1
62 IBETA = IA1 - 1
64 IVSL1 = IA1 - 1
65 CALL LA_GGESX( A(1:IA1,1:IA2), B(1:IB1, 1:IB2), &
73 IVSR1 = IA1 - 1
74 CALL LA_GGESX( A(1:IA1,1:IA2), B(1:IB1, 1:IB2), &
[all …]
H A Dla_test_dggesx.f9048 IA1 = N; IA2 = N; IJOBVSL = JOBVSL; IJOBVSR = JOBVSR
54 IA2 = IA1 - 1
56 IB1 = IA1 - 1
58 IALPHAR = IA1 - 1
60 IALPHAI = IA1 - 1
62 IBETA = IA1 - 1
64 IVSL1 = IA1 - 1
65 CALL LA_GGESX( A(1:IA1,1:IA2), B(1:IB1, 1:IB2), &
73 IVSR1 = IA1 - 1
74 CALL LA_GGESX( A(1:IA1,1:IA2), B(1:IB1, 1:IB2), &
[all …]
H A Dla_test_cggesx.f9042 INTEGER :: I, J, IA1, IA2, IB1, IB2, IALPHA, IBETA, IVSL1, & local
49 IA1 = N; IA2 = N; IJOBVSL = JOBVSL; IJOBVSR = JOBVSR
55 IA2 = IA1 - 1
57 IB1 = IA1 - 1
59 IALPHA = IA1 - 1
61 IBETA = IA1 - 1
63 IVSL1 = IA1 - 1
64 CALL LA_GGESX( A(1:IA1,1:IA2), B(1:IB1, 1:IB2), &
72 IVSR1 = IA1 - 1
73 CALL LA_GGESX( A(1:IA1,1:IA2), B(1:IB1, 1:IB2), &
[all …]
H A Dla_test_zggesx.f9042 INTEGER :: I, J, IA1, IA2, IB1, IB2, IALPHA, IBETA, IVSL1, & local
49 IA1 = N; IA2 = N; IJOBVSL = JOBVSL; IJOBVSR = JOBVSR
55 IA2 = IA1 - 1
57 IB1 = IA1 - 1
59 IALPHA = IA1 - 1
61 IBETA = IA1 - 1
63 IVSL1 = IA1 - 1
64 CALL LA_GGESX( A(1:IA1,1:IA2), B(1:IB1, 1:IB2), &
72 IVSR1 = IA1 - 1
73 CALL LA_GGESX( A(1:IA1,1:IA2), B(1:IB1, 1:IB2), &
[all …]
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
47 IA2 = IA1 - 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), &
75 ISCALE = IA1 - 1
77 IRCONDE = IA1 - 1
79 CALL LA_GEEVX(A(1:IA1, 1:IA2), WR(1:IWR), WI(1: IWI), &
87 IRCONDV = IA1 - 1
89 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
47 IA2 = IA1 - 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), &
75 ISCALE = IA1 - 1
77 IRCONDE = IA1 - 1
79 CALL LA_GEEVX(A(1:IA1, 1:IA2), WR(1:IWR), WI(1: IWI), &
87 IRCONDV = IA1 - 1
89 CALL LA_GEEVX(A(1:IA1, 1:IA2), WR(1:IWR), WI(1: IWI), &
[all …]
H A Dla_test_cgeevx.f9041 IA1 = N; IA2 = N; IW = N; IVL1 = N; IVL2 = N
47 IA2 = IA1 - 1
53 CALL LA_GEEVX(A(1:IA1, 1:IA2), W(1: IW), &
63 CALL LA_GEEVX(A(1:IA1, 1:IA2), W(1: IW), &
73 ISCALE = IA1 - 1
75 IRCONDE = IA1 - 1
77 CALL LA_GEEVX(A(1:IA1, 1:IA2), W(1: IW), &
85 IRCONDV = IA1 - 1
87 CALL LA_GEEVX(A(1:IA1, 1:IA2), W(1: IW), &
101 CALL LA_GEEVX(A(1:IA1, 1:IA2), W(1: IW), &
[all …]
H A Dla_test_zgeevx.f9041 IA1 = N; IA2 = N; IW = N; IVL1 = N; IVL2 = N
47 IA2 = IA1 - 1
53 CALL LA_GEEVX(A(1:IA1, 1:IA2), W(1: IW), &
63 CALL LA_GEEVX(A(1:IA1, 1:IA2), W(1: IW), &
73 ISCALE = IA1 - 1
75 IRCONDE = IA1 - 1
77 CALL LA_GEEVX(A(1:IA1, 1:IA2), W(1: IW), &
85 IRCONDV = IA1 - 1
87 CALL LA_GEEVX(A(1:IA1, 1:IA2), W(1: IW), &
101 CALL LA_GEEVX(A(1:IA1, 1:IA2), W(1: IW), &
[all …]
H A Dla_test_cggevx.f9038 INTEGER :: I, J, IA1, IA2, IB1, IB2, IALPHA, IBETA, IVL1, & local
45 IA1 = N; IA2 = N; IJOBVL = JOBVL; IJOBVR = JOBVR; IBALANC = BALANC
52 IA2 = IA1 - 1
54 IB1 = IA1 - 1
56 IALPHA = IA1 - 1
58 IBETA = IA1 - 1
61 IVL1 = IA1 - 1
64 IVR1 = IA1 - 1
73 CALL LA_GGEVX( A(1:IA1,1:IA2), B(1:IB1, 1:IB2), ALPHA(1: IALPHA), &
82 CALL LA_GGEVX( A(1:IA1,1:IA2), B(1:IB1, 1:IB2), ALPHA(1: IALPHA), &
[all …]
H A Dla_test_zggevx.f9038 INTEGER :: I, J, IA1, IA2, IB1, IB2, IALPHA, IBETA, IVL1, & local
45 IA1 = N; IA2 = N; IJOBVL = JOBVL; IJOBVR = JOBVR; IBALANC = BALANC
52 IA2 = IA1 - 1
54 IB1 = IA1 - 1
56 IALPHA = IA1 - 1
58 IBETA = IA1 - 1
61 IVL1 = IA1 - 1
64 IVR1 = IA1 - 1
73 CALL LA_GGEVX( A(1:IA1,1:IA2), B(1:IB1, 1:IB2), ALPHA(1: IALPHA), &
82 CALL LA_GGEVX( A(1:IA1,1:IA2), B(1:IB1, 1:IB2), ALPHA(1: IALPHA), &
[all …]
H A Dla_test_cgeesx.f9040 INTEGER :: I, J, IA1, IA2, IW, IVS1, IVS2 local
45 IA1 = N; IA2 = N; IW = N;
64 CALL LA_GEESX( A(1:IA1, 1: IA2), W(1:IW), &
67 CALL LA_GEESX( A(1:IA1, 1: IA2), W(1:IW), &
72 CALL LA_GEESX( A(1:IA1, 1: IA2), W(1:IW), &
75 CALL LA_GEESX( A(1:IA1, 1: IA2), W(1:IW), &
82 CALL LA_GEESX( A(1:IA1, 1: IA2), W(1:IW), &
86 CALL LA_GEESX( A(1:IA1, 1: IA2), W(1:IW), &
91 CALL LA_GEESX( A(1:IA1, 1: IA2), W(1:IW), &
94 CALL LA_GEESX( A(1:IA1, 1: IA2), W(1:IW), &
[all …]
H A Dla_test_zgeesx.f9040 INTEGER :: I, J, IA1, IA2, IW, IVS1, IVS2 local
45 IA1 = N; IA2 = N; IW = N;
64 CALL LA_GEESX( A(1:IA1, 1: IA2), W(1:IW), &
67 CALL LA_GEESX( A(1:IA1, 1: IA2), W(1:IW), &
72 CALL LA_GEESX( A(1:IA1, 1: IA2), W(1:IW), &
75 CALL LA_GEESX( A(1:IA1, 1: IA2), W(1:IW), &
82 CALL LA_GEESX( A(1:IA1, 1: IA2), W(1:IW), &
86 CALL LA_GEESX( A(1:IA1, 1: IA2), W(1:IW), &
91 CALL LA_GEESX( A(1:IA1, 1: IA2), W(1:IW), &
94 CALL LA_GEESX( A(1:IA1, 1: IA2), W(1:IW), &
[all …]
H A Dla_test_zheevx.f9034 INTEGER :: I, J, IA1, IA2, IW, IIL, IIU, IIFAIL local
40 IA1 = N; IA2 = N; IUPLO = UPLO; IW = N; IJOBZ = JOBZ
46 IA2 = IA1 - 1
48 IW = IA1 - 1
51 CALL LA_HEEVX( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, &
59 CALL LA_HEEVX( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, &
66 CALL LA_HEEVX( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, &
73 CALL LA_HEEVX( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, &
80 CALL LA_HEEVX( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, &
98 CALL LA_HEEVX( A(1:IA1,1:IA2), W(1 :IW), UPLO=IUPLO, &
[all …]
H A Dla_test_cheevx.f9034 INTEGER :: I, J, IA1, IA2, IW, IIL, IIU, IIFAIL local
40 IA1 = N; IA2 = N; IUPLO = UPLO; IW = N; IJOBZ = JOBZ
46 IA2 = IA1 - 1
48 IW = IA1 - 1
51 CALL LA_HEEVX( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, &
59 CALL LA_HEEVX( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, &
66 CALL LA_HEEVX( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, &
73 CALL LA_HEEVX( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, &
80 CALL LA_HEEVX( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, &
98 CALL LA_HEEVX( A(1:IA1,1:IA2), W(1 :IW), UPLO=IUPLO, &
[all …]
H A Dla_test_ssyevx.f9032 INTEGER :: I, J, IA1, IA2, IW, IIL, IIU, IIFAIL local
38 IA1 = N; IA2 = N; IUPLO = UPLO; IW = N; IJOBZ = JOBZ
44 IA2 = IA1 - 1
46 IW = IA1 - 1
49 CALL LA_SYEVX( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, &
57 CALL LA_SYEVX( A(1:IA1,1:IA2), W(1 :IW), UPLO=IUPLO, &
64 CALL LA_SYEVX( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, &
71 CALL LA_SYEVX( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, &
79 CALL LA_SYEVX( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, &
86 CALL LA_SYEVX( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, &
[all …]
H A Dla_test_dsyevx.f9032 INTEGER :: I, J, IA1, IA2, IW, IIL, IIU, IIFAIL local
38 IA1 = N; IA2 = N; IUPLO = UPLO; IW = N; IJOBZ = JOBZ
44 IA2 = IA1 - 1
46 IW = IA1 - 1
49 CALL LA_SYEVX( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, &
57 CALL LA_SYEVX( A(1:IA1,1:IA2), W(1 :IW), UPLO=IUPLO, &
64 CALL LA_SYEVX( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, &
71 CALL LA_SYEVX( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, &
79 CALL LA_SYEVX( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, &
86 CALL LA_SYEVX( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, &
[all …]
H A Dla_test_cgges.f9047 IA1 = N; IA2 = N; IJOBVSL = JOBVSL; IJOBVSR = JOBVSR
53 IA2 = IA1 - 1
55 IB1 = IA1 - 1
57 IALPHA = IA1 - 1
59 IBETA = IA1 - 1
61 IVSL1 = IA1 - 1; IJOBVSL = 'V';IJOBVSR = 'V'
62 CALL LA_GGES( A(1:IA1,1:IA2), B(1:IB1, 1:IB2), &
70 IVSR1 = IA1 - 1; IJOBVSL = 'V';IJOBVSR = 'V'
71 CALL LA_GGES( A(1:IA1,1:IA2), B(1:IB1, 1:IB2), &
86 CALL LA_GGES( A(1:IA1,1:IA2), B(1:IB1, 1:IB2), &
[all …]
H A Dla_test_zgges.f9047 IA1 = N; IA2 = N; IJOBVSL = JOBVSL; IJOBVSR = JOBVSR
53 IA2 = IA1 - 1
55 IB1 = IA1 - 1
57 IALPHA = IA1 - 1
59 IBETA = IA1 - 1
61 IVSL1 = IA1 - 1; IJOBVSL = 'V';IJOBVSR = 'V'
62 CALL LA_GGES( A(1:IA1,1:IA2), B(1:IB1, 1:IB2), &
70 IVSR1 = IA1 - 1; IJOBVSL = 'V';IJOBVSR = 'V'
71 CALL LA_GGES( A(1:IA1,1:IA2), B(1:IB1, 1:IB2), &
86 CALL LA_GGES( A(1:IA1,1:IA2), B(1:IB1, 1:IB2), &
[all …]
H A Dla_test_cgesvx.f9035 INTEGER :: I, J, IA1, IA2, IB1, IB2, IX1, IX2, IAF1, IAF2, IIPIV, & local
39 IA1 = N; IA2 = N; IB1 = N; IB2 = NRHS; IX1 = N; IX2 = NRHS
46 CALL LA_GESVX( A(1:IA1,1:IA2), B(1:IB1,1), X(1:IX1,1), &
58 IA2 = IA1-1
60 IB1 = IA1-1
64 IX1 = IA1-1
73 IAF1 = IA1-1
75 IAF2 = IA1-1
80 IIPIV = IA1-1
177 IR = IA1-1
[all …]
H A Dla_test_dgesvx.f9034 INTEGER :: I, J, IA1, IA2, IB1, IB2, IX1, IX2, IAF1, IAF2, IIPIV, & local
38 IA1 = N; IA2 = N; IB1 = N; IB2 = NRHS; IX1 = N; IX2 = NRHS
45 CALL LA_GESVX( A(1:IA1,1:IA2), B(1:IB1,1), X(1:IX1,1), &
57 IA2 = IA1-1
59 IB1 = IA1-1
63 IX1 = IA1-1
72 IAF1 = IA1-1
74 IAF2 = IA1-1
79 IIPIV = IA1-1
176 IR = IA1-1
[all …]
H A Dla_test_zgesvx.f9035 INTEGER :: I, J, IA1, IA2, IB1, IB2, IX1, IX2, IAF1, IAF2, IIPIV, & local
39 IA1 = N; IA2 = N; IB1 = N; IB2 = NRHS; IX1 = N; IX2 = NRHS
46 CALL LA_GESVX( A(1:IA1,1:IA2), B(1:IB1,1), X(1:IX1,1), &
58 IA2 = IA1-1
60 IB1 = IA1-1
64 IX1 = IA1-1
73 IAF1 = IA1-1
75 IAF2 = IA1-1
80 IIPIV = IA1-1
177 IR = IA1-1
[all …]
H A Dla_test_sgesvx.f9034 INTEGER :: I, J, IA1, IA2, IB1, IB2, IX1, IX2, IAF1, IAF2, IIPIV, & local
38 IA1 = N; IA2 = N; IB1 = N; IB2 = NRHS; IX1 = N; IX2 = NRHS
45 CALL LA_GESVX( A(1:IA1,1:IA2), B(1:IB1,1), X(1:IX1,1), &
57 IA2 = IA1-1
59 IB1 = IA1-1
63 IX1 = IA1-1
72 IAF1 = IA1-1
74 IAF2 = IA1-1
79 IIPIV = IA1-1
176 IR = IA1-1
[all …]
H A Dla_test_sgegs.f9028 INTEGER :: I, J, IA1, IA2, IB1, IB2, IALPHAI, IALPHAR, IBETA, IVSL1, & local
35 IA1 = N; IA2 = N; IJOBVSL = JOBVSL; IJOBVSR = JOBVSR
41 IA2 = IA1 - 1
43 IB1 = IA1 - 1
45 IALPHAR = IA1 - 1
47 IALPHAI = IA1 - 1
49 IBETA = IA1 - 1
51 IVSL1 = IA1 - 1
53 IVSR1 = IA1 - 1
60 CALL LA_GEGS( A(1:IA1,1:IA2), B(1:IB1, 1:IB2), ALPHAR(1: IALPHAR), &
[all …]
H A Dla_test_cgegs.f9029 INTEGER :: I, J, IA1, IA2, IB1, IB2, IALPHA, IBETA, IVSL1, & local
36 IA1 = N; IA2 = N; IJOBVSL = JOBVSL; IJOBVSR = JOBVSR
42 IA2 = IA1 - 1
44 IB1 = IA1 - 1
46 IALPHA = IA1 - 1
48 IALPHA = IA1 - 1
50 IBETA = IA1 - 1
52 IVSL1 = IA1 - 1
54 IVSR1 = IA1 - 1
61 CALL LA_GEGS( A(1:IA1,1:IA2), B(1:IB1, 1:IB2), ALPHA(1: IALPHA), &
[all …]
H A Dla_test_cgegv.f9029 INTEGER :: I, J, IA1, IA2, IB1, IB2, IALPHA, IBETA, IVL1, & local
36 IA1 = N; IA2 = N; IJOBVL = JOBVL; IJOBVR = JOBVR
42 IA2 = IA1 - 1
44 IB1 = IA1 - 1
46 IALPHA = IA1 - 1
48 IALPHA = IA1 - 1
50 IBETA = IA1 - 1
52 IVL1 = IA1 - 1
54 IVR1 = IA1 - 1
61 CALL LA_GEGV( A(1:IA1,1:IA2), B(1:IB1, 1:IB2), ALPHA(1: IALPHA), &
[all …]

12345678910>>...17