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
189 ELSE IF( ispec.EQ.6 )
THEN
193 ilaenv = int(
REAL( MIN( N1, N2 ) )*1.6e0 )
195 ELSE IF( ispec.GE.7 .AND. ispec.LE.9 )
THEN
201 ELSE IF( ispec.EQ.10 )
THEN
208 ilaenv = ieeeck( 1, 0.0, 1.0 )
211 ELSE IF( ispec.EQ.11 )
THEN
218 ilaenv = ieeeck( 0, 0.0, 1.0 )
integer function ilaenv(ISPEC, NAME, OPTS, N1, N2, N3, N4)