2      SUBROUTINE XXGMUL (IB,ISTART,NSECT,IA,LS,IR)@C_TITLE  XXGMUL Get multiple contiguous sectors of XG-type file.C_ARGUMENTS+	INTEGER*2 IB(1)  ![I]  File control block.9	INTEGER ISTART   ![I]  Absolute first sector to be read.5	INTEGER NSECT    ![I]  Number of sectors to be read.;	INTEGER*2 IA(1)  ![O]  Array into which data will be read.1	INTEGER LS	 ![I]  Sector size (INTEGER*2 words).'	INTEGER IR	 ![I]  Returns status code.OC IB is File Control Block (FCB) file must have been previously opened by XXGP.3C   ISTART is the absolute first sector to be read..C   NSECT is the number of sectors to be read.5C   IA is the array into which the data will be read.C   LS is the sector size.?C   IR is a return code, if IR equal to 0 then a normal return.3C   IR greater than 0 then a system error occured. EC_DESCRIPTION  The module XXGMUL will get multiple contiguous sectorsDC of an XG-type file by making multiple calls to XXGP with mode = 1.
C_CALLS  XXGP$C_HISTORY  82Sept10  R.Mehlman  UCLAC_END'      DATA IBRDS,IBRDN,LENTRY /37,38,6/      ISECT=ISTART	      I=1 !-----Fetch NSECT worth of data.      DO 20 K=1,NSECT)        CALL XXGP(1,IB,-1,ISECT,IA(I),IR)        IF (IR.NE.0) GO TO 80        I=I+LS 20     ISECT=ISECT+1 80   RETURN	      END