Initial commit

1 files changed, 65 insertions, 0 deletions

diff --git a/sys/gio/ncarutil/autograph/ezmy.f b/sys/gio/ncarutil/autograph/ezmy.f
new file mode 100644
index 00000000..e406465b
--- /dev/null
+++ b/sys/gio/ncarutil/autograph/ezmy.f
@@ -0,0 +1,65 @@
+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 EZMY (YDRA,IDXY,MANY,NPTS,LABG)
+C
+      REAL XDRA(1),YDRA(*)
+C
+      CHARACTER*(*) LABG
+C
+C The routine EZMY draws many curves, each of them defined by points of
+C the form (I,YDRA(I,J)) or (I,YDRA(J,I)), for I = 1, 2, ... NPTS and
+C for J = 1, 2, ... MANY.  (YDRA is actually dimensioned IDXY by * .)
+C
+C Do statistics-gathering call.
+C
+      LOGICAL Q8Q4
+      SAVE Q8Q4
+      DATA Q8Q4 /.TRUE./
+      IF (Q8Q4) THEN
+        CALL Q8QST4('GRAPHX','AUTOGRAPH','EZMY','VERSION 07')
+        Q8Q4 = .FALSE.
+      ENDIF
+C
+C +NOAO
+C
+      call agdflt
+C
+C -NOAO
+      CALL AGGETI ('SET .',ISET)
+      CALL AGGETI ('FRAM.',IFRA)
+      CALL AGGETI ('DASH/SELE.',IDSH)
+C
+      CALL AGEZSU (3,XDRA,YDRA,IDXY,MANY,NPTS,LABG,IIVX,IIEX,IIVY,IIEY)
+      CALL AGBACK
+C
+      IF (ISET.LT.0) GO TO 102
+C
+           DO 101 I=1,MANY
+           INYD=1+(I-1)*IIVY
+           KDSH=ISIGN(I,IDSH)
+           CALL AGCURV (XDRA,0,YDRA(INYD),IIEY,NPTS,KDSH)
+  101      CONTINUE
+C
+  102 IF (IFRA.EQ.1) CALL FRAME
+C
+C +NOAO
+C
+      call initag
+C
+C -NOAO
+      RETURN
+C
+      END