Subroutine Outline Specifications

Outline specifications are presented for the auxiliary routines in the order listed above.

SUBROUTINE D3QMEM ( ID3DIS, ID3NIN, CD3TYP, CD3NAM, ID3NOU, ID3ERR )

Performs the equivalent of a Q MEMBERS for the current element. Element types and names/references are returned in the output arrays, up to ID3NIN members.

Calls D3RNAM, D3RTYP, D3MREL, D3ERST, D3XLEN, D3MNAM

SUBROUTINE D3QCMA ( ID3DIS, TYPE, NAME, OWNE, LOCK, ID3ERR )

Performs the equivalent of a Q ATT for the current element for the four common attributes type, name, owner and lock.

Calls D3RTYP, D3RNAM, D3RLOG, D3XLEN, D3EMSG, D3ERST. Called by most other auxiliary routines.

SUBROUTINE D3QUDV ( ID3DIS, ID3ERR )

Performs the equivalent of a Q ATT for all UDAs for the current element. Lists the UDAs, their properties and values.

Calls D3RIA, D3RRA, D3RLA, D3RRFA, D3RTEX, D3XLEN, D3EMSG, D3RUDA, D3RUNI, D3RPTX, D3RNAM, D3RTYP, D3ERST

The following are displayed but not returned:

For the element type:

UDA names & minimum abbreviations

UDA type

Reporter text

For the element, for each UDA:

UDA value and units (if any)

A value of 0 for ID3DIS does not suppress the output.

SUBROUTINE D3QSIT (ID3DIS, TYPE, NAME, OWNE, LOCK, POS, ORI, ID3ERR)

Performs the equivalent of a Q ATT for a SITE.

Calls D3RNAM, D3XLEN, D3QCMA, D3RRA, D3EMSG

SUBROUTINE D3QZON( ID3DIS, TYPE, NAME, OWNE, LOCK, POS, ORI, PSPE,ISPE, TSPE, ID3ERR )

Performs the equivalent of a Q ATT for a ZONE.

Calls D3RNAM, D3XLEN, D3QCMA, D3RRA, D3EMSG, D3ERST

SUBROUTINE D3QPIP( ID3DIS, TYPE, NAME, OWNE, LOCK, BUIL, SHOP, BORE,TEMP, PRES, PSPE, ISPE, TSPE, MATR, FLUR, CASR,CCEN, CCLA, DUTY, LNTP, EREC, REV, DSCO, PTSP,INSC, SAFC, ID3ERR )

Performs the equivalent of a Q ATT for a pipe.

Calls D3RNAM, D3XLEN, D3QBPA, D3RREA, D3RINT, D3EMSG

SUBROUTINE D3QBRA( ID3DIS, TYPE, NAME, OWNE, LOCK, BUIL, LHEA, LTAI,DETA, SHOP, LSTR, LNTP, EREC, HBOR, TBOR, HCON,TCON, TEMP, PRES, FLOW, MATR, FLUR, CASR, PSPE,ISPE, TSPE, CCEN, CCLA, DUTY, DSCO, PTSP, INSC,SAFC, HSTU, HREF, TREF, HPOS, HDIR, TPOS, TDIR,ID3ERR )

Performs the equivalent of a Q ATT for a branch.

Calls D3RNAM, D3XLEN, D3QBPA, D3RLOG, D3RREA, D3RWOR, D3RRA, D3EMSG, D3ERST.

SUBROUTINE D3QBPA( ID3DIS, TYPE, NAME, OWNE, LOCK, BUIL, SHOP, TEMP,PRES, PSPE, ISPE, TSPE, MATR, FLUR, CASR, CCEN,CCLA, DUTY, LNTP, EREC, DSCO, PTSP, INSC, SAFC,ID3ERR )

Performs the equivalent of a Q ATT for the current element for the attributes common to branch and pipe.

Calls D3QCMA, D3RLOG, D3RREA, D3RNAM, D3RINT, D3RTEX, D3RWOR, D3XLEN, D3EMSG

Called by D3QBRA, D3QPIP

Arguments: as defined in D3QBRA, D3QPIP

SUBROUTINE D3QTEE( ID3DIS, TYPE, NAME, OWNE, LOCK, POS, ORI, SPRE, LSTU, CREF, ARRI, LEAV, ANGL, HEIG, RADI, BUIL, SHOP, ORIL, POSI, LOFF, ISPE, TSPE, ID3ERR )

Performs the equivalent of a Q ATT for a TEE.

Calls D3RNAM, D3XLEN, D3QCPA, D3RREA, D3RLOG, D3EMSG, D3ERST

SUBROUTINE D3QELB( ID3DIS, TYPE, NAME, OWNE, LOCK, POS, ORI, SPRE, LSTU, CREF, ARRI, LEAV, ANGL, RADI, BUIL, SHOP, ORIL, POSI, ISPE, TSPE, ID3ERR )

Performs the equivalent of a Q ATT for an ELBO.

