ilaenv.f File Reference

Go to the source code of this file.

Functions/Subroutines
integer function	ilaenv (ispec, name, opts, n1, n2, n3, n4)
	ILAENV
integer function	ilaenv2stage (ispec, name, opts, n1, n2, n3, n4)

Function/Subroutine Documentation

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