FTN4B uc<G.INT.AI00 ATC00CLIDIDL00 ER00 ERCM ESC00FA00 ICH00 IDN00 JUMP MPY OA00 OW00 OZ00 PU200RP00 TV00 ;`^[ZddjT%,dT#X,T$,d"Dot",̰PdTdtdD<`a L$ZdkthtldhtktlGHZtltt1Dnt>d;`[Zlj\d\&dT$,dfDZLdeL9doL9||dT,;`\h#d"tdXtdnD6td ,@ ,7t&dX,/Zd8l ,dtd;`\?Z,zd,XdD-tT,llt"L9teL9t lZ|\,#l\<`[[,doDtL| ,@dT,ldT,/dXdt" T,#,d;`[VvT,df,dZT,t,@d|t4,/Idl|"djT,d"#`J ,u;``(*,/Ple L6ЬdT$Z,dr,lqX dp do |o ,ݬlq ,<`]ǿZlp,l<,l=t|Ptt| d,dD, Dl| 0t|<,dl`MQ<ڢZL ll6|,d,<``FEd|,Xd"d2ڬdd2l6d5WZ<kd;X d1;`` XCd*lj\&Zd3l,|e|dc |Pl!| ;`g) %&'0@Odt|, TW ZXtPڬ>G;C@ @,OdN;`\hPd:l\"ZGdd0td.tdtm,}dT/,_<,id)ld)`SlZ<m,etdT,wT: tttWd(`M"dotd4t<<,:`^dT$, | d+lL dlq ZLdp LdoP ,t;`\ǢtdXtttd,Ѣ^,CdjT&,d,tld,貀ded"<`^PʖdeDt,d,,deZlL<dT7,dT,d|D9,`K  Te, \,, ,;`_b"'/d* 4d'l Zd|l |Dktk |l `DsP|l<``ڠd"td"J de0Z #d-l\. 'd3 Dj/dT"4<`b8 d:d;dAX BBBHdNHdOl PdPT7`[ZXd]  d^d)ttttttd dmdXq FTN4C c3WBUF%AI00 DAF00ER00 ERCM ESC00ICH00IDN00JUMP MOVE OA00 OS00 OW00 OZ00 RP00 STS00<`]09ɢdtD^tD`tDbtdT,T],,Rd^Ple te4<`_&$ ed-t0l/d|P, d}P, d~,),   <0,t#l<`[ , dele|ܴZddTh, d"tdgtidtn,K;`f @l#dd tgd"t,d.<'U 0DBLE CMPLX FLOAT SNGL REAL ERR0 EXEC CL<``PFRIO IFIX PlP LQ d,d^dThZ,_tk,gdTi,iTj<`[ff,i,KDctDbt,{dTj,<l\,,nd|<dTj`G,w,qTh,g,g;``( |e ZdlL @X,ddetd d"t;`^xڬl\,Z|ddft0dlL^ dft0dll PL D kl;`]JDz| d4t|d4t}d׶4t~ddal dk<;`_ddft0lZL]d lL_t  d@l|ed" ;`^;l  lM|e|d  | LZditgd"tdTZT[;`]c!Z<"l" ,UmdeD,2ZleL]X4Ydlj\\dnDgrlnPdf dj;`a> d Zde<gd"d\<"d",UdTj,%dWTP` ;`do_ *+ (,|tmtnDD@,ڬrzzz;`^Tddl ddDktkte4e-`VTdZtje4je|l|l `Oڠdtd"J de0 Z  FTN4D c9 EXEC WRIT%RBUF SWAP WBUF :`^H.9.Z<ʶ<,ʶ<<,d 4=td4=td ;`\/GtDtlAdL| |BdnCtʠPD= ,d<`ZKT ,<,˶Dtd=,lϠL<`Z+G~l,m ,Zdt<ʶdT,<,tdt<ʶdT,ld<`]Zt |T,lT ̠ D?H Z<tttXl ,\,\;`Z,tt\,|DtXttDX |< ,;`[l϶|dtpLd,<l ,l|p,L|Xl |,<| ,<`c,Z  dtL|ɢ|tFT N49 l <, <`[ dT,<̢tDt׶dD< lL \ɶ,#,<+d<`a(<d,550d,<<+dDZl tN<+=d;`fAIt+[n=ld  |XZN$ab[0d:;`]Nol|ld|d Dg,{8,vLh eDi Dj,8,LheeDk Dl:`^yy,8,DmLh 0f<dctNl|$ndl \,l<`ZA3d<<<,tvl϶L<,,|l|p,t;`^jEĢl@, \A,,l @t T,l\,۶\,, N,fd@@p;`\ݱ@@DpDﶊt,d,DXtX,lL,6slL,l:`^l, ,dHHLdt <,dt,l Z,B,1;`\+lH|T,1 lL,YhdDtu,:<tdTM<l<`]_8d<<l|,^d,7dZDllPpP,7L <<`]~XU`<,fǶT,1N,flP ,fLDl ,oPl\M | ,T,y;`arZdl DZ<,L|Dl dl D,vm# <`ZlXdldADditiZd=<Z<dDt<,dtd;`\<l|,tʴPtdtζ<,&`Srɠ 6ʬDܴ<ܬ@ FTN4E c$ EXEC ER00 ATC00AI00 FA00 DAF00ESC00CLIDIOA00 OZ00 OW00 ;`^"eDɶ<<,dT߶,T,3T,3ZT,FdT,Q, FT;`]DAN42 hmdl\7,\,\8,\, d- T7l,? T7l,]@<`^N T7lT8l Tl ,A< ;=> T7lT8lZTl ,dT,(T,(<`[X&"dT,(tŲ,+|d9ljq,mT,IT,Izl;`[=\dE\dD q,4sT,LdK8zdP,dtdtdtdd;`_XPtedD,gda&lL l|f ,s|edl\fxT7,|T;`ZGTw,tyd7lf<flf\,,idTO,hl\8dO\d6\dt|d7<`[c#db dl\dlcllL|l\,ldledôT:`^,zd7t|d l\7,\,\8d\,\dȴ,7;`Zʶld7d6t|ledll||ttl|l\,l\,<``K\,,tŶ,d70D`P`l| Z|e|Zd9 |dtb;`[dtcdT,!hd9ql\,lb\,\,l J,:l  db|;`^<,TH,3;`c>d"Dot",3dFT dtPle LOʬQ|eXL"`\`FVa|glh|lg``Ohڠdrtd"J de0iZ is FTN4H c-]$ENDFERCM EXEC FA00 GNA00ICH00JUMP LWAITMOVE PSL00 WBUF% LPAR RPAR FPRIN;`d/ d,Dl9 L|9A $d,d,,Cdl  <`f0,$E ND,FTN4 d, T ZdkD,=d.T,T<`]U,dk,t|y |kZdttldPT,&,!tttt'tdtndt;`bz0dy,$d8HD P|k |d dltd?\dtoe4me,;`inR C X  0P #Z <\, SYMBOL TABLE  NAME :`m/ADDRESS USAGE TYPE LOCATION STATEMENT NUMBER STATEMEN:`mT FUNCTION SUBPROGRAM VARIABLE ARRAY(*) ARRAY(*,*) :`mD ARRAY(*,*,*) DOUBLE PRECISIONCOMPLEX  INTEGER LOGICAL <`k>9  REAL )EXTERNAL .COMMON 3DUMMY 8LOCAL $"l|+d D;`^ҔIZ,M8,HL |D DZ,W8,RLͶL|D DZ,a8,\DΠZL 0l|:`Yfngt<dAtdtodtdtodtdtod+Dt+B<`aM <+,dt+tn<+,d ,<Dotoo;`d}4B$ݬ$~FTN4 9 6D< `FŠ00d `DeJ0: