record /stream_info/ streams(0:MAX_STREAMS+1)
        record /sub_proc/ procs(1:MAXPROCS+1)
        integer num_streams
        integer work_pending, last_stream, last_idx
        integer*4 cur_uic, cur_privs(1:2)

        common /global/ streams, procs, work_pending, last_stream,
     .                  last_idx, num_streams, cur_uic, cur_privs