← Back to branch summary

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

« back to all changes in this revision

Viewing changes to stdred/feros/locproc/create_cats.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/create_cats.prg
 
1
! @(#)create_cats.prg   19.1 (ESO-IPG) 02/25/03 14:21:44
 
2
! @@ create_cats.prg      
 
3
! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
4
!
 
5
! MIDAS procedure  create_cats.prg        
 
6
! O.Stahl       981022
 
7
!
 
8
! extract FF, ThAr and object files from catalog
 
9
! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
10
!
 
11
define/par p1 ?     C "Enter catalog.cat : "
 
12
!
 
13
define/local tmpname/c/1/40 " " all
 
14
define/local infile/c/1/40 " " all
 
15
define/local catal/i/1/1 0 
 
16
define/local ind/i/1/1 0 
 
17
define/local i/i/1/1 0 
 
18
define/local mm/i/1/1 0
 
19
 
 
20
crea/icat ThAr null
 
21
crea/icat FF null
 
22
crea/icat Objects null
 
23
 
 
24
next:
 
25
store/frame infile {p1} 1 finish
 
26
!
 
27
! now the operation on the catalog
 
28
!
 
29
i = i+1
 
30
 
 
31
write/out "{infile} {{infile},EXPTYPE} "
 
32
 
 
33
if "{{infile},EXPTYPE}" .eq. "CALIBRATION" then
 
34
  add/icat ThAr {infile}
 
35
!endif
 
36
elseif "{{infile},EXPTYPE}" .eq. "FLATFIELD" then
 
37
  add/icat FF {infile}
 
38
else
 
39
add/icat Objects {infile}
 
40
endif
 
41
!
 
42
goto next
 
43
finish: