Home
last modified time | relevance | path

Searched refs:IA2 (Results 1 – 25 of 435) sorted by relevance

12345678910>>...18

/dports/math/lapack95/LAPACK95/TESTING/
H A Dla_test_sggesx.f9048 IA1 = N; IA2 = N; IJOBVSL = JOBVSL; IJOBVSR = JOBVSR
54 IA2 = IA1 - 1
65 CALL LA_GGESX( A(1:IA1,1:IA2), B(1:IB1, 1:IB2), &
74 CALL LA_GGESX( A(1:IA1,1:IA2), B(1:IB1, 1:IB2), &
89 CALL LA_GGESX( A(1:IA1,1:IA2), B(1:IB1, 1:IB2), &
95 CALL LA_GGESX( A(1:IA1,1:IA2), B(1:IB1, 1:IB2), &
102 CALL LA_GGESX( A(1:IA1,1:IA2), B(1:IB1, 1:IB2),&
107 CALL LA_GGESX( A(1:IA1,1:IA2), B(1:IB1, 1:IB2), &
116 CALL LA_GGESX( A(1:IA1,1:IA2), B(1:IB1, 1:IB2),&
134 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
65 CALL LA_GGESX( A(1:IA1,1:IA2), B(1:IB1, 1:IB2), &
74 CALL LA_GGESX( A(1:IA1,1:IA2), B(1:IB1, 1:IB2), &
89 CALL LA_GGESX( A(1:IA1,1:IA2), B(1:IB1, 1:IB2), &
95 CALL LA_GGESX( A(1:IA1,1:IA2), B(1:IB1, 1:IB2), &
102 CALL LA_GGESX( A(1:IA1,1:IA2), B(1:IB1, 1:IB2),&
107 CALL LA_GGESX( A(1:IA1,1:IA2), B(1:IB1, 1:IB2), &
116 CALL LA_GGESX( A(1:IA1,1:IA2), B(1:IB1, 1:IB2),&
134 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
64 CALL LA_GGESX( A(1:IA1,1:IA2), B(1:IB1, 1:IB2), &
73 CALL LA_GGESX( A(1:IA1,1:IA2), B(1:IB1, 1:IB2), &
88 CALL LA_GGESX( A(1:IA1,1:IA2), B(1:IB1, 1:IB2), &
94 CALL LA_GGESX( A(1:IA1,1:IA2), B(1:IB1, 1:IB2), &
101 CALL LA_GGESX( A(1:IA1,1:IA2), B(1:IB1, 1:IB2),&
106 CALL LA_GGESX( A(1:IA1,1:IA2), B(1:IB1, 1:IB2), &
115 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
64 CALL LA_GGESX( A(1:IA1,1:IA2), B(1:IB1, 1:IB2), &
73 CALL LA_GGESX( A(1:IA1,1:IA2), B(1:IB1, 1:IB2), &
88 CALL LA_GGESX( A(1:IA1,1:IA2), B(1:IB1, 1:IB2), &
94 CALL LA_GGESX( A(1:IA1,1:IA2), B(1:IB1, 1:IB2), &
101 CALL LA_GGESX( A(1:IA1,1:IA2), B(1:IB1, 1:IB2),&
106 CALL LA_GGESX( A(1:IA1,1:IA2), B(1:IB1, 1:IB2), &
115 CALL LA_GGESX( A(1:IA1,1:IA2), B(1:IB1, 1:IB2),&
[all …]
H A Dla_test_cgeesx.f9040 INTEGER :: I, J, IA1, IA2, IW, IVS1, IVS2 local
45 IA1 = N; IA2 = N; IW = N;
51 IA2 = IA2-1
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), &
[all …]
H A Dla_test_zgeesx.f9040 INTEGER :: I, J, IA1, IA2, IW, IVS1, IVS2 local
45 IA1 = N; IA2 = N; IW = N;
51 IA2 = IA2-1
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), &
[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), &
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
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), &
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_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
68 ILSCALE = IA2 - 1
70 IRSCALE = IA2 - 1
72 IRCONDE = IA2 - 1
73 CALL LA_GGEVX( A(1:IA1,1:IA2), B(1:IB1, 1:IB2), ALPHA(1: IALPHA), &
81 IRCONDV = IA2 - 1
82 CALL LA_GGEVX( A(1:IA1,1:IA2), B(1:IB1, 1:IB2), ALPHA(1: IALPHA), &
95 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
68 ILSCALE = IA2 - 1
70 IRSCALE = IA2 - 1
72 IRCONDE = IA2 - 1
73 CALL LA_GGEVX( A(1:IA1,1:IA2), B(1:IB1, 1:IB2), ALPHA(1: IALPHA), &
81 IRCONDV = IA2 - 1
82 CALL LA_GGEVX( A(1:IA1,1:IA2), B(1:IB1, 1:IB2), ALPHA(1: IALPHA), &
95 CALL LA_GGEVX( A(1:IA1,1:IA2), B(1:IB1, 1:IB2), ALPHA(1: IALPHA), &
[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), &
77 CALL LA_GEEVX(A(1:IA1, 1:IA2), W(1: IW), &
87 CALL LA_GEEVX(A(1:IA1, 1:IA2), W(1: IW), &
101 CALL LA_GEEVX(A(1:IA1, 1:IA2), W(1: IW), &
107 CALL LA_GEEVX(A(1:IA1, 1:IA2), W(1: IW), &
113 CALL LA_GEEVX(A(1:IA1, 1:IA2), W(1: IW), &
118 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), &
77 CALL LA_GEEVX(A(1:IA1, 1:IA2), W(1: IW), &
87 CALL LA_GEEVX(A(1:IA1, 1:IA2), W(1: IW), &
101 CALL LA_GEEVX(A(1:IA1, 1:IA2), W(1: IW), &
107 CALL LA_GEEVX(A(1:IA1, 1:IA2), W(1: IW), &
113 CALL LA_GEEVX(A(1:IA1, 1:IA2), W(1: IW), &
118 CALL LA_GEEVX(A(1:IA1, 1:IA2), W(1: IW), &
[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
51 IA2 = IA2-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;
51 IA2 = IA2-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_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
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, &
79 IIU = IA2 + 1; IIL = IIU; IJOBZ='V'; IRANGE='I'
80 CALL LA_HEEVX( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, &
85 IIFAIL = IA2 - 1; IJOBZ='V'; IRANGE='A'
[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
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, &
79 IIU = IA2 + 1; IIL = IIU; IJOBZ='V'; IRANGE='I'
80 CALL LA_HEEVX( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, &
85 IIFAIL = IA2 - 1; IJOBZ='V'; IRANGE='A'
[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
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, &
77 IIU = IA2 + 1; IIL = IIU
79 CALL LA_SYEVX( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, &
84 IIFAIL = IA2 - 1
[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
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, &
77 IIU = IA2 + 1; IIL = IIU
79 CALL LA_SYEVX( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, &
84 IIFAIL = IA2 - 1
[all …]
H A Dla_test_dsygvx.f9037 INTEGER :: I, J, IA1, IA2, IB1, IB2, IW, IZ1, IZ2, IITYPE local
42 IA1 = N; IA2 = N; IB1 = LDB; IB2=N; IITYPE= ITYPE
49 IA2 = IA2 - 1
58 CALL LA_SYGVX(A(1:IA1, 1:IA2), B(1:IB1, 1:IB2), W, &
68 CALL LA_SYGVX(A(1:IA1, 1:IA2), B(1:IB1, 1:IB2), W, &
78 IIFAIL = IA2 - 1
84 CALL LA_SYGVX( A(1:IA1, 1:IA2), B(1:IB1,1:IB2), W, &
88 CALL LA_SYGVX(A(1:IA1, 1:IA2), B(1:IB1, 1:IB2), W, &
92 CALL LA_SYGVX( A(1:IA1, 1:IA2), B(1:IB1, 1:IB2), W, &
98 CALL LA_SYGVX( A(1:IA1, 1:IA2), B(1:IB1, 1:IB2), W, IITYPE, &
[all …]
H A Dla_test_ssygvx.f9037 INTEGER :: I, J, IA1, IA2, IB1, IB2, IW, IZ1, IZ2, IITYPE local
42 IA1 = N; IA2 = N; IB1 = LDB; IB2=N; IITYPE= ITYPE
49 IA2 = IA2 - 1
58 CALL LA_SYGVX(A(1:IA1, 1:IA2), B(1:IB1, 1:IB2), W, &
68 CALL LA_SYGVX(A(1:IA1, 1:IA2), B(1:IB1, 1:IB2), W, &
78 IIFAIL = IA2 - 1
84 CALL LA_SYGVX( A(1:IA1, 1:IA2), B(1:IB1,1:IB2), W, &
88 CALL LA_SYGVX(A(1:IA1, 1:IA2), B(1:IB1, 1:IB2), W, &
92 CALL LA_SYGVX( A(1:IA1, 1:IA2), B(1:IB1, 1:IB2), W, &
98 CALL LA_SYGVX( A(1:IA1, 1:IA2), B(1:IB1, 1:IB2), W, IITYPE, &
[all …]
H A Dla_test_cheevr.f9035 INTEGER :: I, J, IA1, IA2, IW, IIL, IIU, IZ1, IZ2 local
41 IA1 = N; IA2 = N; IUPLO = UPLO; IW = N; IJOBZ = JOBZ
46 IA2 = IA1 - 1
51 CALL LA_HEEVR( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, &
57 CALL LA_HEEVR( A(1:IA1,1:IA2), W(1 :IW), UPLO=IUPLO, &
63 CALL LA_HEEVR( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, &
68 CALL LA_HEEVR( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, &
74 CALL LA_HEEVR( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, &
80 CALL LA_HEEVR( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, &
86 CALL LA_HEEVR( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, &
[all …]
H A Dla_test_zheevr.f9035 INTEGER :: I, J, IA1, IA2, IW, IIL, IIU, IZ1, IZ2 local
41 IA1 = N; IA2 = N; IUPLO = UPLO; IW = N; IJOBZ = JOBZ
46 IA2 = IA1 - 1
51 CALL LA_HEEVR( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, &
57 CALL LA_HEEVR( A(1:IA1,1:IA2), W(1 :IW), UPLO=IUPLO, &
63 CALL LA_HEEVR( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, &
68 CALL LA_HEEVR( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, &
74 CALL LA_HEEVR( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, &
80 CALL LA_HEEVR( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, &
86 CALL LA_HEEVR( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, &
[all …]
H A Dla_test_ssyevr.f9032 INTEGER :: I, J, IA1, IA2, IW, IIL, IIU, IZ1, IZ2 local
38 IA1 = N; IA2 = N; IUPLO = UPLO; IW = N; IJOBZ = JOBZ
44 IA2 = IA1 - 1
49 CALL LA_SYEVR( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, &
57 CALL LA_SYEVR( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, &
62 CALL LA_SYEVR( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, &
68 CALL LA_SYEVR( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, &
74 CALL LA_SYEVR( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, &
80 CALL LA_SYEVR( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, &
90 CALL LA_SYEVR( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, &
[all …]
H A Dla_test_dsyevr.f9032 INTEGER :: I, J, IA1, IA2, IW, IIL, IIU, IZ1, IZ2 local
38 IA1 = N; IA2 = N; IUPLO = UPLO; IW = N; IJOBZ = JOBZ
44 IA2 = IA1 - 1
49 CALL LA_SYEVR( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, &
57 CALL LA_SYEVR( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, &
62 CALL LA_SYEVR( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, &
68 CALL LA_SYEVR( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, &
74 CALL LA_SYEVR( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, &
80 CALL LA_SYEVR( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, &
90 CALL LA_SYEVR( 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
62 CALL LA_GGES( A(1:IA1,1:IA2), B(1:IB1, 1:IB2), &
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), &
92 CALL LA_GGES( A(1:IA1,1:IA2), B(1:IB1, 1:IB2), &
99 CALL LA_GGES( A(1:IA1,1:IA2), B(1:IB1, 1:IB2), &
104 CALL LA_GGES( A(1:IA1,1:IA2), B(1:IB1, 1:IB2), &
112 CALL LA_GGES( A(1:IA1,1:IA2), B(1:IB1, 1:IB2),&
117 CALL LA_GGES( A(1:IA1,1:IA2), B(1:IB1, 1:IB2),&
[all …]

12345678910>>...18