SUBROUTINE PNAMEL INTEGER LIST (499), NAMES (499), CT, BITS (6, 2) INTEGER ICLP08 COMMON /PNACOM / LIST, NAMES, CT, BITS COMMON /PNACOM / ICLP08 INTEGER ADDR, ADRFLG, CUROP, NEXTOP, CFLAG INTEGER PI, XBBL, XA, XF, XZERO, DPVFLG INTEGER LC, LCI, LODLCI, LODLCV, LDLCVO, MAXLCV INTEGER NEXT, NUMBER, I, IOTYPE INTEGER J, K, L, LABNLX, M, N INTEGER PSYMB, SYMBOL, TOP, VALFLG, QVALUE INTEGER OPTOPX, OPNXTX, TOPX, NEXTX INTEGER DUMMY, OVCHN, PEEKS INTEGER LO, CI, CO, LOGICF, LOCSUP INTEGER VAREF, INPUTJ, LCTS, CRUCNT, FLTCNT INTEGER ICLP05 LOGICAL ENDOK,CONEND COMMON /LOGOS/ ADDR, ADRFLG, CUROP, NEXTOP, CFLAG COMMON /LOGOS/ PI, XBBL, XA, XF, XZERO, DPVFLG COMMON /LOGOS/ LC, LCI, LODLCI, LODLCV, LDLCVO, MAXLCV COMMON /LOGOS/ NEXT, NUMBER, I, IOTYPE COMMON /LOGOS/ J, K, L, LABNLX, M, N COMMON /LOGOS/ PSYMB, SYMBOL, TOP, VALFLG, QVALUE COMMON /LOGOS/ OPTOPX, OPNXTX, TOPX, NEXTX COMMON /LOGOS/ DUMMY, OVCHN, PEEKS COMMON /LOGOS/ LO, CI, CO, LOGICF, LOCSUP COMMON /LOGOS/ VAREF, INPUTJ, LCTS, CRUCNT, FLTCNT COMMON /LOGOS/ ICLP05 COMMON /LOGOS/ ENDOK,CONEND INTEGER PLEVEL, STOPS (20) INTEGER CNLSID (9), CNLTLI (9), CNLEND (9) INTEGER CLX, CPLOC (30) INTEGER NESTX, PNESTX INTEGER RELLEV, RELCNT, TRUEF LOGICAL RELPAS INTEGER CMPFLG INTEGER ILB INTEGER BRCT, BROK, TNESTX COMMON /COMP/ PLEVEL, STOPS COMMON /COMP/ CNLSID, CNLTLI, CNLEND COMMON /COMP/ CLX, CPLOC COMMON /COMP/ NESTX, PNESTX COMMON /COMP/ RELLEV, RELCNT, TRUEF COMMON /COMP/ RELPAS COMMON /COMP/ CMPFLG COMMON /COMP/ ILB COMMON /COMP/ BRCT, BROK, TNESTX INTEGER LISTF, SNLPRT, SUMPRT, SYMFLG INTEGER PRINTF, SKIP, COMPFL (2) INTEGER LOCPRT, USFLGS, NEGFLG, SKNAME (8) INTEGER ORGFLG, CTLUSE, CTLERR, TTL (8) INTEGER DUMFLG INTEGER ICLP01 COMMON /CTLCOM/ LISTF, SNLPRT, SUMPRT, SYMFLG COMMON /CTLCOM/ PRINTF, SKIP, COMPFL COMMON /CTLCOM/ LOCPRT, USFLGS, NEGFLG, SKNAME COMMON /CTLCOM/ ORGFLG, CTLUSE, CTLERR, TTL COMMON /CTLCOM/ DUMFLG COMMON /CTLCOM/ ICLP01 INTEGER NI, NJ, NK INTEGER NSIZE INTEGER NLX, FNLX, REMNLX, OVNLX, TNAME INTEGER NLSTRT, NLSTOP, NLSIZE, SRCHST INTEGER NTSTRT INTEGER NTSTOP INTEGER NTSIZE INTEGER PARFLG INTEGER SPARFL INTEGER NLWRDS INTEGER TX INTEGER NLENO INTEGER STDMD INTEGER MSHIFT INTEGER REGCNT INTEGER NULLX INTEGER STPTRX INTEGER SPMODE INTEGER DPMODE INTEGER SPECMD INTEGER ENFLAG INTEGER DFINED INTEGER CVALUE INTEGER NLXLCI INTEGER ENEXTD INTEGER NAMAT0 INTEGER NAMCON INTEGER NLMODE INTEGER PARBIT INTEGER OPBIT INTEGER LOCALB INTEGER REGBIT INTEGER EXTBIT INTEGER STRBIT INTEGER DPBIT INTEGER CBIT INTEGER PBIT INTEGER EPBIT INTEGER IOBIT INTEGER ARBIT INTEGER EXDBIT INTEGER TPLBIT INTEGER USEBIT INTEGER LCMASK INTEGER MDMASK INTEGER NAMLOC, REGNUM COMMON /NLIST/ NI COMMON /NLIST/ NJ COMMON /NLIST/ NK COMMON /NLIST/ NSIZE COMMON /NLIST/ NLX COMMON /NLIST/ FNLX COMMON /NLIST/ REMNLX COMMON /NLIST/ OVNLX COMMON /NLIST/ TNAME COMMON /NLIST/ NLSTRT COMMON /NLIST/ NLSTOP COMMON /NLIST/ NLSIZE COMMON /NLIST/ SRCHST COMMON /NLIST/ NTSTRT COMMON /NLIST/ NTSTOP COMMON /NLIST/ NTSIZE COMMON /NLIST/ PARFLG COMMON /NLIST/ SPARFL COMMON /NLIST/ NLWRDS COMMON /NLIST/ TX COMMON /NLIST/ NLENO COMMON /NLIST/ STDMD COMMON /NLIST/ MSHIFT COMMON /NLIST/ REGCNT COMMON /NLIST/ NULLX COMMON /NLIST/ STPTRX COMMON /NLIST/ SPMODE COMMON /NLIST/ DPMODE COMMON /NLIST/ SPECMD COMMON /NLIST/ ENFLAG COMMON /NLIST/ DFINED COMMON /NLIST/ CVALUE COMMON /NLIST/ NLXLCI COMMON /NLIST/ ENEXTD COMMON /NLIST/ NAMAT0 COMMON /NLIST/ NAMCON COMMON /NLIST/ NLMODE COMMON /NLIST/ PARBIT COMMON /NLIST/ OPBIT COMMON /NLIST/ LOCALB COMMON /NLIST/ REGBIT COMMON /NLIST/ EXTBIT COMMON /NLIST/ STRBIT COMMON /NLIST/ DPBIT COMMON /NLIST/ CBIT COMMON /NLIST/ PBIT COMMON /NLIST/ EPBIT COMMON /NLIST/ IOBIT COMMON /NLIST/ ARBIT COMMON /NLIST/ EXDBIT COMMON /NLIST/ TPLBIT COMMON /NLIST/ USEBIT COMMON /NLIST/ LCMASK COMMON /NLIST/ MDMASK COMMON /NLIST/ NAMLOC, REGNUM INTEGER NAME (9) COMMON /NLNAME/ NAME INTEGER CODE INTEGER NOUNLC INTEGER DATALC INTEGER COMLOC INTEGER FBLOCK INTEGER ZREL INTEGER ABSLC INTEGER CBTAB (15) INTEGER CBX INTEGER LCTAB (15) COMMON /LCFUNC/ CODE COMMON /LCFUNC/ NOUNLC COMMON /LCFUNC/ DATALC COMMON /LCFUNC/ COMLOC COMMON /LCFUNC/ FBLOCK COMMON /LCFUNC/ ZREL COMMON /LCFUNC/ ABSLC COMMON /LCFUNC/ CBTAB COMMON /LCFUNC/ CBX COMMON /LCFUNC/ LCTAB INTEGER LBUF (66) INTEGER LCOUNT INTEGER PGECNT INTEGER UHEAD (15) INTEGER CHEAD (8) INTEGER ICLP09 COMMON /PRT/ LBUF COMMON /PRT/ LCOUNT COMMON /PRT/ PGECNT COMMON /PRT/ UHEAD COMMON /PRT/ CHEAD COMMON /PRT/ ICLP09 INTEGER HEAD1 (17), HEAD2 (2), HEAD3 (6), HEAD4 (6) INTEGER HEAD5 (12), HEAD6 (6), HEAD7 (16), HEAD8 (17) INTEGER TS INTEGER PNNAME, PNENT, PNEXT, PNLOOP, NLCOMP, CLOCN EXTERNAL PNNAME, PNENT, PNEXT, PNLOOP, NLCOMP DATA HEAD1 / ' .','..','..','NA','ME','..','..','..','. ',' 1..','LO','C.','..','. ','.T','YP','E.' / DATA HEAD2 / ' :',' ' / DATA HEAD3 / 'EN','TR','Y ','PO','IN','TS' / DATA HEAD4 / 'EX','TE','RN','AL','S ',' ' / DATA HEAD5 / 'NA','ME','S ',' ',' ',' ','/ ',' ',' ',' 1 T','EX','T ' / DATA HEAD6 / 'CC','**','""','DD','TT','NN' / DATA HEAD7 / 'US','E ','CO','UN','TS',': ','RE','GI','ST',' 1ER',' ',' ',', ','CR','UT','CH' / DATA HEAD8 / ' ',' ',' ',' ',' ',' ','BR','AN','CH',' 1ES',' ',' ',', ','IN',' R','AN','GE' / IF (PRINTF .EQ. 0) RETURN CALL SGLPRT DO 13000 I = 1, 81, 40 CALL EST (HEAD1, LBUF, I, I + 33) 13000 CONTINUE CALL SGLPRT CALL SGLPRT CT = 0 CALL NLSCAN (PNLOOP, NLX) DO 13002 I = 1, CT LIST (I) = I 13002 CONTINUE DO 13004 I = 1, 6 BITS (I, 2) = HEAD6 (I) 13004 CONTINUE BITS (1, 1) = CBIT BITS (2, 1) = EPBIT BITS (3, 1) = STRBIT BITS (4, 1) = DPBIT BITS (5, 1) = TPLBIT BITS (6, 1) = USEBIT IF (CT .NE. 0) CALL SORT (LIST, CT, NAMES, NLCOMP) CALL PSEL (PNNAME, 0) CALL PSEL (PNENT, HEAD3) CALL PSEL (PNEXT, HEAD4) CALL EST (HEAD5, LBUF, 1, 24) CALL ESP (NLENO, LBUF, 1, 12) CALL ESP (NLSIZE, LBUF, 1, 17) CALL ESP (NTSTRT, LBUF, 1, 29) CALL SGLPRT CALL EST (HEAD7, LBUF, 1, 32) CALL ESP (REGCNT, LBUF, 1, 24) CALL ESP (CRUCNT, LBUF, 1, 38) CALL SGLPRT CALL EST (HEAD8, LBUF, 1, 34) CALL ESP (BRCT, LBUF, 1, 24) CALL ESP (BROK, LBUF, 1, 38) CALL SGLPRT DO 13006 I = 1, 14 TS = LCTAB (I) IF (.NOT. (TS .NE. 0))GO TO 13008 CALL EHX (I, LBUF, 2, 3) CALL EST (HEAD2, LBUF, 4, 6) CALL EHX (TS, LBUF, 7, 10) IF (.NOT. (I .GT. COMLOC .AND. I .LT. ZREL))GO TO 13010 TS = CLOCN (CBTAB (I)) CALL EST (NAME, LBUF, 13, 28) 13010 CONTINUE CALL SGLPRT 13008 CONTINUE 13006 CONTINUE RETURN END