1* 2* $Id$ 3* 4 logical io_on 5 integer io_unit 6 7 common /util_io_data/ 8 & io_on, 9 & io_unit 10 11