← Back to branch summary

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

« back to all changes in this revision

Viewing changes to contrib/romafot/proc/rfotfind.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/romafot/proc/rfotfind.prg
 
1
! @(#)rfotfind.prg      19.1 (ESO-DMD) 02/25/03 13:30:00
 
2
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
3
!.IDENTIFICATION: RFOTFIND.PRG
 
4
!.PURPOSE:        To select object from the displayed frame and to store
 
5
!.                their position into an catalogue table
 
6
!.USE:            FIND/ROMAFOT frame [int_tab}
 
7
!.AUTHOR:         Rein H. Warmels
 
8
!.VERSION:        890228 RHW loading of frame done by LOAD/IMA
 
9
! 990607  KB
 
10
! ----------------------------------------------------------------------
 
11
define/param   p1  *        IMA   "Input frame "
 
12
define/param   p2  {p1}cat  TAB   "Output catalogue table "
 
13
!
 
14
write/keyw in_a            {p1}
 
15
write/keyw out_a           {p2}
 
16
!
 
17
set/cursor 0 CROSS,WHITE
 
18
! 
 
19
if p1 .ne. "*"  load/image {p1}
 
20
run CON_EXE:RFOTFIND