1 files changed, 103 insertions, 0 deletions
diff --git a/noao/imred/specred/specred.cl b/noao/imred/specred/specred.cl
new file mode 100644
index 00000000..ab859853
--- /dev/null
+++ b/noao/imred/specred/specred.cl
@@ -0,0 +1,103 @@
+#{ SPECRED package definition
+
+proto		# bscale
+
+s1 = envget ("min_lenuserarea")
+if (s1 == "")
+    reset min_lenuserarea = 100000
+else if (int (s1) < 100000)
+    reset min_lenuserarea = 100000
+ 
+package specred
+
+# Slitproc
+cl < doslit$doslittasks.cl
+task	sparams		= "specred$sparams.par"
+
+# Dofibers
+task	dofibers	= "specred$dofibers.cl"
+task	params		= "specred$params.par"
+
+task	proc		= "srcfibers$proc.cl"
+task	fibresponse	= "srcfibers$fibresponse.cl"
+task	arcrefs		= "srcfibers$arcrefs.cl"
+task	doarcs		= "srcfibers$doarcs.cl"
+task	doalign		= "srcfibers$doalign.cl"
+task	skysub		= "srcfibers$skysub.cl"
+task	batch		= "srcfibers$batch.cl"
+task	getspec		= "srcfibers$getspec.cl"
+task	listonly	= "srcfibers$listonly.cl"
+task	apscript	= "srcfibers$x_apextract.e"
+
+# Generic fiber reduction tasks
+task	msresp1d	= "specred$msresp1d.cl"
+
+# Onedspec tasks
+task	autoidentify,
+	calibrate,
+	continuum,
+	deredden,
+	dispcor,
+	dopcor,
+	fitprofs,
+	identify,
+	odcombine,
+	refspectra,
+	reidentify,
+	sapertures,
+	sarith,
+	sensfunc,
+	sfit,
+	sflip,
+	slist,
+	skytweak,
+	specplot,
+	specshift,
+	splot,
+	standard,
+	telluric	= "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"
+ 
+# Apextract tasks
+task	apall,
+	apedit,
+	apfind,
+	apfit,
+	apflatten,
+	apmask,
+	apnormalize,
+	aprecenter,
+	apresize,
+	apscatter,
+	apsum,
+	aptrace		= "apextract$x_apextract.e"
+task	apparams	= "apextract$apparams.par"
+task	apall1		= "apextract$apall1.par"
+task	apfit1		= "apextract$apfit1.par"
+task	apflat1		= "apextract$apflat1.par"
+task	apnorm1		= "apextract$apnorm1.par"
+task	apdefault	= "apextract$apdefault.par"
+task	apscat1		= "apextract$apscat1.par"
+task	apscat2		= "apextract$apscat2.par"
+
+# Longslit tasks
+task	illumination,
+	lscombine,
+	response,
+	transform	= "twodspec$longslit/x_longslit.e"
+task	background	= "generic$background.cl"
+
+# Astutil tasks
+task	setairmass,
+	setjd		= "astutil$x_astutil.e"
+
+# Hide tasks from the user
+hidetask apparams, apall1, apfit1, apflat1, apnorm1, apscat1, apscat2, dispcor1
+hidetask sparams, params, doalign
+hidetask apscript, proc, batch, arcrefs, doarcs, getspec, listonly, fibresponse
+
+clbye