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

◆ ilaenv2stage()

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

Definition at line 251 of file ilaenv.f.

253* .. Scalar Arguments ..
254 CHARACTER*( * ) NAME, OPTS
255 INTEGER ISPEC, N1, N2, N3, N4
256* ..
257*
258* =====================================================================
259*
260* .. Local variables ..
261 INTEGER IISPEC
262* .. External Functions ..
263 INTEGER IPARAM2STAGE
264 EXTERNAL iparam2stage
265* ..
266* .. Arrays in Common ..
267 INTEGER IPARMS( 100 )
268* ..
269* .. Common blocks ..
270 COMMON / claenv / iparms
271* ..
272* .. Save statement ..
273 SAVE / claenv /
274* ..
275* .. Executable Statements ..
276*
277 IF(( ispec.GE.1 ) .AND. (ispec.LE.5)) THEN
278*
279* 1 <= ISPEC <= 5: 2stage eigenvalues SVD routines.
280*
281 IF( ispec.EQ.1 ) THEN
282 ilaenv2stage = iparms( 1 )
283 ELSE
284 iispec = 16 + ispec
285 ilaenv2stage = iparam2stage( iispec, name, opts,
286 $ n1, n2, n3, n4 )
287 ENDIF
288*
289 ELSE
290*
291* Invalid value for ISPEC
292*
293 ilaenv2stage = -1
294 END IF
295*
296 RETURN
297*
298* End of ILAENV2STAGE
299*
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: