-+-+-+-+-+-+-+-+ START OF PART 3 -+-+-+-+-+-+-+-+ XC LUNAR EPHEMERIDES COMPUTED TO WITHIN 1' (BROWN/I.L.E.) XC XCCCCCCCCC X`09DAY=XJD-2415020.D0+(J-1.D0) X`09XL=.751206D0+DAY*.0366011014634D0 X`09YL=.776935D0+DAY*.0027379092649D0 X`09XP=.928693D0+DAY*.0003094557786D0 X`09YP=.781169D0+DAY*.0000001307457D0 X`09XN=.719954D0-DAY*.0001470942283D0 X`09AL=(XL-IDINT(XL))*PI2 X`09BL=(YL-IDINT(YL))*PI2 X`09AP=(XP-IDINT(XP))*PI2 X`09BP=(YP-IDINT(YP))*PI2 X`09AN=(XN-IDINT(XN))*PI2 X`09U=AL-AP X`09V=BL-BP X`09F=AL-AN X`09D=AL-BL X`09DL=22639*SIN(U)-4586*SIN(U-D-D)+2370*SIN(D+D)+769*SIN(U+U) X`091-668*SIN(V)-412*SIN(F+F)-212*SIN(U+U-D-D)-206*SIN(U+V-D-D) X`092+192*SIN(U+D+D)-165*SIN(V-D-D)+148*SIN(U-V)-125*SIN(D) X`093-110*SIN(U+V)-55*SIN(F+F-D-D)-45*SIN(U+F+F)+40*SIN(U-F-F) X`094-38*SIN(U-4*D)+36*SIN(3*U)-31*SIN(U+U-4*D)+28*SIN(U-V-D-D) X`095-24*SIN(V+D+D)+19*SIN(U-D)+18*SIN(V+D)+15*SIN(U-V+D+D) X`096+14*SIN(4*D)+14*SIN(U+U+D+D)-13*SIN(3*U-D-D) X`09P(J+19,10)=ARG(XL-IDINT(XL)+DL/1296000.+XNUT,1.) X`09P(J+19,11)=ARG(AN/6.28318531,1.) X`09IF(J-1)270,260,270 X260`09P(1,10)=(18461*SIN(F)+1010*SIN(U+F)-1000*SIN(F-U) X`091-624*SIN(F-2*D)-167*SIN(U+F-D-D)+199*SIN(F-U+D+D) X`092+117*SIN(F+D+D)+62*SIN(U+U+F)-33*SIN(F-U-D-D) X`093-32*SIN(F-U-U)-30*SIN(V+F-D-D)-16*SIN(U+U+F-D-D) X`094+15*SIN(U+F+D+D)+12*SIN(F-V-D-D)+9*SIN(F-U-V+D+D))/3600. X`09P(2,10)=ASIN(COS(P(1,10)*CONVS)*SIN(P(20,10)*6.28318531) X`091*SIN(E)+SIN(P(1,10)*CONVS)*COS(E))/CONVS X270`09CONTINUE XCCCCCCCCC XC XCCCCCCCCC X`09E=(23.4522944-.0130125*T+.002558*DCOS((259.18-1934.142 X`091*T)*CONV))*CONVS X`09DO 277 I=2,9 X`09RETRO(I-1)=' DIR ' X`09IF(ARG(P(21,I)-P(20,I),1.)-.5)277,277,275 X275`09RETRO(I-1)='RETRO' X277`09CONTINUE XCCCCCCCCC XC XCCCCCCCCC X`09XLW=(LONGD+LONGM/60.)/360. X`09XLN=(LATD+LATM/60.)*CONVS X`09IF(LATS.EQ.'N')GO TO 280 X`09XLN=-XLN X280`09IF(LONGS.EQ.'W')GO TO 290 X`09XLW=-XLW XCCCCCCCCC XC XC H(1)=GMT H(2)=GST H(3)=LMT H(4)=LST XC XCCCCCCCCC X290`09H(1)=ARG(SNGL(GMT)+.5,1.) X`09W=100.00213590D0*T-IDINT(100.D0*T) X`09H(2)=ARG(H(1)+.27691940+W,1.) X`09H(3)=ARG(H(1)-XLW,1.) X`09H(4)=ARG(H(2)-XLW,1.) X`09DO 300 I=1,4 X`09W=24.*H(I)+.00013888888 X`09IH(I,1)=W X`09W=60.*(W-IH(I,1)) X`09IH(I,2)=W X300`09IH(I,3)=60.*(W-IH(I,2)) X`09IF(OPTION.EQ.'PROGR'.OR.OPTION.EQ.'EPHEM')GO TO 310 X`09WRITE(IOUT,12000),((IH(I,J),J=1,3),I=1,4) X12000`09FORMAT(/' GMT=',I2,2(':',I2),' GST=',I2,2(':',I2), X`091' LMT=',I2,2(':',I2),' LST=',I2,2(':',I2)) X`09JD1=XJD X`09XJD1=XJD-JD1 X`09I=JD1+INT(XJD1+1.5-XLW)-(JD1-1+INT(XJD1+1.5-XLW))/7*7 X`09YBES=1900.D0+(XJD-2415020.31351528D0)/365.24219878125D0 X`091-.00000107523D0*T*T X`09IYBES=YBES X`09YBES1=YBES-IYBES X`09WRITE(IOUT,13000)WEEK(I),WEEKR(I),JD1,XJD1,IYBES,YBES1 X13000`09FORMAT(' Day of the week (from LMT) IS ',A9, X`091' (ruled by ',A8/' JD=',I7,F7.6,7X,' Besselian year = ', X`092I5,F10.9) XCCCCCCCCC XC XC HOUSE CUSP COMPUTATIONS (ACCURATE TO LAST DIGIT) XC XCCCCCCCCC X310 ITER=1+LATD/45 XCCCCCCCCC XC XC "ITER" IS THE NUMBER OF PLACIDEAN ITERATIONS XC XCCCCCCCCC X`09RA=6.28318531*H(4) X`09DO 340 N=1,6 X`09AA=6.28318531*(N+2)/12. X`09P(7,N)=ARG(ATAN2(SIN(RA)*COS(AA)+COS(RA)*COS(XLN)* X`091SIN(AA),COS(E)*(COS(RA)*COS(AA)-SIN(RA)*COS(XLN)* X`092SIN(AA))-SIN(E)*SIN(XLN)*SIN(AA))/6.28318531,1.) X`09P(8,N)=ARG(ATAN2(SIN(RA+AA)*COS(E),COS(RA+AA)) X`091/6.28318531,1.) X`09P(9,N)=ARG(ATAN2(SIN(RA+AA),COS(E)*COS(RA+AA)-SIN((3.- X`091ABS(1.-N))/3.*ASIN(TAN(E)*TAN(XLN)))*COS(E))/PI*.5,1.) X`09DO 330 J=1,ITER X`09X(1)=P(9,N)*6.28318531 X`09X(2)=X(1)+CONVS*.5 XCCCCCCCCC XC XC INCREMENT "CONVS*.5" IS ARBITRARILY CHOSEN (=.5 DEG) XC XCCCCCCCCC X`09DO 320 K=1,2 X`09AD=ASIN(TAN(XLN)*TAN(ASIN(SIN(X(K))*SIN(E)))) X`09DRA=ARG(ATAN2(SIN(X(K))*COS(E),COS(X(K)))-RA-(N-1)*PI/6. X`091,PI)-PI*.5 X320`09Y(K)=DRA-(4.-N)*AD/3. X330`09P(9,N)=P(9,N)-Y(1)/(Y(2)-Y(1))*.5/360. XCCCCCCCCC XC XC THE ".5" CONSTANT HERE MUST AGREE WITH THE ONE ABOVE XC XCCCCCCCCC X`09P(10,N)=ARG(ATAN2(SIN(RA+AA),COS(E)*COS(RA+AA)-SIN(E) X`091*TAN(XLN)*SIN(AA))/6.28318531,1.) X340`09P(12,N)=ARG(P(7,1)+(N-1)/12.,1.) X`09DO 350 N=1,6 X`09P(11,N)=ARG(P(7,1)+(N-1)/12.+(ARG(P(7,4)-P(7,1),1.) X`091-.25)*(3.-ABS(3.-ABS(N-7.)))/3.,1.) X350`09P(13,N)=ARG(P(7,4)+(N-4)/12.,1.) X`09W=ARG(ATAN2(SQRT((COS(XLN)/SIN(E))**2-SIN(P(7,4) X`091*6.28318531)**2),SIN(XLN)*SIN(P(7,4)*6.28318531)),PI)/3. X`09DO 351 N=1,3 X351`09P(14,N)=ARG(ATAN2(COS(RA+(N-1)*W),-SIN(RA+(N-1)*W) X`091*COS(E)-SIN(E)*TAN(XLN))/6.28318531,1.) X`09W=ARG(ATAN2(SIN(P(7,1)*6.28318531)*COS(E),COS(P(7,1) X`091*6.28318531))-RA,PI)/3. X`09DO 352 N=4,6 X352`09P(14,N)=ARG(ATAN2(SIN(RA+(N-4)*W),COS(RA+(N-4)*W)*COS(E) X`091)/6.28318531+.5,1.) X`09DO 355 J=7,14 X`09DO 355 N=1,6 X355`09P(J,N+6)=ARG(P(J,N)+.5,1.) XCCCCCCCCC XC XC PARS FORTUNA & PLANETARY NODES FOLLOW XC XCCCCCCCCC X`09P(20,12)=ARG(P(20,10)-P(20,1)+P(11,1),1.) X`09DO 360 I=2,9 X360`09P(17,I)=ARG(P(20,I)-P(20,1)+P(11,1),1.) XCCCCCCCCC XC XC ARGUMENTS TRANSFORMED TO SIGNS/DEGREES/MINUTES XC XCCCCCCCCC X`09DO 390 I=1,4 X`09DO 390 J=1,12 X`09GLYPH(I,J)='N' X`09IF(P(I,J))370,380,380 X370`09GLYPH(I,J)='S' X380`09DEG=ABS(P(I,J))+.0083333333 X`09ID(I,J)=DEG X390`09IM(I,J)=60.*(DEG-ID(I,J)) X`09IFINAL=JFINAL+19 X`09DO 400 I=6,IFINAL X`09DO 400 J=1,12 X`09W=12.*P(I,J)+.00027777777 X`09IS(I,J)=W X`09ISS=W+1. X`09GLYPH(I,J)=ZOD1(ISS) X`09W=30.*(W-IS(I,J)) X`09ID(I,J)=W X400`09IM(I,J)=60.*(W-ID(I,J)) XCCCCCCCCC XC XC PROGRESSION & EPHEMERIS OUTPUT ROUTINE FOLLOWS XC XCCCCCCCCC X`09IF(OPTION.NE.'PROGR')GO TO 420 X`09WRITE(IOUT,14000) X14000`09FORMAT(/19X,'Progressed (geocentric) longitudes'// X`091' YEAR SUN MERC VENUS MARS JUPIT SATUR ', X`092' URAN NEPT PLUTO MOON NODE') X`09DO 410 I=20,120 X`09II=I-20 X410`09WRITE(IOUT,15000)II,(ID(I,J),GLYPH(I,J),IM(I,J),J=1,11) X15000`09FORMAT(' ',I3,1X,11(1X,I2,A1,I2)) X`09GO TO 9999 X420`09IF(OPTION.NE.'EPHEM')GO TO 470 X`09WRITE(IOUT,16000)IH(1,1),IH(1,2),NY X16000`09FORMAT(//19X,'Daily ephemeris for ',I2,':',I2,' GMT'// X`091' DATE SUN MERC VENUS MARS JUPIT SATUR URAN', X`092' NEPT PLUTO MOON NODE'/I6) X`09MY=NY+(NM+7)/10 X`09MOND(2)=1461*(MY+4800)/4-1461*(MY+4799)/4-337 X`09IF(CALEND.EQ.'J')GO TO 430 X`09MOND(2)=MOND(2)-(MY+4900)/100*3/4+(MY+4899)/100*3/4 X430`09DO 460 I=20,120 X`09WRITE(IOUT,17000)MONTH(NM),ND,(ID(I,J),GLYPH(I,J), X`091IM(I,J),J=1,11) X17000`09FORMAT(' ',A2,I2,11(1X,I2,A1,I2)) X`09ND=ND+1 X`09IF(ND-MOND(NM))460,460,440 X440`09ND=ND-MOND(NM) X`09NM=NM+1 X`09IF(NM-12)460,460,450 X450`09NM=1 X`09NY=NY+1 X`09WRITE(IOUT,18000)NY X18000`09FORMAT(I6) X460`09CONTINUE X`09GO TO 9999 XCCCCCCCCC XC XCCCCCCCCC X470`09WRITE(IOUT,19000),(ID(20,I),GLYPH(20,I),IM(20,I),I=1,12) X`091,RETRO,((ID(I,J),GLYPH(I,J),IM(I,J),J=1,10),I=1,2) X19000`09FORMAT(//8X,'Geocentric planet positions (longitude,', X`091'latitude,declination)'/' Sun Merc Venus Mars', X`092' Jupit Satur Uran Nept Pluto Moon Node P.F.'/ X`0931X,12(I3,A1,I2)/7X,8(1X,A5)/1X,10(I3,A1,I2)/ X`0941X,10(I3,A1,I2)//) X`09WRITE(IOUT,19500),((ID(I,J),GLYPH(I,J),IM(I,J),J=1,12), X`091I=7,14),(ID(7,J),GLYPH(7,J),IM(7,J),J=1,10,3) X19500`09FORMAT(24X,'House cusps in systems of'/ X`091' Campanus,Morinus,Placidus,Regiomontanus,Porphyry,', X`092'Equal,Zariel,Alcibitius'/' 1 2 3 ', X`092' 4 5 6 7 8 9 10 11 12'/ X`0931X,12(I3,A1,I2)/1X,12(I3,A1,I2)/1X,12(I3,A1,I2)/ X`0941X,12(I3,A1,I2)/1X,12(I3,A1,I2)/1X,12(I3,A1,I2)/ X`0951X,12(I3,A1,I2)/1X,12(I3,A1,I2)/ X`096' rising',14X,'I.C.',13X,'Desc.',14X,'M.C.'/ X`0971X,4(I3,A1,I2,12X)///////) XCCCCCCCCC XC XC RULING,SIGNIFICATING,RISING PLANETS XC XCCCCCCCCC X`09I=IS(20,1)+1 X`09J=IS(7,1)+1 X`09I=NRULER(I) X`09J=NRULER(J) X`09DISP(1)=PLANET(16) X`09K=0 X`09DO 490 L=1,12 X`09IF(ABS(ARG(P(7,1)-P(20,L)+1.5,1.)-.5)-.03333)480,480,490 X480`09K=K+1 X`09DISP(K)=PLANET(L) X490`09CONTINUE X`09K=K+(K+.101)/(K+.050)-1 X`09WRITE(IOUT,20000)PLANET(I),PLANET(J),(DISP(L),L=1,K) X20000`09FORMAT(' ruling planet is ',A8/ X`091' significator (planet ruling the rising sign) IS ',A8/ X`092' rising planets :',6(1X,A8)/17X,6(1X,A8)) XCCCCCCCCC XC XC QUADRUPLICITIES/TRIPLICITIES TABULATED XC XCCCCCCCCC X`09IS(20,13)=IS(7,1) X`09IS(20,14)=IS(7,10) X`09P(20,13)=P(7,1) X`09P(20,14)=P(7,10) X`09WRITE(IOUT,21000) X21000`09FORMAT(/' Distribution of elements is as follows:'// X`0918X,'.-----cardinal------.-------fixed-------.', X`092'------mutable------.') X`09DO 500 I=1,5 X`09DO 500 J=1,3 X`09DO 500 K=1,12 X500`09ELEM(I,J,K)=' ' X`09I5=0 X`09DO 530 I=1,14 X`09K=IS(20,I)-IS(20,I)/4*4+1 X`09L=IS(20,I)-IS(20,I)/3*3+1 X510`09DO 520 J=1,11,2 X`09IF(ELEM(K,L,J).NE.' ')GO TO 520 X`09ELEM(K,L,J)=PLAN2(1,I) X`09ELEM(K,L,J+1)=PLAN2(2,I) X`09GO TO 530 X520`09CONTINUE X`09I5=K X`09K=5 X`09GO TO 510 X530`09CONTINUE X`09DO 550 I=1,4 X`09WRITE(IOUT,22000)QUAD(I),((ELEM(I,J,K),K=1,12),J=1,3) X22000`09FORMAT(1X,A5,' .',6(1X,2A1),' .',6(1X,2A1),' .', X`0916(1X,2A1),' .') X`09IF(I5-I)550,540,550 X540`09WRITE(IOUT,22000)QUAD(5),((ELEM(5,J,K),K=1,12),J=1,3) X550`09CONTINUE X`09WRITE(IOUT,23000) X23000`09FORMAT(8X,'.-------------------.-------------------', X`091'.-------------------.') XCCCCCCCCC XC XC ASPECTS XC XCCCCCCCCC X`09DO 560 I=1,14 X`09DO 560 J=1,14 X560`09IASP(I,J)=360.*(.5-ABS(.5-ABS(P(20,I)-P(20,J))))+.5 X`09WRITE(IOUT,24000),((IASP(I,J),I=1,14),J=1,14) X24000`09FORMAT(/' all planetary angles are tabulated below'// X`0915X,'SUN MER VEN MAR JUP SAT URA NEP PLU MOO NOD PF. AS', X`092'C MC.'/' SUN',14I4/' MER',14I4/' VEN',14I4/' MAR',14I4/ X`093' JUP',14I4/' SAT',14I4/' URA',14I4/' NEP',14I4/ X`094' PLU',14I4/' MOO',14I4/' NOD',14I4/' PF.',14I4/ X`095' ASC',14I4/' MC.',14I4/) X`09WRITE(IOUT,25000) X25000`09FORMAT(' important aspects are as follows ("exact" ', X`091'orbs pertain to the '/' true angle between objects ', X`092' #1 and #2)'// X`093' object#1 object#2 aspect (DEG) orb(EXACT)', X`094' applying/waning'/) XCCCCCCCCC XC XC XCCCCCCCCC X`09DO 660 I=1,13 X`09II=I+1 X`09DO 660 J=II,14 X`09DIF=360.*(.5-ABS(.5-ABS(P(20,I)-P(20,J)))) X`09N=DIF+1 X`09IF(ASPECT(N))570,660,570 X570`09K=ASPECT(N) X`09DIF1=ABS(DIF-ASPDEG(K)) X`09DIF=ARG(ACOS(COS(P(1,I)*CONVS)*COS(P(1,J)*CONVS)*COS X`091((P(20,I)-P(20,J))*6.28318531)+SIN(P(1,I)*CONVS)* X`092SIN(P(1,J)*CONVS))/CONVS,180.) X`09DIF2=ABS(DIF-ASPDEG(K)) X`09APPLY=' ' X`09IF(I/12+J/12)610,610,580 X580`09IF(I/12-J/12)590,650,600 X590`09P(21,J)=P(20,J)+ABS(ARG(P(21,I)-P(20,I)+.5,1.)-.5)*1.1 X`09GO TO 610 X600`09P(21,I)=P(20,I)+ABS(ARG(P(21,J)-P(20,J)+.5,1.)-.5)*1.1 X610`09APPLY='A' X`09W=(ARG(P(20,I)-P(20,J),1.)-ASPDEG(K)/360.)/ X`091(ARG(P(21,I)-P(21,J),1.)-ASPDEG(K)/360.) X`09IF(ARG(P(20,I)-P(20,J),1.)-.5)630,630,620 X620`09W=(ARG(P(20,J)-P(20,I),1.)-ASPDEG(K)/360.)/ X`091(ARG(P(21,J)-P(21,I),1.)-ASPDEG(K)/360.) X630`09IF(W-1.)640,650,650 X640`09APPLY='W' X650`09WRITE(IOUT,26000)PLANET(I),PLANET(J),ASPTYP(K),ASPDEG(K) X`091,DIF1,DIF2,APPLY X26000`09FORMAT(1X,2(A8,2X),A8,'(',I3,')',F7.2,'(',F5.2,')',5X,A1) X660`09CONTINUE XCCCCCCCCC XC XC`09PARALLEL ASPECTS XC XCCCCCCCCC X`09WRITE(IOUT,27000) X27000`09FORMAT(/' PARALLEL ASPECTS (IF ANY) ARE AS FOLLOWS:'/) X`09DO 680 I=1,9 X`09II=I+1 X`09DO 680 J=II,10 X`09DIF=60.*ABS(ABS(P(2,I))-ABS(P(2,J))) X`09IF(DIF-60.)670,670,680 X670`09WRITE(IOUT,28000)PLANET(I),PLANET(J),DIF X`091,ID(2,I),GLYPH(2,I),IM(2,I),ID(2,J),GLYPH(2,J),IM(2,J) X28000`09FORMAT(6X,A8,' parallel ',A8,' within ',F4.1,3H' (, X`091I2,A1,I2,' & ',I2,A1,I2,')') X680`09CONTINUE XCCCCCCCCC XC XC ESSENTIAL DIGNITIES XC XCCCCCCCCC X`09WRITE(IOUT,29000) X29000`09FORMAT(/' Essential dignities (if any) follow :'/) X`09DO 720 I=1,10 X`09N=IS(20,I)+1 X`09IF(DIG(I,N))690,720,690 X690`09J=DIG(I,N) X`09WRITE(IOUT,30000)PLANET(I),DIGTYP(1,J),DIGTYP(2,J),ZOD(N) X30000`09FORMAT(6X,A8,' IS ',2A6,' IN ',A10) X`09IF(DIG(I,N)-3)700,720,720 X700`09IF(EXDEG(I)-ID(20,I))720,710,720 X710`09WRITE(IOUT,31000)EXDEG(I) X31000`09FORMAT('+',43X,' (by exact degree , ',I2,')') X720`09CONTINUE XCCCCCCCCC XC XC MUTUAL RECEPTION CHECK XC XCCCCCCCCC X`09WRITE(IOUT,32000) X32000`09FORMAT(/' mutual receptions (if any) follow :'/) X`09DO 760 I=1,9 X`09M=IS(20,I)+1 X`09II=I+1 X`09DO 760 J=II,10 X`09N=IS(20,J)+1 X`09IF(DIG(J,M)*DIG(I,N)-1.)740,730,740 X730`09WRITE(IOUT,33000)PLANET(I),PLANET(J) X33000`09FORMAT(6X,A8,'and ',A8,'are mutually receptive by ', X`091'exalted signs') X`09GO TO 760 X740`09IF((DIG(J,M)-2.)*(DIG(I,N)-2.)-1.)760,750,760 X750`09WRITE(IOUT,34000)PLANET(I),PLANET(J) X34000`09FORMAT(6X,A8,'and ',A8,'are mutually receptive by ', X`091'natural signs') X760`09CONTINUE XCCCCCCCCC XC XC DISPOSITORS XC XCCCCCCCCC X`09WRITE(IOUT,35000) X35000`09FORMAT(/' dispositorships follow ("D" means "is the ', X`091'dispositor of")'/) X`09DO 770 I=1,14 X`09TAKEN(I)=0 X`09ISS=IS(20,I)+1 X`09NDISP(I)=NRULER(ISS) X770`09DISP(I)=PLANET(15) X`09TAKEN(15)=2 X`09I=1 X`09IPRINT=0 X780`09J=NDISP(I) X`09DO 790 K=1,9 X790`09J=NDISP(J) X`09K=1 X`09LEVEL(1)=J X`09TAKEN(J)=1 X`09IF(IPRINT)820,820,800 X800`09WRITE(IOUT,36000),(DBLANK(M),DISP(M),M=1,IPRINT) X`09DO 810 M=1,14 X810`09DISP(M)=PLANET(15) X`09IPRINT=0 X820`09DISP(1)=PLANET(J) X`09DBLANK(1)=' ' X830`09K=K+1 X`09LEVEL(K)=I X840`09II=LEVEL(K) X`09IF(NDISP(II)-LEVEL(K-1))850,880,850 X850`09LEVEL(K)=LEVEL(K)+1 X`09IF(LEVEL(K)-15)840,860,840 X860`09K=K-1 X`09IF(K-1)850,870,850 X870`09I=I+1 X`09IF(TAKEN(I)-1)780,870,920 X880`09TAKEN(II)=1 X`09IF(K-IPRINT)890,890,910 X890`09WRITE(IOUT,36000),(DBLANK(M),DISP(M),M=1,IPRINT) X36000`09FORMAT(3X,12(A2,A8)) X`09DISP(15)=DISP(K) X`09DO 900 M=1,14 X`09DISP(M)=PLANET(15) X900`09DBLANK(M)=' ' X`09IPRINT=0 X`09IF(DISP(15).NE.PLANET(II))GO TO 910 X`09IF(II-J)830,850,830 X910`09DISP(K)=PLANET(II) X`09IPRINT=K X`09DBLANK(K)='D ' X`09IF(II-J)830,890,830 X920`09IF(II-J)930,940,930 X930`09WRITE(IOUT,36000),(DBLANK(M),DISP(M),M=1,IPRINT) X940`09CONTINUE XCCCCCCCCC XC XC HELIOCENTRIC COORDINATES, PLANETARY PARTS & NODES XC XCCCCCCCCC X`09WRITE(IOUT,37000),(ID(6,J),GLYPH(6,J),IM(6,J),J=2,9), X`091((ID(I,J),GLYPH(I,J),IM(I,J),J=2,9),I=3,4), X`092((ID(I,J),GLYPH(I,J),IM(I,J),J=2,9),I=17,19) X37000`09FORMAT(//23X,'Merc Venus Mars Jupit Satur Uran Nept', X`091' Pluto'/' Heliocentric--------'/ X`092' Longitude',11X,8(1X,I2,A1,I2) X`093/' Latitude',12X,8(1X,I2,A1,I2)/' Declination',9X, X`0948(1X,I2,A1,I2)/' Geocentric----------'/' Parts',15X, +-+-+-+-+-+-+-+- END OF PART 3 +-+-+-+-+-+-+-+-