← Back to branch summary

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

« back to all changes in this revision

Viewing changes to stdred/mos/proc/mossave.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/mos/proc/mossave.prg
 
1
! @(#)mossave.prg       1.4 (ESO-IPG) 2/15/94 11:30:54
 
2
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
3
!
 
4
!.COPYRIGHT   (C) 1991 European Southern Observatory
 
5
!.IDENT       mossave.prg
 
6
!.AUTHOR      Pascal Ballester,  ESO - Garching
 
7
!.KEYWORDS    Spectroscopy, MOS
 
8
!.PURPOSE     Command SAVE/MOS
 
9
!.VERSION     1.0    Creation    23-AUG-1991 PB
 
10
!
 
11
!-------------------------------------------------------
 
12
!
 
13
DEFINE/PARAM   P1    ?     C    "Session name :"
 
14
!
 
15
WRITE/OUT Process tables are saved
 
16
!
 
17
!
 
18
SET/MIDAS OUTPUT=NO
 
19
SELECT/TABLE  {MOS}     ALL
 
20
COPY/TABLE    {MOS}     {P1}SLIT.tbl
 
21
SELECT/TABLE  {LINPOS}  ALL
 
22
COPY/TABLE    {LINPOS}  {P1}LIN.tbl
 
23
SELECT/TABLE  {LINFIT}  ALL
 
24
COPY/TABLE    {LINFIT}  {P1}FIT.tbl
 
25
SELECT/TABLE  {WINDOWS} ALL
 
26
COPY/TABLE    {WINDOWS} {P1}WIN.tbl
 
27
SET/MIDAS OUTPUT=YES
 
28
!
 
29
SAVINIT/MOS  {P1}SLIT.tbl  WRITE
 
30
!
 
31
RETURN
 
32