← Back to branch summary

~ubuntu-branches/debian/jessie/eso-midas/jessie

« back to all changes in this revision

Viewing changes to stdred/echelle/proc/necemmi.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/echelle/proc/necemmi.prg
 
1
! @(#)necemmi.prg       19.1 (ES0-DMD) 02/25/03 14:19:37
 
2
! @(#)necorder.prg      1.1  (ESO)  3/2/95  11:31:45
 
3
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
4
!
 
5
!.COPYRIGHT   (C) 1995 European Southern Observatory
 
6
!.IDENT       necemmi.prg
 
7
!.AUTHOR      Pascal Ballester,  ESO - Garching
 
8
!.KEYWORDS    Spectroscopy, Echelle, 
 
9
!.PURPOSE     Command INIT/EMMI 
 
10
!.VERSION     1.0    Creation    24-JAN-1994  PB
 
11
!
 
12
!-------------------------------------------------------
 
13
!
 
14
define/param  P1  +  ?  
 
15
define/param  P8  *    IMA    "Displayed image:"
 
16
define/local  image/C/1/80 " " all
 
17
define/local  numb/I/1/1 1
 
18
 
 
19
if P1(1:1) .eq. "+" then
 
20
   write/keyw image {P8}
 
21
   verify/echelle {image} IMA
 
22
   numb = 0
 
23
else
 
24
   numb = M$TSTNO(P1)
 
25
   if numb .eq. 1 then
 
26
     define/param  P1   ?    NUMB  "Grating number (9,10):"   9,10
 
27
     define/param  P2   ?    NUMB  "Grism number (3,4,5,6):"  3,6
 
28
   else
 
29
     define/param  P1   ?  CHAR  "Image name:"
 
30
     write/keyw image {P1}
 
31
     verify/echelle {image} IMA
 
32
   endif
 
33
endif
 
34
 
 
35
define/local grating/I/1/1 0
 
36
define/local grism/I/1/1   0
 
37
define/local STRING1/C/1/10 "          " 
 
38
define/local STRING2/C/1/10 "          "
 
39
DEFINE/LOCAL index/I/1/2   0,0
 
40
 
 
41
if numb .ne. 1 then
 
42
  write/key string1 {{image},_EIG1_ID}
 
43
  index = M$INDEX(string1,"#") + 1
 
44
  index(2) = index(1) + 1
 
45
  grating = {string1({index(1)}:{index(2)})}
 
46
  write/key string2 {{image},_EIO9_ID}
 
47
  index = M$INDEX(string2,"#") + 1
 
48
  grism = {string2({index}:{index})}
 
49
else
 
50
  grating = {P1}
 
51
  grism   = {P2}
 
52
  write/key string1 #{grating}
 
53
  write/key string2 #{grism}
 
54
endif
 
55
 
 
56
set/format I1
 
57
write/out "Looking for Grating {grating}/Grism {grism} pre-calibrated solution"
 
58
init/echelle MID_EMMI:ech{grating}g{grism}
 
59
 
 
60
set/echelle instr=EMMI GRATING={string1} CROSS={string2}
 
61
write/descr {BAKTAB} BKSTEP/R/1/1 {BKGSTEP}
 
62
 
 
63
if numb .ne. 1 set/ech CCD="{{image},_ED_ID}"
 
64