1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
|
#{ KPNOCOUDE package definition
proto # bscale
s1 = envget ("min_lenuserarea")
if (s1 == "")
reset min_lenuserarea = 100000
else if (int (s1) < 100000)
reset min_lenuserarea = 100000
# Define KPNOCOUDE package
package kpnocoude
set demos = "kpnocoude$demos/"
# Slitproc
cl < doslit$doslittasks.cl
task sparams = "kpnocoude$sparams.par"
# Dofibers
task do3fiber = "kpnocoude$do3fiber.cl"
task params = "kpnocoude$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 mkfibers = "srcfibers$mkfibers.cl"
task apscript = "srcfibers$x_apextract.e"
task msresp1d = "specred$msresp1d.cl"
# Onedspec tasks
task autoidentify,
continuum,
deredden,
dispcor,
dopcor,
refspectra,
sapertures,
sarith,
sflip,
slist,
specplot,
specshift,
splot = "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,
identify,
reidentify,
sensfunc,
standard = "kpnocoude$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$apnorm1.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
hidetask mkfibers, params, doalign
hidetask apscript, proc, batch, arcrefs, doarcs, getspec, listonly, fibresponse
clbye
|
