← Back to branch summary

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

« back to all changes in this revision

Viewing changes to applic/proc/xcorr.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:
applic/proc/xcorr.prg
 
1
! @(#)xcorr.prg 19.1 (ESO-DMD) 02/25/03 13:20:21
 
2
!++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
3
!
 
4
! MIDAS procedure xcorr.prg
 
5
!
 
6
! Correlate 2 1D frames in pixel coordinates (as in IHAP).
 
7
!
 
8
! use as XCORRELATE/IMAGE temp spec result shift
 
9
! with   temp = template
 
10
!        spec = spectrum
 
11
!        result = result frame
 
12
!        shift = max shif in pixels
 
13
!
 
14
!  M. Rosa      ST-ECF  870601
 
15
!  K. Banse     ESO - Garching  890508, 950120, 020108
 
16
!
 
17
!----------------------------------------------------------------------
 
18
!
 
19
define/param p1 ? I "Enter name of template frame: "
 
20
define/param p2 ? I "Enter name of spectral frame: "
 
21
define/param p3 xcorr I "Enter name of output frame: "
 
22
define/param p4 10 N "Enter 1/2 bandwith = shift of frames: "
 
23
define/param p5 N C -
 
24
"Enter YES or NO for pixelwise normalization of output frame:"
 
25
define/maxpar 5
 
26
!
 
27
write/keyw in_a {p1}
 
28
write/keyw in_b {p2}
 
29
write/keyw out_a {p3}
 
30
write/keyw inputi/i/1/1 {p4}
 
31
write/keyw action/c/1/2 C{p5}           !indicate correlation
 
32
!
 
33
write/keyw history "XCORRELATE/IMAGE "
 
34
run MID_EXE:FLIP