← Back to branch summary

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

« back to all changes in this revision

Viewing changes to stdred/spec/proc/fripple.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:
stdred/spec/proc/fripple.prg
 
1
! @(#)fripple.prg       19.1 (ES0-DMD) 02/25/03 14:29:18
 
2
!++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
3
!
 
4
! . IDENTIFICATION
 
5
!
 
6
! MIDAS COMMAND PROCEDURE : FRIPPLE.PRG
 
7
!
 
8
! D. Baade, ST-ECF, Garching           version 1.0                 291085
 
9
!                                      version 1.1  P. Ballester   220291
 
10
!  KB  920401
 
11
!
 
12
! .PURPOSE
 
13
!
 
14
! execute the command :
 
15
!
 
16
! FILTER/RIPPLE inimage outimage period [start,end]
 
17
!
 
18
! inimage:   input frame
 
19
! outimage:  output frame
 
20
! period:    ripple period
 
21
! start,end: first and last pixel of range over which analysis is to be performe
 
22
!
 
23
!-------------------------------------------------------------------------------
 
24
!
 
25
DEFINE/PARAM P1 ? IMA    "Enter input image:"
 
26
DEFINE/PARAM P2 ? IMA    "Enter output image:"
 
27
DEFINE/PARAM P3 ? NUMBER "Enter period:"
 
28
DEFINE/LOCAL  DELTA/R/1/1  0.0
 
29
!
 
30
WRITE/KEYW HISTORY "FILTER/RIPPLE "
 
31
WRITE/KEYW IN_A {P1}
 
32
WRITE/KEYW OUT_A {P2}
 
33
WRITE/KEYW INPUTR/R/1/1 {P3}
 
34
!
 
35
IF P4(1:1) .EQ. "?" THEN
 
36
   WRITE/KEYW INPUTI 1,0
 
37
   COPY/DK {P1} NPIX/I/1/1 INPUTI/I/2/1
 
38
ELSE
 
39
   WRITE/KEYW INPUTI/I/1/2 {P4}
 
40
ENDIF
 
41
! 
 
42
! Check consistency of input data    910222
 
43
! 
 
44
IF INPUTI(2) .LE. INPUTI(1) THEN
 
45
   WRITE/OUT  "Condition End > Start not fulfilled"
 
46
   RETURN/EXIT
 
47
ELSEIF INPUTR(1) .LT. 1. THEN
 
48
   WRITE/OUT  "Period must be larger than 1. pixel"
 
49
   RETURN/EXIT
 
50
ENDIF
 
51
! 
 
52
DELTA = INPUTI(2) - INPUTI(1)
 
53
! 
 
54
IF DELTA .LE. INPUTR(1) THEN
 
55
   WRITE/OUT "Condition (End-Start)>Period not fulfilled"
 
56
   RETURN/EXIT
 
57
ENDIF
 
58
! 
 
59
! Calls program
 
60
RUN  STD_EXE:FRIPPLE