;;;This program determines which orbit and load a given time falls in. 
;;;Input time must be entered in SCLK format
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
A(0:1,I)=[96154.999999,96175.666666];J0CD=NAM(I)
A(0:1,I)=[96175.666666,96182.187499];G1A=NAM(I)
A(0:1,I)=[96261.666666,96245.666660];G1C=NAM(I)
A(0:1,I)=[96245.666660,96281.666661];G2A=NAM(I)
A(0:1,I)=[96281.666661,96307.666666];G2C=NAM(I)
A(0:1,I)=[96307.666666,97066.666667];G3A=NAM(I)
A(0:1,I)=[97066.666667,96332.687500];E6C=NAM(I)
A(0:1,I)=[96332.687500,96349.999999];G3C=NAM(I)
A(0:1,I)=[96349.999999,97034.645833];E4A=NAM(I)
A(0:1,I)=[97034.645833,97047.961806];E4C=NAM(I)
A(0:1,I)=[97047.961806,97054.062500];E6A=NAM(I)
A(0:1,I)=[97054.062500,97066.666667];E6B=NAM(I)
A(0:1,I)=[97066.666667,97089.666668];E6C=NAM(I)
A(0:1,I)=[97089.666668,97096.666667];G7A=NAM(I)
A(0:1,I)=[97096.666667,97124.666667];G7B=NAM(I)
A(0:1,I)=[97124.666667,97131.666667];G8A=NAM(I)
A(0:1,I)=[97131.666667,97173.666667];G8B=NAM(I)
A(0:1,I)=[97173.666667,97180.667370];C9A=NAM(I)
A(0:1,I)=[97180.667370,97209.666655];C9B=NAM(I)
A(0:1,I)=[97209.666655,97256.999984];C9C=NAM(I)
A(0:1,I)=[97256.999984,97263.604150];C10A=NAM(I)
A(0:1,I)=[97263.604150,97306.666650];C10B=NAM(I)
A(0:1,I)=[97306.666650,97313.666651];E11A=NAM(I)
A(0:1,I)=[97313.666651,97349.333317];E11B=NAM(I)
A(0:1,I)=[97349.333317,97351.749984];E12A=NAM(I)
A(0:1,I)=[97351.749984,98040.249984];E12B=NAM(I)
A(0:1,I)=[98040.249984,98087.541650];E12C=NAM(I)
A(0:1,I)=[98087.541650,98090.093734];E14A=NAM(I)
A(0:1,I)=[98090.093734,98150.874984];E14B=NAM(I)
A(0:1,I)=[98150.874984,98153.750196];E15A=NAM(I)
A(0:1,I)=[98153.750196,98201.208694];E15B=NAM(I)
A(0:1,I)=[98201.208694,98203.917026];E16A=NAM(I)
A(0:1,I)=[98203.917026,98268.166602];E16B=NAM(I)
A(0:1,I)=[98268.166602,98271.354293];E17A=NAM(I)
A(0:1,I)=[98271.354293,98325.499708];E17B=NAM(I)
A(0:1,I)=[98325.499708,98327.875285];E18A=NAM(I)
A(0:1,I)=[98327.875285,99031.083192];E18B=NAM(I)
A(0:1,I)=[99031.083192,99034.958576];E19A=NAM(I)
A(0:1,I)=[99034.958576,99122.708330];E19B=NAM(I)
A(0:1,I)=[99122.708330,99125.864193];C20A=NAM(I)
A(0:1,I)=[99125.864193,99180.291244];C20B=NAM(I)
A(0:1,I)=[99180.291244,99182.457908];C21A=NAM(I)
A(0:1,I)=[99182.457908,99223.458656];C21B=NAM(I)
A(0:1,I)=[99223.458656,99226.916409];C22A=NAM(I)
A(0:1,I)=[99226.916409,99256.833443];C22B=NAM(I)
A(0:1,I)=[99256.833443,99260.666389];C23A=NAM(I)
A(0:1,I)=[99260.666389,99283.166375];C23B=NAM(I)
A(0:1,I)=[99283.166375,99285.166760];I24A=NAM(I)
A(0:1,I)=[99285.166760,99321.502579];I24B=NAM(I)
A(0:1,I)=[99321.502579,99331.166925];I25A=NAM(I)
A(0:1,I)=[99331.166925,99365.958571];I25B=NAM(I)

A(25*3)=(0,1)
NAM=STRARR(25,4)
FOR I=(0,25)
	IF (INTIM.GT.A(0,I).AND.INTIM.LT.A(1,I)) THEN GOTO, LOOP
	END
	PRINT,"Sorry, not found"
	RETURN

LOOP:OUT=NAM(I)
	RETURN
	END