← Back to branch summary

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

« back to all changes in this revision

Viewing changes to prim/proc/rcosmic.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/rcosmic.prg
 
1
! @(#)rcosmic.prg       19.1 (ES0-DMD) 02/25/03 14:08:59
 
2
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
3
!.IDENTIFICATION:  rcosmic.prg
 
4
!.PURPOSE:         MIDAS procedure to remove and delete cosmic ray events 
 
5
!                  on single CCD exposure.
 
6
!.USE:             FILTER/COSMIC p1 p2 p3 p4  where:
 
7
!                     P1: input image containing the cosmic rays,
 
8
!                     P2: median filter of the input image 
 
9
!                     P3: SKY,RON,G,NS,RC
 
10
!                     P4: mask name
 
11
!.AUTHOR:          P.Magain, M.Remy, Institut d'Astrophysique de Liege  
 
12
!.VERSION:         911121 MP implemented in Portable MIDAS
 
13
!-------------------------------------------------------------------------------
 
14
! 
 
15
define/param p1 ? IMA "Enter input image:"
 
16
define/param p2 ? IMA "Enter output image:"
 
17
define/param p3 ? NUM "Enter SKY,G,RON,NS,RC:"
 
18
define/param p4 + IMA "Enter mask name for cosmics:"
 
19
define/param p5 1,1,0.0 N "Enter parameter P3 for FILTER/MEDIAN:"
 
20
define/param p6 NA C "Enter parameter P4 for FILTER/MEDIAN:"
 
21
define/maxpar 6
 
22
! 
 
23
write/keyw in_a {p1}
 
24
define/local outima/c/1/60 {p2} 
 
25
define/local params/r/1/5 -1,-1,-1,4,2
 
26
write/keyw params {p3}
 
27
define/local cosmic/c/1/60 {p4}
 
28
! 
 
29
write/out "Beginning of the median filter"
 
30
filter/median {in_a} middumma {p5} {p6}
 
31
! 
 
32
write/out "Beginning of the cosmic rays removal"
 
33
write/keyw history "FILTER/COSMIC "
 
34
! 
 
35
run MID_EXE:RCOSMIC