LAPACK 3.11.0 LAPACK: Linear Algebra PACKage
Searching...
No Matches

## ◆ ilaenv2stage()

 integer function ilaenv2stage ( integer ISPEC, character*( * ) NAME, character*( * ) OPTS, integer N1, integer N2, integer N3, integer N4 )

Definition at line 244 of file ilaenv.f.

246* .. Scalar Arguments ..
247 CHARACTER*( * ) NAME, OPTS
248 INTEGER ISPEC, N1, N2, N3, N4
249* ..
250*
251* =====================================================================
252*
253* .. Local variables ..
254 INTEGER IISPEC
255* .. External Functions ..
256 INTEGER IPARAM2STAGE
257 EXTERNAL iparam2stage
258* ..
259* .. Arrays in Common ..
260 INTEGER IPARMS( 100 )
261* ..
262* .. Common blocks ..
263 COMMON / claenv / iparms
264* ..
265* .. Save statement ..
266 SAVE / claenv /
267* ..
268* .. Executable Statements ..
269*
270 IF(( ispec.GE.1 ) .AND. (ispec.LE.5)) THEN
271*
272* 1 <= ISPEC <= 5: 2stage eigenvalues SVD routines.
273*
274 IF( ispec.EQ.1 ) THEN
275 ilaenv2stage = iparms( 1 )
276 ELSE
277 iispec = 16 + ispec
278 ilaenv2stage = iparam2stage( iispec, name, opts,
279 \$ n1, n2, n3, n4 )
280 ENDIF
281*
282 ELSE
283*
284* Invalid value for ISPEC
285*
286 ilaenv2stage = -1
287 END IF
288*
289 RETURN
integer function ilaenv2stage(ISPEC, NAME, OPTS, N1, N2, N3, N4)
ILAENV2STAGE
Definition: ilaenv2stage.f:149
integer function iparam2stage(ISPEC, NAME, OPTS, NI, NBI, IBI, NXI)
IPARAM2STAGE
Definition: iparam2stage.F:155
Here is the call graph for this function: