Initial commit

1 files changed, 17 insertions, 0 deletions

diff --git a/unix/os/zzexit.c b/unix/os/zzexit.c
new file mode 100644
index 00000000..a54cfc38
--- /dev/null
+++ b/unix/os/zzexit.c
@@ -0,0 +1,17 @@
+#include <stdlib.h>
+
+#define import_spp
+#include <iraf.h>
+
+/*
+ * ZZEXIT.C -- Fortran callable exit procedure.  Some systems (e.g. libf2c)
+ * require this procedure.  We implement it as a separate library procedure
+ * so that it can be replaced by a user exit procedure.
+ */
+int
+exit_ (code)
+XINT *code;
+{
+	exit (*code);
+	return (XOK);
+}