Home
last modified time | relevance | path

Searched refs:IUPLO (Results 1 – 25 of 1695) sorted by relevance

12345678910>>...68

/dports/math/algae/algae-4.3.6/src/
H A Dlapack.f27 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 Dla_test_zheevx.f9036 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 Dla_test_cheevx.f9036 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 Dla_test_ssyevx.f9034 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 Dla_test_dsyevx.f9034 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 Dla_test_cheevr.f9037 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 Dla_test_zheevr.f9037 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 Dla_test_ssyevr.f9034 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 Dla_test_dsyevr.f9034 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 Dla_test_cppsvx.f9048 & 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 Dla_test_zppsvx.f9048 & 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 Dla_test_zhpevx.f9035 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 Dla_test_dspevx.f9033 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 Dla_test_sspevx.f9033 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 Dla_test_chpevx.f9035 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 Dla_test_ssbevx.f9036 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 Dla_test_chbevx.f9038 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 Dla_test_dsbevx.f9036 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 Dla_test_zhbevx.f9038 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 Dla_test_dppsv.f9026 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 Dla_test_zppsv.f9026 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 Dla_test_cppsv.f9026 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 Dla_test_sppsv.f9026 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 Dla_test_zpbsv.f9026 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 Dla_test_spbsv.f9026 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 )

12345678910>>...68