← Back to branch summary

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

« back to all changes in this revision

Viewing changes to stdred/echelle/proc/necsord.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/necsord.prg
 
1
! @(#)necsord.prg       19.1 (ES0-DMD) 02/25/03 14:19:43
 
2
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
3
!
 
4
!.COPYRIGHT   (C) 1991 European Southern Observatory
 
5
!.IDENT       echsord.prg
 
6
!.AUTHOR      Pascal Ballester,  ESO - Garching
 
7
!.KEYWORDS    Spectroscopy, Echelle, 
 
8
!.PURPOSE     Command SEARCH/ORDER [image] [w,t,s] [method] [table]
 
9
!.VERSION     1.0    Creation    29-JUL-1991  PB
 
10
!
 
11
!-------------------------------------------------------
 
12
!
 
13
DEFINE/PARAM P1 {ORDREF}                  IMAGE  "Enter input image:"
 
14
DEFINE/PARAM P2 {WIDTH1},{THRES1},{SLOPE}  N     "Enter window,threshold,slope:"
 
15
DEFINE/PARAM P3 {DEFMTD}                   C     "Method(STD,COM):"
 
16
DEFINE/PARAM P4 {ORDTAB}                  TABLE  "Output table"
 
17
!
 
18
SET/ECH ORDREF={P1}  DEFMTD={P3}
 
19
DEFINE/LOCAL K/R/1/3 'P2'
 
20
WIDTH1 = K(1)
 
21
THRES1 = K(2)
 
22
SLOPE  = K(3)
 
23
!
 
24
DEFINE/LOCAL    ERRFLAG/I/1/1  1
 
25
IF DEFMTD(1:1) .EQ.  "S"   ERRFLAG = 0   ! Method STD
 
26
IF DEFMTD(1:1) .EQ.  "C"   ERRFLAG = 0   ! Method COM
 
27
IF ERRFLAG .NE. 0  ERROR/ECHELLE SEARCH/ORDER  DEFMTD
 
28
IF WIDTH1  .LE. 0  ERROR/ECHELLE SEARCH/ORDER  WIDTH1
 
29
IF SLOPE   .LT. 0  ERROR/ECHELLE SEARCH/ORDER  SLOPE
 
30
 
 
31
WRITE/KEYW   IN_A/C/1/60  {ORDREF}
 
32
WRITE/KEYW   IN_B/C/1/60  {ORDTAB}
 
33
COPY/KEYW   K/R/1/3      INPUTR/R/1/3 
 
34
RUN STD_EXE:NECNORD
 
35
 
 
36
ECHORD(1)  =  OUTPUTI(1)  ! OUTPUTI/I/2/2 contains size of frame
 
37
ECHORD(2)  =  1
 
38
ECHORD(3)  =  OUTPUTI(1)  ! Number of first and last order.
 
39
 
 
40
RETURN
 
41