C INTEGER STDOUT C COMMON /IOUNIT/ & STDOUT, LCNTRL, LUNCO, LUNLL, LUNOUT save /IOUNIT/ C