diff --git a/Luminary099/CONIC_SUBROUTINES.agc b/Luminary099/CONIC_SUBROUTINES.agc index 0eeb820..82c2049 100644 --- a/Luminary099/CONIC_SUBROUTINES.agc +++ b/Luminary099/CONIC_SUBROUTINES.agc @@ -1747,17 +1747,16 @@ LDPOSMAX EQUALS LODPMAX # DPPOSMAX IN LOW MEMORY. # RRECT ERASE +5 # VRECT ERASE +5 # TAU. ERASE +1 -# XKEP ERASE +1 +# XKEP NEW ERASE +1 # TC ERASE +1 # XPREV ERASE +1 1/MU EQUALS 14D ROOTMU EQUALS 16D 1/ROOTMU EQUALS 18D - # OUTPUT - # RCV ERASE +5 # VCV ERASE +5 -# RC ERASE +1 +# TC ERASE +1 # XPREV ERASE +1 # DEBRIS - @@ -1786,7 +1785,7 @@ KEPC2 EQUALS 36D # R2VEC ERASE +5 # TDESIRED ERASE +1 # GEOMSGN ERASE +0 -# GUESSW # 0 IF COGA GUESS AVIABLE, 1 IF NOT +# GUESSW # 0 IF COGA GUESS AVAILABLE, 1 IF NOT # Page 1203 # COGA ERASE +1 # INPUT ONLY IF GUESS IS ZERO. # NORMSW # 0 IF UN TO BE COMPUTED, 1 IF UN INPUT