C     COPYRIGHT       NONE.  THIS CODE IS IN THE PUBLIC DOMAIN.
C     FILENAME        GEMINICATCHUPANDRENDEZVOUSPROGRAM/IDS.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                     IVIDS 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 174 OF THE REPORT 
      SUBROUTINE IVIDS(CDVXS,CDVXB,CDVXZ,CDVYS,CDVYB,CDVYZ,CDVZS,CDVZB,
     1CDVZZ,LDI22,LC1J,LDO12,LDO13,CDV,CDVXSP,CDVYSP,CDVZSP)
326   CDVXS=CDVXB-CDVXZ
      CDVYS=CDVYB-CDVYZ
      CDVZS=CDVZB-CDVZZ
327   IF (LDI22) 344,328,344
328   IF (LC1J) 336,334,330
330   LC1J=-4095
331   LDO12=4095
      LDO13=4095
332   IF (CDVZS) 11,13,12
11    CDVZS=CDVZS-.5
      GO TO 13
12    CDVZS=CDVZS+.5
13    CDV   = INTF(CDVZS)
      CDVZSP=CDVZSP+CDV
333   CDVZZ=CDVZZ+CDV
      GO TO 344
334   LC1J=4095
335   LDO12=0
      LDO13=4095
339   IF (CDVYS) 14,16,15
14    CDVYS=CDVYS-.5
      GO TO 16
15    CDVYS=CDVYS+.5
16    CDV   = INTF(CDVYS)
      CDVYSP=CDVYSP+CDV
340   CDVYZ=CDVYZ+CDV
      GO TO 344
336   LC1J=0
337   LDO12=4095
      LD013=0
341   IF (CDVXS) 17,19,18
17    CDVXS=CDVXS-.5
      GO TO 19
18    CDVXS=CDVXS+.5
19    CDV   = INTF(CDVXS)
      CDVXSP=CDVXSP+CDV
342   CDVXZ=CDVXZ+CDV
344   RETURN
      END(1,1,0,0,0,0,1,1,0,0,0,0,0,0,0)
