Skip to main content

Browse the archive

https://github.com/virtualagc/virtualagc
05 April 2024, 22:44:17 UTC
Revision 6bb1acc86dbd6cba99b27c9c45a56d94af23d501 authored by Ron Burkey on 04 August 2022, 23:36:51 UTC, committed by Ron Burkey on 04 August 2022, 23:36:51 UTC 
Added a debugging line to the 'simulate' shell script created by the
 
VirtualAGC GUI program.
1 parent 766454b
Raw File
Tip revision: 6bb1acc86dbd6cba99b27c9c45a56d94af23d501 authored by Ron Burkey on 04 August 2022, 23:36:51 UTC
Added a debugging line to the 'simulate' shell script created by the
Tip revision: 6bb1acc
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)
back to top