Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-03 - decus/20-0083/astro.exe
There are no other files named astro.exe in the archive.
?p `0  0 0  0@	0
 0@
?hX7?x " 
 
<++]2	`~BP#B 7\2B(EXALTE    D         FALLEN              NATURA    L         DETRIM    ENTAL     HARMON    IOUS      INHARM    ONIOUS    MORINPLACIREGIOPORPHEQUALZARIEALCIBA    T    G    C    L    V    =    S    /    K    Q    P    $Ix28j?>;$RA4~[/h$I.7@ADN#rX=^OoNl#Ztv&>"s
rl?":dQ3Tl
D"74H[G          I              I    I              I    I    I         I    V                   V              V    I              V    I    I    V    I    I    I         I    X                   X              X    I              X    I    I    MONDAY    TUESDAY   WEDNESDAY THURSDAY  FRIDAY    SATURDAY  SUNDAY    	
	FIRE EARTHAIR  WATER     S    U    M    E    V    E    M    A    J    U    S    A    U    R    N    E    P    L    M    O    M    N    P    F    A    S    M    C     ;@o4 8qR 6CT =9oU 68T |<g [	o =M=Y 4~_ Sz
r \k4 <;u$!1!WI+I!rxy7!X2*D!x]lk!|e!r/X"*n.!{~PJA   FE   MR   AP   MY   JN   JL   AU   SE   OC   NO   DE   qKhZ(d ;xa7qVUZ.0YT
8Q<}]_OoSUN       MERCURY   VENUS     MARS      JUPITER   SATURN    URANUS    NEPTUNE   PLUTO     MOON      MOONNODE  PARS F.   ASCEND.   M.C.                NONE       0xc& b 80Ab tgjr!	xh!38~!>	s!Skw!y'D!r|e""OD"4q_8!h&3!vCFJ"cs!Up-{"Y=2 2{' edG U}m 'L% 1Ne 5]&ARIES     TAURUS    GEMINI    CANCER    LEO       VIRGO     LIBRA     SCORPIO   SAGITARIUSCAPRICORN AQUARIUS  PISCES    c*
l^5:
c&|CxXMOON)     MARS)     MERCURY)  JUPITER)  VENUS)    SATURN)   SUN)      CONJUNCT  SEMISEX.  SEMISQ.   SEXTILE   QUINTILE  SQUARE    TRINE     INCONJ.   OPPOSED   ...CAMP   ANUS...   ...MORI   NUS....   ...PLAC   IDUS...   REGIOMO   NTANUS    ...PORP   HYRY...   ....EQU   AL.....   ....ZAR   IEL....   ..ALCIB   ITUS...   .....KO   CH.....   "63g !yHx,"IS3"3|"R"|%!rJO!TQ "p]$-<KZ(' SAMPLE INPUT (GREGORIAN DATE,TIME,','CONVERSION TO GMT,LATITUDE,LONGITUDE)'//' 1899/12/31 23:59 +08:00 34N59 122W59 COMMENTS,NAMES'//' TYPE "TYPE ASTRO.HLP" FOR DETAILED EXPLANATIONS'/////' A=ARIES  C=CANCER ==LIBRA       K=CAPRICORN  N=NORTH'/' T=TAURUS L=LEO    S=SCORPIO     Q=AQUARIUS   S=SOUTH'/' G=GEMINI V=VIRGO  /=SAGITTARIUS P=PISCES'//////////' ENTER BIRTH DATA -------'//)(I4,A1,4(I2,1X),I3,2(1X,I2),A1,I2,1X,I3,A1,I2,1X,A5,5X,5A5)('1'//' ---DATE--- -TIME -ZONE- -LAT- -LONG- ','COMMENTS--------'/I5,A1,I2,'/',I2,I3,':',I2,I4,':',I2,I3,A1,I2,I4,A1,I2,1X,5A5)(/' GMT=',I2,2(':',I2),'    GST=',I2,2(':',I2),'    LMT=',I2,2(':',I2),'    LST=',I2,2(':',I2))(' DAY OF THE WEEK (FROM LMT) IS ',A9,' (RULED BY ',A8/' JD=',I7,F7.6,7X,' BESSELIAN YEAR = ',I5,F10.9)(/19X,'PROGRESSED (GEOCENTRIC) LONGITUDES'//' YEAR  SUN   MERC VENUS  MARS JUPIT SATUR ',' URAN  NEPT PLUTO  MOON  NODE')(' ',I3,1X,11(1X,I2,A1,I2))(//19X,'DAILY EPHEMERIS FOR ',I2,':',I2,' GMT'//' DATE  SUN   MERC VENUS  MARS JUPIT SATUR  URAN','  NEPT PLUTO  MOON  NODE'/I6)(' ',A2,I2,11(1X,I2,A1,I2))(I6)(//8X,'GEOCENTRIC PLANET POSITIONS (LONGITUDE,','LATITUDE,DECLINATION)'/'   SUN   MERC VENUS  MARS',' JUPIT SATUR  URAN  NEPT PLUTO  MOON  NODE  P.F.'/1X,12(I3,A1,I2)/7X,8(1X,A5)/1X,10(I3,A1,I2)/1X,10(I3,A1,I2)//)(24X,'HOUSE CUSPS IN SYSTEMS OF'/' CAMPANUS,MORINUS,PLACIDUS,REGIOMONTANUS,PORPHYRY,','EQUAL,ZARIEL,ALCIBITIUS'/'    1     2     3    ',' 4     5     6     7     8     9     10    11    12'/1X,12(I3,A1,I2)/1X,12(I3,A1,I2)/1X,12(I3,A1,I2)/1X,12(I3,A1,I2)/1X,12(I3,A1,I2)/1X,12(I3,A1,I2)/1X,12(I3,A1,I2)/1X,12(I3,A1,I2)/' RISING',14X,'I.C.',13X,'DESC.',14X,'M.C.'/1X,4(I3,A1,I2,12X)///////)(' RULING PLANET IS ',A8/' SIGNIFICATOR (PLANET RULING THE RISING SIGN) IS ',A8/' RISING PLANETS :',6(1X,A8)/17X,6(1X,A8))(/' DISTRIBUTION OF ELEMENTS IS AS FOLLOWS:'//8X,'.-----CARDINAL------.-------FIXED-------.','------MUTABLE------.')(1X,A5,'  .',6(1X,2A1),' .',6(1X,2A1),' .',6(1X,2A1),' .')(8X,'.-------------------.-------------------','.-------------------.')(/' ALL PLANETARY ANGLES ARE TABULATED BELOW'//5X,'SUN MER VEN MAR JUP SAT URA NEP PLU MOO NOD PF. AS','C MC.'/' SUN',14I4/' MER',14I4/' VEN',14I4/' MAR',14I4/' JUP',14I4/' SAT',14I4/' URA',14I4/' NEP',14I4/' PLU',14I4/' MOO',14I4/' NOD',14I4/' PF.',14I4/' ASC',14I4/' MC.',14I4/)(' IMPORTANT ASPECTS ARE AS FOLLOWS ("EXACT" ','ORBS PERTAIN TO THE '/' TRUE ANGLE BETWEEN OBJECTS ',' #1 AND #2)'//' OBJECT#1  OBJECT#2   ASPECT (DEG)    ORB(EXACT)',' APPLYING/WANING'/)(1X,2(A8,2X),A8,'(',I3,')',F7.2,'(',F5.2,')',5X,A1)(/' PARALLEL ASPECTS (IF ANY) ARE AS FOLLOWS:'/)(6X,A8,' PARALLEL ',A8,' WITHIN ',F4.1,3H' (,I2,A1,I2,' & ',I2,A1,I2,')')(/' ESSENTIAL DIGNITIES (IF ANY) FOLLOW :'/)(6X,A8,' IS ',2A6,' IN ',A10)('+',43X,' (BY EXACT DEGREE , ',I2,')')(/' MUTUAL RECEPTIONS (IF ANY) FOLLOW :'/)(6X,A8,'AND ',A8,'ARE MUTUALLY RECEPTIVE BY ','EXALTED SIGNS')(6X,A8,'AND ',A8,'ARE MUTUALLY RECEPTIVE BY ','NATURAL SIGNS')(/' DISPOSITORSHIPS FOLLOW ("D" MEANS "IS THE ','DISPOSITOR OF")'/)(3X,12(A2,A8))(//23X,'MERC VENUS  MARS JUPIT SATUR  URAN  NEPT',' PLUTO'/' HELIOCENTRIC--------'/' LONGITUDE',11X,8(1X,I2,A1,I2)/' LATITUDE',12X,8(1X,I2,A1,I2)/' DECLINATION',9X,8(1X,I2,A1,I2)/' GEOCENTRIC----------'/' PARTS',15X,8(1X,I2,A1,I2)/' NORTH PLANETARY NODE',8(1X,I2,A1,I2)/' SOUTH PLANETARY NODE',8(1X,I2,A1,I2))(/' TO GET SIDEREAL LONGITUDES SUBTRACT ',F8.4,' DEG. FROM ALL LONGITUDES')(//' CHART BELOW USES TROPICAL GEOCENTRIC ',2A7,' HOUSE SYSTEM',/,'1')(' ',70A1)(/' INTERCEPTED SIGNS (IF ANY) FOLLOW')(6X,A10,4X,A10)(/////////' DO YOU WANT ANOTHER HOROSCOPE ? ','(TYPE YES OR NO) -----'/)(A3)(' ENTER ANOTHER SET OF BIRTH DATA ........'/)(' AFTER EXIT TYPE "Q CHART.DATA/DISPOSE:RENAME"'/' TO LINEPRINT HOROSCOPES WITH OPTION "LINEPRINT" ')Z-IJ:=ulmM_PQD"S    #4Lf!Qj?!3oY":c}z!8J`q
8wp0!79r2+!YLf!~&3"VpR!pdf3"5MB    .    r ^'F3$4B
f3M"6ix="&1P6s{63]h;M+    !y UD&{">hf3LINEP{P]c[R8j?>;]c[S^esM^u:!~GW!sf3 Ry hmca
rWH!49Lf! `TH [vLP!2/.
"4cdT^.9Lf QnFI ?kBG#%q"|"7.
!2Fd-!3bX!91: v[Ry 63MdMz{
Te`\NN    q\CN     _.
!P~P#Z;Z-IJ@#G@"s
w^I1ua^lG6#^M5.aFAO
L!Z.
 #3Phz0Qua$"@ q'6#"qa$"2Y9"08(:pQua"08)"63!7O.
qR4#"o"YLf^JW!Qf3WIw6W:cxyr@"'<5!0=8^BGW1Lf3('4#sN-S&jz\q	E!h"1+.$jh]hLfP"X z5a$!/
 Y~j{an?^-<f3NO   ",\EPr@QFj.3@-!rv3qe0#j9
PC "_04!rMF#Zs[^'X1Lf3 ""h!|
7]ymH^OGWA0(#v!zpu {Lf3`bTda-d-D    yX
^X%9V}@!hzp"V8x@}FT y~j!40F2IMAuE:U!^!^DAD9mHZ#rPVz	!tL
hP DIR  x%%
C# y~j!TUY!rJ\"f3z(F:PROGR 1d{Y?XVjtX!y_)i%bRETRO!<e@A"63({#3PSJ    }0 !R8\_GFTp`QzV6!W^\"B[a%,lzdk]a%,lz2Nh%3c 8e4D#3Q3^;2 \.!lf3P`TH"1*3p_o>;2#B"O:/!w%qqW9F      y~j!syLf!GWCHART+ -<K+7"ip,> p @8 <I8,N5 @ <I7,N8,^,~+7/CJ8"pp@`pp!"#7 "b""Bbp"pp@`pp,~@d#I@dM 6a D@6ySd6Y?,OL D 6+_DHZD*9 7	 &#$&.*9 7 Hg*d76:*9; H+75 6  &f6y F6 <I6,N5 
 @ &f6yF6 <I5,N8$ ,@@& &$&#..6 Hg*d7;"& $ (.h7 H6 <I4,N5 	@ 
S J g &$(#. 
T J h &$(#. 
T J h &$(#. 
U J i.$8&7I 6x_D4ZD*9 6g &<$&.*9@h"*d7a:*9; 4+7` <I9,, $ D9 <I<, <I?,
 C2D6*+7s"#I1D+7n <I2,K[Od#I $
 D9 $ DM E DC <II, <IL,
f0dP#7 "f"$.J.P$$.6d$4 &I"$.&&$.7 */
&&*$*"(.&.$(7&( ,`.
$,Z7 .,(
"*}%.
#>.
.
"
/,&,2 (.7 .((.,OI# E2D6+8 $/d7 E2D7	3D6+8+8 $/&&$$$"&.&.$&7&&"(.&&( $`.7.$$Z7 .$("(}8.#>..,OI#6@#d6VR $ D C2D73D6`+8$+8% $2 D" $ F1 D/$,Od6VR16K,OL D61,OL DK 6x #6K~ F2 (( 0H1h6Y,O2 Hb *(

(0L1",OH6Y 
1| .
L?,OaL+*d8-- D#e . FM 6]67
MJ 6Z66 


 L6 <I1,N8 
61
6
63
 6  N6	 <I0,N860
!00"#eN#e N6	 <I/,N86/
 6;"#e N6
 <I.,N87
 69#e N6
 <I-,N8 6{6 7 
ML
M

 L6 <I,,N87 6/"
#e
M
 L6 <I+,N866H a@- #eD MFH^ 
6U
 
MJ

 J6 <I*,N8 

6; 6t66H 
ML
M

 L6	 <I),N86
 6"
#e

 L6	 <I(,N87
!,n

M L6
 <I',N8 
67
6

 6 
MJ
M
#e
 J6
 <I&,N86f
!. 


 J6 <I%,N86T
 6s 
M*@


 J6 <I$,N87
"
#eJ M.	  
6T
K
6M

 J6
 <I#,N86d
 65"
M

 J6
 <I",N86m6. a@. 6%KK$aD. 6DKKD/ 6xZD*9 *9 (+ H6
 <I,N82+ @6
 <I,N82+ @6	 <I,N82+ @6	 <I ,N82+ @6 <I!,N82+ @2"*9&( 
*9&*.
j
7
K*a
 
Y
K
H
"2.2(H6	<I,Lr@2HH6	<I,7 @6 <I,LW@ @#*d9) 6\K7 D%!(
6'
"
-

 J6 <I,N5 

62 6! 
Q
-
 L6	 <I,N56: 6b 
6:
K
7
 L6	 <I,N86E!,v(
K

 6W"
-J

 J6
 <I,N56P
!.t\ 
-J
%
 J6
 <I,N57
 66"
%
-
 J6 <I,N562 a@# 6jK6w H8 
6B
K
68
 JG 
6
K
6i
 L* 6K7 N7 6PK7 P>L
G *R*"G* H6> N6
P 7T T6
 >V> 7P7 P6 <I,N8  <I,N5 
* J6	 6w 
65

 <I,N5
" Z6	 <I,N5 6`" D6
 <I,N86L" D6
,<I56f" D6 <I
,N86& <I,N86j <I
,N56M <I	,N56| <I,N86 <I,N57 <I,N86r
 6m 6 <I,N8
 <I,N56C
 <I,N86Y 6G 
7

*a
J#  KK 
6C
 6.K <I,N5 
7
 
6l
K
 
7

K
 <I,N8 
.J J6 <I,N8 
6X
K

 6BK61 H6	 <H,N8 6SK6Q(aH#  KK 
7

 6iK7 H6 <H~,N8 

69 6?K <H},N5
 
6s
 68K6l H6	 <H|,N86
 6?!,T
K
 <H{,N8 a@# "& $ F#W D*9 #$K+ F1 7ZD&"*9&&f6* *9&(h6"
*9&,l
6A
,a

6
1 L2 *9 
2*"2( H6	 <Hx,Lr @"
Y
K
H
 &/(h@2H H6
 <Hw,7 @6	 <Hy,LW@ @6 <Hz,N5"2 > @#J(.& *9 
&/*j
@
2 J6 <Hv,N5 #J @%(.& *9 
&/*j
@
2 J6 <Hu,N8#J @ *-*d:o *9"*9&& *9&(.h76(a ' F6	 <Hr,N5 @ #1 F6	 <Hq,N8 @6 #1 F6
 <Hp,N5 @6
 <Hs,L@1 @ #1 F6	 <Hn,N8 @ ' F6	 <Hm,N8 @6 <Ho,L* @K &2 F6 <Hl,N5"2 > @#J:*9; #W+:l 6K# D6 <Hk,N87
6 a@M 6-# D6 <Hj,N86~6 a@N"#eD#e MFM 6\ D6	 <Hh,N5 6O"#eD MH 6 D6	 <Hg,N56% 6J#e D6
h<Hf,N5M6b6 D6 <Hi,M@#L 7"#eM D6	 <Hc,N5 7"#eF MH 7 F6	 <Hb,N56~!&
 <Ha,N5 6z6!(0 MD#e D6
 <H`,N56 @6 <Hd,M@#M 6x &K F6 <H_,N5 #J & F6	 <H^,N5 @# &K F6 <H],N5 #J & F6	 <H\,N8 @9 &K F6 <H[,N8#J @8*d;q 6v_D#=ZD*9 7ZD& *9(.&"#H% *9(.&"9H*- *9(.& (<$*9.& **- J6	 *% J6	 <HX,L@7 @6 <HZ,7# @ +*d< *9 ## F#W 99 Fs 88 F#D:*9; #=+<"# D#W"9 Dt"8 D#D 6-K6J D6 <HW,N866 @H 6xZD*9 *9 *9$(<. *s J6	 *#W J6	 <HT,L@7H @6 <HV,7# @ , &2F+<` *9 ss 
#W
#W
 #D#D H6 <HS,Lr @E$&< *9 
 #D
E J6 <HR,L* @# 6-K6J F6 <HQ,N56_ 7K6 FT$(<  # F6	 <HO,N8 @ <HN,N5
  ,7 F6	 <HM,N8 @  # F6
 <HL,N5
 <HK,N8 @6 <HP,L* @ # *9$&< *9 
 
7 J6 <HJ,7# @%$(< *9 
K
 J $ *9$(< *K J6	 <HH,N8 @ <HG,N5
 * J6	 <HF,N8 @ *K J6
 <HE,N5 <HD,N8 @6 <HI,L* @ $*d< ,O66@#CD6u72mCH6$6[D
CL6R
64
TCP6e6)1 4CT6h6o4$,O+,O2mDS,OL D#O(,O2,ODHS,OV HI,,O8,O
TLS,Oa LP0,O?,O#1 PS,Ok P##4,OE,O'4TS,Ov THP D#6## HD #OH F*V 
#O
I J2J J6	D D6	"
D
6	F F6
 2N N6 #6D P6
 #6R#6 R6 #66	 V6 <HC,N8 6= <HB,N86o <HA,N87 <H@,N86X <H?,N8 jY <H>,N8 l2"26	2 Z6
 <H=,N8 n,"#6 Z6 <H<,N8 n2 #66	 Z6 <H;,N8 @" Z6
 <H:,N8 n["<H9,N8  <H8,N8 p #6D Z6
2,Z68 r$ #66
 Z6 <H5,N8 rL #66
Z6<H4,N8 6 <H3,N8 rh <H2,N8 
6	 Z6 <H0,N8 `6	 H6 <H/,N8 t@ #62 H6 <H.,N8  D2 H6 <H-,N8  6
6	 H6 <H,,N8 	p <H+,N8 	` 26	2 H6 <H*,N8 	` 66	 H6 <H),N8 v0 @#=  #=7 &(2m,O2,O2m H &6 <H',7# @X7 T6 <H&,7# @X@0V+>3 #6*V D6	 2F #6*V 
*V
 J6
 
#6L
*V L6
 *V N6" P6 <H%,N8"R <H$,N8 0| <H#,N86}" T6	 <H",N8 j <H!,N8 jd 6	 T6
x<H,N8"nY" T6 <H,N8 G <H,N8 j <H,N8 
 <H,N8"@ D6
 P6,N8 t 6
,P68"@ 6	 P6 <H,N8 	p"D6
 P6 <H,N8 	@"#6D6 P6 <H,N8 P0a P{ { D6	 <H,N8 @ <H,N5 7 D6	 <H,N8 @ { D6
 <H,N5 <H,N8 @6 <H,L* @{:; 1+8'6,DR6ID?6 <H,Nn@6^7HR6  &D,OL DT 6vZD*9 *9 7 H:$&< -, H6 <H,7#3`7
+>E1*974H:*d>>f*9&##DQ2D6O"dmI,OL$D6D<H <H,7# @A Am D6 <H
,7# @B Am D6 <H,7# @B 7
p@&@6D@FKFF#>"#>fK&7
_D3ZD*9 7_D2ZD (.*9 <IY,
:; 2+>q:*9; 3+>o,#,O+ D*M",O#,OL DT!$@mTD.*M".&&&$&. F*9
6<LRLR6#h6#6q2j,O2 H2",O2j,OV HO <IZ,( <I],
 3&$.$ D6 B7 D2m"& $ F2s Db.$d7$	@ D#" <H,N5  <H,N5  <H,N8 
 <H,N8 
 <H,N5  b$0<   R6	"  <G,N5 <G~,N8 @ <G},N8" @6	 <H,L@7 @6 <H,7# @@&2m D6	 b$&< <Gy,N5 @ <Gx,N8 @6	 <Gw,N5 @6
 <Gz,L@7 @6 <G|,7# @& #"2m D6	 <Gv,N5  b$(< <Gr,N8 @6	 <Go,7 @ <Gn,7 @6 <Gp,L*"
bj*#
"
*@*@
 J6
 <Gq,N8"

 <Gm,N5 @6
 <Gs,L@@@ @6 <Gu,7# @ '"6 $ F2q D $<$b '7 D# D# D# 7ZD& & &# F6
 <Gi,N8 @ <Gh,N8 @6	 <Gj,L* @6	 <Gk,7 @ <Gg,7 @6 <Gl,L* @C & (# H6	 <Gc,N8 @ <Gb,N5 @6	 (# H6
 <Ga,N5 @6
 <Gd,L@2m (/bh@(@ H6 <Gf,7#"@H H1"hb(yC(@1" H9*d?T $<$b 
:
9"9H(4H':; 2q+?O 2m#" D6	 &<$b <G],N8 @6	 <G\,7 @ <G[,N8"

 <GZ,N8
 <GY,N5 @ <GX,N5 @6
 <G^,L@7 @6 <G`,7# @' $<$b"&.bf&	@b F6 <GW,7# @(:b; 2s+? 6ZDb b$&<jb*x #
"
*@#
"
*@ b H6	 <GT,7#  @ b/(h(	@b H6 <GU,7# @( b$&< b/(h(	@ H6 <GR,7# @)*d@ 7 D6
 <GM,N8  <GL,N8 @ <GK,N5 @6	 <GN,Lr @6	 7 D6 <GJ,N8 @ <GI,N8 @6
 <GO,L@ @6 <GQ,7# @ @K 7ZDb b/&fK2m F6	 b$(< <GE,N5 @6	 <GD,7 @ <GC,N8"

 <GB,N5 @ <GA,N8" @6
 <GF,L@7 @6 <GH,7# @ )*d@8 b7 D6	 <G=,N8 @ <G<,N5 @6	 b7 D6
 <G;,N5 @6
 <G>,L@2m @6 <G@,7# @ @K 6ZDb b/&fK2m F6	 b$(< <G7,N8 @6	 <G6,N5 @ <G5,N5 @6
 <G8,L@7  @6 <G:,7# @ )*d@V 6d_D:ZD 6ZDb b$&<. "( H6 <G4,7# @
*d@f:; :+@f hd D6 <G2,7# @| 6vZD*9 *9$&< ,hd H6 <G1,7# @+*d@q 7
pDaZD*96ky&<$&.*9x6=	H&<$&.*96 "+AT&<$&.*9<6H9&<$&.*9#"6<F*L(<$(.*9FKF&z&<$&.*9"zh*L(
c J  (<$(.*9" #)hK(p HK *<$*.
*9H H(z (<$(.*9"
 zj
K* J **dA:*9; T+A C2D7+A6 <Ia,, 6u"&
.& F5 <Id, <Ig,
 6n_F7ZF &<$.& <Ii,
:; 7+A1,*dA,+F~ C2D6`+Ab <Ik, <In,
 $.&&$.7 D7.$_"$$Z7 .$( 7.&`$&Z7 .&(/&(. F E3D7	+AO"7/$&$2 (.7 .&( 7.(&(2 (.7 .$(..D 6u <Iq, & <It,
 6n_H5ZH &<$.& <Iv,
:; 5+AT,:#> &3f +Aa &".F#>:&1f+Aa & F&.f7 <Ix, <I{,
*dAP+F~ <I}, 6k_D-ZD*9 $<$*9 <J,
:*9; -+Ad <J,
 7_D%ZD*9 6p_D
ZD $<$.*9 <J,
:; 
+Al:*9; %+Aj, <J, 6d_DZD*9 6k_D3ZD $<$.*9 <J
,
:; 3+Av:*9; +At"& $ F2 D $<$ <J
 $.d; 2+A}, #o.$ D*9 #i.& F 2s H*9 2s DD@d& 6kZD*. *.$&< b(@, H6 <G/,7# #2`6R+B:& &( 
*.(

0
 C*dB	d& 6k 6} &}F F& <J, *9( ( <J,
"& $ H* D*. *.( <J,
:*.; *+B, #i D)? ( D){ b D8 ~ Dt <J,, 7_D)ZD*9 7_DZD 6k ($( (..*9. 7 H1*dB,:; +B+:*9; )+B*@d_"& $ F D*9$$<"#37 .((( #3.&. F& *9$$<"#3&& (. #3.&. F*."& $ D $( *.(.*..&. 12D7+BS $( *.(.*..&. *9(  K H1 $( *.(.*..&. *9(  K H1+BW $.d8&BB & D_ $ D&+BA:*9; +B6 7
 <J, <J,
 7_F#"ZF 6k_FSZF& ($& (..&. <J,
:&; S+B^:; #"+B\, &2F_+Bt <J, <J",
 7_FRZF 6k_FPZF& ($& (.. <J#,
:&; P+Bl:; R+Bk,*dBY <J%,, 6g_DOZD*9 6g &$&.*9 (<$( *<$
*9 
(,
 ,#
"
*#
"
**4*J J1|*dBx:*9; O+Bw <J(, 6g_D2qZD 6g_D2oZD*9 $$.*9 <J+,
:*9;"2o+C:;#2q+C,<<J,,,"& $ F2l D*9.$ D5 5/& 5 D $$< (<$*9  ,,#"(#"((4 H*V(H Hb7@ 
 
 ,
(,
7 L6	 <G,,N5 @ 
(#
 L6
 <G+,N5 @  # P6
 <G*,N5 
(#
 L6 <G),N8 @ 
 #
 L6 <G(,N8 @6	 <G-,L @6 <G.,7# @*V"2eh*V# Ha 7 H2o 
&,"*9&(2(+CQ"&( 
*9&,.
4LCs5lCJ $<$ (<$*9 
 -*
 , J6 <G&,7# #6Q, @-+CQ $<$*9 (<$ 
 -*
 , J6 <G%,7# #6Q, @- 6n D2o $<$*9 (<$ 
& 
-
 - L6 <G#,7#"(2en.4 
,
 , L6	 <G",7#"
(2el,4

 LK $<$ (<$*9  ,, H6 <G ,7#3`7
+Cq $<$ (<$*9 
& 
-
 - L6 <G,7#"(2en.4 
,
 , L6	 <G,7#"
(2el,4

 LK!$3dK+Cs 6N D2o <J/, *9( 
(
 &( & <J2,
:8&C:*9; 2l+C <J7,,"& $ F2 D*9.$ D5 5/& 5 (<$#
p#(<$*9###($*9 *<$
 
*9(
 ,0 L6 
(
 ,0 L6	 <J=,
.$8&D:*9; 2+C <JB,, 6p &<$& #3.& Fb$&.&7@d+D' &$b.& d F <JE,( (( 
b(
 <JH,
 &$b.& d0&+D' &<$& 2H+D' <JK, <JN,
*dD <JP,,"& $ F*L D*9$$< #3.& F *9.$ D5 5/& 5 (<$  #3.( Hb$(.*9 *$
.
 
(d$
 dj2J6+D< <JS, *9( 
(
 <JV,
+DF ($b.*9j d*{ ($.h d({2H6+DF <JX, *9( 
(
 <J[,
.$8&D0:*9; *L+D+ <J],, 6g@f*M &<$& #3.& F1 2s H% ((

 C*dDK $ D*T $ D*9@d2r *9 % D 6x  % F*dDV $ D&  F. D*M7`2r+Df <J`,"2r $ F#! D  ( <Jc,
:; #!+D^, 6g ((

 C*dDc@d2r (D 7 D7:& *9 F- & - F5 %3H-+Dt &:-0F+Dk>&0D+Dn:*9 *M/&4&DT4FDq+E 5 & F*M &2d2r+E
 <Je,"2r $ FQ D  ( <Jh,
:; Q+Dz, &(CR 6g ((

 C 7 F7*dE@d2r 5(R3H2J+E
 2D5+Di+Dn &( 5( C & D2r 6t F7 2F5+Di+Dw 3D5+E <Jj,"2r $ FN D  ( <Jm,
:; N+E, <Jo, 6v_D2rZD $<$ <Jr,
:; 2r+E 7_D2pZD*9 6v_D2nZD $<$.*9 <Jt,
:; 2n+E#:*9; 2p+E" 6U_D2kZD*9 6v_D2ZD $<$.*9 <Jw,
:; 2+E,:*9; 2k+E*,7HRHR6FDR6"d6],OL DK <Jy, <J|,
 $ DJ 7 U2FC+E= &.& FJ*dE: <J~, J( <K,
 J ^ F."& $ F1! D*9/$d63 D6 <G,N5 
 @K *9/$d63 D6 <G,N8 $ @$ $$ KK D6 <G,Lr @ @ ( D" $h"
j
K
 6NKH Hh"
j
$
!(,$H H&$(#. 
6  J g.$8&EU:*9; 1!+ED 6' DX 6kZD*9 & F &<$.J ^" H6 <G,7# @ (<$*9  ," H6	 <G,7# @K3 6+Eq:+Ef *9h( K@(@ H ( H6 <G,N5@@ @X ( H6 <G,N8 @ @> & F6 <G,N567@ @: *9 & F6 <G,N867@ @3 *9":.X H2y"3.> Hm+F *9 ( H6 <G,N5"@hXH HX ( H6 <G,N8"
J
h>HH>X/:H2y>/3 Hm *9hX(
mj*,J J0$(#.$*#.
J 
 g3L6 +F$ 
 g2L7+F 
(g3L6 +F' 
(g2L7+F6`X+F/ &#$&. *9(  K Hg &#$0.J *9(  K Hg+F6 &#$&. *9(  K Hg &#$0.J *9(  K Hg*dEe 6EZD*9 & F &<$.J ^" H6 <G,7# @"(.*9h(	@" H6	 <G,7# @K3 6+FD:+F9 *9h( K@(@ H & F6 <G
 @ *9 & F6 <G
,N8 t\ ,@ @& &$&#. *9  ] Hg*dF7 7	 <K, 6+_FTZF &#$&. <K,
:; T+FW,*dFT,6kfX&2y(6 <G,N5 
 @#; *" J6 <G
,N8 t\ ,@ @) 
)$*#.
#; 
6  L(g$&#. 
7 Jg$(#.J J g*dF\ <K,, 6W (@@H &@@F2F+F~ <K
, &( <K
*dFv <K,, <K, <K,
 C3D6c+G <K,,+7f7`M+G <K,, <G	,
x	6x	6x	6x	6p6	6p66x	6x	6x	6x	6x	6x	6p6	6p66x6x6x6p6	6p66p66p6	6p66p66p66x6x6x6
x6
x6	x6	p66Gp66p66p66p66x6	xTx6	p6	6
p66x6
xTx6	p6	6
p6@x6	xTxTx##x6	p6	6
p66x##x6x##xTx6
x6	p6	6
p6@p66p6	6p66p66xTx6	x#"xTx##x6	p6	6
p66x	6
xTx	6	p6	6
p6@x##xTx	6
x6	x6	x6x6	xTx##x6x6
x6	p6	6
p66xTx6	x6	xTp6	6
p66xTx##xTp6	6	p66x##x#"x2mx#"x2mp66p66p66p66p66x6xTx6
x6	xTx6	x6x6x6x6x6
x6
x6x6x6
x6
x6	x*Vx6	x6p66p66x6x6x6x6x6x6x6x6x6x6x6x6x6x6
x6
x6x6x6
x6
xDx6	x6	x#6x6xTx	6
x	6	xTx	6	x6p66xTx6
x6	xTx6	x6x6x6x6p	6		6	p66x6p	6		6	p66x	6x	6	x	6x	6	x	6x6
x6
x6	x6	p6|6x6
x6	x6	p6|6x6x6x	6x6	x6	x6x6
x6	x6	p66
x6x6x6
x6	x6	x6x/x6	x/x6x6	x6x.x.x6	x6	x.x6
x6
x6
x6
x6x6x6x6
x6
x6	x.x6x6x6x6
x6
x6	x6	x6x6x6	x6	x6x	6
x6
x6	x6	x6x6
x6
x6x6x6
x6
x6	x6	x6x6x6x6
x6
x6	x6	x6p6a7x6x6x6x6x8x8X3'X~3-$7(E$&$#>$J$6$P$0$3$R$G$1$Q$*9(C@EX933
0w0#O$*M(T$2(OX93T
X93`$5$z($*X93cX93s$7X93t$("$*$@;$z($*X94	'$z($*$~($*X940
00 0CX94=
X94I(I(1X94I(K(1X94OX94V$1|X94rX950 000@#[$2e((a(2oX95X951616	(*V$ {( $ *$({(($(*X95X950 0;0<00#(X95$X95#X95'0 00X95.0 00X954X95;(70 CX95;(70 CX95;(70 CX95=$}($*$z($*$z($*X95\(KX95c0*,0*-X95j(gX95kX95o0#0#"X5qX~5x(CX5yX5~
	`Z(X^. >X.~(3~+K!	~+K,Z. \x <x*<x .ez+K(!"	b+  "K)	b+Z`.Z. h+ggM?}
&K.	b+K,
?NO CORE AVAILABLE - CAN NOT PROCEED
!*KP**,^,~*x,> <KP*<KR  pZ@KF`|+K:Pw,~ "p h a`~+K@h  ``~+KA$L!KBdL/"+K;P,~@@@ @@0@x@@@`edX91,>P,K5!"QBKF <KF,+K3SMI 1,>P,K5 L	+K]_MI 1,>P,K5 L
 BKF pd"~l"
 BKG!"GBKF+KrI5R1,>P,K5 & L
 BKF*\Kq pd"~l" BKG*\Kq p.&d"~l"$ BKG*\Kq p.&d"~l"
 BKH*\Kq.&Sp*\KqXp BKO@@KO L
 BKH(FQFKF <KF,+K3EV4i91,>P "Kt+LS,i@1,>P "Kv+L_,i@1,>P "Ky+LK>21,>P "K{+LK>401,>P "K~+L[<I71,>P "L
&L@)@. 
"5BL
&L,~.
.4SEQIN^LSEQOUT^L	RANDOM^LKO
%0 THE FOLLOWING ROUTINE IS NOT IMPLEMENTED IN FOROTS: 
C~01,>P#p2`L#+L!4@L+"`L#<@L%,>^<L&,Lr,^p+~@L%,>~<L&,LW,^7!pL$,~L$,~+PK.0L&@,~F0~9~jY~jxL%ACOS,OF~ARG>1.0INMAGNITUDECNM`1,>P#p2bL;+L8"pp+L;4@L6c@L:,><L<,Lr,^p"BL:,><L<,LW,^,~BL:7ap"`,~+PK.0L<@,~ 9~j 0xL:ASIN OF ARG > 1.0 IN MAGNITUDECR
M#p+Lt  ,~>attempt to take SQRT of negative argKc3@ p p+MKc3K  ,M 
,~Kc3J  ,M ,~Kc3I  ,M ,~Kc3H4BM'5@M5"M&+DK.0
MU ,~,>,># $)D/$@,>4dMX $(F) + M5FM5"M"` ,M=+M%#  ,> <M(,N,^@,> <M),Mc,^5&M%+PK.0M*,^,^,^,~! ,~xxAttempt to raise negative single precision number to non-integer powerKc#@ p p+M=Kc#K  ,M= @,~Kc#J  ,M= @,~Kc#I  ,M= @,~Kc#H4BM`5@M@5"MJ+DK.0
M?U ,~ DM`!$ @M_ BM_5"MG#`+ M\,MG!"B,~+ MK(BdB+ MK5BMF  M`,~ +7`M_+MS`d +DK.0MO+DK.0
MOU `d @6 M_+MJ M_`B"`+MJ/Maid +MV+DK.0MO#M_,> <Mb,N,^ @`M_@,> <Mb,Mc,^+MPU",MGM_+ MK+MD! ,~xKc1,>P p3"M+Mi3bM~+Mk+DK.0
MhU ,~+DK.0Mj  ,~ DM FN@@N%"j"%M})/;`:XDMy5fMraF+Mr.&@(|h&fN M|M} M| NM{DM~@ M N,~!t0_'"S'qf!um.	.#Y% !vyO^	RXC2|t(1,>P p4@N @N,> <N(,N,^N,~{e^bC2|p1,>P p5`N
4@N+PK.0N)#p3@N!+N 2 N%+N3`N&+N@@N' N!N!+N)r. !N&N$ @N'(|h"N! N" BN' N"N#N#N$N'N',~+DK.0
NNN%,~,~0i/X36P'Ms!hhyI^N*VhPN`@N6P'MP'M]oxxNAttempt toNtakelog*ofnegativesargG?@1,>PpNPNP++N9g&t@1,>P>pNP+ +N9G?1,>P pNQ+N9g&p1,>P p BNO#`3bNN+NK DNQNQ3bNR+ND%"(D?d$ "@($)B
LbAnhfc"js|w6?Fb/5f
nS@Ul8peg:h$}StOR>QD"D"*U**U*U`*U*UjU*U+pFo{^KO9&o{^KO9I~01,>P Ng* NlpNh+NtINM`1,>P Ng* Nlp4@O@lNi5 NwO@Ni Nl`Nh2 O+O2 O ,Nl`LL@Ni4LN`L.,0Na7  Nld
~ZLNi3`O+O
@Nl0NR ,0NTF0.,1lNa+O@Nf6@Ni+O@Nl6@Ni !
Ng*,,~4LONf+O ,O(Bd ~)@7?,O3&O+Nzd ~l (BO@NhNl+Nz 0 sL#B6 0
 pIad@ &)|h$FO,~Iae *)|h(FO,~Iae@ .)
|h,F
O",~Iad( 2)|h0FO&,~Iad) 6)|h4FO*,~S1d@,>_({5$O.$hd$~)w27 "`,^,~S1e,>_({5(O5(hd(~)w27 "`,^,~S1e@,>_({5,O;,hd,~)
w27 "`,^,~S1d(,>_({50OB0hd0~)w27 "`,^,~S1d),>_({54OH4hd4~)w27 "`,^,~g:9d@4$OP`fmD+OT AOU,~$`fmD+OT"KOU,~",~`g:9e4(OZ`jmH+O_ 
AO_,~(`jmH+O^"
KO`,~",~`g:9e@4,Oe`nmL+Oi A
Oj
,~,`nmL+Oi"K
Oj
,~"
,~`g:9d(40Oo`rmP+Ot AOt,~0`rmP+Os"KOu,~",~`g:9d)44Oz`vmT+O~ AO,~4`vmT+O~"KO,~",~`PY\PQ<X\P*+6P6`PS	YVBG9PG9P
GJPGK/KP9jVO~9jVOz9jUO~VOs9jVOo9jUOt	0Oa
tcIO'PU7tcIO'O%
tcHO#PU7tcHO#O!f'OPU7f'OGNg#O
4|kOF3^cNh
W@
VL` +$Ni
BS	YVBgetjOgetiOgetVO,BN,ANzget-Nz,ANw,@Nt,RNr`2vNnPU7MI@Ni	NZN\N^N`NaQLNRQKNTQJNVQINXu
Nl)I;NbwkgNj,RzNRUNO9*NO9)NNv*N19LRN89%9NP7)NN7(NM7'NM7&NLJNQ5uNK5bNJENDEN9
KN
fNK|NMk~ZMcc	Myb&Nb%Nb%MzM0M~/M~/M}.M}.M|-M|-M{RMSQvMr~Z|pMcNX:GYXpX2M`pX2MpX1M
~JMJ'GMJ
~JMI
~IMG
~IMFS	YVBSo&B	WGM@.GM4.FM7.EM:.DM=.VM=	WGM2PU7RMSQTE/8MV~IzPM1NR:JYX
."eM."vM	WG"MRMSQTE~J|0MG
LaeLtTvFL}aZLyaYLxajLrP3?K~LrBLqLpLpDALYDRLWI;LkI:Li]Ll]LkDR|pLW%9zLO;-9LUpX2LUpX1LT
4NL@4N}PL@l	xL8TE|AL:|AL6|RL*|R~L*x?Ll	xL!ex0OUlrBUlr[ZYYXpX.K@pX.K;pX-KApX-K:9gK5pWbKP
&u^
"r:^`Krl5mK]A*K[:
(Ky
8@#xLlJKXe,(KwS	YVBDfK~DaK|
_
GKacl`Kq
8v:KtLcLt(BKF)4zpK3\6.AwBP@VKV4PbXlVkBI
YPbKYYYh[|ggMA
JTUR/}F
/|N	@\:T(q5vX_<F

zR(TsT	`u6
(J"K.
&*
 R	WJ
>
_Bb
_2v	^,6RW	`
K^
2b
2RYmtL(bIzK)	(R7h0`6h06h06h0^6h0^6h0]6h0]6h0\6h0L6h0K6h0K6h0J6h0J6h0I6
h086
h076h076h066
h066
h056	h056	h046-%;2!@~I;Hw<3kH2oH
WJH
!E*uFW=k7A4	9KIOHy < 3H1H GGsosGO7A {B		tJ(
kJK
!/E*u3Ka8oBSIcHz 'HT4H0H
 [Gut_GQKIa!B		uC
JN
!CE+uGF\	naA-I?9sIwHv ;HVt?H/+H o?Nts@8A,!#G/	u'C
	JP
!WE,u[GnA>gA5k&I2>IHu OHStSH.?>a!?Ou@8sId!7J	u;C
D*
!kJwuoG
2a;}
Bx
]!E{u0A5o&/II>sIHr cHRtgH-S>m!?TuGE
D+
!JyvK
aA]]DfCIL?I3Hq wHQt{H,
'D0
"J|vFvA@	\aD%D}RAFP!#mG&W8?I
;JSb?E:v+K
w-m7n!<`Ef!$G&k8$?/I
OJVbSJ~v?K
GaBvDpE&8&?CIC
cJXbgKvSK1:A3SAAuaDB'E'''F~'8'?WI
wJ[b{ED{?K2+A3-?!>3GHWAP'B*	{C
J]cED{SK 82V0A3@u!BWJAEOE0,I1?IHl&GHPusH%7IZ&{GlzG=kIq'/B+	{3G,
DKc#G{gK3$@A3I	uA6aDVcE.,'I0@IG+
3DVc7G{{Kta?3rPA3TAD?aF9wFY,;I/z?I
+Hj&oHHzsH#_?'#Gb{'G;AS'WB,	{[G*
J`cKGtA<4@`A3`
!CcAEG	,OI.zSI?Hh'HG{H"s?'7Ga{;G>AT'kB6	{oG)
3D^c_EU!>D5pA3c
Aac!Di7",cI-zgI
SHg'HF{H!_H'KGd{OG@Iv'B6	|G(
GD^csEeD'XaFT37,wI,z{I	?Hf'+HE{/H sH'Gf{c@V'Ix(BB	|G-
[JchEe!->E-I+{ISHi'?HD{CHH'sG]{w@W;I{	h?BB	|+G.
oDchsGA3tbAB,|!Dq37-I*{#IgHc'SHI{WHH,G\|G7OI}	hSBY	|?G&
JeiG&aAIoA40|DFGI8-3I){7I{Hb,?HC{kH/H,sG[|G6cAd	hgJ	|SG%
DziG&A>MJ=2A4={KIHa,SHB{HCG-GZ|3G5wAd	h{J
?G#
+Dzi/G&!8%E@gK0A4I{ABgPaE
x6pA5~o7/23I'{_I#H`,gHA|HWG~-GYG8J	iB\
SG"
?JhiCG	{!AOKY@A4OPAD[yA5q7#2GI&{sI7Hd,{H@HkG}-/GX3G:J	i#B\
gG 
SEiWG{?oL'PA4VaDFFCySA5x7.2[I%_IK;q-H?HH-CG^G@e3Aj	i7B]
{G
?JjikGza<Lu`A4r
AC>iaE=z! A5y+7#2oI$sI_H_-#H>'HH-WG`[@fAj	iKB^
G
SEiGzA76&q823>u
!AbMCpA5iADk?753I#IsH^-7H=;HGy-kGWo@f3Ak	i_J
#J/
gEjF'G>s@rNA5i!D7 AFrS753I"H_H]-KH<OHGx-@@gGAl	isJ
7J2
{JmnF$[A3?763+9)/H~sH\-H;cH'Gw.@G4[J	nJ"
KJ7
JooF7A7f'-97oAVhaBAO. A5ADtS7;3?9)CH}H[-sH:wH;Gzn?GT+G2oJ	nsBj
_C~
#Eo'F82A33	hAA"Afb$A5!DOgI63SIWH|<2_H9HOG|nSGU?@qAt	oBk
sC
7Eo;G,a>OApCybr A53!F/{I58?IkH{/<2sH8HcGvngGRS@rAt	oBl
_D
KJroOG,A;+An
aBtc@0A5#WE 7I8SI:kC<3H73HwGrn{GM?G1+Au	o/Bl
sJ:
E!ocG
AAZ?Azd@A5'VaDc #I48gI :lW<3H6HGooGLS@x?Av	oCJ#
J=
sE"owG
!?sSAxVAD"d\PA5.L!FD 7I38{I!:okHX3/H53>>Gno#GKg@xSJ
	oWJ%
JB
 _E#pFT<)
_A
aCBe*`A54pE_ K7`9I:oHZ3CH4G>>3Gpo7GN{@y ?A}	okBw
/D
 sE#pKa7E
AB
sB!expA5;oaDn _7`9#I'HxHW3WH3[H GqoKGJA SA}	oBw
CJE
!Jtp3FV	qG3+E?3P]3o%!3[3P]2&aI2y[Az2sP^2s`rO2rVh2rP^2qQ@2qVi2pP2pQA2o:	2oVi2n32m52mP2lQA2lVj2kD{:2jT
+:2P`2QB2Vj2QB2Vk2H@1|1w1"[u1"QC1!Vk1!I1 g1*W*VZD*VQC*UVl*U>#X*M*MYt*LQD*L0P+*:	*9
#fW#ePH#eTu	#\9#WPI#W0#PPI#Og#O#JPJ#JVT#It#Ib#D#>g#>PJ#=##=Q,#<VU#<#;_e#7PK#6#6Q-#5VU#5d{#)>)#$PK#$}##X##a#"Q-#"VV#!#
\jqUPLTC3TQ.SVVS+EFRQ.RVWQ'3EGDY-C?];J7P67U6e6544P64Q3P732Q2
Q/6;
.)Ur,%gQQd76ta10>(,1'5
	V}tcQ%!MAxMt&a]nXm=;HU5TT%=S'1DrWf`CcC	A@Pp@R?*%|;Pq:o%!:HA1.?'
&k&Pq%ZDiGF9cPrcV|b
bPra%!aV}`Ps`V}&aIYG8\B:/\>X\>5'\7N+\2g'r'I(\)8*\)7\	\	)\+,\6.\.,[rO.O[mNO[mO[m	O[l|[l{&O[l+O[kO[kO[j]O[jRO[i%r%H([Z[X%[Qgr%0[Ms/[M"-[M	+[L,[FG[@v*r#eOD^w'dw]!+{0