BLOCK DATA 
 
      INTEGER GENRET 
      INTEGER MODEX 
      INTEGER RAWMDX 
      INTEGER SPTR 
      INTEGER TSTSTK 
      INTEGER SWAP 
      INTEGER TOPDP 
      INTEGER NEXTDP 
      INTEGER TOPSP 
      INTEGER NEXTSP 
      INTEGER SAVCAL 
      INTEGER OUT 
      INTEGER GETSP 
      INTEGER SMODEX 
      INTEGER SETX 
      INTEGER ICLP02 
      COMMON   /GENC/   GENRET 
      COMMON   /GENC/   MODEX 
      COMMON   /GENC/   RAWMDX 
      COMMON   /GENC/   SPTR 
      COMMON   /GENC/   TSTSTK 
      COMMON   /GENC/   SWAP 
      COMMON   /GENC/   TOPDP 
      COMMON   /GENC/   NEXTDP 
      COMMON   /GENC/   TOPSP 
      COMMON   /GENC/   NEXTSP 
      COMMON   /GENC/   SAVCAL 
      COMMON   /GENC/   OUT 
      COMMON   /GENC/   GETSP 
      COMMON   /GENC/   SMODEX 
      COMMON   /GENC/   SETX 
      COMMON   /GENC/   ICLP02 
      DATA  TSTSTK   /1/ 
      DATA  SWAP     /2/ 
      DATA  TOPDP    /3/ 
      DATA  NEXTDP   /4/ 
      DATA  TOPSP    /5/ 
      DATA  NEXTSP   /6/ 
      DATA  SAVCAL   /7/ 
      DATA  OUT      /8/ 
      DATA  GETSP    /9/ 
      DATA  SMODEX   /10/ 
      DATA  SETX     /11/ 
      END