4      SUBROUTINE GET_STREC2 (I,NNN, STARTREC,NUMREC)MC_TITLE  GET_STREC1  Translate starting addresses for the IRR Data, (optical)C_ARGUMENTS0	INTEGER I		![I] Index for Viking 1 or Viking 2.$	INTEGER NNN		![I] The chunk number..	INTEGER*4 STARTREC	![O] Start record of data.0	INTEGER NUMREC		![O] Number of records in data.
C_DESCRIPTIONOC    The subroutine GETSREC1.FOR translates starting addresses for the Viking 2KC    data residing on the RTI-2000 optical disk.  It is a look-up table to JC    translate the starting records in the chunk directory to the correct KC    address on the optical disk. This routine fetches the addresses of theC    MAWD data.	'C_HISTORY  86Oct21  R.Gurule  FlagstaffC_END/      IF(I.EQ.1)THEN                  !VIKING 1       STARTREC = 0       NUMREC = 27075)      ELSE IF(I.EQ.2)THEN	      !VIKING 2       STARTREC = 27075       NUMREC = 17700      ENDIF      RETURN      END      