!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! SDDL Name:	WINDOW_TABLE.SDDL
!
! Purpose:      This include file contains windowing arrays and variables
!
! Modification History:
!
!   Date       OPR      Who                       Reason
! --------   -------    ---   -------------------------------------------------
! 12/13/94    27329     NSS   Original implementation
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
!

LANGUAGE	FORTRAN

RECORD  WDWTBL_TYPE

!------------------------------------------------------------------------------
!
!   RECORD INFORMATION
!
!------------------------------------------------------------------------------


    DESCRIPTION      "windowing arrays and variables"



!------------------------------------------------------------------------------
!
!   FIELD INFORMATION
!
!------------------------------------------------------------------------------



    FIELD  normal
        TYPE            I*4
        DIMENSION       2,500,10
    END_FIELD



    FIELD  off_normal
        TYPE            I*4
        DIMENSION       2,500,10
    END_FIELD



    FIELD  user
        TYPE            I*4
        DIMENSION       2,100
    END_FIELD



    FIELD  tv
        TYPE            I*4
        DIMENSION       2,500
    END_FIELD



    FIELD  sn
        TYPE            I*4
        DIMENSION       2,100
    END_FIELD



    FIELD  so
        TYPE            I*4
        DIMENSION       2,100
    END_FIELD



    FIELD  pc
        TYPE            I*4
        DIMENSION       2,500
    END_FIELD



    FIELD  dn
        TYPE            I*4
        DIMENSION       2,500
    END_FIELD



    FIELD  do
        TYPE            I*4
        DIMENSION       2,500
    END_FIELD



    FIELD  rn
        TYPE            I*4
        DIMENSION       2,500
    END_FIELD



    FIELD  ro
        TYPE            I*4
        DIMENSION       2,500
    END_FIELD



    FIELD  sf
        TYPE            I*4
        DIMENSION       2,500
    END_FIELD



    FIELD  an
        TYPE            I*4
        DIMENSION       2,500
    END_FIELD



    FIELD  ao
        TYPE            I*4
        DIMENSION       2,500
    END_FIELD



    FIELD  tmp_rn
        TYPE            I*4
        DIMENSION       2,500
    END_FIELD



    FIELD  tmp_ro
        TYPE            I*4
        DIMENSION       2,500
!
!	Window counters
!
    END_FIELD



    FIELD  num_ro
        TYPE            I*2
    END_FIELD



    FIELD  num_rn
        TYPE            I*2
    END_FIELD



    FIELD  num_tmp_ro
        TYPE            I*2
    END_FIELD



    FIELD  num_tmp_rn
        TYPE            I*2
    END_FIELD



    FIELD  num_us
        TYPE            I*2
    END_FIELD



    FIELD  num_sn
        TYPE            I*2
    END_FIELD



    FIELD  num_so
        TYPE            I*2
    END_FIELD



    FIELD  num_tv
        TYPE            I*2
    END_FIELD



    FIELD  num_pc
        TYPE            I*2
    END_FIELD



    FIELD  num_sf
        TYPE            I*2
    END_FIELD



    FIELD  num_dn
        TYPE            I*2
    END_FIELD



    FIELD  num_do
        TYPE            I*2
    END_FIELD



    FIELD  total_num_normal
        TYPE            I*2
    END_FIELD



    FIELD  total_num_off_normal
        TYPE            I*2
    END_FIELD



    FIELD  num_normal
        TYPE            I*2
        DIMENSION       10
    END_FIELD



    FIELD  num_off_normal
        TYPE            I*2
        DIMENSION       10
!
!	Derived normal and off normal flags
!
    END_FIELD



    FIELD  derived_normal
        TYPE            L*1
    END_FIELD



    FIELD  derived_off_normal
        TYPE            L*1
!
!	Window parameters for the QUUWIN and QUUWUN routines. The following
!	 variables are used for maximum number of windows and set of windows.
!	 The values for these parameters are defined in QUUWND.EQE as data
!	 statements.
!
!	Parameter A is the window dimension for SN and SO windows.
!	Parameter B is the default window dimension.
!	Parameter C is spare.
!	Parameter D is spare.
!	Parameter E is the number of window types to be intersected.
!
    END_FIELD



    FIELD  sn_so_dim
        TYPE            I*2
    END_FIELD



    FIELD  default_dim
        TYPE            I*2
    END_FIELD



    FIELD  spare_1
        TYPE            I*2
    END_FIELD



    FIELD  spare_2
        TYPE            I*2
    END_FIELD



    FIELD  num_window_types
        TYPE            I*2
    END_FIELD


END_RECORD


!------------------------------------------------------------------------------
!
!   INSTANCE DECLARATION
!
!------------------------------------------------------------------------------


INSTANCE  window_table

    FILE        
    TYPE        WDWTBL_TYPE
    GLOBAL

END_INSTANCE