Home
last modified time | relevance | path

Searched refs:IFAIL (Results 1 – 25 of 696) sorted by relevance

12345678910>>...28

/dports/math/lapack95/LAPACK95/EXAMPLES2/
H A Dssyevxet.f9063 CALL LA_SYEVX(A,W,'V',IFAIL=IFAIL)
71 WRITE(NOUT,*) IFAIL(:)
83 CALL LA_SYEVX(A,W,'V',IFAIL=IFAIL, ABSTOL=0.01_WP)
91 WRITE(NOUT,*) IFAIL(:)
102 CALL LA_SYEVX(A,W, 'V', 'L', IFAIL=IFAIL)
110 WRITE(NOUT,*) IFAIL(:)
135 IFAIL=0
136 CALL LA_SYEVX(A, W, JOBZ='V', IFAIL=IFAIL, INFO=INFO)
144 WRITE(NOUT,*) IFAIL(:)
158 CALL LA_SYEVX(A,W, 'V', IFAIL=IFAIL,IL=2,IU=3)
[all …]
H A Dcheevxet.f9064 CALL LA_HEEVX(A,W,'V',IFAIL=IFAIL)
72 WRITE(NOUT,*) IFAIL(:)
84 CALL LA_HEEVX(A,W,'V',IFAIL=IFAIL, ABSTOL=0.01_WP)
92 WRITE(NOUT,*) IFAIL(:)
103 CALL LA_HEEVX(A,W, 'V', UPLO='L', IFAIL=IFAIL)
111 WRITE(NOUT,*) IFAIL(:)
136 IFAIL=0
137 CALL LA_HEEVX(A, W, JOBZ='V', IFAIL=IFAIL, INFO=INFO)
145 WRITE(NOUT,*) IFAIL(:)
159 CALL LA_HEEVX(A,W, 'V', IFAIL=IFAIL,IL=2,IU=3)
[all …]
H A Ddsyevxet.f9063 CALL LA_SYEVX(A,W,'V',IFAIL=IFAIL)
71 WRITE(NOUT,*) IFAIL(:)
83 CALL LA_SYEVX(A,W,'V',IFAIL=IFAIL, ABSTOL=0.01_WP)
91 WRITE(NOUT,*) IFAIL(:)
102 CALL LA_SYEVX(A,W, 'V', 'L', IFAIL=IFAIL)
110 WRITE(NOUT,*) IFAIL(:)
135 IFAIL=0
136 CALL LA_SYEVX(A, W, JOBZ='V', IFAIL=IFAIL, INFO=INFO)
144 WRITE(NOUT,*) IFAIL(:)
158 CALL LA_SYEVX(A,W, 'V', IFAIL=IFAIL,IL=2,IU=3)
[all …]
H A Dzheevxet.f9064 CALL LA_HEEVX(A,W,'V',IFAIL=IFAIL)
72 WRITE(NOUT,*) IFAIL(:)
84 CALL LA_HEEVX(A,W,'V',IFAIL=IFAIL, ABSTOL=0.01_WP)
92 WRITE(NOUT,*) IFAIL(:)
103 CALL LA_HEEVX(A,W, 'V', UPLO='L', IFAIL=IFAIL)
111 WRITE(NOUT,*) IFAIL(:)
136 IFAIL=0
137 CALL LA_HEEVX(A, W, JOBZ='V', IFAIL=IFAIL, INFO=INFO)
145 WRITE(NOUT,*) IFAIL(:)
159 CALL LA_HEEVX(A,W, 'V', IFAIL=IFAIL,IL=2,IU=3)
[all …]
H A Dzhbgvxet.f9020 INTEGER, ALLOCATABLE :: IFAIL(:) variable
29 ALLOCATE (IFAIL(N), Q(N,N))
94 CALL LA_HBGVX( A, B, W, UPLO, Z, VL, VU, M=M, IFAIL=IFAIL, Q=Q, INFO=INFO )
131 CALL LA_HBGVX( A, B, W, UPLO, Z, VL, VU, M=M, IFAIL=IFAIL, Q=Q, INFO=INFO )
146 CALL LA_HBGVX( A, B, W, UPLO, Z, IL=IL, IU=IU, M=M, IFAIL=IFAIL, Q=Q, INFO=INFO )
154 CALL LA_HBGVX( A, B, W, UPLO, Z, IL=IL, IU=IU, M=M, IFAIL=IFAIL, Q=Q, INFO=INFO )
161 CALL LA_HBGVX( A, B, W, UPLO, Z, VL, VU, M=M, IFAIL=IFAIL(1:N-1), Q=Q, INFO=INFO )
168 CALL LA_HBGVX( A, B, W, UPLO, VL=VL, VU=VU, M=M, IFAIL=IFAIL, Q=Q, INFO=INFO )
174 CALL LA_HBGVX( A, B, W, UPLO, Z, VL, VU, M=M, IFAIL=IFAIL, Q=Q(1:N-1,:), INFO=INFO )
180 CALL LA_HBGVX( A, B, W, UPLO, Z, VL, VU, M=M, IFAIL=IFAIL, Q=Q(:,1:N-1), INFO=INFO )
[all …]
H A Dchbgvxet.f9020 INTEGER, ALLOCATABLE :: IFAIL(:) variable
29 ALLOCATE (IFAIL(N), Q(N,N))
94 CALL LA_HBGVX( A, B, W, UPLO, Z, VL, VU, M=M, IFAIL=IFAIL, Q=Q, INFO=INFO )
131 CALL LA_HBGVX( A, B, W, UPLO, Z, VL, VU, M=M, IFAIL=IFAIL, Q=Q, INFO=INFO )
146 CALL LA_HBGVX( A, B, W, UPLO, Z, IL=IL, IU=IU, M=M, IFAIL=IFAIL, Q=Q, INFO=INFO )
154 CALL LA_HBGVX( A, B, W, UPLO, Z, IL=IL, IU=IU, M=M, IFAIL=IFAIL, Q=Q, INFO=INFO )
161 CALL LA_HBGVX( A, B, W, UPLO, Z, VL, VU, M=M, IFAIL=IFAIL(1:N-1), Q=Q, INFO=INFO )
168 CALL LA_HBGVX( A, B, W, UPLO, VL=VL, VU=VU, M=M, IFAIL=IFAIL, Q=Q, INFO=INFO )
174 CALL LA_HBGVX( A, B, W, UPLO, Z, VL, VU, M=M, IFAIL=IFAIL, Q=Q(1:N-1,:), INFO=INFO )
180 CALL LA_HBGVX( A, B, W, UPLO, Z, VL, VU, M=M, IFAIL=IFAIL, Q=Q(:,1:N-1), INFO=INFO )
[all …]
H A Ddsbgvxet.f9020 INTEGER, ALLOCATABLE :: IFAIL(:) variable
29 ALLOCATE (IFAIL(N), Q(N,N))
132 CALL LA_SBGVX( A, B, W, UPLO, Z, VL, VU, M=M, IFAIL=IFAIL, Q=Q, INFO=INFO )
139 CALL LA_SBGVX( A, B, W, UPLO, Z, VL, VU, IL, IU, M, IFAIL, Q, INFO=INFO )
147 CALL LA_SBGVX( A, B, W, UPLO, Z, IL=IL, IU=IU, M=M, IFAIL=IFAIL, Q=Q, INFO=INFO )
155 CALL LA_SBGVX( A, B, W, UPLO, Z, IL=IL, IU=IU, M=M, IFAIL=IFAIL, Q=Q, INFO=INFO )
162 CALL LA_SBGVX( A, B, W, UPLO, Z, VL, VU, M=M, IFAIL=IFAIL(1:N-1), Q=Q, INFO=INFO )
169 CALL LA_SBGVX( A, B, W, UPLO, VL=VL, VU=VU, M=M, IFAIL=IFAIL, Q=Q, INFO=INFO )
175 CALL LA_SBGVX( A, B, W, UPLO, Z, VL, VU, M=M, IFAIL=IFAIL, Q=Q(1:N-1,:), INFO=INFO )
181 CALL LA_SBGVX( A, B, W, UPLO, Z, VL, VU, M=M, IFAIL=IFAIL, Q=Q(:,1:N-1), INFO=INFO )
[all …]
H A Dssbgvxet.f9020 INTEGER, ALLOCATABLE :: IFAIL(:) variable
29 ALLOCATE (IFAIL(N), Q(N,N))
132 CALL LA_SBGVX( A, B, W, UPLO, Z, VL, VU, M=M, IFAIL=IFAIL, Q=Q, INFO=INFO )
139 CALL LA_SBGVX( A, B, W, UPLO, Z, VL, VU, IL, IU, M, IFAIL, Q, INFO=INFO )
147 CALL LA_SBGVX( A, B, W, UPLO, Z, IL=IL, IU=IU, M=M, IFAIL=IFAIL, Q=Q, INFO=INFO )
155 CALL LA_SBGVX( A, B, W, UPLO, Z, IL=IL, IU=IU, M=M, IFAIL=IFAIL, Q=Q, INFO=INFO )
162 CALL LA_SBGVX( A, B, W, UPLO, Z, VL, VU, M=M, IFAIL=IFAIL(1:N-1), Q=Q, INFO=INFO )
169 CALL LA_SBGVX( A, B, W, UPLO, VL=VL, VU=VU, M=M, IFAIL=IFAIL, Q=Q, INFO=INFO )
175 CALL LA_SBGVX( A, B, W, UPLO, Z, VL, VU, M=M, IFAIL=IFAIL, Q=Q(1:N-1,:), INFO=INFO )
181 CALL LA_SBGVX( A, B, W, UPLO, Z, VL, VU, M=M, IFAIL=IFAIL, Q=Q(:,1:N-1), INFO=INFO )
[all …]
/dports/math/lapack95/LAPACK95/EXAMPLES2/Old000807/
H A Dsyevxet.base80 CALL LA_SYEVX(A,W,'V',IFAIL=IFAIL)
100 CALL LA_SYEVX(A,W,'V',IFAIL=IFAIL, ABSTOL=0.01_WP)
119 CALL LA_SYEVX(A,W, 'V', 'L', IFAIL=IFAIL)
152 IFAIL=0
175 CALL LA_SYEVX(A,W, 'V', IFAIL=IFAIL,IL=2,IU=3)
196 CALL LA_SYEVX(A,W,'V', IFAIL=IFAIL,IL=2)
269 CALL LA_HEEVX(A,W,'V',IFAIL=IFAIL)
308 CALL LA_HEEVX(A,W, 'V', UPLO='L', IFAIL=IFAIL)
341 IFAIL=0
364 CALL LA_HEEVX(A,W, 'V', IFAIL=IFAIL,IL=2,IU=3)
[all …]
H A Dsbgvxet.base41 ALLOCATE (IFAIL(N), Q(N,N))
144 CALL LA_SBGVX( A, B, W, UPLO, Z, VL, VU, M=M, IFAIL=IFAIL, Q=Q, INFO=INFO )
159 CALL LA_SBGVX( A, B, W, UPLO, Z, IL=IL, IU=IU, M=M, IFAIL=IFAIL, Q=Q, INFO=INFO )
167 CALL LA_SBGVX( A, B, W, UPLO, Z, IL=IL, IU=IU, M=M, IFAIL=IFAIL, Q=Q, INFO=INFO )
174 CALL LA_SBGVX( A, B, W, UPLO, Z, VL, VU, M=M, IFAIL=IFAIL(1:N-1), Q=Q, INFO=INFO )
181 CALL LA_SBGVX( A, B, W, UPLO, VL=VL, VU=VU, M=M, IFAIL=IFAIL, Q=Q, INFO=INFO )
199 CALL LA_SBGVX( A, B, W, UPLO, VL=VL, VU=VU, M=M, IFAIL=IFAIL, Q=Q, INFO=INFO )
274 CALL LA_HBGVX( A, B, W, UPLO, Z, VL, VU, M=M, IFAIL=IFAIL, Q=Q, INFO=INFO )
311 CALL LA_HBGVX( A, B, W, UPLO, Z, VL, VU, M=M, IFAIL=IFAIL, Q=Q, INFO=INFO )
348 CALL LA_HBGVX( A, B, W, UPLO, VL=VL, VU=VU, M=M, IFAIL=IFAIL, Q=Q, INFO=INFO )
[all …]
H A Dspevxet.base109 WRITE(NOUT,*) 'IFAIL:'; WRITE (NOUT,*) IFAIL
115 CALL LA_SPEVX( A, W, 'U', Z, IL=1, IU=N, M=M, IFAIL=IFAIL, &
121 WRITE(NOUT,*) 'IFAIL:'; WRITE (NOUT,*) IFAIL
186 CALL LA_SPEVX( A, W, IFAIL=IFAIL(1:N-1), INFO=INFO )
190 WRITE(NOUT,*) 'CALL LA_SPEVX( A, W, IFAIL=IFAIL )'
192 CALL LA_SPEVX( A, W, IFAIL=IFAIL )
251 WRITE(NOUT,*) 'IFAIL:'; WRITE (NOUT,*) IFAIL
263 WRITE(NOUT,*) 'IFAIL:'; WRITE (NOUT,*) IFAIL
328 CALL LA_HPEVX( A, W, IFAIL=IFAIL(1:N-1), INFO=INFO )
332 WRITE(NOUT,*) 'CALL LA_HPEVX( A, W, IFAIL=IFAIL )'
[all …]
/dports/math/slatec/
H A Ddpchq3.f109 IFAIL = 0
146 IFAIL = IFAIL + 1
172 IFAIL = IFAIL + 1
191 IFAIL = IFAIL + 1
208 IFAIL = IFAIL + 1
224 IFAIL = IFAIL + 1
254 IFAIL = IFAIL + 1
273 IFAIL = IFAIL + 1
289 IFAIL = IFAIL + 1
298 IF ((KPRINT.GE.2).AND.(IFAIL.NE.0)) WRITE (LUN, 3001) IFAIL
[all …]
H A Ddpchq1.f60 INTEGER I1, I2, I3, I4, I5, I6, I7, I8, I9, IFAIL, NPTS
69 IFAIL = 0
76 IF (FAIL) IFAIL = IFAIL + 1
92 IF (FAIL) IFAIL = IFAIL + 2
97 IF (FAIL) IFAIL = IFAIL + 4
107 IF ((KPRINT.GE.2).AND.(IFAIL.NE.0)) WRITE (LUN, 3001) IFAIL
109 IF (IFAIL.EQ.0) THEN
H A Dpchqk1.f59 INTEGER I1, I2, I3, I4, I5, I6, I7, I8, I9, IFAIL, NPTS
68 IFAIL = 0
75 IF (FAIL) IFAIL = IFAIL + 1
91 IF (FAIL) IFAIL = IFAIL + 2
96 IF (FAIL) IFAIL = IFAIL + 4
106 IF ((KPRINT.GE.2).AND.(IFAIL.NE.0)) WRITE (LUN, 3001) IFAIL
108 IF (IFAIL.EQ.0) THEN
H A Dpchqk3.f108 IFAIL = 0
145 IFAIL = IFAIL + 1
171 IFAIL = IFAIL + 1
190 IFAIL = IFAIL + 1
207 IFAIL = IFAIL + 1
223 IFAIL = IFAIL + 1
253 IFAIL = IFAIL + 1
272 IFAIL = IFAIL + 1
288 IFAIL = IFAIL + 1
297 IF ((KPRINT.GE.2).AND.(IFAIL.NE.0)) WRITE (LUN, 3001) IFAIL
[all …]
H A Ddpchq4.f70 INTEGER I, IERR, IFAIL, INCFD, ISMEX1(MAXN), ISMEX2(MAXN2),
122 IFAIL = 0
149 IFAIL = IFAIL + 1
155 IFAIL = IFAIL + 1
162 IFAIL = IFAIL + 1
169 IFAIL = IFAIL + 1
188 IFAIL = IFAIL + 1
193 IFAIL = IFAIL + 1
228 IF ((KPRINT.GE.2).AND.(IFAIL.NE.0)) WRITE (LUN, 3001) IFAIL
230 IF (IFAIL.EQ.0) THEN
H A Dpchqk4.f69 INTEGER I, IERR, IFAIL, INCFD, ISMEX1(MAXN), ISMEX2(MAXN2),
121 IFAIL = 0
148 IFAIL = IFAIL + 1
154 IFAIL = IFAIL + 1
161 IFAIL = IFAIL + 1
168 IFAIL = IFAIL + 1
187 IFAIL = IFAIL + 1
192 IFAIL = IFAIL + 1
227 IF ((KPRINT.GE.2).AND.(IFAIL.NE.0)) WRITE (LUN, 3001) IFAIL
229 IF (IFAIL.EQ.0) THEN
/dports/math/lapack95/LAPACK95/TESTING/
H A Dla_test_zhpevx.f902 & ABSTOL, M, W, Z, LDZ, WORK, RWORK, IWORK, IFAIL, INFO ) argument
23 INTEGER, INTENT(OUT) :: IWORK(1: 5*N), IFAIL(1:N) local
58 & IVL, IVU, M=M, IFAIL=IFAIL, ABSTOL=IABSTOL, INFO=INFO )
63 & IVL, IVU, IIL, IIU, M, IFAIL, IABSTOL, INFO )
70 & IL=IIL, IU=IIU, M=M, IFAIL=IFAIL, ABSTOL=IABSTOL,INFO=INFO )
77 & IL=IIL, IU=IIU, M=M, IFAIL=IFAIL, ABSTOL=IABSTOL,INFO=INFO )
83 & VL=IVL, VU=IVU, M=M, IFAIL=IFAIL, ABSTOL=IABSTOL, INFO=INFO )
92 & IVL, IVU, M=M, IFAIL=IFAIL, ABSTOL=IABSTOL, INFO=INFO )
95 & IL=IIL, IU=IIU, M=M, IFAIL=IFAIL, ABSTOL=IABSTOL,INFO=INFO )
98 & M=M, IFAIL=IFAIL, ABSTOL=IABSTOL, INFO=INFO )
H A Dla_test_dspevx.f902 & ABSTOL, M, W, Z, LDZ, WORK, IWORK, IFAIL, INFO ) argument
22 INTEGER, INTENT(OUT) :: IWORK(1: 5*N), IFAIL(1:N) local
56 & IVL, IVU, M=M, IFAIL=IFAIL, ABSTOL=IABSTOL, INFO=INFO )
61 & IVL, IVU, IIL, IIU, M, IFAIL, IABSTOL, INFO )
68 & IL=IIL, IU=IIU, M=M, IFAIL=IFAIL, ABSTOL=IABSTOL,INFO=INFO )
75 & IL=IIL, IU=IIU, M=M, IFAIL=IFAIL, ABSTOL=IABSTOL,INFO=INFO )
81 & VL=IVL, VU=IVU, M=M, IFAIL=IFAIL, ABSTOL=IABSTOL, INFO=INFO )
90 & IVL, IVU, M=M, IFAIL=IFAIL, ABSTOL=IABSTOL, INFO=INFO )
93 & IL=IIL, IU=IIU, M=M, IFAIL=IFAIL, ABSTOL=IABSTOL,INFO=INFO )
96 & M=M, IFAIL=IFAIL, ABSTOL=IABSTOL, INFO=INFO )
H A Dla_test_sspevx.f902 & ABSTOL, M, W, Z, LDZ, WORK, IWORK, IFAIL, INFO ) argument
22 INTEGER, INTENT(OUT) :: IWORK(1: 5*N), IFAIL(1:N) local
56 & IVL, IVU, M=M, IFAIL=IFAIL, ABSTOL=IABSTOL, INFO=INFO )
61 & IVL, IVU, IIL, IIU, M, IFAIL, IABSTOL, INFO )
68 & IL=IIL, IU=IIU, M=M, IFAIL=IFAIL, ABSTOL=IABSTOL,INFO=INFO )
75 & IL=IIL, IU=IIU, M=M, IFAIL=IFAIL, ABSTOL=IABSTOL,INFO=INFO )
81 & VL=IVL, VU=IVU, M=M, IFAIL=IFAIL, ABSTOL=IABSTOL, INFO=INFO )
90 & IVL, IVU, M=M, IFAIL=IFAIL, ABSTOL=IABSTOL, INFO=INFO )
93 & IL=IIL, IU=IIU, M=M, IFAIL=IFAIL, ABSTOL=IABSTOL,INFO=INFO )
96 & M=M, IFAIL=IFAIL, ABSTOL=IABSTOL, INFO=INFO )
H A Dla_test_chpevx.f902 & ABSTOL, M, W, Z, LDZ, WORK, RWORK, IWORK, IFAIL, INFO ) argument
23 INTEGER, INTENT(OUT) :: IWORK(1: 5*N), IFAIL(1:N) local
58 & IVL, IVU, M=M, IFAIL=IFAIL, ABSTOL=IABSTOL, INFO=INFO )
63 & IVL, IVU, IIL, IIU, M, IFAIL, IABSTOL, INFO )
70 & IL=IIL, IU=IIU, M=M, IFAIL=IFAIL, ABSTOL=IABSTOL,INFO=INFO )
77 & IL=IIL, IU=IIU, M=M, IFAIL=IFAIL, ABSTOL=IABSTOL,INFO=INFO )
83 & VL=IVL, VU=IVU, M=M, IFAIL=IFAIL, ABSTOL=IABSTOL, INFO=INFO )
92 & IVL, IVU, M=M, IFAIL=IFAIL, ABSTOL=IABSTOL, INFO=INFO )
95 & IL=IIL, IU=IIU, M=M, IFAIL=IFAIL, ABSTOL=IABSTOL,INFO=INFO )
98 & M=M, IFAIL=IFAIL, ABSTOL=IABSTOL, INFO=INFO )
H A Dla_test_ssbevx.f903 & WORK, IWORK, IFAIL,INFO ) argument
21 INTEGER, INTENT(OUT) :: IFAIL(1:N) local
59 & Z(1:IZ1, 1: IZ2), IVL, IVU, IIL, IIU, M, IFAIL, &
67 & Z(1:IZ1, 1: IZ2), IL=IIL, IU=IIU, M=M, IFAIL=IFAIL(1:IIFAIL),&
75 & Z(1:IZ1, 1: IZ2), IL=IIL, IU=IIU, M=M, IFAIL=IFAIL(1:IIFAIL),&
83 & Z(1:IZ1, 1: IZ2), IVL, IVU, M=M, IFAIL=IFAIL(1:IIFAIL),&
91 & Z(1:IZ1, 1: IZ2), IVL, IVU, M=M, IFAIL=IFAIL(1:IIFAIL),&
101 & Z(1:IZ1, 1: IZ2), IVL, IVU, M=M, IFAIL=IFAIL(1:IIFAIL),&
105 & Z(1:IZ1, 1: IZ2), IL=IIL, IU=IIU, M=M, IFAIL=IFAIL(1:IIFAIL),&
109 & Z(1:IZ1, 1: IZ2), M=M, IFAIL=IFAIL(1:IIFAIL), &
H A Dla_test_chbevx.f903 & WORK, RWORK, IWORK, IFAIL, INFO ) argument
21 INTEGER, INTENT(OUT) :: IFAIL(1:N) local
61 & Z(1:IZ1, 1: IZ2), IVL, IVU, IIL, IIU, M, IFAIL, &
69 & Z(1:IZ1, 1: IZ2), IL=IIL, IU=IIU, M=M, IFAIL=IFAIL(1:IIFAIL),&
77 & Z(1:IZ1, 1: IZ2), IL=IIL, IU=IIU, M=M, IFAIL=IFAIL(1:IIFAIL),&
85 & Z(1:IZ1, 1: IZ2), IVL, IVU, M=M, IFAIL=IFAIL(1:IIFAIL),&
93 & Z(1:IZ1, 1: IZ2), IVL, IVU, M=M, IFAIL=IFAIL(1:IIFAIL),&
103 & Z(1:IZ1, 1: IZ2), IVL, IVU, M=M, IFAIL=IFAIL(1:IIFAIL),&
107 & Z(1:IZ1, 1: IZ2), IL=IIL, IU=IIU, M=M, IFAIL=IFAIL(1:IIFAIL),&
111 & Z(1:IZ1, 1: IZ2), M=M, IFAIL=IFAIL(1:IIFAIL), &
H A Dla_test_dsbevx.f903 & WORK, IWORK, IFAIL,INFO ) argument
21 INTEGER, INTENT(OUT) :: IFAIL(1:N) local
59 & Z(1:IZ1, 1: IZ2), IVL, IVU, IIL, IIU, M, IFAIL, &
67 & Z(1:IZ1, 1: IZ2), IL=IIL, IU=IIU, M=M, IFAIL=IFAIL(1:IIFAIL),&
75 & Z(1:IZ1, 1: IZ2), IL=IIL, IU=IIU, M=M, IFAIL=IFAIL(1:IIFAIL),&
83 & Z(1:IZ1, 1: IZ2), IVL, IVU, M=M, IFAIL=IFAIL(1:IIFAIL),&
91 & Z(1:IZ1, 1: IZ2), IVL, IVU, M=M, IFAIL=IFAIL(1:IIFAIL),&
101 & Z(1:IZ1, 1: IZ2), IVL, IVU, M=M, IFAIL=IFAIL(1:IIFAIL),&
105 & Z(1:IZ1, 1: IZ2), IL=IIL, IU=IIU, M=M, IFAIL=IFAIL(1:IIFAIL),&
109 & Z(1:IZ1, 1: IZ2), M=M, IFAIL=IFAIL(1:IIFAIL), &
H A Dla_test_zhbevx.f903 & WORK, RWORK, IWORK, IFAIL, INFO ) argument
21 INTEGER, INTENT(OUT) :: IFAIL(1:N) local
61 & Z(1:IZ1, 1: IZ2), IVL, IVU, IIL, IIU, M, IFAIL, &
69 & Z(1:IZ1, 1: IZ2), IL=IIL, IU=IIU, M=M, IFAIL=IFAIL(1:IIFAIL),&
77 & Z(1:IZ1, 1: IZ2), IL=IIL, IU=IIU, M=M, IFAIL=IFAIL(1:IIFAIL),&
85 & Z(1:IZ1, 1: IZ2), IVL, IVU, M=M, IFAIL=IFAIL(1:IIFAIL),&
93 & Z(1:IZ1, 1: IZ2), IVL, IVU, M=M, IFAIL=IFAIL(1:IIFAIL),&
103 & Z(1:IZ1, 1: IZ2), IVL, IVU, M=M, IFAIL=IFAIL(1:IIFAIL),&
107 & Z(1:IZ1, 1: IZ2), IL=IIL, IU=IIU, M=M, IFAIL=IFAIL(1:IIFAIL),&
111 & Z(1:IZ1, 1: IZ2), M=M, IFAIL=IFAIL(1:IIFAIL), &

12345678910>>...28