C************************************************************************ C* * C* FILE NAME: OPTCHECK_COMMON.INC * C* * C* AUTHOR: H. SIEGEL, TRW, 24 MAY 1988 * C* * C* PURPOSE: COMMON VARIABLES FOR OPTCHECK TOOL * C* * C************************************************************************ C LOGICAL*1 LOG_FLAG LOGICAL*1 FULL_FLAG LOGICAL*1 ERROR_FLAG LOGICAL*1 EMPTY_FLAG LOGICAL*1 NOT_FOUND_FLAG C COMMON /OPTCHECK_FLAGS/ LOG_FLAG, 1 FULL_FLAG, 1 ERROR_FLAG, 1 EMPTY_FLAG, 1 NOT_FOUND_FLAG C