Home
last modified time | relevance | path

Searched refs:LRANGE (Results 1 – 25 of 72) sorted by relevance

123

/dports/math/lapack95/LAPACK95/SRC/
H A Dla_sstevr.f90123 CHARACTER(LEN=1) :: LJOBZ, LRANGE local
157 IF( PRESENT(VL) .OR. PRESENT(VU) )THEN; LRANGE = 'V'; LM = N
158 ELSE IF( PRESENT(IL) .OR. PRESENT(IU) )THEN; LRANGE = 'I'; LM = LIU-LIL+1
159 ELSE; LRANGE = 'A'; LM = N; END IF
168 CALL STEVR_F77( LJOBZ, LRANGE, N, D, E, LVL, LVU, &
172 CALL STEVR_F77( LJOBZ, LRANGE, N, D, E, LVL, LVU, &
192 CALL STEVR_F77( LJOBZ, LRANGE, N, D, E, LVL, LVU, LIL, LIU, &
196 CALL STEVR_F77( LJOBZ, LRANGE, N, D, E, LVL, LVU, LIL, LIU, &
H A Dla_dstevr.f90123 CHARACTER(LEN=1) :: LJOBZ, LRANGE local
157 IF( PRESENT(VL) .OR. PRESENT(VU) )THEN; LRANGE = 'V'; LM = N
158 ELSE IF( PRESENT(IL) .OR. PRESENT(IU) )THEN; LRANGE = 'I'; LM = LIU-LIL+1
159 ELSE; LRANGE = 'A'; LM = N; END IF
168 CALL STEVR_F77( LJOBZ, LRANGE, N, D, E, LVL, LVU, &
172 CALL STEVR_F77( LJOBZ, LRANGE, N, D, E, LVL, LVU, &
192 CALL STEVR_F77( LJOBZ, LRANGE, N, D, E, LVL, LVU, LIL, LIU, &
196 CALL STEVR_F77( LJOBZ, LRANGE, N, D, E, LVL, LVU, LIL, LIU, &
H A Dla_dspgvx.f90158 CHARACTER(LEN=1) :: LJOBZ, LUPLO, LRANGE local
184 IF( PRESENT(VL) .OR. PRESENT(VU) )THEN; LRANGE = 'V'
185 ELSE IF( PRESENT(IL) .OR. PRESENT(IU) )THEN; LRANGE = 'I'
186 ELSE ; LRANGE = 'A'; END IF
197 ELSE IF( LSAME(LRANGE,'I') .AND. ( LIU < MIN(N, LIL) .OR. LIU > N ))THEN; LINFO = -9
212 CALL SPGVX_F77( LITYPE, LJOBZ, LRANGE, LUPLO, N, AP, BP, LVL, &
216 CALL SPGVX_F77( LITYPE, LJOBZ, LRANGE, LUPLO, N, AP, BP, LVL, &
H A Dla_sspgvx.f90158 CHARACTER(LEN=1) :: LJOBZ, LUPLO, LRANGE local
184 IF( PRESENT(VL) .OR. PRESENT(VU) )THEN; LRANGE = 'V'
185 ELSE IF( PRESENT(IL) .OR. PRESENT(IU) )THEN; LRANGE = 'I'
186 ELSE ; LRANGE = 'A'; END IF
197 ELSE IF( LSAME(LRANGE,'I') .AND. ( LIU < MIN(N, LIL) .OR. LIU > N ))THEN; LINFO = -9
212 CALL SPGVX_F77( LITYPE, LJOBZ, LRANGE, LUPLO, N, AP, BP, LVL, &
216 CALL SPGVX_F77( LITYPE, LJOBZ, LRANGE, LUPLO, N, AP, BP, LVL, &
H A Dla_chpgvx.f90158 CHARACTER(LEN=1) :: LJOBZ, LUPLO, LRANGE local
185 IF( PRESENT(VL) .OR. PRESENT(VU) )THEN; LRANGE = 'V'
186 ELSE IF( PRESENT(IL) .OR. PRESENT(IU) )THEN; LRANGE = 'I'
187 ELSE ; LRANGE = 'A'; END IF
198 ELSE IF( LSAME(LRANGE,'I') .AND. ( LIU < MIN(N, LIL) .OR. LIU > N ))THEN; LINFO = -9
213 CALL HPGVX_F77( LITYPE, LJOBZ, LRANGE, LUPLO, N, AP, BP, LVL, &
217 CALL HPGVX_F77( LITYPE, LJOBZ, LRANGE, LUPLO, N, AP, BP, LVL, &
H A Dla_dsygvx.f90164 CHARACTER(LEN=1) :: LJOBZ, LUPLO, LRANGE local
187 IF( PRESENT(VL) .OR. PRESENT(VU) )THEN ; LRANGE = 'V'; LM=N
188 ELSE IF( PRESENT(IL) .OR. PRESENT(IU) )THEN ; LRANGE = 'I'; LM=LIU-LIL+1
189 ELSE ; LRANGE = 'A'; LM=N; END IF
199 ELSE IF( LSAME(LRANGE, 'I') .AND. ( LIU < MIN( N, LIL ) .OR. LIU>N))THEN; LINFO = -9
223 CALL SYGVX_F77( LITYPE, LJOBZ, LRANGE, LUPLO, N, A, LDA, B, &
237 CALL SYGVX_F77( LITYPE, LJOBZ, LRANGE, LUPLO, N, A, LDA, B, &
H A Dla_ssygvx.f90164 CHARACTER(LEN=1) :: LJOBZ, LUPLO, LRANGE local
187 IF( PRESENT(VL) .OR. PRESENT(VU) )THEN ; LRANGE = 'V'; LM=N
188 ELSE IF( PRESENT(IL) .OR. PRESENT(IU) )THEN ; LRANGE = 'I'; LM=LIU-LIL+1
189 ELSE ; LRANGE = 'A'; LM=N; END IF
199 ELSE IF( LSAME(LRANGE, 'I') .AND. ( LIU < MIN( N, LIL ) .OR. LIU>N))THEN; LINFO = -9
223 CALL SYGVX_F77( LITYPE, LJOBZ, LRANGE, LUPLO, N, A, LDA, B, &
237 CALL SYGVX_F77( LITYPE, LJOBZ, LRANGE, LUPLO, N, A, LDA, B, &
H A Dla_zhpgvx.f90158 CHARACTER(LEN=1) :: LJOBZ, LUPLO, LRANGE local
185 IF( PRESENT(VL) .OR. PRESENT(VU) )THEN; LRANGE = 'V'
186 ELSE IF( PRESENT(IL) .OR. PRESENT(IU) )THEN; LRANGE = 'I'
187 ELSE ; LRANGE = 'A'; END IF
198 ELSE IF( LSAME(LRANGE,'I') .AND. ( LIU < MIN(N, LIL) .OR. LIU > N ))THEN; LINFO = -9
213 CALL HPGVX_F77( LITYPE, LJOBZ, LRANGE, LUPLO, N, AP, BP, LVL, &
217 CALL HPGVX_F77( LITYPE, LJOBZ, LRANGE, LUPLO, N, AP, BP, LVL, &
H A Dla_zhbgvx.f90168 CHARACTER(LEN=1) :: LJOBZ, LUPLO, LRANGE local
196 IF( PRESENT(VL) .OR. PRESENT(VU) )THEN; LRANGE = 'V'
197 ELSE IF( PRESENT(IL) .OR. PRESENT(IU) )THEN; LRANGE = 'I'
198 ELSE; LRANGE = 'A' ; END IF
208 ELSE IF( LRANGE == 'I' .AND. ( LIU.LT.MIN( N, LIL ) .OR. LIU.GT.N)) THEN; LINFO = -8
228 CALL HBGVX_F77( LJOBZ, LRANGE, LUPLO, N, KAB, KBB, AB, LDAB, &
232 CALL HBGVX_F77( LJOBZ, LRANGE, LUPLO, N, KAB, KBB, AB, LDAB, &
H A Dla_ssbgvx.f90168 CHARACTER(LEN=1) :: LJOBZ, LUPLO, LRANGE local
195 IF( PRESENT(VL) .OR. PRESENT(VU) )THEN; LRANGE = 'V'
196 ELSE IF( PRESENT(IL) .OR. PRESENT(IU) )THEN; LRANGE = 'I'
197 ELSE; LRANGE = 'A' ; END IF
207 ELSE IF( LRANGE == 'I' .AND. ( LIU.LT.MIN( N, LIL ) .OR. LIU.GT.N)) THEN; LINFO = -8
227 CALL SBGVX_F77( LJOBZ, LRANGE, LUPLO, N, KAB, KBB, AB, LDAB, &
231 CALL SBGVX_F77( LJOBZ, LRANGE, LUPLO, N, KAB, KBB, AB, LDAB, &
H A Dla_chbgvx.f90168 CHARACTER(LEN=1) :: LJOBZ, LUPLO, LRANGE local
196 IF( PRESENT(VL) .OR. PRESENT(VU) )THEN; LRANGE = 'V'
197 ELSE IF( PRESENT(IL) .OR. PRESENT(IU) )THEN; LRANGE = 'I'
198 ELSE; LRANGE = 'A' ; END IF
208 ELSE IF( LRANGE == 'I' .AND. ( LIU.LT.MIN( N, LIL ) .OR. LIU.GT.N)) THEN; LINFO = -8
228 CALL HBGVX_F77( LJOBZ, LRANGE, LUPLO, N, KAB, KBB, AB, LDAB, &
232 CALL HBGVX_F77( LJOBZ, LRANGE, LUPLO, N, KAB, KBB, AB, LDAB, &
H A Dla_dsbgvx.f90168 CHARACTER(LEN=1) :: LJOBZ, LUPLO, LRANGE local
195 IF( PRESENT(VL) .OR. PRESENT(VU) )THEN; LRANGE = 'V'
196 ELSE IF( PRESENT(IL) .OR. PRESENT(IU) )THEN; LRANGE = 'I'
197 ELSE; LRANGE = 'A' ; END IF
207 ELSE IF( LRANGE == 'I' .AND. ( LIU.LT.MIN( N, LIL ) .OR. LIU.GT.N)) THEN; LINFO = -8
227 CALL SBGVX_F77( LJOBZ, LRANGE, LUPLO, N, KAB, KBB, AB, LDAB, &
231 CALL SBGVX_F77( LJOBZ, LRANGE, LUPLO, N, KAB, KBB, AB, LDAB, &
H A Dla_sstevx.f90131 CHARACTER(LEN=1) :: LJOBZ, LRANGE local
164 IF( PRESENT(VL) .OR. PRESENT(VU) )THEN; LRANGE = 'V'; LM = N
165 ELSE IF( PRESENT(IL) .OR. PRESENT(IU) )THEN; LRANGE = 'I'; LM = LIU-LIL+1
166 ELSE; LRANGE = 'A'; LM = N; END IF
179 CALL STEVX_F77( LJOBZ, LRANGE, N, D, E, LVL, LVU, LIL, LIU, &
182 CALL STEVX_F77( LJOBZ, LRANGE, N, D, E, LVL, LVU, LIL, LIU, &
H A Dla_dstevx.f90131 CHARACTER(LEN=1) :: LJOBZ, LRANGE local
164 IF( PRESENT(VL) .OR. PRESENT(VU) )THEN; LRANGE = 'V'; LM = N
165 ELSE IF( PRESENT(IL) .OR. PRESENT(IU) )THEN; LRANGE = 'I'; LM = LIU-LIL+1
166 ELSE; LRANGE = 'A'; LM = N; END IF
179 CALL STEVX_F77( LJOBZ, LRANGE, N, D, E, LVL, LVU, LIL, LIU, &
182 CALL STEVX_F77( LJOBZ, LRANGE, N, D, E, LVL, LVU, LIL, LIU, &
H A Dla_sspevx.f90138 CHARACTER(LEN=1) :: LJOBZ, LUPLO, LRANGE local
174 IF( PRESENT(VL) .OR. PRESENT(VU) )THEN; LRANGE = 'V'; LM = N
175 ELSE IF( PRESENT(IL) .OR. PRESENT(IU) )THEN; LRANGE = 'I'; LM = LIU-LIL+1
176 ELSE; LRANGE = 'A'; LM = N; END IF
188 CALL SPEVX_F77( LJOBZ, LRANGE, LUPLO, N, A, LVL, LVU, &
192 CALL SPEVX_F77( LJOBZ, LRANGE, LUPLO, N, A, LVL, LVU, &
H A Dla_dspevx.f90138 CHARACTER(LEN=1) :: LJOBZ, LUPLO, LRANGE local
174 IF( PRESENT(VL) .OR. PRESENT(VU) )THEN; LRANGE = 'V'; LM = N
175 ELSE IF( PRESENT(IL) .OR. PRESENT(IU) )THEN; LRANGE = 'I'; LM = LIU-LIL+1
176 ELSE; LRANGE = 'A'; LM = N; END IF
188 CALL SPEVX_F77( LJOBZ, LRANGE, LUPLO, N, A, LVL, LVU, &
192 CALL SPEVX_F77( LJOBZ, LRANGE, LUPLO, N, A, LVL, LVU, &
H A Dla_zheevr.f90129 CHARACTER(LEN=1) :: LJOBZ, LUPLO, LRANGE local
167 LRANGE = 'V'; LM = N
169 LRANGE = 'I'; LM = LIU-LIL+1
171 LRANGE = 'A'; LM = N
183 CALL HEEVR_F77( LJOBZ, LRANGE, LUPLO, N, A, LD, LVL, LVU, &
208 CALL HEEVR_F77( LJOBZ, LRANGE, LUPLO, N, A, LD, LVL, LVU, &
H A Dla_zhegvx.f90164 CHARACTER(LEN=1) :: LJOBZ, LUPLO, LRANGE local
186 IF( PRESENT(VL) .OR. PRESENT(VU) )THEN ; LRANGE = 'V'; LM=N
187 ELSE IF( PRESENT(IL) .OR. PRESENT(IU) )THEN ; LRANGE = 'I'; LM=LIU-LIL+1
188 ELSE ; LRANGE = 'A'; LM=N; END IF
198 ELSE IF( LSAME(LRANGE, 'I') .AND. ( LIU < MIN( N, LIL ) .OR. LIU>N))THEN; LINFO = -9
235 CALL HEGVX_F77( LITYPE, LJOBZ, LRANGE, LUPLO, N, A, LDA, B, &
H A Dla_chegvx.f90164 CHARACTER(LEN=1) :: LJOBZ, LUPLO, LRANGE local
186 IF( PRESENT(VL) .OR. PRESENT(VU) )THEN ; LRANGE = 'V'; LM=N
187 ELSE IF( PRESENT(IL) .OR. PRESENT(IU) )THEN ; LRANGE = 'I'; LM=LIU-LIL+1
188 ELSE ; LRANGE = 'A'; LM=N; END IF
198 ELSE IF( LSAME(LRANGE, 'I') .AND. ( LIU < MIN( N, LIL ) .OR. LIU>N))THEN; LINFO = -9
235 CALL HEGVX_F77( LITYPE, LJOBZ, LRANGE, LUPLO, N, A, LDA, B, &
H A Dla_chpevx.f90138 CHARACTER(LEN=1) :: LJOBZ, LUPLO, LRANGE local
175 IF( PRESENT(VL) .OR. PRESENT(VU) )THEN; LRANGE = 'V'; LM = N
176 ELSE IF( PRESENT(IL) .OR. PRESENT(IU) )THEN; LRANGE = 'I'; LM = LIU-LIL+1
177 ELSE; LRANGE = 'A'; LM = N; END IF
189 CALL HPEVX_F77( LJOBZ, LRANGE, LUPLO, N, A, LVL, LVU, &
193 CALL HPEVX_F77( LJOBZ, LRANGE, LUPLO, N, A, LVL, LVU, &
H A Dla_dsyevr.f90129 CHARACTER(LEN=1) :: LJOBZ, LUPLO, LRANGE local
165 LRANGE = 'V'; LM = N
167 LRANGE = 'I'; LM = LIU-LIL+1
169 LRANGE = 'A'; LM = N
180 CALL SYEVR_F77( LJOBZ, LRANGE, LUPLO, N, A, LD, LVL, LVU, &
202 CALL SYEVR_F77( LJOBZ, LRANGE, LUPLO, N, A, LD, LVL, LVU, &
H A Dla_cheevr.f90129 CHARACTER(LEN=1) :: LJOBZ, LUPLO, LRANGE local
167 LRANGE = 'V'; LM = N
169 LRANGE = 'I'; LM = LIU-LIL+1
171 LRANGE = 'A'; LM = N
183 CALL HEEVR_F77( LJOBZ, LRANGE, LUPLO, N, A, LD, LVL, LVU, &
208 CALL HEEVR_F77( LJOBZ, LRANGE, LUPLO, N, A, LD, LVL, LVU, &
H A Dla_ssyevr.f90129 CHARACTER(LEN=1) :: LJOBZ, LUPLO, LRANGE local
165 LRANGE = 'V'; LM = N
167 LRANGE = 'I'; LM = LIU-LIL+1
169 LRANGE = 'A'; LM = N
180 CALL SYEVR_F77( LJOBZ, LRANGE, LUPLO, N, A, LD, LVL, LVU, &
202 CALL SYEVR_F77( LJOBZ, LRANGE, LUPLO, N, A, LD, LVL, LVU, &
H A Dla_zhpevx.f90138 CHARACTER(LEN=1) :: LJOBZ, LUPLO, LRANGE local
175 IF( PRESENT(VL) .OR. PRESENT(VU) )THEN; LRANGE = 'V'; LM = N
176 ELSE IF( PRESENT(IL) .OR. PRESENT(IU) )THEN; LRANGE = 'I'; LM = LIU-LIL+1
177 ELSE; LRANGE = 'A'; LM = N; END IF
189 CALL HPEVX_F77( LJOBZ, LRANGE, LUPLO, N, A, LVL, LVU, &
193 CALL HPEVX_F77( LJOBZ, LRANGE, LUPLO, N, A, LVL, LVU, &
H A Dla_chbevx.f90149 CHARACTER(LEN=1) :: LJOBZ, LUPLO, LRANGE local
187 IF( PRESENT(VL) .OR. PRESENT(VU) )THEN; LRANGE = 'V'; LM = N
188 ELSE IF( PRESENT(IL) .OR. PRESENT(IU) )THEN; LRANGE = 'I'; LM = LIU-LIL+1
189 ELSE; LRANGE = 'A'; LM = N; END IF
205 CALL HBEVX_F77( LJOBZ, LRANGE, LUPLO, N, KD, A, LD, LQ, S1Q, LVL, LVU, &
209 CALL HBEVX_F77( LJOBZ, LRANGE, LUPLO, N, KD, A, LD, LQ, S1Q, LVL, LVU, &

123