← Back to branch summary

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

« back to all changes in this revision

Viewing changes to prim/proc/pipeline/copyload.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/pipeline/copyload.prg
 
1
! @(#)copyload.prg      19.1 (ESO-DMD) 02/25/03 14:10:52 
 
2
! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
3
!
 
4
! MIDAS procedure copyload.prg  to first copy from RBS-Midas workspace to
 
5
!                               display-Midas workspace
 
6
!                               and then use pipeload.prg
 
7
! K. Banse      990115
 
8
! execute via 
 
9
! @ copyload frame chanl xscal,yscal[,A] xc,yc cut_lo,cut_hi direcs fixpoint
 
10
!
 
11
! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
12
!
 
13
crossref FRAME CHANL SCALE CENTER CUTS DIRS FIX
 
14
! 
 
15
$pwd | write/keyw inputc               !get current directory
 
16
inputi = m$len(inputc)
 
17
if inputi .gt. 10 then
 
18
   inputi = inputi-4
 
19
   if inputc({inputi}:) .eq. "_disp" then       !o.k. in the right directory
 
20
      $rm -f *
 
21
      -copy ../{direc2}/{p1} {p1}
 
22
      ! 
 
23
      @d pipeload {p1} {p2} {p3} {p4} {p5} {p6} {p7} 
 
24
      return
 
25
   endif
 
26
endif
 
27
! 
 
28
write/out "current dir:" {inputc}
 
29
write/out "we are NOT in the display-Midas directory..."
 
30
write/out command LOAD/IMAGE not executed!