C R0PS      TEMPORARY STORAGE FOR RC0
C
C R0PS      STORAGE FOR R0P
C
      LOGICAL         R0PS
C
      COMMON /R0PS/   R0PS