← Back to branch summary

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

« back to all changes in this revision

Viewing changes to stdred/echelle/proc/necmgopt.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/necmgopt.prg
 
1
! @(#)necmgopt.prg      19.1 (ES0-DMD) 02/25/03 14:19:39
 
2
define/param P1 ? IMA "Flux Calibrated Spectrum:"
 
3
define/param P2 ? IMA "Weighting image:"
 
4
define/param P3 ? IMA "Output image:"
 
5
define/param P4 {DELTA} NUMB "Zeroed interval (in Angstroems):"
 
6
 
 
7
define/local nbord/I/1/3 {{P1},NPIX(2)},0,0
 
8
define/local cnt/I/1/1   0
 
9
nbord(2) = nbord(1)-1
 
10
define/local zeroed/D/1/2 {P4},{{P1},STEP(1)}
 
11
define/local NSKIP/I/1/1  0
 
12
 
 
13
nskip = zeroed(1)/zeroed(2)
 
14
set/ech delta={P4}
 
15
 
 
16
merge/echelle {P1}  abcd ? NOAPPEND
 
17
merge/echelle {P2}  efgh ? NOAPPEND
 
18
 
 
19
copy/ii abcd0001 &res
 
20
 
 
21
do cnt = 1 {nbord(2)}
 
22
 
 
23
   nbord(3) = cnt+1
 
24
   write/out "Merging orders {cnt} and {nbord(3)}"
 
25
   merge/spectrum &res abcd{nbord(3)} &dfg {nskip} OPT efgh{cnt} efgh{nbord(3)}
 
26
   copy/ii &dfg &res
 
27
 
 
28
enddo
 
29
 
 
30
copy/ii &res {P3}
 
31
copy/dd {P1} *,3 {P3}
 
32
 
 
33
-DELETE abcd*.bdf
 
34
-DELETE efgh*.bdf
 
35
 
 
36
return