← Back to branch summary

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

« back to all changes in this revision

Viewing changes to stdred/ccdred/proc/ccdset.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/ccdred/proc/ccdset.prg
 
1
! @(#)ccdset.prg        19.1 (ES0-DMD) 02/25/03 14:16:02
 
2
! @(#)ccdset.prg        19.1 (ESO)02/25/03 14:16:02
 
3
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
4
!.COPYRIGHT   (C) 1993 European Southern Observatory
 
5
!.IDENT       ccdset.prg
 
6
!.AUTHOR      Rein H. Warmels,  ESO - Garching
 
7
!.KEYWORDS    Session, Manager, Set
 
8
!.PURPOSE     Command SET/CCD  PAR=VALUE ... 
 
9
!.VERSION     1.0 02-SEP-1991 PB  Creation
 
10
!.VERSION     1.1 16-02-1993  RHW Addiotion for SET/CCD  
 
11
!-------------------------------------------------------
 
12
DEFINE/LOCAL NPAR/I/1/1    {PCOUNT(1)}
 
13
DEFINE/LOCAL LINE/C/1/132  " " ALL
 
14
COPY/KEYW     MID$LINE   LINE
 
15
!
 
16
INQUIRE/SESS {MID$CMND(11:14)} IN_A OUTPUTI
 
17
!
 
18
IF NPAR .LE. 0  THEN
 
19
   WRITE/OUT "*** FATAL: Command SET/CCD requires at least 1 argument"
 
20
   RETURN/EXIT
 
21
ENDIF
 
22
!
 
23
INPUTI(1) = NPAR
 
24
RUN APP_EXE:keyset
 
25
!
 
26
SET/FORMAT I1
 
27
DEFINE/LOCAL N/I/1/1 0
 
28
DO N = 1 {PCOUNT}
 
29
   IF P{N} .EQ. "IL_TYP" THEN
 
30
      IL_TYP = "{SK_TYP}"
 
31
   ENDIF
 
32
ENDDO
 
33
RETURN
 
34
 
 
35
 
 
36
 
 
37
 
 
38
 
 
39
 
 
40
 
 
41
 
 
42