*COMDECK REALCOM                                                         NOV04
                             # NOTE: THIS COMMENT, AND THE FOLLOWING   # NOV04
                             # DEF ARE IN COL 30 SO COMPASS WILL IGNORE# NOV04
                             # THEM...                                 # NOV04
                             DEF   ENDC          #END#;                  NOV04
                             #                                           NOV04
*         THIS COMMON DECK MUST BE PROCESSED BY BOTH SYMPL AND COMPASS   NOV04
*                THIS FORCES SOME CHANGES IN THE USUAL CODING STDS..     NOV04
*                ALSO, SINCE IT IS (1) SHORT, AND (2) A BOTHER TO TURN   NOV04
*                OFF THE LISTING, WE LEAVE IT LISTED...                # NOV04
                                                                         NOV04
       COMMON    REALCOM ;                                               NOV04
          BEGIN                                                          NOV04
          ITEM   TPYRE       I;    # EXPONENT PART OF REAL NR #          NOV04
          ITEM   TPYREX      I;    # EXCESS DIGIT COUNT IN TPYRFU      # SMPA029
          ITEM   TPYRF       I;    # FRACTION PART OF REAL NR #          NOV04
          ITEM   TPYRFL      I;    # LENGTH OF THE FRACTION - CHARS #    NOV04
          ITEM   TPYRFU      I;    # UPPER PREC. PART OF LONG FRACT.   # SMPA029
          ITEM   TPYRI       I;    # INTEGER  PART OF REAL NR #          NOV04
          ITEM   TPYRIEX     I;    # EXCESS DIGIT COUNT IN TPYRIU      # SMPA029
          ITEM   TPYRIU      I;    # UPPER PREC. PART OF TPYRI         # SMPA029
          ITEM   TPYRS       I;    # EXPONENT SIGN #                     NOV04
          ITEM   DUBL1       R;    # REAL NUMBER RETURNED #              NOV04
          ITEM   REALERR     I;    # ERROR FLAG #                        NOV04
          ENDC                                                           NOV04
