1 files changed, 69 insertions, 0 deletions
diff --git a/sys/gio/ncarutil/autograph/agdash.f b/sys/gio/ncarutil/autograph/agdash.f
new file mode 100644
index 00000000..243eb808
--- /dev/null
+++ b/sys/gio/ncarutil/autograph/agdash.f
@@ -0,0 +1,69 @@
+C
+C                                                                               
+C +-----------------------------------------------------------------+           
+C |                                                                 |           
+C |                Copyright (C) 1986 by UCAR                       |           
+C |        University Corporation for Atmospheric Research          |           
+C |                    All Rights Reserved                          |           
+C |                                                                 |           
+C |                 NCARGRAPHICS  Version 1.00                      |           
+C |                                                                 |           
+C +-----------------------------------------------------------------+           
+C                                                                               
+C                                                                               
+C ---------------------------------------------------------------------
+C
+      SUBROUTINE AGDASH (DASH,WODQ,WOCD,SCWP)
+C
+C AGDASH sets up the DASHD call required to establish the dash pattern
+C desired for the next curve.  The arguments are as follows:
+C
+C -- DASH specifies the desired dash pattern.  A positive value implies
+C    that a binary dash pattern is to be used, a negative value that a
+C    character-string dash pattern is to be used.
+C
+C -- WODQ is the width of the solid-line segment specified by a dollar
+C    sign and the gap specified by a quote, expressed as a fraction of
+C    the smaller side of the curve window.
+C
+C -- WOCD is the width of a character which is to be a part of the dash
+C    pattern, expressed in the same units as WODQ.
+C
+C -- SCWP is the length of the smaller side of the curve window, in
+C    plotter coordinate units.
+C
+C The following common block contains other AUTOGRAPH variables, both
+C real and integer, which are not control parameters.  The only ones
+C used here are MWCD and MWDQ - the minimum widths of characters and
+C spaces, respectively, in the dash pattern.
+C
+      COMMON /AGORIP/ SMRL , ISLD , MWCL,MWCM,MWCE,MDLA,MWCD,MWDQ ,
+     +                INIF
+C
+C The following common block contains other AUTOGRAPH variables, of type
+C character.
+C
+      COMMON /AGOCHP/ CHS1,CHS2
+C
+c+noao
+c     CHARACTER*504 CHS1,CHS2
+      CHARACTER*500 CHS1,CHS2
+c-noao
+C
+C The AUTOGRAPH function AGFPBN is of type integer.
+C
+      INTEGER AGFPBN
+C
+      IWCD=MAX0(MWCD,IFIX(WOCD*SCWP))
+      IWDQ=MAX0(MWDQ,IFIX(WODQ*SCWP))
+C
+      IF (DASH.GE.0.) THEN
+        CALL DASHDB (AGFPBN(DASH))
+      ELSE
+        CALL AGGTCH (IFIX(DASH),CHS1,LNC1)
+        CALL DASHDC (CHS1(1:LNC1),IWDQ,IWCD)
+      END IF
+C
+      RETURN
+C
+      END