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

---
 noao/digiphot/photcal/mkcatalog.cl | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 noao/digiphot/photcal/mkcatalog.cl

(limited to 'noao/digiphot/photcal/mkcatalog.cl')

diff --git a/noao/digiphot/photcal/mkcatalog.cl b/noao/digiphot/photcal/mkcatalog.cl
new file mode 100644
index 00000000..8c9b0e20
--- /dev/null
+++ b/noao/digiphot/photcal/mkcatalog.cl
@@ -0,0 +1,25 @@
+# MKCATALOG -- Create / edit a catalog of photometric standards.
+
+procedure mkcatalog (catalog)
+
+file	catalog		{prompt="The name of the output catalog"}
+bool	review		{no, prompt="Verify each existing catalog record"}
+bool	verify		{no, prompt="Verify each new catalog record"}
+bool	edit		{yes,prompt="Check the output catalog with the editor"}
+
+
+begin
+	# Declare local variables
+	file	cat
+
+	# Get the positional parameters
+	cat = catalog
+
+	# Make a new catalog or edit an existing catalog.
+	catalog (cat, review=review, verify=verify)
+
+	# Edit the catalog with the editor.
+	print ("")
+	if (access (cat) && edit)
+	    edit (cat)
+end
-- 
cgit