aboutsummaryrefslogtreecommitdiff
path: root/noao/imred/kpnoslit
diff options
context:
space:
mode:
Diffstat (limited to 'noao/imred/kpnoslit')
-rw-r--r--noao/imred/kpnoslit/Revisions32
-rw-r--r--noao/imred/kpnoslit/calibrate.par13
-rw-r--r--noao/imred/kpnoslit/demos/demoarc1.dat38
-rw-r--r--noao/imred/kpnoslit/demos/demoarc2.dat38
-rw-r--r--noao/imred/kpnoslit/demos/demoflat.dat38
-rw-r--r--noao/imred/kpnoslit/demos/demoobj1.dat37
-rw-r--r--noao/imred/kpnoslit/demos/demos.cl18
-rw-r--r--noao/imred/kpnoslit/demos/demos.men4
-rw-r--r--noao/imred/kpnoslit/demos/demos.par2
-rw-r--r--noao/imred/kpnoslit/demos/demostd1.dat37
-rw-r--r--noao/imred/kpnoslit/demos/doslit.cl14
-rw-r--r--noao/imred/kpnoslit/demos/mkdoslit.cl28
-rw-r--r--noao/imred/kpnoslit/demos/xgdoslit.dat71
-rw-r--r--noao/imred/kpnoslit/kpnoslit.cl69
-rw-r--r--noao/imred/kpnoslit/kpnoslit.hd1
-rw-r--r--noao/imred/kpnoslit/kpnoslit.men38
-rw-r--r--noao/imred/kpnoslit/kpnoslit.par15
-rw-r--r--noao/imred/kpnoslit/sensfunc.par17
-rw-r--r--noao/imred/kpnoslit/sparams.par65
-rw-r--r--noao/imred/kpnoslit/standard.par21
20 files changed, 596 insertions, 0 deletions
diff --git a/noao/imred/kpnoslit/Revisions b/noao/imred/kpnoslit/Revisions
new file mode 100644
index 00000000..2d50d554
--- /dev/null
+++ b/noao/imred/kpnoslit/Revisions
@@ -0,0 +1,32 @@
+.help revisions Jun88 noao.imred.kpnoslit
+.nf
+
+=====
+V2.12
+=====
+
+imred$kpnoslit/standard.par
+ Added blackbody query parameters. (5/2/02, Valdes)
+
+========
+V2.11.3b
+========
+
+imred$kpnoslit/demos/mkdoslit.cl
+ Made the ARTDATA package parameters explicit (4/15/97, Valdes)
+
+imred$kpnoslit/sparams.par
+ Changed match from 10 to -3. (4/5/96, Valdes)
+
+imred$kpnoslit/kpnoslit.cl
+imred$kpnoslit/kpnoslit.men
+ Added background, illumination, response, apflatten, apnormalize.
+ (12/29/94, Valdes)
+
+imred$kpnoslit/demos/xdoslit.dat
+ Incorrectly used hz2 as a standard star instead of hz44. (8/10/92, Valdes)
+
+=======
+V2.10.1
+=======
+.endhelp
diff --git a/noao/imred/kpnoslit/calibrate.par b/noao/imred/kpnoslit/calibrate.par
new file mode 100644
index 00000000..e09457a2
--- /dev/null
+++ b/noao/imred/kpnoslit/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/kpnoslit/demos/demoarc1.dat b/noao/imred/kpnoslit/demos/demoarc1.dat
new file mode 100644
index 00000000..dd6b0161
--- /dev/null
+++ b/noao/imred/kpnoslit/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= '1991-11-26T12:11:30.00' / 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/kpnoslit/demos/demoarc2.dat b/noao/imred/kpnoslit/demos/demoarc2.dat
new file mode 100644
index 00000000..5c2d8050
--- /dev/null
+++ b/noao/imred/kpnoslit/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= '1991-11-26T12:41:30.00' / 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/kpnoslit/demos/demoflat.dat b/noao/imred/kpnoslit/demos/demoflat.dat
new file mode 100644
index 00000000..0d5ed308
--- /dev/null
+++ b/noao/imred/kpnoslit/demos/demoflat.dat
@@ -0,0 +1,38 @@
+OBJECT = 'Flat field ' / object name
+OBSERVAT= 'KPNO ' / observatory
+OBSERVER= 'Massey ' / observers
+COMMENTS= 'Final New Ice ' / comments
+EXPTIME = 3. / actual integration time
+DARKTIME= 3. / total elapsed time
+IMAGETYP= 'flat ' / object, dark, bias, etc.
+DATE-OBS= '1991-11-26T11:11:30.00' / date (dd/mm/yy) of obs.
+UT = '11: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/kpnoslit/demos/demoobj1.dat b/noao/imred/kpnoslit/demos/demoobj1.dat
new file mode 100644
index 00000000..bf571862
--- /dev/null
+++ b/noao/imred/kpnoslit/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= '1991-11-26T12:19:55.00' / 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/kpnoslit/demos/demos.cl b/noao/imred/kpnoslit/demos/demos.cl
new file mode 100644
index 00000000..5b065c51
--- /dev/null
+++ b/noao/imred/kpnoslit/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/kpnoslit/demos/demos.men b/noao/imred/kpnoslit/demos/demos.men
new file mode 100644
index 00000000..b35ba7be
--- /dev/null
+++ b/noao/imred/kpnoslit/demos/demos.men
@@ -0,0 +1,4 @@
+ MENU of KPNOSLIT Demonstrations
+
+ doslit - Quick test of DOSLIT (no comments, no delays)
+ mkdoslit - Make DOSLIT test data
diff --git a/noao/imred/kpnoslit/demos/demos.par b/noao/imred/kpnoslit/demos/demos.par
new file mode 100644
index 00000000..4181ed59
--- /dev/null
+++ b/noao/imred/kpnoslit/demos/demos.par
@@ -0,0 +1,2 @@
+demoname,f,a,"",,,"Demo name"
+mode,s,h,"ql",,,
diff --git a/noao/imred/kpnoslit/demos/demostd1.dat b/noao/imred/kpnoslit/demos/demostd1.dat
new file mode 100644
index 00000000..bf571862
--- /dev/null
+++ b/noao/imred/kpnoslit/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= '1991-11-26T12:19:55.00' / 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/kpnoslit/demos/doslit.cl b/noao/imred/kpnoslit/demos/doslit.cl
new file mode 100644
index 00000000..b2ecbde2
--- /dev/null
+++ b/noao/imred/kpnoslit/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/kpnoslit/demos/mkdoslit.cl b/noao/imred/kpnoslit/demos/mkdoslit.cl
new file mode 100644
index 00000000..63acb123
--- /dev/null
+++ b/noao/imred/kpnoslit/demos/mkdoslit.cl
@@ -0,0 +1,28 @@
+# 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", "demoflat", oseed=4, nseed=1,
+ errors=no, verbose=yes, list=no)
+mkheader ("demoflat", "demos$demoflat.dat", append=no, verbose=no)
+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/kpnoslit/demos/xgdoslit.dat b/noao/imred/kpnoslit/demos/xgdoslit.dat
new file mode 100644
index 00000000..0cd3a8d9
--- /dev/null
+++ b/noao/imred/kpnoslit/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\skpnoslit\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
+hz44\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/kpnoslit/kpnoslit.cl b/noao/imred/kpnoslit/kpnoslit.cl
new file mode 100644
index 00000000..f9d79756
--- /dev/null
+++ b/noao/imred/kpnoslit/kpnoslit.cl
@@ -0,0 +1,69 @@
+#{ KPNOSLIT package definition
+
+# Define KPNOSLIT package
+package kpnoslit
+
+set demos = "kpnoslit$demos/"
+
+# Slitproc
+cl < doslit$doslittasks.cl
+task sparams = "kpnoslit$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 = "kpnoslit$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"
+
+# Demos
+task demos = "demos$demos.cl"
+
+# Astutil tasks
+task setairmass,
+ setjd = "astutil$x_astutil.e"
+
+# Hide tasks from the user
+hidetask apparams, apall1, apflat1, apnorm1, dispcor1, sparams
+
+clbye()
diff --git a/noao/imred/kpnoslit/kpnoslit.hd b/noao/imred/kpnoslit/kpnoslit.hd
new file mode 100644
index 00000000..e5125e4f
--- /dev/null
+++ b/noao/imred/kpnoslit/kpnoslit.hd
@@ -0,0 +1 @@
+# Help directory for the KPNOSLIT package.
diff --git a/noao/imred/kpnoslit/kpnoslit.men b/noao/imred/kpnoslit/kpnoslit.men
new file mode 100644
index 00000000..891ff0b7
--- /dev/null
+++ b/noao/imred/kpnoslit/kpnoslit.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 slit spectra
+ demos - Demonstrations and tests
diff --git a/noao/imred/kpnoslit/kpnoslit.par b/noao/imred/kpnoslit/kpnoslit.par
new file mode 100644
index 00000000..bd61b8de
--- /dev/null
+++ b/noao/imred/kpnoslit/kpnoslit.par
@@ -0,0 +1,15 @@
+# KPNOSLIT parameter file
+extinction,s,h,onedstds$kpnoextinct.dat,,,Extinction file
+caldir,s,h,onedstds$spec50cal/,,,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,"KPNOSLIT V3: January 1992"
diff --git a/noao/imred/kpnoslit/sensfunc.par b/noao/imred/kpnoslit/sensfunc.par
new file mode 100644
index 00000000..94f84f4a
--- /dev/null
+++ b/noao/imred/kpnoslit/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/kpnoslit/sparams.par b/noao/imred/kpnoslit/sparams.par
new file mode 100644
index 00000000..cfdf1f4f
--- /dev/null
+++ b/noao/imred/kpnoslit/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/kpnoslit/standard.par b/noao/imred/kpnoslit/standard.par
new file mode 100644
index 00000000..99b98877
--- /dev/null
+++ b/noao/imred/kpnoslit/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!)"
generated by cgit (git 2.34.1) at 2025-09-20 11:03:13 -0400