Initial commit

19 files changed, 549 insertions, 0 deletions

diff --git a/noao/imred/ctioslit/Revisions b/noao/imred/ctioslit/Revisions
new file mode 100644
index 00000000..28f900fd
--- /dev/null
+++ b/noao/imred/ctioslit/Revisions
@@ -0,0 +1,26 @@
+.help revisions Dec94 noao.imred.ctioslit
+.nf
+
+=====
+V2.12
+=====
+
+imred$ctioslit/standard.par
+    Added blackbody query parameters.  (5/2/02, Valdes)
+
+========
+V2.11.3b
+========
+
+imred$ctioslit/demos/mkdoslit.cl
+    Made the ARTDATA package parameters explicit (4/15/97, Valdes)
+
+imred$ctioslit/sparams.par
+    Changed match from 10. to -3.  (4/5/96, Valdes)
+
+imred$ctioslit/ctioslit.cl
+imred$ctioslit/ctioslit.men
+    Added background, illumination, response, apflatten, apnormalize.
+    (12/29/94, Valdes)
+
+.endhelp
diff --git a/noao/imred/ctioslit/calibrate.par b/noao/imred/ctioslit/calibrate.par
new file mode 100644
index 00000000..e09457a2
--- /dev/null
+++ b/noao/imred/ctioslit/calibrate.par
@@ -0,0 +1,13 @@
+# CALIBRATE parameter file
+
+input,s,a,,,,Input spectra to calibrate
+output,s,a,,,,Output calibrated spectra
+extinct,b,h,yes,,,Apply extinction correction?
+flux,b,h,yes,,,Apply flux calibration?
+extinction,s,h,)_.extinction,,,Extinction file
+observatory,s,h,)_.observatory,,,Observatory of observation
+ignoreaps,b,h,yes,,,Ignore aperture numbers in flux calibration?
+sensitivity,s,h,"sens",,,Image root name for sensitivity spectra
+fnu,b,h,no,,,Create spectra having units of FNU?
+airmass,r,q,,1.,,Airmass
+exptime,r,q,,,,Exposure time (seconds)
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()
diff --git a/noao/imred/ctioslit/ctioslit.hd b/noao/imred/ctioslit/ctioslit.hd
new file mode 100644
index 00000000..3ce338e7
--- /dev/null
+++ b/noao/imred/ctioslit/ctioslit.hd
@@ -0,0 +1 @@
+# Help directory for the CTIOSLIT package.
diff --git a/noao/imred/ctioslit/ctioslit.men b/noao/imred/ctioslit/ctioslit.men
new file mode 100644
index 00000000..31c74dd0
--- /dev/null
+++ b/noao/imred/ctioslit/ctioslit.men
@@ -0,0 +1,38 @@
+          apall - Extract 1D spectra (all parameters in one task)
+      apdefault - Set the default aperture parameters
+         apedit - Edit apertures interactively
+	 apfind - Automatically find spectra and define apertures
+      apflatten - Remove overall spectral and profile shapes from flat fields
+    apnormalize - Normalize 2D apertures by 1D functions
+     aprecenter - Recenter apertures
+       apresize - Resize apertures
+          apsum - Extract 1D spectra
+	aptrace - Trace positions of spectra
+
+     background - Fit and subtract a line or column background
+	  bplot - Batch plot of spectra with SPLOT
+      calibrate - Apply extinction and flux calibrations to spectra
+      continuum - Fit and normalize the continuum of multispec spectra
+       deredden - Apply interstellar extinction corrections
+        dispcor - Dispersion correct spectra
+	 dopcor - Doppler correct spectra
+       identify - Identify arc lines and determine a dispersion function
+   illumination - Determine illumination calibration
+     refspectra - Assign reference spectra to observations
+     reidentify - Reidentify arc lines and determine new dispersion functions
+       response - Determine response calibration
+	 sarith - Spectrum arithmetic
+       scombine - Combine spectra
+          scopy - Copy spectra including aperture selection and format changes
+       sensfunc - Create sensitivity function
+     setairmass - Compute effective airmass and middle UT for an exposure
+          setjd - Compute and set Julian dates in images
+	  sflip - Flip data and/or dispersion coordinates in spectra
+          slist - List spectrum headers
+       specplot - Stack and plot multiple spectra
+      specshift - Shift spectral dispersion coordinate systems
+	  splot - Plot and analyze spectra
+       standard - Identify standard stars to be used in sensitivity calc
+
+         doslit - Process CTIO slit spectra
+	  demos - Demonstrations and tests
diff --git a/noao/imred/ctioslit/ctioslit.par b/noao/imred/ctioslit/ctioslit.par
new file mode 100644
index 00000000..4ed0fbf0
--- /dev/null
+++ b/noao/imred/ctioslit/ctioslit.par
@@ -0,0 +1,15 @@
+# CTIOSLIT parameter file
+extinction,s,h,onedstds$ctioextinct.dat,,,Extinction file
+caldir,s,h,onedstds$ctionewcal/,,,Standard star calibration directory
+observatory,s,h,"observatory",,,Observatory of data
+interp,s,h,"poly5","nearest|linear|poly3|poly5|spline3|sinc",,Interpolation type
+dispaxis,i,h,2,1,3,Image axis for 2D/3D images
+nsum,s,h,"1",,,"Number of lines/columns/bands to sum for 2D/3D images
+"
+database,f,h,"database",,,Database
+verbose,b,h,no,,,Verbose output?
+logfile,s,h,"logfile",,,Log file
+plotfile,s,h,"",,,"Plot file
+"
+records,s,h,"",,,Record number extensions
+version,s,h,"CTIOSLIT V3: January 1992"
diff --git a/noao/imred/ctioslit/demos/demoarc1.dat b/noao/imred/ctioslit/demos/demoarc1.dat
new file mode 100644
index 00000000..fa0a179d
--- /dev/null
+++ b/noao/imred/ctioslit/demos/demoarc1.dat
@@ -0,0 +1,38 @@
+    OBJECT  = 'First comp        '  /  object name
+    OBSERVAT= 'KPNO              '  /  observatory
+    OBSERVER= 'Massey            '  /  observers
+    COMMENTS= 'Final New Ice     '  /  comments
+    EXPTIME =                  60.  /  actual integration time
+    DARKTIME=                  60.  /  total elapsed time
+    IMAGETYP= 'comp              '  /  object, dark, bias, etc.
+    DATE-OBS= '26/11/91          '  /  date (dd/mm/yy) of obs.
+    UT      = '12:11:30.00       '  /  universal time
+    ST      = '09:04:54.00       '  /  sidereal time
+    RA      = '06:37:02.00       '  /  right ascension
+    DEC     = '06:09:03.00       '  /  declination
+    EPOCH   =               1991.9  /  epoch of ra and dec
+    ZD      = '48.760            '  /  zenith distance
+    AIRMASS =                   0.  /  airmass
+    TELESCOP= 'kpcdf             '  /  telescope name
+    DETECTOR= 'te1k              '  /  detector
+    PREFLASH=                    0  /  preflash time, seconds
+    GAIN    =                  5.4  /  gain, electrons per adu
+    DWELL   =                    5  /  sample integration time
+    RDNOISE =                  3.5  /  read noise, electrons per adu
+    DELAY0  =                    0  /  time delay after each pixel
+    DELAY1  =                    0  /  time delay after each row
+    CAMTEMP =                 -111  /  camera temperature
+    DEWTEMP =                 -183  /  dewar temperature
+    CCDSEC  = '[97:134,2:1023]'     /  orientation to full frame
+    ORIGSEC = '[1:1024,1:1024]   '  /  original size  full frame
+    CCDSUM  = '1 1               '  /  on chip summation
+    INSTRUME= 'test              '  /  instrument
+    APERTURE= '250micron slit    '  /  aperture
+    TVFILT  = '4-96              '  /  tv filter
+    DISPAXIS= '2                 '  /  dispersion axis
+    GRATPOS =               4624.3  /  grating position
+    TRIM    = 'Nov 26  5:44 Trim data section is [23:60,2:1023]'
+    OVERSCAN= 'Nov 26  5:44 Overscan section is [103:133,2:1023] with mean=611.1
+    ZEROCOR = 'Nov 26  5:44 Zero level correction image is Zerof'
+    CCDMEAN =              179.398
+    CCDPROC = 'Nov 26  5:44 CCD processing done'
diff --git a/noao/imred/ctioslit/demos/demoarc2.dat b/noao/imred/ctioslit/demos/demoarc2.dat
new file mode 100644
index 00000000..4cd9975d
--- /dev/null
+++ b/noao/imred/ctioslit/demos/demoarc2.dat
@@ -0,0 +1,38 @@
+    OBJECT  = 'Last comp         '  /  object name
+    OBSERVAT= 'KPNO              '  /  observatory
+    OBSERVER= 'Massey            '  /  observers
+    COMMENTS= 'Final New Ice     '  /  comments
+    EXPTIME =                  60.  /  actual integration time
+    DARKTIME=                  60.  /  total elapsed time
+    IMAGETYP= 'comp              '  /  object, dark, bias, etc.
+    DATE-OBS= '26/11/91          '  /  date (dd/mm/yy) of obs.
+    UT      = '12:41:30.00       '  /  universal time
+    ST      = '09:34:54.00       '  /  sidereal time
+    RA      = '06:37:02.00       '  /  right ascension
+    DEC     = '06:09:03.00       '  /  declination
+    EPOCH   =               1991.9  /  epoch of ra and dec
+    ZD      = '48.760            '  /  zenith distance
+    AIRMASS =                   0.  /  airmass
+    TELESCOP= 'kpcdf             '  /  telescope name
+    DETECTOR= 'te1k              '  /  detector
+    PREFLASH=                    0  /  preflash time, seconds
+    GAIN    =                  5.4  /  gain, electrons per adu
+    DWELL   =                    5  /  sample integration time
+    RDNOISE =                  3.5  /  read noise, electrons per adu
+    DELAY0  =                    0  /  time delay after each pixel
+    DELAY1  =                    0  /  time delay after each row
+    CAMTEMP =                 -111  /  camera temperature
+    DEWTEMP =                 -183  /  dewar temperature
+    CCDSEC  = '[97:134,2:1023]'     /  orientation to full frame
+    ORIGSEC = '[1:1024,1:1024]   '  /  original size  full frame
+    CCDSUM  = '1 1               '  /  on chip summation
+    INSTRUME= 'test              '  /  instrument
+    APERTURE= '250micron slit    '  /  aperture
+    TVFILT  = '4-96              '  /  tv filter
+    DISPAXIS= '2                 '  /  dispersion axis
+    GRATPOS =               4624.3  /  grating position
+    TRIM    = 'Nov 26  5:44 Trim data section is [23:60,2:1023]'
+    OVERSCAN= 'Nov 26  5:44 Overscan section is [103:133,2:1023] with mean=611.1
+    ZEROCOR = 'Nov 26  5:44 Zero level correction image is Zerof'
+    CCDMEAN =              179.398
+    CCDPROC = 'Nov 26  5:44 CCD processing done'
diff --git a/noao/imred/ctioslit/demos/demoobj1.dat b/noao/imred/ctioslit/demos/demoobj1.dat
new file mode 100644
index 00000000..78f3b9ad
--- /dev/null
+++ b/noao/imred/ctioslit/demos/demoobj1.dat
@@ -0,0 +1,37 @@
+    OBJECT  = 'V640Mon 4500      '  /  object name
+    OBSERVAT= 'KPNO              '  /  observatory
+    OBSERVER= 'Massey            '  /  observers
+    COMMENTS= 'Final New Ice     '  /  comments
+    EXPTIME =                1200.  /  actual integration time
+    DARKTIME=                1200.  /  total elapsed time
+    IMAGETYP= 'object            '  /  object, dark, bias, etc.
+    DATE-OBS= '26/11/91          '  /  date (dd/mm/yy) of obs.
+    UT      = '12:19:55.00       '  /  universal time
+    ST      = '09:13:15.00       '  /  sidereal time
+    RA      = '06:37:02.00       '  /  right ascension
+    DEC     = '06:08:52.00       '  /  declination
+    EPOCH   =               1991.9  /  epoch of ra and dec
+    ZD      = '44.580            '  /  zenith distance
+    AIRMASS =                   0.  /  airmass
+    TELESCOP= 'kpcdf             '  /  telescope name
+    DETECTOR= 'te1k              '  /  detector
+    PREFLASH=                    0  /  preflash time, seconds
+    GAIN    =                  5.4  /  gain, electrons per adu
+    DWELL   =                    5  /  sample integration time
+    RDNOISE =                  3.5  /  read noise, electrons per adu
+    DELAY0  =                    0  /  time delay after each pixel
+    DELAY1  =                    0  /  time delay after each row
+    CAMTEMP =                 -111  /  camera temperature
+    DEWTEMP =                 -183  /  dewar temperature
+    CCDSEC  = '[97:134,2:1023]'     /  orientation to full frame
+    ORIGSEC = '[1:1024,1:1024]   '  /  original size  full frame
+    CCDSUM  = '1 1               '  /  on chip summation
+    INSTRUME= 'test              '  /  instrument
+    APERTURE= '250micron slit    '  /  aperture
+    TVFILT  = '4-96              '  /  tv filter
+    DISPAXIS= '2                 '  /  dispersion axis
+    GRATPOS =               4624.3  /  grating position
+    TRIM    = 'Nov 26  5:44 Trim data section is [23:60,2:1023]'
+    OVERSCAN= 'Nov 26  5:44 Overscan section is [103:133,2:1023] with mean=611.1
+    ZEROCOR = 'Nov 26  5:44 Zero level correction image is Zerof'
+    CCDPROC = 'Nov 26  5:44 CCD processing done'
diff --git a/noao/imred/ctioslit/demos/demos.cl b/noao/imred/ctioslit/demos/demos.cl
new file mode 100644
index 00000000..5b065c51
--- /dev/null
+++ b/noao/imred/ctioslit/demos/demos.cl
@@ -0,0 +1,18 @@
+# DEMOS -- Run specified demo provided a demo file exists.
+
+procedure demos (demoname)
+
+file	demoname	{prompt="Demo name"}
+
+begin
+	file	demo, demofile
+
+	if ($nargs == 0 && mode != "h")
+	    type ("demos$demos.men")
+	demo = demoname
+	demofile = "demos$" // demo // ".cl"
+	if (access (demofile))
+	    cl (< demofile)
+	else
+	    error (1, "Unknown demo " // demo)
+end
diff --git a/noao/imred/ctioslit/demos/demos.men b/noao/imred/ctioslit/demos/demos.men
new file mode 100644
index 00000000..c6f83e09
--- /dev/null
+++ b/noao/imred/ctioslit/demos/demos.men
@@ -0,0 +1,4 @@
+	MENU of CTIOSLIT Demonstrations
+
+       doslit - Quick test of DOSLIT (no comments, no delays)
+     mkdoslit - Make DOSLIT test data
diff --git a/noao/imred/ctioslit/demos/demos.par b/noao/imred/ctioslit/demos/demos.par
new file mode 100644
index 00000000..4181ed59
--- /dev/null
+++ b/noao/imred/ctioslit/demos/demos.par
@@ -0,0 +1,2 @@
+demoname,f,a,"",,,"Demo name"
+mode,s,h,"ql",,,
diff --git a/noao/imred/ctioslit/demos/demostd1.dat b/noao/imred/ctioslit/demos/demostd1.dat
new file mode 100644
index 00000000..78f3b9ad
--- /dev/null
+++ b/noao/imred/ctioslit/demos/demostd1.dat
@@ -0,0 +1,37 @@
+    OBJECT  = 'V640Mon 4500      '  /  object name
+    OBSERVAT= 'KPNO              '  /  observatory
+    OBSERVER= 'Massey            '  /  observers
+    COMMENTS= 'Final New Ice     '  /  comments
+    EXPTIME =                1200.  /  actual integration time
+    DARKTIME=                1200.  /  total elapsed time
+    IMAGETYP= 'object            '  /  object, dark, bias, etc.
+    DATE-OBS= '26/11/91          '  /  date (dd/mm/yy) of obs.
+    UT      = '12:19:55.00       '  /  universal time
+    ST      = '09:13:15.00       '  /  sidereal time
+    RA      = '06:37:02.00       '  /  right ascension
+    DEC     = '06:08:52.00       '  /  declination
+    EPOCH   =               1991.9  /  epoch of ra and dec
+    ZD      = '44.580            '  /  zenith distance
+    AIRMASS =                   0.  /  airmass
+    TELESCOP= 'kpcdf             '  /  telescope name
+    DETECTOR= 'te1k              '  /  detector
+    PREFLASH=                    0  /  preflash time, seconds
+    GAIN    =                  5.4  /  gain, electrons per adu
+    DWELL   =                    5  /  sample integration time
+    RDNOISE =                  3.5  /  read noise, electrons per adu
+    DELAY0  =                    0  /  time delay after each pixel
+    DELAY1  =                    0  /  time delay after each row
+    CAMTEMP =                 -111  /  camera temperature
+    DEWTEMP =                 -183  /  dewar temperature
+    CCDSEC  = '[97:134,2:1023]'     /  orientation to full frame
+    ORIGSEC = '[1:1024,1:1024]   '  /  original size  full frame
+    CCDSUM  = '1 1               '  /  on chip summation
+    INSTRUME= 'test              '  /  instrument
+    APERTURE= '250micron slit    '  /  aperture
+    TVFILT  = '4-96              '  /  tv filter
+    DISPAXIS= '2                 '  /  dispersion axis
+    GRATPOS =               4624.3  /  grating position
+    TRIM    = 'Nov 26  5:44 Trim data section is [23:60,2:1023]'
+    OVERSCAN= 'Nov 26  5:44 Overscan section is [103:133,2:1023] with mean=611.1
+    ZEROCOR = 'Nov 26  5:44 Zero level correction image is Zerof'
+    CCDPROC = 'Nov 26  5:44 CCD processing done'
diff --git a/noao/imred/ctioslit/demos/doslit.cl b/noao/imred/ctioslit/demos/doslit.cl
new file mode 100644
index 00000000..b2ecbde2
--- /dev/null
+++ b/noao/imred/ctioslit/demos/doslit.cl
@@ -0,0 +1,14 @@
+# Create demo data if needed.
+
+cl (< "demos$mkdoslit.cl")
+
+unlearn doslit
+sparams.extras = no
+sparams.coordlist = "linelists$idhenear.dat"
+delete demologfile,demoplotfile verify=no >& dev$null
+
+# Execute playback.
+if (substr (envget("stdgraph"), 1, 6) == "xgterm")
+    stty (playback="demos$xgdoslit.dat", nlines=24, verify=no, delay=0)
+else
+    error (1, "Playback for current terminal type not available")
diff --git a/noao/imred/ctioslit/demos/mkdoslit.cl b/noao/imred/ctioslit/demos/mkdoslit.cl
new file mode 100644
index 00000000..b76f467d
--- /dev/null
+++ b/noao/imred/ctioslit/demos/mkdoslit.cl
@@ -0,0 +1,25 @@
+# Create demo data if needed.
+
+artdata
+artdata.nxc = 5
+artdata.nyc = 5
+artdata.nxsub = 10
+artdata.nysub = 10
+artdata.nxgsub = 5
+artdata.nygsub = 5
+artdata.dynrange = 100000.
+artdata.psfrange = 10.
+artdata.ranbuf = 0
+
+mkexample ("longslit", "demoarc1", oseed=5,  nseed=1,
+    errors=no, verbose=yes, list=no)
+mkheader ("demoarc1", "demos$demoarc1.dat", append=no, verbose=no)
+mkexample ("longslit", "demoobj1", oseed=1,  nseed=1,
+    errors=no, verbose=yes, list=no)
+mkheader ("demoobj1", "demos$demoobj1.dat", append=no, verbose=no)
+mkexample ("longslit", "demostd1", oseed=2, nseed=2,
+    errors=no, verbose=yes, list=no)
+mkheader ("demostd1", "demos$demostd1.dat", append=no, verbose=no)
+mkexample ("longslit", "demoarc2", oseed=5,  nseed=2,
+    errors=no, verbose=yes, list=no)
+mkheader ("demoarc2", "demos$demoarc2.dat", append=no, verbose=no)
diff --git a/noao/imred/ctioslit/demos/xgdoslit.dat b/noao/imred/ctioslit/demos/xgdoslit.dat
new file mode 100644
index 00000000..eef7d9f2
--- /dev/null
+++ b/noao/imred/ctioslit/demos/xgdoslit.dat
@@ -0,0 +1,71 @@
+\O=NOAO/IRAF IRAFX valdes@puppis Mon 14:58:37 15-Nov-93
+\T=xgterm
+\G=xgterm
+epar\sctioslit\n
+\r
+\r
+\r
+\r
+\r
+\r
+\r
+y\r
+demologfile\r
+demoplotfile\r
+^Z
+epar\sdoslit\n
+demoobj1\r
+demoarc1,demoarc2\r
+\r
+demostd1\r
+rdnoise\r
+gain\r
+\r
+\r
+5700\r
+6.2\r
+\r
+y\r
+y\r
+y\r
+y\r
+y\r
+^Z
+doslit\sredo+\n
+\n
+\n
+b/<-5\s\s\s\s/=(.\s=\r
+q/<-5\s\s\s\s/=(.\s=\r
+q/<-5\s\s\s\s/=(.\s=\r
+\r
+\r
+q/<-5\s\s\s\s/=(.\s=\r
+\n
+q/<-5\s\s\s\s/=(.\s=\r
+\r
+\r
+q/<-5\s\s\s\s/=(.\s=\r
+f/<-5\s\s\s\s/=(.\s=\r
+l/<-5\s\s\s\s/=(.\s=\r
+q/<-5\s\s\s\s/=(.\s=\r
+q/<-5\s\s\s\s/=(.\s=\r
+y\n
+4210\n
+7350\n
+6.2\n
+\n
+n\n
+\n
+f/<-5\s\s\s\s/=(.\s=\r
+l/<-5\s\s\s\s/=(.\s=\r
+q/<-5\s\s\s\s/=(.\s=\r
+q/<-5\s\s\s\s/=(.\s=\r
+N\n
+f56\n
+\n
+q/<-5\s\s\s\s/=(.\s=\r
+Y\n
+q/<-5\s\s\s\s/=(.\s=\r
+q/<-5\s\s\s\s/=(.\s=\r
+gkimos\sdemoplotfile\snx=3\sny=3\sdev=stdgraph\n
+q/<-5\s\s\s\s/=(.\s=\r
diff --git a/noao/imred/ctioslit/sensfunc.par b/noao/imred/ctioslit/sensfunc.par
new file mode 100644
index 00000000..94f84f4a
--- /dev/null
+++ b/noao/imred/ctioslit/sensfunc.par
@@ -0,0 +1,17 @@
+standards,s,a,std,,,Input standard star data file (from STANDARD)
+sensitivity,s,a,"sens",,,Output root sensitivity function imagename
+apertures,s,h,"",,,Aperture selection list
+ignoreaps,b,h,yes,,,Ignore apertures and make one sensitivity function?
+logfile,f,h,"logfile",,,Output log for statistics information
+extinction,f,h,)_.extinction,,,Extinction file
+newextinction,f,h,"extinct.dat",,,Output revised extinction file
+observatory,s,h,)_.observatory,,,Observatory of data
+function,s,h,"spline3","chebyshev|legendre|spline3|spline1",,Fitting function
+order,i,h,6,1,,Order of fit
+interactive,b,h,yes,,,Determine sensitivity function interactively?
+graphs,s,h,"sr",,,Graphs per frame
+marks,s,h,"plus cross box",,,Data mark types (marks deleted added)
+colors,s,h,"2 1 3 4",,,Colors (lines marks deleted added)
+cursor,*gcur,h,"",,,Graphics cursor input
+device,s,h,"stdgraph",,,Graphics output device
+answer,s,q, yes,"no|yes|NO|YES",,"(no|yes|NO|YES)"
diff --git a/noao/imred/ctioslit/sparams.par b/noao/imred/ctioslit/sparams.par
new file mode 100644
index 00000000..cfdf1f4f
--- /dev/null
+++ b/noao/imred/ctioslit/sparams.par
@@ -0,0 +1,65 @@
+line,i,h,INDEF,,,"Default dispersion line"
+nsum,i,h,10,,,"Number of dispersion lines to sum or median"
+extras,b,h,no,,,"Extract sky, sigma, etc.?
+
+-- DEFAULT APERTURE PARAMETERS -- "
+lower,r,h,-3.,,,Lower aperture limit relative to center
+upper,r,h,3.,,,"Upper aperture limit relative to center
+
+-- AUTOMATIC APERTURE RESIZING PARAMETERS --"
+ylevel,r,h,0.05,,,"Fraction of peak or intensity for resizing
+
+-- TRACE PARAMETERS --"
+t_step,i,h,10,,,"Tracing step"
+t_function,s,h,"spline3","chebyshev|legendre|spline1|spline3",,"Trace fitting function"
+t_order,i,h,1,,,"Trace fitting function order"
+t_niterate,i,h,1,0,,"Trace rejection iterations"
+t_low,r,h,3.,0.,,"Trace lower rejection sigma"
+t_high,r,h,3.,0.,,"Trace upper rejection sigma
+
+-- APERTURE EXTRACTION PARAMETERS --"
+weights,s,h,"none",,,Extraction weights (none|variance)
+pfit,s,h,"fit1d","fit1d|fit2d",,Profile fitting algorithm (fit1d|fit2d)
+lsigma,r,h,3.,,,Lower rejection threshold
+usigma,r,h,3.,,,"Upper rejection threshold
+
+-- BACKGROUND SUBTRACTION PARAMETERS --"
+background,s,h,"fit","none|average|median|minimum|fit",,Background to subtract
+b_function,s,h,"legendre","chebyshev|legendre|spline1|spline3",,"Background function"
+b_order,i,h,1,,,"Background function order"
+b_sample,s,h,"-10:-6,6:10",,,"Background sample regions"
+b_naverage,i,h,-100,,,"Background average or median"
+b_niterate,i,h,1,0,,"Background rejection iterations"
+b_low,r,h,3.,0.,,"Background lower rejection sigma"
+b_high,r,h,3.,0.,,"Background upper rejection sigma
+
+-- ARC DISPERSION FUNCTION PARAMETERS --"
+threshold,r,h,10.,0.,,"Minimum line contrast threshold"
+coordlist,f,h,linelists$idhenear.dat,,,"Line list"
+match,r,h,10.,,,"Line list matching limit in Angstroms"
+fwidth,r,h,4.,,,"Arc line widths in pixels"
+cradius,r,h,10.,,,Centering radius in pixels
+i_function,s,h,"spline3","legendre|chebyshev|spline1|spline3",,"Coordinate function"
+i_order,i,h,1,1,,"Order of dispersion function"
+i_niterate,i,h,1,0,,"Rejection iterations"
+i_low,r,h,3.,0.,,"Lower rejection sigma"
+i_high,r,h,3.,0.,,"Upper rejection sigma"
+refit,b,h,yes,,,"Refit coordinate function when reidentifying?"
+addfeatures,b,h,no,,,"Add features when reidentifying?
+
+-- AUTOMATIC ARC ASSIGNMENT PARAMETERS --"
+select,s,h,"interp",,,"Selection method for reference spectra"
+sort,s,h,"jd",,,"Sort key"
+group,s,h,"ljd",,,"Group key"
+time,b,h,no,,,"Is sort key a time?"
+timewrap,r,h,17.,0.,24.,"Time wrap point for time sorting
+
+-- DISPERSION CORRECTION PARAMETERS --"
+linearize,b,h,yes,,,Linearize (interpolate) spectra?
+log,b,h,no,,,"Logarithmic wavelength scale?"
+flux,b,h,yes,,,"Conserve flux?
+
+-- SENSITIVITY CALIBRATION PARAMETERS --"
+s_function,s,h,"spline3","chebyshev|legendre|spline3|spline1",,"Fitting function"
+s_order,i,h,1,1,,"Order of sensitivity function"
+fnu,b,h,no,,,"Create spectra having units of FNU?"
diff --git a/noao/imred/ctioslit/standard.par b/noao/imred/ctioslit/standard.par
new file mode 100644
index 00000000..99b98877
--- /dev/null
+++ b/noao/imred/ctioslit/standard.par
@@ -0,0 +1,21 @@
+input,f,a,,,,Input image file root name
+output,s,a,std,,,Output flux file (used by SENSFUNC)
+samestar,b,h,yes,,,Same star in all apertures?
+beam_switch,b,h,no,,,Beam switch spectra?
+apertures,s,h,"",,,Aperture selection list
+bandwidth,r,h,INDEF,,,Bandpass widths
+bandsep,r,h,INDEF,,,Bandpass separation
+fnuzero,r,h,3.68e-20,,,Absolute flux zero point
+extinction,s,h,)_.extinction,,,Extinction file
+caldir,s,h,)_.caldir,,,Directory containing calibration data
+observatory,s,h,)_.observatory,,,Observatory for data
+interact,b,h,yes,,,Graphic interaction to define new bandpasses
+graphics,s,h,"stdgraph",,,Graphics output device
+cursor,*gcur,h,"",,,Graphics cursor input
+star_name,s,q,,,,Star name in calibration list
+airmass,r,q,,1.,,Airmass
+exptime,r,q,,,,Exposure time (seconds)
+mag,r,q,,,,Magnitude of star
+magband,s,q,,"U|B|V|R|I|J|H|K|L|Lprime|M",,"Magnitude type"
+teff,s,q,,,,Effective temperature or spectral type
+answer,s,q,no,,,"(no|yes|NO|YES|NO!|YES!)"