kjodle/Apollo-11
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Proofread LATITUDE_LONGITUDE_SUBROUTINES.agc (#736)

Browse Source 
Co-authored-by: James Harris <wopian@wopian.me>
This commit is contained in:
Josh 2020-10-20 11:16:59 -04:00 committed by GitHub
parent f2522c9bb3
commit e4daadc009
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 69 additions and 71 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
Luminary099/LATITUDE_LONGITUDE_SUBROUTINES.agc
View File

@ -29,24 +29,24 @@
# SUBROUTINE TO CONVERT RAD VECTOR AT GIVEN TIME TO LAT,LONG AND ALT
#
# CALLING SEQUENCE
#
# L-1 CALL
# L LAT-LONG
#
# SUBROUTINES USED
# R-TO-RP, ARCTAN, SFTGAMMA, SETRE
#
# R-TO-RP,ARCTAN,SETGAMMA,SETRE
# ERASABLE INIT. REQ.
#
# AXO,-AYO,AZO,TEPHEM (SET AT LAUNCH TIME)
# ALPHAV = POSITION VECTOR METERS B-29
# MPAC-- TIME (CSECS B-28)
# ERADFLAG =1, TO COMPUTE EARTH RADIUS, =0 FOR FIXED EARTH RADIUS
# LUNAFLAG=0 FOR EARTH,1 FOR MOON
#
# OUTPUT
#
# LATITUDE IN LAT (REVS. B-0)
# LONGITUDE IN LONG (REVS. B-0)
# ALTITUDE IN ALT METERS B-29
BANK 30
SETLOC LATLONG
BANK
@ -96,16 +96,16 @@ CALLRTRP CALL
STCALL ALT # EXIT WITH ALT METERS B-29
INCORPEX
# Page 1135
# SUBROUTINE TO CONVERT LAT,LONG.ALT AT GIVEN TIME TO RADIUS VECTOR
#
# SUBROUTINE TO CONVERT LAT,LONG,ALT AT GIVEN TIME TO RADIUS VECTOR
# CALLING SEQUENCE
#
# L-1 CALL
# L LALOTORV
#
# SUBROUTINES USED
# SETGAMMA, SETRE, RP-TO-R
#
# SETGAMMA,SETRE,RP-TO-R
# ERASABLE INIT. REQ.
#
# AXO,AYO,AZO,TEPHEM SET AT LAUNCH TIME
# LAT-- LATITUDE (REVS B0)
# LONG-- LONGITUDE (REVS B0)
@ -113,10 +113,9 @@ CALLRTRP CALL
# MPAC-- TIME (CSECS B-28)
# ERADFLAG =1 TO COMPUTE EARTH RADIUS, =0 FOR FIXED EARTH RADIUS
# LUNAFLAG=0 FOR EARTH,1 FOR MOON
#
# OUTPUT
#
# R-VECTOR IN ALPHAV (METERS B-29)
LALOTORV STQ SETPD # LAT,LONG,ALT TO R VECTOR
INCORPEX
0D
@ -154,13 +153,14 @@ CALLRPRT CALL
VSL1 # R METERS B-29
STCALL ALPHAV # EXIT WITH R IN METERS B-29
INCORPEX
# SUBROUTINE TO COMPUTE EARTH RADIUS
#
# INPUT
#
# 1/2 SIN LAT IN ALPHAV +4
#
# OUTPUT
#
# EARTH RADIUS IN ERADM AND MPAC (METERS B-29)
GETERAD DLOAD DSQ
@ -180,7 +180,6 @@ GETERAD DLOAD DSQ
# B2XSC= B**2 SCALED B-51
# B2/A2= B**2/A**2 SCALED B-1
# EE=(1-B**2/A**2) SCALED B-0
B2XSC 2DEC .0179450689 # B**2 SCALED B-51
DP1/2 = XUNIT
B2/A2 2DEC .9933064884 B-1 # GAMMA= B**2/A**2 B-1
@ -190,6 +189,7 @@ EE 2DEC 6.6935116 E-3 # (1-B**2/A**2) B-0
# ARCTAN SUBROUTINE
#
# CALLING SEQUENCE
#
# SIN THETA IN SINTH B-1
# COS THETA IN COSTH B-1
# CALL ARCTAN
@ -234,7 +234,7 @@ ATAN=90 DLOAD SIGN
2DZERO = DPZERO
# Page 1138
# ***** SETGAMMA SUBROUTINE *****
# ..... SETGAMMA SUBROUTINE .....
# SUBROUTINE TO SET GAMMA FOR THE LAT-LONG AND LALOTORV SUBROUTINES
#
# GAMMA = B**2/A**2 FOR EARTH (B-1)
@ -261,7 +261,7 @@ SETGMEX STORE GAMRP
GAMRP = 8D
# Page 1139
# ***** SETRE SUBROUTINE *****
# .....SETRE SUBROUTINE .....
# SUBROUTINE TO SET RE (EARTH OR MOON RADIUS)
#
# RE= RM FOR MOON
@ -304,5 +304,3 @@ TSTRLSRM BON VLOAD # ERADFLAG=0, SET R0=RLS
GOTO
SETRXX
SETREX = S2