INTEGER*4 ICPPRT_MAXNAMES,	ICPPRT_MINNAMES
      PARAMETER(ICPPRT_MAXNAMES=50,
     +		ICPPRT_MINNAMES=36)
      CHARACTER*24 CCVPRT_PROTNAM(ICPPRT_MAXNAMES)
      INTEGER*2 NCVPRT_PROTNAMLEN(ICPPRT_MAXNAMES),
     +		NCVPRT_PROT_NUM(ICPPRT_MAXNAMES)
      INTEGER*4 ICVPRT_NUMNAMES/ICPPRT_MINNAMES/
      COMMON /PROTOCOL_NAMES/ ICVPRT_NUMNAMES, NCVPRT_PROTNAMLEN,
     +		NCVPRT_PROT_NUM, CCVPRT_PROTNAM
      DATA NCVPRT_PROT_NUM(1)/'0002'X/, NCVPRT_PROTNAMLEN(1)/10/,
     +	   CCVPRT_PROTNAM(1)/'XEROX: PUP'/
      DATA NCVPRT_PROT_NUM(2)/'0102'X/, NCVPRT_PROTNAMLEN(2)/22/,
     +	   CCVPRT_PROTNAM(2)/'XEROX: PUP Addr. Trans'/
      DATA NCVPRT_PROT_NUM(3)/'0006'X/, NCVPRT_PROTNAMLEN(3)/13/,
     +	   CCVPRT_PROTNAM(3)/'XEROX: NS IDP'/
      DATA NCVPRT_PROT_NUM(4)/'0008'X/, NCVPRT_PROTNAMLEN(4)/17/,
     +	   CCVPRT_PROTNAM(4)/'Internet IP (DOD)'/
      DATA NCVPRT_PROT_NUM(5)/'0108'X/, NCVPRT_PROTNAMLEN(5)/18/,
     +	   CCVPRT_PROTNAM(5)/'Internet IP (X.75)'/
      DATA NCVPRT_PROT_NUM(6)/'0208'X/, NCVPRT_PROTNAMLEN(6)/17/,
     +	   CCVPRT_PROTNAM(6)/'Internet IP (NBS)'/
      DATA NCVPRT_PROT_NUM(7)/'0308'X/, NCVPRT_PROTNAMLEN(7)/18/,
     +	   CCVPRT_PROTNAM(7)/'Internet IP (ECMA)'/
      DATA NCVPRT_PROT_NUM(8)/'0408'X/, NCVPRT_PROTNAMLEN(8)/8/,
     +	   CCVPRT_PROTNAM(8)/'Chaosnet'/
      DATA NCVPRT_PROT_NUM(9)/'0508'X/, NCVPRT_PROTNAMLEN(9)/12/,
     +	   CCVPRT_PROTNAM(9)/'X.25 Level 3'/
      DATA NCVPRT_PROT_NUM(10)/'0608'X/, NCVPRT_PROTNAMLEN(10)/12/,
     +	   CCVPRT_PROTNAM(10)/'Internet ARP'/
      DATA NCVPRT_PROT_NUM(11)/'0708'X/, NCVPRT_PROTNAMLEN(11)/17/,
     +	   CCVPRT_PROTNAM(11)/'XNS Compatibility'/
      DATA NCVPRT_PROT_NUM(12)/'1C08'X/, NCVPRT_PROTNAMLEN(12)/18/,
     +	   CCVPRT_PROTNAM(12)/'Symbolics: private'/
      DATA NCVPRT_PROT_NUM(13)/'8808'X/, NCVPRT_PROTNAMLEN(13)/20/,
     +	   CCVPRT_PROTNAM(13)/'Xyplex: terminal net'/
      DATA NCVPRT_PROT_NUM(14)/'0010'X/, NCVPRT_PROTNAMLEN(14)/17/,
     +	   CCVPRT_PROTNAM(14)/'Berkeley: trailer'/
      DATA NCVPRT_PROT_NUM(15)/'0110'X/, NCVPRT_PROTNAMLEN(15)/10/,
     +	   CCVPRT_PROTNAM(15)/'NFS #1 (?)'/
      DATA NCVPRT_PROT_NUM(16)/'0210'X/, NCVPRT_PROTNAMLEN(16)/10/,
     +	   CCVPRT_PROTNAM(16)/'NFS #2 (?)'/
      DATA NCVPRT_PROT_NUM(17)/'0016'X/, NCVPRT_PROTNAMLEN(17)/9/,
     +	   CCVPRT_PROTNAM(17)/'- valid -'/
      DATA NCVPRT_PROT_NUM(18)/'0852'X/, NCVPRT_PROTNAMLEN(18)/11/,
     +	   CCVPRT_PROTNAM(18)/'BBN: Simnet'/
      DATA NCVPRT_PROT_NUM(19)/'0160'X/, NCVPRT_PROTNAMLEN(19)/18/,
     +	   CCVPRT_PROTNAM(19)/'DEC: MOP Dump/Load'/
      DATA NCVPRT_PROT_NUM(20)/'0260'X/, NCVPRT_PROTNAMLEN(20)/23/,
     +	   CCVPRT_PROTNAM(20)/'DEC: MOP Remote Console'/
      DATA NCVPRT_PROT_NUM(21)/'0360'X/, NCVPRT_PROTNAMLEN(21)/19/,
     +	   CCVPRT_PROTNAM(21)/'DEC: DECnet Phase 4'/
      DATA NCVPRT_PROT_NUM(22)/'0460'X/, NCVPRT_PROTNAMLEN(22)/8/,
     +	   CCVPRT_PROTNAM(22)/'DEC: LAT'/
      DATA NCVPRT_PROT_NUM(23)/'0560'X/, NCVPRT_PROTNAMLEN(23)/16/,
     +	   CCVPRT_PROTNAM(23)/'DEC: Diagnostics'/
      DATA NCVPRT_PROT_NUM(24)/'0660'X/, NCVPRT_PROTNAMLEN(24)/20/,
     +	   CCVPRT_PROTNAM(24)/'DEC: Customer/VAXELN'/
      DATA NCVPRT_PROT_NUM(25)/'0760'X/, NCVPRT_PROTNAMLEN(25)/9/,
     +	   CCVPRT_PROTNAM(25)/'DEC: LAVC'/
      DATA NCVPRT_PROT_NUM(26)/'0380'X/, NCVPRT_PROTNAMLEN(26)/10/,
     +	   CCVPRT_PROTNAM(26)/'Cronus VLN'/
      DATA NCVPRT_PROT_NUM(27)/'0480'X/, NCVPRT_PROTNAMLEN(27)/13/,
     +	   CCVPRT_PROTNAM(27)/'Cronus Direct'/
      DATA NCVPRT_PROT_NUM(28)/'0580'X/, NCVPRT_PROTNAMLEN(28)/8/,
     +	   CCVPRT_PROTNAM(28)/'HP Probe'/
      DATA NCVPRT_PROT_NUM(29)/'0680'X/, NCVPRT_PROTNAMLEN(29)/6/,
     +	   CCVPRT_PROTNAM(29)/'Nestar'/
      DATA NCVPRT_PROT_NUM(30)/'1080'X/, NCVPRT_PROTNAMLEN(30)/7/,
     +	   CCVPRT_PROTNAM(30)/'Excelan'/
      DATA NCVPRT_PROT_NUM(31)/'3580'X/, NCVPRT_PROTNAMLEN(31)/11/,
     +	   CCVPRT_PROTNAM(31)/'Reverse ARP'/
      DATA NCVPRT_PROT_NUM(32)/'3880'X/, NCVPRT_PROTNAMLEN(32)/19/,
     +	   CCVPRT_PROTNAM(32)/'DEC: DIGITAL Bridge'/
      DATA NCVPRT_PROT_NUM(33)/'3F80'X/, NCVPRT_PROTNAMLEN(33)/24/,
     +	   CCVPRT_PROTNAM(33)/'DEC: LAN Traffic Monitor'/
      DATA NCVPRT_PROT_NUM(34)/'7C80'X/, NCVPRT_PROTNAMLEN(34)/16/,
     +	   CCVPRT_PROTNAM(34)/'Merit Internodal'/
      DATA NCVPRT_PROT_NUM(35)/'9B80'X/, NCVPRT_PROTNAMLEN(35)/9/,
     +	   CCVPRT_PROTNAM(35)/'AppleTalk'/
      DATA NCVPRT_PROT_NUM(36)/'0090'X/, NCVPRT_PROTNAMLEN(36)/8/,
     +	   CCVPRT_PROTNAM(36)/'Loopback'/