    SUBROUTINE INITDGNSERVER
!
    USE DGNSERV
    USE DGNSOUT
    USE CTLBLK
!
    IMPLICIT NONE
!
    OPEN(21,FILE="octagrph.1",STATUS='OLD',FORM="UNFORMATTED")
    READ(21) GLON, GLAT, XMP0, YMP0, KMP0, U2US, V2US, U2VS, V2VS
    CLOSE(21)
!
    OPEN(21,FILE='dgnsserver.dat',STATUS='OLD',FORM='UNFORMATTED')
    READ(21) NTSTM, DGNNUM, DGNSTR, IDGNS
    CLOSE(21)
!
    DGNNUM   = 0
    TLLAVG   = 0
    TLLAVG2  = 0
    ULLAVG   = 0
    ULLAVG2  = 0
    TZN2_AVG = 0.
    UVAR_AVG = 0.
!
     END SUBROUTINE INITDGNSERVER
