← Back to branch summary

~ubuntu-branches/ubuntu/wily/eso-midas/wily-proposed

« back to all changes in this revision

Viewing changes to stdred/ccdred/proc/ccdsave.prg

  • Committer: Package Import Robot
  • Author(s): Ole Streicher
  • Date: 2014-04-22 14:44:58 UTC
  • Revision ID: package-import@ubuntu.com-20140422144458-okiwi1assxkkiz39
Tags: upstream-13.09pl1.2+dfsg
Import upstream version 13.09pl1.2+dfsg

Show diffs side-by-side

added added

removed removed

Lines of Context:
stdred/ccdred/proc/ccdsave.prg
 
1
! @(#)ccdsave.prg       19.1 (ES0-DMD) 02/25/03 14:16:01
 
2
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
3
!
 
4
!.COPYRIGHT   (C) 1993 European Southern Observatory
 
5
!.IDENT       ccdsave.prg
 
6
!.AUTHOR      Rein H. Warmels,  ESO - Garching
 
7
!.KEYWORDS    CCD, imaging, context saving
 
8
!.PURPOSE     Command SAVE/CCD
 
9
!.VERSION     920526 RHW Creation
 
10
!.VERSION     930516 RHW Check on existence of reduction table
 
11
!-------------------------------------------------------
 
12
DEFINE/PARAM P1 ? C    "Session name :"
 
13
!
 
14
CREATE/TABLE {P1}_CCDSAVE 1 1 NULL
 
15
! 
 
16
!GEneral
 
17
! *** General Control Setup 
 
18
COPY/KD   IDENT     {P1}_CCDSAVE.tbl IDENT/C/1/20 
 
19
COPY/KD   OBSER     {P1}_CCDSAVE.tbl OBSER/C/1/20
 
20
COPY/KD   TELES     {P1}_CCDSAVE.tbl TELES/C/1/20
 
21
COPY/KD   INSTR     {P1}_CCDSAVE.tbl INSTR/C/1/20
 
22
COPY/KD   DETEC     {P1}_CCDSAVE.tbl DETEC/C/1/20
 
23
COPY/KD   NPIXX     {P1}_CCDSAVE.tbl NPIXX/I/1/1
 
24
COPY/KD   NPIXY     {P1}_CCDSAVE.tbl NPIXY/I/1/1
 
25
COPY/KD   SPIXX     {P1}_CCDSAVE.tbl SPIXX/I/1/1
 
26
COPY/KD   SPIXY     {P1}_CCDSAVE.tbl SPIXY/I/1/1
 
27
COPY/KD   DIRECT    {P1}_CCDSAVE.tbl DIRECT/C/1/3
 
28
COPY/KD   BINNING   {P1}_CCDSAVE.tbl BINNING/I/1/2
 
29
COPY/KD   READMOD   {P1}_CCDSAVE.tbl READMOD/C/1/4
 
30
COPY/KD   READON    {P1}_CCDSAVE.tbl READON/R/1/1 
 
31
COPY/KD   AD_VAL    {P1}_CCDSAVE.tbl AD_VAL/R/1/1 
 
32
!
 
33
COPY/KD   .IDENT    {P1}_CCDSAVE.tbl .IDENT/C/1/20
 
34
COPY/KD   .OBSER    {P1}_CCDSAVE.tbl .OBSER/C/1/20
 
35
COPY/KD   .TELES    {P1}_CCDSAVE.tbl .TELES/C/1/20
 
36
COPY/KD   .INSTR    {P1}_CCDSAVE.tbl .INSTR/C/1/20  
 
37
COPY/KD   .DETEC    {P1}_CCDSAVE.tbl .DETEC/C/1/20
 
38
COPY/KD   .BINNING  {P1}_CCDSAVE.tbl .BINNING/C/1/20
 
39
COPY/KD   .DIRECT   {P1}_CCDSAVE.tbl .DIRECT/C/1/20
 
40
COPY/KD   .READMOD  {P1}_CCDSAVE.tbl .READMOD/C/1/20
 
41
COPY/KD   .READON   {P1}_CCDSAVE.tbl .READON/C/1/20
 
42
COPY/KD   .AD_VAL   {P1}_CCDSAVE.tbl .AD_VAL/C/1/20
 
43
COPY/KD   EXP_DESC  {P1}_CCDSAVE.tbl EXP_DESC/C/1/20
 
44
COPY/KD   O_DESC    {P1}_CCDSAVE.tbl O_DESC/C/1/20
 
45
!
 
46
COPY/KD   CCD_IN    {P1}_CCDSAVE.tbl CCD_IN/C/1/60
 
47
COPY/KD   OV_SEC    {P1}_CCDSAVE.tbl OV_SEC/C/1/40 
 
48
COPY/KD   IM_SEC    {P1}_CCDSAVE.tbl IM_SEC/C/1/40
 
49
!
 
50
!BiaS
 
51
! *** general combining parameters
 
52
COPY/KD   BS_TYP    {P1}_CCDSAVE.tbl BS_TYP/C/1/60
 
53
COPY/KD   BS_SIG    {P1}_CCDSAVE.tbl BS_SIG/C/1/3 
 
54
COPY/KD   BS_MET    {P1}_CCDSAVE.tbl BS_MET/C/1/20 
 
55
COPY/KD   BS_DEL    {P1}_CCDSAVE.tbl BS_DEL/C/1/3
 
56
COPY/KD   BS_EXP    {P1}_CCDSAVE.tbl BS_EXP/C/1/3 
 
57
COPY/KD   BS_STA    {P1}_CCDSAVE.tbl BS_STA/C/1/6
 
58
COPY/KD   BS_SCA    {P1}_CCDSAVE.tbl BS_SCA/C/1/3
 
59
COPY/KD   BS_OFF    {P1}_CCDSAVE.tbl BS_OFF/C/1/3
 
60
COPY/KD   BS_WEI    {P1}_CCDSAVE.tbl BS_WEI/C/1/3
 
61
COPY/KD   BS_SEC    {P1}_CCDSAVE.tbl BS_SEC/C/1/40
 
62
COPY/KD   BS_RAN    {P1}_CCDSAVE.tbl BS_RAN/R/1/2 
 
63
COPY/KD   BS_CLP    {P1}_CCDSAVE.tbl BS_CLP/R/1/2
 
64
COPY/KD   BS_NUL    {P1}_CCDSAVE.tbl BS_NUL/C/1/20
 
65
!
 
66
!DarK
 
67
! *** general combining parameters
 
68
COPY/KD   DK_TYP    {P1}_CCDSAVE.tbl DK_TYP/C/1/60 
 
69
COPY/KD   DK_SIG    {P1}_CCDSAVE.tbl DK_SIG/C/1/3
 
70
COPY/KD   DK_MET    {P1}_CCDSAVE.tbl DK_MET/C/1/20
 
71
COPY/KD   DK_DEL    {P1}_CCDSAVE.tbl DK_DEL/C/1/3 
 
72
COPY/KD   DK_EXP    {P1}_CCDSAVE.tbl DK_EXP/C/1/3
 
73
COPY/KD   DK_STA    {P1}_CCDSAVE.tbl DK_STA/C/1/6
 
74
COPY/KD   DK_SCA    {P1}_CCDSAVE.tbl DK_SCA/C/1/3
 
75
COPY/KD   DK_OFF    {P1}_CCDSAVE.tbl DK_OFF/C/1/3 
 
76
COPY/KD   DK_WEI    {P1}_CCDSAVE.tbl DK_WEI/C/1/3
 
77
COPY/KD   DK_SEC    {P1}_CCDSAVE.tbl DK_SEC/C/1/40
 
78
COPY/KD   DK_RAN    {P1}_CCDSAVE.tbl DK_RAN/R/1/2 
 
79
COPY/KD   DK_CLP    {P1}_CCDSAVE.tbl DK_CLP/R/1/2
 
80
COPY/KD   DK_NUL    {P1}_CCDSAVE.tbl DK_NUL/C/1/20
 
81
!
 
82
!Flat
 
83
! *** general combining parameters
 
84
COPY/KD   FF_TYP    {P1}_CCDSAVE.tbl FF_TYP/C/1/60
 
85
COPY/KD   FF_SIG    {P1}_CCDSAVE.tbl FF_SIG/C/1/3
 
86
COPY/KD   FF_MET    {P1}_CCDSAVE.tbl FF_MET/C/1/20 
 
87
COPY/KD   FF_DEL    {P1}_CCDSAVE.tbl FF_DEL/C/1/3  
 
88
COPY/KD   FF_EXP    {P1}_CCDSAVE.tbl FF_EXP/C/1/3 
 
89
COPY/KD   FF_STA    {P1}_CCDSAVE.tbl FF_STA/C/1/6
 
90
COPY/KD   FF_SCA    {P1}_CCDSAVE.tbl FF_SCA/C/1/3
 
91
COPY/KD   FF_OFF    {P1}_CCDSAVE.tbl FF_OFF/C/1/3 
 
92
COPY/KD   FF_WEI    {P1}_CCDSAVE.tbl FF_WEI/C/1/3 
 
93
COPY/KD   FF_SEC    {P1}_CCDSAVE.tbl FF_SEC/C/1/40
 
94
COPY/KD   FF_RAN    {P1}_CCDSAVE.tbl FF_RAN/R/1/2 
 
95
COPY/KD   FF_CLP    {P1}_CCDSAVE.tbl FF_CLP/R/1/2 
 
96
COPY/KD   FF_NUL    {P1}_CCDSAVE.tbl FF_NUL/C/1/20 
 
97
!
 
98
!SKY
 
99
! *** general combining parameters
 
100
COPY/KD   SK_TYP    {P1}_CCDSAVE.tbl SK_TYP/C/1/60
 
101
COPY/KD   SK_SIG    {P1}_CCDSAVE.tbl SK_SIG/C/1/3
 
102
COPY/KD   SK_MET    {P1}_CCDSAVE.tbl SK_MET/C/1/2
 
103
COPY/KD   SK_DEL    {P1}_CCDSAVE.tbl SK_DEL/C/1/3 
 
104
COPY/KD   SK_EXP    {P1}_CCDSAVE.tbl SK_EXP/C/1/3
 
105
COPY/KD   SK_STA    {P1}_CCDSAVE.tbl SK_STA/C/1/6
 
106
COPY/KD   SK_SCA    {P1}_CCDSAVE.tbl SK_SCA/C/1/3
 
107
COPY/KD   SK_OFF    {P1}_CCDSAVE.tbl SK_OFF/C/1/3 
 
108
COPY/KD   SK_WEI    {P1}_CCDSAVE.tbl SK_WEI/C/1/3 
 
109
COPY/KD   SK_SEC    {P1}_CCDSAVE.tbl SK_SEC/C/1/40
 
110
COPY/KD   SK_RAN    {P1}_CCDSAVE.tbl SK_RAN/R/1/2 
 
111
COPY/KD   SK_CLP    {P1}_CCDSAVE.tbl SK_CLP/R/1/2
 
112
COPY/KD   SK_NUL    {P1}_CCDSAVE.tbl SK_NUL/C/1/20
 
113
!
 
114
!OThers
 
115
! *** general combining parameters
 
116
COPY/KD   OT_TYP    {P1}_CCDSAVE.tbl OT_TYP/C/1/60
 
117
COPY/KD   OT_SIG    {P1}_CCDSAVE.tbl OT_SIG/C/1/3
 
118
COPY/KD   OT_MET    {P1}_CCDSAVE.tbl OT_MET/C/1/20
 
119
COPY/KD   OT_DEL    {P1}_CCDSAVE.tbl OT_DEL/C/1/3 
 
120
COPY/KD   OT_EXP    {P1}_CCDSAVE.tbl OT_EXP/C/1/3
 
121
COPY/KD   OT_STA    {P1}_CCDSAVE.tbl OT_STA/C/1/6
 
122
COPY/KD   OT_SCA    {P1}_CCDSAVE.tbl OT_SCA/C/1/3
 
123
COPY/KD   OT_OFF    {P1}_CCDSAVE.tbl OT_OFF/C/1/3 
 
124
COPY/KD   OT_WEI    {P1}_CCDSAVE.tbl OT_WEI/C/1/3 
 
125
COPY/KD   OT_SEC    {P1}_CCDSAVE.tbl OT_SEC/C/1/40
 
126
COPY/KD   OT_RAN    {P1}_CCDSAVE.tbl OT_RAN/R/1/2 
 
127
COPY/KD   OT_CLP    {P1}_CCDSAVE.tbl OT_CLP/R/1/2
 
128
COPY/KD   OT_NUL    {P1}_CCDSAVE.tbl OT_NUL/C/1/20
 
129
!
 
130
!MOsaic
 
131
! *** parametsr for the mosaic facility
 
132
COPY/KD   MO_SEC    {P1}_CCDSAVE.tbl MO_SEC/C/1/40
 
133
COPY/KD   MO_SUBT   {P1}_CCDSAVE.tbl MO_SUBT/C/1/40
 
134
COPY/KD   MO_CORN   {P1}_CCDSAVE.tbl MO_CORN/C/1/2
 
135
COPY/KD   MO_DIREC  {P1}_CCDSAVE.tbl MO_DIREC/C/1/3
 
136
COPY/KD   MO_RAST   {P1}_CCDSAVE.tbl MO_RAST/C/1/3
 
137
COPY/KD   MO_OVER   {P1}_CCDSAVE.tbl MO_OVER/I/1/2
 
138
COPY/KD   MO_INTER  {P1}_CCDSAVE.tbl MO_INTER/C/1/20
 
139
COPY/KD   MO_MNPX   {P1}_CCDSAVE.tbl MO_MNPX/I/1/1
 
140
COPY/KD   MO_TRIM   {P1}_CCDSAVE.tbl MO_TRIM/I/1/4
 
141
COPY/KD   MO_NUL    {P1}_CCDSAVE.tbl MO_NUL/C/1/20
 
142
!
 
143
!OVerscan
 
144
! *** parameters for the overscan fitting
 
145
COPY/KD   OV_IMODE  {P1}_CCDSAVE.tbl OV_IMODE/C/1/3 
 
146
COPY/KD   OV_FUNCT  {P1}_CCDSAVE.tbl OV_FUNCT/C/1/20
 
147
COPY/KD   OV_ORDER  {P1}_CCDSAVE.tbl OV_ORDER/I/1/1
 
148
COPY/KD   OV_AVER   {P1}_CCDSAVE.tbl OV_AVER/I/1/1
 
149
COPY/KD   OV_ITER   {P1}_CCDSAVE.tbl OV_ITER/I/1/1
 
150
COPY/KD   OV_REJEC  {P1}_CCDSAVE.tbl OV_REJECT/R/1/2
 
151
!
 
152
!FXpix
 
153
! *** parameters for the bad pxuiel correction
 
154
COPY/KD   FX_TABLE  {P1}_CCDSAVE.tbl FX_TABLE/C/1/60
 
155
COPY/KD   FX_METH   {P1}_CCDSAVE.tbl FX_METH/C/1/3
 
156
COPY/KD   FX_FACT   {P1}_CCDSAVE.tbl FX_FACT/I/1/2
 
157
COPY/KD   FX_FPAR   {P1}_CCDSAVE.tbl FX_FPAR/I/1/3
 
158
COPY/KD   FX_NOISE  {P1}_CCDSAVE.tbl FX_NOISE/C/1/3
 
159
!
 
160
!MKILLU    
 
161
! *** parameters for illumination and fringe correction
 
162
COPY/KD   IL_TYP    {P1}_CCDSAVE.tbl IL_TYP/C/1/60
 
163
COPY/KD   FR_TYP    {P1}_CCDSAVE.tbl FR_TYP/C/1/60
 
164
COPY/KD   IL_XBOX   {P1}_CCDSAVE.tbl IL_XBOX/R/1/2
 
165
COPY/KD   IL_YBOX   {P1}_CCDSAVE.tbl IL_YBOX/R/1/2
 
166
COPY/KD   IL_CLIP   {P1}_CCDSAVE.tbl IL_CLIP/C/1/3 
 
167
COPY/KD   IL_SIGMA  {P1}_CCDSAVE.tbl IL_SIGMA/R/1/2
 
168
!
 
169
!SCIENCE
 
170
! *** parameters for the science frame calibration
 
171
COPY/KD   SC_TYP    {P1}_CCDSAVE.tbl SC_TYP/C/1/60  
 
172
COPY/KD   SC_PROC   {P1}_CCDSAVE.tbl SC_PROC/C/1/3
 
173
COPY/KD   SC_SCAN   {P1}_CCDSAVE.tbl SC_SCCOR/C/1/3 
 
174
COPY/KD   SC_TRIM   {P1}_CCDSAVE.tbl SC_TRIM/C/1/3 
 
175
COPY/KD   SC_FXPIX  {P1}_CCDSAVE.tbl SC_FXPIX/C/1/3 
 
176
COPY/KD   SC_BSCOR  {P1}_CCDSAVE.tbl SC_BSCOR/C/1/3 
 
177
COPY/KD   SC_BSFRM  {P1}_CCDSAVE.tbl SC_BSFRM/C/1/60
 
178
COPY/KD   SC_DKCOR  {P1}_CCDSAVE.tbl SC_DKCOR/C/1/3
 
179
COPY/KD   SC_DKFRM  {P1}_CCDSAVE.tbl SC_DKFRM/C/1/60
 
180
COPY/KD   SC_FFCOR  {P1}_CCDSAVE.tbl SC_FFCOR/C/1/3
 
181
COPY/KD   SC_FFFRM  {P1}_CCDSAVE.tbl SC_FFFRM/C/1/60 
 
182
COPY/KD   SC_ILCOR  {P1}_CCDSAVE.tbl SC_ILCOR/C/1/3
 
183
COPY/KD   SC_ILFRM  {P1}_CCDSAVE.tbl SC_ILFRM/C/1/60
 
184
COPY/KD   SC_FRCOR  {P1}_CCDSAVE.tbl SC_FRCOR/C/1/3
 
185
COPY/KD   SC_FRFRM  {P1}_CCDSAVE.tbl SC_FRFRM/C/1/60
 
186
! 
 
187
! *** correction factors and error keywords
 
188
COPY/KD   REDUCT    {P1}_CCDSAVE.tbl REDUCT/C/1/8
 
189
COPY/KD   CCDMEAN   {P1}_CCDSAVE.tbl CCDMEAN/R/1/1
 
190
COPY/KD   CCDDARK   {P1}_CCDSAVE.tbl CCDDARK/R/1/1
 
191
COPY/KD   CCDFLAT   {P1}_CCDSAVE.tbl CCDFLAT/R/1/1
 
192
COPY/KD   CCDILLUM  {P1}_CCDSAVE.tbl CCDILLUM/R/1/1
 
193
COPY/KD   CCDFRING  {P1}_CCDSAVE.tbl CCDFRING/R/1/1
 
194
!
 
195
! *** here for the standard column names
 
196
COPY/KD   SC_COL    {P1}_CCDSAVE.tbl SC_COL/C/1/60  
 
197
COPY/KD   BS_COL    {P1}_CCDSAVE.tbl BS_COL/C/1/60 
 
198
COPY/KD   DK_COL    {P1}_CCDSAVE.tbl DK_COL/C/1/60
 
199
COPY/KD   FF_COL    {P1}_CCDSAVE.tbl FF_COL/C/1/60
 
200
COPY/KD   SK_COL    {P1}_CCDSAVE.tbl SK_COL/C/1/60 
 
201
COPY/KD   IL_COL    {P1}_CCDSAVE.tbl IL_COL/C/1/60
 
202
COPY/KD   FR_COL    {P1}_CCDSAVE.tbl FR_COL/C/1/60 
 
203
 
 
204
SAVINI/CCD {P1}_CCDSAVE.tbl WRITE
 
205
WRITE/OUT "*** INFO: CCD session is saved <{P1}_CCDSAVE.tbl>"
 
206
!
 
207
RETURN
 
208
 
 
209
 
 
210
 
 
211
 
 
212
 
 
213
 
 
214
 
 
215
 
 
216