C-----------------------------------------------------------------------
C  ICPSOCK     Keven Miller   15 Jan 2001    kevenm@reeltapetransfer.com
C-----------------------------------------------------------------------
      INTEGER
     * IPC_AF_INET
     *,IPC_SOCK_STREAM
     *,IPC_SOCK_DGRAM
     *,IPC_OPT_ACCEPT
     *,IPC_OPT_REJECT
     *,IPC_OPT_TIMEOUT
     *,IPC_OPT_ABORTNW
     *,IPC_OPT_ENABLENW
     *,IPC_OPT_DISABLENW
     *,IPC_OPT_ENA_NWR
C
      PARAMETER
     * IPC_AF_INET      = 2
     *,IPC_SOCK_STREAM  = 1
     *,IPC_SOCK_DGRAM   = 2
     *,IPC_OPT_ACCEPT   = 9
     *,IPC_OPT_REJECT   = 15
     *,IPC_OPT_TIMEOUT  = 3
     *,IPC_OPT_ABORTNW  = 258
     *,IPC_OPT_ENABLENW = 1
     *,IPC_OPT_DISABLENW= 2
     *,IPC_OPT_ENA_NWR  = 256
C
C  PORT is actually a 16 bit unsigned number (1-65535)
C  Fortran does not supprt unisgned, so the ADR structure gives the
C  user a INTEGER*4 for port. The internal structure uses INTEGER*2
C  for the required family field.
C
      STRUCTURE /IPC_ADR/
         UNION
            MAP
               INTEGER*4   PORT
            END MAP
            MAP
               INTEGER*2   FAMILY, IPORT
            END MAP
         END UNION
         CHARACTER   IP*4
      END STRUCTURE
C-----------------------------------------------------------------------
C  IPCSOCK END
C-----------------------------------------------------------------------