← Back to branch summary

~ubuntu-branches/ubuntu/wily/eso-midas/wily-proposed

« back to all changes in this revision

Viewing changes to contrib/hst/proc/fos.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:
contrib/hst/proc/fos.prg
 
1
! @(#)fos.prg   19.1 (ES0-DMD) 02/25/03 13:24:55
 
2
! @(#)fos.prg   19.1 02/25/03 13:24:55
 
3
!****************************************************************************
 
4
!                        Procedure fos.prg
 
5
!! M. Almudena Prieto, 
 
6
! December 1991
 
7
! Revised June 1992
 
8
!  
 
9
!                      ** IMPORTANT **
 
10
!This procedure should run in a separate sub-directory where
 
11
!only the  *c0*, *c1* and *cq* FOS files are included.
 
12
!                        ************
 
13
!The procedure re-groups the *c0*, *c1* and *cq* FOS files into a single
 
14
! MIDAS table. The new table  is renamed with the root-name of the FOS dataset.
 
15
!The table  contains  wavelengths:   column #1 or   :WAV
 
16
!                     fluxes:        column #2 or   :FLUX
 
17
!                     quality flags: column #3 or   :QUAL
 
18
! 
 
19
! Column 1 and 2 should be used by the user to create an 1-D spectrum.
 
20
!****************************************************************************
 
21
!MIDAS/FOS files - images and associated tables- are renamed with the
 
22
!ROOTNAME  appearing in the FITS header:
 
23
 
 
24
creat/icat fos *.bdf
 
25
DEFINE/LOCAL CATAL/I/1/1 0
 
26
DEFINE/LOCAL I/I/1/1 0
 
27
WRITE/KEY NAME/C/1/20 " "
 
28
write/key VAR/r/1/1 1
 
29
LOOP_fos:
 
30
DO I = 1 3
 
31
STORE/FRAME IN_B fos.cat 1 FINITO
 
32
READ/KEY IN_B
 
33
copy/it 'IN_B' temp{I}
 
34
enddo
 
35
IF {{IN_B},NAXIS} .NE. 0 THEN
 
36
VAR = {{IN_B},NPIX(2)}
 
37
endif
 
38
 
 
39
COPY/DK 'IN_B' ROOTNAME NAME
 
40
!
 
41
! Each 2-D FOS/MIDAS  image is converted to a MIDAS table
 
42
!
 
43
CREA/TABLE TEMP 3 2064 NULL
 
44
COPY/TT temp0001 #{VAR} TEMP :WAV 
 
45
COPY/TT temp0002 #{VAR}  TEMP :FLUX 
 
46
COPY/TT temp0003 #{VAR}  TEMP :QUAL
 
47
RENAME/table TEMP 'NAME'
 
48
GOTO LOOP_fos
 
49
FINITO:
 
50
! clean up area
 
51
! Delete temporary and catalog files
 
52
do I = 1 3
 
53
dele/table temp{I} no
 
54
enddo
 
55
del dirfile.dat nc
 
56
dele fos.cat nc
 
57
!exit
 
58
 
 
59
 
 
60
 
 
61
 
 
62