Документ взят из кэша поисковой машины. Адрес оригинального документа : http://www.atnf.csiro.au/computing/software/gipsy/sub/irpl_snip.dc2 Дата изменения: Thu Jan 23 17:11:32 1992 Дата индексирования: Fri Jan 16 21:53:19 2009 Кодировка:

Subroutine: IRPL_SNIP

Purpose: snip a customplate out of plate system tapes

File: irpl_snip.shl

Author: Do Kester

Person resp.: Do Kester

Address: guspace!do or rugfx4!do (uucp)

Use: subroutine irpl_snip(
irds, I character*(*)
size I doubleprecision(2)
coor, I integer
platenrs, I integer(nplates)
nplates ) I integer

irds the data structure containing the custom plate
size of the irds to build
coor coordinate system of the plate
platenrs platenumbers overlapping the customplate
nplates number of overlapping plates

Description:









Externals:

Updates: 900918 DK code
make scratch IRDS name and determine maximum length for this IRDS
loop over all plates
obtain a tape name instrument and plate
tapename = IRT_PL2TAPE( instrument, plate,
# firstf, lastf, ierr )
have the tape mounted
open the tape unit with the plate tape mounted
create a scratch IRDS; delete it first, just in case
snip the plate into a scratch IRDS
merge the two IRDS's
close the tapeunit
delete the scratch IRDS