      subroutine $DECK
*
*-----------------------------------------------------------------------
*
*     What the subroutine does
*
*     Called by ...
*
*-----------------------------------------------------------------------
*
+cde,
*
 9000 continue
*
      end
