Revision 4e5d304eb7cd5589b924ffb8b423b6f15511b35d authored by Ron Burkey on 20 October 2018, 17:47:00 UTC, committed by Ron Burkey on 20 October 2018, 17:47:00 UTC
the recently-added documents about YUL, was transcribed. Because the original program contained a deliberate error in YUL (as well as some constructs that have unintentionally become errors in yaYUL), I've provided it in two forms: TRIVIUM (which matches the original scan, to the extent feasible) and TRIVIUM-repaired (which has the deliberate and unintentional errors fixed, but otherwise retains the identical functionality of the original).
1 parent c6c292e
GEXEC.f
C COPYRIGHT NONE. THIS CODE IS IN THE PUBLIC DOMAIN.
C FILENAME GEMINICATCHUPANDRENDEZVOUSPROGRAM/GEXEC.F
C PURPOSE THIS IS PART OF THE ORIGINAL 1965 SIMULATION
C PROGRAM FOR THE GEMINI 7/6 MISSION
C CATCH-UP AND RENDEZVOUS FLIGHT PHASES.
C THIS PARTICULAR FILE CONTAINS ONLY THE
C GEXEC SUBROUTINE (EXECUTOR FOR MATH FLOW
C 7 RENDEZVOUS DYNAMIC SIMULATION).
C WEBSITE WWW.IBIBLIO.ORG/APOLLO
C HISTORY 2010-08-14 RSB BEGAN TRANSCRIBING FROM
C THE SCANNED PDF REPORT.
C
C REFER TO MAIN.F FOR MORE-DETAILED INTRODUCTORY COMMENTS.
C
C FROM PAGE 91 OF THE REPORT
SUBROUTINE GEXEC
DIMENSION CXT(11),CYT(11),CZT(11),CDTWT(11)
COMMON CDVXSP,CDVYSP,CDVZSP,CDPHSC,CDPSSC,CDTHSC,AKX1 ,AKX2 ,
1AKX3 ,AKX4 ,AKYI ,AKY2 ,AKY3 ,AKY4 ,AKZI ,AKZ2 ,AKZ3 ,
2AKZ4 ,ASFX ,ASFY ,ASFZ ,CO ,COI ,C2 ,C2I ,CA11 ,
3CA12 ,CAI3 ,CA21 ,CA22 ,CA23 ,CA31 ,CA32 ,CA33 ,CAPT ,
4CAPTI ,CATXBA,CATXBI,CCAB ,CCABI ,CCAS ,CCAS1 ,CCK1 ,CCK2 ,
5CCK3 ,CCK4 ,CCKS ,CCKF ,CCKG ,CCPHIB,CCPSIB,CCPSIR,CCR ,
6CCRB ,CCRBI ,CCRI ,CCRS ,CCRSI ,CCTHB ,CCTHR ,CCWSTD,CCWTOL,
7CCZT ,CDEL ,CDRRD ,CDTM ,CDTW ,CDTWT ,CDTWX ,CDTX ,CDV ,
8CDVF ,CDVI ,CDVT ,CDVXB ,CDVXM ,CDVXS ,CDVXZ ,CDVYB ,CDVYM ,
9CDVYS ,CDVYZ ,CDVZB ,CDVZM ,CDVZS ,CDVZZ ,CDXD ,CDXFD ,CDYD
COMMON CDYFD ,CDZD ,CDZFD ,CFX ,CFY ,CFZ ,CM1 ,CM3 ,
1CM4 ,CM5 ,CM6 ,CNPC ,CNS ,CNVX ,CNVY ,CNVZ ,CNYC ,
2COEFF ,COINT ,COMGS ,CPHIB ,CPHIBC,CPSBCP,CPSIB ,CPSIBC,CPSIBM,
3CR1 ,CRA ,CRLO ,CRR ,CRRD ,CRRG ,CRRI ,CRRPI ,CRS ,
4CSADPI,CSAPG ,CSAPI ,CSAPR ,CSPHIB,CSPSIB,CSPSIR,CSRDPI,CSRPG ,
5CSRPI ,CSRPR ,CSRT ,CSRTI ,CSTD ,CSTOL ,CSTHB ,CSTHR ,CSTZ ,
6CSWSTD,CSWTDL,CT ,CTD ,CTDAS ,CTDV ,CTHB ,CTHBC ,CTHBCP,
7CTHBM ,CTLRP ,CTM ,CTR1 ,CTRR ,CTTG ,CTW ,CTX ,CUDPHS,
8CUDPSS,CUDTHS,CWSTD ,CWSTDL,CWTTPR,CX ,CXM ,CXRD ,CXSD ,
9CXT ,CXTD ,CXZ ,CY ,CYM ,CYRD ,CYSD ,CYT ,CYTD
COMMON CYZ ,CZ ,CZM ,CZRD ,CZSD ,CZT ,CZTD ,CZZ ,
1DELAY ,DONPRT,DT ,DUM1 ,DUM2 ,DUM3 ,DUM4 ,DUM5 ,DUM6 ,
2DUM7 ,DUM8 ,DUM9 ,DUM10 ,DUM11 ,DUM12 ,DUM13 ,DUM14 ,DUM15 ,
3DUM16 ,DUMI7 ,DUMI8 ,FIN ,FP ,FXP ,FXPP ,FYP ,FYPP ,
4FZP ,FZPP ,GC ,IC ,IEXIT ,IOLP ,IWRITE,K2C ,KC ,
5KWRITE,L ,LC1 ,LC1J ,LC2 ,LC3 ,LC4A ,LC4B ,LC4C ,
6LC4D ,LC4E ,LC4F ,LC4G ,LC5 ,LC7 ,LC8 ,LC10 ,LCA ,
7LCS ,LCY ,LDI00 ,LDI10 ,LDI11 ,LDI13 ,LDI20 ,LDI21 ,LDI22 ,
8LDI25 ,LDI26 ,LDI31 ,LDO01 ,LDO05 ,LDO11 ,LDO12 ,LDO13 ,LDO62 ,
9LDO63 ,LFDI ,LQT ,M ,N ,PHIB ,PINT ,PSIB ,RDGD
COMMON RRDREF,SRAA ,SREA ,SW ,TEST ,TFTXV ,TFTYV ,TFTZV ,
1THETAB,TIME ,TPC ,TRI ,TSC ,TVX ,TVY ,TVZ ,TYC ,
2XGRT ,XGRTD ,XKRDR ,YGRT ,YGRTD ,ZGRT ,ZGRTD
EQUIVALENCE (DELVX,CDVXSP),(DELVY,CDVYSP),(DELVZ,CDVZSP),
1(CDPHSC,DPHIB),(CDPSSC,DPSIB),(CDTHSC,DTHB),(VLIST,CDVXSP)
MUD1=0
IF (MUD1) 2,3,2
3 CALL ENB (INTDD)
IF (LCX) 8,101,8
101 LC4A=0
LC4B=0
LC4C=0
LC4D=0
LC4E=0
LC4G=0
LCY=0
LCX=4095
8 IF (LCY) 105,102,105
102 LDO62=0
LDO05=0
CTDAS=0.
TIMEP=TIME
LCY=4095
C
C FROM PAGE 92 OF THE REPORT
105 CALL GONOGO
CALL DSB
106 CTDAS=TIME-TIMEP
CT=CTDAS
107 IF (LDI20) 108,109,108
108 CALL AGE
109 IF(LDI11)115,110,115
110 IF (LDI10) 113,112,113
112 LC4A=4095
LC4B=0
LC4C=0
LC4D=0
LC4E=0
LC4G=0
LCY=0
GO TO 3
113 IF (LDI13) 7,6,7
6 CALL ASCENT (LC4A,LC4B,LC4C,LC4D,LC4E,LC4G,LCY)
GO TO 3
7 CALL RNDZ
115 IF(LDI10)9,111,9
9 CALL TDPRED (LC4A,LC4B,LC4C,LC4D,LC4E,LC4G,LCY)
GO TO 3
111 IF (LDI13) 5,4,5
4 CALL RNDZ
5 CALL REENT (LC4A,LC4B,LC4C,LC4D,LC4E,LC4G,LCY)
GO TO 3
2 RETURN
END(1,1,0,0,0,0,1,1,0,0,0,0,0,0,0)
Computing file changes ...