-+-+-+-+-+-+-+-+ START OF PART 164 -+-+-+-+-+-+-+-+ X RETURN X END X `20 XC-------------------------------------------------------------------------- X `20 X SUBROUTINE PROZ(rotang, errind, xfrmt) X REAL rotang X INTEGER errind X REAL xfrmt(4, 4) X external pc_rotatez X `20 X call pc_rotatez(rotang, errind, xfrmt) X X RETURN X END X `20 XC-------------------------------------------------------------------------- X `20 X SUBROUTINE PSC(dx, dy, errind, xfrmt) X REAL dx, dy X INTEGER errind X REAL xfrmt(3, 3) X external pc_scale X `20 X call pc_scale(dx, dy, errind, xfrmt) X X RETURN X END X `20 XC-------------------------------------------------------------------------- X `20 X SUBROUTINE PSC3(dx, dy, dz, errind, xfrmt) X REAL dx, dy, dz X INTEGER errind X REAL xfrmt(4, 4) X external pc_scale3 X `20 X call pc_scale3(dx, dy, dz, errind, xfrmt) X X RETURN X END X `20 XC-------------------------------------------------------------------------- X `20 X SUBROUTINE PTP(xi, yi, xfrmt, errind, xo, yo) X REAL xi, yi X REAL xfrmt(3, 3) X INTEGER errind X REAL xo, yo X external pc_tranpt X X call pc_tranpt(xi, yi, xfrmt, errind, xo, yo) X X RETURN X END X `20 XC-------------------------------------------------------------------------- X `20 X SUBROUTINE PTP3(xi, yi, zi, xfrmt, errind, xo, yo, zo) X REAL xi, yi, zi X REAL xfrmt(4, 4) X INTEGER errind X REAL xo, yo, zo X external pc_tranpt3 X X call pc_tranpt3(xi, yi, zi, xfrmt, errind, xo, yo, zo) X X RETURN X END X `20 XC-------------------------------------------------------------------------- X `20 X SUBROUTINE PTR(dx, dy, errind, xfrmt) X REAL dx, dy X INTEGER errind X REAL xfrmt(3, 3) X external pc_translate X X call pc_translate(dx, dy, errind, xfrmt) X X RETURN X END X `20 XC-------------------------------------------------------------------------- X `20 X SUBROUTINE PTR3(dx, dy, dz, errind, xfrmt) X REAL dx, dy, dz X INTEGER errind X REAL xfrmt(4, 4) X external pc_translate3 X X call pc_translate3(dx, dy, dz, errind, xfrmt) X X RETURN X END X `20 XC-------------------------------------------------------------------------- $ CALL UNPACK [.FORTRAN.SOURCE.BINDING]FPHIGS.FOR;1 1753144151 $ create 'f' X XC XC`09SET POLYLINE INDEX XC X`09SUBROUTINE PSPLI (PLI) X X`09INTEGER PLI X X`09EXTERNAL PSETLINEIND X X`09CALL PSETLINEIND(%VAL(PLI)) X X`09RETURN X X`09END `20 X Xc-------------------------------------------------------------------- X XC XC`09SET POLYMARKER INDEX XC X`09SUBROUTINE PSPMI (PMI) X X`09INTEGER PMI X X `09EXTERNAL PSETMARKERIND X X`09CALL PSETMARKERIND(%VAL(PMI)) X X`09RETURN X X`09END `20 X Xc-------------------------------------------------------------------- `20 X XC XC`09SET TEXT INDEX XC X`09SUBROUTINE PSTXI (TXI) X X`09INTEGER TXI X X`09EXTERNAL PSETTEXTIND X X`09CALL PSETTEXTIND(%VAL(TXI)) X X`09RETURN X X`09END `20 Xc-------------------------------------------------------------------- X XC XC`09SET INTERIOR INDEX XC X`09SUBROUTINE PSII (II) X X`09INTEGER II X X`09EXTERNAL PSETINTIND X X`09CALL PSETINTIND(%VAL(II)) X X`09RETURN X X`09END`20 Xc--------------------------------------------------------------------`20 X XC XC`09SET EDGE INDEX XC X`09SUBROUTINE PSEDI (EDI) X X`09INTEGER EDI X X`09EXTERNAL PSETEDGEIND X X`09CALL PSETEDGEIND(%VAL(EDI)) X X`09RETURN X X`09END X Xc-------------------------------------------------------------------- X XC XC`09SET LINETYPE XC X`09SUBROUTINE PSLN (LTYPE) X X`09INTEGER LTYPE X X`09EXTERNAL PSETLINETYPE X X`09CALL PSETLINETYPE(%VAL(LTYPE)) X X`09RETURN X X`09END `20 X Xc-------------------------------------------------------------------- `20 X XC XC`09SET LINEWIDTH SCALE FACTOR XC X`09SUBROUTINE PSLWSC (LWIDTH) X X`09REAL LWIDTH X X`09EXTERNAL pc_setlinewidth X X`09CALL pc_setlinewidth(LWIDTH) X X`09RETURN X X`09END `20 X Xc-------------------------------------------------------------------- X XC XC`09SET POLYLINE COLOUR INDEX XC X`09SUBROUTINE PSPLCI (COLI) X X`09INTEGER COLI X X`09EXTERNAL PSETLINECOLOURIND X X`09CALL PSETLINECOLOURIND(%VAL(COLI)) X X`09RETURN X X`09END `20 Xc-------------------------------------------------------------------- `20 X XC XC`09SET MARKER TYPE XC X`09SUBROUTINE PSMK (MTYPE) X X`09INTEGER MTYPE X X`09EXTERNAL PSETMARKERTYPE X X`09CALL PSETMARKERTYPE(%VAL(MTYPE)) X X`09RETURN X X`09END `20 Xc-------------------------------------------------------------------- X XC XC`09SET MARKER SIZE SCALE FACTOR XC X`09SUBROUTINE PSMKSC (MSZSF) X X`09REAL MSZSF X X`09EXTERNAL pc_setmarkersize X X`09CALL pc_setmarkersize(MSZSF) X X`09RETURN X X`09END `20 Xc-------------------------------------------------------------------- `20 X XC XC`09SET POLYMARKER COLOUR INDEX XC X`09SUBROUTINE PSPMCI (COLI) X X`09INTEGER COLI X X`09EXTERNAL PSETMARKERCOLOURIND X X`09CALL PSETMARKERCOLOURIND(%VAL(COLI)) X X`09RETURN X X`09END `20 Xc-------------------------------------------------------------------- X XC XC`09SET TEXT FONT XC X`09SUBROUTINE PSTXFN (FONT) X X`09INTEGER FONT X X`09EXTERNAL PSETTEXTFONT X X`09CALL PSETTEXTFONT(%VAL(FONT)) X X`09RETURN X X`09END `20 Xc-------------------------------------------------------------------- `20 X XC XC`09SET TEXT PRECISION XC X`09SUBROUTINE PSTXPR (PREC) X X`09INTEGER PREC X X`09EXTERNAL PSETTEXTPREC X X`09CALL PSETTEXTPREC(%VAL(PREC)) X X`09RETURN X X`09END `20 Xc-------------------------------------------------------------------- X XC XC`09SET CHARACTER EXPANSION FACTOR XC X`09SUBROUTINE PSCHXP (CHXP) X X`09REAL CHXP X X`09EXTERNAL pc_setcharexpan X X`09CALL pc_setcharexpan(CHXP) X X`09RETURN X X`09END `20 Xc-------------------------------------------------------------------- X XC XC`09SET CHARACTER SPACING XC X`09SUBROUTINE PSCHSP (CHSP) X X`09REAL CHSP X X`09EXTERNAL pc_setcharspace X X`09CALL pc_setcharspace(CHSP) X X`09RETURN X X`09END `20 Xc-------------------------------------------------------------------- X XC XC`09SET TEXT COLOUR INDEX XC X`09SUBROUTINE PSTXCI (COLI) X X`09INTEGER COLI X X`09EXTERNAL PSETTEXTCOLOURIND X X`09CALL PSETTEXTCOLOURIND(%VAL(COLI)) X X`09RETURN X X`09END `20 Xc-------------------------------------------------------------------- X XC XC`09SET CHARACTER HEIGHT XC X`09SUBROUTINE PSCHH (CHH) X X`09REAL CHH X X`09EXTERNAL pc_setcharheight X X`09CALL pc_setcharheight(CHH) X X`09RETURN X X`09END `20 Xc-------------------------------------------------------------------- X XC XC`09SET CHARACTER UP VECTOR XC X`09SUBROUTINE PSCHUP (CHUX, CHUY) X X`09REAL CHUX, CHUY X X`09EXTERNAL pc_setcharup X X`09CALL pc_setcharup(CHUX, CHUY) X X`09RETURN X X`09END `20 Xc-------------------------------------------------------------------- `20 X XC XC`09SET TEXT PATH XC X`09SUBROUTINE PSTXP (TXP) X X`09INTEGER TXP X X`09EXTERNAL PSETTEXTPATH X X`09CALL PSETTEXTPATH(%VAL(TXP)) X X`09RETURN X X`09END `20 Xc-------------------------------------------------------------------- X XC XC`09SET TEXT ALIGNMENT XC X`09SUBROUTINE PSTXAL (TXALH, TXALV) X X`09INTEGER TXALH X`09INTEGER TXALV X X`09EXTERNAL pc_settextalign X X`09CALL pc_settextalign(%val(TXALH), %val(TXALV)) X X`09RETURN X X`09END `20 Xc-------------------------------------------------------------------- X XC XC`09SET ANNOTATION TEXT CHARACTER HEIGHT XC X`09SUBROUTINE PSATCH (ATCHH) X X`09REAL ATCHH X X`09EXTERNAL pc_setannotationcharheight X X`09CALL pc_setannotationcharheight(ATCHH) X X`09RETURN X X`09END `20 Xc-------------------------------------------------------------------- X XC XC`09SET ANNOTATION TEXT CHARACTER UP VECTOR XC X`09SUBROUTINE PSATCU (ATCHUX, ATCHUY) X X`09REAL ATCHUX, ATCHUY X X`09EXTERNAL pc_setannotationcharup X X`09CALL pc_setannotationcharup(ATCHUX, ATCHUY) X X`09RETURN X X`09END `20 Xc-------------------------------------------------------------------- `20 X XC XC`09SET ANNOTATION TEXT PATH XC X`09SUBROUTINE PSATP (ATP) X X`09INTEGER ATP X X`09EXTERNAL PSETANNOTATIONPATH X X`09CALL PSETANNOTATIONPATH(%VAL(ATP)) X X`09RETURN X X`09END `20 Xc-------------------------------------------------------------------- X XC XC`09SET ANNOTATION TEXT ALIGNMENT XC X`09SUBROUTINE PSATAL (ATALH, ATALV) X X`09INTEGER ATALH X`09INTEGER ATALV X X`09EXTERNAL pc_setannotationalign X X`09CALL pc_setannotationalign(%val(ATALH), %val(ATALV)) X X`09RETURN X X`09END `20 Xc-------------------------------------------------------------------- `20 X XC XC`09SET ANNOTATION STYLE XC X`09SUBROUTINE PSANS (ASTYLE) X X`09INTEGER ASTYLE X X`09EXTERNAL PSETANNOTATIONSTYLE X X`09CALL PSETANNOTATIONSTYLE(%VAL(ASTYLE)) X X`09RETURN X X`09END `20 Xc-------------------------------------------------------------------- X XC XC`09SET INTERIOR STYLE XC X`09SUBROUTINE PSIS (INTS) X X`09INTEGER INTS X X `09EXTERNAL PSETINTSTYLE X X`09CALL PSETINTSTYLE(%VAL(INTS)) X X`09RETURN X X`09END `20 Xc-------------------------------------------------------------------- `20 X XC XC`09SET INTERIOR STYLE INDEX XC X`09SUBROUTINE PSISI (ISTYLI) X X`09INTEGER ISTYLI X X`09EXTERNAL PSETINTSTYLEIND X X`09CALL PSETINTSTYLEIND(%VAL(ISTYLI)) `20 X X`09RETURN X X`09END `20 Xc-------------------------------------------------------------------- X XC XC`09SET INTERIOR COLOUR INDEX XC X`09SUBROUTINE PSICI (COLI) X X`09INTEGER COLI X X`09EXTERNAL PSETINTCOLOURIND X X`09CALL PSETINTCOLOURIND(%VAL(COLI)) X X`09RETURN X X`09END `20 Xc--------------------------------------------------------------------`20 X XC XC`09SET EDGE FLAG XC X`09SUBROUTINE PSEDFG (EDFLAG) X X`09INTEGER EDFLAG X X`09EXTERNAL PSETEDGEFLAG X X`09CALL PSETEDGEFLAG(%VAL(EDFLAG)) X X`09RETURN X X`09END `20 Xc-------------------------------------------------------------------- X XC XC`09SET EDGETYPE XC X`09SUBROUTINE PSEDT (EDTYPE) X X`09INTEGER EDTYPE X X`09EXTERNAL PSETEDGETYPE X X`09CALL PSETEDGETYPE(%VAL(EDTYPE)) X X`09RETURN X X`09END `20 Xc-------------------------------------------------------------------- `20 X XC XC`09SET EDGEWIDTH SCALE FACTOR XC X`09SUBROUTINE PSEWSC (EWIDTH) X X`09REAL EWIDTH X X`09EXTERNAL pc_setedgewidth X X`09CALL pc_setedgewidth(EWIDTH) X X`09RETURN X X`09END `20 Xc-------------------------------------------------------------------- X XC XC`09SET EDGE COLOUR INDEX XC X`09SUBROUTINE PSEDCI (COLI) X X`09INTEGER COLI X X`09EXTERNAL PSETEDGECOLOURIND X X`09CALL PSETEDGECOLOURIND(%VAL(COLI)) X X`09RETURN X X`09END `20 Xc-------------------------------------------------------------------- `20 X XC XC SET INDIVIDUAL ASF XC X`09 X`09SUBROUTINE PSIASF(ASPCID, ASFVAL)`20 X X`09INTEGER ASPCID`20 X`09INTEGER ASFVAL X X`09EXTERNAL SETINDIVASF X X`09CALL SETINDIVASF(%VAL(ASPCID),%VAL(ASFVAL)) X X`09RETURN X X`09END `20 Xc-------------------------------------------------------------------- `20 X XC XC SET POLYLINE REPRESENTATION XC X X`09SUBROUTINE PSPLR (WKID,PLI,LTYPE,LWIDTH,COLI) X X`09INTEGER WKID X`09INTEGER PLI `20 X`09INTEGER LTYPE X`09REAL LWIDTH X`09INTEGER COLI X X`09EXTERNAL pc_setlinerep X X`09CALL pc_setlinerep(%VAL(WKID), %VAL(PLI), %val(LTYPE),`20 X : LWIDTH, %VAL(COLI)) X X`09RETURN X X`09END `20 Xc--------------------------------------------------------------------`20 XC XC SET POLYMARKER REPRESENTATION XC X X`09SUBROUTINE PSPMR (WKID,PMI,MTYPE,MSZSF,COLI) X X`09INTEGER WKID `20 X`09INTEGER PMI X`09INTEGER MTYPE`20 X`09REAL MSZSF`20 X`09INTEGER COLI`20 X X`09EXTERNAL pc_setmarkerrep X X`09CALL pc_setmarkerrep(%VAL(WKID), %VAL(PMI), %val(MTYPE),`20 X : MSZSF, %VAL(COLI)) X X`09RETURN X X`09END `20 Xc-------------------------------------------------------------------- `20 X XC XC SET TEXT REPRESENTATION XC X X`09SUBROUTINE PSTXR (WKID,TXI,FONT,PREC,CHXP,CHSP,COLI) X X`09INTEGER WKID X`09INTEGER TXI`20 X`09INTEGER FONT X`09INTEGER PREC`20 X`09REAL CHXP X`09REAL CHSP X`09INTEGER COLI X X`09EXTERNAL pc_settextrep X X`09CALL pc_settextrep(%VAL(WKID), %VAL(TXI), %val(FONT),`20 X : %VAL(PREC), CHXP, CHSP, %VAL(COLI)) X X`09RETURN X X`09END `20 Xc-------------------------------------------------------------------- `20 X XC XC SET INTERIOR REPRESENTATION XC X X`09SUBROUTINE PSIR (WKID,II,INTS,STYLI,COLI) X X`09INTEGER WKID`20 X`09INTEGER II`20 X`09INTEGER INTS X`09INTEGER STYLI X`09INTEGER COLI X X`09EXTERNAL pc_setintrep X X`09CALL pc_setintrep(%VAL(WKID), %VAL(II), %val(INTS),`20 X : %val(STYLI), %VAL(COLI)) X X`09RETURN X X`09END `20 Xc-------------------------------------------------------------------- X `20 XC XC SET EDGE REPRESENTATION XC X X`09SUBROUTINE PSEDR (WKID,EDI,EDFLAG,EDTYPE,EWIDTH,COLI) X X`09INTEGER WKID X`09INTEGER EDI X`09INTEGER EDFLAG`20 X`09INTEGER EDTYPE X`09REAL EWIDTH`20 X`09INTEGER COLI X X`09EXTERNAL pc_setedgerep X X`09CALL pc_setedgerep(%VAL(WKID), %VAL(EDI), %val(EDFLAG),`20 X : %val(EDTYPE), EWIDTH, %VAL(COLI)) X X`09RETURN X X`09END `20 Xc-------------------------------------------------------------------- `20 X XC XC SET COLOUR REPRESENTATION XC `20 X X`09SUBROUTINE PSCR (WKID,CI,C1,C2,C3)`20 X X`09INTEGER WKID X`09INTEGER CI`20 X`09REAL C1, C2, C3 X X`09EXTERNAL pc_setcolourrep X X`09CALL pc_setcolourrep(%VAL(WKID), %VAL(CI), C1, C2, C3) X X`09RETURN X X`09END `20 Xc-------------------------------------------------------------------- `20 X XC XC SET HIGHLIGHTING FILTER XC X +-+-+-+-+-+-+-+- END OF PART 164 +-+-+-+-+-+-+-+-