← Back to branch summary

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

« back to all changes in this revision

Viewing changes to stdred/spec/proc/searline.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/spec/proc/searline.prg
 
1
! @(#)searline.prg      19.1 (ES0-DMD) 02/25/03 14:29:20
 
2
!  @(#)searline.prg     19.1 (ESO) 02/25/03 14:29:20
 
3
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
4
!
 
5
!.COPYRIGHT   (C) 1992 European Southern Observatory
 
6
!.IDENT       searline.prg
 
7
!.AUTHOR      Pascal Ballester,  ESO - Garching
 
8
!.KEYWORDS    Spectroscopy, Echelle,
 
9
!.PURPOSE     Execute the command :
 
10
!             SEARCH/LINE  input W,TH,aver table method type
 
11
!             method = MAXIMUM
 
12
!                      GRAVITY
 
13
!                      GAUSSIAN (default)
 
14
!             type   = EMISSION (DEFAULT)
 
15
!                      ABSORPTION
 
16
!
 
17
!.VERSION     1.0    Creation  20-MAR-1984, JDP
 
18
!
 
19
!-------------------------------------------------------
 
20
!
 
21
DEFINE/PARAM P1 ?       IMAGE  "Enter input image:"
 
22
DEFINE/PARAM P2 ?       NUMBER "Enter window,threshold,naver:"
 
23
DEFINE/PARAM P3 line    TABLE
 
24
DEFINE/PARAM P4 GAUSSIAN  C
 
25
DEFINE/PARAM P5 EMISSION C
 
26
WRITE/KEYW INPUTR/R/1/3 0.,0.,0.
 
27
WRITE/KEYW INPUTR/R/1/3 'P2'
 
28
RUN STD_EXE:SPESEARCH
 
29
CREATE/COLUMN  'P3'  :IDENT  R*8   F15.7
 
30
 
 
31