← Back to branch summary

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

« back to all changes in this revision

Viewing changes to stdred/spec/proc/specorrel.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/spec/proc/specorrel.prg
 
1
! @(#)specorrel.prg     19.1 (ES0-DMD) 02/25/03 14:29:21
 
2
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
3
!
 
4
!.COPYRIGHT   (C) 1992 European Southern Observatory
 
5
!.IDENT       specorrel.prg
 
6
!.AUTHOR      Pascal Ballester,  ESO - Garching
 
7
!.KEYWORDS    Spectroscopy, Echelle,
 
8
!.PURPOSE     Command CORRELATE/SPECTRUM
 
9
!.VERSION     1.0    Creation  12-AUG-1992
 
10
!
 
11
!-------------------------------------------------------
 
12
!
 
13
DEFINE/PARAM  P1  ?            TABLE  "Table 1:"
 
14
DEFINE/PARAM  P2  ?            TABLE  "Table 2:"
 
15
DEFINE/PARAM  P3  1.           NUMB   "Pixel size:"
 
16
DEFINE/PARAM  P4  0,0.05,5,0.1 NUMB   "Center, Tol, Range, Step"
 
17
DEFINE/PARAM  P5  X,Y,+        CHAR   "Positions, Reference, Weights"
 
18
DEFINE/PARAM  P6  +            CHAR   "Reference  value"
 
19
DEFINE/PARAM  P7  middummx.bdf IMA    "Name of output image:"
 
20
 
 
21
WRITE/KEYW   IN_A   {P1}
 
22
WRITE/KEYW   IN_B   {P2}
 
23
WRITE/KEYW   OUT_A  {P7}
 
24
 
 
25
DEFINE/LOCAL INDX/I/1/1   0  ! Position of the comas in P5
 
26
DEFINE/LOCAL PAR5/C/1/80  {P5}
 
27
INDX = M$INDEX(PAR5,",") - 1
 
28
WRITE/KEYW  INPUTC  {PAR5(1:{INDX})}
 
29
INDX = INDX + 2
 
30
WRITE/KEYW  PAR5   {PAR5({INDX}:)}
 
31
INDX = M$INDEX(PAR5,",") - 1
 
32
WRITE/KEYW   INPUTC/C/21/20  {PAR5(1:{INDX})}
 
33
INDX = INDX + 2
 
34
WRITE/KEYW   INPUTC/C/41/20  {PAR5({INDX}:)}
 
35
!
 
36
WRITE/KEYW   INPUTD/D/1/1   {P3}
 
37
WRITE/KEYW   INPUTR/R/1/4   {P4}
 
38
!
 
39
INPUTR(2) = INPUTR(2)*INPUTD(1)
 
40
INPUTR(3) = INPUTR(3)*INPUTD(1)
 
41
INPUTR(4) = INPUTR(4)*INPUTD(1)
 
42
!
 
43
IF M$TSTNO(P6) .EQ. 1 THEN
 
44
   WRITE/KEYW INPUTC/C/61/1  "+"     ! Provided a reference value
 
45
   WRITE/KEYW INPUTD/D/1/2   {P6},{P6}
 
46
ELSE
 
47
   WRITE/KEYW INPUTC/C/61/1  "-"
 
48
ENDIF
 
49
!
 
50
RUN STD_EXE:specorrel.exe
 
51
! Position of the correlation peak is found is OUTPUTR(1)
 
52
!
 
53
RETURN
 
54
 
 
55
 
 
56
 
 
57
 
 
58