SUBROUTINE DASHDB (IPAT) CALL DPSETI ('DPS - DASH PATTERN SELECTOR',-16) CALL DPSETI ('DPT - DASH PATTERN (INTEGER)',IPAT) RETURN END SUBROUTINE DASHDC (IPAT,JCRT,JSIZ) CHARACTER*(*) IPAT CALL DPSETI ('DPS - DASH PATTERN SELECTOR',0) CALL DPSETC ('DPT - DASH PATTERN (CHARACTER)',IPAT) CALL DPSETR ('WOG - WIDTH OF GAP',CPFX(JCRT)) CALL DPSETR ('WOS - WIDTH OF SOLID',CPFX(JCRT)) IF (JSIZ.EQ.0) THEN ISIZ=8 ELSE IF (JSIZ.EQ.1) THEN ISIZ=12 ELSE IF (JSIZ.EQ.2) THEN ISIZ=16 ELSE IF (JSIZ.EQ.3) THEN ISIZ=24 ELSE ISIZ=JSIZ END IF CALL DPSETR ('WOC - WIDTH OF CHARACTER',CPFX(ISIZ)) RETURN END SUBROUTINE CURVED (XCRA,YCRA,NCRA) DIMENSION XCRA(NCRA),YCRA(NCRA) CALL DPCURV (XCRA,YCRA,NCRA) RETURN END SUBROUTINE FRSTD (XCOP,YCOP) CALL DPFRST (XCOP,YCOP) RETURN END SUBROUTINE VECTD (XCOP,YCOP) CALL DPVECT (XCOP,YCOP) RETURN END SUBROUTINE LASTD CALL DPLAST RETURN END