← Back to branch summary

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

« back to all changes in this revision

Viewing changes to stdred/mos/proc/mosshow.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/mos/proc/mosshow.prg
 
1
! @(#)mosshow.prg       1.2 (ESO-IPG) 2/11/94 13:20:01
 
2
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
3
!
 
4
!.COPYRIGHT   (C) 1991 European Southern Observatory
 
5
!.IDENT       mosshow.prg
 
6
!.AUTHOR      Pascal Ballester,  ESO - Garching
 
7
!.KEYWORDS    Spectroscopy, Echelle, 
 
8
!.PURPOSE     Display echelle session parameters
 
9
!.VERSION     1.0    Creation    21-AUG-1991  PB
 
10
!
 
11
!-------------------------------------------------------
 
12
!
 
13
DEFINE/PARAM P1  ALL  CHAR  "Selection (GEN, WLC, FLAT, EXTR, INST, REDU) : "
 
14
SESSLINE = 0 ! Initialize the line counter
 
15
!
 
16
!ECHO/OFF
 
17
SET/FORMAT I1 F12.3,F12.3
 
18
!
 
19
SHOW/SESS  "****************  MOS Parameters  *******************"
 
20
IF P1(1:1) .EQ. "C"  GOTO CALIB
 
21
IF P1(1:1) .EQ. "D"  GOTO WIND
 
22
IF P1(1:1) .EQ. "E"  GOTO EXTR
 
23
IF P1(1:1) .EQ. "F"  GOTO FF
 
24
IF P1(1:1) .EQ. "G"  GOTO GEN
 
25
IF P1(1:1) .EQ. "R"  GOTO REBI
 
26
IF P1(1:1) .EQ. "S"  GOTO SKY
 
27
IF P1(1:1) .EQ. "W"  GOTO WLC
 
28
GEN:
 
29
SHOW/SESS  "   "
 
30
SHOW/SESS  "General parameters   "
 
31
SHOW/SESS  "   "
 
32
SHOW/SESS  "Object frame (OBJ):                                {OBJ}"
 
33
SHOW/SESS  "Number of pixels (NPIX):                           {NPIX}   "
 
34
SHOW/SESS  "Step size (STEP):                                  {STEP} "
 
35
SHOW/SESS  "Start values (START):                              {START} "
 
36
SHOW/SESS  "CCD read-out-noise and conversion factor (CCDPAR): {CCDPAR} "
 
37
IF P1(1:1) .NE. "A"  RETURN
 
38
SHOW/SESS  "-------------------------------------------------------------------"
 
39
FF:
 
40
SHOW/SESS "Flat field related: LOCATE/MOS - NORMAL/MOS - FLAT/MOS - PLOT/LOCATE"
 
41
SHOW/SESS  "   "
 
42
SHOW/SESS  "FF frame (FLAT):                   {FLAT}" 
 
43
SHOW/SESS  "Detec. thres. (FLATLIM):           {FLATLIM(1)},{FLATLIM(2)},{FLATLIM(3)} "
 
44
SHOW/SESS  "Table MOS (MOS):                   {MOS}"
 
45
SHOW/SESS  "Number of slitlets (NSLIT):        {NSLIT}"
 
46
SHOW/SESS  "Method for smoothing (NORMMET):    {NORMMET}"
 
47
SHOW/SESS  "Order of fit or med-wind. (FFORD): {FFORD}"
 
48
SHOW/SESS  "Norm. FF (NORMFLAT):               {NORMFLAT}" 
 
49
IF P1(1:1) .NE. "A"  RETURN
 
50
SHOW/SESS  "-------------------------------------------------------------------"
 
51
WLC:
 
52
SHOW/SESS  "Line-search related: SEARCH/MOS - LINPLOT/MOS" 
 
53
SHOW/SESS  "                            "
 
54
SHOW/SESS  "WLC image (WLC):                  {WLC}" 
 
55
SHOW/SESS  "Center method (CENTMET):          {CENTMET}" 
 
56
SHOW/SESS  "Thres. and window (SEAPAR):       {SEAPAR}" 
 
57
SHOW/SESS  "Step and Binning in Y (YBIN):     {YBIN}" 
 
58
SHOW/SESS  "Table with lines (LINPOS):        {LINPOS}" 
 
59
SHOW/SESS  "                            "
 
60
SHOW/SESS  "Line-identification related: IDENTIFY/MOS"
 
61
SHOW/SESS  "                            "
 
62
SHOW/SESS  "Line identifications (LID):                            {LID}"
 
63
SHOW/SESS  "Pixel positions of ident. lines (XPOS):                {XPOS}"
 
64
SHOW/SESS  "CCD row in which the lines are identified (YSTART):    {YSTART}"
 
65
SHOW/SESS  "Tolerance for interact. line identification (TOLWIND): {TOLWIND}"
 
66
IF P1(1:1) .NE. "A"  RETURN
 
67
SHOW/SESS  "-------------------------------------------------------------------"
 
68
CALIB:
 
69
SHOW/SESS  "Line calibration related: CALIBRATE/MOS - RESPLOT/MOS" 
 
70
SHOW/SESS  "                            "
 
71
SHOW/SESS  "Wavelength calibration method (WLCMET):                  {WLCMET}"
 
72
SHOW/SESS  "Polynomials for dispersion relation (POLTYP):            {POLTYP}"
 
73
SHOW/SESS  "Order of fit for dispersion relation (WLCORD(1)):        {WLCORD(1)}"
 
74
SHOW/SESS "Minimum/maximum number of iterations (WLCNITER):  {WLCNITER(1)},{WLCNITER(2)}"
 
75
SHOW/SESS  "Central wavelength (WCENTER):                            {WCENTER}"
 
76
SHOW/SESS  "Average dispersion (A/pix) (AVDISP):                     {AVDISP}"
 
77
SHOW/SESS  "Table with fit coefficients (LINFIT):                    {LINFIT}"
 
78
SHOW/SESS  "Table with wavelength catalog (LINECAT):                 {LINECAT}"
 
79
SHOW/SESS  "Grism number (GRISM):                                    {GRISM}"
 
80
SHOW/SESS  "Tolerance for automatic line identification (TOL):       {TOL}"
 
81
SHOW/SESS  "Plot flag for line residuals (PLOTC):                    {PLOTC}"
 
82
SHOW/SESS  "Flag for dispersion relations for slitlets (CAL):        {CAL} "
 
83
SHOW/SESS  "Matching parameter (0 to 0.5) (ALPHA):                   {ALPHA}"
 
84
SHOW/SESS  "Maximal Deviation (MAXDEV):                              {MAXDEV}"
 
85
SHOW/SESS  "Slitlet counter (ISLIT):                                 {ISLIT}"
 
86
IF P1(1:1) .NE. "A"  RETURN
 
87
SHOW/SESS  "-------------------------------------------------------------------"
 
88
REBI:
 
89
SHOW/SESS  "Rebin related: REBIN/MOS - REB1D/MOS              "
 
90
SHOW/SESS  "                            "
 
91
SHOW/SESS  "Method of interpolation along dispersion axis (REBMET):  {REBMET}"
 
92
SHOW/SESS  "Order of interpolation along y-axis (WLCORD(2)):         {WLCORD(2)}"
 
93
!SHOW/SESS  "Start, Step, End (REBSTRT, REBSTP, REBEND):             {REBSTRT},{REBSTP},{REBEND}"
 
94
SHOW/SESS  "Start (REBSTRT):                                         {REBSTRT}"
 
95
SHOW/SESS  "Step (REBSTP):                                           {REBSTP}"
 
96
SHOW/SESS  "End (REBEND):                                            {REBEND}"
 
97
IF P1(1:1) .NE. "A"  RETURN
 
98
SHOW/SESS  "-------------------------------------------------------------------"
 
99
WIND:
 
100
SHOW/SESS  "Object and sky search related: DEFINE/MOS - DEFWIN/MOS"
 
101
SHOW/SESS  "                            "
 
102
SHOW/SESS  "Center for scan in world coord. (SCAN_POS):               {SCAN_POS}"
 
103
SHOW/SESS  "Table with sky and objects limits (WINDOWS):              {WINDOWS}"
 
104
SHOW/SESS  "Detection threshold for objects (<0: relative) (THRESH):  {THRESH}"
 
105
SHOW/SESS  "Detection window for objects (WIND):                      {WIND}"
 
106
SHOW/SESS  "Binning in X for object search  (XBIN):                   {XBIN}"
 
107
SHOW/SESS  "Fraction of central intensity for object limit (INT_LIM): {INT_LIM}"
 
108
SHOW/SESS  "Minimum distance between sky and object limits (MIN_DIST): {MIN_DIST}"
 
109
SHOW/SESS  "Minimum number of rows for sky (MIN_SKY):                 {MIN_SKY}"
 
110
SHOW/SESS  "Number of object regions (NOBJ):                          {NOBJ}"
 
111
SHOW/SESS  "Number of sky regions (NSKY):                             {NSKY}"
 
112
IF P1(1:1) .NE. "A"  RETURN
 
113
SHOW/SESS  "-------------------------------------------------------------------"
 
114
SKY:
 
115
SHOW/SESS  "Sky-fit related: SKYFIT/MOS "
 
116
SHOW/SESS  "                            "
 
117
SHOW/SESS  "Sky frame (SKYFRAME):          {SKYFRAME}"
 
118
SHOW/SESS  "Parameters (SKYPAR):           {SKYPAR}"
 
119
SHOW/SESS  "Method for sky fit (SKYMET):   {SKYMET}"
 
120
IF P1(1:1) .NE. "A"  RETURN
 
121
SHOW/SESS  "-------------------------------------------------------------------"
 
122
EXTR:
 
123
SHOW/SESS  "Extraction related: EXTRACT/MOS - APPLY/MOS "
 
124
SHOW/SESS  "                            "
 
125
SHOW/SESS  "Extrac. Object (EXTOBJEC):                           {EXTOBJEC}"
 
126
SHOW/SESS  "Root name for table created by APPLY/MOS (CALOBJEC): {CALOBJEC}" 
 
127
SHOW/SESS  "Order of fit, No. Iterations (EXTPAR) :              {EXTPAR}"
 
128
SHOW/SESS  "Rejection threshold (REJTHRES):                      {REJTHRES} sigma"
 
129
SHOW/SESS  "Read-out-noise, conv. factor (CCDPAR):               {CCDPAR}"
 
130
SHOW/SESS  "                            "
 
131
SET/FORMAT
 
132
RETURN