diff --git a/Makefile b/Makefile
index 1a61599..5e82f88 100644
--- a/Makefile
+++ b/Makefile
@@ -5,23 +5,24 @@ include $(BTREE)/Make.inc
 objects = fvnlib.o
 library = libfvn.a
 
-all: umfpack $(library)
+all: umfpack fnlib $(library)
 
 clean:
 		rm -f {*.o,*.oo,*.ipo,*.a,*.mod}
 		( cd fvn_sparse ; rm -f {*.o,*.oo,*.ipo,*.a,*.mod} )
 		( cd fvn_sparse/AMD ; make clean )
 		( cd fvn_sparse/UMFPACK ; make clean )
+		( cd fvn_fnlib ; make clean )
 		( rm -f fvn_sparse/AMD/Lib/libamd.a )
 		( rm -f fvn_sparse/UMFPACK/Lib/libumfpack.a )
 
 install:
-		cp *.mod $(BTREE)/modules
-		cp *.a $(BTREE)/lib
+		cp fvn.mod $(BTREE)/modules
+		cp libfvn.a $(BTREE)/lib
+		( cd fvn_fnlib ; make install )
 		( cp fvn_sparse/UMFPACK/Lib/libumfpack.a $(BTREE)/lib )
 		( cp fvn_sparse/AMD/Lib/libamd.a $(BTREE)/lib )
 
-
 %.o: %.f90
 		$(F95) $(F95FLAGS) -c $<
 
@@ -44,5 +45,7 @@ umfpack:
 		( cd fvn_sparse/UMFPACK ; make ) 
 		( cd fvn_sparse ; $(CC) $(CFLAGS) -c umfpack_wrapper.c -IUMFPACK/Include -IAMD/Include -IUFconfig )
 
+fnlib:
+		( cd fvn_fnlib ; make )
 
 
diff --git a/doc/fvn.pdf b/doc/fvn.pdf
index 81d209726a81d5378b60229defe26a01b311c169..45ac3f7eacf3a3069efb4c0fafe2d54f895d860e 100644
GIT binary patch
delta 174398
zcmaG|c_7r!`*)T5z9mPwY1w-hIV(9*%8?_v@B1pmro)j^Sy6;iNy?EkD!C$Zbht$!
zDO9MaM8A3OE_U<z{{E`9^UTaM^UUjcp4U9H3x8Ng7PyQ3S%|&tg2XfIY{b(nTEz2g
z+ZfdFL^$UbB0Z}Z@i!Zch-K9xy0OEEX{?)xe>bpgz`~F)II)IR7znBpe}Pto?3|>(
zB8Z#VREVA&vP3gBG2%WJW}+AyH?f98h5<qDQd@zA7{$gSfka5DN%=c@u_^5IarJfe
z3vmnzmvRgBa}M$J_X{RUu*;K1!olERq`mCIOwNu$?qH5cMmP*XtcCvI6cj>a=79cy
zByQ&r=5;+95agrC=IZAH^$SO#i7^{wH$Xk0h{YVj8+`oT;cCP_4pPrspueLPrL?qG
z1<<Qga`f>Fa`hp~a>9u3*mxMw7@|9i1ksU+q`d?VhJe9oBr$3$%7i!)`#85IGjl6L
ztq`=WP%EvR{X^E~i6PCC)E-IO9=Fmy*wfF&eNBQ$*dV_R>K{eZ9=ke!Xa8X8_E;pe
z5~LAmHO69AMsNf}tPOxA#&C*5>#qcjf}t4&x2mfn7-mg|cwwWw3e+4++k91N#}G%V
zA#fzENdh=pfmN*`0mRw>IO6dQawGvfjR1aCZJ>k4T6;W6Ymxw5jaFh+ZJ+_Q#ERNv
zA(}l#sIBS^rnM%7P$OR4C<lWShtq5~LTycRnu#IQNUD=I5Kgn>2(>lcX=Vln0lJeV
zX!aZdUsWDjEvjk3iE5l%i6-pa7zBJ(-JM4R{QbaL^K|r)GV}{^bq@mnarASM0@m&r
z;_9-xcnJ8)Ql#nFFl^jPbxaV5)rD~NToXV*%K$ZIB5HDQ3L_A!+PlKnS^-obogq>~
zIa=irYs&l3bPQA{x2IKo4MBpbnj=ZOPHHbpW9$gz>M}S}x2IN=NtVXe5vWyFovDro
zg2>CEEKg(R2-K>&!5&n-lQD=qdm1xGpjNeYrV)TPn%tho$`Nbe1g1i@&qP&D87&+w
z5+Km4sv0=@`Z})S>VNO`3b290j-mxN#2T=<IXbUxBL>=RV2&tSghOCfSHa2C&)=6y
zU<Kn)FxpMWtS*B)G}AQ+2;;ypME#@L8peV4L2J#)5J#F4?XFWnoR1%np%PiydD1Yn
z8&3stK0s&<<`5K^L(#$<0=KF;XijASt1yRx(e6KvT5(URwI#tENfBBDSc5regf;(x
zAmbcBcd&UhIETQmnn3{d5y8_a4yS=R<QmKc_&cxJ8FB^Yz#ud*hg^d>NMP-(BgrsF
zT3lL~L$1M`lWWM@o`W%f@vD*)p*iYEDwOk~6@inEJ88M#G#igxLp?}hZA*|4v~AVK
z(K>(R8mjFK3i1#7|Bnokgm#Lc58CsBq(Z$Qw^dU^uD~AHBsA@jL9U^mYmnQT8GsSM
zT9De)92n#p>bW=`S+h$3djRisakS1FxrTXquED{sKC5a4|0fhc;JNDfG5_ec28K?-
zUTRdz@p33CVg6BT4G%$MDx)9+BG3y%3k1kDJah^Ur|KOAtphM33@s2K*YFUury2lF
zG6(==n142S4HKP$J*fs*K|j)*XixyThJHYVY77$mk>*6>1dvql7wk<n1UbSZ&4~sC
zkZb7Y6zokk042b~z-S-<xdwia3a)Egu!??Q&uAb3xdwlb3e+MiJ5AE#9}rlBKQJ%q
zfgtn)u?`r976jJd4^o6`m{t4(BD99Q27o|>%8*y^4+zkLz#0Go0aq#sJY@R72hwiF
z8u;mYQl%FEZTG8?2+lN?*6vYjh)9JZC=womEydCrK57jPoz^f1MaDu>bDC8^twEuq
z=UVs$dMBTLEUnd})_~B7x;YsIN!`<cAZiT+9X;1}1+^O8kwj>W9<>I9PSheK#3MDQ
zS!UE4;sFJyhFF0-U|v{S*N0kzJfH-X2suO4#QoEJ4e|DP20Od@_&ECchX$`9+3GPs
zkz+qFBFOEi1Af#R3<d|d`mLcXY8CIm=?5V^jnEq2dHQ*Vtl1k1gnx>lJ?%!W0iJWP
zYuH*EiXtJN5R)wmg(3ds6c$CToE0feO*T~%S3ma<4=FeTjV03CDiA)~*aqLg2t;=l
zy)$cL5*oU2)Fi`4?sJ%i?~q%rr=-9=oC!RP-W~h5#$Y$k;5)+r;uW9KG!~9m_}?8b
zkHBQ+-0a_HO77HX`YLB2spa&=k(aOS3btyN<>Gao1Yu)wKD|dRT@Upn|Nfk2Ms4{R
zGQupg>yuX@yClrZ!acE`@HcXf@g9GqNF3`#<30Tm1g|~a^A@H-S6HcLXP0>Di95IR
zpLMmGoKDkgQsWS4>Pz@8tNXj!?#|q>2~Ygy!33EzH!tnh*}|@vxG8}?$#u8l0>iF)
zndGp{ue#gMm=%29cjbzKNSI{!cw4FPlPpG#9Y+l>Hx|p?6O2I=(@zT#>Y^|3B*FY0
z9}0R%D^^!2Ck1QQDj0`eoE-DCyj9iup}MRyG!v6!llNG;FY7(W%S^Fn=nW2sS)Ge-
zZ#28TlO^I^`~~Kn3i?>BT}Pf)++$)F_)UL4Cr#{N@}uHY!Xg#>>bLlDzFHo@o(+s`
z;t2HKINCPTGEfs2rN?#cNuDgBno&1X)>P8;ZBPAl_vnn6Pk$wY!8EV3kD2R>{oU%0
ze8!ivyET>FQhDxn-DVn^timjC+;Q@fycv6)wHiqX3GQ!7;hb|Z*=1Vk*y-_}T{+w4
zS9Xb>vcWT@Y+amL#uS487gJ1zn^+_t_T=7+7x=0S*~^?Kvds^<9p=<HKuFQOEKrQy
zauIenCQ4RB^76H2CLbC87fHn4y6j1tw0AN2@Dqtk-Z@T3CwS;ZM{m5$W%OvkXSwMc
zSk)RHd;3OXN9mZZJJ<J8AGZ>J*0Os1%z%-VWKT5GoY<3CGVz7=+}j`paR$5uC*p|I
z-wJcrTfS!wZJX1O3OegHsHZ@<9d~S$cT@aJOnfFMEVt+O)IAJSw12ppAKpFVxoGs(
z*%^XZ&@-kv(f#Uf2lCl7u73*h%nvMkW|2KtS(5LPeXkYII8~B=*wV}9L~&O{-RX0m
z&PfEo^O`NBZv4!2+t=cJJBg=w+hCg`{pXGTZ6d#`0;ZYG<aXt^b%hpgn<rrJZYf|6
zww|9K3qvG#aO5^Rs{eAj8s=zb*IfR2e3~w`6`RGwODALyDP?Ty;%~hDUD4)3o=0)l
z$2(ssM4r1}Stsx{MltyEvc3DSUGER2<}N9l<=?(r(mOwT>XCk-Y;E~v&Dfygx{A#`
zzAq!@_F}AHy>=h=<oBPn+COivL160ih~FIcF=zPoD>mt$4~rZ(MM!UroY**t5y>ha
zpOR`!ILn>2y{Ys@&4J3g+3CCKs^27T><hY<Jaqi^MKr(Q_4h%gZli^q1r`<$VLzWJ
zTU2u$wbdOGP7KeTvv0PYxh(akEA@zv>(ZS)7ce=?XVjE)bN|*@TphW991wE9O!#V}
z?eX?aUvfa^Qny{2HJc5#1o2I_%ObWkXhw%$arcShzQu31KN{5qm*?BLEf{u&z_%T8
z3<^4Q%i7{j>+rx{j+vfY+yPTQmT%_=HlB~1R}Na%<r3P8KN#ZKY%1Pc@X*rxYq5&^
zob7q%Aeo0}3K?r+N6wGucpzM2uD;DAm~@v|qHhNGXU6Q)ey4b3tc7K%r{%yGVjO+m
zA&H8Sn0vp@RwNx{92;%YGXGNX;*eu|c3<)C8Re$Dufd1Dlrd|ThmR-zDis;(4Ugew
z*1sJ+<KZ`NTitx{9Z&GIZjQ*VvL$Th535c&gTM41tjDS$@+~+d$kox8M8j<W#2pGn
ztc#EqBID$KHr4&E!TzB^&aS~yC>)Y_-%W*p!Xp811-{bt^Yaf0ma>&Xp|H?jz`syh
z1^tUB|BHq)c<>nwr~C`?CD3P558z)YZ-YLgDgQz#6ZDzVADYr1n$jN>5)z;W7)pm2
zN{1Lqhol$~`kvAuhSDL1(jh72gTAM9h^0&rOX-gk<ALw7l>V@k31TVzfq;%5n&BZf
zEiEYu)d{pG>WZlozlbvnqcMOmMWCe+STz_1xPLSj4#Q(nM7W3w@v9&Y16bYbo!f{n
zM1_RWXwXy*D+R{_J{O6XLSximYH%DeMpA(&CCo}ZE5ySH77}!=CyYkoVQ>(0!$J3I
zc(fE6g@xgvSew*Vlo5qiBez3<@Cgs~2{L3PP6~~LLejN9n}op>&_o?E4QRH4Xf-4Z
zi9$#L<^YBS5g{55@=GH97C91id`JXL0F7AH4TS?#E(kc_Sm59ha48fXP^?%4Nw@E$
zwn)%cUjV3#Qo~3A$_|D>fo3>0KpE>|;l%Tze9-9hLi)leG#&<71p<zP;Xz{*26%J~
zf}#*JQALaojEx5U?cfJd7>FhjYJhMBs-w^#7a?`mB1Y;Ct`4oIumBPXQv(YRtrQY8
zL!n`6YQzx<MX;F6L^VbhqTePq&?mH4`a%dem>W(Cj#q<Wq2ZBG=YV%5ttT@v2{dOH
zXM<)--Y#JwH9QOh3?Gh1!_Zi)6bRH{Xeg4SNMwsc6NYvRG6Ys$EDQ^51`gH&1NIGx
z#}Th>Q6w!ZZZlX`3~9fFkXSSf2i6}9kHKN3kT?tsgIU=wX5#D3Ktl}JE=>sp28IL1
zj>G@~H6Vcoj0QM8NNA&>_)`)?43mI5hW1NiwK*CI!-2yIm?Rh+*gjZd7#0l;fFX)V
zLd~Hq)7ZSyI|>fNfj}RD0qGk?3W-(&gF&6|qDLhQZ5Lf>20};#608GU3W)@f8;acF
zK`E$1XwUS7LH-X@13?)ahlb(dU|>iTqDm;sH77;VjJ$W;tJ76O!PIbgU=`4w1MPr4
z;*rp{pol5bV1Y5v?yYKvz=P)C<Ra9tU^l_y029IEAR|H%F<VFjkaur&00gi_I2I3f
z5yZt{!4Y_Ho)F{#`nEs=tn47OAOa0SQh+lEaHfFWAuzzO)K(8iz*e9v7TQJ9!50Gj
zCOAsKKETr9kWvV6K;d{e>1=F};h{$nwZ$|^2!Q}Pp&*0+D};oDDIfqRK|zSCGEk?`
z4(bV!>>ZjR8iob^BH-YtuA&1o5hDv`3lh&+1$`l4#ArC^5f8E<BoI*pS2AE@SJwKK
zELaK<-wNpqK}Q#CECQ&H0(J+-fm65&56nb=IjB=;2Ukr3(gy?16%qg%5>5gufZm{Q
zgb?W(iWIX`VIh`C+0zx9f&)thXbj2Y06N2g0i(ca039em9gu^5st#}v(t;Z#QhdHc
ziWIn;eURlx;V5+4+84x_NI6Xup28BZ{hf^Yst2uYq`;SGEWkiGT*@!h$A<>CamX~a
zjr2lbKol?q2-Q`00mw#?Qe)@?0{TF96yO6m^LVnCP~C-tz>mo5rzDC-QO|cJp8(^L
z^NFj^lhbVkVkedaI2@1nFFZ$C81}ZzG+HY$ioKi{a1y?t-ZIE++t&x%<HBCin#JO4
zW!POQr2V&AVNOV5PC{~DRAaaD+}!EP?Y|agN5;O7G`MfszWwD17Ju~x)SS$9ewhc@
z%<#9z1W%<0{GBr9**_{ji!i#2+`07Yyb6qvHg%7sX77{B#z)`kol)e|(k=ShU>yDP
zUKlK{e+TlzX_37se;B?_H=b8|`8LX0)><d!@UCA)lhr9pBh_br5vAU<{5axZv#@+6
zN@AYJVatQPGZ~eROqzOfV)`G8`T}>tljfc-8yM&M(LcL2<|j<Y)K83EI$-~WkgxYW
zUz+g7d`{9~ulIaQXPV}QlAK1Cxu5kjJK3|lXI}qc*h(jvF#G-+e&))d58uS1Q{2KC
z_CJZ(eO8JX*YRs+W-PT!!d=YVP3bVKr$6FS%BAQ156{&0jW73C5o9(t&83)aEHijF
z`}6Wb#LwiOpZ8+EIwlXhvT=KCPuR&Mws=6Lw4cDB71NyciLq9A+cCFSPx3ncSRaq#
zVcd2TxvcL}b6?wH@?=h;##H#^Sa0lOk3N5dBx=(GXKks-{$g#1NT%+sz4MM}gU`kC
z#iPm2f<Im(vuyVD7Bq*)enz_onzkSHatu^s(|c(nUVB(!{O3YDp|a_z?ee8}bn|v_
zD_hPMLY7azLENe4ZcE07+vq>etv5~wobHx-Z@p*v!iT&JpL>TMTxwDoY%LSb{CkX5
zFXvCFCHITUlaWSCg#0JB4$CDz3YTwn8zgEP-auT5ISvn>diPo6iLQ@0C;HHs3;tuR
zmwBkllnS!zdlLUKNwMIeBMmWh`;gj9M^3yq9aiNb(7UnOO6`1O_;UPao~LZ{my0iK
z#g9(7F`|9PMZ&)0&9?eGg;~n@1<Iq^$45oqu-R3!*hw+$NyHC}EHRqBd$ZH=r@}|e
zge?DV@k1w-M^i7U-BliG_9#Cy{3R*da^B12%Ux4kyj5R;Df|Fa=M531vjO(EGkSS5
zA9EqczrH3QY>NuRlOoF*?Os~<Ubz!4e5uf<x|R0@r{S9co1$mdiJEb)g%UAtk0ci}
z1!vj*W(N=L;pm+3ozHp2c4Q=7U8r-vXUw4rzEaJSxarvU@;4uq&A`3lqBtsp?V7lg
zXCvYw!kfPlN95!%T^X)<Y4xGa9p{giB<MWmvgm9+OgKE&9xo0vsM^i3i8V-t&ml`W
zvI_g<QJjO|$q0kVPnV+ipYXB_S(<CX`Me6J?}KZ*Stxy$X4>jj<eQxRRaRSkSZRAu
z`BylDf!L2n*4EFzh1Pt2_7yYPe|Xc6v&5I>L1l*qvnn5Y{}P|%2oBEktGNAeawg1s
zTlPsWEAIs)LE~|$@V3R=aP34)>Fi%!!Z|avWz*6(?VN?2p2hQqW-_0aiy|^n>E(yU
ztDe3(vqj^M@UF@1Gk<GUr}7r8W2;ZnT_!juC^IMAMfLLE>PlT4EDDKE*ZQ;Z;ttmL
z{{-(Kc1N$!AS5g_4<`<P<`*I(6ip<L2F%O<h~z<NLyEw$l*k)6OVVc&CkX;$93@Z&
z-h=da;HAm`QUYWW?+4m}Ae8)fN<VmVKWGx2w_gga2Ks>_c{B)SpoSn6rTk0o5Dk0|
z`R`;jM}tV2{F&S#T8+{noE*WU0m75MCvkM3KRBg7IHf<}Aj#iT`U9?)K>h=zLpY^F
z5(5W101+<fdjw^I2ug<}$_@IS(jo8?<aU$^lK3^~drE&u$^?P;B()<EYT$b$(wy=K
z$_zo&N^U^u5V&&kXUYUYjzIcMV#YuRAhw1+)A%&(YAQnfh1Mh9ln3!Xb|vKy!m5GD
z9qcdyguhrogkj-$5dN$N$=V8#`-dW+)esAV2UiPV1whaQ1xivNSO(!Q6k;I+p%M-<
z(MRRJ)9CdW_=&|rN-O>!17cd}G9C&&P#~ScfPe;g#}Nsn5Y)kX{||+`tHM|Wh&n*n
zfdc_DSa1vuRK9==Vhd6j5+-wiRHK97k1BS-fT$M<!W}q}f@n_+h{mD2d`a@qWPY1U
z8V_P5O>s()ivhteh;B&{EF6Rd7?80bh;>p*P+<m1cQV&YC7(8;L(&~Ci~-RgU>t!k
zm?qe83=|H6^m!#Dd&kDYK_v)kb4W?dYMhDzlYnLn2l)Y%PGXQC+$Uul2%z{%{R?#u
zq`-J}*`OE`q_9vL2vSNZ3<3ee;h;4K6JM!|p^_$E>x6+EihETaq;4SfCaoI?W-)Lm
z@gv1-q|w(cJDy}SE7EA7G_+Z890~>!cQhUZna~x9Bzf-tE<1n(YKubyJHb%WVmwIE
z&^Qp)QX)=h^8c<n$b6{`1`UO)P@)XkD_|ASU;))IkmjVBlezXa%>nvQ8w?tXRiX45
zN)x~w&=_EDP>x5QIhlH=mZr&`&?t~xfiwildDNh68cOid6mtU`@K2}=CJxMPCG|lg
zK_&`9TvCJ%FcHf5!Bi**4dgZdN~bxhlMmWz4<MDskwSDJ3D6M@@)j_i)!9?7rl_aC
zVs@)L2TnH*P#lo{fH?t41(YR0J%F<ctnS~_j!t`tr=0}I+F*EqoGYdSF$_3xo4T@u
zl#45xNl<dMl}Uia1cnErQ_Keh-C$0nNr;dp@vrp(Pe5%yC~(NtNRWXh(+|KB@Cecj
z$nxv#4`g)^C4dG;6r2?VNgiS(K-!1FfSE&d3^S<Zp+2%`IAnF3C|Cg)AQ;dYl0ZUa
z7Fc&k5CK(^Y$R@0;$lR@Y4UOu$euxk9N2AOXuxTsP)Hb>l$Voan1~ORc<9kYX&lY5
zL?M7Vg5(u~F_3#hqy=1!WS*pw6~1*V1Co$63qyfZ46=68G=ZoT3V=Tjw<gZNeql(N
z;0hoj!8wK?iJ~RQx$%fqEtz=NolBycI%)Q+^57stH}r5UKw~H)1daettP_+6)r-8m
z>rN(dge<;d77$f}1hgF-xCA_)^N;{t$e2V{e%;}OQ{3Jvs)3vsh63RLGywq2ASDIP
z1@eAKQV;y=4k(;tSgWiDIL?6K0pfVTqX6eXvPrV&y3+~V43xwJUJr%_&W}XbK>P~|
zI6=tykyt4K@ZsNMji5#|Bsjuoz@@Iv7;-D5H3w+6QY=JumVlX4xj!U0zG#TD0t=4=
zSO^v$Oa{UudK__9ik}gUAmP^vfFJ>HfCX_G9OCr=?1Q=wfT1J<0mpx(bclL5YJZ6U
zTmmqAFdEn&0AQe$1*S&4E=%&4r0K5Lm4<0R03H+zGVGP%5s(`}LcX3f`a1gp#3R{h
zu2={H;>N&TBSh+9K>UgTi9aCIfWD;R*I5|geZXq1m?!Wt;5dNkgGB)51yQ14smZaz
zO1Tk@?*G6R0&r(|lGg)t1H>1hfv<x2BJ$|#j0;@1QtcH20Z<BZJY>)UrEdTaR(vLa
z)PKzc6zc%#m7RlFR5cLbuAB`70?<5Ul7(z2<f;U!=_4UCTU8yvJ|ICM)q$}=#1x)H
z3LyYs0xMgG`ryz|4Gss84+qgY90YoRyaMzSm@j$mWchzXJP`R(s}AA38X#aGmkq2A
z+I~Fs+}EKRu!%KPgH(n?UJn>K8e;Z<5^7|xM;?8h)geh%x3Y9_h#4ihJg{BR4gi`D
z%!cByfM)CL4oR}RVmV<haF{_P4Y)oeP#8`OkOxFG0~8ysm!aV;;oukpij}loaNwzd
zCxF6oXiQ-0;Q#A(dj-l?XAO=rDJ}*kjs|%G9FX52OsC9xrO1hTziE6V9Gq-&U<^(;
z$jktn4<@vtG{D(^CjcrU0MW<+jx>a2YCv5CaY#`Oa*X`ol>Xa1ZI%+75IvQ+n4ypc
zu$;tbB@H=nHvVl4FoTBh14%3q5PpnMlKR3|i1$BvH(~Tjkqjx-UE$q8j2fau_-tz&
zJc!|`S+w$q$Z^|phOW-a-*mtGz(5=({ZmM?gacc$h}lhs{XGg#Y91cE5YeAh(ARPH
zRw9c--G-UZqk|h{!ZQP#r;g#iO%v;G_r4tC5?o#mm=6o+c@nRYka0?Lnq$}Irma}6
zQPak#UiOn64t>AgH~M{?^E(fhzB)yiWS?5b{=8u^@T)5^eEPwV{kw40-#mtM$k?bE
zXJ*-^hT7T31s|dkYvt)a%hhe1k4{`_9qbm17@3v&y|pi~p;*{^x}SA1?WvZ>{m%J6
zT3n`m+Vb-wVv%9>%K_8<`uDke`wX_tzvh4YglT?Lv}DnJ?b#)E=WL&u#{(A1B7{iU
zqucK=ze#tIV9@$j{rCmnGV7nTjoIjTdl$BA&l0!R&M})!#9iyK?doU!;l49!>qE!r
z#E9~{X!Y5)ZxN3??th(oW)`{eT>|dVxaKALh^r4-`5(H~ejgrtgYW#FKlm-`t?0Hh
zWgV>y-t`xsUPv!*buEaEY%aR6d2`S5LNTF+(JQV0>VCJ#Gmo=_eShV*zx!-^?J<71
zREKZYs%gH{^mm*{t$$^$#HD!RhOBmmkpYI!vUA&n9A3UOd(LgYO}vEpL>Tw9>~CF_
zB<2?es^3};<~`n5^OWJX&Yy!qe9Q->Y?@=X^EckU+s^#0Q@XEtilsO%N<iGqB+Bo}
zlQBY@;2^Ts!t$0<r>hxEN!|CH(4h}6X73I>nbDs2G0>cR)19js82Kgt!;r*_hf1%q
zqw2zBG$kvU3-3Lfj7m!)Zk@O^vEd2c=a!CYn;G_(ef{4QtWS~VtBtnpOY9P1mjj}B
zgZ>oQbl!fO|Kr#@DaWej87}Ut1i6xq3!^t`MF~R!{&OlDxc2+U^3VlcX-|>6lFtdh
z=;v&FW0T7BD6Cse_vG;PwBeyY8#e!DdZ4SP>LiRC+rU+`_29?d`Su|rU1pOu&$qDd
zMi77Os53}yy{g`B)R5V*vykq#+U(W0-pOsD2@93jfGj3?{k?a02fXHV;K;l(6Keyn
zzNnleM8Ky6dld@xR@-%1U;p@6;QP}V%>MF@Gw>g+x-fKMU~jjpmSwL^4ZYN<uL3`Z
z8Psl7EuNtN<zQRTWaH#fzByR-Zo0bpVd4GCN(as=e6uj?KwKH@=+?x38#KS2QRrRp
z=9e1}-ENcKP6>XIS8>H>E%`TG7f5+qk^W)1JSWnMFvB`_;iFGNUyE#^ksbYc&D-KH
z`P*VQd{7BYx|OvbX(OK9P*ObSol<nK%=*Rd+>QP|k5YoK<T&2$nN9G@&CLBS?{~tb
zVekR7z1VLl1TmxQ$DiJ4LX}<h>HKfg1KWN)$i6Y~sl$HYclYhxc5(-AxZ+#(UmZH-
zhDLtbs<{0GVMu7#aid4)j5r5R2zmDMXdKAT81zwj)b9G@g{v&xG4Z!g@~6scY<u4~
z!<ZiKYHoYrVS!CmTXt~YT`0*EfM^{L^~;!5m&jIj?mnGsQ=adIzA=}FI`^jT+$F&S
zWjA8t7i%`{dKqTPWPbc?yZ*$HkgI*(r~|HMib}hYexp|jhacaLwN9PnJEGZvx3IAA
zn(@v;WicOWk|{f;`?bMPKe_AZ7R{+-na}$sa4|=$(##j9H)Q!@_4PZC+^RTKbUZUJ
z<Vu~F<JYNf{er5}!F%|)$z9{)cAi!pv3@okzY&?^UxfSaEgVF%y-|4d)GSJfK0)w7
zxEE{2^Wv;dCq{xi+w<_u_7Z=u-4@@QmItg}A}*Y_f73UNC~CFzJb%xtd3Zijgq?Xb
zwm*u6$0F;Tyqo`oG9L<+C5^l?i|0c}|IJnY-NP()VNdbGVRpRFkryYeYlF9^zIk%E
zCV4b6T<W`>Q2eg*v;J54U&(g}iMbUJ7yIyYN5bh?HAW((3DUEhzi&e9;}^{H-gejX
zG<_0sVvDki-*J828$RZ>Tk=>=H$RZzX3+T%?Xc@<)P<Qw!RQxW7X;fI5b;VXBKHGM
zvxJ>^ACNa~70z_azf=Dr=gxULualiaaCbHMCq|sdm@(ZrLjv1i+tuRYEPium;$Qbu
zaz<(DcfFHkQIgXH7quoKeYS%-25*v&xz*tIO5Zr%b;^e0wzDL^*oCb8l4q|D=LK?H
zdHTlhO8e7;5~sv#YwNe(=jA>9E%1^pA1rUApz-AIeb3KK?s<5wvR+h2Ebi7dR>X-p
zrGgrmRDWs2+l*-ku6V;kohGN9R1*}>+z2~(_;H@aT^2rie)MDsVIgp4U)(q1i*rxI
zK9<0oWNlMr-No;Sa-6tRe4zWw?uD;`yIIa%_o&Q^w4EC$jf(i`&c$*Ab9x+e`teQk
zpOJT_YNxf-;`e0U=i}S6A!RZBgkkJ`UFEj@j34lSw}grG7H_{)F;;wYf^Yu@SLB{o
z{Y|=Co6h*CoEmkFz0U0V!|bN$w(`YVQ!@<lLc~MI)5l($?!4=0iOugS2>+aul~O%`
zKOdkPxLx(r_t9tPoDw_dWq<mgEd5Jw-;%uJKS*W32)_I*B}DePv^+8v_dj@Kz=crA
zN(zZdsSJU#84`&}sSE)e3FR}TJ*6@PFfo+BQ%F%j<B{bk{ZT4I&`@OviAN??3j<b^
zQW=7#RE7Wwhb%~`3_(*WLjX}k`8%aUN@WO|QW=7#REB^84stt6WeA#58G@!%h5&*|
zN|`h>QmrqT0EIzEgIM-odKRn-b>xc$H3SelNC}Xnuz&+vjeJ3fxGqwnA^BFwT!^ee
z0d9De%!Tr$mHKX~5OAgPgj;BZ;auT%$sG_iv8oWa2{Hx{$gdllCS6%0bpZ<iwswuw
zB}uP~e?cNdmF!>uEeXBAfhu1}(yOd4Y3A#~NvL3DjS>bW4B*iP2=vKnuaUZ>q1Vv>
zqym=JEN_j~rASk=x}*-)C2Am*p`JS^ctApF3P^LI@@|OP1*sf4Ph6=Or&@KW++}U<
zE41#4Fra}zG6Zr&kgGtII{&UZsRCy8E*`T&>w=642Xa&l;DeAW2`+TWy-s{3MPA7p
zFrY#L4Q@W5oQu@M8na8D!8)5G)yu3VnrNuh0Guo+S3`oFjh5R5Q&^WdtQ63!QroNi
zF4%N5RH6hWZluBnDBT2ItTR1QRSl?t0vS0LDsupw3J&Z5MD2pp4RRh5K?l;Vb$d^$
zvRRw_3cHH|X)U<@0K!no1|{tR4Bo%XM^kyT%I-o5B1pL)b{7L|10-#LPI)N{=oH%8
zn>9w4Ou|z!y1>u?7q)IV8a4*335CuDtPKDkDmoWZb^Qqi1v)F+j9%e!A+8K?p%9Ua
zUQG|ddaoOrCMRAcaVbn46^RQDD5$krC;qRUt#Y_nu+$*Iqatxhy070U610h}@Tn^t
zE=cIXh13dvOB#IL`NXW2Xo0f~asCL<3mzEfKMXEdwe_+zX)#nY1_%CP<#a$yF1Sae
zWYyp%=U=@^^*^ijwMOca33!Oq1%wtP4voDY&p}Pl_7(DKh1&)61sYngHEtIy*h;lK
z6|R6gxR*F};vpQfFcOre;lZJVD&wGsib#;nlPHY$Xkrmgk`cHp&{j_vs`^m_w;Is*
zc;Ln$IpBVXF{F0vL{B^)132z=qZ-7bF=inI*nOxr4V)5)7(oDP3Y4^g)^H-Tx&r7G
zO`3s^I*Tv@U@{yk^#foCabS=rAUH@pKT(&4dWEZNNFY(rNgy)_fGq-B3zS8I&!DOi
zybC-29s}mf&hO@@2%d#g>xzX&l0bnO;DCNm1r_j`U}peP1d5qJ0TrptAE*(iA;t(C
zFY)>TT~I&;3IaiK&nl+|+JkaRNL$d1A5FT+rYbZ7lbjutllhm8pj?2jR1=|~MI%aS
z3K0Kja63Va6XfJqzC{9iM}sl{tu-QDLeq>zD+f`Qpv}Kx04o6nA}C2JHzE)8Pf-%M
z<^gw}q(UT``luB`1YC=QLL^0k@FD*}%*^8__5MUg+m~rS%&yg{hlr|&M0&<<zo)Nb
zYi_b5Rdc^l`tt9g*`(hAS3@~pFlUSo%^rPwghQw@(P8%a-Q&I4g@+H>@9fW+Nkkb5
z_jc#72w4j(>Q-CZr6oRjR2fz2Uv9k|wKO$up(V{BG^MsM_Q*lK)UG*jx||?bn9%!K
zmfq<8*`Ti%uRnh=sH~rH(u1e_dAh>pKe~4diJbH?=To(DANI7L9f<8`SAP5F3!7h+
z|HnnNk>6>~C8q|Xr8|>035=N$@?x^TgI&0Hd`L?jZ8nnFH(YoqqoW9Qh3TxW!4`~>
z-Ouo3o|7-mr`5s-j($z)@7CLVbD5AYThtO1)0<&`%`>N7xp_=THmTXBB^gtcHYJnr
zPFz%N#>6&M;Zp;mRr9*+Y(U=)Ki=>nqvm&?4Q$>LTv}u2Gl?#5CDOd#J+<wAd1n4P
zzpc*1uvF!}-_`SG_xctao&{HwYvw%T4?8EVb6j`O`$UDpFMa(@1#Ox4-{@hu2w7tf
z%HrB<K2Ig{?0GI;dGcBDr^e0p4ma2;Y{XvW`JNr<F>x7V4j+7QY<fPwYJ4oRZcZXL
zKn@et9>49(AKU@7tVNtTT|>ZkOV|TJ15A~Qe%km)1mSF9<9T98eBm=yK8$1I{T~l;
z7q0a;As@POD9Ujs&*vz9a_+@E$ITJG@N!xn|7%MB(N1mG^=yL?6%ps6z_jB(16X&r
zq+NX;J~W@{b@R$Z`Map@o>1dieD246$#2+Nh54&;YE^aeLRqfGbJ`AJvBFrXD}Mxh
z7=E7K`@_1EtGcl%N3Y)Q0*6N34>!J+cb6=x2JSz9&~$9p{gu7_>6Z7H089E7?T3Wv
z13Yf>?zs%3RvZDwkxutphrDX%(d?mJLAN>7J70MyK8ViY4XCVtlGq4iF@Aw)_+pA4
z-^3oYG1Bx3Ist?HRjF`5{fKvR*{PB@^C`Z?nV)#GKbmE2m3ca+d+Cok{K2(jL_(>b
zYCzYQ9hL5z1@u2`PAdOn5~85MX!+=b9^nsK-J9X)^(Xe%UZ))(#BkT<bpD)5u+ib_
zI@xPl&hh$=<u7Zrd*R8h(>`n^ReE1Xe#?vxpOSP&-~Yj?dkdvekW^7?O(&G+a^Pt0
z+oW5pyav~=M}+Lp5TrZ9V)OR?R}tocgQyg1Zo~Mv&$o$*Rc_9zJ3polGDhF9&%d9Z
zMVMljN_ebt!by|u#G;48Nt_E~Sr1IeAyIvQCNJ+ScjQjN^cFKGnYiTxh<HWoLpu<!
zUucw7Fr~6N$p<p$&K-O`#_Mi+AqPMB{`B1vV)FUzRUzeJS2<cNF{ke3R<tGk2&w<>
zb)~sNT;6Qda0K;qvxacgm76GaJ_dHB!V{?k+y330m@QX7&pSLen!YT48qVhQ?c%Ri
z#&(mQ*Kg9@hZK$f?72{FQeAa)AYSJZYOnZ)q=V0{)Qf06NIb3b(3ADerZZl0<(|CE
z36f3nmiNDLuvC`%4YvQDd35K+aVEOUPmEud|K{cVoz2M1d~cJRHr?Lq;k9}G<Cckk
zwRd-YA*h)$9sAk#BET<Ivc3iF9dZa$-H~Lz?eNwl0kI>>(H3V7bz9$V8``ny+m228
zI8j+^Tr+D)6Tz+LJVLuO7?UJf5+2Q;X_?)k*_vd73iWK@@9lNl9L+Nm=^!7_I!xz$
z^#~Wk*%1G!&qnv&9k^#AUp;)RK;wZq!)*b_`B6WDRu8I#Pwq*^S2_E-Q`MoVDSy8g
zR%!rRC;q$+2GB(wUuq_Fwq%*b=$p1NUkv<^QC59<Lq+Gsa|>Bxv4{2Mzw0U_^=5Ir
zoYz!MTVC*a>oUJM?shVL2hXu@O&4!j9<UQF@_no08yGjRCFq3^wqyHl9nqBjih5PH
zHm$ob211_dJ9PU&m2yWZx$gl-yxvBY>c5)LW|elv=nF0;RooB|Yj7?eP|?EG*lJim
zhz~=@-`E~4_Bml;r&m&>Mb&~t$l}sWPQ<%r#aMO&f$CjjjU1>0+k_ms#<k;%|HwzD
z1S!cQbFzyLFR>4^r0@ARi{Aih!@yfmavD!ce5oIHpm8WDjh9<_*g@rbNrkc0jtlex
z$a#5C;{p5;?H4qj5DRXRKyaR{xdjjh<Q#s*Nn)Vdbu96@rZiyjX}<!#8>(F(w&_Z*
z6NBzjK|s%_w?+A1F(@{{gMzPh{u3w$t`MMDkhXO9fBRC(H^3RAad^nFGJy2sr3F6|
z2Do}sO>ej59{)i#j>ijDA{zZW?-{0Qvwuh2+k|nbd^2$Ug_A6=n{np0%BRswdHejX
zVnkC5<L3Fq1b#Kj@85g9PU%|R1pnmcxL+-cdkuNbZ?+OOFRPwBvvFrVYkR4KJ#*T~
z)5jkEVxm#mgs5j?+iqGC&BYq;$vnEJ_AM8A*R;&+DnZsd?|Z>X7DRFYi}TIaKO6N`
z;V$8KvC<(&4%N+jU02!Yd1G8;gRA9PM|1g|!8?&Q_1qcV`IoA#c4-J_2TnBpDMgk!
zZ4^w{EW>0IpIdjq^y5HTZ-fWoSqFUrXImEE(<+>6%9p#|?9AT_Z5<tLRoIkqOyRwX
zQ=LywXLpzqD#aUlSq=2|a*vO{jEUCp8TcN5Oj9&bJn&{A+*5pO{K@d=jBiwC8Pf!A
zsu-J$$RyA)2Gy_*-dR-muv4h#RcoPz&ByrC7xSH$U5?|9d}f?FQ*`~vW5KYG1`Pb-
zsipx3jq*{am9D#exceyQ-qDl;re7tG1<s5$>BM|%*Ht=4n0OX0mLGq5do;t{J@K#1
z_QzTly2P>1^-77^l{O8QH<pKKN(9uW{Qa}(v<Ukd(LNcCtP?n$>jqB_hxG~zo5W?E
z4lEf<Y&>BoaNAQT`u@j92lgP{D)l_uBxj`BiUY#7dCzrD&yDqui1;X`*L@lJ80q4t
zvint^VDEjWLHIJE%-Qp&ZCK3_uY?M0L7De0E0KVS-9|U3_iiZE>8m>~5?`l*ytIIe
zxp;F!-`Nz4<s32Y-my^6KQ#qmI$>kimmez{EyDJkjGFlSjlP9jTZ;SD*4%-HY>!Um
zaQtvoN=?+nFgz01Iq_VhX!n&lv*BM7;fF;IDIY0Hx;#8tJE;Ar)-mY!F#gR%-m%$v
z3oXJoCCOrh>{&TA9mPMFo{E)bUP%1aBFXL2X!b7(01yD_2nhs8ueoWtJiOZf0s+9b
z(4KYB3jhHHG^zNL8U$8O8Kv|d3nFz49z_h*lQsoI(*Oi0+X46F{}J<oyYqiXqY(t`
z3shLJC_sE-#I5{qw@`Ts_CLE-TL%T8LK8&K<j!g1YVz@?e6v>Uk6C$)PIKu9@-7lE
zj9VG|zad>avTXk>_OR^d1%;}a>)VpA?Nr?prSNVe{nnS5%u6XB9Um_J*c`OGpv<N>
z@XXZ+Yp<3O&6@B4xg@_FTtqOR<UMWstgDZ6x3n5&m7uC0C3&dqhV76Ml@Cnck>(mw
z{u`MawDe^zZFabS$|tBfI<W6ZneWT4aYDrNSK@`TfynR0`}!`-wuT(N7T{SvFrpiL
zP9rlP6&;02V!x_LxU)aXTVnf3&U>PVuSopWzC6VBMCW(9>s|XRVnqv;>bsTOZdcqF
zwmLmPOv}aYIY$^NwBx)qK2yg#*)zad;j1VcJ~~@G8PstRJF(>>Ce9;vN=SF$)zzDD
zLKObqp`zc{_3tC?3XYC(o1gRk){^exTlV*CX?`!(;q2gx?6`m)?6VR7Axzf5U=RAz
z7yms`Cz-f~_|NriscVQZw)&i2D0c0>)CPW0Syacq&&E6ARbN(SoOY$}du<VLLU8<)
zIF8<8>VnSOB4Ws`u#=Oa2?qLDuL0(ZA+}h8uiyp62~8u;kBI|Br6=B#+x1MPr#7=`
z#ow5ht3O}qZ<?bl5b!ZTeUD5BtFU72MV^g!PmUElhA$w_CD4^U%1{+g_B6REU}hxK
z87R5)akb{J>F(>ij7qvU%y%cBkx|Mg-aQg%UN73HJQ6On9oNdXBVcAX!`p`+7l?0<
z_3R~F;(T;;7w+3j)_3^tcW-r=(Dmn)avI#cGW%YJag$~{x3OF@ON*Rl-UPfoJ*BaK
zhiTjSXBSU>@Vpjo>iKJfk$g;3*8&gMC-}JN*84Z(2F~B-G2<nsj63KwJ+<F*Xun^0
z)^R7yzWsTRKB4??zF~$R%cyz%(EIPuh}h_Z#wV==|Amq0TM~Q5`CEN;zQ|yX{0R?^
z3b^hOrf(66nbc<{L~gea^}M}wr#!Dd1s1p2T;6Jff|gY2iSVJH0<iSS*QVNEjIFTd
zuLa&~ZFnl2E4A1wV8XZMPQh->a@4`U)gf~4tuen}ZMP7W8<l=?wm5{tQ>W*3W36<W
zW-tnW@dBa4)@a9<&4kJn1u3^u4?QGn^G>$$9jD@cp5Mw>*Q63^k!E&yTiZqR6Y34e
zIgjp?3x4W`k&_u|VK15QZ^ORTzqofCE}+2Z_@|%m!Wpx7ymDusnQLXnTk)LNbTqZ7
zz-dKt3Odg1E=|$j>~bN6L1&@r=cHNxwai0T)t<?7_z<$`WV;^H4?oPX)IBDz5||ll
z%yX3Mr=~`%>DKliQBn7X)TD+5Dthnl2t6>RvmqvP@j*p<3K~(m%g^Y*r|Og6@7o@0
zfR9Z7_!ex}ZL&Y&RLj+x&78Qd!uf)yDFc<t#^{mHZ^L6}<gnd~5qVl4d)O@Mw#V^x
zomRgUs5w^QKw$2Btol}et0mKo?xs(VbPr`YEx$+~ZtyS4^fO(kxGQXTRC?-bbdYb!
z(xVxTjO~qst`|P)NaVD-GMw7X2bYX~(<7Pvmgo6}NP#bp5ZD(F1KDIX#}C$b%0<rH
zNUZUEnAZIB4L#kHn#zjQ<25x_8jE+?L*Jdeo&J6%#6;s+8UfWZUZaiqadUg@#@E=R
z*Yz=dEwNb#RU$`SkDQOXm#-cDT<h?5N4<|T`q*==XS(Ye&JgxFmJG99ycf;2RGo2g
zChS%{QbUTTeP7=X%e42lHp1#hPS<m96xG5WXgjyx_wKzULU=>N)zMwM7Ef=z@h!+<
zOo~T>0lt~*A)};s8i6wa=N%*$l&gEKMr7-}g-HLE+r|1NH}`V941+bfHa_D!j|{qe
z$MFXeeeCp=^idPv@Po%in2)P#iagXlGBEjxgHuvMc92bd^P%?3hJ$<S6P1$sGM&wn
zENvD$ut$1o5+5%2bRLfMKdvS(ACi!nE!`gdGg9s7*UQ2a{5OanOkFPiT_~>cICgEW
z=@sW)#Kpsd3ogxKlHXgfpN=gXPklQjDcaV$|AUm2y!D5-*FwVRb7u&2CcL$q{>x92
z@4U!>|Bs&}-Fd041j}o$pwX1K4-i|n?&fEu#G7jq^s)g1ycBry3OFp%^I%Y!4k$i2
z20Ry(A^I4x5{C?V7(qAS;z3;kdK?PwlpyM!RG0?BU@RyZg)RfIfYT+5i1K5g7Zo%S
zIUeG(2te-Nzf*Bf2ymSN+#rTj{JJiF#;p9D%F5e1!1t4#BIMu^fG!1ZPr)SspiMy;
z)4$O-RK=~fg?36*;?UDPQ04}Rzq96BoN0OnUm>Aqk^d3WV^)5$<v*tc1mVzy3~t?I
zKsg-r+E2s|g!N<<$dC9a{|6*FhVlXhJOWe$A1H~*F6ayLRpCEx0RJO;Ams}f5Mo*I
zGlC+oWI((<K3JDLfa7^Qp`2&Optx0K&_Tl@_*s{nZFwX|WxJ)3Gn0qY^U{*-JT=h|
zyZJ-{<cL1)_7_w_?=FUFm&??@bQ4I5CJ0u~hyC)JhqoHwp9{ZqDziI3hff?e6ML#+
z*Jkj%`(sg{nHBe~Hw3N;$Bo*W2k#h7?&=nca}rNCAxykH_UFsy@;S2<r@4hW?qc}(
z)$wl=1p*v}vWa!&DSqR-(t|(c3i|dkDLq(FqLZ2Es8%rML+TYxP9}cI*YJE%Rvf!%
zDRgtIU!$!=?B2qP=&r*`FIx>5q!|*mi?f*DzwDmlYV63fe5I842Xi#?%<-SBr|DZP
z_Bc((GT#>@ybG?N``S6v|D(|4$?`SKe#SE${Slnf<$3$ew<mmvxWBOHfG`_FSq{C8
zosjS6(uLoObPEP_X3ypnB9iuOiWGm$Z8~fk_x)CweN5GaP6<2b&bgrLcZPOHHHphg
zm^_B(=)wD<5_v_>1}w(>!ns=~UodL>z+cRuo-J|8Q)&|-kWHoNxxp>$&Fmi-RrT!q
zxaWq8^MfwwGfWk&GObMoC~vcCS)1+h&!|6Py&7fSo)NoIEA)8(U_(s#olKwG-CK=}
zU*`#Fbm%?Kop-k0R9@0{TCAb&dcgP4_mKp9p$vt+*2%lnT$hF_J~uq<_o*DbuZK<!
zol0)8zy|jR*Av`-!AmaI3k+I2FJ=BXmW@}<dzHz2rW2odKJ19Ch1BJ3$DhsJ_sSFO
z5~)hvHL3S%Ld-fbGi++Z6Qwqlc^~l-4&*Vb)_hjA5m8H)^teE_c_U1gQ4bNh?_52C
zwJK>W@b%D@YVS)MH;C+hR+Aa1QY<OU!lFHLhv8LwW$p%Tf{5VpQ{%PwkhaeYWG(uR
zaMm`m(?yrCfAi?b9geEB<ZXPfo#}D?6#r)Y*Esz1gO>v(Cl(gHTjw@pGzY5&BFk9Z
zue#fhhB>fyyuxY7@|Wy{)yOknGI%$};LL!GJ-NxiV^6k`MrKa~iY@4+I-4A?@z2p?
zWBPhZVNK=y6CH%UqzUGavmqbpq$g?|QhXo3jL~9x?r`VCcvQfqX;rS|EY7U&&LjJM
zI9**n20wc(KhH4lB>DI}QAJ{FLr#iDth4_%C5z}AT0!E2{K#32EqVvh93Qy|Ug<GE
zb!P*Or61^viklZJjr_TtK6H5Df$2B8Z8vl2q_YH2@#QL^<%G5tPqV6FBcWYG7kl=h
z<vZ$yc->ytwKt^hoJl<Y7KPH?*)Hl<>`8PvcCFy%)n|c>_Cs#F{X(VPZYrp{wz7*J
zzK#vq+@heQV7O!FMfywMZzlhV7d_DWEk%FRw&*O;^tJ)^<66IN%Uw|TIw>fUUduMZ
zQ(5j^S*TO@v?cFxA|d6);cQOFWp*B}w{`Cji^g>Ke5^)_oU@F1=B_XuAB>35NjDtp
zlD*1hu>4r+{jCC7=JP*Tr`@k+NqZi$JjeUxrab+ejlyTH?Du5_sL@CDmupbFLK#@Q
z=M3UUE}z<Aca%&1!JEacsR-e0x5R<kohS443apwBRK^u&e>?g}lfd`s4ab`#j8P<v
zccI_-%Yf~sbAJ_=&YkkKDpay|v<oo4>HOq;A;Z*Hu4&m{_a)=$#qAo<)7no*cBtT*
zH3*6kigqDee@f(j?LpnsFWm71R%5X5&IWW@w#C?e3%<gQ(freImRQr|V>0h7P01K7
z9^d*P^ORy)aO!wcyX1U5VK^-NNKF02xyYfPRw<A5%1b<lHn&Rru{vK=c(M6;&%3v*
z?@lSbGjl#o_dxvUw}*elf8VZ(>SUeKuSg^8`q;pEK5Ms|K$FUz;G?s34^fHF8pG$c
zRRGIHJQ{~y@3+BAB`RlU9v(n^`<YJ&Lw*xTO?hF!qYprNf#1`huwkpeWdc2&fxI{H
zucUvepVvXu6u60!gnp+11up+l;8_;*rfuaa3c5f9j*N821T)9dV~Dk*n&2{xMG!o|
zLW8Fp;CVjzJ`~jJV!*G09PkyukRB>hCDA|!D7z+dTkyD$^;x@L0>3x_p5d*3%Z?$v
zZlvvm?Aa)pI8^401RiUhj|S`T!dFE9f8@c`7f-Y<lEjaZhoC%-C*49}NUtbYCPKM|
zg7R@vhTLvx>p!3-5dF32nSJifAU&T6n}j$^o7-RT{)6VO4rd-Z9OR2w{Gl;#$a0-t
zsb|jtv(Bel+1irR+>1S#<F?tIf12!F-EVlO+T2OorBYII<x;G~m}T3834`mG_7oIV
zn3q4`AIEBc=l^MtFczy)W)*%#b;mX%4prET{J@XL2%R-_kBsl6#d1D#sX8b)dWZ2!
z>*;-$?36P1tE%@hSBswre>$#UB4-#zV7Sq{+v@$NZ7IKZT4eT4<rkc+$W3t?k~I~%
z@pAk|hpWWw_68$^KRWMU*^7wBzbTx%;V96UCHZYR?0ch@j0Vrn#~ugbHi?Q_slMkb
z2no%jZ`t_ZIbp+yPLTJ3LqQ4#uQC0z1HY7zRp<F+&+e-?WJx8`sW7X)8Jd6%FGXvf
zd&VKQ?Aa#$==0WZ*KHCKuC}mtD5p)?D8=Y*@AUpI;c9km;fAQKmD8DFyA-GRPjQCB
zLhTY=pN#`;>y`=|ealrOPF3;jcznUwsgOVBuFj0h*TD!$!dLD(31jPw>foT^&8m;i
z74qJ*&p723_E0J9h}8aVGTe`E3YLelM9Sw^kMwzKn4bRP8}`as7|lSZzD2&|Q;ki&
z^o4DgScau?RGnLs;`aoU2&HXN9X5+UdEhio-E=}gkZbs6y}=F<m!ypIJ-xNZ%3kTz
zw#mO*zBu*7>YdIT!i$$@VzV|H_>UcTSc<xJX4v}9^8I~##{Wv2zYM%SdBkJ)jdzMd
z*3Zs;suVHb@g}i>&iH{azF4g5jmhaCT)8*T=8kFi=J7xm)gb2mw@}Z0vyK)Fg-=}f
zdet~)cxDFcJVeL(BJ{|Qii^8?QGL;h5%5MBV-3plEf;E7(J(@g;Mpkc|3OKry$bJH
zQuW~~bH%Cc<{v+_3)~S;?fVchcKl~~2fO&)v~!v4;<oQ|8Re`$Ov*3sDy}tNdaxIh
z@tkd<y~k_+$x$gi#Yyx9g^Xg|jbhcG(pgZO+rCZxNG&Z0ZO_}1vCZc-Q?uj!rAI+_
zYMkFHB9OOvO2y(nRB3HPs$0>s7xg+N{<<@<c;{C*yGJk&aro-q{(gVwk%h_sf-_KA
z0!r`5r-~*G!N9Q)fXS=?*cxY#S@{XUl?WL_-1|YExW|D<83W$8QD0X>FUjDbQg1yf
zU?Egc{2!?Bzt}O-3+aE(K1d9}vsw@cTiKq6epxU3aLhbwMQxv*-a$pxg0Q>ux4bS@
z`k{krWh@g~jvHPkybboz*Ne6OoHvm6?m7N#Rg_j(eCd(+Z&Qr--)2{GpFf;)NuQ`@
zYI(7=;ObSJwLqN9CH28qzXta_I{r!_lt8pMIrMapC|rB(&K16M-<SKB{dhbs-@ZfG
zC1pxS=PhP?{DMuqcBEy+HA_0ZdEdrzV%#sb08WWRakJ{!qutgKx+w=1x-j--VVybe
zALzWvPdgp^V$kAsddy6o@?(Y4T!(9WS|0anMSf~^4eiuG`YU~N-DrOQ5clY#vOMIb
zU8xVcn*G1*3hTE?YKI-%eW-`6;%>ORtUTdsSku<f+S<^2ms>6+lryS&$HS7G(^~kL
z6KpX{TzZHp)|)ZHIgDv~wr72^9x8Aerka$ib?;7CjN5TMl;cam=*#V;hz+dA`K_8%
z4?go(x#=j-$sW?=;&;ttZ|A-ld1?69JxiBvy3E|tPBDT1-9T_m=<v~uzTUzaCgG;W
zP4EzUC4+o-n6>?jc@Og3F~NrF)XgTNJKXthabbwt+{;A|aXl*cd?b~2uXaO!y-cA(
zX^z;p@!Zr<?z6=j%<TJg_oU8+2_JB<Ydou~@Ri%BhBsxtLVHwoKbw<h`^F%1WBY`&
z&#`5HV}`jZ+ICFZct79ijCg+P5%*|EbI!|)1eC9$%)RA(dk-(C-R`Y$2+l~_wqb(5
zLT9=?QH!m#d{(A5a8LbJm(=ffGgKmUllL#gcTLB5(e1gI`M`tSPcGAI=k-ZpB!3BA
z^^{hQ)fOMquBWMnhr~bWvYvdwj_@#PaAE$~rFg?RT>wi=+{Y|^?s5k+myO&)m?UeQ
zG1i_iHe0vNGB2z9U5jr~sc?HsiIDnO;PlbdDfXd<7i(@|AH1+XW!n5__o(jI-vc4P
zt*t*8c%T}XyAfkg|Ag6k<@J2(WYoyI<{NErqcOlrTGo4$-{7?E#*4WD$Vmyq=kRR-
zQ6IYEe{9BXIr@3q8y<$XL_LMAGMie2b$FsXZCwb1PxMkVm_B{T7U`Q{TV$Gy{_O%U
z_Q}B6=fB+Y!tT(|l26^qh>9V@;3b>Vxx1e@k}6LUX7<(-=3{D?-*FeszjZgrbZ@D0
zyM3B5sgqBD@c_Hxz3*4Ln}wNjTTZ-xe^aY#6CdnSK{~rdX_Ain<`GzRLu~B%Kmpk2
zOXmve<Op-2XUg`OjQAyeNdESvw91sx_vh^fzGG;s{F?5j)U!dy>aG#qP3W1jedKVH
zOgHQo&sOg+J{7GjSR~*=cq1AHekIR+38pA~Snl^BCwuws?N9uE<#c3BUOH#{1Xi$5
zTvqG1WYPCUwZ0<lNBW<HErrK+o@7^WWcAzGk$b~4)|D_*B=DCjU@0Z*cc<rc#MYi~
z8rPOb^N!VcT1M0kR(Q(mR80A7ZwbEEk+<xjWgMRM5mC`v=|30$URt_}Uj}6-KY!jp
z>%h-PQ9rpAEnL+911$j?0?<+rltn@)M-%QLh{bN(Wd92+p(t+!v%t>{ff~Mx!E(gY
z4m^zD)jaXOxh(Oq1CJ2+KMitX;h=sLPJHhmZTjz5pePWODg8%`1`4D88H%<~H0TpN
z7~Ia!046aTEDTjh{U=#L^HW4LG{oAqr6>lFAZx>|)B~x3x-oiNC4%kw3>*oJKP0q?
zZR9w0bH9Csm-3JMt+o%v@D7MCd_*2%?VsP<Yc9~~R~X(5r(gVOr=6X+-P<?3r;@qz
z&tH2jO~TXr=pz#cG|N-3pcn3mFc)Ia-E;L?D%0;hGTS)2^sF?k+3@&hr%|TTS}l{@
zm_0_jEb&9$`z>d86cbMDUAB(azT)xM!F~Atn01nN@X3C=4E%*hIf>J?hr<L74+s3N
ze{gNQ;u#_QqScL!vtr$fyiBtj(O$E1PXeYFrneJ*G$d`-4w-PwJG%$o(-a*Zt$E=}
zsPu6Qx{#;rxzZ1GVvWYPls#4MPDxI-E8?qV>YUCo5tY}gqwgA1CiuE0@#8Q~#Yw*P
zvO7J_D14U`IaZ5KA2`18Bm8#JE<?*b$1>!T4QstvzDord#9e1t$gO1V@b=C6%<QP#
zdH39(Li4_|F6NzXxR(6Zx+Qbs;PE`O9djp&eq4m>dZ`8ZD$H&^;=%WHtlUUA*!?#f
z%UA;oGkurjr;MPSU;JH!`zO>f`{FiEIxtOs<OqFnx*GnDpw`vS>Lu7q_vI(YkpSK=
zAGVhM{(P0~W3=$zbEb|1duM8+iGt~Rr^OC%ET!%e^3T6i&ZTCkFaJouc(6@{S$~k>
zPo%GL!ifZt!i&axM|Y1Ecq;A5fBZt@Kzc-}f8?$fzKd9!lvyVAzN}e7dG4taf^M_X
zPy+uR_X^KP8zp)6$@+8b@YS1aznEavR4&9R#$#OH+eCk<NavOGGZxps3q#>9O=r1w
z57)5nPL1(Ql;IU@2|gfW`#QKJ=gs9{zgC08k|vzvHuS<9kDM}jdfayW;^$BA+>EP>
zg6cx9gnTJEe6fJlCNbHA`)mY3w9Vm^o(C?7QS<fns5>og8Lz$LoTf*^6#Sk$9pZ~e
z)X!B*A+9FHSheKIaJO~d58gO$U4P1Lbi?g!!Y03~{4eYLO;4Tc`Rl5A=#-LnC6o9y
zz4^_Orqg?~&n8F2M2S32<T-C6ejr!YmUExrcEba0L3vq?ZeO1wQbLUn-jXL6jc}f*
z;P}jQ6N%tH9o%5hUe!_7c)62MqQW(ncj*P}U`}|-)^`mo?mc&IZz#_De7G+v;_HQ&
zE!#Nuv+LM!N-NKdw47RuUeIXOtG*VN<R#zvIjh(7_LH-UIVBq{1fGg$Z9kHp_yuKE
z{rb&RhwsNSpC^CcP94}^-md=ey7ghg*wS`sxfega<I7%^^*x$a+;eNmSn-ePajT3=
zu!i4USM1%w_J`k=nEb@K_s6|ObIAxPu0+4U?;K)@&B?5nFnd3Kvb%D=d>MOwx7KR|
z^TQVwP3CT9P9#g=O@3`kJ()$HzbyH(>U+^XSjJ41v;QFe<>bK7wMphn^>L<0tk`V~
zQ+I~%-)$L5<R9+fWwvnrjg5V;I6g2E^lRkQ<2##v1wUtvIwG{uW_Tfj?{F&jU;3w2
zRjL1lxS%o<icd*c^AF-;NY}~#1-VdyO#``DQo^g?4q+|`Yt3afFr;72p>0G1z|b#X
z!a?omy3iFt?DQ2@rmpz-4}>Ilwe~Y^;0If%@3>ddlIUonM0jkqhnN8<T=1jNEUap~
zk8|FcbG@5f(Ar-qgT4i??_pwRX6K%ndi}fBVUv7^&m-Zj<u*e_+11@a4h03ZzZay{
z-V#!|&u7oPF<J_Vb?-q`zN$?hd%^8?zr5|9YS{a&+98^!Mr-Z;l#Dj3n&>UQYtzdx
zKdUJmQnWL?-RcD4(wkoue~yK`Ak-PF&+#3UF#4lrSWaYA^!h)>&N`~9HCp?Wq;#ir
zcXx+$w{&+%NN&2j8)=Y|lm_V*q)R|rS^-J<7I?f@J?D<`{ly+G*K%#faK1C1`FmOh
zk#F~;<ZDZqy^LQ>SZiV#1aez0&mO+`)Fdwn<>ay7=sD4xjR$*$kg?l)zCnc%{UU!*
zv0(5k^H<d*%T5DGcA=%jsAfN9Smz=HYJ#wjhs29Y{R-#8w$sG5bTaS^I>|Ai=%CgL
z*8Xs%TfZ|`u^WMEq@1N5?i#q%PEmZcBK<rVsu;W1(6(8ZE#2qZT{$7gB$uBrKR|9r
zU-Vr-YaG8Ys(knLyY>?qx^|^)$wdCSCw}AgINfPO%%v>i5ee1j2~Hw-j?M#0c!|W|
z4r&=`svir{`#+HJBfM_LT{=Kymqh^`9+&3Oz1a!*GN?qTphSqQ7HaZFSL{c2nSHEU
zdDHlA4zf$A=AQj=#>~oHUCRxqw&kW;P0H^qCY>SV%}e=|5rianJevN?3g{wnl0GdG
z*SM9y<b;i)5{!Y{^5}N1?T)6^qR3#Sl@01t*6(S#OxB*8N{72%ur6@BSnqE^^}4$k
zkiF~a3NLwr0(TPRy5<mB)oaf6chhO~1QsGAD#a(i;BL_E;(PVawL`T)pM{UQw^55W
z?txmqrJ>JWB&yy>JKQISBW~cu3%a3b1XYireAJet=40-~8Yq}IRUoG%!l}n4=u)m|
zMWe44mxm9=GUrpJ_0YB}GG){SrRx}7o90FCo5RAuSy1gEsJ23x&d@EXns}K&W3J2v
z8@9wHtVcx;`NS%<=0}$fj%P*;G$qPfAQLF{*5npa<_U3{w$klZ#-=Ej9ldeZLk;8Y
zuc`b*XT<rWC`DO@@YU+s{z<nC>c{=3w{@84I^n5VIhME-Z##>Vht>M)KoW(u?owc2
zm|u%U-x`B14Wrl*qSo^2!<dtnAShIuDCNK0wG*n#sCsSb?liG9FQ>I$HC^hep4mfx
zkZ>PZe#ThXW~1*SX5zM#C+Ja*;6knZ(kW_v)IN|5X(~y>@$hZ(tnvidOpv*+ckmmV
zCrL?b0vD?d$71&@6pUi38X!C(Y)8B=m`1@TSqdjKw^MZ1;O1N65GtaIE3&b7SzJ2I
zFEpq)qitx*wffY5U}<}W(+lozzaz1^=d3-VwOGj|+5f>=yG?7+zBp1{b~w{v5I$A9
zm1@TT^3u&T{>uL)v(y6tL}!WbNw}!2VV`@EWRAAk@U?lqYyYsWqlPUbywhtV6c)+c
zH%g@o_Zl^(UcjYgW8>>Om3q{tfd7b!fTsR24}FX&e?~>N|0@p#LfM}|kqyX0sS@?<
zkRdsN=K(R1m-7)2_IpeORPeu-^8lb3=raCCIiHw!i%0Xn61e}5fQZWptmgdh3;ha+
z55(ICPX3sd_QQs~@AvAp%WxSQD3}j&E9s4iE(z}%k5m&*l}JsUMB`bJwZB#$GlJ=(
zZHe2hT!=tGF?I;NZM~$nUeTSt-ipXLEm<m`JAP#<LH@PbVWp}f49FdVu5(;7wVoZC
zWtr7A4+ykIeJh+_-WoF}8Bv@rfVniT`|$1=7|41YC%mot*aPnfTmW@Sm&jhD^_H>O
z%kuN40=c`D{)n@#X_Lh<K^7I&D&Gxxl?jy)H;jOXbI!DB@aj%fnLAfG(w2Cu^1W7Z
zgLs+dI2}bnMdzpe)7POTHd6j_Ry>d=FS8gj>8s50v6b?ZoMs~rK3BwhUT-g!xnui@
z^@7eS5H((uNPIF9cmZ~v**nH(@*IYKq?Vem>y`4l!Y%*kKA}CRGPEpic=@u8A@YXx
z)9a_3I?RI{^CS>xp5~#lI8GLZRZ@pSU)W{$)7NmkQCq?w(CwMbJ|?LI2Aj}hp`l9R
z$u_S!Kf4%9(;Izdc>GaZqiJ`c##f^#(~c5!-ZlyE5e5%~zw_4E<;_;hgh@y&#PjnO
zpSPTe>{1xq@hhX>4!QR=W-gl)QZKy)YN5o9s#w7_r>tL-tI42!>+R~jn%*nELaQy8
z`F8WPhcZYnDV*M^4yB4P)vQ7w$PW!_7f*zb$Q80T)Zn)8ZH<nml|8&GcBZKO5}sWh
z$QW#N8Jzj0^kz#Oi=hAl$2HY(K!HFHdVji~D@E(vQQoW?ohs3+4L5t)j+TXvHHzMC
zxK!8%am$Bv-nj@@;@c5<c`wz-VxmRs0~)g#Qx1ZRA8^X@sjK$!-?0NMt|<;l-3g?f
z5@e2;lY5Di^(V%?uj9(khQzD1($V!sKpRg7zNEbzWW|fBJHRq){t#j`kZZT_X#@?M
zJ10}8`V1%YH2O$jVjFs4RDe{RIpWwV5`sjgKm)ct!w-%8>9U}!f-scRlV^r+;hyGR
z+EabIqmdMbcvrV!KKx9Ee;e648ioX{Y(45FWBm{2%gpiSpedw{)&+uTma}-nsRGc&
z%?w5{u|A5PeYsG5^4>xBx8N7UCDTyiO2@cMKHWEQw1+NP!bKICtf_F5%{2V6m&(lc
zYl%ceT!Otn)<t1H5QNO7F2aSu;1r14$lB5J^OG9k2;viA>BYT7zYuo>tC&)1Xs<*3
zvg|5wqnFWxX?E1%!kXq7lQ$>zO<W%I{6(&w62Xp5ww?;&eIg`m%mMECHxy!V2h<|f
zQ1-!@3)-?p1P>)JVRmoX5<yM(U=%In=Wq~P;dwy>a3m-(&pHe7iDgMo4y-eat~}tm
zP5nxV(#c%h#O^2Jun>sw=wEJ;$cxifmg)_Z%=9H>Mk?ZI%();3w~Ho3sUS#zs3Y*6
z54N<IuR(BJ5=yGDM~*IQEvYb0y$KZkC|X>`TBwF|rS}4sP3_7jhFv=oF>&_5!PFgc
zoZsA?1zI{D>U_42I@|2@W5v;E@G6#9)_0g0y%}oa^#&IF#MT%z>IL(_)$3Ph#X0=8
z=XtmjUnIikG@qxw#DQy~f^edV1ufqslppxA=V@ahwtY<FcMy1CosR&8v}nR$Fx@BN
z5pvXsixjz3Y>zl45<9h=M(_@~aa+AYh(^<WKQ(`kwzX{EWzxJKhI+fjV5)hrKCj+u
z$nb))YQ&{lGugoZt4+x0SN+H|F_Xrnh`k^vwmUQ0B`7u0MT^Dby$lUSb&w)HCO-SX
zMyl9UQ4r@!!|@bh_h3Oj?by;sHS8~N=gLf<i?Q2R#=PGh$E1FL9eDlhIiC|%>-XW?
z)jgq`og2mP{hao=o`+5hvZ{%(v{mM~=p;n&Uy!zt9MG<wwMk@i&u|P2a}0Ocx7sX8
z#^{VWtrDyzMt-%eekm6%Ha-t}vupl_H0`j<wB<^^@S7FgbaoM*yL%xxPU*XMn#h`i
zgQb1+NWvJTy`@qR#P3JOW(Gb?%dC;?g2SWg#LBpsI1w8?&t%>IUT$!HUqqGzLnGz?
zo;U&f5>msX0`+3zBzI!4`AvI#|EZY(!aA+?+P$U%_NLQ{mOrszXrZ$YxhM~pOLVMh
z*AF4^)k4SH|2hNzsSF;Ek-yHs|Fbf9BwYS+!2PTY-n~QtGW4ISnqMk%V38YO)UhS%
zdy!!MeT@z1YXcOS6fcs0-S(g>0k%jJ$Gu2s|Gw>kA;bl&h5f6hU;}Cj+}~$pzn2$(
z%*cKpi~TV$`^l32IV1an()#OYWdU|cACA^+%@v0NZWPe5!TY6dLM2;be;JSY#KoCx
zmoH@zE>wp(q}W*)4DVr|XWV}0+hBn!G<9!9M!a|>==;rz>n*2-p-&6k==a#Iu|vpQ
z-Ll;A%Tb-GO7^$g{AYpMwhS-#>j<xwkqKjKxZfTl8|$WiyaHX#9g4A{z|+T4_@)(t
z$iG=^y)wdCSc&YFu&h?srVagYIG697)}Ci#HN7`h-h<w1fNdsSu4lvUeXC>pWOA{E
zo^}BbJz`vhsr1-Xm5+#CjfS_NB2_d73ge?&dwFe@5~g$~)(XO8k6(u*BAhEjOGUe>
zFJ9&#KO}<iQC#4JtkOVF^I?r2R{pRR=sm>hDQW*9D4SfID;{>81!7TNEI)Xe&&f8@
z8D<>~3S-D(K0|ks3*D@dELKW}wTR>mB@->TUHF?>f#R;Nitxj`aY=qC3tWc!I@BFb
z6Gr-cTqQ6cg_3G{|4Vi<AJNa_YRyX;43iyD^t6b&#jvr|Z}JyW4#!W;Pk1aLL8l8&
zCQu2t6k&mox6D1pS^3@1U5pHGLm0;gC7xbA6=S^a4s)q^D;yHx!!SxJ6rJxBM?_cA
z4E7o!3AqW;o&^@ut_6E?l7~YQMPICBAu{FF1@H1$yc?P*`v|;rK!_wg=Aj%*kBs_O
zyvtrK^sq#64fXqxfd>CdH+h>lIFL!Z`ZOE{tHZFJ>6TTPE6ZF1;=T$zdkvS~m?|6M
zNz@`FR*Ubt?9DC#Vj>(i$y<Hq+8Zco6D9U-VWJkvr@TT`&ITaUb_Y<>G#o3p7c}HH
zf&H?`hG}c@`%f9W5p2YI7$r4}Afv|O4VEF13<`2RF6*hV%8fn(9X(|3dJyUjKSAc?
z26+1HjWxU^xJmtBL`)j3dUjVgxgsvx3w0{4T9V>czMk6`VjM1&x-;g=a@v-K)HUE}
zE7~44$?6Ef5rus6Xv}MDli@omF^B{j&0ayB7D}hdaur{{XE=fk$yJ@(^+jBKMbDqK
zH70U&@vSL_3M-GCR!B+3O@m5xthtx<u!~-J3oB$ds#m%B4SkUKE|Qs+#@Oz7DftQ`
z{g|3{{0vuDSW%H66GvL0N`uGO6K?vI{Jzq`rHwI}kgvph;>f1xWgGYqbvv}CHGfcM
zwJb%8?3AkcONl)utOL{Fe$Rss#H(cH==~7M42G|+I&%@NK0847CKZ7;l(>(N<H1ky
z#C?oZ`ot%j9hv%8Hj)?}Hl;xC*Plf5cHO`QYM1G-UQ*76h^*C(j^?Q=Z1F`k@+}-3
zaaSj5AC!C$6_TOs%KkViWmUBrzkMxbC3*MUL($X8G;2yHR)Bytqo(%t#3a5O#dr3!
zv$MT|-J0CURpy2g<8=p6<d$=-9!<ifb^KG=*VU-Lv!dT;{AeQ9KK0*Y6A|V9_|Y`o
z9wl@jlzR6P8P|03JMVSS>&|B-KUQGHgwjLFPso?_78=e}rW_#d0+`fG3?QB#KD)l`
zSU$k>5&FcegrPOopWioCg1=vfWtN!Q+!vVstPUfp#5YaSG%J{FoA739jH|vgZ~Z@F
zI<PDM*zI|YUw_7Q0BiwFBWXAvVP3$c|CLkxLo5D6Mgic&9+iy`J3@fm0^m?Qt_8CK
z<;w$F;bD6nXn{W{8%@fvF*yG~>_7DAffspDNML&d4I|()P#gh2Ss(QMME_T0{#o<<
zjK7cUkzdEmulW13GfoX^*N~0<2@l)Ff@`QJJwJosskdxgAx+Ki;1KCbwoKOwS38>@
z=sbQJ`jt*0gFpv|d1(EqMTZCN1s>CduWsLcE$d~hz&1-iX$lL|*f(m~_BXmd`hCj%
zBcyc%C0<_5u)N)4J_BtAV_y_6^*RU{V?zh#Knqp&M=}oRAUo$Auchn(4+4scvybf2
z&g1QNhj)joW#&YtD3sEl>z0V+rbh3tlwAX!gU%~I9$o9hw4G6Lvw&dJR$)l8<mo8Q
zTuz*B2Cyd_j)d7{3&_WKbWm!8<X}~?FwLYXO;3n7((m;noFLRCwqtWGj4A^JN~Lj1
zJ!Xnk^Ccv9KuyL>oAk6i1v_qvc!tbx9hfao65mjuH8F*CWV)KkH}(#poQsXB=uPQQ
zsLMi=n6bbPg|%|C45E!4$<-?>mg@4VS}#0Rsagk9ax*6`7D-_Lmb`(VY_C%S-2_IP
zA2@Gc8#OUw?kkL>??)0?F%A2iG;Xa7B!sFL-9$OA1mf}QR+tsfRDM#^j@@25F)YO!
z`>n@td#HaY2Y(^vs0`T&YwqGHUt|AZ$&YXP+E)UnQN<J!<bsDoNcB^GV=Elo;{<X{
z%VU)|CrQ_eA}Kfd*?LDawXE5)P0I3E-!xh6ze!lzrj69g)UTa9bw*6sROP!s5f?AM
zIUl)pMFc79Xi6Tr?K`1O+2-X~H8-2=4eiG*WU>orf?KJ*7|hzHJwkh}tG|NI%`Re9
zK9)1-unU>DvVf^imi?04)I`=jt;20awxzD^W#~QftO0q_{L{V}k4XVuUj)PF+aXUi
za_+dhu$_-k7f|=E&-dMt?mngv)c1m>8(-&gu&9AT;-0$tVUkl`<p%g4bcJB>i9y=p
z&T0@ZguS;WOL1T%g~pccHMAjv=7&OnohAsg3=ER<k}3tqIMaRd1-inh?FC-7jj&B&
zN=L@-Y=|$>%AUU`7@^Kr1H;yC<KT%oc-8Nd?tE<bP8Kcm(s9zZ4)J4(2mIKtF$v-N
z`v}57cl@Z8tea+e^>k@)ZS~XdC#8kicg3t{$vq}=G-ZAuCkrEP(Kb!bcsUn+vYOV<
z7pNbdA8H+TWAn0lx5*t@|Hg1|4s}c+Yl!nBdm@iZO_N_k*svLSrx&UovdQ*hg_&8B
zZP=kZ&mh<AWmHnnriRAEQIS_4(ZM^3^@QUw5G(abF$=n#mgp<qAjCRs+oKnbVejSj
z&lLT^$@;h(l%sMeKeNe%t7=;(Ef|gKE)qHSNUyz>YDX8?hW^n2*Oo;0ii>A^aRD0~
z?J&*#&L(NjtJ<vXE(d6N-;&-DkB$-ZW>_$fRK;p~q`A)>v1q;N9`~19+=VpG>5_YC
zAgd;`q|kWuWH%AL5y`Z(-PKqCETjJ&{d>4;&MQgzlQfC8<yRA)`Av@6y&u`a-Ir#B
zAk=3m|0`PlBO(7uI{IT82^i)8(GvYvwERuG@spew(ZG?2?Z*K5z!y1eux0`_CLbC-
z026^p(!t&Z5OxqVsQ}cSpSD?#u!R5dGUVjotXuPgpnAL+eq20}rj!x*%$^7urw4v=
zBvy?}06#esCri=MIUn&$ze3?-Xnhck10nYz+5Y3tc@hW8XhDB(d~yE6bNZE)0~VRU
z`W4r|Q)qzO@b?2BzS94Y6CRiwJOHEVU%B@qIO^A%Bre&()Bm1u|4gfYK1uRF`dW$j
zZ*YOLf#o6aLjXjIhfPivW&oP=m}+b20jV~I&vEsdUBWDmtsq45*SF=_<G!UClhnxN
z+1lzDa>kgpP{r~WbH@$xXqJ{7ttx@h&EJ<_9t$+?^XU$_3+i3<Tz=agZY?NF{LEfl
zQ%94{-p%f)!QSOdz?0d1)wm{F!(fwYFJ91hSV_p2T-G7xef53Y-Om~BJ;;ikyPm$h
z<0k&TSE5G2P_nq=MhAo$4YjENk_?SZ_9@W{yx`&8yr&Xp)Yi5R46t(uyApgYY)(@{
ze6xsGefWAzfX@{&i#YXjvaiynsOcT?;JMM*04gc7%2N;=e3$4_=sd62hGU3}?FQke
zNGTWU=v)Y2h)cLA5-4KxDp26OAx!{Q9%f7mBY2Qild@Z_k!a}a(oIZV5Or>!*bE19
z@WC^>3#Ga$2V6$h^Ys7+b_v*RR6K1$##<>Uc&o$>n}Cp6JUTRBRg$vE!>ZXh#SSND
z$tt;93U9r{@CeG{^{BX!0Li7Cqz45bzWFFmn4>d>SB`qJ#KZy?FUa8e%R+_vYJYeL
zJrXijQ}=EO#2CCOUVWQ;gqc>izEahD{?9jpIRye$g`6$)8-`6E=Ex@SRhj2Ts}bXQ
zPQ*F{i(!`zo1Dy_IDJuJKKy8v+VZmfZZZdIXEsC3vZ9FjMGH81!>Z2@&-*FK%uvb?
zLa0|?<GUH*V$HIYjTu3~!%e%}oMsD=FPv!T`&23PF$20g3acZ=_KQFBXwIrWfB%WE
zY<v9uz2*Hy-bEl7Z)-E&XwHduaU7nZ&+IOK=E?+LYP7-??$f&_o~@or(dufcfCkYt
zu(mv^@AFxx*@<Ii?QF@sxEz(sjoOuVZLOv*_|~BqQs50pnS_uaTxjs=rhPi@@imGU
zriX7A)l_IS=CLcO@6KBlyBV_T@opo)@{j9v2NXJdTbw&^ZL9^KRc{%g>WT^n2XVui
z@G8Ntk%qy@uq;DBsa!@jO!ymOru*fu8S`Z#1&;(FNd%zV?}doue>3=KdOC_=j?F4i
zfmL~ciQS_^qszwwf?<}t?{bGI&h|;(f+YnX>t-~%0smY-S8uk8h%@xLqnehp%VI{O
zo2RZkc9PT}!de<Dlr46FO~pXQ5N)8~^+~>qb*TAX_v;V15OXeQ(2=W2cjJ6~g67#r
z**SP2%;s*dW??H1FP(hUs>27Y^W21!7Oo<lya*-`5%}&oK<Hwl1_zEGM7Y$m;aCQ{
zhBt<I#(%uJb670jbeG|Hmoul9p1{5DIU4baPJKhV!Q@bkO7<Lr_1s$3;)TLA=L~Ex
z#MRpw@5m^sVvAHb{L~P~;O-YAbcN;3<<lXvEA*%~ymw@~(!@1~+H)lS7h&bRfhE-1
zkxexe$EfFU#Wd3JEUH=L;nC9h;R6F>GoAP$Q!xJ#$R8Fu9)_GhiE@7ga$q0*QAPak
zwD%teL%=oSF*yB^{sN>KApIp|eGmZyT)PKwGC+3%_GtiaHIV)SHeLW*e4U6QG3*02
z1YoH4T2&0|!Qu>H-T`iX0OJVwO8^~;>%mY0pz+X6aA5$QkiX(9@YWAG^1=il`}>E9
z_bW(0Fq46$oqxw#;OhXgKZ5_2{rx-C{tBe=0ze?;;QqP!+O7ovcO{<!z}=JQ9He7K
zmns&{d-Z$uQ&x**4)VzL^$9qtvLVPL<JC<1BcWnc^5)B@^Q~RRHDDKzST1V>*<Dvx
zw3pqbYYuDFQZ!rTT0F`Lmrk1p<C@Q^AcT<W*eS#Jvak*%jb7Y4BV|7;FBe+hDYO4T
z`(5%-X!(U6sB<W*vQxghx0#3A2<HYh>zRZvTFCg=r>i9&Re~GI>b5cSjgZyqHtL9#
zRhLh0qu2Xlxl3C@8b)6<whFXq-syM@3t)RRU+-+sSqOCc7UU0I<-kKeJAfoh&Nau?
zJz-SZlN(vK%(C-Stc7XZ)I)&@_V0w>8)WFpPbpcE234%6@3c%Kj|!Ywo*_jaDK)W<
zN=di}FLaJq)JA)i;^n+h=(EQ(KMFTv;>O;p9M2>S+2}o!T2VVhr`oQn!_Ns|iR%31
zq!$Q^k1(&2qIE-9-;v|wWl|=uLqmniw{p>~=4b9?z3C=MUsZ1lChdQtKE2jQ_U`aa
z3z4b2JZN&Sxa%zm9Jh49G(!XIGi&~DWI0#Y%yQK>DIHnt!mtESEWk>BaHfE*c~&gX
z@lOaMyF<gj+c<VdH|J)a+dp?%AIIO+R<*z2$4##ESv62Bl0d78PHdU{E-~|Ni)<=1
z0)@;oBcfog;m5G-yE0t@$;?ytci&S8Mjdot5Q>2UI(^H0n#NHb1?Tr)Zr3ojR{GjM
z^XSc7zlbtaa?UejT|IPJ*=tuyAmT|36#D^!w)-moS^|5@G3TvtVm$LUKfee=ZHiK)
zw>U#|(hjrLc~$pK@fDbk3QGW%G?*PhjMO45KZ|7)o-?xSyG0|C*VcZGP`d99jWn0A
zzBh`3pwctvI0(Sc#GJ<YnDfnisl1#iV{3<)c^cr83Gf-N8716l#o;$1{1(WMj@3)F
zjogRLumci%4I}Me=?}f4yH=EqQ4a-Ijlv42BJYmJMN<)(JYglcMvIiv{&IIMjho{M
zwTY3f6>T%IGHHv<c26O@ODN9tbVo}ZPaa+j#4J7g-hjDjN-BzwmA%cMLh<xMDP>s<
zdg#L9b|kMMlR1U^Q#$-=cqDa+W1*Jxgaxbyj>J?bwApx5-hgOSQmGjPW1)y+L^iwN
zXe2?rdx&hW%4Bd<98Anx*wmthjcw(lLH=M7(2|;fK$c{uWgqhZ5gOd<Y>IEGNR}R(
zAg5tPEIF*6SOgs3MbikRRt#ce%_KU_ccZT{<X3JW-gAlMy+aiJzFnxx6T)fDlci9w
zFJj$9M1FAo+CJ>F=-HN=zK^p(^}H+X*(H{^82t%!KijEs2wOAe-X<1q@kXDsE@^c@
zVPkyqdooW9TO!$^fLFVBk=yxK#?MkS!9h_boPrzMVAB%ZuY)RWB@MKky(f3xnCJCT
zu9<E49a@=Z@;+yQlb{S{-GJeXwB_RSAs5*tnk;uGq;R3M4{#|PtKmB($m@F@^KQr@
zBG{6-t(@6)_0%OmfHjDTyo5Ghc>#)y$ih(3wvU2aZ<jVv`tVz`*EKt?mg94{$S9B&
z-i7H~1g#x{WTC1q=!F4M7MzjqNLhHf`r0{}9pM9?{mK)g!uIeD_qIw}(0juS@K6-E
z)4SpJq$Oel#24k(R6ihYXmR*;wI1?~ax+Ood`}G=T<n=A%sRZnVJN}zR(E0@(ly^S
zUeo#kK?90(2$&9+gF6uAM?Va&8}$L%yn<VUGdHGxm-%6a1%a{;ToI;%T3Rh_w3Tek
zLSa?1kmgS7M@qG)QteuxPhrP)@O4NOL(9t_CvxYt?PKqf7$<bHio9!5YB$Hh)35Ak
zIQG)fun{Sc@ayx|dou*-g6<VJ4ALM)+!B@JLb|c+8gJjjlZjwJnJafcu@7qom6FIS
z^1wFsNsSSR<NAh))V6VuPMeTPH~1roK%VS=zgV-4=uhFvG9vC+mh=;ExCCcLaLQ7u
zJ&E!oqB^6o6Vfr>({%j$si2mCs;&cP5CPQR7tWDbFhS6;Fr*J1K#=|o^bCH?IjP)Q
ztiePn!6%=bFp2(^nQg58igDC|QmP5bJ#9J|=nT-+ZLb%DQZdY$Pl~&-5y{)^gcYyk
zZZPy?hLdtjC;S(;q-f2^)LGH5_qM+nC`%qn{MUh-_~1Yc?8rVGoqwLU91rI$=6@7U
zfO*O!NHVdrfew-rF!6k>ntmc&|5Y{pB)a}pH37QFH9yL_ibh@R#|OZVJ412;e80!4
z3Gl83swP^_M+PiVivS!APPT^^fA|a-w*Gzeay}frz?uB_OdlvfswW=n5M^&HhTjj@
z-z4?Gi!o^_8e5y0{4DgO?O1_IFA;o~4wv(hG5f0+`qjDOVg6}epNz9$za)7gU_i1N
z?k1iwq6>Z-2O;fOyeqbzk1UU>^jT&xjns@NC87HGg={?M%lFJ~+<biB$47?^4zPZF
zzC*Ylx?Wm|%yg&Ksc2J2Badu76upXn7m+W47nGCR8`)}nTK#QOb8iOZ-if?p|H-U?
z4K~=1N~a)`jtd@w8-#J=y81pJ1(mmWE4uCTjGCs%7Z*<p#j{Grpu#P(6g4jS73ME#
zTvsCQEvHq>YBY3AF81l{PZ_><+kRC*D6z92?wD+wn`yJRR#`u#9Te_WD2O%;El+wE
z(RY!!ck#LmKg3YPeeeUUB$z%8%sfrW5FezYUPD`*gnT^j@hcF6>nFE1P0b9a^OQOJ
zY7dxp^_prFgFSRe#8UXh8NK~@H+!(tQ&lYyspOg%cds)$6mx~8YJ5jt+Ms-t<W#D9
zCMnrY6zwnUE&G`=<8eq~4AP3cFZlxuxm`J7n30#oEm@<-bt`f1(`zIL$1O)K*rAOv
zXu|p~!V61csyRV!1uQ5!7~JUatgL!G45ibe3X&~a`9yT4FHUpH8e4ET$r$m+lUp!h
z1K)kvg2jDO?z{UfLD4V(h3hFd9xA!5xOKFjJS!<W88y1!ehhIVOc>Jzb7#sVrpI`O
zaRmb#XPudHp=63bPP2NLy@#Fa02qb)CLbPJ>Jc<r9$_^I!(keIQ=o}iMr9|+Q&r>G
z<0dCnuV5XE!@HiWgal74lX8d+wDGC(1V(=ad?5hGZ^l-RX^#DjCC<g>c9h33;LI#M
z|Fo6)Nn+eFO6i=Q0vEcQ1v-2<J-7k8@TQq`x;(I)kaIbiILHCrZ&XItQ8EbqLKr)*
z&lVPaJrW+2si8Kg8*%rp8&*xJ>UBTI(;5q<6Ku&WxmF8Uu`oKegUcSQ+)3YY*>o<x
zZ9G4i&rr4pK%^6lME<xMgVWKn^AaXo6<q9y0Md^UHz%eo;*E-g6;%qQEsaz#0sg=;
z6m1C1v#&et)KJ8!a$xiFh9Y_E3cYdI-4;ulnIn^+L)0tZcIGC`TfYvGu#OkE7ntf~
zAMo=8TZ8KFM~zn8yWy|<hzX`M!}lcclAF`^4KQRBpp?aV{3&SRZ1tUl*9~Z)37M1k
zp3V?)*X`%YSs6Jpw+dXhY<y^EjP)+G531fXr-5<0RNg~88O>z6m7YPIl}t@juBeS0
z5BBZ{UF20MYqog61cEuhaHD`Z#d&H|9_}6T2ocDRC2hP1PdC?Z%1CfBsjxFpQ&yMD
zpa5(6tXI(_7MO(9YQ`fIU6Mill@yewJT8~Oh~|(Sf~(T2UmJmymr6ZkvW1Yl=dww$
z2H`ILee(O=P711NU)j)sOL|_w%x+M5!hB>c2o_8j`m=>)4_}&l)iQTjHe_l~y5pG^
zO`Pcs_bSi(8uP%i0CCJ16456npWt6mG-!pekbB-`Xx0UxseITLj$Y3<&s}HG!rFda
zj+GE#pY`FL^=Nq+i(H+aANhS6WO7}uO32<h?#KG>a*plV>^fh_Y$M0dCDpm}OM{NB
zY9RgfH-6ZlaM0U0j*+hKsfCzV;p~975(!#0LT!t_zCo1dRmy-)5SJ?niTB;tOd=-h
z)9y+gXJ1AP$|_IR+Hn~&S5%upAu$u?!0{sjHa$!U0nJ?weOXi6muJljsc+=%C9HNt
z7PH=#C})Knwk?m(t}lH%Z}_@$j8DR=6%7h`gXv+Eq%`Af!UT)W+|uR809~k5h)Hl$
zCnVgkWJnZDgL#c2d#P}}@WLqYiXS0pY_+n?ja6H-r(!fVHzbqb^J0SaD;dQ6+in=7
z7pw5NXt*>l75L<~&r`I!V08(;A=<CX&M3c*?rbv9+U=PdMi*Ct22ZkXIBwb4&&&i(
z?QN>J(2XsYXRbsucifM&DfPjvP_75w(I|vQY>M8U*D_~Q#`Cig$%{k_Ie#S;a$8g9
zQ#ZL!-m?t@i^J{KBNcuwm-*czR!orSW}+*k)*-o@^C~Qqm)P<EecZWWVKQcqR4Qg`
zIus1{mA^8b+t>b0n^#(|>e8>mGR#guISfk~d1ddL`bI3fhA#ah=;mAZM%vJISjX=m
zWz5vsFK$~_a4e51y%Q3^PQ3YKsKcb1BAB2^n>aqYfLCp=>U}T{P+V93QM>3@U;QDX
zSTT+Alc6*r9>?MH%vp;m=aCTY;%-yys@o7>jF=vimeLzn8iy@1Np*+a_aBkELF?Hn
zKStRTJZ0<~#xR>E$#T2rGUF9h_gTSyH0uQKPTAiVXonbVs^-4^>gIywwNzkLKgwm}
zna{>w#eH&>`YDZUtHyP$ui&<Q<VNMVEf<&Lb}x#>&YRC=xJ2bvL`atY+4x9kBEvFS
z)zm^5h&$t!`IJtGKpLlv0<kkl9CQ|ek@)RPf>-+8dRRiZ!BJ|n(^=2(N&Sc=<@lu)
z*EL+fIrv0OEg0wgYQuAzPK(x&6uISVx<;Warheqk^!W1x>MM!?sWDWVOBMT;>u~L&
zDrUt#n4p9OqE(COSV~{KFN5sCShT9l2hhylu5+qI(=AI<+S|QOg>K!HpfUd=lX+m|
zKC}*gvf=+oWdO_X|6^kI4`Kd~mcb*!mzRhQ0EPoJE>-{(&kCd+51?jlKxN1Zcu%oC
zxT^zfTY$HV!THFb|CJ{^v~__O0a6m`2V1N^+pt`J0r&tmHa9@LGutM`25x#t!2YL2
z%lbg|1+<7c+oW`VUwgF8`Y$;)7yBc2L-fC~8-KKK|IkYSz>{BW-GBPJKWBFUxBGv;
zz^@F58*u7+Xy~qJ%Q|cT1g;&;OKQkQ(l3>tbY8d4H}2*Q+UY{oODx%%4#`RnwcLHn
zUXKIBdeU_(g%V6G90W+AJr4SE%uC||3peG4UvE~%X3qJrKEQWA?{RUfORpimh~&;O
zGuni)Vr`|dc-C$JnKA}yy)x2rzhit>`Cb{yW$b3pr~?$04?9aPGUa~K6NlneTLh;d
zBy$4q@fCgGj(=33<_J%Mek{b7j>UkrI)}|+=`gIJINeosBO_)+XI3}gl~05pStl!q
zqcV2!LkdY2!{8d%i8fwB2Nz$t)>1WwCB03Z@5%wP57lVJ!l}UVlG|0{d_;>{NPP8T
zgRQPTvKA<n9qb8f0oW1f4r#P6&464w%p5^DepK;m62{OiO3YAq&;=N(_UCBMfa=_v
zb|vRAy6an|4`kb}#^tZ5-lJ{c^RB3AMODFHm^MG#dU6PtFRTIKWq-84Wamm}gAzJd
zt9{aEt<02UdH$sN-LYs0%7)fCMc6_X7}-9m{#pk}*JMqKqz=5eLw|q6MsyCPn%vNG
zDXgU4Ac0X<<I)JH{e_pW_6;~xx$HMEG=!Wwv2~uM9&hOm;vt$h1x~@xEE0nn=uL;4
zZc@EC?oT?3OPXIf7S(7M$6XDFl;w8Ldgdq1=zD+R=%38Y4A->z<QogpG%b{_7e0Rf
z%Bal=bnqr#%FS*xrZO_U!$-Z48egV^m|YNcmtFt*jTdJxX5KrVD;ZRel;ORS<QvEk
zovd0C*g-N#tQ|05sdV$jXsQz!*vb&c*F($rrd+DBfpQ`r<!a&;Jr7Lz_X3}#nN{|*
ztO9xmN67G5o0^5K2E#JJXP=5gu{C5*uBCq01l7f6&^a^8p_??_ysxr||74y^vi7V=
zElD*edT-K0?p~RrL3GexJl|XQtJuKgoIfQI;t^w`95qwFI|0^cYvS%1w`gpa!3Ha*
zYmnh)osGC4o&VCY0<}FEN<302w|AAq0-YGX9%sbSbo}nFh7Q4)3=3B8o<-zG66slu
zHjtkjJiPXX`H_E5uVRGd+sY3UEz)b`{Vz61;0fclDFrt-O}nOc*^yVjf5Q-sPw*~!
zkE{wg`@>3fX5lPl#r{}<Mx8*X6#GOf+}epMCe0XI7)^$uP$^R8$jsv9(L%CKXH0QX
zr0P4lHah}-s!yB|8TeF@ygx8;?;|<~J99uZcwMiC_NSk6QhGyU%w064%D__9YI(8G
zW|+!B#@@RViUhbB_DEBJ<JQ4^>C}>oo8vbj{aPlKHk~E9k06ifRb*L&W{#kgU*@^5
z*)uM)69(V-`c=9|2xJysOS&feX!h((sZ1y|17i|afesztj7~g5K5vrPD->v0TjxR0
zbPDOP76SZeOA;1lqRbejQs$v>Er*6d__uCZ<c@TLrSSVW^B!V%`STrgH)H?YC&3&T
zb$s+2+^4M9IvI(SspUOXN!oaOvMHBFNu6q$6O$oNVt7fsY+Ok-vwM}PJYTvROJz?q
zDBNy;A+O@Ca!ugUq;j1Of3aT(k|pE<K}n2$_;zn-K<4sn&PZi-BWypfQrQ*@Z$5NF
za&HhcV_Ui3z$AE~idbdI*Btus(74~@+?%wouEev#CX`yg#kGKe=D7`73WfJgLl1x5
z7nm4_>9GwBzVFY?30S?>b1ZY|y9CfRUU~h{J{rRhE=ESiO7}>fycjMO5QE+Ye*Xf)
zUMn~C;vow8JQQZVAZc_ydv3WevsZZ76;83)g`%P9JJTOw+7o&)>bn|etJD;^CUb8j
z;Yw~eeGVirYuvyV<NIs%At&Uqv$gpx;w@THze$&bz+)^C;E_(34tKfUA}KmjhE(UB
zP{W)SEl0K#)e>5aY!zt+uHH04f;!e~sGic>;$MrF2`HoN34VsAw?)kLD7I2Z*bMFP
z5ZmXqZZ~vE%BQu`!q0P#wPU3(XwU#>vjUBI>IX;%$G@I|KykX+>?+@Q_W9#by`FJO
zOr#^b(J0zV)jGyJLQM!cMpU7SFjxItWj>`roM?NTdCFSlUQ4wfrOsP<co4&N=$L8Q
z5PM}k0=mxtcOR3LemXW3Az0vLy{yF~RBr>crQtKyV55e`)U(QcJ%h_I-U$_HGKdz>
zHYO}T$1ku8aaOy9?F7dc#Os1%Ay7?g({yx@hUjpRp1e(tZ(+3e=8`cCq%|g(zPQJY
zE;(zX`xImdL@$a_v?>(fYJ;vJ<IlIBr`ap0ebVOid?QU|^~rJaM)A!vvJi$S%kOV!
zXcdt2vuO=yF?dD6TN?2oS$bdgg0ZGizP6)aAFw<nE*XTdxdg9p^y|<rVKfAExI^Vz
zd75rD={cnmvTpL#*$DlV^YM<^){MPnr>!QYMBMTS?<(!w7Uy5oL&|EZ7axQvx<Zj`
zFduNW!TS*(M031ARhdU8vt~QyRtR6*&x}~?`p6&#D0Ob@yY5pklw8smW4Dl|zH@1U
zz^!UdeE%bd0j3O(In3k9`)4}_K+gj?4AZZ6%x|inf9&Ep|FMhzBbWIfi}1wUBN)J*
z9xw#}<|nMo0No$Ji#>QS1LWO@@y7!R?aL7g1YqJRjK}wk4e)p12KI2-fw>7_Jqwty
zassnvU`ZBu0vC`@{eq_fw_tESf`xz2fPk-|yiJ+7w+%>10g=(~i47;9`(y*WWRZ7(
zr01_|9BhD;l$ky8`3@=V-`5@t3D|+5^S@@++^I~^;JCoN=I8K-=?~P{A34t-BkP}g
zy+89DfMoU`c@En{o&&HHeoB;%tC>9$-m#LY9AkJ{`jcBC3t)Izt3cICEQ#6<C2uxx
z0f|nk?a-_}m-NfG(m;}vzRoY`kvP+v+17f>*l%#;px@4MO0I5Ynm=^soG)Kkk3>~-
znv5Nsc;o%`)0M^b+?_*-SoJ5$JII`fb_~w2DLIP{Y@TXRNnO{R0^iK|B5PU3xZG!Y
ztecj`t$Z>@kBV}ibj@e{ha0>uwtAWz4w#6s&31?R4b2F$mDxQlT5|FS6<1wVjmS;)
zTNw6MTXG|*p$c~QpO&B%5ZV{#dBqsI7?pgA8)U>-+_W`y4ZrzVD9|qDzc}UHz(;6<
z-)(Mj9O;S&u{n*(h0?+WGP#m-cZ<{TsNlnlPK?)7zRzV}SsWu{8?DQtdZKHuX_yu#
ze(xH>hb+-ho$l)!5dx<@Vxnrt@WHKD1(VACV>3nUrUts#9p6$uZD_<a@)Wak?b!D-
z6{w?A<1>{s>sf?3iRPtutagr3&&%ggli{QCyMnSqL0AhN@deM?ChA%#Gr6oyk_W`U
zQp@;fFWOHRt1lgdRphxx22}=y3}Yc|dD4zrnB<wEaTlDzfG2w*^>IgK8tc|mpC>59
z%KzYB<2+q~w&smwhjPV69P^#Z7tvqy`xM7lOHHEGgL063PHCfql{J$>6-@zuS!LX9
zp{q%H4;phaazE^f2|MJjAo*bKOArvUIR{xyt?AU}+?d;iPB0Po=0{Kr8PlL-?l@(}
zGd?DN_OBh!Vo$Fi1zF)Q=c!-EDKq;@GWi=F%@@3|3LYYQ%Mf=)|CEyaDJLrpbRni3
zlBG>>tdqvUKn}4W%*-Y$s>_5TltDQ;_?SxaB@M_1`kdL964P<pJzaRtcm|O=C^7*P
zwl|?mN@%!cL`RnmJi?^Wh)4}f8s$?T*20A@<wWFBIJq=gXbtt+{K3xM=)hYWh3}Jt
zdvJ+*8t<N9KW(c^^t&NDuA^;QPC1Z_snj3a3%koqkBAvu=JA9O<%NaVvG7F;A8j`i
z{2~exMiNlWsh<xE^MR~-uM>&zk=$)_I%0(SUY33u>t#(|Y6#5HT;*UXl)g8#kNS=6
zLT>lAJZW;jue0xTy0QrQi<i#B^h*Bzm&`dIYo>?f#`leUg1)BFGQ|{Sv#1I=iaOe3
zbL|$OvUJF-VXgDTgok~6O(hmP7?!M15JM#d64abd6vkcA96B}?T;PUyi$Oi{K|Mi6
zFCw`b%pc4b@M!$5tBZ{g5gZgS!4>#cdUM@qG_6D;1@ecw94JjP?$|YctOkv2#Myvx
z*V~{WC&EfmB5FhYD%_N<6rv?)!ZihXYaky=PcS2vjuuZA`}4G3vrVd3>_~L~o#`_@
zP#BHou&0qtD%#z_sp+e{$q6C~$D=v59#NlJJdK<w*I=JnonmGMh<<&sRp#IqQ1lB8
z<XU-0Qs0#$2y2I;n}a`NCP6icLcojn%e-`cCfLMPriq?&dwOL4HK!@S-~Bz>=qGlF
zKyi6$;svY|;<eQH01?`fyeU)NFV0GBrXZ|ZU#mg*B9+8AKQJ_u1lx@#bo6@*_G1{}
z%4*?h#<2_eMIXTs;?dWNrfpx%ywqF-)IYJ{Y$>7??#pj#>BK@^XPw^<BLt1^LRST_
zZo4UCJBMNvH&h<JJd}c=MTD>xa)RmUD7-U#)%)Z1`I?Rnm&o3vkNtuccO9ZV<qoJ_
z;)ww~B80MKwb?jzmR4qVSEGgwqz7dR7UD)R>7aODOUHz%Ud1e-W4-{{2mf5+QBiP=
z+}2_06#TPX3KC8zI1HE*b}9XrZ)To^pnc*Fg<Bi8i1(}atCoPElaaBy2lIt?1e-t&
z)SlP6$0id*vY#g_)R9I3ACzSl>23iT$=KsR<@O}m+>u1aFL6g{n(*gY?s4A@yMyU+
zZ6Nq|IWs5u;hP>M<d)N}N7+i)Jh=d?;KaxnI`m2QhSu>#UX9~ElIv}BJ0HQtQTeQ0
zRD{y<2$MFO=CTRA8pabch7KlJ$FK_~om(Zz(!_YI)l`<L_=spBb~_GA1n)~w_F1!I
z9!c6sXLoKc@yh}nh<zCh?}qD1S;vXJZh{{4j)dF+F&2IYRwdR~JjC5#2`#7FX?E`T
zH<*@YnwoJIy3q7c8q`T*!PP4tWUigD)YvX6wfrFZAUfsa$|{D@2SZ(CIM@(}J4Y&Z
z-UOD<Rc~P(G9r=|)xbMVN?h-NPz(@jk_~AssW$o~1>>$oQDVTM@o|W;Ox<(v64^SZ
z3S4Hl6n5%1!|f(chwPL#$D{0?ikLGptGY9*w$AzDyiYqJnGRl>DFNx#W0|eAyt81s
zKe1UTA9?=XGh*ZPVlc7U4taLCiYhkX$up`Ilkob<4`-8+Ue$95B~DCPa$SucJc~r%
z#4j6iUU@fDwe)<0XC`^pY3O|`nJS>{8C8<(PYSjrPT@~1l8vO$*4%l8tx%f#{lAi%
ze?)qZ$L(Lq&7(+<2H=-JBn!VwnjcLOREYmbY5+q6K+}=<>;@K_1F%VcZ~<foU~g=X
zkXJx%0rX9N<tH{bDCnGzH1t36lLz4)17NK8+qwVHx%rhtJQ7y{yJu!V%<<rv1~@q-
z`tOi}{`d>P*Wdtr$C-f<*T0gIN96k-|KdN{$>Wm&Q)l3*#B4l(B@?jC|L?p1)|dSA
zUSz*SC2RmmmIF|s{OeBc2M;4Gz5h#?{oCXVAg}%gTm6&5`a7TXkEH3bQS?vF^m}vb
zS8oV_$UgRl#sC0SIk2+2YVe+{j8os1IW_sB=!=A1Q3t!jjv5_|oG^?W)aI<gYR$k~
zf75qM?P@-7ffn1}yn9CHPqU&oc!XA8U0mIL**>C5;f9kI#o{ermgc9*Pg43)!MYPk
zr{1XL+`nSCWUHgh^y9@He2(mPVsFMKU-E@n!31Lo$UxwTa6J@HS0U|~9-L*J;BdrK
zH`!{Tpxru&JtQd+g_x?i5+gYz5;3c$vvXkQl(R&Pxu2qbaw2rYU8+EvHJ02Kng<Q9
z=ZBQ!D07QId!p(kyh6!Rmb{ksZ5DX>lvM4acdvyfV$m3fU?xngH+kmgPGi*<CaU}s
zpb_X65TlEw@GY@v%OTjL1v#AU(^ClIuC3TZ<2_Z);-XUFh#X;F@$e5inp9y4X$w!S
z46q6uV8)k)UUF9FC+onzr~&J_3ka>ErmLwU{~{aw#k<<ksPa&O`nW~Kjy|SgN;;)M
zZSf8ErE7i1(BZ`!+BshPG$D-c^DKvP;ycb~;vm6D=}|}}qnI0CFOa)CH$hl}z}kEi
zvUy?>*Wos!rW;k3%aqzx(j^Q2+aY6Iky_0-mv>r9?}Bcjx=3bvA+W%YDQ;!F7hGAz
z$`W-aBRY83Z9Z{w$oLr9=`Ng8?-Ae>+=amjm4JWTbpEWvWj<xADXq&qbpRC<Jp?{6
zzyfMkEhb2-wPeOnilnsj#};j%n5tJVx;BR}g6k8m2YXv-si+wcMq@-m`1ZYhRAAW1
z^ZdApk~oqb|KsLzBWy7)$rf{PBm&iBGfKYp?$<KW#$?I1BNzrU^qdRZq!N5#ZSPA;
z-{2-UE}R!7WLFXnlTkwo%6F?Sd7oQ?EnR|~)@YS&To^KpLrTDBy20M8HXYJveM<5o
z%uu`3d6SMmA+zLM-U{XXJ`wh%k=huN7s|;;Nv;`G%&>X4#$b!d7wK{qHNj$?p~5A5
zPG$&CtZy(mDCLw4(})R1Q*5Sl4r6ud1gPI$mU@+kVz{<Kr-B#NaR+C!%u9KiMSG-x
zuw+crM=S0<EjI8WXI61D#NH@ql-TU}B4<;w8JDwXL`x`q?#26|vY$R|D0w#ViFg<K
zob>zm;?z_Ld>a;`h>Or{!nBs&(K;MT%ar7vE(CK(htJ>)`O;sZ64Z2ehO}m1=S#sQ
z3d!v)a3jfa6-<1dGgx%ANG+{UPRHqV26eB9mFe~<2CS2<$<o;fK;YjL848F!QQ$lb
zUx%6Qad_H7cp*#a8BR%cxNxAOR?=8qse*d~`Gwh6%WkVN;76bOpp`(-0yg!zl5TJ?
z4$Mm1{D(KHimAY;l=XZExdB;J{fp?NGgw^Dn?a+H*RO>5xGWttkR45_`~~d{!$Au^
zMhfC=xqHcY<oDic_vh3fw}-*U*Ezqklh~=SMhz2Tr;4TB1chuUbAkzB3z5@P#^c@|
zn}SKr?l8aYsy0RGh!-)(!AQjrJ-%H$HHYsTAvlxg^gPxalq2*(3kAOd#O|?HRNrSx
z9C6|ehSm=o&hFPwE_4F$)mH1TW3~IYXr4=B1b_G%mb=692?_kp3=3Rt*8OGawB+=8
z!wA)jKpK#N6wV3u54A44gzFcpmC{c^j8W*{D3OG!?0-PxY}p+D#{mXF!XK-1o`=}?
z=K;p^xM#`q9|zc@#fAzo*Q1@qUk6$0x-bNK;_EFMB6b!oU={#q4uLwG6<E{xMLA^y
zY+C`>QWn+!w(A3)`ryBZ%?1?mtblNx1z?}D0dog7U}2LD@Dl#VZjk(Mn?KG+w)pP{
z6!6_1O7^j16cf&WnCibyn@1ZyU{Lb+X~Xq51^w?ESpir%7eM;{`$j-B0_=DKCHp@}
zg+Kj3ewS+eLErifxW)AcEd8J3hX>e|`Z=1=l#iWaMgd%dE_cKFFWDO7n~1>!@bkG+
z#GX&t7qM&CYExgGN10H$F2YyRVuiQ&%JYBY&++gjRIQi5Xg8Q(?$Bn?@7TaKj?yaP
z*0GB#dj3+xvUtKey2DURD}l8i(^oh7rd9!}NAJ@Q8I?TDPyEvo?`*!@Z0>&{6Se}G
zhL3@v#!<_plXTC+4T{l3M7FK)#?r(&LBZmSP<Qtc^m%+zlJI)<7PoiAT~4wp#qyOR
z&p{OKv6oo7pc4xlawgoR;QYl~A(FSc)|$vR?^}CYz3v6Ri%lLJzxlc*Y(yhXKl6=3
z^IgF}8cnR~kLPM3-@cF>4;xObr1&DafiBn3#t@Hg)#^^!R_wYR-{PebJ@rf|RH4;k
zL}qMNLha8dbQTLo^IqOS+*;P{vtkai;mNSgxPU+kY<cb_H-j5ODVgT<<D3EtHppy1
z7>X$nQv$aJugwRM0gc?mKeBZM)rNFU3J({}02Q1<IRrcq+V`gUgS#|*83Tf_38)r!
z@9Q4plDz(9!1G&LM_$T8|LhtT+krl_XQkevKa!Lc>Ybme_0Au>g1&qO-O;d;Yyrkk
z$bzis4UL4J%+GXZqr0vC+KjK{vw^^qzMgk_)Cx;aF>TCC)?;C|*WkK{v1oEDZk0l|
zJYQk;)IF2Ewqy+J3jXRir!g0A<mdwmvE|l;l*IIVjsk@seUkaz9P2%62%H5)80X1r
zcKn`;=cJ+u;xb22CbcbjNuFYa3uZyzqzk?6SF5mAv11@GSb8gBpUdney_sj~@Gi1M
zeEAHOq8sn*<=bVl(lnPA-MkNxia#9O8@Z64vYe#S1^X+HipJ7)a}TkmLeSKvgQi(Z
zN+ks_=LkoJt(%GF8|iN+6zhH1*UgB%XKZoXV@?A1>xgfs<)(e<k@d7!6{o0pxzwvx
z{FT@3jD=Bazhq}j<Oz2>Ez|ZId)zCUI)_;=C{lpfwbh7a^=E`T_UAwQ<W>rfd(kS9
za5k8|r7vj`oI{aKV;`86Ro=DZ0qtD&6~)A(dfMVJ!6uNVC!^xvpTkC^i^N`v7k)L<
ztGZLV%*%b{>{%Ah4NX0O4~MLoscuYR?+z^SUzow9W=buaU%F)OeZA&&4%oOKlp8ZP
zxAvVKcu&Qov$%q}e^|p6m@YEA+-u1~lh9ANY?8!!DfX5ybz~rzG&tx3m5kD@9LdJ>
zm8#vW*p<>YeFjBF^?Q99k{mP8aB(8EpJ*Utv?zQu#109Rpat?7btibv+jWC~$6FwD
zJjUCf|JnbDw_MDR-B8M3@%DeWdbl3V1b&Nb4^MfBY|tktkPn}M1;#|d6IASn!1Q}#
z^1(le4aoD&Pe`%;zV_h%z{Z}qdPDZF+c<zrfL(F&Eja1FuCW8xSh#soIl#gH{Y<up
zi!6yG{OGBE;NU3#y7|$0m4!WZ;|Vw^-QO?7!UL>t0;`&TN7jem3s3-ney17!5kvn-
z=l>`Neh<5UOo#ud4FK!&|8ZylVA@;{wi6FyYsvqeAp@GaL|l7PTmaknTY2?QjDEP`
zXN*pjcgSSM892VeAP|ACvg_jHQ_v|nY+0TqMB#>0ks&2komT7|@I8RiqNA`%u4+B`
zyfgFTo>@3hT{y6s?aO#Bc3rC%V_?>1K%`;KQ)j&AIViNXhRRQb#3Z=al}EKCdz_b~
zI<Zz`Cx1Mp`6?0-bwVDNP8vSU0tY2H5d|Vz>ypGhI@0E)S0G;=$coRRdFu08PC;~<
zniLx@N_SNZgGw50Hk+r!$p2j>Bj>9IyGbScXYTku%vO0?GS0LE64*AQ@j)X#su$;t
z?}hL9hQ+mPFC?lbKUFt;Sil~W;X>6kIv!@2oUSIr;(eE|clazDy9SZDG`G7DclrZp
zIsblMg5}k2ZOC3pQ6`q;o||^kqWo#1G>f(`MYyrA^y^9wGo&IOex4^(83R$yq-=Fx
zah037X>z%@T3gCA=BymVR<-ZmVYG-5UaTl>`umhJXPg<$eW{wl<ef%D()66MUReo%
zD1YC^`{q^SkG<2O<Nrt7UqD6mg>B<74N}q}NP~dn3^0@;-2#G?C|%Nxgd@@+DW!CZ
zq;!KIAR!0{lF~{`iVEU?59&|C_gU|=zV}<pwGd|RefBwLX5ZJj?rUFn(a==Dq3rio
zuM|f3^g@RhE;5IO_QmXaek@JgGJ0q7hmk@A*wAnJf;>^Qo6L0ck$BZ*MEGCruVV$N
zrg;Z5@)$nSB8z&_x4}<fo`==6Yq2Gbqrd)kB}YWFL!&D<I>omVBiC`DIFagNnF+d7
zM%A2uiEnGWtz?#^#o>I7FqPbl4_aI?8WDpSoFOud%Ez#n4KFBMv3)fqmOiGM@I{Fv
zPAQ5*5KCBsG^!_F_@gqNlIhi?(Z~IKYOh%nylDNoZKCl6{nMKUl!e+X>wEHSHuYyo
zE}&e$Xlw4oekFI~o;zhOjXG96h5EPkgsuL@PJfE6JQ3<rdkPhtoEi#mDW|F_WxWn<
z$6K~9_*nF-Hb_<EQf|nnDrggANkdBeu&)v<WPSTIy&C%7I%9Ti#xDS=m(AF?hEh4m
z?`N%`?@y71C(~Xeo2I<`sN}wZiT_%(ez6?CKK-W_ts|C$=^u+0_`?0IKmaBJ7PB#a
ziG=rP7tD#ZOz3F+5+cWkBi{AfKK~C;1IBtsO{Y(<3cN?++>_&+So;8D0(QKdT~2s`
z-~P#Y{dYuS(3A!+Ac)@CpmXxCg($|8hSKyO^MXQnKr!j;enZ|P0Qf)53&I0--T)2G
z=@SB2b%LDZf3vV5NDFeX#2-7I-zyTJOlG{;;Y0DtPUCb00iO>^sk13VA6!G(9ZAd?
zoDkmR>=ch(7=a$j+2kr8tkiWs<g|v(xw9nBqoI(+dDD_Hja(sK^;G$~wUXxMkVvJu
z`MgI_fZ~M$Pt0Ymu7`L5t1K@>KMB0a;*h#gymBw)171<(mvle*=e<nmeWcx43tgIg
zkD%}dQh)blF-iJN9WJiy_1b1UFY}uD*m9Hmm$OEpFQTMxvRk+r8~XF9D=_btwuM}e
zv$>L;(-z%j#_O3-sUpbCk#&z*seal(ROh8CXH5TGy^ac*)AzeSv!tWm4R&};en(z$
zP>l5${Tk<Sf2wzIg2n2tc9=c$NR9z>aaidhyu3W%mQCU;sZ^+*o9BVR;*WLtk#K|P
zg#ek@>{$i*;T{i|+e5tc?T~Xt?A?d8>Cl{e$m=))rtce4nQY4GuA>tgn;KS=-I+4q
z>XBKFoqnu&A58^%du%>%N-;?BBEwd>?WcU32L}0*&*nS*P+lZ8r+w6x3ucGtMlzJ%
zsD~q|AdB1~{Sc9s`2NeGLjbQpr$<|IEE;7+xJ?o50IsIp({lt_RHeH#72Rr+f`rIX
z+#~@(M(<=Xo?rN61~0pU>iLN!hT&7rHCr6pd`CAAcDRRT%(t)gt-f*VtM$8`o12@w
zc}q?|cNW!EBH}U_`R}hK(^xwu8JLD;h<Y}_<C^qp5*Q#OIP@EH1SPNSLs2ZS3*vI@
z3yjF`i5JxFx)snQvzw7tT{21$o|h0!$|%B^mWc|ctoYo<D*SE=?d^3I4eSVuGVSDG
zR^9s&Ql!&ZPjVnW)slya*WTpetRZV!V2{!?vK5OjL~705Yr7K^$Vj%r#Z2a5UMp)&
z5BGBQ=W<j~ca^>*Ji0rgQOq=aZWTr9)pPQowg>e%6^j~h;t`Q#-K9MLumgp=SIR9Y
z#HoDaqkJ;krQS&eE6aP3Jx(_F!6ly#4aW0qz4fxX>Y<8)$@%FDjVV-_%aYAsNpihH
z)UURsJH9TDu@5cZiFcB7AK8F=bs2xHmV?8y`~vZJVaN{#`#W1hzZ@vm9A;HPo;cqe
z!raKHH~#6I1LG{Ozs5W1SGZ?3zujGZ#c%dXf_?2ypa!3Y_450vV0Jpk!)$H%@U2Zw
zg3%8_v?xSwpK$Xmo{dnmUkud4Zo@kuH{ZC-QvP00D+>Lf?g#2{=-A``)=z93#DBq3
zfDMbG7bK2pwmwhx>+5=Q3FZAi;=a>eIY7581nvXQ!^gh!h{Xx~9biB>Xaj%d1@MQz
z5<CG2FWCNf*5MD)Nb}^Pc+^$oZy=)E=D!+;@E-97zn8lU+`r~>;*e0_&H*g^x7h)f
zJT)j3VblQ=h~c=*z;^mI2;#M~izK*K01KXI$oqc@|BiZcA(l)OuvOz|8#k2i*S?3L
z1hD&1fS}{^cM`!HP{N0Mnb4*5WTwFnV~Zr0FlDlsdS5?g>@OTwnQHST62B3WU0vkK
z%VzXKd-ZU0ZUC*2K>YJ1raSN_DtDTUFX&j4s#`Ql#nHVHWKqbt=VJ@;rOYuB&eVwJ
zu-o#u@<a6J?sQtiL-O%W2HrUf8N83}a162g%a<5BQ4i9CBi?_0wkY#}|G+iICTxZ{
zy%yHWL|ibtF)@Bs$vkPhV5~0x_11=y*2kyzRg?ZcZC}3Fs$UhXvS>%El)7Zq`~D?*
zU)<hqMqZ^$g4Q8#EPFR>@1DAhui5SPHrLP%lPjhy`zyA>zKS*bv&G}eq_XtH`K54I
z7UhJh+brRNg1VDaGQ_KrSp@0!I_U(4xSNuC25RCDrJV2h>nzwNa(5;8(I$o7@egYc
zsFdGsyLZ#Cn?djJDhZVtI|-SY?Q$4VK!u-0Lc89IChJ6=U+3x?Dq6c`WuYOCy$yS+
z7iXD%%V)<5tJHZHLR;4b42bTl-P#a1Q(ojW+2FH|(psgkerbUJB&aQ}j}$HX<y`DP
z_vU+sQ^b?q$7ZI~_puZ<&bbZkopZC*<@fUw8P66$vVE5Sf~Wl9^fj<?vs^n+gh<9a
zdseRcn^2R!Qeybsy*dW9boSLxwpv4>%SBf_OK_H432!#ynn&$PIE;=x-fx}hg0I-i
z@^D<fCZ+sjl!57C?J`z%@toxWQOj24f|gveV(#UXm@DFSq}Z^grqnblF-ew+-Sd)<
z?>v6&s_-WG<&8Y!7rydZS21v01P$3K5~SWctm2WVP*pX}2ty-<$n@?tJkxBHG{+$J
z*6zvk<S?@?UzN6wcFHJN{F+8z1Y?AIW?oRY46n?(%`JrYP+LmKc4&il%s#7RXrf#;
z;N?d;Em7@$dr>s9Yd(~W33qw51Dy3(dq&a-8m<+HYoKf}<ab5M(KR$<hLgrd=of8<
z+!IOldh|Ra2pSOlPOjzUuwO>o+WbeTI67|2HzW+oom^Ohi|VH_WMki}O80TN;dA9i
zNZOI2(XSq6FBb%}GGQPUmCW#7k#@pR*5ECWs;ZU3{~BmEq0pnFI!=E}WiN#-UrRdw
zgWqPd7B-r}JmGGE^p%F9&#X&0#@++^SlM;Y0`*OCI_oWK$ktHYk~;<04YLA0KTXWh
z*m_h4UXq=-Ow7AN6Jzn&Vd}QP^aps@%$-AShvGX7>;5g#S=F@Pu?s>D7eUK->#SOu
zJ;^csz%81qS4Nbvzwlb17V*dQ$=V1$A&EpQWYtXj^f^<2343-%!LYXpXN(Rb`P!{y
ze}Rr+(JSR_*Ph;|8k@zk`EZ}xw#e$O;fK)mx7_<26V_VaitY|qSrSrbG0r{rgFA>`
zR?sT9>THKzVR|Yk4N7DymHsqf->}0>Dbkcjf4J1+_iaHci@NXBDsv4wxgIcI^k??f
zRNNOPyr!UmuS7R07l_Nvp1A|9di}kNEODp0i@2!0d55i_t5SwhyCQ)w%Ai89|CK^B
zH!)Gpb0<OPxVV%y!<{zL@-z;P3-B(D^H6JE(l3NJiO6rV3E^w#awp&iOiFyG`oUxM
zD0Sl}7nMa2ES~?>+Rxc9LoRrmjUJtNo2Dj{S}sC<cUOr~CC6=FV7bP-1?O}OSmR1-
zybOF2ecxE4JeX!*DX{ji4)+4XV&^x8-VJ}ll(*;#d@V+Fm4@+2TV{)BuBLAcrXTOs
z3S*JC1fcqIR+#g$82WzUXlG?X5s*z|D`T)+Nz+0P7i%nZ`e6ujHcDwK97px=z+Li}
z7aYDbNcPm#n<bhuat)3&^uE~jzufmX^+A5^eg~~45ozJLgdGMs+Wju}=h@+}{0lUH
zKguC6-d~U6u-|=WU`O4dP7=<r7#?A+n75SpG*B2&f`NDNgSx38sGmXwc|hg?{U!MT
z;)eWDgc0(y(H-sGqx&y8&-@zT;-3MaN3wX{{|4X#(lUW)2GCj&2+Giz2vER&zVtrM
zUk4Qe?KDBb6CwaO6HucBX$ue*bPyPjcJT`Sso4_4P9Kz42vP3^nlvED2ReCRMGp4v
z^8u0@!X*SeQFuWoFkr{~Cq5?Y5&;S9M1LGass+~;sPbbJ1@JL`|N26Mh2_K(!LPrc
z$jAbq11KMV480<;$<cK^{;&digPp(&z$O48g*)@G0-k(M;)UaZ5Po1t01DKg5X=Rd
zlBVYo$D50x;2k~Q9e*F<Sqo8-28y<`2RPO20-WpLnL$7|GJfy}C=k%`f;)aX8UjW<
zJ3ZB7KnMyRD+R$5>gh<>KO_GHB2G*|5Zr8V*Z4r=(E<qu%M%j=X9VE^BZE77c4Wk7
z`TumSA)tXOp8)tA0DDQ$p!^@vNA1Vq$E)D~cfjX_T<|0bcDz`AocB7xj-4UFP+?I1
z816+<WJF&kR`}Xq^i=KtL<Y-sb6tr$*#Q!Biz;<_ep;?Po6`R}laPFq_s?lb25H?m
z{lf7bhNxGwFGAbw$n#%itIocW8~WLl5`L$_j5{MNJXx@TK<!+gF1vZ#l2VeX_+85m
zVut+EC8L9xowZ7*?Fd36E40fxq36<#gN7*JgKeIsLv9DE<`1-rJIiz9Xg=qe<JK;J
zyAw6FLL_`8WAN*puKTnq<-?;!$%o3WcN&VewoNaHD~-H<=H+%Uc#pZLEOdp}w2kD6
z8I>q!QOL6Ap^Nox*T(v*Q}Y#zW+__d2lIC`SW|^=kr?BTvNY)#HkP`?8Sm!2HXmB)
zcn3c;XHJ5@w6_e&x*(3stQnu-@%6_Wxun=DMzY&mjOJ4xzp<;}@z7K#rOPX3N*LoR
z*;wUO2K(||T{q#o39)$^9UZ5~n2C||@FFTdirAj4!P2BF{jev?ie4F2s#b|@N>6?7
z<(QjwnUA7PD90rsV`Ja07sY>DZmWIa`r<<pJTrpZO%A^xjIVn-X7A-W!?3aa?}|GE
zRAptp7jLK=v(`BkeW1{+eRj+Et$WK=lP284ZpkX2h9xexE!Wyq42&f~5wEbDnmd8P
z(MqBcP^VBcGZpB^wT!V4p<uI-+qzo8Kh<#9W=wX3S2eF1S|+V4E#HzLX2ipkdwIU3
zwi3SQG7-bv!CLat$BS7SH5}hpwn|+*j|#Wz5pM5Rvq=d_|LuaBrSmA`uim~e6CS>l
zo5{V~e<^*mJFUV#Ap4<EPO6MK?c;>>%|g{1nLn#;?8H3q%bCBVxM>Rv$u`y<l?Iai
zTXi<FZgmsU(HT}ze|(N7I!>K-nO81&`t1!d_!o-s7^=c|i@b&{>G@GV*P&i4Cif)7
z5-lHnd=ix(x@~#Kxb~y$rH5$R##XyavkL`6Ey;5H^yqk;3>e194&+4>0(zu-kF?sF
z=nY5*l`rP>`0$wO8Y=9ykmTGplEijikt%F6qeA8;*H=%iPq8HL*okrodv}M9%B;#I
zdK1o^r+mlG&1gfzLqMgunyg`e<1p3Xyh+l-t$u7pdn?>Sx^{X=Ji%|8I+ngGyx|e%
z)E1rT7u!km#9tc*x5s_R`>Nf3@ftM=mdGp8V23t>d80_5{jhERx#8`$w>lwotX`E_
zx|3Fyfe0yp_6O_QLLrI9bXVm&t0td9K}LMIA@j_TB2$z~(EH)9doNe&(Tvt`@*{#7
zM~57F3w6(@SDD$w5bSYbcOVa&yply8Cakusd*Gd*HPV4v0KePpYJ=S3{58bp$$1Kf
z*^SMqW*NQONSkwydOCb%Fh`!rM~7CG@G^WJq=~;mHExZD$58~AE$e4!3Q0bQ_}V|>
z4!1tUJnt<uUc2N#X<z|q=C$qF7SZH<!eoEglTT(n_E^Er^RYszf<kuS)ocmnymw<+
zK}$8=c{|xRJLQV;(z@8}&^4kN8fb|I-cu=3zD9fG*q8ly#xpzYxq%NsO3_&IL+R&s
z^W!ZtHJO**cVleile_D}<nP^n^I)2;(197wRJb=VLuFypLY&(wrpN1xkI8VAo#2}=
z!Kkl~h1gJs4mG~?@KyOIjc!E-egxmELa2~k(~@3d+y%~+_aAhgH~X$BkM30FIzl?$
zxpO7s%|(be!Q<F9DX8}?zRbFKC`<dab8Z|-bxxk1kP7<3%dhB%2`payT=&~<qZ{A<
z3@2(oXwqmEOfva7M~d&H=PyZbwtJbnHFvVwTyJ)I4zfXu@8$9cHIQ5gSuD(JwF^Q%
zL$f*}=I0fV#Xor=@ZN!FBMR+AO@XO%jsNXe7rZV|X+2l9YOQ2MQ$Iw{L3!Hu4@`B;
z>_28~jhqau$cW^40$hO#JJ8n4!T63!LdWE12(*I8@i34-j(#4sN&&w^e`Q$M@2&vH
z<!Jyu{RTW2kIL`>p8>}ppqd9L3zz|ckpuwv0-l?{W%tBFr|}Nt7vACHg97XUFxioJ
zkq{jpB9nra+z1svKhJ-7iG-Ku^Z?Lbo}WNV4*(Vj1V9T=ymWjB4^Uu~fDju1TejaC
zIbvSOnfRkU00=0@3s5Bl;0}I3dLY7hfDQlx6mfjO0`zx02`}_aJmko9iBAXu>R+%U
zz=jYD@PqjvS|B0-8-L78x+9Rt%*%Hs{4^o~wKoKIYnS_l-N3Ja!7+gyxl|uV2}k$(
zHxUB?QV2mXTVT5fuGU!^2XtdUg)xpt18{<90uK}vHpCpT|M9I5J|NiuV1XY3ii9u(
zf@1*ZcoM#x8XAx(QJ!RQ*l7=L*zxxvE;B+B!iPYJU{mWEkaXns`hPrqaN01?1q})u
zt{}kI?{qYnb&RqSjury*9zQBLaVWSwLg03t4uSEVu2LKign&;6FJgZz_>=<B11>|1
zr!JoLKgNfEj{#6r{$u?A>9QdlyZC_C5`p@_2l;F?_!6JiKK|dKzW+1OJKmfAKkXw0
z?1W9?f7(YrL<{;M?M}yW8G?rG%QCPMiEwlM=q~0w?VDG#*m+f=ysjb18HI%6O1_va
zR_T+lN5W@Qi#y+lb<1w>$9ETXv`L1CTnKhdN9jYoDYjZj;bUA*+el_PXn1h6g<58Q
zive%4dY6fVPSN`X=iUkqTN;6zRTH)?>NR<-%HsuHMS1XCTC&g01u|r}(1%~Li#y%r
zfmOmn@}QUH9n>|ir$<=2q2ma=pyQpBWK45cW*Tj#6)xHM$VnQU({>@{6K=1ZvT6g1
zMubMswN`fg&kY44OrP4eV(PF3t-U@dC9>6ith7vKF5xa=_E<D`Ab;ongqLSPU{X>f
z+h9C5WZ<0;ycIWk%5#s%Eb^R{Yby7{T}N^~ck8E){*oF2#@AVydbI>u8=6vk>A&RY
zO3+C0i>lyQ+GNzw8Z!?HQ#`_(tic@Bxrih9{A&_m$DD)XN3<)rMMM36de)2<>1%ov
zFNccVg0F1#4fA%`5SK=491gyJ{6WmsO*wK)RyQtx1Fm5s8BBNMCg;;>UW<3@*&}=|
z@0?N(aZ;Z|oX_5y@BJ7erRo{l@+LK&*m;5f8FkW?#vk>o>kx~1dlu8LSmC~CR0aMY
z&gl`eK+RZRMt_l52_r>%=0}cc)-w_^)=7}$z-NvGlfj)}<v_mgSx-G?ENsIcn5&0T
z((kSJG!+S6uRu;|{LYA7-T0cl($m>bdcu6KzbGGAJ*Ja0%&&1EdTW}*XdvGelawxm
z%qIzL9xWH{B8XIEz%|l-_AD9ap}KVtTI!Q=^XNydZ|p)lJFvL0HzE^In&jRm8#L&u
z6kR3IXzg$dGQjUjZCJc;&X?2en@;*(j9AMer8wsp1Dwus2Z{Y7#Rsl%4P`^-5zBWs
zy7z_{gcwm7+}Vk=HbV`~)sPZ0ucEh+ct)z-Yu2&o<;+r)Yvz0qUGm=S?i6yFu%(}Q
zDSw2u_e$<h9qWr~3;dHcw0-G!y|3OB3uoEAPZ3aOLv>YSeD}xmd!ngzPvN;YNEfiR
zD}zz+g=FdAa(T@GYrfq(aivCb6ut8grlln|4r<VfWzh8fOt0B<6l`FP7oz00Txz81
z!xmepldR38R+RQV&{qq&l=O*|uKtQmKV3F)dQJ1g8V_-I;S>g{#^&f6``~cZWe6V*
zA+og46H;F%{8<#mchon4w@6Fau5Ykei_f!)&<3}6aFdH{7Eh#DXP6y(ZpA0-3_NOn
zbz?Glks;w$LV`2?jo5Tn@w6&K^lc=D7h3nHTpfIu*1PmLQ0y~Cw)aLK(8Gm%t|zQ(
zq?9gyZIJzR-XP+|!&=F<Htjk}wmVL|0m`0J>nS^CF4Y<{TWz-;=dFA=X1+Y|Yy&RR
z@tj@Px2@sJ{8N~_?L(u5?}oM-U8u^qo=>a2y2oGs*e5DYJAvj>RT|PAiAvczhE*Tb
zT2DtU(Wek~37-j`mX~R!Y~<mU+<`&_{^I8euD<Y8vo8qD*IKqV$6Ri<cIC-hHReH%
zyFhb;Hdj&JDe_Y@vrO%*2=?_uPCCYq-9s1(Uo-p};m_{Vmc0Med=-|3o|IOMQEkf9
z5wI~Xm4NHshE@OLb37b!@j=DF5`|Yo8$E59J3|6$Br-Nd8gb>PYb(nYRf`V_fZ^!P
zYA+$F<*(+K11$_IU`TdU=6F<GmT%wxME$7wxauDm>putEn2|L~vR~`tNrVNm4M12t
z|3Fy349@9bN5<o)=qkP#WHON>stJZjum~;&q*g>ncmV+cpuPvr3^B+IN1GQ(c+YTE
zfVVlKjR1_{2b&%dnUDtz0|kkSAEY+`rGN{rz#kaH%qwsjhaCCs9#60!Zvz}cf>2tX
z%<td@z$V3z8W7OKjxNUEY7pS(09$n|o5nbpk!mB-;;A<xL`I0F(Pz@`2@Cbpfe;Aj
zqagr@Jj72>AF8*Z{ny}p0C^(v_u0Wu=k(*V0w)SGHIS1c41<Ao%GZX$==8J^mlLG@
z(*r}!NC%D&jNpDC05*Y}e>xDxhiEGJ|33xOiER(ZnVd7^4J8bqufO;CzeF$it1s7D
z0#FPH0L8#}()!pZyo4N$qu05UEfHi+^78yO_41x@DQ1RP;h&8-D3EjKh6Alcgm$E&
z^f<^uCqMbi#YjuUxDhWGH@#u8`v6IvXVOw)E*odc4K_<s1y-V>HP`V7rIeva@`FY-
zteR^(gR4J$eJ4p9<{7!8c~VRa;8?JlZFREl1-=+14{qALtUawCpYvV&r_ocdP4B<C
zMKJd|sC_>Sx$~u9E-l+)13e2x)aCF#&+&cBb|ICudY8dI|2>AnTYL5P@ya(jBG99R
zQYoinJG(O%$wj3~Ke$eDlEm+J8@=4YiB`X8+qzl=i|4SZf>G_L!(tmgS;BW+*h#rO
zZaLpvp>c7GExTPr-j=hzuDR~&UANa*ZTY_2=F^om>YM5OMFuzB_stqVr5BPv@|^EU
zgkExGPEevS4KSi{kiM~AY59cr370)dudu)KLVH+DC)-SdTk0Eq#_K*r=kA)%=m`Xd
zJEAa5>5L|C6tzEn6WniPzP*<YKQB{0;Co&{_Wl>JxlU4rS}<B_!H5J`lqgJ8j6zGj
zek!dsD1pJT#P)U<Rq8kGF@Cko0&}IOBu1BGrRLAyhhHURb^$e|s0GM`%mt>sw}~ts
zBdywkBLWy)VL7bbyJmOxI-65ghu2@^+a1iTQ0edPPVQ~ai9{q{F0V0Jfd^aN!>6Fe
z_$(|{vqyW?cv)FDmLDSf*!FvE;%r&b*aVsB)Mtt(`c`!3Wn$<lub(gacz(7tSB_FO
zNndwI(P%4*%d%Keu%uBbww`s=N8onb(2td8Dr+&bFP0svZC8p8??Sa2qOqiXE$ftT
zyLQ{jN)UfKhm7AeDPXEq?0pZu-rcPF>KUJM%^mMMn#uYH;fr6F$zD=@P1LF!d2)AM
z$<Er~>K$slC32Cp#Wfpt>)?KqGP#Keu_@)~l@EP)p7U%aupnWs-VIRHVCwUp{M@V|
ztD8W`W{NhyLGe0NpXYA2@tdHpv+aHa70*JK!&vBKE9s2i6e8bYt89JyfDu0ba`fjy
zp~XYXp$XiDL|%ps$j2C<|H0xhdyCDl)P0eSaS7?2;5fI2mHCi#&Z{6tUu_I)&MDH~
zpolOu1ySl~ICU&T*wWlQIeXPhu^tU+^BZ#6QT;r(2wZt?lTS)r)|^}VI7!HZq*>_0
z`-PARlShj1^=36=mK6qD$}KcFM{x1S(7;CF9HhIdNYEP(wmOMauZpAYL}Vc^*YHh$
z+gzV+e6FWP^3<-5fl^%`_uYB#ZGvwMQit(_1)taw%C!47w1dre1y{PUR!Mmkl94sO
zr9KED_g>WqG%Q2@!QE?p|M4in%uU>}y%%@{QeToih{nECTa*pH)x4Bem<o>_T_!1e
zgWe-^KhFTlmhicCbwIqXK4|P)(AZ>5-sBIJwYhi0D!E^*?`{<6GiI)&jtzd=;Y_LP
z6VAmsZ&NOIPo}R=By(<4TBp$>>t<ue8dsN1<N>B|7N(R#?oK4@f&Cp5)1XlD!PM8n
zB{<oSbV4IP&IqsOqJ>AZ_ldoMld0iTHMcrVFTH4jtuD9@Y0iEw>m=7NiZsw+)Gd_z
zG8gU0UvnrGBh=`XO6Rg!+$Pqr#7;=$)?Isxg_Z?gt+M_SlQUiQJJM~ncf{T^m+Bef
zaLAIBzL+5MIQ!slAhpUapng+Bf9Zr_%AHP^tR9)^AuH66of%0|HToVIhbBF^Zks#&
zL7&z?00D4aM(mXMwSb;P0>BL)AOWF&Ab}&>dcds!%HxP@`DMg^V(TA_|A<+j=7RuR
z0>JMBBmfdQ!l(&B-6PZ!!0!J)UgAt430V9i5CI=h&mzbJD0pHA2K9iK05vPHWe*Ap
zOG5m-e+D4t6+DdyfHfqU2rZug0zm*C0~DY@0~Ju1K@^Dq&jFIG5ODwhJppFkGtADB
zL-lb)0WK7R*%0s~M1_I>0}uf}BZ~WNZ~aH*$B!u0fhYSjiBsUTpyhZV1gKeH06g&l
zV<{nUuBW3Re{?c%(D4BKNSty!93*T|q65eM2R=D+ygqqSM>p_j!U$Rb(U%y?%L|Ts
z_OTrTM*f>)0lKjO*WqtC0w@6fL+Chw`csQMqmDctctrnz4WYbz;NE}_$LaHhf!eqY
z`Q870jp%>D7W_I5nO{0-gq(&Ffz<w<?H@$J51`dic?e<c4J@@*v^F&F8qsUl&l~}Y
zwLBZIGN&|F-Ptgja3)wd+?yPYiIAi-C_Ltl#|&{D&g$Iw`Ls^a^v-=kyghw88M`Uo
zWNjl-_0BimMwS_rmoz%(&Eh6<0<ch=MUf-<yhmc^B4BXpw)1Z946THj3`G+k&`)R=
z!_m<{Kg&{a_mOKIccWV#4sPE&m-*^Je0^pb6%h+jNyyyZ-PJ+&79o}H<hoG4?c#BU
zTi<iv4F7x$%MUc&oPU?WDb6tz_2#L+mf^sDhf5<j%<89R8r1;2{YLia7VkK@;oJLa
z)tI+xa-~<dGkQ9DvT($nhqWoyPV|)7)ab(t4ps_A;w+?cMrl45Kvo*<)*BAgY*Pv~
zbz0MI5lK&>zJN&ajDH*I!`{i(CWn6Zb6gW6Pqk+gcSd7XidhrgJP&W8Wv&`xmC2+_
z)1AF)@HLGLk06c$^dDmwC^cUF@z!JF0dce3pkySojatWL(~jvBwkWC5T6_wX1c4<u
zw+(a<E$iwd(jC2I2AM@#7&C@nx-#d%w9dlxl&wsv1PR>?T@Vk0n%<>vcb)g6SfB?!
zge((J=AHPhW0A~?D!*1MT@5?j;=ic!JuT2O!&xpgu@7$GH+xA><UH|9BSXI1sl{)I
z2y)g_MHDOpQ+XOS^XbEdeKC4Or<L-$;3S!!eqK_NZ>cE0{hSWPXDDH5$DwM^ZbjKW
zVRlwRdUK~{#MX<~-DDc`wKlnvzSnmil6>@qFKzWBM4w@Pc=Qt4Y<AyUecz|V7Y%G_
zJ9?%rNMFmb`W%79_sI3DWCXtxzf=6g?UV>+67gL$Rz_Xn`o~g(!UnC#CH*vtupu}<
z?VRbR#KDJo9P)tG<tE<^ny19Y#wcXlNqALHc6Ha*2t`pmqsZPI5=1LxZ5!RTE;Id>
zbWvve!IJ2Y!G+g3T`3c$lSa5pC^M7%Nk;qXs^$Boj&ol4c5$4+6pnP7fyo_9!i$8;
zR}3iwFKEkx2Ez@bvAbp@Ly{Jk48ynKJRBB@wej4(!pfOl$iD0@&`jZ%I!Q)j4~4KU
z5ej-<B$?^EYkM6@44J{&-VBH60*XK$p5>b0V>wk+v+W^QVrQwuV)={FY&McMUc$IO
z56TN89~rbXO%AJ}=ij4X_(XY6Z*O<k<*BETDY?50ZmLZd;}cuigb0BT2J}2}pghO+
zR_XgybQ^C4><k^$s}l6dnGYAQ`FD4Hja^pF3gah)t$z;F#wo%~6_&zzBYD;0Tbk-&
zSVFEdl_}Edm-h0g{N>^Fi<V>yt3zt(ruUy%wDuVwBjbt~we3`2$u`y^yfI-T-e<jH
z`6Guhca-j-$8{0P-kVRP3>qOCA0)59g$C{#@a`7enwuD%3$~{oTC~%@Z&h;ljRaOp
zWcRy8>zlC!+3YoK6<A9*5>zkWNp3L|rwbH`lcsf1=U;9Y&ZDYNs(bl!zR<ru@9tcf
z#$`9r%hTLOeKY3X9bu^v6d_Gq&8m+L4!qurMzv%$eKuB%sGB`>sM(>tLfl$>?*)9)
zd_g!&9GlEqqSlGHvE{RFc3ba4!Ixa(dx@O!`t>P&q1Zpvc9tv(7rYFrB%+2V>suPq
zLvd}XkUx{pd6BmU3I7az(Ac8hW7BCY`h(C}RVra@`a%zCQ*}~sh20)=QCN*S3DY(2
z>dWU6K5&Yay|T=ZvQU5OE-Q|_o>eFW?@;~_`qcLQn?_9AhnUwXDwh_Jg>p&F$o5xF
z-G!v(&&Lmb#)-F}vnHtWck5kxR%$%Xzk^l=cN-gqN98@dLW&+#DN2@WKeP+$rI@tD
znH?yZOs$?ziZaHy;LVUaNU$n%gOPsF>@EIfgMsqh<^gt*>5~2(5jFa(7R4Zk4*0|l
zLA96kq01(vL3e#rezMn8oAitJ1SujLEa|-aT<p(j-gQc|sVPlgz(c{T>mgsQc;?=*
zwO`F)`ywpTJb|OJ%XGoYxHP{wU&rN5{>pawx#CA*SxFWPAB|P&QxoM-<_@@Vf;gZ2
z12BP1#S=5QMnm>1L!5+60st78amfD*GW~LmgdKIH0MO~k1sn16&)<J(gHDvEKwBd5
z3nDZ})dhY!0U-F{1@7OxK%0XQd4MJwfF=3EieM9;sV#vvpa4T%M6fA{QW~Ei1QewZ
zVjdxYp#T^I*a{LeO@pZIU=#A522jytqBIEK0|XJn2N-=ALY|5!v;aPb50osx=)cNh
z*u-b5QoxuS9GM1!cpGpBhky>;d;kPOKygg~>;-@TB@(C%{SGHOQ<MVdBz&Ypx(Ee6
zQ#|0=o)_3CfGQ6tcz}HqAWI)%g+Bu@o+(S6*+n4`qY5^bjg<iG25hrHNs0q@<ad4?
z3n6aof07tLU?Jo#z{3j&SP-Hj_;E?_5$HPpegJ+z*AJlHIjh=%{jo>?53L;!gaBa6
z52z%BVhCX5v*72*_7qI>FW5T~4n$!>h<ghG_w*l?Cn&gPe^CsAkvbj?W(@_3E<~4<
zGob4<DFi<e2|?ItfG`O73_`$X@^m=RK>yFj1!Xuc1du%)2m=@WpA%;Ng;4?SM;LPO
z0uBw)x&2Hy_yU5`lJx(tVDXr&8aU|R1WjE8cz&Cy{%z`_c~@p^b-y1VKbFLu;r3iX
zAyp<*Cz<n4GmNvF8b>ghi{u8QjdP(jK_tO#D6|jGYtPOLzwF${p)P{!-KoDPd($W~
zN`oan^wqSKT0jX&r)iX4_5}y2uO>1<&6br(DrR9hrZLKmdWRKSgLlN^mllbF;H4%q
zd`4sLHfc!1_uEm-2Zi+HvOc~MX{pPhL;q<mMW0!%|C5r~rCdt(a+t}+#Ap7Bc1WC=
zi=~~rZv5zgSZ#98v+J<&=Xs6Sr;BzXU=`#&u>5h;nlce)Xjjxr_7OtWn)<xT`<=7*
zlVL+<YvghImn0s>@9C&x_<UqpZG`te*{|g{sHy2)eqN*F|A_oh*v(bPeKNZ3hhNt1
zA5FS3NGt;mPws|b`CYEYqf$*OYB0dXpQ(*4rKfn?7O6Q)hwAe=FRFx6NE~mfV+Qt`
zCa<|Fg{uW=Ae?I;M+#z`z}SV?d_9s7`AfuAThlu_<BkzJ6_te6T^>;jG&@(|*VP2>
z`tN+OPYoJu(RT!0dT+N3*sAql<;b0rlff2J*2v|PVtwRosL_{?TjyjtGofskzq?bU
zo2pJTd$2WvzJp?v_|ua$ial$BG$oqb*tMr#_Y)q|$Y{XC_vEze@BN!<toHC@y9aF4
zweFQ22;68$uit0x-e;z|NlKNc3&%v2ryrDC7EE`Du+)3TXM~Kz>${%^ADl2zCb!JL
zz=yF`wQH90Cf{^OTdc7H<^H)zO!Uanf+Q<JE-X9u+os#uLqRudpTXkPOPoVz1}aDn
z$zt0a@6#6eUxFo0?pswfez{;<CVa~$b9cCDZ}SEAZLjH%Mc!MgobmUgCZ*xoF9S?#
z@T^|O(k(wD{SfQ6$JM&p{itdEtx0>LoEV=ZS7ixlcHuV{ov#LcA`f(udug9KRK9Y!
zp?~S{W9lAxXKYLcLzkTDBaCN?Mz63;pf|B_#`4}=^;ARAvnL~6M<GSYTE|aAJD;Uo
zn&R3^z+0{uP6i}qS4+;#3lVxUz<&@h@z__WDT&xL^F6pc8&I_{HLgadWHJyX)RsL=
z%0G+kdrtzm!nWWVA(cznq<ai_dfsy&H<Bj`;GGpEM0;rL99_&+)Ht2>z%7z%z27%R
zk9nfjdfGM7tN!bFAMC}ZI4O$(v1h-`o+xYmfQ5cZsBV=6y4Qsu^J%@1YPgBowVSdQ
z?S#1muBtL)WW4j}kEve94ZOfEETkNXrboUe+0A%xZQ@Rt%d2aN>tO^Gdu!1_16Qz2
z=yqRTHZGj9Go7(ZpM9}#TW~YdZM`Vg5<_D4U^$TK%Vc|vu`2b9F%na}3L{+vK~NY5
zmWJQ8{;(Z&@w9qrm{#86qw_p)b;{T5TzV1~;&(i99QlMeg{{v?q;xIylVlUL<s@fJ
zU`b1VuPnM9ubMHgGLvd2YOfxzXwl!+3@kJ(u^%%Ku|Vx->!UapAGp}kcrF-sy{7(>
z(GdYj^DJL{_F{|?i*IZDLcVDB3nIe@kD6&+EecH69PN1RAp}94PWYF7;Xjlv9BPlh
zFyndeI_5rje<~e=h-}bLJ{XN}B&uC9t+jNneNZ{Zmn-ryM0HWM81*`;K&2x}xC^7F
zg1vb7m)bOiW-kL>>XB=G{c^1Z$mPw6-#3*nQD5jnhAhaTJdeZFiJ0Fs=46hn_j8dM
z_ZQIOAqf9*GudKKF5dDP9}+w?<yvhsCl7mnkjnz=3Pei(iIcd8E?NMUSa}yJbO06l
zu`j#*z<gF_uOU}A_9}|b<bb|nA~kDBR#fd(E1Gb|FXis$=Mz<;FRA1SKN3YRz3rTE
zg?@nj4W`^Xy1Ydl%*XEy)dah)A*+T1@2VInUv`Xp96hYTjtOZ6Nkre_p7QVVOC`xX
zL!?LPLQ5IRvI#@+m6O6{ZYpKgrT0AG65l<arRIno+BK*{a@{(5D@c0iXLCkPX8!>P
zjj4}psCA3Q_Y!Zic(T#fFPEkV#GoRutJbg;{mNpf>GELE4e{NJgv{4gud3K!HqNNB
z(tZgc5!%T%gO7O?XzbQxo7S$xvu~jEOIBR)zS}&}Ynv2t-g_r2z1Z~f{oeQh#|`5l
z!dpMme8MHw<`P17h&B8=Lt~<t{VWaP9oB8QY?d}Waw}vg#Dx#SztSFV1a|%dVS=i~
z5heG_bmN5lN$^Npe(fLl@|Tx79YVWwM9Cdlnge|K+b;YBu7v%@SLgpgOT?~H9zaz6
zftFyKJVKH4n;yd^K2xxR9r=3ELII%T1waZ>bprj`j?e@zpm3nTPJ{;_ykGPhHqn`S
z9T4CAR+<CBF&B_60VE-a@Ie7k^T<veU`2o|ATc}?h?*hxS*1C!OhG_Qgl>x;wCm(O
z+T98OB5+~h2jGJjp~(6pe8OfrLk}MLnI1=f;G!c6hR_pR;Sqodynxt*2221>0h8Y*
zu7Air&`uMGfBu1_PI$Bb8u92B9R>1&$|w{7T7F&tH~~#|8qh$0YuQ=u{s$jV9TzBV
zj>JbtkukmVlt+T}({JJjmjfK;^zg9LhOppt|4t5a#K?hbicquvV{YJ1pTufM!SKHo
zRVYvZfxbikIP7WF_{qZ}?kRX|Kva#vX2H{wh8{`#PTst~lNP$g^Xqf`kE;m-D))cP
z_>T^a4}eM_zT*X$9HHJjeOws$_8}}A{-1!$UlTrI?e@2<2`t}^*E<o6`5(hO838mp
z7-%qf#8Cp4_V4NZ;V2O;4~{rW9p#v@BZ1RL*5@tm9v)ZKV?*<ew7$e8D3-3E;^<12
z22j|S9_*J>$S>kVB5`YU#gpPd?Q|y#-xm)(^fr3f@Hu$ryX%PO_Vo)G%?-oRc&Q2G
zJqq(J76M5n`>!1aX_4eEHaybG|5_t<Ek852cze^MGNHJoDf1hXmo~h;FVjVI2~Pci
zu*5XQQ}V0d<q;%m*-uW|_~%N<`sbEaqE=tO=_*2-!6A5}$dSn;LhDDyy@RPhVE4g?
z-FkOo;AiI@8`F_}x@OJF>H&Pa$i}H6@ANv!Ftg6Jj1ZZbDN|98>jWd$*w_6z=g#LE
z3VrOwemV#LJ|>m<sd)Yw+*y29XG^+#*VYtOCN$Unw#wXtYjODtcP}>nu&UhkZoDoX
zYD$|SpM=EK%FUq1;!x^Dle<E@KOpmTL+DWABhw`oeB@f2mvO1uUpL10Y3inmq8sOV
zYUODd@KiUbBVp9&A*HN}3?b^;+B-aNKTku*?dC=ve5@WcBM-a~@)6#izq)600XNH~
zUqv}U2VYohgR7vV$KI|Vor5!mV<v>o_vS7tsaAVg%abbsjBc8#7J`{lj`*+np3)GN
z?te1;tayROU_gY6gEKnLGk4^x)91rX1LE(S;pf6Xynt6JiV=r5zY6YKmHhmE<6XS<
zoAgD!Om8z{2@m}RclS;c_`_6;y$I(hR(FW#6;%1g7IxkKIn=Ej=W<p1lG^!g$3-GI
zuq4-}(tJdo-~QN9bz`Zqdj39K=gmhv9w~C?>zGNH^rq_1-EU(%$f%RDDjN1~J4PF>
z(X*uS#ntg$FNkSuhg&~LG0Jjw$M?s{7duea`IzA@s`$(xX<)2g1wK_cw=ifyolCN3
ztS|$(n#$?Pj)dyHz|JoN*Y;2eqHopi`@ExG2;Tw!W=sYGKWD)o@61SKMP!gJq52Om
z78RU_b$+*39u|}M-s{APtNvk7-kogelj=jOp}3u)%Q20%vfty4ya!QaY0bSk`~{my
z@`8;do#ToLm1S+j;4U0I9qR`c4ur4z8!Z~HIV8`bq*q^ypM7}GVKiw%&Dyp&^FePL
zGdI<}!OGm0XVz>o`R?_vyA(7HH0}hEb<68nU((RjdA4rd-CNXL&4n%_t-b9ePZb5p
ze#QDeR=IUBU$9zp((jPWWnnL;)(Gq=a1OPVXp({X+=rX?N5gHgD0HXef<7g6MT=8D
zM_;rpFZFX}s3@voVC}kcuQhhzn%IohV|{v_Na|3F40@4HmG(rV+1DPkX~QH^F2S!l
z(|hHqMH2)+nLJ|1UJTVChEeBL)0-1gArE(X^5)8OE8gmPYB>oheJwZ{DJV^smAQqc
z_g*{_XC@*94HW`+kh0x1@lJb8snX}B!`!SEJKf}?Fycq%JeY@mQzX{j5vSJYGy6=5
z!ULRqw9y>An<SSr8pH3-RMe`D%X9L%rB`NatLBauet8bMyU%p8-^;Rzjl-Es(2zHn
z=5UA-PtV95yCbjnjO#NyHxt(v63388hua>VKMUnXQ{m4z;Ct9yQE;JmLf_m{WJbl3
z=-@(gp*8PWUd#sMX0R9!<IT_yM5{*QVQ!tz??^6uGVFp$_g-F{19{DxGlSbS$})3K
z3Fl&9pbK?*q{G`g?dj>bTxtYeE3d0JO3j@POwW^i>=1tMP!?|I=|~A%IV{DrwT-q9
z3A?3Y-rad<C;|U=Tg5aaO}HBtMlk*;JWBBs`*)k+*G?A2Fp<OTL+2a3C5NtN9UU?q
zQiKX>OYijZx97Dnn1irhPCTQ|zfPF*=)3HSt+C%n2Pw$S{$df)FKdAv8l~wP!34z;
z-^$+BXeHDMKe}dHB`K}KmMl{YiO8xyJYV4LX!Hxx;W?Tb{@pK#@Q)*pi8R9@LwK_T
zgmwbf2?3e(ziGqY%RcO=_6FeGkwGfr=h41H@bgy%_5{2GKJf@>#0Q$z2ta|P{Ydo;
zG6>jR2Eqiuo-9DA{lR8uHSI#bCF#Gz0XxOT15D`t#3Q!9f%*OdX6J~ZXJ|(uge08?
z@O_~94nT%NTtXo0B6ivXwK8B3fx!syYyVUEg`VLZg^udRf8rqm0Nnsg`zIcPP)9+I
z#h>9GLH0X3dm)}*Y$=fB!w?cQKwSdQJpc?5+O0o|erD(y^6|)0?>M*+I%*OW<GD|W
z0zhYp28$^$bv>4M5s>b;b>JT?ct%O~rx1FEL_8jd@R0(zQ~+>#e0+lO)ELOLM_BIo
zdwvs*2!8DhJUQ(Ycw$xv=K%;Hn~yFenE&Z$=uxxgljlvx1OG#ag5&Z5gwFeqy0GAp
zU*hS=KY_g9W5ff{9aIqDe8BylIqn(F-0{<eBPdGH)`{mIyEO$*n;M=tUtS<J0QePv
zNbrdA4-q=>Vf>%(A%q8%!8HI4dV0o!XE@d4GX}=GfY=0#HGsZ6z~St4Gz@%q5Fqk6
zr2F64;~>@!VB&S6wtWIP9^d|WTor!|QU3A$5(FUkEPe#s>hBu2as;SxH-Prltf-`|
zGccTaBD!-=QpUbMR>r@h_|#>!f@)m8>Sv>5RJ64Gm$6%RH_&Rd$%MS9@oA@GUcHuW
zdA&jy`kp+dzf5a_KsNc~6D8Xq<5%|LiJB%iBJ+E0DDMhls&dqQ=ruer+{&T6qfgjc
z!9%j}aNZ!VgewjHHR^Ms(cae>2~kh<(koZ^-BX>?@U1EKQ+$?iUvy&SqE~9Y*qhVC
zih5IZ$X;eyJ^6SrTlSis{6#3+;k<xf=<3JryOmFiwG8dQxfD1H+`gZ<-bGPT$0<1#
z>R87a|3i)8)|6im#d1dvO!{kGLU9P+-3GQUWs8UQYzlhCdhl3jtZEvkr$2~myZRDB
zQeTs!+INOoUya`Q)c2mz@uu{-L=qfwId9ZqO5K~N1!$NP%td)lwWHYtcVpz(!wPZq
z)@G4XvNe}}aP6p)3|$}oL3+;7*7}PVE5D?8qVSh00z<5imVUd)MECr6GKdHzZ~XYi
z6gw8B+2d1>ULkW84zYWPTSdkL9lUO`;|Tdqy@!eAhJ8MUQP+aqkD;ute+W|sd(}&l
zg0wffDgUj=E5nxe_VORX53yvSofST_0gz|vL=L;jllDpW=Ruc)I*M1iF1VL2ebQ#{
zm$rH@(qZISAUNw2>@Hb>rf=(y*ONeS6TgQ&j|?A<Y}CJQ4qvf>-%x!=VR17B&)}RC
z;XXxg;OiE;(I$F)i~7D>Z2XkWn8-CKl9U(c2d`#6esaANQ~mBs68>IfbhK;1aq?yo
zU;N_cTj=Stu+8tZWjFr7p|mM;6xgeUhJLTvDlNMVgAM9XR_wfwG-KEqHjrPwSFA|#
zO+RFr$auUx8g&l-j+J{Idns@4i_ry7os#X<Y=?Msk@4F-*%PL9<2~kerX)+My}PcB
zPvN`LVF3;y=<-7X#CaZM^Qi3lo8E3KcXKkvs(8N!(_NNOwNdewvJ>T`=xIzU)RJDr
zJ)FO_QnILW$c@9x3EwL0Pd(_OSU*=JFYPbbU#Q{MRLivh=SxxEL7R6j8%GT!=2sBF
zcokm#xHe6Zzw)c6zB@-3JCi^ghE12~3&reSf<YNh^$Rzw2rgPp2lG>Jp*ua~mU~`p
zv)|&svwL4efAWiusy@jg@q-KOtKaFg>CDHNucW=hcr(SX(BOG3Cy^jnDL)hP#-YFy
zCGk#)LJs*VM<Tq^Gcll}i|^p^(xo^{_X~-`vZhajx)wSig^j!2ukJzc#4?n|iA~2U
zOfM|B*yAKFe0sJ5kG1^vKxy2`)I*Tg{+;9fB`+GUYO%YNxP?eJy5CN9Kw4sc%+_D>
ztomvHs!P@bBmCfgjzciFEb664@=BHI#zOX`t+z_y(3`uuaEg7t4Q%Tu`}$0wi%jTv
zjAD2ut$9P*)x&zSO*PMq&zEgJ4HcH84lupp+(&S|x1T&gVQr<fxVS(n?!DfX#D!+v
zDOp-&r?2wcKk47h$Yu$lJ#niZtDq5o)Xv9ub#U{wYt)VH1(O|aFX(fQvosj8V0^z2
z@Z3fC3;kNCPGBZMP>(^V(*(h~b_A!yZEfwGo#<}S3I4W=6g+aCy#apzRboAkk-&Qp
zDB&XCZ<K%lMWA8ue<%TTFXn>%u8jhWbGpC?hyY|VQEEid4J0NY3gSYn_<#TcRb7P5
zB%i<^?&};8^fY-U7;h*H&Z~rs{m%dh8V!-nevg1KYyg}7es4NthMs261dpuUjwM_{
zV1{`_UY$@u16+c50YP2~o@TYc3%?S{k;^@pF-ThgC;}5;03uGOEa2X7EKU3x_HQ%-
zksOtY&k{t4Dm5a%F#bngojI-$!nYq}T0jWylfVH^`<svcaUedx2nqc|!Y;`BKg|%q
zYJy&nz=Z<bApWz!3Hqm8Z1sm@J26cJ1mOj!6##}aSLSq;^mHHu1j7E9?tzxuf8061
z2k8HSrtN=`_m3>10F@ba1=KS6!N=l=A=3S&V*7+pvE8M2_gyWI@8L`4gEqXX%E7#1
z@braJHbZPRki~O+eIO+i#~>Wh$&7MMlq~f8)a<Q5miOnB58Y*2KZkak_vt&v%rm{$
zyA-b_f1S7$JzbYMzI*;NALA1qfka4-g>bQLUh;v{H**p3ZJe_C1|5<a26$p=SP)0Y
zy@R(^8vUMM1Erlr;hiQ^C`M^l7sBQ_T3_0+K}94>Eu@Oj%l8}iV)6(WINA3u4^nF8
zd#H0P55cuP#S*tTZfi;3_DZ<cX*BgHxo`qfQq3g9|AH_cCYUQ%4Eir|4Ks(A(y}Pz
zmJPXTj(6b&{wPUt2~!wR`v4y?mn45;5lt0U!xe48ij|RQEAT=rf`R0!if6+eWA4GH
zY>YRYHbkRpUR@^<+5N$suAZ{<z1oRVTP?EZb#JlfHfzTA7f+{xlIraXeQ8Kd?9+>Q
z-zT`R1(j;B0yTs`zjt-wzcpfS&@?Sfm;{l840G^R;VY1LlZA<3r9isi!D{#tAtp8J
zKt(TTmOGd5qj{6OnRlPYp@*PjRgO9ozhlUf=T47iey4`R!lw;)t}609a#OWCJ$4-d
zm2U6Jygv<dDKus5-9qg}a*r_mIb*Cg<=6Viy7QcRZQ}RI=1pJnilyNX_)0Cfgzchy
z!3+w|a$1Y`DU2So4nKMM8g9a#t)xFBhA#LHCZJdQrbl0RB2Mo8)9gvn`Bk=<5Ufvj
z7?1Rlm6#(o%3-&VrO}M36tG@7R(vqn?|5o7)4O42?iBmO&8l1aSz+<UHqNb^uB1-a
zNe6E=w120zBiE#6%xjiY+)9hEZ(5}Ht`9`|B6)SW-;Q!>$ExmLz4#?K_2@xmnR!E@
zXP|(gB{fkk)k9tbHCV3SA^B2Q+<O<n=c5x-Ux;A$d@hn%O$--2_+n*^W6myutFf8q
z8iX&aaFx<2>w5m07b+FILg=pG^0k=Fea9;z9O7?^v76kiA|kVM^*7MH%$A6nDg=EU
zxhr>NGT+>H9C4y>y~UTE1Hbh-yq2?H5bY~f=u^`YEw;J7;t8fObS2(!iiZIW7Hjo=
z217(m+{134wT7v#5O^~)*Ut$xchI0CU#6PGF@8*MUEMh_72vKW$z)5o=RucJ$J&#@
zdJyLbB?)qheMA_<jlt3{rFj1_?bn3+JpKE!&%gNWK&irs5^37h{UYJ?cH$<`u!{>t
zs2`tQ)mi_HYoyVeDf>=5&{r9E!_hVHywd!u{0~s->vbzFg8jlP9J$W$i^_s_shFwX
zh;DXJ=i|I?5xl-R!Om7aDi-GHH;7Tpq8<CiWB3z=?3iimj$1g-6sl8^sLL={8ZI=P
zfT^!6*F0%sT`SdyI!0;|-l)|+x-IGVVG+ZN%YEqHOV9h)qXWagysZ-(Z`$9YvuYTJ
zF%96GoAC3a<R{*~vG2@!!&onU1D{0Zq1Q$AD_V3ZHj&K{<b9>YeZ()-J+mIt5WRI(
z5g#{ZD*r~Go~j|SGRRb(^&&St{CPlzNqV8*@FTx~N}1LGb_EO89pIC#;R`X0T1^*^
zdi(AJ=B}!4J!f0bCFB`(bk%Z24ma!|83iiki*F&H-c2s&Ial?m9aJ<pDZkvf*k+~m
zrB}?(UVG>|k>Ys!dt=3KT>POPG%0$!j72LYDe+gXaMR>}@~pZvyj{9Gy6KT}nQZAE
ze!*DBb${iuw`J&+`87Aa;XjcLL`?Pxkw=Rr7Vq09M_g3)^mW%-=WBXOsbx^j&DU&o
z=yQtzf^>yk|D`Zt_iNu$eYet7r|?Ku^w0F+@*aa-_vcdQse^1Te!s%8@6QnSe3ND-
zaNz5=PRoNBD3%#6vdiL?zTU%>czqwm2o;%UYDrf;AQIt^!@jcjtwZ5k7a}49z8hLv
zw7=H$f6E|LFY3nMBF-==Z$<qwJ%II_vO236)c^h(TNJlDUPpJ)YueFRCsVCPn<oO8
zWqm69Fy8?GJbLP9#;=qf6(0O_8tJT9T~|k<rlT+kF%eD*pY9Ku;!gc>9)+1r^en&<
zMCOfo=|N8>_{)y!I3Xp-%Z~t8EPue&vBY)STS*Wo&;a%zM)Wc`nY(#od^}m=msC;k
zX%VR$JcA!Sx*`w<NU6siaN|SNQ7)MM<4uUV<i7;vP%yx$gPj~53OE!%r<_UHh$^2K
z`JMll6`T`E_^4`w$h8y*7u~;8{8O9Z<3(&epZu#Hms6Ic2yH8au7yF>%~`4hgxflO
zi1Pf@rEN`WTz-0!d!2i1pcB1NyW7UJ&=%NswQ&+%rIAVW9&C1Pd(Fhzf!P_QIq3#N
zVh?c#F=M1dVYGadUT$2X0|uRjhfd)kjk$$}aMP{c;h{IB-@4+Zw@cZ{zrkxc+EXum
zJ~zY^E~Gq-))j-xA-UqAgh6w2ldrhmt5|K135gtumBl_NN-MQ`c5eq01BqOV&euPj
z@_R4ZMFQ)xEn>{FidXoWf{%7QIXzV_Nh;;v`uW)MgI7_P*9;++7Np}10eq{1u;cCZ
z^6CSp0_P{(>#yYso4;F)qQENQle)f^YSERBI%ID?IddqDVaH9KdyVrw6N#-SW+*=E
z-nX?$)|#Sh`~7D~FLlHjoQB6`p`V;Hf0_=t^YCHY3+FBu%yLe>#(f*9!w8ETM+RyX
zN&{6aEaSn{yXw()h5k~|htJS2R2@Pnz3o&mgLxj_qvYw4Pwr`aR3x^Y1yB3gpdu(~
z9@BKU(+;gwZE&378_)NObK5@8FA`NL;Vkk=Sg4T7MeAN?YH6(s@wWDlbalX3W3hm|
zWV#}-tgn}NjWtFITk%GcxLa4kMRCYYSut2n)RV~x883-17=m4wR<N*nDmGWoKjMDi
zQ@Zc%bAu=Cop3YdV@9%oUMzn2Vw8lr!92&4o{wvmFK${jSQ(pyxW=Icp{ChOI{LbP
zplVR<U?7~^&0!n%ltWeJEplGO<rA5BY_j;8?*{+5T-}f#8<@-wmAiEoV!VfM^g1dv
z6?PAarp9vqI2gHM^*U^rXB<=fP6OK(yF@dk{mZbe#3I(T-GD&p?$$x#dvN#f&)vUn
zA=5M_+MW9lSN7DjyQ@iSa{NJ2cCM8t)9vvFXXWc8X@Sl^T$7^qpIewIZVf0p37~9i
z4?Oe8&y94&%;r}gxcGW(IjNv9+;FWlb{6@G$%Wf*R2*M-qPF3RCq5dwSC?x0jD(7i
zZP8E3t**`5uA$e&qvO?`ZbolBI3BI-P%A-)i&|iR8C$+QbEjc*A3d2%-1JZTA3S}E
zM&#Iz%Y@Q$4RsfTp&~AdgIzydLJ#~Vk{D?`pZ$~<{h-+$bdh;Zle(E`S*I3D@h#c;
z&35D4Qh_AGb4$1VM6*I8BU}l$(zsgaiHGr@VC`EF)AvnEDdhzx(7cy25QF!S=3aMd
zv%1R|;&_w)=bgd9y6kV>`Hz|#ry`fUa4kcBvJgp0IOT+m^La>n(Uojb;vAAq5u;jW
zSX`i&R@9PaYE7nt{eP^zbzD~6);3DFfP{26NOz}FQqtYs-7G+)ySp1j5TsiW=}@{v
zx*G%p&bsy4@Ai52{@&kre&_t*yq9aPxn`^}=NycAjcW|S?Ld8M_9sw0=+w~lBRZUs
zWRMNpw)yD49v`cHFcjU}Z=vIjbJjQVx}aGLTUN$2fn8*9HT^lD1Vs95Ask-C1ngJR
zxT@JoQA?YzY?Eaa`4<6xk(o1@g&3b5N@28>;A>wzk9gtuyw92|3I6)foI_hEePB{~
zfKypDq2QaB1nre_@<1u-<VTKcLsHLqx72LT9r;7&9Y3!DX1@{USjLu0)|L%fWQDzZ
zROBV@cBSF1(`Da}#Q^V+%Z{V$jCzMwecjc;Q$sh+a&dtbW`=?RdogD6;yV^y&+4hu
zV`ziY?a+~V_dye3`q#qVE3NgYrPEP@xFi!ItQcq(2&#?yKhd6@$;8;mkC`%BhxRxG
zJ^KFTB^9aOD-?n$9dV^*_7s{AIP^Rh7ZjH1oad-?{6&j7CF+3i$8o=nd2d~*dDfB)
z@@c603pMXknl6O!Py;8#MHn<Ywyz80QIxi!Y3;f`x9qVN=J8$eHUm38o?<f0@yPr2
z=Jtb9gs-f#>vTG_epq6W$E1i;qRg6gk0Czu5|hYyBEbz?67?uK*iMG?EHGrun@Ru1
z;lrXQFq%N%;`*E#7q6w8*tsV7`x+TfKw{2+*%~>1$Fumoi2vR00D@A$t&#6vTjRg!
z9r=DCL_mAPUv!Rq9FR@w?|$;&{sVDK;{;9V{GhD>!dVDG|AK#kvhah&cpzwye>=M4
zaQ@RT4tzJnZb1eK?)!@;2s~xs0xkCt<{2&!7YmXNfwV>cV|>8j{3q}QY}9YV2Z)=2
zAiLQ?4j9k@>lgkQg6w7oqZ+X#b>sdf{NenkTO1z<68iV92HCN}k@{tN_$SpeBm*=(
zq!H-B{9?cd|Nm<={(VFO8aY5K#6SO}=KCk8<ZlHzz|$Ol5Ksf6$U!{Ie-sAs>HpC@
z@WvmA6mIbRi08jxS@=L3{69PP@Ak5T^hg|_0s{$c%n6=q{j<>^ZPWi!nje6$?}Mjr
zAWrE&O8$ps<{#q(IsM@JFT{&r#FGE5O3)b(EXeuWn!{)JH`~`QrmR2BM}Jny4&tsL
zY($WAGVY`VA#7MMxb*+;Cl>z~uKnN{$DhX+f52Y&evujds{{X1tw2oNU$7Th$3-5T
zj$6&`a_Fa_w=eVIvGS3X^TT)$P`C!f6RdO(wB)E2lFnzYoU;;yPR-grI83}^PNXCw
zTRHXjqsrDd<MVY7UOVfX8>mZDGe;nhHTUqyCCFwN#7w0Wtg7Q}evUGrE*{=>efz0;
zIp?lMKPQ*G=Y<rKl(q(D43N$vj`Y+o3jQ7qjK|YcmlmSLD~)mkuM+O`B(<YYN?*6o
z5=3UR9c~2};6~TB5iBNcnQvb<=m{cgi}Q16J-Zfq!{2)TrS|g}uRS-9{+^FeBk(5V
z^Uy^pv3)k1!Tb;O{RH5?hOvCGb-ID6@~oC&W{=hQyK;)HZrJ5nDe&-~x>GO@`Sr7g
z-T9{NE82Q5gIB9aj!E^UkCbkmRiE4|<Ht(IKc3JJfVE_SadetCG%Gkct4i9B;YIA{
zbnPKrN9e*fGtn%;q$M=tOs1sp0UQ8{$7_uIUHsnS_>wv&IZ2lxNYsz=K9i5W7kKax
zPj<~2w?2$ghc=#jS`IwJ4EyHm^uf<7hjoYManVg?jkcX_FU_26k)OD2G+cu9XyRZt
z)reK*37jw%F6Gmt&-A73lQJBz56E+yT(NSp_&oD5lAkFQt)C~T3A`v0QSKBKyv8re
zFnbY55HV2PCF7E)u1V*(y!s|IEgmJDAjkhy_1(AdVfZcqU;k4;wX1o@LRVam(m`!D
z{@KRK3-1DWt3LJ&ZCl0{Ub9%?wGr92k@8S4W#}33u>$QqHHDDBBRpmM@Rhq0NjcjB
z9xi&l-z-Xm(yTY<eaW{FJ5>|LL=-6x*|Q}TWOnFk3H<K17UCmzc?~wk$4}4?;m5V>
zzuJb)3pA>)Iemx}01)6B@4U6=WJp)w>@9jraVO0Z{mL$QU@eJtFkd8Kb(uLyy!jC;
zt8O;=zT!xx#9`yh=F95qkUhOI=ZZz=3Zm2ctrdTC(&o{kL;de6Gu8GhaB`%pJ9_w^
zNa9A}5PFt03yBl+nTuK+zOYP`ugy@EClfy_fubFjE*NLzcLtD~C{8l&%K~q`>jD?!
z0faLKx3xQFimx$FVw~Mq540=G`#cxN-@KVRa_SN+h_lPl_`8a*RH!(+*$QtAgb3lG
zXR$7ENmF8_G2YXkJ(WWrFP93u$>)`nT8RR^HEp_}8Ve`rav0)1f5=9xrr~vZTNEVy
zT}Rrd%$;(iXb#YD+?&1`eZ8k@scTc3Lc{HwQblySzHPDG+i<9FqT6T`VZTJ&-@q9Z
zWWO}77Qr=<(#Vwfqzq-|ga7MRv9=A&Sdq8B1Q_nDXk-IJ=kx}f;R1kabn;Ew*Cy9t
z<Y$Ku`#)EzL#H&WjAQv<MlW>|ZsObJ)*Kme|HS;j){g?%Q5+hgx(+M%+zBT4+{%`a
zaa82$OgzPXB&CQKp-08Moo!9}-m2Pvs*T1a1OB{hCS9+aTY{GMN=Wh9y(y=fM?1@c
z!y1p8;3m<NLwGO64RVA8FADr`V$quoZyh|D!wW+(YEB3AQD^rN?bCU$yE6`OR~;ly
zZFT2La5>Qdi^dHj4>UyVrU0Vw&0rWsP7(GaiAiV|tQ%fD9o=30OY<O+IK8VAq6~9s
zLNo9bfk-m}g}}Dl5KnAz3^557zAnSUh6A}P#<$-{YVrVy)d#Z{&EYOnDp%*@W2fcA
zyeYA0mOJV(N0aX>Pl7ZZ?8TnI1tvsmv0*i*nk?`Egm@n?p99ZOxzFZB`kT8xDId$_
z(>g6c$F5Z;Pr0UMAwEXL?}m#f^Gi(Z-8*oR=+fDd4-hqoL+pC3%;64YDUW6(Cd}d|
zhowN83GL^SH=RT*sy19p;_)SXNns)SV~)|nJGZUF&@WH!_q9Yg0z5yCKppBT>oU~r
z&R!H80i7s4uJ#M4^f^BZpD@zXg|C;b(x|B{AJY(*w<DRZa#9Xg3p{8~iZ|ZcWoatB
zIS=KJOnbcE8ql`S(!yiSCAMLS==PcZ8D9}6Gwt_F4eP7n$x+zdo=fQ?R>w}!A4^N5
zPP1gWwM0uW%y`tDZ@9E7;%Gy=C5QZY`fjtb2mzZ-o^uiI<&<$0gW%^&_RH@~ZzVCT
zx#6Z?J7~?f2IX`u_q?H)+RvYuEL)M!>e*ZSgl<}yGgLW$Zhm22;{EO0t1ASKTV;ii
zvCL9EUSNJ4V?m7S8G1-rBat(12Wm6vbHbHV81KVZji?7F?}<Hw*J7==-r51<BPm0%
zR}_x9w@o|V+19sJP30dNE-l?Z>L&`@`S^~@H5^G!p9txv&$Cz<&Kb`BKtETw%B@A)
zq%snI&`rZ;A|oVk*H&D5@Zp2osNPIKFMTw*(+aazhub9sKs&M=$^I8T6=c$bK*fLW
zh=12p!O+T}o+|cV^whsNr}_S3%H;ctDU<Inrp&+V3LuzAm;`jphX7L`Y|bEbgdHR(
zfc%2YP9QMj-^wP}KcPTi4WP0qNb;|9GSDc)2AYZfbx;PvZFxW_&cC2QT>pdufenKc
z{})Id!ifo?O#c^1oeR_fx&N&!V{`oz3Ir03gGeM$*#^PvAQ2!32!P@NebqQYPIJf^
zAqOO=^Z)oyBGYjF6AHxli+}WAdIm(<1&14=?1KCX|Iod_3{crM1(8kvkpbTL3ttR6
zZ-P2EIBuY_4k48M4_y${OaHEef=6BdQyOA30}tvTG?xJ1KlwDlmi_xlhz<`Si09<_
zg{c3}YW}xIg4J+A+%x~9b$tH@JpsRIC;m|>c!&rpl3b9Zvj4&X0V=@%d*>kWRCz$8
z*MBtkZ`$6kuK@hfS+KpFpkpith}-^WNxpxQcK)rw93bKzLXyD&(riE){?F173I9KQ
z4T|3;Ot2IS?|+HK#RpEk|37fze?q`{AfWHxpZM>3@!zoFf2!5Ia3Fgv|L=1@u3tWk
zT;LHis3J1}s=|)1*f5vQn1q5uNQg{p1RHD^-I;Y0g9K>FpOyAdD?IpPyqJuaxx*JA
z5n1sS>TE5tilX<)oM2zxsske~#8WcHs3xb$s3iAgkE`YTy-E$DPCUlsq_xV=;ot9Z
zzxVr;M;Tv^iY0Cm%LZGlmTM7MU7p`B)B3pwFAH-7z<b)PCeFdPmj1Y}*iuU+RbPA^
zuHYs5b-^XR$*8w-s|c<5YTR1}kG0nqc=E%P4fl#jmu>0d(S0i^R#&f*CGjnTCiK7D
zxT@YXae6GMlbZR<@$y8QkK=xLdoaD#GWdgVDWu6VSmOdlRiDW4ptQ}hOVZrnHW))Q
z<5j0?De(5uwUXd|3en|aoI&MWW`kw$CpxJKI{_$f^*Bd{D-BO~PM*hKqqyijZVNdN
z)8dF99t^lgvxngy%#0k`VKWZ2*7FrCICCft5c)A;2at!K!VZ|!Z*Ghv?GjpH3;WyY
zKDnV@uP$rSq0D$Z(6NbhNjJaf@a?PJbN&G%_gZQh99bxlz~*!@(z7`_b&(t6|FW{D
zoj^bWzrYW_IBNgCxO4sT1Nv|F`Cr7yf38_vza3j3bbNmoXD|a?vtaqacY)H%^#8&p
z4iPGV?-v~)SQCma4`gK}|0C6hbO@5g_lqm=*F${Z-_Rf)6tsA7lK;NuhWs`CU#@@W
z{_iO}0C5Qi$@G4`<Igw!@8$k)a@l{s`mdiqOZ<@o{G;+evcR0bmHm4bFKD8H%xp;d
z_nf~K;siHMFiQ0ArhrrfVA!bNDLWfGNTNgz{Phc2RUrspa9jD6{(k7M0RerhxX8iP
z7?S=P{@>~E%K0IDKM)QlFqa36`^Q1f2ZD7$pLcMdWe2TTe31KmeBd2^UJwoQ>;2r|
zG6b4J$oY5y5VHY+BZDaz<pTuel7oKe;QRPNh9*7`a|1#ye%;|G2O&COcOj*Cz#Sj#
z23Rj71(#n)|3K#IUzLIJO2Lg8Y$&*@f(8EQ@qf8y;{*O@5V^quAi(%P(?3Lm3*>(S
z_oiRzFA@AhLjT$gQ9u+g*qc8x{;~*x86b9+3+xSKEFfTH&`F8~0J{JpLij*GGf;-X
zPx3qKpI6|H2ALXvd?0?%)&~yFuapyPG#DKP5)z!88|*QNCHg<4zv}^k8xXOBJfreQ
zrN0Y-0s$JwAVUgn|G(P#*Xw^(^81<JefabGS4f#(Po&i$K=Y@4Lx9Ew*95+_9|+LY
z;3WTx1qnqL!etIJK|r{=LCud3lK$=+s4al-YS69*egyEN{>lX*K@gGP0g*%8AbTWu
z4|0+RiW8)1U{Eyh4ljtrfd~O;v;@}#@L32_oSYwo1OG0|1>OZXz{eoc``0}9uRp(+
zl;7!}%fbJb>%ZO!{I9DO52)&ZvI|lmfGG&!0;dJoABdnpMheuIz+Uk}_#J*tEXaMx
z1OdGhL5Ts!1MDlL$Gjjp1~`Y<!0v;OfP~xNw*!Y4%;4aK2ss}l6c2a{vc!Va?BLrV
zr1aqUfs+!PQV@cAur&AssQ@y(JfK4$I8VWBkO=+{x&M9r_aWr^{gU6G0i2@{_!?-a
z1U~`DM^Db3CWZ*@4uBsQY}>yl#=j8TpiF>PWUxozga&sHP(Hv4!RZhB3V@nEi1i0q
z-oO-;R)~y4WD_Juhe$fuV{in(>OhMsgsuM9)7&5m3w#s!4CI4D?txE&yd#`CU~3?2
z3J-{=2F2u;Jb)(LU$2G?B?Ns2SvEj)`mYy2f(?OB|C&_nY#=!O9|;F2wh*-sOw-uW
zp=r`Y(4o<wInrd2p~)K85TR9|vA{-y%hDe`W^WWjhBkm<1iv2GO7I^K$X@|Lu7P&e
zU#|mIOBT*Q3UD-5qC(q3V}jz({l{(2Mv6z!l`ya%n5=OW1KJ02#oZ{6_4|sa@iPu|
z6*PE{x6$JXG#})OFRd028W)qF2Zi;wr4y7J9)1uTnF@^y$HvXgpG09r2fR%;S0i3Z
zy>j-%m~U!rZAE;Pi9l#?wHOTViPTNQ2j>|qNe-8WiG;bhw6qd%nA1Ek?B}m}6?T(j
z|Ij{Gp;Hx^t0Nz#KaXMp{W6fRxz5$qDGJJL${ek^8ETPOPmjau{QP}2d44NNuPpjD
zIu^7OD(V>&j@XlN)NR9%JU}T#9x8^E9M$>K`9oc;J0jZv$HN*mQoILT^Sm}p4%Dug
zr*1qIR~QW@+IW!Ge9)plAJn7~+qVnR#}0ur<h=1!be|((W3q^h%q@4&YoO+4`3s!y
zi)7~p2w^aPUcFBVI|H(W#H$^YRiH{ikQjp4Gad2lE)giEcy7Wn1OQIw5!}@2gXHvs
zV)Zv@1Y0PQ2ib>rvUg;H;}hunXNIJh(v}#W@l0YQCh#uqH!IZ$`9M@sP~d|Sfw?F7
z?C8t+0R%J{r#s()QHAbNBC`_nEeC7V8ie2_u?HPQe(gI)<niu1d8o3)(zcck^gZBU
zr!!hdOpwk~pKR-)7`W@dH5|SREBNC4;S2%aRlI-bk$cGf{q5j6fScs`K16Gde-6s)
z2RxLRre;0{;rY2(1le&ck<peJ{3$|UTR|j0e>VByI3|=E^*xkrIMci+5n~s|x8!@v
zofT@dZ^;iB$fq!TDG%{bfvN`>$k2S;_n2IYXQI?_F<-7F{QxM%B~iGyWmjQv(AfwN
z6vix2WfNq<^ML@8&e(Sh@jdPPupjxjPbp$!fwt!6{E9dC5)M#w+oDJ$I9r{K_oC=R
z$^+vua4mE9xV^C7>hFi(<vakF<NH^+0L@)L`iavW6X~wW8J>jteGZ8LQfnt><-k2_
z2+z?mo<u9+1MqtMlH`H>+{#(t?lH_G_xG+acjjRp7}uQ4R&47)dck1MLwbQkb^$NL
z`nwZnNkQjp)PkI!Q*^xb*o~qa4;1lq+pOZsp1j-E_t;R(Czh8#mE8{;s`ERaBOmlH
zp`L0&)zidvVhTJO>%^RopE10Ji@C4D$KYxo%R9_3=m5xPfUWyZ&$rQNy|*NStmjQN
zXJYDNDW}jO*Kj`{!pcg*s+c|x+!>BZZD(9NHZ;5vVH6{GjHj9Z$r@f_Rqn6j>ZKj%
zw`#^uiTWmbBuy$NG&e72o5GdMsGH_vCCk&Hi_k0Fj2~JH;R|X8ab^w^BmwiLD0D~q
zSYIr28-;-t2g{p=M1ow)%3C}BFN-0>Mvc5mhNPz-Z4{Z~l4&{_cE|Yd0^;BGQJ1y8
zYLj_%HZ@y!VyjUem|q}4tHnzBCO0VUhFh^kUYpvmHxW<K1*>OLN+!@BP7ZaihoJZ)
z>`@0M&CyyN|8Ne?%NNl^*6VKs1vZbUI0lR!rc<5+;vUBL%f~TFf+@`-<_c@O*;8i1
zy3ecL#G$-jHh4QjTTf&klYB+wA}@(+W<n+0^{tox1p2Nuqk8Kx*5!OmbiHepb+V!v
zQaL^oxwjQ~;#3!a5y+<^qsD)^y756SrRo_;n}?{zf|<lx`tsM%rHkq=@&zKw;ty}3
z2h0b0fK`T>qkwM?a~7X1qGEs%=YW^RFNjZFmuS$mo8LO7to6{wMTII|wx8++h<t&U
zM#HAmmySQ5YxvZZJld#NFWLGc?#Xlf*u`X{{!m-(<&YY3y>zeT?Q$tG#t&N|?#N-E
zk%QO5x@W^TbZQSKa7Qc-(CpqElO2{@el_^sU;r?&88cmYycX`DnMQgiP+QA#(}&t*
zdirsKkSl$@<LEtW{E!2*RH#N`n=&?^nU90OYUfyy?)tvB^8`VEzjSxwq*V!(<sL4A
zRa=F{HTC##n(la#x~Dq>Q-L#w5pBk(d!We^s2!7<YA&o;b5TnPlZ?+K(=&L_snAYT
z2lxP-<V@ErzSaDw1foxxKePycKKGxDRd3IV++LV9mYw8%+FVvm1V^lwh)x2#=KB0F
zhX{|XgAuPtL`4-kkF`MZCCY-SiIuCCX!QlbE|(WwfZ!BjRzOl~qZmBlRhy?Th4{W7
zu|{8ek6SvrHws?ILQXNK1}5T0PAxlHfQSX~>E!suf#6zd*20WtfTJP&Q`JMJlDAeU
zLt;O@Vn2y)Vg}}D;+6_`$ilyPc~qyV+&%D4b*&u`L)!XwgHF3QgUC-g7WK)b!@1|W
z-avDC+tt<Z$9!4kL_<h*lyPY7?XK0-rh<@mG_S0LN<VB%1BsxEz2>bn8j_7p(KjDa
zKsyAsX7+v8^Yk*j?)a;Y@%mhI0*tU!z+ytdyl8TNcHW6+rwb-8@q2;Hjof#d1fPJL
zg)rB!B_?k21lbhL{py?n=a{qS!l6@cj;~N6D}!8h{WESIZn*bczY{1KL*3St?q_=C
zXq^sjeY{`|mW!T}TJ^hP3sO0%I>q?}0E2ycyF#OQIW#M}H0zhekIz0V#54_9%&>H;
zd`=0V5mcI^*;EJUeQqhyCx`7Z7jM_C?vCfK{KfXz3cB*K9N|)-K03DVH0i(1TbQ}v
z_ZF1wT;@Cp%PV@?OF-!q{==T&h;af99yNe`eC~YCk;lg&2`*KK$E0}=-!aJbI}o3G
zxE@}j;Nl|Ego-MK1ob8Sh)5}C){8@Pp}2zD(rWWoY7_1~=oqfS0oR_wcYP#g{k=8!
z>fN;Rkm0kBfrUhhTRf=&`8cgPW8<(|q>nTdkm<X(nVW3KUTEF2z3DhTfT2t>I^-jL
z(Qvg<T2x?1H!aANI~rR1Xs(%~-vCH`eeF>F{%LRF5O3HTymgU$Zr=4RalfmMgY+9|
zeZr)1OR*p}4b|Ntt#C)@cypgnk*~h}{p>cn9ghxfrq|<m;@^v8UB5M_X*-tTD7SCf
z6KgtR!p|OQ@D2B)oD)lLU=lueYWgV9;&r;A>?B`UoIW2a&LGU6X15D(p0o@YUAu0)
zYL>{TjM9ph_ohjBJ7E%6uE{vzT&2B^NDgbVU;nf>>*P>uxZr#bufa!r1XX{DWwNXh
zz4>ih;U!`}j;&Tq0%smO;!prJ?-`O&{$)}bI~kp$SCfAQ=FE|)*g}?+M*ZXFkPo3W
z3oi!M=q#`@((#dyvT}KlkH(_`1N?CY|GOk|=pg9!wK~;#zq0SsV+bbiY^tfG>7Mdn
z^C7;Fk!Y>+?H-lbh-J994v1UoaV&MBqY1l=dufoSKBKTx6@*u)wh^<ay~7)(U~g-M
zBWN$Qkv#v7*>4+efd6_hA(^^qE&zbv3i3#6AFw7pe^iG*(9@1}BeJ~&$jHzMiA9>?
ze+)Q1T1!5A>$o1h`Rz@{y^(KJrbW^{7^KZDu?rLUvK>{wJIrU_F!upEL@oEG`ps3U
zVNG(P;71Qyw|4u{<9qE7h_+Q<c{87wFPQa|{}6YTd=02Cd8TH3j>GsQH%`Rx2u?+u
z!-T4ltx1fyc{=9GKoHf;7dUCYN(!KmB9JkyV1-Gx^&KW;V5{0$G8jIl=bQR=v5$E2
z$Q)(+p$qXFms~61*?n>)zZ?~+`*|?CfDDEI-Fs^L<wlC^<=$Wn4&!$$=g&+uys}Nb
zzG(SHO=`2mLo@lcNe<Z1kuB2W(9n+pp%-j)iDD7Smq}h*NzoJOr2yt&E(dC~>Nd_s
zwpej_5clJ~R?=Gr_$;%i^{<w@DQvjic3Upg7)Z=84*VQI7}14G=N;~;F7J!s-es<k
z2E$E1JA!n2%eO8)64}hrm9(wicZ`gK1<*lzDH>AzNN8bqx!UPu?l8oHZEJQOg&qoA
zYLuZ27H<(Iv{gU%&jK2#t^Ph-EEDbai&%vVSHr~#2`=L!K>1haoE9Nr8ppB~!->j}
zzKwgakk>;29|_WR$5X!^3#$5_nm#;>V{4SQgI2ua_!8FKO~p%9?|Np-Ry45loH)0~
ztuiMg^Gvt0TK20u)=LY{-46L5!WHw~>5tHgU&9tJru9YS(%%A}6tx}}4EL$TN(5MD
z>9X???H|l^8zfcl1IrQ}U32E{x|Y#j=^jo#)6%Prb0qy#!MfQZ8hq2Myd0+YFsvvf
zEUFBn8K3UwAV`%ubI@B~G2G-)nSnZYe;|;Rme8@-EWfw2nEa9N#ddMRg76Ri_F9ER
z%qS~y#jde1!1WRkKy%<($^FhS;7$?x!O_cb`zg&;Q7$3sWEj*?Bg%3`M72x_y^7ij
z{mD<imaz}M*^k+lL%whx4ycFON=;Pg!|AexSaaY~Y~*SmkBtD7NIJ-h1*=v|{xry8
zD(TtCRl$2w9;sJ3ds0v&@@yt#rK8FH=31mIO6rub++kZlbU~SFNN65QPWi&A?);=w
z|I7N)J5LH5Eq&5tq`vjMCe%JVbssb|M>i$Eir9@ksjCdGbsUVJmstb!Nu_?aa^xkC
zDr)&qR<5jk(>~Gl5pI>5AyE$0+d3KB63*Dl2<>z4SsV_Z^FB%lr}|7xr$x97+a%y+
zzy!rG-mhc`kQ``&<aMJ+qfdh|YNC6tgbG7Glp3Vpy)&Ak)j~${)tGs7PDMMYe8JFR
zz_GaWNCOx+%XHt{ioA4rPa~&=;zwa07n4q-^Yg3py0q`DQ0YCT1P22}dT?7N?L;JV
z{l_K!SHgzL#WB3NV9@iMbkYi@TW-CLw}}!oBGytAfQ!@kmZEUeN-qx22Y3UAbd5NZ
zO?k&vWA6Cv&WlJ}bO*nqgOZ`^L>rBP=@Pk6EjRP{rif_ojA~q|oQi2}v#t<BN{irU
z4q-RCACC$npOC4*cDd?M?p>1R9#i+-7f7cvFoeq#Rr(7tV?_z48~d>B3U;`K!;swD
zH#HjB0;ac78cAQV)#(Op(;|2IL#WP3e(<Y!41PMVn_a)h_+If$dZog5phf!w1&6eT
z)xgmaGUbbwC(DnG_z<0BftM%klJ$|fUsLx)<miIZP2uLU)&^VbHt@U|B3aD}o}j?5
z%(1gJ%YBQjr&W`&{uJP1pB_lJ=QhDA=-rKrjRT<3&uu>H#C?MCP=TAzAiV)_<Yr<J
z#m;Us))QVm#w}$4G8efeDb5dn+O0;{N>rLC5qH_?1^ZYe4Ts($JJ)O#0`0=p<<)&|
z5_>NIOPaTM0kv?)6O2#{x2V^_8mo!a5#x<dp|Y-c!d&$9qu<FTzVcbpI|$DVsUG5;
zWdJM^W8GL1B+zUb^M~#3emJrAliax6IC5rAL_cEK3{m5p43hfPQ&sABL70tG!RkQ~
zOdRa=$Yr#G{wFpJyH|k0%gbx8#n@Rqvnbom@KqcHXbB5g_o;0!OWiBYA-`Mqwgv-^
zzMJLNT3Gahr!@F*-nThilo5_i*=8>iF%g07$Wd9Lx@Fy`k>+R$N~0aD&yLBJbJ3t$
zs5Y)U^qAU4;9Oo3>smRsS8}hWP`Vl0l(T$hPYwU_Drn~oGqV_W!y#D&jsVT0fw50<
zRmjA*{>!_=?QW%QzLJ=J#)ZQ3w%61o@+z(TYZplmt<=u9nR#eN$K77YC2^~&$B~SH
zbhG55mDu46J?xm~3z%3Rb_d*r{iOy;ykHfaxR(l|cA4@R2NI7uHC>()W3+QEnqXEg
zL(kgfRqen3qKbg%R7CK`czo7<eAWfE(_A~53mdW4!J6P@H+0Lqa*DUAe(KBhz3K|Y
zLE0Ru!T_Cd-J<^am8aO;XVm3;QQiBvfFlVaAFJ~GHygc=*QssqpZ7)jRpKh_eU38E
zb$MK>)jO+Rs>Ry;?%3P~R*`*i{7j3u7=8y^Pw?Gs;d{01(#X$8Ch~`G<LeLIPD;Yw
zkn7fAHe{Ni^U%*6^8R2YEF*uifv;zvr?vI&inEspS<}uLGsXQ7At}xEBB|eR!4N<T
zkXS4)A4<8eUwPIrFZYW1G4pg+YHdrg52l8m;|tTJBF49R=@~n73J8z;YRGJj<CeGl
z7#&<*Cm^R7ptJ0o77H#QT|K3%SwS2^A60Ku8^*{c%!_wmkQ1Qao_M-XsKh548X)s=
z95cRTv}6{I<-L^ox)F-gs9NuMHq{MKI=A7#eYQtOv>xCZ=d<~U_Dt2W|IuNRp>l-y
zqyTu5Uw6bUxMe4US@7|Kx#Q5x<FUf%sjJ()8?A-~V)txc==`j!uhnIm9S$<~=3p;5
zh7KjybS;0(5`XU0H?ttjuY0d~MP*k;X7T9c+WI?qT}_FRX6j|5%2~Ed+sAzY_ywNm
zCm|kAhcf52W}Pc<a*+5jVI{fpo1_f*dKIemj%%+ksXL_kp>u_CZs9*GR};Y`m0!$q
z1a`CR>5e1&7fD89Gbg1nGqKy@X~a$vSk3cjVK3g*GW)RB<a`e0fFpaWJs9ZIG)7#V
z<r&MAdZ%0-8-bqw5ot?#?S<+~z<&;l>u2oP?mLp1H9DNladl$pBWlX?Jx;1m!mM_F
z=Bc?~(%!@k6!m(k;JL^_XMWdo{1S8ovjNZ1#^j>YOC$+(Le1$b!kIO9Q!Ofj!|+yU
zQMI%Co^4`h51q<-J?QbE1{|jkH~-nPe8UzDK=v*DDfG-9O#W%9nE(1b4PX~R(W~Cl
zUlEVqP3}SP$z^nclAip@D(cyo(y=fT)6aucqTV&yk!$!If*%b0s@=n49>WJ+Nrmo8
zCUEo#vDB<1Z=Bc+jfR}E^DeOZ4Cj>SrfSQ&BQz9~)8capGJ>SsBQu;dt)1O|a814T
zNWZeJz^0AynyWUicuE~O;{vRsy{1kT?m3l~%`cLT-n~WSQ$19ed=>Acwe{rX*i#p?
z{Go#Yz1&QTXCoO8s0zWykA2V++V43dUf9K$Mptqfq#<kS9zr7v%AE4TO{mT+zBbc#
zl8#V$Nw3ho4&8dE5^k|9yXN<hGs&N#+wrz${v9nGbhSxcLU#+sRVXenVd5NdeGYp+
zyI~+_B{iwFO-kicgB<e+c?U@ceUN~I-7ae^qXI!uu>UcpTH>RQ>P@fYL>N+w?ywip
zROA~XBbS&#<;0P}6}t`WoKuve+-KUa6mHC8={&qiXPIrXPfk$8Bt7;kjIN#ri`0mE
zzA9@qcF5x-TpKc+a%9{FK7V4jWa0?_Vk>hNQBqnI8F=h|C@XrL9x`S)vZ2?Mc*)Cp
zqd5CQS<$ci{WFG@(qYap^>m4MbKhZ@LuPZDnU5O%ID>3ZVGm2Ex)6ot#u%4P(d(||
zG2iUWWTb@=TD!jf!D^GJ#DK>U&@P`vM&472rZ)W&d$%&aQMZ529at{YeT=4n&lle(
zCmBS|LXN8AwJuUCRxCV68~ZNvDBD8fIROv<rwRc-@*>HQrLC1|*e5!sOuM0)VdgUJ
zp(|78U&5YQ6YH4?Jf4@z8aU#fQWebH>UT#H?tk*qSZ-0BDhvUIfT2gpjwWgQnH)l7
z@=}Fo^ab~}-}87{*%JV789`@ShL5}L^06<U3-ZC&9D*9C&?nr8jL0u@$f4Y-8fMoY
zak)K~ES4XgE>~C7n8Km-$0ak{M!3A0pvqAnX-?c?MBYp>yEs7#;Kht#$izNzWx^u7
zf3H@GVW5XI$Ac~B_sU)4SRy~DHQnsVvSb!{LGoJNA<j8H0G9{sGEaUroxa|cbF-sc
zd_=u>Vq0yO?p=LyaMyq%Qo-eWfJ%>~`Ib9Pfvn(%zRUBAtX<QaK~g{5Z)<!!?d#6V
zQ7{A#BvsQL%hzK_rWHu}C;eD^dgLc(X%hD=HEmWxl^dzMiB=fdS;#GYCDj@p9}()_
zoJY%i#kQ4~kBKS-1Yz%4;Wi};cy&4}%fCG8GZxi^@k~01zN#_tMi*o1{t@{_I|N>e
zU+(6t{vCteEu~u&9dnb3^yAK@RDZh~C#;c0T+>jmA;DCUfzbkvJ^vw`wP9l!-GUKb
z_Uz;2?7sYUjTGy%$fI)k7dz;phmi()()=Ijl&)828+`0{0549d1^ZAA^-E{fq;m8h
zYoXraxrLJ<=l53rgL@bEG_!POE9pt8LgyO?tW{y5$DvgT>d68rUGy%^R;|qEbhOhb
zzP{}Vxg0jhpU-CH=_sF&@5=GclDJozu)Rn?#cOR~OjCb_^g6xvEYqyB1^8Yzi0eD5
zw`p%!>fB$)3(V~{z)+gJ#kUqm<3<vbZ8&W2=zxAOy_`L&!VBSTK5PgSATU@6yC$4+
zBi*Eq<Knw~yM|Z<OF?0VuJtS}^*bBP6@zKfnErj;sc$gSFrv=tx2(&&8V6bE<$eU8
z0j&Xi%hPSKb4h$rx7KpD5HgCHhUnvGiS_hhrL01D?*L6f`-|+vip60#8yE-u$8ZkQ
zMQ)7siK(y|a4R?dJAEyQOA}aPgj1!P+xI>iiDVuYHx4^)bP?wYHO(n6NhPiM{AKJ6
zO5U8}`QE(RGbDt!wjyT4vQdklwkZzoo8UU<^X~p>6S+qHvHLno;MqAHEKdxg1|rJK
z6HW1IlOEv5-YIJ@Y!tqICL4OUC|m+z-X=YRnp{gn@r1><W93dQ8xmO9P_?}&`5w~P
zA^2EUSK|n%i=&W3q0CHqdAVL=KldM8EV`4OfbcWYNsID*_rnWMwJBR_KUQC)IlAKf
zrS#D;4Po-OE5uB)8r0G@A9A6#cVDsW3n=PN62yRvlnmx_bC)%$G&>3Fp3!~Wq-?@v
z`!II}j8Hsufn)1WJR@8REqmBq(bK&zi(F%jgk31zhg@Ws<Iq=79ZDLghNN??g_Vfl
z<mAyuhdl^#;t0Rqi(SbsE~yL&Z>_i>$gXAY<EVz_V6!`x-DAbI4`<4=mOMEvSfXUD
z$5R5jXgl`4aXrJ*k_=N*!_5D%%8jLhMxNBjpnZvLE6P8${&iUsjfz=eRiy_p2)B~v
z^?F1i7x#}+X7>`VF=kc4>(G{kNT<%`rg_3GTF22w#tOea=MQ1#&x&>k$uT>gFRZC-
zuQfeLl{$7AsJs@pu5yg9rW245F*%r9kI2sk#A*CoSrUJ6Zg6~oN{Z7!1Q0HtQAc4?
z9IJCbI<<G$4rb}I_~@0^JC|Z+yx~qTO^H-}<Mc|`Kk;!vGmM?6#k=C?zW3W_>Z=W;
zn{xBJG)KuD-VSwUazXcOxfR}V0mTz%<JVZZ7SqeO&n|I+$oFY8^8yFSZnpIWquT|+
zfX$Ff1UWE8UiG9eyX%@zxeeQBht@G#J3p|k`vaD<u5pCO!M7H6ixc5jQd~4}aSzh!
zM(RcZY_q1HnQJ$pmWmlkGK|9x5Uu<2VGBDLY-*k2RE}fxY9s5o``*5rw%wA>B0x5+
zDUgy-dO#sq9d_i>j(jWgGofH+G#ToA9~eiAOXL4=nZ6>}9{H;NYLxpOlFvAARy2!$
ziIp|?TmVPEc2RqFgxfBY+X?Osm-LRJ){v*b_qhK1Gugod&_n3*H1KpzXWPm{A|<Do
z#u8@QYC|j8ZaKK^nrYxuBIXrQqV<fy^wDDW!D|NS%DIq6Il3)^Vf9!&o8BX#N?`0H
z>9Dzca7TLihl>D7DNmhaINv2f?5<zd5bgjk!0|4sLF1b+H~#DE%-8dF+pgZ(imp46
zH3N0mA8cel+J;Q;r?t~-#`#g~?iC8E66FtFe7V{AQJ|Wg-GrW?u%K6S{$=mA$Iwsd
zG?@`CSjo%BD=!}TC&i|7-Or%zM|}ZWq0em2Rat5&_1!Wk8~0kYuMvE|F3Be5hF@_x
z+WZhGV<$mwYuL>r=`g!L-wRD4j_KyI>x@}M{j#VRn5Qm8gV%<nXCm76zA3S}_;rQq
zqVIOXm?vpQpnF+LNZ%>j<CpmULr41|W2gp~1)8Mj$W6%=k7;|leQQ$oz7E;~pGR#;
z<2PwJk2=C%6CERSKQ`??LfkLozJI<f9yfnN_+D1aN5Q<MM{1zTGjPDR7^=0xIxgS5
zF7s>fjpU218`ZjtASmP%6Mf_Nc5)8;7&eB%CszUOc}$768Bv7A;bwBkS)C0rhx<0s
zEqXeuZ^v@+$e9<EunpElhq4lefy;Qa8wXnbN1=X7hN1oTjeYiGOwlzDb7qbx5A;3-
z>U9|g?32pX&@4_YhPFNdp3x1?QyUkQ-skj{<1;LD*$kDQW`3r~hM)YJYG%Jl;p0p-
zRla#wAnR6UqRkW1-ADPjkICz%s4mrDFfS-FRoWfJ187b5SGR*j=S;g>1C%4OR-Ic`
z9K>@~QW@h&1|&uXm<FlXml<;0NYawBjWaQIQo2VZgiCLGkzqY^l~U-QbG+f3wQGOA
zi529EFyJV%hFWw3zla>q=59P9q0zy$d7N47%H2wp5n8l-nxJHhH*&^z*+($_em5g6
zbCf&dlWJ<Q>E<c+iwp}e9+CsLid1>oZm)1Jt0sdBH~rhT5x%HSobRfSty~V;e@29;
zlL+SMaaWzyo~D~3ehPnZOGr6l(KcduXj6aSED`#Ep4YzYF{}Ah;%?j8OTU<%)BJJc
z=iRZKgD(hX>q0_oHs;JmvY0{s@8gNY(L65`nh>s7qmJ~R#KTRQWgG!VFjV8d^{ZUF
zY$cw)&qInhugaL&)A&Tun_tJZx!rHyZDj0o->XHGrI>5XU|%iF9%*vr$LzN);S(>^
zAMDoRuZuaxp2j?_S7Q{!umF@4GW_<YPieK=!;M^!G4A-v(?c+wwVvrvmIlzO!*V=0
zA%F4XB5&&bGDZ%E#_$FxuCnBja90=6cS;=OJNeOb9DIX9rN14p{v(=cc2Np0dSCF~
z-fZMGIiji|(~<hAI(t!LG-GXTY;sY-{HhAP{42uuk6PJ%zqiF6-OqTn3$3fxhXg0X
zj=T^8S}wn%K4>xv#HM0w{p=lUR{8d+FNmcv!#%_8&7C^$b8H|AFmeqNj`LB9R#2lP
zFY?Kbvi5GXAtYhAxJ0NfQ*_T!a}DV+w^q2yVp$FI!r5u~A%d>@QcoTyOtL!jbh0s2
zmP_`SxbyobI`|-U#kibkx_5NwLVSxAAAMFw^iD!mbA`LyA{n24KKu|*9~}>4M8u9N
z!Dq_7`mRB-b>}da5Qu6HkEm=>*1KY;jMIjDE&d|+vcupr1)-%BGQa22^)hLLOr){E
z<6PBOq($07Y>CqqoO{Woex`<!3jR3keUvHmeye1@xv6xF;;;4AuTq{msSAyI_v6M_
zuJ-0)TIg4Cw>eSs-po!lGR=zepIr&U8>(+-Ytxmt@Z7ZftOEj>_b-u%)4!{~$Js(3
z%NeE+q&7@$AcOA+ID1Cpr5C~3BJEf8U4O?W@np*^@6{3Fhq(gexP-zN!<k=S4}@aC
zby9WU+v*p)H)C)%;-k6<Uvl9pO??}WzIB;73p*YPAm3Rwt*zBC#5dG0_VT?XPwOcd
zc;~EI0-j80$~^#Bl8QD~i?E7o#-fTTT@H$ODyu3H+gJ4;rEc7PEy~CDR?*B^4&Po{
z5@c7EPPT0LDx$y>D$J!TKbp-<p^@l(Ht(T^WOI?TzDGxV&f=yr8n^0qacyACXzSEK
zna(1px4tdnTg@3!jBwvCcKvCRV8U;$_iAAd?^!3+sv!q3Ge#h-I^mq*+r5yA&=;eP
z8t!sTwG!II5$8GZZP|BiPUr5;;{}d4q=Q~I9gNYRw<a^b=-<6=t$y><0rdqT-WjtX
z7R~#N!`rySg|nbizsRKM;GIu3?3hft?jI=%D?(Si8~V!bK4vUWQ4W5yu66*j3vtgv
z4egEx9Suw4f!fQE>uC!pn!G-TV1%tERpY`LkGzWRgjrkrMGUNNO1;owMyuSNr&foA
zcwKT%*L2c)%(CC+ete%e-`@zh88$;ks&Z7hdT-Runti9De!X=3<XMUi{aPrX_H4Oa
z&z8M!<j^iaF*X_}g+b4N8Ikp51XoND_ldC>4(p>nd>{f%^Yl<e^*ugo0v$u1jb$#q
z@cJv`C)rgt5z>R&esmKpvwl_334{B$FE(%HshatF2MsE=z1-2#w89SLvI1eGLpL6E
z%%$1KQTS@M<3oF(^GQ2Tzbn}+w0T;YbxtZCkQd7!G{~QhpDFZ3k&F&OREK=%M~Ju+
z>SyX+L|EX74dFgoql2515reofYu^e!cCDukvtuv4)ULovIu_gM)&ji<`#8qXQa}nr
z>YM9KUv;PFgrmW<U%o%SGT&jrcTcRr0FL2$L<IB=q*f~YyJjYFyyxnQYaGs=x)6vw
z%&!!21&UCT-Kz&m^jCL=9reC;(^Ek$H*dY)E7S#W2g#p&FTcsZI$y)Tsms^dj}XF+
z^;OcNaz?3H+@vs*l%;)<@xZa?ew^wq^b?l#abCk)q5b}{(VsfVyl)iYT6<t~9$}dt
zHel2eDAYf1<-sz7ce9SDz|7(Oma%(s;!SwE2lv&~($e!f#k<#XaN=dVZP%=4t96&W
ziEaEiAcAV3*q^-k2DNd=dIFYUy|6S|&GBsQjPfI^pq_hh33HR-TvK6w^1{?RYxU9(
z%@jD2Pwv(u8>%ey6+3;aU3s!r5WQB(mEjsxHacQ*{bz6&Rowe9(r`v;qb$E0(kaBx
zvFcr)5nYJ!%}}a@Vm|+Yxxit7wh-mpbF|0=4K%1XjAdEzdg(aBY7KAB9HKOCof`jS
z3df@?_3}ja4xi8g!zllpnsq2<<~j<O=p3Hh9z@m*#mU@x+CA+sLek>8d35X>kv#J1
zLl|apE6HVy75Yx1C3D4K|8Nb_2(B5E^_;+|a!h|m_1i>;E=Cs&rbsXQPgq0m9lZ(*
zt$>xQefTU2A)XiK^?Q9nrn)K<BX(B>$@segx-7%f{iVeH=d&f_uB-V>L-mCB`UASR
zV^@{;lOG;E%}0L+w>-0MzZGK}cvxqg`2CBj`Ac}b0%IQ~R02W?M&0UG9=i<X!@c3c
z%Qdkm8f;U%AD$aT7IFo=opWoXY7&M<WaxlxjZYZY&33<ypp-X{N{2FW(f%>%sNrZN
z>Ejn?I$JNWnG6d9xUR^XCA5)zbM4;xZlt%QUdGhK!B<H7*{6`zzWr7$@v3tNO+I=l
zyTQ07WaB0JA$0ruVjJ5qGRqxyre2|uZ$$e}XIx_K*D}21OfO|&8~Q7vHz=OS?`};1
zq=v6WC=n=#a1CV1WUkV53xLi6=@!>#O-kIJTyI&$I2trQ=zDZt37Fv7I0Qw=C4Zjh
zleJM*yscqU5X?@=k5!j%$1r_eYQ@kZWr^gKfcE_BDp#FcRgjrh63gJOuUnB)iGC0J
zb4BrbxxVlkis6w)`But&3^Br28Fyq?K;*tt{uKtVS>2c8cP+=W18V?gy?MPm|KSk|
z?u*Z6Ywx^N!}LY&jl#*4Y>NjNjZmVhaB{HU0!&$7E`yv3qp)Hwiw<X1sA8WbeEQ;@
z9Rwd~siboa-whpGRMVG8ZZ{J?KvYivpUiie1lxMcsNY_oDd7qqN9fNU?r$Ic7%;;w
zCKFo0Y3}HspQmc4++rfwb->L&K}YY;jajviul2IL$Kt=2B_7SG4X}-q<M1hbLxr3{
zj_lZYvUFYL{m#dR)UHHK4?FyMo~eEn6E;B%nu~utnr|dVQ+*;%t|duHBws!&-_?)+
zbl(kyokpwY2gfw@n;H`_^~EBWHQ-QQrM#b90On~^Pv&`Q@^Q|ht<YY4yWvYhG?4=C
z`p!eD%iVptnQ%fO^RGTnBHn#F+l2!nw3xlP;W_HJOuRGo&af0Ml7!y!%dI7NW_z2K
z#23Hdc+F9hBCPEkc$yg>TlhW7SCk~l$}(ch&T?d{g!JGzhp-6u#`amFycA&e)!Us*
zik3hv<aH&g2p?X`#YcZ0_t3yBbPlh*J&mmu!Q=kH#C6`)&m3Vz2uRe{J``#MB0R^w
zl~E$zGEt*>EOcdDjpISsU$|QZI^TH|jt`t2FmG%-vbG%+PpJRArfRQXEokR`8D4XN
zBP&4m*$^L<DFYWZO~CpIsznfx{;bmZE5dZLHjAP{BY}Ah&YRpYGWGYZ)l_+I#`)L%
z^^9Jhv9P8pn(-p6UJ7hg()q+OTRwSXqD3c4&c?1*Ir_m>RQp&P=aeOCNSG^R1K?E*
zNDVj);SEs>%XKxi)f5bPug&{<VM4*D>lLo*6X>WoZ`#$91-Kj3fnAwuK#dzH+nPjq
zZW<BkEQ4G|)kD?!qM_L+uC9Xm6*(+-ZDfl*rkU?0$BJ`vyAb73O1ti0!q*8pcEpdT
zZ%C#bG+RZg+t2F+U2U;yWa#AlKVqPy9?8n&icio*m6A%BcFCCN%6%*N`1&h~P6wmn
z%KNe^(E#HoY5qz{bwl|Q$uue7e>~Hqw183Cdw@=WjXU@+4jtV5X$3+sxM{~z&`(fh
zl%6SQs4__^NNA;DPDA6T6^cSPK-;8USwS<W1&cxB(z5!PyErnSus(NmaC>fTXAa_w
zA^u1&|0EIQVfzal%KdL}C>TV97Xl8&f#c@_qqIP1{@x~=>wR6BzO;6-LS``Djwfs(
zDi$m;Ee|S?Z=p_3Jbc+gBree+-_k1C5@LD3C3H2hwdj~P)|PQ(VEfKp-}Y#wv_x&n
z=y9VH8|)CDn7+2y8*=FU;=~Y^a9AW0bHwpUIe}LS`u4>6FH5V9pvlAY$l!21>tI}J
zV8w-CvH?AqMLj5;{Nh(dX>~CvADH6B6HoG}4f30WXXidG;-IK;xPL%c_-K=!H4n{A
zJZ#@pZSY3SSx_+lMpRHQaMuX0rcQ7+7#9i#n%QnxKghy}iHJV%fb5xzvOFUBQD++S
zBJl&=I=Y8PPy`G|mlOw#F%~m%zK4MrY7I@G!W;lSjf$oUf<wOocxldcb*elc9?E`p
zmY#QhFTLdPFnHko*u6Y4g1e8V=28PCDET0$j`-8j84KOxp(-Z3sv;+*neXc$I-1$T
zRbot3bPV0B#MGy$MM5iUn=P3883BBolNBr@)7vyCo|DFTEW-DW_eb9MOyxE<;0fZn
z%TGXQ4tW32moJKz6<ZfWr<|9Ql0yO~A98oUmA49TCxvDTYR!rn;{|6STJ7$GfSSN1
zG<;{+c5yMHa`;(nq{|Qn3)9yEO+5`z##ATpIs$yK_xy^a4(WqH>b-)H7*B*~FREG6
zPf0&9o(j=k46~$rjFaF%JI4o1x_E^{44_+p{wIYNVxK77UjBKQ5lQlcq+d;@4S=Mf
zx`yElJ;(Kc`6hA{2+t$=e0hk`ZBhy#O?U5ObPJ_Fgf$s)kC5yiJea+jH7<F2FOg1p
z3}Es&GysPAqR7NzJVT;CFy?*^Z2d%BdSE<OTI?RVes@=cQ`L!C`uT=6<k93ND-go}
z>gQ`VTMvL@IO~oKt~*=oK_VSHOmx(^8D06<&^Vo=U(`5VMS9k9?|6n@jIBfwpm?!k
zC<0!w0Dkw9MxMuc_lq@dc(Zr+N{H#Wc!H{Fox{OK3J)(*iArat<_Uhz92<q|2@~JX
zLshL_;`Mx5y`NF(niPJJ&=P(J0ILu8E;Q7{Lhaf{Wqm!+wy3Uy7_B|~9S=%{%~^Gv
z_`5gnq#s}2Jz(h0cNw6v&0^c3r{_7d;i1(kIQ&rFr^^vF2p)!GHJ-w+(pzA^AQARr
zL0_&mQtpnhE_r^{!Sx8k7STJbXD#6?&HE{7d#O#XaRwgq8|(fhGr9wRfV1MzJ2P>n
zfoe+On8HK;<Jb_DgICHxO2K!yc2?mG%l5G5O0<`mt>yB`PB}M+?m0UYLTxP^)*d>>
z1>A1g$-8_EihZkk#zUlh$ax8={lRy3AICG7pWeGzx%+zO#ie3Dm_=K$7uvfNIVG;Y
zZoWPg@%XW6?jC5YvR<ki3%sl}aJw$bxW{^iAhUA#Q}ssa2Gv6I)z?U#{@0Ot+J?(Z
z75R@{Q`%zUxBBWMeqP?8mORmOx1-5<&{}gbsQNG<xM6#``jdde_I2af#p)4!+{|ui
zO=0H;SXH)iaW|<jtrWDKXs)r-Y?OjCcFuyy&Y``Zsss8aRkfFP<{f}WsIJF1<%-D{
zj(|~uZbhCTp<H$v(joLQk}eS8o;dl5AA6q5n<9n?d8eE?A+}#7v>j;ATVGl3NWV}O
zy4pl;b7-PZib~z2XxA+&|615NPkh;9hEe+xv%u61Q+%DAdz_<qVk#nf)*M=U^J+M9
zDpli4oUBpc{*hZxh%10I_QV>sS-<m5O=S%}qjZscp;hd)YeGCr<hZvRZ4*=4-erh^
z#hpZwpG4QFK~7lI``*RpN_itpE{gW>=GvnO-{W~~9SdbPOZ%_rt`qF|&FhLpcXV<`
zp5kBNw^J5m*hmSFl-=z-q|TU#ws#WJF^+$0d-HQy@snSi@Yiub&Pwz>`zJp71<|-_
zwXI>@Ud=g6Y}?8c%%q%FMA1sC`&{`{)CbRr&6lZ53r`c0xE6^O9-z6_SU0J$32udK
zeJ1kF@&RL1HCwxzug!%?G|U4rp~FPgdRO;4H|8#k6%=h$-k9n*l*>hN<}uz?nscZ6
zvYy4ttx}xHN}B5cw@W2LWjl9(8t^f&r7>`?{HVf`x*Fm2SNU^wJ5@KH1n-TH32)!a
zid2(f(IoyDDPz#JAB{Q;8-fZ^Ld<a2&!g9}$_zO2L$X-lm7Fv|?@4s{;W6DuN~_Y1
z5c$rBhWCQmu>H|U7`>yPY&895Lu!M~=QJO+<UF*u3&_isKsHZrEnQGihkta<sQ(8g
z$&~CtfXRfqv#*S|L=bwxhRCVxiD;U*!4Nas(@~07$cH!scD8afp9+8QV|}wv^~dgg
z*LWbFR`*~nca^^WVlF~<P7eu}Vz4Qwllv>uN0QN)+;SZk1V0>lgjtK9#l1gT(NSvy
z>8OIlN(2+Em4U@)9jEXsh~<Iw)4aILj7cPL98MOA4Q6dtHPlHcH>o=5i4R=31Co`S
zQ(iPnOu_rTE>COBQU|FK{rcnElxYog9QLA56OG<R_~MoblrVkT?k5XcGm!dJXMa@|
zu!6mt>&`-RGuyY48E+iGdhwK+sFRec5Js7(_h<{p5EpP})F!MyvigF?YbExfGS3z#
zJ+)k>f3T$+N54vB+&Si=pGLzqDp>MnOF}(tPHjpCWvSI8f6bP!)c)N)e6P|E+E3n9
z6=fguFlsw0PtD20P8@HSEN!K*0GRAKq%`a~88$zg0BJ_nrnm+Dlyu)fLCs61CYdz`
zMS?Fz>|}s_h|-`rox|nFOq&g2<MtoHN$lecC51Ne$1g_(W)JO+-%X%>lc*Y(T=;ph
z-6S2*>>KaU*^9XPF5Ep!U_y%T`<TRAcS;Y*wwX+(M+S;t_(=jr#e04_B3P^PH*_h@
zN+*0LqjI!%@QUno+TZa0f7p7*;6R(GT{p>u6Wiv*_QbX^u`#jz#F^N(ZQHhO+tz-+
zy{q=AQ|J8ewfbLIcde_hyW3I6A>m0xR-3ffD<)1(3xIw81TFn@YBXuc)^<)kEoT(W
zu9gPwRlNAd4xP2pG7P;6btrSbh0pKCGUKf4V~=z(ujJyUEH6^W=XTX!_57Q-^32H|
z$>yATwAq6#_n6n(F6h#awv+4M<4beXoIV?h#f0>oVxrq4U6Bzdlw@}GET-)RQY5DE
zs&fb}HvrEE1gP(`kU5GnNy#>Bv3tm!{_OGMrf(^AkXEt%UAD)!xBHY@*gwEJ;hTd}
zFN<21<yPRo<afQ=5+_(HQPX@Q+XQmYjyO2VY!MJjk3%@+G6g4C;-6S0gfyxw{=$_!
zCSv}r+BzH;^Od2A_V%R>2h*)z>C5)e${yFu4ji+8PsktUQQ9v-5g&YF^=eEc&!bMq
zXS+jOy`FMyV+8+Dgw}%>J9Z><PI29GE|l{S9-4jRPJh%a1qsc-M0v=FC-DP?xZhAE
z+^$*o3HbxQUhGkdrb{Jk&&xhaHWM`)^Ven+wB+yugHTGnG_@BcZ+!Q*Jf5F@-V2N}
z84&ZJ%AdacN&FV%v9KGDCh-}v&Q6#0j5<R0IwR9drdc8OBbb7c_Q{|9Xg~KqgutLs
z-Wv%%NqT*ZHO#w?&OR2V(2cZ$T_km3K`#>nYYPQl0+#-vrLFZ`E;-yfr2loi!8kAo
zdThTN3F@4R*8Py(wWxO6C$)xEoelLo6+juvLoR6NLtH+feeep)N4Z|~g+-}i!O*qD
zW@sl+<A$9(iZCLSC}{bE56(_!IM*14$^iD(eU;&JH09k|Ea2;Lt2C`Z^^7{3NVMqb
zcF`f*l`ST%tTq5?kQ7A1LDf7>#aAM6)HY3<c#XM13Sw>3C*_WC-mh#kdSBJ^3fxI6
z?W6zGGmchg?=1n9$o6$fD6;m0yD8M052)L&XHjDOa-!7qwx*R4v)${jR8Fq$iyG+*
z=oSryB=vv|(RCFlrI&Di`V8{X`0~tY8|c}$&G3G1xR|cCg<rdWAH$jC;x7MpLggFC
zpfSfHSg-qpc)}(j+9b0v=pW~%1lS?Ex)CdCwxOw$i(YDw4F+8nuOW&g<&T&Sx((PB
zj;gY1`~FmEAJ6{P=HKEpMwPrRy+2h8ldjraQlt%iO8sd~9}4-?(@GqYOa!(%4<f3B
zC+M$I$km4F26Hwf6xh{@p3jJH)oz0M{sYao2I^+w>k!Do)}*tr$l~7T0<hK*tdqUQ
zZ2h0~Im{DzhDw_;BxB9%fJXixZw0%GM0MHt%?kt5_{cqPlnYiIThkIJtP%TBs`=Ab
zYwq!H%3Uzpl~lT@OEC6++%zVku4UL@39;_h)t5~5a9_GbV<D=oPvnM$aezeXwt8q1
zb_;%)2~3EEkIXxaq1cV*D{$}Db&B|eCz}kG41?h^0O2tH_i}kmaxJjyArP0@5Oq=L
z&T8V))L`$5%Cf3K4qsXQN?v>!@sBE2e3fR?QZx<9M8H}>Zgdx$B)6u-ntZ+7eKpRc
zWn5A}l2f7wt!{kq_lI*@-9#`v;Y@ge4|!<-cly$myH$n*CSc(51V|wG9)yBRb_!&f
zzZ(;LjP_6Zn*C-N*n4|=aNZ0Z1$*_!E8eSer>v};RxI{x--g`V$^r7SUGdykl-Vm|
zi@<LV5=99UY*5BS8)+CgU(PkOo`kXwVRF+h4RlJy2s#@k?CYIZ&oph;#>!73%Up(g
zI3HZp$ZH7mZOhLx0GdnAUMr?eywDk;9;&;0U)S+Fk>A{!?LGl=3%7TsFL^oA7R3bp
zS#6Lucye%?b@+k(MXJ!hOaj?@PJ80GJDU6XAv5?a&(}6Y4!A%tDpcWTI5&4RS`3u7
zE=1;|NV}%mf~Cgk(RNwY2|3sY{Ls>!I3VdogMBJt&|$N7f%)T(Rh0|!$Jy+TSwSU4
zN+-?)7mCq$ZGvR;z{@0T+8xsPj+Y~aj~!P<A?<I)_4M&J#Iv!;sIT=iF~$GhqtYq1
z^qAISb4owv6ar!K@{eR(i+NMgCL+)xbc(U2Uw*lE7lSb_$;aimPwWy@o9Aoj#wKHG
z_6C)sX&R|t11Wm(uVw^(<w*I%(j=j!wd?dAoJ!lMUo$^~W-~LOCb<8*)xGdj!C$d;
zRX%3P5fI)T+pBH;r7^8tI@kxs))>%}N2eB4=)~VFQQC_vb^=?-%8@U}aWP8s9s=0{
zB5dFij<R|iF6A4RmcCk&<o=!)FJ~Ae*5BGQ68w4d2JV+%K5HpZT^iSi>D^WMP_i@v
z7OxvCYthx|ixUgsVvX^dniXRF+d~eStDL(Q+Kv%9RqsnBNcQCd7$tTy+7ZD5c5~61
zHfAxh-M|hTC2o_*mh&6=q%XMy{vCpBy>fA=G#JDy_@l==!i5WPXnKw>-!i+qUh919
z67cJO0)EmUC~xqRR%3F`bGz*NeO9S^sI!H|8a0I+^i9YIQn6Vr{dV5|jL`|GZqN0p
zR%YnmpA{;c{g_rxF3^7<g3nR{<3m{l?3yuzY%-WLpuVY)pvbC-&LAH+yEm%(CL*5u
zRUNz#D92ZL8GZ13oE-w}hL?j@usL|cuTm%^0F@rfC85fo^x(|&%#iUN!SWpgf15M5
zOzGl=k%}oWnF_^2Iwg&YMT~8B484MZirb{js5VmxE$!ob!WEBhl;@VKdZ=%Yp@sUq
zpOW0(B6k8As-zMubBwL0cgB`0l>9$q;A#-g$2d!=V-alXlj+eUZ<y7%DhL(kgyYu%
z!0CeMTJT>l%3D|+G5t`BVMWz;T5RoFjWEBdUcq3+v{ejZ2kfX~4;Xwcp4wk-dWtCV
zrrld;>zvk{f`4e2878LqpEG9Jz)Iv$S4-6zvwwsk5nkiteM$UTZH7kYGd}#g&K8k6
zQvPxn<TShT+6o5uN~L0-c?fAuZwsa$fU&M3ZDLNsLP*CTqWm;d@h6A2g#-+FhN!m1
z7}JYes6jE5L{dLPh9ySW_+KK@I);(>24|;qp0`gkvn_tohAftkga`_EZ~QM_d0`l-
zXSdB2&VOEOwJc}yR;F)shb(5%TL+)0>3I#asTBnm7Uw6Ya2w`vcB;yw4DeHWfX)kB
zN~hB6VrWBM1_8U(P_YYbFb^xetsTb_Y~xGjWkpvcPyHKFk`f4C-3B^(qz{>9>9@-y
zy;wj-1J%@n8dPQQ`n25bzrP2A?e5cjvb${!j^-+1@kzOk<?U$a`S$~toA#}qy@*1B
z-pH-60x*xUWW={+AwyN6OE_N3fMX7yL#1tKVpWyTVa)2-?zm3Q)IB$0{t|1ix4#B0
zCQL>Rax$B>pt&yYoxQi~^W(BhjE{YrqoNgc`%*$FQIrC!AE6f})XiXW%CLG@1NFaZ
z-oCZd2boAA8H@_OqD<;_OrHTp7j*6zL+d?0qV-8eC`g5$_LT3k=fBo4f$i(GbvP(C
zS@zw{bDRK?hE1;9T9~rV*H_2oimWb^z?w^QY-Z#RjWB_e2vFTljbW_u?+jfkzyBgo
z+$FlWuq`V_J&8u9$Y=EE;Sb6~gQm^3vqN8<jr+E)$zYi<B5R)rKDuU2)`mYk<z{hE
zKhvc6<DVuHMXkHwcw1?0fwYBH&bSM9TmzN2fOybUsAw`S`%n({GS3b^3%QAHDRU-b
zvP>Zd*4{DKpgeS5GtqgL_D!zFEerNV<>0lQvVJOCs;|;IJfwz-dKAZYoR7(uC3QA`
zl3>}WMC(0-wOo+u<l9)6FqL)J3MD#eEGox|X@91VBRWTzxIdODz@U@yv5J$`OUMrK
z9?Vg}3mC6QRBJ%YV(*IP)T~FOYRIfNxK#<JdwaER;y-bw&PScGE79aSrJ)NjmwQ1?
zJoi1)rB=BUC??}-aeeDyVdutyk69;XpLTAKKrj?2U9#_DcsUz)sHOT3ee4gWKkFLt
zMaLRP9@fHeigX`x088p_Ln4@vRf75^-nw<IO*X%K_)t6vr1GY#$a&a!L;Y7tR^2pw
zF8ObFy3HPL{ca})(ACKxvFWbItcq3l{8mxo8-M?*<%9Th;RFza;+~<cQ_RpRq4j8H
zXd}W0{{fF2H`8L~ddlCQ+~b5L5ZUvl%;X@wXYX<?;rP>sfaFLyW<|Oib8o`*brt^B
zyY#I%lb95|&l7g&$&2a-a-*qS*o|>O_!M<RhQ7YKuxKJBhH46}H)ppLJzR83^w)<+
zMO;EM=5F3;gKtdt29GRM-=N3LKPOj}yp!l!taP6J4H>q;cZEmi{><?4!h3yalb5YB
zhiF%jd)k3Rpdml3H_92@Ij#eIfClRJrja^p*EOZtMdk-RoU>_Xd#0P-o$s)rX0{n5
zX!h;!!GeSgU=gE#3TvM0?VIs9;#2&@c&Yw!)XeXQrjZTm<V{Jko8L00{lt>ex+0Oz
zq{qidbpMtYEm>^$a^FZE+?WvaF3?176ZT}CPz@{t70xp{i=%(8aeL9MqA~d_$U39O
zMN*9x+ALGKM6bpQC|%I;b2(7IMC&=QODJv-{{EVH)ssbK^X3U!|9C?p&lw|BH4>Jn
znlI>YDZUK~x>~50X<ogoe6%i7RPFvu@dj*EyztVRQ%d6;io;ad4Vi4VNM?mPn6(nF
zx{CAwD2WVT0Z-*$zq1cWMi454P|6W9)HV18z&2>SP;c;+l8OvhCu$@U@@RU!QDy5G
z{?^XO#dCe|Z;IXCS6?akW-2kvnre7o1XK~iOArObI9x9uR)UwqD@Fd8+_&PB&Vj27
zFpb{mjT~F6;JlQ=GZjhbDsHhE&$F3v31}AumXr6OetrbeqmNEc5GHwVq*2lkgk0_!
z6A9&~mE@nAZJA2Hh>8>7F(~h=Z5b49eG?Jw?;1GIKJN@1!@{%hCecL}8=1<*6|Z1S
z!Ix=7CegHOWT13fF{Xh1S=;KeGm_^clt%34c#$#?b@LaEde=7IL~LcpW@fe@6l=x@
zj+|I4DnPWyJd9G;qM0@Z6T7pmdp%$MmUWKt@At5$#jZeu_o^@;+a*X|efPnsLvNg8
zNq)c^`qxXfplzgvwA);%8byo{<PGE4s#o+hE_t3gst3EoI|&u&ZMFMe33=~nMStR&
zvyQ@)DrQcoPgc0&!)lJ{t=Lh9;IHumBO>=?JCtG#5L&U^FR==p578xbU@gYdJmeY1
zP>zVPmE-T}AIG<G%7bW2On)uxvo0|WR}dd2;I|?rm5!hk(9uc3Zy2OiK7<_fk=)an
zIklMd$w{)q^R_TbPHiX{2&K&0e0udid<$?+=EZPo>6QvABeCz>QjqyNF08A8BiwGO
zV2Y!0LvIE&Ahi_|Th5gdG`zeyges9M-!sGnD(pj<W6Ahr#jV%Wc#>fNNOu~x%)H$}
z38-%1(_MBEsBV9^#E_hhVy{R*1wH8K{!0{Jj!C{ahc@wA#W3~SO_(m=6W`?0i%OWz
zBru>uShOWO#oH`X$g2Ib|Ck0?cQbjoqOa-2XMJ50kZ)x600_`BACr*ZXvot&u~Nh-
z80IYk+m+o)PAr2B1B%TiUAdvaA_rJ=>G3wjMLX=K4D)Ld^B3ME3pRUP5Wb~$L4j?=
z*B1H}nx!L+Y=5D0wmL!Zi-+1g1)V|VLlIKD?W@vY{?Ff@WTo+tpk9Fcs($)+NLkCX
zOyF8*SXic}0k>2cvR8t=hSs!)W5Yf|BFZOJ0{oMUX4Rc1IDH^N9o?^f#cCOIV^WuD
zR`sE_h|2X+g*#Gqws0AWAgj-UJL^=^OqgNoNhcVjDUO`Uc=`ttDLFaUk50-6mGj>;
zh7UAu7p$deRhEAVL1%$BT;Wd!0Cm{gZ~sZq*163>ghYb=XJO^(`ER1>q_BCfr>%ZG
z(cc{Ds#JQaZcp(LtdXH<LNZOsRa@GYnMLg-n~(lN%U$w2O;*c0D%&r=&)dHiXlb%g
zoyu#=kvC1UhqtQ5CBRbXE}|Nuxt&Fbo6%T<OPbWN{Ba!cZd`!4VFdr~$KG-N$=vFb
zZYTjxND>Bf*_-y)f10%p7a$6#(FbAh+~Op!Gfhx7k#ko3XH=`Ti8tpOg`5FIbg-G2
zD&Qk`T*MG~=J51>iQSpQ4*y|E*Mrh%l^%MO?j_=rC8?G|46E49H}URTFPRoP!wcv!
zj~>=RFs@jPp}l~;WSs4f(ZPcrIyf%|y^J7%NIhd2+!Af*#JwulR(1+zYUAC4@NTkp
z)Ar@q>Om>6nanuFjz?&(d5)ru8W{tQiNB){hbMVv8E%mzN<j|v6AAr+=kDx(R02Hr
zL^0G))}d^@$;&FHX3Q5@+;z%#?5D1|k#Pdf<<rx#N2`HS*bRyG*KrZ1mxFr3O%m-K
z53A~A5NX8WY1Dkuh1IB-W^p^1TCMlhm?;4~cBzFRHvhYrpT(vBLJ6a$+9XJy+#O~y
zP`c+L_F&MZpz3Tq#H0U?3+YW!lF!lxHajNUmd5_1ejyLylbenm#2m;e!!@Lgtdg@w
z{<{bE0SE(m>pxm<i%;me(KQC{vIxl?Mp<6xr6<QCH-#EP-bjZ~EDhOE?`S|oE-4kX
znw5{5&eF)i>t;{&h$$nQjYICz_x-L2O@e>#`mTRM@juU3QXX9<2hd8o(!Y7@swv?u
zJL9NNRO5HFct9H{v9>hNm>UmDO;V@>O9|+F2)w}dZ0UDbh`*@+48_Gbh`LI~J&5gK
zV~mIWz?Y@GRezb*JIgwv!YH_M(*x4q&h$WCS&QuN>ngPeUc&rnIP1VV0?1UERLpyp
zXoP<DGnM~l06!V{7EivYifluEMxaTMFQUj^1h7%cwifXt#;F8<N0g2SMckeziBs5b
ze;oj!j-(3xDfs7UR(4wrzs)(lH1ge%nf$0v>z>C(@#QLGtW9ZDj{eTmG>K%{skWhs
z!l89QxA-~5Rmk1wBA0p=RGEDB@r18tDmol(GITm3HyG(b5TDJT^ITF83S;hQn_{Z1
z`Val~sd|3>{JKFH%_b)C!PMxs=4?-2)3yYHW%Tq6xeP*ugw`A}OP6^l95n7;SMSAx
ze5-b3KqjA0Hg%w4W~v8WW#PF$OiHjTiS22}l{&@@ED}OO%;Zkk`KydkgcSQ%c|0jE
z9{yfb;3h3(H=N4{!d-~witWQD8$w?-{Oq2r%RuN>bTBS%Ox>*xON@tbDSB>HZT|)u
zw7mS!CASWXY)(v~`}<Y?J40~YQa!5Qi3mnZjNG*UIMFnsxL}1syNelZbsnWLVQ5Wi
zO7BA=CDR>s^qq9<_)>ihLA!q6Jy0j`gzhZ#dAwS4ww=)xa}_bcNIFhoJSX`kR8{s-
z%51IZ{XJUL5{WY)*=*L6y|b**uoME|O~u+%yUQcxQu2P8d!hwYb&)Bh2JY*<NtY?I
zA>SzIJ5X`$6E#?e-)TEQbJ5x2oJNSERL!pm<7q$&B_38D>2>2P?f**d%jd@6b@Y!`
zX*xpNzRoShy$RFX3B!Kwn<c<?glkMWc<o^q-Jv0c{{0mjpCPM4rq$}P+3^fq6r@G$
zoz_L@>k4FQuk+K65h3bx%2<`bU+stE^1tGT>-RsQlm87Sf%jZ|QdKeitMar1hun9C
zJed^U&ii`)K&GDyWGPzK9m!t=+riac{~h#PxD+&l!Kk-o2|^LdyOo@a$_BqI@tIS^
zVYo`&z7m@81}{g=q9*sb*P8<F4Hp*+o99BAswiA!u~4b2WQDADJt*h)oHz;U(qw#?
z6);Es*_uePk>V?6(8qNkA+WF2E__=VCLV=%Ly9e(W>vl4kb@~JKG^&MP;Zm0HMz3)
z0-k8ckGUR>{L8ER`(&^$32mLhAm#R_LFzxRe}=-iBJwMpgE>b2JGcg-CaACCgJ4zQ
zigp9R+S!O!>=MLuSm~nUh=lYxtb=>ak4S0K4>(bkG43q>ldHpWT)(}=x$c-RJwjwe
zw<La}9rg(y%cpvm|CUFt{q?YjbMldzK$dt`Udf{;MKz1#n|7JlxqvukWJXC)VK77n
zO@%MJB#1jNs~E>j5eN=2X9!#AT#YlD+Qv*N$~Q)0j-3P;)6x(D59>Rj;QTjJsR<F>
z$6~%72iWrb+j6FfDVF}-B3~E>q{^RsVUVQxt!*qS;No^K>bl<&{DC~HOhqeE`1Q+2
z_57{wT;c_rhn8zKLG7Mzn&a{IVG-azKet>r&5*?)oR0M@uvvjgk-;V;7Lx_L%egDT
zHV&))NNPJ2>Zca}<)BsWetOfK#B?ne15w$-g;WDPWB3kVMkmQ<EcfZ(@3zff`+MMs
zbP^kj_lw4AW!ECTO5F>~)f|9=8sCANE-o<!mF`URJ%nOLymDj8X_1Wr1xFjIPZlp_
z??0ioqoJ*Xr!1hUP!UI{*PLPEd+~anBHdE$C79A*%E6G!#Z3(Iy{myF!PbE;k3Rm_
zZum==Um_pXShwZkd&u~4jZow%!XCcOgf6}ARN+;mCz;$cMf4*1DF?G`SxP_&asB%4
zdIuk#gH*Oe)Dekkt*i+%J$=;YaM>No3${98zG&|mMmZ3n(w~Mny<k~f4Fiqq3@ta)
zR_ZTOe}=B)KKjXW&vy2Fkv)Zv)_~w46zO7*EubX%pNrU5xZHS@+$3h^*pY&{hk<%M
z039}jdI>Ekht@mwt9r1j>13>=Hi9uDs@ilNhdZ;JFi~d_j+8Nu=hsR^YHAmtm}W+b
z?M%!LRS9fe3%BKTxwpEJbDhj#t5xtD(9rvECSe@aN*;=PeGu<04F357k+uQ2`MyeB
z69O=ZQbzH)vsvY4YQl$O<nT?zP4Uv7E}uF=T4xR(#C*pT*ENeRF^sZqIl~}t{oBd6
z4NU{oD<y0w3VX{5Hc^S$Qx5$~`BOUJ%)%;&lYx@K*!ND><3;iFL5)zRYTTEnnSyP%
zMb3T9o3sc+)BKNgXk%uF4T^>$uV7+hEeuwkn=b5@U#U5$LwHbroqDgj*c}cj;8xu}
z0b^OwQv^7b4y;aRc<it;vy5+=jEiHGDUDSGHc%W{O?m=2r3Z8yGK<nLT|mWO`D?4?
zP(bWY8|u`KjY9`UL@X@UJ$*!lC$t0UB~vTaFZSic+CCIb9oZ+E&!J#%Jni;38P{Xk
zD4o)ta<c}-uH;Y|alz(G_5Z*mHxFqQAHiwA<2i(!duwSoD-davZmn=8aIeGmqCqD+
zF!qVk71EYd4xK#XUT0@^EeYR{AyjmPJs{|5alqJ5h3UtAU$hj|wtaW-)wt)l@GK<>
zufHoqa)H+lnaw4}4WZJ=((KIxdGPL<!@%?q;e;IPB0*GGy@RclQ8!HRl&rv3u3{F^
zFl@9FbXz~&ADM1!UYzW5yS$#IrkS$hVwjUW{1>dY0;8T#`EW)jx<Q#E?3)FAK0vlB
z@6D(N(}c*WLwIUmC(-Oem7R3Ox}sNite>uxG0I@Kybcp2)2_}+f%jbNXU8#|WCO&`
zWw8ES9`4-;?pW}6($Q0V=cV%$$xYg61uEoO(L#gHew!`1@paIoqW%;1a;RU+G&O0b
z9xR@jV;U|7^QbF>(nzpwR71i)bU@A?d~fyw+OqMZxZ;nLWNDDnfxJFJEZo>%TtbZT
zV-q1l9Oc_Ph4rkMv9q>b?Pqj*DPNOz$3Bt!N#DR1^e!*LuiTjWar#d4P(sVC=#Spm
z7VQ(fk844uMC@)gx~>&1P(p-*I6bw$N69KJ{ORrQW+t%4*@!dphM`hQ1cujlM|NvO
zVD9sJ@pL;OBd3ZLO2PG(WO+L8i;yc&x803!i3QKh?g&rt$<m)4&Lq!U`=<vbF}tYU
zdUdWmRyVm*(~Dmb_W%fQSkcG-581`e^nb}NObBr`A!UhVVsp?4Y#|0=1`!5P25|;S
z25ANv23ZC<21N#C29;!D0Z`oJeREL!WC#mT5%mA$j{hIDi}`=hF4Sgw3(yLvAOG1U
z|L+zU$<p?qt^d{hkI(o2jf1iNZyXGfnd$$*!MHe?ll?3}F~AxBv$y{rRbaBJiq2$H
zr9Bw9D-7*_KETb*%%FNZ*sH6m-c6K^O?-b;vKAgc{bb<U(Z%7}yVJUBqI#%Au~R)V
zty0#(kX+TnfW;FvC-C=3P*$p6Dijel1H<G5xEo+*=ub(B=?sR`uCW?05TWDC3u0<x
zgWwxcPUjnh-ZL=TKQ-15Ou@(_AT_$)IMvnFIDsmJDt*Tfz#ujK;MPpV2>`hpqE8ZN
zf5s^qY64O9RHn%Zr~DzXvV@UyHw|az`*Q~S<N%V@$k)siGDS1B4MfHlLygF72w;^A
zn79PZ_$FX?bbi^6!JQd>)j{(;(_=0Ly(XEw5Nyf<Vaeg*&G-KV-Yt7v>Av}mKV9wr
z`*W=YVbl(ceg7@~%5JI6OsqWqHeOlhYH0(>1i5=M6`-5}iY>vu>EsB^O%E-fw-qfg
zjkIW#4Pt`mkOZbDhI$5`uI*{eU}z9?QsWZCOUZjSR+g||s_ltJF1iytuD83L7|Tj6
zM$66TzouvZgTjmfD+mY0dnXXElrQ7&@YL^{cM2{|cMzvktdx|LZPe}TZ}0i<>cIiQ
zq9;=|B3KYu9;lv`(a{yuug=h|Q2d=ixEioj(BB{e(XN9La73QT&%b=1GjBmt)_Hor
z9jovzK*V-|;4fJ`5V2VP0T_L>Pel7VFs#CFBwSy`Bg9TXJ@!-hTJ_*dSeq6^ERlZz
zUVq^Wv6BNb|CVqMj4|yaBxU<J6-4LjXSY1tCt~fl@RN%Ruy+j)qtE&dn+h7y(|yyK
z^{V$`GrWiRB|HSE@4Lx2zZ@fUxz1)wURTk5_qndC0lV$C=iN7(8IyW1S5r^&udbC%
z0%phEd)Gkl#n+B!H>3YopDWALf9tqI_&slR*LFXBR=@41@8~CYquG~$yUg#ow`ham
z|9Y$tX477aWzc@>UUjbNDWz`j(*rl&kIy`x%aTki-CC}nu-hyf|FtW=0y6L0m81Ww
zDLvMEsrtC@zWMGnCLwtu(0#bxI?-H7{o(@ftDfbI?_Rr6WOXt#e2J0)?~$$Qv+ugr
z#rI1{u;0E#H#Ff-MIF6M7P7gAU3)<+=rapb;Mj$|s5->(*d1_`xE<!(nQ6s~zJbdn
z#3f5=iBzR#b&C<EM;BTxvVB|qx@8f><0bw7uohlZ%W5!-C_NyNNcDo>VlEv>5Y&Kw
zF8FB{3~G|s?3-;le-EQlxM1z3Npi=MG4yP_tUoB4)sW^UC7zXbAG;gI3qjZrIQEBu
zY^gQOwQ96z{d1G8-0rHKr_YpnP4S7Hs5cVC)|lRJxM7h?gRb8&(-|hh4S9*<bopcV
ze!lzdV!DtZaM9VE!qPd7qH13s{Zjxf+cSdw&@k7jK(@*+S&K){k1#LRc?T~opHV|?
zJAIvOx#moe5)P|oIWDBhBAehK{?yf6t|0BfliQ$=G+M|rweM4l{bemQo9CcXOeQQj
z_&^Fe^`snJ^h=mWa8&vSuNTJJrdpFZzwny>GVc8q7GgFNcA8wz19%0(J$nH{qgvVw
zryz*0f5)@*bkTCUAx~Q4c6nJXP*}}RApdOJckbMBc&Nh%1%y;w`%8qaLtP5WYKs-%
zI;r8LfEH1qyqJo^fX}-qX!cqVZcqk_u$rwZoE~PELf0wMuZ6mK+{n-8{bDJCsEk&#
zt<F=G$K9iPr6~EX8Bf6%_F4e0*pgLO`#46YPE{<6MO*c;KVKuk!qjr>Va$R(@v!bN
z*Ck7R!|oUQhI8^njQdt*b01y6kzU3gXroG<k1Okf@IkPVsyaQ@t&}{37@XXiKmMjS
z5#@}{WPUQPbVwdCPj%Mdd4@o#lwz%V#`fSM%6c)hup2?(<srU}HWY9>UD{>a`#c_3
z1zoa7huTJy6A%_bn6IU_!6TR{T2fW;@n;bYY_p}&yNkK2hDGnpf8jb>=PBh(J4Lj5
z953@!HYs+s+b0#*rxnf@;YnD}*9dhAFAk64^FdlM!yP}*JF(zMqoz}51k*>T&=DHB
zg9zJ2i0PE<?90<vKn+M;@+VOjI)Ek@_+tc0va1AN@Sv?#$NnQ(z{B;eGmfo@z(lqR
zGV#$-<U%T`6Rmlsq<lsA<@WFehB^bzBl;c=ZVJi~r-XT}!}3WOaR@2ZQ%hj_TorEa
zpd$5`Jq>?&^_hdy7V+yf+R4vJxn`t#Zkiuyce~pj%Bo*|!?8g5N-*-UZmxK@=rvJf
z^*9#{a+@$#TJG)}%H4*!8WY{&`z7?6O6e}6Rhf7FzDEkf@zY0w%VG^^Gj=@oF)v!E
z0xM<VsnRPX*AOT~H+*F6^n_{f-6!m>h|Dnu-@i$*VC*9=h&}CZMo=DxoXO`8bjv8r
z3x!gy9;x961%H4tV<1jLx&S|Y5l&Wlgj#istybm30u51!b2wAtCTi+0^{r8(|4;xX
zh{wSEZ7&74mU95~{h$UIsq1@u*DgG=VgD#cF}&igo)DzqwqhuIE}Lf0m2o{l28%~z
zI*bESA;NZNKtvm+N1SgRM6#+L*U7Vj?6Jp~3V3%^djRXkF#UbUcG6EBXgK^^Q#QZr
z4F~h(0x5&_h^Y^8OmC-Yu2(!G*Fw+zEQCh(Ir}*9P}&dX|JYHI{{EsaN7Gr&9d5}Z
zf)z7{&RJjy==*u;EY%OgRiEj{5EwpE-+)oM`PZ@R3;a<6;*k2!k^9R$tFYJ(x1dm8
z8i?HQA2dKQ3#+VR5AXYkQ2%1rgL@s1aF@H#eN@{g(#gj?*+@A=dx?OYb=?!V{oK|Y
z-}vw?<fwN*`UZ~wSF3DIlGtMC+rCX>V1v(n-uP@v4u@1$p3R1V&H>&#I$KQKv01L}
zdYah|h96pJdp^5I3do-xv%gq@_2vOBBWM<_kkJ4*TPCSAA!wSpD;dR2K-)A=Evf42
z&6B+Ndwif4L?YtIvmvuTMhG?!(Uo67<E)e*N@(!_O@5{^=4a85c1Pd9BG+^syDr6x
zsMej+i~YqbvcIrP6viGI(GNXvDqL=72#rUieaAGZepz7c^DP6u*oBCHIGW2~{&AK6
zW<UfQ345ej6n^FWf}~N|<p3i14Sw&^-BuLVgs%zy&Tod<Z*NFpsKXSbOOFvP>-`04
z2h;T)qvY&nv@|a|;28SmmhsY(cFwT{X>f?6r(_#;Tbjsz;Ur(Q{r&{~maY2A@gzxt
z*M0H=LI0KDSJ=pqYKTcVlfOt|noZh`w%!bkV}x5X<^=x~@V_l&qFT8}U#{34deEAE
ziM&z!d{as6scB?xu#`u1l*BR0>fEMl4*GT;3;X>qwsY*F<7DW4HEBAB`B`NA(T2Is
zHYrd~xT;TFr0$A$ZgvVmXm-$R0F)|u&C-O5r<3CW;@wIcT&AwtBfgt+rb1lA#}XO9
zE_)LfK@rznc?coZj!m<u_`%T_u=$#&=dqW$Hxu*z?{pzVoi;m_?vZv)8_yu8<Qhk+
z7{jFXUOY1n?O`wC;AB_0VId7A19QWxlA(v=uIvWvrSkBm2%TzET(ve9>Vg2Qh4igp
zD!Ml2SJ`8<kL)i!zm7x_4b*OH=qgXZA#>CxcAZRKZO%Az3450dpLQm{M*tg2HP#&+
zj5)oeAk(#NzYV7*N>xl$p2#_c7m{0}a}bQmJgYE@_4LR|Cu)5Z5Jp>)aWufUC`Brh
zkhhyJl*kWFOl5>|K1FTzwkFTg!|K=#KNZ3aeQmLaUz_Aj7{h^%C8$N)f$IZWJi&0|
zvUxek9(4LXK|kxcmV`p6_vy-?G){(-aqtko2UZyj+d4}tXdC&N<6AIlIEt0y^D8@>
z-ls-9v~>eMB<60=JJ|^V#LY&};ad3wKsY&WruN}A$dF#{u-(uS+46(4^`;SJLWLQ9
zk-^ka+f_{Uyax$`TH){fDl)*u56eN*uQIV@M1W4X`H<?%+LsvUNHRO5_c8b=XUeH{
z_-<Y3DpkuU6a4z`_t0*}Q?6+8O!P*BR6GPn<R3C8RqdVFgj(Aqvu+O#X)@+;(}TFz
zhsch$0r=J2-%=;U9eZLky-+Z=vTS>wdBr3nkILL~bbIE5qG3hBgR+3GEAOqhI9$r{
z!8%mzqkb!$aFk!p6K?qAg6x~uUkvPCZb{S$Y}A4evLLm*##swzScYTgK6WzoQ{^_5
zv>`h=Y*YFlj*h?FsCB%4VOyVAYi;AqO(xU38IKkGHZ%aUWT?eb>ZDcs11U>!T0o;4
zh|w+|-l=el#<i@mw2THc*Q7kqZ)H!k>Wuf>!2js<oSBh9pLb9R5~#t_nSVxRkwl79
z+Kiq%)$>x-v1Qg;86znuL#6Ur94mn)k7|%1xm4a7x|}T{5$1}#ug6AJ4xEj)OmPYF
zOZafmT%*}S8p{1p<xOBE=v5H3lO13A?JrA0cIq?O4+bf7fms6_Zcl4NU83FXU8IDb
zB{kl372PPJZT#9nwhh6=Z?%5blaH6goMBk-+yaE%iJ8_O+n**xA>`#b?5`OkY$Tb4
zS(aM0v$X4bsOm=hl;*_XvXK*=9Fs75y1DkH9R`H-sckJf%rzp^)C;3SN1(ymDWbRY
zJAXEM{j7+tS-%Fz&9few=U;bg--U^oq{(HO?Q@8VJufA(WX|VYlqSnPHSBJkdxUdd
zj}yA>Jt_wC@FfuqzH@Lik1q_P>Ob4CvMU<tLmj>$+XyZmFT#o^USzD*guNHG2;#{D
zKQNNOgO4XIXReZok*G%v9hE^hjTicAt`w>dqrc4Ndjx?nto?fR;$28(tIvOZ6eR=g
zBJNBQ1(>mPfI>aNk_kPJUXijubR6A_I|NvD)Z4lEKBrFW($?XR{C(RE-pzgUjJX)C
zyK>ga{wlvR3mzZmY<8mm;un9O;+g53UcV#DmaC0QnEZ=8?lCPiT8oN}L4)GOb@R%W
zG5@K|g>eg@Obu_IbKrS(S>q_1;PR?ot_fDjB%iUE2Fv4G@A${m<YhAyc_yHHoSL1M
z4ZM53t3_xK61?hqku5ALFSF?QlLq{>{hKTyzR#YFb%Y9^j3q`|l<5ThstGO={!s^u
z!p~=HQi^J1CaN`I`*wkA&PaQb@8n_=QU?R`MBER=Bt|s+?hs&T*<*ks$B0quG(@uP
zX}A0(y<r%`lP{jqxa+oJEwzzT!iTp98RUkSb&aPJxtM6FO+mXt@P3~rWH+4m8>ZHt
zNhVd+nC!3#pO96-wtAsD76l)Ldh3V6Bojm;S#c>jka_pLVL>BO^brRAeTIfMOd#Nj
z?mP{sb_Bk(uVn@Pb5<Yp<wO(1k|ow(%Kg0>z1pm3Nivz<S6ME&>ZvkJsTDD$X|n8w
z(H@Ci<&lv2fJNK9N(Q$5YRx$BgsFF&CBDR`4wjBPO2DAxBG5qNfECXLek@&ve0dFz
ze5N@@|MX*bEQ#~MI1}Y0)`+|%=8>J%4-pX<Pee>eq8cSk09+v{*U{2Bxn4>8QL9S)
zbp6V9dzCGS_3|H%D+!k~mDo}WhKl&sqZ+E*9G;70Tol3{e`07g0K4bfPVQ|PeP!6r
z-C@6U_yeuk5|Lvntn(7AKj^6nH=+KBs_!g)O`xegb?80J;+`rwn(oBG4K#77UEu+7
z4g=<{DT5OtSFE+z?AGM9Ss8upc(XnaVly~;Zb0~o>lk_Bv`TlH8&0lcsUkQ9(a<Ly
z`Fva|u>lA7>1Ev&8Fz2o3dvk_^t@8l#B{fZ+Mj~rXly#vG+6c!-q?n<Vq;w)7Dq7k
zyL13Mbb9jV&kok_utiRt?&-M66*QpHxXJ1so3^HFPVuZ25^a{^AZ>r*Kv{}REL+9p
z_Pq_nn6}{6?srWFcgK#bCIwzL#W24;#u~>EBc^ct#HT1v+I3usZv=P(5UW@;Z|J8o
z)`=z`>jq1O`Tom42J&9Ys(REl>SxJLx#Eg~g(vw>jY^y~+(Ak~7)=SBrIi2jDZ^q>
z1(221k)gEExwLf+`uNwodNL@b!iE6jdlGa0kETgGAM<?)C$Umrp6v1#mI=xzroapv
zS@RP7VMvYL1^U_diX1syb)zo*AmPIxh%Lp#-~H2*)s5$z+oR)KZ`QTD`<T^;Qs`gk
z+Zhql<B0nWpRgCTH(I49Cqlr!7K&eZ?~hCId-6yNZu5m$s^?u)$}QEFLZSNEsbmxE
zp-KDy#BN2=HR^vR6<Y<Ksz{u!l;}*HTa}{ek%dE#L7Q~P{g1E@<lp;|_`Ant`L!3=
z4zZ*N<IBc716KvwB8V8a2@IAez-L&*(a1y-^iCs1bSwAR*)UW06f=RkA91XL^l{Z}
zE>U$^Jq%sxv5HHHIBSgVj&Q0q?T^a{4AaiBW#)g<O-_ogxMd5hCKZ3&8JU-aNo=+6
zT(M95p~Bv0<&*x!Hy<E<Kad#Ws7n-L^lS3h+_2S(e8b4gW+;!xI9Q4C@5=Sqo<CQg
zx#4z;r_m`|I+k8?Fac9QBqx$ThLRlhp-x{lDO$UNi!TG;n7x~gS@AqcatK?$IU6&w
zjr{Y{AL;okCFH*s=`0-C>(iL}6e~Z;l?|kED1Ow7p$7#K-|$@=?o^IzqGDXp0|DFB
z4R>3=D1z9}6K^8+a96#J?^*OJzAU4aOG2-1mpsZ8=4uzmQsDdmL>M){tCH?e)guM3
z$mapqs=Y~1W`O!Rk<~v?Q3`>jZm|B1c7GYp>n=ypr>Hk{xkAJC3UM96Xc%+Ir0l~{
zN0%NCQ_vb56t9H{lEdDZ1J?@F2q}YEUHrGp!Gix!KLciNzb*VrjuFi>MNM^vQHw<~
z2q)fk6=g_YLsAVuHr1L<$6t;Cw#leOp`x?02O7RkliO9bq!%Zo$_^)Bf2Fz3iFy0(
z9}#WuCA#Jdp2cZjp<NJnvLZWstpIIFo{ubC)E=(NVL#GDP~O!Wrw#u)Z>4t9B^_jI
zgJ8-u4+PJ8ahR=Qp)BTIknVs(E-gP*pdw;hjLN)v{;(B*DY5eQ(MiNZwe9l|<a{;|
zd^;Q(AIb`s>;!3F;aw-FA@eR}YueCYoj-MJ9+Y0zaN6_neu@h@kQGG5x52TzDv&*K
zxsBXs>z12C%}6?|N?rn*2%E;Hu=R@0g(dN9cmHz{6C-nve#@lkt8ws)@%aIw^i?X!
zJosnW`jQ7gX^!zIroZ4|L8FaQ__a^XznqL0?s%ih33>T<iuSc?VJF0V=l<6uzQx=A
zB(;f6*YZf&iR%6i7SAMehqsj-JY3zCGQODnzm~g}9G2W6fo_+ke>oxKmc};!<=ggb
z_A^#c9h)9_q@Oj~JRzl&_IJ4}V@V)?EF%+ZHP=l6O0E{wyz6AhA$CskorIs>9EVz_
z*%4Axy0rH!bGRHfn^WVfaWZ{FzcnUt3rBFv?;rVs;;vTDijl9|$V;{(cKvlCN93iq
zJ(Jq1^P=hIx=Dp6HlFy#B)LQNP3giM-=z>U>U;STAix>welQZl710xVK6BGu7G{zm
zsY{{)G6Tr|#RJemQ*gP^e!EWNmf0h@N6qo}S4rD4#MpnXa?ns8YoDZ|lVBNxAk6Ik
zc;<55KdOk*C)VJG)g84gn{M_Ej7J|M@{pNWKc-M)c|oLF1wEJflM9t3*=xf7-dx=L
z*obQ%x<<qe9jCb$dL3gH(o{OfHGje%Q`xQp;%%ES5t=ht(lnJ6D>l;`7TwtyD+U@=
zbG8}lBDFYbXpC#McZCivV{w`HbpEPc^s=$ZQ$KmjX)l2klU8>3|42;6$)GJYCu4EG
zq-M}S3=8Z`<A(?t;F!}2U4y1+Ua@h;3YHIRDE7stIvB(7@S1zKrWosl0lj|5D7Y&G
zVg!vQR988$Z<LSc@5iym1K%AT22l;-7Aj1AaS14){31nKk2D=g2+P9bp1)pnX3O|C
z-~QZqR3b!*?|-mB;B7Act3_$Ga@dw!d7}8#Hntj9e;eyG;xz^P(tzhFh?))VtKLkW
zYpo#NP=?}bMS0pjaniiKmrzb=cxe&_-YnnSR#(=e(~?*mYt1|Sxb?Zj*-TeE2)bN`
z5UEw+%4b4&u@J~XDI71I2y9T$QOmQ}$5Wr2T|z&kFHJ<PeNK*I9CSnUz}!JX9SU!o
zre_@q&te~-Xe`Yi)6e@#eN-iiM`3QnjB~aEiSbxMqi95~{&bXG-d_INLL6ZOHtkaW
z3)s*}+A!4Ok)KX$J&!^bCa=_i?L6wzZ4N+;gMJ$^SFrg(>*-3Qmo+TQ^Vt2o9$YOr
z$(g*dS=f+VYBQE5q^2NVyPg6UWYKaQWBH(>=?{OdS$x%R`1n)Ls!O|3W_~!%dJiat
zFwp-317Y&MPQ)+PawYLj0!hmS3M65L*SReg-iwXH%Yxb++UZ7nRwtdJx$3bb9^;5W
zd_-u|#$7n~B-y>Sln&Kas-3i3&Jh}Ub&#Ajc`?#yi@ZCyCQ&VKfAx4keVe94_pE0D
zm0|;bg%tFcaEsJ|eFwUPU0D)Nns-|CFUk(uzM1g=LX63W2KsjyPZl8nKX~3DHl@SB
z*QtEUi~qQZbn}nxGlflG^#epI-46)bmAgrCJ{IjM{JSEmg0LSJ#@k<*y<9)sM{^K=
zY7oYi&7|9?+PoGM_9y6{HtCCB4J@iO$Q7+0^SO9wua>#p)-80k6G+nhDRFOPG~OIF
zwnpgprFJjRX|9pRs4o5qJYLocZtQ43f8>m36V*6KvYWDDn7vMB*OIyIGrrFKGt5}y
zhg8ons$VU)LR9X5*hh-jz}t5<rv#O#*b}Lv>Y^>?B7ia7D6M7rXBC&GcYGcX%cbAm
zk`Kw86-4jOAJVz{#IH93BWkUV_N=$G$bzdyV``rNU)E=7jKzEofICJ+Y5ohJwF%{D
zhyy}d&pVvMXQG-P6J55yePJ-+L+ae;`e?9iM>=WS)PLcyv+fMiNbC}lmt4~6TSH*+
zh4f;ix{Axx9q&s{{??HSWiCZJHNN*;JZRF^hMsqxJ>l?C(-QYI;w||cf;TfX(G%M7
zS2N2U%ZjyP#LoB(;3#ia#Jm}3mEY~ZfV;MV;q|J`<{f1YCdM;|7%Oaq+(8e(7LH#j
zvQal-=(<+ui;A*B!6VIJ@AnY1rGc%v{)^i$x8${bCDMp2TfNO3K1RhqPOC0okwPYJ
zP;tJUrK@;uS3HoSO*7|h>Y}eswJuqU`g@t1ygyEs=G6ZNkV4~O$HA&e7iB^uj8eJH
z9$RICHd10jJ$uAX_d~GAkjIVrQ?n?e1GvmUa!hsw<qqAj(@%Jq(0`xsOfUzX&g_A?
z7z>ipQVZ}cZAZKI%EPw}Au_l3TKH_WO)E?WV08C{8J#VHksrp8=er$a9YvR(7xn4`
z5JX)X(wG7ON#VB;`>lgoOgciYcMuLSeUs$!DApbOVVD%HM?IMo?~idE61mSflhrpZ
z5fcD4&^XR22yBrQu_!P^!i`&lo9OD6f}+2CCT5qp!iCvGFfM|pV5o1hejW73MnW`_
z4EfCV3&u;?rlOMI)lN@jETsL6L5JIUtKru!?`0Zr%_b7NtYMo`yTdH6F(tb4yF5qs
z3oDTeEUxG3#^Ps{1)19sW>gb?%=EK?LM!2p%SMxtL6$&M<$`~p0`LNZRH17O&a}Bo
zlg1zx9=m{3nV&F18MrfxmB1pOh~aLpU>G@KAH=slL@F#MT2=z3rfnh`gQWV9<BY1g
zf?o~%Q5dg^-DfxEB43?e_-_4Raer~G96w(&Y=zsmi6alVb1`a+6w<reaWiadpAHn9
zc>4%XxWCWDHcPaT4yA?J;S4?X0Lg@Erq)YCe;GF^zhq?4<B)>KiG$le!RvdRpWjHb
z%!+rffFi6s8e*))&_R2Tb%I?@`Rj1L`N0VMTe(og0o{$kR1z!k_Q}Ym0ZTu9-X%i~
zbliNH>t!<Mq_O*|lX*ue$NQw<)<Z9iNpP09D1XU4-}l68<$rL;O8QmP5<ieM0OvZ8
z;@LyN@n=1!<_2B=%^;!%ay0nODF`i#Cp-G04NY40RLrNVwBBNUCqC3<S}k?|iYN!5
z6bmOryE@lxQm!VsQ8ueq^(v3g?C$g<g5-3$jIJ=pnhVKB)M>wCG+(Zh7`~R;E&hXH
zpV%o%k3mwW9v*A8WI>>R5Q4(USEQY8cEG1RA=}pNmJqpJu{}NeOxvfMe6VkC|3ZGe
zE!zWQ^Q;y!X@o%81jKqJe3{FApf3Zk^-yi)7IP(aEAMpi9PV@Ex6lwI6L(7GPXs2E
zL<GCCQH2G#0#mp&WxQzp@^I1XKC2Xsm5d?y>XO{4SzbwJ6COP^)m!L#!sy{a^ITHH
z@3d~S*wVy;{==dxH3S|{@08T%MXM1pk%T4m8Z9rWC|6`#plaj4{E8p^rzQX#C3nql
zgCcQ4MH;j82+M*S)Y0_%MN66{F~X`oH6<hU9pCk*M9F_e`};x&^SHb#-WTGMS<ssN
z{hVAqJH^x4xz654H4&#U-3Y&yCnhj>ZtLgJVe33AjDiRT^B0xOn}$)L&<;XYUR4dD
z_9713O`*yris;m~uR?2&3#0)ZD#^|gPd|dNANAv8*9W$EbrEO(6ngvW_|&)+0^Bc`
z<|y*zs7O6!gV)I-+834B#Mh?y-4OnQ7jxX0Jvx!T>Y^5GV5vs}1DYUWdr3pgWlPFa
zIQQgOZW(e!98EVtL1%x*7#Ze9-FnEf8}u=v$o~?K1x1)c<HcVWY5r%!C?#6Os?NZr
zQ4Z1kQxqz%@g-q)fp<0z{gz7xYJCx`3C!|<q?cEx^J>r4U1`4K6B`CY3nHGavN+4~
zBjKuIQ#r_64x^5xWbH2Mi8II4y_0GxM)>f<dcWO_=ZASc4L-_Lv1C(nt({yRH^)vd
zTcK=QE!*2xNz^doFrWa;DzoT_5pyDTRm3*edpyD;`nvmIszo!gl)U=@ME;odT6kl=
zp8Ckkovt?;T#Y~@L5TBC>hxK6Idg^-XAI7+D-%3zH^Wa;`hsS-FLZkbgmEz4&eFB;
z!z)T1d1r24O3#?zCNLd3z4B7m1l;5VW*9;SQEZj!4R9KWmIi<mzDFVT2DA8{F5fwf
z@1TQVL}xItAsJoqS{P%L#!DbOGT>EOZ_^ULoD|JCi1&mXzH*$%>(nVMGiMK>j84rd
zlLkru?OQ0bDLf%GSN>g_-?>-HvI(X~hMup92*A`fa?nQQ_BeM^XXrT~K|WxEO#2Q6
zs+xbp)V>S^T>*)R`{oFTB&s4@JGegBoow#2`Vn(3Q$FYYa2eQH{~#}>IV(L-e;_iE
zi2o^;B5YYLq&<Z0iI2oU(5&5{iY>9X`dOi!n1AOwG#MFC`v-~XS6mg9(b;6eb}YK7
z3gov=M#rA(siSAOitcOyqvdX{iL~#AW-24|=wc9#z7c?CsEDz|xI>U9pCMEx%15dl
zGCRFNXBk0iV$`2^ZiWKhp1b7_?x~9V@UDIt;Y%)2Wn*r$+zUnm(%;8lL&Z217$vuL
zjKKaYF`zICZM2g3)^4_lpvy$`$jjD=E|%)?G>9a!qvLy>_{aXq@6VKk!TM`yUiW)S
z-#Vg~K^man=k4-e9j7*t*i}4%rBaq{`KIrAQX5)??)mNMA8r#@$c7#G{*dzaPUX}R
zwK}Qr<cKF3dSA!eBw7L`ZKATSc<XgRHQ!2-S2ik(2ood%?8#Bsu}_SCP_(|U{Yt$e
zrtYcLCm%bV!N)=(=#J#v9ix(iaT(qhk^1&M8C4)&hP}#}KGzVeTsbl_g|ylXnF4>Z
zQy4m9Ft`w<5IK)tH0))e>T%G9T_+qSkRs0Jd)>*U-BrBKGw$M9n^SU_nl=sZxkZ2)
zg8XN{({*++qlyEQspY9!M`_)wLFBED_!?5}lrUsHwkpP7Ls5ngW6S@=);onq+UQH)
zaWWIzHaoVHiEU$I+vwP~ZB2}clZkEHw)M?=*52RV`&#c|A9Nqy|GTT|S4HF_gaG@i
zWQM}bybDMu1_>oRF(gVJ(C)&kbeKw}4STY3E<OE_fl*qp>=_vz%!M0}VbqI_;^VY)
zf`qlJW;+vB&cD;(H0T}zw|mJif_@|AwnKyTp<xWyaCcxYX1}fd*|u0n5z2PN>LH=c
zk5T$<!D>=W8qFRTEK-<_cPUZ-crZp}bFv$E004vm_ooK8=nqG>gf*Y*aAtTHC;xES
zq*6s@a%ex5LQiBqZupF{F5Y<1v7rb5g_dG^qajjp{~+<UA#5({S227gu}7x8SGM*5
z?ZG&=XI0GpcJ-C3NRi?td;Z(xu)!!R)H%$q%0l|gBk<rPYlwK|mBx*2*?M|4=^pK%
zVg-n$oL$%EgLiL{<Xu}2R_ca8YGxC68azh@Fh@L0^@B`5#QC+w!f0U^ggVms&6huf
z1m@l%I~x|ppH)Er#8;!K)d&WllU=;Vql3Ic2~4RdP0ksCs}bM)fj^8u*yMMAlYClu
z1~Z%s^ObE-6yTXTntQGqDHV$do>NF?>k9nPIfWA5B96T@p)2oBE=2Is>dE;WJs+mQ
zCHvjwiS)+#j%}4;!Za}T%0|v2;AjU|J-*3(CbE&z#`Pt-3ccMU6TKzmq?cU@dETSe
z+TD^5qqxB;sWN&o5JGixNICd?q+!KdW;tvhzQaUMJTLZQ;Z`1L)_p?D(*hw?LkJ9+
z*miJS#aiai6cTWi8U%l;M7C@+<^9=9(6NfW8_9gj(o^d^-BLR&=RS>&Oq5BbpxfTO
z!=-6pOOg_iF;?$~syR&&&++D>TJ5i~KH;cbu&{Z7p9dI((}!N!xNkcc=%v?{CH8|~
zP~My@Bdy;!nX7t`tf;(!5h<ua90y{b!sf~gOUNOk^t?kV!=dBra?7IM2pk7$i%yi{
zU`^*WkgFsZNj-9JBEWbuJ=Q?629S0$qKeg5jq-xVIdLhQ8+SO%s(M*B+~RP}j4^D)
zawLce1h;6*GMKUk>SB8%!$Ova*c(`k@|q^=%$!g2^=D*;vg=y5iMfuF7XSyMze0-t
zki=NjNL4fnzP|_&onU;<t!+}z%1ZCEy{-C8Es2Yec~!44&jyA=)5MDy+z_P|i^!>%
zCGl_P$%u{m1(=x;o`wy<idaV3_y`%X&&A%q9n8->fvALnP~vKhP<cw2C1|~S^7lIm
zql{{~cKBGd_P(J$P{A#DG6T&n0|%y*68!tnmIa=o6oR4@JY9v$qTGRxW-lLFh2$+J
z)Kh5Tq|s!D_1}*%9nog&Fw0~TeI4+oNQaLn^iriXO)XO)KooBYIel9Ujw73@09+8Y
zwp3hjNcr|Hi@BgmDr#8c$_qxuCB6%T2<@0v<h{o^b&DINU#EW_e1SP`FA5=|qcl*+
zlZ9g$?Kv>E%y~r1MM!w0)-5<#>2$;J9#O7+8T^UK@sU|JWHUkb7%SxKigvT!u=#}8
z<w89Dv!}WQX2ut=Vqr0+A<IfMaU*A;7kWDoU*kjAu+r6Dm(o@1$Mr`x&3t~==j#;i
zi)XDmgZoAz<Egr_hCl@ND&v;$NR!%kDD3M!mJeMNsKHSES;OXyfc9Dt6TW_Z{RG@I
z&7nnXG1UD-rn4u!ZxfD~Y$ChHWVs*GcXu_u+?U!^zx8gkM}N<8R0=`NH7+P+yBgkK
zJ_@3lf*FXcynItK$;qIUI72vvgo>7v!ea_0XQc@V)QlnD4hEJAyS~KXo@zRACDX0X
zI@!AdV_yJ2;moFXuOmd~(8~b^aLL&H2YlPU;6+84qCfordhREC+ErB^$Xf_ku89xR
zqZ-G{mx>TS6fNT*o%j3`;L#WQaArZzoP-o}v96bQU)rwSzNHwhE34X;YMV5Nzhl&!
zHYkHEr9;@J*#M)ZC{c}Yrnlg(U|Hd6$mrIov`;05RUArKRxC*S1=fLCVd36`qYfYW
zKV1gA55J!0t=9VaEgJMXA-W=I6EVuM-p*zkuI9qv<ym7g*`T1+-Ec)02W_;6(L6M8
z<+@5-8SSKt>ytXqHmF5jgmGKhFUmHY&*mDT6T3T;oq+`_iYZFBV`UnH<a#s$d&xT<
zms1lB3f7d#<MB=>U|F$r^^J{g&rd&$JJYqg-{iY8Iqlc$=XQpV!<exTNxO+1`Q=J%
z`7$5WzbUfNG*bOgW3XGv?UlFFk3D<=I(~VQoV^Pbr{+_@sk*{CF-d<&{V2hF>l%R8
zs*~%xC<JPV)oOXw)~Uv_Yhy0zP#9Xo(sbeBi(}_x8KK#w^7{_&^cdil@x;(L_C#`a
z5NVTrkJOF|Qw=T%!cy9nTD>dP;~K{xW+JtgnRa6dV&>%GhjL~^j5J^KYLbRBM`yd}
zXAPL$v*OU(jEnpNUt!<W`ah9X7-PGimftzq+5RU`3Z<f=A*-aBx*Y}@3l#YqR+aiE
zuBrsk1Q-H-0)Cn}8v={~Ms_wfh5%!L3BVL!1~4=H*C#Va6GLYcM}RrN0$>TS0$2mA
zO`MznHUL|I9l#!7Z{lcSXAH2n0N6WO02~0007r8>fD^zO;B5Y{A9Vq^0^9)Z01trY
ze>WXs|5J6y&iWtOR`!4Lu*e*&|EueeiJ61>pCN2;PDbW`R~;sJ@y?$R3~i{ft>_dY
z+~n028ji#D!<Fg`{WUh48Y^GZx2B#~nEJ7pGqvkc))>=%*rL16SxXPERw>t&$^LFN
z(ac7VM~g%c=MyPi>WcYz>hS&I-MV_Z^Uis?^YGOWDd}z_9f$p)<Duiv6)sp0ISCg6
z4LO`5N&*$>0z4#*137TeB?A2kE5Vw<W*=n&PJ)e8-fWyeFG&G5*+E52Xc7twGP&Zc
zYYdJ@ip)P6(CP>JtuJ089U68Q1V{k;140<ge&612>oo>zJM<6HJ0}E%fdm;yAsr~p
zk7X)Mqq>;=UidxGOg9@&_R|k4gq@+`JP=#(IkaISLm)vaDFh=*NZs|}h@6Nq-4|lj
z#9>VxUJM6Xn{7A2{MMiX*(ma-dQW6j1Uiv-&vq|NZo8%@lE=`XpaCnp<K4Unh=W23
zY3hWKAJ<5PV58@fxRK6`JA`Qgm>MTcASctX7~xJ|rlj$WjlIS+c%V+8_stc7tI=SP
zLJg517BCoOSARD;<6fOUGAwp5P(BQTB%Ta)wCkxdPS$LujgBD7am7!j4hkt3@f(w9
zI(oV=D5V6*L7xP#;I2sz1_XmV(HfX>FIfO10b#>u1sOB4#-CqLjKJ=|L{z|MP%%6s
zrLu8OiW;kd2r<QHYz+F?5vfk^pgsxgt`C05D6n26&OIm?`~0Zxe3s-p&Rk{UF*+gx
z?U&=L4Qu7;E{Bk6u$|=|-BgtE!pIYRoA3UogA{prooSheZTDX9X2w<m|J>V8;4cK%
zkxGD|PzJGV1~ztv)dg9TK_JRIE`;tci+1L_ee*SDH_B9ZIS7^@2KNS;X6fBDD`L%T
zejt(_T@Dk!qlI|kx=Fml_jfOl$(_nvE%45zN&cBC&C?T#&vq)n<Kb$<!Fqf}%Y490
zP1TfB)Q{=3<{61mu!kj*Uum)YHXOHDI&eqXIaB&vGgvk0Capfd#}{sDFY|f0WM9L>
z`EIq)@PGL%&-!5b<asJ>Hi_EgO_emaPy(MSEz3JgJY0T=*k7PHHGXz%*njM#tLO}0
zHd}M#LRA-^fNhY3=<WIeby@kj^PKbZz&#2q15Ev9>%}hWde6iT#w<`%XG8bZ;WzYA
z)&tcIFBWYDfS|m|I}aw|ZL8%o6zz3a{p%f3xNQZlT=iKh6H5*L`43J>3C;H`i9qE<
zZ4t^>oJpT;Od*8(ss@`1*@uoUZP5YOQYBT}nhm!f_lQAwxf9|P5{$Kd*b|b^0u)2z
zO&f6?jaE9@I8gXoB~ISs%L(uPf2T2QrO+?HXZl%7HX858dH2Th&xsu-%KSU~>Y&9P
zSB=E%E`WswVjMV_kz(odcLXaFpFl#jWka!YbsjyMF4ewYeC&s|lBzGFr)6K+3>MRi
zyP530s-H6!qiuwlqNZkWCncDg;0a@HEz&ea7@OK=R5Y9o4*kc&rUy3^%DQiHu|RgU
z&bant5Apn4*NpUvwAA)n!5yiqMO>*{M0@^;24cPVXtGjzTU{<w@kW;%d|>0E22-1j
zlWVU*@X4l={tBO6nNp*|8Lz#yB02jilFu;LgOpIPt?r@Yb|iRv^9MJ;Vpc(JAD%B@
z{>&#!YoW@D?2vGfTtG%F5L(?U)@S<a&aB6Qx1mjA$hAN)e|mfR7Oz;h14+GZOg@we
zHd#eX@y}<!vAH-efjjI;7ZCIsu)+01_Vw5A1T9`4S<6*5>D>9u#bZfd=CUfSB;&ks
zr$KseHkz^fRv~h`6=U(97PKaXFLf;`0=dw+LSOB{Gh-T+@R|W`y2dOOTsJ%Z{SOy`
z=8ssmm(B$e#G4u5u@r#?9*V}5d-)NaPUh7xcC0$+AIFC_t~c5$d7y3$t!?SVcuqxH
z*AvX<+<-5G+t<rNsU6yelp|hM1geI-Q`##BR<ak{^5ezAM?m)L>FyHyH!tR~er=_K
zvwpH~8;!kk9s4C{QiHfqAyLu6Mo~o;8QMA7b?tabYG%A_S07V0@V`@C>n)pbDI)Y?
zhYLEYC?nkt+r5@C0l;I)$UBGS(k|rI?4#fM_`TFN6PNExGeHOS*nIc{UPo(KIFf<N
zR9SrK2Zell+L%=?Ypf!lZgSyrTWj>vTL-f;fw$awMDMvP@Wq?RNB!LJji1A`S~*Dk
z96%jjszs_QAwm@1Orx|XgrX!uIM@?-xiO`Y96k^CWLrNIW*~`hdkqx1Y-DmIe|Ir5
zG?z@#Ci<n-*lqhR>(x!4d=s0s-F?98p44pP>_#>RLlTeCJ|@?uX^?*gUj(Qz%|pTj
z?5aVc?pNc(Fq`M==zO>p`ilj(<?>K}uzs$b6G69&PuFAU#n9-Zyj<t?xBHC7Mm!%e
z-__M{EKAPb1==?a$oWQ_<E%gz^+s_H(AjsyCw}dv|MLRyU-zHmf9^lr4^=fWHO0Se
z#IllXsREo}=x{6?MD)yTj6_T<tX!!EpkTbIqcC8wU|fu;4kw`4B<}xxuK#_l+5h8O
zbN=gEqaic0vi=W>!p6kH^6zG1Hcm#Cf1m3_H(nj9mLb&6mM|2X&@fxmc{oM!t4`R!
z-r+Q4ib7Zva+nz&p?M;SurLhWdp#6BPgoKmlFKZoOAq-=kFU<$&M)^at7^0AEj=rn
z%`>RMzZ^ambPx_yG`fG7urWwlO-%`_pFlt_T1N+?JOp0kpFGuVjUYG>f8k<~YTz4{
zpbQ>}^q54%p8j_|kdT|}2hrcHKS6!ddI*JP{StWkP)}gQ!GGIV(e~lz_9MrDMKQ%l
zKrE`GDG29-6bjh7gNnfbf+!Jo$fQ91LF6RF>9+msg$k$zffBQ#JVqcV-Q#jke4nm6
zNI81$iXdOP%#a`*5|nT_2e6#PSwLz*Pb_aX2)(hd&?+FMdV8$!N$<v&#Fu#C=NP=3
zc!Bp92gu%~17YMfgfo*IjQoAK$OJObV(teg@m2fRT4i`}VO)%qIVKtylD|Y)0QqM<
zY3F<#KMW-}+2RbkeMn&k5^xpSyc9^=+j1q3PlO8Y#NuR>-wpLvIt3CV3N(`S=0gH`
z&fONkzD3;A-VeVAt?Df>V1ytH1Ag+ad{(B=tRn9PiME6MOi%(@pF_Qr1|2L#Nlb!x
zCk8>e2)YJE;&<;QQe=gS>;~J$MTOxs;-&sfqw!@VdL}ICKE?oXd=AY68NLw+%4G*}
ze1#_lfw{qr04GY_QUC*K1Ac}ifWW-qN`Vr!Y$53ne-H+3!{&blKKnrDUws`8EDgMe
z`~(@^%Qf)EkKOt%be($j5#rvmWEYm|{{ekN7`r8NE^y%&wv+t)9`Zcf1>6NrX=`Hd
z?IA*m{vo@$2$c{4v5>Ui{`%(Badi?dX!P}-f6a5p!9#ju6(aad1jM5@rC^Gwk6l+f
z>yr*tfejf8gX~zIizIyD2<?<hMc>FtHNkrFW-$)f<}E@jbQ9^ylU`Y<0pa43W~g7J
zhID?z4eTp9X)niyyk(A(e8O+BxkS3(cWs*aZ6=_XyYqT}BW4avIdTVGl6hA$LnX<c
z`i=WTg`3U87tQ&p7ud54XOe+BW%)hW=8`AdIA~?CZ?3BW-$e%0w4^q4g<|h{^cVJG
zbK6XNZrNP^Oxy1uWzJ);z~wthg7m7?Vaxttrr<@i8OKI%X&=a6Yc@f8D;C7bhNLA)
zD0<?~ZL+rquwOK}ic%L;PtZZBA#t7(4Uu&I1RuVcS;M6!roe^hN8Fl*SduYSvL#Ds
z@@5i_a0*W!IG4crtDGW7Dspb-Wy|R^v4SK1iDWd@Y)piBB-;aw7!i{etLdeRl^?Z#
z_fOO&eVu*k5KPT5`&H*42~h>VSt5svZ&k#4D}UQ7+N|m5X|jQGu!y)$wmuxCd?{yX
zQ&vtKK5H|<Spz;2u*SkTGfQmcrbUHOMM-uf@i19wWy^dmPB)1Q=Sh;0BsKCa>@g#b
zrRWR27VCYTYp2lmtDZtVD2xUMiuud0N25dW=tAo5_J{kX;HFg4sg({fh!V)3FT-~Y
z^<s<~;-BRv)Re(}2HcorZJB<T*ahksIJ+Z9fn|5BE&|Cii5{pMuwKi@2F*{zl`<ON
z!frOi;Bk0zBDvN2I+0=0iZMlTpm23C5X~8HR^;Z=_bBpevR<y^x^(mF#7ExT83P7M
zTOzGlwFVQdzuE=&y{N@@9%MS{fWZsH6AIO0a5G`Er+ex*T6$A2fI!*29S$sc6w1@p
zmx!n59^l=bt-5k$z58C6UA>E>_uPojKA*vHnQqa|++L;$z@^gh%vg7PIADH%0aqO1
zK@B5Ot?u#&<F<4Fd(?qfK6gRbsKuviF~!&{3WFIS#blLX$woXc=`qW2*mr;qzf6qv
zc^7Q1yqYLE#JX&M=X5zlxj07?%cU3T>c$Kc1swThH_XhdI)5_}6&)@Ujpa^wsU{dR
zX))0kJ&mGyV!TQ{+BxmFJMWtvzv21eV~`w@Oququ_!`w@dvorL`E!>?m9$~*-C4kC
z%@*sh_tmo}Cmf;00h_u!(jWw2?|V!gTIlp*E+aV=2m-1lQjXy_%R*DW;meMr{TbNn
z0L)!mH%<6KP5RDOwJW0h$G9vhK&`BLj7iS-)mY{^PPciAi;89{_JGadApvqkoO!u%
zkT#izXrWcj^UL2Dwt4ts$6og2mn!oJtM&qWl8n`yp><}HcivPNg5g!{xl6_G@WNcW
zKRR=%bPp>AQ?Qko_NeW2i?oh^Yo<5f#em;h<ivgdhJ+-mcc#S#;XX~Nsp6$NZDm3%
zfq(K9(_C7$bDV9xoNzdYn~0bDXm<m|T+&<;+6GI_wp~}@V&RiW06yoA!WcELPQ7S2
z9;q|FQP`FT>}IbK%snfn+v4l>-rd3C8^vhM15h6#^u#-6^x1a<>5?^n0O0uq%|M$<
z$Hd{2$niV{*WT<s%WFn%h}ZI$;7^U&_kEARj6dRaH2@BIh!uwNmu?mm7`gDq__g|I
z<U_4y8@Fw5hMn^zvhDbTH8*wwQRZ=}b!EU}94J37!{y9Vy|~rT#96eu&Q<z(SM%~$
zi1I7Gl=ne@55tsF|0L|w*{Im*D^Sd&|GGw>W=a`0Y*R+|0qFA{Ah1?KQ2DuE+u1K;
zXe3pYzb#&K*Ca|Yz%coEps0ISs!c{+<8`?Q>V4as1PI{VyhDw$54K5;YP!d?&Jqt<
zGKLbWppwp~4>+iTf4c3y|2^nU>u!?!!LYQlR;_+LYCJc=pTT#_pxyr#4OCy^88AOw
zMw9TU_uaTL^?tc%lIVw;7o>^g&AI=m<{37la#XL%`P7Y9YtJUcoukLfJttvpi!dP_
zbA7I19^c$^T?Fiyhhb)sDs(*&k5s9KHpk}=rPT0S(k72cXg=ltys#N3h!oZ1ChXjJ
zy-zR={)$YUA4MS+dU6d}0;W=zH}dsu#d`dVbn`Ip`yFny`~H;ro;^6#-_;9|#Nb0@
zCHZ}Iui(&*>pe@yjN5usM6H@lZbj3<xgC&=Et^=Rb<`=WKD8`#Q|(sl)+xVYYV<LF
zb~F|;hxmlTdD?K;C<mseTdGi#qD9z6rU&`TDL!4C#<zJNL?rk`4@9@heC_H(<?{Ox
za*!6Q&?*SO3Gf_*9fcJJ(8oD8>-{1%?nJQ`n0oKQB&Fr<x;GgqFI>ggIm)<TS;QbN
zC*ES$#a^{)9=opzp%p*r`sR@m{W#xHE0??y3Kc6sggr5EA$)#!qxx%-Euou`m(GR#
z4A3VBkR0MjH*A{$2cn@%H-9!{CLF&hvfG$4ACfi|TG{O6_p{zfPxa+j7vi5B3~<Z_
z82F3x#EZ!|_AW|uOw0HOl|_tsS|p$+5#rKtqUb8AxtX<+=wi{kqjRA4!wRnFXz<|x
z1YWcuyz_L$_A+jlPzu5sm2U0^^}6cPnFp}H2!uou-QZM5fUeXk`o<_Njk>qZxSNV1
z0Vy6u?8?!~lADlA_{{VQ7UIj$Zu48X-f~N-ER$`cH(3)qsw(ujNio?&%*&4j$}=7l
z)W)~)QIxy}V^igk1tAK-a*=oF_=V<5GjqmmmjOHbEYQ0unZo`VSVgAP@Jy^)BG{!$
z@Re9Fm{H|KK$^QivkCs@js(39P_#B6_u@~ibLTYutO|&9epp=J6aANrC0A++{=@nb
zjG@?Y6yqE7^8=ROqpyo>*KVTHl2`i?a7%yx7_R%z9*e(HUg_@&E+Gj(si0>Pwzi`_
z8qk3S?>$EnB3KZ`2gE#{3q{gSr*7jm&>(7sv^V>%09CZ!pa*1S<vU+z<}inhzck52
z2UW}&z5aMFz}DkG=g4K}kacEt?vHf}lP+)k4%)#GOzqNCvt5x2NPbqdy6fEL>RJ=y
zZtHV%zcLl|w~`ejVL*1$dX&Pwv=}trf6I=G^xZ*Yy}SD1^!{#n!9!(^|1g#h-;tJB
zFVOjSwy)^tPp&+4!oR~zeD+!Hm^l42&|5F{r@93W_Rw``^#!<l1`>`ZYLM_91x#!0
zRunxPW%9eQCq$}gCbuqmFKsr$_)&E3180j<=A+npGppoKfq64|DipiEZo~q!MsiPn
zg(%E4;gxz`i|0-pi@-En%^F8fj5VDdEsNTBKOi@tv<*^rhrY8$-(+8FeTp?(YkN<d
z%<#wi<@)6iM8t<2rlf%E<4iVxHfB+e#_P*x0(`%t`do0au3N_C35D6qymd@9QeuJX
z6UWi}lv7O5>$}e__*>0jf-mw+c5VQ+QvZhTPf|pGeF!V=n;j{uEkiNkep)cqv6rd`
zd7uPRJFSdHTQH&<3VkFZc(r`!VBJyBs!%dp4#Wt$_2Uzt99zL#W#>E`qX)i`S;i?L
zk2WdmDxEp`$8oE2)B7a*2sO#zxv0u+#|Lk45s$grh_hIz#Xy;Yi$l=&r}-$C@W-9H
zoqXuC)An{li7~|qY~8swVeP=qFjKpRGN1!V%v{=b@L@^8D;0d{iqI`0hEJoU;z7A{
zxB<pNO(hPlMsUaOy?JNp9am=@YI|m1s^`Jz`yZX{k#=3TZeFhB!yHm=Me_<Nm}C6p
z+H=iBiRm0z1NJnT6K<9Iw@s9cz?8rFzbyh3IKjuPmRBJCOSsngtBI}ow8U4{EO4L?
z)w!i+_8i&<-7PNax<G&pdUoi{N4LZ-+=JDA!1eu`11hmeho6y^j?~!Wn#hDY#}IN#
zN70Xk6ojCGjUwn``8!7k)~uOPVJfFigoyGMhK$7ueS}C)lSv_YyPF(Kotg1zDsR+`
ztgv`N)L^GELYbKd@fe9B%0KGUy+Af~d=IqCEV*4Q$*vR&@u44OD5n&s7c$^YRUV3c
zl)K?1j;sCCv~Sss>>QarbRRD|^tPQwlvtW>(ROHcWqKMksW8pMzwvHR3i{J}%Sn+W
zs4@d0t^0C19+-8y4wI1Rp29)Y?c1M>8eFMJ7^ca>8Nw(7#&)V-XXtzq^nm^Ki;-9T
zwapzrYDEHcs&j8jt-{r~(Haru=zfp_)@mAZc3NwAO_}5nbwBP~^@u`@7bxgV_4h@c
zl)L!envZ^)3c%l9*Q&@y(<?9Zj{}P}gMJppOVE&1Ga6S6{m5ykt|r=4=G>Z7q0h0+
zTU@uY_klKTq;va$F0_V0V+<_tI^|vC_e16Q_L!u9v160AOVn(kk1|H6EUO3Cv3zp;
zL~r=v*?{O~h|S8h5bTNMWjRUW#0Z*c`M1l_`-6K~`{XPi-(+g8hs+a}P&>ddv-qQ8
zf?0E`ad!S=Gb`)bqY^D`sKU*aEStGwT%Ay_Z`y9z&@?8%8B)K{M+Jy~8>y95*xIo@
zmx<(R(!$UkT&d7YoWa|9((=-(7rHBS0`j4jbE|CXr=?=8*U(-KmtG9Eq_Cuh#!Q4q
zslBJofB#AaZ5>afhLA3<ySzOVnZCHT)J*;{E7iEBX!)2h0+qf*R3;7vM<KE`QjSBR
z-_2)VkDNd4$$><Ust9aJbxU$=?%!SOS{~<<dacrnmREd_JQ<R&d!276o>`jU8#<;X
z;Ip1d@dz*tVkBDsb@cd^q@nQ5!gfgl+GG`4e`W>K>Y$|z<HP+ahv2&d_Yu>f`{VL4
zl=UfGKFAxpn`H{Ja05*(?1=M8SzaB~lR}-__)xMH+A~q<xEt_LY=~Lh@vNlUk7SvJ
zl%zl-2Z@9+-!>Kwsr~V>vXI#Hs67T`4o}`tMKA_XiY@}R5Mb-c%0Nja)DyLPAs9p1
z_Hr;2V}EOVNmGC;9Yr)*xS7to*PcYzp1lX%wx1%Y;)eMAO23tjbA&n!wN>#MVXeyr
z^Ioy8U6O>(g$Zm&dR;G<|3IqF%*DJqw9~eaUEmHTo70bZ<w~B*?2w&-3w><f<?xCq
zw&mn;n}b?Nnv3K%G0BDM^P?1NQzOPTBwyAJ=J3=@uh8e)*(=F)w<lrsDYXV{o=4Fb
z^5ySG8jvg5i5iO^6h0;vC`PrcHUx513kRgyg=A6ib_3a-WrDE2Ju#g^{Rw@Y{Y@>R
z0}g)0jz1qavJpVbiD6+W0kt?kvK3XSiYc!-j;~gm`ay)46Mk9-+4M9_@w9dyT<%7l
zo9iQg>~eGHhocYIW4&Pt72A)9!o?|<%ju<+yF9Dd|DqS83I8gpufB|Ar8~o7(>m2G
zc{W9tfe*a><6WWXKGd3=D|P%DTVs@GVV&E{15us^$cj<kWG~b2T*c|{oa0AZy6LE{
zcWHZQWWa0eZbVU%N&EV=N$v2L)m%I1JT)JRBZZ_`>qFGuh{}y(-excwXJsm9h&#!v
zb9nyU-UC7?GT}p96B0NHEA?$M1Rt3VpIGs4NC&7Gl-iJMM$nMFO3CIOmz@vA^lKw5
z_;@4kmEzKs17O0pNdLafb*8|gdmC2EE1$owt22ROLEf!$ODp`D{1)=DT#+)KBnh7L
zp%xjamMt1$0%jumO8_!<0gP<9#Iw}(ny01?!l>|cml+|mP=YuXdj7YCv999MMMQcH
z7y@v0Q7H8ud}|0k#;2@@eukebns(a=BRU!TD0{gkbG^<a@i_P(MYPT_Rnw8_r1HHg
z>*s!=qFRx@7boA##HOyOJ)c5FqS&RFr<Zmi2lA5!;X0*~Fzw!v7=JL`TpkP80)d@8
zcNEhPT-6_gIZ$<YOEKL8D>Xl5rPcE9{cnIaDM`Y_+U&o&H2O<wpUi~u^PkJ_T_v};
z({WSCV&}T2@Tp}rbsTxKG2@z5W*W(33=PTiKw3r!7K>JXA5Z*hws8H~z64jSlNIKB
z*uTdQe1GTM@7=yFg*?cb`1JrG78MviNsKmGx0Qb8s=3JKDm`RfVlmjqeI9_1ji3)4
z=E7){zEC;0=(D@OJVs2XTOk{_WWC4fApC=Es}<VJLT^IGM=*cHc|$XHXN#izSky!I
z8pOzB&0zY>zJVr#q*0W0a?h)FdHH?!Fz-6Yglvu>+!NDissBEyV%FqkB%}J*fk<C`
zn5+H*VK&PBT1!vY{B5t~G<*L1_p39YZmiv=+Jq|He*Kgxugt=G9vEtM&QS%sD+Whv
ze7wf?6OotR=#DV)p}$4gx5e`glVY4F8ApRrDgy2sMTtfWh|WxC8pG{z`d&e!U*-qS
zi{jd6T;63kZMVakLicB2Ncde+q@(6qDl-MtN;uRgPxhyNg+qE&BzLQSAB%TDIo$fp
zIDyi?GeI?rjwC$Q5ml;y4q5}Kw+^+Xg{k8nCb**RUY%AGk&1?hQ+Xe<7$1U?Qk-ui
zNs*`ym7Dt&n_Vy^Ql34m9%w9zeuX|vYGn!zh->vzZnBVgQY<D<COo#=4+r^uirU6i
zP(O@<YH)aTeWZ-u(OjO)3frE5L1MV&7=-k{PzyBYG_5Gj_f<=V&P<P11h&R%HJy+q
z2nj|G*Epwr<3(6^OWB>vx+CZEE^(g~kqu-~ArgRc^F1XJ%0YE19cvlkCS)8B!as$D
z7w#S@=VX8xLsG^7Qp`B-ZBEd5t)dH6+Hh{wh!jF?aw^HZyjj{pa6CugiCOc2+i(J6
zWO@k6INk2r0W1{1_~YSJ3A>!!jz>GB_Y&B5hp~%j=QZ+*-#C_+P+3xFV15XlE$ZQ!
z&mt4yPqj?;;4;bkHu)5lsU6X{idBxl)&-mAwXP?+on+~;{=a_}9DXI?2v|JXe+!nH
za~&5d<WkH1xQCI4I;Rx0lH9UCHE?3ULOkmCdX+Q1%&gK`iP0~;n++y>*^oX~qu%mX
zo1^)o=*<mWou4BWNE#z+I#W$gOQhI!k6m-EZjFC4I?3mTyvbqD<QlKN2ZD4T31t7j
z<o5qH{s*U`psuF=ukk-wNsfQy_Ee-4PzM>Kf6R5W|1#76<)PcU{M$zVmv{a@uK8cT
z{Qt`D|FH|m@y{+GYD-rND2@O)C&$10sapOn4<3P{b8`Gg+0<Vb{a<BM$Xr|;|0CD4
zuye8fTdrqiVP*RN<$BfFuc7EsbIJU1BhyVo-9qM?s_}gzRh`R$gWs4>yL#C1n#NPo
znwrEbskg*M^$E%NOQRL%WWFu0K4*7t-d`VllLAK%Ia7DO-LYkP;ptIOC}y#<gNEOj
z6_8XQ{c!byN5K@3f>c$|F2jY9ra7xH0{oOf^F~J%1cCiy-{OKn6n>y{k)wx!RZ@Wr
zwI%Y-$W1~B;xXKi!a$j~=JU=Vz|a|l5pfo-o3r5|VfDZr`H3M*5D9_@g4TQv_kgP_
zx+j%#eE;?{SQwOS)gNTJFl$;v?HZAYuZk4G?}M4NbNy@YR?K79Lcxy{UI{FZn8ZN?
z?weo%o+hwYj8hAM7QO!ke!4Z#)X9iN8nhOBD-d$8ZySV*Bl5Zhl9kzx33~7iYd4Nc
z{=8d+UZHy#?(c&lb*;P869NM2BG2EY@2?&XK*jkLO;Hd>VIC03vK`j5ttfCoMR&V}
z)Y$eR3WD3)w2i~9)cyD}XBHr6^leGvvb*vV<`Y<+4`j9B&M_x300$K!QqUs0c$r#@
z20r|ba_J$S(O4Ctq5^}Fmxl;XcEx5b23ZdPGp9rO0ihs@!-y3$fNV|;VngxiM>?7K
zFvN|X3{ty@I42Jo2x4%tCG`!;kKUJd^|2>RAR@)=OM7Gt+yFW&bB$0SNeou(BZZay
z`WMjQt9cmAKs+n;NPrm)gz=RyVG;BWu^i5C<5Pkv8tn~H68u?N%Kwn;dHZvxq|WOj
zzMhqRme5^`R6ptH*Y%fPQ3*wiyR?`bL0r75-)xumH$Q5@_b>UZz|>O8@6yjNvC}m>
z0;|Zf?f7UBVU7m)1b?{7LRyRFgU}&$CVha~-WmydbLH%dW%cD(FEcz>d&f*Kb~Wx2
zaw-~^{Bi<5KQFJd{H6#HKQCDX<`^#Ig$U}(!QY%VU7b$4&<MtwoJD4<+NU40ixc75
zK5)mr-w$3<a7Un2->xzXbnA?=BQO1CpJJtuShC*JU64Ug4AQhLH5%_1q5ZQD@v9zK
z?1}bcI5hUHmVA&9=c)~L8)Z_5lI<1pX*|-0BbAHR@auJO$nBIp3mZIwqjm#aWHQhe
z%j{1ll`gf1f7$w*vDC+=tp$|EMYT?}hBZy|*H1Ap;Ty+n`}dwqYTNFLaS(-T4WPMr
zihnF!+0PmxQ~}q?;R@_wYzrd0z@jDKC(e)>F8z`=)QkW@O68;W@WiPLItTtN%V0yR
zO+^eB`#G6<s60h~{%3QTQU5qox#v0O&JAMR#rNEs#{Q+N>`|&QiM`e}Zj;$2%8OQ%
zZk2@*63uZmHj`h8^ky5BJW9s5F-+xxBZ8MbPE4t56tlQz23~DVBW<h(y^>tO5T>&A
z*q>AmJ-c=;aUsXDG_%EBPk~T(LzH}usBkSa645sY<IT<-78XZL0ht^<i{sF=1{)(*
zOIgkGrUIPUQjHs7E^_0?WYrf*nsC;M)HZw^>b6B%3JD)0Bf5Og{z7XuXB$xB9j_~|
z7DdUF*QbVn9J0ge+@9+cjV5QHZ~!e0uW4Mg1)JIXNn3qbvtN$9I<M(u?I`6<G&LtC
zP6x&#RhaR%sq#*W8^=pdcL#pu;r%7+7Lx$}heiXVwb-9^*+y$0cmJQuKe>E__hX2~
zX{4=ax&g-I$SMvM@6TJAQ>*^b7FQTt%#EgX`B^XmJAJbtccDa%F}KRVzQnV0u$0_<
zQ~&^jyLsI#t#MW7gj851ZJ&xV?7Qs1nUdxpUd$EO3oOg47rc1l{N(`tMmz4XIhgh4
z`U<KtfPUiBs*(~)C6E)l7O4iX$h0+(A6#Nx<u2Y@u@HwqQ8B`1v$!_ia(n4f9YFg{
zek40%eI%9h5fOk1)V%<%mR&O%jzKO9ww7_UWwe)$|Ka^T*20k>?XyR~=-7fg#j$9{
zZ_(7vZYa+B&Rq42tamMS%~OZvLD=fxnEYsW4~H{_?WS8>h*wZ@-&}CLn6V{Ox~lE<
z`&d!eY=%WkD+{<xfuOmF?o+=;ab(!TexR|OVd5vA7}R&PNLT>yaxvYNjN@WS**Zu4
z8lyQGpfXUt`?z^2X7j+}9{#*eMSdqD=#R(1I9E38U4bR;%u`oK#mZT-1nrTp)l^5z
zgq}+~==SpG*?GBstwnoK{xQZEqf3$=J`pJ>OrV2<RZ0<o&#@ZLo@%3(+NU7|i5vY-
zFjGWde`s9$+9o(KNPc&td1lDoB+u?N!g82l<kaQzkg|crl?+R$nM*~F_vY>fmL!nF
zPI8R8f|;F(5i>C6E4Z4xp2fY?+|WpI6r(36W=myGhPmjHA*v3Te&!!HeBkS*+c^;%
zp`6~KrAqVMrBTxmu4w4P9gD#kEdShvHm8K@5ag}}F*gC+mkFnnd5T!ahx<)JN9%7%
z)^8m$mF5C@nD?vcHBEh?2-ryLKH=%0&8YPH+MNG=A@77-0ae<>tHn&Oi_d*5FR+i5
z)bY}%t5SXb0UF;Tm^g##badRpTk)bit*kkI_5GMm+;Z;KiT}WQ*!;BOkeDnHsj1GC
zha>q@)xZnrBh83~@k@h$7p%CYFsH+WgEn1$VB(Jc@2E4p>cI$AXRpX?<OOppdJgv@
zyifd!TzQLUH(;V~7K)uCd^=ZqJv<_bsQb;CS(<m{w%kGnqBmC{OI+`k0z$NSjndAO
z`OZ6=IvcK1`Q28h()hA~C>8(btoX^P04<EBlwB7P|Az_<H^O&)9naagc5sxuKNA+b
zs*Aff$&z4fwm)X@TVJla!M${`c*JG7tsjMzn;J%oSDJ_*E_7ne9jkY04&c111(}J&
zGU2l<zTZS}31#j73?(Kn2(3~n<;QE?a>3_PEU_<a5Y2!Ne{2Sk?Qr!iS(=rEM=#0|
zNU|*h4!-t~)6gd~FbiK6I5v)L4+ytTcT$e2Zoppn=4&YvLg`Nm_g9&!ZyyG-bAUH-
z_PHv01keMN;OHIHXumIMkt7w-B9LE%SRJ{RiL*P3-Yzqgj+5$_H&2H~G{UWX4+l{U
zVy;-@@}D?<QX`w%k4k`hY)Hg?XK-99N=Q-#E)rfl!0TPrk|RLl>E+V%GZrp^jc^sc
zMED#y)wYveD+v^R_|#^Gs}_u{w1fI5Cx`?kry0hyWuP%1)s-ka&}2KFVDhwaV%N)<
zWzwd4b;NM70-F#onqR{3`Yf<Y=fk-~SB?&hCx*T~`NaDS;<chU`%kIxotRo;ZSZ~o
zp$=8b%2p0(W9G&d`YhP+30Ad8OwMks<!yOTw|->zq5a9u8Gj%b=x7T3;-|Vbs3{HQ
z;n7o9_JpP(HZqv!O}@c6myla4k&n9Tf8FolR~?{xj6x(-?G~z%sBJSbZmQMG&+H>f
z%@8;r|Ix*7_jzs9{B4=;LiM-dVTe!y@Jn|vo}qMhaxPrt@*_IrwgGR56f*N^DD+0d
z<84}|gkR5w>t%qGqx2iQWng`iq+xYE$a&T$hREqjCE*cE&RX-ht|aT=DFp}Q)v4}w
zi>(%|7ME)8=r5>5%uB>@uvAI)JtNcX4X57=LMh+}!w(b+1f@Jfs+LH)EjHF&z^0O+
z`5h>ftCxs_*F|aTqalsP-xJoTQKjzKKDRH#MTOUY5+CO}#z@YWND&IvBoUoN)fl`l
zWl=cTZ@RB^$RwNv<{`rUsf##6={w#$ca<1WdBeU&9}N_n_YRHE=Mqdq--;q|tI0d>
zP2j?5w*>GM8CfXr5*sQH2(`=1fa9K-oLSV1^PNU(@R`=f#DvZ`_#Ox~PB0#@h2Jlz
z9EqecW3_v9D??dR38T7ln4yD#Qj*<#jSWkD4yl^rnq{4pf2+83H9sma%4}2R)>Wdf
zNvzJOncL~UgdpQG_6D=4-V~~zkpjD_N@({!ki!=PyGWE=?W4VWRyMyC0NrwC%qILD
zcfB+`I#TnvI?c}puS+VMWY~VO=lT=d8N4KuU}v&Rc}72Le4y^+#WZP+sX6gyPhq?8
z?fq1pxHy+rP7Gm`fzl5oG+1q*!WrddeoZNRo%V5>Z5sge$;4iksFd<a)(U!F>Fn!5
z>Y)+HuKiT*!{cdTu|Z9v1lGS1lTlVK-T;`6^5~y)>Oyf~v1_SY1eCI^S)JY)ml_rn
z-u%tQs}JYiz3{Zt?+~wyEA`zt2=-hN-F$joJjnRAoGHxdKHsiqbJUv`!AHlOV2kMt
zCFWS{MWe@yeuGBBLbhDg{Vh%HmuD7!Q}TZ(az@Oj>0!*Y%uu(p1jc<ZU&kO(e2sVh
zi8kNi&F9HHU@slDiTf=bIA}M(j==lN<sM>vtk@X(>9~u=b<t2)>E3noUQzz5VrEb!
zPBUSC^Z6rldOPc0!Q_zT`nzk>M$7r~vd`Erh05C*1<1~sT2^k`*;>l|C@=cZGS7i5
z$uBv>)#KG>xa5`HGT`nJJV*nFUiA}={yH)`CKuK*>ooVg{fRb9z|XuZK2j%?YzKR`
zX%!Uq9q-=^8b(@JiRL(}MYKgbZ_hIvC|gXXuLHtKd6wAYvtbJ2vAVtm+$zj?>Rd7c
zED8nU@NI`LTD$>(FV{`X=5Lf->{wshD_F4Eyysh!Pbsc={lM(Rft<+s-$qkO^UprQ
zev3n9&F-kG%6K;L;$Cs!@%f+XHi>x9D;f|I_70m0^N9?@L)V3`=xtiUXV)YBt5J0<
z1qXW3`sE$<USo&=WnH*;L?5iWOAZ;LPBHWOkbJf+HK{d&?SkkmGuZAqeK+Z?H?8w*
z6==DzGT1~9CZJA2hMQi&elz<@pV^-%Usop;`Ye$^{e@m_bjj8XrX;6~k71*3Wglqe
z3iQ0C@b>GjjKRZ66@O;OZ(B>CH<2!8x!k_<Fv2%f7n0aTuhwt}dKOkSmv1F{#D5x$
zI$63bQkuHP{I`am6?X48)Y*Ro{Az1C%nDM8jq&#>p9bE%8uI<rkB!rubLKn>qH@s!
zzjgaDsc9g(17>98y`u`3bOz}o6z3@n)g;`}6|?c-{ir5Q^ohdbEWC;5GW*+6AQZdZ
zvnbFL;l<pOO+2)2YDenbt?>4~zq5Syo9B}{hOmZYOMEA$^8B0r#gr#&6tj<pXRfMO
z)~s!9Hw*9_r>G;^uOUOclf^hTlhcdK(E4w`vL;b3bKlc5xKHzyNVb#`q^^1jm+yis
z5RgWF>Ks_1bUu(gg0VxzOL+4d?na6%OQXm2AsPsPAZ7lc`!)#kzIilCYVKBSB=<{c
z(Y5HlhN!f!LNE6ERM&QYaTb2{v@Rm@WP!oUH5T}06Et$I?Al^yr!;ZbRKn6jSojv%
zcHV#|LwiZ>Tb9N3w>ecs_$_fHp#hfR2&r|C%qo@v2z2NeGjo|UUz|kX0!<Ul{(LPs
zA4M36(07)e186u7^4H|m!GB8HlfF(Wrq#9;n8DfG=%tv62C9DlYQdL~xQ(aUx{-6d
z?FZg3$5^r)#!vNrZ@^rTMHT)|=i14)3Z@Rd{XUaRj&3rgL&0v(f!Jibi^=9J`2(d(
zF6CFPfk)l*Har}E!P(8KSV?kVe*68#&{58sr$<z4#A@5$xVSCPLV?dx(5_=H0~L7;
ztHAp^*Ds-u_*YUphVnJgN1}4y0a#!Cbtqs(!<fLicooIV7zCcbQ_j{qf^6#TFb>zq
zfC8WSO<3o5R)bo`Ej8FWD8f$7-)#3)55<g+JlP-O-)0*EEh|^fn}S6nB?%lNUEZ7b
z6Gvu-5BqJ1HcL2UE93DOM7DB|Vih?{<5A(1AkJ_<|76sInbn|jUIlflkc~n7WRavv
zr?iCC5qQ{U2-=Vk(MtV7bPfz*`G2TA9RI7W8%|C{R76PpuiB%;#QZO{2P2j61k{F1
z450oGUGZ<M!USMqVP@_OFtu}W{L4~U|ASCCrq=xpTmBVn{-f!e<DaH))Rx;5&}I0)
z0?+?~IZ~gWK<od0=RXJvj{hboIQ~~AlZln-pG+n?I2YT05fn;Zyeb}qwn@vHRys6f
zToNRy*ida93sFqMNs3_%gX2tc(N5!O@x=Tk-|A@Ss*^_R`;L{D;c&@YTGZRNMCve-
zJryq-?g>^mrQfdJxQ=4C?!0ri?z|@NcwV_f`D7(z$Uurn7^i{^q-r7Y*3DBudeLGj
zjUFEGTZyuvfy9i#li)U>0nyQ1f{@_Tkguy+TC2Mgb+3NlC?wm$RYU}}W4-pO#_(|g
zLJWWM`u%XTF(IG|3E;SKuSKzthEdbN$k=i7sxM(6%?+rA;la~OG{8U&gy9H~K<bIG
zteP{1u@OW;&Zbxs32#l%pd3YJ6nbi!(n3IR62g0|fuKDQ;B}^#FrGMJrZ2!hud7+3
zW(^xBy_JvV^1$@jK;q`@DJ~Sez9WB~9(cn5ooB0Zj%Th6+~J_-UVZs&4`=p2M7?zE
zFxvvk3RLLdq0>W&2}ogJiW)?E*$9Ht^+N?CwIdA<PxrSEPHMd_#FoTDPmsoWNMK%C
zPAXjCfvBH>Gq$Y?oZF$|W8`_l_b>I_Hw%g}jNpdCjIfL?jbO(*47z>;g=&W>DS~96
zeg+g+2!1=}dMwIVJNeomjR{mlNIO5(e<hlOrx7!@O4S%jgBc9M?go4fY%3np)rWk&
zCL1%O5Lo;aA_Ji~EK4x(rvzhHOHuqPG`?=r0U{k%e~6fC>e~|qslf*95P`2PMKhi=
zWPR4r)ex;Rl{P6X!ibnkCTvJo@>F!8Ka?0OdqmgZ6{eE&OaH}t2bflvE*gO5Arxvk
zcjg6h-?>Jxb!m+ZKaJ9n(KGl7nKvK`iGSY}d|U6YpG<d4NfWsM<f0ehk5x})Sf&m0
z13Mxejdg4V%{EZGYxQ$<x(!S&L?(<0qhsk;Eb>K^N4L>*$OaK}RHdXh7?(*R`0)Yy
zUG2cXs}GfQ2g6&Rh6m5@hqR+nQZ}%wc4C?4dvBWuM}xFG5dsT*oh@J7J-7Q{M)iPw
zi|EOM%nFC6dXi@D9Lr24E7y)=40a10pyEkkLzSJ&uF2!>hdi{vNos7{2-iVYd%H!M
zfLRff4^E57?1Iyuy*_H2@S4SyMsFa$wiY+RuJD`1kpC(;P1DB}&w_F%=^wY>F<neD
zs}Yf-YowIM6MZ37*#)mQa|>tvIt=3X51aV0&KMIU-A&lX=#Tu(-<eaSSesOwfs9Ep
zReDOGW_p$DW%-isbY0~G3OaA^rz7Dtwy$v2hR0W-wvWw=skgD7#!jJXFm@(kMYZwS
z{+XjcZCZA0<i97%;QOq=0*#>%dZ4J&E^S!byFSMbOzq4(Q;w=0L>B@AV}z=~Om&1G
zn<kmNc`c=X2Vq~l%At+159g{x0vq82^ciESib4_2_?W8S7S1Nmh7KZ85KF6aWO8Ju
z#mP>2O0_+tl!ZC{*jB9xFrMx}^}`uLTy-qn7_=4dz-7uEwj3YQ-=p9DM!L%7f1PE&
zflP=aK?QNDf6jd@j~*OCMfjXqxyYfGB2A%ncbI#}nc7;{-t(0c8}<rD0Hr%H3)g=B
zlCAh0fGy0=`z>8``C(n>-cfB2t!u;j9Az-&pH|3X<Q3hld+Uo*Y-F=c<fvC(UQ9yP
zba5sDZ15<as94YX86t4j&I@Q#xCw{4O*kawPWX7zXEdD8o@Wf3!=IN`!bBWxeVDm`
z?oySKyBb1RUZv$lB8+q#1d?^2pKdgQM$wW^ZdFmKPUyp>#ZJ|`di-eL^ql{BD~{kX
zc~Y~&^!aP%4?NE3=TZbqu0Tu8(=<GTB&%aigTu0+ld0w3_a-;Ws~*BX&#`>x?3OLD
zt|x+&E96`be|CMva+HsYt=jQ7m!&!0(XcJk_!+5(*X-in-pvweMu2(=_Xa+5)7->o
zUBZLHM|%}1Ari_*KaL+<Yg{wp@Hkq%#w6}sD@b}h#N`lUa!4%8<sYx$X&>=$cu^Hx
zo9vt|_NZs<--s&bjKR#*)qbLE7e6A3_P4B!np<cVOFf1xUYEBZHeDJ#)f4<7Lpp-*
zh)Pv4U*3tPyyU{HLj$@zpqW&A4YPYK3=w#yu0J4|M=Nmr-a3^!)rvqQOvadC=a-DI
z^=%%SOk3%aufptZ>t>y^)L2*auKc55Q^Z%@0K%a}Nb=_?Q#z8w<dBFZ#ZFfx`^Mw-
z{<R48$GO(%jdSwlAY4?TvD9ms*kpi{XvZcweHzodt{N`6sT0sm&|->Ce*I11P~>J-
zs7+m+m9_;2R)U(XUUZ5>wj{Bo5ZHZN2DZBFRj8Z);wG<iiSJP+EjLL?(_VNh(vUhO
zdTbL{_dL_JJhoe3Up-UB8z<Dp__68ekY{#}s|^3-I-td!yxW-^{?zH=mpKhbQ?!kF
z`b>@Xof24MUk<GML17j=C$oQp+MRCX-jUE)xs75gqg#dBsv&jX-$dP#nM<HWN21=%
z8RYKKPPMdi*LGyoD2AVu5;;$+WQ6nQwxt#}?Y^vcofADcrl4X7l5QojE@QjceC77{
zrhyC{D0XFd8J>?Wi|+^y%MO}ycfzgw;cL#^YrO9eB%<)US<WKIpc%5%PfGGBy^2}3
zT^a(&5%2EqBngK32Pt<aH$y?n1-1|UIK=M%OLqPn?BMucU<a(UxQLpv$iLn_{^2?>
zkpDV4{|$C9vJ!Fqr9cT&Kyg7CQ~f}}$iX<d{=qv^dqBY;Xq?R*O-umJZg&62Y~uJ2
z)`R08)&mupla=d#%p)ewzq=zdDWGWJ%&hDQ+SI^mB@f;tE8N4ZB(V@->H(`<G}FOl
z5hLM3C}d5e6gRAfj&Zn&<<z=`5o&3v2nv@z<9f7k62*A(;zB&7h=`<Oxv)F<?1MM%
zFW>H?+@r3`v$m_Vwo7gGxru%xX@7}4(m%U61yKrWATisv2zgO)jJmpbxMYqNNLHBf
zuv$P+Drspnzi1e!X$cS$Q<I+-!D7A6pm=D5W^(}|tsr16F5$)q2I)kZVifftVDY$M
z%;aptqEOqQ@fJj>b`S>Ga6LXJkkIzf{~ufL7@SM|ZR^IiZQC|iY&%)8?Yv1=vSQn|
zZQHhOtk}6Z|Gn$peeOB^sjEMARae&>zd4^d1~(BeN+DLCB9*@gsWUJNmaIu%WXi*?
zmMRp}H-rjF|Ch9QpiQ(GntyEQCd@A~Wg?6}h(Dt%n#oo0_y-Vj=`X_kZpLe@KEqa|
zG?^oEf=^nR-}6`>g7-+Qbb+w-z#wA4Yn3-;kiGWvP(;BPeIEi5Cn(r#EXnATK){Eb
zp~H@a|AfMEqht_(OT{1{b%%v9j=YgkHj>G)I=pUnZg$&jJ<}(sIZ2|1wq_9DJ5EvD
zxg|aUs4|^K3m*Q2^H5=8QlatpEA+b^>Iif!VtI9B7lu|4NNYAEgcNJAQomuu3V?7T
zK<<EIDd((h1_N8;DgA#O^ZjA!jARDHK!)YTC=yzO7(lUPda;ZHz6Vhxu;SqBv51o1
z5yRh5KRLE~j8LH`Lw7&mQ>8sNkvLuq9_fGp2UM}}^q@bf*4qU8;<))!z@m+1hlEsY
zI82=4!(WJTczww(#|(^xgYP}YG;%D|NQVKxR~IOe*0hn*-RYairuTf@%OV3BeI2Hl
zQ_6=W;hn~OM~bj9H=crU;nclml8$KmB!5e=A^55t;8n-0t?a!JGk>g(Z4bqb=Ei*h
zN-wOoRbIiqE|{uz5=PMMbiMgl?P#vnSy%Pr4^%dtj!iCBxj6@`KMN}S780%QA}Z~8
z=$Tlb-6qXFii=dw(=6I)v*CWo*+O_c<;gK^=Gi1X%ybH!jw%33d5k8fyM8m3_uRLN
z?M768P2}-d%h4(Iq~@&gC6hpl$U_LA!?)N$?)U(F+M)S-)r9NANz=qD@lX4DvA6uu
zpVb4zw-_YmfGs1~QQie)-_-(81bLm{_i_Py>KG}7`dS5Tk9><;Gh@fteHS7Zc{R}<
zE=ymjjhbJKrt7r&rss(q#^t)V!b`_X>pv@Xdm=uT3!8o_IB@@J(=*DkToj}M+t)+%
zkVW_gnL*yV;E55u+fp&G(oGnJ2u|RR^G^@4CT$tUgnohG`6~L8UJ6#5pHKj3xxrWk
z(`-?~HpW$--EFIp><t4{X0i|Q@t4lZTIZw;trN!LVB7N%9KjNfo!OjJ=hLlE?}73z
zQU~QyYbWbH9a=<ua@y=PW|n)v>7Sqg_7}`!{Aclc*8wdlM$rN&!LrQhta*DR7}O#1
znc-sgO$X?t`imgz4w#W;oUQ4W3aeT<St^^YaH;p9JwrA6o|5)HW^<k3=pkr+$||>?
zNKE|IU1$D8ow_O(1Ir!{P=czqzfF#F-ZAM;q?x#hbNa}bBv7Hv^y`!W)_>t#vJp4Z
zPd#HUofl<SiP+eI(W@V?)D>&_dv^i)*3Sx9;7WV3qNk#XF7f=u@nqU6>NavX-ezOZ
zwB~fjo?2~5-Kmpu3JsYs2-5UYs?Rg-(FqxDO-qmCLi%6%M4UwR6ug4fu#ZLq5p7y#
zdN3dL`wkEidxzZ~7Do$!`qpmjQtHQFxl!0Ro*rj;R|!3c7Pch{*<&B8YWJ{<Z%9wS
zI;fSQe};g3NT=ty5_)5vo-KL_07#?y$1mE2Iparkh%Hxf0X2hP>w`fwfqLdSVF}lH
z?Ff{hB?v1+K>9g~$<v|=)}a?6t&UFr;%IG6tyyt^l%1+(OW#rfE6yiI=$Q3)0rd+8
z`qiGC1@fdtObqx0)~>ww#GjPMUH_Isw(cR84H;jq+D+LmO1BYSYGwYu{Nw?uZFZ0n
zRdz~TcV0~#!!eh@$X`owseW&FOc$7oqG>(icO9&hW7Oa{R}EW}lt;{SL8Ro>08!7(
ztBY-r%bv6EzT^7<B;U<ur?+^<syVis;I{(q3wiygw$~@MmY0@wq!Y4nZj@KrH&k7)
z#KY?Jj>Gfwe$EQ4I!nsFXI*!Q(x1FFTBg4KS0V}w!!7uW=CYeFqi&lbOQp+8{4cM;
z)>TbKRela`wcjPpAba?me*!^pZ<R~rBdS^tuL?tSG+6imFQxV}Y@}*1B$qVfa@y8&
z&!8dc*dLO^A={74JbQlA8Xh)veYf%)AC)K3!TUOQ`7z_2vk{i%Jo=$iwn^rQL3VVV
zg$Wq%8N|z(Qv>|x(Y;ymNmBD1%Uq>Tksd0qnU-7kQO>O`grSgKm#KHRn*s*xazfw>
z0b$H*+&EqUj~M0MvaQrf+$_L@zS>TAw=KH}Go_XU^mo~*+Sl>KCjoBVTRJ72q8^mj
zR4BC(-|0Efo8&)*<&NnjP3iZ_8}o5~eVs#3{EvB(DKzN)t84EWqLm&d57vqr<JwUr
z80j29J`bY}iulYq<>vU7gPkS>Gd{VZz4&`^5!i2lIA!gO?8<X_yCe#Xx<>GReT@2G
z>P(Bd_Th^vEL)-h;Hux8DzdRp)rD2xJ3C~$II6PaP;FrU{V2Bm9pGn|H+t|}eW7Z^
zepqLR5#iac{G&ZrU)Qg3i0*uBI9w*WpswEiWN3ve9QRm0Ld8e?!o|z0fsVmV+8aBa
z$Yv9u&V~;5mc|e?iPlB@NBPfvzJ!aq?f`D6fPBZi?owWf@DKROmEkU|Rbf)<7X6p&
zEY?ipL@-Z-+V_dXa?YZaKhC&ws7bPTgs!8SoV+=_2jAI;s-jdIF?C&6-hql5NR*8@
zhkpeJiMfk(8kl=<zGR*BO1r@eyJI5WRL%_G#LPBgs|~u|praZb=N?UQlbr77=Z4PG
z1TXI%mN6h8?6ciRaebY2r)U>myVK}&swva8zh##bcI@X`rOZ=m^Z7MmxSjPkn2GZl
z<vGr*Y;b22p7bCg-Yem75T{l5bzp5YY*ZO{@gm2XSHA-OWZ{V0yUI)p*k#(X<tiAE
zRM%b2T1fh6pVPf)FTsmQQPUBav*CCa!l$e%mmAtEXiO425*1~q1(<oE5pWmH4*zs)
z><oipXOmKUp>w<*yOJo%^3d#%-X2FqRM=|WHuqEU@%3tipb({>_|=Nn)GC+$`_=D5
zBulux-)>QL%}6QDe(zmPiD8jnE{0d)lYrWg_hewg%}j8e%&+u@u67H0h3`UGISq?u
zLLt{jJF^KlksNEHDiQS)vR<cN{{Pn2`X3Mztb(Shs<_(!l9vBrm@raQfkAA*CI6Q#
zNJ<Yd2o95jjq4Ay^dAxFW$N_*Q<47%vc&aY$PzL)3&;OZksMtAy)n$f%Ea|w2-1&^
zRDH+oCSz&cQY5{|)0Hwa8I7-pi;C<Lf2SLnG@6WLWyQMK^!wE~3(rok{X61!#D2c`
zSiFStKWlR9P^6;v5WB~U_nRB%FYcRrft_bxfth=pbMLp*b=Fq4*|Z7d)O}_T>)yEi
zgOCwm4>$x<i&LmSs=$LsTuR`%0CxYD`hL(S5ek1w5H1;Okm+=bFcvVpHa=uHW-SoI
z;DUd2V<@$VAV#6`M?h%h{@@VAtf#6Ry8}g{xk5p}muoh?-cR6!w-B#HcpxlHRD1-6
zLN35UplL{u!C7iz$1l#n6O2rvqwni5z(xWjFq#3OY!FCca10^zAXvGA0GNwuakqfb
z`0tR?oDg2vH5+%U*~=I1l&_@{2w|H!K{z`k1u7sT|9(?{rW5mXv)c$Rm{I>AVL|sX
z5E|V44d+xFB&MMZ69=<FM)=ShxZnUdg<nGEz+b8ygqZ`v2nXiWp}x){wb2OI`Z`;(
zUt_M-XHvmjAO^^YU=BNL0B80u@2FNVQKMcCJcy71QnADLx0ZtvQ!<3C34bnGf1yU8
zQYKmSyjWNf8WN-cNFoGKIM7}uF=mW`J(yTZAY(bS-I-vehB}l`pycs`zD*`3%}}vG
zwi5?duwzmTkq;p<`ejbMm<FI)HkuE7A&A*n8=*eVP=CnU$+Zh`z#d@;iUUwG{N1Zy
zJ`@(1W6*~^&>UW`lhE<z<NccI*SF0GDiEEl>7?Ea-HZJJK3=O4axoZf@8UQJGe}Ge
z5FLG(k|5HV2o?l)VB3bo{=4?O=&wT}EQoofn2k1<j8*@KiGOW#h0f1+$0q0{7qD-H
zw2O9Sp#liZ`97f~fX;`sz{vns#tDRNAxLR<-7}6dD~Gdr(Cc^i=p3~PMj5`WCUPy=
z%09k3;fSw<)Z)9bK?{E$Qjdi>R7b|9O6y&Qv2N1}f*8h#G7W*DQ|DE$>bI>0H}a*V
z?GOzd3vGdEB@dDYFnX_fZv*>E5{l0!oHqyO5ZpD?DR+4`K>XVV_1th-!d5B%7qN0#
zm`2QJQ*(Dp9!_N14&T#?4Xk%nf?@57!$Yxx`l^_5qx#?gL^en}yU}fLTG%f{an-13
z(X9k;PGkF?K?0Nx)r(fk75B6{0gL5~){-(-M}?{15#BV(91t${bTorEpPMDQo&sJp
z5jY<CAED6;fQ#GR%W?J_j(kKhBMx1GbIy1zPtme2CuV(H+YOTu(FN@AYq`5Hu<%+N
zma0Hk2c!r;_TSr!elz3^GI$RWck>Bx`n=;xkbI@nIfsb4-j8f$(dGi4+_WF{->{5r
zQ_RPj>drIZ&(Iy<+%uf%K~#n#-1{G3^#<7D{2xCEl+T%LuAFO|%qxPtzg&*iRF<CF
zka^X?f{sX`#`bTU{e(r5WI(8^V?AK@u(+Ie881`KL4$cpt9fr|>w<=oF|zulP=DQt
z(oe5*<l~aFYIU|kDulXiBB6vmHJe2mpMiNo<cFNK&3S~L!KSyP;I8}Y*=L8#q$ldt
zHPSo|DC%T{w-gXKEm6xKO-Ll)u$sKFyqcbVKCi9B6|8$W=u|l;iAb8(>sZ0&{2d;n
z5c0PEjO_Dwk6%x6(BTPc>n!d^#FZqRaEkH&e8@>UWd+-nPb!RzGt-2sjgR<59g>m1
z27I1bpS_D4Erb(cHLgYc&)@w29`=o&{#c^}biT0cvp3(QNOv{IJ=86-9jE&wBW}>2
zOoRgam)a*fuNgSG1ex#d2V`yGCv15^A@gbM-LLO_ne}m7T(=2R+_+ibaMbMEkGADh
z%OC0ZI>v;nIgYOBU(+})nQ9EApySc-Mg%KqbW0r~Uqbh&A1lOC;`QC$zO+RQ(${kU
zGE9*=Xtb<mtl8aAJP`)jj;n3bJZ^OjMD(Oh0weG7eR7YZoM}4Ko$XOuDX-~?yluYe
z!K~94aoCo;RrXKjY`g*W#3GJC1T~as=`&R63|H5c`N3c35O!2RzRxGsB4uL2IVIH$
zs&4EGXMC--GMtZA=XEswPay!~)Q~g)b$ds~FAAEnKK|y58U~iJSQ`}reKg;SP}S7B
zlP|?bl`dP=GPhBS*!}ou@(AximiJ${a0SYOuXvMe)S3Sh*5(Clv(dJlx_YPIt^yad
z)&Bn88i%#stjQJh?!=V3>Gp<f0Ff9%XQsxwenh~OzBKEgjL<_^cmgtA)5vEBMCond
zP=N;OU6Za~C3%l$NN2JhNhqD{2-N;l<9EOJ2wVVW`aJ4o^cA47P*Q1{WO7EyZ9jxl
z%hb@Jz}+pg*4U?3({a0=x3EQ9;oR0&lGI_0%^YuCbsj%$p>~3Qn$LPb0#p%=K8j_$
z$DJjA^W@K)zA@dQTBF7rJz*OG>@R|m-mnRG%H}=k&IcERY*D{dyv377*PD5dRb3tB
zimbBL%9lphPwF^cIJ<b*{!llnhl#(x-$A~%t&~9L(NhkJDg~@Ms9rE1jbGwiEL9Q8
zT#|BO@58wK8FuSXqj#F!XpM3bFt$JQ-4bs1UYAl0kdAOyC)ohx3Q{uy#+&YyMFT8!
z4O2hoOmum-#M7OKYne9W-XhbDk*~Bk2fCV4e%)Ov&Tnq1g03*GHc_yU%4&VD%hs2#
zuDMW#_&V|-=xse?Qpa-;`E8wLtK6*^dib6Q`zC7cJls_&shP3YHv2yi%ilEn%q@(`
zWB(cdJti*sJzOZNRAmbSSYXLa_x!rvS(AvFdD5PV;OEfm^zwr>-+zU<0#d_gR3<CU
z78M+zCz#NpW>sEZB?^we5kJ%>&sQ7ethK6?J3PORiQlZWZdo4gWb9HX!?EJIL=nbS
zq0;vAX3|a$D`!{QQtj@Z{#(Bf-ok#-U6Pub_fm&eQYA$=zrEQCX!uq;7$_ziPMUjp
zN6}iFuK$!^tvzhZd=4GtE14jzpo)>?kd5%mh}_0iOgSKB#-XmH#_w!4>mnO!;hQRd
z%({H*qE>)XAN1C)SaC<^EqBh;&F<!+S0bwUS<$pJM2|AEPED_Agt><?k(|3Oy2?2f
z{1;gyDS(rbm23>4mTnW~+z=PEQ&FnrTWdP7&u#SC{l7>xuKzER7z0*RL|#c-_D8Cz
zXr&-617oNBfda9Ead2?5_b_#IHL^*$fdau+`EM_`|2+ARjoW|S*;?BD=r}u5b0Zf^
zdpl<vBWDXnC!^n%CPp^@TVs&x|Dei$I)MM7%DGtnr)3*6EAxL@wsHQyiq2Y9MFS^k
z7*n_yyosdQDOPz~%8p4a8$(&hVrZ0?C^2?3h<2=NkD@QAL_3%~JQrOBIgUhGh<di4
zNagRZS&)NyWSU>9r$Fdnq#}8IgCn}N%j^#~mG>t;-Z%GIzEAFSQ)|Kq**<g_PkoAM
zpke{KK-T6+A<#rHQ8t!<v3{d!xV~A1HkMUzq3LO)+eBF4K_IqbSbQg=*|B8*V5vkd
zlE?&L>*T4xP-wm(rs&&Ns@1Wip+4h$$QW7>VJyS|Q)!r6v@oIFerRf_pdzMhsC(+)
zP#``*l%RFBNWx=_;G%w|K%kQ=Oa=^|qU8OpiA>;?&<Py=wWA{d#W<8(Bj7X~e`NQ*
zpoH&`vZ5*9LlPw*jm}v=;=-O;U1k#HFXG-ols35GKKV$*gHvTotdI2#`P7)vAsH<}
zY>l8>KBYV;2!vU6n5npb=|Y79p&-W%$k>bsP^~1?ouLC%fHHKFE^$&-w^(-%i`uP=
zG6p9bhQRT_Bor*b>~=V&^{K7g?;uhbB&mW~3nXH)<qW;W_>N8`f?-KT;#}5DAk2|A
zX_hDpadRdi7BHklL|ULqA~+RlDhkqQAd)myqF#r)enouXBwF%#k-~q2vilgL;&}Po
zz*cma->9qSaHUW*LW)08Sg3`-<ygW;^DX7J{xp5a`)9C#QG=iG?|!r~gh50%2Qwj{
zeAZL{wy5kkL6K~{5hK;+mzz+VokftKR7f~lLjtXhsDHYMS8AX91$<NQ{a4}Ws-JDm
z<H%R#6?+=<(<C2@L=t;;&Uux;A2I^k59o3Cd1XI5t39p%tw*f^kK~txujp4#(9poo
zY|SXDcm;9*sCp)OY+vT5trly@i61Tk2S77)7hep&kYT;A62-kX(nY>VYeHe=Sbeu3
zhMNN@ZCg@VnoKLa9=CULFY&K8uUfR=QwVtl74L6s_(Y7m<`_r5mu8y@WvuB~v?;F`
zYCEWhDD-w9;jpdQZtCsYyP5D>Si{8d;;YiNZNHuX4}Ey-HP6gCC@bcMLhJmc9e1?W
zqorY&uTwTU0oKlZ1Aep@C={XHcwNWq$<FO3d!I(ND<_mNm3;FNf|k<7hiS`%XSLx`
zHkFi~bS4diDv{Rf1oG<XzHe8<wbJhw*Oc)Fr#eCBRfscK&h1<C5ftcx^sP_w)^B1C
zMzVf@K&^;j3o4=$ljqb3%abb~NO!E#`f?9!t%Bs|%|9z|WRz~vD$f->h-pvG2$|D~
zSb98YcMo3nFt#`i={=(39D8U*E|R*kj5SkcRS!oP@=IeG?AALfQ+T{D#1lw!S5mOk
zICuoniq@L(W3K3VBes0iukHA3IDU7R4=;>>0`g}`nRZ_R*aL+8Li3E$-k#~F^ny|f
zfx^Dali1den2_*y^nWF>Ij%xYJ39|;b=N{3<4N6GXX+Jx+X?}3VHJdfn`ujP)*HAF
z3U2E6#>KSBf_)-Owi=`lF`lJh_=v}8%{>nY7woxzC8yHQ)otpxCpO`zjbBDwdv>$|
z0^QvwcTuduQ3jRy8hq7k_KUH<qCcQ>@Cny`nO1BTt6zIJ>Sdt%N*{4%nsrnhnj&V_
z3ApOq?%km;6@Cn!{$i!`>-0=SbAv|KP{~<+u%3bGp-JFqKk;EG(>QfxBc5*NB;BcU
zJdowg^xppr_?X72lbpa55I<=|4&dJe;4YRo0?ahrlHnY}Ng#O$wgsuO-O;16T=lCn
z)4EpK@cTL!SL|EKY0KP#ITXw_+-isjn=X6aNenOjZ^Z`Zf}XJD-)SlD?>a;7FJLul
zq*O8S=37!>KD4d0Oa!d$xzE1$2Cyc3udh>^|Cw&M(fvWK%HX!vjfpXM4cit3+>Olv
z(@8I##Rl1PxD#ARBhK(0u--2A{E%lkw6$i8H8(8dg#uLDC8kp8)Jny)Iu$|TF;8gl
zULVDl?`|SXUyM{%95c-%4<q$?wNwcm8&xiy(Lwk#hb3-Vl80@=-S|>7Du64u26w#^
z%mm)M4aE6E&9LIC#iwXv`&@f~(=_&r#B7R&Im55T^TN1T!-J>#TEb1`cJKMg)19au
zLd7G>gWH>Lb9e0>8?J%F?Q?fHW%vd?54K6#_Cxd-c1{*b8E%`-G}i{h8WjU$c9pl$
z6Caub@lBStH;h-eE&6S9@{6C$mbB9Iw_W$@cm8>S0o^UZVsJOJnDQN2@3s<Y-ZRw=
zn^?QL3B!F0GfXRv#o2WXR~E-LHowmb>8|;3-5XNB+iv-h6G&7RnQvHH^<QiMx1#$$
zu^&YhaZPpA{}kQ-YLMVFvlG#CvojMhv#_%eadNTf!7vIto0!_U5OK2q_^JVe(Ehi{
z8tZ>e;clTokl8Km%q;CJT|628s}4IjS=yTZ?{)Y8fP=XH0|%j@aB?yIk5&pZ6BFBi
z3NIK7(@*6kwx9%5HJR!z?KJbty33qUkQM2)cL*1fal+%Sy3lSBZ$ZryZT(zC@bg4d
z4S<tP?}zN~jT2BtEY@Kh>&dq6&LY(%Lkw2XG@v5kr|HQ{y2~426zTNzOB*0J3=R&*
z#1?z<O#k6&bs}#m6Z2hfAYMU1NTJC-=-xh1Lv!z$Apr2JxF>8Z5Vr@HmX;<D=qWkY
z7xg}P=o)ZVrEJs{u=MbBvJfv+NLd}d5a@3!aF-`T;Lx>okj3vaAkf7C!`uYg*+}r<
zEPO*V({nf`U~SE{g4(YFsp)Mzu-#Ah)ybhffJ(IxCDYF^?#qA$8we@RjL2ID(I0yj
zFIWv548RQ!HFx*py!K6z;#SwB#?ky9@?{|ZDd=g!ORE#}T?Vwq-O2@;1td+xnw#(m
zNU;L_rk97dFgr4S-qGSVH_@S0VfKdAA@aZ4A*QWuOyZrDT^e6oMA^MO1o_awvao;J
z!6BOdlmV`&&Tp)*CtLW2do++zGokf1mqQHs2GoA3d@@dcL5f~F);mF-)(L-@hM<Y~
zeLXY&`R0)w-$wgwW@-<-yL$|b#mkNDoh!5q8Q2P}e+fkE&6>*#bc%pHIc|*T^tTa+
zDEkFyQdpkqTQ)HSx0mKg;dCbyvX|xy@*jvM`4^D@P{kqPAfjQ?8{)nxXsz_Oa3+v?
z8$b}MKmP$z_)Yce&kK=nIRFXLU+ohyu-4*3SQkirN)Rgl=m3E9yG}Fe`wtf}w+S!g
zXgH22#eI(w15^t$Ry~}$VTNE-ta5@N6v@<sU?^@pEBKm7^M@ds?zh<G<rm)2G{l_!
z6XtKoT99uhp~;Wu@XwJ(z+E&$Y|?j(CSa7Dc%hEH`8@)hWa$GDwy=M5{E=}TFi(V8
z(t|@pjsXx3m7fqSCkAbPaHs`a|5gJI)A|G_7ODCUMB=sm3Pd8c`MFE^LV?w?UKX6(
zj8*rh_1-n`98D4i3<{+Se^bJ@MGoY!1x@y?LR;9wvV9-mV7`BgWqrk@=^`xwVySfk
zzHnFup&)fIZw)?TLk|dBh^M*Q{WAm1C;(CZ-+;jHl<X{g<&TuHOQe}EB<Jrx{?&lA
zad>J-(d|n>qfjN#2F@S)?|gr%FJ~amL+$Bg`Q9E1*tYHl+|wEesE~=A&!EgR5YHKT
zLzUQt9Rd-E!#B*J&5<j_L;qMn`!_goiPr}>@t6149GuY|7|*9p-}k#5Dkfx`H?uQv
zDmPafaZD!uozI%jmqJ=u1nO`3>F>9n|Ayg<k)tKhM=U_dJ(qfXo^Mo@XqKl<pmkM)
z#=agb8(DiZpIE)E*tr;<-H;h!z1dK+FV3;+?LgFW9XFEyg&(Gc62$@FQPHxV`mkm`
zvYObI!mm-##Wq6`ACqD!P0)d$+5;NRtaEN&qtKeCR=gq^j_Pvv&NA~J<E(Z@&i;(7
zL7mtBpljVR59;Y5C|$B<6%3}f;G|q`QpAN3;uKujW<)+XP$dWUq8&oS&Qhi8udU}m
za2M;;-Hj!(l|drrvxfwj(Y8sg#ek7Aq1e}1NNH>}h+rdv5L!ZWsqJQ$syUUe3Qe_b
zHn4i_+GK7kn$ul60%m`2jI!zHl4umn{T0JChPeC{tVt79jo|*FU!ErmJployLqLQ(
zIIKkFDi=!>UwsEVik6#^BdehrarG))%tRohAEHJm7R$C~_gDnz!($?8UHh!IkvqRA
z`kitI{kOWshtc%|pW3CO^$B(warz><fU8jBGVHf*(JN|*eU~1u#zWhPy?g79K>UIG
z+kA|Z`L=TC#!D!^Rsnc*+Po#1UkE+7*gDSd<B4qJLcUt*$I-h2YWY~Bv7u52(Pkk#
z$q|OMWOJSRk#~8(anK!=KYN!J#!?cjBA3G(Skr9-R^s`#^x#Er6IoCY1#-*9T!GWK
z*cEeNmR$9UzHDdI7`X+61*Lg9TT_5HjyS*gO?CsTU`s{uUP68e4mS^`03XeMOkTr{
zuJMDl(~VPzfl<=4=LbUiH}a*!WC2JQ0qe&L=&8wC!ay_twPcD_UmN9LSHmT}uYXd2
zt`3&?*;;@a&iIUhaMK>Cs;ZU;MP`|($h*v@;p>s9f^GuCrPeF=9v}bJ)>u2Gs+LGE
z0_2kP!@?#U#I`SMhIAaH;Dnj=i8^qbv)uK9H!%oSKR6EccL2(RA1H}=_zh$3C_+IC
zRe_5#4E`^`*Z@o&Ht^0=7K-R1fZFG76^6q}t?wPpC;Kt>3dhA0^nkbYqL@JW4{)uv
zhWh;QTFzl2`SQzguWIS*G;#n69PR{%aL?)@V{VeF?!;hQk604X%*iM=lL-a`z$j6J
z+hZsrduF1s3qYnZf2r)a-qPH(YD7&-B_<VeV6YAlE9QRV9?SVtv}k!jA5MF|dtM<4
zXCir%G`#YH<~xLwE=@%VF~CqTgPgSaw}OUCa6#p_WzjCXpFD3ithlQJ^YF<GP;2(T
zlpVHq1_=q0KcGdJm~OwEBjOttkQKN*pXapwj@y(j`rr#&DpO+;P$GiqIU`5(1oA#>
zb+TmvQ8}R8%!Aq}bH-UPSJfUncdJwkrJ+&~)zR!S#e#_^rpEJ@w7Ap_F{RK*Umqfq
zVHTCkTiSq9{@pOAc*57Yh9i|i+Nn(V5qztQ`&{R-k2st;#Uj&N&%@q!ip67i)cnd(
zoBJaA?GU4Ot1Mn>8I}Vnv$yixJm*KDBDMiQD>R98W3&}YRbAhg(AcSq9!ol1Ct@)i
zK{eJ51QNU-rOkRuSA?5rKH@FkcI%5@Bjhpe6Zed}PV*=YY+c<*Q1Dw3T1IDyXPhir
zgN2Xs7lltX$E{A|?m?Zg{-~>k4)OQDKylV3N+-CR4Dip~byqokEffnB@Xx{3IH2Ev
z!AMtxp{(lz{l>GvH<`qHqnF{q-Gi8YO>|a_3U-AXLFuUWy;VI1!m-mBDsnti8$3bP
zf5|usFoafT=+C4+?Tk5&U7zG9T$HwGN8?wssyxoPf{+G8C1a?{=h)l_M&$def~5yW
zf1H2(`_R>1!AyA|RU93?2l6)Gid7E*shs(w{52k28Eri(sc9(1H_G9E(QS&;M;fIG
zYGh&Z4ZQb5aCmWF)(bxh+N_wh1nQEDzx@JyYS1uSx>h)Qj~fGxY7hCPOe=?eoq4f5
zbe2y9R*UgoxsYeqesa=eEakC3mfSMqY)3;DY(rH!RL`IyjGWbLT3hafA?zan?rI1b
z=0E1}PhKA*%?yDUB=yWjZS7D7ac&zXLp~o{9p!#~4QZ{>ob(&h%T@^()1w_&sPowc
zWmNi4=iL>I?_`RW*lWw8#BwwGZHPRg4=F`(Ipz7(`@M9QA?!S7$+%i`SFPxAKI=ps
z#oNpydKNvI_pEB|I3jOs%PMgJ+=MS2A_zP7Q=jVdL*9>!Y((v{6HFCg(7Mplz+F8U
zMcrEQ8@Z>HH;jqKi8D8m&b?0&L~%1Dist*ESh}VIS|ngO#LizD{pj`4Z49PIH8o$I
zn4%-sl-lmrNa^w{dzMM313{}6<Q-~_;LH4casQRsE|5HQTemQEhQam%_%%x4PJBV5
zMfogPT(qk{DjU4@vN^=3(!d~_T1f0kMEN8JUr0&wqKZ{X0#iE9j&|w81dNO@<n)b*
zPJU@`Pk>8^64DCp?WgQCV-p*XNXzT6Cd_s$cLeXObMN%#jX7VV`Qg?>jm~~!Tl13<
zO8$GdoqMxpaW_CJ&uQrgJV!pduIPc#))(1n6%JGSVQ_QFzAVUU^Z506#rrlZc%n?Y
zSsB0D&DQefq&EFi<Zn?=C}NY@G0VFiCyq2}$9Jh^Ety1yXjDxgT{wJ9iJk4oDaV5z
zo|vZWm!FS+ThMJIY<ra`LyRk>YlQPENVq#DXY&75yZb0OVd$t07(=k%=Q1W`>YxIf
z%+GTPgnRynQPfbZ6H&skO&jRnDVIv9U#<$bpW2SZ#-o`0+G-cp>Jl#)`&926g}LP8
z^5&^=HZ9|AJsky9DB^~YQ4He4!YK@U36e|l%LU$>l5-X-)DvyB@|3pT2{f43Rs}UP
zFmJgVvP(wcHW=RnaJi+eAWtO3bXf;ON+{aw)~Smd%dreeJFEM~hwos--R)%gC|Yz)
zw@C4>%CjRiAaiJTRQcxchqfIltKta^oPIW#StU^-`5kEt3bVk>Jy46X^MrHE5({)@
z`dX?~kcF`tLwPY`HX@AJ4;K7bb!|_^8dioJUf{zYrqH<+V69YQsUR!JZqHEH@_S>r
zf|Y)OH$&6ihV!5+R#aTp3*XTe%fBD7nmbF1lC0JP_wNb4(!|~5*=6)eaxorXbECjr
z^8o)iIjez-MpNkB#OT0qG9n~M!)82jpD8AGJ;lMnDoFmsC|ow=(@b=%;*m|CU*6f#
z;~}XnKO;IQfWz^r(ylcQ_`3J}XZao}@BM?baXm*vq&5WIK|s&3&9y}E+3-|rbs!sn
zt9rP0U?chylBC-GP7DEQ51k|s;YV-XlWhHvUHm(0kJ8=5+;6sU%|+R?M+Aaobd%W@
z|1y3bxtgf+u+~J&{6g|G_i2wkA;u*X#<@zRP<yHmU}U#86;U5DW@zM#f*p}X6z#tq
z0(B;vm`Vo0f9cF2u9`Ap=oUA$^{dVVC9Qf+ssBup>)<5ckBhHnwq8>@(yq=ZL}+35
zhG+1JtqJITWciNKb=?WIE?L9fEp1YFE`IEZK&_cL%`0fn(O}WARE0+E?TG8*iQC9Q
z!f*2qz*d<M_-@vVY^BY)BVO3R8qE(<;9<*YI!JOvRy%`*Fph^>r1r`ZoJlLL#JkWM
z@2w6!a#P*Pq|Md3XJtCqPkQH?B|x#uPS-0cu36*}X?ICBE|Yp$%4C7v_m61Kp4CUJ
z6CzW#6CwZrK|VAAadFAmR{KF9(`qR)4Qb8-s4`_a2t_CG?M@<MQ(U9ESRA72uimD#
zUrO1alquL%{zY=dMI6(`+v1gCZXn{^=ETC8ZMd{%j)Pwp5U_K}Np3>uTJ66UP$pKK
z)wl2fp;7GhZL0un?233cH>vD^K34rq>^?w4t~T47;j&G-!bKi0)E(zEH*!Y1bp}%l
zn4v0SiQn?t$*l9^rsnh<_%LNqD(jPRD1O4rIXRmM0N%Vqfi5ptAHkIQzI6`RLPmlt
zD}>FNeHXCejOObsNtMDE7e4Eg>m>L_+P=+84%O(zN(i?`Bbn=e;aqE_<U^(`+ZWz6
zrDpHAFHHjX%>ZhobX=(Y>IBt#nuZ(z@YR%8^y<yS81RIwz2(3OXAu%uBS>gtjYatx
z(yX|x@F#@n3aDdDw;D@QnHvvd;4@}1rn;kk!caSIN)l_HGWJe^_-@>9B!@SBjw?HE
zN9>>`dDj%QzkjOEK42K~K2#Y%M)7P*qRlnumj#6=xBVHE-|ol@ZHuJQ1r<~RRQ8M9
z2;3F%{PhAH2$)ofPv_>W7P4DXlZYilae%F`gFQP(3u0D2KSO)uh_an?;>4r-C)?9x
zLJ<Byb5}uFJ^L@g<+=!i4y+}TiAqwC0%!Yy4mE7y#>s|hRUEtcw3t3AGP`z_WS9qj
zhrsT+>Y+$5;1F%qj5Rue+QHd?U;r4{QS0cjIi+^8SNOd7i3`pyUF8D`_xiOjt>T%P
zd|s-TGx_Q1<L>f5P5tjS!fE?w@Xi~UNrqLz+UO*UxznEdy1jfX!w5bX@hnqEU1D5*
z(W+`(4yb_WDi{2k#fBxU!HqA3k}q8P=}H%FEJwjt8Z(R#7PXQY+7CTIKk|V|RaMJ7
zPwmjz6YY;X`2?z-Q035k+io8%?@F$;CFh2Ua%G45v67&XUuk}#g-f>0&%DmO@A`5i
za_=owj<9SF0_S)vml7Et>}Y2!>7crSaBU1Oi8(%T9ti!A+(ZuA{iJ#W%vTo~11s6Y
z6K%xYRvl-KWd3>Hp-})J0h=c54gH6^3k>?H)O!9rtqOBq4iV%oakTp6fEi0rq-Ahh
zTJI)-=b2*X!>N=uV)M+J7gTFID*!Wps++&j_lo8lt%~g58{F=$jA3k|PV}U$30|p;
zo=32V1;y>tUji=YIu!l3+u;28!Ynq0HRrQ&_oy0Y@=(knuLN_z=LA{pR3$Vux7i~K
z^LujY?~QCj7psbYTdlE|Rw~E$yKB5_dV)-eL?|hucF;X4uQC>u;=B<*{ZUHF$KG%(
zsZ373+Wt_8FPy>ka9ORcE3z01^m*BCtC~RCR1tjS2k5=&*QGp4+0l+mDVs>Kh2rt5
zceEtN9Y{VwdaMNiEdIEP%39pGrxb_u0j#?cH0NoT{aYgczziR5A59F#36k!EeEw)z
zdw8hnUISLOpi_8p)FG9S`yv<L)W|el)z7ZJ=usM4ndUxet*`cDf>&K{ymSYMblv2J
zR*1Ks@#@ZFs^ZR$Rayhne2IhQ@1>gKDta3I%Oabab^ls`I$Q?Lrmf6IM?V7NF&v`<
zICukvo(-Xh{Ndj`)_>{+x}bw;R!IAW_aQwmRBhy}l;XPmMjjtec%$Xyi1%IM$lFNn
zIAMbpM8ocrD=V2DJ%&cp_)8cWJ6Hu276$#-#tgmgzLF0NFN;K7XiIcE!Ve(ZFvnwA
z+l3O!#0*0K!wD}u3BeVV$+<?`=QsHmW|s_z*YLO<lK#O5f6-IbqFS?-ZFdEB9l{&V
z(BC?z$Knf?g~l_>wtJduz)w8pD01?#lDPNVh4c_Xe0bw*evy$<f7`zgIhe98RkR0j
z=~(Hd2(j_C3aLk6yyPvJ$h{CLi4!CO@bx8#gOF4K7M1INl@pv+L0u;qH;Qx=D01}7
z@;>1YHY!83%>tvUxALmMqzO;C4Cdowx3xv8!p;lNrvgpE*s{WYVqH#+fzJ6s@*!*y
zCbLLCYhV<16a+GDNt4${BL1+oTh4KpK==Dwc1&V&emB8;i!9)jAq(l1lc>zt9Ou_d
zlQyOT&g%Juh2+2bH<6yd(&wlBrTbt>%M0x4LOZw(RzQmeVyv-I_-uLNykRn8^q%dm
z;?>#<j%VUkPDzHr{u%8>D~fILuL{hcKkwL^1rQ;PyL;_*)XYJ;OHzS1ojDB1Bc|Q{
z0r~W8-{7#Bw~Iqz^LSiH)=6~jUXs(qWA)?%K+X+`K|BhXrRcs{(x!Dkue+9j)T~&5
zUH;MB^5Qh|!rMEju8OuC*b+X$fi#D;j}4*q_xhB&zR4Bw5Jv8xb><ZO1dxzd$#Thd
z8xXhwEry^A)Yn{R=~8FUz>>>%^ur#yiCsW*mbdOQ+r%Wjy{X-Q-BPb|cVFhXmuY4J
z04Fc(Ir&IT=71E>!L#zpDfeG$eJW(KX-oMqL!Ci6EKpzLg-mqUC!-X&N~bZ*zti|U
zrmPbni>R`BY_t#twj4M@mhI1~#qw`EMqIr)lOr_0API*OYWuD~9{2SmR9Fqk^Eg+F
z6(6M4dXO}GP$f<Z`-lQnH`s`~0)ZC*3WC{#3H{^sNMGDpC)pBv{k24zKJ1mES<PT}
zULtL_?gmHWHpspQL>Lny;l^$d5D}D)e}+TaLMNasS~PJ{vP+)Y6LOF}uOkb+<6?yo
zFYw|R+)q~uV-w|Z4_e#;0*5K={IAa7;IE?ZNv-(&PK)t+S{bCTbuAg2>XG;W$dy)M
z+E5e%aXWt>HJFS<r+<@Pmv~)MkXfDybUWKN$GT`?XtLyS1jFp2b=SHR`-x`sjL~f!
zF0L+U(*{|%IJ4^t-drJqOElIDY`hl+5$Cz`1{#EJ938MDJW?1y{K?sw%v{dt<A&9)
zxDF=5pTP)l5z_A$LDoPeI+R!k+)fBb_;`#KYpThz7aW7pC{LmG#S8*gZH&_=t0q2N
z++dr3!Ab0IWOn%Qp;CF_m57J+z?({~$nbL0b#Y(+CNmhet&**X9D2;YwWWJ&M_QWy
zP(vWU1>$bbVccB>))HPuoSw=Av)^7wBT_K&k>0s@8O+)#-n532`I2)2z#=cy)L`(=
zc<o2F-+qzt6CWLS1v#}@c^xWe{bH5Nlb?+HcglAZD4F`4Bjpr+{OVqGC&%K%5je`(
zO~ndc$BHSw16Ve>3m5}zreFYvmEFqHl}HY<z11_`)hL4b_T^3`$=+fmHS#uelYDny
zgzd(B|69j+F|!SFALz0GgiQ4~u>v5HH=A18KiS{B61OeL{$7XKwCuew%s98x!T%zP
zdW2;sPWYSCs;%Vl*tL-W87_g|90d=HVIAvAv=Aj`w^<=5qk5r|;AF(oHF>ajn~Zi{
z3HQ2%h22InKK5rf#B_AsWY*n)&EZ2|N_2-ljOxr)SjNlR)6en^fTHrN9jBTtr&QPl
z{8=pe;mA93n|ExLX14=01CO|gXd#65!H+gTVN9+uixC15A%u*(MLs8(h9p~kHA{SU
zS8?W0`OU^^2g~e+;cxbkJQIcD5H3!VAPJ05<pzzorg%4(BnNn$UG}^YJhaIa&%Ci=
z)+>dN)cLU?-Z8i`0PgjcAV!R)$ykZ<yYU&d(|ZbmpUzX%casViMv&Fl63fa~h6CiA
zosT-sFU2=r*Th{Q=#a`M!q<7CJl+6DA<=;#b8ioK`cAQJPuQJQ0KPrmRv0fif<E^x
zt8fF8cU}3K=1<Yjq1wczNr}WB?|ezEeb#UY_h~{~8U{QWaI1|4xv&}BeD2|7TN=%y
z0;r`Z(G~)!ra?mANiNW|F*)PR_Ma>pE2r^T-b=%+BGx4QF;y3gcURBzm1~SQ_;K$t
zin^<{P(nGfDJm?K2kOyg%5Rr$6y&%s%9ZgBY<oq8$r%7E?!Q)6OjW2k)~wpXktGnE
zv|=wvB&72ITxaO~TcNx={Cix${jF$X`*H$&Bsm2kdOy}xl8JuD1nZRK?aX~r+W?Nn
zgjFnW-Wd{dP*M<)P&<QLZW@<z<hEE8_&6NvWY@w!4|&4Bh1BZIH?E9r?6+~gbi+U0
zno9;e<*YCi6mpg*KMw-?oAE%krM!#@?IECEs%*9rAi{PSIj?uArJvT+czq)ks=Q!o
zHT*#_SPH5***1J%g*YIG*Op-RNrqREYNW*?=d~#cC*^a_d3$9-Y-k0xhSQ3W06Q>4
zxZX43gR}EJx6%^R_q%Yu)v5`U-Esra=fV(%8FuRSvh18YA7tZ{XZec&cY4+a@XeAx
z1O$%^NciYzALTUjlJLd2{U=AFwly}WP_+lVmWM<Ylpp}ItRU}bE_*)9QN~<|hAmns
z#}a*E8wJJL`72A-*BL@G`M#gL`QI#5Cg@&{gT_CwlI>M~<zx@dMW3sYebi<+bPn@&
z$$^$yQ?v(sVI+=X=P->o$NIl$#52k)Q`5X;fWvBimlUt_@m%!#j_iqzZQ?HX>KBYD
zOw%axr9LGs5~Txg8%){^=JY=SAUKU(MSSU~?S(Os>t(;x#1wAJ5-mWxZs6Tr*B+Ci
zUQ)@YNH=paqL^JS8dg~ZeLXlktq0Le_mVZp<5x$;_>$hp^n6JthV{y`Tqq-usQ*CZ
z08T83r^I)c)Lv~BVKAIB-8RhU+*y=v1U22?7mZ{!`qf>2m({GFz3mrN^&E9%cvY;{
zR4DZTftcZBY<WgD|2E?L!cl0|@dUE*IK>-I%x{4~-?a8MBMnfi+Q=8Dxfy7+o8Rq)
z@B4ljRZQcL)|Zkr8y<6Nfd}&)PY3od1-OYIHNoY%*Ga%g2u5;9&V6EuYfW90k&l&Q
z277|@I&&JQ)RK~;?31?y*<$_mH}~Vu`W&9idt5f!fQ^C4OH2}@)`jC`+iq6zD7Ln1
zV<PT~18D6Q4mXJSoIk+RzjOiNQ5HG8DuyZC|8#@jKgP+~SgqEfk_@;@ejHb*0nntR
z@<Gh&CemLEP_>L_ohN$HsApr_ZFAL_PpA{8_VGxxgo1kONbq)a^|NeEB4(7=%L=lX
z9`06Cu2z|?dOg4Ke#MU8W`iJ_a-Dy)M`fM(Z$(Ak?uQzXJnqB!AseM*Wj<${1r&7;
z4e3JnpsFzIy;7$}6)r^jS1uD?0KT19Z!|Jv{vP>?>XB~7%ue@8SzkzrgeAU%jpIHM
zF*@5&0Q0JWvo!R|lH?sK|B=uw&Yj;yDs*UxE~u#}44C)LzKjG>efxF&1aIEX_}d_?
z^H5Sg?y+u`@?h_dCkBg<i@G^<^A$X-gk0*vTILVB#2*JoQjxy_5n6IKw18x9PI-ah
zOgKqjbc&pawg61AjQnumwhY4~`o?{4B;&q(%TIzaQ5Nls$A(dcHjP2?gDvX@y?HN~
z$-j3Bvr%)@IQ37^b8dh1q00>2^+t^4YvME*m^)BXSWlN^E3KRLDJUtl#8>~$ws|#Z
zSoXB?TlokXjN()TCi&arxB<?E6jHN|6y7eAmpzt+bWoK`F4;!~^zif0`^b2wjutHm
zhnS;+hIYQROEP*SR4zi*XbBp~w+x~>s<>R=9d`UY@PY5+k*N=8{!Qt9uz9ftK(#|%
zH}k<D^Vbkmm!FL}x&^<PZDdUjydQLomhUL{$7%U(HToom&IoF&cLH#^7Vsgam96j$
zlU+3Ta0+%s+T;}84`SfN_?AMZ%3SM@0tsaRpg_ZZ=>%!YI={_;`Y?t<B~)}E>8!0I
zpW%yI8%C2VQImUfvhh=aEpHKbSeBs?NB<~E$+)yQZnxPn%4O{si|xEkYd$a&*FHz&
z6e~gg5tOgP9@6z>V+T0rb}CiQ{JPWNg+HR8!;nxzljO0A5!$&wO&LZbX;m}IS`0Ug
zR6K6R|8R2VG>ztG4v-4_6tIX6$S)xTy9fliCw82V+g~D@+N}(A#&%IQDiv^G?GkAU
z(J*YqcGtwNs~fz^T4b|S8SJL=j1~cJ;P}W3(lDWC4mWdqum-SF#0>w_#=FNO7EOj7
z(d)!mW;lr&AZov-{C+H`+3e%O5tII^MNd>Gs1_pQL&TSJ$C5L~r}oBK4G<vFfCiCm
zf?;nQ!dA9;ii0d;zdNoDedwCdUAm!sulTJ`v^`YG*>1DnshwG5rA@`Mu4K=V6&I+j
z`nb0;jJ=lWA^|YY1ok~{r`l$P=W1cSQSHpMkh}{cF}kvzN*^pzZpYmvVHgsHY0Xvi
zLG(-7Jh3uNc7U=rccIs6!F*zXIpB}Y8AH}}t@-W9LCG8yk+03gArmo@V&h&B8RTOx
zH|!zi$s!yyz=;1R$AG+zyV7Xn`^VUd6KY_yca1c|Mi=leStzM3t<B9o*760%ceX4P
zN?+hnq^O!AHakSJ+unHs60rgsRxTq^sLBf2CH67kFmBl|!Km^k@E}t*>ITddszc6J
zE0h1MgiN&y&`Xhpfb_^B@4a8R$^L$+TR!@L=}4E-VLBUb;6Xb@a4#43S^}ema!T50
z{poJI{{ol>&q9m(d=BB(K)GeNiaaSoT)Ft-P;U0;w^rvF8~HWJ{3`wVuys6fWFQMK
zZ6x0cnt218FH7)8lZ+C+H>)n$<|M8DQQNEm@qV*0)J-SyUw)%raXZBZq@P*^f+*Ge
zjhhH&yjC?q3i%pOBoKRdTk&RzruRE_A~1Av{yX4J&|@#F!9AI)QEU>rTLCBp1#&ac
z7J+XoYMsV-C)rLFW}c0a^WJxroOfN+v0s-orG5Ux)kbpBLLZCAHd-gWhX4GG%QB{*
z5V2o{2G1(!=j}UfwXZS)#4aI5_7E51y4fx@Q2l7;5|2Bn&tArr+Mf)C>PXA+Me2zQ
zO96S9mUk0A6>)^LemFfoWQDmTvRGvAn<hLobY((AQ?xvlyI?M)I(Z3-Q;d!;A~H3s
zE0xyC`{aMuUfYS8rKUf*b-Za<>I7MHQl~>nt~QS#hm-9&d_(Iqqy4G5d3oB7@Bfmi
zRU2%Em@i<OEMmpHb-`qa0RzKcZt_Rv5&>#EkGjyqr;gt@U;<z*HDzz>$_s`G5Eeg<
zLI)MtYj&Vju4f5a?woSc{p{7-_C&LTLAF9#ws@X;Is}Uke;JqbvnMyAi?JSYq5_F&
z@+1H)Ksqfcw!gt)ka9w0=WqI;{~2=S)n^g$Y*Z;HT6r%-pN7sh3zWah)H5GuWB@pb
zgye|k)Jxs-$Rhi-6vt6Wt2AU}th3c;$2dx0jV>$-o70(%vX~?L9AyJdq}sM9XEX<B
zjgjaUDOcg24xH@rq}=o_=k#b998*OY$}B5v`_(%h4M<k_tRc^I_oHZbS-G_ZW2Rdy
zICRofyy}LOHZ1U5!Kl{>X-SA3p#YT8^pK#S3hF3r+~39r%h1Eqc6hiF`pD2$Fa2X4
z*@kY1Q&pn#)f=9kv^T3WO3@+&wdVS4+;m?dlUpJl`Rc=+*3prQQni5;rs7#)f!$6x
zQ?7pRyAs5Fp>)+}o}>g(4xEGY$5bd>VsOM1J7lm(Ul~3oJi_aVfKoLDL;}Lp^uPUs
z_L&B}JlmlI!*&SA%Z@b?VUAT&RRrj_)YbkPJA{~SCQnts)^T(eT$yx8w3Ae9YZJv<
z9<=q0JaP<WyW{~X7g(e=)oX9UwHEIuWhp8Q$ZzD0yQz*>Ja;NWxGAiNvhJS3TbZf&
zndxP!IN82TiigioS{9>iGyp{h?lzxCx9+g3oqyM*LZfHm&UI0CFU04PI<_{vUf0{m
zUq(z5R4YS$4PJNyK(9o%rl0?0slYD|7d}p^pz6&BovS)!0cGiI6we`ghO+xy&Pz!B
z%G6S%d}GFMm?;4(P;4rbhSbhWm^UUsti{drCV5~_XJ?6kccsGNLIadkh*|vViPgck
zeJ!Sx1B-@lcO|e2dBoLm478r<D2G`Z@YbI=JcAr)&8sN<li5(J;w%Y33fM_8$2Ntc
zoG1^^J2?(g1K>zF`O>SU@Gy#g`DBC$uJsj}>k~Z>gt2o+1zL_}i0n<puXUZ8k>Q_P
z?MQMD-P^!45>a%g&jM0*PFXLQvI3|nRt(3<FdkI0?Yk8f+1MGWJDTSA>9iFJy!v~V
zp{1)}0&8|k8%ByEOa2C53{j4yilcxNxWBiU{@ru8e@WJE2%UQ}rJz#Yu8z2hQSZ;A
zg^Kgx3hJi)>&+O$YU6H5MH=#2IFYglF>5?OHR*j^zwpb<H34vYL%KvBQ~hiHqIzwQ
z5yteDURocu)@p24zw<6QqV`*NwJfm4bvA0S3*bd@Y_xoJVFa6BYi(%1cnHp$QvXf+
z|MYd;0ag@AUq&UYxJb^+69hqoeG}fi8HGh)iAoN_5+t|^2qHmLL>`#Vbe_7(h!}uR
z?-UHDqT;D2r*I;Ipq__dLJ<TNR3s>ze!uGOc{5YJ-rXOvH9ghU)zwwMuCAW<Lec+S
zdT<2J#=f0)+B*w}e)-kj%WB{8#<9hV-u+wCwjZA`r|N|lj+^k+Nq0Q;=$@aipLAP;
z;%BdEarn0Z_m%u(TK(o#a>w4BFn4yJr*<v>@t4mY{^!FV*Zb%n4_x1_(S)MKkJg&h
z!N|7i(r3;3myUn9e$$2yPyGDsKNq!c)#&$OFMPk{<Gsyyen08+imG<UPGj7)MYH;J
z9kb@g$NQdD`+}8&Cf>U3=GC{1eXZY?uAlw7w|lFv)^*B!9X$Wl2WOVed;dt;;08C}
zQGEK^E%$85o%yBx{LjOxHuz<2?OT4UyY=WA_oAmNZYi#J=C8%=?&<W)1wD56++mKp
z{;W^$T{n7i>p|6TJGaa96P926r}tJ|+x_w9s-Muf*T(l&^_udcnf|EeidH=?{BT~i
zuaA7xYtN(KP5fy0?Hi6Q?lXA9-x^N6wDZkFOXuybx~)sAbLOw^J+WfoOD`XJxBRQz
zPxD6aY}#hq%GtG!eEng6FSl}0MXOflE*d`|y~J#^Yr=a){=ymKRt$gI+OvE4l83gR
ze$De$E;_ir-_XY%-7$0Ds9Jw+|M}c$CD#pEcIn|?fAC5^TX4lSU$?w}#K)tq7&YM2
z)UGF&cR%{yWgE*5Ex2^~j&+ZI@$-2XKYr`+-+rE7cgl~oZs<|oId^g4GmY*UwEv;;
z#iRdq-=cl~Bb%Du_Ue6KHeY?k#`QIB4Ib&S@7SCBs_kvDplO5q>YO<L*5#LY*S8&i
z^^KjM!EgM1xV~ANUq2kSW{|sP!lYZTJ$t1yb98;<s{_5>9{Om5C8O7EcfIue_MyR#
zTr=v;KQ+4H-j}CdG_>>07oL!L_M7L|47tetWKV9<=U=RR+&%bQyS@Kc<JioPeyu+8
zTC4WU505T7Sh)ALUajBqKD=?xzF*rdXxm}%#=9o`eCew<b{PJ|4^!Xn_-(d+^=h9U
z|NE(LFImyv+SvA+S2{GAcKn+)hle<0W*q#n-?ra7O)qTy;<Eex^q1ECo;-Z_v>(5D
z;*>fEx;?OLLATe=S~ct4qVzojpUsU+9hh=?X`K!~-7@FpQ)f(AdT{X4<^3Of;pVY(
zCw$qz!-IpDyq`MOY{#tD{ie?9KDy;!dhBX3r}p0m?HSN~&R-sR<*JV--gZy*7s@7|
zKkxPHHcUwM9@f{$PVRhe+3l}3*xPRJbA|Vu@KcMXv&Ywe!x>RF=jGL}ZP~eLZkw51
zUTWI8*4brm&lq2xTlL|`>kr@GeQWi>y+0oIeYMPGH#}ABeRj>NyWTpz`03Sy_RV==
z^t{D;jLZ|6I;UQ9xJK<3_kY@Hw%c#(`5oWc@YH=pn;zTIwCAZke%RM(?PuGDPiTEk
zi%)u1U4PZ%sT!Y5{%+>*Sp)mNdd3gcwjJB`@|`!-dB5{p4aQz}XxM;my`P$}a^>qU
z_BfI&sq^>0-i)tSe^h7f9ai@Jk%bkXHLTO@_J3AAT9}@G>Ye?k6#lc{2a^|`^Gmm*
z_)N!tPkW}|?Ch8$^P8PNw*JKKxeuRuZ{}?`ZQp$78JF*#`~H8+pZD7~zPt72#{JCq
zu5CDcSg%ite*b7?gC6_V>~6LGvC*09hi@M~uiBz(+do*+X6Wos{(Ll>d*z2d4GWiD
zGU2ytD*jUIt!=9sJ-_FREw7}P-g@tg`>vn8|EpdvHvHt>wx2g#_K!auc=YjSetdA-
zm?4LTopR%K_xat2j`{5SCY!H*wfenh72Ysp{;CbtZd!g_;{h)}e%YcLRZ=JadGYGk
z_U~!a`qd2=96gk2v-Hv17Cb*{%9Sgwc&^JE55B(Z;~9(2xiHu5*5#f0|Ilj5tJ4nl
zUDUV7q|uprn`^f``stE4$Ie+>u<Y&r?~VJW;kVDuaSwdlcz1{Hg~OisSMmHag5tKH
zSNY=IZ?4*Y%7n5jx_<EWf>WM*?!~@aXRJK>*o_OfFS%o5+3{!G4>H%UIB>MI?N?g{
zmi=wo8LNi=?Z#dkmVP~MYn25<4{WwRuhM^DZuX#H^NJgfJT&EwZ*O|;n>yQ%4|#F_
zh>o|sGwm<$-!Q9PZ==~Ki+9~_ytenhZ?Ce}*L<hX1I1rfTUxT@jf%##Uuk*W;gdgo
z?xVu_^*gueRCwAex3qFvpK({GRcnsVAO7^t*MDsDczM0PbMM*rw)NfWXJ(9;Iscj7
zYn>~fIJUYi3fP~X->X;I_T146Yb_Zxb^5evKb|)0$+ypKe#Ha34h$Z!Vru)+A6h?W
z9o)8hjaL-(SiJo1-G>HTyWq8#XDl1Oc*o%*o7T-e-}rsa)IXoKwY9nDkP+P5eBZr`
z$6ku|OLs17-*e%A3Y=$p-duFrYb~#O_NpZh{q>C1tv(z1@VQ&=`266MlYTj~?o03O
zx#)+Q8*=G;9$a){mm@E=H@<26T;tjwK3uc@*G(?Hv*fZpx6Zt!?7Q}#b{H|I`AKvC
zI<Ld2AO5ZX=9-;1zA|ah3Ew=wcC%gmu09=(e0o_+bI!h9hnE;Fmd^ik_iHBI{q^T9
zThDmujSIfse`MUGWxXG%e&@+M2Hbn!z+)>)w;a9viorWdnx3_B!ZCaMCq3V{a=(93
zrQzQfj99noKXcx_KKS_IdAqlFsxs~JQx3c|xItOncOEMlm0SD#&MoT>4IcmI4g0UI
z+v=U)K05rt+-&zVK0S0vLDhxpzPFp#Y`*#ScaHsJ{QTvU)owj+#4|Ns*z)8_BkJ{B
zIdkubs+WH@`oPcs`eoDdvAw3YUfuWI1t&hSx!&{6w!))FSBx2un_FkccXg)Kx$Cy~
z3fk>_z-qSlV6E<F_51Rj4`$4sSLN>V&O>S}{^;h5kGC6nO=;IVuNpFc<wXN#wqL$3
z+w+>U&MxY{>DR9p_9|Guzt4Yu={Wt&@0YAQdGY-_XMgb7?Nz_+)2yU;l5^Sfy}mnT
z=X+aswL02l$F{F_Upf4?e{byNcWLnZ9TO(j*?uV3b^nWR4qn~6;iy$z-~O$gcXZda
z9n2d)7_xHWCE1;ye}CYzbrYVsy8D+!r|zix)1;fey|?M=k;AHWE~z_q&G~m9-&E1%
z)p;K*?e=7cC13w^XTzI{ANc9;X?NZKR?#O5-+XXnqpzMDxx3)tu)EHl{>4A`PkgpY
z`9BwK`Elt_!Qz{bU2vaW*ygn>)~^_O^O1`7t5@Fi_?>${ee3n<NB?g0809va`0t%}
z{W@xtzv2Fub1y90^wQ=wJ<I=;t23u@+v2B&4!<*7v~g*t8tW%N^WWc3==9KaMrGFk
zVqfDtrR;*9{ri{V8o<z@boZ`NFw8Sv2@3yHr68#58!PL39{*6M<BPj{=IOl$^yoL7
zekP{d2osh3J*QtjyR>}P#F>+?m_2=F%FFmc>vN2D^}US70pIaj*2%C^y@q!i(pxgH
zbOx>&ydW85*zdQyX_pw7!5QZoMJIZ$9rQTYXj|WN_-7m3w7BwMo<4Nwh<<}dqN{#=
zDw7r88H21Xg6&<50tn2n3T9P*W8yzVUx~n3A!l*V$unoo?mlV!OkAa)D-Pr1e_c5F
z;@OjCr96j!sLTz<pJUi#<3GMrNf*A>g_r2TEGW+RAlsIdq{=TB-(GWki`3R%{Nm2p
zU5w^It<J_N^}LMD^y_%R!gDb{@lV6*vfwMS3p$Gl=0kBj@sT$(IMCT>E<XQStHfwm
z*ULx+MG|Ez7PhJzoY&b%jgEZ^u9B`a&5Dn?g^JC@N6oFx%?fKXTg1KyQb`Yf0F5+D
zC0KEBGtzL)s`AEaP`iuK=tK{9SxK2iCTuv=J+9HDQ-cd)BMr9thMkJvy3vKe*F?aH
z44GSe2A5UI;;YK_8Z1T6Sevq0%;0Q0*wn>n2pi_tZXDmP*!q3_pzu7S?ggGFr>yw=
z$rsN`jdG+hrZSFDUMiCnrjyFZ4pJFk3<v)e^f9q<xn{-MxeY4i>YDN`*A&Y#<yt}}
z{8#8T<=X0RTl}5i>g2ihW3sxAu-268NEuyM_2P;lrQEDgN(!H5p(#jk^_{#5G`5~%
z=S$(TY1vISE$LZP{cVZv;%u`{q}lVCv{_qfH0vm~atWleuGC4^lhS8>A$6QB?m&5U
zE8duT5-GPvKip9sIDRJG#$sJ~Y026%r2;%lO6u9_zxbpgQ-nv$F3-BR4c^KSeEE*6
zc)7|jTt6I!;wiO}5EpCy#BN5%oSfZ);_lP0Bw=H=;)to6K4D6#Q>TLBp_6A%El)Yp
z<Z#st{}h7e$LZMN-!seSq#RpJM4X+VaCSNAyosN*t3TwY7Ek~3t7oHcF|Y)8dd|4p
zYS|ET`9e4;d0`t#e!8^5)>5NxA4eL!7_TKq6tXZw%?+gS+R`H6Bq*AoKP4_j6B0Mr
z+{b8~bHqDLN=t@8Qh}x3Ql^t<D!Oo_rNjp<D4d=2sDfQMBhnJ>j-il}pQ#2URiK6w
z`9LSA($lC5nWHH(h3)32h{=Z=iR49#6+dl?#B(OCv|OQIX{4Na4g_IP(mjRTmFzKT
z#dFSGx>eGJbPSw($XqVUJaah^!8|8pv1q`!r=y8W|Idk&&MD7b&Pq&l@tiYP)0iRI
z**qqu(Ux95<Ss`N%ouGncGa3q=O@sX?o!u+oH8kA@JgA{_%ivf?dO+}EuBsNU1tBG
z!K?M8B$lfoFQQxx;lhzFr-K*FxG*oQ?dPY=mOeh;p&fQ17n~<-F&H=$>q-gh<tM}r
zV{N#S*t^Ob2w`m*E@SJ;7QrYvA+|!+uq9hYfk?2HN$xTns|m4{oR4%hnv@71YO8Ns
z5T`6#P>fN0LD^pLZ55-aiyEu?a;{*K^leN}Sv3`Mtl8k*y;X{WlD<Y&-&Vf_Ks?-}
zb7MSQC1%Lu{zX;tg2>QFE7*3~DoBpTO(;DZRGnF+D4aPr@3d?Q5F+I!nPlQV%T{tl
zOUV|`+040-{VPZt`fxkPxF-~@1dem3=Zt$MS|JLV=eaZHiHVQ{$;GWspis^|S`HFH
z{gGlMVhN2dBL@-_T|8&Z9WN(6Hs(%Y*gue6#arpxZ4EBll|ThMf(rDRXb~B-)rjx;
zA$F?htGKI?#AL4oIoM7#sSG&eZC6^W6uqLw@w}UeV1dnG0rP2z0GSVV%BO`w3!fJH
z5Cx+;m`;3R1u~jGA=p-G)J)qEq_7#Ju)_|ehm(G?;`DFwl1EU%=1_sXnpkTJnZ-0(
z32?BjXbno#9GP0Zkh@f=671bi8V7|vjjF@#2qM@FA|y3xDZ5lN9j*_hQH5{B4je`i
zZ0ch)sc5~cmMPt41Ql!s74mGQ-b}ONy&cU%*J4I1h+zQsS^@*u3e3cGRtW^aXC(6r
zh(Q3WWjIzTR00Fo63kTGwIx5b_<p)rB3Ozn+$Y7f65-xfLPuiC=WL-z2*6?pz{(}W
zv_fbhCt3*|=dOD|E5ZmC!w6jTxCc}NiF-gxMB=3ERs;wv1_&5;8EBOU3<nYuT|8&Z
zJ@4F5?G}R!oO^slNkIo!ygo0SKP!R<7J~<jQ34%UO6ZuF;yD*H@9Zpw82J3j?R2OF
zxv7r1B1=4H+#@JqWs^{Xi=LQ2Igpxh?t$4CI|eJl6&Ax4j9~&-NZI097)v~7(nfg0
zVt7L_4|fb!0&rLg2gNiko^$T`Wr!dAOav_^dIE?@L6zuz#E!wL1c_J?60sN($#WMA
zPl;YJYJA?lBA8(@n893ZVi%T=DAL7Bp|C}hK`U&kfVi27&!s{mx%l><J~gAfl*QnP
z6*3d<&eDRoq%du(3^1^x#qdX-T@%GGvHT<esn|HUNlwHDE5aHU!y0);l1~`5rJ8jq
zD}fqT1T`!MH7qly5ToL*{!-kf%rT1-0gve*LL(MKBV6>v>Qe)$7|^G2@Oi0ma?Xly
zg~f0MV-)Vcq?9TM$D|a`nUoRouo&`C%$or%5SX*VD6Y5*p)1C9YCKSGT&xIYSPW(`
zF%y`>QbNbX6zPey6=4sHVUIjNDT)-V;tIdX6lpXOps*OANG>Te43Uyg_?KEzp_pPx
zSqd75IMA>7)NPVh-9>AM0g-$MQiJK>4c}<dMZOgw42vNQ{#Igzm}c-~XQQaQViI{Z
z1}>6J%mlcwB)F)!tbOA_YVsl=VKN}W86{SNh9gWr7(~gX2s)SyI&gk*;}6A*jKQn~
zIhYZ0Fd1?PnKzX-YbKzBDKSt*!5K}Y`ta*Bq1Q7RNC+8)eByH;Wg1+u<n%nB{4|&h
zBQQP*jG&~eXx^g9Krx+Wlt3^U9N>K7vtVjyz|4wS=o0||lK}wEFEI;B%GfN3_+Mg1
z@!w?epYcn?e^X+Yij56JeMO<(WTBq(N$6ch`ie32^L!$`v!KrSB!aprr3=pMW}JIk
zxafroFmZ%=dpDy?-_Vnab&F4tN;8peB8-R9O_(8T=_bNtW*B*$;5+Ii<RJMu*&y59
zC~1{vtjLMMN{16X+ui8YT=lP{iDybo@H*bzIPa8LlfW-E2Gt9@lmnAdC0JK#bUG)V
z^U3Q;jV9c=iP4zM>1BeJJ&bcYdEu&(@`M|pkb{y$aLA|Qqm&>x)Hg#NN)FP~28Vh;
zQ{fXSwq*zB^)!YxRJ;=|*~G)+=NpZKCwm$@aQv4IZtG<<DN>_TZ-je4IUX}3()GcP
zUPcG;#wopx;q;G}F79oNJ5l`WU*{WB4DrzEZ_E{>XZsso6+!xLfYBBI@Pe*`;p9rE
zPwX&c_V}5z+oc?Nl9y^rU&Ey@;C3|IrQEcL3~^$*T`Fq}uM?-DZC1`uoN9q8AxfNT
z6IJLqC>?DyY8rKDw@V%b`BKWLfkUrqB4t38NA2-$T%w9@;?yjt66?mP9#OTnK2a?w
zflmL5FPJ=S@@$-O#uNl`Vt@Hb>4Rm%jrzH~?9hcPcha$UEYhZQ3UMlFQ+ld6m9#0H
zV4O<Yl)r%*r;?(`X}NzOI(S8rTTW7P)MW_kh-4=X%WY)*HPWy;*o`qG4a@ZvZ%Z1M
z!75HA4g1`fFd~<X@egH(G*N%dW>A@sl-(v3OYjhX3o7;`WQbFt7Ei*EI28hU+Cs3Q
zV$T%2-*{Wd=D~#`4pwe6Bu-5D4AZ>LrH76^nJ0?B1|55r$nM6e(6J}|ew+#&dlDnZ
zs1V+jAS6zNY#xFBKhnGnX(HjBG!s5JZ?I7>vUrDdEVm``w@AmD193>lngb!Tlb}4t
zfUHge{TPvqPAbHybg7aok>pt>c!p`6j8#)4*=jhNOD11><;-&7A>~Fb)mD)(I#(VU
zq}pCF{!-D#2^WbZK+CS&1|>ypsr)W_SFdsfyCi3$@g@f2s(Jv`lDZAmCwrk)BzLYM
zH=6U%A<8z;uPaj#VH+sdb-m!U!A66oq%zsgW%|krImVgLx+`H`*b=h4$<ab>uB!Tw
z+#qU3RRbsjDI{E>qC*Q^XVV!e20BsgOeTg1VvWavVOFA+up!2tm0>ufkUx~WtdK&s
zB{#Ssg$zs8f~XG3s!)9fZPagOp_@E85vF_*rW#*FR+Ci@K@NjVMnYTlDg?`@LJi4F
zdM6R_!zLKJr)ou18}#g%Vp1SR-a2e6p$<Qt7PB(erlk}v5Fv+fRT3A4osgT7#}A4E
z1!Y37EnY&4j4I-gVvuR1O`(jY)JI5->%vC^GSSIo8FJ^U+L2+%{jegCU4(0UR{2Ci
z9B0vja(t!2h)DJkiXTzY*3DQ#o?z|}qnY8SgK;B_`a#EGM%5g6L2YhU1()bGNbZK?
zil}5Cq2td}!5|aHtUQsXP!+MX%@av`a&M-VbYKoOn$=FmRUb8k<3||vgn*;Z>PV|k
zqPtYYNobi1Ewm{%OtF?iqnt=uwbQ}tLyZRX+2uTD$xDh(!_J`X<lH%V@v0SI?5fHt
zID43Jky#0|j%btTm2{~-7H>GzY9~Wd{384h!;HIIlJ(BIa)J`4qYWNO8Bn}9!YB&X
z4mVyo(NAaPUk_bqoPUl-)?wPAbwo@&62z3np$YC@M@*JwI>C7t8cl=FBaFJWlW4(D
zd(=T{3g*wMlmXObtE#iO++Ih_lO4L?*nqr_m@7MPA8{cubO%$jb)?atnkhnuB?LRs
z>*xe`k231l=JVl`a1Dd0Wkx}Dr=v;3bb~D;L7Fwv$OUai7^elPGNUk9US`y(?{u^<
z-h?*Ibi|=X7TP8a;#VoKN($&t(wl{!uN`UBD}Z{Xg7NWe{9S|orsw!wGHOnLLYt-&
zYYwfMjvFi}Gm6?P?m|iNQJWpvB0&G)sA^U>X%U$CC^&U_GA6R48EhJ1G(JWA6YJje
zr8wvx&q#b<$Ris-J}WH+k_4J>l-NR|R6D_2lLuV5lE`Z`A}!affv02&(3{eUC3N7*
zKA;m)amp04KsvE7x|ErXHK*}pV=}`|O#E;#NpzOvUWrJ_`07LFk%}y`D3g9<7%Hkx
zUD9$2-h&wl0kGmtcs_a>oL6R4JrUvy713WORV5XvDV79MktJ1hB6tVIWw1Q165$Di
z<rP*Xg-E*<9h_7ZL$qu;M8Wc8j1fCoG85Sa1h$l&$Oe$ua>#OJgOee%l?hI#7g8{8
z(Wr_eMM>_Wd~A60x~PgpfH#9JBa8-^Z~O%du_6lrfu83r1b<`rwz3dt3j_=wgCSAm
z-xwW!rzJ1S*`kqhQgJ)RtK5)<s}f48Sp$!StH{qhRwG1-495|^C~r6p8IBbhjzbH<
ziVVjg2V;eXBe`paLyeN_UHD5W5<CXYLu5D(8IBbij?<AQK^YEIks;OE%2HtH8Is?I
zuAwPdU53QBgA_C`rmQ{b3H&vgs9{nj;bNss)m+hwv=z)C{=^L0(Xc@vF|y$r$KND|
z8U(}wK?tJEAAiyW`iThyu@b>V)1+jPf2~>F72{P_D>|Znq|rh>F3p#%9F_Q+raL32
z8~SlYKoFKGUWRIHH^`M4r&qxZ11zz+F4UFi-in-aO(+JFgEy36x->hsG7m7!3cX3g
zM(<e?)=_pX9z$41nzi^7!a6al#%zfWwAspX?+o9OUvAa2WRwo#Cpj0v7e)!bDj;OZ
z0G!BVvNQ&0P>n&vYezW>2o2YT$EXz}U)Wag*5si!NhL+jxvB`~PB6dBXjv})UCHar
z_ypt+&x>SbGIC#(3q|p>$U>$(g*QF5N%7RS*z=LO8*Ma;?PrtQF<+op##}{yPl7=(
zmz#7?6@z;!+2P6UP8?L_lPzMaDsek0qfeB?_64d>_6XQ7h6CiS{wvdC0GsM>kzq~|
zBBOoGMFP6V5Q_%E#5S6DB8LG$rkF|{`f8uzt2~I0;0~<SdUV`#>Je9LtyvE$$AQ=<
zdoY#QY8&UPI&vQe17tsA{veiW?nh)kcwb6-nT$>OYG2~ZLqGg27H)aveuOM9X`*CD
ztOvE#lqND593@W2Z@$XWspNuhd1PZ}`x;XLb3>-M428s_uZ~V*_JGLs*k~hlM!t}L
zz?HM7PQJVxw}Qe9cmMIz@TZTMw|BI0W_?Gy5aPqhw;p5Mc(#>B8Mldo@b+o*%yjxp
z{P;@0=@*xdpIx46TY3)tmP$I`B>49j1K)H<CDc`8jromHqDS*Z|4Ut-Dxm-3#2Cr<
zpztCiOONTWh5i?NoW^yUvGTD?`bj=U4UQc=Egrif3(X(Heg38%Q^5jzj5`ZK|8dl}
zD=u8H$M{LM;9>Px7Y#KIPOx7*&ia(8W^ZS3WKlAnn0sm3HL%Byn-1=z$4=U*<gtzG
zPM?X#mPpaEw=K^NI!>Usoit@|`D5&)=8MOf3^^6{IE_Pu&GNBJ#Td!QI2m<=qKQVf
zk&}T6^vCJIoM_Yy7ECl+H+GN$(>ZtmWNW~ovEzwMDeE8$i!Qtvk27hH_K)nbi-<W^
zJ*KTWdz`^-gs0_W*p~L#aq;uN>M?n5_BO$U{^iuSC6f94G0izWb{%oEg+0b;eXw6V
zcEu3`dyI`|P;v=0mql`0(|Z~@ph1^Fb4xEl&Yy{v&SrhuDkeFmh1-eKuxLby2&YjD
zNzh<*l(mb~=x3wJsnGw%go}(;A=R<a|6(+lC8K$1k(-IP14D6RDNX}FCll<v)TrB;
z+;!p+SX81G<RVzRw3TrKa}v&;D3_XKft|Ky@aYVtEEDb0DBa>CNMp)1kuo-?VN~M2
z4fqwtRe~So-byl2UNX^_hmR|;A%KS{!A!JEqXJOZv`=~NL_6@)y%nZO_KPb=%6&rB
zK4FN&%W2eKa@+EdTxH6DfF|Yk_`7tL&S?0ptT-))$6!bYQt^ghn5Of!I4w;|;4=uC
zr_DkZx=Fr^A|St#cP(36IceLXWO|}w51xx@1`Iv!P9UI70X^|9Xq2x{(7Y^?8j_Y@
zIbfKjNSSDemkG8pnm8a%(7=$l13%Xdo}B^{BlwwUo<`9+mlKzzaR`%W2NoIbk1@s!
zRU&YH1Z5L6@KYWmGBGf8s9Yn_Fm1y->NKrm+!!U)6n_`|#Ep_T4FYD9E`Ur7L@HWH
zGz3G<f1totU+B2v!c8oVTQN*qX+R>)=Yn54$5n%uDIJ^;CXJ$b%}i*eCEH=dCXb>R
z984$Kj%cBG$mLf!_5fM{$A+8$Z&DZsK2WD=Q-_^^hBn}pSQIAxJErD)L8J5UM8}YY
z8>VG>9>LH=JK#pmErF)FAn<ePT1Wh4FchaSaT){^h31^bL1NmcfT{5l_j>uebP6MA
zxx9k~zT%b+hIBd;e;ER1bl-=2&fMVA4!&oQd>0`;OUdInzZ@7k+`(eR89I52Hzb;7
zNMNX8LJL?|f7hk02IEJkA!7YSVFo)8D$a~Ign*(NI8K8wSvrB?G|h`+#qxL!exhDU
zzMGTV12FV>+#;H`j<Iv0GqrffV3^i4gLn01j2Yot$oYs-OkJqp^!dC)7+>>xplLzb
z$0?c4Ph=V5LQ@2#5@n(Pybl0T8;S3xGt6ippt#q~7>epEPUAix?Yp8BPqoX*-5D5C
zMFV@;;_Dq!146QPJ`Uq_0bR-kaDLi~Nar%xW3q<6>*&5en@I)^Vx6(|m6H*-pAsGW
z_+$th95g6ym<s*J)bD6;08UghB;OMs35a(>4EfrIfR*@)Od@Q{^#{13$M>wLUygSI
zhLs@bjH|^1A8wf~PY7u8r44?$tR6lgAdhyw=TqT&To^D!981!`5IbazhSO?B^AVlI
zGRF8r_2U@A*8n$cpL;lTBC=a?VazlNq1oC7Kk)^UcsqJGVXRXB8K0_|;tj!2T)B(W
zz);kR#cAm@s<^nH2aT#g<L$uDq4gf8fuEbB(#<##3~>gh)3{-RVTM~j80s;C_Ht}+
z=mS_q^bz4d6A??FW57RsbmA@$6WXSnUz`Sh`nD9QlqBF4`gd&|wW555X#otgl?W*A
zPsKaN=o~#n!>4Fdf*QwM2n51B70zgMPl((JYllv-kokzSE|oXNg~61Vx+lc9MU*fR
z{!61yh^g94XR-Uz7-HX-q(K-_Fca?>G*K%Rr-7gNm`9A317^b4XZZT0-8)-OV5p^V
zh#`-P#81b6u17W4v5xUi7x;?dKQQ!pkN`tb%f(-&I%Q7F<2p5+z~d%2Oz?v-sCOg$
zmre7zO9N`~?IyU1B!0YOFx2v$c-Pdx256jL4h(%QGl${>9bO?GF#A9!;x<xT7+`dC
zlhh0Zw8K4Z=xy;XPC_~U1CawoFvNkf#!%d<ig!#5x%xpv)-w4n*xAvFQ1}lLnsjfB
zF?6`Ph+)!!q-j^;=qZIvn&-suZbsY0p9dn(_(DMV;G{6vS@;}yf*}rcyG})sBhwE!
z01jvzv`is5WVwEb#@_`$@$s;@dLWUg!6jPEiy$AVEoQ8GHXJbY`LMxI+tNZ9>~oU?
zAsP$vIZOi1AK3(gAp)!Rvd`ln82TLWVe#O2A^9%xqnkx>EzmK9onc;th*Z=aZ%7Pz
zCt&Ds&EQ>AgDar%?JM}1c_<uu5ik_@7~>s-p+$#roW=nfG1Ofj_RVY{#E-8tL{U%N
z@Q!zaVPtp~3<6e?qQEvw?*wUvq|o3e%I@NQfFClGnioNOi5VOObTo{G`$D?w!`EAw
z9pT*!4~;~N7P#^vkkF$#`J{yS9*P#cJuSfvhFYco{KP36<0mc`#A(<?0Kn@i6eXtd
zhQyFc+2b@^Lj-C|(jZJ$OXwhnMTfZYcTHqkNYesEg`OP@5#W*y!O*K@jy-NjfS$1R
z<h$TkNrnP0AR4gTMWPdI-I6bZp~-y!7;4}yP1zgPG10ig20ty^Zdo}SwKB<$>1B?c
zK!e{)wj+j>*o?SZ7gsgCtDU?cqa%bS{fFuYLoM?|LhGm!*&EF}BEO-{F}@(e1_ypP
zB!~vmTv$aKD<_&0v9X8LsIb^N4T)wBe?{D6wg{T|>_TGTaP3+Wft(eeEz=YqpJVU(
z%9%zR4Q$l_{UYIo?9dtyA84lo3KP(XkI}@&Q5y*IbTI`XM4}r24-N)F(=(me`f2%I
zIC~Aj0w-vG36WZxX&7BbJIgQ~D3NOcpIzf7fg^Z*#5hxCeh&M~tQJ^JR8OmR5kx?J
zWl}Yy8Km#EDZzP}CSWF`ZB7B)xEo2M#*t-Bpnu#3)jTl{h&0EE>z`WqKrG|AUGNk4
zf|3S@nsgSoum<qOJ`NGgjK?>VcvDL(V10|vf5bZhO#`d&o8s#t@pi;7pKORA0x3H=
z?_h}O<1}0fXYDXz@hRG5Cy-fN5lD2hkOGK?(hhBoea%;)9qQ<l!hq&cB@XM@*L(_)
zj+Q$j&1i{c<Rmm-1-GCX7jAa*(>>rqKfiwq)AyJXO$(U1$g_uuX4HRcTPtXqCmRrq
z#BIUEh!M&(Enwoc&;wtlVHhO(#V6{L46$?M>zxvHe43Er=202`A4gSeN)TqWgfxOJ
z?W__I0WW7XkPDeL%mELqZ5#plcsxQOfT{TkVBxR?0kKg*1R!pnZpX{6manmpcj5*|
zTQIgtP(DzJ!DX~1i$nu18F8ydB7mcCFwAOa*7z8S<|`<#!@VPNM_M8a2i77|#~}h1
zgr00bGEn#PSzF8X(7r>PcQ>QCU^?B5g=jJV=-7@>vpRY~0!?$R@MRpQ(kj-@f>8;e
zEjt9+XxXVg>~v0Ck4RWQiZ3*TW+Rowy&2WAa9cnMK@$+)s?tu)@BuD4O&EWO&`_4(
zX!8UZps5-tK=TW<!nhHlus{ptsGUxPa-n~GxlEg5d>@SiWRyARC*pA48YqEvXrKgT
z4tgK9lheW?{DQU=ZCl510P9*>9^c8+{D%#t@~K1hnnLg~{D(BUW^nihAKwJQi(*H?
zJRI^^T7Cn5OIyY;^CZS3{R6`B6o4pj&^kd~8Uqms(b{ef{#Oq=_)w-UG!8a$S|{)`
zEJmXcLVOlKxk```)!HFR%4zV*nhVArKBPtX4+mdbCJVK4T80}tdu@(E<1rtzq&pu6
z#W6_@Qlc5V+L%Y8QG%wg2)wL~7$eaf4b`XeNJ-|wHH~_NEKfAU|B5TU2~`7q>mx>l
zsiYI0p@XrCFNh`ip|T<zaESi^fkm}<vLUu}+^Ik>x-j@$d&n?EKG>Y;G^CAKyBxOC
z`ql}Hj_=s%XkT-!4vPOYgR3MeqDWNpgy5&Ah=2k(;>D4@9*%M3qwVeRD*#$JMpl^n
z53-nO8He}}d11|)(JqOrA1Cqr3=fCjP$6?j$V_S4%Amx7Yb%E!tGQrQdTF>0)v6p`
z5uVgK!5M~DqJv{;4R~VGX)hq+Pd)+yA!+IdL*6lTrJvil*pPDM123=P3g|huWEK7c
zQG-{wbFM`!zz<C`07(2G0xnN{Fe0&<aJt4epKy)2N=hqS+-*;KDWsw?c{)um6U3Vu
zo&-A$euJMloFM(@)eocATrjeVRHUC63AP~l9CNtd!B7L9r~=aL10^Eybh4O#WWe<b
z2Raqu9u9F*n@^l9=oxuzqd7FAdjT8=c))*J(g9^V+UQVTtF@!!3vO_zdDgVx*~l0%
z4Wc|v?jtb%y!ufgr7ax<V{LQcA<4|A1bOx_q{jH+ek1P~*evcVNdH*J8J^xlUR<Pb
z6Z4LIw|4vr@U8g|&(3JRA9*jHxyLZfoUUrPE<W!_pKHf(o+~cqGXcd<b|h&ilxONk
zcn_m&g#Q4gz>=#AKAp#H6tQTKoLs-AYR}eiKkhpvJt65I$#-2{2pn3+emuD?6RFru
zX`57Jf3@lKDf`X_hx<Nh4gcXrg9a3lEY*Af<-qwg;o^{Hz$o3*;5@R)VIL9xL&cj0
zJdqmGd^#%kG=sxdktddLe60fzAH@-I>lgV~6fE;|T2!NDwD^vklosD{V}hMIBCUt7
zF>qTz`JK)WxoYi*5Q|P*5ujD_vL3b}G=G=iANP*fqDtQn(@W*?pO3HIFl>hFA}E~V
zMg#AowZo6lXvT#F&jS|f$+-K@K^je6sQ1?@nn1(7y`(TmPgYXV1SiT?4%(rpgTITj
z*i0&DINm7C`M3hdd<5Rn>V-kGbv{U3vxPwYag#E!i{kkQ(8OIk5d=fG4RnZeVlFH;
z6-mRz&>c)9Z-)&ln=uH315(}&a6f7%K@h>xcxr~cC}^7f5KZqGMf%$8;0L(0f#6I;
zn;ok5(?$Xh&1?!4Bq+J&BY`n%>c@_s*`5j5t(yh#32BD(AE_UxMN>7dMzM|&E;N^q
zGi>Y@Gy%1wH@4>pKv6p}{~#g`M?|51vKl@*424%r;$00gBJ+%J&G^xh)~3mmKdVC>
z=Cy#KXh)LhC5D_u{6QzCX6Ybl9aHfNpHAe(B&NmqqmGe6(;6Zf#ncae*z~i}q1c1N
zJ~}z%drruV1ZM1A(mxoYEH*}zG*qx@G_90{%2s&23_Pz^uL=u9p(p3(S~<;VDmey%
zwlolgDMpzyX9zT*({RI-wWA{>snrMsp{5Gv#Tp{rn81ueGsp^SBf()9H!k=do~wiw
z#24wnMol~PPsLoC3#KK;mm(dC=p)e%Mc_~}npTky<q!k?QWBVr7@l9#0zehVrRYRU
z^V5kj-ztFSXif?aJp@a65QL3F6q>_YK^PJTL1?FK{Xo+yZ$WcIq?KP`kcFiiaR`U_
zr!6O7FMY%~6yY8YA2sKxVw{I-S7WhT5?>XI<{i^cXXL08BU<DG;Q6BriA>eQ%i#aK
z9kMmt2yv9aQ8(;deC#gK2eNs2dkaAj{D+n$MReCTE}-cQ0YNn<g-tuZV~2b`%C(aN
z$)WyID=Whndv(tRd>tB1em=8EVDeRhq_Cz1x(vscHa;tXU?<{Fq<$Z#aGW82>qt{S
zZk}jM3}>$zLIU*FgvL#?$S;J|mPmJLX<TG>`MDCdJmPc4@%aP|Nxr07X_v><4_by}
zRV#<HWu9HZG8VsCn&<>jgO3<1QM-pktCIs~&@iD)KpXXwpb7nl^NE?$f&^&d*Ax=M
z0P68n5BU^+P6ZmSY4VPN^dg$Xe{}fD!3JoWA%Uiy(t_r4BLvOkxk~a!JYeBMEfTEE
z1*0K8%EG0_s$&*Rr^9+DNDH$-gla0SgcvlLpCbK7>c`1GHzc~vsR;;xq;&#WSa3p$
z6nk$z5csXwK*apx96r4L8WYBc3A2}RqQWs8l{@nI4w`m705tKD*@PWA=^Vaa#XAA=
zj0{BH#=_xR-es!bgygaKNsJ^zoCLENK}lu~@j+7s?-+kx{SK~y=^bO!sR@|KDbJoc
ze)81vnFXCXrHY44o?DJ@iP#0jgQriQjelX9=w}uCTz<)P{DsLCf0d?2b#k)ZO3iFp
zcdMJ*y@%7IYtPbjX{pz>YgfAm@?SWgDM_g||D(y6R7pv}Ec!n6)icX4DL{P1WE8Y+
K-D5z{g8v5yi}Zv5

delta 95609
zcmb6BcRbba{|AmcM)t@a*&*UM+c{Q3c1E@kg_6CpJK0$o2d5I*GD22nMzU8STZpnp
zGBWaeQm^-?Uhntsd;5O>=ysg*yq=He<GQZLy5AqyvzcAm-9z#cCo<eMYGx1w_n!M4
zPFso=S3^cmr{Lt^Y;WzwqigGE&2!oH7H*wPh5nx(6`b7u`T07z3hOm%OZ#5~RlJ?8
zU2i(s+ul08r;S_)5J(O};Eu>y1Wt$jzV+{c!W7nyR!%qXQb1w2xHD`xZ8B2a3I#3h
zAq5xiIynWdi-H~J%ufY^;#MhGa1!LSxN$Nr5Dd3@?nGfyT#p(VPL7%k1jm8NC2+o!
zoF~7YMT6nOJhHO?kqyT^C6^$COW<6ngmBLEw1iLuj*>zF&@S$bAg-SNED;oez)?}~
z;|eLbfnVQqpK3yj`AZ4{cR+C-*F<&t3?d8|(20tLMA_28!4gM74d%yyVSkNBqIe)Y
zCv&@CV|mNn$<@}<9%oK{vM!_u%)c~5LH-%5aL4+lx7!`-dpvH|uC~^0Jl6Lt?L92r
zZJls0srk9CLs2kb=rtZ5aV1-K9<x8D34=iJP$-Cj5RS&hmI-55P0ZXfQH=h5#nU>e
z;l|%V@mvGvlWme6b88*p1Ld?72IsCiID>p~*iV%7EvTxWcVM{at(%QxW-e<(7(+wi
zsdmb`$V`i#&9J8TVKM0MkX>?`ClXa#WM^f+euyOAA?Ka4SeQ(UX~3>++sgGDk1gZK
z-j#)G`Z!;E(VT@<T`z7DS`hjM*|BDgFXg7ljra9m&{VOntww!*rNgj5!6l;`u2c3+
z=gyou-;A7pM4rQeY5?ewjfijgs<3RO(0Q`p3YA8_E#XL!NdI##Hy|Y)C4H=AN6(r!
zE+~amhSm9fBYQheYL5E0(t)RZ5a6t}4-1q{FD5ucB>o@-yGp#fA0NE1&t)zVrb8C7
z_N8O9YPhYvMKXMQvwv>W=t+3*ioaP)Vjlb5^)u#L!BlY-{B)E=4|d}>DEuQ|aD>o)
zZUpga5v5a2ZbP056;z)8(!Rd^md7iP2=^^Stgg|LM4&r!jCZ@ip)H|FyP7wDQtlZ?
zQQ`Xa5%q60``AdIj3;!1-m@#VJ1^b4&BbVnoA3_e!5sA^@`*=J^O?zUM$LzXf`V+u
z^4*`g1QyJ-+`W5Z)k1faOks%2Ti=uob1QO0<AiSU8L6jITe{gjH#smAeBXJtls)FV
zLr&6xb@n$GLYB2x4pnS7BlZ#=TAQR%OC1+RbW10!XvAUj^z5hj2^U4zy~M*er5MT|
zKUixgE}xmZvJqC(&!(7mRp8l<_~VGQo?61SAk?ZH$Cu51_p4?!@XeCy*O4}(y=idL
z{c5(v(bohf<O<UjPkJwj9vWV|YMNzyaY7(^s+93wz_~Rl*9EzslKRF)4iPE2pD}b8
zrA&Q(MArHbY)jbzkE?9exv|G!4ITQu%=stb^Uw6bxA&qKW{%yh@RWP-EcfmlJv>Tb
zV6@ycI@7&yETJJ@f78EIgoUcGBmaI%p5>X=n;ax~gMk8<M%Axq$9=wsG>D+FIoBAv
z4YBLJmY`J%r*77L0hbk05eD8wHV>(f%m=l`^eidWSW(}DnjX)rGJ4%v2&do0AXLQ#
z@T|$O>qi3hccAl%H)$<wsaO1Sq?#)Nn96H8MmLO?tcvx0=DA{Fq>D}=Y~qV+h>MX8
zgztRNT_#tGV`GV|Ob9h1gRWlK#aC4})tHy29y$niT0b3dNxV}z&6L1-*Wbcdc{&BL
z-a#Av1?zy<bLQeYq(~yDwQrR&x+<>1AM$m3wu0fNaK>)?lt5|FJ?-H!ub*jx11^y|
z7rb-hk3cufpgL=j+M>me<qd;Biin$1A3lH5X?j#^eo01fvE_wJ!Bo%Nhdde*Om!(Q
z+sF15@O)-Z_u-AAY)M1AiP>yB3QEh_Y&OgL>%&+v{L<3IQ?~C`!7#X*<w{LE*YUVg
z`Q&~~XFF}SX%5v?;j!ibEP}gG^S+0OvDq`LmoE)E_R<}jJYXK>{MZdajB(%*qUY)?
za{%WH<+D<IlaUcJ_rhwyFR<_BNLJ~NH(gBTrzC4Vo`k;)azE2BBDwdeg{C$2VHxvm
z<okLo!?dL$tukBY?H2+RuVti@7rI-Re)1US96oDJWKlN0ZLUHr<a+(e;(n+S!pAk;
zrn-REbTLjd)cC6XYj68+rt>==)^rsLmbqS3qB3XSyz@=YeSh((Z3^KlJAHKo;Vb60
zE9+oJ`(ZDX)vWIgn$<_V4!8DnlLYnCL-<)dg|G@pF+I>ti!TDf`{Y`$xU`fOc6$-N
zi6x*x8%zUZK;b^~t+THvTEF*B>8+JA6Vysi<}ZnDUTl5A>DEK<N9z?)+VT3E(4@E9
zG|9c^wKo1=2ThB_Bwj<?WNDxeao<Dk$nKch`^uvCS=2OY<xi50o4c#ErNi&EgV#3(
z(c+_Qh$wL4B9zQPbUumO6yn#c-JCpJZvl}VioxKtMMSYM2<F$N%Z`pt?ruESd7vox
zX^@Aa5Whc>zduiM$~EA+#P3h^@6S^SJWz?#hX9|@U%yNIN)}Lw-|{4W%aiymPXdsK
zJrOAJTcE^mffBz3qJIlS{}zb;EfD=%Ao{mJ^lyRa-wL9C%R~Q`hyE=O^IIO~w>%7t
zN9=S)nBM|1zXf7`3&i{ui1{VZ3}5qrh#hyy4~(OQlQJVwFt7v+#siapfKgBs4^jdS
zMoQq~0t8P=i8%2y)UvWX|CAUg1g=R`fe8uR0zsTi84QPGc#tS4a4TLX2_%5yA*93=
ziqeCi__!pHH11fOj2Vf5fF%$ZV9B9i2%r=a$lXW;PRCvNv;a{RqbG!-a5HMs@en{A
z7#b`A%m6BZ087BpJV>|%@T~unEe;~Xt%*_K?>r!)#if9eOh^a<i~*E@p%7p=uvSPY
z5-fr1zXenYKqYh^Om`x@$w=ySvIsOB41qxb>1Z$%_(WjfU^EJ+0~W(EiJy+t$ri(D
zi!w7HfMtL{;5>lQfl&xxBpQlKLyDeiTp~`7Z#M?f;EFKfzzoS5PbP*y^T42JFb0C+
zL7*^Tz%JcIPDfvb&;zLz(6&bu#ex9l4god_27!SQz*-=XXy7pjT!1(fw*sLff=a-E
z6_#g4z!AV>C3s+Pph|)R;}9q?3WDQB|5`H$5gG0gl!6c{frmzbq)wDzhQYxw1QKuw
zV6{(_03<*#za+;Joxxp%Q2^3U_79K_g@R$ghG3AuR!i_8U@+hzXj~lZG9VFW2{~CT
zaz>!S0*oJU1TYE-<3Rum0Ru|RUv_~rh6Bqb@q5>p;D99{peO3Wz$n0QfsFveaF&|C
zR$vPb?63rm$4HS81y~FQ*eoOhj7B1O;1Vb>9FPge;Sh{?NfTgAdyLRbNF*46Kmc0`
z0Ygz}9{9=DB7fO{1w9Q8iDW#Hcd}Kn#w-j7I2Zvq2MmP*0|g@-Fir%{5`n^vApsT9
zc*|a3fgZ?^F~MPg-2u)3g9Fos^1uPJL?Hf8svC-t2ny^n$V7n=Dsj5$P&5*ZfdUEu
zM)`jROD{nW420okt}8Mjf$0Jgf$<2yXyH&m1^CI+5x8;*zzJ}hAz)mIIx{m2SZWk7
z6&U11GK>cfSS{dXI_~hKG$LZ05gOQfGy(@wm1lvWp<oFhsz5P-Cje^+!vJdv`z3S_
z4Xh;k_YRRV!H^hW83Cy<2{2$xCoU`j!M(zsx-Kpjb25Kmi%xBy2?lu5iDLoF1cV+K
z;zT;I=aQm0K}kA1{{An2Vuk^8fB^B}!~qd7U~VvA{6F!4n(B{WfCk*^#Algcz+@mm
zJcU63V+KS+0gwD692iQSD*fBDn4rLXpim&-0N#RvKu=u(11Jr_agvka4y7pYtv5h4
zc!yrliF1)LL(za0AOY#Xex3R*2Jp5&B0{V*Jznxed%(Y#0CNEYz6BT<1la47Spfd_
zpXk8|Y||;g_+u6rTr60g77F+m42Z-hvxft=<zNMb0U&<ZDFJJU`NzosWdN@N><HKt
zAj%-%JWvD@3=DsN>z7}iQ9jx9bX6H(S*W3aTfu>J0mDcD&X8{nI}HatYQSn>fGt#@
zg+c)f1k4Kt>@)%}C`}v4=@2Eo6DiYbiqt0;fJ6odHWm)WtpV3J7-(=`^#E(ZNSs&;
zBO0(c2w<VW2sDuDfJecRz+wuY4h+|)V}t=qd<vp?q@^ju6?snJ56-ex0Pk!80#F<9
z1u83m&jY?({0A6`8yTDM0BHt@4S+qNc^p0L?ae6uTr&*bQVPTjWGoo4-zUjOTnR`W
zfF1n)a$+}-U+G6&33g%`zjBYb(uoV8@lZ>U2rCSBlF0ygcdD6&wc~B~JAk=CaW09%
z*hyBinDMGjnTF;C^?8ezi5HByNze6P{XlGsBV2WKxd46_aPd8=HhzIW+e4z^4gB1-
z%8IeoFV0%tC0BZ*LbqfTu0*c#nfQ4zRo|vMelPFDQoh#~X6WQ-ZuaK(j|{4=DC@}N
zo{T7FjC%8h>*9_}@A@uRn<m<Gny%vuf=RF$@pS?Eam2~#1wMI_Wrw>xH(L3bFBQk5
z!%KO<Vuzb?`1MHK=UIg4fcvY6&n2b@{BOOgBluebY3m$*Bw$m&Uam5InYl0*mo$HC
zdUx0B)l-J#ccRyQ@zR{s8<$*&-5!l><Qua4U$T6by|T-Ebg<RGJ{Q%3`Mjz*0X9C1
zm42L36=tRJp^;21q{)Mxz`mZw3+}AZw>Yy5I|iqG8)>y|%z#7mYN#kR<87$y`Z`&j
z2Zy+D;hwzu-lDy6e=Oiff5s2VkqJ+h=t4!q@JN%V`7@<VPn|Q0H|S;^Cat}Lw$dV)
zU6!gswKlRnwJ!42)RW;dvLxbc5?hxEus75`i%ysOH;8_aTQuJ)GG)k_KhkV`URa{U
zuTzk8ku1UI4l%39#mwnjT94}u)RRbeOU+vY2u2AN$jG?R3hKzJt<daupdp((7L#-%
zRIg2_>sN^D4TY&Xd=G<+Rw@;T2vY6zT-kf;MkB8Gh-=F+yYEdAC<%-jbCG;#_QAdy
zLOtTN<gZ!`Z#<NArp_%Zq}nmi8j^O;4-uJv*z@MqH{*LeK4Bue^86k&gUYR{8~S&y
z)V)!385>Fq{Cq9%-lvDhy~6M9s`Z_-7Pf=b-@GY(<ux?|<2x>_Te+*C<;)76oqo_M
z;{P=m`Mps8>qf%H*QEE_i7&Iy?uD;=V?*{Qs~_jeyT0BiXt;TZ7Yb<QBkLChB``S-
z?;dc2#c9J7M#A63y-xoy-gRbl>gtDux&Vb*&0Br*B{(Lv*Zg@V9O!4E#46>Yqy>x&
z{PIe%@tR?LRhcsDcTMVStGx3}1X$l(NF83<X?HTn%_4)V$hBowG}-#BlT#tTGGjF_
z$7~y*4l7+OF4XS)u&9^3GxmgZATsGAhjjp5KOMfbR^gHf!>jY;Wzv@<&N6~TKZ;Vy
z-kfHP`>K)LL}udb>&Ry6e_#25fq}^?GBH4nH4~xavB*!WQW@-?7&wKmm=3OpBkMCi
zYa_ixLE?4rgJJcJ;&OY_>U+5#2DZxBeYPd~m$H`3@*fo{>-v*%!ES4X@9OUinlHq@
z_8=qo=_sfqKfblo=Z(A(=8a-_q54cAUe{$h*0gd;z{RpBT%}^&`eH-G(@NH8e4Ejg
zzVp@_Kc{rIT3^I1M$|3!%EtJjDQRz3<_Pt3Xz;(5N*?ba;`IaJjS^OVP^lwSup;G6
zYmOkJtFim*M8$1XJ}yiTn=gQ$_u+4ZZ<cxRL^gY+_{gH(=m_RlXcr_nw()4iqP227
z<g}?PQX4B3hTd)yw`lkff_xp<x(BZ8+T4~B@@nT`K+`_XBO7-KbGH>M85bmZcHZ~S
z`32GzuJRS%=EN)xdgJi3H_HfF7O>&)ZaiAGSmaJle<JzKNcIm#tB_04OIF*YgpTQX
zYi8ZurqO9fLntb__3H?nozyTbHPUf0>f0HsFdPC1`abAjQ}Kgz&zw+ULZ2it=Xw*f
zPj%?KMl`n=lf$1z-w9yQv<_H&8~w%)Y-7auW&Uye%mhz`+6TViK&nJ2E%x(g>30*-
z+u>hIkEN6+M-~F*SI=N3tP(JGPg_=+AK8%g6DsF;oFh4w=djGX;`NTx^5uf}gEfJP
z5e4bC5BBe?W*94jWmO78A1-_TEbqLM!w~1oTO~^>oz|tSQ~ttw-8g)d*KWa6jl*f=
za6;Oiv$Z?A-ca#J7F!Ba@dPLK?HG0Q-R{w+wV;r+kwMeBimW3ZKN_jM$JbC{p7N2G
ze7=}{W*yxmy`0tlW0V8kQbYamQn&3f&Yr#Fy3aD_`g!gz?KFzaACqRalA)aThqBNK
zA!}CaY}(cqlFzlD=clbVA6sm3*?ZrzcE0zTfbr8?0`*0%fQSM{@VH(t9oAwnM_HAY
zmGK_E5*L>p=^-JhU*Gi7(^T$aPHW|ZDfLp_BBOzit<2KzWxuzg_hTo#c<+=PWUFpy
z!8slzk(wG;`wI#Yot0l@n(KeBq<+0M;QC5b(0X-Axp;C4`_rd%DX!<7l;hYc1ErF~
zIUOn>j)Ut_<!{;K^RC12iL}_*5VXShu;)a__@fyO`_NWi)AuR0lzVz5J&j81t)#Er
z<F10c%=G(bvt~Jqv*T)GVYADWlb^iQ1DoHy*Xue@GhHfl$H|uh>>Q=aszLVP%*Dor
z<1-r<SdGsy%N{tjeq5$)a-u+Rzvp$stgm6eNEcU+JLwHvi0Hc&@hEy4JEwVHHab{<
ztRkWeVmXRF{P}I4C01iPfxKbwm25#Z3$2l!%H!elMEdLJG0|2Vomc#IF!*ZrE#$Lu
zu{+XmZn4dhXEZ?|F>KDz%-y=XS4Ar~bJ<J$KL?N5>8MJ~f})x4pONREUL!m<&)o?q
zVHAU}P0Q;X-?=<xp(R|#hkajyzWms~7FOZ;T2R%c?i!Ibhkf676+xdtx8N)zX#O<~
zrXZpv?ntMPVh8so^TQprBrmWv&>KlI4uZfF42-S?nPr*;4exI>T+S`l#RkxBl=ap%
zaOIKAd4+Aw>56?`(JQ!V&;uX7yd;mh^22-Sev6KjTRk~T+g<rjNd#CuN?qIP+(-h#
zm5q9^mh4qF`IYL>rT1?W7YQ$U!|wP4u7&Pz&2V8?rk}MuSnOyjvbiOG<;C&2AiF{J
zdj<n#Z>IG?sw<XM5t}-66J?(bIU9L7(kkw~BG}&t>B0H<ety@bj2~Y{#VQ=<aklG7
zdYoN++#2JQL?)dWCQGN$cya349?0Q-=Xd>`thrlSvQxUP9kKS-3hj3#e>isWu@+>|
z-^`$j%-EpbNchqxQT&ti)r&mc|KczxU_kj8U_-?8i^4c9dH$j>fHL@m!Z7(C6b9xO
z@`pixA$}P27vhHj#q&wc1%v*oy?}cA_xE2F7f{3g{{E}z!i!pf*a2K6egc7U!b<Y=
zzgYSIE9hX*UnmJEw^<~Bq7({91PBx`fIfL7PCzZd_6LZIlLA=uq<qHP`vC;PNx6*z
z3REca1lj{|1|T*h0C)rRLVi`lO#jgNe?I6G-qN7Z2rz)xPRn!{3P+=ITKJwI&VQBX
zfMx)|6~l3d(wu_>!T}QHgrES(7X%Wh*a2LM1VjP&BrODm=ei1_#JL4B;&0yt0K_v5
zkT@3<0Q?w$DLJ7iBmjs6he5#@fXYEiz`z(7E<FVK>n{EvdP1P`w1k{IiizcfbwB}?
zFAP`&B*2@TQWhvUFdm9)47zYKbVlt|D^3_1Ko|gCLc##72nT>VfU;l!$pJ`!ApfHl
z{-rpGnFzp%_&5!aB=-qWgd+fu4uEwCP_`p}!+azJ3WlOFz;m=1flBy~@)#)G0ZTe5
z+|Qrv?mt!Yub)r1`=6>E1psyk-ogaLh@%LjWdZK``!eDLmB4Y3FkS%b{e2Aq6#QtQ
zwtoy_z^nKYQM3II@dyCy0b924i0{8{hXY6)CUJVZ;E9R;KPU+U)*pbM_?WvOZrn-&
zHR@jo;g`xvf8z)Mb^#0h8*Tu&3WhiZ68I$_A{x9I35b*!4G<u>xUvh_RYP^%aR}X;
zt&4u;@XA=xi<M7iKCms64@|jU<Wy==>z`I$QcgSEFDmqK=F<L<q+881{-J2+;NI@I
zTuQb=N{kTWFl`xbpv!rw<l)90cFD33+%+K@OuFt&H|%S2SN(%m+Eq8)^Q=}$q?wDl
z@k=>LQ@f*I2fA8RRV7J;uofCAJXYt)pH!qwia@3(dPr|^IYb>q*DRTg*sWZzC{bqS
zavK)lDt;d(x|**p9yMt&M2Ts8S=nqir`B5!aas4X^TQS#>|U?E(Jpl>(x9fIAU@iF
zbz(Ztj`7t7l~h!gd@xbt<MXP4b9ABK{SqBsa*N8)@sbjJiOJ_MOT@Mggl<`q3@@TQ
zM0urEUw*Cbb`z(Y_I?E}78(vAPW@=8*WZnol~!x8wH`-qkl&ov&>mjV?B%$$_4Vhi
zV}HN(MS)1A-OHT=7nZgXVZm-!jO%W}dyBkhH|j4X8)tN<)U@zCkfYACgSce|3&fVp
z%a!iG@9>jyd-*bf>{>8Z`sr-!{G>V^A%}LO1@*g4x;Z#q3H!V@LP7B?^MznLx+7C>
zkf_mB+7`+Tm8$0@`D-4JSnc#xqK77o!TG&O*`4hLAk7%kJ5O%-%16DD@1nNA1V-;P
zeS?mS1it$iZYuq1$UIJ}SX5H6wqvQk%&v@*Grh8wvp8v0Q}_i8J5Fxp9G1VCRAHIC
z%wwBLF<RiPP4rsHc(nMNa&3$gyCqUTeeAj!IBw89qfq(qnqi6U&;_nrROw;1R0TY$
z5!)`CJdyfEKjmBvJSqyUE%iwmTdSOj$*Cjj3CC`wbZ}GXVuNR8&!o-x$VklIrAbWe
z(Jg*<E~}L*Ke3zoB{rOQsLwrJjX&WF!)~?p*yHCZqeE&_A3biqaM4TJbm^Y@S+7+}
zF&nS{&SR8GA|JKec^T>n>TttYCcIhbdFYO!x4kcyMN5pmvCKTW@^1XO^kuv<>$ydr
zn6AZ!?=+%}X3x#Knp%}hZfN+&aAc<MnZw=Q62T>OHzL#evsbKdJB^>yIX3z^Ju}g3
z;>CVu^&sk~*k<J*4eg^XSGGbEvFLOr#H;JF%R-Kr(D+y0!v^+?%H4^#^M$jXwYV%1
zKci>PeTy}_6%;wzA)aJv|Neg@HW>ba4H5J2ymp#u{-ow%Fyu*I6Z|Ky{gDJ<CwcA9
z-~hxEAh6+VW9SG0iV-3!XaWC|8aRnUKqNSI{NL0B3Sj2o0Oj;=Y61puGyj(T*NsRZ
z(n268-1!7vAj1AF^dvdp)2D#oM`91qA^*O7LYKk;PU*j&iNwt$FrV;%|KU7NX^vkH
zRyv`J{uQ_WxpK;koCYx>fR+5!dxoL$?^{8_*d9Y;r_U(5`+dc9`{zkfUCAGqy%%1Y
zmEYm6*;WWx;j<8xv>cAV=W%}V=ROT>NBpWOEy+ILCTs7eiw!ymmrN|Q-s^mLTq1k0
zbNi_frc)rX!zX!;P$%g^CtVVsF-wPazW8@clh>xp(ZzEnO$M6HnwFCOuj&hmA}+Gt
zZ^ROoWt&%~tnD+~SfS;~I<L&#`!v!kY7iJP$ces@>Z{g}cEiO&P5AlkqaLjs%FM{B
z68AA*)J3N)jTd<lay!*|PV8oql5%Q-0S_f#$VqnTv>KzE>8=ydqPJ?-*bhpKpaLJR
znlV+DdCa4us%VdiHd18RZhBi(y{|RXZoZ85yRW}QQ-$fGkgIlimTOeZdKS%k|2;Tz
z-sXn~!Ck(Xjd1B^onDNoFzXe)*nJR#hqGYvK4}zdVb}p_dX)E*$_O<`>KKXYIAl<t
z=haZ4jqPnm4F*&<-h92;+_3HVCAshX18z}N&HncU@`AMfh{org!^vsf&~)l$7vEy+
zS*>LUy<y|;eP7>E+!qv;NqZOJ7WeZ*$dCHTD;ylUcdwJ2k!d7yz5uEFgcf|ABPU*|
zQ#YlwE|QkpU7zCdi9{i<c}n|r`rBgYn!!XUeBfny4Z`w!hYz?U_j5XkxzA!T_CfMm
zv-HTC63^s~H>8c6yDXep4x+@5!<;jB=djS5hlBh>_(yL&8f!3#0<G6E&KbvaAL)F3
zkJ(&OF#S3Na`7t3C0=}FZ$gjIW$*JV!B;))3X&HLX&4yLt%*6ISD$xh=*#Amr7iA%
zq;m8ksJcFZ4kwUMC7nnCr5=FRF6Xk2eR1Tq%J-~a)6gLH=g^;fD^rqCm|r7I3c*HT
zVwwr2>msrwi^lHK_C1y)Z+wLNB1j&zyWSh$#WTI}r~~m9s?udjc#huktnS1?Y)>wW
zI%F2j;keVxFATjFAw=KQCQhpAG<^F;2I_peT#ITmiF5=^3pGDFul$U$gp`ZoiM0Bf
zj5RquE1yxL7yi(DN7>8gb`4D(S{WO!j3r)?-kX2bnZU24oR~s%<|&(2D6C)hgCDkA
zk+*0em^55E$Az%nngR1TB{q|;V_t6S*@q<(wa9>01J7ydZwcQL_zK(8cQP+FZiU7L
zlNw}1ZPqKgYLL@b6TEx&{6bc!4_|QfHDB(~SF0vv<E<_nKZ7_}Eb~9RN<0(CZU>3o
zlKw$L#yKM|v^G2*M3n3^jMulyEWZBu9zdF8_O_Va)?wqTS@4XF@uO!o-?5FD_y`S@
z@c7|<n`@^df3?e&xYXS%-<&z%dj}aKp>VT}$7iQDPja24Xv4)%IikTcytPz17#{=y
zhb_dpovBOu>LW(ttq7h}<?&-#Y*KrZb(xhse6ux^tn)1XeaKHq-m@CrS$)+BElWMA
z56`#581wH|F$#Q%=&@&1fow*k`J*;gJ!5CHB|`|)d7@;JLFc(iQZ3};;+Hnjb;O=l
zfj;_+;ZGUqo9Fa%;xDsj(cxlAT{K3WxXZUj4H@4X*M+4&*bONc4>o;p4r_SmZ`XSB
zKrg`Z@|($#5k)-@Ya42v@Aih5FmU+oFQp~f0LK+^uhQz^-ds<zkYp+w4&x6uaeiUW
z6uB(yQK<ch<F&sXXxl>vZ>WF6Jh_#8D8|Du=5@f9Qubqn$ckR(w@Y^^u!Ui=PAe3<
zWDO-^epz~1Xl2%~+A-t_ZQPPkeGBQado0%=ZHxaS``~9>L3}_{;}rA!m3ZJdEfF#C
zfAWs_e_FyY_;36K|5Zf(Nom9IaV10yI69~>8xjcO0E2Vdn?M4MG7P}xAb@mp+A0E{
zJw-r&kl`@=rU%gIY<Nb>i~#x{K=<afX(s{nuMjYxWd;Y>cmX^e9z=noOrd3j!T(*p
zpY)4><d>5`rwfDsCeZ)MasZ}408P;U$~f?obo*xp{qsf`98d!TbRmJh82q#v7X@(K
z|HF8ohamxANuV(Y;43&j%@f2Y{BKp@2mogNFHLZ9vdlOBN^yS`?EsPl>h$0F?$4|U
zfLTD%-xmOc3$%Cs`2zg?Yp4F{9sDZuZM*<fCk+LW5g`yj;|e&RWvG6VA>Vv8B=gNX
z*IxP}OpK)6GDz^s_~-qPVuVT=4mR5=svRBs!|SmMo$+F%i-f*s^Jbj6xWnLY8%HGr
zw%YV9T5Gq5W_e8|gZGT%gL{2GTLqL+@Lw_#?5%PB>B4_0wTGOXVK>#uSSIpe?Q=1H
zd=e)v5=1R4>cqi|y?tDCyo4M%J7}f(<+ghN856?Wn%6F=!S&(?N}u&GXqS!-#|+0X
zIgI|aizN<GmZ{9m-Y<RTQ=07{WEs-^<*X{9A=K=XTJeVKdfKAGY9uK=ZF&4i-|Wbf
zuxYTW&i3$wLd~75AhEm5AhRvzG(<$Xra1?H#>hN;R_)mbcC4|N45jXC>+6Ef0Y}5{
z>4(Q!qohLZre97wsW6uR+)1T$L)_7{pu!!m6V^`$D%KdwnlRS(v_3A7-v0?pe%l!P
z{Y&2$muFSj%Dv-G_0O3WO!G*J1-i(buA!=1A;%XvtqzP!gBP-1m}17<Uv4AVec5Zh
zb?XzlA83W7jdfvPeT_G0opGuIcVE5^We*&YOPfo7JzX!2vB_Dd5M`&F`5CoM_4&bl
z*35Y=%PblwDOEEQ+bzZ-!ss}5VHz2wh*9=D=7gEMiVp^<K-c^RJGBWy&Jvt=;dSaP
z%3sZga3Iz0-qbd!ZdFRrQ5uUPnJ&=em-L7ZJUEkCx_j*h*7LK>#bd|k<D4*RO`-%_
znKRzP9Gr8QFj2jc_Evx0+&c@XwFK15Wqc?`u=%q!SIgcs>bW()%6!qL8y`QX^W-5A
z@~^%d<1BuCh9a6p4Z--nk&l%|^*-`DG}w=$&_d%70eA5^R?<ftDaLu7?J?-5SSIEQ
ziU??-<!3m9Rk|W%d_yCrIXDO;{Z$M$bhSs6h4D=k56+@ouQ7+hpm>_8K)^|_lZsDV
zzHn$Knd97If}oolxC4XFu$$CU`6g(c$03_wy)jcEtfAmYbs@&LkHO;HGJG&MBadsj
z$mgbfUQXpgs#)uGpR0k>X14ib06)fUR<y(5SVu91eH!%9?186$iv|5#N)ADE<eAYu
zu}!`nIeIMl&hsuQ-6PdqMc;0!rvzzti{0PXXMGDS>5GlF=Toz1sFYY#d;TeR_ng-n
zCmE3nVum>Iwj^>#GSXYw?rY|e5@kWOe%cy8*!HrnN-D+E&)FZL3Ytdt?2Uf#C9})e
zgdeu&MzJ4}P+)OcMD(sbG@x6!TKyGuBO5=^!|4u!h9ArcqY%TY+GmIBnmg8OEJxga
zBr7)KX`WT?Gg|Vqza1Ysryd_$hx8B4C}_@U4J$ocSCaVr!R3Iho>yfJS_8KpzdZC}
z8jC2g8^<TVo88_X>Z`W8|617Jz@5^~FVx%pXCPKp>B^hyDh}&6Ee>W=<Q3B@uhdTs
zbGEh8JX3+2`3|bM(AmEwE^rHN;9#n}OGxq#a<ePVhCK|SFLbC^s^+uQsGIU`TeAP`
zN}wu-`dGY<sA|zNWm3_as+{#)g+m3ZvUB`G|0My4c5Ry4G^P7@!J8JiL-2J-TbrWA
z6rBP#(Qb0~vK_2M8%d+Sas0v@sg|a%{NP916y1m()RFheEj{^e+I~&lODf?Z2V3Lb
zbMe{F6~pJNQt0LV2*tVHx=8Q_?iE~+Nfl;j&F;Iy^O|cUnHZ6uY{}zz)pU5TfCF2R
zTj5ASqx|8iN|eGS!7gZ^GdS_MDb-@nN6H_K&G3$)xSisCw^-K8&Z(z<yUg=zy_t_3
zm)d$`eMWHUegStJZ5hJVgB8r+Mm=b+aMApJTlIaqMlY%xT@FGNj*}0ODg^Gl3T!%^
z*}7rh<(piap6|0vX!9|R7s1R@dadi(59WeoWy6VfAE=vZS|9%ONvXK#h0~CjEQ?MS
zz2e5E<+wC0JXto@RvFi()#7^eVBvMkZDk6)$c`$(6MnTLH2k9wf9k>Z5UuFj+a&)Z
zjU$kMu%iGY27tW3k~wga0zi@c|0A0N-S<-#6gXLQ@@a;*^Cn`)%SM2BPS`?RR5sA9
zKk1(X*OAZ@7Vre00VhC!Gt4;-gusCcoop$bSSTqA6zHL!oZdJ&AOW1S0S;aO<R8Gb
z0puWVI$HwI=1oL%<^+Qxkf)jYOe!7G$=^WVTo5=$0X+TBObjqke*#q`KvSaeyzf8^
zIF?+xizg>^{=5u>pJ?_!a4axy08?K16I1?`WdHx>)xWy!zmn`}`eZpFOaD*R-|cpQ
zf{XhE62T4`OgfE0=&<WI;&O%cRGnA+V%7XFT$8fx^B&I;A!3;bc>7G76?@dnJx4@8
z_8w--7tyyf`QyIl*Bf#lyX8NAz32{kG*B=T#BCIgS45Y75b9D6z!L{B-I`6mQ2rrr
zd+2BAq1T4Y(X~-(ZY63C;j>1DHGb3d@{Q*equ!2V@mq~HM4!OrkJ*@7NxiJ_?n)t3
zX$>Do<<}Fd*}m$ni<Mm~d1=nbcI-{3Nf}f?<m%75iJ`kE!%9(qpP3-L*1U5!CV<k(
zL2>2Kws?9R<2hr`y%U8o>lYYmW5fqPQ!Dg)-R47B%O&{3wIXdiJ&hfrr~go+^@ne9
zT4paR_O@S+z6SVVk3cVf)MhrclsyY4+YpLo(5CaD!+h4Q$<B%Mm{+Nn>Ig}Dr<N%3
zRhOtPq{P_mX0ASeMN9`tGW5;5z~sSHvKzyZzhkQi$MK6pl91KBCM7&f{F_?K&QC5*
z0R!{G`1y%iE3CbgYix0sBaN>i*HWv<w|6Fl*xK_&8Qq;8@5A!&1LtYkBF4H$6~TQR
zX*Wsomu1Ut#yF^Ud3%tfJ_OCcUY4B2*b_#~5IstM0QC#frn<EdO+V1HJFfAihNR|9
z3@%hA&@@^){?6OP_S<~dX(s5x2nsK7N9qew%y&@8P(2B8GMlwqMcQ8g@R~m3eD`jA
zKlXg;Wjgz2wU@+=i{=G0!7kf6u^n8(mG8%#?av6unSpa9Bw9PxKDNCq%P5<e2sHyG
zGrvsHU~|?1$qb)w%*m|PoCteWw<KsSS9)8~eZ_Xg{uBMR@pgCrGIWllr^$=~?FT=j
z$Pu^L+>Cg*>&-9wFKwM~e)*X6Tu<@xO8R4L`HafDN_D@R%oR3?DQ94M8Pe^mlD2*#
zpv+E}dgfrxNNVlvo5SoINyderB`;Wa?#qAUT-l>>k!KBOXjGA-pmpKe_g&i+lDRp5
z^*E~!jO|H!VikGi3S~@fNP4Vt+B!>q&Bqz3ue~}l>v9c}HAnli<75URwRT@?z{zW_
z*xiS?7l%gq$xbi2z0S+U=zKquq`<A}(sqvJ*;|(xW5*hd=KcGZVy6Q==_m4>do5p2
zD~wR@1-($FH%#O54zUazVo?2&=sVPPu94j&Rxe#((NsN=Kx5;Rwp`z(i&6Bn>BL~}
zO~P{vWf@6L{yy8J%*QQX{|JXCe*#g20*1tI+JFFN{?u9j4uwddNg^UD@J}fGgHS`B
zgu*|A5E8eUBZ%h-0G$OS{jR0|In)CjP6UYaS5W}XHRT1O#@kDQsD=M`js90G`4xUn
zV+kRkrVa@RIE4rM#Z^@ps22k-N=$va5hq}ZVT91J3P(Odyv#|?zjiN0#I>>7CG2q&
z)VsTQ9aG608|he(w-y@a@0a@N$D_CJy7){F_Ze$;+j<7H8d~0EkVT00GAAEpkg*h8
zpvbuMDvufKBT!(6ebSou`cjvJK;>$9UXs&zj_j7WCA%751MWGtLn*fB(;R<wya9Z&
zqJ-%O*5N+UMRje%th^yl9r<LpzPZtM*2!UWM9$?IQ8(k!9^74XMyU+4y{BS@HLNKi
z3~bZ}sx~qGJX=ld&wiM?EDp2}$R8kf9Dl|a!PeW$zwv9ax+&1??<(+p;K`Zx<?631
zS-MmVCGEQo>Z}OIPAbV|BED;AEGOw@o&R*Opj?w_^=!_9<hTn>@vU3<m|m$MjQ_`+
zVw{eVL@B-fwYwS-Q>0J52yfc03c2yg@4Kwo{%lU1oc<(fFfKD$wHq)lqd_~@Dk>t_
z@H9j8^Z5(Si5~Z?SDk1wDsCQVCYc~Uh-jO7KDO9hW(;C6qQ-tF$_EvX+qw1JxB9rE
z22+IW#NP~#^ZbV2?EIYlpj@ENbtlSoqEqI+Rvi3QrF<p@iKmJH=xQm~H3SXClKfR4
zIb*boN3)Ob)gFzJt;fWSU$t)(@H~7LaY@oZ7;V7E`spLO$PZ1zD@R8t%4bg*wM*6U
zF2q@na$-uN^FA3?m##etNy6Ql;P-0$_N5+a1JAmOV<U1uc!6G-8R_ifo0%Rr-*$$Y
zD{h#1y}EucDQ}X5GOsPcqW0-)P1g;_+cF=*Fr{~zy2kY5RSoC!7w^$sTb1*@_8^ei
zbg7{F=@+nOkaS;|$;e%~hM!=a%bHE~Q9Em+iM;LHH^bqA16U{t;(7%WJ^a()nMlQW
zyLSkF3BTUWHYvBT<ukwmffutf;-)mF)pO>Dz8B5t6uNgd6XdF1I!}T$xh`1KCO+-@
zqM)I^JPQl-e0&7qeM8adHO{$NT~?mf>W7P(iSEj@@ltjwF8coVkf6)@7Q8Fik7~B5
ztrQxE$fu___=FuA7(f2zE`9FBa8PjVd*}l53txZuD%6-`jSj~)7&O(s-*rB^j$gj4
zY(QMzeRj6!Inmxg^9x}Q|1zw65`pJiu#JFHXN2_m5AAQow{)76r^OBB42PR&8uNyB
zqO!q`Sg<^|vtIh+4$}LL2w#^2GPEhXcl2t|^}<02t_h1{JLCRV19XGSm#a=|M_JQp
zKb_pKbLh%r_l>Y0d0yi~NykFgPb#&YLT^;u{1~~|?Hgos$!v6!*lM490gf2yb_?tI
znSXoDKU5;~t}D{r^KH@m+iZ8R1K~;}y(5Q`3M#(O6ryu!B9hMWMo8gD^4aLd?Ig}>
zrHsZhZdo*z)95uayX@l^#;Y-ue94-9oJv!inqP{w);jLrX})h2ON1f+7EKU1)9mkG
zap@KAD4EkgRqIjUnYJzpwSa84^!i2Pfj2L!AC5h*j-b|jT4Wy9#KFiIc7-mK<idru
zw5P5gb9)9Z=_jZc{}D6)6EabMl#swdQJ}v1tAs?JHX=xY)5Is2@R|Xjb3`!Yua?8b
zLOP%@`nwH)I$>Q95;&?--v7FWghPRDGYY5pzpg=m#<T<m=UaLbzyFpA)RkZa<X6<)
z^(3MOpVX888Uq9BP@voX-)s*OND9OtR@DD>5&qv%EWg6{FY@GxC(t83Ax{V)nBOrQ
zU{A);C+rEUOh;bff~_jZZ!x2`k&ESx0}IGO2X*~PsX%Aaw`EV2N2zh|bL40$_a1+3
zdot5+evWx(wwRQo;YKB`7Pe-SuX47c*4%#JioLk}aM_AS$%tSiHX6Yj=vPKG9&qV4
zuG3P+1lKT+9dEci-RV+@mh1i8ihY$TJ^XZB{oA~VGf|L(DNfxsqTNkY+_fzs1)TGJ
zcOdcF;SaQsEGIlV+J-;VkU!h5N6R~7l}PG#%erdP;!)tn`AhW)34+(Y%Uqa(Y%G;$
zhQRFFi5lA;*;LzqxQJCX2Q#Ufv$B+<zdpIy|KLd{ciFbPD53Ski#7NAimqduh!YuO
zzGP<Tpzh~y+I?KN*blNg5aAExbC1tRJHM=2biUvPmn;_cZkw|iL`lV}7)X}1rTKB5
zGvjA^{EvuG_dr{nxhq1kD{9hO2c`6e9Y3=!xuHF0T*2QIE^Ef0`5<yGi^<t5or$D<
z=K7;~aMMI1s`7RASN2#s^EtL*?EDy9rKug9nQg9i@r~hB;2_v#eEqzy0P)!tx5A+d
zE&4n%OLDHcuLd92wQA2skG^QKW6_O0XOY(Itou}T`B<*@Gi|xl8>RzU3!>a<#j#+g
zN(N1@49n_(IMQXw;hr;kKJ)}4q;Gg1=@qxDe8`mHnO9OWKOdz~p6IiEFAFQy=RiK*
ze&%yOk7*HEJ)i3l2_b1e&Brqq#IDY}59L4HU1aqW4=0Yw+0Z(7!&bt8#&2@^=+Tx*
z!R`4L2WxMS_+zPgl-PHrR6c>x3RNNe^{@*Re8#=BK9u^g><NBp7tNl`BST{);r_(I
zn|Wajq)Rs{9ga94>ikciU*;6SzEB7rQ+`p;_9BSut`nI@&@>h@c$Ku`n;oI&$lKM)
zklG(A2j&Ob5bURxqC;VgHqaVdF-(D>y?@75qM_j8@%Cz>(>*VLZchSmf|%4fyx2Pm
z5qY$d@nk)u-)kAkB&aX^ok~|%tFzLE(O$e%sSNfejKTnRzyIQ!!W-JJu=JGRM;=xd
zP$j<ym$Ris$i^NF;y4(TTPql;O<wFr5V5DtG9@h)6+bnN8sqieUx?Kp5{<MH7rA2q
zQSCKy`%s6Tk!}0_zKv8O97Zi}#Q;CkE#g?1g~N&6F}4m|M6f-ZNAq82DrY8n&s@HH
zv{Jux#(?n_a?b=efXQs|!Rpfx*4Eb?fZtwKnobYRKj%&ZpN94K?P%QLOLdbRm{9#e
zI(d9#Aw9Y$BHKqyl_vj@lk{HH*V~NOoJ>iJzDBS2-hIXpnnI=apz!hMmK}|<D^8;y
zit6=*3!4Wt(%{g(?z+cxy@DuO|0aoK**-+uxrj>x6B1#!1}QGE*vDAbS0jk+AE#@O
z{wN30Bac>0VtVQ|tFW;IAGXJb+kJMBd{<eel~Ttr#fH1)tW7JFpEWTat0SeWtct`*
z>poAB>`=c+*+W{n=%lv)5tUJ}Kce!lm$Cke$|&fs_VBN${3oG)`o`9u)$FeW>$tos
zAXfi=clV#eE+;SWVBo-`0zeFcC(!!u`%VHr&p%^NUZep2osI?GPdW*yK;8S#fs(&!
z-Ty|{r%{v$h62v6pS&Oph2YYvFJjeWW`PL0Tl{dJ(L@j@q-ru-S}>ZpQ#D&zCLhYW
z;qDB)ATTrRG&(Px_IAfT<}u}FCf5!BqEgCXlj}v>UxV!4H1u%2Ih@HgSju9+-s~|j
zSTcFVjb1xnYV%|}CWR@}WlkCO+(&UR6MGwL9PpJm+$mb7PnDnF;I`feCr9j@>)vM0
zDBo=#)Xw0cI-CUwz9aRSS3$#Sf$rQz-d)!N!rn!}XG$vv)PoF+*DGFhct-nX3+6@|
zsc<}H{=vH67hIL){pdh|$@o=@VU%?zc6nch#AO6*l&A0`SaWhXKu<-6)?;U2NT<8(
z$4|Mk>gPSxv4s;%)%O(dqG>a*c|@&ohz}c5WS6<9C+A)&CwPff587@irj|cEbLiFV
zbfhBZ(f*CP{*&z+={Y@^LPPuowjQZC{vKMYu)Y{YF7YU>pTlVFTd;u=c>!@nJG*1h
zGb}vY4<Tprwoo*(6sf|J*g@`jDM{JPdXJ5#w5Q6<xKO=DpHF+&rFiW!miJ-Gc^G>-
zQMeRgd7NDzN`MG*nSP}0{rM8x4&gz!5cPr}qb2Po8{cBYr-H64@1CPCN5~?^C390D
zxq+`S9$f7rE`qmZVjX-gr+~Dt&X@BUD=5&0vFreG8yCu}O&m7!?%|i@<#&dXs>kNR
zIt0rm2J@W3n!VF#?O@0`Y<o0UaHZNsQ<LVab3*rYY)s{r^sDx3ETemu+hbN8pN;6f
zxDg&|6(F^Oj^N`UBjR9r<9M!7zwuV^rJd<zEm<yzX~h^zF;!t}b*s-v{-+R{gv2VH
z!l?6R2xM*&Z&Wx%5Ss!*yoLRB6r~TL&?R=Y@8M;3MQ$#zyi6@}Rcx-Qsj?SS<6`Ov
z;^Dqb{;jJX_Ah9thnfh6bd){%b8Ap@pPnr3%(qk(Ej*H{2}*V!_Uu{OIx5>gv@6{|
zEYk~n@cq%Am7zzARdtQrJGQv}H(33kyI1(P{iEIIMyZV|KA8KMl=L+itZaMCUGcp4
zZL;@K`MEcyC?DB6W=DIhd1RJnBppxhbBm`1yyxnC?hrM4u6=ZW$0ZUD*R4V4S#{uH
z#V)Py=%=D1B0b6oi_g?CJb|-^rQc4LID3Q3t@+NS>hkA^og38?&H)cMMl8>=zo}r8
zm!vHh5DJn}(U69`fTJJWW4j?RV%|xFh)4F`%h5BqQmudSl~3n)8f+Ub1kcH>VE>5G
z|MFdy2Zes~Oz=tx8|~7iSoKFC3GTP;H4Lcb-QQ`JX4P(LOJ5a7jeOsW!)1M0+w;j7
zH|xD$j$53Ryn18E<H2PV@x1nSP0ee6cG6wH4uQ^x@+G{ykcL)+qmW2@_NBQ=osGV%
znitX|ubw}TjvE*>JPxqWNv9n`ZO5ml-s{h@MMiU)sVeY3p<!pjy^bi@x$&UrXlzhg
z2TR`Z2qzN|C6v>#JY{{&b6)svVPBDaPrb{*x6R2xmr1>25G9dr`C>@(@aS7?Hr2xO
z{}oU1I_e-^CLjX+SAmPdL94_Be%H5uMbdw_{ZKfIRw03ZpRM`*D(pXT^7NfV)M>3M
zbow^zUorL9nbLp8!XUu=M@aN(OvO_Mf~fF^#HVz^|F^Iz0Y43^z<(kEylDm;-|I2>
zr?bb3>3GyKuQ15}!uQU5v6{AK84pT@R|}8B`2^xuqK}rP{8W<cM~zk;15#CV;Gg`q
z&Tr1S1PV2LvZ(!8TJ>Wit`*1n4n!>&xqZGB7Yhp}k~Pl4HKbfSKYF`+v#fi-n^+3A
zjh^p4syAMq{Qmr%5W$w*MXaEb>K6~;Ew!R3jr~~i*YQ6d%$Zm=)cWqGrG4eeqFuZ2
zbakEe>EdUl7&^wS#tS(iO-XLEU)D_m&$jU0eJ6Ufi^yXj5k|^3=F?tL;r3DF#NK(c
z<>}VXz8wm=l4{Zr!3CFXw8zGc-al7%v<u;g7@grOdyBRS<K`^u8nwr^q!xu$p7nh*
zolD(TvpwMN`n;kz=bZ1)T8E6(@3%QpzHXWyqtkJFFXKhw$6e>OBJtJ&iuo$36@3CB
zeh1%p)K-6HC)H+@9iNe^|F{+v{Q8FvUVLDF9HojEHEV{Powtjtz!8eH3}FJ<A)^7J
z$#qp%HAy=LYrU~k-wUr}w{EBzFE^)Fmwm3P^_N(l5)Hd<7(``UO|W4X|FY8f8fCJI
zfMr+#)2P6x!N{V|G8gHx;RA&hd!kVbfeO)Y%*zhMgU{uK*G1!)jS{SNDj#$xSQk(>
zcyDXc5|>ehl#5LbmwJifSOkcMHAkxN$pwX6m^FB-O#DMPt?Sj6Ayy1-ti`6^bUUtC
z+d?5FQRQ_u#6pKVQn6qDm4n-SpcYYoGJWpj5B;MZdU{K-QsF-gJMhCAkB>gGX2roq
zbiPlwj19JVSbo$vqDUWH{?gX!INeFa+1~EhNhH)Urdxl1w2_4TSVBgShr-v4d`ZuM
zlRpj>KX!>(up_MW;ue-kk7Xh^<_QJIElr)A486{%ADY*a!Z+y%BN*il1n+#rg#|Q+
ziTivU$-jQP3t302QLsioo?p6nP1j6AKzDe&&UGNiK=RAOPf%q)#sk^GvwMnsx3=Jd
zGvS&N>v!9xCrl4pZDm?H2&X;k1N11$3@2}ANkR>ui@dtK+H%N_)$e0P&5*b1CMxH@
zt6X!f@Ke)qC}Y27E6e-Ab$dH%PlC9(`tw+Oic)+E)8kKKkdMM8$Fa9%pUtUp+0R8(
z^eiYn`&j?xuCN{(&4GTUb}52qvZSCd=Lz?fJen7s$+E@WPe-<=G|sc$Pq~|O4hq0I
zU)d@-vd>j#ubETJL9vV>KVP}`%CUZ9TeXM<MG=tPzqmDkQF<ufFc0PaM#`@ls9F3T
zLda8Z>f9Sf$xG2NfZ^7exH)lE29o>SLM2*$<?t0(v(>|}O|PQM_yX^R#Y1_qc?BE!
z7Dz+0jNEtDYYv>dlrI>!E4!~mtiWU47+Wl{g|t3il6#Chef(I?x>&0F_7!kC8rFJw
zI}?Ws(g-CTMl)*KaOJ@Xg6FLCawe4eaH-@ppErFeF|e@6uBnHvkjJrY54khFZ3N}-
z%PAq+=FNp})y!byA8Z6`Ii)HSG(C!faH(C(HApVVx(lAuBr4zHW+$j(xNs!~-r{#q
z$X_M2JwE&8MpQHl%<q3hV2M8~+F$=2z+V-u#A!wQAD-c5;0ezFyw7dfievyj|5b}Z
za6Ac2!1Z5+=%3jBzh0O8b*Iu_Md=@%9YWyDHNeI)5h5U`!SkJ=ddxU*EMmR5|K&9i
zJJlsiTM)MikMIX|ZTA4K_{LZPAH#>DlJRww$Npi@-VfX}ztjJ=Xko^AYRjd)P$<$E
zI|1GQ`P0kuSV@ujt2upWv(JPHd0A5Pt`Vb2O!f8@jr5EtnkD^cJohGEk`l`{*7HVG
zWYN#>aO>w)djYIDeE=Q0yO1PC=91>d%1$=n{ZFrVD_j-r8yKtY5dsS#O@id`<qX%B
z502LLp3EiM)?>{1&HT2B{5U_C=6204g@(oP>-zk|XJ{+?_R56wbK`?|30*x#c%TFW
zRtAXrXC^t>VUNP+2jORZT<EuTHme?~x39cT{7hNO#+-uf;mM3~+a*cwSar6xHI|H|
zlcx^2-e8g|sl;v6F0wn9I(c=~hT?vp`HkfvsbYiZWR5YT$s-P~sKJd!^+1Ai4@9?E
zJ^U^FFj8>MEb||75_OF1FN<Ha6FfAXajspw2G0@?)s|N63_bKyQJ=75@_#P;Ep)eJ
z;Mn8CO%B>0*vheML#+9H={<N;)3hc^nj2^DH$)0CeCd5%UHoP>RfwvIM8Tx%iSKg}
z-7RH`t2s0Wr3F8G-)f{sdYJ3kUTm0rw{T!KF&JdG)K637o=w|wl)g&!HZAwcP<GY$
z$a3@+S~tLd|4B9UN+03t7?coq+Rw271H>LO6gJSVGJ?%^Fnbnz_t1pBVH#mURI2@<
ziqqZRDAvLzfvNPO+}l9evKb9p>$>7&^}SjCZiK%R9p2)a&fRNKUvxJ!-nAR+4iWgK
z`*Wr;6Z$+86ThrRr&534CBvezd!00Qi{di*q)`{Xe9#zOJ#<W}k;~CIsA1wlb6!PC
zw(F_n_MHsuRVy>D#m8q|F0y`-{B}F(VEBFIZh>;YfSE7n%Dp|<+cZp?X7SKfe+J@7
zP*KT`#>YAen$ymv(|Ql_(+`aXG&ap+C?!>jxz}YsxzII>I+D}1@JL=}^mSpqKDxGc
zq---^Lhd7dDg0%o<)m@5dYZ`-eG}}bqmZ&5bSGhFG`1-=Q{al_L}EWvv~%dY;}9iY
z4GB$zrjv(IXctM^lX1tKpn@9KUXEu67bvCtSbL=#mN#^3f;hf>(N^+5tbEG!-XJmi
zgMd5Y@t)$4<_8;U!sQH67mqtC^0W^?0j7qzOJB5wl<^U4A2b98s#nuHLp#=t+{>Qz
z-LX=Dey+w^(BvVs%X9Xlx7n|TG?cSEn`s`bH+TMmiF`nLz@0)Bu1H4932~$+XNiAc
zbVH7K<EivxhbpG~mM^+!7B&^z-wipvsA1|CRI)K=3w+ZvDz`T++7{x1qHF$AgAd~Q
zz}mKY&NId%eH9+Hw;3m;J8zjQL~xaej#BL=M-S;2Ed5Y9>Fu*kU#%E}gFa_vLH8Op
zgN2@2yPCCr?(klloo~PNV8W=Rn&ZINI_mOzH$zasqK%QYe5P=i_DswU#=(V~Bk0HL
zLioy;2oP7@i)HxFr@fSl9BZy0S>T0w`l&ie!glupdTTB;b$MQgUFTd16;)UD%`9Pn
zSVe}9Gh)#_BJ?%G=Zn;zJRN5Bs8AuJ{?1jY95|f%b9UVV7P6qRa4}$W&BDTyJU*-6
z;>}cSZl$Jj%5(nef=h!_6%Des^osZHQCW4<IUZ563rP(kC)>8-*{Hs~ahYI?;oZ3D
zpFhAU+eT%@!I>^}n8!{;``xD2MhOHlvAPnek;sny|B?0<P*rs8|2K#3k`C!cx<eX7
zx}>|iBn08mEz*ZB2?0U6LApV@J0+w;q~1aA`}gy{pXa~c|GVC`T#Li(nK?6qd++aj
z_jP?PX;Dvey7Xj5FHY;sP=xiRgB*hSp3=)|`ZE18uhFRsvb3Io$c#_tuCL;sq9Pe2
zGRiGX3ccw?R@`3{?p%SFd@GK-f18S7sJiAWC0nrR-ZWjcF(dVL$X2HT;Y{(TVF}ul
z>PTR^3e=PVk!w)XvzHA&rCd`#m7bIyZCT$8g1bGj6)|q`L+N6#1IS-WK`L;o&vAuu
zsH{hAGSUeB6s^MRhKR`oA7(4U$wVlP5~RGMmN1Q6#AS0}%V5tA&+LoF-OGNa&g&Wf
zjKn>vAukR!fW6LSQzJlmW(POBbtgd2(WPnD#jUV&vew)rE#1X*1UWJ4-WWwOCemxO
zqU@oBMt?30ir@P3B=YX;zfEL+1n&Q)*8FoG`=?(X8~JM<d-Tg`<G=J^0MpH5h<^M<
z4<;VRBmL$Ni-iZ^e(>@`Vq1W42bNwS`RHHm+yIsVz!bzIj!-cDyNwF~cW?kM%zp$s
z^8UYs*Z(<R{+Aeu-~M->8w@(qUqKImpU$oe1U)3GFF2%$V*2bbU1I5I9UZ_)(1_&O
zkmRdQO|Rvss#2J=iMNaT=Z&m*uo_9&6_ql-nVaLZ92pv6788^leJ6Ea8E{L7hzVtc
z=~sVb+CJv)cvp#t$EAh*F4=d#bIh5I+2P9X`P8(>wfErncbm)Mccx~~ra{Qg-_*#Y
z_;bMtM)08Zbki(VocwRg2KY@oJg!1L$!KIG?_G@zg>i4Xk`GfWKZa~94CMGP4U*25
z!nkjEx)?%a4JQ-NIDfuP`e~xj84iW<B22qJff2+S*hc?j3D4(J6xNt!#|5tUiTdn-
zOPE>>&cI%)A`cNQ)ytRucgpxsq2dHRpI)MYWpr#YQ^*_#8#zJmxv<3ulZ4=767nhf
z42${RJ<-6}QWoZMQ@O}s3T6;KG)<#X>Y?>m5Ewkux=ClpnA9*GWg-vK!}j?0^HcZ)
zZoX&iwt2?6!0{?ieuh`SWX-Y(++o;Mz1$W*y|4KjFmiUuPX|O_265I2{d|3uU2p4c
zFriJhqaUMBFn9j`>xZs6Io0UsLoF$c`%+&u!d{D<o#EX2M0t;x;}r!Cd;bcVZ{bo#
z1KV}|4e6+uT?XK#w+#_E2H}*)oxzSXr^x<a8{M96e9X4q*H1gZHG5ux{gnVcX^79R
z@~|NRzod|zU2X7t!Ka(&a_=<Ia}CH4okWCZZJ39d#tuX3%v?=#ya7I9A)X553MOJK
zzOsC%Eu287fy^`+45#dWdmrcfQw{!RIsKy-0VEk<wVvVcxAH&2kpBWh{UiLCk1f7*
z!W9Ns0)n)mf^2{fyzw!UI3ygu=}!QO5%|aYHzVUW3MzhVgraI~a*6iwu=w^HmtRNm
z+%m`S;Uh!BXh6>~faFA=e**9C$ozmyiVS(`4kYXt<dXx4BlM?_tP>spoCTnN9z%OM
z0DurTa3kyhqKKD+4@mf=j_)7F$9cq}{L@zjP$fXbGSKjE!xd;iyJG|{14xfdz{UPE
z-1o2O0UufrJ{%DF%LjlK0R{-nqaXX5xXAT;RjTE$td|wTwYom-mv~aLNzgxX;NqUn
z=1Q%FLN8G&Q_oZ6mIz?qtQ?_+R_1FVx$9Q9mC2%6@|_L$*GJxU=-(c<bMId*V3Y{5
z>N%}o`F?v=+az_sGM(wP$fjji)t&XKyqf<CdOu!%-oZN3&8P-^B}-*(*x6CaC<0E>
z$ccM<J#)D;rC%ME!58Gc_T0nRdof%{aprsGVE%Vkhbe`cbIN^fb8Mu{L`<I<h;?Cc
zT$sMp<X4uf!Kh0l(k(MgRrtUdRQNahv0|xO-)VEbFQOXr*=gc$q+i05L78iEcTK*C
z+fL$mTgrIVpaP=@g*)ba*yZp1>eU4pqi?OWJx02q7>*kKg=g!9n#}8|b;hWiN>Fg{
zP}uYbWRshON!f^3&&NC#M7T6oipKR;4$YTSOP)9Rr|mk<Izz2XwO*WltiGi>sn$@;
zmTmT?791Txwqw~|C2$SGB=XLpL-W0!KI1?vr9Pq|wcsd4?s}rFQ6lh;uuL!?JXbDW
z){S3;brx2gFN=<jK|Vt+d-(b2tTu#=vbNF!!QBj#F6os^ovA(KbqjptE`I$y%uHI6
zc`DCzOXJ4<3pz8egB!K(7`=T>jt$hF45-HKXSM-R$Qstnevap~UbGCu9^oU0n+8M>
z*}k##5w@a>pY*%(XP0pI&#hSFz%iq5B1=w68>)RUvK6-HNnWx3aQ8!S`9U~G$ROD2
zV=>C>0<EB>l+SVoi6a<~h~b*U-e=t11S7+9z%L}&qUxJajnzWS%Amd?tzh%TW#=QH
zgx4iyU!~9z%}x@NB&9a<;tE0)orA)d<kp(=w4&szrU{wsQzgyV8@(#M276_Xh?4PN
zI~I9&8^O&Asg;?3e_O-Z>F7}qo&igkBN)91-ki|$gLk7<r`;C)bQ5i5EoGpnZjD?3
z!;0qS<c^KWbWTy@6enbjp+@r%`ZAlA6J><=g2iHwbl8DqG?S>vc2mKeuAoif32m=+
zp7p%MB_EfHv-JLpeL{QhQE>Mn_a|Gr2zmS_VQML~PD=;qvpy{LiaUDZH~H@{UhogO
z=EGeWr0SmcqRF#>?c<JY2*^AuKMTw|iFqOip*<nAW07|XYacQ_|4IZS9pRkxfk0oO
z3qRpyPvs<i;Kcb%wM-uxmA?|y<ieQwHX$1?B-91&D8jW&VHxSgWG8s#{PU}kD}!Or
zGw!ozPR*LT2*%62vSMoJ+Y7g&iG>V&9?|Wp4DRS=j3uW*1ex~iyhqF$dx|}Ku;=~g
zx(Jmkiv$%!P;TEtP|}Nu*-Jih4LdQvkZPYyhiXkOSI$&Vv8OCftT@QYzRuB@5N*gN
znOE$nR+?kKqhmZjGnxmdTco?PVa<*P+%nD2cZ4T@=eNB*Nk%I^3FTaXOWlW!>fGZ$
zW;KE4i&^n_;mJMCTl@1z=JV*{<9mX`_pA4augGwmT4ZSQm@Q(I?Y^%@k~kz6PaMC{
z)sQ3UFY9$@grqUORS+v%n%FpRjnT?eOnR;9I48JBzU|m%ITw5jp8cXN^=&eQ^NHSY
z4-6eF6J4VL(UdI5%+*&=zMjelW)(X7%SB;qV%V1fr-U!84Qlc%?5Yvd=}~twv*tFh
zizvz^Km|iz#92RNKY0_lj&JSwM5>VP-q3l*E#vwN-AJ@#0dI@v3*HZMA~xVTFK{VZ
zik<@$*~G9P=AQk>biKJCJ~&zVz}JiuU|ekHXy%%sSYn@*=HnyZyF18HZQr47I+*Q#
zp%g)59mC<RWtq3bH&~$%KNLEGdz>v3O6R7#W4My7`NaPs`}qF~Edx>*{~aR1|5s=k
zkRkur^hapfFR0+31~C6)Xjwe(9gwQY4-vBg(LwGYAV3NJg(Lji7zVOvSOD@tg*%`G
zR}u)A{tRUO&w1hTTOS!x|C`iJ$oUU$)n79oFEHi&@;DMT7F^QUFnz8xj}ejj;_3-F
z;vtHu=Se9Bx08AC6w*ctqLkz$bcTjY<qCV&^Zh|n=2r*WyPr@q2K+~+P+N^-Z^aS#
z5h?skHYH`D*ZZ`&t9l7x*%k3CF8N6IhuKG2hD3N~8&<0vPmj3W*#Z!}&pig`ZaLgI
zVrclBlfe0b&Zv|rA`zki6;;gX#8+{zBxIV&Q6=!R-iYCJAL7Sdbuiy~lAJo<l!W55
ze9lS<)jNdiv$rzv{*sh+|IyPoyehC6gzUCXjxLrSM0*m!8LKwU1Vu=V0;Nro*5YEs
zB*uRhK+x;J<htBJ;BbdaXU-7%0>K!OBdQ>_+8S)znA;)AG1A9=8@*X0F3+9hE-c9D
zev@@iMWYq7hx5Ju9aMiBRB@vzKf{we%B9Ja=uAFXLXK$URgwTILAW}VoxYj#%ifT}
zTdt6w>4$qc5qtfYo03WaKGyB9ZIv{i*c!}6TArki&RrjrUA>qSEUewofbb4j7MtM4
z_)CG!idbh}Ws>fO>YUqPHwcc^a^nZ!Smfg5yE{@uR39XIDxkO}+E*WGa_;n0cS<g}
zV-bkQAxDT3(9EhLv-hobD8DpwCD-my8t*4Y#II27Lmnvpuw?|RYKKv@_##>*x%j7W
zdLyw8W>pMRm6PCe#DN2yenHMzx=}?|$qP$xuQ%t`7D$qjo2e<t?pasaOv28nZq#JU
z)4f!!AI)W+GTn`YRoyXFI;}8Yy`RdkRIPUUlzyb`7gOcODz4s{M#-aisojP$PXAg2
zxk|~~^ytiBDTBx+WPH2F4hMSIOQ4J_eTE=sr0p=GhPot$d6ACP%aPNH*5a1JlIJKG
z%s!)TQ|RE*^9d(P@~Qjh)14Wmr4kq|l(Ed=9s3Lv^iyA`Jc8|fs~x>hvK}*MszS0w
zBg8(_+3EC$Qyb4PkOq8%;R$aiIwL=5y<{50ma9D38s4AhSr1uiSxnj7Q<Tf9Zuu#5
z4|Ar?9n*T1^5vq)%H`UeX7_Ee&)CXGaYk6D)ZGHn(fiSCE9?_r{u{K!%W=2=?DL!e
zDDQvZBfoppKVzeQ^HbRYoZas+;eV6m{-TBgY`R~a^B-yzV9%9KNJHXKK};|J$?&&i
z<pgjSkCK%WfKLM5`Ja*%V0S!je3YzpzGxsl{Kw+}%_<2IrU4;B7-&GWz!vU!K)nJ#
zfq*U=kQDy!gC5l@fNkV_yt~KG8~_<lh~zPFo(Bk^0%#ckXXBA)2yi+9@e1Uy0YpE4
zTF3_&5I!(O0gS@mNRLO@9-wpq>?6mo0|5Ldz_Iv+^nggif_NeHDF6=-cwmp(7INkK
zJLdoK0W#2n7$LQ=z#s?w_UmE%J;<^1a<c$4=;I&<4LnIe^OF4^$F|=gTM$4169TFi
z;C2G?7vh-*LPz;q)pG&<ZB7FNm~b$9gXi?Qq46fQrQN%ab@0h@ekoEevwA<1n4xPF
z7Dxu;G~c^_eS0?@nXvhat_kHe+czw2W<2d96MijH&GtRAqkyI(C5)rzZ&gl;k0ZI{
zH8DaHkxjmYZD`<0`^M0ggx>A(9$kr=?}LSJ*Drm3#3@~_(nIsDJ)K^lj{qCVVJ8#a
zYx2Dpu6kwA+j*ZyXgQ--mgsBo&G;k8yl$ECv&?3J1s}FRn%4tET^HriXthv%#*hQ)
z_HwwhBOl&+28*uNpy#vG*8SSu!{lV=R&$=(;^PVOn-#(t%~jS{Cs7w#G?`eQ{S&Vs
zxVf8nRPbWerH5tv&-A_&T@`?zb2K}8qR2+cmehau3UT*wZ4p@1xAj^g!XZ`^DXVJ>
z*0dITu6HtY<hflKNbFnBarr$@_gxe;r*8f&CD!nUS8lV?ZH|xbA|d@^G+0E@F9*hf
zCvCUm&HizUs`k+vHtdBTtzS}1P%KK`IN4vsTZfeW>^YN=z@vISACf-<_PF;-!%eY7
z-^e&|tXpAW*Lv<=FAxFyaQpHmdt_|&Z9VJgyNxbW9ruNc8lNsKNBHkkCV}fHq)LNJ
ziiX}Tkd%6vezo41haTxjW{b5&V`D`~kYj(AV2RXd+!Q5AX;SOv4%@f$GBKZtS;A+r
z1n=+)jjCn&o?6p5dE}_rfDwh6t!sKkMaQ6yuyG7{+seu~m3YKq8#E0*JHZZR4d)-M
zVUu=x&#9fB)2G>FDmn&BMwjAw@lIq#8Rh7W8RbsiSWei|&St%w3+|D%DwnDga@f3~
zKUb2A;zqDkvwKFV<P<~&BbjF+wJD6l5sDlrqp^Fp&4Q}LAFw+q0A?pL^mkYKARM(k
zN%WPxg)M!7a^&QtF`{Oi+bTZG;y%>?I_T$$g!Tz$O=x}BQ)onw`qc+!ohBsn@D<l3
zqs)3FXKa~}SlBo4#=*`)3S42X?PxIYCh17pnSSCrT#5~JK3O|r(FHrH5?!jJaPMPa
zWoi)z#)q756ke;Zq=DOyXL(>~Ms&UuMel7uMZ*?k6rRZ=xXPaLZ6?44N}X&#M`ZC#
z74Uv+;ZqW#C=*&@_tWD#%S0tw=|ZlP!t}zRTk2=8RvBD-O;m(nsVK}>u_rc9-VL`K
z>Aw7BbjI5v16p`HV74Ecn=Lau!r9V=VLTFVPF|+lMVnGvOb^_YgxiZn1GnFcT`Bt1
z>!H@`eo&z7QwDqV@(<*+5oP>g5WAgO$;CVN-l*qv+)tk2fgG6-n3Y_0C;cPC>0OW#
z_~{OWYNrmkWTD5O=zLzj*c@#rN19D6dw&<+Yo%j1DI0q)TaJm$eZ+C$_U#Q{g>WMx
zQ(hi@tlDgl+}kuTp|=ecOUlGM^%O;utgllOa+XGtJJ{14*bK939;{IMFRAbC(L7>&
zq7vH7wU3}0O!gADuBSejp`zCdoP-4}L&>FNtt-Z4-;E;-BO$1{c3e~E_KGo@)3z0D
zha3@b8wE6ydY#wXr@}9PMQE=HWf$a|KV#QXEMhNNH(IX)qtb5$nEpVazJ0b08~&sL
zy9(t*zF8@5XZbTXtN)u0Zj~gdb4%wTqIeU3%aK<Je2l2uQ?c8eg$-Cco4!#GeZ}sQ
zc%J35d+#_Cc3HR1n8pUDc^;I$K^JdRu0<B9<7%QKGLtcd%YF{3pAF_?9@T3PXZOKF
ze8}urnMB~21Jlz{G_>K#z=>$B$<ZPsax$zz<9CrvIw=;BU<#h;bHbLQl9{YBf0+*8
zGNO>J@JDY)SsgR{-hMqvBp6a23i|0n2qG9>hcTjEr>3!7!y@#G8&{iuu7h2q>2&NS
zXUs2a>BcVacpD|B>aCC@?mc;-cv(r&7fa(o7G)uH3f90?IdGCZ#h2ueG4n5(pZ+#X
zHPF{e@~-+NZHUO}mkK^tXSJp-^(k@1V0<*b=4YZxTTwrCQ>ly82Oh@AB}S_2Md2AP
zz}u)Cs8TIK<0p8L#S2NFa71S+pRp40Npz|YWa6uMz$ky{Q(Z|TeIZIu`ce%ofppW&
zf5rQW);KuH8zb(yBzJ`dT1|akoXg!O)pOn5%J|fZqKjrxmlMQp_4mTa4C%SrOt7Ef
zFbKXt1=~q%m9T9N3a5Wl304&J5n%iHX%?}_j=Xxv)=i|k=3uQCSCpxd?t24Rfiqd_
z!`%m7id!a$ciF;%6I~q=V@<xk<GB-K0s9op-JoW$6Z{dlUNw|O>FWv`YaUae?Nu3;
zMZ<!oiqCthFysibY&MF5Roj&eLJzbsA{(L<L^TV_D*3kcq1_YqiPKKfOr9YOawRWH
z$<L;2*R7`AS_XJF0^7{dQ$bbS+#Lyig7@Q1un1;T&a3lSK|ybuHJe9={46nz(^WfR
zzGZrXcZbOEg`9{HFkqQp!tV}#By)AevNrXq&t_glBq)*ciEiaT`gk1KTx`c{?sys1
z!TtoEg!7FXe*i+TCDv?zIg%v5L8|Qhcy&MhhrSf&Lv%hYY(jkBe59_|Cmqs_@=cW!
zi$<QM5%0*QWiwEzlA@kfLOF3Rh0CZH(R)Gs!4wxl6<C&)2B(FLx@8`1!<o~`Ma5zh
z!c`D!@mODy_AAR}k1-lJ*1Qn`WgC;FImu$rsTs9->Uf$(y?i?8s0`FMUP&l4;X#Ac
zgz=XKfg;rAj=LlwUc3$&udNA>Wmiqf7Tv=Om+a|N=(0bXqIgrEzhEV$hLi0eZN23n
z1S_3wd4SH3`LNU4Sf0$oh7@vDyGx0L*2C)!5--MsuIgp56j`=Cb9LSo(&_8Jk()r)
zpI|j<+;CF0JxENNwd-Jz;`veAC>}|P`Lo4{)!K)Gv7uaAcDECs9!g7q0uS1c#KJd;
zUi$u4Z{0MNy$}utd-#r?b=$MbfKb!D3T%c1^UNGodQsbwA_*J2n2`I9f;sw*FS#0o
zNTZwY8!N?cLhY;5Rnn)FXr%=wZh0S=niYU#N9XwkLF_n=n`mxh@{<)&WMO$So*tvZ
zE#Ld1P2^H}ax}7>(e_sY&29YDEXf;wYX~anN`om+U~S#4Si;mz2`ROVH}PN2d4icW
z2q=AS`wXl6*~Xc%T8?7vF1K^{(LV(=vlx9%9k(G?pD>}#j(<pn{_^@hZIG?i7hbS*
ztffF5o%1kQR9iza1pM|PFj(OWihaVDmEstYcKC<((B!!wvGN?b*yL{=C~+-0U&u?z
zb|GBGd!b+TzOH-D97qL|ft|3y`J>O!VWjXX(NILby0TZA)oz@1Ha$R%JZX3SZ}R#N
zwjbwjOy8d-FelqDwjZGPxFIaAFr<%Jq?~NOC~iWWzbJlxyjcSc{}7iPfDg;}Ul2#Y
zNgwIU1mgdPoUK3KwEqEF0I=+T5d#6P!Y?M#ZxL$a0)rm^^dkZ+J78A-db^&|l#5^B
zK?PC+zR@3jvQ}YL6RZm5nkca55UxHf`fg?>Tg%TB$-*$#bhD3wnZW#JiA%OHG#xg;
z6YB?*s(;-D^wIZ{HlHuLEjqWD76v_)T=FebJ%iYI(#srCS~0ZC#pk|Pa@=Wj#_NOL
zzJq~tStVIQndMv?%jvF3G>YJZJagSUEb8{*?`UuN7_9Sk0`<b1b?59Dg_%oBuenV%
z)B<!D(GBck)&gJYW*m7FBJypdoAKzYRjYDS*Nb_)4{WksMy?T=#2tWLC;7QV>O<zp
zJ3~3QD6+hGY;?b?R!{IVOcVz@(@V%gB|Rkhq+$4nP_#B)Jq)v@5&R_hRTcAP&0?|i
z_mWp48B?WCN)#>eh1`py1h;r!f1DH2p}qfHSrq0~io!u9t<n1d2`@Y<%7{`_AmZ)R
zq|%G-4HDtLg61sel`UkC_f^V25_x#`KhExW`{_Kiv=NhL!ce`I^=@1tNqhg5%$17x
z{BkiZHADzp)G#j#vplhd2nN-UYb;pHp?q1==wc2zZ=(#&)9O&p6jinlI~&Rla^Cx5
zYpuW%lm)rYDSf%4R3fYr_$F>XHFdg1Z$F(8v1m0WqRso*YwylnCzs3EIkh86c&^MI
z!y~eL_q9n-t#8(9Qru+iZu0m-uu9rx!oCe?89$y<Uac=MD%@&L5NtfN%6$~Py%vW=
z;gt|PqkJiy;s|BA3pavn-U@G75hl$SDJ9Pr=(#j5j+PJqkzz*tU3~&`9+q8wxY3i*
zGejOexpIqigZI4qGwWy!r&u>5AG?XmupF~*X<`OdX-(Mu(_zvUQigcMH}EA`wwX8Q
zzKD(>VQp4Eb%_mJWCd#&7%J9~Wuc2Y`SlRB=6tr%zU3vcIbIh<e8YV7@YPsz-ncGJ
zPd!WUdoDY&{VFDlS@4ZLLV~+qsyDg(2lTKdX1$-uJU?cu+jI2hjb^wxtmefK(`7D|
zX1?aVJc(p{SJ=U;S$LkSI9g+<NtYS54_mVK3OcnI237+hjI;;rP(md=<^N><?a6Bb
zGI~2XSVQ_Tq3EE8LjbI6t<P;$NfXi)UhVPemP9?jW}GFUnZb6>?sJQe*QT2;Jxmm7
z&!{UZOiBJ^mYKdFdCi`v`U3zJo-);V{au-`VRx+I`{m9Hv2qU$%^vke1kPxlP`fGh
zgZU<8@o4d+?y>-I$J(i7`DgR7z$eNuPIgRT2e+b4enx#Mh)WX(ynzh<bdYjT&=|IY
zC`v36$!H&E&Eh<~Ern_jBjZ8hGgBl-!>93i$pJWoTJl^cnh;26bKCdOuNiB`={iHL
zZ+W;hP&5NFrbdoC3wvJ2&F@rKxuRgv91rmGyr$?9lXMIKv(sib6YQ%bAvSg`X~k#=
zP@H0~ymD6uVaBU}&w)+~e|E`p6h%>UrDN=23lW`J4<}Y6XG3jSwpp>YV8*{ueAXMv
zk4@ndT?Ol{v~BB0*z|K=#Kepe7C{<|TbRvZ%yM$O+$Mu7z3!WhDB`p4YujYS&u*!{
z8G!APt>qmS!Q=2qUH!C9u=F2g5@;+zJF~N8w2c(ZhEF%76w0rpe~=Q5zqT#S7OQBm
zv;0yJQg9ROF26D`UTq-&Db;9_3-8n&K*uA0IaO-w(LhpOtl^&+zr+8IGeco@H&|={
z`|T4bj=;XVgX7nf=XZNkD;-LcY<~{!5XyWI&i~e(;rva>{Kvq~&ilB!C;Oki2`AuT
zKAM>TOYZki_Fv8l@cZuoFo68|Yx|#m3UJIXEGQ`#P!<Cy`oRSN2!PTK|AQ?60RKQ~
z698MlLu={a#^UH=$?EE8@!G@K#hlgB)sB_nm)G)lkrv>aAI~O+{|GGtTo!<O04%z5
z0%%fxAO{U_L;$V<&Hv4L{>GuAlRch^56DP<Bm}VoOZtEF6u1CS1#p!f&-j0LWdLSL
z9wd&(2iza<d>*TXZ~)JT6Tmb8G}QkO7xou?6{5rn0{9I;DGLsurUt-p_;sHEkoJ)c
z_;|WsaMxe#RUFQLR2z7lh=JN5?Ajn&2oD<w6Ce2PAG0qH@X!FnEJU9TMEM_$+&~UB
zACL-?D*&Rz`}dJt0NRw32eJUP{l|eoIS7D|$^*d>{4WOrYrVkV2a+QIq_X__-}0w8
z_}Aq<+Fl$y5ccNBTom44xhy1q<g)y!0e(4Bzh-)9AW`O5+BPRo{7EPScuGs|{fA%q
zE31guqshG9X^FMEH=|FbW4GC=BGS7kUOjn1{4MnItK)T|QJkVcimdG=b{o%D@mE71
z4eIijOy!4;&~A5bF0S7A1$g4VvD7)-+B#B3=Ej={)+P#g)0%=;u^SXPw3ot%3)3gL
z%oPumG)4GPeT7O@?urXwyb@VG*3Du3!Z17WL5Hnd&g+d!mOA7wFN_6eY0HHYZd45V
z^l6y}R-!4JzFU6U71VLvP_YvcG<GoMmfd%kAk^+FOnG8)S<?K_WcWmSr#|j|R)4w!
z35EepX>})w8OHad`p++RUBA{kePc3Gje7g+R!DMOa~9TJ7Akg24J@oLFBd&nts3(d
zB`({Y%y6;SvR*3WZb1+S;~;mIb$#|!eAALB%n>voeS~Vf;eizuSyL00c=W=yA|)(J
zJde>z&vub7g0#MG6ZXvkx4Qm^GN#}tt%c9mNAlu*n-LZapHmUb-9=%OW5RfC>Mpeo
zGNUA+(xi5J?|)RHJOxL)VYcKVC*eywb<b=z;VLZ(avY_qXyF#|Yv970SS|M{vz1!w
zM>}<-UfyfK__T^=$Bbc8R(_4pG|PQqNyv_gk4Rz`(RN)VpUJzgu!6;{i&4LcX3Yil
z3XcA~>$NCyM3G)hf${c^b#XA05RIP1m|yRTEuFZK9Kj(y`3YFj8j6r<Svkb!rEPid
zSMyyHkL_s|s_)v3F<D9}Th{uX@tks6lQXVZUkFA|%M&r7LiOU0f0SQE!0BCJ48h28
zd0z&sJJ%Kyh#GM)F>3G@hu~xNGg}-#tJJL4vu@vfnJfkx)0=GI3Njx`F>UL5U~Sk5
z$QeJW-y}}oT_^!_1Y19A5G8(3pRp=u=tjp~hWLGpMKgP5?1PqpPUEsu>6V&Kpphq(
zQH2uu_4X?P{oY6z@^29%*Nus9!-e=|Z8nN`8t9i}TGK8W`Qdi@sMb_zx>Uov$OoyO
z5o(c=Yjmdb>grIjVQGD;-W=Y!A>J?1!X-qYg*WB9c~<5PR{cEq_0<V)GKaRhVuV*U
z>mInWz#`qnNX0D=rFoa_s~Z88WAROU(&V=nozQa_33S3=HVE54Gn&8tjtJUpG2Ps+
zhWnHy*irt9oWFW4x^p9)*{h%jK6F^Y<3J<&tQvcJlbJ?BLd)Q#gK(8>>97RVVt@qE
z;t(pIyn7Ks1$fXv1Sx7D8RfZTj@Y=~t^`Xw>NHpGNatC6d;ku6gk``jTg}$Iho-uU
zVxg7J^8*{kx$05&V-%{y8&QKd@7#>T*tS(W79+~63nLGgQ^*_)qDIUU93(DC@)tyT
zAku`~*vzU(c!mi^bd4cvg##FeMAeMVQ15L?k8)@`M!|S!FFvd#STP3ZRT$mFW(09n
zL!-*Hz)lW5l?JN|I*VN-Si3?~rl>nIuV+o-i{dVzj32hHw}%((xtZ8|SmeG`FAr89
z8hXV<4uD^_Bie)z4HHW^tN@+n%KojkQojy&m#28coti9+5}F7uWzQmrp*p+!6TW(t
z$z;hcHn@17RBPJk0(Z`_rE8e=L-{*os9+vc7tYRm;eaQ|x6Jfh$}f&qyPZuePy5wk
zX^*bu+MIgSriEdpWSLHHT9D8jm5u73<i2;O<5-eK^~gPPE99HWn02D#8VeU8$>@6B
zD@k|l<e}P`(I-hKwe!$~OX0L}I^b5rN=(_hDPU$WIdh91sk@Z-jj>w4HIYX<y6mS6
z#BP=a{brVq#agg2Wcj;MH~;5MJ*VV^^r*ekBX{MK;5oj%Byq3Op<GzVHZQ?IY*sF2
z<AMnUg9-vpTf9Z6AidcCLrg$M^Fg?OXbB*|4Uh-_&=S8vxm5o}OK|)~9C7{y(9?%t
zx&VlytRWB_Kq_P;1*XkM)HoNwEn)|jUjh0oK<@^?f53dm#t9TPqk*h8f{-D$0w4^a
zysN*S5ag)<2oWDR9T4vWOuIlOC|+QhhZCrW#mmVFp%?+N{Ms3qD<3DrKc}C^xdxak
zpZp@`{;MI!5JXG&Z(uLyuRZ@a`H~xu5In%l=d1>BN95E%7{F!xRziO-rf>n5#lge>
zxCbTEzZ*G$f^BSowEA~&ASdwf{(rM~2{{3E^uPD}_j(KmpdlV9gId7La6MM*jpnx(
z-(PA4I0|e@sBSI2MCZ@jPFPAnp`<`!mtuT7WYr9QewQn0^DUe%oE3Z2ii_y(Rut@}
zbzNe(eC_c7_VT=%_$t;oppgmNzi0eqTr9UbTGJYnQ6yXwV{1?I=;}h`>AlO+`NY?`
z*MXl^MMB}$&u13cP{A!%`}R2922012we}Os{mB`PxD2|aB|={NIYf%GK0;j64IUi$
z9y$mqyy?jXp968|MCVKEj%{@ftS)a?(BxT{KJ4qMdC2o<Osy8sEjr54K7IEof?gNJ
z)n8A>lFT{s87}>kUIR5<y%_`JJ?|neVeZoI$PWElof07c?+o6<=_nHQ-mWN#oK78?
zLdd+584T=oOK;;3l)p~R(QJs{fAb@a?52RlJnNd7BOnb`4QIdfvdy08HNkuOrT*!U
z(QJteG)oWsuZ53uiiP(`e`GTa6J`1zTNoi*<>E@CB)gl~*P1km`PMVgSL~GDjfMAF
zT9(9x*7Ug*y2^pYJ#Rh+GDkmDt|S;~GhvsdP8E3FSAN6dP{@lvVYwWQL!u(33QtO{
z?OGMbekrMH?Y)qxXCK^5o=+EuU3D`&Bg?KXT17fb(_eG7bGJ0jDJ4D8;A|@YyoZK!
zLdbZSV%15)n6W;OY)Nsq*9w{vfgY9Zunnd|z{c>D1g00vP{Ot+IyfC3#(X}iIghZW
zKX$zIBO);E>DgvmpbItvF{-p~HFg65PIJI@)oLW2X1jg>iQO2FU{y(`bCMTAU}bEp
zW7?C6M%Unzi7TA$7lb225<66D_iqbQea$*!#0FC2C+gWhg`t>2&9ya8T_9o!dvMOQ
z-83n4Tzgf6;S;Fjn?dT!Vt%CbsJU#pY@*Lq0_p|oU|I*(3BDhFc+T9N-p;i%ow9t|
z8r|80H=@39HX5x$T`0g9uPLP+Z_240-R@rG(adJF&V0S~4Y~OUYu~r42>#+rb%vl5
zYP+4%y74t)W8n3y%?qO^P$)7(*Is7y8q9jg%WODIV6|!9DXJOUi#sAkzgI6l4hFCC
z)x+PQBSTs0uveFsM#k3fJm5tb%=!JK7%{butd>kVZP3AKdB%`ZJ<Cbs-4Wtyd+ky;
zzei`f+GSw-z&%^GqX*}urX7}T!XC&cGU~pr<t$!5+TS`C{j)R#RsvR5F=WzT#`x`S
z#n$Mt8JOX-zp>@Zr;AetI;MB;L&V#-B?iyam;`8*pLc?1(wW~=!!1swS37=vNbe|m
zs8m(LC6w#&h^mGC1QY)5m=?m}@2Z&<Y7jztPZ!sj8{0`95#Y(CY#gFkYl2(1Gjafw
z-reGiO(T5apE&)hcn?>U!R*}~S&UO$pYmwyR1aA5#N`TugLy@@!*%5YW+*s-jQ%21
zv6a^K`5MQ`9j5VFV2?Xm2s+18R#*kldB|j}ESfX2=%6~sXZe{bqY0g-uaoFgn}jf1
zXKS&p$ykGhuLf(PD)do_;`FmTrHfK~P<qfgo!Xz^=3H_TMSmhkQ4=s^|KVJX{o)B%
zZ5KXx<i|JFwqD3fLaWsW{Az4HyDHBV@6v6!)L`Q^d(ZY4&pzf`JYl3_^He+N4bL`+
zxj%f4@tSKmP`QK|X4nr0k<Z^Hxit=%54l$!6E<=w#_z>2vZPBqeN@ri*jss>4pULT
z`LK7SZxB;K)|aZH9qV!+d_;qGk?d3Jb<<fl@XXn_tcfS^mJ^p$q9_|BuzH5aU)!B)
zN*(W*Gm_GE<C`*u)B{e_mT+ZcmdWO5CN$gfz&)+aV+0awR^QsV6023msY#m-{Y&T{
zUNTqXxmHjq1qK$nF(IkLKV9kAz+!_j{C?E2^BFs_(AfQKk4G8n7HcN@Q{_8#98o{m
zR`7UHa!;SHFl&r5nd??zQ8lMUsx*4SyeBFN*LXm(vbi<asa}#K^&76(9DK99mplD^
zY6b=+d)j%>!Ws-D=Dsz~l1^&bq9U4a2#!bOgOM>2o5y{QK6m!lM#uU{s}R6f)%SOu
z9Xlo$$|TX<S|{JvE0V8)7!J#Es0MvMqJZZ`H0*Oto~vNN5ONJ@^TM`|7H01sknJmN
z(P;*9WCbW8FcROON$zcz^E=ev*ws(jJzv;Clbn)9ZVC(~%l|pNId|Iyr7C0jb`$0c
zqN$G>u|+HIWw1Y%(*cSybdRhIP^y>*8t+UMdr0|ea9ewTw6Z@uKll`vz49Fr116Zz
zc6iG7n=^Ro=_{ch3#>=4zF=!|ak4JLp5bSrVthzd79T<)Gg?}20%?qxe&(dxb5(9N
z!>RJ+|03rc?3l?J02@X<=-CE}Y~&|Pp`^EYR!>ZSX%dkcA@TIR3#CxPJla><?SbA`
zNivarQTfVa`mGwmc)5iicIje7BsracWV}|!i0OVp)zs*uF9mN)LA!{@n$&3YzTPk#
zbzkXB&vK5)HwqJ$G^cg1i^p}m7Jts!ms+hBjrM;iYxS|gqJ*w9NR^-=^R3?qT|Pfk
z_b%)oBaNndZF9YVo`$?aes&~o%EO%7pp6g*S@=<er02TEU#Js#WEV(xT5|3NW+oS2
z{n8DM@bV=H3JPrD2X&0qsjbC#Pbd8von;m!Pe*|q)aP9v5aia2<JoP}78@Fqr7O&=
zcSr7L9OPOb;!6;&hOpW^$EtnX?P_{y(fT|#YbOb^{w`Tzyz@9j*1<qU^qYQCqepUa
zOqxgB)`RI;^!D(L)Db##V$iNG7@eO(Q@}VvJx&ru*q4!BT_@B-*q4PWMDet;SIOMY
zEq9ze-SB%kHHzJjjPnLgV^O}fhY0XJR7zSNrWUJYdlk2QD;%Oe1~a?RTFR{e`OEf}
zIr;u?3s_jN%8YIs8{O$6i9UjQ{B>w~bKzJh#<&riS~*pPva(8+{@jtWV3eIEXfnD!
zb*1OJ;yhacL6%eC&QEo@fmK&WTR1Iq2#5(u&v%x&V|SkiX}Vg`#2`2JyOhS_kE<i*
zviljK;Iomvt)aHK5@Q|LPQ++jwD=q(wrYzj+AanuFx8wsBPAnSz9VKg=!gA7w*D1s
z!wI0WA?I#@@n;l|f%jV`{ZqUGWhnt8jQ+of*I$Yd;Bx*EO$dlgpc<<XgiI2!Z8(9#
zJ&&a{ALT3OW0hCHo&sXcAt&LWXAm1n5GD@iFRJyQYLoL<<T;=Y|CQMOc%6@~+b=B%
z7%V_h9iU|IuR=IQY9K1of3yRYEx9;>T>yyoFF6TWae^VVeRPEWahAslqL1ZQ0m}vu
z%l{!f|IP9K$HBl?00tKeA7JMF=YfyG@dUd6z2MD1b3Fe5VgHkm{U<y7_fpR9+n4^e
z#`AkwC(Q}we`1Sx0oU=@%1*aNzXMPgr)7sJD05TPq`}G*N*}pe%zHPdl{=VXVKSgE
zfr9DX-4&@r(sxAr2>8SBNvG}MW?m|6@5IoS8)CZ|jI*?>Ecz?HbtHx6H@hbUD%<%9
z6zN^dZ@>Fob-T|*^3d(GrQIci{o7(NyG*@r>CyQ!1hjDN1yM|iZopeg4O*;3{9!g?
zcvBlN(ay2~lv?mm2FxD*{a8@1MkDp1XveO^sD6_75G?kq2kf*G26Z%|In=yYygaNL
zn825qkTu<XS#{`mWl@FGS%rCtla?Q2TUEj4f%p9)JjZDV_0(D1mk!2_L;0Bm?xbeY
z`mq;--f<<d4YBW<=MS*vu(+^0MWjj+wfh0dkJ=-@&TV<!4b|uUQ+=h>$iCo&KGDqS
zQM+3EDjWC>RzZeps&EzP7|XI2dL1~(yP9Qfubb@j12I__ZsSz+?l3ikH?rTfF3AX0
zhUxkA{3j^r=^obOwr#YQV>H}Kc{J4C7L$CaGgC8+R1oei80iPERQjWcoV*CqN>Fy&
zfT8>lCc_i*6$)Cs)!veVs#S{{PS22;RLq?!qO2>&Pm<6W4-PBR)zFS7IJ{4BnXsEm
zf_bCop~P+t-8kxc|Im64xoYJy#uq`fHAy!mK@$1<kD!K&byBq-$5Kyb++43~D^)Mj
zFAiV>B<V1-vEEaHSK*jtZJeI6$+DU#Y8R2hG+i#GMQD^sr$%$&T}Q-J;!{y<ozC{T
zWs>gD=f#i~@_1Wd?$n?>wNw_nH1XWC?5fL>079nVX5DU9KYTBSK3w%OO`nv@9>Vvs
zTFBVNZ#JUhCZY@L>WYO?j_|pztQfrx6J!m(@w=!Brei}gyH&Rq+Pi?3zoQyMB5?kx
z7j5{0bChYVTvlbfAcD%Ku$=jo#0;;6`~6qy#+ymS^$N=Tcj?L96GRM(%JP1s8>#uy
zl()?58@Jo|`8@%n|82wqU=)9sTYD@{{_nSK&R@<wE$45<{GWr<F97{NMw`D3;tRD$
zgZOV){a+l-$GTrUfYnZ-{%Ga?yAiOU**GEU>L4nnf44p6*Kh#1;r|>Me*3t8rh@;6
zkNa0Q|K~9AYc%-F;pKuDD}tWDK9*<y_42AN=a>%E!P?OrC6<f~9PV_Ql`APw#b|l$
zXpO`F$)jRG+{P&F_9j}mGi2#`-m5*hh0Y<~6`^<|GV1owlFjwEO%06=TiVJM#h6m%
zb8tfaT8ZZVI1F+TLbG;(O~-N_=C8k8dsa3zJj3TXObS@scUMU-U`XB!-(4MC5<~$j
zbajG0N2tr=hjWlz80aEA?Sj^$!&V$&WWjQnAh1j_Uvt>o8#^E28<Z&N?ROtRhhCNA
z2-r$|YresqWas)S@$85fu@oLw<43hlP4t82g#Ao@q`#Ci?clMRh>bcSG53h1dSs<(
z0*s_!Yy`!qPR+$+v5F%@^zwQzrL{L05^{9-;aP+Q+MPYLQ&w8BSwqmGQ=ftX`HecC
zLAD2RA_I|_4sn&E5N2MZZjPNDmw|inQ*T?Lt+QgQY(u`ET{w~xMvcPr->25H5d-$x
z*lJ?bzcS#nG$5%fRaP>`8h4K)(nkuto%z;FzqK|v>Q~5@_=eBQ_T0}S1{b;o+=Tt0
z&egU>BR7cbECN%JB(6$2wj|DWcOG`i{I;@@2ZjgrV}n3N6|Jwmg^GTC03@3lV}Gf_
zyWaOBg3r1BNwaE6L&clSABtZLFiJ`x8A|=vR%>R)-Vm^e_E#>RGlG_$3%bwjCPwlP
zY+nbuJ%~09o383!dE8Xww0;=Z0+;9+ez{c&Sc3b!Vvp}qHT3)$ek=<Fr8%ie6d4&~
zrH6&m#uPJSe%AV(=W{7``im}*`Bz^pe!eOCkKUtkIUz=o^L{a*A4LMSRY{D@?&Oiz
zI!-H{rTGWh&0<qgE#qFku!R;b^i{(>D+r+Do^EfK?|iYvbw2YNU$9GxhC-t%$w=7?
z{|xtw%##_8VUtoIN^<x@TFKMPof~q9bY^TU@$?+;>aY?CIu?g{M+4I`*sL=5Skk57
z!q@czM#QR??!WZ$__iUS&jA%S{@uB`fEwFC&8h#^xgVF|{_Na9X^da1KiR;tCO%NP
z?sw1nyYL23WAJfRZlnT4_6v{;bjsiBdVf{0{<|OkV<P^uxBd}ef$~`C@7I?j>q30C
zLHwxtkM{&z3^FGdFJxpJL=Einm*WQPGW87<jq}GYf2Z*2LhkoLM0M}>Kq{a=PQlGq
zcf1cWfc|q6d!6SY$o3z5anzk1fr_DFIJr6NvQI%?kDs{eNH2bW;;u`*0+oP(Z9H`^
zu0ec{pLiku>(EcI*#Uz3->HWj<op0F9r9To8W)z0je{4`{u4wGPBPa@&~LihRg@wk
zAu7sIYivq@Cp1FzCv41bk`ookZxW<|%gbw0Bii*i+?l%>Yq^@asxQNsam=_7`C2ng
zA|aDs(9h@q&kY(BrBM7tVn-4HC2NjEitY}DKrGk<3s0Jn2Sc!F1{eIoKfNsg3LOMe
z^h2G6y##r~y{U%-&%I&)1{J3)=z+k5B1Z@HVKWV!{sU^g)(C+~4HGsS)uj@4p~EFP
zzz!-^S&gYYUXWOHu?If;L@9_$6y^ZY-3gRdVeI4tHS|e71B%uNg$WV<m`vdm)0N)u
zXl2l1#QnkE1tiGVAqgUQpgBW>q8&#?u5d<3_8(^VV^r1xbF;}0K454+2sT7jy?ck;
zcbRqmkUIHL5olLxxA-s!V`IB>0P7A#FEQMP9`o?M8124}59#CZ0|V6&Y-I%pZm8C*
zAL!u0pwcCw!UZO+NSi-J2YN`1CwdiJ8c1RBpbKs1^neYOF!@U3Rif$rXW=`D3Yr<5
zv)7KpRaW%_*z+Nh|DMfG0R5E%l#lzYC%;j2`OcRws1KU#)?o~jL&zqe)y*|HKN1qr
zLxS=N7^<g!bO>$8Ch+bseoICX{&tujpD@Eh5%<&i@lS#_ve1Ck3aIV}?Vr3zP=4bN
z6wg_pl<zT4p#5Hg!^oi2uO-U)rXDawm=(`3oMHTq!1tJ+mTyG55TI-xLSbh?qAen@
zRsO)n%zm<fDb70#=T63CaeMm*PuKEJ)s(wn5-9Q?B8bE|$1A!IWC)7MX0y@(B+nj@
z*I}WCA6)!nr?N=&9<m1wWgjXeGDz<uLL0PhgV_?nmZ4}Jd#phhmS^}KMAdhJ<()7=
zw+wLLG}JC+==(wReT<)$Ps@$IJ+O6F&)u<i&esL%OMEkgS@*N9c|bANdDshrDVRD@
zx&|X2K;O$@4lQB18$7_ay}V6f!I000&xiT(*|`0uvrF(jE|hKmHEWPU=N4-a_vX(T
z#kSlB#vUZOqkGodFEh&G(0kkc18@uASBhFH;AA!jKPcX#!iP2My@OS#5Wc&88FY8V
z`?TRwBM&lEcbGJjp@*PUWH?`W2Sk?3q>&qyfFW2`<1vB~)dlXUXhJr81jjQst+7n&
zeCeGst_zwG^wSaB83c~rV;<HEl@vqY%L)cgB|(-R!J?<bW&%4!1BVOllf0nN`ckwB
zFhoY^xHz7Psyn>#dWA#r2E%odAb<ILE{jUL+kVreTOr)(>26=%d@}}8an4Tec$-`W
zEBY3?wtKf+l#I?(3?O$dV7jZ>6W-p{*BKI;lyQ6xI-JI#q3np|dOeNw#Ct7Se)2)>
z%!ZV#1WHNi*kap3`;~<AT{1^`z$aT>u;aUHG3oK)n(KK#i>mzSQwKGhHy;xYzQ4fl
z6LDAc6y0|(*su;tuCY0jJ8hWb(h+3D(evBL;Nv2|P1dQx5PkZUikbMG_p~y-2V0S}
z`a{UXDOG{P`Q2v0)Wy>y@<<knfuEOt-y*D*kMktHKokniU|yH>ud8jzD!%<Fi38qK
zyPzS_4$qfq_`Z%;*b?FWGviiI5q$$r7nX{{KJD|5x#)r9WD7&Qo>+}y*C#L}y3>~6
zg?U@qvSf0@xAj(K$K_h0*olMn*P1--hA(QJ17j(eG#ouzKNs_S1h;o1WjcwAd~m_7
zeXSpiqElKiuz&i)CR%blI@0w-fe!+vqNF4E@G7_>AN<}eR?mf)oUfYbDB@`+?U>s{
z^sLBx>$r-e0mTwBQqquF`O>6-)cfaOb*1V87~<>v1)1uYN`LODs!DFn_{CZw-%zB+
z@>T~fH_I!L$6cgj1zQW*YRSn#ZD{yGIv`ZfEBJd)4DG71R6AMCv61iG62V$vb|#Nj
z+5=+YpF}I6R2Q?(fkB~4iv>lc;E}cpAhl^k-{JENlUd*XG65eoZ58KFJX3Vbb)Cpo
zonYIyAk_`WSvoh%0QB*rQ`fh&(hgvPS6yE^YBSM2QSs`RZp2DhsZd9ro92))3%m*3
zIf$F|?xEoJ$fh~EsvuEkUeSF4R?{InhvQ!(3ACJ?C+2Mudf{WY&rNU8aP=Vy+CZ@e
zduB;km5tc@3)&p-v+`$q&C1lZEU>Ju9~$#UfV2ap&X(qpQzm<aJ5-6Csgu-T2QKX(
zVrO~Z1>u55TqYY08Cz&P9N~s&#|>ibFz%0STr=W+RS2@7`z&9}L#(&pz)#V>4#j=w
zut*sTZy2$=&FPnW8FBOWgei7MtN41iwcd5Vg^30;N36kiGc&PWHh;+iEottxQYmz5
zZmqtYLdAr^0QZ^N0ih+Zj9y;6+30k!&^49&;hpqz{t)C2qeDTyEVeJFb}1DMMPYKo
zq1U%nU4m7~pUTWA4_}pF$$<OMi_Kw?i#i-C&%Sy~>J407_k8Uzn);;EdMB@Yc0-9F
za<sjs*&OJiN5R*8j&fA^;c~LTz08)Q(j(OOC;KUE)`w@(yW|x}UiSM({VEvOXWdv<
z4h>{n--K(z0+1E<ozl53>g+jkm6IIv!@AHoIM&l)JtaKF`XxQw3NgWWBa=0FCo{R6
zlV>dfuFcj}auOwmKNdIrgz8q!)`TH~ac<|>aZY?rp5J#Dw@+bp{5P&qN&R-kyoY1_
z#^I}wz<1$TJ5bSc5{-$P$DwF4ICMObhT&^hqDh9^O(iVu0<kr_+Sqhu1#kGH(c|PL
z#hG|zOdI-FAo>xWUiRQ#j#S_G$>6%rk-h1lo3<1M#?Pzd#2Yy;U!!$T)l12+e@r7n
za6g{{cM$w&W>1@+sU}MIVBTBcSaPNxU9dNeAF1>R`YBg^sd1Y5WAtu}<?Jfo@SV)t
z1xiDdkIdh;RI#i2XtTy@zg25S3>=E|;V{jAc~{QLKvg}dyNB%pR-hEJ=0Sc3Ge#w&
zC?~!|;DE8BgYV8;IeA=U(Cj@U_S4EPV`_-z{Ny;ugtU<5bpfI`P&To`KOP_Dj`+=K
zT6~v+Wp9tFajAh<)E(K!O1uEb@%FKq?n%*rWK_V$2F$Y9!~}f1eeqf(OlmNZ8Z7&Z
z^JIIen9XbVx$i|fV9FWfOH*A$^hi(uHxF0A)ChxzM}^(Y@s_nBWNIDSludG^ky~u&
zqVl%!x%u#p_%}CMQW>3rVHKZ20r+kQ6icN1#*lEqXJq^_O|VjmL4oEu3$(<|b?efK
zKA-dBdqnXLh$e`y?xiJ#wx8-?wqtU2yZUK%v{a;=2*Wroft>=n354e;w{pf+k2Fzz
z&J{8c22x2otH)mT(jw}(?^QI8skyYPzi<dueR8l>`h=!|))sW)s%nrmIN%#j?`Ky!
zud<)%LL0G9M*B@gj5_<Cc#2>xsU!a>&AYVFaj6_=Yo>gCizIT}ApaB6z3+jS)s<iO
z3NHN7h-`pmQSdH>Y|xFY5{Zmd#G$0fq@0p8+>12Qs%4(CJ<Dh3O0;2{+qltNJw74_
zn+4HHW5JsYWWodyM8x%Zl~0Dugp{0bE@2ma`DeDzY8{VYQxe`IsSP1PR4D{{EBlL{
zK?sQyz0NZ@y7Dc+uAR-JOdr$^<t6K@PV)i-pVE4-oPvLlR1A+zQb<g8hTBjF@b-&%
zV22>Od^`S-X+(X%;KnS_I(YRFe7klyofDag(oSO4nzy3g&M(L>KbSYSSEM|28_?x6
z8<?XhM122LU2qFN{M8bhSe(6c@IFETnAt^ZD6W$(7(7Pi&BNdRb1*TyO%-Zx*!eAu
z^KS0+f-g9GPV@QoaBWJ}$?cg#R3=R5!QIo=b0gWp%;8XDql9}S3jR~Lv;9pU(xzt(
zwC|lIbMCITA?EwLjUIfAcD{ssC@j1x=C(>2gn702*6Q;VlyIkdC5Tpzcx7;DA9}UD
z{9-8sl!oXtJRIc-1g_FsYyDX_8L0YtNnxO2C*#1)=ygobyQ=gQUK3*s?TwXWsDR{R
zzN`H#ID`!jP3;NAzfDgy*Jne`Lh)J84T+P?o|aGkQoj4t2?kAz^yb`Ivr;-jn`<^T
zaxklmeE;)D?gJv74hK_gACaUX&0)UjMBSp-=su-f{K4sp<E+yPhS2l#X@pCO@5w}?
zqOxnjr<x+4?ACGZ4VCk5ZiyyWQS7mH(aFqNOg?!n9M@3JPzk+%>AO~HM<*x&8l-CR
z(|1zs-u&2*?OA?KO_@Lty&Ktgf2;MfC2UCLnt_oavf@o2!*WjH^v`lggu2RuwD;j1
z^Z3RzZyp7Sw4pvaQ(!e|#&HA^qeZB)z&e5`7^~K7!6>S%f!!anCzyhAJU`lG&Rmj2
z;%bI0aIs>viAJ7MPK&2AP^VFwx^>%IGSw{@yCJouM>lurl4bSdPBul^hI)vL*^rDi
z(j7WHFOT`?eX0YTy#i8iycB!!%ab>k>=jLr*qU_-YgVjDqA-|e&BJQfR&@xBMOs)`
z;BDEnG+IIN&%$rvt2@HbA%d!=Yi3QUH9Kov2f|02POs-Nc{ZI#U{q_Xd5$bQ*uSit
z>kpae0%c0P1ox%bIz`tPM*Ou76k|Q?6Bp~4;}<@z#ee1qstjNW&^;Q%++FVYgp+gD
z29Z81q6#ZPS=L2S4*3zGt^h|>Z1t|h8;r~X>nn3}5kiDj%K+c<+4ucf;^yuV^LC%r
zbE_iEo(>FuCVh_vI?OQ}>aTO{*!%CA9htbdR0ohk>}5Rhh_o4d#6(iMKSTdN0B=B$
zzwPB$Ek6K**)wr#M7B{INAdOf-G2S@uHm#<02dMi*_;rw?}h2Vs#HS5>^LW&mhoN^
z6OgbVf4g!XZG`dl(V+b+!ahBHGMBcQQ=(JetzFmLU`In&Pgk~PBJ&tOV@YE)GY&L>
zX@v!rK~GlIuY%tcT)v<Ev<lZ$*OR^^zY~EPjFixc_tE(GZKKXyo>6rXKb=bvq!R@F
z&b&0AE5K53;7n@lylUgAY|0ZoX8&A-{PW%fe<;+pQ1?yU<9YuKq204|U=CVpyL5J{
zcN_hEVk>4Wfnf1KVT?33Nm@a;s-wnSwu&IrfDDh`87tXOr=UiE?QQ4>iL+PoEPJ-<
z(carDStrIgCQc8K`5MHGzK?fPTw{&x&xG9^H=o-r8&nTE%KRgUaAaKCmsk!VZ5vyU
zf6$<<P~lifQa7O>duMjSUi|~g1n0q^kB9VDI3l3WEFZG9#`w+=YEGP(HMOQY%FiYu
z4318<d-O9HFpr~wo>Phxo^5-!`W3;J4yf(#{oR@#nFgNQhTXT9?j^GT+P;a|zAlh{
z3Cg-w*)}IzYkJH)tHoY1w-?K0Kcs!!e}9q`nlgI8uKrh+J|-sWuT!<dvd&zqXe8zl
z50zB0<_2d2{ijh-@z*!R^}gjb(+cMgP)`t7;l*Tm`)xd&cB45>w;8TM+Po&t1%nCL
zAN!Sl3rIWAqayYqg#zKS%i2J9q>`{>%<Q9Ve0&53N+3tn>Pj9m9UhG&1|wo3e_C?J
z!{>%dBh_@TWg)?`d7-w-=9Z}+jYn?m=dqfC;CBwWcxU(;ANQ+^g>h1wSP3d8qb2m#
z@6v|ZM++Wmgc%1EW1Bn>JIM_SV+t(jaT9UM^JP{uKy;xyc@`7{p@F<c)S2?U=3^W?
z{EZu33}tcX9p4DPt{Cf*C(HRlf0_x{XoT_G9=mjII@$1q$yiPs{J3rjbq5l)Ena<5
zGwCq`Bu?!cB9q$&#V8(L6ijQrttk3=14)ytSh<Q+{lU$!8FH;>jeWH4MGWLXlL1Mt
zN5#O6P#!H;+I=+_9<WqIM`P%!(RMp~DZO=nsyJO=PZeA~#BX|fz80t*e`ffpwa~SL
z|Hbo;ZFe!=68RW64-kXYdy`^eL3+0CsGSuXrCS5{r;Tb;Tw46Mc1mg3UyYVTqezO+
z5^RdsS~EsV)pAXiL}^L*ueALJUw?3PPDW?}%jQ9!d#$u0)Mi3^#p9B^y}X)acm%)h
zyIZ<qA4{!K@y)=e&y#=ff6$Ff_}DvZ$JU0PQe|-(^6pD4erop-{tddwff5x<<Y7xD
z&w|*Y8Q*WE;uLSp!I~NzgvNbj^zC;P^&($+5n5kNmjw*GsML09Z{A5y9q#Eslhk<(
z6X~Q5;kzMmy?5Xr{vG<#c(fK!PWp*Z;aXEXi(Ep(CPY$BX$DoCf8L!R@(vT1(6VrD
z!KDyK8C8dXR_f(@g;8Sp+^G}@!}p*qv?WSl9JE@pRduv;kAsJtI71?B*})AFlQ%GM
z2LsHR8vi1e$}LLH^_(56?NU1LEsLq@l6EIKZ9%D4W1<c9I}0||K=zlz{G}r2+(dX$
z^MzY($&KI-g(Q`he_KtOhRdxaTpx30e8;}Z$K7(L`{C*X4TwVl&lAIJf{n=`V-+{W
zKNGpzR8YdpMAFEP&fbCWm9>U}TY~0l1RQLQXXJ%7l?T2gH2GXc*I%63)e?^J3h$-d
z12{m?xahsg<+_WP89f^HC?n+)!bYNri!92sf>Sy&Enld{e^lo`ksVuWXzBGde(X}p
zzSWBC4O(-B=h}I56@u|I`MYM*C{rKnroPJX-NTRH9~b35ELJpgk_rLBUJ$mw{?v57
zeU2VZm^eBatNip00ZgnSxHyKI=14EJ?WdVvYQQ)~;4tXYHWZ5L3I?KB_ksIE;h$r0
zFkEB|L`Plye?v)zBAt3_%8B+T8nB`Qt##MYT(VaR95z|{t(VSg7!yg4I|fXqI7WNS
zvuNKJ@zZ`65p1J@@0r24rTgyWy759r47XZAR!Wi*A1)$40bQ$49)3o_aE!ZF{L2+B
z&fcESyHe`B0~N_`wmYpKg`{}F2j`y6c*QG~aN<?tf0ljBJ?)J5wwT(5%R{CwL8_n@
zp0<#c6{~b+%I4*`5i21r2E+}}V^IQAE#f|>bu7Zym|zbFYh~J~uKC2q(DMh<+n`We
z2Ky*1JCxk}a{@64(>MJ=qV+9a`-@YGWHz(W6C1+oXnHI|>-R$i?XL!I=V(T-K8K5{
zJMaoHf2uQe4=F};Sid(9I(D-709EuGcadI_Y)x=#G^^WYq}8i{$AZVbK)H>4EgEq_
zpU{|O(L*gW>?y$z5I>-n=Dn=7#j7P*{Yub#6^B_GiD%A0^Hd&!C~T|nR`>WlR#H2D
zMQOI^JJtc!Yc|42951J?jEi}=`wNsAkMR+^f0}`I!n@y+^$E9MC({J%v1_t`C$+m~
z+fw|YK$Rde?Fom8NGnbGr7CAjdlkSwuFF$5(xjAq9o1-YUBLG;b-d<WjP+=f;PN^x
zj-XeVXG8B>umY5v{b}<*2YNw^;;5zI)v2#RdY{V4n2MV5pDE4CIKEMcm}vYKbA9)_
ze=rE>)=;`}Mj1+mLL$DVD;9%Ukj$8G!2c>1+n3#(piRo6`;uX<P>8c3)p!k==K<I0
z$7YZHvrC|!(!G`yvP2*KMijVSyD4umi+#ySBSsd}ot_oa$)<wEnfWumikLG-!^Dcb
zw*ua|#Orm}rQpv*|6~5nUMk`%r30Mff5#1$JA|(!U%;jIR6PnI*Fy@jjw->5p}M7_
z{n4@*%C(<|Fa_I_1m1{DHj!pi2Gf2ncxJtJIBbKz9K0kukJo|X4m@w}(X!=wcNViv
zW@?JMnNa#gU9JpXOj5NR(zcFvzeI1(q#WO<`5jO)@Van`HkR{)ze^nj8(gDuf89dR
zYWN2}`wgaazGDwGh2|#FUxt@5clLthW>0u0+KLmeUHP9VaUN6Vc+p~>BD+7hK(WPm
z_8j@-@b^(2$|FP6qG$OPU%cWoZ=o^7ETQjx>)wyk%GFC59TahQm`@|*KUZPaOc*wI
z4?NKWhlH+JvM(R4W7Z|eaJwv5f21E7Pm&GwSR9zG+e_HLifVXUC`H8@ES`pe-oTNj
z^PE4jar)+Gr`%mNUx<&+)lXz@-wZP`&(l7-82|pCMwrz0X8dzNQokJP*c?kQkFG%1
zOP4nNjDkya<NDyz>88#Z$LDe43Pop!B{pwJUf~IA)3gbr%nS_~d3K>me*jAXb#e6=
z9G={RZ#kl#_90xmX>$1qg-PnGUy3nL4*c{PA^QN3*-koEqX^dBcb1o9kEROLeWUV@
z=Xk?>>cQ?ggxSIJjJdK=Q$dj(;N?<$TP$)PpD(AMwb^FH9tYkVvE*1iNhkOvh|Vg+
zcJr%wl`(yua9{knwrPa>f2#?(U`;Ec4F0$ir?BW*3^DXZ?pKU(#B^~Po05|oMb_om
z6QfX5aa)=bS8#^D_rzV7=xg<E_Z`b!PuT}u4pix)B!-ug#jO&|j@g6Em=A}Q)-T4}
zCD%sx<(oZ{0UHtu67Vw7ARt9T*kgQAGK(yvGST)2`op>0ow(C$e~`kw=9#1<b6g@b
znr_ph@Y$qsZg;6FKaGo20FDoJrO^R$pm?W&ST@#4E?v$}L%u%ceb`%tluGNy4ratm
zL?w45^N$4c;W_p~!_Z9sl-f`B6yI{+IcQNS#~0HhP0$xTSH~fLZ&{$S7SIlw&D&`W
zp7Z5$sHoL>fh>!te@_RJiKVg%-u7R&qc;64IX02>vma8?=YeRMABON!b=`SdsCV&E
zgAo@A$v6L^Mt);nQ6_<HCbQOAw$6{sjz-`MlOw&VLeGmCxIQQ&ft$;;;qLB}9KQ9r
z<jhFK%~{~87G`xr#y#&d$E4ddOEkgi{3%f{bE9P`S%&U<fA*3Ma9kQuD@k9L#d`R7
zt-0dFv*)*if|P9OqF1}zK*u$UhnfH0gGQZ2^<I!O1rq*A)w@%5yLmR-kxSY*lnlbf
znlFC7SXp@5+*7_mL&`TTrJ;v#A+lv{+Ksj6mdsiDf)E}($&vzT(htgY?(T-wLd)m<
zsh{d6w4@7Uf1q{E&Mjh8la3p49`=cR6>U}P(PM|WcRvozTx>Hh_?k-d$NjrLc1(@!
zq<BgxGj^azs8SeoCsM@T+)L^Y+y5kfw%qPgplemd{KDTUmDVojK5F)fjLc*(kU!cn
zg3Lp*b1x*~CbfO^D_>5#NUsqJz2ww$-|L|O1I@uAe?<(y-pvVyrqo3&rJe0c_{{sF
zot7eN#dWk?lNw@|rtN)=c*1uyL43{ZvCH3sr|OWDpI)WaO89mtOox~I9yxz1(#GO9
zpmt*U*+wOvQ2d<*tJ_&lMHFLu{w{*)Ky@!(Ai!p*URv!fYu>OsVq3TLZPY!2r{X;p
zq_ylme>aR`D{_b2|2<p0Sd%q}fAu+HtBHK$JJ8j_cC62%jE`ajRfx-0W|P0@$jYMm
zBB^EzSCX-cV9Y@ZVKVkIREGV*5G(bIcY%v(*+B<ZUKG{BRKP+g1<ms>Ubb*{a=h%{
z9Gs2DX|kvL^psvNE79b36A=UVBj3+`t&ap5e``z@E`Ct_;g?oIM!dPubMW<}Dcd87
z+smJ<{#;s0#T1{#f`u@OonA3RLvP$?S;wCQ#JYCGSz@gWb%mKb)}U5X^$cBR&xoe$
z#aa&@#xyMzt<s6k@m`d2Y+W@LpwY6HYtq~xYtdB-0E!(*sdKTl*KpTF`X~m6YkG-H
ze`5J#cd>NkuKJDTw~<XHQ@`qKgRM#B<Kw6gaN@~OsTSF@4)uff<@B5;A{K|xnLuZb
zFu^KubWSAoiu;7-HM}gEADm*MqW2yR9~8Ft5pIRi980OQ1Y&O(Yw+7YzEK;;qoEMW
zpG9F=MsV1U9EM~ntu@f49c55Bw(c8ee~lAJMBaDL-4mOJ3Bnx@ASxM%AIiPx2%C#D
zOi~aZ9@UURZ6MQJnzBsPz}cK8DG;ckD|bPcQ;b5y%O}(>uZwFKU%(?ue8d}AXlRZD
zvfqr2_?8}GhN1{IGW_DuL854VDj!A5PotK9l^KF}1#GA3>@1O5r4UDzdtbanf7v*M
zk3>~+mpX~F6*W86`DHt|r-rQP$-9o=6YHBqd?`=~YOa5baC+oMlQ5@_{QBAQx5RfV
zD64vVt|7A{$HbLXKn|(|9~*oLHq3INxJUbi#W*Z}zgO{$6TjgC*5fSQl8LV5(+<f7
z<3%wQ1A3OkKVzqBlXr4#ApE{_fA8?do7e3PNHVA*^?K!m-!Xh+tPuISkU*GPT5C-g
zvC$WpxH%aG-@T#4M`sg(_|^<jOBsRxX8t=Uk13oQ?V^~fZ)mcFp}LgF|G@R6J6D8d
z{0Zk_mO$)GuNRXd{Q7OddQx7jyQ{nE?AuG|*zf#jh&6~|G4So_OC>}Vf9^t%Q#gPZ
z6DRA8NK5>Cn^TzI>*mg6^cxzCG7-^?*6KQ%)KexqX3rZcgLA^`@aXl2byD_JdZAQW
ziR(6k82rMmuE80-Pm1ZXALu|YY}(&?sU;fWpvV(0xEV8aa-dEsZlA#2EcS(eZw+jC
zjRNt|54vO5(RFsWt1G@Je>(SArdDO|^P5onoE7J%+M~3y6@8~rE8M$#Oxj`Dh^(<F
zi|TIkW_^oApN=g4F$0*b9f6N-F5%W)xvkPbR&HN6WqI|oJ=`;=k*dzt5Pzz=iFlSu
zaQV?6NRL4p?*LY+w)kSSNV1XC(&1RDGbzc;#6GSC@zGDWk&0`Ze|Ke>S@mOi&2Y%F
z98XAcDZ0Coxce%iCgE5jS%9Yhp@soVoL+6$4U(kKMbl`(95Yj8FeZ6x^E}hSj>M&t
zLKU!R!*6$h)PH+H_47!ZUgBw$+%8F+Y(vj#qKV~o-*Q^K41K!;D3OHG{~>;IlXmZ?
zF?PYz(wN2}t)ei7e_o39BS{Mq_w!bSj>Bu3)*D2Fui~e}F-^~pdQlp+cTvt?{D@;t
ze{5vz%THs#yS!WL1FiJRYdY?aQDv+oU7y;Z9%-TwzOlgSRxk2oyu<`n$WP*`c780G
zyEL0C^>KTiDV@jZPQ1fDM5ytor#7l~mF|ru9oCo)N4w`&e>l~WJcMj7XCeYl?G+t{
zOF4g^d6$>j1B*ivo4&d-EOvpb<5(5yeqE<C9Waua)B}}}W2sj!FF#?pJx#JYfx1s{
zn!_J77TvHRm<|ZjtO1a%8eDAagLrazF3Qa`jNS8-wK|0&MH1=iME*BUKcu?d#PIjM
zd5s8czeQPFe*{e4rRG|#fiEE{NAuJNzdO9=vCHEo=4!jLc%O96qtPN$ij;9hf0G=V
zT+<%RpTuAkn9()8(77=&ABQXw<D0uSVu_-drw@|2vV`qVvJ<=>AaIH-e%Z201JFnm
z-IEh6?<tZR!7jay!3D`#>{c~8m`;Wg5N10m^R-~pe;MH(+Uva#XI_d%QeyD9vz%p7
z2o$`!wUC#NFpFVF+6HO#*ji=*(-`l*ztC{x@{4{SJusX6C<Na;8g!zsy6T)_<bPxU
zo~BCq;q#%cdFASRUqR?ne||O+qZwM&uJ5`CM?z}L;s@$>Kz{irAIa27waSJS%Sq7X
zFSqMpe}W0=eK3~PHp9Fgp{N$al6YWL_}0?;$;4}{4RQVDoex9}r}aO_#LE&x5CaB&
z;*RDEkor}e%?EIYY&-}NBG@K;yC&QPtyxb|5OFD}^L18hVxbGh9lkp1Mde=NeZweP
z@5bnRgJnl%T;8T%jMnI;z8q-t8j*uemG6GXe`P#p+57N@XGb~JIvOaMDH?W>#x{@R
z{@%>+`*7g{-FXTjb$a%0GJv=J20>BfTl)(sUss<uk@E~d;LQt>Z6f0PP2@UrZqrZS
z!|N?woC;O36*n>!wd{|)_N0<EQXJ>xM~XOKq%Q3AAbZXtk`P_o?36hwy`h{J2L7lV
ze-ZkjuARrh<T{G(Z;&GxFMD;gjD{p)>&Gb|Zyk4QDVmE%bxwcZC$+{VhcEI1avsZI
zxWaw2yMXL<W5^~iAXb>w1|Q@RWdCs{7dK(armsS1t(Mp8b4_Vw@-n)G`weN$wEA&B
zt^slEpeug*o7Vp3i?zrQhf@`|&i?*se-@Ix*&RlE&<TPx&13b9e%Mgh4au8Z+_bRB
z+1U1d?N>%}nqApt8OHDi`lAy&G4w9x*$F|y5~SZAcYbnotRw|XN*H4zpW^ZsIOp)$
zuHJJ9EPdZts<R#jd(91sCq|Hwx`FhW27eZ@G-}P+@0Vudh#<CpOfG@A)yc)Fe~D&L
zmdZ~GP1^~6GC+TmFOPH?+c1sSf3v5eI@pI75^YSq*OHL4knJI3l=3KTJ3m`(%-tV6
zeT26y%1O_xCzo0*D{$<21N{<V?d4{UN+!N?BBe$drf$?Bz_QxJCc68iF-F^y(r`VZ
zglx@J_E~j;(CE!ua*VWu-wBdlf9Wxe&Ewy+?MPU*>5Dlqq|~S!oYQd96|nYdCqrWk
zzMZ|j*TN6`o*Hk8c3h_-i8zimHC#wt${=u6qrdU6L@hI){Y2?drDDhd#m~U-9B2Wp
zRqTCw-ZYFjtOy`}=ThS%%#pun`<?{hgPFV7&eD8Uli&ULlZG#xPx&Yjf1c$leIIeH
zDlTC{2<>sil|$WN<*OpYI^O<{k-axBKFMk>))-LI%K7bo*<R>W^uKB?g&w;}Qedjt
z%lM8YL+&X3=VW%oq+(fWn!5#?uwRNv<Q^Ix2J_Cmlu6Z%MBh4an&9PB&6ppMF>+TK
zH9~z~keC7Yfqu#{+!(pue?vxE-Jj&{I&onS+48Gt&MobS=R@z^8mrh+_rf!UElFIN
z$c6!A&Stu<b`K-7(pnuU`6}nHz2>Qz(6htNJb5xaTl_bQp6R$cNm-ds*{8L^-qmsv
zcrJjqddrnthu;!VIuw_*u;DQyBf<!rUx=2Rm-*Tp_#Ywsm@AZXe-3*5fPT*sK)qEI
zzPSqA(?25XJ26N-jEt^ls>>8%{z;&jfG+IAs)1aSX?uib&aw%Kq3M>dQjVCDigrVZ
zH|Hg`*PV%HZVuu=;vA#T`>J*A^O0?lzU3o6+{J2-1XZR7dv!j?7Q*CPpr|u{D<;Ni
z0nKw~A7Ff&T7-YPe?+;|gMWN3$W~-Tf8dFSZnqM10r=9ru&GrPgjwoRuiZ!>(nf$r
zHjqvfo>zBS0;lh!?BYh#CUyS(dP3Z8BFvcR{m-Ivkn60P>DWXN{*idkU?0WjaHbgY
zG2cU|?&S(8Ey#xXgKuZH(fVPY=ygAnj~#TMw!&|!d^VA8e~j?Ts*dP#qFlL8{IxY@
zIptM0-t*^XwOGq1;w-sg$Ag$?2|G`wIUMiS?y5dXv7G7vkz~D{!Z%jLi5Ck>10)oY
z66T}+q!}$)RLfPe;PvZ*?c!0%Ay$RlTO$I96ERgzKQVMPj#KPiw3Q*f2ffI+2YaRC
zutT|@f{mLrf6dM+k>d3)t-~14>d<XhEctO!aU6J>-?n@k9aUD2p)a$D#&gOfhnBNY
zPAsn1N09T(kd_eE*MJ{Gy)qqs`29j9GlCD~tp60uSVyCXzs`RkxnM*4i>k{fp&~?K
zf;eR&17sh@zC8W;&ZoOm|Nj9k_`Hz{Wo~41baG{33~dT!Ze(v_Y6>$oIG1oC11tqs
zPfbrqmun;f)0aXe0zVEZ3NJ=)ZgfUzY-J!bHJ7?>10I)*;sOXNF*Pza3NK7$ZfA68
zG9WoHH8=_{Ol59obZ9dmFbXeBWo~D5XdpQ`GBB4>i2^Bqlx0|)&yx0WcXtN&fx+F~
z0tB}(xVyUtcXto&!Cezv0>L3@kOT`F<emRHyC>P*ukSTq=GRqS_g&TfG#!=NTQ&)E
zCsPYqCr5WS5D+8?kW!J<1#tpEKn@f-Iw@BRu)B?uqcqsvLJ$BF5C8!rJgfkm8~_ln
zAQ!hF4>t;b9YD&-*~it!%Gw>kD8=+o5+6Xq!NS$X4D1L{0lQmUI6!Kcf$afroy=@3
z+<kxm3442h#y>mU02&r<7OtKa=0Fq>2w-kw<_<8mu(EMPVgJXGf}^DqfbZYS<{r-f
z9rCnrb%U4!FhWc+0U#F5ogD3b0Ol5!DD0|E5G@OTh?D;xrv7(vSr2=ARj|W9<^MIM
z{}Ts0*x390SB8^=vxmEdD?r7`+``rIf2ZnL{M($Qll}jZQE&&_+n7l>TG?9wIR3q4
z<0fn4ZDFov<8EdRumsz?S^R6=!qNPHTY!x1Uk2E<lw{RaG+F-ZJpUC`1KT*dYx+3<
zr|ds}+5ckDABIfF)y5lOzyajo06`KVzyJPc^uNSp9L=1}Z5$yNf`=CXc69~&pg?X0
zgm?gcAb^ddxrH~t!W-h49q8!f4%q^Lj3fYH>Ew#?&vEkd0N5q|S^78e0obMf5I=xj
z`VR>J*k%4hd>{b3+#liuu*?4;E&#j2AA%@<DE%Q`0K4)Zg6OIIA&8#pe~2HVp#Fy-
z3L1Y1qVV<)aRb;j{}806&VNXN1Hi8ThafTVAA;za{vk+zX8$2>NKG>*2Zuk|APz_=
z^S=<{&*DD_89w{JuhX9dh-J$^_z&6q$>;h9J^w23Pu$7F^{@Sq6sx}w;>h|hgpAdH
z<}ZYFX7?9DTC@KPA-y^LK@g-9$3M!Dt&TR17JtPdtvUS}1!S|+{|G~@I{yhnI(LSA
z)lPrS1_ZJ0@)ts^|J4`>V%_bJ{6A#jY4MjKNV*&3`u|4(V$jVV?DkjpAc*LnQS(6j
zx?8(i{54HThwffZe{F!&@c0WM^YQ$D>uezD-hUyap3lGV|9;q#l1|=!Y>?w)<AlgU
zIu(H2aE^fgk!a@O>T2QW{;xL^@;v-ETiQS#6AKG(3p13}WhXPCaNEqb$f`h@(z$AQ
zW@t&P_9WGofyG|bu$5$J`-%xA7v`;I-N%|7T#Q5bLrSkFQn#2MfAwkE^AMMRq^zZv
zLr;^#9N$h--K!iGp95#=yRcKt?zS(#&Um2TENo3yrRkN8=3k7R7OOEzYaStPP(ckE
zc(xAahV%02%I4T>y^m<7=c3ZU%5tfS;(ovBg_V{9w>cXYX!{<igJu2FsmBB7u@tE&
z_2nI``Lwplozl+?AM`!_$E2x$JDjFqqso{)k0O<9y@a|aQ-cl4JdlC?Rb1{DhHF-L
z!|eJ#=e7DT1!ejVZ;*(&tL35<`Os}*x_Zl~w4j=j8t8*&+c!&ktWES)Zz-lqm&vS^
z<X%5U`3n8mX<fuf=;{Y#q0xZoiB2&Z7;~9uUlqBOB32WZBV?ZIT7$BGDcq8pFuvQ$
zmN!IM4q#EM(JmcCvMFqRTsfOeUzH3SMd1~(E=zKe*2cOJ-ZMd#!H%&TXsMP-#ZrYl
zk7IF)a`(tz1C_7*ctdX6u4@$%WOzv*b|@RP7;g5ae9$?<t&~LRnVdvnIY|w*jA(Ur
zVxo`OK$fMWU&UK$niyt(CDA|*4?6Efij*(b=|1qdmu&&xuo<Z)ph_WV&IWOlkgki;
zdkv;}s@Ca_M*J$cM3Q=e!7SWfg^IUCKS0g>T2kqn-2*DH{2GEq+Nr&VAXS{3`Y9uj
zWZ$Kb1NBAM@?v?-c+{AXgm$qV@w}AoOOPC&`El;2Cam}n!>ihVx<`9iv+o=cMpnYd
zG3|-(LJNaR=xcN?{6qs({r4~y+fUIsct-K!D_0-6<+<^mEB7`E?BxnXf97BpX$E~p
zdRJyfGM{(MyQ7x?$^-;`=yueaT{?HIA7snP@Sr90bphD{@#1%j-B@@TunNj#Cpj^?
zcaK6trZ1u~fUa$SF1S1qK@>Dx{vJn6&J?LjeFJ7_8$qh+u3Trx4}=F3&ccDI;rLk?
zZsB5M;QSrJPjZ3|q$~$`Y^Nm=or%R$#^wukogs&EOfKQ!>LoIpx79+SbjP&`vK)=C
zoXb9E47GI;V*;ubcUUxSCO@M@Vy&$Cj!(<>St_qBqy&?HFv*9jF22Xma}l-BLEYJ5
z@jrs8hZ;=5jdZ<paHr`W^DxVFrRpVU$tnRpKN?@S`RFwqbgC-%lI^5?(?6x(NN&qU
z>{|<u>oAqIQlhE%C!-ul7BgVf!B?}N+NBSV&RJ8T%LI_;W<!5UbHoUeYZfYIkb03S
zKH4N2wY49Ai!)ZFCc>aS6=Bym4=;9pm01{_ei=`XndTdYmteW_@Z_LlLL4jHk&bXx
ze(F+;7+`yoyHqZ2tc=-o{;MHx1P}V-5Ai_n#(6^o&oR1k25;obO$=#dTqbAom>I<^
zifYvDQ&f6v*o<a*fsdoPl;1=*jg(ZqQ>P=!To~wo`{;RsBm-}R@B?POeDLJn`>59r
z=IdV$edRMa5Q{l6Mq4Q<Qm87z`Xx?~!B`A5aCFDe1x<Flyn{8dT;t*vZDy`aa`SeP
z_rxe?(-e~2SpFF|8)`&H=*+(B+<kJtQ(?RRM!HbVGa<C<9>sI+>Phj((uL^*wMBa<
z?s0N|Rxc}XTsj6*>|3RS3HP;vOMc^1k57JYSbKI7{YN4m;2kC`BiqRwnUE~kv~<4&
zySx1e`9=lM5qF^fOF*V?Ovz9EkfNp&SEOFpl6F>VQ>F<pl5trC;Q^)#>3(mSzkA$A
z?}GD}5EJ{0Wc+*eEO(;f;@C+EYAJYeNrmcvmJxGT1J4XIkv?nF;UiS)0ucT49Ii#0
zPF-gT)UyS90#Gbri{`E3N^gGu6IwdFp6mka(i}Y4Duiz9%{wM+`6n&o-GfdbRdf43
z!*oEo94C~L;?KP=eXwX%DY{$2jkUNHy4FXb3J9s@G|=CKx{;X7-h4m9Y>TyznadM@
z<u4cmRbr8xxH#vMSp{3BQ}f!*O`k0G5Fa1Jt8-P%up;E^dbe&AjbBXz%(^?-5IFn1
zB}lUFToDv%4TxM(-^C)bT^g7&c3QQ?RgLfn%DktLYlDt^Sg;9G=9NUQUM|?=p^~8#
zsVY8j>@YFgioY=BXer1Z_SsMTwZ?dVZ1;4iPsIN4ami1^@;r8};I2-7R+@)G9pAej
zqufOz+J6jOuh+A2_oMt(U@qn1dmlzP`2P2ACIasIu8^1tz0rrC{mpy?`00ML9_7d2
z>itZy(K}eh4V@De{a+|H$RlyS1#Vb4%#}L)l7|F&<OO)PtcyOvyD$mKiQA-qR0G$~
z;TpAqz5cbcOg6UOgyT5_ChVB|0m=i<@MVN%%W-I$OZY3ly%8;yBn#!fe|g&%!Z9S^
zIn9r}j7LuUqL4#2T~=_04;}uy4&x~c<>RgDd{~iRY#jwE=Bd-+)4J4FRIl)RXQcLU
zY>>5{FO#TOA#i&OZkv5mW@6@laY_67^z$lSWFr`NtN8cVp%qY`z?a?SN34-7H6qo!
znukI<hhCnGdfZsRYdJH*?6wYy6}&dA2;C2>k(#E=E4}oo=dmCh6t7z(*YvH)d2gZM
zG5LyvfLLe+w;}#S2{=7!0$%v_WdByjDIl9)97Z8kV@v5}nRhS;&<i7fWV|V|`iE@<
zb%OkqPmyJDtjRsJSdWmfGi?HmHnXu5k1g6u^2oQF_euSC7b?+6Vi)<+JZ)5plv;QN
znR*XJ*QRS`ahB!=g#82!PZ6kk5%|@tFF~`0lCWlPjS8VE)i|eN(`9`0(KUtkv0%R4
z5=<Ab+gQr?xjJoUXX6cj`wDwvui_<E&Sy~bpJGbL7-{Q4nZkYkR5tI6mb9y>O2DPN
z#mlwk%by((a2i5grwts(s3{z#u9N>^G9cJ<IklU(wBL`OYAceb_ucwI&E|~6-G(_I
zNx$55NLk`qpI47TqpN?dK6Lu$&vldZH$Uisg<<JHro@f<1R1S=Bfkp$#`Y4IfSq76
zSi`vz=aCI?%ShYlYdAmIqP*R=A3Zxy7SPwE=s8miN_-*;xF|Hp?wp&^w6{sn7&t^G
z_Cr}5ctR?*tBPpMLZL&A($g@vk*EIgPC`~KM;^CGjtd3G!|M{e)#)CZi9<}<nub>9
zdO5y=Bx=25?|3zT{Bh00#Tx)uoM`foRG?eHmt&b2OFsq`bFIjiK2)UQ<S@9b6@@U{
zYO`C#Yeo`~M4Xm3zbOM6=hSHg$Y7cu%h$4htB4SM-Y0v#{BqxLBKGTq?d;Mg>`-#)
znAF`n=B=>TNG{_egCwO5`H1F4V&-QMIzKv|6y@X!NN+`dPnh^Lx5%o)+E}=AdsHej
zdciK8YXLVng0)r>>w8g%y;uAI9khqGz*DkHUy!oan3-K)Ps#aL(Ny$6k|?^MgqK`c
z*!k!>pmi@bxxr?UVOk79SGUtFg%#);5eOgHg5YN<H>hMdxDa)!#l<pRm;epa#V`yP
z@`5i<U*zh4W+MHiFy~kXb<s2`Dx*UN0U3nHC$*o3)y47Q^J-r;H>S&17jjAel|_4_
zQ_ljGK``Y#YAHG`qlUjH`fzRafm*2|Z(urN=vUZs{WXH)`0*VN?)u(}-Lvhn+|n;M
zBjyHj!jd~c^bZV$Lh;-4N@rzVcZ3^VEaD-~C*^N{IG6Fh3iIwkv*s}PqVUDT{FZ6|
z8R_jZTy3NEw7IS9!V-Lm=15#jU^g(s%3oDx$~qVM%+O~hC4!1trFV>W$_BOC8l8<z
zlCM(G5md3TV7>Cgx8xxoDeP(g7Q3Cz2iy27K@Weu{_QB2EX84mDFB^Ojl7;nmZqch
zZom<L#j>vJbEb-SnsE+;72MZ4Fm5KE`j;CP5^qE9bEVgZvrpcM`SPYS65p2czsu5{
zXnVtarHy8ctzvZ#ULhuBO$cwq*gU~!jy<<MR@nJCQ}VOWWnt8MrYi(HQ}-O1O0et!
z%D`YIQqk01V$zz|6mjQn^aY3Q#s;TS=wfz%d`}<28Y5=J%j06Fc8`bVu(0_Ylfi;+
z`~@D`JVbi!l2u!5CpsfzHRq*5HHX2r!OJ_3C6lQ=mD`vIXZC>z3VA1H0;^rAR7nCQ
zE<3`H;=_>xwrADEpd(3S**(<U{bU&2wLtDktY*`zOxTS!v~>Mr64uga(>`t2L_}|Y
zxHS<Ny(^k3N$W^#kV$>gs6LAJNmAr}EF;ElT1WDs2anULvFbr^xv30`DT9VVq7{}J
zQ%nFc)Rc>xZ>_qoYRhUmQgjC4aFvnDuRf`6>udnkk+*^__1(Tov&*+f5tf8vt%C}#
zDLTnDN*t8JXi0kk*xpZdu;0D{A4AB0nc!jpwaO=&voLWy(KTrsn?B4P8$le-_4fn{
z1r3%W&xzXw*qHAU!rr*sYIA0l*u8iW6=rj!zuN?OD=-)$c)f;o#aH0vibZ->>iF>q
z7>Db9%gFSRvDNvAK5$&PgU30eWLCnKk?d{as$it6_nc1a(qp%E|I30+s2XN}UUy#G
zFH9fpmZqOP?m0_SxEfC79o=5tDf4*jv2vUNWjxLAYz0ZQ+RRAhtLP)tJ1zGDqV!38
z?%bkX|L~-cLZ~MA-{YSRtegZFF9~-~y?$L8Fvf?!Z$Z#Ow$1zqNBV<&A78s|-E%8t
z{A~sYK%9U4!m3+t=9_=7QBAFX`|psLz>PM<EMjZzU%pJ)o3&huIWDvb48Fe!k+=5L
z)R2zVmTq`Q)y#}A;_pq1?Ybmi(cV-Y*>kQ(OmEP^tA^hP6=ZuVF<1q=VpW;0&i4$t
zk9%Cti|>A3Vfh|(6F`1NSen3#4C6v1L*S@fr`IVQbC74f+aCELWt~rd)vN%;HM!@Q
zpQ%FFm8_nXLkNet0lU0OmGNVy4i(9L0~zUMN|$hw3&&SW=~JnIRu@i>_a0ESi*#HM
z!0+a;x1-nZ!p*nLSl1Gc%HpdJBD#%v6FO7OM(|(L5<fK=GJmAd2v8!^SCILv+qeX6
zps90;W*#`N<6wyyYTTWF_e^kRnFSK=$8JcXqctP!_U6JVy707v+GaFpasM`^4dvMW
zX-|QJ%v0wDIP=aHhI(b)K&^bFeL<~Lw*SUWNa^IPT#T~e09W@{>M{`*0lt|xvJ<H7
z8X(y<3c4?nC`f~qeJRrSvQau5+eFa3ltI$0f#13#7(l6=S1+W0X{M$b!a|xuQDiG@
zn2bziL>^AOfE6Th>@4U^?>WVh@|DtQ_B2Hq>F=6s$k*ocSCj&eAAURDZI*g9arDz?
zdZKdjmfs<KnvsV-@#eT*>Fj?&R90&iWn$=74%`{oqzIP#ocq-?NkxHuggWkRDqv>w
zBZq+T7)LxbuxH1AN_Dh{IxEpMu9=3CGCTl!<woE=&K4~a^-ch(``K1`2t%1|CB_}E
z#*Bf-OwpIA$PblSxCPZTL(oar-%kPl)!st^XM&~--2~ddKUt<uWYfC{Pz5TT)nej&
z^Qk(ezCtTOKW4bw)C@)QFB$o*lXj92y_j-0e{Eadf9KABj9u5%ar**x=L=m7fs>=d
zrVUAo@h>4lQi+STjCD<m;h4zi+ntV^XuH=p!79d^u-~=yr|+G}e_PPAM0j^XaEN(u
zQ6t-6&AvwGvFII>n=3D=bp-et+0tQg;6+dzO%I21oo0|wUCWMx5iAX@n>oQV<Pi^5
z{K}<!yEu-21|6%`um^SFc@|?fF-q?927XEszI9qfzTVFZ)rtb~ov22XCIvcdA4iSQ
zFEOqKjop}NVkI6tn0Dh2Rr+ZZG>()9G@h$Ghtx<1^xE3d*AXlBFmu|XoB47jEa%Oa
zJ}EajesfZuBcE*>wRP9DG6(JF6FH@iTKyJiFz4cb6u$rNqM9~E_?0EwAF&RsSiRj6
zzm<J=JFf0WIzt3wZ$JWyMMpfOohSI9BW6}Z9!R%Q_xZv0wShdAT2A<b_FYU+4e6|&
zx_LW-0<7GRCRF2!**H&c{pX|&eHJohC0C}>>MGtdyLrSNTej4uy|T^FD3}R%s-goJ
z>w9y5^2m$J!aRytC}hFn*GMZ#%d(FThOvmP;D|gez7dNR#Pi_!v$lGvix~1uPEbiK
z-dL9g-+1Ny`c3?ZpPfPIoId_!i_2`V%ZhbKcc6xBVhyTXQBOUA_}QKgcmJu<@>v}1
zAaMcl{z8lW>NfiM?;i#gCt|olq<W%oFn#2IyZpx2QSC@6KX;r^0%pG;B_immU1M;y
z8(+JTxp6cal3OVkHXW?(jZAwL!F=Rc9QB-j%9l#Vwx+>sP<n$8I#l8+-9|fw>CS^2
zU^7rJnSfhG>2$QrAaIsjqx$f$<{H7Xg6&}{9+6xcV`?TP43@S+XHMG|d_<h_s2zBJ
z;tSKC6Q8qR3Dh`ML;KnRZCL9^am77q&)Gy;bdj!GXHux_dCE0W&seIc=0N@|iY|EB
z49l7mWPJW;YC`eE#$Oaipmw$W!7h*e{zeveFZY0K(JRK3UrLC8d*78xMZVOoSRf{`
zcc^3klB;Jesg_Rx#<TT4GAD?apYFPUilNR?UQLvUAw|oGW^g_G>}iBI8^s8L(0}iz
zxo3}1Y2XHP&bnFbm~H$KKT|q*BNX$qyai*IX4bhg;Z|zJ?5COUQv69BKj?5~#hTp(
zTk2KKvEla5TPZiD@O(!WdV`M%X5X$_EtdD1XiqjfHd}hYWgi7nx{U^wO|u1m5T)6k
zrfMFe)t*pmJRS}H(gFzfv``WZS=nQas>1PPh7K$f!0w`k`l3JYpqWX0P-(8c3)+6c
zVmSA;o+fUTKr2QKh>VAASyrxu)&A1d`F@e3@x16wAD+BZPix+cxrBaJ?9R0vZ;=yB
zfg(oTFPQ2!Z4QdwcX4a|YeYzY9ZizQ-IL<gvo&?2WkMWKk<PreyjbmVu8T6QP8cD+
ztyT|kP;6|LH%>cwg-mCvip#wf5oFe#NSoRs1C4cbOeOk^q%0ERKQt|-ge`~gv=DLn
zZypC;%0Jx~8*+nuye1U<utL7i2$x>1L$f&WA~%<~3R%hIixHI&i3Kcwixe`naB?I~
zmMXi!TyC*c-`ROsid7%YGTub^cdn_ynv@4prj$5!y$TV%W8OPTt?c)@Xxkx6#i`T;
zDM<UuMYxjh^*;764u6z3I!vl6cDUHTmf%fMFlhm<ZTcJ-!X8HFJiZ}Dt##W1tMwCz
z!o*q)ZY+l5v@r@Bu9{YVgKX^e?P)eSevlj*zgT%KCnLnUNIY_qEYog@s{ABNF|nis
zLkWlr54~8zMMOE|leT4j_lb0r_?e*cOa%8^Vf&#w`PHVS^<e5VOv1cCsow!^@chmg
zIwJCztd#BfNy~2#^Z@#p_^%AvSw7%5wUaFX;mqjG8Y0p8tV(r%gN7Dj7?zdHqIzTL
z^Z41W0AZ~vGOukG+y^S!!`KTXFBZ<;F)Bnjr7`p;3TtHnQmZrldJ6u7R>n@mn<w_+
z!_jZximDbbohZ~0PsTnwdmHY&*R&5p^p&G|@G0UqSpy;tY=T=2%KZwZ?mT4c{+ZSj
zUi`-hehWpvHH0mH;BG1}@h&KVB6S{m$CNky_Av4}UaS6J_IWR~Jk2T|Wi|ZGdxy_|
zl-3uRmOwKNcV$!M+^d(zc`cc(V7LszP)uBgL}u1cVEs-UhCSbY9TR@@Ir=3=UA5tt
zfxBn<Kui;x0EPHD@z+5Fy`GA9FdBU#$8xQe>=X%zcA(>bFNjk}04)WWEBxp0XvTet
zq?&S(l$bxx;CD^PF!00P9Qn}MHdDXr(*%)4Yo=(O_3L+#3e5*_Dd?v=$(|#N4zlKt
zVbqoc^nSTi9-E&q#_3h9XAr#rCnM<{k9Y~_x3mTjBc!&^r>tdSE!=e`u|l)4P7!TN
z0f|T&7bZ-9`+#~mDX3HkKf}CcY0@8MI=|3o%+(6VrJVhwQ~31dM{-X+?V+d5Q;t_(
za<fP}R@zp)bULPFaKdc*5)j*(Z?5I?&1tqed(Na~lGJl4H}g-wJkhLfJ6@tPo%>HY
z+reFvH#Gz(gO>SLYIPL_+{T>Cad8DltHzp>vp&CnrPb^bJ=WFU0kK5();U-|GW8Fb
zPo`Pf-4GK*y-%t#_ZuH12dt+g7-JqhiCYrmq0SNZj(|UWdn>nihL^{SfXnXy_lr9$
zxH&~e->E*FRQD5chDd{8gq&>AkG(kXAh0F@kzgA-MR1aqfjp(ogp(qxH>1B`dY?2n
zhr^tI<TNR0I~OhTQS4JWWt_kuucjaU61bbM!ZQbH@wk{I`w$w%G6%?`LF@NEs>@B_
z`$(C>WuGU)R$vzXFDVS_3*v)V+H#h**2DUZnUR3An5Jo4@FOes!r`=5(R&J)Py`>+
zrLmL};#?h1?e8rS>iE8{3%*cA{InZ1tfBOOVx>yryiJ*Eeu2&*_%DFytKx?6eZ+k6
zXQWmNc;^QcBj?T>y7pm_-XtW`v~O*9-{yP;EG0pg22R4Z?#<%$C+qMc@s%<Jk_~#t
zrzHwYPpvuy8$+?du7<lgJfKPf=Ke1;^@wm-cyejun${=tXinBiQMk7oa6PQY{MrP6
zxv8gHc_+T*VdSNT^>Qz-)a1=G^TBA}^1{$uH!>x{o{nW}z18}yG10z-*<lNA743^a
zQDiK9CN8)*$%W1X(mm8t?JlqJ6R_}g5*tXR29tikFEYiFvO^I{0ZUdH)Zxpz-rq9c
ziR#E0B`&xAs-`qb6F<AM$tq~FrECv>O{^=Ok1%OmlmUx$AaHfZ#pj~Y_oiG0|7_C>
zbx4k$A@7)_Q!tm*W~K4lXw<A?N&AH4M2E(QneIR`ZCcG)R3{-EAkRCciK=fU1rzr&
zg84h%uY|-HnC%4wT2`LEZ7bFhm9_AFzqoCS&@wqK!Hh4Ns!{p+BInMn!M_@R;=pTW
zK)mBtLr4WrOfb+v&^H+C5c+gRZ6jf=c9z|BjbmNSjW0t@;`OES89$;p#XRhO-yD7o
zA2;(h4~vNci!_Ja3Q1qRv4jiDQRw4%TN^1-z1--#<Qdt%${+Z{u}o-%oH;$F2+x60
z+>uq=uta2xc5zMSYB65wJMs2^@<H;9ToRI)tX)Q;>LMDrALxb$a7Lioj4nuZd`oo2
z`RXr7!QA-K&bCX<Vb1UOJM>}^I?>7w7&w2{+jU)BaTrplFT%=}xQ5^Iuh5XG@^3QC
ze45!Rjrk&dVU)RU70Xn<sd+zdp3Cr{@LHpeT3b@iguJ%VgF()VeZCBTqxKTXlErVS
z^PYo2QK|a0BpH3A7HE@Xih9wo-Kx8{HJ;MjWL*`hrG}#7Tf8Vk(Ck3zmuPjVret$0
zVo}jx?JQ5~_5maXUg()4DEZ~3A~#1=qaYwXE&w7`|3Sn3$)Y5aNmKI!J5>k`4By;K
zz{`rmu;^r~CJhq>Pj_X17!!=4kPv>fiWNGh7Fx1HN_a2bc*@2%j}CBh$Ha+Vr6_gV
zV4fR(B|IbDEfLXi%W$U!e&vSg@<Bt(;Kr=WkrwW6A!0;g&-*8{>ceEsWo#DGj)HMf
zcCU_x83Rkr2b$JKamrSr%93-oPy=@0e%i^<Ug0V+T4ft%Lo8i?_@X~)G#)>?cq+5I
z+>30mf{*#~t$coZ?0e%<M!q6LUc3ieJ{f%U?<q*WEqZQ*PQuj>o$P@;4q?`l%Kjf)
zPA21-=N~yAB1ycjO4?TDg1v(o%|EJ!s%PMw>9%Vy)mme`I7*`g9grz)6KFj+qqOjR
z%u`PJzTd=lqEyR&d0UxO`3$3IHzCOaBjB4QEfYV*Bw41=bBkU8qzyD_hm*QzzopPV
zRc(m)^p!dVcY?&hMg_#57!!p#N-#5^%-Bp;+jCSB9Vn+@anACFep2aq0){?t^_`~M
z;cM$^ba~fCM~YmuL+J(8VPLLAQe13G*vi`q!&D?%7H1)U=Edzm>Yqmx7}d~HimnR7
z_xJ*^cIjsU#ht)9f}2$7k)^Erv+nPgnor|X(O#zQqMHRRlG?eI_^(O$q}s?e=>qGT
z{87E=AAF;8w0mo~PG7!BNTIq1fh+7($$pt6@NPX2KjRoPY4#ejI6Yk2-Ap$Z!f)Y?
zh@<LvwFd@&Jhc#FwQ=!ZJ`mSz#Q-?xlgMzB6Z;NKEa^b@vcp&g<l?t2Y9de)gCjn}
zLEJS(OO?iXh<LnK&-KLvGBrINXOwumx*u?3&lAL2J&X0C>Uyv)X<M7=lxPWSnK^3L
zs7f+~jX`?hL(9t?uIOFeJ4T3Nl}(5%zb;!iO@DBI)kLR;d}Ao{kaeb~uL^u$g}Pb(
zDXm#0@tjuUxwwbkc4B-%QnzNFDtS9=w4=~DlDzIHr$(n_7G##K+VZmd#@<o{gRSPm
z&GVX=R5?BcrgcdiXta-HT(eWt*!{~d;bu^2qlVTJ_gi5>wvO+M?h!n1ZVjM}ai^8~
zm;_sYdTb*y9W`)?{;6>APM2vRiT&C};!)cf{9W{^KR%UEfav<e8}D>Py1TW#{C#GO
zkD^J>`nKHSwzcn^$rL*2WDLyo#RxM9<{5t@?^T?0MB*QPeoE+TMAk6^%6107==%`U
z5Zj!ADTfU^a{EB>pO?hnw5K1gvbr=Wd-}D1yplvzWMypL5G$Nh<r&N=@jG+Mw=H>X
z%1<-OQ)F9;$I$F*^uD4Xz*8r!jZj|Map;DLM6)yN;%=}m1(~`Z0Yj#vGL>vYo#G0A
zClncTCDkFqhW1onuapxcjd{l)o6*JCW;vJ9YnkQytX~B^GIRD-SFF$)Bfw;Qov`bF
z0#enXVQLz|-^ole1#0qKp5xAAe`IYsJ^5{P@xDogY2bLAE~A3~!RjLH9oLkc4-Up{
zltd`=M*7a~tBO+vmPunwNSjIa*!cd2zhJ+^W6yR7=Bz8MC_Wylnr(r1hxO&!C!3IW
zgCy=xrO@$N1*t~H&~5{|AZKSGQvz~-UMe(~Ufy6yhgx+?|GW&+-{0fIr#=B#E|%tL
zuG7<sHTK@NMvl37<wlKR<hZC%3tY}S&utv%3)2BW-77A|YAs7wN#Uw6njM~omnE&{
zGEQaC3+5w|`j7GUr7k$NTY>7j;$cNn?Xf~x+NVjW$R$l#{1g+1R!tT8dRh#BHgW3=
z2H~^IrrJ36F1Qv;CkM6gbZL|(4j^vaSL8>ExIik2Yd8#)eJG%9NqnSNqj(4U7N0)>
zNZk8NTJWG~Qu1oR=plP*PdB<5{MXMvH-@^it#YrWa!^*9PsegGD+c%`M1dJ)N^M_|
zhctoZXV_d@StT=v(zq&6XJXHP@M^AHzb9Vdh$RXMNH?WZS@WeBBIFo?V$oAIVp><B
z5~*FIFTIZ(3{}A8I3crE)<1t!zZ3+Ly;s4U7a+mKPyMd!Z|Xh7k)3>6^E5P{VZCfd
zea^XD58t+ELfIk<v#o5Lpp<6x_yVrMNnZsSz;`d29}D_{nyZMqu({)Z0y7X4<(C@{
zVNb#xvC^S^>W;e>4bNW6)3V=Aap=VB@N|@f_DX$NBth}jCCP2@dx+$Ykj4rcZi%)O
zBfYXdAG*RmH_={sXEP>PaH1>qhz^y)$7Sf?F6}H6gy*`)avLrY@~!jBET2sHhgxT`
zp~wfW+h7VYF4XjksRE{d4d1Q#SU8h6_<%v0Fc|znQl^~yNsEs8!71~(<2_4>xgMh;
z8uuN(1!q3+i(l!tv9eLzPzE8ma+X8-hq#IXb&XGgGEfhLoh}yORoZKz(<qUuwfZ+)
zrqsNO>#(Relb4D#pGtOABG-RieTlD+0aP(Ar?s#g`Q?WogsqH!IC+YOacpWKes-og
z>;cGk4)MAJMP$W)!pVF#NM7LdM07IFJ2aPmc}tr_ObJEIGNsLg`rgjc48<ZN+7hoJ
z?U0Nj#|mNJlA#OnY`s%-AYp(e8ao}^>Daby+qUfrI=0#AI33&S*tYFX(y^19nY}x+
zd+$8fId%S1Z}opJ|DdWA4c`#`LzsykKXHMx&SOq6L)MdrBNkv)zm>F|mX_xMS1yaJ
zHnC$7{Tplie9Q(&A-=J;Fkm9tP#UWVuo(e9lth+mW)ic$^r2fF_8KGpE=xm^TNGct
zgjDP)ltEtA%So6VBOzJp6iT@+?&<mn_jRjoburR%V#17UCp@Xto8CiuHeN(=tQUoz
zylJ>3G+T34uMqJgEbas!?qB<NWm$AIbmMYKXE6YiH9K*=Ek)_uCuk=YgWrGo@BZ6<
z$HA2Dv;#(qs4gp^EU!i@DlekN%#v=T1CE*QA`9k-CCVtqD9$L!D8(qvD9b3vD9@<C
zsLZI6{vZp+m%g?O_EjAr2gaN3;s}lg#=-ob^?NP3a$uFv;H(@h|9Nz}ml{|b*w?(2
z{(oEenAq9=w^Q#wMzFa4M++Z2$JYs87CsulT`$FUepuSNSZodNbVI+LH{}u&!Xqfu
zJczs~5xuyhr~?u_0kuf9NLHsvRY>TEXZ*2uT=((&<NL;^-gai2MZogJMy1@EPp6BL
zrENw%>)cPQK4=tZbT&3Zp+6um2vBJC^)z`#8kbI%MFpw6a`=G}k+9(9gfM}IARy5|
z1pF61k3_BqgPUU5qH6uw#rr4!&$DI%4Dm69Xs>-`LSR^G2mb`@&;B7e&=c<UKgO3^
zeu4O4peG;h{fIN6ZM{mlOjJZ95MV;P9G8LY6W`*<Al{2lLFblmke}BP?wy`%#?iuD
zM5DpD0!9xYW=Qj=q<(OMgs!3nv;CX}7LBavKZ)u;e(J4)2hB9PywJYaD7+K(q@v;P
zzW;);q{Kq<#D<%33hPrE0m5;6KQK!{L;Co0J}&%s96|%vM@TM^nF6s$N1!p^*1vhG
zhWYm9tvPw(`Tkjg+l6{H4=2h0)Cj)ZW+Wii=e9Rj7rp$9c}Q1Xhl_Jte)I?eKzFuh
zd$4b^XXQnDyFgf(h_Dfap$mFGa|u5xGEnD+aNs1@K;K0A0x{ss59K2aNZDXPyOBZS
ze)M&MWMJtqM<AX4jq3)><K0JE;VFdq%&MqG21$AyzvF}jCw>N`Amq<J6Q~4V_&<?-
ziij%!DJcYyRW4rc_vXA7a1deOQ|QiqecOG;>~T4`Q1Xr!f*$e%x}bvhEvNtl=9(9j
zhZpSV=pmelzW0=~U>#B9BM2Gf;0+oMEKiU|bf$RYQ^<{adV3^Z;qV^1K-K%R?~~Wv
z+uM@S&;T?bFx?P_AF?)&ikKAQ;nOgPgOCax;q>EtTI6a9SjCJp;KT+d;4MVCSWoS~
zqnstYaCFiMmF=i<GnC@_`$(S{*{+<s!FFFj!rnNmz1IrFTu0EwOn@2)XVq6|KnAbD
z(a(0K-kx7Cf``f{-zO-!9GRc&UaZ??>l)o3xp{85jQKPRxIRY9@;`pi-HsMm(mKSx
zP>7NJvUucHSY0@nb_50Df<$Fm#jKT%n$Y{gx#iDBnfhY~TZ5trFpj~FGYhtOk8mi_
zHCfpRZVTgnNzV<Ey0X<$&J{Dj{>d?D9vA(QAUE8>I<#t1?z8uF*S8<mb_xPjg|6CO
z=Vls`HAMJv22;91qsnuA5@Ph3@+yIZpl~{NJ7Pa}f~-O#&XxhxrW2IdE6j~Nlo}eG
zK_v5bzYQ>^LO7QxS}gjzeI(yUkmDXd?Zy+qZ`XXcUVE_j%VhdpQ5VxH&T7ub-P*zp
z-OJW$io!2Pq45xTe(A#Uh!tV>z2m3A7~Ly-t~JPz37R4mrR?_%%O_aQ!RenWuHI~N
zZRfZ?s1vE3OapQNPh!&eGqmnc`^3yQ%rQ6%`1q{*(pF#E?M_CeqThZ|x3#6h+HHZw
zpxfR)>L1^d*&w?H>{YmL8D9eZC*)p#Yi`8(M-#Qp404NxwmL1H6c4O9MF}guJ47;x
zf?Vpr{4_<_juS|)IU)3@&^i2mrC5+!<MZ-+MK%8=pp&Nzh{G_qG2d0#3O9imJv3oN
zB3@|=pdWTY)Nkhg&6O7>O8@UibVK%Heb3FzPd0^D$&c>>DUouny3nYhZz}$m=cC(|
z=G0`y4xa2Z`USdL2Y7g`02lelzlkKJ9ILNSju{dkr6k|sxpUJQ42h5{GoG=7YBR_c
z*lvNq(nYiesL5`P(paiZk{t@mPGOV~|GcK$vJC9Fjr$|M%@Gthshyn-+4B3#{^qc3
zJU$jicCaEIgb2#hlV}+eg6;RDCm*q_ELrtk)Mb&EuLu1R(oVlgmhmj@6`~Wlo>;ms
zJeOHKgr-w)J?*<11RaK^bq)O@bupf`*QN+@JweF}>|=n<)<_*MRE$FS<ql4m@oZxy
zU)(D3MX&H+uTXqfD)zd1IE7;GrpHpC_H;;{3B#h2yGIA@?BR*&=4JzHGPX(CLz>Bs
z8{0JMk{Y7tv~gZd&po?zOcV^6;NICA{05JLZ=gx%Q@ZIyZ^H7yRK(a%QyjDQ_4CXp
zfJCMM&=-r}XEqYYWQ`n7@hK9HyllpYa&azkdJAhZXs-V`Z8Frz#&+y=)5nAe@UD9y
zOqeQbEjGC<ELGb-yKo0}XgU}EeTx0YyoxqT6~=qiU(<N}Qdg(vBzrgHTN~w&2??1n
z(~4@KJZdrYN~<rvx{N3Ox9P5uAd5NJGM0lBXkxb=v9@4eAwkPW<2$J2RL>^*lO@ZP
zY_m@jZh}=MLzN<t^pglyaL9t3|M4M&_+p81Va_v;8!L)we)-Jw?+|V*#PU2CB~rTU
zpOHYDX_G5A-)!;a3FG~~H7+y_yapRO#@3T4ZPvXr^9MX$bOEL#DZc8p+TBhOdGCHm
zAPAX&$V$D)iGFKLkr>=z?0FHv?<2u1Uwk@(IfG<AZ^CkjMY`e4wGC4nwh#(Nl#Imx
z^$iLSj?_`ZgxA-Mvyobm@ZsC}h}Ff|l7y<B8|G3soI!rW8};*d%wgv#+qfUo4%X+b
ze;q#Vs@?`)jWLUY`!iUuD3+KXSX+3vfxnPv6EqiGMImy^o^Y-DDB;Ooe3GKrA9LJ4
ziA4Uq;iyO6h+i&(MHvK{#Ax7BtgU0mHrd)^>BGS^H!6@w4KA&a7cTP-ls2E7%UaYQ
zC=x!(Eh;ZpOmmP0_j-yz)iPS#ME;8q+DFyd&DIn}j5T6)(kS9(vZK_@QL!EP1gssD
ztNJcr#y?piTph<==OQ*syAAC>AoJM{`z}(&kYhVsPKI?op#^^lFD@nLK(H3RR5Tv{
zYRuu7^2$jx0T%F>_@q1LH5ovXp_xZWJr)oaqt~$A4bbt2aA`_re5*$xTXVAIAs?5E
z(-R=!ldW%&4&li<*`P+yhQgAqfP<gkd;DrHM}6?WiRxgJj4YVK6kusBzp*-yOXD2#
z*Kpe#HA%XZ88Ubo;~cZ0DsJAy$d8o0vi+R*_nWNik#Q22OG;5I#Cvi%i{k%uPr11-
z^$`cZJ~qbk<ONS=!S1QrUL)&TRylLMma#E5P_Gx4e|zFkynD8^K1GMs`C9$60A@RR
znj7MaK>66h?k<8RF)$jt-@`Va@OBdu5gaujmwjmLPhN3@pr|{M+l!bstzBWKo%_HT
zGfb_U=;b^6Fs1@9nrCG)qNcp#R;g)QJ}CH3MNg2w^p_&R;JQ+phY^p1sRV18ghj2k
zKeLKs#{#=`65$o{aew`e0Yz6D+NU~*e<10PS~pjvFib603x5~ZQ5oSZ74St21ueCJ
z^OcRXJ}>=lOEbpfmVcRg+NLRnT0~crg7VZ|hH1M??MolY4HOG{HxE9({pIN3qg#CJ
z`Ulgd1;UrGSZbVcYeB=$+^k%`0^ry_n-~-WUYh-pOe@m<E$>{i0dio)gF9J!S$nWL
zUA*U=GdyEgivrRI4+CDcJSJsBl9J7yIf~ls-x}2xr^br%oY{?Il>YLO^+@RD638St
z3De?T*}*DmDupnY&)Prb@7gBkF3(Hsr86y4U%n6VT=QDeP^YS^C0Xp=>4h8`7;e<W
zP$)|re&CYJMjF>;0YtRs9Nm$c8TAa8atB%Qm@m>ikY6!IigdLHcf_^ICaoI^_A^He
zQx3<B@TE`%HWc2D->SGN?ir&po*uV0_>B0BFUu7^nE&>cGiMWp&K$}YuUE7s9J>8V
zw^3IK{I~)a#4ZLTHXrUskP-#i>DU&GTjuK^{Oz@H93G^5fL*g~8){tzaoW2-{K52(
zgR_2A*2YPk!*jK>9RsBp_kw!UQs2NWWowBTGuFc@e+S4>pjm_j=RNchPDdT`70BGm
z$T|#O9v?0h#UPUBZe<7EcSUD4laEfHl>cJhD`O)@yje<lsSk=^dYtslv6#rF7&}W(
z(3|#HB}b-l0o<VDxdyJg*EQ@!vW0QcG%PJM+4YytHa1jr*pIz`N+m{3xiu;#Qv@tM
zMcC>f#)b%aaB2TKz+)*{C}K7c<wn@^WxX&HzqtxHszaJ+*lWXw)_$RHHF^9CW$RPl
zI9{EE&sFUDm~>!#hZOJ-4CR}h&7s)k4$&~}(erI*1VH5SX&?_Gz!#kL`A3uae8jmm
z+L%V-P4Rer72vT2?N^kvq3-Z&l-au{z29Adr4DZ!!BA~fdDnf-_IPu1y?)xrhdt;*
zB9#2#kK4uT{a~~YfG8Ifqs>Ez%cAt_I(ltwE2B-QfD9{E%T*PcH2wiZ!TyGa#>>Yw
z!ZZxP21sr>Ik<D=VdOKYItxitV|VlMF<Sw5Ga>PrL#LF&K1BHWZPVnR%p+<QRD-;m
z;BZ&XkBBH8h5Ti#CgWCr6&(kByf2)+cuVxPb0>|gCyi{boEXd&9HuWYsTsS=WC{ZJ
z^Xkpe6g8y?;YqEra8+3O5K(Hdya#bB@qL@x0fyTP1AF$ASNlDAo?E(RA2d(*8~vn<
z{XWl)Q*(&<6;<e%xd1wc=EZ$)d-RGzwY6S-$HVB!7!RHdIBHsgdCVhTwm6Ph`lmRY
zuy#yDcT@45P*CQkyASppf9IHaTfF^O!V7x1q?X4czWvno%0&cJ0|aY-&-1(9(J^>5
z093Jfd%!PG=-b}TS26zYz9E3sN{O^|Zz=xUlU|qlyz-u|!E8m$O6t?nRvBT1-+t?m
zP>KmW#}=028y2Kr`2H?&Sde91X(%l}_XBTk5K&gShrgH%LVPmJKYrRQ&?c;4XACJI
zM9L?8v3OS2$ArhB+baj+xGHkKz4e#}kaknjkW7`!w{#7joM^uOzMW}aK?E;#1FI#2
z=dnF?e^yn6ZLGIZOLfQfjhF6Lyhy3RyXRRdZMZH<UeAH{jL#l}a22K7ti|<}vf@X;
zw(?YhsiqLLFp8E0c}};go0jTDN{dQqJlm3|d0c?~z|jxOdhJtChApiI^Y1KjK<30+
zkG?uhm0!b}!&F}%+u!$pd{6xFql3Ot`CzloB|^$2Uidjxh>>+Qh>MkioNi8+4wEc+
z2b|NElr3?lYBmzK+`qDXpf#9TLmb6}^|VG2<?ffWhOqipU#rC;pFHoYk<2!ReQ5$E
z_g!Im2g#?gHQTd{xE_+aYdTY_fy<%!<!d}~(J4!*VDr5g40gEu)723^`uV_o7^>iC
z5o4-OudlVwU^2OHk2WlxBI+q94!-&;t4qo4=lFNQK|IL6%16sBs@&RW<HGqhy68-(
zAOD`G|AYhYqedP#VffcPK9C)m;1wH_q^TvbVVN#8mE6|uYt4*i1d6vz0<6mt{_1Yu
zu%lK9bLMJ3$DPJ2$2*7^O(SWw8h-VRxBJ~x*D%e;z)E*Hh>R|7xoLVfJzyKjv0AFq
zJ3?0@^L_%qU60bBBRy#M6XT2)i}eq3hClbI$n3|$n=VvMP_Cyle}f(Wwv&{3WY;aM
zqnay^F$ZU1$$eMrxT$O3JMaO62$dNuo0hJ<77jIsIjh%}!Cs9vz~1CDWIe>Sbee%N
z?tw<Qk-Q|kZ+M#fo#)Ocz4(~sN87oDBZI5dU&ID~PyYEr9J7gqOp8SSmr!<rh<=Z=
zQ3|3D&pD(rjBtFlJlAV#ecsAUSkIx*bm36i46$=F91o5O<r2m9d%(T9A)Es=J*4K@
zywFsm<wv91cE^nVjuPsgM6R<KndYFiEY7IqBn_r9#Qv+Vy^ZmP$P+)oJ!c>qIBkg|
zteH6BZQB@=3%7R7Z5{RgjC%L)6$AR!NeBrIAIBwh1-YuJMJ}8<Q*yli#w2$M$pdpu
zZ?9i>8OO7YF7(eyh=81gb67bXfwouiR3^tb3AR@>wc-oeB~*21I?733;x0bAzZ*~O
zN<oLr7M#qiyBqP#!&@)8@}15+neV3c&-1c8*$@3>^Guk!<49QQB}1C3tkEvjPANKG
z@sPKw)FEKSTaj-OAc|F|eD+i0$laY!o}%pT^tD+ifT(WW2QI>RFt7{^6=8M;Pwh*F
z92Vx~MJ$ASk=H!Q3xBd;V!fjo%qP}Zss}K%F7L_5##FzC&tf#~e=VkzHyZ>Hy*{Vr
zbQDTHNGC2XmaaF@mCgBDW+FyDd&Wjiuk+SXOSu!GW<v3|)$tqtrj*oEQmPd;Xn6y7
zt=4xqEb!3K17@b2Uh59&ydSv`%Y{Qm6Gf<x{XNQ~TESAk@d-D&mm5*@THG;YvmcQU
z&#{D3!K|Nk%;j;m#k_L_-9%FfHdBfI(svMKmW_P?)gk9_DgAe))fqR}bw1({B0pdn
za9MUa#E8OG^Gh~1NyCT2-+d|F%~qwLdpU{eSyXI09k^5FUNYL*6&6M-<8JVDb;@5o
zNrvy*aYh&tmMMnqk2erEo76D=n1x(`YS*@<N=bn`<YT7z{irk5yYT`g!C}P_=7Vu=
zqUgx-sKyq~zS*1S(S1lQc>ZTJaQ!3Q@|&4L+bpG--MOZ%GFCK1Zsr9XANRAPrX73c
z<*nFj2H-Viq}mAG$}ITv@5ab;-z|N{;y?s0F9U~2G$;-dpILvWcP$A{=Br<NKqbp%
zzQ%FXJ3$2J`rgl&nafR;$4Sj}HN*LNE*(z?gy?phX+I92)omrmR-9v43wj-(gQy~s
z^m1+Xd-a&kOZzDOp$v7wIlLEOU#Zu=QG`aV4bbzhVaa+*Ys*}9%&KT=<0_ekiFK$G
z5>*vI;9G5mdbN(Wc?oCNhvpwcHj;$h+Sr*Bu{dc0g#7K<i_VwTnVo%{Mo+PX!#j~x
z%IUB>LMGo9nYaca`cI?l5n>oU6zPUGp@^3&B%$ioC4WsD6wACR?U>;F_VuZ;?>{W`
z2TZ~y5}-~obTcL&po?AC1HI^Rd^t!lWf+!YDV2@<D!c~gJcz~fWeyEE$@O)81qAcS
z!r<ePFG7e|`rLjH#Cn8y+rZP*_>8HtvU77?JLrX6x+#L1=+7DNFEdY2bi@6d<I&_j
zk3XaN+G%_&=u<@Mk#;!Ub3$71dqQw|2CP-Gp001ajruc`S^4v06AAG;?4Q<ItgEQt
znWNyBH3ZXK5DtG`MO885iSD&jidI5OU`lLZ(@D^UFA8voB^GUGIB1P=X&R|qHV4~|
zzq%o}Ijiq@U@|BfXW8`=-P`Cj;|bohVW>JMU|>y%;i1XqzYEitoM`7Ioz%PF0NV8D
zy4yHMy~A*}|Hg&PvoXXeQYPKAP9gHe7U(vuxVmcwD^C8t7|=}xjmYv*pOO52dUN3m
zViY`Du^Q}zG$V)xdFhVxpFg!H62Bxp86}^39#*ct`FG-x{Z}kO5`D3a%tISxc)7iJ
zrCfyt1`qbu)o&zG`(Mts%Jjf^2VlQbP_m!gSQoI}#UVeMIIUk8b|hQ!{*Edd)SDiI
zcj0@bQZmM3qVL9;$^=&|uPWa~Xwy>j18Y~}h7tI|&lL3WuTY+{4l1+jC%p;kjn30V
zhT@(@&0{%-^`*{Z*`p{L3r%~}Y$xVRV|K18AEb}Y=&!0x(`MRydl&>bd|khNd#2HT
z<s|{cVr|NJNlEjitmu|k-Q*Fd1!-2#4F|{Q6smA2@^&bKrn+pE#?!}?)rh)IN}O4P
zwiG!V+}wAfRn5oa|B3x(`%j7*N<~;nLPjG!0RW3vm19(4G-fn)w6`~AG-I@2v~)2y
zb~ATjv}Uwnv}3e0cXeg7XLMk6WOQM4WAtG3V)XvMqUs!9DfF+kYykn{|2>$)!Tz7L
zI5ih5%YT#JEUcXWm16%tbL(HLgzWz-x1MCFrFx1P%1lfpC7D=&Z$t_KEB!l+LY+qi
zq96h_2^>NMjKqkFl$Zd6S_Ta#d<(sZrt3G8S|W{6tujO+srXr}&+(Mr)%I)7?S5s~
za!b#n_N&k!edX?&S3R0nm|Q`hvI~{E(DKBD6r_<KY2sg{-wcogDzIirglTZ)U;q`H
z4i3`;3D^xBh>EznbkKFZD5!pYDN*Roo(yD>yYaR>O<*&$6v<94*&hU1cSwG0Rwpe|
zBl#f|q4Hn&dGcgn8rzCq;2L?HQrD2zE`O=e11WcY2cn&b5Z8V0{*IHFGa5KH&9XIo
zTa(5pb!{O8Iw#0v3<8d-NP+SW!Uvp8#4%B_I)LNQeIivFhX1-IL7l84+#Uvy&VV&7
zB(T}5ZK(S2QY4Hb5DPOtDUx@aCUBrWGsr7Aez->eJ58F@AM0ej2x1UP>M;@wU<r21
z5{3=gQ8;f;57d%w7Vk|NTKdUQ8vFWv=c{$f1mRv@;Y06ld@f{~P(kkPEdT*}uzf^?
zd*5OqCPp#?;#-7|8fk)!Gi_-2t!JZHu`lr&A_<<jrU=1^8oiQ;H;GxsKpGZC2owU9
zun3em7BnW|dtzD4caZNH6@jdoeINc6F@wal+p>a-)F8WeM4=)yATa5GlsL%l3sM;b
zG0bPe7)alRBXv9kawE|V05r_blFWl8fan=S21Tg|gVM;1RD7EEKPyoYN51SIn;yKT
zdr&ZGfCaN54-4>!4V8tqk!y;hL!4UPV_b%NN0%Ihy0ib#EGi$J>{8yx%Ts&I1&?RE
z4ZCeeiSoJ(;Gh=X`I$-)THXk52%+`8PtwcK3GNSJk#>WB@1%Yw1YkYwx7Bx%h{DfL
z^U&Mya*)29RN=NA_8u>1sZ0aF_{SMjV-v1v!@Be=@pF$Q2B*JyrEiinEZu#x;uY=L
zY~ywmnj(!qYJ@kC(>>fKz_7_Y@gzEy6Cbw7Vn%u`IQ6?(6-_FCBt#jbJFQXR+)SmV
zu;y4w5!zf3zU_152EysiM<DT6Xwv-YW#Xg2WUSxuDVPbDGctW(k092&d}|*X^s%la
zHyIk~D_nD&{RuGDD@)nbR|}u0ZPLtZLoBQ@&33vI{p5I2hL4R#Y%#^Nuz!tA({GNR
znwx*5WU>ZoWc$jYGN6U3KDu~rJ38<iHX>nSq(0K`!y1I<0VJtLdt*AQQHCt8IXB6V
z;@$KO!X^?<WpAr;lVm{1cfy>U%B&-Y)1_|&vWSev(@$!CP~oKCT^-0+%)fOvQ+M>g
z4$L*_qi7(-BbeLDKWtEX-z5VYG^&z9LuI#DuQG^qHZ%CLvhKCck?p9_&&S%+7%!;r
z)6+ShUUz*hfI1fDbauKp{nEbM>0rD4{J!*?4}V9yiZ$<<Bv^7$VMArwV{l|d><xDz
zc!*u2h}>0kX2c(FU@5q0+8C^fHC}olNN%sZ*^!;@AA1c#FUyL_FOi*j*Ty#Vd01GO
z<NjH}n%m~wYTM=R`ZcuC!_4Qe?e|KW!$0ZnT51jTK;U1u_UEp^d7?rK(b)45I>shJ
ziS%JSUrX65(Ogl<H;URsF0DnH)E44UzuTb;Czn%xtBnsd(rJukIoAGaH{Crs7sM9+
z<ta}mj#D;7^-V8nO+ucx^(fUz$cdRyT|!>$Nk?yM9_OSMphj#vtI)q{Vp{5a8YM>!
zldYZ^sD?&dAya*zAZ2T!6H_)jCGe?4d>le%5O1j=(Ixfi4-jK~(F)y&w)Csj%$jGl
z@oQ<4d!KXMjF5@@d-=8_IIw3J5a5diS#z~3fZ`A^I`fRu-QrmcKMaZ=aFUXb*>&}1
z&<me$P3WaW5T52c6`391cCf(pk8?ikNkc^im?yRG;#k!8tf{xUK$l;`8MUT6cbXDw
z{X<t-O4p2TD1)7tw$7t>l>M!8bH*`~J{zNnKvsm%>!OkNOzaaM4gY8X`sYJBJ0q>m
z*vEv!s45c|@e<DNxb>FH^0+=jgWV`j2R|Te5IIK#2BBRQmY%N3Cqgb&Rl%(x4=W=N
zXg|D7Y4F&tEl~UJPl35QZ~l;=5Tj0ud}&fQP#<ou*77cq-%S=h!1oc}uvoS@tE_!l
z+zxB=V@%%rhF2Ymz<urm0W}~glEyS$&l6?+9EFq`Tqb7_HdMh8G@E`d?JZYEIGa$H
z6z(T8uCPBt5z*c}Vl~G+O?-;ha@;Kjv|_-ldmeSCOUuTFXS`czO=EqV2Z|@sL{uF-
zuaA>Efep86!GrHx7q`iH!R+HDZlFGbuAGvp_NJt+eN_x)s-DSH;r{tpk|%~qD1t5X
zm%)bS^Z42vVK)`}+X}<PN#B^+4;uV9CJT}GmI_SjFKsd7BY4EM;<6*mR9d%zcM`0@
zUngzwyRk$XVUjrr6UvP|q5`+M{aQlWaykD77Pai2V&5A|rqR^(D?KuX@xqo<vedW;
z$6x=Ewe$O`u^6I|&FjCNKv4XUbkk@4BHKlDlw7Tp`<?zRqH$KWdO2PvLy(z^(GGHg
zSEoKk@TMKOHDJw!Bbghz_Cd7)6_Oi~_utP1%-!MaoC%Do*Y{WCkMJ!7y%>FfJUP4F
zeTd{%H@UNJPafT+cDgkt-cMRuxJgA>5dw?C_*~b7cdgGkv<D&F=O=T-0GEmo&O?1d
zVSeqDo4>lj5?Fd8m?XEp+jm>DARSnnIDE>3n8DX`;<=pLL)|ZTY;$aY3p8n+8MzWR
zyK4Dv{F1DFyKeIA@}=+KVboOn&ZhijxMz$_DI?q&HDSk0L>GVhG@NY`#xWE$8Kuqk
zk)p>+koSG5=2gXDAh#t?(o5Rl&(O6&%u=}cVb~sZ(Ncw4r5Pkr1g8Kt;k0M|VNK|5
z>$p7lDUOu;mHc&xqDLG+Ni%M!zs0tAgPBP`S?ha$myH($insSWt!wviuZpF{&Y;C)
zYGHab{GuI_izasTNwM{gFTTKA8Sd&zHnrXfuZFc(hO|~{Q^jAk^*^*)Pl@wFm@0+e
zsTaE!S>K`);Cvr6Z#kr1uQMnO>dJL+Ex-BesIT<1%2pn<t7D%5saH>v?G!{IoZ)N`
zU7|TVj8SgCmXvWgk@(qk&9%sWe27vsWD0CyV$S}?>qF|*F0bYY_mThRNIyrZt%*NC
z-$y3lVm^FBTd^;j@=;kv>jU5HIoPd=`Acy&hHZtG_Rmhi`ph@@@XF`QJJXl$F$G#8
zLQIqLe^aU>5rJX=&}x7R*y-}1?g~8ZWfxmlh-v!h4yvP_i7zAjoOB{r{Jfa#FT{yR
zT#99mPY6|vYvY;h6V@Bc$3S)emdcPkz1QJU?|n#NGh9**exfMR7}p(JpFw{xyD1h|
zJ8cbMn^iRZLulDPYCEd0%vureU@!0-RPgclyT-%PUE8n*s@rr2dF_*5Eoqrx1vZ<|
z&kSlRyiy-QGpA(dsqGkbp7K1iWUY#szvnyOp3f~an7T|ZvOcJ#@jya_pT*B8D8xrR
z+ok!@X!nV)TES9GoO-owq>V9Z@6<BpC`9ddOY#kRjxIQPnOw60iy&XzWGFe?&uH_2
zAnigJ)cGf%v6F{4zGvb3+3#(qjlH{y)7jiIy|Tp11D*xKg*<B~+nKv78YVrDdEI-F
zz3G(vYT38<LkeyAui68_9QDG$;NACtchiQ5j1gmzC(-8ms;1L8XhRh<q(W~*$1_H(
zQ4!H!CBo=PQS`ZCsQ3AGmZoCV^%fk6W3%CWZnpA(f3W#aylL(N5grbndR$H38qsAR
zLY}ed81(%l5rw5ywHiLIsq|r$J__RQgj(#%!K%f&NWYhZ@-Nu6=p?hX7%ixNt|LgL
zm@$2U^Zhv6)1e^}dp0_9@^RPwz3R-MDOvqd`^$ot>u;6Fa2PaJ@{&eN%$>!V*S8ha
zZT!Jj@}hn7b@P6`afDz!6Q7duNq-I$NY;f#`2<5?s*e7j&;-YSq6q{!Wi2Uj*)K1R
zyfo*3SZOfQL-N3!u`C&_{u4xa{oi;Y?SI>1T2%AFa0S17Gh8iSmYg?G3|0=#{~wm%
z{tqmHPQ}Ik-%#Rf0Q0|q#s3K<*uM6<{}+@{{elwbbEy=_=m{mn<{@Azq9@`B<$-qw
z=n>L^LQ=%A$n9<rDRFnCQcW|(RCDS+sRl)nQp!bADBZuexpRFlw_pDXUS(;s+VZnD
zc()<Oh^y^n@J5_tvl&2;!X-j4xWy9hfrzOg42)NVi3?pzA?Of9NsfRcb92Mw?Og&O
z5z(N?*50t%-ptg<jCo<s_kE-U_}70h*n@tN;Rp>v28s9OSqWi9d5X0n`~JzJ`hyKF
zO8U>BAP^1?68pXK52yqTKG=CsV019?f7nWPgLq+}$#5Y)tfk=X<3Y^=!gnvLfnq*n
zE&N$@r%)>u5MrGlrZZHGAaS+OLH7WY7(K-7=x5(TPqv|_Wd2<qgW&on{v1%8&mfhu
z{E5cIP<`nIfjKky2Sw|yr|c+Vd&>>Qsi<STr$NVy3Jz9Pm^TkOaODaa)ssM4=nrCo
zSH^cEB=KG3o;?`0w{40D*H?2;yWhqZZv9Fpj{?9ULY@@c*1-7vRkh$~4-;^JM4<p3
zO$M@LQea|&Oq%%ge&7DiNRP;d04`Y&2~9$dC{(BQ8!N&KM~n>eNeF}tH;xzt25go|
z3q7_MO%`NN?hV8j0rSrF=UhFA*1P2iR#GCwpEcmSHV%m02Pdfm62d#4G-@VO%-0?g
zj56VyZvh}qY@z~!{fs2FAOd`?yMP*{3nG(31<nF5Xvx@Ydqma+#1HY<5Fq;mbrFIP
z)F#|pXt(iT1%{7;N;z7)_oe)^QJi3}*&o~Es_KKteqv-~peW7-Nja5t#NWw}9*Oue
zcrl}e_JMb-0r)5QukPl@U?F5=rkN*S1UZs{Q)79px*iDw05+635-9JF*6JE7$=77-
zHFYNY9Xyro5X_2!30-U*(>RVku9qu`<($aqkLX+N2-QAV5`)j^yFy>;y{zB3A~S!l
z<8rtP{~@=m#M;?KAzmQJHLspymARe!T)gjE-HYL#9G{}PQJPi7U!FBDT4YXFU79b~
zFG~AF)*5@Fx)JrA4CpWAKSkRgEqx7s|Jhe&6H3uzV$jZtf1rFwhQGb`!S>s3GKrbg
zA8(VF<?Lw-@(?CAY6(5*AZp4t!9Wvm`^N_ES7lfb#>fH5Uzw2zlDhP}3te#TIcTzl
zX5Ns^%7&|vR&rQXuhFE935|2G+;SCxFUv}58x3QNC0j!C9H?5<g-A+?lT~}IJ~%|+
zGGxYIoEui|_)8_X%IT+A{q2{$M#$5u$aIYAV38HG5rh16<b}GILaE9|6i@m!-S<@P
z`il_Z>BQQ1pSR<32b*5hu@fXuhXWZc#7ISSJcJ~2jIlGR93#!!mC7scJmY3ud-*uU
zcTM~QlM%3SKj7RAQsMVIouW!Uxb$EaylHm=@zhh%FvG^~5)C!;7F`==HB^-&!&zA-
z$B12KcTK{n{1%JzO5ylq0X+GN!!Qqpg`2OvKVTtHpKh?cW!VtGJJ`vv%E;eVio|)d
z<uQGh*GpLHmmfgr5DB?ufwa^4#Mg)>^$M&0%NlY@5(ppeEG^yeV$+{`p)1(zal9>A
zCq<KDi8PfNtCKq3ByZ{SEwa12u}i9k5`<fNFsb22U~$R0?#d^y#Sfc`&}tTrS`NpO
z39m{^B-?nc9?uckOzS(PZ_cICajyRR_xxwNW8j5%yhfy()TE6lj&ST!WV`T?BEm~V
zSOWuJ8?ZD5T#&OUn>LMf--Di39!|X=3(MuI6vU+wFRI<hQ%U|>4TuSCpfdFm@?<&H
zQNy29HUr57tu?)Uk5GI*o!4vF?8ctOrTY0P)5>AEJWOceZnpW*F8SlO3AZLW^Xx9m
zqk^C2*BjL%q7!*HUzctwy>{ethDntfP-xlF2TTSEAmw2Vig_ND5$3QSxt`M_HSJmd
z%QudR*uHcu(e<YD{xX+kXR&c#;2%oA9_XF>Ct4UnNDdVVwPHBwdGvFarqpreO-}SN
z*2?y(IZ69^8eq}cstP_k$?WMT8t8Sf`6Kd4&UnKNqu^^6&8aRuVKScZ_$_gk`#I?3
z0=v&!{<^pCD(NLzB;0j<n9pR{jE0je88)!2<~P;~zLoUoyxb+%U4MSmr`$Zjmz?MP
zaDCGp(K=Nq&L+=z=D5^XWl_6)>*F?b+3b%}jAy$^5%v3Vc8f{apL)Wk7(%E*QC7-R
znBGd*ZGWu{H;c|WmAxeY=Fu^mf(7Q`4D{e~aSf@$D#AXTbdC3n{u37+d)Hpu`+0!m
z(s|$YQyE1KtzMY#UPV2D;CM-+YE1#_LdV+6dE*)eZTG&DUE8K<D{UHb;7ug$+3xk*
z)WyH{wG&*cr(l=Tn!=OejdIiC`RJm0^R0p{(9~@?=^hV3xGl|M@N^4yj4pYUH6Wln
zr(^_6ch&P1Qr29v+)Wo(v;gz6B2Fsn4%|Fkvt}O?=XQXR27jTvKaA&c&HDUgbKz`z
zyJo7<Ll3WgxQRKLL1~#{iXPR>$lXvqU+Jc9?-(K>M+p>`w|&Re*gA4PS(RlYJPC5*
z43CIOp-_g(wP}*E>~hk0&@the3t-Csk;UsWx}Pw54?ah!)ZIq+x-&=+{@dhQ)rQ`J
zP{Hur*G$S6+N%I{5-WyY<>YbxLG3puB~@z2$fhMsHTeoW!ht6ZnL6&u-&{V;2%hOv
z1%mQ%h3f|=%|EuaxX2Yg!>Q5_M)2SL6y`!X78_}*Qx8FL<RxlA_(VvgJ^?$TPYFsm
zd4&_#v;YRu>$vH$hwfqJY*oT4{XUU|f5WUfA$`e-%+790{<wXaq%^7J>QRfs9FoI}
zqCdK7kwF(4t~>uO8PS8vK)ThDMYem}<ECgvzT7BDhJ5VJ_kVb%65y-BCyV$&(0+r&
zTa)cfB=X|3Nnz=t(V(TaIR(C#^|vWE){Gv6%zI9|gC?f_<t=b)s0$pc7U0`q@om0L
zA19MNG@~EhLSsb`L>R-F26p?%p(;7u{O-|(Gd^2YH2IZC7*MMnKji`+gn$~Q&>hQZ
z=|dH8TBVUUo4%b_ipL7W#^9eC70(*JX3M{y4hJBH9!>Uxx>on)Y5@+FguxEE_=K4j
zMH0iK;EChwwe$OH;rHTH{I#fOblii8;8FHa;-!`kPO~suaYuy`bxy-klq&&P_kTeg
z(5Z?Am&(Si1hyKX8nKmHo;GQ$=*7<9trCi-M!fP#Cq=!HQW=GbUp*~dikbGq64I(e
zm9mK}M3<Iz&u1D(wLpf^ChTz~lUF&Gj!ldp;gRKb=jV*~68dI7dEqbIN|!6U)6tA$
z+jVpJkgj<VsamQx%)32IR>bmn_qpwmG@$6PzXR*I@OfWI{zmosV?;5sF1X%b#{e@}
z9MQT`d17UyWpPTgDQi6HmMA`IYPOkf^wjp-?w60hg>X;09DqMq9SU1ucihE)+6gY}
zLVC>KviW{QKr+P}zf}w^=4-nFtb%PYATtEyw!~3HB5Y;b_N}8kSCNsxp^hyYC{XDo
zgl^uk_$6a<VESMuqsX|h0HU6L4+1!bV=4Gd-I!yaEKMY<SIpCm+h+5|3=(RC7eVjj
zO-03<?MGZ<K*yec5?lfyo?3oI@Ni@bcl*BIRN{T9RpI6=A~fQb0<yIl%Ad3=azfQJ
zubixB7l!e>^(`=40l&_s;koe2O8-Qk$zLH2e|M}kq%+J+4a*{=K=gi0Wgo9+B*piN
zIrd=c1%4T(WMk!5A&&j^FEh(+<IrbjM?^xGk>`xJfxRo9?Y1Gi4BjJ#rD<QAflOa6
z{zML*^#G_t2G)OniY}q16dJ0_V=5O%=%Q20jqEf&Cu4T~5VF_ssHG9Hup>2|!k=u<
zRzKv;4rTPDwDZ-rmbcKt4p!W(v{i!M`U)5t@P2PLKFU|jQBLksLL2kH?n^hgHGs7W
zxPQoa02s^ABo?Q~KTnxjV78k(1ebNU$G(|QGxkso&%WsuZ}B3Rt8Ij-p$AmOe1|t(
zAb4xdIiY1g;hiekoap{)8LubPr5Wr};_KEx)1WR*t<Jmri1{FPz2W5@ILWr@RxN)I
zHiRD_8}i1+de^6P1`3~HN29!B!#M4G9t{fLfiz-;hnuhY-ia8F6|$Y2FuKa9a{A{6
zSanvP!j##~A&-1ITGn}`$8g40-Ax^Mwv|yy=9q~Wbh2)1EZS+Y%d?oJjdG6oh`sF^
z>)9)d@>Pz5EQ9(7BO-FMeawz=i|_m@EpYBy3<r=z#;8c_hU)gqUbKW(M~<qi6#Sh=
zfH4z<C0<sSG9CQkzZ&^`kWogqj3H~is5aL$#bRUKzn6F@u?CzW{}fm$HX~ien2}vC
zxHgT|M#AXh@4wIdT;bfTem~_Oa%1$87yvheVDAkDlUNUsh;*nKzZ1h6{o7sT^OJKp
z6ZhAKZtAQc3PmfIR)!TL1+ekxfNDIj157c=8Z@j{VhuF3=3{NVbUO8~f%Avs(qdtC
zSx#bOG;z|<Vqz51yVD)l`FT67x}Rgu#~2iun|iewg&f^b3dv2XPTRk(kp0UM6E_lb
zwkccNTtL^JM!$UD$u+KpU4KIehc(|EE+DSnGYXlfTtBjWL^{_k70E)VvFUI025tpw
z;hD5tx7obCq%J+}K9vg1mObO+1$MhC7ECcQ6ElZ@;nhE<n~7T2pUN>b|A>J-7-$#d
z>gFXGImi^r)sh13c8X#@mxdI@(OrU>Pn}7JNGDnUhVpC4`ij7n?r~gKivNY?v-`1T
z?QDg<jB3phiZEH-UfE9EwY2yd77!4f%KX6*236*RqVcH1T+JQkYe94o(8wx6Jbo@g
z9vToy`MQ_XW|Q-+gT}qN6bUch*>0BgH&xaSBR;b25$M>;&HExgxNoMlCW-V|St<!k
z(LX%SRptBYxgVtxU8K^6W;yJD5ZX`0hWaC~`BrtWgZZFdbxWJA!?-xcW#EF-@JAE2
zzy1v(*BCDP_JQM#x<@&t^4Xu45Et1V#itm5RtL2b{xnuhnBP)%-;ViRt@Hyli0ivP
zHu)M$U$v;ecTx=o>$G3fO*TWQOwyqgGu3A@Sgw-430%{ARSX?J@4xj4WwI+k(cnIY
z6EyFQ)*fg|msy|l#E(^Z%m6`AazO%vG&(xV^ZDy_@05c=dWPywI|&j4{5!O5zmB}j
zZ<8H7fOmLW&m6b6;Q0}%t~JDyI|+eee8h#GGt0GDTjmsi*Jb^|w4WE*S4Zo?*2t!#
zj&%nH7uh4GsuA9D#g6v9J0+9&1RK^AmX39GlWe!g52+(9dLL}F4WPuIx_msLM!un@
z$(NxUW=^dlV|NYq-Mx8RBo30-{*D(As-viRZw^*XsFbvqq1!(!F}azR9I!Kib-3DH
zGzolFGE_^okSBllAUj#&De~HtDQEB_=Un#pZ9fUPXe`v@qb|Og$m}D43&rV=33>vL
zTq#uV$=>cL$Q2t52Rs&YdIvPFD>vCq6%F$!?;Y)4a~=$=cO$dm?`)Cj-;#WW)~xq`
zUk448O~O;+Wr!{A@|~}r*mung69};GY|vT^sSC#Fp1x#v2nnZDv-)eoTI5<@j5p0M
zODd#W!2YN{oWa(ePMqgBza?&~5#sQzUNSd}V<-B%n3aR#LQKf7PTqNQ{Rxt9#R>X9
z5GTp`+-T`e02nTmvbctdq;fjp9ato}45Q|M39;tZmR4?G?1|m~(q0|R|3iJXaxphg
zAHM^``C>}A|G!KL=YNKg&|47i!IlxhSvmjTFcK;_cs&LyC-eXBb=LnBX(>6mIscnk
zVP<3F{@+jkC$sWZEq)yc#sH|<Vhx}2_aV0%s&TlCx<6!)q;pwGs9rG@%|M!3nA%!6
zT0B?{(YJ&pyHI~C6Tlurp)Nr`q^D_b#f-zpS8k`Gl#yZY%2qh`+nVaRI{uP?dYW?Y
z{RDfO5Zp4?Cw_8UA&ZHkOyD<yT!3hXr6YpqAj3jIRr^JR_EObHh62JKAXc{UU{ig_
zfnpFsw!E~uyr@!4AbPV-%tYT{2SH4i?;FH90$Gvv`t2~mn6$L02Ks$#we^hf#==PC
z>_E9(+X9#W!h`NW!V(9N4b%|_68{NW#YTn*{R7kMk`^8ZQ5ZO>nfV>zGcD@J6Bs@m
z(-6rrI2S3jc&kYuI3$2Zx2gQb2t)Y{2>Ea4P#m~yYIm+av`T)C)O#^$zF86;hQfb^
zf0&fM4M=t~-UoFTFcW{HJMjNiY)Z#4;UOW?iY)X-(+h@67tAGxZ5j^NOIHn&HBa*6
zmLI}l9Y2^nq&xEL*qVoPvJE{M@_R-L*IP|VLz64>lV^-?e>foihoJy65oRy+>Dgob
zc2iUBN34qxgdubk`=7mAZ4<C=EH5$80$~sdt^}AsF|L|o$Y7HvG>{fDOc;shAFIYm
z_Mo!pK^B8G%qX=8me(Xd;2}+cik)9)%f=t%jv#b}!~#5&Z}Xs7SZe6@3iY59(&#y`
zWQibnaLf+?+$tdQML%cjGHeVxIy1#|d=n;(koQ^%slQ0>cd;cicV5_wW0j$ZVjxLp
z*)(4!TBsnux1e@W+}^}BX3@IfRn6_uGF7uyv)rb%@9nK%&aG+`L?vapZ9gnb3@Ut9
zZd&V3enz-XcIrAUVxFXB*LO5jLFd0j+M*qQplx%%aR=tLQ0BdoA5{+n^h3k+6R~jP
zD0SDL=5E^7Rllj>>74plABv|GC#ga`Sep|)8|U#;Gth}2)}K0}ov7~?WSXS*72a&B
zre7IQKMiy-Uw0<4NfW}S49Cs5meX{5wH3)O&UXmFOT=9gp3lv2;RW!sN40DCF50(@
z2_ILcZ3A;!2Z3?_rU$Yee{@ZSL;rR-FV3y^w52gsLE~&C3%HzR@#bJ4I%s|VF<Cjo
zOe3wQ;qj=s7f1fjRJqAaW!tNs<vAV$kBE`)x={H?N<fM6P&OD^3@@V*YSo{0IQSew
z{Xzy0uPchpv&0GRi+>{5<~KN9({LYJE;$9`TQk5!j(Xis)gK^pL6Ss%lx|suwg`p$
z%zsT!#futwM=SgtD&{UZ17wJyXBAxy0@M<lsadPmWvC%Nmn{qc$~NagE5ER{F7I}O
z=j}pVVPisRdC2LD=Blqg#QJ8k5+a94BBfHndh0ILd=*X?GG{KjC}*qF>m2DqpE9;x
zJ#Aon1&^S_)~{)d^tA6GxGoek_F19cXZXicaLN5aib{FU-}<MIP#>LU>&13NLA>_U
z&0F0*_u#X4oBmpw`Lnmdt>d(L>Grb`nYJs93-V?5+CRT8)dxc<t|C3??$mIB3EZH^
z7Rrkcr1+&y{cU=FmJ~9*_e&BNQ_*+rUk-q8%@<=X-iyp$iKZs!MxqI={yRN=1v>VA
zHOf=n<*<$SZ-ynI{6SI4ib5EK%oys@<<vH6>BCU}tkJOIK*JULA{5QvRo(WpzPBe_
z@)eYG4|!*AX^8a7%;PqqpP#jS)sOUR#M1C9R`f6YdlLc;k*A>i4P9uI^M);kG~z%u
z4=mCh9x2v*>bN~v;KS0+@7vY>$w#+A&e*D@ZErbmo%#pp<hXVb!PQq{e~r$V-GwFF
zLyOv)>cvU3XsgjP6IShpSDL<rbe%Yzy{%%TO5bQY9(>(*1{!!thkMl9qtsu1NNtr{
ztJ0k4otGEOTOXv9ky?@MG#(*SnUg?J>JXW{cdnf7c|p`JS++==+6iSi(b;Idj6Ka+
zdUCp4SZ7&SNBcM&>?96Um~{Mc732t6Nw;I>-^AE_|B!l0@$}Alx{yO7jf!d2V*(kb
zm&7IB&d0wAMdsp~?G`^sb-$r+eITDjJG^S;HH;LAHY+ukhUaXu=#`L>1^WZ9-ZE$f
zSu4-wb=Tj>aYRFTFix4lyF3Qy#GLs!j~CgVYS?=={$1htELEL<R%m_nZ7g)exm>68
zm83x`jv>)&c{RO26dr>3mvx?{wmvmHmsO&D4|yzkmywV(Ttj?1V%Fcow1&-9u#kh~
z!q3)zRFL+&NqdpB)~OT!S85K3I^uOqvEK5v*l#bMlJGy?&d*pHo*39!y7Tuge1kWG
zvON>5?$XZqyuK@+L$W@NwtFwI7Pw){<>mHF5%|YD*mEJvByHkZwjdx%_L~*XiR(|*
zs^2EbzqPq?{WZDx2{q!O(i9tOZfCacUE>MuxuK%VL+E)zCOD1K0sUy;GPm^YuDXA;
z(Pt_ZGKAKVN4lW&M71&NaQeK%{}@NWkuTNYT^6DT2G)+RTuN~j)oE`9Ei_feX87fF
zOUzguezp0fw^n4dajf;)IJYBzLC~~)iOomA{gK(^BBAAj=h$2H-G2jrJ~un*x$P?s
z|BO_Z_s24hq><gfe5?j=dztCm3cK~h6+|ao!}2YsE!#xdNXQ=}vSXt06ub_ayi%-d
z0z;eDHLc+tveH)Pl*gG{_}$m6+ZMBg-|+2jP-bzhi=f?JVv`4M9IV$8+LIwZ@|E!#
zdoJpKxTSEieO($HO>Bty_~01Tyq(O`fgLb>D0yiyac$*vA}sLm^hzvn98@237svlg
z;^9n}u>XJ8OOUyk{wwRuLd?y=oL(abh5^p@bv<Fm2B!gh+0?x8YnrkUxWCz;DhU2P
z;EvY~6G4hsrs>Z>Z+dW>>|%AWI69k3y~bT@tei3RrRSGY)}51;N;H$7)0ScLvCB>o
zSqCRKVO;dk_`GcU+?d{feD|L^el^vBjMB=5A&h(3gG+*}BjMb+V1x^81u=0wl`G*4
z>LUxI^)muc-N9!%y^;ULq=7|1w^lnev^nr;@}PO`E7w6##1aSnY<d4Zis3b;42ISZ
zw}X_7@;fJsB+OjsM>KOvj5)YsCIUoku2L|uS|lo-(hvD?;y@!4)E|W^a>B<k6gR3;
zPCGA&5(R|<vUo}&(xG4;YEr&J;$lvrbeP1ye@vkOI}7?$sRy4h>;bKgjdB!$hlTsY
zIxjNehZ%Ga$>8ad;>lE?Z_W_p==)U_Gx57`$`H|M@tW^aT49m=7%Dh$S_!P#yy1_^
ze^R<L;Kae0Rq#Q{YULv1u788!5QUaI(!qo?{?jE#aDHoCW@bhnLO+OFp+a}+X&q*|
zgH)vlP%_{uckA2qB3M+mk9%sJ)2}g1@O#l!n6i(-jDiDAPZ!_|kdX#NK~#x<!{yP?
zFo#$Dkv@aTE0=~q&B=?ecK^2XN2Z)c4oBLa+(Zq3pQIXo=STklR<NY84K&p=;~*qH
zcS(ds9E#yrqikr!o_51A=n@|m4Jt$%h^D3ium{BKSp^GW9IVh5M!m(5W2*~9l`App
zuLnnOsxDn{f6g<r3-(-d>c?#bmYig!d2koW{R|<AB;5kdPfg)_<GWIp)<FDTZ~dZD
z_sW2_m!n-mydS<LN<k?z=L#><OnzIw;wcuhB7fRZiom-j@K~YU<8swK89%XE9`W!O
z_+_8d*u^1@8v-s>x_tIF)`FyS7fTTA!KF3rv`ARI`HL$S#rN~HDzj!h>0x0KtEY9g
zd4n+_|4zQeK8bDy=_>S<Xuh8eFDnZ_RFSVDo0n)%PBJV8jHP_(cRT%jrD|qPbrhVM
z|EbOG)6xqS?!JYNriFo_NFZU?*j&W}5MU}Vv-y2$>0mH5ZJeI%!j%-t(h484L%w(e
z+O?bewrJw-OZ#wdX>|TVqQY9t_cKpOr-SafpJ@V{&gby7M?HuZW)$`5KezE-9(SW~
z-_xSX5=Q$hsvehuLVSY5q)!{(3uRwC)5Xo)ov{h{rx595qmf!D$0@(+tQ3*MfYdow
zaHH*A>C8m}q~-+)XGOPx*?e1W{{N@2F9C=0`vS&P_AMktQbLN^7n1BEvhT8G-(@Sy
zBuY|BVkjwFvP4KiQbY)$6e2r`EZO((&QQP1{J-z>^gPX+d+*urIp^Lx?|tpVO1hPf
zJpN|v>pOP3h`n_Fax+|V+9=}ngx#Gs6Y0Su(~0u5x0Um4n!m!InM!r7(F{xlNbi_y
z>J%!yqFL^sm>Qbhq1nhi_EE-#!%cj^jOu}X3Ip@XzQttqG3fr(DKUY#FK?Of!RgbT
z>e9P9#;K~phb^aDbAt`{-|A{}3QBFYEo5mikYJd2-QJEpeNlQkNF-yljk7b#J8`{N
z_Uj>~s&fPPV~)q07BfoldF{UHBA+9q5Rvx!?W_3`SPH%0`Qv`~(z=2Rrn{IU?hp4W
zM-pHw0aq(9&fwis{#q|9vtE7>8N*97R(qV=i}!5kt-qvVyQ1-{a@=q7P{*C1ow%Nz
z$GZ42=MHfsG+(?9)98=Z@H4GPucW6fx<5?ZI5D1y&(@ifF9@|WNgA^ovTVs6tKv&~
z_TKH|r+s3Etd2j5a?T{oIS>3|><=*BGyOZ3MPccbfKInXe0i`Tq*y}rV&Tj;d_$}E
zcdqGg&BHM&A}?NCiLE%*dy}b}$Mj*Mfm?k59{%gbw9v;_(j)8VSn9k3cz+h`DlU|I
zYaP6dQkhY=XPzh@PE-@XnM@Bz^%$;!_dlB7^t}=-`MfC)kul5FrP}yXGrN%I+0wz4
zjt_fnJ-+Tn9x9qQY3SV*jGEERcfD;EB35<M#(OZ&39*8CKP}$4+GDOf`^(CRb|x!}
z^RP>2f7^@44mL^!8a-z8*<C?Y2~M4X`cjUDyBeR_T$i$I3&m48oNChhU)f{x#{s*P
zG*2078xfKZKyJvK2fr(JJn!sk<?SG8ZRI6t?c?HN>n-W(=;m{Ndj>&KtXDCl_3CaI
z1`YeOM1>2&pjZqc_cYC(9WX3NDQ}mlMe)V@dS=}(P}j?LFtS`JD=XXK=O_Be!;g{o
z=*zNQetwJ-6K)|VJuV;WTAn{)FJixuSIouQ7Czfyzu)GmlU8)*6GVhD_8xUQKYv$z
zdwj<t_3rDuye>IZXgdP~&qGI!&~rb^<g0CwYyHez%W63=U_*NiS3=cZLhX{XnmFEz
zmpydkQdnwCF=K6gC-X^hxrH<AtS1`;e$c=%K2)OjN{u1E-tHTI>`UdNa-OZZ@jj2B
zojtAAN=6meqg~!ROZ};i#YeZdQ|%EvkGaIt%rJQA-S1nESy|$usFLvE$GRS@V}_``
zJ$FXZG_R{4=BGN^TG{fpiO-VyxuUhU*N%tyT|1nYHWa?#W7NyOb%-T&ZYXR>W~@Ja
zl_^u(w1Pjf@7IH_?n@F>N-B(xBCGHOC&<PzO?C%rui}l#aaxS7^zD-P&{%%9H_MZ3
zwfek+JD+P&mn4`%y3D#lHW(oMN7qdu?In0IOKk$DVasjX#fQo3;+fVAULK#Oe3x0r
z@Um?il`eQ_y8!oX?voF>#wGb)vaK%lxL@7yiN70KlDf0@EyJ6pYG$a9Cu~lcCXaQm
zCv{*4l^`wSBW|i6JNGnHj`#l9<wku;W}4PWs#I_dq3tF?71=JEj6di`6}h<o9mFzv
zG1Q;>=p8)U{!2<fWv_*Ey%AcY^`tU7u_}kR+*2(}*Ojrl{~hCm?owzw^-(80TfEX5
zD|k(o!>XL+F{ur?-fC+Y08ovb{`KIExD!KC!-g{MZP(-6UR$b?&UMEfgnMgpmX5<4
za%R1WC8_-WA2t-;E}ePzef^`hOOEB*9=sfyigAh+(%yj2Ysa5n5t$rkIlCl#%+eem
zhc|iS_hQF|)#~Xpoh{u%dAmF!+AP?P)-T^uoI*Y=e~=Txg4e%f^Qc15D7MjpZT!J6
z3%0<qinfqr`5Tb8(ha}E6BxUGQh8CW$I|wEoW8Z!qi|s3RH)>@tO)br^Kc((sdnmP
z8%FQy=4G`B8w2}9j8Oh*g6}I1GoUN$n(*ColEEJDmOctxdf@5n=M6E5Un^m!?b+C|
zAt?hcVpx=n>3Ea0c3^m!mRe>V9?NJp!4Q0MBXy_CmFx$Z*>e`0meqKcUK)!Jjh#Ce
zzn**h)o;doHJiGjZ{42ft$k_e{<GYM=T!(5GCNpn2PElU-x}Fp%W`;bnep<Oxpl_N
z__c+lRGx-Gi1$+Q<&A}%hb1O{41IV<Z)rW!OC#Ij(rX{vwy|+Hp{(rE$l!e5e%dMZ
zDSW;#-D=Gan(|A-s?HyxhG~+~j>r0jsCASIxt`75?l*Wkt#&hrvAgy_HvMhi^nu?^
zv)`DdKE@^(IlO=NJ}oIPELYn+I7_!x_JkDveTL*3xV{$GH0vnxxui~S_Jo%Zo(ZQi
z>0<n9rD<p8@d_F3q#V;#)QHpKtCLp@bOv?=$1tT>^rU9Wir>Ajq9XN46Csonaxe7s
zFZ0s#OCn9zj(zm2i-4LU4p5`n>0FukzDAi(#D7$xTRK&7^FUHVUrK04^?5^6dzUaF
zI6h(OLNU{!r%5lYndqt5Zl;$X)w453t?{5*BKcXIAKV%%FAVs}KezUsEi!NAn%%7K
zqR2sp=Tn7&xt-iov8_*>pd+g~PxY@)x|k<tE1at`>Znld?mHZLPRxReM}GGDCx`lb
z(7^B4hB6dX@AVXg^*wHyzjWF37&XV`GRO^mys6G9%$+s0o|f6w!K<RX@w?@GBb+yC
za)w@x$*7<7uZllaWni{Gp@;p9_g6Rd(DbQQnv?(iTJn<b9r2M6y{<17;|;rny+0%>
z%cSop?dPlfF3REleV<H+m}r$W=61nx<Etf9Pir_@81iYkQmxNM`7}~zgthM+RqE|t
zb<@YY;Hgipf3Bvp9(vRTtIB44_&(yi1|7AMP+x6;*3xKfWdO~=TZ$DKiI)2x=r+?d
zD^x<A-56)2A_60%o}F{QVB2%DPFzX-gr~3Y>aUy|l2J9u?l(_7>(1_B^bJ*N+DL!r
zS%U5wO*G~4l6G57-}A#=CjR5qgh!1s=Em&it$0HvB|aMXYBT>SlcfR9yAj?V>|Z!h
za+*nzHZ{?(!`=loLr02VPlURDxs@+ke8?;<F9`W<_4?6BTI@NIp2gMD=a;U|e14l{
zHr)9B)wi}{L$&@dMpN~YVT@Ob<;A#=Iw4Xn*Cv%set&~K{u;*Mct=_7HTMBmvlAzz
z)84fT<Avpa$$zg6knDP=!1G>o^~eJ5<H7M^fg_fBA9atVurpJ28t8nkIi4_dTUbld
z+j=qO?GGlEVFvz>QVM0ACyqW!F!}!Ojc0*!($V*04eSM$?81JoI(nFkA7b<ys-EG!
z=95#Z%7=fCefjQ`SCsRJjfdGz%T_wSX7K%ILEm9DJVEBjA=bf`M$9C3`FpbIT-rNt
z$Q9*!DLQVcf#8^1Ek0&7_v_<njYkVU>pc5OJJVz+pAR`d8&S<j)nqaGHNW$?fsHkr
zxk9?3Axi{9ee3Un-iq^6iI2PmI4|h@sJd~^$IVESgZ-LPZn36F*Q=Dzop~Sa4oToj
zo2yL+bSv;>oKl@r0lhEujkNc~Fm)&XyxnjySE61nqs0KOZGB&h>y0$s;oeIaef}R#
zOOIvxLubpe%I`BiiPnUA)y1ueczw;&F1|j5&|l4$8k@?Fk9K9g)*Z0R-#EHDicfmq
zQ_p+5x*zI%dH1;R^z%6@8$+k$>j^dVh{bcF<;-FCbn&TG$#)(W&R!Ec@A<r8^p#BW
zUX@<v{V{(0S$kyzgqp7|CQh0W68X!1N3B?J1>~9z87Q?&JyK9G6RpYMcQ(uDd;j!a
za9+)I6DNjat49~Ta<w=;7cy5EdzP;2)0VK)-|JbsE@$-V#jaaN4;)H<C8xHkNGB9H
zk1nh1d$Yt=j}LVGz}(t~bum?2EQwkyySFpDvBof%Kl9X?(<}Gq5Imvu)q{oO4`xO#
zCaHZg?sLDlJXGbOe5Q?2fR%fHA|Xw~TIOY9r#QF3Zi1z{tb>P&-txPn{-KJA;VM4m
zuCR)mUK7<{%H`uF<=V_-y9&j9tn{xZ&L}R}amC&mfidG3=n>I!LFLgY=RAwF#H`y7
zozfHXO6$Hj6dJz_yYo3$@0)hTy~Bi7McnFhc`vhwo81UbHtPUm1&qntGe+F*DD9F5
zyGnBUU#Ez)D9BiZ9~{?Gbt}WYNT26LDb;;iae;F_<*8ostQkG7KHqI%N5Ae^={Vgz
z<73B`H3NT$e_cnz`DQJrhbI4<?&XvGzR{!KJQ#iDrRB9QxF!9LeP$%0K&UVh8AUQ&
z`^Mo;*x8IR2r^ixh51IbImX?n^;~nHoh~{WBL6Odqpo&%X&{$({OfMb*z&oC1Cr&J
zE0xDk9iL5b)kzj1(~;DlgnSinDNvWoXl;WcmHr<r1^AR6&8&mQ?~e!BWuF~76|Q<-
z?Y?L5tqz+7oe@9PUy-;wH?8(4Y8{uG=l$0CLd+manPY6>rdC2udw+I$2Fv*DQ!D0m
zxrT<y`?q}U>aR8!H|%j`KK0-;O~nshr<f&v4oGMGYKli?MW!jo$4UEJvC~2Fbn~&i
z#+<Bi&NQoz__F*D7rRxuQ_Frb{Rk+Z;~r_Nr|NxWw2*NmOoB^f{~Xu1iD{4Dh33<q
zt48QL-Q$M~$NRo}F6Jsfv0&Q6Gs5G|I0)TS)%a9zalzp5hg^&2Ly_YAqqB4+&eLYH
zjWrkv4Sfp<_o>5n7om)gjYY+K5)*>5(4|M*jnl83&D6txJzaqH+M8C{{PStl>t#Xr
zygBnVzI?HHnaA-L`pSGtyxDQr3Z{4}3dP_>gVvYaw3(@&h4g4GNY&}@wmbrR@!7Ap
z--Z2C(j$u@Vb0#CrJu^BC3kBx)4h2)w*f;tySd(TR5ZL9`KIPV<lWGZfv?KL9sH5K
zaVP1se#~gz8^j;ge8V@4!2UGhaXP!ckM%+uok-0pgywbgfs^tp!wO4M3F)iS3TAIV
zycd<Z8j!ojwAi?wkosOeZ;^WV&h4MQYpZPhgjA(8_&5Xg=U>GgOKPc0yG1{!yp3_M
z9(k78)D<Ip&cRYi%vZ%*^>&b~X3coz=L2a8wS6roSuKw3#@7Y!XkdTykoUo0Q<bv%
zW3j>vs&nUj_(bQ5^M76`Q*3h+>WeBh2(2DP4rB<04;zcqxoQ^;T`e$ayRrjIjV;l5
z6?F8`3~#}Fb;#SEo3icxQH}n2pC#{}pPk7?p2s~kWM;$El}IzTpK7hgnzbsm#QgR<
zE8zpVOpBfxwQ<9Lw$v*7oiQ${dN#%ECM`p{Gz;V@oGH{G|9V`q%K?5^jXW9!NhzTZ
zZ1_~p+jF)$948Q&GRmHp+}>wvjw)^QC@6!SV3b<G!(J84l(g@1!X*Y39?-gX>2j!k
zdN@97dF`e?<Na<r!WE<J0#^vNEY%xLhxMW27ph39jdWZ5?0fGby77DR8;tJn9fp{n
zn>1-!+pgRUv^XDaZ9+Kmu4Kih(KEHZg@zt`VnbcH(0n6u!Sz`DoJW(4_4@>vYmUzc
z8kw)l+U2LNLZyoXq~vU9P7sQG%1f?DP{$t`Brp%n4XeuS$BuiJC>hjNDW5o~m<%g;
z-27>me$1rl3O*27nDsz8cRd;r{AuK+$hTwmz9X^(uGe-Ud}`v()HHXjvS<7Z0^Ag!
zY`m75cYpk1rzhaY)C*LeKTm(An&8udj=yfy=OAWv<syf|fdl#H4>Yw0iv2ci4F3{p
z`8(oRsSxj^vsm;Y>kv9MX8Vg9j$*Mi`D<%sW1b5GySa?<j*JsMFKB8@W_~T1K<|D`
z?YsXP!{EV|rI>Oie9a}6)$8>2raeCK`>!$Q5uV&l82RzUXL)?|l1H7JxW43C_zm+g
zq1u_oq>&#-3mD=8eCq6J`T5r3K5=G9*?(SGf4r}gBj<!}YSMb3n!y;)I6Q>ic$H@L
z*~LPed#B%@=YEL4@uQQ`nH|@lXcMIcE{ynuaf!WW{;PP9hDqj1x+Xko?4W6nn8~DN
zZpNJNZ<gj$LHBj@;wtKjuT{JBJAON+=ux80BY&tmYA##dKg(mZ(TJ^O3K9KzU#GU^
z?!jNWw;tS}{Z;u%BQT9IY;Ha1JHOh2hO-y}I)a^pY%}-AT6}+3r(`SiVx{$@#|LA%
z7yGHQLRO80U)9bAt3FyUK6B+e7w^!Zh#P|7GlDD?J8OL-XOFrB_mb8z#`~tD1j+oG
z&)~W;Oo;IV;hzI#V!1!x4TnxXW~*2W%b(3vg`3X4`&MY$`l?1?wLr)!<T2yTr`jsV
zW&@hbTL(&aoj);!*PR-_SVeoJ4O1GzBlxz=!8zu`X<k^U2(rDyN0~d*Sb?f{(RWD2
zP!%oWIWd2brPKQ<1M8uxl>+_J%Z{9|J$f!HN3Tq3PI52=`UTiI?r77!b2B#kCoEOG
zz%Kmttn&1OBDDrLHNQ-@num>%JMX$gD20S4?_qZ0X5ilSf(;MDP0}K-Y#1>Jp*SVN
ze&UY%55EsDYYa;n*qK~uS++Bm!FH7Pdwek4<Cd?{@3TbAtFh~gx`JYtiffy0JFSG_
zTIPi#e1%~VN^BD+j&RR~WU4-5e;ajc`T1N~^I-c$WWMf9x7l0QE~kAV#qrh~587h|
z!x~!XuOp!K%a_jMbFJ}V!^iF(dEs#F4b=W%)&uR=7rbKc=%14||DrrSZ#O<T)?zST
zx93QIMmSF4`Q9Lll-z!%&H$PfYq9quzm{(Iub%N9wKkn8rDtj$N^fo)^-#yi!fe~A
z_j4UuG5s_no4e>WdN)l&$QJ2y@$oaWy^|eD19Vk%2I=iZWe9v&;8*+g{2NM#l?3-6
zY`7b>FUczU^(C%j!?n{1S1pn%OFtU3YF>ENbM4XX(LEnU1lhja^JDmVMT?<O^%m6+
z-y%9Lo2r51d^YkwzOr)3Ep!+-)7B@7M*A9<s1W1?{1zQ6*$=R~m5<+5Dubhi_lM*~
z>}6l+=k&Mm`k-;*Y%893()-tSW&O<7HlCxpDS3^uZoIxV3!bL;58^j|$o)8VWM<76
z?=zll1Ya4-^^i1ePCaw|iXmL5*kk|e;pa?<=ilkof2i7>Os~7}D|&w5Y{STnr%vLC
z7Y&T9#q!^~gE^8tN>{A9==c(^-Se;P2yUj|^E`*cYAj&~dh~8r9sWb!NZD98&zS@-
zY;r?D;#7cM>R8WP_nS%=D*2BGFGkv3AK|cJirsrfn=oe2uZ88?lTvbtvDxJA$NOgk
z<}pT850BOrCQd~g1fBcZoCI44uGpWPT{=|7Q8?w3CFwXFIRi5htek81tL!gc;p;9}
zy<l=odt%6<_WbZFAC?M#14rONsI7Hm^|tNM{a__rmn}3FHx?=s9p2AdC8z%T)ORMg
z`kwGpM!7}~C4qa}X*_QU6f_pGbn|*B-8Fbu;g4VZl8*Fcb&P4{U)c!@yE_;+TjcA+
z>vXp;x9E8H&y$9Qp*ub?-TuIk6sajyD*q}s_^5wF#LT_qPZ!1_yzv5p4X^8rt47)k
z$M!wE;3trkDP`RFD%9y4rgm-IYCL!L^x+j5;q1j%Z&_YsdbPQRU8`0^PiOasJv)-v
z{X^t<kY}|wmtVej^N#_aHUr5WZI$UvulZcC=XJt(IeBAC8k?yDsSmx)*vqdI#BsXY
zec)=}PkF`%+RX0E1Oc(n__m!j8DZ<*xgx&RKda5-Ci2hy$c%cYb!UNz<FP6`Ti<gD
z#|kkVA=yCBlJALY_MHF?0;`*2jx2BX!srl3*W4)^*$*A;4tb`}49flYaX#Ez8vCtP
zW8%9$PkE93(N(PvCJbgib}RQPy6(vCvelZq&l7LRWq7Mg`JKPO=Nmov<Gbo7TEBB$
z%czRXzDApCVeIti+I*^n>`C9W=%we;3pnYF@3AUg!kn12M9aNjBK<t*sskU$_(eGg
z&<W?`FEr7y=%$sKIR}Y|hD`Nuym*O%9?-g4_g2a!<fmhPb&gVwY5oB-nJ^ns&5Kkr
z*W;Q6V*DyZtG<j!Ssf_5B#y@qhG0F7Fgq5NFv*5G>4xhL=fgseMXX52UrZc0Yeg;R
zbK99&gDK?zl8XBPw4k(wrg~r2Z}k$vPd-$dijujtBZ9)gyANrY<mjaOEFIlB!Ny`_
zQL8mknAJtU(e&mKLrHnLo^-xYX$$)0z_X!#8nyjRMYHdpzW;r+Phj#Xp0=_q@YX5c
z%l9jDtQlmEhDZ%m-6-vNvrE^GZPLWA&a~|G+SA6LcIq)AW6=|Z5-ys|ujBP3-#=ZC
zFKC_ge^S?epfS0VO4luuoq8?1CCH3^?ah=?`YUWv$Ji60BO+!Q;^@WGy0)jQI?~J2
z@=&b5)<+NDLEfl|C5T7lBwfIlcIk3l7@Qp$LRkm1N8a5Z%j?LOuXT|J6RLNyW=uQH
z#MA5j;IR7Vq_~N>{j5F`B1V=j9_>awnfX!kS@z8Jr(!3AI97AkY)`j$pI%6f-X+b^
zQX_ZVBEfR%WSnu`<tNW{*$5YVo}A%-I^LqTHj^~P{%+xS>#W0!wY6fnHNNB&PImV%
zvCoDFMozr+x0<o$j5$8988kpwk^a^&3AOkfVQ}pcI?3vWXFz|RMfs-$heP<ls=CT>
ziMgZ=Yl)HXvW4xQoRRgvJ1;)P<Ur?b#O-a?0)Ax7-rqBQrw^{VpUyP0MLmSOr|W`H
zZ|F5MvEr(XE)I4CN-grF?NA9`d&BHT;hUj5qYSCsd~?v<_{s)@v3U*4N8L=C4TC#f
zSnMUMe@Jns)13YN0CHMlc{Qjw)OG(-YtGHauYJWz$y2QprLekNTF)<tJq-6rwXtJI
zAR}UD@o=5;M^cEIgp@niJfl7ij}E?gnOY=!FwQF0td*5}-r-YsiMr>sI)1+Lz52`4
z{VooPecFO2-+Z2|OLiNwJ0qH6_Jyz8;)$*FuOHD8e6d&Qjo(#vPE_6zJQUzpzhm(Z
znwRf!l73C`$vXqu*HV0PqoXQM_g|~t@J-wQbgx^<yRi3z$8N@@T@7$nYZ`6yZKsc#
zV>wi;`}(z`5_=b&q3WSuCb&CxSMkqLEGqk-$D6|W+E2ZUSuCnG(M?GfLq=smUp7}R
zNQ`qNj<7^E_?3zm1dj0OXj1>Oo_q64QrXL!R)jN6GPXESopWBb+?vPBFM$7gwvafD
z;qdU))-1XE;jhgP-Z|sc2z^o?HdWzzFv*GPhQhbJlLjmtm%o(A-3~aPiaLE2e?xZg
z{3#y?dwLx`9{WPAV2uN?hSu-2jQSi}ZawaolpZ;;xN*PLIMuwv>)s30YwhI}_0Knu
z2b$Erc4XTB$c<j{v80tS<n4)?(a0A~xMVcU?3Zn~q%dBk&(L*;r3~)P>729A*+WF?
zIVKu;vWXCVMx|iLCcxGSBa@I}BaILILVcj$-C14DP3R5x+dVOSF5IRnU%Bg#!anaG
z_P2<Omx_D-<%8V^jpY@*XIfQo^W|bcIuk^XSl4tjw2v;);C@!hvz07O_d^G>*Xi~~
zbe0L7qH*b#_bh$B(n_T{>VIhdCx73xdp;Ar!Q;aTQ@3h%AB?PN2_N9fri;&?#qX`N
zGOoQVHk0G9-+A;lOlIzI(8|N)<4;cvh|$DxlzBW94)$|8sirh{@yj69EkRBtIdj#|
z5P22$a4TD8B_-;(2fl<7roiZE7Fk>8BNYb0ZBfawuLt-uo6WDX4wjb3+c`17%5rxO
zYN-9rczU)&K24H)q{yeJ+4JXgJYp7~qV{;olQ|kHG@Pj*ARP^9&-khhjZV@QtzT=)
zK!1QS?y_;c|AKRkU3AAiD`!zt=Dls7F9?19*?z9!^~rN9?*&X`-lLZb?A31<zc7vv
zi0wDH7XL=@p>)wm=T1Rq|F7{^`IF!2-7J|&W>P(O1rs*Jc}M%K#H;(y%vr+{RNL?y
zYzMs<&b*pb`d-KYb4|FpztUK#Ez13HI#pq6zZ_KUsndeZIpHRu<q&VJl9kcluTKQ}
z%uJ;!P7X**8IRNr<}Fr4U1i%nKD(DT-^Dj)f80f<*GT!DdM^tOspg8E;2irM6ZiVq
zt-V@IRru-ZQSbD?-N#@H6*`@cU%iz>m+>jjE(@*6oxS5EIe0SSg4|qoP{`y9HQ^Ox
zxA+c^50G_JN$Sp&XUVW1hr?0DK3rpM6~U2v$7{aRzM@s|;WJc{!?vWX6<!wg7j|Uv
zFCMdReaTtg4&$Hq(cfX(mwK9kz2R0U+NtWE?)99SN%zOnhZi_U8iUK;31`~!>8oes
z%X^z%+<C*1BZyY{nq^k<`}Xsu7@aw|$lalzPOPI{kaXz=tQjs6e^B{WQW0$sDx}rt
zMY34AZ!n{8W<+{*UBbP=RDui6^)cra^h-Z3qobT*sE1b_KL(uBV=z?=O)L8fvDSRR
zxvaa$43ib4NspZ_Ja`!W6_&0;hq&{Y79am${&lK~WO4ZGxOF2HsS7V0N?v4iBnvXD
z8+M=*JoLNtcDHy(?0KbR87dH;1a<b&<X4n6VuA~OG-%dL;&9MB>;O;JsOd;%Vxy<)
zjQ{EXh&|Z$LX7b<n<J;2bv15w=m(y*yr5<X!)H%h*X|$fKdttJY4@tx4t9d-i1-ZN
z<E+NgL{n>QB<)gzdy$9wo*?7*@@YM9;v9~+I?7C(va<=9H2AdYSu-;brOM0SDgFHS
zh>zOyFxHub4+wix_k{A__FDVSso5T&m6Zz8$ge0JK#bfvJAd=Ba_2e1)ok{UOc$4X
zWtKiDFmP#CIQmuoj>T!6E}REHl}yQ0LgO8q>>X7C8{Qw!Y8R~7pK5DyC#zp=<y39F
z+Q_xR*As&JHK-;}-yijD{*o`^7ZoS{zR&5UCuvoC8rQLbvs{Ib<#Ej$OZI{-@pXj0
zM*aKiEHj0Vg$)Z2#@Wn$(}1|K+L^G!ADu5dsq)pNLuu{h!Ozfu<BdOqz4wXWet%ZM
z&#51K#AtI_Vqfu(@jErTxF`4WoD@PJr<5Nf5AsxfsLpGfVxni=D=@?oFzU@O`0~#3
zr(YpgCqfcCY18z-+vFb?6y^GT_61k}5LHpB+rrUnVu5LhruH(Pl;~im@Lrl|HNE4O
z(<#<*I?`=l-2`rBS%h7xJ0YQh*55#T3VPy~a*#jcM&qd}E+;0v&%KPC{$O0+aWg%#
z@w)%`U^Prq;d=C7x2n<X{Zq&1i*8R9u6?XEr7BWfN^aBhF|xIJ11VW^zr>THX&7=l
zx1h>~pQW^?ggRR9K%4X)dMC+)1@6VZsa+#G3d`=7henBtDE70&cIT-WPquvgrpD_W
ziZ7W=G2AnIhoSYpN=ZVq(zD!P9XZBV(8ZxAx#t!?9zv%oFfdOy+Kehcua4s}($aOh
z+V?&X4u8tzUq;6lad1H!sycKb6VFaqt2=f4N!RT2B>1b3(R8p&w`!SL{XAzQKGN!b
zzy#&1w4)Bbp&!UddJu4|<d`-4knh<>x4d3_^Qr4Px}V?L8HL(L9;ZD5EjeDkCVuz3
zRj6->L~h)>egd_=^~0!J$p>eUH??FAcD<+)*nR8H@%aX=4=z?T1)l|*#I@qz?~;`?
z&VEf57jvclikrLIFl#FG(LUP(L_tAW)0vJ=)~0udWGk*MqY)}Oo=It|qJpQZm4CG_
zR65`pl3-0~H=^uunFsmKXnwI|@<SJL>aCodNn4TgwJyh2-V%r$G!Gvu>VEh2JFX-s
z)p;3;z3$ePu47j4bYFL&>8GLG8&jF9>Yx4Md+zq-y{f;P>9oT-eAV~}Lo4d?+|uDC
z4G-%j<ria(Mx~>%-Jb*6&QD&G=e&MbOyr>1EPk|$QH2@uJl#^!u_tIcksj?}rAjYy
z$Lpq3;q?9`t+XBLO!U&vF8erYV_k>x8fzn4iaj(X^Q?BYv`Ws(<c4qvi{GhhFwyN{
zxh<<%HgxJE*2eX)bKKR{YsSN0DlV47D=#5NU1x$n&+br{Uw_d5^#%Xhh0b=Sn&oN!
zR~I+%JO#I>1Tm4+gW_t=8ETi!KNj-IR?8eWfADESlz-vj&vhZ5!H(1)ZwuQ*<kN#c
zh&f$L5Wd|IS0cD<sT35@*`{k>xcuz9s@>u%6_KFw4C5@9F_ko%UQwR05bVe`DG6uz
zBlj4e*&w$MwNU;O5mmg9!kJ0Q_x72^w}rCJPUGzi+oJ}~3BHbnMl%TQ>8J|-ectfH
zZFeM%w~^8(IB%nCG|P>tp5@juyL4|Itkqr#5oUvm-D-8pMKQN(x#rSwDJL}ceRYpK
z$7=s|B<!7)dFJ;T?8aqhmQ<h2h|iZTT?@3!c1BDp@9ycNI?9?|6R7&kz<)2V$&H7t
zw=S2d;N|Pm?=bExnzy*(xXkm=I<GJ;x%#Sy?U~B?s-zVy_fr*F@WanXd8V!kCsQ>)
z{d#EO6_a0fyOX(p=hFz|EbA8o&P#rx@h{h$V>DxhZk`iU?0!0;vc{4BpqRrt)f}ZI
z`$l*4>>jh_m4ctqx33~zA5~rntj!*dPp&EbFnPcYfB#GT)Pds;c#|4&A7y`<1R3e*
zvFkx=JmcOmZf@=NcdRv*=8@+vJ$sEAlK!>YU2OYg(G_oyka}9+J0$wdW&M%13>vl9
z-#hn44sq;Qf4rER_))~du<s!az0`f*s#HVps>Os@hqLm7^CBMBgfS&GWB#R*4#UjQ
zBS|vneih*_(hGcwDLZNlWhLm*iPI#|v7gvSAH>?Rcg%-|-sW8TqmENb8SM1NOzSCC
z$2$8hqgwVdv^%sje&x_Ke^-!!u|F98YidBlUhEXrQ$fF(#IEZvGkft|d{x}94&W@R
z%Jgn~|KRx<wY;mthRt60-lMg<*83xmp}kb)Bn4g+PvV!4yJ$a-Prfqazaf6L$n-9}
ztkq4UAv3VJSyA_V&rd{jViEo4-9?P<F<&F@UsJswpBf*{G-lTD91h<j$Q29ozsa1G
z(9cny`?l{RO#G!QwU+bR@TAtlK=X5Y!{dkU+Z|sUKYudy;F+@>spUb}sqT~^#R|$-
z*Nz+HoZI)R7ylR{74)4`rmtQF&#wPVL0og^{M&_Z`~)F~V|sNdMz&(-J^X?VLmu)z
zDh?Mb+mR)+gn>xxs+x7!>kzZ}_~BDg`!p6w|LA-!5wBN2Uv^M^3UV+~TJP*Wgb>VS
zzI<HY>e8x7hsL$Lyn4H(4V<c`B$F*^*J2d%J5VZVNso8nW9kQXxFo1PMJ|ZvNK9+J
ze3tn6#Sk~s;TK=>q4$K%Gwt1vpq3>3Euu0Ommvn;xptqVuUvRLWc=Ra`>rn!Ccd06
zzxVUX=`w18Gz&FbR=qXb)-%5)`+w}x73_$q#rij|O7-{lk2al&q&5f-P{!Rzitz96
z@nB-ElCyEksj<hOU69Bfu#^8#5UKd^EMuIQ>=oO<;0A5o*O9FP3yb?M>7o_8gB0s4
zgg9l?1EN%%xXbEa8u>pjW1p~BqE~V76Ij$rhjY?QzC3Hnx$|^r=w3bOCG-ATs{wJ*
z%b(ZfUF*gc58AoW2<^}A{(T~@V+`_2UB2SSlgZ@JP_-4rARaZKgJr$2wx@O}qdu=d
z*naQDA?BT{?jiog!&O*VNfBD{($lxrSMyDFj2Pyu*tC>1PMpy3?eB1i!5xa~bWp_1
zUl6~xt1x6anr5`-(x=4HIscyno?^xmbC9F<Y<cK|kKbOD`ZR(3X6WL-AP$GH*xIPs
z>Hhd~P&*g5=B$N>dX*fuY1ZlxI5KfXhtqE<??xokbw=G_$(tdi^A4x7^}e}FLeZ&5
z%_mlVW-#-<beF@r1q--TVwY|A!S(Ayrn%!}Ubfq=cybNIUg8n0j}$(buJJjw1XcAD
z<>GsB)+B`W<wC^|N6X`%#Fz4aao&r&AsNf@JR`AGaY?Ua7=Jan?-nbvF|@YyFs6i&
zk1(!mAC8>Q&AO}p7;$BJUh(NUW9TD#dbQn!`KPUQJT0vsJ(9H2Jt0?o#JXbsws*?~
zMb;#xw+|9`X(gWQtaaUK6rQNl6O?E4(!(hE@N4DaLwwwOoD9y1nP1<nSF%%ChHYPw
zTvMh`nzPy-`Lnr)@sXELrfVInS8UByUXl319p?Vf^!@_V?ZET%2)-jTGT0^iry=VN
zYp<|-HElF*#60NJaW_&u^zqw)-En7lA<G9E*dZv+7FjxRS(S&Sm2X9M!$)$Dw=e1D
z85O_59tfja7HN)H3gt12lPwc0Hgvl#AKsjEM%*xFSBtQCb8G~jzOege%QN4l6P)4(
zUBh}Oe5}okyt3tIQwMe<Hg-KIZDIH|=j3<hR`OmO#^K1c8R6j>I__v%sSBq^O1<BH
zIzdNwHMVqe->Y4hM0GvWp8Zy)w~){VFX$||-?sGZvVK~BtRw$Dyoqn#u(Iq6VXOvg
z|Jbzsz1^8JgK*3lE>Zl(-lKwnXMLo)X0s%l?y4;pefWg<7&z6ia;%A_^MErlQSScq
z^6s5pLh$(Dm?v|Q>#-9fOCJ^PKg=ExUgqm7a_(*FoewX!?9PKOEaOGKy^Uckm?6BJ
zrovx%+^p^>?%2F``|*vm8(LHGPSS<Uyi180B@xDzSJQMZzW+8KgzqYBTi@}O%{hd{
zZ{+#`XD?&RaU;V;+hBUxFiU5F-6hlz7RS}L-tZ(vdE4NZH<N{0`?7{g=m=-NB93ZY
z=tvwerM9_q4RWt*PPwi+GL7#ov!Wt*Q+`9DAnNRQSegzVmt^}kZvojqE)@|{JAU-2
zO2~_$rBBq2kM)P!2cq$Tb|o2;^-<5Kq8w>D!I3{Fr)F3?^31PUUOYo3eRQWYG&!Gl
zIEVkuWX_vM7o4NoQPAGgvfA-;rndBFVNv>gjy#iNCt}4O&)n#7Odj=(;|+CRC`&Cc
z;812Qyb?0OXK;f1UF(H6j_hK~2}~>X!ETT4cxGif5xma_IH*eDMPG9Du4LyH59D9q
z|Cn_vZ7}wgR%bs=Lj8G(CrmW-#v(q?q!M0^M%=g~xf=96eBty-F1xkrtasYn)<?b@
z9S~{TmB(>>G&t0)BH(Jl6Z<Ak75k>0GbT#<PnyhgE=_3Mk%Mu^o-kyRlKJU%c#rP&
zA52+&Kh_8n3%}3!ALO0H$01<DpHwjB4BGzv!Hr$+3WA?yoQ%^3uDsev5bACB@~9rT
z!EBYS{p~9BOP`L1b;evh?~cCFo9#6F@*XU~ds)_RwVz7rv-IG96xERZs6fnM?H9`Y
z3M(Gho&P*~?=au@Q@>di6X5gX93|CnTqkUeDy^aulN8^(tbFjOF~-Z~P5Lth))vXn
zHWm4CB5r-EVRKbDf6L6{yY<KAl{Hq5FRxXLf1P1!;Sx3*(WHqjNZ*r=Y#P)llk#@B
z{}^+>zEt(ruAw>z>Jn8S?04|RqcIT@TqPd!-BO(#?kr3^t(D&{`8>>?GdU<!b$r2z
z!}#e;>CI(+zfnt#U&o(D;=^<Tb7naGL_XZ05sB5HrprzdxhGgL9QEp@rts-j<<=jm
zbNRo{_=#C3cpGv!E&Ka(?J@Veh$&bxKt!j_ged5a_BkJVx3pIE-SxTKVE(teKXuOh
z`kL$1Q&zECu#lst#j-w^?xu<fRY8QapTaS1S`EzrE4BBYshp8LA>S?VCi1+&+7{Mo
zJbD+-7+iYBHn4_sedm;-YR@kHSR_H_$oQwICf;|ZM`VvS1-N_e{WWO%_2MI!e%jV~
zg)e0aH&zAU?x7aX3d|1``jk3$jYA;ZZM4NUZ{3zT{d6)kT8v*7A!rzkQ($lQaSpb;
zIJkp7Z6O#WHRhq#mx7v)3h<`dtaIx6=Y6ed;AKAvrr@1O@&XS(_@{iYEHUST<tKgW
zdu5v0w_a7F9AmU2I4Je(x04%tCJ%uh@_);cuCnj^Jj&m>YdosE{I%%IR5tr-DfxrX
ztz6&ldtAGGh`;yfg$LfL=BXh)_uho1Qsb86^J{4$5~yu?S-<NBjRw<>;IAKEk~p62
z?QUc8v{g4OV*!QFGklYzaXK?^Jk`xQi~rn#tII~KRUZ>RvD25F>C?DdTv+ukWS&LO
zx>)lWQde;{H|1#Zw~G13-g`MlpIBt%+56%y$xR#4T0G>X=1PEJss#$qJTwlAfR|<*
z%5{CZ=he&Qo%`aTpY6-;2Cr-4k0n~5=c9JdySvIB{^j_vAi~4>+5`5V?82Ywr~|)!
zDRfM*;D|96kRQxGylB)K2ICj;H&R?vms(oxyiosQL}4O^iN|G7qkmr}w%c%}7u7Pq
zj&LooZG3-c_OK|wvANGj0SSN8v_j)X3@wiscBgI$<KT20I)Z>keTf1uFJiGk`}XPF
zUHzSf<Ya9@>2~iI`p9~gW0&32!$MMza(+*o4w%yOi`idsZDUFX`Lmb%t~+Zw+BoXg
z$%5T1s`<O4iq}qb73AGEaGkDy-kZ0xC%ZqkIR3p)e^-{~K!9D8U`D(Nk~#kk-`@D8
zsm7(3HTZjlwjr^c>_!$s^PYITS+VtA)n^HACZdp9-6TEUa%<*By<_sUPfX4VGYj8%
zUdjPYutQ<}1#00^cNquFv@iPCho7@v%1gYP>?w>1+W+8Djkqu;ZN$A_cEZ>JKZ_p;
z(h<TBk93Ar)GcarnJdVe?R^K`;~2G9TzVrc(a*H2>s{M!gZ7(3SNvp?U*mbBzw+Ni
zUDl}k%(64kPJfjiBWBU!dt>Pm&4E+T9W-YxnVSob1io4`iPAXgrU$NbX3r9Nv7G24
zc{{1=PPzK`<3BetT_oYWrv`=Xl-dr#B=q>9x9KAFzFHqHnKc?O7jpFy_|&jJmyLF3
z(KXaFT72_9@vCgkm)|LAKDisDiJwoSYs8AUSy<b)9{O3T3hCePDU%n^Q9}5@>c!Dk
z`c_i9#v&K#`^-M-#Z<$D(_z<#8f)=l{`Vvpe_EC>&@r$LDzv|xxn3||w(l%7sp*;>
zgV>i-HXm#29~bK!c%5~LOR`=kFr$;-ci<YnuO@iM*N}<gxQkw$96pXS)A#P4vGuub
znte{iS5kd<-RsP$<dJlx&<_7!#oUgap6zG#J*Vb}R8@r?cestucH9Ux{iwqm{AGhS
zsa@m8|N0d@mH_U?6KB*_l-JTz1y}6p=@C2*(d;Gonn213SW`$Y4FW@W5eV5&2<)Yy
zC$O18_8m|#Jfm@j*crUr63QT{?C$2RXnWqq%hAKz-AfRG!V)yhAYxny6nMsa+tuB0
zD2hmqYZJ}3S7cJ60dLam252}DDB^Qs|K0!&M-tq7Y4#AH<`5~;YcXBTA)>ShB<XfP
zf}|fc4<VqJhJi%o&sF4o=8(PMvGz?=lFE)==e-pith@wKIKreEgqsV2B!A)^jwHRx
zbCcO!n|BZrs4a+n(P$D!|DeHP2uWv2Xt3nWLP;v-B0MsK@Dm~}Ap3|n5)wSD!MAK1
z2qRDvoMH&+8ucy8e;(ntgm8n$?x6&%B}9w^fg*o`0Zy>ep(Z``zk?(=A;S{FPkK)O
zJs1F}Z1ViiJ?b#Tf5tG`eCiI^R0lk-Pi|4tlX^M;{#R{CVE5BjTRJ2@)Nkl`&fDR<
zAOcBF1|Ab)w#62(7r!9saScF6*Z6<=4hB5cLDUQ%&<rgC1tn^Rz~ua|MG^n_>i<Ns
zX@P&3MIZ?eZHUG}kzZ2)hl2Yb?ZC5yXU{<xG!U3gACOdcJa=Bu6ow`lMi34ofd%1k
zl5B!-1j&m8;YgAV1mT-#&HuTh9uA!M|B4sBX$nF3AN-rwQVPN`Tl6qnbg-oF+wkJR
z-S>a^Jx#_h97hsQ5CJ8r4g9~!Hv&e|h#+E%e*}U8FVN7m9rYeUuMLD=3|xMxW#wh-
z<}FA@0D;&-gd|ODbHaoRgqLvB4ze2y2mY|BHK0<W(SUTDT!0JsN#7Aj5_kVfgTO)w
zBX$r8*3FsAAgSQ)1E}H%+#wKYwm(2EFI!(h7`VmXIs_ssL<Ze7sHCQ?zc=VZqD&b3
zcl1^Zih#ZhIUxZklIEJ^CQ|rjfZB8wFn$Xg(Xolx2yd@KcnB$%Au!g>*|s$dfg?;^
zhMXjv2!&`K{exo@BVr2$X{HFm5G0N^r-~p9Nr=7z;UnaPLZAn>C~xtxc`xaf7zh$E
z!k#dQ6c_9d`b{}D(GzZfCTTKRpj#L>JN{AA79a2}0-KT{2yd<e!wrW)poDK%AS^U6
z6yfj{h(6Qi*iCmQJh}oICL@B|5@)mDAJ(>LK)2C=;RwOkf%ZDDLXJU*hGqzd7!W@c
z+k`_bA*4?=*C9?cq(;O|$VC$9*-Z$Rngkk)g2;gnFhXApgafbWZgWi6+seyZOb`y;
zoF<~So<3IIj_z&}FaSi5s0;oFgcE_AuJ|7iAqHjvIS>hen>rU1wR5!h@v<dh#FETl
z4vgpMO29sY?56+QNU*A=<|RDMfzaW%V1OE8(*lB`9#;077@#C)_yd3fhBgD~9|)0e
z%;uEZ8bo9oyBS@!Ab?{yZgaYkIC1m_k?9Yca52U|xDaCIglHF_@MHHNbOg6p$SzBw
zTz_=6$rB1dVB45N0|<O`qHYny5Fy)`!UD)v$lL0J0}zlMn+XuEeK0`gFL?XxMiQvw
zA$!e;Lc#x~3J0n{Yz5EFp+qUS5d}!$h|Ms#*#oc+-*oCNYJhV%3PI#y4<RZZvIqDI
zibT&5NB~FuD*+GyzM1*A#sdD~n>XADik`Q%Av)0!lFgx8B>w}FthS|~|DZ(6;gBQ+
z5M&Y{`v{M#saXj79zy5|9tjX87X)m}NB<i_biF?k{e_ZLL$dBajF6PE<)nXmk`zMD
z2T3Uei~Eqh2LS&7*?-cY#J1Z4LtuXh;UscL=SWl?a!Wyf36Qk5<$8aCM9pnR)qhZv
zw6_`5|Ii~UZ@cOwh@z2L+kZp?5d7N{PR1DaFJrq1%=aONtp9Zd)WN&cfp|RofKL8m
zz>;AgussA<LIcTm?UDezfiPQi9}-QCBWUD81Rw|;lt_V_fKP-}f^V?D-)ITe4<PFM
zFcLtwu&o>^dfvx+OL_^c1dNb>AF_uIOB4o%fD)!sfC^vdLTCvzNe~V;GEu;9&T=4o
ziF9anu@Zn|*q>SR4^kXaRj|#%28i?@H5`e^X01!sKtu(K>f}@iCmm7(Mp8B*8puQo
zBMw5N|6@#)M3{v4Kh(rA6ucg|2b89n3SlOkc?bz1q^Cl-X+T9dnF30E0HG!Hr$RW`
zVcT^Ld>-iXKuq~=S_ljYC(;#+so1@f)ENS35UiXbJh07500i&N%)eR32qLhXo{rdx
zaA3l2wWA3V&mjDIe`X??@8XD__2-_5Kd3juJp#Mw#t7`@d;!MZMER!_!jW81Y0CwH
zO8(zkAz~$?v>AK_5kPbxt-yb}p@EALEIv~6@@%p6r_Ld<s{;mLh*BNJBPeuF<n<2~
zuy6tq9f2ds@lOSbBo%RgdJ%8O5R_D~^0snuw<nfo_O@WqpK|q#kGG4X8xiuSywS9B
zC4MF5YeL5}h%grnO|r!{0x$wcJ|v7D22uhPia{X>kMbeB|9q{=hdhKJp>Tq20VJ3Q
zh9cFKQ1B<{Cdfei9~4YTES9iZ0KpKOiAxgV-@nZ;G~sk1sToO3JY>xXFsBkXn^ABO
zd&rvMC=6kItC=VnSu+eQhK@fcB1dD1;*m8&kto8A&1M`77<PLz6bCLe>moH{pa=@&
zP%IWnI9fzRjw4NDveDpLGeRJ-84g1e%Xso;7?jYk*^I$Zs0E6KBMAFm5Jw}?#6>dM
zXcQ7haM^6e5UXjjW+YhuzS?R=QzA!zS<F;SLXIV-U9!=jC?c4Vn$bw`1{LyV7z$3v
zAvI%gL{BCg4FxaXS|v5(fDmNONE{A?*V8WnZ3HNv$vH>ju%Hf1+-ycucnfHTq6y=h
z%@_)AK>~x}2**oE$T7qv(>B(SI5g4T#AYN4PK@Sc%_!hZUBqS-Sfi3_4T(ddF@&R~
z#AYmxI2p-CgVaq3EQN^R$vg#$!a@IsB*1gGqkux;aN@G-U$jIRnv4{{2P4)F|Mr6+
zaWG=}Lj1%3nOtBnsc`$ZBN0X{e73;=LUJMiA(VJy-?n~GI1)xK9DorM(m(z1P{1J^
zPN6@bG%~IMGbmy?_0M4N5so76c5H(Ie8dFtFN_#gh|9-+VZ^aG9G(IQyqFAzhLO_3
zzk>ln3^5!13j+wz|AT1^vC7=m4-Kv@{39^_Pv}Ep(Zt-dts@i;<_rZ4OYR>~G|2yy
z5~DEWf<WQGPTTPT{ljs@SK@6W3=k5lw0~hhV&FF0VNek0h{gWD{fICMLD1lyMl!-g
ze84dQeen066Cz-LRkNiTfDjI&U=W3c{!!t78U!UY1v8{=12P)$|CqsVW*!iRuoPhz
z3Bny25x@*-V~-3Wg18Rb21A2sLa9L*oXkv6JQRT>Zli1)3}BQt#z4tE7^o0R+&Li|
ziz2r%U>Zd>?Z6N)nE-<%{r{(a6hKLi5QQf05^N`e!cf>4%wtN^p<(2X2?fdOpA>~B
zC4K-zLdjJKY(k!eK|c(6C<ZVrc}fK32k;tlrom7$lYsb#AuSxYONRl$pJFgYVg*F7
zFbbwYBBvOOg%P&{w$s3ZX$N3L{r{(aEJ!sJ9YMIDfMNaz5gc(hZ95Sh<y3^?NLw3!
z`fbiXC>TpQ7=@%DjKctS$%$Yok`t)^D5fk7`ZwwP6&MD^gUL;X5C%mOH!=QjNcsSS
zqA64egJOs!^7ejUCX(A21`;5JNf7AGTmt0(ha2#2PjZBSZ8DR<kdzJwU>I_T127;m
zB|hS``^z*@{~+Xn%Ygm?l3*Z$kf|Dm#2|^=;eQ7cKY-jskt1M8C~-@8dp{(cTo6DQ
zfhW)9L~f8|%m5gMA`*h=L#cicdnm?&_(8!8ID^@Qf%@l9oCjv2v>hnp$s!!!g|rK`
zT{?h|BEbNj|5Y_{01N|Gng42rq<=J;xN;;zh@l*e2Jx1>9~y@tV-OI5QsTp6Fk}ou
zK{$frDG1|8cO`FU28$+NQ2-)v@~RUG1L>WD2*^Veegx2MG5uft2g8xh9sVT@JQzt{
zy#N@DJP`rHV39zk8Q^Xd<r=7?$#MzMKO6>92iag44y+EzU|?lLp7X(2%6tF^?oaM;
za0Kb_<zL}Iv5bRL)PLY?hTM@r5ey~nZfzfo09=#9kT~K7&Gvpkf#fCuh4$ZBLXhr+
z(BqLPii86;)W`<{&j)jfoB$fEPAFiMYXeX`Q-o<a2&%-f#7XdX8iJk8KZ}F^U|1OW
zx)Ic-;E;xbFlDU(YFOg7`F5><>g}ItXh>=W36Zz~vArXX!U3V6x+gEKKn;r`o}q3V
zi+~ZPyCEFZVAHJ&!YPfVs6@b;a(gfU!;uKmHt}{u1g(AuCmx(0l3N@B)@9@@BVb_d
zN5%>goODsbkmR8aiUgG@xu+q)u^W-D5a8*rL6D$M{zrjCb^+@ISTTh29D;0$fff|N
zOu-VGd=mroBW>#tk^M&rMLJ~o7Y6*0@b)D*L;)K(<gN#NhoaO(0Y#Jd1G_sEZi@tA
ziF~dAY{YZEf5}5ppav&ubDP_ORrsHn_Lp}e>*VtV1*cpIqA1rzz&~*mrbU4&^&gif
z(g$@kh==4{qreXX$n6bY0!ZNlU^<gC2$TyF1G&T?@lepf;z63H=!l`1yeJ%kVgiEt
zouYz7feM!rAC6M}Skl2YN&o+;8jGUHdBozM93dJ8qwsK`K#DpE4K7Ng&;ky*t&$+=
zA1ux({2gSiZ5@ebLL;}h{>Qh0k^TnaKUD~E6N_BcV5U%L5DjW43I_qsPvQN52u1A#
zYC8(`gVhf4B$4>{SF30wcqctM429XsM*r1Lz-hp`gS;cy^P+%(O$PE5g+@auDo8Y_
z^T}rp(AD;>5u*M<*-J?TL;7*Zc1bWO3a<v?o+5sLN{k}71D+`s_GlamgC|!P2Gj%O
z(~ek+kxPPs!HGu)+ZZGki{uW6g<&X`v>^HXVH)w*PT-zsifIDMDT-(Y_WVO?K;Q(0
zJegU+iivW^8mutMEdzrhu;c|NSTKQq+vNep7o2=44`5hQ8vi$N!a&tWKJ5XFVmS^}
z1{QzhM1bJrf`Cd8L8e@ABCst_k|r*3-fmk80doKtlHB~n^#}zKutKEV<HO*{7c(I5
zfSE?dGzx~tkjE;}5mXT59f5F^FrWvDejsL3z|iDb0qlftZQTL+|F{nE6omLwgMWPy
zz(~ibWH7Mor09nxpBP{)2>0aufKvbU52F4-?E^|!ijLqcfC2_Kg(zTX@}(NU_a`p>
zBOI_3g$9v08gQg~as|Q%5*YYxkdC{%x8UaS6!=NlDK|TJ@D1dA@Dn}BQ;LG7$5C=H
zc~Dov5Q-?A0tiCjpa6+ePzKu$-~<pVr*J~>|KG)2@Wcs*^TZ!~_<PyfF@XI|uoX?q
MAS|qOMw#LN01%fsvH$=8

diff --git a/doc/fvn.tex b/doc/fvn.tex
index a0302fb..8fb949f 100644
--- a/doc/fvn.tex
+++ b/doc/fvn.tex
@@ -29,11 +29,11 @@
 
 \section{Whatis fvn,licence,disclaimer etc}
 \subsection{Whatis fvn}
-fvn is a Fortran95 mathematical module. It provides various usefull subroutine covering linear algebra, numerical integration, least square polynomial, spline interpolation, zero finding, complex trigonometry etc.
+fvn is a Fortran95 mathematical module. It provides various usefull subroutine covering linear algebra, numerical integration, least square polynomial, spline interpolation, zero finding, special functions etc.
 
-Most of the work is done by interfacing Lapack \url{http://www.netlib.org/lapack} which means that Lapack and Blas \url{http://www.netlib.org/blas} must be available on your system for linking fvn. If you use an AMD microprocessor, the good idea is to use ACML ( AMD Core Math Library \url{http://developer.amd.com/acml.jsp} which contains an optimized Blas/Lapack. Fvn also contains a slightly modified version of Quadpack \url{http://www.netlib.org/quadpack} for performing the numerical integration tasks.
+Most of the work is done by interfacing Lapack \url{http://www.netlib.org/lapack} which means that Lapack and Blas \url{http://www.netlib.org/blas} must be available on your system for linking fvn. If you use an AMD microprocessor, the good idea is to use ACML ( AMD Core Math Library \url{http://developer.amd.com/acml.jsp} which contains an optimized Blas/Lapack. Fvn also contains a slightly modified version of Quadpack \url{http://www.netlib.org/quadpack} for performing the numerical integration tasks. Finally the fnlib library \url{http://www.netlib.org/fn} has been added for special functions.
 
-This module has been initially written for the use of the ``Acoustic and microsonic'' group leaded by Sylvain Ballandras in institute Femto-ST \url{http://www.femto-st.fr/}.
+This module has been initially written for the use of the ``Acoustic and microsonic'' group leaded by Sylvain Ballandras in the Time and Frequency Department of institute Femto-ST \url{http://www.femto-st.fr/}.
 
 \subsection{Licence}
 The licence of fvn is free. You can do whatever you want with this code as far as you credit the authors.
@@ -60,17 +60,19 @@ where * can be s,d,c or z.
 \end{itemize}
 In the following description of subroutines parameters, input parameters are followed by (in), output parameters by (out) and parameters which are used as input and modified by the subroutine are followed by (inout).
 
+For each routine, there is a generic interface (simply remove \verb'_*' in the name), so using the specific routine is not mandatory.
+
 \section{Linear algebra}
 The linear algebra routines of fvn are an interface to lapack, which make it easier to use.
 \subsection{Matrix inversion}
 \begin{verbatim}
-call fvn_*_matinv(d,a,inva,status)      (*=s,d,c,z)
+call fvn_matinv(d,a,inva,status)
 \end{verbatim}
 \begin{itemize}
  \item d (in) is an integer equal to the matrix rank
- \item a (in) is a matrix of type x. It will remain untouched.
- \item inva (out) is a matrix of type x which contain the inverse of a at the end of the routine
- \item status (out) is an integer equal to zero if something went wrong
+ \item a (in) is a real or complex matrix. It will remain untouched.
+ \item inva (out) is a real or complex matrix which contain the inverse of a at the end of the routine
+ \item status (out) is an optional integer equal to zero if something went wrong
 \end{itemize}
 
 \subsubsection*{Example}
@@ -80,12 +82,11 @@ program inv
  implicit none
 
  real(8),dimension(3,3) :: a,inva
- integer :: status
 
  call random_number(a)
  a=a*100
 
- call fvn_d_matinv(3,a,inva,status)
+ call fvn_matinv(3,a,inva)
  write (*,*) a
  write (*,*)
  write (*,*) inva
@@ -98,12 +99,12 @@ end program
 
 \subsection{Matrix determinants}
 \begin{verbatim}
-det=fvn_*_det(d,a,status)      (*=s,d,c,z)
+det=fvn_det(d,a,status)
 \end{verbatim}
 \begin{itemize}
  \item d (in) is an integer equal to the matrix rank
- \item a (in) is a matrix of type x. It will remain untouched.
- \item status (out) is an integer equal to zero if something went wrong
+ \item a (in) is a real or complex matrix. It will remain untouched.
+ \item status (out) is an optional integer equal to zero if something went wrong
 \end{itemize}
 
 \subsubsection*{Example}
@@ -119,7 +120,7 @@ program det
  call random_number(a)
  a=a*100
 
- deta=fvn_d_det(3,a,status)
+ deta=fvn_det(3,a,status)
  write (*,*) a
  write (*,*)
  write (*,*) "Det = ",deta
@@ -131,13 +132,13 @@ end program
 
 \subsection{Matrix condition}
 \begin{verbatim}
-call fvn_*_matcon(d,a,rcond,status)      (*=s,d,c,z)
+call fvn_matcon(d,a,rcond,status)
 \end{verbatim}
 \begin{itemize}
  \item d (in) is an integer equal to the matrix rank
- \item a (in) is a matrix of type x. It will remain untouched.
+ \item a (in) is a real or complex matrix. It will remain untouched.
  \item rcond (out) is a real of same kind as matrix a, it will contain the reciprocal condition number of the matrix
- \item status (out) is an integer equal to zero if something went wrong
+ \item status (out) is an optional integer equal to zero if something went wrong
 \end{itemize}
 
 The reciprocal condition number is evaluated using the 1-norm and is define as in equation \ref{rconddef}
@@ -176,14 +177,14 @@ end program
 
 \subsection{Eigenvalues/Eigenvectors}
 \begin{verbatim}
-call fvn_*_matev(d,a,evala,eveca,status)      (*=s,d,c,z)
+call fvn_matev(d,a,evala,eveca,status)
 \end{verbatim}
 \begin{itemize}
  \item d (in) is an integer equal to the matrix rank
- \item a (in) is a matrix of type x. It will remain untouched.
+ \item a (in) is a real or complex matrix. It will remain untouched.
  \item evala (out) is a complex array of same kind as a. It contains the eigenvalues of matrix a
  \item eveca (out) is a complex matrix of same kind as a. Its columns are the eigenvectors of matrix a : eveca(:,j)=jth eigenvector associated with eigenvalue evala(j).
- \item status (out) is an integer equal to zero if something went wrong
+ \item status (out) is an optional integer equal to zero if something went wrong
 \end{itemize}
 
 \subsubsection*{Example}
@@ -200,7 +201,7 @@ program eigen
  call random_number(a)
  a=a*100
 
- call fvn_d_matev(3,a,evala,eveca,status)
+ call fvn_matev(3,a,evala,eveca,status)
  write (*,*) a
  write (*,*)
  do i=1,3
@@ -223,10 +224,10 @@ By interfacing Tim Davis's SuiteSparse from university of Florida \url{http://ww
 The provided routines solves the equation $Ax=B$ where A is sparse and given in its triplet form.
 
 \begin{verbatim}
-call fvn_*_sparse_solve(n,nz,T,Ti,Tj,B,x,status)      (*=zl,zi,dl,di)
+call fvn_sparse_solve(n,nz,T,Ti,Tj,B,x,status)
 \end{verbatim}
 \begin{itemize}
- \item For this family of subroutine the two letters (zl,zi,dl,di) decribe the arguments's type. z is for complex(8), d for real(8), l for integer(8) and i for integer(4)
+ \item For this family of subroutine the two letters (zl,zi,dl,di) of the specific interface name decribe the arguments's type. z is for complex(8), d for real(8), l for integer(8) and i for integer(4)
  \item n (in) is an integer equal to the matrix rank
  \item nz (in) is an integer equal to the number of non-zero elements
  \item T(nz) (in) is a complex/real array containing the non-zero elements
@@ -256,7 +257,9 @@ program test_sparse
  Ti = (/ 1,2,1,3,5,2,3,4,5,3,2,5 /)
  Tj = (/ 1,1,2,2,2,3,3,3,3,4,5,5 /)
 
- call fvn_zl_sparse_solve(n,nz,A,Ti,Tj,B,x,status)
+ !specific routine that will be used here
+ !call fvn_zl_sparse_solve(n,nz,A,Ti,Tj,B,x,status)
+ call fvn_sparse_solve(n,nz,A,Ti,Tj,B,x,status)
  write(*,*) x
 
 end program
@@ -279,7 +282,9 @@ B = (/ 8., 45., -3., 3., 19./)
 Ti = (/ 1,2,1,3,5,2,3,4,5,3,2,5 /)
 Tj = (/ 1,1,2,2,2,3,3,3,3,4,5,5 /)
 
-call fvn_di_sparse_solve(n,nz,A,Ti,Tj,B,x,status)
+!specific routine that will be used here
+!call fvn_di_sparse_solve(n,nz,A,Ti,Tj,B,x,status)
+call fvn_sparse_solve(n,nz,A,Ti,Tj,B,x,status)
 write(*,*) x
 
 end program
@@ -290,12 +295,12 @@ end program
 
 \subsection{Identity matrix}
 \begin{verbatim}
- I=fvn_*_ident(n)      (*=s,d,c,z)
+ I=fvn_ident(n)
 \end{verbatim}
 \begin{itemize}
  \item n (in) is an integer equal to the matrix rank
 \end{itemize}
-This function return the identity matrix of rank n, in the specified type (x = s,d,c,z).
+This function return the identity matrix of rank n, in the type of the left hand side.
 
 
 
@@ -305,7 +310,7 @@ This function return the identity matrix of rank n, in the specified type (x = s
 fvn provide function for interpolating values of a tabulated function of 1, 2 or 3 variables, for both single and double precision.
 \subsubsection{One variable function}
 \begin{verbatim}
- value=fvn_*_quad_interpol(x,n,xdata,ydata)      (*=s,d)
+ value=fvn_quad_interpol(x,n,xdata,ydata)
 \end{verbatim}
 \begin{itemize}
  \item x is the real where we want to evaluate the function
@@ -356,7 +361,7 @@ end program
 
 \subsubsection{Two variables function}
 \begin{verbatim}
-value=fvn_*_quad_2d_interpol(x,y,nx,xdata,ny,ydata,zdata)      (*=s,d)
+value=fvn_quad_2d_interpol(x,y,nx,xdata,ny,ydata,zdata)
 \end{verbatim}
 \begin{itemize}
  \item x,y are the real coordinates where we want to evaluate the function
@@ -415,7 +420,7 @@ end program
 
 \subsubsection{Three variables function}
 \begin{verbatim}
-value=fvn_*_quad_3d_interpol(x,y,z,nx,xdata,ny,ydata,nz,zdata,tdata)      (*=s,d)
+value=fvn_quad_3d_interpol(x,y,z,nx,xdata,ny,ydata,nz,zdata,tdata)
 \end{verbatim}
 \begin{itemize}
  \item x,y,z are the real coordinates where we want to evaluate the function
@@ -481,7 +486,7 @@ end program
 \subsubsection{Utility procedure}
 fvn provides a simple utility procedure to locate the interval in which a value is located in an increasingly ordered array.
 \begin{verbatim}
-call fvn_*_find_interval(x,i,xdata,n)      (*=s,d)
+call fvn_find_interval(x,i,xdata,n)
 \end{verbatim}
 \begin{itemize}
  \item x (in) the real value to locate
@@ -497,7 +502,7 @@ The resulting integer i is as : $xdata(i) <= x < xdata(i+1)$. If $x < xdata(1)$
 fvn provides Akima spline interpolation and evaluation for both single and double precision real.
 \subsubsection{Interpolation}
 \begin{verbatim}
-call fvn_*_akima(n,x,y,br,co)      (*=s,d)
+call fvn_akima(n,x,y,br,co)
 \end{verbatim}
 \begin{itemize}
  \item n (in) is an integer equal to the number of points
@@ -508,7 +513,7 @@ call fvn_*_akima(n,x,y,br,co)      (*=s,d)
 
 \subsubsection{Evaluation}
 \begin{verbatim}
-y=fvn_*_spline_eval(x,n,br,co)      (*=s,d)
+y=fvn_spline_eval(x,n,br,co)
 \end{verbatim}
 \begin{itemize}
  \item x (in) is the point where we want to evaluate
@@ -583,7 +588,7 @@ Results are plotted on figure \ref{akima}
 fvn provide a function to find a least square polynomial of a given degree, for real in single or double precision. It is performed using Lapack subroutine sgelss (dgelss), which solve this problem using singular value decomposition.
 
 \begin{verbatim}
-call fvn_*_lspoly(np,x,y,deg,coeff,status)      (*=s,d)
+call fvn_lspoly(np,x,y,deg,coeff,status)
 \end{verbatim}
 \begin{itemize}
  \item np (in) is an integer equal to the number of points
@@ -662,7 +667,7 @@ The results are plotted on figure \ref{lsp} .
 fvn provide a routine for finding zeros of a complex function using Muller algorithm (only for double complex type). It is based on a version provided on the web by Hans D Mittelmann \url{http://plato.asu.edu/ftp/other\_software/muller.f}.
 
 \begin{verbatim}
- call fvn_z_muller(f,eps,eps1,kn,nguess,n,x,itmax,infer,ier)
+ call fvn_muller(f,eps,eps1,kn,nguess,n,x,itmax,infer,ier)
 \end{verbatim}
 \begin{itemize}
  \item f (in) is the complex function (kind=8) for which we search zeros
@@ -706,35 +711,6 @@ Example to find the ten roots of $x^{10}-1$
 \end{verbatim}
 
 
-\section{Trigonometry}
-\subsection{Complex Sine Arc}
-( only complex(kind=8) version )
-\begin{verbatim}
- y=fvn_z_asin(z)
-\end{verbatim}
-This function return the complex arc sine of z. It is adapted from he c gsl library \url{http://www.gnu.org/software/gsl/}.
-
-
-\subsection{Complex Cosine Arc}
-( only complex(kind=8) version )
-\begin{verbatim}
- y=fvn_z_acos(z)
-\end{verbatim}
-This function return the complex arc cosine of z. It is adapted from he c gsl library \url{http://www.gnu.org/software/gsl/}.
-
-\subsection{Real Sine Hyperbolic Arc}
-( only real(kind=8) version )
-\begin{verbatim}
- y=fvn_d_asinh(x)
-\end{verbatim}
-This function return the arc hyperbolic sine of x.
-
-\subsection{Real Cosine Hyperbolic Arc}
-( only real(kind=8) version )
-\begin{verbatim}
- y=fvn_d_acosh(x)
-\end{verbatim}
-This function return the arc hyperbolic cosine of x. In the current implementation error handling is ugly... it will stop program execution if argument is lesser than one.
 
 \section{Numerical integration}
 Using an integrated slightly modified version of quadpack \url{http://www.netlib.org/quadpack}, fvn provide adaptative numerical integration (Gauss Kronrod) of real functions of 1 and 2 variables. fvn also provide a function to calculate Gauss-Legendre abscissas and weight, and a simple non adaptative integration subroutine. All routines exists only in fvn for double precision real.
@@ -742,7 +718,7 @@ Using an integrated slightly modified version of quadpack \url{http://www.netlib
 \subsection{Gauss Legendre Abscissas and Weigth}
 This subroutine was inspired by Numerical Recipes routine gauleg.
 \begin{verbatim}
-call fvn_d_gauss_legendre(n,qx,qw)
+call fvn_gauss_legendre(n,qx,qw)
 \end{verbatim}
 \begin{itemize}
  \item n (in) is an integer equal to the number of Gauss Legendre points
@@ -753,7 +729,7 @@ This subroutine computes n Gauss-Legendre abscissas and weigths
 
 \subsection{Gauss Legendre Numerical Integration}
 \begin{verbatim}
-call fvn_d_gl_integ(f,a,b,n,res)
+call fvn_gl_integ(f,a,b,n,res)
 \end{verbatim}
 \begin{itemize}
  \item f (in) is a real(8) function to integrate
@@ -767,7 +743,7 @@ This function is a simple Gauss Legendre integration subroutine, which evaluate
 This kind of numerical integration is an iterative procedure which try to achieve a given precision.
 \subsubsection{Numerical integration of a one variable function}
 \begin{verbatim}
-call fvn_d_integ_1_gk(f,a,b,epsabs,epsrel,key,res,abserr,ier,limit)
+call fvn_integ_1_gk(f,a,b,epsabs,epsrel,key,res,abserr,ier,limit)
 \end{verbatim}
 This routine evaluate the integral of function f as in equation \ref{intsple}
 \begin{itemize}
@@ -806,7 +782,7 @@ This routine evaluate the integral of function f as in equation \ref{intsple}
 
 \subsubsection{Numerical integration of a two variable function}
 \begin{verbatim}
-call fvn_d_integ_2_gk(f,a,b,g,h,epsabs,epsrel,key,res,abserr,ier,limit)
+call fvn_integ_2_gk(f,a,b,g,h,epsabs,epsrel,key,res,abserr,ier,limit)
 \end{verbatim}
 This function evaluate the integral of a function f(x,y) as defined in equation \ref{intdble}. The parameters of same name as in the previous paragraph have exactly the same function and behaviour thus only what differs is decribed here
 \begin{itemize}
@@ -872,37 +848,1021 @@ end function
 
 
 \section{Special functions}
-\subsection{Gamma}
-Only double precision real
+Specials functions are available in fvn by using an implementation of fnlib \url{http://www.netlib.org/fn}. This can be used separatly from the rest of fvn by using the module \verb'fvn_fnlib' and linking the library \verb'libfvn_fnlib.a' . The module provides a generic interfaces to all the routines. Specific names of the routines are given in the description. The double complex versions of the routines are not present in the web version of fnlib, so these have been added, but not intensely tested.
+
+\paragraph{Important Note}
+Due to the addition of fnlib to fvn, some functions that were in fvn and are redondant will be removed from fvn, so update your code now and replace them with the fnlib version. These are listed here after :
+\begin{itemize}
+ \item \verb'fvn_z_acos' replaced by \verb'acos'
+ \item \verb'fvn_z_asin' replaced by \verb'asin'
+ \item \verb'fvn_d_asinh' replaced by \verb'asinh'
+ \item \verb'fvn_d_acosh' replaced by \verb'acosh'
+ \item \verb'fvn_s_csevl' replaced by \verb'csevl'
+ \item \verb'fvn_d_csevl' replaced by \verb'csevl'
+ \item \verb'fvn_d_factorial' replaced by \verb'fac'
+ \item \verb'fvn_d_lngamma' replaced by \verb'alngam'
+\end{itemize}
+
+
+\subsection{Elementary functions}
+\subsubsection{carg}
+\begin{verbatim}
+ carg(z)
+\end{verbatim}
+\begin{itemize}
+ \item z (in) is a complex
+\end{itemize}
+This function evaluates the argument of the complex z. That is $\theta$ for $z=\rho e^{i\theta}$.
+
+Specific interfaces : \verb'carg,zarg'
+
+
+\subsubsection{cbrt}
+\begin{verbatim}
+ cbrt(x)
+\end{verbatim}
+\begin{itemize}
+ \item x is a real or complex
+\end{itemize}
+This function evaluates the cubic root of the argument x.
+
+Specific interfaces : \verb'cbrt,dcbrt,ccbrt,zcbrt'
+
+
+\subsubsection{exprl}
+\begin{verbatim}
+ exprl(x)
+\end{verbatim}
+\begin{itemize}
+ \item x is a real or complex
+\end{itemize}
+This function evaluates ${e^x-1}\over x$.
+
+Specific interfaces : \verb'exprel,dexprl,cexprl,zexprl'
+
+\subsubsection{log10}
+\begin{verbatim}
+ log10(x)
+\end{verbatim}
+\begin{itemize}
+ \item x is a real or complex
+\end{itemize}
+This function is an extension of the intrinsic function log10 to complex arguments.
+
+Specific interfaces : \verb'clog10,zlog10'
+
+
+\subsubsection{alnrel}
+\begin{verbatim}
+ alnrel(x)
+\end{verbatim}
+\begin{itemize}
+ \item x is a real or complex
+\end{itemize}
+This function evaluates $ln(1+x)$.
+
+Specific interfaces : \verb'alnrel,dlnrel,clnrel,zlnrel'
+
+
+\subsection{Trigonometry}
+\subsubsection{tan}
+\begin{verbatim}
+ tan(x)
+\end{verbatim}
+\begin{itemize}
+ \item x is a real or complex
+\end{itemize}
+This function evaluates the tangent of the argument. It is an extension of the intrinsic function tan to complex arguments.
+
+Specific interfaces : \verb'ctan,ztan'
+
+
+\subsubsection{cot}
+\begin{verbatim}
+ cot(x)
+\end{verbatim}
+\begin{itemize}
+ \item x is a real or complex
+\end{itemize}
+This function evaluate the cotangent of the argument.
+
+Specific interfaces : \verb'cot,dcot,ccot,zcot'
+
+\subsubsection{sindg}
+\begin{verbatim}
+ sindg(x)
+\end{verbatim}
+\begin{itemize}
+ \item x is a real
+\end{itemize}
+This function evaluate the sinus of the argument expressed in degrees.
+
+Specific interfaces : \verb'sindg,dsindg'
+
+
+\subsubsection{cosdg}
+\begin{verbatim}
+ cosdg(x)
+\end{verbatim}
+\begin{itemize}
+ \item x is a real
+\end{itemize}
+This function evaluate the cosinus of the argument expressed in degrees.
+
+Specific interfaces : \verb'cosdg,dcosdg'
+
+
+\subsubsection{asin}
+\begin{verbatim}
+ asin(x)
+\end{verbatim}
+\begin{itemize}
+ \item x is a real or complex
+\end{itemize}
+This function evaluates the arc sine of the argument. It is an extension of the intrinsic function asin to complex arguments.
+
+Specific interfaces : \verb'casin,zasin'
+
+\subsubsection{acos}
+\begin{verbatim}
+ acos(x)
+\end{verbatim}
+\begin{itemize}
+ \item x is a real or complex
+\end{itemize}
+This function evaluates the arc cosine of the argument. It is an extension of the intrinsic function acos to complex arguments.
+
+Specific interfaces : \verb'cacos,zacos'
+
+
+\subsubsection{atan}
+\begin{verbatim}
+ atan(x)
+\end{verbatim}
+\begin{itemize}
+ \item x is a real or complex
+\end{itemize}
+This function evaluates the arc tangent of the argument. It is an extension of the intrinsic function atan to complex arguments.
+
+Specific interfaces : \verb'catan,zatan'
+
+\subsubsection{atan2}
+\begin{verbatim}
+ atan2(x,y)
+\end{verbatim}
+\begin{itemize}
+ \item x,y are real or complex
+\end{itemize}
+This function evaluates the arc tangent of $x \over y$. It is an extension of the intrinsic function atan2 to complex arguments.
+
+Specific interfaces : \verb'catan2,zatan2'
+
+\subsubsection{sinh}
+\begin{verbatim}
+ sinh(x)
+\end{verbatim}
+\begin{itemize}
+ \item x is a real or complex
+\end{itemize}
+This function evaluates the hyperbolic sine of the argument. It is an extension of the intrinsic function sinh to complex arguments.
+
+Specific interfaces : \verb'csinh,zsinh'
+
+
+\subsubsection{cosh}
+\begin{verbatim}
+ cosh(x)
+\end{verbatim}
+\begin{itemize}
+ \item x is a real or complex
+\end{itemize}
+This function evaluates the hyperbolic cosine of the argument. It is an extension of the intrinsic function cosh to complex arguments.
+
+Specific interfaces : \verb'ccosh,zcosh'
+
+\subsubsection{tanh}
+\begin{verbatim}
+ tanh(x)
+\end{verbatim}
+This function evaluates the hyperbolic tangent of the argument. It is an extension of the intrinsic function tanh to complex arguments.
+
+Specific interfaces : \verb'ctanh,ztanh'
+
+\subsubsection{asinh}
+\begin{verbatim}
+ asinh(x)
+\end{verbatim}
+\begin{itemize}
+ \item x is a real or complex
+\end{itemize}
+This function evaluates the arc hyperbolic sine of the argument.
+
+Specific interfaces : \verb'asinh,dasinh,casinh,zasinh'
+
+\subsubsection{acosh}
+\begin{verbatim}
+ acosh(x)
+\end{verbatim}
+\begin{itemize}
+ \item x is a real or complex
+\end{itemize}
+This function evaluates the arc hyperbolic cosine of the argument.
+
+Specific interfaces : \verb'acosh,dacosh,cacosh,zacosh'
+
+\subsubsection{atanh}
+\begin{verbatim}
+ atanh(x)
+\end{verbatim}
+\begin{itemize}
+ \item x is a real or complex
+\end{itemize}
+This function evaluates the arc hyperbolic tangent of the argument.
+
+Specific interfaces : \verb'atanh,datanh,catanh,zatanh'
+
+\subsection{Exponential Integral and related}
+\subsubsection{ei}
+\begin{verbatim}
+ ei(x)
+\end{verbatim}
+\begin{itemize}
+ \item x is a real
+\end{itemize}
+This function evaluates the exponential integral for argument greater then 0 and the Cauchy principal value for argument less than 0. It is define by equation \ref{ei} for $x \neq 0$.
+\begin{equation}
+\label{ei}
+ ei(x)= - \int _{-x} ^\infty {e^{-t}\over t}dt
+\end{equation}
+
+Specific interfaces : \verb'ei,dei'
+
+
+\subsubsection{e1}
+\begin{verbatim}
+ e1(x)
+\end{verbatim}
+\begin{itemize}
+ \item x is a real
+\end{itemize}
+This function evaluates the exponential integral for argument greater than 0 and the Cauchy principal value for argument less than 0. It is define by equation \ref{e1} for $x \neq 0$.
+\begin{equation}
+\label{e1}
+ e1(x)= \int _{x} ^\infty {e^{-t}\over t}dt
+\end{equation}
+
+Specific interfaces : \verb'e1,de1'
+
+\subsubsection{ali}
+\begin{verbatim}
+ ali(x)
+\end{verbatim}
+\begin{itemize}
+ \item x is a real
+\end{itemize}
+This function evaluates the logarithm integral. it is define by equation \ref{ali} for $x > 0$ and $x \neq 1$.
+\begin{equation}
+ \label{ali}
+ ali(x)= - \int _0 ^x {dt \over ln(x)}
+\end{equation}
+
+Specific interfaces : \verb'ali,dli'
+
+\subsubsection{si}
+\begin{verbatim}
+ si(x)
+\end{verbatim}
+\begin{itemize}
+ \item x is a real
+\end{itemize}
+This function evaluates the sine integral defined by equation \ref{si}.
+\begin{equation}
+ \label{si}
+ si(x)= \int _0 ^x {sin(t) \over t }dt
+\end{equation}
+
+Specific interfaces : \verb'si,dsi'
+
+
+\subsubsection{ci}
+\begin{verbatim}
+ ci(x)
+\end{verbatim}
+\begin{itemize}
+ \item x is a real
+\end{itemize}
+This function evaluates the cosine integral defined by equation \ref{ci} where $\gamma \approx 0.57721566$ represent Euler's constant.
+\begin{equation}
+ \label{ci}
+ ci(x)= \gamma + ln(x) + \int _0 ^x {{1-cos(t)} \over t} dt
+\end{equation}
+
+Specific interfaces : \verb'ci,dci'
+
+\subsubsection{cin}
 \begin{verbatim}
-g=fvn_d_lngamma(x)
+ cin(x)
 \end{verbatim}
 \begin{itemize}
- \item x (in) is a real(kind=8) 
+ \item x is a real
+\end{itemize}
+This function evaluates the cosine integral alternate definition given by equation \ref{cin}.
+\begin{equation}
+ \label{cin}
+ cin(x)= \int _0 ^x {{1-cos(t)} \over t} dt
+\end{equation}
+
+Specific interface : \verb'cin,dcin'
+
+\subsubsection{shi}
+\begin{equation}
+ shi(x)
+\end{equation}
+\begin{itemize}
+ \item x is a real
 \end{itemize}
-This function return the natural logarithm of gamma(x) : $ln(\Gamma(x))$
+This function evaluates the hyperbolic sine integral defined by equation \ref{shi}.
+\begin{equation}
+ \label{shi}
+ shi(x) = \int _0 ^x {sinh(t) \over t}dt
+\end{equation}
+
+Specific interfaces : \verb'shi,dshi'
 
-\subsection{factorial}
-Only double precision real
+\subsubsection{chi}
 \begin{verbatim}
-f=fvn_d_factorial(n)
+ chi(x)
 \end{verbatim}
 \begin{itemize}
- \item n (in) is an integer
+ \item x is a real
 \end{itemize}
-This function return $n!$ as a real(kind=8). Note that real value is calculated for n lower or equal 32. For higher n, the factorial is evaluated using gamma function.
+This function evaluates the hyperbolic cosine integral defined by equation \ref{chi} where $\gamma \approx 0.57721566$ represent Euler's constant.
+\begin{equation}
+ \label{chi}
+ chi(x)= \gamma + ln(x) + \int _0 ^x {{cosh(t) -1} \over t}dt
+\end{equation}
+
+Specific interfaces : chi,dchi
 
-\subsection{Chebyshev series evaluation}
-Single and double precision real.
+
+\subsubsection{cinh}
 \begin{verbatim}
-s=fvn_*_csevl(x,a,n)      (*=s,d)
+ cinh(x)
 \end{verbatim}
 \begin{itemize}
  \item x is a real
- \item a(n) is a real length n array
+\end{itemize}
+This function evaluates the hyperbolic cosine integral alternate definition given by equation \ref{cinh}.
+\begin{equation}
+ \label{cinh}
+ cinh(x) = \int _0 ^x {{cosh(t) -1} \over t}dt
+\end{equation}
+
+Specific interfaces : cinh,dcinh
+
+
+\subsection{Gamma function and related}
+\subsubsection{fac}
+\begin{verbatim}
+ fac(n)
+\end{verbatim}
+\begin{itemize}
  \item n is an integer
 \end{itemize}
+This function return $n!$ as a real.
+
+Specific interfaces : \verb'fac,dfac'
+
+\subsubsection{binom}
+\begin{verbatim}
+ binom(n,m)
+\end{verbatim}
+\begin{itemize}
+ \item n,m are integers
+\end{itemize}
+This function return the binomial coefficient defined by equation \ref{binom} with $n \geq m \geq 0$.
+\begin{equation}
+ \label{binom}
+ binom(n,m) = C_n^m = {{n!} \over {m!(n-m)!}}
+\end{equation}
+
+Specific interfaces : \verb'binom,dbinom'
+
+
+\subsubsection{gamma}
+\begin{verbatim}
+ gamma(x)
+\end{verbatim}
+\begin{itemize}
+ \item x is a real or complex
+\end{itemize}
+This function evaluates $ \Gamma (x) $ defined by equation \ref{gamma}.
+\begin{equation}
+ \label{gamma}
+ \Gamma (x) = \int _0 ^{\infty} t^{x-1}e^{-t}dt
+\end{equation}
+Note that $n!=\Gamma (n+1)$.
+
+Specific interfaces :\verb'gamma,dgamma,cgamma,zgamm'
+
+\subsubsection{gamr}
+\begin{verbatim}
+ gamr(x)
+\end{verbatim}
+\begin{itemize}
+ \item x is a real or complex
+\end{itemize}
+This function evaluates the reciprocal gamma function $gamr(x)= {1 \over \Gamma(x)}$
+
+
+\subsubsection{alngam}
+\begin{verbatim}
+ alngam(x)
+\end{verbatim}
+\begin{itemize}
+ \item x is a real or complex
+\end{itemize}
+This function evaluates $ln(|\Gamma(x)|)$
+
+Specific interfaces : \verb'alngam,dlngam,clngam,zlngam'
+
+
+\subsubsection{algams}
+\begin{verbatim}
+ call algams(x,algam,sgngam)
+\end{verbatim}
+\begin{itemize}
+ \item x (in) is a real
+ \item algam (out) is a real
+ \item sgngam (out) is a real
+\end{itemize}
+This subroutine evaluates the logarithm of the absolute value of gamma and the sign of gamma. 
+$algam=ln(|\Gamma(x)|)$ and $sgngam=1.0$ or $-1.0$ according to the sign of $\Gamma(x)$.
+
+Specific interfaces : \verb'algams,dlgams'
+
+\subsubsection{gami}
+\begin{verbatim}
+ gami(a,x)
+\end{verbatim}
+\begin{itemize}
+ \item x is a positive real
+ \item a is a strictly positive real
+\end{itemize}
+This function evaluates the incomplete gamma function defined by equation \ref{gami}.
+\begin{equation}
+ \label{gami}
+ gami(a,x)=\gamma(a,x)=\int _0 ^x t^{a-1} e^{-t}dt
+\end{equation}
+
+Specific interfaces : \verb'gami,dgami'
+
+\subsubsection{gamic}
+\begin{verbatim}
+ gamic(a,x)
+\end{verbatim}
+\begin{itemize}
+ \item x is a positive real
+ \item a is a real
+\end{itemize}
+This function evaluates the complementary incomplete gamma function defined by equation \ref{gamic}.
+\begin{equation}
+ \label{gamic}
+ gamic(a,x)=\Gamma(a,x)=\int _x ^\infty t^{a-1} e^{-t}dt
+\end{equation}
+
+Specific interfaces : \verb'gamic,dgamic'
+
+\subsubsection{gamit}
+\begin{verbatim}
+ gamit(a,x)
+\end{verbatim}
+\begin{itemize}
+ \item x is a positive real
+ \item a is a real
+\end{itemize}
+This function evaluates the Tricomi's incomplete gamma function defined by equation \ref{gamit}.
+\begin{equation}
+ \label{gamit}
+ gamit(a,x)=\gamma^* (a,x)= {{x^{-a}\gamma(a,x)}\over \Gamma(a)}
+\end{equation}
+
+Specific interfaces : \verb'gamit,dgamit'
+
+
+\subsubsection{psi}
+\begin{verbatim}
+ psi(x)
+\end{verbatim}
+\begin{itemize}
+ \item x is a real or complex
+\end{itemize}
+This function evaluates the psi function which is the logarithm derivative of the gamma function as defined in equation \ref{psi}.
+\begin{equation}
+ \label{psi}
+  psi(x)= \psi(x) = {d\over dx} ln(\Gamma(x))
+\end{equation}
+x must not be zero or a negative integer.
+
+Specific interfaces : \verb'psi,dpsi,cpsi,zpsi'
+
+
+\subsubsection{poch}
+\begin{verbatim}
+ poch(a,x)
+\end{verbatim}
+\begin{itemize}
+ \item x is a real
+ \item a is a real
+\end{itemize}
+This function evaluates a generalization of Pochhammer's symbol.
+
+Pochhammer's symbol for n a positive integer is given by equation \ref{poch_int}
+\begin{equation}
+ \label{poch_int}
+(a)_n = a(a-1)(a-2)...(a-n+1)
+\end{equation}
+
+The generalization of Pochhammer's symbol is given by equation \ref{poch}
+\begin{equation}
+ \label{poch}
+ poch(a,x)= (a)_x = {\Gamma(a+x) \over \Gamma(a)}
+\end{equation}
+
+Specific interfaces : \verb'poch,dpoch'
+
+
+\subsubsection{poch1}
+\begin{verbatim}
+ poch1(a,x)
+\end{verbatim}
+\begin{itemize}
+ \item x is a real
+ \item a is a real
+\end{itemize}
+This function is defined by equation \ref{poch1}. It is usefull for certains situations, especially when x is small.
+
+\begin{equation}
+ \label{poch1}
+ poch1(a,x)={{(a)_x-1} \over x}
+\end{equation}
+
+Specific interfaces : \verb'poch1,dpoch1'
+
+\subsubsection{beta}
+\begin{verbatim}
+ beta(a,b)
+\end{verbatim}
+\begin{itemize}
+ \item a,b are real positive or complex
+\end{itemize}
+This function evaluates $\beta$ function defined by equation \ref{beta}.
+\begin{equation}
+ \label{beta}
+beta(a,b)=\beta(a,b)={  {\Gamma(a) \Gamma(b)} \over \Gamma(a+b) }
+\end{equation}
+
+Specific interfaces : \verb'beta,dbeta,cbeta,zbeta'
+
+
+\subsubsection{albeta}
+\begin{verbatim}
+ albeta(a,b)
+\end{verbatim}
+\begin{itemize}
+ \item a,b are real positive or complex
+\end{itemize}
+This function evaluates the natural logarithm of beta function : $ln(\beta(a,b))$
+
+Specific interfaces : \verb'albeta,dlbeta,clbeta,zlbeta'
+
+\subsubsection{betai}
+\begin{verbatim}
+ betai(x,pin,qin)
+\end{verbatim}
+\begin{itemize}
+ \item x is a real in [0,1]
+ \item pin and qin are strictly positive real
+\end{itemize}
+This function evaluates the incomplete beta function ratio, that is the probability that a random variable from a beta distribution having parameters pin and qin will be less than or equal to x. It is defined by equation \ref{betai}.
+
+\begin{equation}
+ \label{betai}
+betai(x,pin,qin)=I_x(pin,qin)={1 \over \beta(pin,qin)} \int _0 ^x t^{pin-1}(1-t)^{qin-1}dt
+\end{equation}
+
+Specific interfaces : \verb'betai,dbetai'
+
+\subsection{Error function and related}
+\subsubsection{erf}
+\begin{verbatim}
+ erf(x)
+\end{verbatim}
+\begin{itemize}
+ \item x is a real
+\end{itemize}
+This function evaluates the error function defined by equation \ref{erf}.
+\begin{equation}
+ \label{erf}
+ erf(x)={2\over \sqrt{ \pi}} \int _0 ^x e^{-t^2}dt
+\end{equation}
+
+Specific interfaces : \verb'erf,derf'
+
+\subsubsection{erfc}
+\begin{verbatim}
+ erfc(x)
+\end{verbatim}
+\begin{itemize}
+ \item x is a real
+\end{itemize}
+This function evaluates the complimentary error function defined by equation \ref{erfc}.
+\begin{equation}
+ \label{erfc}
+ erfc(x)={2\over \sqrt{ \pi}} \int _x ^\infty e^{-t^2}dt
+\end{equation}
+
+Specific interfaces : \verb'erfc,derfc'
+
+
+\subsubsection{daws}
+\begin{verbatim}
+ daws(x)
+\end{verbatim}
+\begin{itemize}
+ \item x is a real
+\end{itemize}
+This function evaluates Dawson's function defined by equation \ref{daws}.
+\begin{equation}
+ \label{daws}
+daws(x)=e^{-x^2} \int _0 ^x e^{t^2}dt
+\end{equation}
+
+Specific interfaces : \verb'daws,ddaws'
+
+\subsection{Bessel functions and related}
+\subsubsection{bsj0}
+\begin{verbatim}
+ bsj0(x)
+\end{verbatim}
+\begin{itemize}
+ \item x is a real
+\end{itemize}
+This function evaluates Bessel function of the first kind of order 0 defined by equation \ref{bsj0}.
+\begin{equation}
+ \label{bsj0}
+ bsj0(x)=J_0(x)= {1 \over \pi} \int _0 ^\pi cos(x sin(\theta)) d\theta
+\end{equation}
+
+Specific interfaces : \verb'besj0,dbesj0'
+
+\subsubsection{bsj1}
+\begin{verbatim}
+ bsj1(x)
+\end{verbatim}
+\begin{itemize}
+ \item x is a real
+\end{itemize}
+This function evaluates Bessel function of the first kind of order 1 defined by equation \ref{bsj1}.
+\begin{equation}
+ \label{bsj1}
+bsj1(x)=J_1(x)={1 \over \pi} \int _0 ^\pi cos(x sin(\theta)-\theta) d\theta
+\end{equation}
+
+Specific interfaces : \verb'besj1,dbesj1'
+
+\subsubsection{bsy0}
+\begin{verbatim}
+ bsy0(x)
+\end{verbatim}
+\begin{itemize}
+ \item x is a real
+\end{itemize}
+This function evaluates the Bessel function of the second kind of order 0 defined by equation \ref{bsy0}
+\begin{equation}
+ \label{bsy0}
+ bsy0(x)=Y_0(x)={1 \over \pi} \int _0 ^\pi sin(x sin(\theta))d\theta -{2 \over \pi} \int _0 ^\infty e^{-x sinh(t)}dt
+\end{equation}
+
+Specific interfaces : \verb'besy0,dbesy0'
+
+\subsubsection{bsy1}
+\begin{verbatim}
+ bsy1(x)
+\end{verbatim}
+\begin{itemize}
+ \item x is a real
+\end{itemize}
+This function evaluates the Bessel function of the second kind of order 1 defined by equation \ref{bsy1}.
+\begin{equation}
+ \label{bsy1}
+ bsy1(x)=Y_1(x)=-{1 \over \pi} \int _0 ^\pi sin (\theta - x sin(\theta)) d\theta 
+- {1 \over \pi} \int _0 ^\infty (e^t -e^{-t})e^{-x sinh(t)}dt
+\end{equation}
+
+Specific interfaces : \verb'besy1,dbesy1'
+
+\subsubsection{bsi0}
+\begin{verbatim}
+ bsi0(x)
+\end{verbatim}
+\begin{itemize}
+ \item x is a real
+\end{itemize}
+This function evaluates the Bessel function of the third kind of order 0 defined by equation \ref{bsi0}.
+\begin{equation}
+ \label{bsi0}
+bsi0(x)=I_0(x)={1 \over \pi} \int _0 ^\pi cosh(x cos(\theta))d\theta
+\end{equation}
+
+Specific interfaces : \verb'besi0,dbesi0'
+
+\subsubsection{bsi1}
+\begin{verbatim}
+ bsi1(x)
+\end{verbatim}
+\begin{itemize}
+ \item x is a real
+\end{itemize}
+This function evaluates the Bessel function of the third kind of order 1 defined by equation \ref{bsi1}.
+\begin{equation}
+ \label{bsi1}
+bsi1(x)=I_1(x)={1 \over \pi} \int _0 ^\pi e^{x cos(\theta)} cos(\theta)d\theta
+\end{equation}
+
+Specific interfaces : \verb'besi1,dbesi1'
+
+\subsubsection{bsk0}
+\begin{verbatim}
+ bsk0(x)
+\end{verbatim}
+\begin{itemize}
+ \item x is a strictly positive real
+\end{itemize}
+This function evaluates the modified Bessel function of the second kind of order 0 defined by equation \ref{bsk0}
+\begin{equation}
+ \label{bsk0}
+bsk0(x)=K_0(x)=\int _0 ^\infty cos(x sinh(t))dt
+\end{equation}
+
+Specific interfaces : \verb'besk0,dbesk0'
+
+\subsubsection{bsk1}
+\begin{verbatim}
+ bsk1(x)
+\end{verbatim}
+\begin{itemize}
+ \item x is a strictly positive real
+\end{itemize}
+This function evaluates the modified Bessel function of the second kind of order 1 defined by equation \ref{bsk1}
+\begin{equation}
+ \label{bsk1}
+bsk1(x)=K_1(x)=\int _0 ^\infty sin(x sinh(t))sinh(t)dt
+\end{equation}
+
+Specific interfaces : \verb'besk1,dbesk1'
+
+\subsubsection{bsi0e}
+\begin{verbatim}
+ bsi0e(x)
+\end{verbatim}
+\begin{itemize}
+ \item x is a real
+\end{itemize}
+This function evaluates $e^{-|x|}I_0(x)$
+
+Specific interfaces : \verb'besi0e,dbsi0e'
+
+\subsubsection{bsi1e}
+\begin{verbatim}
+ bsi1e(x)
+\end{verbatim}
+\begin{itemize}
+ \item x is a real
+\end{itemize}
+This function evaluates $e^{-|x|}I_1(x)$
+
+Specific interfaces : \verb'besi1e,dbsi1e'
+
+\subsubsection{bsk0e}
+\begin{verbatim}
+ bsk0e(x)
+\end{verbatim}
+\begin{itemize}
+ \item x is a strictly positive real
+\end{itemize}
+This function evaluates $e^x K_0(x)$
+
+Specific interfaces : \verb'besk0e,dbsk0e'
+
+\subsubsection{bsk1e}
+\begin{verbatim}
+ bsk1e(x)
+\end{verbatim}
+\begin{itemize}
+ \item x is a strictly positive real
+\end{itemize}
+This function evaluates $e^x K_1(x)$
+
+Specific interfaces : \verb'besk1e,dbsk1e'
+
+\subsubsection{bsks}
+\begin{verbatim}
+ call bsks(xnu,x,nin,bk)
+\end{verbatim}
+\begin{itemize}
+ \item xnu (in) is a real with $|xnu|<1$. It's the fractional order
+ \item x (in) is a real. The value for which the sequence of Bessel functions is to be evaluated.
+ \item nin (in) is an integer.
+ \item bk (out) is a real vector of length abs(nin), containing the values of the function.
+\end{itemize}
+This subroutine evaluates a sequence of modified Bessel function of the second kind of fractional order.
+
+If nin is positive, on completion $bk(1)=K_\nu(x)$,$bk(2)=K_{\nu+1}(x)$,...,$bk(nin)=K_{\nu+nin-1}(x)$. If nin is negative, on completion $bk(1)=K_\nu(x)$,$bk(2)=K_{\nu-1}(x)$,...,$bk(|nin|)=K_{\nu+nin+1}(x)$.
+
+Specific interfaces : \verb'besks,dbesks'
+
+\subsubsection{bskes}
+\begin{verbatim}
+ call bskes(xnu,x,nin,bke)
+\end{verbatim}
+\begin{itemize}
+ \item xnu (in) is a real with $|xnu|<1$. It's the fractional order
+ \item x (in) is a real. The value for which the sequence of exponentialy scaled Bessel functions is to be evaluated.
+ \item nin (in) is an integer. Number of elements in the sequence.
+ \item bke (out) is a real vector of length abs(nin), containing the values of the function.
+\end{itemize}
+This subroutine evaluates a sequence of exponentially scaled modified Bessel function of the second kind of fractional order.
+
+If nin is positive, on completion $bk(1)=e^x K_\nu(x)$,$bk(2)=e^x K_{\nu+1}(x)$,...,$bk(nin)=e^x K_{\nu+nin-1}(x)$. If nin is negative, on completion $bk(1)=e^x K_\nu(x)$,$bk(2)=e^x K_{\nu-1}(x)$,...,$bk(|nin|)=e^x K_{\nu+nin+1}(x)$.
+
+Specific interfaces : \verb'beskes,dbskes'
+
+\subsection{Airy function and related}
+\subsubsection{ai}
+\begin{verbatim}
+ ai(x)
+\end{verbatim}
+\begin{itemize}
+ \item x is a real
+\end{itemize}
+This function evaluates the airy function defined by equation \ref{ai}
+\begin{equation}
+ \label{ai}
+Ai(x)={1 \over \pi} \int _0 ^\infty cos(xt+ {1 \over 3}t^3)dt
+\end{equation}
+
+Specific interfaces : \verb'ai,dai'
+
+\subsubsection{bi}
+\begin{verbatim}
+ bi(x)
+\end{verbatim}
+\begin{itemize}
+ \item x is a real
+\end{itemize}
+This function evaluates the Airy function of the second kind defined by equation \ref{bi}
+\begin{equation}
+ \label{bi}
+Bi(x)={1 \over \pi} \int _0 ^\infty e^{xt- {1 \over 3}t^3}dt +
+{1 \over \pi} \int _0 ^\infty sin(xt+ {1 \over 3}t^3)dt
+\end{equation}
+
+Specific interfaces : \verb'bi,dbi'
+
+
+\subsubsection{aid}
+\begin{verbatim}
+ aid(x)
+\end{verbatim}
+\begin{itemize}
+ \item x is a real
+\end{itemize}
+This function evaluates the derivative of the Airy function, $aid(x)={d \over {dx}}Ai(x)$.
+
+Specific interface : \verb'aid,daid'
+
+\subsubsection{bid}
+\begin{verbatim}
+ bid(x)
+\end{verbatim}
+\begin{itemize}
+ \item x is a real
+\end{itemize}
+This function evaluates the derivative of the Airy function of the second kind, $bid(x)={d \over {dx}}Bi(x)$.
+
+Specific interfaces : \verb'bid,dbid'
+
+
+\subsubsection{aie}
+\begin{verbatim}
+ aie(x)
+\end{verbatim}
+\begin{itemize}
+ \item x is a real
+\end{itemize}
+
+This function evaluates the exponentially scaled Airy function defined in equation \ref{aie}.
+\begin{equation}
+ \label{aie}
+aie(x)=Ai(x) \textrm{~if~}x\leq0 \qquad \qquad aie(x)=e^{{2\over3}x^{3\over2}}Ai(x)\rm{~if~}x>0
+\end{equation}
+
+Specific interfaces : \verb'aie,daie'
+
+\subsubsection{bie}
+
+\begin{verbatim}
+ bie(x)
+\end{verbatim}
+\begin{itemize}
+ \item x is a real
+\end{itemize}
+This function evaluates the exponentially scaled Airy function of the second kind defined in equation \ref{bie}.
+\begin{equation}
+ \label{bie}
+bie(x)=Bi(x)\textrm{~if~}x\leq0 \qquad \qquad bie(x)=e^{-{2\over3}x^{3\over2}}Bi(x)\rm{~if~}x>0
+\end{equation}
+
+Specific interfaces : \verb'bie,dbie'
+
+\subsubsection{aide}
+\begin{verbatim}
+ aide(x)
+\end{verbatim}
+\begin{itemize}
+ \item x is a real
+\end{itemize}
+This function evaluates the exponentially scaled derivative of the Airy function as defined in equation \ref{aide}.
+\begin{equation}
+ \label{aide}
+aie(x)=Ai^\prime(x) \textrm{~if~}x\leq0 \qquad \qquad aie(x)=e^{{2\over3}x^{3\over2}}Ai^\prime(x)\rm{~if~}x>0
+\end{equation}
+
+Specific interfaces : \verb'aide,daide'
+
+
+\subsubsection{bide}
+\begin{verbatim}
+ bide(x)
+\end{verbatim}
+\begin{itemize}
+ \item x is a real
+\end{itemize}
+This function evaluates the exponentially scaled derivative of the Airy function of the second kind as defined in equation \ref{bide}.
+\begin{equation}
+ \label{bide}
+bie(x)=Bi^\prime(x)\textrm{~if~}x\leq0 \qquad \qquad bie(x)=e^{-{2\over3}x^{3\over2}}Bi^\prime(x)\rm{~if~}x>0
+\end{equation}
+
+Specific interfaces : \verb'bide,dbide'
+
+
+\subsection{Miscellanous functions}
+\subsubsection{spenc}
+\begin{verbatim}
+ spenc(x)
+\end{verbatim}
+\begin{itemize}
+ \item x is a real
+\end{itemize}
+This function evaluates Spence function defined in equation \ref{spenc}.
+\begin{equation}
+ \label{spenc}
+spenc(x)=s(x)=- \int_0^x {{ln(|1-t|)}\over t}dt
+\end{equation}
+
+Specific interfaces : \verb'spenc,dspenc'
+
+
+\subsubsection{inits}
+\begin{verbatim}
+ inits(os,nos,eta)
+\end{verbatim}
+\begin{itemize}
+ \item os is a real vector of length nos, containing the coefficients in an orthogonal series.
+ \item nos is an integer
+ \item eta is a real (Warning eta is a real(4) even with the double precision version) representing the requested accuracy.
+\end{itemize}
+This function initialize the orthogonal series so that inits is the number of terms needed to insure the error is no larger than eta.
+
+Specific interfaces : \verb'inits,initds'
+
+
+\subsubsection{csevl}
+\begin{verbatim}
+ csevl(x,cs,n)
+\end{verbatim}
+\begin{itemize}
+ \item x is a real in [-1,1]
+ \item cs is a real vector of length n containing the coefficients of the Chebyshev serie.
+ \item n is an integer
+\end{itemize}
+This function evaluates the Chebyshev series whose coefficients are stored in cs.
+
+Specific interfaces : \verb'csevl,dcsevl'
+
+
 
-This function evaluates a Chebyshev series at point x. The coefficients are stored in the array a. The value x must lie in the interval [-1,1] (however no test is performed).
 
 \end{document}
diff --git a/fvn_fnlib/Makefile b/fvn_fnlib/Makefile
new file mode 100644
index 0000000..c9def1c
--- /dev/null
+++ b/fvn_fnlib/Makefile
@@ -0,0 +1,89 @@
+
+include $(BTREE)/Make.inc
+
+library = libfvn_fnlib.a
+
+objects = acosh.o aide.o aid.o aie.o  \
+ai.o albeta.o algams.o ali.o  \
+alngam.o alnrel.o asinh.o atanh.o  \
+besi0e.o besi0.o besi1e.o besi1.o  \
+besj0.o besj1.o besk0e.o besk0.o  \
+besk1e.o besk1.o beskes.o besks.o  \
+besy0.o besy1.o betai.o beta.o  \
+bide.o bid.o bie.o binom.o  \
+bi.o c0lgmc.o c8lgmc.o c9lgmc.o  \
+c9ln2r.o cacosh.o cacos.o carg.o  \
+casinh.o casin.o catan2.o catanh.o  \
+catan.o cbeta.o cbrt.o ccbrt.o  \
+ccosh.o ccot.o cexprl.o cgamma.o  \
+cgamr.o chi.o chu.o cinh.o  \
+cin.o ci.o clbeta.o clngam.o  \
+clnrel.o clog10.o comp1.o comp2.o  \
+comp3.o cosdg.o cot.o cpsi.o  \
+csevl.o csinh.o ctanh.o ctan.o  \
+d1mach.o d9admp.o d9aimp.o d9atn1.o  \
+d9b0mp.o d9b1mp.o d9chm.o d9chu.o  \
+d9gaml.o d9gmic.o d9gmit.o d9knus.o  \
+d9lgic.o d9lgit.o d9lgmc.o d9ln2r.o  \
+d9pak.o d9sifg.o d9upak.o dacosh.o  \
+daide.o daid.o daie.o dai.o  \
+dasinh.o datanh.o daws.o dbesi0.o  \
+dbesi1.o dbesj0.o dbesj1.o dbesk0.o  \
+dbesk1.o dbesks.o dbesy0.o dbesy1.o  \
+dbetai.o dbeta.o dbide.o dbid.o  \
+dbie.o dbinom.o dbi.o dbsi0e.o  \
+dbsi1e.o dbsk0e.o dbsk1e.o dbskes.o  \
+dcbrt.o dchi.o dchu.o dcinh.o  \
+dcin.o dci.o dcosdg.o dcot.o  \
+dcsevl.o ddaws.o de1.o dei.o  \
+derfc.o derf.o dexprl.o dfac.o  \
+dgamic.o dgami.o dgamit.o dgamma.o  \
+dgamr.o dlbeta.o dlgams.o dli.o  \
+dlngam.o dlnrel.o dpoch1.o dpoch.o  \
+dpsi.o dshi.o dsindg.o dsi.o  \
+dspenc.o e1.o e9rint.o ei.o  \
+entsrc.o eprint.o erfc.o erf.o  \
+erroff.o exprel.o fac.o fdump.o  \
+fvn_fnlib.o gamic.o gami.o gamit.o  \
+gamma.o gamr.o i1mach.o i8save.o  \
+initds.o inits.o nerror.o poch1.o  \
+poch.o psi.o r1mach.o r9admp.o  \
+r9aimp.o r9atn1.o r9chm.o r9chu.o  \
+r9gaml.o r9gmic.o r9gmit.o r9knus.o  \
+r9lgic.o r9lgit.o r9lgmc.o r9ln2r.o  \
+r9pak.o r9sifg.o r9upak.o randgs.o  \
+rand.o random.o ranf.o retsrc.o  \
+s88fmt.o s9comp.o seterr.o seteru.o  \
+shi.o sindg.o si.o spenc.o  \
+z0lgmc.o z8lgmc.o z9lgmc.o z9ln2r.o  \
+zacosh.o zacos.o zarg.o zasinh.o  \
+zasin.o zatan2.o zatanh.o zatan.o  \
+zbeta.o zcbrt.o zcosh.o zcot.o  \
+zexprl.o zgamma.o zgamr.o zlbeta.o  \
+zlngam.o zlnrel.o zlog10.o zpsi.o  \
+zsinh.o ztanh.o ztan.o
+
+lib:$(library)
+
+$(library): $(objects)
+		$(AR) rcu $@ $(objects)
+		$(AR) s $@
+
+install:
+		cp fvn_fnlib.mod $(BTREE)/modules
+		cp libfvn_fnlib.a $(BTREE)/lib
+
+clean:
+		rm -f {*.o,*.oo,*.ipo,*.a,*.mod}
+
+%.o: %.f90
+		$(F95) $(F95FLAGS) -c $<
+
+%.o: %.f
+		$(F95) $(F95FLAGS) -c $<
+
+
+
+
+
+
diff --git a/fvn_fnlib/acosh.f b/fvn_fnlib/acosh.f
new file mode 100644
index 0000000..b2847fd
--- /dev/null
+++ b/fvn_fnlib/acosh.f
@@ -0,0 +1,15 @@
+      function acosh (x)
+c april 1977 edition.  w. fullerton, c3, los alamos scientific lab.
+      external  r1machsqrt
+      data aln2 / 0.6931471805 5994530942e0/
+      data xmax /0./
+c
+      if (xmax.eq.0.) xmax = 1.0/sqrt(r1mach(3))
+c
+      if (x.lt.1.0) call seteru (21hacosh   x less than 1, 21, 1, 2)
+c
+      if (x.lt.xmax) acosh = alog (x + sqrt(x*x-1.0))
+      if (x.ge.xmax) acosh = aln2 + alog(x)
+c
+      return
+      end
diff --git a/fvn_fnlib/ai.f b/fvn_fnlib/ai.f
new file mode 100644
index 0000000..ecb81ff
--- /dev/null
+++ b/fvn_fnlib/ai.f
@@ -0,0 +1,67 @@
+      function ai (x)
+c july 1977 edition.  w. fullerton, c3, los alamos scientific lab.
+      dimension aifcs(9), aigcs(8)
+      external aie,  csevl,  inits, r1mach
+c
+c series for aif        on the interval -1.00000d+00 to  1.00000d+00
+c                                        with weighted error   1.09e-19
+c                                         log weighted error  18.96
+c                               significant figures required  17.76
+c                                    decimal places required  19.44
+c
+      data aif cs( 1) /   -.0379713584 9666999750e0 /
+      data aif cs( 2) /    .0591918885 3726363857e0 /
+      data aif cs( 3) /    .0009862928 0577279975e0 /
+      data aif cs( 4) /    .0000068488 4381907656e0 /
+      data aif cs( 5) /    .0000000259 4202596219e0 /
+      data aif cs( 6) /    .0000000000 6176612774e0 /
+      data aif cs( 7) /    .0000000000 0010092454e0 /
+      data aif cs( 8) /    .0000000000 0000012014e0 /
+      data aif cs( 9) /    .0000000000 0000000010e0 /
+c
+c series for aig        on the interval -1.00000d+00 to  1.00000d+00
+c                                        with weighted error   1.51e-17
+c                                         log weighted error  16.82
+c                               significant figures required  15.19
+c                                    decimal places required  17.27
+c
+      data aig cs( 1) /    .0181523655 8116127e0 /
+      data aig cs( 2) /    .0215725631 6601076e0 /
+      data aig cs( 3) /    .0002567835 6987483e0 /
+      data aig cs( 4) /    .0000014265 2141197e0 /
+      data aig cs( 5) /    .0000000045 7211492e0 /
+      data aig cs( 6) /    .0000000000 0952517e0 /
+      data aig cs( 7) /    .0000000000 0001392e0 /
+      data aig cs( 8) /    .0000000000 0000001e0 /
+c
+      data naif, naig, x3sml, xmax / 2*0, 2*0.0 /
+c
+      if (naif.ne.0) go to 10
+      naif = inits (aifcs, 9, 0.1*r1mach(3))
+      naig = inits (aigcs, 8, 0.1*r1mach(3))
+c
+      x3sml = r1mach(3)**0.3334
+      xmax = (-1.5*alog(r1mach(1)))**0.6667
+      xmax = xmax - xmax*alog(xmax)/(4.0*xmax*sqrt(xmax)+1.0) - 0.01
+c
+ 10   if (x.ge.(-1.0)) go to 20
+      call r9aimp (x, xm, theta)
+      ai = xm * cos(theta)
+      return
+c
+ 20   if (x.gt.1.0) go to 30
+      z = 0.0
+      if (abs(x).gt.x3sml) z = x**3
+      ai = 0.375 + (csevl (z, aifcs, naif) - x*(0.25 +
+     1  csevl (z, aigcs, naig)) )
+      return
+c
+ 30   if (x.gt.xmax) go to 40
+      ai = aie(x) * exp(-2.0*x*sqrt(x)/3.0)
+      return
+c
+ 40   ai = 0.0
+      call seteru (30hai      x so big ai underflows, 30, 1, 0)
+      return
+c
+      end
diff --git a/fvn_fnlib/aid.f b/fvn_fnlib/aid.f
new file mode 100644
index 0000000..861b366
--- /dev/null
+++ b/fvn_fnlib/aid.f
@@ -0,0 +1,66 @@
+      function aid (x)
+c july 1980 edition.  w. fullerton, bell labs.
+c
+c evaluate the derivative of the airy function ai(x).
+c
+      dimension aifcs(8), aigcs(9)
+      external aide,  csevl, inits, r1mach
+c
+c series for aif on the interval -1.00000e+00 to  1.00000e+00
+c                                        with weighted error   5.22e-18
+c                                         log weighted error  17.28
+c                               significant figures required  16.01
+c                                    decimal places required  17.73
+c
+      data aifcs(  1) /     0.1052746122 6531408809 e0/
+      data aifcs(  2) /     0.0118361362 8152997844 e0/
+      data aifcs(  3) /     0.0001232810 4173225664 e0/
+      data aifcs(  4) /     0.0000006226 1225638140 e0/
+      data aifcs(  5) /     0.0000000018 5298887844 e0/
+      data aifcs(  6) /     0.0000000000 0363328873 e0/
+      data aifcs(  7) /     0.0000000000 0000504622 e0/
+      data aifcs(  8) /     0.0000000000 0000000522 e0/
+c
+c series for aig on the interval -1.00000e+00 to  1.00000e+00
+c                                        with weighted error   3.14e-19
+c                                         log weighted error  18.50
+c                               significant figures required  17.44
+c                                    decimal places required  18.98
+c
+      data aigcs(  1) /     0.0212338781 5091866685 2e0/
+      data aigcs(  2) /     0.0863159303 3521440675 2e0/
+      data aigcs(  3) /     0.0017975947 2038323135 8e0/
+      data aigcs(  4) /     0.0000142654 9987555069 3e0/
+      data aigcs(  5) /     0.0000000594 3799528368 3e0/
+      data aigcs(  6) /     0.0000000001 5240336647 9e0/
+      data aigcs(  7) /     0.0000000000 0026458766 0e0/
+      data aigcs(  8) /     0.0000000000 0000033156 2e0/
+      data aigcs(  9) /     0.0000000000 0000000031 4e0/
+c
+      data naif, naig, x2sml, x3sml / 2*0, 2*0.0 /
+c
+      if (naif.ne.0) go to 10
+      naif = inits (aifcs, 8, 0.1*r1mach(3))
+      naig = inits (aigcs, 9, 0.1*r1mach(3))
+c
+      x3sml = r1mach(3)**0.3334
+      x2sml = sqrt(r1mach(3))
+c
+ 10   if (x.ge.(-1.0)) go to 20
+      call r9admp (x, xn, phi)
+      aid = xn * cos(phi)
+      return
+c
+ 20   if (x.gt.1.0) go to 30
+      x3 = 0.0
+      if (abs(x).gt.x3sml) x3 = x**3
+      x2 = 0.0
+      if (abs(x).gt.x2sml) x2 = x*x
+      aid = (x2*(0.125 + csevl (x3, aifcs, naif)) -
+     1  csevl (x3, aigcs, naig)) - 0.25
+      return
+c
+ 30   aid = aide(x) * exp(-2.0*x*sqrt(x)/3.0)
+      return
+c
+      end
diff --git a/fvn_fnlib/aide.f b/fvn_fnlib/aide.f
new file mode 100644
index 0000000..95375d9
--- /dev/null
+++ b/fvn_fnlib/aide.f
@@ -0,0 +1,138 @@
+      function aide (x)
+c july 1980 edition.  w. fullerton, bell labs.
+c
+c evaluate the derivative of the airy function for x .le. 0
+c and evaluate aid(x)*exp(zeta) for x .ge. 0 where
+c    zeta = 2/3 * x**(3/2)
+c
+      dimension aifcs(8), aigcs(9), aip1cs(25), aip2cs(15)
+      external  csevl, inits, r1mach
+c
+c series for aif on the interval -1.00000e+00 to  1.00000e+00
+c                                        with weighted error   5.22e-18
+c                                         log weighted error  17.28
+c                               significant figures required  16.01
+c                                    decimal places required  17.73
+c
+      data aifcs(  1) /     0.1052746122 6531408809 e0/
+      data aifcs(  2) /     0.0118361362 8152997844 e0/
+      data aifcs(  3) /     0.0001232810 4173225664 e0/
+      data aifcs(  4) /     0.0000006226 1225638140 e0/
+      data aifcs(  5) /     0.0000000018 5298887844 e0/
+      data aifcs(  6) /     0.0000000000 0363328873 e0/
+      data aifcs(  7) /     0.0000000000 0000504622 e0/
+      data aifcs(  8) /     0.0000000000 0000000522 e0/
+c
+c series for aig on the interval -1.00000e+00 to  1.00000e+00
+c                                        with weighted error   3.14e-19
+c                                         log weighted error  18.50
+c                               significant figures required  17.44
+c                                    decimal places required  18.98
+c
+      data aigcs(  1) /     0.0212338781 5091866685 2e0/
+      data aigcs(  2) /     0.0863159303 3521440675 2e0/
+      data aigcs(  3) /     0.0017975947 2038323135 8e0/
+      data aigcs(  4) /     0.0000142654 9987555069 3e0/
+      data aigcs(  5) /     0.0000000594 3799528368 3e0/
+      data aigcs(  6) /     0.0000000001 5240336647 9e0/
+      data aigcs(  7) /     0.0000000000 0026458766 0e0/
+      data aigcs(  8) /     0.0000000000 0000033156 2e0/
+      data aigcs(  9) /     0.0000000000 0000000031 4e0/
+c
+c series for aip2 on the interval  0.00000e+00 to  1.25000e-01
+c                                        with weighted error   2.15e-17
+c                                         log weighted error  16.67
+c                               significant figures required  14.27
+c                                    decimal places required  17.26
+c
+      data aip2cs(  1) /     0.0065457691 989713757 e0/
+      data aip2cs(  2) /     0.0023833724 120774592 e0/
+      data aip2cs(  3) /    -0.0000430700 770220586 e0/
+      data aip2cs(  4) /     0.0000015629 125858629 e0/
+      data aip2cs(  5) /    -0.0000000815 417186163 e0/
+      data aip2cs(  6) /     0.0000000054 103738057 e0/
+      data aip2cs(  7) /    -0.0000000004 284130883 e0/
+      data aip2cs(  8) /     0.0000000000 389497963 e0/
+      data aip2cs(  9) /    -0.0000000000 039623161 e0/
+      data aip2cs( 10) /     0.0000000000 004428184 e0/
+      data aip2cs( 11) /    -0.0000000000 000536297 e0/
+      data aip2cs( 12) /     0.0000000000 000069650 e0/
+      data aip2cs( 13) /    -0.0000000000 000009620 e0/
+      data aip2cs( 14) /     0.0000000000 000001403 e0/
+      data aip2cs( 15) /    -0.0000000000 000000215 e0/
+c
+c series for aip1 on the interval  1.25000e-01 to  1.00000e+00
+c                                        with weighted error   2.60e-17
+c                                         log weighted error  16.58
+c                               significant figures required  14.91
+c                                    decimal places required  17.28
+c
+      data aip1cs(  1) /     0.0358865097 808301538 e0/
+      data aip1cs(  2) /     0.0114668575 627764899 e0/
+      data aip1cs(  3) /    -0.0007592073 583861400 e0/
+      data aip1cs(  4) /     0.0000869517 610893841 e0/
+      data aip1cs(  5) /    -0.0000128237 294298592 e0/
+      data aip1cs(  6) /     0.0000022062 695681038 e0/
+      data aip1cs(  7) /    -0.0000004222 295185921 e0/
+      data aip1cs(  8) /     0.0000000874 686415726 e0/
+      data aip1cs(  9) /    -0.0000000192 773588418 e0/
+      data aip1cs( 10) /     0.0000000044 668460054 e0/
+      data aip1cs( 11) /    -0.0000000010 790108052 e0/
+      data aip1cs( 12) /     0.0000000002 700029447 e0/
+      data aip1cs( 13) /    -0.0000000000 696480108 e0/
+      data aip1cs( 14) /     0.0000000000 184489907 e0/
+      data aip1cs( 15) /    -0.0000000000 050027817 e0/
+      data aip1cs( 16) /     0.0000000000 013852243 e0/
+      data aip1cs( 17) /    -0.0000000000 003908218 e0/
+      data aip1cs( 18) /     0.0000000000 001121536 e0/
+      data aip1cs( 19) /    -0.0000000000 000326862 e0/
+      data aip1cs( 20) /     0.0000000000 000096619 e0/
+      data aip1cs( 21) /    -0.0000000000 000028935 e0/
+      data aip1cs( 22) /     0.0000000000 000008770 e0/
+      data aip1cs( 23) /    -0.0000000000 000002688 e0/
+      data aip1cs( 24) /     0.0000000000 000000832 e0/
+      data aip1cs( 25) /    -0.0000000000 000000260 e0/
+c
+      data naif, naig, naip1, naip2 / 4*0 /
+      data x2sml, x3sml, x32sml, xbig / 4*0.0 /
+c
+      if (naif.ne.0) go to 10
+      eta = 0.1*r1mach(3)
+      naif = inits (aifcs, 8, eta)
+      naig = inits (aigcs, 9, eta)
+      naip1 = inits (aip1cs, 25, eta)
+      naip2 = inits (aip2cs, 15, eta)
+c
+      x2sml = sqrt (eta)
+      x3sml = eta**0.3333
+      x32sml = 1.3104*x3sml**2
+      xbig = r1mach(2)**0.6666
+c
+ 10   if (x.ge.(-1.0)) go to 20
+      call r9admp (x, xn, phi)
+      aide = xn * cos(phi)
+      return
+c
+ 20   if (x.gt.1.0) go to 30
+      x3 = 0.0
+      if (abs(x).gt.x3sml) x3 = x**3
+      x2 = 0.0
+      if (abs(x).gt.x2sml) x2 = x*x
+      aide = (x2*(0.125 + csevl (x3, aifcs, naif)) -
+     1  csevl (x3, aigcs, naig)) - 0.25
+      if (x.gt.x32sml) aide = aide * exp (2.0*x*sqrt(x)/3.0)
+      return
+c
+ 30   if (x.gt.4.0) go to 40
+      sqrtx = sqrt(x)
+      z = (16.0/(x*sqrtx) - 9.0)/7.0
+      aide = (-0.28125 - csevl (z, aip1cs, naip1)) * sqrt(sqrtx)
+      return
+c
+ 40   sqrtx = sqrt(x)
+      z = -1.0
+      if (x.lt.xbig) z = 16.0/(x*sqrtx) - 1.0
+      aide = (-0.28125 - csevl (z, aip2cs, naip2)) * sqrt(sqrtx)
+      return
+c
+      end
diff --git a/fvn_fnlib/aie.f b/fvn_fnlib/aie.f
new file mode 100644
index 0000000..17e50f4
--- /dev/null
+++ b/fvn_fnlib/aie.f
@@ -0,0 +1,114 @@
+      function aie (x)
+c july 1977 edition.  w. fullerton, c3, los alamos scientific lab.
+c
+c evaluate ai(x) for x .le. 0.0 and  ai(x)*exp(zeta)  where
+c zeta = 2/3 * x**(3/2)  for x .ge. 0.0
+c
+      dimension aifcs(9), aigcs(8), aipcs(34)
+      external  csevl, inits, r1mach
+c
+c series for aif        on the interval -1.00000d+00 to  1.00000d+00
+c                                        with weighted error   1.09e-19
+c                                         log weighted error  18.96
+c                               significant figures required  17.76
+c                                    decimal places required  19.44
+c
+      data aif cs( 1) /   -.0379713584 9666999750e0 /
+      data aif cs( 2) /    .0591918885 3726363857e0 /
+      data aif cs( 3) /    .0009862928 0577279975e0 /
+      data aif cs( 4) /    .0000068488 4381907656e0 /
+      data aif cs( 5) /    .0000000259 4202596219e0 /
+      data aif cs( 6) /    .0000000000 6176612774e0 /
+      data aif cs( 7) /    .0000000000 0010092454e0 /
+      data aif cs( 8) /    .0000000000 0000012014e0 /
+      data aif cs( 9) /    .0000000000 0000000010e0 /
+c
+c series for aig        on the interval -1.00000d+00 to  1.00000d+00
+c                                        with weighted error   1.51e-17
+c                                         log weighted error  16.82
+c                               significant figures required  15.19
+c                                    decimal places required  17.27
+c
+      data aig cs( 1) /    .0181523655 8116127e0 /
+      data aig cs( 2) /    .0215725631 6601076e0 /
+      data aig cs( 3) /    .0002567835 6987483e0 /
+      data aig cs( 4) /    .0000014265 2141197e0 /
+      data aig cs( 5) /    .0000000045 7211492e0 /
+      data aig cs( 6) /    .0000000000 0952517e0 /
+      data aig cs( 7) /    .0000000000 0001392e0 /
+      data aig cs( 8) /    .0000000000 0000001e0 /
+c
+c series for aip        on the interval  0.          to  1.00000d+00
+c                                        with weighted error   5.10e-17
+c                                         log weighted error  16.29
+c                               significant figures required  14.41
+c                                    decimal places required  17.06
+c
+      data aip cs( 1) /   -.0187519297 793868e0 /
+      data aip cs( 2) /   -.0091443848 250055e0 /
+      data aip cs( 3) /    .0009010457 337825e0 /
+      data aip cs( 4) /   -.0001394184 127221e0 /
+      data aip cs( 5) /    .0000273815 815785e0 /
+      data aip cs( 6) /   -.0000062750 421119e0 /
+      data aip cs( 7) /    .0000016064 844184e0 /
+      data aip cs( 8) /   -.0000004476 392158e0 /
+      data aip cs( 9) /    .0000001334 635874e0 /
+      data aip cs(10) /   -.0000000420 735334e0 /
+      data aip cs(11) /    .0000000139 021990e0 /
+      data aip cs(12) /   -.0000000047 831848e0 /
+      data aip cs(13) /    .0000000017 047897e0 /
+      data aip cs(14) /   -.0000000006 268389e0 /
+      data aip cs(15) /    .0000000002 369824e0 /
+      data aip cs(16) /   -.0000000000 918641e0 /
+      data aip cs(17) /    .0000000000 364278e0 /
+      data aip cs(18) /   -.0000000000 147475e0 /
+      data aip cs(19) /    .0000000000 060851e0 /
+      data aip cs(20) /   -.0000000000 025552e0 /
+      data aip cs(21) /    .0000000000 010906e0 /
+      data aip cs(22) /   -.0000000000 004725e0 /
+      data aip cs(23) /    .0000000000 002076e0 /
+      data aip cs(24) /   -.0000000000 000924e0 /
+      data aip cs(25) /    .0000000000 000417e0 /
+      data aip cs(26) /   -.0000000000 000190e0 /
+      data aip cs(27) /    .0000000000 000087e0 /
+      data aip cs(28) /   -.0000000000 000040e0 /
+      data aip cs(29) /    .0000000000 000019e0 /
+      data aip cs(30) /   -.0000000000 000009e0 /
+      data aip cs(31) /    .0000000000 000004e0 /
+      data aip cs(32) /   -.0000000000 000002e0 /
+      data aip cs(33) /    .0000000000 000001e0 /
+      data aip cs(34) /   -.0000000000 000000e0 /
+c
+      data naif, naig, naip / 3*0 /
+      data x3sml, x32sml, xbig / 3*0.0 /
+c
+      if (naif.ne.0) go to 10
+      eta = 0.1*r1mach(3)
+      naif  = inits (aifcs , 9, eta)
+      naig  = inits (aigcs , 8, eta)
+      naip  = inits (aipcs , 34, eta)
+c
+      x3sml = eta**0.3333
+      x32sml = 1.3104*x3sml**2
+      xbig = r1mach(2)**0.6666
+c
+ 10   if (x.ge.(-1.0)) go to 20
+      call r9aimp (x, xm, theta)
+      aie = xm * cos(theta)
+      return
+c
+ 20   if (x.gt.1.0) go to 30
+      z = 0.0
+      if (abs(x).gt.x3sml) z = x**3
+      aie = 0.375 + (csevl (z, aifcs, naif) - x*(0.25 +
+     1  csevl (z, aigcs, naig)) )
+      if (x.gt.x32sml) aie = aie * exp(2.0*x*sqrt(x)/3.0)
+      return
+c
+ 30   sqrtx = sqrt(x)
+      z = -1.0
+      if (x.lt.xbig) z = 2.0/(x*sqrtx) - 1.0
+      aie = (.28125 + csevl (z, aipcs, naip))/sqrt(sqrtx)
+      return
+c
+      end
diff --git a/fvn_fnlib/albeta.f b/fvn_fnlib/albeta.f
new file mode 100644
index 0000000..a8a16cb
--- /dev/null
+++ b/fvn_fnlib/albeta.f
@@ -0,0 +1,33 @@
+      function albeta (a, b)
+c july 1977 edition.   w. fullerton, c3, los alamos scientific lab.
+      external alngam, alnrel, gamma, r9lgmc
+      data sq2pil / 0.9189385332 0467274 e0 /
+c
+      p = amin1 (a, b)
+      q = amax1 (a, b)
+c
+      if (p.le.0.0) call seteru (
+     1  38halbeta  both arguments must be gt zero, 38, 1, 2)
+      if (p.ge.10.0) go to 30
+      if (q.ge.10.0) go to 20
+c
+c p and q are small.
+c
+      albeta = alog(gamma(p) * (gamma(q)/gamma(p+q)) )
+      return
+c
+c p is small, but q is big.
+c
+ 20   corr = r9lgmc(q) - r9lgmc(p+q)
+      albeta = alngam(p) + corr + p - p*alog(p+q) +
+     1  (q-0.5)*alnrel(-p/(p+q))
+      return
+c
+c p and q are big.
+c
+ 30   corr = r9lgmc(p) + r9lgmc(q) - r9lgmc(p+q)
+      albeta = -0.5*alog(q) + sq2pil + corr + (p-0.5)*alog(p/(p+q))
+     1  + q*alnrel(-p/(p+q))
+      return
+c
+      end
diff --git a/fvn_fnlib/algams.f b/fvn_fnlib/algams.f
new file mode 100644
index 0000000..cc9f453
--- /dev/null
+++ b/fvn_fnlib/algams.f
@@ -0,0 +1,17 @@
+      subroutine algams (x, algam, sgngam)
+c july 1977 edition.  w. fullerton, c3, los alamos scientific lab.
+c
+c evaluate log abs (gamma(x)) and return the sign of gamma(x) in sgngam.
+c sgngam is either +1.0 or -1.0.
+c
+      external  alngam
+c
+      algam = alngam(x)
+      sgngam = 1.0
+      if (x.gt.0.0) return
+c
+      int = amod (-aint(x), 2.0) + 0.1
+      if (int.eq.0) sgngam = -1.0
+c
+      return
+      end
diff --git a/fvn_fnlib/ali.f b/fvn_fnlib/ali.f
new file mode 100644
index 0000000..1b2e306
--- /dev/null
+++ b/fvn_fnlib/ali.f
@@ -0,0 +1,18 @@
+      function ali (x)
+c august 1980 edition.   w. fullerton, c3, los alamos scientific lab.
+c
+      external  ei, r1mach
+      data sqeps / 0.0 /
+c
+      if (sqeps.eq.0.0) sqeps = sqrt(r1mach(3))
+      if (x.le.0.0) call seteru (
+     1  41hali     log integral undefined for x le 0, 41, 2, 2)
+      if (x.eq.1.0) call seteru (
+     1  40hali     log integral undefined for x = 1, 40, 3, 2)
+      if (abs(1.0-x).lt.sqeps) call seteru (57hali     answer lt half pr
+     1ecision because x too close to 1, 57, 1, 1)
+c
+      ali = ei (alog(x) )
+c
+      return
+      end
diff --git a/fvn_fnlib/alngam.f b/fvn_fnlib/alngam.f
new file mode 100644
index 0000000..c4be817
--- /dev/null
+++ b/fvn_fnlib/alngam.f
@@ -0,0 +1,43 @@
+      function alngam (x)
+c august 1980 edition.   w. fullerton, c3, los alamos scientific lab.
+c
+      external  gamma, r1mach, r9lgmc
+      data sq2pil / 0.9189385332 0467274e0/
+c sq2pil = alog(sqrt(2.*pi)),  sqpi2l = alog (sqrt(pi/2.))
+      data sqpi2l / 0.2257913526 4472743e0/
+      data pi     / 3.1415926535 8979324e0/
+c
+      data xmax, dxrel / 0., 0. /
+c
+      if (xmax.ne.0.) go to 10
+      xmax = r1mach(2)/alog(r1mach(2))
+      dxrel = sqrt (r1mach(4))
+c
+ 10   y = abs(x)
+      if (y.gt.10.0) go to 20
+c
+c alog (abs (gamma(x))) for  abs(x) .le. 10.0
+c
+      alngam = alog (abs (gamma(x)))
+      return
+c
+c alog (abs (gamma(x))) for abs(x) .gt. 10.0
+c
+ 20   if (y.gt.xmax) call seteru (
+     1  38halngam  abs(x) so big alngam overflows, 38, 2, 2)
+c
+      if (x.gt.0.) alngam = sq2pil + (x-0.5)*alog(x) - x + r9lgmc(y)
+      if (x.gt.0.) return
+c
+      sinpiy = abs (sin(pi*y))
+      if (sinpiy.eq.0.) call seteru (31halngam  x is a negative integer,
+     1  31, 3, 2)
+c
+      alngam = sqpi2l + (x-0.5)*alog(y) - x - alog(sinpiy) - r9lgmc(y)
+c
+      if (abs((x-aint(x-0.5))*alngam/x).lt.dxrel) call seteru (
+     1'alngam  answer lt half precision because x too near negative ',
+     2   68, 1, 1)
+      return
+c
+      end
diff --git a/fvn_fnlib/alnrel.f b/fvn_fnlib/alnrel.f
new file mode 100644
index 0000000..27318ab
--- /dev/null
+++ b/fvn_fnlib/alnrel.f
@@ -0,0 +1,53 @@
+      function alnrel (x)
+c april 1977 version.  w. fullerton, c3, los alamos scientific lab.
+      dimension alnrcs(23)
+      external  csevl, inits, r1mach
+c
+c series for alnr       on the interval -3.75000d-01 to  3.75000d-01
+c                                        with weighted error   1.93e-17
+c                                         log weighted error  16.72
+c                               significant figures required  16.44
+c                                    decimal places required  17.40
+c
+      data alnrcs( 1) /   1.0378693562 743770e0 /
+      data alnrcs( 2) /   -.1336430150 4908918e0 /
+      data alnrcs( 3) /    .0194082491 35520563e0 /
+      data alnrcs( 4) /   -.0030107551 12753577e0 /
+      data alnrcs( 5) /    .0004869461 47971548e0 /
+      data alnrcs( 6) /   -.0000810548 81893175e0 /
+      data alnrcs( 7) /    .0000137788 47799559e0 /
+      data alnrcs( 8) /   -.0000023802 21089435e0 /
+      data alnrcs( 9) /    .0000004164 04162138e0 /
+      data alnrcs(10) /   -.0000000735 95828378e0 /
+      data alnrcs(11) /    .0000000131 17611876e0 /
+      data alnrcs(12) /   -.0000000023 54670931e0 /
+      data alnrcs(13) /    .0000000004 25227732e0 /
+      data alnrcs(14) /   -.0000000000 77190894e0 /
+      data alnrcs(15) /    .0000000000 14075746e0 /
+      data alnrcs(16) /   -.0000000000 02576907e0 /
+      data alnrcs(17) /    .0000000000 00473424e0 /
+      data alnrcs(18) /   -.0000000000 00087249e0 /
+      data alnrcs(19) /    .0000000000 00016124e0 /
+      data alnrcs(20) /   -.0000000000 00002987e0 /
+      data alnrcs(21) /    .0000000000 00000554e0 /
+      data alnrcs(22) /   -.0000000000 00000103e0 /
+      data alnrcs(23) /    .0000000000 00000019e0 /
+c
+      data nlnrel, xmin /0, 0./
+c
+      if (nlnrel.ne.0) go to 10
+      nlnrel = inits (alnrcs, 23, 0.1*r1mach(3))
+      xmin = -1.0 + sqrt(r1mach(4))
+c
+ 10   if (x.le.(-1.0)) call seteru (
+     1  18halnrel  x is le -1, 18, 2, 2)
+      if (x.lt.xmin) call seteru (
+     1  54halnrel  answer lt half precision because x too near -1, 54,
+     2  1, 1)
+c
+      if (abs(x).le.0.375) alnrel = x*(1. -
+     1  x*csevl (x/.375, alnrcs, nlnrel))
+      if (abs(x).gt.0.375) alnrel = alog (1.0+x)
+c
+      return
+      end
diff --git a/fvn_fnlib/asinh.f b/fvn_fnlib/asinh.f
new file mode 100644
index 0000000..7dd77ea
--- /dev/null
+++ b/fvn_fnlib/asinh.f
@@ -0,0 +1,53 @@
+      function asinh (x)
+c april 1977 edition.  w. fullerton, c3, los alamos scientific lab.
+      dimension asnhcs(20)
+      external  csevl, inits, r1mach
+      data aln2 /0.6931471805 5994530942e0/
+c
+c series for asnh       on the interval  0.          to  1.00000d+00
+c                                        with weighted error   2.19e-17
+c                                         log weighted error  16.66
+c                               significant figures required  15.60
+c                                    decimal places required  17.31
+c
+      data asnhcs( 1) /   -.1282003991 1738186e0 /
+      data asnhcs( 2) /   -.0588117611 89951768e0 /
+      data asnhcs( 3) /    .0047274654 32212481e0 /
+      data asnhcs( 4) /   -.0004938363 16265361e0 /
+      data asnhcs( 5) /    .0000585062 07058557e0 /
+      data asnhcs( 6) /   -.0000074669 98328931e0 /
+      data asnhcs( 7) /    .0000010011 69358355e0 /
+      data asnhcs( 8) /   -.0000001390 35438587e0 /
+      data asnhcs( 9) /    .0000000198 23169483e0 /
+      data asnhcs(10) /   -.0000000028 84746841e0 /
+      data asnhcs(11) /    .0000000004 26729654e0 /
+      data asnhcs(12) /   -.0000000000 63976084e0 /
+      data asnhcs(13) /    .0000000000 09699168e0 /
+      data asnhcs(14) /   -.0000000000 01484427e0 /
+      data asnhcs(15) /    .0000000000 00229037e0 /
+      data asnhcs(16) /   -.0000000000 00035588e0 /
+      data asnhcs(17) /    .0000000000 00005563e0 /
+      data asnhcs(18) /   -.0000000000 00000874e0 /
+      data asnhcs(19) /    .0000000000 00000138e0 /
+      data asnhcs(20) /   -.0000000000 00000021e0 /
+c
+      data nterms, xmax, sqeps /0, 0., 0./
+c
+      if (nterms.ne.0) go to 10
+      nterms = inits (asnhcs, 20, 0.1*r1mach(3))
+      sqeps = sqrt (r1mach(3))
+      xmax = 1.0/sqeps
+c
+ 10   y = abs(x)
+      if (y.gt.1.0) go to 20
+c
+      asinh = x
+      if (y.gt.sqeps) asinh = x*(1.0 + csevl (2.*x*x-1., asnhcs,nterms))
+      return
+c
+ 20   if (y.lt.xmax) asinh = alog (y + sqrt(y**2+1.))
+      if (y.ge.xmax) asinh = aln2 + alog(y)
+      asinh = sign (asinh, x)
+c
+      return
+      end
diff --git a/fvn_fnlib/atanh.f b/fvn_fnlib/atanh.f
new file mode 100644
index 0000000..a030aa6
--- /dev/null
+++ b/fvn_fnlib/atanh.f
@@ -0,0 +1,47 @@
+      function atanh (x)
+c april 1977 edition.  w. fullerton, c3, los alamos scientific lab.
+      dimension atnhcs(15)
+      external  csevl, inits, r1mach
+c
+c series for atnh       on the interval  0.          to  2.50000d-01
+c                                        with weighted error   6.70e-18
+c                                         log weighted error  17.17
+c                               significant figures required  16.01
+c                                    decimal places required  17.76
+c
+      data atnhcs( 1) /    .0943951023 93195492e0 /
+      data atnhcs( 2) /    .0491984370 55786159e0 /
+      data atnhcs( 3) /    .0021025935 22455432e0 /
+      data atnhcs( 4) /    .0001073554 44977611e0 /
+      data atnhcs( 5) /    .0000059782 67249293e0 /
+      data atnhcs( 6) /    .0000003505 06203088e0 /
+      data atnhcs( 7) /    .0000000212 63743437e0 /
+      data atnhcs( 8) /    .0000000013 21694535e0 /
+      data atnhcs( 9) /    .0000000000 83658755e0 /
+      data atnhcs(10) /    .0000000000 05370503e0 /
+      data atnhcs(11) /    .0000000000 00348665e0 /
+      data atnhcs(12) /    .0000000000 00022845e0 /
+      data atnhcs(13) /    .0000000000 00001508e0 /
+      data atnhcs(14) /    .0000000000 00000100e0 /
+      data atnhcs(15) /    .0000000000 00000006e0 /
+c
+      data nterms, dxrel, sqeps /0, 0., 0./
+c
+      if (nterms.ne.0) go to 10
+      nterms = inits (atnhcs, 15, 0.1*r1mach(3))
+      dxrel = sqrt (r1mach(4))
+      sqeps = sqrt (3.0*r1mach(3))
+c
+ 10   y = abs(x)
+      if (y.ge.1.0) call seteru (19hatanh   abs(x) ge 1, 19, 2, 2)
+c
+      if (1.0-y.lt.dxrel) call seteru ( 58hatanh   answer lt half precis
+     1ion because abs(x) too near 1, 58, 1, 1)
+c
+      atanh = x
+      if (y.gt.sqeps .and. y.le.0.5) atanh = x*(1.0 + csevl (8.*x*x-1.,
+     1  atnhcs, nterms))
+      if (y.gt.0.5) atanh = 0.5*alog((1.0+x)/(1.0-x))
+c
+      return
+      end
diff --git a/fvn_fnlib/besi0.f b/fvn_fnlib/besi0.f
new file mode 100644
index 0000000..fb0c1c9
--- /dev/null
+++ b/fvn_fnlib/besi0.f
@@ -0,0 +1,45 @@
+      function besi0 (x)
+c april 1977 version.  w. fullerton, c3, los alamos scientific lab.
+      dimension bi0cs(12)
+      external  besi0e, csevl, inits, r1mach
+c
+c series for bi0        on the interval  0.          to  9.00000d+00
+c                                        with weighted error   2.46e-18
+c                                         log weighted error  17.61
+c                               significant figures required  17.90
+c                                    decimal places required  18.15
+c
+      data bi0 cs( 1) /   -.0766054725 2839144951e0 /
+      data bi0 cs( 2) /   1.9273379539 93808270e0 /
+      data bi0 cs( 3) /    .2282644586 920301339e0 /
+      data bi0 cs( 4) /    .0130489146 6707290428e0 /
+      data bi0 cs( 5) /    .0004344270 9008164874e0 /
+      data bi0 cs( 6) /    .0000094226 5768600193e0 /
+      data bi0 cs( 7) /    .0000001434 0062895106e0 /
+      data bi0 cs( 8) /    .0000000016 1384906966e0 /
+      data bi0 cs( 9) /    .0000000000 1396650044e0 /
+      data bi0 cs(10) /    .0000000000 0009579451e0 /
+      data bi0 cs(11) /    .0000000000 0000053339e0 /
+      data bi0 cs(12) /    .0000000000 0000000245e0 /
+c
+      data nti0, xsml, xmax / 0, 0., 0. /
+c
+      if (nti0.ne.0) go to 10
+      nti0 = inits (bi0cs, 12, 0.1*r1mach(3))
+      xsml = sqrt (4.0*r1mach(3))
+      xmax = alog (r1mach(2))
+c
+ 10   y = abs(x)
+      if (y.gt.3.0) go to 20
+c
+      besi0 = 1.0
+      if (y.gt.xsml) besi0 = 2.75 + csevl (y*y/4.5-1.0, bi0cs, nti0)
+      return
+c
+ 20   if (y.gt.xmax) call seteru (34hbesi0   abs(x) so big i0 overflows,
+     1  34, 1, 2)
+c
+      besi0 = exp(y) * besi0e(x)
+c
+      return
+      end
diff --git a/fvn_fnlib/besi0e.f b/fvn_fnlib/besi0e.f
new file mode 100644
index 0000000..9ee0538
--- /dev/null
+++ b/fvn_fnlib/besi0e.f
@@ -0,0 +1,104 @@
+      function besi0e (x)
+c july 1977 version.  w. fullerton, c3, los alamos scientific lab.
+      dimension bi0cs(12), ai0cs(21), ai02cs(22)
+      external csevl, inits, r1mach
+c
+c series for bi0        on the interval  0.          to  9.00000d+00
+c                                        with weighted error   2.46e-18
+c                                         log weighted error  17.61
+c                               significant figures required  17.90
+c                                    decimal places required  18.15
+c
+      data bi0 cs( 1) /   -.0766054725 2839144951e0 /
+      data bi0 cs( 2) /   1.9273379539 93808270e0 /
+      data bi0 cs( 3) /    .2282644586 920301339e0 /
+      data bi0 cs( 4) /    .0130489146 6707290428e0 /
+      data bi0 cs( 5) /    .0004344270 9008164874e0 /
+      data bi0 cs( 6) /    .0000094226 5768600193e0 /
+      data bi0 cs( 7) /    .0000001434 0062895106e0 /
+      data bi0 cs( 8) /    .0000000016 1384906966e0 /
+      data bi0 cs( 9) /    .0000000000 1396650044e0 /
+      data bi0 cs(10) /    .0000000000 0009579451e0 /
+      data bi0 cs(11) /    .0000000000 0000053339e0 /
+      data bi0 cs(12) /    .0000000000 0000000245e0 /
+c
+c series for ai0        on the interval  1.25000d-01 to  3.33333d-01
+c                                        with weighted error   7.87e-17
+c                                         log weighted error  16.10
+c                               significant figures required  14.69
+c                                    decimal places required  16.76
+c
+      data ai0 cs( 1) /    .0757599449 4023796e0 /
+      data ai0 cs( 2) /    .0075913808 1082334e0 /
+      data ai0 cs( 3) /    .0004153131 3389237e0 /
+      data ai0 cs( 4) /    .0000107007 6463439e0 /
+      data ai0 cs( 5) /   -.0000079011 7997921e0 /
+      data ai0 cs( 6) /   -.0000007826 1435014e0 /
+      data ai0 cs( 7) /    .0000002783 8499429e0 /
+      data ai0 cs( 8) /    .0000000082 5247260e0 /
+      data ai0 cs( 9) /   -.0000000120 4463945e0 /
+      data ai0 cs(10) /    .0000000015 5964859e0 /
+      data ai0 cs(11) /    .0000000002 2925563e0 /
+      data ai0 cs(12) /   -.0000000001 1916228e0 /
+      data ai0 cs(13) /    .0000000000 1757854e0 /
+      data ai0 cs(14) /    .0000000000 0112822e0 /
+      data ai0 cs(15) /   -.0000000000 0114684e0 /
+      data ai0 cs(16) /    .0000000000 0027155e0 /
+      data ai0 cs(17) /   -.0000000000 0002415e0 /
+      data ai0 cs(18) /   -.0000000000 0000608e0 /
+      data ai0 cs(19) /    .0000000000 0000314e0 /
+      data ai0 cs(20) /   -.0000000000 0000071e0 /
+      data ai0 cs(21) /    .0000000000 0000007e0 /
+c
+c series for ai02       on the interval  0.          to  1.25000d-01
+c                                        with weighted error   3.79e-17
+c                                         log weighted error  16.42
+c                               significant figures required  14.86
+c                                    decimal places required  17.09
+c
+      data ai02cs( 1) /    .0544904110 1410882e0 /
+      data ai02cs( 2) /    .0033691164 7825569e0 /
+      data ai02cs( 3) /    .0000688975 8346918e0 /
+      data ai02cs( 4) /    .0000028913 7052082e0 /
+      data ai02cs( 5) /    .0000002048 9185893e0 /
+      data ai02cs( 6) /    .0000000226 6668991e0 /
+      data ai02cs( 7) /    .0000000033 9623203e0 /
+      data ai02cs( 8) /    .0000000004 9406022e0 /
+      data ai02cs( 9) /    .0000000000 1188914e0 /
+      data ai02cs(10) /   -.0000000000 3149915e0 /
+      data ai02cs(11) /   -.0000000000 1321580e0 /
+      data ai02cs(12) /   -.0000000000 0179419e0 /
+      data ai02cs(13) /    .0000000000 0071801e0 /
+      data ai02cs(14) /    .0000000000 0038529e0 /
+      data ai02cs(15) /    .0000000000 0001539e0 /
+      data ai02cs(16) /   -.0000000000 0004151e0 /
+      data ai02cs(17) /   -.0000000000 0000954e0 /
+      data ai02cs(18) /    .0000000000 0000382e0 /
+      data ai02cs(19) /    .0000000000 0000176e0 /
+      data ai02cs(20) /   -.0000000000 0000034e0 /
+      data ai02cs(21) /   -.0000000000 0000027e0 /
+      data ai02cs(22) /    .0000000000 0000003e0 /
+c
+      data nti0, ntai0, ntai02, xsml / 3*0, 0. /
+c
+      if (nti0.ne.0) go to 10
+      nti0 = inits (bi0cs, 12, 0.1*r1mach(3))
+      ntai0 = inits (ai0cs, 21, 0.1*r1mach(3))
+      ntai02 = inits (ai02cs, 22, 0.1*r1mach(3))
+      xsml = sqrt (4.0*r1mach(3))
+c
+ 10   y = abs(x)
+      if (y.gt.3.0) go to 20
+c
+      besi0e = 1.0
+      if (y.gt.xsml) besi0e = exp(-y) * ( 2.75 +
+     1  csevl (y*y/4.5-1.0, bi0cs, nti0) )
+      return
+c
+ 20   if (y.le.8.) besi0e = (.375 + csevl ((48./y-11.)/5., ai0cs, ntai0)
+     1  ) / sqrt(y)
+      if (y.gt.8.) besi0e = (.375 + csevl (16./y-1., ai02cs, ntai02))
+     1  / sqrt(y)
+c
+      return
+      end
diff --git a/fvn_fnlib/besi1.f b/fvn_fnlib/besi1.f
new file mode 100644
index 0000000..0604c77
--- /dev/null
+++ b/fvn_fnlib/besi1.f
@@ -0,0 +1,51 @@
+      function besi1 (x)
+c oct 1983 version.  w. fullerton, c3, los alamos scientific lab.
+      dimension bi1cs(11)
+      external  besi1e, csevl, inits, r1mach
+c
+c series for bi1        on the interval  0.          to  9.00000d+00
+c                                        with weighted error   2.40e-17
+c                                         log weighted error  16.62
+c                               significant figures required  16.23
+c                                    decimal places required  17.14
+c
+      data bi1 cs( 1) /   -.0019717132 61099859e0 /
+      data bi1 cs( 2) /    .4073488766 7546481e0 /
+      data bi1 cs( 3) /    .0348389942 99959456e0 /
+      data bi1 cs( 4) /    .0015453945 56300123e0 /
+      data bi1 cs( 5) /    .0000418885 21098377e0 /
+      data bi1 cs( 6) /    .0000007649 02676483e0 /
+      data bi1 cs( 7) /    .0000000100 42493924e0 /
+      data bi1 cs( 8) /    .0000000000 99322077e0 /
+      data bi1 cs( 9) /    .0000000000 00766380e0 /
+      data bi1 cs(10) /    .0000000000 00004741e0 /
+      data bi1 cs(11) /    .0000000000 00000024e0 /
+c
+c
+      data nti1, xmin, xsml, xmax / 0, 3*0. /
+c
+      if (nti1.ne.0) go to 10
+      nti1 = inits (bi1cs, 11, 0.1*r1mach(3))
+      xmin = 2.0*r1mach(1)
+      xsml = sqrt (8.0*r1mach(3))
+      xmax = alog (r1mach(2))
+c
+ 10   y = abs(x)
+      if (y.gt.3.0) go to 20
+c
+      besi1 = 0.0
+      if (y.eq.0.0) return
+c
+      if (y.le.xmin) call seteru (
+     1  37hbesi1   abs(x) so small i1 underflows, 37, 1, 0)
+      if (y.gt.xmin) besi1 = 0.5*x
+      if (y.gt.xsml) besi1 = x * (.875 + csevl(y*y/4.5-1., bi1cs, nti1))
+      return
+c
+ 20   if (y.gt.xmax) call seteru (
+     1  34hbesi1   abs(x) so big i1 overflows, 34, 2, 2)
+c
+      besi1 = exp(y) * besi1e(x)
+c
+      return
+      end
diff --git a/fvn_fnlib/besi1e.f b/fvn_fnlib/besi1e.f
new file mode 100644
index 0000000..323fba1
--- /dev/null
+++ b/fvn_fnlib/besi1e.f
@@ -0,0 +1,112 @@
+      function besi1e (x)
+c oct 1983 version.  w. fullerton, c3, los alamos scientific lab.
+      dimension bi1cs(11), ai1cs(21), ai12cs(22)
+      external csevl, inits, r1mach
+c
+c series for bi1        on the interval  0.          to  9.00000d+00
+c                                        with weighted error   2.40e-17
+c                                         log weighted error  16.62
+c                               significant figures required  16.23
+c                                    decimal places required  17.14
+c
+      data bi1 cs( 1) /   -.0019717132 61099859e0 /
+      data bi1 cs( 2) /    .4073488766 7546481e0 /
+      data bi1 cs( 3) /    .0348389942 99959456e0 /
+      data bi1 cs( 4) /    .0015453945 56300123e0 /
+      data bi1 cs( 5) /    .0000418885 21098377e0 /
+      data bi1 cs( 6) /    .0000007649 02676483e0 /
+      data bi1 cs( 7) /    .0000000100 42493924e0 /
+      data bi1 cs( 8) /    .0000000000 99322077e0 /
+      data bi1 cs( 9) /    .0000000000 00766380e0 /
+      data bi1 cs(10) /    .0000000000 00004741e0 /
+      data bi1 cs(11) /    .0000000000 00000024e0 /
+c
+c series for ai1        on the interval  1.25000d-01 to  3.33333d-01
+c                                        with weighted error   6.98e-17
+c                                         log weighted error  16.16
+c                               significant figures required  14.53
+c                                    decimal places required  16.82
+c
+      data ai1 cs( 1) /   -.0284674418 1881479e0 /
+      data ai1 cs( 2) /   -.0192295323 1443221e0 /
+      data ai1 cs( 3) /   -.0006115185 8579437e0 /
+      data ai1 cs( 4) /   -.0000206997 1253350e0 /
+      data ai1 cs( 5) /    .0000085856 1914581e0 /
+      data ai1 cs( 6) /    .0000010494 9824671e0 /
+      data ai1 cs( 7) /   -.0000002918 3389184e0 /
+      data ai1 cs( 8) /   -.0000000155 9378146e0 /
+      data ai1 cs( 9) /    .0000000131 8012367e0 /
+      data ai1 cs(10) /   -.0000000014 4842341e0 /
+      data ai1 cs(11) /   -.0000000002 9085122e0 /
+      data ai1 cs(12) /    .0000000001 2663889e0 /
+      data ai1 cs(13) /   -.0000000000 1664947e0 /
+      data ai1 cs(14) /   -.0000000000 0166665e0 /
+      data ai1 cs(15) /    .0000000000 0124260e0 /
+      data ai1 cs(16) /   -.0000000000 0027315e0 /
+      data ai1 cs(17) /    .0000000000 0002023e0 /
+      data ai1 cs(18) /    .0000000000 0000730e0 /
+      data ai1 cs(19) /   -.0000000000 0000333e0 /
+      data ai1 cs(20) /    .0000000000 0000071e0 /
+      data ai1 cs(21) /   -.0000000000 0000006e0 /
+c
+c series for ai12       on the interval  0.          to  1.25000d-01
+c                                        with weighted error   3.55e-17
+c                                         log weighted error  16.45
+c                               significant figures required  14.69
+c                                    decimal places required  17.12
+c
+      data ai12cs( 1) /    .0285762350 1828014e0 /
+      data ai12cs( 2) /   -.0097610974 9136147e0 /
+      data ai12cs( 3) /   -.0001105889 3876263e0 /
+      data ai12cs( 4) /   -.0000038825 6480887e0 /
+      data ai12cs( 5) /   -.0000002512 2362377e0 /
+      data ai12cs( 6) /   -.0000000263 1468847e0 /
+      data ai12cs( 7) /   -.0000000038 3538039e0 /
+      data ai12cs( 8) /   -.0000000005 5897433e0 /
+      data ai12cs( 9) /   -.0000000000 1897495e0 /
+      data ai12cs(10) /    .0000000000 3252602e0 /
+      data ai12cs(11) /    .0000000000 1412580e0 /
+      data ai12cs(12) /    .0000000000 0203564e0 /
+      data ai12cs(13) /   -.0000000000 0071985e0 /
+      data ai12cs(14) /   -.0000000000 0040836e0 /
+      data ai12cs(15) /   -.0000000000 0002101e0 /
+      data ai12cs(16) /    .0000000000 0004273e0 /
+      data ai12cs(17) /    .0000000000 0001041e0 /
+      data ai12cs(18) /   -.0000000000 0000382e0 /
+      data ai12cs(19) /   -.0000000000 0000186e0 /
+      data ai12cs(20) /    .0000000000 0000033e0 /
+      data ai12cs(21) /    .0000000000 0000028e0 /
+      data ai12cs(22) /   -.0000000000 0000003e0 /
+c
+      data nti1, ntai1, ntai12, xmin, xsml / 3*0, 2*0. /
+c
+      if (nti1.ne.0) go to 10
+      nti1 = inits (bi1cs, 11, 0.1*r1mach(3))
+      ntai1 = inits (ai1cs, 21, 0.1*r1mach(3))
+      ntai12 = inits (ai12cs, 22, 0.1*r1mach(3))
+c
+      xmin = 2.0*r1mach(1)
+      xsml = sqrt (8.0*r1mach(3))
+c
+ 10   y = abs(x)
+      if (y.gt.3.0) go to 20
+c
+      besi1e = 0.0
+      if (y.eq.0.0) return
+c
+      if (y.le.xmin) call seteru (
+     1  37hbesi1e  abs(x) so small i1 underflows, 37, 1, 0)
+      besi1e = 0.0
+      if (y.gt.xmin) besi1e = 0.5*x
+      if (y.gt.xsml) besi1e = x * (.875 + csevl(y*y/4.5-1., bi1cs,nti1))
+      besi1e = exp(-y) * besi1e
+      return
+c
+ 20   if (y.le.8.) besi1e = (.375 + csevl ((48./y-11.)/5., ai1cs, ntai1)
+     1  ) / sqrt(y)
+      if (y.gt.8.) besi1e = (.375 + csevl (16./y-1.0, ai12cs, ntai12))
+     1  / sqrt(y)
+      besi1e = sign (besi1e, x)
+c
+      return
+      end
diff --git a/fvn_fnlib/besj0.f b/fvn_fnlib/besj0.f
new file mode 100644
index 0000000..6163bd5
--- /dev/null
+++ b/fvn_fnlib/besj0.f
@@ -0,0 +1,112 @@
+      function besj0 (x)
+c april 1977 version.  w. fullerton, c3, los alamos scientific lab.
+      dimension bj0cs(13), bm0cs(21), bth0cs(24)
+      external  csevl, inits, r1mach
+c
+c series for bj0        on the interval  0.          to  1.60000d+01
+c                                        with weighted error   7.47e-18
+c                                         log weighted error  17.13
+c                               significant figures required  16.98
+c                                    decimal places required  17.68
+c
+      data bj0 cs( 1) /    .1002541619 68939137e0 /
+      data bj0 cs( 2) /   -.6652230077 64405132e0 /
+      data bj0 cs( 3) /    .2489837034 98281314e0 /
+      data bj0 cs( 4) /   -.0332527231 700357697e0 /
+      data bj0 cs( 5) /    .0023114179 304694015e0 /
+      data bj0 cs( 6) /   -.0000991127 741995080e0 /
+      data bj0 cs( 7) /    .0000028916 708643998e0 /
+      data bj0 cs( 8) /   -.0000000612 108586630e0 /
+      data bj0 cs( 9) /    .0000000009 838650793e0 /
+      data bj0 cs(10) /   -.0000000000 124235515e0 /
+      data bj0 cs(11) /    .0000000000 001265433e0 /
+      data bj0 cs(12) /   -.0000000000 000010619e0 /
+      data bj0 cs(13) /    .0000000000 000000074e0 /
+c
+c series for bm0        on the interval  0.          to  6.25000d-02
+c                                        with weighted error   4.98e-17
+c                                         log weighted error  16.30
+c                               significant figures required  14.97
+c                                    decimal places required  16.96
+c
+      data bm0 cs( 1) /    .0928496163 7381644e0 /
+      data bm0 cs( 2) /   -.0014298770 7403484e0 /
+      data bm0 cs( 3) /    .0000283057 9271257e0 /
+      data bm0 cs( 4) /   -.0000014330 0611424e0 /
+      data bm0 cs( 5) /    .0000001202 8628046e0 /
+      data bm0 cs( 6) /   -.0000000139 7113013e0 /
+      data bm0 cs( 7) /    .0000000020 4076188e0 /
+      data bm0 cs( 8) /   -.0000000003 5399669e0 /
+      data bm0 cs( 9) /    .0000000000 7024759e0 /
+      data bm0 cs(10) /   -.0000000000 1554107e0 /
+      data bm0 cs(11) /    .0000000000 0376226e0 /
+      data bm0 cs(12) /   -.0000000000 0098282e0 /
+      data bm0 cs(13) /    .0000000000 0027408e0 /
+      data bm0 cs(14) /   -.0000000000 0008091e0 /
+      data bm0 cs(15) /    .0000000000 0002511e0 /
+      data bm0 cs(16) /   -.0000000000 0000814e0 /
+      data bm0 cs(17) /    .0000000000 0000275e0 /
+      data bm0 cs(18) /   -.0000000000 0000096e0 /
+      data bm0 cs(19) /    .0000000000 0000034e0 /
+      data bm0 cs(20) /   -.0000000000 0000012e0 /
+      data bm0 cs(21) /    .0000000000 0000004e0 /
+c
+c series for bth0       on the interval  0.          to  6.25000d-02
+c                                        with weighted error   3.67e-17
+c                                         log weighted error  16.44
+c                               significant figures required  15.53
+c                                    decimal places required  17.13
+c
+      data bth0cs( 1) /   -.2463916377 4300119e0 /
+      data bth0cs( 2) /    .0017370983 07508963e0 /
+      data bth0cs( 3) /   -.0000621836 33402968e0 /
+      data bth0cs( 4) /    .0000043680 50165742e0 /
+      data bth0cs( 5) /   -.0000004560 93019869e0 /
+      data bth0cs( 6) /    .0000000621 97400101e0 /
+      data bth0cs( 7) /   -.0000000103 00442889e0 /
+      data bth0cs( 8) /    .0000000019 79526776e0 /
+      data bth0cs( 9) /   -.0000000004 28198396e0 /
+      data bth0cs(10) /    .0000000001 02035840e0 /
+      data bth0cs(11) /   -.0000000000 26363898e0 /
+      data bth0cs(12) /    .0000000000 07297935e0 /
+      data bth0cs(13) /   -.0000000000 02144188e0 /
+      data bth0cs(14) /    .0000000000 00663693e0 /
+      data bth0cs(15) /   -.0000000000 00215126e0 /
+      data bth0cs(16) /    .0000000000 00072659e0 /
+      data bth0cs(17) /   -.0000000000 00025465e0 /
+      data bth0cs(18) /    .0000000000 00009229e0 /
+      data bth0cs(19) /   -.0000000000 00003448e0 /
+      data bth0cs(20) /    .0000000000 00001325e0 /
+      data bth0cs(21) /   -.0000000000 00000522e0 /
+      data bth0cs(22) /    .0000000000 00000210e0 /
+      data bth0cs(23) /   -.0000000000 00000087e0 /
+      data bth0cs(24) /    .0000000000 00000036e0 /
+c
+      data pi4 / 0.7853981633 9744831e0 /
+      data ntj0, ntm0, ntth0, xsml, xmax / 3*0, 2*0./
+c
+      if (ntj0.ne.0) go to 10
+      ntj0 = inits (bj0cs, 13, 0.1*r1mach(3))
+      ntm0 = inits (bm0cs, 21, 0.1*r1mach(3))
+      ntth0 = inits (bth0cs, 24, 0.1*r1mach(3))
+c
+      xsml = sqrt (4.0*r1mach(3))
+      xmax = 1.0/r1mach(4)
+c
+ 10   y = abs(x)
+      if (y.gt.4.0) go to 20
+c
+      besj0 = 1.0
+      if (y.gt.xsml) besj0 = csevl (.125*y*y-1., bj0cs, ntj0)
+      return
+c
+ 20   if (y.gt.xmax) call seteru (
+     1  42hbesj0   no precision because abs(x) is big, 42, 1, 2)
+c
+      z = 32.0/y**2 - 1.0
+      ampl = (0.75 + csevl (z, bm0cs, ntm0)) / sqrt(y)
+      theta = y - pi4 + csevl (z, bth0cs, ntth0) / y
+      besj0 = ampl * cos (theta)
+c
+      return
+      end
diff --git a/fvn_fnlib/besj1.f b/fvn_fnlib/besj1.f
new file mode 100644
index 0000000..78a179f
--- /dev/null
+++ b/fvn_fnlib/besj1.f
@@ -0,0 +1,116 @@
+      function besj1 (x)
+c sept 1983 edition.  w. fullerton, c3, los alamos scientific lab.
+      dimension bj1cs(12), bm1cs(21), bth1cs(24)
+      external  csevl, inits, r1mach
+c
+c series for bj1        on the interval  0.          to  1.60000d+01
+c                                        with weighted error   4.48e-17
+c                                         log weighted error  16.35
+c                               significant figures required  15.77
+c                                    decimal places required  16.89
+c
+      data bj1 cs( 1) /   -.1172614151 3332787e0 /
+      data bj1 cs( 2) /   -.2536152183 0790640e0 /
+      data bj1 cs( 3) /    .0501270809 84469569e0 /
+      data bj1 cs( 4) /   -.0046315148 09625081e0 /
+      data bj1 cs( 5) /    .0002479962 29415914e0 /
+      data bj1 cs( 6) /   -.0000086789 48686278e0 /
+      data bj1 cs( 7) /    .0000002142 93917143e0 /
+      data bj1 cs( 8) /   -.0000000039 36093079e0 /
+      data bj1 cs( 9) /    .0000000000 55911823e0 /
+      data bj1 cs(10) /   -.0000000000 00632761e0 /
+      data bj1 cs(11) /    .0000000000 00005840e0 /
+      data bj1 cs(12) /   -.0000000000 00000044e0 /
+c
+c series for bm1        on the interval  0.          to  6.25000d-02
+c                                        with weighted error   5.61e-17
+c                                         log weighted error  16.25
+c                               significant figures required  14.97
+c                                    decimal places required  16.91
+c
+      data bm1 cs( 1) /    .1047362510 931285e0 /
+      data bm1 cs( 2) /    .0044244389 3702345e0 /
+      data bm1 cs( 3) /   -.0000566163 9504035e0 /
+      data bm1 cs( 4) /    .0000023134 9417339e0 /
+      data bm1 cs( 5) /   -.0000001737 7182007e0 /
+      data bm1 cs( 6) /    .0000000189 3209930e0 /
+      data bm1 cs( 7) /   -.0000000026 5416023e0 /
+      data bm1 cs( 8) /    .0000000004 4740209e0 /
+      data bm1 cs( 9) /   -.0000000000 8691795e0 /
+      data bm1 cs(10) /    .0000000000 1891492e0 /
+      data bm1 cs(11) /   -.0000000000 0451884e0 /
+      data bm1 cs(12) /    .0000000000 0116765e0 /
+      data bm1 cs(13) /   -.0000000000 0032265e0 /
+      data bm1 cs(14) /    .0000000000 0009450e0 /
+      data bm1 cs(15) /   -.0000000000 0002913e0 /
+      data bm1 cs(16) /    .0000000000 0000939e0 /
+      data bm1 cs(17) /   -.0000000000 0000315e0 /
+      data bm1 cs(18) /    .0000000000 0000109e0 /
+      data bm1 cs(19) /   -.0000000000 0000039e0 /
+      data bm1 cs(20) /    .0000000000 0000014e0 /
+      data bm1 cs(21) /   -.0000000000 0000005e0 /
+c
+c series for bth1       on the interval  0.          to  6.25000d-02
+c                                        with weighted error   4.10e-17
+c                                         log weighted error  16.39
+c                               significant figures required  15.96
+c                                    decimal places required  17.08
+c
+      data bth1cs( 1) /    .7406014102 6313850e0 /
+      data bth1cs( 2) /   -.0045717556 59637690e0 /
+      data bth1cs( 3) /    .0001198185 10964326e0 /
+      data bth1cs( 4) /   -.0000069645 61891648e0 /
+      data bth1cs( 5) /    .0000006554 95621447e0 /
+      data bth1cs( 6) /   -.0000000840 66228945e0 /
+      data bth1cs( 7) /    .0000000133 76886564e0 /
+      data bth1cs( 8) /   -.0000000024 99565654e0 /
+      data bth1cs( 9) /    .0000000005 29495100e0 /
+      data bth1cs(10) /   -.0000000001 24135944e0 /
+      data bth1cs(11) /    .0000000000 31656485e0 /
+      data bth1cs(12) /   -.0000000000 08668640e0 /
+      data bth1cs(13) /    .0000000000 02523758e0 /
+      data bth1cs(14) /   -.0000000000 00775085e0 /
+      data bth1cs(15) /    .0000000000 00249527e0 /
+      data bth1cs(16) /   -.0000000000 00083773e0 /
+      data bth1cs(17) /    .0000000000 00029205e0 /
+      data bth1cs(18) /   -.0000000000 00010534e0 /
+      data bth1cs(19) /    .0000000000 00003919e0 /
+      data bth1cs(20) /   -.0000000000 00001500e0 /
+      data bth1cs(21) /    .0000000000 00000589e0 /
+      data bth1cs(22) /   -.0000000000 00000237e0 /
+      data bth1cs(23) /    .0000000000 00000097e0 /
+      data bth1cs(24) /   -.0000000000 00000040e0 /
+c
+c
+      data pi4 / 0.7853981633 9744831e0 /
+      data ntj1, ntm1, ntth1, xsml, xmin, xmax / 3*0, 3*0./
+c
+      if (ntj1.ne.0) go to 10
+      ntj1 = inits (bj1cs, 12, 0.1*r1mach(3))
+      ntm1 = inits (bm1cs, 21, 0.1*r1mach(3))
+      ntth1 = inits (bth1cs, 24, 0.1*r1mach(3))
+c
+      xsml = sqrt (8.0*r1mach(3))
+      xmin = 2.0*r1mach(1)
+      xmax = 1.0/r1mach(4)
+c
+ 10   y = abs(x)
+      if (y.gt.4.0) go to 20
+c
+      besj1 = 0.0
+      if (y.eq.0.0) return
+      if (y.le.xmin) call seteru (
+     1  37hbesj1   abs(x) so small j1 underflows, 37, 1, 0)
+      if (y.gt.xmin) besj1 = 0.5*x
+      if (y.gt.xsml) besj1 = x * (.25 + csevl(.125*y*y-1., bj1cs, ntj1))
+      return
+c
+ 20   if (y.gt.xmax) call seteru (
+     1  42hbesj1   no precision because abs(x) is big, 42, 2, 2)
+      z = 32.0/y**2 - 1.0
+      ampl = (0.75 + csevl (z, bm1cs, ntm1)) / sqrt(y)
+      theta = y - 3.0*pi4 + csevl (z, bth1cs, ntth1) / y
+      besj1 = sign (ampl, x) * cos (theta)
+c
+      return
+      end
diff --git a/fvn_fnlib/besk0.f b/fvn_fnlib/besk0.f
new file mode 100644
index 0000000..3891d02
--- /dev/null
+++ b/fvn_fnlib/besk0.f
@@ -0,0 +1,49 @@
+      function besk0 (x)
+c april 1977 version.  w. fullerton, c3, los alamos scientific lab.
+      dimension bk0cs(11)
+      external  besi0, besk0e, csevl, inits, r1mach
+c
+c series for bk0        on the interval  0.          to  4.00000d+00
+c                                        with weighted error   3.57e-19
+c                                         log weighted error  18.45
+c                               significant figures required  17.99
+c                                    decimal places required  18.97
+c
+      data bk0 cs( 1) /   -.0353273932 3390276872e0 /
+      data bk0 cs( 2) /    .3442898999 246284869e0 /
+      data bk0 cs( 3) /    .0359799365 1536150163e0 /
+      data bk0 cs( 4) /    .0012646154 1144692592e0 /
+      data bk0 cs( 5) /    .0000228621 2103119451e0 /
+      data bk0 cs( 6) /    .0000002534 7910790261e0 /
+      data bk0 cs( 7) /    .0000000019 0451637722e0 /
+      data bk0 cs( 8) /    .0000000000 1034969525e0 /
+      data bk0 cs( 9) /    .0000000000 0004259816e0 /
+      data bk0 cs(10) /    .0000000000 0000013744e0 /
+      data bk0 cs(11) /    .0000000000 0000000035e0 /
+c
+      data ntk0, xsml, xmax / 0, 0., 0. /
+c
+      if (ntk0.ne.0) go to 10
+      ntk0 = inits (bk0cs, 11, 0.1*r1mach(3))
+      xsml = sqrt (4.0*r1mach(3))
+      xmax = -alog(r1mach(1))
+      xmax = xmax - 0.5*xmax*alog(xmax)/(xmax+0.5) - 0.01
+c
+ 10   if (x.le.0.) call seteru (29hbesk0   x is zero or negative, 29,
+     1  2, 2)
+      if (x.gt.2.) go to 20
+c
+      y = 0.
+      if (x.gt.xsml) y = x*x
+      besk0 = -alog(0.5*x)*besi0(x) - .25 + csevl (.5*y-1., bk0cs, ntk0)
+      return
+c
+ 20   besk0 = 0.
+      if (x.gt.xmax) call seteru (30hbesk0   x so big k0 underflows, 30,
+     1  1, 0)
+      if (x.gt.xmax) return
+c
+      besk0 = exp(-x) * besk0e(x)
+c
+      return
+      end
diff --git a/fvn_fnlib/besk0e.f b/fvn_fnlib/besk0e.f
new file mode 100644
index 0000000..67d925a
--- /dev/null
+++ b/fvn_fnlib/besk0e.f
@@ -0,0 +1,93 @@
+      function besk0e (x)
+c july 1980 version.  w. fullerton, c3, los alamos scientific lab.
+      dimension bk0cs(11), ak0cs(17), ak02cs(14)
+      external  besi0, csevl, inits, r1mach
+c
+c series for bk0        on the interval  0.          to  4.00000d+00
+c                                        with weighted error   3.57e-19
+c                                         log weighted error  18.45
+c                               significant figures required  17.99
+c                                    decimal places required  18.97
+c
+      data bk0 cs( 1) /   -.0353273932 3390276872e0 /
+      data bk0 cs( 2) /    .3442898999 246284869e0 /
+      data bk0 cs( 3) /    .0359799365 1536150163e0 /
+      data bk0 cs( 4) /    .0012646154 1144692592e0 /
+      data bk0 cs( 5) /    .0000228621 2103119451e0 /
+      data bk0 cs( 6) /    .0000002534 7910790261e0 /
+      data bk0 cs( 7) /    .0000000019 0451637722e0 /
+      data bk0 cs( 8) /    .0000000000 1034969525e0 /
+      data bk0 cs( 9) /    .0000000000 0004259816e0 /
+      data bk0 cs(10) /    .0000000000 0000013744e0 /
+      data bk0 cs(11) /    .0000000000 0000000035e0 /
+c
+c series for ak0        on the interval  1.25000d-01 to  5.00000d-01
+c                                        with weighted error   5.34e-17
+c                                         log weighted error  16.27
+c                               significant figures required  14.92
+c                                    decimal places required  16.89
+c
+      data ak0 cs( 1) /   -.0764394790 3327941e0 /
+      data ak0 cs( 2) /   -.0223565260 5699819e0 /
+      data ak0 cs( 3) /    .0007734181 1546938e0 /
+      data ak0 cs( 4) /   -.0000428100 6688886e0 /
+      data ak0 cs( 5) /    .0000030817 0017386e0 /
+      data ak0 cs( 6) /   -.0000002639 3672220e0 /
+      data ak0 cs( 7) /    .0000000256 3713036e0 /
+      data ak0 cs( 8) /   -.0000000027 4270554e0 /
+      data ak0 cs( 9) /    .0000000003 1694296e0 /
+      data ak0 cs(10) /   -.0000000000 3902353e0 /
+      data ak0 cs(11) /    .0000000000 0506804e0 /
+      data ak0 cs(12) /   -.0000000000 0068895e0 /
+      data ak0 cs(13) /    .0000000000 0009744e0 /
+      data ak0 cs(14) /   -.0000000000 0001427e0 /
+      data ak0 cs(15) /    .0000000000 0000215e0 /
+      data ak0 cs(16) /   -.0000000000 0000033e0 /
+      data ak0 cs(17) /    .0000000000 0000005e0 /
+c
+c series for ak02       on the interval  0.          to  1.25000d-01
+c                                        with weighted error   2.34e-17
+c                                         log weighted error  16.63
+c                               significant figures required  14.67
+c                                    decimal places required  17.20
+c
+      data ak02cs( 1) /   -.0120186982 6307592e0 /
+      data ak02cs( 2) /   -.0091748526 9102569e0 /
+      data ak02cs( 3) /    .0001444550 9317750e0 /
+      data ak02cs( 4) /   -.0000040136 1417543e0 /
+      data ak02cs( 5) /    .0000001567 8318108e0 /
+      data ak02cs( 6) /   -.0000000077 7011043e0 /
+      data ak02cs( 7) /    .0000000004 6111825e0 /
+      data ak02cs( 8) /   -.0000000000 3158592e0 /
+      data ak02cs( 9) /    .0000000000 0243501e0 /
+      data ak02cs(10) /   -.0000000000 0020743e0 /
+      data ak02cs(11) /    .0000000000 0001925e0 /
+      data ak02cs(12) /   -.0000000000 0000192e0 /
+      data ak02cs(13) /    .0000000000 0000020e0 /
+      data ak02cs(14) /   -.0000000000 0000002e0 /
+c
+      data ntk0, ntak0, ntak02, xsml / 3*0, 0. /
+c
+      if (ntk0.ne.0) go to 10
+      ntk0 = inits (bk0cs, 11, 0.1*r1mach(3))
+      ntak0 = inits (ak0cs, 17, 0.1*r1mach(3))
+      ntak02 = inits (ak02cs, 14, 0.1*r1mach(3))
+      xsml = sqrt (4.0*r1mach(3))
+c
+ 10   if (x.le.0.) call seteru (29hbesk0e  x is zero or negative, 29,
+     1  1, 2)
+      if (x.gt.2.) go to 20
+c
+      y = 0.
+      if (x.gt.xsml) y = x*x
+      besk0e = exp(x) * (-alog(0.5*x)*besi0(x)
+     1  - .25 + csevl (.5*y-1., bk0cs, ntk0) )
+      return
+c
+ 20   if (x.le.8.) besk0e = (1.25 + csevl ((16./x-5.)/3., ak0cs, ntak0))
+     1  / sqrt(x)
+      if (x.gt.8.) besk0e = (1.25 + csevl (16./x-1., ak02cs, ntak02))
+     1  / sqrt(x)
+c
+      return
+      end
diff --git a/fvn_fnlib/besk1.f b/fvn_fnlib/besk1.f
new file mode 100644
index 0000000..44cd1a9
--- /dev/null
+++ b/fvn_fnlib/besk1.f
@@ -0,0 +1,53 @@
+      function besk1 (x)
+c july 1980 version.  w. fullerton, c3, los alamos scientific lab.
+      dimension bk1cs(11)
+      external  besi1, besk1e, csevl, inits, r1mach
+c
+c series for bk1        on the interval  0.          to  4.00000d+00
+c                                        with weighted error   7.02e-18
+c                                         log weighted error  17.15
+c                               significant figures required  16.73
+c                                    decimal places required  17.67
+c
+      data bk1 cs( 1) /    .0253002273 389477705e0 /
+      data bk1 cs( 2) /   -.3531559607 76544876e0 /
+      data bk1 cs( 3) /   -.1226111808 22657148e0 /
+      data bk1 cs( 4) /   -.0069757238 596398643e0 /
+      data bk1 cs( 5) /   -.0001730288 957513052e0 /
+      data bk1 cs( 6) /   -.0000024334 061415659e0 /
+      data bk1 cs( 7) /   -.0000000221 338763073e0 /
+      data bk1 cs( 8) /   -.0000000001 411488392e0 /
+      data bk1 cs( 9) /   -.0000000000 006666901e0 /
+      data bk1 cs(10) /   -.0000000000 000024274e0 /
+      data bk1 cs(11) /   -.0000000000 000000070e0 /
+c
+      data ntk1, xmin, xsml, xmax /0, 0., 0., 0. /
+c
+      if (ntk1.ne.0) go to 10
+      ntk1 = inits (bk1cs, 11, 0.1*r1mach(3))
+      xmin = exp (amax1(alog(r1mach(1)), -alog(r1mach(2))) + .01)
+      xsml = sqrt (4.0*r1mach(3))
+      xmax = -alog(r1mach(1))
+      xmax = xmax - 0.5*xmax*alog(xmax)/(xmax+0.5) - 0.01
+c
+ 10   if (x.le.0.) call seteru (29hbesk1   x is zero or negative, 29,
+     1  2, 2)
+      if (x.gt.2.0) go to 20
+c
+      if (x.lt.xmin) call seteru (31hbesk1   x so small k1 overflows,
+     1  31, 3, 2)
+      y = 0.
+      if (x.gt.xsml) y = x*x
+      besk1 = alog(0.5*x)*besi1(x) +
+     1  (0.75 + csevl (.5*y-1., bk1cs, ntk1))/x
+      return
+c
+ 20   besk1 = 0.
+      if (x.gt.xmax) call seteru (30hbesk1   x so big k1 underflows,
+     1  30, 1, 0)
+      if (x.gt.xmax) return
+c
+      besk1 = exp(-x) * besk1e(x)
+c
+      return
+      end
diff --git a/fvn_fnlib/besk1e.f b/fvn_fnlib/besk1e.f
new file mode 100644
index 0000000..1390865
--- /dev/null
+++ b/fvn_fnlib/besk1e.f
@@ -0,0 +1,97 @@
+      function besk1e (x)
+c july 1980 version.  w. fullerton, c3, los alamos scientific lab.
+      dimension bk1cs(11), ak1cs(17), ak12cs(14)
+      external  besi1, csevl, inits, r1mach
+c
+c series for bk1        on the interval  0.          to  4.00000d+00
+c                                        with weighted error   7.02e-18
+c                                         log weighted error  17.15
+c                               significant figures required  16.73
+c                                    decimal places required  17.67
+c
+      data bk1 cs( 1) /    .0253002273 389477705e0 /
+      data bk1 cs( 2) /   -.3531559607 76544876e0 /
+      data bk1 cs( 3) /   -.1226111808 22657148e0 /
+      data bk1 cs( 4) /   -.0069757238 596398643e0 /
+      data bk1 cs( 5) /   -.0001730288 957513052e0 /
+      data bk1 cs( 6) /   -.0000024334 061415659e0 /
+      data bk1 cs( 7) /   -.0000000221 338763073e0 /
+      data bk1 cs( 8) /   -.0000000001 411488392e0 /
+      data bk1 cs( 9) /   -.0000000000 006666901e0 /
+      data bk1 cs(10) /   -.0000000000 000024274e0 /
+      data bk1 cs(11) /   -.0000000000 000000070e0 /
+c
+c series for ak1        on the interval  1.25000d-01 to  5.00000d-01
+c                                        with weighted error   6.06e-17
+c                                         log weighted error  16.22
+c                               significant figures required  15.41
+c                                    decimal places required  16.83
+c
+      data ak1 cs( 1) /    .2744313406 973883e0 /
+      data ak1 cs( 2) /    .0757198995 3199368e0 /
+      data ak1 cs( 3) /   -.0014410515 5647540e0 /
+      data ak1 cs( 4) /    .0000665011 6955125e0 /
+      data ak1 cs( 5) /   -.0000043699 8470952e0 /
+      data ak1 cs( 6) /    .0000003540 2774997e0 /
+      data ak1 cs( 7) /   -.0000000331 1163779e0 /
+      data ak1 cs( 8) /    .0000000034 4597758e0 /
+      data ak1 cs( 9) /   -.0000000003 8989323e0 /
+      data ak1 cs(10) /    .0000000000 4720819e0 /
+      data ak1 cs(11) /   -.0000000000 0604783e0 /
+      data ak1 cs(12) /    .0000000000 0081284e0 /
+      data ak1 cs(13) /   -.0000000000 0011386e0 /
+      data ak1 cs(14) /    .0000000000 0001654e0 /
+      data ak1 cs(15) /   -.0000000000 0000248e0 /
+      data ak1 cs(16) /    .0000000000 0000038e0 /
+      data ak1 cs(17) /   -.0000000000 0000006e0 /
+c
+c series for ak12       on the interval  0.          to  1.25000d-01
+c                                        with weighted error   2.58e-17
+c                                         log weighted error  16.59
+c                               significant figures required  15.22
+c                                    decimal places required  17.16
+c
+      data ak12cs( 1) /    .0637930834 3739001e0 /
+      data ak12cs( 2) /    .0283288781 3049721e0 /
+      data ak12cs( 3) /   -.0002475370 6739052e0 /
+      data ak12cs( 4) /    .0000057719 7245160e0 /
+      data ak12cs( 5) /   -.0000002068 9392195e0 /
+      data ak12cs( 6) /    .0000000097 3998344e0 /
+      data ak12cs( 7) /   -.0000000005 5853361e0 /
+      data ak12cs( 8) /    .0000000000 3732996e0 /
+      data ak12cs( 9) /   -.0000000000 0282505e0 /
+      data ak12cs(10) /    .0000000000 0023720e0 /
+      data ak12cs(11) /   -.0000000000 0002176e0 /
+      data ak12cs(12) /    .0000000000 0000215e0 /
+      data ak12cs(13) /   -.0000000000 0000022e0 /
+      data ak12cs(14) /    .0000000000 0000002e0 /
+c
+      data ntk1, ntak1, ntak12, xmin, xsml / 3*0, 2*0. /
+c
+      if (ntk1.ne.0) go to 10
+      ntk1 = inits (bk1cs, 11, 0.1*r1mach(3))
+      ntak1 = inits (ak1cs, 17, 0.1*r1mach(3))
+      ntak12 = inits (ak12cs, 14, 0.1*r1mach(3))
+c
+      xmin = exp (amax1(alog(r1mach(1)), -alog(r1mach(2))) + .01)
+      xsml = sqrt (4.0*r1mach(3))
+c
+ 10   if (x.le.0.) call seteru (29hbesk1e  x is zero or negative, 29,
+     1  1, 2)
+      if (x.gt.2.0) go to 20
+c
+      if (x.lt.xmin) call seteru (31hbesk1e  x so small k1 overflows,
+     1  31, 2, 2)
+      y = 0.
+      if (x.gt.xsml) y = x*x
+      besk1e = exp(x) * (alog(0.5*x)*besi1(x) +
+     1  (0.75 + csevl (.5*y-1., bk1cs, ntk1))/x )
+      return
+c
+ 20   if (x.le.8.) besk1e = (1.25 + csevl ((16./x-5.)/3., ak1cs, ntak1))
+     1  / sqrt(x)
+      if (x.gt.8.) besk1e = (1.25 + csevl (16./x-1., ak12cs, ntak12))
+     1  / sqrt(x)
+c
+      return
+      end
diff --git a/fvn_fnlib/beskes.f b/fvn_fnlib/beskes.f
new file mode 100644
index 0000000..973e515
--- /dev/null
+++ b/fvn_fnlib/beskes.f
@@ -0,0 +1,44 @@
+      subroutine beskes (xnu, x, nin, bke)
+c july 1980 edition.   w. fullerton, c3, los alamos scientific lab.
+      dimension bke(1)
+      external  r1mach
+      data alnbig / 0. /
+c
+      if (alnbig.eq.0.) alnbig = alog (r1mach(2))
+c
+      v = abs(xnu)
+      n = iabs(nin)
+c
+      if (v.ge.1.) call seteru (29hbeskes  abs(xnu) must be lt 1, 29,
+     1  1, 2)
+      if (x.le.0.) call seteru (17hbeskes  x is le 0, 17, 2, 2)
+      if (n.eq.0) call seteru (
+     1  41hbeskes  n the number in the sequence is 0, 41, 3, 2)
+c
+      call r9knus (v, x, bke(1), bknu1, iswtch)
+      if (n.eq.1) return
+c
+      vincr = sign (1.0, float(nin))
+      direct = vincr
+      if (xnu.ne.0.) direct = vincr*sign(1.0,xnu)
+      if (iswtch.eq.1 .and. direct.gt.0.) call seteru (
+     1  47hbeskes  x so small bessel k-sub-xnu+1 overflows, 47, 4, 2)
+      bke(2) = bknu1
+c
+      if (direct.lt.0.) call r9knus (abs(xnu+vincr), x, bke(2), bknu1,
+     1  iswtch)
+      if (n.eq.2) return
+c
+      vend = abs(xnu+float(nin)) - 1.0
+      if (x+(vend-0.5)*alog(vend)+.27 - vend*(alog(x)+.306).gt.alnbig)
+     1  call seteru (67hbeskes  x so small or abs(nu) so big that bessel
+     2 k-sub-nu overflows, 67, 5, 2)
+c
+      v = xnu
+      do 10 i=3,n
+        v = v + vincr
+        bke(i) = 2.0*v*bke(i-1)/x + bke(i-2)
+ 10   continue
+c
+      return
+      end
diff --git a/fvn_fnlib/besks.f b/fvn_fnlib/besks.f
new file mode 100644
index 0000000..e4e8d06
--- /dev/null
+++ b/fvn_fnlib/besks.f
@@ -0,0 +1,23 @@
+      subroutine besks (xnu, x, nin, bk)
+c july 1980 edition.   w. fullerton, c3, los alamos scientific lab.
+      dimension bk(1)
+      external  r1mach
+      data xmax / 0.0 /
+c
+      if (xmax.ne.0.0) go to 10
+      xmax = -alog (r1mach(1))
+      xmax = xmax + 0.5*alog(3.14*0.5/xmax)
+c
+ 10   if (x.gt.xmax) call seteru (
+     1  36hbesks   x so big bessel k underflows, 36, 1, 2)
+c
+      call beskes (xnu, x, nin, bk)
+c
+      expxi = exp (-x)
+      n = iabs (nin)
+      do 20 i=1,n
+        bk(i) = expxi * bk(i)
+ 20   continue
+c
+      return
+      end
diff --git a/fvn_fnlib/besy0.f b/fvn_fnlib/besy0.f
new file mode 100644
index 0000000..e6f1cf2
--- /dev/null
+++ b/fvn_fnlib/besy0.f
@@ -0,0 +1,118 @@
+      function besy0 (x)
+c august 1980 version.  w. fullerton, c3, los alamos scientific lab.
+      dimension by0cs(13), bm0cs(21), bth0cs(24)
+      external  besj0, csevl, inits, r1mach
+c
+c series for by0        on the interval  0.          to  1.60000d+01
+c                                        with weighted error   1.20e-17
+c                                         log weighted error  16.92
+c                               significant figures required  16.15
+c                                    decimal places required  17.48
+c
+      data by0 cs( 1) /   -.0112778393 92865573e0 /
+      data by0 cs( 2) /   -.1283452375 6042035e0 /
+      data by0 cs( 3) /   -.1043788479 9794249e0 /
+      data by0 cs( 4) /    .0236627491 83969695e0 /
+      data by0 cs( 5) /   -.0020903916 47700486e0 /
+      data by0 cs( 6) /    .0001039754 53939057e0 /
+      data by0 cs( 7) /   -.0000033697 47162423e0 /
+      data by0 cs( 8) /    .0000000772 93842676e0 /
+      data by0 cs( 9) /   -.0000000013 24976772e0 /
+      data by0 cs(10) /    .0000000000 17648232e0 /
+      data by0 cs(11) /   -.0000000000 00188105e0 /
+      data by0 cs(12) /    .0000000000 00001641e0 /
+      data by0 cs(13) /   -.0000000000 00000011e0 /
+c
+c series for bm0        on the interval  0.          to  6.25000d-02
+c                                        with weighted error   4.98e-17
+c                                         log weighted error  16.30
+c                               significant figures required  14.97
+c                                    decimal places required  16.96
+c
+      data bm0 cs( 1) /    .0928496163 7381644e0 /
+      data bm0 cs( 2) /   -.0014298770 7403484e0 /
+      data bm0 cs( 3) /    .0000283057 9271257e0 /
+      data bm0 cs( 4) /   -.0000014330 0611424e0 /
+      data bm0 cs( 5) /    .0000001202 8628046e0 /
+      data bm0 cs( 6) /   -.0000000139 7113013e0 /
+      data bm0 cs( 7) /    .0000000020 4076188e0 /
+      data bm0 cs( 8) /   -.0000000003 5399669e0 /
+      data bm0 cs( 9) /    .0000000000 7024759e0 /
+      data bm0 cs(10) /   -.0000000000 1554107e0 /
+      data bm0 cs(11) /    .0000000000 0376226e0 /
+      data bm0 cs(12) /   -.0000000000 0098282e0 /
+      data bm0 cs(13) /    .0000000000 0027408e0 /
+      data bm0 cs(14) /   -.0000000000 0008091e0 /
+      data bm0 cs(15) /    .0000000000 0002511e0 /
+      data bm0 cs(16) /   -.0000000000 0000814e0 /
+      data bm0 cs(17) /    .0000000000 0000275e0 /
+      data bm0 cs(18) /   -.0000000000 0000096e0 /
+      data bm0 cs(19) /    .0000000000 0000034e0 /
+      data bm0 cs(20) /   -.0000000000 0000012e0 /
+      data bm0 cs(21) /    .0000000000 0000004e0 /
+c
+c series for bth0       on the interval  0.          to  6.25000d-02
+c                                        with weighted error   3.67e-17
+c                                         log weighted error  16.44
+c                               significant figures required  15.53
+c                                    decimal places required  17.13
+c
+      data bth0cs( 1) /   -.2463916377 4300119e0 /
+      data bth0cs( 2) /    .0017370983 07508963e0 /
+      data bth0cs( 3) /   -.0000621836 33402968e0 /
+      data bth0cs( 4) /    .0000043680 50165742e0 /
+      data bth0cs( 5) /   -.0000004560 93019869e0 /
+      data bth0cs( 6) /    .0000000621 97400101e0 /
+      data bth0cs( 7) /   -.0000000103 00442889e0 /
+      data bth0cs( 8) /    .0000000019 79526776e0 /
+      data bth0cs( 9) /   -.0000000004 28198396e0 /
+      data bth0cs(10) /    .0000000001 02035840e0 /
+      data bth0cs(11) /   -.0000000000 26363898e0 /
+      data bth0cs(12) /    .0000000000 07297935e0 /
+      data bth0cs(13) /   -.0000000000 02144188e0 /
+      data bth0cs(14) /    .0000000000 00663693e0 /
+      data bth0cs(15) /   -.0000000000 00215126e0 /
+      data bth0cs(16) /    .0000000000 00072659e0 /
+      data bth0cs(17) /   -.0000000000 00025465e0 /
+      data bth0cs(18) /    .0000000000 00009229e0 /
+      data bth0cs(19) /   -.0000000000 00003448e0 /
+      data bth0cs(20) /    .0000000000 00001325e0 /
+      data bth0cs(21) /   -.0000000000 00000522e0 /
+      data bth0cs(22) /    .0000000000 00000210e0 /
+      data bth0cs(23) /   -.0000000000 00000087e0 /
+      data bth0cs(24) /    .0000000000 00000036e0 /
+c
+c twodpi = 2.0/pi
+      data twodpi / 0.6366197723 6758134e0 /
+      data pi4 / 0.7853981633 9744831e0 /
+      data alnhaf / -0.6931471805 59945309e0 /
+      data nty0, ntm0, ntth0, xsml, xmax / 3*0, 2*0./
+c
+      if (nty0.ne.0) go to 10
+      nty0 = inits (by0cs, 13, 0.1*r1mach(3))
+      ntm0 = inits (bm0cs, 21, 0.1*r1mach(3))
+      ntth0 = inits (bth0cs, 24, 0.1*r1mach(3))
+c
+      xsml = sqrt (4.0*r1mach(3))
+      xmax = 1.0/r1mach(4)
+c
+ 10   if (x.le.0.) call seteru (29hbesy0   x is zero or negative, 29,
+     1  1, 2)
+      if (x.gt.4.0) go to 20
+c
+      y = 0.
+      if (x.gt.xsml) y = x*x
+      besy0 = twodpi*(alnhaf+alog(x))*besj0(x) + .375 +
+     1  csevl (.125*y-1., by0cs, nty0)
+      return
+c
+ 20   if (x.gt.xmax) call seteru (
+     1  37hbesy0   no precision because x is big, 37, 2, 2)
+c
+      z = 32.0/x**2 - 1.0
+      ampl = (0.75 + csevl (z, bm0cs, ntm0)) / sqrt(x)
+      theta = x - pi4 + csevl (z, bth0cs, ntth0) / x
+      besy0 = ampl * sin (theta)
+c
+      return
+      end
diff --git a/fvn_fnlib/besy1.f b/fvn_fnlib/besy1.f
new file mode 100644
index 0000000..b6b3814
--- /dev/null
+++ b/fvn_fnlib/besy1.f
@@ -0,0 +1,121 @@
+      function besy1 (x)
+c april 1977 version.  w. fullerton, c3, los alamos scientific lab.
+      dimension by1cs(14), bm1cs(21), bth1cs(24)
+      external  besj1, csevl, inits, r1mach
+c
+c series for by1        on the interval  0.          to  1.60000d+01
+c                                        with weighted error   1.87e-18
+c                                         log weighted error  17.73
+c                               significant figures required  17.83
+c                                    decimal places required  18.30
+c
+      data by1 cs( 1) /    .0320804710 0611908629e0 /
+      data by1 cs( 2) /   1.2627078974 33500450e0 /
+      data by1 cs( 3) /    .0064999618 9992317500e0 /
+      data by1 cs( 4) /   -.0893616452 8860504117e0 /
+      data by1 cs( 5) /    .0132508812 2175709545e0 /
+      data by1 cs( 6) /   -.0008979059 1196483523e0 /
+      data by1 cs( 7) /    .0000364736 1487958306e0 /
+      data by1 cs( 8) /   -.0000010013 7438166600e0 /
+      data by1 cs( 9) /    .0000000199 4539657390e0 /
+      data by1 cs(10) /   -.0000000003 0230656018e0 /
+      data by1 cs(11) /    .0000000000 0360987815e0 /
+      data by1 cs(12) /   -.0000000000 0003487488e0 /
+      data by1 cs(13) /    .0000000000 0000027838e0 /
+      data by1 cs(14) /   -.0000000000 0000000186e0 /
+c
+c series for bm1        on the interval  0.          to  6.25000d-02
+c                                        with weighted error   5.61e-17
+c                                         log weighted error  16.25
+c                               significant figures required  14.97
+c                                    decimal places required  16.91
+c
+      data bm1 cs( 1) /    .1047362510 931285e0 /
+      data bm1 cs( 2) /    .0044244389 3702345e0 /
+      data bm1 cs( 3) /   -.0000566163 9504035e0 /
+      data bm1 cs( 4) /    .0000023134 9417339e0 /
+      data bm1 cs( 5) /   -.0000001737 7182007e0 /
+      data bm1 cs( 6) /    .0000000189 3209930e0 /
+      data bm1 cs( 7) /   -.0000000026 5416023e0 /
+      data bm1 cs( 8) /    .0000000004 4740209e0 /
+      data bm1 cs( 9) /   -.0000000000 8691795e0 /
+      data bm1 cs(10) /    .0000000000 1891492e0 /
+      data bm1 cs(11) /   -.0000000000 0451884e0 /
+      data bm1 cs(12) /    .0000000000 0116765e0 /
+      data bm1 cs(13) /   -.0000000000 0032265e0 /
+      data bm1 cs(14) /    .0000000000 0009450e0 /
+      data bm1 cs(15) /   -.0000000000 0002913e0 /
+      data bm1 cs(16) /    .0000000000 0000939e0 /
+      data bm1 cs(17) /   -.0000000000 0000315e0 /
+      data bm1 cs(18) /    .0000000000 0000109e0 /
+      data bm1 cs(19) /   -.0000000000 0000039e0 /
+      data bm1 cs(20) /    .0000000000 0000014e0 /
+      data bm1 cs(21) /   -.0000000000 0000005e0 /
+c
+c series for bth1       on the interval  0.          to  6.25000d-02
+c                                        with weighted error   4.10e-17
+c                                         log weighted error  16.39
+c                               significant figures required  15.96
+c                                    decimal places required  17.08
+c
+      data bth1cs( 1) /    .7406014102 6313850e0 /
+      data bth1cs( 2) /   -.0045717556 59637690e0 /
+      data bth1cs( 3) /    .0001198185 10964326e0 /
+      data bth1cs( 4) /   -.0000069645 61891648e0 /
+      data bth1cs( 5) /    .0000006554 95621447e0 /
+      data bth1cs( 6) /   -.0000000840 66228945e0 /
+      data bth1cs( 7) /    .0000000133 76886564e0 /
+      data bth1cs( 8) /   -.0000000024 99565654e0 /
+      data bth1cs( 9) /    .0000000005 29495100e0 /
+      data bth1cs(10) /   -.0000000001 24135944e0 /
+      data bth1cs(11) /    .0000000000 31656485e0 /
+      data bth1cs(12) /   -.0000000000 08668640e0 /
+      data bth1cs(13) /    .0000000000 02523758e0 /
+      data bth1cs(14) /   -.0000000000 00775085e0 /
+      data bth1cs(15) /    .0000000000 00249527e0 /
+      data bth1cs(16) /   -.0000000000 00083773e0 /
+      data bth1cs(17) /    .0000000000 00029205e0 /
+      data bth1cs(18) /   -.0000000000 00010534e0 /
+      data bth1cs(19) /    .0000000000 00003919e0 /
+      data bth1cs(20) /   -.0000000000 00001500e0 /
+      data bth1cs(21) /    .0000000000 00000589e0 /
+      data bth1cs(22) /   -.0000000000 00000237e0 /
+      data bth1cs(23) /    .0000000000 00000097e0 /
+      data bth1cs(24) /   -.0000000000 00000040e0 /
+c
+c twodpi = 2.0/pi
+      data twodpi / 0.6366197723 6758134e0 /
+      data pi4 / 0.7853981633 9744831e0 /
+      data nty1, ntm1, ntth1, xmin, xsml, xmax / 3*0, 3*0./
+c
+      if (nty1.ne.0) go to 10
+      nty1 = inits (by1cs, 14, 0.1*r1mach(3))
+      ntm1 = inits (bm1cs, 21, 0.1*r1mach(3))
+      ntth1 = inits (bth1cs, 24, 0.1*r1mach(3))
+c
+      xmin = 1.571*exp ( amax1(alog(r1mach(1)), -alog(r1mach(2)))+.01)
+      xsml = sqrt (4.0*r1mach(3))
+      xmax = 1.0/r1mach(4)
+c
+ 10   if (x.le.0.) call seteru (29hbesy1   x is zero or negative, 29,
+     1  1, 2)
+      if (x.gt.4.0) go to 20
+c
+      if (x.lt.xmin) call seteru (31hbesy1   x so small y1 overflows,
+     1  31, 3, 2)
+      y = 0.
+      if (x.gt.xsml) y = x*x
+      besy1 = twodpi*alog(0.5*x)*besj1(x) +
+     1  (0.5 + csevl (.125*y-1., by1cs, nty1))/x
+      return
+c
+ 20   if (x.gt.xmax) call seteru (
+     1  37hbesy1   no precision because x is big, 37, 2, 2)
+c
+      z = 32.0/x**2 - 1.0
+      ampl = (0.75 + csevl (z, bm1cs, ntm1)) / sqrt(x)
+      theta = x - 3.0*pi4 + csevl (z, bth1cs, ntth1) / x
+      besy1 = ampl * sin (theta)
+c
+      return
+      end
diff --git a/fvn_fnlib/beta.f b/fvn_fnlib/beta.f
new file mode 100644
index 0000000..e6769a3
--- /dev/null
+++ b/fvn_fnlib/beta.f
@@ -0,0 +1,23 @@
+      function beta (a, b)
+c june 1977 edition.   w. fullerton, c3, los alamos scientific lab.
+      external albeta,  gamma, r1mach
+      data xmax, alnsml /0., 0./
+c
+      if (xmax.ne.0.) go to 10
+      call r9gaml (xmin, xmax)
+      alnsml = alog(r1mach(1))
+c
+ 10   if (a.le.0. .or. b.le.0.) call seteru (
+     1  35hbeta    both arguments must be gt 0, 35, 2, 2)
+c
+      if (a+b.lt.xmax) beta = gamma(a) * gamma(b) / gamma(a+b)
+      if (a+b.lt.xmax) return
+c
+      beta = albeta (a, b)
+      if (beta.lt.alnsml) call seteru (
+     1  41hbeta    a and/or b so big beta underflows, 41, 1, 2)
+c
+      beta = exp (beta)
+c
+      return
+      end
diff --git a/fvn_fnlib/betai.f b/fvn_fnlib/betai.f
new file mode 100644
index 0000000..4e5654c
--- /dev/null
+++ b/fvn_fnlib/betai.f
@@ -0,0 +1,92 @@
+      function betai (x, pin, qin)
+c august 1980 version.  w. fullerton, c3, los alamos scientific lab.
+c based on bosten and battiste, remark on algorithm 179, comm. acm,
+c v 17, p 153, (1974).
+c
+c             input arguments --
+c x      upper limit of integration.  x must be in (0,1) inclusive.
+c p      first beta distribution parameter.  p must be gt 0.0.
+c q      second beta distribution parameter.  q must be gt 0.0.
+c betai  the incomplete beta function ratio is the probability that a
+c        random variable from a beta distribution having parameters
+c        p and q will be less than or equal to x.
+c
+      external  albeta, r1mach
+      data eps, alneps, sml, alnsml / 4*0.0 /
+c
+      if (eps.ne.0.) go to 10
+      eps = r1mach(3)
+      alneps = alog(eps)
+      sml = r1mach(1)
+      alnsml = alog(sml)
+c
+ 10   if (x.lt.0. .or. x.gt.1.0) call seteru (
+     1  35hbetai   x is not in the range (0,1), 35, 1, 2)
+      if (pin.le.0. .or. qin.le.0.) call seteru (
+     1  29hbetai   a and/or b is le zero, 29, 2, 2)
+c
+      y = x
+      p = pin
+      q = qin
+      if (q.le.p .and. x.lt.0.8) go to 20
+      if (x.lt.0.2) go to 20
+      y = 1.0 - y
+      p = qin
+      q = pin
+c
+ 20   if ((p+q)*y/(p+1.).lt.eps) go to 80
+c
+c evaluate the infinite sum first.
+c term will equal y**p/beta(ps,p) * (1.-ps)i * y**i / fac(i)
+c
+      ps = q - aint(q)
+      if (ps.eq.0.) ps = 1.0
+      xb = p*alog(y) -  albeta(ps, p) - alog(p)
+      betai = 0.0
+      if (xb.lt.alnsml) go to 40
+c
+      betai = exp (xb)
+      term = betai*p
+      if (ps.eq.1.0) go to 40
+c
+      n = amax1 (alneps/alog(y), 4.0)
+      do 30 i=1,n
+        term = term*(float(i)-ps)*y/float(i)
+        betai = betai + term/(p+float(i))
+ 30   continue
+c
+c now evaluate the finite sum, maybe.
+c
+ 40   if (q.le.1.0) go to 70
+c
+      xb = p*alog(y) + q*alog(1.0-y) - albeta(p,q) - alog(q)
+      ib = amax1 (xb/alnsml, 0.0)
+      term = exp (xb - float(ib)*alnsml)
+      c = 1.0/(1.0-y)
+      p1 = q*c/(p+q-1.)
+c
+      finsum = 0.0
+      n = q
+      if (q.eq.float(n)) n = n - 1
+      do 50 i=1,n
+        if (p1.le.1.0 .and. term/eps.le.finsum) go to 60
+        term = (q-float(i-1))*c*term/(p+q-float(i))
+c
+        if (term.gt.1.0) ib = ib - 1
+        if (term.gt.1.0) term = term*sml
+c
+        if (ib.eq.0) finsum = finsum + term
+ 50   continue
+c
+ 60   betai = betai + finsum
+ 70   if (y.ne.x .or. p.ne.pin) betai = 1.0 - betai
+      betai = amax1 (amin1 (betai, 1.0), 0.0)
+      return
+c
+ 80   betai = 0.0
+      xb = p*alog(amax1(y,sml)) - alog(p) - albeta(p,q)
+      if (xb.gt.alnsml .and. y.ne.0.) betai = exp (xb)
+      if (y.ne.x .or. p.ne.pin) betai = 1.0 - betai
+      return
+c
+      end
diff --git a/fvn_fnlib/bi.f b/fvn_fnlib/bi.f
new file mode 100644
index 0000000..9fae6c8
--- /dev/null
+++ b/fvn_fnlib/bi.f
@@ -0,0 +1,107 @@
+      function bi (x)
+c july 1977 edition.  w. fullerton, c3, los alamos scientific lab.
+      dimension bifcs(9), bigcs(8), bif2cs(10), big2cs(10)
+      external  bie, csevl, inits, r1mach
+c
+c series for bif        on the interval -1.00000d+00 to  1.00000d+00
+c                                        with weighted error   1.88e-19
+c                                         log weighted error  18.72
+c                               significant figures required  17.74
+c                                    decimal places required  19.20
+c
+      data bif cs( 1) /   -.0167302164 7198664948e0 /
+      data bif cs( 2) /    .1025233583 424944561e0 /
+      data bif cs( 3) /    .0017083092 5073815165e0 /
+      data bif cs( 4) /    .0000118625 4546774468e0 /
+      data bif cs( 5) /    .0000000449 3290701779e0 /
+      data bif cs( 6) /    .0000000001 0698207143e0 /
+      data bif cs( 7) /    .0000000000 0017480643e0 /
+      data bif cs( 8) /    .0000000000 0000020810e0 /
+      data bif cs( 9) /    .0000000000 0000000018e0 /
+c
+c series for big        on the interval -1.00000d+00 to  1.00000d+00
+c                                        with weighted error   2.61e-17
+c                                         log weighted error  16.58
+c                               significant figures required  15.17
+c                                    decimal places required  17.03
+c
+      data big cs( 1) /    .0224662232 4857452e0 /
+      data big cs( 2) /    .0373647754 5301955e0 /
+      data big cs( 3) /    .0004447621 8957212e0 /
+      data big cs( 4) /    .0000024708 0756363e0 /
+      data big cs( 5) /    .0000000079 1913533e0 /
+      data big cs( 6) /    .0000000000 1649807e0 /
+      data big cs( 7) /    .0000000000 0002411e0 /
+      data big cs( 8) /    .0000000000 0000002e0 /
+c
+c series for bif2       on the interval  1.00000d+00 to  8.00000d+00
+c                                        with weighted error   1.11e-17
+c                                         log weighted error  16.95
+c                        approx significant figures required  16.5
+c                                    decimal places required  17.45
+c
+      data bif2cs( 1) /   0.0998457269 3816041e0 /
+      data bif2cs( 2) /    .4786249778 63005538e0 /
+      data bif2cs( 3) /    .0251552119 604330118e0 /
+      data bif2cs( 4) /    .0005820693 885232645e0 /
+      data bif2cs( 5) /    .0000074997 659644377e0 /
+      data bif2cs( 6) /    .0000000613 460287034e0 /
+      data bif2cs( 7) /    .0000000003 462753885e0 /
+      data bif2cs( 8) /    .0000000000 014288910e0 /
+      data bif2cs( 9) /    .0000000000 000044962e0 /
+      data bif2cs(10) /    .0000000000 000000111e0 /
+c
+c series for big2       on the interval  1.00000d+00 to  8.00000d+00
+c                                        with weighted error   1.19e-18
+c                                         log weighted error  17.92
+c                        approx significant figures required  17.2
+c                                    decimal places required  18.42
+c
+      data big2cs( 1) /    .0333056621 45514340e0 /
+      data big2cs( 2) /    .1613092151 23197068e0 /
+      data big2cs( 3) /    .0063190073 096134286e0 /
+      data big2cs( 4) /    .0001187904 568162517e0 /
+      data big2cs( 5) /    .0000013045 345886200e0 /
+      data big2cs( 6) /    .0000000093 741259955e0 /
+      data big2cs( 7) /    .0000000000 474580188e0 /
+      data big2cs( 8) /    .0000000000 001783107e0 /
+      data big2cs( 9) /    .0000000000 000005167e0 /
+      data big2cs(10) /    .0000000000 000000011e0 /
+c
+      data nbif, nbig, nbif2, nbig2, x3sml, xmax / 4*0, 2*0.0 /
+c
+      if (nbif.ne.0) go to 10
+      eta = 0.1*r1mach(3)
+      nbif  = inits (bifcs , 9, eta)
+      nbig  = inits (bigcs , 8, eta)
+      nbif2 = inits (bif2cs, 10, eta)
+      nbig2 = inits (big2cs, 10, eta)
+c
+      x3sml = eta**0.3333
+      xmax = (1.5*alog(r1mach(2)))**0.6666
+c
+ 10   if (x.ge.(-1.0)) go to 20
+      call r9aimp (x, xm, theta)
+      bi = xm * sin(theta)
+      return
+c
+ 20   if (x.gt.1.0) go to 30
+      z = 0.0
+      if (abs(x).gt.x3sml) z = x**3
+      bi = 0.625 + csevl (z, bifcs, nbif) + x*(0.4375 +
+     1  csevl (z, bigcs, nbig))
+      return
+c
+ 30   if (x.gt.2.0) go to 40
+      z = (2.0*x**3 - 9.0) / 7.0
+      bi = 1.125 + csevl (z, bif2cs, nbif2) + x*(0.625 +
+     1  csevl (z, big2cs, nbig2))
+      return
+c
+ 40   if (x.gt.xmax) call seteru (
+     1  34hbi      x so big that bi overflows, 34, 1, 2)
+c
+      bi = bie(x) * exp(2.0*x*sqrt(x)/3.0)
+      return
+c
+      end
diff --git a/fvn_fnlib/bid.f b/fvn_fnlib/bid.f
new file mode 100644
index 0000000..c4e460d
--- /dev/null
+++ b/fvn_fnlib/bid.f
@@ -0,0 +1,114 @@
+      function bid (x)
+c july 1980 edition.  w. fullerton, bell labs.
+c
+c evaluate the derivative of the airy function bi(x).
+c
+      dimension bifcs(8), bigcs(9), bif2cs(10), big2cs(10)
+      external  bide, csevl, inits, r1mach
+c
+c series for bif on the interval -1.00000e+00 to  1.00000e+00
+c                                        with weighted error   9.05e-18
+c                                         log weighted error  17.04
+c                               significant figures required  15.83
+c                                    decimal places required  17.49
+c
+      data bifcs(  1) /     0.1153536790 828570243 e0/
+      data bifcs(  2) /     0.0205007894 049192875 e0/
+      data bifcs(  3) /     0.0002135290 278902876 e0/
+      data bifcs(  4) /     0.0000010783 960614677 e0/
+      data bifcs(  5) /     0.0000000032 094708833 e0/
+      data bifcs(  6) /     0.0000000000 062930407 e0/
+      data bifcs(  7) /     0.0000000000 000087403 e0/
+      data bifcs(  8) /     0.0000000000 000000090 e0/
+c
+c series for big on the interval -1.00000e+00 to  1.00000e+00
+c                                        with weighted error   5.44e-19
+c                                         log weighted error  18.26
+c                               significant figures required  17.46
+c                                    decimal places required  18.74
+c
+      data bigcs(  1) /    -0.0971964404 1644353739 0e0/
+      data bigcs(  2) /     0.1495035768 4316706657 1e0/
+      data bigcs(  3) /     0.0031135253 8712132604 2e0/
+      data bigcs(  4) /     0.0000247085 7057982129 7e0/
+      data bigcs(  5) /     0.0000001029 4962773137 9e0/
+      data bigcs(  6) /     0.0000000002 6397037398 7e0/
+      data bigcs(  7) /     0.0000000000 0045827927 1e0/
+      data bigcs(  8) /     0.0000000000 0000057428 3e0/
+      data bigcs(  9) /     0.0000000000 0000000054 4e0/
+c
+c series for bif2 on the interval  1.00000e+00 to  8.00000e+00
+c                                        with weighted error   3.82e-19
+c                                         log weighted error  18.42
+c                               significant figures required  17.68
+c                                    decimal places required  18.92
+c
+      data bif2cs(  1) /     0.3234939876 0352203352 1e0/
+      data bif2cs(  2) /     0.0862978715 3556355913 9e0/
+      data bif2cs(  3) /     0.0029940255 5265539742 6e0/
+      data bif2cs(  4) /     0.0000514305 2836466163 7e0/
+      data bif2cs(  5) /     0.0000005258 4025003681 1e0/
+      data bif2cs(  6) /     0.0000000035 6175137395 8e0/
+      data bif2cs(  7) /     0.0000000000 1714686400 7e0/
+      data bif2cs(  8) /     0.0000000000 0006166352 0e0/
+      data bif2cs(  9) /     0.0000000000 0000017191 1e0/
+      data bif2cs( 10) /     0.0000000000 0000000038 2e0/
+c
+c series for big2 on the interval  1.00000e+00 to  8.00000e+00
+c                                        with weighted error   3.35e-17
+c                                         log weighted error  16.48
+c                               significant figures required  16.52
+c                                    decimal places required  16.98
+c
+      data big2cs(  1) /     1.6062999463 621294578 e0/
+      data big2cs(  2) /     0.7449088819 876088652 e0/
+      data big2cs(  3) /     0.0470138738 610277380 e0/
+      data big2cs(  4) /     0.0012284422 062548239 e0/
+      data big2cs(  5) /     0.0000173222 412256624 e0/
+      data big2cs(  6) /     0.0000001521 901652368 e0/
+      data big2cs(  7) /     0.0000000009 113560249 e0/
+      data big2cs(  8) /     0.0000000000 039547918 e0/
+      data big2cs(  9) /     0.0000000000 000130017 e0/
+      data big2cs( 10) /     0.0000000000 000000335 e0/
+c
+      data nbif, nbig, nbif2, nbig2 / 4*0 /
+      data x2sml, x3sml, xmax / 3*0.0 /
+c
+      if (nbif.ne.0) go to 10
+      eta = 0.1*r1mach(3)
+      nbif = inits (bifcs, 8, eta)
+      nbig = inits (bigcs, 9, eta)
+      nbif2 = inits (bif2cs, 10, eta)
+      nbig2 = inits (big2cs, 10, eta)
+c
+      x2sml = sqrt (eta)
+      x3sml = eta**0.3333
+      xmax = (1.5*alog(r1mach(2)))**0.6666
+c
+ 10   if (x.ge.(-1.0)) go to 20
+      call r9admp (x, xn, phi)
+      bid = xn * sin (phi)
+      return
+c
+ 20   if (x.gt.1.0) go to 30
+      x3 = 0.0
+      if (abs(x).gt.x3sml) x3 = x**3
+      x2 = 0.0
+      if (abs(x).gt.x2sml) x2 = x*x
+      bid = x2*(csevl (x3, bifcs, nbif) + 0.25) +
+     1  csevl (x3, bigcs, nbig) + 0.5
+      return
+c
+ 30   if (x.gt.2.0) go to 40
+      z = (2.0*x**3 - 9.0) / 7.0
+      bid = x*x*(csevl (z, bif2cs, nbif2) + 0.25) +
+     1  csevl (z, big2cs, nbig2) + 0.5
+      return
+c
+ 40   if (x.gt.xmax) call seteru (
+     1  35hbid     x so big that bid overflows, 35, 1, 2)
+c
+      bid = bide(x) * exp (2.0*x*sqrt(x)/3.0)
+c
+      return
+      end
diff --git a/fvn_fnlib/bide.f b/fvn_fnlib/bide.f
new file mode 100644
index 0000000..1607bfc
--- /dev/null
+++ b/fvn_fnlib/bide.f
@@ -0,0 +1,198 @@
+      function bide (x)
+c july 1980 edition.  w. fullerton, bell labs.
+c
+c evaluate the dervative of the airy function bi(x) for x.lt.0
+c and evaluate bid(x) * exp(-zeta) for x .ge. 0 where
+c zeta = 2/3 * x**(3/2)
+c
+      dimension bifcs(8), bigcs(9), bif2cs(10), big2cs(10), bip1cs(24),
+     1  bip2cs(29)
+      external csevl, inits, r1mach
+c
+c series for bif on the interval -1.00000e+00 to  1.00000e+00
+c                                        with weighted error   9.05e-18
+c                                         log weighted error  17.04
+c                               significant figures required  15.83
+c                                    decimal places required  17.49
+c
+      data bifcs(  1) /     0.1153536790 828570243 e0/
+      data bifcs(  2) /     0.0205007894 049192875 e0/
+      data bifcs(  3) /     0.0002135290 278902876 e0/
+      data bifcs(  4) /     0.0000010783 960614677 e0/
+      data bifcs(  5) /     0.0000000032 094708833 e0/
+      data bifcs(  6) /     0.0000000000 062930407 e0/
+      data bifcs(  7) /     0.0000000000 000087403 e0/
+      data bifcs(  8) /     0.0000000000 000000090 e0/
+c
+c series for big on the interval -1.00000e+00 to  1.00000e+00
+c                                        with weighted error   5.44e-19
+c                                         log weighted error  18.26
+c                               significant figures required  17.46
+c                                    decimal places required  18.74
+c
+      data bigcs(  1) /    -0.0971964404 1644353739 0e0/
+      data bigcs(  2) /     0.1495035768 4316706657 1e0/
+      data bigcs(  3) /     0.0031135253 8712132604 2e0/
+      data bigcs(  4) /     0.0000247085 7057982129 7e0/
+      data bigcs(  5) /     0.0000001029 4962773137 9e0/
+      data bigcs(  6) /     0.0000000002 6397037398 7e0/
+      data bigcs(  7) /     0.0000000000 0045827927 1e0/
+      data bigcs(  8) /     0.0000000000 0000057428 3e0/
+      data bigcs(  9) /     0.0000000000 0000000054 4e0/
+c
+c series for bif2 on the interval  1.00000e+00 to  8.00000e+00
+c                                        with weighted error   3.82e-19
+c                                         log weighted error  18.42
+c                               significant figures required  17.68
+c                                    decimal places required  18.92
+c
+      data bif2cs(  1) /     0.3234939876 0352203352 1e0/
+      data bif2cs(  2) /     0.0862978715 3556355913 9e0/
+      data bif2cs(  3) /     0.0029940255 5265539742 6e0/
+      data bif2cs(  4) /     0.0000514305 2836466163 7e0/
+      data bif2cs(  5) /     0.0000005258 4025003681 1e0/
+      data bif2cs(  6) /     0.0000000035 6175137395 8e0/
+      data bif2cs(  7) /     0.0000000000 1714686400 7e0/
+      data bif2cs(  8) /     0.0000000000 0006166352 0e0/
+      data bif2cs(  9) /     0.0000000000 0000017191 1e0/
+      data bif2cs( 10) /     0.0000000000 0000000038 2e0/
+c
+c series for big2 on the interval  1.00000e+00 to  8.00000e+00
+c                                        with weighted error   3.35e-17
+c                                         log weighted error  16.48
+c                               significant figures required  16.52
+c                                    decimal places required  16.98
+c
+      data big2cs(  1) /     1.6062999463 621294578 e0/
+      data big2cs(  2) /     0.7449088819 876088652 e0/
+      data big2cs(  3) /     0.0470138738 610277380 e0/
+      data big2cs(  4) /     0.0012284422 062548239 e0/
+      data big2cs(  5) /     0.0000173222 412256624 e0/
+      data big2cs(  6) /     0.0000001521 901652368 e0/
+      data big2cs(  7) /     0.0000000009 113560249 e0/
+      data big2cs(  8) /     0.0000000000 039547918 e0/
+      data big2cs(  9) /     0.0000000000 000130017 e0/
+      data big2cs( 10) /     0.0000000000 000000335 e0/
+c
+c series for bip2 on the interval  0.00000e+00 to  1.25000e-01
+c                                        with weighted error   2.07e-18
+c                                         log weighted error  17.69
+c                               significant figures required  16.51
+c                                    decimal places required  18.42
+c
+      data bip2cs(  1) /    -0.1326970544 3526630495 e0/
+      data bip2cs(  2) /    -0.0056844362 6045977481 e0/
+      data bip2cs(  3) /    -0.0001564360 1119611610 e0/
+      data bip2cs(  4) /    -0.0000113673 7203679562 e0/
+      data bip2cs(  5) /    -0.0000014346 4350991284 e0/
+      data bip2cs(  6) /    -0.0000001809 8531185164 e0/
+      data bip2cs(  7) /     0.0000000092 6177343611 e0/
+      data bip2cs(  8) /     0.0000000171 0005490721 e0/
+      data bip2cs(  9) /     0.0000000047 6698163504 e0/
+      data bip2cs( 10) /    -0.0000000003 5195022023 e0/
+      data bip2cs( 11) /    -0.0000000005 8890614316 e0/
+      data bip2cs( 12) /    -0.0000000000 6678499608 e0/
+      data bip2cs( 13) /     0.0000000000 6395565102 e0/
+      data bip2cs( 14) /     0.0000000000 1554529427 e0/
+      data bip2cs( 15) /    -0.0000000000 0792397000 e0/
+      data bip2cs( 16) /    -0.0000000000 0258326243 e0/
+      data bip2cs( 17) /     0.0000000000 0121655048 e0/
+      data bip2cs( 18) /     0.0000000000 0038707207 e0/
+      data bip2cs( 19) /    -0.0000000000 0022487045 e0/
+      data bip2cs( 20) /    -0.0000000000 0004953477 e0/
+      data bip2cs( 21) /     0.0000000000 0004563782 e0/
+      data bip2cs( 22) /     0.0000000000 0000332998 e0/
+      data bip2cs( 23) /    -0.0000000000 0000921750 e0/
+      data bip2cs( 24) /     0.0000000000 0000094157 e0/
+      data bip2cs( 25) /     0.0000000000 0000167154 e0/
+      data bip2cs( 26) /    -0.0000000000 0000055134 e0/
+      data bip2cs( 27) /    -0.0000000000 0000022369 e0/
+      data bip2cs( 28) /     0.0000000000 0000017487 e0/
+      data bip2cs( 29) /     0.0000000000 0000000207 e0/
+c
+c series for bip1 on the interval  1.25000e-01 to  3.53553e-01
+c                                        with weighted error   1.86e-17
+c                                         log weighted error  16.73
+c                               significant figures required  15.67
+c                                    decimal places required  17.42
+c
+      data bip1cs(  1) /    -0.1729187351 079553719 e0/
+      data bip1cs(  2) /    -0.0149358492 984694364 e0/
+      data bip1cs(  3) /    -0.0005471104 951678566 e0/
+      data bip1cs(  4) /     0.0001537966 292958408 e0/
+      data bip1cs(  5) /     0.0000154353 476192179 e0/
+      data bip1cs(  6) /    -0.0000065434 113851906 e0/
+      data bip1cs(  7) /     0.0000003728 082407879 e0/
+      data bip1cs(  8) /     0.0000002072 078388189 e0/
+      data bip1cs(  9) /    -0.0000000658 173336470 e0/
+      data bip1cs( 10) /     0.0000000074 926746354 e0/
+      data bip1cs( 11) /     0.0000000011 101336884 e0/
+      data bip1cs( 12) /    -0.0000000007 265140553 e0/
+      data bip1cs( 13) /     0.0000000001 782723560 e0/
+      data bip1cs( 14) /    -0.0000000000 217346352 e0/
+      data bip1cs( 15) /    -0.0000000000 020302035 e0/
+      data bip1cs( 16) /     0.0000000000 019311827 e0/
+      data bip1cs( 17) /    -0.0000000000 006044953 e0/
+      data bip1cs( 18) /     0.0000000000 001209450 e0/
+      data bip1cs( 19) /    -0.0000000000 000125109 e0/
+      data bip1cs( 20) /    -0.0000000000 000019917 e0/
+      data bip1cs( 21) /     0.0000000000 000015154 e0/
+      data bip1cs( 22) /    -0.0000000000 000004977 e0/
+      data bip1cs( 23) /     0.0000000000 000001155 e0/
+      data bip1cs( 24) /    -0.0000000000 000000186 e0/
+c
+      data atr / 8.750690570 8484345 e0 /
+c atr = 16./(sqrt(8)-1)  and  btr = -(sqrt(8)+1)/(sqrt(8)-1)
+      data btr /-2.093836321 3560543 e0 /
+c
+      data nbif, nbig, nbif2, nbig2, nbip1, nbip2 / 6*0 /
+      data x2sml, x3sml, x32sml, xbig / 4*0.0 /
+c
+      if (nbif.ne.0) go to 10
+      eta = 0.1*r1mach(3)
+      nbif = inits (bifcs, 8, eta)
+      nbig = inits (bigcs, 9, eta)
+      nbif2 = inits (bif2cs, 10, eta)
+      nbig2 = inits (big2cs, 10, eta)
+      nbip1 = inits (bip1cs, 24, eta)
+      nbip2 = inits (bip2cs, 29, eta)
+c
+      x2sml = sqrt (eta)
+      x3sml = eta**0.3333
+      x32sml = 1.3104*x3sml**2
+      xbig = r1mach(2)**0.6666
+c
+ 10   if (x.ge.(-1.0)) go to 20
+      call r9admp (x, xn, phi)
+      bide = xn * sin (phi)
+      return
+c
+ 20   if (x.gt.1.0) go to 30
+      x3 = 0.0
+      if (abs(x).gt.x3sml) x3 = x**3
+      x2 = 0.0
+      if (abs(x).gt.x2sml) x2 = x*x
+      bide = x2 * (csevl(x3, bifcs, nbif) + 0.25) +
+     1  csevl (x3, bigcs, nbig) + 0.5
+      if (x.gt.x32sml) bide = bide * exp (-2.0*x*sqrt(x)/3.0)
+      return
+c
+ 30   if (x.gt.2.0) go to 40
+      z = (2.0*x**3 - 9.0) / 7.0
+      bide = exp (-2.0*x*sqrt(x)/3.0) * (x*x * (0.25 +
+     1  csevl (z, bif2cs, nbif2)) + 0.5 + csevl (z, big2cs, nbig2))
+      return
+c
+ 40   if (x.gt.4.0) go to 50
+      sqrtx = sqrt(x)
+      z = atr/(x*sqrtx) + btr
+      bide = (0.625 + csevl (z, bip1cs, nbip1)) * sqrt(sqrtx)
+      return
+c
+ 50   sqrtx = sqrt(x)
+      z = -1.0
+      if (x.lt.xbig) z = 16.0/(x*sqrtx) - 1.0
+      bide = (0.625 + csevl (z, bip2cs, nbip2)) * sqrt(sqrtx)
+      return
+c
+      end
diff --git a/fvn_fnlib/bie.f b/fvn_fnlib/bie.f
new file mode 100644
index 0000000..154b072
--- /dev/null
+++ b/fvn_fnlib/bie.f
@@ -0,0 +1,194 @@
+      function bie (x)
+c july 1977 edition.  w. fullerton, c3, los alamos scientific lab.
+c
+c evaluate bi(x) for x .le. 0  and  bi(x)*exp(-zeta)  where
+c zeta = 2/3 * x**(3/2)  for x .ge. 0.0
+c
+      dimension bifcs(9), bigcs(8), bif2cs(10), big2cs(10), bipcs(24),
+     1  bip2cs(29)
+      external csevl,  inits, r1mach
+c
+c series for bif        on the interval -1.00000d+00 to  1.00000d+00
+c                                        with weighted error   1.88e-19
+c                                         log weighted error  18.72
+c                               significant figures required  17.74
+c                                    decimal places required  19.20
+c
+      data bif cs( 1) /   -.0167302164 7198664948e0 /
+      data bif cs( 2) /    .1025233583 424944561e0 /
+      data bif cs( 3) /    .0017083092 5073815165e0 /
+      data bif cs( 4) /    .0000118625 4546774468e0 /
+      data bif cs( 5) /    .0000000449 3290701779e0 /
+      data bif cs( 6) /    .0000000001 0698207143e0 /
+      data bif cs( 7) /    .0000000000 0017480643e0 /
+      data bif cs( 8) /    .0000000000 0000020810e0 /
+      data bif cs( 9) /    .0000000000 0000000018e0 /
+c
+c series for big        on the interval -1.00000d+00 to  1.00000d+00
+c                                        with weighted error   2.61e-17
+c                                         log weighted error  16.58
+c                               significant figures required  15.17
+c                                    decimal places required  17.03
+c
+      data big cs( 1) /    .0224662232 4857452e0 /
+      data big cs( 2) /    .0373647754 5301955e0 /
+      data big cs( 3) /    .0004447621 8957212e0 /
+      data big cs( 4) /    .0000024708 0756363e0 /
+      data big cs( 5) /    .0000000079 1913533e0 /
+      data big cs( 6) /    .0000000000 1649807e0 /
+      data big cs( 7) /    .0000000000 0002411e0 /
+      data big cs( 8) /    .0000000000 0000002e0 /
+c
+c series for bif2       on the interval  1.00000d+00 to  8.00000d+00
+c                                        with weighted error   1.11e-17
+c                                         log weighted error  16.95
+c                        approx significant figures required  16.5
+c                                    decimal places required  17.45
+c
+      data bif2cs( 1) /   0.0998457269 3816041e0 /
+      data bif2cs( 2) /    .4786249778 63005538e0 /
+      data bif2cs( 3) /    .0251552119 604330118e0 /
+      data bif2cs( 4) /    .0005820693 885232645e0 /
+      data bif2cs( 5) /    .0000074997 659644377e0 /
+      data bif2cs( 6) /    .0000000613 460287034e0 /
+      data bif2cs( 7) /    .0000000003 462753885e0 /
+      data bif2cs( 8) /    .0000000000 014288910e0 /
+      data bif2cs( 9) /    .0000000000 000044962e0 /
+      data bif2cs(10) /    .0000000000 000000111e0 /
+c
+c series for big2       on the interval  1.00000d+00 to  8.00000d+00
+c                                        with weighted error   1.19e-18
+c                                         log weighted error  17.92
+c                        approx significant figures required  17.2
+c                                    decimal places required  18.42
+c
+      data big2cs( 1) /    .0333056621 45514340e0 /
+      data big2cs( 2) /    .1613092151 23197068e0 /
+      data big2cs( 3) /    .0063190073 096134286e0 /
+      data big2cs( 4) /    .0001187904 568162517e0 /
+      data big2cs( 5) /    .0000013045 345886200e0 /
+      data big2cs( 6) /    .0000000093 741259955e0 /
+      data big2cs( 7) /    .0000000000 474580188e0 /
+      data big2cs( 8) /    .0000000000 001783107e0 /
+      data big2cs( 9) /    .0000000000 000005167e0 /
+      data big2cs(10) /    .0000000000 000000011e0 /
+c
+c series for bip        on the interval  1.25000d-01 to  3.53553d-01
+c                                        with weighted error   1.91e-17
+c                                         log weighted error  16.72
+c                               significant figures required  15.35
+c                                    decimal places required  17.41
+c
+      data bip cs( 1) /   -.0832204747 7943447e0 /
+      data bip cs( 2) /    .0114611892 7371174e0 /
+      data bip cs( 3) /    .0004289644 0718911e0 /
+      data bip cs( 4) /   -.0001490663 9379950e0 /
+      data bip cs( 5) /   -.0000130765 9726787e0 /
+      data bip cs( 6) /    .0000063275 9839610e0 /
+      data bip cs( 7) /   -.0000004222 6696982e0 /
+      data bip cs( 8) /   -.0000001914 7186298e0 /
+      data bip cs( 9) /    .0000000645 3106284e0 /
+      data bip cs(10) /   -.0000000078 4485467e0 /
+      data bip cs(11) /   -.0000000009 6077216e0 /
+      data bip cs(12) /    .0000000007 0004713e0 /
+      data bip cs(13) /   -.0000000001 7731789e0 /
+      data bip cs(14) /    .0000000000 2272089e0 /
+      data bip cs(15) /    .0000000000 0165404e0 /
+      data bip cs(16) /   -.0000000000 0185171e0 /
+      data bip cs(17) /    .0000000000 0059576e0 /
+      data bip cs(18) /   -.0000000000 0012194e0 /
+      data bip cs(19) /    .0000000000 0001334e0 /
+      data bip cs(20) /    .0000000000 0000172e0 /
+      data bip cs(21) /   -.0000000000 0000145e0 /
+      data bip cs(22) /    .0000000000 0000049e0 /
+      data bip cs(23) /   -.0000000000 0000011e0 /
+      data bip cs(24) /    .0000000000 0000001e0 /
+c
+c series for bip2       on the interval  0.          to  1.25000d-01
+c                                        with weighted error   1.05e-18
+c                                         log weighted error  17.98
+c                               significant figures required  16.74
+c                                    decimal places required  18.71
+c
+      data bip2cs( 1) /   -.1135967375 85988679e0 /
+      data bip2cs( 2) /    .0041381473 947881595e0 /
+      data bip2cs( 3) /    .0001353470 622119332e0 /
+      data bip2cs( 4) /    .0000104273 166530153e0 /
+      data bip2cs( 5) /    .0000013474 954767849e0 /
+      data bip2cs( 6) /    .0000001696 537405438e0 /
+      data bip2cs( 7) /   -.0000000100 965008656e0 /
+      data bip2cs( 8) /   -.0000000167 291194937e0 /
+      data bip2cs( 9) /   -.0000000045 815364485e0 /
+      data bip2cs(10) /    .0000000003 736681366e0 /
+      data bip2cs(11) /    .0000000005 766930320e0 /
+      data bip2cs(12) /    .0000000000 621812650e0 /
+      data bip2cs(13) /   -.0000000000 632941202e0 /
+      data bip2cs(14) /   -.0000000000 149150479e0 /
+      data bip2cs(15) /    .0000000000 078896213e0 /
+      data bip2cs(16) /    .0000000000 024960513e0 /
+      data bip2cs(17) /   -.0000000000 012130075e0 /
+      data bip2cs(18) /   -.0000000000 003740493e0 /
+      data bip2cs(19) /    .0000000000 002237727e0 /
+      data bip2cs(20) /    .0000000000 000474902e0 /
+      data bip2cs(21) /   -.0000000000 000452616e0 /
+      data bip2cs(22) /   -.0000000000 000030172e0 /
+      data bip2cs(23) /    .0000000000 000091058e0 /
+      data bip2cs(24) /   -.0000000000 000009814e0 /
+      data bip2cs(25) /   -.0000000000 000016429e0 /
+      data bip2cs(26) /    .0000000000 000005533e0 /
+      data bip2cs(27) /    .0000000000 000002175e0 /
+      data bip2cs(28) /   -.0000000000 000001737e0 /
+      data bip2cs(29) /   -.0000000000 000000010e0 /
+c
+      data atr / 8.750690570 8484345 e0 /
+c atr = 16.0/(sqrt(8.)-1.)  and  btr = -(sqrt(8.)+1.)/(sqrt(8.)-1.)
+      data btr / -2.093836321 356054 e0 /
+c
+      data nbif, nbig, nbif2, nbig2, nbip, nbip2 / 6*0 /
+      data x3sml, x32sml, xbig / 3*0.0 /
+c
+      if (nbif.ne.0) go to 10
+      eta = 0.1*r1mach(3)
+      nbif = inits (bifcs, 9, eta)
+      nbig = inits (bigcs, 8, eta)
+      nbif2 = inits (bif2cs, 10, eta)
+      nbig2 = inits (big2cs, 10, eta)
+      nbip  = inits (bipcs , 24, eta)
+      nbip2 = inits (bip2cs, 29, eta)
+c
+      x3sml = eta**0.3333
+      x32sml = 1.3104*x3sml**2
+      xbig = r1mach(2)**0.6666
+c
+ 10   if (x.ge.(-1.0)) go to 20
+      call r9aimp (x, xm, theta)
+      bie = xm * sin(theta)
+      return
+c
+ 20   if (x.gt.1.0) go to 30
+      z = 0.0
+      if (abs(x).gt.x3sml) z = x**3
+      bie = 0.625 + csevl (z, bifcs, nbif) + x*(0.4375 +
+     1  csevl (z, bigcs, nbig))
+      if (x.gt.x32sml) bie = bie * exp(-2.0*x*sqrt(x)/3.0)
+      return
+c
+ 30   if (x.gt.2.0) go to 40
+      z = (2.0*x**3 - 9.0) / 7.0
+      bie = exp(-2.0*x*sqrt(x)/3.0) * (1.125 + csevl (z, bif2cs, nbif2)
+     1  + x*(0.625 + csevl (z, big2cs, nbig2)) )
+      return
+c
+ 40   if (x.gt.4.0) go to 50
+      sqrtx = sqrt(x)
+      z = atr/(x*sqrtx) + btr
+      bie = (0.625 + csevl (z, bipcs, nbip)) / sqrt(sqrtx)
+      return
+c
+ 50   sqrtx = sqrt(x)
+      z = -1.0
+      if (x.lt.xbig) z = 16.0/(x*sqrtx) - 1.0
+      bie = (0.625 + csevl (z, bip2cs, nbip2))/sqrt(sqrtx)
+      return
+c
+      end
diff --git a/fvn_fnlib/binom.f b/fvn_fnlib/binom.f
new file mode 100644
index 0000000..e7b7b33
--- /dev/null
+++ b/fvn_fnlib/binom.f
@@ -0,0 +1,49 @@
+      function binom (n, m)
+c june 1977 edition.   w. fullerton, c3, los alamos scientific lab.
+c
+      external  alnrel, r1mach, r9lgmc
+      data sq2pil / 0.9189385332 0467274e0 /
+      data bilnmx, fintmx / 0.0, 0.0 /
+c
+      if (bilnmx.ne.0.0) go to 10
+      bilnmx = alog (r1mach(2))
+      fintmx = 0.9/r1mach(3)
+c
+ 10   if (n.lt.0 .or. m.lt.0) call seteru (
+     1  22hbinom   n or m lt zero, 22, 1, 2)
+      if (n.lt.m) call seteru (14hbinom   n lt m, 14, 2, 2)
+c
+      k = min0 (m, n-m)
+      if (k.gt.20) go to 30
+      if (float(k)*alog(amax0(n,1)).gt.bilnmx) go to 30
+c
+      binom = 1.
+      if (k.eq.0) return
+c
+      do 20 i=1,k
+        binom = binom * float(n-i+1)/float(i)
+ 20   continue
+c
+      if (binom.lt.fintmx) binom = aint (binom+0.5)
+      return
+c
+c if k.lt.9, approx is not valid and answer is close to the overflow lim
+ 30   if (k.lt.9) call seteru(51hbinom   result overflows because n and/
+     1or m too big, 51, 3, 2)
+c
+      xn = n + 1
+      xk = k + 1
+      xnk = n - k + 1
+c
+      corr = r9lgmc(xn) - r9lgmc(xk) - r9lgmc(xnk)
+      binom = xk*alog(xnk/xk) - xn*alnrel(-(xk-1.)/xn)
+     1  - 0.5*alog(xn*xnk/xk) + 1.0 - sq2pil + corr
+c
+      if (binom.gt.bilnmx) call seteru (
+     1  51hbinom   result overflows because n and/or m too big, 51, 3,2)
+c
+      binom = exp (binom)
+      if (binom.lt.fintmx) binom = aint (binom+0.5)
+c
+      return
+      end
diff --git a/fvn_fnlib/c0lgmc.f b/fvn_fnlib/c0lgmc.f
new file mode 100644
index 0000000..60c75ed
--- /dev/null
+++ b/fvn_fnlib/c0lgmc.f
@@ -0,0 +1,20 @@
+      complex function c0lgmc (z)
+c august 1980 edition.  w. fullerton c3, los alamos scientific lab.
+c
+c evaluate  (z+0.5)*clog((z+1.0)/z) - 1.0  with relative error accuracy.
+c let q = 1.0/z so that
+c     (z+0.5)*clog(1+1/z) - 1 = (z+0.5)*(clog(1+q) - q + q*q/2) - q*q/4
+c        = (z+0.5)*q**3*c9ln2r(q) - q**2/4,
+c where  c9ln2r  is (clog(1+q) - q + 0.5*q**2) / q**3.
+c
+      complex z, q, c9ln2r, clog
+      external c9ln2r
+c
+      cabsz = cabs(z)
+c
+      q = 1.0/z
+      if (cabsz.le.1.23) c0lgmc = (z+0.5)*clog(1.0+q) - 1.0
+      if (cabsz.gt.1.23) c0lgmc = ((1.+.5*q)*c9ln2r(q) - .25) * q**2
+c
+      return
+      end
diff --git a/fvn_fnlib/c8lgmc.f b/fvn_fnlib/c8lgmc.f
new file mode 100644
index 0000000..e967388
--- /dev/null
+++ b/fvn_fnlib/c8lgmc.f
@@ -0,0 +1,66 @@
+      complex function c8lgmc (zin)
+c may 1978 edition.  w. fullerton, c3, los alamos scientific lab.
+c
+c compute the log gamma correction term for almost all z so that
+c   clog(cgamma(z)) = 0.5*alog(2.*pi) + (z-0.5)*clog(z) - z + c8lgmc(z)
+c this routine is valid even when real(z) is negative or when cabs(z)
+c is small.
+c when real(z) is negative, c8lgmc merely returns a correction which
+c may be wrong by a multiple of 2*pi*i.
+c
+      complex zin, z, corr,  c9lgmc, c0lgmc, cexp, clnrel
+      external  c0lgmc, c9lgmc, clnrel,
+     1  r1mach
+      data pi / 3.1415926535 8979324e0 /
+      data bound, sqeps, eps / 3*0.0 /
+c
+      if (bound.ne.0.0) go to 10
+      nterm = -0.30*alog(r1mach(3))
+      bound = 0.1170*float(nterm)*
+     1  (0.1*r1mach(3))**(-1.0/(2.0*float(nterm)-1.0))
+      eps = 10.0*r1mach(4)
+      sqeps = sqrt (r1mach(4))
+c
+ 10   z = zin
+      x = real(z)
+      y = aimag(z)
+      if (x.lt.0.0) z = -z
+c
+      corr = (0.0, 0.0)
+      if (x.gt.bound .or. abs(y).ge.bound) go to 30
+      cabsz = cabs(z)
+      if (cabsz.ge.bound) go to 30
+c
+      if (x.eq.0.0 .and. y.eq.0.0) call seteru (
+     1  57hc8lgmc  log gamma correction term is infinite for z = 0.0,
+     2  57, 3, 2)
+c
+      n = sqrt (bound**2-y**2) - abs(x) + 1.0
+      do 20 i=1,n
+        corr = corr + c0lgmc(z)
+        z = z + 1.0
+ 20   continue
+c
+ 30   c8lgmc = c9lgmc(z) + corr
+      if (x.gt.0.0) return
+c
+      call entsrc (irold, 1)
+      test = 1.0
+      if (x.lt.(-0.5)) test = cabs ((z-aint(x-0.5))/z)
+      if (test.lt.eps) call seteru (
+     1  31hc8lgmc  z is a negative integer, 31, 2, 2)
+c
+      z = zin
+      if (y.lt.0.0) z = conjg(z)
+      corr = -cmplx(0.0,pi) + clnrel(-cexp(cmplx(0.,2.*pi)*z))
+      if (y.lt.0.0) corr = conjg(corr)
+c
+      c8lgmc = corr - c8lgmc
+c
+      call erroff
+      call entsrc (ir, irold)
+      if (test.lt.sqeps) call seteru ( 63hc8lgmc  answer lt half precisi
+     1on, z too near a negative integer, 63, 1, 1)
+c
+      return
+      end
diff --git a/fvn_fnlib/c9lgmc.f b/fvn_fnlib/c9lgmc.f
new file mode 100644
index 0000000..0309c59
--- /dev/null
+++ b/fvn_fnlib/c9lgmc.f
@@ -0,0 +1,64 @@
+      complex function c9lgmc (zin)
+c april 1978 edition.  w. fullerton c3, los alamos scientific lab.
+c
+c compute the log gamma correction term for large cabs(z) when real(z)
+c .ge. 0.0 and for large abs(aimag(y)) when real(z) .lt. 0.0.  we find
+c c9lgmc so that
+c   clog(cgamma(z)) = 0.5*alog(2.*pi) + (z-0.5)*clog(z) - z + c9lgmc(z).
+c
+      complex zin, z, z2inv
+      external  r1mach
+c
+      dimension bern(11)
+      data bern( 1) /    .08333333333 3333333e0   /
+      data bern( 2) /   -.002777777777 7777778e0  /
+      data bern( 3) /    .0007936507936 5079365e0 /
+      data bern( 4) /   -.0005952380952 3809524e0 /
+      data bern( 5) /    .0008417508417 5084175e0 /
+      data bern( 6) /   -.001917526917 5269175e0  /
+      data bern( 7) /    .006410256410 2564103e0  /
+      data bern( 8) /   -.02955065359 4771242e0   /
+      data bern( 9) /    .1796443723 6883057e0    /
+      data bern(10) /  -1.392432216 9059011e0     /
+      data bern(11) /  13.40286404 4168392e0      /
+c
+      data nterm, bound, xbig, xmax / 0, 3*0.0 /
+c
+      if (nterm.ne.0) go to 10
+c
+      nterm = -0.30*alog(r1mach(3))
+      bound = 0.1170*float(nterm)*
+     1  (0.1*r1mach(3))**(-1./(2.*float(nterm)-1.))
+      xbig = 1.0/sqrt(r1mach(3))
+      xmax = exp (amin1(alog(r1mach(2)/12.0), -alog(12.*r1mach(1))) )
+c
+ 10   z = zin
+      x = real (z)
+      y = aimag(z)
+      cabsz = cabs(z)
+c
+      if (x.lt.0.0 .and. abs(y).lt.bound) call seteru ( 69hc9lgmc  c9lgm
+     1c not valid for negative real(z) and small abs(aimag(z)), 69, 2,2)
+      if (cabsz.lt.bound) call seteru (
+     1  42hc9lgmc  c9lgmc not valid for small cabs(z), 42, 3, 2)
+c
+      if (cabsz.ge.xmax) go to 50
+c
+      if (cabsz.ge.xbig) c9lgmc = 1.0/(12.0*z)
+      if (cabsz.ge.xbig) return
+c
+      z2inv = 1.0/z**2
+      c9lgmc = (0.0, 0.0)
+      do 40 i=1,nterm
+        ndx = nterm + 1 - i
+        c9lgmc = bern(ndx) + c9lgmc*z2inv
+ 40   continue
+c
+      c9lgmc = c9lgmc/z
+      return
+c
+ 50   c9lgmc = (0.0, 0.0)
+      call seteru (34hc9lgmc  z so big c9lgmc underflows, 34, 1, 0)
+      return
+c
+      end
diff --git a/fvn_fnlib/c9ln2r.f b/fvn_fnlib/c9ln2r.f
new file mode 100644
index 0000000..eb8ab9c
--- /dev/null
+++ b/fvn_fnlib/c9ln2r.f
@@ -0,0 +1,55 @@
+      complex function c9ln2r (z)
+c april 1978 edition.  w. fullerton c3, los alamos scientific lab.
+c
+c evaluate  clog(1+z)  from 2-nd order with relative error accuracy so
+c that     clog(1+z) = z - z**2/2 + z**3*c9ln2r(z).
+c
+c now  clog(1+z) = 0.5*alog(1+2*x+cabs(z)**2) + i*carg(1+z),
+c where x = real(z)  and  y = aimag(z).
+c we find
+c     z**3 * c9ln2r(z) = -x*cabs(z)**2 - 0.25*cabs(z)**4
+c        + (2*x+cabs(z)**2)**3 * r9ln2r(2*x+cabs(z)**2)
+c        + i * (carg(1+z) + (x-1)*y)
+c the imaginary part must be evaluated carefully as
+c     (atan(y/(1+x)) - y/(1+x)) + y/(1+x) - (1-x)*y
+c       = (y/(1+x))**3 * r9atn1(y/(1+x)) + x**2*y/(1+x)
+c
+c now we divide through by z**3 carefully.  write
+c     1/z**3 = (x-i*y)/cabs(z)**3 * (1/cabs(z)**3)
+c then   c9ln2r(z) = ((x-i*y)/cabs(z))**3 * (-x/cabs(z) - cabs(z)/4
+c        + 0.5*((2*x+cabs(z)**2)/cabs(z))**3 * r9ln2r(2*x+cabs(z)**2)
+c        + i*y/(cabs(z)*(1+x)) * ((x/cabs(z))**2 +
+c          + (y/(cabs(z)*(1+x)))**2 * r9atn1(y/(1+x)) ) )
+c
+c if we let  xz = x/cabs(z)  and  yz = y/cabs(z)  we may write
+c     c9ln2r(z) = (xz-i*yz)**3 * (-xz - cabs(z)/4
+c        + 0.5*(2*xz+cabs(z))**3 * r9ln2r(2*x+cabs(z)**2)
+c        + i*yz/(1+x) * (xz**2 + (yz/(1+x))**2*r9atn1(y/(1+x)) ))
+c
+      complex z, clog
+      external  r9atn1, r9ln2r
+c
+      x = real (z)
+      y = aimag (z)
+c
+      cabsz = cabs(z)
+      if (cabsz.gt.0.8125) go to 20
+c
+      c9ln2r = cmplx (1.0/3.0, 0.0)
+      if (cabsz.eq.0.0) return
+c
+      xz = x/cabsz
+      yz = y/cabsz
+c
+      arg = 2.0*xz + cabsz
+      rpart = 0.5*arg**3*r9ln2r(cabsz*arg) - xz - 0.25*cabsz
+      y1x = yz/(1.0+x)
+      aipart = y1x * (xz**2 + y1x**2*r9atn1(cabsz*y1x) )
+c
+      c9ln2r = cmplx(xz,-yz)**3 * cmplx(rpart,aipart)
+      return
+c
+ 20   c9ln2r = (clog(1.0+z) - z*(1.0-0.5*z)) / z**3
+      return
+c
+      end
diff --git a/fvn_fnlib/cacos.f b/fvn_fnlib/cacos.f
new file mode 100644
index 0000000..e6dcd83
--- /dev/null
+++ b/fvn_fnlib/cacos.f
@@ -0,0 +1,10 @@
+      complex function cacos (z)
+c april 1977 version.  w. fullerton, c3, los alamos scientific lab.
+      complex z, casin
+      external casin
+      data pi2 /1.5707963267 9489661923e0/
+c
+      cacos = pi2 - casin (z)
+c
+      return
+      end
diff --git a/fvn_fnlib/cacosh.f b/fvn_fnlib/cacosh.f
new file mode 100644
index 0000000..3d1303e
--- /dev/null
+++ b/fvn_fnlib/cacosh.f
@@ -0,0 +1,10 @@
+      complex function cacosh (z)
+c april 1977 version.  w. fullerton, c3, los alamos scientific lab.
+      complex z, ci, cacos
+      external cacos
+      data ci /(0.,1.)/
+c
+      cacosh = ci*cacos(z)
+c
+      return
+      end
diff --git a/fvn_fnlib/carg.f b/fvn_fnlib/carg.f
new file mode 100644
index 0000000..be77f3d
--- /dev/null
+++ b/fvn_fnlib/carg.f
@@ -0,0 +1,11 @@
+      function carg (z)
+c april 1977 version.  w. fullerton, c3, los alamos scientific lab.
+      complex z
+c      external atan2
+c
+      carg = 0.0
+      if (real(z).ne.0. .or. aimag(z).ne.0.) carg =
+     1  atan2 (aimag(z), real(z))
+c
+      return
+      end
diff --git a/fvn_fnlib/casin.f b/fvn_fnlib/casin.f
new file mode 100644
index 0000000..0047bd5
--- /dev/null
+++ b/fvn_fnlib/casin.f
@@ -0,0 +1,46 @@
+      complex function casin (zinp)
+c august 1980 edition.  w. fullerton, c3, los alamos scientific lab.
+c
+c ref -- l. l. pennisi, elements of complex variables,  holt, rinehart
+c and winston, 1963.  page 126.
+c
+      complex zinp, z, z2, sqzp1, ci, clog, csqrt
+      external  r1mach
+      data pi2 /1.5707963267 9489661923e0/
+      data pi /3.1415926535 8979324e0/
+      data ci /(0.,1.)/
+      data nterms, rmin / 0, 0.0 /
+c
+      if (nterms.ne.0) go to 10
+c nterms = alog(eps)/alog(rmax)  where rmax = 0.1
+      nterms = -0.4343*alog(r1mach(3)) + 1.0
+      rmin = sqrt (6.0*r1mach(3))
+c
+ 10   z = zinp
+      r = cabs (z)
+      if (r.gt.0.1) go to 30
+c
+      casin = z
+      if (r.lt.rmin) return
+c
+      casin = (0.0, 0.0)
+      z2 = z*z
+      do 20 i=1,nterms
+        twoi = 2*(nterms-i) + 1
+        casin = 1.0/twoi + twoi*casin*z2/(twoi+1.0)
+ 20   continue
+      casin = z*casin
+      return
+c
+ 30   if (real(zinp).lt.0.0) z = -zinp
+c
+      sqzp1 = csqrt (z+1.0)
+      if (aimag(sqzp1).lt.0.) sqzp1 = -sqzp1
+      casin = pi2 - ci * clog (z + sqzp1*csqrt(z-1.0))
+c
+      if (real(casin).gt.pi2) casin = pi - casin
+      if (real(casin).le.(-pi2)) casin = -pi - casin
+      if (real(zinp).lt.0.) casin = -casin
+c
+      return
+      end
diff --git a/fvn_fnlib/casinh.f b/fvn_fnlib/casinh.f
new file mode 100644
index 0000000..d8bef1a
--- /dev/null
+++ b/fvn_fnlib/casinh.f
@@ -0,0 +1,10 @@
+      complex function casinh (z)
+c april 1977 version.  w. fullerton, c3, los alamos scientific lab.
+      complex z, ci, casin
+      external casin
+      data ci /(0.,1.)/
+c
+      casinh = -ci*casin (ci*z)
+c
+      return
+      end
diff --git a/fvn_fnlib/catan.f b/fvn_fnlib/catan.f
new file mode 100644
index 0000000..38f0ec6
--- /dev/null
+++ b/fvn_fnlib/catan.f
@@ -0,0 +1,54 @@
+      complex function catan (z)
+c jan 1984 edition.  w. fullerton, los alamos scientific lab.
+c
+      complex z, z2
+      external  r1mach
+      data pi2 /1.5707963267 9489661923e0 /
+      data nterms, sqeps, rmin, rmax, r2sml / 0, 4*0.0 /
+c
+      if (nterms.ne.0) go to 10
+c nterms = alog(eps)/alog(rbnd) where rbnd = 0.1
+      nterms = -0.4343*alog(r1mach(3)) + 1.0
+      sqeps = sqrt (r1mach(4))
+      rmin = sqrt (3.0*r1mach(3))
+      rmax = 1.0/r1mach(3)
+      r2sml = 10.0*r1mach (4)
+c
+ 10   r = cabs(z)
+      if (r.gt.0.1) go to 30
+c
+      catan = z
+      if (r.lt.rmin) return
+c
+      catan = (0.0, 0.0)
+      z2 = z*z
+      do 20 i=1,nterms
+        twoi = 2*(nterms-i) + 1
+        catan = 1.0/twoi - z2*catan
+ 20   continue
+      catan = z*catan
+      return
+c
+ 30   if (r.gt.rmax) go to 50
+      x = real(z)
+      y = aimag(z)
+      r2 = r*r
+c
+      if (abs(r2-1.0).gt.sqeps) go to 40
+      if (r2+2.0*y+1.0.lt.r2sml .or. r2-2.0*y+1.0.lt.r2sml) call
+     1  seteru (
+     2  55hcatan   no precision because z is too close to +i or -i,
+     3  55, 2, 2)
+      if (cabs(cmplx(1.0,0.0)+z*z).lt.sqeps) call seteru (
+     1 50hcatan   answer lt half precision, z**2 close to -1, 50, 1, 1)
+c
+ 40   xans = 0.5*atan2 (2.0*x, 1.0-r2)
+      yans = 0.25*alog((r2+2.0*y+1.0)/(r2-2.0*y+1.0))
+      catan = cmplx (xans, yans)
+      return
+c
+ 50   catan = cmplx (pi2, 0.0)
+      if (real(z).lt.0.0) catan = cmplx (-pi2, 0.0)
+      return
+c
+      end
diff --git a/fvn_fnlib/catan2.f b/fvn_fnlib/catan2.f
new file mode 100644
index 0000000..f48db75
--- /dev/null
+++ b/fvn_fnlib/catan2.f
@@ -0,0 +1,20 @@
+      complex function catan2 (csn, ccs)
+c april 1977 version.  w. fullerton, c3, los alamos scientific lab.
+      complex csn, ccs, catan
+      external catan
+      data pi / 3.1415926535 8979323846e0 /
+c
+      if (cabs(ccs).eq.0.) go to 10
+c
+      catan2 = catan (csn/ccs)
+      if (real(ccs).lt.0.) catan2 = catan2 + pi
+      if (real(catan2).gt.pi) catan2 = catan2 - 2.0*pi
+      return
+c
+ 10   if (cabs(csn).eq.0.) call seteru (
+     1  34hcatan2  called with both args zero, 34, 1, 2)
+c
+      catan2 = cmplx (sign(0.5*pi,real(csn)), 0.0)
+c
+      return
+      end
diff --git a/fvn_fnlib/catanh.f b/fvn_fnlib/catanh.f
new file mode 100644
index 0000000..3805141
--- /dev/null
+++ b/fvn_fnlib/catanh.f
@@ -0,0 +1,10 @@
+      complex function catanh (z)
+c april 1977 version.  w. fullerton, c3, los alamos scientific lab.
+      complex z, ci, catan
+      external catan
+      data ci /(0.,1.)/
+c
+      catanh = -ci*catan(ci*z)
+c
+      return
+      end
diff --git a/fvn_fnlib/cbeta.f b/fvn_fnlib/cbeta.f
new file mode 100644
index 0000000..3a7a459
--- /dev/null
+++ b/fvn_fnlib/cbeta.f
@@ -0,0 +1,19 @@
+      complex function cbeta (a, b)
+c july 1977 edition.  w. fullerton, c3, los alamos scientific lab.
+      complex a, b, cexp, cgamma, clbeta
+      external  cgamma, clbeta
+      data xmax / 0.0 /
+c
+      if (xmax.eq.0.0) call r9gaml (xmin, xmax)
+c
+      if (real(a).le.0.0 .or. real(b).le.0.0) call seteru (
+     1  48hcbeta   real part of both arguments must be gt 0, 48, 1, 2)
+c
+      if (real(a)+real(b).lt.xmax) cbeta = cgamma(a) * (cgamma(b)/
+     1  cgamma(a+b) )
+      if (real(a)+real(b).lt.xmax) return
+c
+      cbeta = cexp (clbeta(a, b))
+c
+      return
+      end
diff --git a/fvn_fnlib/cbrt.f b/fvn_fnlib/cbrt.f
new file mode 100644
index 0000000..072f368
--- /dev/null
+++ b/fvn_fnlib/cbrt.f
@@ -0,0 +1,37 @@
+      function cbrt (x)
+c june 1977 edition.   w. fullerton, c3, los alamos scientific lab.
+      dimension cbrt2(5)
+      external  r1mach, r9pak
+c
+      data cbrt2(1) / 0.6299605249 4743658e0 /
+      data cbrt2(2) / 0.7937005259 8409974e0 /
+      data cbrt2(3) / 1.0e0 /
+      data cbrt2(4) / 1.2599210498 9487316e0 /
+      data cbrt2(5) / 1.5874010519 6819947e0 /
+c
+      data niter / 0 /
+c
+      if (niter.eq.0) niter = 1.443*alog(-.106*alog(0.1*r1mach(3))) + 1.
+c
+      cbrt = 0.0
+      if (x.eq.0.) return
+c
+      call r9upak (abs(x), y, n)
+      ixpnt = n/3
+      irem = n - 3*ixpnt + 3
+c
+c the approximation below is a generalized chebyshev series converted
+c to polynomial form.  the approx is nearly best in the sense of
+c relative error with 4.085 digits accuracy.
+c
+      cbrt = .439581e0 + y*(.928549e0 + y*(-.512653e0 + y*.144586e0))
+c
+      do 10 iter=1,niter
+        cbrtsq = cbrt*cbrt
+        cbrt = cbrt + (y-cbrt*cbrtsq)/(3.0*cbrtsq)
+ 10   continue
+c
+      cbrt = r9pak (cbrt2(irem)*sign(cbrt,x), ixpnt)
+      return
+c
+      end
diff --git a/fvn_fnlib/ccbrt.f b/fvn_fnlib/ccbrt.f
new file mode 100644
index 0000000..c53e92c
--- /dev/null
+++ b/fvn_fnlib/ccbrt.f
@@ -0,0 +1,12 @@
+      complex function ccbrt (z)
+c april 1977 version.  w. fullerton, c3, los alamos scientific lab.
+      complex z
+      external  carg, cbrt
+c
+      theta = carg(z) / 3.0
+      r = cbrt (cabs(z))
+c
+      ccbrt = cmplx (r*cos(theta), r*sin(theta))
+c
+      return
+      end
diff --git a/fvn_fnlib/ccosh.f b/fvn_fnlib/ccosh.f
new file mode 100644
index 0000000..53a3b83
--- /dev/null
+++ b/fvn_fnlib/ccosh.f
@@ -0,0 +1,10 @@
+      complex function ccosh (z)
+c april 1977 version.  w. fullerton, c3, los alamos scientific lab.
+      complex z, ci, ccos
+c      external ccos
+      data ci /(0.,1.)/
+c
+      ccosh = ccos (ci*z)
+c
+      return
+      end
diff --git a/fvn_fnlib/ccot.f b/fvn_fnlib/ccot.f
new file mode 100644
index 0000000..af541b9
--- /dev/null
+++ b/fvn_fnlib/ccot.f
@@ -0,0 +1,51 @@
+      complex function ccot (z)
+c march 1979 edition.  w. fullerton, c3, los alamos scientific lab.
+      complex z
+      external  r1mach
+c     1  sqrt, tanh
+      data eps, xmax, ylarge, ybig, rmin, ymin / 5*0.0, 1.5 /
+c
+      if (eps.ne.0.0) go to 10
+      eps = r1mach(4)
+      xmax = 1.0/eps
+      ylarge = -0.5*alog(0.5*r1mach(3))
+      ybig = -0.5*alog(0.5*sqrt(r1mach(3)))
+      rmin = exp (amax1(alog(r1mach(1)), -alog(r1mach(2))) + 0.01)
+c
+ 10   x = real (z)
+      y = aimag (z)
+      if (abs(y).gt.ylarge) go to 30
+c
+      x2 = 2.0*x
+      y2 = 2.0*y
+      if (abs(x2).gt.xmax) go to 20
+      if (cabs(z).lt.rmin) call seteru (55hccot    cabs(z) is zero or so
+     1 small that ccot overflows, 55, 5, 2)
+c
+      call entsrc (irold, 1)
+      sn2x = sin(x2)
+      call erroff
+      den = cosh(y2) - cos(x2)
+      call erroff
+      call entsrc (irold2, irold)
+c
+      if (den.lt.x*x2*eps*eps) call seteru (74hccot    cot is nearly sin
+     1gular, x is near a multiple of pi and y is near 0, 74, 3, 2)
+      if (den.lt.x*x2*eps .and. abs(x).gt.0.5) call seteru (65hccot    a
+     1nswer is lt half precision, x is near pi and y is near 0, 65, 1,1)
+c
+      ccot = cmplx (sn2x/den, -sinh(y2)/den)
+      return
+c
+ 20   if (abs(y).lt.ymin) call seteru (75hccot    answer would have no p
+     1recision, abs(x) is very big and abs(y) small, 75, 4, 2)
+      if (abs(y).lt.ybig) call seteru (69hccot    answer lt half precisi
+     1on, abs(x) is very big and abs(y) small, 69, 2, 1)
+c
+      ccot = cmplx (0.0, 1.0/tanh(y2))
+      return
+c
+ 30   ccot = cmplx (0.0, sign (1.0, y))
+      return
+c
+      end
diff --git a/fvn_fnlib/cexprl.f b/fvn_fnlib/cexprl.f
new file mode 100644
index 0000000..83bb109
--- /dev/null
+++ b/fvn_fnlib/cexprl.f
@@ -0,0 +1,43 @@
+      complex function cexprl (z)
+c august 1980 edition.  w. fullerton, c3, los alamos scientific lab.
+c
+c evaluate  (cexp(z)-1)/z .  for small cabs(z), we use the taylor
+c series.  we could instead use the expression
+c        cexprl(z) = (exp(x)*exp(i*y)-1)/z
+c                  = (x*exprel(x) * (1 - 2*sin(y/2)**2) - 2*sin(y/2)**2
+c                                    + i*sin(y)*(1+x*exprel(x))) / z
+c
+      complex z, cexp
+      external  r1mach
+      data nterms, rbnd, sqeps / 0, 2*0.0 /
+c
+      if (nterms.ne.0) go to 10
+      alneps = alog(r1mach(3))
+      xn = 3.72 - 0.3*alneps
+      xln = alog((xn+1.0)/1.36)
+      nterms = xn - (xn*xln+alneps)/(xln+1.36) + 1.5
+      rbnd = r1mach(3)
+      sqeps = 0.0
+c
+ 10   r = cabs(z)
+      if (r.le.0.5) go to 20
+c
+      call entsrc (irold, 1)
+      cexprl = (cexp(z) - 1.0) / z
+      call erroff
+      call entsrc (irold2, irold)
+      if (abs(real(z)).lt.sqeps .and. cabs(cexprl).lt.sqeps) call
+     1  seteru (41hcexprl  answer lt half prec, z near ni2pi,
+     2  41, 1, 1)
+      return
+c
+ 20   cexprl = (1.0, 0.0)
+      if (r.lt.rbnd) return
+c
+      cexprl = (0.0, 0.0)
+      do 30 i=1,nterms
+        cexprl = 1.0 + cexprl*z/float(nterms+2-i)
+ 30   continue
+c
+      return
+      end
diff --git a/fvn_fnlib/cgamma.f b/fvn_fnlib/cgamma.f
new file mode 100644
index 0000000..5c8252b
--- /dev/null
+++ b/fvn_fnlib/cgamma.f
@@ -0,0 +1,10 @@
+      complex function cgamma (z)
+c july 1977 edition.  w. fullerton, c3, los alamos scientific lab.
+c a preliminary version that is portable, but not accurate enough.
+      complex z, cexp, clngam
+      external  clngam
+c
+      cgamma = cexp (clngam(z))
+c
+      return
+      end
diff --git a/fvn_fnlib/cgamr.f b/fvn_fnlib/cgamr.f
new file mode 100644
index 0000000..cc213e7
--- /dev/null
+++ b/fvn_fnlib/cgamr.f
@@ -0,0 +1,20 @@
+      complex function cgamr (z)
+c july 1977 edition.  w. fullerton, c3, los alamos scientific lab.
+c this version is an inaccurate preliminary one.  eventually this
+c routine should be a fundamental routine with no dependence on cgamma.
+c
+      complex z, cexp, clngam
+      external  clngam
+c
+      cgamr = (0.0, 0.0)
+      x = real (z)
+      if (x.le.0.0 .and. aint(x).eq.x .and. 0.0.eq.aimag(z)) return
+c
+      call entsrc (irold, 1)
+      cgamr = clngam(z)
+      call erroff
+      call entsrc (ir, irold)
+      cgamr = cexp (-cgamr)
+c
+      return
+      end
diff --git a/fvn_fnlib/chi.f b/fvn_fnlib/chi.f
new file mode 100644
index 0000000..110a6f0
--- /dev/null
+++ b/fvn_fnlib/chi.f
@@ -0,0 +1,12 @@
+      function chi (x)
+c december 1980 edition.  w. fullerton, bell labs.
+c
+c evaluate the hyperbolic cosine integral.  when x is negative, the
+c principal value is used.
+c
+      external e1, ei
+c
+      chi = 0.5 * (ei(x) - e1(x))
+c
+      return
+      end
diff --git a/fvn_fnlib/chu.f b/fvn_fnlib/chu.f
new file mode 100644
index 0000000..f863bbf
--- /dev/null
+++ b/fvn_fnlib/chu.f
@@ -0,0 +1,144 @@
+      function chu (a, b, x)
+c august 1980 edition.  w. fullerton, c3, los alamos scientific lab.
+c this routine is not valid when 1+a-b is close to zero if x is small.
+c
+      external  exprel, gamma, gamr, poch, poch1,
+     1  r1mach, r9chu
+      data pi / 3.1415926535 8979324 e0 /
+      data eps / 0.0 /
+c
+      if (eps.eq.0.0) eps = r1mach(3)
+c
+      if (x.lt.0.0) call seteru (31hchu     x is negative, use cchu,
+     1  31, 1, 2)
+c
+      if (x.ne.0.0) go to 10
+      if (b.ge.1.0) call seteru (
+     1  35hchu     x=0, b ge 1 so chu infinite, 35, 2, 2)
+      chu = gamma(1.0-b)/gamma(1.0+a-b)
+      return
+c
+ 10   if (amax1(abs(a),1.0)*amax1(abs(1.0+a-b),1.0).lt.0.99*abs(x))
+     1  go to 120
+c
+c the ascending series will be used, because the descending rational
+c approximation (which is based on the asymptotic series) is unstable.
+c
+      if (abs(1.0+a-b).lt.sqrt(eps)) call seteru (
+     1  60hchu     algorithm is bad when 1+a-b is near zero for small x,
+     2  60, 10, 2)
+c
+      aintb = aint(b+0.5)
+      if (b.lt.0.0) aintb = aint(b-0.5)
+      beps = b - aintb
+      n = aintb
+c
+      alnx = alog(x)
+      xtoeps = exp(-beps*alnx)
+c
+c evaluate the finite sum.     -----------------------------------------
+c
+      if (n.ge.1) go to 40
+c
+c consider the case b .lt. 1.0 first.
+c
+      sum = 1.0
+      if (n.eq.0) go to 30
+c
+      t = 1.0
+      m = -n
+      do 20 i=1,m
+        xi1 = i - 1
+        t = t*(a+xi1)*x/((b+xi1)*(xi1+1.0))
+        sum = sum + t
+ 20   continue
+c
+ 30   sum = poch(1.0+a-b, -a) * sum
+      go to 70
+c
+c now consider the case b .ge. 1.0.
+c
+ 40   sum = 0.0
+      m = n - 2
+      if (m.lt.0) go to 70
+      t = 1.0
+      sum = 1.0
+      if (m.eq.0) go to 60
+c
+      do 50 i=1,m
+        xi = i
+        t = t * (a-b+xi)*x/((1.0-b+xi)*xi)
+        sum = sum + t
+ 50   continue
+c
+ 60   sum = gamma(b-1.0) * gamr(a) * x**(1-n) * xtoeps * sum
+c
+c now evaluate the infinite sum.     -----------------------------------
+c
+ 70   istrt = 0
+      if (n.lt.1) istrt = 1 - n
+      xi = istrt
+c
+      factor = (-1.0)**n * gamr(1.0+a-b) * x**istrt
+      if (beps.ne.0.0) factor = factor * beps*pi/sin(beps*pi)
+c
+      pochai = poch (a, xi)
+      gamri1 = gamr (xi+1.0)
+      gamrni = gamr (aintb+xi)
+      b0 = factor * poch(a,xi-beps) * gamrni * gamr(xi+1.0-beps)
+c
+      if (abs(xtoeps-1.0).gt.0.5) go to 90
+c
+c x**(-beps) is close to 1.0, so we must be careful in evaluating
+c the differences
+c
+      pch1ai = poch1 (a+xi, -beps)
+      pch1i = poch1 (xi+1.0-beps, beps)
+      c0 = factor * pochai * gamrni * gamri1 * (
+     1  -poch1(b+xi, -beps) + pch1ai - pch1i + beps*pch1ai*pch1i )
+c
+c xeps1 = (1.0 - x**(-beps)) / beps
+      xeps1 = alnx * exprel(-beps*alnx)
+c
+      chu = sum + c0 + xeps1*b0
+      xn = n
+      do 80 i=1,1000
+        xi = istrt + i
+        xi1 = istrt + i - 1
+        b0 = (a+xi1-beps)*b0*x/((xn+xi1)*(xi-beps))
+        c0 = (a+xi1)*c0*x/((b+xi1)*xi) - ((a-1.0)*(xn+2.*xi-1.0)
+     1    + xi*(xi-beps)) * b0/(xi*(b+xi1)*(a+xi1-beps))
+        t = c0 + xeps1*b0
+        chu = chu + t
+        if (abs(t).lt.eps*abs(chu)) go to 130
+ 80   continue
+      call seteru (
+     1  60hchu     no convergence in 1000 terms of the ascending series,
+     2  60, 3, 2)
+c
+c x**(-beps) is very different from 1.0, so the straightforward
+c formulation is stable.
+c
+ 90   a0 = factor * pochai * gamr(b+xi) * gamri1 / beps
+      b0 = xtoeps*b0/beps
+c
+      chu = sum + a0 - b0
+      do 100 i=1,1000
+        xi = istrt + i
+        xi1 = istrt + i - 1
+        a0 = (a+xi1)*a0*x/((b+xi1)*xi)
+        b0 = (a+xi1-beps)*b0*x/((aintb+xi1)*(xi-beps))
+        t = a0 - b0
+        chu = chu + t
+        if (abs(t).lt.eps*abs(chu)) go to 130
+ 100  continue
+      call seteru (
+     1  60hchu     no convergence in 1000 terms of the ascending series,
+     2  60, 3, 2)
+c
+c use luke-s rational approx in the asymptotic region.
+c
+ 120  chu = x**(-a) * r9chu(a, b, x)
+c
+ 130  return
+      end
diff --git a/fvn_fnlib/ci.f b/fvn_fnlib/ci.f
new file mode 100644
index 0000000..dc66239
--- /dev/null
+++ b/fvn_fnlib/ci.f
@@ -0,0 +1,47 @@
+      function ci (x)
+c december 1980 edition, w. fullerton, bell labs.
+      dimension cics(13)
+      external  csevl, inits, r1mach
+c
+c series for ci   on the interval  0.00000e+00 to  1.60000e+01
+c                                        with weighted error   1.94e-18
+c                                         log weighted error  17.71
+c                               significant figures required  17.74
+c                                    decimal places required  18.27
+c
+      data ci  cs(  1) /    -0.3400428185 6055363156 e0/
+      data ci  cs(  2) /    -1.0330216640 1177456807 e0/
+      data ci  cs(  3) /     0.1938822265 9917082877 e0/
+      data ci  cs(  4) /    -0.0191826043 6019865894 e0/
+      data ci  cs(  5) /     0.0011078925 2584784967 e0/
+      data ci  cs(  6) /    -0.0000415723 4558247209 e0/
+      data ci  cs(  7) /     0.0000010927 8524300229 e0/
+      data ci  cs(  8) /    -0.0000000212 3285954183 e0/
+      data ci  cs(  9) /     0.0000000003 1733482164 e0/
+      data ci  cs( 10) /    -0.0000000000 0376141548 e0/
+      data ci  cs( 11) /     0.0000000000 0003622653 e0/
+      data ci  cs( 12) /    -0.0000000000 0000028912 e0/
+      data ci  cs( 13) /     0.0000000000 0000000194 e0/
+c
+      data nci, xsml /0, 0.0/
+c
+      if (ntci.ne.0) go to 10
+      nci = inits (cics, 13, 0.1*r1mach(3))
+      xsml = sqrt (r1mach(3))
+c
+ 10   if (x.le.0.0) call seteru (
+     1  17hci      x is le 0, 17, 1, 2)
+c
+      if (x.gt.4.0) go to 20
+      y = -1.0
+      if (x.gt.xsml) y = (x*x-8.0)*0.125
+      ci = alog(x) - 0.5 + csevl (y, cics, nci)
+      return
+c
+ 20   call r9sifg (x, f, g)
+      sinx = sin (x)
+      call erroff
+      ci = f*sinx - g*cos(x)
+c
+      return
+      end
diff --git a/fvn_fnlib/cin.f b/fvn_fnlib/cin.f
new file mode 100644
index 0000000..7cf2e09
--- /dev/null
+++ b/fvn_fnlib/cin.f
@@ -0,0 +1,47 @@
+      function cin (x)
+c december 1980 edition.  w. fullerton, bell labs.
+      dimension cincs(11)
+      external  csevl, inits, r1mach
+c
+c series for cin  on the interval  0.00000e+00 to  1.60000e+01
+c                                        with weighted error   7.33e-17
+c                                         log weighted error  16.14
+c                               significant figures required  15.42
+c                                    decimal places required  16.66
+c
+      data cin cs(  1) /     0.3707450175 090968874 e0/
+      data cin cs(  2) /    -0.0589357489 636444683 e0/
+      data cin cs(  3) /     0.0053818964 211356912 e0/
+      data cin cs(  4) /    -0.0002986005 284196214 e0/
+      data cin cs(  5) /     0.0000109557 257532162 e0/
+      data cin cs(  6) /    -0.0000002840 545487735 e0/
+      data cin cs(  7) /     0.0000000054 697399488 e0/
+      data cin cs(  8) /    -0.0000000000 812418746 e0/
+      data cin cs(  9) /     0.0000000000 009586859 e0/
+      data cin cs( 10) /    -0.0000000000 000092027 e0/
+      data cin cs( 11) /     0.0000000000 000000733 e0/
+c
+      data eul / 0.5772156649 0153286 e0 /
+      data ncin, xmin /0, 0.0/
+c
+      if (ncin.ne.0) go to 10
+      ncin = inits (cincs, 11, 0.1*r1mach(3))
+      xmin = sqrt (r1mach(1))
+c
+ 10   cin = 0.0
+      absx = abs(x)
+      if (x.ne.0.0 .and. absx.le.xmin) call seteru (
+     1  38hcin     x so small that cin underflows, 38, 1, 0)
+      if (absx.le.xmin) return
+c
+      if (x.gt.4.0) go to 20
+      cin = x*x*csevl ((x*x-8.0)*.125, cincs, ncin)
+      return
+c
+ 20   call r9sifg (x, f, g)
+      sinx = sin (absx)
+      call erroff
+      cin = -f*sinx + g*cos(absx) + alog(absx) + eul
+c
+      return
+      end
diff --git a/fvn_fnlib/cinh.f b/fvn_fnlib/cinh.f
new file mode 100644
index 0000000..e2138e0
--- /dev/null
+++ b/fvn_fnlib/cinh.f
@@ -0,0 +1,51 @@
+      function cinh (x)
+c december 1980 edition.  w. fullerton, bell labs.
+c
+c evaluate the hyperbolic cin function.
+c         cinh(x) = integral from 0 to x of (cosh(t) - 1)/t dt.
+c
+      dimension cinhcs(10)
+      external  chi, csevl, inits, r1mach
+c
+c series for cinh on the interval  0.00000e+00 to  9.00000e+00
+c                                        with weighted error   6.64e-17
+c                                         log weighted error  16.18
+c                               significant figures required  15.08
+c                                    decimal places required  16.68
+c
+      data cinhcs(  1) /     0.1093291636 520734431 e0/
+      data cinhcs(  2) /     0.0573928847 550379676 e0/
+      data cinhcs(  3) /     0.0028095756 978830353 e0/
+      data cinhcs(  4) /     0.0000828780 840721357 e0/
+      data cinhcs(  5) /     0.0000016278 596173914 e0/
+      data cinhcs(  6) /     0.0000000227 809519256 e0/
+      data cinhcs(  7) /     0.0000000002 384484842 e0/
+      data cinhcs(  8) /     0.0000000000 019360830 e0/
+      data cinhcs(  9) /     0.0000000000 000125454 e0/
+      data cinhcs( 10) /     0.0000000000 000000664 e0/
+c
+      data eul / 0.5772156649 0153286 e0 /
+      data ncinh, xsml, xmin /0, 2*0.0/
+c
+      if (ncinh.ne.0) go to 10
+      ncinh = inits (cinhcs, 10, 0.1*r1mach(3))
+      xsml = sqrt (r1mach(3))
+      xmin = 2.0*sqrt(r1mach(1))
+c
+ 10   absx = abs(x)
+      if (absx.gt.3.0) go to 20
+c
+      cinh = 0.0
+      if (x.ne.0.0 .and. absx.le.xmin) call seteru (
+     1  39hcinh    abs(x) so small cinh underflows, 39, 1, 0)
+      if (absx.le.xmin) return
+c
+      y = -1.0
+      if (absx.gt.xsml) y = x*x/9.0 - 1.0
+      cinh = x*x* (0.25 + csevl (y, cinhcs, ncinh))
+      return
+c
+ 20   cinh = chi(absx) - eul - alog(absx)
+c
+      return
+      end
diff --git a/fvn_fnlib/clbeta.f b/fvn_fnlib/clbeta.f
new file mode 100644
index 0000000..fb6027f
--- /dev/null
+++ b/fvn_fnlib/clbeta.f
@@ -0,0 +1,13 @@
+      complex function clbeta (a, b)
+c july 1977 edition.  w. fullerton, c3, los alamos scientific lab.
+c a preliminary version that is portable, but not accurate enough.
+      complex a, b, clngam
+      external clngam
+c
+      if (real(a).le.0.0 .or. real(b).le.0.0) call seteru (
+     1  48hclbeta  real part of both arguments must be gt 0, 48, 1, 2)
+c
+      clbeta = clngam(a) + clngam(b) - clngam(a+b)
+c
+      return
+      end
diff --git a/fvn_fnlib/clngam.f b/fvn_fnlib/clngam.f
new file mode 100644
index 0000000..318a959
--- /dev/null
+++ b/fvn_fnlib/clngam.f
@@ -0,0 +1,79 @@
+      complex function clngam (zin)
+c august 1980 edition.  w. fullerton c3, los alamos scientific lab.
+c eventually clngam should make use of c8lgmc for all z except for
+c z in the vicinity of 1 and 2.
+      complex zin, z, corr, cexp, clog, clnrel, c9lgmc
+      external  c9lgmc,  carg,  clnrel,
+     1  r1mach
+      data pi / 3.1415926535 8979324e0 /
+      data sq2pil / 0.9189385332 0467274e0 /
+c
+      data bound, dxrel, rmax / 3*0.0 /
+c
+      if (bound.ne.0.) go to 10
+      n = -0.30*alog(r1mach(3))
+c bound = n*(0.1*eps)**(-1/(2*n-1))/(pi*exp(1))
+      bound = 0.1171*float(n)*(0.1*r1mach(3))**(-1./(2.*float(n)-1.))
+      dxrel = sqrt (r1mach(4))
+      rmax = r1mach(2)/alog(r1mach(2))
+c
+ 10   z = zin
+      x = real(zin)
+      y = aimag(zin)
+c
+      corr = (0.0, 0.0)
+      cabsz = cabs(z)
+      if (cabsz.gt.rmax) call seteru (
+     1  44hclngam  cabs(z) so large result may overflow, 44, 2, 2)
+      if (x.ge.0.0 .and. cabsz.gt.bound) go to 50
+      if (x.lt.0.0 .and. abs(y).gt.bound) go to 50
+c
+      if (cabsz.lt.bound) go to 20
+c
+c use the reflection formula for real(z) negative, cabs(z) large, and
+c abs(aimag(y)) small.
+c
+      call entsrc (irold, 1)
+      if (y.gt.0.0) z = conjg (z)
+      corr = cexp (-cmplx(0.0,2.0*pi)*z)
+      if (real(corr).eq.1.0 .and. aimag(corr).eq.0.0) call seteru (
+     1  31hclngam  z is a negative integer, 31, 3, 2)
+c
+      clngam = sq2pil + 1.0 - cmplx(0.0,pi)*(z-0.5) - clnrel(-corr)
+     1  + (z-0.5)*clog(1.0-z) - z - c9lgmc(1.0-z)
+      if (y.gt.0.0) clngam = conjg (clngam)
+c
+      call erroff
+      call entsrc (ir, irold)
+      if (abs(y).gt.dxrel) return
+c  X in sequence field on next line is to preserve trailing blank
+      if (0.5*cabs((1.-corr)*clngam/z).lt.dxrel) call seteru (68hclngam    X
+     1 answer lt half precision because z too near negative integer, 68,
+     2 1, 1)
+      return
+c
+c use the recursion relation for cabs(z) small.
+c
+ 20   if (x.ge.(-0.5) .or. abs(y).gt.dxrel) go to 30
+      if (cabs((z-aint(x-0.5))/x).lt.dxrel) call seteru ( 68hclngam  ans
+     1wer lt half precision because z too near negative integer, 68,1,1)
+c
+ 30   n = sqrt (bound**2 - y**2) - x + 1.0
+      argsum = 0.0
+      corr = (1.0, 0.0)
+      do 40 i=1,n
+        argsum = argsum + carg(z)
+        corr = z*corr
+        z = 1.0 + z
+ 40   continue
+c
+      if (real(corr).eq.0.0 .and. aimag(corr).eq.0.0) call seteru (
+     1  31hclngam  z is a negative integer, 31, 3, 2)
+      corr = -cmplx (alog(cabs(corr)), argsum)
+c
+c use stirling-s approximation for large z.
+c
+ 50   clngam = sq2pil + (z-0.5)*clog(z) - z + corr + c9lgmc(z)
+      return
+c
+      end
diff --git a/fvn_fnlib/clnrel.f b/fvn_fnlib/clnrel.f
new file mode 100644
index 0000000..afa994e
--- /dev/null
+++ b/fvn_fnlib/clnrel.f
@@ -0,0 +1,30 @@
+      complex function clnrel (z)
+c april 1977 version.  w. fullerton, c3, los alamos scientific lab.
+c
+c clnrel(z) = clog(1+z) with relative error accuracy near z = 0.
+c let   rho = cabs(z)  and
+c       r**2 = cabs(1+z)**2 = (1+x)**2 + y**2 = 1 + 2*x + rho**2 .
+c now if rho is small we may evaluate clnrel(z) accurately by
+c       clog(1+z) = cmplx (alog(r), carg(1+z))
+c                 = cmplx (0.5*alog(r**2), carg(1+z))
+c                 = cmplx (0.5*alnrel(2*x+rho**2), carg(1+z))
+c
+      complex z, clog
+      external alnrel, carg,  r1mach
+      data sqeps /0.0/
+c
+      if (sqeps.eq.0.) sqeps = sqrt (r1mach(4))
+c
+      if (cabs(1.+z).lt.sqeps) call seteru (
+     1  54hclnrel  answer lt half precision because z too near -1, 54,
+     2  1, 1)
+c
+      rho = cabs(z)
+      if (rho.gt.0.375) clnrel = clog (1.0+z)
+      if (rho.gt.0.375) return
+c
+      x = real(z)
+      clnrel = cmplx (0.5*alnrel(2.*x+rho**2), carg(1.0+z))
+c
+      return
+      end
diff --git a/fvn_fnlib/clog10.f b/fvn_fnlib/clog10.f
new file mode 100644
index 0000000..cb96501
--- /dev/null
+++ b/fvn_fnlib/clog10.f
@@ -0,0 +1,10 @@
+      complex function clog10 (z)
+c april 1977 version.  w. fullerton, c3, los alamos scientific lab.
+      complex z, clog
+c      external clog
+      data aloge / 0.4342944819 0325182765e0 /
+c
+      clog10 = aloge * clog(z)
+c
+      return
+      end
diff --git a/fvn_fnlib/comp1.f b/fvn_fnlib/comp1.f
new file mode 100644
index 0000000..f5d5d66
--- /dev/null
+++ b/fvn_fnlib/comp1.f
@@ -0,0 +1,41 @@
+      subroutine comp1 (fn, dfn, xstart, xend, xincr, fname)
+c august 1979 edition. w. fullerton, c3, los alamos scientific lab.
+      double precision dfn, xstart, xend, xincr, dx, df
+      integer fname(1), fmt(23)
+      external fn, dfn, i1mach
+c
+      call s9comp (26, fmt, nwd)
+      iwunit = i1mach(2)
+      write (iwunit, 5)
+ 5    format (1h1)
+      write (iwunit, fmt) (fname(i), i=1,nwd), (fname(i), i=1,nwd)
+      write (iwunit, 10)
+ 10   format (1h+, 8x, 1hx, 78x, 4haerr, 8x, 4hrerr)
+c
+      aerrmx = 0.0
+      rerrmx = 0.0
+      do 30 i=1,101
+        dx = xstart + dble(float(i-1))*xincr
+        if (dx.gt.xend) go to 40
+c
+        x = dx
+        f = fn(x)
+        df = dfn(dble(x))
+        aerr = df - dble(f)
+        rerr = 0.0
+        if (df.ne.0.0d0) rerr = abs (aerr/sngl(df))
+c
+        aerrmx = amax1 (abs(aerr), aerrmx)
+        rerrmx = amax1 (rerr, rerrmx)
+        df = dfn(dx)
+c
+        if (mod(i,10).eq.1) write (iwunit, 20)
+        write (iwunit, 20) x, f, df, aerr, rerr
+ 20     format (1x, e13.5, e25.15, d40.30, 3x, 2e12.3)
+ 30   continue
+c
+ 40   write (iwunit, 50) aerrmx, rerrmx
+ 50   format (/82x, 2e12.3)
+c
+      return
+      end
diff --git a/fvn_fnlib/comp2.f b/fvn_fnlib/comp2.f
new file mode 100644
index 0000000..531e5f2
--- /dev/null
+++ b/fvn_fnlib/comp2.f
@@ -0,0 +1,49 @@
+      subroutine comp2 (fn, dfn, xstart, xend, xincr, ystart, yend,
+     1  yincr, fname)
+c august 1979 edition. w. fullerton, c3, los alamos scientific lab.
+      double precision dfn, xstart, xend, xincr, ystart, yend, yincr,
+     1  dx, dy, df
+      integer fname(1), fmt(23)
+      external fn, dfn, i1mach
+c
+      call s9comp (39, fmt, nwd)
+      iwunit = i1mach(2)
+      write (iwunit, 5)
+ 5    format (1h1)
+      write (iwunit, fmt) (fname(i), i=1,nwd), (fname(i), i=1,nwd)
+      write (iwunit, 10)
+ 10   format (1h+, 8x, 1hx, 12x, 1hy, 78x, 4haerr, 8x, 4hrerr)
+c
+      aerrmx = 0.0
+      rerrmx = 0.0
+      do 40 i=1,21
+        dx = xstart + dble(float(i-1))*xincr
+        if (dx.gt.xend) go to 50
+c
+        write (iwunit, 20)
+        do 30 j=1,21
+          dy = ystart + dble(float(j-1))*yincr
+          if (dy.gt.yend) go to 40
+c
+          x = dx
+          y = dy
+          f = fn (x, y)
+          df = dfn (dble(x), dble(y))
+          aerr = df - dble(f)
+          rerr = 0.0
+          if (df.ne.0.0d0) rerr = abs (aerr/sngl(df))
+c
+          aerrmx = amax1 (abs(aerr), aerrmx)
+          rerrmx = amax1 (rerr, rerrmx)
+          df = dfn (dx, dy)
+c
+          write (iwunit, 20) x, y, f, df, aerr, rerr
+ 20       format (1x, 2e13.5, e25.15, d40.30, 3x, 2e12.3)
+ 30     continue
+ 40   continue
+c
+ 50   write (iwunit, 60) aerrmx, rerrmx
+ 60   format (/95x, 2e12.3)
+c
+      return
+      end
diff --git a/fvn_fnlib/comp3.f b/fvn_fnlib/comp3.f
new file mode 100644
index 0000000..0c32d30
--- /dev/null
+++ b/fvn_fnlib/comp3.f
@@ -0,0 +1,55 @@
+      subroutine comp3 (fn, dfn, xstart, xend, xincr, ystart, yend,
+     1  yincr, zstart, zend, zincr, fname)
+c august 1979 edition. w. fullerton, c3, los alamos scientific lab.
+      double precision dfn, xstart, xend, xincr, ystart, yend, yincr,
+     1  zstart, zend, zincr, dx, dy, dz, df
+      integer fname(1), fmt(23)
+      external fn, dfn, i1mach
+c
+      call s9comp (48, fmt, nwd)
+      iwunit = i1mach(2)
+      write (iwunit, 5)
+ 5    format (1h1)
+      write (iwunit, fmt) (fname(i), i=1,nwd), (fname(i), i=1,nwd)
+      write (iwunit, 10)
+ 10   format (1h+, 8x, 1hx, 12x, 1hy, 12x, 1hz, 69x, 4haerr, 7x, 4hrerr)
+c
+      aerrmx = 0.0
+      rerrmx = 0.0
+      do 50 i=1,11
+        dx = xstart + dble(float(i-1))*xincr
+        if (dx.gt.xend) go to 60
+c
+        do 40 j=1,11
+          dy = ystart + dble(float(j-1))*yincr
+          if (dy.gt.yend) go to 50
+c
+          write (iwunit, 20)
+          do 30 k=1,11
+            dz = zstart + dble(float(k-1))*zincr
+            if (dz.gt.zend) go to 40
+c
+            x = dx
+            y = dy
+            z = dz
+            f = fn (x, y, z)
+            df = dfn (dble(x), dble(y), dble(z))
+            aerr = df - dble(f)
+            rerr = 0.0
+            if (df.ne.0.0d0) rerr = abs (aerr/sngl(df))
+c
+            aerrmx = amax1 (abs(aerr), aerrmx)
+            rerrmx = amax1 (rerr, rerrmx)
+            df = dfn (dx, dy, dz)
+c
+            write (iwunit, 20) x, y, z, f, df, aerr, rerr
+ 20         format (1x, 3e13.5, e22.14, d36.28, 2x, 2e11.3)
+ 30       continue
+ 40     continue
+ 50   continue
+c
+ 60   write (iwunit, 70) aerrmx, rerrmx
+ 70   format (/100x, 2e11.3)
+c
+      return
+      end
diff --git a/fvn_fnlib/cosdg.f b/fvn_fnlib/cosdg.f
new file mode 100644
index 0000000..abd089b
--- /dev/null
+++ b/fvn_fnlib/cosdg.f
@@ -0,0 +1,15 @@
+      function cosdg (x)
+c june 1977 edition.   w. fullerton, c3, los alamos scientific lab.
+c      external cos
+      data raddeg / .017453292519943296e0 /
+c
+      cosdg = cos (raddeg*x)
+c
+      if (amod(x,90.).ne.0.) return
+      n = abs(x)/90.0 + 0.5
+      n = mod (n, 2)
+      if (n.eq.0) cosdg = sign (1.0, cosdg)
+      if (n.eq.1) cosdg = 0.0
+c
+      return
+      end
diff --git a/fvn_fnlib/cot.f b/fvn_fnlib/cot.f
new file mode 100644
index 0000000..4aab1a6
--- /dev/null
+++ b/fvn_fnlib/cot.f
@@ -0,0 +1,78 @@
+      function cot (x)
+c may 1980 edition.   w. fullerton, c3, los alamos scientific lab.
+      dimension cotcs(8)
+      external  csevl, inits, r1mach
+c
+c series for cot        on the interval  0.          to  6.25000d-02
+c                                        with weighted error   3.76e-17
+c                                         log weighted error  16.42
+c                               significant figures required  15.51
+c                                    decimal places required  16.88
+c
+      data cot cs( 1) /    .2402591609 8295630e0 /
+      data cot cs( 2) /   -.0165330316 01500228e0 /
+      data cot cs( 3) /   -.0000429983 91931724e0 /
+      data cot cs( 4) /   -.0000001592 83223327e0 /
+      data cot cs( 5) /   -.0000000006 19109313e0 /
+      data cot cs( 6) /   -.0000000000 02430197e0 /
+      data cot cs( 7) /   -.0000000000 00009560e0 /
+      data cot cs( 8) /   -.0000000000 00000037e0 /
+c
+c pi2rec = 2/pi - 0.625
+      data pi2rec / .01161977236 75813430 e0 /
+      data nterms, xmax, xsml, xmin, sqeps / 0, 4*0.0 /
+c
+      if (nterms.ne.0) go to 10
+      nterms = inits (cotcs, 8, 0.1*r1mach(3))
+      xmax = 1.0/r1mach(4)
+      xsml = sqrt (3.0*r1mach(3))
+      xmin = exp ( amax1(alog(r1mach(1)), -alog(r1mach(2))) + 0.01)
+      sqeps = sqrt (r1mach(4))
+c
+ 10   y = abs(x)
+      if (abs(x).lt.xmin) call seteru (
+     1  48hcot     abs(x) is zero or so small cot overflows, 48, 2, 2)
+      if (y.gt.xmax) call seteru (
+     1  42hcot     no precision because abs(x) is big, 42, 3, 2)
+c
+c carefully compute y * (2/pi) = (aint(y) + rem(y)) * (.625 + pi2rec)
+c = aint(.625*y) + rem(.625*y) + y*pi2rec  =  aint(.625*y) + z
+c = aint(.625*y) + aint(z) + rem(z)
+c
+      ainty = aint (y)
+      yrem = y - ainty
+      prodbg = 0.625*ainty
+      ainty = aint (prodbg)
+      y = (prodbg-ainty) + 0.625*yrem + y*pi2rec
+      ainty2 = aint (y)
+      ainty = ainty + ainty2
+      y = y - ainty2
+c
+      ifn = amod (ainty, 2.)
+      if (ifn.eq.1) y = 1.0 - y
+c
+      if (abs(x).gt.0.5 .and. y.lt.abs(x)*sqeps) call seteru (
+     1  72hcot     answer lt half precision, abs(x) too big or x near n*
+     2pi (n.ne.0), 72, 1, 1)
+c
+      if (y.gt.0.25) go to 20
+      if (y.eq.0.0) call seteru (29hcot     x is a multiple of pi,
+     1  29, 4, 2)
+      cot = 1.0/y
+      if (y.gt.xsml) cot = (0.5 + csevl (32.0*y*y-1., cotcs, nterms)) /y
+      go to 40
+c
+ 20   if (y.gt.0.5) go to 30
+      cot = (0.5 + csevl (8.0*y*y-1., cotcs, nterms)) / (0.5*y)
+      cot = (cot**2 - 1.0) * 0.5 / cot
+      go to 40
+c
+ 30   cot = (0.5 + csevl (2.0*y*y-1., cotcs, nterms)) / (0.25*y)
+      cot = (cot**2 - 1.0) * 0.5 / cot
+      cot = (cot**2 - 1.0) * 0.5 / cot
+c
+ 40   if (x.ne.0.) cot = sign (cot, x)
+      if (ifn.eq.1) cot = -cot
+c
+      return
+      end
diff --git a/fvn_fnlib/cpsi.f b/fvn_fnlib/cpsi.f
new file mode 100644
index 0000000..da4c6b3
--- /dev/null
+++ b/fvn_fnlib/cpsi.f
@@ -0,0 +1,87 @@
+      complex function cpsi (zin)
+c may 1978 edition.  w. fullerton, c3, los alamos scientific lab.
+      complex zin, z, z2inv, corr,  ccot, clog
+      dimension bern(13)
+      external  ccot, r1mach
+c
+      data bern( 1) /   .8333333333 3333333 e-1 /
+      data bern( 2) /  -.8333333333 3333333 e-2 /
+      data bern( 3) /   .3968253968 2539683 e-2 /
+      data bern( 4) /  -.4166666666 6666667 e-2 /
+      data bern( 5) /   .7575757575 7575758 e-2 /
+      data bern( 6) /  -.2109279609 2796093 e-1 /
+      data bern( 7) /   .8333333333 3333333 e-1 /
+      data bern( 8) /  -.4432598039 2156863 e0 /
+      data bern( 9) /   .3053954330 2701197 e1 /
+      data bern(10) /  -.2645621212 1212121 e2 /
+      data bern(11) /   .2814601449 2753623 e3 /
+      data bern(12) /  -.3454885393 7728938 e4 /
+      data bern(13) /   .5482758333 3333333 e5 /
+c
+      data pi / 3.141592653 589793 e0 /
+      data nterm, bound, dxrel, rmin, rbig / 0, 4*0.0 /
+c
+      if (nterm.ne.0) go to 10
+      nterm = -0.30*alog(r1mach(3))
+c maybe bound = n*(0.1*eps)**(-1/(2*n-1)) / (pi*exp(1))
+      bound = 0.1171*float(nterm) *
+     1  (0.1*r1mach(3))**(-1.0/(2.0*float(nterm)-1.0))
+      dxrel = sqrt(r1mach(4))
+      rmin = exp (amax1 (alog(r1mach(1)), -alog(r1mach(2))) + 0.011 )
+      rbig = 1.0/r1mach(3)
+c
+ 10   z = zin
+      x = real(z)
+      y = aimag(z)
+      if (y.lt.0.0) z = conjg(z)
+c
+      corr = (0.0, 0.0)
+      cabsz = cabs(z)
+      if (x.ge.0.0 .and. cabsz.gt.bound) go to 50
+      if (x.lt.0.0 .and. abs(y).gt.bound) go to 50
+c
+      if (cabsz.lt.bound) go to 20
+c
+c use the reflection formula for real(z) negative, cabs(z) large, and
+c abs(aimag(y)) small.
+c
+      corr = -pi*ccot(pi*z)
+      z = 1.0 - z
+      go to 50
+c
+c use the recursion relation for cabs(z) small.
+c
+ 20   if (cabsz.lt.rmin) call seteru (
+     1  56hcpsi    cpsi called with z so near 0 that cpsi overflows,
+     1  56, 2, 2)
+c
+      if (x.ge.(-0.5) .or. abs(y).gt.dxrel) go to 30
+      if (cabs((z-aint(x-0.5))/x).lt.dxrel) call seteru (
+     1  68hcpsi    answer lt half precision because z too near negative
+     2integer, 68, 1, 1)
+      if (y.eq.0.0 .and. x.eq.aint(x)) call seteru (
+     1  31hcpsi    z is a negative integer, 31, 3, 2)
+c
+ 30   n = sqrt(bound**2-y**2) - x + 1.0
+      do 40 i=1,n
+        corr = corr - 1.0/z
+        z = z + 1.0
+ 40   continue
+c
+c now evaluate the asymptotic series for suitably large z.
+c
+ 50   if (cabsz.gt.rbig) cpsi = clog(z) + corr
+      if (cabsz.gt.rbig) go to 70
+c
+      cpsi = (0.0, 0.0)
+      z2inv = 1.0/z**2
+      do 60 i=1,nterm
+        ndx = nterm + 1 - i
+        cpsi = bern(ndx) + z2inv*cpsi
+ 60   continue
+      cpsi = clog(z) - 0.5/z - cpsi*z2inv + corr
+c
+ 70   if (y.lt.0.0) cpsi = conjg(cpsi)
+c
+      return
+      end
diff --git a/fvn_fnlib/csevl.f b/fvn_fnlib/csevl.f
new file mode 100644
index 0000000..71fd632
--- /dev/null
+++ b/fvn_fnlib/csevl.f
@@ -0,0 +1,35 @@
+      function csevl (x, cs, n)
+c april 1977 version.  w. fullerton, c3, los alamos scientific lab.
+c
+c evaluate the n-term chebyshev series cs at x.  adapted from
+c r. broucke, algorithm 446, c.a.c.m., 16, 254 (1973).  also see fox
+c and parker, chebyshev polys in numerical analysis, oxford press, p.56.
+c
+c             input arguments --
+c x      value at which the series is to be evaluated.
+c cs     array of n terms of a chebyshev series.  in eval-
+c        uating cs, only half the first coef is summed.
+c n      number of terms in array cs.
+c
+      dimension cs(1)
+c
+      if (n.lt.1) call seteru (28hcsevl   number of terms le 0, 28, 2,2)
+      if (n.gt.1000) call seteru (31hcsevl   number of terms gt 1000,
+     1  31, 3, 2)
+      if (x.lt.(-1.1) .or. x.gt.1.1) call seteru (
+     1  25hcsevl   x outside (-1,+1), 25, 1, 1)
+c
+      b1 = 0.
+      b0 = 0.
+      twox = 2.*x
+      do 10 i=1,n
+        b2 = b1
+        b1 = b0
+        ni = n + 1 - i
+        b0 = twox*b1 - b2 + cs(ni)
+ 10   continue
+c
+      csevl = 0.5 * (b0-b2)
+c
+      return
+      end
diff --git a/fvn_fnlib/csinh.f b/fvn_fnlib/csinh.f
new file mode 100644
index 0000000..f75f3f8
--- /dev/null
+++ b/fvn_fnlib/csinh.f
@@ -0,0 +1,10 @@
+      complex function csinh (z)
+c april 1977 version.  w. fullerton, c3, los alamos scientific lab.
+      complex z, ci, csin
+c      external csin
+      data ci /(0.,1.)/
+c
+      csinh = -ci*csin(ci*z)
+c
+      return
+      end
diff --git a/fvn_fnlib/ctan.f b/fvn_fnlib/ctan.f
new file mode 100644
index 0000000..c6d74b1
--- /dev/null
+++ b/fvn_fnlib/ctan.f
@@ -0,0 +1,47 @@
+      complex function ctan (z)
+c march 1979 edition.  w. fullerton, c3, los alamos scientific lab.
+      complex z
+      external  r1mach
+      data eps, xmax, ylarge, ybig, ymin / 4*0.0, 1.50 /
+c
+      if (eps.ne.0.0) go to 10
+      eps =  r1mach(4)
+      xmax = 1.0/eps
+      ylarge = -0.5*alog(0.5*r1mach(3))
+      ybig = -0.5*alog(0.5*sqrt(r1mach(3)))
+c
+ 10   x = real(z)
+      y = aimag(z)
+      if (abs(y).gt.ylarge) go to 30
+c
+      x2 = 2.0*x
+      y2 = 2.0*y
+      if (abs(x2).gt.xmax) go to 20
+c
+      call entsrc (irold, 1)
+      sn2x = sin(x2)
+      call erroff
+      den = cos(x2) + cosh(y2)
+      call erroff
+      call entsrc (irold2, irold)
+c
+      if (den.lt.x*x2*eps*eps) call seteru ( 72hctan    tan is nearly si
+     1ngular, x is near pi/2 or 3*pi/2 and y is near 0, 72, 3, 2)
+      if (den.lt.x*x2*eps) call seteru (74hctan    answer lt half precis
+     1ion, x is near pi/2 or 3*pi/2 and y is near 0, 74, 1, 1)
+c
+      ctan = cmplx (sn2x/den, sinh(y2)/den)
+      return
+c
+ 20   if (abs(y).lt.ymin) call seteru (75hctan    answer would have no p
+     1recision, abs(x) is very big and abs(y) small, 75, 4, 2)
+      if (abs(y).lt.ybig) call seteru (69hctan    answer lt half precisi
+     1on, abs(x) is very big and abs(y) small, 69, 2, 1)
+c
+      ctan = cmplx (0.0, tanh(y2))
+      return
+c
+ 30   ctan = cmplx (0.0, -sign(1.0, y))
+      return
+c
+      end
diff --git a/fvn_fnlib/ctanh.f b/fvn_fnlib/ctanh.f
new file mode 100644
index 0000000..903293f
--- /dev/null
+++ b/fvn_fnlib/ctanh.f
@@ -0,0 +1,10 @@
+      complex function ctanh (z)
+c april 1977 version.  w. fullerton, c3, los alamos scientific lab.
+      complex z, ci, ctan
+      external ctan
+      data ci /(0.,1.)/
+c
+      ctanh = -ci*ctan(ci*z)
+c
+      return
+      end
diff --git a/fvn_fnlib/d1mach.f90 b/fvn_fnlib/d1mach.f90
new file mode 100644
index 0000000..db337a6
--- /dev/null
+++ b/fvn_fnlib/d1mach.f90
@@ -0,0 +1,77 @@
+!DECK D1MACH
+      DOUBLE PRECISION FUNCTION D1MACH (I)
+      IMPLICIT NONE
+      INTEGER :: I
+      DOUBLE PRECISION :: B, X
+!***BEGIN PROLOGUE  D1MACH
+!***PURPOSE  Return floating point machine dependent constants.
+!***LIBRARY   SLATEC
+!***CATEGORY  R1
+!***TYPE      SINGLE PRECISION (D1MACH-S, D1MACH-D)
+!***KEYWORDS  MACHINE CONSTANTS
+!***AUTHOR  Fox, P. A., (Bell Labs)
+!           Hall, A. D., (Bell Labs)
+!           Schryer, N. L., (Bell Labs)
+!***DESCRIPTION
+!
+!   D1MACH can be used to obtain machine-dependent parameters for the
+!   local machine environment.  It is a function subprogram with one
+!   (input) argument, and can be referenced as follows:
+!
+!        A = D1MACH(I)
+!
+!   where I=1,...,5.  The (output) value of A above is determined by
+!   the (input) value of I.  The results for various values of I are
+!   discussed below.
+!
+!   D1MACH(1) = B**(EMIN-1), the smallest positive magnitude.
+!   D1MACH(2) = B**EMAX*(1 - B**(-T)), the largest magnitude.
+!   D1MACH(3) = B**(-T), the smallest relative spacing.
+!   D1MACH(4) = B**(1-T), the largest relative spacing.
+!   D1MACH(5) = LOG10(B)
+!
+!   Assume single precision numbers are represented in the T-digit,
+!   base-B form
+!
+!              sign (B**E)*( (X(1)/B) + ... + (X(T)/B**T) )
+!
+!   where 0 .LE. X(I) .LT. B for I=1,...,T, 0 .LT. X(1), and
+!   EMIN .LE. E .LE. EMAX.
+!
+!   The values of B, T, EMIN and EMAX are provided in I1MACH as
+!   follows:
+!   I1MACH(10) = B, the base.
+!   I1MACH(11) = T, the number of base-B digits.
+!   I1MACH(12) = EMIN, the smallest exponent E.
+!   I1MACH(13) = EMAX, the largest exponent E.
+!
+!
+!***REFERENCES  P. A. Fox, A. D. Hall and N. L. Schryer, Framework for
+!                 a portable library, ACM Transactions on Mathematical
+!                 Software 4, 2 (June 1978), pp. 177-188.
+!***ROUTINES CALLED  XERMSG
+!***REVISION HISTORY  (YYMMDD)
+!   790101  DATE WRITTEN
+!   960329  Modified for Fortran 90 (BE after suggestions by EHG)      
+!***END PROLOGUE  D1MACH
+!      
+      X = 1.0D0
+      B = RADIX(X)
+      SELECT CASE (I)
+        CASE (1)
+          D1MACH = B**(MINEXPONENT(X)-1) ! the smallest positive magnitude.
+        CASE (2)
+          D1MACH = HUGE(X)               ! the largest magnitude.
+        CASE (3)
+          D1MACH = B**(-DIGITS(X))       ! the smallest relative spacing.
+        CASE (4)
+          D1MACH = B**(1-DIGITS(X))      ! the largest relative spacing.
+        CASE (5)
+          D1MACH = LOG10(B)
+        CASE DEFAULT
+          WRITE (*, FMT = 9000)
+ 9000     FORMAT ('1ERROR    1 IN D1MACH - I OUT OF BOUNDS')
+          STOP
+      END SELECT
+      RETURN
+      END
diff --git a/fvn_fnlib/d9admp.f b/fvn_fnlib/d9admp.f
new file mode 100644
index 0000000..6350596
--- /dev/null
+++ b/fvn_fnlib/d9admp.f
@@ -0,0 +1,469 @@
+      subroutine d9admp (x, ampl, phi)
+c july 1980 edition.  w. fullerton, bell labs. revised nov 1983.
+c
+c evaluate the derivative of the airy function modulus and phase
+c for x .le. -1.0 .
+c
+      double precision x, ampl, phi, an22cs(74), an21cs(60), an20cs(57),
+     1  aph2cs(72), aph1cs(58), aph0cs(53), xsml, z, sqrtx, pi34,
+     2  d1mach, dcsevl, dsqrt
+      external d1mach, dcsevl, initds
+c
+c series for an22 on the interval -1.00000e+00 to -1.25000e-01
+c                                        with weighted error   4.05e-32
+c                                         log weighted error  31.39
+c                               significant figures required  29.87
+c                                    decimal places required  32.33
+c
+      data an22cs(  1) /  0.0537418629 6297943290 9110336091 7783d0/
+      data an22cs(  2) / -0.0126661435 8598831934 6631208503 6450d0/
+      data an22cs(  3) / -0.0011924334 1065930068 4084891691 3681d0/
+      data an22cs(  4) / -0.0002032327 6272756545 5268715517 6363d0/
+      data an22cs(  5) / -0.0000446468 9630751639 7951616490 5945d0/
+      data an22cs(  6) / -0.0000113359 0360531234 9041699789 3086d0/
+      data an22cs(  7) / -0.0000031641 3523785461 0735667135 5827d0/
+      data an22cs(  8) / -0.0000009446 7088861489 3912088853 2442d0/
+      data an22cs(  9) / -0.0000002966 5622364717 6552790090 5456d0/
+      data an22cs( 10) / -0.0000000969 1188920243 6779990866 1433d0/
+      data an22cs( 11) / -0.0000000326 8225386532 7409153307 2559d0/
+      data an22cs( 12) / -0.0000000113 1446189635 8386590044 7294d0/
+      data an22cs( 13) / -0.0000000040 0426910017 4150173827 8050d0/
+      data an22cs( 14) / -0.0000000014 4403336839 0742377852 2199d0/
+      data an22cs( 15) / -0.0000000005 2928537461 5261158566 3541d0/
+      data an22cs( 16) / -0.0000000001 9677633737 0788952824 5726d0/
+      data an22cs( 17) / -0.0000000000 7408000957 5584985881 6731d0/
+      data an22cs( 18) / -0.0000000000 2820163142 9466198284 2740d0/
+      data an22cs( 19) / -0.0000000000 1084400664 6312833133 7590d0/
+      data an22cs( 20) / -0.0000000000 0420748006 8264423692 0617d0/
+      data an22cs( 21) / -0.0000000000 0164591496 7063481972 4739d0/
+      data an22cs( 22) / -0.0000000000 0064868267 0512101889 6077d0/
+      data an22cs( 23) / -0.0000000000 0025740950 0335410583 2300d0/
+      data an22cs( 24) / -0.0000000000 0010278890 2940782213 2143d0/
+      data an22cs( 25) / -0.0000000000 0004128458 2719522272 0128d0/
+      data an22cs( 26) / -0.0000000000 0001667110 2933286250 9726d0/
+      data an22cs( 27) / -0.0000000000 0000676566 9616560802 3403d0/
+      data an22cs( 28) / -0.0000000000 0000275854 4823269357 6823d0/
+      data an22cs( 29) / -0.0000000000 0000112963 9791529716 8938d0/
+      data an22cs( 30) / -0.0000000000 0000046448 4822545731 4333d0/
+      data an22cs( 31) / -0.0000000000 0000019171 9803503391 2928d0/
+      data an22cs( 32) / -0.0000000000 0000007941 9757011189 3530d0/
+      data an22cs( 33) / -0.0000000000 0000003301 1649230036 8930d0/
+      data an22cs( 34) / -0.0000000000 0000001376 5805772654 9714d0/
+      data an22cs( 35) / -0.0000000000 0000000575 7809372001 2791d0/
+      data an22cs( 36) / -0.0000000000 0000000241 5270085863 2017d0/
+      data an22cs( 37) / -0.0000000000 0000000101 5930170093 3666d0/
+      data an22cs( 38) / -0.0000000000 0000000042 8443495533 0055d0/
+      data an22cs( 39) / -0.0000000000 0000000018 1134405216 8016d0/
+      data an22cs( 40) / -0.0000000000 0000000007 6760204561 9422d0/
+      data an22cs( 41) / -0.0000000000 0000000003 2602634675 8614d0/
+      data an22cs( 42) / -0.0000000000 0000000001 3877380668 2627d0/
+      data an22cs( 43) / -0.0000000000 0000000000 5919162710 3729d0/
+      data an22cs( 44) / -0.0000000000 0000000000 2529725643 1944d0/
+      data an22cs( 45) / -0.0000000000 0000000000 1083207729 3819d0/
+      data an22cs( 46) / -0.0000000000 0000000000 0464667488 0404d0/
+      data an22cs( 47) / -0.0000000000 0000000000 0199679778 3865d0/
+      data an22cs( 48) / -0.0000000000 0000000000 0085952410 8705d0/
+      data an22cs( 49) / -0.0000000000 0000000000 0037058415 2073d0/
+      data an22cs( 50) / -0.0000000000 0000000000 0016002750 3479d0/
+      data an22cs( 51) / -0.0000000000 0000000000 0006920812 4999d0/
+      data an22cs( 52) / -0.0000000000 0000000000 0002997444 8994d0/
+      data an22cs( 53) / -0.0000000000 0000000000 0001300035 6362d0/
+      data an22cs( 54) / -0.0000000000 0000000000 0000564610 0942d0/
+      data an22cs( 55) / -0.0000000000 0000000000 0000245534 1103d0/
+      data an22cs( 56) / -0.0000000000 0000000000 0000106911 9686d0/
+      data an22cs( 57) / -0.0000000000 0000000000 0000046609 5090d0/
+      data an22cs( 58) / -0.0000000000 0000000000 0000020344 1579d0/
+      data an22cs( 59) / -0.0000000000 0000000000 0000008890 0866d0/
+      data an22cs( 60) / -0.0000000000 0000000000 0000003889 1813d0/
+      data an22cs( 61) / -0.0000000000 0000000000 0000001703 2637d0/
+      data an22cs( 62) / -0.0000000000 0000000000 0000000746 7295d0/
+      data an22cs( 63) / -0.0000000000 0000000000 0000000327 7097d0/
+      data an22cs( 64) / -0.0000000000 0000000000 0000000143 9618d0/
+      data an22cs( 65) / -0.0000000000 0000000000 0000000063 3031d0/
+      data an22cs( 66) / -0.0000000000 0000000000 0000000027 8620d0/
+      data an22cs( 67) / -0.0000000000 0000000000 0000000012 2743d0/
+      data an22cs( 68) / -0.0000000000 0000000000 0000000005 4121d0/
+      data an22cs( 69) / -0.0000000000 0000000000 0000000002 3884d0/
+      data an22cs( 70) / -0.0000000000 0000000000 0000000001 0549d0/
+      data an22cs( 71) / -0.0000000000 0000000000 0000000000 4663d0/
+      data an22cs( 72) / -0.0000000000 0000000000 0000000000 2063d0/
+      data an22cs( 73) / -0.0000000000 0000000000 0000000000 0913d0/
+      data an22cs( 74) / -0.0000000000 0000000000 0000000000 0405d0/
+c
+c series for an21 on the interval -1.25000e-01 to -1.56250e-02
+c                                        with weighted error   3.55e-32
+c                                         log weighted error  31.45
+c                               significant figures required  29.46
+c                                    decimal places required  32.34
+c
+      data an21cs(  1) /  0.0198313155 2631693944 2034248316 5643d0/
+      data an21cs(  2) / -0.0029376249 0670875334 6059374559 4484d0/
+      data an21cs(  3) / -0.0001136260 6959581955 4987261113 7182d0/
+      data an21cs(  4) / -0.0000100554 4510871560 0975098164 5918d0/
+      data an21cs(  5) / -0.0000013048 7871165632 5042178559 8252d0/
+      data an21cs(  6) / -0.0000002123 8819931506 6483066607 9609d0/
+      data an21cs(  7) / -0.0000000402 2708333842 6904034785 0109d0/
+      data an21cs(  8) / -0.0000000084 9967459531 6179914220 1792d0/
+      data an21cs(  9) / -0.0000000019 5148394261 7861409953 2934d0/
+      data an21cs( 10) / -0.0000000004 7838653438 4038428299 2480d0/
+      data an21cs( 11) / -0.0000000001 2367339920 9945050113 7105d0/
+      data an21cs( 12) / -0.0000000000 3341374863 9875423221 9789d0/
+      data an21cs( 13) / -0.0000000000 0937028235 4076632989 7780d0/
+      data an21cs( 14) / -0.0000000000 0271301281 5613956468 7240d0/
+      data an21cs( 15) / -0.0000000000 0080759538 0058347953 5949d0/
+      data an21cs( 16) / -0.0000000000 0024632143 0470012525 2160d0/
+      data an21cs( 17) / -0.0000000000 0007676556 8910932156 4410d0/
+      data an21cs( 18) / -0.0000000000 0002438825 9880735491 9791d0/
+      data an21cs( 19) / -0.0000000000 0000788314 6635876030 8462d0/
+      data an21cs( 20) / -0.0000000000 0000258824 0099558586 4077d0/
+      data an21cs( 21) / -0.0000000000 0000086194 5786294569 0828d0/
+      data an21cs( 22) / -0.0000000000 0000029079 9473966312 8534d0/
+      data an21cs( 23) / -0.0000000000 0000009928 4679612289 0484d0/
+      data an21cs( 24) / -0.0000000000 0000003427 2022918777 4480d0/
+      data an21cs( 25) / -0.0000000000 0000001195 1104820551 5026d0/
+      data an21cs( 26) / -0.0000000000 0000000420 6972904367 8359d0/
+      data an21cs( 27) / -0.0000000000 0000000149 3969776281 8400d0/
+      data an21cs( 28) / -0.0000000000 0000000053 4898116158 9517d0/
+      data an21cs( 29) / -0.0000000000 0000000019 2987757782 6238d0/
+      data an21cs( 30) / -0.0000000000 0000000007 0131370101 8203d0/
+      data an21cs( 31) / -0.0000000000 0000000002 5658573850 9682d0/
+      data an21cs( 32) / -0.0000000000 0000000000 9447589456 2734d0/
+      data an21cs( 33) / -0.0000000000 0000000000 3499640194 1465d0/
+      data an21cs( 34) / -0.0000000000 0000000000 1303762246 6397d0/
+      data an21cs( 35) / -0.0000000000 0000000000 0488333416 3346d0/
+      data an21cs( 36) / -0.0000000000 0000000000 0183847758 6152d0/
+      data an21cs( 37) / -0.0000000000 0000000000 0069552732 4058d0/
+      data an21cs( 38) / -0.0000000000 0000000000 0026435191 0209d0/
+      data an21cs( 39) / -0.0000000000 0000000000 0010091809 4655d0/
+      data an21cs( 40) / -0.0000000000 0000000000 0003868892 4289d0/
+      data an21cs( 41) / -0.0000000000 0000000000 0001489203 6525d0/
+      data an21cs( 42) / -0.0000000000 0000000000 0000575434 2426d0/
+      data an21cs( 43) / -0.0000000000 0000000000 0000223172 5971d0/
+      data an21cs( 44) / -0.0000000000 0000000000 0000086860 7480d0/
+      data an21cs( 45) / -0.0000000000 0000000000 0000033922 0403d0/
+      data an21cs( 46) / -0.0000000000 0000000000 0000013291 0128d0/
+      data an21cs( 47) / -0.0000000000 0000000000 0000005223 9309d0/
+      data an21cs( 48) / -0.0000000000 0000000000 0000002059 4383d0/
+      data an21cs( 49) / -0.0000000000 0000000000 0000000814 2614d0/
+      data an21cs( 50) / -0.0000000000 0000000000 0000000322 8473d0/
+      data an21cs( 51) / -0.0000000000 0000000000 0000000128 3529d0/
+      data an21cs( 52) / -0.0000000000 0000000000 0000000051 1622d0/
+      data an21cs( 53) / -0.0000000000 0000000000 0000000020 4451d0/
+      data an21cs( 54) / -0.0000000000 0000000000 0000000008 1901d0/
+      data an21cs( 55) / -0.0000000000 0000000000 0000000003 2886d0/
+      data an21cs( 56) / -0.0000000000 0000000000 0000000001 3235d0/
+      data an21cs( 57) / -0.0000000000 0000000000 0000000000 5338d0/
+      data an21cs( 58) / -0.0000000000 0000000000 0000000000 2158d0/
+      data an21cs( 59) / -0.0000000000 0000000000 0000000000 0874d0/
+      data an21cs( 60) / -0.0000000000 0000000000 0000000000 0355d0/
+c
+c series for an20 on the interval -1.56250e-02 to  0.00000e+00
+c                                        with weighted error   3.18e-32
+c                                         log weighted error  31.50
+c                               significant figures required  29.30
+c                                    decimal places required  32.38
+c
+      data an20cs(  1) /  0.0126732217 1457380271 5461075103 4240d0/
+      data an20cs(  2) / -0.0005212847 0726156211 8478094230 9478d0/
+      data an20cs(  3) / -0.0000052672 1111403704 2980907405 2969d0/
+      data an20cs(  4) / -0.0000001628 2021850264 8375263246 0680d0/
+      data an20cs(  5) / -0.0000000090 9914426873 7138632597 3075d0/
+      data an20cs(  6) / -0.0000000007 4386471262 4219289068 5403d0/
+      data an20cs(  7) / -0.0000000000 7954947515 9146948612 2822d0/
+      data an20cs(  8) / -0.0000000000 1040509442 8830374280 3960d0/
+      data an20cs(  9) / -0.0000000000 0159324255 9841455152 3990d0/
+      data an20cs( 10) / -0.0000000000 0027706482 7234191394 6674d0/
+      data an20cs( 11) / -0.0000000000 0005353426 2923760629 5104d0/
+      data an20cs( 12) / -0.0000000000 0001130615 4178172831 4051d0/
+      data an20cs( 13) / -0.0000000000 0000257721 9007894316 7788d0/
+      data an20cs( 14) / -0.0000000000 0000062780 3311603248 5076d0/
+      data an20cs( 15) / -0.0000000000 0000016212 9540018993 9757d0/
+      data an20cs( 16) / -0.0000000000 0000004409 9298524067 5353d0/
+      data an20cs( 17) / -0.0000000000 0000001256 5551655325 8972d0/
+      data an20cs( 18) / -0.0000000000 0000000373 3690698801 5204d0/
+      data an20cs( 19) / -0.0000000000 0000000115 2462692672 4671d0/
+      data an20cs( 20) / -0.0000000000 0000000036 8308149909 9144d0/
+      data an20cs( 21) / -0.0000000000 0000000012 1520696533 1797d0/
+      data an20cs( 22) / -0.0000000000 0000000004 1291617772 4016d0/
+      data an20cs( 23) / -0.0000000000 0000000001 4417736423 9347d0/
+      data an20cs( 24) / -0.0000000000 0000000000 5163184287 5864d0/
+      data an20cs( 25) / -0.0000000000 0000000000 1893124266 8250d0/
+      data an20cs( 26) / -0.0000000000 0000000000 0709605466 8569d0/
+      data an20cs( 27) / -0.0000000000 0000000000 0271540664 6904d0/
+      data an20cs( 28) / -0.0000000000 0000000000 0105948697 9400d0/
+      data an20cs( 29) / -0.0000000000 0000000000 0042103003 5685d0/
+      data an20cs( 30) / -0.0000000000 0000000000 0017023378 1664d0/
+      data an20cs( 31) / -0.0000000000 0000000000 0006996667 7028d0/
+      data an20cs( 32) / -0.0000000000 0000000000 0002920664 3813d0/
+      data an20cs( 33) / -0.0000000000 0000000000 0001237312 8203d0/
+      data an20cs( 34) / -0.0000000000 0000000000 0000531587 1095d0/
+      data an20cs( 35) / -0.0000000000 0000000000 0000231462 2618d0/
+      data an20cs( 36) / -0.0000000000 0000000000 0000102077 9922d0/
+      data an20cs( 37) / -0.0000000000 0000000000 0000045570 6227d0/
+      data an20cs( 38) / -0.0000000000 0000000000 0000020583 1071d0/
+      data an20cs( 39) / -0.0000000000 0000000000 0000009401 5189d0/
+      data an20cs( 40) / -0.0000000000 0000000000 0000004340 5874d0/
+      data an20cs( 41) / -0.0000000000 0000000000 0000002024 7792d0/
+      data an20cs( 42) / -0.0000000000 0000000000 0000000953 9214d0/
+      data an20cs( 43) / -0.0000000000 0000000000 0000000453 7234d0/
+      data an20cs( 44) / -0.0000000000 0000000000 0000000217 8016d0/
+      data an20cs( 45) / -0.0000000000 0000000000 0000000105 4823d0/
+      data an20cs( 46) / -0.0000000000 0000000000 0000000051 5242d0/
+      data an20cs( 47) / -0.0000000000 0000000000 0000000025 3763d0/
+      data an20cs( 48) / -0.0000000000 0000000000 0000000012 5983d0/
+      data an20cs( 49) / -0.0000000000 0000000000 0000000006 3030d0/
+      data an20cs( 50) / -0.0000000000 0000000000 0000000003 1771d0/
+      data an20cs( 51) / -0.0000000000 0000000000 0000000001 6131d0/
+      data an20cs( 52) / -0.0000000000 0000000000 0000000000 8248d0/
+      data an20cs( 53) / -0.0000000000 0000000000 0000000000 4246d0/
+      data an20cs( 54) / -0.0000000000 0000000000 0000000000 2200d0/
+      data an20cs( 55) / -0.0000000000 0000000000 0000000000 1147d0/
+      data an20cs( 56) / -0.0000000000 0000000000 0000000000 0602d0/
+      data an20cs( 57) / -0.0000000000 0000000000 0000000000 0318d0/
+c
+c series for aph2 on the interval -1.00000e+00 to -1.25000e-01
+c                                        with weighted error   5.44e-32
+c                                         log weighted error  31.26
+c                               significant figures required  30.31
+c                                    decimal places required  32.19
+c
+      data aph2cs(  1) / -0.2057088719 7814651069 7364866560 2125d0/
+      data aph2cs(  2) /  0.0422196961 3577719216 7311498036 9460d0/
+      data aph2cs(  3) /  0.0020482560 5112072750 4266057781 3334d0/
+      data aph2cs(  4) /  0.0002607800 7351650056 3118787992 2652d0/
+      data aph2cs(  5) /  0.0000474824 2680047288 7538175051 9293d0/
+      data aph2cs(  6) /  0.0000105102 7564316117 4347363002 6955d0/
+      data aph2cs(  7) /  0.0000026353 5340146679 4510931404 1983d0/
+      data aph2cs(  8) /  0.0000007208 8248634991 4729979078 3731d0/
+      data aph2cs(  9) /  0.0000002103 2366644733 5285974947 7082d0/
+      data aph2cs( 10) /  0.0000000644 9756345552 9559843736 2273d0/
+      data aph2cs( 11) /  0.0000000205 8023772643 6850797811 6888d0/
+      data aph2cs( 12) /  0.0000000067 8362739209 0642896351 3918d0/
+      data aph2cs( 13) /  0.0000000022 9740152840 0940016834 3792d0/
+      data aph2cs( 14) /  0.0000000007 9613067654 9118753488 3226d0/
+      data aph2cs( 15) /  0.0000000002 8138606097 4159171900 3632d0/
+      data aph2cs( 16) /  0.0000000001 0117490569 3197392284 1793d0/
+      data aph2cs( 17) /  0.0000000000 3693067379 5247655909 7060d0/
+      data aph2cs( 18) /  0.0000000000 1366150661 2709803177 8842d0/
+      data aph2cs( 19) /  0.0000000000 0511427514 1604504511 9388d0/
+      data aph2cs( 20) /  0.0000000000 0193516889 3170651624 7975d0/
+      data aph2cs( 21) /  0.0000000000 0073936069 1649322421 7271d0/
+      data aph2cs( 22) /  0.0000000000 0028497922 1922274359 7555d0/
+      data aph2cs( 23) /  0.0000000000 0011072807 8245964833 5733d0/
+      data aph2cs( 24) /  0.0000000000 0004334121 9937013463 3169d0/
+      data aph2cs( 25) /  0.0000000000 0001708008 2526567036 7471d0/
+      data aph2cs( 26) /  0.0000000000 0000677330 8019563111 4673d0/
+      data aph2cs( 27) /  0.0000000000 0000270169 0478926241 4108d0/
+      data aph2cs( 28) /  0.0000000000 0000108347 2075181078 2141d0/
+      data aph2cs( 29) /  0.0000000000 0000043670 6031297028 6167d0/
+      data aph2cs( 30) /  0.0000000000 0000017685 1173805336 6608d0/
+      data aph2cs( 31) /  0.0000000000 0000007193 5921309364 5717d0/
+      data aph2cs( 32) /  0.0000000000 0000002938 2361000293 3154d0/
+      data aph2cs( 33) /  0.0000000000 0000001204 8281152584 8357d0/
+      data aph2cs( 34) /  0.0000000000 0000000495 8665949109 1389d0/
+      data aph2cs( 35) /  0.0000000000 0000000204 7943831584 7217d0/
+      data aph2cs( 36) /  0.0000000000 0000000084 8601994441 0629d0/
+      data aph2cs( 37) /  0.0000000000 0000000035 2735176538 4506d0/
+      data aph2cs( 38) /  0.0000000000 0000000014 7056399680 4903d0/
+      data aph2cs( 39) /  0.0000000000 0000000006 1481782690 2188d0/
+      data aph2cs( 40) /  0.0000000000 0000000002 5773770656 5077d0/
+      data aph2cs( 41) /  0.0000000000 0000000001 0832390359 0042d0/
+      data aph2cs( 42) /  0.0000000000 0000000000 4563889802 4998d0/
+      data aph2cs( 43) /  0.0000000000 0000000000 1927363540 3662d0/
+      data aph2cs( 44) /  0.0000000000 0000000000 0815766856 9775d0/
+      data aph2cs( 45) /  0.0000000000 0000000000 0346020282 8346d0/
+      data aph2cs( 46) /  0.0000000000 0000000000 0147072648 2427d0/
+      data aph2cs( 47) /  0.0000000000 0000000000 0062635607 4088d0/
+      data aph2cs( 48) /  0.0000000000 0000000000 0026726129 2780d0/
+      data aph2cs( 49) /  0.0000000000 0000000000 0011424694 8763d0/
+      data aph2cs( 50) /  0.0000000000 0000000000 0004892346 0516d0/
+      data aph2cs( 51) /  0.0000000000 0000000000 0002098580 7810d0/
+      data aph2cs( 52) /  0.0000000000 0000000000 0000901661 8807d0/
+      data aph2cs( 53) /  0.0000000000 0000000000 0000388012 9464d0/
+      data aph2cs( 54) /  0.0000000000 0000000000 0000167228 2170d0/
+      data aph2cs( 55) /  0.0000000000 0000000000 0000072179 0800d0/
+      data aph2cs( 56) /  0.0000000000 0000000000 0000031198 2573d0/
+      data aph2cs( 57) /  0.0000000000 0000000000 0000013503 5015d0/
+      data aph2cs( 58) /  0.0000000000 0000000000 0000005852 4861d0/
+      data aph2cs( 59) /  0.0000000000 0000000000 0000002539 7686d0/
+      data aph2cs( 60) /  0.0000000000 0000000000 0000001103 5457d0/
+      data aph2cs( 61) /  0.0000000000 0000000000 0000000480 0788d0/
+      data aph2cs( 62) /  0.0000000000 0000000000 0000000209 0956d0/
+      data aph2cs( 63) /  0.0000000000 0000000000 0000000091 1743d0/
+      data aph2cs( 64) /  0.0000000000 0000000000 0000000039 7998d0/
+      data aph2cs( 65) /  0.0000000000 0000000000 0000000017 3923d0/
+      data aph2cs( 66) /  0.0000000000 0000000000 0000000007 6083d0/
+      data aph2cs( 67) /  0.0000000000 0000000000 0000000003 3316d0/
+      data aph2cs( 68) /  0.0000000000 0000000000 0000000001 4604d0/
+      data aph2cs( 69) /  0.0000000000 0000000000 0000000000 6407d0/
+      data aph2cs( 70) /  0.0000000000 0000000000 0000000000 2814d0/
+      data aph2cs( 71) /  0.0000000000 0000000000 0000000000 1237d0/
+      data aph2cs( 72) /  0.0000000000 0000000000 0000000000 0544d0/
+c
+c series for aph1 on the interval -1.25000e-01 to -1.56250e-02
+c                                        with weighted error   3.08e-32
+c                                         log weighted error  31.51
+c                               significant figures required  30.23
+c                                    decimal places required  32.39
+c
+      data aph1cs(  1) / -0.1024172908 0775716940 2112332181 3917d0/
+      data aph1cs(  2) /  0.0071697275 1465912480 4721164914 4704d0/
+      data aph1cs(  3) /  0.0001209959 3631223285 8981385649 1397d0/
+      data aph1cs(  4) /  0.0000073361 5128412199 1208029784 5684d0/
+      data aph1cs(  5) /  0.0000007535 3829542716 0706998290 3869d0/
+      data aph1cs(  6) /  0.0000001041 4781717413 0192688510 9155d0/
+      data aph1cs(  7) /  0.0000000174 3587285185 4569185890 7606d0/
+      data aph1cs(  8) /  0.0000000033 3997950333 4645166018 4961d0/
+      data aph1cs(  9) /  0.0000000007 0730751743 6352708339 9508d0/
+      data aph1cs( 10) /  0.0000000001 6191875151 8977326679 2272d0/
+      data aph1cs( 11) /  0.0000000000 3945399818 8195488987 9668d0/
+      data aph1cs( 12) /  0.0000000000 1011922817 3422713329 2631d0/
+      data aph1cs( 13) /  0.0000000000 0270927782 5952033219 8030d0/
+      data aph1cs( 14) /  0.0000000000 0075238064 1842254888 5854d0/
+      data aph1cs( 15) /  0.0000000000 0021563687 3300896635 7328d0/
+      data aph1cs( 16) /  0.0000000000 0006352827 7712606841 0174d0/
+      data aph1cs( 17) /  0.0000000000 0001917569 7264150172 9345d0/
+      data aph1cs( 18) /  0.0000000000 0000591430 7244646489 1558d0/
+      data aph1cs( 19) /  0.0000000000 0000185971 2851727502 8357d0/
+      data aph1cs( 20) /  0.0000000000 0000059504 4492394610 3668d0/
+      data aph1cs( 21) /  0.0000000000 0000019342 2995643018 0252d0/
+      data aph1cs( 22) /  0.0000000000 0000006378 4302148950 4324d0/
+      data aph1cs( 23) /  0.0000000000 0000002131 2729008731 2393d0/
+      data aph1cs( 24) /  0.0000000000 0000000720 8138065672 8500d0/
+      data aph1cs( 25) /  0.0000000000 0000000246 5249414476 9247d0/
+      data aph1cs( 26) /  0.0000000000 0000000085 1911057026 6154d0/
+      data aph1cs( 27) /  0.0000000000 0000000029 7238446849 1170d0/
+      data aph1cs( 28) /  0.0000000000 0000000010 4642664881 1446d0/
+      data aph1cs( 29) /  0.0000000000 0000000003 7149303634 7327d0/
+      data aph1cs( 30) /  0.0000000000 0000000001 3292324779 3472d0/
+      data aph1cs( 31) /  0.0000000000 0000000000 4791283792 5909d0/
+      data aph1cs( 32) /  0.0000000000 0000000000 1739061985 9336d0/
+      data aph1cs( 33) /  0.0000000000 0000000000 0635358517 3501d0/
+      data aph1cs( 34) /  0.0000000000 0000000000 0233564361 4263d0/
+      data aph1cs( 35) /  0.0000000000 0000000000 0086364388 1606d0/
+      data aph1cs( 36) /  0.0000000000 0000000000 0032112300 6944d0/
+      data aph1cs( 37) /  0.0000000000 0000000000 0012003154 0983d0/
+      data aph1cs( 38) /  0.0000000000 0000000000 0004509148 8699d0/
+      data aph1cs( 39) /  0.0000000000 0000000000 0001702022 8580d0/
+      data aph1cs( 40) /  0.0000000000 0000000000 0000645374 4630d0/
+      data aph1cs( 41) /  0.0000000000 0000000000 0000245778 8564d0/
+      data aph1cs( 42) /  0.0000000000 0000000000 0000093989 7684d0/
+      data aph1cs( 43) /  0.0000000000 0000000000 0000036086 3150d0/
+      data aph1cs( 44) /  0.0000000000 0000000000 0000013907 7884d0/
+      data aph1cs( 45) /  0.0000000000 0000000000 0000005379 7184d0/
+      data aph1cs( 46) /  0.0000000000 0000000000 0000002088 2551d0/
+      data aph1cs( 47) /  0.0000000000 0000000000 0000000813 3371d0/
+      data aph1cs( 48) /  0.0000000000 0000000000 0000000317 8080d0/
+      data aph1cs( 49) /  0.0000000000 0000000000 0000000124 5700d0/
+      data aph1cs( 50) /  0.0000000000 0000000000 0000000048 9742d0/
+      data aph1cs( 51) /  0.0000000000 0000000000 0000000019 3099d0/
+      data aph1cs( 52) /  0.0000000000 0000000000 0000000007 6349d0/
+      data aph1cs( 53) /  0.0000000000 0000000000 0000000003 0269d0/
+      data aph1cs( 54) /  0.0000000000 0000000000 0000000001 2032d0/
+      data aph1cs( 55) /  0.0000000000 0000000000 0000000000 4795d0/
+      data aph1cs( 56) /  0.0000000000 0000000000 0000000000 1915d0/
+      data aph1cs( 57) /  0.0000000000 0000000000 0000000000 0767d0/
+      data aph1cs( 58) /  0.0000000000 0000000000 0000000000 0308d0/
+c
+c series for aph0 on the interval -1.56250e-02 to  0.00000e+00
+c                                        with weighted error   2.81e-32
+c                                         log weighted error  31.55
+c                               significant figures required  30.18
+c                                    decimal places required  32.41
+c
+      data aph0cs(  1) / -0.0855849241 1309332569 2012426017 9491d0/
+      data aph0cs(  2) /  0.0011214378 8670652607 3578672247 1124d0/
+      data aph0cs(  3) /  0.0000042721 0293536641 1395157374 2015d0/
+      data aph0cs(  4) /  0.0000000817 6073814832 4364401806 2323d0/
+      data aph0cs(  5) /  0.0000000033 9076450004 9272420781 6418d0/
+      data aph0cs(  6) /  0.0000000002 2532644226 1911393984 5276d0/
+      data aph0cs(  7) /  0.0000000000 2062842092 2901525125 6990d0/
+      data aph0cs(  8) /  0.0000000000 0238587628 2813088762 7258d0/
+      data aph0cs(  9) /  0.0000000000 0033016181 0588670548 0628d0/
+      data aph0cs( 10) /  0.0000000000 0005270096 4850832858 1123d0/
+      data aph0cs( 11) /  0.0000000000 0000945554 8220381349 2868d0/
+      data aph0cs( 12) /  0.0000000000 0000187094 2695134483 6908d0/
+      data aph0cs( 13) /  0.0000000000 0000040239 8004182539 2741d0/
+      data aph0cs( 14) /  0.0000000000 0000009301 9287925898 3167d0/
+      data aph0cs( 15) /  0.0000000000 0000002290 3863540237 9945d0/
+      data aph0cs( 16) /  0.0000000000 0000000596 3435982208 3386d0/
+      data aph0cs( 17) /  0.0000000000 0000000163 2027965940 3399d0/
+      data aph0cs( 18) /  0.0000000000 0000000046 7114565886 1339d0/
+      data aph0cs( 19) /  0.0000000000 0000000013 9233441536 3502d0/
+      data aph0cs( 20) /  0.0000000000 0000000004 3064267028 5155d0/
+      data aph0cs( 21) /  0.0000000000 0000000001 3778141631 8755d0/
+      data aph0cs( 22) /  0.0000000000 0000000000 4547671048 0396d0/
+      data aph0cs( 23) /  0.0000000000 0000000000 1544842020 3026d0/
+      data aph0cs( 24) /  0.0000000000 0000000000 0538977055 1212d0/
+      data aph0cs( 25) /  0.0000000000 0000000000 0192772673 7155d0/
+      data aph0cs( 26) /  0.0000000000 0000000000 0070565932 0166d0/
+      data aph0cs( 27) /  0.0000000000 0000000000 0026398508 4827d0/
+      data aph0cs( 28) /  0.0000000000 0000000000 0010079130 1805d0/
+      data aph0cs( 29) /  0.0000000000 0000000000 0003922892 8481d0/
+      data aph0cs( 30) /  0.0000000000 0000000000 0001554742 2955d0/
+      data aph0cs( 31) /  0.0000000000 0000000000 0000626830 6372d0/
+      data aph0cs( 32) /  0.0000000000 0000000000 0000256856 3962d0/
+      data aph0cs( 33) /  0.0000000000 0000000000 0000106885 8883d0/
+      data aph0cs( 34) /  0.0000000000 0000000000 0000045134 7253d0/
+      data aph0cs( 35) /  0.0000000000 0000000000 0000019326 7262d0/
+      data aph0cs( 36) /  0.0000000000 0000000000 0000008386 5369d0/
+      data aph0cs( 37) /  0.0000000000 0000000000 0000003685 7386d0/
+      data aph0cs( 38) /  0.0000000000 0000000000 0000001639 6202d0/
+      data aph0cs( 39) /  0.0000000000 0000000000 0000000737 9298d0/
+      data aph0cs( 40) /  0.0000000000 0000000000 0000000335 8392d0/
+      data aph0cs( 41) /  0.0000000000 0000000000 0000000154 4891d0/
+      data aph0cs( 42) /  0.0000000000 0000000000 0000000071 8013d0/
+      data aph0cs( 43) /  0.0000000000 0000000000 0000000033 7026d0/
+      data aph0cs( 44) /  0.0000000000 0000000000 0000000015 9710d0/
+      data aph0cs( 45) /  0.0000000000 0000000000 0000000007 6382d0/
+      data aph0cs( 46) /  0.0000000000 0000000000 0000000003 6855d0/
+      data aph0cs( 47) /  0.0000000000 0000000000 0000000001 7935d0/
+      data aph0cs( 48) /  0.0000000000 0000000000 0000000000 8800d0/
+      data aph0cs( 49) /  0.0000000000 0000000000 0000000000 4353d0/
+      data aph0cs( 50) /  0.0000000000 0000000000 0000000000 2170d0/
+      data aph0cs( 51) /  0.0000000000 0000000000 0000000000 1090d0/
+      data aph0cs( 52) /  0.0000000000 0000000000 0000000000 0551d0/
+      data aph0cs( 53) /  0.0000000000 0000000000 0000000000 0281d0/
+c
+      data pi34 / 2.3561944 9019234492 8846982537 4596271631 3d0  /
+      data nan20, nan21, nan22, naph0, naph1, naph2 / 6*0 /
+      data xsml / 0.0d0 /
+c
+      if (nan20.ne.0) go to 10
+      eta = 0.1d0*sngl(d1mach(3))
+      nan20 = initds (an20cs, 57, eta)
+      nan21 = initds (an21cs, 60, eta)
+      nan22 = initds (an22cs, 74, eta)
+      naph0 = initds (aph0cs, 53, eta)
+      naph1 = initds (aph1cs, 58, eta)
+      naph2 = initds (aph2cs, 72, eta)
+c
+      xsml = -(128.d0/d1mach(3))**0.3333d0
+c
+ 10   if (x.ge.(-4.0d0)) go to 20
+      z = 1.0d0
+      if (x.gt.xsml) z = 128.d0/x**3 + 1.0d0
+      ampl = 0.3125d0 + dcsevl (z, an20cs, nan20)
+      phi = -0.625d0 + dcsevl (z, aph0cs, naph0)
+      go to 40
+c
+ 20   if (x.ge.(-2.d0)) go to 30
+      z = (128.d0/x**3 + 9.0d0) / 7.0d0
+      ampl = 0.3125d0 + dcsevl (z, an21cs, nan21)
+      phi = -0.625 + dcsevl (z, aph1cs, naph1)
+c
+      go to 40
+c
+ 30   if (x.gt.(-1.0d0)) call seteru (
+     1  25hd9admp  x must be le -1.0, 25, 1, 2)
+c
+      z = (16.d0/x**3 + 9.0d0) / 7.0d0
+      ampl = 0.3125d0 + dcsevl (z, an22cs, nan22)
+      phi = -0.625d0 + dcsevl (z, aph2cs, naph2)
+c
+ 40   sqrtx = dsqrt(-x)
+      ampl = dsqrt (ampl*sqrtx)
+      phi = pi34 - x*sqrtx*phi
+c
+      return
+      end
diff --git a/fvn_fnlib/d9aimp.f b/fvn_fnlib/d9aimp.f
new file mode 100644
index 0000000..45bf663
--- /dev/null
+++ b/fvn_fnlib/d9aimp.f
@@ -0,0 +1,467 @@
+      subroutine d9aimp (x, ampl, theta)
+c july 1977 edition.  w. fullerton, c3, los alamos scientific lab.
+c
+c evaluate the airy modulus and phase for x .le. -1.0
+c
+      double precision x, ampl, theta, am20cs(57), ath0cs(53),
+     1  am21cs(60), ath1cs(58), am22cs(74), ath2cs(72), pi4, sqrtx,
+     2  xsml, z,  d1mach, dcsevl, dsqrt
+      external d1mach, dcsevl, initds
+c
+c series for am20       on the interval -1.56250e-02 to  0.
+c                                        with weighted error   3.12e-32
+c                                         log weighted error  31.51
+c                               significant figures required  29.24
+c                                    decimal places required  32.38
+c
+      data am20cs(  1) / +.1087167490 8656185661 5730588125 d-1        /
+      data am20cs(  2) / +.3694892289 8266355509 1728665146 d-3        /
+      data am20cs(  3) / +.4406801004 8468956366 7507001327 d-5        /
+      data am20cs(  4) / +.1436867623 6191115392 9183952833 d-6        /
+      data am20cs(  5) / +.8242755523 9007830867 0628855353 d-8        /
+      data am20cs(  6) / +.6844267588 9366160617 3927278180 d-9        /
+      data am20cs(  7) / +.7395666972 8273928773 1004740213 d-10       /
+      data am20cs(  8) / +.9745956336 9682501763 8702600847 d-11       /
+      data am20cs(  9) / +.1500768858 2940577565 0973119497 d-11       /
+      data am20cs( 10) / +.2621479102 2152763420 6252854802 d-12       /
+      data am20cs( 11) / +.5083541113 7648718035 7278966914 d-13       /
+      data am20cs( 12) / +.1076847533 5881144049 2985997070 d-13       /
+      data am20cs( 13) / +.2460912866 1843342933 5914062617 d-14       /
+      data am20cs( 14) / +.6007863803 5865641843 6110373550 d-15       /
+      data am20cs( 15) / +.1554491561 0238807115 0651388384 d-15       /
+      data am20cs( 16) / +.4235351250 3557660442 6382780182 d-16       /
+      data am20cs( 17) / +.1208621662 8929984015 4401109189 d-16       /
+      data am20cs( 18) / +.3596096512 1465824086 1499706423 d-17       /
+      data am20cs( 19) / +.1111342183 8639563826 1774604677 d-17       /
+      data am20cs( 20) / +.3555595324 3236660989 3680289225 d-18       /
+      data am20cs( 21) / +.1174330216 0013930999 8766947387 d-18       /
+      data am20cs( 22) / +.3993974546 6107756138 9162200966 d-19       /
+      data am20cs( 23) / +.1395766715 2891631042 5606325640 d-19       /
+      data am20cs( 24) / +.5002400553 0923604139 3459280716 d-20       /
+      data am20cs( 25) / +.1835527609 5813267918 4834866457 d-20       /
+      data am20cs( 26) / +.6884909981 7920274319 7790112404 d-21       /
+      data am20cs( 27) / +.2636310356 1141701235 9996885105 d-21       /
+      data am20cs( 28) / +.1029248902 3733836028 7153563785 d-21       /
+      data am20cs( 29) / +.4092469666 7159488548 9762960571 d-22       /
+      data am20cs( 30) / +.1655585734 0673465103 9727903828 d-22       /
+      data am20cs( 31) / +.6807974670 6303335611 6599685727 d-23       /
+      data am20cs( 32) / +.2843265599 3407983241 9751134476 d-23       /
+      data am20cs( 33) / +.1205073983 4896525509 7287818819 d-23       /
+      data am20cs( 34) / +.5179612432 8750521797 6613610424 d-24       /
+      data am20cs( 35) / +.2256226134 2756281630 3268640887 d-24       /
+      data am20cs( 36) / +.9954188011 4774516883 2117078246 d-25       /
+      data am20cs( 37) / +.4445516963 9734242430 8280582053 d-25       /
+      data am20cs( 38) / +.2008651954 6150110142 5916097338 d-25       /
+      data am20cs( 39) / +.9177863441 5177516597 3885645402 d-26       /
+      data am20cs( 40) / +.4238729581 0558924066 1672197948 d-26       /
+      data am20cs( 41) / +.1977892720 0784609237 0846251490 d-26       /
+      data am20cs( 42) / +.9321163512 8462066568 0435253373 d-27       /
+      data am20cs( 43) / +.4434821332 4991809995 5611379722 d-27       /
+      data am20cs( 44) / +.2129456723 6557389559 4589552837 d-27       /
+      data am20cs( 45) / +.1031585696 5107597755 2209344907 d-27       /
+      data am20cs( 46) / +.5040237730 2259119915 7904590029 d-28       /
+      data am20cs( 47) / +.2483013045 7015594530 4046541005 d-28       /
+      data am20cs( 48) / +.1233017831 2856219605 4198238560 d-28       /
+      data am20cs( 49) / +.6170334499 2052174612 1976730507 d-29       /
+      data am20cs( 50) / +.3110926174 1591889723 3869792213 d-29       /
+      data am20cs( 51) / +.1579830852 0170617301 5269071503 d-29       /
+      data am20cs( 52) / +.8079319875 3828360767 8121339092 d-30       /
+      data am20cs( 53) / +.4159973941 3866756272 2951360052 d-30       /
+      data am20cs( 54) / +.2156109340 9771690047 1935862504 d-30       /
+      data am20cs( 55) / +.1124688572 6586917829 6752823613 d-30       /
+      data am20cs( 56) / +.5903315606 3283809112 3040811797 d-31       /
+      data am20cs( 57) / +.3117356676 9292856204 6280505333 d-31       /
+c
+c series for ath0       on the interval -1.56250e-02 to  0.
+c                                        with weighted error   2.75e-32
+c                                         log weighted error  31.56
+c                               significant figures required  30.17
+c                                    decimal places required  32.42
+c
+      data ath0cs(  1) / -.8172601764 1616344998 4020870054 3 d-1      /
+      data ath0cs(  2) / -.8004012824 7882732875 9648111306 8 d-3      /
+      data ath0cs(  3) / -.3186525268 7821132037 9555362824 2 d-5      /
+      data ath0cs(  4) / -.6688388266 4775093307 4169886503 3 d-7      /
+      data ath0cs(  5) / -.2931759284 9945645165 0682246318 4 d-8      /
+      data ath0cs(  6) / -.2011263760 8836216690 4903030718 6 d-9      /
+      data ath0cs(  7) / -.1877522678 0559734260 7400816665 2 d-10     /
+      data ath0cs(  8) / -.2199637137 7046012518 9900219984 8 d-11     /
+      data ath0cs(  9) / -.3071616682 5922724490 2574660558 6 d-12     /
+      data ath0cs( 10) / -.4936140553 6734183610 2560098538 9 d-13     /
+      data ath0cs( 11) / -.8902833722 5836604169 3523696986 6 d-14     /
+      data ath0cs( 12) / -.1768987764 6152726136 5681419946 7 d-14     /
+      data ath0cs( 13) / -.3817868689 0322770146 7819960960 0 d-15     /
+      data ath0cs( 14) / -.8851159014 8199475941 5628650998 4 d-16     /
+      data ath0cs( 15) / -.2184818181 4143659531 4967767956 8 d-16     /
+      data ath0cs( 16) / -.5700849046 9864523805 9944229511 9 d-17     /
+      data ath0cs( 17) / -.1563121122 1778753925 1603179549 5 d-17     /
+      data ath0cs( 18) / -.4481437996 7689950679 0668877635 3 d-18     /
+      data ath0cs( 19) / -.1337794883 7361880220 4456604409 8 d-18     /
+      data ath0cs( 20) / -.4143340036 8741144537 7685244544 2 d-19     /
+      data ath0cs( 21) / -.1327263385 7188050250 8048116465 2 d-19     /
+      data ath0cs( 22) / -.4385728589 1284405222 1575683595 5 d-20     /
+      data ath0cs( 23) / -.1491360695 9528180676 8620174395 6 d-20     /
+      data ath0cs( 24) / -.5208104738 6307113771 5423818877 3 d-21     /
+      data ath0cs( 25) / -.1864382222 3904989238 7252660497 9 d-21     /
+      data ath0cs( 26) / -.6830263751 1679690129 7543538188 1 d-22     /
+      data ath0cs( 27) / -.2557117058 0293296292 9620759134 7 d-22     /
+      data ath0cs( 28) / -.9770158640 2543002182 4690725404 6 d-23     /
+      data ath0cs( 29) / -.3805161433 4166790840 6842825488 6 d-23     /
+      data ath0cs( 30) / -.1509022750 7370540634 9392648299 5 d-23     /
+      data ath0cs( 31) / -.6087551341 2424249290 0556801452 5 d-24     /
+      data ath0cs( 32) / -.2495879513 8097114954 2598212405 8 d-24     /
+      data ath0cs( 33) / -.1039157654 5819209489 0958808427 4 d-24     /
+      data ath0cs( 34) / -.4390235913 9768465369 7459496905 1 d-25     /
+      data ath0cs( 35) / -.1880790678 4479902116 7582682058 2 d-25     /
+      data ath0cs( 36) / -.8165070764 1994629488 6302220575 3 d-26     /
+      data ath0cs( 37) / -.3589944503 7497505142 6643558504 1 d-26     /
+      data ath0cs( 38) / -.1597658126 6321328729 8129160870 8 d-26     /
+      data ath0cs( 39) / -.7193250175 7038239691 1380283530 5 d-27     /
+      data ath0cs( 40) / -.3274943012 7278565062 0935113272 1 d-27     /
+      data ath0cs( 41) / -.1507042445 7836906658 1697504727 2 d-27     /
+      data ath0cs( 42) / -.7006624198 3199047178 4396794914 0 d-28     /
+      data ath0cs( 43) / -.3289907402 9837182265 2881567835 6 d-28     /
+      data ath0cs( 44) / -.1559518084 3651465264 4532271149 6 d-28     /
+      data ath0cs( 45) / -.7460690508 2082545828 3385111972 1 d-29     /
+      data ath0cs( 46) / -.3600877034 8246620205 6327724943 1 d-29     /
+      data ath0cs( 47) / -.1752851437 4737722573 5040221919 7 d-29     /
+      data ath0cs( 48) / -.8603275775 1885129096 2377862872 4 d-30     /
+      data ath0cs( 49) / -.4256432603 2269465346 6803948010 5 d-30     /
+      data ath0cs( 50) / -.2122161865 0442629277 2365069820 6 d-30     /
+      data ath0cs( 51) / -.1065996156 7048790524 7206079856 1 d-30     /
+      data ath0cs( 52) / -.5393568608 8169491164 1068808689 2 d-31     /
+      data ath0cs( 53) / -.2748174851 0439548222 7849651787 0 d-31     /
+c
+c series for am21       on the interval -1.25000e-01 to -1.56250e-02
+c                                        with weighted error   3.40e-32
+c                                         log weighted error  31.47
+c                               significant figures required  29.02
+c                                    decimal places required  32.36
+c
+      data am21cs(  1) / +.5927902667 2130958837 5717482814 d-2        /
+      data am21cs(  2) / +.2005694053 9316518642 8695217690 d-2        /
+      data am21cs(  3) / +.9110818502 6227589355 3072526291 d-4        /
+      data am21cs(  4) / +.8498943063 7204715563 3172107475 d-5        /
+      data am21cs(  5) / +.1132979089 7691307663 7929215494 d-5        /
+      data am21cs(  6) / +.1875179461 0066649618 0950627804 d-6        /
+      data am21cs(  7) / +.3593065190 1824583269 9035211192 d-7        /
+      data am21cs(  8) / +.7657577140 7168386403 9093517470 d-8        /
+      data am21cs(  9) / +.1769999671 6803917392 5953460744 d-8        /
+      data am21cs( 10) / +.4362595556 5459893272 0546585535 d-9        /
+      data am21cs( 11) / +.1132916413 3785323003 5520085219 d-9        /
+      data am21cs( 12) / +.3072576909 8241924413 7868398126 d-10       /
+      data am21cs( 13) / +.8644824164 8220107554 1200465766 d-11       /
+      data am21cs( 14) / +.2510152500 6092440211 5104562212 d-11       /
+      data am21cs( 15) / +.7491024967 6444037160 1802227751 d-12       /
+      data am21cs( 16) / +.2289969284 8799407308 9565214432 d-12       /
+      data am21cs( 17) / +.7151136589 2798769494 9327491175 d-13       /
+      data am21cs( 18) / +.2276079249 5956684194 6395165061 d-13       /
+      data am21cs( 19) / +.7369421427 6088651396 9953227782 d-14       /
+      data am21cs( 20) / +.2423286752 6782749046 3991742006 d-14       /
+      data am21cs( 21) / +.8081537745 4823986928 3406558403 d-15       /
+      data am21cs( 22) / +.2730080798 0435608665 9174563386 d-15       /
+      data am21cs( 23) / +.9332360708 9138531847 3519474326 d-16       /
+      data am21cs( 24) / +.3225080996 8108462221 3867546973 d-16       /
+      data am21cs( 25) / +.1125819323 4644454121 7757573416 d-16       /
+      data am21cs( 26) / +.3966994639 8693882166 0259459530 d-17       /
+      data am21cs( 27) / +.1410065679 4431950466 0865034527 d-17       /
+      data am21cs( 28) / +.5053020865 3785121337 5537393032 d-18       /
+      data am21cs( 29) / +.1824615232 1594514119 7999102789 d-18       /
+      data am21cs( 30) / +.6635845682 6213046692 8029121642 d-19       /
+      data am21cs( 31) / +.2429637316 3127617974 1747455826 d-19       /
+      data am21cs( 32) / +.8952389151 2368780201 3669922963 d-20       /
+      data am21cs( 33) / +.3318452893 5005079126 0229250755 d-20       /
+      data am21cs( 34) / +.1237061961 8865831538 4437905922 d-20       /
+      data am21cs( 35) / +.4636366770 1239084030 6767734243 d-21       /
+      data am21cs( 36) / +.1746531359 4776447546 9758765989 d-21       /
+      data am21cs( 37) / +.6611168102 3499117630 7910643111 d-22       /
+      data am21cs( 38) / +.2514099189 9407248617 6125666459 d-22       /
+      data am21cs( 39) / +.9602749955 7173256869 4034386998 d-23       /
+      data am21cs( 40) / +.3683249522 8929639568 6436898078 d-23       /
+      data am21cs( 41) / +.1418431382 6915913614 5535939553 d-23       /
+      data am21cs( 42) / +.5483426742 7693583010 6345800990 d-24       /
+      data am21cs( 43) / +.2127610546 2311880665 0372562616 d-24       /
+      data am21cs( 44) / +.8284437008 4941859148 7734760953 d-25       /
+      data am21cs( 45) / +.3236705639 2612700142 1028600927 d-25       /
+      data am21cs( 46) / +.1268688829 6328605735 5055062493 d-25       /
+      data am21cs( 47) / +.4988438189 9212162693 5068934362 d-26       /
+      data am21cs( 48) / +.1967345844 6764939096 7119381790 d-26       /
+      data am21cs( 49) / +.7781359710 2032695771 3212064836 d-27       /
+      data am21cs( 50) / +.3086339414 9891115291 9192968451 d-27       /
+      data am21cs( 51) / +.1227446470 4545311978 9338037234 d-27       /
+      data am21cs( 52) / +.4894312791 3429220588 5241216204 d-28       /
+      data am21cs( 53) / +.1956468798 0290982117 5925099724 d-28       /
+      data am21cs( 54) / +.7839889529 2242617116 6311492266 d-29       /
+      data am21cs( 55) / +.3148969140 0248422374 8298978099 d-29       /
+      data am21cs( 56) / +.1267697631 3725068130 7067842559 d-29       /
+      data am21cs( 57) / +.5114706919 0690014164 1632107724 d-30       /
+      data am21cs( 58) / +.2068017097 9553877025 0900316706 d-30       /
+      data am21cs( 59) / +.8378913447 6851900132 5996867583 d-31       /
+      data am21cs( 60) / +.3401689919 7148980205 2339079577 d-31       /
+c
+c series for ath1       on the interval -1.25000e-01 to -1.56250e-02
+c                                        with weighted error   2.94e-32
+c                                         log weighted error  31.53
+c                               significant figures required  30.08
+c                                    decimal places required  32.41
+c
+      data ath1cs(  1) / -.6972849916 2088838458 8814841503 7 d-1      /
+      data ath1cs(  2) / -.5108722790 6500449870 7344807796 1 d-2      /
+      data ath1cs(  3) / -.8644335996 9897550945 2533474951 2 d-4      /
+      data ath1cs(  4) / -.5604720044 2352635421 8869891612 5 d-5      /
+      data ath1cs(  5) / -.6045735125 6238974091 5637664007 7 d-6      /
+      data ath1cs(  6) / -.8639802632 4883343932 1972113849 9 d-7      /
+      data ath1cs(  7) / -.1480809484 3099271571 4778248078 0 d-7      /
+      data ath1cs(  8) / -.2885809334 5772360399 9944990871 2 d-8      /
+      data ath1cs(  9) / -.6191631975 6656996093 0919123180 0 d-9      /
+      data ath1cs( 10) / -.1431992808 8609578309 3136525987 9 d-9      /
+      data ath1cs( 11) / -.3518141102 1372147215 0461687432 1 d-10     /
+      data ath1cs( 12) / -.9084761919 9550782900 7033980805 1 d-11     /
+      data ath1cs( 13) / -.2446171672 6885984493 4328366476 7 d-11     /
+      data ath1cs( 14) / -.6826083203 2134462408 2899671026 4 d-12     /
+      data ath1cs( 15) / -.1964579931 1949401712 7854625780 2 d-12     /
+      data ath1cs( 16) / -.5808933227 1396931640 0919126585 6 d-13     /
+      data ath1cs( 17) / -.1759042249 5274419927 9540095902 4 d-13     /
+      data ath1cs( 18) / -.5440902932 7148966136 3253894531 9 d-14     /
+      data ath1cs( 19) / -.1715247407 4868068026 2235851945 1 d-14     /
+      data ath1cs( 20) / -.5500929233 5769915468 7110184716 1 d-15     /
+      data ath1cs( 21) / -.1791878287 7393172594 9515263875 4 d-15     /
+      data ath1cs( 22) / -.5920372520 0866941977 7841106223 1 d-16     /
+      data ath1cs( 23) / -.1981713027 8764839624 7097220659 0 d-16     /
+      data ath1cs( 24) / -.6713232347 0163522620 4998434379 0 d-17     /
+      data ath1cs( 25) / -.2299450243 6582811161 2235861983 2 d-17     /
+      data ath1cs( 26) / -.7957300928 2363765953 0463714563 4 d-18     /
+      data ath1cs( 27) / -.2779994027 2917841571 7229023373 9 d-18     /
+      data ath1cs( 28) / -.9798924361 3269852244 0679548081 4 d-19     /
+      data ath1cs( 29) / -.3482717006 0615743867 0264556584 9 d-19     /
+      data ath1cs( 30) / -.1247489122 5585990571 7330005808 4 d-19     /
+      data ath1cs( 31) / -.4501210041 4782281134 8775182445 2 d-20     /
+      data ath1cs( 32) / -.1635346244 0133521355 9611416466 7 d-20     /
+      data ath1cs( 33) / -.5980102897 7803362680 9876226594 1 d-21     /
+      data ath1cs( 34) / -.2200246286 2861234540 2819629547 5 d-21     /
+      data ath1cs( 35) / -.8142463073 5150858974 0820529151 9 d-22     /
+      data ath1cs( 36) / -.3029924773 6600425374 3233070967 4 d-22     /
+      data ath1cs( 37) / -.1133390098 5746235377 2294396968 9 d-22     /
+      data ath1cs( 38) / -.4260766024 7492957192 8304988979 1 d-23     /
+      data ath1cs( 39) / -.1609363396 2781897187 9750063445 3 d-23     /
+      data ath1cs( 40) / -.6106377190 8250262930 4533044428 7 d-24     /
+      data ath1cs( 41) / -.2326954318 0216940618 3657788757 3 d-24     /
+      data ath1cs( 42) / -.8903987877 4722526044 7412955818 6 d-25     /
+      data ath1cs( 43) / -.3420558530 0056750241 1791475234 1 d-25     /
+      data ath1cs( 44) / -.1319026715 2572726590 1721210060 7 d-25     /
+      data ath1cs( 45) / -.5104899493 6120430913 1619117738 6 d-26     /
+      data ath1cs( 46) / -.1982599478 4745474512 4244466346 6 d-26     /
+      data ath1cs( 47) / -.7725702356 8808305356 3611185151 9 d-27     /
+      data ath1cs( 48) / -.3020234733 6646801008 1577686357 3 d-27     /
+      data ath1cs( 49) / -.1184379739 0741699937 1294638080 0 d-27     /
+      data ath1cs( 50) / -.4658430227 9223085205 7325284010 6 d-28     /
+      data ath1cs( 51) / -.1837554188 1003846471 5750200661 3 d-28     /
+      data ath1cs( 52) / -.7268566894 4279909533 2187668480 0 d-29     /
+      data ath1cs( 53) / -.2882863120 3914681355 2708987562 6 d-29     /
+      data ath1cs( 54) / -.1146374629 4599063504 1759166463 9 d-29     /
+      data ath1cs( 55) / -.4570031437 7485330581 7999168853 3 d-30     /
+      data ath1cs( 56) / -.1826276602 0453461048 0993402879 9 d-30     /
+      data ath1cs( 57) / -.7315349993 3852504691 1106635093 3 d-31     /
+      data ath1cs( 58) / -.2936925599 9714297816 3781577386 6 d-31     /
+c
+c series for am22       on the interval -1.00000e+00 to -1.25000e-01
+c                                        with weighted error   3.76e-32
+c                                         log weighted error  31.42
+c                               significant figures required  29.47
+c                                    decimal places required  32.36
+c
+      data am22cs(  1) / -.1562844480 6253411275 3545828583 d-1        /
+      data am22cs(  2) / +.7783364452 3968130701 8943100334 d-2        /
+      data am22cs(  3) / +.8670577704 7718952840 6072812110 d-3        /
+      data am22cs(  4) / +.1569662731 5611371946 9953482266 d-3        /
+      data am22cs(  5) / +.3563962571 4328651132 4100666302 d-4        /
+      data am22cs(  6) / +.9245983354 2504315449 5080090994 d-5        /
+      data am22cs(  7) / +.2621101618 5042238952 3194982066 d-5        /
+      data am22cs(  8) / +.7918822165 1601256148 9469982263 d-6        /
+      data am22cs(  9) / +.2510415279 2101184780 3162690862 d-6        /
+      data am22cs( 10) / +.8265223206 6540773447 2997712940 d-7        /
+      data am22cs( 11) / +.2805711662 8130526439 6384290014 d-7        /
+      data am22cs( 12) / +.9768210904 8468078667 4631273890 d-8        /
+      data am22cs( 13) / +.3474079232 2771034328 7279035573 d-8        /
+      data am22cs( 14) / +.1258281321 6983691421 9092738164 d-8        /
+      data am22cs( 15) / +.4629882606 4189526449 7330784625 d-9        /
+      data am22cs( 16) / +.1727282588 1360407246 8143128696 d-9        /
+      data am22cs( 17) / +.6523192001 3115413514 8574124970 d-10       /
+      data am22cs( 18) / +.2490471685 2098205601 9881087112 d-10       /
+      data am22cs( 19) / +.9601568205 5376594807 8189890126 d-11       /
+      data am22cs( 20) / +.3734480020 6772685697 4776596757 d-11       /
+      data am22cs( 21) / +.1464175650 3205339172 2216189678 d-11       /
+      data am22cs( 22) / +.5782654711 6851282547 5827881553 d-12       /
+      data am22cs( 23) / +.2299154072 4470611856 0254184494 d-12       /
+      data am22cs( 24) / +.9197807112 3199725715 0883662365 d-13       /
+      data am22cs( 25) / +.3700600688 1309006580 7504045556 d-13       /
+      data am22cs( 26) / +.1496757616 9867298782 3326345205 d-13       /
+      data am22cs( 27) / +.6083611949 3846114872 0451399443 d-14       /
+      data am22cs( 28) / +.2484040871 1512139763 5425326873 d-14       /
+      data am22cs( 29) / +.1018624765 2676908072 7914465339 d-14       /
+      data am22cs( 30) / +.4193838563 5275398942 9640310957 d-15       /
+      data am22cs( 31) / +.1733189017 6293075614 9702493501 d-15       /
+      data am22cs( 32) / +.7188219023 8850851782 0445406811 d-16       /
+      data am22cs( 33) / +.2991236335 9840360771 2470896113 d-16       /
+      data am22cs( 34) / +.1248689904 3323862785 5713110880 d-16       /
+      data am22cs( 35) / +.5228293446 0948366192 8651193632 d-17       /
+      data am22cs( 36) / +.2195329617 2471339659 5998454359 d-17       /
+      data am22cs( 37) / +.9242983252 2977728115 4410024332 d-18       /
+      data am22cs( 38) / +.3901577082 3609140782 5543197309 d-18       /
+      data am22cs( 39) / +.1650938926 9386370721 3759030367 d-18       /
+      data am22cs( 40) / +.7002218157 1599436756 5716554487 d-19       /
+      data am22cs( 41) / +.2976518336 1678691557 3214963506 d-19       /
+      data am22cs( 42) / +.1267965390 8690207257 1134261229 d-19       /
+      data am22cs( 43) / +.5412434006 9707762868 7581725061 d-20       /
+      data am22cs( 44) / +.2314873502 1815525229 6382133283 d-20       /
+      data am22cs( 45) / +.9919202883 8656656346 2623851167 d-21       /
+      data am22cs( 46) / +.4258030153 2373235715 8897608174 d-21       /
+      data am22cs( 47) / +.1831018429 7302450167 8402003088 d-21       /
+      data am22cs( 48) / +.7886787123 1107537556 4526811022 d-22       /
+      data am22cs( 49) / +.3402546073 8622987495 6582997235 d-22       /
+      data am22cs( 50) / +.1470208814 0571253079 1860892535 d-22       /
+      data am22cs( 51) / +.6362110183 2491695773 3348071767 d-23       /
+      data am22cs( 52) / +.2757070506 8098072191 9395987768 d-23       /
+      data am22cs( 53) / +.1196458580 9010407135 6261780457 d-23       /
+      data am22cs( 54) / +.5199125457 2924214798 1768210567 d-24       /
+      data am22cs( 55) / +.2262176748 4710447526 0575286850 d-24       /
+      data am22cs( 56) / +.9855261137 5443181944 8565068283 d-25       /
+      data am22cs( 57) / +.4298706303 3250871722 3681286187 d-25       /
+      data am22cs( 58) / +.1877236416 6158063982 9657670189 d-25       /
+      data am22cs( 59) / +.8207219417 7284213726 8801052115 d-26       /
+      data am22cs( 60) / +.3592146656 0461550781 2767944463 d-26       /
+      data am22cs( 61) / +.1573905946 1277331561 1458940587 d-26       /
+      data am22cs( 62) / +.6903297810 3933383496 5319153586 d-27       /
+      data am22cs( 63) / +.3030920790 7896853460 7859331415 d-27       /
+      data am22cs( 64) / +.1332049341 6048121918 5689121944 d-27       /
+      data am22cs( 65) / +.5859788368 5152349011 7937981442 d-28       /
+      data am22cs( 66) / +.2580168684 8948780633 8425080457 d-28       /
+      data am22cs( 67) / +.1137124336 3728366722 3632182863 d-28       /
+      data am22cs( 68) / +.5015925572 2606850923 6430548549 d-29       /
+      data am22cs( 69) / +.2214458293 9550937332 2569708484 d-29       /
+      data am22cs( 70) / +.9784702838 8650728998 4691416411 d-30       /
+      data am22cs( 71) / +.4326954149 3418017011 2000952983 d-30       /
+      data am22cs( 72) / +.1914972881 9399457061 2929860440 d-30       /
+      data am22cs( 73) / +.8481646224 0239235417 1298331562 d-31       /
+      data am22cs( 74) / +.3759470651 7395591994 7455052934 d-31       /
+c
+c series for ath2       on the interval -1.00000e+00 to -1.25000e-01
+c                                        with weighted error   4.97e-32
+c                                         log weighted error  31.30
+c                               significant figures required  29.79
+c                                    decimal places required  32.23
+c
+      data ath2cs(  1) / +.4405273458 7187789970 6112705777 5 d-2      /
+      data ath2cs(  2) / -.3042919452 3184546084 8384423987 3 d-1      /
+      data ath2cs(  3) / -.1385653283 7717937916 0269284265 3 d-2      /
+      data ath2cs(  4) / -.1804443908 9549523026 7048691095 2 d-3      /
+      data ath2cs(  5) / -.3380847108 3273086710 5746532361 8 d-4      /
+      data ath2cs(  6) / -.7678183535 2290230552 5767681776 5 d-5      /
+      data ath2cs(  7) / -.1967839443 7160353246 9093541707 7 d-5      /
+      data ath2cs(  8) / -.5483727115 8777003615 8614365928 1 d-6      /
+      data ath2cs(  9) / -.1625461550 5326124527 1269621225 8 d-6      /
+      data ath2cs( 10) / -.5053049981 2688950152 7763784207 8 d-7      /
+      data ath2cs( 11) / -.1631580701 1240668811 8385171561 7 d-7      /
+      data ath2cs( 12) / -.5434204112 3485175079 6343669481 7 d-8      /
+      data ath2cs( 13) / -.1857398556 4099003257 6385010963 0 d-8      /
+      data ath2cs( 14) / -.6489512033 3261088162 1351364067 6 d-9      /
+      data ath2cs( 15) / -.2310594885 8009447204 8299598707 9 d-9      /
+      data ath2cs( 16) / -.8363282183 2044116828 1932954674 5 d-10     /
+      data ath2cs( 17) / -.3071196844 8901914626 6066130389 1 d-10     /
+      data ath2cs( 18) / -.1142367142 4327168194 0951457989 2 d-10     /
+      data ath2cs( 19) / -.4298116066 3458030658 2247010897 1 d-11     /
+      data ath2cs( 20) / -.1633898699 5967154406 0164608663 2 d-11     /
+      data ath2cs( 21) / -.6269328620 0166194321 2344375407 6 d-12     /
+      data ath2cs( 22) / -.2426052694 8162573573 5615920399 1 d-12     /
+      data ath2cs( 23) / -.9461198321 6240390907 4252776505 2 d-13     /
+      data ath2cs( 24) / -.3716060313 4115048068 4779828126 9 d-13     /
+      data ath2cs( 25) / -.1469155684 0975267631 7013881030 9 d-13     /
+      data ath2cs( 26) / -.5843694726 1409119445 5640136309 4 d-14     /
+      data ath2cs( 27) / -.2337502595 5919512988 3267503493 4 d-14     /
+      data ath2cs( 28) / -.9399231371 1714354011 6016735841 1 d-15     /
+      data ath2cs( 29) / -.3798014669 3728945000 7633526371 5 d-15     /
+      data ath2cs( 30) / -.1541731043 9849725248 8344368177 5 d-15     /
+      data ath2cs( 31) / -.6285287079 5353071629 2566236520 2 d-16     /
+      data ath2cs( 32) / -.2572731812 8114554247 5538399277 4 d-16     /
+      data ath2cs( 33) / -.1057098119 3540178093 4097486655 5 d-16     /
+      data ath2cs( 34) / -.4359080267 4026969666 9599269996 4 d-17     /
+      data ath2cs( 35) / -.1803634315 9599780139 5317694554 0 d-17     /
+      data ath2cs( 36) / -.7486838064 3805368217 1943167691 4 d-18     /
+      data ath2cs( 37) / -.3117261367 3476046567 9959720998 5 d-18     /
+      data ath2cs( 38) / -.1301687980 9277007347 9287162069 6 d-18     /
+      data ath2cs( 39) / -.5450527587 5195224689 7388390990 9 d-19     /
+      data ath2cs( 40) / -.2288293490 1142318722 6863593190 3 d-19     /
+      data ath2cs( 41) / -.9631059503 8295386556 5506044008 8 d-20     /
+      data ath2cs( 42) / -.4063281001 5246140890 9219541643 4 d-20     /
+      data ath2cs( 43) / -.1718203980 9080267639 0041385851 0 d-20     /
+      data ath2cs( 44) / -.7281574619 8925363674 1532247332 8 d-21     /
+      data ath2cs( 45) / -.3092352652 6806431279 6068034579 0 d-21     /
+      data ath2cs( 46) / -.1315917855 9654404903 8341702325 4 d-21     /
+      data ath2cs( 47) / -.5610606786 0870555126 6490741266 8 d-22     /
+      data ath2cs( 48) / -.2396621894 0863552060 2030433789 5 d-22     /
+      data ath2cs( 49) / -.1025574332 3905812008 3295442392 4 d-22     /
+      data ath2cs( 50) / -.4396264138 1436564764 0360732366 3 d-23     /
+      data ath2cs( 51) / -.1887652998 3725773733 4250871945 0 d-23     /
+      data ath2cs( 52) / -.8118140359 5768076035 7943323044 5 d-24     /
+      data ath2cs( 53) / -.3496734274 3662868563 7595208921 4 d-24     /
+      data ath2cs( 54) / -.1508402925 1568732151 7175147586 7 d-24     /
+      data ath2cs( 55) / -.6516268284 7786710597 8777383434 1 d-25     /
+      data ath2cs( 56) / -.2818945797 5292074245 0594211458 3 d-25     /
+      data ath2cs( 57) / -.1221127596 5122627445 9809446450 5 d-25     /
+      data ath2cs( 58) / -.5296674341 1698671686 2001170507 3 d-26     /
+      data ath2cs( 59) / -.2300359270 7736734313 5887097174 4 d-26     /
+      data ath2cs( 60) / -.1000279482 3553674947 8122034893 0 d-26     /
+      data ath2cs( 61) / -.4354760404 1808793948 0689316217 9 d-27     /
+      data ath2cs( 62) / -.1898056134 7414775225 1548282703 0 d-27     /
+      data ath2cs( 63) / -.8282111868 7129746975 5400930931 5 d-28     /
+      data ath2cs( 64) / -.3617815493 0665690065 8621348437 4 d-28     /
+      data ath2cs( 65) / -.1582018896 1780036548 5894184363 6 d-28     /
+      data ath2cs( 66) / -.6925068597 8022700117 7282038324 7 d-29     /
+      data ath2cs( 67) / -.3034390239 7786291289 0862972733 5 d-29     /
+      data ath2cs( 68) / -.1330889568 1667252247 6197744650 9 d-29     /
+      data ath2cs( 69) / -.5842848522 1730901204 8760697170 6 d-30     /
+      data ath2cs( 70) / -.2567488423 2383026311 2127435767 8 d-30     /
+      data ath2cs( 71) / -.1129232322 2688821857 9150581915 1 d-30     /
+      data ath2cs( 72) / -.4970947029 7533369165 5057010502 3 d-31     /
+c
+      data pi4 / 0.7853981633 9744830961 5660845819 88d0 /
+      data nam20, nath0, nam21, nath1, nam22, nath2 / 6*0 /
+      data xsml / 0.d0 /
+c
+      if (nam20.ne.0) go to 10
+      eta = 0.1*sngl(d1mach(3))
+      nam20 = initds (am20cs, 57, eta)
+      nath0 = initds (ath0cs, 53, eta)
+      nam21 = initds (am21cs, 60, eta)
+      nath1 = initds (ath1cs, 58, eta)
+      nam22 = initds (am22cs, 74, eta)
+      nath2 = initds (ath2cs, 72, eta)
+c
+      xsml = -(128.d0/d1mach(3))**0.3333d0
+c
+ 10   if (x.ge.(-4.0d0)) go to 20
+      z = 1.0d0
+      if (x.gt.xsml) z = 128.d0/x**3 + 1.0d0
+      ampl = 0.3125d0 + dcsevl (z, am20cs, nam20)
+      theta = -0.625d0 + dcsevl (z, ath0cs, nath0)
+      go to 40
+c
+ 20   if (x.ge.(-2.0d0)) go to 30
+      z = (128.d0/x**3 + 9.0d0)/7.0d0
+      ampl = 0.3125d0 + dcsevl (z, am21cs, nam21)
+      theta = -0.625d0 + dcsevl (z, ath1cs, nath1)
+      go to 40
+c
+ 30   if (x.gt.(-1.0d0)) call seteru (
+     1  25hd9aimp  x must be le -1.0, 25, 1, 2)
+c
+      z = (16.d0/x**3 + 9.0d0)/7.0d0
+      ampl = 0.3125d0 + dcsevl (z, am22cs, nam22)
+      theta = -0.625d0 + dcsevl (z, ath2cs, nath2)
+c
+ 40   sqrtx = dsqrt(-x)
+      ampl = dsqrt (ampl/sqrtx)
+      theta = pi4 - x*sqrtx*theta
+c
+      return
+      end
diff --git a/fvn_fnlib/d9atn1.f b/fvn_fnlib/d9atn1.f
new file mode 100644
index 0000000..b47459f
--- /dev/null
+++ b/fvn_fnlib/d9atn1.f
@@ -0,0 +1,88 @@
+      double precision function d9atn1 (x)
+c april 1978 edition.  w. fullerton c3, los alamos scientific lab.
+c
+c evaluate  datan(x)  from first order, that is, evaluate
+c (datan(x)-x)/x**3  with relative error accuracy so that
+c        datan(x) = x + x**3*d9atn1(x).
+c
+      double precision x, xbig, xmax, xsml, y, atn1cs(40), dcsevl,
+     1  d1mach, datan
+      external d1mach,  dcsevl, initds
+c
+c series for atn1       on the interval  0.          to  1.00000e+00
+c                                        with weighted error   3.39e-32
+c                                         log weighted error  31.47
+c                               significant figures required  30.26
+c                                    decimal places required  32.27
+c
+      data atn1cs(  1) / -.3283997535 3552023569 0793992299 0 d-1      /
+      data atn1cs(  2) / +.5833432343 1724124499 5166991490 7 d-1      /
+      data atn1cs(  3) / -.7400369696 7196464638 0901155141 3 d-2      /
+      data atn1cs(  4) / +.1009784199 3372880835 9035751163 9 d-2      /
+      data atn1cs(  5) / -.1439787163 5652056214 7130369770 0 d-3      /
+      data atn1cs(  6) / +.2114512648 9921075720 7211224343 9 d-4      /
+      data atn1cs(  7) / -.3172321074 2546671674 0256499675 7 d-5      /
+      data atn1cs(  8) / +.4836620365 4607108253 7785938480 0 d-6      /
+      data atn1cs(  9) / -.7467746546 8141126704 3761432277 6 d-7      /
+      data atn1cs( 10) / +.1164800896 8244298306 2099864134 2 d-7      /
+      data atn1cs( 11) / -.1832088370 8472013926 9995624245 2 d-8      /
+      data atn1cs( 12) / +.2901908277 9660633131 7535123045 5 d-9      /
+      data atn1cs( 13) / -.4623885312 1063267383 5180572151 2 d-10     /
+      data atn1cs( 14) / +.7405528668 7757369179 9219704828 6 d-11     /
+      data atn1cs( 15) / -.1191354457 8451366823 7082037341 7 d-11     /
+      data atn1cs( 16) / +.1924090144 3917725998 6785569251 8 d-12     /
+      data atn1cs( 17) / -.3118271051 0761942722 5447615532 7 d-13     /
+      data atn1cs( 18) / +.5069240036 5677317896 9452059303 2 d-14     /
+      data atn1cs( 19) / -.8263694719 8028660538 1828440596 4 d-15     /
+      data atn1cs( 20) / +.1350486709 8170794205 2650612302 9 d-15     /
+      data atn1cs( 21) / -.2212023650 4817460458 4013782319 1 d-16     /
+      data atn1cs( 22) / +.3630654747 3813567838 2904764770 9 d-17     /
+      data atn1cs( 23) / -.5970345328 8471540524 5121585916 5 d-18     /
+      data atn1cs( 24) / +.9834816050 0771331194 4832900573 8 d-19     /
+      data atn1cs( 25) / -.1622655075 8550623361 4438760448 0 d-19     /
+      data atn1cs( 26) / +.2681186176 9454367963 0132030122 6 d-20     /
+      data atn1cs( 27) / -.4436309706 7852554796 3624368810 6 d-21     /
+      data atn1cs( 28) / +.7349691897 6524969450 7246551040 0 d-22     /
+      data atn1cs( 29) / -.1219077508 3500525882 8940137813 3 d-22     /
+      data atn1cs( 30) / +.2024298836 8052154031 8454087679 9 d-23     /
+      data atn1cs( 31) / -.3364871555 7973545799 2557636266 6 d-24     /
+      data atn1cs( 32) / +.5598673968 3469887494 9293397333 3 d-25     /
+      data atn1cs( 33) / -.9323939267 2723202296 2853205333 3 d-26     /
+      data atn1cs( 34) / +.1554133116 9959702229 3480789333 3 d-26     /
+      data atn1cs( 35) / -.2592569534 1797459227 5742719999 9 d-27     /
+      data atn1cs( 36) / +.4328193466 2457346850 3790933333 3 d-28     /
+      data atn1cs( 37) / -.7231013125 5954374711 9240533333 3 d-29     /
+      data atn1cs( 38) / +.1208902859 8304947729 4216533333 3 d-29     /
+      data atn1cs( 39) / -.2022404543 4498975793 1519999999 9 d-30     /
+      data atn1cs( 40) / +.3385428713 0464938430 7370666666 6 d-31     /
+c
+      data ntatn1, xsml, xbig, xmax / 0, 3*0.d0 /
+c
+      if (ntatn1.ne.0) go to 10
+      eps = d1mach(3)
+      ntatn1 = initds (atn1cs, 40, 0.1*eps)
+c
+      xsml = sqrt (0.1*eps)
+      xbig = 1.571/sqrt(eps)
+      xmax = 1.571/eps
+c
+ 10   y = dabs(x)
+      if (y.gt.1.0d0) go to 20
+c
+      if (y.le.xsml) d9atn1 = -1.0d0/3.0d0
+      if (y.le.xsml) return
+c
+      d9atn1 = -0.25d0 + dcsevl (2.d0*y*y-1.d0, atn1cs, ntatn1)
+      return
+c
+ 20   if (y.gt.xmax) call seteru (
+     1  51hd9atn1  no precision in answer because x is too big, 51,
+     2  2, 2)
+      if (y.gt.xbig) call seteru (
+     1  53hd9atn1  answer lt half precision because x is too big, 53,
+     2  1, 1)
+c
+      d9atn1 = (datan(x) - x) / x**3
+      return
+c
+      end
diff --git a/fvn_fnlib/d9b0mp.f b/fvn_fnlib/d9b0mp.f
new file mode 100644
index 0000000..5d513e3
--- /dev/null
+++ b/fvn_fnlib/d9b0mp.f
@@ -0,0 +1,227 @@
+      subroutine d9b0mp (x, ampl, theta)
+c july 1977 edition.  w. fullerton, c3, los alamos scientific lab.
+c
+c evaluate the modulus and phase for the bessel j0 and y0 functions.
+c
+      double precision x, ampl, theta, bm0cs(37), bt02cs(39),
+     1  bm02cs(40), bth0cs(44), xmax, pi4, z, d1mach, dcsevl,
+     2  dsqrt
+      external d1mach, dcsevl, initds
+c
+c series for bm0        on the interval  1.56250e-02 to  6.25000e-02
+c                                        with weighted error   4.40e-32
+c                                         log weighted error  31.36
+c                               significant figures required  30.02
+c                                    decimal places required  32.14
+c
+      data bm0 cs(  1) / +.9211656246 8277427125 7376773018 2 d-1      /
+      data bm0 cs(  2) / -.1050590997 2719051024 8071637175 5 d-2      /
+      data bm0 cs(  3) / +.1470159840 7687597540 5639285095 2 d-4      /
+      data bm0 cs(  4) / -.5058557606 0385542233 4792932770 2 d-6      /
+      data bm0 cs(  5) / +.2787254538 6324441766 3035613788 1 d-7      /
+      data bm0 cs(  6) / -.2062363611 7809148026 1884101897 3 d-8      /
+      data bm0 cs(  7) / +.1870214313 1388796751 3817259626 1 d-9      /
+      data bm0 cs(  8) / -.1969330971 1356362002 4173077782 5 d-10     /
+      data bm0 cs(  9) / +.2325973793 9992754440 1250881805 2 d-11     /
+      data bm0 cs( 10) / -.3009520344 9382502728 5122473448 2 d-12     /
+      data bm0 cs( 11) / +.4194521333 8506691814 7120676864 6 d-13     /
+      data bm0 cs( 12) / -.6219449312 1884458259 7326742956 4 d-14     /
+      data bm0 cs( 13) / +.9718260411 3360684696 0176588526 9 d-15     /
+      data bm0 cs( 14) / -.1588478585 7010752073 6663596693 7 d-15     /
+      data bm0 cs( 15) / +.2700072193 6713088900 8621732445 8 d-16     /
+      data bm0 cs( 16) / -.4750092365 2340089924 7750478677 3 d-17     /
+      data bm0 cs( 17) / +.8615128162 6043708731 9170374656 0 d-18     /
+      data bm0 cs( 18) / -.1605608686 9561448157 4560270335 9 d-18     /
+      data bm0 cs( 19) / +.3066513987 3144829751 8853980159 9 d-19     /
+      data bm0 cs( 20) / -.5987764223 1939564306 9650561706 6 d-20     /
+      data bm0 cs( 21) / +.1192971253 7482483064 8906984106 6 d-20     /
+      data bm0 cs( 22) / -.2420969142 0448054894 8468258133 3 d-21     /
+      data bm0 cs( 23) / +.4996751760 5106164533 7100287999 9 d-22     /
+      data bm0 cs( 24) / -.1047493639 3511585100 9504051199 9 d-22     /
+      data bm0 cs( 25) / +.2227786843 7974681010 4818346666 6 d-23     /
+      data bm0 cs( 26) / -.4801813239 3981628623 7054293333 3 d-24     /
+      data bm0 cs( 27) / +.1047962723 4709599564 7699626666 6 d-24     /
+      data bm0 cs( 28) / -.2313858165 6786153251 0126080000 0 d-25     /
+      data bm0 cs( 29) / +.5164823088 4626742116 3519999999 9 d-26     /
+      data bm0 cs( 30) / -.1164691191 8500653895 2540159999 9 d-26     /
+      data bm0 cs( 31) / +.2651788486 0433192829 5833600000 0 d-27     /
+      data bm0 cs( 32) / -.6092559503 8257284976 9130666666 6 d-28     /
+      data bm0 cs( 33) / +.1411804686 1442593080 3882666666 6 d-28     /
+      data bm0 cs( 34) / -.3298094961 2317372457 5061333333 3 d-29     /
+      data bm0 cs( 35) / +.7763931143 0740650317 1413333333 3 d-30     /
+      data bm0 cs( 36) / -.1841031343 6614584784 2133333333 3 d-30     /
+      data bm0 cs( 37) / +.4395880138 5943107371 0079999999 9 d-31     /
+c
+c series for bth0       on the interval  0.          to  1.56250e-02
+c                                        with weighted error   2.66e-32
+c                                         log weighted error  31.57
+c                               significant figures required  30.67
+c                                    decimal places required  32.40
+c
+      data bth0cs(  1) / -.2490178086 2128936717 7097937899 67 d+0     /
+      data bth0cs(  2) / +.4855029960 9623749241 0486155354 85 d-3     /
+      data bth0cs(  3) / -.5451183734 5017204950 6562735635 05 d-5     /
+      data bth0cs(  4) / +.1355867305 9405964054 3774459299 03 d-6     /
+      data bth0cs(  5) / -.5569139890 2227626227 5832184149 20 d-8     /
+      data bth0cs(  6) / +.3260903182 4994335304 0042057194 68 d-9     /
+      data bth0cs(  7) / -.2491880786 2461341125 2379038779 93 d-10    /
+      data bth0cs(  8) / +.2344937742 0882520554 3524135648 91 d-11    /
+      data bth0cs(  9) / -.2609653444 4310387762 1775747661 36 d-12    /
+      data bth0cs( 10) / +.3335314042 0097395105 8699550149 23 d-13    /
+      data bth0cs( 11) / -.4789000044 0572684646 7507705574 09 d-14    /
+      data bth0cs( 12) / +.7595617843 6192215972 6425685452 48 d-15    /
+      data bth0cs( 13) / -.1313155601 6891440382 7733974876 33 d-15    /
+      data bth0cs( 14) / +.2448361834 5240857495 4268207383 55 d-16    /
+      data bth0cs( 15) / -.4880572981 0618777683 2567619183 31 d-17    /
+      data bth0cs( 16) / +.1032728502 9786316149 2237563612 04 d-17    /
+      data bth0cs( 17) / -.2305763381 5057217157 0047445270 25 d-18    /
+      data bth0cs( 18) / +.5404444300 1892693993 0171084837 65 d-19    /
+      data bth0cs( 19) / -.1324069519 4366572724 1550328823 85 d-19    /
+      data bth0cs( 20) / +.3378079562 1371970203 4247921247 22 d-20    /
+      data bth0cs( 21) / -.8945762915 7111779003 0269262922 99 d-21    /
+      data bth0cs( 22) / +.2451990688 9219317090 8999086514 05 d-21    /
+      data bth0cs( 23) / -.6938842287 6866318680 1399331576 57 d-22    /
+      data bth0cs( 24) / +.2022827871 4890138392 9463033377 91 d-22    /
+      data bth0cs( 25) / -.6062850000 2335483105 7941953717 64 d-23    /
+      data bth0cs( 26) / +.1864974896 4037635381 8237883962 70 d-23    /
+      data bth0cs( 27) / -.5878373238 4849894560 2450365308 67 d-24    /
+      data bth0cs( 28) / +.1895859144 7999563485 5311795035 13 d-24    /
+      data bth0cs( 29) / -.6248197937 2258858959 2916207285 65 d-25    /
+      data bth0cs( 30) / +.2101790168 4551024686 6386335290 74 d-25    /
+      data bth0cs( 31) / -.7208430093 5209253690 8139339924 46 d-26    /
+      data bth0cs( 32) / +.2518136389 2474240867 1564059767 46 d-26    /
+      data bth0cs( 33) / -.8951804225 8785778806 1439459536 43 d-27    /
+      data bth0cs( 34) / +.3235723747 9762298533 2562358685 87 d-27    /
+      data bth0cs( 35) / -.1188301051 9855353657 0471441137 96 d-27    /
+      data bth0cs( 36) / +.4430628690 7358104820 5792319417 31 d-28    /
+      data bth0cs( 37) / -.1676100964 8834829495 7920101356 81 d-28    /
+      data bth0cs( 38) / +.6429294692 1207466972 5323939660 88 d-29    /
+      data bth0cs( 39) / -.2499226116 6978652421 2072136827 63 d-29    /
+      data bth0cs( 40) / +.9839979429 9521955672 8282603553 18 d-30    /
+      data bth0cs( 41) / -.3922037524 2408016397 9891316261 58 d-30    /
+      data bth0cs( 42) / +.1581810703 0056522138 5906188456 92 d-30    /
+      data bth0cs( 43) / -.6452550614 4890715944 3440983654 26 d-31    /
+      data bth0cs( 44) / +.2661111136 9199356137 1770183463 67 d-31    /
+c
+c series for bm02       on the interval  0.          to  1.56250e-02
+c                                        with weighted error   4.72e-32
+c                                         log weighted error  31.33
+c                               significant figures required  30.00
+c                                    decimal places required  32.13
+c
+      data bm02cs(  1) / +.9500415145 2283813693 3086133556 0 d-1      /
+      data bm02cs(  2) / -.3801864682 3656709917 4808156685 1 d-3      /
+      data bm02cs(  3) / +.2258339301 0314811929 5182992722 4 d-5      /
+      data bm02cs(  4) / -.3895725802 3722287647 3062141260 5 d-7      /
+      data bm02cs(  5) / +.1246886416 5120816979 3099052972 5 d-8      /
+      data bm02cs(  6) / -.6065949022 1025037798 0383505838 7 d-10     /
+      data bm02cs(  7) / +.4008461651 4217469910 1527597104 5 d-11     /
+      data bm02cs(  8) / -.3350998183 3980942184 6729879457 4 d-12     /
+      data bm02cs(  9) / +.3377119716 5174173670 6326434199 6 d-13     /
+      data bm02cs( 10) / -.3964585901 6350127005 6935629582 3 d-14     /
+      data bm02cs( 11) / +.5286111503 8838572173 8793974473 5 d-15     /
+      data bm02cs( 12) / -.7852519083 4508523136 5464024349 3 d-16     /
+      data bm02cs( 13) / +.1280300573 3866822010 1163407344 9 d-16     /
+      data bm02cs( 14) / -.2263996296 3914297762 8709924488 4 d-17     /
+      data bm02cs( 15) / +.4300496929 6567903886 4641029047 7 d-18     /
+      data bm02cs( 16) / -.8705749805 1325870797 4753545145 5 d-19     /
+      data bm02cs( 17) / +.1865862713 9620951411 8144277205 0 d-19     /
+      data bm02cs( 18) / -.4210482486 0930654573 4508697230 1 d-20     /
+      data bm02cs( 19) / +.9956676964 2284009915 8162741784 2 d-21     /
+      data bm02cs( 20) / -.2457357442 8053133596 0592147854 7 d-21     /
+      data bm02cs( 21) / +.6307692160 7620315680 8735370705 9 d-22     /
+      data bm02cs( 22) / -.1678773691 4407401426 9333117238 8 d-22     /
+      data bm02cs( 23) / +.4620259064 6739044337 7087813608 7 d-23     /
+      data bm02cs( 24) / -.1311782266 8603087322 3769340249 6 d-23     /
+      data bm02cs( 25) / +.3834087564 1163028277 4792244027 6 d-24     /
+      data bm02cs( 26) / -.1151459324 0777412710 7261329357 6 d-24     /
+      data bm02cs( 27) / +.3547210007 5233385230 7697134521 3 d-25     /
+      data bm02cs( 28) / -.1119218385 8150046462 6435594217 6 d-25     /
+      data bm02cs( 29) / +.3611879427 6298378316 9840499425 7 d-26     /
+      data bm02cs( 30) / -.1190687765 9133331500 9264176246 3 d-26     /
+      data bm02cs( 31) / +.4005094059 4039681318 0247644953 6 d-27     /
+      data bm02cs( 32) / -.1373169422 4522123905 9519391601 7 d-27     /
+      data bm02cs( 33) / +.4794199088 7425315859 9649152643 7 d-28     /
+      data bm02cs( 34) / -.1702965627 6241095840 0699447645 2 d-28     /
+      data bm02cs( 35) / +.6149512428 9363300715 0357516132 4 d-29     /
+      data bm02cs( 36) / -.2255766896 5818283499 4430023724 2 d-29     /
+      data bm02cs( 37) / +.8399707509 2942994860 6165835320 0 d-30     /
+      data bm02cs( 38) / -.3172997595 5626023555 6742393615 2 d-30     /
+      data bm02cs( 39) / +.1215205298 8812985545 8333302651 4 d-30     /
+      data bm02cs( 40) / -.4715852749 7544386930 1321056804 5 d-31     /
+c
+c series for bt02       on the interval  1.56250e-02 to  6.25000e-02
+c                                        with weighted error   2.99e-32
+c                                         log weighted error  31.52
+c                               significant figures required  30.61
+c                                    decimal places required  32.32
+c
+      data bt02cs(  1) / -.2454829521 3424597462 0504672493 24 d+0     /
+      data bt02cs(  2) / +.1254412103 9084615780 7853317782 99 d-2     /
+      data bt02cs(  3) / -.3125395041 4871522854 9734467095 71 d-4     /
+      data bt02cs(  4) / +.1470977824 9940831164 4534269693 14 d-5     /
+      data bt02cs(  5) / -.9954348893 7950033643 4688503511 58 d-7     /
+      data bt02cs(  6) / +.8549316673 3203041247 5787113977 51 d-8     /
+      data bt02cs(  7) / -.8698975952 6554334557 9855121791 92 d-9     /
+      data bt02cs(  8) / +.1005209953 3559791084 5401010821 53 d-9     /
+      data bt02cs(  9) / -.1282823060 1708892903 4836236855 44 d-10    /
+      data bt02cs( 10) / +.1773170078 1805131705 6557504510 23 d-11    /
+      data bt02cs( 11) / -.2617457456 9485577488 6362841809 25 d-12    /
+      data bt02cs( 12) / +.4082835138 9972059621 9664812211 03 d-13    /
+      data bt02cs( 13) / -.6675166823 9742720054 6067495542 61 d-14    /
+      data bt02cs( 14) / +.1136576139 3071629448 3924695499 51 d-14    /
+      data bt02cs( 15) / -.2005118962 0647160250 5592664121 17 d-15    /
+      data bt02cs( 16) / +.3649797879 4766269635 7205914641 06 d-16    /
+      data bt02cs( 17) / -.6830963756 4582303169 3558437888 00 d-17    /
+      data bt02cs( 18) / +.1310758314 5670756620 0571042679 46 d-17    /
+      data bt02cs( 19) / -.2572336310 1850607778 7571306495 99 d-18    /
+      data bt02cs( 20) / +.5152165744 1863959925 2677809493 33 d-19    /
+      data bt02cs( 21) / -.1051301756 3758802637 9407414613 33 d-19    /
+      data bt02cs( 22) / +.2182038199 1194813847 3010845013 33 d-20    /
+      data bt02cs( 23) / -.4600470121 0362160577 2259054933 33 d-21    /
+      data bt02cs( 24) / +.9840700692 5466818520 9536511999 99 d-22    /
+      data bt02cs( 25) / -.2133403803 5728375844 7359863466 66 d-22    /
+      data bt02cs( 26) / +.4683103642 3973365296 0662869333 33 d-23    /
+      data bt02cs( 27) / -.1040021369 1985747236 5133823999 99 d-23    /
+      data bt02cs( 28) / +.2334910567 7301510051 7777408000 00 d-24    /
+      data bt02cs( 29) / -.5295682532 3318615788 0497493333 33 d-25    /
+      data bt02cs( 30) / +.1212634195 2959756829 1962879999 99 d-25    /
+      data bt02cs( 31) / -.2801889708 2289428760 2756266666 66 d-26    /
+      data bt02cs( 32) / +.6529267898 7012873342 5937066666 66 d-27    /
+      data bt02cs( 33) / -.1533798006 1873346427 8357333333 33 d-27    /
+      data bt02cs( 34) / +.3630588430 6364536682 3594666666 66 d-28    /
+      data bt02cs( 35) / -.8656075571 3629122479 1722666666 66 d-29    /
+      data bt02cs( 36) / +.2077990997 2536284571 2383999999 99 d-29    /
+      data bt02cs( 37) / -.5021117022 1417221674 3253333333 33 d-30    /
+      data bt02cs( 38) / +.1220836027 9441714184 1919999999 99 d-30    /
+      data bt02cs( 39) / -.2986005626 7039913454 2506666666 66 d-31    /
+c
+      data pi4 / 0.7853981633 9744830961 5660845819 876 d0 /
+      data nbm0, nbt02, nbm02, nbth0, xmax / 4*0, 0.d0 /
+c
+      if (nbm0.ne.0) go to 10
+      eta = 0.1*sngl(d1mach(3))
+      nbm0 = initds (bm0cs, 37, eta)
+      nbt02 = initds (bt02cs, 39, eta)
+      nbm02 = initds (bm02cs, 40, eta)
+      nbth0 = initds (bth0cs, 44, eta)
+c
+      xmax = 1.0d0/d1mach(4)
+c
+ 10   if (x.lt.4.d0) call seteru (22hd9b0mp  x must be ge 4, 22, 1, 2)
+c
+      if (x.gt.8.d0) go to 20
+      z = (128.d0/(x*x) - 5.d0)/3.d0
+      ampl = (.75d0 + dcsevl (z, bm0cs, nbm0))/dsqrt(x)
+      theta = x - pi4 + dcsevl (z, bt02cs, nbt02)/x
+      return
+c
+ 20   if (x.gt.xmax) call seteru (
+     1  37hd9b0mp  no precision because x is big, 37, 2, 2)
+c
+      z = 128.d0/(x*x) - 1.d0
+      ampl = (.75d0 + dcsevl (z, bm02cs, nbm02))/dsqrt(x)
+      theta = x - pi4 + dcsevl (z, bth0cs, nbth0)/x
+      return
+c
+      end
diff --git a/fvn_fnlib/d9b1mp.f b/fvn_fnlib/d9b1mp.f
new file mode 100644
index 0000000..4251e8c
--- /dev/null
+++ b/fvn_fnlib/d9b1mp.f
@@ -0,0 +1,227 @@
+      subroutine d9b1mp (x, ampl, theta)
+c july 1977 edition.  w. fullerton, c3, los alamos scientific lab.
+c
+c evaluate the modulus and phase for the bessel j1 and y1 functions.
+c
+      double precision x, ampl, theta, bm1cs(37), bt12cs(39),
+     1  bm12cs(40), bth1cs(44), xmax, pi4, z, d1mach, dcsevl,
+     2  dsqrt
+      external d1mach, dcsevl, initds
+c
+c series for bm1        on the interval  1.56250e-02 to  6.25000e-02
+c                                        with weighted error   4.91e-32
+c                                         log weighted error  31.31
+c                               significant figures required  30.04
+c                                    decimal places required  32.09
+c
+      data bm1 cs(  1) / +.1069845452 6180630149 6998530853 8 d+0      /
+      data bm1 cs(  2) / +.3274915039 7159649007 2905514344 5 d-2      /
+      data bm1 cs(  3) / -.2987783266 8316985920 3044577793 8 d-4      /
+      data bm1 cs(  4) / +.8331237177 9919745313 9322266902 3 d-6      /
+      data bm1 cs(  5) / -.4112665690 3020073048 9638172549 8 d-7      /
+      data bm1 cs(  6) / +.2855344228 7892152207 1975766316 1 d-8      /
+      data bm1 cs(  7) / -.2485408305 4156238780 6002659605 5 d-9      /
+      data bm1 cs(  8) / +.2543393338 0725824427 4248439717 4 d-10     /
+      data bm1 cs(  9) / -.2941045772 8229675234 8975082790 9 d-11     /
+      data bm1 cs( 10) / +.3743392025 4939033092 6505615362 6 d-12     /
+      data bm1 cs( 11) / -.5149118293 8211672187 2054824352 7 d-13     /
+      data bm1 cs( 12) / +.7552535949 8651439080 3404076419 9 d-14     /
+      data bm1 cs( 13) / -.1169409706 8288464441 6629062246 4 d-14     /
+      data bm1 cs( 14) / +.1896562449 4347915717 2182460506 0 d-15     /
+      data bm1 cs( 15) / -.3201955368 6932864206 6477531639 4 d-16     /
+      data bm1 cs( 16) / +.5599548399 3162041144 8416990549 3 d-17     /
+      data bm1 cs( 17) / -.1010215894 7304324431 1939044454 4 d-17     /
+      data bm1 cs( 18) / +.1873844985 7275629833 0204271957 3 d-18     /
+      data bm1 cs( 19) / -.3563537470 3285802192 7430143999 9 d-19     /
+      data bm1 cs( 20) / +.6931283819 9712383304 2276351999 9 d-20     /
+      data bm1 cs( 21) / -.1376059453 4065001522 5140893013 3 d-20     /
+      data bm1 cs( 22) / +.2783430784 1070802205 9977932799 9 d-21     /
+      data bm1 cs( 23) / -.5727595364 3205616893 4866943999 9 d-22     /
+      data bm1 cs( 24) / +.1197361445 9188926725 3575679999 9 d-22     /
+      data bm1 cs( 25) / -.2539928509 8918719766 4144042666 6 d-23     /
+      data bm1 cs( 26) / +.5461378289 6572959730 6961919999 9 d-24     /
+      data bm1 cs( 27) / -.1189211341 7733202889 8628949333 3 d-24     /
+      data bm1 cs( 28) / +.2620150977 3400815949 5782400000 0 d-25     /
+      data bm1 cs( 29) / -.5836810774 2556859019 2093866666 6 d-26     /
+      data bm1 cs( 30) / +.1313743500 0805957734 2361599999 9 d-26     /
+      data bm1 cs( 31) / -.2985814622 5103803553 3277866666 6 d-27     /
+      data bm1 cs( 32) / +.6848390471 3346049376 2559999999 9 d-28     /
+      data bm1 cs( 33) / -.1584401568 2224767211 9296000000 0 d-28     /
+      data bm1 cs( 34) / +.3695641006 5709380543 0101333333 3 d-29     /
+      data bm1 cs( 35) / -.8687115921 1446682430 1226666666 6 d-30     /
+      data bm1 cs( 36) / +.2057080846 1587634629 2906666666 6 d-30     /
+      data bm1 cs( 37) / -.4905225761 1162255185 2373333333 3 d-31     /
+c
+c series for bt12       on the interval  1.56250e-02 to  6.25000e-02
+c                                        with weighted error   3.33e-32
+c                                         log weighted error  31.48
+c                               significant figures required  31.05
+c                                    decimal places required  32.27
+c
+      data bt12cs(  1) / +.7382386012 8742974662 6208397927 64 d+0     /
+      data bt12cs(  2) / -.3336111317 4483906384 4701476811 89 d-2     /
+      data bt12cs(  3) / +.6146345488 8046964698 5148994201 86 d-4     /
+      data bt12cs(  4) / -.2402458516 1602374264 9776354695 68 d-5     /
+      data bt12cs(  5) / +.1466355557 7509746153 2105919972 04 d-6     /
+      data bt12cs(  6) / -.1184191730 5589180567 0051475049 83 d-7     /
+      data bt12cs(  7) / +.1157419896 3919197052 1254663030 55 d-8     /
+      data bt12cs(  8) / -.1300116112 9439187449 3660077945 71 d-9     /
+      data bt12cs(  9) / +.1624539114 1361731937 7421662736 67 d-10    /
+      data bt12cs( 10) / -.2208963682 1403188752 1554417701 28 d-11    /
+      data bt12cs( 11) / +.3218030425 8553177090 4743586537 78 d-12    /
+      data bt12cs( 12) / -.4965314793 2768480785 5520211353 81 d-13    /
+      data bt12cs( 13) / +.8043890043 2847825985 5588826393 17 d-14    /
+      data bt12cs( 14) / -.1358912131 0161291384 6947126822 82 d-14    /
+      data bt12cs( 15) / +.2381050439 7147214869 6765296059 73 d-15    /
+      data bt12cs( 16) / -.4308146636 3849106724 4712414207 99 d-16    /
+      data bt12cs( 17) / +.8020254403 2771002434 9935125504 00 d-17    /
+      data bt12cs( 18) / -.1531631064 2462311864 2300274687 99 d-17    /
+      data bt12cs( 19) / +.2992860635 2715568924 0730405546 66 d-18    /
+      data bt12cs( 20) / -.5970996465 8085443393 8156366506 66 d-19    /
+      data bt12cs( 21) / +.1214028966 9415185024 1608526506 66 d-19    /
+      data bt12cs( 22) / -.2511511469 6612948901 0069777066 66 d-20    /
+      data bt12cs( 23) / +.5279056717 0328744850 7383807999 99 d-21    /
+      data bt12cs( 24) / -.1126050922 7550498324 3611613866 66 d-21    /
+      data bt12cs( 25) / +.2434827735 9576326659 6634624000 00 d-22    /
+      data bt12cs( 26) / -.5331726123 6931800130 0384426666 66 d-23    /
+      data bt12cs( 27) / +.1181361505 9707121039 2059903999 99 d-23    /
+      data bt12cs( 28) / -.2646536828 3353523514 8567893333 33 d-24    /
+      data bt12cs( 29) / +.5990339404 1361503945 5778133333 33 d-25    /
+      data bt12cs( 30) / -.1369085463 0829503109 1363839999 99 d-25    /
+      data bt12cs( 31) / +.3157679015 4380228326 4136533333 33 d-26    /
+      data bt12cs( 32) / -.7345791508 2084356491 4005333333 33 d-27    /
+      data bt12cs( 33) / +.1722808148 0722747930 7059200000 00 d-27    /
+      data bt12cs( 34) / -.4071690796 1286507941 0688000000 00 d-28    /
+      data bt12cs( 35) / +.9693474513 6779622700 3733333333 33 d-29    /
+      data bt12cs( 36) / -.2323763633 7765716765 3546666666 66 d-29    /
+      data bt12cs( 37) / +.5607451067 3522029406 8906666666 66 d-30    /
+      data bt12cs( 38) / -.1361646539 1539005860 5226666666 66 d-30    /
+      data bt12cs( 39) / +.3326310923 3894654388 9066666666 66 d-31    /
+c
+c series for bm12       on the interval  0.          to  1.56250e-02
+c                                        with weighted error   5.01e-32
+c                                         log weighted error  31.30
+c                               significant figures required  29.99
+c                                    decimal places required  32.10
+c
+      data bm12cs(  1) / +.9807979156 2330500272 7209354693 7 d-1      /
+      data bm12cs(  2) / +.1150961189 5046853061 7548348460 2 d-2      /
+      data bm12cs(  3) / -.4312482164 3382054098 8935809773 2 d-5      /
+      data bm12cs(  4) / +.5951839610 0888163078 1302980183 2 d-7      /
+      data bm12cs(  5) / -.1704844019 8269098574 0070158647 8 d-8      /
+      data bm12cs(  6) / +.7798265413 6111095086 5817382740 1 d-10     /
+      data bm12cs(  7) / -.4958986126 7664158094 9175495186 5 d-11     /
+      data bm12cs(  8) / +.4038432416 4211415168 3820226514 4 d-12     /
+      data bm12cs(  9) / -.3993046163 7251754457 6548384664 5 d-13     /
+      data bm12cs( 10) / +.4619886183 1189664943 1334243277 5 d-14     /
+      data bm12cs( 11) / -.6089208019 0953833013 4547261933 3 d-15     /
+      data bm12cs( 12) / +.8960930916 4338764821 5704804124 9 d-16     /
+      data bm12cs( 13) / -.1449629423 9420231229 1651891892 5 d-16     /
+      data bm12cs( 14) / +.2546463158 5377760561 6514964806 8 d-17     /
+      data bm12cs( 15) / -.4809472874 6478364442 5926371862 0 d-18     /
+      data bm12cs( 16) / +.9687684668 2925990490 8727583912 4 d-19     /
+      data bm12cs( 17) / -.2067213372 2779660232 4503811755 1 d-19     /
+      data bm12cs( 18) / +.4646651559 1503847318 0276780959 0 d-20     /
+      data bm12cs( 19) / -.1094966128 8483341382 4135132833 9 d-20     /
+      data bm12cs( 20) / +.2693892797 2886828609 0570761278 5 d-21     /
+      data bm12cs( 21) / -.6894992910 9303744778 1897002685 7 d-22     /
+      data bm12cs( 22) / +.1830268262 7520629098 9066855474 0 d-22     /
+      data bm12cs( 23) / -.5025064246 3519164281 5611355322 4 d-23     /
+      data bm12cs( 24) / +.1423545194 4548060396 3169363419 4 d-23     /
+      data bm12cs( 25) / -.4152191203 6164503880 6888676980 1 d-24     /
+      data bm12cs( 26) / +.1244609201 5039793258 8233007654 7 d-24     /
+      data bm12cs( 27) / -.3827336370 5693042994 3191866128 6 d-25     /
+      data bm12cs( 28) / +.1205591357 8156175353 7472398183 5 d-25     /
+      data bm12cs( 29) / -.3884536246 3764880764 3185936112 4 d-26     /
+      data bm12cs( 30) / +.1278689528 7204097219 0489528346 1 d-26     /
+      data bm12cs( 31) / -.4295146689 4479462720 6193691591 2 d-27     /
+      data bm12cs( 32) / +.1470689117 8290708864 5680270798 3 d-27     /
+      data bm12cs( 33) / -.5128315665 1060731281 8037401779 6 d-28     /
+      data bm12cs( 34) / +.1819509585 4711693854 8143737328 6 d-28     /
+      data bm12cs( 35) / -.6563031314 8419808676 1863505037 3 d-29     /
+      data bm12cs( 36) / +.2404898976 9199606531 9891487583 4 d-29     /
+      data bm12cs( 37) / -.8945966744 6906124732 3495824297 9 d-30     /
+      data bm12cs( 38) / +.3376085160 6572310266 3714897824 0 d-30     /
+      data bm12cs( 39) / -.1291791454 6206563609 1309991696 6 d-30     /
+      data bm12cs( 40) / +.5008634462 9588105206 8495150125 4 d-31     /
+c
+c series for bth1       on the interval  0.          to  1.56250e-02
+c                                        with weighted error   2.82e-32
+c                                         log weighted error  31.55
+c                               significant figures required  31.12
+c                                    decimal places required  32.37
+c
+      data bth1cs(  1) / +.7474995720 3587276055 4434839696 95 d+0     /
+      data bth1cs(  2) / -.1240077714 4651711252 5457775413 84 d-2     /
+      data bth1cs(  3) / +.9925244240 4424527376 6414976895 92 d-5     /
+      data bth1cs(  4) / -.2030369073 7159711052 4193753756 08 d-6     /
+      data bth1cs(  5) / +.7535961770 5690885712 1840175836 29 d-8     /
+      data bth1cs(  6) / -.4166161271 5343550107 6300238562 28 d-9     /
+      data bth1cs(  7) / +.3070161807 0834890481 2451020912 16 d-10    /
+      data bth1cs(  8) / -.2817849963 7605213992 3240088839 24 d-11    /
+      data bth1cs(  9) / +.3079069673 9040295476 0281468216 47 d-12    /
+      data bth1cs( 10) / -.3880330026 2803434112 7873475547 81 d-13    /
+      data bth1cs( 11) / +.5509603960 8630904934 5617262085 62 d-14    /
+      data bth1cs( 12) / -.8659006076 8383779940 1033989539 94 d-15    /
+      data bth1cs( 13) / +.1485604914 1536749003 4236890606 83 d-15    /
+      data bth1cs( 14) / -.2751952981 5904085805 3712121250 09 d-16    /
+      data bth1cs( 15) / +.5455079609 0481089625 0362236409 23 d-17    /
+      data bth1cs( 16) / -.1148653450 1983642749 5436310271 77 d-17    /
+      data bth1cs( 17) / +.2553521337 7973900223 1990525335 22 d-18    /
+      data bth1cs( 18) / -.5962149019 7413450395 7682879078 49 d-19    /
+      data bth1cs( 19) / +.1455662290 2372718620 2883020058 33 d-19    /
+      data bth1cs( 20) / -.3702218542 2450538201 5797760195 93 d-20    /
+      data bth1cs( 21) / +.9776307412 5345357664 1684345179 24 d-21    /
+      data bth1cs( 22) / -.2672682163 9668488468 7237753930 52 d-21    /
+      data bth1cs( 23) / +.7545330038 4983271794 0381906557 64 d-22    /
+      data bth1cs( 24) / -.2194789991 9802744897 8923833716 47 d-22    /
+      data bth1cs( 25) / +.6564839462 3955262178 9069998174 93 d-23    /
+      data bth1cs( 26) / -.2015560429 8370207570 7840768695 19 d-23    /
+      data bth1cs( 27) / +.6341776855 6776143492 1446671856 70 d-24    /
+      data bth1cs( 28) / -.2041927788 5337895634 8137699555 91 d-24    /
+      data bth1cs( 29) / +.6719146422 0720567486 6589800185 51 d-25    /
+      data bth1cs( 30) / -.2256907911 0207573595 7090036873 36 d-25    /
+      data bth1cs( 31) / +.7729771989 2989706370 9269598719 29 d-26    /
+      data bth1cs( 32) / -.2696744451 2294640913 2114240809 20 d-26    /
+      data bth1cs( 33) / +.9574934451 8502698072 2955219336 27 d-27    /
+      data bth1cs( 34) / -.3456916844 8890113000 1756808276 27 d-27    /
+      data bth1cs( 35) / +.1268123481 7398436504 2119862383 74 d-27    /
+      data bth1cs( 36) / -.4723253663 0722639860 4649937134 45 d-28    /
+      data bth1cs( 37) / +.1785000847 8186376177 8586197964 17 d-28    /
+      data bth1cs( 38) / -.6840436100 4510395406 2152235667 46 d-29    /
+      data bth1cs( 39) / +.2656602867 1720419358 2934226722 12 d-29    /
+      data bth1cs( 40) / -.1045040252 7914452917 7141614846 70 d-29    /
+      data bth1cs( 41) / +.4161829082 5377144306 8619171970 64 d-30    /
+      data bth1cs( 42) / -.1677163920 3643714856 5013478828 87 d-30    /
+      data bth1cs( 43) / +.6836199777 6664389173 5359280285 28 d-31    /
+      data bth1cs( 44) / -.2817224786 1233641166 7395746228 10 d-31    /
+c
+      data pi4 / 0.7853981633 9744830961 5660845819 876 d0 /
+      data nbm1, nbt12, nbm12, nbth1, xmax / 4*0, 0.d0 /
+c
+      if (nbm1.ne.0) go to 10
+      eta = 0.1*sngl(d1mach(3))
+      nbm1 = initds (bm1cs, 37, eta)
+      nbt12 = initds (bt12cs, 39, eta)
+      nbm12 = initds (bm12cs, 40, eta)
+      nbth1 = initds (bth1cs, 44, eta)
+c
+      xmax = 1.0d0/d1mach(4)
+c
+ 10   if (x.lt.4.d0) call seteru (22hd9b1mp  x must be ge 4, 22, 1, 2)
+c
+      if (x.gt.8.d0) go to 20
+      z = (128.d0/(x*x) - 5.d0)/3.d0
+      ampl = (0.75d0 + dcsevl (z, bm1cs, nbm1))/dsqrt(x)
+      theta = x - 3.d0*pi4 + dcsevl (z, bt12cs, nbt12)/x
+      return
+c
+ 20   if (x.gt.xmax) call seteru (
+     1  37hd9b1mp  no precision because x is big, 37, 2, 2)
+c
+      z = 128.d0/(x*x) - 1.d0
+      ampl = (0.75d0 + dcsevl (z, bm12cs, nbm12))/dsqrt(x)
+      theta = x - 3.d0*pi4 + dcsevl (z, bth1cs, nbth1)/x
+      return
+c
+      end
diff --git a/fvn_fnlib/d9chm.f b/fvn_fnlib/d9chm.f
new file mode 100644
index 0000000..32408c4
--- /dev/null
+++ b/fvn_fnlib/d9chm.f
@@ -0,0 +1,57 @@
+      double precision function d9chm (a, c, x)
+      double precision a, c, x, aa(4), bb(4), ct1, ct2, eps,
+     1  g1, g2, g3, x2, xn0, xn1, xn2, xn3, d1mach
+      external d1mach
+      double precision bmax
+c
+      data eps /0.0d0/
+c
+      if (eps.eq.0.0d0) eps = 4.0d0*d1mach(4)
+c
+ 10   aa(1) = 1.0d0
+      bb(1) = 1.0d0
+c
+      x2 = -0.5d0*x
+      bb(2) = 1.0d0 + (1.0d0+a)*x2/c
+      aa(2) = bb(2) + a*x/c
+c
+      ct2 = x2/(1.0d0+c)
+      bb(3) = 1.0d0 + (2.0d0+bb(2))*(2.0d0+a)*ct2/3.0d0
+      aa(3) = bb(3) + (1.0d0+ct2)*a*x/c
+      bmax = dmax1 (bb(1), bb(2), bb(3))
+c
+      do 30 i=3,300
+        xn0 = i
+        xn1 = i - 1
+        xn2 = i - 2
+        xn3 = i - 3
+        ct1 = 2*i - 3
+c
+        ct2 = x2/(ct1*(c+xn1))
+        g1 = 1.0d0 + ct2*(xn2-a)
+        ct2 = ct2*(a+xn1)/(c+xn2)
+        g2 = ct2*(c-xn1+(a+xn0)*x2/(ct1+2.0d0))
+        g3 = ct2*x2*x2*(a+xn2)*(a-xn2)/(ct1*(ct1-2.0d0)*(c+xn3))
+c
+        bb(4) = g1*bb(3) + g2*bb(2) + g3*bb(1)
+        aa(4) = g1*aa(3) + g2*aa(2) + g3*aa(1)
+        bmax = dmax1 (bb(4), bmax)
+c
+        d9chm = aa(4)/bb(4)
+        if (dabs(d9chm-aa(1)/bb(1)).lt.eps*dabs(d9chm)) go to 40
+c
+        do 20 j=1,3
+          aa(j) = aa(j+1)
+          bb(j) = bb(j+1)
+ 20     continue
+ 30   continue
+      call seteru (40hd9chm   no convergence in 300 iterations, 40,
+     1    1, 2)
+c
+ 40   continue
+      errest = d1mach(4)*dmax1(dabs(d9chm), 1.0d0)
+      print 500, i, aa(4), bb(4), d9chm, bmax, errest
+ 500  format (1x, i3, 3d15.5, 2e15.5)
+c
+      return
+      end
diff --git a/fvn_fnlib/d9chu.f b/fvn_fnlib/d9chu.f
new file mode 100644
index 0000000..affe561
--- /dev/null
+++ b/fvn_fnlib/d9chu.f
@@ -0,0 +1,72 @@
+      double precision function d9chu (a, b, z)
+c august 1977 edition.  w. fullerton, c3, los alamos scientific lab.
+c
+c evaluate for large z  z**a * u(a,b,z)  where u is the logarithmic
+c confluent hypergeometric function.  a rational approximation due to y.
+c l. luke is used.  when u is not in the asymptotic region, i.e., when a
+c or b is large compared with z, considerable significance loss occurs.
+c a warning is provided when the computed result is less than half
+c precision.
+c
+      double precision a, b, z, aa(4), bb(4), ab, anbn, bp, ct1, ct2,
+     1  ct3, c2, d1z, eps, g1, g2, g3, sab, sqeps, x2i1,  d1mach,
+     2  dsqrt
+      external d1mach
+      data eps, sqeps / 2*0.0d0 /
+c
+      if (eps.ne.0.0d0) go to 10
+      eps = 4.0d0*d1mach(4)
+      sqeps = dsqrt (d1mach(4))
+c
+ 10   bp = 1.0d0 + a - b
+      ab = a*bp
+      ct2 = 2.0d0 * (z - ab)
+      sab = a + bp
+c
+      bb(1) = 1.0d0
+      aa(1) = 1.0d0
+c
+      ct3 = sab + 1.0d0 + ab
+      bb(2) = 1.0d0 + 2.0d0*z/ct3
+      aa(2) = 1.0d0 + ct2/ct3
+c
+      anbn = ct3 + sab + 3.0d0
+      ct1 = 1.0d0 + 2.0d0*z/anbn
+      bb(3) = 1.0d0 + 6.0d0*ct1*z/ct3
+      aa(3) = 1.0d0 + 6.0d0*ab/anbn + 3.0d0*ct1*ct2/ct3
+c
+      do 30 i=4,300
+        x2i1 = 2*i - 3
+        ct1 = x2i1/(x2i1-2.0d0)
+        anbn = anbn + x2i1 + sab
+        ct2 = (x2i1 - 1.0d0)/anbn
+        c2 = x2i1*ct2 - 1.0d0
+        d1z = x2i1*2.0d0*z/anbn
+c
+        ct3 = sab*ct2
+        g1 = d1z + ct1*(c2+ct3)
+        g2 = d1z - c2
+        g3 = ct1*(1.0d0 - ct3 - 2.0d0*ct2)
+c
+        bb(4) = g1*bb(3) + g2*bb(2) + g3*bb(1)
+        aa(4) = g1*aa(3) + g2*aa(2) + g3*aa(1)
+c
+        d9chu = aa(4)/bb(4)
+        if (dabs(d9chu-aa(1)/bb(1)).lt.eps*dabs(d9chu)) go to 40
+c
+c if overflows or underflows prove to be a problem, the statements
+c below could be altered to incorporate a dynamically adjusted scale
+c factor.
+c
+        do 20 j=1,3
+          aa(j) = aa(j+1)
+          bb(j) = bb(j+1)
+ 20     continue
+ 30   continue
+      call seteru (35hd9chu   no convergence in 300 terms, 35, 1, 2)
+c
+ 40     if (d9chu.lt.sqeps .or. d9chu.gt.1.0/sqeps) call seteru (
+     1  32hd9chu   answer lt half precision, 32, 2, 1)
+c
+      return
+      end
diff --git a/fvn_fnlib/d9gaml.f b/fvn_fnlib/d9gaml.f
new file mode 100644
index 0000000..9db4b67
--- /dev/null
+++ b/fvn_fnlib/d9gaml.f
@@ -0,0 +1,46 @@
+      subroutine d9gaml (xmin, xmax)
+c june 1977 edition.   w. fullerton, c3, los alamos scientific lab.
+c
+c calculate the minimum and maximum legal bounds for x in gamma(x).
+c xmin and xmax are not the only bounds, but they are the only non-
+c trivial ones to calculate.
+c
+c             output arguments --
+c xmin   dble prec minimum legal value of x in gamma(x).  any smaller
+c        value of x might result in underflow.
+c xmax   dble prec maximum legal value of x in gamma(x).  any larger
+c        value of x might cause overflow.
+c
+      double precision xmin, xmax, alnbig, alnsml, xln, xold, d1mach,
+     1  dlog
+      external d1mach
+c
+      alnsml = dlog(d1mach(1))
+      xmin = -alnsml
+      do 10 i=1,10
+        xold = xmin
+        xln = dlog(xmin)
+        xmin = xmin - xmin*((xmin+0.5d0)*xln - xmin - 0.2258d0 + alnsml)
+     1    / (xmin*xln+0.5d0)
+        if (dabs(xmin-xold).lt.0.005d0) go to 20
+ 10   continue
+      call seteru (27hd9gaml  unable to find xmin, 27, 1, 2)
+c
+ 20   xmin = -xmin + 0.01d0
+c
+      alnbig = dlog (d1mach(2))
+      xmax = alnbig
+      do 30 i=1,10
+        xold = xmax
+        xln = dlog(xmax)
+        xmax = xmax - xmax*((xmax-0.5d0)*xln - xmax + 0.9189d0 - alnbig)
+     1    / (xmax*xln-0.5d0)
+        if (dabs(xmax-xold).lt.0.005d0) go to 40
+ 30   continue
+      call seteru (27hd9gaml  unable to find xmax, 27, 2, 2)
+c
+ 40   xmax = xmax - 0.01d0
+      xmin = dmax1 (xmin, -xmax+1.d0)
+c
+      return
+      end
diff --git a/fvn_fnlib/d9gmic.f b/fvn_fnlib/d9gmic.f
new file mode 100644
index 0000000..fa119ef
--- /dev/null
+++ b/fvn_fnlib/d9gmic.f
@@ -0,0 +1,72 @@
+      double precision function d9gmic (a, x, alx)
+c july 1977 edition.  w. fullerton, c3, los alamos scientific lab.
+c
+c compute the complementary incomplete gamma function for a near
+c a negative integer and for small x.
+c
+      double precision a, x, alx, alng, bot, eps, euler, fk, fkp1, fm,
+     1  s, sgng, t, te, d1mach, dlngam, dexp, dlog
+      external d1mach, dlngam
+      data euler / 0.5772156649 0153286060 6512090082 40 d0 /
+      data eps, bot / 2*0.d0 /
+c
+      if (eps.ne.0.d0) go to 10
+      eps = 0.5d0*d1mach(3)
+      bot = dlog (d1mach(1))
+c
+ 10   if (a.gt.0.d0) call seteru (
+     1  41hd9gmic  a must be near a negative integer, 41, 2, 2)
+      if (x.le.0.d0) call seteru (25hd9gmic  x must be gt zero, 25, 3,2)
+c
+      m = -(a - 0.5d0)
+      fm = m
+c
+      te = 1.0d0
+      t = 1.0d0
+      s = t
+      do 20 k=1,200
+        fkp1 = k + 1
+        te = -x*te/(fm+fkp1)
+        t = te/fkp1
+        s = s + t
+        if (dabs(t).lt.eps*s) go to 30
+ 20   continue
+      call seteru (57hd9gmic  no convergence in 200 terms of continued f
+     1raction, 57, 4, 2)
+c
+ 30   d9gmic = -alx - euler + x*s/(fm+1.0d0)
+      if (m.eq.0) return
+c
+      if (m.eq.1) d9gmic = -d9gmic - 1.d0 + 1.d0/x
+      if (m.eq.1) return
+c
+      te = fm
+      t = 1.d0
+      s = t
+      mm1 = m - 1
+      do 40 k=1,mm1
+        fk = k
+        te = -x*te/fk
+        t = te/(fm-fk)
+        s = s + t
+        if (dabs(t).lt.eps*dabs(s)) go to 50
+ 40   continue
+c
+ 50   do 60 k=1,m
+        d9gmic = d9gmic + 1.0d0/dble(float(k))
+ 60   continue
+c
+      sgng = 1.0d0
+      if (mod(m,2).eq.1) sgng = -1.0d0
+      alng = dlog(d9gmic) - dlngam(fm+1.d0)
+c
+      d9gmic = 0.d0
+      if (alng.gt.bot) d9gmic = sgng * dexp(alng)
+      if (s.ne.0.d0) d9gmic = d9gmic +
+     1  dsign (dexp(-fm*alx+dlog(dabs(s)/fm)), s)
+c
+      if (d9gmic.eq.0.d0 .and. s.eq.0.d0) call seteru (
+     1  25hd9gmic  result underflows, 25, 1, 0)
+      return
+c
+      end
diff --git a/fvn_fnlib/d9gmit.f b/fvn_fnlib/d9gmit.f
new file mode 100644
index 0000000..be0bc15
--- /dev/null
+++ b/fvn_fnlib/d9gmit.f
@@ -0,0 +1,64 @@
+      double precision function d9gmit (a, x, algap1, sgngam, alx)
+c july 1977 edition.  w. fullerton, c3, los alamos scientific lab.
+c
+c compute tricomi-s incomplete gamma function for small x.
+c
+      double precision a, x, algap1, sgngam, alx, ae, aeps, algs, alg2,
+     1  bot, eps, fk, s, sgng2, t, te, d1mach, dlngam, dexp, dlog
+      data eps, bot / 2*0.d0 /
+c
+      if (eps.ne.0.d0) go to 10
+      eps = 0.5d0*d1mach(3)
+      bot = dlog (d1mach(1))
+c
+ 10   if (x.le.0.d0) call seteru (24hd9gmit  x should be gt 0, 24, 1, 2)
+c
+      ma = a + 0.5d0
+      if (a.lt.0.d0) ma = a - 0.5d0
+      aeps = a - dble(float(ma))
+c
+      ae = a
+      if (a.lt.(-0.5d0)) ae = aeps
+c
+      t = 1.d0
+      te = ae
+      s = t
+      do 20 k=1,200
+        fk = k
+        te = -x*te/fk
+        t = te/(ae+fk)
+        s = s + t
+        if (dabs(t).lt.eps*dabs(s)) go to 30
+ 20   continue
+      call seteru (54hd9gmit  no convergence in 200 terms of taylor-s se
+     1ries, 54, 2, 2)
+c
+ 30   if (a.ge.(-0.5d0)) algs = -algap1 + dlog(s)
+      if (a.ge.(-0.5d0)) go to 60
+c
+      algs = -dlngam(1.d0+aeps) + dlog(s)
+      s = 1.0d0
+      m = -ma - 1
+      if (m.eq.0) go to 50
+      t = 1.0d0
+      do 40 k=1,m
+        t = x*t/(aeps-dble(float(m+1-k)))
+        s = s + t
+        if (dabs(t).lt.eps*dabs(s)) go to 50
+ 40   continue
+c
+ 50   d9gmit = 0.0d0
+      algs = -dble(float(ma))*dlog(x) + algs
+      if (s.eq.0.d0 .or. aeps.eq.0.d0) go to 60
+c
+      sgng2 = sgngam * dsign (1.0d0, s)
+      alg2 = -x - algap1 + dlog(dabs(s))
+c
+      if (alg2.gt.bot) d9gmit = sgng2 * dexp(alg2)
+      if (algs.gt.bot) d9gmit = d9gmit + dexp(algs)
+      return
+c
+ 60   d9gmit = dexp (algs)
+      return
+c
+      end
diff --git a/fvn_fnlib/d9knus.f b/fvn_fnlib/d9knus.f
new file mode 100644
index 0000000..3f37b57
--- /dev/null
+++ b/fvn_fnlib/d9knus.f
@@ -0,0 +1,226 @@
+      subroutine d9knus (xnu, x, bknu, bknu1, iswtch)
+c june 1977 edition.   w. fullerton, c3, los alamos scientific lab.
+c
+c compute bessel functions exp(x) * k-sub-xnu (x)  and
+c exp(x) * k-sub-xnu+1 (x) for 0.0 .le. xnu .lt. 1.0 .
+c
+      double precision xnu, x, bknu, bknu1, alpha(32), beta(32), a(32),
+     1  c0kcs(29), znu1cs(20), alnz, aln2, a0, bknud, bknu0,
+     2  b0, c0, euler, expx, p1, p2, p3, qq, result, sqpi2, sqrtx, v,
+     3  vlnz, xi, xmu, xnusml, xsml, x2n, x2tov, z, ztov, alnsml,
+     4  alnbig
+      real alneps, an, bn
+      double precision d1mach, dcsevl, dexp, dgamma, dlog, dsqrt
+      external d1mach, dcsevl, dgamma, initds
+c
+c series for c0k        on the interval  0.          to  2.50000e-01
+c                                        with weighted error   2.16e-32
+c                                         log weighted error  31.67
+c                               significant figures required  30.86
+c                                    decimal places required  32.40
+c
+      data c0k cs(  1) / +.6018305724 2626108387 5774451803 29 d-1     /
+      data c0k cs(  2) / -.1536487143 3017286092 9597559431 24 d+0     /
+      data c0k cs(  3) / -.1175117600 8210492040 0682292262 13 d-1     /
+      data c0k cs(  4) / -.8524878889 1979509827 0484015509 87 d-3     /
+      data c0k cs(  5) / -.6132983876 7496791874 0981769221 11 d-4     /
+      data c0k cs(  6) / -.4405228124 5510444562 6798895485 05 d-5     /
+      data c0k cs(  7) / -.3163124672 8384488192 9154458921 99 d-6     /
+      data c0k cs(  8) / -.2271071938 2899588330 6737717933 96 d-7     /
+      data c0k cs(  9) / -.1630564460 8077609552 2746205153 60 d-8     /
+      data c0k cs( 10) / -.1170693929 9414776568 7560440431 30 d-9     /
+      data c0k cs( 11) / -.8405206378 6464437174 5465934137 92 d-11    /
+      data c0k cs( 12) / -.6034667011 8979991487 0960507371 98 d-12    /
+      data c0k cs( 13) / -.4332696033 5681371952 0459973669 03 d-13    /
+      data c0k cs( 14) / -.3110735803 0203546214 6346977722 37 d-14    /
+      data c0k cs( 15) / -.2233407822 6736982254 4861334098 40 d-15    /
+      data c0k cs( 16) / -.1603514671 6864226300 6357915286 10 d-16    /
+      data c0k cs( 17) / -.1151271736 3666556196 0356977053 05 d-17    /
+      data c0k cs( 18) / -.8265759174 6836959105 1694790892 58 d-19    /
+      data c0k cs( 19) / -.5934548080 6383948172 3334366959 84 d-20    /
+      data c0k cs( 20) / -.4260813819 6467143926 4996130239 76 d-21    /
+      data c0k cs( 21) / -.3059126686 4812876299 2636983705 42 d-22    /
+      data c0k cs( 22) / -.2196354142 6734575224 9755018155 16 d-23    /
+      data c0k cs( 23) / -.1576911326 1495836071 1057506847 60 d-24    /
+      data c0k cs( 24) / -.1132171393 5950320948 7577310480 56 d-25    /
+      data c0k cs( 25) / -.8128624883 4598404082 7923497144 33 d-27    /
+      data c0k cs( 26) / -.5836090089 3453226552 8293493159 49 d-28    /
+      data c0k cs( 27) / -.4190124162 3610922519 4523377809 05 d-29    /
+      data c0k cs( 28) / -.3008373796 0206435069 5305042128 62 d-30    /
+      data c0k cs( 29) / -.2159915206 7808647728 3421680898 32 d-31    /
+c
+c series for znu1       on the interval -7.00000e-01 to  0.
+c                                        with weighted error   2.45e-33
+c                                         log weighted error  32.61
+c                               significant figures required  31.85
+c                                    decimal places required  33.26
+c
+      data znu1cs(  1) / +.2033067569 9419172967 4444001216 911 d+0    /
+      data znu1cs(  2) / +.1400779334 1321977106 2943670790 563 d+0    /
+      data znu1cs(  3) / +.7916796961 0016135284 0972241972 320 d-2    /
+      data znu1cs(  4) / +.3398011825 3210404535 2930092205 750 d-3    /
+      data znu1cs(  5) / +.1174197568 8989336666 4507228352 690 d-4    /
+      data znu1cs(  6) / +.3393575706 1226168033 3825865475 121 d-6    /
+      data znu1cs(  7) / +.8425941769 7621991019 4629891264 803 d-8    /
+      data znu1cs(  8) / +.1833366770 2485008918 4748150900 090 d-9    /
+      data znu1cs(  9) / +.3549698447 0441631086 3007064469 557 d-11   /
+      data znu1cs( 10) / +.6190324964 6988733220 5244342078 407 d-13   /
+      data znu1cs( 11) / +.9819645356 8043942496 0346115456 527 d-15   /
+      data znu1cs( 12) / +.1428513143 9649047421 1473563005 985 d-16   /
+      data znu1cs( 13) / +.1918949218 8782529896 6162467488 436 d-18   /
+      data znu1cs( 14) / +.2394309797 3949891416 2313140597 128 d-20   /
+      data znu1cs( 15) / +.2788902468 1534735483 5870465474 995 d-22   /
+      data znu1cs( 16) / +.3046066506 3303344258 2845214092 865 d-24   /
+      data znu1cs( 17) / +.3131732370 4219181577 1564260932 089 d-26   /
+      data znu1cs( 18) / +.3041330989 8785495164 5174908005 034 d-28   /
+      data znu1cs( 19) / +.2798403846 3683308434 3185097659 733 d-30   /
+      data znu1cs( 20) / +.2446371862 7449759648 5238794922 666 d-32   /
+c
+      data euler / 0.5772156649 0153286060 6512090082 40d0 /
+      data sqpi2 / +1.253314137 3155002512 0788264240 55 d0      /
+      data aln2 / 0.6931471805 5994530941 7232121458 18d0 /
+      data ntc0k, ntznu1 / 2*0 /
+      data xnusml, xsml, alnsml, alnbig, alneps / 4*0.d0, 0.0 /
+c
+      if (ntc0k.ne.0) go to 10
+      eta = 0.1d0*d1mach(3)
+      ntc0k = initds (c0kcs, 29, eta)
+      ntznu1 = initds (znu1cs, 20, eta)
+c
+      xnusml = dsqrt (d1mach(3)/8.d0)
+      xsml = 0.1d0*d1mach(3)
+      alnsml = dlog (d1mach(1))
+      alnbig = dlog (d1mach(2))
+      alneps = dlog (0.1d0*d1mach(3))
+c
+ 10   if (xnu.lt.0.d0 .or. xnu.ge.1.d0) call seteru (
+     1  33hd9knus  xnu must be ge 0 and lt 1, 33, 1, 2)
+      if (x.le.0.) call seteru (22hd9knus  x must be gt 0, 22, 2, 2)
+c
+      iswtch = 0
+      if (x.gt.2.0d0) go to 50
+c
+c x is small.  compute k-sub-xnu (x) and the derivative of k-sub-xnu (x)
+c then find k-sub-xnu+1 (x).  xnu is reduced to the interval (-.5,+.5)
+c then to (0., .5), because k of negative order (-nu) = k of positive
+c order (+nu).
+c
+      v = xnu
+      if (xnu.gt.0.5d0) v = 1.0d0 - xnu
+c
+c carefully find (x/2)**xnu and z**xnu where z = x*x/4.
+      alnz = 2.d0 * (dlog(x) - aln2)
+c
+      if (x.gt.xnu) go to 20
+      if (-0.5d0*xnu*alnz-aln2-dlog(xnu).gt.alnbig) call seteru (
+     1  45hd9knus  x so small bessel k-sub-xnu overflows, 45, 3, 2)
+c
+ 20   vlnz = v*alnz
+      x2tov = dexp (0.5d0*vlnz)
+      ztov = 0.0d0
+      if (vlnz.gt.alnsml) ztov = x2tov**2
+c
+      a0 = 0.5d0*dgamma(1.0d0+v)
+      b0 = 0.5d0*dgamma(1.0d0-v)
+      c0 = -euler
+      if (ztov.gt.0.5d0 .and. v.gt.xnusml) c0 = -0.75d0 +
+     1  dcsevl ((8.0d0*v)*v-1.0d0, c0kcs, ntc0k)
+c
+      if (ztov.le.0.5d0) alpha(1) = (a0-ztov*b0)/v
+      if (ztov.gt.0.5d0) alpha(1) = c0 - alnz*(0.75d0 +
+     1  dcsevl (vlnz/0.35d0+1.0d0, znu1cs, ntznu1))*b0
+      beta(1) = -0.5d0*(a0+ztov*b0)
+c
+      z = 0.0d0
+      if (x.gt.xsml) z = 0.25d0*x*x
+      nterms = max1 (2.0, 11.0+(8.*sngl(alnz)-25.19-alneps)
+     1  /(4.28-sngl(alnz)))
+      do 30 i=2,nterms
+        xi = i - 1
+        a0 = a0/(xi*(xi-v))
+        b0 = b0/(xi*(xi+v))
+        alpha(i) = (alpha(i-1)+2.0d0*xi*a0)/(xi*(xi+v))
+        beta(i) = (xi-0.5d0*v)*alpha(i) - ztov*b0
+ 30   continue
+c
+      bknu = alpha(nterms)
+      bknud = beta(nterms)
+      do 40 ii=2,nterms
+        i = nterms + 1 - ii
+        bknu = alpha(i) + bknu*z
+        bknud = beta(i) + bknud*z
+ 40   continue
+c
+      expx = dexp(x)
+      bknu = expx*bknu/x2tov
+c
+      if (-0.5d0*(xnu+1.d0)*alnz-2.0d0*aln2.gt.alnbig) iswtch = 1
+      if (iswtch.eq.1) return
+      bknud = expx*bknud*2.0d0/(x2tov*x)
+c
+      if (xnu.le.0.5d0) bknu1 = v*bknu/x - bknud
+      if (xnu.le.0.5d0) return
+c
+      bknu0 = bknu
+      bknu = -v*bknu/x - bknud
+      bknu1 = 2.0d0*xnu*bknu/x + bknu0
+      return
+c
+c x is large.  find k-sub-xnu (x) and k-sub-xnu+1 (x) with y. l. luke-s
+c rational expansion.
+c
+ 50   sqrtx = dsqrt(x)
+      if (x.gt.1.0d0/xsml) go to 90
+      an = -0.60 - 1.02/sngl(x)
+      bn = -0.27 - 0.53/sngl(x)
+      nterms = min0 (32, max1 (3.0, an+bn*alneps))
+c
+      do 80 inu=1,2
+        xmu = 0.d0
+        if (inu.eq.1 .and. xnu.gt.xnusml) xmu = (4.0d0*xnu)*xnu
+        if (inu.eq.2) xmu = 4.0d0*(dabs(xnu)+1.d0)**2
+c
+        a(1) = 1.0d0 - xmu
+        a(2) = 9.0d0 - xmu
+        a(3) = 25.0d0 - xmu
+        if (a(2).eq.0.d0) result = sqpi2*(16.d0*x+xmu+7.d0) /
+     1    (16.d0*x*sqrtx)
+        if (a(2).eq.0.d0) go to 70
+c
+        alpha(1) = 1.0d0
+        alpha(2) = (16.d0*x+a(2))/a(2)
+        alpha(3) = ((768.d0*x+48.d0*a(3))*x + a(2)*a(3))/(a(2)*a(3))
+c
+        beta(1) = 1.0d0
+        beta(2) = (16.d0*x+(xmu+7.d0))/a(2)
+        beta(3) = ((768.d0*x+48.d0*(xmu+23.d0))*x +
+     1    ((xmu+62.d0)*xmu+129.d0))/(a(2)*a(3))
+c
+        if (nterms.lt.4) go to 65
+        do 60 i=4,nterms
+          n = i - 1
+          x2n = 2*n - 1
+c
+          a(i) = (x2n+2.d0)**2 - xmu
+          qq = 16.d0*x2n/a(i)
+          p1 = -x2n*(dble(float(12*n*n-20*n))-a(1))/((x2n-2.d0)*a(i))
+     1      - qq*x
+          p2 = (dble(float(12*n*n-28*n+8))-a(1))/a(i) - qq*x
+          p3 = -x2n*a(i-3)/((x2n-2.d0)*a(i))
+c
+          alpha(i) = -p1*alpha(i-1) - p2*alpha(i-2) - p3*alpha(i-3)
+          beta(i) = -p1*beta(i-1) - p2*beta(i-2) - p3*beta(i-3)
+ 60     continue
+c
+ 65     result = sqpi2*beta(nterms)/(sqrtx*alpha(nterms))
+c
+ 70     if (inu.eq.1) bknu = result
+        if (inu.eq.2) bknu1 = result
+ 80   continue
+      return
+c
+ 90   bknu = sqpi2/sqrtx
+      bknu1 = bknu
+      return
+c
+      end
diff --git a/fvn_fnlib/d9lgic.f b/fvn_fnlib/d9lgic.f
new file mode 100644
index 0000000..ab5800f
--- /dev/null
+++ b/fvn_fnlib/d9lgic.f
@@ -0,0 +1,34 @@
+      double precision function d9lgic (a, x, alx)
+c july 1977 edition.  w. fullerton, c3, los alamos scientific lab.
+c
+c compute the log complementary incomplete gamma function for large x
+c and for a .le. x.
+c
+      double precision a, x, alx, eps, fk, p, r, s, t, xma, xpa,
+     1  d1mach, dlog
+      external d1mach
+      data eps / 0.d0 /
+c
+      if (eps.eq.0.d0) eps = 0.5d0*d1mach(3)
+c
+      xpa = x + 1.0d0 - a
+      xma = x - 1.d0 - a
+c
+      r = 0.d0
+      p = 1.d0
+      s = p
+      do 10 k=1,300
+        fk = k
+        t = fk*(a-fk)*(1.d0+r)
+        r = -t/((xma+2.d0*fk)*(xpa+2.d0*fk)+t)
+        p = r*p
+        s = s + p
+        if (dabs(p).lt.eps*s) go to 20
+ 10   continue
+      call seteru (57hd9lgic  no convergence in 300 terms of continued f
+     1raction, 57, 1, 2)
+c
+ 20   d9lgic = a*alx - x + dlog(s/xpa)
+c
+      return
+      end
diff --git a/fvn_fnlib/d9lgit.f b/fvn_fnlib/d9lgit.f
new file mode 100644
index 0000000..700141c
--- /dev/null
+++ b/fvn_fnlib/d9lgit.f
@@ -0,0 +1,42 @@
+      double precision function d9lgit (a, x, algap1)
+c july 1977 edition.  w. fullerton, c3, los alamos scientific lab.
+c
+c compute the log of tricomi-s incomplete gamma function with perron-s
+c continued fraction for large x and for a .ge. x.
+c
+      double precision a, x, algap1, ax, a1x, eps, fk, hstar, p, r, s,
+     1  sqeps, t, d1mach, dlog, dsqrt
+      external d1mach
+      data eps, sqeps / 2*0.d0 /
+c
+      if (eps.ne.0.d0) go to 10
+      eps = 0.5d0*d1mach(3)
+      sqeps = dsqrt (d1mach(4))
+c
+ 10   if (x.le.0.d0 .or. a.lt.x) call seteru (
+     1  35hd9lgit  x should be gt 0.0 and le a, 35, 2, 2)
+c
+      ax = a + x
+      a1x = ax + 1.0d0
+      r = 0.d0
+      p = 1.d0
+      s = p
+      do 20 k=1,200
+        fk = k
+        t = (a+fk)*x*(1.d0+r)
+        r = t/((ax+fk)*(a1x+fk)-t)
+        p = r*p
+        s = s + p
+        if (dabs(p).lt.eps*s) go to 30
+ 20   continue
+      call seteru (57hd9lgit  no convergence in 200 terms of continued f
+     1raction, 57, 3, 2)
+c
+ 30   hstar = 1.0d0 - x*s/a1x
+      if (hstar.lt.sqeps) call seteru (
+     1  39hd9lgit  result less than half precision, 39, 1, 1)
+c
+      d9lgit = -x - algap1 - dlog(hstar)
+      return
+c
+      end
diff --git a/fvn_fnlib/d9lgmc.f b/fvn_fnlib/d9lgmc.f
new file mode 100644
index 0000000..9115c8d
--- /dev/null
+++ b/fvn_fnlib/d9lgmc.f
@@ -0,0 +1,52 @@
+      double precision function d9lgmc (x)
+c august 1977 edition.  w. fullerton, c3, los alamos scientific lab.
+c
+c compute the log gamma correction factor for x .ge. 10. so that
+c dlog (dgamma(x)) = dlog(dsqrt(2*pi)) + (x-.5)*dlog(x) - x + d9lgmc(x)
+c
+      double precision x, algmcs(15), xbig, xmax, dcsevl, d1mach,
+     1  dexp, dlog, dsqrt
+      external d1mach, dcsevl, initds
+c
+c series for algm       on the interval  0.          to  1.00000e-02
+c                                        with weighted error   1.28e-31
+c                                         log weighted error  30.89
+c                               significant figures required  29.81
+c                                    decimal places required  31.48
+c
+      data algmcs(  1) / +.1666389480 4518632472 0572965082 2 d+0      /
+      data algmcs(  2) / -.1384948176 0675638407 3298605913 5 d-4      /
+      data algmcs(  3) / +.9810825646 9247294261 5717154748 7 d-8      /
+      data algmcs(  4) / -.1809129475 5724941942 6330626671 9 d-10     /
+      data algmcs(  5) / +.6221098041 8926052271 2601554341 6 d-13     /
+      data algmcs(  6) / -.3399615005 4177219443 0333059966 6 d-15     /
+      data algmcs(  7) / +.2683181998 4826987489 5753884666 6 d-17     /
+      data algmcs(  8) / -.2868042435 3346432841 4462239999 9 d-19     /
+      data algmcs(  9) / +.3962837061 0464348036 7930666666 6 d-21     /
+      data algmcs( 10) / -.6831888753 9857668701 1199999999 9 d-23     /
+      data algmcs( 11) / +.1429227355 9424981475 7333333333 3 d-24     /
+      data algmcs( 12) / -.3547598158 1010705471 9999999999 9 d-26     /
+      data algmcs( 13) / +.1025680058 0104709120 0000000000 0 d-27     /
+      data algmcs( 14) / -.3401102254 3167487999 9999999999 9 d-29     /
+      data algmcs( 15) / +.1276642195 6300629333 3333333333 3 d-30     /
+c
+      data nalgm, xbig, xmax / 0, 2*0.d0 /
+c
+      if (nalgm.ne.0) go to 10
+      nalgm = initds (algmcs, 15, sngl(d1mach(3)) )
+      xbig = 1.0d0/dsqrt(d1mach(3))
+      xmax = dexp (dmin1(dlog(d1mach(2)/12.d0), -dlog(12.d0*d1mach(1))))
+c
+ 10   if (x.lt.10.d0) call seteru (23hd9lgmc  x must be ge 10, 23, 1, 2)
+      if (x.ge.xmax) go to 20
+c
+      d9lgmc = 1.d0/(12.d0*x)
+      if (x.lt.xbig) d9lgmc = dcsevl (2.0d0*(10.d0/x)**2-1.d0, algmcs,
+     1  nalgm) / x
+      return
+c
+ 20   d9lgmc = 0.d0
+      call seteru (34hd9lgmc  x so big d9lgmc underflows, 34, 2, 0)
+      return
+c
+      end
diff --git a/fvn_fnlib/d9ln2r.f b/fvn_fnlib/d9ln2r.f
new file mode 100644
index 0000000..b8ed93d
--- /dev/null
+++ b/fvn_fnlib/d9ln2r.f
@@ -0,0 +1,149 @@
+      double precision function d9ln2r (x)
+c april 1978 edition.  w. fullerton c3, los alamos scientific lab.
+c
+c evaluate  dlog(1+x)  from 2-nd order with relative error accuracy so
+c that    dlog(1+x) = x - x**2/2 + x**3*d9ln2r(x)
+c
+      double precision x, xbig, xmax, xmin, ln21cs(50), ln22cs(37),
+     1  dcsevl, d1mach, dlog, dsqrt
+      external d1mach, dcsevl, initds
+c
+c series for ln21       on the interval -6.25000e-01 to  0.
+c                                        with weighted error   1.82e-32
+c                                         log weighted error  31.74
+c                               significant figures required  31.00
+c                                    decimal places required  32.59
+c
+      data ln21cs(  1) / +.1811196251 3478809875 8949530430 71 d+0     /
+      data ln21cs(  2) / -.1562712319 2872462669 6251555410 78 d+0     /
+      data ln21cs(  3) / +.2867630536 1557275209 5406271020 51 d-1     /
+      data ln21cs(  4) / -.5558699655 9481398781 1577251267 81 d-2     /
+      data ln21cs(  5) / +.1117897665 2299837657 3356662797 27 d-2     /
+      data ln21cs(  6) / -.2308050898 2327947182 2992795857 05 d-3     /
+      data ln21cs(  7) / +.4859885334 1100175874 6815580687 50 d-4     /
+      data ln21cs(  8) / -.1039012738 8903210765 5142426333 38 d-4     /
+      data ln21cs(  9) / +.2248456370 7390128494 6218049464 08 d-5     /
+      data ln21cs( 10) / -.4914059273 9266484875 3278025970 91 d-6     /
+      data ln21cs( 11) / +.1082825650 7077483336 6201529715 97 d-6     /
+      data ln21cs( 12) / -.2402587276 3420701435 9766754167 19 d-7     /
+      data ln21cs( 13) / +.5362460047 2708133762 9844432501 63 d-8     /
+      data ln21cs( 14) / -.1202995136 2138772264 6716464243 77 d-8     /
+      data ln21cs( 15) / +.2710788927 7591860785 6225516322 66 d-9     /
+      data ln21cs( 16) / -.6132356261 8319010068 7967284306 90 d-10    /
+      data ln21cs( 17) / +.1392085836 9159469857 4369085439 78 d-10    /
+      data ln21cs( 18) / -.3169930033 0223494015 2830572608 83 d-11    /
+      data ln21cs( 19) / +.7238375404 4307505335 2143261970 11 d-12    /
+      data ln21cs( 20) / -.1657001718 4764411391 4988055062 68 d-12    /
+      data ln21cs( 21) / +.3801842866 3117424257 3644226318 76 d-13    /
+      data ln21cs( 22) / -.8741118929 6972700259 7244298991 37 d-14    /
+      data ln21cs( 23) / +.2013561984 5055748302 1187510281 54 d-14    /
+      data ln21cs( 24) / -.4646445640 9033907031 1020081544 77 d-15    /
+      data ln21cs( 25) / +.1073928214 7018339453 4533385549 25 d-15    /
+      data ln21cs( 26) / -.2485853461 9937794755 5340218339 60 d-16    /
+      data ln21cs( 27) / +.5762019795 0800189813 8881426281 81 d-17    /
+      data ln21cs( 28) / -.1337306376 9804394701 4021999580 50 d-17    /
+      data ln21cs( 29) / +.3107465322 7331824966 5338071668 05 d-18    /
+      data ln21cs( 30) / -.7228810408 3040539906 9019579176 27 d-19    /
+      data ln21cs( 31) / +.1683378378 8037385103 3132581868 88 d-19    /
+      data ln21cs( 32) / -.3923946331 2069958052 5193727399 25 d-20    /
+      data ln21cs( 33) / +.9155146838 7536789746 3855286408 53 d-21    /
+      data ln21cs( 34) / -.2137889532 1320159520 9820958010 02 d-21    /
+      data ln21cs( 35) / +.4996450747 9047864699 8285645687 46 d-22    /
+      data ln21cs( 36) / -.1168624063 6080170135 3608061474 13 d-22    /
+      data ln21cs( 37) / +.2735312347 0391863775 6286867865 59 d-23    /
+      data ln21cs( 38) / -.6406802508 4792111965 0503458815 99 d-24    /
+      data ln21cs( 39) / +.1501629320 4334124162 9490719402 66 d-24    /
+      data ln21cs( 40) / -.3521737241 0398479759 4971450026 66 d-25    /
+      data ln21cs( 41) / +.8264390101 4814767012 4827333973 33 d-26    /
+      data ln21cs( 42) / -.1940493027 5943401918 0366178986 66 d-26    /
+      data ln21cs( 43) / +.4558788001 8841283562 4515884373 33 d-27    /
+      data ln21cs( 44) / -.1071549208 7545202154 3786250239 99 d-27    /
+      data ln21cs( 45) / +.2519940800 7927592978 0966741333 33 d-28    /
+      data ln21cs( 46) / -.5928908840 0120969341 7504768000 00 d-29    /
+      data ln21cs( 47) / +.1395586406 1057513058 2371532799 99 d-29    /
+      data ln21cs( 48) / -.3286457881 3478583431 4366975999 99 d-30    /
+      data ln21cs( 49) / +.7742496795 0478166247 2546986666 66 d-31    /
+      data ln21cs( 50) / -.1824773566 7260887638 1252266666 66 d-31    /
+c
+c series for ln22       on the interval  0.          to  8.12500e-01
+c                                        with weighted error   6.10e-32
+c                                         log weighted error  31.21
+c                               significant figures required  30.32
+c                                    decimal places required  32.00
+c
+      data ln22cs(  1) / -.2224253253 5020460829 8601522355 2 d+0      /
+      data ln22cs(  2) / -.6104710010 8078623986 8010475576 4 d-1      /
+      data ln22cs(  3) / +.7427235009 7503945905 1962975572 9 d-2      /
+      data ln22cs(  4) / -.9335018261 6369705656 1277960639 7 d-3      /
+      data ln22cs(  5) / +.1200499076 8726012833 5073128735 9 d-3      /
+      data ln22cs(  6) / -.1570472295 2820041128 2335260824 3 d-4      /
+      data ln22cs(  7) / +.2081874781 0512710960 5078359275 9 d-5      /
+      data ln22cs(  8) / -.2789195577 6467136540 5721305137 5 d-6      /
+      data ln22cs(  9) / +.3769355823 7601320584 2289513544 7 d-7      /
+      data ln22cs( 10) / -.5130902896 5277112582 4058993800 3 d-8      /
+      data ln22cs( 11) / +.7027141178 1506947382 0621821539 2 d-9      /
+      data ln22cs( 12) / -.9674859550 1343423892 4397200513 7 d-10     /
+      data ln22cs( 13) / +.1338104645 9248873065 8849644974 8 d-10     /
+      data ln22cs( 14) / -.1858102603 5340639816 2845384659 1 d-11     /
+      data ln22cs( 15) / +.2589294422 5279197493 0860012307 0 d-12     /
+      data ln22cs( 16) / -.3619568316 1415886744 6602538217 2 d-13     /
+      data ln22cs( 17) / +.5074037398 0166230880 0685891739 6 d-14     /
+      data ln22cs( 18) / -.7131012977 0311273027 0093874892 7 d-15     /
+      data ln22cs( 19) / +.1004490328 5545674818 5338678412 6 d-15     /
+      data ln22cs( 20) / -.1417906532 1840257919 0440507528 5 d-16     /
+      data ln22cs( 21) / +.2005297034 7433261178 9108639607 4 d-17     /
+      data ln22cs( 22) / -.2840996662 3398033053 6539671756 7 d-18     /
+      data ln22cs( 23) / +.4031469883 9690798995 9987866282 6 d-19     /
+      data ln22cs( 24) / -.5729325241 8322073204 5549895679 9 d-20     /
+      data ln22cs( 25) / +.8153488253 8900106758 4892873386 6 d-21     /
+      data ln22cs( 26) / -.1161825588 5497217876 0602746879 9 d-21     /
+      data ln22cs( 27) / +.1657516611 6625383436 5933977599 9 d-22     /
+      data ln22cs( 28) / -.2367336704 7108051901 1401728000 0 d-23     /
+      data ln22cs( 29) / +.3384670367 9755213860 7656959999 9 d-24     /
+      data ln22cs( 30) / -.4843940829 2157182042 9639679999 9 d-25     /
+      data ln22cs( 31) / +.6938759162 5142737186 7613866666 6 d-26     /
+      data ln22cs( 32) / -.9948142607 0314365719 2379733333 3 d-27     /
+      data ln22cs( 33) / +.1427440611 2116986106 3475200000 0 d-27     /
+      data ln22cs( 34) / -.2049794721 8982349115 6650666666 6 d-28     /
+      data ln22cs( 35) / +.2945648756 4013622228 8554666666 6 d-29     /
+      data ln22cs( 36) / -.4235973185 1849570276 6933333333 3 d-30     /
+      data ln22cs( 37) / +.6095532614 0038320401 0666666666 6 d-31     /
+c
+      data ntln21, ntln22, xmin, xbig, xmax / 2*0, 3*0.d0 /
+c
+      if (ntln21.ne.0) go to 10
+      eps = d1mach(3)
+      ntln21 = initds (ln21cs, 50, 0.1*eps)
+      ntln22 = initds (ln22cs, 37, 0.1*eps)
+c
+      xmin = -1.0d0 + dsqrt(d1mach(4))
+      sqeps = sqrt (eps)
+      xmax = 8.0/sqeps
+      xmax = xmax - (dble(eps)*xmax**2 - 2.d0*dlog(xmax))
+     1  / (2.d0*dble(eps)*xmax)
+      xbig = 6.0/sqrt(sqeps)
+      xbig = xbig - (dble(sqeps)*xbig**2 - 2.d0*dlog(xbig))
+     1  / (2.d0*dble(sqeps)*xbig)
+c
+ 10   if (x.lt.(-.625d0) .or. x.gt.0.8125d0) go to 20
+c
+      if (x.lt.0.0d0) d9ln2r = 0.375d0 + dcsevl (16.d0*x/5.d0+1.d0,
+     1  ln21cs, ntln21)
+      if (x.ge.0.0d0) d9ln2r = 0.375d0 + dcsevl (32.d0*x/13.d0-1.d0,
+     1  ln22cs, ntln22)
+      return
+c
+ 20   if (x.lt.xmin) call seteru (
+     1  57hd9ln2r  answer lt half precision because x is too near -1,
+     2  57, 1, 1)
+      if (x.gt.xmax) call seteru (
+     1  51hd9ln2r  no precision in answer because x is too big, 51,
+     2  3, 2)
+      if (x.gt.xbig) call seteru (
+     1  53hd9ln2r  answer lt half precision because x is too big, 53,
+     2  2, 1)
+c
+      d9ln2r = (dlog(1.d0+x) - x*(1.d0 - 0.5d0*x)) / x**3
+      return
+c
+      end
diff --git a/fvn_fnlib/d9pak.f b/fvn_fnlib/d9pak.f
new file mode 100644
index 0000000..dde1bd4
--- /dev/null
+++ b/fvn_fnlib/d9pak.f
@@ -0,0 +1,45 @@
+      double precision function d9pak (y, n)
+c december 1979 edition. w. fullerton, c3, los alamos scientific lab.
+c
+c pack a base 2 exponent into floating point number x.  this routine is
+c almost the inverse of d9upak.  it is not exactly the inverse, because
+c dabs(x) need not be between 0.5 and 1.0.  if both d9pak and 2.d0**n
+c were known to be in range we could compute
+c                d9pak = x * 2.0d0**n
+c
+      double precision y, aln2b, aln210, d1mach
+      external d1mach, i1mach
+      data nmin, nmax / 2*0 /
+      data aln210 / 3.321928094 8873623478 7031942948 9 d0 /
+c
+      if (nmin.ne.0) go to 10
+      aln2b = 1.0d0
+      if (i1mach(10).ne.2) aln2b = d1mach(5)*aln210
+      nmin = aln2b*dble(float(i1mach(15)))
+      nmax = aln2b*dble(float(i1mach(16)))
+c
+ 10   call d9upak (y, d9pak, ny)
+c
+      nsum = n + ny
+      if (nsum.lt.nmin) go to 40
+      if (nsum.gt.nmax) call seteru (
+     1  31hd9pak   packed number overflows, 31, 1, 2)
+c
+      if (nsum.eq.0) return
+      if (nsum.gt.0) go to 30
+c
+ 20   d9pak = 0.5d0*d9pak
+      nsum = nsum + 1
+      if (nsum.ne.0) go to 20
+      return
+c
+ 30   d9pak = 2.0d0*d9pak
+      nsum = nsum - 1
+      if (nsum.ne.0) go to 30
+      return
+c
+ 40   call seteru (32hd9pak   packed number underflows, 32, 1, 0)
+      d9pak = 0.0d0
+      return
+c
+      end
diff --git a/fvn_fnlib/d9sifg.f b/fvn_fnlib/d9sifg.f
new file mode 100644
index 0000000..fb73029
--- /dev/null
+++ b/fvn_fnlib/d9sifg.f
@@ -0,0 +1,368 @@
+      subroutine d9sifg (x, f, g)
+c december 1980 edition.  w. fullerton, bell labs.
+      double precision x, f, g, f1cs(43), f2cs(99), g1cs(44),
+     1  g2cs(44), g3cs(56), xbnd, xbndg, xbig, xmaxf, xmaxg,
+     2  dcsevl, d1mach, dexp, dlog, dsqrt
+      external d1mach, dcsevl, initds
+c
+c series for f1   on the interval  2.00000e-02 to  6.25000e-02
+c                                        with weighted error   2.45e-32
+c                                         log weighted error  31.61
+c                               significant figures required  30.42
+c                                    decimal places required  32.43
+c
+      data f1  cs(  1) / -0.1191081969 0513636103 4820196582 8918d0/
+      data f1  cs(  2) / -0.0247823144 9962362475 9007415082 3133d0/
+      data f1  cs(  3) /  0.0011910281 4533578212 6812036305 4457d0/
+      data f1  cs(  4) / -0.0000927027 7143885617 4830860036 0706d0/
+      data f1  cs(  5) /  0.0000093373 1415682709 9686820458 2766d0/
+      data f1  cs(  6) / -0.0000011058 2878205571 4393897942 6306d0/
+      data f1  cs(  7) /  0.0000001464 7720714601 6216933655 0799d0/
+      data f1  cs(  8) / -0.0000000210 6944962876 8953260122 7548d0/
+      data f1  cs(  9) /  0.0000000032 2934923668 4823638285 7374d0/
+      data f1  cs( 10) / -0.0000000005 2065296175 2937582801 4986d0/
+      data f1  cs( 11) /  0.0000000000 8748788845 7027875026 8316d0/
+      data f1  cs( 12) / -0.0000000000 1521761870 5612366829 4574d0/
+      data f1  cs( 13) /  0.0000000000 0272571924 0541957390 0583d0/
+      data f1  cs( 14) / -0.0000000000 0050070530 7596855629 0255d0/
+      data f1  cs( 15) /  0.0000000000 0009402409 0272606851 1779d0/
+      data f1  cs( 16) / -0.0000000000 0001800144 4479180367 8336d0/
+      data f1  cs( 17) /  0.0000000000 0000350626 2143274178 5826d0/
+      data f1  cs( 18) / -0.0000000000 0000069352 8292676914 9709d0/
+      data f1  cs( 19) /  0.0000000000 0000013909 2513645421 6568d0/
+      data f1  cs( 20) / -0.0000000000 0000002824 8688507417 0585d0/
+      data f1  cs( 21) /  0.0000000000 0000000580 3130569357 9081d0/
+      data f1  cs( 22) / -0.0000000000 0000000120 4690157337 5820d0/
+      data f1  cs( 23) /  0.0000000000 0000000025 2505244365 5940d0/
+      data f1  cs( 24) / -0.0000000000 0000000005 3398026880 5594d0/
+      data f1  cs( 25) /  0.0000000000 0000000001 1385578627 4122d0/
+      data f1  cs( 26) / -0.0000000000 0000000000 2446286150 5259d0/
+      data f1  cs( 27) /  0.0000000000 0000000000 0529365932 0439d0/
+      data f1  cs( 28) / -0.0000000000 0000000000 0115318494 0277d0/
+      data f1  cs( 29) /  0.0000000000 0000000000 0025278656 8318d0/
+      data f1  cs( 30) / -0.0000000000 0000000000 0005573864 5378d0/
+      data f1  cs( 31) /  0.0000000000 0000000000 0001235824 5621d0/
+      data f1  cs( 32) / -0.0000000000 0000000000 0000275435 0842d0/
+      data f1  cs( 33) /  0.0000000000 0000000000 0000061690 6808d0/
+      data f1  cs( 34) / -0.0000000000 0000000000 0000013881 7443d0/
+      data f1  cs( 35) /  0.0000000000 0000000000 0000003137 5329d0/
+      data f1  cs( 36) / -0.0000000000 0000000000 0000000712 1249d0/
+      data f1  cs( 37) /  0.0000000000 0000000000 0000000162 2778d0/
+      data f1  cs( 38) / -0.0000000000 0000000000 0000000037 1206d0/
+      data f1  cs( 39) /  0.0000000000 0000000000 0000000008 5221d0/
+      data f1  cs( 40) / -0.0000000000 0000000000 0000000001 9633d0/
+      data f1  cs( 41) /  0.0000000000 0000000000 0000000000 4538d0/
+      data f1  cs( 42) / -0.0000000000 0000000000 0000000000 1052d0/
+      data f1  cs( 43) /  0.0000000000 0000000000 0000000000 0245d0/
+c
+c series for f2   on the interval  0.00000e+00 to  2.00000e-02
+c                                        with weighted error   2.38e-32
+c                                         log weighted error  31.62
+c                               significant figures required  30.01
+c                                    decimal places required  32.62
+c
+      data f2  cs(  1) / -0.0348409253 8970132330 8360497337 45577d0/
+      data f2  cs(  2) / -0.0166842205 6779596873 2467863122 78676d0/
+      data f2  cs(  3) /  0.0006752901 2412377385 0452078592 39727d0/
+      data f2  cs(  4) / -0.0000535066 6225447013 6287855775 57429d0/
+      data f2  cs(  5) /  0.0000062693 4217790075 2670507594 31626d0/
+      data f2  cs(  6) / -0.0000009526 6388019916 6806777904 14293d0/
+      data f2  cs(  7) /  0.0000001745 6292242509 8804255044 27666d0/
+      data f2  cs(  8) / -0.0000000368 7954030653 0933070976 46628d0/
+      data f2  cs(  9) /  0.0000000087 2026777051 3952640758 16938d0/
+      data f2  cs( 10) / -0.0000000022 6019703919 7387485304 23167d0/
+      data f2  cs( 11) /  0.0000000006 3246249765 2506125204 44877d0/
+      data f2  cs( 12) / -0.0000000001 8889118884 7178692409 11480d0/
+      data f2  cs( 13) /  0.0000000000 5967746729 9978133726 20472d0/
+      data f2  cs( 14) / -0.0000000000 1980443117 3722390111 96007d0/
+      data f2  cs( 15) /  0.0000000000 0686413954 7721033837 13264d0/
+      data f2  cs( 16) / -0.0000000000 0247310193 0701991060 74890d0/
+      data f2  cs( 17) /  0.0000000000 0092263594 5499414041 96042d0/
+      data f2  cs( 18) / -0.0000000000 0035523634 9992617844 97297d0/
+      data f2  cs( 19) /  0.0000000000 0014076049 6253515914 61820d0/
+      data f2  cs( 20) / -0.0000000000 0005726228 4997476527 94311d0/
+      data f2  cs( 21) /  0.0000000000 0002386537 5454131718 10106d0/
+      data f2  cs( 22) / -0.0000000000 0001017141 8907645971 42232d0/
+      data f2  cs( 23) /  0.0000000000 0000442594 5310783644 24968d0/
+      data f2  cs( 24) / -0.0000000000 0000196344 9330491897 61979d0/
+      data f2  cs( 25) /  0.0000000000 0000088688 7483148104 61024d0/
+      data f2  cs( 26) / -0.0000000000 0000040743 3450273115 46948d0/
+      data f2  cs( 27) /  0.0000000000 0000019016 8372156753 39859d0/
+      data f2  cs( 28) / -0.0000000000 0000009009 7072974780 42442d0/
+      data f2  cs( 29) /  0.0000000000 0000004329 2112740956 68667d0/
+      data f2  cs( 30) / -0.0000000000 0000002108 1444653224 79526d0/
+      data f2  cs( 31) /  0.0000000000 0000001039 6379070264 52274d0/
+      data f2  cs( 32) / -0.0000000000 0000000518 8910079489 31936d0/
+      data f2  cs( 33) /  0.0000000000 0000000261 9553248698 99371d0/
+      data f2  cs( 34) / -0.0000000000 0000000133 6903999513 01570d0/
+      data f2  cs( 35) /  0.0000000000 0000000068 9410577029 31664d0/
+      data f2  cs( 36) / -0.0000000000 0000000035 9053626104 37250d0/
+      data f2  cs( 37) /  0.0000000000 0000000018 8780772557 91706d0/
+      data f2  cs( 38) / -0.0000000000 0000000010 0161252655 94380d0/
+      data f2  cs( 39) /  0.0000000000 0000000005 3607256915 78228d0/
+      data f2  cs( 40) / -0.0000000000 0000000002 8931989749 44827d0/
+      data f2  cs( 41) /  0.0000000000 0000000001 5740651002 02625d0/
+      data f2  cs( 42) / -0.0000000000 0000000000 8630271064 31206d0/
+      data f2  cs( 43) /  0.0000000000 0000000000 4767156028 62288d0/
+      data f2  cs( 44) / -0.0000000000 0000000000 2652227399 98504d0/
+      data f2  cs( 45) /  0.0000000000 0000000000 1485828650 63866d0/
+      data f2  cs( 46) / -0.0000000000 0000000000 0837972359 23135d0/
+      data f2  cs( 47) /  0.0000000000 0000000000 0475659164 22711d0/
+      data f2  cs( 48) / -0.0000000000 0000000000 0271690733 53112d0/
+      data f2  cs( 49) /  0.0000000000 0000000000 0156127388 81686d0/
+      data f2  cs( 50) / -0.0000000000 0000000000 0090245550 78347d0/
+      data f2  cs( 51) /  0.0000000000 0000000000 0052460970 49119d0/
+      data f2  cs( 52) / -0.0000000000 0000000000 0030664508 18697d0/
+      data f2  cs( 53) /  0.0000000000 0000000000 0018019962 50957d0/
+      data f2  cs( 54) / -0.0000000000 0000000000 0010644430 50752d0/
+      data f2  cs( 55) /  0.0000000000 0000000000 0006319421 58881d0/
+      data f2  cs( 56) / -0.0000000000 0000000000 0003770138 12246d0/
+      data f2  cs( 57) /  0.0000000000 0000000000 0002259975 42918d0/
+      data f2  cs( 58) / -0.0000000000 0000000000 0001361008 44814d0/
+      data f2  cs( 59) /  0.0000000000 0000000000 0000823332 32003d0/
+      data f2  cs( 60) / -0.0000000000 0000000000 0000500259 86091d0/
+      data f2  cs( 61) /  0.0000000000 0000000000 0000305262 45684d0/
+      data f2  cs( 62) / -0.0000000000 0000000000 0000187051 64021d0/
+      data f2  cs( 63) /  0.0000000000 0000000000 0000115084 04393d0/
+      data f2  cs( 64) / -0.0000000000 0000000000 0000071087 14611d0/
+      data f2  cs( 65) /  0.0000000000 0000000000 0000044080 65533d0/
+      data f2  cs( 66) / -0.0000000000 0000000000 0000027437 60867d0/
+      data f2  cs( 67) /  0.0000000000 0000000000 0000017141 44851d0/
+      data f2  cs( 68) / -0.0000000000 0000000000 0000010747 68860d0/
+      data f2  cs( 69) /  0.0000000000 0000000000 0000006762 59777d0/
+      data f2  cs( 70) / -0.0000000000 0000000000 0000004269 81348d0/
+      data f2  cs( 71) /  0.0000000000 0000000000 0000002705 00637d0/
+      data f2  cs( 72) / -0.0000000000 0000000000 0000001719 33331d0/
+      data f2  cs( 73) /  0.0000000000 0000000000 0000001096 36138d0/
+      data f2  cs( 74) / -0.0000000000 0000000000 0000000701 32573d0/
+      data f2  cs( 75) /  0.0000000000 0000000000 0000000450 01784d0/
+      data f2  cs( 76) / -0.0000000000 0000000000 0000000289 63835d0/
+      data f2  cs( 77) /  0.0000000000 0000000000 0000000186 97009d0/
+      data f2  cs( 78) / -0.0000000000 0000000000 0000000121 04646d0/
+      data f2  cs( 79) /  0.0000000000 0000000000 0000000078 59065d0/
+      data f2  cs( 80) / -0.0000000000 0000000000 0000000051 16867d0/
+      data f2  cs( 81) /  0.0000000000 0000000000 0000000033 40627d0/
+      data f2  cs( 82) / -0.0000000000 0000000000 0000000021 86851d0/
+      data f2  cs( 83) /  0.0000000000 0000000000 0000000014 35340d0/
+      data f2  cs( 84) / -0.0000000000 0000000000 0000000009 44523d0/
+      data f2  cs( 85) /  0.0000000000 0000000000 0000000006 23117d0/
+      data f2  cs( 86) / -0.0000000000 0000000000 0000000004 12101d0/
+      data f2  cs( 87) /  0.0000000000 0000000000 0000000002 73208d0/
+      data f2  cs( 88) / -0.0000000000 0000000000 0000000001 81558d0/
+      data f2  cs( 89) /  0.0000000000 0000000000 0000000001 20934d0/
+      data f2  cs( 90) / -0.0000000000 0000000000 0000000000 80737d0/
+      data f2  cs( 91) /  0.0000000000 0000000000 0000000000 54022d0/
+      data f2  cs( 92) / -0.0000000000 0000000000 0000000000 36227d0/
+      data f2  cs( 93) /  0.0000000000 0000000000 0000000000 24348d0/
+      data f2  cs( 94) / -0.0000000000 0000000000 0000000000 16401d0/
+      data f2  cs( 95) /  0.0000000000 0000000000 0000000000 11074d0/
+      data f2  cs( 96) / -0.0000000000 0000000000 0000000000 07497d0/
+      data f2  cs( 97) /  0.0000000000 0000000000 0000000000 05091d0/
+      data f2  cs( 98) / -0.0000000000 0000000000 0000000000 03470d0/
+      data f2  cs( 99) /  0.0000000000 0000000000 0000000000 02377d0/
+c
+c series for g1   on the interval  2.00000e-02 to  6.25000e-02
+c                                        with weighted error   7.23e-32
+c                                         log weighted error  31.14
+c                               significant figures required  30.35
+c                                    decimal places required  31.96
+c
+      data g1  cs(  1) / -0.3040578798 2534959544 9972668209 1083d0/
+      data g1  cs(  2) / -0.0566890984 5971205877 3133915611 8269d0/
+      data g1  cs(  3) /  0.0039046158 1732756439 1998407155 4082d0/
+      data g1  cs(  4) / -0.0003746075 9592022606 1861933986 7489d0/
+      data g1  cs(  5) /  0.0000435431 5565598436 7955222084 0065d0/
+      data g1  cs(  6) / -0.0000057417 2944530250 4656197072 3475d0/
+      data g1  cs(  7) /  0.0000008282 5521045026 2974193761 6492d0/
+      data g1  cs(  8) / -0.0000001278 2458925946 4272788391 3223d0/
+      data g1  cs(  9) /  0.0000000207 9783529486 8788443925 7529d0/
+      data g1  cs( 10) / -0.0000000035 3132059219 9079804203 2682d0/
+      data g1  cs( 11) /  0.0000000006 2108242363 0895106863 1449d0/
+      data g1  cs( 12) / -0.0000000001 1252154744 4629264933 6987d0/
+      data g1  cs( 13) /  0.0000000000 2090889176 8442160526 7019d0/
+      data g1  cs( 14) / -0.0000000000 0397158317 3768172768 9158d0/
+      data g1  cs( 15) /  0.0000000000 0076904313 1427208993 9005d0/
+      data g1  cs( 16) / -0.0000000000 0015146967 4273161351 9826d0/
+      data g1  cs( 17) /  0.0000000000 0003028921 4655235968 4119d0/
+      data g1  cs( 18) / -0.0000000000 0000613997 0383470882 5400d0/
+      data g1  cs( 19) /  0.0000000000 0000126006 0582951093 3553d0/
+      data g1  cs( 20) / -0.0000000000 0000026150 2925093948 3683d0/
+      data g1  cs( 21) /  0.0000000000 0000005482 7884489179 6821d0/
+      data g1  cs( 22) / -0.0000000000 0000001160 3818212952 6571d0/
+      data g1  cs( 23) /  0.0000000000 0000000247 7165410712 9795d0/
+      data g1  cs( 24) / -0.0000000000 0000000053 3067275322 3389d0/
+      data g1  cs( 25) /  0.0000000000 0000000011 5566607559 8465d0/
+      data g1  cs( 26) / -0.0000000000 0000000002 5228054774 4957d0/
+      data g1  cs( 27) /  0.0000000000 0000000000 5542903855 0786d0/
+      data g1  cs( 28) / -0.0000000000 0000000000 1225220842 1297d0/
+      data g1  cs( 29) /  0.0000000000 0000000000 0272366431 8684d0/
+      data g1  cs( 30) / -0.0000000000 0000000000 0060870783 1422d0/
+      data g1  cs( 31) /  0.0000000000 0000000000 0013672487 4476d0/
+      data g1  cs( 32) / -0.0000000000 0000000000 0003085662 6806d0/
+      data g1  cs( 33) /  0.0000000000 0000000000 0000699521 2319d0/
+      data g1  cs( 34) / -0.0000000000 0000000000 0000159258 7569d0/
+      data g1  cs( 35) /  0.0000000000 0000000000 0000036405 1056d0/
+      data g1  cs( 36) / -0.0000000000 0000000000 0000008353 9465d0/
+      data g1  cs( 37) /  0.0000000000 0000000000 0000001924 0303d0/
+      data g1  cs( 38) / -0.0000000000 0000000000 0000000444 6816d0/
+      data g1  cs( 39) /  0.0000000000 0000000000 0000000103 1182d0/
+      data g1  cs( 40) / -0.0000000000 0000000000 0000000023 9887d0/
+      data g1  cs( 41) /  0.0000000000 0000000000 0000000005 5976d0/
+      data g1  cs( 42) / -0.0000000000 0000000000 0000000001 3100d0/
+      data g1  cs( 43) /  0.0000000000 0000000000 0000000000 3074d0/
+      data g1  cs( 44) / -0.0000000000 0000000000 0000000000 0723d0/
+c
+c series for g2   on the interval  5.00000e-03 to  2.00000e-02
+c                                        with weighted error   3.25e-32
+c                                         log weighted error  31.49
+c                               significant figures required  30.32
+c                                    decimal places required  32.31
+c
+      data g2  cs(  1) / -0.1211802894 7316462635 4183404685 8267d0/
+      data g2  cs(  2) / -0.0316761386 3949502867 0140792350 5610d0/
+      data g2  cs(  3) /  0.0013383199 7788626801 6381942949 2182d0/
+      data g2  cs(  4) / -0.0000895511 0113922524 2553190506 9518d0/
+      data g2  cs(  5) /  0.0000079155 5629617182 1311524946 7924d0/
+      data g2  cs(  6) / -0.0000008438 7933222415 2018141898 2080d0/
+      data g2  cs(  7) /  0.0000001029 9804256775 3014664722 7274d0/
+      data g2  cs(  8) / -0.0000000139 2957506051 8383579583 4444d0/
+      data g2  cs(  9) /  0.0000000020 4227039598 7598040067 7594d0/
+      data g2  cs( 10) / -0.0000000003 1965346942 0642703543 4752d0/
+      data g2  cs( 11) /  0.0000000000 5281478326 5726769861 5312d0/
+      data g2  cs( 12) / -0.0000000000 0913395546 7267103373 5289d0/
+      data g2  cs( 13) /  0.0000000000 0164262512 3896776044 4819d0/
+      data g2  cs( 14) / -0.0000000000 0030558970 3932266000 2410d0/
+      data g2  cs( 15) /  0.0000000000 0005856558 2578577971 7892d0/
+      data g2  cs( 16) / -0.0000000000 0001152291 9773094012 0563d0/
+      data g2  cs( 17) /  0.0000000000 0000232094 6911998853 7310d0/
+      data g2  cs( 18) / -0.0000000000 0000047743 5583417753 5025d0/
+      data g2  cs( 19) /  0.0000000000 0000010009 9676580018 0573d0/
+      data g2  cs( 20) / -0.0000000000 0000002135 3377808225 6704d0/
+      data g2  cs( 21) /  0.0000000000 0000000462 7719077736 7671d0/
+      data g2  cs( 22) / -0.0000000000 0000000101 7580741022 7657d0/
+      data g2  cs( 23) /  0.0000000000 0000000022 6765739988 4672d0/
+      data g2  cs( 24) / -0.0000000000 0000000005 1163077607 6426d0/
+      data g2  cs( 25) /  0.0000000000 0000000001 1676701491 3108d0/
+      data g2  cs( 26) / -0.0000000000 0000000000 2693542767 2470d0/
+      data g2  cs( 27) /  0.0000000000 0000000000 0627566584 1146d0/
+      data g2  cs( 28) / -0.0000000000 0000000000 0147588055 7531d0/
+      data g2  cs( 29) /  0.0000000000 0000000000 0035014531 4739d0/
+      data g2  cs( 30) / -0.0000000000 0000000000 0008375773 2152d0/
+      data g2  cs( 31) /  0.0000000000 0000000000 0002019181 5152d0/
+      data g2  cs( 32) / -0.0000000000 0000000000 0000490356 7705d0/
+      data g2  cs( 33) /  0.0000000000 0000000000 0000119912 3348d0/
+      data g2  cs( 34) / -0.0000000000 0000000000 0000029517 0610d0/
+      data g2  cs( 35) /  0.0000000000 0000000000 0000007311 3112d0/
+      data g2  cs( 36) / -0.0000000000 0000000000 0000001821 7843d0/
+      data g2  cs( 37) /  0.0000000000 0000000000 0000000456 5148d0/
+      data g2  cs( 38) / -0.0000000000 0000000000 0000000115 0151d0/
+      data g2  cs( 39) /  0.0000000000 0000000000 0000000029 1267d0/
+      data g2  cs( 40) / -0.0000000000 0000000000 0000000007 4125d0/
+      data g2  cs( 41) /  0.0000000000 0000000000 0000000001 8953d0/
+      data g2  cs( 42) / -0.0000000000 0000000000 0000000000 4868d0/
+      data g2  cs( 43) /  0.0000000000 0000000000 0000000000 1256d0/
+      data g2  cs( 44) / -0.0000000000 0000000000 0000000000 0325d0/
+c
+c series for g3   on the interval  0.00000e+00 to  5.00000e-03
+c                                        with weighted error   3.83e-32
+c                                         log weighted error  31.42
+c                               significant figures required  29.71
+c                                    decimal places required  32.29
+c
+      data g3  cs(  1) / -0.0280574367 8094729284 0281526433 5299d0/
+      data g3  cs(  2) / -0.0137271597 1622369754 0910050808 9556d0/
+      data g3  cs(  3) /  0.0002894032 6387602960 2744894127 3751d0/
+      data g3  cs(  4) / -0.0000114129 2393911971 4590874362 2517d0/
+      data g3  cs(  5) /  0.0000006813 9655907262 4299772020 7302d0/
+      data g3  cs(  6) / -0.0000000547 9522896046 5236366905 8052d0/
+      data g3  cs(  7) /  0.0000000055 2074299182 1252910940 6521d0/
+      data g3  cs(  8) / -0.0000000006 6414641993 2292002249 1428d0/
+      data g3  cs(  9) /  0.0000000000 9223736634 8704110856 4960d0/
+      data g3  cs( 10) / -0.0000000000 1442990888 8668286261 1718d0/
+      data g3  cs( 11) /  0.0000000000 0249639048 9203071024 8705d0/
+      data g3  cs( 12) / -0.0000000000 0047082406 7587524472 2971d0/
+      data g3  cs( 13) /  0.0000000000 0009572176 5921675998 8140d0/
+      data g3  cs( 14) / -0.0000000000 0002078899 6609580903 0537d0/
+      data g3  cs( 15) /  0.0000000000 0000478750 9997087743 1627d0/
+      data g3  cs( 16) / -0.0000000000 0000116190 7058337717 3759d0/
+      data g3  cs( 17) /  0.0000000000 0000029565 0896926783 6974d0/
+      data g3  cs( 18) / -0.0000000000 0000007852 9498825649 2025d0/
+      data g3  cs( 19) /  0.0000000000 0000002169 2226436825 6612d0/
+      data g3  cs( 20) / -0.0000000000 0000000621 1351583167 6342d0/
+      data g3  cs( 21) /  0.0000000000 0000000183 8456883845 0977d0/
+      data g3  cs( 22) / -0.0000000000 0000000056 1088748213 7276d0/
+      data g3  cs( 23) /  0.0000000000 0000000017 6186280528 0062d0/
+      data g3  cs( 24) / -0.0000000000 0000000005 6811105054 1451d0/
+      data g3  cs( 25) /  0.0000000000 0000000001 8778627958 2313d0/
+      data g3  cs( 26) / -0.0000000000 0000000000 6353169415 1124d0/
+      data g3  cs( 27) /  0.0000000000 0000000000 2196880236 8238d0/
+      data g3  cs( 28) / -0.0000000000 0000000000 0775466655 0395d0/
+      data g3  cs( 29) /  0.0000000000 0000000000 0279101835 6581d0/
+      data g3  cs( 30) / -0.0000000000 0000000000 0102317852 5247d0/
+      data g3  cs( 31) /  0.0000000000 0000000000 0038169340 3919d0/
+      data g3  cs( 32) / -0.0000000000 0000000000 0014476789 5606d0/
+      data g3  cs( 33) /  0.0000000000 0000000000 0005577951 2634d0/
+      data g3  cs( 34) / -0.0000000000 0000000000 0002181723 9071d0/
+      data g3  cs( 35) /  0.0000000000 0000000000 0000865664 6309d0/
+      data g3  cs( 36) / -0.0000000000 0000000000 0000348215 7895d0/
+      data g3  cs( 37) /  0.0000000000 0000000000 0000141918 8130d0/
+      data g3  cs( 38) / -0.0000000000 0000000000 0000058571 4314d0/
+      data g3  cs( 39) /  0.0000000000 0000000000 0000024466 0482d0/
+      data g3  cs( 40) / -0.0000000000 0000000000 0000010338 7099d0/
+      data g3  cs( 41) /  0.0000000000 0000000000 0000004417 7299d0/
+      data g3  cs( 42) / -0.0000000000 0000000000 0000001908 0079d0/
+      data g3  cs( 43) /  0.0000000000 0000000000 0000000832 6038d0/
+      data g3  cs( 44) / -0.0000000000 0000000000 0000000366 9553d0/
+      data g3  cs( 45) /  0.0000000000 0000000000 0000000163 2875d0/
+      data g3  cs( 46) / -0.0000000000 0000000000 0000000073 3357d0/
+      data g3  cs( 47) /  0.0000000000 0000000000 0000000033 2327d0/
+      data g3  cs( 48) / -0.0000000000 0000000000 0000000015 1906d0/
+      data g3  cs( 49) /  0.0000000000 0000000000 0000000007 0020d0/
+      data g3  cs( 50) / -0.0000000000 0000000000 0000000003 2539d0/
+      data g3  cs( 51) /  0.0000000000 0000000000 0000000001 5240d0/
+      data g3  cs( 52) / -0.0000000000 0000000000 0000000000 7193d0/
+      data g3  cs( 53) /  0.0000000000 0000000000 0000000000 3420d0/
+      data g3  cs( 54) / -0.0000000000 0000000000 0000000000 1638d0/
+      data g3  cs( 55) /  0.0000000000 0000000000 0000000000 0790d0/
+      data g3  cs( 56) / -0.0000000000 0000000000 0000000000 0383d0/
+c
+      data nf1, nf2, ng1, ng2, ng3 / 5*0 /
+      data xbnd, xbndg, xbig, xmaxf, xmaxg / 5*0.0d0 /
+c
+      if (nf1.ne.0) go to 10
+      tol = 0.1d0*d1mach(3)
+      nf1 = initds (f1cs, 43, tol)
+      nf2 = initds (f2cs, 99, tol)
+      ng1 = initds (g1cs, 44, tol)
+      ng2 = initds (g2cs, 44, tol)
+      ng3 = initds (g3cs, 56, tol)
+c
+      xbig = dsqrt(1.0d0/d1mach(3))
+      xmaxf = dexp (dmin1 (-dlog(d1mach(1)), dlog(d1mach(2))) - .01d0)
+      xmaxg = 1.0d0/dsqrt(d1mach(1))
+      xbnd = dsqrt (50.0d0)
+      xbndg = dsqrt (200.d0)
+c
+ 10   if (x.lt.4.0d0) call seteru (
+     1  34hd9sifg  approxs invalid for x lt 4, 34, 1, 2)
+c
+      if (x.gt.xbnd) go to 20
+      f = (1.0d0 + dcsevl ((1.d0/x**2-0.04125d0)/.02125d0, f1cs, nf1))/x
+      g = (1.0d0 + dcsevl((1.d0/x**2-.04125d0)/.02125d0, g1cs,ng1))/x**2
+      return
+c
+ 20   if (x.gt.xbig) go to 30
+      f = (1.0d0 + dcsevl (100.d0/x**2-1.d0, f2cs, nf2))/x
+      if (x.le.xbndg) g = (1.0d0 + dcsevl ((10000.d0/x**2-125.d0)/75.d0,
+     1  g2cs, ng2))/x**2
+      if (x.gt.xbndg) g = (1.0d0 + dcsevl (400.d0/x**2-1.d0, g3cs,
+     1  ng3))/x**2
+      return
+c
+ 30   f = 0.d0
+      if (x.lt.xmaxf) f = 1.0d0/x
+      g = 0.d0
+      if (x.lt.xmaxg) g = 1.0d0/x**2
+      return
+c
+      end
diff --git a/fvn_fnlib/d9upak.f b/fvn_fnlib/d9upak.f
new file mode 100644
index 0000000..6be7312
--- /dev/null
+++ b/fvn_fnlib/d9upak.f
@@ -0,0 +1,27 @@
+      subroutine d9upak (x, y, n)
+c august 1980 portable edition.  w. fullerton, los alamos scientific lab
+c
+c unpack floating point number x so that x = y * 2.0**n, where
+c 0.5 .le. abs(y) .lt. 1.0 .
+c
+      double precision x, y, absx
+c
+      absx = dabs(x)
+      n = 0
+      y = 0.0d0
+      if (x.eq.0.0d0) return
+c
+ 10   if (absx.ge.0.5d0) go to 20
+      n = n - 1
+      absx = absx*2.0d0
+      go to 10
+c
+ 20   if (absx.lt.1.0d0) go to 30
+      n = n + 1
+      absx = absx*0.5d0
+      go to 20
+c
+ 30   y = dsign (absx, x)
+      return
+c
+      end
diff --git a/fvn_fnlib/dacosh.f b/fvn_fnlib/dacosh.f
new file mode 100644
index 0000000..95e0019
--- /dev/null
+++ b/fvn_fnlib/dacosh.f
@@ -0,0 +1,16 @@
+      double precision function dacosh (x)
+c june 1977 edition.   w. fullerton, c3, los alamos scientific lab.
+      double precision x, dln2, xmax,  d1mach, dlog, dsqrt
+      external d1mach
+      data dln2 / 0.6931471805 5994530941 7232121458 18 d0 /
+      data xmax / 0.d0 /
+c
+      if (xmax.eq.0.d0) xmax = 1.0d0/dsqrt(d1mach(3))
+c
+      if (x.lt.1.d0) call seteru (21hdacosh  x less than 1, 21, 1, 2)
+c
+      if (x.lt.xmax) dacosh = dlog (x+dsqrt(x*x-1.0d0))
+      if (x.ge.xmax) dacosh = dln2 + dlog(x)
+c
+      return
+      end
diff --git a/fvn_fnlib/dai.f b/fvn_fnlib/dai.f
new file mode 100644
index 0000000..f0d0fe3
--- /dev/null
+++ b/fvn_fnlib/dai.f
@@ -0,0 +1,78 @@
+      double precision function dai (x)
+c july 1977 edition.  w. fullerton, c3, los alamos scientific lab.
+      double precision x, aifcs(13), aigcs(13), theta, xm, xmax, x3sml,
+     1  z, d1mach, dcsevl, daie, dcos, dexp, dlog, dsqrt
+      external d1mach, daie, dcsevl, initds
+c
+c series for aif        on the interval -1.00000e+00 to  1.00000e+00
+c                                        with weighted error   8.37e-33
+c                                         log weighted error  32.08
+c                               significant figures required  30.87
+c                                    decimal places required  32.63
+c
+      data aif cs(  1) / -.3797135849 6669997496 1970894694 14 d-1     /
+      data aif cs(  2) / +.5919188853 7263638574 3197280137 77 d-1     /
+      data aif cs(  3) / +.9862928057 7279975365 6038910440 60 d-3     /
+      data aif cs(  4) / +.6848843819 0765667554 8548301824 12 d-5     /
+      data aif cs(  5) / +.2594202596 2194713019 4892790814 03 d-7     /
+      data aif cs(  6) / +.6176612774 0813750329 4457496972 36 d-10    /
+      data aif cs(  7) / +.1009245417 2466117901 4295562246 01 d-12    /
+      data aif cs(  8) / +.1201479251 1179938141 2880332253 33 d-15    /
+      data aif cs(  9) / +.1088294558 8716991878 5252954666 66 d-18    /
+      data aif cs( 10) / +.7751377219 6684887039 2384000000 00 d-22    /
+      data aif cs( 11) / +.4454811203 7175638391 4666666666 66 d-25    /
+      data aif cs( 12) / +.2109284523 1692343466 6666666666 66 d-28    /
+      data aif cs( 13) / +.8370173591 0741333333 3333333333 33 d-32    /
+c
+c series for aig        on the interval -1.00000e+00 to  1.00000e+00
+c                                        with weighted error   7.47e-34
+c                                         log weighted error  33.13
+c                               significant figures required  31.50
+c                                    decimal places required  33.68
+c
+      data aig cs(  1) / +.1815236558 1161273011 5562099578 64 d-1     /
+      data aig cs(  2) / +.2157256316 6010755534 0306388199 68 d-1     /
+      data aig cs(  3) / +.2567835698 7483249659 0524280901 33 d-3     /
+      data aig cs(  4) / +.1426521411 9792403898 8294969217 21 d-5     /
+      data aig cs(  5) / +.4572114920 0180426070 4340975581 91 d-8     /
+      data aig cs(  6) / +.9525170843 5647098607 3922788405 92 d-11    /
+      data aig cs(  7) / +.1392563460 5771399051 1504206861 90 d-13    /
+      data aig cs(  8) / +.1507099914 2762379592 3069911386 66 d-16    /
+      data aig cs(  9) / +.1255914831 2567778822 7032053333 33 d-19    /
+      data aig cs( 10) / +.8306307377 0821340343 8293333333 33 d-23    /
+      data aig cs( 11) / +.4465753849 3718567445 3333333333 33 d-26    /
+      data aig cs( 12) / +.1990085503 4518869333 3333333333 33 d-29    /
+      data aig cs( 13) / +.7470288525 6533333333 3333333333 33 d-33    /
+c
+      data naif, naig, x3sml, xmax / 2*0, 2*0.d0 /
+c
+      if (naif.ne.0) go to 10
+      naif = initds (aifcs, 13, 0.1*sngl(d1mach(3)))
+      naig = initds (aigcs, 13, 0.1*sngl(d1mach(3)))
+c
+      x3sml = d1mach(3)**0.3334d0
+      xmax = (-1.5d0*dlog(d1mach(1)))**0.6667d0
+      xmax = xmax - xmax*dlog(xmax)/(4.0d0*xmax*dsqrt(xmax)+1.0d0)
+     1  - 0.01d0
+c
+ 10   if (x.ge.(-1.d0)) go to 20
+      call d9aimp (x, xm, theta)
+      dai = xm * dcos(theta)
+      return
+c
+ 20   if (x.gt.1.0d0) go to 30
+      z = 0.0d0
+      if (dabs(x).gt.x3sml) z = x**3
+      dai = 0.375d0 + (dcsevl (z, aifcs, naif) - x*(0.25d0 +
+     1  dcsevl (z, aigcs, naig)) )
+      return
+c
+ 30   if (x.gt.xmax) go to 40
+      dai = daie(x) * dexp(-2.0d0*x*dsqrt(x)/3.0d0)
+      return
+c
+ 40   dai = 0.0d0
+      call seteru (30hdai     x so big ai underflows, 30, 1, 0)
+      return
+c
+      end
diff --git a/fvn_fnlib/daid.f b/fvn_fnlib/daid.f
new file mode 100644
index 0000000..afc63af
--- /dev/null
+++ b/fvn_fnlib/daid.f
@@ -0,0 +1,76 @@
+      double precision function daid (x)
+c july 1980 edition.  w. fullerton, bell labs.
+c
+c evaluate the derivative of the airy function ai(x).
+c
+      double precision x, aifcs(13), aigcs(13), x3sml, x2sml, xn,
+     1  phi, x3, x2, d1mach, daide,  dcsevl
+c
+c series for aif    on the interval -1.00000e+00 to  1.00000e+00
+c                                        with weighted error   2.20e-34
+c                                         log weighted error  33.66
+c                               significant figures required  32.39
+c                                    decimal places required  34.21
+c
+      data aif cs(  1) /  0.1052746122 6531408808 8970057325 134114d0/
+      data aif cs(  2) /  0.0118361362 8152997844 2889292583 980840d0/
+      data aif cs(  3) /  0.0001232810 4173225664 3051689242 469164d0/
+      data aif cs(  4) /  0.0000006226 1225638139 9016825658 693579d0/
+      data aif cs(  5) /  0.0000000018 5298887844 1452950548 140821d0/
+      data aif cs(  6) /  0.0000000000 0363328872 5904357915 995625d0/
+      data aif cs(  7) /  0.0000000000 0000504621 7040440664 768330d0/
+      data aif cs(  8) /  0.0000000000 0000000522 3816555471 480985d0/
+      data aif cs(  9) /  0.0000000000 0000000000 4185745090 748989d0/
+      data aif cs( 10) /  0.0000000000 0000000000 0002672887 324883d0/
+      data aif cs( 11) /  0.0000000000 0000000000 0000001392 128006d0/
+      data aif cs( 12) /  0.0000000000 0000000000 0000000000 602653d0/
+      data aif cs( 13) /  0.0000000000 0000000000 0000000000 000220d0/
+c
+c series for aig    on the interval -1.00000e+00 to  1.00000e+00
+c                                        with weighted error   2.76e-32
+c                                         log weighted error  31.56
+c                               significant figures required  30.50
+c                                    decimal places required  32.12
+c
+      data aig cs(  1) /  0.0212338781 5091866685 2312227684 8937d0/
+      data aig cs(  2) /  0.0863159303 3521440675 2494280946 1604d0/
+      data aig cs(  3) /  0.0017975947 2038323135 7803396322 5230d0/
+      data aig cs(  4) /  0.0000142654 9987555069 3252662068 7495d0/
+      data aig cs(  5) /  0.0000000594 3799528368 3201048878 7064d0/
+      data aig cs(  6) /  0.0000000001 5240336647 9447894521 4786d0/
+      data aig cs(  7) /  0.0000000000 0026458766 0349043530 5100d0/
+      data aig cs(  8) /  0.0000000000 0000033156 2429681502 0591d0/
+      data aig cs(  9) /  0.0000000000 0000000031 3978975759 4792d0/
+      data aig cs( 10) /  0.0000000000 0000000000 0232576737 9040d0/
+      data aig cs( 11) /  0.0000000000 0000000000 0000138438 4231d0/
+      data aig cs( 12) /  0.0000000000 0000000000 0000000067 6629d0/
+      data aig cs( 13) /  0.0000000000 0000000000 0000000000 0276d0/
+c
+      data naif, naig, x2sml, x3sml / 2*0, 2*0.0d0 /
+c
+      if (naif.ne.0) go to 10
+      eta = 0.1*sngl(d1mach(3))
+      naif = initds (aifcs, 13, eta)
+      naig = initds (aigcs, 13, eta)
+c
+      x3sml = d1mach(3)**0.3334d0
+      x2sml = dsqrt (d1mach(3))
+c
+ 10   if (x.ge.(-1.d0)) go to 20
+      call d9admp (x, xn, phi)
+      daid = xn * dcos(phi)
+      return
+c
+ 20   if (x.gt.1.0d0) go to 30
+      x3 = 0.0d0
+      if (dabs(x).gt.x3sml) x3 = x**3
+      x2 = 0.0d0
+      if (dabs(x).gt.x2sml) x2 = x*x
+      daid = (x2*(0.125d0 + dcsevl (x3, aifcs, naif)) -
+     1  dcsevl (x3, aigcs, naig)) - 0.25d0
+      return
+c
+ 30   daid = daide(x) * dexp(-2.0d0*x*dsqrt(x)/3.0d0)
+      return
+c
+      end
diff --git a/fvn_fnlib/daide.f b/fvn_fnlib/daide.f
new file mode 100644
index 0000000..0fa9bce
--- /dev/null
+++ b/fvn_fnlib/daide.f
@@ -0,0 +1,203 @@
+      double precision function daide (x)
+c july 1980 edition.  w. fullerton, bell labs.
+c
+c evaluate the derivative of the airy function for x .le. 0
+c and evaluate  aid(x) * exp(zeta)  for x .ge. 0  where
+c      zeta = 2/3 * x**(3/2)
+c
+      double precision x, aifcs(13), aigcs(13), aip1cs(57), aip2cs(37),
+     1  x2sml, x3sml, x32sml, xbig, x3, x2, sqrtx, z, xn, phi,
+     2  d1mach, dcsevl, dcos, dexp, dsqrt
+      external d1mach,  dcsevl,  initds
+c
+c series for aif    on the interval -1.00000e+00 to  1.00000e+00
+c                                        with weighted error   2.20e-34
+c                                         log weighted error  33.66
+c                               significant figures required  32.39
+c                                    decimal places required  34.21
+c
+      data aif cs(  1) /  0.1052746122 6531408808 8970057325 134114d0/
+      data aif cs(  2) /  0.0118361362 8152997844 2889292583 980840d0/
+      data aif cs(  3) /  0.0001232810 4173225664 3051689242 469164d0/
+      data aif cs(  4) /  0.0000006226 1225638139 9016825658 693579d0/
+      data aif cs(  5) /  0.0000000018 5298887844 1452950548 140821d0/
+      data aif cs(  6) /  0.0000000000 0363328872 5904357915 995625d0/
+      data aif cs(  7) /  0.0000000000 0000504621 7040440664 768330d0/
+      data aif cs(  8) /  0.0000000000 0000000522 3816555471 480985d0/
+      data aif cs(  9) /  0.0000000000 0000000000 4185745090 748989d0/
+      data aif cs( 10) /  0.0000000000 0000000000 0002672887 324883d0/
+      data aif cs( 11) /  0.0000000000 0000000000 0000001392 128006d0/
+      data aif cs( 12) /  0.0000000000 0000000000 0000000000 602653d0/
+      data aif cs( 13) /  0.0000000000 0000000000 0000000000 000220d0/
+c
+c series for aig    on the interval -1.00000e+00 to  1.00000e+00
+c                                        with weighted error   2.76e-32
+c                                         log weighted error  31.56
+c                               significant figures required  30.50
+c                                    decimal places required  32.12
+c
+      data aig cs(  1) /  0.0212338781 5091866685 2312227684 8937d0/
+      data aig cs(  2) /  0.0863159303 3521440675 2494280946 1604d0/
+      data aig cs(  3) /  0.0017975947 2038323135 7803396322 5230d0/
+      data aig cs(  4) /  0.0000142654 9987555069 3252662068 7495d0/
+      data aig cs(  5) /  0.0000000594 3799528368 3201048878 7064d0/
+      data aig cs(  6) /  0.0000000001 5240336647 9447894521 4786d0/
+      data aig cs(  7) /  0.0000000000 0026458766 0349043530 5100d0/
+      data aig cs(  8) /  0.0000000000 0000033156 2429681502 0591d0/
+      data aig cs(  9) /  0.0000000000 0000000031 3978975759 4792d0/
+      data aig cs( 10) /  0.0000000000 0000000000 0232576737 9040d0/
+      data aig cs( 11) /  0.0000000000 0000000000 0000138438 4231d0/
+      data aig cs( 12) /  0.0000000000 0000000000 0000000067 6629d0/
+      data aig cs( 13) /  0.0000000000 0000000000 0000000000 0276d0/
+c
+c series for aip2 on the interval  0.00000e+00 to  1.25000e-01
+c                                        with weighted error   3.53e-32
+c                                         log weighted error  31.45
+c                               significant figures required  29.06
+c                                    decimal places required  32.24
+c
+      data aip2cs(  1) /  0.0065457691 9897137567 9427697906 7064d0/
+      data aip2cs(  2) /  0.0023833724 1207745919 9277255288 6923d0/
+      data aip2cs(  3) / -0.0000430700 7702205858 6277501211 0584d0/
+      data aip2cs(  4) /  0.0000015629 1258586292 0233078536 9063d0/
+      data aip2cs(  5) / -0.0000000815 4171861627 0696511250 1015d0/
+      data aip2cs(  6) /  0.0000000054 1037380569 3591820800 8783d0/
+      data aip2cs(  7) / -0.0000000004 2841308826 1469652876 6222d0/
+      data aip2cs(  8) /  0.0000000000 3894979628 3228642486 2198d0/
+      data aip2cs(  9) / -0.0000000000 0396231612 6497925765 8071d0/
+      data aip2cs( 10) /  0.0000000000 0044281842 1440598960 2353d0/
+      data aip2cs( 11) / -0.0000000000 0005362965 2715068967 5318d0/
+      data aip2cs( 12) /  0.0000000000 0000696498 7213993602 8200d0/
+      data aip2cs( 13) / -0.0000000000 0000096196 3628609531 9210d0/
+      data aip2cs( 14) /  0.0000000000 0000014034 5496778480 8032d0/
+      data aip2cs( 15) / -0.0000000000 0000002150 9713652587 5715d0/
+      data aip2cs( 16) /  0.0000000000 0000000344 7123063267 8283d0/
+      data aip2cs( 17) / -0.0000000000 0000000057 5390762181 9442d0/
+      data aip2cs( 18) /  0.0000000000 0000000009 9700116582 4168d0/
+      data aip2cs( 19) / -0.0000000000 0000000001 7881143602 1458d0/
+      data aip2cs( 20) /  0.0000000000 0000000000 3311030792 3551d0/
+      data aip2cs( 21) / -0.0000000000 0000000000 0631588552 9506d0/
+      data aip2cs( 22) /  0.0000000000 0000000000 0123866695 2364d0/
+      data aip2cs( 23) / -0.0000000000 0000000000 0024932405 3394d0/
+      data aip2cs( 24) /  0.0000000000 0000000000 0005142603 0999d0/
+      data aip2cs( 25) / -0.0000000000 0000000000 0001085423 6402d0/
+      data aip2cs( 26) /  0.0000000000 0000000000 0000234131 6852d0/
+      data aip2cs( 27) / -0.0000000000 0000000000 0000051554 2099d0/
+      data aip2cs( 28) /  0.0000000000 0000000000 0000011575 8841d0/
+      data aip2cs( 29) / -0.0000000000 0000000000 0000002647 9669d0/
+      data aip2cs( 30) /  0.0000000000 0000000000 0000000616 5328d0/
+      data aip2cs( 31) / -0.0000000000 0000000000 0000000145 9931d0/
+      data aip2cs( 32) /  0.0000000000 0000000000 0000000035 1331d0/
+      data aip2cs( 33) / -0.0000000000 0000000000 0000000008 5863d0/
+      data aip2cs( 34) /  0.0000000000 0000000000 0000000002 1297d0/
+      data aip2cs( 35) / -0.0000000000 0000000000 0000000000 5358d0/
+      data aip2cs( 36) /  0.0000000000 0000000000 0000000000 1367d0/
+      data aip2cs( 37) / -0.0000000000 0000000000 0000000000 0353d0/
+c
+c series for aip1 on the interval  1.25000e-01 to  1.00000e+00
+c                                        with weighted error   3.79e-32
+c                                         log weighted error  31.42
+c                               significant figures required  29.75
+c                                    decimal places required  32.30
+c
+      data aip1cs(  1) /  0.0358865097 8083015379 5671048926 1688d0/
+      data aip1cs(  2) /  0.0114668575 6277648985 7270088312 1766d0/
+      data aip1cs(  3) / -0.0007592073 5838614003 0133564760 1603d0/
+      data aip1cs(  4) /  0.0000869517 6108938412 7194861943 4021d0/
+      data aip1cs(  5) / -0.0000128237 2942985916 9178960760 0486d0/
+      data aip1cs(  6) /  0.0000022062 6956810383 3693437625 0420d0/
+      data aip1cs(  7) / -0.0000004222 2951859207 4948694598 8432d0/
+      data aip1cs(  8) /  0.0000000874 6864157263 4847935613 0376d0/
+      data aip1cs(  9) / -0.0000000192 7735884183 6538862569 3417d0/
+      data aip1cs( 10) /  0.0000000044 6684600544 9271969977 7137d0/
+      data aip1cs( 11) / -0.0000000010 7901080519 4816801574 7466d0/
+      data aip1cs( 12) /  0.0000000002 7000294466 9624808307 1434d0/
+      data aip1cs( 13) / -0.0000000000 6964801080 0791525731 8929d0/
+      data aip1cs( 14) /  0.0000000000 1844899070 0324668707 6806d0/
+      data aip1cs( 15) / -0.0000000000 0500278173 5807169830 1149d0/
+      data aip1cs( 16) /  0.0000000000 0138522433 6601216829 7298d0/
+      data aip1cs( 17) / -0.0000000000 0039082184 6665704825 3473d0/
+      data aip1cs( 18) /  0.0000000000 0011215360 7252456345 1273d0/
+      data aip1cs( 19) / -0.0000000000 0003268615 2257950252 2443d0/
+      data aip1cs( 20) /  0.0000000000 0000966191 7901009080 5752d0/
+      data aip1cs( 21) / -0.0000000000 0000289347 6744269843 4271d0/
+      data aip1cs( 22) /  0.0000000000 0000087700 8666115089 7069d0/
+      data aip1cs( 23) / -0.0000000000 0000026880 4626119585 3754d0/
+      data aip1cs( 24) /  0.0000000000 0000008324 9882387234 2992d0/
+      data aip1cs( 25) / -0.0000000000 0000002603 4325478694 7057d0/
+      data aip1cs( 26) /  0.0000000000 0000000821 5952814268 6287d0/
+      data aip1cs( 27) / -0.0000000000 0000000261 5040670498 4940d0/
+      data aip1cs( 28) /  0.0000000000 0000000083 9056346326 1051d0/
+      data aip1cs( 29) / -0.0000000000 0000000027 1268561862 9660d0/
+      data aip1cs( 30) /  0.0000000000 0000000008 8333337527 1942d0/
+      data aip1cs( 31) / -0.0000000000 0000000002 8960320682 2333d0/
+      data aip1cs( 32) /  0.0000000000 0000000000 9556218592 8676d0/
+      data aip1cs( 33) / -0.0000000000 0000000000 3172746356 9051d0/
+      data aip1cs( 34) /  0.0000000000 0000000000 1059557696 0768d0/
+      data aip1cs( 35) / -0.0000000000 0000000000 0355825376 5402d0/
+      data aip1cs( 36) /  0.0000000000 0000000000 0120133468 0517d0/
+      data aip1cs( 37) / -0.0000000000 0000000000 0040766688 3800d0/
+      data aip1cs( 38) /  0.0000000000 0000000000 0013901694 4446d0/
+      data aip1cs( 39) / -0.0000000000 0000000000 0004762816 5730d0/
+      data aip1cs( 40) /  0.0000000000 0000000000 0001639126 5551d0/
+      data aip1cs( 41) / -0.0000000000 0000000000 0000566549 1354d0/
+      data aip1cs( 42) /  0.0000000000 0000000000 0000196638 1969d0/
+      data aip1cs( 43) / -0.0000000000 0000000000 0000068523 0229d0/
+      data aip1cs( 44) /  0.0000000000 0000000000 0000023970 6939d0/
+      data aip1cs( 45) / -0.0000000000 0000000000 0000008416 6831d0/
+      data aip1cs( 46) /  0.0000000000 0000000000 0000002965 9364d0/
+      data aip1cs( 47) / -0.0000000000 0000000000 0000001048 7947d0/
+      data aip1cs( 48) /  0.0000000000 0000000000 0000000372 1150d0/
+      data aip1cs( 49) / -0.0000000000 0000000000 0000000132 4570d0/
+      data aip1cs( 50) /  0.0000000000 0000000000 0000000047 2976d0/
+      data aip1cs( 51) / -0.0000000000 0000000000 0000000016 9405d0/
+      data aip1cs( 52) /  0.0000000000 0000000000 0000000006 0855d0/
+      data aip1cs( 53) / -0.0000000000 0000000000 0000000002 1924d0/
+      data aip1cs( 54) /  0.0000000000 0000000000 0000000000 7920d0/
+      data aip1cs( 55) / -0.0000000000 0000000000 0000000000 2869d0/
+      data aip1cs( 56) /  0.0000000000 0000000000 0000000000 1042d0/
+      data aip1cs( 57) / -0.0000000000 0000000000 0000000000 0379d0/
+c
+      data naif, naig, naip1, naip2 / 4*0 /
+      data x2sml, x3sml, x32sml, xbig / 4*0.0d0 /
+c
+      if (naif.ne.0) go to 10
+      eta = 0.1*sngl(d1mach(3))
+      naif = initds (aifcs, 13, eta)
+      naig = initds (aigcs, 13, eta)
+      naip1 = initds (aip1cs, 57, eta)
+      naip2 = initds (aip2cs, 37, eta)
+c
+      x2sml = sqrt (eta)
+      x3sml = eta**0.3333
+      x32sml = 1.3104d0*x3sml**2
+      xbig = d1mach(2)**0.6666d0
+c
+ 10   if (x.ge.(-1.0d0)) go to 20
+      call d9admp (x, xn, phi)
+      daide = xn * dcos(phi)
+      return
+c
+ 20   if (x.gt.1.0d0) go to 30
+      x3 = 0.0d0
+      if (dabs(x).gt.x3sml) x3 = x**3
+      x2 = 0.0d0
+      if (dabs(x).gt.x2sml) x2 = x*x
+      daide = (x2*(0.125d0 + dcsevl(x3, aifcs, naif)) -
+     1  dcsevl (x3, aigcs, naig)) - 0.25d0
+      if (x.gt.x32sml) daide = daide * dexp(2.0d0*x*dsqrt(x)/3.0d0)
+      return
+c
+ 30   if (x.gt.4.0d0) go to 40
+      sqrtx = dsqrt(x)
+      z = (16.0d0/(x*sqrtx) - 9.0d0) / 7.0d0
+      daide = (-0.28125d0 - dcsevl (z, aip1cs, naip1)) * dsqrt(sqrtx)
+      return
+c
+ 40   sqrtx = dsqrt(x)
+      z = -1.0d0
+      if (x.lt.xbig) z = 16.0d0/(x*sqrtx) - 1.0d0
+      daide = (-0.28125d0 - dcsevl (z, aip2cs, naip2)) * dsqrt (sqrtx)
+      return
+c
+      end
diff --git a/fvn_fnlib/daie.f b/fvn_fnlib/daie.f
new file mode 100644
index 0000000..ce01879
--- /dev/null
+++ b/fvn_fnlib/daie.f
@@ -0,0 +1,199 @@
+      double precision function daie (x)
+c july 1977 edition.  w. fullerton, c3, los alamos scientific lab.
+c
+c evaluate ai(x) for x .le. 0.0 and ai(x)*exp(zeta) where
+c zeta = 2/3 * x**(3/2)  for x .ge. 0.0
+c
+      double precision x, aifcs(13), aigcs(13), aip1cs(57), aip2cs(37),
+     1  sqrtx, theta, xbig, xm, x3sml, x32sml, z, d1mach, dcsevl,
+     2  dcos, dexp, dsqrt
+      external d1mach, dcsevl, initds
+c
+c series for aif        on the interval -1.00000e+00 to  1.00000e+00
+c                                        with weighted error   8.37e-33
+c                                         log weighted error  32.08
+c                               significant figures required  30.87
+c                                    decimal places required  32.63
+c
+      data aif cs(  1) / -.3797135849 6669997496 1970894694 14 d-1     /
+      data aif cs(  2) / +.5919188853 7263638574 3197280137 77 d-1     /
+      data aif cs(  3) / +.9862928057 7279975365 6038910440 60 d-3     /
+      data aif cs(  4) / +.6848843819 0765667554 8548301824 12 d-5     /
+      data aif cs(  5) / +.2594202596 2194713019 4892790814 03 d-7     /
+      data aif cs(  6) / +.6176612774 0813750329 4457496972 36 d-10    /
+      data aif cs(  7) / +.1009245417 2466117901 4295562246 01 d-12    /
+      data aif cs(  8) / +.1201479251 1179938141 2880332253 33 d-15    /
+      data aif cs(  9) / +.1088294558 8716991878 5252954666 66 d-18    /
+      data aif cs( 10) / +.7751377219 6684887039 2384000000 00 d-22    /
+      data aif cs( 11) / +.4454811203 7175638391 4666666666 66 d-25    /
+      data aif cs( 12) / +.2109284523 1692343466 6666666666 66 d-28    /
+      data aif cs( 13) / +.8370173591 0741333333 3333333333 33 d-32    /
+c
+c series for aig        on the interval -1.00000e+00 to  1.00000e+00
+c                                        with weighted error   7.47e-34
+c                                         log weighted error  33.13
+c                               significant figures required  31.50
+c                                    decimal places required  33.68
+c
+      data aig cs(  1) / +.1815236558 1161273011 5562099578 64 d-1     /
+      data aig cs(  2) / +.2157256316 6010755534 0306388199 68 d-1     /
+      data aig cs(  3) / +.2567835698 7483249659 0524280901 33 d-3     /
+      data aig cs(  4) / +.1426521411 9792403898 8294969217 21 d-5     /
+      data aig cs(  5) / +.4572114920 0180426070 4340975581 91 d-8     /
+      data aig cs(  6) / +.9525170843 5647098607 3922788405 92 d-11    /
+      data aig cs(  7) / +.1392563460 5771399051 1504206861 90 d-13    /
+      data aig cs(  8) / +.1507099914 2762379592 3069911386 66 d-16    /
+      data aig cs(  9) / +.1255914831 2567778822 7032053333 33 d-19    /
+      data aig cs( 10) / +.8306307377 0821340343 8293333333 33 d-23    /
+      data aig cs( 11) / +.4465753849 3718567445 3333333333 33 d-26    /
+      data aig cs( 12) / +.1990085503 4518869333 3333333333 33 d-29    /
+      data aig cs( 13) / +.7470288525 6533333333 3333333333 33 d-33    /
+c
+c series for aip1       on the interval  1.25000e-01 to  1.00000e+00
+c                                        with weighted error   3.69e-32
+c                                         log weighted error  31.43
+c                               significant figures required  29.55
+c                                    decimal places required  32.31
+c
+      data aip1cs(  1) / -.2146951858 9105384554 6086346777 8 d-1      /
+      data aip1cs(  2) / -.7535382535 0433011662 1972086556 5 d-2      /
+      data aip1cs(  3) / +.5971527949 0263808520 3538888199 4 d-3      /
+      data aip1cs(  4) / -.7283251254 2076106485 0236829154 8 d-4      /
+      data aip1cs(  5) / +.1110297130 7392996665 1738182114 0 d-4      /
+      data aip1cs(  6) / -.1950386152 2844057103 4693031403 3 d-5      /
+      data aip1cs(  7) / +.3786973885 1595151938 8531967005 7 d-6      /
+      data aip1cs(  8) / -.7929675297 3509782790 3907287915 4 d-7      /
+      data aip1cs(  9) / +.1762247638 6742560755 6842012220 2 d-7      /
+      data aip1cs( 10) / -.4110767539 6671950450 2989659389 3 d-8      /
+      data aip1cs( 11) / +.9984770057 8578922471 8341410754 4 d-9      /
+      data aip1cs( 12) / -.2510093251 3871222113 4986773003 4 d-9      /
+      data aip1cs( 13) / +.6500501929 8606954092 7203860172 5 d-10     /
+      data aip1cs( 14) / -.1727818405 3936165154 7887710736 6 d-10     /
+      data aip1cs( 15) / +.4699378842 8245125783 6229287230 7 d-11     /
+      data aip1cs( 16) / -.1304675656 2977439144 9124124627 2 d-11     /
+      data aip1cs( 17) / +.3689698478 4626788104 7394838228 2 d-12     /
+      data aip1cs( 18) / -.1061087206 6468061736 5035967903 5 d-12     /
+      data aip1cs( 19) / +.3098414384 8781874386 6021007011 0 d-13     /
+      data aip1cs( 20) / -.9174908079 8241393078 3342354785 1 d-14     /
+      data aip1cs( 21) / +.2752049140 3472108956 9357906227 1 d-14     /
+      data aip1cs( 22) / -.8353750115 9220465580 9139330188 0 d-15     /
+      data aip1cs( 23) / +.2563931129 3579349475 6863616861 2 d-15     /
+      data aip1cs( 24) / -.7950633762 5988549832 7374728982 2 d-16     /
+      data aip1cs( 25) / +.2489283634 6030699774 3728117564 4 d-16     /
+      data aip1cs( 26) / -.7864326933 9287355696 6462622129 6 d-17     /
+      data aip1cs( 27) / +.2505687311 4399756723 2447064501 9 d-17     /
+      data aip1cs( 28) / -.8047420364 1639095245 3795868224 1 d-18     /
+      data aip1cs( 29) / +.2604097118 9520539644 4340110439 2 d-18     /
+      data aip1cs( 30) / -.8486954164 0564122594 8248883418 4 d-19     /
+      data aip1cs( 31) / +.2784706882 1423378433 5942918602 7 d-19     /
+      data aip1cs( 32) / -.9195858953 4986129136 8722415135 4 d-20     /
+      data aip1cs( 33) / +.3055304318 3742387422 4766822558 3 d-20     /
+      data aip1cs( 34) / -.1021035455 4794778759 0217704843 9 d-20     /
+      data aip1cs( 35) / +.3431118190 7437578440 0055568083 6 d-21     /
+      data aip1cs( 36) / -.1159129341 7977495133 7692246310 9 d-21     /
+      data aip1cs( 37) / +.3935772844 2002556108 3626822915 4 d-22     /
+      data aip1cs( 38) / -.1342880980 2967176119 5671898903 8 d-22     /
+      data aip1cs( 39) / +.4603287883 5200027416 5919030531 4 d-23     /
+      data aip1cs( 40) / -.1585043927 0040642278 1077249938 7 d-23     /
+      data aip1cs( 41) / +.5481275667 7296759089 2552375500 8 d-24     /
+      data aip1cs( 42) / -.1903349371 8550472590 6401794894 5 d-24     /
+      data aip1cs( 43) / +.6635682302 3740087167 7761211596 8 d-25     /
+      data aip1cs( 44) / -.2322311650 0263143079 7520098645 3 d-25     /
+      data aip1cs( 45) / +.8157640113 4291793131 4274369535 9 d-26     /
+      data aip1cs( 46) / -.2875824240 6329004900 5748992955 7 d-26     /
+      data aip1cs( 47) / +.1017329450 9429014350 7971431901 8 d-26     /
+      data aip1cs( 48) / -.3610879108 7422164465 7570349055 9 d-27     /
+      data aip1cs( 49) / +.1285788540 3639934212 5664034269 8 d-27     /
+      data aip1cs( 50) / -.4592901037 3785474251 6069302271 9 d-28     /
+      data aip1cs( 51) / +.1645597033 8207137258 1210248533 3 d-28     /
+      data aip1cs( 52) / -.5913421299 8435018420 8792027136 0 d-29     /
+      data aip1cs( 53) / +.2131057006 6049933034 7936950954 6 d-29     /
+      data aip1cs( 54) / -.7701158157 7875982169 8276174506 6 d-30     /
+      data aip1cs( 55) / +.2790533307 9689304175 8178377728 0 d-30     /
+      data aip1cs( 56) / -.1013807715 1112840064 5224136703 9 d-30     /
+      data aip1cs( 57) / +.3692580158 7196240936 5828621653 3 d-31     /
+c
+c series for aip2       on the interval  0.          to  1.25000e-01
+c                                        with weighted error   3.48e-32
+c                                         log weighted error  31.46
+c                               significant figures required  28.74
+c                                    decimal places required  32.24
+c
+      data aip2cs(  1) / -.1743144969 2937551339 0355844011 d-2        /
+      data aip2cs(  2) / -.1678938543 2554167163 2190613480 d-2        /
+      data aip2cs(  3) / +.3596534033 5216603588 5983858114 d-4        /
+      data aip2cs(  4) / -.1380818602 7392283545 7399383100 d-5        /
+      data aip2cs(  5) / +.7411228077 3150529884 8699095233 d-7        /
+      data aip2cs(  6) / -.5002382039 0013301313 0422866325 d-8        /
+      data aip2cs(  7) / +.4006939174 1718424067 5446866355 d-9        /
+      data aip2cs(  8) / -.3673312427 9590504419 9318496207 d-10       /
+      data aip2cs(  9) / +.3760344395 9237385243 9592002918 d-11       /
+      data aip2cs( 10) / -.4223213327 1874753802 6564938968 d-12       /
+      data aip2cs( 11) / +.5135094540 3365707091 9618754120 d-13       /
+      data aip2cs( 12) / -.6690958503 9047759565 1681356676 d-14       /
+      data aip2cs( 13) / +.9266675456 4129064823 9550724382 d-15       /
+      data aip2cs( 14) / -.1355143824 1607057633 3397356591 d-15       /
+      data aip2cs( 15) / +.2081154963 1283099529 9006549335 d-16       /
+      data aip2cs( 16) / -.3341164991 5917685687 1277570256 d-17       /
+      data aip2cs( 17) / +.5585785845 8592431686 8032946585 d-18       /
+      data aip2cs( 18) / -.9692190401 5236524751 8658209109 d-19       /
+      data aip2cs( 19) / +.1740457001 2889320646 5696557738 d-19       /
+      data aip2cs( 20) / -.3226409797 3113040024 7846333098 d-20       /
+      data aip2cs( 21) / +.6160744711 0662525853 3259618986 d-21       /
+      data aip2cs( 22) / -.1209363479 8249005907 6420676266 d-21       /
+      data aip2cs( 23) / +.2436327633 1013810826 1570095786 d-22       /
+      data aip2cs( 24) / -.5029142214 9745746894 3403144533 d-23       /
+      data aip2cs( 25) / +.1062241755 4363568949 5470626133 d-23       /
+      data aip2cs( 26) / -.2292842848 9598924150 9856324266 d-24       /
+      data aip2cs( 27) / +.5051817339 2950374498 6884778666 d-25       /
+      data aip2cs( 28) / -.1134981237 1441240497 9793920000 d-25       /
+      data aip2cs( 29) / +.2597655659 8560698069 8374144000 d-26       /
+      data aip2cs( 30) / -.6051246215 4293950617 2231679999 d-27       /
+      data aip2cs( 31) / +.1433597779 6677280072 0295253333 d-27       /
+      data aip2cs( 32) / -.3451477570 6089998628 0721066666 d-28       /
+      data aip2cs( 33) / +.8438751902 1364674042 7025066666 d-29       /
+      data aip2cs( 34) / -.2093961422 9818816943 4453333333 d-29       /
+      data aip2cs( 35) / +.5270088734 7894550318 2848000000 d-30       /
+      data aip2cs( 36) / -.1344574330 1455338578 9030399999 d-30       /
+      data aip2cs( 37) / +.3475709645 2660114734 0117333333 d-31       /
+c
+      data naif, naig, naip1, naip2 / 4*0 /
+      data x3sml, x32sml, xbig / 3*0.d0 /
+c
+      if (naif.ne.0) go to 10
+      eta = 0.1*sngl(d1mach(3))
+      naif = initds (aifcs, 13, eta)
+      naig = initds (aigcs, 13, eta)
+      naip1 = initds (aip1cs, 57, eta)
+      naip2 = initds (aip2cs, 37, eta)
+c
+      x3sml = eta**0.3333e0
+      x32sml = 1.3104d0*x3sml**2
+      xbig = d1mach(2)**0.6666d0
+c
+ 10   if (x.ge.(-1.0d0)) go to 20
+      call d9aimp (x, xm, theta)
+      daie = xm * dcos(theta)
+      return
+c
+ 20   if (x.gt.1.0d0) go to 30
+      z = 0.0d0
+      if (dabs(x).gt.x3sml) z = x**3
+      daie = 0.375d0 + (dcsevl (z, aifcs, naif) - x*(0.25d0 +
+     1  dcsevl (z, aigcs, naig)) )
+      if (x.gt.x32sml) daie = daie * dexp (2.0d0*x*dsqrt(x)/3.0d0)
+      return
+c
+ 30   if (x.gt.4.0d0) go to 40
+      sqrtx = dsqrt(x)
+      z = (16.d0/(x*sqrtx) - 9.d0)/7.d0
+      daie = (0.28125d0 + dcsevl (z, aip1cs, naip1))/dsqrt(sqrtx)
+      return
+c
+ 40   sqrtx = dsqrt(x)
+      z = -1.0d0
+      if (x.lt.xbig) z = 16.0d0/(x*sqrtx) - 1.0d0
+      daie = (0.28125d0 + dcsevl (z, aip2cs, naip2))/dsqrt(sqrtx)
+      return
+c
+      end
diff --git a/fvn_fnlib/dasinh.f b/fvn_fnlib/dasinh.f
new file mode 100644
index 0000000..f2a3d3f
--- /dev/null
+++ b/fvn_fnlib/dasinh.f
@@ -0,0 +1,73 @@
+      double precision function dasinh (x)
+c june 1977 edition.   w. fullerton, c3, los alamos scientific lab.
+      double precision x, asnhcs(39), aln2, sqeps, xmax, y,
+     1  dcsevl, d1mach, dlog, dsqrt
+      external d1mach, dcsevl, initds
+c
+c series for asnh       on the interval  0.          to  1.00000e+00
+c                                        with weighted error   2.26e-32
+c                                         log weighted error  31.65
+c                               significant figures required  30.59
+c                                    decimal places required  32.44
+c
+      data asnhcs(  1) / -.1282003991 1738186343 3721273592 68 d+0     /
+      data asnhcs(  2) / -.5881176118 9951767565 2117571383 62 d-1     /
+      data asnhcs(  3) / +.4727465432 2124815640 7252497560 29 d-2     /
+      data asnhcs(  4) / -.4938363162 6536172101 3601747902 73 d-3     /
+      data asnhcs(  5) / +.5850620705 8557412287 4948352593 21 d-4     /
+      data asnhcs(  6) / -.7466998328 9313681354 7550692171 88 d-5     /
+      data asnhcs(  7) / +.1001169358 3558199265 9661920158 12 d-5     /
+      data asnhcs(  8) / -.1390354385 8708333608 6164722588 86 d-6     /
+      data asnhcs(  9) / +.1982316948 3172793547 3173602371 48 d-7     /
+      data asnhcs( 10) / -.2884746841 7848843612 7472728003 17 d-8     /
+      data asnhcs( 11) / +.4267296546 7159937953 4575149959 07 d-9     /
+      data asnhcs( 12) / -.6397608465 4366357868 7526323096 81 d-10    /
+      data asnhcs( 13) / +.9699168608 9064704147 8782931311 79 d-11    /
+      data asnhcs( 14) / -.1484427697 2043770830 2466583656 96 d-11    /
+      data asnhcs( 15) / +.2290373793 9027447988 0401843789 83 d-12    /
+      data asnhcs( 16) / -.3558839513 2732645159 9789426513 10 d-13    /
+      data asnhcs( 17) / +.5563969408 0056789953 3745390885 54 d-14    /
+      data asnhcs( 18) / -.8746250959 9624678045 6665935201 62 d-15    /
+      data asnhcs( 19) / +.1381524884 4526692155 8688022981 29 d-15    /
+      data asnhcs( 20) / -.2191668828 2900363984 9551422641 49 d-16    /
+      data asnhcs( 21) / +.3490465852 4827565638 3139237068 80 d-17    /
+      data asnhcs( 22) / -.5578578840 0895742439 6301570321 06 d-18    /
+      data asnhcs( 23) / +.8944514661 7134012551 0508827989 33 d-19    /
+      data asnhcs( 24) / -.1438342634 6571317305 5518452394 66 d-19    /
+      data asnhcs( 25) / +.2319181187 2169963036 3261446826 66 d-20    /
+      data asnhcs( 26) / -.3748700795 3314343674 5706045439 99 d-21    /
+      data asnhcs( 27) / +.6073210982 2064279404 5492428800 00 d-22    /
+      data asnhcs( 28) / -.9859940276 4633583177 3701734400 00 d-23    /
+      data asnhcs( 29) / +.1603921745 2788496315 2326382933 33 d-23    /
+      data asnhcs( 30) / -.2613884735 0287686596 7161343999 99 d-24    /
+      data asnhcs( 31) / +.4267084960 6857390833 3581653333 33 d-25    /
+      data asnhcs( 32) / -.6977021703 9185243299 7307733333 33 d-26    /
+      data asnhcs( 33) / +.1142508833 6806858659 8126933333 33 d-26    /
+      data asnhcs( 34) / -.1873529207 8860968933 0210133333 33 d-27    /
+      data asnhcs( 35) / +.3076358441 4464922794 0659200000 00 d-28    /
+      data asnhcs( 36) / -.5057736403 1639824787 0463999999 99 d-29    /
+      data asnhcs( 37) / +.8325075471 2689142224 2133333333 33 d-30    /
+      data asnhcs( 38) / -.1371845728 2501044163 9253333333 33 d-30    /
+      data asnhcs( 39) / +.2262986842 6552784104 1066666666 66 d-31    /
+c
+      data aln2 / 0.6931471805 5994530941 7232121458 18d0 /
+      data nterms, xmax, sqeps / 0, 2*0.d0 /
+c
+      if (nterms.ne.0) go to 10
+      nterms = initds (asnhcs, 39, 0.1*sngl(d1mach(3)) )
+      sqeps = dsqrt (d1mach(3))
+      xmax = 1.0d0/sqeps
+c
+ 10   y = dabs(x)
+      if (y.gt.1.0d0) go to 20
+c
+      dasinh = x
+      if (y.gt.sqeps) dasinh = x*(1.0d0 + dcsevl (2.d0*x*x-1.d0,
+     1  asnhcs, nterms) )
+      return
+ 20   if (y.lt.xmax) dasinh = dlog (y + dsqrt(y*y+1.d0) )
+      if (y.ge.xmax) dasinh = aln2 + dlog(y)
+      dasinh = dsign (dasinh, x)
+      return
+c
+      end
diff --git a/fvn_fnlib/datanh.f b/fvn_fnlib/datanh.f
new file mode 100644
index 0000000..6f921bd
--- /dev/null
+++ b/fvn_fnlib/datanh.f
@@ -0,0 +1,61 @@
+      double precision function datanh (x)
+c june 1977 edition.   w. fullerton, c3, los alamos scientific lab.
+      double precision x, atnhcs(27), dxrel, sqeps, y, dcsevl,
+     1  d1mach, dlog, dsqrt
+      external d1mach, dcsevl, initds
+c
+c series for atnh       on the interval  0.          to  2.50000e-01
+c                                        with weighted error   6.86e-32
+c                                         log weighted error  31.16
+c                               significant figures required  30.00
+c                                    decimal places required  31.88
+c
+      data atnhcs(  1) / +.9439510239 3195492308 4289221863 3 d-1      /
+      data atnhcs(  2) / +.4919843705 5786159472 0003457666 8 d-1      /
+      data atnhcs(  3) / +.2102593522 4554327634 7932733175 2 d-2      /
+      data atnhcs(  4) / +.1073554449 7761165846 4073104527 6 d-3      /
+      data atnhcs(  5) / +.5978267249 2930314786 4278751787 2 d-5      /
+      data atnhcs(  6) / +.3505062030 8891348459 6683488620 0 d-6      /
+      data atnhcs(  7) / +.2126374343 7653403508 9621931443 1 d-7      /
+      data atnhcs(  8) / +.1321694535 7155271921 2980172305 5 d-8      /
+      data atnhcs(  9) / +.8365875501 1780703646 2360405295 9 d-10     /
+      data atnhcs( 10) / +.5370503749 3110021638 8143458777 2 d-11     /
+      data atnhcs( 11) / +.3486659470 1571079229 7124578429 0 d-12     /
+      data atnhcs( 12) / +.2284549509 6034330155 2402411972 2 d-13     /
+      data atnhcs( 13) / +.1508407105 9447930448 7422906755 8 d-14     /
+      data atnhcs( 14) / +.1002418816 8041091261 3699572283 7 d-15     /
+      data atnhcs( 15) / +.6698674738 1650695397 1552688298 6 d-17     /
+      data atnhcs( 16) / +.4497954546 4949310830 8332762453 3 d-18     /
+      data atnhcs( 17) / +.3032954474 2794535416 8236714666 6 d-19     /
+      data atnhcs( 18) / +.2052702064 1909368264 6386141866 6 d-20     /
+      data atnhcs( 19) / +.1393848977 0538377131 9301461333 3 d-21     /
+      data atnhcs( 20) / +.9492580637 2245769719 5895466666 6 d-23     /
+      data atnhcs( 21) / +.6481915448 2423076049 8244266666 6 d-24     /
+      data atnhcs( 22) / +.4436730205 7236152726 3232000000 0 d-25     /
+      data atnhcs( 23) / +.3043465618 5431616389 1200000000 0 d-26     /
+      data atnhcs( 24) / +.2091881298 7923934740 4799999999 9 d-27     /
+      data atnhcs( 25) / +.1440445411 2340505613 6533333333 3 d-28     /
+      data atnhcs( 26) / +.9935374683 1416404650 6666666666 6 d-30     /
+      data atnhcs( 27) / +.6863462444 3582600533 3333333333 3 d-31     /
+c
+      data nterms, dxrel, sqeps / 0, 2*0.d0 /
+c
+      if (nterms.ne.0) go to 10
+      nterms = initds (atnhcs, 27, 0.1*sngl(d1mach(3)) )
+      dxrel = dsqrt (d1mach(4))
+      sqeps = dsqrt (3.0d0*d1mach(3))
+c
+ 10   y = dabs(x)
+      if (y.ge.1.d0) call seteru (20hdatanh  dabs(x) ge 1, 20, 2, 2)
+c
+      if (1.d0-y.lt.dxrel) call seteru (
+     1  59hdatanh  answer lt half precision because dabs(x) too near 1,
+     2  59, 1, 1)
+c
+      datanh = x
+      if (y.gt.sqeps .and. y.le.0.5d0) datanh = x*(1.0d0 +
+     1  dcsevl (8.d0*x*x-1.d0, atnhcs, nterms) )
+      if (y.gt.0.5d0) datanh = 0.5d0*dlog ((1.0d0+x)/(1.0d0-x) )
+c
+      return
+      end
diff --git a/fvn_fnlib/daws.f b/fvn_fnlib/daws.f
new file mode 100644
index 0000000..e2cafd8
--- /dev/null
+++ b/fvn_fnlib/daws.f
@@ -0,0 +1,131 @@
+      function daws (x)
+c may 1980 edition.  w. fullerton c3, los alamos scientific lab.
+      dimension dawcs(13), daw2cs(29), dawacs(26)
+      external  csevl, inits, r1mach
+c
+c series for daw        on the interval  0.          to  1.00000d+00
+c                                        with weighted error   3.83e-17
+c                                         log weighted error  16.42
+c                               significant figures required  15.78
+c                                    decimal places required  16.97
+c
+      data daw cs( 1) /   -.0063517343 75145949e0 /
+      data daw cs( 2) /   -.2294071479 6773869e0 /
+      data daw cs( 3) /    .0221305009 39084764e0 /
+      data daw cs( 4) /   -.0015492654 53892985e0 /
+      data daw cs( 5) /    .0000849732 77156849e0 /
+      data daw cs( 6) /   -.0000038282 66270972e0 /
+      data daw cs( 7) /    .0000001462 85480625e0 /
+      data daw cs( 8) /   -.0000000048 51982381e0 /
+      data daw cs( 9) /    .0000000001 42146357e0 /
+      data daw cs(10) /   -.0000000000 03728836e0 /
+      data daw cs(11) /    .0000000000 00088549e0 /
+      data daw cs(12) /   -.0000000000 00001920e0 /
+      data daw cs(13) /    .0000000000 00000038e0 /
+c
+c series for daw2       on the interval  0.          to  1.60000d+01
+c                                        with weighted error   5.17e-17
+c                                         log weighted error  16.29
+c                               significant figures required  15.90
+c                                    decimal places required  17.02
+c
+      data daw2cs( 1) /   -.0568865441 05215527e0 /
+      data daw2cs( 2) /   -.3181134699 6168131e0 /
+      data daw2cs( 3) /    .2087384541 3642237e0 /
+      data daw2cs( 4) /   -.1247540991 3779131e0 /
+      data daw2cs( 5) /    .0678693051 86676777e0 /
+      data daw2cs( 6) /   -.0336591448 95270940e0 /
+      data daw2cs( 7) /    .0152607812 71987972e0 /
+      data daw2cs( 8) /   -.0063483709 62596214e0 /
+      data daw2cs( 9) /    .0024326740 92074852e0 /
+      data daw2cs(10) /   -.0008621954 14910650e0 /
+      data daw2cs(11) /    .0002837657 33363216e0 /
+      data daw2cs(12) /   -.0000870575 49874170e0 /
+      data daw2cs(13) /    .0000249868 49985481e0 /
+      data daw2cs(14) /   -.0000067319 28676416e0 /
+      data daw2cs(15) /    .0000017078 57878557e0 /
+      data daw2cs(16) /   -.0000004091 75512264e0 /
+      data daw2cs(17) /    .0000000928 28292216e0 /
+      data daw2cs(18) /   -.0000000199 91403610e0 /
+      data daw2cs(19) /    .0000000040 96349064e0 /
+      data daw2cs(20) /   -.0000000008 00324095e0 /
+      data daw2cs(21) /    .0000000001 49385031e0 /
+      data daw2cs(22) /   -.0000000000 26687999e0 /
+      data daw2cs(23) /    .0000000000 04571221e0 /
+      data daw2cs(24) /   -.0000000000 00751873e0 /
+      data daw2cs(25) /    .0000000000 00118931e0 /
+      data daw2cs(26) /   -.0000000000 00018116e0 /
+      data daw2cs(27) /    .0000000000 00002661e0 /
+      data daw2cs(28) /   -.0000000000 00000377e0 /
+      data daw2cs(29) /    .0000000000 00000051e0 /
+c
+c series for dawa       on the interval  0.          to  6.25000d-02
+c                                        with weighted error   2.24e-17
+c                                         log weighted error  16.65
+c                               significant figures required  14.73
+c                                    decimal places required  17.36
+c
+      data dawacs( 1) /    .0169048563 7765704e0 /
+      data dawacs( 2) /    .0086832522 7840695e0 /
+      data dawacs( 3) /    .0002424864 0424177e0 /
+      data dawacs( 4) /    .0000126118 2399572e0 /
+      data dawacs( 5) /    .0000010664 5331463e0 /
+      data dawacs( 6) /    .0000001358 1597947e0 /
+      data dawacs( 7) /    .0000000217 1042356e0 /
+      data dawacs( 8) /    .0000000028 6701050e0 /
+      data dawacs( 9) /   -.0000000001 9013363e0 /
+      data dawacs(10) /   -.0000000003 0977804e0 /
+      data dawacs(11) /   -.0000000001 0294148e0 /
+      data dawacs(12) /   -.0000000000 0626035e0 /
+      data dawacs(13) /    .0000000000 0856313e0 /
+      data dawacs(14) /    .0000000000 0303304e0 /
+      data dawacs(15) /   -.0000000000 0025236e0 /
+      data dawacs(16) /   -.0000000000 0042106e0 /
+      data dawacs(17) /   -.0000000000 0004431e0 /
+      data dawacs(18) /    .0000000000 0004911e0 /
+      data dawacs(19) /    .0000000000 0001235e0 /
+      data dawacs(20) /   -.0000000000 0000578e0 /
+      data dawacs(21) /   -.0000000000 0000228e0 /
+      data dawacs(22) /    .0000000000 0000076e0 /
+      data dawacs(23) /    .0000000000 0000038e0 /
+      data dawacs(24) /   -.0000000000 0000011e0 /
+      data dawacs(25) /   -.0000000000 0000006e0 /
+      data dawacs(26) /    .0000000000 0000002e0 /
+c
+      data ntdaw, ntdaw2, ntdawa, xsml, xbig, xmax / 3*0, 3*0.0 /
+c
+      if (ntdaw.ne.0) go to 10
+      eps = r1mach(3)
+      ntdaw  = inits (dawcs,  13, 0.1*eps)
+      ntdaw2 = inits (daw2cs, 29, 0.1*eps)
+      ntdawa = inits (dawacs, 26, 0.1*eps)
+c
+      xsml = sqrt (1.5*eps)
+      xbig = sqrt (0.5/eps)
+      xmax = exp (amin1 (-alog(2.*r1mach(1)), alog(r1mach(2))) - 0.01)
+c
+ 10   y = abs(x)
+      if (y.gt.1.0) go to 20
+c
+      daws = x
+      if (y.le.xsml) return
+c
+      daws = x * (0.75 + csevl (2.0*y*y-1.0, dawcs, ntdaw))
+      return
+c
+ 20   if (y.gt.4.0) go to 30
+      daws = x * (0.25 + csevl (0.125*y*y-1.0, daw2cs, ntdaw2))
+      return
+c
+ 30   if (y.gt.xmax) go to 40
+      daws = 0.5/x
+      if (y.gt.xbig) return
+c
+      daws = (0.5 + csevl (32.0/y**2-1.0, dawacs, ntdawa)) / x
+      return
+c
+ 40   call seteru (39hdaws    abs(x) so large daws underflows, 39, 1, 0)
+      daws = 0.0
+      return
+c
+      end
diff --git a/fvn_fnlib/dbesi0.f b/fvn_fnlib/dbesi0.f
new file mode 100644
index 0000000..889aad1
--- /dev/null
+++ b/fvn_fnlib/dbesi0.f
@@ -0,0 +1,53 @@
+      double precision function dbesi0 (x)
+c july 1977 edition.  w. fullerton, c3, los alamos scientific lab.
+      double precision x, bi0cs(18), xmax, xsml, y, d1mach,
+     1  dcsevl, dbsi0e, dexp, dlog, dsqrt
+      external d1mach, dbsi0e, dcsevl, initds
+c
+c series for bi0        on the interval  0.          to  9.00000e+00
+c                                        with weighted error   9.51e-34
+c                                         log weighted error  33.02
+c                               significant figures required  33.31
+c                                    decimal places required  33.65
+c
+      data bi0 cs(  1) / -.7660547252 8391449510 8189497624 3285 d-1   /
+      data bi0 cs(  2) / +.1927337953 9938082699 5240875088 1196 d+1   /
+      data bi0 cs(  3) / +.2282644586 9203013389 3702929233 0415 d+0   /
+      data bi0 cs(  4) / +.1304891466 7072904280 7933421069 1888 d-1   /
+      data bi0 cs(  5) / +.4344270900 8164874513 7868268102 6107 d-3   /
+      data bi0 cs(  6) / +.9422657686 0019346639 2317174411 8766 d-5   /
+      data bi0 cs(  7) / +.1434006289 5106910799 6209187817 9957 d-6   /
+      data bi0 cs(  8) / +.1613849069 6617490699 1541971999 4611 d-8   /
+      data bi0 cs(  9) / +.1396650044 5356696994 9509270814 2522 d-10  /
+      data bi0 cs( 10) / +.9579451725 5054453446 2752317189 3333 d-13  /
+      data bi0 cs( 11) / +.5333981859 8625021310 1510774400 0000 d-15  /
+      data bi0 cs( 12) / +.2458716088 4374707746 9678591999 9999 d-17  /
+      data bi0 cs( 13) / +.9535680890 2487700269 4434133333 3333 d-20  /
+      data bi0 cs( 14) / +.3154382039 7214273367 8933333333 3333 d-22  /
+      data bi0 cs( 15) / +.9004564101 0946374314 6666666666 6666 d-25  /
+      data bi0 cs( 16) / +.2240647369 1236700160 0000000000 0000 d-27  /
+      data bi0 cs( 17) / +.4903034603 2428373333 3333333333 3333 d-30  /
+      data bi0 cs( 18) / +.9508172606 1226666666 6666666666 6666 d-33  /
+c
+      data nti0, xsml, xmax / 0, 2*0.d0 /
+c
+      if (nti0.ne.0) go to 10
+      nti0 = initds (bi0cs, 18, 0.1*sngl(d1mach(3)))
+      xsml = dsqrt (8.0d0*d1mach(3))
+      xmax = dlog (d1mach(2))
+c
+ 10   y = dabs(x)
+      if (y.gt.3.0d0) go to 20
+c
+      dbesi0 = 1.0d0
+      if (y.gt.xsml) dbesi0 = 2.75d0 + dcsevl (y*y/4.5d0-1.d0, bi0cs,
+     1  nti0)
+      return
+c
+ 20   if (y.gt.xmax) call seteru (
+     1  35hdbesi0  dabs(x) so big i0 overflows, 35, 2, 2)
+c
+      dbesi0 = dexp(y) * dbsi0e(x)
+c
+      return
+      end
diff --git a/fvn_fnlib/dbesi1.f b/fvn_fnlib/dbesi1.f
new file mode 100644
index 0000000..0c49037
--- /dev/null
+++ b/fvn_fnlib/dbesi1.f
@@ -0,0 +1,58 @@
+      double precision function dbesi1 (x)
+c oct 1983 edition.  w. fullerton, c3, los alamos scientific lab.
+      double precision x, bi1cs(17), xmax, xmin, xsml, y, d1mach,
+     1  dcsevl, dbsi1e, dexp, dlog, dsqrt
+      external d1mach, dbsi1e, dcsevl, initds
+c
+c series for bi1        on the interval  0.          to  9.00000e+00
+c                                        with weighted error   1.44e-32
+c                                         log weighted error  31.84
+c                               significant figures required  31.45
+c                                    decimal places required  32.46
+c
+      data bi1 cs(  1) / -.1971713261 0998597316 1385032181 49 d-2     /
+      data bi1 cs(  2) / +.4073488766 7546480608 1553936520 14 d+0     /
+      data bi1 cs(  3) / +.3483899429 9959455866 2450377837 87 d-1     /
+      data bi1 cs(  4) / +.1545394556 3001236038 5984010584 89 d-2     /
+      data bi1 cs(  5) / +.4188852109 8377784129 4588320041 20 d-4     /
+      data bi1 cs(  6) / +.7649026764 8362114741 9597039660 69 d-6     /
+      data bi1 cs(  7) / +.1004249392 4741178689 1798080372 38 d-7     /
+      data bi1 cs(  8) / +.9932207791 9238106481 3712980548 63 d-10    /
+      data bi1 cs(  9) / +.7663801791 8447637275 2001716813 49 d-12    /
+      data bi1 cs( 10) / +.4741418923 8167394980 3880919481 60 d-14    /
+      data bi1 cs( 11) / +.2404114404 0745181799 8631720320 00 d-16    /
+      data bi1 cs( 12) / +.1017150500 7093713649 1211007999 99 d-18    /
+      data bi1 cs( 13) / +.3645093565 7866949458 4917333333 33 d-21    /
+      data bi1 cs( 14) / +.1120574950 2562039344 8106666666 66 d-23    /
+      data bi1 cs( 15) / +.2987544193 4468088832 0000000000 00 d-26    /
+      data bi1 cs( 16) / +.6973231093 9194709333 3333333333 33 d-29    /
+      data bi1 cs( 17) / +.1436794822 0620800000 0000000000 00 d-31    /
+c
+      data nti1, xmin, xsml, xmax / 0, 3*0.d0 /
+c
+      if (nti1.ne.0) go to 10
+      nti1 = initds (bi1cs, 17, 0.1*sngl(d1mach(3)))
+      xmin = 2.0d0*d1mach(1)
+      xsml = dsqrt (8.0d0*d1mach(3))
+      xmax = dlog (d1mach(2))
+c
+ 10   y = dabs(x)
+      if (y.gt.3.0d0) go to 20
+c
+      dbesi1 = 0.0d0
+      if (y.eq.0.0d0) return
+c
+      if (y.le.xmin) call seteru (
+     1  38hdbesi1  dabs(x) so small i1 underflows, 38, 1, 0)
+      if (y.gt.xmin) dbesi1 = 0.5d0*x
+      if (y.gt.xsml) dbesi1 = x*(0.875d0 + dcsevl (y*y/4.5d0-1.d0,
+     1  bi1cs, nti1))
+      return
+c
+ 20   if (y.gt.xmax) call seteru (
+     1  35hdbesi1  dabs(x) so big i1 overflows, 35, 2, 2)
+c
+      dbesi1 = dexp(y) * dbsi1e(x)
+c
+      return
+      end
diff --git a/fvn_fnlib/dbesj0.f b/fvn_fnlib/dbesj0.f
new file mode 100644
index 0000000..4351f32
--- /dev/null
+++ b/fvn_fnlib/dbesj0.f
@@ -0,0 +1,50 @@
+      double precision function dbesj0 (x)
+c july 1977 edition.  w. fullerton, c3, los alamos scientific lab.
+      double precision x, bj0cs(19), ampl, theta, xsml, y,
+     1  d1mach, dcsevl, dcos, dsqrt
+      external d1mach,  dcsevl, initds
+c
+c series for bj0        on the interval  0.          to  1.60000e+01
+c                                        with weighted error   4.39e-32
+c                                         log weighted error  31.36
+c                               significant figures required  31.21
+c                                    decimal places required  32.00
+c
+      data bj0 cs(  1) / +.1002541619 6893913701 0731272640 74 d+0     /
+      data bj0 cs(  2) / -.6652230077 6440513177 6787578311 24 d+0     /
+      data bj0 cs(  3) / +.2489837034 9828131370 4604687266 80 d+0     /
+      data bj0 cs(  4) / -.3325272317 0035769653 8843415038 54 d-1     /
+      data bj0 cs(  5) / +.2311417930 4694015462 9049241177 29 d-2     /
+      data bj0 cs(  6) / -.9911277419 9508092339 0485193365 49 d-4     /
+      data bj0 cs(  7) / +.2891670864 3998808884 7339037470 78 d-5     /
+      data bj0 cs(  8) / -.6121085866 3032635057 8184074815 16 d-7     /
+      data bj0 cs(  9) / +.9838650793 8567841324 7687486364 15 d-9     /
+      data bj0 cs( 10) / -.1242355159 7301765145 5158970068 36 d-10    /
+      data bj0 cs( 11) / +.1265433630 2559045797 9158272103 63 d-12    /
+      data bj0 cs( 12) / -.1061945649 5287244546 9148175129 59 d-14    /
+      data bj0 cs( 13) / +.7470621075 8024567437 0989155840 00 d-17    /
+      data bj0 cs( 14) / -.4469703227 4412780547 6270079999 99 d-19    /
+      data bj0 cs( 15) / +.2302428158 4337436200 5230933333 33 d-21    /
+      data bj0 cs( 16) / -.1031914479 4166698148 5226666666 66 d-23    /
+      data bj0 cs( 17) / +.4060817827 4873322700 8000000000 00 d-26    /
+      data bj0 cs( 18) / -.1414383600 5240913919 9999999999 99 d-28    /
+      data bj0 cs( 19) / +.4391090549 6698880000 0000000000 00 d-31    /
+c
+      data ntj0, xsml / 0, 0.d0 /
+c
+      if (ntj0.ne.0) go to 10
+      ntj0 = initds (bj0cs, 19, 0.1*sngl(d1mach(3)))
+      xsml = dsqrt (4.0d0*d1mach(3))
+c
+ 10   y = dabs(x)
+      if (y.gt.4.0d0) go to 20
+c
+      dbesj0 = 1.0d0
+      if (y.gt.xsml) dbesj0 = dcsevl (.125d0*y*y-1.d0, bj0cs, ntj0)
+      return
+c
+ 20   call d9b0mp (y, ampl, theta)
+      dbesj0 = ampl * dcos(theta)
+c
+      return
+      end
diff --git a/fvn_fnlib/dbesj1.f b/fvn_fnlib/dbesj1.f
new file mode 100644
index 0000000..9d2ed15
--- /dev/null
+++ b/fvn_fnlib/dbesj1.f
@@ -0,0 +1,59 @@
+      double precision function dbesj1 (x)
+c sept 1983 edition.  w. fullerton, c3, los alamos scientific lab.
+c apr 1991  bug fix by boisvert@cam.nist.gov
+      double precision x, bj1cs(19), ampl, theta, xsml, xmin, y,
+     1  d1mach, dcsevl, dcos, dsqrt
+      external d1mach, dcsevl,  initds
+c
+c series for bj1        on the interval  0.          to  1.60000e+01
+c                                        with weighted error   1.16e-33
+c                                         log weighted error  32.93
+c                               significant figures required  32.36
+c                                    decimal places required  33.57
+c
+      data bj1 cs(  1) / -.1172614151 3332786560 6240574524 003 d+0    /
+      data bj1 cs(  2) / -.2536152183 0790639562 3030884554 698 d+0    /
+      data bj1 cs(  3) / +.5012708098 4469568505 3656363203 743 d-1    /
+      data bj1 cs(  4) / -.4631514809 6250819184 2619728789 772 d-2    /
+      data bj1 cs(  5) / +.2479962294 1591402453 9124064592 364 d-3    /
+      data bj1 cs(  6) / -.8678948686 2788258452 1246435176 416 d-5    /
+      data bj1 cs(  7) / +.2142939171 4379369150 2766250991 292 d-6    /
+      data bj1 cs(  8) / -.3936093079 1831797922 9322764073 061 d-8    /
+      data bj1 cs(  9) / +.5591182317 9468800401 8248059864 032 d-10   /
+      data bj1 cs( 10) / -.6327616404 6613930247 7695274014 880 d-12   /
+      data bj1 cs( 11) / +.5840991610 8572470032 6945563268 266 d-14   /
+      data bj1 cs( 12) / -.4482533818 7012581903 9135059199 999 d-16   /
+      data bj1 cs( 13) / +.2905384492 6250246630 6018688000 000 d-18   /
+      data bj1 cs( 14) / -.1611732197 8414416541 2118186666 666 d-20   /
+      data bj1 cs( 15) / +.7739478819 3927463729 8346666666 666 d-23   /
+      data bj1 cs( 16) / -.3248693782 1119984114 3466666666 666 d-25   /
+      data bj1 cs( 17) / +.1202237677 2274102272 0000000000 000 d-27   /
+      data bj1 cs( 18) / -.3952012212 6513493333 3333333333 333 d-30   /
+      data bj1 cs( 19) / +.1161678082 2664533333 3333333333 333 d-32   /
+c
+      data ntj1, xsml, xmin / 0, 2*0.d0 /
+c
+      if (ntj1.ne.0) go to 10
+      ntj1 = initds (bj1cs, 19, 0.1*sngl(d1mach(3)))
+c
+      xsml = dsqrt (4.0d0*d1mach(3))
+      xmin = 2.0d0*d1mach(1)
+c
+ 10   y = dabs(x)
+      if (y.gt.4.0d0) go to 20
+c
+      dbesj1 = 0.0d0
+      if (y.eq.0.0d0) return
+c
+      if (y.le.xmin) call seteru (
+     1  38hdbesj1  dabs(x) so small j1 underflows, 38, 1, 0)
+      if (y.gt.xmin) dbesj1 = 0.5d0*x
+      if (y.gt.xsml) dbesj1 = x*(.25d0 + dcsevl (.125d0*y*y-1.d0,
+     1  bj1cs, ntj1) )
+      return
+c
+ 20   call d9b1mp (y, ampl, theta)
+      dbesj1 = sign(ampl,x) * dcos(theta)
+c
+      return
+      end
diff --git a/fvn_fnlib/dbesk0.f b/fvn_fnlib/dbesk0.f
new file mode 100644
index 0000000..732d287
--- /dev/null
+++ b/fvn_fnlib/dbesk0.f
@@ -0,0 +1,56 @@
+      double precision function dbesk0 (x)
+c july 1977 edition.  w. fullerton, c3, los alamos scientific lab.
+      double precision x, bk0cs(16), xmax, xsml, y,
+     1  d1mach, dcsevl, dbesi0, dbsk0e, dexp, dlog, dsqrt
+      external d1mach, dbesi0, dbsk0e, dcsevl, initds
+c
+c series for bk0        on the interval  0.          to  4.00000e+00
+c                                        with weighted error   3.08e-33
+c                                         log weighted error  32.51
+c                               significant figures required  32.05
+c                                    decimal places required  33.11
+c
+      data bk0 cs(  1) / -.3532739323 3902768720 1140060063 153 d-1    /
+      data bk0 cs(  2) / +.3442898999 2462848688 6344927529 213 d+0    /
+      data bk0 cs(  3) / +.3597993651 5361501626 5721303687 231 d-1    /
+      data bk0 cs(  4) / +.1264615411 4469259233 8479508673 447 d-2    /
+      data bk0 cs(  5) / +.2286212103 1194517860 8269830297 585 d-4    /
+      data bk0 cs(  6) / +.2534791079 0261494573 0790013428 354 d-6    /
+      data bk0 cs(  7) / +.1904516377 2202088589 7214059381 366 d-8    /
+      data bk0 cs(  8) / +.1034969525 7633624585 1008317853 089 d-10   /
+      data bk0 cs(  9) / +.4259816142 7910825765 2445327170 133 d-13   /
+      data bk0 cs( 10) / +.1374465435 8807508969 4238325440 000 d-15   /
+      data bk0 cs( 11) / +.3570896528 5083735909 9688597333 333 d-18   /
+      data bk0 cs( 12) / +.7631643660 1164373766 7498666666 666 d-21   /
+      data bk0 cs( 13) / +.1365424988 4407818590 8053333333 333 d-23   /
+      data bk0 cs( 14) / +.2075275266 9066680831 9999999999 999 d-26   /
+      data bk0 cs( 15) / +.2712814218 0729856000 0000000000 000 d-29   /
+      data bk0 cs( 16) / +.3082593887 9146666666 6666666666 666 d-32   /
+c
+      data ntk0, xsml, xmax / 0, 2*0.d0 /
+c
+      if (ntk0.ne.0) go to 10
+      ntk0 = initds (bk0cs, 16, 0.1*sngl(d1mach(3)))
+      xsml = dsqrt (4.0d0*d1mach(3))
+      xmax = -dlog(d1mach(1))
+      xmax = xmax - 0.5d0*xmax*dlog(xmax)/(xmax+0.5d0)
+c
+ 10   if (x.le.0.d0) call seteru (29hdbesk0  x is zero or negative,
+     1  29, 2, 2)
+      if (x.gt.2.0d0) go to 20
+c
+      y = 0.d0
+      if (x.gt.xsml) y = x*x
+      dbesk0 = -dlog(0.5d0*x)*dbesi0(x) - 0.25d0 + dcsevl (.5d0*y-1.d0,
+     1  bk0cs, ntk0)
+      return
+c
+ 20   dbesk0 = 0.d0
+      if (x.gt.xmax) call seteru (30hdbesk0  x so big k0 underflows,
+     1  30, 1, 0)
+      if (x.gt.xmax) return
+c
+      dbesk0 = dexp(-x) * dbsk0e(x)
+c
+      return
+      end
diff --git a/fvn_fnlib/dbesk1.f b/fvn_fnlib/dbesk1.f
new file mode 100644
index 0000000..8a5724b
--- /dev/null
+++ b/fvn_fnlib/dbesk1.f
@@ -0,0 +1,59 @@
+      double precision function dbesk1 (x)
+c july 1980 edition.  w. fullerton, c3, los alamos scientific lab.
+      double precision x, bk1cs(16), xmax, xmin, xsml, y,
+     1  d1mach, dcsevl, dbesi1, dbsk1e, dexp, dlog, dsqrt
+      external d1mach, dbesi1, dbsk1e, dcsevl, initds
+c
+c series for bk1        on the interval  0.          to  4.00000e+00
+c                                        with weighted error   9.16e-32
+c                                         log weighted error  31.04
+c                               significant figures required  30.61
+c                                    decimal places required  31.64
+c
+      data bk1 cs(  1) / +.2530022733 8947770532 5311208685 33 d-1     /
+      data bk1 cs(  2) / -.3531559607 7654487566 7238316918 01 d+0     /
+      data bk1 cs(  3) / -.1226111808 2265714823 4790679300 42 d+0     /
+      data bk1 cs(  4) / -.6975723859 6398643501 8129202960 83 d-2     /
+      data bk1 cs(  5) / -.1730288957 5130520630 1765073689 79 d-3     /
+      data bk1 cs(  6) / -.2433406141 5659682349 6007350301 64 d-5     /
+      data bk1 cs(  7) / -.2213387630 7347258558 3152525451 26 d-7     /
+      data bk1 cs(  8) / -.1411488392 6335277610 9583302126 08 d-9     /
+      data bk1 cs(  9) / -.6666901694 1993290060 8537512643 73 d-12    /
+      data bk1 cs( 10) / -.2427449850 5193659339 2631968648 53 d-14    /
+      data bk1 cs( 11) / -.7023863479 3862875971 7837971200 00 d-17    /
+      data bk1 cs( 12) / -.1654327515 5100994675 4910293333 33 d-19    /
+      data bk1 cs( 13) / -.3233834745 9944491991 8933333333 33 d-22    /
+      data bk1 cs( 14) / -.5331275052 9265274999 4666666666 66 d-25    /
+      data bk1 cs( 15) / -.7513040716 2157226666 6666666666 66 d-28    /
+      data bk1 cs( 16) / -.9155085717 6541866666 6666666666 66 d-31    /
+c
+      data ntk1, xmin, xsml, xmax / 0, 3*0.d0 /
+c
+      if (ntk1.ne.0) go to 10
+      ntk1 = initds (bk1cs, 16, 0.1*sngl(d1mach(3)))
+      xmin = dexp (dmax1(dlog(d1mach(1)), -dlog(d1mach(2))) + 0.01d0)
+      xsml = dsqrt (4.0d0*d1mach(3))
+      xmax = -dlog(d1mach(1))
+      xmax = xmax - 0.5d0*xmax*dlog(xmax)/(xmax+0.5d0) - 0.01d0
+c
+ 10   if (x.le.0.d0) call seteru (29hdbesk1  x is zero or negative,
+     1  29, 2, 2)
+      if (x.gt.2.0d0) go to 20
+c
+      if (x.lt.xmin) call seteru (31hdbesk1  x so small k1 overflows,
+     1  31, 3, 2)
+      y = 0.d0
+      if (x.gt.xsml) y = x*x
+      dbesk1 = dlog(0.5d0*x)*dbesi1(x) + (0.75d0 + dcsevl (.5d0*y-1.d0,
+     1  bk1cs, ntk1))/x
+      return
+c
+ 20   dbesk1 = 0.d0
+      if (x.gt.xmax) call seteru (30hdbesk1  x so big k1 underflows,
+     1  30, 1, 0)
+      if (x.gt.xmax) return
+c
+      dbesk1 = dexp(-x) * dbsk1e(x)
+c
+      return
+      end
diff --git a/fvn_fnlib/dbesks.f b/fvn_fnlib/dbesks.f
new file mode 100644
index 0000000..698d904
--- /dev/null
+++ b/fvn_fnlib/dbesks.f
@@ -0,0 +1,23 @@
+      subroutine dbesks (xnu, x, nin, bk)
+c july 1980 edition.   w. fullerton, c3, los alamos scientific lab.
+      double precision xnu, x, bk(1), expxi, xmax, d1mach, dexp, dlog
+      external d1mach
+      data xmax / 0.d0 /
+c
+      if (xmax.ne.0.0d0) go to 10
+      xmax = -dlog(d1mach(1))
+      xmax = xmax + 0.5d0*dlog(3.14d0*0.5d0/xmax)
+c
+ 10   if (x.gt.xmax) call seteru (
+     1  36hdbesks  x so big bessel k underflows, 36, 1, 2)
+c
+      call dbskes (xnu, x, nin, bk)
+c
+      expxi = dexp (-x)
+      n = iabs (nin)
+      do 20 i=1,n
+        bk(i) = expxi * bk(i)
+ 20   continue
+c
+      return
+      end
diff --git a/fvn_fnlib/dbesy0.f b/fvn_fnlib/dbesy0.f
new file mode 100644
index 0000000..6eda53a
--- /dev/null
+++ b/fvn_fnlib/dbesy0.f
@@ -0,0 +1,55 @@
+      double precision function dbesy0 (x)
+c august 1980 edition.  w. fullerton, c3, los alamos scientific lab.
+      double precision x, by0cs(19), ampl, theta, twodpi, xsml,
+     1  y, alnhaf, d1mach, dcsevl, dbesj0, dlog, dsin, dsqrt
+      external d1mach, dbesj0, dcsevl,  initds
+c
+c series for by0        on the interval  0.          to  1.60000e+01
+c                                        with weighted error   8.14e-32
+c                                         log weighted error  31.09
+c                               significant figures required  30.31
+c                                    decimal places required  31.73
+c
+      data by0 cs(  1) / -.1127783939 2865573217 9398054602 8 d-1      /
+      data by0 cs(  2) / -.1283452375 6042034604 8088453183 8 d+0      /
+      data by0 cs(  3) / -.1043788479 9794249365 8176227661 8 d+0      /
+      data by0 cs(  4) / +.2366274918 3969695409 2415926461 3 d-1      /
+      data by0 cs(  5) / -.2090391647 7004862391 9622395034 2 d-2      /
+      data by0 cs(  6) / +.1039754539 3905725209 9924657638 1 d-3      /
+      data by0 cs(  7) / -.3369747162 4239720967 1877534503 7 d-5      /
+      data by0 cs(  8) / +.7729384267 6706671585 2136721637 1 d-7      /
+      data by0 cs(  9) / -.1324976772 6642595914 4347606896 4 d-8      /
+      data by0 cs( 10) / +.1764823261 5404527921 0038936315 8 d-10     /
+      data by0 cs( 11) / -.1881055071 5801962006 0282301206 9 d-12     /
+      data by0 cs( 12) / +.1641865485 3661495027 9223718574 9 d-14     /
+      data by0 cs( 13) / -.1195659438 6046060857 4599100672 0 d-16     /
+      data by0 cs( 14) / +.7377296297 4401858424 9411242666 6 d-19     /
+      data by0 cs( 15) / -.3906843476 7104373307 4090666666 6 d-21     /
+      data by0 cs( 16) / +.1795503664 4361579498 2912000000 0 d-23     /
+      data by0 cs( 17) / -.7229627125 4480104789 3333333333 3 d-26     /
+      data by0 cs( 18) / +.2571727931 6351685973 3333333333 3 d-28     /
+      data by0 cs( 19) / -.8141268814 1636949333 3333333333 3 d-31     /
+c
+      data twodpi / 0.6366197723 6758134307 5535053490 057 d0 /
+      data alnhaf /-0.6931471805 5994530941 7232121458 18d0 /
+      data nty0, xsml / 0, 0.d0 /
+c
+      if (nty0.ne.0) go to 10
+      nty0 = initds (by0cs, 19, 0.1*sngl(d1mach(3)))
+      xsml = dsqrt (4.0d0*d1mach(3))
+c
+ 10   if (x.le.0.d0) call seteru (29hdbesy0  x is zero or negative, 29,
+     1  1, 2)
+      if (x.gt.4.0d0) go to 20
+c
+      y = 0.d0
+      if (x.gt.xsml) y = x*x
+      dbesy0 = twodpi*(alnhaf+dlog(x))*dbesj0(x) + .375d0
+     1  + dcsevl (.125d0*y-1.d0, by0cs, nty0)
+      return
+c
+ 20   call d9b0mp (x, ampl, theta)
+      dbesy0 = ampl * dsin(theta)
+      return
+c
+      end
diff --git a/fvn_fnlib/dbesy1.f b/fvn_fnlib/dbesy1.f
new file mode 100644
index 0000000..354f991
--- /dev/null
+++ b/fvn_fnlib/dbesy1.f
@@ -0,0 +1,60 @@
+      double precision function dbesy1 (x)
+c july 1977 edition.  w. fullerton, c3, los alamos scientific lab.
+      double precision x, by1cs(20), ampl, theta, twodpi, xmin, xsml,
+     1  y, d1mach, dcsevl, dbesj1, dexp, dlog, dsin, dsqrt
+      external d1mach, dbesj1, dcsevl, initds
+c
+c series for by1        on the interval  0.          to  1.60000e+01
+c                                        with weighted error   8.65e-33
+c                                         log weighted error  32.06
+c                               significant figures required  32.17
+c                                    decimal places required  32.71
+c
+      data by1 cs(  1) / +.3208047100 6119086293 2352018628 015 d-1    /
+      data by1 cs(  2) / +.1262707897 4335004495 3431725999 727 d+1    /
+      data by1 cs(  3) / +.6499961899 9231750009 7490637314 144 d-2    /
+      data by1 cs(  4) / -.8936164528 8605041165 3144160009 712 d-1    /
+      data by1 cs(  5) / +.1325088122 1757095451 2375510370 043 d-1    /
+      data by1 cs(  6) / -.8979059119 6483523775 3039508298 105 d-3    /
+      data by1 cs(  7) / +.3647361487 9583067824 2287368165 349 d-4    /
+      data by1 cs(  8) / -.1001374381 6660005554 9075523845 295 d-5    /
+      data by1 cs(  9) / +.1994539657 3901739703 1159372421 243 d-7    /
+      data by1 cs( 10) / -.3023065601 8033816728 4799332520 743 d-9    /
+      data by1 cs( 11) / +.3609878156 9478119611 6252914242 474 d-11   /
+      data by1 cs( 12) / -.3487488297 2875824241 4552947409 066 d-13   /
+      data by1 cs( 13) / +.2783878971 5591766581 3507698517 333 d-15   /
+      data by1 cs( 14) / -.1867870968 6194876876 6825352533 333 d-17   /
+      data by1 cs( 15) / +.1068531533 9116825975 7070336000 000 d-19   /
+      data by1 cs( 16) / -.5274721956 6844822894 3872000000 000 d-22   /
+      data by1 cs( 17) / +.2270199403 1556641437 0133333333 333 d-24   /
+      data by1 cs( 18) / -.8595390353 9452310869 3333333333 333 d-27   /
+      data by1 cs( 19) / +.2885404379 8337945600 0000000000 000 d-29   /
+      data by1 cs( 20) / -.8647541138 9371733333 3333333333 333 d-32   /
+c
+      data twodpi / 0.6366197723 6758134307 5535053490 057 d0 /
+      data nty1, xmin, xsml / 0, 2*0.d0 /
+c
+      if (nty1.ne.0) go to 10
+      nty1 = initds (by1cs, 20, 0.1*sngl(d1mach(3)))
+c
+      xmin = 1.571d0 * dexp (dmax1(dlog(d1mach(1)), -dlog(d1mach(2))) +
+     1  0.01d0)
+      xsml = dsqrt (4.0d0*d1mach(3))
+c
+ 10   if (x.le.0.d0) call seteru (29hdbesy1  x is zero or negative, 29,
+     1  1, 2)
+      if (x.gt.4.0d0) go to 20
+c
+      if (x.lt.xmin) call seteru (31hdbesy1  x so small y1 overflows,
+     1  31, 3, 2)
+      y = 0.d0
+      if (x.gt.xsml) y = x*x
+      dbesy1 = twodpi * dlog(0.5d0*x)*dbesj1(x) + (0.5d0 +
+     1  dcsevl (.125d0*y-1.d0, by1cs, nty1))/x
+      return
+c
+ 20   call d9b1mp (x, ampl, theta)
+      dbesy1 = ampl * dsin(theta)
+      return
+c
+      end
diff --git a/fvn_fnlib/dbeta.f b/fvn_fnlib/dbeta.f
new file mode 100644
index 0000000..3aff14d
--- /dev/null
+++ b/fvn_fnlib/dbeta.f
@@ -0,0 +1,28 @@
+      double precision function dbeta (a, b)
+c june 1977 edition.   w. fullerton, c3, los alamos scientific lab.
+      double precision a, b, alnsml, xmax, xmin,
+     1  d1mach, dexp, dgamma, dlbeta, dlog
+      external d1mach, dgamma, dlbeta
+      data xmax, alnsml / 0.d0, 0.d0 /
+c
+      if (xmax.ne.0.d0) go to 10
+      call d9gaml (xmin, xmax)
+      alnsml = dlog (d1mach(1))
+c
+ 10   if (a.le.0.d0 .or. b.le.0.d0) call seteru (
+     1  35hdbeta   both arguments must be gt 0, 35, 2, 2)
+c
+      if (a+b.lt.xmax) dbeta = dgamma(a)*dgamma(b)/dgamma(a+b)
+      if (a+b.lt.xmax) return
+c
+      dbeta = dlbeta (a, b)
+      if (dbeta.lt.alnsml) go to 20
+      dbeta = dexp (dbeta)
+      return
+c
+ 20   dbeta = 0.d0
+      call seteru (41hdbeta   a and/or b so big beta underflows, 41, 1,
+     1  1)
+      return
+c
+      end
diff --git a/fvn_fnlib/dbetai.f b/fvn_fnlib/dbetai.f
new file mode 100644
index 0000000..49e5fae
--- /dev/null
+++ b/fvn_fnlib/dbetai.f
@@ -0,0 +1,96 @@
+      double precision function dbetai (x, pin, qin)
+c august 1980 edition.  w. fullerton, c3, los alamos scientific lab.
+c based on bosten and battiste, remark on algorithm 179, comm. acm,
+c v 17, p 153, (1974).
+c
+c             input arguments --
+c x      upper limit of integration.  x must be in (0,1) inclusive.
+c p      first beta distribution parameter.  p must be gt 0.0.
+c q      second beta distribution parameter.  q must be gt 0.0.
+c betai  the incomplete beta function ratio is the probability that a
+c        random variable from a beta distribution having parameters
+c        p and q will be less than or equal to x.
+c
+      double precision x, pin, qin, alneps, alnsml, c, eps, finsum, p,
+     1  ps, p1, q, sml, term, xb, xi, y, dint, d1mach, dlbeta,
+     2  dexp, dlog
+      external d1mach,  dlbeta
+      data eps, alneps, sml, alnsml / 4*0.0d0 /
+c
+      if (eps.ne.0.0d0) go to 10
+      eps = d1mach(3)
+      alneps = dlog (eps)
+      sml = d1mach(1)
+      alnsml = dlog (sml)
+c
+ 10   if (x.lt.0.d0 .or. x.gt.1.d0) call seteru (
+     1  35hdbetai  x is not in the range (0,1), 35, 1, 2)
+      if (pin.le.0.d0 .or. qin.le.0.d0) call seteru (
+     1  29hdbetai  a and/or b is le zero, 29, 2, 2)
+c
+      y = x
+      p = pin
+      q = qin
+      if (q.le.p .and. x.lt.0.8d0) go to 20
+      if (x.lt.0.2d0) go to 20
+      y = 1.0d0 - y
+      p = qin
+      q = pin
+c
+ 20   if ((p+q)*y/(p+1.d0).lt.eps) go to 80
+c
+c evaluate the infinite sum first.  term will equal
+c y**p/beta(ps,p) * (1.-ps)-sub-i * y**i / fac(i) .
+c
+      ps = q - dint(q)
+      if (ps.eq.0.d0) ps = 1.0d0
+      xb = p*dlog(y) - dlbeta(ps,p) - dlog(p)
+      dbetai = 0.0d0
+      if (xb.lt.alnsml) go to 40
+c
+      dbetai = dexp (xb)
+      term = dbetai*p
+      if (ps.eq.1.0d0) go to 40
+      n = max1 (sngl(alneps/dlog(y)), 4.0)
+      do 30 i=1,n
+        xi = i
+        term = term * (xi-ps)*y/xi
+        dbetai = dbetai + term/(p+xi)
+ 30   continue
+c
+c now evaluate the finite sum, maybe.
+c
+ 40   if (q.le.1.0d0) go to 70
+c
+      xb = p*dlog(y) + q*dlog(1.0d0-y) - dlbeta(p,q) - dlog(q)
+      ib = max1 (sngl(xb/alnsml), 0.0)
+      term = dexp (xb - dble(float(ib))*alnsml )
+      c = 1.0d0/(1.d0-y)
+      p1 = q*c/(p+q-1.d0)
+c
+      finsum = 0.0d0
+      n = q
+      if (q.eq.dble(float(n))) n = n - 1
+      do 50 i=1,n
+        if (p1.le.1.0d0 .and. term/eps.le.finsum) go to 60
+        xi = i
+        term = (q-xi+1.0d0)*c*term/(p+q-xi)
+c
+        if (term.gt.1.0d0) ib = ib - 1
+        if (term.gt.1.0d0) term = term*sml
+c
+        if (ib.eq.0) finsum = finsum + term
+ 50   continue
+c
+ 60   dbetai = dbetai + finsum
+ 70   if (y.ne.x .or. p.ne.pin) dbetai = 1.0d0 - dbetai
+      dbetai = dmax1 (dmin1 (dbetai, 1.0d0), 0.0d0)
+      return
+c
+ 80   dbetai = 0.0d0
+      xb = p*dlog(dmax1(y,sml)) - dlog(p) - dlbeta(p,q)
+      if (xb.gt.alnsml .and. y.ne.0.0d0) dbetai = dexp(xb)
+      if (y.ne.x .or. p.ne.pin) dbetai = 1.0d0 - dbetai
+c
+      return
+      end
diff --git a/fvn_fnlib/dbi.f b/fvn_fnlib/dbi.f
new file mode 100644
index 0000000..87817a6
--- /dev/null
+++ b/fvn_fnlib/dbi.f
@@ -0,0 +1,128 @@
+      double precision function dbi (x)
+c july 1977 edition.  w. fullerton, c3, los alamos scientific lab.
+      double precision x, bifcs(13), bigcs(13), bif2cs(15), big2cs(15),
+     1  theta, xm, xmax, x3sml, z,  d1mach, dcsevl, dbie, dexp,
+     2  dlog, dsin, dsqrt
+      external d1mach, dbie, dcsevl,  initds
+c
+c series for bif        on the interval -1.00000e+00 to  1.00000e+00
+c                                        with weighted error   1.45e-32
+c                                         log weighted error  31.84
+c                               significant figures required  30.85
+c                                    decimal places required  32.40
+c
+      data bif cs(  1) / -.1673021647 1986649483 5374239281 76 d-1     /
+      data bif cs(  2) / +.1025233583 4249445611 4263627777 57 d+0     /
+      data bif cs(  3) / +.1708309250 7381516539 4296502420 13 d-2     /
+      data bif cs(  4) / +.1186254546 7744681179 2164592100 40 d-4     /
+      data bif cs(  5) / +.4493290701 7792133694 5318879272 42 d-7     /
+      data bif cs(  6) / +.1069820714 3387889067 5677676636 28 d-9     /
+      data bif cs(  7) / +.1748064339 9771824706 0105176285 73 d-12    /
+      data bif cs(  8) / +.2081023107 1761711025 8818918343 99 d-15    /
+      data bif cs(  9) / +.1884981469 5665416509 9279717333 33 d-18    /
+      data bif cs( 10) / +.1342577917 3097804625 8826666666 66 d-21    /
+      data bif cs( 11) / +.7715959342 9658887893 3333333333 33 d-25    /
+      data bif cs( 12) / +.3653387961 7478566399 9999999999 99 d-28    /
+      data bif cs( 13) / +.1449756592 7953066666 6666666666 66 d-31    /
+c
+c series for big        on the interval -1.00000e+00 to  1.00000e+00
+c                                        with weighted error   1.29e-33
+c                                         log weighted error  32.89
+c                               significant figures required  31.48
+c                                    decimal places required  33.45
+c
+      data big cs(  1) / +.2246622324 8574522283 4682201390 24 d-1     /
+      data big cs(  2) / +.3736477545 3019545441 7275616667 52 d-1     /
+      data big cs(  3) / +.4447621895 7212285696 2152943266 39 d-3     /
+      data big cs(  4) / +.2470807563 6329384245 4945919488 82 d-5     /
+      data big cs(  5) / +.7919135339 5149635134 8624262855 96 d-8     /
+      data big cs(  6) / +.1649807985 1827779880 8878724027 06 d-10    /
+      data big cs(  7) / +.2411990666 4835455909 2475011228 41 d-13    /
+      data big cs(  8) / +.2610373623 6091436985 1847812693 33 d-16    /
+      data big cs(  9) / +.2175308297 7160323853 1237920000 00 d-19    /
+      data big cs( 10) / +.1438694640 0390433219 4837333333 33 d-22    /
+      data big cs( 11) / +.7734912561 2083468629 3333333333 33 d-26    /
+      data big cs( 12) / +.3446929203 3849002666 6666666666 66 d-29    /
+      data big cs( 13) / +.1293891927 3216000000 0000000000 00 d-32    /
+c
+c series for bif2       on the interval  1.00000e+00 to  8.00000e+00
+c                                        with weighted error   6.08e-32
+c                                         log weighted error  31.22
+c                        approx significant figures required  30.8
+c                                    decimal places required  31.80
+c
+      data bif2cs(  1) / +.0998457269 3816041044 6828425799 3 d+0      /
+      data bif2cs(  2) / +.4786249778 6300553772 2114673182 31 d+0     /
+      data bif2cs(  3) / +.2515521196 0433011771 3244154366 75 d-1     /
+      data bif2cs(  4) / +.5820693885 2326456396 5156978722 16 d-3     /
+      data bif2cs(  5) / +.7499765964 4377865943 8614573782 17 d-5     /
+      data bif2cs(  6) / +.6134602870 3493836681 4030103564 74 d-7     /
+      data bif2cs(  7) / +.3462753885 1480632900 4342687333 59 d-9     /
+      data bif2cs(  8) / +.1428891008 0270254287 7708467489 31 d-11    /
+      data bif2cs(  9) / +.4496270429 8334641895 0564721792 00 d-14    /
+      data bif2cs( 10) / +.1114232306 5833011708 4283001066 66 d-16    /
+      data bif2cs( 11) / +.2230479106 6175002081 5178666666 66 d-19    /
+      data bif2cs( 12) / +.3681577873 6393142842 9226666666 66 d-22    /
+      data bif2cs( 13) / +.5096086844 9338261333 3333333333 33 d-25    /
+      data bif2cs( 14) / +.6000338692 6288554666 6666666666 66 d-28    /
+      data bif2cs( 15) / +.6082749744 6570666666 6666666666 66 d-31    /
+c
+c series for big2       on the interval  1.00000e+00 to  8.00000e+00
+c                                        with weighted error   4.91e-33
+c                                         log weighted error  32.31
+c                        approx significant figures required  31.6
+c                                    decimal places required  32.90
+c
+      data big2cs(  1) / +.0333056621 4551434046 5176188111 647 d+0    /
+      data big2cs(  2) / +.1613092151 2319706761 3287532084 943 d+0    /
+      data big2cs(  3) / +.6319007309 6134286912 1615634921 173 d-2    /
+      data big2cs(  4) / +.1187904568 1625173638 9780192304 567 d-3    /
+      data big2cs(  5) / +.1304534588 6200265614 7116485012 843 d-5    /
+      data big2cs(  6) / +.9374125995 5352172954 6809615508 936 d-8    /
+      data big2cs(  7) / +.4745801886 7472515378 8510169834 595 d-10   /
+      data big2cs(  8) / +.1783107265 0948139980 0065667560 946 d-12   /
+      data big2cs(  9) / +.5167591927 8495818037 4276356640 000 d-15   /
+      data big2cs( 10) / +.1190045083 8682712512 9496251733 333 d-17   /
+      data big2cs( 11) / +.2229828806 6640351727 7063466666 666 d-20   /
+      data big2cs( 12) / +.3465519230 2768941972 2666666666 666 d-23   /
+      data big2cs( 13) / +.4539263363 2050451413 3333333333 333 d-26   /
+      data big2cs( 14) / +.5078849965 1352234666 6666666666 666 d-29   /
+      data big2cs( 15) / +.4910206746 9653333333 3333333333 333 d-32   /
+c
+      data nbif, nbig, nbif2, nbig2, x3sml, xmax / 4*0, 2*0.d0 /
+c
+      if (nbif.ne.0) go to 10
+      eta = 0.1*sngl(d1mach(3))
+      nbif = initds (bifcs, 13, eta)
+      nbig = initds (bigcs, 13, eta)
+      nbif2 = initds (bif2cs, 15, eta)
+      nbig2 = initds (big2cs, 15, eta)
+c
+      x3sml = eta**0.3333
+      xmax = (1.5*dlog(d1mach(2)))**0.6666d0
+c
+ 10   if (x.ge.(-1.0d0)) go to 20
+      call d9aimp (x, xm, theta)
+      dbi = xm * dsin(theta)
+      return
+c
+ 20   if (x.gt.1.0d0) go to 30
+      z = 0.d0
+      if (dabs(x).gt.x3sml) z = x**3
+      dbi = 0.625 + dcsevl (z, bifcs, nbif) + x*(0.4375d0 +
+     1  dcsevl (z, bigcs, nbig))
+      return
+c
+ 30   if (x.gt.2.0d0) go to 40
+      z = (2.0d0*x**3 - 9.0d0)/7.d0
+      dbi = 1.125d0 + dcsevl (z, bif2cs, nbif2) + x*(0.625d0 +
+     1  dcsevl (z, big2cs, nbig2))
+      return
+c
+ 40   if (x.gt.xmax) call seteru (
+     1  34hdbi     x so big that bi overflows, 34, 1, 2)
+c
+      dbi = dbie(x) * dexp(2.0d0*x*dsqrt(x)/3.0d0)
+      return
+c
+      end
diff --git a/fvn_fnlib/dbid.f b/fvn_fnlib/dbid.f
new file mode 100644
index 0000000..0cc9eab
--- /dev/null
+++ b/fvn_fnlib/dbid.f
@@ -0,0 +1,137 @@
+      double precision function dbid (x)
+c july 1980 edition.  w. fullerton, bell labs.
+c
+c evaluate the derivative of the airy function bi(x).
+c
+      double precision x, bifcs(13), bigcs(13), bif2cs(15), big2cs(16),
+     1  x2sml, x3sml, xmax, x3, x2, z, xn, phi, d1mach, dbide, dcsevl,
+     2  dexp, dlog, dsin, dsqrt
+      external d1mach, dbide, dcsevl, initds
+c     1  sqrt
+c
+c series for bif    on the interval -1.00000e+00 to  1.00000e+00
+c                                        with weighted error   3.82e-34
+c                                         log weighted error  33.42
+c                               significant figures required  32.21
+c                                    decimal places required  33.98
+c
+      data bif cs(  1) /  0.1153536790 8285702426 7474446284 908879d0/
+      data bif cs(  2) /  0.0205007894 0491928753 0357789445 940252d0/
+      data bif cs(  3) /  0.0002135290 2789028758 1892679619 451158d0/
+      data bif cs(  4) /  0.0000010783 9606146768 3042209155 523569d0/
+      data bif cs(  5) /  0.0000000032 0947088332 0666783353 670420d0/
+      data bif cs(  6) /  0.0000000000 0629304067 1833540390 213316d0/
+      data bif cs(  7) /  0.0000000000 0000874030 4300063083 340121d0/
+      data bif cs(  8) /  0.0000000000 0000000904 7915683496 049529d0/
+      data bif cs(  9) /  0.0000000000 0000000000 7249923164 709251d0/
+      data bif cs( 10) /  0.0000000000 0000000000 0004629576 649604d0/
+      data bif cs( 11) /  0.0000000000 0000000000 0000002411 236436d0/
+      data bif cs( 12) /  0.0000000000 0000000000 0000000001 043825d0/
+      data bif cs( 13) /  0.0000000000 0000000000 0000000000 000382d0/
+c
+c series for big    on the interval -1.00000e+00 to  1.00000e+00
+c                                        with weighted error   4.79e-32
+c                                         log weighted error  31.32
+c                               significant figures required  30.52
+c                                    decimal places required  31.88
+c
+      data big cs(  1) / -0.0971964404 1644353738 9779097460 6802d0/
+      data big cs(  2) /  0.1495035768 4316706657 1084344532 6264d0/
+      data big cs(  3) /  0.0031135253 8712132604 1941917683 9631d0/
+      data big cs(  4) /  0.0000247085 7057982129 6777702192 0569d0/
+      data big cs(  5) /  0.0000001029 4962773137 8608198732 4295d0/
+      data big cs(  6) /  0.0000000002 6397037398 6943289267 6778d0/
+      data big cs(  7) /  0.0000000000 0045827927 0780320660 8181d0/
+      data big cs(  8) /  0.0000000000 0000057428 2974089344 7321d0/
+      data big cs(  9) /  0.0000000000 0000000054 3827538523 8549d0/
+      data big cs( 10) /  0.0000000000 0000000000 0402834726 7083d0/
+      data big cs( 11) /  0.0000000000 0000000000 0000239782 3826d0/
+      data big cs( 12) /  0.0000000000 0000000000 0000000117 1956d0/
+      data big cs( 13) /  0.0000000000 0000000000 0000000000 0479d0/
+c
+c series for bif2 on the interval  1.00000e+00 to  8.00000e+00
+c                                        with weighted error   1.38e-33
+c                                         log weighted error  32.86
+c                               significant figures required  32.12
+c                                    decimal places required  33.45
+c
+      data bif2cs(  1) /  0.3234939876 0352203352 1191935962 66015d0/
+      data bif2cs(  2) /  0.0862978715 3556355913 8888353238 11100d0/
+      data bif2cs(  3) /  0.0029940255 5265539742 6138210507 27155d0/
+      data bif2cs(  4) /  0.0000514305 2836466163 7204643169 50821d0/
+      data bif2cs(  5) /  0.0000005258 4025003681 1460260330 98613d0/
+      data bif2cs(  6) /  0.0000000035 6175137395 7700281027 30600d0/
+      data bif2cs(  7) /  0.0000000000 1714686400 7145848305 18308d0/
+      data bif2cs(  8) /  0.0000000000 0006166351 9692325554 06693d0/
+      data bif2cs(  9) /  0.0000000000 0000017191 0821543159 85806d0/
+      data bif2cs( 10) /  0.0000000000 0000000038 2368895188 03943d0/
+      data bif2cs( 11) /  0.0000000000 0000000000 0694241736 24884d0/
+      data bif2cs( 12) /  0.0000000000 0000000000 0001048339 32510d0/
+      data bif2cs( 13) /  0.0000000000 0000000000 0000001337 21972d0/
+      data bif2cs( 14) /  0.0000000000 0000000000 0000000001 45986d0/
+      data bif2cs( 15) /  0.0000000000 0000000000 0000000000 00138d0/
+c
+c series for big2 on the interval  1.00000e+00 to  8.00000e+00
+c                                        with weighted error   1.91e-34
+c                                         log weighted error  33.72
+c                               significant figures required  33.76
+c                                    decimal places required  34.32
+c
+      data big2cs(  1) /  1.6062999463 6212945775 9284537862 622883d0/
+      data big2cs(  2) /  0.7449088819 8760886520 1476685194 753972d0/
+      data big2cs(  3) /  0.0470138738 6102773796 4095177635 353019d0/
+      data big2cs(  4) /  0.0012284422 0625482390 7016188785 848091d0/
+      data big2cs(  5) /  0.0000173222 4122566236 2670987355 613727d0/
+      data big2cs(  6) /  0.0000001521 9016523680 1893711508 366563d0/
+      data big2cs(  7) /  0.0000000009 1135602491 1957704145 528786d0/
+      data big2cs(  8) /  0.0000000000 0395479184 2356644201 722554d0/
+      data big2cs(  9) /  0.0000000000 0001300173 7033862320 007309d0/
+      data big2cs( 10) /  0.0000000000 0000003349 3506858269 079763d0/
+      data big2cs( 11) /  0.0000000000 0000000006 9419094403 694057d0/
+      data big2cs( 12) /  0.0000000000 0000000000 0118248256 604581d0/
+      data big2cs( 13) /  0.0000000000 0000000000 0000168462 493472d0/
+      data big2cs( 14) /  0.0000000000 0000000000 0000000203 684674d0/
+      data big2cs( 15) /  0.0000000000 0000000000 0000000000 211619d0/
+      data big2cs( 16) /  0.0000000000 0000000000 0000000000 000191d0/
+c
+      data nbif, nbig, nbif2, nbig2 / 4*0 /
+      data x2sml, x3sml, xmax / 3*0.0d0 /
+c
+      if (nbif.ne.0) go to 10
+      eta = 0.1*sngl(d1mach(3))
+      nbif = initds (bifcs, 13, eta)
+      nbig = initds (bigcs, 13, eta)
+      nbif2 = initds (bif2cs, 15, eta)
+      nbig2 = initds (big2cs, 16, eta)
+c
+      x2sml = sqrt (eta)
+      x3sml = eta**0.3333
+      xmax = (1.5d0*dlog(d1mach(2)))**0.6666d0
+c
+ 10   if (x.ge.(-1.0d0)) go to 20
+      call d9admp (x, xn, phi)
+      dbid = xn * dsin (phi)
+      return
+c
+ 20   if (x.gt.1.0d0) go to 30
+      x3 = 0.0d0
+      if (dabs(x).gt.x3sml) x3 = x**3
+      x2 = 0.0d0
+      if (dabs(x).gt.x2sml) x2 = x*x
+      dbid = x2*(dcsevl (x3, bifcs, nbif) + 0.25d0) +
+     1  dcsevl (x3, bigcs, nbig) + 0.5d0
+      return
+c
+ 30   if (x.gt.2.0d0) go to 40
+      z = (2.0d0*x**3 - 9.0d0) / 7.0d0
+      dbid = x*x*(dcsevl (z, bif2cs, nbif2) + 0.25d0) +
+     1  dcsevl (z, big2cs, nbig2) + 0.5d0
+      return
+c
+ 40   if (x.gt.xmax) call seteru (
+     1  36hdbid    x so big that dbid overflows, 36, 1, 2)
+c
+      dbid = dbide(x) * dexp (2.0d0*x*dsqrt(x)/3.0d0)
+      return
+c
+      end
diff --git a/fvn_fnlib/dbide.f b/fvn_fnlib/dbide.f
new file mode 100644
index 0000000..59e0815
--- /dev/null
+++ b/fvn_fnlib/dbide.f
@@ -0,0 +1,301 @@
+      double precision function dbide (x)
+c july 1980 edition.  w. fullerton, bell labs.
+c
+c evaluate the derivative of the airy function bi(x) for x .le. 0
+c and evaluate  bid(x) * exp(-zeta)  for x .ge. 0  where
+c      zeta = 2/3 * x**(3/2)
+c
+      double precision x, bifcs(13), bigcs(13), bif2cs(15), big2cs(16),
+     1  bip1cs(47), bip2cs(88), atr, btr, x2sml, x3sml, xbig, xn, phi,
+     2  x3, x32sml, x2, z, sqrtx,   d1mach, dcsevl, dexp, dsin, dsqrt
+      external d1mach, dcsevl,  initds
+c
+c series for bif    on the interval -1.00000e+00 to  1.00000e+00
+c                                        with weighted error   3.82e-34
+c                                         log weighted error  33.42
+c                               significant figures required  32.21
+c                                    decimal places required  33.98
+c
+      data bif cs(  1) /  0.1153536790 8285702426 7474446284 908879d0/
+      data bif cs(  2) /  0.0205007894 0491928753 0357789445 940252d0/
+      data bif cs(  3) /  0.0002135290 2789028758 1892679619 451158d0/
+      data bif cs(  4) /  0.0000010783 9606146768 3042209155 523569d0/
+      data bif cs(  5) /  0.0000000032 0947088332 0666783353 670420d0/
+      data bif cs(  6) /  0.0000000000 0629304067 1833540390 213316d0/
+      data bif cs(  7) /  0.0000000000 0000874030 4300063083 340121d0/
+      data bif cs(  8) /  0.0000000000 0000000904 7915683496 049529d0/
+      data bif cs(  9) /  0.0000000000 0000000000 7249923164 709251d0/
+      data bif cs( 10) /  0.0000000000 0000000000 0004629576 649604d0/
+      data bif cs( 11) /  0.0000000000 0000000000 0000002411 236436d0/
+      data bif cs( 12) /  0.0000000000 0000000000 0000000001 043825d0/
+      data bif cs( 13) /  0.0000000000 0000000000 0000000000 000382d0/
+c
+c series for big    on the interval -1.00000e+00 to  1.00000e+00
+c                                        with weighted error   4.79e-32
+c                                         log weighted error  31.32
+c                               significant figures required  30.52
+c                                    decimal places required  31.88
+c
+      data big cs(  1) / -0.0971964404 1644353738 9779097460 6802d0/
+      data big cs(  2) /  0.1495035768 4316706657 1084344532 6264d0/
+      data big cs(  3) /  0.0031135253 8712132604 1941917683 9631d0/
+      data big cs(  4) /  0.0000247085 7057982129 6777702192 0569d0/
+      data big cs(  5) /  0.0000001029 4962773137 8608198732 4295d0/
+      data big cs(  6) /  0.0000000002 6397037398 6943289267 6778d0/
+      data big cs(  7) /  0.0000000000 0045827927 0780320660 8181d0/
+      data big cs(  8) /  0.0000000000 0000057428 2974089344 7321d0/
+      data big cs(  9) /  0.0000000000 0000000054 3827538523 8549d0/
+      data big cs( 10) /  0.0000000000 0000000000 0402834726 7083d0/
+      data big cs( 11) /  0.0000000000 0000000000 0000239782 3826d0/
+      data big cs( 12) /  0.0000000000 0000000000 0000000117 1956d0/
+      data big cs( 13) /  0.0000000000 0000000000 0000000000 0479d0/
+c
+c series for bif2 on the interval  1.00000e+00 to  8.00000e+00
+c                                        with weighted error   1.38e-33
+c                                         log weighted error  32.86
+c                               significant figures required  32.12
+c                                    decimal places required  33.45
+c
+      data bif2cs(  1) /  0.3234939876 0352203352 1191935962 66015d0/
+      data bif2cs(  2) /  0.0862978715 3556355913 8888353238 11100d0/
+      data bif2cs(  3) /  0.0029940255 5265539742 6138210507 27155d0/
+      data bif2cs(  4) /  0.0000514305 2836466163 7204643169 50821d0/
+      data bif2cs(  5) /  0.0000005258 4025003681 1460260330 98613d0/
+      data bif2cs(  6) /  0.0000000035 6175137395 7700281027 30600d0/
+      data bif2cs(  7) /  0.0000000000 1714686400 7145848305 18308d0/
+      data bif2cs(  8) /  0.0000000000 0006166351 9692325554 06693d0/
+      data bif2cs(  9) /  0.0000000000 0000017191 0821543159 85806d0/
+      data bif2cs( 10) /  0.0000000000 0000000038 2368895188 03943d0/
+      data bif2cs( 11) /  0.0000000000 0000000000 0694241736 24884d0/
+      data bif2cs( 12) /  0.0000000000 0000000000 0001048339 32510d0/
+      data bif2cs( 13) /  0.0000000000 0000000000 0000001337 21972d0/
+      data bif2cs( 14) /  0.0000000000 0000000000 0000000001 45986d0/
+      data bif2cs( 15) /  0.0000000000 0000000000 0000000000 00138d0/
+c
+c series for big2 on the interval  1.00000e+00 to  8.00000e+00
+c                                        with weighted error   1.91e-34
+c                                         log weighted error  33.72
+c                               significant figures required  33.76
+c                                    decimal places required  34.32
+c
+      data big2cs(  1) /  1.6062999463 6212945775 9284537862 622883d0/
+      data big2cs(  2) /  0.7449088819 8760886520 1476685194 753972d0/
+      data big2cs(  3) /  0.0470138738 6102773796 4095177635 353019d0/
+      data big2cs(  4) /  0.0012284422 0625482390 7016188785 848091d0/
+      data big2cs(  5) /  0.0000173222 4122566236 2670987355 613727d0/
+      data big2cs(  6) /  0.0000001521 9016523680 1893711508 366563d0/
+      data big2cs(  7) /  0.0000000009 1135602491 1957704145 528786d0/
+      data big2cs(  8) /  0.0000000000 0395479184 2356644201 722554d0/
+      data big2cs(  9) /  0.0000000000 0001300173 7033862320 007309d0/
+      data big2cs( 10) /  0.0000000000 0000003349 3506858269 079763d0/
+      data big2cs( 11) /  0.0000000000 0000000006 9419094403 694057d0/
+      data big2cs( 12) /  0.0000000000 0000000000 0118248256 604581d0/
+      data big2cs( 13) /  0.0000000000 0000000000 0000168462 493472d0/
+      data big2cs( 14) /  0.0000000000 0000000000 0000000203 684674d0/
+      data big2cs( 15) /  0.0000000000 0000000000 0000000000 211619d0/
+      data big2cs( 16) /  0.0000000000 0000000000 0000000000 000191d0/
+c
+c series for bip2 on the interval  0.00000e+00 to  1.25000e-01
+c                                        with weighted error   4.37e-33
+c                                         log weighted error  32.36
+c                               significant figures required  31.18
+c                                    decimal places required  33.33
+c
+      data bip2cs(  1) / -0.1326970544 3526630494 9370312102 17135d0/
+      data bip2cs(  2) / -0.0056844362 6045977481 3060463390 37428d0/
+      data bip2cs(  3) / -0.0001564360 1119611609 6236984712 16660d0/
+      data bip2cs(  4) / -0.0000113673 7203679562 2673360532 07940d0/
+      data bip2cs(  5) / -0.0000014346 4350991283 6696431369 51338d0/
+      data bip2cs(  6) / -0.0000001809 8531185164 1318687464 81700d0/
+      data bip2cs(  7) /  0.0000000092 6177343610 8655462295 11422d0/
+      data bip2cs(  8) /  0.0000000171 0005490720 5921818872 96162d0/
+      data bip2cs(  9) /  0.0000000047 6698163503 7817082526 86849d0/
+      data bip2cs( 10) / -0.0000000003 5195022023 1631419453 97159d0/
+      data bip2cs( 11) / -0.0000000005 8890614315 8868715741 47635d0/
+      data bip2cs( 12) / -0.0000000000 6678499607 7955375976 12089d0/
+      data bip2cs( 13) /  0.0000000000 6395565101 7203911906 97713d0/
+      data bip2cs( 14) /  0.0000000000 1554529427 0643941064 03245d0/
+      data bip2cs( 15) / -0.0000000000 0792396999 7446129716 84001d0/
+      data bip2cs( 16) / -0.0000000000 0258326242 6897177989 47525d0/
+      data bip2cs( 17) /  0.0000000000 0121655047 7878491179 78773d0/
+      data bip2cs( 18) /  0.0000000000 0038707207 1728999859 42258d0/
+      data bip2cs( 19) / -0.0000000000 0022487045 4796182291 30656d0/
+      data bip2cs( 20) / -0.0000000000 0004953476 5156840462 93493d0/
+      data bip2cs( 21) /  0.0000000000 0004563781 6015269127 56017d0/
+      data bip2cs( 22) /  0.0000000000 0000332998 3143450141 18494d0/
+      data bip2cs( 23) / -0.0000000000 0000921750 1858328742 02719d0/
+      data bip2cs( 24) /  0.0000000000 0000094156 6706589582 05765d0/
+      data bip2cs( 25) /  0.0000000000 0000167153 9526407161 57721d0/
+      data bip2cs( 26) / -0.0000000000 0000055134 2687821824 10852d0/
+      data bip2cs( 27) / -0.0000000000 0000022368 6515720066 17795d0/
+      data bip2cs( 28) /  0.0000000000 0000017486 9489765200 89209d0/
+      data bip2cs( 29) /  0.0000000000 0000000206 5186663523 29750d0/
+      data bip2cs( 30) / -0.0000000000 0000003973 0600181307 12479d0/
+      data bip2cs( 31) /  0.0000000000 0000001154 8369357248 92335d0/
+      data bip2cs( 32) /  0.0000000000 0000000553 9060536782 76421d0/
+      data bip2cs( 33) / -0.0000000000 0000000457 1744273964 78267d0/
+      data bip2cs( 34) /  0.0000000000 0000000026 5671118582 84432d0/
+      data bip2cs( 35) /  0.0000000000 0000000101 5991481541 67823d0/
+      data bip2cs( 36) / -0.0000000000 0000000044 8212312721 96246d0/
+      data bip2cs( 37) / -0.0000000000 0000000007 9591496616 17295d0/
+      data bip2cs( 38) /  0.0000000000 0000000014 5836156161 65794d0/
+      data bip2cs( 39) / -0.0000000000 0000000004 0151278930 61405d0/
+      data bip2cs( 40) / -0.0000000000 0000000002 0791529637 43616d0/
+      data bip2cs( 41) /  0.0000000000 0000000001 9726304496 34388d0/
+      data bip2cs( 42) / -0.0000000000 0000000000 3360334040 01683d0/
+      data bip2cs( 43) / -0.0000000000 0000000000 3765048326 85507d0/
+      data bip2cs( 44) /  0.0000000000 0000000000 2699355088 25595d0/
+      data bip2cs( 45) / -0.0000000000 0000000000 0269859460 69808d0/
+      data bip2cs( 46) / -0.0000000000 0000000000 0617940117 88222d0/
+      data bip2cs( 47) /  0.0000000000 0000000000 0387826933 11711d0/
+      data bip2cs( 48) / -0.0000000000 0000000000 0024200940 05071d0/
+      data bip2cs( 49) / -0.0000000000 0000000000 0098440510 58925d0/
+      data bip2cs( 50) /  0.0000000000 0000000000 0059543533 58494d0/
+      data bip2cs( 51) / -0.0000000000 0000000000 0003612744 46366d0/
+      data bip2cs( 52) / -0.0000000000 0000000000 0015526345 78088d0/
+      data bip2cs( 53) /  0.0000000000 0000000000 0009778193 80304d0/
+      data bip2cs( 54) / -0.0000000000 0000000000 0000922394 47509d0/
+      data bip2cs( 55) / -0.0000000000 0000000000 0002415459 03934d0/
+      data bip2cs( 56) /  0.0000000000 0000000000 0001695586 52255d0/
+      data bip2cs( 57) / -0.0000000000 0000000000 0000267624 08641d0/
+      data bip2cs( 58) / -0.0000000000 0000000000 0000361881 16265d0/
+      data bip2cs( 59) /  0.0000000000 0000000000 0000303724 04951d0/
+      data bip2cs( 60) / -0.0000000000 0000000000 0000074228 76903d0/
+      data bip2cs( 61) / -0.0000000000 0000000000 0000049306 78544d0/
+      data bip2cs( 62) /  0.0000000000 0000000000 0000054687 90028d0/
+      data bip2cs( 63) / -0.0000000000 0000000000 0000019203 15188d0/
+      data bip2cs( 64) / -0.0000000000 0000000000 0000005163 35154d0/
+      data bip2cs( 65) /  0.0000000000 0000000000 0000009577 23167d0/
+      data bip2cs( 66) / -0.0000000000 0000000000 0000004636 59079d0/
+      data bip2cs( 67) / -0.0000000000 0000000000 0000000045 09226d0/
+      data bip2cs( 68) /  0.0000000000 0000000000 0000001556 17519d0/
+      data bip2cs( 69) / -0.0000000000 0000000000 0000001041 56509d0/
+      data bip2cs( 70) /  0.0000000000 0000000000 0000000195 65323d0/
+      data bip2cs( 71) /  0.0000000000 0000000000 0000000213 35380d0/
+      data bip2cs( 72) / -0.0000000000 0000000000 0000000214 61958d0/
+      data bip2cs( 73) /  0.0000000000 0000000000 0000000078 75791d0/
+      data bip2cs( 74) /  0.0000000000 0000000000 0000000017 13768d0/
+      data bip2cs( 75) / -0.0000000000 0000000000 0000000039 17137d0/
+      data bip2cs( 76) /  0.0000000000 0000000000 0000000022 33559d0/
+      data bip2cs( 77) / -0.0000000000 0000000000 0000000002 69383d0/
+      data bip2cs( 78) / -0.0000000000 0000000000 0000000005 77764d0/
+      data bip2cs( 79) /  0.0000000000 0000000000 0000000005 19650d0/
+      data bip2cs( 80) / -0.0000000000 0000000000 0000000001 83361d0/
+      data bip2cs( 81) / -0.0000000000 0000000000 0000000000 45763d0/
+      data bip2cs( 82) /  0.0000000000 0000000000 0000000000 99235d0/
+      data bip2cs( 83) / -0.0000000000 0000000000 0000000000 58938d0/
+      data bip2cs( 84) /  0.0000000000 0000000000 0000000000 09568d0/
+      data bip2cs( 85) /  0.0000000000 0000000000 0000000000 13758d0/
+      data bip2cs( 86) / -0.0000000000 0000000000 0000000000 14066d0/
+      data bip2cs( 87) /  0.0000000000 0000000000 0000000000 05964d0/
+      data bip2cs( 88) /  0.0000000000 0000000000 0000000000 00437d0/
+c
+c series for bip1 on the interval  1.25000e-01 to  3.53553e-01
+c                                        with weighted error   1.75e-32
+c                                         log weighted error  31.76
+c                               significant figures required  30.70
+c                                    decimal places required  32.59
+c
+      data bip1cs(  1) / -0.1729187351 0795537186 1246798237 41003d0/
+      data bip1cs(  2) / -0.0149358492 9846943639 4862310218 18675d0/
+      data bip1cs(  3) / -0.0005471104 9516785663 9906586978 74460d0/
+      data bip1cs(  4) /  0.0001537966 2929584083 4495737278 56666d0/
+      data bip1cs(  5) /  0.0000154353 4761921794 1310289480 22869d0/
+      data bip1cs(  6) / -0.0000065434 1138519060 1292260871 06765d0/
+      data bip1cs(  7) /  0.0000003728 0824078787 0322321522 75240d0/
+      data bip1cs(  8) /  0.0000002072 0783881887 4800808107 10514d0/
+      data bip1cs(  9) / -0.0000000658 1733364696 1916894958 83922d0/
+      data bip1cs( 10) /  0.0000000074 9267463539 2882129860 48985d0/
+      data bip1cs( 11) /  0.0000000011 1013368840 7071476988 90101d0/
+      data bip1cs( 12) / -0.0000000007 2651405529 1595123238 80794d0/
+      data bip1cs( 13) /  0.0000000001 7827235598 4701539621 65668d0/
+      data bip1cs( 14) / -0.0000000000 2173463524 8095062696 56807d0/
+      data bip1cs( 15) / -0.0000000000 0203020349 6538825940 17049d0/
+      data bip1cs( 16) /  0.0000000000 0193118272 2940775193 19859d0/
+      data bip1cs( 17) / -0.0000000000 0060449525 0482902960 23117d0/
+      data bip1cs( 18) /  0.0000000000 0012094496 2489336642 77802d0/
+      data bip1cs( 19) / -0.0000000000 0001251088 3600744797 84619d0/
+      data bip1cs( 20) / -0.0000000000 0000199173 8324248813 44036d0/
+      data bip1cs( 21) /  0.0000000000 0000151540 8163428643 03038d0/
+      data bip1cs( 22) / -0.0000000000 0000049768 9270598162 40250d0/
+      data bip1cs( 23) /  0.0000000000 0000011545 9597318105 01403d0/
+      data bip1cs( 24) / -0.0000000000 0000001863 2868629079 83871d0/
+      data bip1cs( 25) /  0.0000000000 0000000099 3303923447 59104d0/
+      data bip1cs( 26) /  0.0000000000 0000000068 1820836674 12417d0/
+      data bip1cs( 27) / -0.0000000000 0000000034 8544564796 50551d0/
+      data bip1cs( 28) /  0.0000000000 0000000010 8603821342 35961d0/
+      data bip1cs( 29) / -0.0000000000 0000000002 5992901852 40166d0/
+      data bip1cs( 30) /  0.0000000000 0000000000 4768953704 59000d0/
+      data bip1cs( 31) / -0.0000000000 0000000000 0519469407 77177d0/
+      data bip1cs( 32) / -0.0000000000 0000000000 0059255750 44912d0/
+      data bip1cs( 33) /  0.0000000000 0000000000 0057460089 70972d0/
+      data bip1cs( 34) / -0.0000000000 0000000000 0021861198 06494d0/
+      data bip1cs( 35) /  0.0000000000 0000000000 0006241242 94738d0/
+      data bip1cs( 36) / -0.0000000000 0000000000 0001460034 21785d0/
+      data bip1cs( 37) /  0.0000000000 0000000000 0000274938 93904d0/
+      data bip1cs( 38) / -0.0000000000 0000000000 0000034746 78018d0/
+      data bip1cs( 39) / -0.0000000000 0000000000 0000001093 03694d0/
+      data bip1cs( 40) /  0.0000000000 0000000000 0000002619 72744d0/
+      data bip1cs( 41) / -0.0000000000 0000000000 0000001123 65018d0/
+      data bip1cs( 42) /  0.0000000000 0000000000 0000000351 52059d0/
+      data bip1cs( 43) / -0.0000000000 0000000000 0000000091 67601d0/
+      data bip1cs( 44) /  0.0000000000 0000000000 0000000020 40203d0/
+      data bip1cs( 45) / -0.0000000000 0000000000 0000000003 73038d0/
+      data bip1cs( 46) /  0.0000000000 0000000000 0000000000 46070d0/
+      data bip1cs( 47) /  0.0000000000 0000000000 0000000000 01748d0/
+c
+      data atr / 8.750690570 8484345088 0771988210 148d0 /
+c atr = 16./(sqrt(8)-1)  and  btr = -(sqrt(8)+1)/(sqrt(8)-1)
+      data btr /-2.093836321 3560543136 0096498526 268d0 /
+c
+      data nbif, nbig, nbif2, nbig2, nbip1, nbip2 / 6*0 /
+      data x2sml, x3sml, x32sml, xbig / 4*0.0d0 /
+c
+      if (nbif.ne.0) go to 10
+      eta = 0.1*sngl(d1mach(3))
+      nbif = initds (bifcs, 13, eta)
+      nbig = initds (bigcs, 13, eta)
+      nbif2 = initds (bif2cs, 15, eta)
+      nbig2 = initds (big2cs, 16, eta)
+      nbip1 = initds (bip1cs, 47, eta)
+      nbip2 = initds (bip2cs, 88, eta)
+c
+      x2sml = sqrt (eta)
+      x3sml = eta**0.3333
+      x32sml = 1.3104d0*x3sml**2
+      xbig = d1mach(2)**0.6666d0
+c
+ 10   if (x.ge.(-1.0d0)) go to 20
+      call d9admp (x, xn, phi)
+      dbide = xn * dsin (phi)
+      return
+c
+ 20   if (x.gt.1.0d0) go to 30
+      x3 = 0.0d0
+      if (dabs(x).gt.x3sml) x3 = x**3
+      x2 = 0.0d0
+      if (dabs(x).gt.x2sml) x2 = x*x
+      dbide = x2*(dcsevl (x3, bifcs, nbif) + 0.25d0) +
+     1  dcsevl (x3, bigcs, nbig) + 0.5d0
+      if (x.gt.x32sml) dbide = dbide * dexp (-2.0d0*x*dsqrt(x)/3.0d0)
+      return
+c
+ 30   if (x.gt.2.0d0) go to 40
+      z = (2.0d0*x**3 - 9.0d0) / 7.0d0
+      dbide = dexp (-2.0d0*x*dsqrt(x)/3.0d0) * (x*x*(0.25d0 +
+     1  dcsevl (z, bif2cs, nbif2)) + 0.5d0 + dcsevl (z, big2cs, nbig2))
+      return
+c
+ 40   if (x.gt.4.0d0) go to 50
+      sqrtx = dsqrt (x)
+      z = atr/(x*sqrtx) + btr
+      dbide = (0.625d0 + dcsevl (z, bip1cs, nbip1)) * dsqrt(sqrtx)
+      return
+c
+ 50   sqrtx = dsqrt (x)
+      z = -1.0d0
+      if (x.lt.xbig) z = 16.0d0/(x*sqrtx) - 1.0d0
+      dbide = (0.625d0 + dcsevl (z, bip2cs, nbip2)) * dsqrt(sqrtx)
+      return
+c
+      end
diff --git a/fvn_fnlib/dbie.f b/fvn_fnlib/dbie.f
new file mode 100644
index 0000000..8eaa863
--- /dev/null
+++ b/fvn_fnlib/dbie.f
@@ -0,0 +1,297 @@
+      double precision function dbie (x)
+c july 1977 edition.  w. fullerton, c3, los alamos scientific lab.
+c
+c evaluate bi(x) for x .le. 0.0  and  bi(x)*exp(-zeta)  where
+c zeta = 2/3 * x**(3/2)  for x .ge. 0.0
+c
+      double precision x, bifcs(13), bigcs(13), bif2cs(15), big2cs(15),
+     1  bip1cs(47), bip2cs(88), atr, btr, sqrtx, theta, xbig, xm, x3sml,
+     2  x32sml, z, d1mach, dcsevl, dexp, dsin, dsqrt
+      external d1mach, dcsevl, initds
+c
+c series for bif        on the interval -1.00000e+00 to  1.00000e+00
+c                                        with weighted error   1.45e-32
+c                                         log weighted error  31.84
+c                               significant figures required  30.85
+c                                    decimal places required  32.40
+c
+      data bif cs(  1) / -.1673021647 1986649483 5374239281 76 d-1     /
+      data bif cs(  2) / +.1025233583 4249445611 4263627777 57 d+0     /
+      data bif cs(  3) / +.1708309250 7381516539 4296502420 13 d-2     /
+      data bif cs(  4) / +.1186254546 7744681179 2164592100 40 d-4     /
+      data bif cs(  5) / +.4493290701 7792133694 5318879272 42 d-7     /
+      data bif cs(  6) / +.1069820714 3387889067 5677676636 28 d-9     /
+      data bif cs(  7) / +.1748064339 9771824706 0105176285 73 d-12    /
+      data bif cs(  8) / +.2081023107 1761711025 8818918343 99 d-15    /
+      data bif cs(  9) / +.1884981469 5665416509 9279717333 33 d-18    /
+      data bif cs( 10) / +.1342577917 3097804625 8826666666 66 d-21    /
+      data bif cs( 11) / +.7715959342 9658887893 3333333333 33 d-25    /
+      data bif cs( 12) / +.3653387961 7478566399 9999999999 99 d-28    /
+      data bif cs( 13) / +.1449756592 7953066666 6666666666 66 d-31    /
+c
+c series for big        on the interval -1.00000e+00 to  1.00000e+00
+c                                        with weighted error   1.29e-33
+c                                         log weighted error  32.89
+c                               significant figures required  31.48
+c                                    decimal places required  33.45
+c
+      data big cs(  1) / +.2246622324 8574522283 4682201390 24 d-1     /
+      data big cs(  2) / +.3736477545 3019545441 7275616667 52 d-1     /
+      data big cs(  3) / +.4447621895 7212285696 2152943266 39 d-3     /
+      data big cs(  4) / +.2470807563 6329384245 4945919488 82 d-5     /
+      data big cs(  5) / +.7919135339 5149635134 8624262855 96 d-8     /
+      data big cs(  6) / +.1649807985 1827779880 8878724027 06 d-10    /
+      data big cs(  7) / +.2411990666 4835455909 2475011228 41 d-13    /
+      data big cs(  8) / +.2610373623 6091436985 1847812693 33 d-16    /
+      data big cs(  9) / +.2175308297 7160323853 1237920000 00 d-19    /
+      data big cs( 10) / +.1438694640 0390433219 4837333333 33 d-22    /
+      data big cs( 11) / +.7734912561 2083468629 3333333333 33 d-26    /
+      data big cs( 12) / +.3446929203 3849002666 6666666666 66 d-29    /
+      data big cs( 13) / +.1293891927 3216000000 0000000000 00 d-32    /
+c
+c series for bif2       on the interval  1.00000e+00 to  8.00000e+00
+c                                        with weighted error   6.08e-32
+c                                         log weighted error  31.22
+c                        approx significant figures required  30.8
+c                                    decimal places required  31.80
+c
+      data bif2cs(  1) / +.0998457269 3816041044 6828425799 3 d+0      /
+      data bif2cs(  2) / +.4786249778 6300553772 2114673182 31 d+0     /
+      data bif2cs(  3) / +.2515521196 0433011771 3244154366 75 d-1     /
+      data bif2cs(  4) / +.5820693885 2326456396 5156978722 16 d-3     /
+      data bif2cs(  5) / +.7499765964 4377865943 8614573782 17 d-5     /
+      data bif2cs(  6) / +.6134602870 3493836681 4030103564 74 d-7     /
+      data bif2cs(  7) / +.3462753885 1480632900 4342687333 59 d-9     /
+      data bif2cs(  8) / +.1428891008 0270254287 7708467489 31 d-11    /
+      data bif2cs(  9) / +.4496270429 8334641895 0564721792 00 d-14    /
+      data bif2cs( 10) / +.1114232306 5833011708 4283001066 66 d-16    /
+      data bif2cs( 11) / +.2230479106 6175002081 5178666666 66 d-19    /
+      data bif2cs( 12) / +.3681577873 6393142842 9226666666 66 d-22    /
+      data bif2cs( 13) / +.5096086844 9338261333 3333333333 33 d-25    /
+      data bif2cs( 14) / +.6000338692 6288554666 6666666666 66 d-28    /
+      data bif2cs( 15) / +.6082749744 6570666666 6666666666 66 d-31    /
+c
+c series for big2       on the interval  1.00000e+00 to  8.00000e+00
+c                                        with weighted error   4.91e-33
+c                                         log weighted error  32.31
+c                        approx significant figures required  31.6
+c                                    decimal places required  32.90
+c
+      data big2cs(  1) / +.0333056621 4551434046 5176188111 647 d+0    /
+      data big2cs(  2) / +.1613092151 2319706761 3287532084 943 d+0    /
+      data big2cs(  3) / +.6319007309 6134286912 1615634921 173 d-2    /
+      data big2cs(  4) / +.1187904568 1625173638 9780192304 567 d-3    /
+      data big2cs(  5) / +.1304534588 6200265614 7116485012 843 d-5    /
+      data big2cs(  6) / +.9374125995 5352172954 6809615508 936 d-8    /
+      data big2cs(  7) / +.4745801886 7472515378 8510169834 595 d-10   /
+      data big2cs(  8) / +.1783107265 0948139980 0065667560 946 d-12   /
+      data big2cs(  9) / +.5167591927 8495818037 4276356640 000 d-15   /
+      data big2cs( 10) / +.1190045083 8682712512 9496251733 333 d-17   /
+      data big2cs( 11) / +.2229828806 6640351727 7063466666 666 d-20   /
+      data big2cs( 12) / +.3465519230 2768941972 2666666666 666 d-23   /
+      data big2cs( 13) / +.4539263363 2050451413 3333333333 333 d-26   /
+      data big2cs( 14) / +.5078849965 1352234666 6666666666 666 d-29   /
+      data big2cs( 15) / +.4910206746 9653333333 3333333333 333 d-32   /
+c
+c series for bip1       on the interval  1.25000e-01 to  3.53553e-01
+c                                        with weighted error   1.06e-32
+c                                         log weighted error  31.98
+c                               significant figures required  30.61
+c                                    decimal places required  32.81
+c
+      data bip1cs(  1) / -.8322047477 9434474687 4718647079 73 d-1     /
+      data bip1cs(  2) / +.1146118927 3711742889 9202261280 31 d-1     /
+      data bip1cs(  3) / +.4289644071 8911509494 1344725666 35 d-3     /
+      data bip1cs(  4) / -.1490663937 9950514017 8476777329 54 d-3     /
+      data bip1cs(  5) / -.1307659726 7876290663 1363409988 81 d-4     /
+      data bip1cs(  6) / +.6327598396 1030344754 5357160324 94 d-5     /
+      data bip1cs(  7) / -.4222669698 2681924884 7785158894 33 d-6     /
+      data bip1cs(  8) / -.1914718629 8654689632 8354941812 77 d-6     /
+      data bip1cs(  9) / +.6453106284 5583173611 0381578809 34 d-7     /
+      data bip1cs( 10) / -.7844854677 1397719289 7483104486 28 d-8     /
+      data bip1cs( 11) / -.9607721662 3785085879 1985335654 32 d-9     /
+      data bip1cs( 12) / +.7000471331 6443966339 0060744020 68 d-9     /
+      data bip1cs( 13) / -.1773178913 2814932022 0831280566 98 d-9     /
+      data bip1cs( 14) / +.2272089478 3465236347 2821263893 11 d-10    /
+      data bip1cs( 15) / +.1654045631 3972049847 0328606818 91 d-11    /
+      data bip1cs( 16) / -.1851712555 9292316390 7553698966 93 d-11    /
+      data bip1cs( 17) / +.5957631247 7117290165 6807155342 77 d-12    /
+      data bip1cs( 18) / -.1219434814 7346564781 0557694989 86 d-12    /
+      data bip1cs( 19) / +.1334786925 3513048815 3863478135 97 d-13    /
+      data bip1cs( 20) / +.1727831152 4339746664 3847928897 31 d-14    /
+      data bip1cs( 21) / -.1459073201 3016720735 2688717131 66 d-14    /
+      data bip1cs( 22) / +.4901031992 7115819978 9949895201 04 d-15    /
+      data bip1cs( 23) / -.1155654551 9261548129 2629727625 21 d-15    /
+      data bip1cs( 24) / +.1909880736 7072411430 6717324415 24 d-16    /
+      data bip1cs( 25) / -.1176896685 4492179886 9139959578 62 d-17    /
+      data bip1cs( 26) / -.6327192514 9530064474 5374596770 47 d-18    /
+      data bip1cs( 27) / +.3386183888 0715361614 1301913223 16 d-18    /
+      data bip1cs( 28) / -.1072582532 1758625254 9921622196 22 d-18    /
+      data bip1cs( 29) / +.2599570960 5617169284 7869331155 62 d-19    /
+      data bip1cs( 30) / -.4847758357 1081193660 9623094941 01 d-20    /
+      data bip1cs( 31) / +.5529891398 2121625361 5055131989 33 d-21    /
+      data bip1cs( 32) / +.4942166082 6069471371 7481974442 66 d-22    /
+      data bip1cs( 33) / -.5516212192 4145707458 0697208149 33 d-22    /
+      data bip1cs( 34) / +.2143756041 7632550086 6318844996 26 d-22    /
+      data bip1cs( 35) / -.6191031338 7655605798 7850611370 66 d-23    /
+      data bip1cs( 36) / +.1462936270 7391245659 8309673369 59 d-23    /
+      data bip1cs( 37) / -.2791848447 1059005576 1778660693 33 d-24    /
+      data bip1cs( 38) / +.3645570316 8570246150 9067953493 33 d-25    /
+      data bip1cs( 39) / +.5851182190 6188711839 3824597333 33 d-27    /
+      data bip1cs( 40) / -.2494695048 7566510969 7450475519 99 d-26    /
+      data bip1cs( 41) / +.1097932398 0338380977 9195794773 33 d-26    /
+      data bip1cs( 42) / -.3474338834 5961115015 0340881066 66 d-27    /
+      data bip1cs( 43) / +.9137340263 5349697363 1710822400 00 d-28    /
+      data bip1cs( 44) / -.2051035272 8210629186 2477209599 99 d-28    /
+      data bip1cs( 45) / +.3797698569 8546461748 6516223999 99 d-29    /
+      data bip1cs( 46) / -.4847945849 7755565887 8484480000 00 d-30    /
+      data bip1cs( 47) / -.1055830694 1230714314 2058666666 66 d-31    /
+c
+c series for bip2       on the interval  0.          to  1.25000e-01
+c                                        with weighted error   4.04e-33
+c                                         log weighted error  32.39
+c                               significant figures required  31.15
+c                                    decimal places required  33.37
+c
+      data bip2cs(  1) / -.1135967375 8598867913 7973108955 27 d+0     /
+      data bip2cs(  2) / +.4138147394 7881595760 0520811714 44 d-2     /
+      data bip2cs(  3) / +.1353470622 1193329857 6969217275 08 d-3     /
+      data bip2cs(  4) / +.1042731665 3015353405 8871834567 80 d-4     /
+      data bip2cs(  5) / +.1347495476 7849907889 5899119589 25 d-5     /
+      data bip2cs(  6) / +.1696537405 4383983356 0625111637 56 d-6     /
+      data bip2cs(  7) / -.1009650086 5641624301 3662283963 73 d-7     /
+      data bip2cs(  8) / -.1672911949 3778475127 8369730959 43 d-7     /
+      data bip2cs(  9) / -.4581536448 5068383217 1527956133 91 d-8     /
+      data bip2cs( 10) / +.3736681366 5655477274 0647493842 84 d-9     /
+      data bip2cs( 11) / +.5766930320 1452448119 5846435021 11 d-9     /
+      data bip2cs( 12) / +.6218126508 7850324095 3934087923 71 d-10    /
+      data bip2cs( 13) / -.6329412028 2743068241 5891772813 54 d-10    /
+      data bip2cs( 14) / -.1491504790 8598767633 9990919894 87 d-10    /
+      data bip2cs( 15) / +.7889621394 2486771938 1723942948 91 d-11    /
+      data bip2cs( 16) / +.2496051372 1857797984 8880640001 27 d-11    /
+      data bip2cs( 17) / -.1213007528 7291659477 7466647348 14 d-11    /
+      data bip2cs( 18) / -.3740493910 8727277887 3434604027 16 d-12    /
+      data bip2cs( 19) / +.2237727814 0321476798 7834469310 91 d-12    /
+      data bip2cs( 20) / +.4749029631 2192466341 9860774725 14 d-13    /
+      data bip2cs( 21) / -.4526160799 1821224810 6056558312 94 d-13    /
+      data bip2cs( 22) / -.3017227184 1986072645 1122458760 20 d-14    /
+      data bip2cs( 23) / +.9105860355 8754058327 5926834789 08 d-14    /
+      data bip2cs( 24) / -.9814923803 3807062926 6438642077 09 d-15    /
+      data bip2cs( 25) / -.1642940064 7889465253 6012452515 89 d-14    /
+      data bip2cs( 26) / +.5533483421 4274215451 1821146351 64 d-15    /
+      data bip2cs( 27) / +.2175047986 4482655984 3743819981 56 d-15    /
+      data bip2cs( 28) / -.1737923620 0220656971 2870295580 87 d-15    /
+      data bip2cs( 29) / -.1047002347 1443714959 2839093136 04 d-17    /
+      data bip2cs( 30) / +.3921914598 6056386925 4414033114 62 d-16    /
+      data bip2cs( 31) / -.1162129368 6345196925 8240056659 10 d-16    /
+      data bip2cs( 32) / -.5402747449 1754245533 7354113077 73 d-17    /
+      data bip2cs( 33) / +.4544158212 3884610882 6754285533 04 d-17    /
+      data bip2cs( 34) / -.2877559962 5221075729 4275854800 86 d-18    /
+      data bip2cs( 35) / -.1001734092 7225341243 5961629604 40 d-17    /
+      data bip2cs( 36) / +.4482393121 5068369856 3325619063 13 d-18    /
+      data bip2cs( 37) / +.7613596865 4908942328 9489823667 75 d-19    /
+      data bip2cs( 38) / -.1444832409 4881347238 9560601454 22 d-18    /
+      data bip2cs( 39) / +.4046085944 9205362251 6248473921 12 d-19    /
+      data bip2cs( 40) / +.2032108570 0338446891 3251907072 77 d-19    /
+      data bip2cs( 41) / -.1960279547 1446798718 2727580419 62 d-19    /
+      data bip2cs( 42) / +.3427303844 3944824263 5189582117 38 d-20    /
+      data bip2cs( 43) / +.3702370585 3905135480 0246515931 54 d-20    /
+      data bip2cs( 44) / -.2687959517 2041591131 4003329667 12 d-20    /
+      data bip2cs( 45) / +.2812167846 3531712209 7144546833 64 d-21    /
+      data bip2cs( 46) / +.6093396363 6177797173 2711196803 29 d-21    /
+      data bip2cs( 47) / -.3866662189 7150844994 1729778934 13 d-21    /
+      data bip2cs( 48) / +.2598933125 3566943450 8956519272 28 d-22    /
+      data bip2cs( 49) / +.9719439362 2938503767 2811752160 84 d-22    /
+      data bip2cs( 50) / -.5939281783 4375098415 6304782045 91 d-22    /
+      data bip2cs( 51) / +.3886494997 7113015409 5919604394 44 d-23    /
+      data bip2cs( 52) / +.1533430739 3617272869 7215128687 69 d-22    /
+      data bip2cs( 53) / -.9751355520 9762624036 3365214097 24 d-23    /
+      data bip2cs( 54) / +.9634064444 0489471424 7413393837 26 d-24    /
+      data bip2cs( 55) / +.2384199940 0208880109 9467487924 54 d-23    /
+      data bip2cs( 56) / -.1689698631 5019706184 8480442052 07 d-23    /
+      data bip2cs( 57) / +.2735271588 8928361222 5784448014 78 d-24    /
+      data bip2cs( 58) / +.3566001618 5409578960 1116850257 30 d-24    /
+      data bip2cs( 59) / -.3023402660 8258827249 5342806669 54 d-24    /
+      data bip2cs( 60) / +.7500204160 5973930653 1442048232 32 d-25    /
+      data bip2cs( 61) / +.4840328757 5851388827 4553198387 48 d-25    /
+      data bip2cs( 62) / -.5436413765 4447888432 6980102977 66 d-25    /
+      data bip2cs( 63) / +.1928121447 0820962653 3459788097 56 d-25    /
+      data bip2cs( 64) / +.5011635502 0532656659 6118141721 72 d-26    /
+      data bip2cs( 65) / -.9504074458 2693253786 0346208699 72 d-26    /
+      data bip2cs( 66) / +.4637264615 7101975948 6963322456 11 d-26    /
+      data bip2cs( 67) / +.2117717070 4466954163 7681705770 46 d-28    /
+      data bip2cs( 68) / -.1540485026 8168594303 6922045487 26 d-26    /
+      data bip2cs( 69) / +.1038794429 3201213662 0478891944 41 d-26    /
+      data bip2cs( 70) / -.1989007815 6915416751 3167282351 53 d-27    /
+      data bip2cs( 71) / -.2102217387 8658495471 1770445225 32 d-27    /
+      data bip2cs( 72) / +.2135309972 4525793150 6333566704 91 d-27    /
+      data bip2cs( 73) / -.7904081074 7961342319 0235376326 27 d-28    /
+      data bip2cs( 74) / -.1657535996 0435585049 9737417635 92 d-28    /
+      data bip2cs( 75) / +.3886834285 0124112587 6255864965 37 d-28    /
+      data bip2cs( 76) / -.2230923733 0896866182 6215624247 17 d-28    /
+      data bip2cs( 77) / +.2777724442 0176260265 6259774043 82 d-29    /
+      data bip2cs( 78) / +.5707854347 2657725368 7124337827 72 d-29    /
+      data bip2cs( 79) / -.5174308444 5303852800 1733715552 80 d-29    /
+      data bip2cs( 80) / +.1841328075 1095837198 4509270715 69 d-29    /
+      data bip2cs( 81) / +.4442256239 0957094598 5440710686 47 d-30    /
+      data bip2cs( 82) / -.9850414263 9629801547 4649582269 43 d-30    /
+      data bip2cs( 83) / +.5885720135 3585104884 7541988819 95 d-30    /
+      data bip2cs( 84) / -.9763607544 0429787961 4023126285 95 d-31    /
+      data bip2cs( 85) / -.1358101199 6074695047 0635978841 22 d-30    /
+      data bip2cs( 86) / +.1399974351 8492413270 5680483803 45 d-30    /
+      data bip2cs( 87) / -.5975490454 5248477620 8845629811 18 d-31    /
+      data bip2cs( 88) / -.4039165387 5428313641 0453275298 56 d-32    /
+c
+      data atr / 8.750690570 8484345088 0771988210 148 d0 /
+c atr = 16.0/(sqrt(8.)-1.)  and  btr = -(sqrt(8.)+1.)/(sqrt(8.)-1.)
+      data btr / -2.093836321 3560543136 0096498526 268 d0 /
+c
+      data nbif, nbig, nbif2, nbig2, nbip1, nbip2 / 6*0 /
+      data x3sml, x32sml, xbig / 3*0.0d0 /
+c
+      if (nbif.ne.0) go to 10
+      eta = 0.1*sngl(d1mach(3))
+      nbif = initds (bifcs, 13, eta)
+      nbig = initds (bigcs, 13, eta)
+      nbif2 = initds (bif2cs, 15, eta)
+      nbig2 = initds (big2cs, 15, eta)
+      nbip1 = initds (bip1cs, 47, eta)
+      nbip2 = initds (bip2cs, 88, eta)
+c
+      x3sml = eta**0.3333
+      x32sml = 1.3104d0*x3sml**2
+      xbig = d1mach(2)**0.6666d0
+c
+ 10   if (x.ge.(-1.0d0)) go to 20
+      call d9aimp (x, xm, theta)
+      dbie = xm * dsin(theta)
+      return
+c
+ 20   if (x.gt.1.0d0) go to 30
+      z = 0.d0
+      if (dabs(x).gt.x3sml) z = x**3
+      dbie = 0.625d0 + dcsevl (z, bifcs, nbif) + x*(0.4375d0 +
+     1  dcsevl (z, bigcs, nbig) )
+      if (x.gt.x32sml) dbie = dbie * dexp(-2.0d0*x*dsqrt(x)/3.0d0)
+      return
+c
+ 30   if (x.gt.2.0d0) go to 40
+      z = (2.0d0*x**3 - 9.0d0)/7.0d0
+      dbie = dexp(-2.0d0*x*dsqrt(x)/3.0d0) * (1.125d0 +
+     1  dcsevl (z, bif2cs, nbif2) + x*(0.625d0 + dcsevl (z, big2cs,
+     2  nbig2)) )
+      return
+c
+ 40   if (x.gt.4.0d0) go to 50
+      sqrtx = dsqrt(x)
+      z = atr/(x*sqrtx) + btr
+      dbie = (0.625d0 + dcsevl (z, bip1cs, nbip1))/dsqrt(sqrtx)
+      return
+c
+ 50   sqrtx = dsqrt(x)
+      z = -1.0d0
+      if (x.lt.xbig) z = 16.d0/(x*sqrtx) - 1.0d0
+      dbie = (0.625d0 + dcsevl (z, bip2cs, nbip2))/dsqrt(sqrtx)
+      return
+c
+      end
diff --git a/fvn_fnlib/dbinom.f b/fvn_fnlib/dbinom.f
new file mode 100644
index 0000000..8175983
--- /dev/null
+++ b/fvn_fnlib/dbinom.f
@@ -0,0 +1,53 @@
+      double precision function dbinom (n, m)
+c june 1977 edition.   w. fullerton, c3, los alamos scientific lab.
+      double precision corr, fintmx, sq2pil, xk, xn, xnk, dint, d9lgmc,
+     1  d1mach, dexp, dlnrel, dlog
+      external  d1mach, d9lgmc,  dlnrel
+      real bilnmx
+c
+      data sq2pil / 0.9189385332 0467274178 0329736405 62 d0 /
+      data bilnmx, fintmx / 0.0, 0.0d0 /
+c
+      if (bilnmx.ne.0.0) go to 10
+      bilnmx = dlog(d1mach(2)) - 0.0001d0
+      fintmx = 0.9d0/d1mach(3)
+c
+ 10   if (n.lt.0 .or. m.lt.0) call seteru (
+     1  22hdbinom  n or m lt zero, 22, 1, 2)
+      if (n.lt.m) call seteru (14hdbinom  n lt m, 14, 2, 2)
+c
+      k = min0 (m, n-m)
+      if (k.gt.20) go to 30
+      if (float(k)*alog(amax0(n,1)).gt.bilnmx) go to 30
+c
+      dbinom = 1.0d0
+      if (k.eq.0) return
+      do 20 i=1,k
+        xn = n - i + 1
+        xk = i
+        dbinom = dbinom * (xn/xk)
+ 20   continue
+c
+      if (dbinom.lt.fintmx) dbinom = dint (dbinom+0.5d0)
+      return
+c
+c if k.lt.9, approx is not valid and answer is close to the overflow lim
+ 30   if (k.lt.9) call seteru(51hdbinom  result overflows because n and/
+     1or m too big, 51, 3, 2)
+c
+      xn = n + 1
+      xk = k + 1
+      xnk = n - k + 1
+c
+      corr = d9lgmc(xn) - d9lgmc(xk) - d9lgmc(xnk)
+      dbinom = xk*dlog(xnk/xk) - xn*dlnrel(-(xk-1.0d0)/xn)
+     1  -0.5d0*dlog(xn*xnk/xk) + 1.0d0 - sq2pil + corr
+c
+      if (dbinom.gt.dble(bilnmx)) call seteru (
+     1  51hdbinom  result overflows because n and/or m too big, 51, 3,2)
+c
+      dbinom = dexp (dbinom)
+      if (dbinom.lt.fintmx) dbinom = dint (dbinom+0.5d0)
+c
+      return
+      end
diff --git a/fvn_fnlib/dbsi0e.f b/fvn_fnlib/dbsi0e.f
new file mode 100644
index 0000000..09ca37e
--- /dev/null
+++ b/fvn_fnlib/dbsi0e.f
@@ -0,0 +1,184 @@
+      double precision function dbsi0e (x)
+c july 1977 edition.  w. fullerton, c3, los alamos scientific lab.
+      double precision x, bi0cs(18), ai0cs(46), ai02cs(69),
+     1  xsml, y, d1mach, dcsevl, dexp, dsqrt
+      external d1mach, dcsevl,  initds
+c
+c series for bi0        on the interval  0.          to  9.00000e+00
+c                                        with weighted error   9.51e-34
+c                                         log weighted error  33.02
+c                               significant figures required  33.31
+c                                    decimal places required  33.65
+c
+      data bi0 cs(  1) / -.7660547252 8391449510 8189497624 3285 d-1   /
+      data bi0 cs(  2) / +.1927337953 9938082699 5240875088 1196 d+1   /
+      data bi0 cs(  3) / +.2282644586 9203013389 3702929233 0415 d+0   /
+      data bi0 cs(  4) / +.1304891466 7072904280 7933421069 1888 d-1   /
+      data bi0 cs(  5) / +.4344270900 8164874513 7868268102 6107 d-3   /
+      data bi0 cs(  6) / +.9422657686 0019346639 2317174411 8766 d-5   /
+      data bi0 cs(  7) / +.1434006289 5106910799 6209187817 9957 d-6   /
+      data bi0 cs(  8) / +.1613849069 6617490699 1541971999 4611 d-8   /
+      data bi0 cs(  9) / +.1396650044 5356696994 9509270814 2522 d-10  /
+      data bi0 cs( 10) / +.9579451725 5054453446 2752317189 3333 d-13  /
+      data bi0 cs( 11) / +.5333981859 8625021310 1510774400 0000 d-15  /
+      data bi0 cs( 12) / +.2458716088 4374707746 9678591999 9999 d-17  /
+      data bi0 cs( 13) / +.9535680890 2487700269 4434133333 3333 d-20  /
+      data bi0 cs( 14) / +.3154382039 7214273367 8933333333 3333 d-22  /
+      data bi0 cs( 15) / +.9004564101 0946374314 6666666666 6666 d-25  /
+      data bi0 cs( 16) / +.2240647369 1236700160 0000000000 0000 d-27  /
+      data bi0 cs( 17) / +.4903034603 2428373333 3333333333 3333 d-30  /
+      data bi0 cs( 18) / +.9508172606 1226666666 6666666666 6666 d-33  /
+c
+c series for ai0        on the interval  1.25000e-01 to  3.33333e-01
+c                                        with weighted error   2.74e-32
+c                                         log weighted error  31.56
+c                               significant figures required  30.15
+c                                    decimal places required  32.39
+c
+      data ai0 cs(  1) / +.7575994494 0237959427 2987203743 8 d-1      /
+      data ai0 cs(  2) / +.7591380810 8233455072 9297873320 4 d-2      /
+      data ai0 cs(  3) / +.4153131338 9237505018 6319749138 2 d-3      /
+      data ai0 cs(  4) / +.1070076463 4390730735 8242970217 0 d-4      /
+      data ai0 cs(  5) / -.7901179979 2128946607 5031948573 0 d-5      /
+      data ai0 cs(  6) / -.7826143501 4387522697 8898980690 9 d-6      /
+      data ai0 cs(  7) / +.2783849942 9488708063 8118538985 7 d-6      /
+      data ai0 cs(  8) / +.8252472600 6120271919 6682913319 8 d-8      /
+      data ai0 cs(  9) / -.1204463945 5201991790 5496089110 3 d-7      /
+      data ai0 cs( 10) / +.1559648598 5060764436 1228752792 8 d-8      /
+      data ai0 cs( 11) / +.2292556367 1033165434 7725480285 7 d-9      /
+      data ai0 cs( 12) / -.1191622884 2790646036 7777423447 8 d-9      /
+      data ai0 cs( 13) / +.1757854916 0324098302 1833124774 3 d-10     /
+      data ai0 cs( 14) / +.1128224463 2189005171 4441135682 4 d-11     /
+      data ai0 cs( 15) / -.1146848625 9272988777 2963387698 2 d-11     /
+      data ai0 cs( 16) / +.2715592054 8036628726 4365192160 6 d-12     /
+      data ai0 cs( 17) / -.2415874666 5626878384 4247572028 1 d-13     /
+      data ai0 cs( 18) / -.6084469888 2551250646 0609963922 4 d-14     /
+      data ai0 cs( 19) / +.3145705077 1754772937 0836026730 3 d-14     /
+      data ai0 cs( 20) / -.7172212924 8711877179 6217505917 6 d-15     /
+      data ai0 cs( 21) / +.7874493403 4541033960 8390960332 7 d-16     /
+      data ai0 cs( 22) / +.1004802753 0094624023 4524457183 9 d-16     /
+      data ai0 cs( 23) / -.7566895365 3505348534 2843588881 0 d-17     /
+      data ai0 cs( 24) / +.2150380106 8761198878 1205128784 5 d-17     /
+      data ai0 cs( 25) / -.3754858341 8308744291 5158445260 8 d-18     /
+      data ai0 cs( 26) / +.2354065842 2269925769 0075710532 2 d-19     /
+      data ai0 cs( 27) / +.1114667612 0479285302 2637335511 0 d-19     /
+      data ai0 cs( 28) / -.5398891884 3969903786 9677932270 9 d-20     /
+      data ai0 cs( 29) / +.1439598792 2407526770 4285840452 2 d-20     /
+      data ai0 cs( 30) / -.2591916360 1110934064 6081840196 2 d-21     /
+      data ai0 cs( 31) / +.2238133183 9985839074 3409229824 0 d-22     /
+      data ai0 cs( 32) / +.5250672575 3647711727 7221683199 9 d-23     /
+      data ai0 cs( 33) / -.3249904138 5332307841 7343228586 6 d-23     /
+      data ai0 cs( 34) / +.9924214103 2050379278 5728471040 0 d-24     /
+      data ai0 cs( 35) / -.2164992254 2446695231 4655429973 3 d-24     /
+      data ai0 cs( 36) / +.3233609471 9435940839 7333299199 9 d-25     /
+      data ai0 cs( 37) / -.1184620207 3967424898 2473386666 6 d-26     /
+      data ai0 cs( 38) / -.1281671853 9504986505 4833868799 9 d-26     /
+      data ai0 cs( 39) / +.5827015182 2793905116 0556885333 3 d-27     /
+      data ai0 cs( 40) / -.1668222326 0261097193 6450150399 9 d-27     /
+      data ai0 cs( 41) / +.3625309510 5415699757 0068480000 0 d-28     /
+      data ai0 cs( 42) / -.5733627999 0557135899 4595839999 9 d-29     /
+      data ai0 cs( 43) / +.3736796722 0630982296 4258133333 3 d-30     /
+      data ai0 cs( 44) / +.1602073983 1568519633 6551253333 3 d-30     /
+      data ai0 cs( 45) / -.8700424864 0572298845 2249599999 9 d-31     /
+      data ai0 cs( 46) / +.2741320937 9374811456 0341333333 3 d-31     /
+c
+c series for ai02       on the interval  0.          to  1.25000e-01
+c                                        with weighted error   1.97e-32
+c                                         log weighted error  31.71
+c                               significant figures required  30.15
+c                                    decimal places required  32.63
+c
+      data ai02cs(  1) / +.5449041101 4108831607 8960962268 0 d-1      /
+      data ai02cs(  2) / +.3369116478 2556940898 9785662979 9 d-2      /
+      data ai02cs(  3) / +.6889758346 9168239842 6263914301 1 d-4      /
+      data ai02cs(  4) / +.2891370520 8347564829 6692402323 2 d-5      /
+      data ai02cs(  5) / +.2048918589 4690637418 2760534093 1 d-6      /
+      data ai02cs(  6) / +.2266668990 4981780645 9327743136 1 d-7      /
+      data ai02cs(  7) / +.3396232025 7083863451 5084396952 3 d-8      /
+      data ai02cs(  8) / +.4940602388 2249695891 0482449783 5 d-9      /
+      data ai02cs(  9) / +.1188914710 7846438342 4084525196 3 d-10     /
+      data ai02cs( 10) / -.3149916527 9632413645 3864862961 9 d-10     /
+      data ai02cs( 11) / -.1321581184 0447713118 7540739926 7 d-10     /
+      data ai02cs( 12) / -.1794178531 5068061177 7943574026 9 d-11     /
+      data ai02cs( 13) / +.7180124451 3836662336 7106429346 9 d-12     /
+      data ai02cs( 14) / +.3852778382 7421427011 4089801777 6 d-12     /
+      data ai02cs( 15) / +.1540086217 5214098269 1325823339 7 d-13     /
+      data ai02cs( 16) / -.4150569347 2872220866 2689972015 6 d-13     /
+      data ai02cs( 17) / -.9554846698 8283076487 0214494312 5 d-14     /
+      data ai02cs( 18) / +.3811680669 3526224207 4605535511 8 d-14     /
+      data ai02cs( 19) / +.1772560133 0565263836 0493266675 8 d-14     /
+      data ai02cs( 20) / -.3425485619 6772191346 1924790328 2 d-15     /
+      data ai02cs( 21) / -.2827623980 5165834849 4205593759 4 d-15     /
+      data ai02cs( 22) / +.3461222867 6974610930 9706250813 4 d-16     /
+      data ai02cs( 23) / +.4465621420 2967599990 1042054284 3 d-16     /
+      data ai02cs( 24) / -.4830504485 9441820712 5525403795 4 d-17     /
+      data ai02cs( 25) / -.7233180487 8747539545 6227240924 5 d-17     /
+      data ai02cs( 26) / +.9921475412 1736985988 8046093981 0 d-18     /
+      data ai02cs( 27) / +.1193650890 8459820855 0439949924 2 d-17     /
+      data ai02cs( 28) / -.2488709837 1508072357 2054491660 2 d-18     /
+      data ai02cs( 29) / -.1938426454 1609059289 8469781132 6 d-18     /
+      data ai02cs( 30) / +.6444656697 3734438687 8301949394 9 d-19     /
+      data ai02cs( 31) / +.2886051596 2892243264 8171383073 4 d-19     /
+      data ai02cs( 32) / -.1601954907 1749718070 6167156200 7 d-19     /
+      data ai02cs( 33) / -.3270815010 5923147208 9193567485 9 d-20     /
+      data ai02cs( 34) / +.3686932283 8264091811 4600723939 3 d-20     /
+      data ai02cs( 35) / +.1268297648 0309501530 1359529710 9 d-22     /
+      data ai02cs( 36) / -.7549825019 3772739076 9636664410 1 d-21     /
+      data ai02cs( 37) / +.1502133571 3778353496 3712789053 4 d-21     /
+      data ai02cs( 38) / +.1265195883 5096485349 3208799248 3 d-21     /
+      data ai02cs( 39) / -.6100998370 0836807086 2940891600 2 d-22     /
+      data ai02cs( 40) / -.1268809629 2601282643 6872095924 2 d-22     /
+      data ai02cs( 41) / +.1661016099 8907414578 4038487490 5 d-22     /
+      data ai02cs( 42) / -.1585194335 7658855793 7970504881 4 d-23     /
+      data ai02cs( 43) / -.3302645405 9682178009 5381766755 6 d-23     /
+      data ai02cs( 44) / +.1313580902 8392397817 4039623117 4 d-23     /
+      data ai02cs( 45) / +.3689040246 6711567933 1425637280 4 d-24     /
+      data ai02cs( 46) / -.4210141910 4616891492 1978247249 9 d-24     /
+      data ai02cs( 47) / +.4791954591 0828657806 3171401373 0 d-25     /
+      data ai02cs( 48) / +.8459470390 2218217952 9971707412 4 d-25     /
+      data ai02cs( 49) / -.4039800940 8728324931 4607937181 0 d-25     /
+      data ai02cs( 50) / -.6434714653 6504313473 0100850469 5 d-26     /
+      data ai02cs( 51) / +.1225743398 8756659903 4464736990 5 d-25     /
+      data ai02cs( 52) / -.2934391316 0257089231 9879821175 4 d-26     /
+      data ai02cs( 53) / -.1961311309 1949829262 0371205728 9 d-26     /
+      data ai02cs( 54) / +.1503520374 8221934241 6229900309 8 d-26     /
+      data ai02cs( 55) / -.9588720515 7448265520 3386388206 9 d-28     /
+      data ai02cs( 56) / -.3483339380 8170454863 9441108511 4 d-27     /
+      data ai02cs( 57) / +.1690903610 2630436730 6244960725 6 d-27     /
+      data ai02cs( 58) / +.1982866538 7356030438 9400115718 8 d-28     /
+      data ai02cs( 59) / -.5317498081 4918162145 7583002528 4 d-28     /
+      data ai02cs( 60) / +.1803306629 8883929462 3501450390 1 d-28     /
+      data ai02cs( 61) / +.6213093341 4548931758 8405311242 2 d-29     /
+      data ai02cs( 62) / -.7692189292 7721618632 0072806673 0 d-29     /
+      data ai02cs( 63) / +.1858252826 1117025426 2556016596 3 d-29     /
+      data ai02cs( 64) / +.1237585142 2813957248 9927154554 1 d-29     /
+      data ai02cs( 65) / -.1102259120 4092238032 1779478779 2 d-29     /
+      data ai02cs( 66) / +.1886287118 0397044900 7787447943 1 d-30     /
+      data ai02cs( 67) / +.2160196872 2436589131 4903141406 0 d-30     /
+      data ai02cs( 68) / -.1605454124 9197432005 8446594965 5 d-30     /
+      data ai02cs( 69) / +.1965352984 5942906039 3884807331 8 d-31     /
+c
+      data nti0, ntai0, ntai02, xsml / 3*0, 0.d0 /
+c
+      if (nti0.ne.0) go to 10
+      eta = 0.1*sngl(d1mach(3))
+      nti0 = initds (bi0cs, 18, eta)
+      ntai0 = initds (ai0cs, 46, eta)
+      ntai02 = initds (ai02cs, 69, eta)
+      xsml = dsqrt (8.0d0*d1mach(3))
+c
+ 10   y = dabs(x)
+      if (y.gt.3.0d0) go to 20
+c
+      dbsi0e = 1.0d0
+      if (y.gt.xsml) dbsi0e = dexp(-y) * (2.75d0 +
+     1  dcsevl (y*y/4.5d0-1.d0, bi0cs, nti0) )
+      return
+c
+ 20   if (y.le.8.d0) dbsi0e = (0.375d0 + dcsevl ((48.d0/y-11.d0)/5.d0,
+     1  ai0cs, ntai0))/dsqrt(y)
+      if (y.gt.8.d0) dbsi0e = (0.375d0 + dcsevl (16.d0/y-1.d0, ai02cs,
+     1  ntai02))/dsqrt(y)
+c
+      return
+      end
diff --git a/fvn_fnlib/dbsi1e.f b/fvn_fnlib/dbsi1e.f
new file mode 100644
index 0000000..7fc5ee5
--- /dev/null
+++ b/fvn_fnlib/dbsi1e.f
@@ -0,0 +1,192 @@
+      double precision function dbsi1e (x)
+c oct 1983 edition.  w. fullerton, c3, los alamos scientific lab.
+      double precision x, bi1cs(17), ai1cs(46), ai12cs(69), xmin,
+     1  xsml, y, d1mach, dcsevl, dexp, dsqrt
+      external d1mach, dcsevl,  initds
+c
+c series for bi1        on the interval  0.          to  9.00000e+00
+c                                        with weighted error   1.44e-32
+c                                         log weighted error  31.84
+c                               significant figures required  31.45
+c                                    decimal places required  32.46
+c
+      data bi1 cs(  1) / -.1971713261 0998597316 1385032181 49 d-2     /
+      data bi1 cs(  2) / +.4073488766 7546480608 1553936520 14 d+0     /
+      data bi1 cs(  3) / +.3483899429 9959455866 2450377837 87 d-1     /
+      data bi1 cs(  4) / +.1545394556 3001236038 5984010584 89 d-2     /
+      data bi1 cs(  5) / +.4188852109 8377784129 4588320041 20 d-4     /
+      data bi1 cs(  6) / +.7649026764 8362114741 9597039660 69 d-6     /
+      data bi1 cs(  7) / +.1004249392 4741178689 1798080372 38 d-7     /
+      data bi1 cs(  8) / +.9932207791 9238106481 3712980548 63 d-10    /
+      data bi1 cs(  9) / +.7663801791 8447637275 2001716813 49 d-12    /
+      data bi1 cs( 10) / +.4741418923 8167394980 3880919481 60 d-14    /
+      data bi1 cs( 11) / +.2404114404 0745181799 8631720320 00 d-16    /
+      data bi1 cs( 12) / +.1017150500 7093713649 1211007999 99 d-18    /
+      data bi1 cs( 13) / +.3645093565 7866949458 4917333333 33 d-21    /
+      data bi1 cs( 14) / +.1120574950 2562039344 8106666666 66 d-23    /
+      data bi1 cs( 15) / +.2987544193 4468088832 0000000000 00 d-26    /
+      data bi1 cs( 16) / +.6973231093 9194709333 3333333333 33 d-29    /
+      data bi1 cs( 17) / +.1436794822 0620800000 0000000000 00 d-31    /
+c
+c series for ai1        on the interval  1.25000e-01 to  3.33333e-01
+c                                        with weighted error   2.81e-32
+c                                         log weighted error  31.55
+c                               significant figures required  29.93
+c                                    decimal places required  32.38
+c
+      data ai1 cs(  1) / -.2846744181 8814786741 0037246830 7 d-1      /
+      data ai1 cs(  2) / -.1922953231 4432206510 4444877497 9 d-1      /
+      data ai1 cs(  3) / -.6115185857 9437889822 5624991778 5 d-3      /
+      data ai1 cs(  4) / -.2069971253 3502277088 8282377797 9 d-4      /
+      data ai1 cs(  5) / +.8585619145 8107255655 3694467313 8 d-5      /
+      data ai1 cs(  6) / +.1049498246 7115908625 1745399786 0 d-5      /
+      data ai1 cs(  7) / -.2918338918 4479022020 9343232669 7 d-6      /
+      data ai1 cs(  8) / -.1559378146 6317390001 6068096907 7 d-7      /
+      data ai1 cs(  9) / +.1318012367 1449447055 2530287390 9 d-7      /
+      data ai1 cs( 10) / -.1448423418 1830783176 3913446781 5 d-8      /
+      data ai1 cs( 11) / -.2908512243 9931420948 2504099301 0 d-9      /
+      data ai1 cs( 12) / +.1266388917 8753823873 1115969040 3 d-9      /
+      data ai1 cs( 13) / -.1664947772 9192206706 2417839858 0 d-10     /
+      data ai1 cs( 14) / -.1666653644 6094329760 9593715499 9 d-11     /
+      data ai1 cs( 15) / +.1242602414 2907682652 3216847201 7 d-11     /
+      data ai1 cs( 16) / -.2731549379 6724323972 5146142863 3 d-12     /
+      data ai1 cs( 17) / +.2023947881 6458037807 0026268898 1 d-13     /
+      data ai1 cs( 18) / +.7307950018 1168836361 9869812612 3 d-14     /
+      data ai1 cs( 19) / -.3332905634 4046749438 1377861713 3 d-14     /
+      data ai1 cs( 20) / +.7175346558 5129537435 4225466567 0 d-15     /
+      data ai1 cs( 21) / -.6982530324 7962563558 5062922365 6 d-16     /
+      data ai1 cs( 22) / -.1299944201 5627607600 6044608058 7 d-16     /
+      data ai1 cs( 23) / +.8120942864 2427988920 5467834286 0 d-17     /
+      data ai1 cs( 24) / -.2194016207 4107368981 5626664378 3 d-17     /
+      data ai1 cs( 25) / +.3630516170 0296548482 7986093233 4 d-18     /
+      data ai1 cs( 26) / -.1695139772 4391041663 0686679039 9 d-19     /
+      data ai1 cs( 27) / -.1288184829 8979078071 1688253822 2 d-19     /
+      data ai1 cs( 28) / +.5694428604 9670527801 0999107310 9 d-20     /
+      data ai1 cs( 29) / -.1459597009 0904800565 4550990028 7 d-20     /
+      data ai1 cs( 30) / +.2514546010 6757173140 8469133448 5 d-21     /
+      data ai1 cs( 31) / -.1844758883 1391248181 6040002901 3 d-22     /
+      data ai1 cs( 32) / -.6339760596 2279486419 2860979199 9 d-23     /
+      data ai1 cs( 33) / +.3461441102 0310111111 0814662656 0 d-23     /
+      data ai1 cs( 34) / -.1017062335 3713935475 9654102357 3 d-23     /
+      data ai1 cs( 35) / +.2149877147 0904314459 6250077866 6 d-24     /
+      data ai1 cs( 36) / -.3045252425 2386764017 4620617386 6 d-25     /
+      data ai1 cs( 37) / +.5238082144 7212859821 7763498666 6 d-27     /
+      data ai1 cs( 38) / +.1443583107 0893824464 1678950399 9 d-26     /
+      data ai1 cs( 39) / -.6121302074 8900427332 0067071999 9 d-27     /
+      data ai1 cs( 40) / +.1700011117 4678184183 4918980266 6 d-27     /
+      data ai1 cs( 41) / -.3596589107 9842441585 3521578666 6 d-28     /
+      data ai1 cs( 42) / +.5448178578 9484185766 5051306666 6 d-29     /
+      data ai1 cs( 43) / -.2731831789 6890849891 6256426666 6 d-30     /
+      data ai1 cs( 44) / -.1858905021 7086007157 7190399999 9 d-30     /
+      data ai1 cs( 45) / +.9212682974 5139334411 2776533333 3 d-31     /
+      data ai1 cs( 46) / -.2813835155 6535611063 7083306666 6 d-31     /
+c
+c series for ai12       on the interval  0.          to  1.25000e-01
+c                                        with weighted error   1.83e-32
+c                                         log weighted error  31.74
+c                               significant figures required  29.97
+c                                    decimal places required  32.66
+c
+      data ai12cs(  1) / +.2857623501 8280120474 4984594846 9 d-1      /
+      data ai12cs(  2) / -.9761097491 3614684077 6516445730 2 d-2      /
+      data ai12cs(  3) / -.1105889387 6262371629 1256921277 5 d-3      /
+      data ai12cs(  4) / -.3882564808 8776903934 5654477627 4 d-5      /
+      data ai12cs(  5) / -.2512236237 8702089252 9452002212 1 d-6      /
+      data ai12cs(  6) / -.2631468846 8895195068 3705236523 2 d-7      /
+      data ai12cs(  7) / -.3835380385 9642370220 4500678796 8 d-8      /
+      data ai12cs(  8) / -.5589743462 1965838068 6811252222 9 d-9      /
+      data ai12cs(  9) / -.1897495812 3505412344 9892503323 8 d-10     /
+      data ai12cs( 10) / +.3252603583 0154882385 5508067994 9 d-10     /
+      data ai12cs( 11) / +.1412580743 6613781331 6336633284 6 d-10     /
+      data ai12cs( 12) / +.2035628544 1470895072 2452613684 0 d-11     /
+      data ai12cs( 13) / -.7198551776 2459085120 9258989044 6 d-12     /
+      data ai12cs( 14) / -.4083551111 0921973182 2849963969 1 d-12     /
+      data ai12cs( 15) / -.2101541842 7726643130 1984572746 2 d-13     /
+      data ai12cs( 16) / +.4272440016 7119513542 9778833699 7 d-13     /
+      data ai12cs( 17) / +.1042027698 4128802764 1741449994 8 d-13     /
+      data ai12cs( 18) / -.3814403072 4370078047 6707253539 6 d-14     /
+      data ai12cs( 19) / -.1880354775 5107824485 1273453396 3 d-14     /
+      data ai12cs( 20) / +.3308202310 9209282827 3190335240 5 d-15     /
+      data ai12cs( 21) / +.2962628997 6459501390 6854654205 2 d-15     /
+      data ai12cs( 22) / -.3209525921 9934239587 7837353288 7 d-16     /
+      data ai12cs( 23) / -.4650305368 4893583255 7128281897 9 d-16     /
+      data ai12cs( 24) / +.4414348323 0717079499 4611375964 1 d-17     /
+      data ai12cs( 25) / +.7517296310 8421048054 2545808029 5 d-17     /
+      data ai12cs( 26) / -.9314178867 3268833756 8484784515 7 d-18     /
+      data ai12cs( 27) / -.1242193275 1948909561 1678448869 7 d-17     /
+      data ai12cs( 28) / +.2414276719 4548484690 0515390217 6 d-18     /
+      data ai12cs( 29) / +.2026944384 0532851789 7192286069 2 d-18     /
+      data ai12cs( 30) / -.6394267188 2690977870 4391988681 1 d-19     /
+      data ai12cs( 31) / -.3049812452 3730958960 8488450357 1 d-19     /
+      data ai12cs( 32) / +.1612841851 6514802251 3462230769 1 d-19     /
+      data ai12cs( 33) / +.3560913964 3099250545 1027090462 0 d-20     /
+      data ai12cs( 34) / -.3752017947 9364390796 6682800324 6 d-20     /
+      data ai12cs( 35) / -.5787037427 0747993459 5198231074 1 d-22     /
+      data ai12cs( 36) / +.7759997511 6481619619 8236963209 2 d-21     /
+      data ai12cs( 37) / -.1452790897 2022333940 6445987408 5 d-21     /
+      data ai12cs( 38) / -.1318225286 7390367021 2192275337 4 d-21     /
+      data ai12cs( 39) / +.6116654862 9030707018 7999133171 7 d-22     /
+      data ai12cs( 40) / +.1376279762 4271264277 3024338363 4 d-22     /
+      data ai12cs( 41) / -.1690837689 9593478849 1983938230 6 d-22     /
+      data ai12cs( 42) / +.1430596088 5954331539 8720108538 5 d-23     /
+      data ai12cs( 43) / +.3409557828 0905940204 0536772990 2 d-23     /
+      data ai12cs( 44) / -.1309457666 2707602278 4573872642 4 d-23     /
+      data ai12cs( 45) / -.3940706411 2402574360 9352141755 7 d-24     /
+      data ai12cs( 46) / +.4277137426 9808765808 0616679735 2 d-24     /
+      data ai12cs( 47) / -.4424634830 9826068819 0028312302 9 d-25     /
+      data ai12cs( 48) / -.8734113196 2307149721 1530978874 7 d-25     /
+      data ai12cs( 49) / +.4045401335 6835333921 4340414242 8 d-25     /
+      data ai12cs( 50) / +.7067100658 0946894656 5160771780 6 d-26     /
+      data ai12cs( 51) / -.1249463344 5651052230 0286451860 5 d-25     /
+      data ai12cs( 52) / +.2867392244 4034370329 7948339142 6 d-26     /
+      data ai12cs( 53) / +.2044292892 5042926702 8177957421 0 d-26     /
+      data ai12cs( 54) / -.1518636633 8204625683 7134680291 1 d-26     /
+      data ai12cs( 55) / +.8110181098 1875758861 3227910703 7 d-28     /
+      data ai12cs( 56) / +.3580379354 7735860911 2717370327 0 d-27     /
+      data ai12cs( 57) / -.1692929018 9279025095 9305717544 8 d-27     /
+      data ai12cs( 58) / -.2222902499 7024276390 6775852777 4 d-28     /
+      data ai12cs( 59) / +.5424535127 1459696550 4860040112 8 d-28     /
+      data ai12cs( 60) / -.1787068401 5780186887 6491299330 4 d-28     /
+      data ai12cs( 61) / -.6565479068 7228149388 2392943788 0 d-29     /
+      data ai12cs( 62) / +.7807013165 0611452809 2206770683 9 d-29     /
+      data ai12cs( 63) / -.1816595260 6689797173 7933315222 1 d-29     /
+      data ai12cs( 64) / -.1287704952 6600848203 7687559895 9 d-29     /
+      data ai12cs( 65) / +.1114548172 9881645474 1370927369 4 d-29     /
+      data ai12cs( 66) / -.1808343145 0393369391 5936887668 7 d-30     /
+      data ai12cs( 67) / -.2231677718 2037719522 3244822893 9 d-30     /
+      data ai12cs( 68) / +.1619029596 0803415106 1790980361 4 d-30     /
+      data ai12cs( 69) / -.1834079908 8049414139 0130843921 0 d-31     /
+c
+      data nti1, ntai1, ntai12, xmin, xsml / 3*0, 2*0.d0 /
+c
+      if (nti1.ne.0) go to 10
+      eta = 0.1*sngl(d1mach(3))
+      nti1 = initds (bi1cs, 17, eta)
+      ntai1 = initds (ai1cs, 46, eta)
+      ntai12 = initds (ai12cs, 69, eta)
+c
+      xmin = 2.0d0*d1mach(1)
+      xsml = dsqrt (8.0d0*d1mach(3))
+c
+ 10   y = dabs(x)
+      if (y.gt.3.0d0) go to 20
+c
+      dbsi1e = 0.0d0
+      if (y.eq.0.0d0) return
+c
+      if (y.le.xmin) call seteru (
+     1  38hdbsi1e  dabs(x) so small i1 underflows, 37, 1, 0)
+      if (y.gt.xmin) dbsi1e = 0.5d0*x
+      if (y.gt.xsml) dbsi1e = x*(0.875d0 + dcsevl (y*y/4.5d0-1.d0,
+     1  bi1cs, nti1) )
+      dbsi1e = dexp(-y) * dbsi1e
+      return
+c
+ 20   if (y.le.8.d0) dbsi1e = (0.375d0 + dcsevl ((48.d0/y-11.d0)/5.d0,
+     1  ai1cs, ntai1))/dsqrt(y)
+      if (y.gt.8.d0) dbsi1e = (0.375d0 + dcsevl (16.d0/y-1.d0, ai12cs,
+     1  ntai12))/dsqrt(y)
+      dbsi1e = dsign (dbsi1e, x)
+c
+      return
+      end
diff --git a/fvn_fnlib/dbsk0e.f b/fvn_fnlib/dbsk0e.f
new file mode 100644
index 0000000..56f0dcf
--- /dev/null
+++ b/fvn_fnlib/dbsk0e.f
@@ -0,0 +1,139 @@
+      double precision function dbsk0e (x)
+c july 1980 edition.  w. fullerton, c3, los alamos scientific lab.
+      double precision x, bk0cs(16), ak0cs(38), ak02cs(33),
+     1  xsml, y, d1mach, dcsevl, dbesi0, dexp, dlog, dsqrt
+      external d1mach, dbesi0, dcsevl,  initds
+c
+c series for bk0        on the interval  0.          to  4.00000e+00
+c                                        with weighted error   3.08e-33
+c                                         log weighted error  32.51
+c                               significant figures required  32.05
+c                                    decimal places required  33.11
+c
+      data bk0 cs(  1) / -.3532739323 3902768720 1140060063 153 d-1    /
+      data bk0 cs(  2) / +.3442898999 2462848688 6344927529 213 d+0    /
+      data bk0 cs(  3) / +.3597993651 5361501626 5721303687 231 d-1    /
+      data bk0 cs(  4) / +.1264615411 4469259233 8479508673 447 d-2    /
+      data bk0 cs(  5) / +.2286212103 1194517860 8269830297 585 d-4    /
+      data bk0 cs(  6) / +.2534791079 0261494573 0790013428 354 d-6    /
+      data bk0 cs(  7) / +.1904516377 2202088589 7214059381 366 d-8    /
+      data bk0 cs(  8) / +.1034969525 7633624585 1008317853 089 d-10   /
+      data bk0 cs(  9) / +.4259816142 7910825765 2445327170 133 d-13   /
+      data bk0 cs( 10) / +.1374465435 8807508969 4238325440 000 d-15   /
+      data bk0 cs( 11) / +.3570896528 5083735909 9688597333 333 d-18   /
+      data bk0 cs( 12) / +.7631643660 1164373766 7498666666 666 d-21   /
+      data bk0 cs( 13) / +.1365424988 4407818590 8053333333 333 d-23   /
+      data bk0 cs( 14) / +.2075275266 9066680831 9999999999 999 d-26   /
+      data bk0 cs( 15) / +.2712814218 0729856000 0000000000 000 d-29   /
+      data bk0 cs( 16) / +.3082593887 9146666666 6666666666 666 d-32   /
+c
+c series for ak0        on the interval  1.25000e-01 to  5.00000e-01
+c                                        with weighted error   2.85e-32
+c                                         log weighted error  31.54
+c                               significant figures required  30.19
+c                                    decimal places required  32.33
+c
+      data ak0 cs(  1) / -.7643947903 3279414240 8297827008 8 d-1      /
+      data ak0 cs(  2) / -.2235652605 6998190520 2309555079 1 d-1      /
+      data ak0 cs(  3) / +.7734181154 6938582353 0061817404 7 d-3      /
+      data ak0 cs(  4) / -.4281006688 8860994644 5214643541 6 d-4      /
+      data ak0 cs(  5) / +.3081700173 8629747436 5001482666 0 d-5      /
+      data ak0 cs(  6) / -.2639367222 0096649740 6744889272 3 d-6      /
+      data ak0 cs(  7) / +.2563713036 4034692062 9408826574 2 d-7      /
+      data ak0 cs(  8) / -.2742705549 9002012638 5721191524 4 d-8      /
+      data ak0 cs(  9) / +.3169429658 0974995920 8083287340 3 d-9      /
+      data ak0 cs( 10) / -.3902353286 9621841416 0106571796 2 d-10     /
+      data ak0 cs( 11) / +.5068040698 1885754020 5009212728 6 d-11     /
+      data ak0 cs( 12) / -.6889574741 0078706795 4171355798 4 d-12     /
+      data ak0 cs( 13) / +.9744978497 8259176913 8820133683 1 d-13     /
+      data ak0 cs( 14) / -.1427332841 8845485053 8985534012 2 d-13     /
+      data ak0 cs( 15) / +.2156412571 0214630395 5806297652 7 d-14     /
+      data ak0 cs( 16) / -.3349654255 1495627721 8878205853 0 d-15     /
+      data ak0 cs( 17) / +.5335260216 9529116921 4528039260 1 d-16     /
+      data ak0 cs( 18) / -.8693669980 8907538076 3962237883 7 d-17     /
+      data ak0 cs( 19) / +.1446404347 8622122278 8776344234 6 d-17     /
+      data ak0 cs( 20) / -.2452889825 5001296824 0467875157 3 d-18     /
+      data ak0 cs( 21) / +.4233754526 2321715728 2170634240 0 d-19     /
+      data ak0 cs( 22) / -.7427946526 4544641956 9534129493 3 d-20     /
+      data ak0 cs( 23) / +.1323150529 3926668662 7796746240 0 d-20     /
+      data ak0 cs( 24) / -.2390587164 7396494513 3598146559 9 d-21     /
+      data ak0 cs( 25) / +.4376827585 9232261401 6571255466 6 d-22     /
+      data ak0 cs( 26) / -.8113700607 3451180593 3901141333 3 d-23     /
+      data ak0 cs( 27) / +.1521819913 8321729583 1037815466 6 d-23     /
+      data ak0 cs( 28) / -.2886041941 4833977702 3595861333 3 d-24     /
+      data ak0 cs( 29) / +.5530620667 0547179799 9261013333 3 d-25     /
+      data ak0 cs( 30) / -.1070377329 2498987285 9163306666 6 d-25     /
+      data ak0 cs( 31) / +.2091086893 1423843002 9632853333 3 d-26     /
+      data ak0 cs( 32) / -.4121713723 6462038274 1026133333 3 d-27     /
+      data ak0 cs( 33) / +.8193483971 1213076401 3568000000 0 d-28     /
+      data ak0 cs( 34) / -.1642000275 4592977267 8075733333 3 d-28     /
+      data ak0 cs( 35) / +.3316143281 4802271958 9034666666 6 d-29     /
+      data ak0 cs( 36) / -.6746863644 1452959410 8586666666 6 d-30     /
+      data ak0 cs( 37) / +.1382429146 3184246776 3541333333 3 d-30     /
+      data ak0 cs( 38) / -.2851874167 3598325708 1173333333 3 d-31     /
+c
+c series for ak02       on the interval  0.          to  1.25000e-01
+c                                        with weighted error   2.30e-32
+c                                         log weighted error  31.64
+c                               significant figures required  29.68
+c                                    decimal places required  32.40
+c
+      data ak02cs(  1) / -.1201869826 3075922398 3934621245 2 d-1      /
+      data ak02cs(  2) / -.9174852691 0256953106 5256107571 3 d-2      /
+      data ak02cs(  3) / +.1444550931 7750058210 4884387805 7 d-3      /
+      data ak02cs(  4) / -.4013614175 4357097286 7102107787 9 d-5      /
+      data ak02cs(  5) / +.1567831810 8523106725 9034899033 3 d-6      /
+      data ak02cs(  6) / -.7770110438 5217377103 1579975446 0 d-8      /
+      data ak02cs(  7) / +.4611182576 1797178825 3313052958 6 d-9      /
+      data ak02cs(  8) / -.3158592997 8605657705 2666580330 9 d-10     /
+      data ak02cs(  9) / +.2435018039 3650411278 3588781432 9 d-11     /
+      data ak02cs( 10) / -.2074331387 3983478977 0985337350 6 d-12     /
+      data ak02cs( 11) / +.1925787280 5899170847 4273650469 3 d-13     /
+      data ak02cs( 12) / -.1927554805 8389561036 0034718221 8 d-14     /
+      data ak02cs( 13) / +.2062198029 1978182782 8523786964 4 d-15     /
+      data ak02cs( 14) / -.2341685117 5792424026 0364019507 1 d-16     /
+      data ak02cs( 15) / +.2805902810 6430422468 1517882845 8 d-17     /
+      data ak02cs( 16) / -.3530507631 1618079458 1548246357 3 d-18     /
+      data ak02cs( 17) / +.4645295422 9351082674 2421633706 6 d-19     /
+      data ak02cs( 18) / -.6368625941 3442664739 2205346133 3 d-20     /
+      data ak02cs( 19) / +.9069521310 9865155676 2234880000 0 d-21     /
+      data ak02cs( 20) / -.1337974785 4236907398 4500531199 9 d-21     /
+      data ak02cs( 21) / +.2039836021 8599523155 2208896000 0 d-22     /
+      data ak02cs( 22) / -.3207027481 3678405000 6086997333 3 d-23     /
+      data ak02cs( 23) / +.5189744413 6623099636 2635946666 6 d-24     /
+      data ak02cs( 24) / -.8629501497 5405721929 6460799999 9 d-25     /
+      data ak02cs( 25) / +.1472161183 1025598552 0803840000 0 d-25     /
+      data ak02cs( 26) / -.2573069023 8670112838 1235199999 9 d-26     /
+      data ak02cs( 27) / +.4601774086 6435165873 7664000000 0 d-27     /
+      data ak02cs( 28) / -.8411555324 2010937371 3066666666 6 d-28     /
+      data ak02cs( 29) / +.1569806306 6353689393 0154666666 6 d-28     /
+      data ak02cs( 30) / -.2988226453 0057577889 7919999999 9 d-29     /
+      data ak02cs( 31) / +.5796831375 2168365206 1866666666 6 d-30     /
+      data ak02cs( 32) / -.1145035994 3476813321 5573333333 3 d-30     /
+      data ak02cs( 33) / +.2301266594 2496828020 0533333333 3 d-31     /
+      data ntk0, ntak0, ntak02, xsml / 3*0, 0.0d0 /
+c
+      if (ntk0.ne.0) go to 10
+      eta = 0.1*sngl(d1mach(3))
+      ntk0 = initds (bk0cs, 16, eta)
+      ntak0 = initds (ak0cs, 38, eta)
+      ntak02 = initds (ak02cs, 33, eta)
+      xsml = dsqrt (4.0d0*d1mach(3))
+c
+ 10   if (x.le.0.d0) call seteru (29hdbsk0e  x is zero or negative, 29,
+     1  1, 2)
+      if (x.gt.2.0d0) go to 20
+c
+      y = 0.d0
+      if (x.gt.xsml) y = x*x
+      dbsk0e = dexp(x)*(-dlog(0.5d0*x)*dbesi0(x) - 0.25d0 +
+     1  dcsevl (.5d0*y-1.d0, bk0cs, ntk0))
+      return
+c
+ 20   if (x.le.8.d0) dbsk0e = (1.25d0 + dcsevl ((16.d0/x-5.d0)/3.d0,
+     1  ak0cs, ntak0))/dsqrt(x)
+      if (x.gt.8.d0) dbsk0e = (1.25d0 +
+     1  dcsevl (16.d0/x-1.d0, ak02cs, ntak02))/dsqrt(x)
+c
+      return
+      end
diff --git a/fvn_fnlib/dbsk1e.f b/fvn_fnlib/dbsk1e.f
new file mode 100644
index 0000000..650f325
--- /dev/null
+++ b/fvn_fnlib/dbsk1e.f
@@ -0,0 +1,144 @@
+      double precision function dbsk1e (x)
+c july 1980 edition.  w. fullerton, c3, los alamos scientific lab.
+      double precision x, bk1cs(16), ak1cs(38), ak12cs(33), xmin,
+     1  xsml, y, d1mach, dcsevl, dbesi1, dexp, dlog, dsqrt
+      external d1mach, dbesi1, dcsevl,  initds
+c
+c series for bk1        on the interval  0.          to  4.00000e+00
+c                                        with weighted error   9.16e-32
+c                                         log weighted error  31.04
+c                               significant figures required  30.61
+c                                    decimal places required  31.64
+c
+      data bk1 cs(  1) / +.2530022733 8947770532 5311208685 33 d-1     /
+      data bk1 cs(  2) / -.3531559607 7654487566 7238316918 01 d+0     /
+      data bk1 cs(  3) / -.1226111808 2265714823 4790679300 42 d+0     /
+      data bk1 cs(  4) / -.6975723859 6398643501 8129202960 83 d-2     /
+      data bk1 cs(  5) / -.1730288957 5130520630 1765073689 79 d-3     /
+      data bk1 cs(  6) / -.2433406141 5659682349 6007350301 64 d-5     /
+      data bk1 cs(  7) / -.2213387630 7347258558 3152525451 26 d-7     /
+      data bk1 cs(  8) / -.1411488392 6335277610 9583302126 08 d-9     /
+      data bk1 cs(  9) / -.6666901694 1993290060 8537512643 73 d-12    /
+      data bk1 cs( 10) / -.2427449850 5193659339 2631968648 53 d-14    /
+      data bk1 cs( 11) / -.7023863479 3862875971 7837971200 00 d-17    /
+      data bk1 cs( 12) / -.1654327515 5100994675 4910293333 33 d-19    /
+      data bk1 cs( 13) / -.3233834745 9944491991 8933333333 33 d-22    /
+      data bk1 cs( 14) / -.5331275052 9265274999 4666666666 66 d-25    /
+      data bk1 cs( 15) / -.7513040716 2157226666 6666666666 66 d-28    /
+      data bk1 cs( 16) / -.9155085717 6541866666 6666666666 66 d-31    /
+c
+c series for ak1        on the interval  1.25000e-01 to  5.00000e-01
+c                                        with weighted error   3.07e-32
+c                                         log weighted error  31.51
+c                               significant figures required  30.71
+c                                    decimal places required  32.30
+c
+      data ak1 cs(  1) / +.2744313406 9738829695 2576662272 66 d+0     /
+      data ak1 cs(  2) / +.7571989953 1993678170 8923781492 90 d-1     /
+      data ak1 cs(  3) / -.1441051556 4754061229 8531161756 25 d-2     /
+      data ak1 cs(  4) / +.6650116955 1257479394 2513854770 36 d-4     /
+      data ak1 cs(  5) / -.4369984709 5201407660 5808450891 67 d-5     /
+      data ak1 cs(  6) / +.3540277499 7630526799 4171390085 34 d-6     /
+      data ak1 cs(  7) / -.3311163779 2932920208 9826882457 04 d-7     /
+      data ak1 cs(  8) / +.3445977581 9010534532 3114997709 92 d-8     /
+      data ak1 cs(  9) / -.3898932347 4754271048 9819374927 58 d-9     /
+      data ak1 cs( 10) / +.4720819750 4658356400 9474493390 05 d-10    /
+      data ak1 cs( 11) / -.6047835662 8753562345 3735915628 90 d-11    /
+      data ak1 cs( 12) / +.8128494874 8658747888 1938379856 63 d-12    /
+      data ak1 cs( 13) / -.1138694574 7147891428 9239159510 42 d-12    /
+      data ak1 cs( 14) / +.1654035840 8462282325 9729482050 90 d-13    /
+      data ak1 cs( 15) / -.2480902567 7068848221 5160104405 33 d-14    /
+      data ak1 cs( 16) / +.3829237890 7024096948 4292272991 57 d-15    /
+      data ak1 cs( 17) / -.6064734104 0012418187 7682103773 86 d-16    /
+      data ak1 cs( 18) / +.9832425623 2648616038 1940046506 66 d-17    /
+      data ak1 cs( 19) / -.1628416873 8284380035 6666201156 26 d-17    /
+      data ak1 cs( 20) / +.2750153649 6752623718 2841203370 66 d-18    /
+      data ak1 cs( 21) / -.4728966646 3953250924 2810695680 00 d-19    /
+      data ak1 cs( 22) / +.8268150002 8109932722 3920503466 66 d-20    /
+      data ak1 cs( 23) / -.1468140513 6624956337 1939648853 33 d-20    /
+      data ak1 cs( 24) / +.2644763926 9208245978 0858948266 66 d-21    /
+      data ak1 cs( 25) / -.4829015756 4856387897 9698688000 00 d-22    /
+      data ak1 cs( 26) / +.8929302074 3610130180 6563327999 99 d-23    /
+      data ak1 cs( 27) / -.1670839716 8972517176 9977514666 66 d-23    /
+      data ak1 cs( 28) / +.3161645603 4040694931 3686186666 66 d-24    /
+      data ak1 cs( 29) / -.6046205531 2274989106 5064106666 66 d-25    /
+      data ak1 cs( 30) / +.1167879894 2042732700 7184213333 33 d-25    /
+      data ak1 cs( 31) / -.2277374158 2653996232 8678400000 00 d-26    /
+      data ak1 cs( 32) / +.4481109730 0773675795 3058133333 33 d-27    /
+      data ak1 cs( 33) / -.8893288476 9020194062 3360000000 00 d-28    /
+      data ak1 cs( 34) / +.1779468001 8850275131 3920000000 00 d-28    /
+      data ak1 cs( 35) / -.3588455596 7329095821 9946666666 66 d-29    /
+      data ak1 cs( 36) / +.7290629049 2694257991 6799999999 99 d-30    /
+      data ak1 cs( 37) / -.1491844984 5546227073 0240000000 00 d-30    /
+      data ak1 cs( 38) / +.3073657387 2934276300 7999999999 99 d-31    /
+c
+c series for ak12       on the interval  0.          to  1.25000e-01
+c                                        with weighted error   2.41e-32
+c                                         log weighted error  31.62
+c                               significant figures required  30.25
+c                                    decimal places required  32.38
+c
+      data ak12cs(  1) / +.6379308343 7390010366 0048853410 2 d-1      /
+      data ak12cs(  2) / +.2832887813 0497209358 3503028470 8 d-1      /
+      data ak12cs(  3) / -.2475370673 9052503454 1454556673 2 d-3      /
+      data ak12cs(  4) / +.5771972451 6072488204 7097662576 3 d-5      /
+      data ak12cs(  5) / -.2068939219 5365483027 4553319655 2 d-6      /
+      data ak12cs(  6) / +.9739983441 3818041803 0921309788 7 d-8      /
+      data ak12cs(  7) / -.5585336140 3806249846 8889551112 9 d-9      /
+      data ak12cs(  8) / +.3732996634 0461852402 2121285473 1 d-10     /
+      data ak12cs(  9) / -.2825051961 0232254451 3506575492 8 d-11     /
+      data ak12cs( 10) / +.2372019002 4841441736 4349695548 6 d-12     /
+      data ak12cs( 11) / -.2176677387 9917539792 6830166793 8 d-13     /
+      data ak12cs( 12) / +.2157914161 6160324539 3956268970 6 d-14     /
+      data ak12cs( 13) / -.2290196930 7182692759 9155133815 4 d-15     /
+      data ak12cs( 14) / +.2582885729 8232749619 1993956522 6 d-16     /
+      data ak12cs( 15) / -.3076752641 2684631876 2109817344 0 d-17     /
+      data ak12cs( 16) / +.3851487721 2804915970 9489684479 9 d-18     /
+      data ak12cs( 17) / -.5044794897 6415289771 1728250880 0 d-19     /
+      data ak12cs( 18) / +.6888673850 4185442370 1829222399 9 d-20     /
+      data ak12cs( 19) / -.9775041541 9501183030 0213248000 0 d-21     /
+      data ak12cs( 20) / +.1437416218 5238364610 0165973333 3 d-21     /
+      data ak12cs( 21) / -.2185059497 3443473734 9973333333 3 d-22     /
+      data ak12cs( 22) / +.3426245621 8092206316 4538880000 0 d-23     /
+      data ak12cs( 23) / -.5531064394 2464082325 0124800000 0 d-24     /
+      data ak12cs( 24) / +.9176601505 6859954037 8282666666 6 d-25     /
+      data ak12cs( 25) / -.1562287203 6180249114 4874666666 6 d-25     /
+      data ak12cs( 26) / +.2725419375 4843331323 4943999999 9 d-26     /
+      data ak12cs( 27) / -.4865674910 0748279923 7802666666 6 d-27     /
+      data ak12cs( 28) / +.8879388552 7235025873 5786666666 6 d-28     /
+      data ak12cs( 29) / -.1654585918 0392575489 3653333333 3 d-28     /
+      data ak12cs( 30) / +.3145111321 3578486743 0399999999 9 d-29     /
+      data ak12cs( 31) / -.6092998312 1931276124 1600000000 0 d-30     /
+      data ak12cs( 32) / +.1202021939 3698158346 2399999999 9 d-30     /
+      data ak12cs( 33) / -.2412930801 4594088413 8666666666 6 d-31     /
+c
+      data ntk1, ntak1, ntak12, xmin, xsml / 3*0, 2*0.d0 /
+c
+      if (ntk1.ne.0) go to 10
+      eta = 0.1*sngl(d1mach(3))
+      ntk1 = initds (bk1cs, 16, eta)
+      ntak1 = initds (ak1cs, 38, eta)
+      ntak12 = initds (ak12cs, 33, eta)
+c
+      xmin = dexp (dmax1(dlog(d1mach(1)), -dlog(d1mach(2))) + 0.01d0)
+      xsml = dsqrt (4.0d0*d1mach(3))
+c
+ 10   if (x.le.0.d0) call seteru (29hdbsk1e  x is zero or negative, 29,
+     1  1, 2)
+      if (x.gt.2.0d0) go to 20
+c
+      if (x.lt.xmin) call seteru (31hdbsk1e  x so small k1 overflows,
+     1  31, 2, 2)
+      y = 0.d0
+      if (x.gt.xsml) y = x*x
+      dbsk1e = dexp(x)*(dlog(0.5d0*x)*dbesi1(x) + (0.75d0 +
+     1  dcsevl (0.5d0*y-1.d0, bk1cs, ntk1))/x )
+      return
+c
+ 20   if (x.le.8.d0) dbsk1e = (1.25d0 + dcsevl ((16.d0/x-5.d0)/3.d0,
+     1  ak1cs, ntak1))/dsqrt(x)
+      if (x.gt.8.d0) dbsk1e = (1.25d0 +
+     1  dcsevl (16.d0/x-1.d0, ak12cs, ntak12))/dsqrt(x)
+c
+      return
+      end
diff --git a/fvn_fnlib/dbskes.f b/fvn_fnlib/dbskes.f
new file mode 100644
index 0000000..f614d4a
--- /dev/null
+++ b/fvn_fnlib/dbskes.f
@@ -0,0 +1,46 @@
+      subroutine dbskes (xnu, x, nin, bke)
+c july 1980 edition.   w. fullerton, c3, los alamos scientific lab.
+      double precision xnu, x, bke(1), bknu1, v, vincr, vend, alnbig,
+     1  d1mach, dlog
+      external d1mach
+      data alnbig / 0.d0 /
+c
+      if (alnbig.eq.0.d0) alnbig = dlog (d1mach(2))
+c
+      v = dabs(xnu)
+      n = iabs(nin)
+c
+      if (v.ge.1.d0) call seteru (29hdbskes  abs(xnu) must be lt 1, 29,
+     1  1, 2)
+      if (x.le.0.d0) call seteru (17hdbskes  x is le 0, 17, 2, 2)
+      if (n.eq.0) call seteru (
+     1  41hdbskes  n the number in the sequence is 0, 41, 3, 2)
+c
+      call d9knus (v, x, bke(1), bknu1, iswtch)
+      if (n.eq.1) return
+c
+      vincr = sign (1.0, float(nin))
+      direct = vincr
+      if (xnu.ne.0.d0) direct = vincr*dsign(1.d0, xnu)
+      if (iswtch.eq.1 .and. direct.gt.0.) call seteru (
+     1  47hdbskes  x so small bessel k-sub-xnu+1 overflows, 47, 4, 2)
+      bke(2) = bknu1
+c
+      if (direct.lt.0.) call d9knus (dabs(xnu+vincr), x, bke(2), bknu1,
+     1  iswtch)
+      if (n.eq.2) return
+c
+      vend = dabs (xnu+dble(float(nin))) - 1.0d0
+      if (x + (vend-.5d0)*dlog(vend)+0.27d0-vend*(dlog(x)+.306d0)
+     1  .gt.alnbig) call seteru (
+     2               67hdbskes  x so small or abs(nu) so big that bessel
+     3 k-sub-nu overflows, 67, 5, 2)
+c
+      v = xnu
+      do 10 i=3,n
+        v = v + vincr
+        bke(i) = 2.0d0*v*bke(i-1)/x + bke(i-2)
+ 10   continue
+c
+      return
+      end
diff --git a/fvn_fnlib/dcbrt.f b/fvn_fnlib/dcbrt.f
new file mode 100644
index 0000000..b668844
--- /dev/null
+++ b/fvn_fnlib/dcbrt.f
@@ -0,0 +1,39 @@
+      double precision function dcbrt (x)
+c june 1977 edition.   w. fullerton, c3, los alamos scientific lab.
+      double precision x, cbrt2(5), y, cbrtsq,  d9pak, d1mach
+      external d1mach, d9pak
+c
+      data cbrt2(1) / 0.6299605249 4743658238 3605303639 11 d0 /
+      data cbrt2(2) / 0.7937005259 8409973737 5852819636 15 d0 /
+      data cbrt2(3) / 1.0 d0 /
+      data cbrt2(4) / 1.2599210498 9487316476 7210607278 23 d0 /
+      data cbrt2(5) / 1.5874010519 6819947475 1705639272 31 d0 /
+c
+      data niter / 0 /
+c
+      if (niter.eq.0) niter = 1.443*alog(-.106*alog(0.1*sngl(d1mach(3)))
+     1  ) + 1.0
+c
+      dcbrt = 0.d0
+      if (x.eq.0.d0) return
+c
+      call d9upak (dabs(x), y, n)
+      ixpnt = n/3
+      irem = n - 3*ixpnt + 3
+c
+c the approximation below is a generalized chebyshev series converted
+c to polynomial form.  the approx is nearly best in the sense of
+c relative error with 4.085 digits accuracy.
+c
+      z = y
+      dcbrt = .439581e0 + z*(.928549e0 + z*(-.512653e0 + z*.144586e0))
+c
+      do 10 iter=1,niter
+        cbrtsq = dcbrt*dcbrt
+        dcbrt = dcbrt + (y-dcbrt*cbrtsq)/(3.d0*cbrtsq)
+ 10   continue
+c
+      dcbrt = d9pak (cbrt2(irem)*dsign(dcbrt,x), ixpnt)
+      return
+c
+      end
diff --git a/fvn_fnlib/dchi.f b/fvn_fnlib/dchi.f
new file mode 100644
index 0000000..11b7383
--- /dev/null
+++ b/fvn_fnlib/dchi.f
@@ -0,0 +1,13 @@
+      double precision function dchi (x)
+c december 1980 edition.  w. fullerton, bell labs.
+c
+c evaluate the hyperbolic cosine integral.  when x is negative, the
+c principal value is used.
+c
+      double precision x, dei, de1
+      external de1, dei
+c
+      dchi = 0.5d0 * (dei(x) - de1(x))
+c
+      return
+      end
diff --git a/fvn_fnlib/dchu.f b/fvn_fnlib/dchu.f
new file mode 100644
index 0000000..0683c60
--- /dev/null
+++ b/fvn_fnlib/dchu.f
@@ -0,0 +1,148 @@
+      double precision function dchu (a, b, x)
+c august 1980 edition.  w. fullerton, c3, los alamos scientific lab.
+c this routine is not valid when 1+a-b is close to zero if x is small.
+      double precision a, b, x, aintb, alnx, a0, beps, b0, c0, eps,
+     1  factor, gamri1, gamrni, pch1ai, pch1i, pi, pochai, sum, t,
+     2  xeps1, xi, xi1, xn, xtoeps,  d1mach, dpoch, dgamma, dgamr,
+     3  dpoch1, dexprl, d9chu, dint, dexp, dlog, dsin, dsqrt
+      external d1mach, d9chu,  dexprl, dgamma, dgamr, 
+     1  dpoch, dpoch1
+      data pi / 3.1415926535 8979323846 2643383279 503 d0 /
+      data eps / 0.0d0 /
+c
+      if (eps.eq.0.0d0) eps = d1mach(3)
+c
+      if (x.lt.0.0d0) call seteru (31hdchu    x is negative, use cchu,
+     1  31, 1, 2)
+c
+      if (x.ne.0.0d0) go to 10
+      if (b.ge.1.0d0) call seteru (
+     1  35hchu     x=0, b ge 1 so chu infinite, 35, 2, 2)
+      dchu = dgamma(1.0d0-b)/dgamma(1.0d0+a-b)
+      return
+c
+ 10   if (dmax1(dabs(a),1.0d0)*dmax1(dabs(1.0d0+a-b),1.0d0).lt.
+     1  0.99d0*dabs(x)) go to 120
+c
+c the ascending series will be used, because the descending rational
+c approximation (which is based on the asymptotic series) is unstable.
+c
+      if (dabs(1.0d0+a-b).lt.dsqrt(eps)) call seteru (
+     1  60hdchu    algorithm is bad when 1+a-b is near zero for small x,
+     2  60, 10, 2)
+c
+      if (b.ge.0.0d0) aintb = dint(b+0.5d0)
+      if (b.lt.0.0d0) aintb = dint(b-0.5d0)
+      beps = b - aintb
+      n = aintb
+c
+      alnx = dlog(x)
+      xtoeps = dexp (-beps*alnx)
+c
+c evaluate the finite sum.     -----------------------------------------
+c
+      if (n.ge.1) go to 40
+c
+c consider the case b .lt. 1.0 first.
+c
+      sum = 1.0d0
+      if (n.eq.0) go to 30
+c
+      t = 1.0d0
+      m = -n
+      do 20 i=1,m
+        xi1 = i - 1
+        t = t*(a+xi1)*x/((b+xi1)*(xi1+1.0d0))
+        sum = sum + t
+ 20   continue
+c
+ 30   sum = dpoch(1.0d0+a-b, -a)*sum
+      go to 70
+c
+c now consider the case b .ge. 1.0.
+c
+ 40   sum = 0.0d0
+      m = n - 2
+      if (m.lt.0) go to 70
+      t = 1.0d0
+      sum = 1.0d0
+      if (m.eq.0) go to 60
+c
+      do 50 i=1,m
+        xi = i
+        t = t * (a-b+xi)*x/((1.0d0-b+xi)*xi)
+        sum = sum + t
+ 50   continue
+c
+ 60   sum = dgamma(b-1.0d0) * dgamr(a) * x**(1-n) * xtoeps * sum
+c
+c next evaluate the infinite sum.     ----------------------------------
+c
+ 70   istrt = 0
+      if (n.lt.1) istrt = 1 - n
+      xi = istrt
+c
+      factor = (-1.0d0)**n * dgamr(1.0d0+a-b) * x**istrt
+      if (beps.ne.0.0d0) factor = factor * beps*pi/dsin(beps*pi)
+c
+      pochai = dpoch (a, xi)
+      gamri1 = dgamr (xi+1.0d0)
+      gamrni = dgamr (aintb+xi)
+      b0 = factor * dpoch(a,xi-beps) * gamrni * dgamr(xi+1.0d0-beps)
+c
+      if (dabs(xtoeps-1.0d0).gt.0.5d0) go to 90
+c
+c x**(-beps) is close to 1.0d0, so we must be careful in evaluating the
+c differences.
+c
+      pch1ai = dpoch1 (a+xi, -beps)
+      pch1i = dpoch1 (xi+1.0d0-beps, beps)
+      c0 = factor * pochai * gamrni * gamri1 * (
+     1  -dpoch1(b+xi,-beps) + pch1ai - pch1i + beps*pch1ai*pch1i)
+c
+c xeps1 = (1.0 - x**(-beps))/beps = (x**(-beps) - 1.0)/(-beps)
+      xeps1 = alnx*dexprl(-beps*alnx)
+c
+      dchu = sum + c0 + xeps1*b0
+      xn = n
+      do 80 i=1,1000
+        xi = istrt + i
+        xi1 = istrt + i - 1
+        b0 = (a+xi1-beps)*b0*x/((xn+xi1)*(xi-beps))
+        c0 = (a+xi1)*c0*x/((b+xi1)*xi)
+     1    - ((a-1.0d0)*(xn+2.d0*xi-1.0d0) + xi*(xi-beps)) * b0
+     2    / (xi*(b+xi1)*(a+xi1-beps))
+        t = c0 + xeps1*b0
+        dchu = dchu + t
+        if (dabs(t).lt.eps*dabs(dchu)) go to 130
+ 80   continue
+      call seteru (
+     1  60hdchu    no convergence in 1000 terms of the ascending series,
+     2  60, 3, 2)
+c
+c x**(-beps) is very different from 1.0, so the straightforward
+c formulation is stable.
+c
+ 90   a0 = factor * pochai * dgamr(b+xi) * gamri1 / beps
+      b0 = xtoeps * b0 / beps
+c
+      dchu = sum + a0 - b0
+      do 100 i=1,1000
+        xi = istrt + i
+        xi1 = istrt + i - 1
+        a0 = (a+xi1)*a0*x/((b+xi1)*xi)
+        b0 = (a+xi1-beps)*b0*x/((aintb+xi1)*(xi-beps))
+        t = a0 - b0
+        dchu = dchu + t
+        if (dabs(t).lt.eps*dabs(dchu)) go to 130
+ 100  continue
+      call seteru (
+     1  60hdchu    no convergence in 1000 terms of the ascending series,
+     2  60, 3, 2)
+c
+c use luke-s rational approximation in the asymptotic region.
+c
+ 120  dchu = x**(-a) * d9chu(a,b,x)
+c
+ 130  return
+      end
diff --git a/fvn_fnlib/dci.f b/fvn_fnlib/dci.f
new file mode 100644
index 0000000..89d0393
--- /dev/null
+++ b/fvn_fnlib/dci.f
@@ -0,0 +1,54 @@
+      double precision function dci (x)
+c december 1980 edition, w. fullerton, bell labs.
+      double precision x, cics(19), xsml, y, f, g, sinx, dcsevl,
+     1  d1mach, dcos, dlog, dsin, dsqrt
+      external d1mach,  dcsevl,  initds
+c
+c series for ci   on the interval  0.00000e+00 to  1.60000e+01
+c                                        with weighted error   9.26e-33
+c                                         log weighted error  32.03
+c                               significant figures required  32.06
+c                                    decimal places required  32.67
+c
+      data ci  cs(  1) / -0.3400428185 6055363156 2810766331 29873d0/
+      data ci  cs(  2) / -1.0330216640 1177456807 1592710401 63751d0/
+      data ci  cs(  3) /  0.1938822265 9917082876 7158746060 81709d0/
+      data ci  cs(  4) / -0.0191826043 6019865893 9463462701 75301d0/
+      data ci  cs(  5) /  0.0011078925 2584784967 1840980992 66118d0/
+      data ci  cs(  6) / -0.0000415723 4558247208 8038402318 14601d0/
+      data ci  cs(  7) /  0.0000010927 8524300228 7152955789 66285d0/
+      data ci  cs(  8) / -0.0000000212 3285954183 4652196012 80329d0/
+      data ci  cs(  9) /  0.0000000003 1733482164 3485448651 29873d0/
+      data ci  cs( 10) / -0.0000000000 0376141547 9876836993 81798d0/
+      data ci  cs( 11) /  0.0000000000 0003622653 4884839643 36956d0/
+      data ci  cs( 12) / -0.0000000000 0000028911 5284936518 52433d0/
+      data ci  cs( 13) /  0.0000000000 0000000194 3278606764 94420d0/
+      data ci  cs( 14) / -0.0000000000 0000000001 1151831826 50184d0/
+      data ci  cs( 15) /  0.0000000000 0000000000 0055278588 87706d0/
+      data ci  cs( 16) / -0.0000000000 0000000000 0000239070 13943d0/
+      data ci  cs( 17) /  0.0000000000 0000000000 0000000910 01612d0/
+      data ci  cs( 18) / -0.0000000000 0000000000 0000000003 07233d0/
+      data ci  cs( 19) /  0.0000000000 0000000000 0000000000 00926d0/
+c
+      data nci, xsml /0, 0.0d0/
+c
+      if (nci.ne.0) go to 10
+      nci = initds (cics, 19, 0.1*sngl(d1mach(3)))
+      xsml = dsqrt (d1mach(3))
+c
+ 10   if (x.le.0.0d0) call seteru (17hdci     x is le 0, 17, 1, 2)
+c
+      if (x.gt.4.0d0) go to 20
+      y = -1.0d0
+      if (x.gt.xsml) y = (x*x-8.d0)*0.125d0
+c
+      dci = dlog(x) - 0.5d0 + dcsevl (y, cics, nci)
+      return
+c
+ 20   call d9sifg (x, f, g)
+      sinx = dsin (x)
+      call erroff
+      dci = f*sinx - g*dcos(x)
+c
+      return
+      end
diff --git a/fvn_fnlib/dcin.f b/fvn_fnlib/dcin.f
new file mode 100644
index 0000000..2e512cc
--- /dev/null
+++ b/fvn_fnlib/dcin.f
@@ -0,0 +1,55 @@
+      double precision function dcin (x)
+c december 1980 edition.  w. fullerton, bell labs.
+      double precision x, cincs(18), eul, xmin, f, g, sinx, absx,
+     1  dcsevl, d1mach, dcos, dlog, dsin, dsqrt
+      external d1mach, dcsevl, initds
+c
+c series for cin  on the interval  0.00000e+00 to  1.60000e+01
+c                                        with weighted error   2.33e-33
+c                                         log weighted error  32.63
+c                               significant figures required  31.92
+c                                    decimal places required  33.26
+c
+      data cin cs(  1) /  0.3707450175 0909688741 6548012285 64992d0/
+      data cin cs(  2) / -0.0589357489 6364446831 9568643973 63697d0/
+      data cin cs(  3) /  0.0053818964 2113569124 0487453262 03340d0/
+      data cin cs(  4) / -0.0002986005 2841962135 3195949065 63410d0/
+      data cin cs(  5) /  0.0000109557 2575321620 0770310544 67306d0/
+      data cin cs(  6) / -0.0000002840 5454877346 6304917271 87731d0/
+      data cin cs(  7) /  0.0000000054 6973994875 3849124578 61806d0/
+      data cin cs(  8) / -0.0000000000 8124187461 3181570832 77452d0/
+      data cin cs(  9) /  0.0000000000 0095868593 1177066090 13181d0/
+      data cin cs( 10) / -0.0000000000 0000920266 0043923510 31377d0/
+      data cin cs( 11) /  0.0000000000 0000007325 8879990178 95024d0/
+      data cin cs( 12) / -0.0000000000 0000000049 1437266758 42909d0/
+      data cin cs( 13) /  0.0000000000 0000000000 2815777467 53902d0/
+      data cin cs( 14) / -0.0000000000 0000000000 0013939867 88501d0/
+      data cin cs( 15) /  0.0000000000 0000000000 0000060224 85646d0/
+      data cin cs( 16) / -0.0000000000 0000000000 0000000229 04717d0/
+      data cin cs( 17) /  0.0000000000 0000000000 0000000000 77273d0/
+      data cin cs( 18) / -0.0000000000 0000000000 0000000000 00233d0/
+c
+      data eul / 0.5772156649 0153286060 6512090082 40 d0 /
+      data ncin, xmin /0, 0.d0/
+c
+      if (ncin.ne.0) go to 10
+      ncin = initds (cincs, 18, 0.1*sngl(d1mach(3)))
+      xmin = dsqrt (d1mach(1))
+c
+ 10   dcin = 0.d0
+      absx = dabs(x)
+      if (absx.ne.0.d0 .and. absx.le.xmin) call seteru (
+     1  38hdcin    x so small that cin underflows, 38, 1, 0)
+      if (absx.le.xmin) return
+c
+      if (absx.gt.4.0d0) go to 20
+      dcin = dcsevl((x*x-8.d0)*.125d0, cincs, ncin)*x*x
+      return
+c
+ 20   call d9sifg (absx, f, g)
+      sinx = dsin (absx)
+      call erroff
+      dcin = -f*sinx + g*dcos(absx) + dlog(absx) + eul
+c
+      return
+      end
diff --git a/fvn_fnlib/dcinh.f b/fvn_fnlib/dcinh.f
new file mode 100644
index 0000000..51ca911
--- /dev/null
+++ b/fvn_fnlib/dcinh.f
@@ -0,0 +1,58 @@
+      double precision function dcinh (x)
+c december 1980 edition.  w. fullerton, bell labs.
+c
+c evaluate the hyperbolic cin function.
+c           cinh(x) = integral from 0 to x of  (cosh(t)-1)/t dt.
+c
+      double precision x, cinhcs(16), eul, xsml, xmin, absx, y,
+     1  dchi, dcsevl, d1mach, dlog, dsqrt
+      external d1mach, dchi, dcsevl, initds
+c
+c series for cinh on the interval  0.00000e+00 to  9.00000e+00
+c                                        with weighted error   4.84e-32
+c                                         log weighted error  31.32
+c                               significant figures required  30.21
+c                                    decimal places required  31.92
+c
+      data cinhcs(  1) /     0.1093291636 5207344314 0742519979 5917d0/
+      data cinhcs(  2) /     0.0573928847 5503796764 4532342982 5108d0/
+      data cinhcs(  3) /     0.0028095756 9788303534 1640420894 0774d0/
+      data cinhcs(  4) /     0.0000828780 8407213566 5573176506 9792d0/
+      data cinhcs(  5) /     0.0000016278 5961739141 8557772601 8815d0/
+      data cinhcs(  6) /     0.0000000227 8095192558 5661985908 3591d0/
+      data cinhcs(  7) /     0.0000000002 3844848424 6305925728 4002d0/
+      data cinhcs(  8) /     0.0000000000 0193608297 8078195747 1028d0/
+      data cinhcs(  9) /     0.0000000000 0001254536 9832817255 9683d0/
+      data cinhcs( 10) /     0.0000000000 0000006636 3744949726 2300d0/
+      data cinhcs( 11) /     0.0000000000 0000000029 1963926359 4744d0/
+      data cinhcs( 12) /     0.0000000000 0000000000 1084912395 6107d0/
+      data cinhcs( 13) /     0.0000000000 0000000000 0003449908 0805d0/
+      data cinhcs( 14) /     0.0000000000 0000000000 0000009493 6664d0/
+      data cinhcs( 15) /     0.0000000000 0000000000 0000000022 8291d0/
+      data cinhcs( 16) /     0.0000000000 0000000000 0000000000 0484d0/
+c
+      data eul / 0.5772156649 0153286060 6512090082 40 d0 /
+      data ncinh, xsml, xmin /0, 2*0.0d0/
+c
+      if (ncinh.ne.0) go to 10
+      ncinh = initds (cinhcs, 16, 0.1*sngl(d1mach(3)))
+      xsml = dsqrt (d1mach(3))
+      xmin = 2.0d0*dsqrt(d1mach(1))
+c
+ 10   absx = dabs(x)
+      if (absx.gt.3.0d0) go to 20
+c
+      dcinh = 0.0d0
+      if (x.ne.0.d0 .and. absx.le.xmin) call seteru (
+     1  39hdcinh   abs(x) so small cinh underflows, 39, 1, 0)
+      if (absx.le.xmin) return
+c
+      y = -1.0d0
+      if (absx.gt.xsml) y = x*x/9.d0 - 1.0d0
+      dcinh = x*x* (0.25d0 + dcsevl (y, cinhcs, ncinh))
+      return
+c
+ 20   dcinh = dchi(absx) - eul - dlog(absx)
+c
+      return
+      end
diff --git a/fvn_fnlib/dcosdg.f b/fvn_fnlib/dcosdg.f
new file mode 100644
index 0000000..0b203cd
--- /dev/null
+++ b/fvn_fnlib/dcosdg.f
@@ -0,0 +1,16 @@
+      double precision function dcosdg (x)
+c june 1977 edition.   w. fullerton, c3, los alamos scientific lab.
+      double precision x, raddeg, dcos
+c      external dcos
+      data raddeg / 0.0174532925 1994329576 9236907684 886 d0 /
+c
+      dcosdg = dcos (raddeg*x)
+c
+      if (dmod(x,90.d0).ne.0.d0) return
+      n = dabs(x)/90.d0 + 0.5d0
+      n = mod (n, 2)
+      if (n.eq.0) dcosdg = dsign (1.0d0, dcosdg)
+      if (n.eq.1) dcosdg = 0.0d0
+c
+      return
+      end
diff --git a/fvn_fnlib/dcot.f b/fvn_fnlib/dcot.f
new file mode 100644
index 0000000..a866c8c
--- /dev/null
+++ b/fvn_fnlib/dcot.f
@@ -0,0 +1,88 @@
+      double precision function dcot (x)
+c may 1980 edition.   w. fullerton, c3, los alamos scientific lab.
+      double precision x, cotcs(15), ainty, ainty2, pi2rec, sqeps,
+     1  xmax, xmin, xsml, y, yrem, prodbg,  dint, dcsevl, d1mach,
+     2  dexp, dlog, dsqrt
+      external d1mach, dcsevl, initds
+c
+c series for cot        on the interval  0.          to  6.25000e-02
+c                                        with weighted error   5.52e-34
+c                                         log weighted error  33.26
+c                               significant figures required  32.34
+c                                    decimal places required  33.85
+c
+      data cot cs(  1) / +.2402591609 8295630250 9553617744 970 d+0    /
+      data cot cs(  2) / -.1653303160 1500227845 4746025255 758 d-1    /
+      data cot cs(  3) / -.4299839193 1724018935 6476228239 895 d-4    /
+      data cot cs(  4) / -.1592832233 2754104602 3490851122 445 d-6    /
+      data cot cs(  5) / -.6191093135 1293487258 8620579343 187 d-9    /
+      data cot cs(  6) / -.2430197415 0726460433 1702590579 575 d-11   /
+      data cot cs(  7) / -.9560936758 8000809842 7062083100 000 d-14   /
+      data cot cs(  8) / -.3763537981 9458058041 6291539706 666 d-16   /
+      data cot cs(  9) / -.1481665746 4674657885 2176794666 666 d-18   /
+      data cot cs( 10) / -.5833356589 0366657947 7984000000 000 d-21   /
+      data cot cs( 11) / -.2296626469 6464577392 8533333333 333 d-23   /
+      data cot cs( 12) / -.9041970573 0748332671 9999999999 999 d-26   /
+      data cot cs( 13) / -.3559885519 2060006400 0000000000 000 d-28   /
+      data cot cs( 14) / -.1401551398 2429866666 6666666666 666 d-30   /
+      data cot cs( 15) / -.5518004368 7253333333 3333333333 333 d-33   /
+c
+c pi2rec = 2/pi - 0.625
+      data pi2rec / .01161977236 7581343075 5350534900 57 d0 /
+      data nterms, xmax, xsml, xmin, sqeps /0, 4*0.d0 /
+c
+      if (nterms.ne.0) go to 10
+      nterms = initds (cotcs, 15, 0.1*sngl(d1mach(3)) )
+      xmax = 1.0d0/d1mach(4)
+      xsml = dsqrt (3.0d0*d1mach(3))
+      xmin = dexp (dmax1(dlog(d1mach(1)), -dlog(d1mach(2))) + 0.01d0)
+      sqeps = dsqrt (d1mach(4))
+c
+ 10   y = dabs(x)
+      if (y.lt.xmin) call seteru (
+     1  50hdcot    dabs(x) is zero or so small dcot overflows, 50, 2, 2)
+      if (y.gt.xmax) call seteru (
+     1  43hdcot    no precision because dabs(x) is big, 43, 3, 2)
+c
+c carefully compute y * (2/pi) = (aint(y) + rem(y)) * (.625 + pi2rec)
+c = aint(.625*y) + rem(.625*y) + y*pi2rec  =  aint(.625*y) + z
+c = aint(.625*y) + aint(z) + rem(z)
+c
+      ainty = dint (y)
+      yrem = y - ainty
+      prodbg = 0.625d0*ainty
+      ainty = dint (prodbg)
+      y = (prodbg-ainty) + 0.625d0*yrem + pi2rec*y
+      ainty2 = dint (y)
+      ainty = ainty + ainty2
+      y = y - ainty2
+c
+      ifn = dmod (ainty, 2.0d0)
+      if (ifn.eq.1) y = 1.0d0 - y
+c
+      if (dabs(x).gt.0.5d0 .and. y.lt.dabs(x)*sqeps) call seteru (
+     1  72hdcot    answer lt half precision, abs(x) too big or x near n*
+     2pi (n.ne.0), 72, 1, 1)
+c
+      if (y.gt.0.25d0) go to 20
+      if (y.eq.0.0d0) call seteru (29hdcot    x is a multiple of pi,
+     1  29, 4, 2)
+      dcot = 1.0d0/y
+      if (y.gt.xsml) dcot = (0.5d0 + dcsevl (32.0d0*y*y-1.d0, cotcs,
+     1  nterms)) / y
+      go to 40
+c
+ 20   if (y.gt.0.5d0) go to 30
+      dcot = (0.5d0 + dcsevl (8.d0*y*y-1.d0, cotcs, nterms))/(0.5d0*y)
+      dcot = (dcot*dcot-1.d0)*0.5d0/dcot
+      go to 40
+c
+ 30   dcot = (0.5d0 + dcsevl (2.d0*y*y-1.d0, cotcs, nterms))/(.25d0*y)
+      dcot = (dcot*dcot-1.d0)*0.5d0/dcot
+      dcot = (dcot*dcot-1.d0)*0.5d0/dcot
+c
+ 40   if (x.ne.0.d0) dcot = dsign (dcot, x)
+      if (ifn.eq.1) dcot = -dcot
+c
+      return
+      end
diff --git a/fvn_fnlib/dcsevl.f b/fvn_fnlib/dcsevl.f
new file mode 100644
index 0000000..129b39a
--- /dev/null
+++ b/fvn_fnlib/dcsevl.f
@@ -0,0 +1,33 @@
+      double precision function dcsevl (x, a, n)
+c
+c evaluate the n-term chebyshev series a at x.  adapted from
+c r. broucke, algorithm 446, c.a.c.m., 16, 254 (1973).
+c
+c             input arguments --
+c x      dble prec value at which the series is to be evaluated.
+c a      dble prec array of n terms of a chebyshev series.  in eval-
+c        uating a, only half the first coef is summed.
+c n      number of terms in array a.
+c
+      double precision a(n), x, twox, b0, b1, b2
+c
+      if (n.lt.1) call seteru (28hdcsevl  number of terms le 0, 28, 2,2)
+      if (n.gt.1000) call seteru (31hdcsevl  number of terms gt 1000,
+     1  31, 3, 2)
+      if (x.lt.(-1.1d0) .or. x.gt.1.1d0) call seteru (
+     1  25hdcsevl  x outside (-1,+1), 25, 1, 1)
+c
+      twox = 2.0d0*x
+      b1 = 0.d0
+      b0 = 0.d0
+      do 10 i=1,n
+        b2 = b1
+        b1 = b0
+        ni = n - i + 1
+        b0 = twox*b1 - b2 + a(ni)
+ 10   continue
+c
+      dcsevl = 0.5d0 * (b0-b2)
+c
+      return
+      end
diff --git a/fvn_fnlib/ddaws.f b/fvn_fnlib/ddaws.f
new file mode 100644
index 0000000..f6a4c27
--- /dev/null
+++ b/fvn_fnlib/ddaws.f
@@ -0,0 +1,207 @@
+      double precision function ddaws (x)
+c may 1980 edition.  w. fullerton c3, los alamos scientific lab.
+c
+      double precision x, dawcs(21), daw2cs(45), dawacs(75), xbig,
+     1  xmax, xsml, y, dcsevl, d1mach, dexp, dlog
+      external d1mach, dcsevl, initds
+c
+c series for daw        on the interval  0.          to  1.00000e+00
+c                                        with weighted error   8.95e-32
+c                                         log weighted error  31.05
+c                               significant figures required  30.41
+c                                    decimal places required  31.71
+c
+      data daw cs(  1) / -.6351734375 1459492010 6512773629 3 d-2      /
+      data daw cs(  2) / -.2294071479 6773869398 9982412586 6 d+0      /
+      data daw cs(  3) / +.2213050093 9084764416 8397916178 6 d-1      /
+      data daw cs(  4) / -.1549265453 8929850467 4305775337 5 d-2      /
+      data daw cs(  5) / +.8497327715 6849174567 7754294806 6 d-4      /
+      data daw cs(  6) / -.3828266270 9720149249 9409952130 9 d-5      /
+      data daw cs(  7) / +.1462854806 2501631977 5714894953 9 d-6      /
+      data daw cs(  8) / -.4851982381 8259917988 4671542511 4 d-8      /
+      data daw cs(  9) / +.1421463577 7591397903 4756818330 4 d-9      /
+      data daw cs( 10) / -.3728836087 9205965253 3549305408 8 d-11     /
+      data daw cs( 11) / +.8854942961 7782033701 9456523136 9 d-13     /
+      data daw cs( 12) / -.1920757131 3502063554 2164841749 3 d-14     /
+      data daw cs( 13) / +.3834325867 2463275882 4107443925 3 d-16     /
+      data daw cs( 14) / -.7089154168 1758816335 8409932799 9 d-18     /
+      data daw cs( 15) / +.1220552135 8894576744 1690112000 0 d-19     /
+      data daw cs( 16) / -.1966204826 6053487602 9945173333 3 d-21     /
+      data daw cs( 17) / +.2975845541 3765971891 1317333333 3 d-23     /
+      data daw cs( 18) / -.4247069514 8005969510 3999999999 9 d-25     /
+      data daw cs( 19) / +.5734270767 3917427985 0666666666 6 d-27     /
+      data daw cs( 20) / -.7345836823 1784502613 3333333333 3 d-29     /
+      data daw cs( 21) / +.8951937667 5165525333 3333333333 3 d-31     /
+c
+c series for daw2       on the interval  0.          to  1.60000e+01
+c                                        with weighted error   1.61e-32
+c                                         log weighted error  31.79
+c                               significant figures required  31.40
+c                                    decimal places required  32.62
+c
+      data daw2cs(  1) / -.5688654410 5215527114 1605337336 74 d-1     /
+      data daw2cs(  2) / -.3181134699 6168131279 3228780488 22 d+0     /
+      data daw2cs(  3) / +.2087384541 3642236789 7415801988 58 d+0     /
+      data daw2cs(  4) / -.1247540991 3779131214 0734983147 84 d+0     /
+      data daw2cs(  5) / +.6786930518 6676777092 8475164236 76 d-1     /
+      data daw2cs(  6) / -.3365914489 5270939503 0682309665 87 d-1     /
+      data daw2cs(  7) / +.1526078127 1987971743 6824603816 40 d-1     /
+      data daw2cs(  8) / -.6348370962 5962148230 5860947885 35 d-2     /
+      data daw2cs(  9) / +.2432674092 0748520596 8659661093 43 d-2     /
+      data daw2cs( 10) / -.8621954149 1065032038 5269835496 37 d-3     /
+      data daw2cs( 11) / +.2837657333 6321625302 8576365382 95 d-3     /
+      data daw2cs( 12) / -.8705754987 4170423699 3965814643 35 d-4     /
+      data daw2cs( 13) / +.2498684998 5481658331 8000441372 76 d-4     /
+      data daw2cs( 14) / -.6731928676 4160294344 6030503395 20 d-5     /
+      data daw2cs( 15) / +.1707857878 5573543710 5045240478 44 d-5     /
+      data daw2cs( 16) / -.4091755122 6475381271 8965924900 38 d-6     /
+      data daw2cs( 17) / +.9282829221 6755773260 7517853122 73 d-7     /
+      data daw2cs( 18) / -.1999140361 0147617829 8450963321 98 d-7     /
+      data daw2cs( 19) / +.4096349064 4082195241 2104878689 17 d-8     /
+      data daw2cs( 20) / -.8003240954 0993168075 7067817535 61 d-9     /
+      data daw2cs( 21) / +.1493850312 8761465059 1432255501 10 d-9     /
+      data daw2cs( 22) / -.2668799988 5622329284 9246510633 39 d-10    /
+      data daw2cs( 23) / +.4571221698 5159458151 4056177241 03 d-11    /
+      data daw2cs( 24) / -.7518730522 2043565872 2437273267 71 d-12    /
+      data daw2cs( 25) / +.1189310005 2629681879 0298289873 02 d-12    /
+      data daw2cs( 26) / -.1811690793 3852346973 4903182630 84 d-13    /
+      data daw2cs( 27) / +.2661173368 4358969193 0016121996 26 d-14    /
+      data daw2cs( 28) / -.3773886305 2129419795 4441099059 30 d-15    /
+      data daw2cs( 29) / +.5172795378 9087172679 6800822293 29 d-16    /
+      data daw2cs( 30) / -.6860368408 4077500979 4195646701 02 d-17    /
+      data daw2cs( 31) / +.8812375135 4161071806 4693373217 45 d-18    /
+      data daw2cs( 32) / -.1097424824 9996606292 1062996246 52 d-18    /
+      data daw2cs( 33) / +.1326119932 6367178513 5955458916 35 d-19    /
+      data daw2cs( 34) / -.1556273276 8137380785 4887765715 62 d-20    /
+      data daw2cs( 35) / +.1775142558 3655720607 8334155707 73 d-21    /
+      data daw2cs( 36) / -.1969500696 7006578384 9536087654 39 d-22    /
+      data daw2cs( 37) / +.2127007489 6998699661 9240101205 33 d-23    /
+      data daw2cs( 38) / -.2237539812 4627973794 1821139626 66 d-24    /
+      data daw2cs( 39) / +.2294276857 8582348946 9713831253 33 d-25    /
+      data daw2cs( 40) / -.2294378884 6552928693 3295923199 99 d-26    /
+      data daw2cs( 41) / +.2239170210 0592453618 3422976000 00 d-27    /
+      data daw2cs( 42) / -.2133823061 6608897703 6782250666 66 d-28    /
+      data daw2cs( 43) / +.1986619658 5123531518 0284586666 66 d-29    /
+      data daw2cs( 44) / -.1807929586 6694391771 9551999999 99 d-30    /
+      data daw2cs( 45) / +.1609068601 5283030305 4506666666 66 d-31    /
+c
+c series for dawa       on the interval  0.          to  6.25000e-02
+c                                        with weighted error   1.97e-32
+c                                         log weighted error  31.71
+c                               significant figures required  29.79
+c                                    decimal places required  32.64
+c
+      data dawacs(  1) / +.1690485637 7657037554 2263743884 9 d-1      /
+      data dawacs(  2) / +.8683252278 4069579905 3610785076 8 d-2      /
+      data dawacs(  3) / +.2424864042 4177154532 7770345988 9 d-3      /
+      data dawacs(  4) / +.1261182399 5726900016 5194924037 7 d-4      /
+      data dawacs(  5) / +.1066453314 6361769557 0569112590 6 d-5      /
+      data dawacs(  6) / +.1358159794 7907276113 4842450572 8 d-6      /
+      data dawacs(  7) / +.2171042356 5772983989 0431274474 3 d-7      /
+      data dawacs(  8) / +.2867010501 8052952703 4367680481 3 d-8      /
+      data dawacs(  9) / -.1901336393 0358201122 8249237802 4 d-9      /
+      data dawacs( 10) / -.3097780484 3952011255 3206577426 8 d-9      /
+      data dawacs( 11) / -.1029414876 0575092473 9813228641 3 d-9      /
+      data dawacs( 12) / -.6260356459 4595761504 1758728312 1 d-11     /
+      data dawacs( 13) / +.8563132497 4464512162 6230316627 6 d-11     /
+      data dawacs( 14) / +.3033045148 0756592929 7626627625 7 d-11     /
+      data dawacs( 15) / -.2523618306 8092913726 3088693882 6 d-12     /
+      data dawacs( 16) / -.4210604795 4406645131 7546193451 0 d-12     /
+      data dawacs( 17) / -.4431140826 6462383121 4342945203 6 d-13     /
+      data dawacs( 18) / +.4911210272 8412052059 4003706511 7 d-13     /
+      data dawacs( 19) / +.1235856242 2839034070 7647795473 9 d-13     /
+      data dawacs( 20) / -.5788733199 0165692469 5576507106 9 d-14     /
+      data dawacs( 21) / -.2282723294 8073586209 7818395703 0 d-14     /
+      data dawacs( 22) / +.7637149411 0141264763 1236291759 0 d-15     /
+      data dawacs( 23) / +.3851546883 5668117287 7759400209 5 d-15     /
+      data dawacs( 24) / -.1199932056 9282905928 0323728304 5 d-15     /
+      data dawacs( 25) / -.6313439150 0945723473 3427028525 0 d-16     /
+      data dawacs( 26) / +.2239559965 9729753752 5491279023 7 d-16     /
+      data dawacs( 27) / +.9987925830 0764959951 3289120074 9 d-17     /
+      data dawacs( 28) / -.4681068274 3224953345 3624650725 2 d-17     /
+      data dawacs( 29) / -.1436303644 3497213372 4162875153 4 d-17     /
+      data dawacs( 30) / +.1020822731 4105411129 7790803213 0 d-17     /
+      data dawacs( 31) / +.1538908873 1360920728 3738982237 2 d-18     /
+      data dawacs( 32) / -.2189157877 6457938888 9479092605 6 d-18     /
+      data dawacs( 33) / +.2156879197 9386517503 9235915251 7 d-20     /
+      data dawacs( 34) / +.4370219827 4424498511 3479255739 5 d-19     /
+      data dawacs( 35) / -.8234581460 9772072410 9892790517 7 d-20     /
+      data dawacs( 36) / -.7498648721 2564662229 0320283542 0 d-20     /
+      data dawacs( 37) / +.3282536720 7356716109 5761293003 9 d-20     /
+      data dawacs( 38) / +.8858064309 5039211160 7656151515 1 d-21     /
+      data dawacs( 39) / -.9185087111 7270029880 9446053148 5 d-21     /
+      data dawacs( 40) / +.2978962223 7887489883 1416604579 1 d-22     /
+      data dawacs( 41) / +.1972132136 6184718831 5950546804 1 d-21     /
+      data dawacs( 42) / -.5974775596 3629066380 8958499511 7 d-22     /
+      data dawacs( 43) / -.2834410031 5038509654 4382518244 1 d-22     /
+      data dawacs( 44) / +.2209560791 1315545147 7715048901 2 d-22     /
+      data dawacs( 45) / -.5439955741 8971443000 7948030771 1 d-25     /
+      data dawacs( 46) / -.5213549243 2948486680 1713669647 0 d-23     /
+      data dawacs( 47) / +.1702350556 8131141990 6567149907 6 d-23     /
+      data dawacs( 48) / +.6917400860 8361483430 2218566019 7 d-24     /
+      data dawacs( 49) / -.6540941793 0027525122 3944512580 2 d-24     /
+      data dawacs( 50) / +.6093576580 4393289603 7182465463 6 d-25     /
+      data dawacs( 51) / +.1408070432 9051874615 0194508027 2 d-24     /
+      data dawacs( 52) / -.6785886121 0548463311 6767494375 5 d-25     /
+      data dawacs( 53) / -.9799732036 2142957117 4158310222 5 d-26     /
+      data dawacs( 54) / +.2121244903 0990413325 9896093916 0 d-25     /
+      data dawacs( 55) / -.5954455022 5487909382 3880215448 7 d-26     /
+      data dawacs( 56) / -.3093088861 8754701778 3884723204 9 d-26     /
+      data dawacs( 57) / +.2854389216 3445246824 0069198610 4 d-26     /
+      data dawacs( 58) / -.3951289447 3793055660 2347727181 1 d-27     /
+      data dawacs( 59) / -.5906000648 6076284781 1684089445 3 d-27     /
+      data dawacs( 60) / +.3670236964 6686870036 4788998060 9 d-27     /
+      data dawacs( 61) / -.4839958238 0422762565 9830303894 1 d-29     /
+      data dawacs( 62) / -.9799265984 2104438695 9740401702 2 d-28     /
+      data dawacs( 63) / +.4684773732 6121306061 5890880430 0 d-28     /
+      data dawacs( 64) / +.5030877696 9934610516 4766760315 5 d-29     /
+      data dawacs( 65) / -.1547395051 7060282392 4755206829 5 d-28     /
+      data dawacs( 66) / +.6112180185 0864192439 7600566271 4 d-29     /
+      data dawacs( 67) / +.1357913399 1248116503 4360273615 8 d-29     /
+      data dawacs( 68) / -.2417687752 7686730883 8530429904 4 d-29     /
+      data dawacs( 69) / +.8369074582 0742989452 9288758729 1 d-30     /
+      data dawacs( 70) / +.2665413042 7889791658 3831940156 6 d-30     /
+      data dawacs( 71) / -.3811653692 3548903369 3569100371 2 d-30     /
+      data dawacs( 72) / +.1230054721 8849514643 7170687258 5 d-30     /
+      data dawacs( 73) / +.4622506399 0414935088 0553692998 3 d-31     /
+      data dawacs( 74) / -.6120087296 8816777229 1143559300 1 d-31     /
+      data dawacs( 75) / +.1966024640 1931646869 5623021789 6 d-31     /
+c
+      data ntdaw, ntdaw2, ntdawa, xsml, xbig, xmax / 3*0, 3*0.0d0 /
+c
+      if (ntdaw.ne.0) go to 10
+      eps = d1mach(3)
+      ntdaw = initds (dawcs, 21, 0.1*eps)
+      ntdaw2 = initds (daw2cs, 45, 0.1*eps)
+      ntdawa = initds (dawacs, 75, 0.1*eps)
+c
+      xsml = sqrt(1.5*eps)
+      xbig = sqrt (0.5/eps)
+      xmax = dexp (dmin1 (-dlog(2.d0*d1mach(1)), dlog(d1mach(2)))
+     1  - 0.01d0)
+c
+ 10   y = dabs(x)
+      if (y.gt.1.0d0) go to 20
+c
+      ddaws = x
+      if (y.le.xsml) return
+c
+      ddaws = x * (.75d0 + dcsevl (2.d0*y*y-1.d0, dawcs, ntdaw))
+      return
+c
+ 20   if (y.gt.4.d0) go to 30
+      ddaws = x * (.25d0 + dcsevl (.125d0*y*y-1.d0, daw2cs, ntdaw2))
+      return
+c
+ 30   if (y.gt.xmax) go to 40
+      ddaws = 0.5d0/x
+      if (y.gt.xbig) return
+c
+      ddaws = (0.5d0 + dcsevl (32.d0/y**2-1.d0, dawacs, ntdawa)) / x
+      return
+c
+ 40   call seteru (39hddaws   abs(x) so large daws underflows, 39, 1, 0)
+      ddaws = 0.0d0
+      return
+c
+      end
diff --git a/fvn_fnlib/de1.f b/fvn_fnlib/de1.f
new file mode 100644
index 0000000..d3f03b1
--- /dev/null
+++ b/fvn_fnlib/de1.f
@@ -0,0 +1,427 @@
+      double precision function de1 (x)
+c july 1977 edition.  w. fullerton, c3, los alamos scientific lab.
+      double precision x, ae10cs(50), ae11cs(60), ae12cs(41), e11cs(29),
+     1  e12cs(25), ae13cs(50), ae14cs(64), xmax, d1mach, dcsevl,
+     2  dexp, dlog
+      external d1mach, dcsevl, initds
+c
+c series for ae10       on the interval -3.12500e-02 to  0.
+c                                        with weighted error   4.62e-32
+c                                         log weighted error  31.34
+c                               significant figures required  29.70
+c                                    decimal places required  32.18
+c
+      data ae10cs(  1) / +.3284394579 6166990878 7384420188 1 d-1      /
+      data ae10cs(  2) / -.1669920452 0313628514 7618434338 7 d-1      /
+      data ae10cs(  3) / +.2845284724 3613468074 2489985325 2 d-3      /
+      data ae10cs(  4) / -.7563944358 5162064894 8786693853 3 d-5      /
+      data ae10cs(  5) / +.2798971289 4508591575 0484318087 9 d-6      /
+      data ae10cs(  6) / -.1357901828 5345310695 2556392625 5 d-7      /
+      data ae10cs(  7) / +.8343596202 0404692558 5610290490 6 d-9      /
+      data ae10cs(  8) / -.6370971727 6402484382 7524298853 2 d-10     /
+      data ae10cs(  9) / +.6007247608 8118612357 6083156158 4 d-11     /
+      data ae10cs( 10) / -.7022876174 6797735907 5062615008 8 d-12     /
+      data ae10cs( 11) / +.1018302673 7036876930 9665234688 3 d-12     /
+      data ae10cs( 12) / -.1761812903 4308800404 0630996642 2 d-13     /
+      data ae10cs( 13) / +.3250828614 2353606942 4403035387 7 d-14     /
+      data ae10cs( 14) / -.5071770025 5058186788 2487225904 4 d-15     /
+      data ae10cs( 15) / +.1665177387 0432942981 7248608415 6 d-16     /
+      data ae10cs( 16) / +.3166753890 7975144006 7700353655 5 d-16     /
+      data ae10cs( 17) / -.1588403763 6641415151 3311834353 8 d-16     /
+      data ae10cs( 18) / +.4175513256 1380188330 0303461848 4 d-17     /
+      data ae10cs( 19) / -.2892347749 7071419067 1071447885 2 d-18     /
+      data ae10cs( 20) / -.2800625903 3966081035 0634058966 9 d-18     /
+      data ae10cs( 21) / +.1322938639 5392709037 0758002378 1 d-18     /
+      data ae10cs( 22) / -.1804447444 1773016272 8388783355 7 d-19     /
+      data ae10cs( 23) / -.7905384086 5226160762 9164481760 4 d-20     /
+      data ae10cs( 24) / +.4435711366 3695701039 4623583802 7 d-20     /
+      data ae10cs( 25) / -.4264103994 9781208688 6530920655 5 d-21     /
+      data ae10cs( 26) / -.3920101766 9371175415 5371316204 8 d-21     /
+      data ae10cs( 27) / +.1527378051 3439942663 4375232697 1 d-21     /
+      data ae10cs( 28) / +.1024849527 0493723393 1030878311 7 d-22     /
+      data ae10cs( 29) / -.2134907874 7714335762 6271140588 2 d-22     /
+      data ae10cs( 30) / +.3239139475 1600282670 6169470036 6 d-23     /
+      data ae10cs( 31) / +.2142183762 2998899547 6264316829 6 d-23     /
+      data ae10cs( 32) / -.8234609419 6010184147 0034808231 2 d-24     /
+      data ae10cs( 33) / -.1524652829 6458094796 1369440114 0 d-24     /
+      data ae10cs( 34) / +.1378208282 4606391346 6848036432 5 d-24     /
+      data ae10cs( 35) / +.2131311202 8339478795 2322499925 3 d-26     /
+      data ae10cs( 36) / -.2012649651 5264841218 1746676312 7 d-25     /
+      data ae10cs( 37) / +.1995535662 2633580161 0631178267 3 d-26     /
+      data ae10cs( 38) / +.2798995808 9840034649 4868652031 9 d-26     /
+      data ae10cs( 39) / -.5534511845 3896266376 4081927782 3 d-27     /
+      data ae10cs( 40) / -.3884995396 1599688616 8254402614 6 d-27     /
+      data ae10cs( 41) / +.1121304434 5073593828 5068035467 9 d-27     /
+      data ae10cs( 42) / +.5566568152 4237409482 5656383351 4 d-28     /
+      data ae10cs( 43) / -.2045482929 8104997004 4853393817 6 d-28     /
+      data ae10cs( 44) / -.8453813992 7123362334 1145749367 4 d-29     /
+      data ae10cs( 45) / +.3565758433 4312915628 1611111628 7 d-29     /
+      data ae10cs( 46) / +.1383653872 1256347055 3994909887 1 d-29     /
+      data ae10cs( 47) / -.6062167864 4513724365 8453376477 8 d-30     /
+      data ae10cs( 48) / -.2447198043 9893132674 3765511918 9 d-30     /
+      data ae10cs( 49) / +.1006850640 9339983480 1154818048 0 d-30     /
+      data ae10cs( 50) / +.4623685555 0148690156 6434146167 4 d-31     /
+c
+c series for ae11       on the interval -1.25000e-01 to -3.12500e-02
+c                                        with weighted error   2.22e-32
+c                                         log weighted error  31.65
+c                               significant figures required  30.75
+c                                    decimal places required  32.54
+c
+      data ae11cs(  1) / +.2026315064 7078889499 4012365173 81 d+0     /
+      data ae11cs(  2) / -.7365514099 1203130439 5368987280 34 d-1     /
+      data ae11cs(  3) / +.6390934911 8361915862 7532838400 20 d-2     /
+      data ae11cs(  4) / -.6079725270 5247911780 6531533639 99 d-3     /
+      data ae11cs(  5) / -.7370649862 0176629330 6814114934 84 d-4     /
+      data ae11cs(  6) / +.4873285744 9450183453 4649924880 76 d-4     /
+      data ae11cs(  7) / -.2383706484 0448290766 5884894602 35 d-5     /
+      data ae11cs(  8) / -.3051861262 8561521027 0273322461 21 d-5     /
+      data ae11cs(  9) / +.1705033157 2564559009 6880329929 07 d-6     /
+      data ae11cs( 10) / +.2383420452 7487747258 6015981364 03 d-6     /
+      data ae11cs( 11) / +.1078177255 6163166562 5968723640 20 d-7     /
+      data ae11cs( 12) / -.1795569284 7399102653 6426914465 99 d-7     /
+      data ae11cs( 13) / -.4128407234 1950457727 9123946404 36 d-8     /
+      data ae11cs( 14) / +.6862214858 8631968618 3468445266 64 d-9     /
+      data ae11cs( 15) / +.5313018312 0506356147 6020096759 61 d-9     /
+      data ae11cs( 16) / +.7879688026 1490694831 3050228935 15 d-10    /
+      data ae11cs( 17) / -.2626176232 9356522290 3416752712 32 d-10    /
+      data ae11cs( 18) / -.1548368763 6308261963 1257562941 00 d-10    /
+      data ae11cs( 19) / -.2581896237 7261390492 8024051225 91 d-11    /
+      data ae11cs( 20) / +.5954287919 1591072658 9035299593 52 d-12    /
+      data ae11cs( 21) / +.4645140038 7681525833 7849193214 05 d-12    /
+      data ae11cs( 22) / +.1155785502 3255861496 2880062037 31 d-12    /
+      data ae11cs( 23) / -.1047523687 0835799012 3175471896 70 d-14    /
+      data ae11cs( 24) / -.1189665350 2709004368 1044892609 29 d-13    /
+      data ae11cs( 25) / -.4774907749 0261778752 6430193499 50 d-14    /
+      data ae11cs( 26) / -.8107764961 5772777976 2497347541 35 d-15    /
+      data ae11cs( 27) / +.1343556925 0031554199 3769879981 78 d-15    /
+      data ae11cs( 28) / +.1413453002 2913106260 2488738812 87 d-15    /
+      data ae11cs( 29) / +.4945159257 3953173115 5206632328 83 d-16    /
+      data ae11cs( 30) / +.7988404848 0080665648 8585873993 67 d-17    /
+      data ae11cs( 31) / -.1400863218 8089809829 2487119353 93 d-17    /
+      data ae11cs( 32) / -.1481424695 8417372107 7228040016 80 d-17    /
+      data ae11cs( 33) / -.5582617364 6025601904 0106939371 13 d-18    /
+      data ae11cs( 34) / -.1144207454 2191647264 7830725445 98 d-18    /
+      data ae11cs( 35) / +.2537182387 9566853500 5240184799 23 d-20    /
+      data ae11cs( 36) / +.1320532815 4805359813 2788633890 97 d-19    /
+      data ae11cs( 37) / +.6293026108 1586809166 2874267894 85 d-20    /
+      data ae11cs( 38) / +.1768827042 4882713734 9992613325 48 d-20    /
+      data ae11cs( 39) / +.2326618798 5146045209 6742968874 32 d-21    /
+      data ae11cs( 40) / -.6780306081 1125233043 7738318441 13 d-22    /
+      data ae11cs( 41) / -.5944087695 9676373802 8741505318 91 d-22    /
+      data ae11cs( 42) / -.2361821453 1184415968 5325925034 66 d-22    /
+      data ae11cs( 43) / -.6021449972 4601478214 1684787445 76 d-23    /
+      data ae11cs( 44) / -.6551790647 4348299071 3704441446 39 d-24    /
+      data ae11cs( 45) / +.2938875529 7497724587 0420386993 49 d-24    /
+      data ae11cs( 46) / +.2260160620 0642115173 2157287585 10 d-24    /
+      data ae11cs( 47) / +.8953436924 5958628745 0912068730 87 d-25    /
+      data ae11cs( 48) / +.2401592347 1098457555 7720674577 06 d-25    /
+      data ae11cs( 49) / +.3411837688 8907172955 6664230434 13 d-26    /
+      data ae11cs( 50) / -.7161707169 4630342052 3550133452 79 d-27    /
+      data ae11cs( 51) / -.7562039065 9281725157 9286519807 99 d-27    /
+      data ae11cs( 52) / -.3377461215 7467324637 9529207808 00 d-27    /
+      data ae11cs( 53) / -.1047932570 3300941711 5264303322 45 d-27    /
+      data ae11cs( 54) / -.2165455025 2170342240 8548802013 86 d-28    /
+      data ae11cs( 55) / -.7529712574 5288269994 6892984320 00 d-30    /
+      data ae11cs( 56) / +.1910317939 2798935768 6380840004 26 d-29    /
+      data ae11cs( 57) / +.1149210496 6530338547 7907288337 06 d-29    /
+      data ae11cs( 58) / +.4389697058 2661751514 4103591936 00 d-30    /
+      data ae11cs( 59) / +.1232088323 9205686471 6471577258 66 d-30    /
+      data ae11cs( 60) / +.2222017445 7553175317 5385811626 66 d-31    /
+c
+c series for ae12       on the interval -2.50000e-01 to -1.25000e-01
+c                                        with weighted error   5.19e-32
+c                                         log weighted error  31.28
+c                               significant figures required  30.82
+c                                    decimal places required  32.09
+c
+      data ae12cs(  1) / +.6362958979 6747038767 1298878068 03 d+0     /
+      data ae12cs(  2) / -.1308116867 5067634385 8126711211 35 d+0     /
+      data ae12cs(  3) / -.8436741021 3053930014 4876621297 52 d-2     /
+      data ae12cs(  4) / +.2656849153 1006685413 0294280689 06 d-2     /
+      data ae12cs(  5) / +.3282272178 1658133778 7921701425 17 d-3     /
+      data ae12cs(  6) / -.2378344777 1430248269 5798078510 50 d-4     /
+      data ae12cs(  7) / -.1143980430 8100055514 4470767970 47 d-4     /
+      data ae12cs(  8) / -.1440594343 3238338455 2397176993 23 d-5     /
+      data ae12cs(  9) / +.5241595665 1148829963 7728180616 64 d-8     /
+      data ae12cs( 10) / +.3840730640 7844323480 9792030597 16 d-7     /
+      data ae12cs( 11) / +.8588024486 0267195879 6605157593 44 d-8     /
+      data ae12cs( 12) / +.1021922662 5855003286 3399695539 11 d-8     /
+      data ae12cs( 13) / +.2174913232 3289724542 8213398059 92 d-10    /
+      data ae12cs( 14) / -.2209023814 2623144809 5235038117 41 d-10    /
+      data ae12cs( 15) / -.6345753354 4928753294 3836222088 01 d-11    /
+      data ae12cs( 16) / -.1083774656 6857661115 3405397329 19 d-11    /
+      data ae12cs( 17) / -.1190982287 2222586730 2622004402 77 d-12    /
+      data ae12cs( 18) / -.2843868238 9265590299 5087660086 61 d-14    /
+      data ae12cs( 19) / +.2508032702 6686769668 5871954875 46 d-14    /
+      data ae12cs( 20) / +.7872964152 8559842431 5977264212 65 d-15    /
+      data ae12cs( 21) / +.1547506634 7785217148 4843346373 29 d-15    /
+      data ae12cs( 22) / +.2257532283 1665075055 2726081972 90 d-16    /
+      data ae12cs( 23) / +.2223335286 7266608760 2813808366 93 d-17    /
+      data ae12cs( 24) / +.1696781956 3544153513 4641946623 99 d-19    /
+      data ae12cs( 25) / -.5760831625 5947682105 3100873045 33 d-19    /
+      data ae12cs( 26) / -.1759123577 4646878055 6253694088 53 d-19    /
+      data ae12cs( 27) / -.3628605637 5103174394 7553286826 66 d-20    /
+      data ae12cs( 28) / -.5923556979 7328991652 5581434880 00 d-21    /
+      data ae12cs( 29) / -.7603038092 6310191114 4291368959 99 d-22    /
+      data ae12cs( 30) / -.6254784352 1711763842 6414284799 99 d-23    /
+      data ae12cs( 31) / +.2548336075 9307648606 0376064000 00 d-24    /
+      data ae12cs( 32) / +.2559861573 1739857020 1688746666 66 d-24    /
+      data ae12cs( 33) / +.7137623935 7899318800 2070528000 00 d-25    /
+      data ae12cs( 34) / +.1470375993 9567568181 5789568000 00 d-25    /
+      data ae12cs( 35) / +.2510552476 5386733555 1986346666 66 d-26    /
+      data ae12cs( 36) / +.3588666638 7790890886 5836373333 33 d-27    /
+      data ae12cs( 37) / +.3988603515 6771301763 3177599999 99 d-28    /
+      data ae12cs( 38) / +.2176367694 7356220478 8053333333 33 d-29    /
+      data ae12cs( 39) / -.4614699848 7618942367 6074666666 66 d-30    /
+      data ae12cs( 40) / -.2071351787 7481987707 1530666666 66 d-30    /
+      data ae12cs( 41) / -.5189037856 3534371596 9706666666 66 d-31    /
+c
+c series for e11        on the interval -4.00000e+00 to -1.00000e+00
+c                                        with weighted error   8.49e-34
+c                                         log weighted error  33.07
+c                               significant figures required  34.13
+c                                    decimal places required  33.80
+c
+      data e11 cs(  1) / -.1611346165 5571494025 7206639275 66180 d+2  /
+      data e11 cs(  2) / +.7794072778 7426802769 2722458917 41497 d+1  /
+      data e11 cs(  3) / -.1955405818 8631419507 1272838128 14491 d+1  /
+      data e11 cs(  4) / +.3733729386 6277945611 5171908656 90209 d+0  /
+      data e11 cs(  5) / -.5692503191 0929019385 2638922200 51166 d-1  /
+      data e11 cs(  6) / +.7211077769 6600918537 8477248126 35813 d-2  /
+      data e11 cs(  7) / -.7810490144 9841593997 7151840890 64148 d-3  /
+      data e11 cs(  8) / +.7388093356 2621681878 9748813661 77858 d-4  /
+      data e11 cs(  9) / -.6202861875 8082045134 3581336079 09712 d-5  /
+      data e11 cs( 10) / +.4681600230 3176735524 4058238683 62657 d-6  /
+      data e11 cs( 11) / -.3209288853 3298649524 0725530272 28719 d-7  /
+      data e11 cs( 12) / +.2015199748 7404533394 8262622130 19548 d-8  /
+      data e11 cs( 13) / -.1167368681 6697793105 3562716950 15419 d-9  /
+      data e11 cs( 14) / +.6276270667 2039943397 7887483796 15573 d-11 /
+      data e11 cs( 15) / -.3148154167 2275441045 2467818023 93600 d-12 /
+      data e11 cs( 16) / +.1479904174 4493474210 8944722517 33333 d-13 /
+      data e11 cs( 17) / -.6545709158 3979673774 2634015880 53333 d-15 /
+      data e11 cs( 18) / +.2733687222 3137291142 5080127487 99999 d-16 /
+      data e11 cs( 19) / -.1081352434 9754406876 7217276245 33333 d-17 /
+      data e11 cs( 20) / +.4062832804 0434303295 3003485866 66666 d-19 /
+      data e11 cs( 21) / -.1453553935 8960455858 9143722666 66666 d-20 /
+      data e11 cs( 22) / +.4963274618 1648636830 1984426666 66666 d-22 /
+      data e11 cs( 23) / -.1620861269 6636044604 8665600000 00000 d-23 /
+      data e11 cs( 24) / +.5072144803 8607422226 4319999999 99999 d-25 /
+      data e11 cs( 25) / -.1523581113 3372207813 9733333333 33333 d-26 /
+      data e11 cs( 26) / +.4400151125 6103618696 5333333333 33333 d-28 /
+      data e11 cs( 27) / -.1223614194 5416231594 6666666666 66666 d-29 /
+      data e11 cs( 28) / +.3280921666 1066001066 6666666666 66666 d-31 /
+      data e11 cs( 29) / -.8493345226 8306432000 0000000000 00000 d-33 /
+c
+c series for e12        on the interval -1.00000e+00 to  1.00000e+00
+c                                        with weighted error   8.08e-33
+c                                         log weighted error  32.09
+c                        approx significant figures required  30.4
+c                                    decimal places required  32.79
+c
+      data e12 cs(  1) / -.3739021479 22027951166 869820482 7 d-1      /
+      data e12 cs(  2) / +.4272398606 2209577260 4917917652 8 d-1      /
+      data e12 cs(  3) / -.1303182079 8497005441 5392055219 726 d+0    /
+      data e12 cs(  4) / +.1441912402 4698890734 1095893982 137 d-1    /
+      data e12 cs(  5) / -.1346170780 5106802211 6121527983 553 d-2    /
+      data e12 cs(  6) / +.1073102925 3063779997 6115850970 073 d-3    /
+      data e12 cs(  7) / -.7429999516 1194364961 0283062223 163 d-5    /
+      data e12 cs(  8) / +.4537732569 0753713938 6383211511 827 d-6    /
+      data e12 cs(  9) / -.2476417211 3906013184 6547423802 912 d-7    /
+      data e12 cs( 10) / +.1220765813 7459095370 0228167846 102 d-8    /
+      data e12 cs( 11) / -.5485141480 6409239382 1357398028 261 d-10   /
+      data e12 cs( 12) / +.2263621421 3007879929 3688162377 002 d-11   /
+      data e12 cs( 13) / -.8635897271 6980097940 4172916282 240 d-13   /
+      data e12 cs( 14) / +.3062915536 6933299758 1032894881 279 d-14   /
+      data e12 cs( 15) / -.1014857188 5594414755 7128906734 933 d-15   /
+      data e12 cs( 16) / +.3154821740 3406987754 6855328426 666 d-17   /
+      data e12 cs( 17) / -.9236042407 6924095448 4015923200 000 d-19   /
+      data e12 cs( 18) / +.2555042679 7081400244 0435029333 333 d-20   /
+      data e12 cs( 19) / -.6699128056 8456684721 7882453333 333 d-22   /
+      data e12 cs( 20) / +.1669254054 3538731943 1987199999 999 d-23   /
+      data e12 cs( 21) / -.3962549251 8437964185 6000000000 000 d-25   /
+      data e12 cs( 22) / +.8981358965 9851133201 0666666666 666 d-27   /
+      data e12 cs( 23) / -.1947633669 9301643332 2666666666 666 d-28   /
+      data e12 cs( 24) / +.4048360190 2463003306 6666666666 666 d-30   /
+      data e12 cs( 25) / -.8079815676 9984512000 0000000000 000 d-32   /
+c
+c series for ae13       on the interval  2.50000e-01 to  1.00000e+00
+c                                        with weighted error   6.65e-32
+c                                         log weighted error  31.18
+c                               significant figures required  30.69
+c                                    decimal places required  32.03
+c
+      data ae13cs(  1) / -.6057732466 4060345999 3193827377 47 d+0     /
+      data ae13cs(  2) / -.1125352434 8366090030 6497688527 18 d+0     /
+      data ae13cs(  3) / +.1343226624 7902779492 4878593294 14 d-1     /
+      data ae13cs(  4) / -.1926845187 3811457249 2468389913 03 d-2     /
+      data ae13cs(  5) / +.3091183377 2060318335 5867374753 68 d-3     /
+      data ae13cs(  6) / -.5356413212 9618418776 3935597951 47 d-4     /
+      data ae13cs(  7) / +.9827812880 2474923952 4918827172 37 d-5     /
+      data ae13cs(  8) / -.1885368984 9165182826 9028919389 10 d-5     /
+      data ae13cs(  9) / +.3749431935 6894735406 9640421905 31 d-6     /
+      data ae13cs( 10) / -.7682345587 0552639273 7334656805 56 d-7     /
+      data ae13cs( 11) / +.1614327056 7198777552 9563000608 68 d-7     /
+      data ae13cs( 12) / -.3466802211 4907354566 3090602260 27 d-8     /
+      data ae13cs( 13) / +.7587542091 9036277572 8897470541 14 d-9     /
+      data ae13cs( 14) / -.1688643332 9881412573 5145266367 03 d-9     /
+      data ae13cs( 15) / +.3814570674 9552265682 8042509272 72 d-10    /
+      data ae13cs( 16) / -.8733026632 4446292706 8517182723 34 d-11    /
+      data ae13cs( 17) / +.2023672864 5867960961 7943110643 30 d-11    /
+      data ae13cs( 18) / -.4741328303 9555834655 2103408201 60 d-12    /
+      data ae13cs( 19) / +.1122117204 8389864324 7317999289 20 d-12    /
+      data ae13cs( 20) / -.2680422543 4840309912 8268090933 95 d-13    /
+      data ae13cs( 21) / +.6457851441 7716530343 5803690672 12 d-14    /
+      data ae13cs( 22) / -.1568276050 1666478830 3057028491 94 d-14    /
+      data ae13cs( 23) / +.3836786539 9315404861 8215164414 08 d-15    /
+      data ae13cs( 24) / -.9451717302 7579130478 8710489325 56 d-16    /
+      data ae13cs( 25) / +.2343481228 8949573293 8966664391 33 d-16    /
+      data ae13cs( 26) / -.5845866158 0214714576 1231944198 82 d-17    /
+      data ae13cs( 27) / +.1466622986 7947778605 8736174191 95 d-17    /
+      data ae13cs( 28) / -.3699392347 6444472706 5925382744 74 d-18    /
+      data ae13cs( 29) / +.9379015993 6721242136 0142918178 13 d-19    /
+      data ae13cs( 30) / -.2389367322 1937873136 3082240873 81 d-19    /
+      data ae13cs( 31) / +.6115062462 9497608051 9342238378 66 d-20    /
+      data ae13cs( 32) / -.1571858532 7554025507 7198532881 06 d-20    /
+      data ae13cs( 33) / +.4057238728 5585397769 5192944913 06 d-21    /
+      data ae13cs( 34) / -.1051402655 4738034990 5663671227 73 d-21    /
+      data ae13cs( 35) / +.2734966493 0638667785 8060031317 33 d-22    /
+      data ae13cs( 36) / -.7140160408 0205796099 3555742719 99 d-23    /
+      data ae13cs( 37) / +.1870555243 2235079986 7569242111 99 d-23    /
+      data ae13cs( 38) / -.4916746816 6870480520 4780209493 33 d-24    /
+      data ae13cs( 39) / +.1296498811 9684031730 9160871253 33 d-24    /
+      data ae13cs( 40) / -.3429251568 8362864461 6239404373 33 d-25    /
+      data ae13cs( 41) / +.9097224164 3887034329 1048209066 66 d-26    /
+      data ae13cs( 42) / -.2420211231 4316856489 9348479999 99 d-26    /
+      data ae13cs( 43) / +.6456361293 4639510757 6704750933 33 d-27    /
+      data ae13cs( 44) / -.1726913273 5340541122 3159876266 66 d-27    /
+      data ae13cs( 45) / +.4630861165 9151500715 1942314666 66 d-28    /
+      data ae13cs( 46) / -.1244870363 7214131241 7551701333 33 d-28    /
+      data ae13cs( 47) / +.3354457409 0520678532 9070079999 99 d-29    /
+      data ae13cs( 48) / -.9059886852 1070774437 5439359999 99 d-30    /
+      data ae13cs( 49) / +.2452414705 1474238587 2732160000 00 d-30    /
+      data ae13cs( 50) / -.6652817873 3552062817 1079679999 99 d-31    /
+c
+c series for ae14       on the interval  0.          to  2.50000e-01
+c                                        with weighted error   5.07e-32
+c                                         log weighted error  31.30
+c                               significant figures required  30.40
+c                                    decimal places required  32.20
+c
+      data ae14cs(  1) / -.1892918000 7530168254 9567994282 0 d+0      /
+      data ae14cs(  2) / -.8648117855 2598714899 6881705682 4 d-1      /
+      data ae14cs(  3) / +.7224101543 7465947470 2151483918 4 d-2      /
+      data ae14cs(  4) / -.8097559457 5573861971 5965561018 1 d-3      /
+      data ae14cs(  5) / +.1099913443 2661388671 7925115700 2 d-3      /
+      data ae14cs(  6) / -.1717332998 9377673714 9535881448 7 d-4      /
+      data ae14cs(  7) / +.2985627514 4792833228 2534249500 3 d-5      /
+      data ae14cs(  8) / -.5659649145 7719300565 6016726715 5 d-6      /
+      data ae14cs(  9) / +.1152680839 7141400192 2658350166 3 d-6      /
+      data ae14cs( 10) / -.2495030440 2693382288 4212876506 5 d-7      /
+      data ae14cs( 11) / +.5692324201 8337543670 3937036814 0 d-8      /
+      data ae14cs( 12) / -.1359957664 8056003384 9003093917 6 d-8      /
+      data ae14cs( 13) / +.3384662888 7608845901 8451292585 9 d-9      /
+      data ae14cs( 14) / -.8737853904 4746819523 5084931658 0 d-10     /
+      data ae14cs( 15) / +.2331588663 2226597186 1261340047 0 d-10     /
+      data ae14cs( 16) / -.6411481049 2137859697 5316519632 6 d-11     /
+      data ae14cs( 17) / +.1812246980 2048164333 8435948468 2 d-11     /
+      data ae14cs( 18) / -.5253831761 5584606888 1940384046 6 d-12     /
+      data ae14cs( 19) / +.1559218272 5919256988 5502860982 5 d-12     /
+      data ae14cs( 20) / -.4729168297 0803987184 7642936946 6 d-13     /
+      data ae14cs( 21) / +.1463761864 3932435020 7619949380 8 d-13     /
+      data ae14cs( 22) / -.4617388988 7129241022 3217362360 4 d-14     /
+      data ae14cs( 23) / +.1482710348 2893693237 8923966037 1 d-14     /
+      data ae14cs( 24) / -.4841672496 2392291469 7316573441 7 d-15     /
+      data ae14cs( 25) / +.1606215575 7002904081 1657196618 8 d-15     /
+      data ae14cs( 26) / -.5408917538 9571709478 9502378425 2 d-16     /
+      data ae14cs( 27) / +.1847470159 3468978813 7023140231 0 d-16     /
+      data ae14cs( 28) / -.6395830792 7590944705 0061042505 0 d-17     /
+      data ae14cs( 29) / +.2242780721 6997594572 5023327617 0 d-17     /
+      data ae14cs( 30) / -.7961369173 9839475527 4455530864 6 d-18     /
+      data ae14cs( 31) / +.2859308111 5401974598 0861992927 2 d-18     /
+      data ae14cs( 32) / -.1038450244 7011371459 0069713744 6 d-18     /
+      data ae14cs( 33) / +.3812040607 0979757808 6684100831 9 d-19     /
+      data ae14cs( 34) / -.1413795417 7172007687 1756272369 6 d-19     /
+      data ae14cs( 35) / +.5295367865 1827409583 0544259481 5 d-20     /
+      data ae14cs( 36) / -.2002264245 0268259021 3721113143 9 d-20     /
+      data ae14cs( 37) / +.7640262751 2751960147 3684861091 8 d-21     /
+      data ae14cs( 38) / -.2941119006 8687878833 1126352336 2 d-21     /
+      data ae14cs( 39) / +.1141823539 0789271930 3769148358 6 d-21     /
+      data ae14cs( 40) / -.4469308475 9552984252 4702071848 9 d-22     /
+      data ae14cs( 41) / +.1763262410 5717507706 3049140852 0 d-22     /
+      data ae14cs( 42) / -.7009968187 9259023563 5151826234 0 d-23     /
+      data ae14cs( 43) / +.2807573556 5583789222 8775750751 5 d-23     /
+      data ae14cs( 44) / -.1132560944 9810864321 4188889156 2 d-23     /
+      data ae14cs( 45) / +.4600574684 3750179461 5676423372 7 d-24     /
+      data ae14cs( 46) / -.1881448598 9761334598 6460914810 8 d-24     /
+      data ae14cs( 47) / +.7744916111 5077308454 4432847803 7 d-25     /
+      data ae14cs( 48) / -.3208512760 5853689267 0270382626 1 d-25     /
+      data ae14cs( 49) / +.1337445542 9108397606 1993042138 4 d-25     /
+      data ae14cs( 50) / -.5608671881 8022170488 9477173521 0 d-26     /
+      data ae14cs( 51) / +.2365839716 5285374837 1006947327 9 d-26     /
+      data ae14cs( 52) / -.1003656195 0253053340 6583452685 6 d-26     /
+      data ae14cs( 53) / +.4281490878 0941611312 8664255692 7 d-27     /
+      data ae14cs( 54) / -.1836345261 8153181996 9132695825 0 d-27     /
+      data ae14cs( 55) / +.7917798231 3495400000 9746867814 4 d-28     /
+      data ae14cs( 56) / -.3431542358 7422203610 2501577523 1 d-28     /
+      data ae14cs( 57) / +.1494705493 8971032374 7506600891 7 d-28     /
+      data ae14cs( 58) / -.6542620279 8657054397 3904242005 3 d-29     /
+      data ae14cs( 59) / +.2877581395 1991711143 4048735368 5 d-29     /
+      data ae14cs( 60) / -.1271557211 7960247110 2798120004 2 d-29     /
+      data ae14cs( 61) / +.5644615555 6487225223 8804462250 6 d-30     /
+      data ae14cs( 62) / -.2516994994 2840951060 8061683029 3 d-30     /
+      data ae14cs( 63) / +.1127259818 9275102063 7036880418 1 d-30     /
+      data ae14cs( 64) / -.5069814875 8004608555 6258471936 0 d-31     /
+c
+      data ntae10, ntae11, ntae12, nte11, nte12, ntae13, ntae14 / 7*0 /
+      data xmax / 0.d0 /
+c
+      if (ntae10.ne.0) go to 10
+      eta = 0.1*sngl(d1mach(3))
+      ntae10 = initds (ae10cs, 50, eta)
+      ntae11 = initds (ae11cs, 60, eta)
+      ntae12 = initds (ae12cs, 41, eta)
+      nte11 = initds (e11cs, 29, eta)
+      nte12 = initds (e12cs, 25, eta)
+      ntae13 = initds (ae13cs, 50, eta)
+      ntae14 = initds (ae14cs, 64, eta)
+c
+      xmax = -dlog (d1mach(1))
+      xmax = xmax - dlog(xmax)
+c
+ 10   if (x.gt.(-1.d0)) go to 50
+      if (x.gt.(-32.d0)) go to 20
+      de1 = dexp(-x)/x * (1.d0 + dcsevl (64.d0/x+1.d0, ae10cs, ntae10))
+      return
+c
+ 20   if (x.gt.(-8.d0)) go to 30
+      de1 = dexp(-x)/x * (1.d0 + dcsevl ((64.d0/x+5.d0)/3.d0, ae11cs,
+     1  ntae11))
+      return
+c
+ 30   if (x.gt.(-4.d0)) go to 40
+      de1 = dexp(-x)/x * (1.d0 + dcsevl (16.d0/x+3.d0, ae12cs, ntae12))
+      return
+c
+ 40   de1 = -dlog(-x) + dcsevl ((2.d0*x+5.d0)/3.d0, e11cs, nte11)
+      return
+c
+ 50   if (x.gt.1.0d0) go to 60
+      if (x.eq.0.d0) call seteru (14hde1     x is 0, 14, 2, 2)
+      de1 = (-dlog(dabs(x)) - 0.6875d0 + x)  + dcsevl (x, e12cs, nte12)
+      return
+c
+ 60   if (x.gt.4.0d0) go to 70
+      de1 = dexp(-x)/x * (1.d0 + dcsevl ((8.d0/x-5.d0)/3.d0, ae13cs,
+     1  ntae13))
+      return
+c
+ 70   if (x.gt.xmax) go to 80
+      de1 = dexp(-x)/x * (1.d0 + dcsevl (8.d0/x-1.d0, ae14cs, ntae14))
+      return
+c
+ 80   call seteru (30hde1     x so big e1 underflows, 30, 1, 0)
+      de1 = 0.d0
+      return
+c
+      end
diff --git a/fvn_fnlib/dei.f b/fvn_fnlib/dei.f
new file mode 100644
index 0000000..92cd355
--- /dev/null
+++ b/fvn_fnlib/dei.f
@@ -0,0 +1,9 @@
+      double precision function dei (x)
+c july 1977 edition.  w. fullerton, c3, los alamos scientific lab.
+      double precision x, de1
+      external de1
+c
+      dei = -de1(-x)
+c
+      return
+      end
diff --git a/fvn_fnlib/derf.f b/fvn_fnlib/derf.f
new file mode 100644
index 0000000..3d722c0
--- /dev/null
+++ b/fvn_fnlib/derf.f
@@ -0,0 +1,60 @@
+      double precision function derf (x)
+c july 1977 edition.  w. fullerton, c3, los alamos scientific lab.
+c last revised june 1983.  w. fullerton, imsl, houston.
+      double precision x, erfcs(21), sqeps, sqrtpi, xbig, y, d1mach,
+     1  dcsevl, derfc, dlog, dsqrt
+      external d1mach, dcsevl, derfc, initds
+c
+c series for erf        on the interval  0.          to  1.00000e+00
+c                                        with weighted error   1.28e-32
+c                                         log weighted error  31.89
+c                               significant figures required  31.05
+c                                    decimal places required  32.55
+c
+      data erf cs(  1) / -.4904612123 4691808039 9845440333 76 d-1     /
+      data erf cs(  2) / -.1422612051 0371364237 8247418996 31 d+0     /
+      data erf cs(  3) / +.1003558218 7599795575 7546767129 33 d-1     /
+      data erf cs(  4) / -.5768764699 7674847650 8270255091 67 d-3     /
+      data erf cs(  5) / +.2741993125 2196061034 4221607914 71 d-4     /
+      data erf cs(  6) / -.1104317550 7344507604 1353812959 05 d-5     /
+      data erf cs(  7) / +.3848875542 0345036949 9613114981 74 d-7     /
+      data erf cs(  8) / -.1180858253 3875466969 6317518015 81 d-8     /
+      data erf cs(  9) / +.3233421582 6050909646 4029309533 54 d-10    /
+      data erf cs( 10) / -.7991015947 0045487581 6073747085 95 d-12    /
+      data erf cs( 11) / +.1799072511 3961455611 9672454866 34 d-13    /
+      data erf cs( 12) / -.3718635487 8186926382 3168282094 93 d-15    /
+      data erf cs( 13) / +.7103599003 7142529711 6899083946 66 d-17    /
+      data erf cs( 14) / -.1261245511 9155225832 4954248533 33 d-18    /
+      data erf cs( 15) / +.2091640694 1769294369 1705002666 66 d-20    /
+      data erf cs( 16) / -.3253973102 9314072982 3641600000 00 d-22    /
+      data erf cs( 17) / +.4766867209 7976748332 3733333333 33 d-24    /
+      data erf cs( 18) / -.6598012078 2851343155 1999999999 99 d-26    /
+      data erf cs( 19) / +.8655011469 9637626197 3333333333 33 d-28    /
+      data erf cs( 20) / -.1078892517 7498064213 3333333333 33 d-29    /
+      data erf cs( 21) / +.1281188399 3017002666 6666666666 66 d-31    /
+c
+      data sqrtpi / 1.772453850 9055160272 9816748334 115d0 /
+      data nterf, xbig, sqeps / 0, 2*0.d0 /
+c
+      if (nterf.ne.0) go to 10
+      nterf = initds (erfcs, 21, 0.1*sngl(d1mach(3)))
+      xbig = dsqrt (-dlog(sqrtpi*d1mach(3)))
+      sqeps = dsqrt (2.0d0*d1mach(3))
+c
+ 10   y = dabs(x)
+      if (y.gt.1.d0) go to 20
+c
+c erf(x) = 1.0 - erfc(x)  for  -1.0 .le. x .le. 1.0
+c
+      if (y.le.sqeps) derf = 2.0d0*x/sqrtpi
+      if (y.gt.sqeps) derf = x*(1.0d0 + dcsevl (2.d0*x*x-1.d0,
+     1  erfcs, nterf))
+      return
+c
+c erf(x) = 1.0 - erfc(x) for abs(x) .gt. 1.0
+c
+ 20   if (y.le.xbig) derf = dsign (1.0d0-derfc(y), x)
+      if (y.gt.xbig) derf = dsign (1.0d0, x)
+c
+      return
+      end
diff --git a/fvn_fnlib/derfc.f b/fvn_fnlib/derfc.f
new file mode 100644
index 0000000..3db28a1
--- /dev/null
+++ b/fvn_fnlib/derfc.f
@@ -0,0 +1,203 @@
+      double precision function derfc (x)
+c july 1977 edition.  w. fullerton, c3, los alamos scientific lab.
+      double precision x, erfcs(21), erfccs(59), erc2cs(49), sqeps,
+     1  sqrtpi, xmax, xsml, y,  d1mach, dcsevl, dexp, dlog, dsqrt
+      external d1mach, dcsevl, initds
+c
+c series for erf        on the interval  0.          to  1.00000e+00
+c                                        with weighted error   1.28e-32
+c                                         log weighted error  31.89
+c                               significant figures required  31.05
+c                                    decimal places required  32.55
+c
+      data erf cs(  1) / -.4904612123 4691808039 9845440333 76 d-1     /
+      data erf cs(  2) / -.1422612051 0371364237 8247418996 31 d+0     /
+      data erf cs(  3) / +.1003558218 7599795575 7546767129 33 d-1     /
+      data erf cs(  4) / -.5768764699 7674847650 8270255091 67 d-3     /
+      data erf cs(  5) / +.2741993125 2196061034 4221607914 71 d-4     /
+      data erf cs(  6) / -.1104317550 7344507604 1353812959 05 d-5     /
+      data erf cs(  7) / +.3848875542 0345036949 9613114981 74 d-7     /
+      data erf cs(  8) / -.1180858253 3875466969 6317518015 81 d-8     /
+      data erf cs(  9) / +.3233421582 6050909646 4029309533 54 d-10    /
+      data erf cs( 10) / -.7991015947 0045487581 6073747085 95 d-12    /
+      data erf cs( 11) / +.1799072511 3961455611 9672454866 34 d-13    /
+      data erf cs( 12) / -.3718635487 8186926382 3168282094 93 d-15    /
+      data erf cs( 13) / +.7103599003 7142529711 6899083946 66 d-17    /
+      data erf cs( 14) / -.1261245511 9155225832 4954248533 33 d-18    /
+      data erf cs( 15) / +.2091640694 1769294369 1705002666 66 d-20    /
+      data erf cs( 16) / -.3253973102 9314072982 3641600000 00 d-22    /
+      data erf cs( 17) / +.4766867209 7976748332 3733333333 33 d-24    /
+      data erf cs( 18) / -.6598012078 2851343155 1999999999 99 d-26    /
+      data erf cs( 19) / +.8655011469 9637626197 3333333333 33 d-28    /
+      data erf cs( 20) / -.1078892517 7498064213 3333333333 33 d-29    /
+      data erf cs( 21) / +.1281188399 3017002666 6666666666 66 d-31    /
+c
+c series for erc2       on the interval  2.50000e-01 to  1.00000e+00
+c                                        with weighted error   2.67e-32
+c                                         log weighted error  31.57
+c                               significant figures required  30.31
+c                                    decimal places required  32.42
+c
+      data erc2cs(  1) / -.6960134660 2309501127 3915082619 7 d-1      /
+      data erc2cs(  2) / -.4110133936 2620893489 8221208466 6 d-1      /
+      data erc2cs(  3) / +.3914495866 6896268815 6114370524 4 d-2      /
+      data erc2cs(  4) / -.4906395650 5489791612 8093545077 4 d-3      /
+      data erc2cs(  5) / +.7157479001 3770363807 6089414182 5 d-4      /
+      data erc2cs(  6) / -.1153071634 1312328338 0823284791 2 d-4      /
+      data erc2cs(  7) / +.1994670590 2019976350 5231486770 9 d-5      /
+      data erc2cs(  8) / -.3642666471 5992228739 3611843071 1 d-6      /
+      data erc2cs(  9) / +.6944372610 0050125899 3127721463 3 d-7      /
+      data erc2cs( 10) / -.1371220902 1043660195 3460514121 0 d-7      /
+      data erc2cs( 11) / +.2788389661 0071371319 6386034808 7 d-8      /
+      data erc2cs( 12) / -.5814164724 3311615518 6479105031 6 d-9      /
+      data erc2cs( 13) / +.1238920491 7527531811 8016881795 0 d-9      /
+      data erc2cs( 14) / -.2690639145 3067434323 9042493788 9 d-10     /
+      data erc2cs( 15) / +.5942614350 8479109824 4470968384 0 d-11     /
+      data erc2cs( 16) / -.1332386735 7581195792 8775442057 0 d-11     /
+      data erc2cs( 17) / +.3028046806 1771320171 7369724330 4 d-12     /
+      data erc2cs( 18) / -.6966648814 9410325887 9586758895 4 d-13     /
+      data erc2cs( 19) / +.1620854541 0539229698 1289322762 8 d-13     /
+      data erc2cs( 20) / -.3809934465 2504919998 7691305772 9 d-14     /
+      data erc2cs( 21) / +.9040487815 9788311493 6897101297 5 d-15     /
+      data erc2cs( 22) / -.2164006195 0896073478 0981204700 3 d-15     /
+      data erc2cs( 23) / +.5222102233 9958549846 0798024417 2 d-16     /
+      data erc2cs( 24) / -.1269729602 3645553363 7241552778 0 d-16     /
+      data erc2cs( 25) / +.3109145504 2761975838 3622741295 1 d-17     /
+      data erc2cs( 26) / -.7663762920 3203855240 0956671481 1 d-18     /
+      data erc2cs( 27) / +.1900819251 3627452025 3692973329 0 d-18     /
+      data erc2cs( 28) / -.4742207279 0690395452 2565599996 5 d-19     /
+      data erc2cs( 29) / +.1189649200 0765283828 8068307845 1 d-19     /
+      data erc2cs( 30) / -.3000035590 3257802568 4527131306 6 d-20     /
+      data erc2cs( 31) / +.7602993453 0432461730 1938527709 8 d-21     /
+      data erc2cs( 32) / -.1935909447 6068728815 6981104913 0 d-21     /
+      data erc2cs( 33) / +.4951399124 7733378810 0004238677 3 d-22     /
+      data erc2cs( 34) / -.1271807481 3363718796 0862198988 8 d-22     /
+      data erc2cs( 35) / +.3280049600 4695130433 1584165205 3 d-23     /
+      data erc2cs( 36) / -.8492320176 8228965689 2479242239 9 d-24     /
+      data erc2cs( 37) / +.2206917892 8075602235 1987998719 9 d-24     /
+      data erc2cs( 38) / -.5755617245 6965284983 1281950719 9 d-25     /
+      data erc2cs( 39) / +.1506191533 6392342503 5414405119 9 d-25     /
+      data erc2cs( 40) / -.3954502959 0187969531 0428569599 9 d-26     /
+      data erc2cs( 41) / +.1041529704 1515009799 8464505173 3 d-26     /
+      data erc2cs( 42) / -.2751487795 2787650794 5017890133 3 d-27     /
+      data erc2cs( 43) / +.7290058205 4975574089 9770368000 0 d-28     /
+      data erc2cs( 44) / -.1936939645 9159478040 7750109866 6 d-28     /
+      data erc2cs( 45) / +.5160357112 0514872983 7005482666 6 d-29     /
+      data erc2cs( 46) / -.1378419322 1930940993 8964480000 0 d-29     /
+      data erc2cs( 47) / +.3691326793 1070690422 5109333333 3 d-30     /
+      data erc2cs( 48) / -.9909389590 6243654206 5322666666 6 d-31     /
+      data erc2cs( 49) / +.2666491705 1953884133 2394666666 6 d-31     /
+c
+c series for erfc       on the interval  0.          to  2.50000e-01
+c                                        with weighted error   1.53e-31
+c                                         log weighted error  30.82
+c                               significant figures required  29.47
+c                                    decimal places required  31.70
+c
+      data erfccs(  1) / +.7151793102 0292477450 3697709496 d-1        /
+      data erfccs(  2) / -.2653243433 7606715755 8893386681 d-1        /
+      data erfccs(  3) / +.1711153977 9208558833 2699194606 d-2        /
+      data erfccs(  4) / -.1637516634 5851788416 3746404749 d-3        /
+      data erfccs(  5) / +.1987129350 0552036499 5974806758 d-4        /
+      data erfccs(  6) / -.2843712412 7665550875 0175183152 d-5        /
+      data erfccs(  7) / +.4606161308 9631303696 9379968464 d-6        /
+      data erfccs(  8) / -.8227753025 8792084205 7766536366 d-7        /
+      data erfccs(  9) / +.1592141872 7709011298 9358340826 d-7        /
+      data erfccs( 10) / -.3295071362 2528432148 6631665072 d-8        /
+      data erfccs( 11) / +.7223439760 4005554658 1261153890 d-9        /
+      data erfccs( 12) / -.1664855813 3987295934 4695966886 d-9        /
+      data erfccs( 13) / +.4010392588 2376648207 7671768814 d-10       /
+      data erfccs( 14) / -.1004816214 4257311327 2170176283 d-10       /
+      data erfccs( 15) / +.2608275913 3003338085 9341009439 d-11       /
+      data erfccs( 16) / -.6991110560 4040248655 7697812476 d-12       /
+      data erfccs( 17) / +.1929492333 2617070862 4205749803 d-12       /
+      data erfccs( 18) / -.5470131188 7543310649 0125085271 d-13       /
+      data erfccs( 19) / +.1589663309 7626974483 9084032762 d-13       /
+      data erfccs( 20) / -.4726893980 1975548392 0369584290 d-14       /
+      data erfccs( 21) / +.1435873376 7849847867 2873997840 d-14       /
+      data erfccs( 22) / -.4449510561 8173583941 7250062829 d-15       /
+      data erfccs( 23) / +.1404810884 7682334373 7305537466 d-15       /
+      data erfccs( 24) / -.4513818387 7642108962 5963281623 d-16       /
+      data erfccs( 25) / +.1474521541 0451330778 7018713262 d-16       /
+      data erfccs( 26) / -.4892621406 9457761543 6841552532 d-17       /
+      data erfccs( 27) / +.1647612141 4106467389 5301522827 d-17       /
+      data erfccs( 28) / -.5626817176 3294080929 9928521323 d-18       /
+      data erfccs( 29) / +.1947443382 2320785142 9197867821 d-18       /
+      data erfccs( 30) / -.6826305642 9484207295 6664144723 d-19       /
+      data erfccs( 31) / +.2421988887 2986492401 8301125438 d-19       /
+      data erfccs( 32) / -.8693414133 5030704256 3800861857 d-20       /
+      data erfccs( 33) / +.3155180346 2280855712 2363401262 d-20       /
+      data erfccs( 34) / -.1157372324 0496087426 1239486742 d-20       /
+      data erfccs( 35) / +.4288947161 6056539462 3737097442 d-21       /
+      data erfccs( 36) / -.1605030742 0576168500 5737770964 d-21       /
+      data erfccs( 37) / +.6063298757 4538026449 5069923027 d-22       /
+      data erfccs( 38) / -.2311404251 6979584909 8840801367 d-22       /
+      data erfccs( 39) / +.8888778540 6618855255 4702955697 d-23       /
+      data erfccs( 40) / -.3447260576 6513765223 0718495566 d-23       /
+      data erfccs( 41) / +.1347865460 2069650682 7582774181 d-23       /
+      data erfccs( 42) / -.5311794071 1250217364 5873201807 d-24       /
+      data erfccs( 43) / +.2109341058 6197831682 8954734537 d-24       /
+      data erfccs( 44) / -.8438365587 9237891159 8133256738 d-25       /
+      data erfccs( 45) / +.3399982524 9452089062 7359576337 d-25       /
+      data erfccs( 46) / -.1379452388 0732420900 2238377110 d-25       /
+      data erfccs( 47) / +.5634490311 8332526151 3392634811 d-26       /
+      data erfccs( 48) / -.2316490434 4770654482 3427752700 d-26       /
+      data erfccs( 49) / +.9584462844 6018101526 3158381226 d-27       /
+      data erfccs( 50) / -.3990722880 3301097262 4224850193 d-27       /
+      data erfccs( 51) / +.1672129225 9444773601 7228709669 d-27       /
+      data erfccs( 52) / -.7045991522 7660138563 8803782587 d-28       /
+      data erfccs( 53) / +.2979768402 8642063541 2357989444 d-28       /
+      data erfccs( 54) / -.1262522466 4606192972 2422632994 d-28       /
+      data erfccs( 55) / +.5395438704 5424879398 5299653154 d-29       /
+      data erfccs( 56) / -.2380992882 5314591867 5346190062 d-29       /
+      data erfccs( 57) / +.1099052830 1027615735 9726683750 d-29       /
+      data erfccs( 58) / -.4867713741 6449657273 2518677435 d-30       /
+      data erfccs( 59) / +.1525877264 1103575676 3200828211 d-30       /
+c
+      data sqrtpi / 1.772453850 9055160272 9816748334 115d0 /
+      data nterf, nterfc, nterc2, xsml, xmax, sqeps / 3*0, 3*0.d0 /
+c
+      if (nterf.ne.0) go to 10
+      eta = 0.1*sngl(d1mach(3))
+      nterf = initds (erfcs, 21, eta)
+      nterfc = initds (erfccs, 59, eta)
+      nterc2 = initds (erc2cs, 49, eta)
+c
+      xsml = -dsqrt (-dlog(sqrtpi*d1mach(3)))
+      xmax = dsqrt (-dlog(sqrtpi*d1mach(1)) )
+      xmax = xmax - 0.5d0*dlog(xmax)/xmax - 0.01d0
+      sqeps = dsqrt (2.0d0*d1mach(3))
+c
+ 10   if (x.gt.xsml) go to 20
+c
+c erfc(x) = 1.0 - erf(x)  for  x .lt. xsml
+c
+      derfc = 2.0d0
+      return
+c
+ 20   if (x.gt.xmax) go to 40
+      y = dabs(x)
+      if (y.gt.1.0d0) go to 30
+c
+c erfc(x) = 1.0 - erf(x)  for abs(x) .le. 1.0
+c
+      if (y.lt.sqeps) derfc = 1.0d0 - 2.0d0*x/sqrtpi
+      if (y.ge.sqeps) derfc = 1.0d0 - x*(1.0d0 + dcsevl (2.d0*x*x-1.d0,
+     1  erfcs, nterf))
+      return
+c
+c erfc(x) = 1.0 - erf(x)  for  1.0 .lt. abs(x) .le. xmax
+c
+ 30   y = y*y
+      if (y.le.4.d0) derfc = dexp(-y)/dabs(x) * (0.5d0 + dcsevl (
+     1  (8.d0/y-5.d0)/3.d0, erc2cs, nterc2) )
+      if (y.gt.4.d0) derfc = dexp(-y)/dabs(x) * (0.5d0 + dcsevl (
+     1  8.d0/y-1.d0, erfccs, nterfc) )
+      if (x.lt.0.d0) derfc = 2.0d0 - derfc
+      return
+c
+ 40   call seteru (32hderfc   x so big erfc underflows, 32, 1, 0)
+      derfc = 0.d0
+      return
+c
+      end
diff --git a/fvn_fnlib/dexprl.f b/fvn_fnlib/dexprl.f
new file mode 100644
index 0000000..9506e42
--- /dev/null
+++ b/fvn_fnlib/dexprl.f
@@ -0,0 +1,39 @@
+      double precision function dexprl (x)
+c july 1980 edition.  w. fullerton, c3, los alamos scientific lab.
+c
+c evaluate  exprel(x) = (exp(x) - 1.0) / x.   for small abs(x) the
+c taylor series is used.  if x is negative the reflection formula
+c         exprel(x) = exp(x) * exprel(abs(x))
+c may be used  this reflection formula will be of use when the
+c evaluation for small abs(x) is done by chebyshev series rather than
+c taylor series.
+c
+      double precision x, absx, alneps, xbnd, xln, xn,  d1mach,
+     1  dexp, dlog
+      external d1mach
+      data nterms, xbnd / 0, 0.0d0 /
+c
+      if (nterms.ne.0) go to 10
+      alneps = dlog(d1mach(3))
+      xn = 3.72d0 - 0.3d0*alneps
+      xln = dlog((xn+1.0d0)/1.36d0)
+      nterms = xn - (xn*xln+alneps)/(xln+1.36d0) + 1.5d0
+      xbnd = d1mach(3)
+c
+ 10   absx = dabs(x)
+      if (absx.le.0.5d0) go to 20
+      call entsrc (irold, 1)
+      dexprl = (dexp(x)-1.0d0)/x
+      call entsrc (ir, irold)
+      return
+c
+ 20   dexprl = 1.0d0
+      if (absx.lt.xbnd) return
+c
+      dexprl = 0.0d0
+      do 30 i=1,nterms
+        dexprl = 1.0d0 + dexprl*x/dble(float(nterms+2-i))
+ 30   continue
+c
+      return
+      end
diff --git a/fvn_fnlib/dfac.f b/fvn_fnlib/dfac.f
new file mode 100644
index 0000000..8168e13
--- /dev/null
+++ b/fvn_fnlib/dfac.f
@@ -0,0 +1,59 @@
+      double precision function dfac (n)
+c june 1977 edition.   w. fullerton, c3, los alamos scientific lab.
+      double precision facn(31), sq2pil, x, xmax, xmin,  d9lgmc,
+     1  dexp, dlog
+      external d9lgmc
+c
+      data facn  (  1) / +.1000000000 0000000000 0000000000 000 d+1    /
+      data facn  (  2) / +.1000000000 0000000000 0000000000 000 d+1    /
+      data facn  (  3) / +.2000000000 0000000000 0000000000 000 d+1    /
+      data facn  (  4) / +.6000000000 0000000000 0000000000 000 d+1    /
+      data facn  (  5) / +.2400000000 0000000000 0000000000 000 d+2    /
+      data facn  (  6) / +.1200000000 0000000000 0000000000 000 d+3    /
+      data facn  (  7) / +.7200000000 0000000000 0000000000 000 d+3    /
+      data facn  (  8) / +.5040000000 0000000000 0000000000 000 d+4    /
+      data facn  (  9) / +.4032000000 0000000000 0000000000 000 d+5    /
+      data facn  ( 10) / +.3628800000 0000000000 0000000000 000 d+6    /
+      data facn  ( 11) / +.3628800000 0000000000 0000000000 000 d+7    /
+      data facn  ( 12) / +.3991680000 0000000000 0000000000 000 d+8    /
+      data facn  ( 13) / +.4790016000 0000000000 0000000000 000 d+9    /
+      data facn  ( 14) / +.6227020800 0000000000 0000000000 000 d+10   /
+      data facn  ( 15) / +.8717829120 0000000000 0000000000 000 d+11   /
+      data facn  ( 16) / +.1307674368 0000000000 0000000000 000 d+13   /
+      data facn  ( 17) / +.2092278988 8000000000 0000000000 000 d+14   /
+      data facn  ( 18) / +.3556874280 9600000000 0000000000 000 d+15   /
+      data facn  ( 19) / +.6402373705 7280000000 0000000000 000 d+16   /
+      data facn  ( 20) / +.1216451004 0883200000 0000000000 000 d+18   /
+      data facn  ( 21) / +.2432902008 1766400000 0000000000 000 d+19   /
+      data facn  ( 22) / +.5109094217 1709440000 0000000000 000 d+20   /
+      data facn  ( 23) / +.1124000727 7776076800 0000000000 000 d+22   /
+      data facn  ( 24) / +.2585201673 8884976640 0000000000 000 d+23   /
+      data facn  ( 25) / +.6204484017 3323943936 0000000000 000 d+24   /
+      data facn  ( 26) / +.1551121004 3330985984 0000000000 000 d+26   /
+      data facn  ( 27) / +.4032914611 2660563558 4000000000 000 d+27   /
+      data facn  ( 28) / +.1088886945 0418352160 7680000000 000 d+29   /
+      data facn  ( 29) / +.3048883446 1171386050 1504000000 000 d+30   /
+      data facn  ( 30) / +.8841761993 7397019545 4361600000 000 d+31   /
+      data facn  ( 31) / +.2652528598 1219105863 6308480000 000 d+33   /
+c
+      data sq2pil / 0.9189385332 0467274178 0329736405 62 d0 /
+      data nmax / 0 /
+c
+      if (nmax.ne.0) go to 10
+      call d9gaml (xmin, xmax)
+      nmax = xmax - 1.d0
+c
+ 10   if (n.lt.0) call seteru (
+     1  47hdfac    factorial of negative integer undefined, 47, 1, 2)
+c
+      if (n.le.30) dfac = facn(n+1)
+      if (n.le.30) return
+c
+      if (n.gt.nmax) call seteru (
+     1  39hdfac    n so big factorial(n) overflows, 39, 2, 2)
+c
+      x = n + 1
+      dfac = dexp ((x-0.5d0)*dlog(x) - x + sq2pil + d9lgmc(x) )
+c
+      return
+      end
diff --git a/fvn_fnlib/dgami.f b/fvn_fnlib/dgami.f
new file mode 100644
index 0000000..f2805e9
--- /dev/null
+++ b/fvn_fnlib/dgami.f
@@ -0,0 +1,28 @@
+      double precision function dgami (a, x)
+c july 1977 edition.  w. fullerton, c3, los alamos scientific lab.
+c
+c evaluate the incomplete gamma function defined by
+c
+c gami = integral from t = 0 to x of exp(-t) * t**(a-1.0) .
+c
+c gami is evaluated for positive values of a and non-negative values
+c of x.  a slight deterioration of 2 or 3 digits accuracy will occur
+c when gami is very large or very small, because logarithmic variables
+c are used.
+c
+      double precision a, x, factor, dlngam, dgamit, dexp, dlog
+      external  dgamit, dlngam
+c
+      if (a.le.0.d0) call seteru (25hdgami   a must be gt zero, 25, 1,2)
+      if (x.lt.0.d0) call seteru (25hdgami   x must be ge zero, 25, 2,2)
+c
+      dgami = 0.d0
+      if (x.eq.0.0d0) return
+c
+c the only error possible in the expression below is a fatal overflow.
+      factor = dexp (dlngam(a) + a*dlog(x))
+c
+      dgami = factor * dgamit (a, x)
+c
+      return
+      end
diff --git a/fvn_fnlib/dgamic.f b/fvn_fnlib/dgamic.f
new file mode 100644
index 0000000..3190030
--- /dev/null
+++ b/fvn_fnlib/dgamic.f
@@ -0,0 +1,104 @@
+      double precision function dgamic (a, x)
+c july 1977 edition.  w. fullerton, c3, los alamos scientific lab.
+c
+c evaluate the complementary incomplete gamma function
+c
+c gamic = integral from t = x to infinity of exp(-t) * t**(a-1.)  .
+c
+c gamic is evaluated for arbitrary real values of a and for non-negative
+c values of x (even though gamic is defined for x .lt. 0.0), except that
+c for x = 0 and a .le. 0.0, gamic is undefined.
+c
+c      a slight deterioration of 2 or 3 digits accuracy will occur when
+c gamic is very large or very small in absolute value, because log-
+c arithmic variables are used.  also, if the parameter a is very close
+c to a negative integer (but not a negative integer), there is a loss
+c of accuracy, which is reported if the result is less than half
+c machine precision.
+c
+c ref. -- w. gautschi, an evaluation procedure for incomplete gamma
+c functions, acm trans. math. software.
+c
+      double precision a, x, aeps, ainta, algap1, alneps, alngs, alx,
+     1  bot, e, eps, gstar, h, sga, sgng, sgngam, sgngs, sqeps, t,
+     2  d1mach, dlngam, d9gmic, d9gmit, d9lgic, d9lgit, dint,
+     3  dexp, dlog, dsqrt
+      external d1mach, d9gmic, d9gmit, d9lgic, d9lgit
+     1  dlngam
+c
+      data eps, sqeps, alneps, bot / 4*0.0d0 /
+c
+      if (eps.ne.0.d0) go to 10
+      eps = 0.5d0*d1mach(3)
+      sqeps = dsqrt (d1mach(4))
+      alneps = -dlog (d1mach(3))
+      bot = dlog (d1mach(1))
+c
+ 10   if (x.lt.0.d0) call seteru (21hdgamic  x is negative, 21, 2, 2)
+c
+      if (x.gt.0.d0) go to 20
+      if (a.le.0.d0) call seteru (
+     1  47hdgamic  x = 0 and a le 0 so dgamic is undefined, 47, 3, 2)
+c
+      dgamic = dexp (dlngam(a+1.d0) - dlog(a))
+      return
+c
+ 20   alx = dlog (x)
+      sga = 1.0d0
+      if (a.ne.0.d0) sga = dsign (1.0d0, a)
+      ainta = dint (a + 0.5d0*sga)
+      aeps = a - ainta
+c
+      izero = 0
+      if (x.ge.1.0d0) go to 40
+c
+      if (a.gt.0.5d0 .or. dabs(aeps).gt.0.001d0) go to 30
+      e = 2.0d0
+      if (-ainta.gt.1.d0) e = 2.d0*(-ainta+2.d0)/(ainta*ainta-1.0d0)
+      e = e - alx * x**(-0.001d0)
+      if (e*dabs(aeps).gt.eps) go to 30
+c
+      dgamic = d9gmic (a, x, alx)
+      return
+c
+ 30   call dlgams (a+1.0d0, algap1, sgngam)
+      gstar = d9gmit (a, x, algap1, sgngam, alx)
+      if (gstar.eq.0.d0) izero = 1
+      if (gstar.ne.0.d0) alngs = dlog (dabs(gstar))
+      if (gstar.ne.0.d0) sgngs = dsign (1.0d0, gstar)
+      go to 50
+c
+ 40   if (a.lt.x) dgamic = dexp (d9lgic(a, x, alx))
+      if (a.lt.x) return
+c
+      sgngam = 1.0d0
+      algap1 = dlngam (a+1.0d0)
+      sgngs = 1.0d0
+      alngs = d9lgit (a, x, algap1)
+c
+c evaluation of dgamic(a,x) in terms of tricomi-s incomplete gamma fn.
+c
+ 50   h = 1.d0
+      if (izero.eq.1) go to 60
+c
+      t = a*alx + alngs
+      if (t.gt.alneps) go to 70
+      if (t.gt.(-alneps)) h = 1.0d0 - sgngs*dexp(t)
+c
+      if (dabs(h).lt.sqeps) call erroff
+      if (dabs(h).lt.sqeps) call seteru (
+     1  32hdgamic  result lt half precision, 32, 1, 1)
+c
+ 60   sgng = dsign (1.0d0, h) * sga * sgngam
+      t = dlog(dabs(h)) + algap1 - dlog(dabs(a))
+      if (t.lt.bot) call erroff
+      dgamic = sgng * dexp(t)
+      return
+c
+ 70   sgng = -sgngs * sga * sgngam
+      t = t + algap1 - dlog(dabs(a))
+      if (t.lt.bot) call erroff
+      dgamic = sgng * dexp(t)
+      return
+c
+      end
diff --git a/fvn_fnlib/dgamit.f b/fvn_fnlib/dgamit.f
new file mode 100644
index 0000000..e7ee872
--- /dev/null
+++ b/fvn_fnlib/dgamit.f
@@ -0,0 +1,88 @@
+      double precision function dgamit (a, x)
+c july 1977 edition.  w. fullerton, c3, los alamos scientific lab.
+c
+c evaluate tricomi-s incomplete gamma function defined by
+c
+c gamit = x**(-a)/gamma(a) * integral t = 0 to x of exp(-t) * t**(a-1.)
+c
+c and analytic continuation for a .le. 0.0.  gamma(x) is the complete
+c gamma function of x.  gamit is evaluated for arbitrary real values of
+c a and for non-negative values of x (even though gamit is defined for
+c x .lt. 0.0).
+c
+c      a slight deterioration of 2 or 3 digits accuracy will occur when
+c gamit is very large or very small in absolute value, because log-
+c arithmic variables are used.  also, if the parameter a is very close
+c to a negative integer (but not a negative integer), there is a loss
+c of accuracy, which is reported if the result is less than half
+c machine precision.
+c
+c ref. -- w. gautschi, an evaluation procedure for incomplete gamma
+c functions, acm trans. math. software.
+c
+      double precision a, x, aeps, ainta, algap1, alneps, alng, alx,
+     1  bot, h, sga, sgngam, sqeps, t, d1mach, dgamr, d9gmit, d9lgit,
+     2  dlngam, d9lgic, dint, dexp, dlog, dsqrt
+      external d1mach, d9gmit, d9lgic, d9lgit, dgamr,
+     1  dlngam
+c
+      data alneps, sqeps, bot / 3*0.d0 /
+c
+      if (alneps.ne.0.d0) go to 10
+      alneps = -dlog (d1mach(3))
+      sqeps = dsqrt (d1mach(4))
+      bot = dlog (d1mach(1))
+c
+ 10   if (x.lt.0.d0) call seteru (21hdgamit  x is negative, 21, 2, 2)
+c
+      if (x.ne.0.d0) alx = dlog (x)
+      sga = 1.0d0
+      if (a.ne.0.d0) sga = dsign (1.0d0, a)
+      ainta = dint (a + 0.5d0*sga)
+      aeps = a - ainta
+c
+      if (x.gt.0.d0) go to 20
+      dgamit = 0.0d0
+      if (ainta.gt.0.d0 .or. aeps.ne.0.d0) dgamit = dgamr(a+1.0d0)
+      return
+c
+ 20   if (x.gt.1.d0) go to 30
+      if (a.ge.(-0.5d0) .or. aeps.ne.0.d0) call dlgams (a+1.0d0, algap1,
+     1  sgngam)
+      dgamit = d9gmit (a, x, algap1, sgngam, alx)
+      return
+c
+ 30   if (a.lt.x) go to 40
+      t = d9lgit (a, x, dlngam(a+1.0d0))
+      if (t.lt.bot) call erroff
+      dgamit = dexp (t)
+      return
+c
+ 40   alng = d9lgic (a, x, alx)
+c
+c evaluate dgamit in terms of dlog (dgamic (a, x))
+c
+      h = 1.0d0
+      if (aeps.eq.0.d0 .and. ainta.le.0.d0) go to 50
+c
+      call dlgams (a+1.0d0, algap1, sgngam)
+      t = dlog (dabs(a)) + alng - algap1
+      if (t.gt.alneps) go to 60
+c
+      if (t.gt.(-alneps)) h = 1.0d0 - sga * sgngam * dexp(t)
+      if (dabs(h).gt.sqeps) go to 50
+c
+      call erroff
+      call seteru (32hdgamit  result lt half precision, 32, 1, 1)
+c
+ 50   t = -a*alx + dlog(dabs(h))
+      if (t.lt.bot) call erroff
+      dgamit = dsign (dexp(t), h)
+      return
+c
+ 60   t = t - a*alx
+      if (t.lt.bot) call erroff
+      dgamit = -sga * sgngam * dexp(t)
+      return
+c
+      end
diff --git a/fvn_fnlib/dgamma.f b/fvn_fnlib/dgamma.f
new file mode 100644
index 0000000..fd34783
--- /dev/null
+++ b/fvn_fnlib/dgamma.f
@@ -0,0 +1,135 @@
+      double precision function dgamma (x)
+c jan 1984 edition.  w. fullerton, c3, los alamos scientific lab.
+c jan 1994 wpp@ips.id.ethz.ch, ehg@research.att.com   declare xsml
+      double precision x, gamcs(42), dxrel, pi, sinpiy, sq2pil, xmax,
+     1  xmin, y, d9lgmc, dcsevl, d1mach, dexp, dint, dlog,
+     2  dsin, dsqrt, xsml
+      external d1mach, d9lgmc, dcsevl
+     1  initds
+c
+c series for gam        on the interval  0.          to  1.00000e+00
+c                                        with weighted error   5.79e-32
+c                                         log weighted error  31.24
+c                               significant figures required  30.00
+c                                    decimal places required  32.05
+c
+      data gam cs(  1) / +.8571195590 9893314219 2006239994 2 d-2      /
+      data gam cs(  2) / +.4415381324 8410067571 9131577165 2 d-2      /
+      data gam cs(  3) / +.5685043681 5993633786 3266458878 9 d-1      /
+      data gam cs(  4) / -.4219835396 4185605010 1250018662 4 d-2      /
+      data gam cs(  5) / +.1326808181 2124602205 8400679635 2 d-2      /
+      data gam cs(  6) / -.1893024529 7988804325 2394702388 6 d-3      /
+      data gam cs(  7) / +.3606925327 4412452565 7808221722 5 d-4      /
+      data gam cs(  8) / -.6056761904 4608642184 8554829036 5 d-5      /
+      data gam cs(  9) / +.1055829546 3022833447 3182350909 3 d-5      /
+      data gam cs( 10) / -.1811967365 5423840482 9185589116 6 d-6      /
+      data gam cs( 11) / +.3117724964 7153222777 9025459316 9 d-7      /
+      data gam cs( 12) / -.5354219639 0196871408 7408102434 7 d-8      /
+      data gam cs( 13) / +.9193275519 8595889468 8778682594 0 d-9      /
+      data gam cs( 14) / -.1577941280 2883397617 6742327395 3 d-9      /
+      data gam cs( 15) / +.2707980622 9349545432 6654043308 9 d-10     /
+      data gam cs( 16) / -.4646818653 8257301440 8166105893 3 d-11     /
+      data gam cs( 17) / +.7973350192 0074196564 6076717535 9 d-12     /
+      data gam cs( 18) / -.1368078209 8309160257 9949917230 9 d-12     /
+      data gam cs( 19) / +.2347319486 5638006572 3347177168 8 d-13     /
+      data gam cs( 20) / -.4027432614 9490669327 6657053469 9 d-14     /
+      data gam cs( 21) / +.6910051747 3721009121 3833697525 7 d-15     /
+      data gam cs( 22) / -.1185584500 2219929070 5238712619 2 d-15     /
+      data gam cs( 23) / +.2034148542 4963739552 0102605193 2 d-16     /
+      data gam cs( 24) / -.3490054341 7174058492 7401294910 8 d-17     /
+      data gam cs( 25) / +.5987993856 4853055671 3505106602 6 d-18     /
+      data gam cs( 26) / -.1027378057 8722280744 9006977843 1 d-18     /
+      data gam cs( 27) / +.1762702816 0605298249 4275966074 8 d-19     /
+      data gam cs( 28) / -.3024320653 7353062609 5877211204 2 d-20     /
+      data gam cs( 29) / +.5188914660 2183978397 1783355050 6 d-21     /
+      data gam cs( 30) / -.8902770842 4565766924 4925160106 6 d-22     /
+      data gam cs( 31) / +.1527474068 4933426022 7459689130 6 d-22     /
+      data gam cs( 32) / -.2620731256 1873629002 5732833279 9 d-23     /
+      data gam cs( 33) / +.4496464047 8305386703 3104657066 6 d-24     /
+      data gam cs( 34) / -.7714712731 3368779117 0390152533 3 d-25     /
+      data gam cs( 35) / +.1323635453 1260440364 8657271466 6 d-25     /
+      data gam cs( 36) / -.2270999412 9429288167 0231381333 3 d-26     /
+      data gam cs( 37) / +.3896418998 0039914493 2081663999 9 d-27     /
+      data gam cs( 38) / -.6685198115 1259533277 9212799999 9 d-28     /
+      data gam cs( 39) / +.1146998663 1400243843 4761386666 6 d-28     /
+      data gam cs( 40) / -.1967938586 3451346772 9510399999 9 d-29     /
+      data gam cs( 41) / +.3376448816 5853380903 3489066666 6 d-30     /
+      data gam cs( 42) / -.5793070335 7821357846 2549333333 3 d-31     /
+c
+      data pi / 3.1415926535 8979323846 2643383279 50 d0 /
+c sq2pil is 0.5*alog(2*pi) = alog(sqrt(2*pi))
+      data sq2pil / 0.9189385332 0467274178 0329736405 62 d0 /
+      data ngam, xmin, xmax, xsml, dxrel / 0, 4*0.d0 /
+c
+      if (ngam.ne.0) go to 10
+      ngam = initds (gamcs, 42, 0.1*sngl(d1mach(3)) )
+c
+      call d9gaml (xmin, xmax)
+      xsml = dexp (dmax1 (dlog(d1mach(1)), -dlog(d1mach(2)))+0.01d0)
+      dxrel = dsqrt (d1mach(4))
+c
+ 10   y = dabs(x)
+      if (y.gt.10.d0) go to 50
+c
+c compute gamma(x) for -xbnd .le. x .le. xbnd.  reduce interval and find
+c gamma(1+y) for 0.0 .le. y .lt. 1.0 first of all.
+c
+      n = x
+      if (x.lt.0.d0) n = n - 1
+      y = x - dble(float(n))
+      n = n - 1
+      dgamma = 0.9375d0 + dcsevl (2.d0*y-1.d0, gamcs, ngam)
+      if (n.eq.0) return
+c
+      if (n.gt.0) go to 30
+c
+c compute gamma(x) for x .lt. 1.0
+c
+      n = -n
+      if (x.eq.0.d0) call seteru (14hdgamma  x is 0, 14, 4, 2)
+      if (x.lt.0.0d0 .and. x+dble(float(n-2)).eq.0.d0) call seteru (
+     1  31hdgamma  x is a negative integer, 31, 4, 2)
+      if (x.lt.(-0.5d0) .and. dabs((x-dint(x-0.5d0))/x).lt.dxrel) call
+     1  seteru (68hdgamma  answer lt half precision because x too near n
+     2egative integer, 68, 1, 1)
+      if (y.lt.xsml) call seteru (
+     1  54hdgamma  x is so close to 0.0 that the result overflows,
+     2  54, 5, 2)
+c
+      do 20 i=1,n
+        dgamma = dgamma/(x+dble(float(i-1)) )
+ 20   continue
+      return
+c
+c gamma(x) for x .ge. 2.0 and x .le. 10.0
+c
+ 30   do 40 i=1,n
+        dgamma = (y+dble(float(i))) * dgamma
+ 40   continue
+      return
+c
+c gamma(x) for dabs(x) .gt. 10.0.  recall y = dabs(x).
+c
+ 50   if (x.gt.xmax) call seteru (32hdgamma  x so big gamma overflows,
+     1  32, 3, 2)
+c
+      dgamma = 0.d0
+      if (x.lt.xmin) call seteru (35hdgamma  x so small gamma underflows
+     1  , 35, 2, 0)
+      if (x.lt.xmin) return
+c
+      dgamma = dexp ((y-0.5d0)*dlog(y) - y + sq2pil + d9lgmc(y) )
+      if (x.gt.0.d0) return
+c
+      if (dabs((x-dint(x-0.5d0))/x).lt.dxrel) call seteru (
+     1  61hdgamma  answer lt half precision, x too near negative integer
+     2  , 61, 1, 1)
+c
+      sinpiy = dsin (pi*y)
+      if (sinpiy.eq.0.d0) call seteru (
+     1  31hdgamma  x is a negative integer, 31, 4, 2)
+c
+      dgamma = -pi/(y*sinpiy*dgamma)
+c
+      return
+      end
diff --git a/fvn_fnlib/dgamr.f b/fvn_fnlib/dgamr.f
new file mode 100644
index 0000000..47e2112
--- /dev/null
+++ b/fvn_fnlib/dgamr.f
@@ -0,0 +1,24 @@
+      double precision function dgamr (x)
+c july 1977 edition.  w. fullerton, c3, los alamos scientific lab.
+c this routine, not dgamma(x), should be the fundamental one.
+c
+      double precision x, alngx, sgngx, dgamma, dint, dexp
+      external  dgamma
+c
+      dgamr = 0.0d0
+      if (x.le.0.0d0 .and. dint(x).eq.x) return
+c
+      call entsrc (irold, 1)
+      if (dabs(x).gt.10.0d0) go to 10
+      dgamr = 1.0d0/dgamma(x)
+      call erroff
+      call entsrc (ir, irold)
+      return
+c
+ 10   call dlgams (x, alngx, sgngx)
+      call erroff
+      call entsrc (ir, irold)
+      dgamr = sgngx * dexp(-alngx)
+      return
+c
+      end
diff --git a/fvn_fnlib/dlbeta.f b/fvn_fnlib/dlbeta.f
new file mode 100644
index 0000000..d11cc5a
--- /dev/null
+++ b/fvn_fnlib/dlbeta.f
@@ -0,0 +1,36 @@
+      double precision function dlbeta (a, b)
+c july 1977 edition.   w. fullerton, c3, los alamos scientific lab.
+      double precision a, b, p, q, corr, sq2pil, d9lgmc, dgamma, dlngam,
+     1  dlnrel, dlog
+      external d9lgmc, dgamma, dlngam, dlnrel
+      data sq2pil / 0.9189385332 0467274178 0329736405 62 d0 /
+c
+      p = dmin1 (a, b)
+      q = dmax1 (a, b)
+c
+      if (p.le.0.d0) call seteru (
+     1  38hdlbeta  both arguments must be gt zero, 38, 1, 2)
+c
+      if (p.ge.10.d0) go to 30
+      if (q.ge.10.d0) go to 20
+c
+c p and q are small.
+c
+      dlbeta = dlog (dgamma(p) * (dgamma(q)/dgamma(p+q)) )
+      return
+c
+c p is small, but q is big.
+c
+ 20   corr = d9lgmc(q) - d9lgmc(p+q)
+      dlbeta = dlngam(p) + corr + p - p*dlog(p+q)
+     1  + (q-0.5d0)*dlnrel(-p/(p+q))
+      return
+c
+c p and q are big.
+c
+ 30   corr = d9lgmc(p) + d9lgmc(q) - d9lgmc(p+q)
+      dlbeta = -0.5d0*dlog(q) + sq2pil + corr + (p-0.5d0)*dlog(p/(p+q))
+     1  + q*dlnrel(-p/(p+q))
+      return
+c
+      end
diff --git a/fvn_fnlib/dlgams.f b/fvn_fnlib/dlgams.f
new file mode 100644
index 0000000..328c0e7
--- /dev/null
+++ b/fvn_fnlib/dlgams.f
@@ -0,0 +1,18 @@
+      subroutine dlgams (x, dlgam, sgngam)
+c july 1977 edition.  w. fullerton, c3, los alamos scientific lab.
+c
+c evaluate log abs (gamma(x)) and return the sign of gamma(x) in sgngam.
+c sgngam is either +1.0 or -1.0.
+c
+      double precision x, dlgam, sgngam, dint, dlngam
+      external  dlngam
+c
+      dlgam = dlngam(x)
+      sgngam = 1.0d0
+      if (x.gt.0.d0) return
+c
+      int = dmod (-dint(x), 2.0d0) + 0.1d0
+      if (int.eq.0) sgngam = -1.0d0
+c
+      return
+      end
diff --git a/fvn_fnlib/dli.f b/fvn_fnlib/dli.f
new file mode 100644
index 0000000..e8a75fb
--- /dev/null
+++ b/fvn_fnlib/dli.f
@@ -0,0 +1,19 @@
+      double precision function dli (x)
+c sept 1983 edition.  w. fullerton, c3, los alamos scientific lab.
+      double precision x, sqeps, dei, d1mach, dlog, dsqrt
+      external d1mach, dei
+      data sqeps / 0.0d0 /
+c
+      if (sqeps.eq.0.0d0) sqeps = dsqrt(d1mach(3))
+c
+      if (x.le.0.d0) call seteru (
+     1  41hdli     log integral undefined for x le 0, 41, 2, 2)
+      if (x.eq.1.d0) call seteru (
+     1  40hdli     log integral undefined for x = 1, 40, 3, 2)
+      if (dabs(1.d0-x).lt.sqeps) call seteru (57hdli     answer lt half
+     1precision because x too close to 1, 57, 1, 1)
+c
+      dli = dei (dlog(x))
+c
+      return
+      end
diff --git a/fvn_fnlib/dlngam.f b/fvn_fnlib/dlngam.f
new file mode 100644
index 0000000..0b59162
--- /dev/null
+++ b/fvn_fnlib/dlngam.f
@@ -0,0 +1,45 @@
+      double precision function dlngam (x)
+c august 1980 edition.   w. fullerton, c3, los alamos scientific lab.
+      double precision x, dxrel, pi, sinpiy, sqpi2l, sq2pil,
+     1  y, xmax, dint, dgamma, d9lgmc, d1mach, dlog, dsin, dsqrt
+      external d1mach, d9lgmc, dgamma
+c
+      data sq2pil / 0.9189385332 0467274178 0329736405 62 d0 /
+c sq2pil = alog (sqrt(2*pi)),  sqpi2l = alog(sqrt(pi/2))
+      data sqpi2l / +.2257913526 4472743236 3097614947 441 d+0    /
+      data pi / 3.1415926535 8979323846 2643383279 50 d0 /
+c
+      data xmax, dxrel / 2*0.d0 /
+c
+      if (xmax.ne.0.d0) go to 10
+      xmax = d1mach(2)/dlog(d1mach(2))
+      dxrel = dsqrt (d1mach(4))
+c
+ 10   y = dabs (x)
+      if (y.gt.10.d0) go to 20
+c
+c dlog (dabs (dgamma(x)) ) for dabs(x) .le. 10.0
+c
+      dlngam = dlog (dabs (dgamma(x)) )
+      return
+c
+c dlog ( dabs (dgamma(x)) ) for dabs(x) .gt. 10.0
+c
+ 20   if (y.gt.xmax) call seteru (
+     1  39hdlngam  dabs(x) so big dlngam overflows, 39, 2, 2)
+c
+      if (x.gt.0.d0) dlngam = sq2pil + (x-0.5d0)*dlog(x) - x + d9lgmc(y)
+      if (x.gt.0.d0) return
+c
+      sinpiy = dabs (dsin(pi*y))
+      if (sinpiy.eq.0.d0) call seteru (
+     1  31hdlngam  x is a negative integer, 31, 3, 2)
+c
+      dlngam = sqpi2l + (x-0.5d0)*dlog(y) - x - dlog(sinpiy) - d9lgmc(y)
+c
+      if (dabs((x-dint(x-0.5d0))*dlngam/x).lt.dxrel) call seteru (
+     1  68hdlngam  answer lt half precision because x too near negative
+     2integer, 68, 1, 1)
+      return
+c
+      end
diff --git a/fvn_fnlib/dlnrel.f b/fvn_fnlib/dlnrel.f
new file mode 100644
index 0000000..edf026c
--- /dev/null
+++ b/fvn_fnlib/dlnrel.f
@@ -0,0 +1,74 @@
+      double precision function dlnrel (x)
+c june 1977 edition.   w. fullerton, c3, los alamos scientific lab.
+      double precision alnrcs(43), x, xmin,  dcsevl, d1mach,
+     1  dlog, dsqrt
+      external d1mach, dcsevl, initds
+c
+c series for alnr       on the interval -3.75000e-01 to  3.75000e-01
+c                                        with weighted error   6.35e-32
+c                                         log weighted error  31.20
+c                               significant figures required  30.93
+c                                    decimal places required  32.01
+c
+      data alnrcs(  1) / +.1037869356 2743769800 6862677190 98 d+1     /
+      data alnrcs(  2) / -.1336430150 4908918098 7660415531 33 d+0     /
+      data alnrcs(  3) / +.1940824913 5520563357 9261993747 50 d-1     /
+      data alnrcs(  4) / -.3010755112 7535777690 3765377765 92 d-2     /
+      data alnrcs(  5) / +.4869461479 7154850090 4563665091 37 d-3     /
+      data alnrcs(  6) / -.8105488189 3175356066 8099430086 22 d-4     /
+      data alnrcs(  7) / +.1377884779 9559524782 9382514960 59 d-4     /
+      data alnrcs(  8) / -.2380221089 4358970251 3699929149 35 d-5     /
+      data alnrcs(  9) / +.4164041621 3865183476 3918599019 89 d-6     /
+      data alnrcs( 10) / -.7359582837 8075994984 2668370319 98 d-7     /
+      data alnrcs( 11) / +.1311761187 6241674949 1522943450 11 d-7     /
+      data alnrcs( 12) / -.2354670931 7742425136 6960923301 75 d-8     /
+      data alnrcs( 13) / +.4252277327 6034997775 6380529625 67 d-9     /
+      data alnrcs( 14) / -.7719089413 4840796826 1081074933 00 d-10    /
+      data alnrcs( 15) / +.1407574648 1359069909 2153564721 91 d-10    /
+      data alnrcs( 16) / -.2576907205 8024680627 5370786275 84 d-11    /
+      data alnrcs( 17) / +.4734240666 6294421849 1543950059 38 d-12    /
+      data alnrcs( 18) / -.8724901267 4742641745 3012632926 75 d-13    /
+      data alnrcs( 19) / +.1612461490 2740551465 7398331191 15 d-13    /
+      data alnrcs( 20) / -.2987565201 5665773006 7107924168 15 d-14    /
+      data alnrcs( 21) / +.5548070120 9082887983 0413216972 79 d-15    /
+      data alnrcs( 22) / -.1032461915 8271569595 1413339619 32 d-15    /
+      data alnrcs( 23) / +.1925023920 3049851177 8785032448 68 d-16    /
+      data alnrcs( 24) / -.3595507346 5265150011 1897078442 66 d-17    /
+      data alnrcs( 25) / +.6726454253 7876857892 1945742267 73 d-18    /
+      data alnrcs( 26) / -.1260262416 8735219252 0824256375 46 d-18    /
+      data alnrcs( 27) / +.2364488440 8606210044 9161589555 19 d-19    /
+      data alnrcs( 28) / -.4441937705 0807936898 8783891797 33 d-20    /
+      data alnrcs( 29) / +.8354659446 4034259016 2412939946 66 d-21    /
+      data alnrcs( 30) / -.1573155941 6479562574 8992535210 66 d-21    /
+      data alnrcs( 31) / +.2965312874 0247422686 1543697066 66 d-22    /
+      data alnrcs( 32) / -.5594958348 1815947292 1560132266 66 d-23    /
+      data alnrcs( 33) / +.1056635426 8835681048 1872841386 66 d-23    /
+      data alnrcs( 34) / -.1997248368 0670204548 3149994666 66 d-24    /
+      data alnrcs( 35) / +.3778297781 8839361421 0498559999 99 d-25    /
+      data alnrcs( 36) / -.7153158688 9081740345 0381653333 33 d-26    /
+      data alnrcs( 37) / +.1355248846 3674213646 5020245333 33 d-26    /
+      data alnrcs( 38) / -.2569467304 8487567430 0798293333 33 d-27    /
+      data alnrcs( 39) / +.4874775606 6216949076 4595199999 99 d-28    /
+      data alnrcs( 40) / -.9254211253 0849715321 1323733333 33 d-29    /
+      data alnrcs( 41) / +.1757859784 1760239233 2697600000 00 d-29    /
+      data alnrcs( 42) / -.3341002667 7731010351 3770666666 66 d-30    /
+      data alnrcs( 43) / +.6353393618 0236187354 1802666666 66 d-31    /
+c
+      data nlnrel, xmin / 0, 0.d0 /
+c
+      if (nlnrel.ne.0) go to 10
+      nlnrel = initds (alnrcs, 43, 0.1*sngl(d1mach(3)))
+      xmin = -1.0d0 + dsqrt(d1mach(4))
+c
+ 10   if (x.le.(-1.d0)) call seteru (18hdlnrel  x is le -1, 18, 2, 2)
+      if (x.lt.xmin) call seteru (
+     1  54hdlnrel  answer lt half precision because x too near -1, 54,
+     2  1, 1)
+c
+      if (dabs(x).le.0.375d0) dlnrel = x*(1.d0 -
+     1  x*dcsevl (x/.375d0, alnrcs, nlnrel))
+c
+      if (dabs(x).gt.0.375d0) dlnrel = dlog (1.0d0+x)
+c
+      return
+      end
diff --git a/fvn_fnlib/dpoch.f b/fvn_fnlib/dpoch.f
new file mode 100644
index 0000000..d5fd8ee
--- /dev/null
+++ b/fvn_fnlib/dpoch.f
@@ -0,0 +1,116 @@
+      double precision function dpoch (a, x)
+c august 1980 edition.  w. fullerton, c3, los alamos scientific lab.
+c error handling when poch (a, x) is less than half precision is
+c probably incorrect.  grossly wrong arguments are not handled right.
+c
+c evaluate a generalization of pochhammer-s symbol
+c (a)-sub-x = gamma(a+x)/gamma(a).  for x a non-negative integer,
+c poch(a,x) is just pochhammer-s symbol.
+c
+      double precision a, x, absa, absax, alnga, alngax, ax, b, pi,
+     1  eps, sqeps, cospix, sinpix, cospia, sinpia, errpch, den, err,
+     2  sgnga, sgngax, dfac, dlnrel, d9lgmc, dgamma, dgamr, dint,
+     3  d1mach, dcos, dexp, dlog, dsin, dsqrt
+      external d1mach, d9lgmc, dfac, dgamma, dgamr,
+     1  dlnrel
+      data pi / 3.1415926535 8979323846 2643383279 503 d0 /
+      data eps, sqeps / 2*0.0d0 /
+c
+      if (eps.ne.0.0d0) go to 10
+      eps = d1mach(4)
+      sqeps = dsqrt(eps)
+c
+ 10   ax = a + x
+      if (ax.gt.0.0d0) go to 30
+      if (dint(ax).ne.ax) go to 30
+c
+      if (a.gt.0.0d0 .or. dint(a).ne.a) call seteru (
+     1  48hdpoch   a+x is non-positive integer but a is not, 48, 2, 2)
+c
+c we know here that both a+x and a are non-positive integers.
+c
+      dpoch = 1.0d0
+      if (x.eq.0.d0) return
+c
+      n = x
+      if (dmin1(a+x,a).lt.(-20.0d0)) go to 20
+c
+      ia = a
+      dpoch = (-1.0d0)**n * dfac(-ia)/dfac(-ia-n)
+      return
+c
+ 20   dpoch = (-1.0d0)**n * dexp ((a-0.5d0)*dlnrel(x/(a-1.0d0))
+     1  + x*dlog(-a+1.0d0-x) - x + d9lgmc(-a+1.0d0) - d9lgmc(-a-x+1.d0))
+      return
+c
+c a+x is not zero or a negative integer.
+c
+ 30   dpoch = 0.0d0
+      if (a.le.0.0d0 .and. dint(a).eq.a) return
+c
+      n = dabs(x)
+      if (dble(float(n)).ne.x .or. n.gt.20) go to 50
+c
+c x is a small non-positive integer, presummably a common case.
+c
+      dpoch = 1.0d0
+      if (n.eq.0) return
+      do 40 i=1,n
+        dpoch = dpoch * (a+dble(float(i-1)))
+ 40   continue
+      return
+c
+ 50   absax = dabs(a+x)
+      absa = dabs(a)
+      if (dmax1(absax,absa).gt.20.0d0) go to 60
+c
+      if (dabs(x).gt.absax/sqeps) call seteru (67hdpoch   answer lt half
+     1 precision, a+x cannot be computed accurately, 67, 1, 1)
+      dpoch = dgamma(a+x) * dgamr(a)
+c error handling above is probably bad when a almost = -n and when x is
+c small.  maybe use reflection formula below in modified form?
+      return
+c
+ 60   if (dabs(x).gt.0.5d0*absa) go to 70
+c
+c abs(x) is small and both abs(a+x) and abs(a) are large.  thus,
+c a+x and a must have the same sign.  for negative a, we use
+c gamma(a+x)/gamma(a) = gamma(-a+1)/gamma(-a-x+1) *
+c sin(pi*a)/sin(pi*(a+x))
+c
+      b = a
+      if (b.lt.0.0d0) b = -a - x + 1.0d0
+      dpoch = dexp ((b-0.5d0)*dlnrel(x/b) + x*dlog(b+x) - x
+     1  + d9lgmc(b+x) - d9lgmc(b) )
+c
+      if (a.ge.0.0d0 .or. dpoch.eq.0.0d0) return
+      call entsrc (irold, 1)
+      cospix = dcos (pi*x)
+      call erroff
+      sinpix = dsin (pi*x)
+      call erroff
+      cospia = dcos (pi*a)
+      call erroff
+      sinpia = dsin (pi*a)
+      call erroff
+      call entsrc (irold2, irold)
+c
+      errpch = dabs(x)*(1.0d0+dlog(b))
+      den = cospix + cospia*sinpix/sinpia
+      err = (dabs(x)*(dabs(sinpix) + dabs(cospia*cospix/sinpia))
+     1  + dabs(a*sinpix)/sinpia**2)*pi
+      err = errpch + err/dabs(den)
+      if (err.gt.1.0d0/eps) call seteru (73hdpoch   answer has no precis
+     1ion, a or a+x too close to a negative integer, 73, 3, 2)
+      if (err.gt.1.0d0/sqeps) call seteru (74hdpoch   answer lt half pre
+     2cision, a or a+x too close to a negative integer, 74, 2, 1)
+c
+      dpoch = dpoch/den
+      return
+c
+ 70   call dlgams (a+x, alngax, sgngax)
+      call dlgams (a, alnga, sgnga)
+      dpoch = sgngax * sgnga * dexp(alngax-alnga)
+c
+      return
+      end
diff --git a/fvn_fnlib/dpoch1.f b/fvn_fnlib/dpoch1.f
new file mode 100644
index 0000000..2fdca83
--- /dev/null
+++ b/fvn_fnlib/dpoch1.f
@@ -0,0 +1,144 @@
+      double precision function dpoch1 (a, x)
+c august 1980 edition.  w. fullerton, c3, los alamos scientific lab.
+c
+c evaluate a generalization of pochhammer-s symbol for special
+c situations that require especially accurate values when x is small in
+c        poch1(a,x) = (poch(a,x)-1)/x
+c                   = (gamma(a+x)/gamma(a) - 1.0)/x .
+c this specification is particularly suited for stably computing
+c expressions such as
+c        (gamma(a+x)/gamma(a) - gamma(b+x)/gamma(b))/x
+c             = poch1(a,x) - poch1(b,x)
+c note that poch1(a,0.0) = psi(a)
+c
+c when abs(x) is so small that substantial cancellation will occur if
+c the straightforward formula is used, we  use an expansion due
+c to fields and discussed by y. l. luke, the special functions and their
+c approximations, vol. 1, academic press, 1969, page 34.
+c
+c the ratio poch(a,x) = gamma(a+x)/gamma(a) is written by luke as
+c        (a+(x-1)/2)**x * polynomial in (a+(x-1)/2)**(-2) .
+c in order to maintain significance in poch1, we write for positive+ a
+c        (a+(x-1)/2)**x = exp(x*alog(a+(x-1)/2)) = exp(q)
+c                       = 1.0 + q*exprel(q) .
+c likewise the polynomial is written
+c        poly = 1.0 + x*poly1(a,x) .
+c thus,
+c        poch1(a,x) = (poch(a,x) - 1) / x
+c                   = exprel(q)*(q/x + q*poly1(a,x)) + poly1(a,x)
+c
+      double precision a, x, absa, absx, alneps, alnvar, b, bern(20),
+     1  binv, bp, gbern(21), gbk, pi, poly1, q, rho, sinpxx, sinpx2,
+     2  sqtbig, term, trig, var, var2, d1mach, dpsi, dexprl, dcot,
+     3  dpoch, dlog, dsin, dsqrt
+      external d1mach, dcot, dexprl, dpoch, dpsi
+c
+c bern(i) is the 2*i bernoulli number divided by factorial(2*i).
+      data bern  (  1) / +.8333333333 3333333333 3333333333 333 d-1    /
+      data bern  (  2) / -.1388888888 8888888888 8888888888 888 d-2    /
+      data bern  (  3) / +.3306878306 8783068783 0687830687 830 d-4    /
+      data bern  (  4) / -.8267195767 1957671957 6719576719 576 d-6    /
+      data bern  (  5) / +.2087675698 7868098979 2100903212 014 d-7    /
+      data bern  (  6) / -.5284190138 6874931848 4768220217 955 d-9    /
+      data bern  (  7) / +.1338253653 0684678832 8269809751 291 d-10   /
+      data bern  (  8) / -.3389680296 3225828668 3019539124 944 d-12   /
+      data bern  (  9) / +.8586062056 2778445641 3590545042 562 d-14   /
+      data bern  ( 10) / -.2174868698 5580618730 4151642386 591 d-15   /
+      data bern  ( 11) / +.5509002828 3602295152 0265260890 225 d-17   /
+      data bern  ( 12) / -.1395446468 5812523340 7076862640 635 d-18   /
+      data bern  ( 13) / +.3534707039 6294674716 9322997780 379 d-20   /
+      data bern  ( 14) / -.8953517427 0375468504 0261131811 274 d-22   /
+      data bern  ( 15) / +.2267952452 3376830603 1095073886 816 d-23   /
+      data bern  ( 16) / -.5744724395 2026452383 4847971943 400 d-24   /
+      data bern  ( 17) / +.1455172475 6148649018 6626486727 132 d-26   /
+      data bern  ( 18) / -.3685994940 6653101781 8178247990 866 d-28   /
+      data bern  ( 19) / +.9336734257 0950446720 3255515278 562 d-30   /
+      data bern  ( 20) / -.2365022415 7006299345 5963519636 983 d-31   /
+c
+      data pi / 3.1415926535 8979323846 2643383279 503 d0 /
+      data sqtbig, alneps / 2*0.0d0 /
+c
+      if (sqtbig.ne.0.0d0) go to 10
+      sqtbig = 1.0d0/dsqrt(24.0d0*d1mach(1))
+      alneps = dlog(d1mach(3))
+c
+ 10   if (x.eq.0.0d0) dpoch1 = dpsi(a)
+      if (x.eq.0.0d0) return
+c
+      absx = dabs(x)
+      absa = dabs(a)
+      if (absx.gt.0.1d0*absa) go to 70
+      if (absx*dlog(dmax1(absa,2.0d0)).gt.0.1d0) go to 70
+c
+      bp = a
+      if (a.lt.(-0.5d0)) bp = 1.0d0 - a - x
+      incr = 0
+      if (bp.lt.10.0d0) incr = 11.0d0 - bp
+      b = bp + dble(float(incr))
+c
+      var = b + 0.5d0*(x-1.0d0)
+      alnvar = dlog(var)
+      q = x*alnvar
+c
+      poly1 = 0.0d0
+      if (var.ge.sqtbig) go to 40
+      var2 = (1.0d0/var)**2
+c
+      rho = 0.5d0*(x+1.0d0)
+      gbern(1) = 1.0d0
+      gbern(2) = -rho/12.0d0
+      term = var2
+      poly1 = gbern(2)*term
+c
+      nterms = -0.5d0*alneps/alnvar + 1.0d0
+      if (nterms.gt.20) call seteru (
+     1  49hdpoch1  nterms is too big, maybe d1mach(3) is bad, 49, 1, 2)
+      if (nterms.lt.2) go to 40
+c
+      do 30 k=2,nterms
+        gbk = 0.0d0
+        do 20 j=1,k
+          ndx = k - j + 1
+          gbk = gbk + bern(ndx)*gbern(j)
+ 20     continue
+        gbern(k+1) = -rho*gbk/dble(float(k))
+c
+        term = term * (dble(float(2*k-2))-x)*(dble(float(2*k-1))-x)*var2
+        poly1 = poly1 + gbern(k+1)*term
+ 30   continue
+c
+ 40   poly1 = (x-1.0d0)*poly1
+      dpoch1 = dexprl(q)*(alnvar+q*poly1) + poly1
+c
+      if (incr.eq.0) go to 60
+c
+c we have dpoch1(b,x), but bp is small, so we use backwards recursion
+c to obtain dpoch1(bp,x).
+c
+      do 50 ii=1,incr
+        i = incr - ii
+        binv = 1.0d0/(bp+dble(float(i)))
+        dpoch1 = (dpoch1 - binv) / (1.0d0 + x*binv)
+ 50   continue
+c
+ 60   if (bp.eq.a) return
+c
+c we have dpoch1(bp,x), but a is lt -0.5.  we therefore use a reflection
+c formula to obtain dpoch1(a,x).
+c
+      sinpxx = dsin(pi*x)/x
+      sinpx2 = dsin(0.5d0*pi*x)
+      trig = sinpxx*dcot(pi*b) - 2.0d0*sinpx2*(sinpx2/x)
+c
+      dpoch1 = trig + (1.0d0 + x*trig)*dpoch1
+      return
+c
+ 70   call entsrc (irold, 1)
+      dpoch1 = dpoch (a, x)
+      if (dpoch1.eq.0.0d0) call erroff
+      call entsrc (irold2, irold)
+c
+      dpoch1 = (dpoch1 - 1.0d0) / x
+      return
+c
+      end
diff --git a/fvn_fnlib/dpsi.f b/fvn_fnlib/dpsi.f
new file mode 100644
index 0000000..620cd0d
--- /dev/null
+++ b/fvn_fnlib/dpsi.f
@@ -0,0 +1,135 @@
+      double precision function dpsi (x)
+c june 1977 edition.   w. fullerton, c3, los alamos scientific lab.
+      double precision x, psics(42), apsics(16), aux, dxrel, pi, xbig,
+     1  y,  dint, dcot, dcsevl, d1mach, dlog, dsqrt
+      external d1mach, dcot, dcsevl, initds
+c
+c series for psi        on the interval  0.          to  1.00000e+00
+c                                        with weighted error   5.79e-32
+c                                         log weighted error  31.24
+c                               significant figures required  30.93
+c                                    decimal places required  32.05
+c
+      data psi cs(  1) / -.3805708083 5217921520 4376776670 39 d-1     /
+      data psi cs(  2) / +.4914153930 2938712748 2046996542 77 d+0     /
+      data psi cs(  3) / -.5681574782 1244730242 8920647340 81 d-1     /
+      data psi cs(  4) / +.8357821225 9143131362 7756507478 62 d-2     /
+      data psi cs(  5) / -.1333232857 9943425998 0792741723 93 d-2     /
+      data psi cs(  6) / +.2203132870 6930824892 8723979795 21 d-3     /
+      data psi cs(  7) / -.3704023817 8456883592 8890869492 29 d-4     /
+      data psi cs(  8) / +.6283793654 8549898933 6514187176 90 d-5     /
+      data psi cs(  9) / -.1071263908 5061849855 2835417470 74 d-5     /
+      data psi cs( 10) / +.1831283946 5484165805 7315898103 78 d-6     /
+      data psi cs( 11) / -.3135350936 1808509869 0057797968 85 d-7     /
+      data psi cs( 12) / +.5372808776 2007766260 4719191436 15 d-8     /
+      data psi cs( 13) / -.9211681415 9784275717 8806326247 30 d-9     /
+      data psi cs( 14) / +.1579812652 1481822782 2528840328 23 d-9     /
+      data psi cs( 15) / -.2709864613 2380443065 4405894097 07 d-10    /
+      data psi cs( 16) / +.4648722859 9096834872 9473195295 49 d-11    /
+      data psi cs( 17) / -.7975272563 8303689726 5047977727 37 d-12    /
+      data psi cs( 18) / +.1368272385 7476992249 2510538928 38 d-12    /
+      data psi cs( 19) / -.2347515606 0658972717 3206779807 19 d-13    /
+      data psi cs( 20) / +.4027630715 5603541107 9079250062 81 d-14    /
+      data psi cs( 21) / -.6910251853 1179037846 5474229747 71 d-15    /
+      data psi cs( 22) / +.1185604713 8863349552 9291395257 68 d-15    /
+      data psi cs( 23) / -.2034168961 6261559308 1542104842 23 d-16    /
+      data psi cs( 24) / +.3490074968 6463043850 3742329323 51 d-17    /
+      data psi cs( 25) / -.5988014693 4976711003 0110813934 93 d-18    /
+      data psi cs( 26) / +.1027380162 8080588258 3980057122 13 d-18    /
+      data psi cs( 27) / -.1762704942 4561071368 3592601053 86 d-19    /
+      data psi cs( 28) / +.3024322801 8156920457 4540354901 33 d-20    /
+      data psi cs( 29) / -.5188916830 2092313774 2860888746 66 d-21    /
+      data psi cs( 30) / +.8902773034 5845713905 0058874879 99 d-22    /
+      data psi cs( 31) / -.1527474289 9426728392 8949719040 00 d-22    /
+      data psi cs( 32) / +.2620731479 8962083136 3583180799 99 d-23    /
+      data psi cs( 33) / -.4496464273 8220696772 5983880533 33 d-24    /
+      data psi cs( 34) / +.7714712959 6345107028 9193642666 66 d-25    /
+      data psi cs( 35) / -.1323635476 1887702968 1026389333 33 d-25    /
+      data psi cs( 36) / +.2270999436 2408300091 2773119999 99 d-26    /
+      data psi cs( 37) / -.3896419021 5374115954 4913919999 99 d-27    /
+      data psi cs( 38) / +.6685198138 8855302310 6798933333 33 d-28    /
+      data psi cs( 39) / -.1146998665 4920864872 5299199999 99 d-28    /
+      data psi cs( 40) / +.1967938588 6541405920 5154133333 33 d-29    /
+      data psi cs( 41) / -.3376448818 9750979801 9072000000 00 d-30    /
+      data psi cs( 42) / +.5793070319 3214159246 6773333333 33 d-31    /
+c
+c series for apsi       on the interval  0.          to  1.00000e-02
+c                                        with weighted error   7.75e-33
+c                                         log weighted error  32.11
+c                               significant figures required  28.88
+c                                    decimal places required  32.71
+c
+      data apsics(  1) / -.8327107910 6929076017 4456932269 d-3        /
+      data apsics(  2) / -.4162518421 9273935282 1627121990 d-3        /
+      data apsics(  3) / +.1034315609 7874129117 4463193961 d-6        /
+      data apsics(  4) / -.1214681841 3590415298 7299556365 d-9        /
+      data apsics(  5) / +.3113694319 9835615552 1240278178 d-12       /
+      data apsics(  6) / -.1364613371 9317704177 6516100945 d-14       /
+      data apsics(  7) / +.9020517513 1541656513 0837974000 d-17       /
+      data apsics(  8) / -.8315429974 2159146482 9933635466 d-19       /
+      data apsics(  9) / +.1012242570 7390725418 8479482666 d-20       /
+      data apsics( 10) / -.1562702494 3562250762 0478933333 d-22       /
+      data apsics( 11) / +.2965427168 0890389613 3226666666 d-24       /
+      data apsics( 12) / -.6746868867 6570216374 1866666666 d-26       /
+      data apsics( 13) / +.1803453116 9718990421 3333333333 d-27       /
+      data apsics( 14) / -.5569016182 4598360746 6666666666 d-29       /
+      data apsics( 15) / +.1958679226 0773625173 3333333333 d-30       /
+      data apsics( 16) / -.7751958925 2333568000 0000000000 d-32       /
+c
+      data pi / 3.1415926535 8979323846 2643383279 50 d0 /
+      data ntpsi, ntapsi, xbig, dxrel / 2*0, 2*0.d0 /
+c
+      if (ntpsi.ne.0) go to 10
+      ntpsi = initds (psics, 42, 0.1*sngl(d1mach(3)) )
+      ntapsi = initds (apsics, 16, 0.1*sngl(d1mach(3)) )
+c
+      xbig = 1.0d0/dsqrt(d1mach(3))
+      dxrel = dsqrt (d1mach(4))
+c
+ 10   y = dabs(x)
+c
+      if (y.gt.10.0d0) go to 50
+c
+c dpsi(x) for dabs(x) .le. 2
+c
+      n = x
+      if (x.lt.0.d0) n = n - 1
+      y = x - dble(float(n))
+      n = n - 1
+      dpsi = dcsevl (2.d0*y-1.d0, psics, ntpsi)
+      if (n.eq.0) return
+c
+      if (n.gt.0) go to 30
+c
+      n = -n
+      if (x.eq.0.d0) call seteru (14hdpsi    x is 0, 14, 2, 2)
+      if (x.lt.0.d0 .and. x+dble(float(n-2)).eq.0.d0) call seteru (
+     1  31hdpsi    x is a negative integer, 31, 3, 2)
+      if (x.lt.(-0.5d0) .and. dabs((x-dint(x-0.5d0))/x).lt.dxrel) call
+     1  seteru (68hdpsi    answer lt half precision because x too near n
+     2egative integer, 68, 1, 1)
+c
+      do 20 i=1,n
+        dpsi = dpsi - 1.d0/(x+dble(float(i-1)))
+ 20   continue
+      return
+c
+c dpsi(x) for x .ge. 2.0 and x .le. 10.0
+c
+ 30   do 40 i=1,n
+        dpsi = dpsi + 1.0d0/(y+dble(float(i)))
+ 40   continue
+      return
+c
+c dpsi(x) for dabs(x) .gt. 10.0
+c
+ 50   aux = 0.d0
+      if (y.lt.xbig) aux = dcsevl (2.d0*(10.d0/y)**2-1.d0, apsics,
+     1  ntapsi)
+c
+      if (x.lt.0.d0) dpsi = dlog(dabs(x)) - 0.5d0/x + aux
+     1  - pi*dcot(pi*x)
+      if (x.gt.0.d0) dpsi = dlog(x) - 0.5d0/x + aux
+      return
+c
+      end
diff --git a/fvn_fnlib/dshi.f b/fvn_fnlib/dshi.f
new file mode 100644
index 0000000..f205bf8
--- /dev/null
+++ b/fvn_fnlib/dshi.f
@@ -0,0 +1,41 @@
+      double precision function dshi (x)
+c december 1980 edition.  w. fullerton, bell labs.
+c
+c evaluate the hyperbolic sine integral
+c            shi = integral from 0 to x of  sinh(t)/t dt.
+c
+      double precision x, shics(10), xsml, absx,
+     1  d1mach, dcsevl, de1, dei, dsqrt
+c
+c series for shi  on the interval  0.00000e+00 to  1.40625e-01
+c                                        with weighted error   7.11e-32
+c                                         log weighted error  31.15
+c                               significant figures required  28.89
+c                                    decimal places required  31.65
+c
+      data shi cs(  1) /     0.0078372685 6889009506 9520098431 7332d0/
+      data shi cs(  2) /     0.0039227664 9342345639 7269757442 7225d0/
+      data shi cs(  3) /     0.0000041346 7878876172 6674674790 8275d0/
+      data shi cs(  4) /     0.0000000024 7074803728 8274213514 5302d0/
+      data shi cs(  5) /     0.0000000000 0093792955 9076363045 7157d0/
+      data shi cs(  6) /     0.0000000000 0000024518 1701952086 7353d0/
+      data shi cs(  7) /     0.0000000000 0000000004 6741615525 7592d0/
+      data shi cs(  8) /     0.0000000000 0000000000 0006780307 2389d0/
+      data shi cs(  9) /     0.0000000000 0000000000 0000000773 1289d0/
+      data shi cs( 10) /     0.0000000000 0000000000 0000000000 0711d0/
+c
+      data nshi, xsml /0, 0.0d0/
+c
+      if (nshi.ne.0) go to 10
+      nshi = initds (shics, 10, 0.1*sngl(d1mach(3)))
+      xsml = dsqrt (d1mach(3))
+c
+ 10   absx = dabs(x)
+c
+      dshi = x
+      if (absx.gt.xsml .and. absx.le.0.375d0) dshi = x*(1.d0 +
+     1  dcsevl (128.d0*x*x/9.d0-1.d0, shics, nshi))
+      if (absx.gt.0.375d0) dshi = 0.5d0*(dei(x) + de1(x))
+c
+      return
+      end
diff --git a/fvn_fnlib/dsi.f b/fvn_fnlib/dsi.f
new file mode 100644
index 0000000..5abf45a
--- /dev/null
+++ b/fvn_fnlib/dsi.f
@@ -0,0 +1,54 @@
+      double precision function dsi (x)
+c december 1980 edition, w. fullerton, bell labs.
+      double precision x, sics(18), pi2, xsml, absx, f, g, cosx,
+     1  dcsevl, d1mach, dcos, dsin, dsqrt
+      external d1mach,  dcsevl, initds
+c
+c series for si   on the interval  0.00000e+00 to  1.60000e+01
+c                                        with weighted error   8.58e-32
+c                                         log weighted error  31.07
+c                               significant figures required  30.53
+c                                    decimal places required  31.69
+c
+      data si  cs(  1) / -0.1315646598 1848419289 0427517300 0457d0/
+      data si  cs(  2) / -0.2776578526 9736018920 4828766015 7299d0/
+      data si  cs(  3) /  0.0354414054 8666591797 4913546471 0086d0/
+      data si  cs(  4) / -0.0025631631 4479339776 5875278836 1530d0/
+      data si  cs(  5) /  0.0001162365 3904970092 8126492148 2985d0/
+      data si  cs(  6) / -0.0000035904 3272416060 4267000434 7148d0/
+      data si  cs(  7) /  0.0000000802 3421237057 1016230865 2976d0/
+      data si  cs(  8) / -0.0000000013 5629976925 4025064993 1846d0/
+      data si  cs(  9) /  0.0000000000 1794407215 9973677556 7759d0/
+      data si  cs( 10) / -0.0000000000 0019083873 4308714549 0737d0/
+      data si  cs( 11) /  0.0000000000 0000166699 8958682433 0853d0/
+      data si  cs( 12) / -0.0000000000 0000001217 3098836850 3042d0/
+      data si  cs( 13) /  0.0000000000 0000000007 5418186699 3865d0/
+      data si  cs( 14) / -0.0000000000 0000000000 0401417884 2446d0/
+      data si  cs( 15) /  0.0000000000 0000000000 0001855369 0716d0/
+      data si  cs( 16) / -0.0000000000 0000000000 0000007516 6966d0/
+      data si  cs( 17) /  0.0000000000 0000000000 0000000026 9113d0/
+      data si  cs( 18) / -0.0000000000 0000000000 0000000000 0858d0/
+c
+      data pi2 / 1.5707963267 9489661923 1321691639 75 d0 /
+      data nsi, xsml /0, 0.0d0/
+c
+      if (nsi.ne.0) go to 10
+      nsi = initds (sics, 18, 0.1*sngl(d1mach(3)))
+      xsml = dsqrt(d1mach(3))
+c
+ 10   absx = dabs(x)
+      if (absx.gt.4.0d0) go to 20
+      dsi = x
+      if (absx.lt.xsml) return
+c
+      dsi = x*(0.75d0 + dcsevl ((x*x-8.0d0)*.125d0, sics, nsi))
+      return
+c
+ 20   call d9sifg (absx, f, g)
+      cosx = dcos (absx)
+      call erroff
+      dsi = pi2 - f*cosx - g*dsin(x)
+      if (x.lt.0.0d0) dsi = -dsi
+c
+      return
+      end
diff --git a/fvn_fnlib/dsindg.f b/fvn_fnlib/dsindg.f
new file mode 100644
index 0000000..b5a6522
--- /dev/null
+++ b/fvn_fnlib/dsindg.f
@@ -0,0 +1,16 @@
+      double precision function dsindg (x)
+c june 1977 edition.   w. fullerton, c3, los alamos scientific lab.
+      double precision x, raddeg, dsin
+c      external dsin
+      data raddeg / 0.0174532925 1994329576 9236907684 886 d0 /
+c
+      dsindg = dsin (raddeg*x)
+c
+      if (dmod(x,90.d0).ne.0.d0) return
+      n = dabs(x)/90.d0 + 0.5d0
+      n = mod (n, 2)
+      if (n.eq.0) dsindg = 0.d0
+      if (n.eq.1) dsindg = dsign (1.0d0, dsindg)
+c
+      return
+      end
diff --git a/fvn_fnlib/dspenc.f b/fvn_fnlib/dspenc.f
new file mode 100644
index 0000000..5f56efb
--- /dev/null
+++ b/fvn_fnlib/dspenc.f
@@ -0,0 +1,120 @@
+      double precision function dspenc (x)
+c feb 1978 edition.   w. fullerton, c3, los alamos scientific lab.
+c
+c evaluate a form of spence-s function defined by
+c        integral from 0 to x of  -alog(abs(1-y))/y  dy.
+c for abs(x).le.1, the uniformly convergent expansion
+c        spenc = sum k=1,infinity  x**k / k**2     is valid.
+c
+c spence-s function can be used to evaluate much more general integral
+c forms.  for example,
+c        integral from 0 to z of  alog(a*x+b)/(c*x+d)  dx  =
+c             alog(abs(b-a*d/c))*alog(abs(a*(c*z+d)/(a*d-b*c)))/c
+c             - dspenc (a*(c*z+d)/(a*d-b*c)) / c.
+c
+c ref -- k. mitchell, philosophical magazine, 40, p.351 (1949).
+c        stegun and abramowitz, ams 55, p.1004.
+c
+      double precision x, spencs(38), aln, pi26, xbig, d1mach, dcsevl,
+     1  dlog
+      external d1mach, dcsevl,  initds
+c
+c series for spen       on the interval  0.          to  5.00000e-01
+c                                        with weighted error   4.74e-32
+c                                         log weighted error  31.32
+c                               significant figures required  30.37
+c                                    decimal places required  32.11
+c
+      data spencs(  1) / +.1527365598 8924058729 4668491002 8 d+0      /
+      data spencs(  2) / +.8169658058 0510144035 0183818527 1 d-1      /
+      data spencs(  3) / +.5814157140 7787308729 7735064118 2 d-2      /
+      data spencs(  4) / +.5371619814 5415275422 4788900531 9 d-3      /
+      data spencs(  5) / +.5724704675 1858262332 1060305478 2 d-4      /
+      data spencs(  6) / +.6674546121 6493363436 0783543858 9 d-5      /
+      data spencs(  7) / +.8276467339 7156769815 8439168901 1 d-6      /
+      data spencs(  8) / +.1073315673 0306789512 7000587335 4 d-6      /
+      data spencs(  9) / +.1440077294 3032394023 3459033151 3 d-7      /
+      data spencs( 10) / +.1984442029 9659063678 9887713960 8 d-8      /
+      data spencs( 11) / +.2794005822 1636387202 0199482161 5 d-9      /
+      data spencs( 12) / +.4003991310 8833118230 7258044590 8 d-10     /
+      data spencs( 13) / +.5823462892 0446384713 6813583575 7 d-11     /
+      data spencs( 14) / +.8576708692 6386892780 9791477122 4 d-12     /
+      data spencs( 15) / +.1276862586 2801930459 8948303343 3 d-12     /
+      data spencs( 16) / +.1918826209 0425170811 6238041606 2 d-13     /
+      data spencs( 17) / +.2907319206 9771381777 9579971967 3 d-14     /
+      data spencs( 18) / +.4437112685 2767804625 5747364174 5 d-15     /
+      data spencs( 19) / +.6815727787 4145995278 6735913560 7 d-16     /
+      data spencs( 20) / +.1053017386 0155744295 4701941664 4 d-16     /
+      data spencs( 21) / +.1635389806 7523771000 5182173457 0 d-17     /
+      data spencs( 22) / +.2551852874 9404639323 1090164258 1 d-18     /
+      data spencs( 23) / +.3999020621 9993601127 7047037951 9 d-19     /
+      data spencs( 24) / +.6291501645 2168118765 1414917119 9 d-20     /
+      data spencs( 25) / +.9933827435 6756776438 0388775253 3 d-21     /
+      data spencs( 26) / +.1573679570 7499648167 2176380586 6 d-21     /
+      data spencs( 27) / +.2500595316 8494761293 6927095466 6 d-22     /
+      data spencs( 28) / +.3984740918 3838111392 1066325333 3 d-23     /
+      data spencs( 29) / +.6366473210 0828438926 9132629333 3 d-24     /
+      data spencs( 30) / +.1019674287 2396783670 7706197333 3 d-24     /
+      data spencs( 31) / +.1636881058 9135188411 1107413333 3 d-25     /
+      data spencs( 32) / +.2633310439 4176501173 4527999999 9 d-26     /
+      data spencs( 33) / +.4244811560 1239768172 2436266666 6 d-27     /
+      data spencs( 34) / +.6855411983 6800529168 2474666666 6 d-28     /
+      data spencs( 35) / +.1109122433 4380564340 1898666666 6 d-28     /
+      data spencs( 36) / +.1797431304 9998914573 6533333333 3 d-29     /
+      data spencs( 37) / +.2917505845 9760951732 9066666666 6 d-30     /
+      data spencs( 38) / +.4742646808 9286710613 3333333333 3 d-31     /
+c
+c pi26 = pi**2/6.0
+      data pi26 / +1.644934066 8482264364 7241516664 6025189219 d0 /
+      data nspenc, xbig / 0, 0.0d0 /
+c
+      if (nspenc.ne.0) go to 10
+      nspenc = initds (spencs, 38, 0.1*sngl(d1mach(3)))
+      xbig = 1.0d0/d1mach(3)
+c
+ 10   if (x.gt.2.0d0) go to 60
+      if (x.gt.1.0d0) go to 50
+      if (x.gt.0.5d0) go to 40
+      if (x.ge.0.0d0) go to 30
+      if (x.gt.(-1.d0)) go to 20
+c
+c here if x .le. -1.0
+c
+      aln = dlog(1.0d0-x)
+      dspenc = -pi26 - 0.5d0*aln*(2.0d0*dlog(-x)-aln)
+      if (x.gt.(-xbig)) dspenc = dspenc
+     1  + (1.d0 + dcsevl (4.d0/(1.d0-x)-1.d0, spencs, nspenc))/(1.d0-x)
+      return
+c
+c -1.0 .lt. x .lt. 0.0
+c
+ 20   dspenc = -0.5d0*dlog(1.0d0-x)**2
+     1  - x*(1.d0+dcsevl(4.d0*x/(x-1.d0)-1.d0, spencs, nspenc))/(x-1.d0)
+      return
+c
+c 0.0 .le. x .le. 0.5
+c
+ 30   dspenc = x*(1.d0 + dcsevl (4.d0*x-1.d0, spencs, nspenc))
+      return
+c
+c 0.5 .lt. x .le. 1.0
+c
+ 40   dspenc = pi26
+      if (x.ne.1.d0) dspenc = pi26 - dlog(x)*dlog(1.0d0-x)
+     1  - (1.d0-x)*(1.d0+dcsevl(4.d0*(1.d0-x)-1.d0, spencs, nspenc))
+      return
+c
+c 1.0 .lt. x .le. 2.0
+c
+ 50   dspenc = pi26 - 0.5d0*dlog(x)*dlog((x-1.d0)**2/x)
+     1  + (x-1.d0)*(1.d0+dcsevl(4.d0*(x-1.d0)/x-1.d0, spencs, nspenc))/x
+      return
+c
+c x .gt. 2.0
+c
+ 60   dspenc = 2.0d0*pi26 - 0.5d0*dlog(x)**2
+      if (x.lt.xbig) dspenc = dspenc
+     1  - (1.d0 + dcsevl (4.d0/x-1.d0, spencs, nspenc))/x
+      return
+c
+      end
diff --git a/fvn_fnlib/e1.f b/fvn_fnlib/e1.f
new file mode 100644
index 0000000..33f0624
--- /dev/null
+++ b/fvn_fnlib/e1.f
@@ -0,0 +1,263 @@
+      function e1 (x)
+c july 1977 edition.  w. fullerton, c3, los alamos scientific lab.
+      dimension ae11cs(39), ae12cs(25), e11cs(19), e12cs(16),
+     1  ae13cs(25), ae14cs(26)
+      external  csevl, inits, r1mach
+c
+c series for ae11       on the interval -1.00000d-01 to  0.
+c                                        with weighted error   1.76e-17
+c                                         log weighted error  16.75
+c                               significant figures required  15.70
+c                                    decimal places required  17.55
+c
+      data ae11cs( 1) /    .1215032397 1606579e0 /
+      data ae11cs( 2) /   -.0650887785 13550150e0 /
+      data ae11cs( 3) /    .0048976513 57459670e0 /
+      data ae11cs( 4) /   -.0006492378 43027216e0 /
+      data ae11cs( 5) /    .0000938404 34587471e0 /
+      data ae11cs( 6) /    .0000004202 36380882e0 /
+      data ae11cs( 7) /   -.0000081133 74735904e0 /
+      data ae11cs( 8) /    .0000028042 47688663e0 /
+      data ae11cs( 9) /    .0000000564 87164441e0 /
+      data ae11cs(10) /   -.0000003448 09174450e0 /
+      data ae11cs(11) /    .0000000582 09273578e0 /
+      data ae11cs(12) /    .0000000387 11426349e0 /
+      data ae11cs(13) /   -.0000000124 53235014e0 /
+      data ae11cs(14) /   -.0000000051 18504888e0 /
+      data ae11cs(15) /    .0000000021 48771527e0 /
+      data ae11cs(16) /    .0000000008 68459898e0 /
+      data ae11cs(17) /   -.0000000003 43650105e0 /
+      data ae11cs(18) /   -.0000000001 79796603e0 /
+      data ae11cs(19) /    .0000000000 47442060e0 /
+      data ae11cs(20) /    .0000000000 40423282e0 /
+      data ae11cs(21) /   -.0000000000 03543928e0 /
+      data ae11cs(22) /   -.0000000000 08853444e0 /
+      data ae11cs(23) /   -.0000000000 00960151e0 /
+      data ae11cs(24) /    .0000000000 01692921e0 /
+      data ae11cs(25) /    .0000000000 00607990e0 /
+      data ae11cs(26) /   -.0000000000 00224338e0 /
+      data ae11cs(27) /   -.0000000000 00200327e0 /
+      data ae11cs(28) /   -.0000000000 00006246e0 /
+      data ae11cs(29) /    .0000000000 00045571e0 /
+      data ae11cs(30) /    .0000000000 00016383e0 /
+      data ae11cs(31) /   -.0000000000 00005561e0 /
+      data ae11cs(32) /   -.0000000000 00006074e0 /
+      data ae11cs(33) /   -.0000000000 00000862e0 /
+      data ae11cs(34) /    .0000000000 00001223e0 /
+      data ae11cs(35) /    .0000000000 00000716e0 /
+      data ae11cs(36) /   -.0000000000 00000024e0 /
+      data ae11cs(37) /   -.0000000000 00000201e0 /
+      data ae11cs(38) /   -.0000000000 00000082e0 /
+      data ae11cs(39) /    .0000000000 00000017e0 /
+c
+c series for ae12       on the interval -2.50000d-01 to -1.00000d-01
+c                                        with weighted error   5.83e-17
+c                                         log weighted error  16.23
+c                               significant figures required  15.76
+c                                    decimal places required  16.93
+c
+      data ae12cs( 1) /    .5824174951 3472674e0 /
+      data ae12cs( 2) /   -.1583488509 0578275e0 /
+      data ae12cs( 3) /   -.0067642755 90323141e0 /
+      data ae12cs( 4) /    .0051258439 50185725e0 /
+      data ae12cs( 5) /    .0004352324 92169391e0 /
+      data ae12cs( 6) /   -.0001436133 66305483e0 /
+      data ae12cs( 7) /   -.0000418013 20556301e0 /
+      data ae12cs( 8) /   -.0000027133 95758640e0 /
+      data ae12cs( 9) /    .0000011513 81913647e0 /
+      data ae12cs(10) /    .0000004206 50022012e0 /
+      data ae12cs(11) /    .0000000665 81901391e0 /
+      data ae12cs(12) /    .0000000006 62143777e0 /
+      data ae12cs(13) /   -.0000000028 44104870e0 /
+      data ae12cs(14) /   -.0000000009 40724197e0 /
+      data ae12cs(15) /   -.0000000001 77476602e0 /
+      data ae12cs(16) /   -.0000000000 15830222e0 /
+      data ae12cs(17) /    .0000000000 02905732e0 /
+      data ae12cs(18) /    .0000000000 01769356e0 /
+      data ae12cs(19) /    .0000000000 00492735e0 /
+      data ae12cs(20) /    .0000000000 00093709e0 /
+      data ae12cs(21) /    .0000000000 00010707e0 /
+      data ae12cs(22) /   -.0000000000 00000537e0 /
+      data ae12cs(23) /   -.0000000000 00000716e0 /
+      data ae12cs(24) /   -.0000000000 00000244e0 /
+      data ae12cs(25) /   -.0000000000 00000058e0 /
+c
+c series for e11        on the interval -4.00000d+00 to -1.00000d+00
+c                                        with weighted error   1.08e-18
+c                                         log weighted error  17.97
+c                               significant figures required  19.02
+c                                    decimal places required  18.61
+c
+      data e11 cs( 1) / -16.1134616555 71494026e0 /
+      data e11 cs( 2) /   7.7940727787 426802769e0 /
+      data e11 cs( 3) /  -1.9554058188 631419507e0 /
+      data e11 cs( 4) /    .3733729386 6277945612e0 /
+      data e11 cs( 5) /   -.0569250319 1092901938e0 /
+      data e11 cs( 6) /    .0072110777 6966009185e0 /
+      data e11 cs( 7) /   -.0007810490 1449841593e0 /
+      data e11 cs( 8) /    .0000738809 3356262168e0 /
+      data e11 cs( 9) /   -.0000062028 6187580820e0 /
+      data e11 cs(10) /    .0000004681 6002303176e0 /
+      data e11 cs(11) /   -.0000000320 9288853329e0 /
+      data e11 cs(12) /    .0000000020 1519974874e0 /
+      data e11 cs(13) /   -.0000000001 1673686816e0 /
+      data e11 cs(14) /    .0000000000 0627627066e0 /
+      data e11 cs(15) /   -.0000000000 0031481541e0 /
+      data e11 cs(16) /    .0000000000 0001479904e0 /
+      data e11 cs(17) /   -.0000000000 0000065457e0 /
+      data e11 cs(18) /    .0000000000 0000002733e0 /
+      data e11 cs(19) /   -.0000000000 0000000108e0 /
+c
+c series for e12        on the interval -1.00000d+00 to  1.00000d+00
+c                                        with weighted error   3.15e-18
+c                                         log weighted error  17.50
+c                        approx significant figures required  15.8
+c                                    decimal places required  18.10
+c
+      data e12 cs( 1) /  -0.0373902147 92202795e0 /
+      data e12 cs( 2) /   0.0427239860 62209577e0 /
+      data e12 cs( 3) /   -.1303182079 849700544e0 /
+      data e12 cs( 4) /    .0144191240 2469889073e0 /
+      data e12 cs( 5) /   -.0013461707 8051068022e0 /
+      data e12 cs( 6) /    .0001073102 9253063780e0 /
+      data e12 cs( 7) /   -.0000074299 9951611943e0 /
+      data e12 cs( 8) /    .0000004537 7325690753e0 /
+      data e12 cs( 9) /   -.0000000247 6417211390e0 /
+      data e12 cs(10) /    .0000000012 2076581374e0 /
+      data e12 cs(11) /   -.0000000000 5485141480e0 /
+      data e12 cs(12) /    .0000000000 0226362142e0 /
+      data e12 cs(13) /   -.0000000000 0008635897e0 /
+      data e12 cs(14) /    .0000000000 0000306291e0 /
+      data e12 cs(15) /   -.0000000000 0000010148e0 /
+      data e12 cs(16) /    .0000000000 0000000315e0 /
+c
+c series for ae13       on the interval  2.50000d-01 to  1.00000d+00
+c                                        with weighted error   2.34e-17
+c                                         log weighted error  16.63
+c                               significant figures required  16.14
+c                                    decimal places required  17.33
+c
+      data ae13cs( 1) /   -.6057732466 4060346e0 /
+      data ae13cs( 2) /   -.1125352434 8366090e0 /
+      data ae13cs( 3) /    .0134322662 47902779e0 /
+      data ae13cs( 4) /   -.0019268451 87381145e0 /
+      data ae13cs( 5) /    .0003091183 37720603e0 /
+      data ae13cs( 6) /   -.0000535641 32129618e0 /
+      data ae13cs( 7) /    .0000098278 12880247e0 /
+      data ae13cs( 8) /   -.0000018853 68984916e0 /
+      data ae13cs( 9) /    .0000003749 43193568e0 /
+      data ae13cs(10) /   -.0000000768 23455870e0 /
+      data ae13cs(11) /    .0000000161 43270567e0 /
+      data ae13cs(12) /   -.0000000034 66802211e0 /
+      data ae13cs(13) /    .0000000007 58754209e0 /
+      data ae13cs(14) /   -.0000000001 68864333e0 /
+      data ae13cs(15) /    .0000000000 38145706e0 /
+      data ae13cs(16) /   -.0000000000 08733026e0 /
+      data ae13cs(17) /    .0000000000 02023672e0 /
+      data ae13cs(18) /   -.0000000000 00474132e0 /
+      data ae13cs(19) /    .0000000000 00112211e0 /
+      data ae13cs(20) /   -.0000000000 00026804e0 /
+      data ae13cs(21) /    .0000000000 00006457e0 /
+      data ae13cs(22) /   -.0000000000 00001568e0 /
+      data ae13cs(23) /    .0000000000 00000383e0 /
+      data ae13cs(24) /   -.0000000000 00000094e0 /
+      data ae13cs(25) /    .0000000000 00000023e0 /
+c
+c series for ae14       on the interval  0.          to  2.50000d-01
+c                                        with weighted error   5.41e-17
+c                                         log weighted error  16.27
+c                               significant figures required  15.38
+c                                    decimal places required  16.97
+c
+      data ae14cs( 1) /   -.1892918000 753017e0 /
+      data ae14cs( 2) /   -.0864811785 5259871e0 /
+      data ae14cs( 3) /    .0072241015 4374659e0 /
+      data ae14cs( 4) /   -.0008097559 4575573e0 /
+      data ae14cs( 5) /    .0001099913 4432661e0 /
+      data ae14cs( 6) /   -.0000171733 2998937e0 /
+      data ae14cs( 7) /    .0000029856 2751447e0 /
+      data ae14cs( 8) /   -.0000005659 6491457e0 /
+      data ae14cs( 9) /    .0000001152 6808397e0 /
+      data ae14cs(10) /   -.0000000249 5030440e0 /
+      data ae14cs(11) /    .0000000056 9232420e0 /
+      data ae14cs(12) /   -.0000000013 5995766e0 /
+      data ae14cs(13) /    .0000000003 3846628e0 /
+      data ae14cs(14) /   -.0000000000 8737853e0 /
+      data ae14cs(15) /    .0000000000 2331588e0 /
+      data ae14cs(16) /   -.0000000000 0641148e0 /
+      data ae14cs(17) /    .0000000000 0181224e0 /
+      data ae14cs(18) /   -.0000000000 0052538e0 /
+      data ae14cs(19) /    .0000000000 0015592e0 /
+      data ae14cs(20) /   -.0000000000 0004729e0 /
+      data ae14cs(21) /    .0000000000 0001463e0 /
+      data ae14cs(22) /   -.0000000000 0000461e0 /
+      data ae14cs(23) /    .0000000000 0000148e0 /
+      data ae14cs(24) /   -.0000000000 0000048e0 /
+      data ae14cs(25) /    .0000000000 0000016e0 /
+      data ae14cs(26) /   -.0000000000 0000005e0 /
+c
+      data ntae11, ntae12, nte11, nte12, ntae13, ntae14 /6*0/
+      data xmax /0./
+c
+      if (ntae11.ne.0) go to 10
+      eta = 0.1*r1mach(3)
+      ntae11 = inits (ae11cs, 39, eta)
+      ntae12 = inits (ae12cs, 25, eta)
+      nte11 = inits (e11cs, 19, eta)
+      nte12 = inits (e12cs, 16, eta)
+      ntae13 = inits (ae13cs, 25, eta)
+      ntae14 = inits (ae14cs, 26, eta)
+c
+      xmax = -alog (r1mach(1))
+      xmax = xmax - alog(xmax)
+c
+ 10   if (x.gt.(-10.)) go to 20
+c
+c e1(x) = -ei(-x) for x .le. -10.
+c
+      e1 = exp(-x)/x * (1.+csevl (20./x+1., ae11cs, ntae11))
+      return
+c
+ 20   if (x.gt.(-4.0)) go to 30
+c
+c e1(x) = -ei(-x) for -10. .lt. x .le. -4.
+c
+      e1 = exp(-x)/x * (1.+csevl ((40./x+7.)/3., ae12cs, ntae12))
+      return
+c
+ 30   if (x.gt.(-1.0)) go to 40
+c
+c e1(x) = -ei(-x) for -4. .lt. x .le. -1.
+c
+      e1 = -alog(abs(x)) + csevl ((2.*x+5.)/3., e11cs, nte11)
+      return
+c
+ 40   if (x.gt.1.) go to 50
+      if (x.eq.0.) call seteru (14he1      x is 0, 14, 2, 2)
+c
+c e1(x) = -ei(-x) for -1. .lt. x .le. 1.,  x .ne. 0.
+c
+      e1 = (-alog(abs(x)) - 0.6875 + x) + csevl (x, e12cs, nte12)
+      return
+c
+ 50   if (x.gt.4.) go to 60
+c
+c e1(x) = -ei(-x) for 1. .lt. x .le. 4.
+c
+      e1 = exp(-x)/x * (1.+csevl ((8./x-5.)/3., ae13cs, ntae13))
+      return
+c
+ 60   if (x.gt.xmax) go to 70
+c
+c e1(x) = -ei(-x) for 4. .lt. x .le. xmax
+c
+      e1 = exp(-x)/x * (1. + csevl (8./x-1., ae14cs, ntae14))
+      return
+c
+c e1(x) = -ei(-x) for x .gt. xmax
+c
+ 70   call seteru (30he1      x so big e1 underflows, 30, 1, 0)
+      e1 = 0.
+      return
+c
+      end
diff --git a/fvn_fnlib/e9rint.f b/fvn_fnlib/e9rint.f
new file mode 100644
index 0000000..1c5fa1a
--- /dev/null
+++ b/fvn_fnlib/e9rint.f
@@ -0,0 +1,66 @@
+      subroutine e9rint(messg,nw,nerr,save)
+c
+c  this routine stores the current error message or prints the old one,
+c  if any, depending on whether or not save = .true. .
+c
+      integer messg(nw)
+      logical save
+      external i1mach, i8save
+c
+c  messgp stores at least the first 72 characters of the previous
+c  message. its length is machine dependent and must be at least
+c
+c       1 + 71/(the number of characters stored per integer word).
+c
+      integer messgp(36),fmt(14),ccplus
+c
+c  start with no previous message.
+c
+      data messgp(1)/1h1/, nwp/0/, nerrp/0/
+c
+c  set up the format for printing the error message.
+c  the format is simply (a1,14x,72axx) where xx=i1mach(6) is the
+c  number of characters stored per integer word.
+c
+      data ccplus  / 1h+ /
+c
+      data fmt( 1) / 1h( /
+      data fmt( 2) / 1ha /
+      data fmt( 3) / 1h1 /
+      data fmt( 4) / 1h, /
+      data fmt( 5) / 1h1 /
+      data fmt( 6) / 1h4 /
+      data fmt( 7) / 1hx /
+      data fmt( 8) / 1h, /
+      data fmt( 9) / 1h7 /
+      data fmt(10) / 1h2 /
+      data fmt(11) / 1ha /
+      data fmt(12) / 1hx /
+      data fmt(13) / 1hx /
+      data fmt(14) / 1h) /
+c
+      if (.not.save) go to 20
+c
+c  save the message.
+c
+        nwp=nw
+        nerrp=nerr
+        do 10 i=1,nw
+ 10     messgp(i)=messg(i)
+c
+        go to 30
+c
+ 20   if (i8save(1,0,.false.).eq.0) go to 30
+c
+c  print the message.
+c
+        iwunit=i1mach(4)
+        write(iwunit,9000) nerrp
+ 9000   format(7h error ,i4,4h in )
+c
+        call s88fmt(2,i1mach(6),fmt(12))
+        write(iwunit,fmt) ccplus,(messgp(i),i=1,nwp)
+c
+ 30   return
+c
+      end
diff --git a/fvn_fnlib/ei.f b/fvn_fnlib/ei.f
new file mode 100644
index 0000000..2c4b4c5
--- /dev/null
+++ b/fvn_fnlib/ei.f
@@ -0,0 +1,9 @@
+      function ei (x)
+c april 1977 version.  w. fullerton, c3, los alamos scientific lab.
+c
+      external e1
+c
+      ei = -e1(-x)
+c
+      return
+      end
diff --git a/fvn_fnlib/entsrc.f b/fvn_fnlib/entsrc.f
new file mode 100644
index 0000000..fcbe38f
--- /dev/null
+++ b/fvn_fnlib/entsrc.f
@@ -0,0 +1,31 @@
+      subroutine entsrc(irold,irnew)
+c
+c  this routine returns irold = lrecov and sets lrecov = irnew.
+c
+c  if there is an active error state, the message is printed
+c  and execution stops.
+c
+c  irnew = 0 leaves lrecov unchanged, while
+c  irnew = 1 gives recovery and
+c  irnew = 2 turns recovery off.
+c
+c  error states -
+c
+c    1 - illegal value of irnew.
+c    2 - called while in an error state.
+c
+      external i8save
+c
+      if (irnew.lt.0 .or. irnew.gt.2)
+     1   call seterr(31hentsrc - illegal value of irnew,31,1,2)
+c
+      irold=i8save(2,irnew,irnew.ne.0)
+c
+c  if have an error state, stop execution.
+c
+      if (i8save(1,0,.false.) .ne. 0) call seterr
+     1   (39hentsrc - called while in an error state,39,2,2)
+c
+      return
+c
+      end
diff --git a/fvn_fnlib/eprint.f b/fvn_fnlib/eprint.f
new file mode 100644
index 0000000..cd2ceef
--- /dev/null
+++ b/fvn_fnlib/eprint.f
@@ -0,0 +1,10 @@
+      subroutine eprint
+c
+c  this subroutine prints the last error message, if any.
+c
+      integer messg(1)
+c
+      call e9rint(messg,1,1,.false.)
+      return
+c
+      end
diff --git a/fvn_fnlib/erf.f b/fvn_fnlib/erf.f
new file mode 100644
index 0000000..6f7ab1b
--- /dev/null
+++ b/fvn_fnlib/erf.f
@@ -0,0 +1,49 @@
+      function erf (x)
+c april 1977 version.  w. fullerton, c3, los alamos scientific lab.
+      dimension erfcs(13)
+      external  csevl, erfc, inits, r1mach
+c
+c series for erf        on the interval  0.          to  1.00000d+00
+c                                        with weighted error   7.10e-18
+c                                         log weighted error  17.15
+c                               significant figures required  16.31
+c                                    decimal places required  17.71
+c
+      data erf cs( 1) /   -.0490461212 34691808e0 /
+      data erf cs( 2) /   -.1422612051 0371364e0 /
+      data erf cs( 3) /    .0100355821 87599796e0 /
+      data erf cs( 4) /   -.0005768764 69976748e0 /
+      data erf cs( 5) /    .0000274199 31252196e0 /
+      data erf cs( 6) /   -.0000011043 17550734e0 /
+      data erf cs( 7) /    .0000000384 88755420e0 /
+      data erf cs( 8) /   -.0000000011 80858253e0 /
+      data erf cs( 9) /    .0000000000 32334215e0 /
+      data erf cs(10) /   -.0000000000 00799101e0 /
+      data erf cs(11) /    .0000000000 00017990e0 /
+      data erf cs(12) /   -.0000000000 00000371e0 /
+      data erf cs(13) /    .0000000000 00000007e0 /
+c
+      data sqrtpi /1.772453850 9055160e0/
+      data nterf, xbig, sqeps / 0, 0., 0./
+c
+      if (nterf.ne.0) go to 10
+      nterf = inits (erfcs, 13, 0.1*r1mach(3))
+      xbig = sqrt(-alog(sqrtpi*r1mach(3)))
+      sqeps = sqrt(2.0*r1mach(3))
+c
+ 10   y = abs(x)
+      if (y.gt.1.) go to 20
+c
+c erf(x) = 1. - erfc(x) for -1. .le. x .le. 1.
+c
+      if (y.le.sqeps) erf = 2.0*x/sqrtpi
+      if (y.gt.sqeps) erf = x*(1.0 + csevl(2.*x**2-1., erfcs, nterf))
+      return
+c
+c erf(x) = 1. - erfc(x) for  abs(x) .gt. 1.
+c
+ 20   if (y.le.xbig) erf = sign (1.0-erfc(y), x)
+      if (y.gt.xbig) erf = sign (1.0, x)
+c
+      return
+      end
diff --git a/fvn_fnlib/erfc.f b/fvn_fnlib/erfc.f
new file mode 100644
index 0000000..8f3dc65
--- /dev/null
+++ b/fvn_fnlib/erfc.f
@@ -0,0 +1,133 @@
+      function erfc (x)
+c july 1977 edition.  w. fullerton, c3, los alamos scientific lab.
+      dimension erfcs(13), erfccs(24), erc2cs(23)
+      external  csevl,  inits, r1mach
+c
+c series for erf        on the interval  0.          to  1.00000d+00
+c                                        with weighted error   7.10e-18
+c                                         log weighted error  17.15
+c                               significant figures required  16.31
+c                                    decimal places required  17.71
+c
+      data erf cs( 1) /   -.0490461212 34691808e0 /
+      data erf cs( 2) /   -.1422612051 0371364e0 /
+      data erf cs( 3) /    .0100355821 87599796e0 /
+      data erf cs( 4) /   -.0005768764 69976748e0 /
+      data erf cs( 5) /    .0000274199 31252196e0 /
+      data erf cs( 6) /   -.0000011043 17550734e0 /
+      data erf cs( 7) /    .0000000384 88755420e0 /
+      data erf cs( 8) /   -.0000000011 80858253e0 /
+      data erf cs( 9) /    .0000000000 32334215e0 /
+      data erf cs(10) /   -.0000000000 00799101e0 /
+      data erf cs(11) /    .0000000000 00017990e0 /
+      data erf cs(12) /   -.0000000000 00000371e0 /
+      data erf cs(13) /    .0000000000 00000007e0 /
+c
+c series for erc2       on the interval  2.50000d-01 to  1.00000d+00
+c                                        with weighted error   5.22e-17
+c                                         log weighted error  16.28
+c                        approx significant figures required  15.0
+c                                    decimal places required  16.96
+c
+      data erc2cs( 1) /   -.0696013466 02309501e0 /
+      data erc2cs( 2) /   -.0411013393 62620893e0 /
+      data erc2cs( 3) /    .0039144958 66689626e0 /
+      data erc2cs( 4) /   -.0004906395 65054897e0 /
+      data erc2cs( 5) /    .0000715747 90013770e0 /
+      data erc2cs( 6) /   -.0000115307 16341312e0 /
+      data erc2cs( 7) /    .0000019946 70590201e0 /
+      data erc2cs( 8) /   -.0000003642 66647159e0 /
+      data erc2cs( 9) /    .0000000694 43726100e0 /
+      data erc2cs(10) /   -.0000000137 12209021e0 /
+      data erc2cs(11) /    .0000000027 88389661e0 /
+      data erc2cs(12) /   -.0000000005 81416472e0 /
+      data erc2cs(13) /    .0000000001 23892049e0 /
+      data erc2cs(14) /   -.0000000000 26906391e0 /
+      data erc2cs(15) /    .0000000000 05942614e0 /
+      data erc2cs(16) /   -.0000000000 01332386e0 /
+      data erc2cs(17) /    .0000000000 00302804e0 /
+      data erc2cs(18) /   -.0000000000 00069666e0 /
+      data erc2cs(19) /    .0000000000 00016208e0 /
+      data erc2cs(20) /   -.0000000000 00003809e0 /
+      data erc2cs(21) /    .0000000000 00000904e0 /
+      data erc2cs(22) /   -.0000000000 00000216e0 /
+      data erc2cs(23) /    .0000000000 00000052e0 /
+c
+c series for erfc       on the interval  0.          to  2.50000d-01
+c                                        with weighted error   4.81e-17
+c                                         log weighted error  16.32
+c                        approx significant figures required  15.0
+c                                    decimal places required  17.01
+c
+      data erfccs( 1) /   0.0715179310 202925e0 /
+      data erfccs( 2) /   -.0265324343 37606719e0 /
+      data erfccs( 3) /    .0017111539 77920853e0 /
+      data erfccs( 4) /   -.0001637516 63458512e0 /
+      data erfccs( 5) /    .0000198712 93500549e0 /
+      data erfccs( 6) /   -.0000028437 12412769e0 /
+      data erfccs( 7) /    .0000004606 16130901e0 /
+      data erfccs( 8) /   -.0000000822 77530261e0 /
+      data erfccs( 9) /    .0000000159 21418724e0 /
+      data erfccs(10) /   -.0000000032 95071356e0 /
+      data erfccs(11) /    .0000000007 22343973e0 /
+      data erfccs(12) /   -.0000000001 66485584e0 /
+      data erfccs(13) /    .0000000000 40103931e0 /
+      data erfccs(14) /   -.0000000000 10048164e0 /
+      data erfccs(15) /    .0000000000 02608272e0 /
+      data erfccs(16) /   -.0000000000 00699105e0 /
+      data erfccs(17) /    .0000000000 00192946e0 /
+      data erfccs(18) /   -.0000000000 00054704e0 /
+      data erfccs(19) /    .0000000000 00015901e0 /
+      data erfccs(20) /   -.0000000000 00004729e0 /
+      data erfccs(21) /    .0000000000 00001432e0 /
+      data erfccs(22) /   -.0000000000 00000439e0 /
+      data erfccs(23) /    .0000000000 00000138e0 /
+      data erfccs(24) /   -.0000000000 00000048e0 /
+c
+      data sqrtpi /1.772453850 9055160e0/
+      data nterf, nterfc, nterc2, xsml, xmax, sqeps /3*0, 3*0./
+c
+      if (nterf.ne.0) go to 10
+      eta = 0.1*r1mach(3)
+      nterf = inits (erfcs, 13, eta)
+      nterfc = inits (erfccs, 24, eta)
+      nterc2 = inits (erc2cs, 23, eta)
+c
+      xsml = -sqrt (-alog(sqrtpi*r1mach(3)))
+      xmax = sqrt (-alog(sqrtpi*r1mach(1)))
+      xmax = xmax - 0.5*alog(xmax)/xmax - 0.01
+      sqeps = sqrt (2.0*r1mach(3))
+c
+ 10   if (x.gt.xsml) go to 20
+c
+c erfc(x) = 1.0 - erf(x) for x .lt. xsml
+c
+      erfc = 2.
+      return
+c
+ 20   if (x.gt.xmax) go to 40
+      y = abs(x)
+      if (y.gt.1.0) go to 30
+c
+c erfc(x) = 1.0 - erf(x) for -1. .le. x .le. 1.
+c
+      if (y.lt.sqeps) erfc = 1.0 - 2.0*x/sqrtpi
+      if (y.ge.sqeps) erfc = 1.0 -
+     1  x*(1.0 + csevl (2.*x*x-1., erfcs, nterf) )
+      return
+c
+c erfc(x) = 1.0 - erf(x) for 1. .lt. abs(x) .le. xmax
+c
+ 30   y = y*y
+      if (y.le.4.) erfc = exp(-y)/abs(x) * (0.5 + csevl ((8./y-5.)/3.,
+     1  erc2cs, nterc2) )
+      if (y.gt.4.) erfc = exp(-y)/abs(x) * (0.5 + csevl (8./y-1.,
+     1  erfccs, nterfc) )
+      if (x.lt.0.) erfc = 2.0 - erfc
+      return
+c
+ 40   call seteru (32herfc    x so big erfc underflows, 32, 1, 0)
+      erfc = 0.
+      return
+c
+      end
diff --git a/fvn_fnlib/erroff.f b/fvn_fnlib/erroff.f
new file mode 100644
index 0000000..8908525
--- /dev/null
+++ b/fvn_fnlib/erroff.f
@@ -0,0 +1,10 @@
+      subroutine erroff
+c
+c  turns off the error state off by setting lerror=0.
+c
+      external i8save
+c
+      i=i8save(1,0,.true.)
+      return
+c
+      end
diff --git a/fvn_fnlib/exprel.f b/fvn_fnlib/exprel.f
new file mode 100644
index 0000000..2bad886
--- /dev/null
+++ b/fvn_fnlib/exprel.f
@@ -0,0 +1,37 @@
+      function exprel (x)
+c august 1977 edition.  w. fullerton, c3, los alamos scientific lab.
+c
+c evaluate  exprel(x) = (exp(x) - 1.0) / x.   for small abs(x) the
+c taylor series is used.  if x is negative the reflection formula
+c         exprel(x) = exp(x) * exprel(abs(x))
+c may be used  this reflection formula will be of use when the
+c evaluation for small abs(x) is done by chebyshev series rather than
+c taylor series.
+c
+      external  r1mach
+      data nterms, xbnd / 0, 0.0 /
+c
+      if (nterms.ne.0) go to 10
+      alneps = alog(r1mach(3))
+      xn = 3.72 - 0.3*alneps
+      xln = alog((xn+1.0)/1.36)
+      nterms = xn - (xn*xln+alneps)/(xln+1.36) + 1.5
+      xbnd = r1mach(3)
+c
+ 10   absx = abs(x)
+      if (absx.le.0.5) go to 20
+      call entsrc (irold, 1)
+      exprel = (exp(x)-1.0)/x
+      call entsrc (ir, irold)
+      return
+c
+ 20   exprel = 1.0
+      if (absx.lt.xbnd) return
+c
+      exprel = 0.0
+      do 30 i=1,nterms
+        exprel = 1.0 + exprel*x/float(nterms+2-i)
+ 30   continue
+c
+      return
+      end
diff --git a/fvn_fnlib/fac.f b/fvn_fnlib/fac.f
new file mode 100644
index 0000000..354ba76
--- /dev/null
+++ b/fvn_fnlib/fac.f
@@ -0,0 +1,53 @@
+      function fac (n)
+c june 1977 edition.   w. fullerton, c3, los alamos scientific lab.
+      dimension facn(26)
+      external  r9lgmc
+c
+      data facn( 1) / 1.0e0 /
+      data facn( 2) / 1.0e0 /
+      data facn( 3) / 2.0e0 /
+      data facn( 4) / 6.0e0 /
+      data facn( 5) / 24.0e0 /
+      data facn( 6) / 120.0e0 /
+      data facn( 7) / 720.0e0 /
+      data facn( 8) / 5040.0e0 /
+      data facn( 9) / 40320.0e0 /
+      data facn(10) / 362880.0e0 /
+      data facn(11) / 3628800.0e0 /
+      data facn(12) / 39916800.0e0 /
+      data facn(13) / 479001600.0e0 /
+      data facn(14) / 6227020800.0e0 /
+      data facn(15) / 87178291200.0e0 /
+      data facn(16) / 1307674368000.0e0 /
+      data facn(17) / 20922789888000.0e0 /
+      data facn(18) / 355687428096000.0e0 /
+      data facn(19) / 6402373705728000.0e0 /
+      data facn(20) /  .12164510040883200e18 /
+      data facn(21) /  .24329020081766400e19 /
+      data facn(22) /  .51090942171709440e20 /
+      data facn(23) /  .11240007277776077e22 /
+      data facn(24) /  .25852016738884977e23 /
+      data facn(25) /  .62044840173323944e24 /
+      data facn(26) /  .15511210043330986e26 /
+c
+      data sq2pil / 0.9189385332 0467274e0/
+      data nmax / 0 /
+c
+      if (nmax.ne.0) go to 10
+      call r9gaml (xmin, xmax)
+      nmax = xmax - 1.
+c
+ 10   if (n.lt.0) call seteru (
+     1  47hfac     factorial of negative integer undefined, 47, 1, 2)
+c
+      if (n.le.25) fac = facn(n+1)
+      if (n.le.25) return
+c
+      if (n.gt.nmax) call seteru (
+     1  39hfac     n so big factorial(n) overflows, 39, 2, 2)
+c
+      x = n + 1
+      fac = exp ( (x-0.5)*alog(x) - x + sq2pil + r9lgmc(x) )
+c
+      return
+      end
diff --git a/fvn_fnlib/fdump.f b/fvn_fnlib/fdump.f
new file mode 100644
index 0000000..1f44a57
--- /dev/null
+++ b/fvn_fnlib/fdump.f
@@ -0,0 +1,31 @@
+*DECK FDUMP
+      SUBROUTINE FDUMP
+C***BEGIN PROLOGUE  FDUMP
+C***PURPOSE  Symbolic dump (should be locally written).
+C***LIBRARY   SLATEC (XERROR)
+C***CATEGORY  R3
+C***TYPE      ALL (FDUMP-A)
+C***KEYWORDS  ERROR, XERMSG
+C***AUTHOR  Jones, R. E., (SNLA)
+C***DESCRIPTION
+C
+C        ***Note*** Machine Dependent Routine
+C        FDUMP is intended to be replaced by a locally written
+C        version which produces a symbolic dump.  Failing this,
+C        it should be replaced by a version which prints the
+C        subprogram nesting list.  Note that this dump must be
+C        printed on each of up to five files, as indicated by the
+C        XGETUA routine.  See XSETUA and XGETUA for details.
+C
+C     Written by Ron Jones, with SLATEC Common Math Library Subcommittee
+C
+C***REFERENCES  (NONE)
+C***ROUTINES CALLED  (NONE)
+C***REVISION HISTORY  (YYMMDD)
+C   790801  DATE WRITTEN
+C   861211  REVISION DATE from Version 3.2
+C   891214  Prologue converted to Version 4.0 format.  (BAB)
+C***END PROLOGUE  FDUMP
+C***FIRST EXECUTABLE STATEMENT  FDUMP
+      RETURN
+      END
diff --git a/fvn_fnlib/fvn_fnlib.f90 b/fvn_fnlib/fvn_fnlib.f90
new file mode 100644
index 0000000..df34b93
--- /dev/null
+++ b/fvn_fnlib/fvn_fnlib.f90
@@ -0,0 +1,949 @@
+module fvn_fnlib
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! This module is a generic interface for fn library
+! http://www.netlib.org/fn
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! Elementary Functions
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+! Argument
+interface carg
+      real(4) function carg(z)
+            complex(4) :: z
+      end function carg
+      real(8) function zarg(z)
+            complex(8) :: z
+      end function zarg
+end interface carg
+
+! Cubic root
+interface cbrt
+      real(4) function cbrt(x)
+            real(4) :: x
+      end function cbrt
+      real(8) function dcbrt(x)
+            real(8) :: x
+      end function dcbrt
+      complex(4) function ccbrt(z)
+            complex(4) :: z
+      end function ccbrt
+      complex(8) function zcbrt(z)
+            complex(8) :: z
+      end function zcbrt
+end interface cbrt
+
+! (exp(x) -1)/x
+interface exprl
+      real(4) function exprel(x)
+            real(4) :: x
+      end function exprel
+      real(8) function dexprl(x)
+            real(8) :: x
+      end function dexprl
+      complex(4) function cexprl(z)
+            complex(4) :: z
+      end function cexprl
+      complex(8) function zexprl(z)
+            complex(8) :: z
+      end function zexprl
+end interface exprl
+
+! log10 extension to complex arguments
+interface log10
+      complex(4) function clog10(z)
+            complex(4) :: z
+      end function clog10
+      complex(8) function zlog10(z)
+            complex(8) :: z
+      end function zlog10
+end interface log10 
+
+! ln(x+1)
+interface alnrel
+      real(4) function alnrel(x)
+            real(4) :: x
+      end function alnrel
+      real(8) function dlnrel(x)
+            real(8) :: x
+      end function dlnrel
+      complex(4) function clnrel(z)
+            complex(4) :: z
+      end function clnrel
+      complex(8) function zlnrel(z)
+            complex(8) :: z
+      end function zlnrel
+end interface alnrel
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! END Elementary Functions
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! Trigonometry
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+! Extension de la tangente aux arguments complexes
+interface tan
+      complex(4) function ctan(z)
+            complex(4) :: z
+      end function ctan
+      complex(8) function ztan(z)
+            complex(8) :: z
+      end function ztan
+end interface tan
+
+! Cotangente
+interface cot
+      real(4) function cot(x)
+            real(4) :: x
+      end function cot
+      real(8) function dcot(x)
+            real(8) :: x
+      end function dcot
+      complex(4) function ccot(z)
+            complex(4) :: z
+      end function ccot
+      complex(8) function zcot(z)
+            complex(8) :: z
+      end function zcot
+end interface cot
+
+! Sinus in degree
+interface sindg
+      real(4) function sindg(x)
+            real(4) :: x
+      end function sindg
+      real(8) function dsindg(x)
+            real(8) :: x
+      end function dsindg
+end interface sindg
+
+! Cosinus in degree
+interface cosdg
+      real(4) function cosdg(x)
+            real(4) :: x
+      end function cosdg
+      real(8) function dcosdg(x)
+            real(8) :: x
+      end function dcosdg
+end interface cosdg
+
+
+! Extension de l'arcsinus aux arguments complexes
+interface asin
+      complex(4) function casin(z)
+            complex(4) :: z
+      end function casin
+      complex(8) function zasin(z)
+            complex(8) :: z
+      end function zasin
+end interface asin
+
+! Extension de l'arccosinus aux arguments complexes
+interface acos
+      complex(4) function cacos(z)
+            complex(4) :: z
+      end function cacos
+      complex(8) function zacos(z)
+            complex(8) :: z
+      end function zacos
+end interface acos
+
+! Extension de l'arctangente aux arguments complexes
+interface atan
+      complex(4) function catan(z)
+            complex(4) :: z
+      end function catan
+      complex(8) function zatan(z)
+            complex(8) :: z
+      end function zatan
+end interface atan
+
+! Extension de atan2 aux arguments complexes
+interface atan2
+      complex(4) function catan2(csn,ccs)
+            complex(4) :: csn,ccs
+      end function catan2
+      complex(8) function zatan2(csn,ccs)
+            complex(8) :: csn,ccs
+      end function zatan2
+end interface atan2
+
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! Hyperbolic Trigonometry
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! Extension du Sinus hyperbolique aux arguments complexes
+interface sinh
+      complex(4) function csinh(z)
+            complex(4) :: z
+      end function csinh
+      complex(8) function zsinh(z)
+            complex(8) :: z
+      end function zsinh
+end interface sinh
+
+! Extension du Cosinus hyperbolique aux arguments complexes
+interface cosh
+      complex(4) function ccosh(z)
+            complex(4) :: z
+      end function ccosh
+      complex(8) function zcosh(z)
+            complex(8) :: z
+      end function zcosh
+end interface cosh
+
+! Extension de la tangente hyperbolique aux arguments complexes
+interface tanh
+      complex(4) function ctanh(z)
+            complex(4) :: z
+      end function ctanh
+      complex(8) function ztanh(z)
+            complex(8) :: z
+      end function ztanh
+end interface tanh
+
+! Arc sinus hyperbolique
+interface asinh
+      real(4) function asinh(x)
+            real(4) :: x
+      end function asinh
+      real(8) function dasinh(x)
+            real(8) :: x
+      end function dasinh
+      complex(4) function casinh(z)
+            complex(4) :: z
+      end function casinh
+      complex(8) function zasinh(z)
+            complex(8) :: z
+      end function zasinh
+end interface asinh
+
+! Arc cosinus hyperbolique
+interface acosh
+      real(4) function acosh(x)
+            real(4) :: x
+      end function acosh
+      real(8) function dacosh(x)
+            real(8) :: x
+      end function dacosh
+      complex(4) function cacosh(z)
+            complex(4) :: z
+      end function cacosh
+      complex(8) function zacosh(z)
+      end function zacosh
+end interface acosh
+
+! Arc tangente hyperbolique
+interface atanh
+      real(4) function atanh(x)
+            real(4) :: x
+      end function atanh
+      real(8) function datanh(x)
+            real(8) :: x
+      end function datanh
+      complex(4) function catanh(z)
+            complex(4) :: z
+      end function catanh
+      complex(8) function zatanh(z)
+            complex(8) :: z
+      end function zatanh
+end interface atanh
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! END Trigonometry
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! Exponential integral and related
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+! Exponential integral ei(x)
+interface ei
+      real(4) function ei(x)
+            real(4) :: x
+      end function ei
+      real(8) function dei(x)
+            real(8) :: x
+      end function dei
+end interface ei
+
+! Exponential integral e1(x)
+interface e1
+      real(4) function e1(x)
+            real(4) :: x
+      end function e1
+      real(8) function de1(x)
+            real(8) :: x
+      end function de1
+end interface e1
+
+!!!!!!!!!!!!!!!
+! MISSING ENE
+!!!!!!!!!!!!!!!
+
+! Logarithm integral
+interface ali
+      real(4) function ali(x)
+            real(4) :: x
+      end function ali
+      real(8) function dli(x)
+            real(8) :: x
+      end function dli
+end interface ali
+
+! Sine integral
+interface si
+      real(4) function si(x)
+            real(4) :: x
+      end function si
+      real(8) function dsi(x)
+            real(8) :: x
+      end function dsi
+end interface si
+
+! Cosine integral
+interface ci
+      real(4) function ci(x)
+            real(4) :: x
+      end function ci
+      real(8) function dci(x)
+            real(8) :: x
+      end function dci
+end interface ci
+
+! Cosine integral alternate definition
+interface cin
+      real(4) function cin(x)
+            real(4) :: x
+      end function cin
+      real(8) function dcin(x)
+            real(8) :: x
+      end function dcin
+end interface cin
+
+! Hyperbolic sine integral
+interface shi
+      real(4) function shi(x)
+            real(4) :: x
+      end function shi
+      real(8) function dshi(x)
+            real(8) :: x
+      end function dshi
+end interface shi
+
+! Hyperbolic cosine integral
+interface chi
+      real(4) function chi(x)
+            real(4) :: x
+      end function chi
+      real(8) function dchi(x)
+            real(8) :: x
+      end function dchi
+end interface chi
+
+! Hyperbolic cosine integral alternate definition
+interface cinh
+      real(4) function cinh(x)
+            real(4) :: x
+      end function cinh
+      real(8) function dcinh(x)
+            real(8) :: x
+      end function dcinh
+end interface cinh
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! END Exponential integral and related
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! Gamma family
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+! Factorial
+interface fac
+      real(4) function fac(n)
+            integer(4) :: n
+      end function fac
+      real(8) function dfac(n)
+            integer(4) :: n
+      end function dfac
+end interface fac
+
+! Binomial coefficient
+interface binom
+      real(4) function binom(n,m)
+            integer(4) :: n,m
+      end function binom
+      real(8) function dbinom(n,m)
+            integer(4) :: n,m
+      end function dbinom
+end interface binom
+
+! Gamma function
+interface gamma
+      real(4) function gamma(x)
+            real(4) :: x
+      end function gamma
+      real(8) function dgamma(x)
+            real(8) :: x
+      end function dgamma
+      complex(4) function cgamma(z)
+            complex(4) :: z
+      end function cgamma
+      complex(8) function zgamma(z)
+            complex(8) :: z
+      end function zgamma
+end interface gamma
+
+! Reciprocal of gamma function
+interface gamr
+      real(4) function gamr(x)
+            real(4) :: x
+      end function gamr
+      real(8) function dgamr(x)
+            real(8) :: x
+      end function dgamr
+      complex(4) function cgamr(z)
+            complex(4) :: z
+      end function cgamr
+      complex(8) function zgamr(z)
+            complex(8) :: z
+      end function zgamr
+end interface gamr
+
+! natural log of abs(gamma)
+interface alngam
+      real(4) function alngam(x)
+            real(4) :: x
+      end function alngam
+      real(8) function dlngam(x)
+            real(8) :: x
+      end function dlngam
+      complex(4) function clngam(z)
+            complex(4) :: z
+      end function clngam
+      complex(8) function zlngam(z)
+            complex(8) :: z
+      end function zlngam
+end interface alngam
+
+! log abs gamma and sign
+interface algams
+      subroutine algams(x,algam,sgngam)
+            real(4) :: x
+      end subroutine algams
+      subroutine dlgams(x,algam,sgngam)
+            real(8) :: x
+      end subroutine dlgams
+end interface algams
+
+! Incomplete gamma function
+interface gami
+      real(4) function gami(a,x)
+            real(4) :: a,x
+      end function gami
+      real(8) function dgami(a,x)
+            real(8) :: a,x
+      end function dgami
+end interface gami
+
+! Complementary incomplete gamma function
+interface gamic
+      real(4) function gamic(a,x)
+            real(4) :: a,x
+      end function gamic
+      real(8) function dgamic(a,x)
+            real(8) :: a,x
+      end function dgamic
+end interface gamic
+
+! Tricomi's incomplete gamma function
+interface gamit
+      real(4) function gamit(a,x)
+            real(4) :: a,x
+      end function gamit
+      real(8) function dgamit(a,x)
+            real(8) :: a,x
+      end function dgamit
+end interface gamit
+
+! Psi function
+interface psi
+      real(4) function psi(x)
+            real(4) :: x
+      end function psi
+      real(8) function dpsi(x)
+            real(8) :: x
+      end function dpsi
+      complex(4) function cpsi(z)
+            complex(4) :: z
+      end function cpsi
+      complex(8) function zpsi(z)
+            complex(8) :: z
+      end function zpsi
+end interface psi
+
+! Pochhammer
+interface poch
+      real(4) function poch(a,x)
+            real(4) :: a,x
+      end function poch
+      real(8) function dpoch(a,x)
+            real(8) :: a,x
+      end function dpoch
+end interface poch
+
+! Pochhammer first order
+interface poch1
+      real(4) function poch1(a,x)
+            real(4) :: a,x
+      end function poch1
+      real(8) function dpoch1(a,x)
+            real(8) :: a,x
+      end function dpoch1
+end interface poch1
+
+! Beta function
+interface beta
+      real(4) function beta(a,b)
+            real(4) :: a,b
+      end function beta
+      real(8) function dbeta(a,b)
+            real(8) :: a,b
+      end function dbeta
+      complex(4) function cbeta(a,b)
+            complex(4) :: a,b
+      end function cbeta
+      complex(8) function zbeta(a,b)
+            complex(8) :: a,b
+      end function zbeta
+end interface beta
+
+! natural log of beta
+interface albeta
+      real(4) function albeta(a,b)
+            real(4) :: a,b
+      end function albeta
+      real(8) function dlbeta(a,b)
+            real(8) :: a,b
+      end function dlbeta
+      complex(4) function clbeta(a,b)
+            complex(4) :: a,b
+      end function clbeta
+      complex(8) function zlbeta(a,b)
+            complex(8) :: a,b
+      end function zlbeta
+end interface albeta
+
+! Incomplete beta function
+interface betai
+      real(4) function betai(x,pin,qin)
+            real(4) :: x,pin,qin
+      end function betai
+      real(8) function dbetai(x,pin,qin)
+            real(8) :: x,pin,qin
+      end function dbetai
+end interface betai
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! END Gamma family
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! Error function and related
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+! Error function
+interface erf
+      real(4) function erf(x)
+            real(4) :: x
+      end function erf
+      real(8) function derf(x)
+            real(8) :: x
+      end function derf
+end interface erf
+
+! Complementary error function
+interface erfc
+      real(4) function erfc(x)
+            real(4) :: x
+      end function erfc
+      real(8) function derfc(x)
+            real(8) :: x
+      end function derfc
+end interface erfc
+
+!!!!!!!!!!!
+! MISSING ERFCE
+! MISSING CERFI
+! MISSING ERFI
+! MISSING ERFCI
+!!!!!!!!!!!!!!
+
+! Dawson's function
+interface daws
+      real(4) function daws(x)
+            real(4) :: x
+      end function daws
+      real(8) function ddaws(x)
+            real(8) :: x
+      end function ddaws
+end interface daws
+
+!!!!!!!!!!!!!!!!!
+! MISSING FRESC
+! MISSING FRESS
+!!!!!!!!!!!!!!!!!
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! END Error function and related
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! Bessel functions and related
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+!J0(x)
+interface bsj0
+      real(4) function besj0(x)
+            real(4) :: x
+      end function besj0
+      real(8) function dbesj0(x)
+            real(8) :: x
+      end function dbesj0
+end interface bsj0
+
+!J1(x)
+interface bsj1
+      real(4) function besj1(x)
+            real(4) :: x
+      end function besj1
+      real(8) function dbesj1(x)
+            real(8) :: x
+      end function dbesj1
+end interface bsj1
+
+!Y0(x)
+interface bsy0
+      real(4) function besy0(x)
+            real(4) :: x
+      end function besy0
+      real(8) function dbesy0(x)
+            real(8) x
+      end function dbesy0
+end interface bsy0
+
+!Y1(x)
+interface bsy1
+      real(4) function besy1(x)
+            real(4) :: x
+      end function besy1
+      real(8) function dbesy1(x)
+            real(8) x
+      end function dbesy1
+end interface bsy1
+
+!I0(x)
+interface bsi0
+      real(4) function besi0(x)
+            real(4) :: x
+      end function besi0
+      real(8) function dbesi0(x)
+            real(8) x
+      end function dbesi0
+end interface bsi0
+
+!I1(x)
+interface bsi1
+      real(4) function besi1(x)
+            real(4) :: x
+      end function besi1
+      real(8) function dbesi1(x)
+            real(8) x
+      end function dbesi1
+end interface bsi1
+
+!K0(x)
+interface bsk0
+      real(4) function besk0(x)
+            real(4) :: x
+      end function besk0
+      real(8) function dbesk0(x)
+            real(8) x
+      end function dbesk0
+end interface bsk0
+
+!K1(x)
+interface bsk1
+      real(4) function besk1(x)
+            real(4) :: x
+      end function besk1
+      real(8) function dbesk1(x)
+            real(8) x
+      end function dbesk1
+end interface bsk1
+
+! Exponentially scaled I0
+interface bsi0e
+      real(4) function besi0e(x)
+            real(4) :: x
+      end function besi0e
+      real(8) function dbsi0e(x)
+            real(8) :: x
+      end function dbsi0e
+end interface bsi0e
+
+! Exponentially scaled I1
+interface bsi1e
+      real(4) function besi1e(x)
+            real(4) :: x
+      end function besi1e
+      real(8) function dbsi1e(x)
+            real(8) :: x
+      end function dbsi1e
+end interface bsi1e
+
+! Exponentially scaled K0
+interface bsk0e
+      real(4) function besk0e(x)
+            real(4) :: x
+      end function besk0e
+      real(8) function dbsk0e(x)
+            real(8) :: x
+      end function dbsk0e
+end interface bsk0e
+
+! Exponentially scaled K1
+interface bsk1e
+      real(4) function besk1e(x)
+            real(4) :: x
+      end function besk1e
+      real(8) function dbsk1e(x)
+            real(8) :: x
+      end function dbsk1e
+end interface bsk1e
+
+!!!!!!!!!!!!!!!!!!!!!
+! MISSING BSJNS
+! MISSING BSINS
+! MISSING BSJS
+! MISSING BSYS
+! MISSING BSIS
+! MISSING BSIES
+!!!!!!!!!!!!!!!!!!!!!
+
+! K nu + k
+interface bsks
+      subroutine besks(xnu,x,nin,bk)
+            real(4) :: xnu,x
+            integer :: nin
+            real(4), dimension(nin) :: bk
+      end subroutine besks
+      subroutine dbesks(xnu,x,nin,bk)
+            real(8) :: xnu,x
+            integer :: nin
+            real(8), dimension(nin) :: bk
+      end subroutine dbesks
+end interface bsks
+
+! Exponentially scaled K nu + k
+interface bskes
+      subroutine beskes(xnu,x,nin,bke)
+            real(4) :: xnu,x
+            integer :: nin
+            real(4),dimension(nin) :: bke
+      end subroutine beskes
+      subroutine dbskes(xnu,x,nin,bke)
+            real(8) :: xnu,x
+            integer :: nin
+            real(8),dimension(nin) :: bke
+      end subroutine dbskes
+end interface bskes
+
+!!!!!!!!!!!!!!!!!!
+! MISSING CBJS
+! MISSING CBYS
+! MISSING CBIS
+!!!!!!!!!!!!!!!!!!
+
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! END Bessel functions and related
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! Airy functions and related
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+!ai(x)
+interface ai
+      real(4) function ai(x)
+            real(4) :: x
+      end function ai
+      real(8) function dai(x)
+            real(8) :: x
+      end function dai
+end interface ai
+
+!bi(x)
+interface bi
+      real(4) function bi(x)
+            real(4) :: x
+      end function bi
+      real(8) function dbi(x)
+            real(8) :: x
+      end function dbi
+end interface bi
+
+!ai'(x)
+interface aid
+      real(4) function aid(x)
+            real(4) :: x
+      end function aid
+      real(8) function daid(x)
+            real(8) :: x
+      end function daid
+end interface aid
+
+!bi'(x)
+interface bid
+      real(4) function bid(x)
+            real(4) :: x
+      end function bid
+      real(8) function dbid(x)
+            real(8) :: x
+      end function dbid
+end interface bid
+
+! Exponentially scaled Ai
+interface aie
+      real(4) function aie(x)
+            real(4) :: x
+      end function aie
+      real(8) function daie(x)
+            real(8) :: x
+      end function daie
+end interface aie
+
+! Exponentially scaled Bi
+interface bie
+      real(4) function bie(x)
+            real(4) :: x
+      end function bie
+      real(8) function dbie(x)
+            real(8) :: x
+      end function dbie
+end interface bie
+
+! Exponentially scaled Ai'(x)
+interface aide
+      real(4) function aide(x)
+            real(4) :: x
+      end function aide
+      real(8) function daide(x)
+            real(8) :: x
+      end function daide
+end interface aide
+
+! Exponentially scaled Bi'(x)
+interface bide
+      real(4) function bide(x)
+            real(4) :: x
+      end function bide
+      real(8) function dbide(x)
+            real(8) :: x
+      end function dbide
+end interface bide
+
+!!!!!!!!!!!!!!!!!!!!!!!
+! MISSING CAI
+! MISSING CBI
+! MISSING CAID
+! MISSING CBID
+!!!!!!!!!!!!!!!!!!!!!!!
+
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! END Airy functions and related
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! Miscellanous functions 
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+! Spence dilogarithm
+interface spenc
+      real(4) function spenc(x)
+            real(4) :: x
+      end function spenc
+      real(8) function dspenc(x)
+            real(8) :: x
+      end function dspenc
+end interface spenc
+
+! Initialize a Chebyshev series
+interface inits
+      integer(4) function inits(os,nos,eta)
+            real(4),dimension(nos) :: os
+            integer(4) :: nos
+            real(4) :: eta
+      end function inits
+      integer(4) function initds(dos,nos,eta)
+            real(8),dimension(nos) :: dos
+            integer(4) :: nos
+            real(4) :: eta
+      end function initds
+end interface inits
+
+! Evaluate a Chebyshev series
+interface csevl
+      real(4) function csevl(x,cs,n)
+            real(4) :: x
+            real(4),dimension(n) :: cs
+            integer(4) :: n
+      end function csevl
+      real(8) function dcsevl(x,a,n)
+            real(8) :: x
+            real(8), dimension(n) :: a
+            integer(4) :: n
+      end function dcsevl
+end interface csevl
+
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! END Miscellanous functions 
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+
+
+
+
+end module fvn_fnlib
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/fvn_fnlib/gami.f b/fvn_fnlib/gami.f
new file mode 100644
index 0000000..2d6a217
--- /dev/null
+++ b/fvn_fnlib/gami.f
@@ -0,0 +1,27 @@
+      function gami (a, x)
+c july 1977 edition.  w. fullerton, c3, los alamos scientific lab.
+c
+c evaluate the incomplete gamma function defined by
+c
+c gami = integral from t = 0 to x of exp(-t) * t**(a-1.0) .
+c
+c gami is evaluated for positive values of a and non-negative values
+c of x.  a slight deterioration of 2 or 3 digits accuracy will occur
+c when gami is very large or very small, because logarithmic variables
+c are used.
+c
+      external alngam, gamit
+c
+      if (a.le.0.0) call seteru (25hgami    a must be gt zero, 25, 1, 2)
+      if (x.lt.0.0) call seteru (25hgami    x must be ge zero, 25, 2, 2)
+c
+      gami = 0.0
+      if (x.eq.0.0) return
+c
+c the only error possible in the expression below is a fatal overflow.
+      factor = exp (alngam(a) + a*alog(x) )
+c
+      gami = factor * gamit(a, x)
+c
+      return
+      end
diff --git a/fvn_fnlib/gamic.f b/fvn_fnlib/gamic.f
new file mode 100644
index 0000000..ecf029f
--- /dev/null
+++ b/fvn_fnlib/gamic.f
@@ -0,0 +1,100 @@
+      function gamic (a, x)
+c july 1977 edition.  w. fullerton, c3, los alamos scientific lab.
+c
+c evaluate the complementary incomplete gamma function
+c
+c gamic = integral from t = x to infinity of exp(-t) * t**(a-1.)  .
+c
+c gamic is evaluated for arbitrary real values of a and for non-negative
+c values of x (even though gamic is defined for x .lt. 0.0), except that
+c for x = 0 and a .le. 0.0, gamic is undefined.
+c
+c      a slight deterioration of 2 or 3 digits accuracy will occur when
+c gamic is very large or very small in absolute value, because log-
+c arithmic variables are used.  also, if the parameter a is very close
+c to a negative integer (but not a negative integer), there is a loss
+c of accuracy, which is reported if the result is less than half
+c machine precision.
+c
+c ref. -- w. gautschi, an evaluation procedure for incomplete gamma
+c functions, acm trans. math. software.
+c
+      external alngam,  r1mach, r9gmic, r9gmit, r9lgic,
+     1  r9lgit
+      data eps, sqeps, alneps, bot / 4*0.0 /
+c
+      if (eps.ne.0.) go to 10
+      eps = 0.5*r1mach(3)
+      sqeps = sqrt(r1mach(4))
+      alneps = -alog(r1mach(3))
+      bot = alog(r1mach(1))
+c
+ 10   if (x.lt.0.0) call seteru (21hgamic   x is negative, 21, 2, 2)
+c
+      if (x.gt.0.0) go to 20
+      if (a.le.0.0) call seteru (
+     1  46hgamic   x = 0 and a le 0 so gamic is undefined, 46, 3, 2)
+c
+      gamic = exp (alngam(a+1.0) - alog(a))
+      return
+c
+ 20   alx = alog(x)
+      sga = 1.0
+      if (a.ne.0.0) sga = sign (1.0, a)
+      ma = a + 0.5*sga
+      aeps = a - float(ma)
+c
+      izero = 0
+      if (x.ge.1.0) go to 60
+c
+      if (a.gt.0.5 .or. abs(aeps).gt.0.001) go to 50
+      fm = -ma
+      e = 2.0
+      if (fm.gt.1.0) e = 2.0*(fm+2.0)/(fm*fm-1.0)
+      e = e - alx*x**(-0.001)
+      if (e*abs(aeps).gt.eps) go to 50
+c
+      gamic = r9gmic (a, x, alx)
+      return
+c
+ 50   call algams (a+1.0, algap1, sgngam)
+      gstar = r9gmit (a, x, algap1, sgngam, alx)
+      if (gstar.eq.0.0) izero = 1
+      if (gstar.ne.0.0) alngs = alog (abs(gstar))
+      if (gstar.ne.0.0) sgngs = sign (1.0, gstar)
+      go to 70
+c
+ 60   if (a.lt.x) gamic = exp (r9lgic(a, x, alx))
+      if (a.lt.x) return
+c
+      sgngam = 1.0
+      algap1 = alngam (a+1.0)
+      sgngs = 1.0
+      alngs = r9lgit (a, x, algap1)
+c
+c evaluation of gamic(a,x) in terms of tricomi-s incomplete gamma fn.
+c
+ 70   h = 1.0
+      if (izero.eq.1) go to 80
+c
+      t = a*alx + alngs
+      if (t.gt.alneps) go to 90
+      if (t.gt.(-alneps)) h = 1.0 - sgngs*exp(t)
+c
+      if (abs(h).lt.sqeps) call erroff
+      if (abs(h).lt.sqeps) call seteru (
+     1  32hgamic   result lt half precision, 32, 1, 1)
+c
+ 80   sgng = sign (1.0, h) * sga * sgngam
+      t = alog(abs(h)) + algap1 - alog(abs(a))
+      if (t.lt.bot) call erroff
+      gamic = sgng * exp(t)
+      return
+c
+ 90   sgng = -sgngs * sga * sgngam
+      t = t + algap1 - alog(abs(a))
+      if (t.lt.bot) call erroff
+      gamic = sgng * exp(t)
+      return
+c
+      end
diff --git a/fvn_fnlib/gamit.f b/fvn_fnlib/gamit.f
new file mode 100644
index 0000000..a6faa48
--- /dev/null
+++ b/fvn_fnlib/gamit.f
@@ -0,0 +1,81 @@
+      function gamit (a, x)
+c july 1977 edition.  w. fullerton, c3, los alamos scientific lab.
+c
+c evaluate tricomi-s incomplete gamma function defined by
+c
+c gamit = x**(-a)/gamma(a) * integral t = 0 to x of exp(-t) * t**(a-1.)
+c
+c and analytic continuation for a .le. 0.0.  gamma(x) is the complete
+c gamma function of x.  gamit is evaluated for arbitrary real values of
+c a and for non-negative values of x (even though gamit is defined for
+c x .lt. 0.0).
+c
+c      a slight deterioration of 2 or 3 digits accuracy will occur when
+c gamit is very large or very small in absolute value, because log-
+c arithmic variables are used.  also, if the parameter a is very close
+c to a negative integer (but not a negative integer), there is a loss
+c of accuracy, which is reported if the result is less than half
+c machine precision.
+c
+c ref. -- w. gautschi, an evaluation procedure for incomplete gamma
+c functions, acm trans. math. software.
+c
+      external  alngam, gamr, r1mach, r9gmit, r9lgic,
+     1  r9lgit
+      data alneps, sqeps, bot / 3*0.0 /
+c
+      if (alneps.ne.0.0) go to 10
+      alneps = -alog(r1mach(3))
+      sqeps = sqrt(r1mach(4))
+      bot = alog(r1mach(1))
+c
+ 10   if (x.lt.0.0) call seteru (21hgamit   x is negative, 21, 2, 2)
+c
+      if (x.ne.0.0) alx = alog(x)
+      sga = 1.0
+      if (a.ne.0.0) sga = sign (1.0, a)
+      ainta = aint (a+0.5*sga)
+      aeps = a - ainta
+c
+      if (x.gt.0.0) go to 20
+      gamit = 0.0
+      if (ainta.gt.0.0 .or. aeps.ne.0.0) gamit = gamr(a+1.0)
+      return
+c
+ 20   if (x.gt.1.0) go to 40
+      if (a.ge.(-0.5) .or. aeps.ne.0.0) call algams (a+1.0, algap1,
+     1  sgngam)
+      gamit = r9gmit (a, x, algap1, sgngam, alx)
+      return
+c
+ 40   if (a.lt.x) go to 50
+      t = r9lgit (a, x, alngam(a+1.0))
+      if (t.lt.bot) call erroff
+      gamit = exp(t)
+      return
+c
+ 50   alng = r9lgic (a, x, alx)
+c
+c evaluate gamit in terms of alog(gamic(a,x))
+c
+      h = 1.0
+      if (aeps.eq.0.0 .and. ainta.le.0.0) go to 60
+      call algams (a+1.0, algap1, sgngam)
+      t = alog(abs(a)) + alng - algap1
+      if (t.gt.alneps) go to 70
+      if (t.gt.(-alneps)) h = 1.0 - sga*sgngam*exp(t)
+      if (abs(h).gt.sqeps) go to 60
+      call erroff
+      call seteru (32hgamit   result lt half precision, 32, 1, 1)
+c
+ 60   t = -a*alx + alog(abs(h))
+      if (t.lt.bot) call erroff
+      gamit = sign (exp(t), h)
+      return
+c
+ 70   t = t - a*alx
+      if (t.lt.bot) call erroff
+      gamit = -sga*sgngam*exp(t)
+      return
+c
+      end
diff --git a/fvn_fnlib/gamma.f b/fvn_fnlib/gamma.f
new file mode 100644
index 0000000..3bf0ca3
--- /dev/null
+++ b/fvn_fnlib/gamma.f
@@ -0,0 +1,115 @@
+      function gamma (x)
+c jan 1984 edition.   w. fullerton, c3, los alamos scientific lab.
+      dimension gcs(23)
+      external  csevl, inits, r1mach, r9lgmc
+c
+      data gcs   ( 1) / .0085711955 90989331e0/
+      data gcs   ( 2) / .0044153813 24841007e0/
+      data gcs   ( 3) / .0568504368 1599363e0/
+      data gcs   ( 4) /-.0042198353 96418561e0/
+      data gcs   ( 5) / .0013268081 81212460e0/
+      data gcs   ( 6) /-.0001893024 529798880e0/
+      data gcs   ( 7) / .0000360692 532744124e0/
+      data gcs   ( 8) /-.0000060567 619044608e0/
+      data gcs   ( 9) / .0000010558 295463022e0/
+      data gcs   (10) /-.0000001811 967365542e0/
+      data gcs   (11) / .0000000311 772496471e0/
+      data gcs   (12) /-.0000000053 542196390e0/
+      data gcs   (13) / .0000000009 193275519e0/
+      data gcs   (14) /-.0000000001 577941280e0/
+      data gcs   (15) / .0000000000 270798062e0/
+      data gcs   (16) /-.0000000000 046468186e0/
+      data gcs   (17) / .0000000000 007973350e0/
+      data gcs   (18) /-.0000000000 001368078e0/
+      data gcs   (19) / .0000000000 000234731e0/
+      data gcs   (20) /-.0000000000 000040274e0/
+      data gcs   (21) / .0000000000 000006910e0/
+      data gcs   (22) /-.0000000000 000001185e0/
+      data gcs   (23) / .0000000000 000000203e0/
+c
+      data pi /3.14159 26535 89793 24e0/
+c sq2pil is alog (sqrt (2.*pi) )
+      data sq2pil /0.91893 85332 04672 74e0/
+      data ngcs, xmin, xmax, xsml, dxrel /0, 4*0.0 /
+c
+      if (ngcs.ne.0) go to 10
+c
+c ---------------------------------------------------------------------
+c initialize.  find legal bounds for x, and determine the number of
+c terms in the series required to attain an accuracy ten times better
+c than machine precision.
+c
+      ngcs = inits (gcs, 23, 0.1*r1mach(3))
+c
+      call r9gaml (xmin, xmax)
+      xsml = exp (amax1 (alog (r1mach(1)), -alog(r1mach(2))) + 0.01)
+      dxrel = sqrt (r1mach(4))
+c
+c ---------------------------------------------------------------------
+c finish initialization.  start evaluating gamma(x).
+c
+ 10   y = abs(x)
+      if (y.gt.10.0) go to 50
+c
+c compute gamma(x) for abs(x) .le. 10.0.  reduce interval and
+c find gamma(1+y) for 0. .le. y .lt. 1. first of all.
+c
+      n = x
+      if (x.lt.0.) n = n - 1
+      y = x - float(n)
+      n = n - 1
+      gamma = 0.9375 + csevl(2.*y-1., gcs, ngcs)
+      if (n.eq.0) return
+c
+      if (n.gt.0) go to 30
+c
+c compute gamma(x) for x .lt. 1.
+c
+      n = -n
+      if (x.eq.0.) call seteru (14hgamma   x is 0, 14, 4, 2)
+      if (x.lt.0. .and. x+float(n-2).eq.0.) call seteru (
+     1  31hgamma   x is a negative integer, 31, 4, 2)
+      if (x.lt.(-0.5) .and. abs((x-aint(x-0.5))/x).lt.dxrel) call
+     1  seteru (68hgamma   answer lt half precision because x too near n
+     2egative integer, 68, 1, 1)
+      if (y.lt.xsml) call seteru (
+     1  54hgamma   x is so close to 0.0 that the result overflows,
+     2  54, 5, 2)
+c
+      do 20 i=1,n
+        gamma = gamma / (x+float(i-1))
+ 20   continue
+      return
+c
+c gamma(x) for x .ge. 2.
+c
+ 30   do 40 i=1,n
+        gamma = (y+float(i))*gamma
+ 40   continue
+      return
+c
+c compute gamma(x) for abs(x) .gt. 10.0.  recall y = abs(x).
+c
+ 50   if (x.gt.xmax) call seteru (32hgamma   x so big gamma overflows,
+     1  32, 3, 2)
+c
+      gamma = 0.
+      if (x.lt.xmin) call seteru (35hgamma   x so small gamma underflows
+     1  , 35, 2, 0)
+      if (x.lt.xmin) return
+c
+      gamma = exp((y-0.5)*alog(y) - y + sq2pil + r9lgmc(y) )
+      if (x.gt.0.) return
+c
+      if (abs((x-aint(x-0.5))/x).lt.dxrel) call seteru (
+     1  61hgamma   answer lt half precision, x too near negative integer
+     2  , 61, 1, 1)
+c
+      sinpiy = sin (pi*y)
+      if (sinpiy.eq.0.) call seteru (
+     1  31hgamma   x is a negative integer, 31, 4, 2)
+c
+      gamma = -pi / (y*sinpiy*gamma)
+c
+      return
+      end
diff --git a/fvn_fnlib/gamr.f b/fvn_fnlib/gamr.f
new file mode 100644
index 0000000..9922421
--- /dev/null
+++ b/fvn_fnlib/gamr.f
@@ -0,0 +1,23 @@
+      function gamr (x)
+c july 1977 edition.  w. fullerton, c3, los alamos scientific lab.
+c this routine, not gamma(x), should be the fundamental one.
+c
+      external  gamma
+c
+      gamr = 0.0
+      if (x.le.0.0 .and. aint(x).eq.x) return
+c
+      call entsrc (irold, 1)
+      if (abs(x).gt.10.0) go to 10
+      gamr = 1.0/gamma(x)
+      call erroff
+      call entsrc (ir, irold)
+      return
+c
+ 10   call algams (x, alngx, sgngx)
+      call erroff
+      call entsrc (ir, irold)
+      gamr = sgngx * exp(-alngx)
+      return
+c
+      end
diff --git a/fvn_fnlib/i1mach.f90 b/fvn_fnlib/i1mach.f90
new file mode 100644
index 0000000..5eec962
--- /dev/null
+++ b/fvn_fnlib/i1mach.f90
@@ -0,0 +1,127 @@
+!DECK I1MACH
+      INTEGER FUNCTION I1MACH (I)
+      IMPLICIT NONE
+      INTEGER :: I
+      REAL :: X
+      DOUBLE PRECISION :: XX
+!***BEGIN PROLOGUE  I1MACH
+!***PURPOSE  Return integer machine dependent constants.
+!***LIBRARY   SLATEC
+!***CATEGORY  R1
+!***TYPE      INTEGER (I1MACH-I)
+!***KEYWORDS  MACHINE CONSTANTS
+!***AUTHOR  Fox, P. A., (Bell Labs)
+!           Hall, A. D., (Bell Labs)
+!           Schryer, N. L., (Bell Labs)
+!***DESCRIPTION
+!
+!   I1MACH can be used to obtain machine-dependent parameters for the
+!   local machine environment.  It is a function subprogram with one
+!   (input) argument and can be referenced as follows:
+!
+!        K = I1MACH(I)
+!
+!   where I=1,...,16.  The (output) value of K above is determined by
+!   the (input) value of I.  The results for various values of I are
+!   discussed below.
+!
+!   I/O unit numbers:
+!     I1MACH( 1) = the standard input unit.
+!     I1MACH( 2) = the standard output unit.
+!     I1MACH( 3) = the standard punch unit.
+!     I1MACH( 4) = the standard error message unit.
+!
+!   Words:
+!     I1MACH( 5) = the number of bits per integer storage unit.
+!     I1MACH( 6) = the number of characters per integer storage unit.
+!
+!   Integers:
+!     assume integers are represented in the S-digit, base-A form
+!
+!                sign ( X(S-1)*A**(S-1) + ... + X(1)*A + X(0) )
+!
+!                where 0 .LE. X(I) .LT. A for I=0,...,S-1.
+!     I1MACH( 7) = A, the base.
+!     I1MACH( 8) = S, the number of base-A digits.
+!     I1MACH( 9) = A**S - 1, the largest magnitude.
+!
+!   Floating-Point Numbers:
+!     Assume floating-point numbers are represented in the T-digit,
+!     base-B form
+!                sign (B**E)*( (X(1)/B) + ... + (X(T)/B**T) )
+!
+!                where 0 .LE. X(I) .LT. B for I=1,...,T,
+!                0 .LT. X(1), and EMIN .LE. E .LE. EMAX.
+!     I1MACH(10) = B, the base.
+!
+!   Single-Precision:
+!     I1MACH(11) = T, the number of base-B digits.
+!     I1MACH(12) = EMIN, the smallest exponent E.
+!     I1MACH(13) = EMAX, the largest exponent E.
+!
+!   Double-Precision:
+!     I1MACH(14) = T, the number of base-B digits.
+!     I1MACH(15) = EMIN, the smallest exponent E.
+!     I1MACH(16) = EMAX, the largest exponent E.
+!
+!   To alter this function for a particular environment, the desired
+!   set of DATA statements should be activated by removing the C from
+!   column 1.  Also, the values of I1MACH(1) - I1MACH(4) should be
+!   checked for consistency with the local operating system.
+!
+!***REFERENCES  P. A. Fox, A. D. Hall and N. L. Schryer, Framework for
+!                 a portable library, ACM Transactions on Mathematical
+!                 Software 4, 2 (June 1978), pp. 177-188.
+!***ROUTINES CALLED  (NONE)
+!***REVISION HISTORY  (YYMMDD)
+!   750101  DATE WRITTEN
+!   960411  Modified for Fortran 90 (BE after suggestions by EHG).   
+!   980727  Modified value of I1MACH(6) (BE after suggestion by EHG).   
+!***END PROLOGUE  I1MACH
+!
+      X  = 1.0      
+      XX = 1.0D0
+
+      SELECT CASE (I)
+        CASE (1)
+          I1MACH = 5 ! Input unit
+        CASE (2)
+          I1MACH = 6 ! Output unit
+        CASE (3)
+          I1MACH = 0 ! Punch unit is no longer used
+        CASE (4)
+          I1MACH = 0 ! Error message unit
+        CASE (5)
+          I1MACH = BIT_SIZE(I)
+        CASE (6)
+          I1MACH = 4            ! Characters per integer is hopefully no
+                                ! longer used. 
+                                ! If it is used it has to be set manually.
+                                ! The value 4 is correct on IEEE-machines.
+        CASE (7)
+          I1MACH = RADIX(1)
+        CASE (8)
+          I1MACH = BIT_SIZE(I) - 1
+        CASE (9)
+          I1MACH = HUGE(1)
+        CASE (10)
+          I1MACH = RADIX(X)
+        CASE (11)
+          I1MACH = DIGITS(X)
+        CASE (12)
+          I1MACH = MINEXPONENT(X)
+        CASE (13)
+          I1MACH = MAXEXPONENT(X)
+        CASE (14)
+          I1MACH = DIGITS(XX)
+        CASE (15)
+          I1MACH = MINEXPONENT(XX)
+        CASE (16)
+          I1MACH = MAXEXPONENT(XX) 
+        CASE DEFAULT
+          WRITE (*, FMT = 9000)
+ 9000     FORMAT ('1ERROR    1 IN I1MACH - I OUT OF BOUNDS')
+          STOP
+        END SELECT
+      RETURN
+      END
diff --git a/fvn_fnlib/i8save.f b/fvn_fnlib/i8save.f
new file mode 100644
index 0000000..5fc1b79
--- /dev/null
+++ b/fvn_fnlib/i8save.f
@@ -0,0 +1,23 @@
+      integer function i8save(isw,ivalue,set)
+c
+c  if (isw = 1) i8save returns the current error number and
+c               sets it to ivalue if set = .true. .
+c
+c  if (isw = 2) i8save returns the current recovery switch and
+c               sets it to ivalue if set = .true. .
+c
+      logical set
+c
+      integer iparam(2)
+c  iparam(1) is the error number and iparam(2) is the recovery switch.
+c
+c  start execution error free and with recovery turned off.
+c
+      data iparam(1) /0/,  iparam(2) /2/
+c
+      i8save=iparam(isw)
+      if (set) iparam(isw)=ivalue
+c
+      return
+c
+      end
diff --git a/fvn_fnlib/initds.f b/fvn_fnlib/initds.f
new file mode 100644
index 0000000..716b098
--- /dev/null
+++ b/fvn_fnlib/initds.f
@@ -0,0 +1,30 @@
+      function initds (dos, nos, eta)
+c june 1977 edition.   w. fullerton, c3, los alamos scientific lab.
+c
+c initialize the double precision orthogonal series dos so that initds
+c is the number of terms needed to insure the error is no larger than
+c eta.  ordinarily eta will be chosen to be one-tenth machine precision.
+c
+c             input arguments --
+c dos    dble prec array of nos coefficients in an orthogonal series.
+c nos    number of coefficients in dos.
+c eta    requested accuracy of series.
+c
+      double precision dos(nos)
+c
+      if (nos.lt.1) call seteru (
+     1  35hinitds  number of coefficients lt 1, 35, 2, 2)
+c
+      err = 0.
+      do 10 ii=1,nos
+        i = nos + 1 - ii
+        err = err + abs(sngl(dos(i)))
+        if (err.gt.eta) go to 20
+ 10   continue
+c
+ 20   if (i.eq.nos) call seteru (28hinitds  eta may be too small, 28,
+     1  1, 2)
+      initds = i
+c
+      return
+      end
diff --git a/fvn_fnlib/inits.f b/fvn_fnlib/inits.f
new file mode 100644
index 0000000..9cb9778
--- /dev/null
+++ b/fvn_fnlib/inits.f
@@ -0,0 +1,30 @@
+      function inits (os, nos, eta)
+c april 1977 version.  w. fullerton, c3, los alamos scientific lab.
+c
+c initialize the orthogonal series so that inits is the number of terms
+c needed to insure the error is no larger than eta.  ordinarily, eta
+c will be chosen to be one-tenth machine precision.
+c
+c             input arguments --
+c os     array of nos coefficients in an orthogonal series.
+c nos    number of coefficients in os.
+c eta    requested accuracy of series.
+c
+      dimension os(nos)
+c
+      if (nos.lt.1) call seteru (
+     1  35hinits   number of coefficients lt 1, 35, 2, 2)
+c
+      err = 0.
+      do 10 ii=1,nos
+        i = nos + 1 - ii
+        err = err + abs(os(i))
+        if (err.gt.eta) go to 20
+ 10   continue
+c
+ 20   if (i.eq.nos) call seteru (28hinits   eta may be too small, 28,
+     1  1, 2)
+      inits = i
+c
+      return
+      end
diff --git a/fvn_fnlib/nerror.f b/fvn_fnlib/nerror.f
new file mode 100644
index 0000000..f7d46e3
--- /dev/null
+++ b/fvn_fnlib/nerror.f
@@ -0,0 +1,11 @@
+      integer function nerror(nerr)
+c
+c  returns nerror = nerr = the value of the error flag lerror.
+c
+      external i8save
+c
+      nerror = i8save(1, 0, .false.)
+      nerr = nerror
+      return
+c
+      end
diff --git a/fvn_fnlib/poch.f b/fvn_fnlib/poch.f
new file mode 100644
index 0000000..a9ddc04
--- /dev/null
+++ b/fvn_fnlib/poch.f
@@ -0,0 +1,111 @@
+      function poch (a, x)
+c august 1980 edition.  w. fullerton, c3, los alamos scientific lab.
+c error handling when poch (a, x) is less than half precision is
+c probably incorrect.  grossly wrong arguments are not handled right.
+c
+c evaluate a generalization of pochhammer-s symbol
+c (a)-sub-x = gamma(a+x)/gamma(a).  for x a non-negative integer,
+c poch(a,x) is just pochhammer-s symbol.
+c
+      external  alnrel, fac, gamma, gamr, r1mach,
+     1  r9lgmc
+      data pi / 3.1415926535 89793238 e0 /
+      data eps, sqeps / 2*0.0 /
+c
+      if (eps.ne.0.0) go to 10
+      eps = r1mach(4)
+      sqeps = sqrt(eps)
+c
+ 10   ax = a + x
+      if (ax.gt.0.0) go to 30
+      if (aint(ax).ne.ax) go to 30
+c
+      if (a.gt.0.0 .or. aint(a).ne.a) call seteru (
+     1  48hpoch    a+x is non-positive integer but a is not, 48, 2, 2)
+c
+c we know here that both a+x and a are non-positive integers.
+c
+      poch = 1.0
+      if (x.eq.0.0) return
+c
+      n = x
+      if (amin1(a+x,a).lt.(-20.0)) go to 20
+c
+      poch = (-1.0)**n * fac(-int(a))/fac(-int(a)-n)
+      return
+c
+ 20   poch = (-1.0)**n * exp ((a-0.5)*alnrel(x/(a-1.0))
+     1  + x*alog(-a+1.0-x) - x + r9lgmc(-a+1.) - r9lgmc(-a-x+1.) )
+      return
+c
+c here we know a+x is not zero or a negative integer.
+c
+ 30   poch = 0.0
+      if (a.le.0.0 .and. aint(a).eq.a) return
+c
+      n = abs(x)
+      if (float(n).ne.x .or. n.gt.20) go to 50
+c
+c x is a small non-positive integer, presummably a common case.
+c
+      poch = 1.0
+      if (n.eq.0) return
+      do 40 i=1,n
+        poch = poch * (a+float(i-1))
+ 40   continue
+      return
+c
+ 50   absax = abs(a+x)
+      absa = abs(a)
+      if (amax1(absax,absa).gt.20.0) go to 60
+c
+      if (abs(x).gt.absax/sqeps) call seteru (67hpoch    answer lt half
+     1precision, a+x cannot be computed accurately, 67, 1, 1)
+      poch = gamma(a+x)*gamr(a)
+c error handling above is probably bad when a almost = -n and when x is
+c small.  maybe use reflection formula below in modified form.
+      return
+c
+ 60   if (abs(x).gt.0.5*absa) go to 70
+c
+c here abs(x) is small and both abs(a+x) and abs(a) are large.  thus,
+c a+x and a must have the same sign.  for negative a, we use
+c gamma(a+x)/gamma(a) = gamma(-a+1)/gamma(-a-x+1) *
+c sin(pi*a)/sin(pi*(a+x))
+c
+      b = a
+      if (b.lt.0.0) b = -a - x + 1.0
+      poch = exp ((b-0.5)*alnrel(x/b) + x*alog(b+x) - x +
+     1  r9lgmc(b+x) - r9lgmc(b) )
+c
+      if (a.ge.0.0 .or. poch.eq.0.0) return
+      call entsrc (irold, 1)
+      cospix = cos (pi*x)
+      call erroff
+      sinpix = sin (pi*x)
+      call erroff
+      cospia = cos (pi*a)
+      call erroff
+      sinpia = sin (pi*a)
+      call erroff
+      call entsrc (irold2, irold)
+c
+      errpch = abs(x)*(1.0+alog(b))
+      den = cospix + cospia*sinpix/sinpia
+      err = (abs(x)*(abs(sinpix)+abs(cospia*cospix/sinpia))
+     1  + abs(a*sinpix)/sinpia**2)*pi
+      err = errpch + err/abs(den)
+      if (err.gt.1.0/eps) call seteru (73hpoch    answer has no precisio
+     1n, a or a+x too close to a negative integer, 73, 3, 2)
+      if (err.gt.1.0/sqeps) call seteru (72hpoch    answer lt half preci
+     1on, a or a+x too close to a negative integer, 72, 2, 1)
+c
+      poch = poch/den
+      return
+c
+ 70   call algams (a+x, alngax, sgngax)
+      call algams (a, alnga, sgnga)
+      poch = sgngax * sgnga * exp(alngax-alnga)
+c
+      return
+      end
diff --git a/fvn_fnlib/poch1.f b/fvn_fnlib/poch1.f
new file mode 100644
index 0000000..b351126
--- /dev/null
+++ b/fvn_fnlib/poch1.f
@@ -0,0 +1,130 @@
+      function poch1 (a, x)
+c august 1980 edition.  w. fullerton, c3, los alamos scientific lab.
+c
+c evaluate a generalization of pochhammer-s symbol for special
+c situations that require especially accurate values when x is small in
+c        poch1(a,x) = (poch(a,x)-1)/x
+c                   = (gamma(a+x)/gamma(a) - 1.0)/x .
+c this specification is particularly suited for stably computing
+c expressions such as
+c        (gamma(a+x)/gamma(a) - gamma(b+x)/gamma(b))/x
+c             = poch1(a,x) - poch1(b,x)
+c note that poch1(a,0.0) = psi(a)
+c
+c when abs(x) is so small that substantial cancellation will occur if
+c the straightforward formula is used, we  use an expansion due
+c to fields and discussed by y. l. luke, the special functions and their
+c approximations, vol. 1, academic press, 1969, page 34.
+c
+c the ratio poch(a,x) = gamma(a+x)/gamma(a) is written by luke as
+c        (a+(x-1)/2)**x * polynomial in (a+(x-1)/2)**(-2) .
+c in order to maintain significance in poch1, we write for positive a
+c        (a+(x-1)/2)**x = exp(x*alog(a+(x-1)/2)) = exp(q)
+c                       = 1.0 + q*exprel(q) .
+c likewise the polynomial is written
+c        poly = 1.0 + x*poly1(a,x) .
+c thus,
+c        poch1(a,x) = (poch(a,x) - 1) / x
+c                   = exprel(q)*(q/x + q*poly1(a,x)) + poly1(a,x)
+c
+      dimension bern(9), gbern(10)
+      external  cot, exprel, poch, psi, r1mach
+c
+c bern(i) is the 2*i bernoulli number divided by factorial(2*i).
+      data bern( 1) /   .8333333333 3333333e-01 /
+      data bern( 2) /  -.1388888888 8888889e-02 /
+      data bern( 3) /   .3306878306 8783069e-04 /
+      data bern( 4) /  -.8267195767 1957672e-06 /
+      data bern( 5) /   .2087675698 7868099e-07 /
+      data bern( 6) /  -.5284190138 6874932e-09 /
+      data bern( 7) /   .1338253653 0684679e-10 /
+      data bern( 8) /  -.3389680296 3225829e-12 /
+      data bern( 9) /   .8586062056 2778446e-14 /
+c
+      data pi / 3.1415926535 8979324 e0 /
+      data sqtbig, alneps / 2*0.0 /
+c
+      if (sqtbig.ne.0.0) go to 10
+      sqtbig = 1.0/sqrt(24.0*r1mach(1))
+      alneps = alog(r1mach(3))
+c
+ 10   if (x.eq.0.0) poch1 = psi(a)
+      if (x.eq.0.0) return
+c
+      absx = abs(x)
+      absa = abs(a)
+      if (absx.gt.0.1*absa) go to 70
+      if (absx*alog(amax1(absa,2.0)).gt.0.1) go to 70
+c
+      bp = a
+      if (a.lt.(-0.5)) bp = 1.0 - a - x
+      incr = 0
+      if (bp.lt.10.0) incr = 11.0 - bp
+      b = bp + float(incr)
+c
+      var = b + 0.5*(x-1.0)
+      alnvar = alog(var)
+      q = x*alnvar
+c
+      poly1 = 0.0
+      if (var.ge.sqtbig) go to 40
+      var2 = (1.0/var)**2
+c
+      rho = 0.5*(x+1.0)
+      gbern(1) = 1.0
+      gbern(2) = -rho/12.0
+      term = var2
+      poly1 = gbern(2)*term
+c
+      nterms = -0.5*alneps/alnvar + 1.0
+      if (nterms.gt.9) call seteru (
+     1  49hpoch1   nterms is too big, maybe r1mach(3) is bad, 49, 1, 2)
+      if (nterms.lt.2) go to 40
+c
+      do 30 k=2,nterms
+        gbk = 0.0
+        do 20 j=1,k
+          ndx = k - j + 1
+          gbk = gbk + bern(ndx)*gbern(j)
+ 20     continue
+        gbern(k+1) = -rho*gbk/float(k)
+c
+        term = term * (float(2*k-2)-x)*(float(2*k-1)-x)*var2
+        poly1 = poly1 + gbern(k+1)*term
+ 30   continue
+c
+ 40   poly1 = (x-1.0)*poly1
+      poch1 = exprel(q)*(alnvar + q*poly1) + poly1
+c
+      if (incr.eq.0) go to 60
+c
+c we have poch1(b,x).  but bp is small, so we use backwards recursion
+c to obtain poch1(bp,x).
+c
+      do 50 ii=1,incr
+        i = incr - ii
+        binv = 1.0/(bp+float(i))
+        poch1 = (poch1-binv)/(1.0+x*binv)
+ 50   continue
+c
+ 60   if (bp.eq.a) return
+c
+c we have poch1(bp,x), but a is lt -0.5.  we therefore use a reflection
+c formula to obtain poch1(a,x).
+c
+      sinpxx = sin(pi*x)/x
+      sinpx2 = sin(0.5*pi*x)
+      trig = sinpxx*cot(pi*b) - 2.0*sinpx2*(sinpx2/x)
+c
+      poch1 = trig + (1.0 + x*trig) * poch1
+      return
+c
+ 70   call entsrc (irold, 1)
+      poch1 = poch (a, x)
+      if (poch1.eq.0.0) call erroff
+      call entsrc (irold2, irold)
+c
+      poch1 = (poch1 - 1.0) / x
+      return
+c
+      end
diff --git a/fvn_fnlib/psi.f b/fvn_fnlib/psi.f
new file mode 100644
index 0000000..938420e
--- /dev/null
+++ b/fvn_fnlib/psi.f
@@ -0,0 +1,102 @@
+      function psi (x)
+c april 1977 version.  w. fullerton, c3, los alamos scientific lab.
+      dimension psics(23), apsics(16)
+      external  cot, csevl, inits, r1mach
+c
+c series for psi        on the interval  0.          to  1.00000d+00
+c                                        with weighted error   2.03e-17
+c                                         log weighted error  16.69
+c                               significant figures required  16.39
+c                                    decimal places required  17.37
+c
+      data psi cs( 1) /   -.0380570808 35217922e0 /
+      data psi cs( 2) /    .4914153930 2938713e0 /
+      data psi cs( 3) /   -.0568157478 21244730e0 /
+      data psi cs( 4) /    .0083578212 25914313e0 /
+      data psi cs( 5) /   -.0013332328 57994342e0 /
+      data psi cs( 6) /    .0002203132 87069308e0 /
+      data psi cs( 7) /   -.0000370402 38178456e0 /
+      data psi cs( 8) /    .0000062837 93654854e0 /
+      data psi cs( 9) /   -.0000010712 63908506e0 /
+      data psi cs(10) /    .0000001831 28394654e0 /
+      data psi cs(11) /   -.0000000313 53509361e0 /
+      data psi cs(12) /    .0000000053 72808776e0 /
+      data psi cs(13) /   -.0000000009 21168141e0 /
+      data psi cs(14) /    .0000000001 57981265e0 /
+      data psi cs(15) /   -.0000000000 27098646e0 /
+      data psi cs(16) /    .0000000000 04648722e0 /
+      data psi cs(17) /   -.0000000000 00797527e0 /
+      data psi cs(18) /    .0000000000 00136827e0 /
+      data psi cs(19) /   -.0000000000 00023475e0 /
+      data psi cs(20) /    .0000000000 00004027e0 /
+      data psi cs(21) /   -.0000000000 00000691e0 /
+      data psi cs(22) /    .0000000000 00000118e0 /
+      data psi cs(23) /   -.0000000000 00000020e0 /
+c
+c series for apsi       on the interval  0.          to  2.50000d-01
+c                                        with weighted error   5.54e-17
+c                                         log weighted error  16.26
+c                               significant figures required  14.42
+c                                    decimal places required  16.86
+c
+      data apsics( 1) /   -.0204749044 678185e0 /
+      data apsics( 2) /   -.0101801271 534859e0 /
+      data apsics( 3) /    .0000559718 725387e0 /
+      data apsics( 4) /   -.0000012917 176570e0 /
+      data apsics( 5) /    .0000000572 858606e0 /
+      data apsics( 6) /   -.0000000038 213539e0 /
+      data apsics( 7) /    .0000000003 397434e0 /
+      data apsics( 8) /   -.0000000000 374838e0 /
+      data apsics( 9) /    .0000000000 048990e0 /
+      data apsics(10) /   -.0000000000 007344e0 /
+      data apsics(11) /    .0000000000 001233e0 /
+      data apsics(12) /   -.0000000000 000228e0 /
+      data apsics(13) /    .0000000000 000045e0 /
+      data apsics(14) /   -.0000000000 000009e0 /
+      data apsics(15) /    .0000000000 000002e0 /
+      data apsics(16) /   -.0000000000 000000e0 /
+c
+      data pi     / 3.1415926535 8979324e0/
+      data ntpsi, ntapsi, xbig, dxrel /0, 0, 0., 0./
+c
+      if (ntpsi.ne.0) go to 10
+      ntpsi = inits (psics, 23, 0.1*r1mach(3))
+      ntapsi = inits (apsics, 16, 0.1*r1mach(3))
+c
+      xbig = 1.0/sqrt(r1mach(3))
+      dxrel = sqrt (r1mach(4))
+c
+ 10   y = abs(x)
+      if (y.ge.2.0) go to 30
+c
+c psi(x) for -2. .le. x .le. 2.
+c
+      n = x
+      if (x.lt.0.) n = n - 1
+      y = x - float(n)
+      n = n - 1
+      psi = csevl (2.*y-1., psics, ntpsi)
+      if (n.eq.0) return
+c
+      n = -n
+      if (x.eq.0.) call seteru (14hpsi     x is 0, 14, 2, 2)
+      if (x.lt.0. .and. x+float(n-2).eq.0.) call seteru (
+     1  31hpsi     x is a negative integer, 31, 3, 2)
+      if (x.lt.(-0.5) .and. abs((x-aint(x-0.5))/x).lt.dxrel) call seteru
+     1  (68hpsi     answer lt half precision because x too near negative
+     1 integer, 68, 1, 1)
+c
+      do 20 i=1,n
+        psi = psi - 1.0/(x+float(i-1))
+ 20   continue
+      return
+c
+c psi(x) for abs(x) .ge. 2.
+c
+ 30   aux = 0.
+      if (y.lt.xbig) aux = csevl (8./y**2-1., apsics, ntapsi)
+      if (x.lt.0.) psi = alog(abs(x)) - 0.5/x + aux - pi*cot(pi*x)
+      if (x.gt.0.) psi = alog(x) - 0.5/x + aux
+      return
+c
+      end
diff --git a/fvn_fnlib/r1mach.f90 b/fvn_fnlib/r1mach.f90
new file mode 100644
index 0000000..18aba60
--- /dev/null
+++ b/fvn_fnlib/r1mach.f90
@@ -0,0 +1,77 @@
+!DECK R1MACH
+      REAL FUNCTION R1MACH (I)
+      IMPLICIT NONE
+      INTEGER :: I
+      REAL :: B, X
+!***BEGIN PROLOGUE  R1MACH
+!***PURPOSE  Return floating point machine dependent constants.
+!***LIBRARY   SLATEC
+!***CATEGORY  R1
+!***TYPE      SINGLE PRECISION (R1MACH-S, D1MACH-D)
+!***KEYWORDS  MACHINE CONSTANTS
+!***AUTHOR  Fox, P. A., (Bell Labs)
+!           Hall, A. D., (Bell Labs)
+!           Schryer, N. L., (Bell Labs)
+!***DESCRIPTION
+!
+!   R1MACH can be used to obtain machine-dependent parameters for the
+!   local machine environment.  It is a function subprogram with one
+!   (input) argument, and can be referenced as follows:
+!
+!        A = R1MACH(I)
+!
+!   where I=1,...,5.  The (output) value of A above is determined by
+!   the (input) value of I.  The results for various values of I are
+!   discussed below.
+!
+!   R1MACH(1) = B**(EMIN-1), the smallest positive magnitude.
+!   R1MACH(2) = B**EMAX*(1 - B**(-T)), the largest magnitude.
+!   R1MACH(3) = B**(-T), the smallest relative spacing.
+!   R1MACH(4) = B**(1-T), the largest relative spacing.
+!   R1MACH(5) = LOG10(B)
+!
+!   Assume single precision numbers are represented in the T-digit,
+!   base-B form
+!
+!              sign (B**E)*( (X(1)/B) + ... + (X(T)/B**T) )
+!
+!   where 0 .LE. X(I) .LT. B for I=1,...,T, 0 .LT. X(1), and
+!   EMIN .LE. E .LE. EMAX.
+!
+!   The values of B, T, EMIN and EMAX are provided in I1MACH as
+!   follows:
+!   I1MACH(10) = B, the base.
+!   I1MACH(11) = T, the number of base-B digits.
+!   I1MACH(12) = EMIN, the smallest exponent E.
+!   I1MACH(13) = EMAX, the largest exponent E.
+!
+!
+!***REFERENCES  P. A. Fox, A. D. Hall and N. L. Schryer, Framework for
+!                 a portable library, ACM Transactions on Mathematical
+!                 Software 4, 2 (June 1978), pp. 177-188.
+!***ROUTINES CALLED  XERMSG
+!***REVISION HISTORY  (YYMMDD)
+!   790101  DATE WRITTEN
+!   960329  Modified for Fortran 90 (BE after suggestions by EG)      
+!***END PROLOGUE  R1MACH
+!      
+      X = 1.0
+      B = RADIX(X)
+      SELECT CASE (I)
+        CASE (1)
+          R1MACH = B**(MINEXPONENT(X)-1) ! the smallest positive magnitude.
+        CASE (2)
+          R1MACH = HUGE(X)               ! the largest magnitude.
+        CASE (3)
+          R1MACH = B**(-DIGITS(X))       ! the smallest relative spacing.
+        CASE (4)
+          R1MACH = B**(1-DIGITS(X))      ! the largest relative spacing.
+        CASE (5)
+          R1MACH = LOG10(B)
+        CASE DEFAULT
+          WRITE (*, FMT = 9000)
+ 9000     FORMAT ('1ERROR    1 IN R1MACH - I OUT OF BOUNDS')
+          STOP
+      END SELECT
+      RETURN
+      END
diff --git a/fvn_fnlib/r9admp.f b/fvn_fnlib/r9admp.f
new file mode 100644
index 0000000..bf6ab09
--- /dev/null
+++ b/fvn_fnlib/r9admp.f
@@ -0,0 +1,236 @@
+      subroutine r9admp (x, ampl, phi)
+c july 1980 edition.  w. fullerton, bell labs.  revised nov 1983.
+c
+c evaluate the derivative of the airy function modulus and
+c phase for x .le. -1.0.
+c
+      dimension an22cs(33), an21cs(24), an20cs(16), aph2cs(32),
+     1  aph1cs(22), aph0cs(15)
+      external csevl, inits, r1mach
+c
+c series for an22 on the interval -1.00000e+00 to -1.25000e-01
+c                                        with weighted error   3.30e-17
+c                                         log weighted error  16.48
+c                               significant figures required  14.95
+c                                    decimal places required  17.24
+c
+      data an22cs(  1) /     0.0537418629 629794329 e0/
+      data an22cs(  2) /    -0.0126661435 859883193 e0/
+      data an22cs(  3) /    -0.0011924334 106593007 e0/
+      data an22cs(  4) /    -0.0002032327 627275655 e0/
+      data an22cs(  5) /    -0.0000446468 963075164 e0/
+      data an22cs(  6) /    -0.0000113359 036053123 e0/
+      data an22cs(  7) /    -0.0000031641 352378546 e0/
+      data an22cs(  8) /    -0.0000009446 708886149 e0/
+      data an22cs(  9) /    -0.0000002966 562236472 e0/
+      data an22cs( 10) /    -0.0000000969 118892024 e0/
+      data an22cs( 11) /    -0.0000000326 822538653 e0/
+      data an22cs( 12) /    -0.0000000113 144618964 e0/
+      data an22cs( 13) /    -0.0000000040 042691002 e0/
+      data an22cs( 14) /    -0.0000000014 440333684 e0/
+      data an22cs( 15) /    -0.0000000005 292853746 e0/
+      data an22cs( 16) /    -0.0000000001 967763374 e0/
+      data an22cs( 17) /    -0.0000000000 740800096 e0/
+      data an22cs( 18) /    -0.0000000000 282016314 e0/
+      data an22cs( 19) /    -0.0000000000 108440066 e0/
+      data an22cs( 20) /    -0.0000000000 042074801 e0/
+      data an22cs( 21) /    -0.0000000000 016459150 e0/
+      data an22cs( 22) /    -0.0000000000 006486827 e0/
+      data an22cs( 23) /    -0.0000000000 002574095 e0/
+      data an22cs( 24) /    -0.0000000000 001027889 e0/
+      data an22cs( 25) /    -0.0000000000 000412846 e0/
+      data an22cs( 26) /    -0.0000000000 000166711 e0/
+      data an22cs( 27) /    -0.0000000000 000067657 e0/
+      data an22cs( 28) /    -0.0000000000 000027585 e0/
+      data an22cs( 29) /    -0.0000000000 000011296 e0/
+      data an22cs( 30) /    -0.0000000000 000004645 e0/
+      data an22cs( 31) /    -0.0000000000 000001917 e0/
+      data an22cs( 32) /    -0.0000000000 000000794 e0/
+      data an22cs( 33) /    -0.0000000000 000000330 e0/
+c
+c series for an21 on the interval -1.25000e-01 to -1.56250e-02
+c                                        with weighted error   3.43e-17
+c                                         log weighted error  16.47
+c                               significant figures required  14.48
+c                                    decimal places required  17.16
+c
+      data an21cs(  1) /     0.0198313155 263169394 e0/
+      data an21cs(  2) /    -0.0029376249 067087533 e0/
+      data an21cs(  3) /    -0.0001136260 695958196 e0/
+      data an21cs(  4) /    -0.0000100554 451087156 e0/
+      data an21cs(  5) /    -0.0000013048 787116563 e0/
+      data an21cs(  6) /    -0.0000002123 881993151 e0/
+      data an21cs(  7) /    -0.0000000402 270833384 e0/
+      data an21cs(  8) /    -0.0000000084 996745953 e0/
+      data an21cs(  9) /    -0.0000000019 514839426 e0/
+      data an21cs( 10) /    -0.0000000004 783865344 e0/
+      data an21cs( 11) /    -0.0000000001 236733992 e0/
+      data an21cs( 12) /    -0.0000000000 334137486 e0/
+      data an21cs( 13) /    -0.0000000000 093702824 e0/
+      data an21cs( 14) /    -0.0000000000 027130128 e0/
+      data an21cs( 15) /    -0.0000000000 008075954 e0/
+      data an21cs( 16) /    -0.0000000000 002463214 e0/
+      data an21cs( 17) /    -0.0000000000 000767656 e0/
+      data an21cs( 18) /    -0.0000000000 000243883 e0/
+      data an21cs( 19) /    -0.0000000000 000078831 e0/
+      data an21cs( 20) /    -0.0000000000 000025882 e0/
+      data an21cs( 21) /    -0.0000000000 000008619 e0/
+      data an21cs( 22) /    -0.0000000000 000002908 e0/
+      data an21cs( 23) /    -0.0000000000 000000993 e0/
+      data an21cs( 24) /    -0.0000000000 000000343 e0/
+c
+c series for an20 on the interval -1.56250e-02 to  0.00000e+00
+c                                        with weighted error   4.41e-17
+c                                         log weighted error  16.36
+c                               significant figures required  14.16
+c                                    decimal places required  16.96
+c
+      data an20cs(  1) /     0.0126732217 145738027 e0/
+      data an20cs(  2) /    -0.0005212847 072615621 e0/
+      data an20cs(  3) /    -0.0000052672 111140370 e0/
+      data an20cs(  4) /    -0.0000001628 202185026 e0/
+      data an20cs(  5) /    -0.0000000090 991442687 e0/
+      data an20cs(  6) /    -0.0000000007 438647126 e0/
+      data an20cs(  7) /    -0.0000000000 795494752 e0/
+      data an20cs(  8) /    -0.0000000000 104050944 e0/
+      data an20cs(  9) /    -0.0000000000 015932426 e0/
+      data an20cs( 10) /    -0.0000000000 002770648 e0/
+      data an20cs( 11) /    -0.0000000000 000535343 e0/
+      data an20cs( 12) /    -0.0000000000 000113062 e0/
+      data an20cs( 13) /    -0.0000000000 000025772 e0/
+      data an20cs( 14) /    -0.0000000000 000006278 e0/
+      data an20cs( 15) /    -0.0000000000 000001621 e0/
+      data an20cs( 16) /    -0.0000000000 000000441 e0/
+c
+c series for aph2 on the interval -1.00000e+00 to -1.25000e-01
+c                                        with weighted error   2.94e-17
+c                                         log weighted error  16.53
+c                               significant figures required  15.58
+c                                    decimal places required  17.28
+c
+      data aph2cs(  1) /    -0.2057088719 781465107 e0/
+      data aph2cs(  2) /     0.0422196961 357771922 e0/
+      data aph2cs(  3) /     0.0020482560 511207275 e0/
+      data aph2cs(  4) /     0.0002607800 735165006 e0/
+      data aph2cs(  5) /     0.0000474824 268004729 e0/
+      data aph2cs(  6) /     0.0000105102 756431612 e0/
+      data aph2cs(  7) /     0.0000026353 534014668 e0/
+      data aph2cs(  8) /     0.0000007208 824863499 e0/
+      data aph2cs(  9) /     0.0000002103 236664473 e0/
+      data aph2cs( 10) /     0.0000000644 975634555 e0/
+      data aph2cs( 11) /     0.0000000205 802377264 e0/
+      data aph2cs( 12) /     0.0000000067 836273921 e0/
+      data aph2cs( 13) /     0.0000000022 974015284 e0/
+      data aph2cs( 14) /     0.0000000007 961306765 e0/
+      data aph2cs( 15) /     0.0000000002 813860610 e0/
+      data aph2cs( 16) /     0.0000000001 011749057 e0/
+      data aph2cs( 17) /     0.0000000000 369306738 e0/
+      data aph2cs( 18) /     0.0000000000 136615066 e0/
+      data aph2cs( 19) /     0.0000000000 051142751 e0/
+      data aph2cs( 20) /     0.0000000000 019351689 e0/
+      data aph2cs( 21) /     0.0000000000 007393607 e0/
+      data aph2cs( 22) /     0.0000000000 002849792 e0/
+      data aph2cs( 23) /     0.0000000000 001107281 e0/
+      data aph2cs( 24) /     0.0000000000 000433412 e0/
+      data aph2cs( 25) /     0.0000000000 000170801 e0/
+      data aph2cs( 26) /     0.0000000000 000067733 e0/
+      data aph2cs( 27) /     0.0000000000 000027017 e0/
+      data aph2cs( 28) /     0.0000000000 000010835 e0/
+      data aph2cs( 29) /     0.0000000000 000004367 e0/
+      data aph2cs( 30) /     0.0000000000 000001769 e0/
+      data aph2cs( 31) /     0.0000000000 000000719 e0/
+      data aph2cs( 32) /     0.0000000000 000000294 e0/
+c
+c series for aph1 on the interval -1.25000e-01 to -1.56250e-02
+c                                        with weighted error   6.38e-17
+c                                         log weighted error  16.20
+c                               significant figures required  14.91
+c                                    decimal places required  16.87
+c
+      data aph1cs(  1) /    -0.1024172908 077571694 e0/
+      data aph1cs(  2) /     0.0071697275 146591248 e0/
+      data aph1cs(  3) /     0.0001209959 363122329 e0/
+      data aph1cs(  4) /     0.0000073361 512841220 e0/
+      data aph1cs(  5) /     0.0000007535 382954272 e0/
+      data aph1cs(  6) /     0.0000001041 478171741 e0/
+      data aph1cs(  7) /     0.0000000174 358728519 e0/
+      data aph1cs(  8) /     0.0000000033 399795033 e0/
+      data aph1cs(  9) /     0.0000000007 073075174 e0/
+      data aph1cs( 10) /     0.0000000001 619187515 e0/
+      data aph1cs( 11) /     0.0000000000 394539982 e0/
+      data aph1cs( 12) /     0.0000000000 101192282 e0/
+      data aph1cs( 13) /     0.0000000000 027092778 e0/
+      data aph1cs( 14) /     0.0000000000 007523806 e0/
+      data aph1cs( 15) /     0.0000000000 002156369 e0/
+      data aph1cs( 16) /     0.0000000000 000635283 e0/
+      data aph1cs( 17) /     0.0000000000 000191757 e0/
+      data aph1cs( 18) /     0.0000000000 000059143 e0/
+      data aph1cs( 19) /     0.0000000000 000018597 e0/
+      data aph1cs( 20) /     0.0000000000 000005950 e0/
+      data aph1cs( 21) /     0.0000000000 000001934 e0/
+      data aph1cs( 22) /     0.0000000000 000000638 e0/
+c
+c series for aph0 on the interval -1.56250e-02 to  0.00000e+00
+c                                        with weighted error   2.29e-17
+c                                         log weighted error  16.64
+c                               significant figures required  15.27
+c                                    decimal places required  17.23
+c
+      data aph0cs(  1) /    -0.0855849241 130933257 e0/
+      data aph0cs(  2) /     0.0011214378 867065261 e0/
+      data aph0cs(  3) /     0.0000042721 029353664 e0/
+      data aph0cs(  4) /     0.0000000817 607381483 e0/
+      data aph0cs(  5) /     0.0000000033 907645000 e0/
+      data aph0cs(  6) /     0.0000000002 253264423 e0/
+      data aph0cs(  7) /     0.0000000000 206284209 e0/
+      data aph0cs(  8) /     0.0000000000 023858763 e0/
+      data aph0cs(  9) /     0.0000000000 003301618 e0/
+      data aph0cs( 10) /     0.0000000000 000527010 e0/
+      data aph0cs( 11) /     0.0000000000 000094555 e0/
+      data aph0cs( 12) /     0.0000000000 000018709 e0/
+      data aph0cs( 13) /     0.0000000000 000004024 e0/
+      data aph0cs( 14) /     0.0000000000 000000930 e0/
+      data aph0cs( 15) /     0.0000000000 000000229 e0/
+c
+      data pi34 / 2.3561944 901923449e0 /
+c     data pi34 / 2.3561944 9019234492 8846982537 4596271631 3d0  /
+      data nan20, nan21, nan22, naph0, naph1, naph2 / 6*0 /
+      data xsml / 0.0 /
+c
+      if (nan20.ne.0) go to 10
+      eta = 0.1*r1mach(3)
+      nan20 = inits (an20cs, 16, eta)
+      nan21 = inits (an21cs, 24, eta)
+      nan22 = inits (an22cs, 33, eta)
+      naph0 = inits (aph0cs, 15, eta)
+      naph1 = inits (aph1cs, 22, eta)
+      naph2 = inits (aph2cs, 32, eta)
+c
+      xsml = -(128.0/r1mach(3))**0.3333
+c
+ 10   if (x.ge.(-4.0)) go to 20
+      z = 1.0
+      if (x.gt.xsml) z = 128.0/x**3 + 1.0
+      ampl = 0.3125 + csevl (z, an20cs, nan20)
+      phi = -0.625 + csevl (z, aph0cs, naph0)
+      go to 40
+c
+ 20   if (x.ge.(-2.0)) go to 30
+      z = (128.0/x**3 + 9.0) / 7.0
+      ampl = 0.3125 + csevl (z, an21cs, nan21)
+      phi = -0.625 + csevl (z, aph1cs, naph1)
+      go to 40
+c
+ 30   if (x.gt.(-1.0)) call seteru (
+     1  25hr9admp  x must be le -1.0, 25, 1, 2)
+c
+      z = (16.0/x**3 + 9.0) / 7.0
+      ampl = 0.3125 + csevl (z, an22cs, nan22)
+      phi = -0.625 + csevl (z, aph2cs, naph2)
+c
+ 40   sqrtx = sqrt (-x)
+      ampl = sqrt (ampl*sqrtx)
+      phi = pi34 - x*sqrtx*phi
+c
+      return
+      end
diff --git a/fvn_fnlib/r9aimp.f b/fvn_fnlib/r9aimp.f
new file mode 100644
index 0000000..5a99b09
--- /dev/null
+++ b/fvn_fnlib/r9aimp.f
@@ -0,0 +1,209 @@
+      subroutine r9aimp (x, ampl, theta)
+c july 1977 edition.  w. fullerton, c3, los alamos scientific lab.
+c
+c evaluate the airy modulus and phase for x .le. -1.0
+c
+      dimension am21cs(40), ath1cs(36), am22cs(33), ath2cs(32)
+      external csevl, inits, r1mach
+c
+c series for am21       on the interval -1.25000d-01 to  0.
+c                                        with weighted error   2.89e-17
+c                                         log weighted error  16.54
+c                               significant figures required  14.15
+c                                    decimal places required  17.34
+c
+      data am21cs( 1) /    .0065809191 761485e0 /
+      data am21cs( 2) /    .0023675984 685722e0 /
+      data am21cs( 3) /    .0001324741 670371e0 /
+      data am21cs( 4) /    .0000157600 904043e0 /
+      data am21cs( 5) /    .0000027529 702663e0 /
+      data am21cs( 6) /    .0000006102 679017e0 /
+      data am21cs( 7) /    .0000001595 088468e0 /
+      data am21cs( 8) /    .0000000471 033947e0 /
+      data am21cs( 9) /    .0000000152 933871e0 /
+      data am21cs(10) /    .0000000053 590722e0 /
+      data am21cs(11) /    .0000000020 000910e0 /
+      data am21cs(12) /    .0000000007 872292e0 /
+      data am21cs(13) /    .0000000003 243103e0 /
+      data am21cs(14) /    .0000000001 390106e0 /
+      data am21cs(15) /    .0000000000 617011e0 /
+      data am21cs(16) /    .0000000000 282491e0 /
+      data am21cs(17) /    .0000000000 132979e0 /
+      data am21cs(18) /    .0000000000 064188e0 /
+      data am21cs(19) /    .0000000000 031697e0 /
+      data am21cs(20) /    .0000000000 015981e0 /
+      data am21cs(21) /    .0000000000 008213e0 /
+      data am21cs(22) /    .0000000000 004296e0 /
+      data am21cs(23) /    .0000000000 002284e0 /
+      data am21cs(24) /    .0000000000 001232e0 /
+      data am21cs(25) /    .0000000000 000675e0 /
+      data am21cs(26) /    .0000000000 000374e0 /
+      data am21cs(27) /    .0000000000 000210e0 /
+      data am21cs(28) /    .0000000000 000119e0 /
+      data am21cs(29) /    .0000000000 000068e0 /
+      data am21cs(30) /    .0000000000 000039e0 /
+      data am21cs(31) /    .0000000000 000023e0 /
+      data am21cs(32) /    .0000000000 000013e0 /
+      data am21cs(33) /    .0000000000 000008e0 /
+      data am21cs(34) /    .0000000000 000005e0 /
+      data am21cs(35) /    .0000000000 000003e0 /
+      data am21cs(36) /    .0000000000 000001e0 /
+      data am21cs(37) /    .0000000000 000001e0 /
+      data am21cs(38) /    .0000000000 000000e0 /
+      data am21cs(39) /    .0000000000 000000e0 /
+      data am21cs(40) /    .0000000000 000000e0 /
+c
+c series for ath1       on the interval -1.25000d-01 to  0.
+c                                        with weighted error   2.53e-17
+c                                         log weighted error  16.60
+c                               significant figures required  15.15
+c                                    decimal places required  17.38
+c
+      data ath1cs( 1) /   -.0712583781 5669365e0 /
+      data ath1cs( 2) /   -.0059047197 9831451e0 /
+      data ath1cs( 3) /   -.0001211454 4069499e0 /
+      data ath1cs( 4) /   -.0000098860 8542270e0 /
+      data ath1cs( 5) /   -.0000013808 4097352e0 /
+      data ath1cs( 6) /   -.0000002614 2640172e0 /
+      data ath1cs( 7) /   -.0000000605 0432589e0 /
+      data ath1cs( 8) /   -.0000000161 8436223e0 /
+      data ath1cs( 9) /   -.0000000048 3464911e0 /
+      data ath1cs(10) /   -.0000000015 7655272e0 /
+      data ath1cs(11) /   -.0000000005 5231518e0 /
+      data ath1cs(12) /   -.0000000002 0545441e0 /
+      data ath1cs(13) /   -.0000000000 8043412e0 /
+      data ath1cs(14) /   -.0000000000 3291252e0 /
+      data ath1cs(15) /   -.0000000000 1399875e0 /
+      data ath1cs(16) /   -.0000000000 0616151e0 /
+      data ath1cs(17) /   -.0000000000 0279614e0 /
+      data ath1cs(18) /   -.0000000000 0130428e0 /
+      data ath1cs(19) /   -.0000000000 0062373e0 /
+      data ath1cs(20) /   -.0000000000 0030512e0 /
+      data ath1cs(21) /   -.0000000000 0015239e0 /
+      data ath1cs(22) /   -.0000000000 0007758e0 /
+      data ath1cs(23) /   -.0000000000 0004020e0 /
+      data ath1cs(24) /   -.0000000000 0002117e0 /
+      data ath1cs(25) /   -.0000000000 0001132e0 /
+      data ath1cs(26) /   -.0000000000 0000614e0 /
+      data ath1cs(27) /   -.0000000000 0000337e0 /
+      data ath1cs(28) /   -.0000000000 0000188e0 /
+      data ath1cs(29) /   -.0000000000 0000105e0 /
+      data ath1cs(30) /   -.0000000000 0000060e0 /
+      data ath1cs(31) /   -.0000000000 0000034e0 /
+      data ath1cs(32) /   -.0000000000 0000020e0 /
+      data ath1cs(33) /   -.0000000000 0000011e0 /
+      data ath1cs(34) /   -.0000000000 0000007e0 /
+      data ath1cs(35) /   -.0000000000 0000004e0 /
+      data ath1cs(36) /   -.0000000000 0000002e0 /
+c
+c series for am22       on the interval -1.00000d+00 to -1.25000d-01
+c                                        with weighted error   2.99e-17
+c                                         log weighted error  16.52
+c                               significant figures required  14.57
+c                                    decimal places required  17.28
+c
+      data am22cs( 1) /   -.0156284448 0625341e0 /
+      data am22cs( 2) /    .0077833644 5239681e0 /
+      data am22cs( 3) /    .0008670577 7047718e0 /
+      data am22cs( 4) /    .0001569662 7315611e0 /
+      data am22cs( 5) /    .0000356396 2571432e0 /
+      data am22cs( 6) /    .0000092459 8335425e0 /
+      data am22cs( 7) /    .0000026211 0161850e0 /
+      data am22cs( 8) /    .0000007918 8221651e0 /
+      data am22cs( 9) /    .0000002510 4152792e0 /
+      data am22cs(10) /    .0000000826 5223206e0 /
+      data am22cs(11) /    .0000000280 5711662e0 /
+      data am22cs(12) /    .0000000097 6821090e0 /
+      data am22cs(13) /    .0000000034 7407923e0 /
+      data am22cs(14) /    .0000000012 5828132e0 /
+      data am22cs(15) /    .0000000004 6298826e0 /
+      data am22cs(16) /    .0000000001 7272825e0 /
+      data am22cs(17) /    .0000000000 6523192e0 /
+      data am22cs(18) /    .0000000000 2490471e0 /
+      data am22cs(19) /    .0000000000 0960156e0 /
+      data am22cs(20) /    .0000000000 0373448e0 /
+      data am22cs(21) /    .0000000000 0146417e0 /
+      data am22cs(22) /    .0000000000 0057826e0 /
+      data am22cs(23) /    .0000000000 0022991e0 /
+      data am22cs(24) /    .0000000000 0009197e0 /
+      data am22cs(25) /    .0000000000 0003700e0 /
+      data am22cs(26) /    .0000000000 0001496e0 /
+      data am22cs(27) /    .0000000000 0000608e0 /
+      data am22cs(28) /    .0000000000 0000248e0 /
+      data am22cs(29) /    .0000000000 0000101e0 /
+      data am22cs(30) /    .0000000000 0000041e0 /
+      data am22cs(31) /    .0000000000 0000017e0 /
+      data am22cs(32) /    .0000000000 0000007e0 /
+      data am22cs(33) /    .0000000000 0000002e0 /
+c
+c series for ath2       on the interval -1.00000d+00 to -1.25000d-01
+c                                        with weighted error   2.57e-17
+c                                         log weighted error  16.59
+c                               significant figures required  15.07
+c                                    decimal places required  17.34
+c
+      data ath2cs( 1) /    .0044052734 5871877e0 /
+      data ath2cs( 2) /   -.0304291945 2318455e0 /
+      data ath2cs( 3) /   -.0013856532 8377179e0 /
+      data ath2cs( 4) /   -.0001804443 9089549e0 /
+      data ath2cs( 5) /   -.0000338084 7108327e0 /
+      data ath2cs( 6) /   -.0000076781 8353522e0 /
+      data ath2cs( 7) /   -.0000019678 3944371e0 /
+      data ath2cs( 8) /   -.0000005483 7271158e0 /
+      data ath2cs( 9) /   -.0000001625 4615505e0 /
+      data ath2cs(10) /   -.0000000505 3049981e0 /
+      data ath2cs(11) /   -.0000000163 1580701e0 /
+      data ath2cs(12) /   -.0000000054 3420411e0 /
+      data ath2cs(13) /   -.0000000018 5739855e0 /
+      data ath2cs(14) /   -.0000000006 4895120e0 /
+      data ath2cs(15) /   -.0000000002 3105948e0 /
+      data ath2cs(16) /   -.0000000000 8363282e0 /
+      data ath2cs(17) /   -.0000000000 3071196e0 /
+      data ath2cs(18) /   -.0000000000 1142367e0 /
+      data ath2cs(19) /   -.0000000000 0429811e0 /
+      data ath2cs(20) /   -.0000000000 0163389e0 /
+      data ath2cs(21) /   -.0000000000 0062693e0 /
+      data ath2cs(22) /   -.0000000000 0024260e0 /
+      data ath2cs(23) /   -.0000000000 0009461e0 /
+      data ath2cs(24) /   -.0000000000 0003716e0 /
+      data ath2cs(25) /   -.0000000000 0001469e0 /
+      data ath2cs(26) /   -.0000000000 0000584e0 /
+      data ath2cs(27) /   -.0000000000 0000233e0 /
+      data ath2cs(28) /   -.0000000000 0000093e0 /
+      data ath2cs(29) /   -.0000000000 0000037e0 /
+      data ath2cs(30) /   -.0000000000 0000015e0 /
+      data ath2cs(31) /   -.0000000000 0000006e0 /
+      data ath2cs(32) /   -.0000000000 0000002e0 /
+c
+      data pi4 / 0.7853981633 9744831 e0 /
+      data nam21, nath1, nam22, nath2, xsml / 4*0, 0.0 /
+c
+      if (nam21.ne.0) go to 10
+      eta = 0.1*r1mach(3)
+      nam21 = inits (am21cs, 40, eta)
+      nath1 = inits (ath1cs, 36, eta)
+      nam22 = inits (am22cs, 33, eta)
+      nath2 = inits (ath2cs, 32, eta)
+c
+      xsml = -(16.0/r1mach(3))**0.3333
+c
+ 10   if (x.ge.(-2.0)) go to 20
+      z = 1.0
+      if (x.gt.xsml) z = 16.0/x**3 + 1.0
+      ampl = 0.3125 + csevl(z, am21cs, nam21)
+      theta = -0.625 + csevl (z, ath1cs, nath1)
+      go to 30
+c
+ 20   if (x.gt.(-1.0)) call seteru (25hr9aimp  x must be le -1.0, 25, 1,
+     1  2)
+c
+      z = (16.0/x**3 + 9.0)/7.0
+      ampl = 0.3125 + csevl (z, am22cs, nam22)
+      theta = -0.625 + csevl (z, ath2cs, nath2)
+c
+ 30   sqrtx = sqrt(-x)
+      ampl = sqrt (ampl/sqrtx)
+      theta = pi4 - x*sqrtx * theta
+c
+      return
+      end
diff --git a/fvn_fnlib/r9atn1.f b/fvn_fnlib/r9atn1.f
new file mode 100644
index 0000000..d48c863
--- /dev/null
+++ b/fvn_fnlib/r9atn1.f
@@ -0,0 +1,67 @@
+      function r9atn1 (x)
+c april 1978 edition.  w. fullerton c3, los alamos scientific lab.
+c
+c evaluate  atan(x)  from first order, that is, evaluate
+c (atan(x)-x)/x**3  with relative error accuracy so that
+c        atan(x) = x + x**3*r9atn1(x).
+c
+      dimension atn1cs(21)
+      external  csevl, inits, r1mach
+c
+c series for atn1       on the interval  0.          to  1.00000d+00
+c                                        with weighted error   2.21e-17
+c                                         log weighted error  16.66
+c                               significant figures required  15.44
+c                                    decimal places required  17.32
+c
+      data atn1cs( 1) /   -.0328399753 5355202e0 /
+      data atn1cs( 2) /    .0583343234 3172412e0 /
+      data atn1cs( 3) /   -.0074003696 9671964e0 /
+      data atn1cs( 4) /    .0010097841 9933728e0 /
+      data atn1cs( 5) /   -.0001439787 1635652e0 /
+      data atn1cs( 6) /    .0000211451 2648992e0 /
+      data atn1cs( 7) /   -.0000031723 2107425e0 /
+      data atn1cs( 8) /    .0000004836 6203654e0 /
+      data atn1cs( 9) /   -.0000000746 7746546e0 /
+      data atn1cs(10) /    .0000000116 4800896e0 /
+      data atn1cs(11) /   -.0000000018 3208837e0 /
+      data atn1cs(12) /    .0000000002 9019082e0 /
+      data atn1cs(13) /   -.0000000000 4623885e0 /
+      data atn1cs(14) /    .0000000000 0740552e0 /
+      data atn1cs(15) /   -.0000000000 0119135e0 /
+      data atn1cs(16) /    .0000000000 0019240e0 /
+      data atn1cs(17) /   -.0000000000 0003118e0 /
+      data atn1cs(18) /    .0000000000 0000506e0 /
+      data atn1cs(19) /   -.0000000000 0000082e0 /
+      data atn1cs(20) /    .0000000000 0000013e0 /
+      data atn1cs(21) /   -.0000000000 0000002e0 /
+c
+      data ntatn1, xsml, xbig, xmax / 0, 3*0.0 /
+c
+      if (ntatn1.ne.0) go to 10
+      eps = r1mach(3)
+      ntatn1 = inits (atn1cs, 21, 0.1*eps)
+c
+      xsml = sqrt (0.1*eps)
+      xbig = 1.571/sqrt(eps)
+      xmax = 1.571/eps
+c
+ 10   y = abs(x)
+      if (y.gt.1.0) go to 20
+c
+      if (y.le.xsml) r9atn1 = -1.0/3.0
+      if (y.le.xsml) return
+c
+      r9atn1 = -0.25 + csevl (2.0*y*y-1., atn1cs, ntatn1)
+      return
+c
+ 20   if (y.gt.xmax) call seteru (
+     1  51hr9atn1  no precision in answer because x is too big, 51,2,2)
+      if (y.gt.xbig) call seteru (
+     1  53hr9atn1  answer lt half precision because x is too big, 53,
+     2  1, 1)
+c
+      r9atn1 = (atan(x) - x) / x**3
+      return
+c
+      end
diff --git a/fvn_fnlib/r9chm.f b/fvn_fnlib/r9chm.f
new file mode 100644
index 0000000..8d96273
--- /dev/null
+++ b/fvn_fnlib/r9chm.f
@@ -0,0 +1,49 @@
+      function r9chm (a, c, x)
+      real a, c, x, aa(4), bb(4), ct1, ct2, eps,
+     1  g1, g2, g3, x2, xn0, xn1, xn2, xn3
+      external r1mach
+c
+      data eps /0.0/
+c
+      if (eps.eq.0.0) eps = 4.0*r1mach(4)
+c
+ 10   aa(1) = 1.0
+      bb(1) = 1.0
+c
+      x2 = -0.5*x
+      bb(2) = 1.0 + (1.0+a)*x2/c
+      aa(2) = bb(2) + a*x/c
+c
+      ct2 = x2/(1.0+c)
+      bb(3) = 1.0 + (2.0+bb(2))*(2.0+a)*ct2/3.0
+      aa(3) = bb(3) + (1.0+ct2)*a*x/c
+c
+      do 30 i=3,300
+        xn0 = i
+        xn1 = i - 1
+        xn2 = i - 2
+        xn3 = i - 3
+        ct1 = 2*i - 3
+c
+        ct2 = x2/(ct1*(c+xn1))
+        g1 = 1.0 + ct2*(xn2-a)
+        ct2 = ct2*(a+xn1)/(c+xn2)
+        g2 = ct2*(c-xn1+(a+xn0)*x2/(ct1+2.0))
+        g3 = ct2*x2*x2*(a+xn2)*(a-xn2)/(ct1*(ct1-2.0)*(c+xn3))
+c
+        bb(4) = g1*bb(3) + g2*bb(2) + g3*bb(1)
+        aa(4) = g1*aa(3) + g2*aa(2) + g3*aa(1)
+c
+        r9chm = aa(4)/bb(4)
+        if (abs(r9chm-aa(1)/bb(1)).lt.eps*abs(r9chm)) go to 40
+c
+        do 20 j=1,3
+          aa(j) = aa(j+1)
+          bb(j) = bb(j+1)
+ 20     continue
+ 30   continue
+      call seteru (40hr9chm   no convergence in 300 iterations, 40,
+     1    1, 2)
+c
+ 40   return
+      end
diff --git a/fvn_fnlib/r9chu.f b/fvn_fnlib/r9chu.f
new file mode 100644
index 0000000..342b9fb
--- /dev/null
+++ b/fvn_fnlib/r9chu.f
@@ -0,0 +1,70 @@
+      function r9chu (a, b, z)
+c august 1977 edition.  w. fullerton, c3, los alamos scientific lab.
+c
+c evaluate for large z  z**a * u(a,b,z)  where u is the logarithmic
+c confluent hypergeometric function.  a rational approximation due to y.
+c l. luke is used.  when u is not in the asymptotic region, i.e., when a
+c or b is large compared with z, considerable significance loss occurs.
+c a warning is provided when the computed result is less than half
+c precision.
+c
+      dimension aa(4), bb(4)
+      external r1mach
+      data eps, sqeps / 2*0.0 /
+c
+      if (eps.ne.0.0) go to 10
+      eps = 4.0*r1mach(4)
+      sqeps = sqrt (r1mach(4))
+c
+ 10   bp = 1.0 + a - b
+      ab = a*bp
+      ct2 = 2.0*(z-ab)
+      sab = a + bp
+c
+      bb(1) = 1.0
+      aa(1) = 1.0
+c
+      ct3 = sab + 1.0 + ab
+      bb(2) = 1.0 + 2.0*z/ct3
+      aa(2) = 1.0 + ct2/ct3
+c
+      anbn = ct3 + sab + 3.0
+      ct1 = 1.0 + 2.0*z/anbn
+      bb(3) = 1.0 + 6.0*ct1*z/ct3
+      aa(3) = 1.0 + 6.0*ab/anbn + 3.0*ct1*ct2/ct3
+c
+      do 30 i=4,300
+        x2i1 = 2*i - 3
+        ct1 = x2i1/(x2i1-2.0)
+        anbn = anbn + x2i1 + sab
+        ct2 = (x2i1 - 1.0) / anbn
+        c2 = x2i1*ct2 - 1.0
+        d1z = x2i1*2.0*z/anbn
+c
+        ct3 = sab*ct2
+        g1 = d1z + ct1*(c2+ct3)
+        g2 = d1z - c2
+        g3 = ct1*(1.0 - ct3 - 2.0*ct2)
+c
+        bb(4) = g1*bb(3) + g2*bb(2) + g3*bb(1)
+        aa(4) = g1*aa(3) + g2*aa(2) + g3*aa(1)
+c
+        r9chu = aa(4)/bb(4)
+        if (abs(r9chu-aa(1)/bb(1)).lt.eps*abs(r9chu)) go to 40
+c
+c if overflows or underflows prove to be a problem, the statements
+c below could be altered to incorporate a dynamically adjusted scale
+c factor.
+c
+        do 20 j=1,3
+          bb(j) = bb(j+1)
+          aa(j) = aa(j+1)
+ 20     continue
+ 30   continue
+      call seteru (35hr9chu   no convergence in 300 terms, 35, 1, 2)
+c
+ 40   if (r9chu.lt.sqeps .or. r9chu.gt.1.0/sqeps) call seteru (
+     1  32hr9chu   answer lt half precision, 32, 2, 1)
+c
+      return
+      end
diff --git a/fvn_fnlib/r9gaml.f b/fvn_fnlib/r9gaml.f
new file mode 100644
index 0000000..3059ab3
--- /dev/null
+++ b/fvn_fnlib/r9gaml.f
@@ -0,0 +1,44 @@
+      subroutine r9gaml (xmin, xmax)
+c april 1977 version.  w. fullerton, c3, los alamos scientific lab.
+c
+c calculate the minimum and maximum legal bounds for x in gamma(x).
+c xmin and xmax are not the only bounds, but they are the only non-
+c trivial ones to calculate.
+c
+c             output arguments --
+c xmin   minimum legal value of x in gamma(x).  any smaller value of
+c        x might result in underflow.
+c xmax   maximum legal value of x in gamma(x).  any larger value will
+c        cause overflow.
+c
+      external  r1mach
+c
+      alnsml = alog(r1mach(1))
+      xmin = -alnsml
+      do 10 i=1,10
+        xold = xmin
+        xln = alog(xmin)
+        xmin = xmin - xmin*((xmin+0.5)*xln - xmin - 0.2258 + alnsml)
+     1    / (xmin*xln + 0.5)
+        if (abs(xmin-xold).lt.0.005) go to 20
+ 10   continue
+      call seteru (27hr9gaml  unable to find xmin, 27, 1, 2)
+c
+ 20   xmin = -xmin + 0.01
+c
+      alnbig = alog(r1mach(2))
+      xmax = alnbig
+      do 30 i=1,10
+        xold = xmax
+        xln = alog(xmax)
+        xmax = xmax - xmax*((xmax-0.5)*xln - xmax + 0.9189 - alnbig)
+     1    / (xmax*xln - 0.5)
+        if (abs(xmax-xold).lt.0.005) go to 40
+ 30   continue
+      call seteru (27hr9gaml  unable to find xmax, 27, 2, 2)
+c
+ 40   xmax = xmax - 0.01
+      xmin = amax1 (xmin, -xmax+1.)
+c
+      return
+      end
diff --git a/fvn_fnlib/r9gmic.f b/fvn_fnlib/r9gmic.f
new file mode 100644
index 0000000..4ce2a0f
--- /dev/null
+++ b/fvn_fnlib/r9gmic.f
@@ -0,0 +1,70 @@
+      function r9gmic (a, x, alx)
+c july 1977 edition.  w. fullerton, c3, los alamos scientific lab.
+c
+c compute the complementary incomplete gamma function for a near
+c a negative integer and for small x.
+c
+      external alngam, r1mach
+      data euler / .5772156649 015329 e0 /
+      data eps, bot / 2*0.0 /
+c
+      if (eps.eq.0.0) eps = 0.5*r1mach(3)
+      if (bot.eq.0.0) bot = alog(r1mach(1))
+c
+      if (a.gt.0.0) call seteru (
+     1  41hr9gmic  a must be near a negative integer, 41, 2, 2)
+      if (x.le.0.0) call seteru (25hr9gmic  x must be gt zero, 25, 3, 2)
+c
+      ma = a - 0.5
+      fm = -ma
+      m = -ma
+c
+      te = 1.0
+      t = 1.0
+      s = t
+      do 20 k=1,200
+        fkp1 = k + 1
+        te = -x*te/(fm+fkp1)
+        t = te/fkp1
+        s = s + t
+        if (abs(t).lt.eps*s) go to 30
+ 20   continue
+      call seteru (57hr9gmic  no convergence in 200 terms of continued f
+     1raction, 57, 4, 2)
+c
+ 30   r9gmic = -alx - euler + x*s/(fm+1.0)
+      if (m.eq.0) return
+c
+      if (m.eq.1) r9gmic = -r9gmic - 1.0 + 1.0/x
+      if (m.eq.1) return
+c
+      te = fm
+      t = 1.0
+      s = t
+      mm1 = m - 1
+      do 40 k=1,mm1
+        fk = k
+        te = -x*te/fk
+        t = te/(fm-fk)
+        s = s + t
+        if (abs(t).lt.eps*abs(s)) go to 50
+ 40   continue
+c
+ 50   do 60 k=1,m
+        r9gmic = r9gmic + 1.0/float(k)
+ 60   continue
+c
+      sgng = 1.0
+      if (mod(m,2).eq.1) sgng = -1.0
+      alng = alog(r9gmic) - alngam(fm+1.0)
+c
+      r9gmic = 0.0
+      if (alng.gt.bot) r9gmic = sgng*exp(alng)
+      if (s.ne.0.0) r9gmic = r9gmic + sign (exp(-fm*alx+alog(abs(s)/fm))
+     1  , s)
+c
+      if (r9gmic.eq.0.0 .and. s.eq.0.0) call seteru (
+     1  25hr9gmic  result underflows, 25, 1, 0)
+      return
+c
+      end
diff --git a/fvn_fnlib/r9gmit.f b/fvn_fnlib/r9gmit.f
new file mode 100644
index 0000000..e05fea8
--- /dev/null
+++ b/fvn_fnlib/r9gmit.f
@@ -0,0 +1,62 @@
+      function r9gmit (a, x, algap1, sgngam, alx)
+c july 1977 edition.  w. fullerton, c3, los alamos scientific lab.
+c
+c compute tricomi-s incomplete gamma function for small x.
+c
+      external alngam, r1mach
+      data eps, bot / 2*0.0 /
+c
+      if (eps.eq.0.0) eps = 0.5*r1mach(3)
+      if (bot.eq.0.0) bot = alog(r1mach(1))
+c
+      if (x.le.0.0) call seteru (24hr9gmit  x should be gt 0, 24, 1, 2)
+c
+      ma = a + 0.5
+      if (a.lt.0.0) ma = a - 0.5
+      aeps = a - float(ma)
+c
+      ae = a
+      if (a.lt.(-0.5)) ae = aeps
+c
+      t = 1.0
+      te = ae
+      s = t
+      do 20 k=1,200
+        fk = k
+        te = -x*te/fk
+        t = te/(ae+fk)
+        s = s + t
+        if (abs(t).lt.eps*abs(s)) go to 30
+ 20   continue
+      call seteru (54hr9gmit  no convergence in 200 terms of taylor-s se
+     1ries, 54, 2, 2)
+c
+ 30   if (a.ge.(-0.5)) algs = -algap1 + alog(s)
+      if (a.ge.(-0.5)) go to 60
+c
+      algs = -alngam(1.0+aeps) + alog(s)
+      s = 1.0
+      m = -ma - 1
+      if (m.eq.0) go to 50
+      t = 1.0
+      do 40 k=1,m
+        t = x*t/(aeps-float(m+1-k))
+        s = s + t
+        if (abs(t).lt.eps*abs(s)) go to 50
+ 40   continue
+c
+ 50   r9gmit = 0.0
+      algs = -float(ma)*alog(x) + algs
+      if (s.eq.0.0 .or. aeps.eq.0.0) go to 60
+c
+      sgng2 = sgngam*sign(1.0,s)
+      alg2 = -x - algap1 + alog(abs(s))
+c
+      if (alg2.gt.bot) r9gmit = sgng2*exp(alg2)
+      if (algs.gt.bot) r9gmit = r9gmit + exp(algs)
+      return
+c
+ 60   r9gmit = exp(algs)
+      return
+c
+      end
diff --git a/fvn_fnlib/r9knus.f b/fvn_fnlib/r9knus.f
new file mode 100644
index 0000000..327130e
--- /dev/null
+++ b/fvn_fnlib/r9knus.f
@@ -0,0 +1,195 @@
+      subroutine r9knus (xnu, x, bknu, bknu1, iswtch)
+c june 1977 edition.   w. fullerton, c3, los alamos scientific lab.
+c
+c compute bessel functions exp(x) * k-sub-xnu (x)  and
+c exp(x) * k-sub-xnu+1 (x) for 0.0 .le. xnu .lt. 1.0 .
+c
+      dimension alpha(15), beta(15), a(15), c0kcs(16), znu1cs(12)
+      external csevl,gamma, inits, r1mach
+c
+c series for c0k        on the interval  0.          to  2.50000d-01
+c                                        with weighted error   1.60e-17
+c                                         log weighted error  16.79
+c                               significant figures required  15.99
+c                                    decimal places required  17.40
+c
+      data c0k cs( 1) /    .0601830572 42626108e0 /
+      data c0k cs( 2) /   -.1536487143 3017286e0 /
+      data c0k cs( 3) /   -.0117511760 08210492e0 /
+      data c0k cs( 4) /   -.0008524878 88919795e0 /
+      data c0k cs( 5) /   -.0000613298 38767496e0 /
+      data c0k cs( 6) /   -.0000044052 28124551e0 /
+      data c0k cs( 7) /   -.0000003163 12467283e0 /
+      data c0k cs( 8) /   -.0000000227 10719382e0 /
+      data c0k cs( 9) /   -.0000000016 30564460e0 /
+      data c0k cs(10) /   -.0000000001 17069392e0 /
+      data c0k cs(11) /   -.0000000000 08405206e0 /
+      data c0k cs(12) /   -.0000000000 00603466e0 /
+      data c0k cs(13) /   -.0000000000 00043326e0 /
+      data c0k cs(14) /   -.0000000000 00003110e0 /
+      data c0k cs(15) /   -.0000000000 00000223e0 /
+      data c0k cs(16) /   -.0000000000 00000016e0 /
+c
+c series for znu1       on the interval -7.00000d-01 to  0.
+c                                        with weighted error   1.43e-17
+c                                         log weighted error  16.85
+c                               significant figures required  16.08
+c                                    decimal places required  17.38
+c
+      data znu1cs( 1) /    .2033067569 9419173e0 /
+      data znu1cs( 2) /    .1400779334 1321977e0 /
+      data znu1cs( 3) /    .0079167969 61001613e0 /
+      data znu1cs( 4) /    .0003398011 82532104e0 /
+      data znu1cs( 5) /    .0000117419 75688989e0 /
+      data znu1cs( 6) /    .0000003393 57570612e0 /
+      data znu1cs( 7) /    .0000000084 25941769e0 /
+      data znu1cs( 8) /    .0000000001 83336677e0 /
+      data znu1cs( 9) /    .0000000000 03549698e0 /
+      data znu1cs(10) /    .0000000000 00061903e0 /
+      data znu1cs(11) /    .0000000000 00000981e0 /
+      data znu1cs(12) /    .0000000000 00000014e0 /
+c
+      data euler / 0.5772156649 0153286e0 /
+      data sqpi2 / 1.253314137 3155003e0 /
+      data aln2 / 0.693147180 55994531e0 /
+      data ntc0k, ntznu1 / 2*0 /
+      data xnusml, xsml, alnsml, alnbig, alneps / 5*0.0 /
+c
+      if (ntc0k.ne.0) go to 10
+      ntc0k = inits (c0kcs, 16, 0.1*r1mach(3))
+      ntznu1 = inits (znu1cs, 12, 0.1*r1mach(3))
+c
+      xnusml = sqrt (r1mach(3)/8.0)
+      xsml = 0.1*r1mach(3)
+      alnsml = alog (r1mach(1))
+      alnbig = alog (r1mach(2))
+      alneps = alog (0.1*r1mach(3))
+c
+ 10   if (xnu.lt.0. .or. xnu.ge.1.0) call seteru (
+     1  33hr9knus  xnu must be ge 0 and lt 1, 33, 1, 2)
+      if (x.le.0.) call seteru (22hr9knus  x must be gt 0, 22, 2, 2)
+c
+      iswtch = 0
+      if (x.gt.2.0) go to 50
+c
+c x is small.  compute k-sub-xnu (x) and the derivative of k-sub-xnu (x)
+c then find k-sub-xnu+1 (x).  xnu is reduced to the interval (-.5,+.5)
+c then to (0., .5), because k of negative order (-nu) = k of positive
+c order (+nu).
+c
+      v = xnu
+      if (xnu.gt.0.5) v = 1.0 - xnu
+c
+c carefully find (x/2)**xnu and z**xnu where z = x*x/4.
+      alnz = 2.0 * (alog(x) - aln2)
+c
+      if (x.gt.xnu) go to 20
+      if (-0.5*xnu*alnz-aln2-alog(xnu).gt.alnbig) call seteru (
+     1  45hr9knus  x so small bessel k-sub-xnu overflows, 45, 3, 2)
+c
+ 20   vlnz = v*alnz
+      x2tov = exp (0.5*vlnz)
+      ztov = 0.0
+      if (vlnz.gt.alnsml) ztov = x2tov**2
+c
+      a0 = 0.5*gamma(1.0+v)
+      b0 = 0.5*gamma(1.0-v)
+      c0 = -euler
+      if (ztov.gt.0.5 .and. v.gt.xnusml) c0 = -0.75 +
+     1  csevl ((8.0*v)*v-1., c0kcs, ntc0k)
+c
+      if (ztov.le.0.5) alpha(1) = (a0-ztov*b0)/v
+      if (ztov.gt.0.5) alpha(1) = c0 - alnz*(0.75 +
+     1  csevl (vlnz/0.35+1.0, znu1cs, ntznu1))*b0
+      beta(1) = -0.5*(a0+ztov*b0)
+c
+      z = 0.0
+      if (x.gt.xsml) z = 0.25*x*x
+      nterms = max1 (2.0, 11.0+(8.*alnz-25.19-alneps)/(4.28-alnz))
+      do 30 i=2,nterms
+        xi = i - 1
+        a0 = a0/(xi*(xi-v))
+        b0 = b0/(xi*(xi+v))
+        alpha(i) = (alpha(i-1)+2.0*xi*a0)/(xi*(xi+v))
+        beta(i) = (xi-0.5*v)*alpha(i) - ztov*b0
+ 30   continue
+c
+      bknu = alpha(nterms)
+      bknud = beta(nterms)
+      do 40 ii=2,nterms
+        i = nterms + 1 - ii
+        bknu = alpha(i) + bknu*z
+        bknud = beta(i) + bknud*z
+ 40   continue
+c
+      expx = exp(x)
+      bknu = expx*bknu/x2tov
+c
+      if (-0.5*(xnu+1.)*alnz-2.0*aln2.gt.alnbig) iswtch = 1
+      if (iswtch.eq.1) return
+      bknud = expx*bknud*2.0/(x2tov*x)
+c
+      if (xnu.le.0.5) bknu1 = v*bknu/x - bknud
+      if (xnu.le.0.5) return
+c
+      bknu0 = bknu
+      bknu = -v*bknu/x - bknud
+      bknu1 = 2.0*xnu*bknu/x + bknu0
+      return
+c
+c x is large.  find k-sub-xnu (x) and k-sub-xnu+1 (x) with y. l. luke-s
+c rational expansion.
+c
+ 50   sqrtx = sqrt(x)
+      if (x.gt.1.0/xsml) go to 90
+      an = -1.56 + 4.0/x
+      bn = -0.29 - 0.22/x
+      nterms = min0 (15, max1 (3., an+bn*alneps))
+c
+      do 80 inu=1,2
+        xmu = 0.
+        if (inu.eq.1 .and. xnu.gt.xnusml) xmu = (4.0*xnu)*xnu
+        if (inu.eq.2) xmu = 4.0*(abs(xnu)+1.)**2
+c
+        a(1) = 1.0 - xmu
+        a(2) = 9.0 - xmu
+        a(3) = 25.0 - xmu
+        if (a(2).eq.0.) result = sqpi2*(16.*x+xmu+7.)/(16.*x*sqrtx)
+        if (a(2).eq.0.) go to 70
+c
+        alpha(1) = 1.0
+        alpha(2) = (16.*x+a(2))/a(2)
+        alpha(3) = ((768.*x+48.*a(3))*x + a(2)*a(3))/(a(2)*a(3))
+c
+        beta(1) = 1.0
+        beta(2) = (16.*x+(xmu+7.))/a(2)
+        beta(3) = ((768.*x+48.*(xmu+23.))*x + ((xmu+62.)*xmu+129.))
+     1    / (a(2)*a(3))
+c
+        if (nterms.lt.4) go to 65
+        do 60 i=4,nterms
+          n = i - 1
+          x2n = 2*n - 1
+c
+          a(i) = (x2n+2.)**2 - xmu
+          qq = 16.*x2n/a(i)
+          p1 = -x2n*(float(12*n*n-20*n)-a(1))/((x2n-2.)*a(i)) - qq*x
+          p2 = (float(12*n*n-28*n+8)-a(1))/a(i) - qq*x
+          p3 = -x2n*a(i-3)/((x2n-2.)*a(i))
+c
+          alpha(i) = -p1*alpha(i-1) - p2*alpha(i-2) - p3*alpha(i-3)
+          beta(i) = -p1*beta(i-1) - p2*beta(i-2) - p3*beta(i-3)
+ 60     continue
+c
+ 65     result = sqpi2*beta(nterms)/(sqrtx*alpha(nterms))
+c
+ 70     if (inu.eq.1) bknu = result
+        if (inu.eq.2) bknu1 = result
+ 80   continue
+      return
+c
+ 90   bknu = sqpi2/sqrtx
+      bknu1 = bknu
+      return
+c
+      end
diff --git a/fvn_fnlib/r9lgic.f b/fvn_fnlib/r9lgic.f
new file mode 100644
index 0000000..900eabc
--- /dev/null
+++ b/fvn_fnlib/r9lgic.f
@@ -0,0 +1,32 @@
+      function r9lgic (a, x, alx)
+c july 1977 edition.  w. fullerton, c3, los alamos scientific lab.
+c
+c compute the log complementary incomplete gamma function for large x
+c and for a .le. x.
+c
+      external r1mach
+      data eps / 0.0 /
+c
+      if (eps.eq.0.0) eps = 0.5*r1mach(3)
+c
+      xpa = x + 1.0 - a
+      xma = x - 1.0 - a
+c
+      r = 0.0
+      p = 1.0
+      s = p
+      do 10 k=1,200
+        fk = k
+        t = fk*(a-fk)*(1.0+r)
+        r = -t/((xma+2.0*fk)*(xpa+2.0*fk)+t)
+        p = r*p
+        s = s + p
+        if (abs(p).lt.eps*s) go to 20
+ 10   continue
+      call seteru (57hr9lgic  no convergence in 200 terms of continued f
+     1raction, 57, 1, 2)
+c
+ 20   r9lgic = a*alx - x + alog(s/xpa)
+c
+      return
+      end
diff --git a/fvn_fnlib/r9lgit.f b/fvn_fnlib/r9lgit.f
new file mode 100644
index 0000000..df8a84f
--- /dev/null
+++ b/fvn_fnlib/r9lgit.f
@@ -0,0 +1,39 @@
+      function r9lgit (a, x, algap1)
+c july 1977 edition.  w. fullerton, c3, los alamos scientific lab.
+c
+c compute the log of tricomi-s incomplete gamma function with perron-s
+c continued fraction for large x and for a .ge. x.
+c
+      external r1mach
+      data eps, sqeps / 2*0.0 /
+c
+      if (eps.eq.0.0) eps = 0.5*r1mach(3)
+      if (sqeps.eq.0.0) sqeps = sqrt(r1mach(4))
+c
+      if (x.le.0.0 .or. a.lt.x) call seteru (
+     1  35hr9lgit  x should be gt 0.0 and le a, 35, 2, 2)
+c
+      ax = a + x
+      a1x = ax + 1.0
+      r = 0.0
+      p = 1.0
+      s = p
+      do 20 k=1,200
+        fk = k
+        t = (a+fk)*x*(1.0+r)
+        r = t/((ax+fk)*(a1x+fk)-t)
+        p = r*p
+        s = s + p
+        if (abs(p).lt.eps*s) go to 30
+ 20   continue
+      call seteru (57hr9lgit  no convergence in 200 terms of continued f
+     1raction, 57, 3, 2)
+c
+ 30   hstar = 1.0 - x*s/a1x
+      if (hstar.lt.sqeps) call seteru (
+     1  39hr9lgit  result less than half precision, 39, 1, 1)
+c
+      r9lgit = -x - algap1 - alog(hstar)
+c
+      return
+      end
diff --git a/fvn_fnlib/r9lgmc.f b/fvn_fnlib/r9lgmc.f
new file mode 100644
index 0000000..41603eb
--- /dev/null
+++ b/fvn_fnlib/r9lgmc.f
@@ -0,0 +1,41 @@
+      function r9lgmc (x)
+c august 1977 edition.  w. fullerton, c3, los alamos scientific lab.
+c
+c compute the log gamma correction factor for x .ge. 10.0 so that
+c  alog (gamma(x)) = alog(sqrt(2*pi)) + (x-.5)*alog(x) - x + r9lgmc(x)
+c
+      dimension algmcs(6)
+      external csevl,inits, r1mach
+c
+c series for algm       on the interval  0.          to  1.00000d-02
+c                                        with weighted error   3.40e-16
+c                                         log weighted error  15.47
+c                               significant figures required  14.39
+c                                    decimal places required  15.86
+c
+      data algmcs( 1) /    .1666389480 45186e0 /
+      data algmcs( 2) /   -.0000138494 817606e0 /
+      data algmcs( 3) /    .0000000098 108256e0 /
+      data algmcs( 4) /   -.0000000000 180912e0 /
+      data algmcs( 5) /    .0000000000 000622e0 /
+      data algmcs( 6) /   -.0000000000 000003e0 /
+c
+      data nalgm, xbig, xmax / 0, 2*0.0 /
+c
+      if (nalgm.ne.0) go to 10
+      nalgm = inits (algmcs, 6, r1mach(3))
+      xbig = 1.0/sqrt(r1mach(3))
+      xmax = exp (amin1(alog(r1mach(2)/12.0), -alog(12.0*r1mach(1))) )
+c
+ 10   if (x.lt.10.0) call seteru (23hr9lgmc  x must be ge 10, 23, 1, 2)
+      if (x.ge.xmax) go to 20
+c
+      r9lgmc = 1.0/(12.0*x)
+      if (x.lt.xbig) r9lgmc = csevl (2.0*(10./x)**2-1., algmcs, nalgm)/x
+      return
+c
+ 20   r9lgmc = 0.0
+      call seteru (34hr9lgmc  x so big r9lgmc underflows, 34, 2, 0)
+      return
+c
+      end
diff --git a/fvn_fnlib/r9ln2r.f b/fvn_fnlib/r9ln2r.f
new file mode 100644
index 0000000..03509ce
--- /dev/null
+++ b/fvn_fnlib/r9ln2r.f
@@ -0,0 +1,104 @@
+      function r9ln2r (x)
+c april 1978 edition.  w. fullerton c3, los alamos scientific lab.
+c
+c evaluate  alog(1+x)  from 2-nd order with relative error accuracy so
+c that    alog(1+x) = x - x**2/2 + x**3*r9ln2r(x)
+c
+      real ln21cs(26), ln22cs(20)
+      external csevl, inits, r1mach
+c
+c series for ln21       on the interval -6.25000d-01 to  0.
+c                                        with weighted error   2.49e-17
+c                                         log weighted error  16.60
+c                               significant figures required  15.87
+c                                    decimal places required  17.31
+c
+      data ln21cs( 1) /    .1811196251 3478810e0 /
+      data ln21cs( 2) /   -.1562712319 2872463e0 /
+      data ln21cs( 3) /    .0286763053 61557275e0 /
+      data ln21cs( 4) /   -.0055586996 55948139e0 /
+      data ln21cs( 5) /    .0011178976 65229983e0 /
+      data ln21cs( 6) /   -.0002308050 89823279e0 /
+      data ln21cs( 7) /    .0000485988 53341100e0 /
+      data ln21cs( 8) /   -.0000103901 27388903e0 /
+      data ln21cs( 9) /    .0000022484 56370739e0 /
+      data ln21cs(10) /   -.0000004914 05927392e0 /
+      data ln21cs(11) /    .0000001082 82565070e0 /
+      data ln21cs(12) /   -.0000000240 25872763e0 /
+      data ln21cs(13) /    .0000000053 62460047e0 /
+      data ln21cs(14) /   -.0000000012 02995136e0 /
+      data ln21cs(15) /    .0000000002 71078892e0 /
+      data ln21cs(16) /   -.0000000000 61323562e0 /
+      data ln21cs(17) /    .0000000000 13920858e0 /
+      data ln21cs(18) /   -.0000000000 03169930e0 /
+      data ln21cs(19) /    .0000000000 00723837e0 /
+      data ln21cs(20) /   -.0000000000 00165700e0 /
+      data ln21cs(21) /    .0000000000 00038018e0 /
+      data ln21cs(22) /   -.0000000000 00008741e0 /
+      data ln21cs(23) /    .0000000000 00002013e0 /
+      data ln21cs(24) /   -.0000000000 00000464e0 /
+      data ln21cs(25) /    .0000000000 00000107e0 /
+      data ln21cs(26) /   -.0000000000 00000024e0 /
+c
+c series for ln22       on the interval  0.          to  8.12500d-01
+c                                        with weighted error   1.42e-17
+c                                         log weighted error  16.85
+c                               significant figures required  15.95
+c                                    decimal places required  17.50
+c
+      data ln22cs( 1) /   -.2224253253 5020461e0 /
+      data ln22cs( 2) /   -.0610471001 08078624e0 /
+      data ln22cs( 3) /    .0074272350 09750394e0 /
+      data ln22cs( 4) /   -.0009335018 26163697e0 /
+      data ln22cs( 5) /    .0001200499 07687260e0 /
+      data ln22cs( 6) /   -.0000157047 22952820e0 /
+      data ln22cs( 7) /    .0000020818 74781051e0 /
+      data ln22cs( 8) /   -.0000002789 19557764e0 /
+      data ln22cs( 9) /    .0000000376 93558237e0 /
+      data ln22cs(10) /   -.0000000051 30902896e0 /
+      data ln22cs(11) /    .0000000007 02714117e0 /
+      data ln22cs(12) /   -.0000000000 96748595e0 /
+      data ln22cs(13) /    .0000000000 13381046e0 /
+      data ln22cs(14) /   -.0000000000 01858102e0 /
+      data ln22cs(15) /    .0000000000 00258929e0 /
+      data ln22cs(16) /   -.0000000000 00036195e0 /
+      data ln22cs(17) /    .0000000000 00005074e0 /
+      data ln22cs(18) /   -.0000000000 00000713e0 /
+      data ln22cs(19) /    .0000000000 00000100e0 /
+      data ln22cs(20) /   -.0000000000 00000014e0 /
+c
+      data ntln21, ntln22, xmin, xbig, xmax / 2*0, 3*0.0 /
+c
+      if (ntln21.ne.0) go to 10
+      eps = r1mach(3)
+      ntln21 = inits (ln21cs, 26, 0.1*eps)
+      ntln22 = inits (ln22cs, 20, 0.1*eps)
+c
+      xmin = -1.0 + sqrt(r1mach(4))
+      sqeps = sqrt(eps)
+      xmax = 6.0/sqeps
+      xmax = xmax - (eps*xmax**2 - 2.0*alog(xmax)) / (2.0*eps*xmax)
+      xbig = 4.0/sqrt(sqeps)
+      xbig = xbig - (sqeps*xbig**2 - 2.0*alog(xbig)) / (2.*sqeps*xbig)
+c
+ 10   if (x.lt.(-0.625) .or. x.gt.0.8125) go to 20
+c
+      if (x.lt.0.0) r9ln2r = 0.375 + csevl (16.*x/5.+1.0, ln21cs,
+     1  ntln21)
+      if (x.ge.0.0) r9ln2r = 0.375 + csevl (32.*x/13.-1.0, ln22cs,
+     1  ntln22)
+      return
+c
+ 20   if (x.lt.xmin) call seteru (
+     1  57hr9ln2r  answer lt half precision because x is too near -1,
+     2  57, 1, 1)
+      if (x.gt.xmax) call seteru (
+     1  51hr9ln2r  no precision in answer because x is too big, 51,3,2)
+      if (x.gt.xbig) call seteru (
+     1  53hr9ln2r  answer lt half precision because x is too big, 53,
+     2  2, 1)
+c
+      r9ln2r = (alog(1.0+x) - x*(1.0-0.5*x) ) / x**3
+      return
+c
+      end
diff --git a/fvn_fnlib/r9pak.f b/fvn_fnlib/r9pak.f
new file mode 100644
index 0000000..813db2b
--- /dev/null
+++ b/fvn_fnlib/r9pak.f
@@ -0,0 +1,44 @@
+      function r9pak (y, n)
+c december 1979 edition. w. fullerton, c3, los alamos scientific lab.
+c
+c pack a base 2 exponent into floating point number x.  this routine
+c is almost the inverse of r9upak.  it is not exactly the inverse,
+c because abs(x) need not be between 0.5 and 1.0.  if both r9pak and
+c 2.0**n were known to be in range, we could compute
+c             r9pak = x * 2.0**n .
+c
+      external i1mach, r1mach
+      data nmin, nmax / 2*0 /
+      data aln210 / 3.321928094 887362 e0 /
+c
+      if (nmin.ne.0) go to 10
+      aln2b = 1.0
+      if (i1mach(10).ne.2) aln2b = r1mach(5)*aln210
+      nmin = aln2b*float(i1mach(12))
+      nmax = aln2b*float(i1mach(13))
+c
+ 10   call r9upak (y, r9pak, ny)
+c
+      nsum = n + ny
+      if (nsum.lt.nmin) go to 40
+      if (nsum.gt.nmax) call seteru (
+     1  31hr9pak   packed number overflows, 31, 2, 2)
+c
+      if (nsum.eq.0) return
+      if (nsum.gt.0) go to 30
+c
+ 20   r9pak = 0.5*r9pak
+      nsum = nsum + 1
+      if (nsum.ne.0) go to 20
+      return
+c
+ 30   r9pak = 2.0*r9pak
+      nsum = nsum - 1
+      if (nsum.ne.0) go to 30
+      return
+c
+ 40   call seteru (32hr9pak   packed number underflows, 32, 1, 0)
+      r9pak = 0.0
+      return
+c
+      end
diff --git a/fvn_fnlib/r9sifg.f b/fvn_fnlib/r9sifg.f
new file mode 100644
index 0000000..313bbd3
--- /dev/null
+++ b/fvn_fnlib/r9sifg.f
@@ -0,0 +1,172 @@
+      subroutine r9sifg (x, f, g)
+c december 1980 edition.  w. fullerton, bell labs
+      dimension f1cs(20), f2cs(29), g1cs(21), g2cs(34)
+      external csevl, inits, r1mach
+c
+c series for f1   on the interval  2.00000e-02 to  6.25000e-02
+c                                        with weighted error   2.82e-17
+c                                         log weighted error  16.55
+c                               significant figures required  15.36
+c                                    decimal places required  17.20
+c
+      data f1  cs(  1) /    -0.1191081969 051363610 e0/
+      data f1  cs(  2) /    -0.0247823144 996236248 e0/
+      data f1  cs(  3) /     0.0011910281 453357821 e0/
+      data f1  cs(  4) /    -0.0000927027 714388562 e0/
+      data f1  cs(  5) /     0.0000093373 141568271 e0/
+      data f1  cs(  6) /    -0.0000011058 287820557 e0/
+      data f1  cs(  7) /     0.0000001464 772071460 e0/
+      data f1  cs(  8) /    -0.0000000210 694496288 e0/
+      data f1  cs(  9) /     0.0000000032 293492367 e0/
+      data f1  cs( 10) /    -0.0000000005 206529618 e0/
+      data f1  cs( 11) /     0.0000000000 874878885 e0/
+      data f1  cs( 12) /    -0.0000000000 152176187 e0/
+      data f1  cs( 13) /     0.0000000000 027257192 e0/
+      data f1  cs( 14) /    -0.0000000000 005007053 e0/
+      data f1  cs( 15) /     0.0000000000 000940241 e0/
+      data f1  cs( 16) /    -0.0000000000 000180014 e0/
+      data f1  cs( 17) /     0.0000000000 000035063 e0/
+      data f1  cs( 18) /    -0.0000000000 000006935 e0/
+      data f1  cs( 19) /     0.0000000000 000001391 e0/
+      data f1  cs( 20) /    -0.0000000000 000000282 e0/
+c
+c series for f2   on the interval  0.00000e+00 to  2.00000e-02
+c                                        with weighted error   4.32e-17
+c                                         log weighted error  16.36
+c                               significant figures required  14.75
+c                                    decimal places required  17.10
+c
+      data f2  cs(  1) /    -0.0348409253 897013234 e0/
+      data f2  cs(  2) /    -0.0166842205 677959686 e0/
+      data f2  cs(  3) /     0.0006752901 241237738 e0/
+      data f2  cs(  4) /    -0.0000535066 622544701 e0/
+      data f2  cs(  5) /     0.0000062693 421779007 e0/
+      data f2  cs(  6) /    -0.0000009526 638801991 e0/
+      data f2  cs(  7) /     0.0000001745 629224251 e0/
+      data f2  cs(  8) /    -0.0000000368 795403065 e0/
+      data f2  cs(  9) /     0.0000000087 202677705 e0/
+      data f2  cs( 10) /    -0.0000000022 601970392 e0/
+      data f2  cs( 11) /     0.0000000006 324624977 e0/
+      data f2  cs( 12) /    -0.0000000001 888911889 e0/
+      data f2  cs( 13) /     0.0000000000 596774674 e0/
+      data f2  cs( 14) /    -0.0000000000 198044313 e0/
+      data f2  cs( 15) /     0.0000000000 068641396 e0/
+      data f2  cs( 16) /    -0.0000000000 024731020 e0/
+      data f2  cs( 17) /     0.0000000000 009226360 e0/
+      data f2  cs( 18) /    -0.0000000000 003552364 e0/
+      data f2  cs( 19) /     0.0000000000 001407606 e0/
+      data f2  cs( 20) /    -0.0000000000 000572623 e0/
+      data f2  cs( 21) /     0.0000000000 000238654 e0/
+      data f2  cs( 22) /    -0.0000000000 000101714 e0/
+      data f2  cs( 23) /     0.0000000000 000044259 e0/
+      data f2  cs( 24) /    -0.0000000000 000019634 e0/
+      data f2  cs( 25) /     0.0000000000 000008868 e0/
+      data f2  cs( 26) /    -0.0000000000 000004074 e0/
+      data f2  cs( 27) /     0.0000000000 000001901 e0/
+      data f2  cs( 28) /    -0.0000000000 000000900 e0/
+      data f2  cs( 29) /     0.0000000000 000000432 e0/
+c
+c series for g1   on the interval  2.00000e-02 to  6.25000e-02
+c                                        with weighted error   5.48e-17
+c                                         log weighted error  16.26
+c                               significant figures required  15.47
+c                                    decimal places required  16.92
+c
+      data g1  cs(  1) /    -0.3040578798 253495954 e0/
+      data g1  cs(  2) /    -0.0566890984 597120588 e0/
+      data g1  cs(  3) /     0.0039046158 173275644 e0/
+      data g1  cs(  4) /    -0.0003746075 959202261 e0/
+      data g1  cs(  5) /     0.0000435431 556559844 e0/
+      data g1  cs(  6) /    -0.0000057417 294453025 e0/
+      data g1  cs(  7) /     0.0000008282 552104503 e0/
+      data g1  cs(  8) /    -0.0000001278 245892595 e0/
+      data g1  cs(  9) /     0.0000000207 978352949 e0/
+      data g1  cs( 10) /    -0.0000000035 313205922 e0/
+      data g1  cs( 11) /     0.0000000006 210824236 e0/
+      data g1  cs( 12) /    -0.0000000001 125215474 e0/
+      data g1  cs( 13) /     0.0000000000 209088918 e0/
+      data g1  cs( 14) /    -0.0000000000 039715832 e0/
+      data g1  cs( 15) /     0.0000000000 007690431 e0/
+      data g1  cs( 16) /    -0.0000000000 001514697 e0/
+      data g1  cs( 17) /     0.0000000000 000302892 e0/
+      data g1  cs( 18) /    -0.0000000000 000061400 e0/
+      data g1  cs( 19) /     0.0000000000 000012601 e0/
+      data g1  cs( 20) /    -0.0000000000 000002615 e0/
+      data g1  cs( 21) /     0.0000000000 000000548 e0/
+c
+c series for g2   on the interval  0.00000e+00 to  2.00000e-02
+c                                        with weighted error   5.01e-17
+c                                         log weighted error  16.30
+c                               significant figures required  15.12
+c                                    decimal places required  17.07
+c
+      data g2  cs(  1) /    -0.0967329367 532432218 e0/
+      data g2  cs(  2) /    -0.0452077907 957459871 e0/
+      data g2  cs(  3) /     0.0028190005 352706523 e0/
+      data g2  cs(  4) /    -0.0002899167 740759160 e0/
+      data g2  cs(  5) /     0.0000407444 664601121 e0/
+      data g2  cs(  6) /    -0.0000071056 382192354 e0/
+      data g2  cs(  7) /     0.0000014534 723163019 e0/
+      data g2  cs(  8) /    -0.0000003364 116512503 e0/
+      data g2  cs(  9) /     0.0000000859 774367886 e0/
+      data g2  cs( 10) /    -0.0000000238 437656302 e0/
+      data g2  cs( 11) /     0.0000000070 831906340 e0/
+      data g2  cs( 12) /    -0.0000000022 318068154 e0/
+      data g2  cs( 13) /     0.0000000007 401087359 e0/
+      data g2  cs( 14) /    -0.0000000002 567171162 e0/
+      data g2  cs( 15) /     0.0000000000 926707021 e0/
+      data g2  cs( 16) /    -0.0000000000 346693311 e0/
+      data g2  cs( 17) /     0.0000000000 133950573 e0/
+      data g2  cs( 18) /    -0.0000000000 053290754 e0/
+      data g2  cs( 19) /     0.0000000000 021775312 e0/
+      data g2  cs( 20) /    -0.0000000000 009118621 e0/
+      data g2  cs( 21) /     0.0000000000 003905864 e0/
+      data g2  cs( 22) /    -0.0000000000 001708459 e0/
+      data g2  cs( 23) /     0.0000000000 000762015 e0/
+      data g2  cs( 24) /    -0.0000000000 000346151 e0/
+      data g2  cs( 25) /     0.0000000000 000159996 e0/
+      data g2  cs( 26) /    -0.0000000000 000075213 e0/
+      data g2  cs( 27) /     0.0000000000 000035970 e0/
+      data g2  cs( 28) /    -0.0000000000 000017530 e0/
+      data g2  cs( 29) /     0.0000000000 000008738 e0/
+      data g2  cs( 30) /    -0.0000000000 000004487 e0/
+      data g2  cs( 31) /     0.0000000000 000002397 e0/
+      data g2  cs( 32) /    -0.0000000000 000001347 e0/
+      data g2  cs( 33) /     0.0000000000 000000801 e0/
+      data g2  cs( 34) /    -0.0000000000 000000501 e0/
+c
+      data nf1, nf2, ng1, ng2 / 4*0 /
+      data xbnd, xbig, xmaxf, xmaxg / 4*0.0 /
+c
+      if (nf1.ne.0) go to 10
+      tol = 0.1*r1mach(3)
+      nf1 = inits (f1cs, 20, tol)
+      nf2 = inits (f2cs, 29, tol)
+      ng1 = inits (g1cs, 21, tol)
+      ng2 = inits (g2cs, 34, tol)
+c
+      xbig = sqrt (1.0/r1mach(3))
+      xmaxf = exp (amin1(-alog(r1mach(1)), alog(r1mach(2))) - 0.01)
+      xmaxg = 1.0/sqrt(r1mach(1))
+      xbnd = sqrt(50.0)
+c
+ 10   if (x.lt.4.0) call seteru (
+     1  34hr9sifg  approxs invalid for x lt 4, 34, 1, 2)
+c
+      if (x.gt.xbnd) go to 20
+      f = (1.0 + csevl ((1.0/x**2-0.04125)/0.02125, f1cs, nf1))/x
+      g = (1.0 + csevl ((1.0/x**2-0.04125)/0.02125, g1cs, ng1))/x**2
+      return
+c
+ 20   if (x.gt.xbig) go to 30
+      f = (1.0 + csevl (100./x**2-1., f2cs, nf2))/x
+      g = (1.0 + csevl (100./x**2-1., g2cs, ng2))/x**2
+      return
+c
+ 30   f = 0.0
+      if (x.lt.xmaxf) f = 1.0/x
+      g = 0.0
+      if (x.lt.xmaxg) g = 1.0/x**2
+      return
+c
+      end
diff --git a/fvn_fnlib/r9upak.f b/fvn_fnlib/r9upak.f
new file mode 100644
index 0000000..7024eaf
--- /dev/null
+++ b/fvn_fnlib/r9upak.f
@@ -0,0 +1,25 @@
+      subroutine r9upak (x, y, n)
+c august 1980 portable edition.  w. fullerton, los alamos scientific lab
+c
+c unpack floating point number x so that x = y * 2.0**n, where
+c 0.5 .le. abs(y) .lt. 1.0 .
+c
+      absx = abs(x)
+      n = 0
+      y = 0.0
+      if (x.eq.0.0) return
+c
+ 10   if (absx.ge.0.5) go to 20
+      n = n - 1
+      absx = absx*2.0
+      go to 10
+c
+ 20   if (absx.lt.1.0) go to 30
+      n = n + 1
+      absx = absx*0.5
+      go to 20
+c
+ 30   y = sign (absx, x)
+      return
+c
+      end
diff --git a/fvn_fnlib/rand.f b/fvn_fnlib/rand.f
new file mode 100644
index 0000000..df775fd
--- /dev/null
+++ b/fvn_fnlib/rand.f
@@ -0,0 +1,100 @@
+      function rand (r)
+c
+c      this pseudo-random number generator is portable amoung a wide
+c variety of computers.  rand(r) undoubtedly is not as good as many
+c readily available installation dependent versions, and so this
+c routine is not recommended for widespread usage.  its redeeming
+c feature is that the exact same random numbers (to within final round-
+c off error) can be generated from machine to machine.  thus, programs
+c that make use of random numbers can be easily transported to and
+c checked in a new environment.
+c      the random numbers are generated by the linear congruential
+c method described, e.g., by knuth in seminumerical methods (p.9),
+c addison-wesley, 1969.  given the i-th number of a pseudo-random
+c sequence, the i+1 -st number is generated from
+c             x(i+1) = (a*x(i) + c) mod m,
+c where here m = 2**22 = 4194304, c = 1731 and several suitable values
+c of the multiplier a are discussed below.  both the multiplier a and
+c random number x are represented in double precision as two 11-bit
+c words.  the constants are chosen so that the period is the maximum
+c possible, 4194304.
+c      in order that the same numbers be generated from machine to
+c machine, it is necessary that 23-bit integers be reducible modulo
+c 2**11 exactly, that 23-bit integers be added exactly, and that 11-bit
+c integers be multiplied exactly.  furthermore, if the restart option
+c is used (where r is between 0 and 1), then the product r*2**22 =
+c r*4194304 must be correct to the nearest integer.
+c      the first four random numbers should be .0004127026,
+c .6750836372, .1614754200, and .9086198807.  the tenth random number
+c is .5527787209, and the hundredth is .3600893021 .  the thousandth
+c number should be .2176990509 .
+c      in order to generate several effectively independent sequences
+c with the same generator, it is necessary to know the random number
+c for several widely spaced calls.  the i-th random number times 2**22,
+c where i=k*p/8 and p is the period of the sequence (p = 2**22), is
+c still of the form l*p/8.  in particular we find the i-th random
+c number multiplied by 2**22 is given by
+c i   =  0  1*p/8  2*p/8  3*p/8  4*p/8  5*p/8  6*p/8  7*p/8  8*p/8
+c rand=  0  5*p/8  2*p/8  7*p/8  4*p/8  1*p/8  6*p/8  3*p/8  0
+c thus the 4*p/8 = 2097152 random number is 2097152/2**22.
+c      several multipliers have been subjected to the spectral test
+c (see knuth, p. 82).  four suitable multipliers roughly in order of
+c goodness according to the spectral test are
+c    3146757 = 1536*2048 + 1029 = 2**21 + 2**20 + 2**10 + 5
+c    2098181 = 1024*2048 + 1029 = 2**21 + 2**10 + 5
+c    3146245 = 1536*2048 +  517 = 2**21 + 2**20 + 2**9 + 5
+c    2776669 = 1355*2048 + 1629 = 5**9 + 7**7 + 1
+c
+c      in the table below log10(nu(i)) gives roughly the number of
+c random decimal digits in the random numbers considered i at a time.
+c c is the primary measure of goodness.  in both cases bigger is better.
+c
+c                   log10 nu(i)              c(i)
+c       a       i=2  i=3  i=4  i=5    i=2  i=3  i=4  i=5
+c
+c    3146757    3.3  2.0  1.6  1.3    3.1  1.3  4.6  2.6
+c    2098181    3.3  2.0  1.6  1.2    3.2  1.3  4.6  1.7
+c    3146245    3.3  2.2  1.5  1.1    3.2  4.2  1.1  0.4
+c    2776669    3.3  2.1  1.6  1.3    2.5  2.0  1.9  2.6
+c   best
+c    possible   3.3  2.3  1.7  1.4    3.6  5.9  9.7  14.9
+c
+c             input argument --
+c r      if r=0., the next random number of the sequence is generated.
+c        if r.lt.0., the last generated number will be returned for
+c          possible use in a restart procedure.
+c        if r.gt.0., the sequence of random numbers will start with the
+c          seed r mod 1.  this seed is also returned as the value of
+c          rand provided the arithmetic is done exactly.
+c
+c             output value --
+c rand   a pseudo-random number between 0. and 1.
+c
+c ia1 and ia0 are the hi and lo parts of a.  ia1ma0 = ia1 - ia0.
+      data ia1, ia0, ia1ma0 /1536, 1029, 507/
+      data ic /1731/
+      data ix1, ix0 /0, 0/
+c
+      if (r.lt.0.) go to 10
+      if (r.gt.0.) go to 20
+c
+c           a*x = 2**22*ia1*ix1 + 2**11*(ia1*ix1 + (ia1-ia0)*(ix0-ix1)
+c                   + ia0*ix0) + ia0*ix0
+c
+      iy0 = ia0*ix0
+      iy1 = ia1*ix1 + ia1ma0*(ix0-ix1) + iy0
+      iy0 = iy0 + ic
+      ix0 = mod (iy0, 2048)
+      iy1 = iy1 + (iy0-ix0)/2048
+      ix1 = mod (iy1, 2048)
+c
+ 10   rand = ix1*2048 + ix0
+      rand = rand / 4194304.
+      return
+c
+ 20   ix1 = amod(r,1.)*4194304. + 0.5
+      ix0 = mod (ix1, 2048)
+      ix1 = (ix1-ix0)/2048
+      go to 10
+c
+      end
diff --git a/fvn_fnlib/randgs.f b/fvn_fnlib/randgs.f
new file mode 100644
index 0000000..9b045ec
--- /dev/null
+++ b/fvn_fnlib/randgs.f
@@ -0,0 +1,25 @@
+      function randgs (xmean, sd)
+c
+c generate a normally distributed random number, i.e., generate random
+c numbers with a gaussian distribution.  these random numbers are not
+c exceptionally good -- especially in the tails of the distribution,
+c but this implementation is simple and suitable for most applications.
+c see r. w. hamming, numerical methods for scientists and engineers,
+c mcgraw-hill, 1962, pages 34 and 389.
+c
+c             input arguments --
+c xmean  the mean of the gaussian distribution.
+c sd     the standard deviation of the gaussian function
+c          exp (-1/2 * (x-xmean)**2 / sd**2)
+c
+      external rand
+c
+      randgs = -6.
+      do 10 i=1,12
+        randgs = randgs + rand(0.)
+ 10   continue
+c
+      randgs = xmean + sd*randgs
+c
+      return
+      end
diff --git a/fvn_fnlib/random.f b/fvn_fnlib/random.f
new file mode 100644
index 0000000..f9e955e
--- /dev/null
+++ b/fvn_fnlib/random.f
@@ -0,0 +1,59 @@
+      function random (t, n)
+c
+c this random number generator is portable amoung a wide variety of
+c computers.  it generates a random number between 0.0 and 1.0 accord-
+c ing to the algorithm presented by bays and durham (toms, 2, 59,
+c 1976).  the motivation for using this scheme, which resembles the
+c maclaren-marsaglia method, is to greatly increase the period of the
+c random sequence.  if the period of the basic generator (rand) is p,
+c then the expected mean period of the sequence generated by random is
+c given by   new mean p = sqrt (pi*factorial(n)/(8*p)),
+c where factorial(n) must be much greater than p in this asymptotic
+c formula.  generally, n should be 16 to maybe 32.
+c
+c             input argument --
+c n      iabs(n) is the number of random numbers in an auxiliary table.
+c        note though that iabs(n)+1 is the number of items in array t.
+c        if n is positive and differs from its value in the previous
+c        invocation, then the table is initialized for the new value of
+c        n.  if n is negative, iabs(n) is the number of items in an
+c        auxiliary table, but the tables are now assumed already to
+c        be initialized.  this option enables the user to save the
+c        table t at the end of a long computer run and to restart with
+c        the same sequence.  normally, random would be called at most
+c        once with negative n.  subsequent invocations would have n
+c        positive and of the correct magnitude.
+c
+c             input and output argument  --
+c t      an array of iabs(n)+1 random numbers from a previous invocation
+c        of random.  whenever n is positive and differs from the old
+c        n, the table is initialized.  the first iabs(n) numbers are the
+c        table discussed in the reference, and the n+1 -st value is y.
+c        this array may be saved in order to restart a sequence.
+c
+c             output value --
+c random a random number between 0.0 and 1.0.
+c
+      dimension t(1)
+      external rand
+      data nold, floatn / -1, -1.0 /
+c
+      if (n.eq.nold) go to 20
+c
+      nold = iabs(n)
+      floatn = nold
+      if (n.lt.0) dummy = rand (t(nold+1))
+      if (n.lt.0) go to 20
+c
+      do 10 i=1,nold
+        t(i) = rand (0.)
+ 10   continue
+      t(nold+1) = rand (0.)
+c
+ 20   j = t(nold+1)*floatn + 1.
+      t(nold+1) = t(j)
+      random = t(j)
+      t(j) = rand (0.)
+c
+      return
+      end
diff --git a/fvn_fnlib/ranf.f b/fvn_fnlib/ranf.f
new file mode 100644
index 0000000..9a0f205
--- /dev/null
+++ b/fvn_fnlib/ranf.f
@@ -0,0 +1,25 @@
+      function ranf (sw)
+c
+c this random number generator is only a convenient driver routine
+c for the portable generator random.
+c the random number lies between 0. and 1.
+c
+      common /rantab/ t(33)
+      external random
+      data ranold /0./
+c
+      if (sw.lt.0.) go to 10
+c
+      ranf = random (t, 32)
+      ranold = ranf
+      return
+c
+ 10   write (6, 20) (t(i), i=1,33)
+ 20   format (///10x, 28h current random number table // (10x, 5f15.10))
+c
+      write (7, 30) (t(i), i=1,33)
+ 30   format (5f15.10)
+c
+      ranf = ranold
+      return
+      end
diff --git a/fvn_fnlib/retsrc.f b/fvn_fnlib/retsrc.f
new file mode 100644
index 0000000..106d59a
--- /dev/null
+++ b/fvn_fnlib/retsrc.f
@@ -0,0 +1,26 @@
+      subroutine retsrc(irold)
+c
+c  this routine sets lrecov = irold.
+c
+c  if the current error becomes unrecoverable,
+c  the message is printed and execution stops.
+c
+c  error states -
+c
+c    1 - illegal value of irold.
+c
+      external i8save
+c
+      if (irold.lt.1 .or. irold.gt.2)
+     1  call seterr(31hretsrc - illegal value of irold,31,1,2)
+c
+      itemp=i8save(2,irold,.true.)
+c
+c  if the current error is now unrecoverable, print and stop.
+c
+      if (irold.eq.1 .or. i8save(1,0,.false.).eq.0) return
+c
+        call eprint
+        stop
+c
+      end
diff --git a/fvn_fnlib/s88fmt.f b/fvn_fnlib/s88fmt.f
new file mode 100644
index 0000000..1de62d3
--- /dev/null
+++ b/fvn_fnlib/s88fmt.f
@@ -0,0 +1,32 @@
+      subroutine s88fmt( n, w, ifmt )
+c
+c  s88fmt  replaces ifmt(1), ... , ifmt(n) with
+c  the characters corresponding to the n least significant
+c  digits of w.
+c
+      integer n,w,ifmt(n)
+c
+      integer nt,wt,digits(10)
+c
+      data digits( 1) / 1h0 /
+      data digits( 2) / 1h1 /
+      data digits( 3) / 1h2 /
+      data digits( 4) / 1h3 /
+      data digits( 5) / 1h4 /
+      data digits( 6) / 1h5 /
+      data digits( 7) / 1h6 /
+      data digits( 8) / 1h7 /
+      data digits( 9) / 1h8 /
+      data digits(10) / 1h9 /
+c
+      nt = n
+      wt = w
+c
+ 10   if (nt .le. 0) return
+        idigit = mod( wt, 10 )
+        ifmt(nt) = digits(idigit+1)
+        wt = wt/10
+        nt = nt - 1
+        go to 10
+c
+      end
diff --git a/fvn_fnlib/s9comp.f b/fvn_fnlib/s9comp.f
new file mode 100644
index 0000000..83f09b1
--- /dev/null
+++ b/fvn_fnlib/s9comp.f
@@ -0,0 +1,40 @@
+      subroutine s9comp (nspace, fmt, nwd)
+c august 1979 edition. w. fullerton, c3, los alamos scientific lab.
+c
+c s9comp returns a format in array fmt suitable for writing a header
+c that contains the 6-character function names at the top of two columns
+c of function values.  the position of these names depends on nspace,
+c the number of spaces beyond the carriage control column to skip.
+c
+c the format returned in fmt is
+c          (nspace x, nwd a nch, 26x, 1hd, nwd a nch)
+c where  nwd = the number of integer words required to hold 6 characters
+c   and  nch = the number of characters in one integer word.
+c
+c s9comp also returns nwd, the number of integer words required to
+c hold 6 characters.
+c
+      integer fmt(23), f(23)
+      external i1mach
+      data f(1), f(2), f(3), f(4), f(5) / 1h(, 0, 0, 1hx, 1h, /
+      data f(6), f(7), f(8), f(9), f(10) / 0, 1ha, 0, 0, 1h, /
+      data f(11), f(12), f(13), f(14), f(15) / 1h2, 1h6, 1hx, 1h,, 1h1 /
+      data f(16), f(17), f(18), f(19), f(20) / 2hhd, 1h , 1h,, 0, 1ha /
+      data f(21), f(22), f(23) / 0, 0, 1h) /
+c
+      nch = i1mach(6)
+      nwd = (6 + nch - 1) / nch
+c
+      do 10 i=1,23
+        fmt(i) = f(i)
+ 10   continue
+c
+      call s88fmt (2, nspace, fmt(2))
+      call s88fmt (1, nwd, fmt(6))
+      call s88fmt (2, nch, fmt(8))
+      fmt(19) = fmt(6)
+      fmt(21) = fmt(8)
+      fmt(22) = fmt(9)
+c
+      return
+      end
diff --git a/fvn_fnlib/seterr.f b/fvn_fnlib/seterr.f
new file mode 100644
index 0000000..8a972ba
--- /dev/null
+++ b/fvn_fnlib/seterr.f
@@ -0,0 +1,101 @@
+      subroutine seterr (messg, nmessg, nerr, iopt)
+c
+c  this version modified by w. fullerton to dump if iopt = 1 and
+c  not recovering.
+c  seterr sets lerror = nerr, optionally prints the message and dumps
+c  according to the following rules...
+c
+c    if iopt = 1 and recovering      - just remember the error.
+c    if iopt = 1 and not recovering  - print, dump and stop.
+c    if iopt = 2                     - print, dump and stop.
+c
+c  input
+c
+c    messg  - the error message.
+c    nmessg - the length of the message, in characters.
+c    nerr   - the error number. must have nerr non-zero.
+c    iopt   - the option. must have iopt=1 or 2.
+c
+c  error states -
+c
+c    1 - message length not positive.
+c    2 - cannot have nerr=0.
+c    3 - an unrecovered error followed by another error.
+c    4 - bad value for iopt.
+c
+c  only the first 72 characters of the message are printed.
+c
+c  the error handler calls a subroutine named fdump to produce a
+c  symbolic dump. to complete the package, a dummy version of fdump
+c  is supplied, but it should be replaced by a locally written version
+c  which at least gives a trace-back.
+c
+      integer messg(1)
+      external i1mach, i8save
+c
+c  the unit for error messages.
+c
+      iwunit=i1mach(4)
+c
+      if (nmessg.ge.1) go to 10
+c
+c  a message of non-positive length is fatal.
+c
+        write(iwunit,9000)
+ 9000   format(52h1error    1 in seterr - message length not positive.)
+        go to 60
+c
+c  nw is the number of words the message occupies.
+c
+ 10   nw=(min0(nmessg,72)-1)/i1mach(6)+1
+c
+      if (nerr.ne.0) go to 20
+c
+c  cannot turn the error state off using seterr.
+c
+        write(iwunit,9001)
+ 9001   format(42h1error    2 in seterr - cannot have nerr=0//
+     1         34h the current error message follows///)
+        call e9rint(messg,nw,nerr,.true.)
+        itemp=i8save(1,1,.true.)
+        go to 50
+c
+c  set lerror and test for a previous unrecovered error.
+c
+ 20   if (i8save(1,nerr,.true.).eq.0) go to 30
+c
+        write(iwunit,9002)
+ 9002   format(23h1error    3 in seterr -,
+     1         48h an unrecovered error followed by another error.//
+     2         48h the previous and current error messages follow.///)
+        call eprint
+        call e9rint(messg,nw,nerr,.true.)
+        go to 50
+c
+c  save this message in case it is not recovered from properly.
+c
+ 30   call e9rint(messg,nw,nerr,.true.)
+c
+      if (iopt.eq.1 .or. iopt.eq.2) go to 40
+c
+c  must have iopt = 1 or 2.
+c
+        write(iwunit,9003)
+ 9003   format(42h1error    4 in seterr - bad value for iopt//
+     1         34h the current error message follows///)
+        go to 50
+c
+c  test for recovery.
+c
+ 40   if (iopt.eq.2) go to 50
+c
+      if (i8save(2,0,.false.).eq.1) return
+c
+c     call eprint
+c     stop
+c
+ 50   call eprint
+ 60   call fdump
+      stop
+c
+      end
diff --git a/fvn_fnlib/seteru.f b/fvn_fnlib/seteru.f
new file mode 100644
index 0000000..5adfea4
--- /dev/null
+++ b/fvn_fnlib/seteru.f
@@ -0,0 +1,13 @@
+      subroutine seteru (messg, nmessg, nerr, iopt)
+      common /cseter/ iunflo
+      integer messg(1)
+      data iunflo / 0 /
+c
+      if (iopt.ne.0) call seterr (messg, nmessg, nerr, iopt)
+      if (iopt.ne.0) return
+c
+      if (iunflo.le.0) return
+      call seterr (messg, nmessg, nerr, 1)
+c
+      return
+      end
diff --git a/fvn_fnlib/shi.f b/fvn_fnlib/shi.f
new file mode 100644
index 0000000..54e26aa
--- /dev/null
+++ b/fvn_fnlib/shi.f
@@ -0,0 +1,37 @@
+      function shi (x)
+c december 1980 edition.  w. fullerton, bell labs.
+c
+c evaluate the hyperbolic sine integral
+c         shi = integral from 0 to x of  sinh(t)/t dt.
+c
+      dimension shics(7)
+      external csevl, e1, ei, inits, r1mach
+c
+c series for shi  on the interval  0.00000e+00 to  1.40625e-01
+c                                        with weighted error   4.67e-20
+c                                         log weighted error  19.33
+c                               significant figures required  17.07
+c                                    decimal places required  19.75
+c
+      data shi cs(  1) /     0.0078372685 6889009506 95e0/
+      data shi cs(  2) /     0.0039227664 9342345639 73e0/
+      data shi cs(  3) /     0.0000041346 7878876172 67e0/
+      data shi cs(  4) /     0.0000000024 7074803728 83e0/
+      data shi cs(  5) /     0.0000000000 0093792955 91e0/
+      data shi cs(  6) /     0.0000000000 0000024518 17e0/
+      data shi cs(  7) /     0.0000000000 0000000004 67e0/
+c
+      data nshi, xsml /0, 0.0/
+c
+      if (nshi.ne.0) go to 10
+      nshi = inits (shics, 7, 0.1*r1mach(3))
+      xsml = sqrt (r1mach(3))
+c
+ 10   absx = abs(x)
+      shi = x
+      if (absx.gt.xsml .and. absx.le.0.375) shi = x*(1.0 +
+     1  csevl (128.*x*x/9.-1., shics, nshi))
+      if (absx.gt.0.375) shi = 0.5*(ei(x) + e1(x))
+c
+      return
+      end
diff --git a/fvn_fnlib/si.f b/fvn_fnlib/si.f
new file mode 100644
index 0000000..a832d72
--- /dev/null
+++ b/fvn_fnlib/si.f
@@ -0,0 +1,47 @@
+      function si (x)
+c december 1980 edition,  w. fullerton, bell labs.
+      dimension sics(12)
+      external csevl, inits, r1mach
+c
+c series for si   on the interval  0.00000e+00 to  1.60000e+01
+c                                        with weighted error   1.22e-17
+c                                         log weighted error  16.91
+c                               significant figures required  16.37
+c                                    decimal places required  17.45
+c
+      data si  cs(  1) /    -0.1315646598 184841929 e0/
+      data si  cs(  2) /    -0.2776578526 973601892 e0/
+      data si  cs(  3) /     0.0354414054 866659180 e0/
+      data si  cs(  4) /    -0.0025631631 447933978 e0/
+      data si  cs(  5) /     0.0001162365 390497009 e0/
+      data si  cs(  6) /    -0.0000035904 327241606 e0/
+      data si  cs(  7) /     0.0000000802 342123706 e0/
+      data si  cs(  8) /    -0.0000000013 562997693 e0/
+      data si  cs(  9) /     0.0000000000 179440722 e0/
+      data si  cs( 10) /    -0.0000000000 001908387 e0/
+      data si  cs( 11) /     0.0000000000 000016670 e0/
+      data si  cs( 12) /    -0.0000000000 000000122 e0/
+c
+      data pi2 / 1.570796326 7948966e0 /
+      data nsi, xsml /0, 0.0/
+c
+      if (nsi.ne.0) go to 10
+      nsi = inits (sics, 12, 0.1*r1mach(3))
+      xsml = sqrt (eps)
+c
+ 10   absx = abs(x)
+      if (absx.gt.4.0) go to 20
+      si = x
+      if (absx.lt.xsml) return
+c
+      si = x*(0.75 + csevl ((x*x-8.0)*0.125, sics, nsi))
+      return
+c
+ 20   call r9sifg (absx, f, g)
+      cosx = cos (absx)
+      call erroff
+      si = pi2 - f*cosx - g*sin(x)
+      if (x.lt.0.0) si = -si
+c
+      return
+      end
diff --git a/fvn_fnlib/sindg.f b/fvn_fnlib/sindg.f
new file mode 100644
index 0000000..46c1e31
--- /dev/null
+++ b/fvn_fnlib/sindg.f
@@ -0,0 +1,14 @@
+      function sindg (x)
+c june 1977 edition.   w. fullerton, c3, los alamos scientific lab.
+      data raddeg / .017453292519943296e0 /
+c
+      sindg = sin (raddeg*x)
+c
+      if (amod(x,90.).ne.0.) return
+      n = abs(x)/90.0 + 0.5
+      n = mod (n, 2)
+      if (n.eq.0) sindg = 0.
+      if (n.eq.1) sindg = sign (1.0, sindg)
+c
+      return
+      end
diff --git a/fvn_fnlib/spenc.f b/fvn_fnlib/spenc.f
new file mode 100644
index 0000000..14ba13e
--- /dev/null
+++ b/fvn_fnlib/spenc.f
@@ -0,0 +1,100 @@
+      function spenc (x)
+c feb 1978 edition.   w. fullerton, c3, los alamos scientific lab.
+c
+c evaluate a form of spence-s function defined by
+c        integral from 0 to x of  -alog(abs(1-y))/y  dy.
+c for abs(x).le.1, the uniformly convergent expansion
+c        spenc = sum k=1,infinity  x**k / k**2     is valid.
+c
+c spence-s function can be used to evaluate much more general integral
+c forms.  for example,
+c        integral from 0 to z of  alog(a*x+b)/(c*x+d)  dx  =
+c             alog(abs(b-a*d/c))*alog(abs(a*(c*z+d)/(a*d-b*c)))/c
+c             - spenc (a*(c*z+d)/(a*d-b*c)) / c.
+c
+c ref -- k. mitchell, philosophical magazine, 40, p.351 (1949).
+c        stegun and abromowitz, ams 55, p.1004.
+c
+      dimension spencs(19)
+      external csevl, inits, r1mach
+c
+c series for spen       on the interval  0.          to  5.00000d-01
+c                                        with weighted error   6.82e-17
+c                                         log weighted error  16.17
+c                               significant figures required  15.22
+c                                    decimal places required  16.81
+c
+      data spencs( 1) /    .1527365598 892406e0 /
+      data spencs( 2) /    .0816965805 8051014e0 /
+      data spencs( 3) /    .0058141571 4077873e0 /
+      data spencs( 4) /    .0005371619 8145415e0 /
+      data spencs( 5) /    .0000572470 4675185e0 /
+      data spencs( 6) /    .0000066745 4612164e0 /
+      data spencs( 7) /    .0000008276 4673397e0 /
+      data spencs( 8) /    .0000001073 3156730e0 /
+      data spencs( 9) /    .0000000144 0077294e0 /
+      data spencs(10) /    .0000000019 8444202e0 /
+      data spencs(11) /    .0000000002 7940058e0 /
+      data spencs(12) /    .0000000000 4003991e0 /
+      data spencs(13) /    .0000000000 0582346e0 /
+      data spencs(14) /    .0000000000 0085767e0 /
+      data spencs(15) /    .0000000000 0012768e0 /
+      data spencs(16) /    .0000000000 0001918e0 /
+      data spencs(17) /    .0000000000 0000290e0 /
+      data spencs(18) /    .0000000000 0000044e0 /
+      data spencs(19) /    .0000000000 0000006e0 /
+c
+c pi26 = pi**2/6.0
+      data pi26 / 1.644934066 848226e0 /
+      data nspenc, xbig / 0, 0.0 /
+c
+      if (nspenc.ne.0) go to 10
+      nspenc = inits (spencs, 19, 0.1*r1mach(3))
+      xbig = 1.0/r1mach(3)
+c
+ 10   if (x.gt.2.0) go to 60
+      if (x.gt.1.0) go to 50
+      if (x.gt.0.5) go to 40
+      if (x.ge.0.0) go to 30
+      if (x.gt.(-1.)) go to 20
+c
+c here if x .le. -1.0
+c
+      aln = alog(1.0-x)
+      spenc = -pi26 - 0.5*aln*(2.0*alog(-x)-aln)
+      if (x.gt.(-xbig)) spenc = spenc
+     1  + (1.0 + csevl (4.0/(1.0-x)-1.0, spencs, nspenc)) / (1.0-x)
+      return
+c
+c -1.0 .lt. x .lt. 0.0
+c
+ 20   spenc = -0.5*alog(1.0-x)**2
+     1  - x*(1.0 + csevl (4.0*x/(x-1.0)-1.0, spencs, nspenc)) / (x-1.0)
+      return
+c
+c 0.0 .le. x .le. 0.5
+c
+ 30   spenc = x*(1.0 + csevl (4.0*x-1.0, spencs, nspenc))
+      return
+c
+c 0.5 .lt. x .le. 1.0
+c
+ 40   spenc = pi26
+      if (x.ne.1.0) spenc = pi26 - alog(x)*alog(1.0-x)
+     1  - (1.0-x)*(1.0 + csevl (4.0*(1.0-x)-1.0, spencs, nspenc))
+      return
+c
+c 1.0 .lt. x .le. 2.0
+c
+ 50   spenc = pi26 - 0.5*alog(x)*alog((x-1.0)**2/x)
+     1  + (x-1.)*(1.0 + csevl (4.0*(x-1.)/x-1.0, spencs, nspenc))/x
+      return
+c
+c x .gt. 2.0
+c
+ 60   spenc = 2.0*pi26 - 0.5*alog(x)**2
+      if (x.lt.xbig) spenc = spenc
+     1  - (1.0 + csevl (4.0/x-1.0, spencs, nspenc))/x
+      return
+c
+      end
diff --git a/fvn_fnlib/z0lgmc.f b/fvn_fnlib/z0lgmc.f
new file mode 100644
index 0000000..4f0a394
--- /dev/null
+++ b/fvn_fnlib/z0lgmc.f
@@ -0,0 +1,23 @@
+      complex(8) function z0lgmc (z)
+      implicit none
+c august 1980 edition.  w. fullerton c3, los alamos scientific lab.
+c
+c evaluate  (z+0.5)*clog((z+1.0)/z) - 1.0  with relative error accuracy.
+c let q = 1.0/z so that
+c     (z+0.5)*clog(1+1/z) - 1 = (z+0.5)*(clog(1+q) - q + q*q/2) - q*q/4
+c        = (z+0.5)*q**3*c9ln2r(q) - q**2/4,
+c where  c9ln2r  is (clog(1+q) - q + 0.5*q**2) / q**3.
+c
+      complex(8) z, q, z9ln2r
+      real(8) zabsz
+
+      external z9ln2r
+c
+      zabsz = abs(z)
+c
+      q = 1.0/z
+      if (zabsz.le.1.23) z0lgmc = (z+0.5)*log(1.0+q) - 1.0
+      if (zabsz.gt.1.23) z0lgmc = ((1.+.5*q)*z9ln2r(q) - .25) * q**2
+c
+      return
+      end
diff --git a/fvn_fnlib/z8lgmc.f b/fvn_fnlib/z8lgmc.f
new file mode 100644
index 0000000..f8dbdfd
--- /dev/null
+++ b/fvn_fnlib/z8lgmc.f
@@ -0,0 +1,69 @@
+      complex(8) function z8lgmc (zin)
+      implicit none
+c may 1978 edition.  w. fullerton, c3, los alamos scientific lab.
+c
+c compute the log gamma correction term for almost all z so that
+c   clog(cgamma(z)) = 0.5*alog(2.*pi) + (z-0.5)*clog(z) - z + c8lgmc(z)
+c this routine is valid even when real(z) is negative or when cabs(z)
+c is small.
+c when real(z) is negative, c8lgmc merely returns a correction which
+c may be wrong by a multiple of 2*pi*i.
+c
+      complex(8) zin, z, corr,  z9lgmc, z0lgmc, zexp, zlnrel
+      real(8) d1mach,pi,bound,sqeps,eps,x,y,absz,test
+      integer nterm,n,i,irold,ir
+      external  z0lgmc, z9lgmc, zlnrel,
+     1  d1mach
+      data pi / 3.1415926535 8979324d0 /
+      data bound, sqeps, eps / 3*0.0 /
+c
+      if (bound.ne.0.0) go to 10
+      nterm = -0.30*log(d1mach(3))
+      bound = 0.1170*dble(nterm)*
+     1  (0.1*d1mach(3))**(-1.0/(2.0*dble(nterm)-1.0))
+      eps = 10.0*d1mach(4)
+      sqeps = sqrt (d1mach(4))
+c
+ 10   z = zin
+      x = real(z)
+      y = aimag(z)
+      if (x.lt.0.0) z = -z
+c
+      corr = (0.0, 0.0)
+      if (x.gt.bound .or. abs(y).ge.bound) go to 30
+      absz = abs(z)
+      if (absz.ge.bound) go to 30
+c
+      if (x.eq.0.0 .and. y.eq.0.0) call seteru (
+     1  57hz8lgmc  log gamma correction term is infinite for z = 0.0,
+     2  57, 3, 2)
+c
+      n = sqrt (bound**2-y**2) - abs(x) + 1.0
+      do 20 i=1,n
+        corr = corr + z0lgmc(z)
+        z = z + 1.0
+ 20   continue
+c
+ 30   z8lgmc = z9lgmc(z) + corr
+      if (x.gt.0.0) return
+c
+      call entsrc (irold, 1)
+      test = 1.0
+      if (x.lt.(-0.5)) test = abs ((z-aint(x-0.5))/z)
+      if (test.lt.eps) call seteru (
+     1  31hz8lgmc  z is a negative integer, 31, 2, 2)
+c
+      z = zin
+      if (y.lt.0.0) z = conjg(z)
+      corr = -dcmplx(0.0,pi) + zlnrel(-exp(dcmplx(0.,2.*pi)*z))
+      if (y.lt.0.0) corr = conjg(corr)
+c
+      z8lgmc = corr - z8lgmc
+c
+      call erroff
+      call entsrc (ir, irold)
+      if (test.lt.sqeps) call seteru ( 63hc8lgmc  answer lt half precisi
+     1on, z too near a negative integer, 63, 1, 1)
+c
+      return
+      end
diff --git a/fvn_fnlib/z9lgmc.f b/fvn_fnlib/z9lgmc.f
new file mode 100644
index 0000000..2a6ac58
--- /dev/null
+++ b/fvn_fnlib/z9lgmc.f
@@ -0,0 +1,67 @@
+      complex(8) function z9lgmc (zin)
+      implicit none
+c april 1978 edition.  w. fullerton c3, los alamos scientific lab.
+c
+c compute the log gamma correction term for large cabs(z) when real(z)
+c .ge. 0.0 and for large abs(aimag(y)) when real(z) .lt. 0.0.  we find
+c c9lgmc so that
+c   clog(cgamma(z)) = 0.5*alog(2.*pi) + (z-0.5)*clog(z) - z + c9lgmc(z).
+c
+      complex(8) zin, z, z2inv
+      real(8) d1mach,bern,xbig,xmax,bound,cabsz,x,y
+      integer nterm,i,ndx
+      external d1mach
+c
+      dimension bern(11)
+      data bern( 1) /    .08333333333 3333333e0   /
+      data bern( 2) /   -.002777777777 7777778e0  /
+      data bern( 3) /    .0007936507936 5079365e0 /
+      data bern( 4) /   -.0005952380952 3809524e0 /
+      data bern( 5) /    .0008417508417 5084175e0 /
+      data bern( 6) /   -.001917526917 5269175e0  /
+      data bern( 7) /    .006410256410 2564103e0  /
+      data bern( 8) /   -.02955065359 4771242e0   /
+      data bern( 9) /    .1796443723 6883057e0    /
+      data bern(10) /  -1.392432216 9059011e0     /
+      data bern(11) /  13.40286404 4168392e0      /
+c
+      data nterm, bound, xbig, xmax / 0, 3*0.0 /
+c
+      if (nterm.ne.0) go to 10
+c
+      nterm = -0.30*log(d1mach(3))
+      bound = 0.1170*dble(nterm)*
+     1  (0.1*d1mach(3))**(-1./(2.*dble(nterm)-1.))
+      xbig = 1.0/sqrt(d1mach(3))
+      xmax = exp (min(log(d1mach(2)/12.0), -log(12.*d1mach(1))) )
+c
+ 10   z = zin
+      x = real (z)
+      y = aimag(z)
+      cabsz = abs(z)
+c
+      if (x.lt.0.0 .and. abs(y).lt.bound) call seteru ( 69hc9lgmc  c9lgm
+     1c not valid for negative real(z) and small abs(aimag(z)), 69, 2,2)
+      if (cabsz.lt.bound) call seteru (
+     1  42hz9lgmc  z9lgmc not valid for small cabs(z), 42, 3, 2)
+c
+      if (cabsz.ge.xmax) go to 50
+c
+      if (cabsz.ge.xbig) z9lgmc = 1.0/(12.0*z)
+      if (cabsz.ge.xbig) return
+c
+      z2inv = 1.0/z**2
+      z9lgmc = (0.0, 0.0)
+      do 40 i=1,nterm
+        ndx = nterm + 1 - i
+        z9lgmc = bern(ndx) + z9lgmc*z2inv
+ 40   continue
+c
+      z9lgmc = z9lgmc/z
+      return
+c
+ 50   z9lgmc = (0.0, 0.0)
+      call seteru (34hz9lgmc  z so big z9lgmc underflows, 34, 1, 0)
+      return
+c
+      end
diff --git a/fvn_fnlib/z9ln2r.f b/fvn_fnlib/z9ln2r.f
new file mode 100644
index 0000000..9521022
--- /dev/null
+++ b/fvn_fnlib/z9ln2r.f
@@ -0,0 +1,58 @@
+      complex(8) function z9ln2r (z)
+      implicit none
+c april 1978 edition.  w. fullerton c3, los alamos scientific lab.
+c
+c evaluate  clog(1+z)  from 2-nd order with relative error accuracy so
+c that     clog(1+z) = z - z**2/2 + z**3*c9ln2r(z).
+c
+c now  clog(1+z) = 0.5*alog(1+2*x+cabs(z)**2) + i*carg(1+z),
+c where x = real(z)  and  y = aimag(z).
+c we find
+c     z**3 * c9ln2r(z) = -x*cabs(z)**2 - 0.25*cabs(z)**4
+c        + (2*x+cabs(z)**2)**3 * r9ln2r(2*x+cabs(z)**2)
+c        + i * (carg(1+z) + (x-1)*y)
+c the imaginary part must be evaluated carefully as
+c     (atan(y/(1+x)) - y/(1+x)) + y/(1+x) - (1-x)*y
+c       = (y/(1+x))**3 * r9atn1(y/(1+x)) + x**2*y/(1+x)
+c
+c now we divide through by z**3 carefully.  write
+c     1/z**3 = (x-i*y)/cabs(z)**3 * (1/cabs(z)**3)
+c then   c9ln2r(z) = ((x-i*y)/cabs(z))**3 * (-x/cabs(z) - cabs(z)/4
+c        + 0.5*((2*x+cabs(z)**2)/cabs(z))**3 * r9ln2r(2*x+cabs(z)**2)
+c        + i*y/(cabs(z)*(1+x)) * ((x/cabs(z))**2 +
+c          + (y/(cabs(z)*(1+x)))**2 * r9atn1(y/(1+x)) ) )
+c
+c if we let  xz = x/cabs(z)  and  yz = y/cabs(z)  we may write
+c     c9ln2r(z) = (xz-i*yz)**3 * (-xz - cabs(z)/4
+c        + 0.5*(2*xz+cabs(z))**3 * r9ln2r(2*x+cabs(z)**2)
+c        + i*yz/(1+x) * (xz**2 + (yz/(1+x))**2*r9atn1(y/(1+x)) ))
+c
+      complex(8) z
+      real(8) x,y,xz,yz,cabsz,d9ln2r,d9atn1,arg,rpart,aipart,y1x
+      
+      external d9atn1, d9ln2r
+c
+      x = real (z)
+      y = aimag (z)
+c
+      cabsz = abs(z)
+      if (cabsz.gt.0.8125) go to 20
+c
+      z9ln2r = dcmplx (1.0/3.0, 0.0)
+      if (cabsz.eq.0.0) return
+c
+      xz = x/cabsz
+      yz = y/cabsz
+c
+      arg = 2.0*xz + cabsz
+      rpart = 0.5*arg**3*d9ln2r(cabsz*arg) - xz - 0.25*cabsz
+      y1x = yz/(1.0+x)
+      aipart = y1x * (xz**2 + y1x**2*d9atn1(cabsz*y1x) )
+c
+      z9ln2r = dcmplx(xz,-yz)**3 * dcmplx(rpart,aipart)
+      return
+c
+ 20   z9ln2r = (log(1.0+z) - z*(1.0-0.5*z)) / z**3
+      return
+c
+      end
diff --git a/fvn_fnlib/zacos.f b/fvn_fnlib/zacos.f
new file mode 100644
index 0000000..074f181
--- /dev/null
+++ b/fvn_fnlib/zacos.f
@@ -0,0 +1,12 @@
+      complex(8) function zacos (z)
+      implicit none
+c april 1977 version.  w. fullerton, c3, los alamos scientific lab.
+      complex(8) z, zasin
+      real(8) pi2
+      external zasin
+      data pi2 /1.5707963267 9489661923d0/
+c
+      zacos = pi2 - zasin (z)
+c
+      return
+      end
diff --git a/fvn_fnlib/zacosh.f b/fvn_fnlib/zacosh.f
new file mode 100644
index 0000000..89a0626
--- /dev/null
+++ b/fvn_fnlib/zacosh.f
@@ -0,0 +1,11 @@
+      complex(8) function zacosh (z)
+      implicit none
+c april 1977 version.  w. fullerton, c3, los alamos scientific lab.
+      complex(8) z, ci, zacos
+      external zacos
+      data ci /(0.d0,1.d0)/
+c
+      zacosh = ci*zacos(z)
+c
+      return
+      end
diff --git a/fvn_fnlib/zarg.f b/fvn_fnlib/zarg.f
new file mode 100644
index 0000000..7c3c4ac
--- /dev/null
+++ b/fvn_fnlib/zarg.f
@@ -0,0 +1,12 @@
+      real(8) function zarg (z)
+      implicit none
+c april 1977 version.  w. fullerton, c3, los alamos scientific lab.
+      complex(8) z
+
+c
+      zarg = 0.0
+      if (real(z).ne.0. .or. aimag(z).ne.0.) zarg =
+     1  atan2 (aimag(z), real(z))
+c
+      return
+      end
diff --git a/fvn_fnlib/zasin.f b/fvn_fnlib/zasin.f
new file mode 100644
index 0000000..e26e20e
--- /dev/null
+++ b/fvn_fnlib/zasin.f
@@ -0,0 +1,50 @@
+      complex(8) function zasin (zinp)
+      implicit none
+c august 1980 edition.  w. fullerton, c3, los alamos scientific lab.
+c
+c ref -- l. l. pennisi, elements of complex variables,  holt, rinehart
+c and winston, 1963.  page 126.
+c
+      complex(8) zinp, z, z2, sqzp1, ci
+      real(8) d1mach,pi2,pi,rmin,r
+      integer nterms,i,twoi
+      external d1mach
+
+      data pi2 /1.5707963267 9489661923d0/
+      data pi /3.1415926535 8979324d0/
+      data ci /(0.,1.)/
+      data nterms, rmin / 0, 0.0 /
+c
+      if (nterms.ne.0) go to 10
+c nterms = alog(eps)/alog(rmax)  where rmax = 0.1
+      nterms = -0.4343*log(d1mach(3)) + 1.0
+      rmin = sqrt (6.0*d1mach(3))
+c
+ 10   z = zinp
+      r = abs (z)
+      if (r.gt.0.1) go to 30
+c
+      zasin = z
+      if (r.lt.rmin) return
+c
+      zasin = (0.0, 0.0)
+      z2 = z*z
+      do 20 i=1,nterms
+        twoi = 2*(nterms-i) + 1
+        zasin = 1.0/twoi + twoi*zasin*z2/(twoi+1.0)
+ 20   continue
+      zasin = z*zasin
+      return
+c
+ 30   if (real(zinp).lt.0.0) z = -zinp
+c
+      sqzp1 = sqrt (z+1.0)
+      if (aimag(sqzp1).lt.0.) sqzp1 = -sqzp1
+      zasin = pi2 - ci * log (z + sqzp1*sqrt(z-1.0))
+c
+      if (real(zasin).gt.pi2) zasin = pi - zasin
+      if (real(zasin).le.(-pi2)) zasin = -pi - zasin
+      if (real(zinp).lt.0.) zasin = -zasin
+c
+      return
+      end
diff --git a/fvn_fnlib/zasinh.f b/fvn_fnlib/zasinh.f
new file mode 100644
index 0000000..92fee17
--- /dev/null
+++ b/fvn_fnlib/zasinh.f
@@ -0,0 +1,11 @@
+      complex(8) function zasinh (z)
+      implicit none
+c april 1977 version.  w. fullerton, c3, los alamos scientific lab.
+      complex z, ci, zasin
+      external zasin
+      data ci /(0.,1.)/
+c
+      zasinh = -ci*zasin (ci*z)
+c
+      return
+      end
diff --git a/fvn_fnlib/zatan.f b/fvn_fnlib/zatan.f
new file mode 100644
index 0000000..8d60b0a
--- /dev/null
+++ b/fvn_fnlib/zatan.f
@@ -0,0 +1,57 @@
+      complex(8) function zatan (z)
+      implicit none
+c jan 1984 edition.  w. fullerton, los alamos scientific lab.
+c
+      complex(8) z, z2
+      real(8) pi2,sqeps,rmin,rmax,r2sml,r,d1mach,x,y,r2,xans,yans
+      external d1mach
+      integer nterms,i,twoi
+      data pi2 /1.5707963267 9489661923d0 /
+      data nterms, sqeps, rmin, rmax, r2sml / 0, 4*0.0 /
+c
+      if (nterms.ne.0) go to 10
+c nterms = alog(eps)/alog(rbnd) where rbnd = 0.1
+      nterms = -0.4343*log(d1mach(3)) + 1.0
+      sqeps = sqrt (d1mach(4))
+      rmin = sqrt (3.0*d1mach(3))
+      rmax = 1.0/d1mach(3)
+      r2sml = 10.0*d1mach (4)
+c
+ 10   r = abs(z)
+      if (r.gt.0.1) go to 30
+c
+      zatan = z
+      if (r.lt.rmin) return
+c
+      zatan = (0.0, 0.0)
+      z2 = z*z
+      do 20 i=1,nterms
+        twoi = 2*(nterms-i) + 1
+        zatan = 1.0/twoi - z2*zatan
+ 20   continue
+      zatan = z*zatan
+      return
+c
+ 30   if (r.gt.rmax) go to 50
+      x = real(z)
+      y = aimag(z)
+      r2 = r*r
+c
+      if (abs(r2-1.0).gt.sqeps) go to 40
+      if (r2+2.0*y+1.0.lt.r2sml .or. r2-2.0*y+1.0.lt.r2sml) call
+     1  seteru (
+     2  55hzatan   no precision because z is too close to +i or -i,
+     3  55, 2, 2)
+      if (abs(dcmplx(1.0,0.0)+z*z).lt.sqeps) call seteru (
+     1 50hzatan   answer lt half precision, z**2 close to -1, 50, 1, 1)
+c
+ 40   xans = 0.5*atan2 (2.0*x, 1.0-r2)
+      yans = 0.25*log((r2+2.0*y+1.0)/(r2-2.0*y+1.0))
+      zatan = dcmplx (xans, yans)
+      return
+c
+ 50   zatan = dcmplx (pi2, 0.0)
+      if (real(z).lt.0.0) zatan = dcmplx (-pi2, 0.0)
+      return
+c
+      end
diff --git a/fvn_fnlib/zatan2.f b/fvn_fnlib/zatan2.f
new file mode 100644
index 0000000..34e78ec
--- /dev/null
+++ b/fvn_fnlib/zatan2.f
@@ -0,0 +1,22 @@
+      complex(8) function zatan2 (csn, ccs)
+      implicit none
+c april 1977 version.  w. fullerton, c3, los alamos scientific lab.
+      complex(8) csn, ccs, zatan
+      real(8) pi
+      external zatan
+      data pi / 3.1415926535 8979323846d0 /
+c
+      if (abs(ccs).eq.0.) go to 10
+c
+      zatan2 = zatan (csn/ccs)
+      if (real(ccs).lt.0.) zatan2 = zatan2 + pi
+      if (real(zatan2).gt.pi) zatan2 = zatan2 - 2.0*pi
+      return
+c
+ 10   if (abs(csn).eq.0.) call seteru (
+     1  34hzatan2  called with both args zero, 34, 1, 2)
+c
+      zatan2 = dcmplx (sign(0.5*pi,real(csn)), 0.0)
+c
+      return
+      end
diff --git a/fvn_fnlib/zatanh.f b/fvn_fnlib/zatanh.f
new file mode 100644
index 0000000..cd97c62
--- /dev/null
+++ b/fvn_fnlib/zatanh.f
@@ -0,0 +1,11 @@
+      complex(8) function zatanh (z)
+      implicit none
+c april 1977 version.  w. fullerton, c3, los alamos scientific lab.
+      complex(8) z, ci, zatan
+      external zatan
+      data ci /(0.,1.)/
+c
+      zatanh = -ci*zatan(ci*z)
+c
+      return
+      end
diff --git a/fvn_fnlib/zbeta.f b/fvn_fnlib/zbeta.f
new file mode 100644
index 0000000..f824624
--- /dev/null
+++ b/fvn_fnlib/zbeta.f
@@ -0,0 +1,21 @@
+      complex(8) function zbeta (a, b)
+      implicit none
+c july 1977 edition.  w. fullerton, c3, los alamos scientific lab.
+      complex(8) a, b, zgamma, zlbeta
+      real(8) xmax,xmin
+      external  zgamma, zlbeta
+      data xmax / 0.0 /
+c
+      if (xmax.eq.0.0) call d9gaml (xmin, xmax)
+c
+      if (real(a).le.0.0 .or. real(b).le.0.0) call seteru (
+     1  48hzbeta   real part of both arguments must be gt 0, 48, 1, 2)
+c
+      if (real(a)+real(b).lt.xmax) zbeta = zgamma(a) * (zgamma(b)/
+     1  zgamma(a+b) )
+      if (real(a)+real(b).lt.xmax) return
+c
+      zbeta = exp (zlbeta(a, b))
+c
+      return
+      end
diff --git a/fvn_fnlib/zcbrt.f b/fvn_fnlib/zcbrt.f
new file mode 100644
index 0000000..9e27f4e
--- /dev/null
+++ b/fvn_fnlib/zcbrt.f
@@ -0,0 +1,14 @@
+      complex(8) function zcbrt (z)
+      implicit none
+c april 1977 version.  w. fullerton, c3, los alamos scientific lab.
+      complex(8) z
+      real(8) theta,zarg,r,dcbrt
+      external zarg, dcbrt
+c
+      theta = zarg(z) / 3.0
+      r = dcbrt (abs(z))
+c
+      zcbrt = dcmplx (r*cos(theta), r*sin(theta))
+c
+      return
+      end
diff --git a/fvn_fnlib/zcosh.f b/fvn_fnlib/zcosh.f
new file mode 100644
index 0000000..6fbf1ee
--- /dev/null
+++ b/fvn_fnlib/zcosh.f
@@ -0,0 +1,10 @@
+      complex(8) function zcosh (z)
+      implicit none
+c april 1977 version.  w. fullerton, c3, los alamos scientific lab.
+      complex(8) z, ci
+      data ci /(0.,1.)/
+c
+      zcosh = cos (ci*z)
+c
+      return
+      end
diff --git a/fvn_fnlib/zcot.f b/fvn_fnlib/zcot.f
new file mode 100644
index 0000000..eae9c8b
--- /dev/null
+++ b/fvn_fnlib/zcot.f
@@ -0,0 +1,55 @@
+      complex(8) function zcot (z)
+      implicit none
+c march 1979 edition.  w. fullerton, c3, los alamos scientific lab.
+      complex(8) z
+      real(8) d1mach
+      real(8) eps, xmax, ylarge, ybig, rmin, ymin
+      real(8) x,y,x2,y2,sn2x,den
+      integer irold,irold2
+      external d1mach
+      data eps, xmax, ylarge, ybig, rmin, ymin / 5*0.0, 1.5 /
+c
+      if (eps.ne.0.0) go to 10
+      eps = d1mach(4)
+      xmax = 1.0/eps
+      ylarge = -0.5*log(0.5*d1mach(3))
+      ybig = -0.5*log(0.5*sqrt(d1mach(3)))
+      rmin = exp (max(log(d1mach(1)), -log(d1mach(2))) + 0.01)
+c
+ 10   x = real (z)
+      y = aimag (z)
+      if (abs(y).gt.ylarge) go to 30
+c
+      x2 = 2.0*x
+      y2 = 2.0*y
+      if (abs(x2).gt.xmax) go to 20
+      if ( abs(z).lt.rmin) call seteru (55hzcot     abs(z) is zero or so
+     1 small that zcot overflows, 55, 5, 2)
+c
+      call entsrc (irold, 1)
+      sn2x = sin(x2)
+      call erroff
+      den = cosh(y2) - cos(x2)
+      call erroff
+      call entsrc (irold2, irold)
+c
+      if (den.lt.x*x2*eps*eps) call seteru (74hzcot    cot is nearly sin
+     1gular, x is near a multiple of pi and y is near 0, 74, 3, 2)
+      if (den.lt.x*x2*eps .and. abs(x).gt.0.5) call seteru (65hzcot    a
+     1nswer is lt half precision, x is near pi and y is near 0, 65, 1,1)
+c
+      zcot = dcmplx (sn2x/den, -sinh(y2)/den)
+      return
+c
+ 20   if (abs(y).lt.ymin) call seteru (75hzcot    answer would have no p
+     1recision, abs(x) is very big and abs(y) small, 75, 4, 2)
+      if (abs(y).lt.ybig) call seteru (69hzcot    answer lt half precisi
+     1on, abs(x) is very big and abs(y) small, 69, 2, 1)
+c
+      zcot = dcmplx (0.0, 1.0/tanh(y2))
+      return
+c
+ 30   zcot = dcmplx (0.0, sign (1.0d0, y))
+      return
+c
+      end
diff --git a/fvn_fnlib/zexprl.f b/fvn_fnlib/zexprl.f
new file mode 100644
index 0000000..afe5b2a
--- /dev/null
+++ b/fvn_fnlib/zexprl.f
@@ -0,0 +1,46 @@
+      complex(8) function zexprl (z)
+      implicit none
+c august 1980 edition.  w. fullerton, c3, los alamos scientific lab.
+c
+c evaluate  (cexp(z)-1)/z .  for small cabs(z), we use the taylor
+c series.  we could instead use the expression
+c        cexprl(z) = (exp(x)*exp(i*y)-1)/z
+c                  = (x*exprel(x) * (1 - 2*sin(y/2)**2) - 2*sin(y/2)**2
+c                                    + i*sin(y)*(1+x*exprel(x))) / z
+c
+      complex(8) z
+      real(8) sqeps,r,xn,xln,rbnd,d1mach,alneps
+      external d1mach
+      integer nterms,irold,irold2,i
+      data nterms, rbnd, sqeps / 0, 2*0.0 /
+c
+      if (nterms.ne.0) go to 10
+      alneps = log(d1mach(3))
+      xn = 3.72 - 0.3*alneps
+      xln = log((xn+1.0)/1.36)
+      nterms = xn - (xn*xln+alneps)/(xln+1.36) + 1.5
+      rbnd = d1mach(3)
+      sqeps = 0.0
+c
+ 10   r = abs(z)
+      if (r.le.0.5) go to 20
+c
+      call entsrc (irold, 1)
+      zexprl = (exp(z) - 1.0) / z
+      call erroff
+      call entsrc (irold2, irold)
+      if (abs(real(z)).lt.sqeps .and.  abs(zexprl).lt.sqeps) call
+     1  seteru (41hzexprl  answer lt half prec, z near ni2pi,
+     2  41, 1, 1)
+      return
+c
+ 20   zexprl = (1.0, 0.0)
+      if (r.lt.rbnd) return
+c
+      zexprl = (0.0, 0.0)
+      do 30 i=1,nterms
+        zexprl = 1.0 + zexprl*z/dble(nterms+2-i)
+ 30   continue
+c
+      return
+      end
diff --git a/fvn_fnlib/zgamma.f b/fvn_fnlib/zgamma.f
new file mode 100644
index 0000000..7c69153
--- /dev/null
+++ b/fvn_fnlib/zgamma.f
@@ -0,0 +1,11 @@
+      complex(8) function zgamma (z)
+      implicit none
+c july 1977 edition.  w. fullerton, c3, los alamos scientific lab.
+c a preliminary version that is portable, but not accurate enough.
+      complex(8) z, zlngam
+      external zlngam
+c
+      zgamma = exp (zlngam(z))
+c
+      return
+      end
diff --git a/fvn_fnlib/zgamr.f b/fvn_fnlib/zgamr.f
new file mode 100644
index 0000000..b314d6c
--- /dev/null
+++ b/fvn_fnlib/zgamr.f
@@ -0,0 +1,23 @@
+      complex(8) function zgamr (z)
+      implicit none
+c july 1977 edition.  w. fullerton, c3, los alamos scientific lab.
+c this version is an inaccurate preliminary one.  eventually this
+c routine should be a fundamental routine with no dependence on cgamma.
+c
+      complex(8) z, zlngam
+      real(8) x
+      integer irold,ir
+      external zlngam
+c
+      zgamr = (0.0, 0.0)
+      x = real (z)
+      if (x.le.0.0 .and. aint(x).eq.x .and. 0.0.eq.aimag(z)) return
+c
+      call entsrc (irold, 1)
+      zgamr = zlngam(z)
+      call erroff
+      call entsrc (ir, irold)
+      zgamr = exp (-zgamr)
+c
+      return
+      end
diff --git a/fvn_fnlib/zlbeta.f b/fvn_fnlib/zlbeta.f
new file mode 100644
index 0000000..94418e1
--- /dev/null
+++ b/fvn_fnlib/zlbeta.f
@@ -0,0 +1,14 @@
+      complex(8) function zlbeta (a, b)
+      implicit none
+c july 1977 edition.  w. fullerton, c3, los alamos scientific lab.
+c a preliminary version that is portable, but not accurate enough.
+      complex(8) a, b, zlngam
+      external zlngam
+c
+      if (real(a).le.0.0 .or. real(b).le.0.0) call seteru (
+     1  48hclbeta  real part of both arguments must be gt 0, 48, 1, 2)
+c
+      zlbeta = zlngam(a) + zlngam(b) - zlngam(a+b)
+c
+      return
+      end
diff --git a/fvn_fnlib/zlngam.f b/fvn_fnlib/zlngam.f
new file mode 100644
index 0000000..08c8e1c
--- /dev/null
+++ b/fvn_fnlib/zlngam.f
@@ -0,0 +1,82 @@
+      complex(8) function zlngam (zin)
+      implicit none
+c august 1980 edition.  w. fullerton c3, los alamos scientific lab.
+c eventually clngam should make use of c8lgmc for all z except for
+c z in the vicinity of 1 and 2.
+      complex(8) zin, z, corr, zlnrel, z9lgmc
+      real(8) d1mach,pi,sq2pil,bound,dxrel,rmax,cabsz
+      real(8) x,y,argsum,zarg
+      integer irold,ir,i,n
+      external z9lgmc, zarg, zlnrel,d1mach
+      data pi / 3.1415926535 8979324e0 /
+      data sq2pil / 0.9189385332 0467274e0 /
+c
+      data bound, dxrel, rmax / 3*0.0 /
+c
+      if (bound.ne.0.) go to 10
+      n = -0.30*log(d1mach(3))
+c bound = n*(0.1*eps)**(-1/(2*n-1))/(pi*exp(1))
+      bound = 0.1171*dble(n)*(0.1*d1mach(3))**(-1./(2.*dble(n)-1.))
+      dxrel = sqrt (d1mach(4))
+      rmax = d1mach(2)/log(d1mach(2))
+c
+ 10   z = zin
+      x = real(zin)
+      y = aimag(zin)
+c
+      corr = (0.0, 0.0)
+      cabsz = abs(z)
+      if (cabsz.gt.rmax) call seteru (
+     1  44hzlngam   abs(z) so large result may overflow, 44, 2, 2)
+      if (x.ge.0.0 .and. cabsz.gt.bound) go to 50
+      if (x.lt.0.0 .and. abs(y).gt.bound) go to 50
+c
+      if (cabsz.lt.bound) go to 20
+c
+c use the reflection formula for real(z) negative, cabs(z) large, and
+c abs(aimag(y)) small.
+c
+      call entsrc (irold, 1)
+      if (y.gt.0.0) z = conjg (z)
+      corr = exp (-dcmplx(0.0,2.0*pi)*z)
+      if (real(corr).eq.1.0 .and. aimag(corr).eq.0.0) call seteru (
+     1  31hzlngam  z is a negative integer, 31, 3, 2)
+c
+      zlngam = sq2pil + 1.0 - dcmplx(0.0,pi)*(z-0.5) - zlnrel(-corr)
+     1  + (z-0.5)*log(1.0-z) - z - z9lgmc(1.0-z)
+      if (y.gt.0.0) zlngam = conjg (zlngam)
+c
+      call erroff
+      call entsrc (ir, irold)
+      if (abs(y).gt.dxrel) return
+c  X in sequence field on next line is to preserve trailing blank
+      if (0.5* abs((1.-corr)*zlngam/z).lt.dxrel) call seteru (68hzlngam    X
+     1 answer lt half precision because z too near negative integer, 68,
+     2 1, 1)
+      return
+c
+c use the recursion relation for cabs(z) small.
+c
+ 20   if (x.ge.(-0.5) .or. abs(y).gt.dxrel) go to 30
+      if ( abs((z-aint(x-0.5))/x).lt.dxrel) call seteru ( 68hzlngam  ans
+     1wer lt half precision because z too near negative integer, 68,1,1)
+c
+ 30   n = sqrt (bound**2 - y**2) - x + 1.0
+      argsum = 0.0
+      corr = (1.0, 0.0)
+      do 40 i=1,n
+        argsum = argsum + zarg(z)
+        corr = z*corr
+        z = 1.0 + z
+ 40   continue
+c
+      if (real(corr).eq.0.0 .and. aimag(corr).eq.0.0) call seteru (
+     1  31hzlngam  z is a negative integer, 31, 3, 2)
+      corr = -dcmplx (log(abs(corr)), argsum)
+c
+c use stirling-s approximation for large z.
+c
+ 50   zlngam = sq2pil + (z-0.5)*log(z) - z + corr + z9lgmc(z)
+      return
+c
+      end
diff --git a/fvn_fnlib/zlnrel.f b/fvn_fnlib/zlnrel.f
new file mode 100644
index 0000000..b31178f
--- /dev/null
+++ b/fvn_fnlib/zlnrel.f
@@ -0,0 +1,32 @@
+      complex(8) function zlnrel (z)
+      implicit none
+c april 1977 version.  w. fullerton, c3, los alamos scientific lab.
+c
+c clnrel(z) = clog(1+z) with relative error accuracy near z = 0.
+c let   rho = cabs(z)  and
+c       r**2 = cabs(1+z)**2 = (1+x)**2 + y**2 = 1 + 2*x + rho**2 .
+c now if rho is small we may evaluate clnrel(z) accurately by
+c       clog(1+z) = cmplx (alog(r), carg(1+z))
+c                 = cmplx (0.5*alog(r**2), carg(1+z))
+c                 = cmplx (0.5*alnrel(2*x+rho**2), carg(1+z))
+c
+      complex(8) z
+      real(8) dlnrel,d1mach,zarg,sqeps,x,rho
+      external dlnrel, zarg, d1mach
+      data sqeps /0.0/
+c
+      if (sqeps.eq.0.) sqeps = sqrt (d1mach(4))
+c
+      if ( abs(1.+z).lt.sqeps) call seteru (
+     1  54hzlnrel  answer lt half precision because z too near -1, 54,
+     2  1, 1)
+c
+      rho = abs(z)
+      if (rho.gt.0.375) zlnrel = log (1.0+z)
+      if (rho.gt.0.375) return
+c
+      x = real(z)
+      zlnrel = dcmplx (0.5*dlnrel(2.*x+rho**2), zarg(1.0+z))
+c
+      return
+      end
diff --git a/fvn_fnlib/zlog10.f b/fvn_fnlib/zlog10.f
new file mode 100644
index 0000000..f9dea09
--- /dev/null
+++ b/fvn_fnlib/zlog10.f
@@ -0,0 +1,11 @@
+      complex(8) function zlog10 (z)
+      implicit none
+c april 1977 version.  w. fullerton, c3, los alamos scientific lab.
+      complex(8) z
+      real(8) aloge
+      data aloge / 0.4342944819 0325182765d0 /
+c
+      zlog10 = aloge * log(z)
+c
+      return
+      end
diff --git a/fvn_fnlib/zpsi.f b/fvn_fnlib/zpsi.f
new file mode 100644
index 0000000..d51e0f3
--- /dev/null
+++ b/fvn_fnlib/zpsi.f
@@ -0,0 +1,91 @@
+      complex(8) function zpsi (zin)
+      implicit none
+c may 1978 edition.  w. fullerton, c3, los alamos scientific lab.
+      complex(8) zin, z, z2inv, corr,  zcot
+      dimension bern(13)
+      real(8) bern,d1mach,pi,bound, dxrel, rmin, rbig
+      real(8) x,y,cabsz
+      integer nterm,ndx,n,i
+      external zcot, d1mach
+c
+      data bern( 1) /   .8333333333 3333333 e-1 /
+      data bern( 2) /  -.8333333333 3333333 e-2 /
+      data bern( 3) /   .3968253968 2539683 e-2 /
+      data bern( 4) /  -.4166666666 6666667 e-2 /
+      data bern( 5) /   .7575757575 7575758 e-2 /
+      data bern( 6) /  -.2109279609 2796093 e-1 /
+      data bern( 7) /   .8333333333 3333333 e-1 /
+      data bern( 8) /  -.4432598039 2156863 e0 /
+      data bern( 9) /   .3053954330 2701197 e1 /
+      data bern(10) /  -.2645621212 1212121 e2 /
+      data bern(11) /   .2814601449 2753623 e3 /
+      data bern(12) /  -.3454885393 7728938 e4 /
+      data bern(13) /   .5482758333 3333333 e5 /
+c
+      data pi / 3.141592653 589793 e0 /
+      data nterm, bound, dxrel, rmin, rbig / 0, 4*0.0 /
+c
+      if (nterm.ne.0) go to 10
+      nterm = -0.30*log(d1mach(3))
+c maybe bound = n*(0.1*eps)**(-1/(2*n-1)) / (pi*exp(1))
+      bound = 0.1171*dble(nterm) *
+     1  (0.1*d1mach(3))**(-1.0/(2.0*dble(nterm)-1.0))
+      dxrel = sqrt(d1mach(4))
+      rmin = exp (max(log(d1mach(1)), -log(d1mach(2))) + 0.011 )
+      rbig = 1.0/d1mach(3)
+c
+ 10   z = zin
+      x = real(z)
+      y = aimag(z)
+      if (y.lt.0.0) z = conjg(z)
+c
+      corr = (0.0, 0.0)
+      cabsz = abs(z)
+      if (x.ge.0.0 .and. cabsz.gt.bound) go to 50
+      if (x.lt.0.0 .and. abs(y).gt.bound) go to 50
+c
+      if (cabsz.lt.bound) go to 20
+c
+c use the reflection formula for real(z) negative, cabs(z) large, and
+c abs(aimag(y)) small.
+c
+      corr = -pi*zcot(pi*z)
+      z = 1.0 - z
+      go to 50
+c
+c use the recursion relation for cabs(z) small.
+c
+ 20   if (cabsz.lt.rmin) call seteru (
+     1  56hzpsi    zpsi called with z so near 0 that zpsi overflows,
+     1  56, 2, 2)
+c
+      if (x.ge.(-0.5) .or. abs(y).gt.dxrel) go to 30
+      if ( abs((z-aint(x-0.5))/x).lt.dxrel) call seteru (
+     1  68hzpsi    answer lt half precision because z too near negative
+     2integer, 68, 1, 1)
+      if (y.eq.0.0 .and. x.eq.aint(x)) call seteru (
+     1  31hzpsi    z is a negative integer, 31, 3, 2)
+c
+ 30   n = sqrt(bound**2-y**2) - x + 1.0
+      do 40 i=1,n
+        corr = corr - 1.0/z
+        z = z + 1.0
+ 40   continue
+c
+c now evaluate the asymptotic series for suitably large z.
+c
+ 50   if (cabsz.gt.rbig) zpsi = log(z) + corr
+      if (cabsz.gt.rbig) go to 70
+c
+      zpsi = (0.0, 0.0)
+      z2inv = 1.0/z**2
+      do 60 i=1,nterm
+        ndx = nterm + 1 - i
+        zpsi = bern(ndx) + z2inv*zpsi
+ 60   continue
+      zpsi = log(z) - 0.5/z - zpsi*z2inv + corr
+c
+ 70   if (y.lt.0.0) zpsi = conjg(zpsi)
+c
+      return
+      end
diff --git a/fvn_fnlib/zsinh.f b/fvn_fnlib/zsinh.f
new file mode 100644
index 0000000..6ae8f0f
--- /dev/null
+++ b/fvn_fnlib/zsinh.f
@@ -0,0 +1,10 @@
+      complex(8) function zsinh (z)
+      implicit none
+c april 1977 version.  w. fullerton, c3, los alamos scientific lab.
+      complex(8) z, ci
+      data ci /(0.,1.)/
+c
+      zsinh = -ci*sin(ci*z)
+c
+      return
+      end
diff --git a/fvn_fnlib/ztan.f b/fvn_fnlib/ztan.f
new file mode 100644
index 0000000..72ad2ab
--- /dev/null
+++ b/fvn_fnlib/ztan.f
@@ -0,0 +1,51 @@
+      complex(8) function ztan (z)
+      implicit none
+c march 1979 edition.  w. fullerton, c3, los alamos scientific lab.
+      complex z
+      real(8) d1mach,eps, xmax, ylarge, ybig, ymin,sn2x,den
+      real(8) x,y,x2,y2
+      integer irold,irold2
+      external d1mach
+      data eps, xmax, ylarge, ybig, ymin / 4*0.0, 1.50 /
+c
+      if (eps.ne.0.0) go to 10
+      eps =  d1mach(4)
+      xmax = 1.0/eps
+      ylarge = -0.5*log(0.5*d1mach(3))
+      ybig = -0.5*log(0.5*sqrt(d1mach(3)))
+c
+ 10   x = real(z)
+      y = aimag(z)
+      if (abs(y).gt.ylarge) go to 30
+c
+      x2 = 2.0*x
+      y2 = 2.0*y
+      if (abs(x2).gt.xmax) go to 20
+c
+      call entsrc (irold, 1)
+      sn2x = sin(x2)
+      call erroff
+      den = cos(x2) + cosh(y2)
+      call erroff
+      call entsrc (irold2, irold)
+c
+      if (den.lt.x*x2*eps*eps) call seteru ( 72hztan    tan is nearly si
+     1ngular, x is near pi/2 or 3*pi/2 and y is near 0, 72, 3, 2)
+      if (den.lt.x*x2*eps) call seteru (74hztan    answer lt half precis
+     1ion, x is near pi/2 or 3*pi/2 and y is near 0, 74, 1, 1)
+c
+      ztan = dcmplx (sn2x/den, sinh(y2)/den)
+      return
+c
+ 20   if (abs(y).lt.ymin) call seteru (75hztan    answer would have no p
+     1recision, abs(x) is very big and abs(y) small, 75, 4, 2)
+      if (abs(y).lt.ybig) call seteru (69hztan    answer lt half precisi
+     1on, abs(x) is very big and abs(y) small, 69, 2, 1)
+c
+      ztan = dcmplx (0.0, tanh(y2))
+      return
+c
+ 30   ztan = dcmplx (0.0, -sign(1.0d0, y))
+      return
+c
+      end
diff --git a/fvn_fnlib/ztanh.f b/fvn_fnlib/ztanh.f
new file mode 100644
index 0000000..943da05
--- /dev/null
+++ b/fvn_fnlib/ztanh.f
@@ -0,0 +1,10 @@
+      complex(8) function ztanh (z)
+c april 1977 version.  w. fullerton, c3, los alamos scientific lab.
+      complex(8) z, ci, ztan
+      external ztan
+      data ci /(0.,1.)/
+c
+      ztanh = -ci*ztan(ci*z)
+c
+      return
+      end
diff --git a/fvnlib.f90 b/fvnlib.f90
index 7d023d6..9057bbb 100644
--- a/fvnlib.f90
+++ b/fvnlib.f90
@@ -22,6 +22,9 @@ module fvn
 ! if you find it usefull it would be kind to give credits ;-) 
 !
 ! svn version
+! February 2008 : added fnlib to repository so there's no use to have
+!                 special functions and trigonometry here. Some functions
+!                 are then removed
 ! January 2008 : added quadratic interpolation, gamma/factorial function,
 !                 a function which return identity matrix,
 !                 evaluation of nterm chebyshev series
@@ -50,8 +53,104 @@ private ::  d1mach,dqag,dqag_2d_inner,dqag_2d_outer,dqage,dqage_2d_inner, &
             dqage_2d_outer,dqk15,dqk15_2d_inner,dqk15_2d_outer,dqk21,dqk21_2d_inner,dqk21_2d_outer, &
             dqk31,dqk31_2d_inner,dqk31_2d_outer,dqk41,dqk41_2d_inner,dqk41_2d_outer, &
             dqk51,dqk51_2d_inner,dqk51_2d_outer,dqk61,dqk61_2d_inner,dqk61_2d_outer,dqpsrt
-            
-            
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! Generic interface Definition
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+! Identity Matrix
+interface fvn_ident
+      module procedure fvn_s_ident,fvn_d_ident,fvn_c_ident,fvn_z_ident
+end interface fvn_ident
+
+! Matrix inversion
+interface fvn_matinv
+      module procedure fvn_s_matinv,fvn_d_matinv,fvn_c_matinv,fvn_z_matinv
+end interface fvn_matinv
+
+! Determinant
+interface fvn_det
+    module procedure fvn_s_det,fvn_d_det,fvn_c_det,fvn_z_det
+end interface fvn_det
+
+! Condition
+interface fvn_matcon
+    module procedure fvn_s_matcon,fvn_d_matcon,fvn_c_matcon,fvn_z_matcon
+end interface fvn_matcon
+
+! Eigen
+interface fvn_matev
+    module procedure fvn_s_matev,fvn_d_matev,fvn_c_matev,fvn_z_matev
+end interface fvn_matev
+
+! Utility procedure find interval
+interface fvn_find_interval
+    module procedure fvn_s_find_interval,fvn_d_find_interval
+end interface fvn_find_interval
+
+! Quadratic 1D interpolation
+interface fvn_quad_interpol
+    module procedure fvn_s_quad_interpol,fvn_d_quad_interpol
+end interface fvn_quad_interpol
+
+! Quadratic 2D interpolation
+interface fvn_quad_2d_interpol
+    module procedure fvn_s_quad_2d_interpol,fvn_d_quad_2d_interpol
+end interface fvn_quad_2d_interpol
+
+! Quadratic 3D interpolation
+interface fvn_quad_3d_interpol
+    module procedure fvn_s_quad_3d_interpol,fvn_d_quad_3d_interpol
+end interface fvn_quad_3d_interpol
+
+! Akima interpolation
+interface fvn_akima
+    module procedure fvn_s_akima,fvn_d_akima
+end interface fvn_akima
+
+! Akima evaluation
+interface fvn_spline_eval
+    module procedure fvn_s_spline_eval,fvn_d_spline_eval
+end interface fvn_spline_eval
+
+! Least square polynomial
+interface fvn_lspoly
+    module procedure fvn_s_lspoly,fvn_d_lspoly
+end interface fvn_lspoly
+
+! Muller
+interface fvn_muller
+    module procedure fvn_z_muller
+end interface fvn_muller
+
+! Gauss legendre
+interface fvn_gauss_legendre
+    module procedure fvn_d_gauss_legendre
+end interface fvn_gauss_legendre
+
+! Simple Gauss Legendre integration
+interface fvn_gl_integ
+    module procedure fvn_d_gl_integ
+end interface fvn_gl_integ
+
+! Adaptative Gauss Kronrod integration f(x)
+interface fvn_integ_1_gk
+    module procedure fvn_d_integ_1_gk
+end interface fvn_integ_1_gk
+
+! Adaptative Gauss Kronrod integration f(x,y)
+interface fvn_integ_2_gk
+    module procedure fvn_d_integ_2_gk
+end interface fvn_integ_2_gk
+
+! Sparse solving
+interface fvn_sparse_solve
+    module procedure fvn_zl_sparse_solve,fvn_zi_sparse_solve,fvn_dl_sparse_solve,fvn_di_sparse_solve
+end interface fvn_sparse_solve
+
+
 contains 
 
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@@ -118,6 +217,7 @@ end function
 ! Matrix inversion subroutines
 !
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
 subroutine fvn_s_matinv(d,a,inva,status)
     !
     ! Matrix inversion of a real matrix using BLAS and LAPACK
@@ -131,7 +231,7 @@ subroutine fvn_s_matinv(d,a,inva,status)
     integer, intent(in) :: d
     real, intent(in) :: a(d,d)
     real, intent(out) :: inva(d,d)
-    integer, intent(out) :: status
+    integer, intent(out),optional :: status
 
     integer, allocatable :: ipiv(:)
     real, allocatable :: work(:)
@@ -139,7 +239,7 @@ subroutine fvn_s_matinv(d,a,inva,status)
     integer :: info
     integer :: lwork
 
-    status=1
+    if (present(status)) status=1
 
     allocate(ipiv(d))
     ! copy a into inva using BLAS
@@ -149,7 +249,7 @@ subroutine fvn_s_matinv(d,a,inva,status)
     call sgetrf(d,d,inva,d,ipiv,info)
     ! if info is not equal to 0, something went wrong we exit setting status to 0
     if (info /= 0) then
-        status=0
+        if (present(status)) status=0
         deallocate(ipiv)
         return
     end if
@@ -161,7 +261,7 @@ subroutine fvn_s_matinv(d,a,inva,status)
     call sgetri(d,inva,d,ipiv,work,lwork,info)
     ! again if info is not equal to 0, we exit setting status to 0
     if (info /= 0) then
-        status=0
+        if (present(status)) status=0
     end if
     deallocate(work)
     deallocate(ipiv)
@@ -177,10 +277,10 @@ subroutine fvn_d_matinv(d,a,inva,status)
     ! status (ou) : =0 if something failed
     !
     implicit none
-    integer, intent(in) :: d
+    integer, intent(in), optional :: d
     double precision, intent(in) :: a(d,d)
     double precision, intent(out) :: inva(d,d)
-    integer, intent(out) :: status
+    integer, intent(out),optional :: status
 
     integer, allocatable :: ipiv(:)
     double precision, allocatable :: work(:)
@@ -188,7 +288,7 @@ subroutine fvn_d_matinv(d,a,inva,status)
     integer :: info
     integer :: lwork
 
-    status=1
+    if (present(status)) status=1
 
     allocate(ipiv(d))
     ! copy a into inva using BLAS
@@ -198,7 +298,7 @@ subroutine fvn_d_matinv(d,a,inva,status)
     call dgetrf(d,d,inva,d,ipiv,info)
     ! if info is not equal to 0, something went wrong we exit setting status to 0
     if (info /= 0) then
-        status=0
+        if (present(status)) status=0
         deallocate(ipiv)
         return
     end if
@@ -210,7 +310,7 @@ subroutine fvn_d_matinv(d,a,inva,status)
     call dgetri(d,inva,d,ipiv,work,lwork,info)
     ! again if info is not equal to 0, we exit setting status to 0
     if (info /= 0) then
-        status=0
+        if (present(status)) status=0
     end if
     deallocate(work)
     deallocate(ipiv)
@@ -229,7 +329,7 @@ subroutine fvn_c_matinv(d,a,inva,status)
     integer, intent(in) :: d
     complex, intent(in) :: a(d,d)
     complex, intent(out) :: inva(d,d)
-    integer, intent(out) :: status
+    integer, intent(out),optional :: status
 
     integer, allocatable :: ipiv(:)
     complex, allocatable :: work(:)
@@ -237,7 +337,7 @@ subroutine fvn_c_matinv(d,a,inva,status)
     integer :: info
     integer :: lwork
 
-    status=1
+     if (present(status)) status=1
 
     allocate(ipiv(d))
     ! copy a into inva using BLAS
@@ -248,7 +348,7 @@ subroutine fvn_c_matinv(d,a,inva,status)
     call cgetrf(d,d,inva,d,ipiv,info)
     ! if info is not equal to 0, something went wrong we exit setting status to 0
     if (info /= 0) then
-        status=0
+        if (present(status)) status=0
         deallocate(ipiv)
         return
     end if
@@ -260,7 +360,7 @@ subroutine fvn_c_matinv(d,a,inva,status)
     call cgetri(d,inva,d,ipiv,work,lwork,info)
     ! again if info is not equal to 0, we exit setting status to 0
     if (info /= 0) then
-        status=0
+        if (present(status)) status=0
     end if
     deallocate(work)
     deallocate(ipiv)
@@ -279,7 +379,7 @@ subroutine fvn_z_matinv(d,a,inva,status)
     integer, intent(in) :: d
     double complex, intent(in) :: a(d,d)
     double complex, intent(out) :: inva(d,d)
-    integer, intent(out) :: status
+    integer, intent(out),optional :: status
 
     integer, allocatable :: ipiv(:)
     double complex, allocatable :: work(:)
@@ -287,7 +387,7 @@ subroutine fvn_z_matinv(d,a,inva,status)
     integer :: info
     integer :: lwork
 
-    status=1
+     if (present(status)) status=1
 
     allocate(ipiv(d))
     ! copy a into inva using BLAS
@@ -298,7 +398,7 @@ subroutine fvn_z_matinv(d,a,inva,status)
     call zgetrf(d,d,inva,d,ipiv,info)
     ! if info is not equal to 0, something went wrong we exit setting status to 0
     if (info /= 0) then
-        status=0
+        if (present(status)) status=0
         deallocate(ipiv)
         return
     end if
@@ -310,7 +410,7 @@ subroutine fvn_z_matinv(d,a,inva,status)
     call zgetri(d,inva,d,ipiv,work,lwork,info)
     ! again if info is not equal to 0, we exit setting status to 0
     if (info /= 0) then
-        status=0
+        if (present(status)) status=0
     end if
     deallocate(work)
     deallocate(ipiv)
@@ -333,20 +433,20 @@ function fvn_s_det(d,a,status)
     implicit none
     integer, intent(in) :: d
     real, intent(in) :: a(d,d)
-    integer, intent(out) :: status
+    integer, intent(out), optional :: status
     real :: fvn_s_det
     
     real, allocatable :: wc_a(:,:)
     integer, allocatable :: ipiv(:)
     integer :: info,i
     
-    status=1
+     if (present(status)) status=1
     allocate(wc_a(d,d))
     allocate(ipiv(d))
     wc_a(:,:)=a(:,:)
     call sgetrf(d,d,wc_a,d,ipiv,info)
     if (info/= 0) then
-        status=0
+         if (present(status)) status=0
         fvn_s_det=0.e0
         deallocate(ipiv)
         deallocate(wc_a)
@@ -376,20 +476,20 @@ function fvn_d_det(d,a,status)
     implicit none
     integer, intent(in) :: d
     double precision, intent(in) :: a(d,d)
-    integer, intent(out) :: status
+    integer, intent(out), optional :: status
     double precision :: fvn_d_det
     
     double precision, allocatable :: wc_a(:,:)
     integer, allocatable :: ipiv(:)
     integer :: info,i
     
-    status=1
+     if (present(status)) status=1
     allocate(wc_a(d,d))
     allocate(ipiv(d))
     wc_a(:,:)=a(:,:)
     call dgetrf(d,d,wc_a,d,ipiv,info)
     if (info/= 0) then
-        status=0
+         if (present(status)) status=0
         fvn_d_det=0.d0
         deallocate(ipiv)
         deallocate(wc_a)
@@ -418,20 +518,20 @@ function fvn_c_det(d,a,status)    !
     implicit none
     integer, intent(in) :: d
     complex, intent(in) :: a(d,d)
-    integer, intent(out) :: status
+    integer, intent(out), optional :: status
     complex :: fvn_c_det
     
     complex, allocatable :: wc_a(:,:)
     integer, allocatable :: ipiv(:)
     integer :: info,i
     
-    status=1
+     if (present(status)) status=1
     allocate(wc_a(d,d))
     allocate(ipiv(d))
     wc_a(:,:)=a(:,:)
     call cgetrf(d,d,wc_a,d,ipiv,info)
     if (info/= 0) then
-        status=0
+         if (present(status)) status=0
         fvn_c_det=(0.e0,0.e0)
         deallocate(ipiv)
         deallocate(wc_a)
@@ -462,20 +562,20 @@ function fvn_z_det(d,a,status)
     implicit none
     integer, intent(in) :: d
     double complex, intent(in) :: a(d,d)
-    integer, intent(out) :: status
+    integer, intent(out), optional :: status
     double complex :: fvn_z_det
     
     double complex, allocatable :: wc_a(:,:)
     integer, allocatable :: ipiv(:)
     integer :: info,i
     
-    status=1
+     if (present(status)) status=1
     allocate(wc_a(d,d))
     allocate(ipiv(d))
     wc_a(:,:)=a(:,:)
     call zgetrf(d,d,wc_a,d,ipiv,info)
     if (info/= 0) then
-        status=0
+         if (present(status)) status=0
         fvn_z_det=(0.d0,0.d0)
         deallocate(ipiv)
         deallocate(wc_a)
@@ -515,7 +615,7 @@ subroutine fvn_s_matcon(d,a,rcond,status)
     integer, intent(in) :: d
     real, intent(in) :: a(d,d)
     real, intent(out) :: rcond
-    integer, intent(out) :: status
+    integer, intent(out), optional :: status
     
     real, allocatable :: work(:)
     integer, allocatable :: iwork(:)
@@ -527,7 +627,7 @@ subroutine fvn_s_matcon(d,a,rcond,status)
     real, external :: slange
     
     
-    status=1
+     if (present(status)) status=1
     
     anorm=slange('1',d,d,a,d,work) ! work is unallocated as it is only used when computing infinity norm
     
@@ -538,7 +638,7 @@ subroutine fvn_s_matcon(d,a,rcond,status)
     allocate(ipiv(d))
     call sgetrf(d,d,wc_a,d,ipiv,info)
     if (info /= 0) then
-        status=0
+         if (present(status)) status=0
         deallocate(ipiv)
         deallocate(wc_a)
         return
@@ -547,7 +647,7 @@ subroutine fvn_s_matcon(d,a,rcond,status)
     allocate(iwork(d))
     call sgecon('1',d,wc_a,d,anorm,rcond,work,iwork,info)
     if (info /= 0) then
-        status=0
+         if (present(status)) status=0
     end if
     deallocate(iwork)
     deallocate(work)
@@ -568,7 +668,7 @@ subroutine fvn_d_matcon(d,a,rcond,status)
     integer, intent(in) :: d
     double precision, intent(in) :: a(d,d)
     double precision, intent(out) :: rcond
-    integer, intent(out) :: status
+    integer, intent(out), optional :: status
     
     double precision, allocatable :: work(:)
     integer, allocatable :: iwork(:)
@@ -580,7 +680,7 @@ subroutine fvn_d_matcon(d,a,rcond,status)
     double precision, external :: dlange
     
     
-    status=1
+     if (present(status)) status=1
     
     anorm=dlange('1',d,d,a,d,work) ! work is unallocated as it is only used when computing infinity norm
     
@@ -591,7 +691,7 @@ subroutine fvn_d_matcon(d,a,rcond,status)
     allocate(ipiv(d))
     call dgetrf(d,d,wc_a,d,ipiv,info)
     if (info /= 0) then
-        status=0
+         if (present(status)) status=0
         deallocate(ipiv)
         deallocate(wc_a)
         return
@@ -601,7 +701,7 @@ subroutine fvn_d_matcon(d,a,rcond,status)
     allocate(iwork(d))
     call dgecon('1',d,wc_a,d,anorm,rcond,work,iwork,info)
     if (info /= 0) then
-        status=0
+         if (present(status)) status=0
     end if
     deallocate(iwork)
     deallocate(work)
@@ -622,7 +722,7 @@ subroutine fvn_c_matcon(d,a,rcond,status)
     integer, intent(in) :: d
     complex, intent(in) :: a(d,d)
     real, intent(out) :: rcond
-    integer, intent(out) :: status
+    integer, intent(out), optional :: status
     
     real, allocatable :: rwork(:)
     complex, allocatable :: work(:)
@@ -635,7 +735,7 @@ subroutine fvn_c_matcon(d,a,rcond,status)
     real, external :: clange
     
     
-    status=1
+     if (present(status)) status=1
     
     anorm=clange('1',d,d,a,d,rwork) ! rwork is unallocated as it is only used when computing infinity norm
     
@@ -646,7 +746,7 @@ subroutine fvn_c_matcon(d,a,rcond,status)
     allocate(ipiv(d))
     call cgetrf(d,d,wc_a,d,ipiv,info)
     if (info /= 0) then
-        status=0
+         if (present(status)) status=0
         deallocate(ipiv)
         deallocate(wc_a)
         return
@@ -655,7 +755,7 @@ subroutine fvn_c_matcon(d,a,rcond,status)
     allocate(rwork(2*d))
     call cgecon('1',d,wc_a,d,anorm,rcond,work,rwork,info)
     if (info /= 0) then
-        status=0
+         if (present(status)) status=0
     end if
     deallocate(rwork)
     deallocate(work)
@@ -675,7 +775,7 @@ subroutine fvn_z_matcon(d,a,rcond,status)
     integer, intent(in) :: d
     double complex, intent(in) :: a(d,d)
     double precision, intent(out) :: rcond
-    integer, intent(out) :: status
+    integer, intent(out), optional :: status
     
     double complex, allocatable :: work(:)
     double precision, allocatable :: rwork(:)
@@ -687,7 +787,7 @@ subroutine fvn_z_matcon(d,a,rcond,status)
     double precision, external :: zlange
     
     
-    status=1
+     if (present(status)) status=1
     
     anorm=zlange('1',d,d,a,d,rwork) ! rwork is unallocated as it is only used when computing infinity norm
     
@@ -698,7 +798,7 @@ subroutine fvn_z_matcon(d,a,rcond,status)
     allocate(ipiv(d))
     call zgetrf(d,d,wc_a,d,ipiv,info)
     if (info /= 0) then
-        status=0
+         if (present(status)) status=0
         deallocate(ipiv)
         deallocate(wc_a)
         return
@@ -708,7 +808,7 @@ subroutine fvn_z_matcon(d,a,rcond,status)
     allocate(rwork(2*d))
     call zgecon('1',d,wc_a,d,anorm,rcond,work,rwork,info)
     if (info /= 0) then
-        status=0
+         if (present(status)) status=0
     end if
     deallocate(rwork)
     deallocate(work)
@@ -736,7 +836,7 @@ subroutine fvn_s_matev(d,a,evala,eveca,status)
     real, intent(in) :: a(d,d)
     complex, intent(out) :: evala(d)
     complex, intent(out) :: eveca(d,d)
-    integer, intent(out) :: status
+    integer, intent(out), optional :: status
     
     real, allocatable :: wc_a(:,:)  ! a working copy of a
     integer :: info
@@ -749,6 +849,8 @@ subroutine fvn_s_matev(d,a,evala,eveca,status)
     integer i
     integer j
     
+     if (present(status)) status=1
+
     ! making a working copy of a
     allocate(wc_a(d,d))
     !call scopy(d*d,a,1,wc_a,1)
@@ -764,7 +866,7 @@ subroutine fvn_s_matev(d,a,evala,eveca,status)
     call sgeev('N','V',d,wc_a,d,wr,wi,vl,1,vr,d,work,lwork,info)
 
     if (info /= 0) then
-        status=0
+         if (present(status)) status=0
         deallocate(work)
         deallocate(vr)
         deallocate(wi)
@@ -809,7 +911,7 @@ subroutine fvn_d_matev(d,a,evala,eveca,status)
     double precision, intent(in) :: a(d,d)
     double complex, intent(out) :: evala(d)
     double complex, intent(out) :: eveca(d,d)
-    integer, intent(out) :: status
+    integer, intent(out), optional :: status
     
     double precision, allocatable :: wc_a(:,:)  ! a working copy of a
     integer :: info
@@ -822,6 +924,8 @@ subroutine fvn_d_matev(d,a,evala,eveca,status)
     integer i
     integer j
     
+    if (present(status)) status=1
+
     ! making a working copy of a
     allocate(wc_a(d,d))
     !call dcopy(d*d,a,1,wc_a,1)
@@ -837,7 +941,7 @@ subroutine fvn_d_matev(d,a,evala,eveca,status)
     call dgeev('N','V',d,wc_a,d,wr,wi,vl,1,vr,d,work,lwork,info)
 
     if (info /= 0) then
-        status=0
+         if (present(status)) status=0
         deallocate(work)
         deallocate(vr)
         deallocate(wi)
@@ -883,7 +987,7 @@ subroutine fvn_c_matev(d,a,evala,eveca,status)
     complex, intent(in) :: a(d,d)
     complex, intent(out) :: evala(d)
     complex, intent(out) :: eveca(d,d)
-    integer, intent(out) :: status
+    integer, intent(out), optional :: status
 
     complex, allocatable :: wc_a(:,:) ! a working copy of a
     integer :: info
@@ -893,7 +997,7 @@ subroutine fvn_c_matev(d,a,evala,eveca,status)
     real, allocatable :: rwork(:)
     complex :: vl   ! unused but necessary for the call
 
-    status=1
+     if (present(status)) status=1
 
     ! making a working copy of a
     allocate(wc_a(d,d))
@@ -909,7 +1013,7 @@ subroutine fvn_c_matev(d,a,evala,eveca,status)
     call cgeev('N','V',d,wc_a,d,evala,vl,1,eveca,d,work,lwork,rwork,info)
     
     if (info /= 0) then
-        status=0
+         if (present(status)) status=0
     end if
     deallocate(rwork)
     deallocate(work)
@@ -931,7 +1035,7 @@ subroutine fvn_z_matev(d,a,evala,eveca,status)
     double complex, intent(in) :: a(d,d)
     double complex, intent(out) :: evala(d)
     double complex, intent(out) :: eveca(d,d)
-    integer, intent(out) :: status
+    integer, intent(out), optional :: status
 
     double complex, allocatable :: wc_a(:,:) ! a working copy of a
     integer :: info
@@ -941,7 +1045,7 @@ subroutine fvn_z_matev(d,a,evala,eveca,status)
     double precision, allocatable :: rwork(:)
     double complex :: vl   ! unused but necessary for the call
     
-    status=1
+     if (present(status)) status=1
 
     ! making a working copy of a
     allocate(wc_a(d,d))
@@ -956,7 +1060,7 @@ subroutine fvn_z_matev(d,a,evala,eveca,status)
     call zgeev('N','V',d,wc_a,d,evala,vl,1,eveca,d,work,lwork,rwork,info)
     
     if (info /= 0) then
-        status=0
+         if (present(status)) status=0
     end if
     deallocate(rwork)
     deallocate(work)
@@ -1725,7 +1829,7 @@ implicit none
 integer, intent(in) :: np,deg
 real(kind=8), intent(in), dimension(np) :: x,y
 real(kind=8), intent(out), dimension(deg+1) :: coeff
-integer, intent(out) :: status
+integer, intent(out), optional :: status
 
 real(kind=8), allocatable, dimension(:,:) :: mat,bmat
 real(kind=8),dimension(:),allocatable :: work
@@ -1734,7 +1838,7 @@ integer :: lwork,info
 
 integer :: i,j
 
-status=1
+ if (present(status)) status=1
 allocate(mat(np,deg+1),bmat(np,1))
 
 ! Design matrix valorisation
@@ -1751,7 +1855,7 @@ allocate(work(int(lwork)))
 call dgels('N',np,deg+1,1,mat,np,bmat,np,work,lwork,info)
 
 if (info /= 0) then
-    status=0
+     if (present(status)) status=0
 end if
 
  coeff = (/ (bmat(i,1),i=1,deg+1) /)
@@ -1781,7 +1885,7 @@ implicit none
 integer, intent(in) :: np,deg
 real(kind=4), intent(in), dimension(np) :: x,y
 real(kind=4), intent(out), dimension(deg+1) :: coeff
-integer, intent(out) :: status
+integer, intent(out), optional :: status
 
 real(kind=4), allocatable, dimension(:,:) :: mat,bmat
 real(kind=4),dimension(:),allocatable :: work
@@ -1790,7 +1894,7 @@ integer :: lwork,info
 
 integer :: i,j
 
-status=1
+ if (present(status)) status=1
 allocate(mat(np,deg+1),bmat(np,1))
 
 ! Design matrix valorisation
@@ -1807,7 +1911,7 @@ allocate(work(int(lwork)))
 call sgels('N',np,deg+1,1,mat,np,bmat,np,work,lwork,info)
 
 if (info /= 0) then
-    status=0
+     if (present(status)) status=0
 end if
 
  coeff = (/ (bmat(i,1),i=1,deg+1) /)
@@ -1825,7 +1929,7 @@ end subroutine
 
 subroutine fvn_d_lspoly_svd(np,x,y,deg,coeff,status)
 !
-!   Least square polynomial fitting
+!   Least square polynomial fitting using singular value decomposition
 !
 !   Find the coefficients of the least square polynomial of a given degree
 !   for a set of coordinates.
@@ -1844,7 +1948,7 @@ implicit none
 integer, intent(in) :: np,deg
 real(kind=8), intent(in), dimension(np) :: x,y
 real(kind=8), intent(out), dimension(deg+1) :: coeff
-integer, intent(out) :: status
+integer, intent(out), optional :: status
 
 real(kind=8), allocatable, dimension(:,:) :: mat,bmat
 real(kind=8),dimension(:),allocatable :: work,singval
@@ -1853,7 +1957,7 @@ integer :: lwork,info,rank
 
 integer :: i,j
 
-status=1
+ if (present(status)) status=1
 allocate(mat(np,deg+1),bmat(np,1),singval(deg+1))
 
 ! Design matrix valorisation
@@ -1870,7 +1974,7 @@ allocate(work(int(lwork)))
 call dgelss(np,deg+1,1,mat,np,bmat,np,singval,-1.,rank,work,lwork,info)
 
 if (info /= 0) then
-    status=0
+     if (present(status)) status=0
 end if
 
  coeff = (/ (bmat(i,1),i=1,deg+1) /)
@@ -1881,7 +1985,7 @@ end subroutine
 
 subroutine fvn_s_lspoly_svd(np,x,y,deg,coeff,status)
 !
-!   Least square polynomial fitting
+!   Least square polynomial fitting using singular value decomposition
 !
 !   Find the coefficients of the least square polynomial of a given degree
 !   for a set of coordinates.
@@ -1900,7 +2004,7 @@ implicit none
 integer, intent(in) :: np,deg
 real(kind=4), intent(in), dimension(np) :: x,y
 real(kind=4), intent(out), dimension(deg+1) :: coeff
-integer, intent(out) :: status
+integer, intent(out), optional :: status
 
 real(kind=4), allocatable, dimension(:,:) :: mat,bmat
 real(kind=4),dimension(:),allocatable :: work,singval
@@ -1909,7 +2013,7 @@ integer :: lwork,info,rank
 
 integer :: i,j
 
-status=1
+ if (present(status)) status=1
 allocate(mat(np,deg+1),bmat(np,1),singval(deg+1))
 
 ! Design matrix valorisation
@@ -1926,7 +2030,7 @@ allocate(work(int(lwork)))
 call sgelss(np,deg+1,1,mat,np,bmat,np,singval,-1.,rank,work,lwork,info)
 
 if (info /= 0) then
-    status=0
+     if (present(status)) status=0
 end if
 
  coeff = (/ (bmat(i,1),i=1,deg+1) /)
@@ -2644,6 +2748,9 @@ include "fvn_quadpack/dqk15_2d_outer.f"
 ! fvn_d_asinh : arc sinus hyperbolic
 !
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! February 2008 
+! All Trigonometric functions removed due to implementation of fnlib
+
 function fvn_z_acos(z)
     ! double complex arccos function adapted from 
     ! the c gsl library
@@ -3191,6 +3298,9 @@ end subroutine
 ! Special Functions
 !
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! February 2008 
+! All Special functions removed due to implementation of fnlib
+!
 function fvn_d_lngamma(x)
       ! This function returns ln(gamma(x))
       ! adapted from Numerical Recipes