← Back to branch summary

~ubuntu-branches/ubuntu/wily/eso-midas/wily-proposed

« back to all changes in this revision

Viewing changes to prim/proc/t2copytbl.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:
prim/proc/t2copytbl.prg
 
1
! +++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
2
!
 
3
! .IDENTIFICATION
 
4
!
 
5
!  MIDAS Command : t2copytbl.prg
 
6
!  TABLE Subsystem
 
7
!  J.D.Ponz                ESO - Garching    5 APR 89
 
8
!  901108 KB:   WRITE/KEYW HISTORY stuff...
 
9
!  930204 MP: call C routines
 
10
! .PURPOSE
 
11
!
 
12
!    implements
 
13
!
 
14
!  COPY/TI  table image [column_label]
 
15
!  COPY/IT  image table [column_label]
 
16
!
 
17
! 080407        last modif
 
18
! 
 
19
! ----------------------------------------------------------------------
 
20
!
 
21
if mid$cmnd(11:11) .eq. "T" then
 
22
   define/param p1 ? TAB  "Input table:"
 
23
   define/param p2 ? IMA  "Output image:"
 
24
   define/param p3 + CHAR
 
25
   write/keyw mid$cmnd/c/1/4 "coti"
 
26
 
 
27
else
 
28
   define/param p1 ? IMA  "Input image:"
 
29
   define/param p2 ? TAB  "Output table:"
 
30
   define/param p3 + CHAR
 
31
   write/keyw mid$cmnd/c/1/4 "coit"
 
32
ENDIF
 
33
!
 
34
write/keyw in_a {p1}
 
35
write/keyw out_a {p2}
 
36
write/keyw inputc {p3}
 
37
write/keyw history "{mid$cmnd(1:4)}/{mid$cmnd(11:14)} "
 
38
!
 
39
write/keyw action/c/1/1  {mid$cmnd(11:11)}
 
40
!
 
41
run MID_EXE:tdatatbl