CIPRIME GRLOGC                                                          GRLOGC      1
C                                                                       GRLOGC      2
      DATA              IEXPRE /1/,    IANDS   /2/,    IORS   /3/,      GRLOGC      3
     1    IFFLOP /4/,   NOTS   /5/,    IXORS   /6/,    ISWTCH /7/,      GRLOGC      4
     2    ITIMER /8/,   ICOUNT /9/,    IZEROS /10/                      GRLOGC      5
C                                                                       GRLOGC      6
