------------------------------------------------------------------ -- -- NAME: GET_OUTPUT_ATTRIBUTES -- DISCREPANCY REPORTS: -- ------------------------------------------------------------------ -- file: get_output_attr_mb.ada -- level: mb - 2b with GKS_TYPES; with SQUARE_ROOT; with OUTPUT_ATTRIBUTES_TYPE; with TRANSFORMATION_MATH; use GKS_TYPES; package GET_OUTPUT_ATTRIBUTES IS -- This package provides the procedure to initialise the record -- OUTPUT_ATTRIBUTES_TYPE.OUTPUT_ATTRIBUTES with the current -- attribute information from the GKS_STATE_LIST. procedure GET_ATTRIBUTES (LATEST_OUTPUT_ATTRIBUTES : out OUTPUT_ATTRIBUTES_TYPE. OUTPUT_ATTRIBUTES); end GET_OUTPUT_ATTRIBUTES;