F4.0 c;@^COMPRQCPXPRDATAPDBLPR DIMPRkENDLTNEQUPRER.R0 dEXTPRFUNPRCINTPRLOGPRNEXTLMPROG p@RCOM REAPRSUBPRE<.AT. .INT.AA00 AI00 CILN CLNM CR00 CRTSTDAF00 DAT00 DCEFG DIM00 DIU00 DPOVFDTAFGDUMCKEFG EOFF ER00 <ERCM ERF ESC00EXEC EXN00EXTF FA00 FER00FNS02FNS03GNA00GPE00ICH00 IDL00!IDN00"IDNID#IIV00$INM00%INTST&<ISY00'MAIN (MFL )MPN00*MPY +NSUBT,NWI00-OC00 .OLR00/OMR000OPF 1OZ00 2&PBUF3RP00 4RPL 5SCC006SFF 7SLF 8SOA009! SPF :SSB00;STRF.TCTST?TP00 @TS00 ATV00 BUC00 C;`jF PAGE 0001 FTN4 COMPILER: HP24177 (SEPT. 1974)  dDtD;`a9;Ztd4 dt d,( 3lL LZlLTjZ, t֬ ,`Ht/tdd֬+`TpR dmT,|,|~,dLtl|Lڜl|L;`b?$H,d%Jt%A,Zd,d , d ,`dX,P0dt)d~,0<``;ZZ%dLT,&LXT)X,&d[,-d) lXdU ,PZ,_Zdt>"dmT^,:;`^8Z<P,CZdWZ,Cd\dLtWd]la ,KdWtL,lw\V,-Y,-;`b VBp  SOdmT,ndi,ti,Ht %Z |dvtdtdL;`^xt,dXTjZ,ddclmZ\dȶdtSdtTdtUdXdttX`Jbl|LdjYddt,b`Ab6;`_ dXTjZ,B |Z&dlJ d+L+RLd+, ;`^`"`t'tt)ttttZdml ,TڬTT,ްPdRd'X,,$:`^'dwT,dZ' dt)Zljd,dLHd-dLHXDt, "&dla ;`]-d',,dLl(L<dT*,dmT,d)t4dSD+,  TL,$`Gk  \k,, , 6`]( /PtWDF|EtaZdUtXdEUZt[dEUtZdLlL-;`^:F ZF<ljL|k\i,kJHt  T,,aCd{tdZ,g%dLtZt,j T,,W2`XS6dZdfd|t%dLt|dt|dtd}Xlw\~d~ ti,_g:`^+}$ F\,dZdt1 T,T, T,T,,d1T,<xdmT<``t,C,, dX,),dl1\,dtdJ@, |1, dZ,DDt)`XLMd,LQ,L+@tt>'P'-@6<`^ωԶdtL,Jt-d dXTj,d5ld0dDtdXBtLT;`] ,d<|Zdtd>tќҢdx,l;T?,dAL+|d@tt ;`[@dlm\dtJdwT~,vdmT,4T,ETP,Bd=dx,<``}*Zt dmZT,-4T,,tdtdєt>,Q x, ) d,&t}d,;`\JdJtd>tPt϶dwT~,|dDt,Z d~ dXTj,aB,fd5¶ld0;`]f dDh<,|LKP/d5tN;`\1DtM T,dtdLtdtO ZdmT,$tdt`KP,tdT,d;`^жdLtdtLZl@Dtʶl|L hDN|NL`ZDO|OdmZT,4dmT;`[1 ,T,,$Zt}u,"dmPT, T,dPtζdt,<`\( ttdtdζtPdt,dmT,4,d,"tdx,",dNDO;`_%ZD5t5,SlQL|MdL,PMtLlN@DKt dXTj,B/d5l0dP `Fr$DDLtLLM,+<``)PXTdR, , l}TVL+dW P`D|,]dmT,lDxtxXd~|d|T<`[$p,h<||TW,nUlAT|l~|TV|,h tdL,tlQLTLL+%`R<,l ,DMtMlZH,dLM<L;`_! dtL,dwTP,TԶ,dXTj,dwT,d5€H/ 2-@,d   <,0#+t7;`_ɃEo ,JdBZd%#lL|lL Jd) dmT,dmd5tc؜n;dtQ,*<``d@l7dc t{d5tf,\!~o,H d*,}\,tP, d]"#dmT;`\,T,, dt,Zdm\,< l\,,"dS<dmT,T `DP,T ,:`^YGHJttHtDQtJ'lwd\d\dXTj,:dvZJLJdL<`^)xL+dL+|J|KdmT,d5tGd,?tLdQDtJdL ,",d?,:`^$,dla ,6dWtFdL,+dH,dJDtJTK,d,?dGt5 T,/<`_ĔJ,lJt5L+tLL+tHlW|I\F,5/lI\F,5.dDHtHLL|L ,;`[IbdJTK,dmT,,dmT,Zdv,*dmT*,1tL,dStL&,d9lG|5`R9IdwTP,Cd5/ 2-,%`B@M$Ob:`m dDABSdDBLEdDCOSdDMAX1 dDMIN1 dDMODdDSIGN dDSINdDATAN dDATN:`m_& 2 dDEXPdDLOGdDLOGT dDSQRT dDDINT TCMPLX TCONJG TCSQRT TCCOST:`mI CEXPTCLOGTCSIN$SIN $COS $EXP $TAN $SQRT$ALOG$TANH$ALOGT $:`m FATAN$ABS $AINT$FLOAT $SIGN$SNGL$REAL$ERR0$EXEC$CLRIO IOR '`]\" sIANDNOT ISSWIABSINT IFIXISIGN  OF4.1 bc@jDEF00EE00 GAD003GIM00GST00PU200<s.INT.AI00 CLIDICLNM DAF00DIM00DPOVFER00 ESC00 EXN00 FA00 FNSEE II00 MOVE NSUBTOA00 OAI00ODF00OMR00 4OZ00 SOA00;`]i"ND<<,, ZtndtedQtgtithttMtltttt!<`\Z̶dtdlln\\tdWtdftd2\U\ |ln\,a\,%<`]5\,%\,%\,dmT6,%d" جlm|! \7,\9,$d!T_,T6;`[,T8,,dt"l#T!,L#<", <PtW,% ,%lm\7,l |m,;`^  P lm,Jd!T,\D,dL\6Z,:lX ,?lm,L(+,-lX\y,E\C;`\kv>,EdA1NO4idB,\6,adW,Ud!\D,\T,\,{\8,{\<`\ Z,z,TD,,=| laZT ,%d`d!T,d6Zt!dW,%lm\7,\9:`^1v,,%Zdx,$P*\, dTm,tm,dDtm<PPl |:`^\m,T,lL#,d5 )\_,<,<t|0L , `E6|,H 1`Aa<`]˚dT,T,lTLTL|\,h ,|L i ,|L PdD<`]z۠ZDdbdD,d,4,HdmT ,=T ,dT,ln;`^S\ ,\,,,=,dT,T, ,=d)  #Zd,d;`] Tn,B, |li|d,%< ,tL dXT<,.,Мdb;`[3d,dnT,PT,P,ln\\i ,H|L ln\,V\ ,i\U<`^=N ,i, ,Pii ,adlTddNdTdi ,o;`ZAldlTxT(Z,T2,yi,}td2li dldT,T(<`[qG,tdT(,¶li ixdT2,T(,T,lTl dilid`Itdl <`^XTr,T(,tdrT(,li Hhid7[H<`\tɶdsT2,TlԶTlTli)-h3 [dsTHdsT2,<`]TlTlT˶li*6Z.dh3:T(,fHdsT2,T,<`]i dWT, dLZD,dsiildsTli|bBC6Pd<`^l[HdsT2l3Tl4Tl5Tl6i$$+/[dsT2T;`]8=HdsT2,NTlJTlKT˶lLi7,&0djd ZdWlMiP7<`^zZdrls\2,j\,o\,v\,dh-ڀ T2ln,"& T2ls,$D'( T2;`\EJxltTluTl~,#"$% T2lTlXTl ,fdsT,T,drT,;`[tb,|bihPd"lSXTr,T(,Hl\d;`^\dhT(,Zd8HdZdsT,7BdP<`^ͶdsT2,T(,ٲdd,dd<B4dsT(,;`^axT2,ddBddTr, T2,T(,;`^ 7dsT,d4lbdt21Hls\2d'\(d&h`$<`^'T0Ytd+ dWt*t)T%,Pd"dln\,El\,H\,H;`\WEl,el d|bZ,gd\R,pZd,X,QZd"ddT#,eda;`\a;dd<tbldL|dld\i,,hZdT,_T2,zT,bHd"d:`^}Z\R,lSd,d"l|s,d,N `ZpOdWt0t,dot-dp:`^/ Pt.d,d`Z&li|/ ,|L dlX\/T2,T(,;`[td2l/ </Zl/\d,dTM,l0\dM\d\˶dtSd2 d;`]DԶd\7Plbd7tbl(|sB;`ayJtbixHEZZdsT(,fT2[Tج[[dh9;`[kdsT,uT2,u|bi綀hi ,dlT,ZdNT,ld;`\},ddNtltMx6 |lM Զl|LT2,T(,T,xd,`F.DllƠ,;`\1MtLt|ƶtT2,T,TlTlTll,01t!dlM<`\tMtldT˶,T,άlҴdlll\,,d2tldL<`\$3ddNdLJTrT,lr\,T2,\2,T,\,T`K?Z,tx|sli,|trlh ;`[W t|| |T,T,|dlT\2, dt,"l; |;`Z$dT2,3T,BT,QdT2=TlUT>,XdT$VFEIdT2lATlNTJ,XXYAHGdT2lOTlPTK|dMJ,i;`]\ZK,i\U,i>,i<,j=,j,mtdL l l dT2,d2`W6y=,ld>,d lLd dtMdtl <`\ZdMTidM,Th,ԶihihditM,lM Ԭ;`\%|htrڬitsڬ|LdlTdN tW lW\tWdW3`Zn PtW D|tadtXdt[d׶ZtZdLlL;`]LKktkt|    |i\k,|M |hilsP|llMLh;`]- l  Zg L  |i |h |M|l <ljL|k\i,k;`eZ#L|Lj|k||l1#e=+ - * $/ 7** XOR$`ZvHANNOLT LEEQNEGEGT  F4.2 c EXEC GNA00FID00MOVE OPSY PASS1P1ASC;`\fZd,dytMdztld{tntrd,dDt$d 4twd4;`^˶td tv$w v6u<udtdt l|rZdtt 2dpDtd;`Z鶊tk9l ,lc| dktrdt2dtnddtpdtldtop ,<`ZQdtm<oƶ<o<m,@<r,doDtodTnF<p<l,dtpT<`Z,bT<ppDptqpT,*dq,<ppZ ,(dDt<pdpTq,:<;`\7p,2<r@dtƶdTnFdp,Pdr,~DrDtl d<`]&SDtdDrPL \,Yt 2dFZF,~dttrdl|Pl \<`\mpPd,ml  L \,wt rdDtd 4twd4td tvdD;`\?tldZL| |td/d̴ tD ,duT ,<u,<`[&dDtsstv<sst <ssZ4twtu,lHDtxt, ,A<`^;6ödxt,tlP dt|k Z|tl 9|d<t,Zd,dT,:`^ωZd,B,$yz{dz4tzdtldrLdDdr<`a ,!d|T{,"<rdyt~dzt}lLPdy dzB d{$}~"|t|;`c $<r-z$y|<|$8w$ 9vu/k <k\9,:<<`\pC,<ltX,l@t d,glLldk<k<kkk;`Z+_<kdtd,nlLl,X ,pZdt<dTx,<,;`\ytdt<dTx,ldZt |T,lT dȠ DH <<`Ztttl \\tt\|DtӠt;`ZD |< ,|dt _LT,<ƶ¬l| _L;`\#ɶ| |,<| P,,EdlL|Ƣ|tìלl| d;`cTD   d,4t$ Dt4Z, ;`^u  dl\,L\,lL|$dt؜dtLt;`\&,NL,%duT,JT,JdLD,JdZT,>dwT,J,TdX,JT<`[B,Tdv,TdwT,TL4L,%dTtL,dT,`dLtdtd)`W]l,%dtPl,,X,%:`mhu  :=@;`m@ C R |C $Z<u$$%13b$!r$S T $  8 9 <<`[ϮϴZ,cd,לڜtdLDutd"tklLLߜlv d#d lw\d lX;`Z\,lv dt \dWlZ\,&dlW\d\d\d\dl|l'd<`ZJl \\dlw\d\dl|l(lX\,dal \\dklw\dk,&du\<`Z,&l`\d\߶d\dl|l%d!tkd'\dt_<,8dtt;`Zx8L4LlL\,OL|d|t<dtkdt_nd+tkd;`^#Rt_nd3tkdt_ndDt<d ,g<kDtm_;`a3p$t߬n{"tɬu6~~~~ҶD<d;`dQ ,l  Lذ|4Zdr,l|L$F4.3 ,;`\hc <, dT,<ƴZd*tDtdD<ǶlL \,;`^Q|Ѷ<2<ǬdDkl t<dt&:`^- ld  |4Zɬl|l|d|t<dtɶl|;`\ $lLZ|dl \),ldk<k<k<k,t ehT;`[;)Zl$ e0t elŶL,#s,|l| _,ostl,W \,D,>:`^cDPl @Zt T,Tl\,T\,E,F ,d@p@@pDt,U<`\b,ksƶDt,lŶL,lLP,9l,y ,udH L;`]8~ d&tkk<k $s,dts,~l Z,,lH|T,lL<`[Z,hdk!D t d,<tdT<ldk!<k<kk kl;`]|k,d,Dllkp ,L ״Z<kk`<k,۶ T,,U;`]Ӣl ,LkPDl ,l\ | ,T,Zdl Dk,#Lk|;`[UDl dl D,ld$d!Dd Xt Xdٴ<ü<`\F d Dtȶ<Ŭ"dtd<l|Ģ"t#P(t#$(;``g'ڬ!%dt$%<,,(d,<< 4Z!,C$C ɬ2l;`cG&IO$׬rd,adtP`B ,D6 <,Z|͢,lcl Z|t;`` jctdtѶdtϬPdZ,y`ATݬrdTr }$d,d<`a6YZt`B<lXN ,P <,Lݰ|&d,Dl|l\,X,D/`_)5@<,lPr`Ag:`m^@D  "#@AB  0*+*-:`m)+20002 @PX `@C R X L$$9$"$)^ K T$ U Y \ ^ b$ i s } ,:`mwy, SYMBOL TABLE4 NAME ADDRESS USAGE TYPE LOCATIONXST:`mq\YATEMENT NUMBER bSTATEMENT FUNCTIONlSUBPROGRAM  vVARIABLE  ARRAY(*) :`mX ARRAY(*,*)  ARRAY(*,*,*) DOUBLE PRECISIONCOMPLEX  INTEGE8`kR LOGICAL  REAL  EXTERNALCOMMON DUMMY LOCAL ;`]جt'd ,d,l|l( ,l||ն &<d,`AT<+`T?Zd,t <t<<ڜ'<<, :`m d-JBIN OVF$r~P$rDdlt4$T,  :`mQEOC ASC ,DE BS OR AD LD LD ST AN IO XO CP JM JS :`mrDEF 0, CMA,IN SS SSA,RS CMA,SSA,INA,SZA,RS CL CLB,IN SS LDA 0, CM CM CLA,RS CC:`mBA,RS CL CC SZ CLA,IN ALS,AL NO .FMP .FDV .FAD .FSB ..FCM .MPY .DIV .DLD .DST:`m .DTOI .RTOD .DTOR .DTOD .ITOI .RTOI .RTOR .XADD .XSUB .XMPY .XDIV .CADD .CSUB .CMPY .CDI:`m-V .DFER .CFER ..MAP .ENTR .DIO. .BIO. .XIO. .RIO. .IIO. .XAY. .RAY. .IAY. .DTA. .PAUS .STO:`m &P .TAPE .CDBL ..DCM ..CCM .CTOI .IDBL .ICPX .DCPX .DINT .CINT .GOTO .BAD. I.R.L. C.D.A.`B S  F4.3 cTEXEC FID00FID04MOVE P1ASCPASS1;`]| dDt/0dDlL Z@,dtdt D tDtPDD!,<`]+̢dDD",dD ttڶ,l \ ,Z Dt<<<,;`fdDt, ,>,,$#$, PROGRAM TOO LARGE - CROSS-R<`gREFERENCE ABORTED@~ l  L|./4 #dlt