From 9d943590aced3eff7a11162eba9827506597f42b Mon Sep 17 00:00:00 2001
From: michael <michael@7e267752-d5d8-41c0-93cd-a7fa012602f9>
Date: Sat, 2 Aug 2014 13:47:41 +0000
Subject: [PATCH] resolve range check error

git-svn-id: svn+ssh://michael-ep3.physik.uni-halle.de/Users/Shared/EELS2@53 7e267752-d5d8-41c0-93cd-a7fa012602f9
---
 original/EELS2/eels     | Bin 70848 -> 70848 bytes
 original/EELS2/eels.for |   6 +++---
 source/f77/eels.for     |   6 +++---
 3 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/original/EELS2/eels b/original/EELS2/eels
index ba043095cf1923a8717abe3ffe6c341eee4a33bc..68fd45a863104976f2e9ba4dbb3cd0b8b88f7f91 100755
GIT binary patch
delta 17654
zcmX@GlI6fkmI)UGd4w4l7#SECg!V9i0nfyT_JVTfA%e%iLJSOYn++N7vj|MyAo%Ns
zgiT>*wyIHcah<?q1-1o@Jev=)dGk#65H{e*UBST6dHhB0<OX4Bhrdr47&;F$KVWP<
zP$J>cYkGDs1A|Ae?T@_-3_C!^zF4-Kf#Epor6&-pJbGEV?=diRPl#Xxsbl>&`L?j5
z@EVAw7jR9cyC>_5$O_+qi0^=lv+kZ8FQOv+79!pV7eBXavVx(4Hq$<kp|*Z-@!7jT
z0$%?;x~HD_{r|s5w~$9~!GDil)*q7}ig*am-vg4iJqcH@v1@XorGn5Ii1;+P_}9sK
zqRRE{5Ni|R!UuLTFnBcoO5vY>kbm3B&Xdg#8Cy@5$nH#G0GVq#AEMq6u6_bo{VPU~
zUf$og85p{GE_(Euegv^XuCaJDzhLy}ZaMk@<j`KzTele)Ji51eurV;CdGO~wNb{I1
zAjWUC^%?_18h_r+H2%CF{CfARY`a+(L4+Qr@#nqZ*Lzy3)y>)u5&D$IpLc^_?{k%S
zH*3x0NHH@Z%iSQC+491jbZGKIF-6@pi14jFuvqKg!NAZRddE8SM2#V;!$e<AelMnB
zcJLMhLw5rx7A;-x@b_K%^B)wftHGi%Yzz#|KN$J@H-N)|bt+gCq;~SdXnEl^5X*ew
zmOb4L3U$4M5OFEE_@?b3#|D55mIWEXa-p-;<UiOV-dmH;iu((%0R?EU?XKN0cbkHZ
z(zpo`Z-<LBfs8^5U{H`Ac#$=^TtZJ+8KT$^u6WHhkb8szAmY++@yf}G5~7m-w}E4%
z?tn+9>xFLCQ<oVSI$aNRv+kWNAt}SP0L<Od?Ro<2*WC~^Ht&Kt@XJ<^*%}uh;tg=|
zgInQ#)w#jI(9LqeqnB6d#^fE63xsPffvlL*%~}j*EPxr_w*#cdcJWS_;m5at3|C(a
z5ifv?PuT)e2oA{q*I<T!o%}>fQSk9aP<jfvkjAfZ>l43#=;h5~(w2;ZtrtL6c67U*
z=nY`>=w+>(oFJoW=MNHXW%>XAe>bZ$m@NWkn}gXBV74}xtpa8%gV`Ejw(y0?hh-du
zkAj_I>%JZ4X1`4!H*0)?h>O6*r8j}{79vYPVyt;`oUER(4Mg$nZ7@TQZUh-3lnD`E
z0T-V%`J${Slf<UUFJyIvnZZG9n-7<@0qatifQZ|`#W^>^gRA5+EV!~Z=gSE&3(W+}
z*(z;@S$%2pL`6BFjS%5an_$9=CLdH(6*hth?}iI!uLTuU(e4oO4!F3*T99wSCBx$L
z3=G{S7d?7;XM$Kh7g;=d!BN)*;)2qJZ3BoEa-HQfzX0o$Q=kaUJHa1v0>o|IT%vT3
zMW_s9Ua#%MwJ`VmpPZr|5g~DufuR!`fjnTg4k&V5XLO7HJpwl8K^lMFD}KGFRSw;v
zuOLDn()jZ(@#}pm)$Mkj(k*%gB6=f@KkpZ)1QPESJvdoJ!``|RA^|FgK7Hnoe3r&v
z_psYE8zOoxjX&?gXa2}j-KLQck!xxEdAC0EM_%q0^`G3Qp(^eQ5&yv-@{3>NdbjJ8
z&-?<i21hoZ(r{uFdvgfvydV4_Kln9{LnW_oR?^aAWSllRP+O0&a&m*V2vf?z$vaHt
zHgC}`VPsr0SyR{3GHDS=XWfA`{=D01{CN-f_3o5;b+^X+|NkEpVCDN67)%)$7#cdk
zLfx$qP>Hz7t94J+$L|B_&U=x@pZAGh?_HI1x2O+9=mN<7{Cby54Z2%1K%ppV43YSe
z#-I0yU++(qc(<qmL<pvxzvTr#14DOf4%7}+h&0SsU~@k63-I#pV_;DI|Nnpe<}Z3$
zj7i(}fO6xOZq~J6#*S{*C16HRH|uOLV?wv<36EaUNe3Aix_5yJ+D_Ly-KBRdYwz&)
z?_*(L=w>YjtDDlzngwRe=w?j>F<Qa#&l)<p!9Y#;)Iw0Yw~bl?OEjzJfve$15OFQI
zc=f!=@ggch+>5~KKQD%<cbP12s3@!e5k3GH7MwRZ*icI@`T!`6A58J+7CGh7>j5g(
zJr01f*9o6qR=dfw4bKR3E&!XjZ4u1GS93raTUZVv-V7JtK4)^isFIK;MBEQ9-Zc54
zk(^K>L|6_k95h+bSVL|;sCm!~asbN-k6y3;9=)PH`xqFyMNawjvNlZ)H&znN-wBFt
zaB=twR2;@{?lMkg6uLPd>@M#GFn1+QW;B(n-?|+XFH^c%*MJ!_x>*;47|=kS4r06R
z=?3Ml?(HCR^WaItp<A>9B7~N^k|3hUxyv6S1k0KHE#jOE4Bf6XK1=cou!ch<Z}5lQ
z;MX_|$rrp%o41=PF*5PaoP66%mGR1CMspd)?UUuqrKB!wg{O8<P1@aR08NS8C$BSC
z;CLO?9Xg|%HF|QDxs+51F168<*O~hY%gzReNz7bWn1oFS#g(2BL|hXtt~?#25L|@y
z?F7a51$Z@Hw{!AYak<G=76!s{GeN3sPtAcDw|pANI3aI{_;k2<$>jGI@xoOzz{;KB
z!pvah8p|Q#0&wvQQ$eW?y&lP!ywcK8$PQxmmDw;m%O@vTDyj!VgcrhvT|j0)3gPwJ
z!9MWl<y|`2#OkHU_Ko0(g%t*%@?ptjLu(0<Zioad=YtA^ipjCoCc^FD;IOrt1+(<P
zWN<E<4-w~ri%*yg%4Na|5b?`1Vd^6%gX$1<Q;7HixVYM6P>_I=^~9~<WbM&w+CDkR
z#*N1T#0OO!yk=V`FR{5Rn7$t5?2rd({2FgQ@e8PiZ=Pfu%qVO;1!ROR^K_V9ITOHc
z^M;6Do(2=QnE-ZM%_Ok;IdE~-2_Uy=tb~YX!o@H3gA{_@X1fXIHsei`m)qO%X-|MQ
zs6O!vuzuV8*?tBiqwnM%M@1&})sxpdS~$F21#)a2ET@3N_!dM6mQ4_4@Ii<KEVF=u
zecfbrCppQ@5D8dDffu#2C&xK?i0DCNAAIJIe2~Up_n=!;W7XtcPQi@FC-XVWGv1!8
z=d8lmHaXbYoQZ4e<Q`{DjptiXJ3ihJFPBY%1yN5osN=I|@?B?X#s!mqIvZ+~p=nWr
zXbFI85eIAWo*d+&%9uR4!bOHLW%E=QBSt3MuE{4|D;N(?c5?G%teo8AX2rzOIr)TJ
zBIDA@TJGMAsgujx^%z4YFLgH&=3mOd;K9G^gFUFl^dOC2Pt|ww8+RkdUz6oM@)^4(
z_j^2GoI1I{Q;#uf@_bJ@#^}lWJoOmgO@8aSkI{Yd8m|z>bCVgp4H)N6Hu7#}OrE^W
zJB{(rW?3J0M#e9jReepE8J#Cb1$b&Og1Ui7J-@%LpeVN0XoCg7ygE<-T$_A4Acco>
zIRk@7r;~+8FYCX_)`3>yhnIl`1U!0KcYv7P4gwy%qH8Dj1ggoHfl3gN4?H?uCwTO-
zmVp%nfYfGBJ{MTVw*;IYZ9TIY7+$c7P7VsHW(zD}V0h6y`ErnrvL+}1x*0&J=^Q90
zgH7t5I^*yE{~q039=)O*OD7uzn=oFQoF1&ixPEe1uq@-m$t!}@88ate2sULhUNV_I
z#7$y*H8fdz^orhJ40f%9M=$G@$*Cd9A_X9U-XI5$&SM_EwmVB07+zFOz7t}|q`i1D
ze`u=Ukwu`uC~)xTwG{wKUYy(-S}DZT2oklmZ-fO=@MM87MPYM@Fb`Z<p>ncIn2n?k
zNW8Ok#ozz`kGF34`~SZRBS=4M#N?S_#*7ChpAC~@KUo2)3+8}38=vbz(zXj5V8**t
zOco4Nkkx1ai|4_`1uH-Tpc2`2!Q^-0((EosrdUB#3&2%xE(e(+<PQ<QTMsk6Ve;c}
zHL=a*AhTK*fI_$P_=~D?h<g&VWrdH_fuwAe;3kQdPxg<H75W1a{{%Pb>EyZyRiRjj
z@NT&9y2)E36!j-TggfBE)n%X({S~7}cg)oVkj|;g(FLH?e&B_0`DE5eWhRL!leHoh
zgzKuo4lsmkWiOi?8)?KoqmO~%1xwlFX_01(S0<m0l&BAP408;13<>sVeA5Byw072Z
zcyyLFcyvy!0ChM!dkg;m|L@ZYE;W2QdlNwIJ=VT?s6{{-#H9=CU?HSl3d#Y=^PpoN
z-L4(o3?4H)I$bw-bh~cY1sWgmXg%P;@8NXFv-6naey{*S)e4Vp*A+;r4taJSaoh`0
z)CzJC)U*X2-JuI6PmB^*KjgR@Bz+vzlm-nSxOTX7D;#&-0~-42j@{#8nYxF+--}~%
zT#b^j5I7OoKB|Se*1H5$)=OwX#5cjkrAt6jx@R(Dp1knlT5yO~!zG^-Pp(W*QrQL(
zcY}+sFNQ`EsG$dGAWvQwEg}7DDg#3&3#fPVVJfIy`fLINL#N9{mTuQQpfp_H0Ws(Z
z+#pMkLDsG-_~#$u-*&0<Qu8Cm)=MQy9^IiUJUTCWbRP2PHQfx+)DPFh0@4Jku)AFw
zT)Isr9Ctkc3Idnz+ygF_r3d)?GeJWXu16TVU5|Lo@Mt~2KM!L1<ag0Re)A#5-G&>t
zqKJXP!`gKLrW+Q(-Eaz`X&GEoF-TMQ)P%|RV?>o(!O5tb<pe01egY9UKJmwWPV?Ze
z`{2>(I-}e52-y3-YQW(;4Q>iE$P@xrt3s?!gljri$iVQ4U%+)n8h_LQevt$GQ3pT)
z#dyhs@dCIr*$s2g1&~u7eBu{6lg1x)l7I60SYE~%llR7oGtQWNHP&8ribp3{$%jw;
zLif`6qi%oZ7mS_I?K+`5bV_IFiB8uuFqdC~<hAY^SaP~uKseC;LNtZJH7x^a>OABD
zbLu}2gj2ye0p#8vAmULPzuuoBi*DAJy`a`XPTqsh{4uFhK$Ul=>y&QR^I+k;7oYiK
zawnwm*S+X;MRB)Bw<|a@4!l@e05YKNK)2{@s2)hq?sb)Sw`d1M2-NoY#jp3h6jXy%
zOm>KumYmY<I;GR~L^rE{FQ^xArkm9b%$P8Fc8Ri30yqWQrd7j&W9H<Q@ruHw5Mg7u
za9TbnGYb6xMRTw1zbcq=!^wgPa>4=-<>%nSjQNx0>QoXAR)Uksbh!AbJXl~Ok3@oU
z2_l8QfoMvCYnlqu)clSS+86pWfdSMP^60hwH2GM94nI7Nbcasq_MI^KUxJj-nr={7
zA^Jyix+ixVCr<88d|L0)&%n?r^3kJL)C$CM`NZO4nR|eL>H+?32ardIc_3a@D2I7<
zY7PSfI9E;qDQ$K=zzE8xtp`e3Urzt||G#DI9!x`y7lH%8ssd(6fIZlh)II!AQ}!@+
z$L;|evh6#l;&<)n1~nk&_rb<3n-4Hr9^!9(#|$!wwSBT)vZnCdd=SU>F5GR`vL~;K
zSCHBS5nlxtUz`n6$STw~`E9DIur@?G8!nxa4Jt~NoFU@YaB&lew#B_LM@;^gt0cS~
z6c4?&-^*a0`H%%_MZ2DXh#!HA@67_)8u#C$89Y*?0x||XQX~apg@8tiz};$Y5Es<P
zwPoy`yfr1j2Q;Pu8Q<`L3~+#Q(191rvS3Y|&ei}>l{OVjwuXS}yk6eQ9#D+l^yn4M
z2eDjkv3T^drc4e@)ex@E1-ZobMk&n6TQWhtHHQfh@uhI_#!QexP*a2TO*aEWcgO{n
zZq|Ekpj4CxYQ2Br*SlBF`qBW>vN<{VO{$vkqa2VPTYI=6(wU&(l>7w|=ZA~G&HyQ7
zjhY;trXgGikv&%ebJD5|P$<^7LBwan#mm9Ey#9lm4!xrHx<JVuRE=B#v0RRUht+<x
zGB7lL0*woS28mv^Lc7f#y{7BBK%sKZqgQkZh~;vMWx{dR)QO;amw~~f@d&8>5bYS_
z80#447$19hvO&6yhWJF(mcnmHzE*>~X-zt)rSN9*lyqyxl+72?*D(uuf{Mak+vWne
ze<n}JmJ_Ok2nWN3t0o`FRu%4o2+P2Qos%a=<|_!#hlsz-hnXUfJh>;|M@R!42)0#l
z^&2O5<{T1Ifuz{OaOHO=$L1;uSwe&-z=c;$o{+01yc3c@BjCbCiIXR0%L-kDh-<*b
zohJXt)e!cF2*1mNxrHMU<VK+si1==}_|?g&c~wF$AQ9&S7xtX|F;7lN0+PgJ;KGuV
z74ubvG$F!Ib76)*njDd@C}al_-UJt3Ke;>KSLk>ODCO7|z=Z=gzsj#>6y}21>6rsF
z<#6oe#%cv2Q0d~)Ybyp9pRjpVp&X;|a&V5c^~;8-Ply4lzXK7MhKuV?<}J=*^q5>x
z?7{ed^1<T2LXezcyFU}AHEZ&P5=Dt^;0$Bi0~a=r0yV#mOa`^6PeLTa;gU>IlPybS
zr5{4X)#2ioBEg!P4{(5+ZRTlU@4n4|*)<~)67mr7U2yT#$yZA~g%csh&4(Mu6*>80
ziGsv5h<FZM{CWh~8nD||LL|-Ml8Yk1ZaWAOXNQXyK{UbKR-X!X+gZ39EFwT|6P^MQ
zp9L3ZjhJj!ZY8WA3s&z6H*ZJy<coC@lV_I)2;WHt%RPtdu?+_$NMRmGbZ>`?^M+5>
zt56p%f~c>Bi(d`{*)235BJKqjUod%Ag@f=^h_EPJ*e?uZywF;R_|tS)@XAfrt<VtG
zh6t~Q3qJ`3o9+M+uYikhoZMMyAoMH>?D$}~aQ^1gm5UjL7?Z%_yHjDN@0#3Dttey$
z5$=Esw@=<&ohrOO9;{jqE-Vl{IWAX0=nh2ucM8muyOU#Ul!f;vf|VbG3$F;8{H|73
z_&Y>=8eF_02-NZr;(*v14;Ocw{If<;SQa9z0~h8Cnyg#vCj2K3Z2X60n5|m_L9P)N
zgt%reT)Zg|+zwg-v9<#)?mPKyt(?#uh;Rg4Saz~(ovQF#h_E7D_*uZ@Uo{FsOc2++
zOM=<Dd2)N5xzNK<uwxFvg|jAKsOw}*n;cbd#i%`bYJC9XtjW*nwIj<aP>bs}h&}5Q
zVdk;>gNkeK3TVe}hlH+6$ZthX2aitI1s=VkaiG=-c>0@x;e)+LXHx)Vw%cuTR)dy+
zG)NXM##=afNrN-viODY-+@;s}!7Ail(GpO}-Pz;-(V8~dt5KIJ$ZzsmFR96Iw{r{j
zit<AgfM$q2dRebdUf(Fr6qq*o{CwrfuN(O}!hJ!$Wo??w)MU)51m^S>{F{8SO;p?p
z%xnE{>;Hd`&f_nB`+!wSP0ngEX52M-UX!f&C9n`&#bhv-b<^ZaO~y<?K9f(i$%tox
z#o$V`!CY3a$yUwAOs~8rZ&)BB&IA^ND>>{9w&&60Ma{+>O<+zh!{iHXV&b#F9Js=0
zFqgGzGFOW+qts-(7Fh`+un=6uXD_f(Lcx=ZTZ}k2fqA_ZVBhJV0`uTXyTM%6RY9O3
zoYo(=K!Yg^xBveKP5OBBvg%C!)M6}V<i)@M?Id=`9%!yTz{KDGkzumkbQPf)F(9jK
zugAb5|K#MtRz=yf5aA_o;c1>Ab)c3`?}W+gTh+DadonOs#$ss!Z}0=Dv~`DTwVce@
zCaQga3D$N!z}Ovo0Ni%v2e-uFeo+D2!RkEOu}z%u{N%_sW6tXyAj6<B%k<J?^86+l
z#?zBew#hQB^#H{JM?XXbIHZ{hJto_?$Z!Tj#2_IiX6k{{_wkTIi7guD`w5d*wJXX_
zfe2rYf(ggEgPeizeSMBQ4&Rr96NPOVTq}b+Xi5x}7@Hq3gIAK2N`Yel+LFf^8sFVO
zV;oZ>?*9J|&TODY?F|s|D2;z|Uxx;-PXYtOi!BgU1(OeVI9W=iFfbGe?h^!!@$}j<
zf#kzM^1Y%TVC@NyPA3nKUe*VB3=GE|VnEG0k6u={$#$K__0L>Eo&?9nE*7v6yxQP)
z)JD*p8z?Ki!&JcuQ2|;M0a9@Wp#sF63FfjsNr&|aS`UCz!3B?AR{cB%hR%Qpk6u>Q
zJO+kt2Ze~%1N^PmML~{W-3-^!*(w8GGQzrGvOt%pMi*S7`2Ztat_0M;Yydd|G!Wv^
z%W6K^x63&3u?xsBh>r}wJ~EvGDzZC|zj%O<0y%U)n9KSv4dKuVeUDz&w_pK~!L0}C
z<UD#=?|=j*fCM~xS<g>?*d?l&7{|cyqQnIh%^;^X|46A5+$RpU&Nd4q7XdLmb+UZ7
zIAh{u^KRq%pUw!ELBrYz+**N$^>0iS0uU8o%R7(1xQS2!^1>Q0m-Tfj%nQvw7)$v)
zdRZ-Vz;O)?nbRQo`U&7D?Pc8u;(-HB^HApnP>{OLIo@jX`~QDX(s1eC3-ZzNR*T>N
z|AX|qbZ-SQyTJl3mOuFWrwTGKbWa5ddi1gufK3A#ZFz{lUmnuy(Fc`nok&Gf00RRn
zgGVpxipg0$#*Eu1&+Cz8-|hqoK8wlq6O@D>Kq@l1Fj($$bOQChghj(ZVP^X}6eiB+
zG&y0KC}Zwqhh8ah11FFyIIcmV@zD{)WfhoQ*lWzb!4YA)ILJA@wsYa8L^y&>m(_uY
zXTil)!6tz6d~3ku2@~bm{gF%&fT(7Jt3K!eGDXN1B7Qjp=ElCsEBiF9);NG%19x1d
z1K2&k|Npmkol~0R(aYKkDzT6QDF~c?SOq8Z^c#yQqH33bXa@(@Ur&(9w)}7l*V%&|
zq6MxOZ0`ia98x`bPrrmLG@>ph!V(E6qOL$9YQp4?{o;%&lQ}0CbE?>bjP14fJ-L3D
zD3g}`<oP`^><so`XM^ok230t{wv2G|TkJsg3P(W1&jrEk4YUJA64Qo+$&S5}?3H#1
zBbI;*Rof)E(x<i{BV>0%#P#9gn`}XjLBxd7Bd`EGI9J*trNKw>NM7sf;|6JET{!u{
zL~+K1$v-9<vzvlcw}O+J&;)SlXqy!XbM3{+f|C_xmqLWi;llH5K*k_kAbk!j0C&Mu
z8wQ4#6S&}h6Doz6a615Iuo}qVv_%l%6>#Ct)}Vpp7mP05OIjO#{{Mg6^#~}Rb;llY
zu}nR}-_Hy-6O<o8c@vy5yTPQb4kH6Yo!~wha5}Ml5yrsq;tt5LUe=eBJ0}~<bXvn}
zJ<xztbL|0U{{93;kP~et*H2JphdAZ!<o}a(CF~%a9sV%qKDPp`kUKDW{d8H5mHr^l
z+cr<moT9;T5W)$bJadYhG?v<b1~}o^ewzGiioDnXW^ieL0A<u`!DRiZ5;mV$k>boP
z1}V<^Jt1ROte^~yoF!txUS*vbGMQ_F5$8-xkgK36bn@k?DvaPL6`ld9fJ^*fUioPO
zN>v<ZA>xjcL#HV)sYZiR<Kzj`*dV$%Bte$-+FqS}aGJKP9)z>V7iNUI1;{Q$^iNiw
zF3OGwOC{l@5FM^?9qY^||DLHNd;uaZ02i+`pKLHoNyr-FnA<)u8(b#en=U653=v)p
z7Z#b!H^WrN!W=Y&n0p3upim2(3~jyO8a7YPpP}Ww;2&riAv|@iG(!sON1*;GWNG6e
z{yr}jkk42b+MzWc;~`<45IFhgL?d=nkO8nP1Bu`kZ<y0BP7a)@D7zFQ90(VlX9_YI
z5oR*yOhF0q3@CZKbmyLFu04a2AeDq<z@?n+7cZE}s*``sR2FiF2=9jrf0(R4OIdgm
zq~Pm<3-30We1E#E@F|FR6kNR9WHSE@6W#SDxB_t@I3?Ns^n}@~Wiq*7hNcNxC@PpR
zFuc4DDJu0q;f|a(6CvTHIyrc@vCJW3{5}<S00noitqI&lPh)U$$%csk_kg)X#2A!Z
zgs(wL#8Ytb`$k~DzJrL*f{U*=0{iu{5iY+TH3!9tttDKCpApEf^=N)|F=Ak_j6H&x
z;1VJF=exmN_{tDuRq7E~MnA&X9eV`axc~e0|9@CR;RB{g;t-RTyMs)!Vqjo+vA_^i
zIDu*?P|E_`JchI^nh!B{f}0r7<_FmL?029v&boE-#<|7@iH0C=!4rH0n9G_Cidf`W
zN{7VK6Yt5{J(81k=SgyWHUMetZJ6vgPplroftzy10OTH6%l!uve~TtK_FEgk*^BqP
zHv_{iR*;dM$M$o9e2`_pzyNB*GJ@5y-VK5kYoMlBPB*wE+x&y6G|{7bY5=HJ+ua)R
z`~QDPquyik<9TK}OAHWw<TDYVT<PTTTF9fj6|BBjbO%(-qnCB<WY_sxj7^gZ=3A+_
zBZN1A0v6fVB_JpEvL2dzZoaXCkv_=7tg+~dN+F6WCo3*6=KQD!QUvRDG3$eST~8-Z
zTp-JMeDeAQvU)2a3MPO90vuqwJU|9?o&&YLiovpAVGuWH@~;J2j1`kr7pkz#==Pm4
z*>|B7>lBafsRfgB7AiA#OrEe%mkTt*UH8MI)3sspsfD`rVD1BtPUtKRm;wdUffud1
zhyc0{YAJR)DL|*uAPSn06l{Yi&_Gd8jHF;HM1cXwH6YJ`ds+zwlgk#_3vk2LbsqHS
zWi^<5bdi-VXkyx<m-Sr;sB;#e;L+{c0J0X+G5f?Hcjpto;M^CWp$Cxv^cQ<EdQGlc
zEX(LIdB)-v)!V_~7?tqoWxW7mb~|W*bRPf_A3pI%9`opB-9FiIi3H=k$x%xb#A-o`
zI+;9rS&Koe?f?ysUe=7s6PC#Gc!2~uoj5#tS?wq9T%xQl9Sm;fgWByLy{wH!Ae)d{
z-L0Vb>1BO7nR%(PnWz>hg26GgivujdyAIrNEA#-xm>NPF#C@v?Qq9^kIcKQ^WAWtH
zrRt0Ylh-a)R|Gc#AstEyP+E70Y5u?n$^gxfW>@*-uS<=Ml)>5|mKlRBGkpT;5p^Da
zp@5JAS@d566soQZCPyt(=eK|i4m`L6%I8xRCQn!<9tB!#?a?Ws;@No;w5So>#^nVM
zfq-YqA3~}M5m5$)7fuKM|Mvh#Cj$e611NxBeBzJG1t+W*ATBu2e|+MPJnqrmYB8B{
zxd;c?N)ShOxehm2<!z5%)};ZH<xWXX&RuRIt)u}>d>{i3gNPrW_~VXy^s?Ga-m_dm
z3GBY^RuBb}yphJQCoAvDz`)<m&I$5btHtDh%XJtvCTp)S<5vKAuzM;<u}62S!sLP#
zlEDzpREE2dNj;Du;2G*4pZFuLgXYu0yc?hRBV$47t`3s!K*~;h;*Wa>Qt`l}({+bO
z_f!t38I$j?kY*}vnEZc*v?XXIFE~s<I$osl>*ek!;sgtTHSMStS?B(+YKpx__f(Kl
zkg8Lk_+xx`Ob%WdDF#{>0#m#J##k}=&`Nc0kQB&ruzMbS;*Ut(0pfyk@CQf)dVtEi
z-c}ILvlF!ZUlCk+iE4o<Q*98{dHluyrIR<VRS|k?1xj+Z+SZ`j0aUc^o1C>uQAY{f
z!nOTj1rzR80jUf4@6pY=4%CM2Y`Llc_V-ka$=g>ss>Hg1BP{R3C;rF}AQye`=w$T(
zsqCH#34d0r$ug@YjX?nq@-BGR{L&}>m{TCtCqT=rVjUr7{7B;uIqm`1cWrXUY7NGt
zlP9iL<A549ee(X*l8hRYZ?0Y=ya8m|g-`qupct#W09qC^dBz$es}&$|PzXH$SpbTx
z6_&ABns&3*K|ZtnX#w-9%4C+c+WIT1M8P2sG6j^pVps6D8~`<#yIsLHf)hE&j=C2f
zovj9w<JOu9!y*S10C}L4RJ&vH^0j)x1)xfx*VY(rg`?u+>{SYiOCjP6aB)6G@QMp?
z<au;YwV15A&QTB+VwXPgM_%ygo@y|;dYy$JC?r5`Lx>((H(y9g73`TqW-!leo?N=#
zkCAQik@fa`Otzp5@(WxtuqI9x+#t?qI$3jrG3Qq~kgi^f|Da)APIh@PPXo+jdMP)#
zW&>y_Fm{71=URxu7k5AkCHuiVaCrkNRKnyK7+x29^s=T;=H6)RAdHaR1sNzaEdnLB
z&f_lx5K<tG?`1(2vi7+lm#beU*KHJMbeKGCqj6#fSOMIkdRYbrm+sUV$6Zf=8oAxE
zCtNI3Pw@Afg0ntr8mNWb30{Ej(ajnF=CKCaLqo))lhqc~y>>m({DSclzt#azl{Hyw
zlM2sz&=^{$Q-DV=>ypV)n`AhO*um~<m|VBXuwEY&_r0v{uAm{b2ypRRV&>BeZ7%eJ
zdX65wQxiaWqIWB(hw0G^ZiaaD+6uceF!=QP2Y~##dKsvcWn}=_)g2Jv(e2s+ibZg4
z03~8bZU70PmOYcTHcLrw1&w_<#IzpZZ;@w0PARPxljAp=!c)oxNJ?onn7nke#pEfQ
z1sDw`zuO$D83yW+gO)G&f*2kw-K;Ja;3@Q9piN(&`6K?O@z?$8X4RUUvqe_G03vsR
zKjZ>v@>+57%q_OU`^~``kXE?vocwZ&Gh^mt-L3MBwUd3f$_GBRW?*=&=g~VAqbS-8
zE>=YMfGN|xAgc5Di;1&9g)r+nYe@Eg@rgfjEvWhj<=Yn?y`r|0_imL{C<m$TW$jT!
zt8b4&(zEmAUt5jq6(m7X22Lrk`gSLHc&QK^`i2<Nrk|i`QVbylil@603=GY+Cz$yA
zQa};k&3efS;<^K$_+wycYaLYVL>j-|3I1j)=4epe!@2@wWVh%{s4Tet1C?}#Ji1wH
zpn^~>91z3HprSuM@yF~1t+D`l{f9^AL62_MD2Qp^li9cHaDo<Acyx>Yx14OVU6zqy
za@2MyO^_IWa~2cW?i-d6XP)@PAJYpm$)lU~h$To$bnE1~+hZL(z?ESuh=QiFxVaz`
zKsMg+=xlWW$@j9}0A-tQhX9Z6sTKbqE$2g@_#;~#CR^>0X7rdGwnI||thAf;G$@^T
z@Pmr}2vErfT8h@{0IG$$r#ehtyhD>QVDi}=Mgqsgz)l10csm5nbo@IN80{t->=bAE
zYc$z&rxD|&$u&D=Ii7$=rh6SGFWf1{aSXx{0L|}ctN?Ssu?vc$d{NM}@rjw=Yo~Nx
z0JVl*K$1e?<i9(`8Qmv~?lM+j6=h)f%&!GnU=?HpPP#8X^GCh_t>gj;&zPLCOULV_
z2u7+20*`z_Qq3t0Y13{qP%1qBVm(3%<f5|4_jXAbPX;F?TMun$k@G@E1l)H!0qeV+
zVC;@P0q$I#{st}%TqkSpHs-h~3~~l5*W{Gl#sc$%85s6~+L++woG&&{UcOsiJQ=LQ
zbd3Q6!+v&9Z5<&DTDv^??rw?r1{(&HEwm}%wxw;47R(jA!l2p4P#frMW4G%Ik8bd$
z&;u_zgyB)+`op8!6}&VKoNht&IjFI`Y;wpRCC28-<$IJF<0sGFW5uX4`P!aDkv<`W
z&JP~lt{;xGs!#UbE2|-Bjp`gna0}EnTNCD-S%M(vJexdWZwRC4<fnUoGCrStf1erS
zhRI_4=Q0XS-m*V}(R4EJfmX(klP4cg(sMBfmAo;n2TC|W%U)lyfD(K!t1ehLqV+&Y
zsz<l$3=i<~ED7_;JC7^z_lkZ3#Zzw)IP?2X7CC6dwApO3^jR711s=Vw3qVnJC2(^7
zK~=`o$x{z%F<MPNa8QC#aq`WBQH%|fO%BawTsHZ_AtlXjQ&i8egIhzkhAJ@62=IVB
zlVCb|;$E@IR`pzytq<!kPMVx?Sc5Th^2Ed1jJA{a9yZ|NF#+X72M&*3QO3zX4=eCI
zFa`+(fI1gfC#xQ@V4O2K?uaC#(d3FFW<1_t$q107!{l8@d>HpnW<RRPcyY4kQB}s(
zoBfY6Gcqop9DK}!k#F*xV_KZbYT!D7mwWR0W6FusIS?^(z@s~KhDWdK0gqnZ_u!s*
zp#jMA>uSJR8<ZtocX;%&UIz8VK@|)*jCa7ocn??@EsU2>4nD5R*9bNZ62Nz=C$}9p
zWOSOm<G31Q^5px+)i}O@dcoZe9+M60g(oYV5MVqx+3<t}<A%vzC!!enCoerQo6&Nz
z<4GkAIepX+eg>}cZ9y#sa5L=1d{$5hf1ccZ($`fH)bE8X&1X}F`1zd@*tdBX()dFz
zrtybeNaNQy<k8FeO&1iv4hqn+F7n1Fe!<uU9=)u0C(EAFlH3HA2Iqo9ASIA)N-yiI
z$qA=SI8wo~4i1wGPY6$5f69XK-sBgj<QP9sW<RaWcz&|>X$wZT$tkC`xS}ELHeP4N
z$rp|(nVx3`I|dxAC%{XLdqErPc-3`485|Py&&m-&e*m<fee(O$%8bt^3!kxIjGOFp
zMvJpp0phjj$@OQHwVpE}%)H>y9Se%m6&}5=pccNhHp1LrWs}dGQDo$q{O*jH*jFu3
zo`FT&3P|R7Fj?xXD(^0E@c@Z9(aAn%jToyZ*Pm5moHKdZSv5x8$!E`MNil)cbURpp
zLIxZ>pf<^2575ZB;JGM9kI6abW=oZ6f=Vf{<MIx8G#`nGjy?QeRYZ}2VY1Bm1Dl_m
zkCA2MnC$r0p7VL=e=tay{PCUS<VA1A7=<VAd~43=GWp|Md#;jfu;l+r-pRY(sR^>A
z@G>y)uyfcjFfjNqGBB*2T=>qO(_$h-(b35}-{~_Ro&55hIpe9xito)CStdumH)jl+
zJn_9bWB=xp?~e;J_DrA1%qY%&LXCli;d$Hi^~{W7HmBPe85o#SQ*(;r88$N}<|SLi
zGwf$%Vc4>Ok%5I_$z~8a_Z&z~VrCx0HOA7M#LA+0hOJC23~Q$|vM>s(y!y_>z`$%6
z&(O$Z6wlDkWE{`X%f!NP=NA(L3&XQkW(F39>(eb*7%ljF)NJM_q`Z{)AoNq}wBga|
z^(>5riVI(YrivhCupVgm3VNhMIRgWO3Wz`bA`7FwV7fCzNdr_keYzkkqrT8-sBkA#
z__Xu%AXY{_L6ZQ8a?tugkSQk9C$ci?2QG<(2+x8lhw(wpW)%hohDu&Y+=2LhjHrB&
z<7Cqz`WHj>%T5<$W7H3PQ4bMb0~LnxLB@cLJ!*|=EHWQt?AqNB{ac{=*G`|v#;7m&
z3Mvd*p$+oHtLYa(!ZCXxst-U_$4nPwXVe#bb_gPT0xJA$dLT$R{3Jy90#rDB`$Tre
zd`89>+Zj0->lqzkrp;z%VBlwDV1OC37|Ms~Uk&BM9JLY3UpxIE7o&b6EFvyIg<&Ce
z6Uv80$Rj8p7V@v5d=F@}e}VF0@%<Od=h+^}&A61AEhV5LKciy$A3nw+BQpbr_@dOJ
zB0VExb0dcMf=oRlGb2NW_(X`9u>nJTnx2udi77*Tnjwf`K79c{V~w*BLwsg&d{Jt0
zX;E=zS*o6qv7V8Uu^F1Ev5B6Mv4uIBsD+uHk*S5n^mqYAQC)N`78ZI&W)_C%S}gU9
l%#AFjFBD)Dw*<Mlpe(Vdm}IAK<Y&wtAg6DCD9Cu92>`mU(&7LB

delta 17490
zcmX@GlI6fkmI)UGJ%kw;7#SECF7IXl1CNOh?FD7dLj;e3g%}uQHXAbDXAyYwy=AFU
zlGT~%(`wT;cW^wPtiZN_(PQ&LHgBHE0c<vtd4vs;^;R%2bRK`9zlVY0OQ=WZQ^$~C
zkH$9%EDQ`DoqJFG{{O$5_23f*hRy@c4;Whylt_5=noiuyz~IqqyJs&0!w!&zFEVyB
zFdS!{_5|Vxk6zaEcNrMECq%G;)Uh6#JYU#RxB#MQ4P4XrU6X4KWQ7+%#B1Q<$9GL$
zYoH>$5hCsi7oV_e@_B0op<@tnA-H(#<Q@?T#yyjlig*Yo?*Z9p+Y6U`wR3W!l!EXC
zh<FrSeEZJHg+@w3-Vno7;o?n`(?#X#lOe)i_rN?Dw3C6sqxlu1M=$UG+YAidJQqEB
zO}BzrA=g+unqM$_bhjLR@caLNk6zPxw;32by0>|-F)*Zg@aH`M5#Q4I^`7y!?@?r6
z=w_|F#=wxqpLa8jKko;>-u)`uZq_u2(8DzTychg>l21#ux><uEVxQ9Z^KS6#eXbJk
zW_6e>D`qDAcNf@`7vZjJ*#YvTuGVg__&m6H;0^|c?$A5dp(kn#Q5`9|Zt`X^4ZYS|
z3=G{3plGsmy~E#k=?};QtodNk7&Zom<{ymw{TmoS#<E7<nrxM-E?fYyL=bMt^6enY
z^;#j~_jbdAtYkY#Tfl#hUe<><85p`*E_Ak<{0Ccb@#f@-;{L(~pg`@lt%Ga%z71rQ
z#$1TFH(dP4Hc;pz0vQyd2VUq*wwBNne!c@_jja$|aUR$Z2N8%N_jkeEV~y32gWJHd
zRCmCm)Ad3(Yu{xChECT5-K>q1??}inrcC}Rp&?ukF{&JH)V8f)cTRzbyTHYpw}RXP
z_VS18U@v?0@;<vhxkhq<fWsw_$#c3{&B2TXlmAO72?aqMpS~03$j-?LQi|&75MdLz
zaM%{O!H2KG4Bk0;g_NS;@{6Fv6mlVrU*py%egV<xn{P>3G75TL09n`3?Rug&fYGCu
z)poLqjH;b5NVJvZKPXePgV`cr_V4oy44thKVD@`3TLsL14rXhB+1JlcZkKTo?gTr<
zmU}zQ$pV`|fnl-@B7S2VO#JRfY?0==2@&2eCL4+=2{S-6&WCGk-v}~LQx_th0~Zg$
zYT&Jnlh?@V3Ll54HioPIw*h2|`W=Wk16=&{26#|fT!sau-ezMt0cPP?kPW@I&o;sQ
zFl8;ch$@AMZ-a}ctOXZQ-@s<s*2Beh*Mf?uXl{slAGr9hHK4En7a!^885p`vE_(Fx
z#)4Qr7g;=d!70WM#AUhQ(QE4hVuf61`OGiC8gU8~y?H12Lr#FWo|`R{?y(42tp$0)
zHgqk_p$8{xs7L7EIRc7CNc3I+vvojG=Q^WX^xzS&IS<nK^Iq}mJ*{%+7F{=ay}GE#
z42Z;yH2%C_pu$MJTeNlZ4Rw2KUx);#Nc!}dKk```f8E1wQ+<f&xitQ~3!nKTPj#Eh
zLPV~m@#o$8%pZBVTU2;*kcO%_Cq(=Qf5<O>jqBa6Q$F(x$bLDzxlhB1k#WQ1i<%;g
zvo}A})MI3fm@KNTCvJNX?7|QHAs_fPjzQG(Y8;$gV=A|~Lc4^KF>mr)9ZyD;$>zFp
zQr7z!7)%)$7#ccTV?bVPjrjlnKPZ5dCg<y(5>eg<HtR(if8Hm4y?0g4-J$}Mef1<n
zzwZT0{7B=^d&IBzr%JqA^vT}IReG{gFQGF0AwT#vj(4|aKn&!)xOekLJwry#sy(0#
zwWXW25X{)o&6)vb^mMbvgBcULT~B!QiiS<*Hjq*^2MbN<X4L~TW^}Wvf*7sf_+XU;
zv0e8}J|L_h)VB~Em2yj9QJFir#z0PJ8ASNqVwkY)<TVDW!sj8v+u_1&^FS$1_z6V3
z1ulMh?qqR8EjjrEpoDiY#iLu~lt-@zs4(U^07~^Ie0o`#CdV6|5k5N~?0~98Fq_uQ
z0p%Q_M-Xv$xOnB{0wZN%-UVRgLU3W1Ig>L)Wrb8B;*S=>j1if9)ks4wc^}LHEGImA
zz5aXjiU#asVCWV(<<raRHd)$ONziyFC{Dm7*eg&8ro7qDIF&JPF2sKR1uz3uW-%~W
z*52Wta)5u^fo9h`jNPSoS`U=!yvzhQQYyEDB4|oCYXO)sqnkAy#DE5QG>GlGryG<P
z{I`QF%!4Nahi*}u$%>|;B5Du`<h&p}*~?T~Od2Y|A990V<1jRBvTd$5Rbpg1KV$NI
zGgZqOTfv520A&Myz03UVI~f=lx~Cd|QYULQL=t9WnOirwDg-6iDU<)2NibGV7Bg38
zl%H&8F2!g87LlJUX09-KlDV$X!&%@ESC|V62#LuT%@y^&L4@DVfeAmI22uwuOF+#P
z<O<hm=j4gva+B>W41^!e0I9O=gKNv2299q2nPBl~xVYKm%@*;(b`a(4aN(m<LCQ6<
zA>vnN!)%{46%^6vb+p#xTuVb?CWzTH;EFB5hNz1}#8ctoY#>7*#bNPwP%^#X(aW1T
z`G@68hw6<e;S0*r84w{@sFoUZgNuP~QGbX8Jo}4-BiPzR*n2wIlmBMIT-`JoT)-zo
z#LvOSgC>Itc%diYAhn$i7nh!V&RS9ZCqy^}F8pE=$Xsyh4&4e)-5$NB-jl^_+;~_(
zd{D8@`)kYO44b=x+Ur3c33-slukq#+zksUr<}lk}M&a+1K}Ogfp9XW9-UP7I_@{uy
zr^Chn^@E%y>;SgXHUTbvydP8&Xyih~b>ZSu`auSO-Nv{H=C<z}CuiH+@xASb*2bUs
z1z2}&-flmGkx_7RfTJSQ>s6DB9W6vQt^zqW??W1Y-X(s$PoPkrH+jFKgh(qy0$!hp
zcZ(KHe(fkHSq_o70nIA#ax{Ljl9PwXr<Gvy9(?AHe2~Up_n=$!&C1DjPQi-Z5Q!I`
z`D0$B@z;T(?!jmNxQ8G`plmXK@+T)1Mz6`@&gM+#woDFi*3?+N1+`bg5AnIxBv=Ug
zb%S~(4U-o-OEacS-s^0rVTGpU)kIL(*owfl-0T8r;h!w#qROZ`*~UeNQEhXiixDH!
z|IW$1t`&@}liA!n8LcM=xLGls>X=;UB|3Sbn-5bugvsJ=%BVis%3Y69Y;vZ%iSXqm
z3=AIpyFS>18mte}`1Mo;CvR{!V%#_Rv3owJA4K+t{Ul%M$z>jU8N(-=c<L$0v_azp
zr0K^e{>Z%n|Ns9_^Wd-h0g5I0$xWVmj2k9z^xVhDIk~_qgmJ>;qh1D#@sq!KH8ZMD
zuJTS}Jh1tpH#;Naj?FK9OqdzjC(8wRY8+jT8d?Wi!CrsU3Ja}-I*`|AP3{j!;W@hu
z)cbR?@aSbdH2Hskm3TWuK)|DywFboOb`bFB6)l_`5U3{e3sew+eCg5YI>Dot)e5X2
z0Hjub@}$5rz6@}#w&luZV0dvyWU^RLHM>v&1H+3bk;w}~L?*8ZQs;RK3X5(AkOwDC
zz8@sYbY{uqZ$T!E(<W;ND=`*N_6wF}44s@4tj?%Ac}lP;)Az-bPY1h6R8~X7%A;3w
z@nW!>9XxtjXH3=%Nft2y3G@azcyu1~=(VjXVPJR>IC(*cA=CRslP`y)3U(|4g+PIW
zN3ZS0Vg`m6D<*q}Rtg<!0EyZ%H^Rb2bn=x@Md9BN;R_8g;YSsdIl^otKY+wLTUY%3
z|NnUFhQI&+t1yD}v&u}44KrqJnmjQ~imAI|^1M(L;qCPx8QWC25o{HcuZAiJzk!Gw
z!No6^PZkeXWnzP9`v;M}QV+Aav>c>ONEl>uukAv(xYOk2;c5b<<se&H7ySMI-=p*R
z3!BMz!<9Wc>Og|F&){mWmw`&_U(EdTL6s@2Z!f!(8Qj-1JpfU^4X%E983RMN>zv6S
z?c{|NA(HiQ$%4t15sE@#5Mdv<u<hhE5z<Uo%O;<UP-eO_dGfmm1!1RZutUDq!8~)a
zbh2Wk5qnG@1H+4BrIVu~%@}7)o){@nALbYe8i{B=(%{iqJHw;1bb?1`Xop9qZ-Y-~
zYX!JgO__(9q<tVRD2E&Vy9AV^E$2apB|w!wgU1YyPS*n--L40Afrc(TS`T>edmQrY
zJnFa)%!ewf_vm!p;nD57169>w$34iZJUU%Bcyxzu@aVkY!Fa%f@dB#qgN|VSan~y_
zO)lLE$6e2WhHtuK&$w8op5gDe<^Tol8IR-(9<7)7=RxCRa(oS+@M~~f+U~A}g_cqY
zs7{bzt^kK(H(dNvG1!dBAMF(CYr%3MaJk*Z3=AIDt_S$%ALQS5vh!r~L&nyVB}yLM
zp$9xVFM4zy^5`|~hiH<AYia{&0*`li{P*Z~ZSd%3IRPq<9;ES$JW1n^dIBn!J$iYs
zO=V!{WC8VN&P)XjZ5*1w$-vO*a*?Im^~_{Jarycbh{+4!CJTd1wszgYKmQQ_wo9Ft
znjbN?UIII32fA~z;hOFhfjkuea>@jkZj%YeT`z#b(4{-~f{SJ81^)h6&|rn@6~=DY
zD;_gES`YBggP1;9PF$$I8sdiSaO0Xl##y^=z;wd~xEq#1G&R9B`GPccPX#4Ck8UAw
zW4iMMIMxq(bh~!ILg*7Hm~MRHkNXTNvOjoqy0Wb3cD(`$4F8)oAaB@~!p(e82#y=P
z4q<^f!~w2pbs+<&pmbd^IWbm}$+cs0eXKm=iple1#Ti#j-X3eOy2PXN0>~8~KJg3P
zOXH8a{h41dc0sr6g6_~IouM~6UGG30RKEq19dm1732b)(VF%rZXtIE7Y6EHNJmkT6
z$%FBNM{mGCXm~(!1IQ&mK*Xaoe!V|M7Tv7pdZCSgQ2v<IC7_hl>AIwwbqhoo)C9;~
z0BQqtx}rGRquccc$eaT&ItoAr)E(#+ZGh^5w7Oqcd3THEP8N(8wul8a2D%#ppo4HP
zKJg1Z1*O~1{DP@Vx?Puay58t!HR%O)8SZqmYJ(XIK#A6&Rzb)Wltz1Py{lotQZu<P
zUQr?nA}j$H_RNQ5yMP*5;k%&Z(QEs-3Z_RSADmaeLc}-2#h>JXG+hA|rNYZ9!3m-U
zF1a>uvP-m*_C<)eJ6yaX4^&>iV}y309!_8Yb)h_ZZLd#WouFe5PJS1<Lzi^>E&zAr
zMgH?g9q&8^?(K`b<&QcG>R3(b1_c|Uqt&umFwvc{UZ<adp;P3eN3W<7h~@H$#l<rB
z0{>KKNdzDD{Q^p?y|x_XFdtUuFff3#AGAkyff1A;TMv}7zFhqC|9{KaGnj^~hZv$%
z0W-u*9c)VK8CbvW3}bif8L%NozyAm2_!-@xrbPSXe@Wt8`F*ef%gLaKYRw0S-%+@e
z_Dl{;R+O3r5uOAW?#u?MWBt`TxhGjwSQsK5443xG21S*mHbh(*E-nSp);;-GvbOMi
zP!#mq-Y<i>{8|>M!R@*QBEAMLzBmhHS=@i<cri~eY`}*J#0mio_<%d&pL;+(oD&|s
zwl8}o&rJ#NDfs{Ye`jk6XpFSG6~uw0_MR+QBc~JGn(m$o8k^{D%>gOw<xT7XMc+-2
zUeRz6%jFh}M=z_-WXn_y;pAM9OKcC6!kj!S6V!QgtbmC3!o|}wK?=cL$1B|o4Ba6Y
zSh`t{ff}Oxd7$3#Cw{$q<*Y9aAZ?qC-QZw6l>^dbs}47XF>`XQft(^l_<IS=(u)}&
zb*xSxgTZ6X;G`c3QML`PY(fSoIP3Eu;>~dJSg>}l|KI`aUeRM+prj9~wDy2lF2}&b
zWDi;y7#cr;282MJg-fl_(IJms(`j9x;5p~fE7}8MxtwB|aGce5BB(+JWvMp}(T*{W
zv5s-EhryE{la<oVHCQI1HY{F1GQKd}P1Dms4U3zT8`G^B{WtGTU&kzL1}X%5Z3_xu
z-kzE~`F@_Pa2iD10WO}JJefaVMYtRy&IuRSOP;Kdry$$|5x<rXGv{~G<jQ;>AyIHJ
z*rvnP&zW47b4W-Kl4du+m7kdGm8&SE1`)1>3s0R~o2w?g43bt|;li<rAV*5?gNTd5
z#dQ-wh17xO1B~FvvVq9o&VxDXa{|b*LV*zR6>#wblY{cAgswv3&=M|eGWlMfoDeG{
z*>S>!Stj%4s|t%jgfHd73_lwWHe4GbJ|8YVYjQ=tuh5nhP;#=3g$rA6zMfyrDEu9q
zS#8a7V8*PAot#&#Afy9v3^QE3dh_%`IY!|r;B0DZoefj(9RpT>5+cq47nhj)t0;@n
zbaHC32jiQ`>x%yh<$<${?V3!O*3ij&OB96`Lxd~g!b+1rlqh>|g9y98h2KVkQr<5P
z^u{*_r15<YqFw~9es3fwGLAGK-~dO4N*Xu-Ze_r1Z;k|qS0F@uIb1wo@}W{sVLym*
zJ#gc`MoivUq9EK15s!q6ABvd#u|&yx8bn+LF5Vk~*SYH;>c7CPjg3HYZcZxLxx3)<
z$`K&v3O7Q;+u`CL!Y3=2TM5a;g4G+r?O!}OzdTd;WHMOz3S7BHI4J1~|AdGyfs6kL
zn=D<SE*uXL&w`8Z3j<jz)B_PWhl_VlZm)0<Zh{Ci!G$fuz{bylh+j&F1vV$dcnOI3
z47m9DP_Xg35b;#F_?*dQl?FnWqrk3rfD1=$-ch-jQRrPFSbRk)%=o2~bE_4Fl#{^1
zrEuY*$qTAeh3CYBg{9%bzk?=w=PC%DgowXLfthk*vR93=&>D#0o8iKfC)d}=2|a-b
zH^YUKC$Fzj75WMh_JIrQOnz3QD9i<MiX>e4XW(S1S~uaBabUOHO@`UIAQ0ph;eQbE
zRdDg#z{%b<O2QK%#+SmyEdnPu)W`~-gowMs#W?~eZ>Uibx&;yEgNt9B>{zEL^d2I7
zI|*j(yvZeX=ECPf!LC^k7Y+@WTu?4C`C458WAJ46dMieW$xZbEjO~*z*K0c_SD=>f
z#Sla1B*F~+<OeF>Eh?ZL#~l*7E+M}aIUPJYU1xaoih57BZxClRo*dqwCBOk{&~!F|
z8k!!xtiK8-Pi$~z+&cMcgS+%}KUl@xE1C!@);pUVAT#2@lg%4-nQZ+g7kWueZfNAy
z_ya1hJDWgr#-K45kZ(F$f7}8MDlpvs|6c=KGO*gEO};f>dGd`$ehw#JkcV0GC%<nr
z=HLZ$dJ`r$wuy<Wf;p`pZb1eBp80?kvQG|gGG<!pGr4|&jQC!#7+gsmn9DkU^8O}c
zCR?A$a~H^nhl0i6O2oiiR`bc~&BlyZCr3BSiof*+84Opk4$NgeKe@lzm?Ia=>1CLF
zaDkY3E0_aU=mzGprceIfY|O;!Jz20_MnV=W23K;=3uH9w|DeeUEk+!3!MxrKkni-j
zf;n)NWneDr^dQjK4^n`E=7v0aStTdmZ!wmZ^<rQ+?z#umW9*LI(_FiUiNF6NXms9n
z52#xv)EWb_&h|(QEc&-hj%!tv-31Yz2p4Yj1gQhHl6o5^&uLX>>GEV?n7koLG-$3L
zNXFI#u2jX7fuS4h%H{{m;Dr;VQecarP31j|-LZSXja+_kD-Ns_G+x6Gwu9ARvR<1w
z<DSWGZN?mjJV1s+VwdTP2Pg)awt0YJiD`z%<d|j|jw*->aBwrmOcrRD<*<VYfdfri
z!2@pq2>U=vr_WKa0H}7K9N(%S+XxXq02lXg2RQ{P1j5}RA>f??P9V0)aHX%^$P9r;
zlM_0ec`Xwd7+%bG1FfW(nlO1ohm$3H3Ijut;66ccR<L~^&%p4)2_)YudKcE9@aS~%
z@aSbdo5#R#+#v?k#PjH7HJ+^9X<UEN736YoFz;dk8^J39Zc%Lnt$qN7{7p<1-_k*v
zHiA|{fK+Tpr~q+Wz+Bdg>98(I>j7{d=7L8rt4tmPLuWvQM=z@osJrJ78_{}zzjdc5
z$UN2sa2=hkGT=2Mti50%kVVZu{`0r?fL+L14i*JDu=xNZTx}w#@!0@U3rf)*y{sye
zt-6fs&$)mMhxpI{tlzW|R2Fw0e{mWi1#<W*Fqidp8p7cf`X0Tkx4;4*gIf>O$$9j$
zo&*U@010^XvhD$K!0mU-Lv@1tRKZr*`o%FYyoh&UV6f;0`=$9uN}b?7afoC%NYWW%
zTM#ILAeU+0U^T3MlU2Hn>z_Cy91o2id2n+E9zD-6Rs03FAmGt+1fc@t%jsY)>y1>H
zFPncbmhyS@va02PlLs{Lc7WvTVM~=(gLvSu)jZUB0Tk-4Q;xeH03{`t?!BPMI^L@D
z`~QECW|!`*AZ9mMz{T<he}9!AXvz;H=+VoX05%E~d6tLx`{f~BCwWjoha3t4;80*@
zoe?`(exBsypDmJ%ODFgB$g(eW0_7i_$@vqMgfD>VgI-&{Fj)T7cLMd}G+Dzyp=NtK
z6ej-15!6(B!RXO^AjP9s<S5A99=)uwlMQ;M#O0hos=)~a6h8MsYI|83CMWh9v(Ixx
z*v1ZWW3O#5+*CJ5kZrOu5b-FuxG>lRP-)QWFu7r(9J?)&DGU(R-$Gz+TkileMMxJS
zei$xZGkIp8rqwJ56vw4IfZg-^|9@-ODWypsy{xsM0u4Fjg1{li$~gH?pRpJ}s&+Pr
zc5vXm1(&F{|AS!;nPU%jh!nW$uss78&z!ubUqTiddj~-sAZTjm@4o_xy@tsT`^6bW
zCjaa=<`A+6Ik;D6^8Tq}OcM5!`+H>A-`Rm(4YpPoR3-J=ehh+HTVw~aR?7n-z7H;L
zZ-+I`79>nI?3H9sM>28>xb(FRf@{5O3o=r6B}7~vF22AP<Tgaa7+nAhz@vV;EmAtY
z6c5WFmWTNJin&2rStm}uFj1T_VDgKJ#_Y-<)ve%^DAWKhac!dlVZPcwnQ^kB>{N)b
zI$XHN24oDv1=4%K0&o{J+b}S^Eaid+mryFigwp{qgGE3FhfjhC&wvX*w1$M1OZSr2
zhM)icA9p<h%8T8xM_epZkMQ@u;ACKEc0It@SbIQ+k%6I3aGwk~o!CAPV_<l36QsMB
z^~L0l$;RSs*6>=<r8^hYE@0;Gk7b;k*sj7M3bFV7WX37F5)Kf~E`ONYo?C&|)$N&V
zJ4=>hwLi$Gwyl%1r)Y2-hHyeB&z|BYy$5sjYZf@s*nXM(XNtVo9%gWLaiH0C4`|>F
z(i~Vk*>I|a%^Oyv2=a(QilBZsW{`cX?4ZnyoE>7p-ejE}GWl1(5ywnRkScKMv|<ED
zo$xGB0o-d_<_Gh|PYY1$;W!Twcb*(RO@T>08l39hS-@jPSQ=zgukCeTn7$~mK3M~Z
z_!79dx&_EiM4V67oG!`)2~Xiw5XD|_#T(5h-=D1{bQK~l3Ky@Lyl%R(umi+R4}4&D
zx|>hVoh2(A0TJH-7Z*35Ja?7}lePKe^>ZYI^}&hE)*mjt&1~|&S(-+R|NZ~((F;#}
zYs`>B_c^Gy3d`tyE}&(vy{yY7Uzj1zlo~ks<wPTP3y^Y1`WK!GiNH>8n8U7^f&x)?
z6+}D?F22wdH88|4nu1arc<RTcJNHa;?HPD#6IKD2UbcU{V5VxDf<i~wA0mDnF8<AA
z^7`pYLc1VE+9bI6!O1zZ<b*Ckgp=UH6DQA^Wy-YG1Qa+zE5S*^mJu#%F!}E+Efch`
zQ8Qs+cnK};%s|13oW>F%X-s!=^lW4C6UI0_B;*Y$(|T>~Jz*XSntX4zvTzwhm<ui}
zYYg&_@Iy!ecGUx>{Dl!Xx_?5%m%_z&7=faj@y_IRb0mc?n1h1Y)&(vbZUl;LD>NVZ
z8Zj_f#vZ}Uj5!eftK49=ex7VQSCU=g+yDRFtvZuq=SsLML6mHAhbdWU2+kP4|NjS7
z_~6ET_f$}o(R_%p6U>0N3czjqws)X($9iD$p1H>QS%x6z!V_U4n9EuQiWTHAPKSi?
z`^j?ijP?E)fb{ehAkyzHE|7fZIZzD_k%gOhb#nbY2~CJvUM3#~hFz>+wa4~@^t>oG
zU|;|>LKz`-*^9{s=E-n7fSRA(tscMs|DWu*SbXxod1^Xq4G`Vd>!7ipPA8AoLLS|%
zV8y+nhoNE~y{tPX2h7)E?44Xa--;&)A-sF?!TI8hXD8pBZ>(Ug5Ap(Q1}G$v{aFff
zTQ6(NWSs@Z9KZBHiXdGaMxM!a3uGDJO`fwrmg#~XxP!9^BHu9i{sJ+98ZZa$?dZv@
z3$++CCL1hNQJ&E4J7HIPT3TA?iSMrt{$lPtaqx#cyd~G;(LFU`a`{4K#)iqW7wYoP
z0L{?-@PJGwPrkHJw;n9=z@rm9`tE@|2;Z%X2$cJv=2)kb0*ZnTBnA5*3N%m@R3a&u
z3sGPIau6tP!K>&K3?|ntvKJ79tLr@I(aUNv`RpPq1JH=SM=vX=HRaJA0J0f04+)wd
z08fcM`otf1=M%r++!vr;KggFRi@g|qC)Y2QWwe+)cX12PgJ4h(*-65qm-Xso-6axI
zdq4u+4hkSMz*D;yKJiDM^5|t<JUM=ef<qHXx|7MHm$d@K>JHHG=w;0XGa-6jfi!}a
zr@RM+;tP*nQGbwZrxS-qFRM%N<cnuTWN)SM>z(FrV}_(Sg<x>I8`>sqoBUykIOD6y
z97~POB(y-$5024YkU>!1&ERHIp$90PYa*mU+z*-{)vOaI7cP}xteD)jRGl$l@}{Ng
ziW(q2kS?HX5CcQELrn7rMo^OPgfwbuCjVM$Y@`O(4zbJ_oCr-{g1RW3$6qKTq(Bxi
zfw<kSGbYC`Q_ln~<n!oleQ*bqrKf_HN_%vMs0euUPL%-Vq0SH$4v*fc3ZUM6r-+JY
z=SiPl)^>0clXn7$0?)HQgB0juqM+3;2mb%}07pCn1A_x7G+%t;kIS7g`Ta66S&(fY
zp%0(<BR_xw_=87hD@f3zyVYQ_(sCVca8kYP(aX9jV6x&V$;m~_O{7&dpotWu^)QI|
z@rgg~xJNIm<K%<O6_miP>uv>6AjunP{Cct~t_%$P?Yx|zo_4FjWabq*j0%$tR+yQC
zz1R)$Q8##PI7rVa5CKjqAXlC6=meYQ(LI&n?tjo^UBl$LE2LTHf>P(?T`Qz{Hh6ST
z<$y^&Tp`W66)g2{g|ubD|NsBN{s$TPB8^`!cS8{;SOC1NVn?;eI`@ZFQ|v*R1hN7u
z@6;#$7~c((gH}e0ffoG26t93W7EC_4Qr#OQ1#%rYYdrYGACbBN#0BN+50L1y07Y4E
zD~RXW30h;Q0Iq37HNljr7KrLR{=#b6<PB?8gx*+z5}d7;HLMocJvnogqK+cCF=_kV
z3MSm40#XNBrNFut)MV^zxvBv6`c#9-+g3TM#JGW@C+`DNq_Vn$RCYrWR5z>TWa-tC
z#;^zi=gUi<_+vn!UUvetIx5ByV#bd&{*dDyaD7)Nr?1vvJTiI0YBdf>#Ia7Byl=H6
zqr&7HtJesx00r@dPy7*}bpdr3JUU%hOrE~R$Z7#d927#JO)7N{JUU$$V4by{r4I6$
z?GFo>R~08SuhrIHP$dcud5|ff#1y-LzvTd^ecJ5`wh^45L3Y%=@aSySm>j#-Oc)k9
zpj4gr;}d^G?S{$A*6Io8gDQw#TO+s?c8Zg;Rw*bhfr$S%hgr?7$N*aY0FFG5?x_Zo
zHP$%_!b0rQC;rF_9^F$lCReSq5Cnw;$ZZJG!|Ub?X{v%fbI=TC;)cm3>-`v+Cm&vK
z&&OyB$_~H4<pOKMWPuIhj3$#cHW+h!k^|}LHJIGEL5zb%9?VeybDlwDBtRUd6LOQQ
zH^^|Vf{4AiGkHOqsALbA2QG3z<w~#|1H<cLk6zZa$y^(a9Rv`vyC9=mriGvs*LnN}
zFG32W@r^9VTGn1S<bw3`<l2qmjP{eKZZuA81uKACR3pp4;L@Es;kfGwNGIupi)HEw
z{(eJnZf8veHCj7cLCXt0x>^0fJk|hvXs~#6vf9{#W^zt6zhL~tuXVtqyES97<|Y-M
zb)bQ-PNx8HWf8eah9i$1?5_IBwVMnjwLuA>m(|S`R02nUOW+cHkKSH~$>%mn+e^AK
zF!=Pk2Y|fub{VKFWn}{y*BuZ5T4w}`EpVy_C00nP2MOKy#2*PMQ&cxAN$+q086DGl
zfWJka2{|#e8ca^wYzj{dpknHRM|Z2n<Q1C{i2)({adW6<B&c%>T3-+VVtBB0v$|V=
zR!QXj0&T_m%pdVLjlb?!H>>XC{4KHq#t^v+{2>=W^UNxf=WMYRK4cEofV8G{&*V2-
zoEdW_8*G(lY?vIdRX*^AH3P$IJ&)e07$wg(a490XA557Z08yRCUtE|4Dot58T0?UC
zi%<NKYe8)QP&o#wYaJ#Z*ea_~1ybG1+OG(z+mS}Uk3y2K+vLAnjq4R9L6HMa6R^s4
zk0VH^5F80c7}BO+p{Y+CAq9%AdlC!`&9x_(`1?{oQQXaX)e7Re1E2U~V5w*$RP00=
zzupP{W-I2&>$kDWt_GRdEjkA(c>olrpmObyM>lKz<cr%xRVtxUKR)rtAQrrObRP8R
zW{rjD_M6PLU5C>HRKs?QGFeTw-!99@JUMo|lqN`wzd4HuREM$NwuHFq#3%lkUTE4r
z4r*n0i|&}bV0)~C1K5OC5Cw7vXsy;<kO`o$z2VW>Y5|h(WxWl`58Vy{9^F$j{(%?Z
z<{kRPAK7X#*>;CCqr>FL9hxd&rQNLOK*_>`A5^eMfXcNxaBU5$V?gE8vK^X?9+NNZ
zF!DMs26h@~v)Lg~Zh{*72;__tpZFsmf}8-VrUXFMMlY))DElKfnlC~kmce+k&rT!8
z%aiMO%5pvh4=VQ>{00>@jK?SM-YKiG5-bLeb5P6`h=TL+%<r{5ofkk2q8AWzN+#_R
zXY`sZvCCM2O_YJ*GryMWiEh?VBXD|t@tHpoyc8QGJYjP7E*-B|BA|2wHg*@ZofZln
zS%M^`(-_jGeP*DfdHlr&gcQg@<&z)ok`S5(PG7d(+Rzf`h3sVR-I5&Vzk!PdkI6c_
zjX7=!gRErbot(bgSYW;|0|R)K=6+Bk^2L_Pt9Hwar+`(Mt~X#{*w4<u!0;kcn1SJi
z^yCM-B{V?8Ot8hRppC2P;FhFqzZT3!K4H*AU&LgEJtB;qlTG(1GOe_peDJWy<eWXc
zjBS&v_9!zZO`f;Micx*?%{_@C{X*~vbp7Db?fT(3tJY+{y|S7j)~GXzE}*7kuWg<t
z%%a(XAd6mFO_n<>HhI-vTSke=FZTXqd@=daJ~PIRlO^}hWfY#geSZX_#bkj4t&E>0
zPdlI_;cgBs=t?*}x?MNCWC5k{URHz27Y>LpNt;jJb6knPSM)0=jC+f~xw&Vu_(3D4
zZDy0@&dP8v@aT12019s5pvgrCRT(oT&p4<hWeZZ??O*{)bca9$DCL2A8Y+|T9E@UY
zoNRt*Hsi|4mk%jv^qHdiiVNJpu{BYF`AU!n<g4V#vWI;cr%uj3tihNwdCFmJMu*7<
z4jb_Bn}9N;1BXYiD9hwOhZT4p8-oM_Ks|&TlQoW5FwUQxctn!XbaM3(Gaf&%WCTdk
zdGg*PK8yz@a~)M=yfRtms4C;S%|S<*85vhi4m;+-C^&ikF)c1NHE_|-%cnMZ_Gu-b
z861eHIpEP9I>V#a^?*k&?<a5<y3ha=4sUC~`52V{Tz7c%vR*Sl4&NQH@ZCSz@wf=c
zuH&kFEnw}Cz?H6<+<DxP(RK3f<7$kHCO<l^#`t|Q=Ls#TGoU^$a*%@Rm_r`DteYqM
zo`_-;n7rb|Y(|^OE+>^V6!lSq^d-2)wiT9x1?d7-P>_C`+;`GfL<Q8-g{+F_REGHW
z<K*`z#if4gf&voK5d+nYH$H(@czX1*KA5a<N=tGpSQ@<h7#zc(ZW^c;Fn4nDDHBjK
zI2FWrfAZ^7a*W?5bDdUZyfj(wv;~u=;^YO#L?_pt7U7J8w6S>ICeJ#p%y?n)zSH8e
zS~{Sd2nk5l3PeC2@aSdboBZjtGUKbsVrMKE6DRwh(c&yqfVekqa?=@Qtrtv)$hqLr
z9Se$}6&}5=pr*H-Ho{!X^2z7VC^GU-{&+@A?1vU8b|P92l%#reyRPs6F9Uo$S@x_d
z?_O{|hQvz9WdE~9jCGTn&Z;rqp1ks`8l%DF3um>YSV3x#BLx&thdp{(-%J)c7sco~
zIse>j(MnBFNdk6U-T{y1BN5TDhbK%{Ie&odziOBw1H<M==i_7<T_!uewdYh0`ws>w
zlRv(boV@6*7^DB>oo~$<8zz5zYwx%r8!Y)hfEQvS0}H6h#V63l!~$AW&&$Tb&A`CW
z$K1=(!`jTo;=s$mz{AeLz+l6`z~IBkz;Ix4;X8Xy?}-po)=%E~PM`76<d^Tv8IMm^
zd~eRkI63mYIb-nTiSNxBdp4hZe_WXH#Po^GjN<Gq>I^Ili`%EKXJ!<$Y42cUU|>p3
z%_)v&*vy!imuwNwu%D5I;llz(1{Q_~n?dA;b09T|nRyJ?7)x^!D~sY8wlc9WteVcq
z!YHir{5ul^1G8Z~LnD(>JVQH^aXdpW6AQ!5UrY=v43Arx8CV#uOt)ZRwBSFXW-~t_
z<)y?2p$k%{4cAYvXJIr{Ty^VCFen5-zSm=9U}%9JS5VHtzyR7C(K7ua3!}c^VrR(O
ziUz3g;^~5{jQT?CE)d~Ps4%<B^dMG7J;8zih&X879>|n}=@VHQ^#dP7LWE~QmBaWT
z%T*W{7+{eB;`=e8@<EO>NQdZO4ApNiU674YKk#=wM0gEU7{&(~12T5KHOPk$H6UY=
z`5<Fg?S{y0f$Cp1eIgs9zTk7HFlbW%$P>?}Ujzw9?uDoZ%`$?7Bc}_pGwKUIJ_Hdy
z0X5|D^gxhs$VrIs1*mYy_KEC_`HYOew=;4w)-yW7Oq<Qjz`)PQzyLF5F_aI}zZ%Mi
zIcg)6ziRqHE=K)CSVUZa3d2I`CX^40kVjBHEaYE9`LJmJ0_DTv`!AI5u|1HRaVayK
zYh_quaOm_ue2hg#rj`uxMX5zadPc_Ph79oqnR-TMMg|P=i4ZX(ONRI~JtJci6NdOS
zLlDDk`T~B&8fQa>_{`$?qSWNlqT<Z5R6QeOJtHGyQ#4Uy6Fnni3o|rP3o|_<Qw#Iy
z@dAvZy69RgEcA@bEDX@KSn3&>8<|gED8MLg3378mSz=K!$xh$M&zL<xPT&4eknuhf
E05d~zvH$=8

diff --git a/original/EELS2/eels.for b/original/EELS2/eels.for
index 2ca87a5..0ccb844 100755
--- a/original/EELS2/eels.for
+++ b/original/EELS2/eels.for
@@ -186,7 +186,7 @@ C                                                                       ABTI0209
          WN = WMIN+(IW-1)*DW                                            ABTI0215
          IF(WN.LT.0.0D0) GOTO 45                                        ABTI0216
          IF(WN.EQ.0.0D0) GOTO 40                                        ABTI0217
-         IF(.NOT.USER) CALL SETEPS(NEPS,NOS,OSC,EPSINF,WN)              ABTI0218
+         IF(.NOT.USER) CALL SETEPS(NEPS,NOS,OSC,JOS,EPSINF,WN)          ABTI0218
          X = WN/(2.0D0*ENER*PSIA)                                       ABTI0219
          IF(RATION) THEN                                                ABTI0220
             F = QRAT(X)*AIMAG(-2.0/(1.0+EPS(1)))                         ABTI0221
@@ -483,7 +483,7 @@ C                                                                       ABTI0508
       ERREST = 2.0D0*ERREST                                             ABTI0512
       GO TO 82                                                          ABTI0513
       END                                                               ABTI0514
-      SUBROUTINE SETEPS(NEPS,NOS,OSC,EPSINF,WN)                         ABTI0515
+      SUBROUTINE SETEPS(NEPS,NOS,OSC,JOS,EPSINF,WN)                     ABTI0515
 C    ****************************************************************** ABTI0516
 C    *                                                                * ABTI0517
 C    * SET UP LONG-WAVELENGTH DIELECTRIC FUNCTIONS OF THE LAYERS FOR  * ABTI0518
@@ -493,7 +493,7 @@ C    ****************************************************************** ABTI0521
       PARAMETER(LMAX=100)                                               ABTI0522
       DOUBLE PRECISION ARGMIN,ARGMAX,EPSINF,EPSMAC,OSC,THICK,WN,X       ABTI0523
       COMPLEX DENO,EPS                                                  ABTI0524
-      DIMENSION NOS(NEPS),OSC(3,NEPS),EPSINF(NEPS)                      ABTI0525
+      DIMENSION NOS(NEPS),OSC(3,JOS),EPSINF(NEPS)                       ABTI0525
       COMMON/MULAYR/EPS(LMAX),THICK(LMAX),ARGMIN,ARGMAX,EPSMAC,         ABTI0526
      ,              LAYERS,NPER                                         ABTI0527
       J = 0                                                             ABTI0528
diff --git a/source/f77/eels.for b/source/f77/eels.for
index 92632f0..e5bb6ea 100644
--- a/source/f77/eels.for
+++ b/source/f77/eels.for
@@ -193,7 +193,7 @@ C                                                                       ABTI0209
          WN = WMIN+(IW-1)*DW                                            ABTI0215
          IF(WN.LT.0.0D0) GOTO 45                                        ABTI0216
          IF(WN.EQ.0.0D0) GOTO 40                                        ABTI0217
-         IF(.NOT.USER) CALL SETEPS(NEPS,NOS,OSC,EPSINF,WN,NAME)         ABTI0218
+         IF(.NOT.USER) CALL SETEPS(NEPS,NOS,OSC,JOS,EPSINF,WN,NAME)     ABTI0218
          X = WN/(2.0D0*ENER*PSIA)                                       ABTI0219
          IF(RATION) THEN                                                ABTI0220
             F = QRAT(X)*AIMAG(-2.0/(1.0+EPS(1)))                        ABTI0221
@@ -492,7 +492,7 @@ C                                                                       ABTI0508
       ERREST = 2.0D0*ERREST                                             ABTI0512
       GO TO 82                                                          ABTI0513
       END                                                               ABTI0514
-      SUBROUTINE SETEPS(NEPS,NOS,OSC,EPSINF,WN,NAME)                    ABTI0515
+      SUBROUTINE SETEPS(NEPS,NOS,OSC,JOS,EPSINF,WN,NAME)                ABTI0515
 C    ****************************************************************** ABTI0516
 C    *                                                                * ABTI0517
 C    * SET UP LONG-WAVELENGTH DIELECTRIC FUNCTIONS OF THE LAYERS FOR  * ABTI0518
@@ -503,7 +503,7 @@ C    ****************************************************************** ABTI0521
       CHARACTER NAME*10
       DOUBLE PRECISION ARGMIN,ARGMAX,EPSINF,EPSMAC,OSC,THICK,WN,X       ABTI0523
       COMPLEX DENO,EPS,DENO1,DENO2                                      ABTI0524
-      DIMENSION NOS(NEPS),OSC(3,NEPS),EPSINF(NEPS),NAME(NEPS)           ABTI0525
+      DIMENSION NOS(NEPS),OSC(3,JOS),EPSINF(NEPS),NAME(NEPS)            ABTI0525
       COMMON/MULAYR/EPS(LMAX),THICK(LMAX),ARGMIN,ARGMAX,EPSMAC,         ABTI0526
      ,              LAYERS,NPER                                         ABTI0527
       J = 0                                                             ABTI0528
-- 
GitLab