← Back to branch summary

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

« back to all changes in this revision

Viewing changes to stdred/ccdtest/proc/ccdtestf.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/ccdtest/proc/ccdtestf.prg
 
1
! @(#)ccdtestf.prg      19.1 (ES0-DMD) 02/25/03 14:17:11
 
2
! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
3
!.IDENTIFICATION: ccdtestf.prg
 
4
!.PURPOSE:        Procedure to test the ccd flat field characteristics
 
5
!.AUTHOR:         Rein H. Warmels
 
6
!.USE:            @s ccdtestf
 
7
!.                where p1 = input catalogue containing the ccd bias frames
 
8
!.                      p2 = output identifier [flat]
 
9
!.                      p3 = method for computing the combined flat
 
10
!.                      p4 = area
 
11
!.                      p5 = range of exposure times to be combined:"
 
12
!.                      p6 = threshold for determining the cold pixels.
 
13
!.USE:            @@ ccdtestf p1 p2 p3 p5 p5 p6
 
14
!.Algorithm:      The following tests are done:
 
15
!                 Test F1: Creating of the combined master flat frame"
 
16
!                          All frames in the input flat catalogue are combined
 
17
!                          using the {P4} method. A printout of the combined
 
18
!                          frame is produced."
 
19
!                 Test F2: Creating a cold pixel table.
 
20
!                          First the combined flat is corrected for the bias 
 
21
!                          offset. Therafter all pixels in the stacked master 
 
22
!                          flat frame that show values less than {p6} times the
 
23
!                          median counts in the frame are listed. Only pixels 
 
24
!                          within the area {p5} are considered and repetitions
 
25
!                          of cold pixels in the increasing y coordinate are 
 
26
!                          not listed.
 
27
!.VERSION:        940620 RHW creation
 
28
!.VERSION:        950813 RHW Split is single procedures
 
29
! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
30
DEFINE/PARAMETER P1  ?             C  "Enter input catalogue:"
 
31
DEFINE/PARAMETER P2  FLAT          C  "Enter combined output frame:"
 
32
DEFINE/PARAMETER P3  median        C  "Enter combining method:"
 
33
DEFINE/PARANETER P4  [<,<:>,>]     C  "Enter area for median filtering:"
 
34
DEFINE/PARAMETER P5  0,5           N  "Enter exposure time range:"
 
35
DEFINE/PARAMETER P6  5.0           N  "Enter sigma multiplier for cold pixels:"
 
36
!
 
37
! *** check if the catalogue exists
 
38
IF M$EXIST(P1) .EQ. 0 THEN
 
39
   WRITE/OUT "*** FATAL <CCDTESTF>: Catalogue {P1} not existing"
 
40
   RETURN/EXIT
 
41
ELSE
 
42
   read/icat {p1}
 
43
   write/out " "
 
44
ENDIF
 
45
!
 
46
create/display
 
47
@s ccdtestf1 {p1} {p2} {p3} {p4} {p5} ?
 
48
@s ccdtestf2 {p2} {p2} {p4} {p6} ?
 
49
RETURN
 
50
 
 
51
 
 
52
 
 
53
 
 
54
 
 
55
 
 
56
 
 
57
 
 
58
 
 
59
 
 
60
 
 
61
 
 
62
 
 
63