/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 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 D | la_test_dggesx.f90 | 48 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 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 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 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 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 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), & 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 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), & 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 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), & 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 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), & 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 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 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 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 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 D | la_test_cgeesx.f90 | 40 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 D | la_test_zgeesx.f90 | 40 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 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 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 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 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 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 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 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 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 D | la_test_cgges.f90 | 47 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 D | la_test_zgges.f90 | 47 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 D | la_test_cgesvx.f90 | 35 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 D | la_test_dgesvx.f90 | 34 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 D | la_test_zgesvx.f90 | 35 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 D | la_test_sgesvx.f90 | 34 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 D | la_test_sgegs.f90 | 28 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 D | la_test_cgegs.f90 | 29 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 D | la_test_cgegv.f90 | 29 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 …]
|