F4.0 c;@COMPR@CPXPRDATAPhDBLPRDIMPR_EQUPRlEXTPRFUNPRINTPRLOGPR PROG 1RCOM REAPRSUBPR<3EEIN .AT. .INT.AA00 AI00 CLNM CRTSTDAF00DAT00 DCEFG DIM00 DIU00 DPOVF DTAFGDUMCKEFG EOFF ER00 ERCM <ERF ESC00EXEC EXN00EXTF FA00 FER00FNS02GNA00GPE00ICH00IDL00IDN00 IDNID!IIV00"INM00#INTST$ISY00%MAIN &<ȪMFL 'MPN00(MPY )NSUBT*NWI00+OC00 ,OLR00-OMR00.OPF /OZ00 0PBUF 1RP00 2RPL 3SCC004SFF 5SLF 6SOA007SPF 8SSB009dSTRF.:T0SV ;TCTSTTV00 ?UC00 @;`j= PAGE 0001 (FTN4--RELEASE 24177B--JULY, 1971)  dDtD0`[ݫt,& 1PlL PLilLT^, tЬ ,`Ht tddЬ+`Tp dmT,|,|~,dLtl|Lڜl|L;`b$H*d%Jt#>,ڴZd, d,  d, `d X, P0d t'd~,*:`^ZN#dLT, LLT'X, dO,'d' lXdI ,DN,S ZdmTR,1<P;`_60,NdW,:dPdLtKdQla dKtL,lw\J,'M,'p ;``TO SOdmT:,bd],t],Ht #Z |dvtdtdLt*dX<`^YQoT^,tdd$lm\:ddtSdtTdtUddttXl|L`GYd^Mddt,V`Ab6;`_ dXT^Z,? |Z&dlJ d)L)RLd), ;`^"`ttttttdml ,TT;T:,dЂRd,,"dw<``VٶT,d'J tljd, dL7ddL7Dt, $Jdla d,;`]kZ, dLlL<dT,dmT,2ЬdSD, TL, \k,, `A0T,5`\E /tWD5Z|4tadItXd4t[d4tZdLlL;`^R5 Z5<ljL|k\i, kJ7t T,P@detdZ,V#dLtZt,YT,F'`SbSZdUdft#dLtfdgXlw\hdh t],SV:`^Og$ Flm\:,rdkJdit/TjX,T,tT:,Tj,p,td/Ti,<xdm:`_BXTj,@,r,, d,),dl/\i,dPtd=, |/, %+4<`^͉dtL,Jt+ddXT^,d3ldi.dDtdX?tLT;`]ԯ,dtdx,ClT,>dL|dXtJdklm\:;`^KdtdwTh,-dmZT,2T,Tj,d Qx, Z) dJ,@;`\Zt}dJ,dtdtPdwTh,3dD}t~,<dh dXT^,?,d3;`]Zl~di.dD~hdmT,2,,C, tJdDvt},dD}Tv;``7,$d:()d;d,dxX,Ntd;tPt,U$|-Zd3MLtD;`\WtT:,ܶKdt~dLtdtZ2dmT,tJdt2`INsZ,tJdT~,d:;`^dLtdtLZl@D~t|l|LhD|L`ZD|dmZT,n2dmT;`[O,Tj,,t},dx,նdmTj,T:,KdPtdt2;`[,ttJdt~dtPdt,ndmT,2P,dJ,ZtJdx,,d;`_F@DD3t3,lL|d,@tLZl@Dt~dXT^,-d3l~.`HZd DtL,<``''XTd, , l}T Ld P`D|,dmTj,Dxtx d1|d|T;`[6Y#ڬ <||T ,!lT|l1|T |, tSd,AtTlLTL,Q,`Uk>L<T,;lS ,ODtlJH, dLZ<2dL,P;`_MU dtL,pdwT,WT,WdXT^,WdwT,Wd3H- 0+@,Wd:l6L:`cft ,l ,Jl3-d,dtjtk@d6D,t8t F4.1 <jjd7<j:`^+PZjd7dDt,~\,|l ,| |,ydtZdDtdtPy;`gI DDhL|}d<UDBLE CMPLX FLOAT SNGL REAL ERR0 EXEC CLRIO IF<`aǵIX D"Sl\_,J|_d!d(dtldS, dT, dU,,;``sZ   <,J+t50 , dd޲#lL|lL Zd' dmTj,%.;``ۀd3tc/9dJtQ,*l5d$X t{d3Btf,~0, ddmTj,>tP;`]ӑ=Z,F dmT:,HT,H,dt_,WdmT,`<_l\_,`,J dS_`EyZ<_dmT,S,M:`^`PTj,F,FGHtZttDQt %lwde\fZdd\dXT^Z,gdv;`]~ L dLZLdL| | dmT,od3 td<t dQDit d P, ,;`^$d:<,,dla ,dWtd ,d,d Dt T ,dT ,dT,ln;`^f\,\,,,>,dT,T, ,>d)  #Zd,d;`] Tn,C, |li|d,&< ,tL dXT=,/.Мdb;`[4d,dnT,QT,Q,ln\,\,i ,I|L ln\,W\,j\V<`^EO ,j, ,Pi,i ,bdlT,ddN,dT,di ,p;`ZEmdlTxT+Z,T2,zi,,~td2li dld,T,T+<`[qb,tdT+,öli ixdT2,T+,T,lTl dllid`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[HdsT2l4Tl5Tl6Tl7i%$+/[dsT2T;`^'">HdsT2,OTlKTlLTζlMi8,&0dXdYZdZlNi8 ;`]Y!\drls\2,m\,r\,y\,dkZ- T2lqZ,& T2lv,D'(<`]Jy T2lwTlxTl,#"$Z$% T2lTlTl ,idsT,T,drT;`[,tb,ж|bihd#lS[TrZ,T+,Hl\;`]@d\dhZT+ ,d8HdݶdsT,7Bd:`^&PdsT2,߶T+,dd,ddFBZ4ds;`^-춊T+,T2,ddB dZìd Tr, T2,;`] T+,7dsT,d4Ͳlbdt21Hls\2d*\+d)h;`]'`$T0$ZYtdWt-t,T(,Od#dln\,Cl\,G\,Gl;`]ϦDP,dl d|bZ,fd\R,oZd,W,PZd#ddT$,dd`;<`\a dc<tbldL|dld\i,,gdT,^T2Z,yT,aHd#d\R:`^;},lSdZ,d#l|sP.d,N `p"OdWt0t,dot-dpt.:`^Wd,d`&li|/ ,|L dZlX\/T2,T+,t;`[d2l/ </l/\d,dTMZ,l0\dM\d\dJtSd2 ddF;`^~,Զl\dll,ldZL|dld\i,l-l.dT,3:`^glHd2 tSd1l0\2,\+,\d\, \d ,6Xl d2 <`[ZdtSlLZd1l,l|s|ltMtbl0|Nln\ ,)l0\,)\tb;``L4+ Dd1Z3ls\Z,>\7lbd7tbl+|sBtb;`a %KixHE"ZdsT+,fT2[T[[dh9ds<`\PlT,uT2,uж|bih i ,ZdlT,dNT,ld,;`\[ddNtltMx |lM l|LT2,T+,T,xd,l `Dl,;`\1QtLt|ƶtT2,T,TlTlTll,01t!dlM<`\tMtldTζ,T,άlҴdlll\,,d2tldL<`\$5ddNdLJTrT,lr\,T2,\2,T,\,T`K?Z,tx|sli,|trlh ;`[X 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`W5y=,ld>,d lLd dtMdtl <`\ZdMTidM,Th,ԶihihditM,lM Ԭ;`\%zhtrڬitsڬ|LdlTdN tW lW\tWdW3`Zn PtW D|tadtXdt[d׶ZtZdLlL;`]LMktkt|    |i\k,|M |hilsP|llMLh;`]. l  Zg L  |i |h |M|l <ljL|k\i,k;`eZ#L|Lj|k||l1#e=+ - * %/ 8** [OR$`ZHANNOLT LEEQNEGEGT  &F4.2 8c EXEC GNA00FID00MOVE OPSY PASS1P1ASC<`a P d,dD t$ d 4 td4 td t$ |<dt;`Zжdt l|Zdtt |͢dpDtdt l ,lc| d td;`Z~tdttdtdt d Pt ,dt<<<,@<o;`a,  @ dDtdTQ<< ,dtdT;`[%,rT<Dt54T3,6d5t,#< ,0dDt<d;`[6@T5,F<,><o@dtdTPQ,#do,DoDtl<`_y[ dDtPdqDoLpZ \,dt ~tQ ~ ZQ,dmttod<`]zln|l \t,}l Lp \,t ~dDtd 4 td4 t<`\ d tdDtldZL| |dgdʴ tD ,d4`YF,<,dDtt<<ɴZ4tt,  @ =;`]lHDtt, ,dt,t l d| |̢l |;`dwꢊd <,ZdD,@ |@ $ < \<`\WЬ, <,<lt X,D@t C~d,6lLld < ;`^s`*<   < dӢt@ |AT,Ѡl<`\bTB dD=H C<~tt Ztcl@ ,\,\,t t<`[Ԓ~\,|D tcZt  Dc | < ,|dtL d,;`_K< ,Ͷl|,L Z|c |, < | ,, ;`bBC R |sdlL||ͬ$МCl|dPTD;`c   d,4t$ |ʶDt 4Z, =d;`^l\, lL|  dtdtLZtM,;LZ,duT<`\k,7T,7dLD,7dZT,+dwT,7Z,AdX,7T,Adv,AdwT,A7`Z'7L4L,dMTtL,eZdMT,WdLtMdtdNlP,Z Q;`\!WdNtOlPO,b,E, <O,Zd,lt~dLDutdt lL<`[sLlv ddlw\ڶdlX\,lv dtd lZ\,dSlW\d\;`Z\de\dn\Զdwl|ldl\dlw\d\dlܶZ|llX\:`YD,dl\d!lw\d!,d+\,l`\d5\d?\ dIlݶZ|ldt;`e5d\dt϶L4L, R C X  0P # SYMBOL:`m}) TABLE NAME ADDRESS USAGE TYPE LOCATIONSTATEMENT :`mINUMBER STATEMENT FUNCTION"SUBPROGRAM ,VARIABLE  6ARRAY(*)  @:`m@ARRAY(*,*) JARRAY(*,*,*) TDOUBLE PRECISION]COMPLEX fINTEGER :`m=m oLOGICAL xREAL  EXTERNALCOMMON DUMMY LOCAL $;`Z_Zl|d|t<dftd}tٶdtdtʶdtdtϠ<`^BdD;t<,dttά$ <P,d Z,<Dt;`d\҄4BϬ$  tȬ6Z D;`f<d,lL|  ,00 D<`]BC <, dT,(<dtZDtdDB<lL \,::`^|:9,5<<`@"dD Zl tY<DdtW:`^WZgDld  |ce$ȬY"~l|lf|d|t<d}tY<`^8Ful||&g" dl \ڬ~,ld < < < ,tlL;`^9< ,,l|,ܶtl, \,,LX l :`^|l@t T,l\,\,, Yd@Pp@@pD t,d<`]϶,Dctc,lL, lLP,l, ,dHHLd:`^NvPt  Z < ,$ ~Edt,l ,5,#lH|T,#l;``K PL,Lhd ZDt,, s*+ 0*-@<td T<l;`]*d < <  4 l| ,QZd,)Dll!  p{,)L <`] GZ<  `< ,YT",#,Yl ,YL PDl ,bl \ |  ,T;``Yd,ld}l D < ,L |Dl d~l D|,i+22 :`^t# lcdzdDdtZdD<Zd{<`]t<dtd<l|JtZt̜˴P9`asZdt˜ʶ<,$d,$ |, |4Ȭ ;`eԜl 4=JBIN OVFAd,,dtP`B ,6 <,%|,7c:`^ -Pl |tctdtBdMt d,D`AT=dTM=Q:`cK$0Zd,~dZt`B<lXN ,zP <,]L|k&d,'`T7nl|l\,cX,5@<,vl~6=B `Dg@<`_-tt=dZ,d,lǶ|l|L ,Zl||P<d,`AT0`V_<d,tC<tDC<<B=<C<D,:`mEDdlt4$T,  :`mDrOC ASC ,DE BS OR AD LD LD ST AN IO XO CP JM JS DEF 0, CMA,IN SS SSA,RS:`m CMA,SSA,INA,SZA,RS CL CLB,IN SS SZA,RS LDA 0, CM CM CLA,RS CCA,RS CL CC SZ :`mCLA,IN AL ALS,AL RS NO .FMP .FDV .FAD .FSB ..FCM .MPY .DIV .DLD .DST .DTOI .R:`m(1TOD .DTOR .DTOD .ITOI .RTOI .RTOR .XADD .XSUB .XMPY .XDIV .CADD .CSUB .CMPY .CDIV .DFER .C:`mu &FER ..MAP .ENTR .DIO. .BIO. .XIO. .RIO. .IIO. .XAY. .RAY. .IAY. .DTA. .PAUS .STOP .TAPE .C6`i" SDBL ..DCM ..CCM .CTOI .IDBL .ICPX .DCPX .DINT .CINT .GOTO .BAD. I.R.L. C.D.A.