Create Spacecraft aSpacecraft

% Ephem file span is 4/20/2015 - 4/30/2015

aSpacecraft.EphemerisName = '../ephems/sat_leo.ephem';
aSpacecraft.DateFormat    = UTCGregorian;
aSpacecraft.Epoch         = '22 Apr 2015 00:00:00.000';


Create Propagator Code500Prop

Code500Prop.Type       = 'Code500'
Code500Prop.StepSize   = 60.
% Code500Prop.StartEpoch = 'FromSpacecraft'
Code500Prop.EpochFormat = UTCGregorian
Code500Prop.StartEpoch = '23 Apr 2015 00:00:00.000';

%
%   Output report.
%

Create ReportFile PropReport

PropReport.Filename     = 'EphemPropagator_Code500_ForwardProp.txt';
PropReport.WriteHeaders = True;

%
%	Miscellaneous variables.
%

Create String initialEpoch finalEpoch;
Create Array initialState[6,1] finalState[6,1];

%
%   Mission Sequence
%

BeginMissionSequence

While aSpacecraft.ElapsedDays <= 1

	Propagate Code500Prop(aSpacecraft);

   Report PropReport aSpacecraft.UTCGregorian aSpacecraft.TAIModJulian ...
        aSpacecraft.X aSpacecraft.Y aSpacecraft.Z ...
        aSpacecraft.VX aSpacecraft.VY aSpacecraft.VZ;
		
EndWhile