← Back to branch summary

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

« back to all changes in this revision

Viewing changes to stdred/irac2/proc/irac_last.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/irac2/proc/irac_last.prg
 
1
! @(#)irac_last.prg     19.1 (ES0-DMD) 02/25/03 14:22:55
 
2
! @(#)irac_last.prg     19.1 (ESO-Chile) 02/25/03 14:22:55
 
3
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
4
!.COPYRIGHT   (C) 1995 European Southern Observatory
 
5
!.IDENT       irac_last.prg
 
6
!.AUTHOR      C. Lidman,  ESO-Chile
 
7
!.KEYWORDS    IRAC package
 
8
!.PURPOSE     Lists the last n entries of the catalogue
 
9
!.NOTE        Requires the catalog data.cat
 
10
!.VERSION     950729 C. Lidman Creation
 
11
!             951010 CEL Added cross referencing
 
12
!-------------------------------------------------------
 
13
crossref num
 
14
 
 
15
define/par p1 10 N "Enter the number of files to be listed" 0,10000
 
16
 
 
17
define/loc sss/i/1/2 1,1
 
18
!
 
19
log(4) = 2
 
20
show/icat data
 
21
log(4) = 0
 
22
!
 
23
sss(2) = outputi(2)
 
24
sss(1) = {sss(2)}-{p1}+1
 
25
if 'sss(1)' .le. 0 then 
 
26
   sss(1) = 1
 
27
endif
 
28
read/icat data 'sss(1)',{sss(2)}