← 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/make_red.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/make_red.prg
 
1
! @(#)make_red.prg      19.1 (ES0-DMD) 02/25/03 14:16:04
 
2
! @(#)make_red.prg      19.1 (ESO-SDAG) 02/25/03 14:16:04
 
3
! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
4
!.COPYRIGHT   (C) 1993 European Southern Observatory
 
5
!.IDENTIFICATION: make_red.prg
 
6
!.PURPOSE:        Create the reduction table containing all science frames
 
7
!.                to be reduced and the name of the master calibration frames
 
8
!.AUTHOR:         Rein H. Warmels
 
9
!.USE:            @s make_red
 
10
!.                where p1 = output table containing all columns for the 
 
11
!.                           science and master calibration frames as defined 
 
12
!.                           by the keyword setting SC_COL, "exp"_COL.
 
13
!.VERSION:        920410 RHW creation
 
14
!.VERSION:        930516 RHW Minor cosmetic changes
 
15
!.VERSION:        930516 RHW Improve speed and structure
 
16
!.VERSION:        950114 RHW New version based on the new DO output table
 
17
! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
18
DEFINE/PARAM P1 ?    TBL    "Name of output CCD Table:"
 
19
!
 
20
crea/tab {P1} NULL
 
21
!
 
22
if sc_col(1:1) .ne. "?" .and. sc_col(1:1) .ne. " " then
 
23
   crea/col {P1} :{SC_COL} A20 C*60
 
24
else
 
25
   write/out " *** ERROR: Science column ill defined; no column created"
 
26
endif
 
27
 
 
28
if bs_col(1:1) .ne. "?" .and. bs_col(1:1) .ne. " " then
 
29
   crea/col {P1} :{BS_COL} A20 C*60
 
30
else
 
31
   write/out " *** ERROR: Bias column ill defined; no column created"
 
32
endif
 
33
 
 
34
if dk_col(1:1) .ne. "?" .and. dk_col(1:1) .ne. " " then
 
35
   crea/col {P1} :{DK_COL} A20 C*60
 
36
else
 
37
   write/out " *** ERROR: Dark column ill defined; no column created"
 
38
endif
 
39
 
 
40
if ff_col(1:1) .ne. "?" .and. ff_col(1:1) .ne. " " then 
 
41
   crea/col {P1} :{FF_COL} A20 C*60
 
42
else
 
43
   write/out " *** ERROR: Flat column ill defined; no column created"
 
44
endif
 
45
 
 
46
if sk_col(1:1) .ne. "?" .and. sk_col(1:1) .ne. " " then
 
47
   crea/col {P1} :{SK_COL} A20 C*60
 
48
else
 
49
   write/out " *** ERROR: Sky column ill defined; no column created"
 
50
endif
 
51
!
 
52
RETURN
 
53
 
 
54
 
 
55
 
 
56
 
 
57
 
 
58
 
 
59
 
 
60
 
 
61
 
 
62
 
 
63
 
 
64
 
 
65
 
 
66
 
 
67
 
 
68
 
 
69
 
 
70
 
 
71
 
 
72
 
 
73
 
 
74
 
 
75