← Back to branch summary

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

« back to all changes in this revision

Viewing changes to stdred/feros/locproc/prepare.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/feros/locproc/prepare.prg
 
1
! @@ prepare.prg          
 
2
! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
3
!
 
4
! MIDAS procedure prepare.prg   
 
5
! O.Stahl, A.Kaufer, S.Tubbesing        990125
 
6
!
 
7
! PURPOSE
 
8
! initialize catalogues for FF, ThAr, Dark and Objects
 
9
!
 
10
!
 
11
!
 
12
! USAGE
 
13
!
 
14
! @@ prepare
 
15
!
 
16
! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
17
!
 
18
define/local tmpname/c/1/40 " " all
 
19
define/local infile/c/1/40 " " all
 
20
define/local catal/i/1/1 0 
 
21
define/local ind/i/1/1 0 
 
22
define/local i/i/1/1 0 
 
23
define/local mm/i/1/1 0
 
24
 
 
25
$ln -s  ../Objects.tbl
 
26
$ln -s  ../ThAr50000.tbl
 
27
$ln -s ../BLAZE.tbl
 
28
$ln -s ../darks/DARK.bdf
 
29
 
 
30
write/out "Resetting catalogues for Flats, ThArs, Darks, and Objects" 
 
31
crea/icat Feros null
 
32
crea/icat ThAr null
 
33
crea/icat FF null
 
34
crea/icat Dark null
 
35
crea/icat Objects null
 
36
 
 
37
set/context feros
 
38
 
 
39
crea/icat Feros fero????.mt
 
40
 
 
41
next:
 
42
store/frame infile Feros.cat 1 done
 
43
 
 
44
if "{{infile},EXPTYPE}" .eq. "CALIBRATION" then
 
45
  add/icat ThAr {infile}
 
46
elseif "{{infile},EXPTYPE}" .eq. "FLATFIELD" then
 
47
  add/icat FF {infile}
 
48
elseif "{{infile},EXPTYPE}" .eq. "SCIENCE" then 
 
49
 
 
50
  if "{{infile},SHSTAT}" .eq. "CLOSED"  then
 
51
    write/descr {infile} EXPTYPE/C/1/7 "DARK   "
 
52
    add/icat Dark.cat {infile}
 
53
  elseif "{{infile},SHSTAT}" .eq. "OPEN"  then
 
54
 
 
55
    add/icat Objects {infile}
 
56
  endif
 
57
 
 
58
endif
 
59
 
 
60
write/out "--------------------------------------------"
 
61
write/out "{infile}: Exposure type  {{infile},EXPTYPE} "
 
62
write/out "--------------------------------------------"
 
63
 
 
64
goto next
 
65
done:
 
66
 
 
67
 
 
68
 
 
69
 
 
70
 
 
71