← Back to branch summary

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

« back to all changes in this revision

Viewing changes to contrib/surfphot/proc/sgpfc.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/sgpfc.prg
 
1
! @(#)sgpfc.prg 19.1 (ES0-DMD) 02/25/03 13:31:10
 
2
!++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
3
!.PURPOSE: Fourier coefficients of azimuthal profiles of spiral galaxis
 
4
!.USE:     COMPUTE/FCOEFF image  xc,yc,pa,i  ri,ro,dr  table
 
5
!          where the parameters are:
 
6
!.VERSION: Sep 8, 1988 P.Grosbol
 
7
!----------------------------------------------------------
 
8
DEFINE/PARAM P1 ? ? "Enter name of input image :"
 
9
DEFINE/PARAM P2 ? ? "Enter xc,yc,pa,i          :"
 
10
DEFINE/PARAM P3 ? ? "Enter ri,ro,dr            :"
 
11
DEFINE/PARAM P4 ? ? "Enter name of output table:"
 
12
!
 
13
WRITE/KEYW  IN_A/C/1/40  'P1'
 
14
WRITE/KEYW  INPUTR/R/1/4 'P2'
 
15
WRITE/KEYW  INPUTR/R/5/3 'P3'
 
16
WRITE/KEYW  OUT_A/C/1/40 'P4'
 
17
!
 
18
RUN CON_EXE:SGPFC