Calls D3RNAM, D3XLEN, D3QCPA, D3RREA, D3EMSG, D3ERST

SUBROUTINE D3QCPA( ID3DIS, TYPE, NAME, OWNE, LOCK, POS, ORI, SPRE, LSTU, ARRI, LEAV, BUIL, SHOP, ORIL, POSI, ISPE, TSPE, ID3ERR )

Performs the equivalent of a Q ATT for the current element for the attributes common to piping components.

Calls D3QCMA, D3RRA, D3RNAM, D3RINT, D3RLOG, D3XLEN, D3EMSG, D3ERST

Called by D3QELB, D3QTEE

Arguments: as defined in D3QELB, D3QTEE

SUBROUTINE D3QEQU( ID3DIS, TYPE, NAME, OWNE, LOCK, FUNC, DSCO, PTSP, INSC, POS, ORI, ISPE, ID3ERR )

Performs the equivalent of a Q ATT for an EQUI.

Calls D3RNAM, D3XLEN, D3QCMA, D3RTEX, D3RRA, D3EMSG

SUBROUTINE D3QNOZ( ID3DIS, TYPE, NAME, OWNE, LOCK, TEMP, PRES, POS, ORI, CREF, CATR, ANGL, HEIG, RADI, DUTY, ISPE, ID3ERR )

Performs the equivalent of a Q ATT for a NOZZ.

Calls D3RNAM, D3XLEN, D3QCMA, D3RREA, D3RRA, D3RTEX, D3EMSG

SUBROUTINE D3QBOX( ID3DIS, TYPE, NAME, OWNE, LOCK, XLEN, YLEN, ZLEN, POS, ORI, LEVE, OBST, ID3ERR )

Performs the equivalent of a Q ATT for a BOX.

Calls D3RNAM, D3XLEN, D3QCMA, D3RREA, D3RRA, D3RIA, D3RINT, D3EMSG

SUBROUTINE D3QCAT( ID3DIS, TYPE, NAME, OWNE, LOCK, ID3ERR )

Performs the equivalent of a Q ATT for an CATA.

Calls D3RNAM, D3XLEN, D3QCMA, D3EMSG

SUBROUTINE D3QSEC( ID3DIS, TYPE, NAME, OWNE, LOCK, ID3ERR )

Performs the equivalent of a Q ATT for an SECT.

Calls D3RNAM, D3XLEN, D3QCMA, D3EMSG

SUBROUTINE D3QCOM( ID3DIS, TYPE, NAME, OWNE, LOCK, GTYP, PTRE, GMRE, ID3NIN, PARA, PARWOR, ID3NOU, ID3ERR )

INTEGER ID3DIS, ID3NIN, ID3NOU, ID3ERR

Performs the equivalent of a Q ATT for a SCOMP

Calls D3RNAM, D3XLEN, D3QCMA, D3RWOR, D3RRA, D3UDEH, D3EMSG, D3ERST

SUBROUTINE D3QUNI( ID3DIS, TYPE, NAME, OWNE, LOCK, BUNI, DUNI, DFUN, ID3ERR )

Performs the equivalent of a Q ATT for a UNIT.

Calls D3RNAM, D3XLEN, D3QCMA, D3RWOR, D3EMSG, D3ERST

SUBROUTINE D3QUSE( ID3DIS, TYPE, NAME, OWNE, LOCK, ID3ERR )

Performs the equivalent of a Q ATT for an USEC.

Calls D3RNAM, D3XLEN, D3QCMA, D3EMSG

SUBROUTINE D3QUDE( ID3DIS, TYPE, NAME, OWNE, LOCK, ABRE, ADEN, MULT, SIGF, DECP, ID3ERR )

Performs the equivalent of a Q ATT for a UDEF.

Calls D3RNAM, D3XLEN, D3QCMA, D3RTEX, D3RREA, D3RINT, D3EMSG

SUBROUTINE D3QMSE( ID3DIS, TYPE, NAME, OWNE, LOCK, ID3ERR )

Performs the equivalent of a Q ATT for an MSET.

Calls D3RNAM, D3XLEN, D3QCMA, D3EMSG

SUBROUTINE D3QMTY( ID3DIS, TYPE, NAME, OWNE, LOCK, UREF, ID3ERR )

Performs the equivalent of a Q ATT for an MTYP.

Calls D3RNAM, D3XLEN, D3QCMA, D3EMSG, D3ERST

SUBROUTINE D3QATL( ID3DIS, TYPE, NAME, OWNE, LOCK, ATNA, ID3ERR )

Performs the equivalent of a Q ATT for an ATLI.

Calls D3RNAM, D3XLEN, D3QCMA, D3RWOR, D3EMSG, D3ERST

ISUBROUTINE D3QSPW( ID3DIS, TYPE, NAME, OWNE, LOCK, ID3ERR )

Performs the equivalent of a Q ATT for an SPWL.

