SUBROUTINE PNNAME INTEGER ENBUF (20), XBLNKS, TS, NLTEMP, LTS INTEGER CLOCN, NLOPS LOGICAL NLTEST 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 LIST (499), NAMES (499), CT, BITS (6, 2) INTEGER ICLP08 COMMON /PNACOM / LIST, NAMES, CT, BITS COMMON /PNACOM / ICLP08 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 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 NLIST (500) INTEGER NLOC (500) INTEGER NTEXT (1500) INTEGER NTEXTX (500) COMMON /NARAY/ NLIST COMMON /NARAY/ NLOC COMMON /NARAY/ NTEXT COMMON /NARAY/ NTEXTX INTEGER XNX, XNXMAX, XNAME (100) COMMON /XNAMC/ XNX, XNXMAX, XNAME INTEGER HEAD1 (5), HEAD2 (5), HEAD3, HEAD4 DATA HEAD1 / ' D','IS','P ','EX','T ' / DATA HEAD2 / ' N','OR','M ','EX','T ' / DATA HEAD3 / ',,' / DATA HEAD4 / ' :' / DATA XBLNKS / ' ' / CALL SET (XBLNKS, ENBUF, 20) TS = CLOCN (NLX) CALL EST (NAME, ENBUF, 2, 17) LTS = L IF (.NOT. (.NOT. NLTEST (NLX, CBIT) .AND. NLOPS (DFINED, NLX) .EQ. 1 0))GO TO 13024 IF (.NOT. (XNX .GT. 0))GO TO 13026 DO 13028 L = 1, XNX, 2 IF (.NOT. (XNAME (L) .EQ. NLX))GO TO 13030 IF (.NOT. (XNAME (L+1) .EQ. NLX))GO TO 13032 GO TO 13029 13032 CONTINUE GO TO 100 13030 CONTINUE IF (.NOT. (XNAME (L+1) .EQ. NLX))GO TO 13034 NLX = XNAME (L) IF (.NOT. (NLOPS (DFINED, NLX) .EQ. 0))GO TO 13036 GO TO 13029 13036 CONTINUE GO TO 100 13034 CONTINUE 13028 CONTINUE 13029 CONTINUE 13026 CONTINUE IF (.NOT. (NLTEST (NLX, EXDBIT)))GO TO 13038 CALL EST (HEAD1, ENBUF, 18, 27) GO TO 13039 13038 CONTINUE CALL EST (HEAD2, ENBUF, 18, 27) 13039 CONTINUE GO TO 13025 13024 CONTINUE IF (.NOT. (NLTEST (NLX, CBIT)))GO TO 13040 CALL EHX (NLOPS (CVALUE, NLOPS (NAMLOC, NLX)), ENBUF, 19, 22) GO TO 13041 13040 CONTINUE CALL EHX (NLOPS (NAMLOC, NLX), ENBUF, 19, 22) CALL EST (HEAD3, ENBUF, 23, 23) CALL EHX (NLOPS (NLXLCI, NLX), ENBUF, 24, 25) 13041 CONTINUE 13025 CONTINUE NLTEMP = IEOR (NLIST (NLX), USEBIT) I = 28 DO 13042 L = 1, 6 IF (.NOT. (IAND (NLTEMP, BITS (L,1)) .NE. 0))GO TO 13044 IF (.NOT. (I .NE. 28))GO TO 13046 CALL EST (HEAD3, ENBUF, I, I) 13046 CONTINUE I = I + 1 CALL EST (BITS (L,2), ENBUF, I, I) I = I + 1 13044 CONTINUE 13042 CONTINUE 50 K = K + 1 CALL MOVE (ENBUF, LBUF (20*K-19), 20) IF (.NOT. (K .GE. 3))GO TO 13048 CALL SGLPRT K = 0 13048 CONTINUE L = LTS RETURN 100 TS = CLOCN (NLX) CALL EST (HEAD4, ENBUF, 18, 19) CALL EST (NAME, ENBUF, 20, 35) GO TO 50 END