+KEEP,$DECK.
C
C     Purpose...
C
      INTEGER ...
      REAL ...
      COMMON/$DECK/

