← Back to branch summary

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

« back to all changes in this revision

Viewing changes to stdred/long/proc/lnplident.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/long/proc/lnplident.prg
 
1
! @(#)lnplident.prg     19.1 (ES0-DMD) 02/25/03 14:24:48
 
2
! @(#)lnplident.prg     19.1  (ESO)  02/25/03  14:24:48
 
3
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
4
!.COPYRIGHT   (C) 1993 European Southern Observatory
 
5
!.IDENT       lnplident.prg
 
6
!.AUTHORS     Pascal Ballester (ESO/Garching) 
 
7
!             Cristian Levin   (ESO/La Silla)
 
8
!.KEYWORDS    Spectroscopy, Long-Slit
 
9
!.PURPOSE     
 
10
!.VERSION     1.0  Package Creation  17-MAR-1993  
 
11
!-------------------------------------------------------
 
12
!
 
13
DEFINE/PARAM  P1  {WLC}     CHAR  "Wavelength calibration frame : "
 
14
DEFINE/PARAM  P2 {LINTAB}  CHAR  "Line table : "
 
15
DEFINE/PARAM  P3   :X       CHAR  "X pos:"
 
16
DEFINE/PARAM  P4   :IDENT   CHAR  "Ident:"
 
17
DEFINE/PARAM  P5   :WAVE    CHAR  "WAVE"
 
18
 
 
19
DEFINE/LOCAL CMND/C/1/20  {MID$CMND(11:19)}
 
20
 
 
21
GRAPH/SPEC
 
22
RESET/GRAPH
 
23
RESET/GRAPH PMODE=1 FONT=1
 
24
PLOT/ROW  {P1} @{YSTART}
 
25
 
 
26
SORT/TABLE {P2} :X
 
27
reset/graph  color=4
 
28
 
 
29
IF CMND(1:1) .EQ.  "I"  THEN
 
30
 SELECT/TABLE   {P2}   :IDENT.NE.NULL
 
31
 overplot/ident {P2} {P3} {P4} TOP
 
32
ENDIF
 
33
 
 
34
IF CMND(1:1) .EQ.  "C"  THEN
 
35
 @s lnident,seline {P2}
 
36
 SELECT/TABLE {P2} SELECT .AND. :WAVE .NE. NULL
 
37
 overplot/ident {P2} {P3} {P5} TOP
 
38
ENDIF
 
39
 
 
40
RESET/GRAPH
 
41
SELECT/TABLE {P2} ALL
 
42
SORt/TABLE {P2} :Y :X
 
43
RETURN