swh:1:snp:92f3f585b9ae79620ad8c41a332d6329b31fd381
Tip revision: 391bbc7b68686318ecd16acb71d520614176e602 authored by Mike Stewart on 02 October 2019, 05:15:17 UTC
Retread 50: Completed disassembly of new extended verbs
Retread 50: Completed disassembly of new extended verbs
Tip revision: 391bbc7
ALIGNP.f
C COPYRIGHT NONE. THIS CODE IS IN THE PUBLIC DOMAIN.
C FILENAME GEMINICATCHUPANDRENDEZVOUSPROGRAM/ALIGNP.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 ALIGNP 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 137 OF THE REPORT
SUBROUTINE ALIGNP(CFX,CFY,CFZ,FXP,FYP,FZP,AKX1,AKX2,AKX3,AKX4,AKY1
1,AKY2,AKY3,AKY4,AKZ1,AKZ2,AKZ3,AKZ4,DTSC)
FXP= FXP -DTSC*AKX4
FYP= FYP -DTSC*AKY4
FZP= FZP -DTSC*AKZ4
CFX = AKX1*FXP + AKX2*FYP + AKX3* FZP
CFY = AKY1*FXP + AKY2*FYP + AKY3*FZP
CFZ = AKZ1*FXP + AKZ2*FYP + AKZ3*FZP
FXP=0.
FYP=0.
FZP=0.
RETURN
END(1,1,0,0,0,0,1,1,0,0,0,0,0,0,0)