Merge pull request #47 from Space-Systems/dla/small-fixes

Small fixes in Neptune
Space-Systems · Jul 4, 2024 · 2613e61 · 2613e61
2 parents e079756 + 8cb67e5
commit 2613e61
Show file tree

Hide file tree

Showing 5 changed files with 17,234 additions and 15,469 deletions.
diff --git a/src/rdinp.f90 b/src/rdinp.f90
@@ -974,6 +974,7 @@ subroutine rdinp(                &
 
   !** finally set initial state and covariance in NEPTUNE input module
   !--------------------------------------------------------------------
+  state%epoch = epoch(1)
   if(input_type == INPUT_OSCULATING) then
     ierr =  neptune%setNeptuneVar("INITIAL_STATE", oscKep)
   else