1 files changed, 57 insertions, 0 deletions
diff --git a/sys/gio/ncarutil/autograph/ezxy.f b/sys/gio/ncarutil/autograph/ezxy.f
new file mode 100644
index 00000000..e6ef3b5e
--- /dev/null
+++ b/sys/gio/ncarutil/autograph/ezxy.f
@@ -0,0 +1,57 @@
+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 EZXY (XDRA,YDRA,NPTS,LABG)
+C
+      REAL XDRA(*),YDRA(*)
+C
+      CHARACTER*(*) LABG
+C
+C The routine EZXY draws one curve through the points (XDRA(I),YDRA(I)),
+C for I = 1, 2, ... NPTS.
+C
+C Do statistics-gathering call.
+C
+      LOGICAL Q8Q4
+      SAVE Q8Q4
+      DATA Q8Q4 /.TRUE./
+      IF (Q8Q4) THEN
+        CALL Q8QST4('GRAPHX','AUTOGRAPH','EZXY','VERSION 07')
+        Q8Q4 = .FALSE.
+      ENDIF
+C
+C +NOAO
+C
+      call agdflt
+C
+C -NOAO
+      CALL AGGETI ('SET .',ISET)
+      CALL AGGETI ('FRAM.',IFRA)
+C
+      CALL AGEZSU (2,XDRA,YDRA,NPTS,1,NPTS,LABG,IIVX,IIEX,IIVY,IIEY)
+      CALL AGBACK
+C
+      IF (ISET.GE.0) CALL AGCURV (XDRA,1,YDRA,1,NPTS,1)
+C
+      IF (IFRA.EQ.1) CALL FRAME
+C
+C +NOAO
+C
+      call initag
+C
+C -NOAO
+      RETURN
+C
+      END