!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! SDDL Name:	WO_FHST_CALCS.SDDL
!
! Purpose:      This include file contains local common for FHST calcs
!
! Modification History:
!
!   Date       OPR      Who                       Reason
! --------   -------    ---   -------------------------------------------------
! 12/12/94    27329     MRB   Original implementation
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
!

LANGUAGE	FORTRAN

RECORD  WOFHST_TYPE

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


    DESCRIPTION      "local common for FHST calcs"



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



    FIELD  moon_flag
        TYPE            L*4
        DIMENSION       3
        DESCRIPTION     "flag indicating if FHST moon window has been computed"
    END_FIELD



    FIELD  moon_windows
        TYPE            I*4
        DIMENSION       2,3
        DESCRIPTION     "FHST moon windows"
    END_FIELD



    FIELD  sun_flag
        TYPE            L*4
        DIMENSION       3
        DESCRIPTION     "flag indicating if FHST sun window has been computed"
    END_FIELD



    FIELD  sun_windows
        TYPE            I*4
        DIMENSION       2,3
        DESCRIPTION     "FHST sun windows"
    END_FIELD



    FIELD  num_windows
        TYPE            I*4
        DIMENSION       3
        DESCRIPTION     "number of FHST windows"
    END_FIELD



    FIELD  windows
        TYPE            I*4
        DIMENSION       2,3
        DESCRIPTION     "FHST windows"
    END_FIELD


END_RECORD


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


INSTANCE  wo_fhst_calcs

    FILE        
    TYPE        WOFHST_TYPE
    GLOBAL

END_INSTANCE