← Back to branch summary

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

« back to all changes in this revision

Viewing changes to prim/proc/superverify.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:
prim/proc/superverify.prg
 
1
! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
2
!
 
3
! MIDAS procedure superverify.prg will
 
4
! execute the verifications  and all TUTORIAL commands
 
5
! and optionally the ESO verifications 
 
6
! 
 
7
! K. Banse   971027, 991214, 040901, 070822, 120131
 
8
! 
 
9
! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
10
!
 
11
define/param p1 NO C "Enter wait/nowait in tutorials:"
 
12
if p1(1:1) .eq. "N" then
 
13
   aux_mode(8) = 1                      !wait/secs nn => NoOp
 
14
endif
 
15
! 
 
16
! see, if we have the ESO verifications installed
 
17
inputi = m$exist("MIDASHOME:ESO-verifications/README")
 
18
if inputi .eq. 0 then           !no, not installed
 
19
   define/param p2 NO C 
 
20
else
 
21
   define/param p2 YES C "Enter YES or NO for ESO verifications:"
 
22
endif
 
23
define/param p3 NEW C "Enter param2 (NEW/OLD) of the verify procedure:"
 
24
!
 
25
WRITE/OUT CLEAR/CONTEXT -ALL
 
26
CLEAR/CONTEXT -ALL
 
27
set/midas keyw=500,300                  !enlarge keyword base
 
28
!
 
29
@ vericopy
 
30
WRITE/OUT "@@ veriall"
 
31
@@ veriall
 
32
!
 
33
RESET/DISPLAY
 
34
WRITE/OUT TUTORIAL/FILTER AUTO
 
35
TUTORI/FILT AUTO
 
36
RESET/DISPLAY
 
37
!
 
38
WRITE/OUT TUTORIAL/GRAPHIC AUTO
 
39
TUTORI/GRAP AUTO
 
40
RESET/DISPLAY
 
41
!
 
42
WRITE/OUT TUTORIAL/ITT AUTO
 
43
TUTORI/ITT AUTO
 
44
RESET/DISPLAY
 
45
!
 
46
WRITE/OUT TUTORIAL/TABLE AUTO
 
47
TUTORI/TABL AUTO
 
48
RESET/DISPLAY
 
49
!
 
50
WRITE/OUT TUTORIAL/FIT AUTO
 
51
TUTORI/FIT AUTO
 
52
RESET/DISPLAY
 
53
!
 
54
WRITE/OUT SET/CONTEXT CLOUD
 
55
SET/CONTEXT CLOUD
 
56
WRITE/OUT TUTORIAL/CLOUD AUTO
 
57
TUTORIAL/CLOUD AUTO
 
58
CLEAR/CONTEXT -ALL
 
59
RESET/DISPLAY
 
60
!
 
61
WRITE/OUT SET/CONTEXT ECHELLE
 
62
SET/CONTEXT ECHELLE
 
63
WRITE/OUT TUTORIAL/ECHELLE AUTO
 
64
TUTORIAL/ECHELLE AUTO
 
65
CLEAR/CONTEXT -ALL
 
66
RESET/DISPLAY
 
67
!
 
68
WRITE/OUT Tutorial of the inventory package
 
69
@c invdemo
 
70
CLEAR/CONTEXT -ALL
 
71
RESET/DISPLAY
 
72
!
 
73
WRITE/OUT SET/CONTEXT IRSPEC
 
74
SET/CONTEXT IRSPEC
 
75
WRITE/OUT TUTORIAL/IRSPEC AUTO
 
76
TUTORIAL/IRSPEC AUTO
 
77
CLEAR/CONTEXT -ALL
 
78
RESET/DISPLAY
 
79
!
 
80
WRITE/OUT SET/CONTEXT LONG
 
81
SET/CONTEXT LONG
 
82
WRITE/OUT TUTORIAL/LONG AUTO
 
83
TUTORIAL/LONG AUTO
 
84
CLEAR/CONTEXT -ALL
 
85
RESET/DISPLAY
 
86
!
 
87
WRITE/OUT SET/CONTEXT MOS
 
88
SET/CONTEXT MOS
 
89
WRITE/OUT TUTORIAL/MOS AUTO
 
90
TUTORIAL/MOS AUTO
 
91
CLEAR/CONTEXT -ALL
 
92
RESET/DISPLAY
 
93
!
 
94
WRITE/OUT SET/CONTEXT WAVELET
 
95
SET/CONTEXT WAVELET
 
96
WRITE/OUT TUTORIAL/WAVELET
 
97
TUTORIAL/WAVELET
 
98
CLEAR/CONTEXT -ALL
 
99
RESET/DISPLAY
 
100
!
 
101
WRITE/OUT SET/CONTEXT DO
 
102
SET/CONTEXT DO
 
103
WRITE/OUT TUTORIAL/DO AUTO
 
104
TUTORIAL/DO AUTO
 
105
CLEAR/CONTEXT -ALL
 
106
RESET/DISPLAY
 
107
! 
 
108
write/out set/context ccdred
 
109
set/context ccdred
 
110
write/out tutorial/mosaic
 
111
tutorial/mosaic
 
112
clear/context -ALL
 
113
reset/display
 
114
! 
 
115
write/out set/context TSA
 
116
set/context TSA
 
117
write/out testing TSA
 
118
$$ cp $MIDASHOME/$MIDVERS/contrib/tsa/test/* .
 
119
@@ test
 
120
if tsa_result(1:6) .ne. "PASSED" return/exit
 
121
! 
 
122
aux_mode(8) = 0                 !reenable wait/secs command
 
123
!
 
124
! ................................
 
125
! finally do the ESO verifications
 
126
! ................................
 
127
! 
 
128
if p2(1:1) .eq. "Y" then
 
129
   @ verify QC
 
130
   if p3(1:1) .eq. "N" then             !ensure that we pass option=NEW
 
131
      @ verify EFOSC NEW
 
132
   else
 
133
      @ verify EFOSC {p3}
 
134
   endif
 
135
   ! 
 
136
   write/out  
 
137
   write/out ... procedure `superverify' with ESO verifications successfully terminated ...
 
138
else
 
139
   write/out  
 
140
   write/out ... procedure `superverify' successfully terminated ...
 
141
endif
 
142
write/out  
 
143