← Back to branch summary

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

« back to all changes in this revision

Viewing changes to stdred/spec/proc/plotcali.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/spec/proc/plotcali.prg
 
1
! @(#)plotcali.prg      19.1 (ES0-DMD) 02/25/03 14:29:19
 
2
! +++++++++++++++++++++++++++++++++++++++++++++++++
 
3
!
 
4
! .IDENTIFICATION
 
5
!
 
6
! ECHELLE PROCEDURE : PLOTCALI.PRG
 
7
! J.D.Ponz                      version 1.0 131083
 
8
!
 
9
! .PURPOSE
 
10
!
 
11
! execute the commands :
 
12
! PLOT/CALI  [line]
 
13
! PLOT/RESI  [line]
 
14
! -------------------------------------------------
 
15
DEFINE/PARAM P1 line TABLE
 
16
!
 
17
DEFINE/LOCAL QUALIF/C/1/8  {MID$CMND(11:18)}
 
18
DEFINE/LOCAL SAVE/I/1/3 0,0,0
 
19
!
 
20
SAVE(1) = PLISTAT(2)
 
21
SAVE(2) = PLISTAT(3)
 
22
SAVE(3) = PLISTAT(4)
 
23
SET/GRAPH STYPE=5 SSIZE=2
 
24
IF QUALIF(1:1) .EQ. "C" THEN
 
25
   PLOT/TABLE   'P1' :WAVEC :DELTAC
 
26
   SET/GRAPH STYPE=0 LTYPE=1
 
27
   OVERPLOT/TABLE 'P1' :WAVEC :DELTA  -1
 
28
ELSE
 
29
   PLOT/TABLE   'P1' :WAVEC :RESIDUAL
 
30
ENDIF
 
31
PLISTAT(2) = SAVE(1)
 
32
PLISTAT(3) = SAVE(2)
 
33
PLISTAT(4) = SAVE(3)