1 files changed, 69 insertions, 0 deletions
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()