3      SUBROUTINE GET_STREC (I,NNN, STARTREC,NUMREC)vC_TITLE  GET_STREC  Look up table to translate the starting records in the chunk directories to the appropriate valuesC_ARGUMENTS3	INTEGER I	    ![I] Index for Viking 1 or Viking 2.'	INTEGER NNN	    ![I] The chunk number.3	INTEGER*4 STARTREC  ![O] Start record of the data.8	INTEGER NUMREC      ![O] Number of records in the data.KC_DESCRIPTION  Look up table to translate the starting records in the chunkIC directories to the appropriate values for the optical disk; fetches theDC addresses and length of IRTM records on the RTI-2000 optical disk.'C_HISTORY  86Oct21  R.Gurule  FlagstaffC_END5      INTEGER*4 START(66),START2(36),NUM(66),NUM2(36)6C                   1     2     3      4      5      6@      DATA START/0, 31400, 62825, 93450, 119375, 151175, 189175,@     1           220350, 250325, 360775, 390400, 420000, 532300,@     2           563325, 594100, 624625, 655475, 714150, 741450,L     3           772175, 892600, 924475, 954800, 1078775, 1108200,  !#TS1024J     4           1140025, 1171325, 1266000, 1297300, 1328775,     !#TS1029J     5           1358000, 1451700, 1483375, 1494475, 1524050,     !#TS1034J     6           1630875, 1661500, 1689075, 1721000, 1814175,     !#TS1039J     7           1844975, 1856800, 1885100, 1915675, 1948175,     !#TS1044J     8           1995350, 2026675, 2056825, 2085650, 2117400,     !#TS1049=     9 	         2173875, 2179150, 2206650, 2226875, 2236550,=     1           2265025, 2296075, 2328300, 2358700, 2390075,=     1           2422125, 2452500, 2483900, 2496425, 2527325,     1           2559550/A      DATA START2/165000, 183650, 259175, 288600, 318550, 348950,A     1            422675, 453400, 484025, 513900, 668475, 698425,B     2            792850, 823225, 849275, 853375, 884675, 974975, E     3           1005450, 1035275, 1067100, 1183600, 1213675,1216700,>     4            1246425, 1381725, 1413050, 1444450, 1553675,>     5            1582075, 1613875, 1743000, 1774225, 1805575,#     6            1978925, 2145575/?      DATA NUM/31400,31425,30625,25925,31800,13825,31175,29975,@     1            8850,29625,29600,2675,31025,30775,30525,30850,B     2            13000,27300,30725,20675,31875,30325,20175,29425,:     3		  31825,31300,12275,31300,31475,29225,23725,31675,;     4 		  11100,29575,29625,30625,27575,31925,22000,30800,B     5            11825,28300,30575,32500,30750,31325,30150,28825,;     6   	  31750,28175,5275,27500,20225,9675, 28475,31050,B     7            32225,30400,31375,32050,30375,31400,12525,30900,     8            32225,7500/HC____&___1_________2_________3_________4_________5_________6_________.72E      DATA NUM2/18650,5525,29425,29950,30400,11825,30725,30625,29875,9     1  	  18400,29950,15725,30375,26050,4100,31300,7925,9     2		  30475,29825,31825,11675,30075,3025,29725,19575,9     3		  31325,31400,7250,28400,31800,17000,31225,31350,     5		  8600,16425,28300/      IF(I.EQ.1)THEN        STARTREC = START(NNN)       NUMREC = NUM(NNN)      ELSE IF(I.EQ.2)THEN       STARTREC = START2(NNN)       NUMREC = NUM2(NNN)
      ELSE  900 CONTINUE      ENDIF      CONTINUE      RETURN      END      