← Back to branch summary

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

« back to all changes in this revision

Viewing changes to stdred/feros/proc/ferosfind.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/feros/proc/ferosfind.prg
 
1
! @(#)ferosfind.prg     19.1 (ESO-IPG) 02/25/03 14:22:02
 
2
! @(#)ferosfind.prg     1.1 (ESO-IPG) 02/25/99 16:55:20
 
3
! @(#)ferosfind.prg     1.0 (ESO-IPG) 14-11-97
 
4
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
5
!
 
6
!.COPYRIGHT   (C) 1997 European Southern Observatory
 
7
!.IDENT       ferosfind.prg
 
8
!.AUTHOR      Anton Malina, LSW Heidelberg
 
9
!.KEYWORDS    Spectroscopy, Echelle, FEROS
 
10
!.PURPOSE     Find lines in extracted spectrum
 
11
!.VERSION     1.0    Creation    14-Nov-1997
 
12
!
 
13
!-------------------------------------------------------
 
14
!
 
15
define/param p1 {UNBLAZED_IMG}
 
16
define/param p2 {LINE_W},{LINE_THRES},1
 
17
define/param p3 {LINE_POS_TBL}
 
18
define/param p4 {LINE_MTD}
 
19
define/param p5 {LINE_TYPE}
 
20
! uses SEARCH/LINE from context spec
 
21
IF {FIBER_MODE} .EQ. 1 THEN         ! one fiber
 
22
  SEARCH/LINE {P1} {p2} {p3} {p4} {p5}
 
23
ELSE                                ! two fibers
 
24
  SEARCH/LINE {p1}1 {p2} {p3}1 {p4} {p5}
 
25
  SEARCH/LINE {p1}2 {p2} {p3}2 {p4} {p5}
 
26
ENDIF