← Back to branch summary

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

« back to all changes in this revision

Viewing changes to stdred/long/proc/lnredinit.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/long/proc/lnredinit.prg
 
1
! @(#)lnredinit.prg     19.1 (ES0-DMD) 02/25/03 14:24:50
 
2
! @(#)lnredinit.prg     19.1  (ESO)  02/25/03  14:24:50
 
3
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
4
!.COPYRIGHT   (C) 1993 European Southern Observatory
 
5
!.IDENT       lnredinit.prg
 
6
!.AUTHORS     Pascal Ballester (ESO/Garching) 
 
7
!             Cristian Levin   (ESO/La Silla)
 
8
!.KEYWORDS    Spectroscopy, Long-Slit
 
9
!.PURPOSE     
 
10
!                init parameters for batch reduction
 
11
!                Command: INIT/REDUCE
 
12
!
 
13
!.VERSION     1.0  Package Creation  17-MAR-1993  
 
14
!-------------------------------------------------------
 
15
!
 
16
def/param p1 ? t "Enter parameters table : "
 
17
 
 
18
write/out Parameters are initialized from table 'P1'
 
19
def/loc indx/i/1/1 0
 
20
def/loc partab/C/1/60  " "  ALL
 
21
    
 
22
compute/keyw indx = m$index(p1, ".brf")
 
23
    
 
24
if indx .eq. 0 then
 
25
    write/keyw partab {p1}.brf
 
26
else
 
27
    write/keyw partab {p1}
 
28
endif
 
29
verify/long {partab} tab
 
30
    
 
31
savinit/long {partab} read