← Back to branch summary

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

« back to all changes in this revision

Viewing changes to stdred/irspec/proc/irsdemo.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/irspec/proc/irsdemo.prg
 
1
! @(#)irsdemo.prg       19.1 (ES0-DMD) 02/25/03 14:23:29
 
2
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
3
!
 
4
!.COPYRIGHT   (C) 1992 European Southern Observatory
 
5
!.IDENT       irsdemo.prg
 
6
!.AUTHOR      E. Oliva,  Firenze, Arcetri
 
7
!.KEYWORDS    Spectroscopy, IRSPEC
 
8
!.PURPOSE     Quick demonstration and test of all IRSPEC commands.
 
9
!.VERSION     1.0    Creation     28.09.1992   E. Oliva
 
10
!
 
11
!-------------------------------------------------------
 
12
!
 
13
DEFINE/PARAM P1 NOAUTO ? "AUTO/NOAUTO"
 
14
def/loc i/i/1/1 0
 
15
IF P1(1:4) .NE. "AUTO" THEN
 
16
  write/out " "
 
17
  write/out "This is a quick demonstration of all the IRSPEC commands which"
 
18
  write/out "is mainly used as a test for the installation of MIDAS."
 
19
  write/out "You are kindly invited to look at the help of the single commands"
 
20
  write/out "(typing HELP you will get a list of them)."
 
21
  write/out "Note that after the demonstration all the files named : "
 
22
  write/out "--  irstut*.* -- "
 
23
  write/out "will be destroyed. So, if you have files called this way you are"
 
24
  write/out "still in time to stop the procedure."
 
25
  write/out "Be also aware that the name of the on-line flat and dark will be"
 
26
  write/out "overwritten."
 
27
  inqu/keyw i "Enter 1 to stop here, return to continue : "
 
28
  if i .ne. 0 return
 
29
  write/out " "
 
30
ENDIF
 
31
!
 
32
! Images: irstut{i}
 
33
!
 
34
! 0001 = flat
 
35
! 0002 = dark
 
36
! 0003 = original halo to make the flat
 
37
! 0004 = OBJ-DEMO for SKYSUB
 
38
! 0005 = SKY-DEMO for SKYSUB
 
39
! 0006 = SUBTR-STAR-DEMO for RESPONSE
 
40
! 0007 = LINE-DEMO for SUBTRACT
 
41
! 0008-0012 = DEMO for CONNECT
 
42
!
 
43
! Tables: irstut{i}
 
44
!
 
45
! 0001 = table for skysub_demo
 
46
! 0002 = table (originally bs779) demo for RESPONSE
 
47
!
 
48
! ASCI files
 
49
!
 
50
! irstut0001.dat
 
51
!
 
52
WRITE/OUT "Copying demo files......'
 
53
do i = 1 12
 
54
   intape/fits 1 toto MID_TEST:irstut{i}.fits NOC
 
55
   -rename toto0001.bdf  irstut{i}.bdf
 
56
enddo
 
57
do i = 1 2
 
58
   intape/fits 1 toto MID_TEST:irstut{i}.tfits NOC
 
59
   -rename toto0001.tbl  irstut{i}.tbl
 
60
enddo
 
61
-copy MID_TEST:irstut0001.dat irstut.flux
 
62
!
 
63
@ creifnot 3 heat
 
64
!
 
65
write/out " "
 
66
write/out "DEFINE/IRSPEC"
 
67
DEFINE/IRSPEC irstut0002 irstuttab1 l=1 
 
68
write/out " "
 
69
write/out "BADPIX/IRSPEC"
 
70
CLEA/CHA OVER
 
71
BADPIX/IRSPEC irstut0005 irstutima0 l=1 
 
72
write/out " "
 
73
write/out "FLAT/IRSPEC"
 
74
FLAT/IRSPEC irstut0003 0 irstutimas l=1 
 
75
write/out " "
 
76
write/out "SKYSUB/IRSPEC"
 
77
SET/IRSPEC flat=irstut0001 dark=irstut0002
 
78
SKYS/IRSP irstut0004 irstut0005 irstutima1 0 s=irstut0001 c=-30,30 f=1
 
79
write/out " "
 
80
write/out "RECTIFY/IRSPEC"
 
81
RECTIFY/IRSPEC irstutima0 irstutimas l=1
 
82
RECTIFY/IRSPEC irstutima1 irstutima2 l=0
 
83
write/out " "
 
84
write/out "CALIBRATE/IRSPEC"
 
85
CALIB/IRSP irstutima2
 
86
write/out " "
 
87
write/out "STANDARD/IRSPEC with black-body"
 
88
STANDARD/IRSPEC irstut.flux irstuttab2 bb
 
89
write/out "STANDARD/IRSPEC with polynomial fit in log-log"
 
90
STANDARD/IRSPEC irstut.flux irstuttab2 poly 3
 
91
write/out " "
 
92
CALIB/IRSP irstut0006
 
93
write/out "RESPONSE/IRSPEC"
 
94
RESPONSE/IRSPEC irstut0006 irstuttab2 irstutima3 y=25,31,38,44
 
95
CLEAR/CHA over
 
96
write/out " "
 
97
write/out "FLUX/IRSPEC"
 
98
FLUX/IRSPEC irstutima2 irstutima3 irstutima4
 
99
write/out " "
 
100
write/out "SUBTRACT/IRSPEC"
 
101
SUBTRACT/IRSPEC irstut0007 irstutima5 2 excl=[2.121,22:2.131,44]
 
102
write/out " "
 
103
write/out "MERGE/IRSPEC"
 
104
MERGE/IRSPEC irstut 8,12 irstuttab3 f=i4 e=4 
 
105
SET/GRAPH xaxis=auto yaxis=auto
 
106
write/out " "
 
107
write/out " "
 
108
write/out "Removing irstut* files...."
 
109
if aux_mode .lt. 2 then
 
110
   -delete irstut*.*.*
 
111
else
 
112
   -delete irstut*.*
 
113
endif
 
114
write/out " "
 
115
write/out "End of test/demonstration"