← Back to branch summary

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

« back to all changes in this revision

Viewing changes to contrib/lyman/proc/fitdir.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/lyman/proc/fitdir.prg
 
1
! @(#)fitdir.prg        19.1 (ES0-DMD) 02/25/03 13:27:54
 
2
! @(#)fitdir.prg 7.1 (ESO-IPG) 2/24/94 20:30:26
 
3
 
 
4
!write/out "FIT/DIRECT [spec] [outtab] [history] [session] [grap(Y/N)]"
 
5
 
 
6
define/parameter P1 NULL T/C 
 
7
define/parameter P2 NULL T/C
 
8
define/parameter P3 NULL T/C
 
9
define/parameter P4 NULL T/C
 
10
define/parameter P5 A I
 
11
 
 
12
write/key SPECTAB {P1}
 
13
write/key OUTTAB {P2}
 
14
write/key HISTAB {P3}
 
15
write/key SESSNAM {P4}
 
16
write/key GRAWIN -1
 
17
if P5 .eq. "Y" .or. P5 .eq. "y" then
 
18
        write/key GRAWIN 1
 
19
endif
 
20
if P5 .eq. "N" .or. P5 .eq. "n" then
 
21
        write/key GRAWIN 0
 
22
endif
 
23
 
 
24
run CON_EXE:fitdirect.exe
 
25