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