INTEGER*4 ICPMNF_MAXNAMES, ICPMNF_MINNAMES PARAMETER(ICPMNF_MAXNAMES=150, + ICPMNF_MINNAMES=134) CHARACTER*4 CCVMNF_MANUF_NUM(ICPMNF_MAXNAMES) CHARACTER*8 CCVMNF_NAM(ICPMNF_MAXNAMES) CHARACTER*24 CCVMNF_MANUFNAM(ICPMNF_MAXNAMES) INTEGER*2 NCVMNF_MANUFNAMLEN(ICPMNF_MAXNAMES), + NCVMNF_NAMLEN(ICPMNF_MAXNAMES) INTEGER*4 ICVMNF_NUMNAMES/ICPMNF_MINNAMES/, + ICVMNF_MANUF_NUM(ICPMNF_MAXNAMES), + ICVMNF_IDX LOGICAL*1 LCVMNF_SREF(ICPMNF_MAXNAMES) LOGICAL*1 LCVMNF_DREF(ICPMNF_MAXNAMES) COMMON /MANUFACT_NAMES/ ICVMNF_NUMNAMES, ICVMNF_MANUF_NUM, + NCVMNF_MANUFNAMLEN, NCVMNF_NAMLEN, LCVMNF_SREF, + LCVMNF_DREF, CCVMNF_MANUFNAM, CCVMNF_NAM EQUIVALENCE (ICVMNF_MANUF_NUM, CCVMNF_MANUF_NUM) DATA (ICVMNF_MANUF_NUM(ICVMNF_IDX), + NCVMNF_MANUFNAMLEN(ICVMNF_IDX), + CCVMNF_MANUFNAM(ICVMNF_IDX), NCVMNF_NAMLEN(ICVMNF_IDX), + CCVMNF_NAM(ICVMNF_IDX), ICVMNF_IDX=1,90)/ + '5E0000'X, 24, 'I-net Asnd.Num.Authority', 4, 'IANA', + '0C0000'X, 5, 'Cisco', 5, 'Cisco', + '0F0000'X, 4, 'NeXT', 4, 'NeXT', + '100000'X, 5, 'Sytek', 5, 'Sytek', + '1D0000'X, 9, 'Cabletron', 8, 'Cabltron', + '200000'X, 18, 'Data Industrier AB', 4, 'DIAB', + '220000'X, 17, 'Visual Technology', 6, 'VisTec', + '2A0000'X, 3, 'TRW', 3, 'TRW', + '5A0000'X, 8, 'S & Koch', 3, 'S&K', + '650000'X, 15, 'Network General', 3, 'N-G', + '6B0000'X, 4, 'MIPS', 4, 'MIPS', + '770000'X, 4, 'MIPS', 4, 'MIPS', + '7A0000'X, 6, 'Ardent', 6, 'Ardent', + '9F0000'X, 20, 'Ameristar Technology', 8, 'Amerstar', + 'A20000'X, 9, 'Wellfleet', 7, 'Wellflt', + 'A30000'X, 24, 'Network Appl. Technology', 5, 'N-A-T', + 'A60000'X, 15, 'Network General', 3, 'N-G', + 'A70000'X, 3, 'NCD', 3, 'NCD', + 'A90000'X, 20, 'Network System Corp.', 3, 'N-S', + 'B30000'X, 7, 'CIMLinc', 7, 'CIMLinc', + 'B70000'X, 4, 'Dove', 4, 'Dove', + 'BC0000'X, 13, 'Allen-Bradley', 3, 'A-B', + 'C00000'X, 15, 'Western Digital', 3, 'W-D', + 'C60000'X, 24, 'Hewlett-Packard INO(Eon)', 6, 'HP INO', + 'C80000'X, 5, 'Altos', 5, 'Altos', + 'D70000'X, 17, 'Dartmouth College', 7, 'Dartmth', + 'D80000'X, 19, '3Com/Novell ?? PS/2', 6, '? PS/2', + 'DD0000'X, 5, 'Gould', 5, 'Gould', + 'DE0000'X, 8, 'Unigraph', 8, 'Unigraph', + 'E20000'X, 17, 'Acer Counterpoint', 6, 'Acer C', + 'EF0000'X, 7, 'Alantec', 7, 'Alantec', + 'FD0000'X, 19, 'High Level Hardware', 3, 'HLH', + '001700'X, 5, 'Kabel', 5, 'Kabel', + '2D8000'X, 14, 'Xylogics, Inc.', 7, 'Xylogic', + '8C8000'X, 24, 'Frontier Software Dvlpmt', 8, 'Frontier', + '00AA00'X, 5, 'Intel', 5, 'Intel', + '866002'X, 21, 'Satelcom MegaPac (UK)', 8, 'Satelcom', + '030008'X, 23, 'Adv. Computer Communic.', 3, 'ACC', + '080008'X, 3, 'BBN', 3, 'BBN', + '0A0008'X, 14, 'Nestar Systems', 6, 'Nestar', + '0B0008'X, 6, 'Unisys', 6, 'Unisys', + '110008'X, 15, 'Tektronix, Inc.', 5, 'Tektr', + '170008'X, 20, 'Network System Corp.', 3, 'NSC', + '1B0008'X, 12, 'Data General', 2, 'DG', + '220008'X, 3, 'NBI', 3, 'NBI', + '250008'X, 3, 'CDC', 3, 'CDC', + '260008'X, 10, 'Norsk Data', 5, 'Norsk', + '270008'X, 24, 'PCS Computer System GmbH', 3, 'PCS', + '280008'X, 17, 'Texas Instruments', 2, 'TI', + '2E0008'X, 8, 'Metaphor', 8, 'Metaphor', + '370008'X, 13, 'Fujitsu-Xerox', 7, 'Fujitsu', + '380008'X, 4, 'Bull', 4, 'Bull', + '390008'X, 14, 'Spider Systems', 6, 'Spider', + '410008'X, 24, 'DCA Digital Comm. Assoc.', 3, 'DCA', + '450008'X, 16, '???? (Xylogics?)', 4, '????', + '460008'X, 4, 'Sony', 4, 'Sony', + '490008'X, 9, 'Univation', 7, 'Univatn', + '4E0008'X, 4, 'BICC', 4, 'BICC', + '560008'X, 19, 'Stanford University', 8, 'Stanford', + '580008'X, 18, '??? (DECsystem-20)', 6, '?DEC20', + '5A0008'X, 3, 'IBM', 3, 'IBM', + '670008'X, 9, 'Comdesign', 8, 'Comdesgn', + '750008'X, 24, 'Danish Data ElektronikAS', 3, 'DDE', + '800008'X, 4, 'XIOS', 4, 'XIOS', + '860008'X, 10, 'Imagen/QMS', 5, 'I/QMS', + '534448'X, 6, 'HDS ??', 6, 'HDS ??', + '02DD00'X, 14, 'Ungermann-Bass', 3, 'U-B', + '03DD00'X, 14, 'Ungermann-Bass', 3, 'U-B', + '04DD00'X, 14, 'Ungermann-Bass', 3, 'U-B', + '05DD00'X, 14, 'Ungermann-Bass', 3, 'U-B', + '06DD00'X, 14, 'Ungermann-Bass', 3, 'U-B', + '07DD00'X, 14, 'Ungermann-Bass', 3, 'U-B', + '08DD00'X, 14, 'Ungermann-Bass', 3, 'U-B', + '09DD00'X, 14, 'Ungermann-Bass', 3, 'U-B', + '0ADD00'X, 14, 'Ungermann-Bass', 3, 'U-B', + '0BDD00'X, 14, 'Ungermann-Bass', 3, 'U-B', + '0CDD00'X, 14, 'Ungermann-Bass', 3, 'U-B', + '0DDD00'X, 14, 'Ungermann-Bass', 3, 'U-B', + '0EDD00'X, 14, 'Ungermann-Bass', 3, 'U-B', + '0FDD00'X, 14, 'Ungermann-Bass', 3, 'U-B', + '0100AA'X, 3, 'DEC', 3, 'DEC', + '020100'X, 12, 'BBN internal', 3, 'BBN', + '060402'X, 12, 'BBN internal', 3, 'BBN', + '0000CE'X, 22, 'Ethernet spec (global)', 3, 'gbl', + '930000'X, 19, 'Proteon 802.3/802.4', 7, 'Proteon', + '8E0008'X, 7, 'Jupiter', 7, 'Jupiter', + 'AA0000'X, 5, 'Xerox', 5, 'Xerox', + '8B0008'X, 7, 'Pyramid', 7, 'Pyramid', + '8D0008'X, 8, 'XYVision', 8, 'XYVision', + '360008'X, 10, 'Intergraph', 8, 'Intrgrph'/ DATA (ICVMNF_MANUF_NUM(ICVMNF_IDX), + NCVMNF_MANUFNAMLEN(ICVMNF_IDX), + CCVMNF_MANUFNAM(ICVMNF_IDX), NCVMNF_NAMLEN(ICVMNF_IDX), + CCVMNF_NAM(ICVMNF_IDX), ICVMNF_IDX=91,ICPMNF_MINNAMES)/ + '6A0008'X, 4, 'AT&T', 4, 'AT&T', + '1B0000'X, 6, 'Novell', 6, 'Novell', + '5A0010'X, 3, 'IBM', 3, 'IBM', + 'B00000'X, 24, 'RAD Network Devices Ltd.', 3, 'RND', + '0200AA'X, 3, 'DEC', 3, 'DEC', + '8C6002'X, 13, '3Com (IBM PC)', 4, '3Com', + '050008'X, 22, 'Symbolics LISP machine', 8, 'Symbolic', + '3D0000'X, 4, 'AT&T', 4, 'AT&T', + '550000'X, 4, 'AT&T', 4, 'AT&T', + '100008'X, 4, 'AT&T', 4, 'AT&T', + '1A0008'X, 12, 'Data General', 2, 'DG', + '6E0008'X, 18, 'Excelan/Concurrent', 7, 'Cncrrnt', + '470008'X, 10, 'Sequential', 7, 'Sequent', + '4C0008'X, 6, 'Encore', 6, 'Encore', + '680008'X, 5, 'Ridge', 5, 'Ridge', + 'C90000'X, 21, 'Emulex (term.servers)', 6, 'Emulex', + '1FCF02'X, 3, 'CMC', 3, 'CMC', + '140008'X, 7, 'Excelan', 7, 'Excelan', + '010702'X, 14, 'MICOM/InterLAN', 8, 'InterLAN', + '870008'X, 6, 'Xyplex', 6, 'Xyplex', + '020008'X, 11, '3Com/Bridge', 6, 'Bridge', + '1E0008'X, 6, 'Apollo', 6, 'Apollo', + 'AB0000'X, 22, 'Logic Modeling Systems', 3, 'LMS', + '8E0000'X, 20, 'Solburne (Sun clone)', 8, 'Solburne', + '690008'X, 21, 'Silicon Graphics/Iris', 4, 'Iris', + '2F0008'X, 14, 'Prime Computer', 5, 'Prime', + '770008'X, 10, 'Retix Inc.', 5, 'Retix', + '900008'X, 10, 'Retix Inc.', 5, 'Retix', + '7C0008'X, 15, 'Vitalink bridge', 8, 'Vitalink', + '070008'X, 14, 'Apple Computer', 5, 'Apple', + 'B50000'X, 5, 'Vista', 5, 'Vista', + '090008'X, 15, 'Hewlett-Packard', 3, 'H-P', + '890008'X, 8, 'Kinetics', 8, 'Kinetics', + '0000AA'X, 3, 'DEC', 3, 'DEC', + '890000'X, 14, 'Cayman Systems', 6, 'Cayman', + 'BB0000'X, 22, 'Tri-Data Systems, Inc.', 7, 'TriData', + 'FFFFFE'X, 22, 'Ethernet spec (global)', 3, 'gbl', + '0300AA'X, 3, 'DEC', 3, 'DEC', + '2B0008'X, 3, 'DEC', 3, 'DEC', + '940000'X, 18, 'Asante (Macintosh)', 6, 'Asante', + '0400AA'X, 14, 'DEC networking', 6, 'DECnet', + '200008'X, 16, 'Sun Microsystems', 3, 'Sun', + '00DD00'X, 14, 'Ungermann-Bass', 3, 'U-B', + '01DD00'X, 14, 'Ungermann-Bass', 3, 'U-B' + /