4      SUBROUTINE GET_STREC1 (I,NNN, STARTREC,NUMREC)QC_TITLE  GET_STREC1  Translate starting addresses for Viking MAWD (optical disk.)C_ARGUMENTS3	INTEGER*4 I		! [In] Index for Viking 1 or Viking 2'	INTEGER*4 NNN		! [In] The chunk number0	INTEGER*4 STARTREC	! [Out] Start record of data3	INTEGER*4 NUMREC	! [Out] Number of records in data
C_DESCRIPTIONNC    The subroutine GETSREC1.FOR translates starting addresses for the Viking PC    MAWD 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 HC    address on the optical disk. This routine fetches the addresses of C    MAWD data.	'C_HISTORY  86Oct21  R.Gurule  FlagstaffC_END1      INTEGER*4 START(5),START2(2),NUM(5),NUM2(2)0      DATA START/0, 31550, 63950, 95850, 115000/       DATA START2/117300,140875/,      DATA NUM/31550,32400,31900,19150,2300/      DATA NUM2/23575,26600/1      IF(I.EQ.1)THEN                    !VIKING 1       STARTREC = START(NNN)       NUMREC = NUM(NNN)      ELSE IF(I.EQ.2)THEN1       STARTREC = START2(NNN)           !VIKING 2       NUMREC = NUM2(NNN)
      ELSE  900 CONTINUE      ENDIF      CONTINUE      RETURN      END      