253
254 CHARACTER*( * ) NAME, OPTS
255 INTEGER ISPEC, N1, N2, N3, N4
256
257
258
259
260
261 INTEGER IISPEC
262
263 INTEGER IPARAM2STAGE
265
266
267 INTEGER IPARMS( 100 )
268
269
270 COMMON / claenv / iparms
271
272
273 SAVE / claenv /
274
275
276
277 IF(( ispec.GE.1 ) .AND. (ispec.LE.5)) THEN
278
279
280
281 IF( ispec.EQ.1 ) THEN
283 ELSE
284 iispec = 16 + ispec
286 $ n1, n2, n3, n4 )
287 ENDIF
288
289 ELSE
290
291
292
294 END IF
295
296 RETURN
297
298
299
integer function ilaenv2stage(ispec, name, opts, n1, n2, n3, n4)
ILAENV2STAGE
integer function iparam2stage(ispec, name, opts, ni, nbi, ibi, nxi)
IPARAM2STAGE