7FTN4 )c;@m.AT. .INT.AA00 AI00 CILN {CLIDICLNM CR00 ;CRTST RDAF00 DAT00 DCEFG }DIM00 DIU00 ;@ DPOVFzDTAFGDUMCK !EEIN EFG EOFF ER00 ERCM )ERF ESC00 .EXN00EXTF FA00 FER00;@FID00 `FID04 tFNS02 FNS03 FNSEE GNA00 LGPE00ICH00oIDL00IDN00IDNIDII00 IIV00INM00;@INTST ISY00MAIN 4MFL MPN00dMOVE OMPY NSUBT NWI00 5OA00 0OAI00uOC00 ODF00hOLR00;@oeOMR00zOPF !OPSY }OZ00 P1ASCPASS1M&PBUFRP00 RPL %SCC00 %SFF &SLF SPF 'SOA00d'@ ISSB00STRF. T0SV T1II wTCTST TP00 |TS00 TV00 UC00 j<MCOMPRCPXPRDATAPDBLPRDEF00DIMPREE00 ENDLTEQUPR ER.R0 EXEC EXTPR FUNPR GAD00GIM00GST00INTPRLOGPRNEXTL[PROG PU200RCOM REAPRSUBPR`A`A;`b ` ,%@7,%|(<t $ $';d'Zl(,^d,^d~)d};`^.P)| )l||l|);?#",]ddyddd t?,YT,B> <><?,S, t}h@k|d@t*dAdy;`_KituT,u hTd}kd ,) |$.2;d2Z=t2tyt)d0D |0;`[GsP |tted|ZT,,dT,,ol\,\,oh<`]d)\,\,̶\,\,\,\,\,ܢL ,L ,L0אPL | |<`\ͦ,d,4 !|t),4 |,4 |Z,4 |,â4 |,4 |,<`g tedty,iBLACTMN !c,"l0|>T, $u<;`]:Zdל<ldֶ $u<> <>dt@dl<`` Odtd '$'F4.0  2 $r78/**t30t51T,?4d<`[@t|t!tetgdtyt thtl0|>tyteddT,`<`]P[ddT,TftfZtettyd l d3 LdМld;`Zxldd>tdldt>dtdt̶tu L,uulu ;`Zi`,tdt@dlOd*t,ttնdttzӢtt<|d2;`] .@tv <v,ly\, ,׶d<ytde,d,;`\,ɶT,,жB,l|tdttdtxlZd <x,ٶT, $-<`^6,~d~,춀<~a hP,~,  |l @tk|j t<t<j,<k,ll;`\y,  <k,dr,~d,w<w<o Z<nl} ,$tpZlnXN ,9|n<m #;`]$ mm,9PlLq\n ,8tr|ndtsZdr6 <s,/tm|q<,tptdT,XT,XlyL ,@jttt:`Yke\;d-d<y,Xtl|@lOl|@dlOl|@dlOd:`mnu 8`k )+-.0@ABDEHQ@PxFATR$h$: $zb;$`A<C :`^ dl d Z  dt@ZdOt ~ l  Ŷڜd|t d t|;`[T ,, T,$T,)d ~,,t ~Nd|,d9Zud l d<`_Uh5  9@:hd0t<{D!t!,Wl|!T ,Zdz,Wd<`]Tl |bdڬ?DtT,,cD,,zd T{,v,vZdT,nt P,vl{| :`^qltZdl,Wd ?t!|lu t tZ t t<`]   t  t t t BL| LLL*| d,d<`_U Te,l P t   t LZ tt     d t l ;`]ˠZ|  $g,L < < l < ,̠Zl tt|t}t~Ptd;`\+4t|d׶4t}d4 t~t t tuddT ,  L, clu;`]6 D , Pt$, Ld t d , T  , < <, d, u ;`\Q !$, u T, d , a , Ad, Fd'T , :dTg, =T', A;`Z^V =dT , ^  dTe, ATc, AdTf, AdT , Ad|, A, = t ;`[\Z WZT ,  궊, , d }, A , A T , d, + B|d,@t,tdt @<`^h rZtd:DlZl:| dl' dD,zd DD t < Z, lutd;`\ Tc| T d td4444 4 d d Ͷt dT , d  dD<`\ Zt,  < <, t , )dtul, jl L , j T , , d T , <`]_ ȶT , d , )Plu| | Z| l } , l , , dT , P, ;T , <`Zb Z  ,  4 ,  Tc,  , d   t, d <`Zu, d ,  Td T d T d , )t,   4c  , 4 ;`ZIw   lc|, 4 d T , @T , )d d t  d t T, 6;`\rw 3< < , 9 @L, j , 0  , , t , l dT3 T6LT L Blu;`] OH|ud*@t dDuڬ Ldf d%Z Z , td t   <`] l<  <  <, h `  vd t   < <, ~ vPlu;`[: Dt luL dTe tdT < 5 dTd, Tc,  d <`[/ t@d t l  , < <@, dc  d d t@l | Z L T| , ;`] ZT},  , T~, Z T, |u dT, ̶< <@, l;`[B ܶ\, d )dct  !, Zd , dPTf lu  d l'\ ) ;`[q d , u Tc , dTg, d T d d d d l<`\O \cͬ dT2 d d d d D !dyt < % %t(tu<`[Z .Z -dut , ?dlgL  Rd l\f R $  lTy, YT , dT<`[ t I, Ody, <y ad t a d a)< ڬ R<y ad t|М+tg, *dgD ;`] d ad t|, , a, yd l z T4, y â  Ȭ l:`mu  !#$%(@DKV` ,:`mZD @@D Pp END$ (B$hN$s`$+=$x|}~$$# `I: $"#-#y##$####<`[- ZdgT , T ڜ t  %dte.dT , d. , dT T ;`Z , d tytettFodT, HT , ST, VT, rT, N$, tG;`[̕ &dT, ?T, ^ZT <GLGT|G, %dF: 2 2 `dTe:,bdG;`[ A, %oT, B `,oT, rd_, dT, ro, ODFZtFdF, N01;`[ \, , K `, 2d, mdEt|,dtytt `t|,dty, i `ttL<`\ wtd_,  `d.dtHotodHT~, dT , lQ|K TH, ;`^[ \, lKLZH|KLd  lK, d6tKjlKL DtJ t<`]~F Z, tIt | `l < ` `< ׶t oT , <I, dT, T;`[" ,  dJTTJTZJTJdKD8, DڬJdtT, T;`[ , T <LT, DLtL, Z\,  `Zt, 5t, |d, d7tK, <`[ ZdTd3ddZ  tu&4u tu)4uڬ tu(4u<`^& Ь tlu Te, +d   , (td%tddZt .dTe 5d, G;`[` =l d dZ | , L 5l , ?l, APd*<tt }d dEt|;`\^Y Xڜ+ty-td(, fd , mtt4AP5l( d%, `lz|M\, cd ;`^y t, ytlML, nZld lz > P? = tN;dzD tz, v |<`` Zt D , d', d, t  F4.1 d T, T', D', d',d <`\I Zt'D , @P, d l%Zd tu d T, dl'L , u"Tf  Z;`Z ζڬ dDMOT,-`b$d3Bg$xy$  * l~$M `$hij$s:`mQ @RFUNC TIONSUBROUTINEDIMENSION GOTOXCALL2RETURNCONTINUEFORMAT:`m ~IFF(WRITE READBACK uSPACE ENDFsILE REWIwNDEND STOPOPAUSME IN:`mTEGER REALDOUB LEPRECISION COMPLEX LOGICA@L EXTE RNALCOMMONEQUI <`d%VALENCE ASSIGNDATAPROGRAM "ttt)od  /ZdTe  ;`Zd$0d l d uldT,9hdT,2odt),"ZldY <yo;`\Zt)pd5 .0dutdT,4jt1lɢdhl , R d%<`[2, Rl)dX ,)lh,C-<ydH0,dTT,l\e,Ad<`\(Ml,SlTZ|t*t|Zoda,fdD@,oDKl| 0t|<*,Wd\l*LC:`Y/7i )lhڬdN),fdY,xdc,xdht؜d;0dضD4t|d2 .;`Zdd:0lh, RZd|,d2 .d;0dude dt!oT <`],db)d  , l%ZLt+ڜdt|dT],TR,TP,d;`[FT,dc)t!, R<+?T,d+,D|t|,,dTR,,l| ;`[:Զ,dMͶ<|,ol9|u ,,nd), TF,:`Yd8zd%Zl9mT2, T4, T3,lT6lhdol,z,lh;`Z)Zl9|ud;0d9lzZD oZdf ), Rd;ld<u-:`Y"<y0dd odb dSl\g)d<0, Rd[l\,9|)d|;`\p;,Fd},Fl~d_dTc , RdH dB,Kdu;`ZLWD*TluLn4pڬTdGTd|td}td~tdt-dut;`\+q dtu Zd%t.dW l-|ZlzLGtuLlz  zlu<`\ dzDHtzT,dtud90l , d. t, R\d,dO)dc<`[ʆ ,d_),Zde l \, ڜlz|.\,Ţd ,l.LI,dQ<`\"ĴZ)l  Zl%,l'\H,ע ,d l%da) \0,d>D,d9<`] .tu,}Pd $dhdU )d*Ztu L, `ZdDE,d,T,;`Z+,l,dZ)D%t%,dTd,dTf, Zڜ,d*;`ZZtu Zpl͢hdqD%b||td?b||t<`[1dstudrtvd}TLlPdtu L,LluLn,B;`bL l>  LA|> X&u>d0t> __F4 .2 D=Z,i ,dLjDkb,;`Znld7dldJt|d2Z .0nn,dTf,Tg,duT9,;`Z'ZdTY,d|td}td~tdlL,dd Zd%ZDt%, L,;`]eP D>, Z,LV |uDiP D?, ,LVLu|uDgМtvluPd  ;`Z:d%tdTlT6<%d%, LTd,Ҷd`l\g)d^lu\)dzDD;`^nAٴlzdu d d duڜd% dg <%d%, LdT,;`\t:t/t0d%tl,"\W,ZTֶМ dul Z,X\e,l\ ,:`^ۜdEtktud1T,2dt1tldtmTeZ,,ݜ|n,:`m[.1 0@`,Ddt "%*.0=?@BDEH:`m^JKLNOPTXYd 0'PpNO ** NO ERRORS** PROGRAM = COMMON:`m = UNDEFINED $$| v $  N P$ $t$sz `(`^2$bt$ $&+IZ[$^_fgh$it$#;`\*Wݶd;d,lh,lhd~ll\ludttvto;`YtndlTl,lm\e, T2lT4lT6lT3l,T2lT4lT6lT3lh<`[7lklm\e,dll\lp,+dn,lo,+\ ,4d1T,*,0,2|1l\<`Z[-,R\,\,d|k lTl ݶtldutmdlktk|d1T,2|1;`ZGlk|dmtudl,"dZ,Dl,dd1T,2  <`[~alz\,jLTu,L,bdutjdjtudd dthtud<`[^*|Zl\,dtitudt1 dDl4 ,dD;`\tkdkDtklPH ,\ ,\,,lDtlZ ,lllL\k<`^,,,dk,dt:l|ZlL0||0ldD%;`[Ѷ/d%l/ tﶊtdut/ldT ,T,du4d5 .du<`^4Ьt| dT TL ,dDtD,dD,dLd<`\ dljdlidljddPulhli,$|ud|,*d3ud,+dd<`[B&dudududz tdp,RZ,=dl,LdTc,Nd;`[Al\Dl\4l\e,;lLuz0dul,Tdu Z,[lL| d<`]|`\ ,J0l|b0|uZ0d|u|pZd0 |phl|bpl|b<`]yڬu|l|blzd3Ptbd% du0  ڬL%zl9|u<`\d%  uZlhlzdtdtp<<,t|dbT6<`]wf,nT3,8d"D,d ,Idq,TdD"Z,l"Lszdq,Xt l";`\Ϣ|# LdZ dd"Dt"Dtt$<"d Dt dbT3d$D$lbt<`]A ,5@<,d$D0<$dD$Z,]t$lZL"d<"dbT,2< d"<`] Dt <"d"D,p< <%d%, L<dD"szdT8,s<`\%ڜd8d7l"Lzt, d<"< ,dttT ,d$,G;`[1AD t D"t",dq,]d"T,dbT,,dD",dt d"t#<`[\<"lL"d<"< dq,ZdbT,tbdt,],dt",drtd;`_ۣwtsdqZ,,,d ,4t d7Dt $Yt":`YL<zT ,,<t,tu|vdtsdulvtͶ|dstdͶltu|vdulv:`^|w|}l2 ,<wDltd, $.w<>ڬttѠZl) ,;`]t{T |edyD,|y |ldD,ZL|@|xL ,dt@<`[btxld tyy<yL<@, lxd d{T)dy,||z<y<`ZZdttt!ttt