← Back to branch summary

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

« back to all changes in this revision

Viewing changes to stdred/echelle/proc/neclocal.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/neclocal.prg
 
1
! @(#)neclocal.prg      19.1 (ES0-DMD) 02/25/03 14:19:39
 
2
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
3
!
 
4
!.COPYRIGHT   (C) 1991 European Southern Observatory
 
5
!.IDENT       echlide.prg
 
6
!.AUTHOR      Pascal Ballester,  ESO - Garching
 
7
!.KEYWORDS    Spectroscopy, Echelle, 
 
8
!.PURPOSE     Command LOAD/IDENT
 
9
!.VERSION     1.0    Creation   22-AUG-1991  PB 
 
10
!
 
11
!-------------------------------------------------------
 
12
!
 
13
DEFINE/PARAM P1 {WLC} IMA 
 
14
DEFINE/PARAM P2 &r    IMA
 
15
 
 
16
SET/FORMAT F10.6
 
17
 
 
18
write/out "Extracting image: {P1}"
 
19
EXTRACT/ECHELLE {p1} &w 
 
20
 
 
21
write/out "Resampling."
 
22
IF SAMPLE(1:1) .EQ. "+" SAMPLE = "{{LINTAB},PIXEL(1)}"
 
23
REBIN/ECHELLE   &w   {P2} 
 
24
 
 
25
COPY/DD {P1} LHCUTS  {P2}
 
26
DISPLAY/ECHELLE {P2}
 
27