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