← Back to branch summary

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

« back to all changes in this revision

Viewing changes to contrib/iue/proc/mxloplot.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:
contrib/iue/proc/mxloplot.prg
 
1
!.IDENTIFICATION
 
2
!       PROCEDURE mxloplot.prg
 
3
!.PURPOSE
 
4
!       Plot a IUEFA low dispersion spectrum  
 
5
!.SYNTAX
 
6
!       PLOT/MXLO spectrum [flag] [spectrum]
 
7
!
 
8
DEFINE/PAR  P1 ?    TABLE "Enter input table: "
 
9
DEFINE/PAR  P2 F    CHAR  "Flag: (F/G/N) "  
 
10
DEFINE/PAR  P3 NULL CHAR  "Printer device: "
 
11
!
 
12
!
 
13
BRANCH P2(1:1)  F,G,N  FLUX,GROSS,NET
 
14
RETURN
 
15
!
 
16
FLUX:
 
17
!                                          Plot FLUX and SIGMA
 
18
SET/GRAP    STYPE=0 PMODE=1 LTYPE=1
 
19
SET/GRAP    YFORMAT=E
 
20
SELECT/TAB 'P1' ALL
 
21
PLOT/TAB   'P1' #1 :FLUX
 
22
SELECT/TAB 'P1' :SIGMA.GE.0.
 
23
SET/GRAP    LTYPE=2
 
24
OVER/TAB   'P1' #1 :SIGMA
 
25
SELECT/TAB 'P1' ALL
 
26
IF P3(1:4) .NE. "NULL" COPY/GRAP 'P3'
 
27
RETURN
 
28
!
 
29
GROSS:
 
30
!                                           Plot GROSS, NU-FLAG and BACKGROUND
 
31
SET/GRAP    LTYPE=1 STYPE=0  
 
32
COMP/TABLE 'P1' :GROSS = :NET+:BACKGROUND
 
33
NAME/COL   'P1' :GROSS "FN"
 
34
PLOT/TAB   'P1' #1 :GROSS
 
35
SET/GRAP    LTYPE=2
 
36
OVER/TAB   'P1' #1 :BACKGROUND
 
37
SELECT/TAB 'P1' :QUALITY.LT.0
 
38
SET/GRAP    STYPE=5
 
39
OVER/TAB   'P1' #1 :GROSS
 
40
SELECT/TAB 'P1' ALL
 
41
SET/GRAP    LTYPE=1 STYPE=0  
 
42
IF P3(1:4) .NE. "NULL" COPY/GRAP 'P3'
 
43
RETURN
 
44
!
 
45
NET:
 
46
!                                          Plot NET and QUALITY
 
47
SET/GRAP   STYPE=0 LTYPE=1 YFORMAT=AUTO
 
48
PLOT/TAB   'P1' #1 :NET
 
49
!SELECT/TAB 'P1' :QUALITY.LT.-1
 
50
SELECT/TAB 'P1' :QUALITY.LT.0
 
51
SET/GRAP    STYPE=5
 
52
OVER/TAB   'P1' #1 :NET 
 
53
SELECT/TAB 'P1' ALL
 
54
IF P3(1:4) .NE. "NULL" COPY/GRAP 'P3'
 
55
RETURN