← Back to branch summary

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

« back to all changes in this revision

Viewing changes to contrib/surfphot/proc/intell.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/intell.prg
 
1
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
2
!.IDENTIFICATION: intell.prg
 
3
!.PURPOSE:        Integrate pixel intensities within ellipse in 2-D image
 
4
!.USE:            INTEGR/ELLIPS P1 P2 P3
 
5
!                 P1 = inframe 
 
6
!                 P2 = ellipse parameters: center X, center Y, 
 
7
!                      semi-major diameter, semi-minor diameter, 
 
8
!                      position angle (degrees, 0 on X-axis, incr tow Y-axis)
 
9
!                 P3 = flag: 1 = ellipse parameters read from
 
10
!                      descriptor ELLPAR according to P2
 
11
!.NOTE:           Descriptor ELLPAR updated with flux in 6th element
 
12
! 080320        last modif
 
13
!--------------------------------------------------------------------------
 
14
define/param p1 ?  IMA               "Enter input image"
 
15
define/param p2 {morph(1:50)}  N     "Ellipse center X,Y, semidiams, posangle:"
 
16
define/param p3 0 N                  "Flag (1=ellipse params in descr ELLPAR):"
 
17
!
 
18
write/keyw in_a         {p1}       !write inframe into IN_A
 
19
!
 
20
write/keyw inputr/r/1/5  {p2}       !write ellipse parameters
 
21
write/keyw morph/c/1/50  {p2}
 
22
!
 
23
write/keyw inputi/i/1/1  {p3}       !write flag
 
24
!
 
25
run CON_EXE:INTELL