← Back to branch summary

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

« back to all changes in this revision

Viewing changes to stdred/feros/proc/ferossave.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/proc/ferossave.prg
 
1
! @(#)ferossave.prg     19.1 (ESO-IPG) 02/25/03 14:22:03
 
2
! @(#)ferossave.prg     1.1 (ESO-IPG) 02/25/99 16:55:20
 
3
! @(#)ferossave.prg     1.0 (ESO-IPG) 13-11-97
 
4
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
5
!
 
6
!.COPYRIGHT   (C) 1997 European Southern Observatory
 
7
!.IDENT       ferossave.prg
 
8
!.AUTHOR      Anton Malina, LSW Heidelberg, IPG/ESO
 
9
!.KEYWORDS    Spectroscopy, Echelle, FEROS
 
10
!.PURPOSE     Command SAVE/FEROS
 
11
!.VERSION     1.0    Creation   13-Nov-1997   
 
12
!
 
13
!-------------------------------------------------------
 
14
 
 
15
DEFINE/PARAM P1 ? C "Session name :"
 
16
 
 
17
WRITE/OUT Process tables are saved
 
18
 
 
19
SET/MIDAS OUTPUT=NO
 
20
SELECT/TABLE  {CENTER_TBL}    ALL
 
21
COPY/TABLE    {CENTER_TBL}    {P1}_ORDER.tbl
 
22
!SELECT/TABLE  {LINE_REF_TBL}  ALL
 
23
!COPY/TABLE    {LINE_REF_TBL}  {P1}_{LINE_REF_TBL}.tbl
 
24
COPY/II       {TEMPL_IMG}     {P1}_TEMPLATE.bdf
 
25
!COPY/II              {TEMPLT_IMG}    {P1}_{TEMPLT_IMG}.bdf
 
26
 
 
27
IF "{EXT_MODE}" .NE. "S" THEN
 
28
  IF FIBER_MODE .EQ. 1 THEN
 
29
    SELECT/TABLE  {COEF_COP}    ALL
 
30
    COPY/TABLE    {COEF_COP}    {P1}_COP.tbl
 
31
  ELSE
 
32
    SELECT/TABLE  {COEF_COP}1   ALL
 
33
    COPY/TABLE    {COEF_COP}1   {P1}_COP1.tbl
 
34
    SELECT/TABLE  {COEF_COP}2   ALL
 
35
    COPY/TABLE    {COEF_COP}2   {P1}_COP2.tbl
 
36
  ENDIF
 
37
ENDIF
 
38
 
 
39
IF FIBER_MODE .EQ. 1 THEN
 
40
  SELECT/TABLE  {COEF_WLC}    ALL
 
41
  COPY/TABLE    {COEF_WLC}    {P1}_WLC.tbl
 
42
 
 
43
  SELECT/TABLE  {LINE_POS_TBL}    ALL
 
44
  COPY/TABLE    {LINE_POS_TBL}    {P1}_LINE.tbl  
 
45
ELSE
 
46
  SELECT/TABLE  {COEF_WLC}1   ALL
 
47
  COPY/TABLE    {COEF_WLC}1   {P1}_WLC1.tbl 
 
48
  SELECT/TABLE  {COEF_WLC}2   ALL
 
49
  COPY/TABLE    {COEF_WLC}2   {P1}_WLC2.tbl
 
50
 
 
51
  SELECT/TABLE  {LINE_POS_TBL}1   ALL
 
52
  COPY/TABLE    {LINE_POS_TBL}1   {P1}_LINE1.tbl 
 
53
  SELECT/TABLE  {LINE_POS_TBL}2   ALL
 
54
  COPY/TABLE    {LINE_POS_TBL}2   {P1}_LINE2.tbl
 
55
ENDIF
 
56
 
 
57
SELECT/TABLE    ferostab.tbl      ALL
 
58
COPY/TABLE      ferostab.tbl      {P1}_INIT.tbl
 
59
 
 
60
IF LOC_MODE .EQ. "G" THEN
 
61
  SELECT/TABLE  {GUESS_TBL}     ALL
 
62
  COPY/TABLE    {GUESS_TBL}     {P1}_GORDER.tbl
 
63
ENDIF
 
64
SET/MIDAS OUTPUT=YES
 
65
 
 
66
WRITE/KEYWORD   INIT_TBL      {P1}_INIT
 
67
SAVINIT/FEROS   {P1}_INIT.tbl  WRITE
 
68
 
 
69
RETURN