← Back to branch summary

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

« back to all changes in this revision

Viewing changes to contrib/surfphot/proc/pair.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:
contrib/surfphot/proc/pair.prg
 
1
! @(#)pair.prg  19.1 (ES0-DMD) 02/25/03 13:31:09
 
2
!++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
3
!.IDENTIFICATION: PAIR
 
4
!.PURPOSE:        Match two point sets with coordinates in table files
 
5
!.USE:            FIND/PAIR P1 P2 P3 P4 P5 P6
 
6
!                 P1 = name of first table 
 
7
!                 P2 = name of second table 
 
8
!                 P3 = name of output table
 
9
!                 P4 = column nos of coordinates:
 
10
!                      1st table (X,Y), 2nd table (X,Y)
 
11
!                 P5 = estimated separations in X, Y between 1st and 2nd tables,
 
12
!                      max residual distance after coordinate translation, 
 
13
!                      max residual distance after coordinate rotation 
 
14
!                 P6 = 0: coordinates in their own system
 
15
!                      1: 2nd system transformed in 1st system
 
16
!
 
17
!------------------------------------------------------------------------------
 
18
DEFI/PARA P1  ?           T "Enter first input table:"
 
19
DEFI/PARA P2  ?           T "Enter second input table:"
 
20
DEFI/PARA P3  ?           T "Enter output table:"
 
21
DEFI/PARA P4  ?           N "Enter the coordinate columns in input tables:"
 
22
DEFI/PARA P5  0.,0.,2.,2. N "Enter the esitmated error separations:" 
 
23
DEFI/PARA P6  0           N "Enter the coordinate system:"
 
24
!
 
25
WRITE/KEYW IN_A           'P1'
 
26
WRITE/KEYW IN_B          'P2'
 
27
WRITE/KEYW OUT_A          'P3'
 
28
WRITE/KEYW INPUTI         'P4'
 
29
WRITE/KEYW INPUTR         'P5'
 
30
WRITE/KEYW INPUTI/I/5/1   'P6'
 
31
!
 
32
RUN CON_EXE:PAIR