← Back to branch summary

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

« back to all changes in this revision

Viewing changes to stdred/irspec/proc/irsbadpix.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/irspec/proc/irsbadpix.prg
 
1
! @(#)irsbadpix.prg     19.1 (ES0-DMD) 02/25/03 14:23:28
 
2
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
3
!
 
4
!.COPYRIGHT   (C) 1992 European Southern Observatory
 
5
!.IDENT       irsbadpix.prg
 
6
!.AUTHOR      E. Oliva,  Firenze, Arcetri
 
7
!.KEYWORDS    Spectroscopy, IRSPEC
 
8
!.PURPOSE     Execute command BADPIX/IRSPEC which modify badpixels
 
9
!             with coordinates stored in a ref. table
 
10
!             The operation (modification) is performed by
 
11
!             irsbadpix.for
 
12
!.VERSION     1.0    Creation     02.09.1992   E. Oliva
 
13
!
 
14
!-------------------------------------------------------
 
15
!
 
16
! Tested september 3 1992 O.K. Tino.
 
17
!
 
18
crossref in out load clean debug ref 
 
19
def/param p1 ?  cha "Input irspec image ? : "
 
20
def/param p2 ?  ima "Output image ? : "
 
21
def/param p3 0  num "Load option (>0=yes)"
 
22
def/param p4 a  cha "Direction option (x, y, b or a) : "
 
23
def/param p5 0  num "Debug option "
 
24
def/param p6 'badpix' cha "Reference table" 
 
25
!
 
26
def/loc incmd/c/1/132 "{MID$LINE}"
 
27
!
 
28
! global keys used : Iscale, badpix
 
29
!
 
30
def/loc direct/c/1/1
 
31
def/loc debug/i/1/1 0
 
32
!
 
33
@ creifnot 2 heat
 
34
!
 
35
if p1 .eq. p2 then
 
36
  write/out "Output and input frames cannot have the same names"
 
37
  return
 
38
endif
 
39
comp &bpx = 'p1'
 
40
if 'p3' .gt. 0 load &bpx scale='Iscale'
 
41
direct = p4
 
42
debug = 'p5'
 
43
write/keyw IN_A &bpx
 
44
write/keyw OUT_A 'p2'
 
45
write/keyw IN_B 'p6'
 
46
run STD_EXE:irsbadpix.exe
 
47
copy/dd  &bpx * 'p2'
 
48
if 'p3' .gt. 0 load 'p2' scale='Iscale'
 
49
copy/kd incmd/c/1/132 'p2' history/c/-1/132
 
50
!
 
51
return