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/imred/ctioslit/ctioslit.cl | 69 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 69 insertions(+)
 create mode 100644 noao/imred/ctioslit/ctioslit.cl

(limited to 'noao/imred/ctioslit/ctioslit.cl')

diff --git a/noao/imred/ctioslit/ctioslit.cl b/noao/imred/ctioslit/ctioslit.cl
new file mode 100644
index 00000000..abc2a1f3
--- /dev/null
+++ b/noao/imred/ctioslit/ctioslit.cl
@@ -0,0 +1,69 @@
+#{ CTIOSLIT package definition
+
+# Define CTIOSLIT package
+package ctioslit
+
+set	demos		= "ctioslit$demos/"
+
+# Slitproc
+cl < doslit$doslittasks.cl
+task	sparams		= "ctioslit$sparams.par"
+
+# Onedspec tasks
+task	autoidentify,
+	continuum,
+	deredden,
+	dispcor,
+	dopcor,
+	identify,
+	refspectra,
+	reidentify,
+	sarith,
+	sflip,
+	slist,
+	splot,
+	specplot,
+	specshift	= "onedspec$x_onedspec.e"
+task	scombine	= "onedspec$scombine/x_scombine.e"
+task	aidpars		= "onedspec$aidpars.par"
+task	bplot		= "onedspec$bplot.cl"
+task	scopy		= "onedspec$scopy.cl"
+task	dispcor1	= "onedspec$dispcor1.par"
+
+# Different default parameters
+task	calibrate,
+	sensfunc,
+	standard	= "ctioslit$x_onedspec.e"
+
+# Apextract tasks
+task	apall,
+	apedit,
+	apfind,
+	apflatten,
+	apnormalize,
+	aprecenter,
+	apresize,
+	apsum,
+	aptrace		= "apextract$x_apextract.e"
+task	apdefault	= "apextract$apdefault.par"
+task	apparams	= "apextract$apparams.par"
+task	apall1		= "apextract$apall1.par"
+task	apflat1		= "apextract$apflat1.par"
+task	apnorm1		= "apextract$apflat1.par"
+
+# Longslit tasks
+task	illumination,
+	response	= "twodspec$longslit/x_longslit.e"
+task	background	= "generic$background.cl"
+
+# Astutil tasks
+task	setairmass,
+	setjd		= "astutil$x_astutil.e"
+
+# Demos
+task	demos		= "demos$demos.cl"
+
+# Hide tasks from the user
+hidetask apparams, apall1, apflat1, apnorm1, dispcor1, sparams
+
+clbye()
-- 
cgit