INTEGER*4 ICPTCP_NUMIP, ICPTCP_MAXUDPPRT, ICPTCP_MAXTCPPRT
      PARAMETER(ICPTCP_NUMIP=61,
     +		ICPTCP_MAXUDPPRT=35,
     +		ICPTCP_MAXTCPPRT=57)
C
      BYTE	BCVTCP_IPPRT(ICPTCP_NUMIP)
      CHARACTER*14 CCVTCP_UDPPRT(ICPTCP_MAXUDPPRT),
     +		CCVTCP_TCPPRT(ICPTCP_MAXTCPPRT)
      CHARACTER*40 CCVTCP_IPNAM(ICPTCP_NUMIP)
      INTEGER*2 NCVTCP_IPNAMLEN(ICPTCP_NUMIP),
     +		NCVTCP_UDPPRT(ICPTCP_MAXUDPPRT),
     +		NCVTCP_UDPPRTLEN(ICPTCP_MAXUDPPRT),
     +		NCVTCP_TCPPRT(ICPTCP_MAXTCPPRT),
     +		NCVTCP_TCPPRTLEN(ICPTCP_MAXTCPPRT)
      COMMON /TCPIP_NAMES/ NCVTCP_IPNAMLEN, NCVTCP_UDPPRT,
     +		NCVTCP_UDPPRTLEN, NCVTCP_TCPPRT,
     +		NCVTCP_TCPPRTLEN, BCVTCP_IPPRT,
     +		CCVTCP_UDPPRT, CCVTCP_TCPPRT, CCVTCP_IPNAM
      DATA (BCVTCP_IPPRT(I), NCVTCP_IPNAMLEN(I), CCVTCP_IPNAM(I),
     +	I=1,ICPTCP_NUMIP)/  0, 12, '- reserved -',
     +	  1, 31, 'ICMP (Internet Control Message)',
     +	  2, 32, 'IGMP (Internet Group Management)',
     +	  3, 24, 'GGP (Gateway-to-Gateway)',
     +	  5, 11, 'ST (Stream)',
     +	  6, 26, 'TCP (Transmission Control)',
     +	  7,  3, 'UCL',
     +	  8, 22, 'EGP (Exterior Gateway)',
     +	  9, 30, 'IGP (private interior gateway)',
     +	 10, 32, 'BBN-RCC-MON (BBN RCC Monitoring)',
     +	 11, 31, 'NVP-II (Network Voice Protocol)',
     +	 12,  3, 'PUP',
     +	 13,  5, 'ARGUS',
     +	 14,  5, 'EMCON',
     +	 15, 25, 'XNET (Cross Net Debugger)',
     +	 16,  5, 'Chaos',
     +	 17, 19, 'UDP (User Datagram)',
     +	 18, 18, 'MUX (Multiplexing)',
     +	 19, 37, 'DCN-MEAS (DCN Measurement Subsystems)',
     +	 20, 30, 'HMP (Host Monitoring Protocol)',
     +	 21, 30, 'PRM (Packet Radio Measurement)',
     +	 22, 22, 'XNS-IDP (XEROX NS IDP)',
     +	 23,  7, 'Trunk-1',
     +	 24,  7, 'Trunk-2',
     +	 25,  6, 'Leaf-1',
     +	 26,  6, 'Leaf-2',
     +	 27, 28, 'RDP (Reliable Data Protocol)',
     +	 28, 36, 'IRTP (Internet Reliable Transaction)',
     +	 29, 40, 'ISO-TP4 (ISO Transport Protocol Class 4)',
     +	 30, 36, 'NETBLT (Bulk Data Transfer protocol)',
     +	 31, 39, 'MFE-NSP (MFE Network Services Protocol)',
     +	 32, 37, 'MERIT-INP (MERIT Internodal Protocol)',
     +	 33, 34, 'SEP (Sequential Exchange Protocol)',
     +	 61, 28, '(any host internal protocol)',
     +	 62,  4, 'CFTP',
     +	 63, 19, '(any local network)',
     +	 64, 35, 'SAT-EXPAK (SATNET & Backroom EXPAK)',
     +	 65, 31, 'MIT-SUBNET (MIT Subnet Support)',
     +	 66, 38, 'RVD (MIT Remote Virtual Disk Protocol)',
     +	 67, 36, 'IPPC (Internet Pluribus Packet Core)',
     +	 68, 29, '(any distributed file system)',
     +	 69, 27, 'SAT-MON (SATNET Monitoring)',
     +	 70, 13, 'VISA Protocol',
     +	 71, 35, 'IPCV (Internet Packet Core Utility)',
     +	 76, 39, 'BR-SAT-MON (Backroom SATNET Monitoring)',
     +	 77, 34, 'SUN-ND (Sun ND protocol-temporary)',
     +	 78, 28, 'WB-MON (WIDEBAND Monitoring)',
     +	 79, 25, 'WB-EXPAK (WIDEBAND EXPAK)',
     +	 80, 30, 'ISO-IP (ISO Internet Protocol)',
     +	 81,  4, 'VMTP',
     +	 82, 11, 'SECURE-VMTP',
     +	 83,  5, 'VINES',
     +	 84,  3, 'TTP',
     +	 85, 10, 'NSFNET-IGP',
     +	 86, 33, 'DGP (Dissimilar Gateway Protocol)',
     +	 87,  3, 'TCF',
     +	 88,  4, 'IGRP',
     +	 89,  7, 'OSPFIGP',
     +	 90, 10, 'Sprite-RPC',
     +	 91, 40, 'LARP (Locus Address Resolution Protocol)',
     +	255, 12, '- reserved -'
     +		/
      DATA (NCVTCP_TCPPRT(I), NCVTCP_TCPPRTLEN(I), CCVTCP_TCPPRT(I),
     +	I=1,ICPTCP_MAXTCPPRT)/  1,  6, 'TCPMUX',
     +	   6,  3, 'RJE',
     +	   7,  4, 'ECHO',
     +	   9,  7, 'DISCARD',
     +	  11,  6, 'SYSTAT',
     +	  13,  7, 'DAYTIME',
     +	  15,  7, 'NETSTAT',
     +	  17,  5, 'QUOTE',
     +	  19,  7, 'CHARGEN',
     +	  20,  8, 'FTP-DATA',
     +	  21,  3, 'FTP',
     +	  23,  6, 'TELNET',
     +	  25,  4, 'SMTP',
     +	  35,  6, 'IMAGEN',
     +	  37,  9, 'TIMSERVER',
     +	  39,  3, 'RLP',
     +	  42, 10, 'NAMESERVER',
     +	  43,  5, 'WHOIS',
     +	  53,  6, 'DOMAIN',
     +	  57,  3, 'MTP',
     +	  65,  9, 'TACACS-DS',
     +	  77,  3, 'RJE',
     +	  79,  6, 'FINGER',
     +	  87,  7, 'TTYLINK',
     +	  95,  6, 'SUPDUP',
     +	 101,  8, 'HOSTNAME',
     +	 102,  8, 'ISO-TSAP',
     +	 103,  4, 'X400',
     +	 104,  8, 'X400-SND',
     +	 105,  8, 'CSNET-NS',
     +	 109,  4, 'POP2',
     +	 110,  4, 'POP3',
     +	 111, 14, 'RPC portmapper',
     +	 113, 14, 'authd (RFC931)',
     +	 115,  4, 'SFTP',
     +	 117,  9, 'UUCP-PATH',
     +	 119,  4, 'NNTP',
     +	 137, 10, 'NETBIOS-NS',
     +	 138, 11, 'NETBIOS-DGM',
     +	 139, 11, 'NETBIOS-SSN',
     +	 143,  4, 'IMAP',
     +	 144,  4, 'NeWS',
     +	 191,  8, 'Prospero',
     +	 194,  3, 'IRC',
     +	 512,  5, 'REXEC',
     +	 513,  6, 'RLOGIN',
     +	 514,  6, 'RSHELL',
     +	 515, 13, 'PRINTER (LPD)',
     +	 520,  3, 'EFS',
     +	 530,  3, 'RCP',
     +	 540, 10, 'UUCPSERVER',
     +	 599, 10, 'NETCONTROL',
     +	 750,  8, 'KERBEROS',
     +	 751,  6, 'HESUPD',
     +	 752,  8, 'KRB_PROP',
     +	1524, 10, 'ingreslock',
     +	6000,  3, 'X11'
     +		/
      DATA (NCVTCP_UDPPRT(I), NCVTCP_UDPPRTLEN(I), CCVTCP_UDPPRT(I),
     +	I=1,ICPTCP_MAXUDPPRT)/  7,  4, 'ECHO',
     +	   9,  7, 'DISCARD',
     +	  13,  7, 'DAYTIME',
     +	  17,  5, 'QUOTE',
     +	  19,  7, 'CHARGEN',
     +	  35, 13, 'IMAGEN-STATUS',
     +	  37,  9, 'TIMSERVER',
     +	  53,  6, 'DOMAIN',
     +	  65,  9, 'TACACS-DS',
     +	  67,  6, 'BOOTPS',
     +	  68,  6, 'BOOTPC',
     +	  69,  4, 'TFTP',
     +	 111, 14, 'RPC portmapper',
     +	 123,  3, 'NTP',
     +	 161,  4, 'SNMP',
     +	 162,  9, 'SNMP-TRAP',
     +	 201,  7, 'AT-RTMP',
     +	 202,  6, 'AT-NBP',
     +	 203,  4, 'AT-3',
     +	 204,  7, 'AT-ECHO',
     +	 205,  4, 'AT-5',
     +	 206,  6, 'AT-ZIS',
     +	 207,  4, 'AT-7',
     +	 208,  4, 'AT-8',
     +	 512,  4, 'BIFF',
     +	 513,  3, 'WHO',
     +	 514,  6, 'SYSLOG',
     +	 517,  4, 'TALK',
     +	 518,  5, 'NTALK',
     +	 519,  8, 'unixtime',
     +	 520, 12, 'ROUTER (RIP)',
     +	 550,  8, 'new-RWHO',
     +	 700, 14, 'IP-OVER-DECNET',
     +	 750,  8, 'KERBEROS',
     +	2049, 10, 'Sun NFS V2'
     +		/