← Back to branch summary

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

« back to all changes in this revision

Viewing changes to stdred/echelle/proc/necsave.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/echelle/proc/necsave.prg
 
1
! @(#)necsave.prg       19.1 (ES0-DMD) 02/25/03 14:19:42
 
2
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
3
!
 
4
!.COPYRIGHT   (C) 1991 European Southern Observatory
 
5
!.IDENT       echsave.prg
 
6
!.AUTHOR      Pascal Ballester,  ESO - Garching
 
7
!.KEYWORDS    Spectroscopy, Echelle, 
 
8
!.PURPOSE     Command SAVE/ECHELLE
 
9
!.VERSION     1.0    Creation    23-AUG-1991 PB
 
10
! 030626        last modif
 
11
!-------------------------------------------------------
 
12
!
 
13
define/param   p1    ?     C    "Session name :"
 
14
!
 
15
write/out Process tables are saved
 
16
!
 
17
!
 
18
-copy    {ordtab}      {p1}ORDE.tbl
 
19
-copy    {lintab}      {p1}LINE.tbl
 
20
if baktab(1:3) .ne. "+++" -copy {baktab} {p1}back.tbl
 
21
!
 
22
if m$existd("{p1}ORDE.tbl","ECHORD") .eq. 1 delete/descr {ordtab}  ECHORD  
 
23
! For compatibility with new type
 
24
SAVINI/ECHELLE {p1}ORDE.tbl  WRITE
 
25