BLOCK DATA 
 
      INTEGER  CLRACV 
      INTEGER  CLRACX 
      INTEGER  CLRSTA 
      INTEGER  TRAREG 
      INTEGER  SAVREG 
      INTEGER  CTFREE 
      INTEGER  SETREG 
      INTEGER  ICLP11 
      COMMON   /RMCODE/ CLRACV, CLRACX, CLRSTA, TRAREG, SAVREG 
      COMMON   /RMCODE/ CTFREE, SETREG 
      COMMON   /RMCODE/ ICLP11 
      DATA  CLRACV   / 1 / 
      DATA  CLRACX   / 2 / 
      DATA  CLRSTA   / 3 / 
      DATA  TRAREG   / 4 / 
      DATA  SAVREG   / 5 / 
      DATA  CTFREE   / 6 / 
      DATA  SETREG   / 7 / 
      END