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
211 ELSE IF( ispec.EQ.11 )
THEN
INTEGER function ieeeck(ISPEC, ZERO, ONE)
INTEGER function ilaenv(ISPEC, NAME, OPTS, N1, N2, N3, N4)