/dports/math/algae/algae-4.3.6/src/ |
H A D | lapack.f | 27 INTEGER IUPLO, INFO, LDA, LDB, N, NRHS 125 INTEGER IUPLO, INFO, LDA, LDB, N, NRHS 177 INTEGER IUPLO, INFO, LDA, N 215 INTEGER IUPLO, INFO, LDA, LDB, N, NRHS 227 INTEGER IUPLO, INFO, LDA, LDB, N, NRHS 308 INTEGER IUPLO, INFO, LDA, N 323 INTEGER IUPLO, INFO, LDA, N 336 INTEGER IUPLO, INFO, LDA, N 352 INTEGER IUPLO, INFO, LDA, N 368 INTEGER IUPLO, INFO, LDA, N [all …]
|
/dports/math/lapack95/LAPACK95/TESTING/ |
H A D | la_test_zheevx.f90 | 36 CHARACTER*1 :: IUPLO, IJOBZ, IRANGE local 40 IA1 = N; IA2 = N; IUPLO = UPLO; IW = N; IJOBZ = JOBZ 51 CALL LA_HEEVX( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, & 56 IUPLO = 'T' 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, & 86 CALL LA_HEEVX( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, & 95 CALL LA_HEEVX( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, & [all …]
|
H A D | la_test_cheevx.f90 | 36 CHARACTER*1 :: IUPLO, IJOBZ, IRANGE local 40 IA1 = N; IA2 = N; IUPLO = UPLO; IW = N; IJOBZ = JOBZ 51 CALL LA_HEEVX( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, & 56 IUPLO = 'T' 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, & 86 CALL LA_HEEVX( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, & 95 CALL LA_HEEVX( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, & [all …]
|
H A D | la_test_ssyevx.f90 | 34 CHARACTER*1 :: IUPLO, IJOBZ, IRANGE local 38 IA1 = N; IA2 = N; IUPLO = UPLO; IW = N; IJOBZ = JOBZ 49 CALL LA_SYEVX( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, & 54 IUPLO = 'T' 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, & 97 CALL LA_SYEVX( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, & [all …]
|
H A D | la_test_dsyevx.f90 | 34 CHARACTER*1 :: IUPLO, IJOBZ, IRANGE local 38 IA1 = N; IA2 = N; IUPLO = UPLO; IW = N; IJOBZ = JOBZ 49 CALL LA_SYEVX( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, & 54 IUPLO = 'T' 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, & 97 CALL LA_SYEVX( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, & [all …]
|
H A D | la_test_cheevr.f90 | 37 CHARACTER*1 :: IUPLO, IJOBZ local 41 IA1 = N; IA2 = N; IUPLO = UPLO; IW = N; IJOBZ = JOBZ 51 CALL LA_HEEVR( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, & 56 IUPLO = 'T'; IJOBZ='N' 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 | 37 CHARACTER*1 :: IUPLO, IJOBZ local 41 IA1 = N; IA2 = N; IUPLO = UPLO; IW = N; IJOBZ = JOBZ 51 CALL LA_HEEVR( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, & 56 IUPLO = 'T'; IJOBZ='N' 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 | 34 CHARACTER*1 :: IUPLO, IJOBZ local 38 IA1 = N; IA2 = N; IUPLO = UPLO; IW = N; IJOBZ = JOBZ 49 CALL LA_SYEVR( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, & 54 IUPLO = 'T' 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 | 34 CHARACTER*1 :: IUPLO, IJOBZ local 38 IA1 = N; IA2 = N; IUPLO = UPLO; IW = N; IJOBZ = JOBZ 49 CALL LA_SYEVR( A(1:IA1,1:IA2), W(1 :IW), IJOBZ, IUPLO, & 54 IUPLO = 'T' 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_cppsvx.f90 | 48 & IUPLO, AFP(1:IAFP), IFACT, & 53 & IUPLO, AFP(1:IAFP), IFACT, & 66 & IUPLO, AFP(1:IAFP), IFACT, & 70 & IUPLO, AFP(1:IAFP), IFACT, & 76 IUPLO='T' 86 & IUPLO, AFP(1:IAFP), IFACT, & 90 & IUPLO, AFP(1:IAFP), IFACT, & 102 & IUPLO, AFP(1:IAFP), IFACT, & 106 & IUPLO, AFP(1:IAFP), IFACT, & 115 & IUPLO, AFP(1:IAFP), IFACT, & [all …]
|
H A D | la_test_zppsvx.f90 | 48 & IUPLO, AFP(1:IAFP), IFACT, & 53 & IUPLO, AFP(1:IAFP), IFACT, & 66 & IUPLO, AFP(1:IAFP), IFACT, & 70 & IUPLO, AFP(1:IAFP), IFACT, & 76 IUPLO='T' 86 & IUPLO, AFP(1:IAFP), IFACT, & 90 & IUPLO, AFP(1:IAFP), IFACT, & 102 & IUPLO, AFP(1:IAFP), IFACT, & 106 & IUPLO, AFP(1:IAFP), IFACT, & 115 & IUPLO, AFP(1:IAFP), IFACT, & [all …]
|
H A D | la_test_zhpevx.f90 | 35 CHARACTER*1 :: IUPLO, IJOBS, IRANGE local 40 IAP = N*(N+1)/2; IUPLO = UPLO; IW = N; IJOBS = JOBS 50 IUPLO = 'T' 57 CALL LA_HPEVX(AP(1:IAP), W(1:IW), IUPLO, Z(1:IZ1, 1:IZ2),& 62 CALL LA_HPEVX(AP(1:IAP), W(1:IW), IUPLO, Z(1:IZ1, 1:IZ2),& 69 CALL LA_HPEVX(AP(1:IAP), W(1:IW), IUPLO, Z(1:IZ1, 1:IZ2),& 76 CALL LA_HPEVX(AP(1:IAP), W(1:IW), IUPLO, Z(1:IZ1, 1:IZ2),& 82 CALL LA_HPEVX(AP(1:IAP), W(1:IW), IUPLO,& 102 CALL LA_HPEVX(AP(1:IAP), W(1:IW), IUPLO, & 105 CALL LA_HPEVX(AP(1:IAP), W(1:IW), IUPLO, & [all …]
|
H A D | la_test_dspevx.f90 | 33 CHARACTER*1 :: IUPLO, IJOBS, IRANGE local 38 IAP = N*(N+1)/2; IUPLO = UPLO; IW = N; IJOBS = JOBS 48 IUPLO = 'T' 55 CALL LA_SPEVX(AP(1:IAP), W(1:IW), IUPLO, Z(1:IZ1, 1:IZ2),& 60 CALL LA_SPEVX(AP(1:IAP), W(1:IW), IUPLO, Z(1:IZ1, 1:IZ2),& 67 CALL LA_SPEVX(AP(1:IAP), W(1:IW), IUPLO, Z(1:IZ1, 1:IZ2),& 74 CALL LA_SPEVX(AP(1:IAP), W(1:IW), IUPLO, Z(1:IZ1, 1:IZ2),& 80 CALL LA_SPEVX(AP(1:IAP), W(1:IW), IUPLO,& 100 CALL LA_SPEVX(AP(1:IAP), W(1:IW), IUPLO, & 103 CALL LA_SPEVX(AP(1:IAP), W(1:IW), IUPLO, & [all …]
|
H A D | la_test_sspevx.f90 | 33 CHARACTER*1 :: IUPLO, IJOBS, IRANGE local 38 IAP = N*(N+1)/2; IUPLO = UPLO; IW = N; IJOBS = JOBS 48 IUPLO = 'T' 55 CALL LA_SPEVX(AP(1:IAP), W(1:IW), IUPLO, Z(1:IZ1, 1:IZ2),& 60 CALL LA_SPEVX(AP(1:IAP), W(1:IW), IUPLO, Z(1:IZ1, 1:IZ2),& 67 CALL LA_SPEVX(AP(1:IAP), W(1:IW), IUPLO, Z(1:IZ1, 1:IZ2),& 74 CALL LA_SPEVX(AP(1:IAP), W(1:IW), IUPLO, Z(1:IZ1, 1:IZ2),& 80 CALL LA_SPEVX(AP(1:IAP), W(1:IW), IUPLO,& 100 CALL LA_SPEVX(AP(1:IAP), W(1:IW), IUPLO, & 103 CALL LA_SPEVX(AP(1:IAP), W(1:IW), IUPLO, & [all …]
|
H A D | la_test_chpevx.f90 | 35 CHARACTER*1 :: IUPLO, IJOBS, IRANGE local 40 IAP = N*(N+1)/2; IUPLO = UPLO; IW = N; IJOBS = JOBS 50 IUPLO = 'T' 57 CALL LA_HPEVX(AP(1:IAP), W(1:IW), IUPLO, Z(1:IZ1, 1:IZ2),& 62 CALL LA_HPEVX(AP(1:IAP), W(1:IW), IUPLO, Z(1:IZ1, 1:IZ2),& 69 CALL LA_HPEVX(AP(1:IAP), W(1:IW), IUPLO, Z(1:IZ1, 1:IZ2),& 76 CALL LA_HPEVX(AP(1:IAP), W(1:IW), IUPLO, Z(1:IZ1, 1:IZ2),& 82 CALL LA_HPEVX(AP(1:IAP), W(1:IW), IUPLO,& 102 CALL LA_HPEVX(AP(1:IAP), W(1:IW), IUPLO, & 105 CALL LA_HPEVX(AP(1:IAP), W(1:IW), IUPLO, & [all …]
|
H A D | la_test_ssbevx.f90 | 36 CHARACTER*1 :: IUPLO, IJOBZ, IRANGE local 41 IAB1 = KD+1 ; IAB2 = N; IUPLO = UPLO; IW = N; IJOBZ = JOBZ 51 IUPLO = 'T' 58 CALL LA_SBEVX( AB(1:IAB1,1:IAB2), W(1 :IW), IUPLO, & 66 CALL LA_SBEVX( AB(1:IAB1,1:IAB2), W(1 :IW), IUPLO, & 74 CALL LA_SBEVX( AB(1:IAB1,1:IAB2), W(1 :IW), IUPLO, & 82 CALL LA_SBEVX( AB(1:IAB1,1:IAB2), W(1 :IW), IUPLO,& 90 CALL LA_SBEVX( AB(1:IAB1,1:IAB2), W(1 :IW), IUPLO,& 100 CALL LA_SBEVX( AB(1:IAB1,1:IAB2), W(1 :IW), IUPLO,& 108 CALL LA_SBEVX( AB(1:IAB1,1:IAB2), W(1 :IW), IUPLO,& [all …]
|
H A D | la_test_chbevx.f90 | 38 CHARACTER*1 :: IUPLO, IJOBZ, IRANGE local 53 IUPLO = 'T' 60 CALL LA_HBEVX( AB(1:IAB1,1:IAB2), W(1 :IW), IUPLO, & 68 CALL LA_HBEVX( AB(1:IAB1,1:IAB2), W(1 :IW), IUPLO, & 76 CALL LA_HBEVX( AB(1:IAB1,1:IAB2), W(1 :IW), IUPLO, & 84 CALL LA_HBEVX( AB(1:IAB1,1:IAB2), W(1 :IW), IUPLO,& 92 CALL LA_HBEVX( AB(1:IAB1,1:IAB2), W(1 :IW), IUPLO,& 102 CALL LA_HBEVX( AB(1:IAB1,1:IAB2), W(1 :IW), IUPLO,& 110 CALL LA_HBEVX( AB(1:IAB1,1:IAB2), W(1 :IW), IUPLO,& 119 CALL LA_HBEVX( AB(1:IAB1,1:IAB2), W(1 :IW), IUPLO,& [all …]
|
H A D | la_test_dsbevx.f90 | 36 CHARACTER*1 :: IUPLO, IJOBZ, IRANGE local 41 IAB1 = KD+1 ; IAB2 = N; IUPLO = UPLO; IW = N; IJOBZ = JOBZ 51 IUPLO = 'T' 58 CALL LA_SBEVX( AB(1:IAB1,1:IAB2), W(1 :IW), IUPLO, & 66 CALL LA_SBEVX( AB(1:IAB1,1:IAB2), W(1 :IW), IUPLO, & 74 CALL LA_SBEVX( AB(1:IAB1,1:IAB2), W(1 :IW), IUPLO, & 82 CALL LA_SBEVX( AB(1:IAB1,1:IAB2), W(1 :IW), IUPLO,& 90 CALL LA_SBEVX( AB(1:IAB1,1:IAB2), W(1 :IW), IUPLO,& 100 CALL LA_SBEVX( AB(1:IAB1,1:IAB2), W(1 :IW), IUPLO,& 108 CALL LA_SBEVX( AB(1:IAB1,1:IAB2), W(1 :IW), IUPLO,& [all …]
|
H A D | la_test_zhbevx.f90 | 38 CHARACTER*1 :: IUPLO, IJOBZ, IRANGE local 53 IUPLO = 'T' 60 CALL LA_HBEVX( AB(1:IAB1,1:IAB2), W(1 :IW), IUPLO, & 68 CALL LA_HBEVX( AB(1:IAB1,1:IAB2), W(1 :IW), IUPLO, & 76 CALL LA_HBEVX( AB(1:IAB1,1:IAB2), W(1 :IW), IUPLO, & 84 CALL LA_HBEVX( AB(1:IAB1,1:IAB2), W(1 :IW), IUPLO,& 92 CALL LA_HBEVX( AB(1:IAB1,1:IAB2), W(1 :IW), IUPLO,& 102 CALL LA_HBEVX( AB(1:IAB1,1:IAB2), W(1 :IW), IUPLO,& 110 CALL LA_HBEVX( AB(1:IAB1,1:IAB2), W(1 :IW), IUPLO,& 119 CALL LA_HBEVX( AB(1:IAB1,1:IAB2), W(1 :IW), IUPLO,& [all …]
|
H A D | la_test_dppsv.f90 | 26 CHARACTER*1 :: IUPLO local 30 IAP1 = N*(N+1)/2; IB1 = N; IB2 = NRHS; IUPLO= UPLO 35 CALL LA_PPSV( AP(1:IAP1), B(1:IB1,1), IUPLO, INFO ) 38 CALL LA_PPSV( AP(1:IAP1), B(1:IB1,1:IB2), IUPLO, INFO ) 46 IUPLO='T' 53 CALL LA_PPSV( AP(1:IAP1), B(1:IB1,1:IB2), IUPLO, INFO ) 55 CALL LA_PPSV( AP(1:IAP1), B(1:IB1,1), IUPLO, INFO )
|
H A D | la_test_zppsv.f90 | 26 CHARACTER*1 :: IUPLO local 30 IAP1 = N*(N+1)/2; IB1 = N; IB2 = NRHS; IUPLO= UPLO 35 CALL LA_PPSV( AP(1:IAP1), B(1:IB1,1), IUPLO, INFO ) 38 CALL LA_PPSV( AP(1:IAP1), B(1:IB1,1:IB2), IUPLO, INFO ) 46 IUPLO='T' 53 CALL LA_PPSV( AP(1:IAP1), B(1:IB1,1:IB2), IUPLO, INFO ) 55 CALL LA_PPSV( AP(1:IAP1), B(1:IB1,1), IUPLO, INFO )
|
H A D | la_test_cppsv.f90 | 26 CHARACTER*1 :: IUPLO local 30 IAP1 = N*(N+1)/2; IB1 = N; IB2 = NRHS; IUPLO= UPLO 35 CALL LA_PPSV( AP(1:IAP1), B(1:IB1,1), IUPLO, INFO ) 38 CALL LA_PPSV( AP(1:IAP1), B(1:IB1,1:IB2), IUPLO, INFO ) 46 IUPLO='T' 53 CALL LA_PPSV( AP(1:IAP1), B(1:IB1,1:IB2), IUPLO, INFO ) 55 CALL LA_PPSV( AP(1:IAP1), B(1:IB1,1), IUPLO, INFO )
|
H A D | la_test_sppsv.f90 | 26 CHARACTER*1 :: IUPLO local 30 IAP1 = N*(N+1)/2; IB1 = N; IB2 = NRHS; IUPLO= UPLO 35 CALL LA_PPSV( AP(1:IAP1), B(1:IB1,1), IUPLO, INFO ) 38 CALL LA_PPSV( AP(1:IAP1), B(1:IB1,1:IB2), IUPLO, INFO ) 46 IUPLO='T' 53 CALL LA_PPSV( AP(1:IAP1), B(1:IB1,1:IB2), IUPLO, INFO ) 55 CALL LA_PPSV( AP(1:IAP1), B(1:IB1,1), IUPLO, INFO )
|
H A D | la_test_zpbsv.f90 | 26 CHARACTER*1 :: IUPLO local 30 IAB1 = LDAB; IAB2 = N; IB1 = N; IB2 = NRHS; IUPLO=UPLO 35 CALL LA_PBSV( AB(1:IAB1,1:IAB2), B(1:IB1,1), IUPLO ) 38 CALL LA_PBSV( AB(1:IAB1,1:IAB2), B(1:IB1,1:IB2), IUPLO ) 46 IUPLO = 'T' 53 CALL LA_PBSV( AB(1:IAB1,1:IAB2), B(1:IB1,1:IB2), IUPLO, INFO ) 55 CALL LA_PBSV( AB(1:IAB1,1:IAB2), B(1:IB1,1), IUPLO, INFO )
|
H A D | la_test_spbsv.f90 | 26 CHARACTER*1 :: IUPLO local 30 IAB1 = LDAB; IAB2 = N; IB1 = N; IB2 = NRHS; IUPLO=UPLO 35 CALL LA_PBSV( AB(1:IAB1,1:IAB2), B(1:IB1,1), IUPLO ) 38 CALL LA_PBSV( AB(1:IAB1,1:IAB2), B(1:IB1,1:IB2), IUPLO ) 46 IUPLO = 'T' 53 CALL LA_PBSV( AB(1:IAB1,1:IAB2), B(1:IB1,1:IB2), IUPLO, INFO ) 55 CALL LA_PBSV( AB(1:IAB1,1:IAB2), B(1:IB1,1), IUPLO, INFO )
|