Repatch (from linux) of OSX IRAF

1 files changed, 23 insertions, 0 deletions

diff --git a/sys/imio/dbc/imakici.x b/sys/imio/dbc/imakici.x
new file mode 100644
index 00000000..02177184
--- /dev/null
+++ b/sys/imio/dbc/imakici.x
@@ -0,0 +1,23 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+# IMAKICI -- Insert a new field to the image header after the given keyword
+# and initialize to the value given.  It is not an error if the parameter
+# already exists.
+
+procedure imakici (im, key, value, comment, pkey, baf)
+
+pointer im                      # image descriptor
+char    key[ARB]                # parameter or field value
+int     value                   # new or initial value of parameter
+char    comment[ARB]
+char    pkey[ARB]               # Pivot keyword to insert 'key'
+int     baf                     # I Insert BEFORE or AFTER
+
+int     imaccf()
+errchk  imaccf, iminfi
+
+begin
+        if (imaccf (im, key) == NO)
+            call iminfi (im, key, pkey, "i", baf)
+        call impkic (im, key, value, comment)
+end