CIPRIME CNIOUT                                                          CNIOUT      1
*IF -MI2                                                                CNIOUT      2
*ENDIF                                                                  CNIOUT      3
      COMMON /IOUT/ ICHAN,NOPTR,KOPTR(NOBLK),KOPDAT(NBUF*3)             CNIOUT      4
