/dports/math/lapack95/LAPACK95/TESTING/ |
H A D | la_test_sggesx.f90 | 48 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 D | la_test_dggesx.f90 | 48 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 D | la_test_cggesx.f90 | 42 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 D | la_test_zggesx.f90 | 42 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 D | la_test_cgeesx.f90 | 40 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 D | la_test_zgeesx.f90 | 40 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 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 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 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 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 D | la_test_cggevx.f90 | 38 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 D | la_test_zggevx.f90 | 38 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 D | la_test_cgeevx.f90 | 41 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 D | la_test_zgeevx.f90 | 41 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 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 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 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; 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 D | la_test_zheevx.f90 | 34 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 D | la_test_cheevx.f90 | 34 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 D | la_test_ssyevx.f90 | 32 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 D | la_test_dsyevx.f90 | 32 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 D | la_test_dsygvx.f90 | 37 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 D | la_test_ssygvx.f90 | 37 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 D | la_test_cheevr.f90 | 35 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 D | la_test_zheevr.f90 | 35 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 D | la_test_ssyevr.f90 | 32 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 D | la_test_dsyevr.f90 | 32 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 D | la_test_cgges.f90 | 47 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 …]
|