← Back to branch summary

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

« back to all changes in this revision

Viewing changes to stdred/long/proc/lnrect.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/lnrect.prg
 
1
! @(#)lnrect.prg        19.1 (ES0-DMD) 02/25/03 14:24:50
 
2
!++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
3
!.COPYRIGHT   (C) 1993 European Southern Observatory
 
4
!.IDENT       lnrect.prg
 
5
!.PURPOSE:        MIDAS command procedure RECTIFY/SPECTRUM
 
6
!.AUTHOR:         J.D.Ponz
 
7
!.VERSION:        850813  D. Baade, ST-ECF: creation
 
8
!.VERSION:        881220  J.D.Ponz
 
9
!.USE:            RECTIFY/SPECTRUM in out ref subsampling subfactor
 
10
! ------------------------------------------------------------------
 
11
!
 
12
DEFINE/PARAM P1 ? IMA         "Enter input  image:"
 
13
DEFINE/PARAM P2 ? IMA         "Enter output image:"
 
14
DEFINE/PARAM P4 1 NUM         "Nrep:"
 
15
DEFINE/PARAM P5 N CHAR        "Deconvolution flag:"
 
16
DEFINE/PARAM P6 {LINTAB} TAB  "Reference table:"
 
17
!
 
18
DEFINE/LOCAL MYACT/C/1/2 'MID$CMND(11:12)'       !save qualifier...
 
19
DEFINE/LOCAL ERRSAV/I/1/1 'ERROR(3)'  ! disable errors in regression...
 
20
!
 
21
 
 
22
IF M$EXISTD(P6,"COEFXYD") .EQ. 0 THEN
 
23
   WRITE/OUT "Error: "
 
24
   WRITE/OUT "Computation of the bivariate solution has not"
 
25
   WRITE/OUT "been performed. Check session keyword TWODOPT"
 
26
   RETURN/EXIT
 
27
ENDIF
 
28
!
 
29
ERROR(3) = -1                   
 
30
WRITE/KEYW INPUTI/I/1/1 'P4'
 
31
IF P5(1:1) .EQ. "Y" THEN
 
32
   INPUTR(1) = 3                 ! SUBFACTOR in RECTIMAG/RECTSPEC
 
33
ELSE
 
34
   INPUTR(1) = 1.
 
35
ENDIF
 
36
 
 
37
INPUTD(1) = REBSTRT
 
38
INPUTD(2) = REBSTP
 
39
INPUTI(3) = (REBEND-REBSTRT)/REBSTP + 0.5
 
40
CREATE/IMAGE &h 2,{INPUTI(3)},{NPIX(2)} {INPUTD(1)},{START(2)},-
 
41
{INPUTD(2)},{STEP(2)}
 
42
WRITE/KEYW    IN_B  middummh.bdf
 
43
 
 
44
COPY/KEYW  START/D/1/2   INPUTD/D/1/2
 
45
COPY/KEYW  STEP/D/1/2    INPUTD/D/3/2
 
46
 
 
47
COPY/DK {P6}  COEFXYC   KEYLONGC
 
48
COPY/DK {P6}  COEFXYI   KEYLONGI
 
49
COPY/DK {P6}  COEFXYD   KEYLONGD
 
50
 
 
51
RUN STD_EXE:RECTSPEC  ! RECTIFY/SPECTRUM
 
52
 
 
53
COPY/DD {P1} *,3 {P2}
 
54
 
 
55
 
 
56