150 INTEGER FUNCTION ilaenv( ISPEC, NAME, OPTS, N1, N2, N3,
159 CHARACTER*( * ) NAME, OPTS
160 INTEGER ISPEC, N1, N2, N3, N4
166 INTRINSIC int, min, real
173 INTEGER IPARMS( 100 )
176 COMMON / claenv / iparms
183 IF( ispec.GE.1 .AND. ispec.LE.5 )
THEN
187 IF ( name(2:6).EQ.
'GEQR ' )
THEN
193 ELSE IF ( name(2:6).EQ.
'GELQ ' )
THEN
203 ELSE IF( ispec.EQ.6 )
THEN
207 ilaenv = int(
REAL( MIN( N1, N2 ) )*1.6e0 )
209 ELSE IF( ispec.GE.7 .AND. ispec.LE.9 )
THEN
215 ELSE IF( ispec.EQ.10 )
THEN
222 ilaenv = ieeeck( 1, 0.0, 1.0 )
225 ELSE IF( ispec.EQ.11 )
THEN
232 ilaenv = ieeeck( 0, 0.0, 1.0 )
integer function ilaenv(ISPEC, NAME, OPTS, N1, N2, N3, N4)
ILAENV