https://github.com/virtualagc/virtualagc
Tip revision: 0cfe36be741728e3dac2f15b0f5e7e22f5311301 authored by Ronald Burkey on 05 October 2022, 10:31:13 UTC
Update README.md
Update README.md
Tip revision: 0cfe36b
REENT.f
C COPYRIGHT NONE. THIS CODE IS IN THE PUBLIC DOMAIN.
C FILENAME GEMINICATCHUPANDRENDEZVOUSPROGRAM/REENT.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 REENT SUBROUTINE.
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 135 OF THE REPORT
SUBROUTINE REENT (LC4A,LC4B,LC4C,LC4D,LC4E,LC4G,LCY)
LC4A=0
LC4B=0
LC4C=0
LC4D=0
LC4E=0
LC4G=4095
LCY=0
RETURN
END(1,1,0,0,0,0,1,1,0,0,0,0,0,0,0)