*COMDECK NUMCOM                                                          SMPA029
          CONTROL  NOLIST;   # NUMCOM#                                   SMPA029
#----------------------------------------------------------------------# SMPA029
#                                                                      # SMPA029
#         COMDECK NUMCOM - NUMERIC CONVERSION COMMON DECK: SHARED      # SMPA029
#           BETWEEN SPRECG AND PF11 FOR INTEGER AND REAL CONSTANT      # SMPA029
#           CONVERSION.                                                # SMPA029
#                                                                      # SMPA029
#----------------------------------------------------------------------# SMPA029
                                                                         SMPA029
          DEF   INTMAX       #14#; # MAXIMUM DIGITS IN 47 BITS         # SMPA029
          COMMON NUMCOM;                                                 SMPA029
            BEGIN                                                        SMPA029
            ITEM   DIVAL     I;    # NORMAL VALUE OF CURRENT INTEGER   # SMPA029
            ITEM   DIVALU    I;    # UPPER PART OF D.P. VALUE          # SMPA029
            ITEM   DPFLG     B;    # SINGLE/DOUBLE PRECISION FLAG      # SMPA029
            ITEM   LDZERO    I;    # COUNT OF LEADING ZEROS IN NR      # SMPA029
            ITEM   TRZERO    I;    # COUNT OF TRAILING ZEROS IN NR     # SMPA029
            END                                                          SMPA029
                                                                         SMPA029
          CONTROL  LIST;     # NUMCOM #                                  SMPA029
