/usr/lib/eso-midas/17FEB/test/fits/glueFITS.prg is in eso-midas-testdata 17.02pl1.2-2build1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 | ! @(#)glueFITS.prg 19.1 (ESO-DMD) 02/25/03 14:32:38
! ++++++++++++++++++++++++++++++++++++
!
! procedure glueFITS.prg creates a FITS file with many extensions
! from the usual FITS test files we already have
!
! K. Banse ESO - DMD 020627
!
! ++++++++++++++++++++++++++++++++++++
!
define/param p1 0 n "Enter Alpha_flag:"
!
indisk/mfits tst0001.mt a
indisk/mfits tst0002.mt b
indisk/mfits tst0003.mt c
indisk/mfits tst0004.mt d
indisk/mfits tst0005.mt e
indisk/mfits tst0006.mt f
if {p1} .eq. 0 then
indisk/mfits tst0007.mt g
indisk/mfits tst0008.mt h
else
indisk/mfits tst0006.mt g !tst0007/8.mt give trouble on Alpha
indisk/mfits tst0006.mt h
endif
indisk/mfits tst0011.mt tt
!
outdisk/sfits tt0000.bdf,tt0001.bdf,tt0002.tbl,a0001.bdf,b0001.bdf,c0001.bdf,d0001.bdf,tt0000.bdf,e0001.bdf,f0001.bdf,g0001.bdf,h0001.bdf tst99.mt
!
if aux_mode(1) .eq. 1 then !VMS
$copy tst0011.mt tst0020.mt
$append tst99.mt tst0020.mt
else
$cat tst0011.mt tst99.mt > tst0020.mt
endif
!
write/out
write/out > info/frame tst0020.mt ext
info/frame tst0020.mt ext
|