From fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 Mon Sep 17 00:00:00 2001
From: Joseph Hunkeler <jhunkeler@gmail.com>
Date: Wed, 8 Jul 2015 20:46:52 -0400
Subject: Initial commit

---
 sys/gio/ncarutil/autograph/ezy.f | 57 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 57 insertions(+)
 create mode 100644 sys/gio/ncarutil/autograph/ezy.f

(limited to 'sys/gio/ncarutil/autograph/ezy.f')

diff --git a/sys/gio/ncarutil/autograph/ezy.f b/sys/gio/ncarutil/autograph/ezy.f
new file mode 100644
index 00000000..3be54a03
--- /dev/null
+++ b/sys/gio/ncarutil/autograph/ezy.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 EZY (YDRA,NPTS,LABG)
+C
+      REAL XDRA(1),YDRA(*)
+C
+      CHARACTER*(*) LABG
+C
+C The subroutine EZY draws one curve through the points (I,YDRA(I)), for
+C 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','EZY','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 (1,XDRA,YDRA,NPTS,1,NPTS,LABG,IIVX,IIEX,IIVY,IIEY)
+      CALL AGBACK
+C
+      IF (ISET.GE.0) CALL AGCURV (XDRA,0,YDRA,1,NPTS,1)
+C
+      IF (IFRA.EQ.1) CALL FRAME
+C
+C +NOAO
+C
+      call initag
+C
+C -NOAO
+      RETURN
+C
+      END
-- 
cgit