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.

*     .. Scalar Arguments ..
      CHARACTER*( * )    NAME, OPTS
      INTEGER            ISPEC, N1, N2, N3, N4
*     ..
*
*  =====================================================================
*
*     .. Local variables ..
      INTEGER            IISPEC
*     .. External Functions ..
      INTEGER            IPARAM2STAGE
      EXTERNAL           iparam2stage
*     ..
*     .. Arrays in Common ..
      INTEGER            IPARMS( 100 )
*     ..
*     .. Common blocks ..
      COMMON             / claenv / iparms
*     ..
*     .. Save statement ..
      SAVE               / claenv /
*     ..
*     .. Executable Statements ..
*
      IF(( ispec.GE.1 ) .AND. (ispec.LE.5)) THEN
*
*     1 <= ISPEC <= 5: 2stage eigenvalues SVD routines. 
*
         IF( ispec.EQ.1 ) THEN
             ilaenv2stage = iparms( 1 )
         ELSE
             iispec = 16 + ispec
             ilaenv2stage = iparam2stage( iispec, name, opts,
     $                                    n1, n2, n3, n4 ) 
         ENDIF
*
      ELSE
*
*        Invalid value for ISPEC
*
         ilaenv2stage = -1
      END IF
*
      RETURN

Here is the call graph for this function: