diff --git a/Luminary099/CONIC_SUBROUTINES.agc b/Luminary099/CONIC_SUBROUTINES.agc index 82c2049..b689e39 100644 --- a/Luminary099/CONIC_SUBROUTINES.agc +++ b/Luminary099/CONIC_SUBROUTINES.agc @@ -1787,7 +1787,7 @@ KEPC2 EQUALS 36D # GEOMSGN ERASE +0 # GUESSW # 0 IF COGA GUESS AVAILABLE, 1 IF NOT # Page 1203 -# COGA ERASE +1 # INPUT ONLY IF GUESS IS ZERO. +# COGA ERASE +1 # INPUT ONLY IF GUESSW IS ZERO. # NORMSW # 0 IF UN TO BE COMPUTED, 1 IF UN INPUT # UN ERASE +5 # ONLY USED IF NORMSW IS 1 # VTARGTAG ERASE +0 @@ -1825,8 +1825,8 @@ DCOGA EQUALS 12D # KEPC2 EQUALS 36D # SLOPESW # SOLNSW - # OTHERS - +# # RVEC EQUALS R1VEC # VVEC ERASE +5 # COGAFLAG