← Back to branch summary

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

« back to all changes in this revision

Viewing changes to stdred/mos/proc/mosextr.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/mos/proc/mosextr.prg
 
1
! @(#)mosextr.prg       8.3 (ESO-IPG) 11/23/94 12:21:05
 
2
! @(#)mosextr.prg       1.3 (ESO-IPG) 2/11/94 13:19:57
 
3
! +++++++++++++++++++++++++++++++++++++++++++++++++
 
4
!
 
5
! .IDENTIFICATION
 
6
!
 
7
! MOS PROCEDURE : MOSEXTR.PRG
 
8
!
 
9
! .PURPOSE
 
10
!
 
11
! execute the command :
 
12
! NORM/MOS image params
 
13
!
 
14
! -------------------------------------------------
 
15
!
 
16
CROSSREF OBJ SKY TABLE EXTOBJ EXTPAR CCDPAR REJECT
 
17
!
 
18
DEFINE/PARAM P1 {OBJ}      IMAGE   "Enter input image:"
 
19
DEFINE/PARAM P2 {SKYFRAME} IMAGE   "Enter sky   image:"
 
20
DEFINE/PARAM P3 {WINDOWS}  TABLE   "Enter input table:"
 
21
DEFINE/PARAM P4 {EXTOBJEC} IMAGE   "Enter output image:"
 
22
DEFINE/PARAM P5 {EXTPAR}   ?       "Order of fit, Number of iterations:"
 
23
DEFINE/PARAM P6 {CCDPAR}   ?       "Ron, Gain:"
 
24
DEFINE/PARAM P7 {REJTHRES} ?       "Rejection Threshold:"
 
25
!
 
26
!SET/MOS obj={P1} mos={P2} extobjec={P3} 
 
27
!
 
28
WRITE/KEYW IN_A {P1}
 
29
WRITE/KEYW IN_B {P2}
 
30
WRITE/KEYW INPUTC {P3}
 
31
WRITE/KEYW OUT_A {P4}
 
32
WRITE/KEYW INPUTI {P5}
 
33
WRITE/KEYW INPUTR {P6},{P7}
 
34
!
 
35
RUN STD_EXE:MOSEXT
 
36
!
 
37
COPY/DD {P1} *,3 {P4}