← Back to branch summary

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

« back to all changes in this revision

Viewing changes to stdred/echelle/proc/necload.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/necload.prg
 
1
! @(#)necload.prg       19.1 (ES0-DMD) 02/25/03 14:19:39
 
2
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
3
!
 
4
!.COPYRIGHT   (C) 1991 European Southern Observatory
 
5
!.IDENT       necload.prg
 
6
!.AUTHOR      Pascal Ballester,  ESO - Garching
 
7
!.KEYWORDS    Spectroscopy, Echelle, 
 
8
!.PURPOSE     Command LOAD/ECHELLE
 
9
!.VERSION     1.0    Creation    
 
10
!
 
11
!-------------------------------------------------------
 
12
!
 
13
DEFINE/PARAM P1  ECHELLE  C   "Mode (ECHELLE/IDENT)        :"
 
14
DEFINE/PARAM P2  FIT      C   "Load/Echelle mode (RAW/FIT) :"
 
15
DEFINE/PARAM P8  *  IMA   "Name of displayed image:"
 
16
 
 
17
DEFINE/LOCAL DISPIMA/C/1/60  {P8}
 
18
IF DISPIMA(1:1) .EQ. " " THEN
 
19
   WRITE/OUT "LOAD/ECHELLE : Requires a display and a loaded image"
 
20
   RETURN/EXIT
 
21
ENDIF
 
22
 
 
23
CLEAR/CHAN OVER
 
24
 
 
25
IF P1(1:1) .EQ. "E" THEN   ! Mode ECHELLE
 
26
   SELECT/TABLE {ORDTAB} ALL
 
27
   IF P2(1:1) .EQ. "F" THEN  ! Display fitted positions and background
 
28
      LOAD/TABLE   {ORDTAB} :X :YFIT :ORDER 0 0 4 >null
 
29
      IF BKGVISU(1:1) .EQ. "Y" THEN
 
30
         LOAD/TABLE {BAKTAB} :X :YBKG   >null
 
31
      ENDIF
 
32
   ELSE                      ! Display raw order positions
 
33
      LOAD/TABLE   {ORDTAB} :X :Y :ORDER 0 0 4  >null
 
34
!      LOAD/TABLE   {ORDTAB} :X :Y            >null
 
35
   ENDIF
 
36
ENDIF
 
37
 
 
38
IF P1(1:1) .EQ. "I" THEN   ! Mode IDENT
 
39
   IF P2(1:1) .NE. "R" THEN
 
40
      SELECT/TABLE {LINTAB}  (:SELECT.GE.1.0)       {SESSOUTV}
 
41
      LOAD/TABLE   {LINTAB}  :X :YNEW {SESSOUTV}
 
42
      READ/TABLE   {LINTAB}  :X :YNEW :ORDER :IDENT {SESSOUTN}
 
43
   ELSE
 
44
      SELECT/TABLE {LINTAB} ALL
 
45
      LOAD/TABLE   {LINTAB} :X  :YNEW {SESSOUTV}
 
46
   ENDIF
 
47
   SELECT/TABLE {LINTAB}  ALL
 
48
ENDIF
 
49
 
 
50
RETURN