Calls D3RNAM, D3XLEN, D3QCMA, D3EMSG

SUBROUTINE D3QSPE( ID3DIS, TYPE, NAME, OWNE, LOCK, QUAL, QUES, DEFA, TDEFA, MATR, FLUR, RATI, LNTP, ID3ERR )

Performs the equivalent of a Q ATT for a SPEC.

Calls D3RNAM, D3XLEN, D3QCMA, D3RINT, D3RWOR, D3RREA, D3EMSG, D3ERST, D3RTEX

SUBROUTINE D3QSEL( ID3DIS, TYPE, NAME, OWNE, LOCK, QUAL, QUES, ANSW, TANSW, MAXA, DEFA, TDEFA, ID3ERR )

Performs the equivalent of a Q ATT for a SELE.

Calls D3RNAM, D3XLEN, D3QCMA, D3RINT, D3RWOR, D3EMSG, D3RREA, D3ERST, D3RTEX

SUBROUTINE D3QSPC( ID3DIS, TYPE, NAME, OWNE, LOCK, ANSW, MAXA, TANSW, CATR, CMPR, BLTR, DETR, MATX, ID3ERR )

Performs the equivalent of a Q ATT for a SPCO.

Calls D3RNAM, D3XLEN, D3QCMA, D3RREA, D3EMSG, D3ERST, D3RTEX

SUBROUTINE D3QCCT( ID3DIS, TYPE, NAME, OWNE, LOCK, ID3ERR )

Performs the equivalent of a Q ATT for a CCTA.

Calls D3RNAM, D3XLEN, D3QCMA, D3EMSG

SUBROUTINE D3QCOC( ID3DIS, TYPE, NAME, OWNE, LOCK, CTYP, ID3ERR )

Performs the equivalent of a Q ATT for a COCO.

Calls D3RNAM, D3XLEN, D3QCMA, D3RWA, D3EMSG

SUBROUTINE D3QTUB( ID3DIS, TYPE, NAME, OWNE, LOCK, OUTD, ACBO, BTOL, WTOL, UWEI, UIWE, WDIA, SHAP, RINE, SIF, PRFC, SDTH, CORA, EFAC, PWAS, BFLE, MRKR, ID3ERR )

Performs the equivalent of a Q ATT for a TUBD.

Calls D3RNAM, D3XLEN, D3QCDA, D3RREA, D3EMSG

SUBROUTINE D3QCMP( ID3DIS, TYPE, NAME, OWNE, LOCK, OUTD, ACBO, BTOL, WTOL, CWEI, CIWE, WDIA, SHAP, RINE, SIF, PRFC, SDTH, CORA, EFAC, PWAS, BFLE, DFFL, DMFL, RMFL, MRKR, ID3ERR )

Performs the equivalent of a Q ATT for a CMPD.

Calls D3RNAM, D3XLEN, D3QCDA, D3RREA, D3RRA, D3EMSG

SUBROUTINE D3QCDA( ID3DIS, TYPE, NAME, OWNE, LOCK, OUTD, ACBO, BTOL, WTOL, WDIA, SHAP, RINE, SIF, PRFC, SDTH, CORA, EFAC, PWAS, BFLE, MRKR, ID3ERR )

Performs the equivalent of a Q ATT for the attributes common to TUBD and CMPD.

Calls D3QCMA, D3RREA, D3RRA, D3RWOR, D3XLEN, D3EMSG, D3ERST

Called by D3QCMP D3QTUB

Arguments: as defined in D3QCMP, D3QTUB

SUBROUTINE D3QCON ( ID3DIS, TYPE, NAME, OWNE, LOCK, APPL, FORC, MOME, DISP, ROTN, DLIM, RLIM, FLIM, MLIM, DFLF, RFLF, FCOE, CPUL, CPUT, ID3ERR )

Performs the equivalent of a Q ATT for a CONS.

Calls D3RNAM, D3XLEN, D3QCMA, D3RTEX, D3RRA, D3EMSG

SUBROUTINE D3QUDA( ID3DIS, TYPE, NAME, OWNE, LOCK, UKEY, UDNA, ABLE, UTYP, ULEN, DFLT, RPTX, DESC, UUNI, ELEL, MAXE, OUTE, REFL, MAXR, OUTR, ID3ERR )

Performs the equivalent of a Q ATT for a UDA in the dictionary database.

Calls D3RNAM, D3XLEN, D3QCMA, D3RINT, D3EMSG, D3RTEX, D3RWOR, D3RWA, D3ERST

INTEGER FUNCTION D3XLEN( CD3STR )

Returns significant length of string. That is, length after removing trailing blanks. Returns length of 1 for a blank string, ' '.

Identical to DARs routine D3ULEN, except for treatment of blank string.

For use in the construction STRING(:D3XLEN(STRING)) to avoid run-time error with some compilers when using D3ULEN and a blank string.

Calls D3ULEN

Called by most other auxiliary routines.