proof(luminary099): page 1164

Luminary099/CONIC_SUBROUTINES.agc

@@ -218,34 +218,37 @@
 #	GEOMSGN		* NONE	       *	SP +.5 IF DESIRED TRANSFER ANGLE IS LESS THAN 180 DEGREES, -.5 IF GREATER THAN 180 DEG.
 #	GUESSW		* NONE	       *	AN INTERPRETER SWITCH TO BE SET IF NO GUESS OF COGA IS AVAILABLE, CLEAR IF A GUESS OF
 # Page 1164
-#			*		*		COGA IS TO BE USED BY LAMBERT
-#	COGA		* +5		*	DP GUESS OF COTANGENT OF FLIGHT PATH ANGLE (MEASURED FROM VERTICAL).  THIS WILL BE
+#			*		*	COGA IS TO BE USED BY LAMBERT
+#	COGA		* +5		*	DP GUESS OF COTANGNT OF FLIGHT PATH ANGLE (MEASURED FROM VERTICAL).  THIS WILL BE
 #			*		*	IGNORED IF GUESSW IS SET.
 #	NORMSW		* NONE		*	AN INTERPRETER SWITCH TO BE SET IF UN IS TO BE AN INPUT TO THE SUBROUTINE, CLEAR IF
-#			*		*		LAMBERT IS TO COMPUTE ITS OWN NORMAL (UN).
-#	UN		* +1		*	DP UNIT NORMAL TO THE DESIRED ORBIT PLANE IN THE DIRECTION OF THE RESULTING ANGULAR
-#			*		*		MOMENTUM VECTOR.  THIS WILL BE IGNORED IF NORMSW IS CLEAR.
+#			*		*	LAMBERT IS TO COMPUTE ITS OWN NORMAL (UN).
+#	UN		* +1		*	DP UNIT  NORMAL TO THE DESIRED ORBIT PLANE IN THE DIRECTION OF THE RESULTING ANGULAR
+#			*		*	MOMENTUM VECTOR.  THIS WILL BE IGNORED IF NORMSW IS CLEAR.
 #	VTARGTAG	* NONE		*	A S.P. TAG TO BE SET TO ZERO IF LAMBERT IS TO COMPUTE THE VELOCITY AT R2VEC AS WELL AS
-#			*		*		AT R1VEC.
+#			*		*	AT R1VEC.
 #	ITERCTR		* NONE		*	A S.P. COUNTER WHICH SPECIFIES THE MAXIMUM NUMBER OF ITERATIONS ALLOWABLE.
-#			*		*		(AN ITERATION MEANS A PASS THRU KEPLER EQN (DELTIME). AT LEAST ONE OF THESE MUST
-#			*		*		ALWAYS OCCUR, EVEN IF COGA CORRESPONDING TO SOLUTION WERE INPUT AS A GUESS.)
-#			*		*		TWENTY ITERATIONS ARE SUFFICIENT TO SOLVE ALL PROBLEMS INCLUDING THOSE WITHOUT GUESS.
+#			*		*	(AN ITERATION MEANS A PASS THRU KEPLER EQN (DELTIME). AT LEAST ONE OF THESE MUST
+#			*		*	ALWAYS OCCUR, EVEN IF COGA CORRESPONDING TO SOLUTION WERE INPUT AS A GUESS.)
+#			*		*	TWENTY ITERATIONS ARE SUFFICIENT TO SOLVE ALL PROBLEMS INCLUDING THOSE WITHOUT GUESS.
+#
 #
 # SUBROUTINES CALLED -
 #	GEOM, GETX, DELTIME, ITERATOR, LAMENTER (PART OF NEWSTATE)
 #
+#
 # CALLING SEQUENCE AND NORMAL EXIT MODES -
+#
 #	L 	CALL			# MUST BE IN INTERPRETIVE MODE BUT OVFIND ARBITRARY.
 #	L+1		LAMBERT		# RETURNS WITH PL AT 0 AND WITH VVEC IN MPAC IF VTARGTAG WAS WAS NON-ZERO OR VTARGET
 #					# IN MPAC IF VTARGTAG WAS ZERO
 #	L+2	BON			# CONTINUE IF SOLNSW CLEAR SINCE SOLUTION IS ACCEPTABLE
 #	L+3		SOLNSW
 #	L+4		LAMABORT
-#
 #	IF A LAMBERT RESULT IS TO BE A FIRST GUESS FOR THE NEXT LAMBERT CALCULATION, COGA MUST BE PRESERVED AND
 # GUESSW MUST BE CLEAR FOR EACH SUCCEEDING LAMBERT CALL.
 #
+#
 # ABORT EXIT MODES -
 #	IF SOLNSW WAS SET UPON EXITING, EITHER LAMBERT WAS ASKED TO COMPUTE A TRANSFER TOO NEAR 0 OR 360 DEG, OR T
 # WAS TOO SMALL TO PRODUCE A REALISTIC TRANSFER BETWEEN R1VEC AND R2VEC.  IN EITHER CASE THE FIX MUST BE MADE