CIPRIME CNSGAL                                                          CNSGAL      1
*IF -MI2                                                                CNSGAL      2
      INTEGER*2 KQUAT,NKK,ICOUNT                                        CNSGAL      3
*ENDIF                                                                  CNSGAL      4
      COMMON/SIGNAL/ DSTOLD(MP),ICOUNT,KQUAT(MP),NKK(MP)                CNSGAL      5
