← Back to branch summary

~ubuntu-branches/ubuntu/wily/eso-midas/wily-proposed

« back to all changes in this revision

Viewing changes to prim/proc/avesub.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:
prim/proc/avesub.prg
 
1
! @(#)avesub.prg        19.1 (ES0-DMD) 02/25/03 14:08:44
 
2
! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
3
!
 
4
! MIDAS procedure  avesub.prg  for AVERAGE/AVERAGE, /KAPPA, /MEDIAN
 
5
! K. Banse      901108
 
6
!
 
7
! use via AVERAGE/method in_specs out_specs [out_option] [draw] [method_parms]
 
8
! 
 
9
!  in_specs = CURSOR  or  inframe,intable
 
10
!  out_specs = +                 just display data
 
11
!            = :label            label of column for intable
 
12
!            = table,:label      if CURSOR input used
 
13
!            = descr             descriptor name (of inframe)
 
14
!  out_option = A, append flag for descriptor
 
15
!             = C, center_columns flag for table
 
16
!  draw = Y or N for drawing cursor rectangle (only with CURSOR option)
 
17
!  method_parms = no. of iterations for kappa-sigma clipping
 
18
!
 
19
! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
20
!
 
21
define/param p1 CURSOR C "Enter inframe,table or CURSOR: "
 
22
define/param p2 + C "Enter output specs: "
 
23
define/param p3 + C "Enter output options: "
 
24
!
 
25
!  check, if it's cursor or table input
 
26
inputi = m$parse(p1,"sub")
 
27
if inputi .gt. 1 then                           !inframe,intable
 
28
   write/keyw in_a {sub01}
 
29
   write/keyw in_b {sub02}
 
30
else
 
31
   in_b(1:2) = "+ "                             !means cursor input
 
32
   define/param p4 Y C "Enter draw flag - Y(es) or N(o): "
 
33
endif
 
34
!
 
35
action(1:1) = mid$cmnd(11:11)                   !save qualifier
 
36
if action(1:1) .eq. "K" then
 
37
   define/param p5 1 N "Enter iteration no. for kappa-sigma clipping"
 
38
   write/keyw inputi {p5}
 
39
elseif action(1:1) .eq. "M" then
 
40
   inputi(2) = 20000                !size of internal buffer (only for Median)
 
41
endif
 
42
!
 
43
write/keyw inputc {p2}                          !fill output_specs
 
44
write/keyw inputc/c/51/1 {p3}
 
45
!
 
46
run MID_EXE:AVESUB